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

⟦192e78798⟧ M200

    Length: 12800 (0x3200)
    Types: M200
    Notes: M200_PROGRAM
    Names: »CONFIGURE_PAD.M200«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »CONFIGURE_PAD.M200« 

Disassembly

0x20f50


@ 20f50
        <LVAR  0x008 @ 4(r)>
    <POP 20f50-20fa6 Body>                                              
        <POP 20f50-20f66 Prologue>                           Σ0         ↓
        <POP 20f66-20f6a RegCacheLoad>                       Σ0         ↓
        <POP 20f6a-20f9e Naked>                              Σ0         ↓
            <MI 20f6a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Const 0x20f6c 0xa.2>                            Δ-2                {[4, '(A6+0x8)']|[#10]}
            <Call 0x20f70 0x102c0>                                              {[4, '(A6+0x8)']|[#10]}
                AppendChar(MOD b : String; a : char)
            <POP 20f76-20f78 StackAdj>                       Δ+2                {[4, '(A6+0x8)']}
            <MI 20f78  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Const 0x20f7a 0xd.2>                            Δ-2                {[4, '(A6+0x8)']|[#13]}
            <Call 0x20f7e 0x102c0>                                              {[4, '(A6+0x8)']|[#13]}
                AppendChar(MOD b : String; a : char)
            <POP 20f84-20f86 StackAdj>                       Δ+4                {[-2-]}
            <POP 20f86-20f87 StackAdj>                       Δ+2                {}
            <Const 0x20f87 0x1.2>                            Δ-2                {[#1]}
            <MI 20f8a  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[#1]|[4, '(A6+0x8)']}
            <Call 0x20f8c 0x1020a>                                              {[#1]|[4, '(A6+0x8)']}
                KC05_Write_Console_String(port : Word ; str : String)
            <POP 20f92-20f94 StackAdj>                       Δ+6                {}
            <Pointer.fp 0x20f94 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x20f96 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 20f9c-20f9e StackAdj>                       Δ+4                {}
        <POP 20f9e-20fa6 Epilogue>                           Σ0         

0x20fa6


@ 20fa6
        <LVAR -0x004 @ 4(r)>
    <POP 20fa6-20fd0 Body>                                              
        <POP 20fa6-20fb8 Prologue>                           Σ0         ↓
        <POP 20fb8-20fcc Naked>                              Σ0         ↓
            <Pointer.fp 0x20fb8 <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x20fbc 0x102b8>                                              {[@@-4]}
                NewString(VAR a : String)
            <MI 20fc2  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <Call 0x20fc6 0x20f50>                                              {[4, '(A6-0x4)']}
            <POP 20fca-20fcc StackAdj>                       Δ+4                {}
        <POP 20fcc-20fd0 Epilogue>                           Σ0         

0x20fd0


@ 20fd0
        <LVAR  0x008 @ 4(r)>
    <POP 20fd0-21018 Body>                                              
        <POP 20fd0-20fe6 Prologue>                           Σ0         ↓
        <POP 20fe6-20fea RegCacheLoad>                       Σ0         ↓
        <POP 20fea-21010 Naked>                              Σ0         ↓
            <MI 20fea  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Const 0x20fec 0xd.2>                            Δ-2                {[4, '(A6+0x8)']|[#13]}
            <Call 0x20ff0 0x102c0>                                              {[4, '(A6+0x8)']|[#13]}
                AppendChar(MOD b : String; a : char)
            <POP 20ff6-20ff8 StackAdj>                       Δ+4                {[-2-]}
            <POP 20ff8-20ff9 StackAdj>                       Δ+2                {}
            <Const 0x20ff9 0x2.2>                            Δ-2                {[#2]}
            <MI 20ffc  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[#2]|[4, '(A6+0x8)']}
            <Call 0x20ffe 0x1020a>                                              {[#2]|[4, '(A6+0x8)']}
                KC05_Write_Console_String(port : Word ; str : String)
            <POP 21004-21006 StackAdj>                       Δ+6                {}
            <Pointer.fp 0x21006 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x21008 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 2100e-21010 StackAdj>                       Δ+4                {}
        <POP 21010-21018 Epilogue>                           Σ0         

0x21018


@ 21018
        <LVAR  0x00c 2(w)>
        <LVAR  0x008 4(r)>
    <POP 21018-2104e Body>                                              
        <POP 21018-2102e Prologue>                           Σ0         ↓
        <POP 2102e-21046 Naked>                              Σ0         ↓
            <POP 2102e-21030 StackAdj>                       Δ-2                {[-2-]}
            <MI 21030  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0x8)']}
            <Call 0x21034 0x10592>                                              {[-2-]|[4, '(A6+0x8)']}
                ReadConfig(where : Long) : Word
            <POP 2103a-2103c StackAdj>                       Δ+4                {[-2-]}
            <MI 2103c  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x2103e LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 21042  MOVE.W  D0,(A6+0xc)>                                     {}
        <POP 21046-2104e Epilogue>                           Σ0         

0x2104e


@ 2104e
        <LVAR -0x004 @ 1(r)>
    <POP 2104e-21104 Body>                                              
        <POP 2104e-21064 Prologue>                           Σ0         ↓
        <POP 21064-21078 RegCacheLoad>                       Σ0         ↓
        <POP 21078-2107c Naked>                              Σ0         ↓
            <MI 21078  MOVEQ.L #0x00,D7>                                        {}
            <MI 2107a  CLR.L   0x23986>                                         {}
        <POP 2107c-21084 Naked>                              Σ0         ↓ →0x210f4 ←0x210f0
            <MI 2107c  CMPI.L  #0x00000014,D7>                                  {}
            <MI 21082  BEQ     0x210f4>                                         {}
        <POP 21084-21086 Naked>                              Σ0         ↓
            <MI 21084  MOVEQ.L #0x01,D6>                                        {}
        <POP 21086-2109e Naked>                              Σ0         ↓ →0x210e6 ←0x210e6
            <Const 0x21086 0x2.2>                            Δ-2                {[#2]}
            <Pointer.fp 0x21088 <LVAR -0x004 @ 1(r)>>        Δ-4                {[#2]|[@@-4]}
            <Call 0x2108c 0x10212>                                              {[#2]|[@@-4]}
                KC09_PortStatus(Port : Word; VAR b: Byte)
            <POP 21092-21094 StackAdj>                       Δ+6                {}
            <MI 21094  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 21098  CMPI.B  #0x01,D0>                                        {}
            <MI 2109c  BNE     0x210e6>                                         {}
        <POP 2109e-210c0 Naked>                              Σ0         ↓ →0x210e2
            <Const 0x2109e 0x2.2>                            Δ-2                {[#2]}
            <MI 210a0  MOVE.L  0x23986,D0>                                      {[#2]}
            <POP 0x210a2 LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {[#2]}
            <MI 210ac  ASL.L   #0x1,D0>                                         {[#2]}
            <MI 210ae  LEA.L   0x23178,A0>                                      {[#2]}
            <MI 210b0  PEA.L   (A0+D0.L+#0xe)>               Δ-4                {[#2]|[4, '^(A0+D0.L+#0xe)']}
            <Call 0x210b4 0x1020e>                                              {[#2]|[4, '^(A0+D0.L+#0xe)']}
                KC07_PortGetChar(port : Word ; VAR ret : Word)
            <POP 210ba-210bc StackAdj>                       Δ+6                {}
            <MI 210bc  TST.B   0x23180>                                         {}
            <MI 210be  BEQ     0x210e2>                                         {}
        <POP 210c0-210e2 Naked>                              Σ0         ↓
            <MI 210c0  MOVE.L  0x23986,D0>                                      {}
            <POP 0x210c2 LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {}
            <MI 210cc  ASL.L   #0x1,D0>                                         {}
            <MI 210ce  LEA.L   0x23178,A0>                                      {}
            <MI 210d0  MOVE.W  (A0+D0.L+#0xe),D0>                               {}
            <MI 210d4  ANDI.W  #0x00ff,D0>                                      {}
            <MI 210d8  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x210da 0x103d0>                                              {[2, 'D0']}
                WriteConsoleChar(chr : char)
            <POP 210e0-210e2 StackAdj>                       Δ+2                {}
        <POP 210e2-210e6 Naked>                              Σ0         ↓ ←0x2109e
            <MI 210e2  MOVEQ.L #0x00,D7>                                        {}
            <MI 210e4  ADDQ.L  #0x1,0x23986>                                    {}
        <POP 210e6-210f0 Naked>                              Σ0         ↓ →0x21086 ←0x21086
            <MI 210e6  ADDQ.L  #0x1,D6>                                         {}
            <MI 210e8  CMPI.L  #0x000003e8,D6>                                  {}
            <MI 210ee  BLE     0x21086>                                         {}
        <POP 210f0-210f4 Naked>                              Σ0         →0x2107c
            <MI 210f0  ADDQ.L  #0x1,D7>                                         {}
            <MI 210f2  BRA     0x2107c>                                         {}
        <POP 210f4-210f8 Naked>                              Σ0         ↓ →0x210fc ←0x2107c
            <MI 210f4  TST.B   0x23180>                                         {}
            <MI 210f6  BEQ     0x210fc>                                         {}
        <POP 210f8-210fc Naked>                              Σ0         ↓
            <Call 0x210f8 0x20fa6>                                              {}
        <POP 210fc-21104 Epilogue>                           Σ0         ←0x210f4

0x21104


@ 21104
        <LVAR -0x006 @ 2(r)>
        <LVAR -0x008 @ 1(r)>
    <POP 21104-21276 Body>                                              
        <POP 21104-2111a Prologue>                           Σ0         ↓
        <POP 2111a-2112c RegCacheLoad>                       Σ0         ↓
        <POP 2112c-21172 Naked>                              Σ0         ↓
            <MI 2112c  CLR.B   0x23180>                                         {}
            <Call 0x21132 0x10216>                                              {}
                KC0b
            <Call 0x21138 0x2104e>                                              {}
            <Blob 0x2113c [60] @>                            Δ-60               {[«60""»]}
            <POP 21148-2114a StackAdj>                       Δ-4                {[«60""»]|[-4-]}
            <Lit 0x2114a 60>                                                    {[«60""»]|[$$Direct communication to PAD established, use <CNTL>C to exit]}
            <Call 0x21158 0x103e0>                                              {[«60""»]|[$$Direct communication to PAD established, use <CNTL>C to exit]}
                WriteConsoleStringCrLf(str : String)
            <POP 2115e-21162 StackAdj>                       Δ+62               {[-2-]}
            <POP 21162-21163 StackAdj>                       Δ+2                {}
            <Const 0x21163 0x2.2>                            Δ-2                {[#2]}
            <Const 0x21164 0x10.2>                           Δ-2                {[#2]|[#16]}
            <Call 0x21168 0x1020c>                                              {[#2]|[#16]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 2116e-21170 StackAdj>                       Δ+4                {}
            <MI 21170  MOVEQ.L #0x00,D6>                                        {}
        <POP 21172-21184 Naked>                              Σ0         ↓ →0x211b4 ←0x21268
            <Const 0x21172 0x1.2>                            Δ-2                {[#1]}
            <Pointer.fp 0x21174 <LVAR -0x008 @ 1(r)>>        Δ-4                {[#1]|[@@-8]}
            <Call 0x21176 0x10212>                                              {[#1]|[@@-8]}
                KC09_PortStatus(Port : Word; VAR b: Byte)
            <POP 2117c-2117e StackAdj>                       Δ+6                {}
            <MI 2117e  MOVE.B  (A6-0x8),D0>                                     {}
            <MI 21180  CMP.B   #0x01,D0>                                        {}
            <MI 21182  BNE     0x211b4>                                         {}
        <POP 21184-2119e Naked>                              Σ0         ↓ →0x211a2
            <Const 0x21184 0x1.2>                            Δ-2                {[#1]}
            <Pointer.fp 0x21186 <LVAR -0x006 @ 2(r)>>        Δ-4                {[#1]|[@@-6]}
            <Call 0x21188 0x1020e>                                              {[#1]|[@@-6]}
                KC07_PortGetChar(port : Word ; VAR ret : Word)
            <POP 2118e-21190 StackAdj>                       Δ+6                {}
            <MI 21190  MOVE.W  (A6-0x6),D0>                                     {}
            <MI 21192  ANDI.W  #0x00ff,D0>                                      {}
            <MI 21196  MOVE.B  D0,D7>                                           {}
            <MI 21198  CMPI.B  #0x03,D7>                                        {}
            <MI 2119c  BNE     0x211a2>                                         {}
        <POP 2119e-211a2 Naked>                              Σ0         →0x211b2
            <MI 2119e  MOVEQ.L #0x01,D6>                                        {}
            <MI 211a0  BRA     0x211b2>                                         {}
        <POP 211a2-211b2 Naked>                              Σ0         ↓ ←0x21184
            <Const 0x211a2 0x2.2>                            Δ-2                {[#2]}
            <MI 211a4  CLR.L   D0>                                              {[#2]}
            <MI 211a6  MOVE.B  D7,D0>                                           {[#2]}
            <MI 211a8  MOVE.W  D0,-(A7)>                     Δ-2                {[#2]|[2, 'D0']}
            <Call 0x211aa 0x1020c>                                              {[#2]|[2, 'D0']}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 211b0-211b2 StackAdj>                       Δ+4                {}
        <POP 211b2-211b4 Naked>                              Σ0         →0x211f2 ←0x2119e
            <MI 211b2  BRA     0x211f2>                                         {}
        <POP 211b4-211b8 Naked>                              Σ0         ↓ →0x211f2 ←0x21172
            <MI 211b4  TST.B   D0>                                              {}
            <MI 211b6  BEQ     0x211f2>                                         {}
        <POP 211b8-211f2 Naked>                              Σ0         ↓
            <Blob 0x211b8 [44] @>                            Δ-44               {[«44""»]}
            <POP 211ca-211cc StackAdj>                       Δ-4                {[«44""»]|[-4-]}
            <Lit 0x211cc 43>                                                    {[«44""»]|[$$Unknown status retruned from console buffer]}
            <Call 0x211da 0x103e0>                                              {[«44""»]|[$$Unknown status retruned from console buffer]}
                WriteConsoleStringCrLf(str : String)
            <POP 211e0-211e4 StackAdj>                       Δ+46               {[-2-]}
            <POP 211e4-211e5 StackAdj>                       Δ+2                {}
            <Const 0x211e5 0x2.2>                            Δ-2                {[#2]}
            <Const 0x211e6 0x1.4>                            Δ-4                {[#2]|[##1]}
            <Call 0x211ea 0x103b8>                                              {[#2]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 211f0-211f2 StackAdj>                       Δ+6                {}
        <POP 211f2-21204 Naked>                              Σ0         ↓ →0x2122a ←0x211b2 ←0x211b4
            <Const 0x211f2 0x2.2>                            Δ-2                {[#2]}
            <Pointer.fp 0x211f4 <LVAR -0x008 @ 1(r)>>        Δ-4                {[#2]|[@@-8]}
            <Call 0x211f6 0x10212>                                              {[#2]|[@@-8]}
                KC09_PortStatus(Port : Word; VAR b: Byte)
            <POP 211fc-211fe StackAdj>                       Δ+6                {}
            <MI 211fe  MOVE.B  (A6-0x8),D0>                                     {}
            <MI 21200  CMP.B   #0x01,D0>                                        {}
            <MI 21202  BNE     0x2122a>                                         {}
        <POP 21204-2122a Naked>                              Σ0         →0x21268
            <Const 0x21204 0x2.2>                            Δ-2                {[#2]}
            <Pointer.fp 0x21206 <LVAR -0x006 @ 2(r)>>        Δ-4                {[#2]|[@@-6]}
            <Call 0x21208 0x1020e>                                              {[#2]|[@@-6]}
                KC07_PortGetChar(port : Word ; VAR ret : Word)
            <POP 2120e-21210 StackAdj>                       Δ+6                {}
            <MI 21210  MOVE.W  (A6-0x6),D0>                                     {}
            <MI 21212  ANDI.W  #0x00ff,D0>                                      {}
            <MI 21216  MOVE.B  D0,D7>                                           {}
            <Const 0x21218 0x1.2>                            Δ-2                {[#1]}
            <MI 2121a  CLR.L   D0>                                              {[#1]}
            <MI 2121c  MOVE.B  D7,D0>                                           {[#1]}
            <MI 2121e  MOVE.W  D0,-(A7)>                     Δ-2                {[#1]|[2, 'D0']}
            <Call 0x21220 0x1020c>                                              {[#1]|[2, 'D0']}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 21226-21228 StackAdj>                       Δ+4                {}
            <MI 21228  BRA     0x21268>                                         {}
        <POP 2122a-2122e Naked>                              Σ0         ↓ →0x21268 ←0x211f2
            <MI 2122a  TST.B   D0>                                              {}
            <MI 2122c  BEQ     0x21268>                                         {}
        <POP 2122e-21268 Naked>                              Σ0         ↓
            <Blob 0x2122e [40] @>                            Δ-40               {[«40""»]}
            <POP 21240-21242 StackAdj>                       Δ-4                {[«40""»]|[-4-]}
            <Lit 0x21242 39>                                                    {[«40""»]|[$$Unknown status retruned from pad buffer]}
            <Call 0x21250 0x103e0>                                              {[«40""»]|[$$Unknown status retruned from pad buffer]}
                WriteConsoleStringCrLf(str : String)
            <POP 21256-2125a StackAdj>                       Δ+42               {[-2-]}
            <POP 2125a-2125b StackAdj>                       Δ+2                {}
            <Const 0x2125b 0x2.2>                            Δ-2                {[#2]}
            <Const 0x2125c 0x1.4>                            Δ-4                {[#2]|[##1]}
            <Call 0x21260 0x103b8>                                              {[#2]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 21266-21268 StackAdj>                       Δ+6                {}
        <POP 21268-2126e Naked>                              Σ0         ↓ →0x21172 ←0x21204 ←0x2122a
            <MI 21268  TST.B   D6>                                              {}
            <MI 2126a  BEQ     0x21172>                                         {}
        <POP 2126e-21276 Epilogue>                           Σ0         

0x21276


@ 21276
        <LVAR  0x008 1(w)>
    <POP 21276-21418 Body>                                              
        <POP 21276-2128c Prologue>                           Σ0         ↓
        <POP 2128c-212a6 RegCacheLoad>                       Σ0         ↓
        <POP 212a6-212aa Naked>                              Σ0         ↓
            <MI 212a6  CLR.L   0x23182>                                         {}
            <MI 212a8  MOVEQ.L #0x01,D7>                                        {}
        <POP 212aa-212b6 Naked>                              Σ0         ↓ →0x2140c ←0x21408
            <MI 212aa  MOVE.L  0x23182,D0>                                      {}
            <MI 212ac  CMP.L   0x23986,D0>                                      {}
            <MI 212b2  BGE     0x2140c>                                         {}
        <POP 212b6-212bc Naked>                              Σ0         ↓ →0x2140c
            <MI 212b6  TST.B   D7>                                              {}
            <MI 212b8  BEQ     0x2140c>                                         {}
        <POP 212bc-212d8 Naked>                              Σ0         ↓ →0x21406
            <MI 212bc  MOVE.L  D0,D1>                                           {}
            <MI 212be  ADDQ.L  #0x1,D1>                                         {}
            <POP 0x212c0 LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {}
            <MI 212c6  MOVE.L  D0,D2>                                           {}
            <MI 212c8  ASL.L   #0x1,D2>                                         {}
            <MI 212ca  LEA.L   0x23178,A0>                                      {}
            <MI 212cc  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 212d0  AND.W   #0xff,D2>                                        {}
            <MI 212d2  CMP.B   #0x43,D2>                                        {}
            <MI 212d4  BNE     0x21406>                                         {}
        <POP 212d8-212f2 Naked>                              Σ0         ↓ →0x21406
            <POP 0x212d8 LimitCheck 0x0 ≤ D1 ≤ 0x3ff>                           {}
            <MI 212de  MOVE.L  D1,D2>                                           {}
            <MI 212e0  ASL.L   #0x1,D2>                                         {}
            <MI 212e2  LEA.L   0x23178,A0>                                      {}
            <MI 212e4  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 212e8  AND.W   #0xff,D2>                                        {}
            <MI 212ea  CMPI.B  #0x4d,D2>                                        {}
            <MI 212ee  BNE     0x21406>                                         {}
        <POP 212f2-2130c Naked>                              Σ0         ↓ →0x21406
            <MI 212f2  MOVE.L  D0,D2>                                           {}
            <MI 212f4  ADDQ.L  #0x2,D2>                                         {}
            <POP 0x212f6 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 212fc  ASL.L   #0x1,D2>                                         {}
            <MI 212fe  LEA.L   0x23178,A0>                                      {}
            <MI 21300  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 21304  AND.W   #0xff,D2>                                        {}
            <MI 21306  CMP.B   #0x44,D2>                                        {}
            <MI 21308  BNE     0x21406>                                         {}
        <POP 2130c-21328 Naked>                              Σ0         ↓ →0x21406
            <MI 2130c  MOVE.L  D0,D2>                                           {}
            <MI 2130e  ADDQ.L  #0x3,D2>                                         {}
            <POP 0x21310 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 21316  ASL.L   #0x1,D2>                                         {}
            <MI 21318  LEA.L   0x23178,A0>                                      {}
            <MI 2131a  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 2131e  AND.W   #0xff,D2>                                        {}
            <MI 21320  CMPI.B  #0x20,D2>                                        {}
            <MI 21324  BNE     0x21406>                                         {}
        <POP 21328-21344 Naked>                              Σ0         ↓ →0x21406
            <MI 21328  MOVE.L  D0,D2>                                           {}
            <MI 2132a  ADDQ.L  #0x4,D2>                                         {}
            <POP 0x2132c LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 21332  ASL.L   #0x1,D2>                                         {}
            <MI 21334  LEA.L   0x23178,A0>                                      {}
            <MI 21336  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 2133a  AND.W   #0xff,D2>                                        {}
            <MI 2133c  CMPI.B  #0x41,D2>                                        {}
            <MI 21340  BNE     0x21406>                                         {}
        <POP 21344-2135e Naked>                              Σ0         ↓ →0x21406
            <MI 21344  MOVE.L  D0,D2>                                           {}
            <MI 21346  ADDQ.L  #0x5,D2>                                         {}
            <POP 0x21348 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 2134e  ASL.L   #0x1,D2>                                         {}
            <MI 21350  LEA.L   0x23178,A0>                                      {}
            <MI 21352  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 21356  AND.W   #0xff,D2>                                        {}
            <MI 21358  CMP.B   #0x43,D2>                                        {}
            <MI 2135a  BNE     0x21406>                                         {}
        <POP 2135e-21378 Naked>                              Σ0         ↓ →0x21406
            <MI 2135e  MOVE.L  D0,D2>                                           {}
            <MI 21360  ADDQ.L  #0x6,D2>                                         {}
            <POP 0x21362 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 21368  ASL.L   #0x1,D2>                                         {}
            <MI 2136a  LEA.L   0x23178,A0>                                      {}
            <MI 2136c  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 21370  AND.W   #0xff,D2>                                        {}
            <MI 21372  CMP.B   #0x43,D2>                                        {}
            <MI 21374  BNE     0x21406>                                         {}
        <POP 21378-21392 Naked>                              Σ0         ↓ →0x21406
            <MI 21378  MOVE.L  D0,D2>                                           {}
            <MI 2137a  ADDQ.L  #0x7,D2>                                         {}
            <POP 0x2137c LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 21382  ASL.L   #0x1,D2>                                         {}
            <MI 21384  LEA.L   0x23178,A0>                                      {}
            <MI 21386  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 2138a  AND.W   #0xff,D2>                                        {}
            <MI 2138c  CMPI.B  #0x45,D2>                                        {}
            <MI 21390  BNE     0x21406>                                         {}
        <POP 21392-213ac Naked>                              Σ0         ↓ →0x21406
            <MI 21392  MOVE.L  D0,D2>                                           {}
            <MI 21394  ADDQ.L  #0x8,D2>                                         {}
            <POP 0x21396 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 2139c  ASL.L   #0x1,D2>                                         {}
            <MI 2139e  LEA.L   0x23178,A0>                                      {}
            <MI 213a0  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 213a4  AND.W   #0xff,D2>                                        {}
            <MI 213a6  CMPI.B  #0x50,D2>                                        {}
            <MI 213aa  BNE     0x21406>                                         {}
        <POP 213ac-213ca Naked>                              Σ0         ↓ →0x21406
            <MI 213ac  MOVE.L  D0,D2>                                           {}
            <MI 213ae  ADDI.L  #0x00000009,D2>                                  {}
            <POP 0x213b4 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 213ba  ASL.L   #0x1,D2>                                         {}
            <MI 213bc  LEA.L   0x23178,A0>                                      {}
            <MI 213be  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 213c2  AND.W   #0xff,D2>                                        {}
            <MI 213c4  CMPI.B  #0x54,D2>                                        {}
            <MI 213c8  BNE     0x21406>                                         {}
        <POP 213ca-213e8 Naked>                              Σ0         ↓ →0x21406
            <MI 213ca  MOVE.L  D0,D2>                                           {}
            <MI 213cc  ADDI.L  #0x0000000a,D2>                                  {}
            <POP 0x213d2 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 213d8  ASL.L   #0x1,D2>                                         {}
            <MI 213da  LEA.L   0x23178,A0>                                      {}
            <MI 213dc  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 213e0  AND.W   #0xff,D2>                                        {}
            <MI 213e2  CMPI.B  #0x45,D2>                                        {}
            <MI 213e6  BNE     0x21406>                                         {}
        <POP 213e8-21402 Naked>                              Σ0         ↓ →0x21406
            <MI 213e8  ADDI.L  #0x0000000b,D0>                                  {}
            <POP 0x213ee LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {}
            <MI 213f4  ASL.L   #0x1,D0>                                         {}
            <MI 213f6  LEA.L   0x23178,A0>                                      {}
            <MI 213f8  MOVE.W  (A0+D0.L+#0xe),D0>                               {}
            <MI 213fc  AND.W   #0xff,D0>                                        {}
            <MI 213fe  CMP.B   #0x44,D0>                                        {}
            <MI 21400  BNE     0x21406>                                         {}
        <POP 21402-21406 Naked>                              Σ0         →0x21408
            <MI 21402  MOVEQ.L #0x00,D7>                                        {}
            <MI 21404  BRA     0x21408>                                         {}
        <POP 21406-21408 Naked>                              Σ0         ↓ ←0x212bc ←0x212d8 ←0x212f2 ←0x2130c ←0x21328 ←0x21344 ←0x2135e ←0x21378 ←0x21392 ←0x213ac ←0x213ca ←0x213e8
            <MI 21406  MOVE.L  D1,0x23182>                                      {}
        <POP 21408-2140c Naked>                              Σ0         →0x212aa ←0x21402
            <MI 21408  BRA     0x212aa>                                         {}
        <POP 2140c-21410 Naked>                              Σ0         ↓ ←0x212aa ←0x212b6
            <MI 2140c  MOVE.B  D7,(A6+0x8)>                                     {}
        <POP 21410-21418 Epilogue>                           Σ0         

0x21418


@ 21418
        <LVAR  0x008 1(w)>
    <POP 21418-21542 Body>                                              
        <POP 21418-2142e Prologue>                           Σ0         ↓
        <POP 2142e-21446 RegCacheLoad>                       Σ0         ↓
        <POP 21446-2144a Naked>                              Σ0         ↓
            <MI 21446  CLR.L   0x23182>                                         {}
            <MI 21448  MOVEQ.L #0x01,D7>                                        {}
        <POP 2144a-21456 Naked>                              Σ0         ↓ →0x21536 ←0x21532
            <MI 2144a  MOVE.L  0x23182,D0>                                      {}
            <MI 2144c  CMP.L   0x23986,D0>                                      {}
            <MI 21452  BGE     0x21536>                                         {}
        <POP 21456-2145c Naked>                              Σ0         ↓ →0x21536
            <MI 21456  TST.B   D7>                                              {}
            <MI 21458  BEQ     0x21536>                                         {}
        <POP 2145c-2147a Naked>                              Σ0         ↓ →0x21530
            <MI 2145c  MOVE.L  D0,D1>                                           {}
            <MI 2145e  ADDQ.L  #0x1,D1>                                         {}
            <POP 0x21460 LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {}
            <MI 21466  MOVE.L  D0,D2>                                           {}
            <MI 21468  ASL.L   #0x1,D2>                                         {}
            <MI 2146a  LEA.L   0x23178,A0>                                      {}
            <MI 2146c  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 21470  AND.W   #0xff,D2>                                        {}
            <MI 21472  CMPI.B  #0x53,D2>                                        {}
            <MI 21476  BNE     0x21530>                                         {}
        <POP 2147a-21492 Naked>                              Σ0         ↓ →0x21530
            <POP 0x2147a LimitCheck 0x0 ≤ D1 ≤ 0x3ff>                           {}
            <MI 21480  MOVE.L  D1,D2>                                           {}
            <MI 21482  ASL.L   #0x1,D2>                                         {}
            <MI 21484  LEA.L   0x23178,A0>                                      {}
            <MI 21486  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 2148a  AND.W   #0xff,D2>                                        {}
            <MI 2148c  CMP.B   #0x45,D2>                                        {}
            <MI 2148e  BNE     0x21530>                                         {}
        <POP 21492-214ae Naked>                              Σ0         ↓ →0x21530
            <MI 21492  MOVE.L  D0,D2>                                           {}
            <MI 21494  ADDQ.L  #0x2,D2>                                         {}
            <POP 0x21496 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 2149c  ASL.L   #0x1,D2>                                         {}
            <MI 2149e  LEA.L   0x23178,A0>                                      {}
            <MI 214a0  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 214a4  AND.W   #0xff,D2>                                        {}
            <MI 214a6  CMPI.B  #0x52,D2>                                        {}
            <MI 214aa  BNE     0x21530>                                         {}
        <POP 214ae-214c8 Naked>                              Σ0         ↓ →0x21530
            <MI 214ae  MOVE.L  D0,D2>                                           {}
            <MI 214b0  ADDQ.L  #0x3,D2>                                         {}
            <POP 0x214b2 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 214b8  ASL.L   #0x1,D2>                                         {}
            <MI 214ba  LEA.L   0x23178,A0>                                      {}
            <MI 214bc  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 214c0  AND.W   #0xff,D2>                                        {}
            <MI 214c2  CMPI.B  #0x56,D2>                                        {}
            <MI 214c6  BNE     0x21530>                                         {}
        <POP 214c8-214e2 Naked>                              Σ0         ↓ →0x21530
            <MI 214c8  MOVE.L  D0,D2>                                           {}
            <MI 214ca  ADDQ.L  #0x4,D2>                                         {}
            <POP 0x214cc LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 214d2  ASL.L   #0x1,D2>                                         {}
            <MI 214d4  LEA.L   0x23178,A0>                                      {}
            <MI 214d6  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 214da  AND.W   #0xff,D2>                                        {}
            <MI 214dc  CMPI.B  #0x49,D2>                                        {}
            <MI 214e0  BNE     0x21530>                                         {}
        <POP 214e2-214fc Naked>                              Σ0         ↓ →0x21530
            <MI 214e2  MOVE.L  D0,D2>                                           {}
            <MI 214e4  ADDQ.L  #0x5,D2>                                         {}
            <POP 0x214e6 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 214ec  ASL.L   #0x1,D2>                                         {}
            <MI 214ee  LEA.L   0x23178,A0>                                      {}
            <MI 214f0  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 214f4  AND.W   #0xff,D2>                                        {}
            <MI 214f6  CMPI.B  #0x43,D2>                                        {}
            <MI 214fa  BNE     0x21530>                                         {}
        <POP 214fc-21514 Naked>                              Σ0         ↓ →0x21530
            <MI 214fc  MOVE.L  D0,D2>                                           {}
            <MI 214fe  ADDQ.L  #0x6,D2>                                         {}
            <POP 0x21500 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 21506  ASL.L   #0x1,D2>                                         {}
            <MI 21508  LEA.L   0x23178,A0>                                      {}
            <MI 2150a  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 2150e  AND.W   #0xff,D2>                                        {}
            <MI 21510  CMP.B   #0x45,D2>                                        {}
            <MI 21512  BNE     0x21530>                                         {}
        <POP 21514-2152c Naked>                              Σ0         ↓ →0x21530
            <MI 21514  ADDQ.L  #0x7,D0>                                         {}
            <POP 0x21516 LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {}
            <MI 2151c  ASL.L   #0x1,D0>                                         {}
            <MI 2151e  LEA.L   0x23178,A0>                                      {}
            <MI 21520  MOVE.W  (A0+D0.L+#0xe),D0>                               {}
            <MI 21524  AND.W   #0xff,D0>                                        {}
            <MI 21526  CMPI.B  #0x3a,D0>                                        {}
            <MI 2152a  BNE     0x21530>                                         {}
        <POP 2152c-21530 Naked>                              Σ0         →0x21532
            <MI 2152c  MOVEQ.L #0x00,D7>                                        {}
            <MI 2152e  BRA     0x21532>                                         {}
        <POP 21530-21532 Naked>                              Σ0         ↓ ←0x2145c ←0x2147a ←0x21492 ←0x214ae ←0x214c8 ←0x214e2 ←0x214fc ←0x21514
            <MI 21530  MOVE.L  D1,0x23182>                                      {}
        <POP 21532-21536 Naked>                              Σ0         →0x2144a ←0x2152c
            <MI 21532  BRA     0x2144a>                                         {}
        <POP 21536-2153a Naked>                              Σ0         ↓ ←0x2144a ←0x21456
            <MI 21536  MOVE.B  D7,(A6+0x8)>                                     {}
        <POP 2153a-21542 Epilogue>                           Σ0         

0x21542


@ 21542
        <LVAR -0x008 @ 4(rw)>
        <LVAR -0x00c @ 4(rw)>
        <LVAR -0x014 @ 4(rw)>
    <POP 21542-21db6 Body>                                   Δ+98       
        <POP 21542-21558 Prologue>                           Σ0         ↓
        <POP 21558-2156c RegCacheLoad>                       Σ0         ↓
        <POP 2156c-21602 Naked>                              Σ0         →0x2160a →0x2163e →0x21670 →0x216a2
            <MI 2156c  CLR.B   0x23180>                                         {}
            <Call 0x21572 0x10216>                                              {}
                KC0b
            <Call 0x21578 0x2104e>                                              {}
            <Blob 0x2157a [36] @>                            Δ-36               {[«36""»]}
            <POP 2158a-2158c StackAdj>                       Δ-6                {[«36""»]|[-6-]}
            <Lit 0x2158c 35>                                                    {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]}
            <POP 21598-2159a StackAdj>                       Δ-2                {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
            <MI 2159a  CLR.B   (A7)>                                            {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
            <Call 0x2159c 0x103f0>                                              {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 215a2-215a4 StackAdj>                       Δ+6                {[«36""»]|[-2-]}
            <MI 215a4  MOVE.B  (A7)+,D0>                     Δ+2                {[«36""»]}
            <MI 215a6  EXTB.W  D0>                                              {[«36""»]}
            <POP 0x215a8 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«36""»]}
            <POP 215aa-215ac StackAdj>                       Δ+36               {}
            <MI 215ac  MOVE.B  D0,0x23180>                                      {}
            <Blob 0x215b2 [54] @>                            Δ-54               {[«54""»]}
            <POP 215c4-215c6 StackAdj>                       Δ-8                {[«54""»]|[-8-]}
            <Lit 0x215c6 53>                                                    {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]}
            <Const 0x215d4 0x2.4>                            Δ-4                {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]}
            <Const 0x215d8 0x5.4>                            Δ-4                {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
            <Call 0x215dc 0x103ec>                                              {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 215e2-215e4 StackAdj>                       Δ+12               {[«54""»]|[-4-]}
            <MI 215e4  MOVE.L  (A7)+,D7>                     Δ+4                {[«54""»]}
            <POP 215e6-215ea StackAdj>                       Δ+54               {}
            <MI 215ea  MOVE.L  D7,D0>                                           {}
            <MI 215ec  SUBQ.L  #0x2,D0>                                         {}
            <POP 0x215ee LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 215f8  ADD.W   D0,D0>                                           {}
            <MI 215fa  SWITCH  D0.W>                                            {}
        <POP 2160a-2163e Naked>                              Σ0 Δ-8     →0x216d2 ←0x2156c
            <Blob 0x2160a [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x2160e [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21612 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21616-21618 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x21618 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:2_]}
            <MI 21626  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 2162a-2162b StackAdj>                       Δ+6        ↓       {}
            <Blob 0x2162b [8] @>                             Δ-8                {[«8""»]}
            <MI 2163a  BRA     0x216d2>                                         {[«8""»]}
        <POP 2163e-21670 Naked>                              Σ0 Δ-8     →0x216d2 ←0x2156c
            <Blob 0x2163e [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21642 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21646 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 2164a-2164c StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x2164c 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:3_]}
            <MI 2165a  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 2165e-2165f StackAdj>                       Δ+6        ↓       {}
            <Blob 0x2165f [8] @>                             Δ-8                {[«8""»]}
            <MI 2166e  BRA     0x216d2>                                         {[«8""»]}
        <POP 21670-216a2 Naked>                              Σ0 Δ-8     →0x216d2 ←0x2156c
            <Blob 0x21670 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21674 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21678 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 2167c-2167e StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x2167e 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:4_]}
            <MI 2168c  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21690-21691 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x21691 [8] @>                             Δ-8                {[«8""»]}
            <MI 216a0  BRA     0x216d2>                                         {[«8""»]}
        <POP 216a2-216d2 Naked>                              Σ0 Δ-8     ↓ ←0x2156c
            <Blob 0x216a2 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x216a6 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x216aa [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 216ae-216b0 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x216b0 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:5_]}
            <MI 216be  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 216c2-216c3 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x216c3 [8] @>                             Δ-8                {[«8""»]}
        <POP 216d2-216e8 Naked>                              Σ-8 Δ+8    ↓ ←0x2160a ←0x2163e ←0x21670
            <POP 216d2-216d4 StackAdj>                       Δ-4                {[-12-]}
            <Lit 0x216d4>                                                       {[-8-]|[$$…]}
                <Pointer.sp 0x216d4 4>                       Δ-4        
                <Const 0x216d8 0x1.2>                        Δ-2        
                <Const 0x216da 0x7.2>                        Δ-2        
                <Call 0x216de 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 216e0-216e2 StackAdj>                   Δ+8        
            <MI 216e2  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[-8-]}
            <POP 216e6-216e8 StackAdj>                       Δ+8                {}
        <POP 216e8-2171c Naked>                              Σ0         ↓ →0x216e8 ←0x216e8
            <Blob 0x216e8 [62] @>                            Δ-62               {[«62""»]}
            <POP 216fa-216fc StackAdj>                       Δ-8                {[«62""»]|[-8-]}
            <Lit 0x216fc 61>                                                    {[«62""»]|[-4-]|[$$Enter the DTE address identification (ID) for the IOC port :_]}
            <Call 0x2170a 0x103e4>                                              {[«62""»]|[-4-]|[$$Enter the DTE address identification (ID) for the IOC port :_]}
                AskConsoleString(prompt : String) : String
            <POP 21710-21712 StackAdj>                       Δ+4                {[«62""»]|[-4-]}
            <MI 21712  MOVEA.L (A7)+,A4>                     Δ+4                {[«62""»]}
            <POP 21714-21718 StackAdj>                       Δ+62               {}
            <MI 21718  TST.W   (A4)>                                            {}
            <MI 2171a  BEQ     0x216e8>                                         {}
        <POP 2171c-21762 Naked>                              Σ0         ↓ →0x217d8
            <Blob 0x2171c [38] @>                            Δ-38               {[«38""»]}
            <POP 21728-2172a StackAdj>                       Δ-8                {[«38""»]|[-8-]}
            <Lit 0x2172a 38>                                                    {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]}
            <Const 0x21738 0x40.4>                           Δ-4                {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]}
            <Const 0x2173c 0x100.4>                          Δ-4                {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]|[##256]}
            <Call 0x21740 0x103ec>                                              {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]|[##256]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 21746-21748 StackAdj>                       Δ+12               {[«38""»]|[-4-]}
            <MI 21748  MOVE.L  (A7)+,D6>                     Δ+4                {[«38""»]}
            <POP 2174a-2174c StackAdj>                       Δ+36               {[-2-]}
            <POP 2174c-2174d StackAdj>                       Δ+2                {}
            <Const 0x2174d 0x2.2>                            Δ-2                {[#2]}
            <Const 0x2174e 0x10.2>                           Δ-2                {[#2]|[#16]}
            <Call 0x21750 0x1020c>                                              {[#2]|[#16]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 21756-21758 StackAdj>                       Δ+4                {}
            <Call 0x21758 0x2104e>                                              {}
            <MI 2175a  TST.L   0x23986>                                         {}
            <MI 21760  BNE     0x217d8>                                         {}
        <POP 21762-217a4 Naked>                              Σ0         ↓ →0x217d8
            <Const 0x21762 0x2.2>                            Δ-2                {[#2]}
            <Const 0x21764 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x21768 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 2176e-21770 StackAdj>                       Δ+2                {[#2]}
            <POP 21770-21771 StackAdj>                       Δ+2                {}
            <Const 0x21771 0x2.2>                            Δ-2                {[#2]}
            <Const 0x21772 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x21776 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 2177c-2177e StackAdj>                       Δ+2                {[#2]}
            <POP 2177e-2177f StackAdj>                       Δ+2                {}
            <Const 0x2177f 0x2.2>                            Δ-2                {[#2]}
            <Const 0x21780 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x21784 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 2178a-2178c StackAdj>                       Δ+2                {[#2]}
            <POP 2178c-2178d StackAdj>                       Δ+2                {}
            <Const 0x2178d 0x2.2>                            Δ-2                {[#2]}
            <Const 0x2178e 0xd.2>                            Δ-2                {[#2]|[#13]}
            <Call 0x21792 0x1020c>                                              {[#2]|[#13]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 21798-2179a StackAdj>                       Δ+4                {}
            <Call 0x2179a 0x2104e>                                              {}
            <MI 2179c  TST.L   0x23986>                                         {}
            <MI 217a2  BNE     0x217d8>                                         {}
        <POP 217a4-217d8 Naked>                              Σ0         ↓
            <Blob 0x217a4 [48] @>                            Δ-48               {[«48""»]}
            <POP 217b0-217b2 StackAdj>                       Δ-4                {[«48""»]|[-4-]}
            <Lit 0x217b2 48>                                                    {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
            <Call 0x217c0 0x103e0>                                              {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
                WriteConsoleStringCrLf(str : String)
            <POP 217c6-217ca StackAdj>                       Δ+50               {[-2-]}
            <POP 217ca-217cb StackAdj>                       Δ+2                {}
            <Const 0x217cb 0x2.2>                            Δ-2                {[#2]}
            <Const 0x217cc 0x1.4>                            Δ-4                {[#2]|[##1]}
            <Call 0x217d0 0x103b8>                                              {[#2]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 217d6-217d8 StackAdj>                       Δ+6                {}
        <POP 217d8-2186c Naked>                              Σ0         ↓ →0x218c2 ←0x2171c ←0x21762
            <Pointer.fp 0x217d8 <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x217dc 0x102b8>                                              {[@@-20]}
                NewString(VAR a : String)
            <POP 217e2-217e3 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x217e3 [10] @>                            Δ-10               {[«10""»]}
            <Blob 0x217f2 [10] @>                            Δ-10               {[«10""»]|[«10""»]}
            <POP 21804-21806 StackAdj>                       Δ-4                {[«10""»]|[«10""»]|[-4-]}
            <MI 21806  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']}
            <POP 2180a-2180c StackAdj>                       Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
            <Lit 0x2180c 9>                                                     {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]}
            <POP 21818-2181a StackAdj>                       Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[-4-]}
            <MI 2181a  MOVE.L  A4,(A7)>                                         {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']}
            <POP 2181c-2181e StackAdj>                       Δ-8                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]}
            <MI 2181e  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x8)']}
            <Call 0x21822 0x102cc>                                              {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x8)']}
                StringDup(a : String) : String
            <MI 21828  MOVE.L  (A6-0xc),-(A7)>               Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x8)']|[4, '(A6-0xc)']}
            <Call 0x2182c 0x102cc>                                              {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x8)']|[4, '(A6-0xc)']}
                StringDup(a : String) : String
            <Lit 0x21832 9>                                                     {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x8)']|[$$PA:XYXYXY]}
            <Call 0x21840 0x102d4>                                              {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x8)']|[$$PA:XYXYXY]}
                StringCat3(a, b, c : String) : String
            <POP 21846-21848 StackAdj>                       Δ+12               {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-4-]}
            <Call 0x21848 0x102d8>                                              {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-4-]}
                StringCat4(a, b, c, d : String) : String
            <POP 2184e-21850 StackAdj>                       Δ+16               {[«10""»]|[«10""»]|[-4-]}
            <MI 21850  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«10""»]|[«10""»]}
            <POP 21854-21856 StackAdj>                       Δ+16               {[-4-]}
            <MI 21856  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Call 0x2185a 0x20fd0>                                              {[4, '(A6-0x14)']}
            <POP 2185e-21860 StackAdj>                       Δ+4                {}
            <Call 0x21860 0x2104e>                                              {}
            <POP 21862-21864 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21864 0x21276>                                              {[-2-]}
            <MI 21868  TST.B   (A7)+>                        Δ+2                {}
            <MI 2186a  BEQ     0x218c2>                                         {}
        <POP 2186c-218c2 Naked>                              Σ0         →0x21daa
            <Blob 0x2186c [64] @>                            Δ-64               {[«64""»]}
            <POP 2187e-21880 StackAdj>                       Δ-4                {[«64""»]|[-4-]}
            <Lit 0x21880 63>                                                    {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
            <Call 0x2188e 0x103e0>                                              {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
                WriteConsoleStringCrLf(str : String)
            <POP 21894-21898 StackAdj>                       Δ+68               {}
            <Blob 0x21898 [66] @>                            Δ-66               {[«66""»]}
            <POP 218a4-218a6 StackAdj>                       Δ-4                {[«66""»]|[-4-]}
            <Lit 0x218a6 66>                                                    {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
            <Call 0x218b4 0x103e0>                                              {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
                WriteConsoleStringCrLf(str : String)
            <POP 218ba-218be StackAdj>                       Δ+70               {}
            <MI 218be  BRA     0x21daa>                                         {}
        <POP 218c2-2194a Naked>                              Σ0         ↓ →0x2197a ←0x217d8
            <Pointer.fp 0x218c2 <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x218c6 0x102b8>                                              {[@@-20]}
                NewString(VAR a : String)
            <POP 218cc-218ce StackAdj>                       Δ+4                {}
            <Blob 0x218ce [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x218da [4] @>                             Δ-4                {[«14""»]|[«4""»]}
            <Blob 0x218de [20] @>                            Δ-20               {[«14""»]|[«4""»]|[«20""»]}
            <POP 218ea-218ec StackAdj>                       Δ-8                {[«14""»]|[«4""»]|[«20""»]|[-8-]}
            <Lit 0x218ec 14>                                                    {[«14""»]|[«4""»]|[«20""»]|[-4-]|[$$S N C CH:1 NS:]}
            <MI 218f8  MOVE.L  D6,(A7)>                                         {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']}
            <POP 218f6-218f8 StackAdj>                       Δ-8                {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-8-]}
            <Call 0x218fa 0x102e4>                                              {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x21900 4>                                                     {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-4-]|[$$ SS:]}
            <MI 2190c  MOVE.L  D6,(A7)>                                         {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D6']}
            <POP 2190a-2190c StackAdj>                       Δ-8                {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D6']|[-8-]}
            <Call 0x2190e 0x102e4>                                              {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D6']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x21914 20>                                                    {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D6']|[-4-]|[$$ FW:7 PW:2 PA:XYXYXY]}
            <Call 0x21922 0x102dc>                                              {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D6']|[-4-]|[$$ FW:7 PW:2 PA:XYXYXY]}
                StringCat5(a, b, c, d, e : String) : String
            <POP 21928-2192c StackAdj>                       Δ+20               {[«14""»]|[«4""»]|[«20""»]|[-4-]}
            <MI 2192c  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«14""»]|[«4""»]|[«20""»]}
            <POP 21930-21934 StackAdj>                       Δ+34               {[-4-]}
            <MI 21934  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Call 0x21938 0x20fd0>                                              {[4, '(A6-0x14)']}
            <POP 2193c-2193e StackAdj>                       Δ+4                {}
            <Call 0x2193e 0x2104e>                                              {}
            <POP 21940-21942 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21942 0x21276>                                              {[-2-]}
            <MI 21946  TST.B   (A7)+>                        Δ+2                {}
            <MI 21948  BEQ     0x2197a>                                         {}
        <POP 2194a-2195c Naked>                              Σ0 Δ-14    ↓
            <Blob 0x2194a [14] @>                            Δ-14               {[«14""»]}
        <POP 2195c-2197a Naked>                              Σ-14 Δ+14  →0x21d34 ←0x21a1c ←0x21aa8 ←0x21b3c
            <POP 2195c-2195e StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x2195e>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x2195e 4>                       Δ-4        
                <Const 0x21962 0x1.2>                        Δ-2        
                <Const 0x21964 0xd.2>                        Δ-2        
                <Call 0x21968 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2196a-2196c StackAdj>                   Δ+8        
            <Call 0x2196c 0x103e0>                                              {[-14-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 21972-21976 StackAdj>                       Δ+18               {}
            <MI 21976  BRA     0x21d34>                                         {}
        <POP 2197a-21a1c Naked>                              Σ0         ↓ →0x21a32 ←0x218c2
            <Pointer.fp 0x2197a <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x2197e 0x102b8>                                              {[@@-20]}
                NewString(VAR a : String)
            <POP 21984-21986 StackAdj>                       Δ+4                {}
            <Blob 0x21986 [24] @>                            Δ-24               {[«24""»]}
            <Blob 0x21992 [12] @>                            Δ-12               {[«24""»]|[«12""»]}
            <Blob 0x219a2 [20] @>                            Δ-20               {[«24""»]|[«12""»]|[«20""»]}
            <POP 219b4-219b6 StackAdj>                       Δ-4                {[«24""»]|[«12""»]|[«20""»]|[-4-]}
            <MI 219b6  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']}
            <POP 219ba-219bc StackAdj>                       Δ-4                {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
            <Lit 0x219bc 24>                                                    {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[$$S A P CO:B DC:N DO:N FS:]}
            <MI 219c8  MOVE.L  D6,(A7)>                                         {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']}
            <POP 219c6-219c8 StackAdj>                       Δ-8                {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-8-]}
            <Call 0x219ca 0x102e4>                                              {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x219d0 11>                                                    {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-4-]|[$$ ID:A2 PC:N]}
            <MI 219dc  MOVE.L  (A6-0xc),(A7)>                                   {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-4-]|[4, '(A6-0xc)']}
            <POP 219da-219dc StackAdj>                       Δ-8                {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-4-]|[4, '(A6-0xc)']|[-8-]}
            <Call 0x219e0 0x102cc>                                              {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-4-]|[4, '(A6-0xc)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x219e6 19>                                                    {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-4-]|[4, '(A6-0xc)']|[-4-]|[$$TP:Y US:N PA:XYXYXY]}
            <Call 0x219f4 0x102e0>                                              {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-4-]|[4, '(A6-0xc)']|[-4-]|[$$TP:Y US:N PA:XYXYXY]}
                StringCat6(a, b, c, d, e, f : String) : String
            <POP 219fa-219fe StackAdj>                       Δ+24               {[«24""»]|[«12""»]|[«20""»]|[-4-]}
            <MI 219fe  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«24""»]|[«12""»]|[«20""»]}
            <POP 21a02-21a06 StackAdj>                       Δ+52               {[-4-]}
            <MI 21a06  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Call 0x21a0a 0x20fd0>                                              {[4, '(A6-0x14)']}
            <POP 21a0e-21a10 StackAdj>                       Δ+4                {}
            <Call 0x21a10 0x2104e>                                              {}
            <POP 21a12-21a14 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21a14 0x21276>                                              {[-2-]}
            <MI 21a18  TST.B   (A7)+>                        Δ+2                {}
            <MI 21a1a  BEQ     0x21a32>                                         {}
        <POP 21a1c-21a32 Naked>                              Σ0 Δ-14    →0x2195c
            <Blob 0x21a1c [14] @>                            Δ-14               {[«14""»]}
            <MI 21a2e  BRA     0x2195c>                                         {[«14""»]}
        <POP 21a32-21aa8 Naked>                              Σ0         ↓ →0x21abe ←0x2197a
            <Pointer.fp 0x21a32 <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x21a36 0x102b8>                                              {[@@-20]}
                NewString(VAR a : String)
            <POP 21a3c-21a3e StackAdj>                       Δ+4                {}
            <Blob 0x21a3e [10] @>                            Δ-10               {[«10""»]}
            <Blob 0x21a4a [32] @>                            Δ-32               {[«10""»]|[«32""»]}
            <POP 21a56-21a58 StackAdj>                       Δ-4                {[«10""»]|[«32""»]|[-4-]}
            <MI 21a58  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']}
            <POP 21a5c-21a5e StackAdj>                       Δ-4                {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
            <Lit 0x21a5e 10>                                                    {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[$$S L P LE:8]}
            <MI 21a6a  MOVE.L  (A6-0xc),(A7)>                                   {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']}
            <POP 21a68-21a6a StackAdj>                       Δ-8                {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-8-]}
            <Call 0x21a6e 0x102cc>                                              {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x21a74 32>                                                    {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-4-]|[$$PR:N ST:1 SP:9600 UC:Y PA:XYXYXY]}
            <Call 0x21a82 0x102d8>                                              {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-4-]|[$$PR:N ST:1 SP:9600 UC:Y PA:XYXYXY]}
                StringCat4(a, b, c, d : String) : String
            <POP 21a88-21a8a StackAdj>                       Δ+16               {[«10""»]|[«32""»]|[-4-]}
            <MI 21a8a  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«10""»]|[«32""»]}
            <POP 21a8e-21a92 StackAdj>                       Δ+38               {[-4-]}
            <MI 21a92  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Call 0x21a96 0x20fd0>                                              {[4, '(A6-0x14)']}
            <POP 21a9a-21a9c StackAdj>                       Δ+4                {}
            <Call 0x21a9c 0x2104e>                                              {}
            <POP 21a9e-21aa0 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21aa0 0x21276>                                              {[-2-]}
            <MI 21aa4  TST.B   (A7)+>                        Δ+2                {}
            <MI 21aa6  BEQ     0x21abe>                                         {}
        <POP 21aa8-21abe Naked>                              Σ0 Δ-14    →0x2195c
            <Blob 0x21aa8 [14] @>                            Δ-14               {[«14""»]}
            <MI 21aba  BRA     0x2195c>                                         {[«14""»]}
        <POP 21abe-21b3c Naked>                              Σ0         ↓ →0x21b52 ←0x21a32
            <Pointer.fp 0x21abe <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x21ac2 0x102b8>                                              {[@@-20]}
                NewString(VAR a : String)
            <POP 21ac8-21ac9 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x21ac9 [16] @>                            Δ-16               {[«16""»]}
            <Blob 0x21ad8 [10] @>                            Δ-10               {[«16""»]|[«10""»]}
            <POP 21aea-21aec StackAdj>                       Δ-4                {[«16""»]|[«10""»]|[-4-]}
            <MI 21aec  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']}
            <POP 21af0-21af2 StackAdj>                       Δ-4                {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
            <Lit 0x21af2 15>                                                    {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$S U C XA:Y XD:1]}
            <MI 21afe  MOVE.L  (A6-0xc),(A7)>                                   {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']}
            <POP 21afc-21afe StackAdj>                       Δ-8                {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-8-]}
            <Call 0x21b02 0x102cc>                                              {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x21b08 9>                                                     {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-4-]|[$$PA:XYXYXY]}
            <Call 0x21b16 0x102d8>                                              {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-4-]|[$$PA:XYXYXY]}
                StringCat4(a, b, c, d : String) : String
            <POP 21b1c-21b1e StackAdj>                       Δ+16               {[«16""»]|[«10""»]|[-4-]}
            <MI 21b1e  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«16""»]|[«10""»]}
            <POP 21b22-21b26 StackAdj>                       Δ+22               {[-4-]}
            <MI 21b26  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Call 0x21b2a 0x20fd0>                                              {[4, '(A6-0x14)']}
            <POP 21b2e-21b30 StackAdj>                       Δ+4                {}
            <Call 0x21b30 0x2104e>                                              {}
            <POP 21b32-21b34 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21b34 0x21276>                                              {[-2-]}
            <MI 21b38  TST.B   (A7)+>                        Δ+2                {}
            <MI 21b3a  BEQ     0x21b52>                                         {}
        <POP 21b3c-21b52 Naked>                              Σ0 Δ-14    →0x2195c
            <Blob 0x21b3c [14] @>                            Δ-14               {[«14""»]}
            <MI 21b4e  BRA     0x2195c>                                         {[«14""»]}
        <POP 21b52-21bc4 Naked>                              Σ0         ↓ →0x21bf4 ←0x21abe
            <Pointer.fp 0x21b52 <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x21b56 0x102b8>                                              {[@@-20]}
                NewString(VAR a : String)
            <POP 21b5c-21b5d StackAdj>                       Δ+4        ↓       {}
            <Blob 0x21b5d [48] @>                            Δ-48               {[«48""»]}
            <Blob 0x21b6e [42] @>                            Δ-42               {[«48""»]|[«42""»]}
            <POP 21b7a-21b7c StackAdj>                       Δ-4                {[«48""»]|[«42""»]|[-4-]}
            <MI 21b7c  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x14)']}
            <POP 21b80-21b82 StackAdj>                       Δ-4                {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
            <Lit 0x21b82 47>                                                    {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x14)']|[$$A X T XC:2 XD:1 XP:1,0,2,0,3,0,4,2,5,0,6,1,7,8,]}
            <POP 21b8e-21b90 StackAdj>                       Δ-4                {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x14)']|[$$A X T XC:2 XD:1 XP:1,0,2,0,3,0,4,2,5,0,6,1,7,8,]|[-4-]}
            <Lit 0x21b90 42>                                                    {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x14)']|[$$A X T XC:2 XD:1 XP:1,0,2,0,3,0,4,2,5,0,6,1,7,8,]|[$$8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY]}
            <Call 0x21b9e 0x102d4>                                              {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x14)']|[$$A X T XC:2 XD:1 XP:1,0,2,0,3,0,4,2,5,0,6,1,7,8,]|[$$8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY]}
                StringCat3(a, b, c : String) : String
            <POP 21ba4-21ba6 StackAdj>                       Δ+12               {[«48""»]|[«42""»]|[-4-]}
            <MI 21ba6  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«48""»]|[«42""»]}
            <POP 21baa-21bae StackAdj>                       Δ+86               {[-4-]}
            <MI 21bae  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Call 0x21bb2 0x20fd0>                                              {[4, '(A6-0x14)']}
            <POP 21bb6-21bb8 StackAdj>                       Δ+4                {}
            <Call 0x21bb8 0x2104e>                                              {}
            <POP 21bba-21bbc StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21bbc 0x21276>                                              {[-2-]}
            <MI 21bc0  TST.B   (A7)+>                        Δ+2                {}
            <MI 21bc2  BEQ     0x21bf4>                                         {}
        <POP 21bc4-21be2 Naked>                              Σ0 Δ-32    ↓
            <Blob 0x21bc4 [20] @>                            Δ-20               {[«20""»]}
            <POP 21bd6-21bd8 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Pointer.sp 0x21bd8 4>                           Δ-4                {[«20""»]|[-4-]|[^^4]}
            <Const 0x21bdc 0x1.2>                            Δ-2                {[«20""»]|[-4-]|[^^4]|[#1]}
            <Const 0x21bde 0x13.2>                           Δ-2                {[«20""»]|[-4-]|[^^4]|[#1]|[#19]}
        <POP 21be2-21bf4 Naked>                              Σ-32 Δ+32  →0x21d34 ←0x21c62
            <Call 0x21be2 0x102c4>                                              {[-32-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 21be4-21be6 StackAdj>                       Δ+8                {[-24-]}
            <Call 0x21be6 0x103e0>                                              {[-24-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21bec-21bf0 StackAdj>                       Δ+24               {}
            <MI 21bf0  BRA     0x21d34>                                         {}
        <POP 21bf4-21c62 Naked>                              Σ0         ↓ →0x21c7e ←0x21b52
            <Pointer.fp 0x21bf4 <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x21bf8 0x102b8>                                              {[@@-20]}
                NewString(VAR a : String)
            <POP 21bfe-21c00 StackAdj>                       Δ+4                {}
            <Blob 0x21c00 [50] @>                            Δ-50               {[«50""»]}
            <Blob 0x21c0c [50] @>                            Δ-50               {[«50""»]|[«50""»]}
            <POP 21c18-21c1a StackAdj>                       Δ-4                {[«50""»]|[«50""»]|[-4-]}
            <MI 21c1a  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[«50""»]|[«50""»]|[-4-]|[4, '(A6-0x14)']}
            <POP 21c1e-21c20 StackAdj>                       Δ-4                {[«50""»]|[«50""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
            <Lit 0x21c20 50>                                                    {[«50""»]|[«50""»]|[-4-]|[4, '(A6-0x14)']|[$$A X T SE:210,0,5 XC:2 XD:2 XP:1,0,2,0,3,0,4,2,5,0,]}
            <POP 21c2c-21c2e StackAdj>                       Δ-4                {[«50""»]|[«50""»]|[-4-]|[4, '(A6-0x14)']|[$$A X T SE:210,0,5 XC:2 XD:2 XP:1,0,2,0,3,0,4,2,5,0,]|[-4-]}
            <Lit 0x21c2e 50>                                                    {[«50""»]|[«50""»]|[-4-]|[4, '(A6-0x14)']|[$$A X T SE:210,0,5 XC:2 XD:2 XP:1,0,2,0,3,0,4,2,5,0,]|[$$6,1,7,8,8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY]}
            <Call 0x21c3c 0x102d4>                                              {[«50""»]|[«50""»]|[-4-]|[4, '(A6-0x14)']|[$$A X T SE:210,0,5 XC:2 XD:2 XP:1,0,2,0,3,0,4,2,5,0,]|[$$6,1,7,8,8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY]}
                StringCat3(a, b, c : String) : String
            <POP 21c42-21c44 StackAdj>                       Δ+12               {[«50""»]|[«50""»]|[-4-]}
            <MI 21c44  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«50""»]|[«50""»]}
            <POP 21c48-21c4c StackAdj>                       Δ+96               {[-4-]}
            <MI 21c4c  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Call 0x21c50 0x20fd0>                                              {[4, '(A6-0x14)']}
            <POP 21c54-21c56 StackAdj>                       Δ+4                {}
            <Call 0x21c56 0x2104e>                                              {}
            <POP 21c58-21c5a StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21c5a 0x21276>                                              {[-2-]}
            <MI 21c5e  TST.B   (A7)+>                        Δ+2                {}
            <MI 21c60  BEQ     0x21c7e>                                         {}
        <POP 21c62-21c7e Naked>                              Σ0 Δ-32    →0x21be2
            <Blob 0x21c62 [20] @>                            Δ-20               {[«20""»]}
            <POP 21c6e-21c70 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Pointer.sp 0x21c70 4>                           Δ-4                {[«20""»]|[-4-]|[^^4]}
            <Const 0x21c74 0x1.2>                            Δ-2                {[«20""»]|[-4-]|[^^4]|[#1]}
            <Const 0x21c76 0x14.2>                           Δ-2                {[«20""»]|[-4-]|[^^4]|[#1]|[#20]}
            <MI 21c7a  BRA     0x21be2>                                         {[«20""»]|[-4-]|[^^4]|[#1]|[#20]}
        <POP 21c7e-21cca Naked>                              Σ0         ↓ →0x21cf4 ←0x21bf4
            <Blob 0x21c7e [14] @>                            Δ-14               {[«14""»]}
            <POP 21c90-21c92 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x21c92 13>                                                    {[«14""»]|[$$W S PA:XYXYXY]}
            <MI 21ca0  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«14""»]}
            <POP 21ca4-21ca8 StackAdj>                       Δ+10               {[-4-]}
            <MI 21ca8  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Call 0x21cac 0x20fd0>                                              {[4, '(A6-0x14)']}
            <POP 21cb0-21cb1 StackAdj>                       Δ+4                {}
            <Const 0x21cb1 0x2faee.4>                        Δ-4                {[##195310]}
            <Call 0x21cb6 0x10224>                                              {[##195310]}
                KC12_Sleep(dur: Long)
            <POP 21cbc-21cbe StackAdj>                       Δ+4                {}
            <Call 0x21cbe 0x2104e>                                              {}
            <POP 21cc0-21cc2 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21cc2 0x21418>                                              {[-2-]}
            <MI 21cc6  TST.B   (A7)+>                        Δ+2                {}
            <MI 21cc8  BEQ     0x21cf4>                                         {}
        <POP 21cca-21cf4 Naked>                              Σ0         →0x21d34
            <Blob 0x21cca [12] @>                            Δ-12               {[«12""»]}
            <POP 21cda-21cdc StackAdj>                       Δ-4                {[«12""»]|[-4-]}
            <Lit 0x21cdc 11>                                                    {[«12""»]|[$$W S failed.]}
            <Call 0x21cea 0x103e0>                                              {[«12""»]|[$$W S failed.]}
                WriteConsoleStringCrLf(str : String)
            <POP 21cf0-21cf2 StackAdj>                       Δ+16               {}
            <MI 21cf2  BRA     0x21d34>                                         {}
        <POP 21cf4-21d34 Naked>                              Σ0         →0x21daa ←0x21c7e
            <Blob 0x21cf4 [28] @>                            Δ-28               {[«28""»]}
            <POP 21d00-21d02 StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x21d02 28>                                                    {[«28""»]|[$$The PAD has been configured!]}
            <Call 0x21d10 0x103e0>                                              {[«28""»]|[$$The PAD has been configured!]}
                WriteConsoleStringCrLf(str : String)
            <POP 21d16-21d1a StackAdj>                       Δ+32               {}
            <Pointer.fp 0x21d1a <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x21d1e 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 21d24-21d26 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x21d26 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x21d2a 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 21d30-21d32 StackAdj>                       Δ+4                {}
            <MI 21d32  BRA     0x21daa>                                         {}
        <POP 21d34-21daa Naked>                              Σ0         ↓ ←0x2195c ←0x21be2 ←0x21cca
            <Blob 0x21d34 [64] @>                            Δ-64               {[«64""»]}
            <POP 21d46-21d48 StackAdj>                       Δ-4                {[«64""»]|[-4-]}
            <Lit 0x21d48 63>                                                    {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
            <Call 0x21d56 0x103e0>                                              {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
                WriteConsoleStringCrLf(str : String)
            <POP 21d5c-21d60 StackAdj>                       Δ+68               {}
            <Blob 0x21d60 [60] @>                            Δ-60               {[«60""»]}
            <POP 21d6c-21d6e StackAdj>                       Δ-4                {[«60""»]|[-4-]}
            <Lit 0x21d6e 60>                                                    {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
            <Call 0x21d7c 0x103e0>                                              {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
                WriteConsoleStringCrLf(str : String)
            <POP 21d82-21d86 StackAdj>                       Δ+64               {}
            <Blob 0x21d86 [32] @>                            Δ-32               {[«32""»]}
            <POP 21d92-21d94 StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Lit 0x21d94 32>                                                    {[«32""»]|[$$configuration or replace the PAD]}
            <Call 0x21da2 0x103e0>                                              {[«32""»]|[$$configuration or replace the PAD]}
                WriteConsoleStringCrLf(str : String)
            <POP 21da8-21daa StackAdj>                       Δ+36               {}
        <POP 21daa-21dae Naked>                              Σ0         ↓ ←0x2186c ←0x21cf4
            <Call 0x21daa 0x20fa6>                                              {}
        <POP 21dae-21db6 Epilogue>                           Σ0         

0x21db6


@ 21db6
        <LVAR  0x008 1(r)>
        <LVAR -0x00a @ 4(rw)>
        <LVAR -0x00e @ 4(rw)>
        <LVAR -0x016 @ 4(rw)>
    <POP 21db6-22598 Body>                                   Δ+138      
        <POP 21db6-21dcc Prologue>                           Σ0         ↓
        <POP 21dcc-21de0 RegCacheLoad>                       Σ0         ↓
        <POP 21de0-21e76 Naked>                              Σ0         →0x21e7e →0x21eb2 →0x21ee4 →0x21f16
            <MI 21de0  CLR.B   0x23180>                                         {}
            <Call 0x21de6 0x10216>                                              {}
                KC0b
            <Call 0x21dec 0x2104e>                                              {}
            <Blob 0x21dee [36] @>                            Δ-36               {[«36""»]}
            <POP 21dfe-21e00 StackAdj>                       Δ-6                {[«36""»]|[-6-]}
            <Lit 0x21e00 35>                                                    {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]}
            <POP 21e0c-21e0e StackAdj>                       Δ-2                {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
            <MI 21e0e  CLR.B   (A7)>                                            {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
            <Call 0x21e10 0x103f0>                                              {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 21e16-21e18 StackAdj>                       Δ+6                {[«36""»]|[-2-]}
            <MI 21e18  MOVE.B  (A7)+,D0>                     Δ+2                {[«36""»]}
            <MI 21e1a  EXTB.W  D0>                                              {[«36""»]}
            <POP 0x21e1c LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«36""»]}
            <POP 21e1e-21e20 StackAdj>                       Δ+36               {}
            <MI 21e20  MOVE.B  D0,0x23180>                                      {}
            <Blob 0x21e26 [54] @>                            Δ-54               {[«54""»]}
            <POP 21e38-21e3a StackAdj>                       Δ-8                {[«54""»]|[-8-]}
            <Lit 0x21e3a 53>                                                    {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]}
            <Const 0x21e48 0x2.4>                            Δ-4                {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]}
            <Const 0x21e4c 0x5.4>                            Δ-4                {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
            <Call 0x21e50 0x103ec>                                              {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 21e56-21e58 StackAdj>                       Δ+12               {[«54""»]|[-4-]}
            <MI 21e58  MOVE.L  (A7)+,D7>                     Δ+4                {[«54""»]}
            <POP 21e5a-21e5e StackAdj>                       Δ+54               {}
            <MI 21e5e  MOVE.L  D7,D0>                                           {}
            <MI 21e60  SUBQ.L  #0x2,D0>                                         {}
            <POP 0x21e62 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 21e6c  ADD.W   D0,D0>                                           {}
            <MI 21e6e  SWITCH  D0.W>                                            {}
        <POP 21e7e-21eb2 Naked>                              Σ0 Δ-8     →0x21f46 ←0x21de0
            <Blob 0x21e7e [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21e82 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21e86 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21e8a-21e8c StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x21e8c 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:2_]}
            <MI 21e9a  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21e9e-21e9f StackAdj>                       Δ+6        ↓       {}
            <Blob 0x21e9f [8] @>                             Δ-8                {[«8""»]}
            <MI 21eae  BRA     0x21f46>                                         {[«8""»]}
        <POP 21eb2-21ee4 Naked>                              Σ0 Δ-8     →0x21f46 ←0x21de0
            <Blob 0x21eb2 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21eb6 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21eba [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21ebe-21ec0 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x21ec0 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:3_]}
            <MI 21ece  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21ed2-21ed3 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x21ed3 [8] @>                             Δ-8                {[«8""»]}
            <MI 21ee2  BRA     0x21f46>                                         {[«8""»]}
        <POP 21ee4-21f16 Naked>                              Σ0 Δ-8     →0x21f46 ←0x21de0
            <Blob 0x21ee4 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21ee8 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21eec [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21ef0-21ef2 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x21ef2 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:4_]}
            <MI 21f00  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21f04-21f05 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x21f05 [8] @>                             Δ-8                {[«8""»]}
            <MI 21f14  BRA     0x21f46>                                         {[«8""»]}
        <POP 21f16-21f46 Naked>                              Σ0 Δ-8     ↓ ←0x21de0
            <Blob 0x21f16 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21f1a [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21f1e [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21f22-21f24 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x21f24 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:5_]}
            <MI 21f32  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21f36-21f37 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x21f37 [8] @>                             Δ-8                {[«8""»]}
        <POP 21f46-21f5c Naked>                              Σ-8 Δ+8    ↓ ←0x21e7e ←0x21eb2 ←0x21ee4
            <POP 21f46-21f48 StackAdj>                       Δ-4                {[-12-]}
            <Lit 0x21f48>                                                       {[-8-]|[$$…]}
                <Pointer.sp 0x21f48 4>                       Δ-4        
                <Const 0x21f4c 0x1.2>                        Δ-2        
                <Const 0x21f4e 0x7.2>                        Δ-2        
                <Call 0x21f52 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21f54-21f56 StackAdj>                   Δ+8        
            <MI 21f56  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {[-8-]}
            <POP 21f5a-21f5c StackAdj>                       Δ+8                {}
        <POP 21f5c-21f90 Naked>                              Σ0         ↓ →0x21f5c ←0x21f5c
            <Blob 0x21f5c [70] @>                            Δ-70               {[«70""»]}
            <POP 21f6e-21f70 StackAdj>                       Δ-8                {[«70""»]|[-8-]}
            <Lit 0x21f70 69>                                                    {[«70""»]|[-4-]|[$$Enter the DTE address identification (ID) for the ENVIRONMENT port :_]}
            <Call 0x21f7e 0x103e4>                                              {[«70""»]|[-4-]|[$$Enter the DTE address identification (ID) for the ENVIRONMENT port :_]}
                AskConsoleString(prompt : String) : String
            <POP 21f84-21f86 StackAdj>                       Δ+4                {[«70""»]|[-4-]}
            <MI 21f86  MOVEA.L (A7)+,A4>                     Δ+4                {[«70""»]}
            <POP 21f88-21f8c StackAdj>                       Δ+70               {}
            <MI 21f8c  TST.W   (A4)>                                            {}
            <MI 21f8e  BEQ     0x21f5c>                                         {}
        <POP 21f90-21fd8 Naked>                              Σ0         ↓ →0x2204e
            <Blob 0x21f90 [38] @>                            Δ-38               {[«38""»]}
            <POP 21f9c-21f9e StackAdj>                       Δ-8                {[«38""»]|[-8-]}
            <Lit 0x21f9e 38>                                                    {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]}
            <Const 0x21fac 0x40.4>                           Δ-4                {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]}
            <Const 0x21fb0 0x100.4>                          Δ-4                {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]|[##256]}
            <Call 0x21fb4 0x103ec>                                              {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]|[##256]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 21fba-21fbc StackAdj>                       Δ+12               {[«38""»]|[-4-]}
            <MI 21fbc  MOVE.L  (A7)+,D6>                     Δ+4                {[«38""»]}
            <POP 21fbe-21fc0 StackAdj>                       Δ+36               {[-2-]}
            <POP 21fc0-21fc1 StackAdj>                       Δ+2                {}
            <Const 0x21fc1 0x2.2>                            Δ-2                {[#2]}
            <Const 0x21fc2 0x10.2>                           Δ-2                {[#2]|[#16]}
            <Call 0x21fc6 0x1020c>                                              {[#2]|[#16]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 21fcc-21fce StackAdj>                       Δ+4                {}
            <Call 0x21fce 0x2104e>                                              {}
            <MI 21fd0  TST.L   0x23986>                                         {}
            <MI 21fd6  BNE     0x2204e>                                         {}
        <POP 21fd8-2201a Naked>                              Σ0         ↓ →0x2204e
            <Const 0x21fd8 0x2.2>                            Δ-2                {[#2]}
            <Const 0x21fda 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x21fde 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 21fe4-21fe6 StackAdj>                       Δ+2                {[#2]}
            <POP 21fe6-21fe7 StackAdj>                       Δ+2                {}
            <Const 0x21fe7 0x2.2>                            Δ-2                {[#2]}
            <Const 0x21fe8 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x21fec 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 21ff2-21ff4 StackAdj>                       Δ+2                {[#2]}
            <POP 21ff4-21ff5 StackAdj>                       Δ+2                {}
            <Const 0x21ff5 0x2.2>                            Δ-2                {[#2]}
            <Const 0x21ff6 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x21ffa 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 22000-22002 StackAdj>                       Δ+2                {[#2]}
            <POP 22002-22003 StackAdj>                       Δ+2                {}
            <Const 0x22003 0x2.2>                            Δ-2                {[#2]}
            <Const 0x22004 0xd.2>                            Δ-2                {[#2]|[#13]}
            <Call 0x22008 0x1020c>                                              {[#2]|[#13]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 2200e-22010 StackAdj>                       Δ+4                {}
            <Call 0x22010 0x2104e>                                              {}
            <MI 22012  TST.L   0x23986>                                         {}
            <MI 22018  BNE     0x2204e>                                         {}
        <POP 2201a-2204e Naked>                              Σ0         ↓
            <Blob 0x2201a [48] @>                            Δ-48               {[«48""»]}
            <POP 22026-22028 StackAdj>                       Δ-4                {[«48""»]|[-4-]}
            <Lit 0x22028 48>                                                    {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
            <Call 0x22036 0x103e0>                                              {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
                WriteConsoleStringCrLf(str : String)
            <POP 2203c-22040 StackAdj>                       Δ+50               {[-2-]}
            <POP 22040-22041 StackAdj>                       Δ+2                {}
            <Const 0x22041 0x2.2>                            Δ-2                {[#2]}
            <Const 0x22042 0x1.4>                            Δ-4                {[#2]|[##1]}
            <Call 0x22046 0x103b8>                                              {[#2]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 2204c-2204e StackAdj>                       Δ+6                {}
        <POP 2204e-22088 Naked>                              Σ0         ↓ →0x220b6 ←0x21f90 ←0x21fd8
            <Blob 0x2204e [26] @>                            Δ-26               {[«26""»]}
            <POP 2205a-2205c StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x2205c 26>                                                    {[«26""»]|[$$S A P PC:Y ID:D0 PA:XYXYXY]}
            <MI 2206a  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[«26""»]}
            <POP 2206e-22072 StackAdj>                       Δ+22               {[-4-]}
            <MI 22072  MOVE.L  (A6-0x16),(A7)>                                  {[4, '(A6-0x16)']}
            <Call 0x22076 0x20fd0>                                              {[4, '(A6-0x16)']}
            <POP 2207a-2207c StackAdj>                       Δ+4                {}
            <Call 0x2207c 0x2104e>                                              {}
            <POP 2207e-22080 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22080 0x21276>                                              {[-2-]}
            <MI 22084  TST.B   (A7)+>                        Δ+2                {}
            <MI 22086  BEQ     0x220b6>                                         {}
        <POP 22088-22098 Naked>                              Σ0 Δ-14    ↓
            <Blob 0x22088 [14] @>                            Δ-14               {[«14""»]}
        <POP 22098-220b6 Naked>                              Σ-14 Δ+14  →0x22516 ←0x22168 ←0x22232 ←0x222c0 ←0x2235e
            <POP 22098-2209a StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x2209a>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x2209a 4>                       Δ-4        
                <Const 0x2209e 0x1.2>                        Δ-2        
                <Const 0x220a0 0xd.2>                        Δ-2        
                <Call 0x220a4 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 220a6-220a8 StackAdj>                   Δ+8        
            <Call 0x220a8 0x103e0>                                              {[-14-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 220ae-220b2 StackAdj>                       Δ+18               {}
            <MI 220b2  BRA     0x22516>                                         {}
        <POP 220b6-220bc Naked>                              Σ0         ↓ →0x220ca ←0x2204e
            <MI 220b6  TST.B   (A6+0x8)>                                        {}
            <MI 220ba  BNE     0x220ca>                                         {}
        <POP 220bc-220ca Naked>                              Σ0 Δ-36    →0x220d6
            <Blob 0x220bc [36] @>                            Δ-36               {[«36""»]}
            <MI 220c8  BRA     0x220d6>                                         {[«36""»]}
        <POP 220ca-220d6 Naked>                              Σ0 Δ-36    ↓ ←0x220b6
            <Blob 0x220ca [36] @>                            Δ-36               {[«36""»]}
        <POP 220d6-22100 Naked>                              Σ-36 Δ+36  ↓ →0x2212e ←0x220bc
            <POP 220d6-220d8 StackAdj>                       Δ-4                {[-40-]}
            <Lit 0x220d8>                                                       {[-36-]|[$$…]}
                <Pointer.sp 0x220d8 4>                       Δ-4        
                <Const 0x220dc 0x1.2>                        Δ-2        
                <Const 0x220de 0x24.2>                       Δ-2        
                <Call 0x220e0 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 220e2-220e4 StackAdj>                   Δ+8        
            <MI 220e4  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[-36-]}
            <POP 220e8-220ea StackAdj>                       Δ+36               {}
            <MI 220ea  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[4, '(A6-0x16)']}
            <Call 0x220ee 0x20fd0>                                              {[4, '(A6-0x16)']}
            <POP 220f2-220f4 StackAdj>                       Δ+4                {}
            <Call 0x220f4 0x2104e>                                              {}
            <POP 220f6-220f8 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x220f8 0x21418>                                              {[-2-]}
            <MI 220fc  TST.B   (A7)+>                        Δ+2                {}
            <MI 220fe  BEQ     0x2212e>                                         {}
        <POP 22100-22110 Naked>                              Σ0 Δ-12    ↓
            <Blob 0x22100 [12] @>                            Δ-12               {[«12""»]}
        <POP 22110-2212e Naked>                              Σ-12 Δ+12  →0x22516 ←0x224bc
            <POP 22110-22112 StackAdj>                       Δ-4                {[-16-]}
            <Lit 0x22112>                                                       {[-12-]|[$$…]}
                <Pointer.sp 0x22112 4>                       Δ-4        
                <Const 0x22116 0x1.2>                        Δ-2        
                <Const 0x22118 0xb.2>                        Δ-2        
                <Call 0x2211c 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2211e-22120 StackAdj>                   Δ+8        
            <Call 0x22120 0x103e0>                                              {[-12-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 22126-2212a StackAdj>                       Δ+16               {}
            <MI 2212a  BRA     0x22516>                                         {}
        <POP 2212e-22168 Naked>                              Σ0         ↓ →0x2217c ←0x220d6
            <Blob 0x2212e [26] @>                            Δ-26               {[«26""»]}
            <POP 2213a-2213c StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x2213c 26>                                                    {[«26""»]|[$$S A P PC:N ID:A2 PA:XYXYXY]}
            <MI 2214a  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[«26""»]}
            <POP 2214e-22152 StackAdj>                       Δ+22               {[-4-]}
            <MI 22152  MOVE.L  (A6-0x16),(A7)>                                  {[4, '(A6-0x16)']}
            <Call 0x22156 0x20fd0>                                              {[4, '(A6-0x16)']}
            <POP 2215a-2215c StackAdj>                       Δ+4                {}
            <Call 0x2215c 0x2104e>                                              {}
            <POP 2215e-22160 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22160 0x21276>                                              {[-2-]}
            <MI 22164  TST.B   (A7)+>                        Δ+2                {}
            <MI 22166  BEQ     0x2217c>                                         {}
        <POP 22168-2217c Naked>                              Σ0 Δ-14    →0x22098
            <Blob 0x22168 [14] @>                            Δ-14               {[«14""»]}
            <MI 22178  BRA     0x22098>                                         {[«14""»]}
        <POP 2217c-2218e Naked>                              Σ0         ↓ →0x2219c ←0x2212e
            <Pointer.fp 0x2217c <LVAR -0x016 @ 4(rw)>>       Δ-4                {[@@-22]}
            <Call 0x22180 0x102b8>                                              {[@@-22]}
                NewString(VAR a : String)
            <POP 22186-22188 StackAdj>                       Δ+4                {}
            <MI 22188  TST.B   (A6+0x8)>                                        {}
            <MI 2218c  BNE     0x2219c>                                         {}
        <POP 2218e-2219c Naked>                              Σ0 Δ-10    →0x221a8
            <Blob 0x2218e [10] @>                            Δ-10               {[«10""»]}
            <MI 2219a  BRA     0x221a8>                                         {[«10""»]}
        <POP 2219c-221a8 Naked>                              Σ0 Δ-10    ↓ ←0x2217c
            <Blob 0x2219c [10] @>                            Δ-10               {[«10""»]}
        <POP 221a8-22232 Naked>                              Σ-10 Δ+10  ↓ →0x22246 ←0x2218e
            <POP 221a8-221aa StackAdj>                       Δ-4                {[-14-]}
            <Lit 0x221aa>                                                       {[-10-]|[$$…]}
                <Pointer.sp 0x221aa 4>                       Δ-4        
                <Const 0x221ae 0x1.2>                        Δ-2        
                <Const 0x221b0 0xa.2>                        Δ-2        
                <Call 0x221b4 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 221b6-221b8 StackAdj>                   Δ+8        
            <MI 221b8  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[-10-]}
            <POP 221bc-221c0 StackAdj>                       Δ+10               {}
            <Blob 0x221c0 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x221c4 [26] @>                            Δ-26               {[«4""»]|[«26""»]}
            <POP 221d6-221d8 StackAdj>                       Δ-4                {[«4""»]|[«26""»]|[-4-]}
            <MI 221d8  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']}
            <POP 221dc-221de StackAdj>                       Δ-4                {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[-4-]}
            <Lit 0x221de 4>                                                     {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[$$ FS:]}
            <MI 221ea  MOVE.L  D6,(A7)>                                         {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']}
            <POP 221e8-221ea StackAdj>                       Δ-8                {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]}
            <Call 0x221ec 0x102e4>                                              {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]}
                Long2String(a : Long) : String
            <MI 221f2  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, '(A6-0xe)']}
            <Call 0x221f6 0x102cc>                                              {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, '(A6-0xe)']}
                StringDup(a : String) : String
            <Lit 0x221fc 25>                                                    {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[$$ID:D0 CO:Y DC:C PA:XYXYXY]}
            <Call 0x2220a 0x102dc>                                              {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[$$ID:D0 CO:Y DC:C PA:XYXYXY]}
                StringCat5(a, b, c, d, e : String) : String
            <POP 22210-22214 StackAdj>                       Δ+20               {[«4""»]|[«26""»]|[-4-]}
            <MI 22214  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[«4""»]|[«26""»]}
            <POP 22218-2221c StackAdj>                       Δ+26               {[«4""»]}
            <MI 2221c  MOVE.L  (A6-0x16),(A7)>                                  {[4, '(A6-0x16)']}
            <Call 0x22220 0x20fd0>                                              {[4, '(A6-0x16)']}
            <POP 22224-22226 StackAdj>                       Δ+4                {}
            <Call 0x22226 0x2104e>                                              {}
            <POP 22228-2222a StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2222a 0x21276>                                              {[-2-]}
            <MI 2222e  TST.B   (A7)+>                        Δ+2                {}
            <MI 22230  BEQ     0x22246>                                         {}
        <POP 22232-22246 Naked>                              Σ0 Δ-14    →0x22098
            <Blob 0x22232 [14] @>                            Δ-14               {[«14""»]}
            <MI 22242  BRA     0x22098>                                         {[«14""»]}
        <POP 22246-222c0 Naked>                              Σ0         ↓ →0x222d4 ←0x221a8
            <Pointer.fp 0x22246 <LVAR -0x016 @ 4(rw)>>       Δ-4                {[@@-22]}
            <Call 0x2224a 0x102b8>                                              {[@@-22]}
                NewString(VAR a : String)
            <POP 22250-22251 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x22251 [6] @>                             Δ-6                {[«6""»]}
            <Blob 0x22260 [32] @>                            Δ-32               {[«6""»]|[«32""»]}
            <POP 2226c-2226e StackAdj>                       Δ-4                {[«6""»]|[«32""»]|[-4-]}
            <MI 2226e  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']}
            <POP 22272-22274 StackAdj>                       Δ-4                {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[-4-]}
            <Lit 0x22274 5>                                                     {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[$$S L P]}
            <MI 22280  MOVE.L  (A6-0xe),(A7)>                                   {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[4, '(A6-0xe)']}
            <POP 2227e-22280 StackAdj>                       Δ-8                {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[4, '(A6-0xe)']|[-8-]}
            <Call 0x22284 0x102cc>                                              {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[4, '(A6-0xe)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x2228a 32>                                                    {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[4, '(A6-0xe)']|[-4-]|[$$SP:9600 PR:N LE:8 ST:1 PA:XYXYXY]}
            <Call 0x22298 0x102d8>                                              {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[4, '(A6-0xe)']|[-4-]|[$$SP:9600 PR:N LE:8 ST:1 PA:XYXYXY]}
                StringCat4(a, b, c, d : String) : String
            <POP 2229e-222a2 StackAdj>                       Δ+16               {[«6""»]|[«32""»]|[-4-]}
            <MI 222a2  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[«6""»]|[«32""»]}
            <POP 222a6-222aa StackAdj>                       Δ+34               {[-4-]}
            <MI 222aa  MOVE.L  (A6-0x16),(A7)>                                  {[4, '(A6-0x16)']}
            <Call 0x222ae 0x20fd0>                                              {[4, '(A6-0x16)']}
            <POP 222b2-222b4 StackAdj>                       Δ+4                {}
            <Call 0x222b4 0x2104e>                                              {}
            <POP 222b6-222b8 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x222b8 0x21276>                                              {[-2-]}
            <MI 222bc  TST.B   (A7)+>                        Δ+2                {}
            <MI 222be  BEQ     0x222d4>                                         {}
        <POP 222c0-222d4 Naked>                              Σ0 Δ-14    →0x22098
            <Blob 0x222c0 [14] @>                            Δ-14               {[«14""»]}
            <MI 222d0  BRA     0x22098>                                         {[«14""»]}
        <POP 222d4-2235e Naked>                              Σ0         ↓ →0x22372 ←0x22246
            <Pointer.fp 0x222d4 <LVAR -0x016 @ 4(rw)>>       Δ-4                {[@@-22]}
            <Call 0x222d8 0x102b8>                                              {[@@-22]}
                NewString(VAR a : String)
            <POP 222de-222e0 StackAdj>                       Δ+4                {}
            <Blob 0x222e0 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x222ec [14] @>                            Δ-14               {[«14""»]|[«14""»]}
            <POP 222fc-222fe StackAdj>                       Δ-4                {[«14""»]|[«14""»]|[-4-]}
            <MI 222fe  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']}
            <POP 22302-22304 StackAdj>                       Δ-4                {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[-4-]}
            <Lit 0x22304 14>                                                    {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[$$S N C CH:1 NS:]}
            <MI 2230e  MOVE.L  D6,(A7)>                                         {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']}
            <POP 2230c-2230e StackAdj>                       Δ-8                {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]}
            <Call 0x22310 0x102e4>                                              {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]}
                Long2String(a : Long) : String
            <MI 22316  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, '(A6-0xe)']}
            <Call 0x2231a 0x102cc>                                              {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, '(A6-0xe)']}
                StringDup(a : String) : String
            <Lit 0x22320 13>                                                    {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[$$PA:XYXYXY SS:]}
            <MI 2232c  MOVE.L  D6,(A7)>                                         {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, 'D6']}
            <POP 2232a-2232c StackAdj>                       Δ-8                {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, 'D6']|[-8-]}
            <Call 0x2232e 0x102e4>                                              {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, 'D6']|[-8-]}
                Long2String(a : Long) : String
            <POP 22334-22336 StackAdj>                       Δ+4                {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, 'D6']|[-4-]}
            <Call 0x22336 0x102e0>                                              {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, 'D6']|[-4-]}
                StringCat6(a, b, c, d, e, f : String) : String
            <POP 2233c-22340 StackAdj>                       Δ+24               {[«14""»]|[«14""»]|[-4-]}
            <MI 22340  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[«14""»]|[«14""»]}
            <POP 22344-22348 StackAdj>                       Δ+24               {[-4-]}
            <MI 22348  MOVE.L  (A6-0x16),(A7)>                                  {[4, '(A6-0x16)']}
            <Call 0x2234c 0x20fd0>                                              {[4, '(A6-0x16)']}
            <POP 22350-22352 StackAdj>                       Δ+4                {}
            <Call 0x22352 0x2104e>                                              {}
            <POP 22354-22356 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22356 0x21276>                                              {[-2-]}
            <MI 2235a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2235c  BEQ     0x22372>                                         {}
        <POP 2235e-22372 Naked>                              Σ0 Δ-14    →0x22098
            <Blob 0x2235e [14] @>                            Δ-14               {[«14""»]}
            <MI 2236e  BRA     0x22098>                                         {[«14""»]}
        <POP 22372-2241c Naked>                              Σ0         ↓ →0x22472 ←0x222d4
            <Pointer.fp 0x22372 <LVAR -0x016 @ 4(rw)>>       Δ-4                {[@@-22]}
            <Call 0x22376 0x102b8>                                              {[@@-22]}
                NewString(VAR a : String)
            <POP 2237c-2237d StackAdj>                       Δ+4        ↓       {}
            <Blob 0x2237d [6] @>                             Δ-6                {[«6""»]}
            <Blob 0x2238c [4] @>                             Δ-4                {[«6""»]|[«4""»]}
            <Blob 0x22390 [10] @>                            Δ-10               {[«6""»]|[«4""»]|[«10""»]}
            <POP 2239c-2239e StackAdj>                       Δ-4                {[«6""»]|[«4""»]|[«10""»]|[-4-]}
            <MI 2239e  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']}
            <POP 223a2-223a4 StackAdj>                       Δ-4                {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[-4-]}
            <Lit 0x223a4 5>                                                     {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]}
            <MI 223b0  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']}
            <POP 223ae-223b0 StackAdj>                       Δ-8                {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]}
            <Call 0x223b4 0x102cc>                                              {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]}
                StringDup(a : String) : String
            <MI 223ba  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0xa)']}
            <Call 0x223be 0x102cc>                                              {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0xa)']}
                StringDup(a : String) : String
            <POP 223c4-223c6 StackAdj>                       Δ+4                {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]}
            <Call 0x223c6 0x102d0>                                              {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]}
                StringCat2(a, b : String) : String
            <Lit 0x223cc 4>                                                     {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]|[$$ AD:]}
            <POP 223d8-223da StackAdj>                       Δ-4                {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]|[$$ AD:]|[-4-]}
            <MI 223da  MOVE.L  A4,(A7)>                                         {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]|[$$ AD:]|[4, 'A4']}
            <POP 223dc-223de StackAdj>                       Δ-4                {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]|[$$ AD:]|[4, 'A4']|[-4-]}
            <Lit 0x223de 10>                                                    {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]|[$$ AD:]|[4, 'A4']|[$$ PA:XYXYXY]}
            <Call 0x223ec 0x102d4>                                              {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]|[$$ AD:]|[4, 'A4']|[$$ PA:XYXYXY]}
                StringCat3(a, b, c : String) : String
            <POP 223f2-223f4 StackAdj>                       Δ+12               {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]}
            <Call 0x223f4 0x102d8>                                              {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]}
                StringCat4(a, b, c, d : String) : String
            <POP 223fa-223fe StackAdj>                       Δ+16               {[«6""»]|[«4""»]|[«10""»]|[-4-]}
            <MI 223fe  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[«6""»]|[«4""»]|[«10""»]}
            <POP 22402-22406 StackAdj>                       Δ+16               {[-4-]}
            <MI 22406  MOVE.L  (A6-0x16),(A7)>                                  {[4, '(A6-0x16)']}
            <Call 0x2240a 0x20fd0>                                              {[4, '(A6-0x16)']}
            <POP 2240e-22410 StackAdj>                       Δ+4                {}
            <Call 0x22410 0x2104e>                                              {}
            <POP 22412-22414 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22414 0x21276>                                              {[-2-]}
            <MI 22418  TST.B   (A7)+>                        Δ+2                {}
            <MI 2241a  BEQ     0x22472>                                         {}
        <POP 2241c-22472 Naked>                              Σ0         →0x2258c
            <Blob 0x2241c [64] @>                            Δ-64               {[«64""»]}
            <POP 2242e-22430 StackAdj>                       Δ-4                {[«64""»]|[-4-]}
            <Lit 0x22430 63>                                                    {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
            <Call 0x2243e 0x103e0>                                              {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
                WriteConsoleStringCrLf(str : String)
            <POP 22444-22448 StackAdj>                       Δ+68               {}
            <Blob 0x22448 [66] @>                            Δ-66               {[«66""»]}
            <POP 22454-22456 StackAdj>                       Δ-4                {[«66""»]|[-4-]}
            <Lit 0x22456 66>                                                    {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
            <Call 0x22464 0x103e0>                                              {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
                WriteConsoleStringCrLf(str : String)
            <POP 2246a-2246e StackAdj>                       Δ+70               {}
            <MI 2246e  BRA     0x2258c>                                         {}
        <POP 22472-224bc Naked>                              Σ0         ↓ →0x224d0 ←0x22372
            <Blob 0x22472 [14] @>                            Δ-14               {[«14""»]}
            <POP 22482-22484 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x22484 13>                                                    {[«14""»]|[$$W S PA:XYXYXY]}
            <MI 22492  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[«14""»]}
            <POP 22496-2249a StackAdj>                       Δ+10               {[-4-]}
            <MI 2249a  MOVE.L  (A6-0x16),(A7)>                                  {[4, '(A6-0x16)']}
            <Call 0x2249e 0x20fd0>                                              {[4, '(A6-0x16)']}
            <POP 224a2-224a3 StackAdj>                       Δ+4                {}
            <Const 0x224a3 0x2faee.4>                        Δ-4                {[##195310]}
            <Call 0x224a8 0x10224>                                              {[##195310]}
                KC12_Sleep(dur: Long)
            <POP 224ae-224b0 StackAdj>                       Δ+4                {}
            <Call 0x224b0 0x2104e>                                              {}
            <POP 224b2-224b4 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x224b4 0x21418>                                              {[-2-]}
            <MI 224b8  TST.B   (A7)+>                        Δ+2                {}
            <MI 224ba  BEQ     0x224d0>                                         {}
        <POP 224bc-224d0 Naked>                              Σ0 Δ-12    →0x22110
            <Blob 0x224bc [12] @>                            Δ-12               {[«12""»]}
            <MI 224cc  BRA     0x22110>                                         {[«12""»]}
        <POP 224d0-22516 Naked>                              Σ0         →0x2258c ←0x22472
            <Blob 0x224d0 [42] @>                            Δ-42               {[«42""»]}
            <POP 224e2-224e4 StackAdj>                       Δ-4                {[«42""»]|[-4-]}
            <Lit 0x224e4 41>                                                    {[«42""»]|[$$The Environment Port has been configured!]}
            <Call 0x224f2 0x103e0>                                              {[«42""»]|[$$The Environment Port has been configured!]}
                WriteConsoleStringCrLf(str : String)
            <POP 224f8-224fc StackAdj>                       Δ+46               {}
            <Pointer.fp 0x224fc <LVAR -0x00e @ 4(rw)>>       Δ-4                {[@@-14]}
            <Call 0x22500 0x102bc>                                              {[@@-14]}
                FreeString(VAR a : String)
            <POP 22506-22508 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x22508 <LVAR -0x00a @ 4(rw)>>       Δ-4                {[@@-10]}
            <Call 0x2250c 0x102bc>                                              {[@@-10]}
                FreeString(VAR a : String)
            <POP 22512-22514 StackAdj>                       Δ+4                {}
            <MI 22514  BRA     0x2258c>                                         {}
        <POP 22516-2258c Naked>                              Σ0         ↓ ←0x22098 ←0x22110
            <Blob 0x22516 [64] @>                            Δ-64               {[«64""»]}
            <POP 22528-2252a StackAdj>                       Δ-4                {[«64""»]|[-4-]}
            <Lit 0x2252a 63>                                                    {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
            <Call 0x22538 0x103e0>                                              {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
                WriteConsoleStringCrLf(str : String)
            <POP 2253e-22542 StackAdj>                       Δ+68               {}
            <Blob 0x22542 [60] @>                            Δ-60               {[«60""»]}
            <POP 2254e-22550 StackAdj>                       Δ-4                {[«60""»]|[-4-]}
            <Lit 0x22550 60>                                                    {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
            <Call 0x2255e 0x103e0>                                              {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
                WriteConsoleStringCrLf(str : String)
            <POP 22564-22568 StackAdj>                       Δ+64               {}
            <Blob 0x22568 [32] @>                            Δ-32               {[«32""»]}
            <POP 22574-22576 StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Lit 0x22576 32>                                                    {[«32""»]|[$$configuration or replace the PAD]}
            <Call 0x22584 0x103e0>                                              {[«32""»]|[$$configuration or replace the PAD]}
                WriteConsoleStringCrLf(str : String)
            <POP 2258a-2258c StackAdj>                       Δ+36               {}
        <POP 2258c-22590 Naked>                              Σ0         ↓ ←0x2241c ←0x224d0
            <Call 0x2258c 0x20fa6>                                              {}
        <POP 22590-22598 Epilogue>                           Σ0         

0x22598


@ 22598
        <LVAR -0x004 @ 4(rw)>
        <LVAR -0x008 @ 4(rw)>
        <LVAR -0x010 @ 4(rw)>
    <POP 22598-22cda Body>                                   Δ+80       
        <POP 22598-225ae Prologue>                           Σ0         ↓
        <POP 225ae-225c4 RegCacheLoad>                       Σ0         ↓
        <POP 225c4-22610 Naked>                              Σ0         →0x22618 →0x22648 →0x22676 →0x226a4
            <Blob 0x225c4 [54] @>                            Δ-54               {[«54""»]}
            <POP 225d4-225d6 StackAdj>                       Δ-8                {[«54""»]|[-8-]}
            <Lit 0x225d6 53>                                                    {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]}
            <Const 0x225e4 0x2.4>                            Δ-4                {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]}
            <Const 0x225e8 0x5.4>                            Δ-4                {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
            <Call 0x225ec 0x103ec>                                              {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 225f2-225f4 StackAdj>                       Δ+12               {[«54""»]|[-4-]}
            <MI 225f4  MOVE.L  (A7)+,D7>                     Δ+4                {[«54""»]}
            <POP 225f6-225f8 StackAdj>                       Δ+54               {}
            <MI 225f8  MOVE.L  D7,D0>                                           {}
            <MI 225fa  SUBQ.L  #0x2,D0>                                         {}
            <POP 0x225fc LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 22606  ADD.W   D0,D0>                                           {}
            <MI 22608  SWITCH  D0.W>                                            {}
        <POP 22618-22648 Naked>                              Σ0 Δ-8     →0x226d0 ←0x225c4
            <Blob 0x22618 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x2261c [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x22620 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 22624-22626 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x22626 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:2_]}
            <MI 22632  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 22634-22635 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x22635 [8] @>                             Δ-8                {[«8""»]}
            <MI 22644  BRA     0x226d0>                                         {[«8""»]}
        <POP 22648-22676 Naked>                              Σ0 Δ-8     →0x226d0 ←0x225c4
            <Blob 0x22648 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x2264c [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x22650 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 22654-22656 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x22656 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:3_]}
            <MI 22662  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 22664-22665 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x22665 [8] @>                             Δ-8                {[«8""»]}
            <MI 22674  BRA     0x226d0>                                         {[«8""»]}
        <POP 22676-226a4 Naked>                              Σ0 Δ-8     →0x226d0 ←0x225c4
            <Blob 0x22676 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x2267a [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x2267e [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 22682-22684 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x22684 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:4_]}
            <MI 22690  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 22692-22693 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x22693 [8] @>                             Δ-8                {[«8""»]}
            <MI 226a2  BRA     0x226d0>                                         {[«8""»]}
        <POP 226a4-226d0 Naked>                              Σ0 Δ-8     ↓ ←0x225c4
            <Blob 0x226a4 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x226a8 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x226ac [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 226b0-226b2 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x226b2 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:5_]}
            <MI 226be  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 226c0-226c1 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x226c1 [8] @>                             Δ-8                {[«8""»]}
        <POP 226d0-2274a Naked>                              Σ-8 Δ+8    ↓ →0x227c2 ←0x22618 ←0x22648 ←0x22676
            <POP 226d0-226d2 StackAdj>                       Δ-4                {[-12-]}
            <Lit 0x226d2>                                                       {[-8-]|[$$…]}
                <Pointer.sp 0x226d2 4>                       Δ-4        
                <Const 0x226d6 0x1.2>                        Δ-2        
                <Const 0x226d8 0x7.2>                        Δ-2        
                <Call 0x226dc 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 226de-226e0 StackAdj>                   Δ+8        
            <MI 226e0  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {[-8-]}
            <POP 226e4-226e6 StackAdj>                       Δ+8                {}
            <MI 226e6  CLR.B   0x23180>                                         {}
            <Call 0x226ec 0x10216>                                              {}
                KC0b
            <Call 0x226f2 0x2104e>                                              {}
            <Blob 0x226f6 [36] @>                            Δ-36               {[«36""»]}
            <POP 22708-2270a StackAdj>                       Δ-6                {[«36""»]|[-6-]}
            <Lit 0x2270a 35>                                                    {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]}
            <POP 22716-22718 StackAdj>                       Δ-2                {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
            <MI 22718  CLR.B   (A7)>                                            {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
            <Call 0x2271a 0x103f0>                                              {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 22720-22722 StackAdj>                       Δ+6                {[«36""»]|[-2-]}
            <MI 22722  MOVE.B  (A7)+,D0>                     Δ+2                {[«36""»]}
            <MI 22724  EXTB.W  D0>                                              {[«36""»]}
            <POP 0x22726 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«36""»]}
            <POP 22728-2272c StackAdj>                       Δ+36               {}
            <MI 2272c  MOVE.B  D0,0x23180>                                      {}
            <Const 0x22732 0x2.2>                            Δ-2                {[#2]}
            <Const 0x22734 0x10.2>                           Δ-2                {[#2]|[#16]}
            <Call 0x22736 0x1020c>                                              {[#2]|[#16]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 2273c-2273e StackAdj>                       Δ+4                {}
            <Call 0x2273e 0x2104e>                                              {}
            <MI 22742  TST.L   0x23986>                                         {}
            <MI 22748  BNE     0x227c2>                                         {}
        <POP 2274a-2278e Naked>                              Σ0         ↓ →0x227c2
            <Const 0x2274a 0x2.2>                            Δ-2                {[#2]}
            <Const 0x2274c 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x22750 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 22756-22758 StackAdj>                       Δ+2                {[#2]}
            <POP 22758-22759 StackAdj>                       Δ+2                {}
            <Const 0x22759 0x2.2>                            Δ-2                {[#2]}
            <Const 0x2275a 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x2275e 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 22764-22766 StackAdj>                       Δ+2                {[#2]}
            <POP 22766-22767 StackAdj>                       Δ+2                {}
            <Const 0x22767 0x2.2>                            Δ-2                {[#2]}
            <Const 0x22768 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x2276c 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 22772-22774 StackAdj>                       Δ+2                {[#2]}
            <POP 22774-22775 StackAdj>                       Δ+2                {}
            <Const 0x22775 0x2.2>                            Δ-2                {[#2]}
            <Const 0x22776 0xd.2>                            Δ-2                {[#2]|[#13]}
            <Call 0x2277a 0x1020c>                                              {[#2]|[#13]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 22780-22782 StackAdj>                       Δ+4                {}
            <Call 0x22782 0x2104e>                                              {}
            <MI 22786  TST.L   0x23986>                                         {}
            <MI 2278c  BNE     0x227c2>                                         {}
        <POP 2278e-227c2 Naked>                              Σ0         ↓
            <Blob 0x2278e [48] @>                            Δ-48               {[«48""»]}
            <POP 2279a-2279c StackAdj>                       Δ-4                {[«48""»]|[-4-]}
            <Lit 0x2279c 48>                                                    {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
            <Call 0x227aa 0x103e0>                                              {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
                WriteConsoleStringCrLf(str : String)
            <POP 227b0-227b4 StackAdj>                       Δ+50               {[-2-]}
            <POP 227b4-227b5 StackAdj>                       Δ+2                {}
            <Const 0x227b5 0x2.2>                            Δ-2                {[#2]}
            <Const 0x227b6 0x1.4>                            Δ-4                {[#2]|[##1]}
            <Call 0x227ba 0x103b8>                                              {[#2]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 227c0-227c2 StackAdj>                       Δ+6                {}
        <POP 227c2-227f6 Naked>                              Σ0         ↓ →0x227c2 ←0x226d0 ←0x2274a ←0x227c2
            <Blob 0x227c2 [62] @>                            Δ-62               {[«62""»]}
            <POP 227d4-227d6 StackAdj>                       Δ-8                {[«62""»]|[-8-]}
            <Lit 0x227d6 61>                                                    {[«62""»]|[-4-]|[$$Enter the DTE address identification (ID) for the IOC port :_]}
            <Call 0x227e4 0x103e4>                                              {[«62""»]|[-4-]|[$$Enter the DTE address identification (ID) for the IOC port :_]}
                AskConsoleString(prompt : String) : String
            <POP 227ea-227ec StackAdj>                       Δ+4                {[«62""»]|[-4-]}
            <MI 227ec  MOVEA.L (A7)+,A4>                     Δ+4                {[«62""»]}
            <POP 227ee-227f2 StackAdj>                       Δ+62               {}
            <MI 227f2  TST.W   (A4)>                                            {}
            <MI 227f4  BEQ     0x227c2>                                         {}
        <POP 227f6-2288a Naked>                              Σ0         ↓ →0x228e0
            <Pointer.fp 0x227f6 <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x227fa 0x102b8>                                              {[@@-16]}
                NewString(VAR a : String)
            <POP 22800-22801 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x22801 [10] @>                            Δ-10               {[«10""»]}
            <Blob 0x22810 [10] @>                            Δ-10               {[«10""»]|[«10""»]}
            <POP 22822-22824 StackAdj>                       Δ-4                {[«10""»]|[«10""»]|[-4-]}
            <MI 22824  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']}
            <POP 22828-2282a StackAdj>                       Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
            <Lit 0x2282a 9>                                                     {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]}
            <POP 22836-22838 StackAdj>                       Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[-4-]}
            <MI 22838  MOVE.L  A4,(A7)>                                         {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']}
            <POP 2283a-2283c StackAdj>                       Δ-8                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]}
            <MI 2283c  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x4)']}
            <Call 0x22840 0x102cc>                                              {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x4)']}
                StringDup(a : String) : String
            <MI 22846  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']}
            <Call 0x22848 0x102cc>                                              {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']}
                StringDup(a : String) : String
            <Lit 0x2284e 9>                                                     {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x4)']|[$$PA:XYXYXY]}
            <Call 0x2285c 0x102d4>                                              {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x4)']|[$$PA:XYXYXY]}
                StringCat3(a, b, c : String) : String
            <POP 22862-22864 StackAdj>                       Δ+12               {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-4-]}
            <Call 0x22864 0x102d8>                                              {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-4-]}
                StringCat4(a, b, c, d : String) : String
            <POP 2286a-2286c StackAdj>                       Δ+16               {[«10""»]|[«10""»]|[-4-]}
            <MI 2286c  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«10""»]|[«10""»]}
            <POP 22870-22872 StackAdj>                       Δ+16               {[-4-]}
            <MI 22872  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <Call 0x22876 0x20fd0>                                              {[4, '(A6-0x10)']}
            <POP 2287a-2287c StackAdj>                       Δ+4                {}
            <Call 0x2287c 0x2104e>                                              {}
            <POP 22880-22882 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22882 0x21276>                                              {[-2-]}
            <MI 22886  TST.B   (A7)+>                        Δ+2                {}
            <MI 22888  BEQ     0x228e0>                                         {}
        <POP 2288a-228e0 Naked>                              Σ0         →0x22cce
            <Blob 0x2288a [64] @>                            Δ-64               {[«64""»]}
            <POP 2289c-2289e StackAdj>                       Δ-4                {[«64""»]|[-4-]}
            <Lit 0x2289e 63>                                                    {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
            <Call 0x228ac 0x103e0>                                              {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
                WriteConsoleStringCrLf(str : String)
            <POP 228b2-228b6 StackAdj>                       Δ+68               {}
            <Blob 0x228b6 [66] @>                            Δ-66               {[«66""»]}
            <POP 228c2-228c4 StackAdj>                       Δ-4                {[«66""»]|[-4-]}
            <Lit 0x228c4 66>                                                    {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
            <Call 0x228d2 0x103e0>                                              {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
                WriteConsoleStringCrLf(str : String)
            <POP 228d8-228dc StackAdj>                       Δ+70               {}
            <MI 228dc  BRA     0x22cce>                                         {}
        <POP 228e0-2291c Naked>                              Σ0         ↓ →0x2294c ←0x227f6
            <Blob 0x228e0 [44] @>                            Δ-44               {[«44""»]}
            <POP 228ec-228ee StackAdj>                       Δ-4                {[«44""»]|[-4-]}
            <Lit 0x228ee 44>                                                    {[«44""»]|[$$S N C CH:1 NS:128 SS:128 FW:7 PW:2 PA:XYXYXY]}
            <MI 228fc  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«44""»]}
            <POP 22900-22904 StackAdj>                       Δ+40               {[-4-]}
            <MI 22904  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <Call 0x22908 0x20fd0>                                              {[4, '(A6-0x10)']}
            <POP 2290c-2290e StackAdj>                       Δ+4                {}
            <Call 0x2290e 0x2104e>                                              {}
            <POP 22912-22914 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22914 0x21276>                                              {[-2-]}
            <MI 22918  TST.B   (A7)+>                        Δ+2                {}
            <MI 2291a  BEQ     0x2294c>                                         {}
        <POP 2291c-2292e Naked>                              Σ0 Δ-14    ↓
            <Blob 0x2291c [14] @>                            Δ-14               {[«14""»]}
        <POP 2292e-2294c Naked>                              Σ-14 Δ+14  →0x22c56 ←0x229c6 ←0x22a52 ←0x22ae6 ←0x22b70
            <POP 2292e-22930 StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x22930>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x22930 4>                       Δ-4        
                <Const 0x22934 0x1.2>                        Δ-2        
                <Const 0x22936 0xd.2>                        Δ-2        
                <Call 0x2293a 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2293c-2293e StackAdj>                   Δ+8        
            <Call 0x2293e 0x103e0>                                              {[-14-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 22944-22948 StackAdj>                       Δ+18               {}
            <MI 22948  BRA     0x22c56>                                         {}
        <POP 2294c-229c6 Naked>                              Σ0         ↓ →0x229dc ←0x228e0
            <Pointer.fp 0x2294c <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x22950 0x102b8>                                              {[@@-16]}
                NewString(VAR a : String)
            <POP 22956-22958 StackAdj>                       Δ+4                {}
            <Blob 0x22958 [38] @>                            Δ-38               {[«38""»]}
            <Blob 0x22964 [20] @>                            Δ-20               {[«38""»]|[«20""»]}
            <POP 22976-22978 StackAdj>                       Δ-4                {[«38""»]|[«20""»]|[-4-]}
            <MI 22978  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']}
            <POP 2297c-2297e StackAdj>                       Δ-4                {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
            <Lit 0x2297e 38>                                                    {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[$$S A P CO:B DC:N DO:N FS:128 ID:A2 PC:N]}
            <MI 2298a  MOVE.L  (A6-0x8),(A7)>                                   {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']}
            <POP 22988-2298a StackAdj>                       Δ-8                {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
            <Call 0x2298c 0x102cc>                                              {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x22992 19>                                                    {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-4-]|[$$TP:Y US:N PA:XYXYXY]}
            <Call 0x229a0 0x102d8>                                              {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-4-]|[$$TP:Y US:N PA:XYXYXY]}
                StringCat4(a, b, c, d : String) : String
            <POP 229a6-229a8 StackAdj>                       Δ+16               {[«38""»]|[«20""»]|[-4-]}
            <MI 229a8  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«38""»]|[«20""»]}
            <POP 229ac-229ae StackAdj>                       Δ+54               {[-4-]}
            <MI 229ae  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <Call 0x229b2 0x20fd0>                                              {[4, '(A6-0x10)']}
            <POP 229b6-229b8 StackAdj>                       Δ+4                {}
            <Call 0x229b8 0x2104e>                                              {}
            <POP 229bc-229be StackAdj>                       Δ-2                {[-2-]}
            <Call 0x229be 0x21276>                                              {[-2-]}
            <MI 229c2  TST.B   (A7)+>                        Δ+2                {}
            <MI 229c4  BEQ     0x229dc>                                         {}
        <POP 229c6-229dc Naked>                              Σ0 Δ-14    →0x2292e
            <Blob 0x229c6 [14] @>                            Δ-14               {[«14""»]}
            <MI 229d8  BRA     0x2292e>                                         {[«14""»]}
        <POP 229dc-22a52 Naked>                              Σ0         ↓ →0x22a68 ←0x2294c
            <Pointer.fp 0x229dc <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x229e0 0x102b8>                                              {[@@-16]}
                NewString(VAR a : String)
            <POP 229e6-229e8 StackAdj>                       Δ+4                {}
            <Blob 0x229e8 [10] @>                            Δ-10               {[«10""»]}
            <Blob 0x229f4 [32] @>                            Δ-32               {[«10""»]|[«32""»]}
            <POP 22a00-22a02 StackAdj>                       Δ-4                {[«10""»]|[«32""»]|[-4-]}
            <MI 22a02  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']}
            <POP 22a06-22a08 StackAdj>                       Δ-4                {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
            <Lit 0x22a08 10>                                                    {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[$$S L P LE:8]}
            <MI 22a14  MOVE.L  (A6-0x8),(A7)>                                   {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']}
            <POP 22a12-22a14 StackAdj>                       Δ-8                {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
            <Call 0x22a16 0x102cc>                                              {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x22a1c 32>                                                    {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-4-]|[$$PR:N ST:1 SP:9600 UC:Y PA:XYXYXY]}
            <Call 0x22a2a 0x102d8>                                              {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-4-]|[$$PR:N ST:1 SP:9600 UC:Y PA:XYXYXY]}
                StringCat4(a, b, c, d : String) : String
            <POP 22a30-22a32 StackAdj>                       Δ+16               {[«10""»]|[«32""»]|[-4-]}
            <MI 22a32  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«10""»]|[«32""»]}
            <POP 22a36-22a3a StackAdj>                       Δ+38               {[-4-]}
            <MI 22a3a  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <Call 0x22a3e 0x20fd0>                                              {[4, '(A6-0x10)']}
            <POP 22a42-22a44 StackAdj>                       Δ+4                {}
            <Call 0x22a44 0x2104e>                                              {}
            <POP 22a48-22a4a StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22a4a 0x21276>                                              {[-2-]}
            <MI 22a4e  TST.B   (A7)+>                        Δ+2                {}
            <MI 22a50  BEQ     0x22a68>                                         {}
        <POP 22a52-22a68 Naked>                              Σ0 Δ-14    →0x2292e
            <Blob 0x22a52 [14] @>                            Δ-14               {[«14""»]}
            <MI 22a64  BRA     0x2292e>                                         {[«14""»]}
        <POP 22a68-22ae6 Naked>                              Σ0         ↓ →0x22afc ←0x229dc
            <Pointer.fp 0x22a68 <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x22a6c 0x102b8>                                              {[@@-16]}
                NewString(VAR a : String)
            <POP 22a72-22a73 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x22a73 [16] @>                            Δ-16               {[«16""»]}
            <Blob 0x22a82 [10] @>                            Δ-10               {[«16""»]|[«10""»]}
            <POP 22a94-22a96 StackAdj>                       Δ-4                {[«16""»]|[«10""»]|[-4-]}
            <MI 22a96  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']}
            <POP 22a9a-22a9c StackAdj>                       Δ-4                {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
            <Lit 0x22a9c 15>                                                    {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$S U C XA:Y XD:3]}
            <MI 22aa8  MOVE.L  (A6-0x8),(A7)>                                   {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']}
            <POP 22aa6-22aa8 StackAdj>                       Δ-8                {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
            <Call 0x22aaa 0x102cc>                                              {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x22ab0 9>                                                     {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-4-]|[$$PA:XYXYXY]}
            <Call 0x22abe 0x102d8>                                              {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-4-]|[$$PA:XYXYXY]}
                StringCat4(a, b, c, d : String) : String
            <POP 22ac4-22ac6 StackAdj>                       Δ+16               {[«16""»]|[«10""»]|[-4-]}
            <MI 22ac6  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«16""»]|[«10""»]}
            <POP 22aca-22ace StackAdj>                       Δ+22               {[-4-]}
            <MI 22ace  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <Call 0x22ad2 0x20fd0>                                              {[4, '(A6-0x10)']}
            <POP 22ad6-22ad8 StackAdj>                       Δ+4                {}
            <Call 0x22ad8 0x2104e>                                              {}
            <POP 22adc-22ade StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22ade 0x21276>                                              {[-2-]}
            <MI 22ae2  TST.B   (A7)+>                        Δ+2                {}
            <MI 22ae4  BEQ     0x22afc>                                         {}
        <POP 22ae6-22afc Naked>                              Σ0 Δ-14    →0x2292e
            <Blob 0x22ae6 [14] @>                            Δ-14               {[«14""»]}
            <MI 22af8  BRA     0x2292e>                                         {[«14""»]}
        <POP 22afc-22b70 Naked>                              Σ0         ↓ →0x22b86 ←0x22a68
            <Pointer.fp 0x22afc <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x22b00 0x102b8>                                              {[@@-16]}
                NewString(VAR a : String)
            <POP 22b06-22b07 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x22b07 [48] @>                            Δ-48               {[«48""»]}
            <Blob 0x22b18 [42] @>                            Δ-42               {[«48""»]|[«42""»]}
            <POP 22b24-22b26 StackAdj>                       Δ-4                {[«48""»]|[«42""»]|[-4-]}
            <MI 22b26  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x10)']}
            <POP 22b2a-22b2c StackAdj>                       Δ-4                {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
            <Lit 0x22b2c 47>                                                    {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x10)']|[$$A X T XC:2 XD:3 XP:1,1,2,0,3,0,4,2,5,0,6,1,7,4,]}
            <POP 22b38-22b3a StackAdj>                       Δ-4                {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x10)']|[$$A X T XC:2 XD:3 XP:1,1,2,0,3,0,4,2,5,0,6,1,7,4,]|[-4-]}
            <Lit 0x22b3a 42>                                                    {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x10)']|[$$A X T XC:2 XD:3 XP:1,1,2,0,3,0,4,2,5,0,6,1,7,4,]|[$$8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY]}
            <Call 0x22b48 0x102d4>                                              {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x10)']|[$$A X T XC:2 XD:3 XP:1,1,2,0,3,0,4,2,5,0,6,1,7,4,]|[$$8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY]}
                StringCat3(a, b, c : String) : String
            <POP 22b4e-22b50 StackAdj>                       Δ+12               {[«48""»]|[«42""»]|[-4-]}
            <MI 22b50  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«48""»]|[«42""»]}
            <POP 22b54-22b58 StackAdj>                       Δ+86               {[-4-]}
            <MI 22b58  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <Call 0x22b5c 0x20fd0>                                              {[4, '(A6-0x10)']}
            <POP 22b60-22b62 StackAdj>                       Δ+4                {}
            <Call 0x22b62 0x2104e>                                              {}
            <POP 22b66-22b68 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22b68 0x21276>                                              {[-2-]}
            <MI 22b6c  TST.B   (A7)+>                        Δ+2                {}
            <MI 22b6e  BEQ     0x22b86>                                         {}
        <POP 22b70-22b86 Naked>                              Σ0 Δ-14    →0x2292e
            <Blob 0x22b70 [14] @>                            Δ-14               {[«14""»]}
            <MI 22b82  BRA     0x2292e>                                         {[«14""»]}
        <POP 22b86-22bee Naked>                              Σ0         ↓ →0x22c18 ←0x22afc
            <Blob 0x22b86 [14] @>                            Δ-14               {[«14""»]}
            <POP 22b98-22b9a StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x22b9a 13>                                                    {[«14""»]|[$$W S PA:XYXYXY]}
            <MI 22ba8  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«14""»]}
            <POP 22bac-22bae StackAdj>                       Δ+6                {[-8-]}
            <MI 22bae  MOVE.L  (A6-0x10),(A7)>                                  {[-4-]|[4, '(A6-0x10)']}
            <POP 22bb2-22bb4 StackAdj>                       Δ-4                {[-4-]|[4, '(A6-0x10)']|[-4-]}
            <MI 22bb4  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x10)']|[-4-]|[4, '(A6-0x8)']}
            <Call 0x22bb6 0x102cc>                                              {[-4-]|[4, '(A6-0x10)']|[-4-]|[4, '(A6-0x8)']}
                StringDup(a : String) : String
            <POP 22bbc-22bbe StackAdj>                       Δ+4                {[-4-]|[4, '(A6-0x10)']|[-4-]}
            <Call 0x22bbe 0x102d0>                                              {[-4-]|[4, '(A6-0x10)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 22bc4-22bc6 StackAdj>                       Δ+8                {[-4-]}
            <MI 22bc6  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {}
            <MI 22bca  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']}
            <Call 0x22bce 0x20fd0>                                              {[4, '(A6-0x10)']}
            <POP 22bd2-22bd3 StackAdj>                       Δ+4                {}
            <Const 0x22bd3 0x2faee.4>                        Δ-4                {[##195310]}
            <Call 0x22bd8 0x10224>                                              {[##195310]}
                KC12_Sleep(dur: Long)
            <POP 22bde-22be0 StackAdj>                       Δ+4                {}
            <Call 0x22be0 0x2104e>                                              {}
            <POP 22be4-22be6 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22be6 0x21418>                                              {[-2-]}
            <MI 22bea  TST.B   (A7)+>                        Δ+2                {}
            <MI 22bec  BEQ     0x22c18>                                         {}
        <POP 22bee-22c18 Naked>                              Σ0         →0x22c56
            <Blob 0x22bee [12] @>                            Δ-12               {[«12""»]}
            <POP 22bfe-22c00 StackAdj>                       Δ-4                {[«12""»]|[-4-]}
            <Lit 0x22c00 11>                                                    {[«12""»]|[$$W S failed.]}
            <Call 0x22c0e 0x103e0>                                              {[«12""»]|[$$W S failed.]}
                WriteConsoleStringCrLf(str : String)
            <POP 22c14-22c16 StackAdj>                       Δ+16               {}
            <MI 22c16  BRA     0x22c56>                                         {}
        <POP 22c18-22c56 Naked>                              Σ0         →0x22cce ←0x22b86
            <Blob 0x22c18 [28] @>                            Δ-28               {[«28""»]}
            <POP 22c24-22c26 StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x22c26 28>                                                    {[«28""»]|[$$The PAD has been configured!]}
            <Call 0x22c34 0x103e0>                                              {[«28""»]|[$$The PAD has been configured!]}
                WriteConsoleStringCrLf(str : String)
            <POP 22c3a-22c3e StackAdj>                       Δ+32               {}
            <Pointer.fp 0x22c3e <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x22c40 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 22c46-22c48 StackAdj>                       Δ+4                {}
            <Pointer.fp 0x22c48 <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x22c4c 0x102bc>                                              {[@@-4]}
                FreeString(VAR a : String)
            <POP 22c52-22c54 StackAdj>                       Δ+4                {}
            <MI 22c54  BRA     0x22cce>                                         {}
        <POP 22c56-22cce Naked>                              Σ0         ↓ ←0x2292e ←0x22bee
            <Blob 0x22c56 [64] @>                            Δ-64               {[«64""»]}
            <POP 22c68-22c6a StackAdj>                       Δ-4                {[«64""»]|[-4-]}
            <Lit 0x22c6a 63>                                                    {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
            <Call 0x22c78 0x103e0>                                              {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
                WriteConsoleStringCrLf(str : String)
            <POP 22c7e-22c82 StackAdj>                       Δ+68               {}
            <Blob 0x22c82 [60] @>                            Δ-60               {[«60""»]}
            <POP 22c8e-22c90 StackAdj>                       Δ-4                {[«60""»]|[-4-]}
            <Lit 0x22c90 60>                                                    {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
            <Call 0x22c9e 0x103e0>                                              {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
                WriteConsoleStringCrLf(str : String)
            <POP 22ca4-22ca8 StackAdj>                       Δ+64               {}
            <Blob 0x22ca8 [32] @>                            Δ-32               {[«32""»]}
            <POP 22cb4-22cb6 StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Lit 0x22cb6 32>                                                    {[«32""»]|[$$configuration or replace the PAD]}
            <Call 0x22cc4 0x103e0>                                              {[«32""»]|[$$configuration or replace the PAD]}
                WriteConsoleStringCrLf(str : String)
            <POP 22cca-22cce StackAdj>                       Δ+36               {}
        <POP 22cce-22cd2 Naked>                              Σ0         ↓ ←0x2288a ←0x22c18
            <Call 0x22cce 0x20fa6>                                              {}
        <POP 22cd2-22cda Epilogue>                           Σ0         

0x22cda


@ 22cda
    <POP 22cda-22e9a Body>                                   Δ+2        
        <POP 22cda-22cf0 Prologue>                           Σ0         ↓
        <POP 22cf0-22d06 RegCacheLoad>                       Σ0         ↓
        <POP 22d06-22e22 Naked>                              Σ0         →0x22e2e →0x22e30 →0x22e36 →0x22e3c →0x22e46 →0x22e4a ←0x22e7e
            <Blob 0x22d06 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x22d0a [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x22d0e [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 22d12-22d14 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x22d14 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
            <Call 0x22d20 0x103e0>                                              {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
                WriteConsoleStringCrLf(str : String)
            <POP 22d22-22d23 StackAdj>                       Δ+16       ↓       {}
            <Blob 0x22d23 [14] @>                            Δ-14               {[«14""»]}
            <POP 22d32-22d34 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x22d34 13>                                                    {[«14""»]|[$$    0 => Exit]}
            <Call 0x22d42 0x103e0>                                              {[«14""»]|[$$    0 => Exit]}
                WriteConsoleStringCrLf(str : String)
            <POP 22d44-22d48 StackAdj>                       Δ+18               {}
            <Blob 0x22d48 [38] @>                            Δ-38               {[«38""»]}
            <POP 22d54-22d56 StackAdj>                       Δ-4                {[«38""»]|[-4-]}
            <Lit 0x22d56 38>                                                    {[«38""»]|[$$    1 => Manual Configure [ Any port ]]}
            <Call 0x22d62 0x103e0>                                              {[«38""»]|[$$    1 => Manual Configure [ Any port ]]}
                WriteConsoleStringCrLf(str : String)
            <POP 22d64-22d68 StackAdj>                       Δ+42               {}
            <Blob 0x22d68 [38] @>                            Δ-38               {[«38""»]}
            <POP 22d74-22d76 StackAdj>                       Δ-4                {[«38""»]|[-4-]}
            <Lit 0x22d76 38>                                                    {[«38""»]|[$$    2 => Auto   Configure [ IOC port ]]}
            <Call 0x22d82 0x103e0>                                              {[«38""»]|[$$    2 => Auto   Configure [ IOC port ]]}
                WriteConsoleStringCrLf(str : String)
            <POP 22d84-22d85 StackAdj>                       Δ+42       ↓       {}
            <Blob 0x22d85 [76] @>                            Δ-76               {[«76""»]}
            <POP 22d96-22d98 StackAdj>                       Δ-4                {[«76""»]|[-4-]}
            <Lit 0x22d98 75>                                                    {[«76""»]|[$$    3 => Auto   Configure [ Environment port, CTS (hardware) flow control ]]}
            <Call 0x22da6 0x103e0>                                              {[«76""»]|[$$    3 => Auto   Configure [ Environment port, CTS (hardware) flow control ]]}
                WriteConsoleStringCrLf(str : String)
            <POP 22da8-22da9 StackAdj>                       Δ+80       ↓       {}
            <Blob 0x22da9 [70] @>                            Δ-70               {[«70""»]}
            <POP 22dba-22dbc StackAdj>                       Δ-4                {[«70""»]|[-4-]}
            <Lit 0x22dbc 69>                                                    {[«70""»]|[$$    4 => Auto   Configure [ Environment port, XON_XOFF flow control ]]}
            <Call 0x22dca 0x103e0>                                              {[«70""»]|[$$    4 => Auto   Configure [ Environment port, XON_XOFF flow control ]]}
                WriteConsoleStringCrLf(str : String)
            <POP 22dcc-22dcd StackAdj>                       Δ+74       ↓       {}
            <Blob 0x22dcd [16] @>                            Δ-16               {[«16""»]}
            <POP 22dde-22de0 StackAdj>                       Δ-8                {[«16""»]|[-8-]}
            <Lit 0x22de0 15>                                                    {[«16""»]|[-4-]|[$$Enter option :_]}
            <Const 0x22dee 0x0.4>                            Δ-4                {[«16""»]|[-4-]|[$$Enter option :_]|[##0]}
            <Const 0x22df2 0x5.4>                            Δ-4                {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[##5]}
            <Call 0x22df6 0x103ec>                                              {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[##5]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 22dfc-22dfe StackAdj>                       Δ+12               {[«16""»]|[-4-]}
            <MI 22dfe  MOVE.B  (A7+0x3),D0>                                     {[«16""»]|[-4-]}
            <MI 22e02  EXTB.W  D0>                                              {[«16""»]|[-4-]}
            <POP 0x22e04 LimitCheck 0x0 ≤ D0 ≤ 0x5>                             {[«16""»]|[-4-]}
            <POP 22e06-22e0a StackAdj>                       Δ+20               {}
            <MI 22e0a  MOVE.B  D0,D7>                                           {}
            <MI 22e0c  MOVE.B  D7,D0>                                           {}
            <MI 22e0e  EXTB.W  D0>                                              {}
            <MI 22e10  MOVE.W  D0,D1>                                           {}
            <POP 0x22e12 LimitCheck 0x0 ≤ D1 ≤ 0x5>                             {}
            <MI 22e18  ADD.W   D1,D1>                                           {}
            <MI 22e1a  SWITCH  D1.W>                                            {}
        <POP 22e2e-22e30 Naked>                              Σ0         →0x22e7e ←0x22d06
            <MI 22e2e  BRA     0x22e7e>                                         {}
        <POP 22e30-22e36 Naked>                              Σ0         →0x22e7e ←0x22d06
            <Call 0x22e30 0x21104>                                              {}
            <MI 22e34  BRA     0x22e7e>                                         {}
        <POP 22e36-22e3c Naked>                              Σ0         →0x22e7e ←0x22d06
            <Call 0x22e36 0x21542>                                              {}
            <MI 22e3a  BRA     0x22e7e>                                         {}
        <POP 22e3c-22e3e Naked>                              Σ0 Δ-2     ↓ ←0x22d06
            <MI 22e3c  CLR.B   -(A7)>                        Δ-2                {[#0]}
        <POP 22e3e-22e46 Naked>                              Σ-2 Δ+2    →0x22e7e ←0x22e46
            <Call 0x22e3e 0x21db6>                                              {[-2-]}
            <POP 22e42-22e44 StackAdj>                       Δ+2                {}
            <MI 22e44  BRA     0x22e7e>                                         {}
        <POP 22e46-22e4a Naked>                              Σ0 Δ-2     →0x22e3e ←0x22d06
            <Const 0x22e46 0x1.2>                            Δ-2                {[#1]}
            <MI 22e48  BRA     0x22e3e>                                         {[#1]}
        <POP 22e4a-22e78 Naked>                              Σ0 Δ-36    ↓ →0x22e7c ←0x22d06
            <Blob 0x22e4a [36] @>                            Δ-36               {[«36""»]}
            <POP 22e5a-22e5c StackAdj>                       Δ-6                {[«36""»]|[-6-]}
            <Lit 0x22e5c 35>                                                    {[«36""»]|[-2-]|[$$Unsupported function, are you sure_]}
            <POP 22e68-22e6a StackAdj>                       Δ-2                {[«36""»]|[-2-]|[$$Unsupported function, are you sure_]|[-2-]}
            <MI 22e6a  CLR.B   (A7)>                                            {[«36""»]|[-2-]|[$$Unsupported function, are you sure_]|[-2-]}
            <Call 0x22e6c 0x103f0>                                              {[«36""»]|[-2-]|[$$Unsupported function, are you sure_]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 22e72-22e74 StackAdj>                       Δ+6                {[«36""»]|[-2-]}
            <MI 22e74  TST.B   (A7)+>                        Δ+2                {[«36""»]}
            <MI 22e76  BEQ     0x22e7c>                                         {[«36""»]}
        <POP 22e78-22e7c Naked>                              Σ-36       ↓
            <Call 0x22e78 0x22598>                                              {[-36-]}
        <POP 22e7c-22e7e Naked>                              Σ-36 Δ+36  ↓ ←0x22e4a
            <POP 22e7c-22e7e StackAdj>                       Δ+36               {}
        <POP 22e7e-22e84 Naked>                              Σ0         ↓ →0x22d06 ←0x22e2e ←0x22e30 ←0x22e36 ←0x22e3e
            <MI 22e7e  TST.W   D0>                                              {}
            <MI 22e80  BNE     0x22d06>                                         {}
        <POP 22e84-22e92 Naked>                              Σ0         ↓
            <MI 22e84  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x22e86 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x22e8a 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 22e90-22e92 StackAdj>                       Δ+6                {}
        <POP 22e92-22e9a Epilogue>                           Σ0         

0x22e9a


@ 22e9a
START
    <POP 22e9a--0001 Body>                                              
        <POP 22e9a-22ea4 Prologue>                           Σ0         
        <POP 22ea4-22ea6 RegCacheLoad>                       Σ0         ↓
        <POP 22ea6-22ed8 Naked>                              Σ0         ↓ →0x22f32
            <Call 0x22ea6 0x10398>                                              {}
                FSCALL_10398
            <MI 22eac  CLR.B   0x23180>                                         {}
            <POP 22eb2-22eb4 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x22eb4 0x180.4>                          Δ-4                {[-2-]|[##384]}
            <Call 0x22eb8 0x10592>                                              {[-2-]|[##384]}
                ReadConfig(where : Long) : Word
            <POP 22ebe-22ec0 StackAdj>                       Δ+4                {[-2-]}
            <MI 22ec0  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <MI 22ec2  EXTW.L  D0>                                              {}
            <MI 22ec4  MOVE.L  D0,0x23182>                                      {}
            <MI 22eca  SUBI.L  #0x0000004d,D0>                                  {}
            <MI 22ed0  CMPI.L  #0x0000000b,D0>                                  {}
            <MI 22ed6  BHI     0x22f32>                                         {}
        <POP 22ed8-22ee2 Naked>                              Σ0         →0x22efa →0x22f32 →0x22f32 →0x22f32 →0x22f32 →0x22f32 →0x22f32 →0x22f32 →0x22f32 →0x22f32 →0x22f32 →0x22f2c
            <MI 22ed8  ADD.W   D0,D0>                                           {}
            <MI 22eda  SWITCH  D0.W>                                            {}
        <POP 22efa-22f2c Naked>                              Σ0         →0x22f5c ←0x22ed8
            <Blob 0x22efa [62] @>                            Δ-62               {[«62""»]}
            <POP 22f0c-22f0e StackAdj>                       Δ-4                {[«62""»]|[-4-]}
            <Lit 0x22f0e 61>                                                    {[«62""»]|[$$NOVRAM indicates modem attached, run INITIOA to change to PAD]}
            <Call 0x22f20 0x103e0>                                              {[«62""»]|[$$NOVRAM indicates modem attached, run INITIOA to change to PAD]}
                WriteConsoleStringCrLf(str : String)
            <POP 22f26-22f2a StackAdj>                       Δ+66               {}
            <MI 22f2a  BRA     0x22f5c>                                         {}
        <POP 22f2c-22f32 Naked>                              Σ0         →0x22f6c ←0x22ed8
            <Call 0x22f2c 0x22cda>                                              {}
            <MI 22f30  BRA     0x22f6c>                                         {}
        <POP 22f32-22f5c Naked>                              Σ0         ↓ ←0x22ea6 ←0x22ed8 ←0x22ed8 ←0x22ed8 ←0x22ed8 ←0x22ed8 ←0x22ed8 ←0x22ed8 ←0x22ed8 ←0x22ed8 ←0x22ed8
            <Blob 0x22f32 [46] @>                            Δ-46               {[«46""»]}
            <POP 22f3e-22f40 StackAdj>                       Δ-4                {[«46""»]|[-4-]}
            <Lit 0x22f40 46>                                                    {[«46""»]|[$$NOVRAM is not properly configured, run INITIOA]}
            <Call 0x22f52 0x103e0>                                              {[«46""»]|[$$NOVRAM is not properly configured, run INITIOA]}
                WriteConsoleStringCrLf(str : String)
            <POP 22f58-22f5c StackAdj>                       Δ+50               {}
        <POP 22f5c-22f6c Naked>                              Σ0         ↓ ←0x22efa
            <Const 0x22f5c 0x2.2>                            Δ-2                {[#2]}
            <Const 0x22f60 0x1.4>                            Δ-4                {[#2]|[##1]}
            <Call 0x22f64 0x103b8>                                              {[#2]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 22f6a-22f6c StackAdj>                       Δ+6                {}
        <POP 22f6c-22f72 Naked>                              Σ0         ←0x22f2c
            <Call 0x22f6c 0x10284>                                              {}
                ?exit

0x22f80


@ 22f80
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 22f80-22fe8 Body>                                              
        <POP 22f80-22f96 Prologue>                           Σ0         ↓
        <POP 22f96-22fe0 Naked>                              Σ0         ↓
            <Blob 0x22f96 [14] @>                            Δ-14               {[«14""»]}
            <Const 0x22fa2 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 22fa6-22fa8 StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x22fa8 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 22fba-22fbc StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22fbc  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22fc0  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22fc2  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22fc4  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x22fc6 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 22fcc-22fce StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x22fce 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 22fd4-22fd6 StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x22fd6 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 22fdc-22fe0 StackAdj>                       Δ+20               {}
        <POP 22fe0-22fe8 Epilogue>                           Σ0         

0x2303c


@ 2303c
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 2303c-23178 Body>                                              
        <POP 2303c-23052 Prologue>                           Σ0         ↓
        <POP 23052-23068 RegCacheLoad>                       Σ0         ↓
        <POP 23068-230c8 Naked>                              Σ0         ↓ →0x23110
            <Call 0x23068 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x2306e [18] @>                            Δ-18               {[«18""»]}
            <POP 2307a-2307c StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x2307c 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x23088 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 2308a-2308b StackAdj>                       Δ+22       ↓       {}
            <Blob 0x2308b [14] @>                            Δ-14               {[«14""»]}
            <POP 2309a-2309c StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x2309c 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 230a6-230a8 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 230a8  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x230ac 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 230b2-230b4 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x230b4 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 230ba-230bc StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x230bc 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 230be-230c0 StackAdj>                       Δ+18               {}
            <MI 230c0  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 230c4  CMPA.W  #0x01,A0>                                        {}
            <MI 230c6  BEQ     0x23110>                                         {}
        <POP 230c8-23110 Naked>                              Σ0         ↓
            <Blob 0x230c8 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x230d8 [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 230e8-230ea StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x230ea 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 230f4-230f6 StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x230f6>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x230f6 12>                      Δ-4        
                <Const 0x230fa 0x1.2>                        Δ-2        
                <Const 0x230fc 0x1e.2>                       Δ-2        
                <Call 0x230fe 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 23100-23102 StackAdj>                   Δ+8        
            <Call 0x23102 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 23108-2310a StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x2310a 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 2310c-23110 StackAdj>                       Δ+48               {}
        <POP 23110-23170 Naked>                              Σ0         ↓ ←0x23068
            <Blob 0x23110 [14] @>                            Δ-14               {[«14""»]}
            <POP 23120-23122 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x23122 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 2312c-2312e StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 2312e  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x23132 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 23138-2313a StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x2313a 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 23140-23142 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x23142 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 23144-23145 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x23145 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x23154 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 23158-2315a StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x2315a 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x23168 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 2316e-23170 StackAdj>                       Δ+30               {}
        <POP 23170-23178 Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.0b4dd522fbcf4e6a
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 2e 9a              |  .     |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 39 9c              |  9     |		.PTR	0x2399c
00020010					code.end:
00020010 00 02 31 78              |  1x    |		.PTR	0x23178
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 2f 80              |  /     |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 30 3c              |  0<    |		.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 4e 4f 56 52 41 4d 20 69  |NOVRAM i|		.TXT	'NOVRAM indicates modem attached, run INITIOA to change to PAD '
00020148 4e 4f 56 52 41 4d 20 69  |NOVRAM i|		.TXT	'NOVRAM is not properly configured, run INITIOA'
00020176 44 6f                    |Do      |		.XXX[0x2]
00020178 20 79 6f 75 20 77 69 73  | you wis|		.XXX[0x20]
00020180 68 20 74 6f 20 72 75 6e  |h to run|
00020188 20 69 6e 20 56 45 52 42  | in VERB|
00020190 4f 53 45 20 6d 6f 64 65  |OSE mode|
00020198 5f 20                    |_       |		.XXX[0x2]
0002019a 44 69 72 65 63 74 20 63  |Direct c|		.TXT	'Direct communication to PAD established, use <CNTL>C to exit'
000201d6 55 6e 6b 6e 6f 77 6e 20  |Unknown |		.TXT	'Unknown status retruned from console buffer '
00020202 55 6e 6b 6e 6f 77 6e 20  |Unknown |		.TXT	'Unknown status retruned from pad buffer '
0002022a 54 68 65 20 50 41 44 20  |The PAD |		.TXT	'The PAD does not seem to be working, run TESTPAD'
0002025a 41 64 64 20 50 6f 72 74  |Add Port|		.TXT	'Add Port Group failed, manually delete the group and remove the '
0002029a 70 6f 72 74 20 66 72 6f  |port fro|		.TXT	'port from any group to which it is attached. [use D P G and R P G]'
000202dc 53 20 4e 20 43 20 66 61  |S N C fa|		.TXT	'S N C failed. '
000202ea 43 6f 6c 64 20 53 74 61  |Cold Sta|		.TXT	'Cold Start (manual reset button in back of the PAD) the PAD and '
0002032a 72 65 74 72 79 20 63 6f  |retry co|		.TXT	'retry configurating. If the problem persists, attempt manual'
00020366 63 6f 6e 66 69 67 75 72  |configur|		.TXT	'configuration or replace the PAD'
00020386 53 20 41 20 50 20 66 61  |S A P fa|		.TXT	'S A P failed. '
00020394 53 20 4c 20 50 20 66 61  |S L P fa|		.TXT	'S L P failed. '
000203a2 53 20 55 20 43 20 66 61  |S U C fa|		.TXT	'S U C failed. '
000203b0 46 69 72 73 74 20 41 20  |First A |		.TXT	'First A X T failed. '
000203c4 53 65 63 6f 6e 64 20 41  |Second A|		.TXT	'Second A X T failed.'
000203d8 57 20 53 20 66 61 69 6c  |W S fail|		.TXT	'W S failed. '
000203e4 45 6e 74 65 72 20 74 68  |Enter th|		.TXT	'Enter the port number you wish to configure [2..5] :_ '
0002041a 44 6f 20 79 6f 75 20 77  |Do you w|		.TXT	'Do you wish to run in VERBOSE mode_ '
0002043e 45 6e 74 65 72 20 74 68  |Enter th|		.TXT	'Enter the DTE address identification (ID) for the IOC port :_ '
0002047c 45 6e 74 65 72 20 4c 45  |Enter LE|		.TXT	'Enter LEVEL 3 packet size [64..256] :_'
000204a2 20 50                    | P      |		.TXT	' P'
000204a4 4f 3a                    |O:      |		.TXT	'O:'
000204a6 32 5f                    |2_      |		.TXT	'2_'
000204a8 20 47 52 3a 50 32 20 20  | GR:P2  |		.TXT	' GR:P2  '
000204b0 20 50                    | P      |		.TXT	' P'
000204b2 4f 3a                    |O:      |		.TXT	'O:'
000204b4 33 5f                    |3_      |		.TXT	'3_'
000204b6 20 47 52 3a 50 33 20 20  | GR:P3  |		.TXT	' GR:P3  '
000204be 20 50                    | P      |		.TXT	' P'
000204c0 4f 3a                    |O:      |		.TXT	'O:'
000204c2 34 5f                    |4_      |		.TXT	'4_'
000204c4 20 47 52 3a 50 34 20 20  | GR:P4  |		.TXT	' GR:P4  '
000204cc 20 50                    | P      |		.TXT	' P'
000204ce 4f 3a                    |O:      |		.TXT	'O:'
000204d0 35 5f                    |5_      |		.TXT	'5_'
000204d2 20 47 52 3a 50 35 20 20  | GR:P5  |		.TXT	' GR:P5  '
000204da 41 20 50 20 47 20 41 44  |A P G AD|		.TXT	'A P G AD: '
000204e4 50 41 3a 58 59 58 59 58  |PA:XYXYX|		.TXT	'PA:XYXYXY '
000204ee 53 20 4e 20 43 20 43 48  |S N C CH|		.TXT	'S N C CH:1 NS:'
000204fc 20 53 53 3a              | SS:    |		.TXT	' SS:'
00020500 20 46 57 3a 37 20 50 57  | FW:7 PW|		.TXT	' FW:7 PW:2 PA:XYXYXY'
00020514 53 20 41 20 50 20 43 4f  |S A P CO|		.TXT	'S A P CO:B DC:N DO:N FS:'
0002052c 20 49 44 3a 41 32 20 50  | ID:A2 P|		.TXT	' ID:A2 PC:N '
00020538 54 50 3a 59 20 55 53 3a  |TP:Y US:|		.TXT	'TP:Y US:N PA:XYXYXY '
0002054c 53 20 4c 20 50 20 4c 45  |S L P LE|		.TXT	'S L P LE:8'
00020556 50 52 3a 4e 20 53 54 3a  |PR:N ST:|		.TXT	'PR:N ST:1 SP:9600 UC:Y PA:XYXYXY'
00020576 53 20 55 20 43 20 58 41  |S U C XA|		.TXT	'S U C XA:Y XD:1 '
00020586 50 41 3a 58 59 58 59 58  |PA:XYXYX|		.TXT	'PA:XYXYXY '
00020590 41 20 58 20 54 20 58 43  |A X T XC|		.TXT	'A X T XC:2 XD:1 XP:1,0,2,0,3,0,4,2,5,0,6,1,7,8, '
000205c0 38 2c 30 2c 39 2c 30 2c  |8,0,9,0,|		.TXT	'8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY'
000205ea 41 20 58 20 54 20 53 45  |A X T SE|		.TXT	'A X T SE:210,0,5 XC:2 XD:2 XP:1,0,2,0,3,0,4,2,5,0,'
0002061c 36 2c 31 2c 37 2c 38 2c  |6,1,7,8,|		.TXT	'6,1,7,8,8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY'
0002064e 57 20 53 20 50 41 3a 58  |W S PA:X|		.TXT	'W S PA:XYXYXY '
0002065c 54 68 65 20 50 41 44 20  |The PAD |		.TXT	'The PAD has been configured!'
00020678 54 68 65 20 50 41 44 20  |The PAD |		.TXT	'The PAD does not seem to be working, run TESTPAD'
000206a8 41 64 64 20 50 6f 72 74  |Add Port|		.TXT	'Add Port Group failed, manually delete the group and remove the '
000206e8 70 6f 72 74 20 66 72 6f  |port fro|		.TXT	'port from any group to which it is attached. [use D P G and R P G]'
0002072a 53 45 54 20 66 61 69 6c  |SET fail|		.TXT	'SET failed. '
00020736 43 6f 6c 64 20 53 74 61  |Cold Sta|		.TXT	'Cold Start (manual reset button in back of the PAD) the PAD and '
00020776 72 65 74 72 79 20 63 6f  |retry co|		.TXT	'retry configurating. If the problem persists, attempt manual'
000207b2 63 6f 6e 66 69 67 75 72  |configur|		.TXT	'configuration or replace the PAD'
000207d2 53 20 41 20 50 20 66 61  |S A P fa|		.TXT	'S A P failed. '
000207e0 53 20 4c 20 50 20 66 61  |S L P fa|		.TXT	'S L P failed. '
000207ee 53 20 4e 20 43 20 66 61  |S N C fa|		.TXT	'S N C failed. '
000207fc 57 20 53 20 66 61 69 6c  |W S fail|		.TXT	'W S failed. '
00020808 45 6e 74 65 72 20 74 68  |Enter th|		.TXT	'Enter the port number you wish to configure [2..5] :_ '
0002083e 44 6f 20 79 6f 75 20 77  |Do you w|		.TXT	'Do you wish to run in VERBOSE mode_ '
00020862 45 6e 74 65 72 20 74 68  |Enter th|		.TXT	'Enter the DTE address identification (ID) for the ENVIRONMENT port :_ '
000208a8 45 6e 74 65 72 20 4c 45  |Enter LE|		.TXT	'Enter LEVEL 3 packet size [64..256] :_'
000208ce 20 50                    | P      |		.TXT	' P'
000208d0 4f 3a                    |O:      |		.TXT	'O:'
000208d2 32 5f                    |2_      |		.TXT	'2_'
000208d4 20 47 52 3a 50 32 20 20  | GR:P2  |		.TXT	' GR:P2  '
000208dc 20 50                    | P      |		.TXT	' P'
000208de 4f 3a                    |O:      |		.TXT	'O:'
000208e0 33 5f                    |3_      |		.TXT	'3_'
000208e2 20 47 52 3a 50 33 20 20  | GR:P3  |		.TXT	' GR:P3  '
000208ea 20 50                    | P      |		.TXT	' P'
000208ec 4f 3a                    |O:      |		.TXT	'O:'
000208ee 34 5f                    |4_      |		.TXT	'4_'
000208f0 20 47 52 3a 50 34 20 20  | GR:P4  |		.TXT	' GR:P4  '
000208f8 20 50                    | P      |		.TXT	' P'
000208fa 4f 3a                    |O:      |		.TXT	'O:'
000208fc 35 5f                    |5_      |		.TXT	'5_'
000208fe 20 47 52 3a 50 35 20 20  | GR:P5  |		.TXT	' GR:P5  '
00020906 53 20 41 20 50 20 50 43  |S A P PC|		.TXT	'S A P PC:Y ID:D0 PA:XYXYXY'
00020920 53 45 54 20 31 3a 30 2c  |SET 1:0,|		.TXT	'SET 1:0,2:0,3:0,4:2,5:0,6:0,7:4,15:0'
00020944 53 45 54 20 31 3a 30 2c  |SET 1:0,|		.TXT	'SET 1:0,2:0,3:0,4:2,5:1,6:0,7:4,15:0'
00020968 53 20 41 20 50 20 50 43  |S A P PC|		.TXT	'S A P PC:N ID:A2 PA:XYXYXY'
00020982 53 20 41 20 50 20 55 53  |S A P US|		.TXT	'S A P US:M'
0002098c 53 20 41 20 50 20 55 53  |S A P US|		.TXT	'S A P US:N'
00020996 20 46 53 3a              | FS:    |		.TXT	' FS:'
0002099a 49 44 3a 44 30 20 43 4f  |ID:D0 CO|		.TXT	'ID:D0 CO:Y DC:C PA:XYXYXY '
000209b4 53 20 4c 20 50 20        |S L P   |		.TXT	'S L P '
000209ba 53 50 3a 39 36 30 30 20  |SP:9600 |		.TXT	'SP:9600 PR:N LE:8 ST:1 PA:XYXYXY'
000209da 53 20 4e 20 43 20 43 48  |S N C CH|		.TXT	'S N C CH:1 NS:'
000209e8 50 41 3a 58 59 58 59 58  |PA:XYXYX|		.TXT	'PA:XYXYXY SS: '
000209f6 41 20 50 20 47 20        |A P G   |		.TXT	'A P G '
000209fc 20 41 44 3a              | AD:    |		.TXT	' AD:'
00020a00 20 50 41 3a 58 59 58 59  | PA:XYXY|		.TXT	' PA:XYXYXY'
00020a0a 57 20 53 20 50 41 3a 58  |W S PA:X|		.TXT	'W S PA:XYXYXY '
00020a18 54 68 65 20 45 6e 76 69  |The Envi|		.TXT	'The Environment Port has been configured! '
00020a42 54 68 65 20 50 41 44 20  |The PAD |		.TXT	'The PAD does not seem to be working, run TESTPAD'
00020a72 41 64 64 20 50 6f 72 74  |Add Port|		.TXT	'Add Port Group failed, manually delete the group and remove the '
00020ab2 70 6f 72 74 20 66 72 6f  |port fro|		.TXT	'port from any group to which it is attached. [use D P G and R P G]'
00020af4 53 20 4e 20 43 20 66 61  |S N C fa|		.TXT	'S N C failed. '
00020b02 43 6f 6c 64 20 53 74 61  |Cold Sta|		.TXT	'Cold Start (manual reset button in back of the PAD) the PAD and '
00020b42 72 65 74 72 79 20 63 6f  |retry co|		.TXT	'retry configurating. If the problem persists, attempt manual'
00020b7e 63 6f 6e 66 69 67 75 72  |configur|		.TXT	'configuration or replace the PAD'
00020b9e 53 20 41 20 50 20 66 61  |S A P fa|		.TXT	'S A P failed. '
00020bac 53 20 4c 20 50 20 66 61  |S L P fa|		.TXT	'S L P failed. '
00020bba 53 20 55 20 43 20 66 61  |S U C fa|		.TXT	'S U C failed. '
00020bc8 41 20 58 20 54 20 66 61  |A X T fa|		.TXT	'A X T failed. '
00020bd6 57 20 53 20 66 61 69 6c  |W S fail|		.TXT	'W S failed. '
00020be2 45 6e 74 65 72 20 74 68  |Enter th|		.TXT	'Enter the port number you wish to configure [2..5] :_ '
00020c18 44 6f 20 79 6f 75 20 77  |Do you w|		.TXT	'Do you wish to run in VERBOSE mode_ '
00020c3c 45 6e 74 65 72 20 74 68  |Enter th|		.TXT	'Enter the DTE address identification (ID) for the IOC port :_ '
00020c7a 20 50                    | P      |		.TXT	' P'
00020c7c 4f 3a                    |O:      |		.TXT	'O:'
00020c7e 32 5f                    |2_      |		.TXT	'2_'
00020c80 20 47 52 3a 50 32 20 20  | GR:P2  |		.TXT	' GR:P2  '
00020c88 20 50                    | P      |		.TXT	' P'
00020c8a 4f 3a                    |O:      |		.TXT	'O:'
00020c8c 33 5f                    |3_      |		.TXT	'3_'
00020c8e 20 47 52 3a 50 33 20 20  | GR:P3  |		.TXT	' GR:P3  '
00020c96 20 50                    | P      |		.TXT	' P'
00020c98 4f 3a                    |O:      |		.TXT	'O:'
00020c9a 34 5f                    |4_      |		.TXT	'4_'
00020c9c 20 47 52 3a 50 34 20 20  | GR:P4  |		.TXT	' GR:P4  '
00020ca4 20 50                    | P      |		.TXT	' P'
00020ca6 4f 3a                    |O:      |		.TXT	'O:'
00020ca8 35 5f                    |5_      |		.TXT	'5_'
00020caa 20 47 52 3a 50 35 20 20  | GR:P5  |		.TXT	' GR:P5  '
00020cb2 41 20 50 20 47 20 41 44  |A P G AD|		.TXT	'A P G AD: '
00020cbc 50 41 3a 58 59 58 59 58  |PA:XYXYX|		.TXT	'PA:XYXYXY '
00020cc6 53 20 4e 20 43 20 43 48  |S N C CH|		.TXT	'S N C CH:1 NS:128 SS:128 FW:7 PW:2 PA:XYXYXY'
00020cf2 53 20 41 20 50 20 43 4f  |S A P CO|		.TXT	'S A P CO:B DC:N DO:N FS:128 ID:A2 PC:N'
00020d18 54 50 3a 59 20 55 53 3a  |TP:Y US:|		.TXT	'TP:Y US:N PA:XYXYXY '
00020d2c 53 20 4c 20 50 20 4c 45  |S L P LE|		.TXT	'S L P LE:8'
00020d36 50 52 3a 4e 20 53 54 3a  |PR:N ST:|		.TXT	'PR:N ST:1 SP:9600 UC:Y PA:XYXYXY'
00020d56 53 20 55 20 43 20 58 41  |S U C XA|		.TXT	'S U C XA:Y XD:3 '
00020d66 50 41 3a 58 59 58 59 58  |PA:XYXYX|		.TXT	'PA:XYXYXY '
00020d70 41 20 58 20 54 20 58 43  |A X T XC|		.TXT	'A X T XC:2 XD:3 XP:1,1,2,0,3,0,4,2,5,0,6,1,7,4, '
00020da0 38 2c 30 2c 39 2c 30 2c  |8,0,9,0,|		.TXT	'8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY'
00020dca 57 20 53 20 50 41 3a 58  |W S PA:X|		.TXT	'W S PA:XYXYXY '
00020dd8 54 68 65 20 50 41 44 20  |The PAD |		.TXT	'The PAD has been configured!'
00020df4 4f 70 74 69              |Opti    |		.TXT	'Opti'
00020df8 6f 6e 73 20              |ons     |		.TXT	'ons '
00020dfc 61 72 65 3a              |are:    |		.TXT	'are:'
00020e00 20 20 20 20 30 20 3d 3e  |    0 =>|		.TXT	'    0 => Exit '
00020e0e 20 20 20 20 31 20 3d 3e  |    1 =>|		.TXT	'    1 => Manual Configure [ Any port ]'
00020e34 20 20 20 20 32 20 3d 3e  |    2 =>|		.TXT	'    2 => Auto   Configure [ IOC port ]'
00020e5a 20 20 20 20 33 20 3d 3e  |    3 =>|		.TXT	'    3 => Auto   Configure [ Environment port, CTS (hardware) flow control ] '
00020ea6 20 20 20 20 34 20 3d 3e  |    4 =>|		.TXT	'    4 => Auto   Configure [ Environment port, XON_XOFF flow control ] '
00020eec 20 20 20 20              |        |		.XXX[0x4]
00020ef0 35 20 3d 3e 20 41 75 74  |5 => Aut|		.XXX[0x28]
00020ef8 6f 20 20 20 43 6f 6e 66  |o   Conf|
00020f00 69 67 75 72 65 20 5b 20  |igure [ |
00020f08 49 4f 43 20 72 65 6d 6f  |IOC remo|
00020f10 74 65 20 63 6f 6e 73 6f  |te conso|
00020f18 6c 65 20 5d              |le ]    |		.XXX[0x4]
00020f1c 45 6e 74 65 72 20 6f 70  |Enter op|		.TXT	'Enter option :_ '
00020f2c 55 6e 73 75 70 70 6f 72  |Unsuppor|		.TXT	'Unsupported function, are you sure_ '
00020f50 ; --------------------------------------------------------------------------------------
00020f50 ; OMSI PASCAL Function
00020f50 ;    <LVAR  0x008 @ 4(r)>
00020f50 ; --------------------------------------------------------------------------------------
00020f50 4e 56 ff f2              |NV      |		LINK.W	A6,#0xfff2
00020f54 bf d5                    |        |		CMPA.L	(A5),A7
00020f56 62 06                    |b       |		BHI	0x20f5e
00020f58 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020f5c 4e 76                    |Nv      |		TRAPV
00020f5e de fc 00 0e              |        |		ADDA.W	#0xe,A7
00020f62 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00020f66 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
00020f6a 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00020f6c 1f 3c 00 0a              | <      |		MOVE.B	#0x0a,-(A7)
00020f70 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00020f76 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020f78 2e 90                    |.       |		MOVE.L	(A0),(A7)
00020f7a 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
00020f7e 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00020f84 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f86 3e bc 00 01              |>       |		MOVE.W	#0x1,(A7)
00020f8a 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00020f8c 4e b9 00 01 02 0a        |N       |		JSR	KC05_Write_Console_String(port : Word ; str : String)
00020f92 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020f94 48 50                    |HP      |		PEA.L	(A0)
00020f96 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020f9c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020f9e 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00020fa2 4e 5e                    |N^      |		UNLK	A6
00020fa4 4e 75                    |Nu      |		RTS
00020fa6 ; --------------------------------------------------------------------------------------
00020fa6 ; OMSI PASCAL Function
00020fa6 ;    <LVAR -0x004 @ 4(r)>
00020fa6 ; --------------------------------------------------------------------------------------
00020fa6 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
00020faa bf d5                    |        |		CMPA.L	(A5),A7
00020fac 62 06                    |b       |		BHI	0x20fb4
00020fae 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020fb2 4e 76                    |Nv      |		TRAPV
00020fb4 de fc 00 08              |        |		ADDA.W	#0x8,A7
00020fb8 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020fbc 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00020fc2 2e ae ff fc              |.       |		MOVE.L	(A6-0x4),(A7)
00020fc6 4e ba ff 88              |N       |		JSR	0x20f50
00020fca 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020fcc 4e 5e                    |N^      |		UNLK	A6
00020fce 4e 75                    |Nu      |		RTS
00020fd0 ; --------------------------------------------------------------------------------------
00020fd0 ; OMSI PASCAL Function
00020fd0 ;    <LVAR  0x008 @ 4(r)>
00020fd0 ; --------------------------------------------------------------------------------------
00020fd0 4e 56 ff f2              |NV      |		LINK.W	A6,#0xfff2
00020fd4 bf d5                    |        |		CMPA.L	(A5),A7
00020fd6 62 06                    |b       |		BHI	0x20fde
00020fd8 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020fdc 4e 76                    |Nv      |		TRAPV
00020fde de fc 00 0e              |        |		ADDA.W	#0xe,A7
00020fe2 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00020fe6 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
00020fea 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00020fec 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
00020ff0 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00020ff6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020ff8 3e bc 00 02              |>       |		MOVE.W	#0x2,(A7)
00020ffc 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00020ffe 4e b9 00 01 02 0a        |N       |		JSR	KC05_Write_Console_String(port : Word ; str : String)
00021004 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021006 48 50                    |HP      |		PEA.L	(A0)
00021008 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002100e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021010 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00021014 4e 5e                    |N^      |		UNLK	A6
00021016 4e 75                    |Nu      |		RTS
00021018 ; --------------------------------------------------------------------------------------
00021018 ; OMSI PASCAL Function
00021018 ;    <LVAR  0x00c 2(w)>
00021018 ;    <LVAR  0x008 4(r)>
00021018 ; --------------------------------------------------------------------------------------
00021018 4e 56 ff f2              |NV      |		LINK.W	A6,#0xfff2		; Spelunked
0002101c bf d5                    |        |		CMPA.L	(A5),A7
0002101e 62 06                    |b       |		BHI	0x21026
00021020 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021024 4e 76                    |Nv      |		TRAPV
00021026 de fc 00 0e              |        |		ADDA.W	#0xe,A7
0002102a 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
0002102e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021030 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021034 4e b9 00 01 05 92        |N       |		JSR	ReadConfig(where : Long) : Word
0002103a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002103c 30 1f                    |0       |		MOVE.W	(A7)+,D0
0002103e 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00021042 3d 40 00 0c              |=@      |		MOVE.W	D0,(A6+0xc)
00021046 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
0002104a 4e 5e                    |N^      |		UNLK	A6
0002104c 4e 75                    |Nu      |		RTS
0002104e ; --------------------------------------------------------------------------------------
0002104e ; OMSI PASCAL Function
0002104e ;    <LVAR -0x004 @ 1(r)>
0002104e ; --------------------------------------------------------------------------------------
0002104e 4e 56 ff c6              |NV      |		LINK.W	A6,#0xffc6
00021052 bf d5                    |        |		CMPA.L	(A5),A7
00021054 62 06                    |b       |		BHI	0x2105c
00021056 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002105a 4e 76                    |Nv      |		TRAPV
0002105c de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00021060 48 e7 c3 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D1+D0,-(A7)
00021064 43 f9 00 02 39 86        |C   9   |		LEA.L	0x23986,A1
0002106a 45 f9 00 02 31 78        |E   1x  |		LEA.L	0x23178,A2
00021070 47 f9 00 02 31 80        |G   1   |		LEA.L	0x23180,A3
00021076 72 02                    |r       |		MOVEQ.L	#0x02,D1
00021078 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002107a 42 91                    |B       |		CLR.L	(A1)
0002107c 0c 87 00 00 00 14        |        |		CMPI.L	#0x00000014,D7
00021082 67 70                    |gp      |		BEQ	0x210f4
00021084 7c 01                    ||       |		MOVEQ.L	#0x01,D6
00021086 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021088 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
0002108c 4e b9 00 01 02 12        |N       |		JSR	KC09_PortStatus(Port : Word; VAR b: Byte)
00021092 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021094 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
00021098 0c 00 00 01              |        |		CMPI.B	#0x01,D0
0002109c 66 48                    |fH      |		BNE	0x210e6
0002109e 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210a0 20 11                    |        |		MOVE.L	(A1),D0
000210a2 0c 80 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D0
000210a8 63 02                    |c       |		BLS	0x210ac
000210aa 4e 4f                    |NO      |		TRAP	#15
000210ac e3 80                    |        |		ASL.L	#0x1,D0
000210ae 20 4a                    | J      |		MOVEA.L	A2,A0
000210b0 48 70 08 0e              |Hp      |		PEA.L	(A0+D0.L+#0xe)
000210b4 4e b9 00 01 02 0e        |N       |		JSR	KC07_PortGetChar(port : Word ; VAR ret : Word)
000210ba 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000210bc 4a 13                    |J       |		TST.B	(A3)
000210be 67 22                    |g"      |		BEQ	0x210e2
000210c0 20 11                    |        |		MOVE.L	(A1),D0
000210c2 0c 80 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D0
000210c8 63 02                    |c       |		BLS	0x210cc
000210ca 4e 4f                    |NO      |		TRAP	#15
000210cc e3 80                    |        |		ASL.L	#0x1,D0
000210ce 20 4a                    | J      |		MOVEA.L	A2,A0
000210d0 30 30 08 0e              |00      |		MOVE.W	(A0+D0.L+#0xe),D0
000210d4 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
000210d8 1f 00                    |        |		MOVE.B	D0,-(A7)
000210da 4e b9 00 01 03 d0        |N       |		JSR	WriteConsoleChar(chr : char)
000210e0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000210e2 7e 00                    |~       |		MOVEQ.L	#0x00,D7
000210e4 52 91                    |R       |		ADDQ.L	#0x1,(A1)
000210e6 52 86                    |R       |		ADDQ.L	#0x1,D6
000210e8 0c 86 00 00 03 e8        |        |		CMPI.L	#0x000003e8,D6
000210ee 6f 96                    |o       |		BLE	0x21086
000210f0 52 87                    |R       |		ADDQ.L	#0x1,D7
000210f2 60 88                    |`       |		BRA	0x2107c
000210f4 4a 13                    |J       |		TST.B	(A3)
000210f6 67 04                    |g       |		BEQ	0x210fc
000210f8 4e ba fe ac              |N       |		JSR	0x20fa6
000210fc 4c df 0f c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0+A1+A2+A3
00021100 4e 5e                    |N^      |		UNLK	A6
00021102 4e 75                    |Nu      |		RTS
00021104 ; --------------------------------------------------------------------------------------
00021104 ; OMSI PASCAL Function
00021104 ;    <LVAR -0x006 @ 2(r)>
00021104 ;    <LVAR -0x008 @ 1(r)>
00021104 ; --------------------------------------------------------------------------------------
00021104 4e 56 ff 84              |NV      |		LINK.W	A6,#0xff84
00021108 bf d5                    |        |		CMPA.L	(A5),A7
0002110a 62 06                    |b       |		BHI	0x21112
0002110c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021110 4e 76                    |Nv      |		TRAPV
00021112 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00021116 48 e7 e3 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D2+D1+D0,-(A7)
0002111a 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
0002111e 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
00021122 49 f9 00 01 02 c4        |I       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00021128 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002112a 74 02                    |t       |		MOVEQ.L	#0x02,D2
0002112c 42 39 00 02 31 80        |B9  1   |		CLR.B	0x23180
00021132 4e b9 00 01 02 16        |N       |		JSR	KC0b
00021138 4e ba ff 14              |N       |		JSR	0x2104e
0002113c 41 fa f0 98              |A       |		LEA.L	0x201d6,A0
00021140 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021142 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021144 51 c8 ff fc              |Q       |		DBF	D0,0x21142
00021148 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002114a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002114e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021150 3f 3c 00 3c              |?< <    |		MOVE.W	#0x3c,-(A7)
00021154 4e 94                    |N       |		JSR	(A4)
00021156 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021158 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002115e de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00021162 3e 82                    |>       |		MOVE.W	D2,(A7)
00021164 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
00021168 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
0002116e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021170 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00021172 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021174 48 52                    |HR      |		PEA.L	(A2)
00021176 4e b9 00 01 02 12        |N       |		JSR	KC09_PortStatus(Port : Word; VAR b: Byte)
0002117c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002117e 10 12                    |        |		MOVE.B	(A2),D0
00021180 b0 01                    |        |		CMP.B	D1,D0
00021182 66 30                    |f0      |		BNE	0x211b4
00021184 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021186 48 53                    |HS      |		PEA.L	(A3)
00021188 4e b9 00 01 02 0e        |N       |		JSR	KC07_PortGetChar(port : Word ; VAR ret : Word)
0002118e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021190 30 13                    |0       |		MOVE.W	(A3),D0
00021192 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
00021196 1e 00                    |        |		MOVE.B	D0,D7
00021198 0c 07 00 03              |        |		CMPI.B	#0x03,D7
0002119c 66 04                    |f       |		BNE	0x211a2
0002119e 7c 01                    ||       |		MOVEQ.L	#0x01,D6
000211a0 60 10                    |`       |		BRA	0x211b2
000211a2 3f 02                    |?       |		MOVE.W	D2,-(A7)
000211a4 42 80                    |B       |		CLR.L	D0
000211a6 10 07                    |        |		MOVE.B	D7,D0
000211a8 3f 00                    |?       |		MOVE.W	D0,-(A7)
000211aa 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
000211b0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000211b2 60 3e                    |`>      |		BRA	0x211f2
000211b4 4a 00                    |J       |		TST.B	D0
000211b6 67 3a                    |g:      |		BEQ	0x211f2
000211b8 9e fc 00 2c              |   ,    |		SUBA.W	#0x2c,A7
000211bc 20 4f                    | O      |		MOVEA.L	A7,A0
000211be 43 fa f0 16              |C       |		LEA.L	0x201d6,A1
000211c2 70 2a                    |p*      |		MOVEQ.L	#0x2a,D0
000211c4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000211c6 51 c8 ff fc              |Q       |		DBF	D0,0x211c4
000211ca 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000211cc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000211d0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000211d2 3f 3c 00 2b              |?< +    |		MOVE.W	#0x2b,-(A7)
000211d6 4e 94                    |N       |		JSR	(A4)
000211d8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211da 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000211e0 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
000211e4 1e 82                    |        |		MOVE.B	D2,(A7)
000211e6 48 78 00 01              |Hx      |		PEA.L	0x1
000211ea 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000211f0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000211f2 3f 02                    |?       |		MOVE.W	D2,-(A7)
000211f4 48 52                    |HR      |		PEA.L	(A2)
000211f6 4e b9 00 01 02 12        |N       |		JSR	KC09_PortStatus(Port : Word; VAR b: Byte)
000211fc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000211fe 10 12                    |        |		MOVE.B	(A2),D0
00021200 b0 01                    |        |		CMP.B	D1,D0
00021202 66 26                    |f&      |		BNE	0x2122a
00021204 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021206 48 53                    |HS      |		PEA.L	(A3)
00021208 4e b9 00 01 02 0e        |N       |		JSR	KC07_PortGetChar(port : Word ; VAR ret : Word)
0002120e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021210 30 13                    |0       |		MOVE.W	(A3),D0
00021212 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
00021216 1e 00                    |        |		MOVE.B	D0,D7
00021218 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002121a 42 80                    |B       |		CLR.L	D0
0002121c 10 07                    |        |		MOVE.B	D7,D0
0002121e 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021220 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00021226 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021228 60 3e                    |`>      |		BRA	0x21268
0002122a 4a 00                    |J       |		TST.B	D0
0002122c 67 3a                    |g:      |		BEQ	0x21268
0002122e 9e fc 00 28              |   (    |		SUBA.W	#0x28,A7
00021232 20 4f                    | O      |		MOVEA.L	A7,A0
00021234 43 fa ef cc              |C       |		LEA.L	0x20202,A1
00021238 70 26                    |p&      |		MOVEQ.L	#0x26,D0
0002123a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002123c 51 c8 ff fc              |Q       |		DBF	D0,0x2123a
00021240 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021242 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021246 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021248 3f 3c 00 27              |?< '    |		MOVE.W	#0x27,-(A7)
0002124c 4e 94                    |N       |		JSR	(A4)
0002124e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021250 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021256 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
0002125a 1e 82                    |        |		MOVE.B	D2,(A7)
0002125c 48 78 00 01              |Hx      |		PEA.L	0x1
00021260 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021266 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021268 4a 06                    |J       |		TST.B	D6
0002126a 67 00 ff 06              |g       |		BEQ	0x21172
0002126e 4c df 1f c7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D6+D7+A0+A1+A2+A3+A4
00021272 4e 5e                    |N^      |		UNLK	A6
00021274 4e 75                    |Nu      |		RTS
00021276 ; --------------------------------------------------------------------------------------
00021276 ; OMSI PASCAL Function
00021276 ;    <LVAR  0x008 1(w)>
00021276 ; --------------------------------------------------------------------------------------
00021276 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
0002127a bf d5                    |        |		CMPA.L	(A5),A7
0002127c 62 06                    |b       |		BHI	0x21284
0002127e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021282 4e 76                    |Nv      |		TRAPV
00021284 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
00021288 48 e7 ff e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002128c 43 f9 00 02 31 78        |C   1x  |		LEA.L	0x23178,A1
00021292 45 f9 00 02 31 82        |E   1   |		LEA.L	0x23182,A2
00021298 26 3c 00 00 03 ff        |&<      |		MOVE.L	#0x3ff,D3
0002129e 38 3c 00 ff              |8<      |		MOVE.W	#0xff,D4
000212a2 7a 43                    |zC      |		MOVEQ.L	#0x43,D5
000212a4 7c 44                    ||D      |		MOVEQ.L	#0x44,D6
000212a6 42 92                    |B       |		CLR.L	(A2)
000212a8 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000212aa 20 12                    |        |		MOVE.L	(A2),D0
000212ac b0 b9 00 02 39 86        |    9   |		CMP.L	0x23986,D0
000212b2 6c 00 01 58              |l  X    |		BGE	0x2140c
000212b6 4a 07                    |J       |		TST.B	D7
000212b8 67 00 01 52              |g  R    |		BEQ	0x2140c
000212bc 22 00                    |"       |		MOVE.L	D0,D1
000212be 52 81                    |R       |		ADDQ.L	#0x1,D1
000212c0 b0 83                    |        |		CMP.L	D3,D0
000212c2 63 02                    |c       |		BLS	0x212c6
000212c4 4e 4f                    |NO      |		TRAP	#15
000212c6 24 00                    |$       |		MOVE.L	D0,D2
000212c8 e3 82                    |        |		ASL.L	#0x1,D2
000212ca 20 49                    | I      |		MOVEA.L	A1,A0
000212cc 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
000212d0 c4 44                    | D      |		AND.W	D4,D2
000212d2 b4 05                    |        |		CMP.B	D5,D2
000212d4 66 00 01 30              |f  0    |		BNE	0x21406
000212d8 b2 83                    |        |		CMP.L	D3,D1
000212da 63 02                    |c       |		BLS	0x212de
000212dc 4e 4f                    |NO      |		TRAP	#15
000212de 24 01                    |$       |		MOVE.L	D1,D2
000212e0 e3 82                    |        |		ASL.L	#0x1,D2
000212e2 20 49                    | I      |		MOVEA.L	A1,A0
000212e4 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
000212e8 c4 44                    | D      |		AND.W	D4,D2
000212ea 0c 02 00 4d              |   M    |		CMPI.B	#0x4d,D2
000212ee 66 00 01 16              |f       |		BNE	0x21406
000212f2 24 00                    |$       |		MOVE.L	D0,D2
000212f4 54 82                    |T       |		ADDQ.L	#0x2,D2
000212f6 b4 83                    |        |		CMP.L	D3,D2
000212f8 63 02                    |c       |		BLS	0x212fc
000212fa 4e 4f                    |NO      |		TRAP	#15
000212fc e3 82                    |        |		ASL.L	#0x1,D2
000212fe 20 49                    | I      |		MOVEA.L	A1,A0
00021300 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
00021304 c4 44                    | D      |		AND.W	D4,D2
00021306 b4 06                    |        |		CMP.B	D6,D2
00021308 66 00 00 fc              |f       |		BNE	0x21406
0002130c 24 00                    |$       |		MOVE.L	D0,D2
0002130e 56 82                    |V       |		ADDQ.L	#0x3,D2
00021310 b4 83                    |        |		CMP.L	D3,D2
00021312 63 02                    |c       |		BLS	0x21316
00021314 4e 4f                    |NO      |		TRAP	#15
00021316 e3 82                    |        |		ASL.L	#0x1,D2
00021318 20 49                    | I      |		MOVEA.L	A1,A0
0002131a 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
0002131e c4 44                    | D      |		AND.W	D4,D2
00021320 0c 02 00 20              |        |		CMPI.B	#0x20,D2
00021324 66 00 00 e0              |f       |		BNE	0x21406
00021328 24 00                    |$       |		MOVE.L	D0,D2
0002132a 58 82                    |X       |		ADDQ.L	#0x4,D2
0002132c b4 83                    |        |		CMP.L	D3,D2
0002132e 63 02                    |c       |		BLS	0x21332
00021330 4e 4f                    |NO      |		TRAP	#15
00021332 e3 82                    |        |		ASL.L	#0x1,D2
00021334 20 49                    | I      |		MOVEA.L	A1,A0
00021336 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
0002133a c4 44                    | D      |		AND.W	D4,D2
0002133c 0c 02 00 41              |   A    |		CMPI.B	#0x41,D2
00021340 66 00 00 c4              |f       |		BNE	0x21406
00021344 24 00                    |$       |		MOVE.L	D0,D2
00021346 5a 82                    |Z       |		ADDQ.L	#0x5,D2
00021348 b4 83                    |        |		CMP.L	D3,D2
0002134a 63 02                    |c       |		BLS	0x2134e
0002134c 4e 4f                    |NO      |		TRAP	#15
0002134e e3 82                    |        |		ASL.L	#0x1,D2
00021350 20 49                    | I      |		MOVEA.L	A1,A0
00021352 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
00021356 c4 44                    | D      |		AND.W	D4,D2
00021358 b4 05                    |        |		CMP.B	D5,D2
0002135a 66 00 00 aa              |f       |		BNE	0x21406
0002135e 24 00                    |$       |		MOVE.L	D0,D2
00021360 5c 82                    |\       |		ADDQ.L	#0x6,D2
00021362 b4 83                    |        |		CMP.L	D3,D2
00021364 63 02                    |c       |		BLS	0x21368
00021366 4e 4f                    |NO      |		TRAP	#15
00021368 e3 82                    |        |		ASL.L	#0x1,D2
0002136a 20 49                    | I      |		MOVEA.L	A1,A0
0002136c 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
00021370 c4 44                    | D      |		AND.W	D4,D2
00021372 b4 05                    |        |		CMP.B	D5,D2
00021374 66 00 00 90              |f       |		BNE	0x21406
00021378 24 00                    |$       |		MOVE.L	D0,D2
0002137a 5e 82                    |^       |		ADDQ.L	#0x7,D2
0002137c b4 83                    |        |		CMP.L	D3,D2
0002137e 63 02                    |c       |		BLS	0x21382
00021380 4e 4f                    |NO      |		TRAP	#15
00021382 e3 82                    |        |		ASL.L	#0x1,D2
00021384 20 49                    | I      |		MOVEA.L	A1,A0
00021386 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
0002138a c4 44                    | D      |		AND.W	D4,D2
0002138c 0c 02 00 45              |   E    |		CMPI.B	#0x45,D2
00021390 66 74                    |ft      |		BNE	0x21406
00021392 24 00                    |$       |		MOVE.L	D0,D2
00021394 50 82                    |P       |		ADDQ.L	#0x8,D2
00021396 b4 83                    |        |		CMP.L	D3,D2
00021398 63 02                    |c       |		BLS	0x2139c
0002139a 4e 4f                    |NO      |		TRAP	#15
0002139c e3 82                    |        |		ASL.L	#0x1,D2
0002139e 20 49                    | I      |		MOVEA.L	A1,A0
000213a0 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
000213a4 c4 44                    | D      |		AND.W	D4,D2
000213a6 0c 02 00 50              |   P    |		CMPI.B	#0x50,D2
000213aa 66 5a                    |fZ      |		BNE	0x21406
000213ac 24 00                    |$       |		MOVE.L	D0,D2
000213ae 06 82 00 00 00 09        |        |		ADDI.L	#0x00000009,D2
000213b4 b4 83                    |        |		CMP.L	D3,D2
000213b6 63 02                    |c       |		BLS	0x213ba
000213b8 4e 4f                    |NO      |		TRAP	#15
000213ba e3 82                    |        |		ASL.L	#0x1,D2
000213bc 20 49                    | I      |		MOVEA.L	A1,A0
000213be 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
000213c2 c4 44                    | D      |		AND.W	D4,D2
000213c4 0c 02 00 54              |   T    |		CMPI.B	#0x54,D2
000213c8 66 3c                    |f<      |		BNE	0x21406
000213ca 24 00                    |$       |		MOVE.L	D0,D2
000213cc 06 82 00 00 00 0a        |        |		ADDI.L	#0x0000000a,D2
000213d2 b4 83                    |        |		CMP.L	D3,D2
000213d4 63 02                    |c       |		BLS	0x213d8
000213d6 4e 4f                    |NO      |		TRAP	#15
000213d8 e3 82                    |        |		ASL.L	#0x1,D2
000213da 20 49                    | I      |		MOVEA.L	A1,A0
000213dc 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
000213e0 c4 44                    | D      |		AND.W	D4,D2
000213e2 0c 02 00 45              |   E    |		CMPI.B	#0x45,D2
000213e6 66 1e                    |f       |		BNE	0x21406
000213e8 06 80 00 00 00 0b        |        |		ADDI.L	#0x0000000b,D0
000213ee b0 83                    |        |		CMP.L	D3,D0
000213f0 63 02                    |c       |		BLS	0x213f4
000213f2 4e 4f                    |NO      |		TRAP	#15
000213f4 e3 80                    |        |		ASL.L	#0x1,D0
000213f6 20 49                    | I      |		MOVEA.L	A1,A0
000213f8 30 30 08 0e              |00      |		MOVE.W	(A0+D0.L+#0xe),D0
000213fc c0 44                    | D      |		AND.W	D4,D0
000213fe b0 06                    |        |		CMP.B	D6,D0
00021400 66 04                    |f       |		BNE	0x21406
00021402 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021404 60 02                    |`       |		BRA	0x21408
00021406 24 81                    |$       |		MOVE.L	D1,(A2)
00021408 60 00 fe a0              |`       |		BRA	0x212aa
0002140c 1d 47 00 08              | G      |		MOVE.B	D7,(A6+0x8)
00021410 4c df 07 ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2
00021414 4e 5e                    |N^      |		UNLK	A6
00021416 4e 75                    |Nu      |		RTS
00021418 ; --------------------------------------------------------------------------------------
00021418 ; OMSI PASCAL Function
00021418 ;    <LVAR  0x008 1(w)>
00021418 ; --------------------------------------------------------------------------------------
00021418 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
0002141c bf d5                    |        |		CMPA.L	(A5),A7
0002141e 62 06                    |b       |		BHI	0x21426
00021420 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021424 4e 76                    |Nv      |		TRAPV
00021426 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
0002142a 48 e7 fd e0              |H       |		MOVEM.L	A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7)
0002142e 43 f9 00 02 31 78        |C   1x  |		LEA.L	0x23178,A1
00021434 45 f9 00 02 31 82        |E   1   |		LEA.L	0x23182,A2
0002143a 26 3c 00 00 03 ff        |&<      |		MOVE.L	#0x3ff,D3
00021440 38 3c 00 ff              |8<      |		MOVE.W	#0xff,D4
00021444 7a 45                    |zE      |		MOVEQ.L	#0x45,D5
00021446 42 92                    |B       |		CLR.L	(A2)
00021448 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0002144a 20 12                    |        |		MOVE.L	(A2),D0
0002144c b0 b9 00 02 39 86        |    9   |		CMP.L	0x23986,D0
00021452 6c 00 00 e2              |l       |		BGE	0x21536
00021456 4a 07                    |J       |		TST.B	D7
00021458 67 00 00 dc              |g       |		BEQ	0x21536
0002145c 22 00                    |"       |		MOVE.L	D0,D1
0002145e 52 81                    |R       |		ADDQ.L	#0x1,D1
00021460 b0 83                    |        |		CMP.L	D3,D0
00021462 63 02                    |c       |		BLS	0x21466
00021464 4e 4f                    |NO      |		TRAP	#15
00021466 24 00                    |$       |		MOVE.L	D0,D2
00021468 e3 82                    |        |		ASL.L	#0x1,D2
0002146a 20 49                    | I      |		MOVEA.L	A1,A0
0002146c 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
00021470 c4 44                    | D      |		AND.W	D4,D2
00021472 0c 02 00 53              |   S    |		CMPI.B	#0x53,D2
00021476 66 00 00 b8              |f       |		BNE	0x21530
0002147a b2 83                    |        |		CMP.L	D3,D1
0002147c 63 02                    |c       |		BLS	0x21480
0002147e 4e 4f                    |NO      |		TRAP	#15
00021480 24 01                    |$       |		MOVE.L	D1,D2
00021482 e3 82                    |        |		ASL.L	#0x1,D2
00021484 20 49                    | I      |		MOVEA.L	A1,A0
00021486 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
0002148a c4 44                    | D      |		AND.W	D4,D2
0002148c b4 05                    |        |		CMP.B	D5,D2
0002148e 66 00 00 a0              |f       |		BNE	0x21530
00021492 24 00                    |$       |		MOVE.L	D0,D2
00021494 54 82                    |T       |		ADDQ.L	#0x2,D2
00021496 b4 83                    |        |		CMP.L	D3,D2
00021498 63 02                    |c       |		BLS	0x2149c
0002149a 4e 4f                    |NO      |		TRAP	#15
0002149c e3 82                    |        |		ASL.L	#0x1,D2
0002149e 20 49                    | I      |		MOVEA.L	A1,A0
000214a0 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
000214a4 c4 44                    | D      |		AND.W	D4,D2
000214a6 0c 02 00 52              |   R    |		CMPI.B	#0x52,D2
000214aa 66 00 00 84              |f       |		BNE	0x21530
000214ae 24 00                    |$       |		MOVE.L	D0,D2
000214b0 56 82                    |V       |		ADDQ.L	#0x3,D2
000214b2 b4 83                    |        |		CMP.L	D3,D2
000214b4 63 02                    |c       |		BLS	0x214b8
000214b6 4e 4f                    |NO      |		TRAP	#15
000214b8 e3 82                    |        |		ASL.L	#0x1,D2
000214ba 20 49                    | I      |		MOVEA.L	A1,A0
000214bc 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
000214c0 c4 44                    | D      |		AND.W	D4,D2
000214c2 0c 02 00 56              |   V    |		CMPI.B	#0x56,D2
000214c6 66 68                    |fh      |		BNE	0x21530
000214c8 24 00                    |$       |		MOVE.L	D0,D2
000214ca 58 82                    |X       |		ADDQ.L	#0x4,D2
000214cc b4 83                    |        |		CMP.L	D3,D2
000214ce 63 02                    |c       |		BLS	0x214d2
000214d0 4e 4f                    |NO      |		TRAP	#15
000214d2 e3 82                    |        |		ASL.L	#0x1,D2
000214d4 20 49                    | I      |		MOVEA.L	A1,A0
000214d6 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
000214da c4 44                    | D      |		AND.W	D4,D2
000214dc 0c 02 00 49              |   I    |		CMPI.B	#0x49,D2
000214e0 66 4e                    |fN      |		BNE	0x21530
000214e2 24 00                    |$       |		MOVE.L	D0,D2
000214e4 5a 82                    |Z       |		ADDQ.L	#0x5,D2
000214e6 b4 83                    |        |		CMP.L	D3,D2
000214e8 63 02                    |c       |		BLS	0x214ec
000214ea 4e 4f                    |NO      |		TRAP	#15
000214ec e3 82                    |        |		ASL.L	#0x1,D2
000214ee 20 49                    | I      |		MOVEA.L	A1,A0
000214f0 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
000214f4 c4 44                    | D      |		AND.W	D4,D2
000214f6 0c 02 00 43              |   C    |		CMPI.B	#0x43,D2
000214fa 66 34                    |f4      |		BNE	0x21530
000214fc 24 00                    |$       |		MOVE.L	D0,D2
000214fe 5c 82                    |\       |		ADDQ.L	#0x6,D2
00021500 b4 83                    |        |		CMP.L	D3,D2
00021502 63 02                    |c       |		BLS	0x21506
00021504 4e 4f                    |NO      |		TRAP	#15
00021506 e3 82                    |        |		ASL.L	#0x1,D2
00021508 20 49                    | I      |		MOVEA.L	A1,A0
0002150a 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
0002150e c4 44                    | D      |		AND.W	D4,D2
00021510 b4 05                    |        |		CMP.B	D5,D2
00021512 66 1c                    |f       |		BNE	0x21530
00021514 5e 80                    |^       |		ADDQ.L	#0x7,D0
00021516 b0 83                    |        |		CMP.L	D3,D0
00021518 63 02                    |c       |		BLS	0x2151c
0002151a 4e 4f                    |NO      |		TRAP	#15
0002151c e3 80                    |        |		ASL.L	#0x1,D0
0002151e 20 49                    | I      |		MOVEA.L	A1,A0
00021520 30 30 08 0e              |00      |		MOVE.W	(A0+D0.L+#0xe),D0
00021524 c0 44                    | D      |		AND.W	D4,D0
00021526 0c 00 00 3a              |   :    |		CMPI.B	#0x3a,D0
0002152a 66 04                    |f       |		BNE	0x21530
0002152c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002152e 60 02                    |`       |		BRA	0x21532
00021530 24 81                    |$       |		MOVE.L	D1,(A2)
00021532 60 00 ff 16              |`       |		BRA	0x2144a
00021536 1d 47 00 08              | G      |		MOVE.B	D7,(A6+0x8)
0002153a 4c df 07 bf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2
0002153e 4e 5e                    |N^      |		UNLK	A6
00021540 4e 75                    |Nu      |		RTS
00021542 ; --------------------------------------------------------------------------------------
00021542 ; OMSI PASCAL Function
00021542 ;    <LVAR -0x008 @ 4(rw)>
00021542 ;    <LVAR -0x00c @ 4(rw)>
00021542 ;    <LVAR -0x014 @ 4(rw)>
00021542 ; --------------------------------------------------------------------------------------
00021542 4e 56 ff 34              |NV 4    |		LINK.W	A6,#0xff34
00021546 bf d5                    |        |		CMPA.L	(A5),A7
00021548 62 06                    |b       |		BHI	0x21550
0002154a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002154e 4e 76                    |Nv      |		TRAPV
00021550 de fc 00 b4              |        |		ADDA.W	#0xb4,A7
00021554 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021558 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
0002155e 47 fa fa ee              |G       |		LEA.L	0x2104e,A3
00021562 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021564 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
00021566 76 02                    |v       |		MOVEQ.L	#0x02,D3
00021568 78 10                    |x       |		MOVEQ.L	#0x10,D4
0002156a 7a 24                    |z$      |		MOVEQ.L	#0x24,D5
0002156c 42 39 00 02 31 80        |B9  1   |		CLR.B	0x23180
00021572 4e b9 00 01 02 16        |N       |		JSR	KC0b
00021578 4e 93                    |N       |		JSR	(A3)
0002157a 9e c5                    |        |		SUBA.W	D5,A7
0002157c 20 4f                    | O      |		MOVEA.L	A7,A0
0002157e 43 fa ee 9a              |C       |		LEA.L	0x2041a,A1
00021582 70 22                    |p"      |		MOVEQ.L	#0x22,D0
00021584 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021586 51 c8 ff fc              |Q       |		DBF	D0,0x21584
0002158a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002158c 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021590 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021592 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
00021596 4e 92                    |N       |		JSR	(A2)
00021598 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002159a 42 17                    |B       |		CLR.B	(A7)
0002159c 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
000215a2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000215a4 10 1f                    |        |		MOVE.B	(A7)+,D0
000215a6 48 80                    |H       |		EXTB.W	D0
000215a8 41 81                    |A       |		CHK.W	D1,D0
000215aa de c5                    |        |		ADDA.W	D5,A7
000215ac 13 c0 00 02 31 80        |    1   |		MOVE.B	D0,0x23180
000215b2 9e fc 00 36              |   6    |		SUBA.W	#0x36,A7
000215b6 20 4f                    | O      |		MOVEA.L	A7,A0
000215b8 43 fa ee 2a              |C  *    |		LEA.L	0x203e4,A1
000215bc 70 34                    |p4      |		MOVEQ.L	#0x34,D0
000215be 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000215c0 51 c8 ff fc              |Q       |		DBF	D0,0x215be
000215c4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000215c6 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000215ca 3f 01                    |?       |		MOVE.W	D1,-(A7)
000215cc 3f 3c 00 35              |?< 5    |		MOVE.W	#0x35,-(A7)
000215d0 4e 92                    |N       |		JSR	(A2)
000215d2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000215d4 48 78 00 02              |Hx      |		PEA.L	0x2
000215d8 48 78 00 05              |Hx      |		PEA.L	0x5
000215dc 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
000215e2 de c2                    |        |		ADDA.W	D2,A7
000215e4 2e 1f                    |.       |		MOVE.L	(A7)+,D7
000215e6 de fc 00 36              |   6    |		ADDA.W	#0x36,A7
000215ea 20 07                    |        |		MOVE.L	D7,D0
000215ec 55 80                    |U       |		SUBQ.L	#0x2,D0
000215ee 0c 80 00 00 00 03        |        |		CMPI.L	#0x00000003,D0
000215f4 63 02                    |c       |		BLS	0x215f8
000215f6 4e 4e                    |NN      |		TRAP	#14
000215f8 d0 40                    | @      |		ADD.W	D0,D0
000215fa 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00021602 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x2160a
00021604 00 3c                    | <      |		.CONST	0x3c			; [0x1] -> 0x2163e
00021606 00 6e                    | n      |		.CONST	0x6e			; [0x2] -> 0x21670
00021608 00 a0                    |        |		.CONST	0xa0			; [0x3] -> 0x216a2
0002160a					switch@0x215fa[0x0]:
0002160a 3f 3a ee 9a              |?:      |		MOVE.W	0x204a6,-(A7)
0002160e 3f 3a ee 94              |?:      |		MOVE.W	0x204a4,-(A7)
00021612 3f 3a ee 8e              |?:      |		MOVE.W	0x204a2,-(A7)
00021616 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021618 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002161c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002161e 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00021622 4e 92                    |N       |		JSR	(A2)
00021624 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021626 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
0002162a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002162c 20 4f                    | O      |		MOVEA.L	A7,A0
0002162e 43 fa ee 78              |C  x    |		LEA.L	0x204a8,A1
00021632 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021634 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021636 51 c8 ff fc              |Q       |		DBF	D0,0x21634
0002163a 60 00 00 96              |`       |		BRA	0x216d2
0002163e					switch@0x215fa[0x1]:
0002163e 3f 3a ee 74              |?: t    |		MOVE.W	0x204b4,-(A7)
00021642 3f 3a ee 6e              |?: n    |		MOVE.W	0x204b2,-(A7)
00021646 3f 3a ee 68              |?: h    |		MOVE.W	0x204b0,-(A7)
0002164a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002164c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021650 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021652 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00021656 4e 92                    |N       |		JSR	(A2)
00021658 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002165a 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
0002165e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021660 20 4f                    | O      |		MOVEA.L	A7,A0
00021662 43 fa ee 52              |C  R    |		LEA.L	0x204b6,A1
00021666 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021668 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002166a 51 c8 ff fc              |Q       |		DBF	D0,0x21668
0002166e 60 62                    |`b      |		BRA	0x216d2
00021670					switch@0x215fa[0x2]:
00021670 3f 3a ee 50              |?: P    |		MOVE.W	0x204c2,-(A7)
00021674 3f 3a ee 4a              |?: J    |		MOVE.W	0x204c0,-(A7)
00021678 3f 3a ee 44              |?: D    |		MOVE.W	0x204be,-(A7)
0002167c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002167e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021682 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021684 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00021688 4e 92                    |N       |		JSR	(A2)
0002168a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002168c 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
00021690 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021692 20 4f                    | O      |		MOVEA.L	A7,A0
00021694 43 fa ee 2e              |C  .    |		LEA.L	0x204c4,A1
00021698 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002169a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002169c 51 c8 ff fc              |Q       |		DBF	D0,0x2169a
000216a0 60 30                    |`0      |		BRA	0x216d2
000216a2					switch@0x215fa[0x3]:
000216a2 3f 3a ee 2c              |?: ,    |		MOVE.W	0x204d0,-(A7)
000216a6 3f 3a ee 26              |?: &    |		MOVE.W	0x204ce,-(A7)
000216aa 3f 3a ee 20              |?:      |		MOVE.W	0x204cc,-(A7)
000216ae 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000216b0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000216b4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000216b6 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
000216ba 4e 92                    |N       |		JSR	(A2)
000216bc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216be 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
000216c2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000216c4 20 4f                    | O      |		MOVEA.L	A7,A0
000216c6 43 fa ee 0a              |C       |		LEA.L	0x204d2,A1
000216ca 70 06                    |p       |		MOVEQ.L	#0x06,D0
000216cc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000216ce 51 c8 ff fc              |Q       |		DBF	D0,0x216cc
000216d2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000216d4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000216d8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000216da 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
000216de 4e 92                    |N       |		JSR	(A2)
000216e0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216e2 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
000216e6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216e8 9e fc 00 3e              |   >    |		SUBA.W	#0x3e,A7
000216ec 20 4f                    | O      |		MOVEA.L	A7,A0
000216ee 43 fa ed 4e              |C  N    |		LEA.L	0x2043e,A1
000216f2 70 3c                    |p<      |		MOVEQ.L	#0x3c,D0
000216f4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000216f6 51 c8 ff fc              |Q       |		DBF	D0,0x216f4
000216fa 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000216fc 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021700 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021702 3f 3c 00 3d              |?< =    |		MOVE.W	#0x3d,-(A7)
00021706 4e 92                    |N       |		JSR	(A2)
00021708 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002170a 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00021710 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021712 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021714 de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00021718 4a 54                    |JT      |		TST.W	(A4)
0002171a 67 cc                    |g       |		BEQ	0x216e8
0002171c 41 fa ed 84              |A       |		LEA.L	0x204a2,A0
00021720 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021722 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021724 51 c8 ff fc              |Q       |		DBF	D0,0x21722
00021728 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002172a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002172e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021730 3f 3c 00 26              |?< &    |		MOVE.W	#0x26,-(A7)
00021734 4e 92                    |N       |		JSR	(A2)
00021736 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021738 48 78 00 40              |Hx @    |		PEA.L	0x40
0002173c 48 78 01 00              |Hx      |		PEA.L	0x100
00021740 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00021746 de c2                    |        |		ADDA.W	D2,A7
00021748 2c 1f                    |,       |		MOVE.L	(A7)+,D6
0002174a de c5                    |        |		ADDA.W	D5,A7
0002174c 3e 83                    |>       |		MOVE.W	D3,(A7)
0002174e 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021750 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00021756 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021758 4e 93                    |N       |		JSR	(A3)
0002175a 4a b9 00 02 39 86        |J   9   |		TST.L	0x23986
00021760 66 76                    |fv      |		BNE	0x217d8
00021762 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021764 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
00021768 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
0002176e 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021770 3e 83                    |>       |		MOVE.W	D3,(A7)
00021772 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
00021776 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
0002177c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002177e 3e 83                    |>       |		MOVE.W	D3,(A7)
00021780 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
00021784 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
0002178a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002178c 3e 83                    |>       |		MOVE.W	D3,(A7)
0002178e 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00021792 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00021798 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002179a 4e 93                    |N       |		JSR	(A3)
0002179c 4a b9 00 02 39 86        |J   9   |		TST.L	0x23986
000217a2 66 34                    |f4      |		BNE	0x217d8
000217a4 41 fa ea b4              |A       |		LEA.L	0x2025a,A0
000217a8 70 0b                    |p       |		MOVEQ.L	#0x0b,D0
000217aa 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000217ac 51 c8 ff fc              |Q       |		DBF	D0,0x217aa
000217b0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000217b2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000217b6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000217b8 3f 3c 00 30              |?< 0    |		MOVE.W	#0x30,-(A7)
000217bc 4e 92                    |N       |		JSR	(A2)
000217be 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217c0 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000217c6 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000217ca 1e 83                    |        |		MOVE.B	D3,(A7)
000217cc 48 78 00 01              |Hx      |		PEA.L	0x1
000217d0 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000217d6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000217d8 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
000217dc 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000217e2 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000217e4 20 4f                    | O      |		MOVEA.L	A7,A0
000217e6 43 fa ec f2              |C       |		LEA.L	0x204da,A1
000217ea 70 08                    |p       |		MOVEQ.L	#0x08,D0
000217ec 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000217ee 51 c8 ff fc              |Q       |		DBF	D0,0x217ec
000217f2 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
000217f6 20 4f                    | O      |		MOVEA.L	A7,A0
000217f8 43 fa ec ea              |C       |		LEA.L	0x204e4,A1
000217fc 70 08                    |p       |		MOVEQ.L	#0x08,D0
000217fe 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021800 51 c8 ff fc              |Q       |		DBF	D0,0x217fe
00021804 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021806 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
0002180a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002180c 48 6f 00 16              |Ho      |		PEA.L	(A7+0x16)
00021810 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021812 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00021816 4e 92                    |N       |		JSR	(A2)
00021818 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002181a 2e 8c                    |.       |		MOVE.L	A4,(A7)
0002181c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002181e 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
00021822 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00021828 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
0002182c 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00021832 48 6f 00 20              |Ho      |		PEA.L	(A7+0x20)
00021836 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021838 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
0002183c 4e 92                    |N       |		JSR	(A2)
0002183e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021840 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00021846 de c2                    |        |		ADDA.W	D2,A7
00021848 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
0002184e de c4                    |        |		ADDA.W	D4,A7
00021850 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00021854 de c4                    |        |		ADDA.W	D4,A7
00021856 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
0002185a 4e ba f7 74              |N  t    |		JSR	0x20fd0
0002185e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021860 4e 93                    |N       |		JSR	(A3)
00021862 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021864 4e ba fa 10              |N       |		JSR	0x21276
00021868 4a 1f                    |J       |		TST.B	(A7)+
0002186a 67 56                    |gV      |		BEQ	0x218c2
0002186c 9e fc 00 40              |   @    |		SUBA.W	#0x40,A7
00021870 20 4f                    | O      |		MOVEA.L	A7,A0
00021872 43 fa e9 e6              |C       |		LEA.L	0x2025a,A1
00021876 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
00021878 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002187a 51 c8 ff fc              |Q       |		DBF	D0,0x21878
0002187e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021880 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021884 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021886 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
0002188a 4e 92                    |N       |		JSR	(A2)
0002188c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002188e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021894 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
00021898 41 fa ea 42              |A  B    |		LEA.L	0x202dc,A0
0002189c 70 20                    |p       |		MOVEQ.L	#0x20,D0
0002189e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000218a0 51 c8 ff fc              |Q       |		DBF	D0,0x2189e
000218a4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000218a6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000218aa 3f 01                    |?       |		MOVE.W	D1,-(A7)
000218ac 3f 3c 00 42              |?< B    |		MOVE.W	#0x42,-(A7)
000218b0 4e 92                    |N       |		JSR	(A2)
000218b2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000218b4 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000218ba de fc 00 46              |   F    |		ADDA.W	#0x46,A7
000218be 60 00 04 ea              |`       |		BRA	0x21daa
000218c2 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
000218c6 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000218cc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000218ce 41 fa ec 2c              |A  ,    |		LEA.L	0x204fc,A0
000218d2 70 06                    |p       |		MOVEQ.L	#0x06,D0
000218d4 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000218d6 51 c8 ff fc              |Q       |		DBF	D0,0x218d4
000218da 2f 3a ec 20              |/:      |		MOVE.L	0x204fc,-(A7)
000218de 41 fa ec 34              |A  4    |		LEA.L	0x20514,A0
000218e2 70 04                    |p       |		MOVEQ.L	#0x04,D0
000218e4 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000218e6 51 c8 ff fc              |Q       |		DBF	D0,0x218e4
000218ea 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000218ec 48 6f 00 20              |Ho      |		PEA.L	(A7+0x20)
000218f0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000218f2 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
000218f6 4e 92                    |N       |		JSR	(A2)
000218f8 2e 86                    |.       |		MOVE.L	D6,(A7)
000218fa 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021900 48 6f 00 24              |Ho $    |		PEA.L	(A7+0x24)
00021904 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021906 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
0002190a 4e 92                    |N       |		JSR	(A2)
0002190c 2e 86                    |.       |		MOVE.L	D6,(A7)
0002190e 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021914 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
00021918 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002191a 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
0002191e 4e 92                    |N       |		JSR	(A2)
00021920 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021922 4e b9 00 01 02 dc        |N       |		JSR	StringCat5(a, b, c, d, e : String) : String
00021928 de fc 00 14              |        |		ADDA.W	#0x14,A7
0002192c 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00021930 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00021934 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
00021938 4e ba f6 96              |N       |		JSR	0x20fd0
0002193c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002193e 4e 93                    |N       |		JSR	(A3)
00021940 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021942 4e ba f9 32              |N  2    |		JSR	0x21276
00021946 4a 1f                    |J       |		TST.B	(A7)+
00021948 67 30                    |g0      |		BEQ	0x2197a
0002194a 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
0002194e 20 4f                    | O      |		MOVEA.L	A7,A0
00021950 43 fa e9 8a              |C       |		LEA.L	0x202dc,A1
00021954 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021956 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021958 51 c8 ff fc              |Q       |		DBF	D0,0x21956
0002195c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002195e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021962 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021964 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00021968 4e 92                    |N       |		JSR	(A2)
0002196a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002196c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021972 de fc 00 12              |        |		ADDA.W	#0x12,A7
00021976 60 00 03 bc              |`       |		BRA	0x21d34
0002197a 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
0002197e 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021984 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021986 41 fa eb a4              |A       |		LEA.L	0x2052c,A0
0002198a 70 05                    |p       |		MOVEQ.L	#0x05,D0
0002198c 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002198e 51 c8 ff fc              |Q       |		DBF	D0,0x2198c
00021992 9e c2                    |        |		SUBA.W	D2,A7
00021994 20 4f                    | O      |		MOVEA.L	A7,A0
00021996 43 fa eb 94              |C       |		LEA.L	0x2052c,A1
0002199a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002199c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002199e 51 c8 ff fc              |Q       |		DBF	D0,0x2199c
000219a2 9e fc 00 14              |        |		SUBA.W	#0x14,A7
000219a6 20 4f                    | O      |		MOVEA.L	A7,A0
000219a8 43 fa eb 8e              |C       |		LEA.L	0x20538,A1
000219ac 70 12                    |p       |		MOVEQ.L	#0x12,D0
000219ae 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000219b0 51 c8 ff fc              |Q       |		DBF	D0,0x219ae
000219b4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000219b6 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
000219ba 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000219bc 48 6f 00 2c              |Ho ,    |		PEA.L	(A7+0x2c)
000219c0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000219c2 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
000219c6 4e 92                    |N       |		JSR	(A2)
000219c8 2e 86                    |.       |		MOVE.L	D6,(A7)
000219ca 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000219d0 48 6f 00 28              |Ho (    |		PEA.L	(A7+0x28)
000219d4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000219d6 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
000219da 4e 92                    |N       |		JSR	(A2)
000219dc 2e ae ff f4              |.       |		MOVE.L	(A6-0xc),(A7)
000219e0 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000219e6 48 6f 00 1c              |Ho      |		PEA.L	(A7+0x1c)
000219ea 3f 01                    |?       |		MOVE.W	D1,-(A7)
000219ec 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
000219f0 4e 92                    |N       |		JSR	(A2)
000219f2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000219f4 4e b9 00 01 02 e0        |N       |		JSR	StringCat6(a, b, c, d, e, f : String) : String
000219fa de fc 00 18              |        |		ADDA.W	#0x18,A7
000219fe 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00021a02 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00021a06 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
00021a0a 4e ba f5 c4              |N       |		JSR	0x20fd0
00021a0e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a10 4e 93                    |N       |		JSR	(A3)
00021a12 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021a14 4e ba f8 60              |N  `    |		JSR	0x21276
00021a18 4a 1f                    |J       |		TST.B	(A7)+
00021a1a 67 16                    |g       |		BEQ	0x21a32
00021a1c 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00021a20 20 4f                    | O      |		MOVEA.L	A7,A0
00021a22 43 fa e9 62              |C  b    |		LEA.L	0x20386,A1
00021a26 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021a28 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021a2a 51 c8 ff fc              |Q       |		DBF	D0,0x21a28
00021a2e 60 00 ff 2c              |`  ,    |		BRA	0x2195c
00021a32 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
00021a36 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021a3c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a3e 41 fa eb 16              |A       |		LEA.L	0x20556,A0
00021a42 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021a44 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021a46 51 c8 ff fc              |Q       |		DBF	D0,0x21a44
00021a4a 41 fa eb 2a              |A  *    |		LEA.L	0x20576,A0
00021a4e 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021a50 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021a52 51 c8 ff fc              |Q       |		DBF	D0,0x21a50
00021a56 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a58 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00021a5c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a5e 48 6f 00 2c              |Ho ,    |		PEA.L	(A7+0x2c)
00021a62 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a64 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00021a68 4e 92                    |N       |		JSR	(A2)
00021a6a 2e ae ff f4              |.       |		MOVE.L	(A6-0xc),(A7)
00021a6e 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00021a74 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00021a78 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a7a 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00021a7e 4e 92                    |N       |		JSR	(A2)
00021a80 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a82 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00021a88 de c4                    |        |		ADDA.W	D4,A7
00021a8a 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00021a8e de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00021a92 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
00021a96 4e ba f5 38              |N  8    |		JSR	0x20fd0
00021a9a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a9c 4e 93                    |N       |		JSR	(A3)
00021a9e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021aa0 4e ba f7 d4              |N       |		JSR	0x21276
00021aa4 4a 1f                    |J       |		TST.B	(A7)+
00021aa6 67 16                    |g       |		BEQ	0x21abe
00021aa8 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00021aac 20 4f                    | O      |		MOVEA.L	A7,A0
00021aae 43 fa e8 e4              |C       |		LEA.L	0x20394,A1
00021ab2 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021ab4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021ab6 51 c8 ff fc              |Q       |		DBF	D0,0x21ab4
00021aba 60 00 fe a0              |`       |		BRA	0x2195c
00021abe 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
00021ac2 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021ac8 9e c2                    |        |		SUBA.W	D2,A7
00021aca 20 4f                    | O      |		MOVEA.L	A7,A0
00021acc 43 fa ea a8              |C       |		LEA.L	0x20576,A1
00021ad0 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021ad2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021ad4 51 c8 ff fc              |Q       |		DBF	D0,0x21ad2
00021ad8 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00021adc 20 4f                    | O      |		MOVEA.L	A7,A0
00021ade 43 fa ea a6              |C       |		LEA.L	0x20586,A1
00021ae2 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021ae4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021ae6 51 c8 ff fc              |Q       |		DBF	D0,0x21ae4
00021aea 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021aec 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00021af0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021af2 48 6f 00 16              |Ho      |		PEA.L	(A7+0x16)
00021af6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021af8 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00021afc 4e 92                    |N       |		JSR	(A2)
00021afe 2e ae ff f4              |.       |		MOVE.L	(A6-0xc),(A7)
00021b02 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00021b08 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00021b0c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b0e 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00021b12 4e 92                    |N       |		JSR	(A2)
00021b14 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b16 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00021b1c de c4                    |        |		ADDA.W	D4,A7
00021b1e 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00021b22 de fc 00 16              |        |		ADDA.W	#0x16,A7
00021b26 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
00021b2a 4e ba f4 a4              |N       |		JSR	0x20fd0
00021b2e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021b30 4e 93                    |N       |		JSR	(A3)
00021b32 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021b34 4e ba f7 40              |N  @    |		JSR	0x21276
00021b38 4a 1f                    |J       |		TST.B	(A7)+
00021b3a 67 16                    |g       |		BEQ	0x21b52
00021b3c 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00021b40 20 4f                    | O      |		MOVEA.L	A7,A0
00021b42 43 fa e8 5e              |C  ^    |		LEA.L	0x203a2,A1
00021b46 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021b48 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021b4a 51 c8 ff fc              |Q       |		DBF	D0,0x21b48
00021b4e 60 00 fe 0c              |`       |		BRA	0x2195c
00021b52 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
00021b56 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021b5c 9e fc 00 2c              |   ,    |		SUBA.W	#0x2c,A7
00021b60 20 4f                    | O      |		MOVEA.L	A7,A0
00021b62 43 fa ea 2c              |C  ,    |		LEA.L	0x20590,A1
00021b66 70 2e                    |p.      |		MOVEQ.L	#0x2e,D0
00021b68 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021b6a 51 c8 ff fc              |Q       |		DBF	D0,0x21b68
00021b6e 41 fa ea 7a              |A  z    |		LEA.L	0x205ea,A0
00021b72 70 14                    |p       |		MOVEQ.L	#0x14,D0
00021b74 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021b76 51 c8 ff fc              |Q       |		DBF	D0,0x21b74
00021b7a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b7c 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00021b80 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b82 48 6f 00 36              |Ho 6    |		PEA.L	(A7+0x36)
00021b86 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b88 3f 3c 00 2f              |?< /    |		MOVE.W	#0x2f,-(A7)
00021b8c 4e 92                    |N       |		JSR	(A2)
00021b8e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021b90 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00021b94 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b96 3f 3c 00 2a              |?< *    |		MOVE.W	#0x2a,-(A7)
00021b9a 4e 92                    |N       |		JSR	(A2)
00021b9c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b9e 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00021ba4 de c2                    |        |		ADDA.W	D2,A7
00021ba6 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00021baa de fc 00 56              |   V    |		ADDA.W	#0x56,A7
00021bae 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
00021bb2 4e ba f4 1c              |N       |		JSR	0x20fd0
00021bb6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021bb8 4e 93                    |N       |		JSR	(A3)
00021bba 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021bbc 4e ba f6 b8              |N       |		JSR	0x21276
00021bc0 4a 1f                    |J       |		TST.B	(A7)+
00021bc2 67 30                    |g0      |		BEQ	0x21bf4
00021bc4 9e fc 00 14              |        |		SUBA.W	#0x14,A7
00021bc8 20 4f                    | O      |		MOVEA.L	A7,A0
00021bca 43 fa e7 e4              |C       |		LEA.L	0x203b0,A1
00021bce 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021bd0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021bd2 51 c8 ff fc              |Q       |		DBF	D0,0x21bd0
00021bd6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021bd8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021bdc 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021bde 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00021be2 4e 92                    |N       |		JSR	(A2)
00021be4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021be6 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021bec de fc 00 18              |        |		ADDA.W	#0x18,A7
00021bf0 60 00 01 42              |`  B    |		BRA	0x21d34
00021bf4 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
00021bf8 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021bfe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021c00 41 fa ea 1a              |A       |		LEA.L	0x2061c,A0
00021c04 70 18                    |p       |		MOVEQ.L	#0x18,D0
00021c06 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021c08 51 c8 ff fc              |Q       |		DBF	D0,0x21c06
00021c0c 41 fa ea 40              |A  @    |		LEA.L	0x2064e,A0
00021c10 70 18                    |p       |		MOVEQ.L	#0x18,D0
00021c12 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021c14 51 c8 ff fc              |Q       |		DBF	D0,0x21c12
00021c18 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c1a 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00021c1e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c20 48 6f 00 3e              |Ho >    |		PEA.L	(A7+0x3e)
00021c24 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c26 3f 3c 00 32              |?< 2    |		MOVE.W	#0x32,-(A7)
00021c2a 4e 92                    |N       |		JSR	(A2)
00021c2c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021c2e 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00021c32 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c34 3f 3c 00 32              |?< 2    |		MOVE.W	#0x32,-(A7)
00021c38 4e 92                    |N       |		JSR	(A2)
00021c3a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c3c 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00021c42 de c2                    |        |		ADDA.W	D2,A7
00021c44 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00021c48 de fc 00 60              |   `    |		ADDA.W	#0x60,A7
00021c4c 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
00021c50 4e ba f3 7e              |N  ~    |		JSR	0x20fd0
00021c54 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021c56 4e 93                    |N       |		JSR	(A3)
00021c58 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021c5a 4e ba f6 1a              |N       |		JSR	0x21276
00021c5e 4a 1f                    |J       |		TST.B	(A7)+
00021c60 67 1c                    |g       |		BEQ	0x21c7e
00021c62 41 fa e7 74              |A  t    |		LEA.L	0x203d8,A0
00021c66 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021c68 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021c6a 51 c8 ff fc              |Q       |		DBF	D0,0x21c68
00021c6e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c70 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021c74 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c76 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021c7a 60 00 ff 66              |`  f    |		BRA	0x21be2
00021c7e 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00021c82 20 4f                    | O      |		MOVEA.L	A7,A0
00021c84 43 fa e9 c8              |C       |		LEA.L	0x2064e,A1
00021c88 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021c8a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021c8c 51 c8 ff fc              |Q       |		DBF	D0,0x21c8a
00021c90 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c92 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021c96 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c98 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00021c9c 4e 92                    |N       |		JSR	(A2)
00021c9e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ca0 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00021ca4 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021ca8 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
00021cac 4e ba f3 22              |N  "    |		JSR	0x20fd0
00021cb0 2e bc 00 02 fa ee        |.       |		MOVE.L	#0x2faee,(A7)
00021cb6 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
00021cbc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021cbe 4e 93                    |N       |		JSR	(A3)
00021cc0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021cc2 4e ba f7 54              |N  T    |		JSR	0x21418
00021cc6 4a 1f                    |J       |		TST.B	(A7)+
00021cc8 67 2a                    |g*      |		BEQ	0x21cf4
00021cca 9e c2                    |        |		SUBA.W	D2,A7
00021ccc 20 4f                    | O      |		MOVEA.L	A7,A0
00021cce 43 fa e7 08              |C       |		LEA.L	0x203d8,A1
00021cd2 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021cd4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021cd6 51 c8 ff fc              |Q       |		DBF	D0,0x21cd4
00021cda 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021cdc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021ce0 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021ce2 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00021ce6 4e 92                    |N       |		JSR	(A2)
00021ce8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021cea 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021cf0 de c4                    |        |		ADDA.W	D4,A7
00021cf2 60 40                    |`@      |		BRA	0x21d34
00021cf4 41 fa e9 82              |A       |		LEA.L	0x20678,A0
00021cf8 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021cfa 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021cfc 51 c8 ff fc              |Q       |		DBF	D0,0x21cfa
00021d00 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d02 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021d06 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021d08 3f 3c 00 1c              |?<      |		MOVE.W	#0x1c,-(A7)
00021d0c 4e 92                    |N       |		JSR	(A2)
00021d0e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d10 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021d16 de fc 00 20              |        |		ADDA.W	#0x20,A7
00021d1a 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00021d1e 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021d24 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021d26 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00021d2a 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021d30 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021d32 60 76                    |`v      |		BRA	0x21daa
00021d34 9e fc 00 40              |   @    |		SUBA.W	#0x40,A7
00021d38 20 4f                    | O      |		MOVEA.L	A7,A0
00021d3a 43 fa e5 ae              |C       |		LEA.L	0x202ea,A1
00021d3e 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
00021d40 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021d42 51 c8 ff fc              |Q       |		DBF	D0,0x21d40
00021d46 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d48 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021d4c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021d4e 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
00021d52 4e 92                    |N       |		JSR	(A2)
00021d54 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d56 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021d5c de fc 00 44              |   D    |		ADDA.W	#0x44,A7
00021d60 41 fa e6 04              |A       |		LEA.L	0x20366,A0
00021d64 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021d66 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021d68 51 c8 ff fc              |Q       |		DBF	D0,0x21d66
00021d6c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d6e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021d72 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021d74 3f 3c 00 3c              |?< <    |		MOVE.W	#0x3c,-(A7)
00021d78 4e 92                    |N       |		JSR	(A2)
00021d7a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d7c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021d82 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00021d86 41 fa e5 fe              |A       |		LEA.L	0x20386,A0
00021d8a 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021d8c 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021d8e 51 c8 ff fc              |Q       |		DBF	D0,0x21d8c
00021d92 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d94 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021d98 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021d9a 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00021d9e 4e 92                    |N       |		JSR	(A2)
00021da0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021da2 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021da8 de c5                    |        |		ADDA.W	D5,A7
00021daa 4e ba f1 fa              |N       |		JSR	0x20fa6
00021dae 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021db2 4e 5e                    |N^      |		UNLK	A6
00021db4 4e 75                    |Nu      |		RTS
00021db6 ; --------------------------------------------------------------------------------------
00021db6 ; OMSI PASCAL Function
00021db6 ;    <LVAR  0x008 1(r)>
00021db6 ;    <LVAR -0x00a @ 4(rw)>
00021db6 ;    <LVAR -0x00e @ 4(rw)>
00021db6 ;    <LVAR -0x016 @ 4(rw)>
00021db6 ; --------------------------------------------------------------------------------------
00021db6 4e 56 ff 58              |NV X    |		LINK.W	A6,#0xff58
00021dba bf d5                    |        |		CMPA.L	(A5),A7
00021dbc 62 06                    |b       |		BHI	0x21dc4
00021dbe 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021dc2 4e 76                    |Nv      |		TRAPV
00021dc4 de fc 00 8e              |        |		ADDA.W	#0x8e,A7
00021dc8 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021dcc 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021dd2 47 fa f2 7a              |G  z    |		LEA.L	0x2104e,A3
00021dd6 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021dd8 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00021dda 76 24                    |v$      |		MOVEQ.L	#0x24,D3
00021ddc 78 02                    |x       |		MOVEQ.L	#0x02,D4
00021dde 7a 0c                    |z       |		MOVEQ.L	#0x0c,D5
00021de0 42 39 00 02 31 80        |B9  1   |		CLR.B	0x23180
00021de6 4e b9 00 01 02 16        |N       |		JSR	KC0b
00021dec 4e 93                    |N       |		JSR	(A3)
00021dee 9e c3                    |        |		SUBA.W	D3,A7
00021df0 20 4f                    | O      |		MOVEA.L	A7,A0
00021df2 43 fa ea 4a              |C  J    |		LEA.L	0x2083e,A1
00021df6 70 22                    |p"      |		MOVEQ.L	#0x22,D0
00021df8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021dfa 51 c8 ff fc              |Q       |		DBF	D0,0x21df8
00021dfe 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021e00 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021e04 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021e06 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
00021e0a 4e 92                    |N       |		JSR	(A2)
00021e0c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021e0e 42 17                    |B       |		CLR.B	(A7)
00021e10 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00021e16 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021e18 10 1f                    |        |		MOVE.B	(A7)+,D0
00021e1a 48 80                    |H       |		EXTB.W	D0
00021e1c 41 81                    |A       |		CHK.W	D1,D0
00021e1e de c3                    |        |		ADDA.W	D3,A7
00021e20 13 c0 00 02 31 80        |    1   |		MOVE.B	D0,0x23180
00021e26 9e fc 00 36              |   6    |		SUBA.W	#0x36,A7
00021e2a 20 4f                    | O      |		MOVEA.L	A7,A0
00021e2c 43 fa e9 da              |C       |		LEA.L	0x20808,A1
00021e30 70 34                    |p4      |		MOVEQ.L	#0x34,D0
00021e32 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021e34 51 c8 ff fc              |Q       |		DBF	D0,0x21e32
00021e38 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021e3a 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021e3e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021e40 3f 3c 00 35              |?< 5    |		MOVE.W	#0x35,-(A7)
00021e44 4e 92                    |N       |		JSR	(A2)
00021e46 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e48 48 78 00 02              |Hx      |		PEA.L	0x2
00021e4c 48 78 00 05              |Hx      |		PEA.L	0x5
00021e50 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00021e56 de c5                    |        |		ADDA.W	D5,A7
00021e58 2e 1f                    |.       |		MOVE.L	(A7)+,D7
00021e5a de fc 00 36              |   6    |		ADDA.W	#0x36,A7
00021e5e 20 07                    |        |		MOVE.L	D7,D0
00021e60 55 80                    |U       |		SUBQ.L	#0x2,D0
00021e62 0c 80 00 00 00 03        |        |		CMPI.L	#0x00000003,D0
00021e68 63 02                    |c       |		BLS	0x21e6c
00021e6a 4e 4e                    |NN      |		TRAP	#14
00021e6c d0 40                    | @      |		ADD.W	D0,D0
00021e6e 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00021e76 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x21e7e
00021e78 00 3c                    | <      |		.CONST	0x3c			; [0x1] -> 0x21eb2
00021e7a 00 6e                    | n      |		.CONST	0x6e			; [0x2] -> 0x21ee4
00021e7c 00 a0                    |        |		.CONST	0xa0			; [0x3] -> 0x21f16
00021e7e					switch@0x21e6e[0x0]:
00021e7e 3f 3a ea 52              |?: R    |		MOVE.W	0x208d2,-(A7)
00021e82 3f 3a ea 4c              |?: L    |		MOVE.W	0x208d0,-(A7)
00021e86 3f 3a ea 46              |?: F    |		MOVE.W	0x208ce,-(A7)
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 06              |?<      |		MOVE.W	#0x6,-(A7)
00021e96 4e 92                    |N       |		JSR	(A2)
00021e98 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e9a 2d 5f ff f2              |-_      |		MOVE.L	(A7)+,(A6-0xe)
00021e9e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021ea0 20 4f                    | O      |		MOVEA.L	A7,A0
00021ea2 43 fa ea 30              |C  0    |		LEA.L	0x208d4,A1
00021ea6 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021ea8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021eaa 51 c8 ff fc              |Q       |		DBF	D0,0x21ea8
00021eae 60 00 00 96              |`       |		BRA	0x21f46
00021eb2					switch@0x21e6e[0x1]:
00021eb2 3f 3a ea 2c              |?: ,    |		MOVE.W	0x208e0,-(A7)
00021eb6 3f 3a ea 26              |?: &    |		MOVE.W	0x208de,-(A7)
00021eba 3f 3a ea 20              |?:      |		MOVE.W	0x208dc,-(A7)
00021ebe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ec0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021ec4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021ec6 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00021eca 4e 92                    |N       |		JSR	(A2)
00021ecc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ece 2d 5f ff f2              |-_      |		MOVE.L	(A7)+,(A6-0xe)
00021ed2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021ed4 20 4f                    | O      |		MOVEA.L	A7,A0
00021ed6 43 fa ea 0a              |C       |		LEA.L	0x208e2,A1
00021eda 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021edc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021ede 51 c8 ff fc              |Q       |		DBF	D0,0x21edc
00021ee2 60 62                    |`b      |		BRA	0x21f46
00021ee4					switch@0x21e6e[0x2]:
00021ee4 3f 3a ea 08              |?:      |		MOVE.W	0x208ee,-(A7)
00021ee8 3f 3a ea 02              |?:      |		MOVE.W	0x208ec,-(A7)
00021eec 3f 3a e9 fc              |?:      |		MOVE.W	0x208ea,-(A7)
00021ef0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ef2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021ef6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021ef8 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00021efc 4e 92                    |N       |		JSR	(A2)
00021efe 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f00 2d 5f ff f2              |-_      |		MOVE.L	(A7)+,(A6-0xe)
00021f04 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021f06 20 4f                    | O      |		MOVEA.L	A7,A0
00021f08 43 fa e9 e6              |C       |		LEA.L	0x208f0,A1
00021f0c 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021f0e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f10 51 c8 ff fc              |Q       |		DBF	D0,0x21f0e
00021f14 60 30                    |`0      |		BRA	0x21f46
00021f16					switch@0x21e6e[0x3]:
00021f16 3f 3a e9 e4              |?:      |		MOVE.W	0x208fc,-(A7)
00021f1a 3f 3a e9 de              |?:      |		MOVE.W	0x208fa,-(A7)
00021f1e 3f 3a e9 d8              |?:      |		MOVE.W	0x208f8,-(A7)
00021f22 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f24 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f28 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f2a 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00021f2e 4e 92                    |N       |		JSR	(A2)
00021f30 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f32 2d 5f ff f2              |-_      |		MOVE.L	(A7)+,(A6-0xe)
00021f36 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021f38 20 4f                    | O      |		MOVEA.L	A7,A0
00021f3a 43 fa e9 c2              |C       |		LEA.L	0x208fe,A1
00021f3e 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021f40 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f42 51 c8 ff fc              |Q       |		DBF	D0,0x21f40
00021f46 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f48 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f4c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f4e 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00021f52 4e 92                    |N       |		JSR	(A2)
00021f54 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f56 2d 5f ff f6              |-_      |		MOVE.L	(A7)+,(A6-0xa)
00021f5a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f5c 9e fc 00 46              |   F    |		SUBA.W	#0x46,A7
00021f60 20 4f                    | O      |		MOVEA.L	A7,A0
00021f62 43 fa e8 fe              |C       |		LEA.L	0x20862,A1
00021f66 70 44                    |pD      |		MOVEQ.L	#0x44,D0
00021f68 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f6a 51 c8 ff fc              |Q       |		DBF	D0,0x21f68
00021f6e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021f70 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021f74 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f76 3f 3c 00 45              |?< E    |		MOVE.W	#0x45,-(A7)
00021f7a 4e 92                    |N       |		JSR	(A2)
00021f7c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f7e 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00021f84 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021f86 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021f88 de fc 00 46              |   F    |		ADDA.W	#0x46,A7
00021f8c 4a 54                    |JT      |		TST.W	(A4)
00021f8e 67 cc                    |g       |		BEQ	0x21f5c
00021f90 41 fa e9 3c              |A  <    |		LEA.L	0x208ce,A0
00021f94 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021f96 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021f98 51 c8 ff fc              |Q       |		DBF	D0,0x21f96
00021f9c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021f9e 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021fa2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021fa4 3f 3c 00 26              |?< &    |		MOVE.W	#0x26,-(A7)
00021fa8 4e 92                    |N       |		JSR	(A2)
00021faa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fac 48 78 00 40              |Hx @    |		PEA.L	0x40
00021fb0 48 78 01 00              |Hx      |		PEA.L	0x100
00021fb4 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00021fba de c5                    |        |		ADDA.W	D5,A7
00021fbc 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00021fbe de c3                    |        |		ADDA.W	D3,A7
00021fc0 3e 84                    |>       |		MOVE.W	D4,(A7)
00021fc2 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
00021fc6 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00021fcc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021fce 4e 93                    |N       |		JSR	(A3)
00021fd0 4a b9 00 02 39 86        |J   9   |		TST.L	0x23986
00021fd6 66 76                    |fv      |		BNE	0x2204e
00021fd8 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021fda 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
00021fde 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00021fe4 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021fe6 3e 84                    |>       |		MOVE.W	D4,(A7)
00021fe8 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
00021fec 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00021ff2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021ff4 3e 84                    |>       |		MOVE.W	D4,(A7)
00021ff6 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
00021ffa 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00022000 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022002 3e 84                    |>       |		MOVE.W	D4,(A7)
00022004 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00022008 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
0002200e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022010 4e 93                    |N       |		JSR	(A3)
00022012 4a b9 00 02 39 86        |J   9   |		TST.L	0x23986
00022018 66 34                    |f4      |		BNE	0x2204e
0002201a 41 fa e6 8c              |A       |		LEA.L	0x206a8,A0
0002201e 70 0b                    |p       |		MOVEQ.L	#0x0b,D0
00022020 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022022 51 c8 ff fc              |Q       |		DBF	D0,0x22020
00022026 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022028 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002202c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002202e 3f 3c 00 30              |?< 0    |		MOVE.W	#0x30,-(A7)
00022032 4e 92                    |N       |		JSR	(A2)
00022034 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022036 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002203c de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00022040 1e 84                    |        |		MOVE.B	D4,(A7)
00022042 48 78 00 01              |Hx      |		PEA.L	0x1
00022046 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002204c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002204e 41 fa e8 d0              |A       |		LEA.L	0x20920,A0
00022052 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022054 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022056 51 c8 ff fc              |Q       |		DBF	D0,0x22054
0002205a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002205c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022060 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022062 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
00022066 4e 92                    |N       |		JSR	(A2)
00022068 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002206a 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
0002206e de fc 00 16              |        |		ADDA.W	#0x16,A7
00022072 2e ae ff ea              |.       |		MOVE.L	(A6-0x16),(A7)
00022076 4e ba ef 58              |N  X    |		JSR	0x20fd0
0002207a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002207c 4e 93                    |N       |		JSR	(A3)
0002207e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022080 4e ba f1 f4              |N       |		JSR	0x21276
00022084 4a 1f                    |J       |		TST.B	(A7)+
00022086 67 2e                    |g.      |		BEQ	0x220b6
00022088 9e c2                    |        |		SUBA.W	D2,A7
0002208a 20 4f                    | O      |		MOVEA.L	A7,A0
0002208c 43 fa e7 44              |C  D    |		LEA.L	0x207d2,A1
00022090 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022092 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022094 51 c8 ff fc              |Q       |		DBF	D0,0x22092
00022098 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002209a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002209e 3f 01                    |?       |		MOVE.W	D1,-(A7)
000220a0 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
000220a4 4e 92                    |N       |		JSR	(A2)
000220a6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000220a8 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000220ae de fc 00 12              |        |		ADDA.W	#0x12,A7
000220b2 60 00 04 62              |`  b    |		BRA	0x22516
000220b6 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
000220ba 66 0e                    |f       |		BNE	0x220ca
000220bc 41 fa e8 86              |A       |		LEA.L	0x20944,A0
000220c0 70 08                    |p       |		MOVEQ.L	#0x08,D0
000220c2 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000220c4 51 c8 ff fc              |Q       |		DBF	D0,0x220c2
000220c8 60 0c                    |`       |		BRA	0x220d6
000220ca 41 fa e8 9c              |A       |		LEA.L	0x20968,A0
000220ce 70 08                    |p       |		MOVEQ.L	#0x08,D0
000220d0 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000220d2 51 c8 ff fc              |Q       |		DBF	D0,0x220d0
000220d6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000220d8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000220dc 3f 01                    |?       |		MOVE.W	D1,-(A7)
000220de 3f 03                    |?       |		MOVE.W	D3,-(A7)
000220e0 4e 92                    |N       |		JSR	(A2)
000220e2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000220e4 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
000220e8 de c3                    |        |		ADDA.W	D3,A7
000220ea 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
000220ee 4e ba ee e0              |N       |		JSR	0x20fd0
000220f2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000220f4 4e 93                    |N       |		JSR	(A3)
000220f6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000220f8 4e ba f3 1e              |N       |		JSR	0x21418
000220fc 4a 1f                    |J       |		TST.B	(A7)+
000220fe 67 2e                    |g.      |		BEQ	0x2212e
00022100 9e c5                    |        |		SUBA.W	D5,A7
00022102 20 4f                    | O      |		MOVEA.L	A7,A0
00022104 43 fa e6 24              |C  $    |		LEA.L	0x2072a,A1
00022108 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002210a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002210c 51 c8 ff fc              |Q       |		DBF	D0,0x2210a
00022110 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022112 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022116 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022118 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
0002211c 4e 92                    |N       |		JSR	(A2)
0002211e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022120 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022126 de fc 00 10              |        |		ADDA.W	#0x10,A7
0002212a 60 00 03 ea              |`       |		BRA	0x22516
0002212e 41 fa e8 52              |A  R    |		LEA.L	0x20982,A0
00022132 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022134 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022136 51 c8 ff fc              |Q       |		DBF	D0,0x22134
0002213a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002213c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022140 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022142 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
00022146 4e 92                    |N       |		JSR	(A2)
00022148 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002214a 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
0002214e de fc 00 16              |        |		ADDA.W	#0x16,A7
00022152 2e ae ff ea              |.       |		MOVE.L	(A6-0x16),(A7)
00022156 4e ba ee 78              |N  x    |		JSR	0x20fd0
0002215a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002215c 4e 93                    |N       |		JSR	(A3)
0002215e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022160 4e ba f1 14              |N       |		JSR	0x21276
00022164 4a 1f                    |J       |		TST.B	(A7)+
00022166 67 14                    |g       |		BEQ	0x2217c
00022168 9e c2                    |        |		SUBA.W	D2,A7
0002216a 20 4f                    | O      |		MOVEA.L	A7,A0
0002216c 43 fa e6 64              |C  d    |		LEA.L	0x207d2,A1
00022170 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022172 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022174 51 c8 ff fc              |Q       |		DBF	D0,0x22172
00022178 60 00 ff 1e              |`       |		BRA	0x22098
0002217c 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
00022180 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022186 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022188 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
0002218c 66 0e                    |f       |		BNE	0x2219c
0002218e 41 fa e7 fc              |A       |		LEA.L	0x2098c,A0
00022192 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022194 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022196 51 c8 ff fc              |Q       |		DBF	D0,0x22194
0002219a 60 0c                    |`       |		BRA	0x221a8
0002219c 41 fa e7 f8              |A       |		LEA.L	0x20996,A0
000221a0 70 04                    |p       |		MOVEQ.L	#0x04,D0
000221a2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000221a4 51 c8 ff fc              |Q       |		DBF	D0,0x221a2
000221a8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000221aa 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000221ae 3f 01                    |?       |		MOVE.W	D1,-(A7)
000221b0 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
000221b4 4e 92                    |N       |		JSR	(A2)
000221b6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000221b8 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
000221bc de fc 00 0a              |        |		ADDA.W	#0xa,A7
000221c0 2f 3a e7 d4              |/:      |		MOVE.L	0x20996,-(A7)
000221c4 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
000221c8 20 4f                    | O      |		MOVEA.L	A7,A0
000221ca 43 fa e7 ce              |C       |		LEA.L	0x2099a,A1
000221ce 70 18                    |p       |		MOVEQ.L	#0x18,D0
000221d0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000221d2 51 c8 ff fc              |Q       |		DBF	D0,0x221d0
000221d6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000221d8 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
000221dc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000221de 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
000221e2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000221e4 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
000221e8 4e 92                    |N       |		JSR	(A2)
000221ea 2e 86                    |.       |		MOVE.L	D6,(A7)
000221ec 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000221f2 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
000221f6 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000221fc 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
00022200 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022202 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
00022206 4e 92                    |N       |		JSR	(A2)
00022208 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002220a 4e b9 00 01 02 dc        |N       |		JSR	StringCat5(a, b, c, d, e : String) : String
00022210 de fc 00 14              |        |		ADDA.W	#0x14,A7
00022214 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
00022218 de fc 00 1a              |        |		ADDA.W	#0x1a,A7
0002221c 2e ae ff ea              |.       |		MOVE.L	(A6-0x16),(A7)
00022220 4e ba ed ae              |N       |		JSR	0x20fd0
00022224 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022226 4e 93                    |N       |		JSR	(A3)
00022228 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002222a 4e ba f0 4a              |N  J    |		JSR	0x21276
0002222e 4a 1f                    |J       |		TST.B	(A7)+
00022230 67 14                    |g       |		BEQ	0x22246
00022232 9e c2                    |        |		SUBA.W	D2,A7
00022234 20 4f                    | O      |		MOVEA.L	A7,A0
00022236 43 fa e5 9a              |C       |		LEA.L	0x207d2,A1
0002223a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002223c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002223e 51 c8 ff fc              |Q       |		DBF	D0,0x2223c
00022242 60 00 fe 54              |`  T    |		BRA	0x22098
00022246 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
0002224a 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022250 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022252 20 4f                    | O      |		MOVEA.L	A7,A0
00022254 43 fa e7 5e              |C  ^    |		LEA.L	0x209b4,A1
00022258 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002225a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002225c 51 c8 ff fc              |Q       |		DBF	D0,0x2225a
00022260 41 fa e7 78              |A  x    |		LEA.L	0x209da,A0
00022264 70 07                    |p       |		MOVEQ.L	#0x07,D0
00022266 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022268 51 c8 ff fc              |Q       |		DBF	D0,0x22266
0002226c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002226e 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
00022272 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022274 48 6f 00 2c              |Ho ,    |		PEA.L	(A7+0x2c)
00022278 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002227a 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
0002227e 4e 92                    |N       |		JSR	(A2)
00022280 2e ae ff f2              |.       |		MOVE.L	(A6-0xe),(A7)
00022284 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
0002228a 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
0002228e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022290 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00022294 4e 92                    |N       |		JSR	(A2)
00022296 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022298 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
0002229e de fc 00 10              |        |		ADDA.W	#0x10,A7
000222a2 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
000222a6 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
000222aa 2e ae ff ea              |.       |		MOVE.L	(A6-0x16),(A7)
000222ae 4e ba ed 20              |N       |		JSR	0x20fd0
000222b2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000222b4 4e 93                    |N       |		JSR	(A3)
000222b6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000222b8 4e ba ef bc              |N       |		JSR	0x21276
000222bc 4a 1f                    |J       |		TST.B	(A7)+
000222be 67 14                    |g       |		BEQ	0x222d4
000222c0 9e c2                    |        |		SUBA.W	D2,A7
000222c2 20 4f                    | O      |		MOVEA.L	A7,A0
000222c4 43 fa e5 1a              |C       |		LEA.L	0x207e0,A1
000222c8 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000222ca 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000222cc 51 c8 ff fc              |Q       |		DBF	D0,0x222ca
000222d0 60 00 fd c6              |`       |		BRA	0x22098
000222d4 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
000222d8 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000222de 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000222e0 41 fa e7 06              |A       |		LEA.L	0x209e8,A0
000222e4 70 06                    |p       |		MOVEQ.L	#0x06,D0
000222e6 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000222e8 51 c8 ff fc              |Q       |		DBF	D0,0x222e6
000222ec 9e c2                    |        |		SUBA.W	D2,A7
000222ee 20 4f                    | O      |		MOVEA.L	A7,A0
000222f0 43 fa e6 f6              |C       |		LEA.L	0x209e8,A1
000222f4 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000222f6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000222f8 51 c8 ff fc              |Q       |		DBF	D0,0x222f6
000222fc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000222fe 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
00022302 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022304 48 6f 00 1a              |Ho      |		PEA.L	(A7+0x1a)
00022308 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002230a 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002230c 4e 92                    |N       |		JSR	(A2)
0002230e 2e 86                    |.       |		MOVE.L	D6,(A7)
00022310 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00022316 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
0002231a 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022320 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
00022324 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022326 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
0002232a 4e 92                    |N       |		JSR	(A2)
0002232c 2e 86                    |.       |		MOVE.L	D6,(A7)
0002232e 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00022334 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022336 4e b9 00 01 02 e0        |N       |		JSR	StringCat6(a, b, c, d, e, f : String) : String
0002233c de fc 00 18              |        |		ADDA.W	#0x18,A7
00022340 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
00022344 de fc 00 18              |        |		ADDA.W	#0x18,A7
00022348 2e ae ff ea              |.       |		MOVE.L	(A6-0x16),(A7)
0002234c 4e ba ec 82              |N       |		JSR	0x20fd0
00022350 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022352 4e 93                    |N       |		JSR	(A3)
00022354 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022356 4e ba ef 1e              |N       |		JSR	0x21276
0002235a 4a 1f                    |J       |		TST.B	(A7)+
0002235c 67 14                    |g       |		BEQ	0x22372
0002235e 9e c2                    |        |		SUBA.W	D2,A7
00022360 20 4f                    | O      |		MOVEA.L	A7,A0
00022362 43 fa e4 8a              |C       |		LEA.L	0x207ee,A1
00022366 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022368 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002236a 51 c8 ff fc              |Q       |		DBF	D0,0x22368
0002236e 60 00 fd 28              |`  (    |		BRA	0x22098
00022372 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
00022376 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
0002237c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002237e 20 4f                    | O      |		MOVEA.L	A7,A0
00022380 43 fa e6 74              |C  t    |		LEA.L	0x209f6,A1
00022384 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022386 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022388 51 c8 ff fc              |Q       |		DBF	D0,0x22386
0002238c 2f 3a e6 6e              |/: n    |		MOVE.L	0x209fc,-(A7)
00022390 41 fa e6 78              |A  x    |		LEA.L	0x20a0a,A0
00022394 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022396 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022398 51 c8 ff fc              |Q       |		DBF	D0,0x22396
0002239c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002239e 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
000223a2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000223a4 48 6f 00 1a              |Ho      |		PEA.L	(A7+0x1a)
000223a8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000223aa 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
000223ae 4e 92                    |N       |		JSR	(A2)
000223b0 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
000223b4 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000223ba 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
000223be 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000223c4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000223c6 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000223cc 48 6f 00 22              |Ho "    |		PEA.L	(A7+0x22)
000223d0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000223d2 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
000223d6 4e 92                    |N       |		JSR	(A2)
000223d8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000223da 2e 8c                    |.       |		MOVE.L	A4,(A7)
000223dc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000223de 48 6f 00 20              |Ho      |		PEA.L	(A7+0x20)
000223e2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000223e4 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
000223e8 4e 92                    |N       |		JSR	(A2)
000223ea 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000223ec 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
000223f2 de c5                    |        |		ADDA.W	D5,A7
000223f4 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
000223fa de fc 00 10              |        |		ADDA.W	#0x10,A7
000223fe 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
00022402 de fc 00 10              |        |		ADDA.W	#0x10,A7
00022406 2e ae ff ea              |.       |		MOVE.L	(A6-0x16),(A7)
0002240a 4e ba eb c4              |N       |		JSR	0x20fd0
0002240e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022410 4e 93                    |N       |		JSR	(A3)
00022412 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022414 4e ba ee 60              |N  `    |		JSR	0x21276
00022418 4a 1f                    |J       |		TST.B	(A7)+
0002241a 67 56                    |gV      |		BEQ	0x22472
0002241c 9e fc 00 40              |   @    |		SUBA.W	#0x40,A7
00022420 20 4f                    | O      |		MOVEA.L	A7,A0
00022422 43 fa e2 84              |C       |		LEA.L	0x206a8,A1
00022426 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
00022428 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002242a 51 c8 ff fc              |Q       |		DBF	D0,0x22428
0002242e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022430 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022434 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022436 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
0002243a 4e 92                    |N       |		JSR	(A2)
0002243c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002243e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022444 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
00022448 41 fa e2 e0              |A       |		LEA.L	0x2072a,A0
0002244c 70 20                    |p       |		MOVEQ.L	#0x20,D0
0002244e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022450 51 c8 ff fc              |Q       |		DBF	D0,0x2244e
00022454 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022456 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002245a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002245c 3f 3c 00 42              |?< B    |		MOVE.W	#0x42,-(A7)
00022460 4e 92                    |N       |		JSR	(A2)
00022462 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022464 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002246a de fc 00 46              |   F    |		ADDA.W	#0x46,A7
0002246e 60 00 01 1c              |`       |		BRA	0x2258c
00022472 9e c2                    |        |		SUBA.W	D2,A7
00022474 20 4f                    | O      |		MOVEA.L	A7,A0
00022476 43 fa e5 92              |C       |		LEA.L	0x20a0a,A1
0002247a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002247c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002247e 51 c8 ff fc              |Q       |		DBF	D0,0x2247c
00022482 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022484 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022488 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002248a 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
0002248e 4e 92                    |N       |		JSR	(A2)
00022490 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022492 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
00022496 de fc 00 0a              |        |		ADDA.W	#0xa,A7
0002249a 2e ae ff ea              |.       |		MOVE.L	(A6-0x16),(A7)
0002249e 4e ba eb 30              |N  0    |		JSR	0x20fd0
000224a2 2e bc 00 02 fa ee        |.       |		MOVE.L	#0x2faee,(A7)
000224a8 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
000224ae 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000224b0 4e 93                    |N       |		JSR	(A3)
000224b2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000224b4 4e ba ef 62              |N  b    |		JSR	0x21418
000224b8 4a 1f                    |J       |		TST.B	(A7)+
000224ba 67 14                    |g       |		BEQ	0x224d0
000224bc 9e c5                    |        |		SUBA.W	D5,A7
000224be 20 4f                    | O      |		MOVEA.L	A7,A0
000224c0 43 fa e3 3a              |C  :    |		LEA.L	0x207fc,A1
000224c4 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000224c6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000224c8 51 c8 ff fc              |Q       |		DBF	D0,0x224c6
000224cc 60 00 fc 42              |`  B    |		BRA	0x22110
000224d0 9e fc 00 2a              |   *    |		SUBA.W	#0x2a,A7
000224d4 20 4f                    | O      |		MOVEA.L	A7,A0
000224d6 43 fa e5 40              |C  @    |		LEA.L	0x20a18,A1
000224da 70 28                    |p(      |		MOVEQ.L	#0x28,D0
000224dc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000224de 51 c8 ff fc              |Q       |		DBF	D0,0x224dc
000224e2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000224e4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000224e8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000224ea 3f 3c 00 29              |?< )    |		MOVE.W	#0x29,-(A7)
000224ee 4e 92                    |N       |		JSR	(A2)
000224f0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224f2 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000224f8 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
000224fc 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00022500 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022506 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022508 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
0002250c 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022512 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022514 60 76                    |`v      |		BRA	0x2258c
00022516 9e fc 00 40              |   @    |		SUBA.W	#0x40,A7
0002251a 20 4f                    | O      |		MOVEA.L	A7,A0
0002251c 43 fa e2 18              |C       |		LEA.L	0x20736,A1
00022520 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
00022522 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022524 51 c8 ff fc              |Q       |		DBF	D0,0x22522
00022528 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002252a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002252e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022530 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
00022534 4e 92                    |N       |		JSR	(A2)
00022536 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022538 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002253e de fc 00 44              |   D    |		ADDA.W	#0x44,A7
00022542 41 fa e2 6e              |A  n    |		LEA.L	0x207b2,A0
00022546 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022548 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002254a 51 c8 ff fc              |Q       |		DBF	D0,0x22548
0002254e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022550 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022554 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022556 3f 3c 00 3c              |?< <    |		MOVE.W	#0x3c,-(A7)
0002255a 4e 92                    |N       |		JSR	(A2)
0002255c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002255e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022564 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00022568 41 fa e2 68              |A  h    |		LEA.L	0x207d2,A0
0002256c 70 07                    |p       |		MOVEQ.L	#0x07,D0
0002256e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022570 51 c8 ff fc              |Q       |		DBF	D0,0x2256e
00022574 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022576 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002257a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002257c 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00022580 4e 92                    |N       |		JSR	(A2)
00022582 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022584 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002258a de c3                    |        |		ADDA.W	D3,A7
0002258c 4e ba ea 18              |N       |		JSR	0x20fa6
00022590 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022594 4e 5e                    |N^      |		UNLK	A6
00022596 4e 75                    |Nu      |		RTS
00022598 ; --------------------------------------------------------------------------------------
00022598 ; OMSI PASCAL Function
00022598 ;    <LVAR -0x004 @ 4(rw)>
00022598 ;    <LVAR -0x008 @ 4(rw)>
00022598 ;    <LVAR -0x010 @ 4(rw)>
00022598 ; --------------------------------------------------------------------------------------
00022598 4e 56 ff 42              |NV B    |		LINK.W	A6,#0xff42
0002259c bf d5                    |        |		CMPA.L	(A5),A7
0002259e 62 06                    |b       |		BHI	0x225a6
000225a0 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000225a4 4e 76                    |Nv      |		TRAPV
000225a6 de fc 00 aa              |        |		ADDA.W	#0xaa,A7
000225aa 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000225ae 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000225b4 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
000225b8 72 01                    |r       |		MOVEQ.L	#0x01,D1
000225ba 74 10                    |t       |		MOVEQ.L	#0x10,D2
000225bc 76 02                    |v       |		MOVEQ.L	#0x02,D3
000225be 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
000225c0 7a 06                    |z       |		MOVEQ.L	#0x06,D5
000225c2 7c 36                    ||6      |		MOVEQ.L	#0x36,D6
000225c4 9e c6                    |        |		SUBA.W	D6,A7
000225c6 20 4f                    | O      |		MOVEA.L	A7,A0
000225c8 43 fa e6 18              |C       |		LEA.L	0x20be2,A1
000225cc 70 34                    |p4      |		MOVEQ.L	#0x34,D0
000225ce 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000225d0 51 c8 ff fc              |Q       |		DBF	D0,0x225ce
000225d4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000225d6 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000225da 3f 01                    |?       |		MOVE.W	D1,-(A7)
000225dc 3f 3c 00 35              |?< 5    |		MOVE.W	#0x35,-(A7)
000225e0 4e 92                    |N       |		JSR	(A2)
000225e2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000225e4 48 78 00 02              |Hx      |		PEA.L	0x2
000225e8 48 78 00 05              |Hx      |		PEA.L	0x5
000225ec 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
000225f2 de c4                    |        |		ADDA.W	D4,A7
000225f4 2e 1f                    |.       |		MOVE.L	(A7)+,D7
000225f6 de c6                    |        |		ADDA.W	D6,A7
000225f8 20 07                    |        |		MOVE.L	D7,D0
000225fa 55 80                    |U       |		SUBQ.L	#0x2,D0
000225fc 0c 80 00 00 00 03        |        |		CMPI.L	#0x00000003,D0
00022602 63 02                    |c       |		BLS	0x22606
00022604 4e 4e                    |NN      |		TRAP	#14
00022606 d0 40                    | @      |		ADD.W	D0,D0
00022608 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00022610 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x22618
00022612 00 38                    | 8      |		.CONST	0x38			; [0x1] -> 0x22648
00022614 00 66                    | f      |		.CONST	0x66			; [0x2] -> 0x22676
00022616 00 94                    |        |		.CONST	0x94			; [0x3] -> 0x226a4
00022618					switch@0x22608[0x0]:
00022618 3f 3a e6 64              |?: d    |		MOVE.W	0x20c7e,-(A7)
0002261c 3f 3a e6 5e              |?: ^    |		MOVE.W	0x20c7c,-(A7)
00022620 3f 3a e6 58              |?: X    |		MOVE.W	0x20c7a,-(A7)
00022624 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022626 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002262a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002262c 3f 05                    |?       |		MOVE.W	D5,-(A7)
0002262e 4e 92                    |N       |		JSR	(A2)
00022630 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022632 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00022634 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022636 20 4f                    | O      |		MOVEA.L	A7,A0
00022638 43 fa e6 46              |C  F    |		LEA.L	0x20c80,A1
0002263c 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002263e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022640 51 c8 ff fc              |Q       |		DBF	D0,0x2263e
00022644 60 00 00 8a              |`       |		BRA	0x226d0
00022648					switch@0x22608[0x1]:
00022648 3f 3a e6 42              |?: B    |		MOVE.W	0x20c8c,-(A7)
0002264c 3f 3a e6 3c              |?: <    |		MOVE.W	0x20c8a,-(A7)
00022650 3f 3a e6 36              |?: 6    |		MOVE.W	0x20c88,-(A7)
00022654 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022656 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002265a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002265c 3f 05                    |?       |		MOVE.W	D5,-(A7)
0002265e 4e 92                    |N       |		JSR	(A2)
00022660 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022662 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00022664 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022666 20 4f                    | O      |		MOVEA.L	A7,A0
00022668 43 fa e6 24              |C  $    |		LEA.L	0x20c8e,A1
0002266c 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002266e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022670 51 c8 ff fc              |Q       |		DBF	D0,0x2266e
00022674 60 5a                    |`Z      |		BRA	0x226d0
00022676					switch@0x22608[0x2]:
00022676 3f 3a e6 22              |?: "    |		MOVE.W	0x20c9a,-(A7)
0002267a 3f 3a e6 1c              |?:      |		MOVE.W	0x20c98,-(A7)
0002267e 3f 3a e6 16              |?:      |		MOVE.W	0x20c96,-(A7)
00022682 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022684 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022688 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002268a 3f 05                    |?       |		MOVE.W	D5,-(A7)
0002268c 4e 92                    |N       |		JSR	(A2)
0002268e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022690 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00022692 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022694 20 4f                    | O      |		MOVEA.L	A7,A0
00022696 43 fa e6 04              |C       |		LEA.L	0x20c9c,A1
0002269a 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002269c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002269e 51 c8 ff fc              |Q       |		DBF	D0,0x2269c
000226a2 60 2c                    |`,      |		BRA	0x226d0
000226a4					switch@0x22608[0x3]:
000226a4 3f 3a e6 02              |?:      |		MOVE.W	0x20ca8,-(A7)
000226a8 3f 3a e5 fc              |?:      |		MOVE.W	0x20ca6,-(A7)
000226ac 3f 3a e5 f6              |?:      |		MOVE.W	0x20ca4,-(A7)
000226b0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000226b2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000226b6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000226b8 3f 05                    |?       |		MOVE.W	D5,-(A7)
000226ba 4e 92                    |N       |		JSR	(A2)
000226bc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000226be 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
000226c0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000226c2 20 4f                    | O      |		MOVEA.L	A7,A0
000226c4 43 fa e5 e4              |C       |		LEA.L	0x20caa,A1
000226c8 70 06                    |p       |		MOVEQ.L	#0x06,D0
000226ca 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000226cc 51 c8 ff fc              |Q       |		DBF	D0,0x226ca
000226d0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000226d2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000226d6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000226d8 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
000226dc 4e 92                    |N       |		JSR	(A2)
000226de 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000226e0 2d 5f ff fc              |-_      |		MOVE.L	(A7)+,(A6-0x4)
000226e4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000226e6 42 39 00 02 31 80        |B9  1   |		CLR.B	0x23180
000226ec 4e b9 00 01 02 16        |N       |		JSR	KC0b
000226f2 4e ba e9 5a              |N  Z    |		JSR	0x2104e
000226f6 9e fc 00 24              |   $    |		SUBA.W	#0x24,A7
000226fa 20 4f                    | O      |		MOVEA.L	A7,A0
000226fc 43 fa e5 1a              |C       |		LEA.L	0x20c18,A1
00022700 70 22                    |p"      |		MOVEQ.L	#0x22,D0
00022702 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022704 51 c8 ff fc              |Q       |		DBF	D0,0x22702
00022708 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002270a 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002270e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022710 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
00022714 4e 92                    |N       |		JSR	(A2)
00022716 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022718 42 17                    |B       |		CLR.B	(A7)
0002271a 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00022720 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022722 10 1f                    |        |		MOVE.B	(A7)+,D0
00022724 48 80                    |H       |		EXTB.W	D0
00022726 41 81                    |A       |		CHK.W	D1,D0
00022728 de fc 00 24              |   $    |		ADDA.W	#0x24,A7
0002272c 13 c0 00 02 31 80        |    1   |		MOVE.B	D0,0x23180
00022732 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022734 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022736 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
0002273c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002273e 4e ba e9 0e              |N       |		JSR	0x2104e
00022742 4a b9 00 02 39 86        |J   9   |		TST.L	0x23986
00022748 66 78                    |fx      |		BNE	0x227c2
0002274a 3f 03                    |?       |		MOVE.W	D3,-(A7)
0002274c 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
00022750 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00022756 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022758 3e 83                    |>       |		MOVE.W	D3,(A7)
0002275a 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
0002275e 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00022764 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022766 3e 83                    |>       |		MOVE.W	D3,(A7)
00022768 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
0002276c 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00022772 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022774 3e 83                    |>       |		MOVE.W	D3,(A7)
00022776 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
0002277a 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00022780 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022782 4e ba e8 ca              |N       |		JSR	0x2104e
00022786 4a b9 00 02 39 86        |J   9   |		TST.L	0x23986
0002278c 66 34                    |f4      |		BNE	0x227c2
0002278e 41 fa e2 e2              |A       |		LEA.L	0x20a72,A0
00022792 70 0b                    |p       |		MOVEQ.L	#0x0b,D0
00022794 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022796 51 c8 ff fc              |Q       |		DBF	D0,0x22794
0002279a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002279c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000227a0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000227a2 3f 3c 00 30              |?< 0    |		MOVE.W	#0x30,-(A7)
000227a6 4e 92                    |N       |		JSR	(A2)
000227a8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000227aa 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000227b0 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000227b4 1e 83                    |        |		MOVE.B	D3,(A7)
000227b6 48 78 00 01              |Hx      |		PEA.L	0x1
000227ba 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000227c0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000227c2 9e fc 00 3e              |   >    |		SUBA.W	#0x3e,A7
000227c6 20 4f                    | O      |		MOVEA.L	A7,A0
000227c8 43 fa e4 72              |C  r    |		LEA.L	0x20c3c,A1
000227cc 70 3c                    |p<      |		MOVEQ.L	#0x3c,D0
000227ce 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000227d0 51 c8 ff fc              |Q       |		DBF	D0,0x227ce
000227d4 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000227d6 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000227da 3f 01                    |?       |		MOVE.W	D1,-(A7)
000227dc 3f 3c 00 3d              |?< =    |		MOVE.W	#0x3d,-(A7)
000227e0 4e 92                    |N       |		JSR	(A2)
000227e2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000227e4 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
000227ea 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000227ec 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
000227ee de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
000227f2 4a 54                    |JT      |		TST.W	(A4)
000227f4 67 cc                    |g       |		BEQ	0x227c2
000227f6 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
000227fa 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022800 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00022802 20 4f                    | O      |		MOVEA.L	A7,A0
00022804 43 fa e4 ac              |C       |		LEA.L	0x20cb2,A1
00022808 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002280a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002280c 51 c8 ff fc              |Q       |		DBF	D0,0x2280a
00022810 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00022814 20 4f                    | O      |		MOVEA.L	A7,A0
00022816 43 fa e4 a4              |C       |		LEA.L	0x20cbc,A1
0002281a 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002281c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002281e 51 c8 ff fc              |Q       |		DBF	D0,0x2281c
00022822 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022824 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00022828 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002282a 48 6f 00 16              |Ho      |		PEA.L	(A7+0x16)
0002282e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022830 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00022834 4e 92                    |N       |		JSR	(A2)
00022836 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022838 2e 8c                    |.       |		MOVE.L	A4,(A7)
0002283a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002283c 2f 2e ff fc              |/.      |		MOVE.L	(A6-0x4),-(A7)
00022840 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022846 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022848 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
0002284e 48 6f 00 20              |Ho      |		PEA.L	(A7+0x20)
00022852 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022854 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00022858 4e 92                    |N       |		JSR	(A2)
0002285a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002285c 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00022862 de c4                    |        |		ADDA.W	D4,A7
00022864 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
0002286a de c2                    |        |		ADDA.W	D2,A7
0002286c 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00022870 de c2                    |        |		ADDA.W	D2,A7
00022872 2e ae ff f0              |.       |		MOVE.L	(A6-0x10),(A7)
00022876 4e ba e7 58              |N  X    |		JSR	0x20fd0
0002287a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002287c 4e ba e7 d0              |N       |		JSR	0x2104e
00022880 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022882 4e ba e9 f2              |N       |		JSR	0x21276
00022886 4a 1f                    |J       |		TST.B	(A7)+
00022888 67 56                    |gV      |		BEQ	0x228e0
0002288a 9e fc 00 40              |   @    |		SUBA.W	#0x40,A7
0002288e 20 4f                    | O      |		MOVEA.L	A7,A0
00022890 43 fa e1 e0              |C       |		LEA.L	0x20a72,A1
00022894 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
00022896 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022898 51 c8 ff fc              |Q       |		DBF	D0,0x22896
0002289c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002289e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000228a2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000228a4 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
000228a8 4e 92                    |N       |		JSR	(A2)
000228aa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000228ac 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000228b2 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
000228b6 41 fa e2 3c              |A  <    |		LEA.L	0x20af4,A0
000228ba 70 20                    |p       |		MOVEQ.L	#0x20,D0
000228bc 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000228be 51 c8 ff fc              |Q       |		DBF	D0,0x228bc
000228c2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000228c4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000228c8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000228ca 3f 3c 00 42              |?< B    |		MOVE.W	#0x42,-(A7)
000228ce 4e 92                    |N       |		JSR	(A2)
000228d0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000228d2 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000228d8 de fc 00 46              |   F    |		ADDA.W	#0x46,A7
000228dc 60 00 03 f0              |`       |		BRA	0x22cce
000228e0 41 fa e4 10              |A       |		LEA.L	0x20cf2,A0
000228e4 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000228e6 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000228e8 51 c8 ff fc              |Q       |		DBF	D0,0x228e6
000228ec 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000228ee 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000228f2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000228f4 3f 3c 00 2c              |?< ,    |		MOVE.W	#0x2c,-(A7)
000228f8 4e 92                    |N       |		JSR	(A2)
000228fa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000228fc 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00022900 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00022904 2e ae ff f0              |.       |		MOVE.L	(A6-0x10),(A7)
00022908 4e ba e6 c6              |N       |		JSR	0x20fd0
0002290c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002290e 4e ba e7 3e              |N  >    |		JSR	0x2104e
00022912 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022914 4e ba e9 60              |N  `    |		JSR	0x21276
00022918 4a 1f                    |J       |		TST.B	(A7)+
0002291a 67 30                    |g0      |		BEQ	0x2294c
0002291c 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00022920 20 4f                    | O      |		MOVEA.L	A7,A0
00022922 43 fa e1 d0              |C       |		LEA.L	0x20af4,A1
00022926 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022928 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002292a 51 c8 ff fc              |Q       |		DBF	D0,0x22928
0002292e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022930 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022934 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022936 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
0002293a 4e 92                    |N       |		JSR	(A2)
0002293c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002293e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022944 de fc 00 12              |        |		ADDA.W	#0x12,A7
00022948 60 00 03 0c              |`       |		BRA	0x22c56
0002294c 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00022950 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022956 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022958 41 fa e3 be              |A       |		LEA.L	0x20d18,A0
0002295c 70 12                    |p       |		MOVEQ.L	#0x12,D0
0002295e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022960 51 c8 ff fc              |Q       |		DBF	D0,0x2295e
00022964 9e fc 00 14              |        |		SUBA.W	#0x14,A7
00022968 20 4f                    | O      |		MOVEA.L	A7,A0
0002296a 43 fa e3 ac              |C       |		LEA.L	0x20d18,A1
0002296e 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022970 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022972 51 c8 ff fc              |Q       |		DBF	D0,0x22970
00022976 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022978 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
0002297c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002297e 48 6f 00 20              |Ho      |		PEA.L	(A7+0x20)
00022982 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022984 3f 3c 00 26              |?< &    |		MOVE.W	#0x26,-(A7)
00022988 4e 92                    |N       |		JSR	(A2)
0002298a 2e 93                    |.       |		MOVE.L	(A3),(A7)
0002298c 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022992 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00022996 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022998 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
0002299c 4e 92                    |N       |		JSR	(A2)
0002299e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000229a0 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
000229a6 de c2                    |        |		ADDA.W	D2,A7
000229a8 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
000229ac de c6                    |        |		ADDA.W	D6,A7
000229ae 2e ae ff f0              |.       |		MOVE.L	(A6-0x10),(A7)
000229b2 4e ba e6 1c              |N       |		JSR	0x20fd0
000229b6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000229b8 4e ba e6 94              |N       |		JSR	0x2104e
000229bc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000229be 4e ba e8 b6              |N       |		JSR	0x21276
000229c2 4a 1f                    |J       |		TST.B	(A7)+
000229c4 67 16                    |g       |		BEQ	0x229dc
000229c6 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
000229ca 20 4f                    | O      |		MOVEA.L	A7,A0
000229cc 43 fa e1 d0              |C       |		LEA.L	0x20b9e,A1
000229d0 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000229d2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000229d4 51 c8 ff fc              |Q       |		DBF	D0,0x229d2
000229d8 60 00 ff 54              |`  T    |		BRA	0x2292e
000229dc 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
000229e0 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000229e6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000229e8 41 fa e3 4c              |A  L    |		LEA.L	0x20d36,A0
000229ec 70 04                    |p       |		MOVEQ.L	#0x04,D0
000229ee 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000229f0 51 c8 ff fc              |Q       |		DBF	D0,0x229ee
000229f4 41 fa e3 60              |A  `    |		LEA.L	0x20d56,A0
000229f8 70 07                    |p       |		MOVEQ.L	#0x07,D0
000229fa 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000229fc 51 c8 ff fc              |Q       |		DBF	D0,0x229fa
00022a00 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022a02 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00022a06 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022a08 48 6f 00 2c              |Ho ,    |		PEA.L	(A7+0x2c)
00022a0c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022a0e 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00022a12 4e 92                    |N       |		JSR	(A2)
00022a14 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022a16 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022a1c 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00022a20 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022a22 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00022a26 4e 92                    |N       |		JSR	(A2)
00022a28 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022a2a 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00022a30 de c2                    |        |		ADDA.W	D2,A7
00022a32 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00022a36 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00022a3a 2e ae ff f0              |.       |		MOVE.L	(A6-0x10),(A7)
00022a3e 4e ba e5 90              |N       |		JSR	0x20fd0
00022a42 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a44 4e ba e6 08              |N       |		JSR	0x2104e
00022a48 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022a4a 4e ba e8 2a              |N  *    |		JSR	0x21276
00022a4e 4a 1f                    |J       |		TST.B	(A7)+
00022a50 67 16                    |g       |		BEQ	0x22a68
00022a52 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00022a56 20 4f                    | O      |		MOVEA.L	A7,A0
00022a58 43 fa e1 52              |C  R    |		LEA.L	0x20bac,A1
00022a5c 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022a5e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022a60 51 c8 ff fc              |Q       |		DBF	D0,0x22a5e
00022a64 60 00 fe c8              |`       |		BRA	0x2292e
00022a68 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00022a6c 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022a72 9e c4                    |        |		SUBA.W	D4,A7
00022a74 20 4f                    | O      |		MOVEA.L	A7,A0
00022a76 43 fa e2 de              |C       |		LEA.L	0x20d56,A1
00022a7a 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022a7c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022a7e 51 c8 ff fc              |Q       |		DBF	D0,0x22a7c
00022a82 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00022a86 20 4f                    | O      |		MOVEA.L	A7,A0
00022a88 43 fa e2 dc              |C       |		LEA.L	0x20d66,A1
00022a8c 70 08                    |p       |		MOVEQ.L	#0x08,D0
00022a8e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022a90 51 c8 ff fc              |Q       |		DBF	D0,0x22a8e
00022a94 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022a96 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00022a9a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022a9c 48 6f 00 16              |Ho      |		PEA.L	(A7+0x16)
00022aa0 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022aa2 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00022aa6 4e 92                    |N       |		JSR	(A2)
00022aa8 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022aaa 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022ab0 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00022ab4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022ab6 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00022aba 4e 92                    |N       |		JSR	(A2)
00022abc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022abe 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00022ac4 de c2                    |        |		ADDA.W	D2,A7
00022ac6 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00022aca de fc 00 16              |        |		ADDA.W	#0x16,A7
00022ace 2e ae ff f0              |.       |		MOVE.L	(A6-0x10),(A7)
00022ad2 4e ba e4 fc              |N       |		JSR	0x20fd0
00022ad6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022ad8 4e ba e5 74              |N  t    |		JSR	0x2104e
00022adc 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022ade 4e ba e7 96              |N       |		JSR	0x21276
00022ae2 4a 1f                    |J       |		TST.B	(A7)+
00022ae4 67 16                    |g       |		BEQ	0x22afc
00022ae6 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00022aea 20 4f                    | O      |		MOVEA.L	A7,A0
00022aec 43 fa e0 cc              |C       |		LEA.L	0x20bba,A1
00022af0 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022af2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022af4 51 c8 ff fc              |Q       |		DBF	D0,0x22af2
00022af8 60 00 fe 34              |`  4    |		BRA	0x2292e
00022afc 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00022b00 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022b06 9e fc 00 2c              |   ,    |		SUBA.W	#0x2c,A7
00022b0a 20 4f                    | O      |		MOVEA.L	A7,A0
00022b0c 43 fa e2 62              |C  b    |		LEA.L	0x20d70,A1
00022b10 70 2e                    |p.      |		MOVEQ.L	#0x2e,D0
00022b12 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022b14 51 c8 ff fc              |Q       |		DBF	D0,0x22b12
00022b18 41 fa e2 b0              |A       |		LEA.L	0x20dca,A0
00022b1c 70 14                    |p       |		MOVEQ.L	#0x14,D0
00022b1e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022b20 51 c8 ff fc              |Q       |		DBF	D0,0x22b1e
00022b24 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022b26 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00022b2a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022b2c 48 6f 00 36              |Ho 6    |		PEA.L	(A7+0x36)
00022b30 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022b32 3f 3c 00 2f              |?< /    |		MOVE.W	#0x2f,-(A7)
00022b36 4e 92                    |N       |		JSR	(A2)
00022b38 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022b3a 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00022b3e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022b40 3f 3c 00 2a              |?< *    |		MOVE.W	#0x2a,-(A7)
00022b44 4e 92                    |N       |		JSR	(A2)
00022b46 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022b48 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00022b4e de c4                    |        |		ADDA.W	D4,A7
00022b50 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00022b54 de fc 00 56              |   V    |		ADDA.W	#0x56,A7
00022b58 2e ae ff f0              |.       |		MOVE.L	(A6-0x10),(A7)
00022b5c 4e ba e4 72              |N  r    |		JSR	0x20fd0
00022b60 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022b62 4e ba e4 ea              |N       |		JSR	0x2104e
00022b66 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022b68 4e ba e7 0c              |N       |		JSR	0x21276
00022b6c 4a 1f                    |J       |		TST.B	(A7)+
00022b6e 67 16                    |g       |		BEQ	0x22b86
00022b70 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00022b74 20 4f                    | O      |		MOVEA.L	A7,A0
00022b76 43 fa e0 50              |C  P    |		LEA.L	0x20bc8,A1
00022b7a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022b7c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022b7e 51 c8 ff fc              |Q       |		DBF	D0,0x22b7c
00022b82 60 00 fd aa              |`       |		BRA	0x2292e
00022b86 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00022b8a 20 4f                    | O      |		MOVEA.L	A7,A0
00022b8c 43 fa e2 3c              |C  <    |		LEA.L	0x20dca,A1
00022b90 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022b92 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022b94 51 c8 ff fc              |Q       |		DBF	D0,0x22b92
00022b98 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022b9a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022b9e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022ba0 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00022ba4 4e 92                    |N       |		JSR	(A2)
00022ba6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022ba8 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00022bac 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022bae 2e ae ff f0              |.       |		MOVE.L	(A6-0x10),(A7)
00022bb2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022bb4 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022bb6 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022bbc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022bbe 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022bc4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022bc6 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00022bca 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00022bce 4e ba e4 00              |N       |		JSR	0x20fd0
00022bd2 2e bc 00 02 fa ee        |.       |		MOVE.L	#0x2faee,(A7)
00022bd8 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
00022bde 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022be0 4e ba e4 6c              |N  l    |		JSR	0x2104e
00022be4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022be6 4e ba e8 30              |N  0    |		JSR	0x21418
00022bea 4a 1f                    |J       |		TST.B	(A7)+
00022bec 67 2a                    |g*      |		BEQ	0x22c18
00022bee 9e c4                    |        |		SUBA.W	D4,A7
00022bf0 20 4f                    | O      |		MOVEA.L	A7,A0
00022bf2 43 fa df e2              |C       |		LEA.L	0x20bd6,A1
00022bf6 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022bf8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022bfa 51 c8 ff fc              |Q       |		DBF	D0,0x22bf8
00022bfe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c00 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c04 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022c06 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00022c0a 4e 92                    |N       |		JSR	(A2)
00022c0c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c0e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022c14 de c2                    |        |		ADDA.W	D2,A7
00022c16 60 3e                    |`>      |		BRA	0x22c56
00022c18 41 fa e1 da              |A       |		LEA.L	0x20df4,A0
00022c1c 70 06                    |p       |		MOVEQ.L	#0x06,D0
00022c1e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022c20 51 c8 ff fc              |Q       |		DBF	D0,0x22c1e
00022c24 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c26 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c2a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022c2c 3f 3c 00 1c              |?<      |		MOVE.W	#0x1c,-(A7)
00022c30 4e 92                    |N       |		JSR	(A2)
00022c32 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c34 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022c3a de fc 00 20              |        |		ADDA.W	#0x20,A7
00022c3e 48 53                    |HS      |		PEA.L	(A3)
00022c40 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022c46 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022c48 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00022c4c 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022c52 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022c54 60 78                    |`x      |		BRA	0x22cce
00022c56 9e fc 00 40              |   @    |		SUBA.W	#0x40,A7
00022c5a 20 4f                    | O      |		MOVEA.L	A7,A0
00022c5c 43 fa de a4              |C       |		LEA.L	0x20b02,A1
00022c60 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
00022c62 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022c64 51 c8 ff fc              |Q       |		DBF	D0,0x22c62
00022c68 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c6a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c6e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022c70 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
00022c74 4e 92                    |N       |		JSR	(A2)
00022c76 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c78 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022c7e de fc 00 44              |   D    |		ADDA.W	#0x44,A7
00022c82 41 fa de fa              |A       |		LEA.L	0x20b7e,A0
00022c86 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022c88 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022c8a 51 c8 ff fc              |Q       |		DBF	D0,0x22c88
00022c8e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c90 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c94 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022c96 3f 3c 00 3c              |?< <    |		MOVE.W	#0x3c,-(A7)
00022c9a 4e 92                    |N       |		JSR	(A2)
00022c9c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c9e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022ca4 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00022ca8 41 fa de f4              |A       |		LEA.L	0x20b9e,A0
00022cac 70 07                    |p       |		MOVEQ.L	#0x07,D0
00022cae 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022cb0 51 c8 ff fc              |Q       |		DBF	D0,0x22cae
00022cb4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022cb6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022cba 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022cbc 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00022cc0 4e 92                    |N       |		JSR	(A2)
00022cc2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022cc4 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022cca de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00022cce 4e ba e2 d6              |N       |		JSR	0x20fa6
00022cd2 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022cd6 4e 5e                    |N^      |		UNLK	A6
00022cd8 4e 75                    |Nu      |		RTS
00022cda ; --------------------------------------------------------------------------------------
00022cda ; OMSI PASCAL Function
00022cda ; --------------------------------------------------------------------------------------
00022cda 4e 56 ff 70              |NV p    |		LINK.W	A6,#0xff70
00022cde bf d5                    |        |		CMPA.L	(A5),A7
00022ce0 62 06                    |b       |		BHI	0x22ce8
00022ce2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022ce6 4e 76                    |Nv      |		TRAPV
00022ce8 de fc 00 8c              |        |		ADDA.W	#0x8c,A7
00022cec 48 e7 ff f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022cf0 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00022cf6 47 f9 00 01 03 e0        |G       |		LEA.L	WriteConsoleStringCrLf(str : String),A3
00022cfc 74 01                    |t       |		MOVEQ.L	#0x01,D2
00022cfe 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
00022d00 78 26                    |x&      |		MOVEQ.L	#0x26,D4
00022d02 7a 05                    |z       |		MOVEQ.L	#0x05,D5
00022d04 7c 24                    ||$      |		MOVEQ.L	#0x24,D6
00022d06 2f 3a e0 f4              |/:      |		MOVE.L	0x20dfc,-(A7)
00022d0a 2f 3a e0 ec              |/:      |		MOVE.L	0x20df8,-(A7)
00022d0e 2f 3a e0 e4              |/:      |		MOVE.L	0x20df4,-(A7)
00022d12 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022d14 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022d18 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022d1a 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022d1c 4e 92                    |N       |		JSR	(A2)
00022d1e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022d20 4e 93                    |N       |		JSR	(A3)
00022d22 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022d24 20 4f                    | O      |		MOVEA.L	A7,A0
00022d26 43 fa e0 d8              |C       |		LEA.L	0x20e00,A1
00022d2a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022d2c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022d2e 51 c8 ff fc              |Q       |		DBF	D0,0x22d2c
00022d32 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022d34 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022d38 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022d3a 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00022d3e 4e 92                    |N       |		JSR	(A2)
00022d40 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022d42 4e 93                    |N       |		JSR	(A3)
00022d44 de fc 00 12              |        |		ADDA.W	#0x12,A7
00022d48 41 fa e0 ea              |A       |		LEA.L	0x20e34,A0
00022d4c 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022d4e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022d50 51 c8 ff fc              |Q       |		DBF	D0,0x22d4e
00022d54 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022d56 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022d5a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022d5c 3f 04                    |?       |		MOVE.W	D4,-(A7)
00022d5e 4e 92                    |N       |		JSR	(A2)
00022d60 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022d62 4e 93                    |N       |		JSR	(A3)
00022d64 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00022d68 41 fa e0 f0              |A       |		LEA.L	0x20e5a,A0
00022d6c 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022d6e 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022d70 51 c8 ff fc              |Q       |		DBF	D0,0x22d6e
00022d74 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022d76 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022d7a 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022d7c 3f 04                    |?       |		MOVE.W	D4,-(A7)
00022d7e 4e 92                    |N       |		JSR	(A2)
00022d80 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022d82 4e 93                    |N       |		JSR	(A3)
00022d84 9e fc 00 22              |   "    |		SUBA.W	#0x22,A7
00022d88 20 4f                    | O      |		MOVEA.L	A7,A0
00022d8a 43 fa e0 ce              |C       |		LEA.L	0x20e5a,A1
00022d8e 70 4a                    |pJ      |		MOVEQ.L	#0x4a,D0
00022d90 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022d92 51 c8 ff fc              |Q       |		DBF	D0,0x22d90
00022d96 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022d98 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022d9c 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022d9e 3f 3c 00 4b              |?< K    |		MOVE.W	#0x4b,-(A7)
00022da2 4e 92                    |N       |		JSR	(A2)
00022da4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022da6 4e 93                    |N       |		JSR	(A3)
00022da8 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00022dac 20 4f                    | O      |		MOVEA.L	A7,A0
00022dae 43 fa e0 f6              |C       |		LEA.L	0x20ea6,A1
00022db2 70 44                    |pD      |		MOVEQ.L	#0x44,D0
00022db4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022db6 51 c8 ff fc              |Q       |		DBF	D0,0x22db4
00022dba 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022dbc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022dc0 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022dc2 3f 3c 00 45              |?< E    |		MOVE.W	#0x45,-(A7)
00022dc6 4e 92                    |N       |		JSR	(A2)
00022dc8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022dca 4e 93                    |N       |		JSR	(A3)
00022dcc de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00022dd0 20 4f                    | O      |		MOVEA.L	A7,A0
00022dd2 43 fa e1 48              |C  H    |		LEA.L	0x20f1c,A1
00022dd6 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022dd8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022dda 51 c8 ff fc              |Q       |		DBF	D0,0x22dd8
00022dde 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022de0 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00022de4 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022de6 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00022dea 4e 92                    |N       |		JSR	(A2)
00022dec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022dee 48 78 00 00              |Hx      |		PEA.L	0x0
00022df2 48 78 00 05              |Hx      |		PEA.L	0x5
00022df6 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00022dfc de c3                    |        |		ADDA.W	D3,A7
00022dfe 10 2f 00 03              | /      |		MOVE.B	(A7+0x3),D0
00022e02 48 80                    |H       |		EXTB.W	D0
00022e04 41 85                    |A       |		CHK.W	D5,D0
00022e06 de fc 00 14              |        |		ADDA.W	#0x14,A7
00022e0a 1e 00                    |        |		MOVE.B	D0,D7
00022e0c 10 07                    |        |		MOVE.B	D7,D0
00022e0e 48 80                    |H       |		EXTB.W	D0
00022e10 32 00                    |2       |		MOVE.W	D0,D1
00022e12 b2 45                    | E      |		CMP.W	D5,D1
00022e14 63 02                    |c       |		BLS	0x22e18
00022e16 4e 4e                    |NN      |		TRAP	#14
00022e18 d2 41                    | A      |		ADD.W	D1,D1
00022e1a 32 3b 10 06 4e fb 10 02  |2;  N   |		SWITCH	D1.W
00022e22 00 0c                    |        |		.CONST	0xc			; [0x0] -> 0x22e2e
00022e24 00 0e                    |        |		.CONST	0xe			; [0x1] -> 0x22e30
00022e26 00 14                    |        |		.CONST	0x14			; [0x2] -> 0x22e36
00022e28 00 1a                    |        |		.CONST	0x1a			; [0x3] -> 0x22e3c
00022e2a 00 24                    | $      |		.CONST	0x24			; [0x4] -> 0x22e46
00022e2c 00 28                    | (      |		.CONST	0x28			; [0x5] -> 0x22e4a
00022e2e					switch@0x22e1a[0x0]:
00022e2e 60 4e                    |`N      |		BRA	0x22e7e
00022e30					switch@0x22e1a[0x1]:
00022e30 4e ba e2 d2              |N       |		JSR	0x21104
00022e34 60 48                    |`H      |		BRA	0x22e7e
00022e36					switch@0x22e1a[0x2]:
00022e36 4e ba e7 0a              |N       |		JSR	0x21542
00022e3a 60 42                    |`B      |		BRA	0x22e7e
00022e3c					switch@0x22e1a[0x3]:
00022e3c 42 27                    |B'      |		CLR.B	-(A7)
00022e3e 4e ba ef 76              |N  v    |		JSR	0x21db6
00022e42 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022e44 60 38                    |`8      |		BRA	0x22e7e
00022e46					switch@0x22e1a[0x4]:
00022e46 1f 02                    |        |		MOVE.B	D2,-(A7)
00022e48 60 f4                    |`       |		BRA	0x22e3e
00022e4a					switch@0x22e1a[0x5]:
00022e4a 9e c6                    |        |		SUBA.W	D6,A7
00022e4c 20 4f                    | O      |		MOVEA.L	A7,A0
00022e4e 43 fa e0 dc              |C       |		LEA.L	0x20f2c,A1
00022e52 72 22                    |r"      |		MOVEQ.L	#0x22,D1
00022e54 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022e56 51 c9 ff fc              |Q       |		DBF	D1,0x22e54
00022e5a 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00022e5c 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00022e60 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022e62 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
00022e66 4e 92                    |N       |		JSR	(A2)
00022e68 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022e6a 42 17                    |B       |		CLR.B	(A7)
00022e6c 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00022e72 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022e74 4a 1f                    |J       |		TST.B	(A7)+
00022e76 67 04                    |g       |		BEQ	0x22e7c
00022e78 4e ba f7 1e              |N       |		JSR	0x22598
00022e7c de c6                    |        |		ADDA.W	D6,A7
00022e7e 4a 40                    |J@      |		TST.W	D0
00022e80 66 00 fe 84              |f       |		BNE	0x22d06
00022e84 42 27                    |B'      |		CLR.B	-(A7)
00022e86 48 78 00 01              |Hx      |		PEA.L	0x1
00022e8a 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022e90 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022e92 4c df 0f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
00022e96 4e 5e                    |N^      |		UNLK	A6
00022e98 4e 75                    |Nu      |		RTS
00022e9a ; --------------------------------------------------------------------------------------
00022e9a ; OMSI PASCAL Function
00022e9a ; --------------------------------------------------------------------------------------
00022e9a					START:
00022e9a 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00022e9e 4e f9 00 01 02 80        |N       |		JMP	?start_program
00022ea4					MAIN:
00022ea4 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022ea6 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00022eac 42 39 00 02 31 80        |B9  1   |		CLR.B	0x23180
00022eb2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022eb4 48 78 01 80              |Hx      |		PEA.L	0x180
00022eb8 4e b9 00 01 05 92        |N       |		JSR	ReadConfig(where : Long) : Word
00022ebe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022ec0 30 1f                    |0       |		MOVE.W	(A7)+,D0
00022ec2 48 c0                    |H       |		EXTW.L	D0
00022ec4 23 c0 00 02 31 82        |#   1   |		MOVE.L	D0,0x23182
00022eca 04 80 00 00 00 4d        |     M  |		SUBI.L	#0x0000004d,D0
00022ed0 0c 80 00 00 00 0b        |        |		CMPI.L	#0x0000000b,D0
00022ed6 62 5a                    |bZ      |		BHI	switch@0x22eda[0x1]
00022ed8 d0 40                    | @      |		ADD.W	D0,D0
00022eda 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00022ee2 00 18                    |        |		.CONST	0x18			; [0x0] -> 0x22efa
00022ee4 00 50                    | P      |		.CONST	0x50			; [0x1] -> 0x22f32
00022ee6 00 50                    | P      |		.CONST	0x50			; [0x2] -> 0x22f32
00022ee8 00 50                    | P      |		.CONST	0x50			; [0x3] -> 0x22f32
00022eea 00 50                    | P      |		.CONST	0x50			; [0x4] -> 0x22f32
00022eec 00 50                    | P      |		.CONST	0x50			; [0x5] -> 0x22f32
00022eee 00 50                    | P      |		.CONST	0x50			; [0x6] -> 0x22f32
00022ef0 00 50                    | P      |		.CONST	0x50			; [0x7] -> 0x22f32
00022ef2 00 50                    | P      |		.CONST	0x50			; [0x8] -> 0x22f32
00022ef4 00 50                    | P      |		.CONST	0x50			; [0x9] -> 0x22f32
00022ef6 00 50                    | P      |		.CONST	0x50			; [0xa] -> 0x22f32
00022ef8 00 4a                    | J      |		.CONST	0x4a			; [0xb] -> 0x22f2c
00022efa					switch@0x22eda[0x0]:
00022efa 9e fc 00 3e              |   >    |		SUBA.W	#0x3e,A7
00022efe 20 4f                    | O      |		MOVEA.L	A7,A0
00022f00 43 fa d2 08              |C       |		LEA.L	0x2010a,A1
00022f04 70 3c                    |p<      |		MOVEQ.L	#0x3c,D0
00022f06 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022f08 51 c8 ff fc              |Q       |		DBF	D0,0x22f06
00022f0c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022f0e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022f12 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022f14 3f 3c 00 3d              |?< =    |		MOVE.W	#0x3d,-(A7)
00022f18 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022f1e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f20 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022f26 de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00022f2a 60 30                    |`0      |		BRA	0x22f5c
00022f2c					switch@0x22eda[0xb]:
00022f2c 4e ba fd ac              |N       |		JSR	0x22cda
00022f30 60 3a                    |`:      |		BRA	0x22f6c
00022f32					switch@0x22eda[0x1]:
00022f32					switch@0x22eda[0x2]:
00022f32					switch@0x22eda[0x3]:
00022f32					switch@0x22eda[0x4]:
00022f32					switch@0x22eda[0x5]:
00022f32					switch@0x22eda[0x6]:
00022f32					switch@0x22eda[0x7]:
00022f32					switch@0x22eda[0x8]:
00022f32					switch@0x22eda[0x9]:
00022f32					switch@0x22eda[0xa]:
00022f32 41 fa d2 42              |A  B    |		LEA.L	0x20176,A0
00022f36 70 16                    |p       |		MOVEQ.L	#0x16,D0
00022f38 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022f3a 51 c8 ff fc              |Q       |		DBF	D0,0x22f38
00022f3e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022f40 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022f44 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022f46 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
00022f4a 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022f50 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f52 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022f58 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00022f5c 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00022f60 48 78 00 01              |Hx      |		PEA.L	0x1
00022f64 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022f6a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022f6c 4e b9 00 01 02 84        |N       |		JSR	?exit
00022f72 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00022f80 ; --------------------------------------------------------------------------------------
00022f80 ; OMSI PASCAL Function
00022f80 ;    <LVAR  0x008 1(r)>
00022f80 ; --------------------------------------------------------------------------------------
00022f80					PROG_FAIL:
00022f80 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00022f84 bf d5                    |        |		CMPA.L	(A5),A7
00022f86 62 06                    |b       |		BHI	0x22f8e
00022f88 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022f8c 4e 76                    |Nv      |		TRAPV
00022f8e de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00022f92 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00022f96 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
00022f9a 70 06                    |p       |		MOVEQ.L	#0x06,D0
00022f9c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022f9e 51 c8 ff fc              |Q       |		DBF	D0,0x22f9c
00022fa2 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00022fa6 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022fa8 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00022fac 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022fb0 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00022fb4 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022fba 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022fbc 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00022fc0 48 80                    |H       |		EXTB.W	D0
00022fc2 48 c0                    |H       |		EXTW.L	D0
00022fc4 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022fc6 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00022fcc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022fce 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022fd4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022fd6 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022fdc de fc 00 14              |        |		ADDA.W	#0x14,A7
00022fe0 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00022fe4 4e 5e                    |N^      |		UNLK	A6
00022fe6 4e 75                    |Nu      |		RTS
00022fe8 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
00022ff6 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00023004 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00023012 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00023024 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
0002303c ; --------------------------------------------------------------------------------------
0002303c ; OMSI PASCAL Function
0002303c ;    <LVAR  0x00e 1(r)>
0002303c ;    <LVAR  0x00a 4(r)>
0002303c ;    <LVAR  0x008 1(r)>
0002303c ; --------------------------------------------------------------------------------------
0002303c					EXP_FAIL:
0002303c 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00023040 bf d5                    |        |		CMPA.L	(A5),A7
00023042 62 06                    |b       |		BHI	0x2304a
00023044 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00023048 4e 76                    |Nv      |		TRAPV
0002304a de fc 00 74              |   t    |		ADDA.W	#0x74,A7
0002304e 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00023052 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00023058 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
0002305e 72 01                    |r       |		MOVEQ.L	#0x01,D1
00023060 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00023062 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00023064 78 12                    |x       |		MOVEQ.L	#0x12,D4
00023066 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
00023068 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
0002306e 41 fa ff b4              |A       |		LEA.L	0x23024,A0
00023072 70 08                    |p       |		MOVEQ.L	#0x08,D0
00023074 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00023076 51 c8 ff fc              |Q       |		DBF	D0,0x23074
0002307a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002307c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00023080 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023082 3f 04                    |?       |		MOVE.W	D4,-(A7)
00023084 4e 93                    |N       |		JSR	(A3)
00023086 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023088 4e 94                    |N       |		JSR	(A4)
0002308a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002308c 20 4f                    | O      |		MOVEA.L	A7,A0
0002308e 43 fa ff 58              |C  X    |		LEA.L	0x22fe8,A1
00023092 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00023094 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023096 51 c8 ff fc              |Q       |		DBF	D0,0x23094
0002309a 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002309c 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000230a0 3f 01                    |?       |		MOVE.W	D1,-(A7)
000230a2 3f 02                    |?       |		MOVE.W	D2,-(A7)
000230a4 4e 93                    |N       |		JSR	(A3)
000230a6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000230a8 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
000230ac 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
000230b2 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000230b4 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000230ba 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000230bc 4e 94                    |N       |		JSR	(A4)
000230be de c4                    |        |		ADDA.W	D4,A7
000230c0 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
000230c4 b0 c1                    |        |		CMPA.W	D1,A0
000230c6 67 48                    |gH      |		BEQ	0x23110
000230c8 9e c5                    |        |		SUBA.W	D5,A7
000230ca 22 4f                    |"O      |		MOVEA.L	A7,A1
000230cc 45 fa ff 28              |E  (    |		LEA.L	0x22ff6,A2
000230d0 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000230d2 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000230d4 51 c8 ff fc              |Q       |		DBF	D0,0x230d2
000230d8 9e c3                    |        |		SUBA.W	D3,A7
000230da 22 4f                    |"O      |		MOVEA.L	A7,A1
000230dc 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
000230e0 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
000230e2 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
000230e4 51 c8 ff fc              |Q       |		DBF	D0,0x230e2
000230e8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000230ea 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
000230ee 3f 01                    |?       |		MOVE.W	D1,-(A7)
000230f0 3f 02                    |?       |		MOVE.W	D2,-(A7)
000230f2 4e 93                    |N       |		JSR	(A3)
000230f4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000230f6 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
000230fa 3f 01                    |?       |		MOVE.W	D1,-(A7)
000230fc 3f 03                    |?       |		MOVE.W	D3,-(A7)
000230fe 4e 93                    |N       |		JSR	(A3)
00023100 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023102 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023108 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002310a 4e 94                    |N       |		JSR	(A4)
0002310c de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00023110 9e c5                    |        |		SUBA.W	D5,A7
00023112 20 4f                    | O      |		MOVEA.L	A7,A0
00023114 43 fa fe ee              |C       |		LEA.L	0x23004,A1
00023118 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002311a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002311c 51 c8 ff fc              |Q       |		DBF	D0,0x2311a
00023120 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023122 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00023126 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023128 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002312a 4e 93                    |N       |		JSR	(A3)
0002312c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002312e 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00023132 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
00023138 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002313a 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023140 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023142 4e 94                    |N       |		JSR	(A4)
00023144 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00023146 20 4f                    | O      |		MOVEA.L	A7,A0
00023148 43 fa fe da              |C       |		LEA.L	0x23024,A1
0002314c 70 16                    |p       |		MOVEQ.L	#0x16,D0
0002314e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023150 51 c8 ff fc              |Q       |		DBF	D0,0x2314e
00023154 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00023158 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002315a 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
0002315e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023160 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00023164 4e 93                    |N       |		JSR	(A3)
00023166 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023168 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002316e de c3                    |        |		ADDA.W	D3,A7
00023170 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00023174 4e 5e                    |N^      |		UNLK	A6
00023176 4e 75                    |Nu      |		RTS