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

⟦da3840471⟧ M200

    Length: 7168 (0x1c00)
    Types: M200
    Notes: @(#)CRASHSAVE,3.0,92/09/09,17:18:19, M200_PROGRAM
    Names: »CRASHSAVE.M200«

Derivation

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

Disassembly

0x202c8


@ 202c8
        <LVAR -0x004 1(rw)>
        <LVAR -0x005 1(rw)>
        <LVAR -0x00e @>
    <POP 202c8-2041c Body>                                              
        <POP 202c8-202de Prologue>                           Σ0         ↓
        <POP 202de-202ec RegCacheLoad>                       Σ0         ↓
        <POP 202ec-20340 Naked>                              Σ0         ↓
            <Call 0x202ec 0x21352>                                              {}
                exp_CLEAR_EXCEPTIONS.FIU()
            <MI 202f2  MOVE.B  #0x01,(A6-0x5)>                                  {}
            <MI 202f8  MOVE.B  #0xb4,(A6-0x4)>                                  {}
            <Blob 0x202fe [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x20302 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Pointer.fp 0x20306 <LVAR -0x00e @>>             Δ-4                {[«4""»]|[«4""»]|[@@-14]}
            <Call 0x2030a 0x213f8>                                              {[«4""»]|[«4""»]|[@@-14]}
                exp_PREP_WRITE_REG.TYP(Sw_8, &Sr_8_1)
            <POP 20310-20312 StackAdj>                       Δ+10               {[-2-]}
            <MI 20312  MOVE.B  (A6-0x5),(A7)>                                   {[-2-]}
            <MI 20316  MOVE.B  (A6-0x4),(A7+0x1)>                               {[-2-]}
            <Blob 0x2031c [10] (A6-0xe)>                     Δ-10               {[-2-]|[«10»]}
            <MI 2032c  CLR.B   -(A7)>                        Δ-2                {[-2-]|[«10»]|[#0]}
            <Call 0x2032e 0x213be>                                              {[-2-]|[«10»]|[#0]}
                exp_WRITE_REG.TYP(Sw_2, Sw_8_1, Sw_1)
            <POP 20334-20338 StackAdj>                       Δ+14               {}
            <Call 0x20338 0x21448>                                              {}
                exp_LOAD_BENIGN_UWORD.TYP()
            <MI 2033e  MOVEQ.L #0x0c,D7>                                        {}
        <POP 20340-2034c Naked>                              Σ0         ↓ →0x2035a ←0x2035a
            <POP 20340-20342 StackAdj>                       Δ-2                {[-2-]}
            <MI 20342  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x20344 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20346-20348 StackAdj>                       Δ+2                {[-2-]}
            <MI 20348  TST.B   (A7)+>                        Δ+2                {}
            <MI 2034a  BEQ     0x2035a>                                         {}
        <POP 2034c-2035a Naked>                              Σ0         ↓
            <MI 2034c  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Const 0x2034e 0xff.2>                           Δ-2                {[2, 'D7']|[#255]}
            <Call 0x20352 0x214cc>                                              {[2, 'D7']|[#255]}
            <POP 20358-2035a StackAdj>                       Δ+4                {}
        <POP 2035a-20360 Naked>                              Σ0         ↓ →0x20340 ←0x20340
            <MI 2035a  ADDQ.B  #0x1,D7>                                         {}
            <MI 2035c  CMP.B   #0x0f,D7>                                        {}
            <MI 2035e  BLE     0x20340>                                         {}
        <POP 20360-20368 Naked>                              Σ0         ↓
            <Call 0x20360 0x2131a>                                              {}
                exp_INIT_MRU.FIU()
            <MI 20366  MOVEQ.L #0x0c,D7>                                        {}
        <POP 20368-20374 Naked>                              Σ0         ↓ →0x2037e ←0x2037e
            <POP 20368-2036a StackAdj>                       Δ-2                {[-2-]}
            <MI 2036a  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x2036c 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2036e-20370 StackAdj>                       Δ+2                {[-2-]}
            <MI 20370  TST.B   (A7)+>                        Δ+2                {}
            <MI 20372  BEQ     0x2037e>                                         {}
        <POP 20374-2037e Naked>                              Σ0         ↓
            <MI 20374  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x20376 0x2178a>                                              {[2, 'D7']}
            <POP 2037c-2037e StackAdj>                       Δ+2                {}
        <POP 2037e-20384 Naked>                              Σ0         ↓ →0x20368 ←0x20368
            <MI 2037e  ADDQ.B  #0x1,D7>                                         {}
            <MI 20380  CMP.B   #0x0f,D7>                                        {}
            <MI 20382  BLE     0x20368>                                         {}
        <POP 20384-203b6 Naked>                              Σ0         ↓
            <Call 0x20384 0x105b0>                                              {}
                FifoInit(void)
            <Const 0x2038a 0x127.2>                          Δ-2                {[#295]}
            <Call 0x2038c 0x2141a>                                              {[#295]}
                exp_PREP_RUN.TYP(Sw_2)
            <POP 20392-20393 StackAdj>                       Δ+2                {}
            <Const 0x20393 0x127.2>                          Δ-2                {[#295]}
            <Call 0x20394 0x21486>                                              {[#295]}
                exp_PREP_RUN.VAL(Sw_2)
            <POP 2039a-2039b StackAdj>                       Δ+2                {}
            <Const 0x2039b 0x127.2>                          Δ-2                {[#295]}
            <Call 0x2039c 0x218de>                                              {[#295]}
                exp_PREP_RUN.IOC(Sw_2)
            <POP 203a2-203a3 StackAdj>                       Δ+2                {}
            <Const 0x203a3 0x127.2>                          Δ-2                {[#295]}
            <Call 0x203a4 0x213a4>                                              {[#295]}
                exp_PREP_RUN.SEQ(Sw_2)
            <POP 203aa-203ab StackAdj>                       Δ+2                {}
            <Const 0x203ab 0x127.2>                          Δ-2                {[#295]}
            <Call 0x203ac 0x212ec>                                              {[#295]}
                exp_PREP_RUN.FIU(Sw_2)
            <POP 203b2-203b4 StackAdj>                       Δ+2                {}
            <MI 203b4  MOVEQ.L #0x0c,D7>                                        {}
        <POP 203b6-203c2 Naked>                              Σ0         ↓ →0x203cc ←0x203cc
            <POP 203b6-203b8 StackAdj>                       Δ-2                {[-2-]}
            <MI 203b8  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x203ba 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 203bc-203be StackAdj>                       Δ+2                {[-2-]}
            <MI 203be  TST.B   (A7)+>                        Δ+2                {}
            <MI 203c0  BEQ     0x203cc>                                         {}
        <POP 203c2-203cc Naked>                              Σ0         ↓
            <MI 203c2  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x203c4 0x216e0>                                              {[2, 'D7']}
            <POP 203ca-203cc StackAdj>                       Δ+2                {}
        <POP 203cc-203d2 Naked>                              Σ0         ↓ →0x203b6 ←0x203b6
            <MI 203cc  ADDQ.B  #0x1,D7>                                         {}
            <MI 203ce  CMP.B   #0x0f,D7>                                        {}
            <MI 203d0  BLE     0x203b6>                                         {}
        <POP 203d2-203f2 Naked>                              Σ0         ↓
            <Call 0x203d2 0x21334>                                              {}
                exp_FREEZE_WORLD.FIU()
            <Call 0x203d8 0x213dc>                                              {}
                exp_RUN_NORMAL.TYP()
            <Call 0x203de 0x2146a>                                              {}
                exp_RUN_NORMAL.VAL()
            <Call 0x203e4 0x2138a>                                              {}
                exp_RUN_CHECK.SEQ()
            <Call 0x203ea 0x218c4>                                              {}
                exp_RUN_CHECK.IOC()
            <MI 203f0  MOVEQ.L #0x0c,D7>                                        {}
        <POP 203f2-203fe Naked>                              Σ0         ↓ →0x20408 ←0x20408
            <POP 203f2-203f4 StackAdj>                       Δ-2                {[-2-]}
            <MI 203f4  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x203f6 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 203f8-203fa StackAdj>                       Δ+2                {[-2-]}
            <MI 203fa  TST.B   (A7)+>                        Δ+2                {}
            <MI 203fc  BEQ     0x20408>                                         {}
        <POP 203fe-20408 Naked>                              Σ0         ↓
            <MI 203fe  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x20400 0x21592>                                              {[2, 'D7']}
            <POP 20406-20408 StackAdj>                       Δ+2                {}
        <POP 20408-2040e Naked>                              Σ0         ↓ →0x203f2 ←0x203f2
            <MI 20408  ADDQ.B  #0x1,D7>                                         {}
            <MI 2040a  CMP.B   #0x0f,D7>                                        {}
            <MI 2040c  BLE     0x203f2>                                         {}
        <POP 2040e-20414 Naked>                              Σ0         ↓
            <Call 0x2040e 0x212d0>                                              {}
                exp_RUN_NORMAL.FIU()
        <POP 20414-2041c Epilogue>                           Σ0         

0x2041c


@ 2041c
    <POP 2041c-204a4 Body>                                              
        <POP 2041c-20432 Prologue>                           Σ0         ↓
        <POP 20432-20434 RegCacheLoad>                       Σ0         ↓
        <POP 20434-20454 Naked>                              Σ0         ↓
            <Call 0x20434 0x21334>                                              {}
                exp_FREEZE_WORLD.FIU()
            <Call 0x2043a 0x218f8>                                              {}
                exp_MF.IOC()
            <Call 0x20440 0x214a0>                                              {}
                exp_MF.VAL()
            <Call 0x20446 0x21434>                                              {}
                exp_MF.TYP()
            <Call 0x2044c 0x21374>                                              {}
                exp_RESET.SEQ()
            <MI 20452  MOVEQ.L #0x0c,D7>                                        {}
        <POP 20454-20464 Naked>                              Σ0         ↓ →0x2046e ←0x2046e
            <POP 20454-20456 StackAdj>                       Δ-2                {[-2-]}
            <MI 20456  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x20458 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 2045e-20460 StackAdj>                       Δ+2                {[-2-]}
            <MI 20460  TST.B   (A7)+>                        Δ+2                {}
            <MI 20462  BEQ     0x2046e>                                         {}
        <POP 20464-2046e Naked>                              Σ0         ↓
            <MI 20464  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x20466 0x2162c>                                              {[2, 'D7']}
            <POP 2046c-2046e StackAdj>                       Δ+2                {}
        <POP 2046e-20474 Naked>                              Σ0         ↓ →0x20454 ←0x20454
            <MI 2046e  ADDQ.B  #0x1,D7>                                         {}
            <MI 20470  CMP.B   #0x0f,D7>                                        {}
            <MI 20472  BLE     0x20454>                                         {}
        <POP 20474-2047c Naked>                              Σ0         ↓
            <Call 0x20474 0x21306>                                              {}
                exp_MF.FIU()
            <MI 2047a  MOVEQ.L #0x0c,D7>                                        {}
        <POP 2047c-2048c Naked>                              Σ0         ↓ →0x20496 ←0x20496
            <POP 2047c-2047e StackAdj>                       Δ-2                {[-2-]}
            <MI 2047e  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x20480 0x104c0>                                              {[-2-]|[2, 'D7']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 20486-20488 StackAdj>                       Δ+2                {[-2-]}
            <MI 20488  TST.B   (A7)+>                        Δ+2                {}
            <MI 2048a  BEQ     0x20496>                                         {}
        <POP 2048c-20496 Naked>                              Σ0         ↓
            <MI 2048c  MOVE.B  D7,-(A7)>                     Δ-2                {[2, 'D7']}
            <Call 0x2048e 0x21836>                                              {[2, 'D7']}
            <POP 20494-20496 StackAdj>                       Δ+2                {}
        <POP 20496-2049c Naked>                              Σ0         ↓ →0x2047c ←0x2047c
            <MI 20496  ADDQ.B  #0x1,D7>                                         {}
            <MI 20498  CMP.B   #0x0f,D7>                                        {}
            <MI 2049a  BLE     0x2047c>                                         {}
        <POP 2049c-204a4 Epilogue>                           Σ0         

0x204a4


@ 204a4
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @>
    <POP 204a4-205a0 Body>                                              
        <POP 204a4-204ba Prologue>                           Σ0         ↓
        <POP 204ba-204cc RegCacheLoad>                       Σ0         ↓
        <POP 204cc-204d4 Naked>                              Σ0 Δ-4     ↓
            <MI 204cc  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <MI 204d0  SUBQ.L  #0x1,(A7)>                                       {[-4-]}
            <MI 204d2  MOVEQ.L #0x00,D6>                                        {[-4-]}
        <POP 204d4-204da Naked>                              Σ-4        ↓ →0x20596 ←0x20590
            <MI 204d4  CMP.L   (A7),D6>                                         {[-4-]}
            <MI 204d6  BGT     0x20596>                                         {[-4-]}
        <POP 204da-204f0 Naked>                              Σ-4        ↓ →0x20508
            <MI 204da  LEA.L   0x22328,A0>                                      {[-4-]}
            <MI 204e0  MOVE.L  A0,-(A7)>                     Δ-4                {[-4-]|[4, 'A0']}
            <MI 204e2  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, 'A0']|[#0]}
            <Call 0x204e4 0x1023c>                                              {[-4-]|[4, 'A0']|[#0]}
                KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word)
            <POP 204ea-204ec StackAdj>                       Δ+6                {[-4-]}
            <MI 204ec  TST.W   0x2234e>                                         {[-4-]}
            <MI 204ee  BEQ     0x20508>                                         {[-4-]}
        <POP 204f0-20500 Naked>                              Σ-4        ↓ →0x20508
            <MI 204f0  CLR.L   D0>                                              {[-4-]}
            <MI 204f2  MOVE.W  0x22336,D0>                                      {[-4-]}
            <MI 204f4  CLR.L   D1>                                              {[-4-]}
            <MI 204f6  MOVE.W  0x2234e,D1>                                      {[-4-]}
            <MI 204f8  ADD.L   D0,D1>                                           {[-4-]}
            <MI 204fa  MOVE.W  D1,0x22336>                                      {[-4-]}
            <MI 204fc  TST.W   D1>                                              {[-4-]}
            <MI 204fe  BNE     0x20508>                                         {[-4-]}
        <POP 20500-20508 Naked>                              Σ-4        ↓
            <MI 20500  CLR.L   D0>                                              {[-4-]}
            <MI 20502  MOVE.W  0x22334,D0>                                      {[-4-]}
            <MI 20504  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 20506  MOVE.W  D0,0x22334>                                      {[-4-]}
        <POP 20508-2051e Naked>                              Σ-4        ↓ ←0x204da ←0x204f0
            <MI 20508  CLR.L   D0>                                              {[-4-]}
            <MI 2050a  MOVE.W  0x22334,D0>                                      {[-4-]}
            <MI 2050c  CLR.L   D1>                                              {[-4-]}
            <MI 2050e  MOVE.W  0x2234c,D1>                                      {[-4-]}
            <MI 20514  ADD.L   D0,D1>                                           {[-4-]}
            <MI 20516  MOVE.W  D1,0x22334>                                      {[-4-]}
            <MI 20518  MOVE.L  #0xfffffc18,D7>                                  {[-4-]}
        <POP 2051e-2053e Naked>                              Σ-4        ↓ →0x20542 ←0x2053e
            <MI 2051e  MOVEA.L (A6+0x8),A0>                                     {[-4-]}
            <MI 20522  LEA.L   0x22338,A1>                                      {[-4-]}
            <MI 20528  MOVE.L  A1,-(A7)>                     Δ-4                {[-4-]|[4, 'A1']}
            <MI 2052a  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, 'A1']|[#0]}
            <MI 2052c  PEA.L   (A0)>                         Δ-4                {[-4-]|[4, 'A1']|[#0]|[4, '^(A0)']}
            <Call 0x2052e 0x1023e>                                              {[-4-]|[4, 'A1']|[#0]|[4, '^(A0)']}
                KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool)
            <POP 20534-20538 StackAdj>                       Δ+10               {[-4-]}
            <MI 20538  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 2053a  TST.B   (A0)>                                            {[-4-]}
            <MI 2053c  BNE     0x20542>                                         {[-4-]}
        <POP 2053e-20542 Naked>                              Σ-4        ↓ →0x2051e
            <MI 2053e  TST.L   D7>                                              {[-4-]}
            <MI 20540  BNE     0x2051e>                                         {[-4-]}
        <POP 20542-20546 Naked>                              Σ-4        ↓ →0x20590 ←0x2051e
            <MI 20542  TST.B   (A0)>                                            {[-4-]}
            <MI 20544  BEQ     0x20590>                                         {[-4-]}
        <POP 20546-20590 Naked>                              Σ-4        ↓
            <Blob 0x20546 [4] 0x22360>                       Δ-4                {[-4-]|[«4»]}
            <MI 2054c  LEA.L   0x21b1e,A0>                                      {[-4-]|[«4»]}
            <MI 20552  MOVE.L  A0,-(A7)>                     Δ-4                {[-4-]|[«4»]|[4, 'A0']}
            <Const 0x20554 0x400.2>                          Δ-2                {[-4-]|[«4»]|[4, 'A0']|[#1024]}
            <Call 0x20558 0x10238>                                              {[-4-]|[«4»]|[4, 'A0']|[#1024]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 2055e-20560 StackAdj>                       Δ+6                {[-4-]|[«4»]}
            <POP 20560-20561 StackAdj>                       Δ+4                {[-4-]}
            <Blob 0x20561 [4] 0x21b1a>                       Δ-4                {[-4-]|[«4»]}
            <Blob 0x20566 [2] 0x21f22>                       Δ-2                {[-4-]|[«4»]|[«2»]}
            <MI 2056c  CLR.W   -(A7)>                        Δ-2                {[-4-]|[«4»]|[«2»]|[#0]}
            <Const 0x2056e 0x200.2>                          Δ-2                {[-4-]|[«4»]|[«2»]|[#0]|[#512]}
            <Const 0x20572 0x2.2>                            Δ-2                {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]}
            <Blob 0x20576 [4] 0x21f1e>                       Δ-4                {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x2057c <LVAR -0x004 @>>             Δ-4                {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]|[«4»]|[@@-4]}
            <Call 0x20580 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 20586-2058a StackAdj>                       Δ+20               {[-4-]}
            <MI 2058a  ADDQ.W  #0x1,0x21f22>                                    {[-4-]}
        <POP 20590-20596 Naked>                              Σ-4        ↓ →0x204d4 ←0x20542
            <MI 20590  ADDQ.L  #0x1,D6>                                         {[-4-]}
            <MI 20592  BVC     0x204d4>                                         {[-4-]}
        <POP 20596-20598 Naked>                              Σ-4 Δ+4    ↓ ←0x204d4
            <POP 20596-20598 StackAdj>                       Δ+4                {}
        <POP 20598-205a0 Epilogue>                           Σ0         

0x205a0


@ 205a0
        <LVAR  0x00a 2(r)>
    <POP 205a0-20602 Body>                                              
        <POP 205a0-205b2 Prologue>                           Σ0         ↓
        <POP 205b2-205fe Naked>                              Σ0         ↓
            <MI 205b2  MOVE.W  #0x400,0x22328>                                  {}
            <MI 205ba  CLR.W   0x2232a>                                         {}
            <MI 205c0  CLR.W   0x2232c>                                         {}
            <MI 205c6  MOVE.W  (A6+0xa),0x2232e>                                {}
            <MI 205ce  CLR.W   0x22330>                                         {}
            <MI 205d4  CLR.W   0x22332>                                         {}
            <MI 205da  CLR.W   0x22334>                                         {}
            <MI 205e0  CLR.W   0x22336>                                         {}
            <MI 205e6  CLR.W   0x22348>                                         {}
            <MI 205ec  CLR.W   0x2234a>                                         {}
            <MI 205f2  CLR.W   0x2234c>                                         {}
            <MI 205f8  CLR.W   0x2234e>                                         {}
        <POP 205fe-20602 Epilogue>                           Σ0         

0x20602


@ 20602
        <LVAR  0x008 4(r)>
    <POP 20602-20688 Body>                                              
        <POP 20602-20618 Prologue>                           Σ0         ↓
        <POP 20618-2061e RegCacheLoad>                       Σ0         ↓
        <POP 2061e-2064e Naked>                              Σ0         ↓ →0x20680
            <MI 2061e  MOVE.W  #0x12,0x21f22>                                   {}
            <MI 20622  MOVE.W  0x21f22,0x21f2c>                                 {}
            <MI 20628  MOVEQ.L #0x10,D7>                                        {}
            <Const 0x2062a 0x300.4>                          Δ-4                {[##768]}
            <Call 0x2062e 0x205a0>                                              {[##768]}
            <POP 20632-20634 StackAdj>                       Δ+4                {}
            <MI 20634  MOVE.W  #0x40,0x2234e>                                   {}
            <MI 2063c  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20640  MOVE.L  D7,-(A7)>                     Δ-4                {[4, 'D7']}
            <MI 20642  PEA.L   (A0)>                         Δ-4                {[4, 'D7']|[4, '^(A0)']}
            <Call 0x20644 0x204a4>                                              {[4, 'D7']|[4, '^(A0)']}
            <POP 20648-2064a StackAdj>                       Δ+8                {}
            <MI 2064a  TST.B   (A0)>                                            {}
            <MI 2064c  BNE     0x20680>                                         {}
        <POP 2064e-20680 Naked>                              Σ0         ↓
            <Blob 0x2064e [68] @>                            Δ-68               {[«68""»]}
            <POP 20660-20662 StackAdj>                       Δ-4                {[«68""»]|[-4-]}
            <Lit 0x20662 67>                                                    {[«68""»]|[$$*** No R1000 response to DUMP_REGISTERS - probably a hardware error]}
            <Call 0x20676 0x103e0>                                              {[«68""»]|[$$*** No R1000 response to DUMP_REGISTERS - probably a hardware error]}
                WriteConsoleStringCrLf(str : String)
            <POP 2067c-20680 StackAdj>                       Δ+72               {}
        <POP 20680-20688 Epilogue>                           Σ0         ←0x2061e

0x20688


@ 20688
        <LVAR  0x008 4(r)>
        <LVAR -0x006 4(rw)>
        <LVAR -0x00a 4(rw)>
    <POP 20688-20750 Body>                                              
        <POP 20688-2069e Prologue>                           Σ0         ↓
        <POP 2069e-206a6 RegCacheLoad>                       Σ0         ↓
        <POP 206a6-206b2 Naked>                              Σ0         ↓ →0x206c0
            <POP 206a6-206a8 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x206a8 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 206ae  TST.B   (A7)+>                        Δ+2                {}
            <MI 206b0  BEQ     0x206c0>                                         {}
        <POP 206b2-206c0 Naked>                              Σ0         →0x206cc
            <MI 206b2  MOVE.L  #0x800,(A6-0xa)>                                 {}
            <MI 206b8  MOVE.L  #0x4,(A6-0x6)>                                   {}
            <MI 206be  BRA     0x206cc>                                         {}
        <POP 206c0-206cc Naked>                              Σ0         ↓ ←0x206a6
            <MI 206c0  MOVE.L  #0x1000,(A6-0xa)>                                {}
            <MI 206c6  MOVE.L  #0x8,(A6-0x6)>                                   {}
        <POP 206cc-206e2 Naked>                              Σ0         ↓ ←0x206b2
            <Const 0x206cc 0x400.4>                          Δ-4                {[##1024]}
            <Call 0x206d0 0x205a0>                                              {[##1024]}
            <POP 206d4-206d6 StackAdj>                       Δ+4                {}
            <MI 206d6  MOVE.W  #0x10,0x2234c>                                   {}
            <MI 206de  MOVEQ.L #0x00,D6>                                        {}
            <MI 206e0  MOVEQ.L #0x0c,D5>                                        {}
        <POP 206e2-206f2 Naked>                              Σ0         ↓ →0x2073e ←0x2073e
            <POP 206e2-206e4 StackAdj>                       Δ-2                {[-2-]}
            <MI 206e4  MOVE.B  D5,-(A7)>                     Δ-2                {[-2-]|[2, 'D5']}
            <Call 0x206e6 0x104c0>                                              {[-2-]|[2, 'D5']}
                HasBoard(diproc_addr: Byte) : Byte
            <POP 206ec-206ee StackAdj>                       Δ+2                {[-2-]}
            <MI 206ee  TST.B   (A7)+>                        Δ+2                {}
            <MI 206f0  BEQ     0x2073e>                                         {}
        <POP 206f2-206f8 Naked>                              Σ0 Δ-4     ↓
            <MI 206f2  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <MI 206f4  SUBQ.L  #0x1,(A7)>                                       {[-4-]}
            <MI 206f6  MOVEQ.L #0x00,D7>                                        {[-4-]}
        <POP 206f8-206fc Naked>                              Σ-4        ↓ →0x2073c ←0x206fc
            <MI 206f8  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 206fa  BGT     0x2073c>                                         {[-4-]}
        <POP 206fc-2073c Naked>                              Σ-4        ↓ →0x206f8
            <MI 206fc  CLR.W   0x22330>                                         {[-4-]}
            <MI 20702  MOVE.L  D6,D0>                                           {[-4-]}
            <MI 20704  ASL.L   #0x2,D0>                                         {[-4-]}
            <MI 20706  ADD.L   D7,D0>                                           {[-4-]}
            <MI 20708  ASL.L   #0x4,D0>                                         {[-4-]}
            <MI 2070a  MOVE.W  D0,0x22332>                                      {[-4-]}
            <MI 20710  CLR.W   0x22334>                                         {[-4-]}
            <MI 20716  CLR.W   0x22336>                                         {[-4-]}
            <MI 2071c  MOVE.L  (A6-0xa),D4>                                     {[-4-]}
            <MI 2071e  MOVE.L  #0x80,D3>                                        {[-4-]}
            <Call 0x20724 0x10294>                                              {[-4-]}
                ?divs_d3_d4
            <MI 2072a  MOVE.L  D4,-(A7)>                     Δ-4                {[-4-]|[4, 'D4']}
            <MI 2072c  MOVEA.L (A6+0x8),A0>                                     {[-4-]|[4, 'D4']}
            <MI 20730  PEA.L   (A0)>                         Δ-4                {[-4-]|[4, 'D4']|[4, '^(A0)']}
            <Call 0x20732 0x204a4>                                              {[-4-]|[4, 'D4']|[4, '^(A0)']}
            <POP 20736-20738 StackAdj>                       Δ+8                {[-4-]}
            <MI 20738  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 2073a  BVC     0x206f8>                                         {[-4-]}
        <POP 2073c-2073e Naked>                              Σ-4 Δ+4    ↓ ←0x206f8
            <POP 2073c-2073e StackAdj>                       Δ+4                {}
        <POP 2073e-20748 Naked>                              Σ0         ↓ →0x206e2 ←0x206e2
            <MI 2073e  ADDQ.L  #0x1,D6>                                         {}
            <MI 20740  ADDQ.B  #0x1,D5>                                         {}
            <MI 20742  CMPI.B  #0x0f,D5>                                        {}
            <MI 20746  BLE     0x206e2>                                         {}
        <POP 20748-20750 Epilogue>                           Σ0         

0x20750


@ 20750
    <POP 20750-207e8 Body>                                              
        <POP 20750-20766 Prologue>                           Σ0         ↓
        <POP 20766-2077e RegCacheLoad>                       Σ0         ↓
        <POP 2077e-207e0 Naked>                              Σ0         ↓
            <Const 0x2077e 0x400.4>                          Δ-4                {[##1024]}
            <MI 20782  LEA.L   0x22350,A0>                                      {[##1024]}
            <MI 20788  MOVE.L  A0,-(A7)>                     Δ-4                {[##1024]|[4, 'A0']}
            <Const 0x2078a 0x4.2>                            Δ-2                {[##1024]|[4, 'A0']|[#4]}
            <Call 0x2078c 0x10238>                                              {[##1024]|[4, 'A0']|[#4]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 2078e-20790 StackAdj>                       Δ+10               {}
            <Const 0x20790 0x404.4>                          Δ-4                {[##1028]}
            <MI 20794  LEA.L   0x22354,A0>                                      {[##1028]}
            <MI 20796  MOVE.L  A0,-(A7)>                     Δ-4                {[##1028]|[4, 'A0']}
            <Const 0x20798 0x2.2>                            Δ-2                {[##1028]|[4, 'A0']|[#2]}
            <Call 0x2079a 0x10238>                                              {[##1028]|[4, 'A0']|[#2]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 2079c-2079e StackAdj>                       Δ+10               {}
            <Const 0x2079e 0x406.4>                          Δ-4                {[##1030]}
            <MI 207a2  LEA.L   0x22356,A0>                                      {[##1030]}
            <MI 207a8  MOVE.L  A0,-(A7)>                     Δ-4                {[##1030]|[4, 'A0']}
            <Const 0x207aa 0x2.2>                            Δ-2                {[##1030]|[4, 'A0']|[#2]}
            <Call 0x207ac 0x10238>                                              {[##1030]|[4, 'A0']|[#2]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 207ae-207b0 StackAdj>                       Δ+10               {}
            <Const 0x207b0 0x408.4>                          Δ-4                {[##1032]}
            <MI 207b4  LEA.L   0x22358,A0>                                      {[##1032]}
            <MI 207ba  MOVE.L  A0,-(A7)>                     Δ-4                {[##1032]|[4, 'A0']}
            <Const 0x207bc 0x4.2>                            Δ-2                {[##1032]|[4, 'A0']|[#4]}
            <Call 0x207be 0x10238>                                              {[##1032]|[4, 'A0']|[#4]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 207c0-207c2 StackAdj>                       Δ+10               {}
            <Const 0x207c2 0x40c.4>                          Δ-4                {[##1036]}
            <MI 207c6  LEA.L   0x2235c,A0>                                      {[##1036]}
            <MI 207c8  MOVE.L  A0,-(A7)>                     Δ-4                {[##1036]|[4, 'A0']}
            <Const 0x207ca 0x4.2>                            Δ-2                {[##1036]|[4, 'A0']|[#4]}
            <Call 0x207cc 0x10238>                                              {[##1036]|[4, 'A0']|[#4]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 207ce-207d0 StackAdj>                       Δ+10               {}
            <MI 207d0  MOVEQ.L #0x00,D0>                                        {}
            <MI 207d2  MULU.W  0x22354,D0>                                      {}
            <MI 207d4  CLR.L   D1>                                              {}
            <MI 207d6  MOVE.W  D0,D1>                                           {}
            <MI 207d8  ADD.L   0x2235c,D1>                                      {}
            <MI 207da  MOVE.L  D1,0x22360>                                      {}
        <POP 207e0-207e8 Epilogue>                           Σ0         

0x207e8


@ 207e8
        <LVAR -0x006 @>
        <LVAR -0x008 @ 1(r)>
        <LVAR -0x00c @ 4(rw)>
    <POP 207e8-20950 Body>                                              
        <POP 207e8-207fe Prologue>                           Σ0         ↓
        <POP 207fe-2080e RegCacheLoad>                       Σ0         ↓
        <POP 2080e-2085e Naked>                              Σ0         ↓ →0x20876
            <MI 2080e  MOVEQ.L #0x04,D7>                                        {}
            <Blob 0x20810 [10] @>                            Δ-10               {[«10""»]}
            <POP 2081c-2081e StackAdj>                       Δ-8                {[«10""»]|[-8-]}
            <Lit 0x2081e 10>                                                    {[«10""»]|[-4-]|[$$R1000_DUMP]}
            <MI 2082c  MOVE.L  D7,(A7)>                                         {[«10""»]|[-4-]|[4, 'D7']}
            <POP 20826-2082c StackAdj>                       Δ-8                {[«10""»]|[-4-]|[4, 'D7']|[-8-]}
            <Call 0x2082e 0x102e4>                                              {[«10""»]|[-4-]|[4, 'D7']|[-8-]}
                Long2String(a : Long) : String
            <POP 20834-20836 StackAdj>                       Δ+4                {[«10""»]|[-4-]|[4, 'D7']|[-4-]}
            <Call 0x20836 0x102d0>                                              {[«10""»]|[-4-]|[4, 'D7']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2083c-2083e StackAdj>                       Δ+8                {[«10""»]|[-4-]}
            <MI 2083e  MOVEA.L (A7)+,A4>                     Δ+4                {[«10""»]}
            <POP 20840-20842 StackAdj>                       Δ+6                {[-4-]}
            <MI 20842  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <MI 20844  CLR.B   -(A7)>                        Δ-2                {[4, 'A4']|[#0]}
            <MI 20846  CLR.B   -(A7)>                        Δ-2                {[4, 'A4']|[#0]|[#0]}
            <Const 0x20848 0x0.4>                            Δ-4                {[4, 'A4']|[#0]|[#0]|[##0]}
            <Pointer.fp 0x2084c <LVAR -0x008 @ 1(r)>>        Δ-4                {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]}
            <Pointer.fp 0x2084e <LVAR -0x006 @>>             Δ-4                {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]|[@@-6]}
            <Call 0x20852 0x10380>                                              {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]|[@@-6]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 20858-2085a StackAdj>                       Δ+20               {}
            <MI 2085a  TST.B   (A6-0x8)>                                        {}
            <MI 2085c  BNE     0x20876>                                         {}
        <POP 2085e-20876 Naked>                              Σ0         ↓
            <Const 0x2085e 0x2.2>                            Δ-2                {[#2]}
            <MI 20862  CLR.B   -(A7)>                        Δ-2                {[#2]|[#0]}
            <Const 0x20864 0x1.4>                            Δ-4                {[#2]|[#0]|[##1]}
            <Pointer.fp 0x20868 <LVAR -0x008 @ 1(r)>>        Δ-4                {[#2]|[#0]|[##1]|[@@-8]}
            <Pointer.fp 0x2086a <LVAR -0x006 @>>             Δ-4                {[#2]|[#0]|[##1]|[@@-8]|[@@-6]}
            <Call 0x2086e 0x1038c>                                              {[#2]|[#0]|[##1]|[@@-8]|[@@-6]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20874-20876 StackAdj>                       Δ+16               {}
        <POP 20876-20878 Naked>                              Σ0         ↓ ←0x2080e
            <MI 20876  MOVE.L  A4,(A6-0xc)>                                     {}
        <POP 20878-208c8 Naked>                              Σ0         ↓ →0x208dc ←0x208dc
            <MI 20878  SUBQ.L  #0x1,D7>                                         {}
            <Blob 0x2087a [10] @>                            Δ-10               {[«10""»]}
            <POP 20886-20888 StackAdj>                       Δ-8                {[«10""»]|[-8-]}
            <Lit 0x20888 10>                                                    {[«10""»]|[-4-]|[$$R1000_DUMP]}
            <MI 20896  MOVE.L  D7,(A7)>                                         {[«10""»]|[-4-]|[4, 'D7']}
            <POP 20890-20896 StackAdj>                       Δ-8                {[«10""»]|[-4-]|[4, 'D7']|[-8-]}
            <Call 0x20898 0x102e4>                                              {[«10""»]|[-4-]|[4, 'D7']|[-8-]}
                Long2String(a : Long) : String
            <POP 2089e-208a0 StackAdj>                       Δ+4                {[«10""»]|[-4-]|[4, 'D7']|[-4-]}
            <Call 0x208a0 0x102d0>                                              {[«10""»]|[-4-]|[4, 'D7']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 208a6-208a8 StackAdj>                       Δ+8                {[«10""»]|[-4-]}
            <MI 208a8  MOVEA.L (A7)+,A4>                     Δ+4                {[«10""»]}
            <POP 208aa-208ac StackAdj>                       Δ+6                {[-4-]}
            <MI 208ac  MOVE.L  A4,(A7)>                                         {[4, 'A4']}
            <MI 208ae  CLR.B   -(A7)>                        Δ-2                {[4, 'A4']|[#0]}
            <MI 208b0  CLR.B   -(A7)>                        Δ-2                {[4, 'A4']|[#0]|[#0]}
            <Const 0x208b2 0x0.4>                            Δ-4                {[4, 'A4']|[#0]|[#0]|[##0]}
            <Pointer.fp 0x208b6 <LVAR -0x008 @ 1(r)>>        Δ-4                {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]}
            <Pointer.fp 0x208b8 <LVAR -0x006 @>>             Δ-4                {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]|[@@-6]}
            <Call 0x208bc 0x10380>                                              {[4, 'A4']|[#0]|[#0]|[##0]|[@@-8]|[@@-6]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 208c2-208c4 StackAdj>                       Δ+20               {}
            <MI 208c4  TST.B   (A6-0x8)>                                        {}
            <MI 208c6  BNE     0x208dc>                                         {}
        <POP 208c8-208dc Naked>                              Σ0         ↓
            <Const 0x208c8 0x1.2>                            Δ-2                {[#1]}
            <Const 0x208ca 0x1.2>                            Δ-2                {[#1]|[#1]}
            <MI 208cc  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[#1]|[#1]|[4, '(A6-0xc)']}
            <Pointer.fp 0x208ce <LVAR -0x008 @ 1(r)>>        Δ-4                {[#1]|[#1]|[4, '(A6-0xc)']|[@@-8]}
            <Pointer.fp 0x208d0 <LVAR -0x006 @>>             Δ-4                {[#1]|[#1]|[4, '(A6-0xc)']|[@@-8]|[@@-6]}
            <Call 0x208d4 0x1038c>                                              {[#1]|[#1]|[4, '(A6-0xc)']|[@@-8]|[@@-6]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 208da-208dc StackAdj>                       Δ+16               {}
        <POP 208dc-208ec Naked>                              Σ0         ↓ →0x20878 ←0x20878
            <Pointer.fp 0x208dc <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x208de 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 208e4-208e6 StackAdj>                       Δ+4                {}
            <MI 208e6  MOVE.L  A4,(A6-0xc)>                                     {}
            <MI 208e8  CMP.L   #0x01,D7>                                        {}
            <MI 208ea  BNE     0x20878>                                         {}
        <POP 208ec-2090a Naked>                              Σ0         ↓ →0x2093e
            <MI 208ec  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0xc)']}
            <Const 0x208ee 0x1.2>                            Δ-2                {[4, '(A6-0xc)']|[#1]}
            <Const 0x208f0 0x1.2>                            Δ-2                {[4, '(A6-0xc)']|[#1]|[#1]}
            <Const 0x208f2 0x32.4>                           Δ-4                {[4, '(A6-0xc)']|[#1]|[#1]|[##50]}
            <Pointer.fp 0x208f6 <LVAR -0x008 @ 1(r)>>        Δ-4                {[4, '(A6-0xc)']|[#1]|[#1]|[##50]|[@@-8]}
            <Const 0x208f8 0x21b1a.4>                        Δ-4                {[4, '(A6-0xc)']|[#1]|[#1]|[##50]|[@@-8]|[##138010]}
            <Call 0x208fe 0x10380>                                              {[4, '(A6-0xc)']|[#1]|[#1]|[##50]|[@@-8]|[##138010]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 20904-20906 StackAdj>                       Δ+20               {}
            <MI 20906  TST.B   (A6-0x8)>                                        {}
            <MI 20908  BEQ     0x2093e>                                         {}
        <POP 2090a-2093e Naked>                              Σ0         ↓
            <Blob 0x2090a [36] @>                            Δ-36               {[«36""»]}
            <Const 0x2091c 0xe.2>                            Δ-2                {[«36""»]|[#14]}
            <POP 20920-20922 StackAdj>                       Δ-4                {[«36""»]|[#14]|[-4-]}
            <Lit 0x20922 35>                                                    {[«36""»]|[#14]|[$$could not create new TOMBSTONE file]}
            <Call 0x20934 0x103b8>                                              {[«36""»]|[#14]|[$$could not create new TOMBSTONE file]}
                PopProgram(status : Byte; msg : String)
            <POP 2093a-2093e StackAdj>                       Δ+42               {}
        <POP 2093e-20948 Naked>                              Σ0         ↓ ←0x208ec
            <Pointer.fp 0x2093e <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x20940 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 20946-20948 StackAdj>                       Δ+4                {}
        <POP 20948-20950 Epilogue>                           Σ0         

0x20950


@ 20950
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x008 @>
    <POP 20950-20a96 Body>                                              
        <POP 20950-20966 Prologue>                           Σ0         ↓
        <POP 20966-2097e RegCacheLoad>                       Σ0         ↓
        <POP 2097e-20a8e Naked>                              Σ0         ↓
            <MI 2097e  MOVE.W  #0x01,0x21f28>                                   {}
            <Blob 0x20984 [10] @>                            Δ-10               {[«10""»]}
            <POP 20996-20998 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x20998 9>                                                     {[«10""»]|[$$IOP_DUMP1]}
            <POP 209a8-209aa StackAdj>                       Δ-2                {[«10""»]|[$$IOP_DUMP1]|[-2-]}
            <MI 209aa  CLR.B   (A7)>                                            {[«10""»]|[$$IOP_DUMP1]|[-2-]}
            <Const 0x209ac 0x2.2>                            Δ-2                {[«10""»]|[$$IOP_DUMP1]|[-2-]|[#2]}
            <Const 0x209ae 0x0.4>                            Δ-4                {[«10""»]|[$$IOP_DUMP1]|[-2-]|[#2]|[##0]}
            <Pointer.fp 0x209b2 <LVAR -0x008 @>>             Δ-4                {[«10""»]|[$$IOP_DUMP1]|[-2-]|[#2]|[##0]|[@@-8]}
            <Pointer.fp 0x209b4 <LVAR -0x006 @ 4(r)>>        Δ-4                {[«10""»]|[$$IOP_DUMP1]|[-2-]|[#2]|[##0]|[@@-8]|[@@-6]}
            <Call 0x209b6 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 209bc-209c0 StackAdj>                       Δ+30               {}
            <MI 209c0  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 209c2  MOVE.B  (A0+0x3a),0x22324>                               {}
            <MI 209ca  MOVE.B  (A0+0x3b),0x22325>                               {}
            <MI 209d2  MOVE.B  (A0+0x3c),0x22326>                               {}
            <MI 209da  MOVE.B  (A0+0x3d),0x22327>                               {}
            <MI 209e2  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[4, '(A6-0x6)']}
            <Const 0x209e4 0x1.2>                            Δ-2                {[4, '(A6-0x6)']|[#1]}
            <MI 209e6  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x6)']|[#1]|[#0]}
            <Const 0x209e8 0x200.2>                          Δ-2                {[4, '(A6-0x6)']|[#1]|[#0]|[#512]}
            <Const 0x209ea 0x2.2>                            Δ-2                {[4, '(A6-0x6)']|[#1]|[#0]|[#512]|[#2]}
            <Blob 0x209ec [4] 0x21f1e>                       Δ-4                {[4, '(A6-0x6)']|[#1]|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x209ee <LVAR -0x008 @>>             Δ-4                {[4, '(A6-0x6)']|[#1]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
            <Call 0x209f0 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 209f6-209f8 StackAdj>                       Δ+16               {[4, '(A6-0x6)']}
            <POP 209f8-209f9 StackAdj>                       Δ+4                {}
            <Blob 0x209f9 [4] 0x21b1a>                       Δ-4                {[«4»]}
            <Const 0x209fe 0x1.2>                            Δ-2                {[«4»]|[#1]}
            <MI 20a00  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#1]|[#0]}
            <Const 0x20a02 0x200.2>                          Δ-2                {[«4»]|[#1]|[#0]|[#512]}
            <Const 0x20a04 0x2.2>                            Δ-2                {[«4»]|[#1]|[#0]|[#512]|[#2]}
            <Blob 0x20a06 [4] 0x21f1e>                       Δ-4                {[«4»]|[#1]|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x20a08 <LVAR -0x008 @>>             Δ-4                {[«4»]|[#1]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
            <Call 0x20a0a 0x10388>                                              {[«4»]|[#1]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 20a10-20a12 StackAdj>                       Δ+16               {[«4»]}
            <MI 20a12  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <Const 0x20a14 0x3e.2>                           Δ-2                {[4, '(A6-0x6)']|[#62]}
            <MI 20a18  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x6)']|[#62]|[#0]}
            <Const 0x20a1a 0x200.2>                          Δ-2                {[4, '(A6-0x6)']|[#62]|[#0]|[#512]}
            <Const 0x20a1c 0x2.2>                            Δ-2                {[4, '(A6-0x6)']|[#62]|[#0]|[#512]|[#2]}
            <Blob 0x20a1e [4] 0x21f1e>                       Δ-4                {[4, '(A6-0x6)']|[#62]|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x20a20 <LVAR -0x008 @>>             Δ-4                {[4, '(A6-0x6)']|[#62]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
            <Call 0x20a22 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 20a28-20a2a StackAdj>                       Δ+16               {[4, '(A6-0x6)']}
            <POP 20a2a-20a2b StackAdj>                       Δ+4                {}
            <Blob 0x20a2b [4] 0x21b1a>                       Δ-4                {[«4»]}
            <Const 0x20a30 0x2.2>                            Δ-2                {[«4»]|[#2]}
            <MI 20a32  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#2]|[#0]}
            <Const 0x20a34 0x200.2>                          Δ-2                {[«4»]|[#2]|[#0]|[#512]}
            <Const 0x20a36 0x2.2>                            Δ-2                {[«4»]|[#2]|[#0]|[#512]|[#2]}
            <Blob 0x20a38 [4] 0x21f1e>                       Δ-4                {[«4»]|[#2]|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x20a3a <LVAR -0x008 @>>             Δ-4                {[«4»]|[#2]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
            <Call 0x20a3c 0x10388>                                              {[«4»]|[#2]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 20a42-20a44 StackAdj>                       Δ+16               {[«4»]}
            <MI 20a44  MOVE.L  (A6-0x6),(A7)>                                   {[4, '(A6-0x6)']}
            <Const 0x20a46 0x3f.2>                           Δ-2                {[4, '(A6-0x6)']|[#63]}
            <MI 20a4a  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x6)']|[#63]|[#0]}
            <Const 0x20a4c 0x200.2>                          Δ-2                {[4, '(A6-0x6)']|[#63]|[#0]|[#512]}
            <Const 0x20a4e 0x2.2>                            Δ-2                {[4, '(A6-0x6)']|[#63]|[#0]|[#512]|[#2]}
            <Blob 0x20a50 [4] 0x21f1e>                       Δ-4                {[4, '(A6-0x6)']|[#63]|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x20a52 <LVAR -0x008 @>>             Δ-4                {[4, '(A6-0x6)']|[#63]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
            <Call 0x20a54 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 20a5a-20a5c StackAdj>                       Δ+16               {[4, '(A6-0x6)']}
            <POP 20a5c-20a5d StackAdj>                       Δ+4                {}
            <Blob 0x20a5d [4] 0x21b1a>                       Δ-4                {[«4»]}
            <Const 0x20a62 0x3.2>                            Δ-2                {[«4»]|[#3]}
            <MI 20a66  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#3]|[#0]}
            <Const 0x20a68 0x200.2>                          Δ-2                {[«4»]|[#3]|[#0]|[#512]}
            <Const 0x20a6a 0x2.2>                            Δ-2                {[«4»]|[#3]|[#0]|[#512]|[#2]}
            <Blob 0x20a6c [4] 0x21f1e>                       Δ-4                {[«4»]|[#3]|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x20a6e <LVAR -0x008 @>>             Δ-4                {[«4»]|[#3]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
            <Call 0x20a70 0x10388>                                              {[«4»]|[#3]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 20a76-20a7a StackAdj>                       Δ+18               {[-2-]}
            <MI 20a7a  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x20a7c 0x1.2>                            Δ-2                {[-2-]|[#1]}
            <Const 0x20a7e 0x1.4>                            Δ-4                {[-2-]|[#1]|[##1]}
            <Pointer.fp 0x20a82 <LVAR -0x008 @>>             Δ-4                {[-2-]|[#1]|[##1]|[@@-8]}
            <Pointer.fp 0x20a84 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-2-]|[#1]|[##1]|[@@-8]|[@@-6]}
            <Call 0x20a86 0x1038c>                                              {[-2-]|[#1]|[##1]|[@@-8]|[@@-6]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20a8c-20a8e StackAdj>                       Δ+16               {}
        <POP 20a8e-20a96 Epilogue>                           Σ0         

0x20a96


@ 20a96
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @>
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x008 @>
    <POP 20a96-20bc8 Body>                                              
        <POP 20a96-20aac Prologue>                           Σ0         ↓
        <POP 20aac-20abe RegCacheLoad>                       Σ0         ↓
        <POP 20abe-20b1e Naked>                              Σ0         ↓ →0x20b50
            <Blob 0x20abe [10] @>                            Δ-10               {[«10""»]}
            <POP 20ad0-20ad2 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x20ad2 9>                                                     {[«10""»]|[$$SAVESTATE]}
            <MI 20ae2  MOVE.L  (A6+0x8),(A7)>                                   {[«10""»]|[4, '(A6+0x8)']}
            <POP 20adc-20ae2 StackAdj>                       Δ-8                {[«10""»]|[4, '(A6+0x8)']|[-8-]}
            <Call 0x20ae6 0x102cc>                                              {[«10""»]|[4, '(A6+0x8)']|[-8-]}
                StringDup(a : String) : String
            <POP 20aec-20aee StackAdj>                       Δ+2                {[«10""»]|[4, '(A6+0x8)']|[-6-]}
            <POP 20aee-20aef StackAdj>                       Δ+2                {[«10""»]|[4, '(A6+0x8)']|[-4-]}
            <Const 0x20aef 0x2.2>                            Δ-2                {[«10""»]|[4, '(A6+0x8)']|[-4-]|[#2]}
            <Pointer.fp 0x20af0 <LVAR -0x002 @>>             Δ-4                {[«10""»]|[4, '(A6+0x8)']|[-4-]|[#2]|[@@-2]}
            <Call 0x20af4 0x103b0>                                              {[«10""»]|[4, '(A6+0x8)']|[-4-]|[#2]|[@@-2]}
                PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
            <POP 20afa-20afc StackAdj>                       Δ+20               {[-4-]}
            <MI 20afc  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <MI 20b00  CLR.B   -(A7)>                        Δ-2                {[4, '(A6+0x8)']|[#0]}
            <Const 0x20b02 0x2.2>                            Δ-2                {[4, '(A6+0x8)']|[#0]|[#2]}
            <Const 0x20b04 0x0.4>                            Δ-4                {[4, '(A6+0x8)']|[#0]|[#2]|[##0]}
            <Pointer.fp 0x20b08 <LVAR -0x008 @>>             Δ-4                {[4, '(A6+0x8)']|[#0]|[#2]|[##0]|[@@-8]}
            <Pointer.fp 0x20b0a <LVAR -0x006 @ 4(r)>>        Δ-4                {[4, '(A6+0x8)']|[#0]|[#2]|[##0]|[@@-8]|[@@-6]}
            <Call 0x20b0c 0x10380>                                              {[4, '(A6+0x8)']|[#0]|[#2]|[##0]|[@@-8]|[@@-6]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 20b12-20b14 StackAdj>                       Δ+20               {}
            <MI 20b14  MOVEA.L (A6-0x6),A0>                                     {}
            <MI 20b16  MOVE.W  (A0+0x20),D0>                                    {}
            <MI 20b1a  CMP.W   #0x0e,D0>                                        {}
            <MI 20b1c  BEQ     0x20b50>                                         {}
        <POP 20b1e-20b50 Naked>                              Σ0         ↓
            <Blob 0x20b1e [34] @>                            Δ-34               {[«34""»]}
            <Const 0x20b30 0xe.2>                            Δ-2                {[«34""»]|[#14]}
            <POP 20b32-20b34 StackAdj>                       Δ-4                {[«34""»]|[#14]|[-4-]}
            <Lit 0x20b34 33>                                                    {[«34""»]|[#14]|[$$SAVED_STATE file length is not 14]}
            <Call 0x20b46 0x103b8>                                              {[«34""»]|[#14]|[$$SAVED_STATE file length is not 14]}
                PopProgram(status : Byte; msg : String)
            <POP 20b4c-20b50 StackAdj>                       Δ+40               {}
        <POP 20b50-20b5c Naked>                              Σ0 Δ-4     ↓ ←0x20abe
            <MI 20b50  MOVE.W  (A0+0x20),D0>                                    {}
            <MI 20b54  SUBQ.W  #0x1,D0>                                         {}
            <MI 20b56  EXTW.L  D0>                                              {}
            <MI 20b58  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 20b5a  MOVEQ.L #0x00,D7>                                        {[4, 'D0']}
        <POP 20b5c-20b60 Naked>                              Σ-4        ↓ →0x20baa ←0x20b60
            <MI 20b5c  CMP.L   (A7),D7>                                         {[-4-]}
            <MI 20b5e  BGT     0x20baa>                                         {[-4-]}
        <POP 20b60-20baa Naked>                              Σ-4        ↓ →0x20b5c
            <MI 20b60  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']}
            <MI 20b62  MOVE.W  D7,-(A7)>                     Δ-2                {[-4-]|[4, '(A6-0x6)']|[2, 'D7']}
            <MI 20b64  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, '(A6-0x6)']|[2, 'D7']|[#0]}
            <Const 0x20b66 0x200.2>                          Δ-2                {[-4-]|[4, '(A6-0x6)']|[2, 'D7']|[#0]|[#512]}
            <Const 0x20b6a 0x2.2>                            Δ-2                {[-4-]|[4, '(A6-0x6)']|[2, 'D7']|[#0]|[#512]|[#2]}
            <Blob 0x20b6c [4] 0x21f1e>                       Δ-4                {[-4-]|[4, '(A6-0x6)']|[2, 'D7']|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x20b72 <LVAR -0x008 @>>             Δ-4                {[-4-]|[4, '(A6-0x6)']|[2, 'D7']|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
            <Call 0x20b74 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 20b7a-20b7c StackAdj>                       Δ+16               {[-4-]|[4, '(A6-0x6)']}
            <POP 20b7c-20b7d StackAdj>                       Δ+4                {[-4-]}
            <Blob 0x20b7d [4] 0x21b1a>                       Δ-4                {[-4-]|[«4»]}
            <Blob 0x20b82 [2] 0x21f22>                       Δ-2                {[-4-]|[«4»]|[«2»]}
            <MI 20b88  CLR.W   -(A7)>                        Δ-2                {[-4-]|[«4»]|[«2»]|[#0]}
            <Const 0x20b8a 0x200.2>                          Δ-2                {[-4-]|[«4»]|[«2»]|[#0]|[#512]}
            <Const 0x20b8e 0x2.2>                            Δ-2                {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]}
            <Blob 0x20b90 [4] 0x21f1e>                       Δ-4                {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]|[«4»]}
            <Pointer.fp 0x20b96 <LVAR -0x008 @>>             Δ-4                {[-4-]|[«4»]|[«2»]|[#0]|[#512]|[#2]|[«4»]|[@@-8]}
            <Call 0x20b98 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 20b9e-20ba0 StackAdj>                       Δ+20               {[-4-]}
            <MI 20ba0  ADDQ.W  #0x1,0x21f22>                                    {[-4-]}
            <MI 20ba6  ADDQ.L  #0x1,D7>                                         {[-4-]}
            <MI 20ba8  BVC     0x20b5c>                                         {[-4-]}
        <POP 20baa-20bc0 Naked>                              Σ-4 Δ+4    ↓ ←0x20b5c
            <POP 20baa-20bac StackAdj>                       Δ+2                {[-2-]}
            <MI 20bac  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x20bae 0x1.2>                            Δ-2                {[-2-]|[#1]}
            <Const 0x20bb0 0x1.4>                            Δ-4                {[-2-]|[#1]|[##1]}
            <Pointer.fp 0x20bb4 <LVAR -0x008 @>>             Δ-4                {[-2-]|[#1]|[##1]|[@@-8]}
            <Pointer.fp 0x20bb6 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-2-]|[#1]|[##1]|[@@-8]|[@@-6]}
            <Call 0x20bb8 0x1038c>                                              {[-2-]|[#1]|[##1]|[@@-8]|[@@-6]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20bbe-20bc0 StackAdj>                       Δ+16               {}
        <POP 20bc0-20bc8 Epilogue>                           Σ0         

0x20bc8


@ 20bc8
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x405 1(r)>
        <LVAR -0x406 2(r)>
        <LVAR -0x408 @>
    <POP 20bc8-20c96 Body>                                              
        <POP 20bc8-20bde Prologue>                           Σ0         ↓
        <POP 20bde-20bea RegCacheLoad>                       Σ0         ↓
        <POP 20bea-20c2a Naked>                              Σ0         ↓ →0x20c8e
            <Blob 0x20bea [10] @>                            Δ-10               {[«10""»]}
            <POP 20bfc-20bfe StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x20bfe 9>                                                     {[«10""»]|[$$ERROR_LOG]}
            <POP 20c0e-20c10 StackAdj>                       Δ-2                {[«10""»]|[$$ERROR_LOG]|[-2-]}
            <MI 20c10  CLR.B   (A7)>                                            {[«10""»]|[$$ERROR_LOG]|[-2-]}
            <Const 0x20c12 0x1.2>                            Δ-2                {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]}
            <Const 0x20c14 0x0.4>                            Δ-4                {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]}
            <Pointer.fp 0x20c18 <LVAR -0x004 @ 1(r)>>        Δ-4                {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]|[@@-4]}
            <Pointer.fp 0x20c1a <LVAR -0x008 @ 4(r)>>        Δ-4                {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]|[@@-4]|[@@-8]}
            <Call 0x20c1c 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 20c22-20c26 StackAdj>                       Δ+30               {}
            <MI 20c26  TST.B   (A6-0x4)>                                        {}
            <MI 20c28  BNE     0x20c8e>                                         {}
        <POP 20c2a-20c8e Naked>                              Σ0         ↓
            <MI 20c2a  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[4, '(A6-0x8)']}
            <MI 20c2c  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x8)']|[#0]}
            <MI 20c2e  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x8)']|[#0]|[#0]}
            <Const 0x20c30 0x200.2>                          Δ-2                {[4, '(A6-0x8)']|[#0]|[#0]|[#512]}
            <Const 0x20c34 0x1.2>                            Δ-2                {[4, '(A6-0x8)']|[#0]|[#0]|[#512]|[#1]}
            <MI 20c36  LEA.L   (A6-0x408),A0>                                   {[4, '(A6-0x8)']|[#0]|[#0]|[#512]|[#1]}
            <MI 20c3a  MOVE.L  A0,-(A7)>                     Δ-4                {[4, '(A6-0x8)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']}
            <Pointer.fp 0x20c3c <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6-0x8)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-4]}
            <Call 0x20c3e 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 20c44-20c46 StackAdj>                       Δ+16               {[4, '(A6-0x8)']}
            <MI 20c46  MOVE.L  (A6-0x8),(A7)>                                   {[4, '(A6-0x8)']}
            <MI 20c48  MOVE.W  (A6-0x406),D0>                                   {[4, '(A6-0x8)']}
            <MI 20c4c  LSR.W   #0x3,D0>                                         {[4, '(A6-0x8)']}
            <MI 20c4e  ADDQ.W  #0x1,D0>                                         {[4, '(A6-0x8)']}
            <MI 20c50  MOVE.W  D0,-(A7)>                     Δ-2                {[4, '(A6-0x8)']|[2, 'D0']}
            <MI 20c52  CLR.L   D0>                                              {[4, '(A6-0x8)']|[2, 'D0']}
            <MI 20c54  MOVE.B  (A6-0x405),D0>                                   {[4, '(A6-0x8)']|[2, 'D0']}
            <MI 20c58  LSL.B   #0x5,D0>                                         {[4, '(A6-0x8)']|[2, 'D0']}
            <MI 20c5a  LSR.B   #0x5,D0>                                         {[4, '(A6-0x8)']|[2, 'D0']}
            <MI 20c5c  ASL.W   #0x6,D0>                                         {[4, '(A6-0x8)']|[2, 'D0']}
            <MI 20c5e  MOVE.W  D0,-(A7)>                     Δ-2                {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']}
            <Const 0x20c60 0x40.2>                           Δ-2                {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']|[#64]}
            <Const 0x20c64 0x1.2>                            Δ-2                {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]}
            <MI 20c66  LEA.L   0x21f64,A0>                                      {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]}
            <MI 20c6c  MOVE.L  A0,-(A7)>                     Δ-4                {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]|[4, 'A0']}
            <Pointer.fp 0x20c6e <LVAR -0x004 @ 1(r)>>        Δ-4                {[4, '(A6-0x8)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]|[4, 'A0']|[@@-4]}
            <Call 0x20c70 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 20c76-20c7a StackAdj>                       Δ+18               {[-2-]}
            <MI 20c7a  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x20c7c 0x1.2>                            Δ-2                {[-2-]|[#1]}
            <Const 0x20c7e 0x1.4>                            Δ-4                {[-2-]|[#1]|[##1]}
            <Pointer.fp 0x20c82 <LVAR -0x004 @ 1(r)>>        Δ-4                {[-2-]|[#1]|[##1]|[@@-4]}
            <Pointer.fp 0x20c84 <LVAR -0x008 @ 4(r)>>        Δ-4                {[-2-]|[#1]|[##1]|[@@-4]|[@@-8]}
            <Call 0x20c86 0x1038c>                                              {[-2-]|[#1]|[##1]|[@@-4]|[@@-8]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20c8c-20c8e StackAdj>                       Δ+16               {}
        <POP 20c8e-20c96 Epilogue>                           Σ0         ←0x20bea

0x20c96


@ 20c96
        <LVAR -0x00a 4(r)>
        <LVAR -0x00e @ 4(r)>
        <LVAR -0x012 @ 4(r)>
        <LVAR -0x016 @ 4(r)>
        <LVAR -0x018 @>
    <POP 20c96-20df2 Body>                                              
        <POP 20c96-20cac Prologue>                           Σ0         ↓
        <POP 20cac-20cb4 RegCacheLoad>                       Σ0         ↓
        <POP 20cb4-20d4c Naked>                              Σ0         ↓
            <MI 20cb4  MOVE.W  #0x3,0x21f24>                                    {}
            <POP 20cb8-20cba StackAdj>                       Δ-2                {[-2-]}
            <Call 0x20cba 0x105ec>                                              {[-2-]}
                Get_fc05() : Byte
            <MI 20cc0  MOVE.B  (A7)+,D0>                     Δ+2                {}
            <MI 20cc2  EXTB.W  D0>                                              {}
            <MI 20cc4  MOVE.W  D0,0x21f26>                                      {}
            <MI 20cca  CLR.W   0x21f28>                                         {}
            <MI 20cd0  CLR.W   0x21f2a>                                         {}
            <MI 20cd6  CLR.W   0x21f2c>                                         {}
            <MI 20cdc  CLR.W   0x21f2e>                                         {}
            <MI 20ce2  CLR.W   0x21f42>                                         {}
            <Pointer.fp 0x20ce8 <LVAR -0x012 @ 4(r)>>        Δ-4                {[@@-18]}
            <Call 0x20cec 0x1059e>                                              {[@@-18]}
                ReadClusterNo(VAR a : Long)
            <MI 20cf2  MOVE.L  (A6-0x12),(A7)>                                  {[4, '(A6-0x12)']}
            <MI 20cf6  PEA.L   (A7)>                         Δ-4                {[4, '(A6-0x12)']|[4, '^(A7)']}
            <Const 0x20cf8 0x0.4>                            Δ-4                {[4, '(A6-0x12)']|[4, '^(A7)']|[##0]}
            <Const 0x20cfc 0x3.4>                            Δ-4                {[4, '(A6-0x12)']|[4, '^(A7)']|[##0]|[##3]}
            <Pointer.fp 0x20d00 <LVAR -0x00e @ 4(r)>>        Δ-4                {[4, '(A6-0x12)']|[4, '^(A7)']|[##0]|[##3]|[@@-14]}
            <Call 0x20d04 0x104b4>                                              {[4, '(A6-0x12)']|[4, '^(A7)']|[##0]|[##3]|[@@-14]}
                ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
            <POP 20d0a-20d0e StackAdj>                       Δ+16               {[4, '(A6-0x12)']}
            <POP 20d0e-20d0f StackAdj>                       Δ+4                {}
            <Blob 0x20d0f [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x20d12 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 20d16-20d18 StackAdj>                       Δ-8                {[«4""»]|[«4""»]|[-8-]}
            <MI 20d18  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[«4""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']}
            <MI 20d1c  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«4""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']}
            <Const 0x20d20 0xa.4>                            Δ-4                {[«4""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[##10]}
            <Call 0x20d24 0x1035c>                                              {[«4""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']|[4, '(A6-0xe)']|[##10]}
                Quad2String(a : Quad; radix : Long ) : String
            <POP 20d2a-20d2c StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-8-]|[4, '(A6-0xa)']}
            <Lit 0x20d2c 8>                                                     {[«4""»]|[«4""»]|[-8-]|[$$________]}
            <Call 0x20d3e 0x102d0>                                              {[«4""»]|[«4""»]|[-8-]|[$$________]}
                StringCat2(a, b : String) : String
            <POP 20d44-20d46 StackAdj>                       Δ+8                {[«4""»]|[«4""»]|[-4-]}
            <MI 20d46  MOVEA.L (A7)+,A4>                     Δ+4                {[«4""»]|[«4""»]}
            <POP 20d48-20d4a StackAdj>                       Δ+8                {}
            <MI 20d4a  MOVEQ.L #0x01,D7>                                        {}
        <POP 20d4c-20d62 Naked>                              Σ0         ↓ →0x20d4c ←0x20d4c
            <MI 20d4c  LEA.L   0x21b12,A0>                                      {}
            <MI 20d52  LEA.L   (A0+D7.L),A0>                                    {}
            <MI 20d56  MOVE.B  (A4+D7.L+#0x1),(A0+0x437)>                       {}
            <MI 20d5c  ADDQ.L  #0x1,D7>                                         {}
            <MI 20d5e  CMP.L   #0x08,D7>                                        {}
            <MI 20d60  BLE     0x20d4c>                                         {}
        <POP 20d62-20dea Naked>                              Σ0         ↓
            <Const 0x20d62 0x22324.4>                        Δ-4                {[##140068]}
            <Call 0x20d68 0x10304>                                              {[##140068]}
                GetRtc() : TimeStamp
            <POP 20d6e-20d70 StackAdj>                       Δ+4                {}
            <Call 0x20d70 0x20bc8>                                              {}
            <Const 0x20d74 0xfcc0.4>                         Δ-4                {[##64704]}
            <MI 20d7a  LEA.L   0x21fe4,A0>                                      {[##64704]}
            <MI 20d80  MOVE.L  A0,-(A7)>                     Δ-4                {[##64704]|[4, 'A0']}
            <Const 0x20d82 0x340.2>                          Δ-2                {[##64704]|[4, 'A0']|[#832]}
            <Call 0x20d86 0x10238>                                              {[##64704]|[4, 'A0']|[#832]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20d8c-20d8e StackAdj>                       Δ+6                {[##64704]}
            <POP 20d8e-20d8f StackAdj>                       Δ+4                {}
            <Const 0x20d8f 0xfc60.4>                         Δ-4                {[##64608]}
            <MI 20d94  LEA.L   (A6-0x16),A0>                                    {[##64608]}
            <MI 20d98  MOVE.L  A0,-(A7)>                     Δ-4                {[##64608]|[4, 'A0']}
            <Const 0x20d9a 0x4.2>                            Δ-2                {[##64608]|[4, 'A0']|[#4]}
            <Call 0x20d9e 0x10238>                                              {[##64608]|[4, 'A0']|[#4]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20da4-20da8 StackAdj>                       Δ+10               {}
            <MI 20da8  MOVE.L  (A6-0x16),D0>                                    {}
            <MI 20dac  SUBI.L  #0x0000fcc0,D0>                                  {}
            <MI 20db2  ADDQ.L  #0x1,D0>                                         {}
            <MI 20db4  MOVE.W  D0,0x21f44>                                      {}
            <MI 20dba  CLR.W   0x21f46>                                         {}
            <MI 20dc0  CLR.W   0x21f48>                                         {}
            <Blob 0x20dc6 [4] 0x21b1a>                       Δ-4                {[«4»]}
            <MI 20dcc  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#0]}
            <MI 20dce  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#0]|[#0]}
            <Const 0x20dd0 0x200.2>                          Δ-2                {[«4»]|[#0]|[#0]|[#512]}
            <Const 0x20dd4 0x2.2>                            Δ-2                {[«4»]|[#0]|[#0]|[#512]|[#2]}
            <MI 20dd8  LEA.L   0x21f24,A0>                                      {[«4»]|[#0]|[#0]|[#512]|[#2]}
            <MI 20dda  MOVE.L  A0,-(A7)>                     Δ-4                {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']}
            <Pointer.fp 0x20ddc <LVAR -0x018 @>>             Δ-4                {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-24]}
            <Call 0x20de0 0x10388>                                              {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-24]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 20de6-20dea StackAdj>                       Δ+20               {}
        <POP 20dea-20df2 Epilogue>                           Σ0         

0x20df2


@ 20df2
START
    <POP 20df2--0001 Body>                                              
        <POP 20df2-20dfc Prologue>                           Σ0         
        <POP 20dfc-20e1e RegCacheLoad>                       Σ0         ↓
        <POP 20e1e-20e9a Naked>                              Σ0 Δ-34    ↓ →0x20ee0
            <Call 0x20e1e 0x10398>                                              {}
                FSCALL_10398
            <Call 0x20e24 0x20750>                                              {}
            <Const 0x20e28 0x1.4>                            Δ-4                {[##1]}
            <Call 0x20e2c 0x104d8>                                              {[##1]}
                ExpInit(a : Long)
            <POP 20e32-20e34 StackAdj>                       Δ+2                {[-2-]}
            <MI 20e34  CLR.B   (A7)>                                            {[-2-]}
            <Call 0x20e36 0x104d2>                                              {[-2-]}
                SetExpInitDone(a : Byte)
            <POP 20e3c-20e3e StackAdj>                       Δ+2                {}
            <MI 20e3e  LEA.L   0x21b1e,A0>                                      {}
            <MI 20e44  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 20e46  MOVE.L  (A7),0x21f1e>                                    {[4, 'A0']}
            <Call 0x20e4c 0x103c4>                                              {[4, 'A0']}
                GetArgv() : String
            <MI 20e52  MOVE.L  (A7)+,0x2236a>                Δ+4                {}
            <Blob 0x20e54 [10] @>                            Δ-10               {[«10""»]}
            <Blob 0x20e60 [4] @>                             Δ-4                {[«10""»]|[«4""»]}
            <Blob 0x20e64 [4] @>                             Δ-4                {[«10""»]|[«4""»]|[«4""»]}
            <Blob 0x20e68 [4] @>                             Δ-4                {[«10""»]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x20e6c [4] @>                             Δ-4                {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x20e70 [4] @>                             Δ-4                {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x20e74 [4] @>                             Δ-4                {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <POP 20e78-20e7a StackAdj>                       Δ-2                {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-2-]}
            <Blob 0x20e7a [4] 0x2236a>                       Δ-4                {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-2-]|[«4»]}
            <POP 20e7c-20e7e StackAdj>                       Δ-4                {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-2-]|[«4»]|[-4-]}
            <Lit 0x20e7e 10>                                                    {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-2-]|[«4»]|[$$DUMP_UDIAG]}
            <Call 0x20e8e 0x102c8>                                              {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-2-]|[«4»]|[$$DUMP_UDIAG]}
                StringEqual(a, b : String) : Byte
            <POP 20e94-20e96 StackAdj>                       Δ+8                {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-2-]}
            <MI 20e96  TST.B   (A7)+>                        Δ+2                {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20e98  BNE     0x20ee0>                                         {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
        <POP 20e9a-20ebc Naked>                              Σ-34       ↓ →0x20ee0
            <POP 20e9a-20e9c StackAdj>                       Δ-2                {[-36-]}
            <Blob 0x20e9c [4] 0x2236a>                       Δ-4                {[-36-]|[«4»]}
            <POP 20e9e-20ea0 StackAdj>                       Δ-4                {[-36-]|[«4»]|[-4-]}
            <Lit 0x20ea0>                                                       {[-36-]|[«4»]|[$$…]}
                <Pointer.sp 0x20ea0 22>                      Δ-4        
                <Const 0x20ea4 0x1.2>                        Δ-2        
                <Const 0x20ea6 0xc.2>                        Δ-2        
                <Call 0x20ea8 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20eae-20eb0 StackAdj>                   Δ+8        
            <Call 0x20eb0 0x102c8>                                              {[-36-]|[«4»]|[$$…]}
                StringEqual(a, b : String) : Byte
            <POP 20eb6-20eb8 StackAdj>                       Δ+8                {[-36-]}
            <MI 20eb8  TST.B   (A7)+>                        Δ+2                {[-34-]}
            <MI 20eba  BNE     0x20ee0>                                         {[-34-]}
        <POP 20ebc-20ee0 Naked>                              Σ-34       ↓ →0x210c4
            <POP 20ebc-20ebe StackAdj>                       Δ-2                {[-36-]}
            <Blob 0x20ebe [4] 0x2236a>                       Δ-4                {[-36-]|[«4»]}
            <POP 20ec0-20ec2 StackAdj>                       Δ-4                {[-36-]|[«4»]|[-4-]}
            <Lit 0x20ec2>                                                       {[-36-]|[«4»]|[$$…]}
                <Pointer.sp 0x20ec2 10>                      Δ-4        
                <Const 0x20ec6 0x1.2>                        Δ-2        
                <Const 0x20ec8 0xc.2>                        Δ-2        
                <Call 0x20eca 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20ed0-20ed2 StackAdj>                   Δ+8        
            <Call 0x20ed2 0x102c8>                                              {[-36-]|[«4»]|[$$…]}
                StringEqual(a, b : String) : Byte
            <POP 20ed8-20eda StackAdj>                       Δ+8                {[-36-]}
            <MI 20eda  TST.B   (A7)+>                        Δ+2                {[-34-]}
            <MI 20edc  BEQ     0x210c4>                                         {[-34-]}
        <POP 20ee0-20fb0 Naked>                              Σ-34 Δ-12  ↓ →0x20fe2 ←0x20e1e ←0x20e9a
            <Blob 0x20ee0 [10] @>                            Δ-10               {[-34-]|[«10""»]}
            <Blob 0x20eec [2] @>                             Δ-2                {[-34-]|[«10""»]|[«2""»]}
            <POP 20ef0-20ef2 StackAdj>                       Δ-8                {[-34-]|[«10""»]|[«2""»]|[-8-]}
            <Lit 0x20ef2 10>                                                    {[-34-]|[«10""»]|[«2""»]|[-4-]|[$$R1000_DUMP]}
            <POP 20f00-20f02 StackAdj>                       Δ-4                {[-34-]|[«10""»]|[«2""»]|[-4-]|[$$R1000_DUMP]|[-4-]}
            <Lit 0x20f02 2>                                                     {[-34-]|[«10""»]|[«2""»]|[-4-]|[$$R1000_DUMP]|[$$1 ]}
            <Call 0x20f12 0x102d0>                                              {[-34-]|[«10""»]|[«2""»]|[-4-]|[$$R1000_DUMP]|[$$1 ]}
                StringCat2(a, b : String) : String
            <POP 20f18-20f1a StackAdj>                       Δ+6                {[-34-]|[«10""»]|[«2""»]|[-4-]|[-2-]}
            <MI 20f1a  CLR.B   (A7)>                                            {[-34-]|[«10""»]|[«2""»]|[-4-]|[-2-]}
            <Const 0x20f1c 0x2.2>                            Δ-2                {[-34-]|[«10""»]|[«2""»]|[-4-]|[-2-]|[#2]}
            <Const 0x20f1e 0x32.4>                           Δ-4                {[-34-]|[«10""»]|[«2""»]|[-4-]|[-2-]|[#2]|[##50]}
            <Const 0x20f22 0x22372.4>                        Δ-4                {[-34-]|[«10""»]|[«2""»]|[-4-]|[-2-]|[#2]|[##50]|[##140146]}
            <Const 0x20f24 0x21b1a.4>                        Δ-4                {[-34-]|[«10""»]|[«2""»]|[-4-]|[-2-]|[#2]|[##50]|[##140146]|[##138010]}
            <Call 0x20f26 0x10380>                                              {[-34-]|[«10""»]|[«2""»]|[-4-]|[-2-]|[#2]|[##50]|[##140146]|[##138010]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 20f2c-20f30 StackAdj>                       Δ+28               {[-34-]|[-4-]}
            <POP 20f30-20f31 StackAdj>                       Δ+4                {[-34-]}
            <Blob 0x20f31 [4] 0x21b1a>                       Δ-4                {[-34-]|[«4»]}
            <MI 20f32  CLR.W   -(A7)>                        Δ-2                {[-34-]|[«4»]|[#0]}
            <MI 20f34  CLR.W   -(A7)>                        Δ-2                {[-34-]|[«4»]|[#0]|[#0]}
            <Const 0x20f36 0x200.2>                          Δ-2                {[-34-]|[«4»]|[#0]|[#0]|[#512]}
            <Const 0x20f38 0x2.2>                            Δ-2                {[-34-]|[«4»]|[#0]|[#0]|[#512]|[#2]}
            <MI 20f3a  LEA.L   0x21f24,A0>                                      {[-34-]|[«4»]|[#0]|[#0]|[#512]|[#2]}
            <MI 20f40  MOVE.L  A0,-(A7)>                     Δ-4                {[-34-]|[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']}
            <Const 0x20f42 0x22372.4>                        Δ-4                {[-34-]|[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[##140146]}
            <Call 0x20f44 0x10384>                                              {[-34-]|[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[##140146]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 20f4a-20f4e StackAdj>                       Δ+16               {[-34-]|[«4»]}
            <POP 20f4e-20f4f StackAdj>                       Δ+4                {[-34-]}
            <Const 0x20f4f 0xfcc0.4>                         Δ-4                {[-34-]|[##64704]}
            <MI 20f54  LEA.L   0x21bde,A0>                                      {[-34-]|[##64704]}
            <MI 20f5a  MOVE.L  A0,-(A7)>                     Δ-4                {[-34-]|[##64704]|[4, 'A0']}
            <Const 0x20f5c 0x340.2>                          Δ-2                {[-34-]|[##64704]|[4, 'A0']|[#832]}
            <Call 0x20f60 0x10238>                                              {[-34-]|[##64704]|[4, 'A0']|[#832]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20f66-20f68 StackAdj>                       Δ+6                {[-34-]|[##64704]}
            <POP 20f68-20f69 StackAdj>                       Δ+4                {[-34-]}
            <Const 0x20f69 0xfc60.4>                         Δ-4                {[-34-]|[##64608]}
            <MI 20f6e  LEA.L   0x22364,A0>                                      {[-34-]|[##64608]}
            <MI 20f74  MOVE.L  A0,-(A7)>                     Δ-4                {[-34-]|[##64608]|[4, 'A0']}
            <Const 0x20f76 0x4.2>                            Δ-2                {[-34-]|[##64608]|[4, 'A0']|[#4]}
            <Call 0x20f7a 0x10238>                                              {[-34-]|[##64608]|[4, 'A0']|[#4]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 20f80-20f82 StackAdj>                       Δ+6                {[-34-]|[##64608]}
            <POP 20f82-20f83 StackAdj>                       Δ+4                {[-34-]}
            <Blob 0x20f83 [4] @>                             Δ-4                {[-34-]|[«4""»]}
            <Blob 0x20f86 [4] @>                             Δ-4                {[-34-]|[«4""»]|[«4""»]}
            <Blob 0x20f8a [4] @>                             Δ-4                {[-34-]|[«4""»]|[«4""»]|[«4""»]}
            <POP 20f8e-20f90 StackAdj>                       Δ-2                {[-34-]|[«4""»]|[«4""»]|[«4""»]|[-2-]}
            <Blob 0x20f90 [4] 0x2236a>                       Δ-4                {[-34-]|[«4""»]|[«4""»]|[«4""»]|[-2-]|[«4»]}
            <POP 20f92-20f94 StackAdj>                       Δ-4                {[-34-]|[«4""»]|[«4""»]|[«4""»]|[-2-]|[«4»]|[-4-]}
            <Lit 0x20f94 12>                                                    {[-34-]|[«4""»]|[«4""»]|[«4""»]|[-2-]|[«4»]|[$$FRU_T_SCREEN]}
            <Call 0x20fa4 0x102c8>                                              {[-34-]|[«4""»]|[«4""»]|[«4""»]|[-2-]|[«4»]|[$$FRU_T_SCREEN]}
                StringEqual(a, b : String) : Byte
            <POP 20faa-20fac StackAdj>                       Δ+8                {[-34-]|[«4""»]|[«4""»]|[«4""»]|[-2-]}
            <MI 20fac  TST.B   (A7)+>                        Δ+2                {[-34-]|[«4""»]|[«4""»]|[«4""»]}
            <MI 20fae  BEQ     0x20fe2>                                         {[-34-]|[«4""»]|[«4""»]|[«4""»]}
        <POP 20fb0-20fe2 Naked>                              Σ-46       →0x21012
            <Blob 0x20fb0 [4] 0x21b1a>                       Δ-4                {[-46-]|[«4»]}
            <Const 0x20fb2 0x23.2>                           Δ-2                {[-46-]|[«4»]|[#35]}
            <MI 20fb6  CLR.W   -(A7)>                        Δ-2                {[-46-]|[«4»]|[#35]|[#0]}
            <Const 0x20fb8 0x200.2>                          Δ-2                {[-46-]|[«4»]|[#35]|[#0]|[#512]}
            <Const 0x20fba 0x2.2>                            Δ-2                {[-46-]|[«4»]|[#35]|[#0]|[#512]|[#2]}
            <Blob 0x20fbc [4] 0x21f1e>                       Δ-4                {[-46-]|[«4»]|[#35]|[#0]|[#512]|[#2]|[«4»]}
            <Const 0x20fc2 0x22372.4>                        Δ-4                {[-46-]|[«4»]|[#35]|[#0]|[#512]|[#2]|[«4»]|[##140146]}
            <Call 0x20fc4 0x10388>                                              {[-46-]|[«4»]|[#35]|[#0]|[#512]|[#2]|[«4»]|[##140146]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 20fca-20fcc StackAdj>                       Δ+20               {[-46-]}
            <MI 20fcc  MOVE.L  0x22364,D0>                                      {[-46-]}
            <MI 20fd2  SUBI.L  #0x0000fcc0,D0>                                  {[-46-]}
            <MI 20fd8  ADDQ.L  #0x1,D0>                                         {[-46-]}
            <MI 20fda  MOVE.W  D0,0x21f48>                                      {[-46-]}
            <MI 20fe0  BRA     0x21012>                                         {[-46-]}
        <POP 20fe2-21012 Naked>                              Σ-46       ↓ ←0x20ee0
            <Blob 0x20fe2 [4] 0x21b1a>                       Δ-4                {[-46-]|[«4»]}
            <Const 0x20fe4 0x22.2>                           Δ-2                {[-46-]|[«4»]|[#34]}
            <MI 20fe8  CLR.W   -(A7)>                        Δ-2                {[-46-]|[«4»]|[#34]|[#0]}
            <Const 0x20fea 0x200.2>                          Δ-2                {[-46-]|[«4»]|[#34]|[#0]|[#512]}
            <Const 0x20fec 0x2.2>                            Δ-2                {[-46-]|[«4»]|[#34]|[#0]|[#512]|[#2]}
            <Blob 0x20fee [4] 0x21f1e>                       Δ-4                {[-46-]|[«4»]|[#34]|[#0]|[#512]|[#2]|[«4»]}
            <Const 0x20ff4 0x22372.4>                        Δ-4                {[-46-]|[«4»]|[#34]|[#0]|[#512]|[#2]|[«4»]|[##140146]}
            <Call 0x20ff6 0x10388>                                              {[-46-]|[«4»]|[#34]|[#0]|[#512]|[#2]|[«4»]|[##140146]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 20ffc-20ffe StackAdj>                       Δ+20               {[-46-]}
            <MI 20ffe  MOVE.L  0x22364,D0>                                      {[-46-]}
            <MI 21004  SUBI.L  #0x0000fcc0,D0>                                  {[-46-]}
            <MI 2100a  ADDQ.L  #0x1,D0>                                         {[-46-]}
            <MI 2100c  MOVE.W  D0,0x21f46>                                      {[-46-]}
        <POP 21012-21042 Naked>                              Σ-46 Δ+2   ↓ →0x21080 ←0x20fb0
            <POP 21012-21014 StackAdj>                       Δ+12               {[-34-]}
            <Blob 0x21014 [10] @>                            Δ-10               {[-34-]|[«10""»]}
            <POP 21020-21022 StackAdj>                       Δ-2                {[-34-]|[«10""»]|[-2-]}
            <Blob 0x21022 [4] 0x2236a>                       Δ-4                {[-34-]|[«10""»]|[-2-]|[«4»]}
            <POP 21024-21026 StackAdj>                       Δ-4                {[-34-]|[«10""»]|[-2-]|[«4»]|[-4-]}
            <Lit 0x21026 10>                                                    {[-34-]|[«10""»]|[-2-]|[«4»]|[$$DUMP_UDIAG]}
            <Call 0x21036 0x102c8>                                              {[-34-]|[«10""»]|[-2-]|[«4»]|[$$DUMP_UDIAG]}
                StringEqual(a, b : String) : Byte
            <POP 2103c-2103e StackAdj>                       Δ+8                {[-34-]|[«10""»]|[-2-]}
            <MI 2103e  TST.B   (A7)+>                        Δ+2                {[-34-]|[«10""»]}
            <MI 21040  BEQ     0x21080>                                         {[-34-]|[«10""»]}
        <POP 21042-21080 Naked>                              Σ-44       ↓
            <MI 21042  MOVE.W  #0x24,0x21f22>                                   {[-44-]}
            <MI 2104a  MOVE.W  0x21f22,0x21f2e>                                 {[-44-]}
            <Blob 0x21054 [18] @>                            Δ-18               {[-44-]|[«18""»]}
            <POP 21066-21068 StackAdj>                       Δ-4                {[-44-]|[«18""»]|[-4-]}
            <Lit 0x21068 17>                                                    {[-44-]|[«18""»]|[$$UDIAG.SAVED_STATE]}
            <Call 0x2107a 0x20a96>                                              {[-44-]|[«18""»]|[$$UDIAG.SAVED_STATE]}
            <POP 2107e-21080 StackAdj>                       Δ+22               {[-44-]}
        <POP 21080-210c4 Naked>                              Σ-44 Δ+10  ↓ ←0x21012
            <POP 21080-21082 StackAdj>                       Δ+6                {[-38-]}
            <POP 21082-21083 StackAdj>                       Δ+4                {[-34-]}
            <Blob 0x21083 [4] 0x21b1a>                       Δ-4                {[-34-]|[«4»]}
            <MI 21084  CLR.W   -(A7)>                        Δ-2                {[-34-]|[«4»]|[#0]}
            <MI 21086  CLR.W   -(A7)>                        Δ-2                {[-34-]|[«4»]|[#0]|[#0]}
            <Const 0x21088 0x200.2>                          Δ-2                {[-34-]|[«4»]|[#0]|[#0]|[#512]}
            <Const 0x2108a 0x2.2>                            Δ-2                {[-34-]|[«4»]|[#0]|[#0]|[#512]|[#2]}
            <MI 2108c  LEA.L   0x21f24,A0>                                      {[-34-]|[«4»]|[#0]|[#0]|[#512]|[#2]}
            <MI 21092  MOVE.L  A0,-(A7)>                     Δ-4                {[-34-]|[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']}
            <Const 0x21094 0x22372.4>                        Δ-4                {[-34-]|[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[##140146]}
            <Call 0x21096 0x10388>                                              {[-34-]|[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[##140146]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 2109c-210a0 StackAdj>                       Δ+18               {[-34-]|[-2-]}
            <MI 210a0  CLR.B   (A7)>                                            {[-34-]|[-2-]}
            <Const 0x210a2 0x2.2>                            Δ-2                {[-34-]|[-2-]|[#2]}
            <Const 0x210a4 0x1.4>                            Δ-4                {[-34-]|[-2-]|[#2]|[##1]}
            <Const 0x210a8 0x22372.4>                        Δ-4                {[-34-]|[-2-]|[#2]|[##1]|[##140146]}
            <Const 0x210aa 0x21b1a.4>                        Δ-4                {[-34-]|[-2-]|[#2]|[##1]|[##140146]|[##138010]}
            <Call 0x210ac 0x1038c>                                              {[-34-]|[-2-]|[#2]|[##1]|[##140146]|[##138010]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 210b2-210b6 StackAdj>                       Δ+14               {[-34-]|[-2-]}
            <MI 210b6  CLR.B   (A7)>                                            {[-34-]|[-2-]}
            <Const 0x210b8 0x1.4>                            Δ-4                {[-34-]|[-2-]|[##1]}
            <Call 0x210bc 0x103b8>                                              {[-34-]|[-2-]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 210c2-210c4 StackAdj>                       Δ+6                {[-34-]}
        <POP 210c4-21104 Naked>                              Σ-34 Δ+12  ↓ →0x2115a ←0x20ebc
            <POP 210c4-210c5 StackAdj>                       Δ+34       ↓       {}
            <Blob 0x210c5 [12] @>                            Δ-12               {[«12""»]}
            <Blob 0x210d4 [10] @>                            Δ-10               {[«12""»]|[«10""»]}
            <POP 210e0-210e2 StackAdj>                       Δ-2                {[«12""»]|[«10""»]|[-2-]}
            <Blob 0x210e2 [4] 0x2236a>                       Δ-4                {[«12""»]|[«10""»]|[-2-]|[«4»]}
            <POP 210e4-210e6 StackAdj>                       Δ-4                {[«12""»]|[«10""»]|[-2-]|[«4»]|[-4-]}
            <Lit 0x210e6 11>                                                    {[«12""»]|[«10""»]|[-2-]|[«4»]|[$$NO_R1K_DUMP]}
            <Call 0x210f8 0x102c8>                                              {[«12""»]|[«10""»]|[-2-]|[«4»]|[$$NO_R1K_DUMP]}
                StringEqual(a, b : String) : Byte
            <POP 210fe-21100 StackAdj>                       Δ+8                {[«12""»]|[«10""»]|[-2-]}
            <MI 21100  TST.B   (A7)+>                        Δ+2                {[«12""»]|[«10""»]}
            <MI 21102  BNE     0x2115a>                                         {[«12""»]|[«10""»]}
        <POP 21104-21126 Naked>                              Σ-22       ↓ →0x2115a
            <POP 21104-21106 StackAdj>                       Δ-2                {[-24-]}
            <Blob 0x21106 [4] 0x2236a>                       Δ-4                {[-24-]|[«4»]}
            <POP 21108-2110a StackAdj>                       Δ-4                {[-24-]|[«4»]|[-4-]}
            <Lit 0x2110a>                                                       {[-24-]|[«4»]|[$$…]}
                <Pointer.sp 0x2110a 10>                      Δ-4        
                <Const 0x2110e 0x1.2>                        Δ-2        
                <Const 0x21110 0xa.2>                        Δ-2        
                <Call 0x21112 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21118-2111a StackAdj>                   Δ+8        
            <Call 0x2111a 0x102c8>                                              {[-24-]|[«4»]|[$$…]}
                StringEqual(a, b : String) : Byte
            <POP 21120-21122 StackAdj>                       Δ+8                {[-24-]}
            <MI 21122  TST.B   (A7)+>                        Δ+2                {[-22-]}
            <MI 21124  BNE     0x2115a>                                         {[-22-]}
        <POP 21126-2115a Naked>                              Σ-22       ↓
            <Blob 0x21126 [26] @>                            Δ-26               {[-22-]|[«26""»]}
            <Const 0x21138 0xe.2>                            Δ-2                {[-22-]|[«26""»]|[#14]}
            <POP 2113c-2113e StackAdj>                       Δ-4                {[-22-]|[«26""»]|[#14]|[-4-]}
            <Lit 0x2113e 25>                                                    {[-22-]|[«26""»]|[#14]|[$$unknown invocation option]}
            <Call 0x21150 0x103b8>                                              {[-22-]|[«26""»]|[#14]|[$$unknown invocation option]}
                PopProgram(status : Byte; msg : String)
            <POP 21156-2115a StackAdj>                       Δ+32               {[-22-]}
        <POP 2115a-21170 Naked>                              Σ-22 Δ+22  ↓ →0x21174 ←0x210c4 ←0x21104
            <POP 2115a-2115c StackAdj>                       Δ+22               {}
            <Call 0x2115c 0x207e8>                                              {}
            <Call 0x21160 0x20c96>                                              {}
            <POP 21164-21166 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21166 0x105ec>                                              {[-2-]}
                Get_fc05() : Byte
            <MI 2116c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2116e  BEQ     0x21174>                                         {}
        <POP 21170-21174 Naked>                              Σ0         ↓
            <Call 0x21170 0x20950>                                              {}
        <POP 21174-211a2 Naked>                              Σ0 Δ-10    ↓ →0x21202 ←0x2115a
            <Blob 0x21174 [10] @>                            Δ-10               {[«10""»]}
            <POP 21180-21182 StackAdj>                       Δ-2                {[«10""»]|[-2-]}
            <Blob 0x21182 [4] 0x2236a>                       Δ-4                {[«10""»]|[-2-]|[«4»]}
            <POP 21184-21186 StackAdj>                       Δ-4                {[«10""»]|[-2-]|[«4»]|[-4-]}
            <Lit 0x21186 10>                                                    {[«10""»]|[-2-]|[«4»]|[$$DUMP_R1000]}
            <Call 0x21196 0x102c8>                                              {[«10""»]|[-2-]|[«4»]|[$$DUMP_R1000]}
                StringEqual(a, b : String) : Byte
            <POP 2119c-2119e StackAdj>                       Δ+8                {[«10""»]|[-2-]}
            <MI 2119e  TST.B   (A7)+>                        Δ+2                {[«10""»]}
            <MI 211a0  BEQ     0x21202>                                         {[«10""»]}
        <POP 211a2-211f8 Naked>                              Σ-10       ↓ →0x211fe
            <MI 211a2  MOVE.W  #0x4,0x21f22>                                    {[-10-]}
            <MI 211aa  MOVE.W  0x21f22,0x21f2a>                                 {[-10-]}
            <Blob 0x211b4 [22] @>                            Δ-22               {[-10-]|[«22""»]}
            <POP 211c0-211c2 StackAdj>                       Δ-4                {[-10-]|[«22""»]|[-4-]}
            <Lit 0x211c2 22>                                                    {[-10-]|[«22""»]|[$$CRASH_DUMP.SAVED_STATE]}
            <Call 0x211d2 0x20a96>                                              {[-10-]|[«22""»]|[$$CRASH_DUMP.SAVED_STATE]}
            <POP 211d6-211da StackAdj>                       Δ+26               {[-10-]}
            <MI 211da  MOVE.W  #0x01,0x21f42>                                   {[-10-]}
            <Call 0x211e0 0x202c8>                                              {[-10-]}
            <Const 0x211e4 0x22368.4>                        Δ-4                {[-10-]|[##140136]}
            <Call 0x211ea 0x20602>                                              {[-10-]|[##140136]}
            <POP 211ee-211f0 StackAdj>                       Δ+4                {[-10-]}
            <MI 211f0  TST.B   0x22368>                                         {[-10-]}
            <MI 211f6  BEQ     0x211fe>                                         {[-10-]}
        <POP 211f8-211fe Naked>                              Σ-10       ↓
            <MI 211f8  MOVE.W  #0x02,0x21f42>                                   {[-10-]}
        <POP 211fe-21202 Naked>                              Σ-10       ↓ ←0x211a2
            <Call 0x211fe 0x2041c>                                              {[-10-]}
        <POP 21202-212ca Naked>                              Σ-10 Δ+10  ↓ ←0x21174
            <POP 21202-21204 StackAdj>                       Δ+2                {[-8-]}
            <POP 21204-21205 StackAdj>                       Δ+4                {[-4-]}
            <Blob 0x21205 [4] 0x22324>                       Δ-4                {[-4-]|[«4»]}
            <Call 0x2120a 0x10308>                                              {[-4-]|[«4»]}
                TimeToText()
            <POP 21210-21212 StackAdj>                       Δ+4                {[-4-]}
            <MI 21212  MOVE.L  (A7)+,0x2236e>                Δ+4                {}
            <MI 21218  MOVEA.L 0x2236e,A0>                                      {}
            <MI 2121e  LEA.L   (A0+0x2),A0>                                     {}
            <MI 21222  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 21224  LEA.L   0x21f30,A0>                                      {[4, 'A0']}
            <MI 2122a  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A0']}
            <Const 0x2122c 0x12.2>                           Δ-2                {[4, 'A0']|[4, 'A0']|[#18]}
            <Call 0x21230 0x10238>                                              {[4, 'A0']|[4, 'A0']|[#18]}
                KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
            <POP 21236-21238 StackAdj>                       Δ+6                {[4, 'A0']}
            <POP 21238-21239 StackAdj>                       Δ+4                {}
            <Blob 0x21239 [4] 0x21b1a>                       Δ-4                {[«4»]}
            <MI 2123a  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#0]}
            <MI 2123c  CLR.W   -(A7)>                        Δ-2                {[«4»]|[#0]|[#0]}
            <Const 0x2123e 0x200.2>                          Δ-2                {[«4»]|[#0]|[#0]|[#512]}
            <Const 0x21240 0x2.2>                            Δ-2                {[«4»]|[#0]|[#0]|[#512]|[#2]}
            <MI 21242  LEA.L   0x21f24,A0>                                      {[«4»]|[#0]|[#0]|[#512]|[#2]}
            <MI 21248  MOVE.L  A0,-(A7)>                     Δ-4                {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']}
            <Const 0x2124a 0x22372.4>                        Δ-4                {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[##140146]}
            <Call 0x2124c 0x10388>                                              {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[##140146]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 21252-21254 StackAdj>                       Δ+20               {}
            <MI 21254  MOVEA.L 0x21b1a,A0>                                      {}
            <MI 21256  MOVE.B  0x22324,(A0+0x3a)>                               {}
            <MI 2125e  MOVE.B  0x22325,(A0+0x3b)>                               {}
            <MI 21266  MOVE.B  0x22326,(A0+0x3c)>                               {}
            <MI 2126e  MOVE.B  0x22327,(A0+0x3d)>                               {}
            <MI 21276  MOVE.B  #0x01,(A0+0x4c)>                                 {}
            <MI 2127a  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x2127c 0x2.2>                            Δ-2                {[#0]|[#2]}
            <Const 0x2127e 0x1.4>                            Δ-4                {[#0]|[#2]|[##1]}
            <Const 0x21282 0x22372.4>                        Δ-4                {[#0]|[#2]|[##1]|[##140146]}
            <Const 0x21284 0x21b1a.4>                        Δ-4                {[#0]|[#2]|[##1]|[##140146]|[##138010]}
            <Call 0x21286 0x1038c>                                              {[#0]|[#2]|[##1]|[##140146]|[##138010]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 2128c-2128d StackAdj>                       Δ+16       ↓       {}
            <Blob 0x2128d [50] @>                            Δ-50               {[«50""»]}
            <POP 2129e-212a0 StackAdj>                       Δ-4                {[«50""»]|[-4-]}
            <Lit 0x212a0 49>                                                    {[«50""»]|[$$CrashSave has created tombstone file R1000_DUMP1.]}
            <Call 0x212b2 0x103e0>                                              {[«50""»]|[$$CrashSave has created tombstone file R1000_DUMP1.]}
                WriteConsoleStringCrLf(str : String)
            <POP 212b8-212bc StackAdj>                       Δ+52               {[-2-]}
            <MI 212bc  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x212be 0x1.4>                            Δ-4                {[-2-]|[##1]}
            <Call 0x212c2 0x103b8>                                              {[-2-]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 212c8-212ca StackAdj>                       Δ+6                {}
        <POP 212ca-212d0 Naked>                              Σ0         
            <Call 0x212ca 0x10284>                                              {}
                ?exit

0x214cc


@ 214cc
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 4(r)>
    <POP 214cc-21576 Body>                                   Δ+12       
        <POP 214cc-214e2 Prologue>                           Σ0         ↓
        <POP 214e2-214e8 RegCacheLoad>                       Σ0         ↓
        <POP 214e8-214f4 Naked>                              Σ0         ↓ →0x21506
            <POP 214e8-214ea StackAdj>                       Δ-2                {[-2-]}
            <Call 0x214ea 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 214f0  TST.B   (A7)+>                        Δ+2                {}
            <MI 214f2  BEQ     0x21506>                                         {}
        <POP 214f4-21506 Naked>                              Σ0 Δ-12    →0x21516
            <Blob 0x214f4 [12] @>                            Δ-12               {[«12""»]}
            <MI 21504  BRA     0x21516>                                         {[«12""»]}
        <POP 21506-21516 Naked>                              Σ0 Δ-12    ↓ ←0x214e8
            <Blob 0x21506 [12] @>                            Δ-12               {[«12""»]}
        <POP 21516-2156e Naked>                              Σ-12 Δ+12  ↓ ←0x214f4
            <POP 21516-21518 StackAdj>                       Δ-4                {[-16-]}
            <Lit 0x21518>                                                       {[-12-]|[$$…]}
                <Pointer.sp 0x21518 4>                       Δ-4        
                <Const 0x2151c 0x1.2>                        Δ-2        
                <Const 0x21520 0xb.2>                        Δ-2        
                <Call 0x21524 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2152a-2152c StackAdj>                   Δ+8        
            <Pointer.fp 0x2152c <LVAR -0x004 @ 4(r)>>        Δ-4                {[-12-]|[$$…]|[@@-4]}
            <Call 0x2152e 0x10460>                                              {[-12-]|[$$…]|[@@-4]}
                ExpLoad(a : String; b: Pointer)
            <POP 21534-21538 StackAdj>                       Δ+20               {}
            <MI 21538  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <MI 2153c  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']}
            <Pointer.sp 0x2153e 4>                           Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]}
            <Const 0x21542 0x0.4>                            Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]}
            <Const 0x21546 0x0.4>                            Δ-4                {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
            <Call 0x2154a 0x10466>                                              {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 21550-21554 StackAdj>                       Δ+16               {[2, '(A6+0x8)']}
            <MI 21554  CLR.B   (A7)>                                            {[2, '(A6+0x8)']}
            <MI 21556  MOVE.B  (A6+0xa),-(A7)>               Δ-2                {[2, '(A6+0x8)']|[2, '(A6+0xa)']}
            <MI 2155a  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
            <Call 0x2155c 0x104ba>                                              {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 21562-21564 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x21564 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x21566 0x10496>                                              {[@@-4]}
                ExpClose(exp : Pointer)
            <POP 2156c-2156e StackAdj>                       Δ+4                {}
        <POP 2156e-21576 Epilogue>                           Σ0         

0x21592


@ 21592
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 21592-21620 Body>                                   Δ+14       
        <POP 21592-215a8 Prologue>                           Σ0         ↓
        <POP 215a8-215ae RegCacheLoad>                       Σ0         ↓
        <POP 215ae-215ba Naked>                              Σ0         ↓ →0x215cc
            <POP 215ae-215b0 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x215b0 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 215b6  TST.B   (A7)+>                        Δ+2                {}
            <MI 215b8  BEQ     0x215cc>                                         {}
        <POP 215ba-215cc Naked>                              Σ0 Δ-14    →0x215dc
            <Blob 0x215ba [14] @>                            Δ-14               {[«14""»]}
            <MI 215ca  BRA     0x215dc>                                         {[«14""»]}
        <POP 215cc-215dc Naked>                              Σ0 Δ-14    ↓ ←0x215ae
            <Blob 0x215cc [14] @>                            Δ-14               {[«14""»]}
        <POP 215dc-21618 Naked>                              Σ-14 Δ+14  ↓ ←0x215ba
            <POP 215dc-215de StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x215de>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x215de 4>                       Δ-4        
                <Const 0x215e2 0x1.2>                        Δ-2        
                <Const 0x215e6 0xd.2>                        Δ-2        
                <Call 0x215ea 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 215f0-215f2 StackAdj>                   Δ+8        
            <Pointer.fp 0x215f2 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-14-]|[$$…]|[@@-6]}
            <Call 0x215f4 0x10460>                                              {[-14-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 215fa-215fe StackAdj>                       Δ+22               {}
            <MI 215fe  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 21600  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 21604  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x21606 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 2160c-2160e StackAdj>                       Δ+8                {}
            <Pointer.fp 0x2160e <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x21610 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 21616-21618 StackAdj>                       Δ+4                {}
        <POP 21618-21620 Epilogue>                           Σ0         

0x2162c


@ 2162c
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 2162c-216b0 Body>                                   Δ+6        
        <POP 2162c-21642 Prologue>                           Σ0         ↓
        <POP 21642-21646 RegCacheLoad>                       Σ0         ↓
        <POP 21646-21652 Naked>                              Σ0         ↓ →0x21660
            <POP 21646-21648 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21648 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 2164e  TST.B   (A7)+>                        Δ+2                {}
            <MI 21650  BEQ     0x21660>                                         {}
        <POP 21652-21660 Naked>                              Σ0 Δ-6     →0x2166c
            <Blob 0x21652 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21656 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x2165a [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <MI 2165e  BRA     0x2166c>                                         {[«2""»]|[«2""»]|[«2""»]}
        <POP 21660-2166c Naked>                              Σ0 Δ-6     ↓ ←0x21646
            <Blob 0x21660 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21664 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21668 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
        <POP 2166c-216a8 Naked>                              Σ-6 Δ+6    ↓ ←0x21652
            <POP 2166c-2166e StackAdj>                       Δ-4                {[-10-]}
            <Lit 0x2166e>                                                       {[-6-]|[$$…]}
                <Pointer.sp 0x2166e 4>                       Δ-4        
                <Const 0x21672 0x1.2>                        Δ-2        
                <Const 0x21676 0x6.2>                        Δ-2        
                <Call 0x2167a 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21680-21682 StackAdj>                   Δ+8        
            <Pointer.fp 0x21682 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-6-]|[$$…]|[@@-6]}
            <Call 0x21684 0x10460>                                              {[-6-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 2168a-2168e StackAdj>                       Δ+14               {}
            <MI 2168e  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 21690  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 21694  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x21696 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 2169c-2169e StackAdj>                       Δ+8                {}
            <Pointer.fp 0x2169e <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x216a0 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 216a6-216a8 StackAdj>                       Δ+4                {}
        <POP 216a8-216b0 Epilogue>                           Σ0         

0x216e0


@ 216e0
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 216e0-2176e Body>                                   Δ+24       
        <POP 216e0-216f6 Prologue>                           Σ0         ↓
        <POP 216f6-216fc RegCacheLoad>                       Σ0         ↓
        <POP 216fc-21708 Naked>                              Σ0         ↓ →0x2171a
            <POP 216fc-216fe StackAdj>                       Δ-2                {[-2-]}
            <Call 0x216fe 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 21704  TST.B   (A7)+>                        Δ+2                {}
            <MI 21706  BEQ     0x2171a>                                         {}
        <POP 21708-2171a Naked>                              Σ0 Δ-24    →0x2172a
            <Blob 0x21708 [24] @>                            Δ-24               {[«24""»]}
            <MI 21718  BRA     0x2172a>                                         {[«24""»]}
        <POP 2171a-2172a Naked>                              Σ0 Δ-24    ↓ ←0x216fc
            <Blob 0x2171a [24] @>                            Δ-24               {[«24""»]}
        <POP 2172a-21766 Naked>                              Σ-24 Δ+24  ↓ ←0x21708
            <POP 2172a-2172c StackAdj>                       Δ-4                {[-28-]}
            <Lit 0x2172c>                                                       {[-24-]|[$$…]}
                <Pointer.sp 0x2172c 4>                       Δ-4        
                <Const 0x21730 0x1.2>                        Δ-2        
                <Const 0x21734 0x17.2>                       Δ-2        
                <Call 0x21738 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2173e-21740 StackAdj>                   Δ+8        
            <Pointer.fp 0x21740 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-24-]|[$$…]|[@@-6]}
            <Call 0x21742 0x10460>                                              {[-24-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 21748-2174c StackAdj>                       Δ+32               {}
            <MI 2174c  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 2174e  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 21752  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x21754 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 2175a-2175c StackAdj>                       Δ+8                {}
            <Pointer.fp 0x2175c <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x2175e 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 21764-21766 StackAdj>                       Δ+4                {}
        <POP 21766-2176e Epilogue>                           Σ0         

0x2178a


@ 2178a
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 2178a-2180e Body>                                   Δ+14       
        <POP 2178a-217a0 Prologue>                           Σ0         ↓
        <POP 217a0-217a4 RegCacheLoad>                       Σ0         ↓
        <POP 217a4-217b0 Naked>                              Σ0         ↓ →0x217be
            <POP 217a4-217a6 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x217a6 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 217ac  TST.B   (A7)+>                        Δ+2                {}
            <MI 217ae  BEQ     0x217be>                                         {}
        <POP 217b0-217be Naked>                              Σ0 Δ-14    →0x217ca
            <Blob 0x217b0 [14] @>                            Δ-14               {[«14""»]}
            <MI 217bc  BRA     0x217ca>                                         {[«14""»]}
        <POP 217be-217ca Naked>                              Σ0 Δ-14    ↓ ←0x217a4
            <Blob 0x217be [14] @>                            Δ-14               {[«14""»]}
        <POP 217ca-21806 Naked>                              Σ-14 Δ+14  ↓ ←0x217b0
            <POP 217ca-217cc StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x217cc>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x217cc 4>                       Δ-4        
                <Const 0x217d0 0x1.2>                        Δ-2        
                <Const 0x217d4 0xe.2>                        Δ-2        
                <Call 0x217d8 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 217de-217e0 StackAdj>                   Δ+8        
            <Pointer.fp 0x217e0 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-14-]|[$$…]|[@@-6]}
            <Call 0x217e2 0x10460>                                              {[-14-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 217e8-217ec StackAdj>                       Δ+22               {}
            <MI 217ec  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 217ee  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 217f2  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x217f4 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 217fa-217fc StackAdj>                       Δ+8                {}
            <Pointer.fp 0x217fc <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x217fe 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 21804-21806 StackAdj>                       Δ+4                {}
        <POP 21806-2180e Epilogue>                           Σ0         

0x21836


@ 21836
        <LVAR  0x008 1(r)>
        <LVAR -0x006 @ 4(r)>
    <POP 21836-218c4 Body>                                   Δ+20       
        <POP 21836-2184c Prologue>                           Σ0         ↓
        <POP 2184c-21852 RegCacheLoad>                       Σ0         ↓
        <POP 21852-2185e Naked>                              Σ0         ↓ →0x21870
            <POP 21852-21854 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21854 0x104cc>                                              {[-2-]}
                MemOnly2MB() : Bool
            <MI 2185a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2185c  BEQ     0x21870>                                         {}
        <POP 2185e-21870 Naked>                              Σ0 Δ-20    →0x21880
            <Blob 0x2185e [20] @>                            Δ-20               {[«20""»]}
            <MI 2186e  BRA     0x21880>                                         {[«20""»]}
        <POP 21870-21880 Naked>                              Σ0 Δ-20    ↓ ←0x21852
            <Blob 0x21870 [20] @>                            Δ-20               {[«20""»]}
        <POP 21880-218bc Naked>                              Σ-20 Δ+20  ↓ ←0x2185e
            <POP 21880-21882 StackAdj>                       Δ-4                {[-24-]}
            <Lit 0x21882>                                                       {[-20-]|[$$…]}
                <Pointer.sp 0x21882 4>                       Δ-4        
                <Const 0x21886 0x1.2>                        Δ-2        
                <Const 0x2188a 0x13.2>                       Δ-2        
                <Call 0x2188e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21894-21896 StackAdj>                   Δ+8        
            <Pointer.fp 0x21896 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-20-]|[$$…]|[@@-6]}
            <Call 0x21898 0x10460>                                              {[-20-]|[$$…]|[@@-6]}
                ExpLoad(a : String; b: Pointer)
            <POP 2189e-218a2 StackAdj>                       Δ+28               {}
            <MI 218a2  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <MI 218a4  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[#0]|[2, '(A6+0x8)']}
            <MI 218a8  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
            <Call 0x218aa 0x104ba>                                              {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
                ExpRun(a: Bool; adr: Byte; b: Pointer)
            <POP 218b0-218b2 StackAdj>                       Δ+8                {}
            <Pointer.fp 0x218b2 <LVAR -0x006 @ 4(r)>>        Δ-4                {[@@-6]}
            <Call 0x218b4 0x10496>                                              {[@@-6]}
                ExpClose(exp : Pointer)
            <POP 218ba-218bc StackAdj>                       Δ+4                {}
        <POP 218bc-218c4 Epilogue>                           Σ0         

0x2191a


@ 2191a
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 2191a-21982 Body>                                              
        <POP 2191a-21930 Prologue>                           Σ0         ↓
        <POP 21930-2197a Naked>                              Σ0         ↓
            <Blob 0x21930 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x2193c 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 21940-21942 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x21942 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 21954-21956 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 21956  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2195a  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2195c  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2195e  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x21960 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 21966-21968 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x21968 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2196e-21970 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x21970 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 21976-2197a StackAdj>                       Δ+20               {}
        <POP 2197a-21982 Epilogue>                           Σ0         

0x219d6


@ 219d6
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 219d6-21b12 Body>                                              
        <POP 219d6-219ec Prologue>                           Σ0         ↓
        <POP 219ec-21a02 RegCacheLoad>                       Σ0         ↓
        <POP 21a02-21a62 Naked>                              Σ0         ↓ →0x21aaa
            <Call 0x21a02 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x21a08 [18] @>                            Δ-18               {[«18""»]}
            <POP 21a14-21a16 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x21a16 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x21a22 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 21a24-21a25 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x21a25 [14] @>                            Δ-14               {[«14""»]}
            <POP 21a34-21a36 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x21a36 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 21a40-21a42 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 21a42  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x21a46 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 21a4c-21a4e StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x21a4e 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21a54-21a56 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x21a56 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21a58-21a5a StackAdj>                       Δ+18               {}
            <MI 21a5a  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21a5e  CMPA.W  #0x01,A0>                                        {}
            <MI 21a60  BEQ     0x21aaa>                                         {}
        <POP 21a62-21aaa Naked>                              Σ0         ↓
            <Blob 0x21a62 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x21a72 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 21a82-21a84 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x21a84 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 21a8e-21a90 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x21a90>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x21a90 12>                      Δ-4        
                <Const 0x21a94 0x1.2>                        Δ-2        
                <Const 0x21a96 0x1e.2>                       Δ-2        
                <Call 0x21a98 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21a9a-21a9c StackAdj>                   Δ+8        
            <Call 0x21a9c 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 21aa2-21aa4 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x21aa4 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21aa6-21aaa StackAdj>                       Δ+48               {}
        <POP 21aaa-21b0a Naked>                              Σ0         ↓ ←0x21a02
            <Blob 0x21aaa [14] @>                            Δ-14               {[«14""»]}
            <POP 21aba-21abc StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x21abc 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 21ac6-21ac8 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 21ac8  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x21acc 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 21ad2-21ad4 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x21ad4 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21ada-21adc StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x21adc 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21ade-21adf StackAdj>                       Δ+18       ↓       {}
            <Blob 0x21adf [24] @>                            Δ-24               {[«24""»]}
            <Const 0x21aee 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 21af2-21af4 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x21af4 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x21b02 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 21b08-21b0a StackAdj>                       Δ+30               {}
        <POP 21b0a-21b12 Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.938711420108449b
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 0d f2              |        |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 23 b6              |  #     |		.PTR	0x223b6
00020010					code.end:
00020010 00 02 1b 12              |        |		.PTR	0x21b12
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 19 1a              |        |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 19 d6              |        |		.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 33 2e 30 2c 39 32 2f 30  |3.0,92/0|
00020120 39 2f 30 39 2c 31 37 3a  |9/09,17:|
00020128 31 38 3a 31 39 5c        |18:19\  |		.XXX[0x6]
0002012e 43 52 41 53 48 5f 44 55  |CRASH_DU|		.TXT	'CRASH_DUMP.SAVED_STATE'
00020144 52 31 30 30 30 5f 44 55  |R1000_DU|		.TXT	'R1000_DUMP'
0002014e 2a 2a 2a 20 4e 6f 20 52  |*** No R|		.TXT	'*** No R1000 response to DUMP_REGISTERS - probably a hardware error '
00020192 63 6f 75 6c 64 20 6e 6f  |could no|		.TXT	'could not create new TOMBSTONE file '
000201b6 49 4f 50 5f 44 55 4d 50  |IOP_DUMP|		.TXT	'IOP_DUMP1 '
000201c0 53 41 56 45 53 54 41 54  |SAVESTAT|		.TXT	'SAVESTATE '
000201ca 53 41 56 45 44 5f 53 54  |SAVED_ST|		.TXT	'SAVED_STATE file length is not 14 '
000201ec 45 52 52 4f 52 5f 4c 4f  |ERROR_LO|		.TXT	'ERROR_LOG '
000201f6 5f 5f 5f 5f              |____    |		.TXT	'____'
000201fa 5f 5f 5f 5f              |____    |		.TXT	'____'
000201fe 54 4f                    |TO      |		.XXX[0x2]
00020200 4d 42 53 54 4f 4e 45 5f  |MBSTONE_|		.XXX[0x28]
00020208 48 45 41 44 45 52 5f 46  |HEADER_F|
00020210 4f 52 4d 20 6e 6f 74 20  |ORM not |
00020218 31 30 32 34 20 62 79 74  |1024 byt|
00020220 65 73 20 6c 6f 6e 67 20  |es long |
00020228 4e 4f 5f 52 31 4b 5f 44  |NO_R1K_D|		.TXT	'NO_R1K_DUMP '
00020234 44 55 4d 50 5f 52 31 30  |DUMP_R10|		.TXT	'DUMP_R1000'
0002023e 44 55 4d 50 5f 55 44 49  |DUMP_UDI|		.TXT	'DUMP_UDIAG'
00020248 52 45 43 4f              |RECO    |		.TXT	'RECO'
0002024c 56 5f 53 43              |V_SC    |		.TXT	'V_SC'
00020250 52 45 45 4e              |REEN    |		.TXT	'REEN'
00020254 46 52 55 5f              |FRU_    |		.TXT	'FRU_'
00020258 54 5f 53 43              |T_SC    |		.TXT	'T_SC'
0002025c 52 45 45 4e              |REEN    |		.TXT	'REEN'
00020260 31 20                    |1       |		.TXT	'1 '
00020262 55 44 49 41 47 2e 53 41  |UDIAG.SA|		.TXT	'UDIAG.SAVED_STATE '
00020274 75 6e 6b 6e 6f 77 6e 20  |unknown |		.TXT	'unknown invocation option '
0002028e 43 72 61 73 68 53 61 76  |CrashSav|		.TXT	'CrashSave has created tombstone file R1000_DUMP1. '
000202c0 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
000202c4 00 00 00 00              |        |		.CONST	0x0,0x0,0x0,0x0
000202c8 ; --------------------------------------------------------------------------------------
000202c8 ; OMSI PASCAL Function
000202c8 ;    <LVAR -0x004 1(rw)>
000202c8 ;    <LVAR -0x005 1(rw)>
000202c8 ;    <LVAR -0x00e @>
000202c8 ; --------------------------------------------------------------------------------------
000202c8 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
000202cc bf d5                    |        |		CMPA.L	(A5),A7
000202ce 62 06                    |b       |		BHI	0x202d6
000202d0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000202d4 4e 76                    |Nv      |		TRAPV
000202d6 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000202da 48 e7 f1 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
000202de 45 f9 00 01 04 c0        |E       |		LEA.L	HasBoard(diproc_addr: Byte) : Byte,A2
000202e4 72 0f                    |r       |		MOVEQ.L	#0x0f,D1
000202e6 34 3c 01 27              |4< '    |		MOVE.W	#0x127,D2
000202ea 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
000202ec 4e b9 00 02 13 52        |N    R  |		JSR	exp_CLEAR_EXCEPTIONS.FIU()
000202f2 1d 7c 00 01 ff fb        | |      |		MOVE.B	#0x01,(A6-0x5)
000202f8 1d 7c 00 b4 ff fc        | |      |		MOVE.B	#0xb4,(A6-0x4)
000202fe 2f 3a ff c4              |/:      |		MOVE.L	0x202c4,-(A7)
00020302 2f 3a ff bc              |/:      |		MOVE.L	0x202c0,-(A7)
00020306 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
0002030a 4e b9 00 02 13 f8        |N       |		JSR	exp_PREP_WRITE_REG.TYP(Sw_8, &Sr_8_1)
00020310 de c3                    |        |		ADDA.W	D3,A7
00020312 1e ae ff fb              |        |		MOVE.B	(A6-0x5),(A7)
00020316 1f 6e ff fc 00 01        | n      |		MOVE.B	(A6-0x4),(A7+0x1)
0002031c 9e c3                    |        |		SUBA.W	D3,A7
0002031e 20 4f                    | O      |		MOVEA.L	A7,A0
00020320 43 ee ff f2              |C       |		LEA.L	(A6-0xe),A1
00020324 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020326 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020328 51 c8 ff fc              |Q       |		DBF	D0,0x20326
0002032c 42 27                    |B'      |		CLR.B	-(A7)
0002032e 4e b9 00 02 13 be        |N       |		JSR	exp_WRITE_REG.TYP(Sw_2, Sw_8_1, Sw_1)
00020334 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00020338 4e b9 00 02 14 48        |N    H  |		JSR	exp_LOAD_BENIGN_UWORD.TYP()
0002033e 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00020340 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020342 1f 07                    |        |		MOVE.B	D7,-(A7)
00020344 4e 92                    |N       |		JSR	(A2)
00020346 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020348 4a 1f                    |J       |		TST.B	(A7)+
0002034a 67 0e                    |g       |		BEQ	0x2035a
0002034c 1f 07                    |        |		MOVE.B	D7,-(A7)
0002034e 1f 3c 00 ff              | <      |		MOVE.B	#0xff,-(A7)
00020352 4e b9 00 02 14 cc        |N       |		JSR	0x214cc
00020358 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002035a 52 07                    |R       |		ADDQ.B	#0x1,D7
0002035c be 01                    |        |		CMP.B	D1,D7
0002035e 6f e0                    |o       |		BLE	0x20340
00020360 4e b9 00 02 13 1a        |N       |		JSR	exp_INIT_MRU.FIU()
00020366 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00020368 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002036a 1f 07                    |        |		MOVE.B	D7,-(A7)
0002036c 4e 92                    |N       |		JSR	(A2)
0002036e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020370 4a 1f                    |J       |		TST.B	(A7)+
00020372 67 0a                    |g       |		BEQ	0x2037e
00020374 1f 07                    |        |		MOVE.B	D7,-(A7)
00020376 4e b9 00 02 17 8a        |N       |		JSR	0x2178a
0002037c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002037e 52 07                    |R       |		ADDQ.B	#0x1,D7
00020380 be 01                    |        |		CMP.B	D1,D7
00020382 6f e4                    |o       |		BLE	0x20368
00020384 4e b9 00 01 05 b0        |N       |		JSR	FifoInit(void)
0002038a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002038c 4e b9 00 02 14 1a        |N       |		JSR	exp_PREP_RUN.TYP(Sw_2)
00020392 3e 82                    |>       |		MOVE.W	D2,(A7)
00020394 4e b9 00 02 14 86        |N       |		JSR	exp_PREP_RUN.VAL(Sw_2)
0002039a 3e 82                    |>       |		MOVE.W	D2,(A7)
0002039c 4e b9 00 02 18 de        |N       |		JSR	exp_PREP_RUN.IOC(Sw_2)
000203a2 3e 82                    |>       |		MOVE.W	D2,(A7)
000203a4 4e b9 00 02 13 a4        |N       |		JSR	exp_PREP_RUN.SEQ(Sw_2)
000203aa 3e 82                    |>       |		MOVE.W	D2,(A7)
000203ac 4e b9 00 02 12 ec        |N       |		JSR	exp_PREP_RUN.FIU(Sw_2)
000203b2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000203b4 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
000203b6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000203b8 1f 07                    |        |		MOVE.B	D7,-(A7)
000203ba 4e 92                    |N       |		JSR	(A2)
000203bc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000203be 4a 1f                    |J       |		TST.B	(A7)+
000203c0 67 0a                    |g       |		BEQ	0x203cc
000203c2 1f 07                    |        |		MOVE.B	D7,-(A7)
000203c4 4e b9 00 02 16 e0        |N       |		JSR	0x216e0
000203ca 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000203cc 52 07                    |R       |		ADDQ.B	#0x1,D7
000203ce be 01                    |        |		CMP.B	D1,D7
000203d0 6f e4                    |o       |		BLE	0x203b6
000203d2 4e b9 00 02 13 34        |N    4  |		JSR	exp_FREEZE_WORLD.FIU()
000203d8 4e b9 00 02 13 dc        |N       |		JSR	exp_RUN_NORMAL.TYP()
000203de 4e b9 00 02 14 6a        |N    j  |		JSR	exp_RUN_NORMAL.VAL()
000203e4 4e b9 00 02 13 8a        |N       |		JSR	exp_RUN_CHECK.SEQ()
000203ea 4e b9 00 02 18 c4        |N       |		JSR	exp_RUN_CHECK.IOC()
000203f0 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
000203f2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000203f4 1f 07                    |        |		MOVE.B	D7,-(A7)
000203f6 4e 92                    |N       |		JSR	(A2)
000203f8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000203fa 4a 1f                    |J       |		TST.B	(A7)+
000203fc 67 0a                    |g       |		BEQ	0x20408
000203fe 1f 07                    |        |		MOVE.B	D7,-(A7)
00020400 4e b9 00 02 15 92        |N       |		JSR	0x21592
00020406 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020408 52 07                    |R       |		ADDQ.B	#0x1,D7
0002040a be 01                    |        |		CMP.B	D1,D7
0002040c 6f e4                    |o       |		BLE	0x203f2
0002040e 4e b9 00 02 12 d0        |N       |		JSR	exp_RUN_NORMAL.FIU()
00020414 4c df 07 8f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D7+A0+A1+A2
00020418 4e 5e                    |N^      |		UNLK	A6
0002041a 4e 75                    |Nu      |		RTS
0002041c ; --------------------------------------------------------------------------------------
0002041c ; OMSI PASCAL Function
0002041c ; --------------------------------------------------------------------------------------
0002041c 4e 56 ff e8              |NV      |		LINK.W	A6,#0xffe8
00020420 bf d5                    |        |		CMPA.L	(A5),A7
00020422 62 06                    |b       |		BHI	0x2042a
00020424 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020428 4e 76                    |Nv      |		TRAPV
0002042a de fc 00 14              |        |		ADDA.W	#0x14,A7
0002042e 48 e7 81 00              |H       |		MOVEM.L	D7+D0,-(A7)
00020432 70 0f                    |p       |		MOVEQ.L	#0x0f,D0
00020434 4e b9 00 02 13 34        |N    4  |		JSR	exp_FREEZE_WORLD.FIU()
0002043a 4e b9 00 02 18 f8        |N       |		JSR	exp_MF.IOC()
00020440 4e b9 00 02 14 a0        |N       |		JSR	exp_MF.VAL()
00020446 4e b9 00 02 14 34        |N    4  |		JSR	exp_MF.TYP()
0002044c 4e b9 00 02 13 74        |N    t  |		JSR	exp_RESET.SEQ()
00020452 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00020454 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020456 1f 07                    |        |		MOVE.B	D7,-(A7)
00020458 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
0002045e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020460 4a 1f                    |J       |		TST.B	(A7)+
00020462 67 0a                    |g       |		BEQ	0x2046e
00020464 1f 07                    |        |		MOVE.B	D7,-(A7)
00020466 4e b9 00 02 16 2c        |N    ,  |		JSR	0x2162c
0002046c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002046e 52 07                    |R       |		ADDQ.B	#0x1,D7
00020470 be 00                    |        |		CMP.B	D0,D7
00020472 6f e0                    |o       |		BLE	0x20454
00020474 4e b9 00 02 13 06        |N       |		JSR	exp_MF.FIU()
0002047a 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
0002047c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002047e 1f 07                    |        |		MOVE.B	D7,-(A7)
00020480 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
00020486 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020488 4a 1f                    |J       |		TST.B	(A7)+
0002048a 67 0a                    |g       |		BEQ	0x20496
0002048c 1f 07                    |        |		MOVE.B	D7,-(A7)
0002048e 4e b9 00 02 18 36        |N    6  |		JSR	0x21836
00020494 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020496 52 07                    |R       |		ADDQ.B	#0x1,D7
00020498 be 00                    |        |		CMP.B	D0,D7
0002049a 6f e0                    |o       |		BLE	0x2047c
0002049c 4c df 00 81              |L       |		MOVEM.L	(A7)+,D0+D7
000204a0 4e 5e                    |N^      |		UNLK	A6
000204a2 4e 75                    |Nu      |		RTS
000204a4 ; --------------------------------------------------------------------------------------
000204a4 ; OMSI PASCAL Function
000204a4 ;    <LVAR  0x00c 4(r)>
000204a4 ;    <LVAR  0x008 4(r)>
000204a4 ;    <LVAR -0x004 @>
000204a4 ; --------------------------------------------------------------------------------------
000204a4 4e 56 ff ac              |NV      |		LINK.W	A6,#0xffac
000204a8 bf d5                    |        |		CMPA.L	(A5),A7
000204aa 62 06                    |b       |		BHI	0x204b2
000204ac 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000204b0 4e 76                    |Nv      |		TRAPV
000204b2 de fc 00 48              |   H    |		ADDA.W	#0x48,A7
000204b6 48 e7 c3 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7)
000204ba 45 f9 00 02 23 34        |E   #4  |		LEA.L	0x22334,A2
000204c0 47 f9 00 02 23 4e        |G   #N  |		LEA.L	0x2234e,A3
000204c6 49 f9 00 02 23 36        |I   #6  |		LEA.L	0x22336,A4
000204cc 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000204d0 53 97                    |S       |		SUBQ.L	#0x1,(A7)
000204d2 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000204d4 bc 97                    |        |		CMP.L	(A7),D6
000204d6 6e 00 00 be              |n       |		BGT	0x20596
000204da 41 f9 00 02 23 28        |A   #(  |		LEA.L	0x22328,A0
000204e0 2f 08                    |/       |		MOVE.L	A0,-(A7)
000204e2 42 67                    |Bg      |		CLR.W	-(A7)
000204e4 4e b9 00 01 02 3c        |N    <  |		JSR	KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word)
000204ea 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000204ec 4a 53                    |JS      |		TST.W	(A3)
000204ee 67 18                    |g       |		BEQ	0x20508
000204f0 42 80                    |B       |		CLR.L	D0
000204f2 30 14                    |0       |		MOVE.W	(A4),D0
000204f4 42 81                    |B       |		CLR.L	D1
000204f6 32 13                    |2       |		MOVE.W	(A3),D1
000204f8 d2 80                    |        |		ADD.L	D0,D1
000204fa 38 81                    |8       |		MOVE.W	D1,(A4)
000204fc 4a 41                    |JA      |		TST.W	D1
000204fe 66 08                    |f       |		BNE	0x20508
00020500 42 80                    |B       |		CLR.L	D0
00020502 30 12                    |0       |		MOVE.W	(A2),D0
00020504 52 80                    |R       |		ADDQ.L	#0x1,D0
00020506 34 80                    |4       |		MOVE.W	D0,(A2)
00020508 42 80                    |B       |		CLR.L	D0
0002050a 30 12                    |0       |		MOVE.W	(A2),D0
0002050c 42 81                    |B       |		CLR.L	D1
0002050e 32 39 00 02 23 4c        |29  #L  |		MOVE.W	0x2234c,D1
00020514 d2 80                    |        |		ADD.L	D0,D1
00020516 34 81                    |4       |		MOVE.W	D1,(A2)
00020518 2e 3c ff ff fc 18        |.<      |		MOVE.L	#0xfffffc18,D7
0002051e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020522 43 f9 00 02 23 38        |C   #8  |		LEA.L	0x22338,A1
00020528 2f 09                    |/       |		MOVE.L	A1,-(A7)
0002052a 42 67                    |Bg      |		CLR.W	-(A7)
0002052c 48 50                    |HP      |		PEA.L	(A0)
0002052e 4e b9 00 01 02 3e        |N    >  |		JSR	KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool)
00020534 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020538 52 87                    |R       |		ADDQ.L	#0x1,D7
0002053a 4a 10                    |J       |		TST.B	(A0)
0002053c 66 04                    |f       |		BNE	0x20542
0002053e 4a 87                    |J       |		TST.L	D7
00020540 66 dc                    |f       |		BNE	0x2051e
00020542 4a 10                    |J       |		TST.B	(A0)
00020544 67 4a                    |gJ      |		BEQ	0x20590
00020546 2f 39 00 02 23 60        |/9  #`  |		MOVE.L	0x22360,-(A7)
0002054c 41 f9 00 02 1b 1e        |A       |		LEA.L	0x21b1e,A0
00020552 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020554 3f 3c 04 00              |?<      |		MOVE.W	#0x400,-(A7)
00020558 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
0002055e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020560 2e b9 00 02 1b 1a        |.       |		MOVE.L	0x21b1a,(A7)
00020566 3f 39 00 02 1f 22        |?9   "  |		MOVE.W	0x21f22,-(A7)
0002056c 42 67                    |Bg      |		CLR.W	-(A7)
0002056e 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020572 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020576 2f 39 00 02 1f 1e        |/9      |		MOVE.L	0x21f1e,-(A7)
0002057c 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020580 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00020586 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002058a 52 79 00 02 1f 22        |Ry   "  |		ADDQ.W	#0x1,0x21f22
00020590 52 86                    |R       |		ADDQ.L	#0x1,D6
00020592 68 00 ff 40              |h  @    |		BVC	0x204d4
00020596 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020598 4c df 1f c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4
0002059c 4e 5e                    |N^      |		UNLK	A6
0002059e 4e 75                    |Nu      |		RTS
000205a0 ; --------------------------------------------------------------------------------------
000205a0 ; OMSI PASCAL Function
000205a0 ;    <LVAR  0x00a 2(r)>
000205a0 ; --------------------------------------------------------------------------------------
000205a0 4e 56 ff fc              |NV      |		LINK.W	A6,#0xfffc
000205a4 bf d5                    |        |		CMPA.L	(A5),A7
000205a6 62 06                    |b       |		BHI	0x205ae
000205a8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000205ac 4e 76                    |Nv      |		TRAPV
000205ae de fc 00 04              |        |		ADDA.W	#0x4,A7
000205b2 33 fc 04 00 00 02 23 28  |3     #(|		MOVE.W	#0x400,0x22328
000205ba 42 79 00 02 23 2a        |By  #*  |		CLR.W	0x2232a
000205c0 42 79 00 02 23 2c        |By  #,  |		CLR.W	0x2232c
000205c6 33 ee 00 0a 00 02 23 2e  |3     #.|		MOVE.W	(A6+0xa),0x2232e
000205ce 42 79 00 02 23 30        |By  #0  |		CLR.W	0x22330
000205d4 42 79 00 02 23 32        |By  #2  |		CLR.W	0x22332
000205da 42 79 00 02 23 34        |By  #4  |		CLR.W	0x22334
000205e0 42 79 00 02 23 36        |By  #6  |		CLR.W	0x22336
000205e6 42 79 00 02 23 48        |By  #H  |		CLR.W	0x22348
000205ec 42 79 00 02 23 4a        |By  #J  |		CLR.W	0x2234a
000205f2 42 79 00 02 23 4c        |By  #L  |		CLR.W	0x2234c
000205f8 42 79 00 02 23 4e        |By  #N  |		CLR.W	0x2234e
000205fe 4e 5e                    |N^      |		UNLK	A6
00020600 4e 75                    |Nu      |		RTS
00020602 ; --------------------------------------------------------------------------------------
00020602 ; OMSI PASCAL Function
00020602 ;    <LVAR  0x008 4(r)>
00020602 ; --------------------------------------------------------------------------------------
00020602 4e 56 ff 90              |NV      |		LINK.W	A6,#0xff90
00020606 bf d5                    |        |		CMPA.L	(A5),A7
00020608 62 06                    |b       |		BHI	0x20610
0002060a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002060e 4e 76                    |Nv      |		TRAPV
00020610 de fc 00 6c              |   l    |		ADDA.W	#0x6c,A7
00020614 48 e7 81 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D0,-(A7)
00020618 45 f9 00 02 1f 22        |E    "  |		LEA.L	0x21f22,A2
0002061e 34 bc 00 12              |4       |		MOVE.W	#0x12,(A2)
00020622 33 d2 00 02 1f 2c        |3    ,  |		MOVE.W	(A2),0x21f2c
00020628 7e 10                    |~       |		MOVEQ.L	#0x10,D7
0002062a 48 78 03 00              |Hx      |		PEA.L	0x300
0002062e 4e ba ff 70              |N  p    |		JSR	0x205a0
00020632 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020634 33 fc 00 40 00 02 23 4e  |3  @  #N|		MOVE.W	#0x40,0x2234e
0002063c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020640 2f 07                    |/       |		MOVE.L	D7,-(A7)
00020642 48 50                    |HP      |		PEA.L	(A0)
00020644 4e ba fe 5e              |N  ^    |		JSR	0x204a4
00020648 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002064a 4a 10                    |J       |		TST.B	(A0)
0002064c 66 32                    |f2      |		BNE	0x20680
0002064e 9e fc 00 44              |   D    |		SUBA.W	#0x44,A7
00020652 20 4f                    | O      |		MOVEA.L	A7,A0
00020654 43 fa fa f8              |C       |		LEA.L	0x2014e,A1
00020658 70 42                    |pB      |		MOVEQ.L	#0x42,D0
0002065a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002065c 51 c8 ff fc              |Q       |		DBF	D0,0x2065a
00020660 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020662 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020666 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002066a 3f 3c 00 43              |?< C    |		MOVE.W	#0x43,-(A7)
0002066e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020674 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020676 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002067c de fc 00 48              |   H    |		ADDA.W	#0x48,A7
00020680 4c df 07 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0+A1+A2
00020684 4e 5e                    |N^      |		UNLK	A6
00020686 4e 75                    |Nu      |		RTS
00020688 ; --------------------------------------------------------------------------------------
00020688 ; OMSI PASCAL Function
00020688 ;    <LVAR  0x008 4(r)>
00020688 ;    <LVAR -0x006 4(rw)>
00020688 ;    <LVAR -0x00a 4(rw)>
00020688 ; --------------------------------------------------------------------------------------
00020688 4e 56 ff b0              |NV      |		LINK.W	A6,#0xffb0		; Spelunked
0002068c bf d5                    |        |		CMPA.L	(A5),A7
0002068e 62 06                    |b       |		BHI	0x20696
00020690 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020694 4e 76                    |Nv      |		TRAPV
00020696 de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
0002069a 48 e7 9f e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D4+D3+D0,-(A7)
0002069e 43 ee ff f6              |C       |		LEA.L	(A6-0xa),A1
000206a2 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000206a6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000206a8 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000206ae 4a 1f                    |J       |		TST.B	(A7)+
000206b0 67 0e                    |g       |		BEQ	0x206c0
000206b2 22 bc 00 00 08 00        |"       |		MOVE.L	#0x800,(A1)
000206b8 24 bc 00 00 00 04        |$       |		MOVE.L	#0x4,(A2)
000206be 60 0c                    |`       |		BRA	0x206cc
000206c0 22 bc 00 00 10 00        |"       |		MOVE.L	#0x1000,(A1)
000206c6 24 bc 00 00 00 08        |$       |		MOVE.L	#0x8,(A2)
000206cc 48 78 04 00              |Hx      |		PEA.L	0x400
000206d0 4e ba fe ce              |N       |		JSR	0x205a0
000206d4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000206d6 33 fc 00 10 00 02 23 4c  |3     #L|		MOVE.W	#0x10,0x2234c
000206de 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000206e0 7a 0c                    |z       |		MOVEQ.L	#0x0c,D5
000206e2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000206e4 1f 05                    |        |		MOVE.B	D5,-(A7)
000206e6 4e b9 00 01 04 c0        |N       |		JSR	HasBoard(diproc_addr: Byte) : Byte
000206ec 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000206ee 4a 1f                    |J       |		TST.B	(A7)+
000206f0 67 4c                    |gL      |		BEQ	0x2073e
000206f2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000206f4 53 97                    |S       |		SUBQ.L	#0x1,(A7)
000206f6 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000206f8 be 97                    |        |		CMP.L	(A7),D7
000206fa 6e 40                    |n@      |		BGT	0x2073c
000206fc 42 79 00 02 23 30        |By  #0  |		CLR.W	0x22330
00020702 20 06                    |        |		MOVE.L	D6,D0
00020704 e5 80                    |        |		ASL.L	#0x2,D0
00020706 d0 87                    |        |		ADD.L	D7,D0
00020708 e9 80                    |        |		ASL.L	#0x4,D0
0002070a 33 c0 00 02 23 32        |3   #2  |		MOVE.W	D0,0x22332
00020710 42 79 00 02 23 34        |By  #4  |		CLR.W	0x22334
00020716 42 79 00 02 23 36        |By  #6  |		CLR.W	0x22336
0002071c 28 11                    |(       |		MOVE.L	(A1),D4
0002071e 26 3c 00 00 00 80        |&<      |		MOVE.L	#0x80,D3
00020724 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
0002072a 2f 04                    |/       |		MOVE.L	D4,-(A7)
0002072c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020730 48 50                    |HP      |		PEA.L	(A0)
00020732 4e ba fd 70              |N  p    |		JSR	0x204a4
00020736 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020738 52 87                    |R       |		ADDQ.L	#0x1,D7
0002073a 68 bc                    |h       |		BVC	0x206f8
0002073c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002073e 52 86                    |R       |		ADDQ.L	#0x1,D6
00020740 52 05                    |R       |		ADDQ.B	#0x1,D5
00020742 0c 05 00 0f              |        |		CMPI.B	#0x0f,D5
00020746 6f 9a                    |o       |		BLE	0x206e2
00020748 4c df 07 f9              |L       |		MOVEM.L	(A7)+,D0+D3+D4+D5+D6+D7+A0+A1+A2
0002074c 4e 5e                    |N^      |		UNLK	A6
0002074e 4e 75                    |Nu      |		RTS
00020750 ; --------------------------------------------------------------------------------------
00020750 ; OMSI PASCAL Function
00020750 ; --------------------------------------------------------------------------------------
00020750 4e 56 ff ce              |NV      |		LINK.W	A6,#0xffce
00020754 bf d5                    |        |		CMPA.L	(A5),A7
00020756 62 06                    |b       |		BHI	0x2075e
00020758 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002075c 4e 76                    |Nv      |		TRAPV
0002075e de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00020762 48 e7 f8 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7)
00020766 43 f9 00 01 02 38        |C    8  |		LEA.L	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word),A1
0002076c 45 f9 00 02 23 54        |E   #T  |		LEA.L	0x22354,A2
00020772 47 f9 00 02 23 5c        |G   #\  |		LEA.L	0x2235c,A3
00020778 74 0a                    |t       |		MOVEQ.L	#0x0a,D2
0002077a 76 04                    |v       |		MOVEQ.L	#0x04,D3
0002077c 78 02                    |x       |		MOVEQ.L	#0x02,D4
0002077e 48 78 04 00              |Hx      |		PEA.L	0x400
00020782 41 f9 00 02 23 50        |A   #P  |		LEA.L	0x22350,A0
00020788 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002078a 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002078c 4e 91                    |N       |		JSR	(A1)
0002078e de c2                    |        |		ADDA.W	D2,A7
00020790 48 78 04 04              |Hx      |		PEA.L	0x404
00020794 20 4a                    | J      |		MOVEA.L	A2,A0
00020796 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020798 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002079a 4e 91                    |N       |		JSR	(A1)
0002079c de c2                    |        |		ADDA.W	D2,A7
0002079e 48 78 04 06              |Hx      |		PEA.L	0x406
000207a2 41 f9 00 02 23 56        |A   #V  |		LEA.L	0x22356,A0
000207a8 2f 08                    |/       |		MOVE.L	A0,-(A7)
000207aa 3f 04                    |?       |		MOVE.W	D4,-(A7)
000207ac 4e 91                    |N       |		JSR	(A1)
000207ae de c2                    |        |		ADDA.W	D2,A7
000207b0 48 78 04 08              |Hx      |		PEA.L	0x408
000207b4 41 f9 00 02 23 58        |A   #X  |		LEA.L	0x22358,A0
000207ba 2f 08                    |/       |		MOVE.L	A0,-(A7)
000207bc 3f 03                    |?       |		MOVE.W	D3,-(A7)
000207be 4e 91                    |N       |		JSR	(A1)
000207c0 de c2                    |        |		ADDA.W	D2,A7
000207c2 48 78 04 0c              |Hx      |		PEA.L	0x40c
000207c6 20 4b                    | K      |		MOVEA.L	A3,A0
000207c8 2f 08                    |/       |		MOVE.L	A0,-(A7)
000207ca 3f 03                    |?       |		MOVE.W	D3,-(A7)
000207cc 4e 91                    |N       |		JSR	(A1)
000207ce de c2                    |        |		ADDA.W	D2,A7
000207d0 70 00                    |p       |		MOVEQ.L	#0x00,D0
000207d2 c0 d2                    |        |		MULU.W	(A2),D0
000207d4 42 81                    |B       |		CLR.L	D1
000207d6 32 00                    |2       |		MOVE.W	D0,D1
000207d8 d2 93                    |        |		ADD.L	(A3),D1
000207da 23 c1 00 02 23 60        |#   #`  |		MOVE.L	D1,0x22360
000207e0 4c df 0f 1f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3
000207e4 4e 5e                    |N^      |		UNLK	A6
000207e6 4e 75                    |Nu      |		RTS
000207e8 ; --------------------------------------------------------------------------------------
000207e8 ; OMSI PASCAL Function
000207e8 ;    <LVAR -0x006 @>
000207e8 ;    <LVAR -0x008 @ 1(r)>
000207e8 ;    <LVAR -0x00c @ 4(rw)>
000207e8 ; --------------------------------------------------------------------------------------
000207e8 4e 56 ff 8a              |NV      |		LINK.W	A6,#0xff8a
000207ec bf d5                    |        |		CMPA.L	(A5),A7
000207ee 62 06                    |b       |		BHI	0x207f6
000207f0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000207f4 4e 76                    |Nv      |		TRAPV
000207f6 de fc 00 62              |   b    |		ADDA.W	#0x62,A7
000207fa 48 e7 f9 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
000207fe 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
00020802 47 ee ff f4              |G       |		LEA.L	(A6-0xc),A3
00020806 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020808 74 14                    |t       |		MOVEQ.L	#0x14,D2
0002080a 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
0002080c 78 10                    |x       |		MOVEQ.L	#0x10,D4
0002080e 7e 04                    |~       |		MOVEQ.L	#0x04,D7
00020810 41 fa f9 3c              |A  <    |		LEA.L	0x2014e,A0
00020814 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020816 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020818 51 c8 ff fc              |Q       |		DBF	D0,0x20816
0002081c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002081e 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020822 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020824 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020826 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002082c 2e 87                    |.       |		MOVE.L	D7,(A7)
0002082e 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020834 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020836 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002083c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002083e 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020840 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020842 2e 8c                    |.       |		MOVE.L	A4,(A7)
00020844 42 27                    |B'      |		CLR.B	-(A7)
00020846 42 27                    |B'      |		CLR.B	-(A7)
00020848 48 78 00 00              |Hx      |		PEA.L	0x0
0002084c 48 52                    |HR      |		PEA.L	(A2)
0002084e 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00020852 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020858 de c2                    |        |		ADDA.W	D2,A7
0002085a 4a 12                    |J       |		TST.B	(A2)
0002085c 66 18                    |f       |		BNE	0x20876
0002085e 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020862 42 27                    |B'      |		CLR.B	-(A7)
00020864 48 78 00 01              |Hx      |		PEA.L	0x1
00020868 48 52                    |HR      |		PEA.L	(A2)
0002086a 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
0002086e 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020874 de c4                    |        |		ADDA.W	D4,A7
00020876 26 8c                    |&       |		MOVE.L	A4,(A3)
00020878 53 87                    |S       |		SUBQ.L	#0x1,D7
0002087a 41 fa f8 d2              |A       |		LEA.L	0x2014e,A0
0002087e 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020880 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020882 51 c8 ff fc              |Q       |		DBF	D0,0x20880
00020886 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020888 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002088c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002088e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020890 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020896 2e 87                    |.       |		MOVE.L	D7,(A7)
00020898 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
0002089e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208a0 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000208a6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000208a8 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000208aa 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000208ac 2e 8c                    |.       |		MOVE.L	A4,(A7)
000208ae 42 27                    |B'      |		CLR.B	-(A7)
000208b0 42 27                    |B'      |		CLR.B	-(A7)
000208b2 48 78 00 00              |Hx      |		PEA.L	0x0
000208b6 48 52                    |HR      |		PEA.L	(A2)
000208b8 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000208bc 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000208c2 de c2                    |        |		ADDA.W	D2,A7
000208c4 4a 12                    |J       |		TST.B	(A2)
000208c6 66 14                    |f       |		BNE	0x208dc
000208c8 1f 01                    |        |		MOVE.B	D1,-(A7)
000208ca 1f 01                    |        |		MOVE.B	D1,-(A7)
000208cc 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000208ce 48 52                    |HR      |		PEA.L	(A2)
000208d0 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000208d4 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
000208da de c4                    |        |		ADDA.W	D4,A7
000208dc 48 53                    |HS      |		PEA.L	(A3)
000208de 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000208e4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208e6 26 8c                    |&       |		MOVE.L	A4,(A3)
000208e8 be 81                    |        |		CMP.L	D1,D7
000208ea 66 8c                    |f       |		BNE	0x20878
000208ec 2f 13                    |/       |		MOVE.L	(A3),-(A7)
000208ee 1f 01                    |        |		MOVE.B	D1,-(A7)
000208f0 1f 01                    |        |		MOVE.B	D1,-(A7)
000208f2 48 78 00 32              |Hx 2    |		PEA.L	0x32
000208f6 48 52                    |HR      |		PEA.L	(A2)
000208f8 48 79 00 02 1b 1a        |Hy      |		PEA.L	0x21b1a
000208fe 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020904 de c2                    |        |		ADDA.W	D2,A7
00020906 4a 12                    |J       |		TST.B	(A2)
00020908 67 34                    |g4      |		BEQ	0x2093e
0002090a 9e fc 00 24              |   $    |		SUBA.W	#0x24,A7
0002090e 20 4f                    | O      |		MOVEA.L	A7,A0
00020910 43 fa f8 80              |C       |		LEA.L	0x20192,A1
00020914 70 22                    |p"      |		MOVEQ.L	#0x22,D0
00020916 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020918 51 c8 ff fc              |Q       |		DBF	D0,0x20916
0002091c 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00020920 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020922 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020926 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020928 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
0002092c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020932 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020934 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002093a de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
0002093e 48 53                    |HS      |		PEA.L	(A3)
00020940 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020946 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020948 4c df 1f 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4
0002094c 4e 5e                    |N^      |		UNLK	A6
0002094e 4e 75                    |Nu      |		RTS
00020950 ; --------------------------------------------------------------------------------------
00020950 ; OMSI PASCAL Function
00020950 ;    <LVAR -0x006 @ 4(r)>
00020950 ;    <LVAR -0x008 @>
00020950 ; --------------------------------------------------------------------------------------
00020950 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
00020954 bf d5                    |        |		CMPA.L	(A5),A7
00020956 62 06                    |b       |		BHI	0x2095e
00020958 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002095c 4e 76                    |Nv      |		TRAPV
0002095e de fc 00 4a              |   J    |		ADDA.W	#0x4a,A7
00020962 48 e7 f8 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7)
00020966 45 f9 00 02 1f 1e        |E       |		LEA.L	0x21f1e,A2
0002096c 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
00020970 49 ee ff fa              |I       |		LEA.L	(A6-0x6),A4
00020974 72 02                    |r       |		MOVEQ.L	#0x02,D1
00020976 74 10                    |t       |		MOVEQ.L	#0x10,D2
00020978 76 01                    |v       |		MOVEQ.L	#0x01,D3
0002097a 38 3c 02 00              |8<      |		MOVE.W	#0x200,D4
0002097e 33 c3 00 02 1f 28        |3    (  |		MOVE.W	D3,0x21f28
00020984 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020988 20 4f                    | O      |		MOVEA.L	A7,A0
0002098a 43 fa f8 2a              |C  *    |		LEA.L	0x201b6,A1
0002098e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020990 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020992 51 c8 ff fc              |Q       |		DBF	D0,0x20990
00020996 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020998 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002099c 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002099e 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
000209a2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000209a8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000209aa 42 17                    |B       |		CLR.B	(A7)
000209ac 1f 01                    |        |		MOVE.B	D1,-(A7)
000209ae 48 78 00 00              |Hx      |		PEA.L	0x0
000209b2 48 53                    |HS      |		PEA.L	(A3)
000209b4 48 54                    |HT      |		PEA.L	(A4)
000209b6 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000209bc de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000209c0 20 54                    | T      |		MOVEA.L	(A4),A0
000209c2 13 e8 00 3a 00 02 23 24  |   :  #$|		MOVE.B	(A0+0x3a),0x22324
000209ca 13 e8 00 3b 00 02 23 25  |   ;  #%|		MOVE.B	(A0+0x3b),0x22325
000209d2 13 e8 00 3c 00 02 23 26  |   <  #&|		MOVE.B	(A0+0x3c),0x22326
000209da 13 e8 00 3d 00 02 23 27  |   =  #'|		MOVE.B	(A0+0x3d),0x22327
000209e2 2f 14                    |/       |		MOVE.L	(A4),-(A7)
000209e4 3f 03                    |?       |		MOVE.W	D3,-(A7)
000209e6 42 67                    |Bg      |		CLR.W	-(A7)
000209e8 3f 04                    |?       |		MOVE.W	D4,-(A7)
000209ea 1f 01                    |        |		MOVE.B	D1,-(A7)
000209ec 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000209ee 48 53                    |HS      |		PEA.L	(A3)
000209f0 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
000209f6 de c2                    |        |		ADDA.W	D2,A7
000209f8 2e b9 00 02 1b 1a        |.       |		MOVE.L	0x21b1a,(A7)
000209fe 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020a00 42 67                    |Bg      |		CLR.W	-(A7)
00020a02 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020a04 1f 01                    |        |		MOVE.B	D1,-(A7)
00020a06 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020a08 48 53                    |HS      |		PEA.L	(A3)
00020a0a 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00020a10 de c2                    |        |		ADDA.W	D2,A7
00020a12 2e 94                    |.       |		MOVE.L	(A4),(A7)
00020a14 3f 3c 00 3e              |?< >    |		MOVE.W	#0x3e,-(A7)
00020a18 42 67                    |Bg      |		CLR.W	-(A7)
00020a1a 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020a1c 1f 01                    |        |		MOVE.B	D1,-(A7)
00020a1e 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020a20 48 53                    |HS      |		PEA.L	(A3)
00020a22 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020a28 de c2                    |        |		ADDA.W	D2,A7
00020a2a 2e b9 00 02 1b 1a        |.       |		MOVE.L	0x21b1a,(A7)
00020a30 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a32 42 67                    |Bg      |		CLR.W	-(A7)
00020a34 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020a36 1f 01                    |        |		MOVE.B	D1,-(A7)
00020a38 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020a3a 48 53                    |HS      |		PEA.L	(A3)
00020a3c 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00020a42 de c2                    |        |		ADDA.W	D2,A7
00020a44 2e 94                    |.       |		MOVE.L	(A4),(A7)
00020a46 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
00020a4a 42 67                    |Bg      |		CLR.W	-(A7)
00020a4c 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020a4e 1f 01                    |        |		MOVE.B	D1,-(A7)
00020a50 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020a52 48 53                    |HS      |		PEA.L	(A3)
00020a54 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020a5a de c2                    |        |		ADDA.W	D2,A7
00020a5c 2e b9 00 02 1b 1a        |.       |		MOVE.L	0x21b1a,(A7)
00020a62 3f 3c 00 03              |?<      |		MOVE.W	#0x3,-(A7)
00020a66 42 67                    |Bg      |		CLR.W	-(A7)
00020a68 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020a6a 1f 01                    |        |		MOVE.B	D1,-(A7)
00020a6c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020a6e 48 53                    |HS      |		PEA.L	(A3)
00020a70 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00020a76 de fc 00 12              |        |		ADDA.W	#0x12,A7
00020a7a 42 17                    |B       |		CLR.B	(A7)
00020a7c 1f 03                    |        |		MOVE.B	D3,-(A7)
00020a7e 48 78 00 01              |Hx      |		PEA.L	0x1
00020a82 48 53                    |HS      |		PEA.L	(A3)
00020a84 48 54                    |HT      |		PEA.L	(A4)
00020a86 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020a8c de c2                    |        |		ADDA.W	D2,A7
00020a8e 4c df 1f 1f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3+A4
00020a92 4e 5e                    |N^      |		UNLK	A6
00020a94 4e 75                    |Nu      |		RTS
00020a96 ; --------------------------------------------------------------------------------------
00020a96 ; OMSI PASCAL Function
00020a96 ;    <LVAR  0x008 4(r)>
00020a96 ;    <LVAR -0x002 @>
00020a96 ;    <LVAR -0x006 @ 4(r)>
00020a96 ;    <LVAR -0x008 @>
00020a96 ; --------------------------------------------------------------------------------------
00020a96 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00020a9a bf d5                    |        |		CMPA.L	(A5),A7
00020a9c 62 06                    |b       |		BHI	0x20aa4
00020a9e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020aa2 4e 76                    |Nv      |		TRAPV
00020aa4 de fc 00 68              |   h    |		ADDA.W	#0x68,A7
00020aa8 48 e7 fd f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7)
00020aac 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
00020ab0 49 ee ff fa              |I       |		LEA.L	(A6-0x6),A4
00020ab4 72 02                    |r       |		MOVEQ.L	#0x02,D1
00020ab6 74 01                    |t       |		MOVEQ.L	#0x01,D2
00020ab8 76 14                    |v       |		MOVEQ.L	#0x14,D3
00020aba 78 0e                    |x       |		MOVEQ.L	#0x0e,D4
00020abc 7a 10                    |z       |		MOVEQ.L	#0x10,D5
00020abe 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020ac2 20 4f                    | O      |		MOVEA.L	A7,A0
00020ac4 43 fa f6 fa              |C       |		LEA.L	0x201c0,A1
00020ac8 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020aca 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020acc 51 c8 ff fc              |Q       |		DBF	D0,0x20aca
00020ad0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020ad2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020ad6 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020ad8 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00020adc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020ae2 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00020ae6 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00020aec 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020aee 1e 81                    |        |		MOVE.B	D1,(A7)
00020af0 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
00020af4 4e b9 00 01 03 b0        |N       |		JSR	PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00020afa de c3                    |        |		ADDA.W	D3,A7
00020afc 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
00020b00 42 27                    |B'      |		CLR.B	-(A7)
00020b02 1f 01                    |        |		MOVE.B	D1,-(A7)
00020b04 48 78 00 00              |Hx      |		PEA.L	0x0
00020b08 48 53                    |HS      |		PEA.L	(A3)
00020b0a 48 54                    |HT      |		PEA.L	(A4)
00020b0c 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020b12 de c3                    |        |		ADDA.W	D3,A7
00020b14 20 54                    | T      |		MOVEA.L	(A4),A0
00020b16 30 28 00 20              |0(      |		MOVE.W	(A0+0x20),D0
00020b1a b0 44                    | D      |		CMP.W	D4,D0
00020b1c 67 32                    |g2      |		BEQ	0x20b50
00020b1e 9e fc 00 22              |   "    |		SUBA.W	#0x22,A7
00020b22 22 4f                    |"O      |		MOVEA.L	A7,A1
00020b24 45 fa f6 a4              |E       |		LEA.L	0x201ca,A2
00020b28 70 20                    |p       |		MOVEQ.L	#0x20,D0
00020b2a 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020b2c 51 c8 ff fc              |Q       |		DBF	D0,0x20b2a
00020b30 1f 04                    |        |		MOVE.B	D4,-(A7)
00020b32 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020b34 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020b38 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020b3a 3f 3c 00 21              |?< !    |		MOVE.W	#0x21,-(A7)
00020b3e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020b44 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020b46 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020b4c de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00020b50 30 28 00 20              |0(      |		MOVE.W	(A0+0x20),D0
00020b54 53 40                    |S@      |		SUBQ.W	#0x1,D0
00020b56 48 c0                    |H       |		EXTW.L	D0
00020b58 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020b5a 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020b5c be 97                    |        |		CMP.L	(A7),D7
00020b5e 6e 4a                    |nJ      |		BGT	0x20baa
00020b60 2f 14                    |/       |		MOVE.L	(A4),-(A7)
00020b62 3f 07                    |?       |		MOVE.W	D7,-(A7)
00020b64 42 67                    |Bg      |		CLR.W	-(A7)
00020b66 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020b6a 1f 01                    |        |		MOVE.B	D1,-(A7)
00020b6c 2f 39 00 02 1f 1e        |/9      |		MOVE.L	0x21f1e,-(A7)
00020b72 48 53                    |HS      |		PEA.L	(A3)
00020b74 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020b7a de c5                    |        |		ADDA.W	D5,A7
00020b7c 2e b9 00 02 1b 1a        |.       |		MOVE.L	0x21b1a,(A7)
00020b82 3f 39 00 02 1f 22        |?9   "  |		MOVE.W	0x21f22,-(A7)
00020b88 42 67                    |Bg      |		CLR.W	-(A7)
00020b8a 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020b8e 1f 01                    |        |		MOVE.B	D1,-(A7)
00020b90 2f 39 00 02 1f 1e        |/9      |		MOVE.L	0x21f1e,-(A7)
00020b96 48 53                    |HS      |		PEA.L	(A3)
00020b98 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00020b9e de c3                    |        |		ADDA.W	D3,A7
00020ba0 52 79 00 02 1f 22        |Ry   "  |		ADDQ.W	#0x1,0x21f22
00020ba6 52 87                    |R       |		ADDQ.L	#0x1,D7
00020ba8 68 b2                    |h       |		BVC	0x20b5c
00020baa 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020bac 42 17                    |B       |		CLR.B	(A7)
00020bae 1f 02                    |        |		MOVE.B	D2,-(A7)
00020bb0 48 78 00 01              |Hx      |		PEA.L	0x1
00020bb4 48 53                    |HS      |		PEA.L	(A3)
00020bb6 48 54                    |HT      |		PEA.L	(A4)
00020bb8 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020bbe de c5                    |        |		ADDA.W	D5,A7
00020bc0 4c df 1f bf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3+A4
00020bc4 4e 5e                    |N^      |		UNLK	A6
00020bc6 4e 75                    |Nu      |		RTS
00020bc8 ; --------------------------------------------------------------------------------------
00020bc8 ; OMSI PASCAL Function
00020bc8 ;    <LVAR -0x004 @ 1(r)>
00020bc8 ;    <LVAR -0x008 @ 4(r)>
00020bc8 ;    <LVAR -0x405 1(r)>
00020bc8 ;    <LVAR -0x406 2(r)>
00020bc8 ;    <LVAR -0x408 @>
00020bc8 ; --------------------------------------------------------------------------------------
00020bc8 4e 56 fb ba              |NV      |		LINK.W	A6,#0xfbba
00020bcc bf d5                    |        |		CMPA.L	(A5),A7
00020bce 62 06                    |b       |		BHI	0x20bd6
00020bd0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020bd4 4e 76                    |Nv      |		TRAPV
00020bd6 de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00020bda 48 e7 e0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D2+D1+D0,-(A7)
00020bde 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
00020be2 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
00020be6 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020be8 74 10                    |t       |		MOVEQ.L	#0x10,D2
00020bea 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020bee 20 4f                    | O      |		MOVEA.L	A7,A0
00020bf0 43 fa f5 fa              |C       |		LEA.L	0x201ec,A1
00020bf4 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020bf6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020bf8 51 c8 ff fc              |Q       |		DBF	D0,0x20bf6
00020bfc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020bfe 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020c02 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020c04 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00020c08 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020c0e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020c10 42 17                    |B       |		CLR.B	(A7)
00020c12 1f 01                    |        |		MOVE.B	D1,-(A7)
00020c14 48 78 00 00              |Hx      |		PEA.L	0x0
00020c18 48 52                    |HR      |		PEA.L	(A2)
00020c1a 48 53                    |HS      |		PEA.L	(A3)
00020c1c 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020c22 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00020c26 4a 12                    |J       |		TST.B	(A2)
00020c28 66 64                    |fd      |		BNE	0x20c8e
00020c2a 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020c2c 42 67                    |Bg      |		CLR.W	-(A7)
00020c2e 42 67                    |Bg      |		CLR.W	-(A7)
00020c30 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020c34 1f 01                    |        |		MOVE.B	D1,-(A7)
00020c36 41 ee fb f8              |A       |		LEA.L	(A6-0x408),A0
00020c3a 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020c3c 48 52                    |HR      |		PEA.L	(A2)
00020c3e 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020c44 de c2                    |        |		ADDA.W	D2,A7
00020c46 2e 93                    |.       |		MOVE.L	(A3),(A7)
00020c48 30 2e fb fa              |0.      |		MOVE.W	(A6-0x406),D0
00020c4c e6 48                    | H      |		LSR.W	#0x3,D0
00020c4e 52 40                    |R@      |		ADDQ.W	#0x1,D0
00020c50 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020c52 42 80                    |B       |		CLR.L	D0
00020c54 10 2e fb fb              | .      |		MOVE.B	(A6-0x405),D0
00020c58 eb 08                    |        |		LSL.B	#0x5,D0
00020c5a ea 08                    |        |		LSR.B	#0x5,D0
00020c5c ed 40                    | @      |		ASL.W	#0x6,D0
00020c5e 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020c60 3f 3c 00 40              |?< @    |		MOVE.W	#0x40,-(A7)
00020c64 1f 01                    |        |		MOVE.B	D1,-(A7)
00020c66 41 f9 00 02 1f 64        |A    d  |		LEA.L	0x21f64,A0
00020c6c 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020c6e 48 52                    |HR      |		PEA.L	(A2)
00020c70 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020c76 de fc 00 12              |        |		ADDA.W	#0x12,A7
00020c7a 42 17                    |B       |		CLR.B	(A7)
00020c7c 1f 01                    |        |		MOVE.B	D1,-(A7)
00020c7e 48 78 00 01              |Hx      |		PEA.L	0x1
00020c82 48 52                    |HR      |		PEA.L	(A2)
00020c84 48 53                    |HS      |		PEA.L	(A3)
00020c86 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020c8c de c2                    |        |		ADDA.W	D2,A7
00020c8e 4c df 0f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3
00020c92 4e 5e                    |N^      |		UNLK	A6
00020c94 4e 75                    |Nu      |		RTS
00020c96 ; --------------------------------------------------------------------------------------
00020c96 ; OMSI PASCAL Function
00020c96 ;    <LVAR -0x00a 4(r)>
00020c96 ;    <LVAR -0x00e @ 4(r)>
00020c96 ;    <LVAR -0x012 @ 4(r)>
00020c96 ;    <LVAR -0x016 @ 4(r)>
00020c96 ;    <LVAR -0x018 @>
00020c96 ; --------------------------------------------------------------------------------------
00020c96 4e 56 ff ac              |NV      |		LINK.W	A6,#0xffac
00020c9a bf d5                    |        |		CMPA.L	(A5),A7
00020c9c 62 06                    |b       |		BHI	0x20ca4
00020c9e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020ca2 4e 76                    |Nv      |		TRAPV
00020ca4 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00020ca8 48 e7 c1 c8              |H       |		MOVEM.L	A4+A1+A0+D7+D1+D0,-(A7)
00020cac 43 f9 00 02 1f 24        |C    $  |		LEA.L	0x21f24,A1
00020cb2 72 08                    |r       |		MOVEQ.L	#0x08,D1
00020cb4 32 bc 00 03              |2       |		MOVE.W	#0x3,(A1)
00020cb8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020cba 4e b9 00 01 05 ec        |N       |		JSR	Get_fc05() : Byte
00020cc0 10 1f                    |        |		MOVE.B	(A7)+,D0
00020cc2 48 80                    |H       |		EXTB.W	D0
00020cc4 33 c0 00 02 1f 26        |3    &  |		MOVE.W	D0,0x21f26
00020cca 42 79 00 02 1f 28        |By   (  |		CLR.W	0x21f28
00020cd0 42 79 00 02 1f 2a        |By   *  |		CLR.W	0x21f2a
00020cd6 42 79 00 02 1f 2c        |By   ,  |		CLR.W	0x21f2c
00020cdc 42 79 00 02 1f 2e        |By   .  |		CLR.W	0x21f2e
00020ce2 42 79 00 02 1f 42        |By   B  |		CLR.W	0x21f42
00020ce8 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00020cec 4e b9 00 01 05 9e        |N       |		JSR	ReadClusterNo(VAR a : Long)
00020cf2 2e ae ff ee              |.       |		MOVE.L	(A6-0x12),(A7)
00020cf6 48 57                    |HW      |		PEA.L	(A7)
00020cf8 48 78 00 00              |Hx      |		PEA.L	0x0
00020cfc 48 78 00 03              |Hx      |		PEA.L	0x3
00020d00 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00020d04 4e b9 00 01 04 b4        |N       |		JSR	?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
00020d0a de fc 00 10              |        |		ADDA.W	#0x10,A7
00020d0e 2e ba f4 ea              |.       |		MOVE.L	0x201fa,(A7)
00020d12 2f 3a f4 e2              |/:      |		MOVE.L	0x201f6,-(A7)
00020d16 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020d18 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020d1c 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
00020d20 48 78 00 0a              |Hx      |		PEA.L	0xa
00020d24 4e b9 00 01 03 5c        |N    \  |		JSR	Quad2String(a : Quad; radix : Long ) : String
00020d2a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020d2c 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020d30 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020d34 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020d36 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020d3c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020d3e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020d44 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020d46 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020d48 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020d4a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
00020d4c 41 f9 00 02 1b 12        |A       |		LEA.L	0x21b12,A0
00020d52 41 f0 78 00              |A x     |		LEA.L	(A0+D7.L),A0
00020d56 11 74 78 01 04 37        | tx  7  |		MOVE.B	(A4+D7.L+#0x1),(A0+0x437)
00020d5c 52 87                    |R       |		ADDQ.L	#0x1,D7
00020d5e be 81                    |        |		CMP.L	D1,D7
00020d60 6f ea                    |o       |		BLE	0x20d4c
00020d62 48 79 00 02 23 24        |Hy  #$  |		PEA.L	0x22324
00020d68 4e b9 00 01 03 04        |N       |		JSR	GetRtc() : TimeStamp
00020d6e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020d70 4e ba fe 56              |N  V    |		JSR	0x20bc8
00020d74 2f 3c 00 00 fc c0        |/<      |		MOVE.L	#0xfcc0,-(A7)
00020d7a 41 f9 00 02 1f e4        |A       |		LEA.L	0x21fe4,A0
00020d80 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020d82 3f 3c 03 40              |?< @    |		MOVE.W	#0x340,-(A7)
00020d86 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00020d8c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d8e 2e bc 00 00 fc 60        |.    `  |		MOVE.L	#0xfc60,(A7)
00020d94 41 ee ff ea              |A       |		LEA.L	(A6-0x16),A0
00020d98 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020d9a 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00020d9e 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00020da4 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020da8 20 2e ff ea              | .      |		MOVE.L	(A6-0x16),D0
00020dac 04 80 00 00 fc c0        |        |		SUBI.L	#0x0000fcc0,D0
00020db2 52 80                    |R       |		ADDQ.L	#0x1,D0
00020db4 33 c0 00 02 1f 44        |3    D  |		MOVE.W	D0,0x21f44
00020dba 42 79 00 02 1f 46        |By   F  |		CLR.W	0x21f46
00020dc0 42 79 00 02 1f 48        |By   H  |		CLR.W	0x21f48
00020dc6 2f 39 00 02 1b 1a        |/9      |		MOVE.L	0x21b1a,-(A7)
00020dcc 42 67                    |Bg      |		CLR.W	-(A7)
00020dce 42 67                    |Bg      |		CLR.W	-(A7)
00020dd0 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020dd4 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020dd8 20 49                    | I      |		MOVEA.L	A1,A0
00020dda 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020ddc 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00020de0 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00020de6 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020dea 4c df 13 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A4
00020dee 4e 5e                    |N^      |		UNLK	A6
00020df0 4e 75                    |Nu      |		RTS
00020df2 ; --------------------------------------------------------------------------------------
00020df2 ; OMSI PASCAL Function
00020df2 ; --------------------------------------------------------------------------------------
00020df2					START:
00020df2 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00020df6 4e f9 00 01 02 80        |N       |		JMP	?start_program
00020dfc					MAIN:
00020dfc 45 f9 00 02 23 6a        |E   #j  |		LEA.L	0x2236a,A2
00020e02 47 f9 00 02 1b 1a        |G       |		LEA.L	0x21b1a,A3
00020e08 49 f9 00 02 23 72        |I   #r  |		LEA.L	0x22372,A4
00020e0e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020e10 74 02                    |t       |		MOVEQ.L	#0x02,D2
00020e12 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
00020e14 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
00020e16 3a 3c 02 00              |:<      |		MOVE.W	#0x200,D5
00020e1a 7c 16                    ||       |		MOVEQ.L	#0x16,D6
00020e1c 7e 14                    |~       |		MOVEQ.L	#0x14,D7
00020e1e 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00020e24 4e ba f9 2a              |N  *    |		JSR	0x20750
00020e28 48 78 00 01              |Hx      |		PEA.L	0x1
00020e2c 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
00020e32 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e34 42 17                    |B       |		CLR.B	(A7)
00020e36 4e b9 00 01 04 d2        |N       |		JSR	SetExpInitDone(a : Byte)
00020e3c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e3e 41 f9 00 02 1b 1e        |A       |		LEA.L	0x21b1e,A0
00020e44 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020e46 23 d7 00 02 1f 1e        |#       |		MOVE.L	(A7),0x21f1e
00020e4c 4e b9 00 01 03 c4        |N       |		JSR	GetArgv() : String
00020e52 24 9f                    |$       |		MOVE.L	(A7)+,(A2)
00020e54 41 fa f3 f2              |A       |		LEA.L	0x20248,A0
00020e58 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020e5a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020e5c 51 c8 ff fc              |Q       |		DBF	D0,0x20e5a
00020e60 2f 3a f3 ee              |/:      |		MOVE.L	0x20250,-(A7)
00020e64 2f 3a f3 e6              |/:      |		MOVE.L	0x2024c,-(A7)
00020e68 2f 3a f3 de              |/:      |		MOVE.L	0x20248,-(A7)
00020e6c 2f 3a f3 ee              |/:      |		MOVE.L	0x2025c,-(A7)
00020e70 2f 3a f3 e6              |/:      |		MOVE.L	0x20258,-(A7)
00020e74 2f 3a f3 de              |/:      |		MOVE.L	0x20254,-(A7)
00020e78 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020e7a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020e7c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020e7e 48 6f 00 22              |Ho "    |		PEA.L	(A7+0x22)
00020e82 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020e84 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020e86 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020e8c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e8e 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00020e94 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e96 4a 1f                    |J       |		TST.B	(A7)+
00020e98 66 46                    |fF      |		BNE	0x20ee0
00020e9a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020e9c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020e9e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020ea0 48 6f 00 16              |Ho      |		PEA.L	(A7+0x16)
00020ea4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020ea6 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020ea8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020eae 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020eb0 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00020eb6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020eb8 4a 1f                    |J       |		TST.B	(A7)+
00020eba 66 24                    |f$      |		BNE	0x20ee0
00020ebc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020ebe 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020ec0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020ec2 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020ec6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020ec8 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020eca 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020ed0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ed2 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00020ed8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020eda 4a 1f                    |J       |		TST.B	(A7)+
00020edc 67 00 01 e6              |g       |		BEQ	0x210c4
00020ee0 41 fa f2 6c              |A  l    |		LEA.L	0x2014e,A0
00020ee4 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020ee6 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020ee8 51 c8 ff fc              |Q       |		DBF	D0,0x20ee6
00020eec 3f 3a f3 72              |?: r    |		MOVE.W	0x20260,-(A7)
00020ef0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020ef2 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020ef6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020ef8 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020efa 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020f00 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f02 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00020f06 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020f08 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020f0a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020f10 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f12 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020f18 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020f1a 42 17                    |B       |		CLR.B	(A7)
00020f1c 1f 02                    |        |		MOVE.B	D2,-(A7)
00020f1e 48 78 00 32              |Hx 2    |		PEA.L	0x32
00020f22 48 54                    |HT      |		PEA.L	(A4)
00020f24 48 53                    |HS      |		PEA.L	(A3)
00020f26 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020f2c de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00020f30 2e 93                    |.       |		MOVE.L	(A3),(A7)
00020f32 42 67                    |Bg      |		CLR.W	-(A7)
00020f34 42 67                    |Bg      |		CLR.W	-(A7)
00020f36 3f 05                    |?       |		MOVE.W	D5,-(A7)
00020f38 1f 02                    |        |		MOVE.B	D2,-(A7)
00020f3a 41 f9 00 02 1f 24        |A    $  |		LEA.L	0x21f24,A0
00020f40 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020f42 48 54                    |HT      |		PEA.L	(A4)
00020f44 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020f4a de fc 00 10              |        |		ADDA.W	#0x10,A7
00020f4e 2e bc 00 00 fc c0        |.       |		MOVE.L	#0xfcc0,(A7)
00020f54 41 f9 00 02 1b de        |A       |		LEA.L	0x21bde,A0
00020f5a 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020f5c 3f 3c 03 40              |?< @    |		MOVE.W	#0x340,-(A7)
00020f60 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00020f66 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020f68 2e bc 00 00 fc 60        |.    `  |		MOVE.L	#0xfc60,(A7)
00020f6e 41 f9 00 02 23 64        |A   #d  |		LEA.L	0x22364,A0
00020f74 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020f76 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
00020f7a 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00020f80 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020f82 2e ba f2 d8              |.       |		MOVE.L	0x2025c,(A7)
00020f86 2f 3a f2 d0              |/:      |		MOVE.L	0x20258,-(A7)
00020f8a 2f 3a f2 c8              |/:      |		MOVE.L	0x20254,-(A7)
00020f8e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020f90 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00020f92 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f94 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020f98 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020f9a 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020f9c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020fa2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020fa4 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00020faa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020fac 4a 1f                    |J       |		TST.B	(A7)+
00020fae 67 32                    |g2      |		BEQ	0x20fe2
00020fb0 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020fb2 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
00020fb6 42 67                    |Bg      |		CLR.W	-(A7)
00020fb8 3f 05                    |?       |		MOVE.W	D5,-(A7)
00020fba 1f 02                    |        |		MOVE.B	D2,-(A7)
00020fbc 2f 39 00 02 1f 1e        |/9      |		MOVE.L	0x21f1e,-(A7)
00020fc2 48 54                    |HT      |		PEA.L	(A4)
00020fc4 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00020fca de c7                    |        |		ADDA.W	D7,A7
00020fcc 20 39 00 02 23 64        | 9  #d  |		MOVE.L	0x22364,D0
00020fd2 04 80 00 00 fc c0        |        |		SUBI.L	#0x0000fcc0,D0
00020fd8 52 80                    |R       |		ADDQ.L	#0x1,D0
00020fda 33 c0 00 02 1f 48        |3    H  |		MOVE.W	D0,0x21f48
00020fe0 60 30                    |`0      |		BRA	0x21012
00020fe2 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020fe4 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
00020fe8 42 67                    |Bg      |		CLR.W	-(A7)
00020fea 3f 05                    |?       |		MOVE.W	D5,-(A7)
00020fec 1f 02                    |        |		MOVE.B	D2,-(A7)
00020fee 2f 39 00 02 1f 1e        |/9      |		MOVE.L	0x21f1e,-(A7)
00020ff4 48 54                    |HT      |		PEA.L	(A4)
00020ff6 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00020ffc de c7                    |        |		ADDA.W	D7,A7
00020ffe 20 39 00 02 23 64        | 9  #d  |		MOVE.L	0x22364,D0
00021004 04 80 00 00 fc c0        |        |		SUBI.L	#0x0000fcc0,D0
0002100a 52 80                    |R       |		ADDQ.L	#0x1,D0
0002100c 33 c0 00 02 1f 46        |3    F  |		MOVE.W	D0,0x21f46
00021012 de c4                    |        |		ADDA.W	D4,A7
00021014 41 fa f2 32              |A  2    |		LEA.L	0x20248,A0
00021018 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002101a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002101c 51 c8 ff fc              |Q       |		DBF	D0,0x2101a
00021020 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021022 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021024 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021026 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
0002102a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002102c 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002102e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021034 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021036 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
0002103c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002103e 4a 1f                    |J       |		TST.B	(A7)+
00021040 67 3e                    |g>      |		BEQ	0x21080
00021042 33 fc 00 24 00 02 1f 22  |3  $   "|		MOVE.W	#0x24,0x21f22
0002104a 33 f9 00 02 1f 22 00 02  |3    "  |		MOVE.W	0x21f22,0x21f2e
00021052 1f 2e                    | .      |
00021054 9e fc 00 12              |        |		SUBA.W	#0x12,A7
00021058 20 4f                    | O      |		MOVEA.L	A7,A0
0002105a 43 fa f2 06              |C       |		LEA.L	0x20262,A1
0002105e 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021060 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021062 51 c8 ff fc              |Q       |		DBF	D0,0x21060
00021066 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021068 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002106c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002106e 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
00021072 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021078 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002107a 4e ba fa 1a              |N       |		JSR	0x20a96
0002107e de c6                    |        |		ADDA.W	D6,A7
00021080 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021082 2e 93                    |.       |		MOVE.L	(A3),(A7)
00021084 42 67                    |Bg      |		CLR.W	-(A7)
00021086 42 67                    |Bg      |		CLR.W	-(A7)
00021088 3f 05                    |?       |		MOVE.W	D5,-(A7)
0002108a 1f 02                    |        |		MOVE.B	D2,-(A7)
0002108c 41 f9 00 02 1f 24        |A    $  |		LEA.L	0x21f24,A0
00021092 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021094 48 54                    |HT      |		PEA.L	(A4)
00021096 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
0002109c de fc 00 12              |        |		ADDA.W	#0x12,A7
000210a0 42 17                    |B       |		CLR.B	(A7)
000210a2 1f 02                    |        |		MOVE.B	D2,-(A7)
000210a4 48 78 00 01              |Hx      |		PEA.L	0x1
000210a8 48 54                    |HT      |		PEA.L	(A4)
000210aa 48 53                    |HS      |		PEA.L	(A3)
000210ac 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
000210b2 de fc 00 0e              |        |		ADDA.W	#0xe,A7
000210b6 42 17                    |B       |		CLR.B	(A7)
000210b8 48 78 00 01              |Hx      |		PEA.L	0x1
000210bc 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000210c2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000210c4 de c6                    |        |		ADDA.W	D6,A7
000210c6 20 4f                    | O      |		MOVEA.L	A7,A0
000210c8 43 fa f1 5e              |C  ^    |		LEA.L	0x20228,A1
000210cc 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000210ce 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000210d0 51 c8 ff fc              |Q       |		DBF	D0,0x210ce
000210d4 41 fa f1 68              |A  h    |		LEA.L	0x2023e,A0
000210d8 70 04                    |p       |		MOVEQ.L	#0x04,D0
000210da 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000210dc 51 c8 ff fc              |Q       |		DBF	D0,0x210da
000210e0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000210e2 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000210e4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210e6 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
000210ea 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210ec 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
000210f0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000210f6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210f8 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
000210fe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021100 4a 1f                    |J       |		TST.B	(A7)+
00021102 66 56                    |fV      |		BNE	0x2115a
00021104 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021106 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021108 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002110a 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
0002110e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021110 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021112 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021118 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002111a 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00021120 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021122 4a 1f                    |J       |		TST.B	(A7)+
00021124 66 34                    |f4      |		BNE	0x2115a
00021126 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
0002112a 20 4f                    | O      |		MOVEA.L	A7,A0
0002112c 43 fa f1 46              |C  F    |		LEA.L	0x20274,A1
00021130 70 18                    |p       |		MOVEQ.L	#0x18,D0
00021132 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021134 51 c8 ff fc              |Q       |		DBF	D0,0x21132
00021138 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
0002113c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002113e 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021142 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021144 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
00021148 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002114e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021150 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021156 de fc 00 20              |        |		ADDA.W	#0x20,A7
0002115a de c6                    |        |		ADDA.W	D6,A7
0002115c 4e ba f6 8a              |N       |		JSR	0x207e8
00021160 4e ba fb 34              |N  4    |		JSR	0x20c96
00021164 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021166 4e b9 00 01 05 ec        |N       |		JSR	Get_fc05() : Byte
0002116c 4a 1f                    |J       |		TST.B	(A7)+
0002116e 67 04                    |g       |		BEQ	0x21174
00021170 4e ba f7 de              |N       |		JSR	0x20950
00021174 41 fa f0 c8              |A       |		LEA.L	0x2023e,A0
00021178 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002117a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002117c 51 c8 ff fc              |Q       |		DBF	D0,0x2117a
00021180 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021182 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021184 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021186 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
0002118a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002118c 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002118e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021194 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021196 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
0002119c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002119e 4a 1f                    |J       |		TST.B	(A7)+
000211a0 67 60                    |g`      |		BEQ	0x21202
000211a2 33 fc 00 04 00 02 1f 22  |3      "|		MOVE.W	#0x4,0x21f22
000211aa 33 f9 00 02 1f 22 00 02  |3    "  |		MOVE.W	0x21f22,0x21f2a
000211b2 1f 2a                    | *      |
000211b4 41 fa ef 8e              |A       |		LEA.L	0x20144,A0
000211b8 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000211ba 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000211bc 51 c8 ff fc              |Q       |		DBF	D0,0x211ba
000211c0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000211c2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000211c6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000211c8 3f 06                    |?       |		MOVE.W	D6,-(A7)
000211ca 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000211d0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211d2 4e ba f8 c2              |N       |		JSR	0x20a96
000211d6 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000211da 33 c1 00 02 1f 42        |3    B  |		MOVE.W	D1,0x21f42
000211e0 4e ba f0 e6              |N       |		JSR	0x202c8
000211e4 48 79 00 02 23 68        |Hy  #h  |		PEA.L	0x22368
000211ea 4e ba f4 16              |N       |		JSR	0x20602
000211ee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000211f0 4a 39 00 02 23 68        |J9  #h  |		TST.B	0x22368
000211f6 67 06                    |g       |		BEQ	0x211fe
000211f8 33 c2 00 02 1f 42        |3    B  |		MOVE.W	D2,0x21f42
000211fe 4e ba f2 1c              |N       |		JSR	0x2041c
00021202 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021204 2e b9 00 02 23 24        |.   #$  |		MOVE.L	0x22324,(A7)
0002120a 4e b9 00 01 03 08        |N       |		JSR	TimeToText()
00021210 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021212 23 df 00 02 23 6e        |#   #n  |		MOVE.L	(A7)+,0x2236e
00021218 20 79 00 02 23 6e        | y  #n  |		MOVEA.L	0x2236e,A0
0002121e 41 e8 00 02              |A       |		LEA.L	(A0+0x2),A0
00021222 2f 08                    |/       |		MOVE.L	A0,-(A7)
00021224 41 f9 00 02 1f 30        |A    0  |		LEA.L	0x21f30,A0
0002122a 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002122c 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00021230 4e b9 00 01 02 38        |N    8  |		JSR	KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00021236 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021238 2e 93                    |.       |		MOVE.L	(A3),(A7)
0002123a 42 67                    |Bg      |		CLR.W	-(A7)
0002123c 42 67                    |Bg      |		CLR.W	-(A7)
0002123e 3f 05                    |?       |		MOVE.W	D5,-(A7)
00021240 1f 02                    |        |		MOVE.B	D2,-(A7)
00021242 41 f9 00 02 1f 24        |A    $  |		LEA.L	0x21f24,A0
00021248 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002124a 48 54                    |HT      |		PEA.L	(A4)
0002124c 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00021252 de c7                    |        |		ADDA.W	D7,A7
00021254 20 53                    | S      |		MOVEA.L	(A3),A0
00021256 11 79 00 02 23 24 00 3a  | y  #$ :|		MOVE.B	0x22324,(A0+0x3a)
0002125e 11 79 00 02 23 25 00 3b  | y  #% ;|		MOVE.B	0x22325,(A0+0x3b)
00021266 11 79 00 02 23 26 00 3c  | y  #& <|		MOVE.B	0x22326,(A0+0x3c)
0002126e 11 79 00 02 23 27 00 3d  | y  #' =|		MOVE.B	0x22327,(A0+0x3d)
00021276 11 41 00 4c              | A L    |		MOVE.B	D1,(A0+0x4c)
0002127a 42 27                    |B'      |		CLR.B	-(A7)
0002127c 1f 02                    |        |		MOVE.B	D2,-(A7)
0002127e 48 78 00 01              |Hx      |		PEA.L	0x1
00021282 48 54                    |HT      |		PEA.L	(A4)
00021284 48 53                    |HS      |		PEA.L	(A3)
00021286 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
0002128c 9e fc 00 22              |   "    |		SUBA.W	#0x22,A7
00021290 20 4f                    | O      |		MOVEA.L	A7,A0
00021292 43 fa ef fa              |C       |		LEA.L	0x2028e,A1
00021296 70 30                    |p0      |		MOVEQ.L	#0x30,D0
00021298 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002129a 51 c8 ff fc              |Q       |		DBF	D0,0x21298
0002129e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000212a0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000212a4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000212a6 3f 3c 00 31              |?< 1    |		MOVE.W	#0x31,-(A7)
000212aa 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000212b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000212b2 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000212b8 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
000212bc 42 17                    |B       |		CLR.B	(A7)
000212be 48 78 00 01              |Hx      |		PEA.L	0x1
000212c2 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000212c8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000212ca 4e b9 00 01 02 84        |N       |		JSR	?exit
000212d0					exp_RUN_NORMAL.FIU():
000212d0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000212d6 00 08                    |        |		.CONST	0x0008			; Stack-delta
000212d8 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.FIU'
000212e7 00                       |        |		.CONST	0x0
000212e8 03                       |        |		.CONST	0x3			; DIPROC address
000212e9 00                       |        |		.CONST	0x0			; Output Parameters
000212ea 00                       |        |		.CONST	0x0			; Input Parameters
000212eb 00                       |        |		.PAD	0x0
000212ec					exp_PREP_RUN.FIU(Sw_2):
000212ec 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000212f2 00 0a                    |        |		.CONST	0x000a			; Stack-delta
000212f4 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.FIU'
00021301 00                       |        |		.CONST	0x0
00021302 03                       |        |		.CONST	0x3			; DIPROC address
00021303 00                       |        |		.CONST	0x0			; Output Parameters
00021304 01                       |        |		.CONST	0x1			; Input Parameters
00021305 01                       |        |		.CONST	0x1			; In arg [2]
00021306					exp_MF.FIU():
00021306 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002130c 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002130e 06 4d 46 2e 46 49 55     | MF.FIU |		.TXT	6,'MF.FIU'
00021315 00                       |        |		.CONST	0x0
00021316 03                       |        |		.CONST	0x3			; DIPROC address
00021317 00                       |        |		.CONST	0x0			; Output Parameters
00021318 00                       |        |		.CONST	0x0			; Input Parameters
00021319 00                       |        |		.PAD	0x0
0002131a					exp_INIT_MRU.FIU():
0002131a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021320 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021322 0c 49 4e 49 54 5f 4d 52  | INIT_MR|		.TXT	12,'INIT_MRU.FIU'
0002132f 00                       |        |		.CONST	0x0
00021330 03                       |        |		.CONST	0x3			; DIPROC address
00021331 00                       |        |		.CONST	0x0			; Output Parameters
00021332 00                       |        |		.CONST	0x0			; Input Parameters
00021333 00                       |        |		.PAD	0x0
00021334					exp_FREEZE_WORLD.FIU():
00021334 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002133a 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002133c 10 46 52 45 45 5a 45 5f  | FREEZE_|		.TXT	16,'FREEZE_WORLD.FIU'
0002134d 00                       |        |		.CONST	0x0
0002134e 03                       |        |		.CONST	0x3			; DIPROC address
0002134f 00                       |        |		.CONST	0x0			; Output Parameters
00021350 00                       |        |		.CONST	0x0			; Input Parameters
00021351 00                       |        |		.PAD	0x0
00021352					exp_CLEAR_EXCEPTIONS.FIU():
00021352 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021358 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002135a 14 43 4c 45 41 52 5f 45  | CLEAR_E|		.TXT	20,'CLEAR_EXCEPTIONS.FIU'
0002136f 00                       |        |		.CONST	0x0
00021370 03                       |        |		.CONST	0x3			; DIPROC address
00021371 00                       |        |		.CONST	0x0			; Output Parameters
00021372 00                       |        |		.CONST	0x0			; Input Parameters
00021373 00                       |        |		.PAD	0x0
00021374					exp_RESET.SEQ():
00021374 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002137a 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002137c 09 52 45 53 45 54 2e 53  | RESET.S|		.TXT	9,'RESET.SEQ'
00021386 00                       |        |		.CONST	0x0
00021387 02                       |        |		.CONST	0x2			; DIPROC address
00021388 00                       |        |		.CONST	0x0			; Output Parameters
00021389 00                       |        |		.CONST	0x0			; Input Parameters
0002138a					exp_RUN_CHECK.SEQ():
0002138a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021390 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021392 0d 52 55 4e 5f 43 48 45  | RUN_CHE|		.TXT	13,'RUN_CHECK.SEQ'
000213a0 00                       |        |		.CONST	0x0
000213a1 02                       |        |		.CONST	0x2			; DIPROC address
000213a2 00                       |        |		.CONST	0x0			; Output Parameters
000213a3 00                       |        |		.CONST	0x0			; Input Parameters
000213a4					exp_PREP_RUN.SEQ(Sw_2):
000213a4 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000213aa 00 0a                    |        |		.CONST	0x000a			; Stack-delta
000213ac 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.SEQ'
000213b9 00                       |        |		.CONST	0x0
000213ba 02                       |        |		.CONST	0x2			; DIPROC address
000213bb 00                       |        |		.CONST	0x0			; Output Parameters
000213bc 01                       |        |		.CONST	0x1			; Input Parameters
000213bd 01                       |        |		.CONST	0x1			; In arg [2]
000213be					exp_WRITE_REG.TYP(Sw_2, Sw_8_1, Sw_1):
000213be 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000213c4 00 16                    |        |		.CONST	0x0016			; Stack-delta
000213c6 0d 57 52 49 54 45 5f 52  | WRITE_R|		.TXT	13,'WRITE_REG.TYP'
000213d4 00                       |        |		.CONST	0x0
000213d5 06                       |        |		.CONST	0x6			; DIPROC address
000213d6 00                       |        |		.CONST	0x0			; Output Parameters
000213d7 03                       |        |		.CONST	0x3			; Input Parameters
000213d8 01                       |        |		.CONST	0x1			; In arg [2]
000213d9 0d                       |        |		.CONST	0xd			; In arg [8, 1]
000213da 00                       |        |		.CONST	0x0			; In arg [1]
000213db 00                       |        |		.PAD	0x0
000213dc					exp_RUN_NORMAL.TYP():
000213dc 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000213e2 00 08                    |        |		.CONST	0x0008			; Stack-delta
000213e4 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.TYP'
000213f3 00                       |        |		.CONST	0x0
000213f4 06                       |        |		.CONST	0x6			; DIPROC address
000213f5 00                       |        |		.CONST	0x0			; Output Parameters
000213f6 00                       |        |		.CONST	0x0			; Input Parameters
000213f7 00                       |        |		.PAD	0x0
000213f8					exp_PREP_WRITE_REG.TYP(Sw_8, &Sr_8_1):
000213f8 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000213fe 00 14                    |        |		.CONST	0x0014			; Stack-delta
00021400 12 50 52 45 50 5f 57 52  | PREP_WR|		.TXT	18,'PREP_WRITE_REG.TYP'
00021413 00                       |        |		.CONST	0x0
00021414 06                       |        |		.CONST	0x6			; DIPROC address
00021415 01                       |        |		.CONST	0x1			; Output Parameters
00021416 01                       |        |		.CONST	0x1			; Input Parameters
00021417 07                       |        |		.CONST	0x7			; In arg [8]
00021418 0d                       |        |		.CONST	0xd			; Out arg [8, 1]
00021419 00                       |        |		.PAD	0x0
0002141a					exp_PREP_RUN.TYP(Sw_2):
0002141a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021420 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00021422 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.TYP'
0002142f 00                       |        |		.CONST	0x0
00021430 06                       |        |		.CONST	0x6			; DIPROC address
00021431 00                       |        |		.CONST	0x0			; Output Parameters
00021432 01                       |        |		.CONST	0x1			; Input Parameters
00021433 01                       |        |		.CONST	0x1			; In arg [2]
00021434					exp_MF.TYP():
00021434 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002143a 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002143c 06 4d 46 2e 54 59 50     | MF.TYP |		.TXT	6,'MF.TYP'
00021443 00                       |        |		.CONST	0x0
00021444 06                       |        |		.CONST	0x6			; DIPROC address
00021445 00                       |        |		.CONST	0x0			; Output Parameters
00021446 00                       |        |		.CONST	0x0			; Input Parameters
00021447 00                       |        |		.PAD	0x0
00021448					exp_LOAD_BENIGN_UWORD.TYP():
00021448 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002144e 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021450 15 4c 4f 41 44 5f 42 45  | LOAD_BE|		.TXT	21,'LOAD_BENIGN_UWORD.TYP'
00021466 00                       |        |		.CONST	0x0
00021467 06                       |        |		.CONST	0x6			; DIPROC address
00021468 00                       |        |		.CONST	0x0			; Output Parameters
00021469 00                       |        |		.CONST	0x0			; Input Parameters
0002146a					exp_RUN_NORMAL.VAL():
0002146a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021470 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021472 0e 52 55 4e 5f 4e 4f 52  | RUN_NOR|		.TXT	14,'RUN_NORMAL.VAL'
00021481 00                       |        |		.CONST	0x0
00021482 07                       |        |		.CONST	0x7			; DIPROC address
00021483 00                       |        |		.CONST	0x0			; Output Parameters
00021484 00                       |        |		.CONST	0x0			; Input Parameters
00021485 00                       |        |		.PAD	0x0
00021486					exp_PREP_RUN.VAL(Sw_2):
00021486 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002148c 00 0a                    |        |		.CONST	0x000a			; Stack-delta
0002148e 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.VAL'
0002149b 00                       |        |		.CONST	0x0
0002149c 07                       |        |		.CONST	0x7			; DIPROC address
0002149d 00                       |        |		.CONST	0x0			; Output Parameters
0002149e 01                       |        |		.CONST	0x1			; Input Parameters
0002149f 01                       |        |		.CONST	0x1			; In arg [2]
000214a0					exp_MF.VAL():
000214a0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000214a6 00 08                    |        |		.CONST	0x0008			; Stack-delta
000214a8 06 4d 46 2e 56 41 4c     | MF.VAL |		.TXT	6,'MF.VAL'
000214af 00                       |        |		.CONST	0x0
000214b0 07                       |        |		.CONST	0x7			; DIPROC address
000214b1 00                       |        |		.CONST	0x0			; Output Parameters
000214b2 00                       |        |		.CONST	0x0			; Input Parameters
000214b3 00                       |        |		.PAD	0x0
000214b4 53 45 54 5f 48 49 54 2e  |SET_HIT.|		.TXT	'SET_HIT.MEM '
000214c0 53 45 54 5f 48 49 54 2e  |SET_HIT.|		.TXT	'SET_HIT.M32 '
000214cc ; --------------------------------------------------------------------------------------
000214cc ; OMSI PASCAL Function
000214cc ;    <LVAR  0x00a 1(r)>
000214cc ;    <LVAR  0x008 1(r)>
000214cc ;    <LVAR -0x004 @ 4(r)>
000214cc ; --------------------------------------------------------------------------------------
000214cc 4e 56 ff cc              |NV      |		LINK.W	A6,#0xffcc
000214d0 bf d5                    |        |		CMPA.L	(A5),A7
000214d2 62 06                    |b       |		BHI	0x214da
000214d4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000214d8 4e 76                    |Nv      |		TRAPV
000214da de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000214de 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000214e2 45 ee ff fc              |E       |		LEA.L	(A6-0x4),A2
000214e6 72 0c                    |r       |		MOVEQ.L	#0x0c,D1
000214e8 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000214ea 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000214f0 4a 1f                    |J       |		TST.B	(A7)+
000214f2 67 12                    |g       |		BEQ	0x21506
000214f4 9e c1                    |        |		SUBA.W	D1,A7
000214f6 20 4f                    | O      |		MOVEA.L	A7,A0
000214f8 43 fa ff ba              |C       |		LEA.L	0x214b4,A1
000214fc 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000214fe 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021500 51 c8 ff fc              |Q       |		DBF	D0,0x214fe
00021504 60 10                    |`       |		BRA	0x21516
00021506 9e c1                    |        |		SUBA.W	D1,A7
00021508 20 4f                    | O      |		MOVEA.L	A7,A0
0002150a 43 fa ff b4              |C       |		LEA.L	0x214c0,A1
0002150e 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021510 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021512 51 c8 ff fc              |Q       |		DBF	D0,0x21510
00021516 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021518 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002151c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021520 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00021524 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002152a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002152c 48 52                    |HR      |		PEA.L	(A2)
0002152e 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021534 de fc 00 14              |        |		ADDA.W	#0x14,A7
00021538 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002153c 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002153e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021542 48 78 00 00              |Hx      |		PEA.L	0x0
00021546 48 78 00 00              |Hx      |		PEA.L	0x0
0002154a 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00021550 de fc 00 10              |        |		ADDA.W	#0x10,A7
00021554 42 17                    |B       |		CLR.B	(A7)
00021556 1f 2e 00 0a              | .      |		MOVE.B	(A6+0xa),-(A7)
0002155a 2f 12                    |/       |		MOVE.L	(A2),-(A7)
0002155c 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
00021562 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021564 48 52                    |HR      |		PEA.L	(A2)
00021566 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
0002156c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002156e 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
00021572 4e 5e                    |N^      |		UNLK	A6
00021574 4e 75                    |Nu      |		RTS
00021576 52 55 4e 5f 43 48 45 43  |RUN_CHEC|		.TXT	'RUN_CHECK.MEM '
00021584 52 55 4e 5f 43 48 45 43  |RUN_CHEC|		.TXT	'RUN_CHECK.M32 '
00021592 ; --------------------------------------------------------------------------------------
00021592 ; OMSI PASCAL Function
00021592 ;    <LVAR  0x008 1(r)>
00021592 ;    <LVAR -0x006 @ 4(r)>
00021592 ; --------------------------------------------------------------------------------------
00021592 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00021596 bf d5                    |        |		CMPA.L	(A5),A7
00021598 62 06                    |b       |		BHI	0x215a0
0002159a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002159e 4e 76                    |Nv      |		TRAPV
000215a0 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000215a4 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000215a8 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000215ac 72 0e                    |r       |		MOVEQ.L	#0x0e,D1
000215ae 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000215b0 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000215b6 4a 1f                    |J       |		TST.B	(A7)+
000215b8 67 12                    |g       |		BEQ	0x215cc
000215ba 9e c1                    |        |		SUBA.W	D1,A7
000215bc 20 4f                    | O      |		MOVEA.L	A7,A0
000215be 43 fa ff b6              |C       |		LEA.L	0x21576,A1
000215c2 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000215c4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000215c6 51 c8 ff fc              |Q       |		DBF	D0,0x215c4
000215ca 60 10                    |`       |		BRA	0x215dc
000215cc 9e c1                    |        |		SUBA.W	D1,A7
000215ce 20 4f                    | O      |		MOVEA.L	A7,A0
000215d0 43 fa ff b2              |C       |		LEA.L	0x21584,A1
000215d4 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000215d6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000215d8 51 c8 ff fc              |Q       |		DBF	D0,0x215d6
000215dc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000215de 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000215e2 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000215e6 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
000215ea 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000215f0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000215f2 48 52                    |HR      |		PEA.L	(A2)
000215f4 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000215fa de fc 00 16              |        |		ADDA.W	#0x16,A7
000215fe 42 27                    |B'      |		CLR.B	-(A7)
00021600 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00021604 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021606 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
0002160c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002160e 48 52                    |HR      |		PEA.L	(A2)
00021610 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00021616 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021618 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
0002161c 4e 5e                    |N^      |		UNLK	A6
0002161e 4e 75                    |Nu      |		RTS
00021620 4d 46                    |MF      |		.TXT	'MF'
00021622 2e 4d                    |.M      |		.TXT	'.M'
00021624 45 4d                    |EM      |		.TXT	'EM'
00021626 4d 46                    |MF      |		.TXT	'MF'
00021628 2e 4d                    |.M      |		.TXT	'.M'
0002162a 33 32                    |32      |		.TXT	'32'
0002162c ; --------------------------------------------------------------------------------------
0002162c ; OMSI PASCAL Function
0002162c ;    <LVAR  0x008 1(r)>
0002162c ;    <LVAR -0x006 @ 4(r)>
0002162c ; --------------------------------------------------------------------------------------
0002162c 4e 56 ff e0              |NV      |		LINK.W	A6,#0xffe0
00021630 bf d5                    |        |		CMPA.L	(A5),A7
00021632 62 06                    |b       |		BHI	0x2163a
00021634 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021638 4e 76                    |Nv      |		TRAPV
0002163a de fc 00 1a              |        |		ADDA.W	#0x1a,A7
0002163e 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00021642 41 ee ff fa              |A       |		LEA.L	(A6-0x6),A0
00021646 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021648 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
0002164e 4a 1f                    |J       |		TST.B	(A7)+
00021650 67 0e                    |g       |		BEQ	0x21660
00021652 3f 3a ff d0              |?:      |		MOVE.W	0x21624,-(A7)
00021656 3f 3a ff ca              |?:      |		MOVE.W	0x21622,-(A7)
0002165a 3f 3a ff c4              |?:      |		MOVE.W	0x21620,-(A7)
0002165e 60 0c                    |`       |		BRA	0x2166c
00021660 3f 3a ff c8              |?:      |		MOVE.W	0x2162a,-(A7)
00021664 3f 3a ff c2              |?:      |		MOVE.W	0x21628,-(A7)
00021668 3f 3a ff bc              |?:      |		MOVE.W	0x21626,-(A7)
0002166c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002166e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021672 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021676 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
0002167a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021680 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021682 48 50                    |HP      |		PEA.L	(A0)
00021684 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
0002168a de fc 00 0e              |        |		ADDA.W	#0xe,A7
0002168e 42 27                    |B'      |		CLR.B	-(A7)
00021690 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00021694 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00021696 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
0002169c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002169e 48 50                    |HP      |		PEA.L	(A0)
000216a0 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000216a6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000216a8 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
000216ac 4e 5e                    |N^      |		UNLK	A6
000216ae 4e 75                    |Nu      |		RTS
000216b0 43 4c 45 41 52 5f 50 41  |CLEAR_PA|		.TXT	'CLEAR_PARITY_ERRORS.MEM '
000216c8 43 4c 45 41 52 5f 50 41  |CLEAR_PA|		.TXT	'CLEAR_PARITY_ERRORS.M32 '
000216e0 ; --------------------------------------------------------------------------------------
000216e0 ; OMSI PASCAL Function
000216e0 ;    <LVAR  0x008 1(r)>
000216e0 ;    <LVAR -0x006 @ 4(r)>
000216e0 ; --------------------------------------------------------------------------------------
000216e0 4e 56 ff be              |NV      |		LINK.W	A6,#0xffbe
000216e4 bf d5                    |        |		CMPA.L	(A5),A7
000216e6 62 06                    |b       |		BHI	0x216ee
000216e8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000216ec 4e 76                    |Nv      |		TRAPV
000216ee de fc 00 3c              |   <    |		ADDA.W	#0x3c,A7
000216f2 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
000216f6 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
000216fa 72 18                    |r       |		MOVEQ.L	#0x18,D1
000216fc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000216fe 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
00021704 4a 1f                    |J       |		TST.B	(A7)+
00021706 67 12                    |g       |		BEQ	0x2171a
00021708 9e c1                    |        |		SUBA.W	D1,A7
0002170a 20 4f                    | O      |		MOVEA.L	A7,A0
0002170c 43 fa ff a2              |C       |		LEA.L	0x216b0,A1
00021710 70 16                    |p       |		MOVEQ.L	#0x16,D0
00021712 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021714 51 c8 ff fc              |Q       |		DBF	D0,0x21712
00021718 60 10                    |`       |		BRA	0x2172a
0002171a 9e c1                    |        |		SUBA.W	D1,A7
0002171c 20 4f                    | O      |		MOVEA.L	A7,A0
0002171e 43 fa ff a8              |C       |		LEA.L	0x216c8,A1
00021722 70 16                    |p       |		MOVEQ.L	#0x16,D0
00021724 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021726 51 c8 ff fc              |Q       |		DBF	D0,0x21724
0002172a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002172c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021730 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021734 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00021738 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002173e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021740 48 52                    |HR      |		PEA.L	(A2)
00021742 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00021748 de fc 00 20              |        |		ADDA.W	#0x20,A7
0002174c 42 27                    |B'      |		CLR.B	-(A7)
0002174e 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00021752 2f 12                    |/       |		MOVE.L	(A2),-(A7)
00021754 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
0002175a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002175c 48 52                    |HR      |		PEA.L	(A2)
0002175e 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00021764 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021766 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
0002176a 4e 5e                    |N^      |		UNLK	A6
0002176c 4e 75                    |Nu      |		RTS
0002176e 43 4c 45 41 52 5f 48 49  |CLEAR_HI|		.TXT	'CLEAR_HITS.MEM'
0002177c 43 4c 45 41 52 5f 48 49  |CLEAR_HI|		.TXT	'CLEAR_HITS.M32'
0002178a ; --------------------------------------------------------------------------------------
0002178a ; OMSI PASCAL Function
0002178a ;    <LVAR  0x008 1(r)>
0002178a ;    <LVAR -0x006 @ 4(r)>
0002178a ; --------------------------------------------------------------------------------------
0002178a 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
0002178e bf d5                    |        |		CMPA.L	(A5),A7
00021790 62 06                    |b       |		BHI	0x21798
00021792 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021796 4e 76                    |Nv      |		TRAPV
00021798 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
0002179c 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
000217a0 43 ee ff fa              |C       |		LEA.L	(A6-0x6),A1
000217a4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000217a6 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
000217ac 4a 1f                    |J       |		TST.B	(A7)+
000217ae 67 0e                    |g       |		BEQ	0x217be
000217b0 41 fa ff ca              |A       |		LEA.L	0x2177c,A0
000217b4 70 06                    |p       |		MOVEQ.L	#0x06,D0
000217b6 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000217b8 51 c8 ff fc              |Q       |		DBF	D0,0x217b6
000217bc 60 0c                    |`       |		BRA	0x217ca
000217be 41 fa ff ca              |A       |		LEA.L	0x2178a,A0
000217c2 70 06                    |p       |		MOVEQ.L	#0x06,D0
000217c4 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000217c6 51 c8 ff fc              |Q       |		DBF	D0,0x217c4
000217ca 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000217cc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000217d0 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000217d4 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
000217d8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000217de 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217e0 48 51                    |HQ      |		PEA.L	(A1)
000217e2 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000217e8 de fc 00 16              |        |		ADDA.W	#0x16,A7
000217ec 42 27                    |B'      |		CLR.B	-(A7)
000217ee 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000217f2 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000217f4 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000217fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217fc 48 51                    |HQ      |		PEA.L	(A1)
000217fe 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00021804 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021806 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
0002180a 4e 5e                    |N^      |		UNLK	A6
0002180c 4e 75                    |Nu      |		RTS
0002180e 43 4c 45 41 52 5f 44 52  |CLEAR_DR|		.TXT	'CLEAR_DRIVE_HIT.MEM '
00021822 43 4c 45 41 52 5f 44 52  |CLEAR_DR|		.TXT	'CLEAR_DRIVE_HIT.M32 '
00021836 ; --------------------------------------------------------------------------------------
00021836 ; OMSI PASCAL Function
00021836 ;    <LVAR  0x008 1(r)>
00021836 ;    <LVAR -0x006 @ 4(r)>
00021836 ; --------------------------------------------------------------------------------------
00021836 4e 56 ff c2              |NV      |		LINK.W	A6,#0xffc2
0002183a bf d5                    |        |		CMPA.L	(A5),A7
0002183c 62 06                    |b       |		BHI	0x21844
0002183e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021842 4e 76                    |Nv      |		TRAPV
00021844 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00021848 48 e7 c0 e0              |H       |		MOVEM.L	A2+A1+A0+D1+D0,-(A7)
0002184c 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
00021850 72 14                    |r       |		MOVEQ.L	#0x14,D1
00021852 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021854 4e b9 00 01 04 cc        |N       |		JSR	MemOnly2MB() : Bool
0002185a 4a 1f                    |J       |		TST.B	(A7)+
0002185c 67 12                    |g       |		BEQ	0x21870
0002185e 9e c1                    |        |		SUBA.W	D1,A7
00021860 20 4f                    | O      |		MOVEA.L	A7,A0
00021862 43 fa ff aa              |C       |		LEA.L	0x2180e,A1
00021866 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021868 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002186a 51 c8 ff fc              |Q       |		DBF	D0,0x21868
0002186e 60 10                    |`       |		BRA	0x21880
00021870 9e c1                    |        |		SUBA.W	D1,A7
00021872 20 4f                    | O      |		MOVEA.L	A7,A0
00021874 43 fa ff ac              |C       |		LEA.L	0x21822,A1
00021878 70 12                    |p       |		MOVEQ.L	#0x12,D0
0002187a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002187c 51 c8 ff fc              |Q       |		DBF	D0,0x2187a
00021880 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021882 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021886 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002188a 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
0002188e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021894 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021896 48 52                    |HR      |		PEA.L	(A2)
00021898 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
0002189e de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000218a2 42 27                    |B'      |		CLR.B	-(A7)
000218a4 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000218a8 2f 12                    |/       |		MOVE.L	(A2),-(A7)
000218aa 4e b9 00 01 04 ba        |N       |		JSR	ExpRun(a: Bool; adr: Byte; b: Pointer)
000218b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000218b2 48 52                    |HR      |		PEA.L	(A2)
000218b4 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000218ba 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000218bc 4c df 07 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2
000218c0 4e 5e                    |N^      |		UNLK	A6
000218c2 4e 75                    |Nu      |		RTS
000218c4					exp_RUN_CHECK.IOC():
000218c4 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000218ca 00 08                    |        |		.CONST	0x0008			; Stack-delta
000218cc 0d 52 55 4e 5f 43 48 45  | RUN_CHE|		.TXT	13,'RUN_CHECK.IOC'
000218da 00                       |        |		.CONST	0x0
000218db 04                       |        |		.CONST	0x4			; DIPROC address
000218dc 00                       |        |		.CONST	0x0			; Output Parameters
000218dd 00                       |        |		.CONST	0x0			; Input Parameters
000218de					exp_PREP_RUN.IOC(Sw_2):
000218de 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000218e4 00 0a                    |        |		.CONST	0x000a			; Stack-delta
000218e6 0c 50 52 45 50 5f 52 55  | PREP_RU|		.TXT	12,'PREP_RUN.IOC'
000218f3 00                       |        |		.CONST	0x0
000218f4 04                       |        |		.CONST	0x4			; DIPROC address
000218f5 00                       |        |		.CONST	0x0			; Output Parameters
000218f6 01                       |        |		.CONST	0x1			; Input Parameters
000218f7 01                       |        |		.CONST	0x1			; In arg [2]
000218f8					exp_MF.IOC():
000218f8 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000218fe 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021900 06 4d 46 2e 49 4f 43     | MF.IOC |		.TXT	6,'MF.IOC'
00021907 00                       |        |		.CONST	0x0
00021908 04                       |        |		.CONST	0x4			; DIPROC address
00021909 00                       |        |		.CONST	0x0			; Output Parameters
0002190a 00                       |        |		.CONST	0x0			; Input Parameters
0002190b 00                       |        |		.PAD	0x0
0002190c 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
0002191a ; --------------------------------------------------------------------------------------
0002191a ; OMSI PASCAL Function
0002191a ;    <LVAR  0x008 1(r)>
0002191a ; --------------------------------------------------------------------------------------
0002191a					PROG_FAIL:
0002191a 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
0002191e bf d5                    |        |		CMPA.L	(A5),A7
00021920 62 06                    |b       |		BHI	0x21928
00021922 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021926 4e 76                    |Nv      |		TRAPV
00021928 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
0002192c 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00021930 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
00021934 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021936 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021938 51 c8 ff fc              |Q       |		DBF	D0,0x21936
0002193c 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00021940 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021942 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00021946 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002194a 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
0002194e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021954 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021956 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0002195a 48 80                    |H       |		EXTB.W	D0
0002195c 48 c0                    |H       |		EXTW.L	D0
0002195e 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021960 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021966 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021968 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002196e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021970 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021976 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002197a 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0002197e 4e 5e                    |N^      |		UNLK	A6
00021980 4e 75                    |Nu      |		RTS
00021982 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
00021990 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
0002199e 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
000219ac 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
000219be 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
000219d6 ; --------------------------------------------------------------------------------------
000219d6 ; OMSI PASCAL Function
000219d6 ;    <LVAR  0x00e 1(r)>
000219d6 ;    <LVAR  0x00a 4(r)>
000219d6 ;    <LVAR  0x008 1(r)>
000219d6 ; --------------------------------------------------------------------------------------
000219d6					EXP_FAIL:
000219d6 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
000219da bf d5                    |        |		CMPA.L	(A5),A7
000219dc 62 06                    |b       |		BHI	0x219e4
000219de 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000219e2 4e 76                    |Nv      |		TRAPV
000219e4 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
000219e8 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000219ec 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000219f2 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
000219f8 72 01                    |r       |		MOVEQ.L	#0x01,D1
000219fa 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
000219fc 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
000219fe 78 12                    |x       |		MOVEQ.L	#0x12,D4
00021a00 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00021a02 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00021a08 41 fa ff b4              |A       |		LEA.L	0x219be,A0
00021a0c 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021a0e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021a10 51 c8 ff fc              |Q       |		DBF	D0,0x21a0e
00021a14 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a16 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021a1a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a1c 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021a1e 4e 93                    |N       |		JSR	(A3)
00021a20 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a22 4e 94                    |N       |		JSR	(A4)
00021a24 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a26 20 4f                    | O      |		MOVEA.L	A7,A0
00021a28 43 fa ff 58              |C  X    |		LEA.L	0x21982,A1
00021a2c 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021a2e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021a30 51 c8 ff fc              |Q       |		DBF	D0,0x21a2e
00021a34 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021a36 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021a3a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a3c 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021a3e 4e 93                    |N       |		JSR	(A3)
00021a40 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021a42 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
00021a46 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00021a4c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021a4e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021a54 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a56 4e 94                    |N       |		JSR	(A4)
00021a58 de c4                    |        |		ADDA.W	D4,A7
00021a5a 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00021a5e b0 c1                    |        |		CMPA.W	D1,A0
00021a60 67 48                    |gH      |		BEQ	0x21aaa
00021a62 9e c5                    |        |		SUBA.W	D5,A7
00021a64 22 4f                    |"O      |		MOVEA.L	A7,A1
00021a66 45 fa ff 28              |E  (    |		LEA.L	0x21990,A2
00021a6a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021a6c 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021a6e 51 c8 ff fc              |Q       |		DBF	D0,0x21a6c
00021a72 9e c3                    |        |		SUBA.W	D3,A7
00021a74 22 4f                    |"O      |		MOVEA.L	A7,A1
00021a76 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00021a7a 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00021a7c 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00021a7e 51 c8 ff fc              |Q       |		DBF	D0,0x21a7c
00021a82 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021a84 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00021a88 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a8a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021a8c 4e 93                    |N       |		JSR	(A3)
00021a8e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a90 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021a94 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a96 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021a98 4e 93                    |N       |		JSR	(A3)
00021a9a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a9c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021aa2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021aa4 4e 94                    |N       |		JSR	(A4)
00021aa6 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021aaa 9e c5                    |        |		SUBA.W	D5,A7
00021aac 20 4f                    | O      |		MOVEA.L	A7,A0
00021aae 43 fa fe ee              |C       |		LEA.L	0x2199e,A1
00021ab2 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021ab4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021ab6 51 c8 ff fc              |Q       |		DBF	D0,0x21ab4
00021aba 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021abc 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021ac0 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021ac2 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021ac4 4e 93                    |N       |		JSR	(A3)
00021ac6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021ac8 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00021acc 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
00021ad2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021ad4 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021ada 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021adc 4e 94                    |N       |		JSR	(A4)
00021ade 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021ae0 20 4f                    | O      |		MOVEA.L	A7,A0
00021ae2 43 fa fe da              |C       |		LEA.L	0x219be,A1
00021ae6 70 16                    |p       |		MOVEQ.L	#0x16,D0
00021ae8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021aea 51 c8 ff fc              |Q       |		DBF	D0,0x21ae8
00021aee 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00021af2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021af4 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021af8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021afa 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00021afe 4e 93                    |N       |		JSR	(A3)
00021b00 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b02 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021b08 de c3                    |        |		ADDA.W	D3,A7
00021b0a 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00021b0e 4e 5e                    |N^      |		UNLK	A6
00021b10 4e 75                    |Nu      |		RTS