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

⟦48dc90fa3⟧ M200

    Length: 5120 (0x1400)
    Types: M200
    Notes: @(#)ERASEDISK,3.1,91/05/14,13:00:00, M200_PROGRAM
    Names: »ERASEDISK.M200«

Derivation

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

Disassembly

0x2043c


@ 2043c
        <LVAR  0x008 4(r)>
    <POP 2043c--0001 Body>                                              
        <POP 2043c-20452 Prologue>                           Σ0         ↓
        <POP 20452-20490 Naked>                              Σ0         ↓
            <Blob 0x20452 [12] @>                            Δ-12               {[«12""»]}
            <POP 20464-20466 StackAdj>                       Δ-8                {[«12""»]|[-8-]}
            <Lit 0x20466 11>                                                    {[«12""»]|[-4-]|[$$*** ABORT:_]}
            <POP 20478-2047a StackAdj>                       Δ-4                {[«12""»]|[-4-]|[$$*** ABORT:_]|[-4-]}
            <MI 2047a  MOVE.L  (A6+0x8),(A7)>                                   {[«12""»]|[-4-]|[$$*** ABORT:_]|[4, '(A6+0x8)']}
            <Call 0x2047e 0x102d0>                                              {[«12""»]|[-4-]|[$$*** ABORT:_]|[4, '(A6+0x8)']}
                StringCat2(a, b : String) : String
            <POP 20484-20486 StackAdj>                       Δ+8                {[«12""»]|[-4-]}
            <Call 0x20486 0x103e0>                                              {[«12""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2048c-20490 StackAdj>                       Δ+16               {}
        <POP 20490-2049e Naked>                              Σ0         
            <POP 20490-2049e Bailout>                                           {}
                <MI 20490  MOVEA.L (A5+0x8),A7>                         
                <MI 20494  MOVEA.W #0x0,A6>                             
                <MI 20498  JMP     0x20e5c>                             

0x204a6


@ 204a6
        <LVAR  0x00e 2(r)>
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 1(r)>
        <LVAR -0x008 2(w)>
        <LVAR -0x00a 2(w)>
        <LVAR -0x00c 2(r)>
        <LVAR -0x00e 2(r)>
        <LVAR -0x010 2(w)>
        <LVAR -0x012 2(r)>
        <LVAR -0x014 @ 2(r)>
    <POP 204a6-20564 Body>                                              
        <POP 204a6-204bc Prologue>                           Σ0         ↓
        <POP 204bc-20514 Naked>                              Σ0         ↓ →0x2055c
            <MI 204bc  CLR.W   (A6-0x14)>                                       {}
            <MI 204c0  CLR.W   (A6-0x12)>                                       {}
            <MI 204c4  MOVE.W  #0x2,(A6-0x10)>                                  {}
            <MI 204ca  CLR.W   (A6-0xe)>                                        {}
            <MI 204ce  CLR.W   (A6-0xc)>                                        {}
            <MI 204d2  MOVE.W  (A6+0xe),D0>                                     {}
            <MI 204d6  ASL.W   #0x8,D0>                                         {}
            <MI 204d8  ADDI.W  #0x000e,D0>                                      {}
            <MI 204dc  MOVE.W  D0,(A6-0xa)>                                     {}
            <MI 204e0  MOVE.W  (A6+0xc),(A6-0x8)>                               {}
            <MI 204e6  MOVEA.L (A6+0x8),A0>                                     {}
            <Pointer.fp 0x204ea <LVAR -0x014 @ 2(r)>>        Δ-4                {[@@-20]}
            <MI 204ee  MOVEA.L A0,A1>                                           {[@@-20]}
            <MI 204f0  MOVE.L  A1,-(A7)>                     Δ-4                {[@@-20]|[4, 'A1']}
            <MI 204f2  CLR.W   -(A7)>                        Δ-2                {[@@-20]|[4, 'A1']|[#0]}
            <Call 0x204f4 0x10204>                                              {[@@-20]|[4, 'A1']|[#0]}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 204fa-204fc StackAdj>                       Δ+8                {[-2-]}
            <MI 204fc  CLR.W   (A7)>                                            {[-2-]}
            <Pointer.fp 0x204fe <LVAR -0x004 @ 1(r)>>        Δ-4                {[-2-]|[@@-4]}
            <Call 0x20502 0x10206>                                              {[-2-]|[@@-4]}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 20508-2050a StackAdj>                       Δ+6                {}
            <MI 2050a  ANDI.W  #0x00ff,(A0)>                                    {}
            <MI 2050e  TST.B   (A6-0x4)>                                        {}
            <MI 20512  BNE     0x2055c>                                         {}
        <POP 20514-2055c Naked>                              Σ0         ↓
            <Blob 0x20514 [50] @>                            Δ-50               {[«50""»]}
            <POP 20526-20528 StackAdj>                       Δ-8                {[«50""»]|[-8-]}
            <Lit 0x20528 49>                                                    {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]}
            <POP 2053a-2053c StackAdj>                       Δ-4                {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
            <MI 2053c  CLR.L   D0>                                              {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
            <MI 2053e  MOVE.W  (A6+0xc),D0>                                     {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
            <MI 20542  MOVE.L  D0,-(A7)>                     Δ-4                {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]|[4, 'D0']}
            <Call 0x20544 0x102e4>                                              {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 2054a-2054c StackAdj>                       Δ+4                {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
            <Call 0x2054c 0x102d0>                                              {[«50""»]|[-4-]|[$$Error reading disk controller EEPROM at location_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20552-20554 StackAdj>                       Δ+8                {[«50""»]|[-4-]}
            <Call 0x20554 0x2043c>                                              {[«50""»]|[-4-]}
            <POP 20558-2055c StackAdj>                       Δ+54               {}
        <POP 2055c-20564 Epilogue>                           Σ0         ←0x204bc

0x20564


@ 20564
        <LVAR  0x00a 1(rw)>
        <LVAR  0x008 2(r)>
        <LVAR -0x008 @ 2(r)>
        <LVAR -0x00a @>
        <LVAR -0x00c 2(r)>
        <LVAR -0x00e 2(r)>
        <LVAR -0x010 2(w)>
        <LVAR -0x012 2(r)>
        <LVAR -0x014 2(r)>
        <LVAR -0x016 2(w)>
        <LVAR -0x018 2(r)>
        <LVAR -0x01a @ 2(r)>
    <POP 20564-205de Body>                                              
        <POP 20564-2057a Prologue>                           Σ0         ↓
        <POP 2057a-205d2 Naked>                              Σ0         ↓ →0x205d6
            <MI 2057a  CLR.W   (A6-0x1a)>                                       {}
            <MI 2057e  CLR.W   (A6-0x18)>                                       {}
            <MI 20582  MOVE.W  #0x2,(A6-0x16)>                                  {}
            <MI 20588  CLR.W   (A6-0x14)>                                       {}
            <MI 2058c  CLR.W   (A6-0x12)>                                       {}
            <MI 20590  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 20594  ASL.W   #0x8,D0>                                         {}
            <MI 20596  MOVE.W  D0,(A6-0x10)>                                    {}
            <MI 2059a  CLR.W   (A6-0xe)>                                        {}
            <MI 2059e  CLR.W   (A6-0xc)>                                        {}
            <Pointer.fp 0x205a2 <LVAR -0x01a @ 2(r)>>        Δ-4                {[@@-26]}
            <MI 205a6  LEA.L   (A6-0x8),A0>                                     {[@@-26]}
            <MI 205aa  MOVE.L  A0,-(A7)>                     Δ-4                {[@@-26]|[4, 'A0']}
            <MI 205ac  CLR.W   -(A7)>                        Δ-2                {[@@-26]|[4, 'A0']|[#0]}
            <Call 0x205ae 0x10204>                                              {[@@-26]|[4, 'A0']|[#0]}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 205b4-205b6 StackAdj>                       Δ+8                {[-2-]}
            <MI 205b6  CLR.W   (A7)>                                            {[-2-]}
            <Pointer.fp 0x205b8 <LVAR -0x00a @>>             Δ-4                {[-2-]|[@@-10]}
            <Call 0x205bc 0x10206>                                              {[-2-]|[@@-10]}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 205c2-205c4 StackAdj>                       Δ+6                {}
            <MI 205c4  CLR.B   (A6+0xa)>                                        {}
            <MI 205c8  MOVE.W  (A6-0x8),D0>                                     {}
            <MI 205cc  CMPI.W  #0x0001,D0>                                      {}
            <MI 205d0  BNE     0x205d6>                                         {}
        <POP 205d2-205d6 Naked>                              Σ0         ↓
            <MI 205d2  ADDQ.B  #0x1,(A6+0xa)>                                   {}
        <POP 205d6-205de Epilogue>                           Σ0         ←0x2057a

0x205de


@ 205de
        <LVAR  0x018 4(r)>
        <LVAR  0x014 4(r)>
        <LVAR  0x010 4(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
    <POP 205de-206ac Body>                                              
        <POP 205de-205f4 Prologue>                           Σ0         ↓
        <POP 205f4-20602 RegCacheLoad>                       Σ0         ↓
        <POP 20602-2061e Naked>                              Σ0 Δ-12    ↓ →0x20642
            <MI 20602  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20606  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 20608  CLR.B   (A0)>                                            {[4, 'A0']}
            <MI 2060a  MOVEA.L (A6+0x10),A1>                                    {[4, 'A0']}
            <MI 2060e  MOVE.L  A1,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A1']}
            <MI 20610  MOVE.W  0x25112,D0>                                      {[4, 'A0']|[4, 'A1']}
            <MI 20616  EXTW.L  D0>                                              {[4, 'A0']|[4, 'A1']}
            <MI 20618  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'A1']|[4, 'D0']}
            <MI 2061a  CMP.L   (A1),D0>                                         {[4, 'A0']|[4, 'A1']|[4, 'D0']}
            <MI 2061c  BGT     0x20642>                                         {[4, 'A0']|[4, 'A1']|[4, 'D0']}
        <POP 2061e-20634 Naked>                              Σ-12       ↓ →0x20642
            <MI 2061e  MOVEA.L (A6+0x14),A0>                                    {[-12-]}
            <MI 20622  MOVE.L  (A1),D4>                                         {[-12-]}
            <MI 20624  MOVE.L  D0,D3>                                           {[-12-]}
            <Call 0x20626 0x10294>                                              {[-12-]}
                ?divs_d3_d4
            <MI 20628  ADD.L   D4,(A0)>                                         {[-12-]}
            <MI 2062a  MOVE.L  D3,(A1)>                                         {[-12-]}
            <MI 2062c  MOVE.W  0x25110,D0>                                      {[-12-]}
            <MI 2062e  EXTW.L  D0>                                              {[-12-]}
            <MI 20630  CMP.L   (A0),D0>                                         {[-12-]}
            <MI 20632  BGT     0x20642>                                         {[-12-]}
        <POP 20634-20642 Naked>                              Σ-12       ↓
            <MI 20634  MOVEA.L (A6+0x18),A1>                                    {[-12-]}
            <MI 20638  MOVE.L  (A0),D4>                                         {[-12-]}
            <MI 2063a  MOVE.L  D0,D3>                                           {[-12-]}
            <Call 0x2063c 0x10294>                                              {[-12-]}
                ?divs_d3_d4
            <MI 2063e  ADD.L   D4,(A1)>                                         {[-12-]}
            <MI 20640  MOVE.L  D3,(A0)>                                         {[-12-]}
        <POP 20642-20656 Naked>                              Σ-12       ↓ →0x2065e ←0x20602 ←0x2061e
            <MI 20642  MOVEA.L (A6+0x18),A0>                                    {[-12-]}
            <MI 20646  MOVE.L  (A0),D0>                                         {[-12-]}
            <MI 20648  ADDQ.L  #0x1,D0>                                         {[-12-]}
            <MI 2064a  CLR.L   D1>                                              {[-12-]}
            <MI 2064c  MOVE.W  0x2510e,D1>                                      {[-12-]}
            <MI 20652  CMP.L   D1,D0>                                           {[-12-]}
            <MI 20654  BCC     0x2065e>                                         {[-12-]}
        <POP 20656-2065e Naked>                              Σ-12       →0x206a0 ←0x20698
            <MI 20656  MOVEA.L (A6+0xc),A0>                                     {[-12-]}
            <MI 2065a  MOVE.L  #0x08,(A0)>                                      {[-12-]}
            <MI 2065c  BRA     0x206a0>                                         {[-12-]}
        <POP 2065e-20662 Naked>                              Σ-12       ↓ →0x2066c ←0x20642
            <MI 2065e  CMP.L   (A0),D1>                                         {[-12-]}
            <MI 20660  BNE     0x2066c>                                         {[-12-]}
        <POP 20662-2066c Naked>                              Σ-12       →0x206a0
            <MI 20662  MOVEA.L (A7+0x8),A0>                                     {[-12-]}
            <MI 20666  MOVE.B  #0x01,(A0)>                                      {[-12-]}
            <MI 2066a  BRA     0x206a0>                                         {[-12-]}
        <POP 2066c-20698 Naked>                              Σ-12       ↓ →0x2069a ←0x2065e
            <MI 2066c  MOVEA.L (A6+0x14),A0>                                    {[-12-]}
            <MI 20670  MOVE.W  0x25110,D0>                                      {[-12-]}
            <MI 20672  EXTW.L  D0>                                              {[-12-]}
            <MI 20674  SUB.L   (A0),D0>                                         {[-12-]}
            <MI 20676  SUBQ.L  #0x1,D0>                                         {[-12-]}
            <MI 20678  MOVE.L  D0,D4>                                           {[-12-]}
            <MI 2067a  MOVE.L  (A7),D3>                                         {[-12-]}
            <Call 0x2067c 0x1028c>                                              {[-12-]}
                ?muls_d3_d4
            <MI 20682  MOVE.L  (A7),D0>                                         {[-12-]}
            <MI 20684  MOVEA.L (A7+0x4),A0>                                     {[-12-]}
            <MI 20688  SUB.L   (A0),D0>                                         {[-12-]}
            <MI 2068a  ADD.L   D4,D0>                                           {[-12-]}
            <MI 2068c  MOVE.L  D0,D4>                                           {[-12-]}
            <MI 2068e  MOVEQ.L #0x02,D3>                                        {[-12-]}
            <Call 0x20690 0x10294>                                              {[-12-]}
                ?divs_d3_d4
            <MI 20692  MOVE.L  D4,D7>                                           {[-12-]}
            <MI 20694  CMP.L   #0x08,D7>                                        {[-12-]}
            <MI 20696  BLT     0x2069a>                                         {[-12-]}
        <POP 20698-2069a Naked>                              Σ-12       →0x20656
            <MI 20698  BRA     0x20656>                                         {[-12-]}
        <POP 2069a-206a0 Naked>                              Σ-12       ↓ ←0x2066c
            <MI 2069a  MOVEA.L (A6+0xc),A0>                                     {[-12-]}
            <MI 2069e  MOVE.L  D7,(A0)>                                         {[-12-]}
        <POP 206a0-206a4 Naked>                              Σ-12 Δ+12  ↓ ←0x20656 ←0x20662
            <POP 206a0-206a4 StackAdj>                       Δ+12               {}
        <POP 206a4-206ac Epilogue>                           Σ0         

0x206ac


@ 206ac
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(rw)>
        <LVAR -0x008 @ 4(r)>
        <LVAR -0x00c @ 4(r)>
        <LVAR -0x010 @ 4(rw)>
        <LVAR -0x016 @>
        <LVAR -0x018 @ 2(r)>
        <LVAR -0x01a @ 2(r)>
        <LVAR -0x01c @ 2(r)>
        <LVAR -0x01e @ 2(r)>
        <LVAR -0x021 @ 1(r)>
        <LVAR -0x022 @ 1(r)>
        <LVAR -0x024 2(w)>
        <LVAR -0x026 2(w)>
        <LVAR -0x028 2(w)>
        <LVAR -0x02a 2(r)>
        <LVAR -0x02c 2(r)>
        <LVAR -0x02e 2(w)>
        <LVAR -0x030 2(r)>
        <LVAR -0x032 @ 2(w)>
    <POP 206ac-20886 Body>                                              
        <POP 206ac-206c2 Prologue>                           Σ0         ↓
        <POP 206c2-206d4 RegCacheLoad>                       Σ0         ↓
        <POP 206d4-206d6 Naked>                              Σ0         ↓
            <MI 206d4  MOVEQ.L #0x00,D7>                                        {}
        <POP 206d6-20702 Naked>                              Σ0         ↓ →0x206d6 ←0x206d6
            <POP 0x206d6 LimitCheck 0x0 ≤ D7 ≤ 0x1fff>                          {}
            <MI 206e0  MOVE.L  D7,D0>                                           {}
            <MI 206e2  ASL.L   #0x1,D0>                                         {}
            <MI 206e4  LEA.L   0x21106,A0>                                      {}
            <MI 206ea  MOVE.L  (A6+0x8),D1>                                     {}
            <POP 0x206ee LimitCheck 0x0 ≤ D1 ≤ 0xffff>                          {}
            <MI 206f4  MOVE.W  D1,(A0+D0.L+#0x8)>                               {}
            <MI 206f8  ADDQ.L  #0x1,D7>                                         {}
            <MI 206fa  CMPI.L  #0x00001fff,D7>                                  {}
            <MI 20700  BLE     0x206d6>                                         {}
        <POP 20702-207be Naked>                              Σ0         ↓
            <MI 20702  MOVE.W  (A6+0xc),D6>                                     {}
            <MI 20706  ANDI.W  #0x0003,D6>                                      {}
            <MI 2070a  MOVE.W  D6,-(A7)>                     Δ-2                {[2, 'D6']}
            <Const 0x2070c 0x2d0.2>                          Δ-2                {[2, 'D6']|[#720]}
            <MI 20710  ADD.W   D6,(A7)>                                         {[2, 'D6']|[-2-]}
            <Pointer.fp 0x20712 <LVAR -0x01e @ 2(r)>>        Δ-4                {[2, 'D6']|[-2-]|[@@-30]}
            <Call 0x20716 0x204a6>                                              {[2, 'D6']|[-2-]|[@@-30]}
            <POP 20718-2071a StackAdj>                       Δ+6                {[2, 'D6']}
            <MI 2071a  MOVE.W  D6,(A7)>                                         {[2, 'D6']}
            <Const 0x2071c 0x350.2>                          Δ-2                {[2, 'D6']|[#848]}
            <MI 20720  ADD.W   D6,(A7)>                                         {[2, 'D6']|[-2-]}
            <Pointer.fp 0x20722 <LVAR -0x01c @ 2(r)>>        Δ-4                {[2, 'D6']|[-2-]|[@@-28]}
            <Call 0x20726 0x204a6>                                              {[2, 'D6']|[-2-]|[@@-28]}
            <POP 20728-2072a StackAdj>                       Δ+6                {[2, 'D6']}
            <MI 2072a  MOVE.W  D6,(A7)>                                         {[2, 'D6']}
            <Const 0x2072c 0x1d0.2>                          Δ-2                {[2, 'D6']|[#464]}
            <MI 20730  ADD.W   D6,(A7)>                                         {[2, 'D6']|[-2-]}
            <Pointer.fp 0x20732 <LVAR -0x01a @ 2(r)>>        Δ-4                {[2, 'D6']|[-2-]|[@@-26]}
            <Call 0x20736 0x204a6>                                              {[2, 'D6']|[-2-]|[@@-26]}
            <POP 20738-2073a StackAdj>                       Δ+6                {[2, 'D6']}
            <MI 2073a  MOVE.W  D6,(A7)>                                         {[2, 'D6']}
            <Const 0x2073c 0x250.2>                          Δ-2                {[2, 'D6']|[#592]}
            <MI 20740  ADD.W   D6,(A7)>                                         {[2, 'D6']|[-2-]}
            <Pointer.fp 0x20742 <LVAR -0x018 @ 2(r)>>        Δ-4                {[2, 'D6']|[-2-]|[@@-24]}
            <Call 0x20746 0x204a6>                                              {[2, 'D6']|[-2-]|[@@-24]}
            <POP 20748-2074a StackAdj>                       Δ+6                {[2, 'D6']}
            <MI 2074a  MOVE.W  D6,(A7)>                                         {[2, 'D6']}
            <Const 0x2074c 0x310.2>                          Δ-2                {[2, 'D6']|[#784]}
            <MI 20750  ADD.W   D6,(A7)>                                         {[2, 'D6']|[-2-]}
            <Pointer.fp 0x20752 <LVAR -0x016 @>>             Δ-4                {[2, 'D6']|[-2-]|[@@-22]}
            <Call 0x20756 0x204a6>                                              {[2, 'D6']|[-2-]|[@@-22]}
            <POP 20758-2075a StackAdj>                       Δ+8                {}
            <MI 2075a  CLR.L   D0>                                              {}
            <MI 2075c  MOVE.W  (A6-0x18),D0>                                    {}
            <MI 20760  ASL.L   #0x8,D0>                                         {}
            <MI 20762  CLR.L   D1>                                              {}
            <MI 20764  MOVE.W  (A6-0x1a),D1>                                    {}
            <MI 20768  ADD.L   D1,D0>                                           {}
            <POP 0x2076a LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 20770  MOVE.W  D0,0x2510e>                                      {}
            <MI 20776  MOVE.W  (A6-0x1c),D0>                                    {}
            <POP 0x2077a LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 2077e  MOVE.W  D0,0x25110>                                      {}
            <MI 20784  MOVE.W  (A6-0x1e),D0>                                    {}
            <POP 0x20788 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 2078c  MOVE.W  D0,0x25112>                                      {}
            <MI 20792  CLR.L   (A6-0x10)>                                       {}
            <MI 20794  CLR.L   (A6-0xc)>                                        {}
            <MI 20798  CLR.L   (A6-0x8)>                                        {}
            <MI 2079c  MOVE.L  #0x8,(A6-0x4)>                                   {}
            <MI 207a2  CLR.W   (A6-0x30)>                                       {}
            <MI 207a6  MOVE.W  #0x2,(A6-0x2e)>                                  {}
            <MI 207ac  CLR.W   (A6-0x2c)>                                       {}
            <MI 207b0  CLR.W   (A6-0x2a)>                                       {}
            <MI 207b4  MOVE.W  D6,D0>                                           {}
            <MI 207b6  ASL.W   #0x8,D0>                                         {}
            <MI 207b8  ADDQ.W  #0x3,D0>                                         {}
            <MI 207ba  MOVE.W  D0,(A6-0x28)>                                    {}
        <POP 207be-20836 Naked>                              Σ0         ↓ →0x20876 ←0x20876
            <MI 207be  MOVE.L  (A6-0x4),D0>                                     {}
            <MI 207c0  ASL.L   #0x8,D0>                                         {}
            <POP 0x207c2 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 207c8  MOVE.W  D0,(A6-0x32)>                                    {}
            <MI 207cc  MOVE.L  (A6-0x8),D0>                                     {}
            <POP 0x207d0 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 207d6  MOVE.W  D0,(A6-0x26)>                                    {}
            <MI 207da  MOVE.L  (A6-0xc),D0>                                     {}
            <MI 207de  ASL.L   #0x8,D0>                                         {}
            <MI 207e0  ADD.L   (A6-0x10),D0>                                    {}
            <POP 0x207e2 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 207e8  MOVE.W  D0,(A6-0x24)>                                    {}
            <Pointer.fp 0x207ec <LVAR -0x032 @ 2(w)>>        Δ-4                {[@@-50]}
            <MI 207f0  LEA.L   0x2110e,A0>                                      {[@@-50]}
            <MI 207f6  MOVE.L  A0,-(A7)>                     Δ-4                {[@@-50]|[4, 'A0']}
            <MI 207f8  CLR.W   -(A7)>                        Δ-2                {[@@-50]|[4, 'A0']|[#0]}
            <Call 0x207fa 0x10204>                                              {[@@-50]|[4, 'A0']|[#0]}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 20800-20804 StackAdj>                       Δ+10               {}
            <MI 20804  MOVE.L  (A6-0x4),D0>                                     {}
            <MI 20806  ASL.L   #0x1,D0>                                         {}
            <MI 20808  ADD.L   D0,(A6-0x10)>                                    {}
            <Pointer.fp 0x2080a <LVAR -0x008 @ 4(r)>>        Δ-4                {[@@-8]}
            <Pointer.fp 0x2080e <LVAR -0x00c @ 4(r)>>        Δ-4                {[@@-8]|[@@-12]}
            <Pointer.fp 0x20812 <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-8]|[@@-12]|[@@-16]}
            <Pointer.fp 0x20814 <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-8]|[@@-12]|[@@-16]|[@@-4]}
            <Pointer.fp 0x20816 <LVAR -0x021 @ 1(r)>>        Δ-4                {[@@-8]|[@@-12]|[@@-16]|[@@-4]|[@@-33]}
            <Call 0x2081a 0x205de>                                              {[@@-8]|[@@-12]|[@@-16]|[@@-4]|[@@-33]}
            <POP 2081e-20822 StackAdj>                       Δ+18               {[-2-]}
            <MI 20822  CLR.W   (A7)>                                            {[-2-]}
            <Pointer.fp 0x20824 <LVAR -0x022 @ 1(r)>>        Δ-4                {[-2-]|[@@-34]}
            <Call 0x20828 0x10206>                                              {[-2-]|[@@-34]}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 2082e-20830 StackAdj>                       Δ+6                {}
            <MI 20830  TST.B   (A6-0x22)>                                       {}
            <MI 20834  BNE     0x20876>                                         {}
        <POP 20836-20876 Naked>                              Σ0         
            <Blob 0x20836 [40] @>                            Δ-40               {[«40""»]}
            <POP 20848-2084a StackAdj>                       Δ-4                {[«40""»]|[-4-]}
            <Lit 0x2084a 39>                                                    {[«40""»]|[$$Error during WRITE operation, aborting!]}
            <Call 0x2085e 0x103e0>                                              {[«40""»]|[$$Error during WRITE operation, aborting!]}
                WriteConsoleStringCrLf(str : String)
            <POP 20864-20868 StackAdj>                       Δ+44               {}
            <POP 20868-20876 Bailout>                                           {}
                <MI 20868  MOVEA.L (A5+0x8),A7>                         
                <MI 2086c  MOVEA.W #0x0,A6>                             
                <MI 20870  JMP     0x20e5c>                             
        <POP 20876-2087e Naked>                              Σ0         ↓ →0x207be ←0x207be
            <MI 20876  TST.B   (A6-0x21)>                                       {}
            <MI 2087a  BEQ     0x207be>                                         {}
        <POP 2087e-20886 Epilogue>                           Σ0         

0x20886


@ 20886
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x002 @ 1(r)>
        <LVAR -0x004 2(r)>
        <LVAR -0x006 2(w)>
        <LVAR -0x008 2(w)>
        <LVAR -0x00a 2(r)>
        <LVAR -0x00c 2(r)>
        <LVAR -0x00e 2(w)>
        <LVAR -0x010 2(r)>
        <LVAR -0x012 @ 2(r)>
    <POP 20886-2093e Body>                                              
        <POP 20886-2089c Prologue>                           Σ0         ↓
        <POP 2089c-208fc Naked>                              Σ0         ↓ →0x20936
            <MI 2089c  CLR.W   (A6-0x12)>                                       {}
            <MI 208a0  CLR.W   (A6-0x10)>                                       {}
            <MI 208a4  MOVE.W  #0x2,(A6-0xe)>                                   {}
            <MI 208aa  CLR.W   (A6-0xc)>                                        {}
            <MI 208ae  CLR.W   (A6-0xa)>                                        {}
            <MI 208b2  MOVE.W  (A6+0xc),D0>                                     {}
            <MI 208b6  ASL.W   #0x8,D0>                                         {}
            <MI 208b8  ADDI.W  #0x000d,D0>                                      {}
            <MI 208bc  MOVE.W  D0,(A6-0x8)>                                     {}
            <MI 208c0  MOVE.L  (A6+0x8),D0>                                     {}
            <POP 0x208c4 LimitCheck 0x0 ≤ D0 ≤ 0xffff>                          {}
            <MI 208ce  MOVE.W  D0,(A6-0x6)>                                     {}
            <MI 208d2  CLR.W   (A6-0x4)>                                        {}
            <Pointer.fp 0x208d6 <LVAR -0x012 @ 2(r)>>        Δ-4                {[@@-18]}
            <Const 0x208da 0x0.4>                            Δ-4                {[@@-18]|[##0]}
            <MI 208de  CLR.W   -(A7)>                        Δ-2                {[@@-18]|[##0]|[#0]}
            <Call 0x208e0 0x10204>                                              {[@@-18]|[##0]|[#0]}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 208e6-208e8 StackAdj>                       Δ+8                {[-2-]}
            <MI 208e8  CLR.W   (A7)>                                            {[-2-]}
            <Pointer.fp 0x208ea <LVAR -0x002 @ 1(r)>>        Δ-4                {[-2-]|[@@-2]}
            <Call 0x208ee 0x10206>                                              {[-2-]|[@@-2]}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 208f4-208f6 StackAdj>                       Δ+6                {}
            <MI 208f6  TST.B   (A6-0x2)>                                        {}
            <MI 208fa  BNE     0x20936>                                         {}
        <POP 208fc-20936 Naked>                              Σ0         
            <Blob 0x208fc [40] @>                            Δ-40               {[«40""»]}
            <POP 20908-2090a StackAdj>                       Δ-4                {[«40""»]|[-4-]}
            <Lit 0x2090a 40>                                                    {[«40""»]|[$$Error during format operation, aborting!]}
            <Call 0x2091e 0x103e0>                                              {[«40""»]|[$$Error during format operation, aborting!]}
                WriteConsoleStringCrLf(str : String)
            <POP 20924-20928 StackAdj>                       Δ+44               {}
            <POP 20928-20936 Bailout>                                           {}
                <MI 20928  MOVEA.L (A5+0x8),A7>                         
                <MI 2092c  MOVEA.W #0x0,A6>                             
                <MI 20930  JMP     0x20e5c>                             
        <POP 20936-2093e Epilogue>                           Σ0         ←0x2089c

0x2093e


@ 2093e
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x004 @ 4(rw)>
    <POP 2093e-20b1a Body>                                              
        <POP 2093e-20954 Prologue>                           Σ0         ↓
        <POP 20954-2096e RegCacheLoad>                       Σ0         ↓
        <POP 2096e-20a76 Naked>                              Σ0         ↓ →0x20a80
            <Blob 0x2096e [40] @>                            Δ-40               {[«40""»]}
            <POP 2097e-20980 StackAdj>                       Δ-8                {[«40""»]|[-8-]}
            <Lit 0x20980 39>                                                    {[«40""»]|[-4-]|[$$Please provide a data pattern for pass_]}
            <MI 2098c  MOVE.L  (A6+0xc),(A7)>                                   {[«40""»]|[-4-]|[4, '(A6+0xc)']}
            <POP 2098a-2098c StackAdj>                       Δ-8                {[«40""»]|[-4-]|[4, '(A6+0xc)']|[-8-]}
            <Call 0x20990 0x102e4>                                              {[«40""»]|[-4-]|[4, '(A6+0xc)']|[-8-]}
                Long2String(a : Long) : String
            <POP 20996-20998 StackAdj>                       Δ+4                {[«40""»]|[-4-]|[4, '(A6+0xc)']|[-4-]}
            <Call 0x20998 0x102d0>                                              {[«40""»]|[-4-]|[4, '(A6+0xc)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 2099e-209a0 StackAdj>                       Δ+8                {[«40""»]|[-4-]}
            <Call 0x209a0 0x103e0>                                              {[«40""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 209a2-209a6 StackAdj>                       Δ+44               {}
            <Call 0x209a6 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x209ac [36] @>                            Δ-36               {[«36""»]}
            <POP 209bc-209be StackAdj>                       Δ-4                {[«36""»]|[-4-]}
            <Lit 0x209be 35>                                                    {[«36""»]|[$$Enter one of the following options:]}
            <Call 0x209cc 0x103e0>                                              {[«36""»]|[$$Enter one of the following options:]}
                WriteConsoleStringCrLf(str : String)
            <POP 209ce-209d0 StackAdj>                       Δ+40               {}
            <Blob 0x209d0 [34] @>                            Δ-34               {[«34""»]}
            <POP 209dc-209de StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x209de 34>                                                    {[«34""»]|[$$    0 -> data pattern of all zeros]}
            <Call 0x209ec 0x103e0>                                              {[«34""»]|[$$    0 -> data pattern of all zeros]}
                WriteConsoleStringCrLf(str : String)
            <POP 209ee-209ef StackAdj>                       Δ+38       ↓       {}
            <Blob 0x209ef [34] @>                            Δ-34               {[«34""»]}
            <POP 209fe-20a00 StackAdj>                       Δ-4                {[«34""»]|[-4-]}
            <Lit 0x20a00 33>                                                    {[«34""»]|[$$    1 -> data pattern of all ones]}
            <Call 0x20a0e 0x103e0>                                              {[«34""»]|[$$    1 -> data pattern of all ones]}
                WriteConsoleStringCrLf(str : String)
            <POP 20a10-20a14 StackAdj>                       Δ+38               {}
            <Blob 0x20a14 [60] @>                            Δ-60               {[«60""»]}
            <POP 20a20-20a22 StackAdj>                       Δ-4                {[«60""»]|[-4-]}
            <Lit 0x20a22 60>                                                    {[«60""»]|[$$    2 -> you want to supply a character for the data pattern]}
            <Call 0x20a30 0x103e0>                                              {[«60""»]|[$$    2 -> you want to supply a character for the data pattern]}
                WriteConsoleStringCrLf(str : String)
            <POP 20a32-20a36 StackAdj>                       Δ+64               {}
            <Call 0x20a36 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x20a3c [28] @>                            Δ-28               {[«28""»]}
            <POP 20a4c-20a4e StackAdj>                       Δ-8                {[«28""»]|[-8-]}
            <Lit 0x20a4e 27>                                                    {[«28""»]|[-4-]|[$$Please enter your option :_]}
            <Const 0x20a5c 0x0.4>                            Δ-4                {[«28""»]|[-4-]|[$$Please enter your option :_]|[##0]}
            <Const 0x20a60 0x2.4>                            Δ-4                {[«28""»]|[-4-]|[$$Please enter your option :_]|[##0]|[##2]}
            <Call 0x20a64 0x103ec>                                              {[«28""»]|[-4-]|[$$Please enter your option :_]|[##0]|[##2]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 20a6a-20a6e StackAdj>                       Δ+12               {[«28""»]|[-4-]}
            <MI 20a6e  MOVE.L  (A7)+,D7>                     Δ+4                {[«28""»]}
            <POP 20a70-20a72 StackAdj>                       Δ+28               {}
            <MI 20a72  TST.L   D7>                                              {}
            <MI 20a74  BNE     0x20a80>                                         {}
        <POP 20a76-20a80 Naked>                              Σ0         →0x20b12
            <MI 20a76  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20a7a  CLR.L   (A0)>                                            {}
            <MI 20a7c  BRA     0x20b12>                                         {}
        <POP 20a80-20a84 Naked>                              Σ0         ↓ →0x20a92 ←0x2096e
            <MI 20a80  CMP.L   #0x01,D7>                                        {}
            <MI 20a82  BNE     0x20a92>                                         {}
        <POP 20a84-20a92 Naked>                              Σ0         →0x20b12
            <MI 20a84  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20a88  MOVE.L  #0xffff,(A0)>                                    {}
            <MI 20a8e  BRA     0x20b12>                                         {}
        <POP 20a92-20a94 Naked>                              Σ0         ↓ ←0x20a80
            <MI 20a92  MOVE.L  #0x01,(A6-0x4)>                                  {}
        <POP 20a94-20a9a Naked>                              Σ0         ↓ →0x20aa4 ←0x20af8
            <MI 20a94  MOVEA.L (A6-0x4),A0>                                     {}
            <MI 20a96  CMPA.W  #0x01,A0>                                        {}
            <MI 20a98  BEQ     0x20aa4>                                         {}
        <POP 20a9a-20aa4 Naked>                              Σ0         ↓
            <Pointer.fp 0x20a9a <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x20a9c 0x102bc>                                              {[@@-4]}
                FreeString(VAR a : String)
            <POP 20aa2-20aa4 StackAdj>                       Δ+4                {}
        <POP 20aa4-20ad8 Naked>                              Σ0         ↓ →0x20af8 ←0x20a94
            <Blob 0x20aa4 [58] @>                            Δ-58               {[«58""»]}
            <POP 20ab4-20ab6 StackAdj>                       Δ-8                {[«58""»]|[-8-]}
            <Lit 0x20ab6 57>                                                    {[«58""»]|[-4-]|[$$Please enter the character to be used for this pattern :_]}
            <Call 0x20ac4 0x103e4>                                              {[«58""»]|[-4-]|[$$Please enter the character to be used for this pattern :_]}
                AskConsoleString(prompt : String) : String
            <POP 20aca-20acc StackAdj>                       Δ+4                {[«58""»]|[-4-]}
            <MI 20acc  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {[«58""»]}
            <POP 20ace-20ad0 StackAdj>                       Δ+58               {}
            <MI 20ad0  MOVEA.L (A6-0x4),A0>                                     {}
            <MI 20ad2  MOVE.W  (A0),D0>                                         {}
            <MI 20ad4  CMP.W   #0x01,D0>                                        {}
            <MI 20ad6  BEQ     0x20af8>                                         {}
        <POP 20ad8-20af8 Naked>                              Σ0         ↓
            <Blob 0x20ad8 [32] @>                            Δ-32               {[«32""»]}
            <POP 20ae4-20ae6 StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Lit 0x20ae6 32>                                                    {[«32""»]|[$$Please enter only one character!]}
            <Call 0x20af4 0x103e0>                                              {[«32""»]|[$$Please enter only one character!]}
                WriteConsoleStringCrLf(str : String)
            <POP 20af6-20af8 StackAdj>                       Δ+36               {}
        <POP 20af8-20afe Naked>                              Σ0         ↓ →0x20a94 ←0x20aa4
            <MI 20af8  MOVE.W  (A0),D0>                                         {}
            <MI 20afa  CMP.W   #0x01,D0>                                        {}
            <MI 20afc  BNE     0x20a94>                                         {}
        <POP 20afe-20b12 Naked>                              Σ0         ↓
            <MI 20afe  CLR.L   D0>                                              {}
            <MI 20b00  MOVE.B  (A0+0x2),D0>                                     {}
            <MI 20b04  MOVE.L  D0,D6>                                           {}
            <MI 20b06  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 20b0a  MOVE.L  D6,D0>                                           {}
            <MI 20b0c  ASL.L   #0x8,D0>                                         {}
            <MI 20b0e  ADD.L   D6,D0>                                           {}
            <MI 20b10  MOVE.L  D0,(A0)>                                         {}
        <POP 20b12-20b1a Epilogue>                           Σ0         ←0x20a76 ←0x20a84

0x20b1a


@ 20b1a
START
    <POP 20b1a--0001 Body>                                   Δ+6        
        <POP 20b1a-20b24 Prologue>                           Σ0         
        <POP 20b24-20b5a Naked>                              Σ0 Δ-34    ↓ →0x20b68
            <Call 0x20b24 0x10398>                                              {}
                FSCALL_10398
            <Blob 0x20b2a [34] @>                            Δ-34               {[«34""»]}
            <POP 20b36-20b38 StackAdj>                       Δ-6                {[«34""»]|[-6-]}
            <Lit 0x20b38 34>                                                    {[«34""»]|[-2-]|[$$Do you really want to erase a disk]}
            <POP 20b4a-20b4c StackAdj>                       Δ-2                {[«34""»]|[-2-]|[$$Do you really want to erase a disk]|[-2-]}
            <MI 20b4c  CLR.B   (A7)>                                            {[«34""»]|[-2-]|[$$Do you really want to erase a disk]|[-2-]}
            <Call 0x20b4e 0x103f0>                                              {[«34""»]|[-2-]|[$$Do you really want to erase a disk]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20b54-20b56 StackAdj>                       Δ+6                {[«34""»]|[-2-]}
            <MI 20b56  TST.B   (A7)+>                        Δ+2                {[«34""»]}
            <MI 20b58  BNE     0x20b68>                                         {[«34""»]}
        <POP 20b5a-20b68 Naked>                              Σ-34       ↓
            <MI 20b5a  CLR.B   -(A7)>                        Δ-2                {[-34-]|[#0]}
            <Const 0x20b5c 0x1.4>                            Δ-4                {[-34-]|[#0]|[##1]}
            <Call 0x20b60 0x103b8>                                              {[-34-]|[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 20b66-20b68 StackAdj>                       Δ+6                {[-34-]}
        <POP 20b68-20bc4 Naked>                              Σ-34 Δ+34  ↓ →0x20bf8 ←0x20b24
            <POP 20b68-20b69 StackAdj>                       Δ+34       ↓       {}
            <Blob 0x20b69 [42] @>                            Δ-42               {[«42""»]}
            <POP 20b78-20b7a StackAdj>                       Δ-8                {[«42""»]|[-8-]}
            <Lit 0x20b7a 41>                                                    {[«42""»]|[-4-]|[$$Enter unit number of disk to be erased :_]}
            <Const 0x20b8e 0x0.4>                            Δ-4                {[«42""»]|[-4-]|[$$Enter unit number of disk to be erased :_]|[##0]}
            <Const 0x20b92 0xf.4>                            Δ-4                {[«42""»]|[-4-]|[$$Enter unit number of disk to be erased :_]|[##0]|[##15]}
            <Call 0x20b96 0x103ec>                                              {[«42""»]|[-4-]|[$$Enter unit number of disk to be erased :_]|[##0]|[##15]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 20b9c-20ba0 StackAdj>                       Δ+12               {[«42""»]|[-4-]}
            <MI 20ba0  MOVE.L  (A7)+,D0>                     Δ+4                {[«42""»]}
            <POP 0x20ba2 LimitCheck 0x0 ≤ D0 ≤ 0xf>                             {[«42""»]}
            <POP 20bac-20bb0 StackAdj>                       Δ+42               {}
            <MI 20bb0  MOVE.W  D0,0x25138>                                      {}
            <POP 20bb6-20bb8 StackAdj>                       Δ-2                {[-2-]}
            <MI 20bb8  MOVE.W  D0,-(A7)>                     Δ-2                {[-2-]|[2, 'D0']}
            <Call 0x20bba 0x20564>                                              {[-2-]|[2, 'D0']}
            <POP 20bbe-20bc0 StackAdj>                       Δ+2                {[-2-]}
            <MI 20bc0  TST.B   (A7)+>                        Δ+2                {}
            <MI 20bc2  BNE     0x20bf8>                                         {}
        <POP 20bc4-20bf8 Naked>                              Σ0         ↓
            <Blob 0x20bc4 [30] @>                            Δ-30               {[«30""»]}
            <MI 20bd6  CLR.B   -(A7)>                        Δ-2                {[«30""»]|[#0]}
            <POP 20bd8-20bda StackAdj>                       Δ-4                {[«30""»]|[#0]|[-4-]}
            <Lit 0x20bda 29>                                                    {[«30""»]|[#0]|[$$That disk unit does not exist]}
            <Call 0x20bee 0x103b8>                                              {[«30""»]|[#0]|[$$That disk unit does not exist]}
                PopProgram(status : Byte; msg : String)
            <POP 20bf4-20bf8 StackAdj>                       Δ+36               {}
        <POP 20bf8-20c4a Naked>                              Σ0 Δ-34    ↓ →0x20c58 ←0x20b68
            <Blob 0x20bf8 [34] @>                            Δ-34               {[«34""»]}
            <POP 20c0a-20c0e StackAdj>                       Δ-10               {[«34""»]|[-10-]}
            <Lit 0x20c0e 33>                                                    {[«34""»]|[-6-]|[$$Do you really want to erase unit_]}
            <POP 20c20-20c22 StackAdj>                       Δ-4                {[«34""»]|[-6-]|[$$Do you really want to erase unit_]|[-4-]}
            <MI 20c22  MOVE.W  0x25138,D0>                                      {[«34""»]|[-6-]|[$$Do you really want to erase unit_]|[-4-]}
            <MI 20c28  EXTW.L  D0>                                              {[«34""»]|[-6-]|[$$Do you really want to erase unit_]|[-4-]}
            <MI 20c2a  MOVE.L  D0,-(A7)>                     Δ-4                {[«34""»]|[-6-]|[$$Do you really want to erase unit_]|[-4-]|[4, 'D0']}
            <Call 0x20c2c 0x102e4>                                              {[«34""»]|[-6-]|[$$Do you really want to erase unit_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 20c32-20c34 StackAdj>                       Δ+4                {[«34""»]|[-6-]|[$$Do you really want to erase unit_]|[-4-]}
            <Call 0x20c34 0x102d0>                                              {[«34""»]|[-6-]|[$$Do you really want to erase unit_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20c3a-20c3c StackAdj>                       Δ+6                {[«34""»]|[-6-]|[-2-]}
            <MI 20c3c  CLR.B   (A7)>                                            {[«34""»]|[-6-]|[-2-]}
            <Call 0x20c3e 0x103f0>                                              {[«34""»]|[-6-]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 20c44-20c46 StackAdj>                       Δ+6                {[«34""»]|[-2-]}
            <MI 20c46  TST.B   (A7)+>                        Δ+2                {[«34""»]}
            <MI 20c48  BNE     0x20c58>                                         {[«34""»]}
        <POP 20c4a-20c58 Naked>                              Σ-34       ↓
            <MI 20c4a  CLR.B   -(A7)>                        Δ-2                {[-34-]|[#0]}
            <Const 0x20c4c 0x1.4>                            Δ-4                {[-34-]|[#0]|[##1]}
            <Call 0x20c50 0x103b8>                                              {[-34-]|[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 20c56-20c58 StackAdj>                       Δ+6                {[-34-]}
        <POP 20c58-20ca2 Naked>                              Σ-34 Δ+30  ↓ ←0x20bf8
            <POP 20c58-20c5c StackAdj>                       Δ+34               {}
            <Blob 0x20c5c [40] @>                            Δ-40               {[«40""»]}
            <POP 20c68-20c6a StackAdj>                       Δ-8                {[«40""»]|[-8-]}
            <Lit 0x20c6a 40>                                                    {[«40""»]|[-4-]|[$$Enter number of erase passes [ 3..6 ] :_]}
            <Const 0x20c7e 0x3.4>                            Δ-4                {[«40""»]|[-4-]|[$$Enter number of erase passes [ 3..6 ] :_]|[##3]}
            <Const 0x20c82 0x6.4>                            Δ-4                {[«40""»]|[-4-]|[$$Enter number of erase passes [ 3..6 ] :_]|[##3]|[##6]}
            <Call 0x20c86 0x103ec>                                              {[«40""»]|[-4-]|[$$Enter number of erase passes [ 3..6 ] :_]|[##3]|[##6]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 20c8c-20c90 StackAdj>                       Δ+12               {[«40""»]|[-4-]}
            <MI 20c90  MOVE.L  (A7)+,0x25134>                Δ+4                {[«40""»]}
            <POP 20c96-20c9a StackAdj>                       Δ+36               {[-4-]}
            <POP 20c9a-20c9b StackAdj>                       Δ+4                {}
            <Blob 0x20c9b [4] 0x25134>                       Δ-4                {[«4»]}
            <MI 20ca0  MOVEQ.L #0x01,D0>                                        {[«4»]}
        <POP 20ca2-20ca6 Naked>                              Σ-4        ↓ →0x20cd6 ←0x20ca6
            <MI 20ca2  CMP.L   (A7),D0>                                         {[-4-]}
            <MI 20ca4  BGT     0x20cd6>                                         {[-4-]}
        <POP 20ca6-20cd6 Naked>                              Σ-4        ↓ →0x20ca2
            <MI 20ca6  MOVE.L  D0,0x25130>                                      {[-4-]}
            <MI 20cac  MOVE.L  D0,-(A7)>                     Δ-4                {[-4-]|[4, 'D0']}
            <MI 20cae  MOVE.L  D0,D1>                                           {[-4-]|[4, 'D0']}
            <MI 20cb0  SUBQ.L  #0x1,D1>                                         {[-4-]|[4, 'D0']}
            <POP 0x20cb2 LimitCheck 0x0 ≤ D1 ≤ 0x5>                             {[-4-]|[4, 'D0']}
            <MI 20cbc  ASL.L   #0x2,D1>                                         {[-4-]|[4, 'D0']}
            <MI 20cbe  LEA.L   0x21106,A0>                                      {[-4-]|[4, 'D0']}
            <MI 20cc4  LEA.L   (A0+D1.L),A0>                                    {[-4-]|[4, 'D0']}
            <MI 20cc8  PEA.L   (A0+0x4012)>                  Δ-4                {[-4-]|[4, 'D0']|[4, '^(A0+0x4012)']}
            <Call 0x20ccc 0x2093e>                                              {[-4-]|[4, 'D0']|[4, '^(A0+0x4012)']}
            <POP 20cd0-20cd2 StackAdj>                       Δ+8                {[-4-]}
            <MI 20cd2  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 20cd4  BVC     0x20ca2>                                         {[-4-]}
        <POP 20cd6-20cde Naked>                              Σ-4        ↓ ←0x20ca2
            <POP 20cd6-20cd7 StackAdj>                       Δ+4                {}
            <Blob 0x20cd7 [4] 0x25134>                       Δ-4                {[«4»]}
            <MI 20cdc  MOVEQ.L #0x01,D0>                                        {[«4»]}
        <POP 20cde-20ce4 Naked>                              Σ-4        ↓ →0x20dee ←0x20d82
            <MI 20cde  CMP.L   (A7),D0>                                         {[-4-]}
            <MI 20ce0  BGT     0x20dee>                                         {[-4-]}
        <POP 20ce4-20d30 Naked>                              Σ-4        ↓ →0x20d5a
            <MI 20ce4  MOVE.L  D0,0x25130>                                      {[-4-]}
            <Blob 0x20cea [14] @>                            Δ-14               {[-4-]|[«14""»]}
            <POP 20cf6-20cf8 StackAdj>                       Δ-8                {[-4-]|[«14""»]|[-8-]}
            <Lit 0x20cf8 14>                                                    {[-4-]|[«14""»]|[-4-]|[$$Starting pass_]}
            <MI 20d0a  MOVE.L  D0,(A7)>                                         {[-4-]|[«14""»]|[-4-]|[4, 'D0']}
            <POP 20d04-20d0a StackAdj>                       Δ-8                {[-4-]|[«14""»]|[-4-]|[4, 'D0']|[-8-]}
            <Call 0x20d0c 0x102e4>                                              {[-4-]|[«14""»]|[-4-]|[4, 'D0']|[-8-]}
                Long2String(a : Long) : String
            <POP 20d12-20d14 StackAdj>                       Δ+4                {[-4-]|[«14""»]|[-4-]|[4, 'D0']|[-4-]}
            <Call 0x20d14 0x102d0>                                              {[-4-]|[«14""»]|[-4-]|[4, 'D0']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20d1a-20d1c StackAdj>                       Δ+8                {[-4-]|[«14""»]|[-4-]}
            <Call 0x20d1c 0x103e0>                                              {[-4-]|[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20d22-20d26 StackAdj>                       Δ+16               {[-4-]|[-2-]}
            <Call 0x20d26 0x1060a>                                              {[-4-]|[-2-]}
                Is_fc07_four() : Bool
            <MI 20d2c  TST.B   (A7)+>                        Δ+2                {[-4-]}
            <MI 20d2e  BEQ     0x20d5a>                                         {[-4-]}
        <POP 20d30-20d5a Naked>                              Σ-4 Δ-6    →0x20d82
            <Blob 0x20d30 [2] 0x25138>                       Δ-2                {[-4-]|[«2»]}
            <MI 20d36  MOVE.L  D0,D1>                                           {[-4-]|[«2»]}
            <MI 20d38  SUBQ.L  #0x1,D1>                                         {[-4-]|[«2»]}
            <POP 0x20d3a LimitCheck 0x0 ≤ D1 ≤ 0x5>                             {[-4-]|[«2»]}
            <MI 20d44  ASL.L   #0x2,D1>                                         {[-4-]|[«2»]}
            <MI 20d46  LEA.L   0x21106,A0>                                      {[-4-]|[«2»]}
            <MI 20d4c  LEA.L   (A0+D1.L),A0>                                    {[-4-]|[«2»]}
            <MI 20d50  MOVE.L  (A0+0x4012),-(A7)>            Δ-4                {[-4-]|[«2»]|[4, '(A0+0x4012)']}
            <Call 0x20d54 0x206ac>                                              {[-4-]|[«2»]|[4, '(A0+0x4012)']}
            <MI 20d58  BRA     0x20d82>                                         {[-4-]|[«2»]|[4, '(A0+0x4012)']}
        <POP 20d5a-20d82 Naked>                              Σ-4 Δ-6    ↓ ←0x20ce4
            <Blob 0x20d5a [2] 0x25138>                       Δ-2                {[-4-]|[«2»]}
            <MI 20d60  MOVE.L  D0,D1>                                           {[-4-]|[«2»]}
            <MI 20d62  SUBQ.L  #0x1,D1>                                         {[-4-]|[«2»]}
            <POP 0x20d64 LimitCheck 0x0 ≤ D1 ≤ 0x5>                             {[-4-]|[«2»]}
            <MI 20d6e  ASL.L   #0x2,D1>                                         {[-4-]|[«2»]}
            <MI 20d70  LEA.L   0x21106,A0>                                      {[-4-]|[«2»]}
            <MI 20d76  LEA.L   (A0+D1.L),A0>                                    {[-4-]|[«2»]}
            <MI 20d7a  MOVE.L  (A0+0x4012),-(A7)>            Δ-4                {[-4-]|[«2»]|[4, '(A0+0x4012)']}
            <Call 0x20d7e 0x20886>                                              {[-4-]|[«2»]|[4, '(A0+0x4012)']}
        <POP 20d82-20dee Naked>                              Σ-10 Δ+6   ↓ →0x20cde ←0x20d30
            <POP 20d82-20d84 StackAdj>                       Δ+6                {[-4-]}
            <Blob 0x20d84 [6] @>                             Δ-6                {[-4-]|[«6""»]}
            <Blob 0x20d94 [6] @>                             Δ-6                {[-4-]|[«6""»]|[«6""»]}
            <POP 20da4-20da6 StackAdj>                       Δ-8                {[-4-]|[«6""»]|[«6""»]|[-8-]}
            <Lit 0x20da6 5>                                                     {[-4-]|[«6""»]|[«6""»]|[-4-]|[$$Pass_]}
            <MI 20db8  MOVE.L  D0,(A7)>                                         {[-4-]|[«6""»]|[«6""»]|[-4-]|[4, 'D0']}
            <POP 20db2-20db8 StackAdj>                       Δ-8                {[-4-]|[«6""»]|[«6""»]|[-4-]|[4, 'D0']|[-8-]}
            <Call 0x20dba 0x102e4>                                              {[-4-]|[«6""»]|[«6""»]|[-4-]|[4, 'D0']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x20dc0 5>                                                     {[-4-]|[«6""»]|[«6""»]|[-4-]|[4, 'D0']|[-4-]|[$$ done]}
            <Call 0x20dd4 0x102d4>                                              {[-4-]|[«6""»]|[«6""»]|[-4-]|[4, 'D0']|[-4-]|[$$ done]}
                StringCat3(a, b, c : String) : String
            <POP 20dda-20dde StackAdj>                       Δ+12               {[-4-]|[«6""»]|[«6""»]|[-4-]}
            <Call 0x20dde 0x103e0>                                              {[-4-]|[«6""»]|[«6""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20de4-20de8 StackAdj>                       Δ+16               {[-4-]}
            <MI 20de8  ADDQ.L  #0x1,D0>                                         {[-4-]}
            <MI 20dea  BVC     0x20cde>                                         {[-4-]}
        <POP 20dee-20e7c Naked>                              Σ-4 Δ+4    ↓ →0x20eaa ←0x20cde
            <POP 20dee-20df0 StackAdj>                       Δ+4                {}
            <Blob 0x20df0 [10] @>                            Δ-10               {[«10""»]}
            <Blob 0x20dfc [18] @>                            Δ-18               {[«10""»]|[«18""»]}
            <POP 20e0e-20e10 StackAdj>                       Δ-8                {[«10""»]|[«18""»]|[-8-]}
            <Lit 0x20e10 10>                                                    {[«10""»]|[«18""»]|[-4-]|[$$Disk unit_]}
            <POP 20e22-20e24 StackAdj>                       Δ-4                {[«10""»]|[«18""»]|[-4-]|[$$Disk unit_]|[-4-]}
            <MI 20e24  MOVE.W  0x25138,D0>                                      {[«10""»]|[«18""»]|[-4-]|[$$Disk unit_]|[-4-]}
            <MI 20e2a  EXTW.L  D0>                                              {[«10""»]|[«18""»]|[-4-]|[$$Disk unit_]|[-4-]}
            <MI 20e2c  MOVE.L  D0,-(A7)>                     Δ-4                {[«10""»]|[«18""»]|[-4-]|[$$Disk unit_]|[-4-]|[4, 'D0']}
            <Call 0x20e2e 0x102e4>                                              {[«10""»]|[«18""»]|[-4-]|[$$Disk unit_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <Lit 0x20e34 17>                                                    {[«10""»]|[«18""»]|[-4-]|[$$Disk unit_]|[-4-]|[$$ has been erased!]}
            <Call 0x20e48 0x102d4>                                              {[«10""»]|[«18""»]|[-4-]|[$$Disk unit_]|[-4-]|[$$ has been erased!]}
                StringCat3(a, b, c : String) : String
            <POP 20e4e-20e52 StackAdj>                       Δ+12               {[«10""»]|[«18""»]|[-4-]}
            <Call 0x20e52 0x103e0>                                              {[«10""»]|[«18""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 20e58-20e5c StackAdj>                       Δ+32               {}
            <Const 0x20e5c 0x25114.4>                        Δ-4                {[##151828]}
            <Const 0x20e62 0x25116.4>                        Δ-4                {[##151828]|[##151830]}
            <Call 0x20e68 0x10200>                                              {[##151828]|[##151830]}
                KC00_GetBootDev(VAR a : Byte; VAR b : Word)
            <POP 20e6e-20e70 StackAdj>                       Δ+8                {}
            <MI 20e70  MOVE.B  0x25114,D0>                                      {}
            <MI 20e76  CMPI.B  #0x02,D0>                                        {}
            <MI 20e7a  BEQ     0x20eaa>                                         {}
        <POP 20e7c-20ea8 Naked>                              Σ0         ↓
            <Blob 0x20e7c [26] @>                            Δ-26               {[«26""»]}
            <POP 20e88-20e8a StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x20e8a 26>                                                    {[«26""»]|[$$Please re-boot your system]}
            <Call 0x20e9e 0x103e0>                                              {[«26""»]|[$$Please re-boot your system]}
                WriteConsoleStringCrLf(str : String)
            <POP 20ea4-20ea8 StackAdj>                       Δ+30               {}
        <POP 20ea8-20eaa Naked>                              Σ0         →0x20ea8 ←0x20ea8
            <MI 20ea8  BRA     0x20ea8>                                         {}
        <POP 20eaa-20eb8 Naked>                              Σ0         ↓ →0x20eec ←0x20dee
            <MI 20eaa  MOVE.W  0x25138,D0>                                      {}
            <MI 20eb0  CMP.W   0x25116,D0>                                      {}
            <MI 20eb6  BNE     0x20eec>                                         {}
        <POP 20eb8-20eea Naked>                              Σ0         ↓
            <Blob 0x20eb8 [58] @>                            Δ-58               {[«58""»]}
            <POP 20eca-20ecc StackAdj>                       Δ-4                {[«58""»]|[-4-]}
            <Lit 0x20ecc 57>                                                    {[«58""»]|[$$The boot disk has been erased, please re-boot your system]}
            <Call 0x20ee0 0x103e0>                                              {[«58""»]|[$$The boot disk has been erased, please re-boot your system]}
                WriteConsoleStringCrLf(str : String)
            <POP 20ee6-20eea StackAdj>                       Δ+62               {}
        <POP 20eea-20eec Naked>                              Σ0         →0x20eea ←0x20eea
            <MI 20eea  BRA     0x20eea>                                         {}
        <POP 20eec-20efa Naked>                              Σ0         ↓ ←0x20eaa
            <MI 20eec  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x20eee 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x20ef2 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 20ef8-20efa StackAdj>                       Δ+6                {}
        <POP 20efa-20f00 Naked>                              Σ0         
            <Call 0x20efa 0x10284>                                              {}
                ?exit

0x20f0e


@ 20f0e
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 20f0e-20f76 Body>                                              
        <POP 20f0e-20f24 Prologue>                           Σ0         ↓
        <POP 20f24-20f6e Naked>                              Σ0         ↓
            <Blob 0x20f24 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x20f30 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 20f34-20f36 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x20f36 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 20f48-20f4a StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20f4a  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20f4e  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20f50  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 20f52  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x20f54 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 20f5a-20f5c StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x20f5c 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 20f62-20f64 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x20f64 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 20f6a-20f6e StackAdj>                       Δ+20               {}
        <POP 20f6e-20f76 Epilogue>                           Σ0         

0x20fca


@ 20fca
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 20fca-21106 Body>                                              
        <POP 20fca-20fe0 Prologue>                           Σ0         ↓
        <POP 20fe0-20ff6 RegCacheLoad>                       Σ0         ↓
        <POP 20ff6-21056 Naked>                              Σ0         ↓ →0x2109e
            <Call 0x20ff6 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x20ffc [18] @>                            Δ-18               {[«18""»]}
            <POP 21008-2100a StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x2100a 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x21016 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 21018-21019 StackAdj>                       Δ+22       ↓       {}
            <Blob 0x21019 [14] @>                            Δ-14               {[«14""»]}
            <POP 21028-2102a StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x2102a 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 21034-21036 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 21036  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x2103a 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 21040-21042 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x21042 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 21048-2104a StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x2104a 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2104c-2104e StackAdj>                       Δ+18               {}
            <MI 2104e  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 21052  CMPA.W  #0x01,A0>                                        {}
            <MI 21054  BEQ     0x2109e>                                         {}
        <POP 21056-2109e Naked>                              Σ0         ↓
            <Blob 0x21056 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x21066 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 21076-21078 StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x21078 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 21082-21084 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x21084>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x21084 12>                      Δ-4        
                <Const 0x21088 0x1.2>                        Δ-2        
                <Const 0x2108a 0x1e.2>                       Δ-2        
                <Call 0x2108c 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2108e-21090 StackAdj>                   Δ+8        
            <Call 0x21090 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 21096-21098 StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x21098 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2109a-2109e StackAdj>                       Δ+48               {}
        <POP 2109e-210fe Naked>                              Σ0         ↓ ←0x20ff6
            <Blob 0x2109e [14] @>                            Δ-14               {[«14""»]}
            <POP 210ae-210b0 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x210b0 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 210ba-210bc StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 210bc  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x210c0 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 210c6-210c8 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x210c8 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 210ce-210d0 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x210d0 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 210d2-210d3 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x210d3 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x210e2 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 210e6-210e8 StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x210e8 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x210f6 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 210fc-210fe StackAdj>                       Δ+30               {}
        <POP 210fe-21106 Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.3d05c6d32e7db263
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 0b 1a              |        |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 51 4a              |  QJ    |		.PTR	0x2514a
00020010					code.end:
00020010 00 02 11 06              |        |		.PTR	0x21106
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 0f 0e              |        |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 0f ca              |        |		.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 45 52        |@(#)ER  |		.XXX[0x6]
00020110 41 53 45 44 49 53 4b 2c  |ASEDISK,|		.XXX[0x18]
00020118 33 2e 31 2c 39 31 2f 30  |3.1,91/0|
00020120 35 2f 31 34 2c 31 33 3a  |5/14,13:|
00020128 30 30 3a 30 30 5c        |00:00\  |		.XXX[0x6]
0002012e 2a 2a 2a 20 41 42 4f 52  |*** ABOR|		.TXT	'*** ABORT:_ '
0002013a 45 72 72 6f 72 20 72 65  |Error re|		.TXT	'Error reading disk controller EEPROM at location_ '
0002016c 45 72 72 6f 72 20 64 75  |Error du|		.TXT	'Error during WRITE operation, aborting! '
00020194 45 72 72 6f 72 20 64 75  |Error du|		.TXT	'Error during format operation, aborting!'
000201bc 50 6c 65 61 73 65 20 70  |Please p|		.TXT	'Please provide a data pattern for pass_ '
000201e4 45 6e 74 65 72 20 6f 6e  |Enter on|		.TXT	'Enter one of the following options: '
00020208 20 20 20 20 30 20 2d 3e  |    0 ->|		.TXT	'    0 -> data pattern of all zeros'
0002022a 20 20 20 20 31 20 2d 3e  |    1 ->|		.TXT	'    1 -> data pattern of all ones '
0002024c 20 20 20 20 32 20 2d 3e  |    2 ->|		.TXT	'    2 -> you want to supply a character for the data pattern'
00020288 50 6c 65 61 73 65 20 65  |Please e|		.TXT	'Please enter your option :_ '
000202a4 50 6c 65 61 73 65 20 65  |Please e|		.TXT	'Please enter only one character!'
000202c4 50 6c 65 61 73 65 20 65  |Please e|		.TXT	'Please enter the character to be used for this pattern :_ '
000202fe 44 6f 20 79 6f 75 20 72  |Do you r|		.TXT	'Do you really want to erase a disk'
00020320 45 6e 74 65 72 20 75 6e  |Enter un|		.TXT	'Enter unit number of disk to be erased :_ '
0002034a 44 6f 20 79 6f 75 20 72  |Do you r|		.TXT	'Do you really want to erase unit_ '
0002036c 45 6e 74 65 72 20 6e 75  |Enter nu|		.TXT	'Enter number of erase passes [ 3..6 ] :_'
00020394 54 68 61 74 20 64 69 73  |That dis|		.TXT	'That disk unit does not exist '
000203b2 54 68 65 20 62 6f 6f 74  |The boot|		.TXT	'The boot disk has been erased, please re-boot your system '
000203ec 53 74 61 72 74 69 6e 67  |Starting|		.TXT	'Starting pass_'
000203fa 50 61 73 73 5f 20        |Pass_   |		.TXT	'Pass_ '
00020400 20 64 6f 6e 65 20        | done   |		.TXT	' done '
00020406 44 69 73 6b 20 75 6e 69  |Disk uni|		.TXT	'Disk unit_'
00020410 20 68 61 73 20 62 65 65  | has bee|		.TXT	' has been erased! '
00020422 50 6c 65 61 73 65 20 72  |Please r|		.TXT	'Please re-boot your system'
0002043c ; --------------------------------------------------------------------------------------
0002043c ; OMSI PASCAL Function
0002043c ;    <LVAR  0x008 4(r)>
0002043c ; --------------------------------------------------------------------------------------
0002043c 4e 56 ff d4              |NV      |		LINK.W	A6,#0xffd4
00020440 bf d5                    |        |		CMPA.L	(A5),A7
00020442 62 06                    |b       |		BHI	0x2044a
00020444 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020448 4e 76                    |Nv      |		TRAPV
0002044a de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
0002044e 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00020452 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00020456 20 4f                    | O      |		MOVEA.L	A7,A0
00020458 43 fa fc d4              |C       |		LEA.L	0x2012e,A1
0002045c 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002045e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020460 51 c8 ff fc              |Q       |		DBF	D0,0x2045e
00020464 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020466 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002046a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
0002046e 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00020472 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020478 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002047a 2e ae 00 08              |.       |		MOVE.L	(A6+0x8),(A7)
0002047e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020484 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020486 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002048c de fc 00 10              |        |		ADDA.W	#0x10,A7
00020490 2e 6d 00 08              |.m      |		MOVEA.L	(A5+0x8),A7
00020494 3c 7c 00 00              |<|      |		MOVEA.W	#0x0,A6
00020498 4e f9 00 02 0e 5c        |N    \  |		JMP	0x20e5c
0002049e 4c df                    |L       |		.XXX[0x2]
000204a0 03 01 4e 5e 4e 75        |  N^Nu  |		.XXX[0x6]
000204a6 ; --------------------------------------------------------------------------------------
000204a6 ; OMSI PASCAL Function
000204a6 ;    <LVAR  0x00e 2(r)>
000204a6 ;    <LVAR  0x00c 2(r)>
000204a6 ;    <LVAR  0x008 4(r)>
000204a6 ;    <LVAR -0x004 @ 1(r)>
000204a6 ;    <LVAR -0x008 2(w)>
000204a6 ;    <LVAR -0x00a 2(w)>
000204a6 ;    <LVAR -0x00c 2(r)>
000204a6 ;    <LVAR -0x00e 2(r)>
000204a6 ;    <LVAR -0x010 2(w)>
000204a6 ;    <LVAR -0x012 2(r)>
000204a6 ;    <LVAR -0x014 @ 2(r)>
000204a6 ; --------------------------------------------------------------------------------------
000204a6 4e 56 ff 9a              |NV      |		LINK.W	A6,#0xff9a
000204aa bf d5                    |        |		CMPA.L	(A5),A7
000204ac 62 06                    |b       |		BHI	0x204b4
000204ae 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000204b2 4e 76                    |Nv      |		TRAPV
000204b4 de fc 00 52              |   R    |		ADDA.W	#0x52,A7
000204b8 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
000204bc 42 6e ff ec              |Bn      |		CLR.W	(A6-0x14)
000204c0 42 6e ff ee              |Bn      |		CLR.W	(A6-0x12)
000204c4 3d 7c 00 02 ff f0        |=|      |		MOVE.W	#0x2,(A6-0x10)
000204ca 42 6e ff f2              |Bn      |		CLR.W	(A6-0xe)
000204ce 42 6e ff f4              |Bn      |		CLR.W	(A6-0xc)
000204d2 30 2e 00 0e              |0.      |		MOVE.W	(A6+0xe),D0
000204d6 e1 40                    | @      |		ASL.W	#0x8,D0
000204d8 06 40 00 0e              | @      |		ADDI.W	#0x000e,D0
000204dc 3d 40 ff f6              |=@      |		MOVE.W	D0,(A6-0xa)
000204e0 3d 6e 00 0c ff f8        |=n      |		MOVE.W	(A6+0xc),(A6-0x8)
000204e6 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000204ea 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
000204ee 22 48                    |"H      |		MOVEA.L	A0,A1
000204f0 2f 09                    |/       |		MOVE.L	A1,-(A7)
000204f2 42 67                    |Bg      |		CLR.W	-(A7)
000204f4 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
000204fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000204fc 42 57                    |BW      |		CLR.W	(A7)
000204fe 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020502 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00020508 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002050a 02 50 00 ff              | P      |		ANDI.W	#0x00ff,(A0)
0002050e 4a 2e ff fc              |J.      |		TST.B	(A6-0x4)
00020512 66 48                    |fH      |		BNE	0x2055c
00020514 9e fc 00 32              |   2    |		SUBA.W	#0x32,A7
00020518 20 4f                    | O      |		MOVEA.L	A7,A0
0002051a 43 fa fc 1e              |C       |		LEA.L	0x2013a,A1
0002051e 70 30                    |p0      |		MOVEQ.L	#0x30,D0
00020520 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020522 51 c8 ff fc              |Q       |		DBF	D0,0x20520
00020526 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020528 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002052c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020530 3f 3c 00 31              |?< 1    |		MOVE.W	#0x31,-(A7)
00020534 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002053a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002053c 42 80                    |B       |		CLR.L	D0
0002053e 30 2e 00 0c              |0.      |		MOVE.W	(A6+0xc),D0
00020542 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020544 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
0002054a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002054c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020552 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020554 4e ba fe e6              |N       |		JSR	0x2043c
00020558 de fc 00 36              |   6    |		ADDA.W	#0x36,A7
0002055c 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00020560 4e 5e                    |N^      |		UNLK	A6
00020562 4e 75                    |Nu      |		RTS
00020564 ; --------------------------------------------------------------------------------------
00020564 ; OMSI PASCAL Function
00020564 ;    <LVAR  0x00a 1(rw)>
00020564 ;    <LVAR  0x008 2(r)>
00020564 ;    <LVAR -0x008 @ 2(r)>
00020564 ;    <LVAR -0x00a @>
00020564 ;    <LVAR -0x00c 2(r)>
00020564 ;    <LVAR -0x00e 2(r)>
00020564 ;    <LVAR -0x010 2(w)>
00020564 ;    <LVAR -0x012 2(r)>
00020564 ;    <LVAR -0x014 2(r)>
00020564 ;    <LVAR -0x016 2(w)>
00020564 ;    <LVAR -0x018 2(r)>
00020564 ;    <LVAR -0x01a @ 2(r)>
00020564 ; --------------------------------------------------------------------------------------
00020564 4e 56 ff d0              |NV      |		LINK.W	A6,#0xffd0
00020568 bf d5                    |        |		CMPA.L	(A5),A7
0002056a 62 06                    |b       |		BHI	0x20572
0002056c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020570 4e 76                    |Nv      |		TRAPV
00020572 de fc 00 16              |        |		ADDA.W	#0x16,A7
00020576 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0002057a 42 6e ff e6              |Bn      |		CLR.W	(A6-0x1a)
0002057e 42 6e ff e8              |Bn      |		CLR.W	(A6-0x18)
00020582 3d 7c 00 02 ff ea        |=|      |		MOVE.W	#0x2,(A6-0x16)
00020588 42 6e ff ec              |Bn      |		CLR.W	(A6-0x14)
0002058c 42 6e ff ee              |Bn      |		CLR.W	(A6-0x12)
00020590 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00020594 e1 40                    | @      |		ASL.W	#0x8,D0
00020596 3d 40 ff f0              |=@      |		MOVE.W	D0,(A6-0x10)
0002059a 42 6e ff f2              |Bn      |		CLR.W	(A6-0xe)
0002059e 42 6e ff f4              |Bn      |		CLR.W	(A6-0xc)
000205a2 48 6e ff e6              |Hn      |		PEA.L	(A6-0x1a)
000205a6 41 ee ff f8              |A       |		LEA.L	(A6-0x8),A0
000205aa 2f 08                    |/       |		MOVE.L	A0,-(A7)
000205ac 42 67                    |Bg      |		CLR.W	-(A7)
000205ae 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
000205b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000205b6 42 57                    |BW      |		CLR.W	(A7)
000205b8 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
000205bc 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
000205c2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000205c4 42 2e 00 0a              |B.      |		CLR.B	(A6+0xa)
000205c8 30 2e ff f8              |0.      |		MOVE.W	(A6-0x8),D0
000205cc 0c 40 00 01              | @      |		CMPI.W	#0x0001,D0
000205d0 66 04                    |f       |		BNE	0x205d6
000205d2 52 2e 00 0a              |R.      |		ADDQ.B	#0x1,(A6+0xa)
000205d6 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
000205da 4e 5e                    |N^      |		UNLK	A6
000205dc 4e 75                    |Nu      |		RTS
000205de ; --------------------------------------------------------------------------------------
000205de ; OMSI PASCAL Function
000205de ;    <LVAR  0x018 4(r)>
000205de ;    <LVAR  0x014 4(r)>
000205de ;    <LVAR  0x010 4(r)>
000205de ;    <LVAR  0x00c 4(r)>
000205de ;    <LVAR  0x008 4(r)>
000205de ; --------------------------------------------------------------------------------------
000205de 4e 56 ff b0              |NV      |		LINK.W	A6,#0xffb0
000205e2 bf d5                    |        |		CMPA.L	(A5),A7
000205e4 62 06                    |b       |		BHI	0x205ec
000205e6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000205ea 4e 76                    |Nv      |		TRAPV
000205ec de fc 00 4c              |   L    |		ADDA.W	#0x4c,A7
000205f0 48 e7 f9 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
000205f4 45 f9 00 01 02 94        |E       |		LEA.L	?divs_d3_d4,A2
000205fa 47 f9 00 02 51 10        |G   Q   |		LEA.L	0x25110,A3
00020600 74 08                    |t       |		MOVEQ.L	#0x08,D2
00020602 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020606 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020608 42 10                    |B       |		CLR.B	(A0)
0002060a 22 6e 00 10              |"n      |		MOVEA.L	(A6+0x10),A1
0002060e 2f 09                    |/       |		MOVE.L	A1,-(A7)
00020610 30 39 00 02 51 12        |09  Q   |		MOVE.W	0x25112,D0
00020616 48 c0                    |H       |		EXTW.L	D0
00020618 2f 00                    |/       |		MOVE.L	D0,-(A7)
0002061a b0 91                    |        |		CMP.L	(A1),D0
0002061c 6e 24                    |n$      |		BGT	0x20642
0002061e 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00020622 28 11                    |(       |		MOVE.L	(A1),D4
00020624 26 00                    |&       |		MOVE.L	D0,D3
00020626 4e 92                    |N       |		JSR	(A2)
00020628 d9 90                    |        |		ADD.L	D4,(A0)
0002062a 22 83                    |"       |		MOVE.L	D3,(A1)
0002062c 30 13                    |0       |		MOVE.W	(A3),D0
0002062e 48 c0                    |H       |		EXTW.L	D0
00020630 b0 90                    |        |		CMP.L	(A0),D0
00020632 6e 0e                    |n       |		BGT	0x20642
00020634 22 6e 00 18              |"n      |		MOVEA.L	(A6+0x18),A1
00020638 28 10                    |(       |		MOVE.L	(A0),D4
0002063a 26 00                    |&       |		MOVE.L	D0,D3
0002063c 4e 92                    |N       |		JSR	(A2)
0002063e d9 91                    |        |		ADD.L	D4,(A1)
00020640 20 83                    |        |		MOVE.L	D3,(A0)
00020642 20 6e 00 18              | n      |		MOVEA.L	(A6+0x18),A0
00020646 20 10                    |        |		MOVE.L	(A0),D0
00020648 52 80                    |R       |		ADDQ.L	#0x1,D0
0002064a 42 81                    |B       |		CLR.L	D1
0002064c 32 39 00 02 51 0e        |29  Q   |		MOVE.W	0x2510e,D1
00020652 b0 81                    |        |		CMP.L	D1,D0
00020654 64 08                    |d       |		BCC	0x2065e
00020656 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0002065a 20 82                    |        |		MOVE.L	D2,(A0)
0002065c 60 42                    |`B      |		BRA	0x206a0
0002065e b2 90                    |        |		CMP.L	(A0),D1
00020660 66 0a                    |f       |		BNE	0x2066c
00020662 20 6f 00 08              | o      |		MOVEA.L	(A7+0x8),A0
00020666 10 bc 00 01              |        |		MOVE.B	#0x01,(A0)
0002066a 60 34                    |`4      |		BRA	0x206a0
0002066c 20 6e 00 14              | n      |		MOVEA.L	(A6+0x14),A0
00020670 30 13                    |0       |		MOVE.W	(A3),D0
00020672 48 c0                    |H       |		EXTW.L	D0
00020674 90 90                    |        |		SUB.L	(A0),D0
00020676 53 80                    |S       |		SUBQ.L	#0x1,D0
00020678 28 00                    |(       |		MOVE.L	D0,D4
0002067a 26 17                    |&       |		MOVE.L	(A7),D3
0002067c 4e b9 00 01 02 8c        |N       |		JSR	?muls_d3_d4
00020682 20 17                    |        |		MOVE.L	(A7),D0
00020684 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00020688 90 90                    |        |		SUB.L	(A0),D0
0002068a d0 84                    |        |		ADD.L	D4,D0
0002068c 28 00                    |(       |		MOVE.L	D0,D4
0002068e 76 02                    |v       |		MOVEQ.L	#0x02,D3
00020690 4e 92                    |N       |		JSR	(A2)
00020692 2e 04                    |.       |		MOVE.L	D4,D7
00020694 be 82                    |        |		CMP.L	D2,D7
00020696 6d 02                    |m       |		BLT	0x2069a
00020698 60 bc                    |`       |		BRA	0x20656
0002069a 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
0002069e 20 87                    |        |		MOVE.L	D7,(A0)
000206a0 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000206a4 4c df 0f 9f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3
000206a8 4e 5e                    |N^      |		UNLK	A6
000206aa 4e 75                    |Nu      |		RTS
000206ac ; --------------------------------------------------------------------------------------
000206ac ; OMSI PASCAL Function
000206ac ;    <LVAR  0x00c 2(r)>
000206ac ;    <LVAR  0x008 4(r)>
000206ac ;    <LVAR -0x004 @ 4(rw)>
000206ac ;    <LVAR -0x008 @ 4(r)>
000206ac ;    <LVAR -0x00c @ 4(r)>
000206ac ;    <LVAR -0x010 @ 4(rw)>
000206ac ;    <LVAR -0x016 @>
000206ac ;    <LVAR -0x018 @ 2(r)>
000206ac ;    <LVAR -0x01a @ 2(r)>
000206ac ;    <LVAR -0x01c @ 2(r)>
000206ac ;    <LVAR -0x01e @ 2(r)>
000206ac ;    <LVAR -0x021 @ 1(r)>
000206ac ;    <LVAR -0x022 @ 1(r)>
000206ac ;    <LVAR -0x024 2(w)>
000206ac ;    <LVAR -0x026 2(w)>
000206ac ;    <LVAR -0x028 2(w)>
000206ac ;    <LVAR -0x02a 2(r)>
000206ac ;    <LVAR -0x02c 2(r)>
000206ac ;    <LVAR -0x02e 2(w)>
000206ac ;    <LVAR -0x030 2(r)>
000206ac ;    <LVAR -0x032 @ 2(w)>
000206ac ; --------------------------------------------------------------------------------------
000206ac 4e 56 ff 6e              |NV n    |		LINK.W	A6,#0xff6e
000206b0 bf d5                    |        |		CMPA.L	(A5),A7
000206b2 62 06                    |b       |		BHI	0x206ba
000206b4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000206b8 4e 76                    |Nv      |		TRAPV
000206ba de fc 00 60              |   `    |		ADDA.W	#0x60,A7
000206be 48 e7 e3 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D2+D1+D0,-(A7)
000206c2 45 fa fd e2              |E       |		LEA.L	0x204a6,A2
000206c6 47 ee ff f0              |G       |		LEA.L	(A6-0x10),A3
000206ca 49 ee ff fc              |I       |		LEA.L	(A6-0x4),A4
000206ce 24 3c 00 00 ff ff        |$<      |		MOVE.L	#0xffff,D2
000206d4 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000206d6 0c 87 00 00 1f ff        |        |		CMPI.L	#0x00001fff,D7
000206dc 63 02                    |c       |		BLS	0x206e0
000206de 4e 4f                    |NO      |		TRAP	#15
000206e0 20 07                    |        |		MOVE.L	D7,D0
000206e2 e3 80                    |        |		ASL.L	#0x1,D0
000206e4 41 f9 00 02 11 06        |A       |		LEA.L	0x21106,A0
000206ea 22 2e 00 08              |".      |		MOVE.L	(A6+0x8),D1
000206ee b2 82                    |        |		CMP.L	D2,D1
000206f0 63 02                    |c       |		BLS	0x206f4
000206f2 4e 4f                    |NO      |		TRAP	#15
000206f4 31 81 08 08              |1       |		MOVE.W	D1,(A0+D0.L+#0x8)
000206f8 52 87                    |R       |		ADDQ.L	#0x1,D7
000206fa 0c 87 00 00 1f ff        |        |		CMPI.L	#0x00001fff,D7
00020700 6f d4                    |o       |		BLE	0x206d6
00020702 3c 2e 00 0c              |<.      |		MOVE.W	(A6+0xc),D6
00020706 02 46 00 03              | F      |		ANDI.W	#0x0003,D6
0002070a 3f 06                    |?       |		MOVE.W	D6,-(A7)
0002070c 3f 3c 02 d0              |?<      |		MOVE.W	#0x2d0,-(A7)
00020710 dd 57                    | W      |		ADD.W	D6,(A7)
00020712 48 6e ff e2              |Hn      |		PEA.L	(A6-0x1e)
00020716 4e 92                    |N       |		JSR	(A2)
00020718 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002071a 3e 86                    |>       |		MOVE.W	D6,(A7)
0002071c 3f 3c 03 50              |?< P    |		MOVE.W	#0x350,-(A7)
00020720 dd 57                    | W      |		ADD.W	D6,(A7)
00020722 48 6e ff e4              |Hn      |		PEA.L	(A6-0x1c)
00020726 4e 92                    |N       |		JSR	(A2)
00020728 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002072a 3e 86                    |>       |		MOVE.W	D6,(A7)
0002072c 3f 3c 01 d0              |?<      |		MOVE.W	#0x1d0,-(A7)
00020730 dd 57                    | W      |		ADD.W	D6,(A7)
00020732 48 6e ff e6              |Hn      |		PEA.L	(A6-0x1a)
00020736 4e 92                    |N       |		JSR	(A2)
00020738 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002073a 3e 86                    |>       |		MOVE.W	D6,(A7)
0002073c 3f 3c 02 50              |?< P    |		MOVE.W	#0x250,-(A7)
00020740 dd 57                    | W      |		ADD.W	D6,(A7)
00020742 48 6e ff e8              |Hn      |		PEA.L	(A6-0x18)
00020746 4e 92                    |N       |		JSR	(A2)
00020748 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002074a 3e 86                    |>       |		MOVE.W	D6,(A7)
0002074c 3f 3c 03 10              |?<      |		MOVE.W	#0x310,-(A7)
00020750 dd 57                    | W      |		ADD.W	D6,(A7)
00020752 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
00020756 4e 92                    |N       |		JSR	(A2)
00020758 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002075a 42 80                    |B       |		CLR.L	D0
0002075c 30 2e ff e8              |0.      |		MOVE.W	(A6-0x18),D0
00020760 e1 80                    |        |		ASL.L	#0x8,D0
00020762 42 81                    |B       |		CLR.L	D1
00020764 32 2e ff e6              |2.      |		MOVE.W	(A6-0x1a),D1
00020768 d0 81                    |        |		ADD.L	D1,D0
0002076a b0 82                    |        |		CMP.L	D2,D0
0002076c 63 02                    |c       |		BLS	0x20770
0002076e 4e 4f                    |NO      |		TRAP	#15
00020770 33 c0 00 02 51 0e        |3   Q   |		MOVE.W	D0,0x2510e
00020776 30 2e ff e4              |0.      |		MOVE.W	(A6-0x1c),D0
0002077a 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
0002077e 33 c0 00 02 51 10        |3   Q   |		MOVE.W	D0,0x25110
00020784 30 2e ff e2              |0.      |		MOVE.W	(A6-0x1e),D0
00020788 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
0002078c 33 c0 00 02 51 12        |3   Q   |		MOVE.W	D0,0x25112
00020792 42 93                    |B       |		CLR.L	(A3)
00020794 42 ae ff f4              |B       |		CLR.L	(A6-0xc)
00020798 42 ae ff f8              |B       |		CLR.L	(A6-0x8)
0002079c 28 bc 00 00 00 08        |(       |		MOVE.L	#0x8,(A4)
000207a2 42 6e ff d0              |Bn      |		CLR.W	(A6-0x30)
000207a6 3d 7c 00 02 ff d2        |=|      |		MOVE.W	#0x2,(A6-0x2e)
000207ac 42 6e ff d4              |Bn      |		CLR.W	(A6-0x2c)
000207b0 42 6e ff d6              |Bn      |		CLR.W	(A6-0x2a)
000207b4 30 06                    |0       |		MOVE.W	D6,D0
000207b6 e1 40                    | @      |		ASL.W	#0x8,D0
000207b8 56 40                    |V@      |		ADDQ.W	#0x3,D0
000207ba 3d 40 ff d8              |=@      |		MOVE.W	D0,(A6-0x28)
000207be 20 14                    |        |		MOVE.L	(A4),D0
000207c0 e1 80                    |        |		ASL.L	#0x8,D0
000207c2 b0 82                    |        |		CMP.L	D2,D0
000207c4 63 02                    |c       |		BLS	0x207c8
000207c6 4e 4f                    |NO      |		TRAP	#15
000207c8 3d 40 ff ce              |=@      |		MOVE.W	D0,(A6-0x32)
000207cc 20 2e ff f8              | .      |		MOVE.L	(A6-0x8),D0
000207d0 b0 82                    |        |		CMP.L	D2,D0
000207d2 63 02                    |c       |		BLS	0x207d6
000207d4 4e 4f                    |NO      |		TRAP	#15
000207d6 3d 40 ff da              |=@      |		MOVE.W	D0,(A6-0x26)
000207da 20 2e ff f4              | .      |		MOVE.L	(A6-0xc),D0
000207de e1 80                    |        |		ASL.L	#0x8,D0
000207e0 d0 93                    |        |		ADD.L	(A3),D0
000207e2 b0 82                    |        |		CMP.L	D2,D0
000207e4 63 02                    |c       |		BLS	0x207e8
000207e6 4e 4f                    |NO      |		TRAP	#15
000207e8 3d 40 ff dc              |=@      |		MOVE.W	D0,(A6-0x24)
000207ec 48 6e ff ce              |Hn      |		PEA.L	(A6-0x32)
000207f0 41 f9 00 02 11 0e        |A       |		LEA.L	0x2110e,A0
000207f6 2f 08                    |/       |		MOVE.L	A0,-(A7)
000207f8 42 67                    |Bg      |		CLR.W	-(A7)
000207fa 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00020800 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00020804 20 14                    |        |		MOVE.L	(A4),D0
00020806 e3 80                    |        |		ASL.L	#0x1,D0
00020808 d1 93                    |        |		ADD.L	D0,(A3)
0002080a 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
0002080e 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00020812 48 53                    |HS      |		PEA.L	(A3)
00020814 48 54                    |HT      |		PEA.L	(A4)
00020816 48 6e ff df              |Hn      |		PEA.L	(A6-0x21)
0002081a 4e ba fd c2              |N       |		JSR	0x205de
0002081e de fc 00 12              |        |		ADDA.W	#0x12,A7
00020822 42 57                    |BW      |		CLR.W	(A7)
00020824 48 6e ff de              |Hn      |		PEA.L	(A6-0x22)
00020828 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
0002082e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020830 4a 2e ff de              |J.      |		TST.B	(A6-0x22)
00020834 66 40                    |f@      |		BNE	0x20876
00020836 9e fc 00 28              |   (    |		SUBA.W	#0x28,A7
0002083a 20 4f                    | O      |		MOVEA.L	A7,A0
0002083c 43 fa f9 2e              |C  .    |		LEA.L	0x2016c,A1
00020840 70 26                    |p&      |		MOVEQ.L	#0x26,D0
00020842 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020844 51 c8 ff fc              |Q       |		DBF	D0,0x20842
00020848 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002084a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002084e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020852 3f 3c 00 27              |?< '    |		MOVE.W	#0x27,-(A7)
00020856 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002085c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002085e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020864 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00020868 2e 6d 00 08              |.m      |		MOVEA.L	(A5+0x8),A7
0002086c 3c 7c 00 00              |<|      |		MOVEA.W	#0x0,A6
00020870 4e f9 00 02 0e 5c        |N    \  |		JMP	0x20e5c
00020876 4a 2e ff df              |J.      |		TST.B	(A6-0x21)
0002087a 67 00 ff 42              |g  B    |		BEQ	0x207be
0002087e 4c df 1f c7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D6+D7+A0+A1+A2+A3+A4
00020882 4e 5e                    |N^      |		UNLK	A6
00020884 4e 75                    |Nu      |		RTS
00020886 ; --------------------------------------------------------------------------------------
00020886 ; OMSI PASCAL Function
00020886 ;    <LVAR  0x00c 2(r)>
00020886 ;    <LVAR  0x008 4(r)>
00020886 ;    <LVAR -0x002 @ 1(r)>
00020886 ;    <LVAR -0x004 2(r)>
00020886 ;    <LVAR -0x006 2(w)>
00020886 ;    <LVAR -0x008 2(w)>
00020886 ;    <LVAR -0x00a 2(r)>
00020886 ;    <LVAR -0x00c 2(r)>
00020886 ;    <LVAR -0x00e 2(w)>
00020886 ;    <LVAR -0x010 2(r)>
00020886 ;    <LVAR -0x012 @ 2(r)>
00020886 ; --------------------------------------------------------------------------------------
00020886 4e 56 ff ae              |NV      |		LINK.W	A6,#0xffae
0002088a bf d5                    |        |		CMPA.L	(A5),A7
0002088c 62 06                    |b       |		BHI	0x20894
0002088e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020892 4e 76                    |Nv      |		TRAPV
00020894 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00020898 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
0002089c 42 6e ff ee              |Bn      |		CLR.W	(A6-0x12)
000208a0 42 6e ff f0              |Bn      |		CLR.W	(A6-0x10)
000208a4 3d 7c 00 02 ff f2        |=|      |		MOVE.W	#0x2,(A6-0xe)
000208aa 42 6e ff f4              |Bn      |		CLR.W	(A6-0xc)
000208ae 42 6e ff f6              |Bn      |		CLR.W	(A6-0xa)
000208b2 30 2e 00 0c              |0.      |		MOVE.W	(A6+0xc),D0
000208b6 e1 40                    | @      |		ASL.W	#0x8,D0
000208b8 06 40 00 0d              | @      |		ADDI.W	#0x000d,D0
000208bc 3d 40 ff f8              |=@      |		MOVE.W	D0,(A6-0x8)
000208c0 20 2e 00 08              | .      |		MOVE.L	(A6+0x8),D0
000208c4 0c 80 00 00 ff ff        |        |		CMPI.L	#0x0000ffff,D0
000208ca 63 02                    |c       |		BLS	0x208ce
000208cc 4e 4f                    |NO      |		TRAP	#15
000208ce 3d 40 ff fa              |=@      |		MOVE.W	D0,(A6-0x6)
000208d2 42 6e ff fc              |Bn      |		CLR.W	(A6-0x4)
000208d6 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
000208da 48 78 00 00              |Hx      |		PEA.L	0x0
000208de 42 67                    |Bg      |		CLR.W	-(A7)
000208e0 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
000208e6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000208e8 42 57                    |BW      |		CLR.W	(A7)
000208ea 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
000208ee 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
000208f4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000208f6 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
000208fa 66 3a                    |f:      |		BNE	0x20936
000208fc 41 fa f8 be              |A       |		LEA.L	0x201bc,A0
00020900 70 09                    |p       |		MOVEQ.L	#0x09,D0
00020902 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020904 51 c8 ff fc              |Q       |		DBF	D0,0x20902
00020908 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002090a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002090e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020912 3f 3c 00 28              |?< (    |		MOVE.W	#0x28,-(A7)
00020916 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002091c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002091e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020924 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00020928 2e 6d 00 08              |.m      |		MOVEA.L	(A5+0x8),A7
0002092c 3c 7c 00 00              |<|      |		MOVEA.W	#0x0,A6
00020930 4e f9 00 02 0e 5c        |N    \  |		JMP	0x20e5c
00020936 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
0002093a 4e 5e                    |N^      |		UNLK	A6
0002093c 4e 75                    |Nu      |		RTS
0002093e ; --------------------------------------------------------------------------------------
0002093e ; OMSI PASCAL Function
0002093e ;    <LVAR  0x00c 4(r)>
0002093e ;    <LVAR  0x008 4(r)>
0002093e ;    <LVAR -0x004 @ 4(rw)>
0002093e ; --------------------------------------------------------------------------------------
0002093e 4e 56 ff 72              |NV r    |		LINK.W	A6,#0xff72
00020942 bf d5                    |        |		CMPA.L	(A5),A7
00020944 62 06                    |b       |		BHI	0x2094c
00020946 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002094a 4e 76                    |Nv      |		TRAPV
0002094c de fc 00 82              |        |		ADDA.W	#0x82,A7
00020950 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020954 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
0002095a 47 f9 00 01 03 e0        |G       |		LEA.L	WriteConsoleStringCrLf(str : String),A3
00020960 49 ee ff fc              |I       |		LEA.L	(A6-0x4),A4
00020964 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020966 74 28                    |t(      |		MOVEQ.L	#0x28,D2
00020968 76 24                    |v$      |		MOVEQ.L	#0x24,D3
0002096a 78 1c                    |x       |		MOVEQ.L	#0x1c,D4
0002096c 7a 3a                    |z:      |		MOVEQ.L	#0x3a,D5
0002096e 9e c2                    |        |		SUBA.W	D2,A7
00020970 20 4f                    | O      |		MOVEA.L	A7,A0
00020972 43 fa f8 48              |C  H    |		LEA.L	0x201bc,A1
00020976 70 26                    |p&      |		MOVEQ.L	#0x26,D0
00020978 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002097a 51 c8 ff fc              |Q       |		DBF	D0,0x20978
0002097e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020980 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020984 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020986 3f 3c 00 27              |?< '    |		MOVE.W	#0x27,-(A7)
0002098a 4e 92                    |N       |		JSR	(A2)
0002098c 2e ae 00 0c              |.       |		MOVE.L	(A6+0xc),(A7)
00020990 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020996 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020998 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002099e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000209a0 4e 93                    |N       |		JSR	(A3)
000209a2 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000209a6 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000209ac 9e c3                    |        |		SUBA.W	D3,A7
000209ae 20 4f                    | O      |		MOVEA.L	A7,A0
000209b0 43 fa f8 32              |C  2    |		LEA.L	0x201e4,A1
000209b4 70 22                    |p"      |		MOVEQ.L	#0x22,D0
000209b6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000209b8 51 c8 ff fc              |Q       |		DBF	D0,0x209b6
000209bc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000209be 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000209c2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000209c4 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
000209c8 4e 92                    |N       |		JSR	(A2)
000209ca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000209cc 4e 93                    |N       |		JSR	(A3)
000209ce de c2                    |        |		ADDA.W	D2,A7
000209d0 41 fa f8 58              |A  X    |		LEA.L	0x2022a,A0
000209d4 70 10                    |p       |		MOVEQ.L	#0x10,D0
000209d6 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000209d8 51 c8 ff fc              |Q       |		DBF	D0,0x209d6
000209dc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000209de 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000209e2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000209e4 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
000209e8 4e 92                    |N       |		JSR	(A2)
000209ea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000209ec 4e 93                    |N       |		JSR	(A3)
000209ee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000209f0 20 4f                    | O      |		MOVEA.L	A7,A0
000209f2 43 fa f8 36              |C  6    |		LEA.L	0x2022a,A1
000209f6 70 20                    |p       |		MOVEQ.L	#0x20,D0
000209f8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000209fa 51 c8 ff fc              |Q       |		DBF	D0,0x209f8
000209fe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a00 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a04 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a06 3f 3c 00 21              |?< !    |		MOVE.W	#0x21,-(A7)
00020a0a 4e 92                    |N       |		JSR	(A2)
00020a0c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a0e 4e 93                    |N       |		JSR	(A3)
00020a10 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00020a14 41 fa f8 72              |A  r    |		LEA.L	0x20288,A0
00020a18 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00020a1a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020a1c 51 c8 ff fc              |Q       |		DBF	D0,0x20a1a
00020a20 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020a22 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020a26 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a28 3f 3c 00 3c              |?< <    |		MOVE.W	#0x3c,-(A7)
00020a2c 4e 92                    |N       |		JSR	(A2)
00020a2e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a30 4e 93                    |N       |		JSR	(A3)
00020a32 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00020a36 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00020a3c 9e c4                    |        |		SUBA.W	D4,A7
00020a3e 20 4f                    | O      |		MOVEA.L	A7,A0
00020a40 43 fa f8 46              |C  F    |		LEA.L	0x20288,A1
00020a44 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
00020a46 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020a48 51 c8 ff fc              |Q       |		DBF	D0,0x20a46
00020a4c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020a4e 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020a52 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020a54 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
00020a58 4e 92                    |N       |		JSR	(A2)
00020a5a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020a5c 48 78 00 00              |Hx      |		PEA.L	0x0
00020a60 48 78 00 02              |Hx      |		PEA.L	0x2
00020a64 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00020a6a de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020a6e 2e 1f                    |.       |		MOVE.L	(A7)+,D7
00020a70 de c4                    |        |		ADDA.W	D4,A7
00020a72 4a 87                    |J       |		TST.L	D7
00020a74 66 0a                    |f       |		BNE	0x20a80
00020a76 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020a7a 42 90                    |B       |		CLR.L	(A0)
00020a7c 60 00 00 94              |`       |		BRA	0x20b12
00020a80 be 81                    |        |		CMP.L	D1,D7
00020a82 66 0e                    |f       |		BNE	0x20a92
00020a84 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020a88 20 bc 00 00 ff ff        |        |		MOVE.L	#0xffff,(A0)
00020a8e 60 00 00 82              |`       |		BRA	0x20b12
00020a92 28 81                    |(       |		MOVE.L	D1,(A4)
00020a94 20 54                    | T      |		MOVEA.L	(A4),A0
00020a96 b0 c1                    |        |		CMPA.W	D1,A0
00020a98 67 0a                    |g       |		BEQ	0x20aa4
00020a9a 48 54                    |HT      |		PEA.L	(A4)
00020a9c 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020aa2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020aa4 9e c5                    |        |		SUBA.W	D5,A7
00020aa6 20 4f                    | O      |		MOVEA.L	A7,A0
00020aa8 43 fa f8 1a              |C       |		LEA.L	0x202c4,A1
00020aac 70 38                    |p8      |		MOVEQ.L	#0x38,D0
00020aae 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020ab0 51 c8 ff fc              |Q       |		DBF	D0,0x20aae
00020ab4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020ab6 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020aba 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020abc 3f 3c 00 39              |?< 9    |		MOVE.W	#0x39,-(A7)
00020ac0 4e 92                    |N       |		JSR	(A2)
00020ac2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ac4 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00020aca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020acc 28 9f                    |(       |		MOVE.L	(A7)+,(A4)
00020ace de c5                    |        |		ADDA.W	D5,A7
00020ad0 20 54                    | T      |		MOVEA.L	(A4),A0
00020ad2 30 10                    |0       |		MOVE.W	(A0),D0
00020ad4 b0 41                    | A      |		CMP.W	D1,D0
00020ad6 67 20                    |g       |		BEQ	0x20af8
00020ad8 43 fa f7 ea              |C       |		LEA.L	0x202c4,A1
00020adc 70 07                    |p       |		MOVEQ.L	#0x07,D0
00020ade 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
00020ae0 51 c8 ff fc              |Q       |		DBF	D0,0x20ade
00020ae4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020ae6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020aea 3f 01                    |?       |		MOVE.W	D1,-(A7)
00020aec 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00020af0 4e 92                    |N       |		JSR	(A2)
00020af2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020af4 4e 93                    |N       |		JSR	(A3)
00020af6 de c3                    |        |		ADDA.W	D3,A7
00020af8 30 10                    |0       |		MOVE.W	(A0),D0
00020afa b0 41                    | A      |		CMP.W	D1,D0
00020afc 66 96                    |f       |		BNE	0x20a94
00020afe 42 80                    |B       |		CLR.L	D0
00020b00 10 28 00 02              | (      |		MOVE.B	(A0+0x2),D0
00020b04 2c 00                    |,       |		MOVE.L	D0,D6
00020b06 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00020b0a 20 06                    |        |		MOVE.L	D6,D0
00020b0c e1 80                    |        |		ASL.L	#0x8,D0
00020b0e d0 86                    |        |		ADD.L	D6,D0
00020b10 20 80                    |        |		MOVE.L	D0,(A0)
00020b12 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00020b16 4e 5e                    |N^      |		UNLK	A6
00020b18 4e 75                    |Nu      |		RTS
00020b1a ; --------------------------------------------------------------------------------------
00020b1a ; OMSI PASCAL Function
00020b1a ; --------------------------------------------------------------------------------------
00020b1a					START:
00020b1a 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00020b1e 4e f9 00 01 02 80        |N       |		JMP	?start_program
00020b24					MAIN:
00020b24 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00020b2a 41 fa f7 f4              |A       |		LEA.L	0x20320,A0
00020b2e 70 10                    |p       |		MOVEQ.L	#0x10,D0
00020b30 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020b32 51 c8 ff fc              |Q       |		DBF	D0,0x20b30
00020b36 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020b38 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020b3c 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020b40 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
00020b44 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020b4a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020b4c 42 17                    |B       |		CLR.B	(A7)
00020b4e 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00020b54 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020b56 4a 1f                    |J       |		TST.B	(A7)+
00020b58 66 0e                    |f       |		BNE	0x20b68
00020b5a 42 27                    |B'      |		CLR.B	-(A7)
00020b5c 48 78 00 01              |Hx      |		PEA.L	0x1
00020b60 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020b66 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020b68 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020b6a 20 4f                    | O      |		MOVEA.L	A7,A0
00020b6c 43 fa f7 b2              |C       |		LEA.L	0x20320,A1
00020b70 70 28                    |p(      |		MOVEQ.L	#0x28,D0
00020b72 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020b74 51 c8 ff fc              |Q       |		DBF	D0,0x20b72
00020b78 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020b7a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020b7e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020b82 3f 3c 00 29              |?< )    |		MOVE.W	#0x29,-(A7)
00020b86 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020b8c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020b8e 48 78 00 00              |Hx      |		PEA.L	0x0
00020b92 48 78 00 0f              |Hx      |		PEA.L	0xf
00020b96 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00020b9c de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020ba0 20 1f                    |        |		MOVE.L	(A7)+,D0
00020ba2 0c 80 00 00 00 0f        |        |		CMPI.L	#0x0000000f,D0
00020ba8 63 02                    |c       |		BLS	0x20bac
00020baa 4e 4f                    |NO      |		TRAP	#15
00020bac de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00020bb0 33 c0 00 02 51 38        |3   Q8  |		MOVE.W	D0,0x25138
00020bb6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00020bb8 3f 00                    |?       |		MOVE.W	D0,-(A7)
00020bba 4e ba f9 a8              |N       |		JSR	0x20564
00020bbe 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020bc0 4a 1f                    |J       |		TST.B	(A7)+
00020bc2 66 34                    |f4      |		BNE	0x20bf8
00020bc4 9e fc 00 1e              |        |		SUBA.W	#0x1e,A7
00020bc8 20 4f                    | O      |		MOVEA.L	A7,A0
00020bca 43 fa f7 c8              |C       |		LEA.L	0x20394,A1
00020bce 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00020bd0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020bd2 51 c8 ff fc              |Q       |		DBF	D0,0x20bd0
00020bd6 42 27                    |B'      |		CLR.B	-(A7)
00020bd8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020bda 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00020bde 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020be2 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
00020be6 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020bec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020bee 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020bf4 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00020bf8 9e fc 00 22              |   "    |		SUBA.W	#0x22,A7
00020bfc 20 4f                    | O      |		MOVEA.L	A7,A0
00020bfe 43 fa f7 4a              |C  J    |		LEA.L	0x2034a,A1
00020c02 70 20                    |p       |		MOVEQ.L	#0x20,D0
00020c04 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020c06 51 c8 ff fc              |Q       |		DBF	D0,0x20c04
00020c0a 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00020c0e 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020c12 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020c16 3f 3c 00 21              |?< !    |		MOVE.W	#0x21,-(A7)
00020c1a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020c20 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020c22 30 39 00 02 51 38        |09  Q8  |		MOVE.W	0x25138,D0
00020c28 48 c0                    |H       |		EXTW.L	D0
00020c2a 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020c2c 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020c32 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020c34 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020c3a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020c3c 42 17                    |B       |		CLR.B	(A7)
00020c3e 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00020c44 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020c46 4a 1f                    |J       |		TST.B	(A7)+
00020c48 66 0e                    |f       |		BNE	0x20c58
00020c4a 42 27                    |B'      |		CLR.B	-(A7)
00020c4c 48 78 00 01              |Hx      |		PEA.L	0x1
00020c50 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020c56 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020c58 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00020c5c 41 fa f7 36              |A  6    |		LEA.L	0x20394,A0
00020c60 70 09                    |p       |		MOVEQ.L	#0x09,D0
00020c62 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00020c64 51 c8 ff fc              |Q       |		DBF	D0,0x20c62
00020c68 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020c6a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020c6e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020c72 3f 3c 00 28              |?< (    |		MOVE.W	#0x28,-(A7)
00020c76 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020c7c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020c7e 48 78 00 03              |Hx      |		PEA.L	0x3
00020c82 48 78 00 06              |Hx      |		PEA.L	0x6
00020c86 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00020c8c de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020c90 23 df 00 02 51 34        |#   Q4  |		MOVE.L	(A7)+,0x25134
00020c96 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00020c9a 2e b9 00 02 51 34        |.   Q4  |		MOVE.L	0x25134,(A7)
00020ca0 70 01                    |p       |		MOVEQ.L	#0x01,D0
00020ca2 b0 97                    |        |		CMP.L	(A7),D0
00020ca4 6e 30                    |n0      |		BGT	0x20cd6
00020ca6 23 c0 00 02 51 30        |#   Q0  |		MOVE.L	D0,0x25130
00020cac 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020cae 22 00                    |"       |		MOVE.L	D0,D1
00020cb0 53 81                    |S       |		SUBQ.L	#0x1,D1
00020cb2 0c 81 00 00 00 05        |        |		CMPI.L	#0x00000005,D1
00020cb8 63 02                    |c       |		BLS	0x20cbc
00020cba 4e 4f                    |NO      |		TRAP	#15
00020cbc e5 81                    |        |		ASL.L	#0x2,D1
00020cbe 41 f9 00 02 11 06        |A       |		LEA.L	0x21106,A0
00020cc4 41 f0 18 00              |A       |		LEA.L	(A0+D1.L),A0
00020cc8 48 68 40 12              |Hh@     |		PEA.L	(A0+0x4012)
00020ccc 4e ba fc 70              |N  p    |		JSR	0x2093e
00020cd0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020cd2 52 80                    |R       |		ADDQ.L	#0x1,D0
00020cd4 68 cc                    |h       |		BVC	0x20ca2
00020cd6 2e b9 00 02 51 34        |.   Q4  |		MOVE.L	0x25134,(A7)
00020cdc 70 01                    |p       |		MOVEQ.L	#0x01,D0
00020cde b0 97                    |        |		CMP.L	(A7),D0
00020ce0 6e 00 01 0c              |n       |		BGT	0x20dee
00020ce4 23 c0 00 02 51 30        |#   Q0  |		MOVE.L	D0,0x25130
00020cea 41 fa f7 0e              |A       |		LEA.L	0x203fa,A0
00020cee 72 06                    |r       |		MOVEQ.L	#0x06,D1
00020cf0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020cf2 51 c9 ff fc              |Q       |		DBF	D1,0x20cf0
00020cf6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020cf8 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00020cfc 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020d00 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00020d04 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020d0a 2e 80                    |.       |		MOVE.L	D0,(A7)
00020d0c 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020d12 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020d14 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020d1a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020d1c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020d22 de fc 00 10              |        |		ADDA.W	#0x10,A7
00020d26 4e b9 00 01 06 0a        |N       |		JSR	Is_fc07_four() : Bool
00020d2c 4a 1f                    |J       |		TST.B	(A7)+
00020d2e 67 2a                    |g*      |		BEQ	0x20d5a
00020d30 3f 39 00 02 51 38        |?9  Q8  |		MOVE.W	0x25138,-(A7)
00020d36 22 00                    |"       |		MOVE.L	D0,D1
00020d38 53 81                    |S       |		SUBQ.L	#0x1,D1
00020d3a 0c 81 00 00 00 05        |        |		CMPI.L	#0x00000005,D1
00020d40 63 02                    |c       |		BLS	0x20d44
00020d42 4e 4f                    |NO      |		TRAP	#15
00020d44 e5 81                    |        |		ASL.L	#0x2,D1
00020d46 41 f9 00 02 11 06        |A       |		LEA.L	0x21106,A0
00020d4c 41 f0 18 00              |A       |		LEA.L	(A0+D1.L),A0
00020d50 2f 28 40 12              |/(@     |		MOVE.L	(A0+0x4012),-(A7)
00020d54 4e ba f9 56              |N  V    |		JSR	0x206ac
00020d58 60 28                    |`(      |		BRA	0x20d82
00020d5a 3f 39 00 02 51 38        |?9  Q8  |		MOVE.W	0x25138,-(A7)
00020d60 22 00                    |"       |		MOVE.L	D0,D1
00020d62 53 81                    |S       |		SUBQ.L	#0x1,D1
00020d64 0c 81 00 00 00 05        |        |		CMPI.L	#0x00000005,D1
00020d6a 63 02                    |c       |		BLS	0x20d6e
00020d6c 4e 4f                    |NO      |		TRAP	#15
00020d6e e5 81                    |        |		ASL.L	#0x2,D1
00020d70 41 f9 00 02 11 06        |A       |		LEA.L	0x21106,A0
00020d76 41 f0 18 00              |A       |		LEA.L	(A0+D1.L),A0
00020d7a 2f 28 40 12              |/(@     |		MOVE.L	(A0+0x4012),-(A7)
00020d7e 4e ba fb 06              |N       |		JSR	0x20886
00020d82 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020d84 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020d86 20 4f                    | O      |		MOVEA.L	A7,A0
00020d88 43 fa f6 70              |C  p    |		LEA.L	0x203fa,A1
00020d8c 72 04                    |r       |		MOVEQ.L	#0x04,D1
00020d8e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020d90 51 c9 ff fc              |Q       |		DBF	D1,0x20d8e
00020d94 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00020d96 20 4f                    | O      |		MOVEA.L	A7,A0
00020d98 43 fa f6 66              |C  f    |		LEA.L	0x20400,A1
00020d9c 72 04                    |r       |		MOVEQ.L	#0x04,D1
00020d9e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020da0 51 c9 ff fc              |Q       |		DBF	D1,0x20d9e
00020da4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020da6 48 6f 00 0e              |Ho      |		PEA.L	(A7+0xe)
00020daa 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020dae 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00020db2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020db8 2e 80                    |.       |		MOVE.L	D0,(A7)
00020dba 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020dc0 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00020dc4 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020dc8 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
00020dcc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020dd2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020dd4 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00020dda de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020dde 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020de4 de fc 00 10              |        |		ADDA.W	#0x10,A7
00020de8 52 80                    |R       |		ADDQ.L	#0x1,D0
00020dea 68 00 fe f2              |h       |		BVC	0x20cde
00020dee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020df0 41 fa f6 1e              |A       |		LEA.L	0x20410,A0
00020df4 70 04                    |p       |		MOVEQ.L	#0x04,D0
00020df6 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020df8 51 c8 ff fc              |Q       |		DBF	D0,0x20df6
00020dfc 9e fc 00 12              |        |		SUBA.W	#0x12,A7
00020e00 20 4f                    | O      |		MOVEA.L	A7,A0
00020e02 43 fa f6 0c              |C       |		LEA.L	0x20410,A1
00020e06 70 10                    |p       |		MOVEQ.L	#0x10,D0
00020e08 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020e0a 51 c8 ff fc              |Q       |		DBF	D0,0x20e08
00020e0e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020e10 48 6f 00 1a              |Ho      |		PEA.L	(A7+0x1a)
00020e14 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020e18 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00020e1c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020e22 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e24 30 39 00 02 51 38        |09  Q8  |		MOVE.W	0x25138,D0
00020e2a 48 c0                    |H       |		EXTW.L	D0
00020e2c 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020e2e 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020e34 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00020e38 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020e3c 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
00020e40 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020e46 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e48 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00020e4e de fc 00 0c              |        |		ADDA.W	#0xc,A7
00020e52 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020e58 de fc 00 20              |        |		ADDA.W	#0x20,A7
00020e5c 48 79 00 02 51 14        |Hy  Q   |		PEA.L	0x25114
00020e62 48 79 00 02 51 16        |Hy  Q   |		PEA.L	0x25116
00020e68 4e b9 00 01 02 00        |N       |		JSR	KC00_GetBootDev(VAR a : Byte; VAR b : Word)
00020e6e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e70 10 39 00 02 51 14        | 9  Q   |		MOVE.B	0x25114,D0
00020e76 0c 00 00 02              |        |		CMPI.B	#0x02,D0
00020e7a 67 2e                    |g.      |		BEQ	0x20eaa
00020e7c 41 fa f5 be              |A       |		LEA.L	0x2043c,A0
00020e80 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00020e82 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020e84 51 c8 ff fc              |Q       |		DBF	D0,0x20e82
00020e88 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020e8a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020e8e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020e92 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
00020e96 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020e9c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020e9e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020ea4 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00020ea8 60 fe                    |`       |		BRA	0x20ea8
00020eaa 30 39 00 02 51 38        |09  Q8  |		MOVE.W	0x25138,D0
00020eb0 b0 79 00 02 51 16        | y  Q   |		CMP.W	0x25116,D0
00020eb6 66 34                    |f4      |		BNE	0x20eec
00020eb8 9e fc 00 3a              |   :    |		SUBA.W	#0x3a,A7
00020ebc 20 4f                    | O      |		MOVEA.L	A7,A0
00020ebe 43 fa f4 f2              |C       |		LEA.L	0x203b2,A1
00020ec2 70 38                    |p8      |		MOVEQ.L	#0x38,D0
00020ec4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020ec6 51 c8 ff fc              |Q       |		DBF	D0,0x20ec4
00020eca 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020ecc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020ed0 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020ed4 3f 3c 00 39              |?< 9    |		MOVE.W	#0x39,-(A7)
00020ed8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020ede 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ee0 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020ee6 de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00020eea 60 fe                    |`       |		BRA	0x20eea
00020eec 42 27                    |B'      |		CLR.B	-(A7)
00020eee 48 78 00 01              |Hx      |		PEA.L	0x1
00020ef2 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020ef8 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020efa 4e b9 00 01 02 84        |N       |		JSR	?exit
00020f00 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00020f0e ; --------------------------------------------------------------------------------------
00020f0e ; OMSI PASCAL Function
00020f0e ;    <LVAR  0x008 1(r)>
00020f0e ; --------------------------------------------------------------------------------------
00020f0e					PROG_FAIL:
00020f0e 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00020f12 bf d5                    |        |		CMPA.L	(A5),A7
00020f14 62 06                    |b       |		BHI	0x20f1c
00020f16 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020f1a 4e 76                    |Nv      |		TRAPV
00020f1c de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00020f20 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00020f24 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
00020f28 70 06                    |p       |		MOVEQ.L	#0x06,D0
00020f2a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020f2c 51 c8 ff fc              |Q       |		DBF	D0,0x20f2a
00020f30 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00020f34 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00020f36 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00020f3a 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020f3e 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00020f42 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020f48 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f4a 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00020f4e 48 80                    |H       |		EXTB.W	D0
00020f50 48 c0                    |H       |		EXTW.L	D0
00020f52 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020f54 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00020f5a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f5c 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00020f62 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f64 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00020f6a de fc 00 14              |        |		ADDA.W	#0x14,A7
00020f6e 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00020f72 4e 5e                    |N^      |		UNLK	A6
00020f74 4e 75                    |Nu      |		RTS
00020f76 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
00020f84 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00020f92 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00020fa0 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00020fb2 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00020fca ; --------------------------------------------------------------------------------------
00020fca ; OMSI PASCAL Function
00020fca ;    <LVAR  0x00e 1(r)>
00020fca ;    <LVAR  0x00a 4(r)>
00020fca ;    <LVAR  0x008 1(r)>
00020fca ; --------------------------------------------------------------------------------------
00020fca					EXP_FAIL:
00020fca 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00020fce bf d5                    |        |		CMPA.L	(A5),A7
00020fd0 62 06                    |b       |		BHI	0x20fd8
00020fd2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020fd6 4e 76                    |Nv      |		TRAPV
00020fd8 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00020fdc 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00020fe0 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00020fe6 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00020fec 72 01                    |r       |		MOVEQ.L	#0x01,D1
00020fee 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00020ff0 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00020ff2 78 12                    |x       |		MOVEQ.L	#0x12,D4
00020ff4 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00020ff6 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00020ffc 41 fa ff b4              |A       |		LEA.L	0x20fb2,A0
00021000 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021002 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021004 51 c8 ff fc              |Q       |		DBF	D0,0x21002
00021008 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002100a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002100e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021010 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021012 4e 93                    |N       |		JSR	(A3)
00021014 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021016 4e 94                    |N       |		JSR	(A4)
00021018 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002101a 20 4f                    | O      |		MOVEA.L	A7,A0
0002101c 43 fa ff 58              |C  X    |		LEA.L	0x20f76,A1
00021020 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021022 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021024 51 c8 ff fc              |Q       |		DBF	D0,0x21022
00021028 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002102a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002102e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021030 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021032 4e 93                    |N       |		JSR	(A3)
00021034 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021036 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
0002103a 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
00021040 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021042 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021048 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002104a 4e 94                    |N       |		JSR	(A4)
0002104c de c4                    |        |		ADDA.W	D4,A7
0002104e 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
00021052 b0 c1                    |        |		CMPA.W	D1,A0
00021054 67 48                    |gH      |		BEQ	0x2109e
00021056 9e c5                    |        |		SUBA.W	D5,A7
00021058 22 4f                    |"O      |		MOVEA.L	A7,A1
0002105a 45 fa ff 28              |E  (    |		LEA.L	0x20f84,A2
0002105e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021060 12 da                    |        |		MOVE.B	(A2)+,(A1)+
00021062 51 c8 ff fc              |Q       |		DBF	D0,0x21060
00021066 9e c3                    |        |		SUBA.W	D3,A7
00021068 22 4f                    |"O      |		MOVEA.L	A7,A1
0002106a 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
0002106e 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00021070 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00021072 51 c8 ff fc              |Q       |		DBF	D0,0x21070
00021076 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021078 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
0002107c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002107e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021080 4e 93                    |N       |		JSR	(A3)
00021082 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021084 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
00021088 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002108a 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002108c 4e 93                    |N       |		JSR	(A3)
0002108e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021090 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00021096 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021098 4e 94                    |N       |		JSR	(A4)
0002109a de fc 00 30              |   0    |		ADDA.W	#0x30,A7
0002109e 9e c5                    |        |		SUBA.W	D5,A7
000210a0 20 4f                    | O      |		MOVEA.L	A7,A0
000210a2 43 fa fe ee              |C       |		LEA.L	0x20f92,A1
000210a6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000210a8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000210aa 51 c8 ff fc              |Q       |		DBF	D0,0x210a8
000210ae 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000210b0 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000210b4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210b6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000210b8 4e 93                    |N       |		JSR	(A3)
000210ba 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210bc 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
000210c0 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
000210c6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210c8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000210ce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210d0 4e 94                    |N       |		JSR	(A4)
000210d2 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000210d4 20 4f                    | O      |		MOVEA.L	A7,A0
000210d6 43 fa fe da              |C       |		LEA.L	0x20fb2,A1
000210da 70 16                    |p       |		MOVEQ.L	#0x16,D0
000210dc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000210de 51 c8 ff fc              |Q       |		DBF	D0,0x210dc
000210e2 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
000210e6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210e8 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000210ec 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210ee 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
000210f2 4e 93                    |N       |		JSR	(A3)
000210f4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210f6 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000210fc de c3                    |        |		ADDA.W	D3,A7
000210fe 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00021102 4e 5e                    |N^      |		UNLK	A6
00021104 4e 75                    |Nu      |		RTS