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

⟦924badfc1⟧ M200

    Length: 7168 (0x1c00)
    Types: M200
    Notes: M200_PROGRAM
    Names: »DBUSULOAD.M200«

Derivation

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

Disassembly

0x20274


@ 20274
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(rw)>
    <POP 20274-202fc Body>                                              
        <POP 20274-2028a Prologue>                           Σ0         ↓
        <POP 2028a-2028c Naked>                              Σ0         ↓
            <MI 2028a  MOVEQ.L #0x00,D6>                                        {}
        <POP 2028c-202a8 Naked>                              Σ0         ↓ →0x202ae ←0x202e4
            <MI 2028c  MOVE.L  (A6+0x8),D0>                                     {}
            <POP 0x20290 LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 2029a  ASL.L   #0x1,D0>                                         {}
            <MI 2029c  CLR.L   D1>                                              {}
            <MI 2029e  MOVE.W  (A4+D0.L),D1>                                    {}
            <MI 202a2  MOVE.L  D1,D7>                                           {}
            <MI 202a4  TST.B   D6>                                              {}
            <MI 202a6  BEQ     0x202ae>                                         {}
        <POP 202a8-202ae Naked>                              Σ0         →0x202be
            <MI 202a8  ADDQ.L  #0x1,(A6+0x8)>                                   {}
            <MI 202ac  BRA     0x202be>                                         {}
        <POP 202ae-202be Naked>                              Σ0         ↓ ←0x2028c
            <MI 202ae  MOVE.L  D7,D4>                                           {}
            <MI 202b0  MOVE.L  #0x100,D3>                                       {}
            <Call 0x202b6 0x10294>                                              {}
                ?divs_d3_d4
            <MI 202bc  MOVE.L  D4,D7>                                           {}
        <POP 202be-202cc Naked>                              Σ0         ↓ →0x202e4 ←0x202a8
            <MI 202be  ANDI.L  #0x000000ff,D7>                                  {}
            <MI 202c4  NEG.B   D6>                                              {}
            <MI 202c6  ADDQ.B  #0x1,D6>                                         {}
            <MI 202c8  TST.L   D7>                                              {}
            <MI 202ca  BEQ     0x202e4>                                         {}
        <POP 202cc-202e4 Naked>                              Σ0         ↓
            <MI 202cc  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <POP 0x202d0 LimitCheck 0x0 ≤ D7 ≤ 0xff>                            {[4, '(A6+0xc)']}
            <MI 202da  MOVE.B  D7,-(A7)>                     Δ-2                {[4, '(A6+0xc)']|[2, 'D7']}
            <Call 0x202dc 0x102c0>                                              {[4, '(A6+0xc)']|[2, 'D7']}
                AppendChar(MOD b : String; a : char)
            <POP 202e2-202e4 StackAdj>                       Δ+6                {}
        <POP 202e4-202e8 Naked>                              Σ0         ↓ →0x2028c ←0x202be
            <MI 202e4  TST.L   D7>                                              {}
            <MI 202e6  BNE     0x2028c>                                         {}
        <POP 202e8-202f4 Naked>                              Σ0         ↓
            <MI 202e8  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x202ec 0x103e0>                                              {[4, '(A6+0xc)']}
                WriteConsoleStringCrLf(str : String)
            <POP 202f2-202f4 StackAdj>                       Δ+4                {}
        <POP 202f4-202fc Epilogue>                           Σ0         

0x202fc


@ 202fc
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x006 @ 4(r)>
        <LVAR -0x00a @ 4(rw)>
        <LVAR -0x00e @ 4(rw)>
        <LVAR -0x012 @ 4(rw)>
        <LVAR -0x018 @ 1(r)>
        <LVAR -0x414 2(r)>
        <LVAR -0x416 2(r)>
        <LVAR -0x418 @ 2(r)>
    <POP 202fc-20632 Body>                                              
        <POP 202fc-20312 Prologue>                           Σ0         ↓
        <POP 20312-20322 RegCacheLoad>                       Σ0         ↓
        <POP 20322-20398 Naked>                              Σ0 Δ-4     ↓ →0x203c2
            <MI 20322  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 20326  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 20328  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[4, 'A0']|[4, '(A6+0x18)']}
            <MI 2032c  CLR.B   -(A7)>                        Δ-2                {[4, 'A0']|[4, '(A6+0x18)']|[#0]}
            <Const 0x2032e 0x2.2>                            Δ-2                {[4, 'A0']|[4, '(A6+0x18)']|[#0]|[#2]}
            <Const 0x20330 0x0.4>                            Δ-4                {[4, 'A0']|[4, '(A6+0x18)']|[#0]|[#2]|[##0]}
            <Pointer.fp 0x20334 <LVAR -0x018 @ 1(r)>>        Δ-4                {[4, 'A0']|[4, '(A6+0x18)']|[#0]|[#2]|[##0]|[@@-24]}
            <MI 20336  PEA.L   (A0)>                         Δ-4                {[4, 'A0']|[4, '(A6+0x18)']|[#0]|[#2]|[##0]|[@@-24]|[4, '^(A0)']}
            <Call 0x20338 0x10380>                                              {[4, 'A0']|[4, '(A6+0x18)']|[#0]|[#2]|[##0]|[@@-24]|[4, '^(A0)']}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 2033e-20340 StackAdj>                       Δ+20               {[4, 'A0']}
            <MI 20340  MOVEA.L (A0),A1>                                         {[4, 'A0']}
            <MI 20342  MOVE.W  (A1+0x20),D0>                                    {[4, 'A0']}
            <MI 20346  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 20348  MOVE.L  D0,D7>                                           {[4, 'A0']}
            <MI 2034a  MOVE.L  (A0),-(A7)>                   Δ-4                {[4, 'A0']|[4, '(A0)']}
            <MI 2034c  CLR.W   -(A7)>                        Δ-2                {[4, 'A0']|[4, '(A0)']|[#0]}
            <MI 2034e  CLR.W   -(A7)>                        Δ-2                {[4, 'A0']|[4, '(A0)']|[#0]|[#0]}
            <Const 0x20350 0x200.2>                          Δ-2                {[4, 'A0']|[4, '(A0)']|[#0]|[#0]|[#512]}
            <Const 0x20354 0x2.2>                            Δ-2                {[4, 'A0']|[4, '(A0)']|[#0]|[#0]|[#512]|[#2]}
            <MI 20356  LEA.L   (A6-0x418),A1>                                   {[4, 'A0']|[4, '(A0)']|[#0]|[#0]|[#512]|[#2]}
            <MI 2035a  MOVE.L  A1,-(A7)>                     Δ-4                {[4, 'A0']|[4, '(A0)']|[#0]|[#0]|[#512]|[#2]|[4, 'A1']}
            <Pointer.fp 0x2035c <LVAR -0x018 @ 1(r)>>        Δ-4                {[4, 'A0']|[4, '(A0)']|[#0]|[#0]|[#512]|[#2]|[4, 'A1']|[@@-24]}
            <Call 0x2035e 0x10384>                                              {[4, 'A0']|[4, '(A0)']|[#0]|[#0]|[#512]|[#2]|[4, 'A1']|[@@-24]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 20364-20366 StackAdj>                       Δ+20               {[4, 'A0']}
            <MI 20366  MOVEA.L (A6+0xc),A1>                                     {[4, 'A0']}
            <MI 2036a  CLR.L   D0>                                              {[4, 'A0']}
            <MI 2036c  MOVE.W  (A6-0x418),D0>                                   {[4, 'A0']}
            <MI 20370  MOVE.L  D0,(A1)>                                         {[4, 'A0']}
            <MI 20372  MOVEA.L (A6+0x8),A1>                                     {[4, 'A0']}
            <MI 20376  MOVE.W  (A6-0x416),D1>                                   {[4, 'A0']}
            <MI 2037a  LSR.W   #0x8,D1>                                         {[4, 'A0']}
            <MI 2037c  MOVE.B  D1,(A1)>                                         {[4, 'A0']}
            <MI 2037e  MOVE.W  (A6-0x416),D1>                                   {[4, 'A0']}
            <MI 20382  ANDI.W  #0x00ff,D1>                                      {[4, 'A0']}
            <POP 0x20386 LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {[4, 'A0']}
            <MI 2038a  MOVE.B  D1,(A1+0x1)>                                     {[4, 'A0']}
            <MI 2038e  MOVE.W  (A6-0x414),D1>                                   {[4, 'A0']}
            <MI 20392  CMPI.W  #0x00c8,D1>                                      {[4, 'A0']}
            <MI 20396  BEQ     0x203c2>                                         {[4, 'A0']}
        <POP 20398-203c2 Naked>                              Σ-4        ↓
            <Blob 0x20398 [44] @>                            Δ-44               {[-4-]|[«44""»]}
            <Const 0x203a4 0xe.2>                            Δ-2                {[-4-]|[«44""»]|[#14]}
            <POP 203a8-203aa StackAdj>                       Δ-4                {[-4-]|[«44""»]|[#14]|[-4-]}
            <Lit 0x203aa 44>                                                    {[-4-]|[«44""»]|[#14]|[$$Microcode is not for this type of processor.]}
            <Call 0x203b8 0x103b8>                                              {[-4-]|[«44""»]|[#14]|[$$Microcode is not for this type of processor.]}
                PopProgram(status : Byte; msg : String)
            <POP 203be-203c2 StackAdj>                       Δ+50               {[-4-]}
        <POP 203c2-203d8 Naked>                              Σ-4        ↓ →0x20402 ←0x20322
            <MI 203c2  MOVE.L  D7,D1>                                           {[-4-]}
            <MI 203c4  SUBI.L  #0x00000029,D1>                                  {[-4-]}
            <MI 203ca  MOVE.L  D0,D4>                                           {[-4-]}
            <MI 203cc  MOVEQ.L #0x20,D3>                                        {[-4-]}
            <Call 0x203ce 0x10294>                                              {[-4-]}
                ?divs_d3_d4
            <MI 203d4  CMP.L   D4,D1>                                           {[-4-]}
            <MI 203d6  BEQ     0x20402>                                         {[-4-]}
        <POP 203d8-20402 Naked>                              Σ-4        ↓
            <Blob 0x203d8 [36] @>                            Δ-36               {[-4-]|[«36""»]}
            <Const 0x203e4 0xe.2>                            Δ-2                {[-4-]|[«36""»]|[#14]}
            <POP 203e8-203ea StackAdj>                       Δ-4                {[-4-]|[«36""»]|[#14]|[-4-]}
            <Lit 0x203ea 36>                                                    {[-4-]|[«36""»]|[#14]|[$$Microcode file size is inconsistent.]}
            <Call 0x203f8 0x103b8>                                              {[-4-]|[«36""»]|[#14]|[$$Microcode file size is inconsistent.]}
                PopProgram(status : Byte; msg : String)
            <POP 203fe-20402 StackAdj>                       Δ+42               {[-4-]}
        <POP 20402-204da Naked>                              Σ-4        ↓ →0x2061c ←0x203c2
            <Blob 0x20402 [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x20406 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <POP 2040a-2040c StackAdj>                       Δ-8                {[-4-]|[«4""»]|[«4""»]|[-8-]}
            <Lit 0x2040c 8>                                                     {[-4-]|[«4""»]|[«4""»]|[-4-]|[$$File  :_]}
            <MI 20418  MOVE.L  (A6+0x18),(A7)>                                  {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x18)']}
            <POP 20416-20418 StackAdj>                       Δ-8                {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x18)']|[-8-]}
            <Call 0x2041c 0x102cc>                                              {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x18)']|[-8-]}
                StringDup(a : String) : String
            <POP 20422-20424 StackAdj>                       Δ+4                {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x18)']|[-4-]}
            <Call 0x20424 0x102d0>                                              {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x18)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2042a-2042c StackAdj>                       Δ+8                {[-4-]|[«4""»]|[«4""»]|[-4-]}
            <Call 0x2042c 0x103e0>                                              {[-4-]|[«4""»]|[«4""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20432-20434 StackAdj>                       Δ+8                {[-4-]|[«4""»]}
            <POP 20434-20435 StackAdj>                       Δ+4                {[-4-]}
            <Blob 0x20435 [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x20438 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <POP 2043c-2043e StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x2043e 8>                                                     {[-4-]|[«4""»]|[«4""»]|[$$Bound :_]}
            <Const 0x2044c 0x4.4>                            Δ-4                {[-4-]|[«4""»]|[«4""»]|[$$Bound :_]|[##4]}
            <MI 20450  LEA.L   (A6-0x418),A4>                                   {[-4-]|[«4""»]|[«4""»]|[$$Bound :_]|[##4]}
            <Call 0x20454 0x20274>                                              {[-4-]|[«4""»]|[«4""»]|[$$Bound :_]|[##4]}
            <POP 20458-2045c StackAdj>                       Δ+12               {[-4-]|[«4""»]}
            <POP 2045c-2045d StackAdj>                       Δ+4                {[-4-]}
            <Blob 0x2045d [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x20460 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <POP 20464-20466 StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x20466 8>                                                     {[-4-]|[«4""»]|[«4""»]|[$$Delta :_]}
            <Const 0x20474 0x3c.4>                           Δ-4                {[-4-]|[«4""»]|[«4""»]|[$$Delta :_]|[##60]}
            <MI 20478  LEA.L   (A6-0x418),A4>                                   {[-4-]|[«4""»]|[«4""»]|[$$Delta :_]|[##60]}
            <Call 0x2047c 0x20274>                                              {[-4-]|[«4""»]|[«4""»]|[$$Delta :_]|[##60]}
            <POP 20480-20484 StackAdj>                       Δ+12               {[-4-]|[«4""»]}
            <POP 20484-20485 StackAdj>                       Δ+4                {[-4-]}
            <Blob 0x20485 [4] @>                             Δ-4                {[-4-]|[«4""»]}
            <Blob 0x20488 [4] @>                             Δ-4                {[-4-]|[«4""»]|[«4""»]}
            <POP 2048c-2048e StackAdj>                       Δ-4                {[-4-]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x2048e 8>                                                     {[-4-]|[«4""»]|[«4""»]|[$$Mom   :_]}
            <Const 0x2049c 0x14.4>                           Δ-4                {[-4-]|[«4""»]|[«4""»]|[$$Mom   :_]|[##20]}
            <MI 204a0  LEA.L   (A6-0x418),A4>                                   {[-4-]|[«4""»]|[«4""»]|[$$Mom   :_]|[##20]}
            <Call 0x204a4 0x20274>                                              {[-4-]|[«4""»]|[«4""»]|[$$Mom   :_]|[##20]}
            <POP 204a8-204ac StackAdj>                       Δ+16               {[-4-]}
            <Blob 0x204ac [10] @>                            Δ-10               {[-4-]|[«10""»]}
            <POP 204b8-204ba StackAdj>                       Δ-4                {[-4-]|[«10""»]|[-4-]}
            <Lit 0x204ba 10>                                                    {[-4-]|[«10""»]|[$$LAST_UCODE]}
            <MI 204c8  MOVE.L  (A7)+,(A6-0x12)>              Δ+4                {[-4-]|[«10""»]}
            <POP 204cc-204d0 StackAdj>                       Δ+10               {[-4-]}
            <MI 204d0  MOVEA.L (A6+0x14),A0>                                    {[-4-]}
            <MI 204d4  TST.B   (A0)>                                            {[-4-]}
            <MI 204d6  BNE     0x2061c>                                         {[-4-]}
        <POP 204da-204f8 Naked>                              Σ-4        ↓ →0x204fe
            <MI 204da  MOVE.L  (A6-0x12),-(A7)>              Δ-4                {[-4-]|[4, '(A6-0x12)']}
            <MI 204de  CLR.B   -(A7)>                        Δ-2                {[-4-]|[4, '(A6-0x12)']|[#0]}
            <MI 204e0  CLR.B   -(A7)>                        Δ-2                {[-4-]|[4, '(A6-0x12)']|[#0]|[#0]}
            <Const 0x204e2 0x0.4>                            Δ-4                {[-4-]|[4, '(A6-0x12)']|[#0]|[#0]|[##0]}
            <Pointer.fp 0x204e6 <LVAR -0x018 @ 1(r)>>        Δ-4                {[-4-]|[4, '(A6-0x12)']|[#0]|[#0]|[##0]|[@@-24]}
            <Pointer.fp 0x204e8 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-4-]|[4, '(A6-0x12)']|[#0]|[#0]|[##0]|[@@-24]|[@@-6]}
            <Call 0x204ec 0x10380>                                              {[-4-]|[4, '(A6-0x12)']|[#0]|[#0]|[##0]|[@@-24]|[@@-6]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 204f2-204f4 StackAdj>                       Δ+20               {[-4-]}
            <MI 204f4  TST.B   (A6-0x18)>                                       {[-4-]}
            <MI 204f6  BEQ     0x204fe>                                         {[-4-]}
        <POP 204f8-204fe Naked>                              Σ-4        →0x2061c
            <MI 204f8  MOVE.B  #0x01,(A0)>                                      {[-4-]}
            <MI 204fa  BRA     0x2061c>                                         {[-4-]}
        <POP 204fe-2053a Naked>                              Σ-4        ↓ →0x2053c ←0x204da
            <Pointer.fp 0x204fe <LVAR -0x00e @ 4(rw)>>       Δ-4                {[-4-]|[@@-14]}
            <Call 0x20502 0x102b8>                                              {[-4-]|[@@-14]}
                NewString(VAR a : String)
            <MI 20508  MOVE.L  (A6-0x6),(A7)>                                   {[-4-]|[4, '(A6-0x6)']}
            <MI 2050c  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, '(A6-0x6)']|[#0]}
            <MI 2050e  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]}
            <Const 0x20510 0x40.2>                           Δ-2                {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]|[#64]}
            <Const 0x20514 0x2.2>                            Δ-2                {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]|[#64]|[#2]}
            <MI 20516  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]|[#64]|[#2]|[4, '(A6-0xe)']}
            <Pointer.fp 0x2051a <LVAR -0x018 @ 1(r)>>        Δ-4                {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]|[#64]|[#2]|[4, '(A6-0xe)']|[@@-24]}
            <Call 0x2051c 0x10384>                                              {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]|[#64]|[#2]|[4, '(A6-0xe)']|[@@-24]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 20522-20526 StackAdj>                       Δ+14               {[-4-]|[4, '(A6-0x6)']|[#0]}
            <MI 20526  MOVE.L  (A6-0xe),(A7)>                                   {[-4-]|[-2-]|[4, '(A6-0xe)']}
            <MI 2052a  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-4-]|[-2-]|[4, '(A6-0xe)']|[4, '(A6+0x18)']}
            <Call 0x2052e 0x102c8>                                              {[-4-]|[-2-]|[4, '(A6-0xe)']|[4, '(A6+0x18)']}
                StringEqual(a, b : String) : Byte
            <POP 20534-20536 StackAdj>                       Δ+8                {[-4-]|[-2-]}
            <MI 20536  TST.B   (A7)+>                        Δ+2                {[-4-]}
            <MI 20538  BNE     0x2053c>                                         {[-4-]}
        <POP 2053a-2053c Naked>                              Σ-4        ↓
            <MI 2053a  MOVE.B  #0x01,(A0)>                                      {[-4-]}
        <POP 2053c-2054e Naked>                              Σ-4        ↓ →0x205d2 ←0x204fe
            <Pointer.fp 0x2053c <LVAR -0x00e @ 4(rw)>>       Δ-4                {[-4-]|[@@-14]}
            <Call 0x20540 0x102bc>                                              {[-4-]|[@@-14]}
                FreeString(VAR a : String)
            <POP 20546-20548 StackAdj>                       Δ+4                {[-4-]}
            <MI 20548  TST.B   (A0)>                                            {[-4-]}
            <MI 2054a  BNE     0x205d2>                                         {[-4-]}
        <POP 2054e-205b8 Naked>                              Σ-4        ↓ →0x205ba
            <POP 2054e-20550 StackAdj>                       Δ-4                {[-8-]}
            <MI 20550  MOVEA.L (A7+0x4),A1>                                     {[-8-]}
            <MI 20554  MOVEA.L (A1),A1>                                         {[-8-]}
            <POP 20556-20558 StackAdj>                       Δ-4                {[-12-]}
            <MI 20558  MOVE.B  (A1+0x3a),(A7)>                                  {[-12-]}
            <MI 2055c  MOVE.B  (A1+0x3b),(A7+0x1)>                              {[-12-]}
            <MI 20562  MOVE.B  (A1+0x3c),(A7+0x2)>                              {[-12-]}
            <MI 20568  MOVE.B  (A1+0x3d),(A7+0x3)>                              {[-12-]}
            <Call 0x2056e 0x10308>                                              {[-12-]}
                TimeToText()
            <POP 20574-20576 StackAdj>                       Δ+4                {[-8-]}
            <MI 20576  MOVE.L  (A7),(A6-0xe)>                                   {[-8-]}
            <MI 2057a  MOVEA.L (A6-0x6),A1>                                     {[-8-]}
            <POP 2057e-20580 StackAdj>                       Δ-4                {[-12-]}
            <MI 20580  MOVE.B  (A1+0x3a),(A7)>                                  {[-12-]}
            <MI 20584  MOVE.B  (A1+0x3b),(A7+0x1)>                              {[-12-]}
            <MI 2058a  MOVE.B  (A1+0x3c),(A7+0x2)>                              {[-12-]}
            <MI 20590  MOVE.B  (A1+0x3d),(A7+0x3)>                              {[-12-]}
            <Call 0x20596 0x10308>                                              {[-12-]}
                TimeToText()
            <POP 2059c-2059e StackAdj>                       Δ+4                {[-8-]}
            <MI 2059e  MOVE.L  (A7),(A6-0xa)>                                   {[-8-]}
            <POP 205a2-205a4 StackAdj>                       Δ+2                {[-6-]}
            <MI 205a4  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[-6-]|[4, '(A6-0xe)']}
            <MI 205a8  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-6-]|[4, '(A6-0xe)']|[4, '(A6-0xa)']}
            <Call 0x205ac 0x102c8>                                              {[-6-]|[4, '(A6-0xe)']|[4, '(A6-0xa)']}
                StringEqual(a, b : String) : Byte
            <POP 205b2-205b4 StackAdj>                       Δ+8                {[-6-]}
            <MI 205b4  TST.B   (A7)+>                        Δ+2                {[-4-]}
            <MI 205b6  BNE     0x205ba>                                         {[-4-]}
        <POP 205b8-205ba Naked>                              Σ-4        ↓
            <MI 205b8  MOVE.B  #0x01,(A0)>                                      {[-4-]}
        <POP 205ba-205d2 Naked>                              Σ-4        ↓ ←0x2054e
            <Pointer.fp 0x205ba <LVAR -0x00e @ 4(rw)>>       Δ-4                {[-4-]|[@@-14]}
            <Call 0x205be 0x102bc>                                              {[-4-]|[@@-14]}
                FreeString(VAR a : String)
            <POP 205c4-205c6 StackAdj>                       Δ+4                {[-4-]}
            <Pointer.fp 0x205c6 <LVAR -0x00a @ 4(rw)>>       Δ-4                {[-4-]|[@@-10]}
            <Call 0x205ca 0x102bc>                                              {[-4-]|[@@-10]}
                FreeString(VAR a : String)
            <POP 205d0-205d2 StackAdj>                       Δ+4                {[-4-]}
        <POP 205d2-2061c Naked>                              Σ-4        ↓ ←0x2053c
            <Pointer.fp 0x205d2 <LVAR -0x00e @ 4(rw)>>       Δ-4                {[-4-]|[@@-14]}
            <Call 0x205d6 0x102b8>                                              {[-4-]|[@@-14]}
                NewString(VAR a : String)
            <MI 205dc  MOVE.L  (A6-0x6),(A7)>                                   {[-4-]|[4, '(A6-0x6)']}
            <MI 205e0  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, '(A6-0x6)']|[#0]}
            <MI 205e2  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]}
            <Const 0x205e4 0x40.2>                           Δ-2                {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]|[#64]}
            <Const 0x205e8 0x2.2>                            Δ-2                {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]|[#64]|[#2]}
            <MI 205ea  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]|[#64]|[#2]|[4, '(A6-0xe)']}
            <Pointer.fp 0x205ee <LVAR -0x018 @ 1(r)>>        Δ-4                {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]|[#64]|[#2]|[4, '(A6-0xe)']|[@@-24]}
            <Call 0x205f0 0x10388>                                              {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]|[#64]|[#2]|[4, '(A6-0xe)']|[@@-24]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 205f6-205f8 StackAdj>                       Δ+20               {[-4-]}
            <Pointer.fp 0x205f8 <LVAR -0x00e @ 4(rw)>>       Δ-4                {[-4-]|[@@-14]}
            <Call 0x205fc 0x102bc>                                              {[-4-]|[@@-14]}
                FreeString(VAR a : String)
            <POP 20602-20604 StackAdj>                       Δ+2                {[-4-]|[-2-]}
            <MI 20604  CLR.B   (A7)>                                            {[-4-]|[-2-]}
            <Const 0x20606 0x2.2>                            Δ-2                {[-4-]|[-2-]|[#2]}
            <Const 0x20608 0x1.4>                            Δ-4                {[-4-]|[-2-]|[#2]|[##1]}
            <Pointer.fp 0x2060c <LVAR -0x018 @ 1(r)>>        Δ-4                {[-4-]|[-2-]|[#2]|[##1]|[@@-24]}
            <Pointer.fp 0x2060e <LVAR -0x006 @ 4(r)>>        Δ-4                {[-4-]|[-2-]|[#2]|[##1]|[@@-24]|[@@-6]}
            <Call 0x20612 0x1038c>                                              {[-4-]|[-2-]|[#2]|[##1]|[@@-24]|[@@-6]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20618-2061c StackAdj>                       Δ+16               {[-4-]}
        <POP 2061c-2062a Naked>                              Σ-4 Δ+4    ↓ ←0x20402 ←0x204f8
            <POP 2061c-2061e StackAdj>                       Δ+4                {}
            <Pointer.fp 0x2061e <LVAR -0x012 @ 4(rw)>>       Δ-4                {[@@-18]}
            <Call 0x20622 0x102bc>                                              {[@@-18]}
                FreeString(VAR a : String)
            <POP 20628-2062a StackAdj>                       Δ+4                {}
        <POP 2062a-20632 Epilogue>                           Σ0         

0x20632


@ 20632
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(rw)>
        <LVAR -0x010 @ 4(rw)>
    <POP 20632-20730 Body>                                              
        <POP 20632-20648 Prologue>                           Σ0         ↓
        <POP 20648-2065a RegCacheLoad>                       Σ0         ↓
        <POP 2065a-20728 Naked>                              Σ0         ↓
            <Blob 0x2065a [10] @>                            Δ-10               {[«10""»]}
            <POP 20666-20668 StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x20668 10>                                                    {[«10""»]|[$$LAST_UCODE]}
            <MI 20678  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«10""»]}
            <POP 2067a-2067c StackAdj>                       Δ+10               {}
            <MI 2067c  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 20680-20682 StackAdj>                       Δ-30               {[-30-]}
            <MI 20682  MOVEA.L A7,A1>                                           {[-30-]}
            <MI 20684  MOVEA.L A0,A2>                                           {[-30-]}
            <BlockMove 30,A2,A1>                                                {[-30-]}
            <POP 2068e-20690 StackAdj>                       Δ-4                {[-34-]}
            <Lit 0x20690>                                                       {[-30-]|[$$…]}
                <Pointer.sp 0x20690 4>                       Δ-4        
                <Const 0x20694 0x1.2>                        Δ-2        
                <Const 0x20696 0x1e.2>                       Δ-2        
                <Call 0x20698 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2069e-206a0 StackAdj>                   Δ+8        
            <MI 206a0  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[-30-]}
            <POP 206a4-206a8 StackAdj>                       Δ+26               {[-4-]}
            <MI 206a8  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <Const 0x206aa 0x1.2>                            Δ-2                {[4, '(A6-0x10)']|[#1]}
            <Const 0x206ac 0x2.2>                            Δ-2                {[4, '(A6-0x10)']|[#1]|[#2]}
            <Const 0x206ae 0x1.4>                            Δ-4                {[4, '(A6-0x10)']|[#1]|[#2]|[##1]}
            <Pointer.fp 0x206b2 <LVAR -0x004 @>>             Δ-4                {[4, '(A6-0x10)']|[#1]|[#2]|[##1]|[@@-4]}
            <Pointer.fp 0x206b6 <LVAR -0x008 @ 4(r)>>        Δ-4                {[4, '(A6-0x10)']|[#1]|[#2]|[##1]|[@@-4]|[@@-8]}
            <Call 0x206b8 0x10380>                                              {[4, '(A6-0x10)']|[#1]|[#2]|[##1]|[@@-4]|[@@-8]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 206be-206c0 StackAdj>                       Δ+16               {[4, '(A6-0x10)']}
            <MI 206c0  MOVE.L  (A6-0x8),(A7)>                                   {[4, '(A6-0x8)']}
            <MI 206c2  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x8)']|[#0]}
            <MI 206c4  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x8)']|[#0]|[#0]}
            <Const 0x206c6 0x40.2>                           Δ-2                {[4, '(A6-0x8)']|[#0]|[#0]|[#64]}
            <Const 0x206ca 0x2.2>                            Δ-2                {[4, '(A6-0x8)']|[#0]|[#0]|[#64]|[#2]}
            <MI 206cc  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0x8)']|[#0]|[#0]|[#64]|[#2]|[4, '(A6-0xc)']}
            <Pointer.fp 0x206d0 <LVAR -0x004 @>>             Δ-4                {[4, '(A6-0x8)']|[#0]|[#0]|[#64]|[#2]|[4, '(A6-0xc)']|[@@-4]}
            <Call 0x206d4 0x10388>                                              {[4, '(A6-0x8)']|[#0]|[#0]|[#64]|[#2]|[4, '(A6-0xc)']|[@@-4]}
                WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
            <POP 206da-206de StackAdj>                       Δ+20               {}
            <MI 206de  MOVEA.L (A6-0x8),A1>                                     {}
            <MI 206e0  MOVE.B  (A0+0x3a),(A1+0x3a)>                             {}
            <MI 206e6  MOVE.B  (A0+0x3b),(A1+0x3b)>                             {}
            <MI 206ec  MOVE.B  (A0+0x3c),(A1+0x3c)>                             {}
            <MI 206f2  MOVE.B  (A0+0x3d),(A1+0x3d)>                             {}
            <MI 206f8  MOVE.B  #0x01,(A1+0x4c)>                                 {}
            <MI 206fc  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x206fe 0x2.2>                            Δ-2                {[#0]|[#2]}
            <Const 0x20700 0x1.4>                            Δ-4                {[#0]|[#2]|[##1]}
            <Pointer.fp 0x20704 <LVAR -0x004 @>>             Δ-4                {[#0]|[#2]|[##1]|[@@-4]}
            <Pointer.fp 0x20708 <LVAR -0x008 @ 4(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
            <Call 0x2070a 0x1038c>                                              {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20710-20712 StackAdj>                       Δ+16               {}
            <Pointer.fp 0x20712 <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x20716 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 2071c-2071e StackAdj>                       Δ+4                {}
            <Pointer.fp 0x2071e <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x20720 0x102bc>                                              {[@@-16]}
                FreeString(VAR a : String)
            <POP 20726-20728 StackAdj>                       Δ+4                {}
        <POP 20728-20730 Epilogue>                           Σ0         

0x20730


@ 20730
        <LVAR  0x00c @ 4(r)>
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
    <POP 20730-2081c Body>                                   Δ+32       
        <POP 20730-20746 Prologue>                           Σ0         ↓
        <POP 20746-2074e RegCacheLoad>                       Σ0         ↓
        <POP 2074e-20756 Naked>                              Σ0 Δ-2     ↓
            <MI 2074e  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <MI 20752  MOVE.B  (A6+0xa),D7>                                     {[2, '(A6+0x8)']}
        <POP 20756-2075c Naked>                              Σ-2        ↓ →0x20806 ←0x207ac
            <MI 20756  CMP.B   (A7),D7>                                         {[-2-]}
            <MI 20758  BGT     0x20806>                                         {[-2-]}
        <POP 2075c-20772 Naked>                              Σ-2        →0x2077c →0x20786 →0x20790 →0x2079a →0x207a4
            <MI 2075c  MOVE.B  D7,D0>                                           {[-2-]}
            <MI 2075e  EXTB.W  D0>                                              {[-2-]}
            <POP 0x20760 LimitCheck 0x0 ≤ D0 ≤ 0x4>                             {[-2-]}
            <MI 20768  ADD.W   D0,D0>                                           {[-2-]}
            <MI 2076a  SWITCH  D0.W>                                            {[-2-]}
        <POP 2077c-20786 Naked>                              Σ-2 Δ-8    →0x207ac ←0x2075c
            <Blob 0x2077c [4] @>                             Δ-4                {[-2-]|[«4""»]}
            <Blob 0x20780 [4] @>                             Δ-4                {[-2-]|[«4""»]|[«4""»]}
            <MI 20784  BRA     0x207ac>                                         {[-2-]|[«4""»]|[«4""»]}
        <POP 20786-20790 Naked>                              Σ-2 Δ-8    →0x207ac ←0x2075c
            <Blob 0x20786 [4] @>                             Δ-4                {[-2-]|[«4""»]}
            <Blob 0x2078a [4] @>                             Δ-4                {[-2-]|[«4""»]|[«4""»]}
            <MI 2078e  BRA     0x207ac>                                         {[-2-]|[«4""»]|[«4""»]}
        <POP 20790-2079a Naked>                              Σ-2 Δ-8    →0x207ac ←0x2075c
            <Blob 0x20790 [4] @>                             Δ-4                {[-2-]|[«4""»]}
            <Blob 0x20794 [4] @>                             Δ-4                {[-2-]|[«4""»]|[«4""»]}
            <MI 20798  BRA     0x207ac>                                         {[-2-]|[«4""»]|[«4""»]}
        <POP 2079a-207a4 Naked>                              Σ-2 Δ-8    →0x207ac ←0x2075c
            <Blob 0x2079a [4] @>                             Δ-4                {[-2-]|[«4""»]}
            <Blob 0x2079e [4] @>                             Δ-4                {[-2-]|[«4""»]|[«4""»]}
            <MI 207a2  BRA     0x207ac>                                         {[-2-]|[«4""»]|[«4""»]}
        <POP 207a4-207ac Naked>                              Σ-2 Δ-8    ↓ ←0x2075c
            <Blob 0x207a4 [4] @>                             Δ-4                {[-2-]|[«4""»]}
            <Blob 0x207a8 [4] @>                             Δ-4                {[-2-]|[«4""»]|[«4""»]}
        <POP 207ac-20806 Naked>                              Σ-10 Δ+8   ↓ →0x20756 ←0x2077c ←0x20786 ←0x20790 ←0x2079a
            <POP 207ac-207ae StackAdj>                       Δ-4                {[-14-]}
            <Lit 0x207ae>                                                       {[-10-]|[$$…]}
                <Pointer.sp 0x207ae 4>                       Δ-4        
                <Const 0x207b2 0x1.2>                        Δ-2        
                <Const 0x207b4 0x8.2>                        Δ-2        
                <Call 0x207b8 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 207be-207c0 StackAdj>                   Δ+8        
            <MI 207c0  MOVEA.L (A7)+,A4>                     Δ+4                {[-10-]}
            <POP 207c2-207c4 StackAdj>                       Δ+8                {[-2-]}
            <POP 207c4-207c6 StackAdj>                       Δ-8                {[-10-]}
            <MI 207c6  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0xc)']}
            <Call 0x207ca 0x102cc>                                              {[-10-]|[4, '(A6+0xc)']}
                StringDup(a : String) : String
            <MI 207d0  MOVE.L  A4,(A7)>                                         {[-10-]|[4, 'A4']}
            <Call 0x207d2 0x102d0>                                              {[-10-]|[4, 'A4']}
                StringCat2(a, b : String) : String
            <POP 207d8-207da StackAdj>                       Δ+8                {[-6-]}
            <MI 207da  MOVEA.L (A7)+,A3>                     Δ+4                {[-2-]}
            <MI 207dc  MOVE.L  A3,-(A7)>                     Δ-4                {[-2-]|[4, 'A3']}
            <MI 207de  MOVE.B  D7,D0>                                           {[-2-]|[4, 'A3']}
            <MI 207e0  EXTB.W  D0>                                              {[-2-]|[4, 'A3']}
            <MI 207e2  ASL.W   #0x2,D0>                                         {[-2-]|[4, 'A3']}
            <MI 207e4  LEA.L   0x21984,A0>                                      {[-2-]|[4, 'A3']}
            <MI 207e6  PEA.L   (A0+D0.W+#0x8)>               Δ-4                {[-2-]|[4, 'A3']|[4, '^(A0+D0.W+#0x8)']}
            <Call 0x207ea 0x10460>                                              {[-2-]|[4, 'A3']|[4, '^(A0+D0.W+#0x8)']}
                ExpLoad(a : String; b: Pointer)
            <POP 207f0-207f2 StackAdj>                       Δ+8                {[-2-]}
            <MI 207f2  MOVE.B  D7,D0>                                           {[-2-]}
            <MI 207f4  EXTB.W  D0>                                              {[-2-]}
            <MI 207f6  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <MI 207f8  LEA.L   0x21984,A0>                                      {[-2-]|[2, 'D0']}
            <MI 207fa  MOVE.B  #0x01,(A0+D0.W+#0x1c)>                           {[-2-]|[2, 'D0']}
            <MI 207fe  MOVE.W  (A7)+,D7>                     Δ+2                {[-2-]}
            <MI 20800  ADDQ.W  #0x1,D7>                                         {[-2-]}
            <MI 20802  BVC     0x20756>                                         {[-2-]}
        <POP 20806-20814 Naked>                              Σ-2 Δ+2    ↓ ←0x20756
            <POP 20806-20808 StackAdj>                       Δ+2                {}
            <Pointer.fp 0x20808 <LVAR  0x00c @ 4(r)>>        Δ-4                {[@@12]}
            <Call 0x2080c 0x102bc>                                              {[@@12]}
                FreeString(VAR a : String)
            <POP 20812-20814 StackAdj>                       Δ+4                {}
        <POP 20814-2081c Epilogue>                           Σ0         

0x2081c


@ 2081c
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 1(rw)>
        <LVAR -0x006 @ 1(r)>
        <LVAR -0x007 @>
    <POP 2081c-208d4 Body>                                              
        <POP 2081c-20832 Prologue>                           Σ0         ↓
        <POP 20832-2083c RegCacheLoad>                       Σ0         ↓
        <POP 2083c-20862 Naked>                              Σ0         ↓ →0x20868
            <MI 2083c  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 20840  EXTB.W  D0>                                              {}
            <MI 20842  LEA.L   0x2026e,A0>                                      {}
            <MI 20846  MOVE.B  (A0+D0.W),D6>                                    {}
            <MI 2084a  MOVEQ.L #0x01,D7>                                        {}
            <MI 2084c  MOVE.B  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <Pointer.fp 0x2084e <LVAR -0x004 @ 1(rw)>>       Δ-4                {[2, 'D6']|[@@-4]}
            <Pointer.fp 0x20850 <LVAR -0x007 @>>             Δ-4                {[2, 'D6']|[@@-4]|[@@-7]}
            <Pointer.fp 0x20854 <LVAR -0x006 @ 1(r)>>        Δ-4                {[2, 'D6']|[@@-4]|[@@-7]|[@@-6]}
            <Call 0x20856 0x10484>                                              {[2, 'D6']|[@@-4]|[@@-7]|[@@-6]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 2085c-2085e StackAdj>                       Δ+14               {}
            <MI 2085e  TST.B   (A6-0x6)>                                        {}
            <MI 20860  BNE     0x20868>                                         {}
        <POP 20862-20868 Naked>                              Σ0         →0x208a6
            <MI 20862  MOVE.B  #0x04,(A6-0x4)>                                  {}
            <MI 20866  BRA     0x208a6>                                         {}
        <POP 20868-20870 Naked>                              Σ0         ↓ →0x208a6 ←0x2083c ←0x20874
            <MI 20868  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 2086a  CMPI.B  #0x06,D0>                                        {}
            <MI 2086e  BNE     0x208a6>                                         {}
        <POP 20870-20874 Naked>                              Σ0         ↓ →0x208a6
            <MI 20870  TST.W   D7>                                              {}
            <MI 20872  BEQ     0x208a6>                                         {}
        <POP 20874-208a6 Naked>                              Σ0         →0x20868
            <MI 20874  CLR.L   D0>                                              {}
            <MI 20876  MOVE.W  D7,D0>                                           {}
            <MI 20878  ADDQ.L  #0x1,D0>                                         {}
            <POP 0x2087a LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 20884  MOVE.W  D0,D7>                                           {}
            <Const 0x20886 0x27.4>                           Δ-4                {[##39]}
            <Call 0x2088a 0x10224>                                              {[##39]}
                KC12_Sleep(dur: Long)
            <POP 20890-20892 StackAdj>                       Δ+2                {[-2-]}
            <MI 20892  MOVE.B  D6,(A7)>                                         {[-2-]}
            <Pointer.fp 0x20894 <LVAR -0x004 @ 1(rw)>>       Δ-4                {[-2-]|[@@-4]}
            <Pointer.fp 0x20896 <LVAR -0x007 @>>             Δ-4                {[-2-]|[@@-4]|[@@-7]}
            <Pointer.fp 0x2089a <LVAR -0x006 @ 1(r)>>        Δ-4                {[-2-]|[@@-4]|[@@-7]|[@@-6]}
            <Call 0x2089c 0x10484>                                              {[-2-]|[@@-4]|[@@-7]|[@@-6]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 208a2-208a4 StackAdj>                       Δ+14               {}
            <MI 208a4  BRA     0x20868>                                         {}
        <POP 208a6-208ae Naked>                              Σ0         ↓ →0x208cc ←0x20862 ←0x20868 ←0x20870
            <MI 208a6  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 208a8  CMPI.B  #0x01,D0>                                        {}
            <MI 208ac  BEQ     0x208cc>                                         {}
        <POP 208ae-208cc Naked>                              Σ0         ↓
            <MI 208ae  MOVE.B  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <MI 208b0  MOVE.B  (A6+0x8),D1>                                     {[2, 'D6']}
            <MI 208b4  EXTB.W  D1>                                              {[2, 'D6']}
            <MI 208b6  ASL.W   #0x2,D1>                                         {[2, 'D6']}
            <MI 208b8  LEA.L   0x21984,A0>                                      {[2, 'D6']}
            <MI 208be  MOVE.L  (A0+D1.W+#0x8),-(A7)>         Δ-4                {[2, 'D6']|[4, '(A0+D1.W+#0x8)']}
            <MI 208c2  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D6']|[4, '(A0+D1.W+#0x8)']|[2, 'D0']}
            <Call 0x208c4 0x21848>                                              {[2, 'D6']|[4, '(A0+D1.W+#0x8)']|[2, 'D0']}
                EXP_FAIL
            <POP 208ca-208cc StackAdj>                       Δ+8                {}
        <POP 208cc-208d4 Epilogue>                           Σ0         ←0x208a6

0x208d4


@ 208d4
        <LVAR  0x008 1(r)>
        <LVAR -0x006 4(rw)>
    <POP 208d4-20970 Body>                                              
        <POP 208d4-208ea Prologue>                           Σ0         ↓
        <POP 208ea-208f4 RegCacheLoad>                       Σ0         ↓
        <POP 208f4-20928 Naked>                              Σ0 Δ-4     ↓ →0x20966
            <MI 208f4  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 208f8  EXTB.W  D0>                                              {}
            <MI 208fa  MOVE.W  D0,D1>                                           {}
            <MI 208fc  ASL.W   #0x2,D1>                                         {}
            <MI 208fe  LEA.L   0x21984,A0>                                      {}
            <MI 20900  LEA.L   0x2026e,A1>                                      {}
            <MI 20904  MOVE.B  (A1+D0.W),-(A7)>              Δ-2                {[2, '(A1+D0.W)']}
            <MI 20908  MOVE.L  (A0+D1.W+#0x8),-(A7)>         Δ-4                {[2, '(A1+D0.W)']|[4, '(A0+D1.W+#0x8)']}
            <Call 0x2090c 0x1047e>                                              {[2, '(A1+D0.W)']|[4, '(A0+D1.W+#0x8)']}
                ExpXmit(adr : Byte; b : Pointer)
            <POP 20912-20914 StackAdj>                       Δ+6                {}
            <MI 20914  MOVEA.L (A0+D1.W+#0x8),A0>                               {}
            <MI 20918  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 2091a  MOVE.L  (A0+0xf8),(A0+0xf4)>                             {[4, 'A0']}
            <MI 20920  LEA.L   0x21984,A1>                                      {[4, 'A0']}
            <MI 20922  TST.B   (A1+D0.W+#0x1c)>                                 {[4, 'A0']}
            <MI 20926  BEQ     0x20966>                                         {[4, 'A0']}
        <POP 20928-2092c Naked>                              Σ-4        ↓
            <MI 20928  MOVE.L  (A0+0xf8),(A6-0x6)>                              {[-4-]}
        <POP 2092c-20938 Naked>                              Σ-4        ↓ →0x2093c ←0x20938
            <MI 2092c  MOVEA.L (A6-0x6),A0>                                     {[-4-]}
            <MI 2092e  MOVEA.L (A0+0x2),A1>                                     {[-4-]}
            <MI 20932  CMPA.W  #0x1,A1>                                         {[-4-]}
            <MI 20936  BEQ     0x2093c>                                         {[-4-]}
        <POP 20938-2093c Naked>                              Σ-4        →0x2092c
            <MI 20938  MOVE.L  A1,(A6-0x6)>                                     {[-4-]}
            <MI 2093a  BRA     0x2092c>                                         {[-4-]}
        <POP 2093c-20966 Naked>                              Σ-4        ↓ ←0x2092c
            <MI 2093c  MOVEA.L (A7),A1>                                         {[-4-]}
            <MI 2093e  CLR.L   D0>                                              {[-4-]}
            <MI 20940  MOVE.B  (A0+0x1),D0>                                     {[-4-]}
            <MI 20944  CLR.L   D1>                                              {[-4-]}
            <MI 20946  MOVE.B  (A0),D1>                                         {[-4-]}
            <MI 20948  LSL.B   #0x2,D1>                                         {[-4-]}
            <MI 2094a  LSR.B   #0x2,D1>                                         {[-4-]}
            <MI 2094c  ADD.W   D0,D1>                                           {[-4-]}
            <MI 2094e  SUBI.W  #0x0010,D1>                                      {[-4-]}
            <POP 0x20952 LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {[-4-]}
            <MI 20956  MOVE.B  D1,(A1+0x2)>                                     {[-4-]}
            <MI 2095a  MOVE.B  (A6+0x8),D0>                                     {[-4-]}
            <MI 2095e  EXTB.W  D0>                                              {[-4-]}
            <MI 20960  LEA.L   0x21984,A0>                                      {[-4-]}
            <MI 20962  CLR.B   (A0+D0.W+#0x1c)>                                 {[-4-]}
        <POP 20966-20968 Naked>                              Σ-4 Δ+4    ↓ ←0x208f4
            <POP 20966-20968 StackAdj>                       Δ+4                {}
        <POP 20968-20970 Epilogue>                           Σ0         

0x20970


@ 20970
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
    <POP 20970-209c0 Body>                                              
        <POP 20970-20986 Prologue>                           Σ0         ↓
        <POP 20986-2098e Naked>                              Σ0 Δ-2     ↓
            <MI 20986  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <MI 2098a  MOVE.B  (A6+0xa),D7>                                     {[2, '(A6+0x8)']}
        <POP 2098e-20992 Naked>                              Σ-2        ↓ →0x209b6 ←0x20992
            <MI 2098e  CMP.B   (A7),D7>                                         {[-2-]}
            <MI 20990  BGT     0x209b6>                                         {[-2-]}
        <POP 20992-209b6 Naked>                              Σ-2        ↓ →0x2098e
            <MI 20992  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x20994 0x2081c>                                              {[-2-]|[2, 'D7']}
            <POP 20998-2099a StackAdj>                       Δ+2                {[-2-]}
            <MI 2099a  MOVE.B  D7,D0>                                           {[-2-]}
            <MI 2099c  EXTB.W  D0>                                              {[-2-]}
            <MI 2099e  ASL.W   #0x2,D0>                                         {[-2-]}
            <MI 209a0  LEA.L   0x21984,A0>                                      {[-2-]}
            <MI 209a6  PEA.L   (A0+D0.W+#0x8)>               Δ-4                {[-2-]|[4, '^(A0+D0.W+#0x8)']}
            <Call 0x209aa 0x10496>                                              {[-2-]|[4, '^(A0+D0.W+#0x8)']}
                ExpClose(exp : Pointer)
            <POP 209b0-209b2 StackAdj>                       Δ+4                {[-2-]}
            <MI 209b2  ADDQ.B  #0x1,D7>                                         {[-2-]}
            <MI 209b4  BVC     0x2098e>                                         {[-2-]}
        <POP 209b6-209b8 Naked>                              Σ-2 Δ+2    ↓ ←0x2098e
            <POP 209b6-209b8 StackAdj>                       Δ+2                {}
        <POP 209b8-209c0 Epilogue>                           Σ0         

0x209c0


@ 209c0
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 2(r)>
        <LVAR -0x004 4(rw)>
        <LVAR -0x008 4(rw)>
        <LVAR -0xc08 @>
        <LVAR -0xc0e @>
        <LVAR -0xc16 4(rw)>
        <LVAR -0xc22 @>
    <POP 209c0-20c16 Body>                                   Δ-4        
        <POP 209c0-209d6 Prologue>                           Σ0         ↓
        <POP 209d6-209e0 RegCacheLoad>                       Σ0         ↓
        <POP 209e0-20a32 Naked>                              Σ0         ↓
            <MI 209e0  MOVE.L  #0x10,(A6-0x8)>                                  {}
            <MI 209e6  MOVE.L  #0x7,(A6-0x4)>                                   {}
            <MI 209ee  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 209f2  EXTW.L  D0>                                              {}
            <MI 209f4  MOVE.L  D0,(A6-0xc16)>                                   {}
            <Call 0x209f8 0x216c2>                                              {}
                exp_PREP_LOAD_REGISTER_FILE.TYP()
            <Call 0x209fe 0x2170e>                                              {}
                exp_PREP_LOAD_REGISTER_FILE.VAL()
            <Blob 0x20a04 [18] @>                            Δ-18               {[«18""»]}
            <POP 20a10-20a12 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x20a12 18>                                                    {[«18""»]|[$$LOAD_REGISTER_FILE]}
            <POP 20a22-20a24 StackAdj>                       Δ-2                {[«18""»]|[$$LOAD_REGISTER_FILE]|[-2-]}
            <MI 20a24  CLR.B   (A7)>                                            {[«18""»]|[$$LOAD_REGISTER_FILE]|[-2-]}
            <Const 0x20a26 0x1.2>                            Δ-2                {[«18""»]|[$$LOAD_REGISTER_FILE]|[-2-]|[#1]}
            <Call 0x20a28 0x20730>                                              {[«18""»]|[$$LOAD_REGISTER_FILE]|[-2-]|[#1]}
            <POP 20a2c-20a30 StackAdj>                       Δ+26               {}
            <MI 20a30  MOVEQ.L #0x00,D0>                                        {}
        <POP 20a32-20a3a Naked>                              Σ0 Δ-4     ↓ →0x20a5a ←0x20bfc
            <MI 20a32  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 20a34  BTST.L  #0x0,D0>                                         {[4, 'D0']}
            <MI 20a38  BEQ     0x20a5a>                                         {[4, 'D0']}
        <POP 20a3a-20a5a Naked>                              Σ-4        ↓
            <Blob 0x20a3a [2] @>                             Δ-2                {[-4-]|[«2""»]}
            <POP 20a3e-20a40 StackAdj>                       Δ-4                {[-4-]|[«2""»]|[-4-]}
            <Lit 0x20a40 2>                                                     {[-4-]|[«2""»]|[$$. ]}
            <Call 0x20a52 0x103d8>                                              {[-4-]|[«2""»]|[$$. ]}
                WriteConsoleString(str : String)
            <POP 20a58-20a5a StackAdj>                       Δ+6                {[-4-]}
        <POP 20a5a-20a62 Naked>                              Σ-4 Δ-4    ↓ ←0x20a32
            <MI 20a5a  MOVEQ.L #0x00,D5>                                        {[-4-]}
            <MI 20a5c  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x4)']}
            <MI 20a60  MOVEQ.L #0x00,D1>                                        {[-4-]|[4, '(A6-0x4)']}
        <POP 20a62-20a66 Naked>                              Σ-8        ↓ →0x20a6c ←0x20be8
            <MI 20a62  CMP.L   (A7),D1>                                         {[-8-]}
            <MI 20a64  BLE     0x20a6c>                                         {[-8-]}
        <POP 20a66-20a6c Naked>                              Σ-8 Δ-4    →0x20bee
            <POP 20a66-20a68 StackAdj>                       Δ-4                {[-12-]}
            <MI 20a68  BRA     0x20bee>                                         {[-12-]}
        <POP 20a6c-20a76 Naked>                              Σ-8 Δ-4    ↓ →0x20ab8 ←0x20a62
            <MI 20a6c  MOVE.L  D1,-(A7)>                     Δ-4                {[-8-]|[4, 'D1']}
            <MI 20a6e  CMPI.L  #0x00000002,D1>                                  {[-8-]|[4, 'D1']}
            <MI 20a74  BGT     0x20ab8>                                         {[-8-]|[4, 'D1']}
        <POP 20a76-20ab8 Naked>                              Σ-12       ↓
            <MI 20a76  LEA.L   (A6-0xc08),A0>                                   {[-12-]}
            <MI 20a7a  MOVE.L  A0,-(A7)>                     Δ-4                {[-12-]|[4, 'A0']}
            <MI 20a7c  MOVE.L  (A7)+,D6>                     Δ+4                {[-12-]}
            <MI 20a7e  MOVE.L  D1,D0>                                           {[-12-]}
            <MI 20a80  ASL.L   #0x8,D0>                                         {[-12-]}
            <MI 20a82  ASL.L   #0x2,D0>                                         {[-12-]}
            <MI 20a84  ADD.L   D0,D6>                                           {[-12-]}
            <MI 20a86  MOVE.L  (A6+0xa),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xa)']}
            <MI 20a8a  MOVE.L  (A6-0xc16),D0>                                   {[-12-]|[4, '(A6+0xa)']}
            <POP 0x20a8e LimitCheck 0x0 ≤ D0 ≤ 0x4000>                          {[-12-]|[4, '(A6+0xa)']}
            <MI 20a98  MOVE.W  D0,-(A7)>                     Δ-2                {[-12-]|[4, '(A6+0xa)']|[2, 'D0']}
            <MI 20a9a  CLR.W   -(A7)>                        Δ-2                {[-12-]|[4, '(A6+0xa)']|[2, 'D0']|[#0]}
            <Const 0x20a9c 0x200.2>                          Δ-2                {[-12-]|[4, '(A6+0xa)']|[2, 'D0']|[#0]|[#512]}
            <Const 0x20aa0 0x2.2>                            Δ-2                {[-12-]|[4, '(A6+0xa)']|[2, 'D0']|[#0]|[#512]|[#2]}
            <MI 20aa4  MOVE.L  D6,-(A7)>                     Δ-4                {[-12-]|[4, '(A6+0xa)']|[2, 'D0']|[#0]|[#512]|[#2]|[4, 'D6']}
            <Pointer.fp 0x20aa6 <LVAR -0xc0e @>>             Δ-4                {[-12-]|[4, '(A6+0xa)']|[2, 'D0']|[#0]|[#512]|[#2]|[4, 'D6']|[@@-3086]}
            <Call 0x20aaa 0x10384>                                              {[-12-]|[4, '(A6+0xa)']|[2, 'D0']|[#0]|[#512]|[#2]|[4, 'D6']|[@@-3086]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 20ab0-20ab4 StackAdj>                       Δ+20               {[-12-]}
            <MI 20ab4  ADDQ.L  #0x1,(A6-0xc16)>                                 {[-12-]}
        <POP 20ab8-20abe Naked>                              Σ-12 Δ-4   ↓ ←0x20a6c
            <MI 20ab8  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x8)']}
            <MI 20aba  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 20abc  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 20abe-20ac2 Naked>                              Σ-16       ↓ →0x20b3c ←0x20ac2
            <MI 20abe  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 20ac0  BGT     0x20b3c>                                         {[-16-]}
        <POP 20ac2-20b3c Naked>                              Σ-16       ↓ →0x20abe
            <MI 20ac2  MOVE.L  D5,D0>                                           {[-16-]}
            <MI 20ac4  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x20ac6 LimitCheck 0x0 ≤ D0 ≤ 0x7f>                            {[-16-]}
            <MI 20ad0  MOVE.L  D0,D4>                                           {[-16-]}
            <MI 20ad2  MOVEQ.L #0x18,D3>                                        {[-16-]}
            <Call 0x20ad4 0x1028c>                                              {[-16-]}
                ?muls_d3_d4
            <MI 20ada  LEA.L   (A6-0xc22),A0>                                   {[-16-]}
            <Blob 0x20ade [8] (A0+D4.L+#0x1a)>               Δ-8                {[-16-]|[«8»]}
            <Blob 0x20aee [4] 0x2198c>                       Δ-4                {[-16-]|[«8»]|[«4»]}
            <Pointer.sp 0x20af4 4>                           Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]}
            <Const 0x20af8 0x0.4>                            Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]|[##0]}
            <Const 0x20afa 0x7.4>                            Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x20afe 0x10466>                                              {[-16-]|[«8»]|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20b04-20b08 StackAdj>                       Δ+20               {[-16-]|[-4-]}
            <MI 20b08  MOVE.B  (A0+D4.L+#0x22),(A7)>                            {[-16-]|[-4-]}
            <MI 20b0c  MOVE.B  (A0+D4.L+#0x23),(A7+0x1)>                        {[-16-]|[-4-]}
            <MI 20b12  MOVE.B  (A0+D4.L+#0x24),(A7+0x2)>                        {[-16-]|[-4-]}
            <MI 20b18  MOVE.B  (A0+D4.L+#0x25),(A7+0x3)>                        {[-16-]|[-4-]}
            <Blob 0x20b1e [4] 0x2198c>                       Δ-4                {[-16-]|[-4-]|[«4»]}
            <Pointer.sp 0x20b24 4>                           Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]}
            <Const 0x20b28 0x0.4>                            Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]|[##0]}
            <Const 0x20b2a 0x3.4>                            Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]|[##0]|[##3]}
            <Call 0x20b2e 0x10466>                                              {[-16-]|[-4-]|[«4»]|[^^4]|[##0]|[##3]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20b34-20b38 StackAdj>                       Δ+20               {[-16-]}
            <MI 20b38  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 20b3a  BVC     0x20abe>                                         {[-16-]}
        <POP 20b3c-20b52 Naked>                              Σ-16       ↓ ←0x20abe
            <POP 20b3c-20b3e StackAdj>                       Δ+2                {[-14-]}
            <MI 20b3e  CLR.B   (A7)>                                            {[-14-]}
            <Call 0x20b40 0x2081c>                                              {[-14-]}
            <MI 20b44  CLR.B   (A7)>                                            {[-14-]}
            <Call 0x20b46 0x208d4>                                              {[-14-]}
            <POP 20b4a-20b4c StackAdj>                       Δ+2                {[-12-]}
            <MI 20b4c  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x8)']}
            <MI 20b4e  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 20b50  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 20b52-20b56 Naked>                              Σ-16       ↓ →0x20bd0 ←0x20b56
            <MI 20b52  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 20b54  BGT     0x20bd0>                                         {[-16-]}
        <POP 20b56-20bd0 Naked>                              Σ-16       ↓ →0x20b52
            <MI 20b56  MOVE.L  D5,D0>                                           {[-16-]}
            <MI 20b58  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x20b5a LimitCheck 0x0 ≤ D0 ≤ 0x7f>                            {[-16-]}
            <MI 20b64  MOVE.L  D0,D4>                                           {[-16-]}
            <MI 20b66  MOVEQ.L #0x18,D3>                                        {[-16-]}
            <Call 0x20b68 0x1028c>                                              {[-16-]}
                ?muls_d3_d4
            <MI 20b6e  LEA.L   (A6-0xc22),A0>                                   {[-16-]}
            <Blob 0x20b72 [8] (A0+D4.L+#0x2a)>               Δ-8                {[-16-]|[«8»]}
            <Blob 0x20b82 [4] 0x21990>                       Δ-4                {[-16-]|[«8»]|[«4»]}
            <Pointer.sp 0x20b88 4>                           Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]}
            <Const 0x20b8c 0x0.4>                            Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]|[##0]}
            <Const 0x20b8e 0x7.4>                            Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x20b92 0x10466>                                              {[-16-]|[«8»]|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20b98-20b9c StackAdj>                       Δ+20               {[-16-]|[-4-]}
            <MI 20b9c  MOVE.B  (A0+D4.L+#0x26),(A7)>                            {[-16-]|[-4-]}
            <MI 20ba0  MOVE.B  (A0+D4.L+#0x27),(A7+0x1)>                        {[-16-]|[-4-]}
            <MI 20ba6  MOVE.B  (A0+D4.L+#0x28),(A7+0x2)>                        {[-16-]|[-4-]}
            <MI 20bac  MOVE.B  (A0+D4.L+#0x29),(A7+0x3)>                        {[-16-]|[-4-]}
            <Blob 0x20bb2 [4] 0x21990>                       Δ-4                {[-16-]|[-4-]|[«4»]}
            <Pointer.sp 0x20bb8 4>                           Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]}
            <Const 0x20bbc 0x0.4>                            Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]|[##0]}
            <Const 0x20bbe 0x3.4>                            Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]|[##0]|[##3]}
            <Call 0x20bc2 0x10466>                                              {[-16-]|[-4-]|[«4»]|[^^4]|[##0]|[##3]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20bc8-20bcc StackAdj>                       Δ+20               {[-16-]}
            <MI 20bcc  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 20bce  BVC     0x20b52>                                         {[-16-]}
        <POP 20bd0-20be8 Naked>                              Σ-16 Δ+4   ↓ →0x20bee ←0x20b52
            <POP 20bd0-20bd2 StackAdj>                       Δ+2                {[-14-]}
            <POP 20bd2-20bd3 StackAdj>                       Δ+2                {[-12-]}
            <Const 0x20bd3 0x1.2>                            Δ-2                {[-12-]|[#1]}
            <Call 0x20bd4 0x2081c>                                              {[-12-]|[#1]}
            <POP 20bd8-20bd9 StackAdj>                       Δ+2                {[-12-]}
            <Const 0x20bd9 0x1.2>                            Δ-2                {[-12-]|[#1]}
            <Call 0x20bda 0x208d4>                                              {[-12-]|[#1]}
            <POP 20bde-20be0 StackAdj>                       Δ+2                {[-12-]}
            <MI 20be0  ADD.L   (A6-0x8),D5>                                     {[-12-]}
            <MI 20be2  MOVE.L  (A7),D1>                                         {[-12-]}
            <MI 20be4  ADDQ.L  #0x1,D1>                                         {[-12-]}
            <MI 20be6  BVS     0x20bee>                                         {[-12-]}
        <POP 20be8-20bee Naked>                              Σ-12 Δ+4   →0x20a62
            <POP 20be8-20bea StackAdj>                       Δ+4                {[-8-]}
            <MI 20bea  BRA     0x20a62>                                         {[-8-]}
        <POP 20bee-20bfc Naked>                              Σ-12 Δ+8   ↓ →0x20c02 ←0x20a66 ←0x20bd0
            <POP 20bee-20bf0 StackAdj>                       Δ+8                {[-4-]}
            <MI 20bf0  MOVE.L  (A7),D0>                                         {[-4-]}
            <MI 20bf2  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 20bf4  CMPI.L  #0x00000007,D0>                                  {[-4-]}
            <MI 20bfa  BGT     0x20c02>                                         {[-4-]}
        <POP 20bfc-20c02 Naked>                              Σ-4 Δ+4    →0x20a32
            <POP 20bfc-20bfe StackAdj>                       Δ+4                {}
            <MI 20bfe  BRA     0x20a32>                                         {}
        <POP 20c02-20c0e Naked>                              Σ-4 Δ+4    ↓ ←0x20bee
            <POP 20c02-20c04 StackAdj>                       Δ+2                {[-2-]}
            <MI 20c04  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x20c06 0x1.2>                            Δ-2                {[-2-]|[#1]}
            <Call 0x20c08 0x20970>                                              {[-2-]|[#1]}
            <POP 20c0c-20c0e StackAdj>                       Δ+4                {}
        <POP 20c0e-20c16 Epilogue>                           Σ0         

0x20c16


@ 20c16
        <LVAR  0x00c 4(r)>
        <LVAR  0x00a 2(r)>
        <LVAR  0x008 2(r)>
        <LVAR -0x006 4(rw)>
        <LVAR -0x00a 4(rw)>
        <LVAR -0x00e 4(rw)>
        <LVAR -0x80e @>
        <LVAR -0x140e @>
        <LVAR -0x1414 @>
        <LVAR -0x1415 1(w)>
        <LVAR -0x1416 1(w) 2(r)>
        <LVAR -0x141c 1(rw)>
        <LVAR -0x1420 4(rw)>
        <LVAR -0x1424 4(rw)>
        <LVAR -0x1428 4(rw)>
        <LVAR -0x142c 4(rw)>
        <LVAR -0x1438 @>
    <POP 20c16-210c6 Body>                                   Δ-4        
        <POP 20c16-20c2c Prologue>                           Σ0         ↓
        <POP 20c2c-20c36 RegCacheLoad>                       Σ0         ↓
        <POP 20c36-20cd6 Naked>                              Σ0         ↓
            <MI 20c36  MOVE.L  #0x10,(A6-0xe)>                                  {}
            <MI 20c3e  MOVE.L  #0x10,(A6-0xa)>                                  {}
            <MI 20c44  MOVE.L  #0x8,(A6-0x6)>                                   {}
            <Call 0x20c4c 0x216c2>                                              {}
                exp_PREP_LOAD_REGISTER_FILE.TYP()
            <Call 0x20c52 0x2170e>                                              {}
                exp_PREP_LOAD_REGISTER_FILE.VAL()
            <Call 0x20c58 0x2167c>                                              {}
                exp_PREP_LOAD_DISPATCH_RAMS.SEQ()
            <Blob 0x20c5e [18] @>                            Δ-18               {[«18""»]}
            <POP 20c6a-20c6c StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x20c6c 18>                                                    {[«18""»]|[$$LOAD_REGISTER_FILE]}
            <POP 20c7c-20c7e StackAdj>                       Δ-2                {[«18""»]|[$$LOAD_REGISTER_FILE]|[-2-]}
            <MI 20c7e  CLR.B   (A7)>                                            {[«18""»]|[$$LOAD_REGISTER_FILE]|[-2-]}
            <Const 0x20c80 0x1.2>                            Δ-2                {[«18""»]|[$$LOAD_REGISTER_FILE]|[-2-]|[#1]}
            <Call 0x20c82 0x20730>                                              {[«18""»]|[$$LOAD_REGISTER_FILE]|[-2-]|[#1]}
            <POP 20c86-20c8a StackAdj>                       Δ+26               {}
            <Blob 0x20c8a [18] @>                            Δ-18               {[«18""»]}
            <POP 20c96-20c98 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x20c98 18>                                                    {[«18""»]|[$$LOAD_DISPATCH_RAMS]}
            <POP 20ca8-20caa StackAdj>                       Δ-2                {[«18""»]|[$$LOAD_DISPATCH_RAMS]|[-2-]}
            <POP 20caa-20cab StackAdj>                       Δ+2                {[«18""»]|[$$LOAD_DISPATCH_RAMS]}
            <Const 0x20cab 0x3.2>                            Δ-2                {[«18""»]|[$$LOAD_DISPATCH_RAMS]|[#3]}
            <Const 0x20cae 0x3.2>                            Δ-2                {[«18""»]|[$$LOAD_DISPATCH_RAMS]|[#3]|[#3]}
            <Call 0x20cb2 0x20730>                                              {[«18""»]|[$$LOAD_DISPATCH_RAMS]|[#3]|[#3]}
            <POP 20cb6-20cba StackAdj>                       Δ+26               {}
            <MI 20cba  MOVE.B  #0x01,(A6-0x141c)>                               {}
            <MI 20cbe  MOVEQ.L #0x00,D6>                                        {}
            <MI 20cc0  MOVE.W  (A6+0xa),D0>                                     {}
            <MI 20cc4  EXTW.L  D0>                                              {}
            <MI 20cc6  MOVE.L  D0,(A6-0x142c)>                                  {}
            <MI 20cca  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 20cce  EXTW.L  D0>                                              {}
            <MI 20cd0  MOVE.L  D0,(A6-0x1428)>                                  {}
            <MI 20cd4  MOVEQ.L #0x00,D0>                                        {}
        <POP 20cd6-20cde Naked>                              Σ0 Δ-4     ↓ →0x20cfe ←0x2109e
            <MI 20cd6  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 20cd8  BTST.L  #0x0,D0>                                         {[4, 'D0']}
            <MI 20cdc  BEQ     0x20cfe>                                         {[4, 'D0']}
        <POP 20cde-20cfe Naked>                              Σ-4        ↓
            <Blob 0x20cde [2] @>                             Δ-2                {[-4-]|[«2""»]}
            <POP 20ce2-20ce4 StackAdj>                       Δ-4                {[-4-]|[«2""»]|[-4-]}
            <Lit 0x20ce4 2>                                                     {[-4-]|[«2""»]|[$$. ]}
            <Call 0x20cf6 0x103d8>                                              {[-4-]|[«2""»]|[$$. ]}
                WriteConsoleString(str : String)
            <POP 20cfc-20cfe StackAdj>                       Δ+6                {[-4-]}
        <POP 20cfe-20d06 Naked>                              Σ-4        ↓ →0x20d0c ←0x20cd6
            <MI 20cfe  CMPI.L  #0x00000004,D0>                                  {[-4-]}
            <MI 20d04  BNE     0x20d0c>                                         {[-4-]}
        <POP 20d06-20d0c Naked>                              Σ-4        ↓
            <MI 20d06  CLR.B   (A6-0x141c)>                                     {[-4-]}
            <MI 20d0a  MOVEQ.L #0x00,D6>                                        {[-4-]}
        <POP 20d0c-20d1a Naked>                              Σ-4 Δ-4    ↓ ←0x20cfe
            <MI 20d0c  CLR.L   (A6-0x1424)>                                     {[-4-]}
            <MI 20d10  CLR.L   (A6-0x1420)>                                     {[-4-]}
            <MI 20d12  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']}
            <MI 20d16  SUBQ.L  #0x1,(A7)>                                       {[-8-]}
            <MI 20d18  MOVEQ.L #0x00,D1>                                        {[-8-]}
        <POP 20d1a-20d1e Naked>                              Σ-8        ↓ →0x20d24 ←0x2108a
            <MI 20d1a  CMP.L   (A7),D1>                                         {[-8-]}
            <MI 20d1c  BLE     0x20d24>                                         {[-8-]}
        <POP 20d1e-20d24 Naked>                              Σ-8 Δ-4    →0x21090
            <POP 20d1e-20d20 StackAdj>                       Δ-4                {[-12-]}
            <MI 20d20  BRA     0x21090>                                         {[-12-]}
        <POP 20d24-20d2e Naked>                              Σ-8 Δ-4    ↓ →0x20d70 ←0x20d1a
            <MI 20d24  MOVE.L  D1,-(A7)>                     Δ-4                {[-8-]|[4, 'D1']}
            <MI 20d26  CMPI.L  #0x00000002,D1>                                  {[-8-]|[4, 'D1']}
            <MI 20d2c  BGT     0x20d70>                                         {[-8-]|[4, 'D1']}
        <POP 20d2e-20d70 Naked>                              Σ-12       ↓
            <MI 20d2e  LEA.L   (A6-0x140e),A0>                                  {[-12-]}
            <MI 20d32  MOVE.L  A0,-(A7)>                     Δ-4                {[-12-]|[4, 'A0']}
            <MI 20d34  MOVE.L  (A7)+,D5>                     Δ+4                {[-12-]}
            <MI 20d36  MOVE.L  D1,D0>                                           {[-12-]}
            <MI 20d38  ASL.L   #0x8,D0>                                         {[-12-]}
            <MI 20d3a  ASL.L   #0x2,D0>                                         {[-12-]}
            <MI 20d3c  ADD.L   D0,D5>                                           {[-12-]}
            <MI 20d3e  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <MI 20d42  MOVE.L  (A6-0x142c),D0>                                  {[-12-]|[4, '(A6+0xc)']}
            <POP 0x20d46 LimitCheck 0x0 ≤ D0 ≤ 0x4000>                          {[-12-]|[4, '(A6+0xc)']}
            <MI 20d50  MOVE.W  D0,-(A7)>                     Δ-2                {[-12-]|[4, '(A6+0xc)']|[2, 'D0']}
            <MI 20d52  CLR.W   -(A7)>                        Δ-2                {[-12-]|[4, '(A6+0xc)']|[2, 'D0']|[#0]}
            <Const 0x20d54 0x200.2>                          Δ-2                {[-12-]|[4, '(A6+0xc)']|[2, 'D0']|[#0]|[#512]}
            <Const 0x20d58 0x2.2>                            Δ-2                {[-12-]|[4, '(A6+0xc)']|[2, 'D0']|[#0]|[#512]|[#2]}
            <MI 20d5c  MOVE.L  D5,-(A7)>                     Δ-4                {[-12-]|[4, '(A6+0xc)']|[2, 'D0']|[#0]|[#512]|[#2]|[4, 'D5']}
            <Pointer.fp 0x20d5e <LVAR -0x1414 @>>            Δ-4                {[-12-]|[4, '(A6+0xc)']|[2, 'D0']|[#0]|[#512]|[#2]|[4, 'D5']|[@@-5140]}
            <Call 0x20d62 0x10384>                                              {[-12-]|[4, '(A6+0xc)']|[2, 'D0']|[#0]|[#512]|[#2]|[4, 'D5']|[@@-5140]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 20d68-20d6c StackAdj>                       Δ+20               {[-12-]}
            <MI 20d6c  ADDQ.L  #0x1,(A6-0x142c)>                                {[-12-]}
        <POP 20d70-20d78 Naked>                              Σ-12 Δ-4   ↓ ←0x20d24
            <MI 20d70  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0xe)']}
            <MI 20d74  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 20d76  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 20d78-20d7e Naked>                              Σ-16       ↓ →0x20e00 ←0x20d7e
            <MI 20d78  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 20d7a  BGT     0x20e00>                                         {[-16-]}
        <POP 20d7e-20e00 Naked>                              Σ-16       ↓ →0x20d78
            <MI 20d7e  MOVE.L  (A6-0x1424),D0>                                  {[-16-]}
            <MI 20d82  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x20d84 LimitCheck 0x0 ≤ D0 ≤ 0x7f>                            {[-16-]}
            <MI 20d8e  MOVE.L  D0,D4>                                           {[-16-]}
            <MI 20d90  MOVEQ.L #0x18,D3>                                        {[-16-]}
            <Call 0x20d92 0x1028c>                                              {[-16-]}
                ?muls_d3_d4
            <MI 20d98  LEA.L   (A6-0x1438),A0>                                  {[-16-]}
            <Blob 0x20d9c [8] (A0+D4.L+#0x2a)>               Δ-8                {[-16-]|[«8»]}
            <Blob 0x20dac [4] 0x2198c>                       Δ-4                {[-16-]|[«8»]|[«4»]}
            <Pointer.sp 0x20db2 4>                           Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]}
            <Const 0x20db6 0x0.4>                            Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]|[##0]}
            <Const 0x20dba 0x7.4>                            Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x20dbe 0x10466>                                              {[-16-]|[«8»]|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20dc4-20dc8 StackAdj>                       Δ+20               {[-16-]|[-4-]}
            <MI 20dc8  MOVE.B  (A0+D4.L+#0x32),(A7)>                            {[-16-]|[-4-]}
            <MI 20dcc  MOVE.B  (A0+D4.L+#0x33),(A7+0x1)>                        {[-16-]|[-4-]}
            <MI 20dd2  MOVE.B  (A0+D4.L+#0x34),(A7+0x2)>                        {[-16-]|[-4-]}
            <MI 20dd8  MOVE.B  (A0+D4.L+#0x35),(A7+0x3)>                        {[-16-]|[-4-]}
            <Blob 0x20dde [4] 0x2198c>                       Δ-4                {[-16-]|[-4-]|[«4»]}
            <Pointer.sp 0x20de4 4>                           Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]}
            <Const 0x20de8 0x0.4>                            Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]|[##0]}
            <Const 0x20dec 0x3.4>                            Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]|[##0]|[##3]}
            <Call 0x20df0 0x10466>                                              {[-16-]|[-4-]|[«4»]|[^^4]|[##0]|[##3]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20df6-20dfa StackAdj>                       Δ+20               {[-16-]}
            <MI 20dfa  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 20dfc  BVC     0x20d78>                                         {[-16-]}
        <POP 20e00-20e10 Naked>                              Σ-16 Δ+4   ↓ →0x20e52 ←0x20d78
            <POP 20e00-20e02 StackAdj>                       Δ+2                {[-14-]}
            <MI 20e02  CLR.B   (A7)>                                            {[-14-]}
            <Call 0x20e04 0x208d4>                                              {[-14-]}
            <POP 20e08-20e0a StackAdj>                       Δ+2                {[-12-]}
            <MI 20e0a  MOVE.L  (A7),D0>                                         {[-12-]}
            <MI 20e0c  CMP.L   #0x01,D0>                                        {[-12-]}
            <MI 20e0e  BGT     0x20e52>                                         {[-12-]}
        <POP 20e10-20e52 Naked>                              Σ-12       ↓
            <MI 20e10  LEA.L   (A6-0x80e),A0>                                   {[-12-]}
            <MI 20e14  MOVE.L  A0,-(A7)>                     Δ-4                {[-12-]|[4, 'A0']}
            <MI 20e16  MOVE.L  (A7)+,D5>                     Δ+4                {[-12-]}
            <MI 20e18  MOVE.L  D0,D1>                                           {[-12-]}
            <MI 20e1a  ASL.L   #0x8,D1>                                         {[-12-]}
            <MI 20e1c  ASL.L   #0x2,D1>                                         {[-12-]}
            <MI 20e1e  ADD.L   D1,D5>                                           {[-12-]}
            <MI 20e20  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <MI 20e24  MOVE.L  (A6-0x1428),D1>                                  {[-12-]|[4, '(A6+0xc)']}
            <POP 0x20e28 LimitCheck 0x0 ≤ D1 ≤ 0x4000>                          {[-12-]|[4, '(A6+0xc)']}
            <MI 20e32  MOVE.W  D1,-(A7)>                     Δ-2                {[-12-]|[4, '(A6+0xc)']|[2, 'D1']}
            <MI 20e34  CLR.W   -(A7)>                        Δ-2                {[-12-]|[4, '(A6+0xc)']|[2, 'D1']|[#0]}
            <Const 0x20e36 0x200.2>                          Δ-2                {[-12-]|[4, '(A6+0xc)']|[2, 'D1']|[#0]|[#512]}
            <Const 0x20e3a 0x2.2>                            Δ-2                {[-12-]|[4, '(A6+0xc)']|[2, 'D1']|[#0]|[#512]|[#2]}
            <MI 20e3e  MOVE.L  D5,-(A7)>                     Δ-4                {[-12-]|[4, '(A6+0xc)']|[2, 'D1']|[#0]|[#512]|[#2]|[4, 'D5']}
            <Pointer.fp 0x20e40 <LVAR -0x1414 @>>            Δ-4                {[-12-]|[4, '(A6+0xc)']|[2, 'D1']|[#0]|[#512]|[#2]|[4, 'D5']|[@@-5140]}
            <Call 0x20e44 0x10384>                                              {[-12-]|[4, '(A6+0xc)']|[2, 'D1']|[#0]|[#512]|[#2]|[4, 'D5']|[@@-5140]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 20e4a-20e4e StackAdj>                       Δ+20               {[-12-]}
            <MI 20e4e  ADDQ.L  #0x1,(A6-0x1428)>                                {[-12-]}
        <POP 20e52-20eb2 Naked>                              Σ-12 Δ-4   ↓ ←0x20e00
            <MI 20e52  MOVE.L  D6,D1>                                           {[-12-]}
            <MI 20e54  LSR.L   #0x8,D1>                                         {[-12-]}
            <POP 0x20e56 LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {[-12-]}
            <MI 20e60  MOVE.B  D1,(A6-0x1416)>                                  {[-12-]}
            <MI 20e64  MOVE.L  D6,D1>                                           {[-12-]}
            <MI 20e66  ANDI.L  #0x000000ff,D1>                                  {[-12-]}
            <POP 0x20e6c LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {[-12-]}
            <MI 20e76  MOVE.B  D1,(A6-0x1415)>                                  {[-12-]}
            <Blob 0x20e7a [4] 0x21998>                       Δ-4                {[-12-]|[«4»]}
            <MI 20e80  MOVE.B  (A6-0x141c),-(A7)>            Δ-2                {[-12-]|[«4»]|[2, '(A6-0x141c)']}
            <Call 0x20e84 0x1046c>                                              {[-12-]|[«4»]|[2, '(A6-0x141c)']}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 20e8a-20e8c StackAdj>                       Δ+4                {[-12-]|[-2-]}
            <MI 20e8c  MOVE.W  (A6-0x1416),(A7)>                                {[-12-]|[2, '(A6-0x1416)']}
            <Blob 0x20e90 [4] 0x21998>                       Δ-4                {[-12-]|[2, '(A6-0x1416)']|[«4»]}
            <Pointer.sp 0x20e96 4>                           Δ-4                {[-12-]|[2, '(A6-0x1416)']|[«4»]|[^^4]}
            <Const 0x20e9a 0x0.4>                            Δ-4                {[-12-]|[2, '(A6-0x1416)']|[«4»]|[^^4]|[##0]}
            <Const 0x20e9e 0x1.4>                            Δ-4                {[-12-]|[2, '(A6-0x1416)']|[«4»]|[^^4]|[##0]|[##1]}
            <Call 0x20ea2 0x10466>                                              {[-12-]|[2, '(A6-0x1416)']|[«4»]|[^^4]|[##0]|[##1]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20ea8-20eac StackAdj>                       Δ+14               {[-12-]|[2, '(A6-0x1416)']|[-2-]}
            <MI 20eac  MOVE.L  (A6-0xa),(A7)>                                   {[-12-]|[4, '(A6-0xa)']}
            <MI 20eae  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 20eb0  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 20eb2-20eb6 Naked>                              Σ-16       ↓ →0x20ef6 ←0x20eb6
            <MI 20eb2  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 20eb4  BGT     0x20ef6>                                         {[-16-]}
        <POP 20eb6-20ef6 Naked>                              Σ-16       ↓ →0x20eb2
            <MI 20eb6  MOVE.L  (A6-0x1420),D0>                                  {[-16-]}
            <MI 20eb8  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x20eba LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[-16-]}
            <MI 20ec4  ASL.L   #0x3,D0>                                         {[-16-]}
            <MI 20ec6  LEA.L   (A6-0x1438),A0>                                  {[-16-]}
            <MI 20eca  LEA.L   (A0+D0.L),A0>                                    {[-16-]}
            <MI 20ece  MOVE.L  (A0+0xc2e),-(A7)>             Δ-4                {[-16-]|[4, '(A0+0xc2e)']}
            <MI 20ed2  MOVE.L  (A0+0xc2a),-(A7)>             Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']}
            <Blob 0x20ed6 [4] 0x21998>                       Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]}
            <Pointer.sp 0x20edc 4>                           Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]|[^^4]}
            <Const 0x20ee0 0x0.4>                            Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]|[^^4]|[##0]}
            <Const 0x20ee4 0x7.4>                            Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x20ee8 0x10466>                                              {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20eee-20ef2 StackAdj>                       Δ+24               {[-16-]}
            <MI 20ef2  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 20ef4  BVC     0x20eb2>                                         {[-16-]}
        <POP 20ef6-20f0e Naked>                              Σ-16 Δ+4   ↓ →0x20f12 ←0x20eb2
            <POP 20ef6-20ef8 StackAdj>                       Δ+2                {[-14-]}
            <POP 20ef8-20ef9 StackAdj>                       Δ+2                {[-12-]}
            <Const 0x20ef9 0x3.2>                            Δ-2                {[-12-]|[#3]}
            <Call 0x20efc 0x208d4>                                              {[-12-]|[#3]}
            <POP 20f00-20f02 StackAdj>                       Δ+2                {[-12-]}
            <MI 20f02  MOVE.L  (A6-0x1420),D0>                                  {[-12-]}
            <MI 20f04  ADD.L   (A6-0xa),D0>                                     {[-12-]}
            <MI 20f06  MOVE.L  D0,(A6-0x1420)>                                  {[-12-]}
            <MI 20f08  TST.B   (A6-0x141c)>                                     {[-12-]}
            <MI 20f0c  BEQ     0x20f12>                                         {[-12-]}
        <POP 20f0e-20f12 Naked>                              Σ-12       →0x20f18
            <MI 20f0e  ADD.L   (A6-0xa),D6>                                     {[-12-]}
            <MI 20f10  BRA     0x20f18>                                         {[-12-]}
        <POP 20f12-20f18 Naked>                              Σ-12       ↓ ←0x20ef6
            <MI 20f12  MOVE.L  (A6-0xa),D0>                                     {[-12-]}
            <MI 20f14  ASL.L   #0x6,D0>                                         {[-12-]}
            <MI 20f16  ADD.L   D0,D6>                                           {[-12-]}
        <POP 20f18-20f20 Naked>                              Σ-12 Δ-4   ↓ ←0x20f0e
            <MI 20f18  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0xe)']}
            <MI 20f1c  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 20f1e  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 20f20-20f26 Naked>                              Σ-16       ↓ →0x20fa8 ←0x20f26
            <MI 20f20  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 20f22  BGT     0x20fa8>                                         {[-16-]}
        <POP 20f26-20fa8 Naked>                              Σ-16       ↓ →0x20f20
            <MI 20f26  MOVE.L  (A6-0x1424),D0>                                  {[-16-]}
            <MI 20f2a  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x20f2c LimitCheck 0x0 ≤ D0 ≤ 0x7f>                            {[-16-]}
            <MI 20f36  MOVE.L  D0,D4>                                           {[-16-]}
            <MI 20f38  MOVEQ.L #0x18,D3>                                        {[-16-]}
            <Call 0x20f3a 0x1028c>                                              {[-16-]}
                ?muls_d3_d4
            <MI 20f40  LEA.L   (A6-0x1438),A0>                                  {[-16-]}
            <Blob 0x20f44 [8] (A0+D4.L+#0x3a)>               Δ-8                {[-16-]|[«8»]}
            <Blob 0x20f54 [4] 0x21990>                       Δ-4                {[-16-]|[«8»]|[«4»]}
            <Pointer.sp 0x20f5a 4>                           Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]}
            <Const 0x20f5e 0x0.4>                            Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]|[##0]}
            <Const 0x20f62 0x7.4>                            Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x20f66 0x10466>                                              {[-16-]|[«8»]|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20f6c-20f70 StackAdj>                       Δ+20               {[-16-]|[-4-]}
            <MI 20f70  MOVE.B  (A0+D4.L+#0x36),(A7)>                            {[-16-]|[-4-]}
            <MI 20f74  MOVE.B  (A0+D4.L+#0x37),(A7+0x1)>                        {[-16-]|[-4-]}
            <MI 20f7a  MOVE.B  (A0+D4.L+#0x38),(A7+0x2)>                        {[-16-]|[-4-]}
            <MI 20f80  MOVE.B  (A0+D4.L+#0x39),(A7+0x3)>                        {[-16-]|[-4-]}
            <Blob 0x20f86 [4] 0x21990>                       Δ-4                {[-16-]|[-4-]|[«4»]}
            <Pointer.sp 0x20f8c 4>                           Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]}
            <Const 0x20f90 0x0.4>                            Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]|[##0]}
            <Const 0x20f94 0x3.4>                            Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]|[##0]|[##3]}
            <Call 0x20f98 0x10466>                                              {[-16-]|[-4-]|[«4»]|[^^4]|[##0]|[##3]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20f9e-20fa2 StackAdj>                       Δ+20               {[-16-]}
            <MI 20fa2  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 20fa4  BVC     0x20f20>                                         {[-16-]}
        <POP 20fa8-2101e Naked>                              Σ-16       ↓ ←0x20f20
            <POP 20fa8-20faa StackAdj>                       Δ+2                {[-14-]}
            <POP 20faa-20fab StackAdj>                       Δ+2                {[-12-]}
            <Const 0x20fab 0x1.2>                            Δ-2                {[-12-]|[#1]}
            <Call 0x20fac 0x208d4>                                              {[-12-]|[#1]}
            <POP 20fb0-20fb2 StackAdj>                       Δ+2                {[-12-]}
            <MI 20fb2  MOVE.L  (A6-0x1424),D0>                                  {[-12-]}
            <MI 20fb6  ADD.L   (A6-0xe),D0>                                     {[-12-]}
            <MI 20fba  MOVE.L  D0,(A6-0x1424)>                                  {[-12-]}
            <MI 20fbe  MOVE.L  D6,D0>                                           {[-12-]}
            <MI 20fc0  LSR.L   #0x8,D0>                                         {[-12-]}
            <POP 0x20fc2 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[-12-]}
            <MI 20fcc  MOVE.B  D0,(A6-0x1416)>                                  {[-12-]}
            <MI 20fd0  MOVE.L  D6,D0>                                           {[-12-]}
            <MI 20fd2  ANDI.L  #0x000000ff,D0>                                  {[-12-]}
            <POP 0x20fd8 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[-12-]}
            <MI 20fe2  MOVE.B  D0,(A6-0x1415)>                                  {[-12-]}
            <Blob 0x20fe6 [4] 0x21998>                       Δ-4                {[-12-]|[«4»]}
            <MI 20fec  MOVE.B  (A6-0x141c),-(A7)>            Δ-2                {[-12-]|[«4»]|[2, '(A6-0x141c)']}
            <Call 0x20ff0 0x1046c>                                              {[-12-]|[«4»]|[2, '(A6-0x141c)']}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 20ff6-20ff8 StackAdj>                       Δ+4                {[-12-]|[-2-]}
            <MI 20ff8  MOVE.W  (A6-0x1416),(A7)>                                {[-12-]|[2, '(A6-0x1416)']}
            <Blob 0x20ffc [4] 0x21998>                       Δ-4                {[-12-]|[2, '(A6-0x1416)']|[«4»]}
            <Pointer.sp 0x21002 4>                           Δ-4                {[-12-]|[2, '(A6-0x1416)']|[«4»]|[^^4]}
            <Const 0x21006 0x0.4>                            Δ-4                {[-12-]|[2, '(A6-0x1416)']|[«4»]|[^^4]|[##0]}
            <Const 0x2100a 0x1.4>                            Δ-4                {[-12-]|[2, '(A6-0x1416)']|[«4»]|[^^4]|[##0]|[##1]}
            <Call 0x2100e 0x10466>                                              {[-12-]|[2, '(A6-0x1416)']|[«4»]|[^^4]|[##0]|[##1]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 21014-21018 StackAdj>                       Δ+14               {[-12-]|[2, '(A6-0x1416)']|[-2-]}
            <MI 21018  MOVE.L  (A6-0xa),(A7)>                                   {[-12-]|[4, '(A6-0xa)']}
            <MI 2101a  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 2101c  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 2101e-21022 Naked>                              Σ-16       ↓ →0x21062 ←0x21022
            <MI 2101e  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 21020  BGT     0x21062>                                         {[-16-]}
        <POP 21022-21062 Naked>                              Σ-16       ↓ →0x2101e
            <MI 21022  MOVE.L  (A6-0x1420),D0>                                  {[-16-]}
            <MI 21024  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x21026 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[-16-]}
            <MI 21030  ASL.L   #0x3,D0>                                         {[-16-]}
            <MI 21032  LEA.L   (A6-0x1438),A0>                                  {[-16-]}
            <MI 21036  LEA.L   (A0+D0.L),A0>                                    {[-16-]}
            <MI 2103a  MOVE.L  (A0+0xc2e),-(A7)>             Δ-4                {[-16-]|[4, '(A0+0xc2e)']}
            <MI 2103e  MOVE.L  (A0+0xc2a),-(A7)>             Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']}
            <Blob 0x21042 [4] 0x21998>                       Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]}
            <Pointer.sp 0x21048 4>                           Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]|[^^4]}
            <Const 0x2104c 0x0.4>                            Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]|[^^4]|[##0]}
            <Const 0x21050 0x7.4>                            Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x21054 0x10466>                                              {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 2105a-2105e StackAdj>                       Δ+24               {[-16-]}
            <MI 2105e  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 21060  BVC     0x2101e>                                         {[-16-]}
        <POP 21062-2107a Naked>                              Σ-16 Δ+4   ↓ →0x2107e ←0x2101e
            <POP 21062-21064 StackAdj>                       Δ+2                {[-14-]}
            <POP 21064-21065 StackAdj>                       Δ+2                {[-12-]}
            <Const 0x21065 0x3.2>                            Δ-2                {[-12-]|[#3]}
            <Call 0x21068 0x208d4>                                              {[-12-]|[#3]}
            <POP 2106c-2106e StackAdj>                       Δ+2                {[-12-]}
            <MI 2106e  MOVE.L  (A6-0x1420),D0>                                  {[-12-]}
            <MI 21070  ADD.L   (A6-0xa),D0>                                     {[-12-]}
            <MI 21072  MOVE.L  D0,(A6-0x1420)>                                  {[-12-]}
            <MI 21074  TST.B   (A6-0x141c)>                                     {[-12-]}
            <MI 21078  BEQ     0x2107e>                                         {[-12-]}
        <POP 2107a-2107e Naked>                              Σ-12       →0x21084
            <MI 2107a  ADD.L   (A6-0xa),D6>                                     {[-12-]}
            <MI 2107c  BRA     0x21084>                                         {[-12-]}
        <POP 2107e-21084 Naked>                              Σ-12       ↓ ←0x21062
            <MI 2107e  MOVE.L  (A6-0xa),D0>                                     {[-12-]}
            <MI 21080  ASL.L   #0x6,D0>                                         {[-12-]}
            <MI 21082  ADD.L   D0,D6>                                           {[-12-]}
        <POP 21084-2108a Naked>                              Σ-12       ↓ →0x21090 ←0x2107a
            <MI 21084  MOVE.L  (A7),D1>                                         {[-12-]}
            <MI 21086  ADDQ.L  #0x1,D1>                                         {[-12-]}
            <MI 21088  BVS     0x21090>                                         {[-12-]}
        <POP 2108a-21090 Naked>                              Σ-12 Δ+4   →0x20d1a
            <POP 2108a-2108c StackAdj>                       Δ+4                {[-8-]}
            <MI 2108c  BRA     0x20d1a>                                         {[-8-]}
        <POP 21090-2109e Naked>                              Σ-12 Δ+8   ↓ →0x210a4 ←0x20d1e ←0x21084
            <POP 21090-21092 StackAdj>                       Δ+8                {[-4-]}
            <MI 21092  MOVE.L  (A7),D0>                                         {[-4-]}
            <MI 21094  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 21096  CMPI.L  #0x00000007,D0>                                  {[-4-]}
            <MI 2109c  BGT     0x210a4>                                         {[-4-]}
        <POP 2109e-210a4 Naked>                              Σ-4 Δ+4    →0x20cd6
            <POP 2109e-210a0 StackAdj>                       Δ+4                {}
            <MI 210a0  BRA     0x20cd6>                                         {}
        <POP 210a4-210be Naked>                              Σ-4 Δ+4    ↓ ←0x21090
            <POP 210a4-210a6 StackAdj>                       Δ+2                {[-2-]}
            <MI 210a6  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x210a8 0x1.2>                            Δ-2                {[-2-]|[#1]}
            <Call 0x210aa 0x20970>                                              {[-2-]|[#1]}
            <POP 210ae-210b0 StackAdj>                       Δ+2                {[-2-]}
            <POP 210b0-210b1 StackAdj>                       Δ+2                {}
            <Const 0x210b1 0x3.2>                            Δ-2                {[#3]}
            <Const 0x210b4 0x3.2>                            Δ-2                {[#3]|[#3]}
            <Call 0x210b8 0x20970>                                              {[#3]|[#3]}
            <POP 210bc-210be StackAdj>                       Δ+4                {}
        <POP 210be-210c6 Epilogue>                           Σ0         

0x210c6


@ 210c6
        <LVAR  0x010 4(r)>
        <LVAR  0x00e 2(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 2(r)>
        <LVAR -0x004 4(rw)>
        <LVAR -0x008 4(rw)>
        <LVAR -0x408 @>
        <LVAR -0x409 1(w)>
        <LVAR -0x40a 1(w) 2(r)>
        <LVAR -0x40f 1(w)>
        <LVAR -0x410 @>
        <LVAR -0x420 @>
    <POP 210c6-21416 Body>                                              
        <POP 210c6-210dc Prologue>                           Σ0         ↓
        <POP 210dc-210ec RegCacheLoad>                       Σ0         ↓
        <POP 210ec-21172 Naked>                              Σ0 Δ-4     ↓
            <MI 210ec  MOVE.L  #0x10,(A6-0x8)>                                  {}
            <MI 210f2  MOVE.L  #0x1,(A6-0x4)>                                   {}
            <MI 210fa  MOVEQ.L #0x00,D0>                                        {}
            <MI 210fc  MOVE.B  D0,(A6-0x40f)>                                   {}
            <MI 21100  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <MI 21102  MOVE.B  D0,-(A7)>                     Δ-2                {[2, '(A6+0x8)']|[2, 'D0']}
            <Call 0x21104 0x216ea>                                              {[2, '(A6+0x8)']|[2, 'D0']}
                exp_LOAD_DIAG_COUNTER.TYP(Sw_2, Sw_1)
            <POP 2110a-2110c StackAdj>                       Δ+2                {[2, '(A6+0x8)']}
            <MI 2110c  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <MI 2110e  MOVE.B  D0,-(A7)>                     Δ-2                {[2, '(A6+0x8)']|[2, 'D0']}
            <Call 0x21110 0x21736>                                              {[2, '(A6+0x8)']|[2, 'D0']}
                exp_LOAD_DIAG_COUNTER.VAL(Sw_2, Sw_1)
            <POP 21116-21118 StackAdj>                       Δ+2                {[2, '(A6+0x8)']}
            <MI 21118  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <MI 2111a  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']|[2, '(A6+0x8)']}
            <MI 2111c  MOVE.B  D0,-(A7)>                     Δ-2                {[2, '(A6+0x8)']|[2, '(A6+0x8)']|[2, 'D0']}
            <Call 0x2111e 0x2165c>                                              {[2, '(A6+0x8)']|[2, '(A6+0x8)']|[2, 'D0']}
                exp_LOAD_COUNTER.FIU(Sw_2, Sw_2, Sw_1)
            <POP 21124-21126 StackAdj>                       Δ+4                {[2, '(A6+0x8)']}
            <MI 21126  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <Call 0x21128 0x216a4>                                              {[2, '(A6+0x8)']}
                exp_LOAD_COUNTER.SEQ(Sw_2)
            <MI 2112e  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <MI 21130  MOVE.B  D0,-(A7)>                     Δ-2                {[2, '(A6+0x8)']|[2, 'D0']}
            <Call 0x21132 0x2175a>                                              {[2, '(A6+0x8)']|[2, 'D0']}
                exp_LOAD_WCS_ADDRESS.IOC(Sw_2, Sw_1)
            <POP 21138-2113a StackAdj>                       Δ+4                {}
            <Blob 0x2113a [18] @>                            Δ-18               {[«18""»]}
            <POP 21146-21148 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x21148 18>                                                    {[«18""»]|[$$LOAD_CONTROL_STORE]}
            <POP 2115a-2115c StackAdj>                       Δ-2                {[«18""»]|[$$LOAD_CONTROL_STORE]|[-2-]}
            <MI 2115c  CLR.B   (A7)>                                            {[«18""»]|[$$LOAD_CONTROL_STORE]|[-2-]}
            <Const 0x2115e 0x4.2>                            Δ-2                {[«18""»]|[$$LOAD_CONTROL_STORE]|[-2-]|[#4]}
            <Call 0x21162 0x20730>                                              {[«18""»]|[$$LOAD_CONTROL_STORE]|[-2-]|[#4]}
            <POP 21166-2116a StackAdj>                       Δ+22               {[-4-]}
            <MI 2116a  MOVE.L  (A6+0xa),(A7)>                                   {[4, '(A6+0xa)']}
            <MI 2116e  SUBQ.L  #0x1,(A7)>                                       {[-4-]}
            <MI 21170  MOVEQ.L #0x00,D0>                                        {[-4-]}
        <POP 21172-21176 Naked>                              Σ-4        ↓ →0x2117c ←0x213fa
            <MI 21172  CMP.L   (A7),D0>                                         {[-4-]}
            <MI 21174  BLE     0x2117c>                                         {[-4-]}
        <POP 21176-2117c Naked>                              Σ-4 Δ-4    →0x21400
            <POP 21176-21178 StackAdj>                       Δ-4                {[-8-]}
            <MI 21178  BRA     0x21400>                                         {[-8-]}
        <POP 2117c-211c6 Naked>                              Σ-4 Δ-4    ↓ →0x211e8 ←0x21172
            <MI 2117c  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 2117e  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, 'D0']|[4, '(A6+0x10)']}
            <MI 21182  MOVE.W  (A6+0xe),D1>                                     {[-4-]|[4, 'D0']|[4, '(A6+0x10)']}
            <MI 21186  EXTW.L  D1>                                              {[-4-]|[4, 'D0']|[4, '(A6+0x10)']}
            <MI 21188  ADD.L   D0,D1>                                           {[-4-]|[4, 'D0']|[4, '(A6+0x10)']}
            <POP 0x2118a LimitCheck 0x0 ≤ D1 ≤ 0x4000>                          {[-4-]|[4, 'D0']|[4, '(A6+0x10)']}
            <MI 21194  MOVE.W  D1,-(A7)>                     Δ-2                {[-4-]|[4, 'D0']|[4, '(A6+0x10)']|[2, 'D1']}
            <MI 21196  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, 'D0']|[4, '(A6+0x10)']|[2, 'D1']|[#0]}
            <Const 0x21198 0x200.2>                          Δ-2                {[-4-]|[4, 'D0']|[4, '(A6+0x10)']|[2, 'D1']|[#0]|[#512]}
            <Const 0x2119c 0x2.2>                            Δ-2                {[-4-]|[4, 'D0']|[4, '(A6+0x10)']|[2, 'D1']|[#0]|[#512]|[#2]}
            <MI 211a0  LEA.L   (A6-0x408),A0>                                   {[-4-]|[4, 'D0']|[4, '(A6+0x10)']|[2, 'D1']|[#0]|[#512]|[#2]}
            <MI 211a4  MOVE.L  A0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']|[4, '(A6+0x10)']|[2, 'D1']|[#0]|[#512]|[#2]|[4, 'A0']}
            <Pointer.fp 0x211a6 <LVAR -0x410 @>>             Δ-4                {[-4-]|[4, 'D0']|[4, '(A6+0x10)']|[2, 'D1']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-1040]}
            <Call 0x211aa 0x10384>                                              {[-4-]|[4, 'D0']|[4, '(A6+0x10)']|[2, 'D1']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-1040]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 211b0-211b4 StackAdj>                       Δ+20               {[-4-]|[4, 'D0']}
            <MI 211b4  MOVE.L  D0,D4>                                           {[-4-]|[4, 'D0']}
            <MI 211b6  MOVEQ.L #0x20,D3>                                        {[-4-]|[4, 'D0']}
            <Call 0x211b8 0x10294>                                              {[-4-]|[4, 'D0']}
                ?divs_d3_d4
            <MI 211be  CMPI.L  #0x0000001f,D3>                                  {[-4-]|[4, 'D0']}
            <MI 211c4  BNE     0x211e8>                                         {[-4-]|[4, 'D0']}
        <POP 211c6-211e8 Naked>                              Σ-8        ↓
            <Blob 0x211c6 [2] @>                             Δ-2                {[-8-]|[«2""»]}
            <POP 211ca-211cc StackAdj>                       Δ-4                {[-8-]|[«2""»]|[-4-]}
            <Lit 0x211cc 2>                                                     {[-8-]|[«2""»]|[$$. ]}
            <Call 0x211e0 0x103d8>                                              {[-8-]|[«2""»]|[$$. ]}
                WriteConsoleString(str : String)
            <POP 211e6-211e8 StackAdj>                       Δ+6                {[-8-]}
        <POP 211e8-211f0 Naked>                              Σ-8 Δ-4    ↓ ←0x2117c
            <MI 211e8  MOVEQ.L #0x00,D6>                                        {[-8-]}
            <MI 211ea  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0x4)']}
            <MI 211ee  MOVEQ.L #0x00,D5>                                        {[-8-]|[4, '(A6-0x4)']}
        <POP 211f0-211f6 Naked>                              Σ-12       ↓ →0x213f2 ←0x213de
            <MI 211f0  CMP.L   (A7),D5>                                         {[-12-]}
            <MI 211f2  BGT     0x213f2>                                         {[-12-]}
        <POP 211f6-211fc Naked>                              Σ-12 Δ-4   ↓
            <MI 211f6  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x8)']}
            <MI 211f8  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 211fa  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 211fc-21200 Naked>                              Σ-16       ↓ →0x21238 ←0x21200
            <MI 211fc  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 211fe  BGT     0x21238>                                         {[-16-]}
        <POP 21200-21238 Naked>                              Σ-16       ↓ →0x211fc
            <MI 21200  MOVE.L  D6,D0>                                           {[-16-]}
            <MI 21202  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x21204 LimitCheck 0x0 ≤ D0 ≤ 0x1f>                            {[-16-]}
            <MI 2120e  ASL.L   #0x5,D0>                                         {[-16-]}
            <MI 21210  LEA.L   (A6-0x420),A0>                                   {[-16-]}
            <MI 21212  MOVE.L  (A0+D0.L+#0x1c),-(A7)>        Δ-4                {[-16-]|[4, '(A0+D0.L+#0x1c)']}
            <MI 21216  MOVE.L  (A0+D0.L+#0x18),-(A7)>        Δ-4                {[-16-]|[4, '(A0+D0.L+#0x1c)']|[4, '(A0+D0.L+#0x18)']}
            <Blob 0x2121a [4] 0x2198c>                       Δ-4                {[-16-]|[4, '(A0+D0.L+#0x1c)']|[4, '(A0+D0.L+#0x18)']|[«4»]}
            <Pointer.sp 0x21220 4>                           Δ-4                {[-16-]|[4, '(A0+D0.L+#0x1c)']|[4, '(A0+D0.L+#0x18)']|[«4»]|[^^4]}
            <Const 0x21224 0x0.4>                            Δ-4                {[-16-]|[4, '(A0+D0.L+#0x1c)']|[4, '(A0+D0.L+#0x18)']|[«4»]|[^^4]|[##0]}
            <Const 0x21226 0x7.4>                            Δ-4                {[-16-]|[4, '(A0+D0.L+#0x1c)']|[4, '(A0+D0.L+#0x18)']|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x2122a 0x10466>                                              {[-16-]|[4, '(A0+D0.L+#0x1c)']|[4, '(A0+D0.L+#0x18)']|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 21230-21234 StackAdj>                       Δ+24               {[-16-]}
            <MI 21234  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 21236  BVC     0x211fc>                                         {[-16-]}
        <POP 21238-21248 Naked>                              Σ-16       ↓ ←0x211fc
            <POP 21238-2123a StackAdj>                       Δ+2                {[-14-]}
            <MI 2123a  CLR.B   (A7)>                                            {[-14-]}
            <Call 0x2123c 0x208d4>                                              {[-14-]}
            <POP 21240-21242 StackAdj>                       Δ+2                {[-12-]}
            <MI 21242  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x8)']}
            <MI 21244  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 21246  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 21248-2124c Naked>                              Σ-16       ↓ →0x21284 ←0x2124c
            <MI 21248  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 2124a  BGT     0x21284>                                         {[-16-]}
        <POP 2124c-21284 Naked>                              Σ-16       ↓ →0x21248
            <MI 2124c  MOVE.L  D6,D0>                                           {[-16-]}
            <MI 2124e  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x21250 LimitCheck 0x0 ≤ D0 ≤ 0x1f>                            {[-16-]}
            <MI 2125a  ASL.L   #0x5,D0>                                         {[-16-]}
            <MI 2125c  LEA.L   (A6-0x420),A0>                                   {[-16-]}
            <MI 2125e  MOVE.L  (A0+D0.L+#0x24),-(A7)>        Δ-4                {[-16-]|[4, '(A0+D0.L+#0x24)']}
            <MI 21262  MOVE.L  (A0+D0.L+#0x20),-(A7)>        Δ-4                {[-16-]|[4, '(A0+D0.L+#0x24)']|[4, '(A0+D0.L+#0x20)']}
            <Blob 0x21266 [4] 0x21990>                       Δ-4                {[-16-]|[4, '(A0+D0.L+#0x24)']|[4, '(A0+D0.L+#0x20)']|[«4»]}
            <Pointer.sp 0x2126c 4>                           Δ-4                {[-16-]|[4, '(A0+D0.L+#0x24)']|[4, '(A0+D0.L+#0x20)']|[«4»]|[^^4]}
            <Const 0x21270 0x0.4>                            Δ-4                {[-16-]|[4, '(A0+D0.L+#0x24)']|[4, '(A0+D0.L+#0x20)']|[«4»]|[^^4]|[##0]}
            <Const 0x21272 0x7.4>                            Δ-4                {[-16-]|[4, '(A0+D0.L+#0x24)']|[4, '(A0+D0.L+#0x20)']|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x21276 0x10466>                                              {[-16-]|[4, '(A0+D0.L+#0x24)']|[4, '(A0+D0.L+#0x20)']|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 2127c-21280 StackAdj>                       Δ+24               {[-16-]}
            <MI 21280  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 21282  BVC     0x21248>                                         {[-16-]}
        <POP 21284-21296 Naked>                              Σ-16       ↓ ←0x21248
            <POP 21284-21286 StackAdj>                       Δ+2                {[-14-]}
            <POP 21286-21287 StackAdj>                       Δ+2                {[-12-]}
            <Const 0x21287 0x1.2>                            Δ-2                {[-12-]|[#1]}
            <Call 0x2128a 0x208d4>                                              {[-12-]|[#1]}
            <POP 2128e-21290 StackAdj>                       Δ+2                {[-12-]}
            <MI 21290  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x8)']}
            <MI 21292  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 21294  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 21296-2129a Naked>                              Σ-16       ↓ →0x212d2 ←0x2129a
            <MI 21296  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 21298  BGT     0x212d2>                                         {[-16-]}
        <POP 2129a-212d2 Naked>                              Σ-16       ↓ →0x21296
            <MI 2129a  MOVE.L  D6,D0>                                           {[-16-]}
            <MI 2129c  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x2129e LimitCheck 0x0 ≤ D0 ≤ 0x1f>                            {[-16-]}
            <MI 212a8  ASL.L   #0x5,D0>                                         {[-16-]}
            <MI 212aa  LEA.L   (A6-0x420),A0>                                   {[-16-]}
            <MI 212ac  MOVE.L  (A0+D0.L+#0x2c),-(A7)>        Δ-4                {[-16-]|[4, '(A0+D0.L+#0x2c)']}
            <MI 212b0  MOVE.L  (A0+D0.L+#0x28),-(A7)>        Δ-4                {[-16-]|[4, '(A0+D0.L+#0x2c)']|[4, '(A0+D0.L+#0x28)']}
            <Blob 0x212b4 [4] 0x21994>                       Δ-4                {[-16-]|[4, '(A0+D0.L+#0x2c)']|[4, '(A0+D0.L+#0x28)']|[«4»]}
            <Pointer.sp 0x212ba 4>                           Δ-4                {[-16-]|[4, '(A0+D0.L+#0x2c)']|[4, '(A0+D0.L+#0x28)']|[«4»]|[^^4]}
            <Const 0x212be 0x0.4>                            Δ-4                {[-16-]|[4, '(A0+D0.L+#0x2c)']|[4, '(A0+D0.L+#0x28)']|[«4»]|[^^4]|[##0]}
            <Const 0x212c0 0x7.4>                            Δ-4                {[-16-]|[4, '(A0+D0.L+#0x2c)']|[4, '(A0+D0.L+#0x28)']|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x212c4 0x10466>                                              {[-16-]|[4, '(A0+D0.L+#0x2c)']|[4, '(A0+D0.L+#0x28)']|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 212ca-212ce StackAdj>                       Δ+24               {[-16-]}
            <MI 212ce  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 212d0  BVC     0x21296>                                         {[-16-]}
        <POP 212d2-212e4 Naked>                              Σ-16       ↓ ←0x21296
            <POP 212d2-212d4 StackAdj>                       Δ+2                {[-14-]}
            <POP 212d4-212d5 StackAdj>                       Δ+2                {[-12-]}
            <Const 0x212d5 0x2.2>                            Δ-2                {[-12-]|[#2]}
            <Call 0x212d8 0x208d4>                                              {[-12-]|[#2]}
            <POP 212dc-212de StackAdj>                       Δ+2                {[-12-]}
            <MI 212de  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x8)']}
            <MI 212e0  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 212e2  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 212e4-212ea Naked>                              Σ-16       ↓ →0x21390 ←0x212ea
            <MI 212e4  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 212e6  BGT     0x21390>                                         {[-16-]}
        <POP 212ea-21390 Naked>                              Σ-16       ↓ →0x212e4
            <MI 212ea  MOVE.L  D6,D0>                                           {[-16-]}
            <MI 212ec  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x212ee LimitCheck 0x0 ≤ D0 ≤ 0x1f>                            {[-16-]}
            <MI 212f8  ASL.L   #0x5,D0>                                         {[-16-]}
            <MI 212fa  LEA.L   (A6-0x420),A0>                                   {[-16-]}
            <MI 212fc  CLR.L   D1>                                              {[-16-]}
            <MI 212fe  MOVE.B  (A0+D0.L+#0x28),D1>                              {[-16-]}
            <MI 21302  ANDI.W  #0x0003,D1>                                      {[-16-]}
            <MI 21306  ASL.W   #0x6,D1>                                         {[-16-]}
            <MI 21308  CLR.L   D2>                                              {[-16-]}
            <MI 2130a  MOVE.B  (A0+D0.L+#0x29),D2>                              {[-16-]}
            <MI 2130e  ANDI.W  #0x0003,D2>                                      {[-16-]}
            <MI 21312  ASL.W   #0x4,D2>                                         {[-16-]}
            <MI 21314  ADD.W   D1,D2>                                           {[-16-]}
            <MI 21316  CLR.L   D1>                                              {[-16-]}
            <MI 21318  MOVE.B  (A0+D0.L+#0x2a),D1>                              {[-16-]}
            <MI 2131c  ANDI.W  #0x0003,D1>                                      {[-16-]}
            <MI 21320  ASL.W   #0x2,D1>                                         {[-16-]}
            <MI 21322  ADD.W   D2,D1>                                           {[-16-]}
            <MI 21324  CLR.L   D2>                                              {[-16-]}
            <MI 21326  MOVE.B  (A0+D0.L+#0x2b),D2>                              {[-16-]}
            <MI 2132a  ANDI.W  #0x0003,D2>                                      {[-16-]}
            <MI 2132e  ADD.W   D1,D2>                                           {[-16-]}
            <MI 21330  MOVE.B  D2,(A6-0x40a)>                                   {[-16-]}
            <MI 21334  CLR.L   D1>                                              {[-16-]}
            <MI 21336  MOVE.B  (A0+D0.L+#0x2c),D1>                              {[-16-]}
            <MI 2133a  ANDI.W  #0x0003,D1>                                      {[-16-]}
            <MI 2133e  ASL.W   #0x6,D1>                                         {[-16-]}
            <MI 21340  CLR.L   D2>                                              {[-16-]}
            <MI 21342  MOVE.B  (A0+D0.L+#0x2d),D2>                              {[-16-]}
            <MI 21346  ANDI.W  #0x0003,D2>                                      {[-16-]}
            <MI 2134a  ASL.W   #0x4,D2>                                         {[-16-]}
            <MI 2134c  ADD.W   D1,D2>                                           {[-16-]}
            <MI 2134e  CLR.L   D1>                                              {[-16-]}
            <MI 21350  MOVE.B  (A0+D0.L+#0x2e),D1>                              {[-16-]}
            <MI 21354  ANDI.W  #0x0003,D1>                                      {[-16-]}
            <MI 21358  ASL.W   #0x2,D1>                                         {[-16-]}
            <MI 2135a  ADD.W   D2,D1>                                           {[-16-]}
            <MI 2135c  CLR.L   D2>                                              {[-16-]}
            <MI 2135e  MOVE.B  (A0+D0.L+#0x2f),D2>                              {[-16-]}
            <MI 21362  ANDI.W  #0x0003,D2>                                      {[-16-]}
            <MI 21366  ADD.W   D1,D2>                                           {[-16-]}
            <MI 21368  MOVE.B  D2,(A6-0x409)>                                   {[-16-]}
            <MI 2136c  MOVE.W  (A6-0x40a),-(A7)>             Δ-2                {[-16-]|[2, '(A6-0x40a)']}
            <Blob 0x21370 [4] 0x2199c>                       Δ-4                {[-16-]|[2, '(A6-0x40a)']|[«4»]}
            <Pointer.sp 0x21376 4>                           Δ-4                {[-16-]|[2, '(A6-0x40a)']|[«4»]|[^^4]}
            <Const 0x2137a 0x0.4>                            Δ-4                {[-16-]|[2, '(A6-0x40a)']|[«4»]|[^^4]|[##0]}
            <Const 0x2137c 0x1.4>                            Δ-4                {[-16-]|[2, '(A6-0x40a)']|[«4»]|[^^4]|[##0]|[##1]}
            <Call 0x21380 0x10466>                                              {[-16-]|[2, '(A6-0x40a)']|[«4»]|[^^4]|[##0]|[##1]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 21386-2138a StackAdj>                       Δ+18               {[-16-]}
            <MI 2138a  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 2138c  BVC     0x212e4>                                         {[-16-]}
        <POP 21390-213a2 Naked>                              Σ-16       ↓ ←0x212e4
            <POP 21390-21392 StackAdj>                       Δ+2                {[-14-]}
            <POP 21392-21393 StackAdj>                       Δ+2                {[-12-]}
            <Const 0x21393 0x4.2>                            Δ-2                {[-12-]|[#4]}
            <Call 0x21396 0x208d4>                                              {[-12-]|[#4]}
            <POP 2139a-2139c StackAdj>                       Δ+2                {[-12-]}
            <MI 2139c  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x8)']}
            <MI 2139e  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 213a0  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 213a2-213a6 Naked>                              Σ-16       ↓ →0x213de ←0x213a6
            <MI 213a2  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 213a4  BGT     0x213de>                                         {[-16-]}
        <POP 213a6-213de Naked>                              Σ-16       ↓ →0x213a2
            <MI 213a6  MOVE.L  D6,D0>                                           {[-16-]}
            <MI 213a8  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x213aa LimitCheck 0x0 ≤ D0 ≤ 0x1f>                            {[-16-]}
            <MI 213b4  ASL.L   #0x5,D0>                                         {[-16-]}
            <MI 213b6  LEA.L   (A6-0x420),A0>                                   {[-16-]}
            <MI 213b8  MOVE.L  (A0+D0.L+#0x34),-(A7)>        Δ-4                {[-16-]|[4, '(A0+D0.L+#0x34)']}
            <MI 213bc  MOVE.L  (A0+D0.L+#0x30),-(A7)>        Δ-4                {[-16-]|[4, '(A0+D0.L+#0x34)']|[4, '(A0+D0.L+#0x30)']}
            <Blob 0x213c0 [4] 0x21998>                       Δ-4                {[-16-]|[4, '(A0+D0.L+#0x34)']|[4, '(A0+D0.L+#0x30)']|[«4»]}
            <Pointer.sp 0x213c6 4>                           Δ-4                {[-16-]|[4, '(A0+D0.L+#0x34)']|[4, '(A0+D0.L+#0x30)']|[«4»]|[^^4]}
            <Const 0x213ca 0x0.4>                            Δ-4                {[-16-]|[4, '(A0+D0.L+#0x34)']|[4, '(A0+D0.L+#0x30)']|[«4»]|[^^4]|[##0]}
            <Const 0x213cc 0x7.4>                            Δ-4                {[-16-]|[4, '(A0+D0.L+#0x34)']|[4, '(A0+D0.L+#0x30)']|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x213d0 0x10466>                                              {[-16-]|[4, '(A0+D0.L+#0x34)']|[4, '(A0+D0.L+#0x30)']|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 213d6-213da StackAdj>                       Δ+24               {[-16-]}
            <MI 213da  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 213dc  BVC     0x213a2>                                         {[-16-]}
        <POP 213de-213f2 Naked>                              Σ-16 Δ+4   ↓ →0x211f0 ←0x213a2
            <POP 213de-213e0 StackAdj>                       Δ+2                {[-14-]}
            <POP 213e0-213e1 StackAdj>                       Δ+2                {[-12-]}
            <Const 0x213e1 0x3.2>                            Δ-2                {[-12-]|[#3]}
            <Call 0x213e4 0x208d4>                                              {[-12-]|[#3]}
            <POP 213e8-213ea StackAdj>                       Δ+2                {[-12-]}
            <MI 213ea  ADD.L   (A6-0x8),D6>                                     {[-12-]}
            <MI 213ec  ADDQ.L  #0x1,D5>                                         {[-12-]}
            <MI 213ee  BVC     0x211f0>                                         {[-12-]}
        <POP 213f2-213fa Naked>                              Σ-12 Δ+4   ↓ →0x21400 ←0x211f0
            <POP 213f2-213f4 StackAdj>                       Δ+4                {[-8-]}
            <MI 213f4  MOVE.L  (A7),D0>                                         {[-8-]}
            <MI 213f6  ADDQ.L  #0x1,D0>                                         {[-8-]}
            <MI 213f8  BVS     0x21400>                                         {[-8-]}
        <POP 213fa-21400 Naked>                              Σ-8 Δ+4    →0x21172
            <POP 213fa-213fc StackAdj>                       Δ+4                {[-4-]}
            <MI 213fc  BRA     0x21172>                                         {[-4-]}
        <POP 21400-2140e Naked>                              Σ-8 Δ+8    ↓ ←0x21176 ←0x213f2
            <POP 21400-21402 StackAdj>                       Δ+6                {[-2-]}
            <MI 21402  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x21404 0x4.2>                            Δ-2                {[-2-]|[#4]}
            <Call 0x21408 0x20970>                                              {[-2-]|[#4]}
            <POP 2140c-2140e StackAdj>                       Δ+4                {}
        <POP 2140e-21416 Epilogue>                           Σ0         

0x21416


@ 21416
        <LVAR  0x00e 4(r)>
        <LVAR  0x00c @ 1(r)>
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 2(r)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00a @>
        <LVAR -0x00e @ 4(r)>
    <POP 21416-215b4 Body>                                   Δ+6        
        <POP 21416-2142c Prologue>                           Σ0         ↓
        <POP 2142c-21444 RegCacheLoad>                       Σ0         ↓
        <POP 21444-2146c Naked>                              Σ0         ↓ →0x21472
            <MI 21444  MOVE.L  (A6+0xe),-(A7)>               Δ-4                {[4, '(A6+0xe)']}
            <Pointer.fp 0x21448 <LVAR  0x00c @ 1(r)>>        Δ-4                {[4, '(A6+0xe)']|[@@12]}
            <Pointer.fp 0x2144a <LVAR -0x00e @ 4(r)>>        Δ-4                {[4, '(A6+0xe)']|[@@12]|[@@-14]}
            <Pointer.fp 0x2144c <LVAR -0x008 @ 4(r)>>        Δ-4                {[4, '(A6+0xe)']|[@@12]|[@@-14]|[@@-8]}
            <Pointer.fp 0x21450 <LVAR -0x004 @ 2(r)>>        Δ-4                {[4, '(A6+0xe)']|[@@12]|[@@-14]|[@@-8]|[@@-4]}
            <Call 0x21454 0x202fc>                                              {[4, '(A6+0xe)']|[@@12]|[@@-14]|[@@-8]|[@@-4]}
            <POP 21458-2145c StackAdj>                       Δ+18               {[-2-]}
            <POP 2145c-2145d StackAdj>                       Δ+2                {}
            <Const 0x2145d 0x5.2>                            Δ-2                {[#5]}
            <Const 0x2145e 0x2.2>                            Δ-2                {[#5]|[#2]}
            <Call 0x21460 0x1048a>                                              {[#5]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 21466-21468 StackAdj>                       Δ+4                {}
            <MI 21468  TST.B   (A6+0xc)>                                        {}
            <MI 2146a  BNE     0x21472>                                         {}
        <POP 2146c-21472 Naked>                              Σ0         ↓ →0x214b6
            <MI 2146c  TST.B   (A6+0x8)>                                        {}
            <MI 21470  BEQ     0x214b6>                                         {}
        <POP 21472-214b6 Naked>                              Σ0 Δ-6     →0x214fe ←0x21444
            <Blob 0x21472 [42] @>                            Δ-42               {[«42""»]}
            <POP 21482-21484 StackAdj>                       Δ-4                {[«42""»]|[-4-]}
            <Lit 0x21484 41>                                                    {[«42""»]|[$$Loading Register Files and Dispatch Rams_]}
            <Call 0x21490 0x103d8>                                              {[«42""»]|[$$Loading Register Files and Dispatch Rams_]}
                WriteConsoleString(str : String)
            <POP 21496-21498 StackAdj>                       Δ+42               {[-4-]}
            <MI 21498  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <Const 0x2149a 0x1.2>                            Δ-2                {[4, '(A6-0xe)']|[#1]}
            <Const 0x2149c 0x19.2>                           Δ-2                {[4, '(A6-0xe)']|[#1]|[#25]}
            <Call 0x214a0 0x20c16>                                              {[4, '(A6-0xe)']|[#1]|[#25]}
            <POP 214a4-214a5 StackAdj>                       Δ+8        ↓       {}
            <Blob 0x214a5 [6] @>                             Δ-6                {[«6""»]}
            <MI 214b4  BRA     0x214fe>                                         {[«6""»]}
        <POP 214b6-214bc Naked>                              Σ0         ↓ →0x21516 ←0x2146c
            <MI 214b6  TST.B   (A6+0xa)>                                        {}
            <MI 214ba  BEQ     0x21516>                                         {}
        <POP 214bc-214fe Naked>                              Σ0 Δ-6     ↓
            <Blob 0x214bc [24] @>                            Δ-24               {[«24""»]}
            <POP 214ce-214d0 StackAdj>                       Δ-4                {[«24""»]|[-4-]}
            <Lit 0x214d0 23>                                                    {[«24""»]|[$$Loading Register Files_]}
            <Call 0x214de 0x103d8>                                              {[«24""»]|[$$Loading Register Files_]}
                WriteConsoleString(str : String)
            <POP 214e4-214e8 StackAdj>                       Δ+24               {[-4-]}
            <MI 214e8  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <Const 0x214ea 0x1.2>                            Δ-2                {[4, '(A6-0xe)']|[#1]}
            <Call 0x214ec 0x209c0>                                              {[4, '(A6-0xe)']|[#1]}
            <MI 214f0  MOVEA.L A7,A0>                                           {[4, '(A6-0xe)']|[#1]}
            <MI 214f2  LEA.L   0x2024c,A1>                                      {[4, '(A6-0xe)']|[#1]}
            <BlockMove 5,A1,A0>                                                 {[4, '(A6-0xe)']|[#1]}
        <POP 214fe-21516 Naked>                              Σ-6 Δ+6    ↓ ←0x21472
            <POP 214fe-21500 StackAdj>                       Δ-4                {[-10-]}
            <Lit 0x21500>                                                       {[-6-]|[$$…]}
                <Pointer.sp 0x21500 4>                       Δ-4        
                <Const 0x21504 0x1.2>                        Δ-2        
                <Const 0x21506 0x5.2>                        Δ-2        
                <Call 0x21508 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2150a-2150c StackAdj>                   Δ+8        
            <Call 0x2150c 0x103e0>                                              {[-6-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 21512-21516 StackAdj>                       Δ+10               {}
        <POP 21516-2151a Naked>                              Σ0         ↓ →0x21582 ←0x214b6
            <MI 21516  TST.B   (A6+0xc)>                                        {}
            <MI 21518  BEQ     0x21582>                                         {}
        <POP 2151a-21582 Naked>                              Σ0         ↓
            <Blob 0x2151a [22] @>                            Δ-22               {[«22""»]}
            <POP 21526-21528 StackAdj>                       Δ-4                {[«22""»]|[-4-]}
            <Lit 0x21528 22>                                                    {[«22""»]|[$$Loading Control Store_]}
            <Call 0x21536 0x103d8>                                              {[«22""»]|[$$Loading Control Store_]}
                WriteConsoleString(str : String)
            <POP 2153c-21540 StackAdj>                       Δ+22               {[-4-]}
            <MI 21540  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <Const 0x21542 0x29.2>                           Δ-2                {[4, '(A6-0xe)']|[#41]}
            <MI 21544  MOVE.L  (A6-0x8),D4>                                     {[4, '(A6-0xe)']|[#41]}
            <MI 21548  MOVEQ.L #0x20,D3>                                        {[4, '(A6-0xe)']|[#41]}
            <Call 0x2154a 0x10294>                                              {[4, '(A6-0xe)']|[#41]}
                ?divs_d3_d4
            <MI 21550  MOVE.L  D4,-(A7)>                     Δ-4                {[4, '(A6-0xe)']|[#41]|[4, 'D4']}
            <MI 21552  MOVE.W  (A6-0x4),-(A7)>               Δ-2                {[4, '(A6-0xe)']|[#41]|[4, 'D4']|[2, '(A6-0x4)']}
            <Call 0x21556 0x210c6>                                              {[4, '(A6-0xe)']|[#41]|[4, 'D4']|[2, '(A6-0x4)']}
            <POP 2155a-2155b StackAdj>                       Δ+12       ↓       {}
            <Blob 0x2155b [6] @>                             Δ-6                {[«6""»]}
            <POP 2156a-2156c StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <Lit 0x2156c 5>                                                     {[«6""»]|[$$ [OK]]}
            <Call 0x21578 0x103e0>                                              {[«6""»]|[$$ [OK]]}
                WriteConsoleStringCrLf(str : String)
            <POP 2157e-21582 StackAdj>                       Δ+10               {}
        <POP 21582-215ac Naked>                              Σ0         ↓ ←0x21516
            <Const 0x21582 0x5.2>                            Δ-2                {[#5]}
            <Const 0x21584 0x2.2>                            Δ-2                {[#5]|[#2]}
            <Call 0x21586 0x1048a>                                              {[#5]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <MI 2158c  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <Call 0x2158e 0x20632>                                              {[4, '(A6-0xe)']}
            <POP 21592-21594 StackAdj>                       Δ+2                {[-2-]}
            <MI 21594  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x21596 0x2.2>                            Δ-2                {[-2-]|[#2]}
            <Const 0x21598 0x1.4>                            Δ-4                {[-2-]|[#2]|[##1]}
            <Pointer.fp 0x2159c <LVAR -0x00a @>>             Δ-4                {[-2-]|[#2]|[##1]|[@@-10]}
            <Pointer.fp 0x215a0 <LVAR -0x00e @ 4(r)>>        Δ-4                {[-2-]|[#2]|[##1]|[@@-10]|[@@-14]}
            <Call 0x215a2 0x1038c>                                              {[-2-]|[#2]|[##1]|[@@-10]|[@@-14]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 215a8-215ac StackAdj>                       Δ+16               {}
        <POP 215ac-215b4 Epilogue>                           Σ0         

0x215b4


@ 215b4
START
    <POP 215b4--0001 Body>                                              
        <POP 215b4-215be Prologue>                           Σ0         
        <POP 215be-215dc RegCacheLoad>                       Σ0         ↓
        <POP 215dc-21656 Naked>                              Σ0         ↓
            <Call 0x215dc 0x10398>                                              {}
                FSCALL_10398
            <Const 0x215e2 0x5.4>                            Δ-4                {[##5]}
            <Call 0x215e6 0x104d8>                                              {[##5]}
                ExpInit(a : Long)
            <POP 215ec-215ee StackAdj>                       Δ+2                {[-2-]}
            <MI 215ee  CLR.B   (A7)>                                            {[-2-]}
            <Call 0x215f0 0x104d2>                                              {[-2-]}
                SetExpInitDone(a : Byte)
            <POP 215f6-215f8 StackAdj>                       Δ+2                {}
            <Call 0x215f8 0x10538>                                              {}
                IPC_Init(void)
            <Const 0x215fe 0x219a6.4>                        Δ-4                {[##137638]}
            <Call 0x21600 0x1052c>                                              {[##137638]}
                IPC_GetString(VAR retval : String)
            <POP 21606-21608 StackAdj>                       Δ+4                {}
            <Const 0x21608 0x219aa.4>                        Δ-4                {[##137642]}
            <Call 0x2160a 0x10526>                                              {[##137642]}
                IPC_GetBool() : Bool
            <POP 2160c-2160e StackAdj>                       Δ+4                {}
            <Const 0x2160e 0x219ab.4>                        Δ-4                {[##137643]}
            <Call 0x21610 0x10526>                                              {[##137643]}
                IPC_GetBool() : Bool
            <POP 21612-21614 StackAdj>                       Δ+4                {}
            <Const 0x21614 0x219ac.4>                        Δ-4                {[##137644]}
            <Call 0x21616 0x10526>                                              {[##137644]}
                IPC_GetBool() : Bool
            <POP 21618-2161a StackAdj>                       Δ+4                {}
            <Call 0x2161a 0x1051a>                                              {}
                IPC_GetEnd(void)
            <Blob 0x21620 [4] 0x219a6>                       Δ-4                {[«4»]}
            <Blob 0x21622 [2] 0x219aa>                       Δ-2                {[«4»]|[«2»]}
            <Blob 0x21624 [2] 0x219ab>                       Δ-2                {[«4»]|[«2»]|[«2»]}
            <Blob 0x21626 [2] 0x219ac>                       Δ-2                {[«4»]|[«2»]|[«2»]|[«2»]}
            <Call 0x21628 0x21416>                                              {[«4»]|[«2»]|[«2»]|[«2»]}
            <POP 2162c-21630 StackAdj>                       Δ+10               {}
            <Call 0x21630 0x10538>                                              {}
                IPC_Init(void)
            <Const 0x21636 0x1.2>                            Δ-2                {[#1]}
            <Call 0x2163a 0x10502>                                              {[#1]}
                IPC_PutBool(a : Bool)
            <POP 21640-21642 StackAdj>                       Δ+2                {}
            <Call 0x21642 0x10514>                                              {}
                IPC_PutEnd(void)
            <MI 21648  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x2164a 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x2164e 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 21654-21656 StackAdj>                       Δ+6                {}
        <POP 21656-2165c Naked>                              Σ0         
            <Call 0x21656 0x10284>                                              {}
                ?exit

0x2178c


@ 2178c
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 2178c-217f4 Body>                                              
        <POP 2178c-217a2 Prologue>                           Σ0         ↓
        <POP 217a2-217ec Naked>                              Σ0         ↓
            <Blob 0x217a2 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x217ae 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 217b2-217b4 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x217b4 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 217c6-217c8 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 217c8  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 217cc  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 217ce  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 217d0  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x217d2 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 217d8-217da StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x217da 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 217e0-217e2 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x217e2 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 217e8-217ec StackAdj>                       Δ+20               {}
        <POP 217ec-217f4 Epilogue>                           Σ0         

0x21848


@ 21848
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 21848-21984 Body>                                              
        <POP 21848-2185e Prologue>                           Σ0         ↓
        <POP 2185e-21874 RegCacheLoad>                       Σ0         ↓
        <POP 21874-218d4 Naked>                              Σ0         ↓ →0x2191c
            <Call 0x21874 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x2187a [18] @>                            Δ-18               {[«18""»]}
            <POP 21886-21888 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x21888 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x21894 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 21896-21897 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x21897 [14] @>                            Δ-14               {[«14""»]}
            <POP 218a6-218a8 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x218a8 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 218b2-218b4 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 218b4  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x218b8 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 218be-218c0 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x218c0 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 218c6-218c8 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x218c8 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 218ca-218cc StackAdj>                       Δ+18               {}
            <MI 218cc  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 218d0  CMPA.W  #0x01,A0>                                        {}
            <MI 218d2  BEQ     0x2191c>                                         {}
        <POP 218d4-2191c Naked>                              Σ0         ↓
            <Blob 0x218d4 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x218e4 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 218f4-218f6 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x218f6 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 21900-21902 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x21902>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x21902 12>                      Δ-4        
                <Const 0x21906 0x1.2>                        Δ-2        
                <Const 0x21908 0x1e.2>                       Δ-2        
                <Call 0x2190a 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2190c-2190e StackAdj>                   Δ+8        
            <Call 0x2190e 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 21914-21916 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x21916 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21918-2191c StackAdj>                       Δ+48               {}
        <POP 2191c-2197c Naked>                              Σ0         ↓ ←0x21874
            <Blob 0x2191c [14] @>                            Δ-14               {[«14""»]}
            <POP 2192c-2192e StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x2192e 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 21938-2193a StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 2193a  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x2193e 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 21944-21946 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x21946 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2194c-2194e StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x2194e 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21950-21951 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x21951 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x21960 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 21964-21966 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x21966 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x21974 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 2197a-2197c StackAdj>                       Δ+30               {}
        <POP 2197c-21984 Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.5537b1cf44405481
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 15 b4              |        |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 19 c0              |        |		.PTR	0x219c0
00020010					code.end:
00020010 00 02 19 84              |        |		.PTR	0x21984
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 17 8c              |        |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 18 48              |   H    |		.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 4d 69 63 72 6f 63 6f 64  |Microcod|		.TXT	'Microcode is not for this type of processor.'
00020136 4d 69 63 72 6f 63 6f 64  |Microcod|		.TXT	'Microcode file size is inconsistent.'
0002015a 46 69 6c 65              |File    |		.TXT	'File'
0002015e 20 20 3a 5f              |  :_    |		.TXT	'  :_'
00020162 42 6f 75 6e              |Boun    |		.TXT	'Boun'
00020166 64 20 3a 5f              |d :_    |		.TXT	'd :_'
0002016a 44 65 6c 74              |Delt    |		.TXT	'Delt'
0002016e 61 20 3a 5f              |a :_    |		.TXT	'a :_'
00020172 4d 6f 6d 20              |Mom     |		.TXT	'Mom '
00020176 20 20 3a 5f              |  :_    |		.TXT	'  :_'
0002017a 4c 41 53 54 5f 55 43 4f  |LAST_UCO|		.TXT	'LAST_UCODE'
00020184 4c 41 53 54 5f 55 43 4f  |LAST_UCO|		.TXT	'LAST_UCODE'
0002018e 5f 32 30 30              |_200    |		.TXT	'_200'
00020192 2e 54 59 50              |.TYP    |		.TXT	'.TYP'
00020196 5f 32 30 30              |_200    |		.TXT	'_200'
0002019a 2e 56 41 4c              |.VAL    |		.TXT	'.VAL'
0002019e 5f 32 30 30              |_200    |		.TXT	'_200'
000201a2 2e 46 49 55              |.FIU    |		.TXT	'.FIU'
000201a6 5f 32 30 30              |_200    |		.TXT	'_200'
000201aa 2e 53 45 51              |.SEQ    |		.TXT	'.SEQ'
000201ae 5f 32 30 30              |_200    |		.TXT	'_200'
000201b2 2e 49 4f 43              |.IOC    |		.TXT	'.IOC'
000201b6 4c 4f 41 44 5f 52 45 47  |LOAD_REG|		.TXT	'LOAD_REGISTER_FILE'
000201c8 2e 20                    |.       |		.TXT	'. '
000201ca 4c 4f 41 44 5f 52 45 47  |LOAD_REG|		.TXT	'LOAD_REGISTER_FILE'
000201dc 4c 4f 41 44 5f 44 49 53  |LOAD_DIS|		.TXT	'LOAD_DISPATCH_RAMS'
000201ee 2e 20                    |.       |		.TXT	'. '
000201f0 4c 4f 41 44 5f 43 4f 4e  |LOAD_CON|		.TXT	'LOAD_CONTROL_STORE'
00020202 2e 20                    |.       |		.TXT	'. '
00020204 4c 6f 61 64 69 6e 67 20  |Loading |		.TXT	'Loading Register Files and Dispatch Rams_ '
0002022e 20 5b 4f 4b 5d 20        | [OK]   |		.TXT	' [OK] '
00020234 4c 6f 61 64 69 6e 67 20  |Loading |		.TXT	'Loading Register Files_ '
0002024c 20 5b 4f 4b              | [OK    |		.XXX[0x4]
00020250 5d 20                    |]       |		.XXX[0x2]
00020252 4c 6f 61 64 69 6e 67 20  |Loading |		.TXT	'Loading Control Store_'
00020268 20 5b 4f 4b 5d 20        | [OK]   |		.TXT	' [OK] '
0002026e 06 07                    |        |		.XXX[0x2]
00020270 03 02 04 00              |        |		.XXX[0x4]
00020274 ; --------------------------------------------------------------------------------------
00020274 ; OMSI PASCAL Function
00020274 ;    <LVAR  0x00c 4(r)>
00020274 ;    <LVAR  0x008 4(rw)>
00020274 ; --------------------------------------------------------------------------------------
00020274 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6
00020278 bf d5                    |        |		CMPA.L	(A5),A7
0002027a 62 06                    |b       |		BHI	0x20282
0002027c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020280 4e 76                    |Nv      |		TRAPV
00020282 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00020286 48 e7 db 00              |H       |		MOVEM.L	D7+D6+D4+D3+D1+D0,-(A7)
0002028a 7c 00                    ||       |		MOVEQ.L	#0x00,D6
0002028c 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
00020290 0c 80 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D0
00020296 63 02                    |c       |		BLS	0x2029a
00020298 4e 4f                    |NO      |		TRAP	#15
0002029a e3 80                    |        |		ASL.L	#0x1,D0
0002029c 42 81                    |B       |		CLR.L	D1
0002029e 32 34 08 00              |24      |		MOVE.W	(A4+D0.L),D1
000202a2 2e 01                    |.       |		MOVE.L	D1,D7
000202a4 4a 06                    |J       |		TST.B	D6
000202a6 67 06                    |g       |		BEQ	0x202ae
000202a8 52 ae 00 08              |R       |		ADDQ.L	#0x1,(A6+0x8)
000202ac 60 10                    |`       |		BRA	0x202be
000202ae 28 07                    |(       |		MOVE.L	D7,D4
000202b0 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
000202b6 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
000202bc 2e 04                    |.       |		MOVE.L	D4,D7
000202be 02 87 00 00 00 ff        |        |		ANDI.L	#0x000000ff,D7
000202c4 44 06                    |D       |		NEG.B	D6
000202c6 52 06                    |R       |		ADDQ.B	#0x1,D6
000202c8 4a 87                    |J       |		TST.L	D7
000202ca 67 18                    |g       |		BEQ	0x202e4
000202cc 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000202d0 0c 87 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D7
000202d6 63 02                    |c       |		BLS	0x202da
000202d8 4e 4f                    |NO      |		TRAP	#15
000202da 1f 07                    |        |		MOVE.B	D7,-(A7)
000202dc 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
000202e2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000202e4 4a 87                    |J       |		TST.L	D7
000202e6 66 a4                    |f       |		BNE	0x2028c
000202e8 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000202ec 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000202f2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000202f4 4c df 00 db              |L       |		MOVEM.L	(A7)+,D0+D1+D3+D4+D6+D7
000202f8 4e 5e                    |N^      |		UNLK	A6
000202fa 4e 75                    |Nu      |		RTS
000202fc ; --------------------------------------------------------------------------------------
000202fc ; OMSI PASCAL Function
000202fc ;    <LVAR  0x018 4(r)>
000202fc ;    <LVAR  0x014 4(r)>
000202fc ;    <LVAR  0x010 4(r)>
000202fc ;    <LVAR  0x00c 4(r)>
000202fc ;    <LVAR  0x008 4(r)>
000202fc ;    <LVAR -0x006 @ 4(r)>
000202fc ;    <LVAR -0x00a @ 4(rw)>
000202fc ;    <LVAR -0x00e @ 4(rw)>
000202fc ;    <LVAR -0x012 @ 4(rw)>
000202fc ;    <LVAR -0x018 @ 1(r)>
000202fc ;    <LVAR -0x414 2(r)>
000202fc ;    <LVAR -0x416 2(r)>
000202fc ;    <LVAR -0x418 @ 2(r)>
000202fc ; --------------------------------------------------------------------------------------
000202fc 4e 56 fb 6a              |NV j    |		LINK.W	A6,#0xfb6a
00020300 bf d5                    |        |		CMPA.L	(A5),A7
00020302 62 06                    |b       |		BHI	0x2030a
00020304 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020308 4e 76                    |Nv      |		TRAPV
0002030a de fc 00 7e              |   ~    |		ADDA.W	#0x7e,A7
0002030e 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020312 45 ee ff e8              |E       |		LEA.L	(A6-0x18),A2
00020316 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
0002031c 74 01                    |t       |		MOVEQ.L	#0x01,D2
0002031e 7a 02                    |z       |		MOVEQ.L	#0x02,D5
00020320 7c 14                    ||       |		MOVEQ.L	#0x14,D6
00020322 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00020326 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020328 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
0002032c 42 27                    |B'      |		CLR.B	-(A7)
0002032e 1f 05                    |        |		MOVE.B	D5,-(A7)
00020330 48 78 00 00              |Hx      |		PEA.L	0x0
00020334 48 52                    |HR      |		PEA.L	(A2)
00020336 48 50                    |HP      |		PEA.L	(A0)
00020338 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0002033e de c6                    |        |		ADDA.W	D6,A7
00020340 22 50                    |"P      |		MOVEA.L	(A0),A1
00020342 30 29 00 20              |0)      |		MOVE.W	(A1+0x20),D0
00020346 48 c0                    |H       |		EXTW.L	D0
00020348 2e 00                    |.       |		MOVE.L	D0,D7
0002034a 2f 10                    |/       |		MOVE.L	(A0),-(A7)
0002034c 42 67                    |Bg      |		CLR.W	-(A7)
0002034e 42 67                    |Bg      |		CLR.W	-(A7)
00020350 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020354 1f 05                    |        |		MOVE.B	D5,-(A7)
00020356 43 ee fb e8              |C       |		LEA.L	(A6-0x418),A1
0002035a 2f 09                    |/       |		MOVE.L	A1,-(A7)
0002035c 48 52                    |HR      |		PEA.L	(A2)
0002035e 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020364 de c6                    |        |		ADDA.W	D6,A7
00020366 22 6e 00 0c              |"n      |		MOVEA.L	(A6+0xc),A1
0002036a 42 80                    |B       |		CLR.L	D0
0002036c 30 2e fb e8              |0.      |		MOVE.W	(A6-0x418),D0
00020370 22 80                    |"       |		MOVE.L	D0,(A1)
00020372 22 6e 00 08              |"n      |		MOVEA.L	(A6+0x8),A1
00020376 32 2e fb ea              |2.      |		MOVE.W	(A6-0x416),D1
0002037a e0 49                    | I      |		LSR.W	#0x8,D1
0002037c 12 81                    |        |		MOVE.B	D1,(A1)
0002037e 32 2e fb ea              |2.      |		MOVE.W	(A6-0x416),D1
00020382 02 41 00 ff              | A      |		ANDI.W	#0x00ff,D1
00020386 43 bc 00 ff              |C       |		CHK.W	#0xff,D1
0002038a 13 41 00 01              | A      |		MOVE.B	D1,(A1+0x1)
0002038e 32 2e fb ec              |2.      |		MOVE.W	(A6-0x414),D1
00020392 0c 41 00 c8              | A      |		CMPI.W	#0x00c8,D1
00020396 67 2a                    |g*      |		BEQ	0x203c2
00020398 41 fa fd 9c              |A       |		LEA.L	0x20136,A0
0002039c 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
0002039e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000203a0 51 c9 ff fc              |Q       |		DBF	D1,0x2039e
000203a4 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
000203a8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000203aa 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000203ae 3f 02                    |?       |		MOVE.W	D2,-(A7)
000203b0 3f 3c 00 2c              |?< ,    |		MOVE.W	#0x2c,-(A7)
000203b4 4e 93                    |N       |		JSR	(A3)
000203b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000203b8 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000203be de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000203c2 22 07                    |"       |		MOVE.L	D7,D1
000203c4 04 81 00 00 00 29        |     )  |		SUBI.L	#0x00000029,D1
000203ca 28 00                    |(       |		MOVE.L	D0,D4
000203cc 76 20                    |v       |		MOVEQ.L	#0x20,D3
000203ce 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
000203d4 b2 84                    |        |		CMP.L	D4,D1
000203d6 67 2a                    |g*      |		BEQ	0x20402
000203d8 41 fa fd 80              |A       |		LEA.L	0x2015a,A0
000203dc 70 08                    |p       |		MOVEQ.L	#0x08,D0
000203de 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000203e0 51 c8 ff fc              |Q       |		DBF	D0,0x203de
000203e4 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
000203e8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000203ea 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000203ee 3f 02                    |?       |		MOVE.W	D2,-(A7)
000203f0 3f 3c 00 24              |?< $    |		MOVE.W	#0x24,-(A7)
000203f4 4e 93                    |N       |		JSR	(A3)
000203f6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000203f8 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000203fe de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00020402 2f 3a fd 5a              |/: Z    |		MOVE.L	0x2015e,-(A7)
00020406 2f 3a fd 52              |/: R    |		MOVE.L	0x2015a,-(A7)
0002040a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002040c 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020410 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020412 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00020416 4e 93                    |N       |		JSR	(A3)
00020418 2e ae 00 18              |.       |		MOVE.L	(A6+0x18),(A7)
0002041c 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00020422 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020424 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002042a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002042c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020432 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020434 2e ba fd 30              |.  0    |		MOVE.L	0x20166,(A7)
00020438 2f 3a fd 28              |/: (    |		MOVE.L	0x20162,-(A7)
0002043c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002043e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020442 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020444 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00020448 4e 93                    |N       |		JSR	(A3)
0002044a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002044c 48 78 00 04              |Hx      |		PEA.L	0x4
00020450 49 ee fb e8              |I       |		LEA.L	(A6-0x418),A4
00020454 4e ba fe 1e              |N       |		JSR	0x20274
00020458 de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002045c 2e ba fd 10              |.       |		MOVE.L	0x2016e,(A7)
00020460 2f 3a fd 08              |/:      |		MOVE.L	0x2016a,-(A7)
00020464 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020466 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002046a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002046c 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00020470 4e 93                    |N       |		JSR	(A3)
00020472 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020474 48 78 00 3c              |Hx <    |		PEA.L	0x3c
00020478 49 ee fb e8              |I       |		LEA.L	(A6-0x418),A4
0002047c 4e ba fd f6              |N       |		JSR	0x20274
00020480 de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020484 2e ba fc f0              |.       |		MOVE.L	0x20176,(A7)
00020488 2f 3a fc e8              |/:      |		MOVE.L	0x20172,-(A7)
0002048c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002048e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020492 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020494 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00020498 4e 93                    |N       |		JSR	(A3)
0002049a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002049c 48 78 00 14              |Hx      |		PEA.L	0x14
000204a0 49 ee fb e8              |I       |		LEA.L	(A6-0x418),A4
000204a4 4e ba fd ce              |N       |		JSR	0x20274
000204a8 de fc 00 10              |        |		ADDA.W	#0x10,A7
000204ac 41 fa fc d6              |A       |		LEA.L	0x20184,A0
000204b0 70 04                    |p       |		MOVEQ.L	#0x04,D0
000204b2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000204b4 51 c8 ff fc              |Q       |		DBF	D0,0x204b2
000204b8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000204ba 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000204be 3f 02                    |?       |		MOVE.W	D2,-(A7)
000204c0 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
000204c4 4e 93                    |N       |		JSR	(A3)
000204c6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000204c8 2d 5f ff ee              |-_      |		MOVE.L	(A7)+,(A6-0x12)
000204cc de fc 00 0a              |        |		ADDA.W	#0xa,A7
000204d0 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
000204d4 4a 10                    |J       |		TST.B	(A0)
000204d6 66 00 01 44              |f  D    |		BNE	0x2061c
000204da 2f 2e ff ee              |/.      |		MOVE.L	(A6-0x12),-(A7)
000204de 42 27                    |B'      |		CLR.B	-(A7)
000204e0 42 27                    |B'      |		CLR.B	-(A7)
000204e2 48 78 00 00              |Hx      |		PEA.L	0x0
000204e6 48 52                    |HR      |		PEA.L	(A2)
000204e8 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000204ec 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000204f2 de c6                    |        |		ADDA.W	D6,A7
000204f4 4a 12                    |J       |		TST.B	(A2)
000204f6 67 06                    |g       |		BEQ	0x204fe
000204f8 10 82                    |        |		MOVE.B	D2,(A0)
000204fa 60 00 01 20              |`       |		BRA	0x2061c
000204fe 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00020502 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00020508 2e ae ff fa              |.       |		MOVE.L	(A6-0x6),(A7)
0002050c 42 67                    |Bg      |		CLR.W	-(A7)
0002050e 42 67                    |Bg      |		CLR.W	-(A7)
00020510 3f 3c 00 40              |?< @    |		MOVE.W	#0x40,-(A7)
00020514 1f 05                    |        |		MOVE.B	D5,-(A7)
00020516 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
0002051a 48 52                    |HR      |		PEA.L	(A2)
0002051c 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020522 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00020526 2e ae ff f2              |.       |		MOVE.L	(A6-0xe),(A7)
0002052a 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
0002052e 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
00020534 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020536 4a 1f                    |J       |		TST.B	(A7)+
00020538 66 02                    |f       |		BNE	0x2053c
0002053a 10 82                    |        |		MOVE.B	D2,(A0)
0002053c 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00020540 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020546 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020548 4a 10                    |J       |		TST.B	(A0)
0002054a 66 00 00 86              |f       |		BNE	0x205d2
0002054e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020550 22 6f 00 04              |"o      |		MOVEA.L	(A7+0x4),A1
00020554 22 51                    |"Q      |		MOVEA.L	(A1),A1
00020556 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020558 1e a9 00 3a              |   :    |		MOVE.B	(A1+0x3a),(A7)
0002055c 1f 69 00 3b 00 01        | i ;    |		MOVE.B	(A1+0x3b),(A7+0x1)
00020562 1f 69 00 3c 00 02        | i <    |		MOVE.B	(A1+0x3c),(A7+0x2)
00020568 1f 69 00 3d 00 03        | i =    |		MOVE.B	(A1+0x3d),(A7+0x3)
0002056e 4e b9 00 01 03 08        |N       |		JSR	TimeToText()
00020574 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020576 2d 57 ff f2              |-W      |		MOVE.L	(A7),(A6-0xe)
0002057a 22 6e ff fa              |"n      |		MOVEA.L	(A6-0x6),A1
0002057e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020580 1e a9 00 3a              |   :    |		MOVE.B	(A1+0x3a),(A7)
00020584 1f 69 00 3b 00 01        | i ;    |		MOVE.B	(A1+0x3b),(A7+0x1)
0002058a 1f 69 00 3c 00 02        | i <    |		MOVE.B	(A1+0x3c),(A7+0x2)
00020590 1f 69 00 3d 00 03        | i =    |		MOVE.B	(A1+0x3d),(A7+0x3)
00020596 4e b9 00 01 03 08        |N       |		JSR	TimeToText()
0002059c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002059e 2d 57 ff f6              |-W      |		MOVE.L	(A7),(A6-0xa)
000205a2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000205a4 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
000205a8 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
000205ac 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
000205b2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000205b4 4a 1f                    |J       |		TST.B	(A7)+
000205b6 66 02                    |f       |		BNE	0x205ba
000205b8 10 82                    |        |		MOVE.B	D2,(A0)
000205ba 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
000205be 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000205c4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000205c6 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
000205ca 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
000205d0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000205d2 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
000205d6 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000205dc 2e ae ff fa              |.       |		MOVE.L	(A6-0x6),(A7)
000205e0 42 67                    |Bg      |		CLR.W	-(A7)
000205e2 42 67                    |Bg      |		CLR.W	-(A7)
000205e4 3f 3c 00 40              |?< @    |		MOVE.W	#0x40,-(A7)
000205e8 1f 05                    |        |		MOVE.B	D5,-(A7)
000205ea 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
000205ee 48 52                    |HR      |		PEA.L	(A2)
000205f0 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
000205f6 de c6                    |        |		ADDA.W	D6,A7
000205f8 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
000205fc 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020602 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020604 42 17                    |B       |		CLR.B	(A7)
00020606 1f 05                    |        |		MOVE.B	D5,-(A7)
00020608 48 78 00 01              |Hx      |		PEA.L	0x1
0002060c 48 52                    |HR      |		PEA.L	(A2)
0002060e 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00020612 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020618 de fc 00 10              |        |		ADDA.W	#0x10,A7
0002061c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002061e 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00020622 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020628 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002062a 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002062e 4e 5e                    |N^      |		UNLK	A6
00020630 4e 75                    |Nu      |		RTS
00020632 ; --------------------------------------------------------------------------------------
00020632 ; OMSI PASCAL Function
00020632 ;    <LVAR  0x008 4(r)>
00020632 ;    <LVAR -0x004 @>
00020632 ;    <LVAR -0x008 @ 4(r)>
00020632 ;    <LVAR -0x00c @ 4(rw)>
00020632 ;    <LVAR -0x010 @ 4(rw)>
00020632 ; --------------------------------------------------------------------------------------
00020632 4e 56 ff 92              |NV      |		LINK.W	A6,#0xff92
00020636 bf d5                    |        |		CMPA.L	(A5),A7
00020638 62 06                    |b       |		BHI	0x20640
0002063a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002063e 4e 76                    |Nv      |		TRAPV
00020640 de fc 00 5e              |   ^    |		ADDA.W	#0x5e,A7
00020644 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00020648 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
0002064c 49 ee ff f0              |I       |		LEA.L	(A6-0x10),A4
00020650 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020652 74 02                    |t       |		MOVEQ.L	#0x02,D2
00020654 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
00020656 78 1e                    |x       |		MOVEQ.L	#0x1e,D4
00020658 7a 10                    |z       |		MOVEQ.L	#0x10,D5
0002065a 41 fa fb 32              |A  2    |		LEA.L	0x2018e,A0
0002065e 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020660 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020662 51 c8 ff fc              |Q       |		DBF	D0,0x20660
00020666 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020668 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002066c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002066e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00020670 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020676 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020678 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
0002067a de c3                    |        |		ADDA.W	D3,A7
0002067c 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020680 9e c4                    |        |		SUBA.W	D4,A7
00020682 22 4f                    |"O      |		MOVEA.L	A7,A1
00020684 24 48                    |$H      |		MOVEA.L	A0,A2
00020686 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00020688 12 da                    |        |		MOVE.B	(A2)+,(A1)+
0002068a 51 c8 ff fc              |Q       |		DBF	D0,0x20688
0002068e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020690 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020694 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020696 3f 04                    |?       |		MOVE.W	D4,-(A7)
00020698 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002069e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000206a0 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
000206a4 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000206a8 2e 94                    |.       |		MOVE.L	(A4),(A7)
000206aa 1f 01                    |        |		MOVE.B	D1,-(A7)
000206ac 1f 02                    |        |		MOVE.B	D2,-(A7)
000206ae 48 78 00 01              |Hx      |		PEA.L	0x1
000206b2 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000206b6 48 53                    |HS      |		PEA.L	(A3)
000206b8 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000206be de c5                    |        |		ADDA.W	D5,A7
000206c0 2e 93                    |.       |		MOVE.L	(A3),(A7)
000206c2 42 67                    |Bg      |		CLR.W	-(A7)
000206c4 42 67                    |Bg      |		CLR.W	-(A7)
000206c6 3f 3c 00 40              |?< @    |		MOVE.W	#0x40,-(A7)
000206ca 1f 02                    |        |		MOVE.B	D2,-(A7)
000206cc 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
000206d0 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000206d4 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
000206da de fc 00 14              |        |		ADDA.W	#0x14,A7
000206de 22 53                    |"S      |		MOVEA.L	(A3),A1
000206e0 13 68 00 3a 00 3a        | h : :  |		MOVE.B	(A0+0x3a),(A1+0x3a)
000206e6 13 68 00 3b 00 3b        | h ; ;  |		MOVE.B	(A0+0x3b),(A1+0x3b)
000206ec 13 68 00 3c 00 3c        | h < <  |		MOVE.B	(A0+0x3c),(A1+0x3c)
000206f2 13 68 00 3d 00 3d        | h = =  |		MOVE.B	(A0+0x3d),(A1+0x3d)
000206f8 13 41 00 4c              | A L    |		MOVE.B	D1,(A1+0x4c)
000206fc 42 27                    |B'      |		CLR.B	-(A7)
000206fe 1f 02                    |        |		MOVE.B	D2,-(A7)
00020700 48 78 00 01              |Hx      |		PEA.L	0x1
00020704 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020708 48 53                    |HS      |		PEA.L	(A3)
0002070a 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020710 de c5                    |        |		ADDA.W	D5,A7
00020712 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00020716 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002071c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002071e 48 54                    |HT      |		PEA.L	(A4)
00020720 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020726 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020728 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
0002072c 4e 5e                    |N^      |		UNLK	A6
0002072e 4e 75                    |Nu      |		RTS
00020730 ; --------------------------------------------------------------------------------------
00020730 ; OMSI PASCAL Function
00020730 ;    <LVAR  0x00c @ 4(r)>
00020730 ;    <LVAR  0x00a 1(r)>
00020730 ;    <LVAR  0x008 1(r)>
00020730 ; --------------------------------------------------------------------------------------
00020730 4e 56 ff ba              |NV      |		LINK.W	A6,#0xffba
00020734 bf d5                    |        |		CMPA.L	(A5),A7
00020736 62 06                    |b       |		BHI	0x2073e
00020738 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002073c 4e 76                    |Nv      |		TRAPV
0002073e de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00020742 48 e7 c1 d8              |H       |		MOVEM.L	A4+A3+A1+A0+D7+D1+D0,-(A7)
00020746 43 f9 00 02 19 84        |C       |		LEA.L	0x21984,A1
0002074c 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002074e 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
00020752 1e 2e 00 0a              | .      |		MOVE.B	(A6+0xa),D7
00020756 be 17                    |        |		CMP.B	(A7),D7
00020758 6e 00 00 ac              |n       |		BGT	0x20806
0002075c 10 07                    |        |		MOVE.B	D7,D0
0002075e 48 80                    |H       |		EXTB.W	D0
00020760 0c 40 00 04              | @      |		CMPI.W	#0x0004,D0
00020764 63 02                    |c       |		BLS	0x20768
00020766 4e 4e                    |NN      |		TRAP	#14
00020768 d0 40                    | @      |		ADD.W	D0,D0
0002076a 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00020772 00 0a                    |        |		.CONST	0xa			; [0x0] -> 0x2077c
00020774 00 14                    |        |		.CONST	0x14			; [0x1] -> 0x20786
00020776 00 1e                    |        |		.CONST	0x1e			; [0x2] -> 0x20790
00020778 00 28                    | (      |		.CONST	0x28			; [0x3] -> 0x2079a
0002077a 00 32                    | 2      |		.CONST	0x32			; [0x4] -> 0x207a4
0002077c					switch@0x2076a[0x0]:
0002077c 2f 3a fa 14              |/:      |		MOVE.L	0x20192,-(A7)
00020780 2f 3a fa 0c              |/:      |		MOVE.L	0x2018e,-(A7)
00020784 60 26                    |`&      |		BRA	0x207ac
00020786					switch@0x2076a[0x1]:
00020786 2f 3a fa 12              |/:      |		MOVE.L	0x2019a,-(A7)
0002078a 2f 3a fa 0a              |/:      |		MOVE.L	0x20196,-(A7)
0002078e 60 1c                    |`       |		BRA	0x207ac
00020790					switch@0x2076a[0x2]:
00020790 2f 3a fa 10              |/:      |		MOVE.L	0x201a2,-(A7)
00020794 2f 3a fa 08              |/:      |		MOVE.L	0x2019e,-(A7)
00020798 60 12                    |`       |		BRA	0x207ac
0002079a					switch@0x2076a[0x3]:
0002079a 2f 3a fa 0e              |/:      |		MOVE.L	0x201aa,-(A7)
0002079e 2f 3a fa 06              |/:      |		MOVE.L	0x201a6,-(A7)
000207a2 60 08                    |`       |		BRA	0x207ac
000207a4					switch@0x2076a[0x4]:
000207a4 2f 3a fa 0c              |/:      |		MOVE.L	0x201b2,-(A7)
000207a8 2f 3a fa 04              |/:      |		MOVE.L	0x201ae,-(A7)
000207ac 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000207ae 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000207b2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000207b4 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
000207b8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000207be 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207c0 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000207c2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207c4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000207c6 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000207ca 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000207d0 2e 8c                    |.       |		MOVE.L	A4,(A7)
000207d2 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000207d8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207da 26 5f                    |&_      |		MOVEA.L	(A7)+,A3
000207dc 2f 0b                    |/       |		MOVE.L	A3,-(A7)
000207de 10 07                    |        |		MOVE.B	D7,D0
000207e0 48 80                    |H       |		EXTB.W	D0
000207e2 e5 40                    | @      |		ASL.W	#0x2,D0
000207e4 20 49                    | I      |		MOVEA.L	A1,A0
000207e6 48 70 00 08              |Hp      |		PEA.L	(A0+D0.W+#0x8)
000207ea 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
000207f0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000207f2 10 07                    |        |		MOVE.B	D7,D0
000207f4 48 80                    |H       |		EXTB.W	D0
000207f6 3f 00                    |?       |		MOVE.W	D0,-(A7)
000207f8 20 49                    | I      |		MOVEA.L	A1,A0
000207fa 11 81 00 1c              |        |		MOVE.B	D1,(A0+D0.W+#0x1c)
000207fe 3e 1f                    |>       |		MOVE.W	(A7)+,D7
00020800 52 47                    |RG      |		ADDQ.W	#0x1,D7
00020802 68 00 ff 52              |h  R    |		BVC	0x20756
00020806 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020808 48 6e 00 0c              |Hn      |		PEA.L	(A6+0xc)
0002080c 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020812 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020814 4c df 1b 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A3+A4
00020818 4e 5e                    |N^      |		UNLK	A6
0002081a 4e 75                    |Nu      |		RTS
0002081c ; --------------------------------------------------------------------------------------
0002081c ; OMSI PASCAL Function
0002081c ;    <LVAR  0x008 1(r)>
0002081c ;    <LVAR -0x004 @ 1(rw)>
0002081c ;    <LVAR -0x006 @ 1(r)>
0002081c ;    <LVAR -0x007 @>
0002081c ; --------------------------------------------------------------------------------------
0002081c 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
00020820 bf d5                    |        |		CMPA.L	(A5),A7
00020822 62 06                    |b       |		BHI	0x2082a
00020824 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020828 4e 76                    |Nv      |		TRAPV
0002082a de fc 00 32              |   2    |		ADDA.W	#0x32,A7
0002082e 48 e7 e3 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D2+D1+D0,-(A7)
00020832 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
00020836 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
0002083a 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
0002083c 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00020840 48 80                    |H       |		EXTB.W	D0
00020842 41 fa fa 2a              |A  *    |		LEA.L	0x2026e,A0
00020846 1c 30 00 00              | 0      |		MOVE.B	(A0+D0.W),D6
0002084a 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0002084c 1f 06                    |        |		MOVE.B	D6,-(A7)
0002084e 48 51                    |HQ      |		PEA.L	(A1)
00020850 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
00020854 48 52                    |HR      |		PEA.L	(A2)
00020856 4e b9 00 01 04 84        |N       |		JSR	DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
0002085c de c2                    |        |		ADDA.W	D2,A7
0002085e 4a 12                    |J       |		TST.B	(A2)
00020860 66 06                    |f       |		BNE	0x20868
00020862 12 bc 00 04              |        |		MOVE.B	#0x04,(A1)
00020866 60 3e                    |`>      |		BRA	0x208a6
00020868 10 11                    |        |		MOVE.B	(A1),D0
0002086a 0c 00 00 06              |        |		CMPI.B	#0x06,D0
0002086e 66 36                    |f6      |		BNE	0x208a6
00020870 4a 47                    |JG      |		TST.W	D7
00020872 67 32                    |g2      |		BEQ	0x208a6
00020874 42 80                    |B       |		CLR.L	D0
00020876 30 07                    |0       |		MOVE.W	D7,D0
00020878 52 80                    |R       |		ADDQ.L	#0x1,D0
0002087a 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
00020880 63 02                    |c       |		BLS	0x20884
00020882 4e 4f                    |NO      |		TRAP	#15
00020884 3e 00                    |>       |		MOVE.W	D0,D7
00020886 48 78 00 27              |Hx '    |		PEA.L	0x27
0002088a 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
00020890 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020892 1e 86                    |        |		MOVE.B	D6,(A7)
00020894 48 51                    |HQ      |		PEA.L	(A1)
00020896 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
0002089a 48 52                    |HR      |		PEA.L	(A2)
0002089c 4e b9 00 01 04 84        |N       |		JSR	DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
000208a2 de c2                    |        |		ADDA.W	D2,A7
000208a4 60 c2                    |`       |		BRA	0x20868
000208a6 10 11                    |        |		MOVE.B	(A1),D0
000208a8 0c 00 00 01              |        |		CMPI.B	#0x01,D0
000208ac 67 1e                    |g       |		BEQ	0x208cc
000208ae 1f 06                    |        |		MOVE.B	D6,-(A7)
000208b0 12 2e 00 08              | .      |		MOVE.B	(A6+0x8),D1
000208b4 48 81                    |H       |		EXTB.W	D1
000208b6 e5 41                    | A      |		ASL.W	#0x2,D1
000208b8 41 f9 00 02 19 84        |A       |		LEA.L	0x21984,A0
000208be 2f 30 10 08              |/0      |		MOVE.L	(A0+D1.W+#0x8),-(A7)
000208c2 1f 00                    |        |		MOVE.B	D0,-(A7)
000208c4 4e b9 00 02 18 48        |N    H  |		JSR	EXP_FAIL
000208ca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000208cc 4c df 07 c7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D6+D7+A0+A1+A2
000208d0 4e 5e                    |N^      |		UNLK	A6
000208d2 4e 75                    |Nu      |		RTS
000208d4 ; --------------------------------------------------------------------------------------
000208d4 ; OMSI PASCAL Function
000208d4 ;    <LVAR  0x008 1(r)>
000208d4 ;    <LVAR -0x006 4(rw)>
000208d4 ; --------------------------------------------------------------------------------------
000208d4 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
000208d8 bf d5                    |        |		CMPA.L	(A5),A7
000208da 62 06                    |b       |		BHI	0x208e2
000208dc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000208e0 4e 76                    |Nv      |		TRAPV
000208e2 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
000208e6 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
000208ea 45 f9 00 02 19 84        |E       |		LEA.L	0x21984,A2
000208f0 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
000208f4 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000208f8 48 80                    |H       |		EXTB.W	D0
000208fa 32 00                    |2       |		MOVE.W	D0,D1
000208fc e5 41                    | A      |		ASL.W	#0x2,D1
000208fe 20 4a                    | J      |		MOVEA.L	A2,A0
00020900 43 fa f9 6c              |C  l    |		LEA.L	0x2026e,A1
00020904 1f 31 00 00              | 1      |		MOVE.B	(A1+D0.W),-(A7)
00020908 2f 30 10 08              |/0      |		MOVE.L	(A0+D1.W+#0x8),-(A7)
0002090c 4e b9 00 01 04 7e        |N    ~  |		JSR	ExpXmit(adr : Byte; b : Pointer)
00020912 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020914 20 70 10 08              | p      |		MOVEA.L	(A0+D1.W+#0x8),A0
00020918 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002091a 21 68 00 f8 00 f4        |!h      |		MOVE.L	(A0+0xf8),(A0+0xf4)
00020920 22 4a                    |"J      |		MOVEA.L	A2,A1
00020922 4a 31 00 1c              |J1      |		TST.B	(A1+D0.W+#0x1c)
00020926 67 3e                    |g>      |		BEQ	0x20966
00020928 26 a8 00 f8              |&       |		MOVE.L	(A0+0xf8),(A3)
0002092c 20 53                    | S      |		MOVEA.L	(A3),A0
0002092e 22 68 00 02              |"h      |		MOVEA.L	(A0+0x2),A1
00020932 b2 fc 00 01              |        |		CMPA.W	#0x1,A1
00020936 67 04                    |g       |		BEQ	0x2093c
00020938 26 89                    |&       |		MOVE.L	A1,(A3)
0002093a 60 f0                    |`       |		BRA	0x2092c
0002093c 22 57                    |"W      |		MOVEA.L	(A7),A1
0002093e 42 80                    |B       |		CLR.L	D0
00020940 10 28 00 01              | (      |		MOVE.B	(A0+0x1),D0
00020944 42 81                    |B       |		CLR.L	D1
00020946 12 10                    |        |		MOVE.B	(A0),D1
00020948 e5 09                    |        |		LSL.B	#0x2,D1
0002094a e4 09                    |        |		LSR.B	#0x2,D1
0002094c d2 40                    | @      |		ADD.W	D0,D1
0002094e 04 41 00 10              | A      |		SUBI.W	#0x0010,D1
00020952 43 bc 00 ff              |C       |		CHK.W	#0xff,D1
00020956 13 41 00 02              | A      |		MOVE.B	D1,(A1+0x2)
0002095a 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0002095e 48 80                    |H       |		EXTB.W	D0
00020960 20 4a                    | J      |		MOVEA.L	A2,A0
00020962 42 30 00 1c              |B0      |		CLR.B	(A0+D0.W+#0x1c)
00020966 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020968 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
0002096c 4e 5e                    |N^      |		UNLK	A6
0002096e 4e 75                    |Nu      |		RTS
00020970 ; --------------------------------------------------------------------------------------
00020970 ; OMSI PASCAL Function
00020970 ;    <LVAR  0x00a 1(r)>
00020970 ;    <LVAR  0x008 1(r)>
00020970 ; --------------------------------------------------------------------------------------
00020970 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
00020974 bf d5                    |        |		CMPA.L	(A5),A7
00020976 62 06                    |b       |		BHI	0x2097e
00020978 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002097c 4e 76                    |Nv      |		TRAPV
0002097e de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00020982 48 e7 81 80              |H       |		MOVEM.L	A0+D7+D0,-(A7)
00020986 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
0002098a 1e 2e 00 0a              | .      |		MOVE.B	(A6+0xa),D7
0002098e be 17                    |        |		CMP.B	(A7),D7
00020990 6e 24                    |n$      |		BGT	0x209b6
00020992 1f 07                    |        |		MOVE.B	D7,-(A7)
00020994 4e ba fe 86              |N       |		JSR	0x2081c
00020998 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002099a 10 07                    |        |		MOVE.B	D7,D0
0002099c 48 80                    |H       |		EXTB.W	D0
0002099e e5 40                    | @      |		ASL.W	#0x2,D0
000209a0 41 f9 00 02 19 84        |A       |		LEA.L	0x21984,A0
000209a6 48 70 00 08              |Hp      |		PEA.L	(A0+D0.W+#0x8)
000209aa 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
000209b0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000209b2 52 07                    |R       |		ADDQ.B	#0x1,D7
000209b4 68 d8                    |h       |		BVC	0x2098e
000209b6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000209b8 4c df 01 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0
000209bc 4e 5e                    |N^      |		UNLK	A6
000209be 4e 75                    |Nu      |		RTS
000209c0 ; --------------------------------------------------------------------------------------
000209c0 ; OMSI PASCAL Function
000209c0 ;    <LVAR  0x00a 4(r)>
000209c0 ;    <LVAR  0x008 2(r)>
000209c0 ;    <LVAR -0x004 4(rw)>
000209c0 ;    <LVAR -0x008 4(rw)>
000209c0 ;    <LVAR -0xc08 @>
000209c0 ;    <LVAR -0xc0e @>
000209c0 ;    <LVAR -0xc16 4(rw)>
000209c0 ;    <LVAR -0xc22 @>
000209c0 ; --------------------------------------------------------------------------------------
000209c0 4e 56 f3 6a              |NV j    |		LINK.W	A6,#0xf36a
000209c4 bf d5                    |        |		CMPA.L	(A5),A7
000209c6 62 06                    |b       |		BHI	0x209ce
000209c8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000209cc 4e 76                    |Nv      |		TRAPV
000209ce de fc 00 74              |   t    |		ADDA.W	#0x74,A7
000209d2 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000209d6 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
000209da 49 f8 00 00              |I       |		LEA.L	0x0,A4
000209de 74 01                    |t       |		MOVEQ.L	#0x01,D2
000209e0 26 bc 00 00 00 10        |&       |		MOVE.L	#0x10,(A3)
000209e6 2d 7c 00 00 00 07 ff fc  |-|      |		MOVE.L	#0x7,(A6-0x4)
000209ee 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
000209f2 48 c0                    |H       |		EXTW.L	D0
000209f4 2d 40 f3 ea              |-@      |		MOVE.L	D0,(A6-0xc16)
000209f8 4e b9 00 02 16 c2        |N       |		JSR	exp_PREP_LOAD_REGISTER_FILE.TYP()
000209fe 4e b9 00 02 17 0e        |N       |		JSR	exp_PREP_LOAD_REGISTER_FILE.VAL()
00020a04 41 fa f7 c2              |A       |		LEA.L	0x201c8,A0
00020a08 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020a0a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020a0c 51 c8 ff fc              |Q       |		DBF	D0,0x20a0a
00020a10 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a12 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a16 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020a18 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00020a1c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020a22 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020a24 42 17                    |B       |		CLR.B	(A7)
00020a26 1f 02                    |        |		MOVE.B	D2,-(A7)
00020a28 4e ba fd 06              |N       |		JSR	0x20730
00020a2c de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00020a30 70 00                    |p       |		MOVEQ.L	#0x00,D0
00020a32 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020a34 08 00 00 00              |        |		BTST.L	#0x0,D0
00020a38 67 20                    |g       |		BEQ	0x20a5a
00020a3a 3f 3a f7 8c              |?:      |		MOVE.W	0x201c8,-(A7)
00020a3e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a40 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a44 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020a46 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00020a4a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020a50 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a52 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00020a58 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020a5a 7a 00                    |z       |		MOVEQ.L	#0x00,D5
00020a5c 2f 2e ff fc              |/.      |		MOVE.L	(A6-0x4),-(A7)
00020a60 72 00                    |r       |		MOVEQ.L	#0x00,D1
00020a62 b2 97                    |        |		CMP.L	(A7),D1
00020a64 6f 06                    |o       |		BLE	0x20a6c
00020a66 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a68 60 00 01 84              |`       |		BRA	0x20bee
00020a6c 2f 01                    |/       |		MOVE.L	D1,-(A7)
00020a6e 0c 81 00 00 00 02        |        |		CMPI.L	#0x00000002,D1
00020a74 6e 42                    |nB      |		BGT	0x20ab8
00020a76 41 ee f3 f8              |A       |		LEA.L	(A6-0xc08),A0
00020a7a 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020a7c 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00020a7e 20 01                    |        |		MOVE.L	D1,D0
00020a80 e1 80                    |        |		ASL.L	#0x8,D0
00020a82 e5 80                    |        |		ASL.L	#0x2,D0
00020a84 dc 80                    |        |		ADD.L	D0,D6
00020a86 2f 2e 00 0a              |/.      |		MOVE.L	(A6+0xa),-(A7)
00020a8a 20 2e f3 ea              | .      |		MOVE.L	(A6-0xc16),D0
00020a8e 0c 80 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D0
00020a94 63 02                    |c       |		BLS	0x20a98
00020a96 4e 4f                    |NO      |		TRAP	#15
00020a98 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020a9a 42 67                    |Bg      |		CLR.W	-(A7)
00020a9c 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020aa0 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020aa4 2f 06                    |/       |		MOVE.L	D6,-(A7)
00020aa6 48 6e f3 f2              |Hn      |		PEA.L	(A6-0xc0e)
00020aaa 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020ab0 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020ab4 52 ae f3 ea              |R       |		ADDQ.L	#0x1,(A6-0xc16)
00020ab8 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020aba 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00020abc 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020abe be 97                    |        |		CMP.L	(A7),D7
00020ac0 6e 7a                    |nz      |		BGT	0x20b3c
00020ac2 20 05                    |        |		MOVE.L	D5,D0
00020ac4 d0 87                    |        |		ADD.L	D7,D0
00020ac6 0c 80 00 00 00 7f        |        |		CMPI.L	#0x0000007f,D0
00020acc 63 02                    |c       |		BLS	0x20ad0
00020ace 4e 4f                    |NO      |		TRAP	#15
00020ad0 28 00                    |(       |		MOVE.L	D0,D4
00020ad2 76 18                    |v       |		MOVEQ.L	#0x18,D3
00020ad4 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00020ada 41 ee f3 de              |A       |		LEA.L	(A6-0xc22),A0
00020ade 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020ae0 22 4f                    |"O      |		MOVEA.L	A7,A1
00020ae2 45 f0 48 1a              |E H     |		LEA.L	(A0+D4.L+#0x1a),A2
00020ae6 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020ae8 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020aea 51 c8 ff fc              |Q       |		DBF	D0,0x20ae8
00020aee 2f 39 00 02 19 8c        |/9      |		MOVE.L	0x2198c,-(A7)
00020af4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020af8 48 54                    |HT      |		PEA.L	(A4)
00020afa 48 78 00 07              |Hx      |		PEA.L	0x7
00020afe 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020b04 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020b08 1e b0 48 22              |  H"    |		MOVE.B	(A0+D4.L+#0x22),(A7)
00020b0c 1f 70 48 23 00 01        | pH#    |		MOVE.B	(A0+D4.L+#0x23),(A7+0x1)
00020b12 1f 70 48 24 00 02        | pH$    |		MOVE.B	(A0+D4.L+#0x24),(A7+0x2)
00020b18 1f 70 48 25 00 03        | pH%    |		MOVE.B	(A0+D4.L+#0x25),(A7+0x3)
00020b1e 2f 39 00 02 19 8c        |/9      |		MOVE.L	0x2198c,-(A7)
00020b24 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020b28 48 54                    |HT      |		PEA.L	(A4)
00020b2a 48 78 00 03              |Hx      |		PEA.L	0x3
00020b2e 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020b34 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020b38 52 87                    |R       |		ADDQ.L	#0x1,D7
00020b3a 68 82                    |h       |		BVC	0x20abe
00020b3c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020b3e 42 17                    |B       |		CLR.B	(A7)
00020b40 4e ba fc da              |N       |		JSR	0x2081c
00020b44 42 17                    |B       |		CLR.B	(A7)
00020b46 4e ba fd 8c              |N       |		JSR	0x208d4
00020b4a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020b4c 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020b4e 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00020b50 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020b52 be 97                    |        |		CMP.L	(A7),D7
00020b54 6e 7a                    |nz      |		BGT	0x20bd0
00020b56 20 05                    |        |		MOVE.L	D5,D0
00020b58 d0 87                    |        |		ADD.L	D7,D0
00020b5a 0c 80 00 00 00 7f        |        |		CMPI.L	#0x0000007f,D0
00020b60 63 02                    |c       |		BLS	0x20b64
00020b62 4e 4f                    |NO      |		TRAP	#15
00020b64 28 00                    |(       |		MOVE.L	D0,D4
00020b66 76 18                    |v       |		MOVEQ.L	#0x18,D3
00020b68 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00020b6e 41 ee f3 de              |A       |		LEA.L	(A6-0xc22),A0
00020b72 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020b74 22 4f                    |"O      |		MOVEA.L	A7,A1
00020b76 45 f0 48 2a              |E H*    |		LEA.L	(A0+D4.L+#0x2a),A2
00020b7a 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020b7c 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020b7e 51 c8 ff fc              |Q       |		DBF	D0,0x20b7c
00020b82 2f 39 00 02 19 90        |/9      |		MOVE.L	0x21990,-(A7)
00020b88 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020b8c 48 54                    |HT      |		PEA.L	(A4)
00020b8e 48 78 00 07              |Hx      |		PEA.L	0x7
00020b92 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020b98 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020b9c 1e b0 48 26              |  H&    |		MOVE.B	(A0+D4.L+#0x26),(A7)
00020ba0 1f 70 48 27 00 01        | pH'    |		MOVE.B	(A0+D4.L+#0x27),(A7+0x1)
00020ba6 1f 70 48 28 00 02        | pH(    |		MOVE.B	(A0+D4.L+#0x28),(A7+0x2)
00020bac 1f 70 48 29 00 03        | pH)    |		MOVE.B	(A0+D4.L+#0x29),(A7+0x3)
00020bb2 2f 39 00 02 19 90        |/9      |		MOVE.L	0x21990,-(A7)
00020bb8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020bbc 48 54                    |HT      |		PEA.L	(A4)
00020bbe 48 78 00 03              |Hx      |		PEA.L	0x3
00020bc2 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020bc8 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020bcc 52 87                    |R       |		ADDQ.L	#0x1,D7
00020bce 68 82                    |h       |		BVC	0x20b52
00020bd0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020bd2 1e 82                    |        |		MOVE.B	D2,(A7)
00020bd4 4e ba fc 46              |N  F    |		JSR	0x2081c
00020bd8 1e 82                    |        |		MOVE.B	D2,(A7)
00020bda 4e ba fc f8              |N       |		JSR	0x208d4
00020bde 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020be0 da 93                    |        |		ADD.L	(A3),D5
00020be2 22 17                    |"       |		MOVE.L	(A7),D1
00020be4 52 81                    |R       |		ADDQ.L	#0x1,D1
00020be6 69 06                    |i       |		BVS	0x20bee
00020be8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020bea 60 00 fe 76              |`  v    |		BRA	0x20a62
00020bee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020bf0 20 17                    |        |		MOVE.L	(A7),D0
00020bf2 52 80                    |R       |		ADDQ.L	#0x1,D0
00020bf4 0c 80 00 00 00 07        |        |		CMPI.L	#0x00000007,D0
00020bfa 6e 06                    |n       |		BGT	0x20c02
00020bfc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020bfe 60 00 fe 32              |`  2    |		BRA	0x20a32
00020c02 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020c04 42 17                    |B       |		CLR.B	(A7)
00020c06 1f 02                    |        |		MOVE.B	D2,-(A7)
00020c08 4e ba fd 66              |N  f    |		JSR	0x20970
00020c0c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020c0e 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020c12 4e 5e                    |N^      |		UNLK	A6
00020c14 4e 75                    |Nu      |		RTS
00020c16 ; --------------------------------------------------------------------------------------
00020c16 ; OMSI PASCAL Function
00020c16 ;    <LVAR  0x00c 4(r)>
00020c16 ;    <LVAR  0x00a 2(r)>
00020c16 ;    <LVAR  0x008 2(r)>
00020c16 ;    <LVAR -0x006 4(rw)>
00020c16 ;    <LVAR -0x00a 4(rw)>
00020c16 ;    <LVAR -0x00e 4(rw)>
00020c16 ;    <LVAR -0x80e @>
00020c16 ;    <LVAR -0x140e @>
00020c16 ;    <LVAR -0x1414 @>
00020c16 ;    <LVAR -0x1415 1(w)>
00020c16 ;    <LVAR -0x1416 1(w) 2(r)>
00020c16 ;    <LVAR -0x141c 1(rw)>
00020c16 ;    <LVAR -0x1420 4(rw)>
00020c16 ;    <LVAR -0x1424 4(rw)>
00020c16 ;    <LVAR -0x1428 4(rw)>
00020c16 ;    <LVAR -0x142c 4(rw)>
00020c16 ;    <LVAR -0x1438 @>
00020c16 ; --------------------------------------------------------------------------------------
00020c16 4e 56 eb 54              |NV T    |		LINK.W	A6,#0xeb54
00020c1a bf d5                    |        |		CMPA.L	(A5),A7
00020c1c 62 06                    |b       |		BHI	0x20c24
00020c1e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020c22 4e 76                    |Nv      |		TRAPV
00020c24 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00020c28 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020c2c 47 ee ff f6              |G       |		LEA.L	(A6-0xa),A3
00020c30 49 ee eb e0              |I       |		LEA.L	(A6-0x1420),A4
00020c34 74 01                    |t       |		MOVEQ.L	#0x01,D2
00020c36 2d 7c 00 00 00 10 ff f2  |-|      |		MOVE.L	#0x10,(A6-0xe)
00020c3e 26 bc 00 00 00 10        |&       |		MOVE.L	#0x10,(A3)
00020c44 2d 7c 00 00 00 08 ff fa  |-|      |		MOVE.L	#0x8,(A6-0x6)
00020c4c 4e b9 00 02 16 c2        |N       |		JSR	exp_PREP_LOAD_REGISTER_FILE.TYP()
00020c52 4e b9 00 02 17 0e        |N       |		JSR	exp_PREP_LOAD_REGISTER_FILE.VAL()
00020c58 4e b9 00 02 16 7c        |N    |  |		JSR	exp_PREP_LOAD_DISPATCH_RAMS.SEQ()
00020c5e 41 fa f5 7c              |A  |    |		LEA.L	0x201dc,A0
00020c62 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020c64 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020c66 51 c8 ff fc              |Q       |		DBF	D0,0x20c64
00020c6a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020c6c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020c70 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020c72 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00020c76 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020c7c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020c7e 42 17                    |B       |		CLR.B	(A7)
00020c80 1f 02                    |        |		MOVE.B	D2,-(A7)
00020c82 4e ba fa ac              |N       |		JSR	0x20730
00020c86 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00020c8a 41 fa f5 62              |A  b    |		LEA.L	0x201ee,A0
00020c8e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020c90 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020c92 51 c8 ff fc              |Q       |		DBF	D0,0x20c90
00020c96 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020c98 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020c9c 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020c9e 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00020ca2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020ca8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020caa 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
00020cae 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00020cb2 4e ba fa 7c              |N  |    |		JSR	0x20730
00020cb6 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00020cba 1d 42 eb e4              | B      |		MOVE.B	D2,(A6-0x141c)
00020cbe 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00020cc0 30 2e 00 0a              |0.      |		MOVE.W	(A6+0xa),D0
00020cc4 48 c0                    |H       |		EXTW.L	D0
00020cc6 2d 40 eb d4              |-@      |		MOVE.L	D0,(A6-0x142c)
00020cca 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00020cce 48 c0                    |H       |		EXTW.L	D0
00020cd0 2d 40 eb d8              |-@      |		MOVE.L	D0,(A6-0x1428)
00020cd4 70 00                    |p       |		MOVEQ.L	#0x00,D0
00020cd6 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020cd8 08 00 00 00              |        |		BTST.L	#0x0,D0
00020cdc 67 20                    |g       |		BEQ	0x20cfe
00020cde 3f 3a f5 0e              |?:      |		MOVE.W	0x201ee,-(A7)
00020ce2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020ce4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020ce8 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020cea 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00020cee 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020cf4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020cf6 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00020cfc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020cfe 0c 80 00 00 00 04        |        |		CMPI.L	#0x00000004,D0
00020d04 66 06                    |f       |		BNE	0x20d0c
00020d06 42 2e eb e4              |B.      |		CLR.B	(A6-0x141c)
00020d0a 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00020d0c 42 ae eb dc              |B       |		CLR.L	(A6-0x1424)
00020d10 42 94                    |B       |		CLR.L	(A4)
00020d12 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020d16 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00020d18 72 00                    |r       |		MOVEQ.L	#0x00,D1
00020d1a b2 97                    |        |		CMP.L	(A7),D1
00020d1c 6f 06                    |o       |		BLE	0x20d24
00020d1e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020d20 60 00 03 6e              |`  n    |		BRA	0x21090
00020d24 2f 01                    |/       |		MOVE.L	D1,-(A7)
00020d26 0c 81 00 00 00 02        |        |		CMPI.L	#0x00000002,D1
00020d2c 6e 42                    |nB      |		BGT	0x20d70
00020d2e 41 ee eb f2              |A       |		LEA.L	(A6-0x140e),A0
00020d32 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020d34 2a 1f                    |*       |		MOVE.L	(A7)+,D5
00020d36 20 01                    |        |		MOVE.L	D1,D0
00020d38 e1 80                    |        |		ASL.L	#0x8,D0
00020d3a e5 80                    |        |		ASL.L	#0x2,D0
00020d3c da 80                    |        |		ADD.L	D0,D5
00020d3e 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00020d42 20 2e eb d4              | .      |		MOVE.L	(A6-0x142c),D0
00020d46 0c 80 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D0
00020d4c 63 02                    |c       |		BLS	0x20d50
00020d4e 4e 4f                    |NO      |		TRAP	#15
00020d50 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020d52 42 67                    |Bg      |		CLR.W	-(A7)
00020d54 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020d58 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020d5c 2f 05                    |/       |		MOVE.L	D5,-(A7)
00020d5e 48 6e eb ec              |Hn      |		PEA.L	(A6-0x1414)
00020d62 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020d68 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020d6c 52 ae eb d4              |R       |		ADDQ.L	#0x1,(A6-0x142c)
00020d70 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
00020d74 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00020d76 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020d78 be 97                    |        |		CMP.L	(A7),D7
00020d7a 6e 00 00 84              |n       |		BGT	0x20e00
00020d7e 20 2e eb dc              | .      |		MOVE.L	(A6-0x1424),D0
00020d82 d0 87                    |        |		ADD.L	D7,D0
00020d84 0c 80 00 00 00 7f        |        |		CMPI.L	#0x0000007f,D0
00020d8a 63 02                    |c       |		BLS	0x20d8e
00020d8c 4e 4f                    |NO      |		TRAP	#15
00020d8e 28 00                    |(       |		MOVE.L	D0,D4
00020d90 76 18                    |v       |		MOVEQ.L	#0x18,D3
00020d92 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00020d98 41 ee eb c8              |A       |		LEA.L	(A6-0x1438),A0
00020d9c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020d9e 22 4f                    |"O      |		MOVEA.L	A7,A1
00020da0 45 f0 48 2a              |E H*    |		LEA.L	(A0+D4.L+#0x2a),A2
00020da4 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020da6 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020da8 51 c8 ff fc              |Q       |		DBF	D0,0x20da6
00020dac 2f 39 00 02 19 8c        |/9      |		MOVE.L	0x2198c,-(A7)
00020db2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020db6 48 78 00 00              |Hx      |		PEA.L	0x0
00020dba 48 78 00 07              |Hx      |		PEA.L	0x7
00020dbe 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020dc4 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020dc8 1e b0 48 32              |  H2    |		MOVE.B	(A0+D4.L+#0x32),(A7)
00020dcc 1f 70 48 33 00 01        | pH3    |		MOVE.B	(A0+D4.L+#0x33),(A7+0x1)
00020dd2 1f 70 48 34 00 02        | pH4    |		MOVE.B	(A0+D4.L+#0x34),(A7+0x2)
00020dd8 1f 70 48 35 00 03        | pH5    |		MOVE.B	(A0+D4.L+#0x35),(A7+0x3)
00020dde 2f 39 00 02 19 8c        |/9      |		MOVE.L	0x2198c,-(A7)
00020de4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020de8 48 78 00 00              |Hx      |		PEA.L	0x0
00020dec 48 78 00 03              |Hx      |		PEA.L	0x3
00020df0 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020df6 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020dfa 52 87                    |R       |		ADDQ.L	#0x1,D7
00020dfc 68 00 ff 7a              |h  z    |		BVC	0x20d78
00020e00 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e02 42 17                    |B       |		CLR.B	(A7)
00020e04 4e ba fa ce              |N       |		JSR	0x208d4
00020e08 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e0a 20 17                    |        |		MOVE.L	(A7),D0
00020e0c b0 82                    |        |		CMP.L	D2,D0
00020e0e 6e 42                    |nB      |		BGT	0x20e52
00020e10 41 ee f7 f2              |A       |		LEA.L	(A6-0x80e),A0
00020e14 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020e16 2a 1f                    |*       |		MOVE.L	(A7)+,D5
00020e18 22 00                    |"       |		MOVE.L	D0,D1
00020e1a e1 81                    |        |		ASL.L	#0x8,D1
00020e1c e5 81                    |        |		ASL.L	#0x2,D1
00020e1e da 81                    |        |		ADD.L	D1,D5
00020e20 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00020e24 22 2e eb d8              |".      |		MOVE.L	(A6-0x1428),D1
00020e28 0c 81 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D1
00020e2e 63 02                    |c       |		BLS	0x20e32
00020e30 4e 4f                    |NO      |		TRAP	#15
00020e32 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020e34 42 67                    |Bg      |		CLR.W	-(A7)
00020e36 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020e3a 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020e3e 2f 05                    |/       |		MOVE.L	D5,-(A7)
00020e40 48 6e eb ec              |Hn      |		PEA.L	(A6-0x1414)
00020e44 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020e4a de fc 00 14              |        |		ADDA.W	#0x14,A7
00020e4e 52 ae eb d8              |R       |		ADDQ.L	#0x1,(A6-0x1428)
00020e52 22 06                    |"       |		MOVE.L	D6,D1
00020e54 e0 89                    |        |		LSR.L	#0x8,D1
00020e56 0c 81 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D1
00020e5c 63 02                    |c       |		BLS	0x20e60
00020e5e 4e 4f                    |NO      |		TRAP	#15
00020e60 1d 41 eb ea              | A      |		MOVE.B	D1,(A6-0x1416)
00020e64 22 06                    |"       |		MOVE.L	D6,D1
00020e66 02 81 00 00 00 ff        |        |		ANDI.L	#0x000000ff,D1
00020e6c 0c 81 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D1
00020e72 63 02                    |c       |		BLS	0x20e76
00020e74 4e 4f                    |NO      |		TRAP	#15
00020e76 1d 41 eb eb              | A      |		MOVE.B	D1,(A6-0x1415)
00020e7a 2f 39 00 02 19 98        |/9      |		MOVE.L	0x21998,-(A7)
00020e80 1f 2e eb e4              | .      |		MOVE.B	(A6-0x141c),-(A7)
00020e84 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
00020e8a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e8c 3e ae eb ea              |>       |		MOVE.W	(A6-0x1416),(A7)
00020e90 2f 39 00 02 19 98        |/9      |		MOVE.L	0x21998,-(A7)
00020e96 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020e9a 48 78 00 00              |Hx      |		PEA.L	0x0
00020e9e 48 78 00 01              |Hx      |		PEA.L	0x1
00020ea2 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020ea8 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00020eac 2e 93                    |.       |		MOVE.L	(A3),(A7)
00020eae 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00020eb0 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020eb2 be 97                    |        |		CMP.L	(A7),D7
00020eb4 6e 40                    |n@      |		BGT	0x20ef6
00020eb6 20 14                    |        |		MOVE.L	(A4),D0
00020eb8 d0 87                    |        |		ADD.L	D7,D0
00020eba 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00020ec0 63 02                    |c       |		BLS	0x20ec4
00020ec2 4e 4f                    |NO      |		TRAP	#15
00020ec4 e7 80                    |        |		ASL.L	#0x3,D0
00020ec6 41 ee eb c8              |A       |		LEA.L	(A6-0x1438),A0
00020eca 41 f0 08 00              |A       |		LEA.L	(A0+D0.L),A0
00020ece 2f 28 0c 2e              |/( .    |		MOVE.L	(A0+0xc2e),-(A7)
00020ed2 2f 28 0c 2a              |/( *    |		MOVE.L	(A0+0xc2a),-(A7)
00020ed6 2f 39 00 02 19 98        |/9      |		MOVE.L	0x21998,-(A7)
00020edc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020ee0 48 78 00 00              |Hx      |		PEA.L	0x0
00020ee4 48 78 00 07              |Hx      |		PEA.L	0x7
00020ee8 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020eee de fc 00 18              |        |		ADDA.W	#0x18,A7
00020ef2 52 87                    |R       |		ADDQ.L	#0x1,D7
00020ef4 68 bc                    |h       |		BVC	0x20eb2
00020ef6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020ef8 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
00020efc 4e ba f9 d6              |N       |		JSR	0x208d4
00020f00 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020f02 20 14                    |        |		MOVE.L	(A4),D0
00020f04 d0 93                    |        |		ADD.L	(A3),D0
00020f06 28 80                    |(       |		MOVE.L	D0,(A4)
00020f08 4a 2e eb e4              |J.      |		TST.B	(A6-0x141c)
00020f0c 67 04                    |g       |		BEQ	0x20f12
00020f0e dc 93                    |        |		ADD.L	(A3),D6
00020f10 60 06                    |`       |		BRA	0x20f18
00020f12 20 13                    |        |		MOVE.L	(A3),D0
00020f14 ed 80                    |        |		ASL.L	#0x6,D0
00020f16 dc 80                    |        |		ADD.L	D0,D6
00020f18 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
00020f1c 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00020f1e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020f20 be 97                    |        |		CMP.L	(A7),D7
00020f22 6e 00 00 84              |n       |		BGT	0x20fa8
00020f26 20 2e eb dc              | .      |		MOVE.L	(A6-0x1424),D0
00020f2a d0 87                    |        |		ADD.L	D7,D0
00020f2c 0c 80 00 00 00 7f        |        |		CMPI.L	#0x0000007f,D0
00020f32 63 02                    |c       |		BLS	0x20f36
00020f34 4e 4f                    |NO      |		TRAP	#15
00020f36 28 00                    |(       |		MOVE.L	D0,D4
00020f38 76 18                    |v       |		MOVEQ.L	#0x18,D3
00020f3a 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00020f40 41 ee eb c8              |A       |		LEA.L	(A6-0x1438),A0
00020f44 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020f46 22 4f                    |"O      |		MOVEA.L	A7,A1
00020f48 45 f0 48 3a              |E H:    |		LEA.L	(A0+D4.L+#0x3a),A2
00020f4c 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020f4e 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020f50 51 c8 ff fc              |Q       |		DBF	D0,0x20f4e
00020f54 2f 39 00 02 19 90        |/9      |		MOVE.L	0x21990,-(A7)
00020f5a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020f5e 48 78 00 00              |Hx      |		PEA.L	0x0
00020f62 48 78 00 07              |Hx      |		PEA.L	0x7
00020f66 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020f6c de fc 00 14              |        |		ADDA.W	#0x14,A7
00020f70 1e b0 48 36              |  H6    |		MOVE.B	(A0+D4.L+#0x36),(A7)
00020f74 1f 70 48 37 00 01        | pH7    |		MOVE.B	(A0+D4.L+#0x37),(A7+0x1)
00020f7a 1f 70 48 38 00 02        | pH8    |		MOVE.B	(A0+D4.L+#0x38),(A7+0x2)
00020f80 1f 70 48 39 00 03        | pH9    |		MOVE.B	(A0+D4.L+#0x39),(A7+0x3)
00020f86 2f 39 00 02 19 90        |/9      |		MOVE.L	0x21990,-(A7)
00020f8c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020f90 48 78 00 00              |Hx      |		PEA.L	0x0
00020f94 48 78 00 03              |Hx      |		PEA.L	0x3
00020f98 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020f9e de fc 00 14              |        |		ADDA.W	#0x14,A7
00020fa2 52 87                    |R       |		ADDQ.L	#0x1,D7
00020fa4 68 00 ff 7a              |h  z    |		BVC	0x20f20
00020fa8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020faa 1e 82                    |        |		MOVE.B	D2,(A7)
00020fac 4e ba f9 26              |N  &    |		JSR	0x208d4
00020fb0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020fb2 20 2e eb dc              | .      |		MOVE.L	(A6-0x1424),D0
00020fb6 d0 ae ff f2              |        |		ADD.L	(A6-0xe),D0
00020fba 2d 40 eb dc              |-@      |		MOVE.L	D0,(A6-0x1424)
00020fbe 20 06                    |        |		MOVE.L	D6,D0
00020fc0 e0 88                    |        |		LSR.L	#0x8,D0
00020fc2 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00020fc8 63 02                    |c       |		BLS	0x20fcc
00020fca 4e 4f                    |NO      |		TRAP	#15
00020fcc 1d 40 eb ea              | @      |		MOVE.B	D0,(A6-0x1416)
00020fd0 20 06                    |        |		MOVE.L	D6,D0
00020fd2 02 80 00 00 00 ff        |        |		ANDI.L	#0x000000ff,D0
00020fd8 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00020fde 63 02                    |c       |		BLS	0x20fe2
00020fe0 4e 4f                    |NO      |		TRAP	#15
00020fe2 1d 40 eb eb              | @      |		MOVE.B	D0,(A6-0x1415)
00020fe6 2f 39 00 02 19 98        |/9      |		MOVE.L	0x21998,-(A7)
00020fec 1f 2e eb e4              | .      |		MOVE.B	(A6-0x141c),-(A7)
00020ff0 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
00020ff6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020ff8 3e ae eb ea              |>       |		MOVE.W	(A6-0x1416),(A7)
00020ffc 2f 39 00 02 19 98        |/9      |		MOVE.L	0x21998,-(A7)
00021002 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021006 48 78 00 00              |Hx      |		PEA.L	0x0
0002100a 48 78 00 01              |Hx      |		PEA.L	0x1
0002100e 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00021014 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00021018 2e 93                    |.       |		MOVE.L	(A3),(A7)
0002101a 53 97                    |S       |		SUBQ.L	#0x1,(A7)
0002101c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002101e be 97                    |        |		CMP.L	(A7),D7
00021020 6e 40                    |n@      |		BGT	0x21062
00021022 20 14                    |        |		MOVE.L	(A4),D0
00021024 d0 87                    |        |		ADD.L	D7,D0
00021026 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
0002102c 63 02                    |c       |		BLS	0x21030
0002102e 4e 4f                    |NO      |		TRAP	#15
00021030 e7 80                    |        |		ASL.L	#0x3,D0
00021032 41 ee eb c8              |A       |		LEA.L	(A6-0x1438),A0
00021036 41 f0 08 00              |A       |		LEA.L	(A0+D0.L),A0
0002103a 2f 28 0c 2e              |/( .    |		MOVE.L	(A0+0xc2e),-(A7)
0002103e 2f 28 0c 2a              |/( *    |		MOVE.L	(A0+0xc2a),-(A7)
00021042 2f 39 00 02 19 98        |/9      |		MOVE.L	0x21998,-(A7)
00021048 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002104c 48 78 00 00              |Hx      |		PEA.L	0x0
00021050 48 78 00 07              |Hx      |		PEA.L	0x7
00021054 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
0002105a de fc 00 18              |        |		ADDA.W	#0x18,A7
0002105e 52 87                    |R       |		ADDQ.L	#0x1,D7
00021060 68 bc                    |h       |		BVC	0x2101e
00021062 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021064 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
00021068 4e ba f8 6a              |N  j    |		JSR	0x208d4
0002106c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002106e 20 14                    |        |		MOVE.L	(A4),D0
00021070 d0 93                    |        |		ADD.L	(A3),D0
00021072 28 80                    |(       |		MOVE.L	D0,(A4)
00021074 4a 2e eb e4              |J.      |		TST.B	(A6-0x141c)
00021078 67 04                    |g       |		BEQ	0x2107e
0002107a dc 93                    |        |		ADD.L	(A3),D6
0002107c 60 06                    |`       |		BRA	0x21084
0002107e 20 13                    |        |		MOVE.L	(A3),D0
00021080 ed 80                    |        |		ASL.L	#0x6,D0
00021082 dc 80                    |        |		ADD.L	D0,D6
00021084 22 17                    |"       |		MOVE.L	(A7),D1
00021086 52 81                    |R       |		ADDQ.L	#0x1,D1
00021088 69 06                    |i       |		BVS	0x21090
0002108a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002108c 60 00 fc 8c              |`       |		BRA	0x20d1a
00021090 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021092 20 17                    |        |		MOVE.L	(A7),D0
00021094 52 80                    |R       |		ADDQ.L	#0x1,D0
00021096 0c 80 00 00 00 07        |        |		CMPI.L	#0x00000007,D0
0002109c 6e 06                    |n       |		BGT	0x210a4
0002109e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000210a0 60 00 fc 34              |`  4    |		BRA	0x20cd6
000210a4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210a6 42 17                    |B       |		CLR.B	(A7)
000210a8 1f 02                    |        |		MOVE.B	D2,-(A7)
000210aa 4e ba f8 c4              |N       |		JSR	0x20970
000210ae 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210b0 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
000210b4 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
000210b8 4e ba f8 b6              |N       |		JSR	0x20970
000210bc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000210be 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000210c2 4e 5e                    |N^      |		UNLK	A6
000210c4 4e 75                    |Nu      |		RTS
000210c6 ; --------------------------------------------------------------------------------------
000210c6 ; OMSI PASCAL Function
000210c6 ;    <LVAR  0x010 4(r)>
000210c6 ;    <LVAR  0x00e 2(r)>
000210c6 ;    <LVAR  0x00a 4(r)>
000210c6 ;    <LVAR  0x008 2(r)>
000210c6 ;    <LVAR -0x004 4(rw)>
000210c6 ;    <LVAR -0x008 4(rw)>
000210c6 ;    <LVAR -0x408 @>
000210c6 ;    <LVAR -0x409 1(w)>
000210c6 ;    <LVAR -0x40a 1(w) 2(r)>
000210c6 ;    <LVAR -0x40f 1(w)>
000210c6 ;    <LVAR -0x410 @>
000210c6 ;    <LVAR -0x420 @>
000210c6 ; --------------------------------------------------------------------------------------
000210c6 4e 56 fb 72              |NV r    |		LINK.W	A6,#0xfb72
000210ca bf d5                    |        |		CMPA.L	(A5),A7
000210cc 62 06                    |b       |		BHI	0x210d4
000210ce 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000210d2 4e 76                    |Nv      |		TRAPV
000210d4 de fc 00 6e              |   n    |		ADDA.W	#0x6e,A7
000210d8 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000210dc 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
000210e0 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
000210e4 47 ee fb e0              |G       |		LEA.L	(A6-0x420),A3
000210e8 49 f8 00 00              |I       |		LEA.L	0x0,A4
000210ec 22 bc 00 00 00 10        |"       |		MOVE.L	#0x10,(A1)
000210f2 2d 7c 00 00 00 01 ff fc  |-|      |		MOVE.L	#0x1,(A6-0x4)
000210fa 70 00                    |p       |		MOVEQ.L	#0x00,D0
000210fc 1d 40 fb f1              | @      |		MOVE.B	D0,(A6-0x40f)
00021100 3f 12                    |?       |		MOVE.W	(A2),-(A7)
00021102 1f 00                    |        |		MOVE.B	D0,-(A7)
00021104 4e b9 00 02 16 ea        |N       |		JSR	exp_LOAD_DIAG_COUNTER.TYP(Sw_2, Sw_1)
0002110a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002110c 3e 92                    |>       |		MOVE.W	(A2),(A7)
0002110e 1f 00                    |        |		MOVE.B	D0,-(A7)
00021110 4e b9 00 02 17 36        |N    6  |		JSR	exp_LOAD_DIAG_COUNTER.VAL(Sw_2, Sw_1)
00021116 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021118 3e 92                    |>       |		MOVE.W	(A2),(A7)
0002111a 3f 12                    |?       |		MOVE.W	(A2),-(A7)
0002111c 1f 00                    |        |		MOVE.B	D0,-(A7)
0002111e 4e b9 00 02 16 5c        |N    \  |		JSR	exp_LOAD_COUNTER.FIU(Sw_2, Sw_2, Sw_1)
00021124 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021126 3e 92                    |>       |		MOVE.W	(A2),(A7)
00021128 4e b9 00 02 16 a4        |N       |		JSR	exp_LOAD_COUNTER.SEQ(Sw_2)
0002112e 3e 92                    |>       |		MOVE.W	(A2),(A7)
00021130 1f 00                    |        |		MOVE.B	D0,-(A7)
00021132 4e b9 00 02 17 5a        |N    Z  |		JSR	exp_LOAD_WCS_ADDRESS.IOC(Sw_2, Sw_1)
00021138 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002113a 41 fa f0 c6              |A       |		LEA.L	0x20202,A0
0002113e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021140 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021142 51 c8 ff fc              |Q       |		DBF	D0,0x21140
00021146 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021148 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002114c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021150 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00021154 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002115a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002115c 42 17                    |B       |		CLR.B	(A7)
0002115e 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
00021162 4e ba f5 cc              |N       |		JSR	0x20730
00021166 de fc 00 16              |        |		ADDA.W	#0x16,A7
0002116a 2e ae 00 0a              |.       |		MOVE.L	(A6+0xa),(A7)
0002116e 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00021170 70 00                    |p       |		MOVEQ.L	#0x00,D0
00021172 b0 97                    |        |		CMP.L	(A7),D0
00021174 6f 06                    |o       |		BLE	0x2117c
00021176 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021178 60 00 02 86              |`       |		BRA	0x21400
0002117c 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002117e 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
00021182 32 2e 00 0e              |2.      |		MOVE.W	(A6+0xe),D1
00021186 48 c1                    |H       |		EXTW.L	D1
00021188 d2 80                    |        |		ADD.L	D0,D1
0002118a 0c 81 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D1
00021190 63 02                    |c       |		BLS	0x21194
00021192 4e 4f                    |NO      |		TRAP	#15
00021194 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021196 42 67                    |Bg      |		CLR.W	-(A7)
00021198 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
0002119c 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000211a0 41 ee fb f8              |A       |		LEA.L	(A6-0x408),A0
000211a4 2f 08                    |/       |		MOVE.L	A0,-(A7)
000211a6 48 6e fb f0              |Hn      |		PEA.L	(A6-0x410)
000211aa 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
000211b0 de fc 00 14              |        |		ADDA.W	#0x14,A7
000211b4 28 00                    |(       |		MOVE.L	D0,D4
000211b6 76 20                    |v       |		MOVEQ.L	#0x20,D3
000211b8 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
000211be 0c 83 00 00 00 1f        |        |		CMPI.L	#0x0000001f,D3
000211c4 66 22                    |f"      |		BNE	0x211e8
000211c6 3f 3a f0 3a              |?: :    |		MOVE.W	0x20202,-(A7)
000211ca 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000211cc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000211d0 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000211d4 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
000211d8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000211de 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211e0 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000211e6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000211e8 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000211ea 2f 2e ff fc              |/.      |		MOVE.L	(A6-0x4),-(A7)
000211ee 7a 00                    |z       |		MOVEQ.L	#0x00,D5
000211f0 ba 97                    |        |		CMP.L	(A7),D5
000211f2 6e 00 01 fe              |n       |		BGT	0x213f2
000211f6 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000211f8 53 97                    |S       |		SUBQ.L	#0x1,(A7)
000211fa 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000211fc be 97                    |        |		CMP.L	(A7),D7
000211fe 6e 38                    |n8      |		BGT	0x21238
00021200 20 06                    |        |		MOVE.L	D6,D0
00021202 d0 87                    |        |		ADD.L	D7,D0
00021204 0c 80 00 00 00 1f        |        |		CMPI.L	#0x0000001f,D0
0002120a 63 02                    |c       |		BLS	0x2120e
0002120c 4e 4f                    |NO      |		TRAP	#15
0002120e eb 80                    |        |		ASL.L	#0x5,D0
00021210 20 4b                    | K      |		MOVEA.L	A3,A0
00021212 2f 30 08 1c              |/0      |		MOVE.L	(A0+D0.L+#0x1c),-(A7)
00021216 2f 30 08 18              |/0      |		MOVE.L	(A0+D0.L+#0x18),-(A7)
0002121a 2f 39 00 02 19 8c        |/9      |		MOVE.L	0x2198c,-(A7)
00021220 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021224 48 54                    |HT      |		PEA.L	(A4)
00021226 48 78 00 07              |Hx      |		PEA.L	0x7
0002122a 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00021230 de fc 00 18              |        |		ADDA.W	#0x18,A7
00021234 52 87                    |R       |		ADDQ.L	#0x1,D7
00021236 68 c4                    |h       |		BVC	0x211fc
00021238 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002123a 42 17                    |B       |		CLR.B	(A7)
0002123c 4e ba f6 96              |N       |		JSR	0x208d4
00021240 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021242 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021244 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00021246 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021248 be 97                    |        |		CMP.L	(A7),D7
0002124a 6e 38                    |n8      |		BGT	0x21284
0002124c 20 06                    |        |		MOVE.L	D6,D0
0002124e d0 87                    |        |		ADD.L	D7,D0
00021250 0c 80 00 00 00 1f        |        |		CMPI.L	#0x0000001f,D0
00021256 63 02                    |c       |		BLS	0x2125a
00021258 4e 4f                    |NO      |		TRAP	#15
0002125a eb 80                    |        |		ASL.L	#0x5,D0
0002125c 20 4b                    | K      |		MOVEA.L	A3,A0
0002125e 2f 30 08 24              |/0 $    |		MOVE.L	(A0+D0.L+#0x24),-(A7)
00021262 2f 30 08 20              |/0      |		MOVE.L	(A0+D0.L+#0x20),-(A7)
00021266 2f 39 00 02 19 90        |/9      |		MOVE.L	0x21990,-(A7)
0002126c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021270 48 54                    |HT      |		PEA.L	(A4)
00021272 48 78 00 07              |Hx      |		PEA.L	0x7
00021276 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
0002127c de fc 00 18              |        |		ADDA.W	#0x18,A7
00021280 52 87                    |R       |		ADDQ.L	#0x1,D7
00021282 68 c4                    |h       |		BVC	0x21248
00021284 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021286 1e bc 00 01              |        |		MOVE.B	#0x01,(A7)
0002128a 4e ba f6 48              |N  H    |		JSR	0x208d4
0002128e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021290 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021292 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00021294 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021296 be 97                    |        |		CMP.L	(A7),D7
00021298 6e 38                    |n8      |		BGT	0x212d2
0002129a 20 06                    |        |		MOVE.L	D6,D0
0002129c d0 87                    |        |		ADD.L	D7,D0
0002129e 0c 80 00 00 00 1f        |        |		CMPI.L	#0x0000001f,D0
000212a4 63 02                    |c       |		BLS	0x212a8
000212a6 4e 4f                    |NO      |		TRAP	#15
000212a8 eb 80                    |        |		ASL.L	#0x5,D0
000212aa 20 4b                    | K      |		MOVEA.L	A3,A0
000212ac 2f 30 08 2c              |/0 ,    |		MOVE.L	(A0+D0.L+#0x2c),-(A7)
000212b0 2f 30 08 28              |/0 (    |		MOVE.L	(A0+D0.L+#0x28),-(A7)
000212b4 2f 39 00 02 19 94        |/9      |		MOVE.L	0x21994,-(A7)
000212ba 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000212be 48 54                    |HT      |		PEA.L	(A4)
000212c0 48 78 00 07              |Hx      |		PEA.L	0x7
000212c4 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
000212ca de fc 00 18              |        |		ADDA.W	#0x18,A7
000212ce 52 87                    |R       |		ADDQ.L	#0x1,D7
000212d0 68 c4                    |h       |		BVC	0x21296
000212d2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000212d4 1e bc 00 02              |        |		MOVE.B	#0x02,(A7)
000212d8 4e ba f5 fa              |N       |		JSR	0x208d4
000212dc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000212de 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000212e0 53 97                    |S       |		SUBQ.L	#0x1,(A7)
000212e2 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000212e4 be 97                    |        |		CMP.L	(A7),D7
000212e6 6e 00 00 a8              |n       |		BGT	0x21390
000212ea 20 06                    |        |		MOVE.L	D6,D0
000212ec d0 87                    |        |		ADD.L	D7,D0
000212ee 0c 80 00 00 00 1f        |        |		CMPI.L	#0x0000001f,D0
000212f4 63 02                    |c       |		BLS	0x212f8
000212f6 4e 4f                    |NO      |		TRAP	#15
000212f8 eb 80                    |        |		ASL.L	#0x5,D0
000212fa 20 4b                    | K      |		MOVEA.L	A3,A0
000212fc 42 81                    |B       |		CLR.L	D1
000212fe 12 30 08 28              | 0 (    |		MOVE.B	(A0+D0.L+#0x28),D1
00021302 02 41 00 03              | A      |		ANDI.W	#0x0003,D1
00021306 ed 41                    | A      |		ASL.W	#0x6,D1
00021308 42 82                    |B       |		CLR.L	D2
0002130a 14 30 08 29              | 0 )    |		MOVE.B	(A0+D0.L+#0x29),D2
0002130e 02 42 00 03              | B      |		ANDI.W	#0x0003,D2
00021312 e9 42                    | B      |		ASL.W	#0x4,D2
00021314 d4 41                    | A      |		ADD.W	D1,D2
00021316 42 81                    |B       |		CLR.L	D1
00021318 12 30 08 2a              | 0 *    |		MOVE.B	(A0+D0.L+#0x2a),D1
0002131c 02 41 00 03              | A      |		ANDI.W	#0x0003,D1
00021320 e5 41                    | A      |		ASL.W	#0x2,D1
00021322 d2 42                    | B      |		ADD.W	D2,D1
00021324 42 82                    |B       |		CLR.L	D2
00021326 14 30 08 2b              | 0 +    |		MOVE.B	(A0+D0.L+#0x2b),D2
0002132a 02 42 00 03              | B      |		ANDI.W	#0x0003,D2
0002132e d4 41                    | A      |		ADD.W	D1,D2
00021330 1d 42 fb f6              | B      |		MOVE.B	D2,(A6-0x40a)
00021334 42 81                    |B       |		CLR.L	D1
00021336 12 30 08 2c              | 0 ,    |		MOVE.B	(A0+D0.L+#0x2c),D1
0002133a 02 41 00 03              | A      |		ANDI.W	#0x0003,D1
0002133e ed 41                    | A      |		ASL.W	#0x6,D1
00021340 42 82                    |B       |		CLR.L	D2
00021342 14 30 08 2d              | 0 -    |		MOVE.B	(A0+D0.L+#0x2d),D2
00021346 02 42 00 03              | B      |		ANDI.W	#0x0003,D2
0002134a e9 42                    | B      |		ASL.W	#0x4,D2
0002134c d4 41                    | A      |		ADD.W	D1,D2
0002134e 42 81                    |B       |		CLR.L	D1
00021350 12 30 08 2e              | 0 .    |		MOVE.B	(A0+D0.L+#0x2e),D1
00021354 02 41 00 03              | A      |		ANDI.W	#0x0003,D1
00021358 e5 41                    | A      |		ASL.W	#0x2,D1
0002135a d2 42                    | B      |		ADD.W	D2,D1
0002135c 42 82                    |B       |		CLR.L	D2
0002135e 14 30 08 2f              | 0 /    |		MOVE.B	(A0+D0.L+#0x2f),D2
00021362 02 42 00 03              | B      |		ANDI.W	#0x0003,D2
00021366 d4 41                    | A      |		ADD.W	D1,D2
00021368 1d 42 fb f7              | B      |		MOVE.B	D2,(A6-0x409)
0002136c 3f 2e fb f6              |?.      |		MOVE.W	(A6-0x40a),-(A7)
00021370 2f 39 00 02 19 9c        |/9      |		MOVE.L	0x2199c,-(A7)
00021376 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002137a 48 54                    |HT      |		PEA.L	(A4)
0002137c 48 78 00 01              |Hx      |		PEA.L	0x1
00021380 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00021386 de fc 00 12              |        |		ADDA.W	#0x12,A7
0002138a 52 87                    |R       |		ADDQ.L	#0x1,D7
0002138c 68 00 ff 56              |h  V    |		BVC	0x212e4
00021390 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021392 1e bc 00 04              |        |		MOVE.B	#0x04,(A7)
00021396 4e ba f5 3c              |N  <    |		JSR	0x208d4
0002139a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002139c 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002139e 53 97                    |S       |		SUBQ.L	#0x1,(A7)
000213a0 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000213a2 be 97                    |        |		CMP.L	(A7),D7
000213a4 6e 38                    |n8      |		BGT	0x213de
000213a6 20 06                    |        |		MOVE.L	D6,D0
000213a8 d0 87                    |        |		ADD.L	D7,D0
000213aa 0c 80 00 00 00 1f        |        |		CMPI.L	#0x0000001f,D0
000213b0 63 02                    |c       |		BLS	0x213b4
000213b2 4e 4f                    |NO      |		TRAP	#15
000213b4 eb 80                    |        |		ASL.L	#0x5,D0
000213b6 20 4b                    | K      |		MOVEA.L	A3,A0
000213b8 2f 30 08 34              |/0 4    |		MOVE.L	(A0+D0.L+#0x34),-(A7)
000213bc 2f 30 08 30              |/0 0    |		MOVE.L	(A0+D0.L+#0x30),-(A7)
000213c0 2f 39 00 02 19 98        |/9      |		MOVE.L	0x21998,-(A7)
000213c6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000213ca 48 54                    |HT      |		PEA.L	(A4)
000213cc 48 78 00 07              |Hx      |		PEA.L	0x7
000213d0 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
000213d6 de fc 00 18              |        |		ADDA.W	#0x18,A7
000213da 52 87                    |R       |		ADDQ.L	#0x1,D7
000213dc 68 c4                    |h       |		BVC	0x213a2
000213de 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000213e0 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
000213e4 4e ba f4 ee              |N       |		JSR	0x208d4
000213e8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000213ea dc 91                    |        |		ADD.L	(A1),D6
000213ec 52 85                    |R       |		ADDQ.L	#0x1,D5
000213ee 68 00 fe 00              |h       |		BVC	0x211f0
000213f2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000213f4 20 17                    |        |		MOVE.L	(A7),D0
000213f6 52 80                    |R       |		ADDQ.L	#0x1,D0
000213f8 69 06                    |i       |		BVS	0x21400
000213fa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000213fc 60 00 fd 74              |`  t    |		BRA	0x21172
00021400 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021402 42 17                    |B       |		CLR.B	(A7)
00021404 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
00021408 4e ba f5 66              |N  f    |		JSR	0x20970
0002140c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002140e 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021412 4e 5e                    |N^      |		UNLK	A6
00021414 4e 75                    |Nu      |		RTS
00021416 ; --------------------------------------------------------------------------------------
00021416 ; OMSI PASCAL Function
00021416 ;    <LVAR  0x00e 4(r)>
00021416 ;    <LVAR  0x00c @ 1(r)>
00021416 ;    <LVAR  0x00a 1(r)>
00021416 ;    <LVAR  0x008 1(r)>
00021416 ;    <LVAR -0x004 @ 2(r)>
00021416 ;    <LVAR -0x008 @ 4(r)>
00021416 ;    <LVAR -0x00a @>
00021416 ;    <LVAR -0x00e @ 4(r)>
00021416 ; --------------------------------------------------------------------------------------
00021416 4e 56 ff 84              |NV      |		LINK.W	A6,#0xff84
0002141a bf d5                    |        |		CMPA.L	(A5),A7
0002141c 62 06                    |b       |		BHI	0x21424
0002141e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021422 4e 76                    |Nv      |		TRAPV
00021424 de fc 00 6e              |   n    |		ADDA.W	#0x6e,A7
00021428 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002142c 45 ee ff f2              |E       |		LEA.L	(A6-0xe),A2
00021430 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00021436 49 ee 00 0c              |I       |		LEA.L	(A6+0xc),A4
0002143a 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002143c 74 05                    |t       |		MOVEQ.L	#0x05,D2
0002143e 7a 02                    |z       |		MOVEQ.L	#0x02,D5
00021440 7c 2a                    ||*      |		MOVEQ.L	#0x2a,D6
00021442 7e 29                    |~)      |		MOVEQ.L	#0x29,D7
00021444 2f 2e 00 0e              |/.      |		MOVE.L	(A6+0xe),-(A7)
00021448 48 54                    |HT      |		PEA.L	(A4)
0002144a 48 52                    |HR      |		PEA.L	(A2)
0002144c 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00021450 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00021454 4e ba ee a6              |N       |		JSR	0x202fc
00021458 de fc 00 12              |        |		ADDA.W	#0x12,A7
0002145c 1e 82                    |        |		MOVE.B	D2,(A7)
0002145e 1f 05                    |        |		MOVE.B	D5,-(A7)
00021460 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
00021466 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021468 4a 14                    |J       |		TST.B	(A4)
0002146a 66 06                    |f       |		BNE	0x21472
0002146c 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
00021470 67 44                    |gD      |		BEQ	0x214b6
00021472 9e c6                    |        |		SUBA.W	D6,A7
00021474 20 4f                    | O      |		MOVEA.L	A7,A0
00021476 43 fa ed 8c              |C       |		LEA.L	0x20204,A1
0002147a 70 28                    |p(      |		MOVEQ.L	#0x28,D0
0002147c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002147e 51 c8 ff fc              |Q       |		DBF	D0,0x2147c
00021482 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021484 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021488 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002148a 3f 07                    |?       |		MOVE.W	D7,-(A7)
0002148c 4e 93                    |N       |		JSR	(A3)
0002148e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021490 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00021496 de c6                    |        |		ADDA.W	D6,A7
00021498 2e 92                    |.       |		MOVE.L	(A2),(A7)
0002149a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002149c 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
000214a0 4e ba f7 74              |N  t    |		JSR	0x20c16
000214a4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000214a6 20 4f                    | O      |		MOVEA.L	A7,A0
000214a8 43 fa ed 84              |C       |		LEA.L	0x2022e,A1
000214ac 70 04                    |p       |		MOVEQ.L	#0x04,D0
000214ae 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000214b0 51 c8 ff fc              |Q       |		DBF	D0,0x214ae
000214b4 60 48                    |`H      |		BRA	0x214fe
000214b6 4a 2e 00 0a              |J.      |		TST.B	(A6+0xa)
000214ba 67 5a                    |gZ      |		BEQ	0x21516
000214bc 9e fc 00 18              |        |		SUBA.W	#0x18,A7
000214c0 20 4f                    | O      |		MOVEA.L	A7,A0
000214c2 43 fa ed 70              |C  p    |		LEA.L	0x20234,A1
000214c6 70 16                    |p       |		MOVEQ.L	#0x16,D0
000214c8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000214ca 51 c8 ff fc              |Q       |		DBF	D0,0x214c8
000214ce 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000214d0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000214d4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000214d6 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
000214da 4e 93                    |N       |		JSR	(A3)
000214dc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000214de 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000214e4 de fc 00 18              |        |		ADDA.W	#0x18,A7
000214e8 2e 92                    |.       |		MOVE.L	(A2),(A7)
000214ea 3f 01                    |?       |		MOVE.W	D1,-(A7)
000214ec 4e ba f4 d2              |N       |		JSR	0x209c0
000214f0 20 4f                    | O      |		MOVEA.L	A7,A0
000214f2 43 fa ed 58              |C  X    |		LEA.L	0x2024c,A1
000214f6 70 04                    |p       |		MOVEQ.L	#0x04,D0
000214f8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000214fa 51 c8 ff fc              |Q       |		DBF	D0,0x214f8
000214fe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021500 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021504 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021506 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021508 4e 93                    |N       |		JSR	(A3)
0002150a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002150c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021512 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021516 4a 14                    |J       |		TST.B	(A4)
00021518 67 68                    |gh      |		BEQ	0x21582
0002151a 41 fa ed 4c              |A  L    |		LEA.L	0x20268,A0
0002151e 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021520 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021522 51 c8 ff fc              |Q       |		DBF	D0,0x21520
00021526 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021528 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002152c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002152e 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
00021532 4e 93                    |N       |		JSR	(A3)
00021534 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021536 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
0002153c de fc 00 16              |        |		ADDA.W	#0x16,A7
00021540 2e 92                    |.       |		MOVE.L	(A2),(A7)
00021542 3f 07                    |?       |		MOVE.W	D7,-(A7)
00021544 28 2e ff f8              |(.      |		MOVE.L	(A6-0x8),D4
00021548 76 20                    |v       |		MOVEQ.L	#0x20,D3
0002154a 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
00021550 2f 04                    |/       |		MOVE.L	D4,-(A7)
00021552 3f 2e ff fc              |?.      |		MOVE.W	(A6-0x4),-(A7)
00021556 4e ba fb 6e              |N  n    |		JSR	0x210c6
0002155a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002155c 20 4f                    | O      |		MOVEA.L	A7,A0
0002155e 43 fa ed 08              |C       |		LEA.L	0x20268,A1
00021562 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021564 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021566 51 c8 ff fc              |Q       |		DBF	D0,0x21564
0002156a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002156c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021570 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021572 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021574 4e 93                    |N       |		JSR	(A3)
00021576 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021578 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002157e de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021582 1f 02                    |        |		MOVE.B	D2,-(A7)
00021584 1f 05                    |        |		MOVE.B	D5,-(A7)
00021586 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
0002158c 2e 92                    |.       |		MOVE.L	(A2),(A7)
0002158e 4e ba f0 a2              |N       |		JSR	0x20632
00021592 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021594 42 17                    |B       |		CLR.B	(A7)
00021596 1f 05                    |        |		MOVE.B	D5,-(A7)
00021598 48 78 00 01              |Hx      |		PEA.L	0x1
0002159c 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
000215a0 48 52                    |HR      |		PEA.L	(A2)
000215a2 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
000215a8 de fc 00 10              |        |		ADDA.W	#0x10,A7
000215ac 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000215b0 4e 5e                    |N^      |		UNLK	A6
000215b2 4e 75                    |Nu      |		RTS
000215b4 ; --------------------------------------------------------------------------------------
000215b4 ; OMSI PASCAL Function
000215b4 ; --------------------------------------------------------------------------------------
000215b4					START:
000215b4 4f fa 00 08              |O       |		LEA.L	MAIN,A7
000215b8 4e f9 00 01 02 80        |N       |		JMP	?start_program
000215be					MAIN:
000215be 41 f9 00 02 19 a6        |A       |		LEA.L	0x219a6,A0
000215c4 43 f9 00 02 19 aa        |C       |		LEA.L	0x219aa,A1
000215ca 45 f9 00 01 05 26        |E    &  |		LEA.L	IPC_GetBool() : Bool,A2
000215d0 47 f9 00 02 19 ab        |G       |		LEA.L	0x219ab,A3
000215d6 49 f9 00 02 19 ac        |I       |		LEA.L	0x219ac,A4
000215dc 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
000215e2 48 78 00 05              |Hx      |		PEA.L	0x5
000215e6 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
000215ec 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000215ee 42 17                    |B       |		CLR.B	(A7)
000215f0 4e b9 00 01 04 d2        |N       |		JSR	SetExpInitDone(a : Byte)
000215f6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000215f8 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
000215fe 48 50                    |HP      |		PEA.L	(A0)
00021600 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
00021606 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021608 48 51                    |HQ      |		PEA.L	(A1)
0002160a 4e 92                    |N       |		JSR	(A2)
0002160c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002160e 48 53                    |HS      |		PEA.L	(A3)
00021610 4e 92                    |N       |		JSR	(A2)
00021612 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021614 48 54                    |HT      |		PEA.L	(A4)
00021616 4e 92                    |N       |		JSR	(A2)
00021618 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002161a 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
00021620 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00021622 1f 11                    |        |		MOVE.B	(A1),-(A7)
00021624 1f 13                    |        |		MOVE.B	(A3),-(A7)
00021626 1f 14                    |        |		MOVE.B	(A4),-(A7)
00021628 4e ba fd ec              |N       |		JSR	0x21416
0002162c de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021630 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00021636 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
0002163a 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
00021640 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021642 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
00021648 42 27                    |B'      |		CLR.B	-(A7)
0002164a 48 78 00 01              |Hx      |		PEA.L	0x1
0002164e 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021654 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021656 4e b9 00 01 02 84        |N       |		JSR	?exit
0002165c					exp_LOAD_COUNTER.FIU(Sw_2, Sw_2, Sw_1):
0002165c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021662 00 0e                    |        |		.CONST	0x000e			; Stack-delta
00021664 10 4c 4f 41 44 5f 43 4f  | LOAD_CO|		.TXT	16,'LOAD_COUNTER.FIU'
00021675 00                       |        |		.CONST	0x0
00021676 03                       |        |		.CONST	0x3			; DIPROC address
00021677 00                       |        |		.CONST	0x0			; Output Parameters
00021678 03                       |        |		.CONST	0x3			; Input Parameters
00021679 01                       |        |		.CONST	0x1			; In arg [2]
0002167a 01                       |        |		.CONST	0x1			; In arg [2]
0002167b 00                       |        |		.CONST	0x0			; In arg [1]
0002167c					exp_PREP_LOAD_DISPATCH_RAMS.SEQ():
0002167c 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021682 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021684 1b 50 52 45 50 5f 4c 4f  | PREP_LO|		.TXT	27,'PREP_LOAD_DISPATCH_RAMS.SEQ'
000216a0 00                       |        |		.CONST	0x0
000216a1 02                       |        |		.CONST	0x2			; DIPROC address
000216a2 00                       |        |		.CONST	0x0			; Output Parameters
000216a3 00                       |        |		.CONST	0x0			; Input Parameters
000216a4					exp_LOAD_COUNTER.SEQ(Sw_2):
000216a4 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000216aa 00 0a                    |        |		.CONST	0x000a			; Stack-delta
000216ac 10 4c 4f 41 44 5f 43 4f  | LOAD_CO|		.TXT	16,'LOAD_COUNTER.SEQ'
000216bd 00                       |        |		.CONST	0x0
000216be 02                       |        |		.CONST	0x2			; DIPROC address
000216bf 00                       |        |		.CONST	0x0			; Output Parameters
000216c0 01                       |        |		.CONST	0x1			; Input Parameters
000216c1 01                       |        |		.CONST	0x1			; In arg [2]
000216c2					exp_PREP_LOAD_REGISTER_FILE.TYP():
000216c2 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000216c8 00 08                    |        |		.CONST	0x0008			; Stack-delta
000216ca 1b 50 52 45 50 5f 4c 4f  | PREP_LO|		.TXT	27,'PREP_LOAD_REGISTER_FILE.TYP'
000216e6 00                       |        |		.CONST	0x0
000216e7 06                       |        |		.CONST	0x6			; DIPROC address
000216e8 00                       |        |		.CONST	0x0			; Output Parameters
000216e9 00                       |        |		.CONST	0x0			; Input Parameters
000216ea					exp_LOAD_DIAG_COUNTER.TYP(Sw_2, Sw_1):
000216ea 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000216f0 00 0c                    |        |		.CONST	0x000c			; Stack-delta
000216f2 15 4c 4f 41 44 5f 44 49  | LOAD_DI|		.TXT	21,'LOAD_DIAG_COUNTER.TYP'
00021708 00                       |        |		.CONST	0x0
00021709 06                       |        |		.CONST	0x6			; DIPROC address
0002170a 00                       |        |		.CONST	0x0			; Output Parameters
0002170b 02                       |        |		.CONST	0x2			; Input Parameters
0002170c 01                       |        |		.CONST	0x1			; In arg [2]
0002170d 00                       |        |		.CONST	0x0			; In arg [1]
0002170e					exp_PREP_LOAD_REGISTER_FILE.VAL():
0002170e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021714 00 08                    |        |		.CONST	0x0008			; Stack-delta
00021716 1b 50 52 45 50 5f 4c 4f  | PREP_LO|		.TXT	27,'PREP_LOAD_REGISTER_FILE.VAL'
00021732 00                       |        |		.CONST	0x0
00021733 07                       |        |		.CONST	0x7			; DIPROC address
00021734 00                       |        |		.CONST	0x0			; Output Parameters
00021735 00                       |        |		.CONST	0x0			; Input Parameters
00021736					exp_LOAD_DIAG_COUNTER.VAL(Sw_2, Sw_1):
00021736 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002173c 00 0c                    |        |		.CONST	0x000c			; Stack-delta
0002173e 15 4c 4f 41 44 5f 44 49  | LOAD_DI|		.TXT	21,'LOAD_DIAG_COUNTER.VAL'
00021754 00                       |        |		.CONST	0x0
00021755 07                       |        |		.CONST	0x7			; DIPROC address
00021756 00                       |        |		.CONST	0x0			; Output Parameters
00021757 02                       |        |		.CONST	0x2			; Input Parameters
00021758 01                       |        |		.CONST	0x1			; In arg [2]
00021759 00                       |        |		.CONST	0x0			; In arg [1]
0002175a					exp_LOAD_WCS_ADDRESS.IOC(Sw_2, Sw_1):
0002175a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021760 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00021762 14 4c 4f 41 44 5f 57 43  | LOAD_WC|		.TXT	20,'LOAD_WCS_ADDRESS.IOC'
00021777 00                       |        |		.CONST	0x0
00021778 04                       |        |		.CONST	0x4			; DIPROC address
00021779 00                       |        |		.CONST	0x0			; Output Parameters
0002177a 02                       |        |		.CONST	0x2			; Input Parameters
0002177b 01                       |        |		.CONST	0x1			; In arg [2]
0002177c 00                       |        |		.CONST	0x0			; In arg [1]
0002177d 00                       |        |		.PAD	0x0
0002177e 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
0002178c ; --------------------------------------------------------------------------------------
0002178c ; OMSI PASCAL Function
0002178c ;    <LVAR  0x008 1(r)>
0002178c ; --------------------------------------------------------------------------------------
0002178c					PROG_FAIL:
0002178c 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00021790 bf d5                    |        |		CMPA.L	(A5),A7
00021792 62 06                    |b       |		BHI	0x2179a
00021794 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021798 4e 76                    |Nv      |		TRAPV
0002179a de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
0002179e 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
000217a2 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
000217a6 70 06                    |p       |		MOVEQ.L	#0x06,D0
000217a8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000217aa 51 c8 ff fc              |Q       |		DBF	D0,0x217a8
000217ae 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
000217b2 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000217b4 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
000217b8 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000217bc 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
000217c0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000217c6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000217c8 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000217cc 48 80                    |H       |		EXTB.W	D0
000217ce 48 c0                    |H       |		EXTW.L	D0
000217d0 2f 00                    |/       |		MOVE.L	D0,-(A7)
000217d2 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000217d8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000217da 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000217e0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217e2 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000217e8 de fc 00 14              |        |		ADDA.W	#0x14,A7
000217ec 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
000217f0 4e 5e                    |N^      |		UNLK	A6
000217f2 4e 75                    |Nu      |		RTS
000217f4 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
00021802 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00021810 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
0002181e 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00021830 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00021848 ; --------------------------------------------------------------------------------------
00021848 ; OMSI PASCAL Function
00021848 ;    <LVAR  0x00e 1(r)>
00021848 ;    <LVAR  0x00a 4(r)>
00021848 ;    <LVAR  0x008 1(r)>
00021848 ; --------------------------------------------------------------------------------------
00021848					EXP_FAIL:
00021848 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
0002184c bf d5                    |        |		CMPA.L	(A5),A7
0002184e 62 06                    |b       |		BHI	0x21856
00021850 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021854 4e 76                    |Nv      |		TRAPV
00021856 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
0002185a 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
0002185e 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00021864 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
0002186a 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002186c 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
0002186e 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00021870 78 12                    |x       |		MOVEQ.L	#0x12,D4
00021872 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00021874 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
0002187a 41 fa ff b4              |A       |		LEA.L	0x21830,A0
0002187e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021880 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021882 51 c8 ff fc              |Q       |		DBF	D0,0x21880
00021886 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021888 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002188c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002188e 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021890 4e 93                    |N       |		JSR	(A3)
00021892 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021894 4e 94                    |N       |		JSR	(A4)
00021896 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021898 20 4f                    | O      |		MOVEA.L	A7,A0
0002189a 43 fa ff 58              |C  X    |		LEA.L	0x217f4,A1
0002189e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000218a0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000218a2 51 c8 ff fc              |Q       |		DBF	D0,0x218a0
000218a6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000218a8 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000218ac 3f 01                    |?       |		MOVE.W	D1,-(A7)
000218ae 3f 02                    |?       |		MOVE.W	D2,-(A7)
000218b0 4e 93                    |N       |		JSR	(A3)
000218b2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000218b4 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
000218b8 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
000218be 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000218c0 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000218c6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000218c8 4e 94                    |N       |		JSR	(A4)
000218ca de c4                    |        |		ADDA.W	D4,A7
000218cc 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
000218d0 b0 c1                    |        |		CMPA.W	D1,A0
000218d2 67 48                    |gH      |		BEQ	0x2191c
000218d4 9e c5                    |        |		SUBA.W	D5,A7
000218d6 22 4f                    |"O      |		MOVEA.L	A7,A1
000218d8 45 fa ff 28              |E  (    |		LEA.L	0x21802,A2
000218dc 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000218de 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000218e0 51 c8 ff fc              |Q       |		DBF	D0,0x218de
000218e4 9e c3                    |        |		SUBA.W	D3,A7
000218e6 22 4f                    |"O      |		MOVEA.L	A7,A1
000218e8 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
000218ec 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000218ee 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000218f0 51 c8 ff fc              |Q       |		DBF	D0,0x218ee
000218f4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000218f6 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
000218fa 3f 01                    |?       |		MOVE.W	D1,-(A7)
000218fc 3f 02                    |?       |		MOVE.W	D2,-(A7)
000218fe 4e 93                    |N       |		JSR	(A3)
00021900 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021902 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021906 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021908 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002190a 4e 93                    |N       |		JSR	(A3)
0002190c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002190e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021914 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021916 4e 94                    |N       |		JSR	(A4)
00021918 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
0002191c 9e c5                    |        |		SUBA.W	D5,A7
0002191e 20 4f                    | O      |		MOVEA.L	A7,A0
00021920 43 fa fe ee              |C       |		LEA.L	0x21810,A1
00021924 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021926 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021928 51 c8 ff fc              |Q       |		DBF	D0,0x21926
0002192c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002192e 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021932 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021934 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021936 4e 93                    |N       |		JSR	(A3)
00021938 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002193a 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
0002193e 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
00021944 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021946 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002194c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002194e 4e 94                    |N       |		JSR	(A4)
00021950 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021952 20 4f                    | O      |		MOVEA.L	A7,A0
00021954 43 fa fe da              |C       |		LEA.L	0x21830,A1
00021958 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002195a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002195c 51 c8 ff fc              |Q       |		DBF	D0,0x2195a
00021960 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00021964 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021966 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002196a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002196c 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00021970 4e 93                    |N       |		JSR	(A3)
00021972 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021974 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002197a de c3                    |        |		ADDA.W	D3,A7
0002197c 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00021980 4e 5e                    |N^      |		UNLK	A6
00021982 4e 75                    |Nu      |		RTS