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

⟦32fb56258⟧ M200

    Length: 6144 (0x1800)
    Types: M200
    Notes: @(#)CRASHSAVE,1.2,92/01/17,17:18:19, M200_PROGRAM
    Names: »CRASHSAVE.M200«

Derivation

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

Disassembly

0x20232


@ 20232
        <LVAR -0x004 1(rw)>
        <LVAR -0x005 1(rw)>
        <LVAR -0x00e @>
    <POP 20232-20386 Body>                                              
        <POP 20232-20248 Prologue>                           Σ0         ↓
        <POP 20248-20256 RegCacheLoad>                       Σ0         ↓
        <POP 20256-202aa Naked>                              Σ0         ↓
            <Call 0x20256 0x20fbe>                                              {}
                exp_CLEAR_EXCEPTIONS.FIU()
            <MI 2025c  MOVE.B  #0x01,(A6-0x5)>                                  {}
            <MI 20262  MOVE.B  #0xb4,(A6-0x4)>                                  {}
            <Blob 0x20268 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x2026c [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Pointer.fp 0x20270 <LVAR -0x00e @>>             Δ-4                {[«4""»]|[«4""»]|[@@-14]}
            <Call 0x20274 0x21064>                                              {[«4""»]|[«4""»]|[@@-14]}
                exp_PREP_WRITE_REG.TYP(Sw_8, &Sr_8_1)
            <POP 2027a-2027c StackAdj>                       Δ+10               {[-2-]}
            <MI 2027c  MOVE.B  (A6-0x5),(A7)>                                   {[-2-]}
            <MI 20280  MOVE.B  (A6-0x4),(A7+0x1)>                               {[-2-]}
            <Blob 0x20286 [10] (A6-0xe)>                     Δ-10               {[-2-]|[«10»]}
            <MI 20296  CLR.B   -(A7)>                        Δ-2                {[-2-]|[«10»]|[#0]}
            <Call 0x20298 0x2102a>                                              {[-2-]|[«10»]|[#0]}
                exp_WRITE_REG.TYP(Sw_2, Sw_8_1, Sw_1)
            <POP 2029e-202a2 StackAdj>                       Δ+14               {}
            <Call 0x202a2 0x210b4>                                              {}
                exp_LOAD_BENIGN_UWORD.TYP()
            <MI 202a8  MOVEQ.L #0x0c,D7>                                        {}
        <POP 202aa-202b6 Naked>                              Σ0         ↓ →0x202c4 ←0x202c4
            <POP 202aa-202ac StackAdj>                       Δ-2                {[-2-]}
            <MI 202ac  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x202ae 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 202b0-202b2 StackAdj>                       Δ+2                {[-2-]}
            <MI 202b2  TST.B   (A7)+>                        Δ+2                {}
            <MI 202b4  BEQ     0x202c4>                                         {}
        <POP 202b6-202c4 Naked>                              Σ0         ↓
            <MI 202b6  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Const 0x202b8 0xff.2>                           Δ-2                {[2, 'D7']|[#255]}
            <Call 0x202bc 0x21138>                                              {[2, 'D7']|[#255]}
            <POP 202c2-202c4 StackAdj>                       Δ+4                {}
        <POP 202c4-202ca Naked>                              Σ0         ↓ →0x202aa ←0x202aa
            <MI 202c4  ADDQ.B  #0x1,D7>                                         {}
            <MI 202c6  CMP.B   #0x0f,D7>                                        {}
            <MI 202c8  BLE     0x202aa>                                         {}
        <POP 202ca-202d2 Naked>                              Σ0         ↓
            <Call 0x202ca 0x20f86>                                              {}
                exp_INIT_MRU.FIU()
            <MI 202d0  MOVEQ.L #0x0c,D7>                                        {}
        <POP 202d2-202de Naked>                              Σ0         ↓ →0x202e8 ←0x202e8
            <POP 202d2-202d4 StackAdj>                       Δ-2                {[-2-]}
            <MI 202d4  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x202d6 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 202d8-202da StackAdj>                       Δ+2                {[-2-]}
            <MI 202da  TST.B   (A7)+>                        Δ+2                {}
            <MI 202dc  BEQ     0x202e8>                                         {}
        <POP 202de-202e8 Naked>                              Σ0         ↓
            <MI 202de  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x202e0 0x213f6>                                              {[2, 'D7']}
            <POP 202e6-202e8 StackAdj>                       Δ+2                {}
        <POP 202e8-202ee Naked>                              Σ0         ↓ →0x202d2 ←0x202d2
            <MI 202e8  ADDQ.B  #0x1,D7>                                         {}
            <MI 202ea  CMP.B   #0x0f,D7>                                        {}
            <MI 202ec  BLE     0x202d2>                                         {}
        <POP 202ee-20320 Naked>                              Σ0         ↓
            <Call 0x202ee 0x105b0>                                              {}
                FifoInit(void)
            <Const 0x202f4 0x127.2>                          Δ-2                {[#295]}
            <Call 0x202f6 0x21086>                                              {[#295]}
                exp_PREP_RUN.TYP(Sw_2)
            <POP 202fc-202fd StackAdj>                       Δ+2                {}
            <Const 0x202fd 0x127.2>                          Δ-2                {[#295]}
            <Call 0x202fe 0x210f2>                                              {[#295]}
                exp_PREP_RUN.VAL(Sw_2)
            <POP 20304-20305 StackAdj>                       Δ+2                {}
            <Const 0x20305 0x127.2>                          Δ-2                {[#295]}
            <Call 0x20306 0x2154a>                                              {[#295]}
                exp_PREP_RUN.IOC(Sw_2)
            <POP 2030c-2030d StackAdj>                       Δ+2                {}
            <Const 0x2030d 0x127.2>                          Δ-2                {[#295]}
            <Call 0x2030e 0x21010>                                              {[#295]}
                exp_PREP_RUN.SEQ(Sw_2)
            <POP 20314-20315 StackAdj>                       Δ+2                {}
            <Const 0x20315 0x127.2>                          Δ-2                {[#295]}
            <Call 0x20316 0x20f58>                                              {[#295]}
                exp_PREP_RUN.FIU(Sw_2)
            <POP 2031c-2031e StackAdj>                       Δ+2                {}
            <MI 2031e  MOVEQ.L #0x0c,D7>                                        {}
        <POP 20320-2032c Naked>                              Σ0         ↓ →0x20336 ←0x20336
            <POP 20320-20322 StackAdj>                       Δ-2                {[-2-]}
            <MI 20322  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x20324 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20326-20328 StackAdj>                       Δ+2                {[-2-]}
            <MI 20328  TST.B   (A7)+>                        Δ+2                {}
            <MI 2032a  BEQ     0x20336>                                         {}
        <POP 2032c-20336 Naked>                              Σ0         ↓
            <MI 2032c  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x2032e 0x2134c>                                              {[2, 'D7']}
            <POP 20334-20336 StackAdj>                       Δ+2                {}
        <POP 20336-2033c Naked>                              Σ0         ↓ →0x20320 ←0x20320
            <MI 20336  ADDQ.B  #0x1,D7>                                         {}
            <MI 20338  CMP.B   #0x0f,D7>                                        {}
            <MI 2033a  BLE     0x20320>                                         {}
        <POP 2033c-2035c Naked>                              Σ0         ↓
            <Call 0x2033c 0x20fa0>                                              {}
                exp_FREEZE_WORLD.FIU()
            <Call 0x20342 0x21048>                                              {}
                exp_RUN_NORMAL.TYP()
            <Call 0x20348 0x210d6>                                              {}
                exp_RUN_NORMAL.VAL()
            <Call 0x2034e 0x20ff6>                                              {}
                exp_RUN_CHECK.SEQ()
            <Call 0x20354 0x21530>                                              {}
                exp_RUN_CHECK.IOC()
            <MI 2035a  MOVEQ.L #0x0c,D7>                                        {}
        <POP 2035c-20368 Naked>                              Σ0         ↓ →0x20372 ←0x20372
            <POP 2035c-2035e StackAdj>                       Δ-2                {[-2-]}
            <MI 2035e  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x20360 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20362-20364 StackAdj>                       Δ+2                {[-2-]}
            <MI 20364  TST.B   (A7)+>                        Δ+2                {}
            <MI 20366  BEQ     0x20372>                                         {}
        <POP 20368-20372 Naked>                              Σ0         ↓
            <MI 20368  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x2036a 0x211fe>                                              {[2, 'D7']}
            <POP 20370-20372 StackAdj>                       Δ+2                {}
        <POP 20372-20378 Naked>                              Σ0         ↓ →0x2035c ←0x2035c
            <MI 20372  ADDQ.B  #0x1,D7>                                         {}
            <MI 20374  CMP.B   #0x0f,D7>                                        {}
            <MI 20376  BLE     0x2035c>                                         {}
        <POP 20378-2037e Naked>                              Σ0         ↓
            <Call 0x20378 0x20f3c>                                              {}
                exp_RUN_NORMAL.FIU()
        <POP 2037e-20386 Epilogue>                           Σ0         

0x20386


@ 20386
    <POP 20386-2040e Body>                                              
        <POP 20386-2039c Prologue>                           Σ0         ↓
        <POP 2039c-2039e RegCacheLoad>                       Σ0         ↓
        <POP 2039e-203be Naked>                              Σ0         ↓
            <Call 0x2039e 0x20fa0>                                              {}
                exp_FREEZE_WORLD.FIU()
            <Call 0x203a4 0x21564>                                              {}
                exp_MF.IOC()
            <Call 0x203aa 0x2110c>                                              {}
                exp_MF.VAL()
            <Call 0x203b0 0x210a0>                                              {}
                exp_MF.TYP()
            <Call 0x203b6 0x20fe0>                                              {}
                exp_RESET.SEQ()
            <MI 203bc  MOVEQ.L #0x0c,D7>                                        {}
        <POP 203be-203ce Naked>                              Σ0         ↓ →0x203d8 ←0x203d8
            <POP 203be-203c0 StackAdj>                       Δ-2                {[-2-]}
            <MI 203c0  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x203c2 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 203c8-203ca StackAdj>                       Δ+2                {[-2-]}
            <MI 203ca  TST.B   (A7)+>                        Δ+2                {}
            <MI 203cc  BEQ     0x203d8>                                         {}
        <POP 203ce-203d8 Naked>                              Σ0         ↓
            <MI 203ce  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x203d0 0x21298>                                              {[2, 'D7']}
            <POP 203d6-203d8 StackAdj>                       Δ+2                {}
        <POP 203d8-203de Naked>                              Σ0         ↓ →0x203be ←0x203be
            <MI 203d8  ADDQ.B  #0x1,D7>                                         {}
            <MI 203da  CMP.B   #0x0f,D7>                                        {}
            <MI 203dc  BLE     0x203be>                                         {}
        <POP 203de-203e6 Naked>                              Σ0         ↓
            <Call 0x203de 0x20f72>                                              {}
                exp_MF.FIU()
            <MI 203e4  MOVEQ.L #0x0c,D7>                                        {}
        <POP 203e6-203f6 Naked>                              Σ0         ↓ →0x20400 ←0x20400
            <POP 203e6-203e8 StackAdj>                       Δ-2                {[-2-]}
            <MI 203e8  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x203ea 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 203f0-203f2 StackAdj>                       Δ+2                {[-2-]}
            <MI 203f2  TST.B   (A7)+>                        Δ+2                {}
            <MI 203f4  BEQ     0x20400>                                         {}
        <POP 203f6-20400 Naked>                              Σ0         ↓
            <MI 203f6  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x203f8 0x214a2>                                              {[2, 'D7']}
            <POP 203fe-20400 StackAdj>                       Δ+2                {}
        <POP 20400-20406 Naked>                              Σ0         ↓ →0x203e6 ←0x203e6
            <MI 20400  ADDQ.B  #0x1,D7>                                         {}
            <MI 20402  CMP.B   #0x0f,D7>                                        {}
            <MI 20404  BLE     0x203e6>                                         {}
        <POP 20406-2040e Epilogue>                           Σ0         

0x2040e


@ 2040e
        <LVAR  0x008 4(w)>
        <LVAR -0x004 @>
        <LVAR -0x00c @ 4(r)>
    <POP 2040e-2048c Body>                                              
        <POP 2040e-20424 Prologue>                           Σ0         ↓
        <POP 20424-20428 RegCacheLoad>                       Σ0         ↓
        <POP 20428-20440 Naked>                              Σ0         ↓
            <Pointer.fp 0x20428 <LVAR -0x004 @>>             Δ-4                {[@@-4]}
            <Call 0x2042c 0x1059e>                                              {[@@-4]}
                ReadClusterNo(VAR a : Long)
            <POP 20432-20434 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x20434 <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-12]}
            <Call 0x20436 0x102b8>                                              {[@@-12]}
                NewString(VAR a : String)
            <POP 2043c-2043e StackAdj>                       Δ+4                {}
            <MI 2043e  MOVEQ.L #0x00,D7>                                        {}
        <POP 20440-20480 Naked>                              Σ0         ↓ →0x20440 ←0x20440
            <MI 20440  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0xc)']}
            <MI 20442  CLR.L   D0>                                              {[4, '(A6-0xc)']}
            <MI 20444  MOVE.B  (A6+D7.L-#0x4),D0>                               {[4, '(A6-0xc)']}
            <MI 20448  ASR.W   #0x4,D0>                                         {[4, '(A6-0xc)']}
            <MI 2044a  LEA.L   0x20158,A0>                                      {[4, '(A6-0xc)']}
            <MI 2044e  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
            <Call 0x20452 0x102c0>                                              {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
                AppendChar(MOD b : String; a : char)
            <POP 20458-2045a StackAdj>                       Δ+2                {[4, '(A6-0xc)']}
            <MI 2045a  MOVE.L  (A6-0xc),(A7)>                                   {[4, '(A6-0xc)']}
            <MI 2045c  CLR.L   D0>                                              {[4, '(A6-0xc)']}
            <MI 2045e  MOVE.B  (A6+D7.L-#0x4),D0>                               {[4, '(A6-0xc)']}
            <MI 20462  ANDI.W  #0x000f,D0>                                      {[4, '(A6-0xc)']}
            <MI 20466  LEA.L   0x20158,A0>                                      {[4, '(A6-0xc)']}
            <MI 2046a  MOVE.B  (A0+D0.W),-(A7)>              Δ-2                {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
            <Call 0x2046e 0x102c0>                                              {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
                AppendChar(MOD b : String; a : char)
            <POP 20474-20476 StackAdj>                       Δ+6                {}
            <MI 20476  ADDQ.L  #0x1,D7>                                         {}
            <MI 20478  CMPI.L  #0x00000003,D7>                                  {}
            <MI 2047e  BLE     0x20440>                                         {}
        <POP 20480-20484 Naked>                              Σ0         ↓
            <MI 20480  MOVE.L  (A6-0xc),(A6+0x8)>                               {}
        <POP 20484-2048c Epilogue>                           Σ0         

0x2048c


@ 2048c
        <LVAR -0x003 @>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @>
    <POP 2048c-20546 Body>                                              
        <POP 2048c-204a2 Prologue>                           Σ0         ↓
        <POP 204a2-204aa RegCacheLoad>                       Σ0         ↓
        <POP 204aa-204ee Naked>                              Σ0         ↓ →0x20506
            <Blob 0x204aa [22] @>                            Δ-22               {[«22""»]}
            <POP 204b6-204b8 StackAdj>                       Δ-4                {[«22""»]|[-4-]}
            <Lit 0x204b8 22>                                                    {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]}
            <MI 204ca  MOVEA.L (A7)+,A4>                     Δ+4                {[«22""»]}
            <POP 204cc-204d0 StackAdj>                       Δ+18               {[-4-]}
            <MI 204d0  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <MI 204d2  CLR.B   -(A7)>                        Δ-2                {[4, 'A4']|[#0]}
            <MI 204d4  CLR.B   -(A7)>                        Δ-2                {[4, 'A4']|[#0]|[#0]}
            <Const 0x204d6 0x0.4>                            Δ-4                {[4, 'A4']|[#0]|[#0]|[##0]}
            <Pointer.fp 0x204da <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, 'A4']|[#0]|[#0]|[##0]|[@@-4]}
            <Pointer.fp 0x204dc <LVAR -0x008 @>>             Δ-4                {[4, 'A4']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
            <Call 0x204e0 0x10380>                                              {[4, 'A4']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 204e6-204ea StackAdj>                       Δ+20               {}
            <MI 204ea  TST.B   (A6-0x4)>                                        {}
            <MI 204ec  BNE     0x20506>                                         {}
        <POP 204ee-20506 Naked>                              Σ0         ↓
            <Const 0x204ee 0x2.2>                            Δ-2                {[#2]}
            <Const 0x204f0 0x1.2>                            Δ-2                {[#2]|[#1]}
            <Const 0x204f2 0x1.4>                            Δ-4                {[#2]|[#1]|[##1]}
            <Pointer.fp 0x204f6 <LVAR -0x004 @ 1(r)>>        Δ-4                {[#2]|[#1]|[##1]|[@@-4]}
            <Pointer.fp 0x204f8 <LVAR -0x008 @>>             Δ-4                {[#2]|[#1]|[##1]|[@@-4]|[@@-8]}
            <Call 0x204fc 0x1038c>                                              {[#2]|[#1]|[##1]|[@@-4]|[@@-8]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20502-20506 StackAdj>                       Δ+16               {}
        <POP 20506-2053e Naked>                              Σ0         ↓ ←0x204aa
            <Blob 0x20506 [10] @>                            Δ-10               {[«10""»]}
            <POP 20518-2051a StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x2051a 9>                                                     {[«10""»]|[$$SAVESTATE]}
            <POP 2052a-2052c StackAdj>                       Δ-4                {[«10""»]|[$$SAVESTATE]|[-4-]}
            <MI 2052c  MOVE.L  A4,(A7)>                                         {[«10""»]|[$$SAVESTATE]|[4, 'A4']}
            <Const 0x2052e 0x2.2>                            Δ-2                {[«10""»]|[$$SAVESTATE]|[4, 'A4']|[#2]}
            <Pointer.fp 0x20530 <LVAR -0x003 @>>             Δ-4                {[«10""»]|[$$SAVESTATE]|[4, 'A4']|[#2]|[@@-3]}
            <Call 0x20534 0x103b0>                                              {[«10""»]|[$$SAVESTATE]|[4, 'A4']|[#2]|[@@-3]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 2053a-2053e StackAdj>                       Δ+24               {}
        <POP 2053e-20546 Epilogue>                           Σ0         

0x20546


@ 20546
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @>
    <POP 20546-20642 Body>                                              
        <POP 20546-2055c Prologue>                           Σ0         ↓
        <POP 2055c-2056e RegCacheLoad>                       Σ0         ↓
        <POP 2056e-20576 Naked>                              Σ0 Δ-4     ↓
            <MI 2056e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 20572  SUBQ.L  #0x1,(A7)>                                       {[-4-]}
            <MI 20574  MOVEQ.L #0x00,D6>                                        {[-4-]}
        <POP 20576-2057c Naked>                              Σ-4        ↓ →0x20638 ←0x20632
            <MI 20576  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 20578  BGT     0x20638>                                         {[-4-]}
        <POP 2057c-20592 Naked>                              Σ-4        ↓ →0x205aa
            <MI 2057c  LEA.L   0x21f94,A0>                                      {[-4-]}
            <MI 20582  MOVE.L  A0,-(A7)>                     Δ-4                {[-4-]|[4, 'A0']}
            <MI 20584  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, 'A0']|[#0]}
            <Call 0x20586 0x1023c>                                              {[-4-]|[4, 'A0']|[#0]}
                KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word)
            <POP 2058c-2058e StackAdj>                       Δ+6                {[-4-]}
            <MI 2058e  TST.W   0x21fba>                                         {[-4-]}
            <MI 20590  BEQ     0x205aa>                                         {[-4-]}
        <POP 20592-205a2 Naked>                              Σ-4        ↓ →0x205aa
            <MI 20592  CLR.L   D0>                                              {[-4-]}
            <MI 20594  MOVE.W  0x21fa2,D0>                                      {[-4-]}
            <MI 20596  CLR.L   D1>                                              {[-4-]}
            <MI 20598  MOVE.W  0x21fba,D1>                                      {[-4-]}
            <MI 2059a  ADD.L   D0,D1>                                           {[-4-]}
            <MI 2059c  MOVE.W  D1,0x21fa2>                                      {[-4-]}
            <MI 2059e  TST.W   D1>                                              {[-4-]}
            <MI 205a0  BNE     0x205aa>                                         {[-4-]}
        <POP 205a2-205aa Naked>                              Σ-4        ↓
            <MI 205a2  CLR.L   D0>                                              {[-4-]}
            <MI 205a4  MOVE.W  0x21fa0,D0>                                      {[-4-]}
            <MI 205a6  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 205a8  MOVE.W  D0,0x21fa0>                                      {[-4-]}
        <POP 205aa-205c0 Naked>                              Σ-4        ↓ ←0x2057c ←0x20592
            <MI 205aa  CLR.L   D0>                                              {[-4-]}
            <MI 205ac  MOVE.W  0x21fa0,D0>                                      {[-4-]}
            <MI 205ae  CLR.L   D1>                                              {[-4-]}
            <MI 205b0  MOVE.W  0x21fb8,D1>                                      {[-4-]}
            <MI 205b6  ADD.L   D0,D1>                                           {[-4-]}
            <MI 205b8  MOVE.W  D1,0x21fa0>                                      {[-4-]}
            <MI 205ba  MOVE.L  #0xfffffc18,D7>                                  {[-4-]}
        <POP 205c0-205e0 Naked>                              Σ-4        ↓ →0x205e4 ←0x205e0
            <MI 205c0  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 205c4  LEA.L   0x21fa4,A1>                                      {[-4-]}
            <MI 205ca  MOVE.L  A1,-(A7)>                     Δ-4                {[-4-]|[4, 'A1']}
            <MI 205cc  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, 'A1']|[#0]}
            <MI 205ce  PEA.L   (A0)>                         Δ-4                {[-4-]|[4, 'A1']|[#0]|[4, '^(A0)']}
            <Call 0x205d0 0x1023e>                                              {[-4-]|[4, 'A1']|[#0]|[4, '^(A0)']}
                KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool)
            <POP 205d6-205da StackAdj>                       Δ+10               {[-4-]}
            <MI 205da  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 205dc  TST.B   (A0)>                                            {[-4-]}
            <MI 205de  BNE     0x205e4>                                         {[-4-]}
        <POP 205e0-205e4 Naked>                              Σ-4        ↓ →0x205c0
            <MI 205e0  TST.L   D7>                                              {[-4-]}
            <MI 205e2  BNE     0x205c0>                                         {[-4-]}
        <POP 205e4-205e8 Naked>                              Σ-4        ↓ →0x20632 ←0x205c0
            <MI 205e4  TST.B   (A0)>                                            {[-4-]}
            <MI 205e6  BEQ     0x20632>                                         {[-4-]}
        <POP 205e8-20632 Naked>                              Σ-4        ↓
            <Blob 0x205e8 [4] 0x21fcc>                       Δ-4                {[-4-]|[«4»]}
            <MI 205ee  LEA.L   0x2178a,A0>                                      {[-4-]|[«4»]}
            <MI 205f4  MOVE.L  A0,-(A7)>                     Δ-4                {[-4-]|[«4»]|[4, 'A0']}
            <Const 0x205f6 0x400.2>                          Δ-2                {[-4-]|[«4»]|[4, 'A0']|[#1024]}
            <Call 0x205fa 0x10238>                                              {[-4-]|[«4»]|[4, 'A0']|[#1024]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20600-20602 StackAdj>                       Δ+6                {[-4-]|[«4»]}
            <POP 20602-20603 StackAdj>                       Δ+4                {[-4-]}
            <Blob 0x20603 [4] 0x21786>                       Δ-4                {[-4-]|[«4»]}
            <Blob 0x20608 [2] 0x21b8e>                       Δ-2                {[-4-]|[«4»]|[«2»]}
            <MI 2060e  CLR.W   -(A7)>                        Δ-2                {[-4-]|[«4»]|[«2»]|[#0]}
            <Const 0x20610 0x200.2>                          Δ-2                {[-4-]|[«4»]|[«2»]|[#0]|[#512]}
            <Const 0x20614 0x2.2>                            Δ-2                {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]}
            <Blob 0x20618 [4] 0x21b8a>                       Δ-4                {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x2061e <LVAR -0x004 @>>             Δ-4                {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]|[«4»]|[@@-4]}
            <Call 0x20622 0x10388>                                              {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]|[«4»]|[@@-4]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 20628-2062c StackAdj>                       Δ+20               {[-4-]}
            <MI 2062c  ADDQ.W  #0x1,0x21b8e>                                    {[-4-]}
        <POP 20632-20638 Naked>                              Σ-4        ↓ →0x20576 ←0x205e4
            <MI 20632  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 20634  BVC     0x20576>                                         {[-4-]}
        <POP 20638-2063a Naked>                              Σ-4 Δ+4    ↓ ←0x20576
            <POP 20638-2063a StackAdj>                       Δ+4                {}
        <POP 2063a-20642 Epilogue>                           Σ0         

0x20642


@ 20642
        <LVAR  0x00a 2(r)>
    <POP 20642-206a4 Body>                                              
        <POP 20642-20654 Prologue>                           Σ0         ↓
        <POP 20654-206a0 Naked>                              Σ0         ↓
            <MI 20654  MOVE.W  #0x400,0x21f94>                                  {}
            <MI 2065c  CLR.W   0x21f96>                                         {}
            <MI 20662  CLR.W   0x21f98>                                         {}
            <MI 20668  MOVE.W  (A6+0xa),0x21f9a>                                {}
            <MI 20670  CLR.W   0x21f9c>                                         {}
            <MI 20676  CLR.W   0x21f9e>                                         {}
            <MI 2067c  CLR.W   0x21fa0>                                         {}
            <MI 20682  CLR.W   0x21fa2>                                         {}
            <MI 20688  CLR.W   0x21fb4>                                         {}
            <MI 2068e  CLR.W   0x21fb6>                                         {}
            <MI 20694  CLR.W   0x21fb8>                                         {}
            <MI 2069a  CLR.W   0x21fba>                                         {}
        <POP 206a0-206a4 Epilogue>                           Σ0         

0x206a4


@ 206a4
        <LVAR  0x008 4(r)>
    <POP 206a4-20724 Body>                                              
        <POP 206a4-206ba Prologue>                           Σ0         ↓
        <POP 206ba-206ea Naked>                              Σ0         ↓ →0x2071c
            <MI 206ba  MOVE.W  0x21b8e,0x21b98>                                 {}
            <MI 206c4  MOVEQ.L #0x10,D7>                                        {}
            <Const 0x206c6 0x300.4>                          Δ-4                {[##768]}
            <Call 0x206ca 0x20642>                                              {[##768]}
            <POP 206ce-206d0 StackAdj>                       Δ+4                {}
            <MI 206d0  MOVE.W  #0x40,0x21fba>                                   {}
            <MI 206d8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 206dc  MOVE.L  D7,-(A7)>                     Δ-4                {[4, 'D7']}
            <MI 206de  PEA.L   (A0)>                         Δ-4                {[4, 'D7']|[4, '^(A0)']}
            <Call 0x206e0 0x20546>                                              {[4, 'D7']|[4, '^(A0)']}
            <POP 206e4-206e6 StackAdj>                       Δ+8                {}
            <MI 206e6  TST.B   (A0)>                                            {}
            <MI 206e8  BNE     0x2071c>                                         {}
        <POP 206ea-2071c Naked>                              Σ0         ↓
            <Blob 0x206ea [68] @>                            Δ-68               {[«68""»]}
            <POP 206fc-206fe StackAdj>                       Δ-4                {[«68""»]|[-4-]}
            <Lit 0x206fe 67>                                                    {[«68""»]|[$$*** No R1000 response to DUMP_REGISTERS - probably a hardware error]}
            <Call 0x20712 0x103e0>                                              {[«68""»]|[$$*** No R1000 response to DUMP_REGISTERS - probably a hardware error]}
                WriteConsoleStringCrLf(str : String)
            <POP 20718-2071c StackAdj>                       Δ+72               {}
        <POP 2071c-20724 Epilogue>                           Σ0         ←0x206ba

0x20724


@ 20724
        <LVAR  0x008 4(r)>
        <LVAR -0x006 4(rw)>
        <LVAR -0x00a 4(rw)>
    <POP 20724-207ec Body>                                              
        <POP 20724-2073a Prologue>                           Σ0         ↓
        <POP 2073a-20742 RegCacheLoad>                       Σ0         ↓
        <POP 20742-2074e Naked>                              Σ0         ↓ →0x2075c
            <POP 20742-20744 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x20744 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 2074a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2074c  BEQ     0x2075c>                                         {}
        <POP 2074e-2075c Naked>                              Σ0         →0x20768
            <MI 2074e  MOVE.L  #0x800,(A6-0xa)>                                 {}
            <MI 20754  MOVE.L  #0x4,(A6-0x6)>                                   {}
            <MI 2075a  BRA     0x20768>                                         {}
        <POP 2075c-20768 Naked>                              Σ0         ↓ ←0x20742
            <MI 2075c  MOVE.L  #0x1000,(A6-0xa)>                                {}
            <MI 20762  MOVE.L  #0x8,(A6-0x6)>                                   {}
        <POP 20768-2077e Naked>                              Σ0         ↓ ←0x2074e
            <Const 0x20768 0x400.4>                          Δ-4                {[##1024]}
            <Call 0x2076c 0x20642>                                              {[##1024]}
            <POP 20770-20772 StackAdj>                       Δ+4                {}
            <MI 20772  MOVE.W  #0x10,0x21fb8>                                   {}
            <MI 2077a  MOVEQ.L #0x00,D6>                                        {}
            <MI 2077c  MOVEQ.L #0x0c,D5>                                        {}
        <POP 2077e-2078e Naked>                              Σ0         ↓ →0x207da ←0x207da
            <POP 2077e-20780 StackAdj>                       Δ-2                {[-2-]}
            <MI 20780  MOVE.B  D5,-(A7)>                     Δ-2                {[-2-]|[2, 'D5']}
            <Call 0x20782 0x104c0>                                              {[-2-]|[2, 'D5']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20788-2078a StackAdj>                       Δ+2                {[-2-]}
            <MI 2078a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2078c  BEQ     0x207da>                                         {}
        <POP 2078e-20794 Naked>                              Σ0 Δ-4     ↓
            <MI 2078e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <MI 20790  SUBQ.L  #0x1,(A7)>                                       {[-4-]}
            <MI 20792  MOVEQ.L #0x00,D7>                                        {[-4-]}
        <POP 20794-20798 Naked>                              Σ-4        ↓ →0x207d8 ←0x20798
            <MI 20794  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 20796  BGT     0x207d8>                                         {[-4-]}
        <POP 20798-207d8 Naked>                              Σ-4        ↓ →0x20794
            <MI 20798  CLR.W   0x21f9c>                                         {[-4-]}
            <MI 2079e  MOVE.L  D6,D0>                                           {[-4-]}
            <MI 207a0  ASL.L   #0x2,D0>                                         {[-4-]}
            <MI 207a2  ADD.L   D7,D0>                                           {[-4-]}
            <MI 207a4  ASL.L   #0x4,D0>                                         {[-4-]}
            <MI 207a6  MOVE.W  D0,0x21f9e>                                      {[-4-]}
            <MI 207ac  CLR.W   0x21fa0>                                         {[-4-]}
            <MI 207b2  CLR.W   0x21fa2>                                         {[-4-]}
            <MI 207b8  MOVE.L  (A6-0xa),D4>                                     {[-4-]}
            <MI 207ba  MOVE.L  #0x80,D3>                                        {[-4-]}
            <Call 0x207c0 0x10294>                                              {[-4-]}
                ?divs_d3_d4
            <MI 207c6  MOVE.L  D4,-(A7)>                     Δ-4                {[-4-]|[4, 'D4']}
            <MI 207c8  MOVEA.L (A6+0x8),A0>                                     {[-4-]|[4, 'D4']}
            <MI 207cc  PEA.L   (A0)>                         Δ-4                {[-4-]|[4, 'D4']|[4, '^(A0)']}
            <Call 0x207ce 0x20546>                                              {[-4-]|[4, 'D4']|[4, '^(A0)']}
            <POP 207d2-207d4 StackAdj>                       Δ+8                {[-4-]}
            <MI 207d4  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 207d6  BVC     0x20794>                                         {[-4-]}
        <POP 207d8-207da Naked>                              Σ-4 Δ+4    ↓ ←0x20794
            <POP 207d8-207da StackAdj>                       Δ+4                {}
        <POP 207da-207e4 Naked>                              Σ0         ↓ →0x2077e ←0x2077e
            <MI 207da  ADDQ.L  #0x1,D6>                                         {}
            <MI 207dc  ADDQ.B  #0x1,D5>                                         {}
            <MI 207de  CMPI.B  #0x0f,D5>                                        {}
            <MI 207e2  BLE     0x2077e>                                         {}
        <POP 207e4-207ec Epilogue>                           Σ0         

0x207ec


@ 207ec
    <POP 207ec-20884 Body>                                              
        <POP 207ec-20802 Prologue>                           Σ0         ↓
        <POP 20802-2081a RegCacheLoad>                       Σ0         ↓
        <POP 2081a-2087c Naked>                              Σ0         ↓
            <Const 0x2081a 0x400.4>                          Δ-4                {[##1024]}
            <MI 2081e  LEA.L   0x21fbc,A0>                                      {[##1024]}
            <MI 20824  MOVE.L  A0,-(A7)>                     Δ-4                {[##1024]|[4, 'A0']}
            <Const 0x20826 0x4.2>                            Δ-2                {[##1024]|[4, 'A0']|[#4]}
            <Call 0x20828 0x10238>                                              {[##1024]|[4, 'A0']|[#4]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 2082a-2082c StackAdj>                       Δ+10               {}
            <Const 0x2082c 0x404.4>                          Δ-4                {[##1028]}
            <MI 20830  LEA.L   0x21fc0,A0>                                      {[##1028]}
            <MI 20832  MOVE.L  A0,-(A7)>                     Δ-4                {[##1028]|[4, 'A0']}
            <Const 0x20834 0x2.2>                            Δ-2                {[##1028]|[4, 'A0']|[#2]}
            <Call 0x20836 0x10238>                                              {[##1028]|[4, 'A0']|[#2]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20838-2083a StackAdj>                       Δ+10               {}
            <Const 0x2083a 0x406.4>                          Δ-4                {[##1030]}
            <MI 2083e  LEA.L   0x21fc2,A0>                                      {[##1030]}
            <MI 20844  MOVE.L  A0,-(A7)>                     Δ-4                {[##1030]|[4, 'A0']}
            <Const 0x20846 0x2.2>                            Δ-2                {[##1030]|[4, 'A0']|[#2]}
            <Call 0x20848 0x10238>                                              {[##1030]|[4, 'A0']|[#2]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 2084a-2084c StackAdj>                       Δ+10               {}
            <Const 0x2084c 0x408.4>                          Δ-4                {[##1032]}
            <MI 20850  LEA.L   0x21fc4,A0>                                      {[##1032]}
            <MI 20856  MOVE.L  A0,-(A7)>                     Δ-4                {[##1032]|[4, 'A0']}
            <Const 0x20858 0x4.2>                            Δ-2                {[##1032]|[4, 'A0']|[#4]}
            <Call 0x2085a 0x10238>                                              {[##1032]|[4, 'A0']|[#4]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 2085c-2085e StackAdj>                       Δ+10               {}
            <Const 0x2085e 0x40c.4>                          Δ-4                {[##1036]}
            <MI 20862  LEA.L   0x21fc8,A0>                                      {[##1036]}
            <MI 20864  MOVE.L  A0,-(A7)>                     Δ-4                {[##1036]|[4, 'A0']}
            <Const 0x20866 0x4.2>                            Δ-2                {[##1036]|[4, 'A0']|[#4]}
            <Call 0x20868 0x10238>                                              {[##1036]|[4, 'A0']|[#4]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 2086a-2086c StackAdj>                       Δ+10               {}
            <MI 2086c  MOVEQ.L #0x00,D0>                                        {}
            <MI 2086e  MULU.W  0x21fc0,D0>                                      {}
            <MI 20870  CLR.L   D1>                                              {}
            <MI 20872  MOVE.W  D0,D1>                                           {}
            <MI 20874  ADD.L   0x21fc8,D1>                                      {}
            <MI 20876  MOVE.L  D1,0x21fcc>                                      {}
        <POP 2087c-20884 Epilogue>                           Σ0         

0x20884


@ 20884
        <LVAR -0x006 @>
        <LVAR -0x008 @ 1(r)>
        <LVAR -0x00c @ 4(rw)>
    <POP 20884-209f2 Body>                                              
        <POP 20884-2089a Prologue>                           Σ0         ↓
        <POP 2089a-208aa RegCacheLoad>                       Σ0         ↓
        <POP 208aa-208fa Naked>                              Σ0         ↓ →0x20912
            <MI 208aa  MOVEQ.L #0x04,D7>                                        {}
            <Blob 0x208ac [10] @>                            Δ-10               {[«10""»]}
            <POP 208b8-208ba StackAdj>                       Δ-8                {[«10""»]|[-8-]}
            <Lit 0x208ba 10>                                                    {[«10""»]|[-4-]|[$$R1000_DUMP]}
            <MI 208c8  MOVE.L  D7,(A7)>                                         {[«10""»]|[-4-]|[4, 'D7']}
            <POP 208c2-208c8 StackAdj>                       Δ-8                {[«10""»]|[-4-]|[4, 'D7']|[-8-]}
            <Call 0x208ca 0x102e4>                                              {[«10""»]|[-4-]|[4, 'D7']|[-8-]}
                Long2String(a : Long) : String
            <POP 208d0-208d2 StackAdj>                       Δ+4                {[«10""»]|[-4-]|[4, 'D7']|[-4-]}
            <Call 0x208d2 0x102d0>                                              {[«10""»]|[-4-]|[4, 'D7']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 208d8-208da StackAdj>                       Δ+8                {[«10""»]|[-4-]}
            <MI 208da  MOVEA.L (A7)+,A4>                     Δ+4                {[«10""»]}
            <POP 208dc-208de StackAdj>                       Δ+6                {[-4-]}
            <MI 208de  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <MI 208e0  CLR.B   -(A7)>                        Δ-2                {[4, 'A4']|[#0]}
            <MI 208e2  CLR.B   -(A7)>                        Δ-2                {[4, 'A4']|[#0]|[#0]}
            <Const 0x208e4 0x0.4>                            Δ-4                {[4, 'A4']|[#0]|[#0]|[##0]}
            <Pointer.fp 0x208e8 <LVAR -0x008 @ 1(r)>>        Δ-4                {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]}
            <Pointer.fp 0x208ea <LVAR -0x006 @>>             Δ-4                {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]|[@@-6]}
            <Call 0x208ee 0x10380>                                              {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]|[@@-6]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 208f4-208f6 StackAdj>                       Δ+20               {}
            <MI 208f6  TST.B   (A6-0x8)>                                        {}
            <MI 208f8  BNE     0x20912>                                         {}
        <POP 208fa-20912 Naked>                              Σ0         ↓
            <Const 0x208fa 0x2.2>                            Δ-2                {[#2]}
            <MI 208fe  CLR.B   -(A7)>                        Δ-2                {[#2]|[#0]}
            <Const 0x20900 0x1.4>                            Δ-4                {[#2]|[#0]|[##1]}
            <Pointer.fp 0x20904 <LVAR -0x008 @ 1(r)>>        Δ-4                {[#2]|[#0]|[##1]|[@@-8]}
            <Pointer.fp 0x20906 <LVAR -0x006 @>>             Δ-4                {[#2]|[#0]|[##1]|[@@-8]|[@@-6]}
            <Call 0x2090a 0x1038c>                                              {[#2]|[#0]|[##1]|[@@-8]|[@@-6]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20910-20912 StackAdj>                       Δ+16               {}
        <POP 20912-20914 Naked>                              Σ0         ↓ ←0x208aa
            <MI 20912  MOVE.L  A4,(A6-0xc)>                                     {}
        <POP 20914-20964 Naked>                              Σ0         ↓ →0x20978 ←0x20978
            <MI 20914  SUBQ.L  #0x1,D7>                                         {}
            <Blob 0x20916 [10] @>                            Δ-10               {[«10""»]}
            <POP 20922-20924 StackAdj>                       Δ-8                {[«10""»]|[-8-]}
            <Lit 0x20924 10>                                                    {[«10""»]|[-4-]|[$$R1000_DUMP]}
            <MI 20932  MOVE.L  D7,(A7)>                                         {[«10""»]|[-4-]|[4, 'D7']}
            <POP 2092c-20932 StackAdj>                       Δ-8                {[«10""»]|[-4-]|[4, 'D7']|[-8-]}
            <Call 0x20934 0x102e4>                                              {[«10""»]|[-4-]|[4, 'D7']|[-8-]}
                Long2String(a : Long) : String
            <POP 2093a-2093c StackAdj>                       Δ+4                {[«10""»]|[-4-]|[4, 'D7']|[-4-]}
            <Call 0x2093c 0x102d0>                                              {[«10""»]|[-4-]|[4, 'D7']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20942-20944 StackAdj>                       Δ+8                {[«10""»]|[-4-]}
            <MI 20944  MOVEA.L (A7)+,A4>                     Δ+4                {[«10""»]}
            <POP 20946-20948 StackAdj>                       Δ+6                {[-4-]}
            <MI 20948  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <MI 2094a  CLR.B   -(A7)>                        Δ-2                {[4, 'A4']|[#0]}
            <MI 2094c  CLR.B   -(A7)>                        Δ-2                {[4, 'A4']|[#0]|[#0]}
            <Const 0x2094e 0x0.4>                            Δ-4                {[4, 'A4']|[#0]|[#0]|[##0]}
            <Pointer.fp 0x20952 <LVAR -0x008 @ 1(r)>>        Δ-4                {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]}
            <Pointer.fp 0x20954 <LVAR -0x006 @>>             Δ-4                {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]|[@@-6]}
            <Call 0x20958 0x10380>                                              {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]|[@@-6]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 2095e-20960 StackAdj>                       Δ+20               {}
            <MI 20960  TST.B   (A6-0x8)>                                        {}
            <MI 20962  BNE     0x20978>                                         {}
        <POP 20964-20978 Naked>                              Σ0         ↓
            <Const 0x20964 0x1.2>                            Δ-2                {[#1]}
            <Const 0x20966 0x1.2>                            Δ-2                {[#1]|[#1]}
            <MI 20968  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[#1]|[#1]|[4, '(A6-0xc)']}
            <Pointer.fp 0x2096a <LVAR -0x008 @ 1(r)>>        Δ-4                {[#1]|[#1]|[4, '(A6-0xc)']|[@@-8]}
            <Pointer.fp 0x2096c <LVAR -0x006 @>>             Δ-4                {[#1]|[#1]|[4, '(A6-0xc)']|[@@-8]|[@@-6]}
            <Call 0x20970 0x1038c>                                              {[#1]|[#1]|[4, '(A6-0xc)']|[@@-8]|[@@-6]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20976-20978 StackAdj>                       Δ+16               {}
        <POP 20978-20988 Naked>                              Σ0         ↓ →0x20914 ←0x20914
            <Pointer.fp 0x20978 <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x2097a 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 20980-20982 StackAdj>                       Δ+4                {}
            <MI 20982  MOVE.L  A4,(A6-0xc)>                                     {}
            <MI 20984  CMP.L   #0x01,D7>                                        {}
            <MI 20986  BNE     0x20914>                                         {}
        <POP 20988-209a6 Naked>                              Σ0         ↓ →0x209da
            <MI 20988  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0xc)']}
            <Const 0x2098a 0x1.2>                            Δ-2                {[4, '(A6-0xc)']|[#1]}
            <Const 0x2098c 0x1.2>                            Δ-2                {[4, '(A6-0xc)']|[#1]|[#1]}
            <Const 0x2098e 0x28.4>                           Δ-4                {[4, '(A6-0xc)']|[#1]|[#1]|[##40]}
            <Pointer.fp 0x20992 <LVAR -0x008 @ 1(r)>>        Δ-4                {[4, '(A6-0xc)']|[#1]|[#1]|[##40]|[@@-8]}
            <Const 0x20994 0x21786.4>                        Δ-4                {[4, '(A6-0xc)']|[#1]|[#1]|[##40]|[@@-8]|[##137094]}
            <Call 0x2099a 0x10380>                                              {[4, '(A6-0xc)']|[#1]|[#1]|[##40]|[@@-8]|[##137094]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 209a0-209a2 StackAdj>                       Δ+20               {}
            <MI 209a2  TST.B   (A6-0x8)>                                        {}
            <MI 209a4  BEQ     0x209da>                                         {}
        <POP 209a6-209da Naked>                              Σ0         ↓
            <Blob 0x209a6 [36] @>                            Δ-36               {[«36""»]}
            <Const 0x209b8 0xe.2>                            Δ-2                {[«36""»]|[#14]}
            <POP 209bc-209be StackAdj>                       Δ-4                {[«36""»]|[#14]|[-4-]}
            <Lit 0x209be 35>                                                    {[«36""»]|[#14]|[$$could not create new TOMBSTONE file]}
            <Call 0x209d0 0x103b8>                                              {[«36""»]|[#14]|[$$could not create new TOMBSTONE file]}
                PopProgram(status : Byte; msg : String)
            <POP 209d6-209da StackAdj>                       Δ+42               {}
        <POP 209da-209ea Naked>                              Σ0         ↓ ←0x20988
            <Pointer.fp 0x209da <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x209dc 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 209e2-209e4 StackAdj>                       Δ+4                {}
            <MI 209e4  MOVE.W  #0x01,0x21b8e>                                   {}
        <POP 209ea-209f2 Epilogue>                           Σ0         

0x209f2


@ 209f2
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x008 @>
    <POP 209f2-20b44 Body>                                              
        <POP 209f2-20a08 Prologue>                           Σ0         ↓
        <POP 20a08-20a20 RegCacheLoad>                       Σ0         ↓
        <POP 20a20-20b3c Naked>                              Σ0         ↓
            <MI 20a20  MOVE.W  0x21b8e,0x21b94>                                 {}
            <Blob 0x20a2a [10] @>                            Δ-10               {[«10""»]}
            <POP 20a3c-20a3e StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x20a3e 9>                                                     {[«10""»]|[$$IOP_DUMP1]}
            <POP 20a4e-20a50 StackAdj>                       Δ-2                {[«10""»]|[$$IOP_DUMP1]|[-2-]}
            <MI 20a50  CLR.B   (A7)>                                            {[«10""»]|[$$IOP_DUMP1]|[-2-]}
            <Const 0x20a52 0x2.2>                            Δ-2                {[«10""»]|[$$IOP_DUMP1]|[-2-]|[#2]}
            <Const 0x20a54 0x0.4>                            Δ-4                {[«10""»]|[$$IOP_DUMP1]|[-2-]|[#2]|[##0]}
            <Pointer.fp 0x20a58 <LVAR -0x008 @>>             Δ-4                {[«10""»]|[$$IOP_DUMP1]|[-2-]|[#2]|[##0]|[@@-8]}
            <Pointer.fp 0x20a5a <LVAR -0x006 @ 4(r)>>        Δ-4                {[«10""»]|[$$IOP_DUMP1]|[-2-]|[#2]|[##0]|[@@-8]|[@@-6]}
            <Call 0x20a5c 0x10380>                                              {[«10""»]|[$$IOP_DUMP1]|[-2-]|[#2]|[##0]|[@@-8]|[@@-6]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 20a62-20a66 StackAdj>                       Δ+30               {}
            <MI 20a66  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 20a68  MOVE.B  (A0+0x3a),0x21f90>                               {}
            <MI 20a70  MOVE.B  (A0+0x3b),0x21f91>                               {}
            <MI 20a78  MOVE.B  (A0+0x3c),0x21f92>                               {}
            <MI 20a80  MOVE.B  (A0+0x3d),0x21f93>                               {}
            <MI 20a88  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Const 0x20a8a 0x1.2>                            Δ-2                {[4, '(A6-0x6)']|[#1]}
            <MI 20a8c  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x6)']|[#1]|[#0]}
            <Const 0x20a8e 0x200.2>                          Δ-2                {[4, '(A6-0x6)']|[#1]|[#0]|[#512]}
            <Const 0x20a90 0x2.2>                            Δ-2                {[4, '(A6-0x6)']|[#1]|[#0]|[#512]|[#2]}
            <Blob 0x20a92 [4] 0x21b8a>                       Δ-4                {[4, '(A6-0x6)']|[#1]|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x20a94 <LVAR -0x008 @>>             Δ-4                {[4, '(A6-0x6)']|[#1]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
            <Call 0x20a96 0x10384>                                              {[4, '(A6-0x6)']|[#1]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 20a9c-20a9e StackAdj>                       Δ+16               {[4, '(A6-0x6)']}
            <POP 20a9e-20a9f StackAdj>                       Δ+4                {}
            <Blob 0x20a9f [4] 0x21786>                       Δ-4                {[«4»]}
            <Const 0x20aa4 0x1.2>                            Δ-2                {[«4»]|[#1]}
            <MI 20aa6  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#1]|[#0]}
            <Const 0x20aa8 0x200.2>                          Δ-2                {[«4»]|[#1]|[#0]|[#512]}
            <Const 0x20aaa 0x2.2>                            Δ-2                {[«4»]|[#1]|[#0]|[#512]|[#2]}
            <Blob 0x20aac [4] 0x21b8a>                       Δ-4                {[«4»]|[#1]|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x20aae <LVAR -0x008 @>>             Δ-4                {[«4»]|[#1]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
            <Call 0x20ab0 0x10388>                                              {[«4»]|[#1]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 20ab6-20ab8 StackAdj>                       Δ+16               {[«4»]}
            <MI 20ab8  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <Const 0x20aba 0x3e.2>                           Δ-2                {[4, '(A6-0x6)']|[#62]}
            <MI 20abe  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x6)']|[#62]|[#0]}
            <Const 0x20ac0 0x200.2>                          Δ-2                {[4, '(A6-0x6)']|[#62]|[#0]|[#512]}
            <Const 0x20ac2 0x2.2>                            Δ-2                {[4, '(A6-0x6)']|[#62]|[#0]|[#512]|[#2]}
            <Blob 0x20ac4 [4] 0x21b8a>                       Δ-4                {[4, '(A6-0x6)']|[#62]|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x20ac6 <LVAR -0x008 @>>             Δ-4                {[4, '(A6-0x6)']|[#62]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
            <Call 0x20ac8 0x10384>                                              {[4, '(A6-0x6)']|[#62]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 20ace-20ad0 StackAdj>                       Δ+16               {[4, '(A6-0x6)']}
            <POP 20ad0-20ad1 StackAdj>                       Δ+4                {}
            <Blob 0x20ad1 [4] 0x21786>                       Δ-4                {[«4»]}
            <Const 0x20ad6 0x2.2>                            Δ-2                {[«4»]|[#2]}
            <MI 20ad8  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#2]|[#0]}
            <Const 0x20ada 0x200.2>                          Δ-2                {[«4»]|[#2]|[#0]|[#512]}
            <Const 0x20adc 0x2.2>                            Δ-2                {[«4»]|[#2]|[#0]|[#512]|[#2]}
            <Blob 0x20ade [4] 0x21b8a>                       Δ-4                {[«4»]|[#2]|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x20ae0 <LVAR -0x008 @>>             Δ-4                {[«4»]|[#2]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
            <Call 0x20ae2 0x10388>                                              {[«4»]|[#2]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 20ae8-20aea StackAdj>                       Δ+16               {[«4»]}
            <MI 20aea  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <Const 0x20aec 0x3f.2>                           Δ-2                {[4, '(A6-0x6)']|[#63]}
            <MI 20af0  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x6)']|[#63]|[#0]}
            <Const 0x20af2 0x200.2>                          Δ-2                {[4, '(A6-0x6)']|[#63]|[#0]|[#512]}
            <Const 0x20af4 0x2.2>                            Δ-2                {[4, '(A6-0x6)']|[#63]|[#0]|[#512]|[#2]}
            <Blob 0x20af6 [4] 0x21b8a>                       Δ-4                {[4, '(A6-0x6)']|[#63]|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x20af8 <LVAR -0x008 @>>             Δ-4                {[4, '(A6-0x6)']|[#63]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
            <Call 0x20afa 0x10384>                                              {[4, '(A6-0x6)']|[#63]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 20b00-20b02 StackAdj>                       Δ+16               {[4, '(A6-0x6)']}
            <POP 20b02-20b03 StackAdj>                       Δ+4                {}
            <Blob 0x20b03 [4] 0x21786>                       Δ-4                {[«4»]}
            <Const 0x20b08 0x3.2>                            Δ-2                {[«4»]|[#3]}
            <MI 20b0c  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#3]|[#0]}
            <Const 0x20b0e 0x200.2>                          Δ-2                {[«4»]|[#3]|[#0]|[#512]}
            <Const 0x20b10 0x2.2>                            Δ-2                {[«4»]|[#3]|[#0]|[#512]|[#2]}
            <Blob 0x20b12 [4] 0x21b8a>                       Δ-4                {[«4»]|[#3]|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x20b14 <LVAR -0x008 @>>             Δ-4                {[«4»]|[#3]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
            <Call 0x20b16 0x10388>                                              {[«4»]|[#3]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 20b1c-20b20 StackAdj>                       Δ+20               {}
            <MI 20b20  MOVE.W  #0x4,0x21b8e>                                    {}
            <MI 20b28  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x20b2a 0x1.2>                            Δ-2                {[#0]|[#1]}
            <Const 0x20b2c 0x1.4>                            Δ-4                {[#0]|[#1]|[##1]}
            <Pointer.fp 0x20b30 <LVAR -0x008 @>>             Δ-4                {[#0]|[#1]|[##1]|[@@-8]}
            <Pointer.fp 0x20b32 <LVAR -0x006 @ 4(r)>>        Δ-4                {[#0]|[#1]|[##1]|[@@-8]|[@@-6]}
            <Call 0x20b34 0x1038c>                                              {[#0]|[#1]|[##1]|[@@-8]|[@@-6]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20b3a-20b3c StackAdj>                       Δ+16               {}
        <POP 20b3c-20b44 Epilogue>                           Σ0         

0x20b44


@ 20b44
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x008 @>
    <POP 20b44-20c1c Body>                                              
        <POP 20b44-20b5a Prologue>                           Σ0         ↓
        <POP 20b5a-20b74 RegCacheLoad>                       Σ0         ↓
        <POP 20b74-20bbe Naked>                              Σ0 Δ-4     ↓
            <MI 20b74  MOVE.W  0x21b8e,0x21b96>                                 {}
            <Blob 0x20b7a [22] @>                            Δ-22               {[«22""»]}
            <POP 20b86-20b88 StackAdj>                       Δ-4                {[«22""»]|[-4-]}
            <Lit 0x20b88 22>                                                    {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]}
            <POP 20b98-20b9a StackAdj>                       Δ-2                {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]}
            <MI 20b9a  CLR.B   (A7)>                                            {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]}
            <Const 0x20b9c 0x2.2>                            Δ-2                {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#2]}
            <Const 0x20b9e 0x0.4>                            Δ-4                {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#2]|[##0]}
            <Pointer.fp 0x20ba2 <LVAR -0x008 @>>             Δ-4                {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#2]|[##0]|[@@-8]}
            <Pointer.fp 0x20ba4 <LVAR -0x006 @ 4(r)>>        Δ-4                {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#2]|[##0]|[@@-8]|[@@-6]}
            <Call 0x20ba6 0x10380>                                              {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#2]|[##0]|[@@-8]|[@@-6]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 20bac-20bb0 StackAdj>                       Δ+42               {}
            <MI 20bb0  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 20bb2  MOVE.W  (A0+0x20),D0>                                    {}
            <MI 20bb6  SUBQ.W  #0x1,D0>                                         {}
            <MI 20bb8  EXTW.L  D0>                                              {}
            <MI 20bba  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 20bbc  MOVEQ.L #0x00,D7>                                        {[4, 'D0']}
        <POP 20bbe-20bc2 Naked>                              Σ-4        ↓ →0x20bfe ←0x20bc2
            <MI 20bbe  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 20bc0  BGT     0x20bfe>                                         {[-4-]}
        <POP 20bc2-20bfe Naked>                              Σ-4        ↓ →0x20bbe
            <MI 20bc2  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']}
            <MI 20bc4  MOVE.W  D7,-(A7)>                     Δ-2                {[-4-]|[4, '(A6-0x6)']|[2, 'D7']}
            <MI 20bc6  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, '(A6-0x6)']|[2, 'D7']|[#0]}
            <Const 0x20bc8 0x200.2>                          Δ-2                {[-4-]|[4, '(A6-0x6)']|[2, 'D7']|[#0]|[#512]}
            <Const 0x20bcc 0x2.2>                            Δ-2                {[-4-]|[4, '(A6-0x6)']|[2, 'D7']|[#0]|[#512]|[#2]}
            <Blob 0x20bce [4] 0x21b8a>                       Δ-4                {[-4-]|[4, '(A6-0x6)']|[2, 'D7']|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x20bd0 <LVAR -0x008 @>>             Δ-4                {[-4-]|[4, '(A6-0x6)']|[2, 'D7']|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
            <Call 0x20bd2 0x10384>                                              {[-4-]|[4, '(A6-0x6)']|[2, 'D7']|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 20bd8-20bda StackAdj>                       Δ+16               {[-4-]|[4, '(A6-0x6)']}
            <POP 20bda-20bdb StackAdj>                       Δ+4                {[-4-]}
            <Blob 0x20bdb [4] 0x21786>                       Δ-4                {[-4-]|[«4»]}
            <Blob 0x20be0 [2] 0x21b8e>                       Δ-2                {[-4-]|[«4»]|[«2»]}
            <MI 20be2  CLR.W   -(A7)>                        Δ-2                {[-4-]|[«4»]|[«2»]|[#0]}
            <Const 0x20be4 0x200.2>                          Δ-2                {[-4-]|[«4»]|[«2»]|[#0]|[#512]}
            <Const 0x20be8 0x2.2>                            Δ-2                {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]}
            <Blob 0x20bea [4] 0x21b8a>                       Δ-4                {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x20bec <LVAR -0x008 @>>             Δ-4                {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
            <Call 0x20bee 0x10388>                                              {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 20bf4-20bf8 StackAdj>                       Δ+20               {[-4-]}
            <MI 20bf8  ADDQ.W  #0x1,0x21b8e>                                    {[-4-]}
            <MI 20bfa  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 20bfc  BVC     0x20bbe>                                         {[-4-]}
        <POP 20bfe-20c14 Naked>                              Σ-4 Δ+4    ↓ ←0x20bbe
            <POP 20bfe-20c00 StackAdj>                       Δ+2                {[-2-]}
            <MI 20c00  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x20c02 0x1.2>                            Δ-2                {[-2-]|[#1]}
            <Const 0x20c04 0x1.4>                            Δ-4                {[-2-]|[#1]|[##1]}
            <Pointer.fp 0x20c08 <LVAR -0x008 @>>             Δ-4                {[-2-]|[#1]|[##1]|[@@-8]}
            <Pointer.fp 0x20c0a <LVAR -0x006 @ 4(r)>>        Δ-4                {[-2-]|[#1]|[##1]|[@@-8]|[@@-6]}
            <Call 0x20c0c 0x1038c>                                              {[-2-]|[#1]|[##1]|[@@-8]|[@@-6]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20c12-20c14 StackAdj>                       Δ+16               {}
        <POP 20c14-20c1c Epilogue>                           Σ0         

0x20c1c


@ 20c1c
        <LVAR -0x004 @>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x405 1(r)>
        <LVAR -0x406 2(r)>
        <LVAR -0x408 @>
    <POP 20c1c-20ce6 Body>                                              
        <POP 20c1c-20c32 Prologue>                           Σ0         ↓
        <POP 20c32-20c3e RegCacheLoad>                       Σ0         ↓
        <POP 20c3e-20cde Naked>                              Σ0         ↓
            <Blob 0x20c3e [10] @>                            Δ-10               {[«10""»]}
            <POP 20c50-20c52 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x20c52 9>                                                     {[«10""»]|[$$ERROR_LOG]}
            <POP 20c62-20c64 StackAdj>                       Δ-2                {[«10""»]|[$$ERROR_LOG]|[-2-]}
            <MI 20c64  CLR.B   (A7)>                                            {[«10""»]|[$$ERROR_LOG]|[-2-]}
            <Const 0x20c66 0x1.2>                            Δ-2                {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]}
            <Const 0x20c68 0x0.4>                            Δ-4                {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]}
            <Pointer.fp 0x20c6c <LVAR -0x004 @>>             Δ-4                {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]|[@@-4]}
            <Pointer.fp 0x20c6e <LVAR -0x008 @ 4(r)>>        Δ-4                {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]|[@@-4]|[@@-8]}
            <Call 0x20c70 0x10380>                                              {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]|[@@-4]|[@@-8]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 20c76-20c7a StackAdj>                       Δ+26               {[-4-]}
            <MI 20c7a  MOVE.L  (A6-0x8),(A7)>                                   {[4, '(A6-0x8)']}
            <MI 20c7c  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x8)']|[#0]}
            <MI 20c7e  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x8)']|[#0]|[#0]}
            <Const 0x20c80 0x200.2>                          Δ-2                {[4, '(A6-0x8)']|[#0]|[#0]|[#512]}
            <Const 0x20c84 0x1.2>                            Δ-2                {[4, '(A6-0x8)']|[#0]|[#0]|[#512]|[#1]}
            <MI 20c86  LEA.L   (A6-0x408),A0>                                   {[4, '(A6-0x8)']|[#0]|[#0]|[#512]|[#1]}
            <MI 20c8a  MOVE.L  A0,-(A7)>                     Δ-4                {[4, '(A6-0x8)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']}
            <Pointer.fp 0x20c8c <LVAR -0x004 @>>             Δ-4                {[4, '(A6-0x8)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-4]}
            <Call 0x20c8e 0x10384>                                              {[4, '(A6-0x8)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-4]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 20c94-20c96 StackAdj>                       Δ+16               {[4, '(A6-0x8)']}
            <MI 20c96  MOVE.L  (A6-0x8),(A7)>                                   {[4, '(A6-0x8)']}
            <MI 20c98  MOVE.W  (A6-0x406),D0>                                   {[4, '(A6-0x8)']}
            <MI 20c9c  LSR.W   #0x3,D0>                                         {[4, '(A6-0x8)']}
            <MI 20c9e  ADDQ.W  #0x1,D0>                                         {[4, '(A6-0x8)']}
            <MI 20ca0  MOVE.W  D0,-(A7)>                     Δ-2                {[4, '(A6-0x8)']|[2, 'D0']}
            <MI 20ca2  CLR.L   D0>                                              {[4, '(A6-0x8)']|[2, 'D0']}
            <MI 20ca4  MOVE.B  (A6-0x405),D0>                                   {[4, '(A6-0x8)']|[2, 'D0']}
            <MI 20ca8  LSL.B   #0x5,D0>                                         {[4, '(A6-0x8)']|[2, 'D0']}
            <MI 20caa  LSR.B   #0x5,D0>                                         {[4, '(A6-0x8)']|[2, 'D0']}
            <MI 20cac  ASL.W   #0x6,D0>                                         {[4, '(A6-0x8)']|[2, 'D0']}
            <MI 20cae  MOVE.W  D0,-(A7)>                     Δ-2                {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']}
            <Const 0x20cb0 0x40.2>                           Δ-2                {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']|[#64]}
            <Const 0x20cb4 0x1.2>                            Δ-2                {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]}
            <MI 20cb6  LEA.L   0x21bd0,A0>                                      {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]}
            <MI 20cbc  MOVE.L  A0,-(A7)>                     Δ-4                {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]|[4, 'A0']}
            <Pointer.fp 0x20cbe <LVAR -0x004 @>>             Δ-4                {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]|[4, 'A0']|[@@-4]}
            <Call 0x20cc0 0x10384>                                              {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]|[4, 'A0']|[@@-4]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 20cc6-20cca StackAdj>                       Δ+18               {[-2-]}
            <MI 20cca  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x20ccc 0x1.2>                            Δ-2                {[-2-]|[#1]}
            <Const 0x20cce 0x1.4>                            Δ-4                {[-2-]|[#1]|[##1]}
            <Pointer.fp 0x20cd2 <LVAR -0x004 @>>             Δ-4                {[-2-]|[#1]|[##1]|[@@-4]}
            <Pointer.fp 0x20cd4 <LVAR -0x008 @ 4(r)>>        Δ-4                {[-2-]|[#1]|[##1]|[@@-4]|[@@-8]}
            <Call 0x20cd6 0x1038c>                                              {[-2-]|[#1]|[##1]|[@@-4]|[@@-8]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20cdc-20cde StackAdj>                       Δ+16               {}
        <POP 20cde-20ce6 Epilogue>                           Σ0         

0x20ce6


@ 20ce6
        <LVAR -0x004 @>
        <LVAR -0x00c @ 4(rw)>
    <POP 20ce6-20dec Body>                                              
        <POP 20ce6-20cfc Prologue>                           Σ0         ↓
        <POP 20cfc-20d0e RegCacheLoad>                       Σ0         ↓
        <POP 20d0e-20d54 Naked>                              Σ0         ↓
            <MI 20d0e  MOVE.W  0x21b8e,0x21b9a>                                 {}
            <POP 20d18-20d1a StackAdj>                       Δ-4                {[-4-]}
            <Blob 0x20d1a [4] 0x21f90>                       Δ-4                {[-4-]|[«4»]}
            <Call 0x20d1c 0x10308>                                              {[-4-]|[«4»]}
                TimeToText()
            <POP 20d22-20d24 StackAdj>                       Δ+4                {[-4-]}
            <MI 20d24  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {}
            <MI 20d26  MOVEA.L (A6-0xc),A0>                                     {}
            <MI 20d28  LEA.L   (A0+0x2),A0>                                     {}
            <MI 20d2c  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 20d2e  LEA.L   0x21b9c,A0>                                      {[4, 'A0']}
            <MI 20d34  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <Const 0x20d36 0x12.2>                           Δ-2                {[4, 'A0']|[4, 'A0']|[#18]}
            <Call 0x20d3a 0x10238>                                              {[4, 'A0']|[4, 'A0']|[#18]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20d40-20d44 StackAdj>                       Δ+10               {}
            <Pointer.fp 0x20d44 <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x20d46 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 20d4c-20d4e StackAdj>                       Δ+4                {}
            <Call 0x20d4e 0x20c1c>                                              {}
            <MI 20d52  MOVEQ.L #0x00,D7>                                        {}
        <POP 20d54-20d6c Naked>                              Σ0         ↓ →0x20d54 ←0x20d54
            <MI 20d54  MOVE.L  D7,D0>                                           {}
            <MI 20d56  ASL.L   #0x1,D0>                                         {}
            <MI 20d58  LEA.L   0x2177e,A0>                                      {}
            <MI 20d5e  CLR.W   (A0+D0.L+#0xc)>                                  {}
            <MI 20d62  ADDQ.L  #0x1,D7>                                         {}
            <MI 20d64  CMPI.L  #0x000001ff,D7>                                  {}
            <MI 20d6a  BLE     0x20d54>                                         {}
        <POP 20d6c-20de4 Naked>                              Σ0         ↓
            <MI 20d6c  LEA.L   0x21b90,A0>                                      {}
            <MI 20d72  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 20d74  LEA.L   0x2178a,A0>                                      {[4, 'A0']}
            <MI 20d7a  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <Const 0x20d7c 0x400.2>                          Δ-2                {[4, 'A0']|[4, 'A0']|[#1024]}
            <Call 0x20d80 0x10238>                                              {[4, 'A0']|[4, 'A0']|[#1024]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20d86-20d88 StackAdj>                       Δ+6                {[4, 'A0']}
            <POP 20d88-20d89 StackAdj>                       Δ+4                {}
            <Blob 0x20d89 [4] 0x21786>                       Δ-4                {[«4»]}
            <MI 20d8a  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#0]}
            <MI 20d8c  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#0]|[#0]}
            <Const 0x20d8e 0x200.2>                          Δ-2                {[«4»]|[#0]|[#0]|[#512]}
            <Const 0x20d92 0x2.2>                            Δ-2                {[«4»]|[#0]|[#0]|[#512]|[#2]}
            <Blob 0x20d96 [4] 0x21b8a>                       Δ-4                {[«4»]|[#0]|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x20d9c <LVAR -0x004 @>>             Δ-4                {[«4»]|[#0]|[#0]|[#512]|[#2]|[«4»]|[@@-4]}
            <Call 0x20da0 0x10388>                                              {[«4»]|[#0]|[#0]|[#512]|[#2]|[«4»]|[@@-4]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 20da6-20daa StackAdj>                       Δ+20               {}
            <MI 20daa  MOVEA.L 0x21786,A0>                                      {}
            <MI 20dac  MOVE.B  0x21f90,(A0+0x3a)>                               {}
            <MI 20db0  MOVE.B  0x21f91,(A0+0x3b)>                               {}
            <MI 20db8  MOVE.B  0x21f92,(A0+0x3c)>                               {}
            <MI 20dc0  MOVE.B  0x21f93,(A0+0x3d)>                               {}
            <MI 20dc8  MOVE.B  #0x01,(A0+0x4c)>                                 {}
            <MI 20dcc  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x20dce 0x1.2>                            Δ-2                {[#0]|[#1]}
            <Const 0x20dd0 0x1.4>                            Δ-4                {[#0]|[#1]|[##1]}
            <Pointer.fp 0x20dd4 <LVAR -0x004 @>>             Δ-4                {[#0]|[#1]|[##1]|[@@-4]}
            <Const 0x20dd8 0x21786.4>                        Δ-4                {[#0]|[#1]|[##1]|[@@-4]|[##137094]}
            <Call 0x20dda 0x1038c>                                              {[#0]|[#1]|[##1]|[@@-4]|[##137094]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20de0-20de4 StackAdj>                       Δ+16               {}
        <POP 20de4-20dec Epilogue>                           Σ0         

0x20dec


@ 20dec
START
    <POP 20dec--0001 Body>                                              
        <POP 20dec-20df6 Prologue>                           Σ0         
        <POP 20df6-20e08 RegCacheLoad>                       Σ0         ↓
        <POP 20e08-20eca Naked>                              Σ0 Δ-10    ↓ →0x20ef2
            <Call 0x20e08 0x10398>                                              {}
                FSCALL_10398
            <Call 0x20e0e 0x207ec>                                              {}
            <Const 0x20e12 0x1.4>                            Δ-4                {[##1]}
            <Call 0x20e16 0x104d8>                                              {[##1]}
                ExpInit(a : Long)
            <POP 20e1c-20e1e StackAdj>                       Δ+2                {[-2-]}
            <MI 20e1e  CLR.B   (A7)>                                            {[-2-]}
            <Call 0x20e20 0x104d2>                                              {[-2-]}
                SetExpInitDone(a : Byte)
            <POP 20e26-20e28 StackAdj>                       Δ+2                {}
            <MI 20e28  LEA.L   0x2178a,A0>                                      {}
            <MI 20e2e  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 20e30  MOVE.L  (A7)+,0x21b8a>                Δ+4                {}
            <MI 20e36  MOVE.W  #0x02,0x21b90>                                   {}
            <POP 20e3c-20e3e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x20e3e 0x105ec>                                              {[-2-]}
                Get_fc05() : Byte
            <MI 20e44  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 20e46  EXTB.W  D0>                                              {}
            <MI 20e48  MOVE.W  D0,0x21b92>                                      {}
            <MI 20e4e  CLR.W   0x21bae>                                         {}
            <Const 0x20e50 0xfcc0.4>                         Δ-4                {[##64704]}
            <MI 20e56  LEA.L   0x21c50,A0>                                      {[##64704]}
            <MI 20e5c  MOVE.L  A0,-(A7)>                     Δ-4                {[##64704]|[4, 'A0']}
            <Const 0x20e5e 0x340.2>                          Δ-2                {[##64704]|[4, 'A0']|[#832]}
            <Call 0x20e62 0x10238>                                              {[##64704]|[4, 'A0']|[#832]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20e68-20e6a StackAdj>                       Δ+6                {[##64704]}
            <POP 20e6a-20e6b StackAdj>                       Δ+4                {}
            <Const 0x20e6b 0xfc60.4>                         Δ-4                {[##64608]}
            <MI 20e70  LEA.L   0x21fd0,A0>                                      {[##64608]}
            <MI 20e72  MOVE.L  A0,-(A7)>                     Δ-4                {[##64608]|[4, 'A0']}
            <Const 0x20e74 0x4.2>                            Δ-2                {[##64608]|[4, 'A0']|[#4]}
            <Call 0x20e78 0x10238>                                              {[##64608]|[4, 'A0']|[#4]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20e7e-20e80 StackAdj>                       Δ+10               {}
            <MI 20e80  MOVE.L  0x21fd0,D0>                                      {}
            <MI 20e82  SUBI.L  #0x0000fcc0,D0>                                  {}
            <MI 20e88  ADDQ.L  #0x1,D0>                                         {}
            <MI 20e8a  MOVE.W  D0,0x21bb0>                                      {}
            <Call 0x20e90 0x20884>                                              {}
            <Call 0x20e94 0x209f2>                                              {}
            <Blob 0x20e98 [10] @>                            Δ-10               {[«10""»]}
            <POP 20ea4-20ea6 StackAdj>                       Δ-6                {[«10""»]|[-6-]}
            <Call 0x20ea6 0x103c4>                                              {[«10""»]|[-6-]}
                GetArgv() : String
            <POP 20eac-20eae StackAdj>                       Δ-4                {[«10""»]|[-10-]}
            <Lit 0x20eae 10>                                                    {[«10""»]|[-6-]|[$$DUMP_R1000]}
            <Call 0x20ebe 0x102c8>                                              {[«10""»]|[-6-]|[$$DUMP_R1000]}
                StringEqual(a, b : String) : Byte
            <POP 20ec4-20ec6 StackAdj>                       Δ+8                {[«10""»]|[-2-]}
            <MI 20ec6  TST.B   (A7)+>                        Δ+2                {[«10""»]}
            <MI 20ec8  BEQ     0x20ef2>                                         {[«10""»]}
        <POP 20eca-20eec Naked>                              Σ-10       ↓ →0x20eee
            <Call 0x20eca 0x2048c>                                              {[-10-]}
            <Call 0x20ece 0x20b44>                                              {[-10-]}
            <MI 20ed2  MOVE.W  #0x01,0x21bae>                                   {[-10-]}
            <Call 0x20ed4 0x20232>                                              {[-10-]}
            <Const 0x20ed8 0x21fd4.4>                        Δ-4                {[-10-]|[##139220]}
            <Call 0x20ede 0x206a4>                                              {[-10-]|[##139220]}
            <POP 20ee2-20ee4 StackAdj>                       Δ+4                {[-10-]}
            <MI 20ee4  TST.B   0x21fd4>                                         {[-10-]}
            <MI 20eea  BEQ     0x20eee>                                         {[-10-]}
        <POP 20eec-20eee Naked>                              Σ-10       ↓
            <MI 20eec  MOVE.W  #0x02,0x21bae>                                   {[-10-]}
        <POP 20eee-20ef2 Naked>                              Σ-10       ↓ ←0x20eca
            <Call 0x20eee 0x20386>                                              {[-10-]}
        <POP 20ef2-20f36 Naked>                              Σ-10 Δ+10  ↓ ←0x20e08
            <POP 20ef2-20ef4 StackAdj>                       Δ+10               {}
            <Call 0x20ef4 0x20ce6>                                              {}
            <Blob 0x20ef8 [60] @>                            Δ-60               {[«60""»]}
            <POP 20f0a-20f0c StackAdj>                       Δ-4                {[«60""»]|[-4-]}
            <Lit 0x20f0c 59>                                                    {[«60""»]|[$$R1000 Crash Save done - tombstone file R1000_DUMP1 created.]}
            <Call 0x20f1e 0x103e0>                                              {[«60""»]|[$$R1000 Crash Save done - tombstone file R1000_DUMP1 created.]}
                WriteConsoleStringCrLf(str : String)
            <POP 20f24-20f28 StackAdj>                       Δ+62               {[-2-]}
            <MI 20f28  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x20f2a 0x1.4>                            Δ-4                {[-2-]|[##1]}
            <Call 0x20f2e 0x103b8>                                              {[-2-]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 20f34-20f36 StackAdj>                       Δ+6                {}
        <POP 20f36-20f3c Naked>                              Σ0         
            <Call 0x20f36 0x10284>                                              {}
                ?exit

0x21138


@ 21138
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 21138-211e2 Body>                                   Δ+12       
        <POP 21138-2114e Prologue>                           Σ0         ↓
        <POP 2114e-21154 RegCacheLoad>                       Σ0         ↓
        <POP 21154-21160 Naked>                              Σ0         ↓ →0x21172
            <POP 21154-21156 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21156 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 2115c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2115e  BEQ     0x21172>                                         {}
        <POP 21160-21172 Naked>                              Σ0 Δ-12    →0x21182
            <Blob 0x21160 [12] @>                            Δ-12               {[«12""»]}
            <MI 21170  BRA     0x21182>                                         {[«12""»]}
        <POP 21172-21182 Naked>                              Σ0 Δ-12    ↓ ←0x21154
            <Blob 0x21172 [12] @>                            Δ-12               {[«12""»]}
        <POP 21182-211da Naked>                              Σ-12 Δ+12  ↓ ←0x21160
            <POP 21182-21184 StackAdj>                       Δ-4                {[-16-]}
            <Lit 0x21184>                                                       {[-12-]|[$$…]}
                <Pointer.sp 0x21184 4>                       Δ-4        
                <Const 0x21188 0x1.2>                        Δ-2        
                <Const 0x2118c 0xb.2>                        Δ-2        
                <Call 0x21190 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21196-21198 StackAdj>                   Δ+8        
            <Pointer.fp 0x21198 <LVAR -0x004 @ 4(r)>>        Δ-4                {[-12-]|[$$…]|[@@-4]}
            <Call 0x2119a 0x10460>                                              {[-12-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 211a0-211a4 StackAdj>                       Δ+20               {}
            <MI 211a4  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <MI 211a8  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x211aa 4>                           Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x211ae 0x0.4>                            Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x211b2 0x0.4>                            Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x211b6 0x10466>                                              {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 211bc-211c0 StackAdj>                       Δ+16               {[2, '(A6+0x8)']}
            <MI 211c0  CLR.B   (A7)>                                            {[2, '(A6+0x8)']}
            <MI 211c2  MOVE.B  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0x8)']|[2, '(A6+0xa)']}
            <MI 211c6  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
            <Call 0x211c8 0x104ba>                                              {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 211ce-211d0 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x211d0 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x211d2 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 211d8-211da StackAdj>                       Δ+4                {}
        <POP 211da-211e2 Epilogue>                           Σ0         

0x211fe


@ 211fe
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 211fe-2128c Body>                                   Δ+14       
        <POP 211fe-21214 Prologue>                           Σ0         ↓
        <POP 21214-2121a RegCacheLoad>                       Σ0         ↓
        <POP 2121a-21226 Naked>                              Σ0         ↓ →0x21238
            <POP 2121a-2121c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2121c 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21222  TST.B   (A7)+>                        Δ+2                {}
            <MI 21224  BEQ     0x21238>                                         {}
        <POP 21226-21238 Naked>                              Σ0 Δ-14    →0x21248
            <Blob 0x21226 [14] @>                            Δ-14               {[«14""»]}
            <MI 21236  BRA     0x21248>                                         {[«14""»]}
        <POP 21238-21248 Naked>                              Σ0 Δ-14    ↓ ←0x2121a
            <Blob 0x21238 [14] @>                            Δ-14               {[«14""»]}
        <POP 21248-21284 Naked>                              Σ-14 Δ+14  ↓ ←0x21226
            <POP 21248-2124a StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x2124a>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x2124a 4>                       Δ-4        
                <Const 0x2124e 0x1.2>                        Δ-2        
                <Const 0x21252 0xd.2>                        Δ-2        
                <Call 0x21256 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2125c-2125e StackAdj>                   Δ+8        
            <Pointer.fp 0x2125e <LVAR -0x006 @ 4(r)>>        Δ-4                {[-14-]|[$$…]|[@@-6]}
            <Call 0x21260 0x10460>                                              {[-14-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 21266-2126a StackAdj>                       Δ+22               {}
            <MI 2126a  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 2126c  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 21270  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x21272 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21278-2127a StackAdj>                       Δ+8                {}
            <Pointer.fp 0x2127a <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x2127c 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 21282-21284 StackAdj>                       Δ+4                {}
        <POP 21284-2128c Epilogue>                           Σ0         

0x21298


@ 21298
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 21298-2131c Body>                                   Δ+6        
        <POP 21298-212ae Prologue>                           Σ0         ↓
        <POP 212ae-212b2 RegCacheLoad>                       Σ0         ↓
        <POP 212b2-212be Naked>                              Σ0         ↓ →0x212cc
            <POP 212b2-212b4 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x212b4 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 212ba  TST.B   (A7)+>                        Δ+2                {}
            <MI 212bc  BEQ     0x212cc>                                         {}
        <POP 212be-212cc Naked>                              Σ0 Δ-6     →0x212d8
            <Blob 0x212be [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x212c2 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x212c6 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <MI 212ca  BRA     0x212d8>                                         {[«2""»]|[«2""»]|[«2""»]}
        <POP 212cc-212d8 Naked>                              Σ0 Δ-6     ↓ ←0x212b2
            <Blob 0x212cc [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x212d0 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x212d4 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
        <POP 212d8-21314 Naked>                              Σ-6 Δ+6    ↓ ←0x212be
            <POP 212d8-212da StackAdj>                       Δ-4                {[-10-]}
            <Lit 0x212da>                                                       {[-6-]|[$$…]}
                <Pointer.sp 0x212da 4>                       Δ-4        
                <Const 0x212de 0x1.2>                        Δ-2        
                <Const 0x212e2 0x6.2>                        Δ-2        
                <Call 0x212e6 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 212ec-212ee StackAdj>                   Δ+8        
            <Pointer.fp 0x212ee <LVAR -0x006 @ 4(r)>>        Δ-4                {[-6-]|[$$…]|[@@-6]}
            <Call 0x212f0 0x10460>                                              {[-6-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 212f6-212fa StackAdj>                       Δ+14               {}
            <MI 212fa  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 212fc  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 21300  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x21302 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21308-2130a StackAdj>                       Δ+8                {}
            <Pointer.fp 0x2130a <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x2130c 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 21312-21314 StackAdj>                       Δ+4                {}
        <POP 21314-2131c Epilogue>                           Σ0         

0x2134c


@ 2134c
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 2134c-213da Body>                                   Δ+24       
        <POP 2134c-21362 Prologue>                           Σ0         ↓
        <POP 21362-21368 RegCacheLoad>                       Σ0         ↓
        <POP 21368-21374 Naked>                              Σ0         ↓ →0x21386
            <POP 21368-2136a StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2136a 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21370  TST.B   (A7)+>                        Δ+2                {}
            <MI 21372  BEQ     0x21386>                                         {}
        <POP 21374-21386 Naked>                              Σ0 Δ-24    →0x21396
            <Blob 0x21374 [24] @>                            Δ-24               {[«24""»]}
            <MI 21384  BRA     0x21396>                                         {[«24""»]}
        <POP 21386-21396 Naked>                              Σ0 Δ-24    ↓ ←0x21368
            <Blob 0x21386 [24] @>                            Δ-24               {[«24""»]}
        <POP 21396-213d2 Naked>                              Σ-24 Δ+24  ↓ ←0x21374
            <POP 21396-21398 StackAdj>                       Δ-4                {[-28-]}
            <Lit 0x21398>                                                       {[-24-]|[$$…]}
                <Pointer.sp 0x21398 4>                       Δ-4        
                <Const 0x2139c 0x1.2>                        Δ-2        
                <Const 0x213a0 0x17.2>                       Δ-2        
                <Call 0x213a4 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 213aa-213ac StackAdj>                   Δ+8        
            <Pointer.fp 0x213ac <LVAR -0x006 @ 4(r)>>        Δ-4                {[-24-]|[$$…]|[@@-6]}
            <Call 0x213ae 0x10460>                                              {[-24-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 213b4-213b8 StackAdj>                       Δ+32               {}
            <MI 213b8  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 213ba  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 213be  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x213c0 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 213c6-213c8 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x213c8 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x213ca 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 213d0-213d2 StackAdj>                       Δ+4                {}
        <POP 213d2-213da Epilogue>                           Σ0         

0x213f6


@ 213f6
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 213f6-2147a Body>                                   Δ+14       
        <POP 213f6-2140c Prologue>                           Σ0         ↓
        <POP 2140c-21410 RegCacheLoad>                       Σ0         ↓
        <POP 21410-2141c Naked>                              Σ0         ↓ →0x2142a
            <POP 21410-21412 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21412 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21418  TST.B   (A7)+>                        Δ+2                {}
            <MI 2141a  BEQ     0x2142a>                                         {}
        <POP 2141c-2142a Naked>                              Σ0 Δ-14    →0x21436
            <Blob 0x2141c [14] @>                            Δ-14               {[«14""»]}
            <MI 21428  BRA     0x21436>                                         {[«14""»]}
        <POP 2142a-21436 Naked>                              Σ0 Δ-14    ↓ ←0x21410
            <Blob 0x2142a [14] @>                            Δ-14               {[«14""»]}
        <POP 21436-21472 Naked>                              Σ-14 Δ+14  ↓ ←0x2141c
            <POP 21436-21438 StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x21438>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x21438 4>                       Δ-4        
                <Const 0x2143c 0x1.2>                        Δ-2        
                <Const 0x21440 0xe.2>                        Δ-2        
                <Call 0x21444 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2144a-2144c StackAdj>                   Δ+8        
            <Pointer.fp 0x2144c <LVAR -0x006 @ 4(r)>>        Δ-4                {[-14-]|[$$…]|[@@-6]}
            <Call 0x2144e 0x10460>                                              {[-14-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 21454-21458 StackAdj>                       Δ+22               {}
            <MI 21458  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 2145a  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 2145e  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x21460 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21466-21468 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x21468 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x2146a 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 21470-21472 StackAdj>                       Δ+4                {}
        <POP 21472-2147a Epilogue>                           Σ0         

0x214a2


@ 214a2
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 214a2-21530 Body>                                   Δ+20       
        <POP 214a2-214b8 Prologue>                           Σ0         ↓
        <POP 214b8-214be RegCacheLoad>                       Σ0         ↓
        <POP 214be-214ca Naked>                              Σ0         ↓ →0x214dc
            <POP 214be-214c0 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x214c0 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 214c6  TST.B   (A7)+>                        Δ+2                {}
            <MI 214c8  BEQ     0x214dc>                                         {}
        <POP 214ca-214dc Naked>                              Σ0 Δ-20    →0x214ec
            <Blob 0x214ca [20] @>                            Δ-20               {[«20""»]}
            <MI 214da  BRA     0x214ec>                                         {[«20""»]}
        <POP 214dc-214ec Naked>                              Σ0 Δ-20    ↓ ←0x214be
            <Blob 0x214dc [20] @>                            Δ-20               {[«20""»]}
        <POP 214ec-21528 Naked>                              Σ-20 Δ+20  ↓ ←0x214ca
            <POP 214ec-214ee StackAdj>                       Δ-4                {[-24-]}
            <Lit 0x214ee>                                                       {[-20-]|[$$…]}
                <Pointer.sp 0x214ee 4>                       Δ-4        
                <Const 0x214f2 0x1.2>                        Δ-2        
                <Const 0x214f6 0x13.2>                       Δ-2        
                <Call 0x214fa 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21500-21502 StackAdj>                   Δ+8        
            <Pointer.fp 0x21502 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-20-]|[$$…]|[@@-6]}
            <Call 0x21504 0x10460>                                              {[-20-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 2150a-2150e StackAdj>                       Δ+28               {}
            <MI 2150e  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 21510  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 21514  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x21516 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 2151c-2151e StackAdj>                       Δ+8                {}
            <Pointer.fp 0x2151e <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x21520 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 21526-21528 StackAdj>                       Δ+4                {}
        <POP 21528-21530 Epilogue>                           Σ0         

0x21586


@ 21586
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 21586-215ee Body>                                              
        <POP 21586-2159c Prologue>                           Σ0         ↓
        <POP 2159c-215e6 Naked>                              Σ0         ↓
            <Blob 0x2159c [14] @>                            Δ-14               {[«14""»]}
            <Const 0x215a8 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 215ac-215ae StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x215ae 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 215c0-215c2 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 215c2  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 215c6  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 215c8  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 215ca  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x215cc 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 215d2-215d4 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x215d4 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 215da-215dc StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x215dc 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 215e2-215e6 StackAdj>                       Δ+20               {}
        <POP 215e6-215ee Epilogue>                           Σ0         

0x21642


@ 21642
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 21642-2177e Body>                                              
        <POP 21642-21658 Prologue>                           Σ0         ↓
        <POP 21658-2166e RegCacheLoad>                       Σ0         ↓
        <POP 2166e-216ce Naked>                              Σ0         ↓ →0x21716
            <Call 0x2166e 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x21674 [18] @>                            Δ-18               {[«18""»]}
            <POP 21680-21682 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x21682 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x2168e 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 21690-21691 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x21691 [14] @>                            Δ-14               {[«14""»]}
            <POP 216a0-216a2 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x216a2 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 216ac-216ae StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 216ae  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x216b2 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 216b8-216ba StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x216ba 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 216c0-216c2 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x216c2 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 216c4-216c6 StackAdj>                       Δ+18               {}
            <MI 216c6  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 216ca  CMPA.W  #0x01,A0>                                        {}
            <MI 216cc  BEQ     0x21716>                                         {}
        <POP 216ce-21716 Naked>                              Σ0         ↓
            <Blob 0x216ce [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x216de [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 216ee-216f0 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x216f0 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 216fa-216fc StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x216fc>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x216fc 12>                      Δ-4        
                <Const 0x21700 0x1.2>                        Δ-2        
                <Const 0x21702 0x1e.2>                       Δ-2        
                <Call 0x21704 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21706-21708 StackAdj>                   Δ+8        
            <Call 0x21708 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 2170e-21710 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x21710 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21712-21716 StackAdj>                       Δ+48               {}
        <POP 21716-21776 Naked>                              Σ0         ↓ ←0x2166e
            <Blob 0x21716 [14] @>                            Δ-14               {[«14""»]}
            <POP 21726-21728 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x21728 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 21732-21734 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 21734  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x21738 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 2173e-21740 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x21740 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21746-21748 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x21748 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2174a-2174b StackAdj>                       Δ+18       ↓       {}
            <Blob 0x2174b [24] @>                            Δ-24               {[«24""»]}
            <Const 0x2175a 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 2175e-21760 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x21760 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x2176e 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 21774-21776 StackAdj>                       Δ+30               {}
        <POP 21776-2177e Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.644f3e3ea57b3bf1
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 0d ec              |        |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 20 16              |        |		.PTR	0x22016
00020010					code.end:
00020010 00 02 17 7e              |   ~    |		.PTR	0x2177e
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 15 86              |        |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 16 42              |   B    |		.CODE	EXP_FAIL
00020020 00 00 00 00              |        |		.CONST	0x00000000
00020024					exp_init_done:
00020024 00                       |        |		.CONST	0x00
00020025 00                       |        |		.CONST	0x00
00020026 00 00                    |        |		.CONST	0x0000
00020028 00 00                    |        |		.CONST	0x0000
0002002a 00 00                    |        |		.XXX[0x2]
0002002c 00 00                    |        |		.CONST	0x0000
0002002e 00 00                    |        |		.CONST	0x0000
00020030 00 00                    |        |		.CONST	0x0000
00020032 00 00 00 00 00 00        |        |		.XXX[0x6]
00020038 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0xb0]
000200e8 00 00 00 00              |        |		.XXX[0x4]
000200ec 00 00 00 00              |        |		.PTR	0x0
000200f0					is_open_ERROR_LOG:
000200f0 00                       |        |		.CONST	0x0
000200f1					write_error_ERROR_LOG:
000200f1 00                       |        |		.CONST	0x0
000200f2 00 00 00 00              |        |		.CONST	0x00000000
000200f6 00 00 00 00              |        |		.CONST	0x00000000
000200fa 00                       |        |		.CONST	0x00
000200fb 00                       |        |		.CONST	0x00
000200fc					file_ERROR_LOG:
000200fc 00 00 00 00              |        |		.CONST	0x00000000
00020100 00 00 00 00              |        |		.CONST	0x00000000
00020104 00 00                    |        |		.CONST	0x0000
00020106 00 00                    |        |		.CONST	0x0000
00020108					somekindoffsflag:
00020108 00                       |        |		.CONST	0x00
00020109 00                       |        |		.CONST	0x00
0002010a 40 28 23 29 43 52        |@(#)CR  |		.XXX[0x6]
00020110 41 53 48 53 41 56 45 2c  |ASHSAVE,|		.XXX[0x18]
00020118 31 2e 32 2c 39 32 2f 30  |1.2,92/0|
00020120 31 2f 31 37 2c 31 37 3a  |1/17,17:|
00020128 31 38 3a 31 39 5c        |18:19\  |		.XXX[0x6]
0002012e 52 31 30 30 30 5f 44 55  |R1000_DU|		.TXT	'R1000_DUMP'
00020138 53 41 56 45 53 54 41 54  |SAVESTAT|		.TXT	'SAVESTATE '
00020142 43 52 41 53 48 5f 44 55  |CRASH_DU|		.TXT	'CRASH_DUMP.SAVED_STATE'
00020158 30 31 32 33 34 35 36 37  |01234567|		.XXX[0x10]
00020160 38 39 41 42 43 44 45 46  |89ABCDEF|
00020168 2a 2a 2a 20 4e 6f 20 52  |*** No R|		.TXT	'*** No R1000 response to DUMP_REGISTERS - probably a hardware error '
000201ac 63 6f 75 6c 64 20 6e 6f  |could no|		.TXT	'could not create new TOMBSTONE file '
000201d0 49 4f 50 5f 44 55 4d 50  |IOP_DUMP|		.TXT	'IOP_DUMP1 '
000201da 45 52 52 4f 52 5f 4c 4f  |ERROR_LO|		.TXT	'ERROR_LOG '
000201e4 44 55 4d 50 5f 52 31 30  |DUMP_R10|		.TXT	'DUMP_R1000'
000201ee 52 31 30 30 30 20 43 72  |R1000 Cr|		.TXT	'R1000 Crash Save done - tombstone file R1000_DUMP1 created. '
0002022a 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
0002022e 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
00020232 ; --------------------------------------------------------------------------------------
00020232 ; OMSI PASCAL Function
00020232 ;    <LVAR -0x004 1(rw)>
00020232 ;    <LVAR -0x005 1(rw)>
00020232 ;    <LVAR -0x00e @>
00020232 ; --------------------------------------------------------------------------------------
00020232 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
00020236 bf d5                    |        |		CMPA.L	(A5),A7
00020238 62 06                    |b       |		BHI	0x20240
0002023a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002023e 4e 76                    |Nv      |		TRAPV
00020240 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00020244 48 e7 f1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
00020248 45 f9 00 01 04 c0        |E       |		LEA.L	HasBoard(diproc_addr: Byte) : Byte,A2
0002024e 72 0f                    |r       |		MOVEQ.L	#0x0f,D1
00020250 34 3c 01 27              |4< '    |		MOVE.W	#0x127,D2
00020254 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
00020256 4e b9 00 02 0f be        |N       |		JSR	exp_CLEAR_EXCEPTIONS.FIU()
0002025c 1d 7c 00 01 ff fb        | |      |		MOVE.B	#0x01,(A6-0x5)
00020262 1d 7c 00 b4 ff fc        | |      |		MOVE.B	#0xb4,(A6-0x4)
00020268 2f 3a ff c4              |/:      |		MOVE.L	0x2022e,-(A7)
0002026c 2f 3a ff bc              |/:      |		MOVE.L	0x2022a,-(A7)
00020270 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00020274 4e b9 00 02 10 64        |N    d  |		JSR	exp_PREP_WRITE_REG.TYP(Sw_8, &Sr_8_1)
0002027a de c3                    |        |		ADDA.W	D3,A7
0002027c 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
00020280 1f 6e ff fc 00 01        | n      |		MOVE.B	(A6-0x4),(A7+0x1)
00020286 9e c3                    |        |		SUBA.W	D3,A7
00020288 20 4f                    | O      |		MOVEA.L	A7,A0
0002028a 43 ee ff f2              |C       |		LEA.L	(A6-0xe),A1
0002028e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020290 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020292 51 c8 ff fc              |Q       |		DBF	D0,0x20290
00020296 42 27                    |B'      |		CLR.B	-(A7)
00020298 4e b9 00 02 10 2a        |N    *  |		JSR	exp_WRITE_REG.TYP(Sw_2, Sw_8_1, Sw_1)
0002029e de fc 00 0e              |        |		ADDA.W	#0xe,A7
000202a2 4e b9 00 02 10 b4        |N       |		JSR	exp_LOAD_BENIGN_UWORD.TYP()
000202a8 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
000202aa 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000202ac 1f 07                    |        |		MOVE.B	D7,-(A7)
000202ae 4e 92                    |N       |		JSR	(A2)
000202b0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000202b2 4a 1f                    |J       |		TST.B	(A7)+
000202b4 67 0e                    |g       |		BEQ	0x202c4
000202b6 1f 07                    |        |		MOVE.B	D7,-(A7)
000202b8 1f 3c 00 ff              | <      |		MOVE.B	#0xff,-(A7)
000202bc 4e b9 00 02 11 38        |N    8  |		JSR	0x21138
000202c2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000202c4 52 07                    |R       |		ADDQ.B	#0x1,D7
000202c6 be 01                    |        |		CMP.B	D1,D7
000202c8 6f e0                    |o       |		BLE	0x202aa
000202ca 4e b9 00 02 0f 86        |N       |		JSR	exp_INIT_MRU.FIU()
000202d0 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
000202d2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000202d4 1f 07                    |        |		MOVE.B	D7,-(A7)
000202d6 4e 92                    |N       |		JSR	(A2)
000202d8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000202da 4a 1f                    |J       |		TST.B	(A7)+
000202dc 67 0a                    |g       |		BEQ	0x202e8
000202de 1f 07                    |        |		MOVE.B	D7,-(A7)
000202e0 4e b9 00 02 13 f6        |N       |		JSR	0x213f6
000202e6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000202e8 52 07                    |R       |		ADDQ.B	#0x1,D7
000202ea be 01                    |        |		CMP.B	D1,D7
000202ec 6f e4                    |o       |		BLE	0x202d2
000202ee 4e b9 00 01 05 b0        |N       |		JSR	FifoInit(void)
000202f4 3f 02                    |?       |		MOVE.W	D2,-(A7)
000202f6 4e b9 00 02 10 86        |N       |		JSR	exp_PREP_RUN.TYP(Sw_2)
000202fc 3e 82                    |>       |		MOVE.W	D2,(A7)
000202fe 4e b9 00 02 10 f2        |N       |		JSR	exp_PREP_RUN.VAL(Sw_2)
00020304 3e 82                    |>       |		MOVE.W	D2,(A7)
00020306 4e b9 00 02 15 4a        |N    J  |		JSR	exp_PREP_RUN.IOC(Sw_2)
0002030c 3e 82                    |>       |		MOVE.W	D2,(A7)
0002030e 4e b9 00 02 10 10        |N       |		JSR	exp_PREP_RUN.SEQ(Sw_2)
00020314 3e 82                    |>       |		MOVE.W	D2,(A7)
00020316 4e b9 00 02 0f 58        |N    X  |		JSR	exp_PREP_RUN.FIU(Sw_2)
0002031c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002031e 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00020320 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020322 1f 07                    |        |		MOVE.B	D7,-(A7)
00020324 4e 92                    |N       |		JSR	(A2)
00020326 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020328 4a 1f                    |J       |		TST.B	(A7)+
0002032a 67 0a                    |g       |		BEQ	0x20336
0002032c 1f 07                    |        |		MOVE.B	D7,-(A7)
0002032e 4e b9 00 02 13 4c        |N    L  |		JSR	0x2134c
00020334 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020336 52 07                    |R       |		ADDQ.B	#0x1,D7
00020338 be 01                    |        |		CMP.B	D1,D7
0002033a 6f e4                    |o       |		BLE	0x20320
0002033c 4e b9 00 02 0f a0        |N       |		JSR	exp_FREEZE_WORLD.FIU()
00020342 4e b9 00 02 10 48        |N    H  |		JSR	exp_RUN_NORMAL.TYP()
00020348 4e b9 00 02 10 d6        |N       |		JSR	exp_RUN_NORMAL.VAL()
0002034e 4e b9 00 02 0f f6        |N       |		JSR	exp_RUN_CHECK.SEQ()
00020354 4e b9 00 02 15 30        |N    0  |		JSR	exp_RUN_CHECK.IOC()
0002035a 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
0002035c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002035e 1f 07                    |        |		MOVE.B	D7,-(A7)
00020360 4e 92                    |N       |		JSR	(A2)
00020362 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020364 4a 1f                    |J       |		TST.B	(A7)+
00020366 67 0a                    |g       |		BEQ	0x20372
00020368 1f 07                    |        |		MOVE.B	D7,-(A7)
0002036a 4e b9 00 02 11 fe        |N       |		JSR	0x211fe
00020370 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020372 52 07                    |R       |		ADDQ.B	#0x1,D7
00020374 be 01                    |        |		CMP.B	D1,D7
00020376 6f e4                    |o       |		BLE	0x2035c
00020378 4e b9 00 02 0f 3c        |N    <  |		JSR	exp_RUN_NORMAL.FIU()
0002037e 4c df 07 8f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D7+A0+A1+A2
00020382 4e 5e                    |N^      |		UNLK	A6
00020384 4e 75                    |Nu      |		RTS
00020386 ; --------------------------------------------------------------------------------------
00020386 ; OMSI PASCAL Function
00020386 ; --------------------------------------------------------------------------------------
00020386 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
0002038a bf d5                    |        |		CMPA.L	(A5),A7
0002038c 62 06                    |b       |		BHI	0x20394
0002038e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020392 4e 76                    |Nv      |		TRAPV
00020394 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020398 48 e7 81 00              |H       |		MOVEM.L	D7+D0,-(A7)
0002039c 70 0f                    |p       |		MOVEQ.L	#0x0f,D0
0002039e 4e b9 00 02 0f a0        |N       |		JSR	exp_FREEZE_WORLD.FIU()
000203a4 4e b9 00 02 15 64        |N    d  |		JSR	exp_MF.IOC()
000203aa 4e b9 00 02 11 0c        |N       |		JSR	exp_MF.VAL()
000203b0 4e b9 00 02 10 a0        |N       |		JSR	exp_MF.TYP()
000203b6 4e b9 00 02 0f e0        |N       |		JSR	exp_RESET.SEQ()
000203bc 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
000203be 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000203c0 1f 07                    |        |		MOVE.B	D7,-(A7)
000203c2 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
000203c8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000203ca 4a 1f                    |J       |		TST.B	(A7)+
000203cc 67 0a                    |g       |		BEQ	0x203d8
000203ce 1f 07                    |        |		MOVE.B	D7,-(A7)
000203d0 4e b9 00 02 12 98        |N       |		JSR	0x21298
000203d6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000203d8 52 07                    |R       |		ADDQ.B	#0x1,D7
000203da be 00                    |        |		CMP.B	D0,D7
000203dc 6f e0                    |o       |		BLE	0x203be
000203de 4e b9 00 02 0f 72        |N    r  |		JSR	exp_MF.FIU()
000203e4 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
000203e6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000203e8 1f 07                    |        |		MOVE.B	D7,-(A7)
000203ea 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
000203f0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000203f2 4a 1f                    |J       |		TST.B	(A7)+
000203f4 67 0a                    |g       |		BEQ	0x20400
000203f6 1f 07                    |        |		MOVE.B	D7,-(A7)
000203f8 4e b9 00 02 14 a2        |N       |		JSR	0x214a2
000203fe 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020400 52 07                    |R       |		ADDQ.B	#0x1,D7
00020402 be 00                    |        |		CMP.B	D0,D7
00020404 6f e0                    |o       |		BLE	0x203e6
00020406 4c df 00 81              |L       |		MOVEM.L	(A7)+,D0+D7
0002040a 4e 5e                    |N^      |		UNLK	A6
0002040c 4e 75                    |Nu      |		RTS
0002040e ; --------------------------------------------------------------------------------------
0002040e ; OMSI PASCAL Function
0002040e ;    <LVAR  0x008 4(w)>
0002040e ;    <LVAR -0x004 @>
0002040e ;    <LVAR -0x00c @ 4(r)>
0002040e ; --------------------------------------------------------------------------------------
0002040e 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6		; Spelunked
00020412 bf d5                    |        |		CMPA.L	(A5),A7
00020414 62 06                    |b       |		BHI	0x2041c
00020416 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002041a 4e 76                    |Nv      |		TRAPV
0002041c de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00020420 48 e7 81 c0              |H       |		MOVEM.L	A1+A0+D7+D0,-(A7)
00020424 43 ee ff f4              |C       |		LEA.L	(A6-0xc),A1
00020428 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002042c 4e b9 00 01 05 9e        |N       |		JSR	ReadClusterNo(VAR a : Long)
00020432 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020434 48 51                    |HQ      |		PEA.L	(A1)
00020436 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
0002043c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002043e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020440 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00020442 42 80                    |B       |		CLR.L	D0
00020444 10 36 78 fc              | 6x     |		MOVE.B	(A6+D7.L-#0x4),D0
00020448 e8 40                    | @      |		ASR.W	#0x4,D0
0002044a 41 fa fd 0c              |A       |		LEA.L	0x20158,A0
0002044e 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
00020452 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00020458 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002045a 2e 91                    |.       |		MOVE.L	(A1),(A7)
0002045c 42 80                    |B       |		CLR.L	D0
0002045e 10 36 78 fc              | 6x     |		MOVE.B	(A6+D7.L-#0x4),D0
00020462 02 40 00 0f              | @      |		ANDI.W	#0x000f,D0
00020466 41 fa fc f0              |A       |		LEA.L	0x20158,A0
0002046a 1f 30 00 00              | 0      |		MOVE.B	(A0+D0.W),-(A7)
0002046e 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00020474 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020476 52 87                    |R       |		ADDQ.L	#0x1,D7
00020478 0c 87 00 00 00 03        |        |		CMPI.L	#0x00000003,D7
0002047e 6f c0                    |o       |		BLE	0x20440
00020480 2d 51 00 08              |-Q      |		MOVE.L	(A1),(A6+0x8)
00020484 4c df 03 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1
00020488 4e 5e                    |N^      |		UNLK	A6
0002048a 4e 75                    |Nu      |		RTS
0002048c ; --------------------------------------------------------------------------------------
0002048c ; OMSI PASCAL Function
0002048c ;    <LVAR -0x003 @>
0002048c ;    <LVAR -0x004 @ 1(r)>
0002048c ;    <LVAR -0x008 @>
0002048c ; --------------------------------------------------------------------------------------
0002048c 4e 56 ff b2              |NV      |		LINK.W	A6,#0xffb2
00020490 bf d5                    |        |		CMPA.L	(A5),A7
00020492 62 06                    |b       |		BHI	0x2049a
00020494 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020498 4e 76                    |Nv      |		TRAPV
0002049a de fc 00 42              |   B    |		ADDA.W	#0x42,A7
0002049e 48 e7 e0 e8              |H       |		MOVEM.L	A4+A2+A1+A0+D2+D1+D0,-(A7)
000204a2 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
000204a6 72 01                    |r       |		MOVEQ.L	#0x01,D1
000204a8 74 02                    |t       |		MOVEQ.L	#0x02,D2
000204aa 41 fa fc ac              |A       |		LEA.L	0x20158,A0
000204ae 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000204b0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000204b2 51 c8 ff fc              |Q       |		DBF	D0,0x204b0
000204b6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000204b8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000204bc 3f 01                    |?       |		MOVE.W	D1,-(A7)
000204be 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
000204c2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000204c8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000204ca 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000204cc de fc 00 12              |        |		ADDA.W	#0x12,A7
000204d0 2e 8c                    |.       |		MOVE.L	A4,(A7)
000204d2 42 27                    |B'      |		CLR.B	-(A7)
000204d4 42 27                    |B'      |		CLR.B	-(A7)
000204d6 48 78 00 00              |Hx      |		PEA.L	0x0
000204da 48 52                    |HR      |		PEA.L	(A2)
000204dc 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000204e0 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000204e6 de fc 00 14              |        |		ADDA.W	#0x14,A7
000204ea 4a 12                    |J       |		TST.B	(A2)
000204ec 66 18                    |f       |		BNE	0x20506
000204ee 1f 02                    |        |		MOVE.B	D2,-(A7)
000204f0 1f 01                    |        |		MOVE.B	D1,-(A7)
000204f2 48 78 00 01              |Hx      |		PEA.L	0x1
000204f6 48 52                    |HR      |		PEA.L	(A2)
000204f8 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000204fc 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020502 de fc 00 10              |        |		ADDA.W	#0x10,A7
00020506 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
0002050a 20 4f                    | O      |		MOVEA.L	A7,A0
0002050c 43 fa fc 2a              |C  *    |		LEA.L	0x20138,A1
00020510 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020512 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020514 51 c8 ff fc              |Q       |		DBF	D0,0x20512
00020518 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002051a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002051e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020520 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00020524 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002052a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002052c 2e 8c                    |.       |		MOVE.L	A4,(A7)
0002052e 1f 02                    |        |		MOVE.B	D2,-(A7)
00020530 48 6e ff fd              |Hn      |		PEA.L	(A6-0x3)
00020534 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
0002053a de fc 00 18              |        |		ADDA.W	#0x18,A7
0002053e 4c df 17 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A4
00020542 4e 5e                    |N^      |		UNLK	A6
00020544 4e 75                    |Nu      |		RTS
00020546 ; --------------------------------------------------------------------------------------
00020546 ; OMSI PASCAL Function
00020546 ;    <LVAR  0x00c 4(r)>
00020546 ;    <LVAR  0x008 4(r)>
00020546 ;    <LVAR -0x004 @>
00020546 ; --------------------------------------------------------------------------------------
00020546 4e 56 ff ac              |NV      |		LINK.W	A6,#0xffac
0002054a bf d5                    |        |		CMPA.L	(A5),A7
0002054c 62 06                    |b       |		BHI	0x20554
0002054e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020552 4e 76                    |Nv      |		TRAPV
00020554 de fc 00 48              |   H    |		ADDA.W	#0x48,A7
00020558 48 e7 c3 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7)
0002055c 45 f9 00 02 1f a0        |E       |		LEA.L	0x21fa0,A2
00020562 47 f9 00 02 1f ba        |G       |		LEA.L	0x21fba,A3
00020568 49 f9 00 02 1f a2        |I       |		LEA.L	0x21fa2,A4
0002056e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00020572 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00020574 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00020576 bc 97                    |        |		CMP.L	(A7),D6
00020578 6e 00 00 be              |n       |		BGT	0x20638
0002057c 41 f9 00 02 1f 94        |A       |		LEA.L	0x21f94,A0
00020582 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020584 42 67                    |Bg      |		CLR.W	-(A7)
00020586 4e b9 00 01 02 3c        |N    <  |		JSR	KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word)
0002058c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002058e 4a 53                    |JS      |		TST.W	(A3)
00020590 67 18                    |g       |		BEQ	0x205aa
00020592 42 80                    |B       |		CLR.L	D0
00020594 30 14                    |0       |		MOVE.W	(A4),D0
00020596 42 81                    |B       |		CLR.L	D1
00020598 32 13                    |2       |		MOVE.W	(A3),D1
0002059a d2 80                    |        |		ADD.L	D0,D1
0002059c 38 81                    |8       |		MOVE.W	D1,(A4)
0002059e 4a 41                    |JA      |		TST.W	D1
000205a0 66 08                    |f       |		BNE	0x205aa
000205a2 42 80                    |B       |		CLR.L	D0
000205a4 30 12                    |0       |		MOVE.W	(A2),D0
000205a6 52 80                    |R       |		ADDQ.L	#0x1,D0
000205a8 34 80                    |4       |		MOVE.W	D0,(A2)
000205aa 42 80                    |B       |		CLR.L	D0
000205ac 30 12                    |0       |		MOVE.W	(A2),D0
000205ae 42 81                    |B       |		CLR.L	D1
000205b0 32 39 00 02 1f b8        |29      |		MOVE.W	0x21fb8,D1
000205b6 d2 80                    |        |		ADD.L	D0,D1
000205b8 34 81                    |4       |		MOVE.W	D1,(A2)
000205ba 2e 3c ff ff fc 18        |.<      |		MOVE.L	#0xfffffc18,D7
000205c0 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000205c4 43 f9 00 02 1f a4        |C       |		LEA.L	0x21fa4,A1
000205ca 2f 09                    |/       |		MOVE.L	A1,-(A7)
000205cc 42 67                    |Bg      |		CLR.W	-(A7)
000205ce 48 50                    |HP      |		PEA.L	(A0)
000205d0 4e b9 00 01 02 3e        |N    >  |		JSR	KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool)
000205d6 de fc 00 0a              |        |		ADDA.W	#0xa,A7
000205da 52 87                    |R       |		ADDQ.L	#0x1,D7
000205dc 4a 10                    |J       |		TST.B	(A0)
000205de 66 04                    |f       |		BNE	0x205e4
000205e0 4a 87                    |J       |		TST.L	D7
000205e2 66 dc                    |f       |		BNE	0x205c0
000205e4 4a 10                    |J       |		TST.B	(A0)
000205e6 67 4a                    |gJ      |		BEQ	0x20632
000205e8 2f 39 00 02 1f cc        |/9      |		MOVE.L	0x21fcc,-(A7)
000205ee 41 f9 00 02 17 8a        |A       |		LEA.L	0x2178a,A0
000205f4 2f 08                    |/       |		MOVE.L	A0,-(A7)
000205f6 3f 3c 04 00              |?<      |		MOVE.W	#0x400,-(A7)
000205fa 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00020600 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020602 2e b9 00 02 17 86        |.       |		MOVE.L	0x21786,(A7)
00020608 3f 39 00 02 1b 8e        |?9      |		MOVE.W	0x21b8e,-(A7)
0002060e 42 67                    |Bg      |		CLR.W	-(A7)
00020610 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020614 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020618 2f 39 00 02 1b 8a        |/9      |		MOVE.L	0x21b8a,-(A7)
0002061e 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020622 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00020628 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002062c 52 79 00 02 1b 8e        |Ry      |		ADDQ.W	#0x1,0x21b8e
00020632 52 86                    |R       |		ADDQ.L	#0x1,D6
00020634 68 00 ff 40              |h  @    |		BVC	0x20576
00020638 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002063a 4c df 1f c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4
0002063e 4e 5e                    |N^      |		UNLK	A6
00020640 4e 75                    |Nu      |		RTS
00020642 ; --------------------------------------------------------------------------------------
00020642 ; OMSI PASCAL Function
00020642 ;    <LVAR  0x00a 2(r)>
00020642 ; --------------------------------------------------------------------------------------
00020642 4e 56 ff fc              |NV      |		LINK.W	A6,#0xfffc
00020646 bf d5                    |        |		CMPA.L	(A5),A7
00020648 62 06                    |b       |		BHI	0x20650
0002064a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002064e 4e 76                    |Nv      |		TRAPV
00020650 de fc 00 04              |        |		ADDA.W	#0x4,A7
00020654 33 fc 04 00 00 02 1f 94  |3       |		MOVE.W	#0x400,0x21f94
0002065c 42 79 00 02 1f 96        |By      |		CLR.W	0x21f96
00020662 42 79 00 02 1f 98        |By      |		CLR.W	0x21f98
00020668 33 ee 00 0a 00 02 1f 9a  |3       |		MOVE.W	(A6+0xa),0x21f9a
00020670 42 79 00 02 1f 9c        |By      |		CLR.W	0x21f9c
00020676 42 79 00 02 1f 9e        |By      |		CLR.W	0x21f9e
0002067c 42 79 00 02 1f a0        |By      |		CLR.W	0x21fa0
00020682 42 79 00 02 1f a2        |By      |		CLR.W	0x21fa2
00020688 42 79 00 02 1f b4        |By      |		CLR.W	0x21fb4
0002068e 42 79 00 02 1f b6        |By      |		CLR.W	0x21fb6
00020694 42 79 00 02 1f b8        |By      |		CLR.W	0x21fb8
0002069a 42 79 00 02 1f ba        |By      |		CLR.W	0x21fba
000206a0 4e 5e                    |N^      |		UNLK	A6
000206a2 4e 75                    |Nu      |		RTS
000206a4 ; --------------------------------------------------------------------------------------
000206a4 ; OMSI PASCAL Function
000206a4 ;    <LVAR  0x008 4(r)>
000206a4 ; --------------------------------------------------------------------------------------
000206a4 4e 56 ff 94              |NV      |		LINK.W	A6,#0xff94
000206a8 bf d5                    |        |		CMPA.L	(A5),A7
000206aa 62 06                    |b       |		BHI	0x206b2
000206ac 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000206b0 4e 76                    |Nv      |		TRAPV
000206b2 de fc 00 68              |   h    |		ADDA.W	#0x68,A7
000206b6 48 e7 81 c0              |H       |		MOVEM.L	A1+A0+D7+D0,-(A7)
000206ba 33 f9 00 02 1b 8e 00 02  |3       |		MOVE.W	0x21b8e,0x21b98
000206c2 1b 98                    |        |
000206c4 7e 10                    |~       |		MOVEQ.L	#0x10,D7
000206c6 48 78 03 00              |Hx      |		PEA.L	0x300
000206ca 4e ba ff 76              |N  v    |		JSR	0x20642
000206ce 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000206d0 33 fc 00 40 00 02 1f ba  |3  @    |		MOVE.W	#0x40,0x21fba
000206d8 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000206dc 2f 07                    |/       |		MOVE.L	D7,-(A7)
000206de 48 50                    |HP      |		PEA.L	(A0)
000206e0 4e ba fe 64              |N  d    |		JSR	0x20546
000206e4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000206e6 4a 10                    |J       |		TST.B	(A0)
000206e8 66 32                    |f2      |		BNE	0x2071c
000206ea 9e fc 00 44              |   D    |		SUBA.W	#0x44,A7
000206ee 20 4f                    | O      |		MOVEA.L	A7,A0
000206f0 43 fa fa 76              |C  v    |		LEA.L	0x20168,A1
000206f4 70 42                    |pB      |		MOVEQ.L	#0x42,D0
000206f6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000206f8 51 c8 ff fc              |Q       |		DBF	D0,0x206f6
000206fc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000206fe 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020702 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020706 3f 3c 00 43              |?< C    |		MOVE.W	#0x43,-(A7)
0002070a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020710 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020712 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020718 de fc 00 48              |   H    |		ADDA.W	#0x48,A7
0002071c 4c df 03 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1
00020720 4e 5e                    |N^      |		UNLK	A6
00020722 4e 75                    |Nu      |		RTS
00020724 ; --------------------------------------------------------------------------------------
00020724 ; OMSI PASCAL Function
00020724 ;    <LVAR  0x008 4(r)>
00020724 ;    <LVAR -0x006 4(rw)>
00020724 ;    <LVAR -0x00a 4(rw)>
00020724 ; --------------------------------------------------------------------------------------
00020724 4e 56 ff b0              |NV      |		LINK.W	A6,#0xffb0		; Spelunked
00020728 bf d5                    |        |		CMPA.L	(A5),A7
0002072a 62 06                    |b       |		BHI	0x20732
0002072c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020730 4e 76                    |Nv      |		TRAPV
00020732 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
00020736 48 e7 9f e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D4+D3+D0,-(A7)
0002073a 43 ee ff f6              |C       |		LEA.L	(A6-0xa),A1
0002073e 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00020742 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020744 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
0002074a 4a 1f                    |J       |		TST.B	(A7)+
0002074c 67 0e                    |g       |		BEQ	0x2075c
0002074e 22 bc 00 00 08 00        |"       |		MOVE.L	#0x800,(A1)
00020754 24 bc 00 00 00 04        |$       |		MOVE.L	#0x4,(A2)
0002075a 60 0c                    |`       |		BRA	0x20768
0002075c 22 bc 00 00 10 00        |"       |		MOVE.L	#0x1000,(A1)
00020762 24 bc 00 00 00 08        |$       |		MOVE.L	#0x8,(A2)
00020768 48 78 04 00              |Hx      |		PEA.L	0x400
0002076c 4e ba fe d4              |N       |		JSR	0x20642
00020770 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020772 33 fc 00 10 00 02 1f b8  |3       |		MOVE.W	#0x10,0x21fb8
0002077a 7c 00                    ||       |		MOVEQ.L	#0x00,D6
0002077c 7a 0c                    |z       |		MOVEQ.L	#0x0c,D5
0002077e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020780 1f 05                    |        |		MOVE.B	D5,-(A7)
00020782 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00020788 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002078a 4a 1f                    |J       |		TST.B	(A7)+
0002078c 67 4c                    |gL      |		BEQ	0x207da
0002078e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020790 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00020792 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020794 be 97                    |        |		CMP.L	(A7),D7
00020796 6e 40                    |n@      |		BGT	0x207d8
00020798 42 79 00 02 1f 9c        |By      |		CLR.W	0x21f9c
0002079e 20 06                    |        |		MOVE.L	D6,D0
000207a0 e5 80                    |        |		ASL.L	#0x2,D0
000207a2 d0 87                    |        |		ADD.L	D7,D0
000207a4 e9 80                    |        |		ASL.L	#0x4,D0
000207a6 33 c0 00 02 1f 9e        |3       |		MOVE.W	D0,0x21f9e
000207ac 42 79 00 02 1f a0        |By      |		CLR.W	0x21fa0
000207b2 42 79 00 02 1f a2        |By      |		CLR.W	0x21fa2
000207b8 28 11                    |(       |		MOVE.L	(A1),D4
000207ba 26 3c 00 00 00 80        |&<      |		MOVE.L	#0x80,D3
000207c0 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
000207c6 2f 04                    |/       |		MOVE.L	D4,-(A7)
000207c8 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000207cc 48 50                    |HP      |		PEA.L	(A0)
000207ce 4e ba fd 76              |N  v    |		JSR	0x20546
000207d2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207d4 52 87                    |R       |		ADDQ.L	#0x1,D7
000207d6 68 bc                    |h       |		BVC	0x20794
000207d8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000207da 52 86                    |R       |		ADDQ.L	#0x1,D6
000207dc 52 05                    |R       |		ADDQ.B	#0x1,D5
000207de 0c 05 00 0f              |        |		CMPI.B	#0x0f,D5
000207e2 6f 9a                    |o       |		BLE	0x2077e
000207e4 4c df 07 f9              |L       |		MOVEM.L	(A7)+,D0+D3+D4+D5+D6+D7+A0+A1+A2
000207e8 4e 5e                    |N^      |		UNLK	A6
000207ea 4e 75                    |Nu      |		RTS
000207ec ; --------------------------------------------------------------------------------------
000207ec ; OMSI PASCAL Function
000207ec ; --------------------------------------------------------------------------------------
000207ec 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
000207f0 bf d5                    |        |		CMPA.L	(A5),A7
000207f2 62 06                    |b       |		BHI	0x207fa
000207f4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000207f8 4e 76                    |Nv      |		TRAPV
000207fa de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000207fe 48 e7 f8 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7)
00020802 43 f9 00 01 02 38        |C    8  |		LEA.L	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word),A1
00020808 45 f9 00 02 1f c0        |E       |		LEA.L	0x21fc0,A2
0002080e 47 f9 00 02 1f c8        |G       |		LEA.L	0x21fc8,A3
00020814 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
00020816 76 04                    |v       |		MOVEQ.L	#0x04,D3
00020818 78 02                    |x       |		MOVEQ.L	#0x02,D4
0002081a 48 78 04 00              |Hx      |		PEA.L	0x400
0002081e 41 f9 00 02 1f bc        |A       |		LEA.L	0x21fbc,A0
00020824 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020826 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020828 4e 91                    |N       |		JSR	(A1)
0002082a de c2                    |        |		ADDA.W	D2,A7
0002082c 48 78 04 04              |Hx      |		PEA.L	0x404
00020830 20 4a                    | J      |		MOVEA.L	A2,A0
00020832 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020834 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020836 4e 91                    |N       |		JSR	(A1)
00020838 de c2                    |        |		ADDA.W	D2,A7
0002083a 48 78 04 06              |Hx      |		PEA.L	0x406
0002083e 41 f9 00 02 1f c2        |A       |		LEA.L	0x21fc2,A0
00020844 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020846 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020848 4e 91                    |N       |		JSR	(A1)
0002084a de c2                    |        |		ADDA.W	D2,A7
0002084c 48 78 04 08              |Hx      |		PEA.L	0x408
00020850 41 f9 00 02 1f c4        |A       |		LEA.L	0x21fc4,A0
00020856 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020858 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002085a 4e 91                    |N       |		JSR	(A1)
0002085c de c2                    |        |		ADDA.W	D2,A7
0002085e 48 78 04 0c              |Hx      |		PEA.L	0x40c
00020862 20 4b                    | K      |		MOVEA.L	A3,A0
00020864 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020866 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020868 4e 91                    |N       |		JSR	(A1)
0002086a de c2                    |        |		ADDA.W	D2,A7
0002086c 70 00                    |p       |		MOVEQ.L	#0x00,D0
0002086e c0 d2                    |        |		MULU.W	(A2),D0
00020870 42 81                    |B       |		CLR.L	D1
00020872 32 00                    |2       |		MOVE.W	D0,D1
00020874 d2 93                    |        |		ADD.L	(A3),D1
00020876 23 c1 00 02 1f cc        |#       |		MOVE.L	D1,0x21fcc
0002087c 4c df 0f 1f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3
00020880 4e 5e                    |N^      |		UNLK	A6
00020882 4e 75                    |Nu      |		RTS
00020884 ; --------------------------------------------------------------------------------------
00020884 ; OMSI PASCAL Function
00020884 ;    <LVAR -0x006 @>
00020884 ;    <LVAR -0x008 @ 1(r)>
00020884 ;    <LVAR -0x00c @ 4(rw)>
00020884 ; --------------------------------------------------------------------------------------
00020884 4e 56 ff 8a              |NV      |		LINK.W	A6,#0xff8a
00020888 bf d5                    |        |		CMPA.L	(A5),A7
0002088a 62 06                    |b       |		BHI	0x20892
0002088c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020890 4e 76                    |Nv      |		TRAPV
00020892 de fc 00 62              |   b    |		ADDA.W	#0x62,A7
00020896 48 e7 f9 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
0002089a 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
0002089e 47 ee ff f4              |G       |		LEA.L	(A6-0xc),A3
000208a2 72 01                    |r       |		MOVEQ.L	#0x01,D1
000208a4 74 14                    |t       |		MOVEQ.L	#0x14,D2
000208a6 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
000208a8 78 10                    |x       |		MOVEQ.L	#0x10,D4
000208aa 7e 04                    |~       |		MOVEQ.L	#0x04,D7
000208ac 41 fa f8 8a              |A       |		LEA.L	0x20138,A0
000208b0 70 04                    |p       |		MOVEQ.L	#0x04,D0
000208b2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000208b4 51 c8 ff fc              |Q       |		DBF	D0,0x208b2
000208b8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000208ba 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000208be 3f 01                    |?       |		MOVE.W	D1,-(A7)
000208c0 3f 03                    |?       |		MOVE.W	D3,-(A7)
000208c2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000208c8 2e 87                    |.       |		MOVE.L	D7,(A7)
000208ca 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000208d0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208d2 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000208d8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000208da 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000208dc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000208de 2e 8c                    |.       |		MOVE.L	A4,(A7)
000208e0 42 27                    |B'      |		CLR.B	-(A7)
000208e2 42 27                    |B'      |		CLR.B	-(A7)
000208e4 48 78 00 00              |Hx      |		PEA.L	0x0
000208e8 48 52                    |HR      |		PEA.L	(A2)
000208ea 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000208ee 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000208f4 de c2                    |        |		ADDA.W	D2,A7
000208f6 4a 12                    |J       |		TST.B	(A2)
000208f8 66 18                    |f       |		BNE	0x20912
000208fa 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000208fe 42 27                    |B'      |		CLR.B	-(A7)
00020900 48 78 00 01              |Hx      |		PEA.L	0x1
00020904 48 52                    |HR      |		PEA.L	(A2)
00020906 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
0002090a 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020910 de c4                    |        |		ADDA.W	D4,A7
00020912 26 8c                    |&       |		MOVE.L	A4,(A3)
00020914 53 87                    |S       |		SUBQ.L	#0x1,D7
00020916 41 fa f8 20              |A       |		LEA.L	0x20138,A0
0002091a 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002091c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002091e 51 c8 ff fc              |Q       |		DBF	D0,0x2091c
00020922 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020924 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020928 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002092a 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002092c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020932 2e 87                    |.       |		MOVE.L	D7,(A7)
00020934 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
0002093a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002093c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020942 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020944 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020946 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020948 2e 8c                    |.       |		MOVE.L	A4,(A7)
0002094a 42 27                    |B'      |		CLR.B	-(A7)
0002094c 42 27                    |B'      |		CLR.B	-(A7)
0002094e 48 78 00 00              |Hx      |		PEA.L	0x0
00020952 48 52                    |HR      |		PEA.L	(A2)
00020954 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00020958 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0002095e de c2                    |        |		ADDA.W	D2,A7
00020960 4a 12                    |J       |		TST.B	(A2)
00020962 66 14                    |f       |		BNE	0x20978
00020964 1f 01                    |        |		MOVE.B	D1,-(A7)
00020966 1f 01                    |        |		MOVE.B	D1,-(A7)
00020968 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002096a 48 52                    |HR      |		PEA.L	(A2)
0002096c 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00020970 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020976 de c4                    |        |		ADDA.W	D4,A7
00020978 48 53                    |HS      |		PEA.L	(A3)
0002097a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020980 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020982 26 8c                    |&       |		MOVE.L	A4,(A3)
00020984 be 81                    |        |		CMP.L	D1,D7
00020986 66 8c                    |f       |		BNE	0x20914
00020988 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002098a 1f 01                    |        |		MOVE.B	D1,-(A7)
0002098c 1f 01                    |        |		MOVE.B	D1,-(A7)
0002098e 48 78 00 28              |Hx (    |		PEA.L	0x28
00020992 48 52                    |HR      |		PEA.L	(A2)
00020994 48 79 00 02 17 86        |Hy      |		PEA.L	0x21786
0002099a 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000209a0 de c2                    |        |		ADDA.W	D2,A7
000209a2 4a 12                    |J       |		TST.B	(A2)
000209a4 67 34                    |g4      |		BEQ	0x209da
000209a6 9e fc 00 24              |   $    |		SUBA.W	#0x24,A7
000209aa 20 4f                    | O      |		MOVEA.L	A7,A0
000209ac 43 fa f7 fe              |C       |		LEA.L	0x201ac,A1
000209b0 70 22                    |p"      |		MOVEQ.L	#0x22,D0
000209b2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000209b4 51 c8 ff fc              |Q       |		DBF	D0,0x209b2
000209b8 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
000209bc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000209be 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000209c2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000209c4 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
000209c8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000209ce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000209d0 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000209d6 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
000209da 48 53                    |HS      |		PEA.L	(A3)
000209dc 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000209e2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000209e4 33 c1 00 02 1b 8e        |3       |		MOVE.W	D1,0x21b8e
000209ea 4c df 1f 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4
000209ee 4e 5e                    |N^      |		UNLK	A6
000209f0 4e 75                    |Nu      |		RTS
000209f2 ; --------------------------------------------------------------------------------------
000209f2 ; OMSI PASCAL Function
000209f2 ;    <LVAR -0x006 @ 4(r)>
000209f2 ;    <LVAR -0x008 @>
000209f2 ; --------------------------------------------------------------------------------------
000209f2 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
000209f6 bf d5                    |        |		CMPA.L	(A5),A7
000209f8 62 06                    |b       |		BHI	0x20a00
000209fa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000209fe 4e 76                    |Nv      |		TRAPV
00020a00 de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
00020a04 48 e7 f8 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7)
00020a08 45 f9 00 02 1b 8a        |E       |		LEA.L	0x21b8a,A2
00020a0e 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
00020a12 49 ee ff fa              |I       |		LEA.L	(A6-0x6),A4
00020a16 72 02                    |r       |		MOVEQ.L	#0x02,D1
00020a18 74 10                    |t       |		MOVEQ.L	#0x10,D2
00020a1a 36 3c 02 00              |6<      |		MOVE.W	#0x200,D3
00020a1e 78 01                    |x       |		MOVEQ.L	#0x01,D4
00020a20 33 f9 00 02 1b 8e 00 02  |3       |		MOVE.W	0x21b8e,0x21b94
00020a28 1b 94                    |        |
00020a2a 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020a2e 20 4f                    | O      |		MOVEA.L	A7,A0
00020a30 43 fa f7 9e              |C       |		LEA.L	0x201d0,A1
00020a34 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020a36 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020a38 51 c8 ff fc              |Q       |		DBF	D0,0x20a36
00020a3c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a3e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a42 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020a44 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00020a48 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020a4e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020a50 42 17                    |B       |		CLR.B	(A7)
00020a52 1f 01                    |        |		MOVE.B	D1,-(A7)
00020a54 48 78 00 00              |Hx      |		PEA.L	0x0
00020a58 48 53                    |HS      |		PEA.L	(A3)
00020a5a 48 54                    |HT      |		PEA.L	(A4)
00020a5c 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020a62 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00020a66 20 54                    | T      |		MOVEA.L	(A4),A0
00020a68 13 e8 00 3a 00 02 1f 90  |   :    |		MOVE.B	(A0+0x3a),0x21f90
00020a70 13 e8 00 3b 00 02 1f 91  |   ;    |		MOVE.B	(A0+0x3b),0x21f91
00020a78 13 e8 00 3c 00 02 1f 92  |   <    |		MOVE.B	(A0+0x3c),0x21f92
00020a80 13 e8 00 3d 00 02 1f 93  |   =    |		MOVE.B	(A0+0x3d),0x21f93
00020a88 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00020a8a 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020a8c 42 67                    |Bg      |		CLR.W	-(A7)
00020a8e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020a90 1f 01                    |        |		MOVE.B	D1,-(A7)
00020a92 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020a94 48 53                    |HS      |		PEA.L	(A3)
00020a96 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020a9c de c2                    |        |		ADDA.W	D2,A7
00020a9e 2e b9 00 02 17 86        |.       |		MOVE.L	0x21786,(A7)
00020aa4 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020aa6 42 67                    |Bg      |		CLR.W	-(A7)
00020aa8 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020aaa 1f 01                    |        |		MOVE.B	D1,-(A7)
00020aac 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020aae 48 53                    |HS      |		PEA.L	(A3)
00020ab0 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00020ab6 de c2                    |        |		ADDA.W	D2,A7
00020ab8 2e 94                    |.       |		MOVE.L	(A4),(A7)
00020aba 3f 3c 00 3e              |?< >    |		MOVE.W	#0x3e,-(A7)
00020abe 42 67                    |Bg      |		CLR.W	-(A7)
00020ac0 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020ac2 1f 01                    |        |		MOVE.B	D1,-(A7)
00020ac4 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020ac6 48 53                    |HS      |		PEA.L	(A3)
00020ac8 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020ace de c2                    |        |		ADDA.W	D2,A7
00020ad0 2e b9 00 02 17 86        |.       |		MOVE.L	0x21786,(A7)
00020ad6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020ad8 42 67                    |Bg      |		CLR.W	-(A7)
00020ada 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020adc 1f 01                    |        |		MOVE.B	D1,-(A7)
00020ade 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020ae0 48 53                    |HS      |		PEA.L	(A3)
00020ae2 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00020ae8 de c2                    |        |		ADDA.W	D2,A7
00020aea 2e 94                    |.       |		MOVE.L	(A4),(A7)
00020aec 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
00020af0 42 67                    |Bg      |		CLR.W	-(A7)
00020af2 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020af4 1f 01                    |        |		MOVE.B	D1,-(A7)
00020af6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020af8 48 53                    |HS      |		PEA.L	(A3)
00020afa 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020b00 de c2                    |        |		ADDA.W	D2,A7
00020b02 2e b9 00 02 17 86        |.       |		MOVE.L	0x21786,(A7)
00020b08 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00020b0c 42 67                    |Bg      |		CLR.W	-(A7)
00020b0e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020b10 1f 01                    |        |		MOVE.B	D1,-(A7)
00020b12 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020b14 48 53                    |HS      |		PEA.L	(A3)
00020b16 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00020b1c de fc 00 14              |        |		ADDA.W	#0x14,A7
00020b20 33 fc 00 04 00 02 1b 8e  |3       |		MOVE.W	#0x4,0x21b8e
00020b28 42 27                    |B'      |		CLR.B	-(A7)
00020b2a 1f 04                    |        |		MOVE.B	D4,-(A7)
00020b2c 48 78 00 01              |Hx      |		PEA.L	0x1
00020b30 48 53                    |HS      |		PEA.L	(A3)
00020b32 48 54                    |HT      |		PEA.L	(A4)
00020b34 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020b3a de c2                    |        |		ADDA.W	D2,A7
00020b3c 4c df 1f 1f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3+A4
00020b40 4e 5e                    |N^      |		UNLK	A6
00020b42 4e 75                    |Nu      |		RTS
00020b44 ; --------------------------------------------------------------------------------------
00020b44 ; OMSI PASCAL Function
00020b44 ;    <LVAR -0x006 @ 4(r)>
00020b44 ;    <LVAR -0x008 @>
00020b44 ; --------------------------------------------------------------------------------------
00020b44 4e 56 ff 9e              |NV      |		LINK.W	A6,#0xff9e
00020b48 bf d5                    |        |		CMPA.L	(A5),A7
00020b4a 62 06                    |b       |		BHI	0x20b52
00020b4c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020b50 4e 76                    |Nv      |		TRAPV
00020b52 de fc 00 56              |   V    |		ADDA.W	#0x56,A7
00020b56 48 e7 f1 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
00020b5a 43 f9 00 02 1b 8e        |C       |		LEA.L	0x21b8e,A1
00020b60 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
00020b64 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
00020b68 49 f9 00 02 1b 8a        |I       |		LEA.L	0x21b8a,A4
00020b6e 72 02                    |r       |		MOVEQ.L	#0x02,D1
00020b70 74 01                    |t       |		MOVEQ.L	#0x01,D2
00020b72 76 10                    |v       |		MOVEQ.L	#0x10,D3
00020b74 33 d1 00 02 1b 96        |3       |		MOVE.W	(A1),0x21b96
00020b7a 41 fa f5 dc              |A       |		LEA.L	0x20158,A0
00020b7e 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00020b80 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020b82 51 c8 ff fc              |Q       |		DBF	D0,0x20b80
00020b86 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020b88 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020b8c 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020b8e 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
00020b92 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020b98 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020b9a 42 17                    |B       |		CLR.B	(A7)
00020b9c 1f 01                    |        |		MOVE.B	D1,-(A7)
00020b9e 48 78 00 00              |Hx      |		PEA.L	0x0
00020ba2 48 52                    |HR      |		PEA.L	(A2)
00020ba4 48 53                    |HS      |		PEA.L	(A3)
00020ba6 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020bac de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00020bb0 20 53                    | S      |		MOVEA.L	(A3),A0
00020bb2 30 28 00 20              |0(      |		MOVE.W	(A0+0x20),D0
00020bb6 53 40                    |S@      |		SUBQ.W	#0x1,D0
00020bb8 48 c0                    |H       |		EXTW.L	D0
00020bba 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020bbc 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020bbe be 97                    |        |		CMP.L	(A7),D7
00020bc0 6e 3c                    |n<      |		BGT	0x20bfe
00020bc2 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020bc4 3f 07                    |?       |		MOVE.W	D7,-(A7)
00020bc6 42 67                    |Bg      |		CLR.W	-(A7)
00020bc8 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020bcc 1f 01                    |        |		MOVE.B	D1,-(A7)
00020bce 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00020bd0 48 52                    |HR      |		PEA.L	(A2)
00020bd2 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020bd8 de c3                    |        |		ADDA.W	D3,A7
00020bda 2e b9 00 02 17 86        |.       |		MOVE.L	0x21786,(A7)
00020be0 3f 11                    |?       |		MOVE.W	(A1),-(A7)
00020be2 42 67                    |Bg      |		CLR.W	-(A7)
00020be4 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020be8 1f 01                    |        |		MOVE.B	D1,-(A7)
00020bea 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00020bec 48 52                    |HR      |		PEA.L	(A2)
00020bee 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00020bf4 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020bf8 52 51                    |RQ      |		ADDQ.W	#0x1,(A1)
00020bfa 52 87                    |R       |		ADDQ.L	#0x1,D7
00020bfc 68 c0                    |h       |		BVC	0x20bbe
00020bfe 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020c00 42 17                    |B       |		CLR.B	(A7)
00020c02 1f 02                    |        |		MOVE.B	D2,-(A7)
00020c04 48 78 00 01              |Hx      |		PEA.L	0x1
00020c08 48 52                    |HR      |		PEA.L	(A2)
00020c0a 48 53                    |HS      |		PEA.L	(A3)
00020c0c 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020c12 de c3                    |        |		ADDA.W	D3,A7
00020c14 4c df 1f 8f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3+A4
00020c18 4e 5e                    |N^      |		UNLK	A6
00020c1a 4e 75                    |Nu      |		RTS
00020c1c ; --------------------------------------------------------------------------------------
00020c1c ; OMSI PASCAL Function
00020c1c ;    <LVAR -0x004 @>
00020c1c ;    <LVAR -0x008 @ 4(r)>
00020c1c ;    <LVAR -0x405 1(r)>
00020c1c ;    <LVAR -0x406 2(r)>
00020c1c ;    <LVAR -0x408 @>
00020c1c ; --------------------------------------------------------------------------------------
00020c1c 4e 56 fb ba              |NV      |		LINK.W	A6,#0xfbba
00020c20 bf d5                    |        |		CMPA.L	(A5),A7
00020c22 62 06                    |b       |		BHI	0x20c2a
00020c24 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020c28 4e 76                    |Nv      |		TRAPV
00020c2a de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00020c2e 48 e7 e0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D2+D1+D0,-(A7)
00020c32 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00020c36 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
00020c3a 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020c3c 74 10                    |t       |		MOVEQ.L	#0x10,D2
00020c3e 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020c42 20 4f                    | O      |		MOVEA.L	A7,A0
00020c44 43 fa f5 94              |C       |		LEA.L	0x201da,A1
00020c48 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020c4a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020c4c 51 c8 ff fc              |Q       |		DBF	D0,0x20c4a
00020c50 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020c52 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020c56 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020c58 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00020c5c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020c62 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020c64 42 17                    |B       |		CLR.B	(A7)
00020c66 1f 01                    |        |		MOVE.B	D1,-(A7)
00020c68 48 78 00 00              |Hx      |		PEA.L	0x0
00020c6c 48 52                    |HR      |		PEA.L	(A2)
00020c6e 48 53                    |HS      |		PEA.L	(A3)
00020c70 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020c76 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00020c7a 2e 93                    |.       |		MOVE.L	(A3),(A7)
00020c7c 42 67                    |Bg      |		CLR.W	-(A7)
00020c7e 42 67                    |Bg      |		CLR.W	-(A7)
00020c80 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020c84 1f 01                    |        |		MOVE.B	D1,-(A7)
00020c86 41 ee fb f8              |A       |		LEA.L	(A6-0x408),A0
00020c8a 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020c8c 48 52                    |HR      |		PEA.L	(A2)
00020c8e 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020c94 de c2                    |        |		ADDA.W	D2,A7
00020c96 2e 93                    |.       |		MOVE.L	(A3),(A7)
00020c98 30 2e fb fa              |0.      |		MOVE.W	(A6-0x406),D0
00020c9c e6 48                    | H      |		LSR.W	#0x3,D0
00020c9e 52 40                    |R@      |		ADDQ.W	#0x1,D0
00020ca0 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020ca2 42 80                    |B       |		CLR.L	D0
00020ca4 10 2e fb fb              | .      |		MOVE.B	(A6-0x405),D0
00020ca8 eb 08                    |        |		LSL.B	#0x5,D0
00020caa ea 08                    |        |		LSR.B	#0x5,D0
00020cac ed 40                    | @      |		ASL.W	#0x6,D0
00020cae 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020cb0 3f 3c 00 40              |?< @    |		MOVE.W	#0x40,-(A7)
00020cb4 1f 01                    |        |		MOVE.B	D1,-(A7)
00020cb6 41 f9 00 02 1b d0        |A       |		LEA.L	0x21bd0,A0
00020cbc 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020cbe 48 52                    |HR      |		PEA.L	(A2)
00020cc0 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020cc6 de fc 00 12              |        |		ADDA.W	#0x12,A7
00020cca 42 17                    |B       |		CLR.B	(A7)
00020ccc 1f 01                    |        |		MOVE.B	D1,-(A7)
00020cce 48 78 00 01              |Hx      |		PEA.L	0x1
00020cd2 48 52                    |HR      |		PEA.L	(A2)
00020cd4 48 53                    |HS      |		PEA.L	(A3)
00020cd6 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020cdc de c2                    |        |		ADDA.W	D2,A7
00020cde 4c df 0f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3
00020ce2 4e 5e                    |N^      |		UNLK	A6
00020ce4 4e 75                    |Nu      |		RTS
00020ce6 ; --------------------------------------------------------------------------------------
00020ce6 ; OMSI PASCAL Function
00020ce6 ;    <LVAR -0x004 @>
00020ce6 ;    <LVAR -0x00c @ 4(rw)>
00020ce6 ; --------------------------------------------------------------------------------------
00020ce6 4e 56 ff c0              |NV      |		LINK.W	A6,#0xffc0
00020cea bf d5                    |        |		CMPA.L	(A5),A7
00020cec 62 06                    |b       |		BHI	0x20cf4
00020cee 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020cf2 4e 76                    |Nv      |		TRAPV
00020cf4 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00020cf8 48 e7 c1 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D1+D0,-(A7)
00020cfc 43 f9 00 02 17 86        |C       |		LEA.L	0x21786,A1
00020d02 45 f9 00 02 1f 90        |E       |		LEA.L	0x21f90,A2
00020d08 47 ee ff f4              |G       |		LEA.L	(A6-0xc),A3
00020d0c 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020d0e 33 f9 00 02 1b 8e 00 02  |3       |		MOVE.W	0x21b8e,0x21b9a
00020d16 1b 9a                    |        |
00020d18 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020d1a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020d1c 4e b9 00 01 03 08        |N       |		JSR	TimeToText()
00020d22 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020d24 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00020d26 20 53                    | S      |		MOVEA.L	(A3),A0
00020d28 41 e8 00 02              |A       |		LEA.L	(A0+0x2),A0
00020d2c 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020d2e 41 f9 00 02 1b 9c        |A       |		LEA.L	0x21b9c,A0
00020d34 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020d36 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00020d3a 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00020d40 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020d44 48 53                    |HS      |		PEA.L	(A3)
00020d46 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020d4c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020d4e 4e ba fe cc              |N       |		JSR	0x20c1c
00020d52 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020d54 20 07                    |        |		MOVE.L	D7,D0
00020d56 e3 80                    |        |		ASL.L	#0x1,D0
00020d58 41 f9 00 02 17 7e        |A    ~  |		LEA.L	0x2177e,A0
00020d5e 42 70 08 0c              |Bp      |		CLR.W	(A0+D0.L+#0xc)
00020d62 52 87                    |R       |		ADDQ.L	#0x1,D7
00020d64 0c 87 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D7
00020d6a 6f e8                    |o       |		BLE	0x20d54
00020d6c 41 f9 00 02 1b 90        |A       |		LEA.L	0x21b90,A0
00020d72 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020d74 41 f9 00 02 17 8a        |A       |		LEA.L	0x2178a,A0
00020d7a 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020d7c 3f 3c 04 00              |?<      |		MOVE.W	#0x400,-(A7)
00020d80 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00020d86 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d88 2e 91                    |.       |		MOVE.L	(A1),(A7)
00020d8a 42 67                    |Bg      |		CLR.W	-(A7)
00020d8c 42 67                    |Bg      |		CLR.W	-(A7)
00020d8e 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020d92 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020d96 2f 39 00 02 1b 8a        |/9      |		MOVE.L	0x21b8a,-(A7)
00020d9c 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020da0 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00020da6 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020daa 20 51                    | Q      |		MOVEA.L	(A1),A0
00020dac 11 52 00 3a              | R :    |		MOVE.B	(A2),(A0+0x3a)
00020db0 11 79 00 02 1f 91 00 3b  | y     ;|		MOVE.B	0x21f91,(A0+0x3b)
00020db8 11 79 00 02 1f 92 00 3c  | y     <|		MOVE.B	0x21f92,(A0+0x3c)
00020dc0 11 79 00 02 1f 93 00 3d  | y     =|		MOVE.B	0x21f93,(A0+0x3d)
00020dc8 11 41 00 4c              | A L    |		MOVE.B	D1,(A0+0x4c)
00020dcc 42 27                    |B'      |		CLR.B	-(A7)
00020dce 1f 01                    |        |		MOVE.B	D1,-(A7)
00020dd0 48 78 00 01              |Hx      |		PEA.L	0x1
00020dd4 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020dd8 48 51                    |HQ      |		PEA.L	(A1)
00020dda 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020de0 de fc 00 10              |        |		ADDA.W	#0x10,A7
00020de4 4c df 0f 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A2+A3
00020de8 4e 5e                    |N^      |		UNLK	A6
00020dea 4e 75                    |Nu      |		RTS
00020dec ; --------------------------------------------------------------------------------------
00020dec ; OMSI PASCAL Function
00020dec ; --------------------------------------------------------------------------------------
00020dec					START:
00020dec 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00020df0 4e f9 00 01 02 80        |N       |		JMP	?start_program
00020df6					MAIN:
00020df6 45 f9 00 02 1b ae        |E       |		LEA.L	0x21bae,A2
00020dfc 47 f9 00 02 1f d0        |G       |		LEA.L	0x21fd0,A3
00020e02 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
00020e04 74 01                    |t       |		MOVEQ.L	#0x01,D2
00020e06 76 02                    |v       |		MOVEQ.L	#0x02,D3
00020e08 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00020e0e 4e ba f9 dc              |N       |		JSR	0x207ec
00020e12 48 78 00 01              |Hx      |		PEA.L	0x1
00020e16 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
00020e1c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e1e 42 17                    |B       |		CLR.B	(A7)
00020e20 4e b9 00 01 04 d2        |N       |		JSR	SetExpInitDone(a : Byte)
00020e26 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e28 41 f9 00 02 17 8a        |A       |		LEA.L	0x2178a,A0
00020e2e 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020e30 23 df 00 02 1b 8a        |#       |		MOVE.L	(A7)+,0x21b8a
00020e36 33 c3 00 02 1b 90        |3       |		MOVE.W	D3,0x21b90
00020e3c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020e3e 4e b9 00 01 05 ec        |N       |		JSR	Get_fc05() : Byte
00020e44 10 1f                    |        |		MOVE.B	(A7)+,D0
00020e46 48 80                    |H       |		EXTB.W	D0
00020e48 33 c0 00 02 1b 92        |3       |		MOVE.W	D0,0x21b92
00020e4e 42 52                    |BR      |		CLR.W	(A2)
00020e50 2f 3c 00 00 fc c0        |/<      |		MOVE.L	#0xfcc0,-(A7)
00020e56 41 f9 00 02 1c 50        |A    P  |		LEA.L	0x21c50,A0
00020e5c 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020e5e 3f 3c 03 40              |?< @    |		MOVE.W	#0x340,-(A7)
00020e62 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00020e68 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020e6a 2e bc 00 00 fc 60        |.    `  |		MOVE.L	#0xfc60,(A7)
00020e70 20 4b                    | K      |		MOVEA.L	A3,A0
00020e72 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020e74 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00020e78 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00020e7e de c1                    |        |		ADDA.W	D1,A7
00020e80 20 13                    |        |		MOVE.L	(A3),D0
00020e82 04 80 00 00 fc c0        |        |		SUBI.L	#0x0000fcc0,D0
00020e88 52 80                    |R       |		ADDQ.L	#0x1,D0
00020e8a 33 c0 00 02 1b b0        |3       |		MOVE.W	D0,0x21bb0
00020e90 4e ba f9 f2              |N       |		JSR	0x20884
00020e94 4e ba fb 5c              |N  \    |		JSR	0x209f2
00020e98 41 fa f3 54              |A  T    |		LEA.L	0x201ee,A0
00020e9c 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020e9e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020ea0 51 c8 ff fc              |Q       |		DBF	D0,0x20e9e
00020ea4 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020ea6 4e b9 00 01 03 c4        |N       |		JSR	GetArgv() : String
00020eac 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020eae 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020eb2 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020eb4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020eb6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020ebc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ebe 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00020ec4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ec6 4a 1f                    |J       |		TST.B	(A7)+
00020ec8 67 28                    |g(      |		BEQ	0x20ef2
00020eca 4e ba f5 c0              |N       |		JSR	0x2048c
00020ece 4e ba fc 74              |N  t    |		JSR	0x20b44
00020ed2 34 82                    |4       |		MOVE.W	D2,(A2)
00020ed4 4e ba f3 5c              |N  \    |		JSR	0x20232
00020ed8 48 79 00 02 1f d4        |Hy      |		PEA.L	0x21fd4
00020ede 4e ba f7 c4              |N       |		JSR	0x206a4
00020ee2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020ee4 4a 39 00 02 1f d4        |J9      |		TST.B	0x21fd4
00020eea 67 02                    |g       |		BEQ	0x20eee
00020eec 34 83                    |4       |		MOVE.W	D3,(A2)
00020eee 4e ba f4 96              |N       |		JSR	0x20386
00020ef2 de c1                    |        |		ADDA.W	D1,A7
00020ef4 4e ba fd f0              |N       |		JSR	0x20ce6
00020ef8 9e fc 00 3c              |   <    |		SUBA.W	#0x3c,A7
00020efc 20 4f                    | O      |		MOVEA.L	A7,A0
00020efe 43 fa f2 ee              |C       |		LEA.L	0x201ee,A1
00020f02 70 3a                    |p:      |		MOVEQ.L	#0x3a,D0
00020f04 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020f06 51 c8 ff fc              |Q       |		DBF	D0,0x20f04
00020f0a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f0c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020f10 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020f12 3f 3c 00 3b              |?< ;    |		MOVE.W	#0x3b,-(A7)
00020f16 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020f1c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f1e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020f24 de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00020f28 42 17                    |B       |		CLR.B	(A7)
00020f2a 48 78 00 01              |Hx      |		PEA.L	0x1
00020f2e 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020f34 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020f36 4e b9 00 01 02 84        |N       |		JSR	?exit
00020f3c					exp_RUN_NORMAL.FIU():
00020f3c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020f42 00 08                    |        |		.CONST	0x0008			; Stack-delta
00020f44 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.FIU'
00020f53 00                       |        |		.CONST	0x0
00020f54 03                       |        |		.CONST	0x3			; DIPROC address
00020f55 00                       |        |		.CONST	0x0			; Output Parameters
00020f56 00                       |        |		.CONST	0x0			; Input Parameters
00020f57 00                       |        |		.PAD	0x0
00020f58					exp_PREP_RUN.FIU(Sw_2):
00020f58 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020f5e 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00020f60 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.FIU'
00020f6d 00                       |        |		.CONST	0x0
00020f6e 03                       |        |		.CONST	0x3			; DIPROC address
00020f6f 00                       |        |		.CONST	0x0			; Output Parameters
00020f70 01                       |        |		.CONST	0x1			; Input Parameters
00020f71 01                       |        |		.CONST	0x1			; In arg [2]
00020f72					exp_MF.FIU():
00020f72 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020f78 00 08                    |        |		.CONST	0x0008			; Stack-delta
00020f7a 06 4d 46 2e 46 49 55     | MF.FIU |		.TXT	6,'MF.FIU'
00020f81 00                       |        |		.CONST	0x0
00020f82 03                       |        |		.CONST	0x3			; DIPROC address
00020f83 00                       |        |		.CONST	0x0			; Output Parameters
00020f84 00                       |        |		.CONST	0x0			; Input Parameters
00020f85 00                       |        |		.PAD	0x0
00020f86					exp_INIT_MRU.FIU():
00020f86 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020f8c 00 08                    |        |		.CONST	0x0008			; Stack-delta
00020f8e 0c 49 4e 49 54 5f 4d 52  | INIT_MR|		.TXT	12,'INIT_MRU.FIU'
00020f9b 00                       |        |		.CONST	0x0
00020f9c 03                       |        |		.CONST	0x3			; DIPROC address
00020f9d 00                       |        |		.CONST	0x0			; Output Parameters
00020f9e 00                       |        |		.CONST	0x0			; Input Parameters
00020f9f 00                       |        |		.PAD	0x0
00020fa0					exp_FREEZE_WORLD.FIU():
00020fa0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020fa6 00 08                    |        |		.CONST	0x0008			; Stack-delta
00020fa8 10 46 52 45 45 5a 45 5f  | FREEZE_|		.TXT	16,'FREEZE_WORLD.FIU'
00020fb9 00                       |        |		.CONST	0x0
00020fba 03                       |        |		.CONST	0x3			; DIPROC address
00020fbb 00                       |        |		.CONST	0x0			; Output Parameters
00020fbc 00                       |        |		.CONST	0x0			; Input Parameters
00020fbd 00                       |        |		.PAD	0x0
00020fbe					exp_CLEAR_EXCEPTIONS.FIU():
00020fbe 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020fc4 00 08                    |        |		.CONST	0x0008			; Stack-delta
00020fc6 14 43 4c 45 41 52 5f 45  | CLEAR_E|		.TXT	20,'CLEAR_EXCEPTIONS.FIU'
00020fdb 00                       |        |		.CONST	0x0
00020fdc 03                       |        |		.CONST	0x3			; DIPROC address
00020fdd 00                       |        |		.CONST	0x0			; Output Parameters
00020fde 00                       |        |		.CONST	0x0			; Input Parameters
00020fdf 00                       |        |		.PAD	0x0
00020fe0					exp_RESET.SEQ():
00020fe0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020fe6 00 08                    |        |		.CONST	0x0008			; Stack-delta
00020fe8 09 52 45 53 45 54 2e 53  | RESET.S|		.TXT	9,'RESET.SEQ'
00020ff2 00                       |        |		.CONST	0x0
00020ff3 02                       |        |		.CONST	0x2			; DIPROC address
00020ff4 00                       |        |		.CONST	0x0			; Output Parameters
00020ff5 00                       |        |		.CONST	0x0			; Input Parameters
00020ff6					exp_RUN_CHECK.SEQ():
00020ff6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00020ffc 00 08                    |        |		.CONST	0x0008			; Stack-delta
00020ffe 0d 52 55 4e 5f 43 48 45  | RUN_CHE|		.TXT	13,'RUN_CHECK.SEQ'
0002100c 00                       |        |		.CONST	0x0
0002100d 02                       |        |		.CONST	0x2			; DIPROC address
0002100e 00                       |        |		.CONST	0x0			; Output Parameters
0002100f 00                       |        |		.CONST	0x0			; Input Parameters
00021010					exp_PREP_RUN.SEQ(Sw_2):
00021010 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021016 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00021018 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.SEQ'
00021025 00                       |        |		.CONST	0x0
00021026 02                       |        |		.CONST	0x2			; DIPROC address
00021027 00                       |        |		.CONST	0x0			; Output Parameters
00021028 01                       |        |		.CONST	0x1			; Input Parameters
00021029 01                       |        |		.CONST	0x1			; In arg [2]
0002102a					exp_WRITE_REG.TYP(Sw_2, Sw_8_1, Sw_1):
0002102a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021030 00 16                    |        |		.CONST	0x0016			; Stack-delta
00021032 0d 57 52 49 54 45 5f 52  | WRITE_R|		.TXT	13,'WRITE_REG.TYP'
00021040 00                       |        |		.CONST	0x0
00021041 06                       |        |		.CONST	0x6			; DIPROC address
00021042 00                       |        |		.CONST	0x0			; Output Parameters
00021043 03                       |        |		.CONST	0x3			; Input Parameters
00021044 01                       |        |		.CONST	0x1			; In arg [2]
00021045 0d                       |        |		.CONST	0xd			; In arg [8, 1]
00021046 00                       |        |		.CONST	0x0			; In arg [1]
00021047 00                       |        |		.PAD	0x0
00021048					exp_RUN_NORMAL.TYP():
00021048 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002104e 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021050 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.TYP'
0002105f 00                       |        |		.CONST	0x0
00021060 06                       |        |		.CONST	0x6			; DIPROC address
00021061 00                       |        |		.CONST	0x0			; Output Parameters
00021062 00                       |        |		.CONST	0x0			; Input Parameters
00021063 00                       |        |		.PAD	0x0
00021064					exp_PREP_WRITE_REG.TYP(Sw_8, &Sr_8_1):
00021064 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002106a 00 14                    |        |		.CONST	0x0014			; Stack-delta
0002106c 12 50 52 45 50 5f 57 52  | PREP_WR|		.TXT	18,'PREP_WRITE_REG.TYP'
0002107f 00                       |        |		.CONST	0x0
00021080 06                       |        |		.CONST	0x6			; DIPROC address
00021081 01                       |        |		.CONST	0x1			; Output Parameters
00021082 01                       |        |		.CONST	0x1			; Input Parameters
00021083 07                       |        |		.CONST	0x7			; In arg [8]
00021084 0d                       |        |		.CONST	0xd			; Out arg [8, 1]
00021085 00                       |        |		.PAD	0x0
00021086					exp_PREP_RUN.TYP(Sw_2):
00021086 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002108c 00 0a                    |        |		.CONST	0x000a			; Stack-delta
0002108e 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.TYP'
0002109b 00                       |        |		.CONST	0x0
0002109c 06                       |        |		.CONST	0x6			; DIPROC address
0002109d 00                       |        |		.CONST	0x0			; Output Parameters
0002109e 01                       |        |		.CONST	0x1			; Input Parameters
0002109f 01                       |        |		.CONST	0x1			; In arg [2]
000210a0					exp_MF.TYP():
000210a0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000210a6 00 08                    |        |		.CONST	0x0008			; Stack-delta
000210a8 06 4d 46 2e 54 59 50     | MF.TYP |		.TXT	6,'MF.TYP'
000210af 00                       |        |		.CONST	0x0
000210b0 06                       |        |		.CONST	0x6			; DIPROC address
000210b1 00                       |        |		.CONST	0x0			; Output Parameters
000210b2 00                       |        |		.CONST	0x0			; Input Parameters
000210b3 00                       |        |		.PAD	0x0
000210b4					exp_LOAD_BENIGN_UWORD.TYP():
000210b4 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000210ba 00 08                    |        |		.CONST	0x0008			; Stack-delta
000210bc 15 4c 4f 41 44 5f 42 45  | LOAD_BE|		.TXT	21,'LOAD_BENIGN_UWORD.TYP'
000210d2 00                       |        |		.CONST	0x0
000210d3 06                       |        |		.CONST	0x6			; DIPROC address
000210d4 00                       |        |		.CONST	0x0			; Output Parameters
000210d5 00                       |        |		.CONST	0x0			; Input Parameters
000210d6					exp_RUN_NORMAL.VAL():
000210d6 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000210dc 00 08                    |        |		.CONST	0x0008			; Stack-delta
000210de 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.VAL'
000210ed 00                       |        |		.CONST	0x0
000210ee 07                       |        |		.CONST	0x7			; DIPROC address
000210ef 00                       |        |		.CONST	0x0			; Output Parameters
000210f0 00                       |        |		.CONST	0x0			; Input Parameters
000210f1 00                       |        |		.PAD	0x0
000210f2					exp_PREP_RUN.VAL(Sw_2):
000210f2 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000210f8 00 0a                    |        |		.CONST	0x000a			; Stack-delta
000210fa 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.VAL'
00021107 00                       |        |		.CONST	0x0
00021108 07                       |        |		.CONST	0x7			; DIPROC address
00021109 00                       |        |		.CONST	0x0			; Output Parameters
0002110a 01                       |        |		.CONST	0x1			; Input Parameters
0002110b 01                       |        |		.CONST	0x1			; In arg [2]
0002110c					exp_MF.VAL():
0002110c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021112 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021114 06 4d 46 2e 56 41 4c     | MF.VAL |		.TXT	6,'MF.VAL'
0002111b 00                       |        |		.CONST	0x0
0002111c 07                       |        |		.CONST	0x7			; DIPROC address
0002111d 00                       |        |		.CONST	0x0			; Output Parameters
0002111e 00                       |        |		.CONST	0x0			; Input Parameters
0002111f 00                       |        |		.PAD	0x0
00021120 53 45 54 5f 48 49 54 2e  |SET_HIT.|		.TXT	'SET_HIT.MEM '
0002112c 53 45 54 5f 48 49 54 2e  |SET_HIT.|		.TXT	'SET_HIT.M32 '
00021138 ; --------------------------------------------------------------------------------------
00021138 ; OMSI PASCAL Function
00021138 ;    <LVAR  0x00a 1(r)>
00021138 ;    <LVAR  0x008 1(r)>
00021138 ;    <LVAR -0x004 @ 4(r)>
00021138 ; --------------------------------------------------------------------------------------
00021138 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
0002113c bf d5                    |        |		CMPA.L	(A5),A7
0002113e 62 06                    |b       |		BHI	0x21146
00021140 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021144 4e 76                    |Nv      |		TRAPV
00021146 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
0002114a 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
0002114e 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00021152 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
00021154 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021156 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
0002115c 4a 1f                    |J       |		TST.B	(A7)+
0002115e 67 12                    |g       |		BEQ	0x21172
00021160 9e c1                    |        |		SUBA.W	D1,A7
00021162 20 4f                    | O      |		MOVEA.L	A7,A0
00021164 43 fa ff ba              |C       |		LEA.L	0x21120,A1
00021168 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002116a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002116c 51 c8 ff fc              |Q       |		DBF	D0,0x2116a
00021170 60 10                    |`       |		BRA	0x21182
00021172 9e c1                    |        |		SUBA.W	D1,A7
00021174 20 4f                    | O      |		MOVEA.L	A7,A0
00021176 43 fa ff b4              |C       |		LEA.L	0x2112c,A1
0002117a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002117c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002117e 51 c8 ff fc              |Q       |		DBF	D0,0x2117c
00021182 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021184 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021188 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002118c 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00021190 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021196 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021198 48 52                    |HR      |		PEA.L	(A2)
0002119a 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000211a0 de fc 00 14              |        |		ADDA.W	#0x14,A7
000211a4 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000211a8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000211aa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000211ae 48 78 00 00              |Hx      |		PEA.L	0x0
000211b2 48 78 00 00              |Hx      |		PEA.L	0x0
000211b6 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
000211bc de fc 00 10              |        |		ADDA.W	#0x10,A7
000211c0 42 17                    |B       |		CLR.B	(A7)
000211c2 1f 2e 00 0a              | .      |		MOVE.B	(A6+0xa),-(A7)
000211c6 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000211c8 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000211ce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211d0 48 52                    |HR      |		PEA.L	(A2)
000211d2 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000211d8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000211da 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000211de 4e 5e                    |N^      |		UNLK	A6
000211e0 4e 75                    |Nu      |		RTS
000211e2 52 55 4e 5f 43 48 45 43  |RUN_CHEC|		.TXT	'RUN_CHECK.MEM '
000211f0 52 55 4e 5f 43 48 45 43  |RUN_CHEC|		.TXT	'RUN_CHECK.M32 '
000211fe ; --------------------------------------------------------------------------------------
000211fe ; OMSI PASCAL Function
000211fe ;    <LVAR  0x008 1(r)>
000211fe ;    <LVAR -0x006 @ 4(r)>
000211fe ; --------------------------------------------------------------------------------------
000211fe 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00021202 bf d5                    |        |		CMPA.L	(A5),A7
00021204 62 06                    |b       |		BHI	0x2120c
00021206 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002120a 4e 76                    |Nv      |		TRAPV
0002120c de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00021210 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00021214 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00021218 72 0e                    |r       |		MOVEQ.L	#0x0e,D1
0002121a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002121c 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021222 4a 1f                    |J       |		TST.B	(A7)+
00021224 67 12                    |g       |		BEQ	0x21238
00021226 9e c1                    |        |		SUBA.W	D1,A7
00021228 20 4f                    | O      |		MOVEA.L	A7,A0
0002122a 43 fa ff b6              |C       |		LEA.L	0x211e2,A1
0002122e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021230 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021232 51 c8 ff fc              |Q       |		DBF	D0,0x21230
00021236 60 10                    |`       |		BRA	0x21248
00021238 9e c1                    |        |		SUBA.W	D1,A7
0002123a 20 4f                    | O      |		MOVEA.L	A7,A0
0002123c 43 fa ff b2              |C       |		LEA.L	0x211f0,A1
00021240 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021242 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021244 51 c8 ff fc              |Q       |		DBF	D0,0x21242
00021248 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002124a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002124e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021252 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00021256 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002125c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002125e 48 52                    |HR      |		PEA.L	(A2)
00021260 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021266 de fc 00 16              |        |		ADDA.W	#0x16,A7
0002126a 42 27                    |B'      |		CLR.B	-(A7)
0002126c 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00021270 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021272 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021278 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002127a 48 52                    |HR      |		PEA.L	(A2)
0002127c 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00021282 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021284 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00021288 4e 5e                    |N^      |		UNLK	A6
0002128a 4e 75                    |Nu      |		RTS
0002128c 4d 46                    |MF      |		.TXT	'MF'
0002128e 2e 4d                    |.M      |		.TXT	'.M'
00021290 45 4d                    |EM      |		.TXT	'EM'
00021292 4d 46                    |MF      |		.TXT	'MF'
00021294 2e 4d                    |.M      |		.TXT	'.M'
00021296 33 32                    |32      |		.TXT	'32'
00021298 ; --------------------------------------------------------------------------------------
00021298 ; OMSI PASCAL Function
00021298 ;    <LVAR  0x008 1(r)>
00021298 ;    <LVAR -0x006 @ 4(r)>
00021298 ; --------------------------------------------------------------------------------------
00021298 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
0002129c bf d5                    |        |		CMPA.L	(A5),A7
0002129e 62 06                    |b       |		BHI	0x212a6
000212a0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000212a4 4e 76                    |Nv      |		TRAPV
000212a6 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000212aa 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
000212ae 41 ee ff fa              |A       |		LEA.L	(A6-0x6),A0
000212b2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000212b4 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000212ba 4a 1f                    |J       |		TST.B	(A7)+
000212bc 67 0e                    |g       |		BEQ	0x212cc
000212be 3f 3a ff d0              |?:      |		MOVE.W	0x21290,-(A7)
000212c2 3f 3a ff ca              |?:      |		MOVE.W	0x2128e,-(A7)
000212c6 3f 3a ff c4              |?:      |		MOVE.W	0x2128c,-(A7)
000212ca 60 0c                    |`       |		BRA	0x212d8
000212cc 3f 3a ff c8              |?:      |		MOVE.W	0x21296,-(A7)
000212d0 3f 3a ff c2              |?:      |		MOVE.W	0x21294,-(A7)
000212d4 3f 3a ff bc              |?:      |		MOVE.W	0x21292,-(A7)
000212d8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000212da 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000212de 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000212e2 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
000212e6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000212ec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000212ee 48 50                    |HP      |		PEA.L	(A0)
000212f0 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000212f6 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000212fa 42 27                    |B'      |		CLR.B	-(A7)
000212fc 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00021300 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00021302 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021308 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002130a 48 50                    |HP      |		PEA.L	(A0)
0002130c 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00021312 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021314 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00021318 4e 5e                    |N^      |		UNLK	A6
0002131a 4e 75                    |Nu      |		RTS
0002131c 43 4c 45 41 52 5f 50 41  |CLEAR_PA|		.TXT	'CLEAR_PARITY_ERRORS.MEM '
00021334 43 4c 45 41 52 5f 50 41  |CLEAR_PA|		.TXT	'CLEAR_PARITY_ERRORS.M32 '
0002134c ; --------------------------------------------------------------------------------------
0002134c ; OMSI PASCAL Function
0002134c ;    <LVAR  0x008 1(r)>
0002134c ;    <LVAR -0x006 @ 4(r)>
0002134c ; --------------------------------------------------------------------------------------
0002134c 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
00021350 bf d5                    |        |		CMPA.L	(A5),A7
00021352 62 06                    |b       |		BHI	0x2135a
00021354 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021358 4e 76                    |Nv      |		TRAPV
0002135a de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
0002135e 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
00021362 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00021366 72 18                    |r       |		MOVEQ.L	#0x18,D1
00021368 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002136a 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021370 4a 1f                    |J       |		TST.B	(A7)+
00021372 67 12                    |g       |		BEQ	0x21386
00021374 9e c1                    |        |		SUBA.W	D1,A7
00021376 20 4f                    | O      |		MOVEA.L	A7,A0
00021378 43 fa ff a2              |C       |		LEA.L	0x2131c,A1
0002137c 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002137e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021380 51 c8 ff fc              |Q       |		DBF	D0,0x2137e
00021384 60 10                    |`       |		BRA	0x21396
00021386 9e c1                    |        |		SUBA.W	D1,A7
00021388 20 4f                    | O      |		MOVEA.L	A7,A0
0002138a 43 fa ff a8              |C       |		LEA.L	0x21334,A1
0002138e 70 16                    |p       |		MOVEQ.L	#0x16,D0
00021390 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021392 51 c8 ff fc              |Q       |		DBF	D0,0x21390
00021396 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021398 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002139c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000213a0 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
000213a4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000213aa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213ac 48 52                    |HR      |		PEA.L	(A2)
000213ae 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000213b4 de fc 00 20              |        |		ADDA.W	#0x20,A7
000213b8 42 27                    |B'      |		CLR.B	-(A7)
000213ba 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000213be 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000213c0 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000213c6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213c8 48 52                    |HR      |		PEA.L	(A2)
000213ca 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000213d0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000213d2 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000213d6 4e 5e                    |N^      |		UNLK	A6
000213d8 4e 75                    |Nu      |		RTS
000213da 43 4c 45 41 52 5f 48 49  |CLEAR_HI|		.TXT	'CLEAR_HITS.MEM'
000213e8 43 4c 45 41 52 5f 48 49  |CLEAR_HI|		.TXT	'CLEAR_HITS.M32'
000213f6 ; --------------------------------------------------------------------------------------
000213f6 ; OMSI PASCAL Function
000213f6 ;    <LVAR  0x008 1(r)>
000213f6 ;    <LVAR -0x006 @ 4(r)>
000213f6 ; --------------------------------------------------------------------------------------
000213f6 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
000213fa bf d5                    |        |		CMPA.L	(A5),A7
000213fc 62 06                    |b       |		BHI	0x21404
000213fe 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021402 4e 76                    |Nv      |		TRAPV
00021404 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00021408 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
0002140c 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
00021410 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021412 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021418 4a 1f                    |J       |		TST.B	(A7)+
0002141a 67 0e                    |g       |		BEQ	0x2142a
0002141c 41 fa ff ca              |A       |		LEA.L	0x213e8,A0
00021420 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021422 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021424 51 c8 ff fc              |Q       |		DBF	D0,0x21422
00021428 60 0c                    |`       |		BRA	0x21436
0002142a 41 fa ff ca              |A       |		LEA.L	0x213f6,A0
0002142e 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021430 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021432 51 c8 ff fc              |Q       |		DBF	D0,0x21430
00021436 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021438 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002143c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021440 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00021444 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002144a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002144c 48 51                    |HQ      |		PEA.L	(A1)
0002144e 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021454 de fc 00 16              |        |		ADDA.W	#0x16,A7
00021458 42 27                    |B'      |		CLR.B	-(A7)
0002145a 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002145e 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021460 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021466 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021468 48 51                    |HQ      |		PEA.L	(A1)
0002146a 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00021470 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021472 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00021476 4e 5e                    |N^      |		UNLK	A6
00021478 4e 75                    |Nu      |		RTS
0002147a 43 4c 45 41 52 5f 44 52  |CLEAR_DR|		.TXT	'CLEAR_DRIVE_HIT.MEM '
0002148e 43 4c 45 41 52 5f 44 52  |CLEAR_DR|		.TXT	'CLEAR_DRIVE_HIT.M32 '
000214a2 ; --------------------------------------------------------------------------------------
000214a2 ; OMSI PASCAL Function
000214a2 ;    <LVAR  0x008 1(r)>
000214a2 ;    <LVAR -0x006 @ 4(r)>
000214a2 ; --------------------------------------------------------------------------------------
000214a2 4e 56 ff c2              |NV      |		LINK.W	A6,#0xffc2
000214a6 bf d5                    |        |		CMPA.L	(A5),A7
000214a8 62 06                    |b       |		BHI	0x214b0
000214aa 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000214ae 4e 76                    |Nv      |		TRAPV
000214b0 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
000214b4 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000214b8 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000214bc 72 14                    |r       |		MOVEQ.L	#0x14,D1
000214be 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000214c0 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000214c6 4a 1f                    |J       |		TST.B	(A7)+
000214c8 67 12                    |g       |		BEQ	0x214dc
000214ca 9e c1                    |        |		SUBA.W	D1,A7
000214cc 20 4f                    | O      |		MOVEA.L	A7,A0
000214ce 43 fa ff aa              |C       |		LEA.L	0x2147a,A1
000214d2 70 12                    |p       |		MOVEQ.L	#0x12,D0
000214d4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000214d6 51 c8 ff fc              |Q       |		DBF	D0,0x214d4
000214da 60 10                    |`       |		BRA	0x214ec
000214dc 9e c1                    |        |		SUBA.W	D1,A7
000214de 20 4f                    | O      |		MOVEA.L	A7,A0
000214e0 43 fa ff ac              |C       |		LEA.L	0x2148e,A1
000214e4 70 12                    |p       |		MOVEQ.L	#0x12,D0
000214e6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000214e8 51 c8 ff fc              |Q       |		DBF	D0,0x214e6
000214ec 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000214ee 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000214f2 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000214f6 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
000214fa 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021500 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021502 48 52                    |HR      |		PEA.L	(A2)
00021504 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
0002150a de fc 00 1c              |        |		ADDA.W	#0x1c,A7
0002150e 42 27                    |B'      |		CLR.B	-(A7)
00021510 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00021514 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021516 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
0002151c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002151e 48 52                    |HR      |		PEA.L	(A2)
00021520 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00021526 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021528 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
0002152c 4e 5e                    |N^      |		UNLK	A6
0002152e 4e 75                    |Nu      |		RTS
00021530					exp_RUN_CHECK.IOC():
00021530 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021536 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021538 0d 52 55 4e 5f 43 48 45  | RUN_CHE|		.TXT	13,'RUN_CHECK.IOC'
00021546 00                       |        |		.CONST	0x0
00021547 04                       |        |		.CONST	0x4			; DIPROC address
00021548 00                       |        |		.CONST	0x0			; Output Parameters
00021549 00                       |        |		.CONST	0x0			; Input Parameters
0002154a					exp_PREP_RUN.IOC(Sw_2):
0002154a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021550 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00021552 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.IOC'
0002155f 00                       |        |		.CONST	0x0
00021560 04                       |        |		.CONST	0x4			; DIPROC address
00021561 00                       |        |		.CONST	0x0			; Output Parameters
00021562 01                       |        |		.CONST	0x1			; Input Parameters
00021563 01                       |        |		.CONST	0x1			; In arg [2]
00021564					exp_MF.IOC():
00021564 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002156a 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002156c 06 4d 46 2e 49 4f 43     | MF.IOC |		.TXT	6,'MF.IOC'
00021573 00                       |        |		.CONST	0x0
00021574 04                       |        |		.CONST	0x4			; DIPROC address
00021575 00                       |        |		.CONST	0x0			; Output Parameters
00021576 00                       |        |		.CONST	0x0			; Input Parameters
00021577 00                       |        |		.PAD	0x0
00021578 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00021586 ; --------------------------------------------------------------------------------------
00021586 ; OMSI PASCAL Function
00021586 ;    <LVAR  0x008 1(r)>
00021586 ; --------------------------------------------------------------------------------------
00021586					PROG_FAIL:
00021586 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
0002158a bf d5                    |        |		CMPA.L	(A5),A7
0002158c 62 06                    |b       |		BHI	0x21594
0002158e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021592 4e 76                    |Nv      |		TRAPV
00021594 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00021598 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0002159c 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
000215a0 70 06                    |p       |		MOVEQ.L	#0x06,D0
000215a2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000215a4 51 c8 ff fc              |Q       |		DBF	D0,0x215a2
000215a8 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
000215ac 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000215ae 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
000215b2 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000215b6 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
000215ba 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000215c0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000215c2 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000215c6 48 80                    |H       |		EXTB.W	D0
000215c8 48 c0                    |H       |		EXTW.L	D0
000215ca 2f 00                    |/       |		MOVE.L	D0,-(A7)
000215cc 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000215d2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000215d4 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000215da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000215dc 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000215e2 de fc 00 14              |        |		ADDA.W	#0x14,A7
000215e6 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
000215ea 4e 5e                    |N^      |		UNLK	A6
000215ec 4e 75                    |Nu      |		RTS
000215ee 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
000215fc 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
0002160a 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00021618 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
0002162a 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00021642 ; --------------------------------------------------------------------------------------
00021642 ; OMSI PASCAL Function
00021642 ;    <LVAR  0x00e 1(r)>
00021642 ;    <LVAR  0x00a 4(r)>
00021642 ;    <LVAR  0x008 1(r)>
00021642 ; --------------------------------------------------------------------------------------
00021642					EXP_FAIL:
00021642 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00021646 bf d5                    |        |		CMPA.L	(A5),A7
00021648 62 06                    |b       |		BHI	0x21650
0002164a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002164e 4e 76                    |Nv      |		TRAPV
00021650 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00021654 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00021658 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
0002165e 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00021664 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021666 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00021668 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
0002166a 78 12                    |x       |		MOVEQ.L	#0x12,D4
0002166c 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
0002166e 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00021674 41 fa ff b4              |A       |		LEA.L	0x2162a,A0
00021678 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002167a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002167c 51 c8 ff fc              |Q       |		DBF	D0,0x2167a
00021680 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021682 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021686 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021688 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002168a 4e 93                    |N       |		JSR	(A3)
0002168c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002168e 4e 94                    |N       |		JSR	(A4)
00021690 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021692 20 4f                    | O      |		MOVEA.L	A7,A0
00021694 43 fa ff 58              |C  X    |		LEA.L	0x215ee,A1
00021698 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002169a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002169c 51 c8 ff fc              |Q       |		DBF	D0,0x2169a
000216a0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000216a2 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000216a6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000216a8 3f 02                    |?       |		MOVE.W	D2,-(A7)
000216aa 4e 93                    |N       |		JSR	(A3)
000216ac 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000216ae 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
000216b2 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
000216b8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000216ba 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000216c0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216c2 4e 94                    |N       |		JSR	(A4)
000216c4 de c4                    |        |		ADDA.W	D4,A7
000216c6 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
000216ca b0 c1                    |        |		CMPA.W	D1,A0
000216cc 67 48                    |gH      |		BEQ	0x21716
000216ce 9e c5                    |        |		SUBA.W	D5,A7
000216d0 22 4f                    |"O      |		MOVEA.L	A7,A1
000216d2 45 fa ff 28              |E  (    |		LEA.L	0x215fc,A2
000216d6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000216d8 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000216da 51 c8 ff fc              |Q       |		DBF	D0,0x216d8
000216de 9e c3                    |        |		SUBA.W	D3,A7
000216e0 22 4f                    |"O      |		MOVEA.L	A7,A1
000216e2 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
000216e6 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000216e8 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000216ea 51 c8 ff fc              |Q       |		DBF	D0,0x216e8
000216ee 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000216f0 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
000216f4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000216f6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000216f8 4e 93                    |N       |		JSR	(A3)
000216fa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000216fc 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021700 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021702 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021704 4e 93                    |N       |		JSR	(A3)
00021706 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021708 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002170e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021710 4e 94                    |N       |		JSR	(A4)
00021712 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021716 9e c5                    |        |		SUBA.W	D5,A7
00021718 20 4f                    | O      |		MOVEA.L	A7,A0
0002171a 43 fa fe ee              |C       |		LEA.L	0x2160a,A1
0002171e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021720 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021722 51 c8 ff fc              |Q       |		DBF	D0,0x21720
00021726 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021728 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002172c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002172e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021730 4e 93                    |N       |		JSR	(A3)
00021732 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021734 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00021738 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
0002173e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021740 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021746 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021748 4e 94                    |N       |		JSR	(A4)
0002174a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002174c 20 4f                    | O      |		MOVEA.L	A7,A0
0002174e 43 fa fe da              |C       |		LEA.L	0x2162a,A1
00021752 70 16                    |p       |		MOVEQ.L	#0x16,D0
00021754 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021756 51 c8 ff fc              |Q       |		DBF	D0,0x21754
0002175a 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002175e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021760 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021764 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021766 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
0002176a 4e 93                    |N       |		JSR	(A3)
0002176c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002176e 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021774 de c3                    |        |		ADDA.W	D3,A7
00021776 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
0002177a 4e 5e                    |N^      |		UNLK	A6
0002177c 4e 75                    |Nu      |		RTS