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

⟦6391498e5⟧ M200

    Length: 9728 (0x2600)
    Types: M200
    Notes: @(#)SAM,1.1,92/07/09,12:00:00, M200_PROGRAM
    Names: »SAM.M200«

Derivation

└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »SAM.M200« 

Disassembly

0x20db0


@ 20db0
        <LVAR  0x00a 4(w)>
        <LVAR  0x008 2(r)>
        <LVAR -0x00a @ 4(r)>
    <POP 20db0-20e5c Body>                                              
        <POP 20db0-20dc6 Prologue>                           Σ0         ↓
        <POP 20dc6-20dd8 RegCacheLoad>                       Σ0         ↓
        <POP 20dd8-20df0 Naked>                              Σ0         ↓ →0x20dfe
            <Pointer.fp 0x20dd8 <LVAR -0x00a @ 4(r)>>        Δ-4                {[@@-10]}
            <Call 0x20dda 0x102b8>                                              {[@@-10]}
                NewString(VAR a : String)
            <POP 20de0-20de2 StackAdj>                       Δ+4                {}
            <MI 20de2  MOVE.W  (A6+0x8),D6>                                     {}
            <MI 20de6  ANDI.W  #0x00f0,D6>                                      {}
            <MI 20dea  LSR.W   #0x4,D6>                                         {}
            <MI 20dec  CMP.W   #0x09,D6>                                        {}
            <MI 20dee  BHI     0x20dfe>                                         {}
        <POP 20df0-20dfe Naked>                              Σ0         →0x20e0c
            <MI 20df0  CLR.L   D0>                                              {}
            <MI 20df2  MOVE.W  D6,D0>                                           {}
            <MI 20df4  ADD.L   #0x30,D0>                                        {}
            <POP 0x20df6 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20dfc  BRA     0x20e0c>                                         {}
        <POP 20dfe-20e0c Naked>                              Σ0         ↓ ←0x20dd8
            <MI 20dfe  CLR.L   D0>                                              {}
            <MI 20e00  MOVE.W  D6,D0>                                           {}
            <MI 20e02  SUB.L   #0x0a,D0>                                        {}
            <MI 20e04  ADD.L   #0x41,D0>                                        {}
            <POP 0x20e06 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
        <POP 20e0c-20e26 Naked>                              Σ0         ↓ →0x20e34 ←0x20df0
            <MI 20e0c  MOVE.B  D0,D7>                                           {}
            <MI 20e0e  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[4, '(A6-0xa)']}
            <MI 20e10  MOVE.B  D7,-(A7)>                     Δ-2                {[4, '(A6-0xa)']|[2, 'D7']}
            <Call 0x20e12 0x102c0>                                              {[4, '(A6-0xa)']|[2, 'D7']}
                AppendChar(MOD b : String; a : char)
            <POP 20e18-20e1a StackAdj>                       Δ+6                {}
            <MI 20e1a  MOVE.W  (A6+0x8),D6>                                     {}
            <MI 20e1e  ANDI.W  #0x000f,D6>                                      {}
            <MI 20e22  CMP.W   #0x09,D6>                                        {}
            <MI 20e24  BHI     0x20e34>                                         {}
        <POP 20e26-20e34 Naked>                              Σ0         →0x20e42
            <MI 20e26  CLR.L   D0>                                              {}
            <MI 20e28  MOVE.W  D6,D0>                                           {}
            <MI 20e2a  ADD.L   #0x30,D0>                                        {}
            <POP 0x20e2c LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 20e32  BRA     0x20e42>                                         {}
        <POP 20e34-20e42 Naked>                              Σ0         ↓ ←0x20e0c
            <MI 20e34  CLR.L   D0>                                              {}
            <MI 20e36  MOVE.W  D6,D0>                                           {}
            <MI 20e38  SUB.L   #0x0a,D0>                                        {}
            <MI 20e3a  ADD.L   #0x41,D0>                                        {}
            <POP 0x20e3c LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
        <POP 20e42-20e54 Naked>                              Σ0         ↓ ←0x20e26
            <MI 20e42  MOVE.B  D0,D7>                                           {}
            <MI 20e44  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[4, '(A6-0xa)']}
            <MI 20e46  MOVE.B  D7,-(A7)>                     Δ-2                {[4, '(A6-0xa)']|[2, 'D7']}
            <Call 0x20e48 0x102c0>                                              {[4, '(A6-0xa)']|[2, 'D7']}
                AppendChar(MOD b : String; a : char)
            <POP 20e4e-20e50 StackAdj>                       Δ+6                {}
            <MI 20e50  MOVE.L  (A6-0xa),(A6+0xa)>                               {}
        <POP 20e54-20e5c Epilogue>                           Σ0         

0x20e5c


@ 20e5c
        <LVAR  0x00c 2(w)>
        <LVAR  0x008 @ 4(r)>
        <LVAR -0x010 4(rw)>
    <POP 20e5c-20f94 Body>                                   Δ-16       
        <POP 20e5c-20e72 Prologue>                           Σ0         ↓
        <POP 20e72-20e78 RegCacheLoad>                       Σ0         ↓
        <POP 20e78-20e7a Naked>                              Σ0         ↓
            <MI 20e78  MOVEQ.L #0x00,D7>                                        {}
        <POP 20e7a-20eae Naked>                              Σ0 Δ-8     ↓ ←0x20f6c
            <POP 20e7a-20e7e StackAdj>                       Δ-12               {[-12-]}
            <MI 20e7e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-12-]|[4, '(A6+0x8)']}
            <Call 0x20e82 0x102cc>                                              {[-12-]|[4, '(A6+0x8)']}
                StringDup(a : String) : String
            <POP 20e88-20e8a StackAdj>                       Δ+4                {[-12-]}
            <Call 0x20e8a 0x103e4>                                              {[-12-]}
                AskConsoleString(prompt : String) : String
            <POP 20e90-20e92 StackAdj>                       Δ+4                {[-8-]}
            <Call 0x20e92 0x102f0>                                              {[-8-]}
                ToUpper(a : String) : String
            <POP 20e98-20e9a StackAdj>                       Δ+4                {[-4-]}
            <MI 20e9a  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {}
            <MI 20e9e  MOVEQ.L #0x00,D6>                                        {}
            <MI 20ea0  MOVEA.L (A6-0x10),A0>                                    {}
            <MI 20ea4  MOVE.L  A0,-(A7)>                     Δ-4                {[4, 'A0']}
            <MI 20ea6  MOVE.W  (A0),D0>                                         {[4, 'A0']}
            <MI 20ea8  EXTW.L  D0>                                              {[4, 'A0']}
            <MI 20eaa  MOVE.L  D0,-(A7)>                     Δ-4                {[4, 'A0']|[4, 'D0']}
            <MI 20eac  MOVEQ.L #0x01,D5>                                        {[4, 'A0']|[4, 'D0']}
        <POP 20eae-20eb4 Naked>                              Σ-8        ↓ →0x20f66 ←0x20f60
            <MI 20eae  CMP.L   (A7),D5>                                         {[-8-]}
            <MI 20eb0  BGT     0x20f66>                                         {[-8-]}
        <POP 20eb4-20ebe Naked>                              Σ-8        ↓ →0x20ef2
            <MI 20eb4  ASL.L   #0x4,D7>                                         {[-8-]}
            <MI 20eb6  CMPI.L  #0x000000ff,D7>                                  {[-8-]}
            <MI 20ebc  BLE     0x20ef2>                                         {[-8-]}
        <POP 20ebe-20ef2 Naked>                              Σ-8 Δ+8    →0x20f6c
            <Blob 0x20ebe [32] @>                            Δ-32               {[-8-]|[«32""»]}
            <POP 20ed0-20ed2 StackAdj>                       Δ-4                {[-8-]|[«32""»]|[-4-]}
            <Lit 0x20ed2 31>                                                    {[-8-]|[«32""»]|[$$Enter number in range [0 .. FF]]}
            <Call 0x20ee4 0x103e0>                                              {[-8-]|[«32""»]|[$$Enter number in range [0 .. FF]]}
                WriteConsoleStringCrLf(str : String)
            <POP 20eea-20eee StackAdj>                       Δ+36               {[-8-]}
            <POP 20eee-20ef0 StackAdj>                       Δ+8                {}
            <MI 20ef0  BRA     0x20f6c>                                         {}
        <POP 20ef2-20f0c Naked>                              Σ-8        ↓ →0x20f1e ←0x20eb4
            <MI 20ef2  MOVE.L  D5,D0>                                           {[-8-]}
            <MI 20ef4  SUBQ.L  #0x1,D0>                                         {[-8-]}
            <POP 0x20ef6 LimitCheck 0x0 ≤ D0 ≤ 0x7d>                            {[-8-]}
            <MI 20f00  MOVEA.L (A7+0x4),A0>                                     {[-8-]}
            <MI 20f04  MOVE.B  (A0+D0.L+#0x2),D1>                               {[-8-]}
            <MI 20f08  CMP.B   #0x30,D1>                                        {[-8-]}
            <MI 20f0a  BCS     0x20f1e>                                         {[-8-]}
        <POP 20f0c-20f12 Naked>                              Σ-8        ↓ →0x20f1e
            <MI 20f0c  CMPI.B  #0x39,D1>                                        {[-8-]}
            <MI 20f10  BHI     0x20f1e>                                         {[-8-]}
        <POP 20f12-20f18 Naked>                              Σ-8        ↓
            <MI 20f12  CLR.L   D0>                                              {[-8-]}
            <MI 20f14  MOVE.B  D1,D0>                                           {[-8-]}
            <MI 20f16  SUB.W   #0x30,D0>                                        {[-8-]}
        <POP 20f18-20f1e Naked>                              Σ-8        →0x20f60 ←0x20f28
            <MI 20f18  EXTW.L  D0>                                              {[-8-]}
            <MI 20f1a  ADD.L   D0,D7>                                           {[-8-]}
            <MI 20f1c  BRA     0x20f60>                                         {[-8-]}
        <POP 20f1e-20f22 Naked>                              Σ-8        ↓ →0x20f34 ←0x20ef2 ←0x20f0c
            <MI 20f1e  CMP.B   #0x41,D1>                                        {[-8-]}
            <MI 20f20  BCS     0x20f34>                                         {[-8-]}
        <POP 20f22-20f28 Naked>                              Σ-8        ↓ →0x20f34
            <MI 20f22  CMPI.B  #0x46,D1>                                        {[-8-]}
            <MI 20f26  BHI     0x20f34>                                         {[-8-]}
        <POP 20f28-20f34 Naked>                              Σ-8        →0x20f18
            <MI 20f28  CLR.L   D0>                                              {[-8-]}
            <MI 20f2a  MOVE.B  D1,D0>                                           {[-8-]}
            <MI 20f2c  SUB.W   #0x41,D0>                                        {[-8-]}
            <MI 20f2e  ADDI.W  #0x000a,D0>                                      {[-8-]}
            <MI 20f32  BRA     0x20f18>                                         {[-8-]}
        <POP 20f34-20f60 Naked>                              Σ-8 Δ+8    →0x20f6c ←0x20f1e ←0x20f22
            <Blob 0x20f34 [34] @>                            Δ-34               {[-8-]|[«34""»]}
            <POP 20f40-20f42 StackAdj>                       Δ-4                {[-8-]|[«34""»]|[-4-]}
            <Lit 0x20f42 34>                                                    {[-8-]|[«34""»]|[$$Enter hexadecimal characters only.]}
            <Call 0x20f54 0x103e0>                                              {[-8-]|[«34""»]|[$$Enter hexadecimal characters only.]}
                WriteConsoleStringCrLf(str : String)
            <POP 20f5a-20f5e StackAdj>                       Δ+46               {}
            <MI 20f5e  BRA     0x20f6c>                                         {}
        <POP 20f60-20f66 Naked>                              Σ-8        ↓ →0x20eae ←0x20f18
            <MI 20f60  ADDQ.L  #0x1,D5>                                         {[-8-]}
            <MI 20f62  BVC     0x20eae>                                         {[-8-]}
        <POP 20f66-20f6c Naked>                              Σ-8 Δ+8    ↓ ←0x20eae
            <POP 20f66-20f68 StackAdj>                       Δ+4                {[-4-]}
            <MI 20f68  MOVEQ.L #0x01,D6>                                        {[-4-]}
            <POP 20f6a-20f6c StackAdj>                       Δ+4                {}
        <POP 20f6c-20f72 Naked>                              Σ0         ↓ →0x20e7a ←0x20ebe ←0x20f34
            <MI 20f6c  TST.B   D6>                                              {}
            <MI 20f6e  BEQ     0x20e7a>                                         {}
        <POP 20f72-20f8c Naked>                              Σ0         ↓
            <Pointer.fp 0x20f72 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x20f76 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 20f7c-20f7e StackAdj>                       Δ+4                {}
            <POP 0x20f7e LimitCheck 0x0 ≤ D7 ≤ 0xff>                            {}
            <MI 20f88  MOVE.W  D7,(A6+0xc)>                                     {}
        <POP 20f8c-20f94 Epilogue>                           Σ0         

0x20f94


@ 20f94
        <LVAR  0x008 4(r)>
    <POP 20f94-20fe8 Body>                                              
        <POP 20f94-20faa Prologue>                           Σ0         ↓
        <POP 20faa-20fe0 Naked>                              Σ0         ↓
            <Blob 0x20faa [16] @>                            Δ-16               {[«16""»]}
            <POP 20fbc-20fbe StackAdj>                       Δ-4                {[«16""»]|[-4-]}
            <Lit 0x20fbe 15>                                                    {[«16""»]|[$$Test will loop.]}
            <Call 0x20fd2 0x103e0>                                              {[«16""»]|[$$Test will loop.]}
                WriteConsoleStringCrLf(str : String)
            <POP 20fd8-20fdc StackAdj>                       Δ+20               {}
            <MI 20fdc  CLR.L   (A6+0x8)>                                        {}
        <POP 20fe0-20fe8 Epilogue>                           Σ0         

0x20fe8


@ 20fe8
        <LVAR  0x008 4(w)>
    <POP 20fe8-2112c Body>                                              
        <POP 20fe8-20ffe Prologue>                           Σ0         ↓
        <POP 20ffe-2100c RegCacheLoad>                       Σ0         ↓
        <POP 2100c-21124 Naked>                              Σ0         ↓
            <Blob 0x2100c [14] @>                            Δ-14               {[«14""»]}
            <POP 2101e-21020 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x21020 13>                                                    {[«14""»]|[$$Options are :]}
            <Call 0x2102e 0x103e0>                                              {[«14""»]|[$$Options are :]}
                WriteConsoleStringCrLf(str : String)
            <POP 21030-21031 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x21031 [62] @>                            Δ-62               {[«62""»]}
            <POP 21042-21044 StackAdj>                       Δ-4                {[«62""»]|[-4-]}
            <Lit 0x21044 61>                                                    {[«62""»]|[$$    0 => Halt if read or write errors exceed limit specified,]}
            <Call 0x21052 0x103e0>                                              {[«62""»]|[$$    0 => Halt if read or write errors exceed limit specified,]}
                WriteConsoleStringCrLf(str : String)
            <POP 21054-21058 StackAdj>                       Δ+66               {}
            <Blob 0x21058 [36] @>                            Δ-36               {[«36""»]}
            <POP 21064-21066 StackAdj>                       Δ-4                {[«36""»]|[-4-]}
            <Lit 0x21066 36>                                                    {[«36""»]|[$$         halt on completion of test.]}
            <Call 0x21074 0x103e0>                                              {[«36""»]|[$$         halt on completion of test.]}
                WriteConsoleStringCrLf(str : String)
            <POP 21076-2107a StackAdj>                       Δ+40               {}
            <Call 0x2107a 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x21080 [58] @>                            Δ-58               {[«58""»]}
            <POP 2108c-2108e StackAdj>                       Δ-4                {[«58""»]|[-4-]}
            <Lit 0x2108e 58>                                                    {[«58""»]|[$$    1 => Loop on test, halt if read or write errors exceed]}
            <Call 0x2109c 0x103e0>                                              {[«58""»]|[$$    1 => Loop on test, halt if read or write errors exceed]}
                WriteConsoleStringCrLf(str : String)
            <POP 2109e-210a2 StackAdj>                       Δ+62               {}
            <Blob 0x210a2 [42] @>                            Δ-42               {[«42""»]}
            <POP 210ae-210b0 StackAdj>                       Δ-4                {[«42""»]|[-4-]}
            <Lit 0x210b0 42>                                                    {[«42""»]|[$$         limit specifed on any given pass.]}
            <Call 0x210be 0x103e0>                                              {[«42""»]|[$$         limit specifed on any given pass.]}
                WriteConsoleStringCrLf(str : String)
            <POP 210c0-210c4 StackAdj>                       Δ+46               {}
            <Call 0x210c4 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x210ca [56] @>                            Δ-56               {[«56""»]}
            <POP 210d6-210d8 StackAdj>                       Δ-4                {[«56""»]|[-4-]}
            <Lit 0x210d8 56>                                                    {[«56""»]|[$$    2 => Loop on test, bypass read or write error halts.]}
            <Call 0x210e6 0x103e0>                                              {[«56""»]|[$$    2 => Loop on test, bypass read or write error halts.]}
                WriteConsoleStringCrLf(str : String)
            <POP 210e8-210e9 StackAdj>                       Δ+60       ↓       {}
            <Blob 0x210e9 [28] @>                            Δ-28               {[«28""»]}
            <POP 210fa-210fc StackAdj>                       Δ-8                {[«28""»]|[-8-]}
            <Lit 0x210fc 27>                                                    {[«28""»]|[-4-]|[$$Please enter test option :_]}
            <Const 0x2110a 0x0.4>                            Δ-4                {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]}
            <Const 0x2110e 0x2.4>                            Δ-4                {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]|[##2]}
            <Call 0x21112 0x103ec>                                              {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]|[##2]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 21118-2111c StackAdj>                       Δ+12               {[«28""»]|[-4-]}
            <MI 2111c  MOVE.L  (A7)+,(A6+0x8)>               Δ+4                {[«28""»]}
            <POP 21120-21124 StackAdj>                       Δ+28               {}
        <POP 21124-2112c Epilogue>                           Σ0         

0x2112c


@ 2112c
        <LVAR  0x008 4(w)>
    <POP 2112c-2121c Body>                                              
        <POP 2112c-21142 Prologue>                           Σ0         ↓
        <POP 21142-21152 RegCacheLoad>                       Σ0         ↓
        <POP 21152-21214 Naked>                              Σ0         ↓
            <Blob 0x21152 [14] @>                            Δ-14               {[«14""»]}
            <POP 21164-21166 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x21166 13>                                                    {[«14""»]|[$$Options are :]}
            <Call 0x21174 0x103e0>                                              {[«14""»]|[$$Options are :]}
                WriteConsoleStringCrLf(str : String)
            <POP 21176-21178 StackAdj>                       Δ+18               {}
            <Blob 0x21178 [30] @>                            Δ-30               {[«30""»]}
            <POP 21184-21186 StackAdj>                       Δ-4                {[«30""»]|[-4-]}
            <Lit 0x21186 30>                                                    {[«30""»]|[$$    0 => Use all ones pattern.]}
            <Call 0x21194 0x103e0>                                              {[«30""»]|[$$    0 => Use all ones pattern.]}
                WriteConsoleStringCrLf(str : String)
            <POP 21196-2119a StackAdj>                       Δ+34               {}
            <Blob 0x2119a [40] @>                            Δ-40               {[«40""»]}
            <POP 211a6-211a8 StackAdj>                       Δ-4                {[«40""»]|[-4-]}
            <Lit 0x211a8 40>                                                    {[«40""»]|[$$    1 => Use one-half frequency pattern.]}
            <Call 0x211b6 0x103e0>                                              {[«40""»]|[$$    1 => Use one-half frequency pattern.]}
                WriteConsoleStringCrLf(str : String)
            <POP 211b8-211b9 StackAdj>                       Δ+44       ↓       {}
            <Blob 0x211b9 [42] @>                            Δ-42               {[«42""»]}
            <POP 211c8-211ca StackAdj>                       Δ-4                {[«42""»]|[-4-]}
            <Lit 0x211ca 41>                                                    {[«42""»]|[$$    2 => Use one-third frequency pattern.]}
            <Call 0x211d8 0x103e0>                                              {[«42""»]|[$$    2 => Use one-third frequency pattern.]}
                WriteConsoleStringCrLf(str : String)
            <POP 211da-211db StackAdj>                       Δ+46       ↓       {}
            <Blob 0x211db [28] @>                            Δ-28               {[«28""»]}
            <POP 211ea-211ec StackAdj>                       Δ-8                {[«28""»]|[-8-]}
            <Lit 0x211ec 27>                                                    {[«28""»]|[-4-]|[$$Please enter test option :_]}
            <Const 0x211fa 0x0.4>                            Δ-4                {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]}
            <Const 0x211fe 0x2.4>                            Δ-4                {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]|[##2]}
            <Call 0x21202 0x103ec>                                              {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]|[##2]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 21208-2120c StackAdj>                       Δ+12               {[«28""»]|[-4-]}
            <MI 2120c  MOVE.L  (A7)+,(A6+0x8)>               Δ+4                {[«28""»]}
            <POP 21210-21214 StackAdj>                       Δ+28               {}
        <POP 21214-2121c Epilogue>                           Σ0         

0x2121c


@ 2121c
        <LVAR  0x008 4(w)>
    <POP 2121c-212e8 Body>                                              
        <POP 2121c-21232 Prologue>                           Σ0         ↓
        <POP 21232-21240 RegCacheLoad>                       Σ0         ↓
        <POP 21240-212e0 Naked>                              Σ0         ↓
            <Blob 0x21240 [14] @>                            Δ-14               {[«14""»]}
            <POP 21252-21254 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x21254 13>                                                    {[«14""»]|[$$Options are :]}
            <Call 0x21262 0x103e0>                                              {[«14""»]|[$$Options are :]}
                WriteConsoleStringCrLf(str : String)
            <POP 21264-21268 StackAdj>                       Δ+18               {}
            <Blob 0x21268 [22] @>                            Δ-22               {[«22""»]}
            <POP 21274-21276 StackAdj>                       Δ-4                {[«22""»]|[-4-]}
            <Lit 0x21276 22>                                                    {[«22""»]|[$$    0 => 25 ips speed.]}
            <Call 0x21284 0x103e0>                                              {[«22""»]|[$$    0 => 25 ips speed.]}
                WriteConsoleStringCrLf(str : String)
            <POP 21286-2128a StackAdj>                       Δ+26               {}
            <Blob 0x2128a [24] @>                            Δ-24               {[«24""»]}
            <POP 21296-21298 StackAdj>                       Δ-4                {[«24""»]|[-4-]}
            <Lit 0x21298 24>                                                    {[«24""»]|[$$    1 => 12.5 ips speed.]}
            <Call 0x212a6 0x103e0>                                              {[«24""»]|[$$    1 => 12.5 ips speed.]}
                WriteConsoleStringCrLf(str : String)
            <MI 212a8  MOVEA.L A7,A0>                                           {[«24""»]|[$$    1 => 12.5 ips speed.]}
            <MI 212aa  LEA.L   0x2033c,A1>                                      {[«24""»]|[$$    1 => 12.5 ips speed.]}
            <BlockMove 27,A1,A0>                                                {[«24""»]|[$$    1 => 12.5 ips speed.]}
            <POP 212b6-212b8 StackAdj>                       Δ-8                {[«24""»]|[$$    1 => 12.5 ips speed.]|[-8-]}
            <Lit 0x212b8>                                                       {[«24""»]|[$$    1 => 12.5 ips speed.]|[-4-]|[$$…]}
                <Pointer.sp 0x212b8 8>                       Δ-4        
                <Const 0x212bc 0x1.2>                        Δ-2        
                <Const 0x212be 0x1b.2>                       Δ-2        
                <Call 0x212c2 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 212c4-212c6 StackAdj>                   Δ+8        
            <Const 0x212c6 0x0.4>                            Δ-4                {[«24""»]|[$$    1 => 12.5 ips speed.]|[-4-]|[$$…]|[##0]}
            <Const 0x212ca 0x1.4>                            Δ-4                {[«24""»]|[$$    1 => 12.5 ips speed.]|[-4-]|[$$…]|[##0]|[##1]}
            <Call 0x212ce 0x103ec>                                              {[«24""»]|[$$    1 => 12.5 ips speed.]|[-4-]|[$$…]|[##0]|[##1]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 212d4-212d8 StackAdj>                       Δ+12               {[«24""»]|[$$    1 => 12.5 ips speed.]|[-4-]}
            <MI 212d8  MOVE.L  (A7)+,(A6+0x8)>               Δ+4                {[«24""»]|[$$    1 => 12.5 ips speed.]}
            <POP 212dc-212e0 StackAdj>                       Δ+28               {}
        <POP 212e0-212e8 Epilogue>                           Σ0         

0x212e8


@ 212e8
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x022 @>
        <LVAR -0x042 @>
        <LVAR -0x062 @>
        <LVAR -0x082 @>
        <LVAR -0x0a2 @>
    <POP 212e8-214b4 Body>                                              
        <POP 212e8-212fe Prologue>                           Σ0         ↓
        <POP 212fe-21314 RegCacheLoad>                       Σ0         ↓
        <POP 21314-21364 Naked>                              Σ0         ↓
            <MI 21314  LEA.L   (A6-0xa2),A0>                                    {}
            <MI 21318  LEA.L   0x20cbc,A1>                                      {}
            <BlockMove 32,A1,A0>                                                {}
            <MI 21324  LEA.L   (A6-0x82),A0>                                    {}
            <MI 21328  LEA.L   0x20cdc,A1>                                      {}
            <BlockMove 32,A1,A0>                                                {}
            <MI 21334  LEA.L   (A6-0x62),A0>                                    {}
            <MI 21338  LEA.L   0x20cfc,A1>                                      {}
            <BlockMove 32,A1,A0>                                                {}
            <MI 21344  LEA.L   (A6-0x42),A0>                                    {}
            <MI 21348  LEA.L   0x20d1c,A1>                                      {}
            <BlockMove 32,A1,A0>                                                {}
            <MI 21354  LEA.L   (A6-0x22),A0>                                    {}
            <MI 21358  LEA.L   0x20d3c,A1>                                      {}
            <BlockMove 32,A1,A0>                                                {}
        <POP 21364-2139c Naked>                              Σ0         ↓ →0x213a0 ←0x2140c
            <MI 21364  MOVEA.L (A6+0xc),A0>                                     {}
            <Blob 0x21368 [20] @>                            Δ-20               {[«20""»]}
            <POP 21374-21376 StackAdj>                       Δ-6                {[«20""»]|[-6-]}
            <Lit 0x21376 20>                                                    {[«20""»]|[-2-]|[$$Enter test number :_]}
            <Call 0x21382 0x20e5c>                                              {[«20""»]|[-2-]|[$$Enter test number :_]}
            <POP 21386-21388 StackAdj>                       Δ+4                {[«20""»]|[-2-]}
            <MI 21388  MOVE.W  (A7)+,D0>                     Δ+2                {[«20""»]}
            <POP 0x2138a LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[«20""»]}
            <POP 2138c-2138e StackAdj>                       Δ+20               {}
            <MI 2138e  MOVE.W  D0,(A0)>                                         {}
            <MI 21390  LEA.L   (A6-0xa2),A0>                                    {}
            <MI 21394  MOVE.W  D0,D1>                                           {}
            <MI 21396  LSR.W   #0x3,D1>                                         {}
            <MI 21398  CMP.W   #0x20,D1>                                        {}
            <MI 2139a  BLT     0x213a0>                                         {}
        <POP 2139c-213a0 Naked>                              Σ0         →0x213a4
            <MI 2139c  MOVEQ.L #0x00,D1>                                        {}
            <MI 2139e  BRA     0x213a4>                                         {}
        <POP 213a0-213a4 Naked>                              Σ0         ↓ ←0x21364
            <MI 213a0  BTST.B  D0,(A0+D1.W)>                                    {}
        <POP 213a4-213a6 Naked>                              Σ0         ↓ →0x213aa ←0x2139c
            <MI 213a4  BEQ     0x213aa>                                         {}
        <POP 213a6-213aa Naked>                              Σ0         →0x2140c
            <MI 213a6  MOVEQ.L #0x01,D7>                                        {}
            <MI 213a8  BRA     0x2140c>                                         {}
        <POP 213aa-2140c Naked>                              Σ0         ↓ ←0x213a4
            <MI 213aa  MOVEQ.L #0x00,D7>                                        {}
            <Blob 0x213ac [6] @>                             Δ-6                {[«6""»]}
            <Blob 0x213bc [18] @>                            Δ-18               {[«6""»]|[«18""»]}
            <POP 213c8-213ca StackAdj>                       Δ-8                {[«6""»]|[«18""»]|[-8-]}
            <Lit 0x213ca 5>                                                     {[«6""»]|[«18""»]|[-4-]|[$$Test_]}
            <POP 213d6-213d8 StackAdj>                       Δ-4                {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]}
            <MI 213d8  MOVE.W  D0,D1>                                           {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]}
            <MI 213da  EXTW.L  D1>                                              {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]}
            <MI 213dc  MOVE.L  D1,-(A7)>                     Δ-4                {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[4, 'D1']}
            <Const 0x213de 0x4.4>                            Δ-4                {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[4, 'D1']|[##4]}
            <Call 0x213e2 0x102e8>                                              {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[4, 'D1']|[##4]}
                Long2HexString(val : Long; ndig : Long) : String
            <POP 213e8-213ea StackAdj>                       Δ+4                {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[4, 'D1']}
            <Lit 0x213ea 18>                                                    {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[$$ is not supported.]}
            <Call 0x213f8 0x102d4>                                              {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[$$ is not supported.]}
                StringCat3(a, b, c : String) : String
            <POP 213fe-21402 StackAdj>                       Δ+12               {[«6""»]|[«18""»]|[-4-]}
            <Call 0x21402 0x103e0>                                              {[«6""»]|[«18""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21408-2140c StackAdj>                       Δ+28               {}
        <POP 2140c-21412 Naked>                              Σ0         ↓ →0x21364 ←0x213a6
            <MI 2140c  TST.B   D7>                                              {}
            <MI 2140e  BEQ     0x21364>                                         {}
        <POP 21412-2141e Naked>                              Σ0         ↓ →0x21422
            <MI 21412  LEA.L   (A6-0x82),A0>                                    {}
            <MI 21416  MOVE.W  D0,D1>                                           {}
            <MI 21418  LSR.W   #0x3,D1>                                         {}
            <MI 2141a  CMP.W   #0x20,D1>                                        {}
            <MI 2141c  BLT     0x21422>                                         {}
        <POP 2141e-21422 Naked>                              Σ0         →0x21426
            <MI 2141e  MOVEQ.L #0x00,D1>                                        {}
            <MI 21420  BRA     0x21426>                                         {}
        <POP 21422-21426 Naked>                              Σ0         ↓ ←0x21412
            <MI 21422  BTST.B  D0,(A0+D1.W)>                                    {}
        <POP 21426-21428 Naked>                              Σ0         ↓ →0x2143c ←0x2141e
            <MI 21426  BEQ     0x2143c>                                         {}
        <POP 21428-21438 Naked>                              Σ0         ↓
            <MI 21428  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 2142a-2142c StackAdj>                       Δ-4                {[-4-]}
            <Call 0x2142c 0x20f94>                                              {[-4-]}
            <MI 21430  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <POP 0x21432 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
        <POP 21438-2143c Naked>                              Σ0         →0x214ac ←0x2144e ←0x21472 ←0x21496
            <MI 21438  MOVE.W  D0,(A0)>                                         {}
            <MI 2143a  BRA     0x214ac>                                         {}
        <POP 2143c-21444 Naked>                              Σ0         ↓ →0x21448 ←0x21426
            <MI 2143c  MOVE.W  D0,D1>                                           {}
            <MI 2143e  LSR.W   #0x3,D1>                                         {}
            <MI 21440  CMP.W   #0x20,D1>                                        {}
            <MI 21442  BLT     0x21448>                                         {}
        <POP 21444-21448 Naked>                              Σ0         →0x2144c
            <MI 21444  MOVEQ.L #0x00,D1>                                        {}
            <MI 21446  BRA     0x2144c>                                         {}
        <POP 21448-2144c Naked>                              Σ0         ↓ ←0x2143c
            <MI 21448  BTST.B  D0,(A6+D1.W-#0x62)>                              {}
        <POP 2144c-2144e Naked>                              Σ0         ↓ →0x21460 ←0x21444
            <MI 2144c  BEQ     0x21460>                                         {}
        <POP 2144e-21460 Naked>                              Σ0         →0x21438
            <MI 2144e  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 21450-21452 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x21452 0x20fe8>                                              {[-4-]}
            <MI 21456  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <POP 0x21458 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 2145e  BRA     0x21438>                                         {}
        <POP 21460-21468 Naked>                              Σ0         ↓ →0x2146c ←0x2144c
            <MI 21460  MOVE.W  D0,D1>                                           {}
            <MI 21462  LSR.W   #0x3,D1>                                         {}
            <MI 21464  CMP.W   #0x20,D1>                                        {}
            <MI 21466  BLT     0x2146c>                                         {}
        <POP 21468-2146c Naked>                              Σ0         →0x21470
            <MI 21468  MOVEQ.L #0x00,D1>                                        {}
            <MI 2146a  BRA     0x21470>                                         {}
        <POP 2146c-21470 Naked>                              Σ0         ↓ ←0x21460
            <MI 2146c  BTST.B  D0,(A6+D1.W-#0x42)>                              {}
        <POP 21470-21472 Naked>                              Σ0         ↓ →0x21484 ←0x21468
            <MI 21470  BEQ     0x21484>                                         {}
        <POP 21472-21484 Naked>                              Σ0         →0x21438
            <MI 21472  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 21474-21476 StackAdj>                       Δ-4                {[-4-]}
            <Call 0x21476 0x2112c>                                              {[-4-]}
            <MI 2147a  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <POP 0x2147c LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 21482  BRA     0x21438>                                         {}
        <POP 21484-2148c Naked>                              Σ0         ↓ →0x21490 ←0x21470
            <MI 21484  MOVE.W  D0,D1>                                           {}
            <MI 21486  LSR.W   #0x3,D1>                                         {}
            <MI 21488  CMP.W   #0x20,D1>                                        {}
            <MI 2148a  BLT     0x21490>                                         {}
        <POP 2148c-21490 Naked>                              Σ0         →0x21494
            <MI 2148c  MOVEQ.L #0x00,D1>                                        {}
            <MI 2148e  BRA     0x21494>                                         {}
        <POP 21490-21494 Naked>                              Σ0         ↓ ←0x21484
            <MI 21490  BTST.B  D0,(A6+D1.W-#0x22)>                              {}
        <POP 21494-21496 Naked>                              Σ0         ↓ →0x214a8 ←0x2148c
            <MI 21494  BEQ     0x214a8>                                         {}
        <POP 21496-214a8 Naked>                              Σ0         →0x21438
            <MI 21496  MOVEA.L (A6+0x8),A0>                                     {}
            <POP 21498-2149a StackAdj>                       Δ-4                {[-4-]}
            <Call 0x2149a 0x2121c>                                              {[-4-]}
            <MI 2149e  MOVE.L  (A7)+,D0>                     Δ+4                {}
            <POP 0x214a0 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 214a6  BRA     0x21438>                                         {}
        <POP 214a8-214ac Naked>                              Σ0         ↓ ←0x21494
            <MI 214a8  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 214aa  CLR.W   (A0)>                                            {}
        <POP 214ac-214b4 Epilogue>                           Σ0         ←0x21438

0x214b4


@ 214b4
        <LVAR  0x00c 2(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x010 @>
        <LVAR -0x014 @>
        <LVAR -0x016 @ 1(r)>
        <LVAR -0x018 2(r)>
        <LVAR -0x01a 2(r)>
        <LVAR -0x01c 2(w)>
        <LVAR -0x01e 2(r)>
        <LVAR -0x020 2(r)>
        <LVAR -0x022 2(w)>
        <LVAR -0x024 2(r)>
        <LVAR -0x026 @ 2(r)>
    <POP 214b4-21568 Body>                                              
        <POP 214b4-214ca Prologue>                           Σ0         ↓
        <POP 214ca-214cc RegCacheLoad>                       Σ0         ↓
        <POP 214cc-2151c Naked>                              Σ0         ↓ →0x21550
            <MI 214cc  CLR.W   (A6-0x26)>                                       {}
            <MI 214d0  CLR.W   (A6-0x24)>                                       {}
            <MI 214d4  MOVE.W  #0x3,(A6-0x22)>                                  {}
            <MI 214da  CLR.W   (A6-0x20)>                                       {}
            <MI 214de  CLR.W   (A6-0x1e)>                                       {}
            <MI 214e2  MOVE.W  (A6+0xc),D0>                                     {}
            <MI 214e6  ASL.W   #0x8,D0>                                         {}
            <MI 214e8  MOVE.W  D0,(A6-0x1c)>                                    {}
            <MI 214ec  CLR.W   (A6-0x1a)>                                       {}
            <MI 214f0  CLR.W   (A6-0x18)>                                       {}
            <Pointer.fp 0x214f4 <LVAR -0x026 @ 2(r)>>        Δ-4                {[@@-38]}
            <MI 214f8  LEA.L   (A6-0x14),A0>                                    {[@@-38]}
            <MI 214fc  MOVE.L  A0,-(A7)>                     Δ-4                {[@@-38]|[4, 'A0']}
            <Const 0x214fe 0x1.2>                            Δ-2                {[@@-38]|[4, 'A0']|[#1]}
            <Call 0x21500 0x10204>                                              {[@@-38]|[4, 'A0']|[#1]}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 21506-21508 StackAdj>                       Δ+8                {[-2-]}
            <POP 21508-21509 StackAdj>                       Δ+2                {}
            <Const 0x21509 0x1.2>                            Δ-2                {[#1]}
            <Pointer.fp 0x2150a <LVAR -0x016 @ 1(r)>>        Δ-4                {[#1]|[@@-22]}
            <Call 0x2150e 0x10206>                                              {[#1]|[@@-22]}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 21514-21516 StackAdj>                       Δ+6                {}
            <MI 21516  TST.B   (A6-0x16)>                                       {}
            <MI 2151a  BNE     0x21550>                                         {}
        <POP 2151c-21550 Naked>                              Σ0         ↓
            <Blob 0x2151c [50] @>                            Δ-50               {[«50""»]}
            <Const 0x2152e 0xe.2>                            Δ-2                {[«50""»]|[#14]}
            <POP 21532-21534 StackAdj>                       Δ-4                {[«50""»]|[#14]|[-4-]}
            <Lit 0x21534 49>                                                    {[«50""»]|[#14]|[$$Error on status read during diagnostic execution.]}
            <Call 0x21546 0x103b8>                                              {[«50""»]|[#14]|[$$Error on status read during diagnostic execution.]}
                PopProgram(status : Byte; msg : String)
            <POP 2154c-21550 StackAdj>                       Δ+56               {}
        <POP 21550-21560 Naked>                              Σ0         ↓ ←0x214cc
            <MI 21550  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 21554  LEA.L   (A6-0x10),A1>                                    {}
            <BlockMove 16,A1,A0>                                                {}
        <POP 21560-21568 Epilogue>                           Σ0         

0x21568


@ 21568
        <LVAR  0x008 2(r)>
        <LVAR -0x008 2(r)>
        <LVAR -0x010 @>
        <LVAR -0x012 @ 1(r)>
        <LVAR -0x014 2(r)>
        <LVAR -0x016 2(r)>
        <LVAR -0x018 2(w)>
        <LVAR -0x01a 2(r)>
        <LVAR -0x01c 2(r)>
        <LVAR -0x01e 2(w)>
        <LVAR -0x020 2(r)>
        <LVAR -0x022 @ 2(r)>
    <POP 21568-2161c Body>                                              
        <POP 21568-2157e Prologue>                           Σ0         ↓
        <POP 2157e-21580 RegCacheLoad>                       Σ0         ↓
        <POP 21580-215d2 Naked>                              Σ0         ↓ →0x215fc
            <MI 21580  CLR.W   (A6-0x22)>                                       {}
            <MI 21584  CLR.W   (A6-0x20)>                                       {}
            <MI 21588  MOVE.W  #0x3,(A6-0x1e)>                                  {}
            <MI 2158e  CLR.W   (A6-0x1c)>                                       {}
            <MI 21592  CLR.W   (A6-0x1a)>                                       {}
            <MI 21596  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 2159a  ASL.W   #0x8,D0>                                         {}
            <MI 2159c  ADDI.W  #0x001b,D0>                                      {}
            <MI 215a0  MOVE.W  D0,(A6-0x18)>                                    {}
            <MI 215a4  CLR.W   (A6-0x16)>                                       {}
            <MI 215a8  CLR.W   (A6-0x14)>                                       {}
            <Pointer.fp 0x215ac <LVAR -0x022 @ 2(r)>>        Δ-4                {[@@-34]}
            <Const 0x215b0 0x0.4>                            Δ-4                {[@@-34]|[##0]}
            <Const 0x215b4 0x1.2>                            Δ-2                {[@@-34]|[##0]|[#1]}
            <Call 0x215b6 0x10204>                                              {[@@-34]|[##0]|[#1]}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 215bc-215be StackAdj>                       Δ+8                {[-2-]}
            <POP 215be-215bf StackAdj>                       Δ+2                {}
            <Const 0x215bf 0x1.2>                            Δ-2                {[#1]}
            <Pointer.fp 0x215c0 <LVAR -0x012 @ 1(r)>>        Δ-4                {[#1]|[@@-18]}
            <Call 0x215c4 0x10206>                                              {[#1]|[@@-18]}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 215ca-215cc StackAdj>                       Δ+6                {}
            <MI 215cc  TST.B   (A6-0x12)>                                       {}
            <MI 215d0  BNE     0x215fc>                                         {}
        <POP 215d2-215fc Naked>                              Σ0         ↓
            <Blob 0x215d2 [40] @>                            Δ-40               {[«40""»]}
            <POP 215de-215e0 StackAdj>                       Δ-4                {[«40""»]|[-4-]}
            <Lit 0x215e0 40>                                                    {[«40""»]|[$$Error when issuing load/on-line command.]}
            <Call 0x215f2 0x103e0>                                              {[«40""»]|[$$Error when issuing load/on-line command.]}
                WriteConsoleStringCrLf(str : String)
            <POP 215f8-215fc StackAdj>                       Δ+44               {}
        <POP 215fc-21614 Naked>                              Σ0         ↓ →0x215fc ←0x21580 ←0x215fc
            <MI 215fc  MOVE.W  (A6+0x8),-(A7)>               Δ-2                {[2, '(A6+0x8)']}
            <Pointer.fp 0x21600 <LVAR -0x010 @>>             Δ-4                {[2, '(A6+0x8)']|[@@-16]}
            <Call 0x21604 0x214b4>                                              {[2, '(A6+0x8)']|[@@-16]}
            <POP 21608-2160a StackAdj>                       Δ+6                {}
            <MI 2160a  MOVE.W  (A6-0x8),D0>                                     {}
            <MI 2160e  ANDI.W  #0x0040,D0>                                      {}
            <MI 21612  BEQ     0x215fc>                                         {}
        <POP 21614-2161c Epilogue>                           Σ0         

0x2161c


@ 2161c
        <LVAR  0x00c 2(r)>
        <LVAR  0x00a 2(r)>
        <LVAR  0x008 2(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)>
        <LVAR -0x016 @ 4(w)>
    <POP 2161c-216cc Body>                                              
        <POP 2161c-21632 Prologue>                           Σ0         ↓
        <POP 21632-21634 RegCacheLoad>                       Σ0         ↓
        <POP 21634-2169a Naked>                              Σ0         ↓ →0x216c4
            <MI 21634  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 21638  ASL.W   #0x8,D0>                                         {}
            <MI 2163a  ADD.W   (A6+0xa),D0>                                     {}
            <MI 2163e  EXTW.L  D0>                                              {}
            <MI 21640  MOVE.L  D0,(A6-0x16)>                                    {}
            <MI 21644  CLR.W   (A6-0x12)>                                       {}
            <MI 21648  CLR.W   (A6-0x10)>                                       {}
            <MI 2164c  MOVE.W  #0x3,(A6-0xe)>                                   {}
            <MI 21652  CLR.W   (A6-0xc)>                                        {}
            <MI 21656  CLR.W   (A6-0xa)>                                        {}
            <MI 2165a  MOVE.W  (A6+0xc),D0>                                     {}
            <MI 2165e  ASL.W   #0x8,D0>                                         {}
            <MI 21660  ADDI.W  #0x001a,D0>                                      {}
            <MI 21664  MOVE.W  D0,(A6-0x8)>                                     {}
            <MI 21668  MOVE.W  #0x2,(A6-0x6)>                                   {}
            <MI 2166e  CLR.W   (A6-0x4)>                                        {}
            <Pointer.fp 0x21672 <LVAR -0x012 @ 2(r)>>        Δ-4                {[@@-18]}
            <MI 21676  LEA.L   (A6-0x16),A0>                                    {[@@-18]}
            <MI 2167a  MOVE.L  A0,-(A7)>                     Δ-4                {[@@-18]|[4, 'A0']}
            <Const 0x2167c 0x1.2>                            Δ-2                {[@@-18]|[4, 'A0']|[#1]}
            <Call 0x2167e 0x10204>                                              {[@@-18]|[4, 'A0']|[#1]}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 21684-21686 StackAdj>                       Δ+8                {[-2-]}
            <POP 21686-21687 StackAdj>                       Δ+2                {}
            <Const 0x21687 0x1.2>                            Δ-2                {[#1]}
            <Pointer.fp 0x21688 <LVAR -0x002 @ 1(r)>>        Δ-4                {[#1]|[@@-2]}
            <Call 0x2168c 0x10206>                                              {[#1]|[@@-2]}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 21692-21694 StackAdj>                       Δ+6                {}
            <MI 21694  TST.B   (A6-0x2)>                                        {}
            <MI 21698  BNE     0x216c4>                                         {}
        <POP 2169a-216c4 Naked>                              Σ0         ↓
            <Blob 0x2169a [38] @>                            Δ-38               {[«38""»]}
            <POP 216a6-216a8 StackAdj>                       Δ-4                {[«38""»]|[-4-]}
            <Lit 0x216a8 38>                                                    {[«38""»]|[$$Error when issuing diagnostic command.]}
            <Call 0x216ba 0x103e0>                                              {[«38""»]|[$$Error when issuing diagnostic command.]}
                WriteConsoleStringCrLf(str : String)
            <POP 216c0-216c4 StackAdj>                       Δ+42               {}
        <POP 216c4-216cc Epilogue>                           Σ0         ←0x21634

0x216cc


@ 216cc
        <LVAR  0x010 2(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x00c 2(r)>
        <LVAR -0x014 @>
        <LVAR -0x026 2(r)>
        <LVAR -0x028 2(r)>
        <LVAR -0x030 @>
        <LVAR -0x032 @>
        <LVAR -0x034 2(r)>
        <LVAR -0x036 2(w)>
        <LVAR -0x038 2(w)>
        <LVAR -0x03a 2(r)>
        <LVAR -0x03c 2(r)>
        <LVAR -0x03e 2(w)>
        <LVAR -0x040 2(r)>
        <LVAR -0x042 @ 2(r)>
    <POP 216cc-217b2 Body>                                              
        <POP 216cc-216e2 Prologue>                           Σ0         ↓
        <POP 216e2-216e6 RegCacheLoad>                       Σ0         ↓
        <POP 216e6-21714 Naked>                              Σ0         ↓
            <MI 216e6  CLR.W   (A6-0x42)>                                       {}
            <MI 216ea  CLR.W   (A6-0x40)>                                       {}
            <MI 216ee  MOVE.W  #0x3,(A6-0x3e)>                                  {}
            <MI 216f4  CLR.W   (A6-0x3c)>                                       {}
            <MI 216f8  CLR.W   (A6-0x3a)>                                       {}
            <MI 216fc  MOVE.W  (A6+0x10),D0>                                    {}
            <MI 21700  ASL.W   #0x8,D0>                                         {}
            <MI 21702  ADD.W   #0x19,D0>                                        {}
            <MI 21704  MOVE.W  D0,(A6-0x38)>                                    {}
            <MI 21708  MOVE.W  #0x1b,(A6-0x36)>                                 {}
            <MI 2170e  CLR.W   (A6-0x34)>                                       {}
            <MI 21712  MOVEQ.L #0x00,D7>                                        {}
        <POP 21714-2174e Naked>                              Σ0         ↓ →0x2178e ←0x21758
            <Pointer.fp 0x21714 <LVAR -0x042 @ 2(r)>>        Δ-4                {[@@-66]}
            <MI 21718  LEA.L   (A6-0x30),A0>                                    {[@@-66]}
            <MI 2171c  MOVE.L  A0,-(A7)>                     Δ-4                {[@@-66]|[4, 'A0']}
            <Const 0x2171e 0x1.2>                            Δ-2                {[@@-66]|[4, 'A0']|[#1]}
            <Call 0x21720 0x10204>                                              {[@@-66]|[4, 'A0']|[#1]}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 21726-21728 StackAdj>                       Δ+8                {[-2-]}
            <POP 21728-21729 StackAdj>                       Δ+2                {}
            <Const 0x21729 0x1.2>                            Δ-2                {[#1]}
            <Pointer.fp 0x2172a <LVAR -0x032 @>>             Δ-4                {[#1]|[@@-50]}
            <Call 0x2172e 0x10206>                                              {[#1]|[@@-50]}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 21734-21736 StackAdj>                       Δ+4                {[#1]}
            <MI 21736  MOVE.W  (A6+0x10),(A7)>                                  {[2, '(A6+0x10)']}
            <Pointer.fp 0x2173a <LVAR -0x014 @>>             Δ-4                {[2, '(A6+0x10)']|[@@-20]}
            <Call 0x2173e 0x214b4>                                              {[2, '(A6+0x10)']|[@@-20]}
            <POP 21742-21744 StackAdj>                       Δ+6                {}
            <MI 21744  MOVE.W  (A6-0xc),D0>                                     {}
            <MI 21748  ANDI.W  #0x4000,D0>                                      {}
            <MI 2174c  BEQ     0x2178e>                                         {}
        <POP 2174e-21758 Naked>                              Σ0         ↓ →0x2175c
            <MI 2174e  ADDQ.L  #0x1,D7>                                         {}
            <MI 21750  CMPI.L  #0x00000002,D7>                                  {}
            <MI 21756  BGE     0x2175c>                                         {}
        <POP 21758-2175a Naked>                              Σ0         →0x21714
            <MI 21758  BRA     0x21714>                                         {}
        <POP 2175c-2178e Naked>                              Σ0         ↓ ←0x2174e
            <Blob 0x2175c [26] @>                            Δ-26               {[«26""»]}
            <Const 0x2176e 0xe.2>                            Δ-2                {[«26""»]|[#14]}
            <POP 21772-21774 StackAdj>                       Δ-4                {[«26""»]|[#14]|[-4-]}
            <Lit 0x21774 25>                                                    {[«26""»]|[#14]|[$$Error reading sense data!]}
            <Call 0x21784 0x103b8>                                              {[«26""»]|[#14]|[$$Error reading sense data!]}
                PopProgram(status : Byte; msg : String)
            <POP 2178a-2178e StackAdj>                       Δ+32               {}
        <POP 2178e-217aa Naked>                              Σ0         ↓ ←0x21714
            <MI 2178e  MOVEA.L (A6+0xc),A0>                                     {}
            <MI 21792  MOVE.W  (A6-0x28),D0>                                    {}
            <MI 21796  LSR.W   #0x8,D0>                                         {}
            <MI 21798  ANDI.W  #0x00ff,D0>                                      {}
            <MI 2179c  MOVE.W  D0,(A0)>                                         {}
            <MI 2179e  MOVEA.L (A6+0x8),A0>                                     {}
            <MI 217a2  MOVE.W  (A6-0x26),(A0)>                                  {}
            <MI 217a6  ANDI.W  #0x00ff,(A0)>                                    {}
        <POP 217aa-217b2 Epilogue>                           Σ0         

0x217b2


@ 217b2
        <LVAR  0x014 2(r)>
        <LVAR  0x012 2(r)>
        <LVAR  0x010 2(r)>
        <LVAR  0x00c 4(r)>
        <LVAR  0x008 4(r)>
        <LVAR -0x00a 2(r)>
        <LVAR -0x012 @>
    <POP 217b2-21816 Body>                                              
        <POP 217b2-217c8 Prologue>                           Σ0         ↓
        <POP 217c8-217cc RegCacheLoad>                       Σ0         ↓
        <POP 217cc-217e2 Naked>                              Σ0         ↓
            <MI 217cc  MOVE.W  (A6+0x14),-(A7)>              Δ-2                {[2, '(A6+0x14)']}
            <Call 0x217ce 0x21568>                                              {[2, '(A6+0x14)']}
            <MI 217d2  MOVE.W  (A6+0x14),(A7)>                                  {[2, '(A6+0x14)']}
            <MI 217d4  MOVE.W  (A6+0x12),-(A7)>              Δ-2                {[2, '(A6+0x14)']|[2, '(A6+0x12)']}
            <MI 217d8  MOVE.W  (A6+0x10),-(A7)>              Δ-2                {[2, '(A6+0x14)']|[2, '(A6+0x12)']|[2, '(A6+0x10)']}
            <Call 0x217dc 0x2161c>                                              {[2, '(A6+0x14)']|[2, '(A6+0x12)']|[2, '(A6+0x10)']}
            <POP 217e0-217e2 StackAdj>                       Δ+6                {}
        <POP 217e2-217f8 Naked>                              Σ0         ↓ →0x217e2 ←0x217e2
            <MI 217e2  MOVE.W  (A6+0x14),-(A7)>              Δ-2                {[2, '(A6+0x14)']}
            <Pointer.fp 0x217e4 <LVAR -0x012 @>>             Δ-4                {[2, '(A6+0x14)']|[@@-18]}
            <Call 0x217e8 0x214b4>                                              {[2, '(A6+0x14)']|[@@-18]}
            <POP 217ec-217ee StackAdj>                       Δ+6                {}
            <MI 217ee  MOVE.W  (A6-0xa),D0>                                     {}
            <MI 217f2  ANDI.W  #0x0080,D0>                                      {}
            <MI 217f6  BNE     0x217e2>                                         {}
        <POP 217f8-2180e Naked>                              Σ0         ↓
            <MI 217f8  MOVE.W  (A6+0x14),-(A7)>              Δ-2                {[2, '(A6+0x14)']}
            <MI 217fa  MOVEA.L (A6+0xc),A0>                                     {[2, '(A6+0x14)']}
            <MI 217fe  PEA.L   (A0)>                         Δ-4                {[2, '(A6+0x14)']|[4, '^(A0)']}
            <MI 21800  MOVEA.L (A6+0x8),A0>                                     {[2, '(A6+0x14)']|[4, '^(A0)']}
            <MI 21804  PEA.L   (A0)>                         Δ-4                {[2, '(A6+0x14)']|[4, '^(A0)']|[4, '^(A0)']}
            <Call 0x21806 0x216cc>                                              {[2, '(A6+0x14)']|[4, '^(A0)']|[4, '^(A0)']}
            <POP 2180a-2180e StackAdj>                       Δ+10               {}
        <POP 2180e-21816 Epilogue>                           Σ0         

0x21816


@ 21816
        <LVAR  0x008 4(r)>
        <LVAR -0x016 @ 2(r)>
        <LVAR -0x01a 2(r)>
        <LVAR -0x01c 2(w)>
        <LVAR -0x022 2(w)>
        <LVAR -0x026 @>
        <LVAR -0x028 @>
    <POP 21816-218de Body>                                              
        <POP 21816-2182c Prologue>                           Σ0         ↓
        <POP 2182c-21836 RegCacheLoad>                       Σ0         ↓
        <POP 21836-2183e Naked>                              Σ0         ↓
            <MI 21836  MOVE.W  #0x03,(A6-0x22)>                                 {}
            <MI 2183a  CLR.W   (A6-0x1a)>                                       {}
        <POP 2183e-218a8 Naked>                              Σ0         ↓ →0x218d0 ←0x218d0
            <MI 2183e  MOVEA.L (A6+0x8),A0>                                     {}
            <Blob 0x21842 [24] @>                            Δ-24               {[«24""»]}
            <POP 2184e-21850 StackAdj>                       Δ-8                {[«24""»]|[-8-]}
            <Lit 0x21850 24>                                                    {[«24""»]|[-4-]|[$$Enter STU unit number :_]}
            <Const 0x21860 0x0.4>                            Δ-4                {[«24""»]|[-4-]|[$$Enter STU unit number :_]|[##0]}
            <Const 0x21864 0x3.4>                            Δ-4                {[«24""»]|[-4-]|[$$Enter STU unit number :_]|[##0]|[##3]}
            <Call 0x21868 0x103ec>                                              {[«24""»]|[-4-]|[$$Enter STU unit number :_]|[##0]|[##3]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 2186e-21872 StackAdj>                       Δ+12               {[«24""»]|[-4-]}
            <MI 21872  MOVE.L  (A7)+,D0>                     Δ+4                {[«24""»]}
            <POP 0x21874 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {[«24""»]}
            <POP 2187a-2187c StackAdj>                       Δ+24               {}
            <MI 2187c  MOVE.W  D0,(A0)>                                         {}
            <MI 2187e  ASL.W   #0x8,D0>                                         {}
            <MI 21880  MOVE.W  D0,(A6-0x1c)>                                    {}
            <Pointer.fp 0x21884 <LVAR -0x026 @>>             Δ-4                {[@@-38]}
            <MI 21888  LEA.L   (A6-0x16),A0>                                    {[@@-38]}
            <MI 2188a  MOVE.L  A0,-(A7)>                     Δ-4                {[@@-38]|[4, 'A0']}
            <Const 0x2188c 0x1.2>                            Δ-2                {[@@-38]|[4, 'A0']|[#1]}
            <Call 0x2188e 0x10204>                                              {[@@-38]|[4, 'A0']|[#1]}
                KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 
            <POP 21894-21896 StackAdj>                       Δ+8                {[-2-]}
            <POP 21896-21897 StackAdj>                       Δ+2                {}
            <Const 0x21897 0x1.2>                            Δ-2                {[#1]}
            <Pointer.fp 0x21898 <LVAR -0x028 @>>             Δ-4                {[#1]|[@@-40]}
            <Call 0x2189c 0x10206>                                              {[#1]|[@@-40]}
                KC03_Wait_Disk_IO(a : W; VAR status : Byte)
            <POP 218a2-218a4 StackAdj>                       Δ+6                {}
            <MI 218a4  TST.W   (A6-0x16)>                                       {}
            <MI 218a6  BNE     0x218d0>                                         {}
        <POP 218a8-218d0 Naked>                              Σ0         ↓
            <Blob 0x218a8 [20] @>                            Δ-20               {[«20""»]}
            <POP 218b4-218b6 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Lit 0x218b6 20>                                                    {[«20""»]|[$$Unit does not exist.]}
            <Call 0x218c8 0x103e0>                                              {[«20""»]|[$$Unit does not exist.]}
                WriteConsoleStringCrLf(str : String)
            <POP 218ce-218d0 StackAdj>                       Δ+24               {}
        <POP 218d0-218d6 Naked>                              Σ0         ↓ →0x2183e ←0x2183e
            <MI 218d0  TST.W   (A6-0x16)>                                       {}
            <MI 218d2  BEQ     0x2183e>                                         {}
        <POP 218d6-218de Epilogue>                           Σ0         

0x218de


@ 218de
        <LVAR  0x008 2(r)>
    <POP 218de-222d0 Body>                                   Δ+1630     
        <POP 218de-218f4 Prologue>                           Σ0         ↓
        <POP 218f4-21908 RegCacheLoad>                       Σ0         ↓
        <POP 21908-21914 Naked>                              Σ0         ↓ →0x22278
            <MI 21908  MOVE.W  (A6+0x8),D0>                                     {}
            <MI 2190c  CMPI.W  #0x0099,D0>                                      {}
            <MI 21910  BHI     0x22278>                                         {}
        <POP 21914-2191e Naked>                              Σ0         →0x21a52 →0x21a7a →0x21aa2 →0x21ac8 →0x21ae8 →0x21b10 →0x21b2a →0x21b42 →0x21b54 →0x21b76 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x21b94 →0x21ba4 →0x21bb8 →0x21bcc →0x21bf4 →0x21c04 →0x21c30 →0x21c56 →0x21c6a →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x21c7e →0x21c92 →0x21cbe →0x21cce →0x21cde →0x21cee →0x21d0e →0x21d2e →0x21d42 →0x21d68 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x21d7c →0x21da8 →0x21dbc →0x21dd0 →0x21de4 →0x21df8 →0x21e0c →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x21e20 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x21e30 →0x21e44 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x21e58 →0x21e7e →0x21ea4 →0x21ec6 →0x21eda →0x21eee →0x21f02 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x21f24 →0x21f34 →0x21f50 →0x21f60 →0x21f8c →0x21fb2 →0x21fde →0x21ff8 →0x22014 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22024 →0x22038 →0x2204c →0x22066 →0x22076 →0x22086 →0x2209a →0x220ae →0x220c2 →0x220d0 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x220e6 →0x220fa →0x2210a →0x22120 →0x22134 →0x22144 →0x22154 →0x22164 →0x22278 →0x22178 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x2218c →0x2219c →0x221ac →0x221d8 →0x221e8 →0x221f8 →0x22222 →0x22236 →0x22252 →0x22262
            <MI 21914  ADD.W   D0,D0>                                           {}
            <MI 21916  SWITCH  D0.W>                                            {}
        <POP 21a52-21a62 Naked>                              Σ0 Δ-16    ↓ ←0x21914
            <Blob 0x21a52 [16] @>                            Δ-16               {[«16""»]}
        <POP 21a62-21a6e Naked>                              Σ-16 Δ-12  ↓ ←0x21ba4 ←0x21bb8 ←0x21d2e ←0x21d68 ←0x21da8 ←0x21eee
            <POP 21a62-21a64 StackAdj>                       Δ-4                {[-20-]}
            <Pointer.sp 0x21a64 4>                           Δ-4                {[-20-]|[^^4]}
            <Const 0x21a68 0x1.2>                            Δ-2                {[-20-]|[^^4]|[#1]}
            <Const 0x21a6a 0xf.2>                            Δ-2                {[-20-]|[^^4]|[#1]|[#15]}
        <POP 21a6e-21a7a Naked>                              Σ-28 Δ+28  →0x22296 ←0x21b86
            <Call 0x21a6e 0x102c4>                                              {[-28-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 21a70-21a72 StackAdj>                       Δ+8                {[-20-]}
            <MI 21a72  MOVEA.L (A7)+,A4>                     Δ+4                {[-16-]}
            <POP 21a74-21a76 StackAdj>                       Δ+16               {}
            <MI 21a76  BRA     0x22296>                                         {}
        <POP 21a7a-21a8a Naked>                              Σ0 Δ-20    ↓ ←0x21914
            <Blob 0x21a7a [20] @>                            Δ-20               {[«20""»]}
        <POP 21a8a-21a96 Naked>                              Σ-20 Δ-12  ↓ ←0x21c56 ←0x21c6a ←0x21dd0 ←0x21e44
            <POP 21a8a-21a8c StackAdj>                       Δ-4                {[-24-]}
            <Pointer.sp 0x21a8c 4>                           Δ-4                {[-24-]|[^^4]}
            <Const 0x21a90 0x1.2>                            Δ-2                {[-24-]|[^^4]|[#1]}
            <Const 0x21a92 0x13.2>                           Δ-2                {[-24-]|[^^4]|[#1]|[#19]}
        <POP 21a96-21aa2 Naked>                              Σ-32 Δ+32  →0x22296 ←0x21b1c
            <Call 0x21a96 0x102c4>                                              {[-32-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 21a98-21a9a StackAdj>                       Δ+8                {[-24-]}
            <MI 21a9a  MOVEA.L (A7)+,A4>                     Δ+4                {[-20-]}
            <POP 21a9c-21a9e StackAdj>                       Δ+20               {}
            <MI 21a9e  BRA     0x22296>                                         {}
        <POP 21aa2-21aae Naked>                              Σ0 Δ-30    ↓ ←0x21914
            <Blob 0x21aa2 [30] @>                            Δ-30               {[«30""»]}
        <POP 21aae-21aba Naked>                              Σ-30 Δ-12  ↓ ←0x21cce
            <POP 21aae-21ab0 StackAdj>                       Δ-4                {[-34-]}
            <Pointer.sp 0x21ab0 4>                           Δ-4                {[-34-]|[^^4]}
            <Const 0x21ab4 0x1.2>                            Δ-2                {[-34-]|[^^4]|[#1]}
            <Const 0x21ab6 0x1e.2>                           Δ-2                {[-34-]|[^^4]|[#1]|[#30]}
        <POP 21aba-21ac8 Naked>                              Σ-42 Δ+42  →0x22296 ←0x21f02
            <Call 0x21aba 0x102c4>                                              {[-42-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 21abc-21abe StackAdj>                       Δ+8                {[-34-]}
            <MI 21abe  MOVEA.L (A7)+,A4>                     Δ+4                {[-30-]}
            <POP 21ac0-21ac4 StackAdj>                       Δ+30               {}
            <MI 21ac4  BRA     0x22296>                                         {}
        <POP 21ac8-21ae8 Naked>                              Σ0         →0x22296 ←0x21914
            <Blob 0x21ac8 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21acc [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <POP 21ad0-21ad2 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[-4-]}
            <Lit 0x21ad2 8>                                                     {[«4""»]|[«4""»]|[$$Id fault]}
            <MI 21ae0  MOVEA.L (A7)+,A4>                     Δ+4                {[«4""»]|[«4""»]}
            <POP 21ae2-21ae4 StackAdj>                       Δ+8                {}
            <MI 21ae4  BRA     0x22296>                                         {}
        <POP 21ae8-21af8 Naked>                              Σ0 Δ-22    ↓ ←0x21914
            <Blob 0x21ae8 [22] @>                            Δ-22               {[«22""»]}
        <POP 21af8-21b04 Naked>                              Σ-22 Δ-12  ↓ ←0x21b42 ←0x21de4 ←0x22024 ←0x22164 ←0x22178
            <POP 21af8-21afa StackAdj>                       Δ-4                {[-26-]}
            <Pointer.sp 0x21afa 4>                           Δ-4                {[-26-]|[^^4]}
            <Const 0x21afe 0x1.2>                            Δ-2                {[-26-]|[^^4]|[#1]}
            <Const 0x21b00 0x15.2>                           Δ-2                {[-26-]|[^^4]|[#1]|[#21]}
        <POP 21b04-21b10 Naked>                              Σ-34 Δ+34  →0x22296 ←0x21b36
            <Call 0x21b04 0x102c4>                                              {[-34-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 21b06-21b08 StackAdj>                       Δ+8                {[-26-]}
            <MI 21b08  MOVEA.L (A7)+,A4>                     Δ+4                {[-22-]}
            <POP 21b0a-21b0c StackAdj>                       Δ+22               {}
            <MI 21b0c  BRA     0x22296>                                         {}
        <POP 21b10-21b1c Naked>                              Σ0 Δ-20    ↓ ←0x21914
            <Blob 0x21b10 [20] @>                            Δ-20               {[«20""»]}
        <POP 21b1c-21b2a Naked>                              Σ-20 Δ-12  →0x21a96 ←0x21e20
            <POP 21b1c-21b1e StackAdj>                       Δ-4                {[-24-]}
            <Pointer.sp 0x21b1e 4>                           Δ-4                {[-24-]|[^^4]}
            <Const 0x21b22 0x1.2>                            Δ-2                {[-24-]|[^^4]|[#1]}
            <Const 0x21b24 0x14.2>                           Δ-2                {[-24-]|[^^4]|[#1]|[#20]}
            <MI 21b26  BRA     0x21a96>                                         {[-24-]|[^^4]|[#1]|[#20]}
        <POP 21b2a-21b36 Naked>                              Σ0 Δ-22    ↓ ←0x21914
            <Blob 0x21b2a [22] @>                            Δ-22               {[«22""»]}
        <POP 21b36-21b42 Naked>                              Σ-22 Δ-12  →0x21b04 ←0x21cbe
            <POP 21b36-21b38 StackAdj>                       Δ-4                {[-26-]}
            <Pointer.sp 0x21b38 4>                           Δ-4                {[-26-]|[^^4]}
            <Const 0x21b3c 0x1.2>                            Δ-2                {[-26-]|[^^4]|[#1]}
            <Const 0x21b3e 0x16.2>                           Δ-2                {[-26-]|[^^4]|[#1]|[#22]}
            <MI 21b40  BRA     0x21b04>                                         {[-26-]|[^^4]|[#1]|[#22]}
        <POP 21b42-21b54 Naked>                              Σ0 Δ-22    →0x21af8 ←0x21914
            <Blob 0x21b42 [22] @>                            Δ-22               {[«22""»]}
            <MI 21b52  BRA     0x21af8>                                         {[«22""»]}
        <POP 21b54-21b6a Naked>                              Σ0 Δ-24    ↓ ←0x21914
            <Blob 0x21b54 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21b58 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x21b5c [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 21b60-21b62 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Pointer.sp 0x21b62 4>                           Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[^^4]}
            <Const 0x21b66 0x1.2>                            Δ-2                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[^^4]|[#1]}
            <Const 0x21b68 0xc.2>                            Δ-2                {[«4""»]|[«4""»]|[«4""»]|[-4-]|[^^4]|[#1]|[#12]}
        <POP 21b6a-21b76 Naked>                              Σ-24 Δ+24  →0x22296 ←0x21d1e
            <Call 0x21b6a 0x102c4>                                              {[-24-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 21b6c-21b6e StackAdj>                       Δ+8                {[-16-]}
            <MI 21b6e  MOVEA.L (A7)+,A4>                     Δ+4                {[-12-]}
            <POP 21b70-21b72 StackAdj>                       Δ+12               {}
            <MI 21b72  BRA     0x22296>                                         {}
        <POP 21b76-21b86 Naked>                              Σ0 Δ-16    ↓ ←0x21914
            <Blob 0x21b76 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21b7a [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x21b7e [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x21b82 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
        <POP 21b86-21b94 Naked>                              Σ-16 Δ-12  →0x21a6e ←0x21ec6 ←0x220ae ←0x22222
            <POP 21b86-21b88 StackAdj>                       Δ-4                {[-20-]}
            <Pointer.sp 0x21b88 4>                           Δ-4                {[-20-]|[^^4]}
            <Const 0x21b8c 0x1.2>                            Δ-2                {[-20-]|[^^4]|[#1]}
            <Const 0x21b8e 0x10.2>                           Δ-2                {[-20-]|[^^4]|[#1]|[#16]}
            <MI 21b90  BRA     0x21a6e>                                         {[-20-]|[^^4]|[#1]|[#16]}
        <POP 21b94-21ba4 Naked>                              Σ0 Δ-18    →0x22284 ←0x21914
            <Blob 0x21b94 [18] @>                            Δ-18               {[«18""»]}
            <MI 21ba0  BRA     0x22284>                                         {[«18""»]}
        <POP 21ba4-21bb8 Naked>                              Σ0 Δ-16    →0x21a62 ←0x21914
            <Blob 0x21ba4 [16] @>                            Δ-16               {[«16""»]}
            <MI 21bb4  BRA     0x21a62>                                         {[«16""»]}
        <POP 21bb8-21bcc Naked>                              Σ0 Δ-16    →0x21a62 ←0x21914
            <Blob 0x21bb8 [16] @>                            Δ-16               {[«16""»]}
            <MI 21bc8  BRA     0x21a62>                                         {[«16""»]}
        <POP 21bcc-21bdc Naked>                              Σ0 Δ-26    ↓ ←0x21914
            <Blob 0x21bcc [26] @>                            Δ-26               {[«26""»]}
        <POP 21bdc-21be8 Naked>                              Σ-26 Δ-12  ↓ ←0x21c7e ←0x21e30 ←0x21eda ←0x22120
            <POP 21bdc-21bde StackAdj>                       Δ-4                {[-30-]}
            <Pointer.sp 0x21bde 4>                           Δ-4                {[-30-]|[^^4]}
            <Const 0x21be2 0x1.2>                            Δ-2                {[-30-]|[^^4]|[#1]}
            <Const 0x21be4 0x19.2>                           Δ-2                {[-30-]|[^^4]|[#1]|[#25]}
        <POP 21be8-21bf4 Naked>                              Σ-38 Δ+38  →0x22296 ←0x22058
            <Call 0x21be8 0x102c4>                                              {[-38-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 21bea-21bec StackAdj>                       Δ+8                {[-30-]}
            <MI 21bec  MOVEA.L (A7)+,A4>                     Δ+4                {[-26-]}
            <POP 21bee-21bf0 StackAdj>                       Δ+26               {}
            <MI 21bf0  BRA     0x22296>                                         {}
        <POP 21bf4-21c04 Naked>                              Σ0 Δ-18    →0x22284 ←0x21914
            <Blob 0x21bf4 [18] @>                            Δ-18               {[«18""»]}
            <MI 21c00  BRA     0x22284>                                         {[«18""»]}
        <POP 21c04-21c22 Naked>                              Σ0 Δ-44    ↓ ←0x21914
            <Blob 0x21c04 [32] @>                            Δ-32               {[«32""»]}
            <POP 21c16-21c18 StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Pointer.sp 0x21c18 4>                           Δ-4                {[«32""»]|[-4-]|[^^4]}
            <Const 0x21c1c 0x1.2>                            Δ-2                {[«32""»]|[-4-]|[^^4]|[#1]}
            <Const 0x21c1e 0x1f.2>                           Δ-2                {[«32""»]|[-4-]|[^^4]|[#1]|[#31]}
        <POP 21c22-21c30 Naked>                              Σ-44 Δ+44  →0x22296 ←0x21f34
            <Call 0x21c22 0x102c4>                                              {[-44-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 21c24-21c26 StackAdj>                       Δ+8                {[-36-]}
            <MI 21c26  MOVEA.L (A7)+,A4>                     Δ+4                {[-32-]}
            <POP 21c28-21c2c StackAdj>                       Δ+32               {}
            <MI 21c2c  BRA     0x22296>                                         {}
        <POP 21c30-21c3c Naked>                              Σ0 Δ-34    ↓ ←0x21914
            <Blob 0x21c30 [34] @>                            Δ-34               {[«34""»]}
        <POP 21c3c-21c56 Naked>                              Σ-34 Δ+34  →0x22296 ←0x21f24 ←0x21f50 ←0x22066 ←0x22076
            <POP 21c3c-21c3e StackAdj>                       Δ-4                {[-38-]}
            <Lit 0x21c3e>                                                       {[-34-]|[$$…]}
                <Pointer.sp 0x21c3e 4>                       Δ-4        
                <Const 0x21c42 0x1.2>                        Δ-2        
                <Const 0x21c44 0x22.2>                       Δ-2        
                <Call 0x21c48 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21c4a-21c4c StackAdj>                   Δ+8        
            <MI 21c4c  MOVEA.L (A7)+,A4>                     Δ+4                {[-34-]}
            <POP 21c4e-21c52 StackAdj>                       Δ+34               {}
            <MI 21c52  BRA     0x22296>                                         {}
        <POP 21c56-21c6a Naked>                              Σ0 Δ-20    →0x21a8a ←0x21914
            <Blob 0x21c56 [20] @>                            Δ-20               {[«20""»]}
            <MI 21c66  BRA     0x21a8a>                                         {[«20""»]}
        <POP 21c6a-21c7e Naked>                              Σ0 Δ-20    →0x21a8a ←0x21914
            <Blob 0x21c6a [20] @>                            Δ-20               {[«20""»]}
            <MI 21c7a  BRA     0x21a8a>                                         {[«20""»]}
        <POP 21c7e-21c92 Naked>                              Σ0 Δ-26    →0x21bdc ←0x21914
            <Blob 0x21c7e [26] @>                            Δ-26               {[«26""»]}
            <MI 21c8e  BRA     0x21bdc>                                         {[«26""»]}
        <POP 21c92-21ca4 Naked>                              Σ0 Δ-28    ↓ ←0x21914
            <Blob 0x21c92 [28] @>                            Δ-28               {[«28""»]}
        <POP 21ca4-21cb0 Naked>                              Σ-28 Δ-12  ↓ ←0x220d0
            <POP 21ca4-21ca6 StackAdj>                       Δ-4                {[-32-]}
            <Pointer.sp 0x21ca6 4>                           Δ-4                {[-32-]|[^^4]}
            <Const 0x21caa 0x1.2>                            Δ-2                {[-32-]|[^^4]|[#1]}
            <Const 0x21cac 0x1b.2>                           Δ-2                {[-32-]|[^^4]|[#1]|[#27]}
        <POP 21cb0-21cbe Naked>                              Σ-40 Δ+40  →0x22296 ←0x22004
            <Call 0x21cb0 0x102c4>                                              {[-40-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 21cb2-21cb4 StackAdj>                       Δ+8                {[-32-]}
            <MI 21cb4  MOVEA.L (A7)+,A4>                     Δ+4                {[-28-]}
            <POP 21cb6-21cba StackAdj>                       Δ+28               {}
            <MI 21cba  BRA     0x22296>                                         {}
        <POP 21cbe-21cce Naked>                              Σ0 Δ-22    →0x21b36 ←0x21914
            <Blob 0x21cbe [22] @>                            Δ-22               {[«22""»]}
            <MI 21cca  BRA     0x21b36>                                         {[«22""»]}
        <POP 21cce-21cde Naked>                              Σ0 Δ-30    →0x21aae ←0x21914
            <Blob 0x21cce [30] @>                            Δ-30               {[«30""»]}
            <MI 21cda  BRA     0x21aae>                                         {[«30""»]}
        <POP 21cde-21cee Naked>                              Σ0 Δ-18    →0x22284 ←0x21914
            <Blob 0x21cde [18] @>                            Δ-18               {[«18""»]}
            <MI 21cea  BRA     0x22284>                                         {[«18""»]}
        <POP 21cee-21cfe Naked>                              Σ0 Δ-18    ↓ ←0x21914
            <Blob 0x21cee [18] @>                            Δ-18               {[«18""»]}
        <POP 21cfe-21d0e Naked>                              Σ-18 Δ-12  →0x2228e ←0x21dbc ←0x21df8 ←0x22038 ←0x22086 ←0x2209a ←0x220e6
            <POP 21cfe-21d00 StackAdj>                       Δ-4                {[-22-]}
            <Pointer.sp 0x21d00 4>                           Δ-4                {[-22-]|[^^4]}
            <Const 0x21d04 0x1.2>                            Δ-2                {[-22-]|[^^4]|[#1]}
            <Const 0x21d06 0x11.2>                           Δ-2                {[-22-]|[^^4]|[#1]|[#17]}
            <MI 21d0a  BRA     0x2228e>                                         {[-22-]|[^^4]|[#1]|[#17]}
        <POP 21d0e-21d1e Naked>                              Σ0 Δ-12    ↓ ←0x21914
            <Blob 0x21d0e [12] @>                            Δ-12               {[«12""»]}
        <POP 21d1e-21d2e Naked>                              Σ-12 Δ-12  →0x21b6a ←0x21e0c
            <POP 21d1e-21d20 StackAdj>                       Δ-4                {[-16-]}
            <Pointer.sp 0x21d20 4>                           Δ-4                {[-16-]|[^^4]}
            <Const 0x21d24 0x1.2>                            Δ-2                {[-16-]|[^^4]|[#1]}
            <Const 0x21d26 0xb.2>                            Δ-2                {[-16-]|[^^4]|[#1]|[#11]}
            <MI 21d2a  BRA     0x21b6a>                                         {[-16-]|[^^4]|[#1]|[#11]}
        <POP 21d2e-21d42 Naked>                              Σ0 Δ-16    →0x21a62 ←0x21914
            <Blob 0x21d2e [16] @>                            Δ-16               {[«16""»]}
            <MI 21d3e  BRA     0x21a62>                                         {[«16""»]}
        <POP 21d42-21d4e Naked>                              Σ0 Δ-24    ↓ ←0x21914
            <Blob 0x21d42 [24] @>                            Δ-24               {[«24""»]}
        <POP 21d4e-21d5a Naked>                              Σ-24 Δ-12  ↓ ←0x22014 ←0x22134 ←0x22154 ←0x2218c ←0x22252
            <POP 21d4e-21d50 StackAdj>                       Δ-4                {[-28-]}
            <Pointer.sp 0x21d50 4>                           Δ-4                {[-28-]|[^^4]}
            <Const 0x21d54 0x1.2>                            Δ-2                {[-28-]|[^^4]|[#1]}
            <Const 0x21d56 0x18.2>                           Δ-2                {[-28-]|[^^4]|[#1]|[#24]}
        <POP 21d5a-21d68 Naked>                              Σ-36 Δ+36  →0x22296 ←0x21eb6
            <Call 0x21d5a 0x102c4>                                              {[-36-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 21d5c-21d5e StackAdj>                       Δ+8                {[-28-]}
            <MI 21d5e  MOVEA.L (A7)+,A4>                     Δ+4                {[-24-]}
            <POP 21d60-21d64 StackAdj>                       Δ+24               {}
            <MI 21d64  BRA     0x22296>                                         {}
        <POP 21d68-21d7c Naked>                              Σ0 Δ-16    →0x21a62 ←0x21914
            <Blob 0x21d68 [16] @>                            Δ-16               {[«16""»]}
            <MI 21d78  BRA     0x21a62>                                         {[«16""»]}
        <POP 21d7c-21da8 Naked>                              Σ0         →0x22296 ←0x21914
            <Blob 0x21d7c [14] @>                            Δ-14               {[«14""»]}
            <POP 21d8e-21d90 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x21d90 13>                                                    {[«14""»]|[$$Up ramp fault]}
            <MI 21d9e  MOVEA.L (A7)+,A4>                     Δ+4                {[«14""»]}
            <POP 21da0-21da4 StackAdj>                       Δ+14               {}
            <MI 21da4  BRA     0x22296>                                         {}
        <POP 21da8-21dbc Naked>                              Σ0 Δ-16    →0x21a62 ←0x21914
            <Blob 0x21da8 [16] @>                            Δ-16               {[«16""»]}
            <MI 21db8  BRA     0x21a62>                                         {[«16""»]}
        <POP 21dbc-21dd0 Naked>                              Σ0 Δ-18    →0x21cfe ←0x21914
            <Blob 0x21dbc [18] @>                            Δ-18               {[«18""»]}
            <MI 21dcc  BRA     0x21cfe>                                         {[«18""»]}
        <POP 21dd0-21de4 Naked>                              Σ0 Δ-20    →0x21a8a ←0x21914
            <Blob 0x21dd0 [20] @>                            Δ-20               {[«20""»]}
            <MI 21de0  BRA     0x21a8a>                                         {[«20""»]}
        <POP 21de4-21df8 Naked>                              Σ0 Δ-22    →0x21af8 ←0x21914
            <Blob 0x21de4 [22] @>                            Δ-22               {[«22""»]}
            <MI 21df4  BRA     0x21af8>                                         {[«22""»]}
        <POP 21df8-21e0c Naked>                              Σ0 Δ-18    →0x21cfe ←0x21914
            <Blob 0x21df8 [18] @>                            Δ-18               {[«18""»]}
            <MI 21e08  BRA     0x21cfe>                                         {[«18""»]}
        <POP 21e0c-21e20 Naked>                              Σ0 Δ-12    →0x21d1e ←0x21914
            <Blob 0x21e0c [12] @>                            Δ-12               {[«12""»]}
            <MI 21e1c  BRA     0x21d1e>                                         {[«12""»]}
        <POP 21e20-21e30 Naked>                              Σ0 Δ-20    →0x21b1c ←0x21914
            <Blob 0x21e20 [20] @>                            Δ-20               {[«20""»]}
            <MI 21e2c  BRA     0x21b1c>                                         {[«20""»]}
        <POP 21e30-21e44 Naked>                              Σ0 Δ-26    →0x21bdc ←0x21914
            <Blob 0x21e30 [26] @>                            Δ-26               {[«26""»]}
            <MI 21e40  BRA     0x21bdc>                                         {[«26""»]}
        <POP 21e44-21e58 Naked>                              Σ0 Δ-20    →0x21a8a ←0x21914
            <Blob 0x21e44 [20] @>                            Δ-20               {[«20""»]}
            <MI 21e54  BRA     0x21a8a>                                         {[«20""»]}
        <POP 21e58-21e7e Naked>                              Σ0         →0x22296 ←0x21914
            <Blob 0x21e58 [38] @>                            Δ-38               {[«38""»]}
            <POP 21e64-21e66 StackAdj>                       Δ-4                {[«38""»]|[-4-]}
            <Lit 0x21e66 38>                                                    {[«38""»]|[$$Irrecoverable device healthcheck fault]}
            <MI 21e74  MOVEA.L (A7)+,A4>                     Δ+4                {[«38""»]}
            <POP 21e76-21e7a StackAdj>                       Δ+38               {}
            <MI 21e7a  BRA     0x22296>                                         {}
        <POP 21e7e-21ea4 Naked>                              Σ0         →0x22296 ←0x21914
            <Blob 0x21e7e [36] @>                            Δ-36               {[«36""»]}
            <POP 21e8a-21e8c StackAdj>                       Δ-4                {[«36""»]|[-4-]}
            <Lit 0x21e8c 36>                                                    {[«36""»]|[$$Recoverable device healthcheck fault]}
            <MI 21e9a  MOVEA.L (A7)+,A4>                     Δ+4                {[«36""»]}
            <POP 21e9c-21ea0 StackAdj>                       Δ+36               {}
            <MI 21ea0  BRA     0x22296>                                         {}
        <POP 21ea4-21eb6 Naked>                              Σ0 Δ-24    ↓ ←0x21914
            <Blob 0x21ea4 [24] @>                            Δ-24               {[«24""»]}
        <POP 21eb6-21ec6 Naked>                              Σ-24 Δ-12  →0x21d5a ←0x2210a ←0x22262
            <POP 21eb6-21eb8 StackAdj>                       Δ-4                {[-28-]}
            <Pointer.sp 0x21eb8 4>                           Δ-4                {[-28-]|[^^4]}
            <Const 0x21ebc 0x1.2>                            Δ-2                {[-28-]|[^^4]|[#1]}
            <Const 0x21ebe 0x17.2>                           Δ-2                {[-28-]|[^^4]|[#1]|[#23]}
            <MI 21ec2  BRA     0x21d5a>                                         {[-28-]|[^^4]|[#1]|[#23]}
        <POP 21ec6-21eda Naked>                              Σ0 Δ-16    →0x21b86 ←0x21914
            <Blob 0x21ec6 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x21eca [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x21ece [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x21ed2 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 21ed6  BRA     0x21b86>                                         {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
        <POP 21eda-21eee Naked>                              Σ0 Δ-26    →0x21bdc ←0x21914
            <Blob 0x21eda [26] @>                            Δ-26               {[«26""»]}
            <MI 21eea  BRA     0x21bdc>                                         {[«26""»]}
        <POP 21eee-21f02 Naked>                              Σ0 Δ-16    →0x21a62 ←0x21914
            <Blob 0x21eee [16] @>                            Δ-16               {[«16""»]}
            <MI 21efe  BRA     0x21a62>                                         {[«16""»]}
        <POP 21f02-21f24 Naked>                              Σ0 Δ-42    →0x21aba ←0x21914
            <Blob 0x21f02 [30] @>                            Δ-30               {[«30""»]}
            <POP 21f14-21f16 StackAdj>                       Δ-4                {[«30""»]|[-4-]}
            <Pointer.sp 0x21f16 4>                           Δ-4                {[«30""»]|[-4-]|[^^4]}
            <Const 0x21f1a 0x1.2>                            Δ-2                {[«30""»]|[-4-]|[^^4]|[#1]}
            <Const 0x21f1c 0x1d.2>                           Δ-2                {[«30""»]|[-4-]|[^^4]|[#1]|[#29]}
            <MI 21f20  BRA     0x21aba>                                         {[«30""»]|[-4-]|[^^4]|[#1]|[#29]}
        <POP 21f24-21f34 Naked>                              Σ0 Δ-34    →0x21c3c ←0x21914
            <Blob 0x21f24 [34] @>                            Δ-34               {[«34""»]}
            <MI 21f30  BRA     0x21c3c>                                         {[«34""»]}
        <POP 21f34-21f50 Naked>                              Σ0 Δ-44    →0x21c22 ←0x21914
            <Blob 0x21f34 [32] @>                            Δ-32               {[«32""»]}
            <POP 21f40-21f42 StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Pointer.sp 0x21f42 4>                           Δ-4                {[«32""»]|[-4-]|[^^4]}
            <Const 0x21f46 0x1.2>                            Δ-2                {[«32""»]|[-4-]|[^^4]|[#1]}
            <Const 0x21f48 0x20.2>                           Δ-2                {[«32""»]|[-4-]|[^^4]|[#1]|[#32]}
            <MI 21f4c  BRA     0x21c22>                                         {[«32""»]|[-4-]|[^^4]|[#1]|[#32]}
        <POP 21f50-21f60 Naked>                              Σ0 Δ-34    →0x21c3c ←0x21914
            <Blob 0x21f50 [34] @>                            Δ-34               {[«34""»]}
            <MI 21f5c  BRA     0x21c3c>                                         {[«34""»]}
        <POP 21f60-21f7e Naked>                              Σ0 Δ-56    ↓ ←0x21914
            <Blob 0x21f60 [44] @>                            Δ-44               {[«44""»]}
            <POP 21f72-21f74 StackAdj>                       Δ-4                {[«44""»]|[-4-]}
            <Pointer.sp 0x21f74 4>                           Δ-4                {[«44""»]|[-4-]|[^^4]}
            <Const 0x21f78 0x1.2>                            Δ-2                {[«44""»]|[-4-]|[^^4]|[#1]}
            <Const 0x21f7a 0x2b.2>                           Δ-2                {[«44""»]|[-4-]|[^^4]|[#1]|[#43]}
        <POP 21f7e-21f8c Naked>                              Σ-56 Δ+56  →0x22296 ←0x22236
            <Call 0x21f7e 0x102c4>                                              {[-56-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 21f80-21f82 StackAdj>                       Δ+8                {[-48-]}
            <MI 21f82  MOVEA.L (A7)+,A4>                     Δ+4                {[-44-]}
            <POP 21f84-21f88 StackAdj>                       Δ+44               {}
            <MI 21f88  BRA     0x22296>                                         {}
        <POP 21f8c-21f98 Naked>                              Σ0 Δ-50    ↓ ←0x21914
            <Blob 0x21f8c [50] @>                            Δ-50               {[«50""»]}
        <POP 21f98-21fb2 Naked>                              Σ-50 Δ+50  →0x22296 ←0x221d8
            <POP 21f98-21f9a StackAdj>                       Δ-4                {[-54-]}
            <Lit 0x21f9a>                                                       {[-50-]|[$$…]}
                <Pointer.sp 0x21f9a 4>                       Δ-4        
                <Const 0x21f9e 0x1.2>                        Δ-2        
                <Const 0x21fa0 0x32.2>                       Δ-2        
                <Call 0x21fa4 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21fa6-21fa8 StackAdj>                   Δ+8        
            <MI 21fa8  MOVEA.L (A7)+,A4>                     Δ+4                {[-50-]}
            <POP 21faa-21fae StackAdj>                       Δ+50               {}
            <MI 21fae  BRA     0x22296>                                         {}
        <POP 21fb2-21fd0 Naked>                              Σ0 Δ-52    ↓ ←0x21914
            <Blob 0x21fb2 [40] @>                            Δ-40               {[«40""»]}
            <POP 21fc4-21fc6 StackAdj>                       Δ-4                {[«40""»]|[-4-]}
            <Pointer.sp 0x21fc6 4>                           Δ-4                {[«40""»]|[-4-]|[^^4]}
            <Const 0x21fca 0x1.2>                            Δ-2                {[«40""»]|[-4-]|[^^4]|[#1]}
            <Const 0x21fcc 0x27.2>                           Δ-2                {[«40""»]|[-4-]|[^^4]|[#1]|[#39]}
        <POP 21fd0-21fde Naked>                              Σ-52 Δ+52  →0x22296 ←0x21fde
            <Call 0x21fd0 0x102c4>                                              {[-52-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 21fd2-21fd4 StackAdj>                       Δ+8                {[-44-]}
            <MI 21fd4  MOVEA.L (A7)+,A4>                     Δ+4                {[-40-]}
            <POP 21fd6-21fda StackAdj>                       Δ+40               {}
            <MI 21fda  BRA     0x22296>                                         {}
        <POP 21fde-21ff8 Naked>                              Σ0 Δ-52    →0x21fd0 ←0x21914
            <Blob 0x21fde [40] @>                            Δ-40               {[«40""»]}
            <POP 21fea-21fec StackAdj>                       Δ-4                {[«40""»]|[-4-]}
            <Pointer.sp 0x21fec 4>                           Δ-4                {[«40""»]|[-4-]|[^^4]}
            <Const 0x21ff0 0x1.2>                            Δ-2                {[«40""»]|[-4-]|[^^4]|[#1]}
            <Const 0x21ff2 0x28.2>                           Δ-2                {[«40""»]|[-4-]|[^^4]|[#1]|[#40]}
            <MI 21ff6  BRA     0x21fd0>                                         {[«40""»]|[-4-]|[^^4]|[#1]|[#40]}
        <POP 21ff8-22004 Naked>                              Σ0 Δ-28    ↓ ←0x21914
            <Blob 0x21ff8 [28] @>                            Δ-28               {[«28""»]}
        <POP 22004-22014 Naked>                              Σ-28 Δ-12  →0x21cb0 ←0x22144
            <POP 22004-22006 StackAdj>                       Δ-4                {[-32-]}
            <Pointer.sp 0x22006 4>                           Δ-4                {[-32-]|[^^4]}
            <Const 0x2200a 0x1.2>                            Δ-2                {[-32-]|[^^4]|[#1]}
            <Const 0x2200c 0x1c.2>                           Δ-2                {[-32-]|[^^4]|[#1]|[#28]}
            <MI 22010  BRA     0x21cb0>                                         {[-32-]|[^^4]|[#1]|[#28]}
        <POP 22014-22024 Naked>                              Σ0 Δ-24    →0x21d4e ←0x21914
            <Blob 0x22014 [24] @>                            Δ-24               {[«24""»]}
            <MI 22020  BRA     0x21d4e>                                         {[«24""»]}
        <POP 22024-22038 Naked>                              Σ0 Δ-22    →0x21af8 ←0x21914
            <Blob 0x22024 [22] @>                            Δ-22               {[«22""»]}
            <MI 22034  BRA     0x21af8>                                         {[«22""»]}
        <POP 22038-2204c Naked>                              Σ0 Δ-18    →0x21cfe ←0x21914
            <Blob 0x22038 [18] @>                            Δ-18               {[«18""»]}
            <MI 22048  BRA     0x21cfe>                                         {[«18""»]}
        <POP 2204c-22058 Naked>                              Σ0 Δ-26    ↓ ←0x21914
            <Blob 0x2204c [26] @>                            Δ-26               {[«26""»]}
        <POP 22058-22066 Naked>                              Σ-26 Δ-12  →0x21be8 ←0x220c2
            <POP 22058-2205a StackAdj>                       Δ-4                {[-30-]}
            <Pointer.sp 0x2205a 4>                           Δ-4                {[-30-]|[^^4]}
            <Const 0x2205e 0x1.2>                            Δ-2                {[-30-]|[^^4]|[#1]}
            <Const 0x22060 0x1a.2>                           Δ-2                {[-30-]|[^^4]|[#1]|[#26]}
            <MI 22062  BRA     0x21be8>                                         {[-30-]|[^^4]|[#1]|[#26]}
        <POP 22066-22076 Naked>                              Σ0 Δ-34    →0x21c3c ←0x21914
            <Blob 0x22066 [34] @>                            Δ-34               {[«34""»]}
            <MI 22072  BRA     0x21c3c>                                         {[«34""»]}
        <POP 22076-22086 Naked>                              Σ0 Δ-34    →0x21c3c ←0x21914
            <Blob 0x22076 [34] @>                            Δ-34               {[«34""»]}
            <MI 22082  BRA     0x21c3c>                                         {[«34""»]}
        <POP 22086-2209a Naked>                              Σ0 Δ-18    →0x21cfe ←0x21914
            <Blob 0x22086 [18] @>                            Δ-18               {[«18""»]}
            <MI 22096  BRA     0x21cfe>                                         {[«18""»]}
        <POP 2209a-220ae Naked>                              Σ0 Δ-18    →0x21cfe ←0x21914
            <Blob 0x2209a [18] @>                            Δ-18               {[«18""»]}
            <MI 220aa  BRA     0x21cfe>                                         {[«18""»]}
        <POP 220ae-220c2 Naked>                              Σ0 Δ-16    →0x21b86 ←0x21914
            <Blob 0x220ae [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x220b2 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x220b6 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x220ba [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 220be  BRA     0x21b86>                                         {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
        <POP 220c2-220d0 Naked>                              Σ0 Δ-26    →0x22058 ←0x21914
            <Blob 0x220c2 [26] @>                            Δ-26               {[«26""»]}
            <MI 220ce  BRA     0x22058>                                         {[«26""»]}
        <POP 220d0-220e6 Naked>                              Σ0 Δ-28    →0x21ca4 ←0x21914
            <Blob 0x220d0 [28] @>                            Δ-28               {[«28""»]}
            <MI 220e2  BRA     0x21ca4>                                         {[«28""»]}
        <POP 220e6-220fa Naked>                              Σ0 Δ-18    →0x21cfe ←0x21914
            <Blob 0x220e6 [18] @>                            Δ-18               {[«18""»]}
            <MI 220f6  BRA     0x21cfe>                                         {[«18""»]}
        <POP 220fa-2210a Naked>                              Σ0 Δ-18    →0x22284 ←0x21914
            <Blob 0x220fa [18] @>                            Δ-18               {[«18""»]}
            <MI 22106  BRA     0x22284>                                         {[«18""»]}
        <POP 2210a-22120 Naked>                              Σ0 Δ-24    →0x21eb6 ←0x21914
            <Blob 0x2210a [24] @>                            Δ-24               {[«24""»]}
            <MI 2211c  BRA     0x21eb6>                                         {[«24""»]}
        <POP 22120-22134 Naked>                              Σ0 Δ-26    →0x21bdc ←0x21914
            <Blob 0x22120 [26] @>                            Δ-26               {[«26""»]}
            <MI 22130  BRA     0x21bdc>                                         {[«26""»]}
        <POP 22134-22144 Naked>                              Σ0 Δ-24    →0x21d4e ←0x21914
            <Blob 0x22134 [24] @>                            Δ-24               {[«24""»]}
            <MI 22140  BRA     0x21d4e>                                         {[«24""»]}
        <POP 22144-22154 Naked>                              Σ0 Δ-28    →0x22004 ←0x21914
            <Blob 0x22144 [28] @>                            Δ-28               {[«28""»]}
            <MI 22150  BRA     0x22004>                                         {[«28""»]}
        <POP 22154-22164 Naked>                              Σ0 Δ-24    →0x21d4e ←0x21914
            <Blob 0x22154 [24] @>                            Δ-24               {[«24""»]}
            <MI 22160  BRA     0x21d4e>                                         {[«24""»]}
        <POP 22164-22178 Naked>                              Σ0 Δ-22    →0x21af8 ←0x21914
            <Blob 0x22164 [22] @>                            Δ-22               {[«22""»]}
            <MI 22174  BRA     0x21af8>                                         {[«22""»]}
        <POP 22178-2218c Naked>                              Σ0 Δ-22    →0x21af8 ←0x21914
            <Blob 0x22178 [22] @>                            Δ-22               {[«22""»]}
            <MI 22188  BRA     0x21af8>                                         {[«22""»]}
        <POP 2218c-2219c Naked>                              Σ0 Δ-24    →0x21d4e ←0x21914
            <Blob 0x2218c [24] @>                            Δ-24               {[«24""»]}
            <MI 22198  BRA     0x21d4e>                                         {[«24""»]}
        <POP 2219c-221ac Naked>                              Σ0 Δ-18    →0x22284 ←0x21914
            <Blob 0x2219c [18] @>                            Δ-18               {[«18""»]}
            <MI 221a8  BRA     0x22284>                                         {[«18""»]}
        <POP 221ac-221d8 Naked>                              Σ0         →0x22296 ←0x21914
            <Blob 0x221ac [48] @>                            Δ-48               {[«48""»]}
            <POP 221be-221c0 StackAdj>                       Δ-4                {[«48""»]|[-4-]}
            <Lit 0x221c0 47>                                                    {[«48""»]|[$$Filter/regulator, pump, servo-control PWA fault]}
            <MI 221ce  MOVEA.L (A7)+,A4>                     Δ+4                {[«48""»]}
            <POP 221d0-221d4 StackAdj>                       Δ+48               {}
            <MI 221d4  BRA     0x22296>                                         {}
        <POP 221d8-221e8 Naked>                              Σ0 Δ-50    →0x21f98 ←0x21914
            <Blob 0x221d8 [50] @>                            Δ-50               {[«50""»]}
            <MI 221e4  BRA     0x21f98>                                         {[«50""»]}
        <POP 221e8-221f8 Naked>                              Σ0 Δ-18    →0x22284 ←0x21914
            <Blob 0x221e8 [18] @>                            Δ-18               {[«18""»]}
            <MI 221f4  BRA     0x22284>                                         {[«18""»]}
        <POP 221f8-22222 Naked>                              Σ0         →0x22296 ←0x21914
            <Blob 0x221f8 [52] @>                            Δ-52               {[«52""»]}
            <POP 2220a-2220c StackAdj>                       Δ-4                {[«52""»]|[-4-]}
            <Lit 0x2220c 51>                                                    {[«52""»]|[$$Formatter interrupt received while test in progress]}
            <MI 2221a  MOVEA.L (A7)+,A4>                     Δ+4                {[«52""»]}
            <POP 2221c-22220 StackAdj>                       Δ+52               {}
            <MI 22220  BRA     0x22296>                                         {}
        <POP 22222-22236 Naked>                              Σ0 Δ-16    →0x21b86 ←0x21914
            <Blob 0x22222 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x22226 [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x2222a [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <Blob 0x2222e [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
            <MI 22232  BRA     0x21b86>                                         {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
        <POP 22236-22252 Naked>                              Σ0 Δ-56    →0x21f7e ←0x21914
            <Blob 0x22236 [44] @>                            Δ-44               {[«44""»]}
            <POP 22242-22244 StackAdj>                       Δ-4                {[«44""»]|[-4-]}
            <Pointer.sp 0x22244 4>                           Δ-4                {[«44""»]|[-4-]|[^^4]}
            <Const 0x22248 0x1.2>                            Δ-2                {[«44""»]|[-4-]|[^^4]|[#1]}
            <Const 0x2224a 0x2c.2>                           Δ-2                {[«44""»]|[-4-]|[^^4]|[#1]|[#44]}
            <MI 2224e  BRA     0x21f7e>                                         {[«44""»]|[-4-]|[^^4]|[#1]|[#44]}
        <POP 22252-22262 Naked>                              Σ0 Δ-24    →0x21d4e ←0x21914
            <Blob 0x22252 [24] @>                            Δ-24               {[«24""»]}
            <MI 2225e  BRA     0x21d4e>                                         {[«24""»]}
        <POP 22262-22278 Naked>                              Σ0 Δ-24    →0x21eb6 ←0x21914
            <Blob 0x22262 [24] @>                            Δ-24               {[«24""»]}
            <MI 22274  BRA     0x21eb6>                                         {[«24""»]}
        <POP 22278-22284 Naked>                              Σ0 Δ-18    ↓ ←0x21908 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914
            <Blob 0x22278 [18] @>                            Δ-18               {[«18""»]}
        <POP 22284-2228e Naked>                              Σ-18 Δ-12  ↓ ←0x21b94 ←0x21bf4 ←0x21cde ←0x220fa ←0x2219c ←0x221e8
            <POP 22284-22286 StackAdj>                       Δ-4                {[-22-]}
            <Pointer.sp 0x22286 4>                           Δ-4                {[-22-]|[^^4]}
            <Const 0x2228a 0x1.2>                            Δ-2                {[-22-]|[^^4]|[#1]}
            <Const 0x2228c 0x12.2>                           Δ-2                {[-22-]|[^^4]|[#1]|[#18]}
        <POP 2228e-22296 Naked>                              Σ-30 Δ+30  ↓ ←0x21cfe
            <Call 0x2228e 0x102c4>                                              {[-30-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 22290-22292 StackAdj>                       Δ+8                {[-22-]}
            <MI 22292  MOVEA.L (A7)+,A4>                     Δ+4                {[-18-]}
            <POP 22294-22296 StackAdj>                       Δ+18               {}
        <POP 22296-222c8 Naked>                              Σ0         ↓ ←0x21a6e ←0x21a96 ←0x21aba ←0x21ac8 ←0x21b04 ←0x21b6a ←0x21be8 ←0x21c22 ←0x21c3c ←0x21cb0 ←0x21d5a ←0x21d7c ←0x21e58 ←0x21e7e ←0x21f7e ←0x21f98 ←0x21fd0 ←0x221ac ←0x221f8
            <Blob 0x22296 [2] @>                             Δ-2                {[«2""»]}
            <POP 2229a-2229c StackAdj>                       Δ-4                {[«2""»]|[-4-]}
            <MI 2229c  MOVE.L  A4,-(A7)>                     Δ-4                {[«2""»]|[-4-]|[4, 'A4']}
            <POP 2229e-222a0 StackAdj>                       Δ-4                {[«2""»]|[-4-]|[4, 'A4']|[-4-]}
            <Lit 0x222a0 2>                                                     {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]}
            <POP 222ac-222ae StackAdj>                       Δ-6                {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]|[-6-]}
            <MI 222ae  MOVE.W  (A6+0x8),(A7)>                                   {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]|[-4-]|[2, '(A6+0x8)']}
            <Call 0x222b2 0x20db0>                                              {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]|[-4-]|[2, '(A6+0x8)']}
            <POP 222b6-222b8 StackAdj>                       Δ+2                {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]|[-4-]}
            <Call 0x222b8 0x102d4>                                              {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]|[-4-]}
                StringCat3(a, b, c : String) : String
            <POP 222be-222c0 StackAdj>                       Δ+12               {[«2""»]|[-4-]}
            <Call 0x222c0 0x103e0>                                              {[«2""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 222c6-222c8 StackAdj>                       Δ+6                {}
        <POP 222c8-222d0 Epilogue>                           Σ0         

0x222d0


@ 222d0
START
    <POP 222d0--0001 Body>                                              
        <POP 222d0-222da Prologue>                           Σ0         
        <POP 222da-222f6 RegCacheLoad>                       Σ0         ↓
        <POP 222f6-22304 Naked>                              Σ0         ↓
            <Call 0x222f6 0x10398>                                              {}
                FSCALL_10398
            <Const 0x222fc 0x225a8.4>                        Δ-4                {[##140712]}
            <Call 0x222fe 0x21816>                                              {[##140712]}
            <POP 22302-22304 StackAdj>                       Δ+4                {}
        <POP 22304-2233c Naked>                              Σ0         ↓ →0x22380 ←0x22380
            <Const 0x22304 0x225a4.4>                        Δ-4                {[##140708]}
            <Const 0x22306 0x225a6.4>                        Δ-4                {[##140708]|[##140710]}
            <Call 0x22308 0x212e8>                                              {[##140708]|[##140710]}
            <POP 2230c-2230e StackAdj>                       Δ+6                {[-2-]}
            <POP 2230e-2230f StackAdj>                       Δ+2                {}
            <Blob 0x2230f [2] 0x225a8>                       Δ-2                {[«2»]}
            <MI 22310  MOVE.W  0x225a4,D0>                                      {[«2»]}
            <POP 0x22312 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[«2»]}
            <MI 22314  MOVE.W  D0,-(A7)>                     Δ-2                {[«2»]|[2, 'D0']}
            <MI 22316  MOVE.W  0x225a6,D0>                                      {[«2»]|[2, 'D0']}
            <POP 0x22318 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[«2»]|[2, 'D0']}
            <MI 2231a  MOVE.W  D0,-(A7)>                     Δ-2                {[«2»]|[2, 'D0']|[2, 'D0']}
            <Const 0x2231c 0x225aa.4>                        Δ-4                {[«2»]|[2, 'D0']|[2, 'D0']|[##140714]}
            <Const 0x2231e 0x225ac.4>                        Δ-4                {[«2»]|[2, 'D0']|[2, 'D0']|[##140714]|[##140716]}
            <Call 0x22324 0x217b2>                                              {[«2»]|[2, 'D0']|[2, 'D0']|[##140714]|[##140716]}
            <POP 22328-2232c StackAdj>                       Δ+14               {}
            <MI 2232c  MOVE.W  0x225aa,D0>                                      {}
            <POP 0x2232e LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 22330  MOVE.W  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x22332 0x218de>                                              {[2, 'D0']}
            <POP 22336-22338 StackAdj>                       Δ+2                {}
            <MI 22338  TST.W   0x225aa>                                         {}
            <MI 2233a  BEQ     0x22380>                                         {}
        <POP 2233c-22380 Naked>                              Σ0         ↓
            <Blob 0x2233c [22] @>                            Δ-22               {[«22""»]}
            <POP 22348-2234a StackAdj>                       Δ-8                {[«22""»]|[-8-]}
            <Lit 0x2234a 22>                                                    {[«22""»]|[-4-]|[$$Sub-completion code :_]}
            <POP 2235c-2235e StackAdj>                       Δ-4                {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]}
            <MI 2235e  MOVE.W  0x225ac,D0>                                      {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]}
            <POP 0x22364 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]}
            <MI 22366  MOVE.W  D0,-(A7)>                     Δ-2                {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]|[2, 'D0']}
            <Call 0x22368 0x20db0>                                              {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]|[2, 'D0']}
            <POP 2236c-2236e StackAdj>                       Δ+2                {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]}
            <Call 0x2236e 0x102d0>                                              {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 22374-22376 StackAdj>                       Δ+8                {[«22""»]|[-4-]}
            <Call 0x22376 0x103e0>                                              {[«22""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2237c-22380 StackAdj>                       Δ+26               {}
        <POP 22380-22382 Naked>                              Σ0         →0x22304 ←0x22304
            <MI 22380  BRA     0x22304>                                         {}

0x223a4


@ 223a4
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 223a4-2240c Body>                                              
        <POP 223a4-223ba Prologue>                           Σ0         ↓
        <POP 223ba-22404 Naked>                              Σ0         ↓
            <Blob 0x223ba [14] @>                            Δ-14               {[«14""»]}
            <Const 0x223c6 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 223ca-223cc StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x223cc 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 223de-223e0 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 223e0  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 223e4  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 223e6  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 223e8  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x223ea 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 223f0-223f2 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x223f2 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 223f8-223fa StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x223fa 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 22400-22404 StackAdj>                       Δ+20               {}
        <POP 22404-2240c Epilogue>                           Σ0         

0x22460


@ 22460
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 22460-2259c Body>                                              
        <POP 22460-22476 Prologue>                           Σ0         ↓
        <POP 22476-2248c RegCacheLoad>                       Σ0         ↓
        <POP 2248c-224ec Naked>                              Σ0         ↓ →0x22534
            <Call 0x2248c 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x22492 [18] @>                            Δ-18               {[«18""»]}
            <POP 2249e-224a0 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x224a0 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x224ac 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 224ae-224af StackAdj>                       Δ+22       ↓       {}
            <Blob 0x224af [14] @>                            Δ-14               {[«14""»]}
            <POP 224be-224c0 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x224c0 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 224ca-224cc StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 224cc  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x224d0 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 224d6-224d8 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x224d8 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 224de-224e0 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x224e0 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 224e2-224e4 StackAdj>                       Δ+18               {}
            <MI 224e4  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 224e8  CMPA.W  #0x01,A0>                                        {}
            <MI 224ea  BEQ     0x22534>                                         {}
        <POP 224ec-22534 Naked>                              Σ0         ↓
            <Blob 0x224ec [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x224fc [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 2250c-2250e StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x2250e 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 22518-2251a StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x2251a>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x2251a 12>                      Δ-4        
                <Const 0x2251e 0x1.2>                        Δ-2        
                <Const 0x22520 0x1e.2>                       Δ-2        
                <Call 0x22522 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22524-22526 StackAdj>                   Δ+8        
            <Call 0x22526 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 2252c-2252e StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x2252e 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22530-22534 StackAdj>                       Δ+48               {}
        <POP 22534-22594 Naked>                              Σ0         ↓ ←0x2248c
            <Blob 0x22534 [14] @>                            Δ-14               {[«14""»]}
            <POP 22544-22546 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x22546 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 22550-22552 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 22552  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x22556 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 2255c-2255e StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x2255e 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 22564-22566 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x22566 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 22568-22569 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x22569 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x22578 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 2257c-2257e StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x2257e 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x2258c 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 22592-22594 StackAdj>                       Δ+30               {}
        <POP 22594-2259c Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.8e5c67880d6147da
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 22 d0              |  "     |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 25 c0              |  %     |		.PTR	0x225c0
00020010					code.end:
00020010 00 02 25 9c              |  %     |		.PTR	0x2259c
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 23 a4              |  #     |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 24 60              |  $`    |		.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 53 41        |@(#)SA  |		.XXX[0x6]
00020110 4d 2c 31 2e 31 2c 39 32  |M,1.1,92|		.XXX[0x18]
00020118 2f 30 37 2f 30 39 2c 31  |/07/09,1|
00020120 32 3a 30 30 3a 30 30 5c  |2:00:00\|
00020128 45 6e 74 65 72 20 6e 75  |Enter nu|		.TXT	'Enter number in range [0 .. FF] '
00020148 45 6e 74 65 72 20 68 65  |Enter he|		.TXT	'Enter hexadecimal characters only.'
0002016a 54 65 73 74 20 77 69 6c  |Test wil|		.TXT	'Test will loop. '
0002017a 50 6c 65 61 73 65 20 65  |Please e|		.TXT	'Please enter test option :_ '
00020196 20 20 20 20 30 20 3d 3e  |    0 =>|		.TXT	'    0 => Halt if read or write errors exceed limit specified, '
000201d4 20 20 20 20 20 20 20 20  |        |		.TXT	'         halt on completion of test.'
000201f8 20 20 20 20 31 20 3d 3e  |    1 =>|		.TXT	'    1 => Loop on test, halt if read or write errors exceed'
00020232 20 20 20 20 20 20 20 20  |        |		.TXT	'         limit specifed on any given pass.'
0002025c 20 20 20 20 32 20 3d 3e  |    2 =>|		.TXT	'    2 => Loop on test, bypass read or write error halts.'
00020294 4f 70 74 69 6f 6e 73 20  |Options |		.TXT	'Options are : '
000202a2 50 6c 65 61 73 65 20 65  |Please e|		.TXT	'Please enter test option :_ '
000202be 20 20 20 20 30 20 3d 3e  |    0 =>|		.TXT	'    0 => Use all ones pattern.'
000202dc 20 20 20 20 31 20 3d 3e  |    1 =>|		.TXT	'    1 => Use one-half frequency pattern.'
00020304 20 20 20 20 32 20 3d 3e  |    2 =>|		.TXT	'    2 => Use one-third frequency pattern. '
0002032e 4f 70 74 69 6f 6e 73 20  |Options |		.TXT	'Options are : '
0002033c 50 6c 65 61              |Plea    |		.XXX[0x4]
00020340 73 65 20 65 6e 74 65 72  |se enter|		.XXX[0x18]
00020348 20 74 65 73 74 20 6f 70  | test op|
00020350 74 69 6f 6e 20 3a 5f 20  |tion :_ |
00020358 20 20 20 20 30 20 3d 3e  |    0 =>|		.TXT	'    0 => 25 ips speed.'
0002036e 20 20 20 20 31 20 3d 3e  |    1 =>|		.TXT	'    1 => 12.5 ips speed.'
00020386 4f 70 74 69 6f 6e 73 20  |Options |		.TXT	'Options are : '
00020394 45 6e 74 65 72 20 74 65  |Enter te|		.TXT	'Enter test number :_'
000203a8 54 65 73 74 5f 20        |Test_   |		.TXT	'Test_ '
000203ae 20 69 73 20 6e 6f 74 20  | is not |		.TXT	' is not supported.'
000203c0 45 72 72 6f 72 20 6f 6e  |Error on|		.TXT	'Error on status read during diagnostic execution. '
000203f2 45 72 72 6f 72 20 77 68  |Error wh|		.TXT	'Error when issuing load/on-line command.'
0002041a 45 72 72 6f 72 20 77 68  |Error wh|		.TXT	'Error when issuing diagnostic command.'
00020440 45 72 72 6f 72 20 72 65  |Error re|		.TXT	'Error reading sense data! '
0002045a 45 6e 74 65 72 20 53 54  |Enter ST|		.TXT	'Enter STU unit number :_'
00020472 55 6e 69 74 20 64 6f 65  |Unit doe|		.TXT	'Unit does not exist.'
00020486 54 65 73 74 20 73 75 63  |Test suc|		.TXT	'Test successful '
00020496 52 65 61 64 20 65 6e 76  |Read env|		.TXT	'Read envelope fault '
000204aa 52 65 61 64 20 61 6d 70  |Read amp|		.TXT	'Read amplitude tolerance fault'
000204c8 49 64 20 66              |Id f    |		.TXT	'Id f'
000204cc 61 75 6c 74              |ault    |		.TXT	'ault'
000204d0 4c 6f 77 20 73 70 65 65  |Low spee|		.TXT	'Low speed write error '
000204e6 4c 6f 77 20 73 70 65 65  |Low spee|		.TXT	'Low speed read error'
000204fa 48 69 67 68 20 73 70 65  |High spe|		.TXT	'High speed write error'
00020510 48 69 67 68 20 73 70 65  |High spe|		.TXT	'High speed read error '
00020526 4e 6f 69 73              |Nois    |		.TXT	'Nois'
0002052a 65 20 69 6e              |e in    |		.TXT	'e in'
0002052e 20 49 42 47              | IBG    |		.TXT	' IBG'
00020532 48 61 72 64              |Hard    |		.TXT	'Hard'
00020536 77 61 72 65              |ware    |		.TXT	'ware'
0002053a 20 66 61 69              | fai    |		.TXT	' fai'
0002053e 6c 75 72 65              |lure    |		.TXT	'lure'
00020542 4f 70 65 72 61 74 6f 72  |Operator|		.TXT	'Operator door open'
00020554 41 62 73 65 6e 63 65 20  |Absence |		.TXT	'Absence of tape '
00020564 48 75 62 20 6e 6f 74 20  |Hub not |		.TXT	'Hub not latched '
00020574 54 61 70 65 20 74 68 72  |Tape thr|		.TXT	'Tape threaded incorrectly '
0002058e 42 4f 54 20 6c 6f 63 61  |BOT loca|		.TXT	'BOT location fault'
000205a0 4c 6f 61 64 2f 55 6e 6c  |Load/Unl|		.TXT	'Load/Unload aborted by operator '
000205c0 44 69 61 67 6e 6f 73 74  |Diagnost|		.TXT	'Diagnostic tape is write protected'
000205e2 52 61 6e 20 6f 66 66 20  |Ran off |		.TXT	'Ran off end of tape '
000205f6 54 61 70 65 20 61 6c 72  |Tape alr|		.TXT	'Tape already loaded '
0002060a 46 69 6c 65 20 74 65 6e  |File ten|		.TXT	'File tension sensor fault '
00020624 54 61 6b 65 75 70 20 74  |Takeup t|		.TXT	'Takeup tension sensor fault '
00020640 55 6e 61 62 6c 65 20 74  |Unable t|		.TXT	'Unable to tension tape'
00020656 55 6e 61 62 6c 65 20 74  |Unable t|		.TXT	'Unable to re-establish tension'
00020674 48 69 67 68 20 74 65 6e  |High ten|		.TXT	'High tension fault'
00020686 4c 6f 77 20 74 65 6e 73  |Low tens|		.TXT	'Low tension fault '
00020698 53 65 72 76 6f 20 66 61  |Servo fa|		.TXT	'Servo fault '
000206a4 4e 6f 20 63 6f 61 72 73  |No coars|		.TXT	'No coarse tachs '
000206b4 54 65 6e 73 69 6f 6e 20  |Tension |		.TXT	'Tension recovery problem'
000206cc 41 62 73 65 6e 63 65 20  |Absence |		.TXT	'Absence of tape '
000206dc 55 70 20 72 61 6d 70 20  |Up ramp |		.TXT	'Up ramp fault '
000206ea 44 6f 77 6e 20 72 61 6d  |Down ram|		.TXT	'Down ramp fault '
000206fa 53 74 6f 70 6c 6f 63 6b  |Stoplock|		.TXT	'Stoplock over-run '
0002070c 54 61 70 65 20 70 6f 73  |Tape pos|		.TXT	'Tape position fault '
00020720 42 4f 54 20 70 6f 73 69  |BOT posi|		.TXT	'BOT positioning fault '
00020736 50 6f 73 69 74 69 6f 6e  |Position|		.TXT	'Positioning fault '
00020748 53 70 65 65 64 20 66 61  |Speed fa|		.TXT	'Speed fault '
00020754 53 74 61 63 6b 20 6f 76  |Stack ov|		.TXT	'Stack overflow fault'
00020768 56 65 6c 6f 63 69 74 79  |Velocity|		.TXT	'Velocity correction fault '
00020782 53 54 54 20 69 6c 6c 6f  |STT illo|		.TXT	'STT illogical fault '
00020796 49 72 72 65 63 6f 76 65  |Irrecove|		.TXT	'Irrecoverable device healthcheck fault'
000207bc 52 65 63 6f 76 65 72 61  |Recovera|		.TXT	'Recoverable device healthcheck fault'
000207e0 53 70 65 65 64 20 63 61  |Speed ca|		.TXT	'Speed calculation fault '
000207f8 41 72 69 74              |Arit    |		.TXT	'Arit'
000207fc 68 6d 65 74              |hmet    |		.TXT	'hmet'
00020800 69 63 20 66              |ic f    |		.TXT	'ic f'
00020804 61 75 6c 74              |ault    |		.TXT	'ault'
00020808 45 72 61 73 65 2f 57 72  |Erase/Wr|		.TXT	'Erase/Write current fault '
00020822 49 6c 6c 6f 67 69 63 61  |Illogica|		.TXT	'Illogical fault '
00020832 50 72 6f 63 65 73 73 6f  |Processo|		.TXT	'Processor communication fault '
00020850 49 72 72 65 63 6f 76 65  |Irrecove|		.TXT	'Irrecoverable operator panel fault'
00020872 52 65 63 6f 76 65 72 61  |Recovera|		.TXT	'Recoverable operator panel fault'
00020892 46 6f 72 6d 61 74 74 65  |Formatte|		.TXT	'Formatter write board health check'
000208b4 46 6f 72 6d 61 74 74 65  |Formatte|		.TXT	'Formatter read/write interface health check '
000208e0 46 6f 72 6d 61 74 74 65  |Formatte|		.TXT	'Formatter read board health check in data loopback'
00020912 46 6f 72 6d 61 74 74 65  |Formatte|		.TXT	'Formatter read board health check fault '
0002093a 46 6f 72 6d 61 74 74 65  |Formatte|		.TXT	'Formatter/Adaptor interface health check'
00020962 49 6e 74 65 72 66 61 63  |Interfac|		.TXT	'Interface health check fault'
0002097e 49 6e 74 65 72 66 61 63  |Interfac|		.TXT	'Interface checksum fault'
00020996 54 61 70 65 20 6e 6f 74  |Tape not|		.TXT	'Tape not loaded fault '
000209ac 54 61 70 65 20 6c 6f 61  |Tape loa|		.TXT	'Tape loaded fault '
000209be 54 61 70 65 20 77 72 69  |Tape wri|		.TXT	'Tape write protected fault'
000209d8 42 61 63 6b 75 70 20 6d  |Backup m|		.TXT	'Backup memory is not write enabled'
000209fa 42 61 63 6b 75 70 20 6d  |Backup m|		.TXT	'Backup memory is not write enabled'
00020a1c 42 61 64 20 62 61 63 6b  |Bad back|		.TXT	'Bad backup memory '
00020a2e 42 61 64 20 62 61 63 6b  |Bad back|		.TXT	'Bad backup memory '
00020a40 45 4f 54 20              |EOT     |		.TXT	'EOT '
00020a44 6f 6e 20 45              |on E    |		.TXT	'on E'
00020a48 47 43 20 66              |GC f    |		.TXT	'GC f'
00020a4c 61 75 6c 74              |ault    |		.TXT	'ault'
00020a50 45 47 43 20 6c 6f 77 20  |EGC low |		.TXT	'EGC low speed set-up fault'
00020a6a 45 47 43 20 68 69 67 68  |EGC high|		.TXT	'EGC high speed set-up fault '
00020a86 52 65 66 72 65 73 68 20  |Refresh |		.TXT	'Refresh DAC fault '
00020a98 54 55 20 70 6f 77 65 72  |TU power|		.TXT	'TU power amp fault'
00020aaa 54 61 6b 65 2d 75 70 20  |Take-up |		.TXT	'Take-up power amp fault '
00020ac2 44 65 6d 61 6e 64 20 76  |Demand v|		.TXT	'Demand velocity DAC fault '
00020adc 54 61 6b 65 2d 75 70 20  |Take-up |		.TXT	'Take-up motor/tach fault'
00020af4 56 65 6c 6f 63 69 74 79  |Velocity|		.TXT	'Velocity feedback loop fault'
00020b10 54 61 6b 65 2d 75 70 20  |Take-up |		.TXT	'Take-up comparator fault'
00020b28 46 69 6c 65 20 63 6f 6d  |File com|		.TXT	'File comparator fault '
00020b3e 46 69 6c 65 20 73 65 6e  |File sen|		.TXT	'File sensor - 0 fault '
00020b54 54 61 6b 65 2d 75 70 20  |Take-up |		.TXT	'Take-up sensor - 0 fault'
00020b6c 50 75 6d 70 20 66 61 69  |Pump fai|		.TXT	'Pump failure fault'
00020b7e 46 69 6c 74 65 72 2f 72  |Filter/r|		.TXT	'Filter/regulator, pump, servo-control PWA fault '
00020bae 56 65 6c 6f 63 69 74 79  |Velocity|		.TXT	'Velocity correction multiplier factor out of range'
00020be0 54 61 70 65 20 70 72 65  |Tape pre|		.TXT	'Tape present fault'
00020bf2 46 6f 72 6d 61 74 74 65  |Formatte|		.TXT	'Formatter interrupt received while test in progress '
00020c26 53 65 72 76              |Serv    |		.TXT	'Serv'
00020c2a 6f 20 6c 6f              |o lo    |		.TXT	'o lo'
00020c2e 6f 70 20 66              |op f    |		.TXT	'op f'
00020c32 61 75 6c 74              |ault    |		.TXT	'ault'
00020c36 53 65 72 76 6f 2d 63 6f  |Servo-co|		.TXT	'Servo-control PWA, sensor intermittent fault'
00020c62 54 61 6b 65 2d 75 70 20  |Take-up |		.TXT	'Take-up motor/tach fault'
00020c7a 41 74 74 65 6d 70 74 20  |Attempt |		.TXT	'Attempt to loop on test '
00020c92 55 6e 6b 6e 6f 77 6e 20  |Unknown |		.TXT	'Unknown fault code'
00020ca4 5f 20                    |_       |		.TXT	'_ '
00020ca6 53 75 62 2d 63 6f 6d 70  |Sub-comp|		.TXT	'Sub-completion code :_'
00020cbc 0e 00 ff ff              |        |		.XXX[0x4]
00020cc0 7f ff 9f ff ff 00 fc ff  |        |		.XXX[0x20]
00020cc8 07 00 00 00 00 00 82 00  |        |
00020cd0 00 00 00 00 00 00 00 00  |        |
00020cd8 00 00 00 00 00 00 f0 03  |        |
00020ce0 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0x20]
00020d00 7f ff 05 00 00 00 e0 ff  |        |		.XXX[0x10]
00020d08 01 00 00 00 00 00 02 00  |        |
00020d10 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0x10]
00020d20 00 00 00 02 01 00 0c 00  |        |		.XXX[0x8]
00020d28 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0x10]
00020d38 00 00 00 00 00 00 0f 00  |        |		.XXX[0x8]
00020d40 00 00 00 00 00 00 00 00  |        |		.BLANK	00[0x18]
00020d58 00 00 00 00 4e 56 ff e6  |    NV  |		.XXX[0x58]
00020d60 bf d5 62 06 44 fc 00 02  |  b D   |
00020d68 4e 76 de fc 00 14 48 e7  |Nv    H |
00020d70 83 00 7e 00 7c 00 42 80  |  ~ | B |
00020d78 30 07 e3 80 0c 80 00 00  |0       |
00020d80 ff ff 63 02 4e 4f 3e 00  |  c NO> |
00020d88 30 2e 00 08 02 40 00 01  |0.   @  |
00020d90 8e 40 e2 ee 00 08 52 86  | @    R |
00020d98 0c 86 00 00 00 07 6f d6  |      o |
00020da0 42 80 30 07 2d 40 00 0a  |B 0 -@  |
00020da8 4c df 00 c1 4e 5e 4e 75  |L   N^Nu|
00020db0 ; --------------------------------------------------------------------------------------
00020db0 ; OMSI PASCAL Function
00020db0 ;    <LVAR  0x00a 4(w)>
00020db0 ;    <LVAR  0x008 2(r)>
00020db0 ;    <LVAR -0x00a @ 4(r)>
00020db0 ; --------------------------------------------------------------------------------------
00020db0 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00020db4 bf d5                    |        |		CMPA.L	(A5),A7
00020db6 62 06                    |b       |		BHI	0x20dbe
00020db8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020dbc 4e 76                    |Nv      |		TRAPV
00020dbe de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00020dc2 48 e7 ff 80              |H       |		MOVEM.L	A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020dc6 41 ee ff f6              |A       |		LEA.L	(A6-0xa),A0
00020dca 22 3c 00 00 00 ff        |"<      |		MOVE.L	#0xff,D1
00020dd0 74 09                    |t       |		MOVEQ.L	#0x09,D2
00020dd2 76 30                    |v0      |		MOVEQ.L	#0x30,D3
00020dd4 78 0a                    |x       |		MOVEQ.L	#0x0a,D4
00020dd6 7a 41                    |zA      |		MOVEQ.L	#0x41,D5
00020dd8 48 50                    |HP      |		PEA.L	(A0)
00020dda 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00020de0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020de2 3c 2e 00 08              |<.      |		MOVE.W	(A6+0x8),D6
00020de6 02 46 00 f0              | F      |		ANDI.W	#0x00f0,D6
00020dea e8 4e                    | N      |		LSR.W	#0x4,D6
00020dec bc 42                    | B      |		CMP.W	D2,D6
00020dee 62 0e                    |b       |		BHI	0x20dfe
00020df0 42 80                    |B       |		CLR.L	D0
00020df2 30 06                    |0       |		MOVE.W	D6,D0
00020df4 d0 83                    |        |		ADD.L	D3,D0
00020df6 b0 81                    |        |		CMP.L	D1,D0
00020df8 63 02                    |c       |		BLS	0x20dfc
00020dfa 4e 4f                    |NO      |		TRAP	#15
00020dfc 60 0e                    |`       |		BRA	0x20e0c
00020dfe 42 80                    |B       |		CLR.L	D0
00020e00 30 06                    |0       |		MOVE.W	D6,D0
00020e02 90 84                    |        |		SUB.L	D4,D0
00020e04 d0 85                    |        |		ADD.L	D5,D0
00020e06 b0 81                    |        |		CMP.L	D1,D0
00020e08 63 02                    |c       |		BLS	0x20e0c
00020e0a 4e 4f                    |NO      |		TRAP	#15
00020e0c 1e 00                    |        |		MOVE.B	D0,D7
00020e0e 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00020e10 1f 07                    |        |		MOVE.B	D7,-(A7)
00020e12 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00020e18 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020e1a 3c 2e 00 08              |<.      |		MOVE.W	(A6+0x8),D6
00020e1e 02 46 00 0f              | F      |		ANDI.W	#0x000f,D6
00020e22 bc 42                    | B      |		CMP.W	D2,D6
00020e24 62 0e                    |b       |		BHI	0x20e34
00020e26 42 80                    |B       |		CLR.L	D0
00020e28 30 06                    |0       |		MOVE.W	D6,D0
00020e2a d0 83                    |        |		ADD.L	D3,D0
00020e2c b0 81                    |        |		CMP.L	D1,D0
00020e2e 63 02                    |c       |		BLS	0x20e32
00020e30 4e 4f                    |NO      |		TRAP	#15
00020e32 60 0e                    |`       |		BRA	0x20e42
00020e34 42 80                    |B       |		CLR.L	D0
00020e36 30 06                    |0       |		MOVE.W	D6,D0
00020e38 90 84                    |        |		SUB.L	D4,D0
00020e3a d0 85                    |        |		ADD.L	D5,D0
00020e3c b0 81                    |        |		CMP.L	D1,D0
00020e3e 63 02                    |c       |		BLS	0x20e42
00020e40 4e 4f                    |NO      |		TRAP	#15
00020e42 1e 00                    |        |		MOVE.B	D0,D7
00020e44 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00020e46 1f 07                    |        |		MOVE.B	D7,-(A7)
00020e48 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00020e4e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020e50 2d 50 00 0a              |-P      |		MOVE.L	(A0),(A6+0xa)
00020e54 4c df 01 ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0
00020e58 4e 5e                    |N^      |		UNLK	A6
00020e5a 4e 75                    |Nu      |		RTS
00020e5c ; --------------------------------------------------------------------------------------
00020e5c ; OMSI PASCAL Function
00020e5c ;    <LVAR  0x00c 2(w)>
00020e5c ;    <LVAR  0x008 @ 4(r)>
00020e5c ;    <LVAR -0x010 4(rw)>
00020e5c ; --------------------------------------------------------------------------------------
00020e5c 4e 56 ff 84              |NV      |		LINK.W	A6,#0xff84
00020e60 bf d5                    |        |		CMPA.L	(A5),A7
00020e62 62 06                    |b       |		BHI	0x20e6a
00020e64 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020e68 4e 76                    |Nv      |		TRAPV
00020e6a de fc 00 6c              |   l    |		ADDA.W	#0x6c,A7
00020e6e 48 e7 ff c0              |H       |		MOVEM.L	A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020e72 74 01                    |t       |		MOVEQ.L	#0x01,D2
00020e74 76 30                    |v0      |		MOVEQ.L	#0x30,D3
00020e76 78 41                    |xA      |		MOVEQ.L	#0x41,D4
00020e78 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00020e7a 9e fc 00 0c              |        |		SUBA.W	#0xc,A7
00020e7e 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00020e82 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00020e88 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e8a 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00020e90 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e92 4e b9 00 01 02 f0        |N       |		JSR	ToUpper(a : String) : String
00020e98 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020e9a 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00020e9e 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00020ea0 20 6e ff f0              | n      |		MOVEA.L	(A6-0x10),A0
00020ea4 2f 08                    |/       |		MOVE.L	A0,-(A7)
00020ea6 30 10                    |0       |		MOVE.W	(A0),D0
00020ea8 48 c0                    |H       |		EXTW.L	D0
00020eaa 2f 00                    |/       |		MOVE.L	D0,-(A7)
00020eac 7a 01                    |z       |		MOVEQ.L	#0x01,D5
00020eae ba 97                    |        |		CMP.L	(A7),D5
00020eb0 6e 00 00 b4              |n       |		BGT	0x20f66
00020eb4 e9 87                    |        |		ASL.L	#0x4,D7
00020eb6 0c 87 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D7
00020ebc 6f 34                    |o4      |		BLE	0x20ef2
00020ebe 9e fc 00 20              |        |		SUBA.W	#0x20,A7
00020ec2 20 4f                    | O      |		MOVEA.L	A7,A0
00020ec4 43 fa f2 62              |C  b    |		LEA.L	0x20128,A1
00020ec8 70 1e                    |p       |		MOVEQ.L	#0x1e,D0
00020eca 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020ecc 51 c8 ff fc              |Q       |		DBF	D0,0x20eca
00020ed0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020ed2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020ed6 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020ed8 3f 3c 00 1f              |?<      |		MOVE.W	#0x1f,-(A7)
00020edc 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020ee2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ee4 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020eea de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00020eee 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020ef0 60 7a                    |`z      |		BRA	0x20f6c
00020ef2 20 05                    |        |		MOVE.L	D5,D0
00020ef4 53 80                    |S       |		SUBQ.L	#0x1,D0
00020ef6 0c 80 00 00 00 7d        |     }  |		CMPI.L	#0x0000007d,D0
00020efc 63 02                    |c       |		BLS	0x20f00
00020efe 4e 4f                    |NO      |		TRAP	#15
00020f00 20 6f 00 04              | o      |		MOVEA.L	(A7+0x4),A0
00020f04 12 30 08 02              | 0      |		MOVE.B	(A0+D0.L+#0x2),D1
00020f08 b2 03                    |        |		CMP.B	D3,D1
00020f0a 65 12                    |e       |		BCS	0x20f1e
00020f0c 0c 01 00 39              |   9    |		CMPI.B	#0x39,D1
00020f10 62 0c                    |b       |		BHI	0x20f1e
00020f12 42 80                    |B       |		CLR.L	D0
00020f14 10 01                    |        |		MOVE.B	D1,D0
00020f16 90 43                    | C      |		SUB.W	D3,D0
00020f18 48 c0                    |H       |		EXTW.L	D0
00020f1a de 80                    |        |		ADD.L	D0,D7
00020f1c 60 42                    |`B      |		BRA	0x20f60
00020f1e b2 04                    |        |		CMP.B	D4,D1
00020f20 65 12                    |e       |		BCS	0x20f34
00020f22 0c 01 00 46              |   F    |		CMPI.B	#0x46,D1
00020f26 62 0c                    |b       |		BHI	0x20f34
00020f28 42 80                    |B       |		CLR.L	D0
00020f2a 10 01                    |        |		MOVE.B	D1,D0
00020f2c 90 44                    | D      |		SUB.W	D4,D0
00020f2e 06 40 00 0a              | @      |		ADDI.W	#0x000a,D0
00020f32 60 e4                    |`       |		BRA	0x20f18
00020f34 41 fa f2 34              |A  4    |		LEA.L	0x2016a,A0
00020f38 70 10                    |p       |		MOVEQ.L	#0x10,D0
00020f3a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00020f3c 51 c8 ff fc              |Q       |		DBF	D0,0x20f3a
00020f40 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020f42 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020f46 3f 02                    |?       |		MOVE.W	D2,-(A7)
00020f48 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
00020f4c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020f52 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020f54 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020f5a de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00020f5e 60 0c                    |`       |		BRA	0x20f6c
00020f60 52 85                    |R       |		ADDQ.L	#0x1,D5
00020f62 68 00 ff 4a              |h  J    |		BVC	0x20eae
00020f66 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f68 7c 01                    ||       |		MOVEQ.L	#0x01,D6
00020f6a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f6c 4a 06                    |J       |		TST.B	D6
00020f6e 67 00 ff 0a              |g       |		BEQ	0x20e7a
00020f72 48 6e 00 08              |Hn      |		PEA.L	(A6+0x8)
00020f76 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020f7c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f7e 0c 87 00 00 00 ff        |        |		CMPI.L	#0x000000ff,D7
00020f84 63 02                    |c       |		BLS	0x20f88
00020f86 4e 4f                    |NO      |		TRAP	#15
00020f88 3d 47 00 0c              |=G      |		MOVE.W	D7,(A6+0xc)
00020f8c 4c df 03 ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1
00020f90 4e 5e                    |N^      |		UNLK	A6
00020f92 4e 75                    |Nu      |		RTS
00020f94 ; --------------------------------------------------------------------------------------
00020f94 ; OMSI PASCAL Function
00020f94 ;    <LVAR  0x008 4(r)>
00020f94 ; --------------------------------------------------------------------------------------
00020f94 4e 56 ff d4              |NV      |		LINK.W	A6,#0xffd4
00020f98 bf d5                    |        |		CMPA.L	(A5),A7
00020f9a 62 06                    |b       |		BHI	0x20fa2
00020f9c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020fa0 4e 76                    |Nv      |		TRAPV
00020fa2 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00020fa6 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
00020faa 9e fc 00 10              |        |		SUBA.W	#0x10,A7
00020fae 20 4f                    | O      |		MOVEA.L	A7,A0
00020fb0 43 fa f1 b8              |C       |		LEA.L	0x2016a,A1
00020fb4 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00020fb6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00020fb8 51 c8 ff fc              |Q       |		DBF	D0,0x20fb6
00020fbc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00020fbe 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00020fc2 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00020fc6 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00020fca 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00020fd0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00020fd2 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00020fd8 de fc 00 14              |        |		ADDA.W	#0x14,A7
00020fdc 42 ae 00 08              |B       |		CLR.L	(A6+0x8)
00020fe0 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00020fe4 4e 5e                    |N^      |		UNLK	A6
00020fe6 4e 75                    |Nu      |		RTS
00020fe8 ; --------------------------------------------------------------------------------------
00020fe8 ; OMSI PASCAL Function
00020fe8 ;    <LVAR  0x008 4(w)>
00020fe8 ; --------------------------------------------------------------------------------------
00020fe8 4e 56 ff 9a              |NV      |		LINK.W	A6,#0xff9a
00020fec bf d5                    |        |		CMPA.L	(A5),A7
00020fee 62 06                    |b       |		BHI	0x20ff6
00020ff0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020ff4 4e 76                    |Nv      |		TRAPV
00020ff6 de fc 00 66              |   f    |		ADDA.W	#0x66,A7
00020ffa 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
00020ffe 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021004 47 f9 00 01 03 e0        |G       |		LEA.L	WriteConsoleStringCrLf(str : String),A3
0002100a 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002100c 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00021010 20 4f                    | O      |		MOVEA.L	A7,A0
00021012 43 fa f2 80              |C       |		LEA.L	0x20294,A1
00021016 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021018 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002101a 51 c8 ff fc              |Q       |		DBF	D0,0x21018
0002101e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021020 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021024 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021026 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
0002102a 4e 92                    |N       |		JSR	(A2)
0002102c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002102e 4e 93                    |N       |		JSR	(A3)
00021030 9e fc 00 2c              |   ,    |		SUBA.W	#0x2c,A7
00021034 20 4f                    | O      |		MOVEA.L	A7,A0
00021036 43 fa f1 5e              |C  ^    |		LEA.L	0x20196,A1
0002103a 70 3c                    |p<      |		MOVEQ.L	#0x3c,D0
0002103c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002103e 51 c8 ff fc              |Q       |		DBF	D0,0x2103c
00021042 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021044 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021048 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002104a 3f 3c 00 3d              |?< =    |		MOVE.W	#0x3d,-(A7)
0002104e 4e 92                    |N       |		JSR	(A2)
00021050 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021052 4e 93                    |N       |		JSR	(A3)
00021054 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00021058 41 fa f1 9e              |A       |		LEA.L	0x201f8,A0
0002105c 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002105e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021060 51 c8 ff fc              |Q       |		DBF	D0,0x2105e
00021064 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021066 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002106a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002106c 3f 3c 00 24              |?< $    |		MOVE.W	#0x24,-(A7)
00021070 4e 92                    |N       |		JSR	(A2)
00021072 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021074 4e 93                    |N       |		JSR	(A3)
00021076 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
0002107a 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00021080 41 fa f1 b0              |A       |		LEA.L	0x20232,A0
00021084 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00021086 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021088 51 c8 ff fc              |Q       |		DBF	D0,0x21086
0002108c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002108e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021092 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021094 3f 3c 00 3a              |?< :    |		MOVE.W	#0x3a,-(A7)
00021098 4e 92                    |N       |		JSR	(A2)
0002109a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002109c 4e 93                    |N       |		JSR	(A3)
0002109e de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
000210a2 41 fa f1 b8              |A       |		LEA.L	0x2025c,A0
000210a6 70 14                    |p       |		MOVEQ.L	#0x14,D0
000210a8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000210aa 51 c8 ff fc              |Q       |		DBF	D0,0x210a8
000210ae 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210b0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000210b4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210b6 3f 3c 00 2a              |?< *    |		MOVE.W	#0x2a,-(A7)
000210ba 4e 92                    |N       |		JSR	(A2)
000210bc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210be 4e 93                    |N       |		JSR	(A3)
000210c0 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
000210c4 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
000210ca 41 fa f1 c8              |A       |		LEA.L	0x20294,A0
000210ce 70 0d                    |p       |		MOVEQ.L	#0x0d,D0
000210d0 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000210d2 51 c8 ff fc              |Q       |		DBF	D0,0x210d0
000210d6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000210d8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000210dc 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210de 3f 3c 00 38              |?< 8    |		MOVE.W	#0x38,-(A7)
000210e2 4e 92                    |N       |		JSR	(A2)
000210e4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000210e6 4e 93                    |N       |		JSR	(A3)
000210e8 de fc 00 20              |        |		ADDA.W	#0x20,A7
000210ec 20 4f                    | O      |		MOVEA.L	A7,A0
000210ee 43 fa f0 8a              |C       |		LEA.L	0x2017a,A1
000210f2 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
000210f4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000210f6 51 c8 ff fc              |Q       |		DBF	D0,0x210f4
000210fa 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000210fc 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021100 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021102 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
00021106 4e 92                    |N       |		JSR	(A2)
00021108 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002110a 48 78 00 00              |Hx      |		PEA.L	0x0
0002110e 48 78 00 02              |Hx      |		PEA.L	0x2
00021112 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00021118 de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002111c 2d 5f 00 08              |-_      |		MOVE.L	(A7)+,(A6+0x8)
00021120 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00021124 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
00021128 4e 5e                    |N^      |		UNLK	A6
0002112a 4e 75                    |Nu      |		RTS
0002112c ; --------------------------------------------------------------------------------------
0002112c ; OMSI PASCAL Function
0002112c ;    <LVAR  0x008 4(w)>
0002112c ; --------------------------------------------------------------------------------------
0002112c 4e 56 ff aa              |NV      |		LINK.W	A6,#0xffaa
00021130 bf d5                    |        |		CMPA.L	(A5),A7
00021132 62 06                    |b       |		BHI	0x2113a
00021134 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021138 4e 76                    |Nv      |		TRAPV
0002113a de fc 00 56              |   V    |		ADDA.W	#0x56,A7
0002113e 48 e7 e0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D2+D1+D0,-(A7)
00021142 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021148 47 f9 00 01 03 e0        |G       |		LEA.L	WriteConsoleStringCrLf(str : String),A3
0002114e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021150 74 12                    |t       |		MOVEQ.L	#0x12,D2
00021152 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00021156 20 4f                    | O      |		MOVEA.L	A7,A0
00021158 43 fa f1 d4              |C       |		LEA.L	0x2032e,A1
0002115c 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002115e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021160 51 c8 ff fc              |Q       |		DBF	D0,0x2115e
00021164 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021166 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002116a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002116c 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00021170 4e 92                    |N       |		JSR	(A2)
00021172 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021174 4e 93                    |N       |		JSR	(A3)
00021176 de c2                    |        |		ADDA.W	D2,A7
00021178 41 fa f1 62              |A  b    |		LEA.L	0x202dc,A0
0002117c 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
0002117e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021180 51 c8 ff fc              |Q       |		DBF	D0,0x2117e
00021184 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021186 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002118a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002118c 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
00021190 4e 92                    |N       |		JSR	(A2)
00021192 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021194 4e 93                    |N       |		JSR	(A3)
00021196 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
0002119a 41 fa f1 68              |A  h    |		LEA.L	0x20304,A0
0002119e 70 09                    |p       |		MOVEQ.L	#0x09,D0
000211a0 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000211a2 51 c8 ff fc              |Q       |		DBF	D0,0x211a0
000211a6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000211a8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000211ac 3f 01                    |?       |		MOVE.W	D1,-(A7)
000211ae 3f 3c 00 28              |?< (    |		MOVE.W	#0x28,-(A7)
000211b2 4e 92                    |N       |		JSR	(A2)
000211b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211b6 4e 93                    |N       |		JSR	(A3)
000211b8 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000211ba 20 4f                    | O      |		MOVEA.L	A7,A0
000211bc 43 fa f1 46              |C  F    |		LEA.L	0x20304,A1
000211c0 70 28                    |p(      |		MOVEQ.L	#0x28,D0
000211c2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000211c4 51 c8 ff fc              |Q       |		DBF	D0,0x211c2
000211c8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000211ca 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000211ce 3f 01                    |?       |		MOVE.W	D1,-(A7)
000211d0 3f 3c 00 29              |?< )    |		MOVE.W	#0x29,-(A7)
000211d4 4e 92                    |N       |		JSR	(A2)
000211d6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211d8 4e 93                    |N       |		JSR	(A3)
000211da de c2                    |        |		ADDA.W	D2,A7
000211dc 20 4f                    | O      |		MOVEA.L	A7,A0
000211de 43 fa f0 c2              |C       |		LEA.L	0x202a2,A1
000211e2 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
000211e4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000211e6 51 c8 ff fc              |Q       |		DBF	D0,0x211e4
000211ea 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000211ec 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000211f0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000211f2 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
000211f6 4e 92                    |N       |		JSR	(A2)
000211f8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211fa 48 78 00 00              |Hx      |		PEA.L	0x0
000211fe 48 78 00 02              |Hx      |		PEA.L	0x2
00021202 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00021208 de fc 00 0c              |        |		ADDA.W	#0xc,A7
0002120c 2d 5f 00 08              |-_      |		MOVE.L	(A7)+,(A6+0x8)
00021210 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00021214 4c df 0f 07              |L       |		MOVEM.L	(A7)+,D0+D1+D2+A0+A1+A2+A3
00021218 4e 5e                    |N^      |		UNLK	A6
0002121a 4e 75                    |Nu      |		RTS
0002121c ; --------------------------------------------------------------------------------------
0002121c ; OMSI PASCAL Function
0002121c ;    <LVAR  0x008 4(w)>
0002121c ; --------------------------------------------------------------------------------------
0002121c 4e 56 ff b8              |NV      |		LINK.W	A6,#0xffb8
00021220 bf d5                    |        |		CMPA.L	(A5),A7
00021222 62 06                    |b       |		BHI	0x2122a
00021224 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021228 4e 76                    |Nv      |		TRAPV
0002122a de fc 00 48              |   H    |		ADDA.W	#0x48,A7
0002122e 48 e7 c0 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D1+D0,-(A7)
00021232 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021238 47 f9 00 01 03 e0        |G       |		LEA.L	WriteConsoleStringCrLf(str : String),A3
0002123e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021240 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00021244 20 4f                    | O      |		MOVEA.L	A7,A0
00021246 43 fa f1 3e              |C  >    |		LEA.L	0x20386,A1
0002124a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002124c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002124e 51 c8 ff fc              |Q       |		DBF	D0,0x2124c
00021252 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021254 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021258 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002125a 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
0002125e 4e 92                    |N       |		JSR	(A2)
00021260 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021262 4e 93                    |N       |		JSR	(A3)
00021264 de fc 00 12              |        |		ADDA.W	#0x12,A7
00021268 41 fa f1 04              |A       |		LEA.L	0x2036e,A0
0002126c 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002126e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021270 51 c8 ff fc              |Q       |		DBF	D0,0x2126e
00021274 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021276 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002127a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002127c 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
00021280 4e 92                    |N       |		JSR	(A2)
00021282 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021284 4e 93                    |N       |		JSR	(A3)
00021286 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
0002128a 41 fa f0 fa              |A       |		LEA.L	0x20386,A0
0002128e 70 05                    |p       |		MOVEQ.L	#0x05,D0
00021290 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021292 51 c8 ff fc              |Q       |		DBF	D0,0x21290
00021296 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021298 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002129c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002129e 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
000212a2 4e 92                    |N       |		JSR	(A2)
000212a4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000212a6 4e 93                    |N       |		JSR	(A3)
000212a8 20 4f                    | O      |		MOVEA.L	A7,A0
000212aa 43 fa f0 90              |C       |		LEA.L	0x2033c,A1
000212ae 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
000212b0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000212b2 51 c8 ff fc              |Q       |		DBF	D0,0x212b0
000212b6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000212b8 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000212bc 3f 01                    |?       |		MOVE.W	D1,-(A7)
000212be 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
000212c2 4e 92                    |N       |		JSR	(A2)
000212c4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000212c6 48 78 00 00              |Hx      |		PEA.L	0x0
000212ca 48 78 00 01              |Hx      |		PEA.L	0x1
000212ce 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
000212d4 de fc 00 0c              |        |		ADDA.W	#0xc,A7
000212d8 2d 5f 00 08              |-_      |		MOVE.L	(A7)+,(A6+0x8)
000212dc de fc 00 1c              |        |		ADDA.W	#0x1c,A7
000212e0 4c df 0f 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1+A2+A3
000212e4 4e 5e                    |N^      |		UNLK	A6
000212e6 4e 75                    |Nu      |		RTS
000212e8 ; --------------------------------------------------------------------------------------
000212e8 ; OMSI PASCAL Function
000212e8 ;    <LVAR  0x00c 4(r)>
000212e8 ;    <LVAR  0x008 4(r)>
000212e8 ;    <LVAR -0x022 @>
000212e8 ;    <LVAR -0x042 @>
000212e8 ;    <LVAR -0x062 @>
000212e8 ;    <LVAR -0x082 @>
000212e8 ;    <LVAR -0x0a2 @>
000212e8 ; --------------------------------------------------------------------------------------
000212e8 4e 56 fe f6              |NV      |		LINK.W	A6,#0xfef6
000212ec bf d5                    |        |		CMPA.L	(A5),A7
000212ee 62 06                    |b       |		BHI	0x212f6
000212f0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000212f4 4e 76                    |Nv      |		TRAPV
000212f6 de fc 00 66              |   f    |		ADDA.W	#0x66,A7
000212fa 48 e7 fd f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7)
000212fe 45 ee 00 08              |E       |		LEA.L	(A6+0x8),A2
00021302 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00021308 74 20                    |t       |		MOVEQ.L	#0x20,D2
0002130a 26 3c 00 00 00 ff        |&<      |		MOVE.L	#0xff,D3
00021310 78 01                    |x       |		MOVEQ.L	#0x01,D4
00021312 7a 14                    |z       |		MOVEQ.L	#0x14,D5
00021314 41 ee ff 5e              |A  ^    |		LEA.L	(A6-0xa2),A0
00021318 43 fa f9 a2              |C       |		LEA.L	0x20cbc,A1
0002131c 70 07                    |p       |		MOVEQ.L	#0x07,D0
0002131e 20 d9                    |        |		MOVE.L	(A1)+,(A0)+
00021320 51 c8 ff fc              |Q       |		DBF	D0,0x2131e
00021324 41 ee ff 7e              |A  ~    |		LEA.L	(A6-0x82),A0
00021328 43 fa f9 b2              |C       |		LEA.L	0x20cdc,A1
0002132c 70 07                    |p       |		MOVEQ.L	#0x07,D0
0002132e 20 d9                    |        |		MOVE.L	(A1)+,(A0)+
00021330 51 c8 ff fc              |Q       |		DBF	D0,0x2132e
00021334 41 ee ff 9e              |A       |		LEA.L	(A6-0x62),A0
00021338 43 fa f9 c2              |C       |		LEA.L	0x20cfc,A1
0002133c 70 07                    |p       |		MOVEQ.L	#0x07,D0
0002133e 20 d9                    |        |		MOVE.L	(A1)+,(A0)+
00021340 51 c8 ff fc              |Q       |		DBF	D0,0x2133e
00021344 41 ee ff be              |A       |		LEA.L	(A6-0x42),A0
00021348 43 fa f9 d2              |C       |		LEA.L	0x20d1c,A1
0002134c 70 07                    |p       |		MOVEQ.L	#0x07,D0
0002134e 20 d9                    |        |		MOVE.L	(A1)+,(A0)+
00021350 51 c8 ff fc              |Q       |		DBF	D0,0x2134e
00021354 41 ee ff de              |A       |		LEA.L	(A6-0x22),A0
00021358 43 fa f9 e2              |C       |		LEA.L	0x20d3c,A1
0002135c 70 07                    |p       |		MOVEQ.L	#0x07,D0
0002135e 20 d9                    |        |		MOVE.L	(A1)+,(A0)+
00021360 51 c8 ff fc              |Q       |		DBF	D0,0x2135e
00021364 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021368 43 fa f0 3e              |C  >    |		LEA.L	0x203a8,A1
0002136c 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002136e 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
00021370 51 c8 ff fc              |Q       |		DBF	D0,0x2136e
00021374 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021376 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002137a 3f 04                    |?       |		MOVE.W	D4,-(A7)
0002137c 3f 05                    |?       |		MOVE.W	D5,-(A7)
0002137e 4e 93                    |N       |		JSR	(A3)
00021380 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021382 4e ba fa d8              |N       |		JSR	0x20e5c
00021386 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021388 30 1f                    |0       |		MOVE.W	(A7)+,D0
0002138a 41 83                    |A       |		CHK.W	D3,D0
0002138c de c5                    |        |		ADDA.W	D5,A7
0002138e 30 80                    |0       |		MOVE.W	D0,(A0)
00021390 41 ee ff 5e              |A  ^    |		LEA.L	(A6-0xa2),A0
00021394 32 00                    |2       |		MOVE.W	D0,D1
00021396 e6 49                    | I      |		LSR.W	#0x3,D1
00021398 b2 42                    | B      |		CMP.W	D2,D1
0002139a 6d 04                    |m       |		BLT	0x213a0
0002139c 72 00                    |r       |		MOVEQ.L	#0x00,D1
0002139e 60 04                    |`       |		BRA	0x213a4
000213a0 01 30 10 00              | 0      |		BTST.B	D0,(A0+D1.W)
000213a4 67 04                    |g       |		BEQ	0x213aa
000213a6 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000213a8 60 62                    |`b      |		BRA	0x2140c
000213aa 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000213ac 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000213ae 20 4f                    | O      |		MOVEA.L	A7,A0
000213b0 43 fa ef f6              |C       |		LEA.L	0x203a8,A1
000213b4 72 04                    |r       |		MOVEQ.L	#0x04,D1
000213b6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000213b8 51 c9 ff fc              |Q       |		DBF	D1,0x213b6
000213bc 41 fa f0 02              |A       |		LEA.L	0x203c0,A0
000213c0 72 08                    |r       |		MOVEQ.L	#0x08,D1
000213c2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000213c4 51 c9 ff fc              |Q       |		DBF	D1,0x213c2
000213c8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000213ca 48 6f 00 1a              |Ho      |		PEA.L	(A7+0x1a)
000213ce 3f 04                    |?       |		MOVE.W	D4,-(A7)
000213d0 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
000213d4 4e 93                    |N       |		JSR	(A3)
000213d6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000213d8 32 00                    |2       |		MOVE.W	D0,D1
000213da 48 c1                    |H       |		EXTW.L	D1
000213dc 2f 01                    |/       |		MOVE.L	D1,-(A7)
000213de 48 78 00 04              |Hx      |		PEA.L	0x4
000213e2 4e b9 00 01 02 e8        |N       |		JSR	Long2HexString(val : Long; ndig : Long) : String
000213e8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000213ea 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
000213ee 3f 04                    |?       |		MOVE.W	D4,-(A7)
000213f0 3f 3c 00 12              |?<      |		MOVE.W	#0x12,-(A7)
000213f4 4e 93                    |N       |		JSR	(A3)
000213f6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000213f8 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
000213fe de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021402 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021408 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
0002140c 4a 07                    |J       |		TST.B	D7
0002140e 67 00 ff 54              |g  T    |		BEQ	0x21364
00021412 41 ee ff 7e              |A  ~    |		LEA.L	(A6-0x82),A0
00021416 32 00                    |2       |		MOVE.W	D0,D1
00021418 e6 49                    | I      |		LSR.W	#0x3,D1
0002141a b2 42                    | B      |		CMP.W	D2,D1
0002141c 6d 04                    |m       |		BLT	0x21422
0002141e 72 00                    |r       |		MOVEQ.L	#0x00,D1
00021420 60 04                    |`       |		BRA	0x21426
00021422 01 30 10 00              | 0      |		BTST.B	D0,(A0+D1.W)
00021426 67 14                    |g       |		BEQ	0x2143c
00021428 20 52                    | R      |		MOVEA.L	(A2),A0
0002142a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002142c 4e ba fb 66              |N  f    |		JSR	0x20f94
00021430 20 1f                    |        |		MOVE.L	(A7)+,D0
00021432 b0 83                    |        |		CMP.L	D3,D0
00021434 63 02                    |c       |		BLS	0x21438
00021436 4e 4f                    |NO      |		TRAP	#15
00021438 30 80                    |0       |		MOVE.W	D0,(A0)
0002143a 60 70                    |`p      |		BRA	0x214ac
0002143c 32 00                    |2       |		MOVE.W	D0,D1
0002143e e6 49                    | I      |		LSR.W	#0x3,D1
00021440 b2 42                    | B      |		CMP.W	D2,D1
00021442 6d 04                    |m       |		BLT	0x21448
00021444 72 00                    |r       |		MOVEQ.L	#0x00,D1
00021446 60 04                    |`       |		BRA	0x2144c
00021448 01 36 10 9e              | 6      |		BTST.B	D0,(A6+D1.W-#0x62)
0002144c 67 12                    |g       |		BEQ	0x21460
0002144e 20 52                    | R      |		MOVEA.L	(A2),A0
00021450 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021452 4e ba fb 94              |N       |		JSR	0x20fe8
00021456 20 1f                    |        |		MOVE.L	(A7)+,D0
00021458 b0 83                    |        |		CMP.L	D3,D0
0002145a 63 02                    |c       |		BLS	0x2145e
0002145c 4e 4f                    |NO      |		TRAP	#15
0002145e 60 d8                    |`       |		BRA	0x21438
00021460 32 00                    |2       |		MOVE.W	D0,D1
00021462 e6 49                    | I      |		LSR.W	#0x3,D1
00021464 b2 42                    | B      |		CMP.W	D2,D1
00021466 6d 04                    |m       |		BLT	0x2146c
00021468 72 00                    |r       |		MOVEQ.L	#0x00,D1
0002146a 60 04                    |`       |		BRA	0x21470
0002146c 01 36 10 be              | 6      |		BTST.B	D0,(A6+D1.W-#0x42)
00021470 67 12                    |g       |		BEQ	0x21484
00021472 20 52                    | R      |		MOVEA.L	(A2),A0
00021474 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021476 4e ba fc b4              |N       |		JSR	0x2112c
0002147a 20 1f                    |        |		MOVE.L	(A7)+,D0
0002147c b0 83                    |        |		CMP.L	D3,D0
0002147e 63 02                    |c       |		BLS	0x21482
00021480 4e 4f                    |NO      |		TRAP	#15
00021482 60 b4                    |`       |		BRA	0x21438
00021484 32 00                    |2       |		MOVE.W	D0,D1
00021486 e6 49                    | I      |		LSR.W	#0x3,D1
00021488 b2 42                    | B      |		CMP.W	D2,D1
0002148a 6d 04                    |m       |		BLT	0x21490
0002148c 72 00                    |r       |		MOVEQ.L	#0x00,D1
0002148e 60 04                    |`       |		BRA	0x21494
00021490 01 36 10 de              | 6      |		BTST.B	D0,(A6+D1.W-#0x22)
00021494 67 12                    |g       |		BEQ	0x214a8
00021496 20 52                    | R      |		MOVEA.L	(A2),A0
00021498 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002149a 4e ba fd 80              |N       |		JSR	0x2121c
0002149e 20 1f                    |        |		MOVE.L	(A7)+,D0
000214a0 b0 83                    |        |		CMP.L	D3,D0
000214a2 63 02                    |c       |		BLS	0x214a6
000214a4 4e 4f                    |NO      |		TRAP	#15
000214a6 60 90                    |`       |		BRA	0x21438
000214a8 20 52                    | R      |		MOVEA.L	(A2),A0
000214aa 42 50                    |BP      |		CLR.W	(A0)
000214ac 4c df 0f bf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3
000214b0 4e 5e                    |N^      |		UNLK	A6
000214b2 4e 75                    |Nu      |		RTS
000214b4 ; --------------------------------------------------------------------------------------
000214b4 ; OMSI PASCAL Function
000214b4 ;    <LVAR  0x00c 2(r)>
000214b4 ;    <LVAR  0x008 4(r)>
000214b4 ;    <LVAR -0x010 @>
000214b4 ;    <LVAR -0x014 @>
000214b4 ;    <LVAR -0x016 @ 1(r)>
000214b4 ;    <LVAR -0x018 2(r)>
000214b4 ;    <LVAR -0x01a 2(r)>
000214b4 ;    <LVAR -0x01c 2(w)>
000214b4 ;    <LVAR -0x01e 2(r)>
000214b4 ;    <LVAR -0x020 2(r)>
000214b4 ;    <LVAR -0x022 2(w)>
000214b4 ;    <LVAR -0x024 2(r)>
000214b4 ;    <LVAR -0x026 @ 2(r)>
000214b4 ; --------------------------------------------------------------------------------------
000214b4 4e 56 ff 86              |NV      |		LINK.W	A6,#0xff86
000214b8 bf d5                    |        |		CMPA.L	(A5),A7
000214ba 62 06                    |b       |		BHI	0x214c2
000214bc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000214c0 4e 76                    |Nv      |		TRAPV
000214c2 de fc 00 54              |   T    |		ADDA.W	#0x54,A7
000214c6 48 e7 c0 c0              |H       |		MOVEM.L	A1+A0+D1+D0,-(A7)
000214ca 72 01                    |r       |		MOVEQ.L	#0x01,D1
000214cc 42 6e ff da              |Bn      |		CLR.W	(A6-0x26)
000214d0 42 6e ff dc              |Bn      |		CLR.W	(A6-0x24)
000214d4 3d 7c 00 03 ff de        |=|      |		MOVE.W	#0x3,(A6-0x22)
000214da 42 6e ff e0              |Bn      |		CLR.W	(A6-0x20)
000214de 42 6e ff e2              |Bn      |		CLR.W	(A6-0x1e)
000214e2 30 2e 00 0c              |0.      |		MOVE.W	(A6+0xc),D0
000214e6 e1 40                    | @      |		ASL.W	#0x8,D0
000214e8 3d 40 ff e4              |=@      |		MOVE.W	D0,(A6-0x1c)
000214ec 42 6e ff e6              |Bn      |		CLR.W	(A6-0x1a)
000214f0 42 6e ff e8              |Bn      |		CLR.W	(A6-0x18)
000214f4 48 6e ff da              |Hn      |		PEA.L	(A6-0x26)
000214f8 41 ee ff ec              |A       |		LEA.L	(A6-0x14),A0
000214fc 2f 08                    |/       |		MOVE.L	A0,-(A7)
000214fe 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021500 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00021506 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021508 3e 81                    |>       |		MOVE.W	D1,(A7)
0002150a 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
0002150e 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00021514 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021516 4a 2e ff ea              |J.      |		TST.B	(A6-0x16)
0002151a 66 34                    |f4      |		BNE	0x21550
0002151c 9e fc 00 32              |   2    |		SUBA.W	#0x32,A7
00021520 20 4f                    | O      |		MOVEA.L	A7,A0
00021522 43 fa ee 9c              |C       |		LEA.L	0x203c0,A1
00021526 70 30                    |p0      |		MOVEQ.L	#0x30,D0
00021528 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002152a 51 c8 ff fc              |Q       |		DBF	D0,0x21528
0002152e 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00021532 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021534 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021538 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002153a 3f 3c 00 31              |?< 1    |		MOVE.W	#0x31,-(A7)
0002153e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021544 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021546 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002154c de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00021550 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021554 43 ee ff f0              |C       |		LEA.L	(A6-0x10),A1
00021558 70 0f                    |p       |		MOVEQ.L	#0x0f,D0
0002155a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002155c 51 c8 ff fc              |Q       |		DBF	D0,0x2155a
00021560 4c df 03 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0+A1
00021564 4e 5e                    |N^      |		UNLK	A6
00021566 4e 75                    |Nu      |		RTS
00021568 ; --------------------------------------------------------------------------------------
00021568 ; OMSI PASCAL Function
00021568 ;    <LVAR  0x008 2(r)>
00021568 ;    <LVAR -0x008 2(r)>
00021568 ;    <LVAR -0x010 @>
00021568 ;    <LVAR -0x012 @ 1(r)>
00021568 ;    <LVAR -0x014 2(r)>
00021568 ;    <LVAR -0x016 2(r)>
00021568 ;    <LVAR -0x018 2(w)>
00021568 ;    <LVAR -0x01a 2(r)>
00021568 ;    <LVAR -0x01c 2(r)>
00021568 ;    <LVAR -0x01e 2(w)>
00021568 ;    <LVAR -0x020 2(r)>
00021568 ;    <LVAR -0x022 @ 2(r)>
00021568 ; --------------------------------------------------------------------------------------
00021568 4e 56 ff 9a              |NV      |		LINK.W	A6,#0xff9a
0002156c bf d5                    |        |		CMPA.L	(A5),A7
0002156e 62 06                    |b       |		BHI	0x21576
00021570 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021574 4e 76                    |Nv      |		TRAPV
00021576 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
0002157a 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
0002157e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021580 42 6e ff de              |Bn      |		CLR.W	(A6-0x22)
00021584 42 6e ff e0              |Bn      |		CLR.W	(A6-0x20)
00021588 3d 7c 00 03 ff e2        |=|      |		MOVE.W	#0x3,(A6-0x1e)
0002158e 42 6e ff e4              |Bn      |		CLR.W	(A6-0x1c)
00021592 42 6e ff e6              |Bn      |		CLR.W	(A6-0x1a)
00021596 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
0002159a e1 40                    | @      |		ASL.W	#0x8,D0
0002159c 06 40 00 1b              | @      |		ADDI.W	#0x001b,D0
000215a0 3d 40 ff e8              |=@      |		MOVE.W	D0,(A6-0x18)
000215a4 42 6e ff ea              |Bn      |		CLR.W	(A6-0x16)
000215a8 42 6e ff ec              |Bn      |		CLR.W	(A6-0x14)
000215ac 48 6e ff de              |Hn      |		PEA.L	(A6-0x22)
000215b0 48 78 00 00              |Hx      |		PEA.L	0x0
000215b4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000215b6 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
000215bc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000215be 3e 81                    |>       |		MOVE.W	D1,(A7)
000215c0 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
000215c4 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
000215ca 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000215cc 4a 2e ff ee              |J.      |		TST.B	(A6-0x12)
000215d0 66 2a                    |f*      |		BNE	0x215fc
000215d2 41 fa ee 46              |A  F    |		LEA.L	0x2041a,A0
000215d6 70 09                    |p       |		MOVEQ.L	#0x09,D0
000215d8 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000215da 51 c8 ff fc              |Q       |		DBF	D0,0x215d8
000215de 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000215e0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000215e4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000215e6 3f 3c 00 28              |?< (    |		MOVE.W	#0x28,-(A7)
000215ea 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000215f0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000215f2 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000215f8 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000215fc 3f 2e 00 08              |?.      |		MOVE.W	(A6+0x8),-(A7)
00021600 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00021604 4e ba fe ae              |N       |		JSR	0x214b4
00021608 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002160a 30 2e ff f8              |0.      |		MOVE.W	(A6-0x8),D0
0002160e 02 40 00 40              | @ @    |		ANDI.W	#0x0040,D0
00021612 67 e8                    |g       |		BEQ	0x215fc
00021614 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
00021618 4e 5e                    |N^      |		UNLK	A6
0002161a 4e 75                    |Nu      |		RTS
0002161c ; --------------------------------------------------------------------------------------
0002161c ; OMSI PASCAL Function
0002161c ;    <LVAR  0x00c 2(r)>
0002161c ;    <LVAR  0x00a 2(r)>
0002161c ;    <LVAR  0x008 2(r)>
0002161c ;    <LVAR -0x002 @ 1(r)>
0002161c ;    <LVAR -0x004 2(r)>
0002161c ;    <LVAR -0x006 2(w)>
0002161c ;    <LVAR -0x008 2(w)>
0002161c ;    <LVAR -0x00a 2(r)>
0002161c ;    <LVAR -0x00c 2(r)>
0002161c ;    <LVAR -0x00e 2(w)>
0002161c ;    <LVAR -0x010 2(r)>
0002161c ;    <LVAR -0x012 @ 2(r)>
0002161c ;    <LVAR -0x016 @ 4(w)>
0002161c ; --------------------------------------------------------------------------------------
0002161c 4e 56 ff a8              |NV      |		LINK.W	A6,#0xffa8
00021620 bf d5                    |        |		CMPA.L	(A5),A7
00021622 62 06                    |b       |		BHI	0x2162a
00021624 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021628 4e 76                    |Nv      |		TRAPV
0002162a de fc 00 42              |   B    |		ADDA.W	#0x42,A7
0002162e 48 e7 c0 80              |H       |		MOVEM.L	A0+D1+D0,-(A7)
00021632 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021634 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
00021638 e1 40                    | @      |		ASL.W	#0x8,D0
0002163a d0 6e 00 0a              | n      |		ADD.W	(A6+0xa),D0
0002163e 48 c0                    |H       |		EXTW.L	D0
00021640 2d 40 ff ea              |-@      |		MOVE.L	D0,(A6-0x16)
00021644 42 6e ff ee              |Bn      |		CLR.W	(A6-0x12)
00021648 42 6e ff f0              |Bn      |		CLR.W	(A6-0x10)
0002164c 3d 7c 00 03 ff f2        |=|      |		MOVE.W	#0x3,(A6-0xe)
00021652 42 6e ff f4              |Bn      |		CLR.W	(A6-0xc)
00021656 42 6e ff f6              |Bn      |		CLR.W	(A6-0xa)
0002165a 30 2e 00 0c              |0.      |		MOVE.W	(A6+0xc),D0
0002165e e1 40                    | @      |		ASL.W	#0x8,D0
00021660 06 40 00 1a              | @      |		ADDI.W	#0x001a,D0
00021664 3d 40 ff f8              |=@      |		MOVE.W	D0,(A6-0x8)
00021668 3d 7c 00 02 ff fa        |=|      |		MOVE.W	#0x2,(A6-0x6)
0002166e 42 6e ff fc              |Bn      |		CLR.W	(A6-0x4)
00021672 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
00021676 41 ee ff ea              |A       |		LEA.L	(A6-0x16),A0
0002167a 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002167c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002167e 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00021684 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021686 3e 81                    |>       |		MOVE.W	D1,(A7)
00021688 48 6e ff fe              |Hn      |		PEA.L	(A6-0x2)
0002168c 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00021692 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021694 4a 2e ff fe              |J.      |		TST.B	(A6-0x2)
00021698 66 2a                    |f*      |		BNE	0x216c4
0002169a 41 fa ed a4              |A       |		LEA.L	0x20440,A0
0002169e 70 12                    |p       |		MOVEQ.L	#0x12,D0
000216a0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000216a2 51 c8 ff fc              |Q       |		DBF	D0,0x216a0
000216a6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000216a8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000216ac 3f 01                    |?       |		MOVE.W	D1,-(A7)
000216ae 3f 3c 00 26              |?< &    |		MOVE.W	#0x26,-(A7)
000216b2 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000216b8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216ba 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000216c0 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
000216c4 4c df 01 03              |L       |		MOVEM.L	(A7)+,D0+D1+A0
000216c8 4e 5e                    |N^      |		UNLK	A6
000216ca 4e 75                    |Nu      |		RTS
000216cc ; --------------------------------------------------------------------------------------
000216cc ; OMSI PASCAL Function
000216cc ;    <LVAR  0x010 2(r)>
000216cc ;    <LVAR  0x00c 4(r)>
000216cc ;    <LVAR  0x008 4(r)>
000216cc ;    <LVAR -0x00c 2(r)>
000216cc ;    <LVAR -0x014 @>
000216cc ;    <LVAR -0x026 2(r)>
000216cc ;    <LVAR -0x028 2(r)>
000216cc ;    <LVAR -0x030 @>
000216cc ;    <LVAR -0x032 @>
000216cc ;    <LVAR -0x034 2(r)>
000216cc ;    <LVAR -0x036 2(w)>
000216cc ;    <LVAR -0x038 2(w)>
000216cc ;    <LVAR -0x03a 2(r)>
000216cc ;    <LVAR -0x03c 2(r)>
000216cc ;    <LVAR -0x03e 2(w)>
000216cc ;    <LVAR -0x040 2(r)>
000216cc ;    <LVAR -0x042 @ 2(r)>
000216cc ; --------------------------------------------------------------------------------------
000216cc 4e 56 ff 7a              |NV z    |		LINK.W	A6,#0xff7a
000216d0 bf d5                    |        |		CMPA.L	(A5),A7
000216d2 62 06                    |b       |		BHI	0x216da
000216d4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000216d8 4e 76                    |Nv      |		TRAPV
000216da de fc 00 44              |   D    |		ADDA.W	#0x44,A7
000216de 48 e7 e1 c0              |H       |		MOVEM.L	A1+A0+D7+D2+D1+D0,-(A7)
000216e2 72 01                    |r       |		MOVEQ.L	#0x01,D1
000216e4 74 19                    |t       |		MOVEQ.L	#0x19,D2
000216e6 42 6e ff be              |Bn      |		CLR.W	(A6-0x42)
000216ea 42 6e ff c0              |Bn      |		CLR.W	(A6-0x40)
000216ee 3d 7c 00 03 ff c2        |=|      |		MOVE.W	#0x3,(A6-0x3e)
000216f4 42 6e ff c4              |Bn      |		CLR.W	(A6-0x3c)
000216f8 42 6e ff c6              |Bn      |		CLR.W	(A6-0x3a)
000216fc 30 2e 00 10              |0.      |		MOVE.W	(A6+0x10),D0
00021700 e1 40                    | @      |		ASL.W	#0x8,D0
00021702 d0 42                    | B      |		ADD.W	D2,D0
00021704 3d 40 ff c8              |=@      |		MOVE.W	D0,(A6-0x38)
00021708 3d 7c 00 1b ff ca        |=|      |		MOVE.W	#0x1b,(A6-0x36)
0002170e 42 6e ff cc              |Bn      |		CLR.W	(A6-0x34)
00021712 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021714 48 6e ff be              |Hn      |		PEA.L	(A6-0x42)
00021718 41 ee ff d0              |A       |		LEA.L	(A6-0x30),A0
0002171c 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002171e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021720 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00021726 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021728 3e 81                    |>       |		MOVE.W	D1,(A7)
0002172a 48 6e ff ce              |Hn      |		PEA.L	(A6-0x32)
0002172e 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
00021734 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021736 3e ae 00 10              |>       |		MOVE.W	(A6+0x10),(A7)
0002173a 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
0002173e 4e ba fd 74              |N  t    |		JSR	0x214b4
00021742 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021744 30 2e ff f4              |0.      |		MOVE.W	(A6-0xc),D0
00021748 02 40 40 00              | @@     |		ANDI.W	#0x4000,D0
0002174c 67 40                    |g@      |		BEQ	0x2178e
0002174e 52 87                    |R       |		ADDQ.L	#0x1,D7
00021750 0c 87 00 00 00 02        |        |		CMPI.L	#0x00000002,D7
00021756 6c 04                    |l       |		BGE	0x2175c
00021758 60 ba                    |`       |		BRA	0x21714
0002175a 60 32                    |`2      |		.XXX[0x2]
0002175c 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
00021760 20 4f                    | O      |		MOVEA.L	A7,A0
00021762 43 fa ec dc              |C       |		LEA.L	0x20440,A1
00021766 70 18                    |p       |		MOVEQ.L	#0x18,D0
00021768 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002176a 51 c8 ff fc              |Q       |		DBF	D0,0x21768
0002176e 1f 3c 00 0e              | <      |		MOVE.B	#0x0e,-(A7)
00021772 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021774 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021778 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002177a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002177c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00021782 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021784 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002178a de fc 00 20              |        |		ADDA.W	#0x20,A7
0002178e 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
00021792 30 2e ff d8              |0.      |		MOVE.W	(A6-0x28),D0
00021796 e0 48                    | H      |		LSR.W	#0x8,D0
00021798 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
0002179c 30 80                    |0       |		MOVE.W	D0,(A0)
0002179e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
000217a2 30 ae ff da              |0       |		MOVE.W	(A6-0x26),(A0)
000217a6 02 50 00 ff              | P      |		ANDI.W	#0x00ff,(A0)
000217aa 4c df 03 87              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D7+A0+A1
000217ae 4e 5e                    |N^      |		UNLK	A6
000217b0 4e 75                    |Nu      |		RTS
000217b2 ; --------------------------------------------------------------------------------------
000217b2 ; OMSI PASCAL Function
000217b2 ;    <LVAR  0x014 2(r)>
000217b2 ;    <LVAR  0x012 2(r)>
000217b2 ;    <LVAR  0x010 2(r)>
000217b2 ;    <LVAR  0x00c 4(r)>
000217b2 ;    <LVAR  0x008 4(r)>
000217b2 ;    <LVAR -0x00a 2(r)>
000217b2 ;    <LVAR -0x012 @>
000217b2 ; --------------------------------------------------------------------------------------
000217b2 4e 56 ff d4              |NV      |		LINK.W	A6,#0xffd4
000217b6 bf d5                    |        |		CMPA.L	(A5),A7
000217b8 62 06                    |b       |		BHI	0x217c0
000217ba 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000217be 4e 76                    |Nv      |		TRAPV
000217c0 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
000217c4 48 e7 80 c0              |H       |		MOVEM.L	A1+A0+D0,-(A7)
000217c8 43 ee 00 14              |C       |		LEA.L	(A6+0x14),A1
000217cc 3f 11                    |?       |		MOVE.W	(A1),-(A7)
000217ce 4e ba fd 98              |N       |		JSR	0x21568
000217d2 3e 91                    |>       |		MOVE.W	(A1),(A7)
000217d4 3f 2e 00 12              |?.      |		MOVE.W	(A6+0x12),-(A7)
000217d8 3f 2e 00 10              |?.      |		MOVE.W	(A6+0x10),-(A7)
000217dc 4e ba fe 3e              |N  >    |		JSR	0x2161c
000217e0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000217e2 3f 11                    |?       |		MOVE.W	(A1),-(A7)
000217e4 48 6e ff ee              |Hn      |		PEA.L	(A6-0x12)
000217e8 4e ba fc ca              |N       |		JSR	0x214b4
000217ec 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000217ee 30 2e ff f6              |0.      |		MOVE.W	(A6-0xa),D0
000217f2 02 40 00 80              | @      |		ANDI.W	#0x0080,D0
000217f6 66 ea                    |f       |		BNE	0x217e2
000217f8 3f 11                    |?       |		MOVE.W	(A1),-(A7)
000217fa 20 6e 00 0c              | n      |		MOVEA.L	(A6+0xc),A0
000217fe 48 50                    |HP      |		PEA.L	(A0)
00021800 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021804 48 50                    |HP      |		PEA.L	(A0)
00021806 4e ba fe c4              |N       |		JSR	0x216cc
0002180a de fc 00 0a              |        |		ADDA.W	#0xa,A7
0002180e 4c df 03 01              |L       |		MOVEM.L	(A7)+,D0+A0+A1
00021812 4e 5e                    |N^      |		UNLK	A6
00021814 4e 75                    |Nu      |		RTS
00021816 ; --------------------------------------------------------------------------------------
00021816 ; OMSI PASCAL Function
00021816 ;    <LVAR  0x008 4(r)>
00021816 ;    <LVAR -0x016 @ 2(r)>
00021816 ;    <LVAR -0x01a 2(r)>
00021816 ;    <LVAR -0x01c 2(w)>
00021816 ;    <LVAR -0x022 2(w)>
00021816 ;    <LVAR -0x026 @>
00021816 ;    <LVAR -0x028 @>
00021816 ; --------------------------------------------------------------------------------------
00021816 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
0002181a bf d5                    |        |		CMPA.L	(A5),A7
0002181c 62 06                    |b       |		BHI	0x21824
0002181e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021822 4e 76                    |Nv      |		TRAPV
00021824 de fc 00 4c              |   L    |		ADDA.W	#0x4c,A7
00021828 48 e7 f0 e0              |H       |		MOVEM.L	A2+A1+A0+D3+D2+D1+D0,-(A7)
0002182c 45 ee ff ea              |E       |		LEA.L	(A6-0x16),A2
00021830 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021832 74 18                    |t       |		MOVEQ.L	#0x18,D2
00021834 76 03                    |v       |		MOVEQ.L	#0x03,D3
00021836 3d 43 ff de              |=C      |		MOVE.W	D3,(A6-0x22)
0002183a 42 6e ff e6              |Bn      |		CLR.W	(A6-0x1a)
0002183e 20 6e 00 08              | n      |		MOVEA.L	(A6+0x8),A0
00021842 43 fa ec 2e              |C  .    |		LEA.L	0x20472,A1
00021846 70 05                    |p       |		MOVEQ.L	#0x05,D0
00021848 2f 21                    |/!      |		MOVE.L	-(A1),-(A7)
0002184a 51 c8 ff fc              |Q       |		DBF	D0,0x21848
0002184e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021850 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021854 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021856 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021858 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002185e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021860 48 78 00 00              |Hx      |		PEA.L	0x0
00021864 48 78 00 03              |Hx      |		PEA.L	0x3
00021868 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
0002186e de fc 00 0c              |        |		ADDA.W	#0xc,A7
00021872 20 1f                    |        |		MOVE.L	(A7)+,D0
00021874 b0 83                    |        |		CMP.L	D3,D0
00021876 63 02                    |c       |		BLS	0x2187a
00021878 4e 4f                    |NO      |		TRAP	#15
0002187a de c2                    |        |		ADDA.W	D2,A7
0002187c 30 80                    |0       |		MOVE.W	D0,(A0)
0002187e e1 40                    | @      |		ASL.W	#0x8,D0
00021880 3d 40 ff e4              |=@      |		MOVE.W	D0,(A6-0x1c)
00021884 48 6e ff da              |Hn      |		PEA.L	(A6-0x26)
00021888 20 4a                    | J      |		MOVEA.L	A2,A0
0002188a 2f 08                    |/       |		MOVE.L	A0,-(A7)
0002188c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002188e 4e b9 00 01 02 04        |N       |		JSR	KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00021894 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021896 3e 81                    |>       |		MOVE.W	D1,(A7)
00021898 48 6e ff d8              |Hn      |		PEA.L	(A6-0x28)
0002189c 4e b9 00 01 02 06        |N       |		JSR	KC03_Wait_Disk_IO(a : W; VAR status : Byte)
000218a2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000218a4 4a 52                    |JR      |		TST.W	(A2)
000218a6 66 28                    |f(      |		BNE	0x218d0
000218a8 41 fa eb dc              |A       |		LEA.L	0x20486,A0
000218ac 70 04                    |p       |		MOVEQ.L	#0x04,D0
000218ae 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000218b0 51 c8 ff fc              |Q       |		DBF	D0,0x218ae
000218b4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000218b6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000218ba 3f 01                    |?       |		MOVE.W	D1,-(A7)
000218bc 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
000218c0 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000218c6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000218c8 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000218ce de c2                    |        |		ADDA.W	D2,A7
000218d0 4a 52                    |JR      |		TST.W	(A2)
000218d2 67 00 ff 6a              |g  j    |		BEQ	0x2183e
000218d6 4c df 07 0f              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+A0+A1+A2
000218da 4e 5e                    |N^      |		UNLK	A6
000218dc 4e 75                    |Nu      |		RTS
000218de ; --------------------------------------------------------------------------------------
000218de ; OMSI PASCAL Function
000218de ;    <LVAR  0x008 2(r)>
000218de ; --------------------------------------------------------------------------------------
000218de 4e 56 ff 86              |NV      |		LINK.W	A6,#0xff86
000218e2 bf d5                    |        |		CMPA.L	(A5),A7
000218e4 62 06                    |b       |		BHI	0x218ec
000218e6 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000218ea 4e 76                    |Nv      |		TRAPV
000218ec de fc 00 74              |   t    |		ADDA.W	#0x74,A7
000218f0 48 e7 ff e8              |H       |		MOVEM.L	A4+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000218f4 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000218fa 72 01                    |r       |		MOVEQ.L	#0x01,D1
000218fc 74 10                    |t       |		MOVEQ.L	#0x10,D2
000218fe 76 12                    |v       |		MOVEQ.L	#0x12,D3
00021900 78 16                    |x       |		MOVEQ.L	#0x16,D4
00021902 7a 14                    |z       |		MOVEQ.L	#0x14,D5
00021904 7c 1a                    ||       |		MOVEQ.L	#0x1a,D6
00021906 7e 0c                    |~       |		MOVEQ.L	#0x0c,D7
00021908 30 2e 00 08              |0.      |		MOVE.W	(A6+0x8),D0
0002190c 0c 40 00 99              | @      |		CMPI.W	#0x0099,D0
00021910 62 00 09 66              |b  f    |		BHI	switch@0x21916[0xa]
00021914 d0 40                    | @      |		ADD.W	D0,D0
00021916 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
0002191e 01 34                    | 4      |		.CONST	0x134			; [0x0] -> 0x21a52
00021920 01 5c                    | \      |		.CONST	0x15c			; [0x1] -> 0x21a7a
00021922 01 84                    |        |		.CONST	0x184			; [0x2] -> 0x21aa2
00021924 01 aa                    |        |		.CONST	0x1aa			; [0x3] -> 0x21ac8
00021926 01 ca                    |        |		.CONST	0x1ca			; [0x4] -> 0x21ae8
00021928 01 f2                    |        |		.CONST	0x1f2			; [0x5] -> 0x21b10
0002192a 02 0c                    |        |		.CONST	0x20c			; [0x6] -> 0x21b2a
0002192c 02 24                    | $      |		.CONST	0x224			; [0x7] -> 0x21b42
0002192e 02 36                    | 6      |		.CONST	0x236			; [0x8] -> 0x21b54
00021930 02 58                    | X      |		.CONST	0x258			; [0x9] -> 0x21b76
00021932 09 5a                    | Z      |		.CONST	0x95a			; [0xa] -> 0x22278
00021934 09 5a                    | Z      |		.CONST	0x95a			; [0xb] -> 0x22278
00021936 09 5a                    | Z      |		.CONST	0x95a			; [0xc] -> 0x22278
00021938 09 5a                    | Z      |		.CONST	0x95a			; [0xd] -> 0x22278
0002193a 09 5a                    | Z      |		.CONST	0x95a			; [0xe] -> 0x22278
0002193c 09 5a                    | Z      |		.CONST	0x95a			; [0xf] -> 0x22278
0002193e 02 76                    | v      |		.CONST	0x276			; [0x10] -> 0x21b94
00021940 02 86                    |        |		.CONST	0x286			; [0x11] -> 0x21ba4
00021942 02 9a                    |        |		.CONST	0x29a			; [0x12] -> 0x21bb8
00021944 02 ae                    |        |		.CONST	0x2ae			; [0x13] -> 0x21bcc
00021946 02 d6                    |        |		.CONST	0x2d6			; [0x14] -> 0x21bf4
00021948 02 e6                    |        |		.CONST	0x2e6			; [0x15] -> 0x21c04
0002194a 03 12                    |        |		.CONST	0x312			; [0x16] -> 0x21c30
0002194c 03 38                    | 8      |		.CONST	0x338			; [0x17] -> 0x21c56
0002194e 03 4c                    | L      |		.CONST	0x34c			; [0x18] -> 0x21c6a
00021950 09 5a                    | Z      |		.CONST	0x95a			; [0x19] -> 0x22278
00021952 09 5a                    | Z      |		.CONST	0x95a			; [0x1a] -> 0x22278
00021954 09 5a                    | Z      |		.CONST	0x95a			; [0x1b] -> 0x22278
00021956 09 5a                    | Z      |		.CONST	0x95a			; [0x1c] -> 0x22278
00021958 09 5a                    | Z      |		.CONST	0x95a			; [0x1d] -> 0x22278
0002195a 09 5a                    | Z      |		.CONST	0x95a			; [0x1e] -> 0x22278
0002195c 09 5a                    | Z      |		.CONST	0x95a			; [0x1f] -> 0x22278
0002195e 03 60                    | `      |		.CONST	0x360			; [0x20] -> 0x21c7e
00021960 03 74                    | t      |		.CONST	0x374			; [0x21] -> 0x21c92
00021962 03 a0                    |        |		.CONST	0x3a0			; [0x22] -> 0x21cbe
00021964 03 b0                    |        |		.CONST	0x3b0			; [0x23] -> 0x21cce
00021966 03 c0                    |        |		.CONST	0x3c0			; [0x24] -> 0x21cde
00021968 03 d0                    |        |		.CONST	0x3d0			; [0x25] -> 0x21cee
0002196a 03 f0                    |        |		.CONST	0x3f0			; [0x26] -> 0x21d0e
0002196c 04 10                    |        |		.CONST	0x410			; [0x27] -> 0x21d2e
0002196e 04 24                    | $      |		.CONST	0x424			; [0x28] -> 0x21d42
00021970 04 4a                    | J      |		.CONST	0x44a			; [0x29] -> 0x21d68
00021972 09 5a                    | Z      |		.CONST	0x95a			; [0x2a] -> 0x22278
00021974 09 5a                    | Z      |		.CONST	0x95a			; [0x2b] -> 0x22278
00021976 09 5a                    | Z      |		.CONST	0x95a			; [0x2c] -> 0x22278
00021978 09 5a                    | Z      |		.CONST	0x95a			; [0x2d] -> 0x22278
0002197a 09 5a                    | Z      |		.CONST	0x95a			; [0x2e] -> 0x22278
0002197c 09 5a                    | Z      |		.CONST	0x95a			; [0x2f] -> 0x22278
0002197e 04 5e                    | ^      |		.CONST	0x45e			; [0x30] -> 0x21d7c
00021980 04 8a                    |        |		.CONST	0x48a			; [0x31] -> 0x21da8
00021982 04 9e                    |        |		.CONST	0x49e			; [0x32] -> 0x21dbc
00021984 04 b2                    |        |		.CONST	0x4b2			; [0x33] -> 0x21dd0
00021986 04 c6                    |        |		.CONST	0x4c6			; [0x34] -> 0x21de4
00021988 04 da                    |        |		.CONST	0x4da			; [0x35] -> 0x21df8
0002198a 04 ee                    |        |		.CONST	0x4ee			; [0x36] -> 0x21e0c
0002198c 09 5a                    | Z      |		.CONST	0x95a			; [0x37] -> 0x22278
0002198e 09 5a                    | Z      |		.CONST	0x95a			; [0x38] -> 0x22278
00021990 09 5a                    | Z      |		.CONST	0x95a			; [0x39] -> 0x22278
00021992 09 5a                    | Z      |		.CONST	0x95a			; [0x3a] -> 0x22278
00021994 09 5a                    | Z      |		.CONST	0x95a			; [0x3b] -> 0x22278
00021996 09 5a                    | Z      |		.CONST	0x95a			; [0x3c] -> 0x22278
00021998 09 5a                    | Z      |		.CONST	0x95a			; [0x3d] -> 0x22278
0002199a 09 5a                    | Z      |		.CONST	0x95a			; [0x3e] -> 0x22278
0002199c 09 5a                    | Z      |		.CONST	0x95a			; [0x3f] -> 0x22278
0002199e 09 5a                    | Z      |		.CONST	0x95a			; [0x40] -> 0x22278
000219a0 05 02                    |        |		.CONST	0x502			; [0x41] -> 0x21e20
000219a2 09 5a                    | Z      |		.CONST	0x95a			; [0x42] -> 0x22278
000219a4 09 5a                    | Z      |		.CONST	0x95a			; [0x43] -> 0x22278
000219a6 09 5a                    | Z      |		.CONST	0x95a			; [0x44] -> 0x22278
000219a8 09 5a                    | Z      |		.CONST	0x95a			; [0x45] -> 0x22278
000219aa 09 5a                    | Z      |		.CONST	0x95a			; [0x46] -> 0x22278
000219ac 05 12                    |        |		.CONST	0x512			; [0x47] -> 0x21e30
000219ae 05 26                    | &      |		.CONST	0x526			; [0x48] -> 0x21e44
000219b0 09 5a                    | Z      |		.CONST	0x95a			; [0x49] -> 0x22278
000219b2 09 5a                    | Z      |		.CONST	0x95a			; [0x4a] -> 0x22278
000219b4 09 5a                    | Z      |		.CONST	0x95a			; [0x4b] -> 0x22278
000219b6 09 5a                    | Z      |		.CONST	0x95a			; [0x4c] -> 0x22278
000219b8 09 5a                    | Z      |		.CONST	0x95a			; [0x4d] -> 0x22278
000219ba 09 5a                    | Z      |		.CONST	0x95a			; [0x4e] -> 0x22278
000219bc 09 5a                    | Z      |		.CONST	0x95a			; [0x4f] -> 0x22278
000219be 05 3a                    | :      |		.CONST	0x53a			; [0x50] -> 0x21e58
000219c0 05 60                    | `      |		.CONST	0x560			; [0x51] -> 0x21e7e
000219c2 05 86                    |        |		.CONST	0x586			; [0x52] -> 0x21ea4
000219c4 05 a8                    |        |		.CONST	0x5a8			; [0x53] -> 0x21ec6
000219c6 05 bc                    |        |		.CONST	0x5bc			; [0x54] -> 0x21eda
000219c8 05 d0                    |        |		.CONST	0x5d0			; [0x55] -> 0x21eee
000219ca 05 e4                    |        |		.CONST	0x5e4			; [0x56] -> 0x21f02
000219cc 09 5a                    | Z      |		.CONST	0x95a			; [0x57] -> 0x22278
000219ce 09 5a                    | Z      |		.CONST	0x95a			; [0x58] -> 0x22278
000219d0 09 5a                    | Z      |		.CONST	0x95a			; [0x59] -> 0x22278
000219d2 09 5a                    | Z      |		.CONST	0x95a			; [0x5a] -> 0x22278
000219d4 09 5a                    | Z      |		.CONST	0x95a			; [0x5b] -> 0x22278
000219d6 09 5a                    | Z      |		.CONST	0x95a			; [0x5c] -> 0x22278
000219d8 09 5a                    | Z      |		.CONST	0x95a			; [0x5d] -> 0x22278
000219da 09 5a                    | Z      |		.CONST	0x95a			; [0x5e] -> 0x22278
000219dc 09 5a                    | Z      |		.CONST	0x95a			; [0x5f] -> 0x22278
000219de 06 06                    |        |		.CONST	0x606			; [0x60] -> 0x21f24
000219e0 06 16                    |        |		.CONST	0x616			; [0x61] -> 0x21f34
000219e2 06 32                    | 2      |		.CONST	0x632			; [0x62] -> 0x21f50
000219e4 06 42                    | B      |		.CONST	0x642			; [0x63] -> 0x21f60
000219e6 06 6e                    | n      |		.CONST	0x66e			; [0x64] -> 0x21f8c
000219e8 06 94                    |        |		.CONST	0x694			; [0x65] -> 0x21fb2
000219ea 06 c0                    |        |		.CONST	0x6c0			; [0x66] -> 0x21fde
000219ec 06 da                    |        |		.CONST	0x6da			; [0x67] -> 0x21ff8
000219ee 06 f6                    |        |		.CONST	0x6f6			; [0x68] -> 0x22014
000219f0 09 5a                    | Z      |		.CONST	0x95a			; [0x69] -> 0x22278
000219f2 09 5a                    | Z      |		.CONST	0x95a			; [0x6a] -> 0x22278
000219f4 09 5a                    | Z      |		.CONST	0x95a			; [0x6b] -> 0x22278
000219f6 09 5a                    | Z      |		.CONST	0x95a			; [0x6c] -> 0x22278
000219f8 09 5a                    | Z      |		.CONST	0x95a			; [0x6d] -> 0x22278
000219fa 09 5a                    | Z      |		.CONST	0x95a			; [0x6e] -> 0x22278
000219fc 09 5a                    | Z      |		.CONST	0x95a			; [0x6f] -> 0x22278
000219fe 07 06                    |        |		.CONST	0x706			; [0x70] -> 0x22024
00021a00 07 1a                    |        |		.CONST	0x71a			; [0x71] -> 0x22038
00021a02 07 2e                    | .      |		.CONST	0x72e			; [0x72] -> 0x2204c
00021a04 07 48                    | H      |		.CONST	0x748			; [0x73] -> 0x22066
00021a06 07 58                    | X      |		.CONST	0x758			; [0x74] -> 0x22076
00021a08 07 68                    | h      |		.CONST	0x768			; [0x75] -> 0x22086
00021a0a 07 7c                    | |      |		.CONST	0x77c			; [0x76] -> 0x2209a
00021a0c 07 90                    |        |		.CONST	0x790			; [0x77] -> 0x220ae
00021a0e 07 a4                    |        |		.CONST	0x7a4			; [0x78] -> 0x220c2
00021a10 07 b2                    |        |		.CONST	0x7b2			; [0x79] -> 0x220d0
00021a12 09 5a                    | Z      |		.CONST	0x95a			; [0x7a] -> 0x22278
00021a14 09 5a                    | Z      |		.CONST	0x95a			; [0x7b] -> 0x22278
00021a16 09 5a                    | Z      |		.CONST	0x95a			; [0x7c] -> 0x22278
00021a18 09 5a                    | Z      |		.CONST	0x95a			; [0x7d] -> 0x22278
00021a1a 09 5a                    | Z      |		.CONST	0x95a			; [0x7e] -> 0x22278
00021a1c 09 5a                    | Z      |		.CONST	0x95a			; [0x7f] -> 0x22278
00021a1e 07 c8                    |        |		.CONST	0x7c8			; [0x80] -> 0x220e6
00021a20 07 dc                    |        |		.CONST	0x7dc			; [0x81] -> 0x220fa
00021a22 07 ec                    |        |		.CONST	0x7ec			; [0x82] -> 0x2210a
00021a24 08 02                    |        |		.CONST	0x802			; [0x83] -> 0x22120
00021a26 08 16                    |        |		.CONST	0x816			; [0x84] -> 0x22134
00021a28 08 26                    | &      |		.CONST	0x826			; [0x85] -> 0x22144
00021a2a 08 36                    | 6      |		.CONST	0x836			; [0x86] -> 0x22154
00021a2c 08 46                    | F      |		.CONST	0x846			; [0x87] -> 0x22164
00021a2e 09 5a                    | Z      |		.CONST	0x95a			; [0x88] -> 0x22278
00021a30 08 5a                    | Z      |		.CONST	0x85a			; [0x89] -> 0x22178
00021a32 09 5a                    | Z      |		.CONST	0x95a			; [0x8a] -> 0x22278
00021a34 09 5a                    | Z      |		.CONST	0x95a			; [0x8b] -> 0x22278
00021a36 09 5a                    | Z      |		.CONST	0x95a			; [0x8c] -> 0x22278
00021a38 09 5a                    | Z      |		.CONST	0x95a			; [0x8d] -> 0x22278
00021a3a 09 5a                    | Z      |		.CONST	0x95a			; [0x8e] -> 0x22278
00021a3c 09 5a                    | Z      |		.CONST	0x95a			; [0x8f] -> 0x22278
00021a3e 08 6e                    | n      |		.CONST	0x86e			; [0x90] -> 0x2218c
00021a40 08 7e                    | ~      |		.CONST	0x87e			; [0x91] -> 0x2219c
00021a42 08 8e                    |        |		.CONST	0x88e			; [0x92] -> 0x221ac
00021a44 08 ba                    |        |		.CONST	0x8ba			; [0x93] -> 0x221d8
00021a46 08 ca                    |        |		.CONST	0x8ca			; [0x94] -> 0x221e8
00021a48 08 da                    |        |		.CONST	0x8da			; [0x95] -> 0x221f8
00021a4a 09 04                    |        |		.CONST	0x904			; [0x96] -> 0x22222
00021a4c 09 18                    |        |		.CONST	0x918			; [0x97] -> 0x22236
00021a4e 09 34                    | 4      |		.CONST	0x934			; [0x98] -> 0x22252
00021a50 09 44                    | D      |		.CONST	0x944			; [0x99] -> 0x22262
00021a52					switch@0x21916[0x0]:
00021a52 9e c2                    |        |		SUBA.W	D2,A7
00021a54 20 4f                    | O      |		MOVEA.L	A7,A0
00021a56 43 fa ea 2e              |C  .    |		LEA.L	0x20486,A1
00021a5a 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021a5c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021a5e 51 c8 ff fc              |Q       |		DBF	D0,0x21a5c
00021a62 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a64 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021a68 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a6a 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00021a6e 4e 92                    |N       |		JSR	(A2)
00021a70 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a72 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021a74 de c2                    |        |		ADDA.W	D2,A7
00021a76 60 00 08 1e              |`       |		BRA	0x22296
00021a7a					switch@0x21916[0x1]:
00021a7a 9e c5                    |        |		SUBA.W	D5,A7
00021a7c 20 4f                    | O      |		MOVEA.L	A7,A0
00021a7e 43 fa ea 16              |C       |		LEA.L	0x20496,A1
00021a82 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021a84 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021a86 51 c8 ff fc              |Q       |		DBF	D0,0x21a84
00021a8a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a8c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021a90 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a92 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00021a96 4e 92                    |N       |		JSR	(A2)
00021a98 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a9a 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021a9c de c5                    |        |		ADDA.W	D5,A7
00021a9e 60 00 07 f6              |`       |		BRA	0x22296
00021aa2					switch@0x21916[0x2]:
00021aa2 41 fa ea 24              |A  $    |		LEA.L	0x204c8,A0
00021aa6 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021aa8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021aaa 51 c8 ff fc              |Q       |		DBF	D0,0x21aa8
00021aae 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ab0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021ab4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021ab6 3f 3c 00 1e              |?<      |		MOVE.W	#0x1e,-(A7)
00021aba 4e 92                    |N       |		JSR	(A2)
00021abc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021abe 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021ac0 de fc 00 1e              |        |		ADDA.W	#0x1e,A7
00021ac4 60 00 07 d0              |`       |		BRA	0x22296
00021ac8					switch@0x21916[0x3]:
00021ac8 2f 3a ea 02              |/:      |		MOVE.L	0x204cc,-(A7)
00021acc 2f 3a e9 fa              |/:      |		MOVE.L	0x204c8,-(A7)
00021ad0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ad2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021ad6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021ad8 3f 3c 00 08              |?<      |		MOVE.W	#0x8,-(A7)
00021adc 4e 92                    |N       |		JSR	(A2)
00021ade 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ae0 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021ae2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ae4 60 00 07 b0              |`       |		BRA	0x22296
00021ae8					switch@0x21916[0x4]:
00021ae8 9e c4                    |        |		SUBA.W	D4,A7
00021aea 20 4f                    | O      |		MOVEA.L	A7,A0
00021aec 43 fa e9 e2              |C       |		LEA.L	0x204d0,A1
00021af0 70 14                    |p       |		MOVEQ.L	#0x14,D0
00021af2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021af4 51 c8 ff fc              |Q       |		DBF	D0,0x21af2
00021af8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021afa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021afe 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b00 3f 3c 00 15              |?<      |		MOVE.W	#0x15,-(A7)
00021b04 4e 92                    |N       |		JSR	(A2)
00021b06 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b08 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021b0a de c4                    |        |		ADDA.W	D4,A7
00021b0c 60 00 07 88              |`       |		BRA	0x22296
00021b10					switch@0x21916[0x5]:
00021b10 41 fa e9 e8              |A       |		LEA.L	0x204fa,A0
00021b14 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021b16 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021b18 51 c8 ff fc              |Q       |		DBF	D0,0x21b16
00021b1c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b1e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021b22 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b24 3f 05                    |?       |		MOVE.W	D5,-(A7)
00021b26 60 00 ff 6e              |`  n    |		BRA	0x21a96
00021b2a					switch@0x21916[0x6]:
00021b2a 41 fa e9 e4              |A       |		LEA.L	0x20510,A0
00021b2e 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021b30 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021b32 51 c8 ff fc              |Q       |		DBF	D0,0x21b30
00021b36 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b38 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021b3c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b3e 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021b40 60 c2                    |`       |		BRA	0x21b04
00021b42					switch@0x21916[0x7]:
00021b42 9e c4                    |        |		SUBA.W	D4,A7
00021b44 20 4f                    | O      |		MOVEA.L	A7,A0
00021b46 43 fa e9 c8              |C       |		LEA.L	0x20510,A1
00021b4a 70 14                    |p       |		MOVEQ.L	#0x14,D0
00021b4c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021b4e 51 c8 ff fc              |Q       |		DBF	D0,0x21b4c
00021b52 60 a4                    |`       |		BRA	0x21af8
00021b54					switch@0x21916[0x8]:
00021b54 2f 3a e9 d8              |/:      |		MOVE.L	0x2052e,-(A7)
00021b58 2f 3a e9 d0              |/:      |		MOVE.L	0x2052a,-(A7)
00021b5c 2f 3a e9 c8              |/:      |		MOVE.L	0x20526,-(A7)
00021b60 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b62 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021b66 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b68 3f 07                    |?       |		MOVE.W	D7,-(A7)
00021b6a 4e 92                    |N       |		JSR	(A2)
00021b6c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b6e 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021b70 de c7                    |        |		ADDA.W	D7,A7
00021b72 60 00 07 22              |`  "    |		BRA	0x22296
00021b76					switch@0x21916[0x9]:
00021b76 2f 3a e9 c6              |/:      |		MOVE.L	0x2053e,-(A7)
00021b7a 2f 3a e9 be              |/:      |		MOVE.L	0x2053a,-(A7)
00021b7e 2f 3a e9 b6              |/:      |		MOVE.L	0x20536,-(A7)
00021b82 2f 3a e9 ae              |/:      |		MOVE.L	0x20532,-(A7)
00021b86 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b88 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021b8c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b8e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021b90 60 00 fe dc              |`       |		BRA	0x21a6e
00021b94					switch@0x21916[0x10]:
00021b94 41 fa e9 be              |A       |		LEA.L	0x20554,A0
00021b98 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021b9a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021b9c 51 c8 ff fc              |Q       |		DBF	D0,0x21b9a
00021ba0 60 00 06 e2              |`       |		BRA	0x22284
00021ba4					switch@0x21916[0x11]:
00021ba4 9e c2                    |        |		SUBA.W	D2,A7
00021ba6 20 4f                    | O      |		MOVEA.L	A7,A0
00021ba8 43 fa e9 aa              |C       |		LEA.L	0x20554,A1
00021bac 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021bae 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021bb0 51 c8 ff fc              |Q       |		DBF	D0,0x21bae
00021bb4 60 00 fe ac              |`       |		BRA	0x21a62
00021bb8					switch@0x21916[0x12]:
00021bb8 9e c2                    |        |		SUBA.W	D2,A7
00021bba 20 4f                    | O      |		MOVEA.L	A7,A0
00021bbc 43 fa e9 a6              |C       |		LEA.L	0x20564,A1
00021bc0 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021bc2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021bc4 51 c8 ff fc              |Q       |		DBF	D0,0x21bc2
00021bc8 60 00 fe 98              |`       |		BRA	0x21a62
00021bcc					switch@0x21916[0x13]:
00021bcc 9e c6                    |        |		SUBA.W	D6,A7
00021bce 20 4f                    | O      |		MOVEA.L	A7,A0
00021bd0 43 fa e9 a2              |C       |		LEA.L	0x20574,A1
00021bd4 70 18                    |p       |		MOVEQ.L	#0x18,D0
00021bd6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021bd8 51 c8 ff fc              |Q       |		DBF	D0,0x21bd6
00021bdc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021bde 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021be2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021be4 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
00021be8 4e 92                    |N       |		JSR	(A2)
00021bea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021bec 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021bee de c6                    |        |		ADDA.W	D6,A7
00021bf0 60 00 06 a4              |`       |		BRA	0x22296
00021bf4					switch@0x21916[0x14]:
00021bf4 41 fa e9 aa              |A       |		LEA.L	0x205a0,A0
00021bf8 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021bfa 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021bfc 51 c8 ff fc              |Q       |		DBF	D0,0x21bfa
00021c00 60 00 06 82              |`       |		BRA	0x22284
00021c04					switch@0x21916[0x15]:
00021c04 9e fc 00 20              |        |		SUBA.W	#0x20,A7
00021c08 20 4f                    | O      |		MOVEA.L	A7,A0
00021c0a 43 fa e9 94              |C       |		LEA.L	0x205a0,A1
00021c0e 70 1e                    |p       |		MOVEQ.L	#0x1e,D0
00021c10 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021c12 51 c8 ff fc              |Q       |		DBF	D0,0x21c10
00021c16 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c18 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021c1c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c1e 3f 3c 00 1f              |?<      |		MOVE.W	#0x1f,-(A7)
00021c22 4e 92                    |N       |		JSR	(A2)
00021c24 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c26 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021c28 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021c2c 60 00 06 68              |`  h    |		BRA	0x22296
00021c30					switch@0x21916[0x16]:
00021c30 41 fa e9 b0              |A       |		LEA.L	0x205e2,A0
00021c34 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021c36 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021c38 51 c8 ff fc              |Q       |		DBF	D0,0x21c36
00021c3c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c3e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021c42 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c44 3f 3c 00 22              |?< "    |		MOVE.W	#0x22,-(A7)
00021c48 4e 92                    |N       |		JSR	(A2)
00021c4a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c4c 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021c4e de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00021c52 60 00 06 42              |`  B    |		BRA	0x22296
00021c56					switch@0x21916[0x17]:
00021c56 9e c5                    |        |		SUBA.W	D5,A7
00021c58 20 4f                    | O      |		MOVEA.L	A7,A0
00021c5a 43 fa e9 86              |C       |		LEA.L	0x205e2,A1
00021c5e 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021c60 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021c62 51 c8 ff fc              |Q       |		DBF	D0,0x21c60
00021c66 60 00 fe 22              |`  "    |		BRA	0x21a8a
00021c6a					switch@0x21916[0x18]:
00021c6a 9e c5                    |        |		SUBA.W	D5,A7
00021c6c 20 4f                    | O      |		MOVEA.L	A7,A0
00021c6e 43 fa e9 86              |C       |		LEA.L	0x205f6,A1
00021c72 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021c74 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021c76 51 c8 ff fc              |Q       |		DBF	D0,0x21c74
00021c7a 60 00 fe 0e              |`       |		BRA	0x21a8a
00021c7e					switch@0x21916[0x20]:
00021c7e 9e c6                    |        |		SUBA.W	D6,A7
00021c80 20 4f                    | O      |		MOVEA.L	A7,A0
00021c82 43 fa e9 86              |C       |		LEA.L	0x2060a,A1
00021c86 70 18                    |p       |		MOVEQ.L	#0x18,D0
00021c88 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021c8a 51 c8 ff fc              |Q       |		DBF	D0,0x21c88
00021c8e 60 00 ff 4c              |`  L    |		BRA	0x21bdc
00021c92					switch@0x21916[0x21]:
00021c92 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
00021c96 20 4f                    | O      |		MOVEA.L	A7,A0
00021c98 43 fa e9 8a              |C       |		LEA.L	0x20624,A1
00021c9c 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
00021c9e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021ca0 51 c8 ff fc              |Q       |		DBF	D0,0x21c9e
00021ca4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ca6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021caa 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021cac 3f 3c 00 1b              |?<      |		MOVE.W	#0x1b,-(A7)
00021cb0 4e 92                    |N       |		JSR	(A2)
00021cb2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021cb4 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021cb6 de fc 00 1c              |        |		ADDA.W	#0x1c,A7
00021cba 60 00 05 da              |`       |		BRA	0x22296
00021cbe					switch@0x21916[0x22]:
00021cbe 41 fa e9 96              |A       |		LEA.L	0x20656,A0
00021cc2 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021cc4 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021cc6 51 c8 ff fc              |Q       |		DBF	D0,0x21cc4
00021cca 60 00 fe 6a              |`  j    |		BRA	0x21b36
00021cce					switch@0x21916[0x23]:
00021cce 41 fa e9 a4              |A       |		LEA.L	0x20674,A0
00021cd2 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021cd4 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021cd6 51 c8 ff fc              |Q       |		DBF	D0,0x21cd4
00021cda 60 00 fd d2              |`       |		BRA	0x21aae
00021cde					switch@0x21916[0x24]:
00021cde 41 fa e9 a6              |A       |		LEA.L	0x20686,A0
00021ce2 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021ce4 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021ce6 51 c8 ff fc              |Q       |		DBF	D0,0x21ce4
00021cea 60 00 05 98              |`       |		BRA	0x22284
00021cee					switch@0x21916[0x25]:
00021cee 9e c3                    |        |		SUBA.W	D3,A7
00021cf0 20 4f                    | O      |		MOVEA.L	A7,A0
00021cf2 43 fa e9 92              |C       |		LEA.L	0x20686,A1
00021cf6 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021cf8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021cfa 51 c8 ff fc              |Q       |		DBF	D0,0x21cf8
00021cfe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d00 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021d04 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021d06 3f 3c 00 11              |?<      |		MOVE.W	#0x11,-(A7)
00021d0a 60 00 05 82              |`       |		BRA	0x2228e
00021d0e					switch@0x21916[0x26]:
00021d0e 9e c7                    |        |		SUBA.W	D7,A7
00021d10 20 4f                    | O      |		MOVEA.L	A7,A0
00021d12 43 fa e9 84              |C       |		LEA.L	0x20698,A1
00021d16 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021d18 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021d1a 51 c8 ff fc              |Q       |		DBF	D0,0x21d18
00021d1e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d20 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021d24 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021d26 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00021d2a 60 00 fe 3e              |`  >    |		BRA	0x21b6a
00021d2e					switch@0x21916[0x27]:
00021d2e 9e c2                    |        |		SUBA.W	D2,A7
00021d30 20 4f                    | O      |		MOVEA.L	A7,A0
00021d32 43 fa e9 70              |C  p    |		LEA.L	0x206a4,A1
00021d36 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021d38 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021d3a 51 c8 ff fc              |Q       |		DBF	D0,0x21d38
00021d3e 60 00 fd 22              |`  "    |		BRA	0x21a62
00021d42					switch@0x21916[0x28]:
00021d42 41 fa e9 88              |A       |		LEA.L	0x206cc,A0
00021d46 70 05                    |p       |		MOVEQ.L	#0x05,D0
00021d48 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021d4a 51 c8 ff fc              |Q       |		DBF	D0,0x21d48
00021d4e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d50 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021d54 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021d56 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
00021d5a 4e 92                    |N       |		JSR	(A2)
00021d5c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d5e 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021d60 de fc 00 18              |        |		ADDA.W	#0x18,A7
00021d64 60 00 05 30              |`  0    |		BRA	0x22296
00021d68					switch@0x21916[0x29]:
00021d68 9e c2                    |        |		SUBA.W	D2,A7
00021d6a 20 4f                    | O      |		MOVEA.L	A7,A0
00021d6c 43 fa e9 5e              |C  ^    |		LEA.L	0x206cc,A1
00021d70 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021d72 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021d74 51 c8 ff fc              |Q       |		DBF	D0,0x21d72
00021d78 60 00 fc e8              |`       |		BRA	0x21a62
00021d7c					switch@0x21916[0x30]:
00021d7c 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00021d80 20 4f                    | O      |		MOVEA.L	A7,A0
00021d82 43 fa e9 58              |C  X    |		LEA.L	0x206dc,A1
00021d86 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021d88 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021d8a 51 c8 ff fc              |Q       |		DBF	D0,0x21d88
00021d8e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d90 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021d94 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021d96 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00021d9a 4e 92                    |N       |		JSR	(A2)
00021d9c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d9e 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021da0 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00021da4 60 00 04 f0              |`       |		BRA	0x22296
00021da8					switch@0x21916[0x31]:
00021da8 9e c2                    |        |		SUBA.W	D2,A7
00021daa 20 4f                    | O      |		MOVEA.L	A7,A0
00021dac 43 fa e9 3c              |C  <    |		LEA.L	0x206ea,A1
00021db0 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021db2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021db4 51 c8 ff fc              |Q       |		DBF	D0,0x21db2
00021db8 60 00 fc a8              |`       |		BRA	0x21a62
00021dbc					switch@0x21916[0x32]:
00021dbc 9e c3                    |        |		SUBA.W	D3,A7
00021dbe 20 4f                    | O      |		MOVEA.L	A7,A0
00021dc0 43 fa e9 38              |C  8    |		LEA.L	0x206fa,A1
00021dc4 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021dc6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021dc8 51 c8 ff fc              |Q       |		DBF	D0,0x21dc6
00021dcc 60 00 ff 30              |`  0    |		BRA	0x21cfe
00021dd0					switch@0x21916[0x33]:
00021dd0 9e c5                    |        |		SUBA.W	D5,A7
00021dd2 20 4f                    | O      |		MOVEA.L	A7,A0
00021dd4 43 fa e9 36              |C  6    |		LEA.L	0x2070c,A1
00021dd8 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021dda 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021ddc 51 c8 ff fc              |Q       |		DBF	D0,0x21dda
00021de0 60 00 fc a8              |`       |		BRA	0x21a8a
00021de4					switch@0x21916[0x34]:
00021de4 9e c4                    |        |		SUBA.W	D4,A7
00021de6 20 4f                    | O      |		MOVEA.L	A7,A0
00021de8 43 fa e9 36              |C  6    |		LEA.L	0x20720,A1
00021dec 70 14                    |p       |		MOVEQ.L	#0x14,D0
00021dee 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021df0 51 c8 ff fc              |Q       |		DBF	D0,0x21dee
00021df4 60 00 fd 02              |`       |		BRA	0x21af8
00021df8					switch@0x21916[0x35]:
00021df8 9e c3                    |        |		SUBA.W	D3,A7
00021dfa 20 4f                    | O      |		MOVEA.L	A7,A0
00021dfc 43 fa e9 38              |C  8    |		LEA.L	0x20736,A1
00021e00 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021e02 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021e04 51 c8 ff fc              |Q       |		DBF	D0,0x21e02
00021e08 60 00 fe f4              |`       |		BRA	0x21cfe
00021e0c					switch@0x21916[0x36]:
00021e0c 9e c7                    |        |		SUBA.W	D7,A7
00021e0e 20 4f                    | O      |		MOVEA.L	A7,A0
00021e10 43 fa e9 36              |C  6    |		LEA.L	0x20748,A1
00021e14 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021e16 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021e18 51 c8 ff fc              |Q       |		DBF	D0,0x21e16
00021e1c 60 00 ff 00              |`       |		BRA	0x21d1e
00021e20					switch@0x21916[0x41]:
00021e20 41 fa e9 46              |A  F    |		LEA.L	0x20768,A0
00021e24 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021e26 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021e28 51 c8 ff fc              |Q       |		DBF	D0,0x21e26
00021e2c 60 00 fc ee              |`       |		BRA	0x21b1c
00021e30					switch@0x21916[0x47]:
00021e30 9e c6                    |        |		SUBA.W	D6,A7
00021e32 20 4f                    | O      |		MOVEA.L	A7,A0
00021e34 43 fa e9 32              |C  2    |		LEA.L	0x20768,A1
00021e38 70 18                    |p       |		MOVEQ.L	#0x18,D0
00021e3a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021e3c 51 c8 ff fc              |Q       |		DBF	D0,0x21e3a
00021e40 60 00 fd 9a              |`       |		BRA	0x21bdc
00021e44					switch@0x21916[0x48]:
00021e44 9e c5                    |        |		SUBA.W	D5,A7
00021e46 20 4f                    | O      |		MOVEA.L	A7,A0
00021e48 43 fa e9 38              |C  8    |		LEA.L	0x20782,A1
00021e4c 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021e4e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021e50 51 c8 ff fc              |Q       |		DBF	D0,0x21e4e
00021e54 60 00 fc 34              |`  4    |		BRA	0x21a8a
00021e58					switch@0x21916[0x50]:
00021e58 41 fa e9 62              |A  b    |		LEA.L	0x207bc,A0
00021e5c 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021e5e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021e60 51 c8 ff fc              |Q       |		DBF	D0,0x21e5e
00021e64 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021e66 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021e6a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021e6c 3f 3c 00 26              |?< &    |		MOVE.W	#0x26,-(A7)
00021e70 4e 92                    |N       |		JSR	(A2)
00021e72 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e74 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021e76 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00021e7a 60 00 04 1a              |`       |		BRA	0x22296
00021e7e					switch@0x21916[0x51]:
00021e7e 41 fa e9 60              |A  `    |		LEA.L	0x207e0,A0
00021e82 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021e84 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021e86 51 c8 ff fc              |Q       |		DBF	D0,0x21e84
00021e8a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021e8c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021e90 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021e92 3f 3c 00 24              |?< $    |		MOVE.W	#0x24,-(A7)
00021e96 4e 92                    |N       |		JSR	(A2)
00021e98 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e9a 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021e9c de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00021ea0 60 00 03 f4              |`       |		BRA	0x22296
00021ea4					switch@0x21916[0x52]:
00021ea4 9e fc 00 18              |        |		SUBA.W	#0x18,A7
00021ea8 20 4f                    | O      |		MOVEA.L	A7,A0
00021eaa 43 fa e9 34              |C  4    |		LEA.L	0x207e0,A1
00021eae 70 16                    |p       |		MOVEQ.L	#0x16,D0
00021eb0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021eb2 51 c8 ff fc              |Q       |		DBF	D0,0x21eb0
00021eb6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021eb8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021ebc 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021ebe 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00021ec2 60 00 fe 96              |`       |		BRA	0x21d5a
00021ec6					switch@0x21916[0x53]:
00021ec6 2f 3a e9 3c              |/: <    |		MOVE.L	0x20804,-(A7)
00021eca 2f 3a e9 34              |/: 4    |		MOVE.L	0x20800,-(A7)
00021ece 2f 3a e9 2c              |/: ,    |		MOVE.L	0x207fc,-(A7)
00021ed2 2f 3a e9 24              |/: $    |		MOVE.L	0x207f8,-(A7)
00021ed6 60 00 fc ae              |`       |		BRA	0x21b86
00021eda					switch@0x21916[0x54]:
00021eda 9e c6                    |        |		SUBA.W	D6,A7
00021edc 20 4f                    | O      |		MOVEA.L	A7,A0
00021ede 43 fa e9 28              |C  (    |		LEA.L	0x20808,A1
00021ee2 70 18                    |p       |		MOVEQ.L	#0x18,D0
00021ee4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021ee6 51 c8 ff fc              |Q       |		DBF	D0,0x21ee4
00021eea 60 00 fc f0              |`       |		BRA	0x21bdc
00021eee					switch@0x21916[0x55]:
00021eee 9e c2                    |        |		SUBA.W	D2,A7
00021ef0 20 4f                    | O      |		MOVEA.L	A7,A0
00021ef2 43 fa e9 2e              |C  .    |		LEA.L	0x20822,A1
00021ef6 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021ef8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021efa 51 c8 ff fc              |Q       |		DBF	D0,0x21ef8
00021efe 60 00 fb 62              |`  b    |		BRA	0x21a62
00021f02					switch@0x21916[0x56]:
00021f02 9e fc 00 1e              |        |		SUBA.W	#0x1e,A7
00021f06 20 4f                    | O      |		MOVEA.L	A7,A0
00021f08 43 fa e9 28              |C  (    |		LEA.L	0x20832,A1
00021f0c 70 1c                    |p       |		MOVEQ.L	#0x1c,D0
00021f0e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f10 51 c8 ff fc              |Q       |		DBF	D0,0x21f0e
00021f14 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f16 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f1a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f1c 3f 3c 00 1d              |?<      |		MOVE.W	#0x1d,-(A7)
00021f20 60 00 fb 98              |`       |		BRA	0x21aba
00021f24					switch@0x21916[0x60]:
00021f24 41 fa e9 4c              |A  L    |		LEA.L	0x20872,A0
00021f28 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021f2a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021f2c 51 c8 ff fc              |Q       |		DBF	D0,0x21f2a
00021f30 60 00 fd 0a              |`       |		BRA	0x21c3c
00021f34					switch@0x21916[0x61]:
00021f34 41 fa e9 5c              |A  \    |		LEA.L	0x20892,A0
00021f38 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021f3a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021f3c 51 c8 ff fc              |Q       |		DBF	D0,0x21f3a
00021f40 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f42 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f46 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f48 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00021f4c 60 00 fc d4              |`       |		BRA	0x21c22
00021f50					switch@0x21916[0x62]:
00021f50 41 fa e9 62              |A  b    |		LEA.L	0x208b4,A0
00021f54 70 10                    |p       |		MOVEQ.L	#0x10,D0
00021f56 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021f58 51 c8 ff fc              |Q       |		DBF	D0,0x21f56
00021f5c 60 00 fc de              |`       |		BRA	0x21c3c
00021f60					switch@0x21916[0x63]:
00021f60 9e fc 00 2c              |   ,    |		SUBA.W	#0x2c,A7
00021f64 20 4f                    | O      |		MOVEA.L	A7,A0
00021f66 43 fa e9 4c              |C  L    |		LEA.L	0x208b4,A1
00021f6a 70 2a                    |p*      |		MOVEQ.L	#0x2a,D0
00021f6c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f6e 51 c8 ff fc              |Q       |		DBF	D0,0x21f6c
00021f72 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f74 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f78 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f7a 3f 3c 00 2b              |?< +    |		MOVE.W	#0x2b,-(A7)
00021f7e 4e 92                    |N       |		JSR	(A2)
00021f80 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f82 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021f84 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00021f88 60 00 03 0c              |`       |		BRA	0x22296
00021f8c					switch@0x21916[0x64]:
00021f8c 41 fa e9 84              |A       |		LEA.L	0x20912,A0
00021f90 70 18                    |p       |		MOVEQ.L	#0x18,D0
00021f92 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021f94 51 c8 ff fc              |Q       |		DBF	D0,0x21f92
00021f98 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f9a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f9e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021fa0 3f 3c 00 32              |?< 2    |		MOVE.W	#0x32,-(A7)
00021fa4 4e 92                    |N       |		JSR	(A2)
00021fa6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fa8 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021faa de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00021fae 60 00 02 e6              |`       |		BRA	0x22296
00021fb2					switch@0x21916[0x65]:
00021fb2 9e fc 00 28              |   (    |		SUBA.W	#0x28,A7
00021fb6 20 4f                    | O      |		MOVEA.L	A7,A0
00021fb8 43 fa e9 58              |C  X    |		LEA.L	0x20912,A1
00021fbc 70 26                    |p&      |		MOVEQ.L	#0x26,D0
00021fbe 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021fc0 51 c8 ff fc              |Q       |		DBF	D0,0x21fbe
00021fc4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021fc6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021fca 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021fcc 3f 3c 00 27              |?< '    |		MOVE.W	#0x27,-(A7)
00021fd0 4e 92                    |N       |		JSR	(A2)
00021fd2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fd4 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021fd6 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00021fda 60 00 02 ba              |`       |		BRA	0x22296
00021fde					switch@0x21916[0x66]:
00021fde 41 fa e9 82              |A       |		LEA.L	0x20962,A0
00021fe2 70 09                    |p       |		MOVEQ.L	#0x09,D0
00021fe4 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021fe6 51 c8 ff fc              |Q       |		DBF	D0,0x21fe4
00021fea 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021fec 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021ff0 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021ff2 3f 3c 00 28              |?< (    |		MOVE.W	#0x28,-(A7)
00021ff6 60 d8                    |`       |		BRA	0x21fd0
00021ff8					switch@0x21916[0x67]:
00021ff8 41 fa e9 84              |A       |		LEA.L	0x2097e,A0
00021ffc 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021ffe 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022000 51 c8 ff fc              |Q       |		DBF	D0,0x21ffe
00022004 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022006 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002200a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002200c 3f 3c 00 1c              |?<      |		MOVE.W	#0x1c,-(A7)
00022010 60 00 fc 9e              |`       |		BRA	0x21cb0
00022014					switch@0x21916[0x68]:
00022014 41 fa e9 80              |A       |		LEA.L	0x20996,A0
00022018 70 05                    |p       |		MOVEQ.L	#0x05,D0
0002201a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002201c 51 c8 ff fc              |Q       |		DBF	D0,0x2201a
00022020 60 00 fd 2c              |`  ,    |		BRA	0x21d4e
00022024					switch@0x21916[0x70]:
00022024 9e c4                    |        |		SUBA.W	D4,A7
00022026 20 4f                    | O      |		MOVEA.L	A7,A0
00022028 43 fa e9 6c              |C  l    |		LEA.L	0x20996,A1
0002202c 70 14                    |p       |		MOVEQ.L	#0x14,D0
0002202e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022030 51 c8 ff fc              |Q       |		DBF	D0,0x2202e
00022034 60 00 fa c2              |`       |		BRA	0x21af8
00022038					switch@0x21916[0x71]:
00022038 9e c3                    |        |		SUBA.W	D3,A7
0002203a 20 4f                    | O      |		MOVEA.L	A7,A0
0002203c 43 fa e9 6e              |C  n    |		LEA.L	0x209ac,A1
00022040 70 10                    |p       |		MOVEQ.L	#0x10,D0
00022042 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022044 51 c8 ff fc              |Q       |		DBF	D0,0x22042
00022048 60 00 fc b4              |`       |		BRA	0x21cfe
0002204c					switch@0x21916[0x72]:
0002204c 41 fa e9 8a              |A       |		LEA.L	0x209d8,A0
00022050 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022052 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022054 51 c8 ff fc              |Q       |		DBF	D0,0x22052
00022058 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002205a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002205e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022060 3f 06                    |?       |		MOVE.W	D6,-(A7)
00022062 60 00 fb 84              |`       |		BRA	0x21be8
00022066					switch@0x21916[0x73]:
00022066 41 fa e9 92              |A       |		LEA.L	0x209fa,A0
0002206a 70 10                    |p       |		MOVEQ.L	#0x10,D0
0002206c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002206e 51 c8 ff fc              |Q       |		DBF	D0,0x2206c
00022072 60 00 fb c8              |`       |		BRA	0x21c3c
00022076					switch@0x21916[0x74]:
00022076 41 fa e9 a4              |A       |		LEA.L	0x20a1c,A0
0002207a 70 10                    |p       |		MOVEQ.L	#0x10,D0
0002207c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002207e 51 c8 ff fc              |Q       |		DBF	D0,0x2207c
00022082 60 00 fb b8              |`       |		BRA	0x21c3c
00022086					switch@0x21916[0x75]:
00022086 9e c3                    |        |		SUBA.W	D3,A7
00022088 20 4f                    | O      |		MOVEA.L	A7,A0
0002208a 43 fa e9 90              |C       |		LEA.L	0x20a1c,A1
0002208e 70 10                    |p       |		MOVEQ.L	#0x10,D0
00022090 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022092 51 c8 ff fc              |Q       |		DBF	D0,0x22090
00022096 60 00 fc 66              |`  f    |		BRA	0x21cfe
0002209a					switch@0x21916[0x76]:
0002209a 9e c3                    |        |		SUBA.W	D3,A7
0002209c 20 4f                    | O      |		MOVEA.L	A7,A0
0002209e 43 fa e9 8e              |C       |		LEA.L	0x20a2e,A1
000220a2 70 10                    |p       |		MOVEQ.L	#0x10,D0
000220a4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000220a6 51 c8 ff fc              |Q       |		DBF	D0,0x220a4
000220aa 60 00 fc 52              |`  R    |		BRA	0x21cfe
000220ae					switch@0x21916[0x77]:
000220ae 2f 3a e9 9c              |/:      |		MOVE.L	0x20a4c,-(A7)
000220b2 2f 3a e9 94              |/:      |		MOVE.L	0x20a48,-(A7)
000220b6 2f 3a e9 8c              |/:      |		MOVE.L	0x20a44,-(A7)
000220ba 2f 3a e9 84              |/:      |		MOVE.L	0x20a40,-(A7)
000220be 60 00 fa c6              |`       |		BRA	0x21b86
000220c2					switch@0x21916[0x78]:
000220c2 41 fa e9 a6              |A       |		LEA.L	0x20a6a,A0
000220c6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000220c8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000220ca 51 c8 ff fc              |Q       |		DBF	D0,0x220c8
000220ce 60 88                    |`       |		BRA	0x22058
000220d0					switch@0x21916[0x79]:
000220d0 9e fc 00 1c              |        |		SUBA.W	#0x1c,A7
000220d4 20 4f                    | O      |		MOVEA.L	A7,A0
000220d6 43 fa e9 92              |C       |		LEA.L	0x20a6a,A1
000220da 70 1a                    |p       |		MOVEQ.L	#0x1a,D0
000220dc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000220de 51 c8 ff fc              |Q       |		DBF	D0,0x220dc
000220e2 60 00 fb c0              |`       |		BRA	0x21ca4
000220e6					switch@0x21916[0x80]:
000220e6 9e c3                    |        |		SUBA.W	D3,A7
000220e8 20 4f                    | O      |		MOVEA.L	A7,A0
000220ea 43 fa e9 9a              |C       |		LEA.L	0x20a86,A1
000220ee 70 10                    |p       |		MOVEQ.L	#0x10,D0
000220f0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000220f2 51 c8 ff fc              |Q       |		DBF	D0,0x220f0
000220f6 60 00 fc 06              |`       |		BRA	0x21cfe
000220fa					switch@0x21916[0x81]:
000220fa 41 fa e9 ae              |A       |		LEA.L	0x20aaa,A0
000220fe 70 08                    |p       |		MOVEQ.L	#0x08,D0
00022100 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022102 51 c8 ff fc              |Q       |		DBF	D0,0x22100
00022106 60 00 01 7c              |`  |    |		BRA	0x22284
0002210a					switch@0x21916[0x82]:
0002210a 9e fc 00 18              |        |		SUBA.W	#0x18,A7
0002210e 20 4f                    | O      |		MOVEA.L	A7,A0
00022110 43 fa e9 98              |C       |		LEA.L	0x20aaa,A1
00022114 70 16                    |p       |		MOVEQ.L	#0x16,D0
00022116 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022118 51 c8 ff fc              |Q       |		DBF	D0,0x22116
0002211c 60 00 fd 98              |`       |		BRA	0x21eb6
00022120					switch@0x21916[0x83]:
00022120 9e c6                    |        |		SUBA.W	D6,A7
00022122 20 4f                    | O      |		MOVEA.L	A7,A0
00022124 43 fa e9 9c              |C       |		LEA.L	0x20ac2,A1
00022128 70 18                    |p       |		MOVEQ.L	#0x18,D0
0002212a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002212c 51 c8 ff fc              |Q       |		DBF	D0,0x2212a
00022130 60 00 fa aa              |`       |		BRA	0x21bdc
00022134					switch@0x21916[0x84]:
00022134 41 fa e9 be              |A       |		LEA.L	0x20af4,A0
00022138 70 05                    |p       |		MOVEQ.L	#0x05,D0
0002213a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002213c 51 c8 ff fc              |Q       |		DBF	D0,0x2213a
00022140 60 00 fc 0c              |`       |		BRA	0x21d4e
00022144					switch@0x21916[0x85]:
00022144 41 fa e9 ca              |A       |		LEA.L	0x20b10,A0
00022148 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002214a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002214c 51 c8 ff fc              |Q       |		DBF	D0,0x2214a
00022150 60 00 fe b2              |`       |		BRA	0x22004
00022154					switch@0x21916[0x86]:
00022154 41 fa e9 d2              |A       |		LEA.L	0x20b28,A0
00022158 70 05                    |p       |		MOVEQ.L	#0x05,D0
0002215a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002215c 51 c8 ff fc              |Q       |		DBF	D0,0x2215a
00022160 60 00 fb ec              |`       |		BRA	0x21d4e
00022164					switch@0x21916[0x87]:
00022164 9e c4                    |        |		SUBA.W	D4,A7
00022166 20 4f                    | O      |		MOVEA.L	A7,A0
00022168 43 fa e9 be              |C       |		LEA.L	0x20b28,A1
0002216c 70 14                    |p       |		MOVEQ.L	#0x14,D0
0002216e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022170 51 c8 ff fc              |Q       |		DBF	D0,0x2216e
00022174 60 00 f9 82              |`       |		BRA	0x21af8
00022178					switch@0x21916[0x89]:
00022178 9e c4                    |        |		SUBA.W	D4,A7
0002217a 20 4f                    | O      |		MOVEA.L	A7,A0
0002217c 43 fa e9 c0              |C       |		LEA.L	0x20b3e,A1
00022180 70 14                    |p       |		MOVEQ.L	#0x14,D0
00022182 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022184 51 c8 ff fc              |Q       |		DBF	D0,0x22182
00022188 60 00 f9 6e              |`  n    |		BRA	0x21af8
0002218c					switch@0x21916[0x90]:
0002218c 41 fa e9 de              |A       |		LEA.L	0x20b6c,A0
00022190 70 05                    |p       |		MOVEQ.L	#0x05,D0
00022192 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022194 51 c8 ff fc              |Q       |		DBF	D0,0x22192
00022198 60 00 fb b4              |`       |		BRA	0x21d4e
0002219c					switch@0x21916[0x91]:
0002219c 41 fa e9 e0              |A       |		LEA.L	0x20b7e,A0
000221a0 70 08                    |p       |		MOVEQ.L	#0x08,D0
000221a2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000221a4 51 c8 ff fc              |Q       |		DBF	D0,0x221a2
000221a8 60 00 00 da              |`       |		BRA	0x22284
000221ac					switch@0x21916[0x92]:
000221ac 9e fc 00 30              |   0    |		SUBA.W	#0x30,A7
000221b0 20 4f                    | O      |		MOVEA.L	A7,A0
000221b2 43 fa e9 ca              |C       |		LEA.L	0x20b7e,A1
000221b6 70 2e                    |p.      |		MOVEQ.L	#0x2e,D0
000221b8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000221ba 51 c8 ff fc              |Q       |		DBF	D0,0x221b8
000221be 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000221c0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000221c4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000221c6 3f 3c 00 2f              |?< /    |		MOVE.W	#0x2f,-(A7)
000221ca 4e 92                    |N       |		JSR	(A2)
000221cc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000221ce 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000221d0 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
000221d4 60 00 00 c0              |`       |		BRA	0x22296
000221d8					switch@0x21916[0x93]:
000221d8 41 fa ea 06              |A       |		LEA.L	0x20be0,A0
000221dc 70 18                    |p       |		MOVEQ.L	#0x18,D0
000221de 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000221e0 51 c8 ff fc              |Q       |		DBF	D0,0x221de
000221e4 60 00 fd b2              |`       |		BRA	0x21f98
000221e8					switch@0x21916[0x94]:
000221e8 41 fa ea 08              |A       |		LEA.L	0x20bf2,A0
000221ec 70 08                    |p       |		MOVEQ.L	#0x08,D0
000221ee 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000221f0 51 c8 ff fc              |Q       |		DBF	D0,0x221ee
000221f4 60 00 00 8e              |`       |		BRA	0x22284
000221f8					switch@0x21916[0x95]:
000221f8 9e fc 00 34              |   4    |		SUBA.W	#0x34,A7
000221fc 20 4f                    | O      |		MOVEA.L	A7,A0
000221fe 43 fa e9 f2              |C       |		LEA.L	0x20bf2,A1
00022202 70 32                    |p2      |		MOVEQ.L	#0x32,D0
00022204 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022206 51 c8 ff fc              |Q       |		DBF	D0,0x22204
0002220a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002220c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022210 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022212 3f 3c 00 33              |?< 3    |		MOVE.W	#0x33,-(A7)
00022216 4e 92                    |N       |		JSR	(A2)
00022218 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002221a 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
0002221c de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00022220 60 74                    |`t      |		BRA	0x22296
00022222					switch@0x21916[0x96]:
00022222 2f 3a ea 0e              |/:      |		MOVE.L	0x20c32,-(A7)
00022226 2f 3a ea 06              |/:      |		MOVE.L	0x20c2e,-(A7)
0002222a 2f 3a e9 fe              |/:      |		MOVE.L	0x20c2a,-(A7)
0002222e 2f 3a e9 f6              |/:      |		MOVE.L	0x20c26,-(A7)
00022232 60 00 f9 52              |`  R    |		BRA	0x21b86
00022236					switch@0x21916[0x97]:
00022236 41 fa ea 2a              |A  *    |		LEA.L	0x20c62,A0
0002223a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002223c 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002223e 51 c8 ff fc              |Q       |		DBF	D0,0x2223c
00022242 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022244 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022248 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002224a 3f 3c 00 2c              |?< ,    |		MOVE.W	#0x2c,-(A7)
0002224e 60 00 fd 2e              |`  .    |		BRA	0x21f7e
00022252					switch@0x21916[0x98]:
00022252 41 fa ea 26              |A  &    |		LEA.L	0x20c7a,A0
00022256 70 05                    |p       |		MOVEQ.L	#0x05,D0
00022258 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002225a 51 c8 ff fc              |Q       |		DBF	D0,0x22258
0002225e 60 00 fa ee              |`       |		BRA	0x21d4e
00022262					switch@0x21916[0x99]:
00022262 9e fc 00 18              |        |		SUBA.W	#0x18,A7
00022266 20 4f                    | O      |		MOVEA.L	A7,A0
00022268 43 fa ea 10              |C       |		LEA.L	0x20c7a,A1
0002226c 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002226e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022270 51 c8 ff fc              |Q       |		DBF	D0,0x2226e
00022274 60 00 fc 40              |`  @    |		BRA	0x21eb6
00022278					switch@0x21916[0x19]:
00022278					switch@0x21916[0x1a]:
00022278					switch@0x21916[0x1b]:
00022278					switch@0x21916[0x1c]:
00022278					switch@0x21916[0x1d]:
00022278					switch@0x21916[0x1e]:
00022278					switch@0x21916[0x1f]:
00022278					switch@0x21916[0x2a]:
00022278					switch@0x21916[0x2b]:
00022278					switch@0x21916[0x2c]:
00022278					switch@0x21916[0x2d]:
00022278					switch@0x21916[0x2e]:
00022278					switch@0x21916[0x2f]:
00022278					switch@0x21916[0x37]:
00022278					switch@0x21916[0x38]:
00022278					switch@0x21916[0x39]:
00022278					switch@0x21916[0x3a]:
00022278					switch@0x21916[0x3b]:
00022278					switch@0x21916[0x3c]:
00022278					switch@0x21916[0x3d]:
00022278					switch@0x21916[0x3e]:
00022278					switch@0x21916[0x3f]:
00022278					switch@0x21916[0x40]:
00022278					switch@0x21916[0x42]:
00022278					switch@0x21916[0x43]:
00022278					switch@0x21916[0x44]:
00022278					switch@0x21916[0x45]:
00022278					switch@0x21916[0x46]:
00022278					switch@0x21916[0x49]:
00022278					switch@0x21916[0x4a]:
00022278					switch@0x21916[0x4b]:
00022278					switch@0x21916[0x4c]:
00022278					switch@0x21916[0x4d]:
00022278					switch@0x21916[0x4e]:
00022278					switch@0x21916[0x4f]:
00022278					switch@0x21916[0x57]:
00022278					switch@0x21916[0x58]:
00022278					switch@0x21916[0x59]:
00022278					switch@0x21916[0x5a]:
00022278					switch@0x21916[0x5b]:
00022278					switch@0x21916[0x5c]:
00022278					switch@0x21916[0x5d]:
00022278					switch@0x21916[0x5e]:
00022278					switch@0x21916[0x5f]:
00022278					switch@0x21916[0x69]:
00022278					switch@0x21916[0x6a]:
00022278					switch@0x21916[0x6b]:
00022278					switch@0x21916[0x6c]:
00022278					switch@0x21916[0x6d]:
00022278					switch@0x21916[0x6e]:
00022278					switch@0x21916[0x6f]:
00022278					switch@0x21916[0x7a]:
00022278					switch@0x21916[0x7b]:
00022278					switch@0x21916[0x7c]:
00022278					switch@0x21916[0x7d]:
00022278					switch@0x21916[0x7e]:
00022278					switch@0x21916[0x7f]:
00022278					switch@0x21916[0x88]:
00022278					switch@0x21916[0x8a]:
00022278					switch@0x21916[0x8b]:
00022278					switch@0x21916[0x8c]:
00022278					switch@0x21916[0x8d]:
00022278					switch@0x21916[0x8e]:
00022278					switch@0x21916[0x8f]:
00022278					switch@0x21916[0xa]:
00022278					switch@0x21916[0xb]:
00022278					switch@0x21916[0xc]:
00022278					switch@0x21916[0xd]:
00022278					switch@0x21916[0xe]:
00022278					switch@0x21916[0xf]:
00022278 41 fa ea 2a              |A  *    |		LEA.L	0x20ca4,A0
0002227c 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002227e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022280 51 c8 ff fc              |Q       |		DBF	D0,0x2227e
00022284 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022286 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002228a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002228c 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002228e 4e 92                    |N       |		JSR	(A2)
00022290 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022292 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00022294 de c3                    |        |		ADDA.W	D3,A7
00022296 3f 3a ea 0c              |?:      |		MOVE.W	0x20ca4,-(A7)
0002229a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002229c 2f 0c                    |/       |		MOVE.L	A4,-(A7)
0002229e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000222a0 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000222a4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000222a6 3f 3c 00 02              |?<      |		MOVE.W	#0x2,-(A7)
000222aa 4e 92                    |N       |		JSR	(A2)
000222ac 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000222ae 3e ae 00 08              |>       |		MOVE.W	(A6+0x8),(A7)
000222b2 4e ba ea fc              |N       |		JSR	0x20db0
000222b6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000222b8 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
000222be de c7                    |        |		ADDA.W	D7,A7
000222c0 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000222c6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000222c8 4c df 17 ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A4
000222cc 4e 5e                    |N^      |		UNLK	A6
000222ce 4e 75                    |Nu      |		RTS
000222d0 ; --------------------------------------------------------------------------------------
000222d0 ; OMSI PASCAL Function
000222d0 ; --------------------------------------------------------------------------------------
000222d0					START:
000222d0 4f fa 00 08              |O       |		LEA.L	MAIN,A7
000222d4 4e f9 00 01 02 80        |N       |		JMP	?start_program
000222da					MAIN:
000222da 43 f9 00 02 25 aa        |C   %   |		LEA.L	0x225aa,A1
000222e0 45 f9 00 02 25 a8        |E   %   |		LEA.L	0x225a8,A2
000222e6 47 f9 00 02 25 a4        |G   %   |		LEA.L	0x225a4,A3
000222ec 49 f9 00 02 25 a6        |I   %   |		LEA.L	0x225a6,A4
000222f2 32 3c 00 ff              |2<      |		MOVE.W	#0xff,D1
000222f6 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
000222fc 48 52                    |HR      |		PEA.L	(A2)
000222fe 4e ba f5 16              |N       |		JSR	0x21816
00022302 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022304 48 53                    |HS      |		PEA.L	(A3)
00022306 48 54                    |HT      |		PEA.L	(A4)
00022308 4e ba ef de              |N       |		JSR	0x212e8
0002230c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002230e 3e 92                    |>       |		MOVE.W	(A2),(A7)
00022310 30 13                    |0       |		MOVE.W	(A3),D0
00022312 41 81                    |A       |		CHK.W	D1,D0
00022314 3f 00                    |?       |		MOVE.W	D0,-(A7)
00022316 30 14                    |0       |		MOVE.W	(A4),D0
00022318 41 81                    |A       |		CHK.W	D1,D0
0002231a 3f 00                    |?       |		MOVE.W	D0,-(A7)
0002231c 48 51                    |HQ      |		PEA.L	(A1)
0002231e 48 79 00 02 25 ac        |Hy  %   |		PEA.L	0x225ac
00022324 4e ba f4 8c              |N       |		JSR	0x217b2
00022328 de fc 00 0e              |        |		ADDA.W	#0xe,A7
0002232c 30 11                    |0       |		MOVE.W	(A1),D0
0002232e 41 81                    |A       |		CHK.W	D1,D0
00022330 3f 00                    |?       |		MOVE.W	D0,-(A7)
00022332 4e ba f5 aa              |N       |		JSR	0x218de
00022336 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022338 4a 51                    |JQ      |		TST.W	(A1)
0002233a 67 44                    |gD      |		BEQ	0x22380
0002233c 41 fa e9 7e              |A  ~    |		LEA.L	0x20cbc,A0
00022340 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022342 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022344 51 c8 ff fc              |Q       |		DBF	D0,0x22342
00022348 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002234a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002234e 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022352 3f 3c 00 16              |?<      |		MOVE.W	#0x16,-(A7)
00022356 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
0002235c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002235e 30 39 00 02 25 ac        |09  %   |		MOVE.W	0x225ac,D0
00022364 41 81                    |A       |		CHK.W	D1,D0
00022366 3f 00                    |?       |		MOVE.W	D0,-(A7)
00022368 4e ba ea 46              |N  F    |		JSR	0x20db0
0002236c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002236e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022374 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022376 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002237c de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00022380 60 82                    |`       |		BRA	0x22304
00022382 42 27 48 78 00 01        |B'Hx    |		.XXX[0x6]
00022388 4e b9 00 01 03 b8 5c 4f  |N     \O|		.XXX[0x8]
00022390 4e b9 00 01 02 84        |N       |		.XXX[0x6]
00022396 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
000223a4 ; --------------------------------------------------------------------------------------
000223a4 ; OMSI PASCAL Function
000223a4 ;    <LVAR  0x008 1(r)>
000223a4 ; --------------------------------------------------------------------------------------
000223a4					PROG_FAIL:
000223a4 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
000223a8 bf d5                    |        |		CMPA.L	(A5),A7
000223aa 62 06                    |b       |		BHI	0x223b2
000223ac 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000223b0 4e 76                    |Nv      |		TRAPV
000223b2 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
000223b6 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
000223ba 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
000223be 70 06                    |p       |		MOVEQ.L	#0x06,D0
000223c0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000223c2 51 c8 ff fc              |Q       |		DBF	D0,0x223c0
000223c6 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
000223ca 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000223cc 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
000223d0 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
000223d4 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
000223d8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
000223de 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000223e0 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
000223e4 48 80                    |H       |		EXTB.W	D0
000223e6 48 c0                    |H       |		EXTW.L	D0
000223e8 2f 00                    |/       |		MOVE.L	D0,-(A7)
000223ea 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000223f0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000223f2 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000223f8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000223fa 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022400 de fc 00 14              |        |		ADDA.W	#0x14,A7
00022404 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00022408 4e 5e                    |N^      |		UNLK	A6
0002240a 4e 75                    |Nu      |		RTS
0002240c 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
0002241a 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00022428 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00022436 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00022448 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00022460 ; --------------------------------------------------------------------------------------
00022460 ; OMSI PASCAL Function
00022460 ;    <LVAR  0x00e 1(r)>
00022460 ;    <LVAR  0x00a 4(r)>
00022460 ;    <LVAR  0x008 1(r)>
00022460 ; --------------------------------------------------------------------------------------
00022460					EXP_FAIL:
00022460 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00022464 bf d5                    |        |		CMPA.L	(A5),A7
00022466 62 06                    |b       |		BHI	0x2246e
00022468 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002246c 4e 76                    |Nv      |		TRAPV
0002246e de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00022472 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00022476 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
0002247c 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00022482 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022484 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00022486 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00022488 78 12                    |x       |		MOVEQ.L	#0x12,D4
0002248a 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
0002248c 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00022492 41 fa ff b4              |A       |		LEA.L	0x22448,A0
00022496 70 08                    |p       |		MOVEQ.L	#0x08,D0
00022498 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002249a 51 c8 ff fc              |Q       |		DBF	D0,0x22498
0002249e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000224a0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000224a4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000224a6 3f 04                    |?       |		MOVE.W	D4,-(A7)
000224a8 4e 93                    |N       |		JSR	(A3)
000224aa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224ac 4e 94                    |N       |		JSR	(A4)
000224ae 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224b0 20 4f                    | O      |		MOVEA.L	A7,A0
000224b2 43 fa ff 58              |C  X    |		LEA.L	0x2240c,A1
000224b6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000224b8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000224ba 51 c8 ff fc              |Q       |		DBF	D0,0x224b8
000224be 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000224c0 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000224c4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000224c6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000224c8 4e 93                    |N       |		JSR	(A3)
000224ca 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000224cc 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
000224d0 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
000224d6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000224d8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000224de 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224e0 4e 94                    |N       |		JSR	(A4)
000224e2 de c4                    |        |		ADDA.W	D4,A7
000224e4 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
000224e8 b0 c1                    |        |		CMPA.W	D1,A0
000224ea 67 48                    |gH      |		BEQ	0x22534
000224ec 9e c5                    |        |		SUBA.W	D5,A7
000224ee 22 4f                    |"O      |		MOVEA.L	A7,A1
000224f0 45 fa ff 28              |E  (    |		LEA.L	0x2241a,A2
000224f4 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000224f6 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000224f8 51 c8 ff fc              |Q       |		DBF	D0,0x224f6
000224fc 9e c3                    |        |		SUBA.W	D3,A7
000224fe 22 4f                    |"O      |		MOVEA.L	A7,A1
00022500 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00022504 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00022506 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00022508 51 c8 ff fc              |Q       |		DBF	D0,0x22506
0002250c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002250e 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00022512 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022514 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022516 4e 93                    |N       |		JSR	(A3)
00022518 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002251a 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002251e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022520 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022522 4e 93                    |N       |		JSR	(A3)
00022524 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022526 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002252c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002252e 4e 94                    |N       |		JSR	(A4)
00022530 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00022534 9e c5                    |        |		SUBA.W	D5,A7
00022536 20 4f                    | O      |		MOVEA.L	A7,A0
00022538 43 fa fe ee              |C       |		LEA.L	0x22428,A1
0002253c 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002253e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022540 51 c8 ff fc              |Q       |		DBF	D0,0x2253e
00022544 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022546 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002254a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002254c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002254e 4e 93                    |N       |		JSR	(A3)
00022550 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022552 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00022556 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
0002255c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002255e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022564 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022566 4e 94                    |N       |		JSR	(A4)
00022568 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002256a 20 4f                    | O      |		MOVEA.L	A7,A0
0002256c 43 fa fe da              |C       |		LEA.L	0x22448,A1
00022570 70 16                    |p       |		MOVEQ.L	#0x16,D0
00022572 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022574 51 c8 ff fc              |Q       |		DBF	D0,0x22572
00022578 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002257c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002257e 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00022582 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022584 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00022588 4e 93                    |N       |		JSR	(A3)
0002258a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002258c 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022592 de c3                    |        |		ADDA.W	D3,A7
00022594 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00022598 4e 5e                    |N^      |		UNLK	A6
0002259a 4e 75                    |Nu      |		RTS