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

⟦9aafb154c⟧ M200

    Length: 7168 (0x1c00)
    Types: M200
    Notes: @(#)DBUSULOAD,1.2,92/08/26,12:00:00, M200_PROGRAM
    Names: »DBUSULOAD.M200«

Derivation

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

Disassembly

0x2029e


@ 2029e
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(rw)>
    <POP 2029e-20326 Body>                                              
        <POP 2029e-202b4 Prologue>                           Σ0         ↓
        <POP 202b4-202b6 Naked>                              Σ0         ↓
            <MI 202b4  MOVEQ.L #0x00,D6>                                        {}
        <POP 202b6-202d2 Naked>                              Σ0         ↓ →0x202d8 ←0x2030e
            <MI 202b6  MOVE.L  (A6+0x8),D0>                                     {}
            <POP 0x202ba LimitCheck 0x0 ≤ D0 ≤ 0x1ff>                           {}
            <MI 202c4  ASL.L   #0x1,D0>                                         {}
            <MI 202c6  CLR.L   D1>                                              {}
            <MI 202c8  MOVE.W  (A4+D0.L),D1>                                    {}
            <MI 202cc  MOVE.L  D1,D7>                                           {}
            <MI 202ce  TST.B   D6>                                              {}
            <MI 202d0  BEQ     0x202d8>                                         {}
        <POP 202d2-202d8 Naked>                              Σ0         →0x202e8
            <MI 202d2  ADDQ.L  #0x1,(A6+0x8)>                                   {}
            <MI 202d6  BRA     0x202e8>                                         {}
        <POP 202d8-202e8 Naked>                              Σ0         ↓ ←0x202b6
            <MI 202d8  MOVE.L  D7,D4>                                           {}
            <MI 202da  MOVE.L  #0x100,D3>                                       {}
            <Call 0x202e0 0x10294>                                              {}
                ?divs_d3_d4
            <MI 202e6  MOVE.L  D4,D7>                                           {}
        <POP 202e8-202f6 Naked>                              Σ0         ↓ →0x2030e ←0x202d2
            <MI 202e8  ANDI.L  #0x000000ff,D7>                                  {}
            <MI 202ee  NEG.B   D6>                                              {}
            <MI 202f0  ADDQ.B  #0x1,D6>                                         {}
            <MI 202f2  TST.L   D7>                                              {}
            <MI 202f4  BEQ     0x2030e>                                         {}
        <POP 202f6-2030e Naked>                              Σ0         ↓
            <MI 202f6  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <POP 0x202fa LimitCheck 0x0 ≤ D7 ≤ 0xff>                            {[4, '(A6+0xc)']}
            <MI 20304  MOVE.B  D7,-(A7)>                     Δ-2                {[4, '(A6+0xc)']|[2, 'D7']}
            <Call 0x20306 0x102c0>                                              {[4, '(A6+0xc)']|[2, 'D7']}
                AppendChar(MOD b : String; a : char)
            <POP 2030c-2030e StackAdj>                       Δ+6                {}
        <POP 2030e-20312 Naked>                              Σ0         ↓ →0x202b6 ←0x202e8
            <MI 2030e  TST.L   D7>                                              {}
            <MI 20310  BNE     0x202b6>                                         {}
        <POP 20312-2031e Naked>                              Σ0         ↓
            <MI 20312  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[4, '(A6+0xc)']}
            <Call 0x20316 0x103e0>                                              {[4, '(A6+0xc)']}
                WriteConsoleStringCrLf(str : String)
            <POP 2031c-2031e StackAdj>                       Δ+4                {}
        <POP 2031e-20326 Epilogue>                           Σ0         

0x20326


@ 20326
        <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(r)>
        <LVAR -0x010 @ 1(r)>
        <LVAR -0x40c 2(r)>
        <LVAR -0x40e 2(r)>
        <LVAR -0x410 @ 2(r)>
    <POP 20326-20596 Body>                                              
        <POP 20326-2033c Prologue>                           Σ0         ↓
        <POP 2033c-2034c RegCacheLoad>                       Σ0         ↓
        <POP 2034c-203c2 Naked>                              Σ0 Δ-4     ↓ →0x203ec
            <MI 2034c  MOVEA.L (A6+0x10),A0>                                    {}
            <MI 20350  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 20352  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[4, 'A0']|[4, '(A6+0x18)']}
            <MI 20356  CLR.B   -(A7)>                        Δ-2                {[4, 'A0']|[4, '(A6+0x18)']|[#0]}
            <Const 0x20358 0x2.2>                            Δ-2                {[4, 'A0']|[4, '(A6+0x18)']|[#0]|[#2]}
            <Const 0x2035a 0x0.4>                            Δ-4                {[4, 'A0']|[4, '(A6+0x18)']|[#0]|[#2]|[##0]}
            <Pointer.fp 0x2035e <LVAR -0x010 @ 1(r)>>        Δ-4                {[4, 'A0']|[4, '(A6+0x18)']|[#0]|[#2]|[##0]|[@@-16]}
            <MI 20360  PEA.L   (A0)>                         Δ-4                {[4, 'A0']|[4, '(A6+0x18)']|[#0]|[#2]|[##0]|[@@-16]|[4, '^(A0)']}
            <Call 0x20362 0x10380>                                              {[4, 'A0']|[4, '(A6+0x18)']|[#0]|[#2]|[##0]|[@@-16]|[4, '^(A0)']}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 20368-2036a StackAdj>                       Δ+20               {[4, 'A0']}
            <MI 2036a  MOVEA.L (A0),A1>                                         {[4, 'A0']}
            <MI 2036c  MOVE.W  (A1+0x20),D0>                                    {[4, 'A0']}
            <MI 20370  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 20372  MOVE.L  D0,D7>                                           {[4, 'A0']}
            <MI 20374  MOVE.L  (A0),-(A7)>                   Δ-4                {[4, 'A0']|[4, '(A0)']}
            <MI 20376  CLR.W   -(A7)>                        Δ-2                {[4, 'A0']|[4, '(A0)']|[#0]}
            <MI 20378  CLR.W   -(A7)>                        Δ-2                {[4, 'A0']|[4, '(A0)']|[#0]|[#0]}
            <Const 0x2037a 0x200.2>                          Δ-2                {[4, 'A0']|[4, '(A0)']|[#0]|[#0]|[#512]}
            <Const 0x2037e 0x2.2>                            Δ-2                {[4, 'A0']|[4, '(A0)']|[#0]|[#0]|[#512]|[#2]}
            <MI 20380  LEA.L   (A6-0x410),A1>                                   {[4, 'A0']|[4, '(A0)']|[#0]|[#0]|[#512]|[#2]}
            <MI 20384  MOVE.L  A1,-(A7)>                     Δ-4                {[4, 'A0']|[4, '(A0)']|[#0]|[#0]|[#512]|[#2]|[4, 'A1']}
            <Pointer.fp 0x20386 <LVAR -0x010 @ 1(r)>>        Δ-4                {[4, 'A0']|[4, '(A0)']|[#0]|[#0]|[#512]|[#2]|[4, 'A1']|[@@-16]}
            <Call 0x20388 0x10384>                                              {[4, 'A0']|[4, '(A0)']|[#0]|[#0]|[#512]|[#2]|[4, 'A1']|[@@-16]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 2038e-20390 StackAdj>                       Δ+20               {[4, 'A0']}
            <MI 20390  MOVEA.L (A6+0xc),A1>                                     {[4, 'A0']}
            <MI 20394  CLR.L   D0>                                              {[4, 'A0']}
            <MI 20396  MOVE.W  (A6-0x410),D0>                                   {[4, 'A0']}
            <MI 2039a  MOVE.L  D0,(A1)>                                         {[4, 'A0']}
            <MI 2039c  MOVEA.L (A6+0x8),A1>                                     {[4, 'A0']}
            <MI 203a0  MOVE.W  (A6-0x40e),D1>                                   {[4, 'A0']}
            <MI 203a4  LSR.W   #0x8,D1>                                         {[4, 'A0']}
            <MI 203a6  MOVE.B  D1,(A1)>                                         {[4, 'A0']}
            <MI 203a8  MOVE.W  (A6-0x40e),D1>                                   {[4, 'A0']}
            <MI 203ac  ANDI.W  #0x00ff,D1>                                      {[4, 'A0']}
            <POP 0x203b0 LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {[4, 'A0']}
            <MI 203b4  MOVE.B  D1,(A1+0x1)>                                     {[4, 'A0']}
            <MI 203b8  MOVE.W  (A6-0x40c),D1>                                   {[4, 'A0']}
            <MI 203bc  CMPI.W  #0x00c8,D1>                                      {[4, 'A0']}
            <MI 203c0  BEQ     0x203ec>                                         {[4, 'A0']}
        <POP 203c2-203ec Naked>                              Σ-4        ↓
            <Blob 0x203c2 [44] @>                            Δ-44               {[-4-]|[«44""»]}
            <Const 0x203ce 0xe.2>                            Δ-2                {[-4-]|[«44""»]|[#14]}
            <POP 203d2-203d4 StackAdj>                       Δ-4                {[-4-]|[«44""»]|[#14]|[-4-]}
            <Lit 0x203d4 44>                                                    {[-4-]|[«44""»]|[#14]|[$$Microcode is not for this type of processor.]}
            <Call 0x203e2 0x103b8>                                              {[-4-]|[«44""»]|[#14]|[$$Microcode is not for this type of processor.]}
                PopProgram(status : Byte; msg : String)
            <POP 203e8-203ec StackAdj>                       Δ+50               {[-4-]}
        <POP 203ec-20402 Naked>                              Σ-4        ↓ →0x2042c ←0x2034c
            <MI 203ec  MOVE.L  D7,D1>                                           {[-4-]}
            <MI 203ee  SUBI.L  #0x00000029,D1>                                  {[-4-]}
            <MI 203f4  MOVE.L  D0,D4>                                           {[-4-]}
            <MI 203f6  MOVEQ.L #0x20,D3>                                        {[-4-]}
            <Call 0x203f8 0x10294>                                              {[-4-]}
                ?divs_d3_d4
            <MI 203fe  CMP.L   D4,D1>                                           {[-4-]}
            <MI 20400  BEQ     0x2042c>                                         {[-4-]}
        <POP 20402-2042c Naked>                              Σ-4        ↓
            <Blob 0x20402 [36] @>                            Δ-36               {[-4-]|[«36""»]}
            <Const 0x2040e 0xe.2>                            Δ-2                {[-4-]|[«36""»]|[#14]}
            <POP 20412-20414 StackAdj>                       Δ-4                {[-4-]|[«36""»]|[#14]|[-4-]}
            <Lit 0x20414 36>                                                    {[-4-]|[«36""»]|[#14]|[$$Microcode file size is inconsistent.]}
            <Call 0x20422 0x103b8>                                              {[-4-]|[«36""»]|[#14]|[$$Microcode file size is inconsistent.]}
                PopProgram(status : Byte; msg : String)
            <POP 20428-2042c StackAdj>                       Δ+42               {[-4-]}
        <POP 2042c-204c6 Naked>                              Σ-4        ↓ →0x204d0 ←0x203ec
            <Blob 0x2042c [20] @>                            Δ-20               {[-4-]|[«20""»]}
            <POP 20438-2043a StackAdj>                       Δ-8                {[-4-]|[«20""»]|[-8-]}
            <Lit 0x2043a 20>                                                    {[-4-]|[«20""»]|[-4-]|[$$  Loading from file_]}
            <MI 20444  MOVE.L  (A6+0x18),(A7)>                                  {[-4-]|[«20""»]|[-4-]|[4, '(A6+0x18)']}
            <POP 20442-20444 StackAdj>                       Δ-8                {[-4-]|[«20""»]|[-4-]|[4, '(A6+0x18)']|[-8-]}
            <Call 0x20448 0x102cc>                                              {[-4-]|[«20""»]|[-4-]|[4, '(A6+0x18)']|[-8-]}
                StringDup(a : String) : String
            <POP 2044e-20450 StackAdj>                       Δ+4                {[-4-]|[«20""»]|[-4-]|[4, '(A6+0x18)']|[-4-]}
            <Call 0x20450 0x102d0>                                              {[-4-]|[«20""»]|[-4-]|[4, '(A6+0x18)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20456-20458 StackAdj>                       Δ+8                {[-4-]|[«20""»]|[-4-]}
            <Call 0x20458 0x103d8>                                              {[-4-]|[«20""»]|[-4-]}
                WriteConsoleString(str : String)
            <POP 2045e-2045f StackAdj>                       Δ+24       ↓       {[-4-]}
            <Blob 0x2045f [12] @>                            Δ-12               {[-4-]|[«12""»]}
            <POP 20470-20472 StackAdj>                       Δ-4                {[-4-]|[«12""»]|[-4-]}
            <Lit 0x20472 11>                                                    {[-4-]|[«12""»]|[$$  bound on_]}
            <Const 0x20480 0x4.4>                            Δ-4                {[-4-]|[«12""»]|[$$  bound on_]|[##4]}
            <MI 20484  LEA.L   (A6-0x410),A4>                                   {[-4-]|[«12""»]|[$$  bound on_]|[##4]}
            <Call 0x20488 0x2029e>                                              {[-4-]|[«12""»]|[$$  bound on_]|[##4]}
            <POP 2048c-2048e StackAdj>                       Δ+20               {[-4-]}
            <Blob 0x2048e [10] @>                            Δ-10               {[-4-]|[«10""»]}
            <POP 2049a-2049c StackAdj>                       Δ-4                {[-4-]|[«10""»]|[-4-]}
            <Lit 0x2049c 10>                                                    {[-4-]|[«10""»]|[$$LAST_UCODE]}
            <POP 204a8-204aa StackAdj>                       Δ-2                {[-4-]|[«10""»]|[$$LAST_UCODE]|[-2-]}
            <MI 204aa  CLR.B   (A7)>                                            {[-4-]|[«10""»]|[$$LAST_UCODE]|[-2-]}
            <MI 204ac  CLR.B   -(A7)>                        Δ-2                {[-4-]|[«10""»]|[$$LAST_UCODE]|[-2-]|[#0]}
            <Const 0x204ae 0x0.4>                            Δ-4                {[-4-]|[«10""»]|[$$LAST_UCODE]|[-2-]|[#0]|[##0]}
            <Pointer.fp 0x204b2 <LVAR -0x010 @ 1(r)>>        Δ-4                {[-4-]|[«10""»]|[$$LAST_UCODE]|[-2-]|[#0]|[##0]|[@@-16]}
            <Pointer.fp 0x204b4 <LVAR -0x006 @ 4(r)>>        Δ-4                {[-4-]|[«10""»]|[$$LAST_UCODE]|[-2-]|[#0]|[##0]|[@@-16]|[@@-6]}
            <Call 0x204b8 0x10380>                                              {[-4-]|[«10""»]|[$$LAST_UCODE]|[-2-]|[#0]|[##0]|[@@-16]|[@@-6]}
                OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
            <POP 204be-204c2 StackAdj>                       Δ+30               {[-4-]}
            <MI 204c2  TST.B   (A6-0x10)>                                       {[-4-]}
            <MI 204c4  BEQ     0x204d0>                                         {[-4-]}
        <POP 204c6-204d0 Naked>                              Σ-4        →0x2058c
            <MI 204c6  MOVEA.L (A6+0x14),A0>                                    {[-4-]}
            <MI 204ca  MOVE.B  #0x01,(A0)>                                      {[-4-]}
            <MI 204cc  BRA     0x2058c>                                         {[-4-]}
        <POP 204d0-20514 Naked>                              Σ-4        ↓ →0x20562 ←0x2042c
            <Pointer.fp 0x204d0 <LVAR -0x00a @ 4(r)>>        Δ-4                {[-4-]|[@@-10]}
            <Call 0x204d4 0x102b8>                                              {[-4-]|[@@-10]}
                NewString(VAR a : String)
            <MI 204da  MOVE.L  (A6-0x6),(A7)>                                   {[-4-]|[4, '(A6-0x6)']}
            <MI 204de  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, '(A6-0x6)']|[#0]}
            <MI 204e0  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]}
            <Const 0x204e2 0x40.2>                           Δ-2                {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]|[#64]}
            <Const 0x204e6 0x2.2>                            Δ-2                {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]|[#64]|[#2]}
            <MI 204e8  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]|[#64]|[#2]|[4, '(A6-0xa)']}
            <Pointer.fp 0x204ec <LVAR -0x010 @ 1(r)>>        Δ-4                {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]|[#64]|[#2]|[4, '(A6-0xa)']|[@@-16]}
            <Call 0x204ee 0x10384>                                              {[-4-]|[4, '(A6-0x6)']|[#0]|[#0]|[#64]|[#2]|[4, '(A6-0xa)']|[@@-16]}
                ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
            <POP 204f4-204f6 StackAdj>                       Δ+20               {[-4-]}
            <MI 204f6  MOVEA.L (A7),A0>                                         {[-4-]}
            <MI 204f8  MOVEA.L (A0),A0>                                         {[-4-]}
            <MI 204fa  MOVEA.L (A6-0x6),A1>                                     {[-4-]}
            <POP 204fe-20500 StackAdj>                       Δ-2                {[-6-]}
            <MI 20500  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[-6-]|[4, '(A6-0xa)']}
            <MI 20504  MOVE.L  (A6+0x18),-(A7)>              Δ-4                {[-6-]|[4, '(A6-0xa)']|[4, '(A6+0x18)']}
            <Call 0x20508 0x102c8>                                              {[-6-]|[4, '(A6-0xa)']|[4, '(A6+0x18)']}
                StringEqual(a, b : String) : Byte
            <POP 2050e-20510 StackAdj>                       Δ+8                {[-6-]}
            <MI 20510  TST.B   (A7)+>                        Δ+2                {[-4-]}
            <MI 20512  BEQ     0x20562>                                         {[-4-]}
        <POP 20514-20528 Naked>                              Σ-4        ↓ →0x20562
            <MI 20514  CLR.L   D0>                                              {[-4-]}
            <MI 20516  MOVE.B  (A0+0x3c),D0>                                    {[-4-]}
            <MI 2051a  LSR.B   #0x1,D0>                                         {[-4-]}
            <MI 2051c  CLR.L   D1>                                              {[-4-]}
            <MI 2051e  MOVE.B  (A1+0x3c),D1>                                    {[-4-]}
            <MI 20522  LSR.B   #0x1,D1>                                         {[-4-]}
            <MI 20524  CMP.W   D1,D0>                                           {[-4-]}
            <MI 20526  BNE     0x20562>                                         {[-4-]}
        <POP 20528-20540 Naked>                              Σ-4        ↓ →0x20562
            <MI 20528  MOVE.W  (A0+0x3c),D0>                                    {[-4-]}
            <MI 2052c  LSL.W   #0x7,D0>                                         {[-4-]}
            <MI 2052e  LSR.W   #0x8,D0>                                         {[-4-]}
            <MI 20530  LSR.W   #0x4,D0>                                         {[-4-]}
            <MI 20532  MOVE.W  (A1+0x3c),D1>                                    {[-4-]}
            <MI 20536  LSL.W   #0x7,D1>                                         {[-4-]}
            <MI 20538  LSR.W   #0x8,D1>                                         {[-4-]}
            <MI 2053a  LSR.W   #0x4,D1>                                         {[-4-]}
            <MI 2053c  CMP.W   D1,D0>                                           {[-4-]}
            <MI 2053e  BNE     0x20562>                                         {[-4-]}
        <POP 20540-20558 Naked>                              Σ-4        ↓ →0x20562
            <MI 20540  CLR.L   D0>                                              {[-4-]}
            <MI 20542  MOVE.B  (A0+0x3d),D0>                                    {[-4-]}
            <MI 20546  LSL.B   #0x3,D0>                                         {[-4-]}
            <MI 20548  LSR.B   #0x3,D0>                                         {[-4-]}
            <MI 2054a  CLR.L   D1>                                              {[-4-]}
            <MI 2054c  MOVE.B  (A1+0x3d),D1>                                    {[-4-]}
            <MI 20550  LSL.B   #0x3,D1>                                         {[-4-]}
            <MI 20552  LSR.B   #0x3,D1>                                         {[-4-]}
            <MI 20554  CMP.W   D1,D0>                                           {[-4-]}
            <MI 20556  BNE     0x20562>                                         {[-4-]}
        <POP 20558-20562 Naked>                              Σ-4        ↓ →0x20568
            <MI 20558  MOVE.W  (A0+0x3a),D0>                                    {[-4-]}
            <MI 2055c  CMP.W   (A1+0x3a),D0>                                    {[-4-]}
            <MI 20560  BEQ     0x20568>                                         {[-4-]}
        <POP 20562-20568 Naked>                              Σ-4        ↓ ←0x204d0 ←0x20514 ←0x20528 ←0x20540
            <MI 20562  MOVEA.L (A6+0x14),A0>                                    {[-4-]}
            <MI 20566  MOVE.B  #0x01,(A0)>                                      {[-4-]}
        <POP 20568-2058c Naked>                              Σ-4        ↓ ←0x20558
            <Pointer.fp 0x20568 <LVAR -0x00a @ 4(r)>>        Δ-4                {[-4-]|[@@-10]}
            <Call 0x2056c 0x102bc>                                              {[-4-]|[@@-10]}
                FreeString(VAR a : String)
            <POP 20572-20574 StackAdj>                       Δ+2                {[-4-]|[-2-]}
            <POP 20574-20575 StackAdj>                       Δ+2                {[-4-]}
            <Const 0x20575 0x2.2>                            Δ-2                {[-4-]|[#2]}
            <Const 0x20576 0x2.2>                            Δ-2                {[-4-]|[#2]|[#2]}
            <Const 0x20578 0x1.4>                            Δ-4                {[-4-]|[#2]|[#2]|[##1]}
            <Pointer.fp 0x2057c <LVAR -0x010 @ 1(r)>>        Δ-4                {[-4-]|[#2]|[#2]|[##1]|[@@-16]}
            <Pointer.fp 0x2057e <LVAR -0x006 @ 4(r)>>        Δ-4                {[-4-]|[#2]|[#2]|[##1]|[@@-16]|[@@-6]}
            <Call 0x20582 0x1038c>                                              {[-4-]|[#2]|[#2]|[##1]|[@@-16]|[@@-6]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20588-2058c StackAdj>                       Δ+16               {[-4-]}
        <POP 2058c-2058e Naked>                              Σ-4 Δ+4    ↓ ←0x204c6
            <POP 2058c-2058e StackAdj>                       Δ+4                {}
        <POP 2058e-20596 Epilogue>                           Σ0         

0x20596


@ 20596
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(rw)>
        <LVAR -0x010 @ 4(rw)>
    <POP 20596-20694 Body>                                              
        <POP 20596-205ac Prologue>                           Σ0         ↓
        <POP 205ac-205be RegCacheLoad>                       Σ0         ↓
        <POP 205be-2068c Naked>                              Σ0         ↓
            <Blob 0x205be [10] @>                            Δ-10               {[«10""»]}
            <POP 205ca-205cc StackAdj>                       Δ-4                {[«10""»]|[-4-]}
            <Lit 0x205cc 10>                                                    {[«10""»]|[$$LAST_UCODE]}
            <MI 205dc  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«10""»]}
            <POP 205de-205e0 StackAdj>                       Δ+10               {}
            <MI 205e0  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 205e4-205e6 StackAdj>                       Δ-30               {[-30-]}
            <MI 205e6  MOVEA.L A7,A1>                                           {[-30-]}
            <MI 205e8  MOVEA.L A0,A2>                                           {[-30-]}
            <BlockMove 30,A2,A1>                                                {[-30-]}
            <POP 205f2-205f4 StackAdj>                       Δ-4                {[-34-]}
            <Lit 0x205f4>                                                       {[-30-]|[$$…]}
                <Pointer.sp 0x205f4 4>                       Δ-4        
                <Const 0x205f8 0x1.2>                        Δ-2        
                <Const 0x205fa 0x1e.2>                       Δ-2        
                <Call 0x205fc 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20602-20604 StackAdj>                   Δ+8        
            <MI 20604  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[-30-]}
            <POP 20608-2060c StackAdj>                       Δ+26               {[-4-]}
            <MI 2060c  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <Const 0x2060e 0x1.2>                            Δ-2                {[4, '(A6-0x10)']|[#1]}
            <Const 0x20610 0x2.2>                            Δ-2                {[4, '(A6-0x10)']|[#1]|[#2]}
            <Const 0x20612 0x1.4>                            Δ-4                {[4, '(A6-0x10)']|[#1]|[#2]|[##1]}
            <Pointer.fp 0x20616 <LVAR -0x004 @>>             Δ-4                {[4, '(A6-0x10)']|[#1]|[#2]|[##1]|[@@-4]}
            <Pointer.fp 0x2061a <LVAR -0x008 @ 4(r)>>        Δ-4                {[4, '(A6-0x10)']|[#1]|[#2]|[##1]|[@@-4]|[@@-8]}
            <Call 0x2061c 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 20622-20624 StackAdj>                       Δ+16               {[4, '(A6-0x10)']}
            <MI 20624  MOVE.L  (A6-0x8),(A7)>                                   {[4, '(A6-0x8)']}
            <MI 20626  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x8)']|[#0]}
            <MI 20628  CLR.W   -(A7)>                        Δ-2                {[4, '(A6-0x8)']|[#0]|[#0]}
            <Const 0x2062a 0x40.2>                           Δ-2                {[4, '(A6-0x8)']|[#0]|[#0]|[#64]}
            <Const 0x2062e 0x2.2>                            Δ-2                {[4, '(A6-0x8)']|[#0]|[#0]|[#64]|[#2]}
            <MI 20630  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[4, '(A6-0x8)']|[#0]|[#0]|[#64]|[#2]|[4, '(A6-0xc)']}
            <Pointer.fp 0x20634 <LVAR -0x004 @>>             Δ-4                {[4, '(A6-0x8)']|[#0]|[#0]|[#64]|[#2]|[4, '(A6-0xc)']|[@@-4]}
            <Call 0x20638 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 2063e-20642 StackAdj>                       Δ+20               {}
            <MI 20642  MOVEA.L (A6-0x8),A1>                                     {}
            <MI 20644  MOVE.B  (A0+0x3a),(A1+0x3a)>                             {}
            <MI 2064a  MOVE.B  (A0+0x3b),(A1+0x3b)>                             {}
            <MI 20650  MOVE.B  (A0+0x3c),(A1+0x3c)>                             {}
            <MI 20656  MOVE.B  (A0+0x3d),(A1+0x3d)>                             {}
            <MI 2065c  MOVE.B  #0x01,(A1+0x4c)>                                 {}
            <MI 20660  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x20662 0x2.2>                            Δ-2                {[#0]|[#2]}
            <Const 0x20664 0x1.4>                            Δ-4                {[#0]|[#2]|[##1]}
            <Pointer.fp 0x20668 <LVAR -0x004 @>>             Δ-4                {[#0]|[#2]|[##1]|[@@-4]}
            <Pointer.fp 0x2066c <LVAR -0x008 @ 4(r)>>        Δ-4                {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
            <Call 0x2066e 0x1038c>                                              {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 20674-20676 StackAdj>                       Δ+16               {}
            <Pointer.fp 0x20676 <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x2067a 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 20680-20682 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x20682 <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x20684 0x102bc>                                              {[@@-16]}
                FreeString(VAR a : String)
            <POP 2068a-2068c StackAdj>                       Δ+4                {}
        <POP 2068c-20694 Epilogue>                           Σ0         

0x20694


@ 20694
        <LVAR  0x00c @ 4(r)>
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
    <POP 20694-20780 Body>                                   Δ+32       
        <POP 20694-206aa Prologue>                           Σ0         ↓
        <POP 206aa-206b2 RegCacheLoad>                       Σ0         ↓
        <POP 206b2-206ba Naked>                              Σ0 Δ-2     ↓
            <MI 206b2  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <MI 206b6  MOVE.B  (A6+0xa),D7>                                     {[2, '(A6+0x8)']}
        <POP 206ba-206c0 Naked>                              Σ-2        ↓ →0x2076a ←0x20710
            <MI 206ba  CMP.B   (A7),D7>                                         {[-2-]}
            <MI 206bc  BGT     0x2076a>                                         {[-2-]}
        <POP 206c0-206d6 Naked>                              Σ-2        →0x206e0 →0x206ea →0x206f4 →0x206fe →0x20708
            <MI 206c0  MOVE.B  D7,D0>                                           {[-2-]}
            <MI 206c2  EXTB.W  D0>                                              {[-2-]}
            <POP 0x206c4 LimitCheck 0x0 ≤ D0 ≤ 0x4>                             {[-2-]}
            <MI 206cc  ADD.W   D0,D0>                                           {[-2-]}
            <MI 206ce  SWITCH  D0.W>                                            {[-2-]}
        <POP 206e0-206ea Naked>                              Σ-2 Δ-8    →0x20710 ←0x206c0
            <Blob 0x206e0 [4] @>                             Δ-4                {[-2-]|[«4""»]}
            <Blob 0x206e4 [4] @>                             Δ-4                {[-2-]|[«4""»]|[«4""»]}
            <MI 206e8  BRA     0x20710>                                         {[-2-]|[«4""»]|[«4""»]}
        <POP 206ea-206f4 Naked>                              Σ-2 Δ-8    →0x20710 ←0x206c0
            <Blob 0x206ea [4] @>                             Δ-4                {[-2-]|[«4""»]}
            <Blob 0x206ee [4] @>                             Δ-4                {[-2-]|[«4""»]|[«4""»]}
            <MI 206f2  BRA     0x20710>                                         {[-2-]|[«4""»]|[«4""»]}
        <POP 206f4-206fe Naked>                              Σ-2 Δ-8    →0x20710 ←0x206c0
            <Blob 0x206f4 [4] @>                             Δ-4                {[-2-]|[«4""»]}
            <Blob 0x206f8 [4] @>                             Δ-4                {[-2-]|[«4""»]|[«4""»]}
            <MI 206fc  BRA     0x20710>                                         {[-2-]|[«4""»]|[«4""»]}
        <POP 206fe-20708 Naked>                              Σ-2 Δ-8    →0x20710 ←0x206c0
            <Blob 0x206fe [4] @>                             Δ-4                {[-2-]|[«4""»]}
            <Blob 0x20702 [4] @>                             Δ-4                {[-2-]|[«4""»]|[«4""»]}
            <MI 20706  BRA     0x20710>                                         {[-2-]|[«4""»]|[«4""»]}
        <POP 20708-20710 Naked>                              Σ-2 Δ-8    ↓ ←0x206c0
            <Blob 0x20708 [4] @>                             Δ-4                {[-2-]|[«4""»]}
            <Blob 0x2070c [4] @>                             Δ-4                {[-2-]|[«4""»]|[«4""»]}
        <POP 20710-2076a Naked>                              Σ-10 Δ+8   ↓ →0x206ba ←0x206e0 ←0x206ea ←0x206f4 ←0x206fe
            <POP 20710-20712 StackAdj>                       Δ-4                {[-14-]}
            <Lit 0x20712>                                                       {[-10-]|[$$…]}
                <Pointer.sp 0x20712 4>                       Δ-4        
                <Const 0x20716 0x1.2>                        Δ-2        
                <Const 0x20718 0x8.2>                        Δ-2        
                <Call 0x2071c 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 20722-20724 StackAdj>                   Δ+8        
            <MI 20724  MOVEA.L (A7)+,A4>                     Δ+4                {[-10-]}
            <POP 20726-20728 StackAdj>                       Δ+8                {[-2-]}
            <POP 20728-2072a StackAdj>                       Δ-8                {[-10-]}
            <MI 2072a  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-10-]|[4, '(A6+0xc)']}
            <Call 0x2072e 0x102cc>                                              {[-10-]|[4, '(A6+0xc)']}
                StringDup(a : String) : String
            <MI 20734  MOVE.L  A4,(A7)>                                         {[-10-]|[4, 'A4']}
            <Call 0x20736 0x102d0>                                              {[-10-]|[4, 'A4']}
                StringCat2(a, b : String) : String
            <POP 2073c-2073e StackAdj>                       Δ+8                {[-6-]}
            <MI 2073e  MOVEA.L (A7)+,A3>                     Δ+4                {[-2-]}
            <MI 20740  MOVE.L  A3,-(A7)>                     Δ-4                {[-2-]|[4, 'A3']}
            <MI 20742  MOVE.B  D7,D0>                                           {[-2-]|[4, 'A3']}
            <MI 20744  EXTB.W  D0>                                              {[-2-]|[4, 'A3']}
            <MI 20746  ASL.W   #0x2,D0>                                         {[-2-]|[4, 'A3']}
            <MI 20748  LEA.L   0x218e8,A0>                                      {[-2-]|[4, 'A3']}
            <MI 2074a  PEA.L   (A0+D0.W+#0x8)>               Δ-4                {[-2-]|[4, 'A3']|[4, '^(A0+D0.W+#0x8)']}
            <Call 0x2074e 0x10460>                                              {[-2-]|[4, 'A3']|[4, '^(A0+D0.W+#0x8)']}
                ExpLoad(a : String; b: Pointer)
            <POP 20754-20756 StackAdj>                       Δ+8                {[-2-]}
            <MI 20756  MOVE.B  D7,D0>                                           {[-2-]}
            <MI 20758  EXTB.W  D0>                                              {[-2-]}
            <MI 2075a  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <MI 2075c  LEA.L   0x218e8,A0>                                      {[-2-]|[2, 'D0']}
            <MI 2075e  MOVE.B  #0x01,(A0+D0.W+#0x1c)>                           {[-2-]|[2, 'D0']}
            <MI 20762  MOVE.W  (A7)+,D7>                     Δ+2                {[-2-]}
            <MI 20764  ADDQ.W  #0x1,D7>                                         {[-2-]}
            <MI 20766  BVC     0x206ba>                                         {[-2-]}
        <POP 2076a-20778 Naked>                              Σ-2 Δ+2    ↓ ←0x206ba
            <POP 2076a-2076c StackAdj>                       Δ+2                {}
            <Pointer.fp 0x2076c <LVAR  0x00c @ 4(r)>>        Δ-4                {[@@12]}
            <Call 0x20770 0x102bc>                                              {[@@12]}
                FreeString(VAR a : String)
            <POP 20776-20778 StackAdj>                       Δ+4                {}
        <POP 20778-20780 Epilogue>                           Σ0         

0x20780


@ 20780
        <LVAR  0x008 1(r)>
        <LVAR -0x004 @ 1(rw)>
        <LVAR -0x006 @ 1(r)>
        <LVAR -0x007 @>
    <POP 20780-20838 Body>                                              
        <POP 20780-20796 Prologue>                           Σ0         ↓
        <POP 20796-207a0 RegCacheLoad>                       Σ0         ↓
        <POP 207a0-207c6 Naked>                              Σ0         ↓ →0x207cc
            <MI 207a0  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 207a4  EXTB.W  D0>                                              {}
            <MI 207a6  LEA.L   0x20298,A0>                                      {}
            <MI 207aa  MOVE.B  (A0+D0.W),D6>                                    {}
            <MI 207ae  MOVEQ.L #0x01,D7>                                        {}
            <MI 207b0  MOVE.B  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <Pointer.fp 0x207b2 <LVAR -0x004 @ 1(rw)>>       Δ-4                {[2, 'D6']|[@@-4]}
            <Pointer.fp 0x207b4 <LVAR -0x007 @>>             Δ-4                {[2, 'D6']|[@@-4]|[@@-7]}
            <Pointer.fp 0x207b8 <LVAR -0x006 @ 1(r)>>        Δ-4                {[2, 'D6']|[@@-4]|[@@-7]|[@@-6]}
            <Call 0x207ba 0x10484>                                              {[2, 'D6']|[@@-4]|[@@-7]|[@@-6]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 207c0-207c2 StackAdj>                       Δ+14               {}
            <MI 207c2  TST.B   (A6-0x6)>                                        {}
            <MI 207c4  BNE     0x207cc>                                         {}
        <POP 207c6-207cc Naked>                              Σ0         →0x2080a
            <MI 207c6  MOVE.B  #0x04,(A6-0x4)>                                  {}
            <MI 207ca  BRA     0x2080a>                                         {}
        <POP 207cc-207d4 Naked>                              Σ0         ↓ →0x2080a ←0x207a0 ←0x207d8
            <MI 207cc  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 207ce  CMPI.B  #0x06,D0>                                        {}
            <MI 207d2  BNE     0x2080a>                                         {}
        <POP 207d4-207d8 Naked>                              Σ0         ↓ →0x2080a
            <MI 207d4  TST.W   D7>                                              {}
            <MI 207d6  BEQ     0x2080a>                                         {}
        <POP 207d8-2080a Naked>                              Σ0         →0x207cc
            <MI 207d8  CLR.L   D0>                                              {}
            <MI 207da  MOVE.W  D7,D0>                                           {}
            <MI 207dc  ADDQ.L  #0x1,D0>                                         {}
            <POP 0x207de LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 207e8  MOVE.W  D0,D7>                                           {}
            <Const 0x207ea 0x27.4>                           Δ-4                {[##39]}
            <Call 0x207ee 0x10224>                                              {[##39]}
                KC12_Sleep(dur: Long)
            <POP 207f4-207f6 StackAdj>                       Δ+2                {[-2-]}
            <MI 207f6  MOVE.B  D6,(A7)>                                         {[-2-]}
            <Pointer.fp 0x207f8 <LVAR -0x004 @ 1(rw)>>       Δ-4                {[-2-]|[@@-4]}
            <Pointer.fp 0x207fa <LVAR -0x007 @>>             Δ-4                {[-2-]|[@@-4]|[@@-7]}
            <Pointer.fp 0x207fe <LVAR -0x006 @ 1(r)>>        Δ-4                {[-2-]|[@@-4]|[@@-7]|[@@-6]}
            <Call 0x20800 0x10484>                                              {[-2-]|[@@-4]|[@@-7]|[@@-6]}
                DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
            <POP 20806-20808 StackAdj>                       Δ+14               {}
            <MI 20808  BRA     0x207cc>                                         {}
        <POP 2080a-20812 Naked>                              Σ0         ↓ →0x20830 ←0x207c6 ←0x207cc ←0x207d4
            <MI 2080a  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 2080c  CMPI.B  #0x01,D0>                                        {}
            <MI 20810  BEQ     0x20830>                                         {}
        <POP 20812-20830 Naked>                              Σ0         ↓
            <MI 20812  MOVE.B  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <MI 20814  MOVE.B  (A6+0x8),D1>                                     {[2, 'D6']}
            <MI 20818  EXTB.W  D1>                                              {[2, 'D6']}
            <MI 2081a  ASL.W   #0x2,D1>                                         {[2, 'D6']}
            <MI 2081c  LEA.L   0x218e8,A0>                                      {[2, 'D6']}
            <MI 20822  MOVE.L  (A0+D1.W+#0x8),-(A7)>         Δ-4                {[2, 'D6']|[4, '(A0+D1.W+#0x8)']}
            <MI 20826  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D6']|[4, '(A0+D1.W+#0x8)']|[2, 'D0']}
            <Call 0x20828 0x217ac>                                              {[2, 'D6']|[4, '(A0+D1.W+#0x8)']|[2, 'D0']}
                EXP_FAIL
            <POP 2082e-20830 StackAdj>                       Δ+8                {}
        <POP 20830-20838 Epilogue>                           Σ0         ←0x2080a

0x20838


@ 20838
        <LVAR  0x008 1(r)>
        <LVAR -0x006 4(rw)>
    <POP 20838-208d4 Body>                                              
        <POP 20838-2084e Prologue>                           Σ0         ↓
        <POP 2084e-20858 RegCacheLoad>                       Σ0         ↓
        <POP 20858-2088c Naked>                              Σ0 Δ-4     ↓ →0x208ca
            <MI 20858  MOVE.B  (A6+0x8),D0>                                     {}
            <MI 2085c  EXTB.W  D0>                                              {}
            <MI 2085e  MOVE.W  D0,D1>                                           {}
            <MI 20860  ASL.W   #0x2,D1>                                         {}
            <MI 20862  LEA.L   0x218e8,A0>                                      {}
            <MI 20864  LEA.L   0x20298,A1>                                      {}
            <MI 20868  MOVE.B  (A1+D0.W),-(A7)>              Δ-2                {[2, '(A1+D0.W)']}
            <MI 2086c  MOVE.L  (A0+D1.W+#0x8),-(A7)>         Δ-4                {[2, '(A1+D0.W)']|[4, '(A0+D1.W+#0x8)']}
            <Call 0x20870 0x1047e>                                              {[2, '(A1+D0.W)']|[4, '(A0+D1.W+#0x8)']}
                ExpXmit(adr : Byte; b : Pointer)
            <POP 20876-20878 StackAdj>                       Δ+6                {}
            <MI 20878  MOVEA.L (A0+D1.W+#0x8),A0>                               {}
            <MI 2087c  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 2087e  MOVE.L  (A0+0xf8),(A0+0xf4)>                             {[4, 'A0']}
            <MI 20884  LEA.L   0x218e8,A1>                                      {[4, 'A0']}
            <MI 20886  TST.B   (A1+D0.W+#0x1c)>                                 {[4, 'A0']}
            <MI 2088a  BEQ     0x208ca>                                         {[4, 'A0']}
        <POP 2088c-20890 Naked>                              Σ-4        ↓
            <MI 2088c  MOVE.L  (A0+0xf8),(A6-0x6)>                              {[-4-]}
        <POP 20890-2089c Naked>                              Σ-4        ↓ →0x208a0 ←0x2089c
            <MI 20890  MOVEA.L (A6-0x6),A0>                                     {[-4-]}
            <MI 20892  MOVEA.L (A0+0x2),A1>                                     {[-4-]}
            <MI 20896  CMPA.W  #0x1,A1>                                         {[-4-]}
            <MI 2089a  BEQ     0x208a0>                                         {[-4-]}
        <POP 2089c-208a0 Naked>                              Σ-4        →0x20890
            <MI 2089c  MOVE.L  A1,(A6-0x6)>                                     {[-4-]}
            <MI 2089e  BRA     0x20890>                                         {[-4-]}
        <POP 208a0-208ca Naked>                              Σ-4        ↓ ←0x20890
            <MI 208a0  MOVEA.L (A7),A1>                                         {[-4-]}
            <MI 208a2  CLR.L   D0>                                              {[-4-]}
            <MI 208a4  MOVE.B  (A0+0x1),D0>                                     {[-4-]}
            <MI 208a8  CLR.L   D1>                                              {[-4-]}
            <MI 208aa  MOVE.B  (A0),D1>                                         {[-4-]}
            <MI 208ac  LSL.B   #0x2,D1>                                         {[-4-]}
            <MI 208ae  LSR.B   #0x2,D1>                                         {[-4-]}
            <MI 208b0  ADD.W   D0,D1>                                           {[-4-]}
            <MI 208b2  SUBI.W  #0x0010,D1>                                      {[-4-]}
            <POP 0x208b6 LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {[-4-]}
            <MI 208ba  MOVE.B  D1,(A1+0x2)>                                     {[-4-]}
            <MI 208be  MOVE.B  (A6+0x8),D0>                                     {[-4-]}
            <MI 208c2  EXTB.W  D0>                                              {[-4-]}
            <MI 208c4  LEA.L   0x218e8,A0>                                      {[-4-]}
            <MI 208c6  CLR.B   (A0+D0.W+#0x1c)>                                 {[-4-]}
        <POP 208ca-208cc Naked>                              Σ-4 Δ+4    ↓ ←0x20858
            <POP 208ca-208cc StackAdj>                       Δ+4                {}
        <POP 208cc-208d4 Epilogue>                           Σ0         

0x208d4


@ 208d4
        <LVAR  0x00a 1(r)>
        <LVAR  0x008 1(r)>
    <POP 208d4-20924 Body>                                              
        <POP 208d4-208ea Prologue>                           Σ0         ↓
        <POP 208ea-208f2 Naked>                              Σ0 Δ-2     ↓
            <MI 208ea  MOVE.B  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <MI 208ee  MOVE.B  (A6+0xa),D7>                                     {[2, '(A6+0x8)']}
        <POP 208f2-208f6 Naked>                              Σ-2        ↓ →0x2091a ←0x208f6
            <MI 208f2  CMP.B   (A7),D7>                                         {[-2-]}
            <MI 208f4  BGT     0x2091a>                                         {[-2-]}
        <POP 208f6-2091a Naked>                              Σ-2        ↓ →0x208f2
            <MI 208f6  MOVE.B  D7,-(A7)>                     Δ-2                {[-2-]|[2, 'D7']}
            <Call 0x208f8 0x20780>                                              {[-2-]|[2, 'D7']}
            <POP 208fc-208fe StackAdj>                       Δ+2                {[-2-]}
            <MI 208fe  MOVE.B  D7,D0>                                           {[-2-]}
            <MI 20900  EXTB.W  D0>                                              {[-2-]}
            <MI 20902  ASL.W   #0x2,D0>                                         {[-2-]}
            <MI 20904  LEA.L   0x218e8,A0>                                      {[-2-]}
            <MI 2090a  PEA.L   (A0+D0.W+#0x8)>               Δ-4                {[-2-]|[4, '^(A0+D0.W+#0x8)']}
            <Call 0x2090e 0x10496>                                              {[-2-]|[4, '^(A0+D0.W+#0x8)']}
                ExpClose(exp : Pointer)
            <POP 20914-20916 StackAdj>                       Δ+4                {[-2-]}
            <MI 20916  ADDQ.B  #0x1,D7>                                         {[-2-]}
            <MI 20918  BVC     0x208f2>                                         {[-2-]}
        <POP 2091a-2091c Naked>                              Σ-2 Δ+2    ↓ ←0x208f2
            <POP 2091a-2091c StackAdj>                       Δ+2                {}
        <POP 2091c-20924 Epilogue>                           Σ0         

0x20924


@ 20924
Load_RegFile_Only()
        <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 20924-20b7a Body>                                   Δ-4        
        <POP 20924-2093a Prologue>                           Σ0         ↓
        <POP 2093a-20944 RegCacheLoad>                       Σ0         ↓
        <POP 20944-20996 Naked>                              Σ0         ↓
            <MI 20944  MOVE.L  #0x10,(A6-0x8)>                                  {}
            <MI 2094a  MOVE.L  #0x7,(A6-0x4)>                                   {}
            <MI 20952  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 20956  EXTW.L  D0>                                              {}
            <MI 20958  MOVE.L  D0,(A6-0xc16)>                                   {}
            <Call 0x2095c 0x21626>                                              {}
                exp_PREP_LOAD_REGISTER_FILE.TYP()
            <Call 0x20962 0x21672>                                              {}
                exp_PREP_LOAD_REGISTER_FILE.VAL()
            <Blob 0x20968 [18] @>                            Δ-18               {[«18""»]}
            <POP 20974-20976 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x20976 18>                                                    {[«18""»]|[$$LOAD_REGISTER_FILE]}
            <POP 20986-20988 StackAdj>                       Δ-2                {[«18""»]|[$$LOAD_REGISTER_FILE]|[-2-]}
            <MI 20988  CLR.B   (A7)>                                            {[«18""»]|[$$LOAD_REGISTER_FILE]|[-2-]}
            <Const 0x2098a 0x1.2>                            Δ-2                {[«18""»]|[$$LOAD_REGISTER_FILE]|[-2-]|[#1]}
            <Call 0x2098c 0x20694>                                              {[«18""»]|[$$LOAD_REGISTER_FILE]|[-2-]|[#1]}
            <POP 20990-20994 StackAdj>                       Δ+26               {}
            <MI 20994  MOVEQ.L #0x00,D0>                                        {}
        <POP 20996-2099e Naked>                              Σ0 Δ-4     ↓ →0x209be ←0x20b60
            <MI 20996  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 20998  BTST.L  #0x0,D0>                                         {[4, 'D0']}
            <MI 2099c  BEQ     0x209be>                                         {[4, 'D0']}
        <POP 2099e-209be Naked>                              Σ-4        ↓
            <Blob 0x2099e [2] @>                             Δ-2                {[-4-]|[«2""»]}
            <POP 209a2-209a4 StackAdj>                       Δ-4                {[-4-]|[«2""»]|[-4-]}
            <Lit 0x209a4 2>                                                     {[-4-]|[«2""»]|[$$. ]}
            <Call 0x209b6 0x103d8>                                              {[-4-]|[«2""»]|[$$. ]}
                WriteConsoleString(str : String)
            <POP 209bc-209be StackAdj>                       Δ+6                {[-4-]}
        <POP 209be-209c6 Naked>                              Σ-4 Δ-4    ↓ ←0x20996
            <MI 209be  MOVEQ.L #0x00,D5>                                        {[-4-]}
            <MI 209c0  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x4)']}
            <MI 209c4  MOVEQ.L #0x00,D1>                                        {[-4-]|[4, '(A6-0x4)']}
        <POP 209c6-209ca Naked>                              Σ-8        ↓ →0x209d0 ←0x20b4c
            <MI 209c6  CMP.L   (A7),D1>                                         {[-8-]}
            <MI 209c8  BLE     0x209d0>                                         {[-8-]}
        <POP 209ca-209d0 Naked>                              Σ-8 Δ-4    →0x20b52
            <POP 209ca-209cc StackAdj>                       Δ-4                {[-12-]}
            <MI 209cc  BRA     0x20b52>                                         {[-12-]}
        <POP 209d0-209da Naked>                              Σ-8 Δ-4    ↓ →0x20a1c ←0x209c6
            <MI 209d0  MOVE.L  D1,-(A7)>                     Δ-4                {[-8-]|[4, 'D1']}
            <MI 209d2  CMPI.L  #0x00000002,D1>                                  {[-8-]|[4, 'D1']}
            <MI 209d8  BGT     0x20a1c>                                         {[-8-]|[4, 'D1']}
        <POP 209da-20a1c Naked>                              Σ-12       ↓
            <MI 209da  LEA.L   (A6-0xc08),A0>                                   {[-12-]}
            <MI 209de  MOVE.L  A0,-(A7)>                     Δ-4                {[-12-]|[4, 'A0']}
            <MI 209e0  MOVE.L  (A7)+,D6>                     Δ+4                {[-12-]}
            <MI 209e2  MOVE.L  D1,D0>                                           {[-12-]}
            <MI 209e4  ASL.L   #0x8,D0>                                         {[-12-]}
            <MI 209e6  ASL.L   #0x2,D0>                                         {[-12-]}
            <MI 209e8  ADD.L   D0,D6>                                           {[-12-]}
            <MI 209ea  MOVE.L  (A6+0xa),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xa)']}
            <MI 209ee  MOVE.L  (A6-0xc16),D0>                                   {[-12-]|[4, '(A6+0xa)']}
            <POP 0x209f2 LimitCheck 0x0 ≤ D0 ≤ 0x4000>                          {[-12-]|[4, '(A6+0xa)']}
            <MI 209fc  MOVE.W  D0,-(A7)>                     Δ-2                {[-12-]|[4, '(A6+0xa)']|[2, 'D0']}
            <MI 209fe  CLR.W   -(A7)>                        Δ-2                {[-12-]|[4, '(A6+0xa)']|[2, 'D0']|[#0]}
            <Const 0x20a00 0x200.2>                          Δ-2                {[-12-]|[4, '(A6+0xa)']|[2, 'D0']|[#0]|[#512]}
            <Const 0x20a04 0x2.2>                            Δ-2                {[-12-]|[4, '(A6+0xa)']|[2, 'D0']|[#0]|[#512]|[#2]}
            <MI 20a08  MOVE.L  D6,-(A7)>                     Δ-4                {[-12-]|[4, '(A6+0xa)']|[2, 'D0']|[#0]|[#512]|[#2]|[4, 'D6']}
            <Pointer.fp 0x20a0a <LVAR -0xc0e @>>             Δ-4                {[-12-]|[4, '(A6+0xa)']|[2, 'D0']|[#0]|[#512]|[#2]|[4, 'D6']|[@@-3086]}
            <Call 0x20a0e 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 20a14-20a18 StackAdj>                       Δ+20               {[-12-]}
            <MI 20a18  ADDQ.L  #0x1,(A6-0xc16)>                                 {[-12-]}
        <POP 20a1c-20a22 Naked>                              Σ-12 Δ-4   ↓ ←0x209d0
            <MI 20a1c  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x8)']}
            <MI 20a1e  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 20a20  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 20a22-20a26 Naked>                              Σ-16       ↓ →0x20aa0 ←0x20a26
            <MI 20a22  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 20a24  BGT     0x20aa0>                                         {[-16-]}
        <POP 20a26-20aa0 Naked>                              Σ-16       ↓ →0x20a22
            <MI 20a26  MOVE.L  D5,D0>                                           {[-16-]}
            <MI 20a28  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x20a2a LimitCheck 0x0 ≤ D0 ≤ 0x7f>                            {[-16-]}
            <MI 20a34  MOVE.L  D0,D4>                                           {[-16-]}
            <MI 20a36  MOVEQ.L #0x18,D3>                                        {[-16-]}
            <Call 0x20a38 0x1028c>                                              {[-16-]}
                ?muls_d3_d4
            <MI 20a3e  LEA.L   (A6-0xc22),A0>                                   {[-16-]}
            <Blob 0x20a42 [8] (A0+D4.L+#0x1a)>               Δ-8                {[-16-]|[«8»]}
            <Blob 0x20a52 [4] 0x218f0>                       Δ-4                {[-16-]|[«8»]|[«4»]}
            <Pointer.sp 0x20a58 4>                           Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]}
            <Const 0x20a5c 0x0.4>                            Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]|[##0]}
            <Const 0x20a5e 0x7.4>                            Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x20a62 0x10466>                                              {[-16-]|[«8»]|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20a68-20a6c StackAdj>                       Δ+20               {[-16-]|[-4-]}
            <MI 20a6c  MOVE.B  (A0+D4.L+#0x22),(A7)>                            {[-16-]|[-4-]}
            <MI 20a70  MOVE.B  (A0+D4.L+#0x23),(A7+0x1)>                        {[-16-]|[-4-]}
            <MI 20a76  MOVE.B  (A0+D4.L+#0x24),(A7+0x2)>                        {[-16-]|[-4-]}
            <MI 20a7c  MOVE.B  (A0+D4.L+#0x25),(A7+0x3)>                        {[-16-]|[-4-]}
            <Blob 0x20a82 [4] 0x218f0>                       Δ-4                {[-16-]|[-4-]|[«4»]}
            <Pointer.sp 0x20a88 4>                           Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]}
            <Const 0x20a8c 0x0.4>                            Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]|[##0]}
            <Const 0x20a8e 0x3.4>                            Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]|[##0]|[##3]}
            <Call 0x20a92 0x10466>                                              {[-16-]|[-4-]|[«4»]|[^^4]|[##0]|[##3]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20a98-20a9c StackAdj>                       Δ+20               {[-16-]}
            <MI 20a9c  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 20a9e  BVC     0x20a22>                                         {[-16-]}
        <POP 20aa0-20ab6 Naked>                              Σ-16       ↓ ←0x20a22
            <POP 20aa0-20aa2 StackAdj>                       Δ+2                {[-14-]}
            <MI 20aa2  CLR.B   (A7)>                                            {[-14-]}
            <Call 0x20aa4 0x20780>                                              {[-14-]}
            <MI 20aa8  CLR.B   (A7)>                                            {[-14-]}
            <Call 0x20aaa 0x20838>                                              {[-14-]}
            <POP 20aae-20ab0 StackAdj>                       Δ+2                {[-12-]}
            <MI 20ab0  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x8)']}
            <MI 20ab2  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 20ab4  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 20ab6-20aba Naked>                              Σ-16       ↓ →0x20b34 ←0x20aba
            <MI 20ab6  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 20ab8  BGT     0x20b34>                                         {[-16-]}
        <POP 20aba-20b34 Naked>                              Σ-16       ↓ →0x20ab6
            <MI 20aba  MOVE.L  D5,D0>                                           {[-16-]}
            <MI 20abc  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x20abe LimitCheck 0x0 ≤ D0 ≤ 0x7f>                            {[-16-]}
            <MI 20ac8  MOVE.L  D0,D4>                                           {[-16-]}
            <MI 20aca  MOVEQ.L #0x18,D3>                                        {[-16-]}
            <Call 0x20acc 0x1028c>                                              {[-16-]}
                ?muls_d3_d4
            <MI 20ad2  LEA.L   (A6-0xc22),A0>                                   {[-16-]}
            <Blob 0x20ad6 [8] (A0+D4.L+#0x2a)>               Δ-8                {[-16-]|[«8»]}
            <Blob 0x20ae6 [4] 0x218f4>                       Δ-4                {[-16-]|[«8»]|[«4»]}
            <Pointer.sp 0x20aec 4>                           Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]}
            <Const 0x20af0 0x0.4>                            Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]|[##0]}
            <Const 0x20af2 0x7.4>                            Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x20af6 0x10466>                                              {[-16-]|[«8»]|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20afc-20b00 StackAdj>                       Δ+20               {[-16-]|[-4-]}
            <MI 20b00  MOVE.B  (A0+D4.L+#0x26),(A7)>                            {[-16-]|[-4-]}
            <MI 20b04  MOVE.B  (A0+D4.L+#0x27),(A7+0x1)>                        {[-16-]|[-4-]}
            <MI 20b0a  MOVE.B  (A0+D4.L+#0x28),(A7+0x2)>                        {[-16-]|[-4-]}
            <MI 20b10  MOVE.B  (A0+D4.L+#0x29),(A7+0x3)>                        {[-16-]|[-4-]}
            <Blob 0x20b16 [4] 0x218f4>                       Δ-4                {[-16-]|[-4-]|[«4»]}
            <Pointer.sp 0x20b1c 4>                           Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]}
            <Const 0x20b20 0x0.4>                            Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]|[##0]}
            <Const 0x20b22 0x3.4>                            Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]|[##0]|[##3]}
            <Call 0x20b26 0x10466>                                              {[-16-]|[-4-]|[«4»]|[^^4]|[##0]|[##3]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20b2c-20b30 StackAdj>                       Δ+20               {[-16-]}
            <MI 20b30  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 20b32  BVC     0x20ab6>                                         {[-16-]}
        <POP 20b34-20b4c Naked>                              Σ-16 Δ+4   ↓ →0x20b52 ←0x20ab6
            <POP 20b34-20b36 StackAdj>                       Δ+2                {[-14-]}
            <POP 20b36-20b37 StackAdj>                       Δ+2                {[-12-]}
            <Const 0x20b37 0x1.2>                            Δ-2                {[-12-]|[#1]}
            <Call 0x20b38 0x20780>                                              {[-12-]|[#1]}
            <POP 20b3c-20b3d StackAdj>                       Δ+2                {[-12-]}
            <Const 0x20b3d 0x1.2>                            Δ-2                {[-12-]|[#1]}
            <Call 0x20b3e 0x20838>                                              {[-12-]|[#1]}
            <POP 20b42-20b44 StackAdj>                       Δ+2                {[-12-]}
            <MI 20b44  ADD.L   (A6-0x8),D5>                                     {[-12-]}
            <MI 20b46  MOVE.L  (A7),D1>                                         {[-12-]}
            <MI 20b48  ADDQ.L  #0x1,D1>                                         {[-12-]}
            <MI 20b4a  BVS     0x20b52>                                         {[-12-]}
        <POP 20b4c-20b52 Naked>                              Σ-12 Δ+4   →0x209c6
            <POP 20b4c-20b4e StackAdj>                       Δ+4                {[-8-]}
            <MI 20b4e  BRA     0x209c6>                                         {[-8-]}
        <POP 20b52-20b60 Naked>                              Σ-12 Δ+8   ↓ →0x20b66 ←0x209ca ←0x20b34
            <POP 20b52-20b54 StackAdj>                       Δ+8                {[-4-]}
            <MI 20b54  MOVE.L  (A7),D0>                                         {[-4-]}
            <MI 20b56  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 20b58  CMPI.L  #0x00000007,D0>                                  {[-4-]}
            <MI 20b5e  BGT     0x20b66>                                         {[-4-]}
        <POP 20b60-20b66 Naked>                              Σ-4 Δ+4    →0x20996
            <POP 20b60-20b62 StackAdj>                       Δ+4                {}
            <MI 20b62  BRA     0x20996>                                         {}
        <POP 20b66-20b72 Naked>                              Σ-4 Δ+4    ↓ ←0x20b52
            <POP 20b66-20b68 StackAdj>                       Δ+2                {[-2-]}
            <MI 20b68  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x20b6a 0x1.2>                            Δ-2                {[-2-]|[#1]}
            <Call 0x20b6c 0x208d4>                                              {[-2-]|[#1]}
            <POP 20b70-20b72 StackAdj>                       Δ+4                {}
        <POP 20b72-20b7a Epilogue>                           Σ0         

0x20b7a


@ 20b7a
Load_RegFile_Dispatch()
        <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 20b7a-2102a Body>                                   Δ-4        
        <POP 20b7a-20b90 Prologue>                           Σ0         ↓
        <POP 20b90-20b9a RegCacheLoad>                       Σ0         ↓
        <POP 20b9a-20c3a Naked>                              Σ0         ↓
            <MI 20b9a  MOVE.L  #0x10,(A6-0xe)>                                  {}
            <MI 20ba2  MOVE.L  #0x10,(A6-0xa)>                                  {}
            <MI 20ba8  MOVE.L  #0x8,(A6-0x6)>                                   {}
            <Call 0x20bb0 0x21626>                                              {}
                exp_PREP_LOAD_REGISTER_FILE.TYP()
            <Call 0x20bb6 0x21672>                                              {}
                exp_PREP_LOAD_REGISTER_FILE.VAL()
            <Call 0x20bbc 0x215e0>                                              {}
                exp_PREP_LOAD_DISPATCH_RAMS.SEQ()
            <Blob 0x20bc2 [18] @>                            Δ-18               {[«18""»]}
            <POP 20bce-20bd0 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x20bd0 18>                                                    {[«18""»]|[$$LOAD_REGISTER_FILE]}
            <POP 20be0-20be2 StackAdj>                       Δ-2                {[«18""»]|[$$LOAD_REGISTER_FILE]|[-2-]}
            <MI 20be2  CLR.B   (A7)>                                            {[«18""»]|[$$LOAD_REGISTER_FILE]|[-2-]}
            <Const 0x20be4 0x1.2>                            Δ-2                {[«18""»]|[$$LOAD_REGISTER_FILE]|[-2-]|[#1]}
            <Call 0x20be6 0x20694>                                              {[«18""»]|[$$LOAD_REGISTER_FILE]|[-2-]|[#1]}
            <POP 20bea-20bee StackAdj>                       Δ+26               {}
            <Blob 0x20bee [18] @>                            Δ-18               {[«18""»]}
            <POP 20bfa-20bfc StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x20bfc 18>                                                    {[«18""»]|[$$LOAD_DISPATCH_RAMS]}
            <POP 20c0c-20c0e StackAdj>                       Δ-2                {[«18""»]|[$$LOAD_DISPATCH_RAMS]|[-2-]}
            <POP 20c0e-20c0f StackAdj>                       Δ+2                {[«18""»]|[$$LOAD_DISPATCH_RAMS]}
            <Const 0x20c0f 0x3.2>                            Δ-2                {[«18""»]|[$$LOAD_DISPATCH_RAMS]|[#3]}
            <Const 0x20c12 0x3.2>                            Δ-2                {[«18""»]|[$$LOAD_DISPATCH_RAMS]|[#3]|[#3]}
            <Call 0x20c16 0x20694>                                              {[«18""»]|[$$LOAD_DISPATCH_RAMS]|[#3]|[#3]}
            <POP 20c1a-20c1e StackAdj>                       Δ+26               {}
            <MI 20c1e  MOVE.B  #0x01,(A6-0x141c)>                               {}
            <MI 20c22  MOVEQ.L #0x00,D6>                                        {}
            <MI 20c24  MOVE.W  (A6+0xa),D0>                                     {}
            <MI 20c28  EXTW.L  D0>                                              {}
            <MI 20c2a  MOVE.L  D0,(A6-0x142c)>                                  {}
            <MI 20c2e  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 20c32  EXTW.L  D0>                                              {}
            <MI 20c34  MOVE.L  D0,(A6-0x1428)>                                  {}
            <MI 20c38  MOVEQ.L #0x00,D0>                                        {}
        <POP 20c3a-20c42 Naked>                              Σ0 Δ-4     ↓ →0x20c62 ←0x21002
            <MI 20c3a  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'D0']}
            <MI 20c3c  BTST.L  #0x0,D0>                                         {[4, 'D0']}
            <MI 20c40  BEQ     0x20c62>                                         {[4, 'D0']}
        <POP 20c42-20c62 Naked>                              Σ-4        ↓
            <Blob 0x20c42 [2] @>                             Δ-2                {[-4-]|[«2""»]}
            <POP 20c46-20c48 StackAdj>                       Δ-4                {[-4-]|[«2""»]|[-4-]}
            <Lit 0x20c48 2>                                                     {[-4-]|[«2""»]|[$$. ]}
            <Call 0x20c5a 0x103d8>                                              {[-4-]|[«2""»]|[$$. ]}
                WriteConsoleString(str : String)
            <POP 20c60-20c62 StackAdj>                       Δ+6                {[-4-]}
        <POP 20c62-20c6a Naked>                              Σ-4        ↓ →0x20c70 ←0x20c3a
            <MI 20c62  CMPI.L  #0x00000004,D0>                                  {[-4-]}
            <MI 20c68  BNE     0x20c70>                                         {[-4-]}
        <POP 20c6a-20c70 Naked>                              Σ-4        ↓
            <MI 20c6a  CLR.B   (A6-0x141c)>                                     {[-4-]}
            <MI 20c6e  MOVEQ.L #0x00,D6>                                        {[-4-]}
        <POP 20c70-20c7e Naked>                              Σ-4 Δ-4    ↓ ←0x20c62
            <MI 20c70  CLR.L   (A6-0x1424)>                                     {[-4-]}
            <MI 20c74  CLR.L   (A6-0x1420)>                                     {[-4-]}
            <MI 20c76  MOVE.L  (A6-0x6),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x6)']}
            <MI 20c7a  SUBQ.L  #0x1,(A7)>                                       {[-8-]}
            <MI 20c7c  MOVEQ.L #0x00,D1>                                        {[-8-]}
        <POP 20c7e-20c82 Naked>                              Σ-8        ↓ →0x20c88 ←0x20fee
            <MI 20c7e  CMP.L   (A7),D1>                                         {[-8-]}
            <MI 20c80  BLE     0x20c88>                                         {[-8-]}
        <POP 20c82-20c88 Naked>                              Σ-8 Δ-4    →0x20ff4
            <POP 20c82-20c84 StackAdj>                       Δ-4                {[-12-]}
            <MI 20c84  BRA     0x20ff4>                                         {[-12-]}
        <POP 20c88-20c92 Naked>                              Σ-8 Δ-4    ↓ →0x20cd4 ←0x20c7e
            <MI 20c88  MOVE.L  D1,-(A7)>                     Δ-4                {[-8-]|[4, 'D1']}
            <MI 20c8a  CMPI.L  #0x00000002,D1>                                  {[-8-]|[4, 'D1']}
            <MI 20c90  BGT     0x20cd4>                                         {[-8-]|[4, 'D1']}
        <POP 20c92-20cd4 Naked>                              Σ-12       ↓
            <MI 20c92  LEA.L   (A6-0x140e),A0>                                  {[-12-]}
            <MI 20c96  MOVE.L  A0,-(A7)>                     Δ-4                {[-12-]|[4, 'A0']}
            <MI 20c98  MOVE.L  (A7)+,D5>                     Δ+4                {[-12-]}
            <MI 20c9a  MOVE.L  D1,D0>                                           {[-12-]}
            <MI 20c9c  ASL.L   #0x8,D0>                                         {[-12-]}
            <MI 20c9e  ASL.L   #0x2,D0>                                         {[-12-]}
            <MI 20ca0  ADD.L   D0,D5>                                           {[-12-]}
            <MI 20ca2  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <MI 20ca6  MOVE.L  (A6-0x142c),D0>                                  {[-12-]|[4, '(A6+0xc)']}
            <POP 0x20caa LimitCheck 0x0 ≤ D0 ≤ 0x4000>                          {[-12-]|[4, '(A6+0xc)']}
            <MI 20cb4  MOVE.W  D0,-(A7)>                     Δ-2                {[-12-]|[4, '(A6+0xc)']|[2, 'D0']}
            <MI 20cb6  CLR.W   -(A7)>                        Δ-2                {[-12-]|[4, '(A6+0xc)']|[2, 'D0']|[#0]}
            <Const 0x20cb8 0x200.2>                          Δ-2                {[-12-]|[4, '(A6+0xc)']|[2, 'D0']|[#0]|[#512]}
            <Const 0x20cbc 0x2.2>                            Δ-2                {[-12-]|[4, '(A6+0xc)']|[2, 'D0']|[#0]|[#512]|[#2]}
            <MI 20cc0  MOVE.L  D5,-(A7)>                     Δ-4                {[-12-]|[4, '(A6+0xc)']|[2, 'D0']|[#0]|[#512]|[#2]|[4, 'D5']}
            <Pointer.fp 0x20cc2 <LVAR -0x1414 @>>            Δ-4                {[-12-]|[4, '(A6+0xc)']|[2, 'D0']|[#0]|[#512]|[#2]|[4, 'D5']|[@@-5140]}
            <Call 0x20cc6 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 20ccc-20cd0 StackAdj>                       Δ+20               {[-12-]}
            <MI 20cd0  ADDQ.L  #0x1,(A6-0x142c)>                                {[-12-]}
        <POP 20cd4-20cdc Naked>                              Σ-12 Δ-4   ↓ ←0x20c88
            <MI 20cd4  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0xe)']}
            <MI 20cd8  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 20cda  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 20cdc-20ce2 Naked>                              Σ-16       ↓ →0x20d64 ←0x20ce2
            <MI 20cdc  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 20cde  BGT     0x20d64>                                         {[-16-]}
        <POP 20ce2-20d64 Naked>                              Σ-16       ↓ →0x20cdc
            <MI 20ce2  MOVE.L  (A6-0x1424),D0>                                  {[-16-]}
            <MI 20ce6  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x20ce8 LimitCheck 0x0 ≤ D0 ≤ 0x7f>                            {[-16-]}
            <MI 20cf2  MOVE.L  D0,D4>                                           {[-16-]}
            <MI 20cf4  MOVEQ.L #0x18,D3>                                        {[-16-]}
            <Call 0x20cf6 0x1028c>                                              {[-16-]}
                ?muls_d3_d4
            <MI 20cfc  LEA.L   (A6-0x1438),A0>                                  {[-16-]}
            <Blob 0x20d00 [8] (A0+D4.L+#0x2a)>               Δ-8                {[-16-]|[«8»]}
            <Blob 0x20d10 [4] 0x218f0>                       Δ-4                {[-16-]|[«8»]|[«4»]}
            <Pointer.sp 0x20d16 4>                           Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]}
            <Const 0x20d1a 0x0.4>                            Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]|[##0]}
            <Const 0x20d1e 0x7.4>                            Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x20d22 0x10466>                                              {[-16-]|[«8»]|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20d28-20d2c StackAdj>                       Δ+20               {[-16-]|[-4-]}
            <MI 20d2c  MOVE.B  (A0+D4.L+#0x32),(A7)>                            {[-16-]|[-4-]}
            <MI 20d30  MOVE.B  (A0+D4.L+#0x33),(A7+0x1)>                        {[-16-]|[-4-]}
            <MI 20d36  MOVE.B  (A0+D4.L+#0x34),(A7+0x2)>                        {[-16-]|[-4-]}
            <MI 20d3c  MOVE.B  (A0+D4.L+#0x35),(A7+0x3)>                        {[-16-]|[-4-]}
            <Blob 0x20d42 [4] 0x218f0>                       Δ-4                {[-16-]|[-4-]|[«4»]}
            <Pointer.sp 0x20d48 4>                           Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]}
            <Const 0x20d4c 0x0.4>                            Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]|[##0]}
            <Const 0x20d50 0x3.4>                            Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]|[##0]|[##3]}
            <Call 0x20d54 0x10466>                                              {[-16-]|[-4-]|[«4»]|[^^4]|[##0]|[##3]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20d5a-20d5e StackAdj>                       Δ+20               {[-16-]}
            <MI 20d5e  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 20d60  BVC     0x20cdc>                                         {[-16-]}
        <POP 20d64-20d74 Naked>                              Σ-16 Δ+4   ↓ →0x20db6 ←0x20cdc
            <POP 20d64-20d66 StackAdj>                       Δ+2                {[-14-]}
            <MI 20d66  CLR.B   (A7)>                                            {[-14-]}
            <Call 0x20d68 0x20838>                                              {[-14-]}
            <POP 20d6c-20d6e StackAdj>                       Δ+2                {[-12-]}
            <MI 20d6e  MOVE.L  (A7),D0>                                         {[-12-]}
            <MI 20d70  CMP.L   #0x01,D0>                                        {[-12-]}
            <MI 20d72  BGT     0x20db6>                                         {[-12-]}
        <POP 20d74-20db6 Naked>                              Σ-12       ↓
            <MI 20d74  LEA.L   (A6-0x80e),A0>                                   {[-12-]}
            <MI 20d78  MOVE.L  A0,-(A7)>                     Δ-4                {[-12-]|[4, 'A0']}
            <MI 20d7a  MOVE.L  (A7)+,D5>                     Δ+4                {[-12-]}
            <MI 20d7c  MOVE.L  D0,D1>                                           {[-12-]}
            <MI 20d7e  ASL.L   #0x8,D1>                                         {[-12-]}
            <MI 20d80  ASL.L   #0x2,D1>                                         {[-12-]}
            <MI 20d82  ADD.L   D1,D5>                                           {[-12-]}
            <MI 20d84  MOVE.L  (A6+0xc),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0xc)']}
            <MI 20d88  MOVE.L  (A6-0x1428),D1>                                  {[-12-]|[4, '(A6+0xc)']}
            <POP 0x20d8c LimitCheck 0x0 ≤ D1 ≤ 0x4000>                          {[-12-]|[4, '(A6+0xc)']}
            <MI 20d96  MOVE.W  D1,-(A7)>                     Δ-2                {[-12-]|[4, '(A6+0xc)']|[2, 'D1']}
            <MI 20d98  CLR.W   -(A7)>                        Δ-2                {[-12-]|[4, '(A6+0xc)']|[2, 'D1']|[#0]}
            <Const 0x20d9a 0x200.2>                          Δ-2                {[-12-]|[4, '(A6+0xc)']|[2, 'D1']|[#0]|[#512]}
            <Const 0x20d9e 0x2.2>                            Δ-2                {[-12-]|[4, '(A6+0xc)']|[2, 'D1']|[#0]|[#512]|[#2]}
            <MI 20da2  MOVE.L  D5,-(A7)>                     Δ-4                {[-12-]|[4, '(A6+0xc)']|[2, 'D1']|[#0]|[#512]|[#2]|[4, 'D5']}
            <Pointer.fp 0x20da4 <LVAR -0x1414 @>>            Δ-4                {[-12-]|[4, '(A6+0xc)']|[2, 'D1']|[#0]|[#512]|[#2]|[4, 'D5']|[@@-5140]}
            <Call 0x20da8 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 20dae-20db2 StackAdj>                       Δ+20               {[-12-]}
            <MI 20db2  ADDQ.L  #0x1,(A6-0x1428)>                                {[-12-]}
        <POP 20db6-20e16 Naked>                              Σ-12 Δ-4   ↓ ←0x20d64
            <MI 20db6  MOVE.L  D6,D1>                                           {[-12-]}
            <MI 20db8  LSR.L   #0x8,D1>                                         {[-12-]}
            <POP 0x20dba LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {[-12-]}
            <MI 20dc4  MOVE.B  D1,(A6-0x1416)>                                  {[-12-]}
            <MI 20dc8  MOVE.L  D6,D1>                                           {[-12-]}
            <MI 20dca  ANDI.L  #0x000000ff,D1>                                  {[-12-]}
            <POP 0x20dd0 LimitCheck 0x0 ≤ D1 ≤ 0xff>                            {[-12-]}
            <MI 20dda  MOVE.B  D1,(A6-0x1415)>                                  {[-12-]}
            <Blob 0x20dde [4] 0x218fc>                       Δ-4                {[-12-]|[«4»]}
            <MI 20de4  MOVE.B  (A6-0x141c),-(A7)>            Δ-2                {[-12-]|[«4»]|[2, '(A6-0x141c)']}
            <Call 0x20de8 0x1046c>                                              {[-12-]|[«4»]|[2, '(A6-0x141c)']}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 20dee-20df0 StackAdj>                       Δ+4                {[-12-]|[-2-]}
            <MI 20df0  MOVE.W  (A6-0x1416),(A7)>                                {[-12-]|[2, '(A6-0x1416)']}
            <Blob 0x20df4 [4] 0x218fc>                       Δ-4                {[-12-]|[2, '(A6-0x1416)']|[«4»]}
            <Pointer.sp 0x20dfa 4>                           Δ-4                {[-12-]|[2, '(A6-0x1416)']|[«4»]|[^^4]}
            <Const 0x20dfe 0x0.4>                            Δ-4                {[-12-]|[2, '(A6-0x1416)']|[«4»]|[^^4]|[##0]}
            <Const 0x20e02 0x1.4>                            Δ-4                {[-12-]|[2, '(A6-0x1416)']|[«4»]|[^^4]|[##0]|[##1]}
            <Call 0x20e06 0x10466>                                              {[-12-]|[2, '(A6-0x1416)']|[«4»]|[^^4]|[##0]|[##1]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20e0c-20e10 StackAdj>                       Δ+14               {[-12-]|[2, '(A6-0x1416)']|[-2-]}
            <MI 20e10  MOVE.L  (A6-0xa),(A7)>                                   {[-12-]|[4, '(A6-0xa)']}
            <MI 20e12  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 20e14  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 20e16-20e1a Naked>                              Σ-16       ↓ →0x20e5a ←0x20e1a
            <MI 20e16  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 20e18  BGT     0x20e5a>                                         {[-16-]}
        <POP 20e1a-20e5a Naked>                              Σ-16       ↓ →0x20e16
            <MI 20e1a  MOVE.L  (A6-0x1420),D0>                                  {[-16-]}
            <MI 20e1c  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x20e1e LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[-16-]}
            <MI 20e28  ASL.L   #0x3,D0>                                         {[-16-]}
            <MI 20e2a  LEA.L   (A6-0x1438),A0>                                  {[-16-]}
            <MI 20e2e  LEA.L   (A0+D0.L),A0>                                    {[-16-]}
            <MI 20e32  MOVE.L  (A0+0xc2e),-(A7)>             Δ-4                {[-16-]|[4, '(A0+0xc2e)']}
            <MI 20e36  MOVE.L  (A0+0xc2a),-(A7)>             Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']}
            <Blob 0x20e3a [4] 0x218fc>                       Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]}
            <Pointer.sp 0x20e40 4>                           Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]|[^^4]}
            <Const 0x20e44 0x0.4>                            Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]|[^^4]|[##0]}
            <Const 0x20e48 0x7.4>                            Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x20e4c 0x10466>                                              {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20e52-20e56 StackAdj>                       Δ+24               {[-16-]}
            <MI 20e56  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 20e58  BVC     0x20e16>                                         {[-16-]}
        <POP 20e5a-20e72 Naked>                              Σ-16 Δ+4   ↓ →0x20e76 ←0x20e16
            <POP 20e5a-20e5c StackAdj>                       Δ+2                {[-14-]}
            <POP 20e5c-20e5d StackAdj>                       Δ+2                {[-12-]}
            <Const 0x20e5d 0x3.2>                            Δ-2                {[-12-]|[#3]}
            <Call 0x20e60 0x20838>                                              {[-12-]|[#3]}
            <POP 20e64-20e66 StackAdj>                       Δ+2                {[-12-]}
            <MI 20e66  MOVE.L  (A6-0x1420),D0>                                  {[-12-]}
            <MI 20e68  ADD.L   (A6-0xa),D0>                                     {[-12-]}
            <MI 20e6a  MOVE.L  D0,(A6-0x1420)>                                  {[-12-]}
            <MI 20e6c  TST.B   (A6-0x141c)>                                     {[-12-]}
            <MI 20e70  BEQ     0x20e76>                                         {[-12-]}
        <POP 20e72-20e76 Naked>                              Σ-12       →0x20e7c
            <MI 20e72  ADD.L   (A6-0xa),D6>                                     {[-12-]}
            <MI 20e74  BRA     0x20e7c>                                         {[-12-]}
        <POP 20e76-20e7c Naked>                              Σ-12       ↓ ←0x20e5a
            <MI 20e76  MOVE.L  (A6-0xa),D0>                                     {[-12-]}
            <MI 20e78  ASL.L   #0x6,D0>                                         {[-12-]}
            <MI 20e7a  ADD.L   D0,D6>                                           {[-12-]}
        <POP 20e7c-20e84 Naked>                              Σ-12 Δ-4   ↓ ←0x20e72
            <MI 20e7c  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0xe)']}
            <MI 20e80  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 20e82  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 20e84-20e8a Naked>                              Σ-16       ↓ →0x20f0c ←0x20e8a
            <MI 20e84  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 20e86  BGT     0x20f0c>                                         {[-16-]}
        <POP 20e8a-20f0c Naked>                              Σ-16       ↓ →0x20e84
            <MI 20e8a  MOVE.L  (A6-0x1424),D0>                                  {[-16-]}
            <MI 20e8e  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x20e90 LimitCheck 0x0 ≤ D0 ≤ 0x7f>                            {[-16-]}
            <MI 20e9a  MOVE.L  D0,D4>                                           {[-16-]}
            <MI 20e9c  MOVEQ.L #0x18,D3>                                        {[-16-]}
            <Call 0x20e9e 0x1028c>                                              {[-16-]}
                ?muls_d3_d4
            <MI 20ea4  LEA.L   (A6-0x1438),A0>                                  {[-16-]}
            <Blob 0x20ea8 [8] (A0+D4.L+#0x3a)>               Δ-8                {[-16-]|[«8»]}
            <Blob 0x20eb8 [4] 0x218f4>                       Δ-4                {[-16-]|[«8»]|[«4»]}
            <Pointer.sp 0x20ebe 4>                           Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]}
            <Const 0x20ec2 0x0.4>                            Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]|[##0]}
            <Const 0x20ec6 0x7.4>                            Δ-4                {[-16-]|[«8»]|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x20eca 0x10466>                                              {[-16-]|[«8»]|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20ed0-20ed4 StackAdj>                       Δ+20               {[-16-]|[-4-]}
            <MI 20ed4  MOVE.B  (A0+D4.L+#0x36),(A7)>                            {[-16-]|[-4-]}
            <MI 20ed8  MOVE.B  (A0+D4.L+#0x37),(A7+0x1)>                        {[-16-]|[-4-]}
            <MI 20ede  MOVE.B  (A0+D4.L+#0x38),(A7+0x2)>                        {[-16-]|[-4-]}
            <MI 20ee4  MOVE.B  (A0+D4.L+#0x39),(A7+0x3)>                        {[-16-]|[-4-]}
            <Blob 0x20eea [4] 0x218f4>                       Δ-4                {[-16-]|[-4-]|[«4»]}
            <Pointer.sp 0x20ef0 4>                           Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]}
            <Const 0x20ef4 0x0.4>                            Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]|[##0]}
            <Const 0x20ef8 0x3.4>                            Δ-4                {[-16-]|[-4-]|[«4»]|[^^4]|[##0]|[##3]}
            <Call 0x20efc 0x10466>                                              {[-16-]|[-4-]|[«4»]|[^^4]|[##0]|[##3]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20f02-20f06 StackAdj>                       Δ+20               {[-16-]}
            <MI 20f06  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 20f08  BVC     0x20e84>                                         {[-16-]}
        <POP 20f0c-20f82 Naked>                              Σ-16       ↓ ←0x20e84
            <POP 20f0c-20f0e StackAdj>                       Δ+2                {[-14-]}
            <POP 20f0e-20f0f StackAdj>                       Δ+2                {[-12-]}
            <Const 0x20f0f 0x1.2>                            Δ-2                {[-12-]|[#1]}
            <Call 0x20f10 0x20838>                                              {[-12-]|[#1]}
            <POP 20f14-20f16 StackAdj>                       Δ+2                {[-12-]}
            <MI 20f16  MOVE.L  (A6-0x1424),D0>                                  {[-12-]}
            <MI 20f1a  ADD.L   (A6-0xe),D0>                                     {[-12-]}
            <MI 20f1e  MOVE.L  D0,(A6-0x1424)>                                  {[-12-]}
            <MI 20f22  MOVE.L  D6,D0>                                           {[-12-]}
            <MI 20f24  LSR.L   #0x8,D0>                                         {[-12-]}
            <POP 0x20f26 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[-12-]}
            <MI 20f30  MOVE.B  D0,(A6-0x1416)>                                  {[-12-]}
            <MI 20f34  MOVE.L  D6,D0>                                           {[-12-]}
            <MI 20f36  ANDI.L  #0x000000ff,D0>                                  {[-12-]}
            <POP 0x20f3c LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[-12-]}
            <MI 20f46  MOVE.B  D0,(A6-0x1415)>                                  {[-12-]}
            <Blob 0x20f4a [4] 0x218fc>                       Δ-4                {[-12-]|[«4»]}
            <MI 20f50  MOVE.B  (A6-0x141c),-(A7)>            Δ-2                {[-12-]|[«4»]|[2, '(A6-0x141c)']}
            <Call 0x20f54 0x1046c>                                              {[-12-]|[«4»]|[2, '(A6-0x141c)']}
                ExpInputFlag(exp : Pointer; val : Word)
            <POP 20f5a-20f5c StackAdj>                       Δ+4                {[-12-]|[-2-]}
            <MI 20f5c  MOVE.W  (A6-0x1416),(A7)>                                {[-12-]|[2, '(A6-0x1416)']}
            <Blob 0x20f60 [4] 0x218fc>                       Δ-4                {[-12-]|[2, '(A6-0x1416)']|[«4»]}
            <Pointer.sp 0x20f66 4>                           Δ-4                {[-12-]|[2, '(A6-0x1416)']|[«4»]|[^^4]}
            <Const 0x20f6a 0x0.4>                            Δ-4                {[-12-]|[2, '(A6-0x1416)']|[«4»]|[^^4]|[##0]}
            <Const 0x20f6e 0x1.4>                            Δ-4                {[-12-]|[2, '(A6-0x1416)']|[«4»]|[^^4]|[##0]|[##1]}
            <Call 0x20f72 0x10466>                                              {[-12-]|[2, '(A6-0x1416)']|[«4»]|[^^4]|[##0]|[##1]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20f78-20f7c StackAdj>                       Δ+14               {[-12-]|[2, '(A6-0x1416)']|[-2-]}
            <MI 20f7c  MOVE.L  (A6-0xa),(A7)>                                   {[-12-]|[4, '(A6-0xa)']}
            <MI 20f7e  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 20f80  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 20f82-20f86 Naked>                              Σ-16       ↓ →0x20fc6 ←0x20f86
            <MI 20f82  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 20f84  BGT     0x20fc6>                                         {[-16-]}
        <POP 20f86-20fc6 Naked>                              Σ-16       ↓ →0x20f82
            <MI 20f86  MOVE.L  (A6-0x1420),D0>                                  {[-16-]}
            <MI 20f88  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x20f8a LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[-16-]}
            <MI 20f94  ASL.L   #0x3,D0>                                         {[-16-]}
            <MI 20f96  LEA.L   (A6-0x1438),A0>                                  {[-16-]}
            <MI 20f9a  LEA.L   (A0+D0.L),A0>                                    {[-16-]}
            <MI 20f9e  MOVE.L  (A0+0xc2e),-(A7)>             Δ-4                {[-16-]|[4, '(A0+0xc2e)']}
            <MI 20fa2  MOVE.L  (A0+0xc2a),-(A7)>             Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']}
            <Blob 0x20fa6 [4] 0x218fc>                       Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]}
            <Pointer.sp 0x20fac 4>                           Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]|[^^4]}
            <Const 0x20fb0 0x0.4>                            Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]|[^^4]|[##0]}
            <Const 0x20fb4 0x7.4>                            Δ-4                {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x20fb8 0x10466>                                              {[-16-]|[4, '(A0+0xc2e)']|[4, '(A0+0xc2a)']|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 20fbe-20fc2 StackAdj>                       Δ+24               {[-16-]}
            <MI 20fc2  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 20fc4  BVC     0x20f82>                                         {[-16-]}
        <POP 20fc6-20fde Naked>                              Σ-16 Δ+4   ↓ →0x20fe2 ←0x20f82
            <POP 20fc6-20fc8 StackAdj>                       Δ+2                {[-14-]}
            <POP 20fc8-20fc9 StackAdj>                       Δ+2                {[-12-]}
            <Const 0x20fc9 0x3.2>                            Δ-2                {[-12-]|[#3]}
            <Call 0x20fcc 0x20838>                                              {[-12-]|[#3]}
            <POP 20fd0-20fd2 StackAdj>                       Δ+2                {[-12-]}
            <MI 20fd2  MOVE.L  (A6-0x1420),D0>                                  {[-12-]}
            <MI 20fd4  ADD.L   (A6-0xa),D0>                                     {[-12-]}
            <MI 20fd6  MOVE.L  D0,(A6-0x1420)>                                  {[-12-]}
            <MI 20fd8  TST.B   (A6-0x141c)>                                     {[-12-]}
            <MI 20fdc  BEQ     0x20fe2>                                         {[-12-]}
        <POP 20fde-20fe2 Naked>                              Σ-12       →0x20fe8
            <MI 20fde  ADD.L   (A6-0xa),D6>                                     {[-12-]}
            <MI 20fe0  BRA     0x20fe8>                                         {[-12-]}
        <POP 20fe2-20fe8 Naked>                              Σ-12       ↓ ←0x20fc6
            <MI 20fe2  MOVE.L  (A6-0xa),D0>                                     {[-12-]}
            <MI 20fe4  ASL.L   #0x6,D0>                                         {[-12-]}
            <MI 20fe6  ADD.L   D0,D6>                                           {[-12-]}
        <POP 20fe8-20fee Naked>                              Σ-12       ↓ →0x20ff4 ←0x20fde
            <MI 20fe8  MOVE.L  (A7),D1>                                         {[-12-]}
            <MI 20fea  ADDQ.L  #0x1,D1>                                         {[-12-]}
            <MI 20fec  BVS     0x20ff4>                                         {[-12-]}
        <POP 20fee-20ff4 Naked>                              Σ-12 Δ+4   →0x20c7e
            <POP 20fee-20ff0 StackAdj>                       Δ+4                {[-8-]}
            <MI 20ff0  BRA     0x20c7e>                                         {[-8-]}
        <POP 20ff4-21002 Naked>                              Σ-12 Δ+8   ↓ →0x21008 ←0x20c82 ←0x20fe8
            <POP 20ff4-20ff6 StackAdj>                       Δ+8                {[-4-]}
            <MI 20ff6  MOVE.L  (A7),D0>                                         {[-4-]}
            <MI 20ff8  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 20ffa  CMPI.L  #0x00000007,D0>                                  {[-4-]}
            <MI 21000  BGT     0x21008>                                         {[-4-]}
        <POP 21002-21008 Naked>                              Σ-4 Δ+4    →0x20c3a
            <POP 21002-21004 StackAdj>                       Δ+4                {}
            <MI 21004  BRA     0x20c3a>                                         {}
        <POP 21008-21022 Naked>                              Σ-4 Δ+4    ↓ ←0x20ff4
            <POP 21008-2100a StackAdj>                       Δ+2                {[-2-]}
            <MI 2100a  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x2100c 0x1.2>                            Δ-2                {[-2-]|[#1]}
            <Call 0x2100e 0x208d4>                                              {[-2-]|[#1]}
            <POP 21012-21014 StackAdj>                       Δ+2                {[-2-]}
            <POP 21014-21015 StackAdj>                       Δ+2                {}
            <Const 0x21015 0x3.2>                            Δ-2                {[#3]}
            <Const 0x21018 0x3.2>                            Δ-2                {[#3]|[#3]}
            <Call 0x2101c 0x208d4>                                              {[#3]|[#3]}
            <POP 21020-21022 StackAdj>                       Δ+4                {}
        <POP 21022-2102a Epilogue>                           Σ0         

0x2102a


@ 2102a
Load_Control_Store()
        <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 2102a-2137a Body>                                              
        <POP 2102a-21040 Prologue>                           Σ0         ↓
        <POP 21040-21050 RegCacheLoad>                       Σ0         ↓
        <POP 21050-210d6 Naked>                              Σ0 Δ-4     ↓
            <MI 21050  MOVE.L  #0x10,(A6-0x8)>                                  {}
            <MI 21056  MOVE.L  #0x1,(A6-0x4)>                                   {}
            <MI 2105e  MOVEQ.L #0x00,D0>                                        {}
            <MI 21060  MOVE.B  D0,(A6-0x40f)>                                   {}
            <MI 21064  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <MI 21066  MOVE.B  D0,-(A7)>                     Δ-2                {[2, '(A6+0x8)']|[2, 'D0']}
            <Call 0x21068 0x2164e>                                              {[2, '(A6+0x8)']|[2, 'D0']}
                exp_LOAD_DIAG_COUNTER.TYP(Sw_2, Sw_1)
            <POP 2106e-21070 StackAdj>                       Δ+2                {[2, '(A6+0x8)']}
            <MI 21070  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <MI 21072  MOVE.B  D0,-(A7)>                     Δ-2                {[2, '(A6+0x8)']|[2, 'D0']}
            <Call 0x21074 0x2169a>                                              {[2, '(A6+0x8)']|[2, 'D0']}
                exp_LOAD_DIAG_COUNTER.VAL(Sw_2, Sw_1)
            <POP 2107a-2107c StackAdj>                       Δ+2                {[2, '(A6+0x8)']}
            <MI 2107c  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <MI 2107e  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']|[2, '(A6+0x8)']}
            <MI 21080  MOVE.B  D0,-(A7)>                     Δ-2                {[2, '(A6+0x8)']|[2, '(A6+0x8)']|[2, 'D0']}
            <Call 0x21082 0x215c0>                                              {[2, '(A6+0x8)']|[2, '(A6+0x8)']|[2, 'D0']}
                exp_LOAD_COUNTER.FIU(Sw_2, Sw_2, Sw_1)
            <POP 21088-2108a StackAdj>                       Δ+4                {[2, '(A6+0x8)']}
            <MI 2108a  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <Call 0x2108c 0x21608>                                              {[2, '(A6+0x8)']}
                exp_LOAD_COUNTER.SEQ(Sw_2)
            <MI 21092  MOVE.W  (A6+0x8),(A7)>                                   {[2, '(A6+0x8)']}
            <MI 21094  MOVE.B  D0,-(A7)>                     Δ-2                {[2, '(A6+0x8)']|[2, 'D0']}
            <Call 0x21096 0x216be>                                              {[2, '(A6+0x8)']|[2, 'D0']}
                exp_LOAD_WCS_ADDRESS.IOC(Sw_2, Sw_1)
            <POP 2109c-2109e StackAdj>                       Δ+4                {}
            <Blob 0x2109e [18] @>                            Δ-18               {[«18""»]}
            <POP 210aa-210ac StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x210ac 18>                                                    {[«18""»]|[$$LOAD_CONTROL_STORE]}
            <POP 210be-210c0 StackAdj>                       Δ-2                {[«18""»]|[$$LOAD_CONTROL_STORE]|[-2-]}
            <MI 210c0  CLR.B   (A7)>                                            {[«18""»]|[$$LOAD_CONTROL_STORE]|[-2-]}
            <Const 0x210c2 0x4.2>                            Δ-2                {[«18""»]|[$$LOAD_CONTROL_STORE]|[-2-]|[#4]}
            <Call 0x210c6 0x20694>                                              {[«18""»]|[$$LOAD_CONTROL_STORE]|[-2-]|[#4]}
            <POP 210ca-210ce StackAdj>                       Δ+22               {[-4-]}
            <MI 210ce  MOVE.L  (A6+0xa),(A7)>                                   {[4, '(A6+0xa)']}
            <MI 210d2  SUBQ.L  #0x1,(A7)>                                       {[-4-]}
            <MI 210d4  MOVEQ.L #0x00,D0>                                        {[-4-]}
        <POP 210d6-210da Naked>                              Σ-4        ↓ →0x210e0 ←0x2135e
            <MI 210d6  CMP.L   (A7),D0>                                         {[-4-]}
            <MI 210d8  BLE     0x210e0>                                         {[-4-]}
        <POP 210da-210e0 Naked>                              Σ-4 Δ-4    →0x21364
            <POP 210da-210dc StackAdj>                       Δ-4                {[-8-]}
            <MI 210dc  BRA     0x21364>                                         {[-8-]}
        <POP 210e0-2112a Naked>                              Σ-4 Δ-4    ↓ →0x2114c ←0x210d6
            <MI 210e0  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 210e2  MOVE.L  (A6+0x10),-(A7)>              Δ-4                {[-4-]|[4, 'D0']|[4, '(A6+0x10)']}
            <MI 210e6  MOVE.W  (A6+0xe),D1>                                     {[-4-]|[4, 'D0']|[4, '(A6+0x10)']}
            <MI 210ea  EXTW.L  D1>                                              {[-4-]|[4, 'D0']|[4, '(A6+0x10)']}
            <MI 210ec  ADD.L   D0,D1>                                           {[-4-]|[4, 'D0']|[4, '(A6+0x10)']}
            <POP 0x210ee LimitCheck 0x0 ≤ D1 ≤ 0x4000>                          {[-4-]|[4, 'D0']|[4, '(A6+0x10)']}
            <MI 210f8  MOVE.W  D1,-(A7)>                     Δ-2                {[-4-]|[4, 'D0']|[4, '(A6+0x10)']|[2, 'D1']}
            <MI 210fa  CLR.W   -(A7)>                        Δ-2                {[-4-]|[4, 'D0']|[4, '(A6+0x10)']|[2, 'D1']|[#0]}
            <Const 0x210fc 0x200.2>                          Δ-2                {[-4-]|[4, 'D0']|[4, '(A6+0x10)']|[2, 'D1']|[#0]|[#512]}
            <Const 0x21100 0x2.2>                            Δ-2                {[-4-]|[4, 'D0']|[4, '(A6+0x10)']|[2, 'D1']|[#0]|[#512]|[#2]}
            <MI 21104  LEA.L   (A6-0x408),A0>                                   {[-4-]|[4, 'D0']|[4, '(A6+0x10)']|[2, 'D1']|[#0]|[#512]|[#2]}
            <MI 21108  MOVE.L  A0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']|[4, '(A6+0x10)']|[2, 'D1']|[#0]|[#512]|[#2]|[4, 'A0']}
            <Pointer.fp 0x2110a <LVAR -0x410 @>>             Δ-4                {[-4-]|[4, 'D0']|[4, '(A6+0x10)']|[2, 'D1']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-1040]}
            <Call 0x2110e 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 21114-21118 StackAdj>                       Δ+20               {[-4-]|[4, 'D0']}
            <MI 21118  MOVE.L  D0,D4>                                           {[-4-]|[4, 'D0']}
            <MI 2111a  MOVEQ.L #0x20,D3>                                        {[-4-]|[4, 'D0']}
            <Call 0x2111c 0x10294>                                              {[-4-]|[4, 'D0']}
                ?divs_d3_d4
            <MI 21122  CMPI.L  #0x0000001f,D3>                                  {[-4-]|[4, 'D0']}
            <MI 21128  BNE     0x2114c>                                         {[-4-]|[4, 'D0']}
        <POP 2112a-2114c Naked>                              Σ-8        ↓
            <Blob 0x2112a [2] @>                             Δ-2                {[-8-]|[«2""»]}
            <POP 2112e-21130 StackAdj>                       Δ-4                {[-8-]|[«2""»]|[-4-]}
            <Lit 0x21130 2>                                                     {[-8-]|[«2""»]|[$$. ]}
            <Call 0x21144 0x103d8>                                              {[-8-]|[«2""»]|[$$. ]}
                WriteConsoleString(str : String)
            <POP 2114a-2114c StackAdj>                       Δ+6                {[-8-]}
        <POP 2114c-21154 Naked>                              Σ-8 Δ-4    ↓ ←0x210e0
            <MI 2114c  MOVEQ.L #0x00,D6>                                        {[-8-]}
            <MI 2114e  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[-8-]|[4, '(A6-0x4)']}
            <MI 21152  MOVEQ.L #0x00,D5>                                        {[-8-]|[4, '(A6-0x4)']}
        <POP 21154-2115a Naked>                              Σ-12       ↓ →0x21356 ←0x21342
            <MI 21154  CMP.L   (A7),D5>                                         {[-12-]}
            <MI 21156  BGT     0x21356>                                         {[-12-]}
        <POP 2115a-21160 Naked>                              Σ-12 Δ-4   ↓
            <MI 2115a  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x8)']}
            <MI 2115c  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 2115e  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 21160-21164 Naked>                              Σ-16       ↓ →0x2119c ←0x21164
            <MI 21160  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 21162  BGT     0x2119c>                                         {[-16-]}
        <POP 21164-2119c Naked>                              Σ-16       ↓ →0x21160
            <MI 21164  MOVE.L  D6,D0>                                           {[-16-]}
            <MI 21166  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x21168 LimitCheck 0x0 ≤ D0 ≤ 0x1f>                            {[-16-]}
            <MI 21172  ASL.L   #0x5,D0>                                         {[-16-]}
            <MI 21174  LEA.L   (A6-0x420),A0>                                   {[-16-]}
            <MI 21176  MOVE.L  (A0+D0.L+#0x1c),-(A7)>        Δ-4                {[-16-]|[4, '(A0+D0.L+#0x1c)']}
            <MI 2117a  MOVE.L  (A0+D0.L+#0x18),-(A7)>        Δ-4                {[-16-]|[4, '(A0+D0.L+#0x1c)']|[4, '(A0+D0.L+#0x18)']}
            <Blob 0x2117e [4] 0x218f0>                       Δ-4                {[-16-]|[4, '(A0+D0.L+#0x1c)']|[4, '(A0+D0.L+#0x18)']|[«4»]}
            <Pointer.sp 0x21184 4>                           Δ-4                {[-16-]|[4, '(A0+D0.L+#0x1c)']|[4, '(A0+D0.L+#0x18)']|[«4»]|[^^4]}
            <Const 0x21188 0x0.4>                            Δ-4                {[-16-]|[4, '(A0+D0.L+#0x1c)']|[4, '(A0+D0.L+#0x18)']|[«4»]|[^^4]|[##0]}
            <Const 0x2118a 0x7.4>                            Δ-4                {[-16-]|[4, '(A0+D0.L+#0x1c)']|[4, '(A0+D0.L+#0x18)']|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x2118e 0x10466>                                              {[-16-]|[4, '(A0+D0.L+#0x1c)']|[4, '(A0+D0.L+#0x18)']|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 21194-21198 StackAdj>                       Δ+24               {[-16-]}
            <MI 21198  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 2119a  BVC     0x21160>                                         {[-16-]}
        <POP 2119c-211ac Naked>                              Σ-16       ↓ ←0x21160
            <POP 2119c-2119e StackAdj>                       Δ+2                {[-14-]}
            <MI 2119e  CLR.B   (A7)>                                            {[-14-]}
            <Call 0x211a0 0x20838>                                              {[-14-]}
            <POP 211a4-211a6 StackAdj>                       Δ+2                {[-12-]}
            <MI 211a6  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x8)']}
            <MI 211a8  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 211aa  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 211ac-211b0 Naked>                              Σ-16       ↓ →0x211e8 ←0x211b0
            <MI 211ac  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 211ae  BGT     0x211e8>                                         {[-16-]}
        <POP 211b0-211e8 Naked>                              Σ-16       ↓ →0x211ac
            <MI 211b0  MOVE.L  D6,D0>                                           {[-16-]}
            <MI 211b2  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x211b4 LimitCheck 0x0 ≤ D0 ≤ 0x1f>                            {[-16-]}
            <MI 211be  ASL.L   #0x5,D0>                                         {[-16-]}
            <MI 211c0  LEA.L   (A6-0x420),A0>                                   {[-16-]}
            <MI 211c2  MOVE.L  (A0+D0.L+#0x24),-(A7)>        Δ-4                {[-16-]|[4, '(A0+D0.L+#0x24)']}
            <MI 211c6  MOVE.L  (A0+D0.L+#0x20),-(A7)>        Δ-4                {[-16-]|[4, '(A0+D0.L+#0x24)']|[4, '(A0+D0.L+#0x20)']}
            <Blob 0x211ca [4] 0x218f4>                       Δ-4                {[-16-]|[4, '(A0+D0.L+#0x24)']|[4, '(A0+D0.L+#0x20)']|[«4»]}
            <Pointer.sp 0x211d0 4>                           Δ-4                {[-16-]|[4, '(A0+D0.L+#0x24)']|[4, '(A0+D0.L+#0x20)']|[«4»]|[^^4]}
            <Const 0x211d4 0x0.4>                            Δ-4                {[-16-]|[4, '(A0+D0.L+#0x24)']|[4, '(A0+D0.L+#0x20)']|[«4»]|[^^4]|[##0]}
            <Const 0x211d6 0x7.4>                            Δ-4                {[-16-]|[4, '(A0+D0.L+#0x24)']|[4, '(A0+D0.L+#0x20)']|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x211da 0x10466>                                              {[-16-]|[4, '(A0+D0.L+#0x24)']|[4, '(A0+D0.L+#0x20)']|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 211e0-211e4 StackAdj>                       Δ+24               {[-16-]}
            <MI 211e4  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 211e6  BVC     0x211ac>                                         {[-16-]}
        <POP 211e8-211fa Naked>                              Σ-16       ↓ ←0x211ac
            <POP 211e8-211ea StackAdj>                       Δ+2                {[-14-]}
            <POP 211ea-211eb StackAdj>                       Δ+2                {[-12-]}
            <Const 0x211eb 0x1.2>                            Δ-2                {[-12-]|[#1]}
            <Call 0x211ee 0x20838>                                              {[-12-]|[#1]}
            <POP 211f2-211f4 StackAdj>                       Δ+2                {[-12-]}
            <MI 211f4  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x8)']}
            <MI 211f6  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 211f8  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 211fa-211fe Naked>                              Σ-16       ↓ →0x21236 ←0x211fe
            <MI 211fa  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 211fc  BGT     0x21236>                                         {[-16-]}
        <POP 211fe-21236 Naked>                              Σ-16       ↓ →0x211fa
            <MI 211fe  MOVE.L  D6,D0>                                           {[-16-]}
            <MI 21200  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x21202 LimitCheck 0x0 ≤ D0 ≤ 0x1f>                            {[-16-]}
            <MI 2120c  ASL.L   #0x5,D0>                                         {[-16-]}
            <MI 2120e  LEA.L   (A6-0x420),A0>                                   {[-16-]}
            <MI 21210  MOVE.L  (A0+D0.L+#0x2c),-(A7)>        Δ-4                {[-16-]|[4, '(A0+D0.L+#0x2c)']}
            <MI 21214  MOVE.L  (A0+D0.L+#0x28),-(A7)>        Δ-4                {[-16-]|[4, '(A0+D0.L+#0x2c)']|[4, '(A0+D0.L+#0x28)']}
            <Blob 0x21218 [4] 0x218f8>                       Δ-4                {[-16-]|[4, '(A0+D0.L+#0x2c)']|[4, '(A0+D0.L+#0x28)']|[«4»]}
            <Pointer.sp 0x2121e 4>                           Δ-4                {[-16-]|[4, '(A0+D0.L+#0x2c)']|[4, '(A0+D0.L+#0x28)']|[«4»]|[^^4]}
            <Const 0x21222 0x0.4>                            Δ-4                {[-16-]|[4, '(A0+D0.L+#0x2c)']|[4, '(A0+D0.L+#0x28)']|[«4»]|[^^4]|[##0]}
            <Const 0x21224 0x7.4>                            Δ-4                {[-16-]|[4, '(A0+D0.L+#0x2c)']|[4, '(A0+D0.L+#0x28)']|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x21228 0x10466>                                              {[-16-]|[4, '(A0+D0.L+#0x2c)']|[4, '(A0+D0.L+#0x28)']|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 2122e-21232 StackAdj>                       Δ+24               {[-16-]}
            <MI 21232  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 21234  BVC     0x211fa>                                         {[-16-]}
        <POP 21236-21248 Naked>                              Σ-16       ↓ ←0x211fa
            <POP 21236-21238 StackAdj>                       Δ+2                {[-14-]}
            <POP 21238-21239 StackAdj>                       Δ+2                {[-12-]}
            <Const 0x21239 0x2.2>                            Δ-2                {[-12-]|[#2]}
            <Call 0x2123c 0x20838>                                              {[-12-]|[#2]}
            <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-2124e Naked>                              Σ-16       ↓ →0x212f4 ←0x2124e
            <MI 21248  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 2124a  BGT     0x212f4>                                         {[-16-]}
        <POP 2124e-212f4 Naked>                              Σ-16       ↓ →0x21248
            <MI 2124e  MOVE.L  D6,D0>                                           {[-16-]}
            <MI 21250  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x21252 LimitCheck 0x0 ≤ D0 ≤ 0x1f>                            {[-16-]}
            <MI 2125c  ASL.L   #0x5,D0>                                         {[-16-]}
            <MI 2125e  LEA.L   (A6-0x420),A0>                                   {[-16-]}
            <MI 21260  CLR.L   D1>                                              {[-16-]}
            <MI 21262  MOVE.B  (A0+D0.L+#0x28),D1>                              {[-16-]}
            <MI 21266  ANDI.W  #0x0003,D1>                                      {[-16-]}
            <MI 2126a  ASL.W   #0x6,D1>                                         {[-16-]}
            <MI 2126c  CLR.L   D2>                                              {[-16-]}
            <MI 2126e  MOVE.B  (A0+D0.L+#0x29),D2>                              {[-16-]}
            <MI 21272  ANDI.W  #0x0003,D2>                                      {[-16-]}
            <MI 21276  ASL.W   #0x4,D2>                                         {[-16-]}
            <MI 21278  ADD.W   D1,D2>                                           {[-16-]}
            <MI 2127a  CLR.L   D1>                                              {[-16-]}
            <MI 2127c  MOVE.B  (A0+D0.L+#0x2a),D1>                              {[-16-]}
            <MI 21280  ANDI.W  #0x0003,D1>                                      {[-16-]}
            <MI 21284  ASL.W   #0x2,D1>                                         {[-16-]}
            <MI 21286  ADD.W   D2,D1>                                           {[-16-]}
            <MI 21288  CLR.L   D2>                                              {[-16-]}
            <MI 2128a  MOVE.B  (A0+D0.L+#0x2b),D2>                              {[-16-]}
            <MI 2128e  ANDI.W  #0x0003,D2>                                      {[-16-]}
            <MI 21292  ADD.W   D1,D2>                                           {[-16-]}
            <MI 21294  MOVE.B  D2,(A6-0x40a)>                                   {[-16-]}
            <MI 21298  CLR.L   D1>                                              {[-16-]}
            <MI 2129a  MOVE.B  (A0+D0.L+#0x2c),D1>                              {[-16-]}
            <MI 2129e  ANDI.W  #0x0003,D1>                                      {[-16-]}
            <MI 212a2  ASL.W   #0x6,D1>                                         {[-16-]}
            <MI 212a4  CLR.L   D2>                                              {[-16-]}
            <MI 212a6  MOVE.B  (A0+D0.L+#0x2d),D2>                              {[-16-]}
            <MI 212aa  ANDI.W  #0x0003,D2>                                      {[-16-]}
            <MI 212ae  ASL.W   #0x4,D2>                                         {[-16-]}
            <MI 212b0  ADD.W   D1,D2>                                           {[-16-]}
            <MI 212b2  CLR.L   D1>                                              {[-16-]}
            <MI 212b4  MOVE.B  (A0+D0.L+#0x2e),D1>                              {[-16-]}
            <MI 212b8  ANDI.W  #0x0003,D1>                                      {[-16-]}
            <MI 212bc  ASL.W   #0x2,D1>                                         {[-16-]}
            <MI 212be  ADD.W   D2,D1>                                           {[-16-]}
            <MI 212c0  CLR.L   D2>                                              {[-16-]}
            <MI 212c2  MOVE.B  (A0+D0.L+#0x2f),D2>                              {[-16-]}
            <MI 212c6  ANDI.W  #0x0003,D2>                                      {[-16-]}
            <MI 212ca  ADD.W   D1,D2>                                           {[-16-]}
            <MI 212cc  MOVE.B  D2,(A6-0x409)>                                   {[-16-]}
            <MI 212d0  MOVE.W  (A6-0x40a),-(A7)>             Δ-2                {[-16-]|[2, '(A6-0x40a)']}
            <Blob 0x212d4 [4] 0x21900>                       Δ-4                {[-16-]|[2, '(A6-0x40a)']|[«4»]}
            <Pointer.sp 0x212da 4>                           Δ-4                {[-16-]|[2, '(A6-0x40a)']|[«4»]|[^^4]}
            <Const 0x212de 0x0.4>                            Δ-4                {[-16-]|[2, '(A6-0x40a)']|[«4»]|[^^4]|[##0]}
            <Const 0x212e0 0x1.4>                            Δ-4                {[-16-]|[2, '(A6-0x40a)']|[«4»]|[^^4]|[##0]|[##1]}
            <Call 0x212e4 0x10466>                                              {[-16-]|[2, '(A6-0x40a)']|[«4»]|[^^4]|[##0]|[##1]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 212ea-212ee StackAdj>                       Δ+18               {[-16-]}
            <MI 212ee  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 212f0  BVC     0x21248>                                         {[-16-]}
        <POP 212f4-21306 Naked>                              Σ-16       ↓ ←0x21248
            <POP 212f4-212f6 StackAdj>                       Δ+2                {[-14-]}
            <POP 212f6-212f7 StackAdj>                       Δ+2                {[-12-]}
            <Const 0x212f7 0x4.2>                            Δ-2                {[-12-]|[#4]}
            <Call 0x212fa 0x20838>                                              {[-12-]|[#4]}
            <POP 212fe-21300 StackAdj>                       Δ+2                {[-12-]}
            <MI 21300  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6-0x8)']}
            <MI 21302  SUBQ.L  #0x1,(A7)>                                       {[-16-]}
            <MI 21304  MOVEQ.L #0x00,D7>                                        {[-16-]}
        <POP 21306-2130a Naked>                              Σ-16       ↓ →0x21342 ←0x2130a
            <MI 21306  CMP.L   (A7),D7>                                         {[-16-]}
            <MI 21308  BGT     0x21342>                                         {[-16-]}
        <POP 2130a-21342 Naked>                              Σ-16       ↓ →0x21306
            <MI 2130a  MOVE.L  D6,D0>                                           {[-16-]}
            <MI 2130c  ADD.L   D7,D0>                                           {[-16-]}
            <POP 0x2130e LimitCheck 0x0 ≤ D0 ≤ 0x1f>                            {[-16-]}
            <MI 21318  ASL.L   #0x5,D0>                                         {[-16-]}
            <MI 2131a  LEA.L   (A6-0x420),A0>                                   {[-16-]}
            <MI 2131c  MOVE.L  (A0+D0.L+#0x34),-(A7)>        Δ-4                {[-16-]|[4, '(A0+D0.L+#0x34)']}
            <MI 21320  MOVE.L  (A0+D0.L+#0x30),-(A7)>        Δ-4                {[-16-]|[4, '(A0+D0.L+#0x34)']|[4, '(A0+D0.L+#0x30)']}
            <Blob 0x21324 [4] 0x218fc>                       Δ-4                {[-16-]|[4, '(A0+D0.L+#0x34)']|[4, '(A0+D0.L+#0x30)']|[«4»]}
            <Pointer.sp 0x2132a 4>                           Δ-4                {[-16-]|[4, '(A0+D0.L+#0x34)']|[4, '(A0+D0.L+#0x30)']|[«4»]|[^^4]}
            <Const 0x2132e 0x0.4>                            Δ-4                {[-16-]|[4, '(A0+D0.L+#0x34)']|[4, '(A0+D0.L+#0x30)']|[«4»]|[^^4]|[##0]}
            <Const 0x21330 0x7.4>                            Δ-4                {[-16-]|[4, '(A0+D0.L+#0x34)']|[4, '(A0+D0.L+#0x30)']|[«4»]|[^^4]|[##0]|[##7]}
            <Call 0x21334 0x10466>                                              {[-16-]|[4, '(A0+D0.L+#0x34)']|[4, '(A0+D0.L+#0x30)']|[«4»]|[^^4]|[##0]|[##7]}
                ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
            <POP 2133a-2133e StackAdj>                       Δ+24               {[-16-]}
            <MI 2133e  ADDQ.L  #0x1,D7>                                         {[-16-]}
            <MI 21340  BVC     0x21306>                                         {[-16-]}
        <POP 21342-21356 Naked>                              Σ-16 Δ+4   ↓ →0x21154 ←0x21306
            <POP 21342-21344 StackAdj>                       Δ+2                {[-14-]}
            <POP 21344-21345 StackAdj>                       Δ+2                {[-12-]}
            <Const 0x21345 0x3.2>                            Δ-2                {[-12-]|[#3]}
            <Call 0x21348 0x20838>                                              {[-12-]|[#3]}
            <POP 2134c-2134e StackAdj>                       Δ+2                {[-12-]}
            <MI 2134e  ADD.L   (A6-0x8),D6>                                     {[-12-]}
            <MI 21350  ADDQ.L  #0x1,D5>                                         {[-12-]}
            <MI 21352  BVC     0x21154>                                         {[-12-]}
        <POP 21356-2135e Naked>                              Σ-12 Δ+4   ↓ →0x21364 ←0x21154
            <POP 21356-21358 StackAdj>                       Δ+4                {[-8-]}
            <MI 21358  MOVE.L  (A7),D0>                                         {[-8-]}
            <MI 2135a  ADDQ.L  #0x1,D0>                                         {[-8-]}
            <MI 2135c  BVS     0x21364>                                         {[-8-]}
        <POP 2135e-21364 Naked>                              Σ-8 Δ+4    →0x210d6
            <POP 2135e-21360 StackAdj>                       Δ+4                {[-4-]}
            <MI 21360  BRA     0x210d6>                                         {[-4-]}
        <POP 21364-21372 Naked>                              Σ-8 Δ+8    ↓ ←0x210da ←0x21356
            <POP 21364-21366 StackAdj>                       Δ+6                {[-2-]}
            <MI 21366  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x21368 0x4.2>                            Δ-2                {[-2-]|[#4]}
            <Call 0x2136c 0x208d4>                                              {[-2-]|[#4]}
            <POP 21370-21372 StackAdj>                       Δ+4                {}
        <POP 21372-2137a Epilogue>                           Σ0         

0x2137a


@ 2137a
        <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 2137a-21518 Body>                                   Δ+6        
        <POP 2137a-21390 Prologue>                           Σ0         ↓
        <POP 21390-213a8 RegCacheLoad>                       Σ0         ↓
        <POP 213a8-213d0 Naked>                              Σ0         ↓ →0x213d6
            <MI 213a8  MOVE.L  (A6+0xe),-(A7)>               Δ-4                {[4, '(A6+0xe)']}
            <Pointer.fp 0x213ac <LVAR  0x00c @ 1(r)>>        Δ-4                {[4, '(A6+0xe)']|[@@12]}
            <Pointer.fp 0x213ae <LVAR -0x00e @ 4(r)>>        Δ-4                {[4, '(A6+0xe)']|[@@12]|[@@-14]}
            <Pointer.fp 0x213b0 <LVAR -0x008 @ 4(r)>>        Δ-4                {[4, '(A6+0xe)']|[@@12]|[@@-14]|[@@-8]}
            <Pointer.fp 0x213b4 <LVAR -0x004 @ 2(r)>>        Δ-4                {[4, '(A6+0xe)']|[@@12]|[@@-14]|[@@-8]|[@@-4]}
            <Call 0x213b8 0x20326>                                              {[4, '(A6+0xe)']|[@@12]|[@@-14]|[@@-8]|[@@-4]}
            <POP 213bc-213c0 StackAdj>                       Δ+18               {[-2-]}
            <POP 213c0-213c1 StackAdj>                       Δ+2                {}
            <Const 0x213c1 0x5.2>                            Δ-2                {[#5]}
            <Const 0x213c2 0x2.2>                            Δ-2                {[#5]|[#2]}
            <Call 0x213c4 0x1048a>                                              {[#5]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <POP 213ca-213cc StackAdj>                       Δ+4                {}
            <MI 213cc  TST.B   (A6+0xc)>                                        {}
            <MI 213ce  BNE     0x213d6>                                         {}
        <POP 213d0-213d6 Naked>                              Σ0         ↓ →0x2141a
            <MI 213d0  TST.B   (A6+0x8)>                                        {}
            <MI 213d4  BEQ     0x2141a>                                         {}
        <POP 213d6-2141a Naked>                              Σ0 Δ-6     →0x21460 ←0x213a8
            <Blob 0x213d6 [44] @>                            Δ-44               {[«44""»]}
            <POP 213e6-213e8 StackAdj>                       Δ-4                {[«44""»]|[-4-]}
            <Lit 0x213e8 43>                                                    {[«44""»]|[$$  Loading Register Files and Dispatch Rams_]}
            <Call 0x213f6 0x103d8>                                              {[«44""»]|[$$  Loading Register Files and Dispatch Rams_]}
                WriteConsoleString(str : String)
            <POP 213fc-213fe StackAdj>                       Δ+44               {[-4-]}
            <MI 213fe  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <Const 0x21400 0x1.2>                            Δ-2                {[4, '(A6-0xe)']|[#1]}
            <Const 0x21402 0x19.2>                           Δ-2                {[4, '(A6-0xe)']|[#1]|[#25]}
            <Call 0x21404 0x20b7a>                                              {[4, '(A6-0xe)']|[#1]|[#25]}
                Load_RegFile_Dispatch()
            <POP 21408-21409 StackAdj>                       Δ+8        ↓       {}
            <Blob 0x21409 [6] @>                             Δ-6                {[«6""»]}
            <MI 21418  BRA     0x21460>                                         {[«6""»]}
        <POP 2141a-21420 Naked>                              Σ0         ↓ →0x21478 ←0x213d0
            <MI 2141a  TST.B   (A6+0xa)>                                        {}
            <MI 2141e  BEQ     0x21478>                                         {}
        <POP 21420-21460 Naked>                              Σ0 Δ-6     ↓
            <Blob 0x21420 [26] @>                            Δ-26               {[«26""»]}
            <POP 21432-21434 StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x21434 25>                                                    {[«26""»]|[$$  Loading Register Files_]}
            <Call 0x21440 0x103d8>                                              {[«26""»]|[$$  Loading Register Files_]}
                WriteConsoleString(str : String)
            <POP 21446-2144a StackAdj>                       Δ+26               {[-4-]}
            <MI 2144a  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <Const 0x2144c 0x1.2>                            Δ-2                {[4, '(A6-0xe)']|[#1]}
            <Call 0x2144e 0x20924>                                              {[4, '(A6-0xe)']|[#1]}
                Load_RegFile_Only()
            <MI 21452  MOVEA.L A7,A0>                                           {[4, '(A6-0xe)']|[#1]}
            <MI 21454  LEA.L   0x20274,A1>                                      {[4, '(A6-0xe)']|[#1]}
            <BlockMove 5,A1,A0>                                                 {[4, '(A6-0xe)']|[#1]}
        <POP 21460-21478 Naked>                              Σ-6 Δ+6    ↓ ←0x213d6
            <POP 21460-21462 StackAdj>                       Δ-4                {[-10-]}
            <Lit 0x21462>                                                       {[-6-]|[$$…]}
                <Pointer.sp 0x21462 4>                       Δ-4        
                <Const 0x21466 0x1.2>                        Δ-2        
                <Const 0x21468 0x5.2>                        Δ-2        
                <Call 0x2146a 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2146c-2146e StackAdj>                   Δ+8        
            <Call 0x2146e 0x103e0>                                              {[-6-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 21474-21478 StackAdj>                       Δ+10               {}
        <POP 21478-2147c Naked>                              Σ0         ↓ →0x214e6 ←0x2141a
            <MI 21478  TST.B   (A6+0xc)>                                        {}
            <MI 2147a  BEQ     0x214e6>                                         {}
        <POP 2147c-214e6 Naked>                              Σ0         ↓
            <Blob 0x2147c [24] @>                            Δ-24               {[«24""»]}
            <POP 21488-2148a StackAdj>                       Δ-4                {[«24""»]|[-4-]}
            <Lit 0x2148a 24>                                                    {[«24""»]|[$$  Loading Control Store_]}
            <Call 0x21498 0x103d8>                                              {[«24""»]|[$$  Loading Control Store_]}
                WriteConsoleString(str : String)
            <POP 2149e-214a2 StackAdj>                       Δ+24               {[-4-]}
            <MI 214a2  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <Const 0x214a4 0x29.2>                           Δ-2                {[4, '(A6-0xe)']|[#41]}
            <MI 214a8  MOVE.L  (A6-0x8),D4>                                     {[4, '(A6-0xe)']|[#41]}
            <MI 214ac  MOVEQ.L #0x20,D3>                                        {[4, '(A6-0xe)']|[#41]}
            <Call 0x214ae 0x10294>                                              {[4, '(A6-0xe)']|[#41]}
                ?divs_d3_d4
            <MI 214b4  MOVE.L  D4,-(A7)>                     Δ-4                {[4, '(A6-0xe)']|[#41]|[4, 'D4']}
            <MI 214b6  MOVE.W  (A6-0x4),-(A7)>               Δ-2                {[4, '(A6-0xe)']|[#41]|[4, 'D4']|[2, '(A6-0x4)']}
            <Call 0x214ba 0x2102a>                                              {[4, '(A6-0xe)']|[#41]|[4, 'D4']|[2, '(A6-0x4)']}
                Load_Control_Store()
            <POP 214be-214bf StackAdj>                       Δ+12       ↓       {}
            <Blob 0x214bf [6] @>                             Δ-6                {[«6""»]}
            <POP 214ce-214d0 StackAdj>                       Δ-4                {[«6""»]|[-4-]}
            <Lit 0x214d0 5>                                                     {[«6""»]|[$$ [OK]]}
            <Call 0x214dc 0x103e0>                                              {[«6""»]|[$$ [OK]]}
                WriteConsoleStringCrLf(str : String)
            <POP 214e2-214e6 StackAdj>                       Δ+10               {}
        <POP 214e6-21510 Naked>                              Σ0         ↓ ←0x21478
            <Const 0x214e6 0x5.2>                            Δ-2                {[#5]}
            <Const 0x214e8 0x2.2>                            Δ-2                {[#5]|[#2]}
            <Call 0x214ea 0x1048a>                                              {[#5]|[#2]}
                DiProcCmd(board : Byte; cmd : Byte)
            <MI 214f0  MOVE.L  (A6-0xe),(A7)>                                   {[4, '(A6-0xe)']}
            <Call 0x214f2 0x20596>                                              {[4, '(A6-0xe)']}
            <POP 214f6-214f8 StackAdj>                       Δ+2                {[-2-]}
            <MI 214f8  CLR.B   (A7)>                                            {[-2-]}
            <Const 0x214fa 0x2.2>                            Δ-2                {[-2-]|[#2]}
            <Const 0x214fc 0x1.4>                            Δ-4                {[-2-]|[#2]|[##1]}
            <Pointer.fp 0x21500 <LVAR -0x00a @>>             Δ-4                {[-2-]|[#2]|[##1]|[@@-10]}
            <Pointer.fp 0x21504 <LVAR -0x00e @ 4(r)>>        Δ-4                {[-2-]|[#2]|[##1]|[@@-10]|[@@-14]}
            <Call 0x21506 0x1038c>                                              {[-2-]|[#2]|[##1]|[@@-10]|[@@-14]}
                CloseFile(a : L; VAR status : B; VAR file : File)
            <POP 2150c-21510 StackAdj>                       Δ+16               {}
        <POP 21510-21518 Epilogue>                           Σ0         

0x21518


@ 21518
START
    <POP 21518--0001 Body>                                              
        <POP 21518-21522 Prologue>                           Σ0         
        <POP 21522-21540 RegCacheLoad>                       Σ0         ↓
        <POP 21540-215ba Naked>                              Σ0         ↓
            <Call 0x21540 0x10398>                                              {}
                FSCALL_10398
            <Const 0x21546 0x5.4>                            Δ-4                {[##5]}
            <Call 0x2154a 0x104d8>                                              {[##5]}
                ExpInit(a : Long)
            <POP 21550-21552 StackAdj>                       Δ+2                {[-2-]}
            <MI 21552  CLR.B   (A7)>                                            {[-2-]}
            <Call 0x21554 0x104d2>                                              {[-2-]}
                SetExpInitDone(a : Byte)
            <POP 2155a-2155c StackAdj>                       Δ+2                {}
            <Call 0x2155c 0x10538>                                              {}
                IPC_Init(void)
            <Const 0x21562 0x2190a.4>                        Δ-4                {[##137482]}
            <Call 0x21564 0x1052c>                                              {[##137482]}
                IPC_GetString(VAR retval : String)
            <POP 2156a-2156c StackAdj>                       Δ+4                {}
            <Const 0x2156c 0x2190e.4>                        Δ-4                {[##137486]}
            <Call 0x2156e 0x10526>                                              {[##137486]}
                IPC_GetBool() : Bool
            <POP 21570-21572 StackAdj>                       Δ+4                {}
            <Const 0x21572 0x2190f.4>                        Δ-4                {[##137487]}
            <Call 0x21574 0x10526>                                              {[##137487]}
                IPC_GetBool() : Bool
            <POP 21576-21578 StackAdj>                       Δ+4                {}
            <Const 0x21578 0x21910.4>                        Δ-4                {[##137488]}
            <Call 0x2157a 0x10526>                                              {[##137488]}
                IPC_GetBool() : Bool
            <POP 2157c-2157e StackAdj>                       Δ+4                {}
            <Call 0x2157e 0x1051a>                                              {}
                IPC_GetEnd(void)
            <Blob 0x21584 [4] 0x2190a>                       Δ-4                {[«4»]}
            <Blob 0x21586 [2] 0x2190e>                       Δ-2                {[«4»]|[«2»]}
            <Blob 0x21588 [2] 0x2190f>                       Δ-2                {[«4»]|[«2»]|[«2»]}
            <Blob 0x2158a [2] 0x21910>                       Δ-2                {[«4»]|[«2»]|[«2»]|[«2»]}
            <Call 0x2158c 0x2137a>                                              {[«4»]|[«2»]|[«2»]|[«2»]}
            <POP 21590-21594 StackAdj>                       Δ+10               {}
            <Call 0x21594 0x10538>                                              {}
                IPC_Init(void)
            <Const 0x2159a 0x1.2>                            Δ-2                {[#1]}
            <Call 0x2159e 0x10502>                                              {[#1]}
                IPC_PutBool(a : Bool)
            <POP 215a4-215a6 StackAdj>                       Δ+2                {}
            <Call 0x215a6 0x10514>                                              {}
                IPC_PutEnd(void)
            <MI 215ac  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x215ae 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x215b2 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 215b8-215ba StackAdj>                       Δ+6                {}
        <POP 215ba-215c0 Naked>                              Σ0         
            <Call 0x215ba 0x10284>                                              {}
                ?exit

0x216f0


@ 216f0
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 216f0-21758 Body>                                              
        <POP 216f0-21706 Prologue>                           Σ0         ↓
        <POP 21706-21750 Naked>                              Σ0         ↓
            <Blob 0x21706 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x21712 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 21716-21718 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x21718 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 2172a-2172c StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 2172c  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 21730  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 21732  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 21734  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x21736 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 2173c-2173e StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x2173e 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21744-21746 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x21746 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 2174c-21750 StackAdj>                       Δ+20               {}
        <POP 21750-21758 Epilogue>                           Σ0         

0x217ac


@ 217ac
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 217ac-218e8 Body>                                              
        <POP 217ac-217c2 Prologue>                           Σ0         ↓
        <POP 217c2-217d8 RegCacheLoad>                       Σ0         ↓
        <POP 217d8-21838 Naked>                              Σ0         ↓ →0x21880
            <Call 0x217d8 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x217de [18] @>                            Δ-18               {[«18""»]}
            <POP 217ea-217ec StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x217ec 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x217f8 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 217fa-217fb StackAdj>                       Δ+22       ↓       {}
            <Blob 0x217fb [14] @>                            Δ-14               {[«14""»]}
            <POP 2180a-2180c StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x2180c 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 21816-21818 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 21818  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x2181c 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 21822-21824 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x21824 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2182a-2182c StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x2182c 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2182e-21830 StackAdj>                       Δ+18               {}
            <MI 21830  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21834  CMPA.W  #0x01,A0>                                        {}
            <MI 21836  BEQ     0x21880>                                         {}
        <POP 21838-21880 Naked>                              Σ0         ↓
            <Blob 0x21838 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x21848 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 21858-2185a StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x2185a 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 21864-21866 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x21866>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x21866 12>                      Δ-4        
                <Const 0x2186a 0x1.2>                        Δ-2        
                <Const 0x2186c 0x1e.2>                       Δ-2        
                <Call 0x2186e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21870-21872 StackAdj>                   Δ+8        
            <Call 0x21872 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 21878-2187a StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x2187a 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2187c-21880 StackAdj>                       Δ+48               {}
        <POP 21880-218e0 Naked>                              Σ0         ↓ ←0x217d8
            <Blob 0x21880 [14] @>                            Δ-14               {[«14""»]}
            <POP 21890-21892 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x21892 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 2189c-2189e StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 2189e  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x218a2 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 218a8-218aa StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x218aa 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 218b0-218b2 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x218b2 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 218b4-218b5 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x218b5 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x218c4 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 218c8-218ca StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x218ca 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x218d8 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 218de-218e0 StackAdj>                       Δ+30               {}
        <POP 218e0-218e8 Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   import ident.26adbd2fa5860e7d
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 15 18              |        |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 19 24              |   $    |		.PTR	0x21924
00020010					code.end:
00020010 00 02 18 e8              |        |		.PTR	0x218e8
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 16 f0              |        |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 17 ac              |        |		.CODE	EXP_FAIL
00020020 00 00 00 00              |        |		.CONST	0x00000000
00020024					exp_init_done:
00020024 00                       |        |		.CONST	0x00
00020025 00                       |        |		.CONST	0x00
00020026 00 00                    |        |		.CONST	0x0000
00020028 00 00                    |        |		.CONST	0x0000
0002002a 00 00                    |        |		.XXX[0x2]
0002002c 00 00                    |        |		.CONST	0x0000
0002002e 00 00                    |        |		.CONST	0x0000
00020030 00 00                    |        |		.CONST	0x0000
00020032 00 00 00 00 00 00        |        |		.XXX[0x6]
00020038 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0xb0]
000200e8 00 00 00 00              |        |		.XXX[0x4]
000200ec 00 00 00 00              |        |		.PTR	0x0
000200f0					is_open_ERROR_LOG:
000200f0 00                       |        |		.CONST	0x0
000200f1					write_error_ERROR_LOG:
000200f1 00                       |        |		.CONST	0x0
000200f2 00 00 00 00              |        |		.CONST	0x00000000
000200f6 00 00 00 00              |        |		.CONST	0x00000000
000200fa 00                       |        |		.CONST	0x00
000200fb 00                       |        |		.CONST	0x00
000200fc					file_ERROR_LOG:
000200fc 00 00 00 00              |        |		.CONST	0x00000000
00020100 00 00 00 00              |        |		.CONST	0x00000000
00020104 00 00                    |        |		.CONST	0x0000
00020106 00 00                    |        |		.CONST	0x0000
00020108					somekindoffsflag:
00020108 00                       |        |		.CONST	0x00
00020109 00                       |        |		.CONST	0x00
0002010a 40 28 23 29 44 42        |@(#)DB  |		.XXX[0x6]
00020110 55 53 55 4c 4f 41 44 2c  |USULOAD,|		.XXX[0x18]
00020118 31 2e 32 2c 39 32 2f 30  |1.2,92/0|
00020120 38 2f 32 36 2c 31 32 3a  |8/26,12:|
00020128 30 30 3a 30 30 5c        |00:00\  |		.XXX[0x6]
0002012e 4d 69 63 72 6f 63 6f 64  |Microcod|		.TXT	'Microcode is not for this type of processor.'
0002015a 4d 69 63 72 6f 63 6f 64  |Microcod|		.TXT	'Microcode file size is inconsistent.'
0002017e 20 20 4c 6f 61 64 69 6e  |  Loadin|		.TXT	'  Loading from file_'
00020192 20 20 62 6f 75 6e 64 20  |  bound |		.TXT	'  bound on_ '
0002019e 4c 41 53 54 5f 55 43 4f  |LAST_UCO|		.TXT	'LAST_UCODE'
000201a8 4c 41 53 54 5f 55 43 4f  |LAST_UCO|		.TXT	'LAST_UCODE'
000201b2 5f 32 30 30              |_200    |		.TXT	'_200'
000201b6 2e 54 59 50              |.TYP    |		.TXT	'.TYP'
000201ba 5f 32 30 30              |_200    |		.TXT	'_200'
000201be 2e 56 41 4c              |.VAL    |		.TXT	'.VAL'
000201c2 5f 32 30 30              |_200    |		.TXT	'_200'
000201c6 2e 46 49 55              |.FIU    |		.TXT	'.FIU'
000201ca 5f 32 30 30              |_200    |		.TXT	'_200'
000201ce 2e 53 45 51              |.SEQ    |		.TXT	'.SEQ'
000201d2 5f 32 30 30              |_200    |		.TXT	'_200'
000201d6 2e 49 4f 43              |.IOC    |		.TXT	'.IOC'
000201da 4c 4f 41 44 5f 52 45 47  |LOAD_REG|		.TXT	'LOAD_REGISTER_FILE'
000201ec 2e 20                    |.       |		.TXT	'. '
000201ee 4c 4f 41 44 5f 52 45 47  |LOAD_REG|		.TXT	'LOAD_REGISTER_FILE'
00020200 4c 4f 41 44 5f 44 49 53  |LOAD_DIS|		.TXT	'LOAD_DISPATCH_RAMS'
00020212 2e 20                    |.       |		.TXT	'. '
00020214 4c 4f 41 44 5f 43 4f 4e  |LOAD_CON|		.TXT	'LOAD_CONTROL_STORE'
00020226 2e 20                    |.       |		.TXT	'. '
00020228 20 20 4c 6f 61 64 69 6e  |  Loadin|		.TXT	'  Loading Register Files and Dispatch Rams_ '
00020254 20 5b 4f 4b 5d 20        | [OK]   |		.TXT	' [OK] '
0002025a 20 20 4c 6f 61 64 69 6e  |  Loadin|		.TXT	'  Loading Register Files_ '
00020274 20 5b 4f 4b              | [OK    |		.XXX[0x4]
00020278 5d 20                    |]       |		.XXX[0x2]
0002027a 20 20 4c 6f 61 64 69 6e  |  Loadin|		.TXT	'  Loading Control Store_'
00020292 20 5b 4f 4b 5d 20        | [OK]   |		.TXT	' [OK] '
00020298					board_id_list:
00020298 06 07 03 02 04 00        |        |		.CONST	0x6,0x7,0x3,0x2,0x4,0x0
0002029e ; --------------------------------------------------------------------------------------
0002029e ; OMSI PASCAL Function
0002029e ;    <LVAR  0x00c 4(r)>
0002029e ;    <LVAR  0x008 4(rw)>
0002029e ; --------------------------------------------------------------------------------------
0002029e 4e 56 ff d6              |NV      |		LINK.W	A6,#0xffd6
000202a2 bf d5                    |        |		CMPA.L	(A5),A7
000202a4 62 06                    |b       |		BHI	0x202ac
000202a6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000202aa 4e 76                    |Nv      |		TRAPV
000202ac de fc 00 22              |   "    |		ADDA.W	#0x22,A7
000202b0 48 e7 db 00              |H       |		MOVEM.L	D7+D6+D4+D3+D1+D0,-(A7)
000202b4 7c 00                    ||       |		MOVEQ.L	#0x00,D6
000202b6 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
000202ba 0c 80 00 00 01 ff        |        |		CMPI.L	#0x000001ff,D0
000202c0 63 02                    |c       |		BLS	0x202c4
000202c2 4e 4f                    |NO      |		TRAP	#15
000202c4 e3 80                    |        |		ASL.L	#0x1,D0
000202c6 42 81                    |B       |		CLR.L	D1
000202c8 32 34 08 00              |24      |		MOVE.W	(A4+D0.L),D1
000202cc 2e 01                    |.       |		MOVE.L	D1,D7
000202ce 4a 06                    |J       |		TST.B	D6
000202d0 67 06                    |g       |		BEQ	0x202d8
000202d2 52 ae 00 08              |R       |		ADDQ.L	#0x1,(A6+0x8)
000202d6 60 10                    |`       |		BRA	0x202e8
000202d8 28 07                    |(       |		MOVE.L	D7,D4
000202da 26 3c 00 00 01 00        |&<      |		MOVE.L	#0x100,D3
000202e0 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
000202e6 2e 04                    |.       |		MOVE.L	D4,D7
000202e8 02 87 00 00 00 ff        |        |		ANDI.L	#0x000000ff,D7
000202ee 44 06                    |D       |		NEG.B	D6
000202f0 52 06                    |R       |		ADDQ.B	#0x1,D6
000202f2 4a 87                    |J       |		TST.L	D7
000202f4 67 18                    |g       |		BEQ	0x2030e
000202f6 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
000202fa 0c 87 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D7
00020300 63 02                    |c       |		BLS	0x20304
00020302 4e 4f                    |NO      |		TRAP	#15
00020304 1f 07                    |        |		MOVE.B	D7,-(A7)
00020306 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
0002030c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002030e 4a 87                    |J       |		TST.L	D7
00020310 66 a4                    |f       |		BNE	0x202b6
00020312 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00020316 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002031c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002031e 4c df 00 db              |L       |		MOVEM.L	(A7)+,D0+D1+D3+D4+D6+D7
00020322 4e 5e                    |N^      |		UNLK	A6
00020324 4e 75                    |Nu      |		RTS
00020326 ; --------------------------------------------------------------------------------------
00020326 ; OMSI PASCAL Function
00020326 ;    <LVAR  0x018 4(r)>
00020326 ;    <LVAR  0x014 4(r)>
00020326 ;    <LVAR  0x010 4(r)>
00020326 ;    <LVAR  0x00c 4(r)>
00020326 ;    <LVAR  0x008 4(r)>
00020326 ;    <LVAR -0x006 @ 4(r)>
00020326 ;    <LVAR -0x00a @ 4(r)>
00020326 ;    <LVAR -0x010 @ 1(r)>
00020326 ;    <LVAR -0x40c 2(r)>
00020326 ;    <LVAR -0x40e 2(r)>
00020326 ;    <LVAR -0x410 @ 2(r)>
00020326 ; --------------------------------------------------------------------------------------
00020326 4e 56 fb 72              |NV r    |		LINK.W	A6,#0xfb72
0002032a bf d5                    |        |		CMPA.L	(A5),A7
0002032c 62 06                    |b       |		BHI	0x20334
0002032e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020332 4e 76                    |Nv      |		TRAPV
00020334 de fc 00 7e              |   ~    |		ADDA.W	#0x7e,A7
00020338 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002033c 45 ee ff f0              |E       |		LEA.L	(A6-0x10),A2
00020340 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00020346 74 01                    |t       |		MOVEQ.L	#0x01,D2
00020348 7a 02                    |z       |		MOVEQ.L	#0x02,D5
0002034a 7c 14                    ||       |		MOVEQ.L	#0x14,D6
0002034c 20 6e 00 10              | n      |		MOVEA.L	(A6+0x10),A0
00020350 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020352 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
00020356 42 27                    |B'      |		CLR.B	-(A7)
00020358 1f 05                    |        |		MOVE.B	D5,-(A7)
0002035a 48 78 00 00              |Hx      |		PEA.L	0x0
0002035e 48 52                    |HR      |		PEA.L	(A2)
00020360 48 50                    |HP      |		PEA.L	(A0)
00020362 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020368 de c6                    |        |		ADDA.W	D6,A7
0002036a 22 50                    |"P      |		MOVEA.L	(A0),A1
0002036c 30 29 00 20              |0)      |		MOVE.W	(A1+0x20),D0
00020370 48 c0                    |H       |		EXTW.L	D0
00020372 2e 00                    |.       |		MOVE.L	D0,D7
00020374 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00020376 42 67                    |Bg      |		CLR.W	-(A7)
00020378 42 67                    |Bg      |		CLR.W	-(A7)
0002037a 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
0002037e 1f 05                    |        |		MOVE.B	D5,-(A7)
00020380 43 ee fb f0              |C       |		LEA.L	(A6-0x410),A1
00020384 2f 09                    |/       |		MOVE.L	A1,-(A7)
00020386 48 52                    |HR      |		PEA.L	(A2)
00020388 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
0002038e de c6                    |        |		ADDA.W	D6,A7
00020390 22 6e 00 0c              |"n      |		MOVEA.L	(A6+0xc),A1
00020394 42 80                    |B       |		CLR.L	D0
00020396 30 2e fb f0              |0.      |		MOVE.W	(A6-0x410),D0
0002039a 22 80                    |"       |		MOVE.L	D0,(A1)
0002039c 22 6e 00 08              |"n      |		MOVEA.L	(A6+0x8),A1
000203a0 32 2e fb f2              |2.      |		MOVE.W	(A6-0x40e),D1
000203a4 e0 49                    | I      |		LSR.W	#0x8,D1
000203a6 12 81                    |        |		MOVE.B	D1,(A1)
000203a8 32 2e fb f2              |2.      |		MOVE.W	(A6-0x40e),D1
000203ac 02 41 00 ff              | A      |		ANDI.W	#0x00ff,D1
000203b0 43 bc 00 ff              |C       |		CHK.W	#0xff,D1
000203b4 13 41 00 01              | A      |		MOVE.B	D1,(A1+0x1)
000203b8 32 2e fb f4              |2.      |		MOVE.W	(A6-0x40c),D1
000203bc 0c 41 00 c8              | A      |		CMPI.W	#0x00c8,D1
000203c0 67 2a                    |g*      |		BEQ	0x203ec
000203c2 41 fa fd 96              |A       |		LEA.L	0x2015a,A0
000203c6 72 0a                    |r       |		MOVEQ.L	#0x0a,D1
000203c8 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000203ca 51 c9 ff fc              |Q       |		DBF	D1,0x203c8
000203ce 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
000203d2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000203d4 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000203d8 3f 02                    |?       |		MOVE.W	D2,-(A7)
000203da 3f 3c 00 2c              |?< ,    |		MOVE.W	#0x2c,-(A7)
000203de 4e 93                    |N       |		JSR	(A3)
000203e0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000203e2 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000203e8 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000203ec 22 07                    |"       |		MOVE.L	D7,D1
000203ee 04 81 00 00 00 29        |     )  |		SUBI.L	#0x00000029,D1
000203f4 28 00                    |(       |		MOVE.L	D0,D4
000203f6 76 20                    |v       |		MOVEQ.L	#0x20,D3
000203f8 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
000203fe b2 84                    |        |		CMP.L	D4,D1
00020400 67 2a                    |g*      |		BEQ	0x2042c
00020402 41 fa fd 7a              |A  z    |		LEA.L	0x2017e,A0
00020406 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020408 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002040a 51 c8 ff fc              |Q       |		DBF	D0,0x20408
0002040e 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00020412 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020414 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020418 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002041a 3f 3c 00 24              |?< $    |		MOVE.W	#0x24,-(A7)
0002041e 4e 93                    |N       |		JSR	(A3)
00020420 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020422 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020428 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
0002042c 41 fa fd 64              |A  d    |		LEA.L	0x20192,A0
00020430 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020432 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020434 51 c8 ff fc              |Q       |		DBF	D0,0x20432
00020438 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002043a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002043e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020440 3f 06                    |?       |		MOVE.W	D6,-(A7)
00020442 4e 93                    |N       |		JSR	(A3)
00020444 2e ae 00 18              |.       |		MOVE.L	(A6+0x18),(A7)
00020448 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
0002044e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020450 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020456 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020458 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
0002045e de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020462 20 4f                    | O      |		MOVEA.L	A7,A0
00020464 43 fa fd 2c              |C  ,    |		LEA.L	0x20192,A1
00020468 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002046a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002046c 51 c8 ff fc              |Q       |		DBF	D0,0x2046a
00020470 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020472 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020476 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020478 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
0002047c 4e 93                    |N       |		JSR	(A3)
0002047e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020480 48 78 00 04              |Hx      |		PEA.L	0x4
00020484 49 ee fb f0              |I       |		LEA.L	(A6-0x410),A4
00020488 4e ba fe 14              |N       |		JSR	0x2029e
0002048c de c6                    |        |		ADDA.W	D6,A7
0002048e 41 fa fd 18              |A       |		LEA.L	0x201a8,A0
00020492 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020494 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020496 51 c8 ff fc              |Q       |		DBF	D0,0x20494
0002049a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002049c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000204a0 3f 02                    |?       |		MOVE.W	D2,-(A7)
000204a2 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
000204a6 4e 93                    |N       |		JSR	(A3)
000204a8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000204aa 42 17                    |B       |		CLR.B	(A7)
000204ac 42 27                    |B'      |		CLR.B	-(A7)
000204ae 48 78 00 00              |Hx      |		PEA.L	0x0
000204b2 48 52                    |HR      |		PEA.L	(A2)
000204b4 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
000204b8 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000204be de fc 00 1e              |        |		ADDA.W	#0x1e,A7
000204c2 4a 12                    |J       |		TST.B	(A2)
000204c4 67 0a                    |g       |		BEQ	0x204d0
000204c6 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
000204ca 10 82                    |        |		MOVE.B	D2,(A0)
000204cc 60 00 00 be              |`       |		BRA	0x2058c
000204d0 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
000204d4 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000204da 2e ae ff fa              |.       |		MOVE.L	(A6-0x6),(A7)
000204de 42 67                    |Bg      |		CLR.W	-(A7)
000204e0 42 67                    |Bg      |		CLR.W	-(A7)
000204e2 3f 3c 00 40              |?< @    |		MOVE.W	#0x40,-(A7)
000204e6 1f 05                    |        |		MOVE.B	D5,-(A7)
000204e8 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
000204ec 48 52                    |HR      |		PEA.L	(A2)
000204ee 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
000204f4 de c6                    |        |		ADDA.W	D6,A7
000204f6 20 57                    | W      |		MOVEA.L	(A7),A0
000204f8 20 50                    | P      |		MOVEA.L	(A0),A0
000204fa 22 6e ff fa              |"n      |		MOVEA.L	(A6-0x6),A1
000204fe 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020500 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
00020504 2f 2e 00 18              |/.      |		MOVE.L	(A6+0x18),-(A7)
00020508 4e b9 00 01 02 c8        |N       |		JSR	StringEqual(a, b : String) : Byte
0002050e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020510 4a 1f                    |J       |		TST.B	(A7)+
00020512 67 4e                    |gN      |		BEQ	0x20562
00020514 42 80                    |B       |		CLR.L	D0
00020516 10 28 00 3c              | ( <    |		MOVE.B	(A0+0x3c),D0
0002051a e2 08                    |        |		LSR.B	#0x1,D0
0002051c 42 81                    |B       |		CLR.L	D1
0002051e 12 29 00 3c              | ) <    |		MOVE.B	(A1+0x3c),D1
00020522 e2 09                    |        |		LSR.B	#0x1,D1
00020524 b0 41                    | A      |		CMP.W	D1,D0
00020526 66 3a                    |f:      |		BNE	0x20562
00020528 30 28 00 3c              |0( <    |		MOVE.W	(A0+0x3c),D0
0002052c ef 48                    | H      |		LSL.W	#0x7,D0
0002052e e0 48                    | H      |		LSR.W	#0x8,D0
00020530 e8 48                    | H      |		LSR.W	#0x4,D0
00020532 32 29 00 3c              |2) <    |		MOVE.W	(A1+0x3c),D1
00020536 ef 49                    | I      |		LSL.W	#0x7,D1
00020538 e0 49                    | I      |		LSR.W	#0x8,D1
0002053a e8 49                    | I      |		LSR.W	#0x4,D1
0002053c b0 41                    | A      |		CMP.W	D1,D0
0002053e 66 22                    |f"      |		BNE	0x20562
00020540 42 80                    |B       |		CLR.L	D0
00020542 10 28 00 3d              | ( =    |		MOVE.B	(A0+0x3d),D0
00020546 e7 08                    |        |		LSL.B	#0x3,D0
00020548 e6 08                    |        |		LSR.B	#0x3,D0
0002054a 42 81                    |B       |		CLR.L	D1
0002054c 12 29 00 3d              | ) =    |		MOVE.B	(A1+0x3d),D1
00020550 e7 09                    |        |		LSL.B	#0x3,D1
00020552 e6 09                    |        |		LSR.B	#0x3,D1
00020554 b0 41                    | A      |		CMP.W	D1,D0
00020556 66 0a                    |f       |		BNE	0x20562
00020558 30 28 00 3a              |0( :    |		MOVE.W	(A0+0x3a),D0
0002055c b0 69 00 3a              | i :    |		CMP.W	(A1+0x3a),D0
00020560 67 06                    |g       |		BEQ	0x20568
00020562 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00020566 10 82                    |        |		MOVE.B	D2,(A0)
00020568 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
0002056c 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020572 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020574 1e 85                    |        |		MOVE.B	D5,(A7)
00020576 1f 05                    |        |		MOVE.B	D5,-(A7)
00020578 48 78 00 01              |Hx      |		PEA.L	0x1
0002057c 48 52                    |HR      |		PEA.L	(A2)
0002057e 48 6e ff fa              |Hn      |		PEA.L	(A6-0x6)
00020582 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020588 de fc 00 10              |        |		ADDA.W	#0x10,A7
0002058c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002058e 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020592 4e 5e                    |N^      |		UNLK	A6
00020594 4e 75                    |Nu      |		RTS
00020596 ; --------------------------------------------------------------------------------------
00020596 ; OMSI PASCAL Function
00020596 ;    <LVAR  0x008 4(r)>
00020596 ;    <LVAR -0x004 @>
00020596 ;    <LVAR -0x008 @ 4(r)>
00020596 ;    <LVAR -0x00c @ 4(rw)>
00020596 ;    <LVAR -0x010 @ 4(rw)>
00020596 ; --------------------------------------------------------------------------------------
00020596 4e 56 ff 92              |NV      |		LINK.W	A6,#0xff92
0002059a bf d5                    |        |		CMPA.L	(A5),A7
0002059c 62 06                    |b       |		BHI	0x205a4
0002059e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000205a2 4e 76                    |Nv      |		TRAPV
000205a4 de fc 00 5e              |   ^    |		ADDA.W	#0x5e,A7
000205a8 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000205ac 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
000205b0 49 ee ff f0              |I       |		LEA.L	(A6-0x10),A4
000205b4 72 01                    |r       |		MOVEQ.L	#0x01,D1
000205b6 74 02                    |t       |		MOVEQ.L	#0x02,D2
000205b8 76 0a                    |v       |		MOVEQ.L	#0x0a,D3
000205ba 78 1e                    |x       |		MOVEQ.L	#0x1e,D4
000205bc 7a 10                    |z       |		MOVEQ.L	#0x10,D5
000205be 41 fa fb f2              |A       |		LEA.L	0x201b2,A0
000205c2 70 04                    |p       |		MOVEQ.L	#0x04,D0
000205c4 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000205c6 51 c8 ff fc              |Q       |		DBF	D0,0x205c4
000205ca 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000205cc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000205d0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000205d2 3f 03                    |?       |		MOVE.W	D3,-(A7)
000205d4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000205da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000205dc 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
000205de de c3                    |        |		ADDA.W	D3,A7
000205e0 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000205e4 9e c4                    |        |		SUBA.W	D4,A7
000205e6 22 4f                    |"O      |		MOVEA.L	A7,A1
000205e8 24 48                    |$H      |		MOVEA.L	A0,A2
000205ea 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000205ec 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000205ee 51 c8 ff fc              |Q       |		DBF	D0,0x205ec
000205f2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000205f4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000205f8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000205fa 3f 04                    |?       |		MOVE.W	D4,-(A7)
000205fc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020602 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020604 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
00020608 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
0002060c 2e 94                    |.       |		MOVE.L	(A4),(A7)
0002060e 1f 01                    |        |		MOVE.B	D1,-(A7)
00020610 1f 02                    |        |		MOVE.B	D2,-(A7)
00020612 48 78 00 01              |Hx      |		PEA.L	0x1
00020616 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002061a 48 53                    |HS      |		PEA.L	(A3)
0002061c 4e b9 00 01 03 80        |N       |		JSR	OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00020622 de c5                    |        |		ADDA.W	D5,A7
00020624 2e 93                    |.       |		MOVE.L	(A3),(A7)
00020626 42 67                    |Bg      |		CLR.W	-(A7)
00020628 42 67                    |Bg      |		CLR.W	-(A7)
0002062a 3f 3c 00 40              |?< @    |		MOVE.W	#0x40,-(A7)
0002062e 1f 02                    |        |		MOVE.B	D2,-(A7)
00020630 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
00020634 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020638 4e b9 00 01 03 88        |N       |		JSR	WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
0002063e de fc 00 14              |        |		ADDA.W	#0x14,A7
00020642 22 53                    |"S      |		MOVEA.L	(A3),A1
00020644 13 68 00 3a 00 3a        | h : :  |		MOVE.B	(A0+0x3a),(A1+0x3a)
0002064a 13 68 00 3b 00 3b        | h ; ;  |		MOVE.B	(A0+0x3b),(A1+0x3b)
00020650 13 68 00 3c 00 3c        | h < <  |		MOVE.B	(A0+0x3c),(A1+0x3c)
00020656 13 68 00 3d 00 3d        | h = =  |		MOVE.B	(A0+0x3d),(A1+0x3d)
0002065c 13 41 00 4c              | A L    |		MOVE.B	D1,(A1+0x4c)
00020660 42 27                    |B'      |		CLR.B	-(A7)
00020662 1f 02                    |        |		MOVE.B	D2,-(A7)
00020664 48 78 00 01              |Hx      |		PEA.L	0x1
00020668 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002066c 48 53                    |HS      |		PEA.L	(A3)
0002066e 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
00020674 de c5                    |        |		ADDA.W	D5,A7
00020676 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
0002067a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020680 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020682 48 54                    |HT      |		PEA.L	(A4)
00020684 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002068a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002068c 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00020690 4e 5e                    |N^      |		UNLK	A6
00020692 4e 75                    |Nu      |		RTS
00020694 ; --------------------------------------------------------------------------------------
00020694 ; OMSI PASCAL Function
00020694 ;    <LVAR  0x00c @ 4(r)>
00020694 ;    <LVAR  0x00a 1(r)>
00020694 ;    <LVAR  0x008 1(r)>
00020694 ; --------------------------------------------------------------------------------------
00020694 4e 56 ff ba              |NV      |		LINK.W	A6,#0xffba
00020698 bf d5                    |        |		CMPA.L	(A5),A7
0002069a 62 06                    |b       |		BHI	0x206a2
0002069c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000206a0 4e 76                    |Nv      |		TRAPV
000206a2 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
000206a6 48 e7 c1 d8              |H       |		MOVEM.L	A4+A3+A1+A0+D7+D1+D0,-(A7)
000206aa 43 f9 00 02 18 e8        |C       |		LEA.L	0x218e8,A1
000206b0 72 01                    |r       |		MOVEQ.L	#0x01,D1
000206b2 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000206b6 1e 2e 00 0a              | .      |		MOVE.B	(A6+0xa),D7
000206ba be 17                    |        |		CMP.B	(A7),D7
000206bc 6e 00 00 ac              |n       |		BGT	0x2076a
000206c0 10 07                    |        |		MOVE.B	D7,D0
000206c2 48 80                    |H       |		EXTB.W	D0
000206c4 0c 40 00 04              | @      |		CMPI.W	#0x0004,D0
000206c8 63 02                    |c       |		BLS	0x206cc
000206ca 4e 4e                    |NN      |		TRAP	#14
000206cc d0 40                    | @      |		ADD.W	D0,D0
000206ce 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
000206d6 00 0a                    |        |		.CONST	0xa			; [0x0] -> 0x206e0
000206d8 00 14                    |        |		.CONST	0x14			; [0x1] -> 0x206ea
000206da 00 1e                    |        |		.CONST	0x1e			; [0x2] -> 0x206f4
000206dc 00 28                    | (      |		.CONST	0x28			; [0x3] -> 0x206fe
000206de 00 32                    | 2      |		.CONST	0x32			; [0x4] -> 0x20708
000206e0					switch@0x206ce[0x0]:
000206e0 2f 3a fa d4              |/:      |		MOVE.L	0x201b6,-(A7)
000206e4 2f 3a fa cc              |/:      |		MOVE.L	0x201b2,-(A7)
000206e8 60 26                    |`&      |		BRA	0x20710
000206ea					switch@0x206ce[0x1]:
000206ea 2f 3a fa d2              |/:      |		MOVE.L	0x201be,-(A7)
000206ee 2f 3a fa ca              |/:      |		MOVE.L	0x201ba,-(A7)
000206f2 60 1c                    |`       |		BRA	0x20710
000206f4					switch@0x206ce[0x2]:
000206f4 2f 3a fa d0              |/:      |		MOVE.L	0x201c6,-(A7)
000206f8 2f 3a fa c8              |/:      |		MOVE.L	0x201c2,-(A7)
000206fc 60 12                    |`       |		BRA	0x20710
000206fe					switch@0x206ce[0x3]:
000206fe 2f 3a fa ce              |/:      |		MOVE.L	0x201ce,-(A7)
00020702 2f 3a fa c6              |/:      |		MOVE.L	0x201ca,-(A7)
00020706 60 08                    |`       |		BRA	0x20710
00020708					switch@0x206ce[0x4]:
00020708 2f 3a fa cc              |/:      |		MOVE.L	0x201d6,-(A7)
0002070c 2f 3a fa c4              |/:      |		MOVE.L	0x201d2,-(A7)
00020710 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020712 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020716 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020718 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
0002071c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020722 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020724 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00020726 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020728 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002072a 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
0002072e 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00020734 2e 8c                    |.       |		MOVE.L	A4,(A7)
00020736 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002073c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002073e 26 5f                    |&_      |		MOVEA.L	(A7)+,A3
00020740 2f 0b                    |/       |		MOVE.L	A3,-(A7)
00020742 10 07                    |        |		MOVE.B	D7,D0
00020744 48 80                    |H       |		EXTB.W	D0
00020746 e5 40                    | @      |		ASL.W	#0x2,D0
00020748 20 49                    | I      |		MOVEA.L	A1,A0
0002074a 48 70 00 08              |Hp      |		PEA.L	(A0+D0.W+#0x8)
0002074e 4e b9 00 01 04 60        |N    `  |		JSR	ExpLoad(a : String; b: Pointer)
00020754 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020756 10 07                    |        |		MOVE.B	D7,D0
00020758 48 80                    |H       |		EXTB.W	D0
0002075a 3f 00                    |?       |		MOVE.W	D0,-(A7)
0002075c 20 49                    | I      |		MOVEA.L	A1,A0
0002075e 11 81 00 1c              |        |		MOVE.B	D1,(A0+D0.W+#0x1c)
00020762 3e 1f                    |>       |		MOVE.W	(A7)+,D7
00020764 52 47                    |RG      |		ADDQ.W	#0x1,D7
00020766 68 00 ff 52              |h  R    |		BVC	0x206ba
0002076a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002076c 48 6e 00 0c              |Hn      |		PEA.L	(A6+0xc)
00020770 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020776 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020778 4c df 1b 83              |L       |		MOVEM.L	(A7)+,D0+D1+D7+A0+A1+A3+A4
0002077c 4e 5e                    |N^      |		UNLK	A6
0002077e 4e 75                    |Nu      |		RTS
00020780 ; --------------------------------------------------------------------------------------
00020780 ; OMSI PASCAL Function
00020780 ;    <LVAR  0x008 1(r)>
00020780 ;    <LVAR -0x004 @ 1(rw)>
00020780 ;    <LVAR -0x006 @ 1(r)>
00020780 ;    <LVAR -0x007 @>
00020780 ; --------------------------------------------------------------------------------------
00020780 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
00020784 bf d5                    |        |		CMPA.L	(A5),A7
00020786 62 06                    |b       |		BHI	0x2078e
00020788 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002078c 4e 76                    |Nv      |		TRAPV
0002078e de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00020792 48 e7 e3 e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D2+D1+D0,-(A7)
00020796 43 ee ff fc              |C       |		LEA.L	(A6-0x4),A1
0002079a 45 ee ff fa              |E       |		LEA.L	(A6-0x6),A2
0002079e 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
000207a0 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000207a4 48 80                    |H       |		EXTB.W	D0
000207a6 41 fa fa f0              |A       |		LEA.L	board_id_list,A0
000207aa 1c 30 00 00              | 0      |		MOVE.B	(A0+D0.W),D6
000207ae 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000207b0 1f 06                    |        |		MOVE.B	D6,-(A7)
000207b2 48 51                    |HQ      |		PEA.L	(A1)
000207b4 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
000207b8 48 52                    |HR      |		PEA.L	(A2)
000207ba 4e b9 00 01 04 84        |N       |		JSR	DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
000207c0 de c2                    |        |		ADDA.W	D2,A7
000207c2 4a 12                    |J       |		TST.B	(A2)
000207c4 66 06                    |f       |		BNE	0x207cc
000207c6 12 bc 00 04              |        |		MOVE.B	#0x04,(A1)
000207ca 60 3e                    |`>      |		BRA	0x2080a
000207cc 10 11                    |        |		MOVE.B	(A1),D0
000207ce 0c 00 00 06              |        |		CMPI.B	#0x06,D0
000207d2 66 36                    |f6      |		BNE	0x2080a
000207d4 4a 47                    |JG      |		TST.W	D7
000207d6 67 32                    |g2      |		BEQ	0x2080a
000207d8 42 80                    |B       |		CLR.L	D0
000207da 30 07                    |0       |		MOVE.W	D7,D0
000207dc 52 80                    |R       |		ADDQ.L	#0x1,D0
000207de 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000207e4 63 02                    |c       |		BLS	0x207e8
000207e6 4e 4f                    |NO      |		TRAP	#15
000207e8 3e 00                    |>       |		MOVE.W	D0,D7
000207ea 48 78 00 27              |Hx '    |		PEA.L	0x27
000207ee 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
000207f4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000207f6 1e 86                    |        |		MOVE.B	D6,(A7)
000207f8 48 51                    |HQ      |		PEA.L	(A1)
000207fa 48 6e ff f9              |Hn      |		PEA.L	(A6-0x7)
000207fe 48 52                    |HR      |		PEA.L	(A2)
00020800 4e b9 00 01 04 84        |N       |		JSR	DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
00020806 de c2                    |        |		ADDA.W	D2,A7
00020808 60 c2                    |`       |		BRA	0x207cc
0002080a 10 11                    |        |		MOVE.B	(A1),D0
0002080c 0c 00 00 01              |        |		CMPI.B	#0x01,D0
00020810 67 1e                    |g       |		BEQ	0x20830
00020812 1f 06                    |        |		MOVE.B	D6,-(A7)
00020814 12 2e 00 08              | .      |		MOVE.B	(A6+0x8),D1
00020818 48 81                    |H       |		EXTB.W	D1
0002081a e5 41                    | A      |		ASL.W	#0x2,D1
0002081c 41 f9 00 02 18 e8        |A       |		LEA.L	0x218e8,A0
00020822 2f 30 10 08              |/0      |		MOVE.L	(A0+D1.W+#0x8),-(A7)
00020826 1f 00                    |        |		MOVE.B	D0,-(A7)
00020828 4e b9 00 02 17 ac        |N       |		JSR	EXP_FAIL
0002082e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020830 4c df 07 c7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D6+D7+A0+A1+A2
00020834 4e 5e                    |N^      |		UNLK	A6
00020836 4e 75                    |Nu      |		RTS
00020838 ; --------------------------------------------------------------------------------------
00020838 ; OMSI PASCAL Function
00020838 ;    <LVAR  0x008 1(r)>
00020838 ;    <LVAR -0x006 4(rw)>
00020838 ; --------------------------------------------------------------------------------------
00020838 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
0002083c bf d5                    |        |		CMPA.L	(A5),A7
0002083e 62 06                    |b       |		BHI	0x20846
00020840 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020844 4e 76                    |Nv      |		TRAPV
00020846 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
0002084a 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
0002084e 45 f9 00 02 18 e8        |E       |		LEA.L	0x218e8,A2
00020854 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
00020858 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
0002085c 48 80                    |H       |		EXTB.W	D0
0002085e 32 00                    |2       |		MOVE.W	D0,D1
00020860 e5 41                    | A      |		ASL.W	#0x2,D1
00020862 20 4a                    | J      |		MOVEA.L	A2,A0
00020864 43 fa fa 32              |C  2    |		LEA.L	board_id_list,A1
00020868 1f 31 00 00              | 1      |		MOVE.B	(A1+D0.W),-(A7)
0002086c 2f 30 10 08              |/0      |		MOVE.L	(A0+D1.W+#0x8),-(A7)
00020870 4e b9 00 01 04 7e        |N    ~  |		JSR	ExpXmit(adr : Byte; b : Pointer)
00020876 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020878 20 70 10 08              | p      |		MOVEA.L	(A0+D1.W+#0x8),A0
0002087c 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002087e 21 68 00 f8 00 f4        |!h      |		MOVE.L	(A0+0xf8),(A0+0xf4)
00020884 22 4a                    |"J      |		MOVEA.L	A2,A1
00020886 4a 31 00 1c              |J1      |		TST.B	(A1+D0.W+#0x1c)
0002088a 67 3e                    |g>      |		BEQ	0x208ca
0002088c 26 a8 00 f8              |&       |		MOVE.L	(A0+0xf8),(A3)
00020890 20 53                    | S      |		MOVEA.L	(A3),A0
00020892 22 68 00 02              |"h      |		MOVEA.L	(A0+0x2),A1
00020896 b2 fc 00 01              |        |		CMPA.W	#0x1,A1
0002089a 67 04                    |g       |		BEQ	0x208a0
0002089c 26 89                    |&       |		MOVE.L	A1,(A3)
0002089e 60 f0                    |`       |		BRA	0x20890
000208a0 22 57                    |"W      |		MOVEA.L	(A7),A1
000208a2 42 80                    |B       |		CLR.L	D0
000208a4 10 28 00 01              | (      |		MOVE.B	(A0+0x1),D0
000208a8 42 81                    |B       |		CLR.L	D1
000208aa 12 10                    |        |		MOVE.B	(A0),D1
000208ac e5 09                    |        |		LSL.B	#0x2,D1
000208ae e4 09                    |        |		LSR.B	#0x2,D1
000208b0 d2 40                    | @      |		ADD.W	D0,D1
000208b2 04 41 00 10              | A      |		SUBI.W	#0x0010,D1
000208b6 43 bc 00 ff              |C       |		CHK.W	#0xff,D1
000208ba 13 41 00 02              | A      |		MOVE.B	D1,(A1+0x2)
000208be 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000208c2 48 80                    |H       |		EXTB.W	D0
000208c4 20 4a                    | J      |		MOVEA.L	A2,A0
000208c6 42 30 00 1c              |B0      |		CLR.B	(A0+D0.W+#0x1c)
000208ca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000208cc 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
000208d0 4e 5e                    |N^      |		UNLK	A6
000208d2 4e 75                    |Nu      |		RTS
000208d4 ; --------------------------------------------------------------------------------------
000208d4 ; OMSI PASCAL Function
000208d4 ;    <LVAR  0x00a 1(r)>
000208d4 ;    <LVAR  0x008 1(r)>
000208d4 ; --------------------------------------------------------------------------------------
000208d4 4e 56 ff e2              |NV      |		LINK.W	A6,#0xffe2
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 1a              |        |		ADDA.W	#0x1a,A7
000208e6 48 e7 81 80              |H       |		MOVEM.L	A0+D7+D0,-(A7)
000208ea 1f 2e 00 08              | .      |		MOVE.B	(A6+0x8),-(A7)
000208ee 1e 2e 00 0a              | .      |		MOVE.B	(A6+0xa),D7
000208f2 be 17                    |        |		CMP.B	(A7),D7
000208f4 6e 24                    |n$      |		BGT	0x2091a
000208f6 1f 07                    |        |		MOVE.B	D7,-(A7)
000208f8 4e ba fe 86              |N       |		JSR	0x20780
000208fc 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000208fe 10 07                    |        |		MOVE.B	D7,D0
00020900 48 80                    |H       |		EXTB.W	D0
00020902 e5 40                    | @      |		ASL.W	#0x2,D0
00020904 41 f9 00 02 18 e8        |A       |		LEA.L	0x218e8,A0
0002090a 48 70 00 08              |Hp      |		PEA.L	(A0+D0.W+#0x8)
0002090e 4e b9 00 01 04 96        |N       |		JSR	ExpClose(exp : Pointer)
00020914 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020916 52 07                    |R       |		ADDQ.B	#0x1,D7
00020918 68 d8                    |h       |		BVC	0x208f2
0002091a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002091c 4c df 01 81              |L       |		MOVEM.L	(A7)+,D0+D7+A0
00020920 4e 5e                    |N^      |		UNLK	A6
00020922 4e 75                    |Nu      |		RTS
00020924 ; --------------------------------------------------------------------------------------
00020924 ; Load_RegFile_Only()
00020924 ; OMSI PASCAL Function
00020924 ;    <LVAR  0x00a 4(r)>
00020924 ;    <LVAR  0x008 2(r)>
00020924 ;    <LVAR -0x004 4(rw)>
00020924 ;    <LVAR -0x008 4(rw)>
00020924 ;    <LVAR -0xc08 @>
00020924 ;    <LVAR -0xc0e @>
00020924 ;    <LVAR -0xc16 4(rw)>
00020924 ;    <LVAR -0xc22 @>
00020924 ; --------------------------------------------------------------------------------------
00020924					Load_RegFile_Only():
00020924 4e 56 f3 6a              |NV j    |		LINK.W	A6,#0xf36a
00020928 bf d5                    |        |		CMPA.L	(A5),A7
0002092a 62 06                    |b       |		BHI	0x20932
0002092c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020930 4e 76                    |Nv      |		TRAPV
00020932 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00020936 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002093a 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
0002093e 49 f8 00 00              |I       |		LEA.L	0x0,A4
00020942 74 01                    |t       |		MOVEQ.L	#0x01,D2
00020944 26 bc 00 00 00 10        |&       |		MOVE.L	#0x10,(A3)
0002094a 2d 7c 00 00 00 07 ff fc  |-|      |		MOVE.L	#0x7,(A6-0x4)
00020952 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00020956 48 c0                    |H       |		EXTW.L	D0
00020958 2d 40 f3 ea              |-@      |		MOVE.L	D0,(A6-0xc16)
0002095c 4e b9 00 02 16 26        |N    &  |		JSR	exp_PREP_LOAD_REGISTER_FILE.TYP()
00020962 4e b9 00 02 16 72        |N    r  |		JSR	exp_PREP_LOAD_REGISTER_FILE.VAL()
00020968 41 fa f8 82              |A       |		LEA.L	0x201ec,A0
0002096c 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002096e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020970 51 c8 ff fc              |Q       |		DBF	D0,0x2096e
00020974 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020976 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002097a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002097c 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00020980 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020986 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020988 42 17                    |B       |		CLR.B	(A7)
0002098a 1f 02                    |        |		MOVE.B	D2,-(A7)
0002098c 4e ba fd 06              |N       |		JSR	0x20694
00020990 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00020994 70 00                    |p       |		MOVEQ.L	#0x00,D0
00020996 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020998 08 00 00 00              |        |		BTST.L	#0x0,D0
0002099c 67 20                    |g       |		BEQ	0x209be
0002099e 3f 3a f8 4c              |?: L    |		MOVE.W	0x201ec,-(A7)
000209a2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000209a4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000209a8 3f 02                    |?       |		MOVE.W	D2,-(A7)
000209aa 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
000209ae 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000209b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000209b6 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000209bc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000209be 7a 00                    |z       |		MOVEQ.L	#0x00,D5
000209c0 2f 2e ff fc              |/.      |		MOVE.L	(A6-0x4),-(A7)
000209c4 72 00                    |r       |		MOVEQ.L	#0x00,D1
000209c6 b2 97                    |        |		CMP.L	(A7),D1
000209c8 6f 06                    |o       |		BLE	0x209d0
000209ca 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000209cc 60 00 01 84              |`       |		BRA	0x20b52
000209d0 2f 01                    |/       |		MOVE.L	D1,-(A7)
000209d2 0c 81 00 00 00 02        |        |		CMPI.L	#0x00000002,D1
000209d8 6e 42                    |nB      |		BGT	0x20a1c
000209da 41 ee f3 f8              |A       |		LEA.L	(A6-0xc08),A0
000209de 2f 08                    |/       |		MOVE.L	A0,-(A7)
000209e0 2c 1f                    |,       |		MOVE.L	(A7)+,D6
000209e2 20 01                    |        |		MOVE.L	D1,D0
000209e4 e1 80                    |        |		ASL.L	#0x8,D0
000209e6 e5 80                    |        |		ASL.L	#0x2,D0
000209e8 dc 80                    |        |		ADD.L	D0,D6
000209ea 2f 2e 00 0a              |/.      |		MOVE.L	(A6+0xa),-(A7)
000209ee 20 2e f3 ea              | .      |		MOVE.L	(A6-0xc16),D0
000209f2 0c 80 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D0
000209f8 63 02                    |c       |		BLS	0x209fc
000209fa 4e 4f                    |NO      |		TRAP	#15
000209fc 3f 00                    |?       |		MOVE.W	D0,-(A7)
000209fe 42 67                    |Bg      |		CLR.W	-(A7)
00020a00 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020a04 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020a08 2f 06                    |/       |		MOVE.L	D6,-(A7)
00020a0a 48 6e f3 f2              |Hn      |		PEA.L	(A6-0xc0e)
00020a0e 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020a14 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020a18 52 ae f3 ea              |R       |		ADDQ.L	#0x1,(A6-0xc16)
00020a1c 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020a1e 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00020a20 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020a22 be 97                    |        |		CMP.L	(A7),D7
00020a24 6e 7a                    |nz      |		BGT	0x20aa0
00020a26 20 05                    |        |		MOVE.L	D5,D0
00020a28 d0 87                    |        |		ADD.L	D7,D0
00020a2a 0c 80 00 00 00 7f        |        |		CMPI.L	#0x0000007f,D0
00020a30 63 02                    |c       |		BLS	0x20a34
00020a32 4e 4f                    |NO      |		TRAP	#15
00020a34 28 00                    |(       |		MOVE.L	D0,D4
00020a36 76 18                    |v       |		MOVEQ.L	#0x18,D3
00020a38 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00020a3e 41 ee f3 de              |A       |		LEA.L	(A6-0xc22),A0
00020a42 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020a44 22 4f                    |"O      |		MOVEA.L	A7,A1
00020a46 45 f0 48 1a              |E H     |		LEA.L	(A0+D4.L+#0x1a),A2
00020a4a 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020a4c 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020a4e 51 c8 ff fc              |Q       |		DBF	D0,0x20a4c
00020a52 2f 39 00 02 18 f0        |/9      |		MOVE.L	0x218f0,-(A7)
00020a58 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a5c 48 54                    |HT      |		PEA.L	(A4)
00020a5e 48 78 00 07              |Hx      |		PEA.L	0x7
00020a62 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020a68 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020a6c 1e b0 48 22              |  H"    |		MOVE.B	(A0+D4.L+#0x22),(A7)
00020a70 1f 70 48 23 00 01        | pH#    |		MOVE.B	(A0+D4.L+#0x23),(A7+0x1)
00020a76 1f 70 48 24 00 02        | pH$    |		MOVE.B	(A0+D4.L+#0x24),(A7+0x2)
00020a7c 1f 70 48 25 00 03        | pH%    |		MOVE.B	(A0+D4.L+#0x25),(A7+0x3)
00020a82 2f 39 00 02 18 f0        |/9      |		MOVE.L	0x218f0,-(A7)
00020a88 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a8c 48 54                    |HT      |		PEA.L	(A4)
00020a8e 48 78 00 03              |Hx      |		PEA.L	0x3
00020a92 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020a98 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020a9c 52 87                    |R       |		ADDQ.L	#0x1,D7
00020a9e 68 82                    |h       |		BVC	0x20a22
00020aa0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020aa2 42 17                    |B       |		CLR.B	(A7)
00020aa4 4e ba fc da              |N       |		JSR	0x20780
00020aa8 42 17                    |B       |		CLR.B	(A7)
00020aaa 4e ba fd 8c              |N       |		JSR	0x20838
00020aae 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020ab0 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00020ab2 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00020ab4 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020ab6 be 97                    |        |		CMP.L	(A7),D7
00020ab8 6e 7a                    |nz      |		BGT	0x20b34
00020aba 20 05                    |        |		MOVE.L	D5,D0
00020abc d0 87                    |        |		ADD.L	D7,D0
00020abe 0c 80 00 00 00 7f        |        |		CMPI.L	#0x0000007f,D0
00020ac4 63 02                    |c       |		BLS	0x20ac8
00020ac6 4e 4f                    |NO      |		TRAP	#15
00020ac8 28 00                    |(       |		MOVE.L	D0,D4
00020aca 76 18                    |v       |		MOVEQ.L	#0x18,D3
00020acc 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00020ad2 41 ee f3 de              |A       |		LEA.L	(A6-0xc22),A0
00020ad6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020ad8 22 4f                    |"O      |		MOVEA.L	A7,A1
00020ada 45 f0 48 2a              |E H*    |		LEA.L	(A0+D4.L+#0x2a),A2
00020ade 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020ae0 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020ae2 51 c8 ff fc              |Q       |		DBF	D0,0x20ae0
00020ae6 2f 39 00 02 18 f4        |/9      |		MOVE.L	0x218f4,-(A7)
00020aec 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020af0 48 54                    |HT      |		PEA.L	(A4)
00020af2 48 78 00 07              |Hx      |		PEA.L	0x7
00020af6 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020afc de fc 00 14              |        |		ADDA.W	#0x14,A7
00020b00 1e b0 48 26              |  H&    |		MOVE.B	(A0+D4.L+#0x26),(A7)
00020b04 1f 70 48 27 00 01        | pH'    |		MOVE.B	(A0+D4.L+#0x27),(A7+0x1)
00020b0a 1f 70 48 28 00 02        | pH(    |		MOVE.B	(A0+D4.L+#0x28),(A7+0x2)
00020b10 1f 70 48 29 00 03        | pH)    |		MOVE.B	(A0+D4.L+#0x29),(A7+0x3)
00020b16 2f 39 00 02 18 f4        |/9      |		MOVE.L	0x218f4,-(A7)
00020b1c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020b20 48 54                    |HT      |		PEA.L	(A4)
00020b22 48 78 00 03              |Hx      |		PEA.L	0x3
00020b26 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020b2c de fc 00 14              |        |		ADDA.W	#0x14,A7
00020b30 52 87                    |R       |		ADDQ.L	#0x1,D7
00020b32 68 82                    |h       |		BVC	0x20ab6
00020b34 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020b36 1e 82                    |        |		MOVE.B	D2,(A7)
00020b38 4e ba fc 46              |N  F    |		JSR	0x20780
00020b3c 1e 82                    |        |		MOVE.B	D2,(A7)
00020b3e 4e ba fc f8              |N       |		JSR	0x20838
00020b42 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020b44 da 93                    |        |		ADD.L	(A3),D5
00020b46 22 17                    |"       |		MOVE.L	(A7),D1
00020b48 52 81                    |R       |		ADDQ.L	#0x1,D1
00020b4a 69 06                    |i       |		BVS	0x20b52
00020b4c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b4e 60 00 fe 76              |`  v    |		BRA	0x209c6
00020b52 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020b54 20 17                    |        |		MOVE.L	(A7),D0
00020b56 52 80                    |R       |		ADDQ.L	#0x1,D0
00020b58 0c 80 00 00 00 07        |        |		CMPI.L	#0x00000007,D0
00020b5e 6e 06                    |n       |		BGT	0x20b66
00020b60 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b62 60 00 fe 32              |`  2    |		BRA	0x20996
00020b66 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020b68 42 17                    |B       |		CLR.B	(A7)
00020b6a 1f 02                    |        |		MOVE.B	D2,-(A7)
00020b6c 4e ba fd 66              |N  f    |		JSR	0x208d4
00020b70 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020b72 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020b76 4e 5e                    |N^      |		UNLK	A6
00020b78 4e 75                    |Nu      |		RTS
00020b7a ; --------------------------------------------------------------------------------------
00020b7a ; Load_RegFile_Dispatch()
00020b7a ; OMSI PASCAL Function
00020b7a ;    <LVAR  0x00c 4(r)>
00020b7a ;    <LVAR  0x00a 2(r)>
00020b7a ;    <LVAR  0x008 2(r)>
00020b7a ;    <LVAR -0x006 4(rw)>
00020b7a ;    <LVAR -0x00a 4(rw)>
00020b7a ;    <LVAR -0x00e 4(rw)>
00020b7a ;    <LVAR -0x80e @>
00020b7a ;    <LVAR -0x140e @>
00020b7a ;    <LVAR -0x1414 @>
00020b7a ;    <LVAR -0x1415 1(w)>
00020b7a ;    <LVAR -0x1416 1(w) 2(r)>
00020b7a ;    <LVAR -0x141c 1(rw)>
00020b7a ;    <LVAR -0x1420 4(rw)>
00020b7a ;    <LVAR -0x1424 4(rw)>
00020b7a ;    <LVAR -0x1428 4(rw)>
00020b7a ;    <LVAR -0x142c 4(rw)>
00020b7a ;    <LVAR -0x1438 @>
00020b7a ; --------------------------------------------------------------------------------------
00020b7a					Load_RegFile_Dispatch():
00020b7a 4e 56 eb 54              |NV T    |		LINK.W	A6,#0xeb54
00020b7e bf d5                    |        |		CMPA.L	(A5),A7
00020b80 62 06                    |b       |		BHI	0x20b88
00020b82 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020b86 4e 76                    |Nv      |		TRAPV
00020b88 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00020b8c 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020b90 47 ee ff f6              |G       |		LEA.L	(A6-0xa),A3
00020b94 49 ee eb e0              |I       |		LEA.L	(A6-0x1420),A4
00020b98 74 01                    |t       |		MOVEQ.L	#0x01,D2
00020b9a 2d 7c 00 00 00 10 ff f2  |-|      |		MOVE.L	#0x10,(A6-0xe)
00020ba2 26 bc 00 00 00 10        |&       |		MOVE.L	#0x10,(A3)
00020ba8 2d 7c 00 00 00 08 ff fa  |-|      |		MOVE.L	#0x8,(A6-0x6)
00020bb0 4e b9 00 02 16 26        |N    &  |		JSR	exp_PREP_LOAD_REGISTER_FILE.TYP()
00020bb6 4e b9 00 02 16 72        |N    r  |		JSR	exp_PREP_LOAD_REGISTER_FILE.VAL()
00020bbc 4e b9 00 02 15 e0        |N       |		JSR	exp_PREP_LOAD_DISPATCH_RAMS.SEQ()
00020bc2 41 fa f6 3c              |A  <    |		LEA.L	0x20200,A0
00020bc6 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020bc8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020bca 51 c8 ff fc              |Q       |		DBF	D0,0x20bc8
00020bce 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020bd0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020bd4 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020bd6 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00020bda 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020be0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020be2 42 17                    |B       |		CLR.B	(A7)
00020be4 1f 02                    |        |		MOVE.B	D2,-(A7)
00020be6 4e ba fa ac              |N       |		JSR	0x20694
00020bea de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00020bee 41 fa f6 22              |A  "    |		LEA.L	0x20212,A0
00020bf2 70 08                    |p       |		MOVEQ.L	#0x08,D0
00020bf4 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020bf6 51 c8 ff fc              |Q       |		DBF	D0,0x20bf4
00020bfa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020bfc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020c00 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020c02 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
00020c06 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020c0c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020c0e 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
00020c12 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00020c16 4e ba fa 7c              |N  |    |		JSR	0x20694
00020c1a de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00020c1e 1d 42 eb e4              | B      |		MOVE.B	D2,(A6-0x141c)
00020c22 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00020c24 30 2e 00 0a              |0.      |		MOVE.W	(A6+0xa),D0
00020c28 48 c0                    |H       |		EXTW.L	D0
00020c2a 2d 40 eb d4              |-@      |		MOVE.L	D0,(A6-0x142c)
00020c2e 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00020c32 48 c0                    |H       |		EXTW.L	D0
00020c34 2d 40 eb d8              |-@      |		MOVE.L	D0,(A6-0x1428)
00020c38 70 00                    |p       |		MOVEQ.L	#0x00,D0
00020c3a 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020c3c 08 00 00 00              |        |		BTST.L	#0x0,D0
00020c40 67 20                    |g       |		BEQ	0x20c62
00020c42 3f 3a f5 ce              |?:      |		MOVE.W	0x20212,-(A7)
00020c46 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020c48 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020c4c 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020c4e 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
00020c52 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020c58 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c5a 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00020c60 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020c62 0c 80 00 00 00 04        |        |		CMPI.L	#0x00000004,D0
00020c68 66 06                    |f       |		BNE	0x20c70
00020c6a 42 2e eb e4              |B.      |		CLR.B	(A6-0x141c)
00020c6e 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00020c70 42 ae eb dc              |B       |		CLR.L	(A6-0x1424)
00020c74 42 94                    |B       |		CLR.L	(A4)
00020c76 2f 2e ff fa              |/.      |		MOVE.L	(A6-0x6),-(A7)
00020c7a 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00020c7c 72 00                    |r       |		MOVEQ.L	#0x00,D1
00020c7e b2 97                    |        |		CMP.L	(A7),D1
00020c80 6f 06                    |o       |		BLE	0x20c88
00020c82 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020c84 60 00 03 6e              |`  n    |		BRA	0x20ff4
00020c88 2f 01                    |/       |		MOVE.L	D1,-(A7)
00020c8a 0c 81 00 00 00 02        |        |		CMPI.L	#0x00000002,D1
00020c90 6e 42                    |nB      |		BGT	0x20cd4
00020c92 41 ee eb f2              |A       |		LEA.L	(A6-0x140e),A0
00020c96 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020c98 2a 1f                    |*       |		MOVE.L	(A7)+,D5
00020c9a 20 01                    |        |		MOVE.L	D1,D0
00020c9c e1 80                    |        |		ASL.L	#0x8,D0
00020c9e e5 80                    |        |		ASL.L	#0x2,D0
00020ca0 da 80                    |        |		ADD.L	D0,D5
00020ca2 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00020ca6 20 2e eb d4              | .      |		MOVE.L	(A6-0x142c),D0
00020caa 0c 80 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D0
00020cb0 63 02                    |c       |		BLS	0x20cb4
00020cb2 4e 4f                    |NO      |		TRAP	#15
00020cb4 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020cb6 42 67                    |Bg      |		CLR.W	-(A7)
00020cb8 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020cbc 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020cc0 2f 05                    |/       |		MOVE.L	D5,-(A7)
00020cc2 48 6e eb ec              |Hn      |		PEA.L	(A6-0x1414)
00020cc6 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020ccc de fc 00 14              |        |		ADDA.W	#0x14,A7
00020cd0 52 ae eb d4              |R       |		ADDQ.L	#0x1,(A6-0x142c)
00020cd4 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
00020cd8 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00020cda 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020cdc be 97                    |        |		CMP.L	(A7),D7
00020cde 6e 00 00 84              |n       |		BGT	0x20d64
00020ce2 20 2e eb dc              | .      |		MOVE.L	(A6-0x1424),D0
00020ce6 d0 87                    |        |		ADD.L	D7,D0
00020ce8 0c 80 00 00 00 7f        |        |		CMPI.L	#0x0000007f,D0
00020cee 63 02                    |c       |		BLS	0x20cf2
00020cf0 4e 4f                    |NO      |		TRAP	#15
00020cf2 28 00                    |(       |		MOVE.L	D0,D4
00020cf4 76 18                    |v       |		MOVEQ.L	#0x18,D3
00020cf6 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00020cfc 41 ee eb c8              |A       |		LEA.L	(A6-0x1438),A0
00020d00 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020d02 22 4f                    |"O      |		MOVEA.L	A7,A1
00020d04 45 f0 48 2a              |E H*    |		LEA.L	(A0+D4.L+#0x2a),A2
00020d08 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020d0a 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020d0c 51 c8 ff fc              |Q       |		DBF	D0,0x20d0a
00020d10 2f 39 00 02 18 f0        |/9      |		MOVE.L	0x218f0,-(A7)
00020d16 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020d1a 48 78 00 00              |Hx      |		PEA.L	0x0
00020d1e 48 78 00 07              |Hx      |		PEA.L	0x7
00020d22 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020d28 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020d2c 1e b0 48 32              |  H2    |		MOVE.B	(A0+D4.L+#0x32),(A7)
00020d30 1f 70 48 33 00 01        | pH3    |		MOVE.B	(A0+D4.L+#0x33),(A7+0x1)
00020d36 1f 70 48 34 00 02        | pH4    |		MOVE.B	(A0+D4.L+#0x34),(A7+0x2)
00020d3c 1f 70 48 35 00 03        | pH5    |		MOVE.B	(A0+D4.L+#0x35),(A7+0x3)
00020d42 2f 39 00 02 18 f0        |/9      |		MOVE.L	0x218f0,-(A7)
00020d48 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020d4c 48 78 00 00              |Hx      |		PEA.L	0x0
00020d50 48 78 00 03              |Hx      |		PEA.L	0x3
00020d54 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020d5a de fc 00 14              |        |		ADDA.W	#0x14,A7
00020d5e 52 87                    |R       |		ADDQ.L	#0x1,D7
00020d60 68 00 ff 7a              |h  z    |		BVC	0x20cdc
00020d64 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020d66 42 17                    |B       |		CLR.B	(A7)
00020d68 4e ba fa ce              |N       |		JSR	0x20838
00020d6c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020d6e 20 17                    |        |		MOVE.L	(A7),D0
00020d70 b0 82                    |        |		CMP.L	D2,D0
00020d72 6e 42                    |nB      |		BGT	0x20db6
00020d74 41 ee f7 f2              |A       |		LEA.L	(A6-0x80e),A0
00020d78 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020d7a 2a 1f                    |*       |		MOVE.L	(A7)+,D5
00020d7c 22 00                    |"       |		MOVE.L	D0,D1
00020d7e e1 81                    |        |		ASL.L	#0x8,D1
00020d80 e5 81                    |        |		ASL.L	#0x2,D1
00020d82 da 81                    |        |		ADD.L	D1,D5
00020d84 2f 2e 00 0c              |/.      |		MOVE.L	(A6+0xc),-(A7)
00020d88 22 2e eb d8              |".      |		MOVE.L	(A6-0x1428),D1
00020d8c 0c 81 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D1
00020d92 63 02                    |c       |		BLS	0x20d96
00020d94 4e 4f                    |NO      |		TRAP	#15
00020d96 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020d98 42 67                    |Bg      |		CLR.W	-(A7)
00020d9a 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00020d9e 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00020da2 2f 05                    |/       |		MOVE.L	D5,-(A7)
00020da4 48 6e eb ec              |Hn      |		PEA.L	(A6-0x1414)
00020da8 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00020dae de fc 00 14              |        |		ADDA.W	#0x14,A7
00020db2 52 ae eb d8              |R       |		ADDQ.L	#0x1,(A6-0x1428)
00020db6 22 06                    |"       |		MOVE.L	D6,D1
00020db8 e0 89                    |        |		LSR.L	#0x8,D1
00020dba 0c 81 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D1
00020dc0 63 02                    |c       |		BLS	0x20dc4
00020dc2 4e 4f                    |NO      |		TRAP	#15
00020dc4 1d 41 eb ea              | A      |		MOVE.B	D1,(A6-0x1416)
00020dc8 22 06                    |"       |		MOVE.L	D6,D1
00020dca 02 81 00 00 00 ff        |        |		ANDI.L	#0x000000ff,D1
00020dd0 0c 81 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D1
00020dd6 63 02                    |c       |		BLS	0x20dda
00020dd8 4e 4f                    |NO      |		TRAP	#15
00020dda 1d 41 eb eb              | A      |		MOVE.B	D1,(A6-0x1415)
00020dde 2f 39 00 02 18 fc        |/9      |		MOVE.L	0x218fc,-(A7)
00020de4 1f 2e eb e4              | .      |		MOVE.B	(A6-0x141c),-(A7)
00020de8 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
00020dee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020df0 3e ae eb ea              |>       |		MOVE.W	(A6-0x1416),(A7)
00020df4 2f 39 00 02 18 fc        |/9      |		MOVE.L	0x218fc,-(A7)
00020dfa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020dfe 48 78 00 00              |Hx      |		PEA.L	0x0
00020e02 48 78 00 01              |Hx      |		PEA.L	0x1
00020e06 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020e0c de fc 00 0e              |        |		ADDA.W	#0xe,A7
00020e10 2e 93                    |.       |		MOVE.L	(A3),(A7)
00020e12 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00020e14 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020e16 be 97                    |        |		CMP.L	(A7),D7
00020e18 6e 40                    |n@      |		BGT	0x20e5a
00020e1a 20 14                    |        |		MOVE.L	(A4),D0
00020e1c d0 87                    |        |		ADD.L	D7,D0
00020e1e 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00020e24 63 02                    |c       |		BLS	0x20e28
00020e26 4e 4f                    |NO      |		TRAP	#15
00020e28 e7 80                    |        |		ASL.L	#0x3,D0
00020e2a 41 ee eb c8              |A       |		LEA.L	(A6-0x1438),A0
00020e2e 41 f0 08 00              |A       |		LEA.L	(A0+D0.L),A0
00020e32 2f 28 0c 2e              |/( .    |		MOVE.L	(A0+0xc2e),-(A7)
00020e36 2f 28 0c 2a              |/( *    |		MOVE.L	(A0+0xc2a),-(A7)
00020e3a 2f 39 00 02 18 fc        |/9      |		MOVE.L	0x218fc,-(A7)
00020e40 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020e44 48 78 00 00              |Hx      |		PEA.L	0x0
00020e48 48 78 00 07              |Hx      |		PEA.L	0x7
00020e4c 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020e52 de fc 00 18              |        |		ADDA.W	#0x18,A7
00020e56 52 87                    |R       |		ADDQ.L	#0x1,D7
00020e58 68 bc                    |h       |		BVC	0x20e16
00020e5a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e5c 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
00020e60 4e ba f9 d6              |N       |		JSR	0x20838
00020e64 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020e66 20 14                    |        |		MOVE.L	(A4),D0
00020e68 d0 93                    |        |		ADD.L	(A3),D0
00020e6a 28 80                    |(       |		MOVE.L	D0,(A4)
00020e6c 4a 2e eb e4              |J.      |		TST.B	(A6-0x141c)
00020e70 67 04                    |g       |		BEQ	0x20e76
00020e72 dc 93                    |        |		ADD.L	(A3),D6
00020e74 60 06                    |`       |		BRA	0x20e7c
00020e76 20 13                    |        |		MOVE.L	(A3),D0
00020e78 ed 80                    |        |		ASL.L	#0x6,D0
00020e7a dc 80                    |        |		ADD.L	D0,D6
00020e7c 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
00020e80 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00020e82 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020e84 be 97                    |        |		CMP.L	(A7),D7
00020e86 6e 00 00 84              |n       |		BGT	0x20f0c
00020e8a 20 2e eb dc              | .      |		MOVE.L	(A6-0x1424),D0
00020e8e d0 87                    |        |		ADD.L	D7,D0
00020e90 0c 80 00 00 00 7f        |        |		CMPI.L	#0x0000007f,D0
00020e96 63 02                    |c       |		BLS	0x20e9a
00020e98 4e 4f                    |NO      |		TRAP	#15
00020e9a 28 00                    |(       |		MOVE.L	D0,D4
00020e9c 76 18                    |v       |		MOVEQ.L	#0x18,D3
00020e9e 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00020ea4 41 ee eb c8              |A       |		LEA.L	(A6-0x1438),A0
00020ea8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020eaa 22 4f                    |"O      |		MOVEA.L	A7,A1
00020eac 45 f0 48 3a              |E H:    |		LEA.L	(A0+D4.L+#0x3a),A2
00020eb0 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020eb2 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00020eb4 51 c8 ff fc              |Q       |		DBF	D0,0x20eb2
00020eb8 2f 39 00 02 18 f4        |/9      |		MOVE.L	0x218f4,-(A7)
00020ebe 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020ec2 48 78 00 00              |Hx      |		PEA.L	0x0
00020ec6 48 78 00 07              |Hx      |		PEA.L	0x7
00020eca 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020ed0 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020ed4 1e b0 48 36              |  H6    |		MOVE.B	(A0+D4.L+#0x36),(A7)
00020ed8 1f 70 48 37 00 01        | pH7    |		MOVE.B	(A0+D4.L+#0x37),(A7+0x1)
00020ede 1f 70 48 38 00 02        | pH8    |		MOVE.B	(A0+D4.L+#0x38),(A7+0x2)
00020ee4 1f 70 48 39 00 03        | pH9    |		MOVE.B	(A0+D4.L+#0x39),(A7+0x3)
00020eea 2f 39 00 02 18 f4        |/9      |		MOVE.L	0x218f4,-(A7)
00020ef0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020ef4 48 78 00 00              |Hx      |		PEA.L	0x0
00020ef8 48 78 00 03              |Hx      |		PEA.L	0x3
00020efc 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020f02 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020f06 52 87                    |R       |		ADDQ.L	#0x1,D7
00020f08 68 00 ff 7a              |h  z    |		BVC	0x20e84
00020f0c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020f0e 1e 82                    |        |		MOVE.B	D2,(A7)
00020f10 4e ba f9 26              |N  &    |		JSR	0x20838
00020f14 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020f16 20 2e eb dc              | .      |		MOVE.L	(A6-0x1424),D0
00020f1a d0 ae ff f2              |        |		ADD.L	(A6-0xe),D0
00020f1e 2d 40 eb dc              |-@      |		MOVE.L	D0,(A6-0x1424)
00020f22 20 06                    |        |		MOVE.L	D6,D0
00020f24 e0 88                    |        |		LSR.L	#0x8,D0
00020f26 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00020f2c 63 02                    |c       |		BLS	0x20f30
00020f2e 4e 4f                    |NO      |		TRAP	#15
00020f30 1d 40 eb ea              | @      |		MOVE.B	D0,(A6-0x1416)
00020f34 20 06                    |        |		MOVE.L	D6,D0
00020f36 02 80 00 00 00 ff        |        |		ANDI.L	#0x000000ff,D0
00020f3c 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00020f42 63 02                    |c       |		BLS	0x20f46
00020f44 4e 4f                    |NO      |		TRAP	#15
00020f46 1d 40 eb eb              | @      |		MOVE.B	D0,(A6-0x1415)
00020f4a 2f 39 00 02 18 fc        |/9      |		MOVE.L	0x218fc,-(A7)
00020f50 1f 2e eb e4              | .      |		MOVE.B	(A6-0x141c),-(A7)
00020f54 4e b9 00 01 04 6c        |N    l  |		JSR	ExpInputFlag(exp : Pointer; val : Word)
00020f5a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f5c 3e ae eb ea              |>       |		MOVE.W	(A6-0x1416),(A7)
00020f60 2f 39 00 02 18 fc        |/9      |		MOVE.L	0x218fc,-(A7)
00020f66 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020f6a 48 78 00 00              |Hx      |		PEA.L	0x0
00020f6e 48 78 00 01              |Hx      |		PEA.L	0x1
00020f72 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020f78 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00020f7c 2e 93                    |.       |		MOVE.L	(A3),(A7)
00020f7e 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00020f80 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020f82 be 97                    |        |		CMP.L	(A7),D7
00020f84 6e 40                    |n@      |		BGT	0x20fc6
00020f86 20 14                    |        |		MOVE.L	(A4),D0
00020f88 d0 87                    |        |		ADD.L	D7,D0
00020f8a 0c 80 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D0
00020f90 63 02                    |c       |		BLS	0x20f94
00020f92 4e 4f                    |NO      |		TRAP	#15
00020f94 e7 80                    |        |		ASL.L	#0x3,D0
00020f96 41 ee eb c8              |A       |		LEA.L	(A6-0x1438),A0
00020f9a 41 f0 08 00              |A       |		LEA.L	(A0+D0.L),A0
00020f9e 2f 28 0c 2e              |/( .    |		MOVE.L	(A0+0xc2e),-(A7)
00020fa2 2f 28 0c 2a              |/( *    |		MOVE.L	(A0+0xc2a),-(A7)
00020fa6 2f 39 00 02 18 fc        |/9      |		MOVE.L	0x218fc,-(A7)
00020fac 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020fb0 48 78 00 00              |Hx      |		PEA.L	0x0
00020fb4 48 78 00 07              |Hx      |		PEA.L	0x7
00020fb8 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00020fbe de fc 00 18              |        |		ADDA.W	#0x18,A7
00020fc2 52 87                    |R       |		ADDQ.L	#0x1,D7
00020fc4 68 bc                    |h       |		BVC	0x20f82
00020fc6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020fc8 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
00020fcc 4e ba f8 6a              |N  j    |		JSR	0x20838
00020fd0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020fd2 20 14                    |        |		MOVE.L	(A4),D0
00020fd4 d0 93                    |        |		ADD.L	(A3),D0
00020fd6 28 80                    |(       |		MOVE.L	D0,(A4)
00020fd8 4a 2e eb e4              |J.      |		TST.B	(A6-0x141c)
00020fdc 67 04                    |g       |		BEQ	0x20fe2
00020fde dc 93                    |        |		ADD.L	(A3),D6
00020fe0 60 06                    |`       |		BRA	0x20fe8
00020fe2 20 13                    |        |		MOVE.L	(A3),D0
00020fe4 ed 80                    |        |		ASL.L	#0x6,D0
00020fe6 dc 80                    |        |		ADD.L	D0,D6
00020fe8 22 17                    |"       |		MOVE.L	(A7),D1
00020fea 52 81                    |R       |		ADDQ.L	#0x1,D1
00020fec 69 06                    |i       |		BVS	0x20ff4
00020fee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020ff0 60 00 fc 8c              |`       |		BRA	0x20c7e
00020ff4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ff6 20 17                    |        |		MOVE.L	(A7),D0
00020ff8 52 80                    |R       |		ADDQ.L	#0x1,D0
00020ffa 0c 80 00 00 00 07        |        |		CMPI.L	#0x00000007,D0
00021000 6e 06                    |n       |		BGT	0x21008
00021002 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021004 60 00 fc 34              |`  4    |		BRA	0x20c3a
00021008 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002100a 42 17                    |B       |		CLR.B	(A7)
0002100c 1f 02                    |        |		MOVE.B	D2,-(A7)
0002100e 4e ba f8 c4              |N       |		JSR	0x208d4
00021012 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021014 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
00021018 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
0002101c 4e ba f8 b6              |N       |		JSR	0x208d4
00021020 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021022 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021026 4e 5e                    |N^      |		UNLK	A6
00021028 4e 75                    |Nu      |		RTS
0002102a ; --------------------------------------------------------------------------------------
0002102a ; Load_Control_Store()
0002102a ; OMSI PASCAL Function
0002102a ;    <LVAR  0x010 4(r)>
0002102a ;    <LVAR  0x00e 2(r)>
0002102a ;    <LVAR  0x00a 4(r)>
0002102a ;    <LVAR  0x008 2(r)>
0002102a ;    <LVAR -0x004 4(rw)>
0002102a ;    <LVAR -0x008 4(rw)>
0002102a ;    <LVAR -0x408 @>
0002102a ;    <LVAR -0x409 1(w)>
0002102a ;    <LVAR -0x40a 1(w) 2(r)>
0002102a ;    <LVAR -0x40f 1(w)>
0002102a ;    <LVAR -0x410 @>
0002102a ;    <LVAR -0x420 @>
0002102a ; --------------------------------------------------------------------------------------
0002102a					Load_Control_Store():
0002102a 4e 56 fb 72              |NV r    |		LINK.W	A6,#0xfb72
0002102e bf d5                    |        |		CMPA.L	(A5),A7
00021030 62 06                    |b       |		BHI	0x21038
00021032 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021036 4e 76                    |Nv      |		TRAPV
00021038 de fc 00 6e              |   n    |		ADDA.W	#0x6e,A7
0002103c 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021040 43 ee ff f8              |C       |		LEA.L	(A6-0x8),A1
00021044 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00021048 47 ee fb e0              |G       |		LEA.L	(A6-0x420),A3
0002104c 49 f8 00 00              |I       |		LEA.L	0x0,A4
00021050 22 bc 00 00 00 10        |"       |		MOVE.L	#0x10,(A1)
00021056 2d 7c 00 00 00 01 ff fc  |-|      |		MOVE.L	#0x1,(A6-0x4)
0002105e 70 00                    |p       |		MOVEQ.L	#0x00,D0
00021060 1d 40 fb f1              | @      |		MOVE.B	D0,(A6-0x40f)
00021064 3f 12                    |?       |		MOVE.W	(A2),-(A7)
00021066 1f 00                    |        |		MOVE.B	D0,-(A7)
00021068 4e b9 00 02 16 4e        |N    N  |		JSR	exp_LOAD_DIAG_COUNTER.TYP(Sw_2, Sw_1)
0002106e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021070 3e 92                    |>       |		MOVE.W	(A2),(A7)
00021072 1f 00                    |        |		MOVE.B	D0,-(A7)
00021074 4e b9 00 02 16 9a        |N       |		JSR	exp_LOAD_DIAG_COUNTER.VAL(Sw_2, Sw_1)
0002107a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002107c 3e 92                    |>       |		MOVE.W	(A2),(A7)
0002107e 3f 12                    |?       |		MOVE.W	(A2),-(A7)
00021080 1f 00                    |        |		MOVE.B	D0,-(A7)
00021082 4e b9 00 02 15 c0        |N       |		JSR	exp_LOAD_COUNTER.FIU(Sw_2, Sw_2, Sw_1)
00021088 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002108a 3e 92                    |>       |		MOVE.W	(A2),(A7)
0002108c 4e b9 00 02 16 08        |N       |		JSR	exp_LOAD_COUNTER.SEQ(Sw_2)
00021092 3e 92                    |>       |		MOVE.W	(A2),(A7)
00021094 1f 00                    |        |		MOVE.B	D0,-(A7)
00021096 4e b9 00 02 16 be        |N       |		JSR	exp_LOAD_WCS_ADDRESS.IOC(Sw_2, Sw_1)
0002109c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002109e 41 fa f1 86              |A       |		LEA.L	0x20226,A0
000210a2 70 08                    |p       |		MOVEQ.L	#0x08,D0
000210a4 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000210a6 51 c8 ff fc              |Q       |		DBF	D0,0x210a4
000210aa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210ac 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000210b0 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000210b4 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
000210b8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000210be 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000210c0 42 17                    |B       |		CLR.B	(A7)
000210c2 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
000210c6 4e ba f5 cc              |N       |		JSR	0x20694
000210ca de fc 00 16              |        |		ADDA.W	#0x16,A7
000210ce 2e ae 00 0a              |.       |		MOVE.L	(A6+0xa),(A7)
000210d2 53 97                    |S       |		SUBQ.L	#0x1,(A7)
000210d4 70 00                    |p       |		MOVEQ.L	#0x00,D0
000210d6 b0 97                    |        |		CMP.L	(A7),D0
000210d8 6f 06                    |o       |		BLE	0x210e0
000210da 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210dc 60 00 02 86              |`       |		BRA	0x21364
000210e0 2f 00                    |/       |		MOVE.L	D0,-(A7)
000210e2 2f 2e 00 10              |/.      |		MOVE.L	(A6+0x10),-(A7)
000210e6 32 2e 00 0e              |2.      |		MOVE.W	(A6+0xe),D1
000210ea 48 c1                    |H       |		EXTW.L	D1
000210ec d2 80                    |        |		ADD.L	D0,D1
000210ee 0c 81 00 00 40 00        |    @   |		CMPI.L	#0x00004000,D1
000210f4 63 02                    |c       |		BLS	0x210f8
000210f6 4e 4f                    |NO      |		TRAP	#15
000210f8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210fa 42 67                    |Bg      |		CLR.W	-(A7)
000210fc 3f 3c 02 00              |?<      |		MOVE.W	#0x200,-(A7)
00021100 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00021104 41 ee fb f8              |A       |		LEA.L	(A6-0x408),A0
00021108 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002110a 48 6e fb f0              |Hn      |		PEA.L	(A6-0x410)
0002110e 4e b9 00 01 03 84        |N       |		JSR	ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00021114 de fc 00 14              |        |		ADDA.W	#0x14,A7
00021118 28 00                    |(       |		MOVE.L	D0,D4
0002111a 76 20                    |v       |		MOVEQ.L	#0x20,D3
0002111c 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
00021122 0c 83 00 00 00 1f        |        |		CMPI.L	#0x0000001f,D3
00021128 66 22                    |f"      |		BNE	0x2114c
0002112a 3f 3a f0 fa              |?:      |		MOVE.W	0x20226,-(A7)
0002112e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021130 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021134 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021138 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
0002113c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021142 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021144 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
0002114a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002114c 7c 00                    ||       |		MOVEQ.L	#0x00,D6
0002114e 2f 2e ff fc              |/.      |		MOVE.L	(A6-0x4),-(A7)
00021152 7a 00                    |z       |		MOVEQ.L	#0x00,D5
00021154 ba 97                    |        |		CMP.L	(A7),D5
00021156 6e 00 01 fe              |n       |		BGT	0x21356
0002115a ; --------------------------------------------------------------------------------------
0002115a ; idx=0, adr=6, TYP
0002115a ; --------------------------------------------------------------------------------------
0002115a 2f 11                    |/       |		MOVE.L	(A1),-(A7)
0002115c 53 97                    |S       |		SUBQ.L	#0x1,(A7)
0002115e 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021160 be 97                    |        |		CMP.L	(A7),D7
00021162 6e 38                    |n8      |		BGT	0x2119c
00021164 20 06                    |        |		MOVE.L	D6,D0
00021166 d0 87                    |        |		ADD.L	D7,D0
00021168 0c 80 00 00 00 1f        |        |		CMPI.L	#0x0000001f,D0
0002116e 63 02                    |c       |		BLS	0x21172
00021170 4e 4f                    |NO      |		TRAP	#15
00021172 eb 80                    |        |		ASL.L	#0x5,D0
00021174 20 4b                    | K      |		MOVEA.L	A3,A0
00021176 2f 30 08 1c              |/0      |		MOVE.L	(A0+D0.L+#0x1c),-(A7)
0002117a 2f 30 08 18              |/0      |		MOVE.L	(A0+D0.L+#0x18),-(A7)
0002117e 2f 39 00 02 18 f0        |/9      |		MOVE.L	0x218f0,-(A7)
00021184 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021188 48 54                    |HT      |		PEA.L	(A4)
0002118a 48 78 00 07              |Hx      |		PEA.L	0x7
0002118e 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
00021194 de fc 00 18              |        |		ADDA.W	#0x18,A7
00021198 52 87                    |R       |		ADDQ.L	#0x1,D7
0002119a 68 c4                    |h       |		BVC	0x21160
0002119c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002119e 42 17                    |B       |		CLR.B	(A7)
000211a0 4e ba f6 96              |N       |		JSR	0x20838
000211a4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000211a6 ; --------------------------------------------------------------------------------------
000211a6 ; idx=1, adr=7, VAL
000211a6 ; --------------------------------------------------------------------------------------
000211a6 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000211a8 53 97                    |S       |		SUBQ.L	#0x1,(A7)
000211aa 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000211ac be 97                    |        |		CMP.L	(A7),D7
000211ae 6e 38                    |n8      |		BGT	0x211e8
000211b0 20 06                    |        |		MOVE.L	D6,D0
000211b2 d0 87                    |        |		ADD.L	D7,D0
000211b4 0c 80 00 00 00 1f        |        |		CMPI.L	#0x0000001f,D0
000211ba 63 02                    |c       |		BLS	0x211be
000211bc 4e 4f                    |NO      |		TRAP	#15
000211be eb 80                    |        |		ASL.L	#0x5,D0
000211c0 20 4b                    | K      |		MOVEA.L	A3,A0
000211c2 2f 30 08 24              |/0 $    |		MOVE.L	(A0+D0.L+#0x24),-(A7)
000211c6 2f 30 08 20              |/0      |		MOVE.L	(A0+D0.L+#0x20),-(A7)
000211ca 2f 39 00 02 18 f4        |/9      |		MOVE.L	0x218f4,-(A7)
000211d0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000211d4 48 54                    |HT      |		PEA.L	(A4)
000211d6 48 78 00 07              |Hx      |		PEA.L	0x7
000211da 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
000211e0 de fc 00 18              |        |		ADDA.W	#0x18,A7
000211e4 52 87                    |R       |		ADDQ.L	#0x1,D7
000211e6 68 c4                    |h       |		BVC	0x211ac
000211e8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000211ea 1e bc 00 01              |        |		MOVE.B	#0x01,(A7)
000211ee 4e ba f6 48              |N  H    |		JSR	0x20838
000211f2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000211f4 ; --------------------------------------------------------------------------------------
000211f4 ; idx=2, adr=3, FIU
000211f4 ; --------------------------------------------------------------------------------------
000211f4 2f 11                    |/       |		MOVE.L	(A1),-(A7)
000211f6 53 97                    |S       |		SUBQ.L	#0x1,(A7)
000211f8 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000211fa be 97                    |        |		CMP.L	(A7),D7
000211fc 6e 38                    |n8      |		BGT	0x21236
000211fe 20 06                    |        |		MOVE.L	D6,D0
00021200 d0 87                    |        |		ADD.L	D7,D0
00021202 0c 80 00 00 00 1f        |        |		CMPI.L	#0x0000001f,D0
00021208 63 02                    |c       |		BLS	0x2120c
0002120a 4e 4f                    |NO      |		TRAP	#15
0002120c eb 80                    |        |		ASL.L	#0x5,D0
0002120e 20 4b                    | K      |		MOVEA.L	A3,A0
00021210 2f 30 08 2c              |/0 ,    |		MOVE.L	(A0+D0.L+#0x2c),-(A7)
00021214 2f 30 08 28              |/0 (    |		MOVE.L	(A0+D0.L+#0x28),-(A7)
00021218 2f 39 00 02 18 f8        |/9      |		MOVE.L	0x218f8,-(A7)
0002121e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021222 48 54                    |HT      |		PEA.L	(A4)
00021224 48 78 00 07              |Hx      |		PEA.L	0x7
00021228 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
0002122e de fc 00 18              |        |		ADDA.W	#0x18,A7
00021232 52 87                    |R       |		ADDQ.L	#0x1,D7
00021234 68 c4                    |h       |		BVC	0x211fa
00021236 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021238 1e bc 00 02              |        |		MOVE.B	#0x02,(A7)
0002123c 4e ba f5 fa              |N       |		JSR	0x20838
00021240 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021242 ; --------------------------------------------------------------------------------------
00021242 ; idx=4, adr=4, IOC
00021242 ; --------------------------------------------------------------------------------------
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 00 00 a8              |n       |		BGT	0x212f4
0002124e 20 06                    |        |		MOVE.L	D6,D0
00021250 d0 87                    |        |		ADD.L	D7,D0
00021252 0c 80 00 00 00 1f        |        |		CMPI.L	#0x0000001f,D0
00021258 63 02                    |c       |		BLS	0x2125c
0002125a 4e 4f                    |NO      |		TRAP	#15
0002125c eb 80                    |        |		ASL.L	#0x5,D0
0002125e 20 4b                    | K      |		MOVEA.L	A3,A0
00021260 42 81                    |B       |		CLR.L	D1
00021262 12 30 08 28              | 0 (    |		MOVE.B	(A0+D0.L+#0x28),D1
00021266 02 41 00 03              | A      |		ANDI.W	#0x0003,D1
0002126a ed 41                    | A      |		ASL.W	#0x6,D1
0002126c 42 82                    |B       |		CLR.L	D2
0002126e 14 30 08 29              | 0 )    |		MOVE.B	(A0+D0.L+#0x29),D2
00021272 02 42 00 03              | B      |		ANDI.W	#0x0003,D2
00021276 e9 42                    | B      |		ASL.W	#0x4,D2
00021278 d4 41                    | A      |		ADD.W	D1,D2
0002127a 42 81                    |B       |		CLR.L	D1
0002127c 12 30 08 2a              | 0 *    |		MOVE.B	(A0+D0.L+#0x2a),D1
00021280 02 41 00 03              | A      |		ANDI.W	#0x0003,D1
00021284 e5 41                    | A      |		ASL.W	#0x2,D1
00021286 d2 42                    | B      |		ADD.W	D2,D1
00021288 42 82                    |B       |		CLR.L	D2
0002128a 14 30 08 2b              | 0 +    |		MOVE.B	(A0+D0.L+#0x2b),D2
0002128e 02 42 00 03              | B      |		ANDI.W	#0x0003,D2
00021292 d4 41                    | A      |		ADD.W	D1,D2
00021294 1d 42 fb f6              | B      |		MOVE.B	D2,(A6-0x40a)
00021298 42 81                    |B       |		CLR.L	D1
0002129a 12 30 08 2c              | 0 ,    |		MOVE.B	(A0+D0.L+#0x2c),D1
0002129e 02 41 00 03              | A      |		ANDI.W	#0x0003,D1
000212a2 ed 41                    | A      |		ASL.W	#0x6,D1
000212a4 42 82                    |B       |		CLR.L	D2
000212a6 14 30 08 2d              | 0 -    |		MOVE.B	(A0+D0.L+#0x2d),D2
000212aa 02 42 00 03              | B      |		ANDI.W	#0x0003,D2
000212ae e9 42                    | B      |		ASL.W	#0x4,D2
000212b0 d4 41                    | A      |		ADD.W	D1,D2
000212b2 42 81                    |B       |		CLR.L	D1
000212b4 12 30 08 2e              | 0 .    |		MOVE.B	(A0+D0.L+#0x2e),D1
000212b8 02 41 00 03              | A      |		ANDI.W	#0x0003,D1
000212bc e5 41                    | A      |		ASL.W	#0x2,D1
000212be d2 42                    | B      |		ADD.W	D2,D1
000212c0 42 82                    |B       |		CLR.L	D2
000212c2 14 30 08 2f              | 0 /    |		MOVE.B	(A0+D0.L+#0x2f),D2
000212c6 02 42 00 03              | B      |		ANDI.W	#0x0003,D2
000212ca d4 41                    | A      |		ADD.W	D1,D2
000212cc 1d 42 fb f7              | B      |		MOVE.B	D2,(A6-0x409)
000212d0 3f 2e fb f6              |?.      |		MOVE.W	(A6-0x40a),-(A7)
000212d4 2f 39 00 02 19 00        |/9      |		MOVE.L	0x21900,-(A7)
000212da 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000212de 48 54                    |HT      |		PEA.L	(A4)
000212e0 48 78 00 01              |Hx      |		PEA.L	0x1
000212e4 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
000212ea de fc 00 12              |        |		ADDA.W	#0x12,A7
000212ee 52 87                    |R       |		ADDQ.L	#0x1,D7
000212f0 68 00 ff 56              |h  V    |		BVC	0x21248
000212f4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000212f6 1e bc 00 04              |        |		MOVE.B	#0x04,(A7)
000212fa 4e ba f5 3c              |N  <    |		JSR	0x20838
000212fe 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021300 ; --------------------------------------------------------------------------------------
00021300 ; idx=3, adr=2, SEQ
00021300 ; --------------------------------------------------------------------------------------
00021300 2f 11                    |/       |		MOVE.L	(A1),-(A7)
00021302 53 97                    |S       |		SUBQ.L	#0x1,(A7)
00021304 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021306 be 97                    |        |		CMP.L	(A7),D7
00021308 6e 38                    |n8      |		BGT	0x21342
0002130a 20 06                    |        |		MOVE.L	D6,D0
0002130c d0 87                    |        |		ADD.L	D7,D0
0002130e 0c 80 00 00 00 1f        |        |		CMPI.L	#0x0000001f,D0
00021314 63 02                    |c       |		BLS	0x21318
00021316 4e 4f                    |NO      |		TRAP	#15
00021318 eb 80                    |        |		ASL.L	#0x5,D0
0002131a 20 4b                    | K      |		MOVEA.L	A3,A0
0002131c 2f 30 08 34              |/0 4    |		MOVE.L	(A0+D0.L+#0x34),-(A7)
00021320 2f 30 08 30              |/0 0    |		MOVE.L	(A0+D0.L+#0x30),-(A7)
00021324 2f 39 00 02 18 fc        |/9      |		MOVE.L	0x218fc,-(A7)
0002132a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002132e 48 54                    |HT      |		PEA.L	(A4)
00021330 48 78 00 07              |Hx      |		PEA.L	0x7
00021334 4e b9 00 01 04 66        |N    f  |		JSR	ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
0002133a de fc 00 18              |        |		ADDA.W	#0x18,A7
0002133e 52 87                    |R       |		ADDQ.L	#0x1,D7
00021340 68 c4                    |h       |		BVC	0x21306
00021342 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021344 1e bc 00 03              |        |		MOVE.B	#0x03,(A7)
00021348 4e ba f4 ee              |N       |		JSR	0x20838
0002134c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002134e dc 91                    |        |		ADD.L	(A1),D6
00021350 52 85                    |R       |		ADDQ.L	#0x1,D5
00021352 68 00 fe 00              |h       |		BVC	0x21154
00021356 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021358 20 17                    |        |		MOVE.L	(A7),D0
0002135a 52 80                    |R       |		ADDQ.L	#0x1,D0
0002135c 69 06                    |i       |		BVS	0x21364
0002135e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021360 60 00 fd 74              |`  t    |		BRA	0x210d6
00021364 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021366 42 17                    |B       |		CLR.B	(A7)
00021368 1f 3c 00 04              | <      |		MOVE.B	#0x04,-(A7)
0002136c 4e ba f5 66              |N  f    |		JSR	0x208d4
00021370 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021372 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021376 4e 5e                    |N^      |		UNLK	A6
00021378 4e 75                    |Nu      |		RTS
0002137a ; --------------------------------------------------------------------------------------
0002137a ; OMSI PASCAL Function
0002137a ;    <LVAR  0x00e 4(r)>
0002137a ;    <LVAR  0x00c @ 1(r)>
0002137a ;    <LVAR  0x00a 1(r)>
0002137a ;    <LVAR  0x008 1(r)>
0002137a ;    <LVAR -0x004 @ 2(r)>
0002137a ;    <LVAR -0x008 @ 4(r)>
0002137a ;    <LVAR -0x00a @>
0002137a ;    <LVAR -0x00e @ 4(r)>
0002137a ; --------------------------------------------------------------------------------------
0002137a 4e 56 ff 82              |NV      |		LINK.W	A6,#0xff82
0002137e bf d5                    |        |		CMPA.L	(A5),A7
00021380 62 06                    |b       |		BHI	0x21388
00021382 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021386 4e 76                    |Nv      |		TRAPV
00021388 de fc 00 70              |   p    |		ADDA.W	#0x70,A7
0002138c 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021390 45 ee ff f2              |E       |		LEA.L	(A6-0xe),A2
00021394 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
0002139a 49 ee 00 0c              |I       |		LEA.L	(A6+0xc),A4
0002139e 72 01                    |r       |		MOVEQ.L	#0x01,D1
000213a0 74 05                    |t       |		MOVEQ.L	#0x05,D2
000213a2 7a 02                    |z       |		MOVEQ.L	#0x02,D5
000213a4 7c 2c                    ||,      |		MOVEQ.L	#0x2c,D6
000213a6 7e 19                    |~       |		MOVEQ.L	#0x19,D7
000213a8 2f 2e 00 0e              |/.      |		MOVE.L	(A6+0xe),-(A7)
000213ac 48 54                    |HT      |		PEA.L	(A4)
000213ae 48 52                    |HR      |		PEA.L	(A2)
000213b0 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
000213b4 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000213b8 4e ba ef 6c              |N  l    |		JSR	0x20326
000213bc de fc 00 12              |        |		ADDA.W	#0x12,A7
000213c0 1e 82                    |        |		MOVE.B	D2,(A7)
000213c2 1f 05                    |        |		MOVE.B	D5,-(A7)
000213c4 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
000213ca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000213cc 4a 14                    |J       |		TST.B	(A4)
000213ce 66 06                    |f       |		BNE	0x213d6
000213d0 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
000213d4 67 44                    |gD      |		BEQ	0x2141a
000213d6 9e c6                    |        |		SUBA.W	D6,A7
000213d8 20 4f                    | O      |		MOVEA.L	A7,A0
000213da 43 fa ee 4c              |C  L    |		LEA.L	0x20228,A1
000213de 70 2a                    |p*      |		MOVEQ.L	#0x2a,D0
000213e0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000213e2 51 c8 ff fc              |Q       |		DBF	D0,0x213e0
000213e6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000213e8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000213ec 3f 01                    |?       |		MOVE.W	D1,-(A7)
000213ee 3f 3c 00 2b              |?< +    |		MOVE.W	#0x2b,-(A7)
000213f2 4e 93                    |N       |		JSR	(A3)
000213f4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213f6 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
000213fc de c6                    |        |		ADDA.W	D6,A7
000213fe 2e 92                    |.       |		MOVE.L	(A2),(A7)
00021400 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021402 3f 07                    |?       |		MOVE.W	D7,-(A7)
00021404 4e ba f7 74              |N  t    |		JSR	Load_RegFile_Dispatch()
00021408 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002140a 20 4f                    | O      |		MOVEA.L	A7,A0
0002140c 43 fa ee 46              |C  F    |		LEA.L	0x20254,A1
00021410 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021412 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021414 51 c8 ff fc              |Q       |		DBF	D0,0x21412
00021418 60 46                    |`F      |		BRA	0x21460
0002141a 4a 2e 00 0a              |J.      |		TST.B	(A6+0xa)
0002141e 67 58                    |gX      |		BEQ	0x21478
00021420 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
00021424 20 4f                    | O      |		MOVEA.L	A7,A0
00021426 43 fa ee 32              |C  2    |		LEA.L	0x2025a,A1
0002142a 70 18                    |p       |		MOVEQ.L	#0x18,D0
0002142c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002142e 51 c8 ff fc              |Q       |		DBF	D0,0x2142c
00021432 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021434 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021438 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002143a 3f 07                    |?       |		MOVE.W	D7,-(A7)
0002143c 4e 93                    |N       |		JSR	(A3)
0002143e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021440 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
00021446 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
0002144a 2e 92                    |.       |		MOVE.L	(A2),(A7)
0002144c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002144e 4e ba f4 d4              |N       |		JSR	Load_RegFile_Only()
00021452 20 4f                    | O      |		MOVEA.L	A7,A0
00021454 43 fa ee 1e              |C       |		LEA.L	0x20274,A1
00021458 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002145a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002145c 51 c8 ff fc              |Q       |		DBF	D0,0x2145a
00021460 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021462 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021466 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021468 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002146a 4e 93                    |N       |		JSR	(A3)
0002146c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002146e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021474 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021478 4a 14                    |J       |		TST.B	(A4)
0002147a 67 6a                    |gj      |		BEQ	0x214e6
0002147c 41 fa ee 14              |A       |		LEA.L	0x20292,A0
00021480 70 05                    |p       |		MOVEQ.L	#0x05,D0
00021482 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021484 51 c8 ff fc              |Q       |		DBF	D0,0x21482
00021488 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002148a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002148e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021490 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
00021494 4e 93                    |N       |		JSR	(A3)
00021496 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021498 4e b9 00 01 03 d8        |N       |		JSR	WriteConsoleString(str : String)
0002149e de fc 00 18              |        |		ADDA.W	#0x18,A7
000214a2 2e 92                    |.       |		MOVE.L	(A2),(A7)
000214a4 3f 3c 00 29              |?< )    |		MOVE.W	#0x29,-(A7)
000214a8 28 2e ff f8              |(.      |		MOVE.L	(A6-0x8),D4
000214ac 76 20                    |v       |		MOVEQ.L	#0x20,D3
000214ae 4e b9 00 01 02 94        |N       |		JSR	?divs_d3_d4
000214b4 2f 04                    |/       |		MOVE.L	D4,-(A7)
000214b6 3f 2e ff fc              |?.      |		MOVE.W	(A6-0x4),-(A7)
000214ba 4e ba fb 6e              |N  n    |		JSR	Load_Control_Store()
000214be 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000214c0 20 4f                    | O      |		MOVEA.L	A7,A0
000214c2 43 fa ed ce              |C       |		LEA.L	0x20292,A1
000214c6 70 04                    |p       |		MOVEQ.L	#0x04,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 02                    |?       |		MOVE.W	D2,-(A7)
000214d8 4e 93                    |N       |		JSR	(A3)
000214da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000214dc 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000214e2 de fc 00 0a              |        |		ADDA.W	#0xa,A7
000214e6 1f 02                    |        |		MOVE.B	D2,-(A7)
000214e8 1f 05                    |        |		MOVE.B	D5,-(A7)
000214ea 4e b9 00 01 04 8a        |N       |		JSR	DiProcCmd(board : Byte; cmd : Byte)
000214f0 2e 92                    |.       |		MOVE.L	(A2),(A7)
000214f2 4e ba f0 a2              |N       |		JSR	0x20596
000214f6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000214f8 42 17                    |B       |		CLR.B	(A7)
000214fa 1f 05                    |        |		MOVE.B	D5,-(A7)
000214fc 48 78 00 01              |Hx      |		PEA.L	0x1
00021500 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00021504 48 52                    |HR      |		PEA.L	(A2)
00021506 4e b9 00 01 03 8c        |N       |		JSR	CloseFile(a : L; VAR status : B; VAR file : File)
0002150c de fc 00 10              |        |		ADDA.W	#0x10,A7
00021510 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021514 4e 5e                    |N^      |		UNLK	A6
00021516 4e 75                    |Nu      |		RTS
00021518 ; --------------------------------------------------------------------------------------
00021518 ; OMSI PASCAL Function
00021518 ; --------------------------------------------------------------------------------------
00021518					START:
00021518 4f fa 00 08              |O       |		LEA.L	MAIN,A7
0002151c 4e f9 00 01 02 80        |N       |		JMP	?start_program
00021522					MAIN:
00021522 41 f9 00 02 19 0a        |A       |		LEA.L	0x2190a,A0
00021528 43 f9 00 02 19 0e        |C       |		LEA.L	0x2190e,A1
0002152e 45 f9 00 01 05 26        |E    &  |		LEA.L	IPC_GetBool() : Bool,A2
00021534 47 f9 00 02 19 0f        |G       |		LEA.L	0x2190f,A3
0002153a 49 f9 00 02 19 10        |I       |		LEA.L	0x21910,A4
00021540 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00021546 48 78 00 05              |Hx      |		PEA.L	0x5
0002154a 4e b9 00 01 04 d8        |N       |		JSR	ExpInit(a : Long)
00021550 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021552 42 17                    |B       |		CLR.B	(A7)
00021554 4e b9 00 01 04 d2        |N       |		JSR	SetExpInitDone(a : Byte)
0002155a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002155c 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
00021562 48 50                    |HP      |		PEA.L	(A0)
00021564 4e b9 00 01 05 2c        |N    ,  |		JSR	IPC_GetString(VAR retval : String)
0002156a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002156c 48 51                    |HQ      |		PEA.L	(A1)
0002156e 4e 92                    |N       |		JSR	(A2)
00021570 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021572 48 53                    |HS      |		PEA.L	(A3)
00021574 4e 92                    |N       |		JSR	(A2)
00021576 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021578 48 54                    |HT      |		PEA.L	(A4)
0002157a 4e 92                    |N       |		JSR	(A2)
0002157c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002157e 4e b9 00 01 05 1a        |N       |		JSR	IPC_GetEnd(void)
00021584 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00021586 1f 11                    |        |		MOVE.B	(A1),-(A7)
00021588 1f 13                    |        |		MOVE.B	(A3),-(A7)
0002158a 1f 14                    |        |		MOVE.B	(A4),-(A7)
0002158c 4e ba fd ec              |N       |		JSR	0x2137a
00021590 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021594 4e b9 00 01 05 38        |N    8  |		JSR	IPC_Init(void)
0002159a 1f 3c 00 01              | <      |		MOVE.B	#0x01,-(A7)
0002159e 4e b9 00 01 05 02        |N       |		JSR	IPC_PutBool(a : Bool)
000215a4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000215a6 4e b9 00 01 05 14        |N       |		JSR	IPC_PutEnd(void)
000215ac 42 27                    |B'      |		CLR.B	-(A7)
000215ae 48 78 00 01              |Hx      |		PEA.L	0x1
000215b2 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000215b8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000215ba 4e b9 00 01 02 84        |N       |		JSR	?exit
000215c0					exp_LOAD_COUNTER.FIU(Sw_2, Sw_2, Sw_1):
000215c0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000215c6 00 0e                    |        |		.CONST	0x000e			; Stack-delta
000215c8 10 4c 4f 41 44 5f 43 4f  | LOAD_CO|		.TXT	16,'LOAD_COUNTER.FIU'
000215d9 00                       |        |		.CONST	0x0
000215da 03                       |        |		.CONST	0x3			; DIPROC address
000215db 00                       |        |		.CONST	0x0			; Output Parameters
000215dc 03                       |        |		.CONST	0x3			; Input Parameters
000215dd 01                       |        |		.CONST	0x1			; In arg [2]
000215de 01                       |        |		.CONST	0x1			; In arg [2]
000215df 00                       |        |		.CONST	0x0			; In arg [1]
000215e0					exp_PREP_LOAD_DISPATCH_RAMS.SEQ():
000215e0 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000215e6 00 08                    |        |		.CONST	0x0008			; Stack-delta
000215e8 1b 50 52 45 50 5f 4c 4f  | PREP_LO|		.TXT	27,'PREP_LOAD_DISPATCH_RAMS.SEQ'
00021604 00                       |        |		.CONST	0x0
00021605 02                       |        |		.CONST	0x2			; DIPROC address
00021606 00                       |        |		.CONST	0x0			; Output Parameters
00021607 00                       |        |		.CONST	0x0			; Input Parameters
00021608					exp_LOAD_COUNTER.SEQ(Sw_2):
00021608 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002160e 00 0a                    |        |		.CONST	0x000a			; Stack-delta
00021610 10 4c 4f 41 44 5f 43 4f  | LOAD_CO|		.TXT	16,'LOAD_COUNTER.SEQ'
00021621 00                       |        |		.CONST	0x0
00021622 02                       |        |		.CONST	0x2			; DIPROC address
00021623 00                       |        |		.CONST	0x0			; Output Parameters
00021624 01                       |        |		.CONST	0x1			; Input Parameters
00021625 01                       |        |		.CONST	0x1			; In arg [2]
00021626					exp_PREP_LOAD_REGISTER_FILE.TYP():
00021626 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
0002162c 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002162e 1b 50 52 45 50 5f 4c 4f  | PREP_LO|		.TXT	27,'PREP_LOAD_REGISTER_FILE.TYP'
0002164a 00                       |        |		.CONST	0x0
0002164b 06                       |        |		.CONST	0x6			; DIPROC address
0002164c 00                       |        |		.CONST	0x0			; Output Parameters
0002164d 00                       |        |		.CONST	0x0			; Input Parameters
0002164e					exp_LOAD_DIAG_COUNTER.TYP(Sw_2, Sw_1):
0002164e 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021654 00 0c                    |        |		.CONST	0x000c			; Stack-delta
00021656 15 4c 4f 41 44 5f 44 49  | LOAD_DI|		.TXT	21,'LOAD_DIAG_COUNTER.TYP'
0002166c 00                       |        |		.CONST	0x0
0002166d 06                       |        |		.CONST	0x6			; DIPROC address
0002166e 00                       |        |		.CONST	0x0			; Output Parameters
0002166f 02                       |        |		.CONST	0x2			; Input Parameters
00021670 01                       |        |		.CONST	0x1			; In arg [2]
00021671 00                       |        |		.CONST	0x0			; In arg [1]
00021672					exp_PREP_LOAD_REGISTER_FILE.VAL():
00021672 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
00021678 00 08                    |        |		.CONST	0x0008			; Stack-delta
0002167a 1b 50 52 45 50 5f 4c 4f  | PREP_LO|		.TXT	27,'PREP_LOAD_REGISTER_FILE.VAL'
00021696 00                       |        |		.CONST	0x0
00021697 07                       |        |		.CONST	0x7			; DIPROC address
00021698 00                       |        |		.CONST	0x0			; Output Parameters
00021699 00                       |        |		.CONST	0x0			; Input Parameters
0002169a					exp_LOAD_DIAG_COUNTER.VAL(Sw_2, Sw_1):
0002169a 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000216a0 00 0c                    |        |		.CONST	0x000c			; Stack-delta
000216a2 15 4c 4f 41 44 5f 44 49  | LOAD_DI|		.TXT	21,'LOAD_DIAG_COUNTER.VAL'
000216b8 00                       |        |		.CONST	0x0
000216b9 07                       |        |		.CONST	0x7			; DIPROC address
000216ba 00                       |        |		.CONST	0x0			; Output Parameters
000216bb 02                       |        |		.CONST	0x2			; Input Parameters
000216bc 01                       |        |		.CONST	0x1			; In arg [2]
000216bd 00                       |        |		.CONST	0x0			; In arg [1]
000216be					exp_LOAD_WCS_ADDRESS.IOC(Sw_2, Sw_1):
000216be 4e b9 00 01 05 68        |N    h  |		JSR	Run_Experiment()
000216c4 00 0c                    |        |		.CONST	0x000c			; Stack-delta
000216c6 14 4c 4f 41 44 5f 57 43  | LOAD_WC|		.TXT	20,'LOAD_WCS_ADDRESS.IOC'
000216db 00                       |        |		.CONST	0x0
000216dc 04                       |        |		.CONST	0x4			; DIPROC address
000216dd 00                       |        |		.CONST	0x0			; Output Parameters
000216de 02                       |        |		.CONST	0x2			; Input Parameters
000216df 01                       |        |		.CONST	0x1			; In arg [2]
000216e0 00                       |        |		.CONST	0x0			; In arg [1]
000216e1 00                       |        |		.PAD	0x0
000216e2 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
000216f0 ; --------------------------------------------------------------------------------------
000216f0 ; OMSI PASCAL Function
000216f0 ;    <LVAR  0x008 1(r)>
000216f0 ; --------------------------------------------------------------------------------------
000216f0					PROG_FAIL:
000216f0 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
000216f4 bf d5                    |        |		CMPA.L	(A5),A7
000216f6 62 06                    |b       |		BHI	0x216fe
000216f8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000216fc 4e 76                    |Nv      |		TRAPV
000216fe de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00021702 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00021706 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
0002170a 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002170c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002170e 51 c8 ff fc              |Q       |		DBF	D0,0x2170c
00021712 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00021716 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021718 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
0002171c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00021720 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00021724 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002172a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002172c 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00021730 48 80                    |H       |		EXTB.W	D0
00021732 48 c0                    |H       |		EXTW.L	D0
00021734 2f 00                    |/       |		MOVE.L	D0,-(A7)
00021736 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
0002173c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002173e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021744 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021746 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002174c de fc 00 14              |        |		ADDA.W	#0x14,A7
00021750 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00021754 4e 5e                    |N^      |		UNLK	A6
00021756 4e 75                    |Nu      |		RTS
00021758 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
00021766 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00021774 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00021782 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00021794 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
000217ac ; --------------------------------------------------------------------------------------
000217ac ; OMSI PASCAL Function
000217ac ;    <LVAR  0x00e 1(r)>
000217ac ;    <LVAR  0x00a 4(r)>
000217ac ;    <LVAR  0x008 1(r)>
000217ac ; --------------------------------------------------------------------------------------
000217ac					EXP_FAIL:
000217ac 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
000217b0 bf d5                    |        |		CMPA.L	(A5),A7
000217b2 62 06                    |b       |		BHI	0x217ba
000217b4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000217b8 4e 76                    |Nv      |		TRAPV
000217ba de fc 00 74              |   t    |		ADDA.W	#0x74,A7
000217be 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000217c2 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000217c8 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
000217ce 72 01                    |r       |		MOVEQ.L	#0x01,D1
000217d0 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
000217d2 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
000217d4 78 12                    |x       |		MOVEQ.L	#0x12,D4
000217d6 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
000217d8 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000217de 41 fa ff b4              |A       |		LEA.L	0x21794,A0
000217e2 70 08                    |p       |		MOVEQ.L	#0x08,D0
000217e4 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000217e6 51 c8 ff fc              |Q       |		DBF	D0,0x217e4
000217ea 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000217ec 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000217f0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000217f2 3f 04                    |?       |		MOVE.W	D4,-(A7)
000217f4 4e 93                    |N       |		JSR	(A3)
000217f6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217f8 4e 94                    |N       |		JSR	(A4)
000217fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217fc 20 4f                    | O      |		MOVEA.L	A7,A0
000217fe 43 fa ff 58              |C  X    |		LEA.L	0x21758,A1
00021802 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021804 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021806 51 c8 ff fc              |Q       |		DBF	D0,0x21804
0002180a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002180c 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021810 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021812 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021814 4e 93                    |N       |		JSR	(A3)
00021816 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021818 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
0002181c 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00021822 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021824 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002182a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002182c 4e 94                    |N       |		JSR	(A4)
0002182e de c4                    |        |		ADDA.W	D4,A7
00021830 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00021834 b0 c1                    |        |		CMPA.W	D1,A0
00021836 67 48                    |gH      |		BEQ	0x21880
00021838 9e c5                    |        |		SUBA.W	D5,A7
0002183a 22 4f                    |"O      |		MOVEA.L	A7,A1
0002183c 45 fa ff 28              |E  (    |		LEA.L	0x21766,A2
00021840 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021842 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021844 51 c8 ff fc              |Q       |		DBF	D0,0x21842
00021848 9e c3                    |        |		SUBA.W	D3,A7
0002184a 22 4f                    |"O      |		MOVEA.L	A7,A1
0002184c 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00021850 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00021852 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00021854 51 c8 ff fc              |Q       |		DBF	D0,0x21852
00021858 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002185a 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
0002185e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021860 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021862 4e 93                    |N       |		JSR	(A3)
00021864 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021866 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002186a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002186c 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002186e 4e 93                    |N       |		JSR	(A3)
00021870 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021872 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021878 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002187a 4e 94                    |N       |		JSR	(A4)
0002187c de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00021880 9e c5                    |        |		SUBA.W	D5,A7
00021882 20 4f                    | O      |		MOVEA.L	A7,A0
00021884 43 fa fe ee              |C       |		LEA.L	0x21774,A1
00021888 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002188a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002188c 51 c8 ff fc              |Q       |		DBF	D0,0x2188a
00021890 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021892 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021896 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021898 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002189a 4e 93                    |N       |		JSR	(A3)
0002189c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002189e 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
000218a2 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
000218a8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000218aa 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000218b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000218b2 4e 94                    |N       |		JSR	(A4)
000218b4 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000218b6 20 4f                    | O      |		MOVEA.L	A7,A0
000218b8 43 fa fe da              |C       |		LEA.L	0x21794,A1
000218bc 70 16                    |p       |		MOVEQ.L	#0x16,D0
000218be 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000218c0 51 c8 ff fc              |Q       |		DBF	D0,0x218be
000218c4 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000218c8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000218ca 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000218ce 3f 01                    |?       |		MOVE.W	D1,-(A7)
000218d0 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
000218d4 4e 93                    |N       |		JSR	(A3)
000218d6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000218d8 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000218de de c3                    |        |		ADDA.W	D3,A7
000218e0 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
000218e4 4e 5e                    |N^      |		UNLK	A6
000218e6 4e 75                    |Nu      |		RTS