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

⟦9db439f8e⟧ M200

    Length: 12800 (0x3200)
    Types: M200
    Notes: @(#)CONFIGURE,1.1,92/07/09,12:00:00, M200_PROGRAM
    Names: »CONFIGURE_PAD.M200«

Derivation

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

Disassembly

0x20f74


@ 20f74
        <LVAR  0x008 @ 4(r)>
    <POP 20f74-20fca Body>                                              
        <POP 20f74-20f8a Prologue>                           Σ0         ↓
        <POP 20f8a-20f8e RegCacheLoad>                       Σ0         ↓
        <POP 20f8e-20fc2 Naked>                              Σ0         ↓
            <MI 20f8e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Const 0x20f90 0xa.2>                            Δ-2                {[4, '(A6+0x8)']|[#10]}
            <Call 0x20f94 0x102c0>                                              {[4, '(A6+0x8)']|[#10]}
                AppendChar(MOD b : String; a : char)
            <POP 20f9a-20f9c StackAdj>                       Δ+2                {[4, '(A6+0x8)']}
            <MI 20f9c  MOVE.L  (A6+0x8),(A7)>                                   {[4, '(A6+0x8)']}
            <Const 0x20f9e 0xd.2>                            Δ-2                {[4, '(A6+0x8)']|[#13]}
            <Call 0x20fa2 0x102c0>                                              {[4, '(A6+0x8)']|[#13]}
                AppendChar(MOD b : String; a : char)
            <POP 20fa8-20faa StackAdj>                       Δ+4                {[-2-]}
            <POP 20faa-20fab StackAdj>                       Δ+2                {}
            <Const 0x20fab 0x1.2>                            Δ-2                {[#1]}
            <MI 20fae  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[#1]|[4, '(A6+0x8)']}
            <Call 0x20fb0 0x1020a>                                              {[#1]|[4, '(A6+0x8)']}
                KC05_Write_Console_String(port : Word ; str : String)
            <POP 20fb6-20fb8 StackAdj>                       Δ+6                {}
            <Pointer.fp 0x20fb8 <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x20fba 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 20fc0-20fc2 StackAdj>                       Δ+4                {}
        <POP 20fc2-20fca Epilogue>                           Σ0         

0x20fca


@ 20fca
        <LVAR -0x004 @ 4(r)>
    <POP 20fca-20ff4 Body>                                              
        <POP 20fca-20fdc Prologue>                           Σ0         ↓
        <POP 20fdc-20ff0 Naked>                              Σ0         ↓
            <Pointer.fp 0x20fdc <LVAR -0x004 @ 4(r)>>        Δ-4                {[@@-4]}
            <Call 0x20fe0 0x102b8>                                              {[@@-4]}
                NewString(VAR a : String)
            <MI 20fe6  MOVE.L  (A6-0x4),(A7)>                                   {[4, '(A6-0x4)']}
            <Call 0x20fea 0x20f74>                                              {[4, '(A6-0x4)']}
            <POP 20fee-20ff0 StackAdj>                       Δ+4                {}
        <POP 20ff0-20ff4 Epilogue>                           Σ0         

0x20ff4


@ 20ff4
        <LVAR  0x008 @ 4(r)>
    <POP 20ff4-2103c Body>                                              
        <POP 20ff4-2100a Prologue>                           Σ0         ↓
        <POP 2100a-2100e RegCacheLoad>                       Σ0         ↓
        <POP 2100e-21034 Naked>                              Σ0         ↓
            <MI 2100e  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[4, '(A6+0x8)']}
            <Const 0x21010 0xd.2>                            Δ-2                {[4, '(A6+0x8)']|[#13]}
            <Call 0x21014 0x102c0>                                              {[4, '(A6+0x8)']|[#13]}
                AppendChar(MOD b : String; a : char)
            <POP 2101a-2101c StackAdj>                       Δ+4                {[-2-]}
            <POP 2101c-2101d StackAdj>                       Δ+2                {}
            <Const 0x2101d 0x2.2>                            Δ-2                {[#2]}
            <MI 21020  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[#2]|[4, '(A6+0x8)']}
            <Call 0x21022 0x1020a>                                              {[#2]|[4, '(A6+0x8)']}
                KC05_Write_Console_String(port : Word ; str : String)
            <POP 21028-2102a StackAdj>                       Δ+6                {}
            <Pointer.fp 0x2102a <LVAR  0x008 @ 4(r)>>        Δ-4                {[@@8]}
            <Call 0x2102c 0x102bc>                                              {[@@8]}
                FreeString(VAR a : String)
            <POP 21032-21034 StackAdj>                       Δ+4                {}
        <POP 21034-2103c Epilogue>                           Σ0         

0x2103c


@ 2103c
        <LVAR  0x00c 2(w)>
        <LVAR  0x008 4(r)>
    <POP 2103c-21072 Body>                                              
        <POP 2103c-21052 Prologue>                           Σ0         ↓
        <POP 21052-2106a Naked>                              Σ0         ↓
            <POP 21052-21054 StackAdj>                       Δ-2                {[-2-]}
            <MI 21054  MOVE.L  (A6+0x8),-(A7)>               Δ-4                {[-2-]|[4, '(A6+0x8)']}
            <Call 0x21058 0x10592>                                              {[-2-]|[4, '(A6+0x8)']}
                ReadConfig(where : Long) : Word
            <POP 2105e-21060 StackAdj>                       Δ+4                {[-2-]}
            <MI 21060  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <POP 0x21062 LimitCheck 0x0 ≤ D0 ≤ 0xff>                            {}
            <MI 21066  MOVE.W  D0,(A6+0xc)>                                     {}
        <POP 2106a-21072 Epilogue>                           Σ0         

0x21072


@ 21072
        <LVAR -0x004 @ 1(r)>
    <POP 21072-21128 Body>                                              
        <POP 21072-21088 Prologue>                           Σ0         ↓
        <POP 21088-2109c RegCacheLoad>                       Σ0         ↓
        <POP 2109c-210a0 Naked>                              Σ0         ↓
            <MI 2109c  MOVEQ.L #0x00,D7>                                        {}
            <MI 2109e  CLR.L   0x239aa>                                         {}
        <POP 210a0-210a8 Naked>                              Σ0         ↓ →0x21118 ←0x21114
            <MI 210a0  CMPI.L  #0x00000014,D7>                                  {}
            <MI 210a6  BEQ     0x21118>                                         {}
        <POP 210a8-210aa Naked>                              Σ0         ↓
            <MI 210a8  MOVEQ.L #0x01,D6>                                        {}
        <POP 210aa-210c2 Naked>                              Σ0         ↓ →0x2110a ←0x2110a
            <Const 0x210aa 0x2.2>                            Δ-2                {[#2]}
            <Pointer.fp 0x210ac <LVAR -0x004 @ 1(r)>>        Δ-4                {[#2]|[@@-4]}
            <Call 0x210b0 0x10212>                                              {[#2]|[@@-4]}
                KC09_PortStatus(Port : Word; VAR b: Byte)
            <POP 210b6-210b8 StackAdj>                       Δ+6                {}
            <MI 210b8  MOVE.B  (A6-0x4),D0>                                     {}
            <MI 210bc  CMPI.B  #0x01,D0>                                        {}
            <MI 210c0  BNE     0x2110a>                                         {}
        <POP 210c2-210e4 Naked>                              Σ0         ↓ →0x21106
            <Const 0x210c2 0x2.2>                            Δ-2                {[#2]}
            <MI 210c4  MOVE.L  0x239aa,D0>                                      {[#2]}
            <POP 0x210c6 LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {[#2]}
            <MI 210d0  ASL.L   #0x1,D0>                                         {[#2]}
            <MI 210d2  LEA.L   0x2319c,A0>                                      {[#2]}
            <MI 210d4  PEA.L   (A0+D0.L+#0xe)>               Δ-4                {[#2]|[4, '^(A0+D0.L+#0xe)']}
            <Call 0x210d8 0x1020e>                                              {[#2]|[4, '^(A0+D0.L+#0xe)']}
                KC07_PortGetChar(port : Word ; VAR ret : Word)
            <POP 210de-210e0 StackAdj>                       Δ+6                {}
            <MI 210e0  TST.B   0x231a4>                                         {}
            <MI 210e2  BEQ     0x21106>                                         {}
        <POP 210e4-21106 Naked>                              Σ0         ↓
            <MI 210e4  MOVE.L  0x239aa,D0>                                      {}
            <POP 0x210e6 LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {}
            <MI 210f0  ASL.L   #0x1,D0>                                         {}
            <MI 210f2  LEA.L   0x2319c,A0>                                      {}
            <MI 210f4  MOVE.W  (A0+D0.L+#0xe),D0>                               {}
            <MI 210f8  ANDI.W  #0x00ff,D0>                                      {}
            <MI 210fc  MOVE.B  D0,-(A7)>                     Δ-2                {[2, 'D0']}
            <Call 0x210fe 0x103d0>                                              {[2, 'D0']}
                WriteConsoleChar(chr : char)
            <POP 21104-21106 StackAdj>                       Δ+2                {}
        <POP 21106-2110a Naked>                              Σ0         ↓ ←0x210c2
            <MI 21106  MOVEQ.L #0x00,D7>                                        {}
            <MI 21108  ADDQ.L  #0x1,0x239aa>                                    {}
        <POP 2110a-21114 Naked>                              Σ0         ↓ →0x210aa ←0x210aa
            <MI 2110a  ADDQ.L  #0x1,D6>                                         {}
            <MI 2110c  CMPI.L  #0x000003e8,D6>                                  {}
            <MI 21112  BLE     0x210aa>                                         {}
        <POP 21114-21118 Naked>                              Σ0         →0x210a0
            <MI 21114  ADDQ.L  #0x1,D7>                                         {}
            <MI 21116  BRA     0x210a0>                                         {}
        <POP 21118-2111c Naked>                              Σ0         ↓ →0x21120 ←0x210a0
            <MI 21118  TST.B   0x231a4>                                         {}
            <MI 2111a  BEQ     0x21120>                                         {}
        <POP 2111c-21120 Naked>                              Σ0         ↓
            <Call 0x2111c 0x20fca>                                              {}
        <POP 21120-21128 Epilogue>                           Σ0         ←0x21118

0x21128


@ 21128
        <LVAR -0x006 @ 2(r)>
        <LVAR -0x008 @ 1(r)>
    <POP 21128-2129a Body>                                              
        <POP 21128-2113e Prologue>                           Σ0         ↓
        <POP 2113e-21150 RegCacheLoad>                       Σ0         ↓
        <POP 21150-21196 Naked>                              Σ0         ↓
            <MI 21150  CLR.B   0x231a4>                                         {}
            <Call 0x21156 0x10216>                                              {}
                KC0b
            <Call 0x2115c 0x21072>                                              {}
            <Blob 0x21160 [60] @>                            Δ-60               {[«60""»]}
            <POP 2116c-2116e StackAdj>                       Δ-4                {[«60""»]|[-4-]}
            <Lit 0x2116e 60>                                                    {[«60""»]|[$$Direct communication to PAD established, use <CNTL>C to exit]}
            <Call 0x2117c 0x103e0>                                              {[«60""»]|[$$Direct communication to PAD established, use <CNTL>C to exit]}
                WriteConsoleStringCrLf(str : String)
            <POP 21182-21186 StackAdj>                       Δ+62               {[-2-]}
            <POP 21186-21187 StackAdj>                       Δ+2                {}
            <Const 0x21187 0x2.2>                            Δ-2                {[#2]}
            <Const 0x21188 0x10.2>                           Δ-2                {[#2]|[#16]}
            <Call 0x2118c 0x1020c>                                              {[#2]|[#16]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 21192-21194 StackAdj>                       Δ+4                {}
            <MI 21194  MOVEQ.L #0x00,D6>                                        {}
        <POP 21196-211a8 Naked>                              Σ0         ↓ →0x211d8 ←0x2128c
            <Const 0x21196 0x1.2>                            Δ-2                {[#1]}
            <Pointer.fp 0x21198 <LVAR -0x008 @ 1(r)>>        Δ-4                {[#1]|[@@-8]}
            <Call 0x2119a 0x10212>                                              {[#1]|[@@-8]}
                KC09_PortStatus(Port : Word; VAR b: Byte)
            <POP 211a0-211a2 StackAdj>                       Δ+6                {}
            <MI 211a2  MOVE.B  (A6-0x8),D0>                                     {}
            <MI 211a4  CMP.B   #0x01,D0>                                        {}
            <MI 211a6  BNE     0x211d8>                                         {}
        <POP 211a8-211c2 Naked>                              Σ0         ↓ →0x211c6
            <Const 0x211a8 0x1.2>                            Δ-2                {[#1]}
            <Pointer.fp 0x211aa <LVAR -0x006 @ 2(r)>>        Δ-4                {[#1]|[@@-6]}
            <Call 0x211ac 0x1020e>                                              {[#1]|[@@-6]}
                KC07_PortGetChar(port : Word ; VAR ret : Word)
            <POP 211b2-211b4 StackAdj>                       Δ+6                {}
            <MI 211b4  MOVE.W  (A6-0x6),D0>                                     {}
            <MI 211b6  ANDI.W  #0x00ff,D0>                                      {}
            <MI 211ba  MOVE.B  D0,D7>                                           {}
            <MI 211bc  CMPI.B  #0x03,D7>                                        {}
            <MI 211c0  BNE     0x211c6>                                         {}
        <POP 211c2-211c6 Naked>                              Σ0         →0x211d6
            <MI 211c2  MOVEQ.L #0x01,D6>                                        {}
            <MI 211c4  BRA     0x211d6>                                         {}
        <POP 211c6-211d6 Naked>                              Σ0         ↓ ←0x211a8
            <Const 0x211c6 0x2.2>                            Δ-2                {[#2]}
            <MI 211c8  CLR.L   D0>                                              {[#2]}
            <MI 211ca  MOVE.B  D7,D0>                                           {[#2]}
            <MI 211cc  MOVE.W  D0,-(A7)>                     Δ-2                {[#2]|[2, 'D0']}
            <Call 0x211ce 0x1020c>                                              {[#2]|[2, 'D0']}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 211d4-211d6 StackAdj>                       Δ+4                {}
        <POP 211d6-211d8 Naked>                              Σ0         →0x21216 ←0x211c2
            <MI 211d6  BRA     0x21216>                                         {}
        <POP 211d8-211dc Naked>                              Σ0         ↓ →0x21216 ←0x21196
            <MI 211d8  TST.B   D0>                                              {}
            <MI 211da  BEQ     0x21216>                                         {}
        <POP 211dc-21216 Naked>                              Σ0         ↓
            <Blob 0x211dc [44] @>                            Δ-44               {[«44""»]}
            <POP 211ee-211f0 StackAdj>                       Δ-4                {[«44""»]|[-4-]}
            <Lit 0x211f0 43>                                                    {[«44""»]|[$$Unknown status retruned from console buffer]}
            <Call 0x211fe 0x103e0>                                              {[«44""»]|[$$Unknown status retruned from console buffer]}
                WriteConsoleStringCrLf(str : String)
            <POP 21204-21208 StackAdj>                       Δ+46               {[-2-]}
            <POP 21208-21209 StackAdj>                       Δ+2                {}
            <Const 0x21209 0x2.2>                            Δ-2                {[#2]}
            <Const 0x2120a 0x1.4>                            Δ-4                {[#2]|[##1]}
            <Call 0x2120e 0x103b8>                                              {[#2]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 21214-21216 StackAdj>                       Δ+6                {}
        <POP 21216-21228 Naked>                              Σ0         ↓ →0x2124e ←0x211d6 ←0x211d8
            <Const 0x21216 0x2.2>                            Δ-2                {[#2]}
            <Pointer.fp 0x21218 <LVAR -0x008 @ 1(r)>>        Δ-4                {[#2]|[@@-8]}
            <Call 0x2121a 0x10212>                                              {[#2]|[@@-8]}
                KC09_PortStatus(Port : Word; VAR b: Byte)
            <POP 21220-21222 StackAdj>                       Δ+6                {}
            <MI 21222  MOVE.B  (A6-0x8),D0>                                     {}
            <MI 21224  CMP.B   #0x01,D0>                                        {}
            <MI 21226  BNE     0x2124e>                                         {}
        <POP 21228-2124e Naked>                              Σ0         →0x2128c
            <Const 0x21228 0x2.2>                            Δ-2                {[#2]}
            <Pointer.fp 0x2122a <LVAR -0x006 @ 2(r)>>        Δ-4                {[#2]|[@@-6]}
            <Call 0x2122c 0x1020e>                                              {[#2]|[@@-6]}
                KC07_PortGetChar(port : Word ; VAR ret : Word)
            <POP 21232-21234 StackAdj>                       Δ+6                {}
            <MI 21234  MOVE.W  (A6-0x6),D0>                                     {}
            <MI 21236  ANDI.W  #0x00ff,D0>                                      {}
            <MI 2123a  MOVE.B  D0,D7>                                           {}
            <Const 0x2123c 0x1.2>                            Δ-2                {[#1]}
            <MI 2123e  CLR.L   D0>                                              {[#1]}
            <MI 21240  MOVE.B  D7,D0>                                           {[#1]}
            <MI 21242  MOVE.W  D0,-(A7)>                     Δ-2                {[#1]|[2, 'D0']}
            <Call 0x21244 0x1020c>                                              {[#1]|[2, 'D0']}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 2124a-2124c StackAdj>                       Δ+4                {}
            <MI 2124c  BRA     0x2128c>                                         {}
        <POP 2124e-21252 Naked>                              Σ0         ↓ →0x2128c ←0x21216
            <MI 2124e  TST.B   D0>                                              {}
            <MI 21250  BEQ     0x2128c>                                         {}
        <POP 21252-2128c Naked>                              Σ0         ↓
            <Blob 0x21252 [40] @>                            Δ-40               {[«40""»]}
            <POP 21264-21266 StackAdj>                       Δ-4                {[«40""»]|[-4-]}
            <Lit 0x21266 39>                                                    {[«40""»]|[$$Unknown status retruned from pad buffer]}
            <Call 0x21274 0x103e0>                                              {[«40""»]|[$$Unknown status retruned from pad buffer]}
                WriteConsoleStringCrLf(str : String)
            <POP 2127a-2127e StackAdj>                       Δ+42               {[-2-]}
            <POP 2127e-2127f StackAdj>                       Δ+2                {}
            <Const 0x2127f 0x2.2>                            Δ-2                {[#2]}
            <Const 0x21280 0x1.4>                            Δ-4                {[#2]|[##1]}
            <Call 0x21284 0x103b8>                                              {[#2]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 2128a-2128c StackAdj>                       Δ+6                {}
        <POP 2128c-21292 Naked>                              Σ0         ↓ →0x21196 ←0x21228 ←0x2124e
            <MI 2128c  TST.B   D6>                                              {}
            <MI 2128e  BEQ     0x21196>                                         {}
        <POP 21292-2129a Epilogue>                           Σ0         

0x2129a


@ 2129a
        <LVAR  0x008 1(w)>
    <POP 2129a-2143c Body>                                              
        <POP 2129a-212b0 Prologue>                           Σ0         ↓
        <POP 212b0-212ca RegCacheLoad>                       Σ0         ↓
        <POP 212ca-212ce Naked>                              Σ0         ↓
            <MI 212ca  CLR.L   0x231a6>                                         {}
            <MI 212cc  MOVEQ.L #0x01,D7>                                        {}
        <POP 212ce-212da Naked>                              Σ0         ↓ →0x21430 ←0x2142c
            <MI 212ce  MOVE.L  0x231a6,D0>                                      {}
            <MI 212d0  CMP.L   0x239aa,D0>                                      {}
            <MI 212d6  BGE     0x21430>                                         {}
        <POP 212da-212e0 Naked>                              Σ0         ↓ →0x21430
            <MI 212da  TST.B   D7>                                              {}
            <MI 212dc  BEQ     0x21430>                                         {}
        <POP 212e0-212fc Naked>                              Σ0         ↓ →0x2142a
            <MI 212e0  MOVE.L  D0,D1>                                           {}
            <MI 212e2  ADDQ.L  #0x1,D1>                                         {}
            <POP 0x212e4 LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {}
            <MI 212ea  MOVE.L  D0,D2>                                           {}
            <MI 212ec  ASL.L   #0x1,D2>                                         {}
            <MI 212ee  LEA.L   0x2319c,A0>                                      {}
            <MI 212f0  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 212f4  AND.W   #0xff,D2>                                        {}
            <MI 212f6  CMP.B   #0x43,D2>                                        {}
            <MI 212f8  BNE     0x2142a>                                         {}
        <POP 212fc-21316 Naked>                              Σ0         ↓ →0x2142a
            <POP 0x212fc LimitCheck 0x0 ≤ D1 ≤ 0x3ff>                           {}
            <MI 21302  MOVE.L  D1,D2>                                           {}
            <MI 21304  ASL.L   #0x1,D2>                                         {}
            <MI 21306  LEA.L   0x2319c,A0>                                      {}
            <MI 21308  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 2130c  AND.W   #0xff,D2>                                        {}
            <MI 2130e  CMPI.B  #0x4d,D2>                                        {}
            <MI 21312  BNE     0x2142a>                                         {}
        <POP 21316-21330 Naked>                              Σ0         ↓ →0x2142a
            <MI 21316  MOVE.L  D0,D2>                                           {}
            <MI 21318  ADDQ.L  #0x2,D2>                                         {}
            <POP 0x2131a LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 21320  ASL.L   #0x1,D2>                                         {}
            <MI 21322  LEA.L   0x2319c,A0>                                      {}
            <MI 21324  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 21328  AND.W   #0xff,D2>                                        {}
            <MI 2132a  CMP.B   #0x44,D2>                                        {}
            <MI 2132c  BNE     0x2142a>                                         {}
        <POP 21330-2134c Naked>                              Σ0         ↓ →0x2142a
            <MI 21330  MOVE.L  D0,D2>                                           {}
            <MI 21332  ADDQ.L  #0x3,D2>                                         {}
            <POP 0x21334 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 2133a  ASL.L   #0x1,D2>                                         {}
            <MI 2133c  LEA.L   0x2319c,A0>                                      {}
            <MI 2133e  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 21342  AND.W   #0xff,D2>                                        {}
            <MI 21344  CMPI.B  #0x20,D2>                                        {}
            <MI 21348  BNE     0x2142a>                                         {}
        <POP 2134c-21368 Naked>                              Σ0         ↓ →0x2142a
            <MI 2134c  MOVE.L  D0,D2>                                           {}
            <MI 2134e  ADDQ.L  #0x4,D2>                                         {}
            <POP 0x21350 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 21356  ASL.L   #0x1,D2>                                         {}
            <MI 21358  LEA.L   0x2319c,A0>                                      {}
            <MI 2135a  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 2135e  AND.W   #0xff,D2>                                        {}
            <MI 21360  CMPI.B  #0x41,D2>                                        {}
            <MI 21364  BNE     0x2142a>                                         {}
        <POP 21368-21382 Naked>                              Σ0         ↓ →0x2142a
            <MI 21368  MOVE.L  D0,D2>                                           {}
            <MI 2136a  ADDQ.L  #0x5,D2>                                         {}
            <POP 0x2136c LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 21372  ASL.L   #0x1,D2>                                         {}
            <MI 21374  LEA.L   0x2319c,A0>                                      {}
            <MI 21376  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 2137a  AND.W   #0xff,D2>                                        {}
            <MI 2137c  CMP.B   #0x43,D2>                                        {}
            <MI 2137e  BNE     0x2142a>                                         {}
        <POP 21382-2139c Naked>                              Σ0         ↓ →0x2142a
            <MI 21382  MOVE.L  D0,D2>                                           {}
            <MI 21384  ADDQ.L  #0x6,D2>                                         {}
            <POP 0x21386 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 2138c  ASL.L   #0x1,D2>                                         {}
            <MI 2138e  LEA.L   0x2319c,A0>                                      {}
            <MI 21390  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 21394  AND.W   #0xff,D2>                                        {}
            <MI 21396  CMP.B   #0x43,D2>                                        {}
            <MI 21398  BNE     0x2142a>                                         {}
        <POP 2139c-213b6 Naked>                              Σ0         ↓ →0x2142a
            <MI 2139c  MOVE.L  D0,D2>                                           {}
            <MI 2139e  ADDQ.L  #0x7,D2>                                         {}
            <POP 0x213a0 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 213a6  ASL.L   #0x1,D2>                                         {}
            <MI 213a8  LEA.L   0x2319c,A0>                                      {}
            <MI 213aa  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 213ae  AND.W   #0xff,D2>                                        {}
            <MI 213b0  CMPI.B  #0x45,D2>                                        {}
            <MI 213b4  BNE     0x2142a>                                         {}
        <POP 213b6-213d0 Naked>                              Σ0         ↓ →0x2142a
            <MI 213b6  MOVE.L  D0,D2>                                           {}
            <MI 213b8  ADDQ.L  #0x8,D2>                                         {}
            <POP 0x213ba LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 213c0  ASL.L   #0x1,D2>                                         {}
            <MI 213c2  LEA.L   0x2319c,A0>                                      {}
            <MI 213c4  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 213c8  AND.W   #0xff,D2>                                        {}
            <MI 213ca  CMPI.B  #0x50,D2>                                        {}
            <MI 213ce  BNE     0x2142a>                                         {}
        <POP 213d0-213ee Naked>                              Σ0         ↓ →0x2142a
            <MI 213d0  MOVE.L  D0,D2>                                           {}
            <MI 213d2  ADDI.L  #0x00000009,D2>                                  {}
            <POP 0x213d8 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 213de  ASL.L   #0x1,D2>                                         {}
            <MI 213e0  LEA.L   0x2319c,A0>                                      {}
            <MI 213e2  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 213e6  AND.W   #0xff,D2>                                        {}
            <MI 213e8  CMPI.B  #0x54,D2>                                        {}
            <MI 213ec  BNE     0x2142a>                                         {}
        <POP 213ee-2140c Naked>                              Σ0         ↓ →0x2142a
            <MI 213ee  MOVE.L  D0,D2>                                           {}
            <MI 213f0  ADDI.L  #0x0000000a,D2>                                  {}
            <POP 0x213f6 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 213fc  ASL.L   #0x1,D2>                                         {}
            <MI 213fe  LEA.L   0x2319c,A0>                                      {}
            <MI 21400  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 21404  AND.W   #0xff,D2>                                        {}
            <MI 21406  CMPI.B  #0x45,D2>                                        {}
            <MI 2140a  BNE     0x2142a>                                         {}
        <POP 2140c-21426 Naked>                              Σ0         ↓ →0x2142a
            <MI 2140c  ADDI.L  #0x0000000b,D0>                                  {}
            <POP 0x21412 LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {}
            <MI 21418  ASL.L   #0x1,D0>                                         {}
            <MI 2141a  LEA.L   0x2319c,A0>                                      {}
            <MI 2141c  MOVE.W  (A0+D0.L+#0xe),D0>                               {}
            <MI 21420  AND.W   #0xff,D0>                                        {}
            <MI 21422  CMP.B   #0x44,D0>                                        {}
            <MI 21424  BNE     0x2142a>                                         {}
        <POP 21426-2142a Naked>                              Σ0         →0x2142c
            <MI 21426  MOVEQ.L #0x00,D7>                                        {}
            <MI 21428  BRA     0x2142c>                                         {}
        <POP 2142a-2142c Naked>                              Σ0         ↓ ←0x212e0 ←0x212fc ←0x21316 ←0x21330 ←0x2134c ←0x21368 ←0x21382 ←0x2139c ←0x213b6 ←0x213d0 ←0x213ee ←0x2140c
            <MI 2142a  MOVE.L  D1,0x231a6>                                      {}
        <POP 2142c-21430 Naked>                              Σ0         →0x212ce ←0x21426
            <MI 2142c  BRA     0x212ce>                                         {}
        <POP 21430-21434 Naked>                              Σ0         ↓ ←0x212ce ←0x212da
            <MI 21430  MOVE.B  D7,(A6+0x8)>                                     {}
        <POP 21434-2143c Epilogue>                           Σ0         

0x2143c


@ 2143c
        <LVAR  0x008 1(w)>
    <POP 2143c-21566 Body>                                              
        <POP 2143c-21452 Prologue>                           Σ0         ↓
        <POP 21452-2146a RegCacheLoad>                       Σ0         ↓
        <POP 2146a-2146e Naked>                              Σ0         ↓
            <MI 2146a  CLR.L   0x231a6>                                         {}
            <MI 2146c  MOVEQ.L #0x01,D7>                                        {}
        <POP 2146e-2147a Naked>                              Σ0         ↓ →0x2155a ←0x21556
            <MI 2146e  MOVE.L  0x231a6,D0>                                      {}
            <MI 21470  CMP.L   0x239aa,D0>                                      {}
            <MI 21476  BGE     0x2155a>                                         {}
        <POP 2147a-21480 Naked>                              Σ0         ↓ →0x2155a
            <MI 2147a  TST.B   D7>                                              {}
            <MI 2147c  BEQ     0x2155a>                                         {}
        <POP 21480-2149e Naked>                              Σ0         ↓ →0x21554
            <MI 21480  MOVE.L  D0,D1>                                           {}
            <MI 21482  ADDQ.L  #0x1,D1>                                         {}
            <POP 0x21484 LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {}
            <MI 2148a  MOVE.L  D0,D2>                                           {}
            <MI 2148c  ASL.L   #0x1,D2>                                         {}
            <MI 2148e  LEA.L   0x2319c,A0>                                      {}
            <MI 21490  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 21494  AND.W   #0xff,D2>                                        {}
            <MI 21496  CMPI.B  #0x53,D2>                                        {}
            <MI 2149a  BNE     0x21554>                                         {}
        <POP 2149e-214b6 Naked>                              Σ0         ↓ →0x21554
            <POP 0x2149e LimitCheck 0x0 ≤ D1 ≤ 0x3ff>                           {}
            <MI 214a4  MOVE.L  D1,D2>                                           {}
            <MI 214a6  ASL.L   #0x1,D2>                                         {}
            <MI 214a8  LEA.L   0x2319c,A0>                                      {}
            <MI 214aa  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 214ae  AND.W   #0xff,D2>                                        {}
            <MI 214b0  CMP.B   #0x45,D2>                                        {}
            <MI 214b2  BNE     0x21554>                                         {}
        <POP 214b6-214d2 Naked>                              Σ0         ↓ →0x21554
            <MI 214b6  MOVE.L  D0,D2>                                           {}
            <MI 214b8  ADDQ.L  #0x2,D2>                                         {}
            <POP 0x214ba LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 214c0  ASL.L   #0x1,D2>                                         {}
            <MI 214c2  LEA.L   0x2319c,A0>                                      {}
            <MI 214c4  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 214c8  AND.W   #0xff,D2>                                        {}
            <MI 214ca  CMPI.B  #0x52,D2>                                        {}
            <MI 214ce  BNE     0x21554>                                         {}
        <POP 214d2-214ec Naked>                              Σ0         ↓ →0x21554
            <MI 214d2  MOVE.L  D0,D2>                                           {}
            <MI 214d4  ADDQ.L  #0x3,D2>                                         {}
            <POP 0x214d6 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 214dc  ASL.L   #0x1,D2>                                         {}
            <MI 214de  LEA.L   0x2319c,A0>                                      {}
            <MI 214e0  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 214e4  AND.W   #0xff,D2>                                        {}
            <MI 214e6  CMPI.B  #0x56,D2>                                        {}
            <MI 214ea  BNE     0x21554>                                         {}
        <POP 214ec-21506 Naked>                              Σ0         ↓ →0x21554
            <MI 214ec  MOVE.L  D0,D2>                                           {}
            <MI 214ee  ADDQ.L  #0x4,D2>                                         {}
            <POP 0x214f0 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 214f6  ASL.L   #0x1,D2>                                         {}
            <MI 214f8  LEA.L   0x2319c,A0>                                      {}
            <MI 214fa  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 214fe  AND.W   #0xff,D2>                                        {}
            <MI 21500  CMPI.B  #0x49,D2>                                        {}
            <MI 21504  BNE     0x21554>                                         {}
        <POP 21506-21520 Naked>                              Σ0         ↓ →0x21554
            <MI 21506  MOVE.L  D0,D2>                                           {}
            <MI 21508  ADDQ.L  #0x5,D2>                                         {}
            <POP 0x2150a LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 21510  ASL.L   #0x1,D2>                                         {}
            <MI 21512  LEA.L   0x2319c,A0>                                      {}
            <MI 21514  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 21518  AND.W   #0xff,D2>                                        {}
            <MI 2151a  CMPI.B  #0x43,D2>                                        {}
            <MI 2151e  BNE     0x21554>                                         {}
        <POP 21520-21538 Naked>                              Σ0         ↓ →0x21554
            <MI 21520  MOVE.L  D0,D2>                                           {}
            <MI 21522  ADDQ.L  #0x6,D2>                                         {}
            <POP 0x21524 LimitCheck 0x0 ≤ D2 ≤ 0x3ff>                           {}
            <MI 2152a  ASL.L   #0x1,D2>                                         {}
            <MI 2152c  LEA.L   0x2319c,A0>                                      {}
            <MI 2152e  MOVE.W  (A0+D2.L+#0xe),D2>                               {}
            <MI 21532  AND.W   #0xff,D2>                                        {}
            <MI 21534  CMP.B   #0x45,D2>                                        {}
            <MI 21536  BNE     0x21554>                                         {}
        <POP 21538-21550 Naked>                              Σ0         ↓ →0x21554
            <MI 21538  ADDQ.L  #0x7,D0>                                         {}
            <POP 0x2153a LimitCheck 0x0 ≤ D0 ≤ 0x3ff>                           {}
            <MI 21540  ASL.L   #0x1,D0>                                         {}
            <MI 21542  LEA.L   0x2319c,A0>                                      {}
            <MI 21544  MOVE.W  (A0+D0.L+#0xe),D0>                               {}
            <MI 21548  AND.W   #0xff,D0>                                        {}
            <MI 2154a  CMPI.B  #0x3a,D0>                                        {}
            <MI 2154e  BNE     0x21554>                                         {}
        <POP 21550-21554 Naked>                              Σ0         →0x21556
            <MI 21550  MOVEQ.L #0x00,D7>                                        {}
            <MI 21552  BRA     0x21556>                                         {}
        <POP 21554-21556 Naked>                              Σ0         ↓ ←0x21480 ←0x2149e ←0x214b6 ←0x214d2 ←0x214ec ←0x21506 ←0x21520 ←0x21538
            <MI 21554  MOVE.L  D1,0x231a6>                                      {}
        <POP 21556-2155a Naked>                              Σ0         →0x2146e ←0x21550
            <MI 21556  BRA     0x2146e>                                         {}
        <POP 2155a-2155e Naked>                              Σ0         ↓ ←0x2146e ←0x2147a
            <MI 2155a  MOVE.B  D7,(A6+0x8)>                                     {}
        <POP 2155e-21566 Epilogue>                           Σ0         

0x21566


@ 21566
        <LVAR -0x008 @ 4(rw)>
        <LVAR -0x00c @ 4(rw)>
        <LVAR -0x014 @ 4(rw)>
    <POP 21566-21dda Body>                                   Δ+98       
        <POP 21566-2157c Prologue>                           Σ0         ↓
        <POP 2157c-21590 RegCacheLoad>                       Σ0         ↓
        <POP 21590-21626 Naked>                              Σ0         →0x2162e →0x21662 →0x21694 →0x216c6
            <MI 21590  CLR.B   0x231a4>                                         {}
            <Call 0x21596 0x10216>                                              {}
                KC0b
            <Call 0x2159c 0x21072>                                              {}
            <Blob 0x2159e [36] @>                            Δ-36               {[«36""»]}
            <POP 215ae-215b0 StackAdj>                       Δ-6                {[«36""»]|[-6-]}
            <Lit 0x215b0 35>                                                    {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]}
            <POP 215bc-215be StackAdj>                       Δ-2                {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
            <MI 215be  CLR.B   (A7)>                                            {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
            <Call 0x215c0 0x103f0>                                              {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 215c6-215c8 StackAdj>                       Δ+6                {[«36""»]|[-2-]}
            <MI 215c8  MOVE.B  (A7)+,D0>                     Δ+2                {[«36""»]}
            <MI 215ca  EXTB.W  D0>                                              {[«36""»]}
            <POP 0x215cc LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«36""»]}
            <POP 215ce-215d0 StackAdj>                       Δ+36               {}
            <MI 215d0  MOVE.B  D0,0x231a4>                                      {}
            <Blob 0x215d6 [54] @>                            Δ-54               {[«54""»]}
            <POP 215e8-215ea StackAdj>                       Δ-8                {[«54""»]|[-8-]}
            <Lit 0x215ea 53>                                                    {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]}
            <Const 0x215f8 0x2.4>                            Δ-4                {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]}
            <Const 0x215fc 0x5.4>                            Δ-4                {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
            <Call 0x21600 0x103ec>                                              {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 21606-21608 StackAdj>                       Δ+12               {[«54""»]|[-4-]}
            <MI 21608  MOVE.L  (A7)+,D7>                     Δ+4                {[«54""»]}
            <POP 2160a-2160e StackAdj>                       Δ+54               {}
            <MI 2160e  MOVE.L  D7,D0>                                           {}
            <MI 21610  SUBQ.L  #0x2,D0>                                         {}
            <POP 0x21612 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 2161c  ADD.W   D0,D0>                                           {}
            <MI 2161e  SWITCH  D0.W>                                            {}
        <POP 2162e-21662 Naked>                              Σ0 Δ-8     →0x216f6 ←0x21590
            <Blob 0x2162e [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21632 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21636 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 2163a-2163c StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x2163c 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:2_]}
            <MI 2164a  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 2164e-2164f StackAdj>                       Δ+6        ↓       {}
            <Blob 0x2164f [8] @>                             Δ-8                {[«8""»]}
            <MI 2165e  BRA     0x216f6>                                         {[«8""»]}
        <POP 21662-21694 Naked>                              Σ0 Δ-8     →0x216f6 ←0x21590
            <Blob 0x21662 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21666 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x2166a [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 2166e-21670 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x21670 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:3_]}
            <MI 2167e  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21682-21683 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x21683 [8] @>                             Δ-8                {[«8""»]}
            <MI 21692  BRA     0x216f6>                                         {[«8""»]}
        <POP 21694-216c6 Naked>                              Σ0 Δ-8     →0x216f6 ←0x21590
            <Blob 0x21694 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21698 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x2169c [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 216a0-216a2 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x216a2 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:4_]}
            <MI 216b0  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 216b4-216b5 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x216b5 [8] @>                             Δ-8                {[«8""»]}
            <MI 216c4  BRA     0x216f6>                                         {[«8""»]}
        <POP 216c6-216f6 Naked>                              Σ0 Δ-8     ↓ ←0x21590
            <Blob 0x216c6 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x216ca [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x216ce [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 216d2-216d4 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x216d4 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:5_]}
            <MI 216e2  MOVE.L  (A7)+,(A6-0xc)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 216e6-216e7 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x216e7 [8] @>                             Δ-8                {[«8""»]}
        <POP 216f6-2170c Naked>                              Σ-8 Δ+8    ↓ ←0x2162e ←0x21662 ←0x21694
            <POP 216f6-216f8 StackAdj>                       Δ-4                {[-12-]}
            <Lit 0x216f8>                                                       {[-8-]|[$$…]}
                <Pointer.sp 0x216f8 4>                       Δ-4        
                <Const 0x216fc 0x1.2>                        Δ-2        
                <Const 0x216fe 0x7.2>                        Δ-2        
                <Call 0x21702 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21704-21706 StackAdj>                   Δ+8        
            <MI 21706  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[-8-]}
            <POP 2170a-2170c StackAdj>                       Δ+8                {}
        <POP 2170c-21740 Naked>                              Σ0         ↓ →0x2170c ←0x2170c
            <Blob 0x2170c [62] @>                            Δ-62               {[«62""»]}
            <POP 2171e-21720 StackAdj>                       Δ-8                {[«62""»]|[-8-]}
            <Lit 0x21720 61>                                                    {[«62""»]|[-4-]|[$$Enter the DTE address identification (ID) for the IOC port :_]}
            <Call 0x2172e 0x103e4>                                              {[«62""»]|[-4-]|[$$Enter the DTE address identification (ID) for the IOC port :_]}
                AskConsoleString(prompt : String) : String
            <POP 21734-21736 StackAdj>                       Δ+4                {[«62""»]|[-4-]}
            <MI 21736  MOVEA.L (A7)+,A4>                     Δ+4                {[«62""»]}
            <POP 21738-2173c StackAdj>                       Δ+62               {}
            <MI 2173c  TST.W   (A4)>                                            {}
            <MI 2173e  BEQ     0x2170c>                                         {}
        <POP 21740-21786 Naked>                              Σ0         ↓ →0x217fc
            <Blob 0x21740 [38] @>                            Δ-38               {[«38""»]}
            <POP 2174c-2174e StackAdj>                       Δ-8                {[«38""»]|[-8-]}
            <Lit 0x2174e 38>                                                    {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]}
            <Const 0x2175c 0x40.4>                           Δ-4                {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]}
            <Const 0x21760 0x100.4>                          Δ-4                {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]|[##256]}
            <Call 0x21764 0x103ec>                                              {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]|[##256]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 2176a-2176c StackAdj>                       Δ+12               {[«38""»]|[-4-]}
            <MI 2176c  MOVE.L  (A7)+,D6>                     Δ+4                {[«38""»]}
            <POP 2176e-21770 StackAdj>                       Δ+36               {[-2-]}
            <POP 21770-21771 StackAdj>                       Δ+2                {}
            <Const 0x21771 0x2.2>                            Δ-2                {[#2]}
            <Const 0x21772 0x10.2>                           Δ-2                {[#2]|[#16]}
            <Call 0x21774 0x1020c>                                              {[#2]|[#16]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 2177a-2177c StackAdj>                       Δ+4                {}
            <Call 0x2177c 0x21072>                                              {}
            <MI 2177e  TST.L   0x239aa>                                         {}
            <MI 21784  BNE     0x217fc>                                         {}
        <POP 21786-217c8 Naked>                              Σ0         ↓ →0x217fc
            <Const 0x21786 0x2.2>                            Δ-2                {[#2]}
            <Const 0x21788 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x2178c 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 21792-21794 StackAdj>                       Δ+2                {[#2]}
            <POP 21794-21795 StackAdj>                       Δ+2                {}
            <Const 0x21795 0x2.2>                            Δ-2                {[#2]}
            <Const 0x21796 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x2179a 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 217a0-217a2 StackAdj>                       Δ+2                {[#2]}
            <POP 217a2-217a3 StackAdj>                       Δ+2                {}
            <Const 0x217a3 0x2.2>                            Δ-2                {[#2]}
            <Const 0x217a4 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x217a8 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 217ae-217b0 StackAdj>                       Δ+2                {[#2]}
            <POP 217b0-217b1 StackAdj>                       Δ+2                {}
            <Const 0x217b1 0x2.2>                            Δ-2                {[#2]}
            <Const 0x217b2 0xd.2>                            Δ-2                {[#2]|[#13]}
            <Call 0x217b6 0x1020c>                                              {[#2]|[#13]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 217bc-217be StackAdj>                       Δ+4                {}
            <Call 0x217be 0x21072>                                              {}
            <MI 217c0  TST.L   0x239aa>                                         {}
            <MI 217c6  BNE     0x217fc>                                         {}
        <POP 217c8-217fc Naked>                              Σ0         ↓
            <Blob 0x217c8 [48] @>                            Δ-48               {[«48""»]}
            <POP 217d4-217d6 StackAdj>                       Δ-4                {[«48""»]|[-4-]}
            <Lit 0x217d6 48>                                                    {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
            <Call 0x217e4 0x103e0>                                              {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
                WriteConsoleStringCrLf(str : String)
            <POP 217ea-217ee StackAdj>                       Δ+50               {[-2-]}
            <POP 217ee-217ef StackAdj>                       Δ+2                {}
            <Const 0x217ef 0x2.2>                            Δ-2                {[#2]}
            <Const 0x217f0 0x1.4>                            Δ-4                {[#2]|[##1]}
            <Call 0x217f4 0x103b8>                                              {[#2]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 217fa-217fc StackAdj>                       Δ+6                {}
        <POP 217fc-21890 Naked>                              Σ0         ↓ →0x218e6 ←0x21740 ←0x21786
            <Pointer.fp 0x217fc <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x21800 0x102b8>                                              {[@@-20]}
                NewString(VAR a : String)
            <POP 21806-21807 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x21807 [10] @>                            Δ-10               {[«10""»]}
            <Blob 0x21816 [10] @>                            Δ-10               {[«10""»]|[«10""»]}
            <POP 21828-2182a StackAdj>                       Δ-4                {[«10""»]|[«10""»]|[-4-]}
            <MI 2182a  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']}
            <POP 2182e-21830 StackAdj>                       Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
            <Lit 0x21830 9>                                                     {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]}
            <POP 2183c-2183e StackAdj>                       Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[-4-]}
            <MI 2183e  MOVE.L  A4,(A7)>                                         {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']}
            <POP 21840-21842 StackAdj>                       Δ-8                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]}
            <MI 21842  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x8)']}
            <Call 0x21846 0x102cc>                                              {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x8)']}
                StringDup(a : String) : String
            <MI 2184c  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 0x21850 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 0x21856 9>                                                     {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x8)']|[$$PA:XYXYXY]}
            <Call 0x21864 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 2186a-2186c StackAdj>                       Δ+12               {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-4-]}
            <Call 0x2186c 0x102d8>                                              {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-4-]}
                StringCat4(a, b, c, d : String) : String
            <POP 21872-21874 StackAdj>                       Δ+16               {[«10""»]|[«10""»]|[-4-]}
            <MI 21874  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«10""»]|[«10""»]}
            <POP 21878-2187a StackAdj>                       Δ+16               {[-4-]}
            <MI 2187a  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Call 0x2187e 0x20ff4>                                              {[4, '(A6-0x14)']}
            <POP 21882-21884 StackAdj>                       Δ+4                {}
            <Call 0x21884 0x21072>                                              {}
            <POP 21886-21888 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21888 0x2129a>                                              {[-2-]}
            <MI 2188c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2188e  BEQ     0x218e6>                                         {}
        <POP 21890-218e6 Naked>                              Σ0         →0x21dce
            <Blob 0x21890 [64] @>                            Δ-64               {[«64""»]}
            <POP 218a2-218a4 StackAdj>                       Δ-4                {[«64""»]|[-4-]}
            <Lit 0x218a4 63>                                                    {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
            <Call 0x218b2 0x103e0>                                              {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
                WriteConsoleStringCrLf(str : String)
            <POP 218b8-218bc StackAdj>                       Δ+68               {}
            <Blob 0x218bc [66] @>                            Δ-66               {[«66""»]}
            <POP 218c8-218ca StackAdj>                       Δ-4                {[«66""»]|[-4-]}
            <Lit 0x218ca 66>                                                    {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
            <Call 0x218d8 0x103e0>                                              {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
                WriteConsoleStringCrLf(str : String)
            <POP 218de-218e2 StackAdj>                       Δ+70               {}
            <MI 218e2  BRA     0x21dce>                                         {}
        <POP 218e6-2196e Naked>                              Σ0         ↓ →0x2199e ←0x217fc
            <Pointer.fp 0x218e6 <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x218ea 0x102b8>                                              {[@@-20]}
                NewString(VAR a : String)
            <POP 218f0-218f2 StackAdj>                       Δ+4                {}
            <Blob 0x218f2 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x218fe [4] @>                             Δ-4                {[«14""»]|[«4""»]}
            <Blob 0x21902 [20] @>                            Δ-20               {[«14""»]|[«4""»]|[«20""»]}
            <POP 2190e-21910 StackAdj>                       Δ-8                {[«14""»]|[«4""»]|[«20""»]|[-8-]}
            <Lit 0x21910 14>                                                    {[«14""»]|[«4""»]|[«20""»]|[-4-]|[$$S N C CH:1 NS:]}
            <MI 2191c  MOVE.L  D6,(A7)>                                         {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']}
            <POP 2191a-2191c StackAdj>                       Δ-8                {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-8-]}
            <Call 0x2191e 0x102e4>                                              {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x21924 4>                                                     {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-4-]|[$$ SS:]}
            <MI 21930  MOVE.L  D6,(A7)>                                         {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D6']}
            <POP 2192e-21930 StackAdj>                       Δ-8                {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D6']|[-8-]}
            <Call 0x21932 0x102e4>                                              {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D6']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x21938 20>                                                    {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D6']|[-4-]|[$$ FW:7 PW:2 PA:XYXYXY]}
            <Call 0x21946 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 2194c-21950 StackAdj>                       Δ+20               {[«14""»]|[«4""»]|[«20""»]|[-4-]}
            <MI 21950  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«14""»]|[«4""»]|[«20""»]}
            <POP 21954-21958 StackAdj>                       Δ+34               {[-4-]}
            <MI 21958  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Call 0x2195c 0x20ff4>                                              {[4, '(A6-0x14)']}
            <POP 21960-21962 StackAdj>                       Δ+4                {}
            <Call 0x21962 0x21072>                                              {}
            <POP 21964-21966 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21966 0x2129a>                                              {[-2-]}
            <MI 2196a  TST.B   (A7)+>                        Δ+2                {}
            <MI 2196c  BEQ     0x2199e>                                         {}
        <POP 2196e-21980 Naked>                              Σ0 Δ-14    ↓
            <Blob 0x2196e [14] @>                            Δ-14               {[«14""»]}
        <POP 21980-2199e Naked>                              Σ-14 Δ+14  →0x21d58 ←0x21a40 ←0x21acc ←0x21b60
            <POP 21980-21982 StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x21982>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x21982 4>                       Δ-4        
                <Const 0x21986 0x1.2>                        Δ-2        
                <Const 0x21988 0xd.2>                        Δ-2        
                <Call 0x2198c 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 2198e-21990 StackAdj>                   Δ+8        
            <Call 0x21990 0x103e0>                                              {[-14-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 21996-2199a StackAdj>                       Δ+18               {}
            <MI 2199a  BRA     0x21d58>                                         {}
        <POP 2199e-21a40 Naked>                              Σ0         ↓ →0x21a56 ←0x218e6
            <Pointer.fp 0x2199e <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x219a2 0x102b8>                                              {[@@-20]}
                NewString(VAR a : String)
            <POP 219a8-219aa StackAdj>                       Δ+4                {}
            <Blob 0x219aa [24] @>                            Δ-24               {[«24""»]}
            <Blob 0x219b6 [12] @>                            Δ-12               {[«24""»]|[«12""»]}
            <Blob 0x219c6 [20] @>                            Δ-20               {[«24""»]|[«12""»]|[«20""»]}
            <POP 219d8-219da StackAdj>                       Δ-4                {[«24""»]|[«12""»]|[«20""»]|[-4-]}
            <MI 219da  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']}
            <POP 219de-219e0 StackAdj>                       Δ-4                {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
            <Lit 0x219e0 24>                                                    {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[$$S A P CO:B DC:N DO:N FS:]}
            <MI 219ec  MOVE.L  D6,(A7)>                                         {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']}
            <POP 219ea-219ec StackAdj>                       Δ-8                {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-8-]}
            <Call 0x219ee 0x102e4>                                              {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-8-]}
                Long2String(a : Long) : String
            <Lit 0x219f4 11>                                                    {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-4-]|[$$ ID:A2 PC:N]}
            <MI 21a00  MOVE.L  (A6-0xc),(A7)>                                   {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-4-]|[4, '(A6-0xc)']}
            <POP 219fe-21a00 StackAdj>                       Δ-8                {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-4-]|[4, '(A6-0xc)']|[-8-]}
            <Call 0x21a04 0x102cc>                                              {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-4-]|[4, '(A6-0xc)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x21a0a 19>                                                    {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-4-]|[4, '(A6-0xc)']|[-4-]|[$$TP:Y US:N PA:XYXYXY]}
            <Call 0x21a18 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 21a1e-21a22 StackAdj>                       Δ+24               {[«24""»]|[«12""»]|[«20""»]|[-4-]}
            <MI 21a22  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«24""»]|[«12""»]|[«20""»]}
            <POP 21a26-21a2a StackAdj>                       Δ+52               {[-4-]}
            <MI 21a2a  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Call 0x21a2e 0x20ff4>                                              {[4, '(A6-0x14)']}
            <POP 21a32-21a34 StackAdj>                       Δ+4                {}
            <Call 0x21a34 0x21072>                                              {}
            <POP 21a36-21a38 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21a38 0x2129a>                                              {[-2-]}
            <MI 21a3c  TST.B   (A7)+>                        Δ+2                {}
            <MI 21a3e  BEQ     0x21a56>                                         {}
        <POP 21a40-21a56 Naked>                              Σ0 Δ-14    →0x21980
            <Blob 0x21a40 [14] @>                            Δ-14               {[«14""»]}
            <MI 21a52  BRA     0x21980>                                         {[«14""»]}
        <POP 21a56-21acc Naked>                              Σ0         ↓ →0x21ae2 ←0x2199e
            <Pointer.fp 0x21a56 <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x21a5a 0x102b8>                                              {[@@-20]}
                NewString(VAR a : String)
            <POP 21a60-21a62 StackAdj>                       Δ+4                {}
            <Blob 0x21a62 [10] @>                            Δ-10               {[«10""»]}
            <Blob 0x21a6e [32] @>                            Δ-32               {[«10""»]|[«32""»]}
            <POP 21a7a-21a7c StackAdj>                       Δ-4                {[«10""»]|[«32""»]|[-4-]}
            <MI 21a7c  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']}
            <POP 21a80-21a82 StackAdj>                       Δ-4                {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
            <Lit 0x21a82 10>                                                    {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[$$S L P LE:8]}
            <MI 21a8e  MOVE.L  (A6-0xc),(A7)>                                   {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']}
            <POP 21a8c-21a8e StackAdj>                       Δ-8                {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-8-]}
            <Call 0x21a92 0x102cc>                                              {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x21a98 32>                                                    {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-4-]|[$$PR:N ST:1 SP:9600 UC:Y PA:XYXYXY]}
            <Call 0x21aa6 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 21aac-21aae StackAdj>                       Δ+16               {[«10""»]|[«32""»]|[-4-]}
            <MI 21aae  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«10""»]|[«32""»]}
            <POP 21ab2-21ab6 StackAdj>                       Δ+38               {[-4-]}
            <MI 21ab6  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Call 0x21aba 0x20ff4>                                              {[4, '(A6-0x14)']}
            <POP 21abe-21ac0 StackAdj>                       Δ+4                {}
            <Call 0x21ac0 0x21072>                                              {}
            <POP 21ac2-21ac4 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21ac4 0x2129a>                                              {[-2-]}
            <MI 21ac8  TST.B   (A7)+>                        Δ+2                {}
            <MI 21aca  BEQ     0x21ae2>                                         {}
        <POP 21acc-21ae2 Naked>                              Σ0 Δ-14    →0x21980
            <Blob 0x21acc [14] @>                            Δ-14               {[«14""»]}
            <MI 21ade  BRA     0x21980>                                         {[«14""»]}
        <POP 21ae2-21b60 Naked>                              Σ0         ↓ →0x21b76 ←0x21a56
            <Pointer.fp 0x21ae2 <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x21ae6 0x102b8>                                              {[@@-20]}
                NewString(VAR a : String)
            <POP 21aec-21aed StackAdj>                       Δ+4        ↓       {}
            <Blob 0x21aed [16] @>                            Δ-16               {[«16""»]}
            <Blob 0x21afc [10] @>                            Δ-10               {[«16""»]|[«10""»]}
            <POP 21b0e-21b10 StackAdj>                       Δ-4                {[«16""»]|[«10""»]|[-4-]}
            <MI 21b10  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']}
            <POP 21b14-21b16 StackAdj>                       Δ-4                {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
            <Lit 0x21b16 15>                                                    {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$S U C XA:Y XD:1]}
            <MI 21b22  MOVE.L  (A6-0xc),(A7)>                                   {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']}
            <POP 21b20-21b22 StackAdj>                       Δ-8                {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-8-]}
            <Call 0x21b26 0x102cc>                                              {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x21b2c 9>                                                     {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-4-]|[$$PA:XYXYXY]}
            <Call 0x21b3a 0x102d8>                                              {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-4-]|[$$PA:XYXYXY]}
                StringCat4(a, b, c, d : String) : String
            <POP 21b40-21b42 StackAdj>                       Δ+16               {[«16""»]|[«10""»]|[-4-]}
            <MI 21b42  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«16""»]|[«10""»]}
            <POP 21b46-21b4a StackAdj>                       Δ+22               {[-4-]}
            <MI 21b4a  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Call 0x21b4e 0x20ff4>                                              {[4, '(A6-0x14)']}
            <POP 21b52-21b54 StackAdj>                       Δ+4                {}
            <Call 0x21b54 0x21072>                                              {}
            <POP 21b56-21b58 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21b58 0x2129a>                                              {[-2-]}
            <MI 21b5c  TST.B   (A7)+>                        Δ+2                {}
            <MI 21b5e  BEQ     0x21b76>                                         {}
        <POP 21b60-21b76 Naked>                              Σ0 Δ-14    →0x21980
            <Blob 0x21b60 [14] @>                            Δ-14               {[«14""»]}
            <MI 21b72  BRA     0x21980>                                         {[«14""»]}
        <POP 21b76-21be8 Naked>                              Σ0         ↓ →0x21c18 ←0x21ae2
            <Pointer.fp 0x21b76 <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x21b7a 0x102b8>                                              {[@@-20]}
                NewString(VAR a : String)
            <POP 21b80-21b81 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x21b81 [48] @>                            Δ-48               {[«48""»]}
            <Blob 0x21b92 [42] @>                            Δ-42               {[«48""»]|[«42""»]}
            <POP 21b9e-21ba0 StackAdj>                       Δ-4                {[«48""»]|[«42""»]|[-4-]}
            <MI 21ba0  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x14)']}
            <POP 21ba4-21ba6 StackAdj>                       Δ-4                {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
            <Lit 0x21ba6 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 21bb2-21bb4 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 0x21bb4 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 0x21bc2 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 21bc8-21bca StackAdj>                       Δ+12               {[«48""»]|[«42""»]|[-4-]}
            <MI 21bca  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«48""»]|[«42""»]}
            <POP 21bce-21bd2 StackAdj>                       Δ+86               {[-4-]}
            <MI 21bd2  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Call 0x21bd6 0x20ff4>                                              {[4, '(A6-0x14)']}
            <POP 21bda-21bdc StackAdj>                       Δ+4                {}
            <Call 0x21bdc 0x21072>                                              {}
            <POP 21bde-21be0 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21be0 0x2129a>                                              {[-2-]}
            <MI 21be4  TST.B   (A7)+>                        Δ+2                {}
            <MI 21be6  BEQ     0x21c18>                                         {}
        <POP 21be8-21c06 Naked>                              Σ0 Δ-32    ↓
            <Blob 0x21be8 [20] @>                            Δ-20               {[«20""»]}
            <POP 21bfa-21bfc StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Pointer.sp 0x21bfc 4>                           Δ-4                {[«20""»]|[-4-]|[^^4]}
            <Const 0x21c00 0x1.2>                            Δ-2                {[«20""»]|[-4-]|[^^4]|[#1]}
            <Const 0x21c02 0x13.2>                           Δ-2                {[«20""»]|[-4-]|[^^4]|[#1]|[#19]}
        <POP 21c06-21c18 Naked>                              Σ-32 Δ+32  →0x21d58 ←0x21c86
            <Call 0x21c06 0x102c4>                                              {[-32-]}
                StringLit(Src : Pointer; Offset: W; Len : W) : String
            <POP 21c08-21c0a StackAdj>                       Δ+8                {[-24-]}
            <Call 0x21c0a 0x103e0>                                              {[-24-]}
                WriteConsoleStringCrLf(str : String)
            <POP 21c10-21c14 StackAdj>                       Δ+24               {}
            <MI 21c14  BRA     0x21d58>                                         {}
        <POP 21c18-21c86 Naked>                              Σ0         ↓ →0x21ca2 ←0x21b76
            <Pointer.fp 0x21c18 <LVAR -0x014 @ 4(rw)>>       Δ-4                {[@@-20]}
            <Call 0x21c1c 0x102b8>                                              {[@@-20]}
                NewString(VAR a : String)
            <POP 21c22-21c24 StackAdj>                       Δ+4                {}
            <Blob 0x21c24 [50] @>                            Δ-50               {[«50""»]}
            <Blob 0x21c30 [50] @>                            Δ-50               {[«50""»]|[«50""»]}
            <POP 21c3c-21c3e StackAdj>                       Δ-4                {[«50""»]|[«50""»]|[-4-]}
            <MI 21c3e  MOVE.L  (A6-0x14),-(A7)>              Δ-4                {[«50""»]|[«50""»]|[-4-]|[4, '(A6-0x14)']}
            <POP 21c42-21c44 StackAdj>                       Δ-4                {[«50""»]|[«50""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
            <Lit 0x21c44 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 21c50-21c52 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 0x21c52 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 0x21c60 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 21c66-21c68 StackAdj>                       Δ+12               {[«50""»]|[«50""»]|[-4-]}
            <MI 21c68  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«50""»]|[«50""»]}
            <POP 21c6c-21c70 StackAdj>                       Δ+96               {[-4-]}
            <MI 21c70  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Call 0x21c74 0x20ff4>                                              {[4, '(A6-0x14)']}
            <POP 21c78-21c7a StackAdj>                       Δ+4                {}
            <Call 0x21c7a 0x21072>                                              {}
            <POP 21c7c-21c7e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21c7e 0x2129a>                                              {[-2-]}
            <MI 21c82  TST.B   (A7)+>                        Δ+2                {}
            <MI 21c84  BEQ     0x21ca2>                                         {}
        <POP 21c86-21ca2 Naked>                              Σ0 Δ-32    →0x21c06
            <Blob 0x21c86 [20] @>                            Δ-20               {[«20""»]}
            <POP 21c92-21c94 StackAdj>                       Δ-4                {[«20""»]|[-4-]}
            <Pointer.sp 0x21c94 4>                           Δ-4                {[«20""»]|[-4-]|[^^4]}
            <Const 0x21c98 0x1.2>                            Δ-2                {[«20""»]|[-4-]|[^^4]|[#1]}
            <Const 0x21c9a 0x14.2>                           Δ-2                {[«20""»]|[-4-]|[^^4]|[#1]|[#20]}
            <MI 21c9e  BRA     0x21c06>                                         {[«20""»]|[-4-]|[^^4]|[#1]|[#20]}
        <POP 21ca2-21cee Naked>                              Σ0         ↓ →0x21d18 ←0x21c18
            <Blob 0x21ca2 [14] @>                            Δ-14               {[«14""»]}
            <POP 21cb4-21cb6 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x21cb6 13>                                                    {[«14""»]|[$$W S PA:XYXYXY]}
            <MI 21cc4  MOVE.L  (A7)+,(A6-0x14)>              Δ+4                {[«14""»]}
            <POP 21cc8-21ccc StackAdj>                       Δ+10               {[-4-]}
            <MI 21ccc  MOVE.L  (A6-0x14),(A7)>                                  {[4, '(A6-0x14)']}
            <Call 0x21cd0 0x20ff4>                                              {[4, '(A6-0x14)']}
            <POP 21cd4-21cd5 StackAdj>                       Δ+4                {}
            <Const 0x21cd5 0x2faee.4>                        Δ-4                {[##195310]}
            <Call 0x21cda 0x10224>                                              {[##195310]}
                KC12_Sleep(dur: Long)
            <POP 21ce0-21ce2 StackAdj>                       Δ+4                {}
            <Call 0x21ce2 0x21072>                                              {}
            <POP 21ce4-21ce6 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x21ce6 0x2143c>                                              {[-2-]}
            <MI 21cea  TST.B   (A7)+>                        Δ+2                {}
            <MI 21cec  BEQ     0x21d18>                                         {}
        <POP 21cee-21d18 Naked>                              Σ0         →0x21d58
            <Blob 0x21cee [12] @>                            Δ-12               {[«12""»]}
            <POP 21cfe-21d00 StackAdj>                       Δ-4                {[«12""»]|[-4-]}
            <Lit 0x21d00 11>                                                    {[«12""»]|[$$W S failed.]}
            <Call 0x21d0e 0x103e0>                                              {[«12""»]|[$$W S failed.]}
                WriteConsoleStringCrLf(str : String)
            <POP 21d14-21d16 StackAdj>                       Δ+16               {}
            <MI 21d16  BRA     0x21d58>                                         {}
        <POP 21d18-21d58 Naked>                              Σ0         →0x21dce ←0x21ca2
            <Blob 0x21d18 [28] @>                            Δ-28               {[«28""»]}
            <POP 21d24-21d26 StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x21d26 28>                                                    {[«28""»]|[$$The PAD has been configured!]}
            <Call 0x21d34 0x103e0>                                              {[«28""»]|[$$The PAD has been configured!]}
                WriteConsoleStringCrLf(str : String)
            <POP 21d3a-21d3e StackAdj>                       Δ+32               {}
            <Pointer.fp 0x21d3e <LVAR -0x00c @ 4(rw)>>       Δ-4                {[@@-12]}
            <Call 0x21d42 0x102bc>                                              {[@@-12]}
                FreeString(VAR a : String)
            <POP 21d48-21d4a StackAdj>                       Δ+4                {}
            <Pointer.fp 0x21d4a <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x21d4e 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 21d54-21d56 StackAdj>                       Δ+4                {}
            <MI 21d56  BRA     0x21dce>                                         {}
        <POP 21d58-21dce Naked>                              Σ0         ↓ ←0x21980 ←0x21c06 ←0x21cee
            <Blob 0x21d58 [64] @>                            Δ-64               {[«64""»]}
            <POP 21d6a-21d6c StackAdj>                       Δ-4                {[«64""»]|[-4-]}
            <Lit 0x21d6c 63>                                                    {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
            <Call 0x21d7a 0x103e0>                                              {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
                WriteConsoleStringCrLf(str : String)
            <POP 21d80-21d84 StackAdj>                       Δ+68               {}
            <Blob 0x21d84 [60] @>                            Δ-60               {[«60""»]}
            <POP 21d90-21d92 StackAdj>                       Δ-4                {[«60""»]|[-4-]}
            <Lit 0x21d92 60>                                                    {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
            <Call 0x21da0 0x103e0>                                              {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
                WriteConsoleStringCrLf(str : String)
            <POP 21da6-21daa StackAdj>                       Δ+64               {}
            <Blob 0x21daa [32] @>                            Δ-32               {[«32""»]}
            <POP 21db6-21db8 StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Lit 0x21db8 32>                                                    {[«32""»]|[$$configuration or replace the PAD]}
            <Call 0x21dc6 0x103e0>                                              {[«32""»]|[$$configuration or replace the PAD]}
                WriteConsoleStringCrLf(str : String)
            <POP 21dcc-21dce StackAdj>                       Δ+36               {}
        <POP 21dce-21dd2 Naked>                              Σ0         ↓ ←0x21890 ←0x21d18
            <Call 0x21dce 0x20fca>                                              {}
        <POP 21dd2-21dda Epilogue>                           Σ0         

0x21dda


@ 21dda
        <LVAR  0x008 1(r)>
        <LVAR -0x00a @ 4(rw)>
        <LVAR -0x00e @ 4(rw)>
        <LVAR -0x016 @ 4(rw)>
    <POP 21dda-225bc Body>                                   Δ+138      
        <POP 21dda-21df0 Prologue>                           Σ0         ↓
        <POP 21df0-21e04 RegCacheLoad>                       Σ0         ↓
        <POP 21e04-21e9a Naked>                              Σ0         →0x21ea2 →0x21ed6 →0x21f08 →0x21f3a
            <MI 21e04  CLR.B   0x231a4>                                         {}
            <Call 0x21e0a 0x10216>                                              {}
                KC0b
            <Call 0x21e10 0x21072>                                              {}
            <Blob 0x21e12 [36] @>                            Δ-36               {[«36""»]}
            <POP 21e22-21e24 StackAdj>                       Δ-6                {[«36""»]|[-6-]}
            <Lit 0x21e24 35>                                                    {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]}
            <POP 21e30-21e32 StackAdj>                       Δ-2                {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
            <MI 21e32  CLR.B   (A7)>                                            {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
            <Call 0x21e34 0x103f0>                                              {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 21e3a-21e3c StackAdj>                       Δ+6                {[«36""»]|[-2-]}
            <MI 21e3c  MOVE.B  (A7)+,D0>                     Δ+2                {[«36""»]}
            <MI 21e3e  EXTB.W  D0>                                              {[«36""»]}
            <POP 0x21e40 LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«36""»]}
            <POP 21e42-21e44 StackAdj>                       Δ+36               {}
            <MI 21e44  MOVE.B  D0,0x231a4>                                      {}
            <Blob 0x21e4a [54] @>                            Δ-54               {[«54""»]}
            <POP 21e5c-21e5e StackAdj>                       Δ-8                {[«54""»]|[-8-]}
            <Lit 0x21e5e 53>                                                    {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]}
            <Const 0x21e6c 0x2.4>                            Δ-4                {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]}
            <Const 0x21e70 0x5.4>                            Δ-4                {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
            <Call 0x21e74 0x103ec>                                              {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 21e7a-21e7c StackAdj>                       Δ+12               {[«54""»]|[-4-]}
            <MI 21e7c  MOVE.L  (A7)+,D7>                     Δ+4                {[«54""»]}
            <POP 21e7e-21e82 StackAdj>                       Δ+54               {}
            <MI 21e82  MOVE.L  D7,D0>                                           {}
            <MI 21e84  SUBQ.L  #0x2,D0>                                         {}
            <POP 0x21e86 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 21e90  ADD.W   D0,D0>                                           {}
            <MI 21e92  SWITCH  D0.W>                                            {}
        <POP 21ea2-21ed6 Naked>                              Σ0 Δ-8     →0x21f6a ←0x21e04
            <Blob 0x21ea2 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21ea6 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21eaa [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21eae-21eb0 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x21eb0 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:2_]}
            <MI 21ebe  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21ec2-21ec3 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x21ec3 [8] @>                             Δ-8                {[«8""»]}
            <MI 21ed2  BRA     0x21f6a>                                         {[«8""»]}
        <POP 21ed6-21f08 Naked>                              Σ0 Δ-8     →0x21f6a ←0x21e04
            <Blob 0x21ed6 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21eda [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21ede [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21ee2-21ee4 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x21ee4 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:3_]}
            <MI 21ef2  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21ef6-21ef7 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x21ef7 [8] @>                             Δ-8                {[«8""»]}
            <MI 21f06  BRA     0x21f6a>                                         {[«8""»]}
        <POP 21f08-21f3a Naked>                              Σ0 Δ-8     →0x21f6a ←0x21e04
            <Blob 0x21f08 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21f0c [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21f10 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21f14-21f16 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x21f16 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:4_]}
            <MI 21f24  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21f28-21f29 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x21f29 [8] @>                             Δ-8                {[«8""»]}
            <MI 21f38  BRA     0x21f6a>                                         {[«8""»]}
        <POP 21f3a-21f6a Naked>                              Σ0 Δ-8     ↓ ←0x21e04
            <Blob 0x21f3a [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x21f3e [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x21f42 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21f46-21f48 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x21f48 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:5_]}
            <MI 21f56  MOVE.L  (A7)+,(A6-0xe)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 21f5a-21f5b StackAdj>                       Δ+6        ↓       {}
            <Blob 0x21f5b [8] @>                             Δ-8                {[«8""»]}
        <POP 21f6a-21f80 Naked>                              Σ-8 Δ+8    ↓ ←0x21ea2 ←0x21ed6 ←0x21f08
            <POP 21f6a-21f6c StackAdj>                       Δ-4                {[-12-]}
            <Lit 0x21f6c>                                                       {[-8-]|[$$…]}
                <Pointer.sp 0x21f6c 4>                       Δ-4        
                <Const 0x21f70 0x1.2>                        Δ-2        
                <Const 0x21f72 0x7.2>                        Δ-2        
                <Call 0x21f76 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 21f78-21f7a StackAdj>                   Δ+8        
            <MI 21f7a  MOVE.L  (A7)+,(A6-0xa)>               Δ+4                {[-8-]}
            <POP 21f7e-21f80 StackAdj>                       Δ+8                {}
        <POP 21f80-21fb4 Naked>                              Σ0         ↓ →0x21f80 ←0x21f80
            <Blob 0x21f80 [70] @>                            Δ-70               {[«70""»]}
            <POP 21f92-21f94 StackAdj>                       Δ-8                {[«70""»]|[-8-]}
            <Lit 0x21f94 69>                                                    {[«70""»]|[-4-]|[$$Enter the DTE address identification (ID) for the ENVIRONMENT port :_]}
            <Call 0x21fa2 0x103e4>                                              {[«70""»]|[-4-]|[$$Enter the DTE address identification (ID) for the ENVIRONMENT port :_]}
                AskConsoleString(prompt : String) : String
            <POP 21fa8-21faa StackAdj>                       Δ+4                {[«70""»]|[-4-]}
            <MI 21faa  MOVEA.L (A7)+,A4>                     Δ+4                {[«70""»]}
            <POP 21fac-21fb0 StackAdj>                       Δ+70               {}
            <MI 21fb0  TST.W   (A4)>                                            {}
            <MI 21fb2  BEQ     0x21f80>                                         {}
        <POP 21fb4-21ffc Naked>                              Σ0         ↓ →0x22072
            <Blob 0x21fb4 [38] @>                            Δ-38               {[«38""»]}
            <POP 21fc0-21fc2 StackAdj>                       Δ-8                {[«38""»]|[-8-]}
            <Lit 0x21fc2 38>                                                    {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]}
            <Const 0x21fd0 0x40.4>                           Δ-4                {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]}
            <Const 0x21fd4 0x100.4>                          Δ-4                {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]|[##256]}
            <Call 0x21fd8 0x103ec>                                              {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]|[##256]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 21fde-21fe0 StackAdj>                       Δ+12               {[«38""»]|[-4-]}
            <MI 21fe0  MOVE.L  (A7)+,D6>                     Δ+4                {[«38""»]}
            <POP 21fe2-21fe4 StackAdj>                       Δ+36               {[-2-]}
            <POP 21fe4-21fe5 StackAdj>                       Δ+2                {}
            <Const 0x21fe5 0x2.2>                            Δ-2                {[#2]}
            <Const 0x21fe6 0x10.2>                           Δ-2                {[#2]|[#16]}
            <Call 0x21fea 0x1020c>                                              {[#2]|[#16]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 21ff0-21ff2 StackAdj>                       Δ+4                {}
            <Call 0x21ff2 0x21072>                                              {}
            <MI 21ff4  TST.L   0x239aa>                                         {}
            <MI 21ffa  BNE     0x22072>                                         {}
        <POP 21ffc-2203e Naked>                              Σ0         ↓ →0x22072
            <Const 0x21ffc 0x2.2>                            Δ-2                {[#2]}
            <Const 0x21ffe 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x22002 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 22008-2200a StackAdj>                       Δ+2                {[#2]}
            <POP 2200a-2200b StackAdj>                       Δ+2                {}
            <Const 0x2200b 0x2.2>                            Δ-2                {[#2]}
            <Const 0x2200c 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x22010 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 22016-22018 StackAdj>                       Δ+2                {[#2]}
            <POP 22018-22019 StackAdj>                       Δ+2                {}
            <Const 0x22019 0x2.2>                            Δ-2                {[#2]}
            <Const 0x2201a 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x2201e 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 22024-22026 StackAdj>                       Δ+2                {[#2]}
            <POP 22026-22027 StackAdj>                       Δ+2                {}
            <Const 0x22027 0x2.2>                            Δ-2                {[#2]}
            <Const 0x22028 0xd.2>                            Δ-2                {[#2]|[#13]}
            <Call 0x2202c 0x1020c>                                              {[#2]|[#13]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 22032-22034 StackAdj>                       Δ+4                {}
            <Call 0x22034 0x21072>                                              {}
            <MI 22036  TST.L   0x239aa>                                         {}
            <MI 2203c  BNE     0x22072>                                         {}
        <POP 2203e-22072 Naked>                              Σ0         ↓
            <Blob 0x2203e [48] @>                            Δ-48               {[«48""»]}
            <POP 2204a-2204c StackAdj>                       Δ-4                {[«48""»]|[-4-]}
            <Lit 0x2204c 48>                                                    {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
            <Call 0x2205a 0x103e0>                                              {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
                WriteConsoleStringCrLf(str : String)
            <POP 22060-22064 StackAdj>                       Δ+50               {[-2-]}
            <POP 22064-22065 StackAdj>                       Δ+2                {}
            <Const 0x22065 0x2.2>                            Δ-2                {[#2]}
            <Const 0x22066 0x1.4>                            Δ-4                {[#2]|[##1]}
            <Call 0x2206a 0x103b8>                                              {[#2]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 22070-22072 StackAdj>                       Δ+6                {}
        <POP 22072-220ac Naked>                              Σ0         ↓ →0x220da ←0x21fb4 ←0x21ffc
            <Blob 0x22072 [26] @>                            Δ-26               {[«26""»]}
            <POP 2207e-22080 StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x22080 26>                                                    {[«26""»]|[$$S A P PC:Y ID:D0 PA:XYXYXY]}
            <MI 2208e  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[«26""»]}
            <POP 22092-22096 StackAdj>                       Δ+22               {[-4-]}
            <MI 22096  MOVE.L  (A6-0x16),(A7)>                                  {[4, '(A6-0x16)']}
            <Call 0x2209a 0x20ff4>                                              {[4, '(A6-0x16)']}
            <POP 2209e-220a0 StackAdj>                       Δ+4                {}
            <Call 0x220a0 0x21072>                                              {}
            <POP 220a2-220a4 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x220a4 0x2129a>                                              {[-2-]}
            <MI 220a8  TST.B   (A7)+>                        Δ+2                {}
            <MI 220aa  BEQ     0x220da>                                         {}
        <POP 220ac-220bc Naked>                              Σ0 Δ-14    ↓
            <Blob 0x220ac [14] @>                            Δ-14               {[«14""»]}
        <POP 220bc-220da Naked>                              Σ-14 Δ+14  →0x2253a ←0x2218c ←0x22256 ←0x222e4 ←0x22382
            <POP 220bc-220be StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x220be>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x220be 4>                       Δ-4        
                <Const 0x220c2 0x1.2>                        Δ-2        
                <Const 0x220c4 0xd.2>                        Δ-2        
                <Call 0x220c8 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 220ca-220cc StackAdj>                   Δ+8        
            <Call 0x220cc 0x103e0>                                              {[-14-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 220d2-220d6 StackAdj>                       Δ+18               {}
            <MI 220d6  BRA     0x2253a>                                         {}
        <POP 220da-220e0 Naked>                              Σ0         ↓ →0x220ee ←0x22072
            <MI 220da  TST.B   (A6+0x8)>                                        {}
            <MI 220de  BNE     0x220ee>                                         {}
        <POP 220e0-220ee Naked>                              Σ0 Δ-36    →0x220fa
            <Blob 0x220e0 [36] @>                            Δ-36               {[«36""»]}
            <MI 220ec  BRA     0x220fa>                                         {[«36""»]}
        <POP 220ee-220fa Naked>                              Σ0 Δ-36    ↓ ←0x220da
            <Blob 0x220ee [36] @>                            Δ-36               {[«36""»]}
        <POP 220fa-22124 Naked>                              Σ-36 Δ+36  ↓ →0x22152 ←0x220e0
            <POP 220fa-220fc StackAdj>                       Δ-4                {[-40-]}
            <Lit 0x220fc>                                                       {[-36-]|[$$…]}
                <Pointer.sp 0x220fc 4>                       Δ-4        
                <Const 0x22100 0x1.2>                        Δ-2        
                <Const 0x22102 0x24.2>                       Δ-2        
                <Call 0x22104 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22106-22108 StackAdj>                   Δ+8        
            <MI 22108  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[-36-]}
            <POP 2210c-2210e StackAdj>                       Δ+36               {}
            <MI 2210e  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[4, '(A6-0x16)']}
            <Call 0x22112 0x20ff4>                                              {[4, '(A6-0x16)']}
            <POP 22116-22118 StackAdj>                       Δ+4                {}
            <Call 0x22118 0x21072>                                              {}
            <POP 2211a-2211c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2211c 0x2143c>                                              {[-2-]}
            <MI 22120  TST.B   (A7)+>                        Δ+2                {}
            <MI 22122  BEQ     0x22152>                                         {}
        <POP 22124-22134 Naked>                              Σ0 Δ-12    ↓
            <Blob 0x22124 [12] @>                            Δ-12               {[«12""»]}
        <POP 22134-22152 Naked>                              Σ-12 Δ+12  →0x2253a ←0x224e0
            <POP 22134-22136 StackAdj>                       Δ-4                {[-16-]}
            <Lit 0x22136>                                                       {[-12-]|[$$…]}
                <Pointer.sp 0x22136 4>                       Δ-4        
                <Const 0x2213a 0x1.2>                        Δ-2        
                <Const 0x2213c 0xb.2>                        Δ-2        
                <Call 0x22140 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22142-22144 StackAdj>                   Δ+8        
            <Call 0x22144 0x103e0>                                              {[-12-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 2214a-2214e StackAdj>                       Δ+16               {}
            <MI 2214e  BRA     0x2253a>                                         {}
        <POP 22152-2218c Naked>                              Σ0         ↓ →0x221a0 ←0x220fa
            <Blob 0x22152 [26] @>                            Δ-26               {[«26""»]}
            <POP 2215e-22160 StackAdj>                       Δ-4                {[«26""»]|[-4-]}
            <Lit 0x22160 26>                                                    {[«26""»]|[$$S A P PC:N ID:A2 PA:XYXYXY]}
            <MI 2216e  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[«26""»]}
            <POP 22172-22176 StackAdj>                       Δ+22               {[-4-]}
            <MI 22176  MOVE.L  (A6-0x16),(A7)>                                  {[4, '(A6-0x16)']}
            <Call 0x2217a 0x20ff4>                                              {[4, '(A6-0x16)']}
            <POP 2217e-22180 StackAdj>                       Δ+4                {}
            <Call 0x22180 0x21072>                                              {}
            <POP 22182-22184 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22184 0x2129a>                                              {[-2-]}
            <MI 22188  TST.B   (A7)+>                        Δ+2                {}
            <MI 2218a  BEQ     0x221a0>                                         {}
        <POP 2218c-221a0 Naked>                              Σ0 Δ-14    →0x220bc
            <Blob 0x2218c [14] @>                            Δ-14               {[«14""»]}
            <MI 2219c  BRA     0x220bc>                                         {[«14""»]}
        <POP 221a0-221b2 Naked>                              Σ0         ↓ →0x221c0 ←0x22152
            <Pointer.fp 0x221a0 <LVAR -0x016 @ 4(rw)>>       Δ-4                {[@@-22]}
            <Call 0x221a4 0x102b8>                                              {[@@-22]}
                NewString(VAR a : String)
            <POP 221aa-221ac StackAdj>                       Δ+4                {}
            <MI 221ac  TST.B   (A6+0x8)>                                        {}
            <MI 221b0  BNE     0x221c0>                                         {}
        <POP 221b2-221c0 Naked>                              Σ0 Δ-10    →0x221cc
            <Blob 0x221b2 [10] @>                            Δ-10               {[«10""»]}
            <MI 221be  BRA     0x221cc>                                         {[«10""»]}
        <POP 221c0-221cc Naked>                              Σ0 Δ-10    ↓ ←0x221a0
            <Blob 0x221c0 [10] @>                            Δ-10               {[«10""»]}
        <POP 221cc-22256 Naked>                              Σ-10 Δ+10  ↓ →0x2226a ←0x221b2
            <POP 221cc-221ce StackAdj>                       Δ-4                {[-14-]}
            <Lit 0x221ce>                                                       {[-10-]|[$$…]}
                <Pointer.sp 0x221ce 4>                       Δ-4        
                <Const 0x221d2 0x1.2>                        Δ-2        
                <Const 0x221d4 0xa.2>                        Δ-2        
                <Call 0x221d8 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 221da-221dc StackAdj>                   Δ+8        
            <MI 221dc  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[-10-]}
            <POP 221e0-221e4 StackAdj>                       Δ+10               {}
            <Blob 0x221e4 [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x221e8 [26] @>                            Δ-26               {[«4""»]|[«26""»]}
            <POP 221fa-221fc StackAdj>                       Δ-4                {[«4""»]|[«26""»]|[-4-]}
            <MI 221fc  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']}
            <POP 22200-22202 StackAdj>                       Δ-4                {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[-4-]}
            <Lit 0x22202 4>                                                     {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[$$ FS:]}
            <MI 2220e  MOVE.L  D6,(A7)>                                         {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']}
            <POP 2220c-2220e StackAdj>                       Δ-8                {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]}
            <Call 0x22210 0x102e4>                                              {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]}
                Long2String(a : Long) : String
            <MI 22216  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, '(A6-0xe)']}
            <Call 0x2221a 0x102cc>                                              {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, '(A6-0xe)']}
                StringDup(a : String) : String
            <Lit 0x22220 25>                                                    {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[$$ID:D0 CO:Y DC:C PA:XYXYXY]}
            <Call 0x2222e 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 22234-22238 StackAdj>                       Δ+20               {[«4""»]|[«26""»]|[-4-]}
            <MI 22238  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[«4""»]|[«26""»]}
            <POP 2223c-22240 StackAdj>                       Δ+26               {[«4""»]}
            <MI 22240  MOVE.L  (A6-0x16),(A7)>                                  {[4, '(A6-0x16)']}
            <Call 0x22244 0x20ff4>                                              {[4, '(A6-0x16)']}
            <POP 22248-2224a StackAdj>                       Δ+4                {}
            <Call 0x2224a 0x21072>                                              {}
            <POP 2224c-2224e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2224e 0x2129a>                                              {[-2-]}
            <MI 22252  TST.B   (A7)+>                        Δ+2                {}
            <MI 22254  BEQ     0x2226a>                                         {}
        <POP 22256-2226a Naked>                              Σ0 Δ-14    →0x220bc
            <Blob 0x22256 [14] @>                            Δ-14               {[«14""»]}
            <MI 22266  BRA     0x220bc>                                         {[«14""»]}
        <POP 2226a-222e4 Naked>                              Σ0         ↓ →0x222f8 ←0x221cc
            <Pointer.fp 0x2226a <LVAR -0x016 @ 4(rw)>>       Δ-4                {[@@-22]}
            <Call 0x2226e 0x102b8>                                              {[@@-22]}
                NewString(VAR a : String)
            <POP 22274-22275 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x22275 [6] @>                             Δ-6                {[«6""»]}
            <Blob 0x22284 [32] @>                            Δ-32               {[«6""»]|[«32""»]}
            <POP 22290-22292 StackAdj>                       Δ-4                {[«6""»]|[«32""»]|[-4-]}
            <MI 22292  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']}
            <POP 22296-22298 StackAdj>                       Δ-4                {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[-4-]}
            <Lit 0x22298 5>                                                     {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[$$S L P]}
            <MI 222a4  MOVE.L  (A6-0xe),(A7)>                                   {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[4, '(A6-0xe)']}
            <POP 222a2-222a4 StackAdj>                       Δ-8                {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[4, '(A6-0xe)']|[-8-]}
            <Call 0x222a8 0x102cc>                                              {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[4, '(A6-0xe)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x222ae 32>                                                    {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[4, '(A6-0xe)']|[-4-]|[$$SP:9600 PR:N LE:8 ST:1 PA:XYXYXY]}
            <Call 0x222bc 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 222c2-222c6 StackAdj>                       Δ+16               {[«6""»]|[«32""»]|[-4-]}
            <MI 222c6  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[«6""»]|[«32""»]}
            <POP 222ca-222ce StackAdj>                       Δ+34               {[-4-]}
            <MI 222ce  MOVE.L  (A6-0x16),(A7)>                                  {[4, '(A6-0x16)']}
            <Call 0x222d2 0x20ff4>                                              {[4, '(A6-0x16)']}
            <POP 222d6-222d8 StackAdj>                       Δ+4                {}
            <Call 0x222d8 0x21072>                                              {}
            <POP 222da-222dc StackAdj>                       Δ-2                {[-2-]}
            <Call 0x222dc 0x2129a>                                              {[-2-]}
            <MI 222e0  TST.B   (A7)+>                        Δ+2                {}
            <MI 222e2  BEQ     0x222f8>                                         {}
        <POP 222e4-222f8 Naked>                              Σ0 Δ-14    →0x220bc
            <Blob 0x222e4 [14] @>                            Δ-14               {[«14""»]}
            <MI 222f4  BRA     0x220bc>                                         {[«14""»]}
        <POP 222f8-22382 Naked>                              Σ0         ↓ →0x22396 ←0x2226a
            <Pointer.fp 0x222f8 <LVAR -0x016 @ 4(rw)>>       Δ-4                {[@@-22]}
            <Call 0x222fc 0x102b8>                                              {[@@-22]}
                NewString(VAR a : String)
            <POP 22302-22304 StackAdj>                       Δ+4                {}
            <Blob 0x22304 [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x22310 [14] @>                            Δ-14               {[«14""»]|[«14""»]}
            <POP 22320-22322 StackAdj>                       Δ-4                {[«14""»]|[«14""»]|[-4-]}
            <MI 22322  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']}
            <POP 22326-22328 StackAdj>                       Δ-4                {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[-4-]}
            <Lit 0x22328 14>                                                    {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[$$S N C CH:1 NS:]}
            <MI 22332  MOVE.L  D6,(A7)>                                         {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']}
            <POP 22330-22332 StackAdj>                       Δ-8                {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]}
            <Call 0x22334 0x102e4>                                              {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]}
                Long2String(a : Long) : String
            <MI 2233a  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, '(A6-0xe)']}
            <Call 0x2233e 0x102cc>                                              {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, '(A6-0xe)']}
                StringDup(a : String) : String
            <Lit 0x22344 13>                                                    {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[$$PA:XYXYXY SS:]}
            <MI 22350  MOVE.L  D6,(A7)>                                         {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, 'D6']}
            <POP 2234e-22350 StackAdj>                       Δ-8                {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, 'D6']|[-8-]}
            <Call 0x22352 0x102e4>                                              {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, 'D6']|[-8-]}
                Long2String(a : Long) : String
            <POP 22358-2235a StackAdj>                       Δ+4                {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, 'D6']|[-4-]}
            <Call 0x2235a 0x102e0>                                              {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, 'D6']|[-4-]}
                StringCat6(a, b, c, d, e, f : String) : String
            <POP 22360-22364 StackAdj>                       Δ+24               {[«14""»]|[«14""»]|[-4-]}
            <MI 22364  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[«14""»]|[«14""»]}
            <POP 22368-2236c StackAdj>                       Δ+24               {[-4-]}
            <MI 2236c  MOVE.L  (A6-0x16),(A7)>                                  {[4, '(A6-0x16)']}
            <Call 0x22370 0x20ff4>                                              {[4, '(A6-0x16)']}
            <POP 22374-22376 StackAdj>                       Δ+4                {}
            <Call 0x22376 0x21072>                                              {}
            <POP 22378-2237a StackAdj>                       Δ-2                {[-2-]}
            <Call 0x2237a 0x2129a>                                              {[-2-]}
            <MI 2237e  TST.B   (A7)+>                        Δ+2                {}
            <MI 22380  BEQ     0x22396>                                         {}
        <POP 22382-22396 Naked>                              Σ0 Δ-14    →0x220bc
            <Blob 0x22382 [14] @>                            Δ-14               {[«14""»]}
            <MI 22392  BRA     0x220bc>                                         {[«14""»]}
        <POP 22396-22440 Naked>                              Σ0         ↓ →0x22496 ←0x222f8
            <Pointer.fp 0x22396 <LVAR -0x016 @ 4(rw)>>       Δ-4                {[@@-22]}
            <Call 0x2239a 0x102b8>                                              {[@@-22]}
                NewString(VAR a : String)
            <POP 223a0-223a1 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x223a1 [6] @>                             Δ-6                {[«6""»]}
            <Blob 0x223b0 [4] @>                             Δ-4                {[«6""»]|[«4""»]}
            <Blob 0x223b4 [10] @>                            Δ-10               {[«6""»]|[«4""»]|[«10""»]}
            <POP 223c0-223c2 StackAdj>                       Δ-4                {[«6""»]|[«4""»]|[«10""»]|[-4-]}
            <MI 223c2  MOVE.L  (A6-0x16),-(A7)>              Δ-4                {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']}
            <POP 223c6-223c8 StackAdj>                       Δ-4                {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[-4-]}
            <Lit 0x223c8 5>                                                     {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]}
            <MI 223d4  MOVE.L  (A6-0xe),-(A7)>               Δ-4                {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']}
            <POP 223d2-223d4 StackAdj>                       Δ-8                {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]}
            <Call 0x223d8 0x102cc>                                              {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]}
                StringDup(a : String) : String
            <MI 223de  MOVE.L  (A6-0xa),-(A7)>               Δ-4                {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0xa)']}
            <Call 0x223e2 0x102cc>                                              {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0xa)']}
                StringDup(a : String) : String
            <POP 223e8-223ea StackAdj>                       Δ+4                {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]}
            <Call 0x223ea 0x102d0>                                              {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]}
                StringCat2(a, b : String) : String
            <Lit 0x223f0 4>                                                     {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]|[$$ AD:]}
            <POP 223fc-223fe StackAdj>                       Δ-4                {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]|[$$ AD:]|[-4-]}
            <MI 223fe  MOVE.L  A4,(A7)>                                         {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]|[$$ AD:]|[4, 'A4']}
            <POP 22400-22402 StackAdj>                       Δ-4                {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]|[$$ AD:]|[4, 'A4']|[-4-]}
            <Lit 0x22402 10>                                                    {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]|[$$ AD:]|[4, 'A4']|[$$ PA:XYXYXY]}
            <Call 0x22410 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 22416-22418 StackAdj>                       Δ+12               {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]}
            <Call 0x22418 0x102d8>                                              {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]}
                StringCat4(a, b, c, d : String) : String
            <POP 2241e-22422 StackAdj>                       Δ+16               {[«6""»]|[«4""»]|[«10""»]|[-4-]}
            <MI 22422  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[«6""»]|[«4""»]|[«10""»]}
            <POP 22426-2242a StackAdj>                       Δ+16               {[-4-]}
            <MI 2242a  MOVE.L  (A6-0x16),(A7)>                                  {[4, '(A6-0x16)']}
            <Call 0x2242e 0x20ff4>                                              {[4, '(A6-0x16)']}
            <POP 22432-22434 StackAdj>                       Δ+4                {}
            <Call 0x22434 0x21072>                                              {}
            <POP 22436-22438 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22438 0x2129a>                                              {[-2-]}
            <MI 2243c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2243e  BEQ     0x22496>                                         {}
        <POP 22440-22496 Naked>                              Σ0         →0x225b0
            <Blob 0x22440 [64] @>                            Δ-64               {[«64""»]}
            <POP 22452-22454 StackAdj>                       Δ-4                {[«64""»]|[-4-]}
            <Lit 0x22454 63>                                                    {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
            <Call 0x22462 0x103e0>                                              {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
                WriteConsoleStringCrLf(str : String)
            <POP 22468-2246c StackAdj>                       Δ+68               {}
            <Blob 0x2246c [66] @>                            Δ-66               {[«66""»]}
            <POP 22478-2247a StackAdj>                       Δ-4                {[«66""»]|[-4-]}
            <Lit 0x2247a 66>                                                    {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
            <Call 0x22488 0x103e0>                                              {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
                WriteConsoleStringCrLf(str : String)
            <POP 2248e-22492 StackAdj>                       Δ+70               {}
            <MI 22492  BRA     0x225b0>                                         {}
        <POP 22496-224e0 Naked>                              Σ0         ↓ →0x224f4 ←0x22396
            <Blob 0x22496 [14] @>                            Δ-14               {[«14""»]}
            <POP 224a6-224a8 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x224a8 13>                                                    {[«14""»]|[$$W S PA:XYXYXY]}
            <MI 224b6  MOVE.L  (A7)+,(A6-0x16)>              Δ+4                {[«14""»]}
            <POP 224ba-224be StackAdj>                       Δ+10               {[-4-]}
            <MI 224be  MOVE.L  (A6-0x16),(A7)>                                  {[4, '(A6-0x16)']}
            <Call 0x224c2 0x20ff4>                                              {[4, '(A6-0x16)']}
            <POP 224c6-224c7 StackAdj>                       Δ+4                {}
            <Const 0x224c7 0x2faee.4>                        Δ-4                {[##195310]}
            <Call 0x224cc 0x10224>                                              {[##195310]}
                KC12_Sleep(dur: Long)
            <POP 224d2-224d4 StackAdj>                       Δ+4                {}
            <Call 0x224d4 0x21072>                                              {}
            <POP 224d6-224d8 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x224d8 0x2143c>                                              {[-2-]}
            <MI 224dc  TST.B   (A7)+>                        Δ+2                {}
            <MI 224de  BEQ     0x224f4>                                         {}
        <POP 224e0-224f4 Naked>                              Σ0 Δ-12    →0x22134
            <Blob 0x224e0 [12] @>                            Δ-12               {[«12""»]}
            <MI 224f0  BRA     0x22134>                                         {[«12""»]}
        <POP 224f4-2253a Naked>                              Σ0         →0x225b0 ←0x22496
            <Blob 0x224f4 [42] @>                            Δ-42               {[«42""»]}
            <POP 22506-22508 StackAdj>                       Δ-4                {[«42""»]|[-4-]}
            <Lit 0x22508 41>                                                    {[«42""»]|[$$The Environment Port has been configured!]}
            <Call 0x22516 0x103e0>                                              {[«42""»]|[$$The Environment Port has been configured!]}
                WriteConsoleStringCrLf(str : String)
            <POP 2251c-22520 StackAdj>                       Δ+46               {}
            <Pointer.fp 0x22520 <LVAR -0x00e @ 4(rw)>>       Δ-4                {[@@-14]}
            <Call 0x22524 0x102bc>                                              {[@@-14]}
                FreeString(VAR a : String)
            <POP 2252a-2252c StackAdj>                       Δ+4                {}
            <Pointer.fp 0x2252c <LVAR -0x00a @ 4(rw)>>       Δ-4                {[@@-10]}
            <Call 0x22530 0x102bc>                                              {[@@-10]}
                FreeString(VAR a : String)
            <POP 22536-22538 StackAdj>                       Δ+4                {}
            <MI 22538  BRA     0x225b0>                                         {}
        <POP 2253a-225b0 Naked>                              Σ0         ↓ ←0x220bc ←0x22134
            <Blob 0x2253a [64] @>                            Δ-64               {[«64""»]}
            <POP 2254c-2254e StackAdj>                       Δ-4                {[«64""»]|[-4-]}
            <Lit 0x2254e 63>                                                    {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
            <Call 0x2255c 0x103e0>                                              {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
                WriteConsoleStringCrLf(str : String)
            <POP 22562-22566 StackAdj>                       Δ+68               {}
            <Blob 0x22566 [60] @>                            Δ-60               {[«60""»]}
            <POP 22572-22574 StackAdj>                       Δ-4                {[«60""»]|[-4-]}
            <Lit 0x22574 60>                                                    {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
            <Call 0x22582 0x103e0>                                              {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
                WriteConsoleStringCrLf(str : String)
            <POP 22588-2258c StackAdj>                       Δ+64               {}
            <Blob 0x2258c [32] @>                            Δ-32               {[«32""»]}
            <POP 22598-2259a StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Lit 0x2259a 32>                                                    {[«32""»]|[$$configuration or replace the PAD]}
            <Call 0x225a8 0x103e0>                                              {[«32""»]|[$$configuration or replace the PAD]}
                WriteConsoleStringCrLf(str : String)
            <POP 225ae-225b0 StackAdj>                       Δ+36               {}
        <POP 225b0-225b4 Naked>                              Σ0         ↓ ←0x22440 ←0x224f4
            <Call 0x225b0 0x20fca>                                              {}
        <POP 225b4-225bc Epilogue>                           Σ0         

0x225bc


@ 225bc
        <LVAR -0x004 @ 4(rw)>
        <LVAR -0x008 @ 4(rw)>
        <LVAR -0x010 @ 4(rw)>
    <POP 225bc-22cfe Body>                                   Δ+80       
        <POP 225bc-225d2 Prologue>                           Σ0         ↓
        <POP 225d2-225e8 RegCacheLoad>                       Σ0         ↓
        <POP 225e8-22634 Naked>                              Σ0         →0x2263c →0x2266c →0x2269a →0x226c8
            <Blob 0x225e8 [54] @>                            Δ-54               {[«54""»]}
            <POP 225f8-225fa StackAdj>                       Δ-8                {[«54""»]|[-8-]}
            <Lit 0x225fa 53>                                                    {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]}
            <Const 0x22608 0x2.4>                            Δ-4                {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]}
            <Const 0x2260c 0x5.4>                            Δ-4                {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
            <Call 0x22610 0x103ec>                                              {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 22616-22618 StackAdj>                       Δ+12               {[«54""»]|[-4-]}
            <MI 22618  MOVE.L  (A7)+,D7>                     Δ+4                {[«54""»]}
            <POP 2261a-2261c StackAdj>                       Δ+54               {}
            <MI 2261c  MOVE.L  D7,D0>                                           {}
            <MI 2261e  SUBQ.L  #0x2,D0>                                         {}
            <POP 0x22620 LimitCheck 0x0 ≤ D0 ≤ 0x3>                             {}
            <MI 2262a  ADD.W   D0,D0>                                           {}
            <MI 2262c  SWITCH  D0.W>                                            {}
        <POP 2263c-2266c Naked>                              Σ0 Δ-8     →0x226f4 ←0x225e8
            <Blob 0x2263c [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x22640 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x22644 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 22648-2264a StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x2264a 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:2_]}
            <MI 22656  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 22658-22659 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x22659 [8] @>                             Δ-8                {[«8""»]}
            <MI 22668  BRA     0x226f4>                                         {[«8""»]}
        <POP 2266c-2269a Naked>                              Σ0 Δ-8     →0x226f4 ←0x225e8
            <Blob 0x2266c [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x22670 [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x22674 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 22678-2267a StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x2267a 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:3_]}
            <MI 22686  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 22688-22689 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x22689 [8] @>                             Δ-8                {[«8""»]}
            <MI 22698  BRA     0x226f4>                                         {[«8""»]}
        <POP 2269a-226c8 Naked>                              Σ0 Δ-8     →0x226f4 ←0x225e8
            <Blob 0x2269a [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x2269e [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x226a2 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 226a6-226a8 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x226a8 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:4_]}
            <MI 226b4  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 226b6-226b7 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x226b7 [8] @>                             Δ-8                {[«8""»]}
            <MI 226c6  BRA     0x226f4>                                         {[«8""»]}
        <POP 226c8-226f4 Naked>                              Σ0 Δ-8     ↓ ←0x225e8
            <Blob 0x226c8 [2] @>                             Δ-2                {[«2""»]}
            <Blob 0x226cc [2] @>                             Δ-2                {[«2""»]|[«2""»]}
            <Blob 0x226d0 [2] @>                             Δ-2                {[«2""»]|[«2""»]|[«2""»]}
            <POP 226d4-226d6 StackAdj>                       Δ-4                {[«2""»]|[«2""»]|[«2""»]|[-4-]}
            <Lit 0x226d6 6>                                                     {[«2""»]|[«2""»]|[«2""»]|[$$ PO:5_]}
            <MI 226e2  MOVE.L  (A7)+,(A6-0x8)>               Δ+4                {[«2""»]|[«2""»]|[«2""»]}
            <POP 226e4-226e5 StackAdj>                       Δ+6        ↓       {}
            <Blob 0x226e5 [8] @>                             Δ-8                {[«8""»]}
        <POP 226f4-2276e Naked>                              Σ-8 Δ+8    ↓ →0x227e6 ←0x2263c ←0x2266c ←0x2269a
            <POP 226f4-226f6 StackAdj>                       Δ-4                {[-12-]}
            <Lit 0x226f6>                                                       {[-8-]|[$$…]}
                <Pointer.sp 0x226f6 4>                       Δ-4        
                <Const 0x226fa 0x1.2>                        Δ-2        
                <Const 0x226fc 0x7.2>                        Δ-2        
                <Call 0x22700 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22702-22704 StackAdj>                   Δ+8        
            <MI 22704  MOVE.L  (A7)+,(A6-0x4)>               Δ+4                {[-8-]}
            <POP 22708-2270a StackAdj>                       Δ+8                {}
            <MI 2270a  CLR.B   0x231a4>                                         {}
            <Call 0x22710 0x10216>                                              {}
                KC0b
            <Call 0x22716 0x21072>                                              {}
            <Blob 0x2271a [36] @>                            Δ-36               {[«36""»]}
            <POP 2272c-2272e StackAdj>                       Δ-6                {[«36""»]|[-6-]}
            <Lit 0x2272e 35>                                                    {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]}
            <POP 2273a-2273c StackAdj>                       Δ-2                {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
            <MI 2273c  CLR.B   (A7)>                                            {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
            <Call 0x2273e 0x103f0>                                              {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 22744-22746 StackAdj>                       Δ+6                {[«36""»]|[-2-]}
            <MI 22746  MOVE.B  (A7)+,D0>                     Δ+2                {[«36""»]}
            <MI 22748  EXTB.W  D0>                                              {[«36""»]}
            <POP 0x2274a LimitCheck 0x0 ≤ D0 ≤ 0x1>                             {[«36""»]}
            <POP 2274c-22750 StackAdj>                       Δ+36               {}
            <MI 22750  MOVE.B  D0,0x231a4>                                      {}
            <Const 0x22756 0x2.2>                            Δ-2                {[#2]}
            <Const 0x22758 0x10.2>                           Δ-2                {[#2]|[#16]}
            <Call 0x2275a 0x1020c>                                              {[#2]|[#16]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 22760-22762 StackAdj>                       Δ+4                {}
            <Call 0x22762 0x21072>                                              {}
            <MI 22766  TST.L   0x239aa>                                         {}
            <MI 2276c  BNE     0x227e6>                                         {}
        <POP 2276e-227b2 Naked>                              Σ0         ↓ →0x227e6
            <Const 0x2276e 0x2.2>                            Δ-2                {[#2]}
            <Const 0x22770 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x22774 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 2277a-2277c StackAdj>                       Δ+2                {[#2]}
            <POP 2277c-2277d StackAdj>                       Δ+2                {}
            <Const 0x2277d 0x2.2>                            Δ-2                {[#2]}
            <Const 0x2277e 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x22782 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 22788-2278a StackAdj>                       Δ+2                {[#2]}
            <POP 2278a-2278b StackAdj>                       Δ+2                {}
            <Const 0x2278b 0x2.2>                            Δ-2                {[#2]}
            <Const 0x2278c 0x2e.2>                           Δ-2                {[#2]|[#46]}
            <Call 0x22790 0x1020c>                                              {[#2]|[#46]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 22796-22798 StackAdj>                       Δ+2                {[#2]}
            <POP 22798-22799 StackAdj>                       Δ+2                {}
            <Const 0x22799 0x2.2>                            Δ-2                {[#2]}
            <Const 0x2279a 0xd.2>                            Δ-2                {[#2]|[#13]}
            <Call 0x2279e 0x1020c>                                              {[#2]|[#13]}
                KC06_PortPutChar(port : Word ; b : char)
            <POP 227a4-227a6 StackAdj>                       Δ+4                {}
            <Call 0x227a6 0x21072>                                              {}
            <MI 227aa  TST.L   0x239aa>                                         {}
            <MI 227b0  BNE     0x227e6>                                         {}
        <POP 227b2-227e6 Naked>                              Σ0         ↓
            <Blob 0x227b2 [48] @>                            Δ-48               {[«48""»]}
            <POP 227be-227c0 StackAdj>                       Δ-4                {[«48""»]|[-4-]}
            <Lit 0x227c0 48>                                                    {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
            <Call 0x227ce 0x103e0>                                              {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
                WriteConsoleStringCrLf(str : String)
            <POP 227d4-227d8 StackAdj>                       Δ+50               {[-2-]}
            <POP 227d8-227d9 StackAdj>                       Δ+2                {}
            <Const 0x227d9 0x2.2>                            Δ-2                {[#2]}
            <Const 0x227da 0x1.4>                            Δ-4                {[#2]|[##1]}
            <Call 0x227de 0x103b8>                                              {[#2]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 227e4-227e6 StackAdj>                       Δ+6                {}
        <POP 227e6-2281a Naked>                              Σ0         ↓ →0x227e6 ←0x226f4 ←0x2276e ←0x227e6
            <Blob 0x227e6 [62] @>                            Δ-62               {[«62""»]}
            <POP 227f8-227fa StackAdj>                       Δ-8                {[«62""»]|[-8-]}
            <Lit 0x227fa 61>                                                    {[«62""»]|[-4-]|[$$Enter the DTE address identification (ID) for the IOC port :_]}
            <Call 0x22808 0x103e4>                                              {[«62""»]|[-4-]|[$$Enter the DTE address identification (ID) for the IOC port :_]}
                AskConsoleString(prompt : String) : String
            <POP 2280e-22810 StackAdj>                       Δ+4                {[«62""»]|[-4-]}
            <MI 22810  MOVEA.L (A7)+,A4>                     Δ+4                {[«62""»]}
            <POP 22812-22816 StackAdj>                       Δ+62               {}
            <MI 22816  TST.W   (A4)>                                            {}
            <MI 22818  BEQ     0x227e6>                                         {}
        <POP 2281a-228ae Naked>                              Σ0         ↓ →0x22904
            <Pointer.fp 0x2281a <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x2281e 0x102b8>                                              {[@@-16]}
                NewString(VAR a : String)
            <POP 22824-22825 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x22825 [10] @>                            Δ-10               {[«10""»]}
            <Blob 0x22834 [10] @>                            Δ-10               {[«10""»]|[«10""»]}
            <POP 22846-22848 StackAdj>                       Δ-4                {[«10""»]|[«10""»]|[-4-]}
            <MI 22848  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']}
            <POP 2284c-2284e StackAdj>                       Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
            <Lit 0x2284e 9>                                                     {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]}
            <POP 2285a-2285c StackAdj>                       Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[-4-]}
            <MI 2285c  MOVE.L  A4,(A7)>                                         {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']}
            <POP 2285e-22860 StackAdj>                       Δ-8                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]}
            <MI 22860  MOVE.L  (A6-0x4),-(A7)>               Δ-4                {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x4)']}
            <Call 0x22864 0x102cc>                                              {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x4)']}
                StringDup(a : String) : String
            <MI 2286a  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 0x2286c 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 0x22872 9>                                                     {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x4)']|[$$PA:XYXYXY]}
            <Call 0x22880 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 22886-22888 StackAdj>                       Δ+12               {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-4-]}
            <Call 0x22888 0x102d8>                                              {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-4-]}
                StringCat4(a, b, c, d : String) : String
            <POP 2288e-22890 StackAdj>                       Δ+16               {[«10""»]|[«10""»]|[-4-]}
            <MI 22890  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«10""»]|[«10""»]}
            <POP 22894-22896 StackAdj>                       Δ+16               {[-4-]}
            <MI 22896  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <Call 0x2289a 0x20ff4>                                              {[4, '(A6-0x10)']}
            <POP 2289e-228a0 StackAdj>                       Δ+4                {}
            <Call 0x228a0 0x21072>                                              {}
            <POP 228a4-228a6 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x228a6 0x2129a>                                              {[-2-]}
            <MI 228aa  TST.B   (A7)+>                        Δ+2                {}
            <MI 228ac  BEQ     0x22904>                                         {}
        <POP 228ae-22904 Naked>                              Σ0         →0x22cf2
            <Blob 0x228ae [64] @>                            Δ-64               {[«64""»]}
            <POP 228c0-228c2 StackAdj>                       Δ-4                {[«64""»]|[-4-]}
            <Lit 0x228c2 63>                                                    {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
            <Call 0x228d0 0x103e0>                                              {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
                WriteConsoleStringCrLf(str : String)
            <POP 228d6-228da StackAdj>                       Δ+68               {}
            <Blob 0x228da [66] @>                            Δ-66               {[«66""»]}
            <POP 228e6-228e8 StackAdj>                       Δ-4                {[«66""»]|[-4-]}
            <Lit 0x228e8 66>                                                    {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
            <Call 0x228f6 0x103e0>                                              {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
                WriteConsoleStringCrLf(str : String)
            <POP 228fc-22900 StackAdj>                       Δ+70               {}
            <MI 22900  BRA     0x22cf2>                                         {}
        <POP 22904-22940 Naked>                              Σ0         ↓ →0x22970 ←0x2281a
            <Blob 0x22904 [44] @>                            Δ-44               {[«44""»]}
            <POP 22910-22912 StackAdj>                       Δ-4                {[«44""»]|[-4-]}
            <Lit 0x22912 44>                                                    {[«44""»]|[$$S N C CH:1 NS:128 SS:128 FW:7 PW:2 PA:XYXYXY]}
            <MI 22920  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«44""»]}
            <POP 22924-22928 StackAdj>                       Δ+40               {[-4-]}
            <MI 22928  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <Call 0x2292c 0x20ff4>                                              {[4, '(A6-0x10)']}
            <POP 22930-22932 StackAdj>                       Δ+4                {}
            <Call 0x22932 0x21072>                                              {}
            <POP 22936-22938 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22938 0x2129a>                                              {[-2-]}
            <MI 2293c  TST.B   (A7)+>                        Δ+2                {}
            <MI 2293e  BEQ     0x22970>                                         {}
        <POP 22940-22952 Naked>                              Σ0 Δ-14    ↓
            <Blob 0x22940 [14] @>                            Δ-14               {[«14""»]}
        <POP 22952-22970 Naked>                              Σ-14 Δ+14  →0x22c7a ←0x229ea ←0x22a76 ←0x22b0a ←0x22b94
            <POP 22952-22954 StackAdj>                       Δ-4                {[-18-]}
            <Lit 0x22954>                                                       {[-14-]|[$$…]}
                <Pointer.sp 0x22954 4>                       Δ-4        
                <Const 0x22958 0x1.2>                        Δ-2        
                <Const 0x2295a 0xd.2>                        Δ-2        
                <Call 0x2295e 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 22960-22962 StackAdj>                   Δ+8        
            <Call 0x22962 0x103e0>                                              {[-14-]|[$$…]}
                WriteConsoleStringCrLf(str : String)
            <POP 22968-2296c StackAdj>                       Δ+18               {}
            <MI 2296c  BRA     0x22c7a>                                         {}
        <POP 22970-229ea Naked>                              Σ0         ↓ →0x22a00 ←0x22904
            <Pointer.fp 0x22970 <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x22974 0x102b8>                                              {[@@-16]}
                NewString(VAR a : String)
            <POP 2297a-2297c StackAdj>                       Δ+4                {}
            <Blob 0x2297c [38] @>                            Δ-38               {[«38""»]}
            <Blob 0x22988 [20] @>                            Δ-20               {[«38""»]|[«20""»]}
            <POP 2299a-2299c StackAdj>                       Δ-4                {[«38""»]|[«20""»]|[-4-]}
            <MI 2299c  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']}
            <POP 229a0-229a2 StackAdj>                       Δ-4                {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
            <Lit 0x229a2 38>                                                    {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[$$S A P CO:B DC:N DO:N FS:128 ID:A2 PC:N]}
            <MI 229ae  MOVE.L  (A6-0x8),(A7)>                                   {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']}
            <POP 229ac-229ae StackAdj>                       Δ-8                {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
            <Call 0x229b0 0x102cc>                                              {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x229b6 19>                                                    {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-4-]|[$$TP:Y US:N PA:XYXYXY]}
            <Call 0x229c4 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 229ca-229cc StackAdj>                       Δ+16               {[«38""»]|[«20""»]|[-4-]}
            <MI 229cc  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«38""»]|[«20""»]}
            <POP 229d0-229d2 StackAdj>                       Δ+54               {[-4-]}
            <MI 229d2  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <Call 0x229d6 0x20ff4>                                              {[4, '(A6-0x10)']}
            <POP 229da-229dc StackAdj>                       Δ+4                {}
            <Call 0x229dc 0x21072>                                              {}
            <POP 229e0-229e2 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x229e2 0x2129a>                                              {[-2-]}
            <MI 229e6  TST.B   (A7)+>                        Δ+2                {}
            <MI 229e8  BEQ     0x22a00>                                         {}
        <POP 229ea-22a00 Naked>                              Σ0 Δ-14    →0x22952
            <Blob 0x229ea [14] @>                            Δ-14               {[«14""»]}
            <MI 229fc  BRA     0x22952>                                         {[«14""»]}
        <POP 22a00-22a76 Naked>                              Σ0         ↓ →0x22a8c ←0x22970
            <Pointer.fp 0x22a00 <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x22a04 0x102b8>                                              {[@@-16]}
                NewString(VAR a : String)
            <POP 22a0a-22a0c StackAdj>                       Δ+4                {}
            <Blob 0x22a0c [10] @>                            Δ-10               {[«10""»]}
            <Blob 0x22a18 [32] @>                            Δ-32               {[«10""»]|[«32""»]}
            <POP 22a24-22a26 StackAdj>                       Δ-4                {[«10""»]|[«32""»]|[-4-]}
            <MI 22a26  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']}
            <POP 22a2a-22a2c StackAdj>                       Δ-4                {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
            <Lit 0x22a2c 10>                                                    {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[$$S L P LE:8]}
            <MI 22a38  MOVE.L  (A6-0x8),(A7)>                                   {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']}
            <POP 22a36-22a38 StackAdj>                       Δ-8                {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
            <Call 0x22a3a 0x102cc>                                              {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x22a40 32>                                                    {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-4-]|[$$PR:N ST:1 SP:9600 UC:Y PA:XYXYXY]}
            <Call 0x22a4e 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 22a54-22a56 StackAdj>                       Δ+16               {[«10""»]|[«32""»]|[-4-]}
            <MI 22a56  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«10""»]|[«32""»]}
            <POP 22a5a-22a5e StackAdj>                       Δ+38               {[-4-]}
            <MI 22a5e  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <Call 0x22a62 0x20ff4>                                              {[4, '(A6-0x10)']}
            <POP 22a66-22a68 StackAdj>                       Δ+4                {}
            <Call 0x22a68 0x21072>                                              {}
            <POP 22a6c-22a6e StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22a6e 0x2129a>                                              {[-2-]}
            <MI 22a72  TST.B   (A7)+>                        Δ+2                {}
            <MI 22a74  BEQ     0x22a8c>                                         {}
        <POP 22a76-22a8c Naked>                              Σ0 Δ-14    →0x22952
            <Blob 0x22a76 [14] @>                            Δ-14               {[«14""»]}
            <MI 22a88  BRA     0x22952>                                         {[«14""»]}
        <POP 22a8c-22b0a Naked>                              Σ0         ↓ →0x22b20 ←0x22a00
            <Pointer.fp 0x22a8c <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x22a90 0x102b8>                                              {[@@-16]}
                NewString(VAR a : String)
            <POP 22a96-22a97 StackAdj>                       Δ+4        ↓       {}
            <Blob 0x22a97 [16] @>                            Δ-16               {[«16""»]}
            <Blob 0x22aa6 [10] @>                            Δ-10               {[«16""»]|[«10""»]}
            <POP 22ab8-22aba StackAdj>                       Δ-4                {[«16""»]|[«10""»]|[-4-]}
            <MI 22aba  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']}
            <POP 22abe-22ac0 StackAdj>                       Δ-4                {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
            <Lit 0x22ac0 15>                                                    {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$S U C XA:Y XD:3]}
            <MI 22acc  MOVE.L  (A6-0x8),(A7)>                                   {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']}
            <POP 22aca-22acc StackAdj>                       Δ-8                {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
            <Call 0x22ace 0x102cc>                                              {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
                StringDup(a : String) : String
            <Lit 0x22ad4 9>                                                     {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-4-]|[$$PA:XYXYXY]}
            <Call 0x22ae2 0x102d8>                                              {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-4-]|[$$PA:XYXYXY]}
                StringCat4(a, b, c, d : String) : String
            <POP 22ae8-22aea StackAdj>                       Δ+16               {[«16""»]|[«10""»]|[-4-]}
            <MI 22aea  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«16""»]|[«10""»]}
            <POP 22aee-22af2 StackAdj>                       Δ+22               {[-4-]}
            <MI 22af2  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <Call 0x22af6 0x20ff4>                                              {[4, '(A6-0x10)']}
            <POP 22afa-22afc StackAdj>                       Δ+4                {}
            <Call 0x22afc 0x21072>                                              {}
            <POP 22b00-22b02 StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22b02 0x2129a>                                              {[-2-]}
            <MI 22b06  TST.B   (A7)+>                        Δ+2                {}
            <MI 22b08  BEQ     0x22b20>                                         {}
        <POP 22b0a-22b20 Naked>                              Σ0 Δ-14    →0x22952
            <Blob 0x22b0a [14] @>                            Δ-14               {[«14""»]}
            <MI 22b1c  BRA     0x22952>                                         {[«14""»]}
        <POP 22b20-22b94 Naked>                              Σ0         ↓ →0x22baa ←0x22a8c
            <Pointer.fp 0x22b20 <LVAR -0x010 @ 4(rw)>>       Δ-4                {[@@-16]}
            <Call 0x22b24 0x102b8>                                              {[@@-16]}
                NewString(VAR a : String)
            <POP 22b2a-22b2b StackAdj>                       Δ+4        ↓       {}
            <Blob 0x22b2b [48] @>                            Δ-48               {[«48""»]}
            <Blob 0x22b3c [42] @>                            Δ-42               {[«48""»]|[«42""»]}
            <POP 22b48-22b4a StackAdj>                       Δ-4                {[«48""»]|[«42""»]|[-4-]}
            <MI 22b4a  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x10)']}
            <POP 22b4e-22b50 StackAdj>                       Δ-4                {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
            <Lit 0x22b50 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 22b5c-22b5e 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 0x22b5e 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 0x22b6c 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 22b72-22b74 StackAdj>                       Δ+12               {[«48""»]|[«42""»]|[-4-]}
            <MI 22b74  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«48""»]|[«42""»]}
            <POP 22b78-22b7c StackAdj>                       Δ+86               {[-4-]}
            <MI 22b7c  MOVE.L  (A6-0x10),(A7)>                                  {[4, '(A6-0x10)']}
            <Call 0x22b80 0x20ff4>                                              {[4, '(A6-0x10)']}
            <POP 22b84-22b86 StackAdj>                       Δ+4                {}
            <Call 0x22b86 0x21072>                                              {}
            <POP 22b8a-22b8c StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22b8c 0x2129a>                                              {[-2-]}
            <MI 22b90  TST.B   (A7)+>                        Δ+2                {}
            <MI 22b92  BEQ     0x22baa>                                         {}
        <POP 22b94-22baa Naked>                              Σ0 Δ-14    →0x22952
            <Blob 0x22b94 [14] @>                            Δ-14               {[«14""»]}
            <MI 22ba6  BRA     0x22952>                                         {[«14""»]}
        <POP 22baa-22c12 Naked>                              Σ0         ↓ →0x22c3c ←0x22b20
            <Blob 0x22baa [14] @>                            Δ-14               {[«14""»]}
            <POP 22bbc-22bbe StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x22bbe 13>                                                    {[«14""»]|[$$W S PA:XYXYXY]}
            <MI 22bcc  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {[«14""»]}
            <POP 22bd0-22bd2 StackAdj>                       Δ+6                {[-8-]}
            <MI 22bd2  MOVE.L  (A6-0x10),(A7)>                                  {[-4-]|[4, '(A6-0x10)']}
            <POP 22bd6-22bd8 StackAdj>                       Δ-4                {[-4-]|[4, '(A6-0x10)']|[-4-]}
            <MI 22bd8  MOVE.L  (A6-0x8),-(A7)>               Δ-4                {[-4-]|[4, '(A6-0x10)']|[-4-]|[4, '(A6-0x8)']}
            <Call 0x22bda 0x102cc>                                              {[-4-]|[4, '(A6-0x10)']|[-4-]|[4, '(A6-0x8)']}
                StringDup(a : String) : String
            <POP 22be0-22be2 StackAdj>                       Δ+4                {[-4-]|[4, '(A6-0x10)']|[-4-]}
            <Call 0x22be2 0x102d0>                                              {[-4-]|[4, '(A6-0x10)']|[-4-]}
                StringCat2(a, b : String) : String
            <POP 22be8-22bea StackAdj>                       Δ+8                {[-4-]}
            <MI 22bea  MOVE.L  (A7)+,(A6-0x10)>              Δ+4                {}
            <MI 22bee  MOVE.L  (A6-0x10),-(A7)>              Δ-4                {[4, '(A6-0x10)']}
            <Call 0x22bf2 0x20ff4>                                              {[4, '(A6-0x10)']}
            <POP 22bf6-22bf7 StackAdj>                       Δ+4                {}
            <Const 0x22bf7 0x2faee.4>                        Δ-4                {[##195310]}
            <Call 0x22bfc 0x10224>                                              {[##195310]}
                KC12_Sleep(dur: Long)
            <POP 22c02-22c04 StackAdj>                       Δ+4                {}
            <Call 0x22c04 0x21072>                                              {}
            <POP 22c08-22c0a StackAdj>                       Δ-2                {[-2-]}
            <Call 0x22c0a 0x2143c>                                              {[-2-]}
            <MI 22c0e  TST.B   (A7)+>                        Δ+2                {}
            <MI 22c10  BEQ     0x22c3c>                                         {}
        <POP 22c12-22c3c Naked>                              Σ0         →0x22c7a
            <Blob 0x22c12 [12] @>                            Δ-12               {[«12""»]}
            <POP 22c22-22c24 StackAdj>                       Δ-4                {[«12""»]|[-4-]}
            <Lit 0x22c24 11>                                                    {[«12""»]|[$$W S failed.]}
            <Call 0x22c32 0x103e0>                                              {[«12""»]|[$$W S failed.]}
                WriteConsoleStringCrLf(str : String)
            <POP 22c38-22c3a StackAdj>                       Δ+16               {}
            <MI 22c3a  BRA     0x22c7a>                                         {}
        <POP 22c3c-22c7a Naked>                              Σ0         →0x22cf2 ←0x22baa
            <Blob 0x22c3c [28] @>                            Δ-28               {[«28""»]}
            <POP 22c48-22c4a StackAdj>                       Δ-4                {[«28""»]|[-4-]}
            <Lit 0x22c4a 28>                                                    {[«28""»]|[$$The PAD has been configured!]}
            <Call 0x22c58 0x103e0>                                              {[«28""»]|[$$The PAD has been configured!]}
                WriteConsoleStringCrLf(str : String)
            <POP 22c5e-22c62 StackAdj>                       Δ+32               {}
            <Pointer.fp 0x22c62 <LVAR -0x008 @ 4(rw)>>       Δ-4                {[@@-8]}
            <Call 0x22c64 0x102bc>                                              {[@@-8]}
                FreeString(VAR a : String)
            <POP 22c6a-22c6c StackAdj>                       Δ+4                {}
            <Pointer.fp 0x22c6c <LVAR -0x004 @ 4(rw)>>       Δ-4                {[@@-4]}
            <Call 0x22c70 0x102bc>                                              {[@@-4]}
                FreeString(VAR a : String)
            <POP 22c76-22c78 StackAdj>                       Δ+4                {}
            <MI 22c78  BRA     0x22cf2>                                         {}
        <POP 22c7a-22cf2 Naked>                              Σ0         ↓ ←0x22952 ←0x22c12
            <Blob 0x22c7a [64] @>                            Δ-64               {[«64""»]}
            <POP 22c8c-22c8e StackAdj>                       Δ-4                {[«64""»]|[-4-]}
            <Lit 0x22c8e 63>                                                    {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
            <Call 0x22c9c 0x103e0>                                              {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
                WriteConsoleStringCrLf(str : String)
            <POP 22ca2-22ca6 StackAdj>                       Δ+68               {}
            <Blob 0x22ca6 [60] @>                            Δ-60               {[«60""»]}
            <POP 22cb2-22cb4 StackAdj>                       Δ-4                {[«60""»]|[-4-]}
            <Lit 0x22cb4 60>                                                    {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
            <Call 0x22cc2 0x103e0>                                              {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
                WriteConsoleStringCrLf(str : String)
            <POP 22cc8-22ccc StackAdj>                       Δ+64               {}
            <Blob 0x22ccc [32] @>                            Δ-32               {[«32""»]}
            <POP 22cd8-22cda StackAdj>                       Δ-4                {[«32""»]|[-4-]}
            <Lit 0x22cda 32>                                                    {[«32""»]|[$$configuration or replace the PAD]}
            <Call 0x22ce8 0x103e0>                                              {[«32""»]|[$$configuration or replace the PAD]}
                WriteConsoleStringCrLf(str : String)
            <POP 22cee-22cf2 StackAdj>                       Δ+36               {}
        <POP 22cf2-22cf6 Naked>                              Σ0         ↓ ←0x228ae ←0x22c3c
            <Call 0x22cf2 0x20fca>                                              {}
        <POP 22cf6-22cfe Epilogue>                           Σ0         

0x22cfe


@ 22cfe
    <POP 22cfe-22ebe Body>                                   Δ+2        
        <POP 22cfe-22d14 Prologue>                           Σ0         ↓
        <POP 22d14-22d2a RegCacheLoad>                       Σ0         ↓
        <POP 22d2a-22e46 Naked>                              Σ0         →0x22e52 →0x22e54 →0x22e5a →0x22e60 →0x22e6a →0x22e6e ←0x22ea2
            <Blob 0x22d2a [4] @>                             Δ-4                {[«4""»]}
            <Blob 0x22d2e [4] @>                             Δ-4                {[«4""»]|[«4""»]}
            <Blob 0x22d32 [4] @>                             Δ-4                {[«4""»]|[«4""»]|[«4""»]}
            <POP 22d36-22d38 StackAdj>                       Δ-4                {[«4""»]|[«4""»]|[«4""»]|[-4-]}
            <Lit 0x22d38 12>                                                    {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
            <Call 0x22d44 0x103e0>                                              {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
                WriteConsoleStringCrLf(str : String)
            <POP 22d46-22d47 StackAdj>                       Δ+16       ↓       {}
            <Blob 0x22d47 [14] @>                            Δ-14               {[«14""»]}
            <POP 22d56-22d58 StackAdj>                       Δ-4                {[«14""»]|[-4-]}
            <Lit 0x22d58 13>                                                    {[«14""»]|[$$    0 => Exit]}
            <Call 0x22d66 0x103e0>                                              {[«14""»]|[$$    0 => Exit]}
                WriteConsoleStringCrLf(str : String)
            <POP 22d68-22d6c StackAdj>                       Δ+18               {}
            <Blob 0x22d6c [38] @>                            Δ-38               {[«38""»]}
            <POP 22d78-22d7a StackAdj>                       Δ-4                {[«38""»]|[-4-]}
            <Lit 0x22d7a 38>                                                    {[«38""»]|[$$    1 => Manual Configure [ Any port ]]}
            <Call 0x22d86 0x103e0>                                              {[«38""»]|[$$    1 => Manual Configure [ Any port ]]}
                WriteConsoleStringCrLf(str : String)
            <POP 22d88-22d8c StackAdj>                       Δ+42               {}
            <Blob 0x22d8c [38] @>                            Δ-38               {[«38""»]}
            <POP 22d98-22d9a StackAdj>                       Δ-4                {[«38""»]|[-4-]}
            <Lit 0x22d9a 38>                                                    {[«38""»]|[$$    2 => Auto   Configure [ IOC port ]]}
            <Call 0x22da6 0x103e0>                                              {[«38""»]|[$$    2 => Auto   Configure [ IOC port ]]}
                WriteConsoleStringCrLf(str : String)
            <POP 22da8-22da9 StackAdj>                       Δ+42       ↓       {}
            <Blob 0x22da9 [76] @>                            Δ-76               {[«76""»]}
            <POP 22dba-22dbc StackAdj>                       Δ-4                {[«76""»]|[-4-]}
            <Lit 0x22dbc 75>                                                    {[«76""»]|[$$    3 => Auto   Configure [ Environment port, CTS (hardware) flow control ]]}
            <Call 0x22dca 0x103e0>                                              {[«76""»]|[$$    3 => Auto   Configure [ Environment port, CTS (hardware) flow control ]]}
                WriteConsoleStringCrLf(str : String)
            <POP 22dcc-22dcd StackAdj>                       Δ+80       ↓       {}
            <Blob 0x22dcd [70] @>                            Δ-70               {[«70""»]}
            <POP 22dde-22de0 StackAdj>                       Δ-4                {[«70""»]|[-4-]}
            <Lit 0x22de0 69>                                                    {[«70""»]|[$$    4 => Auto   Configure [ Environment port, XON_XOFF flow control ]]}
            <Call 0x22dee 0x103e0>                                              {[«70""»]|[$$    4 => Auto   Configure [ Environment port, XON_XOFF flow control ]]}
                WriteConsoleStringCrLf(str : String)
            <POP 22df0-22df1 StackAdj>                       Δ+74       ↓       {}
            <Blob 0x22df1 [16] @>                            Δ-16               {[«16""»]}
            <POP 22e02-22e04 StackAdj>                       Δ-8                {[«16""»]|[-8-]}
            <Lit 0x22e04 15>                                                    {[«16""»]|[-4-]|[$$Enter option :_]}
            <Const 0x22e12 0x0.4>                            Δ-4                {[«16""»]|[-4-]|[$$Enter option :_]|[##0]}
            <Const 0x22e16 0x5.4>                            Δ-4                {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[##5]}
            <Call 0x22e1a 0x103ec>                                              {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[##5]}
                AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
            <POP 22e20-22e22 StackAdj>                       Δ+12               {[«16""»]|[-4-]}
            <MI 22e22  MOVE.B  (A7+0x3),D0>                                     {[«16""»]|[-4-]}
            <MI 22e26  EXTB.W  D0>                                              {[«16""»]|[-4-]}
            <POP 0x22e28 LimitCheck 0x0 ≤ D0 ≤ 0x5>                             {[«16""»]|[-4-]}
            <POP 22e2a-22e2e StackAdj>                       Δ+20               {}
            <MI 22e2e  MOVE.B  D0,D7>                                           {}
            <MI 22e30  MOVE.B  D7,D0>                                           {}
            <MI 22e32  EXTB.W  D0>                                              {}
            <MI 22e34  MOVE.W  D0,D1>                                           {}
            <POP 0x22e36 LimitCheck 0x0 ≤ D1 ≤ 0x5>                             {}
            <MI 22e3c  ADD.W   D1,D1>                                           {}
            <MI 22e3e  SWITCH  D1.W>                                            {}
        <POP 22e52-22e54 Naked>                              Σ0         →0x22ea2 ←0x22d2a
            <MI 22e52  BRA     0x22ea2>                                         {}
        <POP 22e54-22e5a Naked>                              Σ0         →0x22ea2 ←0x22d2a
            <Call 0x22e54 0x21128>                                              {}
            <MI 22e58  BRA     0x22ea2>                                         {}
        <POP 22e5a-22e60 Naked>                              Σ0         →0x22ea2 ←0x22d2a
            <Call 0x22e5a 0x21566>                                              {}
            <MI 22e5e  BRA     0x22ea2>                                         {}
        <POP 22e60-22e62 Naked>                              Σ0 Δ-2     ↓ ←0x22d2a
            <MI 22e60  CLR.B   -(A7)>                        Δ-2                {[#0]}
        <POP 22e62-22e6a Naked>                              Σ-2 Δ+2    →0x22ea2 ←0x22e6a
            <Call 0x22e62 0x21dda>                                              {[-2-]}
            <POP 22e66-22e68 StackAdj>                       Δ+2                {}
            <MI 22e68  BRA     0x22ea2>                                         {}
        <POP 22e6a-22e6e Naked>                              Σ0 Δ-2     →0x22e62 ←0x22d2a
            <Const 0x22e6a 0x1.2>                            Δ-2                {[#1]}
            <MI 22e6c  BRA     0x22e62>                                         {[#1]}
        <POP 22e6e-22e9c Naked>                              Σ0 Δ-36    ↓ →0x22ea0 ←0x22d2a
            <Blob 0x22e6e [36] @>                            Δ-36               {[«36""»]}
            <POP 22e7e-22e80 StackAdj>                       Δ-6                {[«36""»]|[-6-]}
            <Lit 0x22e80 35>                                                    {[«36""»]|[-2-]|[$$Unsupported function, are you sure_]}
            <POP 22e8c-22e8e StackAdj>                       Δ-2                {[«36""»]|[-2-]|[$$Unsupported function, are you sure_]|[-2-]}
            <MI 22e8e  CLR.B   (A7)>                                            {[«36""»]|[-2-]|[$$Unsupported function, are you sure_]|[-2-]}
            <Call 0x22e90 0x103f0>                                              {[«36""»]|[-2-]|[$$Unsupported function, are you sure_]|[-2-]}
                AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
            <POP 22e96-22e98 StackAdj>                       Δ+6                {[«36""»]|[-2-]}
            <MI 22e98  TST.B   (A7)+>                        Δ+2                {[«36""»]}
            <MI 22e9a  BEQ     0x22ea0>                                         {[«36""»]}
        <POP 22e9c-22ea0 Naked>                              Σ-36       ↓
            <Call 0x22e9c 0x225bc>                                              {[-36-]}
        <POP 22ea0-22ea2 Naked>                              Σ-36 Δ+36  ↓ ←0x22e6e
            <POP 22ea0-22ea2 StackAdj>                       Δ+36               {}
        <POP 22ea2-22ea8 Naked>                              Σ0         ↓ →0x22d2a ←0x22e52 ←0x22e54 ←0x22e5a ←0x22e62
            <MI 22ea2  TST.W   D0>                                              {}
            <MI 22ea4  BNE     0x22d2a>                                         {}
        <POP 22ea8-22eb6 Naked>                              Σ0         ↓
            <MI 22ea8  CLR.B   -(A7)>                        Δ-2                {[#0]}
            <Const 0x22eaa 0x1.4>                            Δ-4                {[#0]|[##1]}
            <Call 0x22eae 0x103b8>                                              {[#0]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 22eb4-22eb6 StackAdj>                       Δ+6                {}
        <POP 22eb6-22ebe Epilogue>                           Σ0         

0x22ebe


@ 22ebe
START
    <POP 22ebe--0001 Body>                                              
        <POP 22ebe-22ec8 Prologue>                           Σ0         
        <POP 22ec8-22eca RegCacheLoad>                       Σ0         ↓
        <POP 22eca-22efc Naked>                              Σ0         ↓ →0x22f56
            <Call 0x22eca 0x10398>                                              {}
                FSCALL_10398
            <MI 22ed0  CLR.B   0x231a4>                                         {}
            <POP 22ed6-22ed8 StackAdj>                       Δ-2                {[-2-]}
            <Const 0x22ed8 0x180.4>                          Δ-4                {[-2-]|[##384]}
            <Call 0x22edc 0x10592>                                              {[-2-]|[##384]}
                ReadConfig(where : Long) : Word
            <POP 22ee2-22ee4 StackAdj>                       Δ+4                {[-2-]}
            <MI 22ee4  MOVE.W  (A7)+,D0>                     Δ+2                {}
            <MI 22ee6  EXTW.L  D0>                                              {}
            <MI 22ee8  MOVE.L  D0,0x231a6>                                      {}
            <MI 22eee  SUBI.L  #0x0000004d,D0>                                  {}
            <MI 22ef4  CMPI.L  #0x0000000b,D0>                                  {}
            <MI 22efa  BHI     0x22f56>                                         {}
        <POP 22efc-22f06 Naked>                              Σ0         →0x22f1e →0x22f56 →0x22f56 →0x22f56 →0x22f56 →0x22f56 →0x22f56 →0x22f56 →0x22f56 →0x22f56 →0x22f56 →0x22f50
            <MI 22efc  ADD.W   D0,D0>                                           {}
            <MI 22efe  SWITCH  D0.W>                                            {}
        <POP 22f1e-22f50 Naked>                              Σ0         →0x22f80 ←0x22efc
            <Blob 0x22f1e [62] @>                            Δ-62               {[«62""»]}
            <POP 22f30-22f32 StackAdj>                       Δ-4                {[«62""»]|[-4-]}
            <Lit 0x22f32 61>                                                    {[«62""»]|[$$NOVRAM indicates modem attached, run INITIOA to change to PAD]}
            <Call 0x22f44 0x103e0>                                              {[«62""»]|[$$NOVRAM indicates modem attached, run INITIOA to change to PAD]}
                WriteConsoleStringCrLf(str : String)
            <POP 22f4a-22f4e StackAdj>                       Δ+66               {}
            <MI 22f4e  BRA     0x22f80>                                         {}
        <POP 22f50-22f56 Naked>                              Σ0         →0x22f90 ←0x22efc
            <Call 0x22f50 0x22cfe>                                              {}
            <MI 22f54  BRA     0x22f90>                                         {}
        <POP 22f56-22f80 Naked>                              Σ0         ↓ ←0x22eca ←0x22efc ←0x22efc ←0x22efc ←0x22efc ←0x22efc ←0x22efc ←0x22efc ←0x22efc ←0x22efc ←0x22efc
            <Blob 0x22f56 [46] @>                            Δ-46               {[«46""»]}
            <POP 22f62-22f64 StackAdj>                       Δ-4                {[«46""»]|[-4-]}
            <Lit 0x22f64 46>                                                    {[«46""»]|[$$NOVRAM is not properly configured, run INITIOA]}
            <Call 0x22f76 0x103e0>                                              {[«46""»]|[$$NOVRAM is not properly configured, run INITIOA]}
                WriteConsoleStringCrLf(str : String)
            <POP 22f7c-22f80 StackAdj>                       Δ+50               {}
        <POP 22f80-22f90 Naked>                              Σ0         ↓ ←0x22f1e
            <Const 0x22f80 0x2.2>                            Δ-2                {[#2]}
            <Const 0x22f84 0x1.4>                            Δ-4                {[#2]|[##1]}
            <Call 0x22f88 0x103b8>                                              {[#2]|[##1]}
                PopProgram(status : Byte; msg : String)
            <POP 22f8e-22f90 StackAdj>                       Δ+6                {}
        <POP 22f90-22f96 Naked>                              Σ0         ←0x22f50
            <Call 0x22f90 0x10284>                                              {}
                ?exit

0x22fa4


@ 22fa4
PROG_FAIL
        <LVAR  0x008 1(r)>
    <POP 22fa4-2300c Body>                                              
        <POP 22fa4-22fba Prologue>                           Σ0         ↓
        <POP 22fba-23004 Naked>                              Σ0         ↓
            <Blob 0x22fba [14] @>                            Δ-14               {[«14""»]}
            <Const 0x22fc6 0x3.2>                            Δ-2                {[«14""»]|[#3]}
            <POP 22fca-22fcc StackAdj>                       Δ-8                {[«14""»]|[#3]|[-8-]}
            <Lit 0x22fcc 14>                                                    {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
            <POP 22fde-22fe0 StackAdj>                       Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22fe0  MOVE.B  (A6+0x8),D0>                                     {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22fe4  EXTB.W  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22fe6  EXTW.L  D0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <MI 22fe8  MOVE.L  D0,-(A7)>                     Δ-4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
            <Call 0x22fea 0x102e4>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
                Long2String(a : Long) : String
            <POP 22ff0-22ff2 StackAdj>                       Δ+4                {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
            <Call 0x22ff2 0x102d0>                                              {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 22ff8-22ffa StackAdj>                       Δ+8                {[«14""»]|[#3]|[-4-]}
            <Call 0x22ffa 0x103b8>                                              {[«14""»]|[#3]|[-4-]}
                PopProgram(status : Byte; msg : String)
            <POP 23000-23004 StackAdj>                       Δ+20               {}
        <POP 23004-2300c Epilogue>                           Σ0         

0x23060


@ 23060
EXP_FAIL
        <LVAR  0x00e 1(r)>
        <LVAR  0x00a 4(r)>
        <LVAR  0x008 1(r)>
    <POP 23060-2319c Body>                                              
        <POP 23060-23076 Prologue>                           Σ0         ↓
        <POP 23076-2308c RegCacheLoad>                       Σ0         ↓
        <POP 2308c-230ec Naked>                              Σ0         ↓ →0x23134
            <Call 0x2308c 0x103dc>                                              {}
                WriteConsoleCrLf(void)
            <Blob 0x23092 [18] @>                            Δ-18               {[«18""»]}
            <POP 2309e-230a0 StackAdj>                       Δ-4                {[«18""»]|[-4-]}
            <Lit 0x230a0 18>                                                    {[«18""»]|[$$Experiment error :]}
            <Call 0x230ac 0x103e0>                                              {[«18""»]|[$$Experiment error :]}
                WriteConsoleStringCrLf(str : String)
            <POP 230ae-230af StackAdj>                       Δ+22       ↓       {}
            <Blob 0x230af [14] @>                            Δ-14               {[«14""»]}
            <POP 230be-230c0 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x230c0 13>                                                    {[«14""»]|[-4-]|[$$Board      :_]}
            <POP 230ca-230cc StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <MI 230cc  MOVE.B  (A6+0xe),(A7)>                                   {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
            <Call 0x230d0 0x1049c>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-6-]}
                BoardName(address : B) : String
            <POP 230d6-230d8 StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
            <Call 0x230d8 0x102d0>                                              {[«14""»]|[-4-]|[$$Board      :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 230de-230e0 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x230e0 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 230e2-230e4 StackAdj>                       Δ+18               {}
            <MI 230e4  MOVEA.L (A6+0xa),A0>                                     {}
            <MI 230e8  CMPA.W  #0x01,A0>                                        {}
            <MI 230ea  BEQ     0x23134>                                         {}
        <POP 230ec-23134 Naked>                              Σ0         ↓
            <Blob 0x230ec [14] @>                            Δ-14               {[«14""»]}
            <Blob 0x230fc [30] (A0+0xfc)>                    Δ-30               {[«14""»]|[«30»]}
            <POP 2310c-2310e StackAdj>                       Δ-8                {[«14""»]|[«30»]|[-8-]}
            <Lit 0x2310e 13>                                                    {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
            <POP 23118-2311a StackAdj>                       Δ-4                {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
            <Lit 0x2311a>                                                       {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                <Pointer.sp 0x2311a 12>                      Δ-4        
                <Const 0x2311e 0x1.2>                        Δ-2        
                <Const 0x23120 0x1e.2>                       Δ-2        
                <Call 0x23122 0x102c4>
                    StringLit(Src : Pointer; Offset: W; Len : W) : String
                <POP 23124-23126 StackAdj>                   Δ+8        
            <Call 0x23126 0x102d0>                                              {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
                StringCat2(a, b : String) : String
            <POP 2312c-2312e StackAdj>                       Δ+8                {[«14""»]|[«30»]|[-4-]}
            <Call 0x2312e 0x103e0>                                              {[«14""»]|[«30»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 23130-23134 StackAdj>                       Δ+48               {}
        <POP 23134-23194 Naked>                              Σ0         ↓ ←0x2308c
            <Blob 0x23134 [14] @>                            Δ-14               {[«14""»]}
            <POP 23144-23146 StackAdj>                       Δ-8                {[«14""»]|[-8-]}
            <Lit 0x23146 13>                                                    {[«14""»]|[-4-]|[$$Status     :_]}
            <POP 23150-23152 StackAdj>                       Δ-6                {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <MI 23152  MOVE.B  (A6+0x8),(A7)>                                   {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
            <Call 0x23156 0x104a2>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-6-]}
                ExpStatus2Text(status.B, &String)
            <POP 2315c-2315e StackAdj>                       Δ+2                {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
            <Call 0x2315e 0x102d0>                                              {[«14""»]|[-4-]|[$$Status     :_]|[-4-]}
                StringCat2(a, b : String) : String
            <POP 23164-23166 StackAdj>                       Δ+8                {[«14""»]|[-4-]}
            <Call 0x23166 0x103e0>                                              {[«14""»]|[-4-]}
                WriteConsoleStringCrLf(str : String)
            <POP 23168-23169 StackAdj>                       Δ+18       ↓       {}
            <Blob 0x23169 [24] @>                            Δ-24               {[«24""»]}
            <Const 0x23178 0x2.2>                            Δ-2                {[«24""»]|[#2]}
            <POP 2317c-2317e StackAdj>                       Δ-4                {[«24""»]|[#2]|[-4-]}
            <Lit 0x2317e 23>                                                    {[«24""»]|[#2]|[$$Fatal experiment error.]}
            <Call 0x2318c 0x103b8>                                              {[«24""»]|[#2]|[$$Fatal experiment error.]}
                PopProgram(status : Byte; msg : String)
            <POP 23192-23194 StackAdj>                       Δ+30               {}
        <POP 23194-2319c Epilogue>                           Σ0         

Raw from R1000.Disassembly/DFS

00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ;   import all
00020000 ;   import kind.program
00020000 ;   no ident.bae7b2aaad09c21c
00020000 ; --------------------------------------------------------------------------------------
00020000					stack.top:
00020000 00 04 00 00              |        |		.CODE	0x40000			; STACK.END
00020004 00 02 2e be              |  .     |		.CODE	START
00020008 00 01 02 88              |        |		.CODE	FSCALL_10288
0002000c					heap.top:
0002000c 00 02 39 c0              |  9     |		.PTR	0x239c0
00020010					code.end:
00020010 00 02 31 9c              |  1     |		.PTR	0x2319c
00020014 00 00 00 00              |        |		.CONST	0x00000000
00020018					programfailurehandler:
00020018 00 02 2f a4              |  /     |		.CODE	PROG_FAIL
0002001c					experimentfailurehandler:
0002001c 00 02 30 60              |  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 40 28 23 29 43 4f        |@(#)CO  |		.XXX[0x6]
00020110 4e 46 49 47 55 52 45 2c  |NFIGURE,|		.XXX[0x18]
00020118 31 2e 31 2c 39 32 2f 30  |1.1,92/0|
00020120 37 2f 30 39 2c 31 32 3a  |7/09,12:|
00020128 30 30 3a 30 30 5c        |00:00\  |		.XXX[0x6]
0002012e 4e 4f 56 52 41 4d 20 69  |NOVRAM i|		.TXT	'NOVRAM indicates modem attached, run INITIOA to change to PAD '
0002016c 4e 4f 56 52 41 4d 20 69  |NOVRAM i|		.TXT	'NOVRAM is not properly configured, run INITIOA'
0002019a 44 6f 20 79 6f 75        |Do you  |		.XXX[0x6]
000201a0 20 77 69 73 68 20 74 6f  | wish to|		.XXX[0x18]
000201a8 20 72 75 6e 20 69 6e 20  | run in |
000201b0 56 45 52 42 4f 53 45 20  |VERBOSE |
000201b8 6d 6f 64 65 5f 20        |mode_   |		.XXX[0x6]
000201be 44 69 72 65 63 74 20 63  |Direct c|		.TXT	'Direct communication to PAD established, use <CNTL>C to exit'
000201fa 55 6e 6b 6e 6f 77 6e 20  |Unknown |		.TXT	'Unknown status retruned from console buffer '
00020226 55 6e 6b 6e 6f 77 6e 20  |Unknown |		.TXT	'Unknown status retruned from pad buffer '
0002024e 54 68 65 20 50 41 44 20  |The PAD |		.TXT	'The PAD does not seem to be working, run TESTPAD'
0002027e 41 64 64 20 50 6f 72 74  |Add Port|		.TXT	'Add Port Group failed, manually delete the group and remove the '
000202be 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]'
00020300 53 20 4e 20 43 20 66 61  |S N C fa|		.TXT	'S N C failed. '
0002030e 43 6f 6c 64 20 53 74 61  |Cold Sta|		.TXT	'Cold Start (manual reset button in back of the PAD) the PAD and '
0002034e 72 65 74 72 79 20 63 6f  |retry co|		.TXT	'retry configurating. If the problem persists, attempt manual'
0002038a 63 6f 6e 66 69 67 75 72  |configur|		.TXT	'configuration or replace the PAD'
000203aa 53 20 41 20 50 20 66 61  |S A P fa|		.TXT	'S A P failed. '
000203b8 53 20 4c 20 50 20 66 61  |S L P fa|		.TXT	'S L P failed. '
000203c6 53 20 55 20 43 20 66 61  |S U C fa|		.TXT	'S U C failed. '
000203d4 46 69 72 73 74 20 41 20  |First A |		.TXT	'First A X T failed. '
000203e8 53 65 63 6f 6e 64 20 41  |Second A|		.TXT	'Second A X T failed.'
000203fc 57 20 53 20 66 61 69 6c  |W S fail|		.TXT	'W S failed. '
00020408 45 6e 74 65 72 20 74 68  |Enter th|		.TXT	'Enter the port number you wish to configure [2..5] :_ '
0002043e 44 6f 20 79 6f 75 20 77  |Do you w|		.TXT	'Do you wish to run in VERBOSE mode_ '
00020462 45 6e 74 65 72 20 74 68  |Enter th|		.TXT	'Enter the DTE address identification (ID) for the IOC port :_ '
000204a0 45 6e 74 65 72 20 4c 45  |Enter LE|		.TXT	'Enter LEVEL 3 packet size [64..256] :_'
000204c6 20 50                    | P      |		.TXT	' P'
000204c8 4f 3a                    |O:      |		.TXT	'O:'
000204ca 32 5f                    |2_      |		.TXT	'2_'
000204cc 20 47 52 3a 50 32 20 20  | GR:P2  |		.TXT	' GR:P2  '
000204d4 20 50                    | P      |		.TXT	' P'
000204d6 4f 3a                    |O:      |		.TXT	'O:'
000204d8 33 5f                    |3_      |		.TXT	'3_'
000204da 20 47 52 3a 50 33 20 20  | GR:P3  |		.TXT	' GR:P3  '
000204e2 20 50                    | P      |		.TXT	' P'
000204e4 4f 3a                    |O:      |		.TXT	'O:'
000204e6 34 5f                    |4_      |		.TXT	'4_'
000204e8 20 47 52 3a 50 34 20 20  | GR:P4  |		.TXT	' GR:P4  '
000204f0 20 50                    | P      |		.TXT	' P'
000204f2 4f 3a                    |O:      |		.TXT	'O:'
000204f4 35 5f                    |5_      |		.TXT	'5_'
000204f6 20 47 52 3a 50 35 20 20  | GR:P5  |		.TXT	' GR:P5  '
000204fe 41 20 50 20 47 20 41 44  |A P G AD|		.TXT	'A P G AD: '
00020508 50 41 3a 58 59 58 59 58  |PA:XYXYX|		.TXT	'PA:XYXYXY '
00020512 53 20 4e 20 43 20 43 48  |S N C CH|		.TXT	'S N C CH:1 NS:'
00020520 20 53 53 3a              | SS:    |		.TXT	' SS:'
00020524 20 46 57 3a 37 20 50 57  | FW:7 PW|		.TXT	' FW:7 PW:2 PA:XYXYXY'
00020538 53 20 41 20 50 20 43 4f  |S A P CO|		.TXT	'S A P CO:B DC:N DO:N FS:'
00020550 20 49 44 3a 41 32 20 50  | ID:A2 P|		.TXT	' ID:A2 PC:N '
0002055c 54 50 3a 59 20 55 53 3a  |TP:Y US:|		.TXT	'TP:Y US:N PA:XYXYXY '
00020570 53 20 4c 20 50 20 4c 45  |S L P LE|		.TXT	'S L P LE:8'
0002057a 50 52 3a 4e 20 53 54 3a  |PR:N ST:|		.TXT	'PR:N ST:1 SP:9600 UC:Y PA:XYXYXY'
0002059a 53 20 55 20 43 20 58 41  |S U C XA|		.TXT	'S U C XA:Y XD:1 '
000205aa 50 41 3a 58 59 58 59 58  |PA:XYXYX|		.TXT	'PA:XYXYXY '
000205b4 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, '
000205e4 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'
0002060e 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,'
00020640 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'
00020672 57 20 53 20 50 41 3a 58  |W S PA:X|		.TXT	'W S PA:XYXYXY '
00020680 54 68 65 20 50 41 44 20  |The PAD |		.TXT	'The PAD has been configured!'
0002069c 54 68 65 20 50 41 44 20  |The PAD |		.TXT	'The PAD does not seem to be working, run TESTPAD'
000206cc 41 64 64 20 50 6f 72 74  |Add Port|		.TXT	'Add Port Group failed, manually delete the group and remove the '
0002070c 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]'
0002074e 53 45 54 20 66 61 69 6c  |SET fail|		.TXT	'SET failed. '
0002075a 43 6f 6c 64 20 53 74 61  |Cold Sta|		.TXT	'Cold Start (manual reset button in back of the PAD) the PAD and '
0002079a 72 65 74 72 79 20 63 6f  |retry co|		.TXT	'retry configurating. If the problem persists, attempt manual'
000207d6 63 6f 6e 66 69 67 75 72  |configur|		.TXT	'configuration or replace the PAD'
000207f6 53 20 41 20 50 20 66 61  |S A P fa|		.TXT	'S A P failed. '
00020804 53 20 4c 20 50 20 66 61  |S L P fa|		.TXT	'S L P failed. '
00020812 53 20 4e 20 43 20 66 61  |S N C fa|		.TXT	'S N C failed. '
00020820 57 20 53 20 66 61 69 6c  |W S fail|		.TXT	'W S failed. '
0002082c 45 6e 74 65 72 20 74 68  |Enter th|		.TXT	'Enter the port number you wish to configure [2..5] :_ '
00020862 44 6f 20 79 6f 75 20 77  |Do you w|		.TXT	'Do you wish to run in VERBOSE mode_ '
00020886 45 6e 74 65 72 20 74 68  |Enter th|		.TXT	'Enter the DTE address identification (ID) for the ENVIRONMENT port :_ '
000208cc 45 6e 74 65 72 20 4c 45  |Enter LE|		.TXT	'Enter LEVEL 3 packet size [64..256] :_'
000208f2 20 50                    | P      |		.TXT	' P'
000208f4 4f 3a                    |O:      |		.TXT	'O:'
000208f6 32 5f                    |2_      |		.TXT	'2_'
000208f8 20 47 52 3a 50 32 20 20  | GR:P2  |		.TXT	' GR:P2  '
00020900 20 50                    | P      |		.TXT	' P'
00020902 4f 3a                    |O:      |		.TXT	'O:'
00020904 33 5f                    |3_      |		.TXT	'3_'
00020906 20 47 52 3a 50 33 20 20  | GR:P3  |		.TXT	' GR:P3  '
0002090e 20 50                    | P      |		.TXT	' P'
00020910 4f 3a                    |O:      |		.TXT	'O:'
00020912 34 5f                    |4_      |		.TXT	'4_'
00020914 20 47 52 3a 50 34 20 20  | GR:P4  |		.TXT	' GR:P4  '
0002091c 20 50                    | P      |		.TXT	' P'
0002091e 4f 3a                    |O:      |		.TXT	'O:'
00020920 35 5f                    |5_      |		.TXT	'5_'
00020922 20 47 52 3a 50 35 20 20  | GR:P5  |		.TXT	' GR:P5  '
0002092a 53 20 41 20 50 20 50 43  |S A P PC|		.TXT	'S A P PC:Y ID:D0 PA:XYXYXY'
00020944 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'
00020968 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'
0002098c 53 20 41 20 50 20 50 43  |S A P PC|		.TXT	'S A P PC:N ID:A2 PA:XYXYXY'
000209a6 53 20 41 20 50 20 55 53  |S A P US|		.TXT	'S A P US:M'
000209b0 53 20 41 20 50 20 55 53  |S A P US|		.TXT	'S A P US:N'
000209ba 20 46 53 3a              | FS:    |		.TXT	' FS:'
000209be 49 44 3a 44 30 20 43 4f  |ID:D0 CO|		.TXT	'ID:D0 CO:Y DC:C PA:XYXYXY '
000209d8 53 20 4c 20 50 20        |S L P   |		.TXT	'S L P '
000209de 53 50 3a 39 36 30 30 20  |SP:9600 |		.TXT	'SP:9600 PR:N LE:8 ST:1 PA:XYXYXY'
000209fe 53 20 4e 20 43 20 43 48  |S N C CH|		.TXT	'S N C CH:1 NS:'
00020a0c 50 41 3a 58 59 58 59 58  |PA:XYXYX|		.TXT	'PA:XYXYXY SS: '
00020a1a 41 20 50 20 47 20        |A P G   |		.TXT	'A P G '
00020a20 20 41 44 3a              | AD:    |		.TXT	' AD:'
00020a24 20 50 41 3a 58 59 58 59  | PA:XYXY|		.TXT	' PA:XYXYXY'
00020a2e 57 20 53 20 50 41 3a 58  |W S PA:X|		.TXT	'W S PA:XYXYXY '
00020a3c 54 68 65 20 45 6e 76 69  |The Envi|		.TXT	'The Environment Port has been configured! '
00020a66 54 68 65 20 50 41 44 20  |The PAD |		.TXT	'The PAD does not seem to be working, run TESTPAD'
00020a96 41 64 64 20 50 6f 72 74  |Add Port|		.TXT	'Add Port Group failed, manually delete the group and remove the '
00020ad6 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]'
00020b18 53 20 4e 20 43 20 66 61  |S N C fa|		.TXT	'S N C failed. '
00020b26 43 6f 6c 64 20 53 74 61  |Cold Sta|		.TXT	'Cold Start (manual reset button in back of the PAD) the PAD and '
00020b66 72 65 74 72 79 20 63 6f  |retry co|		.TXT	'retry configurating. If the problem persists, attempt manual'
00020ba2 63 6f 6e 66 69 67 75 72  |configur|		.TXT	'configuration or replace the PAD'
00020bc2 53 20 41 20 50 20 66 61  |S A P fa|		.TXT	'S A P failed. '
00020bd0 53 20 4c 20 50 20 66 61  |S L P fa|		.TXT	'S L P failed. '
00020bde 53 20 55 20 43 20 66 61  |S U C fa|		.TXT	'S U C failed. '
00020bec 41 20 58 20 54 20 66 61  |A X T fa|		.TXT	'A X T failed. '
00020bfa 57 20 53 20 66 61 69 6c  |W S fail|		.TXT	'W S failed. '
00020c06 45 6e 74 65 72 20 74 68  |Enter th|		.TXT	'Enter the port number you wish to configure [2..5] :_ '
00020c3c 44 6f 20 79 6f 75 20 77  |Do you w|		.TXT	'Do you wish to run in VERBOSE mode_ '
00020c60 45 6e 74 65 72 20 74 68  |Enter th|		.TXT	'Enter the DTE address identification (ID) for the IOC port :_ '
00020c9e 20 50                    | P      |		.TXT	' P'
00020ca0 4f 3a                    |O:      |		.TXT	'O:'
00020ca2 32 5f                    |2_      |		.TXT	'2_'
00020ca4 20 47 52 3a 50 32 20 20  | GR:P2  |		.TXT	' GR:P2  '
00020cac 20 50                    | P      |		.TXT	' P'
00020cae 4f 3a                    |O:      |		.TXT	'O:'
00020cb0 33 5f                    |3_      |		.TXT	'3_'
00020cb2 20 47 52 3a 50 33 20 20  | GR:P3  |		.TXT	' GR:P3  '
00020cba 20 50                    | P      |		.TXT	' P'
00020cbc 4f 3a                    |O:      |		.TXT	'O:'
00020cbe 34 5f                    |4_      |		.TXT	'4_'
00020cc0 20 47 52 3a 50 34 20 20  | GR:P4  |		.TXT	' GR:P4  '
00020cc8 20 50                    | P      |		.TXT	' P'
00020cca 4f 3a                    |O:      |		.TXT	'O:'
00020ccc 35 5f                    |5_      |		.TXT	'5_'
00020cce 20 47 52 3a 50 35 20 20  | GR:P5  |		.TXT	' GR:P5  '
00020cd6 41 20 50 20 47 20 41 44  |A P G AD|		.TXT	'A P G AD: '
00020ce0 50 41 3a 58 59 58 59 58  |PA:XYXYX|		.TXT	'PA:XYXYXY '
00020cea 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'
00020d16 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'
00020d3c 54 50 3a 59 20 55 53 3a  |TP:Y US:|		.TXT	'TP:Y US:N PA:XYXYXY '
00020d50 53 20 4c 20 50 20 4c 45  |S L P LE|		.TXT	'S L P LE:8'
00020d5a 50 52 3a 4e 20 53 54 3a  |PR:N ST:|		.TXT	'PR:N ST:1 SP:9600 UC:Y PA:XYXYXY'
00020d7a 53 20 55 20 43 20 58 41  |S U C XA|		.TXT	'S U C XA:Y XD:3 '
00020d8a 50 41 3a 58 59 58 59 58  |PA:XYXYX|		.TXT	'PA:XYXYXY '
00020d94 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, '
00020dc4 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'
00020dee 57 20 53 20 50 41 3a 58  |W S PA:X|		.TXT	'W S PA:XYXYXY '
00020dfc 54 68 65 20 50 41 44 20  |The PAD |		.TXT	'The PAD has been configured!'
00020e18 4f 70 74 69              |Opti    |		.TXT	'Opti'
00020e1c 6f 6e 73 20              |ons     |		.TXT	'ons '
00020e20 61 72 65 3a              |are:    |		.TXT	'are:'
00020e24 20 20 20 20 30 20 3d 3e  |    0 =>|		.TXT	'    0 => Exit '
00020e32 20 20 20 20 31 20 3d 3e  |    1 =>|		.TXT	'    1 => Manual Configure [ Any port ]'
00020e58 20 20 20 20 32 20 3d 3e  |    2 =>|		.TXT	'    2 => Auto   Configure [ IOC port ]'
00020e7e 20 20 20 20 33 20 3d 3e  |    3 =>|		.TXT	'    3 => Auto   Configure [ Environment port, CTS (hardware) flow control ] '
00020eca 20 20 20 20 34 20 3d 3e  |    4 =>|		.TXT	'    4 => Auto   Configure [ Environment port, XON_XOFF flow control ] '
00020f10 20 20 20 20 35 20 3d 3e  |    5 =>|		.XXX[0x30]
00020f18 20 41 75 74 6f 20 20 20  | Auto   |
00020f20 43 6f 6e 66 69 67 75 72  |Configur|
00020f28 65 20 5b 20 49 4f 43 20  |e [ IOC |
00020f30 72 65 6d 6f 74 65 20 63  |remote c|
00020f38 6f 6e 73 6f 6c 65 20 5d  |onsole ]|
00020f40 45 6e 74 65 72 20 6f 70  |Enter op|		.TXT	'Enter option :_ '
00020f50 55 6e 73 75 70 70 6f 72  |Unsuppor|		.TXT	'Unsupported function, are you sure_ '
00020f74 ; --------------------------------------------------------------------------------------
00020f74 ; OMSI PASCAL Function
00020f74 ;    <LVAR  0x008 @ 4(r)>
00020f74 ; --------------------------------------------------------------------------------------
00020f74 4e 56 ff f2              |NV      |		LINK.W	A6,#0xfff2
00020f78 bf d5                    |        |		CMPA.L	(A5),A7
00020f7a 62 06                    |b       |		BHI	0x20f82
00020f7c 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020f80 4e 76                    |Nv      |		TRAPV
00020f82 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00020f86 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
00020f8a 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
00020f8e 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00020f90 1f 3c 00 0a              | <      |		MOVE.B	#0x0a,-(A7)
00020f94 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00020f9a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00020f9c 2e 90                    |.       |		MOVE.L	(A0),(A7)
00020f9e 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
00020fa2 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
00020fa8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020faa 3e bc 00 01              |>       |		MOVE.W	#0x1,(A7)
00020fae 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00020fb0 4e b9 00 01 02 0a        |N       |		JSR	KC05_Write_Console_String(port : Word ; str : String)
00020fb6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00020fb8 48 50                    |HP      |		PEA.L	(A0)
00020fba 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00020fc0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020fc2 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00020fc6 4e 5e                    |N^      |		UNLK	A6
00020fc8 4e 75                    |Nu      |		RTS
00020fca ; --------------------------------------------------------------------------------------
00020fca ; OMSI PASCAL Function
00020fca ;    <LVAR -0x004 @ 4(r)>
00020fca ; --------------------------------------------------------------------------------------
00020fca 4e 56 ff f4              |NV      |		LINK.W	A6,#0xfff4
00020fce bf d5                    |        |		CMPA.L	(A5),A7
00020fd0 62 06                    |b       |		BHI	0x20fd8
00020fd2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00020fd6 4e 76                    |Nv      |		TRAPV
00020fd8 de fc 00 08              |        |		ADDA.W	#0x8,A7
00020fdc 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00020fe0 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00020fe6 2e ae ff fc              |.       |		MOVE.L	(A6-0x4),(A7)
00020fea 4e ba ff 88              |N       |		JSR	0x20f74
00020fee 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00020ff0 4e 5e                    |N^      |		UNLK	A6
00020ff2 4e 75                    |Nu      |		RTS
00020ff4 ; --------------------------------------------------------------------------------------
00020ff4 ; OMSI PASCAL Function
00020ff4 ;    <LVAR  0x008 @ 4(r)>
00020ff4 ; --------------------------------------------------------------------------------------
00020ff4 4e 56 ff f2              |NV      |		LINK.W	A6,#0xfff2
00020ff8 bf d5                    |        |		CMPA.L	(A5),A7
00020ffa 62 06                    |b       |		BHI	0x21002
00020ffc 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021000 4e 76                    |Nv      |		TRAPV
00021002 de fc 00 0e              |        |		ADDA.W	#0xe,A7
00021006 48 e7 00 80              |H       |		MOVEM.L	A0,-(A7)
0002100a 41 ee 00 08              |A       |		LEA.L	(A6+0x8),A0
0002100e 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00021010 1f 3c 00 0d              | <      |		MOVE.B	#0x0d,-(A7)
00021014 4e b9 00 01 02 c0        |N       |		JSR	AppendChar(MOD b : String; a : char)
0002101a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002101c 3e bc 00 02              |>       |		MOVE.W	#0x2,(A7)
00021020 2f 10                    |/       |		MOVE.L	(A0),-(A7)
00021022 4e b9 00 01 02 0a        |N       |		JSR	KC05_Write_Console_String(port : Word ; str : String)
00021028 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002102a 48 50                    |HP      |		PEA.L	(A0)
0002102c 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021032 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021034 4c df 01 00              |L       |		MOVEM.L	(A7)+,A0
00021038 4e 5e                    |N^      |		UNLK	A6
0002103a 4e 75                    |Nu      |		RTS
0002103c ; --------------------------------------------------------------------------------------
0002103c ; OMSI PASCAL Function
0002103c ;    <LVAR  0x00c 2(w)>
0002103c ;    <LVAR  0x008 4(r)>
0002103c ; --------------------------------------------------------------------------------------
0002103c 4e 56 ff f2              |NV      |		LINK.W	A6,#0xfff2		; Spelunked
00021040 bf d5                    |        |		CMPA.L	(A5),A7
00021042 62 06                    |b       |		BHI	0x2104a
00021044 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021048 4e 76                    |Nv      |		TRAPV
0002104a de fc 00 0e              |        |		ADDA.W	#0xe,A7
0002104e 48 e7 80 00              |H       |		MOVEM.L	D0,-(A7)
00021052 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021054 2f 2e 00 08              |/.      |		MOVE.L	(A6+0x8),-(A7)
00021058 4e b9 00 01 05 92        |N       |		JSR	ReadConfig(where : Long) : Word
0002105e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021060 30 1f                    |0       |		MOVE.W	(A7)+,D0
00021062 41 bc 00 ff              |A       |		CHK.W	#0xff,D0
00021066 3d 40 00 0c              |=@      |		MOVE.W	D0,(A6+0xc)
0002106a 4c df 00 01              |L       |		MOVEM.L	(A7)+,D0
0002106e 4e 5e                    |N^      |		UNLK	A6
00021070 4e 75                    |Nu      |		RTS
00021072 ; --------------------------------------------------------------------------------------
00021072 ; OMSI PASCAL Function
00021072 ;    <LVAR -0x004 @ 1(r)>
00021072 ; --------------------------------------------------------------------------------------
00021072 4e 56 ff c6              |NV      |		LINK.W	A6,#0xffc6
00021076 bf d5                    |        |		CMPA.L	(A5),A7
00021078 62 06                    |b       |		BHI	0x21080
0002107a 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002107e 4e 76                    |Nv      |		TRAPV
00021080 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00021084 48 e7 c3 f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D1+D0,-(A7)
00021088 43 f9 00 02 39 aa        |C   9   |		LEA.L	0x239aa,A1
0002108e 45 f9 00 02 31 9c        |E   1   |		LEA.L	0x2319c,A2
00021094 47 f9 00 02 31 a4        |G   1   |		LEA.L	0x231a4,A3
0002109a 72 02                    |r       |		MOVEQ.L	#0x02,D1
0002109c 7e 00                    |~       |		MOVEQ.L	#0x00,D7
0002109e 42 91                    |B       |		CLR.L	(A1)
000210a0 0c 87 00 00 00 14        |        |		CMPI.L	#0x00000014,D7
000210a6 67 70                    |gp      |		BEQ	0x21118
000210a8 7c 01                    ||       |		MOVEQ.L	#0x01,D6
000210aa 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210ac 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
000210b0 4e b9 00 01 02 12        |N       |		JSR	KC09_PortStatus(Port : Word; VAR b: Byte)
000210b6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000210b8 10 2e ff fc              | .      |		MOVE.B	(A6-0x4),D0
000210bc 0c 00 00 01              |        |		CMPI.B	#0x01,D0
000210c0 66 48                    |fH      |		BNE	0x2110a
000210c2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000210c4 20 11                    |        |		MOVE.L	(A1),D0
000210c6 0c 80 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D0
000210cc 63 02                    |c       |		BLS	0x210d0
000210ce 4e 4f                    |NO      |		TRAP	#15
000210d0 e3 80                    |        |		ASL.L	#0x1,D0
000210d2 20 4a                    | J      |		MOVEA.L	A2,A0
000210d4 48 70 08 0e              |Hp      |		PEA.L	(A0+D0.L+#0xe)
000210d8 4e b9 00 01 02 0e        |N       |		JSR	KC07_PortGetChar(port : Word ; VAR ret : Word)
000210de 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000210e0 4a 13                    |J       |		TST.B	(A3)
000210e2 67 22                    |g"      |		BEQ	0x21106
000210e4 20 11                    |        |		MOVE.L	(A1),D0
000210e6 0c 80 00 00 03 ff        |        |		CMPI.L	#0x000003ff,D0
000210ec 63 02                    |c       |		BLS	0x210f0
000210ee 4e 4f                    |NO      |		TRAP	#15
000210f0 e3 80                    |        |		ASL.L	#0x1,D0
000210f2 20 4a                    | J      |		MOVEA.L	A2,A0
000210f4 30 30 08 0e              |00      |		MOVE.W	(A0+D0.L+#0xe),D0
000210f8 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
000210fc 1f 00                    |        |		MOVE.B	D0,-(A7)
000210fe 4e b9 00 01 03 d0        |N       |		JSR	WriteConsoleChar(chr : char)
00021104 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021106 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021108 52 91                    |R       |		ADDQ.L	#0x1,(A1)
0002110a 52 86                    |R       |		ADDQ.L	#0x1,D6
0002110c 0c 86 00 00 03 e8        |        |		CMPI.L	#0x000003e8,D6
00021112 6f 96                    |o       |		BLE	0x210aa
00021114 52 87                    |R       |		ADDQ.L	#0x1,D7
00021116 60 88                    |`       |		BRA	0x210a0
00021118 4a 13                    |J       |		TST.B	(A3)
0002111a 67 04                    |g       |		BEQ	0x21120
0002111c 4e ba fe ac              |N       |		JSR	0x20fca
00021120 4c df 0f c3              |L       |		MOVEM.L	(A7)+,D0+D1+D6+D7+A0+A1+A2+A3
00021124 4e 5e                    |N^      |		UNLK	A6
00021126 4e 75                    |Nu      |		RTS
00021128 ; --------------------------------------------------------------------------------------
00021128 ; OMSI PASCAL Function
00021128 ;    <LVAR -0x006 @ 2(r)>
00021128 ;    <LVAR -0x008 @ 1(r)>
00021128 ; --------------------------------------------------------------------------------------
00021128 4e 56 ff 84              |NV      |		LINK.W	A6,#0xff84
0002112c bf d5                    |        |		CMPA.L	(A5),A7
0002112e 62 06                    |b       |		BHI	0x21136
00021130 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021134 4e 76                    |Nv      |		TRAPV
00021136 de fc 00 74              |   t    |		ADDA.W	#0x74,A7
0002113a 48 e7 e3 f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D2+D1+D0,-(A7)
0002113e 45 ee ff f8              |E       |		LEA.L	(A6-0x8),A2
00021142 47 ee ff fa              |G       |		LEA.L	(A6-0x6),A3
00021146 49 f9 00 01 02 c4        |I       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
0002114c 72 01                    |r       |		MOVEQ.L	#0x01,D1
0002114e 74 02                    |t       |		MOVEQ.L	#0x02,D2
00021150 42 39 00 02 31 a4        |B9  1   |		CLR.B	0x231a4
00021156 4e b9 00 01 02 16        |N       |		JSR	KC0b
0002115c 4e ba ff 14              |N       |		JSR	0x21072
00021160 41 fa f0 98              |A       |		LEA.L	0x201fa,A0
00021164 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021166 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021168 51 c8 ff fc              |Q       |		DBF	D0,0x21166
0002116c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002116e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021172 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021174 3f 3c 00 3c              |?< <    |		MOVE.W	#0x3c,-(A7)
00021178 4e 94                    |N       |		JSR	(A4)
0002117a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002117c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021182 de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00021186 3e 82                    |>       |		MOVE.W	D2,(A7)
00021188 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
0002118c 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00021192 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021194 7c 00                    ||       |		MOVEQ.L	#0x00,D6
00021196 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021198 48 52                    |HR      |		PEA.L	(A2)
0002119a 4e b9 00 01 02 12        |N       |		JSR	KC09_PortStatus(Port : Word; VAR b: Byte)
000211a0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000211a2 10 12                    |        |		MOVE.B	(A2),D0
000211a4 b0 01                    |        |		CMP.B	D1,D0
000211a6 66 30                    |f0      |		BNE	0x211d8
000211a8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000211aa 48 53                    |HS      |		PEA.L	(A3)
000211ac 4e b9 00 01 02 0e        |N       |		JSR	KC07_PortGetChar(port : Word ; VAR ret : Word)
000211b2 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000211b4 30 13                    |0       |		MOVE.W	(A3),D0
000211b6 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
000211ba 1e 00                    |        |		MOVE.B	D0,D7
000211bc 0c 07 00 03              |        |		CMPI.B	#0x03,D7
000211c0 66 04                    |f       |		BNE	0x211c6
000211c2 7c 01                    ||       |		MOVEQ.L	#0x01,D6
000211c4 60 10                    |`       |		BRA	0x211d6
000211c6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000211c8 42 80                    |B       |		CLR.L	D0
000211ca 10 07                    |        |		MOVE.B	D7,D0
000211cc 3f 00                    |?       |		MOVE.W	D0,-(A7)
000211ce 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
000211d4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000211d6 60 3e                    |`>      |		BRA	0x21216
000211d8 4a 00                    |J       |		TST.B	D0
000211da 67 3a                    |g:      |		BEQ	0x21216
000211dc 9e fc 00 2c              |   ,    |		SUBA.W	#0x2c,A7
000211e0 20 4f                    | O      |		MOVEA.L	A7,A0
000211e2 43 fa f0 16              |C       |		LEA.L	0x201fa,A1
000211e6 70 2a                    |p*      |		MOVEQ.L	#0x2a,D0
000211e8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000211ea 51 c8 ff fc              |Q       |		DBF	D0,0x211e8
000211ee 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000211f0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000211f4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000211f6 3f 3c 00 2b              |?< +    |		MOVE.W	#0x2b,-(A7)
000211fa 4e 94                    |N       |		JSR	(A4)
000211fc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000211fe 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021204 de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00021208 1e 82                    |        |		MOVE.B	D2,(A7)
0002120a 48 78 00 01              |Hx      |		PEA.L	0x1
0002120e 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00021214 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021216 3f 02                    |?       |		MOVE.W	D2,-(A7)
00021218 48 52                    |HR      |		PEA.L	(A2)
0002121a 4e b9 00 01 02 12        |N       |		JSR	KC09_PortStatus(Port : Word; VAR b: Byte)
00021220 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021222 10 12                    |        |		MOVE.B	(A2),D0
00021224 b0 01                    |        |		CMP.B	D1,D0
00021226 66 26                    |f&      |		BNE	0x2124e
00021228 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002122a 48 53                    |HS      |		PEA.L	(A3)
0002122c 4e b9 00 01 02 0e        |N       |		JSR	KC07_PortGetChar(port : Word ; VAR ret : Word)
00021232 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021234 30 13                    |0       |		MOVE.W	(A3),D0
00021236 02 40 00 ff              | @      |		ANDI.W	#0x00ff,D0
0002123a 1e 00                    |        |		MOVE.B	D0,D7
0002123c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002123e 42 80                    |B       |		CLR.L	D0
00021240 10 07                    |        |		MOVE.B	D7,D0
00021242 3f 00                    |?       |		MOVE.W	D0,-(A7)
00021244 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
0002124a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002124c 60 3e                    |`>      |		BRA	0x2128c
0002124e 4a 00                    |J       |		TST.B	D0
00021250 67 3a                    |g:      |		BEQ	0x2128c
00021252 9e fc 00 28              |   (    |		SUBA.W	#0x28,A7
00021256 20 4f                    | O      |		MOVEA.L	A7,A0
00021258 43 fa ef cc              |C       |		LEA.L	0x20226,A1
0002125c 70 26                    |p&      |		MOVEQ.L	#0x26,D0
0002125e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021260 51 c8 ff fc              |Q       |		DBF	D0,0x2125e
00021264 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021266 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002126a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002126c 3f 3c 00 27              |?< '    |		MOVE.W	#0x27,-(A7)
00021270 4e 94                    |N       |		JSR	(A4)
00021272 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021274 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002127a de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
0002127e 1e 82                    |        |		MOVE.B	D2,(A7)
00021280 48 78 00 01              |Hx      |		PEA.L	0x1
00021284 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
0002128a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002128c 4a 06                    |J       |		TST.B	D6
0002128e 67 00 ff 06              |g       |		BEQ	0x21196
00021292 4c df 1f c7              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D6+D7+A0+A1+A2+A3+A4
00021296 4e 5e                    |N^      |		UNLK	A6
00021298 4e 75                    |Nu      |		RTS
0002129a ; --------------------------------------------------------------------------------------
0002129a ; OMSI PASCAL Function
0002129a ;    <LVAR  0x008 1(w)>
0002129a ; --------------------------------------------------------------------------------------
0002129a 4e 56 ff c4              |NV      |		LINK.W	A6,#0xffc4
0002129e bf d5                    |        |		CMPA.L	(A5),A7
000212a0 62 06                    |b       |		BHI	0x212a8
000212a2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000212a6 4e 76                    |Nv      |		TRAPV
000212a8 de fc 00 38              |   8    |		ADDA.W	#0x38,A7
000212ac 48 e7 ff e0              |H       |		MOVEM.L	A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000212b0 43 f9 00 02 31 9c        |C   1   |		LEA.L	0x2319c,A1
000212b6 45 f9 00 02 31 a6        |E   1   |		LEA.L	0x231a6,A2
000212bc 26 3c 00 00 03 ff        |&<      |		MOVE.L	#0x3ff,D3
000212c2 38 3c 00 ff              |8<      |		MOVE.W	#0xff,D4
000212c6 7a 43                    |zC      |		MOVEQ.L	#0x43,D5
000212c8 7c 44                    ||D      |		MOVEQ.L	#0x44,D6
000212ca 42 92                    |B       |		CLR.L	(A2)
000212cc 7e 01                    |~       |		MOVEQ.L	#0x01,D7
000212ce 20 12                    |        |		MOVE.L	(A2),D0
000212d0 b0 b9 00 02 39 aa        |    9   |		CMP.L	0x239aa,D0
000212d6 6c 00 01 58              |l  X    |		BGE	0x21430
000212da 4a 07                    |J       |		TST.B	D7
000212dc 67 00 01 52              |g  R    |		BEQ	0x21430
000212e0 22 00                    |"       |		MOVE.L	D0,D1
000212e2 52 81                    |R       |		ADDQ.L	#0x1,D1
000212e4 b0 83                    |        |		CMP.L	D3,D0
000212e6 63 02                    |c       |		BLS	0x212ea
000212e8 4e 4f                    |NO      |		TRAP	#15
000212ea 24 00                    |$       |		MOVE.L	D0,D2
000212ec e3 82                    |        |		ASL.L	#0x1,D2
000212ee 20 49                    | I      |		MOVEA.L	A1,A0
000212f0 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
000212f4 c4 44                    | D      |		AND.W	D4,D2
000212f6 b4 05                    |        |		CMP.B	D5,D2
000212f8 66 00 01 30              |f  0    |		BNE	0x2142a
000212fc b2 83                    |        |		CMP.L	D3,D1
000212fe 63 02                    |c       |		BLS	0x21302
00021300 4e 4f                    |NO      |		TRAP	#15
00021302 24 01                    |$       |		MOVE.L	D1,D2
00021304 e3 82                    |        |		ASL.L	#0x1,D2
00021306 20 49                    | I      |		MOVEA.L	A1,A0
00021308 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
0002130c c4 44                    | D      |		AND.W	D4,D2
0002130e 0c 02 00 4d              |   M    |		CMPI.B	#0x4d,D2
00021312 66 00 01 16              |f       |		BNE	0x2142a
00021316 24 00                    |$       |		MOVE.L	D0,D2
00021318 54 82                    |T       |		ADDQ.L	#0x2,D2
0002131a b4 83                    |        |		CMP.L	D3,D2
0002131c 63 02                    |c       |		BLS	0x21320
0002131e 4e 4f                    |NO      |		TRAP	#15
00021320 e3 82                    |        |		ASL.L	#0x1,D2
00021322 20 49                    | I      |		MOVEA.L	A1,A0
00021324 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
00021328 c4 44                    | D      |		AND.W	D4,D2
0002132a b4 06                    |        |		CMP.B	D6,D2
0002132c 66 00 00 fc              |f       |		BNE	0x2142a
00021330 24 00                    |$       |		MOVE.L	D0,D2
00021332 56 82                    |V       |		ADDQ.L	#0x3,D2
00021334 b4 83                    |        |		CMP.L	D3,D2
00021336 63 02                    |c       |		BLS	0x2133a
00021338 4e 4f                    |NO      |		TRAP	#15
0002133a e3 82                    |        |		ASL.L	#0x1,D2
0002133c 20 49                    | I      |		MOVEA.L	A1,A0
0002133e 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
00021342 c4 44                    | D      |		AND.W	D4,D2
00021344 0c 02 00 20              |        |		CMPI.B	#0x20,D2
00021348 66 00 00 e0              |f       |		BNE	0x2142a
0002134c 24 00                    |$       |		MOVE.L	D0,D2
0002134e 58 82                    |X       |		ADDQ.L	#0x4,D2
00021350 b4 83                    |        |		CMP.L	D3,D2
00021352 63 02                    |c       |		BLS	0x21356
00021354 4e 4f                    |NO      |		TRAP	#15
00021356 e3 82                    |        |		ASL.L	#0x1,D2
00021358 20 49                    | I      |		MOVEA.L	A1,A0
0002135a 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
0002135e c4 44                    | D      |		AND.W	D4,D2
00021360 0c 02 00 41              |   A    |		CMPI.B	#0x41,D2
00021364 66 00 00 c4              |f       |		BNE	0x2142a
00021368 24 00                    |$       |		MOVE.L	D0,D2
0002136a 5a 82                    |Z       |		ADDQ.L	#0x5,D2
0002136c b4 83                    |        |		CMP.L	D3,D2
0002136e 63 02                    |c       |		BLS	0x21372
00021370 4e 4f                    |NO      |		TRAP	#15
00021372 e3 82                    |        |		ASL.L	#0x1,D2
00021374 20 49                    | I      |		MOVEA.L	A1,A0
00021376 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
0002137a c4 44                    | D      |		AND.W	D4,D2
0002137c b4 05                    |        |		CMP.B	D5,D2
0002137e 66 00 00 aa              |f       |		BNE	0x2142a
00021382 24 00                    |$       |		MOVE.L	D0,D2
00021384 5c 82                    |\       |		ADDQ.L	#0x6,D2
00021386 b4 83                    |        |		CMP.L	D3,D2
00021388 63 02                    |c       |		BLS	0x2138c
0002138a 4e 4f                    |NO      |		TRAP	#15
0002138c e3 82                    |        |		ASL.L	#0x1,D2
0002138e 20 49                    | I      |		MOVEA.L	A1,A0
00021390 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
00021394 c4 44                    | D      |		AND.W	D4,D2
00021396 b4 05                    |        |		CMP.B	D5,D2
00021398 66 00 00 90              |f       |		BNE	0x2142a
0002139c 24 00                    |$       |		MOVE.L	D0,D2
0002139e 5e 82                    |^       |		ADDQ.L	#0x7,D2
000213a0 b4 83                    |        |		CMP.L	D3,D2
000213a2 63 02                    |c       |		BLS	0x213a6
000213a4 4e 4f                    |NO      |		TRAP	#15
000213a6 e3 82                    |        |		ASL.L	#0x1,D2
000213a8 20 49                    | I      |		MOVEA.L	A1,A0
000213aa 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
000213ae c4 44                    | D      |		AND.W	D4,D2
000213b0 0c 02 00 45              |   E    |		CMPI.B	#0x45,D2
000213b4 66 74                    |ft      |		BNE	0x2142a
000213b6 24 00                    |$       |		MOVE.L	D0,D2
000213b8 50 82                    |P       |		ADDQ.L	#0x8,D2
000213ba b4 83                    |        |		CMP.L	D3,D2
000213bc 63 02                    |c       |		BLS	0x213c0
000213be 4e 4f                    |NO      |		TRAP	#15
000213c0 e3 82                    |        |		ASL.L	#0x1,D2
000213c2 20 49                    | I      |		MOVEA.L	A1,A0
000213c4 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
000213c8 c4 44                    | D      |		AND.W	D4,D2
000213ca 0c 02 00 50              |   P    |		CMPI.B	#0x50,D2
000213ce 66 5a                    |fZ      |		BNE	0x2142a
000213d0 24 00                    |$       |		MOVE.L	D0,D2
000213d2 06 82 00 00 00 09        |        |		ADDI.L	#0x00000009,D2
000213d8 b4 83                    |        |		CMP.L	D3,D2
000213da 63 02                    |c       |		BLS	0x213de
000213dc 4e 4f                    |NO      |		TRAP	#15
000213de e3 82                    |        |		ASL.L	#0x1,D2
000213e0 20 49                    | I      |		MOVEA.L	A1,A0
000213e2 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
000213e6 c4 44                    | D      |		AND.W	D4,D2
000213e8 0c 02 00 54              |   T    |		CMPI.B	#0x54,D2
000213ec 66 3c                    |f<      |		BNE	0x2142a
000213ee 24 00                    |$       |		MOVE.L	D0,D2
000213f0 06 82 00 00 00 0a        |        |		ADDI.L	#0x0000000a,D2
000213f6 b4 83                    |        |		CMP.L	D3,D2
000213f8 63 02                    |c       |		BLS	0x213fc
000213fa 4e 4f                    |NO      |		TRAP	#15
000213fc e3 82                    |        |		ASL.L	#0x1,D2
000213fe 20 49                    | I      |		MOVEA.L	A1,A0
00021400 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
00021404 c4 44                    | D      |		AND.W	D4,D2
00021406 0c 02 00 45              |   E    |		CMPI.B	#0x45,D2
0002140a 66 1e                    |f       |		BNE	0x2142a
0002140c 06 80 00 00 00 0b        |        |		ADDI.L	#0x0000000b,D0
00021412 b0 83                    |        |		CMP.L	D3,D0
00021414 63 02                    |c       |		BLS	0x21418
00021416 4e 4f                    |NO      |		TRAP	#15
00021418 e3 80                    |        |		ASL.L	#0x1,D0
0002141a 20 49                    | I      |		MOVEA.L	A1,A0
0002141c 30 30 08 0e              |00      |		MOVE.W	(A0+D0.L+#0xe),D0
00021420 c0 44                    | D      |		AND.W	D4,D0
00021422 b0 06                    |        |		CMP.B	D6,D0
00021424 66 04                    |f       |		BNE	0x2142a
00021426 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021428 60 02                    |`       |		BRA	0x2142c
0002142a 24 81                    |$       |		MOVE.L	D1,(A2)
0002142c 60 00 fe a0              |`       |		BRA	0x212ce
00021430 1d 47 00 08              | G      |		MOVE.B	D7,(A6+0x8)
00021434 4c df 07 ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2
00021438 4e 5e                    |N^      |		UNLK	A6
0002143a 4e 75                    |Nu      |		RTS
0002143c ; --------------------------------------------------------------------------------------
0002143c ; OMSI PASCAL Function
0002143c ;    <LVAR  0x008 1(w)>
0002143c ; --------------------------------------------------------------------------------------
0002143c 4e 56 ff c8              |NV      |		LINK.W	A6,#0xffc8
00021440 bf d5                    |        |		CMPA.L	(A5),A7
00021442 62 06                    |b       |		BHI	0x2144a
00021444 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021448 4e 76                    |Nv      |		TRAPV
0002144a de fc 00 34              |   4    |		ADDA.W	#0x34,A7
0002144e 48 e7 fd e0              |H       |		MOVEM.L	A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7)
00021452 43 f9 00 02 31 9c        |C   1   |		LEA.L	0x2319c,A1
00021458 45 f9 00 02 31 a6        |E   1   |		LEA.L	0x231a6,A2
0002145e 26 3c 00 00 03 ff        |&<      |		MOVE.L	#0x3ff,D3
00021464 38 3c 00 ff              |8<      |		MOVE.W	#0xff,D4
00021468 7a 45                    |zE      |		MOVEQ.L	#0x45,D5
0002146a 42 92                    |B       |		CLR.L	(A2)
0002146c 7e 01                    |~       |		MOVEQ.L	#0x01,D7
0002146e 20 12                    |        |		MOVE.L	(A2),D0
00021470 b0 b9 00 02 39 aa        |    9   |		CMP.L	0x239aa,D0
00021476 6c 00 00 e2              |l       |		BGE	0x2155a
0002147a 4a 07                    |J       |		TST.B	D7
0002147c 67 00 00 dc              |g       |		BEQ	0x2155a
00021480 22 00                    |"       |		MOVE.L	D0,D1
00021482 52 81                    |R       |		ADDQ.L	#0x1,D1
00021484 b0 83                    |        |		CMP.L	D3,D0
00021486 63 02                    |c       |		BLS	0x2148a
00021488 4e 4f                    |NO      |		TRAP	#15
0002148a 24 00                    |$       |		MOVE.L	D0,D2
0002148c e3 82                    |        |		ASL.L	#0x1,D2
0002148e 20 49                    | I      |		MOVEA.L	A1,A0
00021490 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
00021494 c4 44                    | D      |		AND.W	D4,D2
00021496 0c 02 00 53              |   S    |		CMPI.B	#0x53,D2
0002149a 66 00 00 b8              |f       |		BNE	0x21554
0002149e b2 83                    |        |		CMP.L	D3,D1
000214a0 63 02                    |c       |		BLS	0x214a4
000214a2 4e 4f                    |NO      |		TRAP	#15
000214a4 24 01                    |$       |		MOVE.L	D1,D2
000214a6 e3 82                    |        |		ASL.L	#0x1,D2
000214a8 20 49                    | I      |		MOVEA.L	A1,A0
000214aa 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
000214ae c4 44                    | D      |		AND.W	D4,D2
000214b0 b4 05                    |        |		CMP.B	D5,D2
000214b2 66 00 00 a0              |f       |		BNE	0x21554
000214b6 24 00                    |$       |		MOVE.L	D0,D2
000214b8 54 82                    |T       |		ADDQ.L	#0x2,D2
000214ba b4 83                    |        |		CMP.L	D3,D2
000214bc 63 02                    |c       |		BLS	0x214c0
000214be 4e 4f                    |NO      |		TRAP	#15
000214c0 e3 82                    |        |		ASL.L	#0x1,D2
000214c2 20 49                    | I      |		MOVEA.L	A1,A0
000214c4 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
000214c8 c4 44                    | D      |		AND.W	D4,D2
000214ca 0c 02 00 52              |   R    |		CMPI.B	#0x52,D2
000214ce 66 00 00 84              |f       |		BNE	0x21554
000214d2 24 00                    |$       |		MOVE.L	D0,D2
000214d4 56 82                    |V       |		ADDQ.L	#0x3,D2
000214d6 b4 83                    |        |		CMP.L	D3,D2
000214d8 63 02                    |c       |		BLS	0x214dc
000214da 4e 4f                    |NO      |		TRAP	#15
000214dc e3 82                    |        |		ASL.L	#0x1,D2
000214de 20 49                    | I      |		MOVEA.L	A1,A0
000214e0 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
000214e4 c4 44                    | D      |		AND.W	D4,D2
000214e6 0c 02 00 56              |   V    |		CMPI.B	#0x56,D2
000214ea 66 68                    |fh      |		BNE	0x21554
000214ec 24 00                    |$       |		MOVE.L	D0,D2
000214ee 58 82                    |X       |		ADDQ.L	#0x4,D2
000214f0 b4 83                    |        |		CMP.L	D3,D2
000214f2 63 02                    |c       |		BLS	0x214f6
000214f4 4e 4f                    |NO      |		TRAP	#15
000214f6 e3 82                    |        |		ASL.L	#0x1,D2
000214f8 20 49                    | I      |		MOVEA.L	A1,A0
000214fa 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
000214fe c4 44                    | D      |		AND.W	D4,D2
00021500 0c 02 00 49              |   I    |		CMPI.B	#0x49,D2
00021504 66 4e                    |fN      |		BNE	0x21554
00021506 24 00                    |$       |		MOVE.L	D0,D2
00021508 5a 82                    |Z       |		ADDQ.L	#0x5,D2
0002150a b4 83                    |        |		CMP.L	D3,D2
0002150c 63 02                    |c       |		BLS	0x21510
0002150e 4e 4f                    |NO      |		TRAP	#15
00021510 e3 82                    |        |		ASL.L	#0x1,D2
00021512 20 49                    | I      |		MOVEA.L	A1,A0
00021514 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
00021518 c4 44                    | D      |		AND.W	D4,D2
0002151a 0c 02 00 43              |   C    |		CMPI.B	#0x43,D2
0002151e 66 34                    |f4      |		BNE	0x21554
00021520 24 00                    |$       |		MOVE.L	D0,D2
00021522 5c 82                    |\       |		ADDQ.L	#0x6,D2
00021524 b4 83                    |        |		CMP.L	D3,D2
00021526 63 02                    |c       |		BLS	0x2152a
00021528 4e 4f                    |NO      |		TRAP	#15
0002152a e3 82                    |        |		ASL.L	#0x1,D2
0002152c 20 49                    | I      |		MOVEA.L	A1,A0
0002152e 34 30 28 0e              |40(     |		MOVE.W	(A0+D2.L+#0xe),D2
00021532 c4 44                    | D      |		AND.W	D4,D2
00021534 b4 05                    |        |		CMP.B	D5,D2
00021536 66 1c                    |f       |		BNE	0x21554
00021538 5e 80                    |^       |		ADDQ.L	#0x7,D0
0002153a b0 83                    |        |		CMP.L	D3,D0
0002153c 63 02                    |c       |		BLS	0x21540
0002153e 4e 4f                    |NO      |		TRAP	#15
00021540 e3 80                    |        |		ASL.L	#0x1,D0
00021542 20 49                    | I      |		MOVEA.L	A1,A0
00021544 30 30 08 0e              |00      |		MOVE.W	(A0+D0.L+#0xe),D0
00021548 c0 44                    | D      |		AND.W	D4,D0
0002154a 0c 00 00 3a              |   :    |		CMPI.B	#0x3a,D0
0002154e 66 04                    |f       |		BNE	0x21554
00021550 7e 00                    |~       |		MOVEQ.L	#0x00,D7
00021552 60 02                    |`       |		BRA	0x21556
00021554 24 81                    |$       |		MOVE.L	D1,(A2)
00021556 60 00 ff 16              |`       |		BRA	0x2146e
0002155a 1d 47 00 08              | G      |		MOVE.B	D7,(A6+0x8)
0002155e 4c df 07 bf              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2
00021562 4e 5e                    |N^      |		UNLK	A6
00021564 4e 75                    |Nu      |		RTS
00021566 ; --------------------------------------------------------------------------------------
00021566 ; OMSI PASCAL Function
00021566 ;    <LVAR -0x008 @ 4(rw)>
00021566 ;    <LVAR -0x00c @ 4(rw)>
00021566 ;    <LVAR -0x014 @ 4(rw)>
00021566 ; --------------------------------------------------------------------------------------
00021566 4e 56 ff 34              |NV 4    |		LINK.W	A6,#0xff34
0002156a bf d5                    |        |		CMPA.L	(A5),A7
0002156c 62 06                    |b       |		BHI	0x21574
0002156e 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021572 4e 76                    |Nv      |		TRAPV
00021574 de fc 00 b4              |        |		ADDA.W	#0xb4,A7
00021578 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002157c 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021582 47 fa fa ee              |G       |		LEA.L	0x21072,A3
00021586 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021588 74 0c                    |t       |		MOVEQ.L	#0x0c,D2
0002158a 76 02                    |v       |		MOVEQ.L	#0x02,D3
0002158c 78 10                    |x       |		MOVEQ.L	#0x10,D4
0002158e 7a 24                    |z$      |		MOVEQ.L	#0x24,D5
00021590 42 39 00 02 31 a4        |B9  1   |		CLR.B	0x231a4
00021596 4e b9 00 01 02 16        |N       |		JSR	KC0b
0002159c 4e 93                    |N       |		JSR	(A3)
0002159e 9e c5                    |        |		SUBA.W	D5,A7
000215a0 20 4f                    | O      |		MOVEA.L	A7,A0
000215a2 43 fa ee 9a              |C       |		LEA.L	0x2043e,A1
000215a6 70 22                    |p"      |		MOVEQ.L	#0x22,D0
000215a8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000215aa 51 c8 ff fc              |Q       |		DBF	D0,0x215a8
000215ae 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
000215b0 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
000215b4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000215b6 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
000215ba 4e 92                    |N       |		JSR	(A2)
000215bc 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000215be 42 17                    |B       |		CLR.B	(A7)
000215c0 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
000215c6 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000215c8 10 1f                    |        |		MOVE.B	(A7)+,D0
000215ca 48 80                    |H       |		EXTB.W	D0
000215cc 41 81                    |A       |		CHK.W	D1,D0
000215ce de c5                    |        |		ADDA.W	D5,A7
000215d0 13 c0 00 02 31 a4        |    1   |		MOVE.B	D0,0x231a4
000215d6 9e fc 00 36              |   6    |		SUBA.W	#0x36,A7
000215da 20 4f                    | O      |		MOVEA.L	A7,A0
000215dc 43 fa ee 2a              |C  *    |		LEA.L	0x20408,A1
000215e0 70 34                    |p4      |		MOVEQ.L	#0x34,D0
000215e2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000215e4 51 c8 ff fc              |Q       |		DBF	D0,0x215e2
000215e8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000215ea 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000215ee 3f 01                    |?       |		MOVE.W	D1,-(A7)
000215f0 3f 3c 00 35              |?< 5    |		MOVE.W	#0x35,-(A7)
000215f4 4e 92                    |N       |		JSR	(A2)
000215f6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000215f8 48 78 00 02              |Hx      |		PEA.L	0x2
000215fc 48 78 00 05              |Hx      |		PEA.L	0x5
00021600 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00021606 de c2                    |        |		ADDA.W	D2,A7
00021608 2e 1f                    |.       |		MOVE.L	(A7)+,D7
0002160a de fc 00 36              |   6    |		ADDA.W	#0x36,A7
0002160e 20 07                    |        |		MOVE.L	D7,D0
00021610 55 80                    |U       |		SUBQ.L	#0x2,D0
00021612 0c 80 00 00 00 03        |        |		CMPI.L	#0x00000003,D0
00021618 63 02                    |c       |		BLS	0x2161c
0002161a 4e 4e                    |NN      |		TRAP	#14
0002161c d0 40                    | @      |		ADD.W	D0,D0
0002161e 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00021626 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x2162e
00021628 00 3c                    | <      |		.CONST	0x3c			; [0x1] -> 0x21662
0002162a 00 6e                    | n      |		.CONST	0x6e			; [0x2] -> 0x21694
0002162c 00 a0                    |        |		.CONST	0xa0			; [0x3] -> 0x216c6
0002162e					switch@0x2161e[0x0]:
0002162e 3f 3a ee 9a              |?:      |		MOVE.W	0x204ca,-(A7)
00021632 3f 3a ee 94              |?:      |		MOVE.W	0x204c8,-(A7)
00021636 3f 3a ee 8e              |?:      |		MOVE.W	0x204c6,-(A7)
0002163a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002163c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021640 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021642 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00021646 4e 92                    |N       |		JSR	(A2)
00021648 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002164a 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
0002164e 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021650 20 4f                    | O      |		MOVEA.L	A7,A0
00021652 43 fa ee 78              |C  x    |		LEA.L	0x204cc,A1
00021656 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021658 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002165a 51 c8 ff fc              |Q       |		DBF	D0,0x21658
0002165e 60 00 00 96              |`       |		BRA	0x216f6
00021662					switch@0x2161e[0x1]:
00021662 3f 3a ee 74              |?: t    |		MOVE.W	0x204d8,-(A7)
00021666 3f 3a ee 6e              |?: n    |		MOVE.W	0x204d6,-(A7)
0002166a 3f 3a ee 68              |?: h    |		MOVE.W	0x204d4,-(A7)
0002166e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021670 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021674 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021676 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
0002167a 4e 92                    |N       |		JSR	(A2)
0002167c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002167e 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
00021682 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021684 20 4f                    | O      |		MOVEA.L	A7,A0
00021686 43 fa ee 52              |C  R    |		LEA.L	0x204da,A1
0002168a 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002168c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002168e 51 c8 ff fc              |Q       |		DBF	D0,0x2168c
00021692 60 62                    |`b      |		BRA	0x216f6
00021694					switch@0x2161e[0x2]:
00021694 3f 3a ee 50              |?: P    |		MOVE.W	0x204e6,-(A7)
00021698 3f 3a ee 4a              |?: J    |		MOVE.W	0x204e4,-(A7)
0002169c 3f 3a ee 44              |?: D    |		MOVE.W	0x204e2,-(A7)
000216a0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000216a2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000216a6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000216a8 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
000216ac 4e 92                    |N       |		JSR	(A2)
000216ae 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216b0 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
000216b4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000216b6 20 4f                    | O      |		MOVEA.L	A7,A0
000216b8 43 fa ee 2e              |C  .    |		LEA.L	0x204e8,A1
000216bc 70 06                    |p       |		MOVEQ.L	#0x06,D0
000216be 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000216c0 51 c8 ff fc              |Q       |		DBF	D0,0x216be
000216c4 60 30                    |`0      |		BRA	0x216f6
000216c6					switch@0x2161e[0x3]:
000216c6 3f 3a ee 2c              |?: ,    |		MOVE.W	0x204f4,-(A7)
000216ca 3f 3a ee 26              |?: &    |		MOVE.W	0x204f2,-(A7)
000216ce 3f 3a ee 20              |?:      |		MOVE.W	0x204f0,-(A7)
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 06              |?<      |		MOVE.W	#0x6,-(A7)
000216de 4e 92                    |N       |		JSR	(A2)
000216e0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000216e2 2d 5f ff f4              |-_      |		MOVE.L	(A7)+,(A6-0xc)
000216e6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000216e8 20 4f                    | O      |		MOVEA.L	A7,A0
000216ea 43 fa ee 0a              |C       |		LEA.L	0x204f6,A1
000216ee 70 06                    |p       |		MOVEQ.L	#0x06,D0
000216f0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000216f2 51 c8 ff fc              |Q       |		DBF	D0,0x216f0
000216f6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000216f8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000216fc 3f 01                    |?       |		MOVE.W	D1,-(A7)
000216fe 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00021702 4e 92                    |N       |		JSR	(A2)
00021704 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021706 2d 5f ff f8              |-_      |		MOVE.L	(A7)+,(A6-0x8)
0002170a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002170c 9e fc 00 3e              |   >    |		SUBA.W	#0x3e,A7
00021710 20 4f                    | O      |		MOVEA.L	A7,A0
00021712 43 fa ed 4e              |C  N    |		LEA.L	0x20462,A1
00021716 70 3c                    |p<      |		MOVEQ.L	#0x3c,D0
00021718 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002171a 51 c8 ff fc              |Q       |		DBF	D0,0x21718
0002171e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021720 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021724 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021726 3f 3c 00 3d              |?< =    |		MOVE.W	#0x3d,-(A7)
0002172a 4e 92                    |N       |		JSR	(A2)
0002172c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002172e 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00021734 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021736 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021738 de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
0002173c 4a 54                    |JT      |		TST.W	(A4)
0002173e 67 cc                    |g       |		BEQ	0x2170c
00021740 41 fa ed 84              |A       |		LEA.L	0x204c6,A0
00021744 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021746 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021748 51 c8 ff fc              |Q       |		DBF	D0,0x21746
0002174c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002174e 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021752 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021754 3f 3c 00 26              |?< &    |		MOVE.W	#0x26,-(A7)
00021758 4e 92                    |N       |		JSR	(A2)
0002175a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002175c 48 78 00 40              |Hx @    |		PEA.L	0x40
00021760 48 78 01 00              |Hx      |		PEA.L	0x100
00021764 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
0002176a de c2                    |        |		ADDA.W	D2,A7
0002176c 2c 1f                    |,       |		MOVE.L	(A7)+,D6
0002176e de c5                    |        |		ADDA.W	D5,A7
00021770 3e 83                    |>       |		MOVE.W	D3,(A7)
00021772 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021774 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
0002177a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002177c 4e 93                    |N       |		JSR	(A3)
0002177e 4a b9 00 02 39 aa        |J   9   |		TST.L	0x239aa
00021784 66 76                    |fv      |		BNE	0x217fc
00021786 3f 03                    |?       |		MOVE.W	D3,-(A7)
00021788 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
0002178c 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00021792 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00021794 3e 83                    |>       |		MOVE.W	D3,(A7)
00021796 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
0002179a 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
000217a0 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000217a2 3e 83                    |>       |		MOVE.W	D3,(A7)
000217a4 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
000217a8 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
000217ae 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000217b0 3e 83                    |>       |		MOVE.W	D3,(A7)
000217b2 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
000217b6 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
000217bc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000217be 4e 93                    |N       |		JSR	(A3)
000217c0 4a b9 00 02 39 aa        |J   9   |		TST.L	0x239aa
000217c6 66 34                    |f4      |		BNE	0x217fc
000217c8 41 fa ea b4              |A       |		LEA.L	0x2027e,A0
000217cc 70 0b                    |p       |		MOVEQ.L	#0x0b,D0
000217ce 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000217d0 51 c8 ff fc              |Q       |		DBF	D0,0x217ce
000217d4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000217d6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000217da 3f 01                    |?       |		MOVE.W	D1,-(A7)
000217dc 3f 3c 00 30              |?< 0    |		MOVE.W	#0x30,-(A7)
000217e0 4e 92                    |N       |		JSR	(A2)
000217e2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000217e4 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000217ea de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000217ee 1e 83                    |        |		MOVE.B	D3,(A7)
000217f0 48 78 00 01              |Hx      |		PEA.L	0x1
000217f4 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000217fa 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000217fc 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
00021800 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021806 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021808 20 4f                    | O      |		MOVEA.L	A7,A0
0002180a 43 fa ec f2              |C       |		LEA.L	0x204fe,A1
0002180e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021810 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021812 51 c8 ff fc              |Q       |		DBF	D0,0x21810
00021816 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
0002181a 20 4f                    | O      |		MOVEA.L	A7,A0
0002181c 43 fa ec ea              |C       |		LEA.L	0x20508,A1
00021820 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021822 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021824 51 c8 ff fc              |Q       |		DBF	D0,0x21822
00021828 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002182a 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
0002182e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021830 48 6f 00 16              |Ho      |		PEA.L	(A7+0x16)
00021834 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021836 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
0002183a 4e 92                    |N       |		JSR	(A2)
0002183c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002183e 2e 8c                    |.       |		MOVE.L	A4,(A7)
00021840 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021842 2f 2e ff f8              |/.      |		MOVE.L	(A6-0x8),-(A7)
00021846 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
0002184c 2f 2e ff f4              |/.      |		MOVE.L	(A6-0xc),-(A7)
00021850 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00021856 48 6f 00 20              |Ho      |		PEA.L	(A7+0x20)
0002185a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002185c 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00021860 4e 92                    |N       |		JSR	(A2)
00021862 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021864 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
0002186a de c2                    |        |		ADDA.W	D2,A7
0002186c 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00021872 de c4                    |        |		ADDA.W	D4,A7
00021874 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00021878 de c4                    |        |		ADDA.W	D4,A7
0002187a 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
0002187e 4e ba f7 74              |N  t    |		JSR	0x20ff4
00021882 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021884 4e 93                    |N       |		JSR	(A3)
00021886 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021888 4e ba fa 10              |N       |		JSR	0x2129a
0002188c 4a 1f                    |J       |		TST.B	(A7)+
0002188e 67 56                    |gV      |		BEQ	0x218e6
00021890 9e fc 00 40              |   @    |		SUBA.W	#0x40,A7
00021894 20 4f                    | O      |		MOVEA.L	A7,A0
00021896 43 fa e9 e6              |C       |		LEA.L	0x2027e,A1
0002189a 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
0002189c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002189e 51 c8 ff fc              |Q       |		DBF	D0,0x2189c
000218a2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000218a4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000218a8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000218aa 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
000218ae 4e 92                    |N       |		JSR	(A2)
000218b0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000218b2 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000218b8 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
000218bc 41 fa ea 42              |A  B    |		LEA.L	0x20300,A0
000218c0 70 20                    |p       |		MOVEQ.L	#0x20,D0
000218c2 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000218c4 51 c8 ff fc              |Q       |		DBF	D0,0x218c2
000218c8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000218ca 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000218ce 3f 01                    |?       |		MOVE.W	D1,-(A7)
000218d0 3f 3c 00 42              |?< B    |		MOVE.W	#0x42,-(A7)
000218d4 4e 92                    |N       |		JSR	(A2)
000218d6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000218d8 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000218de de fc 00 46              |   F    |		ADDA.W	#0x46,A7
000218e2 60 00 04 ea              |`       |		BRA	0x21dce
000218e6 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
000218ea 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000218f0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000218f2 41 fa ec 2c              |A  ,    |		LEA.L	0x20520,A0
000218f6 70 06                    |p       |		MOVEQ.L	#0x06,D0
000218f8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000218fa 51 c8 ff fc              |Q       |		DBF	D0,0x218f8
000218fe 2f 3a ec 20              |/:      |		MOVE.L	0x20520,-(A7)
00021902 41 fa ec 34              |A  4    |		LEA.L	0x20538,A0
00021906 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021908 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002190a 51 c8 ff fc              |Q       |		DBF	D0,0x21908
0002190e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021910 48 6f 00 20              |Ho      |		PEA.L	(A7+0x20)
00021914 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021916 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
0002191a 4e 92                    |N       |		JSR	(A2)
0002191c 2e 86                    |.       |		MOVE.L	D6,(A7)
0002191e 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021924 48 6f 00 24              |Ho $    |		PEA.L	(A7+0x24)
00021928 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002192a 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
0002192e 4e 92                    |N       |		JSR	(A2)
00021930 2e 86                    |.       |		MOVE.L	D6,(A7)
00021932 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00021938 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
0002193c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002193e 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021942 4e 92                    |N       |		JSR	(A2)
00021944 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021946 4e b9 00 01 02 dc        |N       |		JSR	StringCat5(a, b, c, d, e : String) : String
0002194c de fc 00 14              |        |		ADDA.W	#0x14,A7
00021950 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00021954 de fc 00 22              |   "    |		ADDA.W	#0x22,A7
00021958 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
0002195c 4e ba f6 96              |N       |		JSR	0x20ff4
00021960 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021962 4e 93                    |N       |		JSR	(A3)
00021964 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021966 4e ba f9 32              |N  2    |		JSR	0x2129a
0002196a 4a 1f                    |J       |		TST.B	(A7)+
0002196c 67 30                    |g0      |		BEQ	0x2199e
0002196e 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00021972 20 4f                    | O      |		MOVEA.L	A7,A0
00021974 43 fa e9 8a              |C       |		LEA.L	0x20300,A1
00021978 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002197a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002197c 51 c8 ff fc              |Q       |		DBF	D0,0x2197a
00021980 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021982 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021986 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021988 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
0002198c 4e 92                    |N       |		JSR	(A2)
0002198e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021990 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021996 de fc 00 12              |        |		ADDA.W	#0x12,A7
0002199a 60 00 03 bc              |`       |		BRA	0x21d58
0002199e 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
000219a2 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000219a8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000219aa 41 fa eb a4              |A       |		LEA.L	0x20550,A0
000219ae 70 05                    |p       |		MOVEQ.L	#0x05,D0
000219b0 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000219b2 51 c8 ff fc              |Q       |		DBF	D0,0x219b0
000219b6 9e c2                    |        |		SUBA.W	D2,A7
000219b8 20 4f                    | O      |		MOVEA.L	A7,A0
000219ba 43 fa eb 94              |C       |		LEA.L	0x20550,A1
000219be 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000219c0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000219c2 51 c8 ff fc              |Q       |		DBF	D0,0x219c0
000219c6 9e fc 00 14              |        |		SUBA.W	#0x14,A7
000219ca 20 4f                    | O      |		MOVEA.L	A7,A0
000219cc 43 fa eb 8e              |C       |		LEA.L	0x2055c,A1
000219d0 70 12                    |p       |		MOVEQ.L	#0x12,D0
000219d2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000219d4 51 c8 ff fc              |Q       |		DBF	D0,0x219d2
000219d8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000219da 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
000219de 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000219e0 48 6f 00 2c              |Ho ,    |		PEA.L	(A7+0x2c)
000219e4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000219e6 3f 3c 00 18              |?<      |		MOVE.W	#0x18,-(A7)
000219ea 4e 92                    |N       |		JSR	(A2)
000219ec 2e 86                    |.       |		MOVE.L	D6,(A7)
000219ee 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
000219f4 48 6f 00 28              |Ho (    |		PEA.L	(A7+0x28)
000219f8 3f 01                    |?       |		MOVE.W	D1,-(A7)
000219fa 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
000219fe 4e 92                    |N       |		JSR	(A2)
00021a00 2e ae ff f4              |.       |		MOVE.L	(A6-0xc),(A7)
00021a04 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00021a0a 48 6f 00 1c              |Ho      |		PEA.L	(A7+0x1c)
00021a0e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a10 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00021a14 4e 92                    |N       |		JSR	(A2)
00021a16 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021a18 4e b9 00 01 02 e0        |N       |		JSR	StringCat6(a, b, c, d, e, f : String) : String
00021a1e de fc 00 18              |        |		ADDA.W	#0x18,A7
00021a22 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00021a26 de fc 00 34              |   4    |		ADDA.W	#0x34,A7
00021a2a 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
00021a2e 4e ba f5 c4              |N       |		JSR	0x20ff4
00021a32 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a34 4e 93                    |N       |		JSR	(A3)
00021a36 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021a38 4e ba f8 60              |N  `    |		JSR	0x2129a
00021a3c 4a 1f                    |J       |		TST.B	(A7)+
00021a3e 67 16                    |g       |		BEQ	0x21a56
00021a40 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00021a44 20 4f                    | O      |		MOVEA.L	A7,A0
00021a46 43 fa e9 62              |C  b    |		LEA.L	0x203aa,A1
00021a4a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021a4c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021a4e 51 c8 ff fc              |Q       |		DBF	D0,0x21a4c
00021a52 60 00 ff 2c              |`  ,    |		BRA	0x21980
00021a56 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
00021a5a 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021a60 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021a62 41 fa eb 16              |A       |		LEA.L	0x2057a,A0
00021a66 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021a68 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021a6a 51 c8 ff fc              |Q       |		DBF	D0,0x21a68
00021a6e 41 fa eb 2a              |A  *    |		LEA.L	0x2059a,A0
00021a72 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021a74 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021a76 51 c8 ff fc              |Q       |		DBF	D0,0x21a74
00021a7a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a7c 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00021a80 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021a82 48 6f 00 2c              |Ho ,    |		PEA.L	(A7+0x2c)
00021a86 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a88 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00021a8c 4e 92                    |N       |		JSR	(A2)
00021a8e 2e ae ff f4              |.       |		MOVE.L	(A6-0xc),(A7)
00021a92 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00021a98 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00021a9c 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021a9e 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00021aa2 4e 92                    |N       |		JSR	(A2)
00021aa4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021aa6 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00021aac de c4                    |        |		ADDA.W	D4,A7
00021aae 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00021ab2 de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00021ab6 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
00021aba 4e ba f5 38              |N  8    |		JSR	0x20ff4
00021abe 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ac0 4e 93                    |N       |		JSR	(A3)
00021ac2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021ac4 4e ba f7 d4              |N       |		JSR	0x2129a
00021ac8 4a 1f                    |J       |		TST.B	(A7)+
00021aca 67 16                    |g       |		BEQ	0x21ae2
00021acc 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00021ad0 20 4f                    | O      |		MOVEA.L	A7,A0
00021ad2 43 fa e8 e4              |C       |		LEA.L	0x203b8,A1
00021ad6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021ad8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021ada 51 c8 ff fc              |Q       |		DBF	D0,0x21ad8
00021ade 60 00 fe a0              |`       |		BRA	0x21980
00021ae2 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
00021ae6 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021aec 9e c2                    |        |		SUBA.W	D2,A7
00021aee 20 4f                    | O      |		MOVEA.L	A7,A0
00021af0 43 fa ea a8              |C       |		LEA.L	0x2059a,A1
00021af4 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021af6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021af8 51 c8 ff fc              |Q       |		DBF	D0,0x21af6
00021afc 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00021b00 20 4f                    | O      |		MOVEA.L	A7,A0
00021b02 43 fa ea a6              |C       |		LEA.L	0x205aa,A1
00021b06 70 08                    |p       |		MOVEQ.L	#0x08,D0
00021b08 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021b0a 51 c8 ff fc              |Q       |		DBF	D0,0x21b08
00021b0e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b10 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00021b14 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021b16 48 6f 00 16              |Ho      |		PEA.L	(A7+0x16)
00021b1a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b1c 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00021b20 4e 92                    |N       |		JSR	(A2)
00021b22 2e ae ff f4              |.       |		MOVE.L	(A6-0xc),(A7)
00021b26 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00021b2c 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00021b30 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021b32 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00021b36 4e 92                    |N       |		JSR	(A2)
00021b38 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021b3a 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00021b40 de c4                    |        |		ADDA.W	D4,A7
00021b42 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00021b46 de fc 00 16              |        |		ADDA.W	#0x16,A7
00021b4a 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
00021b4e 4e ba f4 a4              |N       |		JSR	0x20ff4
00021b52 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021b54 4e 93                    |N       |		JSR	(A3)
00021b56 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021b58 4e ba f7 40              |N  @    |		JSR	0x2129a
00021b5c 4a 1f                    |J       |		TST.B	(A7)+
00021b5e 67 16                    |g       |		BEQ	0x21b76
00021b60 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00021b64 20 4f                    | O      |		MOVEA.L	A7,A0
00021b66 43 fa e8 5e              |C  ^    |		LEA.L	0x203c6,A1
00021b6a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021b6c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021b6e 51 c8 ff fc              |Q       |		DBF	D0,0x21b6c
00021b72 60 00 fe 0c              |`       |		BRA	0x21980
00021b76 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
00021b7a 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021b80 9e fc 00 2c              |   ,    |		SUBA.W	#0x2c,A7
00021b84 20 4f                    | O      |		MOVEA.L	A7,A0
00021b86 43 fa ea 2c              |C  ,    |		LEA.L	0x205b4,A1
00021b8a 70 2e                    |p.      |		MOVEQ.L	#0x2e,D0
00021b8c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021b8e 51 c8 ff fc              |Q       |		DBF	D0,0x21b8c
00021b92 41 fa ea 7a              |A  z    |		LEA.L	0x2060e,A0
00021b96 70 14                    |p       |		MOVEQ.L	#0x14,D0
00021b98 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021b9a 51 c8 ff fc              |Q       |		DBF	D0,0x21b98
00021b9e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ba0 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00021ba4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ba6 48 6f 00 36              |Ho 6    |		PEA.L	(A7+0x36)
00021baa 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021bac 3f 3c 00 2f              |?< /    |		MOVE.W	#0x2f,-(A7)
00021bb0 4e 92                    |N       |		JSR	(A2)
00021bb2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021bb4 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00021bb8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021bba 3f 3c 00 2a              |?< *    |		MOVE.W	#0x2a,-(A7)
00021bbe 4e 92                    |N       |		JSR	(A2)
00021bc0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021bc2 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00021bc8 de c2                    |        |		ADDA.W	D2,A7
00021bca 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00021bce de fc 00 56              |   V    |		ADDA.W	#0x56,A7
00021bd2 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
00021bd6 4e ba f4 1c              |N       |		JSR	0x20ff4
00021bda 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021bdc 4e 93                    |N       |		JSR	(A3)
00021bde 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021be0 4e ba f6 b8              |N       |		JSR	0x2129a
00021be4 4a 1f                    |J       |		TST.B	(A7)+
00021be6 67 30                    |g0      |		BEQ	0x21c18
00021be8 9e fc 00 14              |        |		SUBA.W	#0x14,A7
00021bec 20 4f                    | O      |		MOVEA.L	A7,A0
00021bee 43 fa e7 e4              |C       |		LEA.L	0x203d4,A1
00021bf2 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021bf4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021bf6 51 c8 ff fc              |Q       |		DBF	D0,0x21bf4
00021bfa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021bfc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021c00 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c02 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
00021c06 4e 92                    |N       |		JSR	(A2)
00021c08 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c0a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021c10 de fc 00 18              |        |		ADDA.W	#0x18,A7
00021c14 60 00 01 42              |`  B    |		BRA	0x21d58
00021c18 48 6e ff ec              |Hn      |		PEA.L	(A6-0x14)
00021c1c 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00021c22 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021c24 41 fa ea 1a              |A       |		LEA.L	0x20640,A0
00021c28 70 18                    |p       |		MOVEQ.L	#0x18,D0
00021c2a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021c2c 51 c8 ff fc              |Q       |		DBF	D0,0x21c2a
00021c30 41 fa ea 40              |A  @    |		LEA.L	0x20672,A0
00021c34 70 18                    |p       |		MOVEQ.L	#0x18,D0
00021c36 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021c38 51 c8 ff fc              |Q       |		DBF	D0,0x21c36
00021c3c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c3e 2f 2e ff ec              |/.      |		MOVE.L	(A6-0x14),-(A7)
00021c42 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c44 48 6f 00 3e              |Ho >    |		PEA.L	(A7+0x3e)
00021c48 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c4a 3f 3c 00 32              |?< 2    |		MOVE.W	#0x32,-(A7)
00021c4e 4e 92                    |N       |		JSR	(A2)
00021c50 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021c52 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00021c56 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c58 3f 3c 00 32              |?< 2    |		MOVE.W	#0x32,-(A7)
00021c5c 4e 92                    |N       |		JSR	(A2)
00021c5e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021c60 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00021c66 de c2                    |        |		ADDA.W	D2,A7
00021c68 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00021c6c de fc 00 60              |   `    |		ADDA.W	#0x60,A7
00021c70 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
00021c74 4e ba f3 7e              |N  ~    |		JSR	0x20ff4
00021c78 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021c7a 4e 93                    |N       |		JSR	(A3)
00021c7c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021c7e 4e ba f6 1a              |N       |		JSR	0x2129a
00021c82 4a 1f                    |J       |		TST.B	(A7)+
00021c84 67 1c                    |g       |		BEQ	0x21ca2
00021c86 41 fa e7 74              |A  t    |		LEA.L	0x203fc,A0
00021c8a 70 04                    |p       |		MOVEQ.L	#0x04,D0
00021c8c 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021c8e 51 c8 ff fc              |Q       |		DBF	D0,0x21c8c
00021c92 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021c94 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021c98 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021c9a 3f 3c 00 14              |?<      |		MOVE.W	#0x14,-(A7)
00021c9e 60 00 ff 66              |`  f    |		BRA	0x21c06
00021ca2 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00021ca6 20 4f                    | O      |		MOVEA.L	A7,A0
00021ca8 43 fa e9 c8              |C       |		LEA.L	0x20672,A1
00021cac 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00021cae 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021cb0 51 c8 ff fc              |Q       |		DBF	D0,0x21cae
00021cb4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021cb6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021cba 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021cbc 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00021cc0 4e 92                    |N       |		JSR	(A2)
00021cc2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021cc4 2d 5f ff ec              |-_      |		MOVE.L	(A7)+,(A6-0x14)
00021cc8 de fc 00 0a              |        |		ADDA.W	#0xa,A7
00021ccc 2e ae ff ec              |.       |		MOVE.L	(A6-0x14),(A7)
00021cd0 4e ba f3 22              |N  "    |		JSR	0x20ff4
00021cd4 2e bc 00 02 fa ee        |.       |		MOVE.L	#0x2faee,(A7)
00021cda 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
00021ce0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ce2 4e 93                    |N       |		JSR	(A3)
00021ce4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021ce6 4e ba f7 54              |N  T    |		JSR	0x2143c
00021cea 4a 1f                    |J       |		TST.B	(A7)+
00021cec 67 2a                    |g*      |		BEQ	0x21d18
00021cee 9e c2                    |        |		SUBA.W	D2,A7
00021cf0 20 4f                    | O      |		MOVEA.L	A7,A0
00021cf2 43 fa e7 08              |C       |		LEA.L	0x203fc,A1
00021cf6 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00021cf8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021cfa 51 c8 ff fc              |Q       |		DBF	D0,0x21cf8
00021cfe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d00 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021d04 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021d06 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00021d0a 4e 92                    |N       |		JSR	(A2)
00021d0c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d0e 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021d14 de c4                    |        |		ADDA.W	D4,A7
00021d16 60 40                    |`@      |		BRA	0x21d58
00021d18 41 fa e9 82              |A       |		LEA.L	0x2069c,A0
00021d1c 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021d1e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021d20 51 c8 ff fc              |Q       |		DBF	D0,0x21d1e
00021d24 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d26 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021d2a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021d2c 3f 3c 00 1c              |?<      |		MOVE.W	#0x1c,-(A7)
00021d30 4e 92                    |N       |		JSR	(A2)
00021d32 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d34 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021d3a de fc 00 20              |        |		ADDA.W	#0x20,A7
00021d3e 48 6e ff f4              |Hn      |		PEA.L	(A6-0xc)
00021d42 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021d48 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021d4a 48 6e ff f8              |Hn      |		PEA.L	(A6-0x8)
00021d4e 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00021d54 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021d56 60 76                    |`v      |		BRA	0x21dce
00021d58 9e fc 00 40              |   @    |		SUBA.W	#0x40,A7
00021d5c 20 4f                    | O      |		MOVEA.L	A7,A0
00021d5e 43 fa e5 ae              |C       |		LEA.L	0x2030e,A1
00021d62 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
00021d64 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021d66 51 c8 ff fc              |Q       |		DBF	D0,0x21d64
00021d6a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d6c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021d70 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021d72 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
00021d76 4e 92                    |N       |		JSR	(A2)
00021d78 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021d7a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021d80 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
00021d84 41 fa e6 04              |A       |		LEA.L	0x2038a,A0
00021d88 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00021d8a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021d8c 51 c8 ff fc              |Q       |		DBF	D0,0x21d8a
00021d90 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021d92 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021d96 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021d98 3f 3c 00 3c              |?< <    |		MOVE.W	#0x3c,-(A7)
00021d9c 4e 92                    |N       |		JSR	(A2)
00021d9e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021da0 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021da6 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00021daa 41 fa e5 fe              |A       |		LEA.L	0x203aa,A0
00021dae 70 07                    |p       |		MOVEQ.L	#0x07,D0
00021db0 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00021db2 51 c8 ff fc              |Q       |		DBF	D0,0x21db0
00021db6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021db8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021dbc 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021dbe 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00021dc2 4e 92                    |N       |		JSR	(A2)
00021dc4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021dc6 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00021dcc de c5                    |        |		ADDA.W	D5,A7
00021dce 4e ba f1 fa              |N       |		JSR	0x20fca
00021dd2 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021dd6 4e 5e                    |N^      |		UNLK	A6
00021dd8 4e 75                    |Nu      |		RTS
00021dda ; --------------------------------------------------------------------------------------
00021dda ; OMSI PASCAL Function
00021dda ;    <LVAR  0x008 1(r)>
00021dda ;    <LVAR -0x00a @ 4(rw)>
00021dda ;    <LVAR -0x00e @ 4(rw)>
00021dda ;    <LVAR -0x016 @ 4(rw)>
00021dda ; --------------------------------------------------------------------------------------
00021dda 4e 56 ff 58              |NV X    |		LINK.W	A6,#0xff58
00021dde bf d5                    |        |		CMPA.L	(A5),A7
00021de0 62 06                    |b       |		BHI	0x21de8
00021de2 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00021de6 4e 76                    |Nv      |		TRAPV
00021de8 de fc 00 8e              |        |		ADDA.W	#0x8e,A7
00021dec 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021df0 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021df6 47 fa f2 7a              |G  z    |		LEA.L	0x21072,A3
00021dfa 72 01                    |r       |		MOVEQ.L	#0x01,D1
00021dfc 74 0e                    |t       |		MOVEQ.L	#0x0e,D2
00021dfe 76 24                    |v$      |		MOVEQ.L	#0x24,D3
00021e00 78 02                    |x       |		MOVEQ.L	#0x02,D4
00021e02 7a 0c                    |z       |		MOVEQ.L	#0x0c,D5
00021e04 42 39 00 02 31 a4        |B9  1   |		CLR.B	0x231a4
00021e0a 4e b9 00 01 02 16        |N       |		JSR	KC0b
00021e10 4e 93                    |N       |		JSR	(A3)
00021e12 9e c3                    |        |		SUBA.W	D3,A7
00021e14 20 4f                    | O      |		MOVEA.L	A7,A0
00021e16 43 fa ea 4a              |C  J    |		LEA.L	0x20862,A1
00021e1a 70 22                    |p"      |		MOVEQ.L	#0x22,D0
00021e1c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021e1e 51 c8 ff fc              |Q       |		DBF	D0,0x21e1c
00021e22 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00021e24 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00021e28 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021e2a 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
00021e2e 4e 92                    |N       |		JSR	(A2)
00021e30 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021e32 42 17                    |B       |		CLR.B	(A7)
00021e34 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00021e3a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00021e3c 10 1f                    |        |		MOVE.B	(A7)+,D0
00021e3e 48 80                    |H       |		EXTB.W	D0
00021e40 41 81                    |A       |		CHK.W	D1,D0
00021e42 de c3                    |        |		ADDA.W	D3,A7
00021e44 13 c0 00 02 31 a4        |    1   |		MOVE.B	D0,0x231a4
00021e4a 9e fc 00 36              |   6    |		SUBA.W	#0x36,A7
00021e4e 20 4f                    | O      |		MOVEA.L	A7,A0
00021e50 43 fa e9 da              |C       |		LEA.L	0x2082c,A1
00021e54 70 34                    |p4      |		MOVEQ.L	#0x34,D0
00021e56 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021e58 51 c8 ff fc              |Q       |		DBF	D0,0x21e56
00021e5c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021e5e 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021e62 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021e64 3f 3c 00 35              |?< 5    |		MOVE.W	#0x35,-(A7)
00021e68 4e 92                    |N       |		JSR	(A2)
00021e6a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021e6c 48 78 00 02              |Hx      |		PEA.L	0x2
00021e70 48 78 00 05              |Hx      |		PEA.L	0x5
00021e74 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00021e7a de c5                    |        |		ADDA.W	D5,A7
00021e7c 2e 1f                    |.       |		MOVE.L	(A7)+,D7
00021e7e de fc 00 36              |   6    |		ADDA.W	#0x36,A7
00021e82 20 07                    |        |		MOVE.L	D7,D0
00021e84 55 80                    |U       |		SUBQ.L	#0x2,D0
00021e86 0c 80 00 00 00 03        |        |		CMPI.L	#0x00000003,D0
00021e8c 63 02                    |c       |		BLS	0x21e90
00021e8e 4e 4e                    |NN      |		TRAP	#14
00021e90 d0 40                    | @      |		ADD.W	D0,D0
00021e92 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00021e9a 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x21ea2
00021e9c 00 3c                    | <      |		.CONST	0x3c			; [0x1] -> 0x21ed6
00021e9e 00 6e                    | n      |		.CONST	0x6e			; [0x2] -> 0x21f08
00021ea0 00 a0                    |        |		.CONST	0xa0			; [0x3] -> 0x21f3a
00021ea2					switch@0x21e92[0x0]:
00021ea2 3f 3a ea 52              |?: R    |		MOVE.W	0x208f6,-(A7)
00021ea6 3f 3a ea 4c              |?: L    |		MOVE.W	0x208f4,-(A7)
00021eaa 3f 3a ea 46              |?: F    |		MOVE.W	0x208f2,-(A7)
00021eae 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021eb0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021eb4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021eb6 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00021eba 4e 92                    |N       |		JSR	(A2)
00021ebc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ebe 2d 5f ff f2              |-_      |		MOVE.L	(A7)+,(A6-0xe)
00021ec2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021ec4 20 4f                    | O      |		MOVEA.L	A7,A0
00021ec6 43 fa ea 30              |C  0    |		LEA.L	0x208f8,A1
00021eca 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021ecc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021ece 51 c8 ff fc              |Q       |		DBF	D0,0x21ecc
00021ed2 60 00 00 96              |`       |		BRA	0x21f6a
00021ed6					switch@0x21e92[0x1]:
00021ed6 3f 3a ea 2c              |?: ,    |		MOVE.W	0x20904,-(A7)
00021eda 3f 3a ea 26              |?: &    |		MOVE.W	0x20902,-(A7)
00021ede 3f 3a ea 20              |?:      |		MOVE.W	0x20900,-(A7)
00021ee2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021ee4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021ee8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021eea 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00021eee 4e 92                    |N       |		JSR	(A2)
00021ef0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021ef2 2d 5f ff f2              |-_      |		MOVE.L	(A7)+,(A6-0xe)
00021ef6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021ef8 20 4f                    | O      |		MOVEA.L	A7,A0
00021efa 43 fa ea 0a              |C       |		LEA.L	0x20906,A1
00021efe 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021f00 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f02 51 c8 ff fc              |Q       |		DBF	D0,0x21f00
00021f06 60 62                    |`b      |		BRA	0x21f6a
00021f08					switch@0x21e92[0x2]:
00021f08 3f 3a ea 08              |?:      |		MOVE.W	0x20912,-(A7)
00021f0c 3f 3a ea 02              |?:      |		MOVE.W	0x20910,-(A7)
00021f10 3f 3a e9 fc              |?:      |		MOVE.W	0x2090e,-(A7)
00021f14 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f16 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f1a 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f1c 3f 3c 00 06              |?<      |		MOVE.W	#0x6,-(A7)
00021f20 4e 92                    |N       |		JSR	(A2)
00021f22 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f24 2d 5f ff f2              |-_      |		MOVE.L	(A7)+,(A6-0xe)
00021f28 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021f2a 20 4f                    | O      |		MOVEA.L	A7,A0
00021f2c 43 fa e9 e6              |C       |		LEA.L	0x20914,A1
00021f30 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021f32 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f34 51 c8 ff fc              |Q       |		DBF	D0,0x21f32
00021f38 60 30                    |`0      |		BRA	0x21f6a
00021f3a					switch@0x21e92[0x3]:
00021f3a 3f 3a e9 e4              |?:      |		MOVE.W	0x20920,-(A7)
00021f3e 3f 3a e9 de              |?:      |		MOVE.W	0x2091e,-(A7)
00021f42 3f 3a e9 d8              |?:      |		MOVE.W	0x2091c,-(A7)
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 06              |?<      |		MOVE.W	#0x6,-(A7)
00021f52 4e 92                    |N       |		JSR	(A2)
00021f54 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f56 2d 5f ff f2              |-_      |		MOVE.L	(A7)+,(A6-0xe)
00021f5a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00021f5c 20 4f                    | O      |		MOVEA.L	A7,A0
00021f5e 43 fa e9 c2              |C       |		LEA.L	0x20922,A1
00021f62 70 06                    |p       |		MOVEQ.L	#0x06,D0
00021f64 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f66 51 c8 ff fc              |Q       |		DBF	D0,0x21f64
00021f6a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00021f6c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00021f70 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f72 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00021f76 4e 92                    |N       |		JSR	(A2)
00021f78 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f7a 2d 5f ff f6              |-_      |		MOVE.L	(A7)+,(A6-0xa)
00021f7e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021f80 9e fc 00 46              |   F    |		SUBA.W	#0x46,A7
00021f84 20 4f                    | O      |		MOVEA.L	A7,A0
00021f86 43 fa e8 fe              |C       |		LEA.L	0x20886,A1
00021f8a 70 44                    |pD      |		MOVEQ.L	#0x44,D0
00021f8c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00021f8e 51 c8 ff fc              |Q       |		DBF	D0,0x21f8c
00021f92 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021f94 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021f98 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021f9a 3f 3c 00 45              |?< E    |		MOVE.W	#0x45,-(A7)
00021f9e 4e 92                    |N       |		JSR	(A2)
00021fa0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fa2 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
00021fa8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021faa 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00021fac de fc 00 46              |   F    |		ADDA.W	#0x46,A7
00021fb0 4a 54                    |JT      |		TST.W	(A4)
00021fb2 67 cc                    |g       |		BEQ	0x21f80
00021fb4 41 fa e9 3c              |A  <    |		LEA.L	0x208f2,A0
00021fb8 70 12                    |p       |		MOVEQ.L	#0x12,D0
00021fba 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00021fbc 51 c8 ff fc              |Q       |		DBF	D0,0x21fba
00021fc0 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00021fc2 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00021fc6 3f 01                    |?       |		MOVE.W	D1,-(A7)
00021fc8 3f 3c 00 26              |?< &    |		MOVE.W	#0x26,-(A7)
00021fcc 4e 92                    |N       |		JSR	(A2)
00021fce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00021fd0 48 78 00 40              |Hx @    |		PEA.L	0x40
00021fd4 48 78 01 00              |Hx      |		PEA.L	0x100
00021fd8 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00021fde de c5                    |        |		ADDA.W	D5,A7
00021fe0 2c 1f                    |,       |		MOVE.L	(A7)+,D6
00021fe2 de c3                    |        |		ADDA.W	D3,A7
00021fe4 3e 84                    |>       |		MOVE.W	D4,(A7)
00021fe6 3f 3c 00 10              |?<      |		MOVE.W	#0x10,-(A7)
00021fea 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00021ff0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00021ff2 4e 93                    |N       |		JSR	(A3)
00021ff4 4a b9 00 02 39 aa        |J   9   |		TST.L	0x239aa
00021ffa 66 76                    |fv      |		BNE	0x22072
00021ffc 3f 04                    |?       |		MOVE.W	D4,-(A7)
00021ffe 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
00022002 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00022008 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002200a 3e 84                    |>       |		MOVE.W	D4,(A7)
0002200c 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
00022010 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00022016 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022018 3e 84                    |>       |		MOVE.W	D4,(A7)
0002201a 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
0002201e 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00022024 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022026 3e 84                    |>       |		MOVE.W	D4,(A7)
00022028 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
0002202c 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00022032 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022034 4e 93                    |N       |		JSR	(A3)
00022036 4a b9 00 02 39 aa        |J   9   |		TST.L	0x239aa
0002203c 66 34                    |f4      |		BNE	0x22072
0002203e 41 fa e6 8c              |A       |		LEA.L	0x206cc,A0
00022042 70 0b                    |p       |		MOVEQ.L	#0x0b,D0
00022044 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022046 51 c8 ff fc              |Q       |		DBF	D0,0x22044
0002204a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002204c 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022050 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022052 3f 3c 00 30              |?< 0    |		MOVE.W	#0x30,-(A7)
00022056 4e 92                    |N       |		JSR	(A2)
00022058 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002205a 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022060 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00022064 1e 84                    |        |		MOVE.B	D4,(A7)
00022066 48 78 00 01              |Hx      |		PEA.L	0x1
0002206a 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022070 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022072 41 fa e8 d0              |A       |		LEA.L	0x20944,A0
00022076 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022078 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002207a 51 c8 ff fc              |Q       |		DBF	D0,0x22078
0002207e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022080 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022084 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022086 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
0002208a 4e 92                    |N       |		JSR	(A2)
0002208c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002208e 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
00022092 de fc 00 16              |        |		ADDA.W	#0x16,A7
00022096 2e ae ff ea              |.       |		MOVE.L	(A6-0x16),(A7)
0002209a 4e ba ef 58              |N  X    |		JSR	0x20ff4
0002209e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000220a0 4e 93                    |N       |		JSR	(A3)
000220a2 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000220a4 4e ba f1 f4              |N       |		JSR	0x2129a
000220a8 4a 1f                    |J       |		TST.B	(A7)+
000220aa 67 2e                    |g.      |		BEQ	0x220da
000220ac 9e c2                    |        |		SUBA.W	D2,A7
000220ae 20 4f                    | O      |		MOVEA.L	A7,A0
000220b0 43 fa e7 44              |C  D    |		LEA.L	0x207f6,A1
000220b4 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000220b6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000220b8 51 c8 ff fc              |Q       |		DBF	D0,0x220b6
000220bc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000220be 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000220c2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000220c4 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
000220c8 4e 92                    |N       |		JSR	(A2)
000220ca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000220cc 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000220d2 de fc 00 12              |        |		ADDA.W	#0x12,A7
000220d6 60 00 04 62              |`  b    |		BRA	0x2253a
000220da 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
000220de 66 0e                    |f       |		BNE	0x220ee
000220e0 41 fa e8 86              |A       |		LEA.L	0x20968,A0
000220e4 70 08                    |p       |		MOVEQ.L	#0x08,D0
000220e6 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000220e8 51 c8 ff fc              |Q       |		DBF	D0,0x220e6
000220ec 60 0c                    |`       |		BRA	0x220fa
000220ee 41 fa e8 9c              |A       |		LEA.L	0x2098c,A0
000220f2 70 08                    |p       |		MOVEQ.L	#0x08,D0
000220f4 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000220f6 51 c8 ff fc              |Q       |		DBF	D0,0x220f4
000220fa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000220fc 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022100 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022102 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022104 4e 92                    |N       |		JSR	(A2)
00022106 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022108 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
0002210c de c3                    |        |		ADDA.W	D3,A7
0002210e 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
00022112 4e ba ee e0              |N       |		JSR	0x20ff4
00022116 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022118 4e 93                    |N       |		JSR	(A3)
0002211a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002211c 4e ba f3 1e              |N       |		JSR	0x2143c
00022120 4a 1f                    |J       |		TST.B	(A7)+
00022122 67 2e                    |g.      |		BEQ	0x22152
00022124 9e c5                    |        |		SUBA.W	D5,A7
00022126 20 4f                    | O      |		MOVEA.L	A7,A0
00022128 43 fa e6 24              |C  $    |		LEA.L	0x2074e,A1
0002212c 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002212e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022130 51 c8 ff fc              |Q       |		DBF	D0,0x2212e
00022134 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022136 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002213a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002213c 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00022140 4e 92                    |N       |		JSR	(A2)
00022142 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022144 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002214a de fc 00 10              |        |		ADDA.W	#0x10,A7
0002214e 60 00 03 ea              |`       |		BRA	0x2253a
00022152 41 fa e8 52              |A  R    |		LEA.L	0x209a6,A0
00022156 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022158 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002215a 51 c8 ff fc              |Q       |		DBF	D0,0x22158
0002215e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022160 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022164 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022166 3f 3c 00 1a              |?<      |		MOVE.W	#0x1a,-(A7)
0002216a 4e 92                    |N       |		JSR	(A2)
0002216c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002216e 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
00022172 de fc 00 16              |        |		ADDA.W	#0x16,A7
00022176 2e ae ff ea              |.       |		MOVE.L	(A6-0x16),(A7)
0002217a 4e ba ee 78              |N  x    |		JSR	0x20ff4
0002217e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022180 4e 93                    |N       |		JSR	(A3)
00022182 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022184 4e ba f1 14              |N       |		JSR	0x2129a
00022188 4a 1f                    |J       |		TST.B	(A7)+
0002218a 67 14                    |g       |		BEQ	0x221a0
0002218c 9e c2                    |        |		SUBA.W	D2,A7
0002218e 20 4f                    | O      |		MOVEA.L	A7,A0
00022190 43 fa e6 64              |C  d    |		LEA.L	0x207f6,A1
00022194 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022196 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022198 51 c8 ff fc              |Q       |		DBF	D0,0x22196
0002219c 60 00 ff 1e              |`       |		BRA	0x220bc
000221a0 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
000221a4 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000221aa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000221ac 4a 2e 00 08              |J.      |		TST.B	(A6+0x8)
000221b0 66 0e                    |f       |		BNE	0x221c0
000221b2 41 fa e7 fc              |A       |		LEA.L	0x209b0,A0
000221b6 70 04                    |p       |		MOVEQ.L	#0x04,D0
000221b8 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000221ba 51 c8 ff fc              |Q       |		DBF	D0,0x221b8
000221be 60 0c                    |`       |		BRA	0x221cc
000221c0 41 fa e7 f8              |A       |		LEA.L	0x209ba,A0
000221c4 70 04                    |p       |		MOVEQ.L	#0x04,D0
000221c6 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000221c8 51 c8 ff fc              |Q       |		DBF	D0,0x221c6
000221cc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000221ce 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000221d2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000221d4 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
000221d8 4e 92                    |N       |		JSR	(A2)
000221da 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000221dc 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
000221e0 de fc 00 0a              |        |		ADDA.W	#0xa,A7
000221e4 2f 3a e7 d4              |/:      |		MOVE.L	0x209ba,-(A7)
000221e8 9e fc 00 1a              |        |		SUBA.W	#0x1a,A7
000221ec 20 4f                    | O      |		MOVEA.L	A7,A0
000221ee 43 fa e7 ce              |C       |		LEA.L	0x209be,A1
000221f2 70 18                    |p       |		MOVEQ.L	#0x18,D0
000221f4 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000221f6 51 c8 ff fc              |Q       |		DBF	D0,0x221f4
000221fa 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000221fc 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
00022200 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022202 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00022206 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022208 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
0002220c 4e 92                    |N       |		JSR	(A2)
0002220e 2e 86                    |.       |		MOVE.L	D6,(A7)
00022210 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00022216 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
0002221a 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022220 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
00022224 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022226 3f 3c 00 19              |?<      |		MOVE.W	#0x19,-(A7)
0002222a 4e 92                    |N       |		JSR	(A2)
0002222c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002222e 4e b9 00 01 02 dc        |N       |		JSR	StringCat5(a, b, c, d, e : String) : String
00022234 de fc 00 14              |        |		ADDA.W	#0x14,A7
00022238 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
0002223c de fc 00 1a              |        |		ADDA.W	#0x1a,A7
00022240 2e ae ff ea              |.       |		MOVE.L	(A6-0x16),(A7)
00022244 4e ba ed ae              |N       |		JSR	0x20ff4
00022248 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002224a 4e 93                    |N       |		JSR	(A3)
0002224c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002224e 4e ba f0 4a              |N  J    |		JSR	0x2129a
00022252 4a 1f                    |J       |		TST.B	(A7)+
00022254 67 14                    |g       |		BEQ	0x2226a
00022256 9e c2                    |        |		SUBA.W	D2,A7
00022258 20 4f                    | O      |		MOVEA.L	A7,A0
0002225a 43 fa e5 9a              |C       |		LEA.L	0x207f6,A1
0002225e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022260 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022262 51 c8 ff fc              |Q       |		DBF	D0,0x22260
00022266 60 00 fe 54              |`  T    |		BRA	0x220bc
0002226a 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
0002226e 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022274 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022276 20 4f                    | O      |		MOVEA.L	A7,A0
00022278 43 fa e7 5e              |C  ^    |		LEA.L	0x209d8,A1
0002227c 70 04                    |p       |		MOVEQ.L	#0x04,D0
0002227e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022280 51 c8 ff fc              |Q       |		DBF	D0,0x2227e
00022284 41 fa e7 78              |A  x    |		LEA.L	0x209fe,A0
00022288 70 07                    |p       |		MOVEQ.L	#0x07,D0
0002228a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002228c 51 c8 ff fc              |Q       |		DBF	D0,0x2228a
00022290 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022292 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
00022296 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022298 48 6f 00 2c              |Ho ,    |		PEA.L	(A7+0x2c)
0002229c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002229e 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
000222a2 4e 92                    |N       |		JSR	(A2)
000222a4 2e ae ff f2              |.       |		MOVE.L	(A6-0xe),(A7)
000222a8 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000222ae 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
000222b2 3f 01                    |?       |		MOVE.W	D1,-(A7)
000222b4 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
000222b8 4e 92                    |N       |		JSR	(A2)
000222ba 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000222bc 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
000222c2 de fc 00 10              |        |		ADDA.W	#0x10,A7
000222c6 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
000222ca de fc 00 22              |   "    |		ADDA.W	#0x22,A7
000222ce 2e ae ff ea              |.       |		MOVE.L	(A6-0x16),(A7)
000222d2 4e ba ed 20              |N       |		JSR	0x20ff4
000222d6 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000222d8 4e 93                    |N       |		JSR	(A3)
000222da 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000222dc 4e ba ef bc              |N       |		JSR	0x2129a
000222e0 4a 1f                    |J       |		TST.B	(A7)+
000222e2 67 14                    |g       |		BEQ	0x222f8
000222e4 9e c2                    |        |		SUBA.W	D2,A7
000222e6 20 4f                    | O      |		MOVEA.L	A7,A0
000222e8 43 fa e5 1a              |C       |		LEA.L	0x20804,A1
000222ec 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000222ee 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000222f0 51 c8 ff fc              |Q       |		DBF	D0,0x222ee
000222f4 60 00 fd c6              |`       |		BRA	0x220bc
000222f8 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
000222fc 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022302 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022304 41 fa e7 06              |A       |		LEA.L	0x20a0c,A0
00022308 70 06                    |p       |		MOVEQ.L	#0x06,D0
0002230a 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002230c 51 c8 ff fc              |Q       |		DBF	D0,0x2230a
00022310 9e c2                    |        |		SUBA.W	D2,A7
00022312 20 4f                    | O      |		MOVEA.L	A7,A0
00022314 43 fa e6 f6              |C       |		LEA.L	0x20a0c,A1
00022318 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002231a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002231c 51 c8 ff fc              |Q       |		DBF	D0,0x2231a
00022320 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022322 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
00022326 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022328 48 6f 00 1a              |Ho      |		PEA.L	(A7+0x1a)
0002232c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002232e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022330 4e 92                    |N       |		JSR	(A2)
00022332 2e 86                    |.       |		MOVE.L	D6,(A7)
00022334 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
0002233a 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
0002233e 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022344 48 6f 00 18              |Ho      |		PEA.L	(A7+0x18)
00022348 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002234a 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
0002234e 4e 92                    |N       |		JSR	(A2)
00022350 2e 86                    |.       |		MOVE.L	D6,(A7)
00022352 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00022358 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002235a 4e b9 00 01 02 e0        |N       |		JSR	StringCat6(a, b, c, d, e, f : String) : String
00022360 de fc 00 18              |        |		ADDA.W	#0x18,A7
00022364 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
00022368 de fc 00 18              |        |		ADDA.W	#0x18,A7
0002236c 2e ae ff ea              |.       |		MOVE.L	(A6-0x16),(A7)
00022370 4e ba ec 82              |N       |		JSR	0x20ff4
00022374 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022376 4e 93                    |N       |		JSR	(A3)
00022378 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002237a 4e ba ef 1e              |N       |		JSR	0x2129a
0002237e 4a 1f                    |J       |		TST.B	(A7)+
00022380 67 14                    |g       |		BEQ	0x22396
00022382 9e c2                    |        |		SUBA.W	D2,A7
00022384 20 4f                    | O      |		MOVEA.L	A7,A0
00022386 43 fa e4 8a              |C       |		LEA.L	0x20812,A1
0002238a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002238c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002238e 51 c8 ff fc              |Q       |		DBF	D0,0x2238c
00022392 60 00 fd 28              |`  (    |		BRA	0x220bc
00022396 48 6e ff ea              |Hn      |		PEA.L	(A6-0x16)
0002239a 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
000223a0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000223a2 20 4f                    | O      |		MOVEA.L	A7,A0
000223a4 43 fa e6 74              |C  t    |		LEA.L	0x20a1a,A1
000223a8 70 04                    |p       |		MOVEQ.L	#0x04,D0
000223aa 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000223ac 51 c8 ff fc              |Q       |		DBF	D0,0x223aa
000223b0 2f 3a e6 6e              |/: n    |		MOVE.L	0x20a20,-(A7)
000223b4 41 fa e6 78              |A  x    |		LEA.L	0x20a2e,A0
000223b8 70 04                    |p       |		MOVEQ.L	#0x04,D0
000223ba 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000223bc 51 c8 ff fc              |Q       |		DBF	D0,0x223ba
000223c0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000223c2 2f 2e ff ea              |/.      |		MOVE.L	(A6-0x16),-(A7)
000223c6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000223c8 48 6f 00 1a              |Ho      |		PEA.L	(A7+0x1a)
000223cc 3f 01                    |?       |		MOVE.W	D1,-(A7)
000223ce 3f 3c 00 05              |?<      |		MOVE.W	#0x5,-(A7)
000223d2 4e 92                    |N       |		JSR	(A2)
000223d4 2f 2e ff f2              |/.      |		MOVE.L	(A6-0xe),-(A7)
000223d8 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000223de 2f 2e ff f6              |/.      |		MOVE.L	(A6-0xa),-(A7)
000223e2 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000223e8 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000223ea 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000223f0 48 6f 00 22              |Ho "    |		PEA.L	(A7+0x22)
000223f4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000223f6 3f 3c 00 04              |?<      |		MOVE.W	#0x4,-(A7)
000223fa 4e 92                    |N       |		JSR	(A2)
000223fc 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000223fe 2e 8c                    |.       |		MOVE.L	A4,(A7)
00022400 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022402 48 6f 00 20              |Ho      |		PEA.L	(A7+0x20)
00022406 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022408 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
0002240c 4e 92                    |N       |		JSR	(A2)
0002240e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022410 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00022416 de c5                    |        |		ADDA.W	D5,A7
00022418 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
0002241e de fc 00 10              |        |		ADDA.W	#0x10,A7
00022422 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
00022426 de fc 00 10              |        |		ADDA.W	#0x10,A7
0002242a 2e ae ff ea              |.       |		MOVE.L	(A6-0x16),(A7)
0002242e 4e ba eb c4              |N       |		JSR	0x20ff4
00022432 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022434 4e 93                    |N       |		JSR	(A3)
00022436 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022438 4e ba ee 60              |N  `    |		JSR	0x2129a
0002243c 4a 1f                    |J       |		TST.B	(A7)+
0002243e 67 56                    |gV      |		BEQ	0x22496
00022440 9e fc 00 40              |   @    |		SUBA.W	#0x40,A7
00022444 20 4f                    | O      |		MOVEA.L	A7,A0
00022446 43 fa e2 84              |C       |		LEA.L	0x206cc,A1
0002244a 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
0002244c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002244e 51 c8 ff fc              |Q       |		DBF	D0,0x2244c
00022452 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022454 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022458 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002245a 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
0002245e 4e 92                    |N       |		JSR	(A2)
00022460 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022462 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022468 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
0002246c 41 fa e2 e0              |A       |		LEA.L	0x2074e,A0
00022470 70 20                    |p       |		MOVEQ.L	#0x20,D0
00022472 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022474 51 c8 ff fc              |Q       |		DBF	D0,0x22472
00022478 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002247a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002247e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022480 3f 3c 00 42              |?< B    |		MOVE.W	#0x42,-(A7)
00022484 4e 92                    |N       |		JSR	(A2)
00022486 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022488 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002248e de fc 00 46              |   F    |		ADDA.W	#0x46,A7
00022492 60 00 01 1c              |`       |		BRA	0x225b0
00022496 9e c2                    |        |		SUBA.W	D2,A7
00022498 20 4f                    | O      |		MOVEA.L	A7,A0
0002249a 43 fa e5 92              |C       |		LEA.L	0x20a2e,A1
0002249e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000224a0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000224a2 51 c8 ff fc              |Q       |		DBF	D0,0x224a0
000224a6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000224a8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000224ac 3f 01                    |?       |		MOVE.W	D1,-(A7)
000224ae 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
000224b2 4e 92                    |N       |		JSR	(A2)
000224b4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000224b6 2d 5f ff ea              |-_      |		MOVE.L	(A7)+,(A6-0x16)
000224ba de fc 00 0a              |        |		ADDA.W	#0xa,A7
000224be 2e ae ff ea              |.       |		MOVE.L	(A6-0x16),(A7)
000224c2 4e ba eb 30              |N  0    |		JSR	0x20ff4
000224c6 2e bc 00 02 fa ee        |.       |		MOVE.L	#0x2faee,(A7)
000224cc 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
000224d2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000224d4 4e 93                    |N       |		JSR	(A3)
000224d6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000224d8 4e ba ef 62              |N  b    |		JSR	0x2143c
000224dc 4a 1f                    |J       |		TST.B	(A7)+
000224de 67 14                    |g       |		BEQ	0x224f4
000224e0 9e c5                    |        |		SUBA.W	D5,A7
000224e2 20 4f                    | O      |		MOVEA.L	A7,A0
000224e4 43 fa e3 3a              |C  :    |		LEA.L	0x20820,A1
000224e8 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
000224ea 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000224ec 51 c8 ff fc              |Q       |		DBF	D0,0x224ea
000224f0 60 00 fc 42              |`  B    |		BRA	0x22134
000224f4 9e fc 00 2a              |   *    |		SUBA.W	#0x2a,A7
000224f8 20 4f                    | O      |		MOVEA.L	A7,A0
000224fa 43 fa e5 40              |C  @    |		LEA.L	0x20a3c,A1
000224fe 70 28                    |p(      |		MOVEQ.L	#0x28,D0
00022500 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022502 51 c8 ff fc              |Q       |		DBF	D0,0x22500
00022506 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022508 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002250c 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002250e 3f 3c 00 29              |?< )    |		MOVE.W	#0x29,-(A7)
00022512 4e 92                    |N       |		JSR	(A2)
00022514 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022516 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
0002251c de fc 00 2e              |   .    |		ADDA.W	#0x2e,A7
00022520 48 6e ff f2              |Hn      |		PEA.L	(A6-0xe)
00022524 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
0002252a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002252c 48 6e ff f6              |Hn      |		PEA.L	(A6-0xa)
00022530 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022536 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022538 60 76                    |`v      |		BRA	0x225b0
0002253a 9e fc 00 40              |   @    |		SUBA.W	#0x40,A7
0002253e 20 4f                    | O      |		MOVEA.L	A7,A0
00022540 43 fa e2 18              |C       |		LEA.L	0x2075a,A1
00022544 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
00022546 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022548 51 c8 ff fc              |Q       |		DBF	D0,0x22546
0002254c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002254e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022552 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022554 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
00022558 4e 92                    |N       |		JSR	(A2)
0002255a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002255c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022562 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
00022566 41 fa e2 6e              |A  n    |		LEA.L	0x207d6,A0
0002256a 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
0002256c 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002256e 51 c8 ff fc              |Q       |		DBF	D0,0x2256c
00022572 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022574 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022578 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002257a 3f 3c 00 3c              |?< <    |		MOVE.W	#0x3c,-(A7)
0002257e 4e 92                    |N       |		JSR	(A2)
00022580 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022582 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022588 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
0002258c 41 fa e2 68              |A  h    |		LEA.L	0x207f6,A0
00022590 70 07                    |p       |		MOVEQ.L	#0x07,D0
00022592 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022594 51 c8 ff fc              |Q       |		DBF	D0,0x22592
00022598 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002259a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002259e 3f 01                    |?       |		MOVE.W	D1,-(A7)
000225a0 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
000225a4 4e 92                    |N       |		JSR	(A2)
000225a6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000225a8 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000225ae de c3                    |        |		ADDA.W	D3,A7
000225b0 4e ba ea 18              |N       |		JSR	0x20fca
000225b4 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000225b8 4e 5e                    |N^      |		UNLK	A6
000225ba 4e 75                    |Nu      |		RTS
000225bc ; --------------------------------------------------------------------------------------
000225bc ; OMSI PASCAL Function
000225bc ;    <LVAR -0x004 @ 4(rw)>
000225bc ;    <LVAR -0x008 @ 4(rw)>
000225bc ;    <LVAR -0x010 @ 4(rw)>
000225bc ; --------------------------------------------------------------------------------------
000225bc 4e 56 ff 42              |NV B    |		LINK.W	A6,#0xff42
000225c0 bf d5                    |        |		CMPA.L	(A5),A7
000225c2 62 06                    |b       |		BHI	0x225ca
000225c4 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
000225c8 4e 76                    |Nv      |		TRAPV
000225ca de fc 00 aa              |        |		ADDA.W	#0xaa,A7
000225ce 48 e7 ff f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000225d2 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000225d8 47 ee ff f8              |G       |		LEA.L	(A6-0x8),A3
000225dc 72 01                    |r       |		MOVEQ.L	#0x01,D1
000225de 74 10                    |t       |		MOVEQ.L	#0x10,D2
000225e0 76 02                    |v       |		MOVEQ.L	#0x02,D3
000225e2 78 0c                    |x       |		MOVEQ.L	#0x0c,D4
000225e4 7a 06                    |z       |		MOVEQ.L	#0x06,D5
000225e6 7c 36                    ||6      |		MOVEQ.L	#0x36,D6
000225e8 9e c6                    |        |		SUBA.W	D6,A7
000225ea 20 4f                    | O      |		MOVEA.L	A7,A0
000225ec 43 fa e6 18              |C       |		LEA.L	0x20c06,A1
000225f0 70 34                    |p4      |		MOVEQ.L	#0x34,D0
000225f2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000225f4 51 c8 ff fc              |Q       |		DBF	D0,0x225f2
000225f8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000225fa 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000225fe 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022600 3f 3c 00 35              |?< 5    |		MOVE.W	#0x35,-(A7)
00022604 4e 92                    |N       |		JSR	(A2)
00022606 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022608 48 78 00 02              |Hx      |		PEA.L	0x2
0002260c 48 78 00 05              |Hx      |		PEA.L	0x5
00022610 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00022616 de c4                    |        |		ADDA.W	D4,A7
00022618 2e 1f                    |.       |		MOVE.L	(A7)+,D7
0002261a de c6                    |        |		ADDA.W	D6,A7
0002261c 20 07                    |        |		MOVE.L	D7,D0
0002261e 55 80                    |U       |		SUBQ.L	#0x2,D0
00022620 0c 80 00 00 00 03        |        |		CMPI.L	#0x00000003,D0
00022626 63 02                    |c       |		BLS	0x2262a
00022628 4e 4e                    |NN      |		TRAP	#14
0002262a d0 40                    | @      |		ADD.W	D0,D0
0002262c 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00022634 00 08                    |        |		.CONST	0x8			; [0x0] -> 0x2263c
00022636 00 38                    | 8      |		.CONST	0x38			; [0x1] -> 0x2266c
00022638 00 66                    | f      |		.CONST	0x66			; [0x2] -> 0x2269a
0002263a 00 94                    |        |		.CONST	0x94			; [0x3] -> 0x226c8
0002263c					switch@0x2262c[0x0]:
0002263c 3f 3a e6 64              |?: d    |		MOVE.W	0x20ca2,-(A7)
00022640 3f 3a e6 5e              |?: ^    |		MOVE.W	0x20ca0,-(A7)
00022644 3f 3a e6 58              |?: X    |		MOVE.W	0x20c9e,-(A7)
00022648 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002264a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002264e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022650 3f 05                    |?       |		MOVE.W	D5,-(A7)
00022652 4e 92                    |N       |		JSR	(A2)
00022654 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022656 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00022658 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002265a 20 4f                    | O      |		MOVEA.L	A7,A0
0002265c 43 fa e6 46              |C  F    |		LEA.L	0x20ca4,A1
00022660 70 06                    |p       |		MOVEQ.L	#0x06,D0
00022662 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022664 51 c8 ff fc              |Q       |		DBF	D0,0x22662
00022668 60 00 00 8a              |`       |		BRA	0x226f4
0002266c					switch@0x2262c[0x1]:
0002266c 3f 3a e6 42              |?: B    |		MOVE.W	0x20cb0,-(A7)
00022670 3f 3a e6 3c              |?: <    |		MOVE.W	0x20cae,-(A7)
00022674 3f 3a e6 36              |?: 6    |		MOVE.W	0x20cac,-(A7)
00022678 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002267a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
0002267e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022680 3f 05                    |?       |		MOVE.W	D5,-(A7)
00022682 4e 92                    |N       |		JSR	(A2)
00022684 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022686 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
00022688 55 4f                    |UO      |		SUBQ.L	#0x2,A7
0002268a 20 4f                    | O      |		MOVEA.L	A7,A0
0002268c 43 fa e6 24              |C  $    |		LEA.L	0x20cb2,A1
00022690 70 06                    |p       |		MOVEQ.L	#0x06,D0
00022692 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022694 51 c8 ff fc              |Q       |		DBF	D0,0x22692
00022698 60 5a                    |`Z      |		BRA	0x226f4
0002269a					switch@0x2262c[0x2]:
0002269a 3f 3a e6 22              |?: "    |		MOVE.W	0x20cbe,-(A7)
0002269e 3f 3a e6 1c              |?:      |		MOVE.W	0x20cbc,-(A7)
000226a2 3f 3a e6 16              |?:      |		MOVE.W	0x20cba,-(A7)
000226a6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000226a8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000226ac 3f 01                    |?       |		MOVE.W	D1,-(A7)
000226ae 3f 05                    |?       |		MOVE.W	D5,-(A7)
000226b0 4e 92                    |N       |		JSR	(A2)
000226b2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000226b4 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
000226b6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000226b8 20 4f                    | O      |		MOVEA.L	A7,A0
000226ba 43 fa e6 04              |C       |		LEA.L	0x20cc0,A1
000226be 70 06                    |p       |		MOVEQ.L	#0x06,D0
000226c0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000226c2 51 c8 ff fc              |Q       |		DBF	D0,0x226c0
000226c6 60 2c                    |`,      |		BRA	0x226f4
000226c8					switch@0x2262c[0x3]:
000226c8 3f 3a e6 02              |?:      |		MOVE.W	0x20ccc,-(A7)
000226cc 3f 3a e5 fc              |?:      |		MOVE.W	0x20cca,-(A7)
000226d0 3f 3a e5 f6              |?:      |		MOVE.W	0x20cc8,-(A7)
000226d4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000226d6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000226da 3f 01                    |?       |		MOVE.W	D1,-(A7)
000226dc 3f 05                    |?       |		MOVE.W	D5,-(A7)
000226de 4e 92                    |N       |		JSR	(A2)
000226e0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000226e2 26 9f                    |&       |		MOVE.L	(A7)+,(A3)
000226e4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000226e6 20 4f                    | O      |		MOVEA.L	A7,A0
000226e8 43 fa e5 e4              |C       |		LEA.L	0x20cce,A1
000226ec 70 06                    |p       |		MOVEQ.L	#0x06,D0
000226ee 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000226f0 51 c8 ff fc              |Q       |		DBF	D0,0x226ee
000226f4 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000226f6 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000226fa 3f 01                    |?       |		MOVE.W	D1,-(A7)
000226fc 3f 3c 00 07              |?<      |		MOVE.W	#0x7,-(A7)
00022700 4e 92                    |N       |		JSR	(A2)
00022702 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022704 2d 5f ff fc              |-_      |		MOVE.L	(A7)+,(A6-0x4)
00022708 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002270a 42 39 00 02 31 a4        |B9  1   |		CLR.B	0x231a4
00022710 4e b9 00 01 02 16        |N       |		JSR	KC0b
00022716 4e ba e9 5a              |N  Z    |		JSR	0x21072
0002271a 9e fc 00 24              |   $    |		SUBA.W	#0x24,A7
0002271e 20 4f                    | O      |		MOVEA.L	A7,A0
00022720 43 fa e5 1a              |C       |		LEA.L	0x20c3c,A1
00022724 70 22                    |p"      |		MOVEQ.L	#0x22,D0
00022726 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022728 51 c8 ff fc              |Q       |		DBF	D0,0x22726
0002272c 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002272e 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00022732 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022734 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
00022738 4e 92                    |N       |		JSR	(A2)
0002273a 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
0002273c 42 17                    |B       |		CLR.B	(A7)
0002273e 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00022744 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022746 10 1f                    |        |		MOVE.B	(A7)+,D0
00022748 48 80                    |H       |		EXTB.W	D0
0002274a 41 81                    |A       |		CHK.W	D1,D0
0002274c de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00022750 13 c0 00 02 31 a4        |    1   |		MOVE.B	D0,0x231a4
00022756 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022758 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002275a 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00022760 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022762 4e ba e9 0e              |N       |		JSR	0x21072
00022766 4a b9 00 02 39 aa        |J   9   |		TST.L	0x239aa
0002276c 66 78                    |fx      |		BNE	0x227e6
0002276e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022770 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
00022774 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
0002277a 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002277c 3e 83                    |>       |		MOVE.W	D3,(A7)
0002277e 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
00022782 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00022788 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002278a 3e 83                    |>       |		MOVE.W	D3,(A7)
0002278c 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
00022790 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
00022796 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022798 3e 83                    |>       |		MOVE.W	D3,(A7)
0002279a 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
0002279e 4e b9 00 01 02 0c        |N       |		JSR	KC06_PortPutChar(port : Word ; b : char)
000227a4 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000227a6 4e ba e8 ca              |N       |		JSR	0x21072
000227aa 4a b9 00 02 39 aa        |J   9   |		TST.L	0x239aa
000227b0 66 34                    |f4      |		BNE	0x227e6
000227b2 41 fa e2 e2              |A       |		LEA.L	0x20a96,A0
000227b6 70 0b                    |p       |		MOVEQ.L	#0x0b,D0
000227b8 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
000227ba 51 c8 ff fc              |Q       |		DBF	D0,0x227b8
000227be 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000227c0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000227c4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000227c6 3f 3c 00 30              |?< 0    |		MOVE.W	#0x30,-(A7)
000227ca 4e 92                    |N       |		JSR	(A2)
000227cc 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000227ce 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000227d4 de fc 00 32              |   2    |		ADDA.W	#0x32,A7
000227d8 1e 83                    |        |		MOVE.B	D3,(A7)
000227da 48 78 00 01              |Hx      |		PEA.L	0x1
000227de 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
000227e4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
000227e6 9e fc 00 3e              |   >    |		SUBA.W	#0x3e,A7
000227ea 20 4f                    | O      |		MOVEA.L	A7,A0
000227ec 43 fa e4 72              |C  r    |		LEA.L	0x20c60,A1
000227f0 70 3c                    |p<      |		MOVEQ.L	#0x3c,D0
000227f2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000227f4 51 c8 ff fc              |Q       |		DBF	D0,0x227f2
000227f8 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000227fa 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000227fe 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022800 3f 3c 00 3d              |?< =    |		MOVE.W	#0x3d,-(A7)
00022804 4e 92                    |N       |		JSR	(A2)
00022806 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022808 4e b9 00 01 03 e4        |N       |		JSR	AskConsoleString(prompt : String) : String
0002280e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022810 28 5f                    |(_      |		MOVEA.L	(A7)+,A4
00022812 de fc 00 3e              |   >    |		ADDA.W	#0x3e,A7
00022816 4a 54                    |JT      |		TST.W	(A4)
00022818 67 cc                    |g       |		BEQ	0x227e6
0002281a 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
0002281e 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022824 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00022826 20 4f                    | O      |		MOVEA.L	A7,A0
00022828 43 fa e4 ac              |C       |		LEA.L	0x20cd6,A1
0002282c 70 08                    |p       |		MOVEQ.L	#0x08,D0
0002282e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022830 51 c8 ff fc              |Q       |		DBF	D0,0x2282e
00022834 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00022838 20 4f                    | O      |		MOVEA.L	A7,A0
0002283a 43 fa e4 a4              |C       |		LEA.L	0x20ce0,A1
0002283e 70 08                    |p       |		MOVEQ.L	#0x08,D0
00022840 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022842 51 c8 ff fc              |Q       |		DBF	D0,0x22840
00022846 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022848 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
0002284c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002284e 48 6f 00 16              |Ho      |		PEA.L	(A7+0x16)
00022852 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022854 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00022858 4e 92                    |N       |		JSR	(A2)
0002285a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002285c 2e 8c                    |.       |		MOVE.L	A4,(A7)
0002285e 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022860 2f 2e ff fc              |/.      |		MOVE.L	(A6-0x4),-(A7)
00022864 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
0002286a 2f 13                    |/       |		MOVE.L	(A3),-(A7)
0002286c 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022872 48 6f 00 20              |Ho      |		PEA.L	(A7+0x20)
00022876 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022878 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
0002287c 4e 92                    |N       |		JSR	(A2)
0002287e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022880 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00022886 de c4                    |        |		ADDA.W	D4,A7
00022888 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
0002288e de c2                    |        |		ADDA.W	D2,A7
00022890 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00022894 de c2                    |        |		ADDA.W	D2,A7
00022896 2e ae ff f0              |.       |		MOVE.L	(A6-0x10),(A7)
0002289a 4e ba e7 58              |N  X    |		JSR	0x20ff4
0002289e 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000228a0 4e ba e7 d0              |N       |		JSR	0x21072
000228a4 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000228a6 4e ba e9 f2              |N       |		JSR	0x2129a
000228aa 4a 1f                    |J       |		TST.B	(A7)+
000228ac 67 56                    |gV      |		BEQ	0x22904
000228ae 9e fc 00 40              |   @    |		SUBA.W	#0x40,A7
000228b2 20 4f                    | O      |		MOVEA.L	A7,A0
000228b4 43 fa e1 e0              |C       |		LEA.L	0x20a96,A1
000228b8 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
000228ba 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000228bc 51 c8 ff fc              |Q       |		DBF	D0,0x228ba
000228c0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000228c2 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000228c6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000228c8 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
000228cc 4e 92                    |N       |		JSR	(A2)
000228ce 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000228d0 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000228d6 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
000228da 41 fa e2 3c              |A  <    |		LEA.L	0x20b18,A0
000228de 70 20                    |p       |		MOVEQ.L	#0x20,D0
000228e0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
000228e2 51 c8 ff fc              |Q       |		DBF	D0,0x228e0
000228e6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000228e8 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000228ec 3f 01                    |?       |		MOVE.W	D1,-(A7)
000228ee 3f 3c 00 42              |?< B    |		MOVE.W	#0x42,-(A7)
000228f2 4e 92                    |N       |		JSR	(A2)
000228f4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000228f6 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
000228fc de fc 00 46              |   F    |		ADDA.W	#0x46,A7
00022900 60 00 03 f0              |`       |		BRA	0x22cf2
00022904 41 fa e4 10              |A       |		LEA.L	0x20d16,A0
00022908 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
0002290a 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
0002290c 51 c8 ff fc              |Q       |		DBF	D0,0x2290a
00022910 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022912 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022916 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022918 3f 3c 00 2c              |?< ,    |		MOVE.W	#0x2c,-(A7)
0002291c 4e 92                    |N       |		JSR	(A2)
0002291e 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022920 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00022924 de fc 00 28              |   (    |		ADDA.W	#0x28,A7
00022928 2e ae ff f0              |.       |		MOVE.L	(A6-0x10),(A7)
0002292c 4e ba e6 c6              |N       |		JSR	0x20ff4
00022930 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022932 4e ba e7 3e              |N  >    |		JSR	0x21072
00022936 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022938 4e ba e9 60              |N  `    |		JSR	0x2129a
0002293c 4a 1f                    |J       |		TST.B	(A7)+
0002293e 67 30                    |g0      |		BEQ	0x22970
00022940 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00022944 20 4f                    | O      |		MOVEA.L	A7,A0
00022946 43 fa e1 d0              |C       |		LEA.L	0x20b18,A1
0002294a 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002294c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
0002294e 51 c8 ff fc              |Q       |		DBF	D0,0x2294c
00022952 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022954 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022958 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002295a 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
0002295e 4e 92                    |N       |		JSR	(A2)
00022960 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022962 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022968 de fc 00 12              |        |		ADDA.W	#0x12,A7
0002296c 60 00 03 0c              |`       |		BRA	0x22c7a
00022970 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00022974 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
0002297a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002297c 41 fa e3 be              |A       |		LEA.L	0x20d3c,A0
00022980 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022982 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022984 51 c8 ff fc              |Q       |		DBF	D0,0x22982
00022988 9e fc 00 14              |        |		SUBA.W	#0x14,A7
0002298c 20 4f                    | O      |		MOVEA.L	A7,A0
0002298e 43 fa e3 ac              |C       |		LEA.L	0x20d3c,A1
00022992 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022994 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022996 51 c8 ff fc              |Q       |		DBF	D0,0x22994
0002299a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002299c 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
000229a0 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000229a2 48 6f 00 20              |Ho      |		PEA.L	(A7+0x20)
000229a6 3f 01                    |?       |		MOVE.W	D1,-(A7)
000229a8 3f 3c 00 26              |?< &    |		MOVE.W	#0x26,-(A7)
000229ac 4e 92                    |N       |		JSR	(A2)
000229ae 2e 93                    |.       |		MOVE.L	(A3),(A7)
000229b0 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
000229b6 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
000229ba 3f 01                    |?       |		MOVE.W	D1,-(A7)
000229bc 3f 3c 00 13              |?<      |		MOVE.W	#0x13,-(A7)
000229c0 4e 92                    |N       |		JSR	(A2)
000229c2 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000229c4 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
000229ca de c2                    |        |		ADDA.W	D2,A7
000229cc 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
000229d0 de c6                    |        |		ADDA.W	D6,A7
000229d2 2e ae ff f0              |.       |		MOVE.L	(A6-0x10),(A7)
000229d6 4e ba e6 1c              |N       |		JSR	0x20ff4
000229da 58 4f                    |XO      |		ADDQ.L	#0x4,A7
000229dc 4e ba e6 94              |N       |		JSR	0x21072
000229e0 55 4f                    |UO      |		SUBQ.L	#0x2,A7
000229e2 4e ba e8 b6              |N       |		JSR	0x2129a
000229e6 4a 1f                    |J       |		TST.B	(A7)+
000229e8 67 16                    |g       |		BEQ	0x22a00
000229ea 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
000229ee 20 4f                    | O      |		MOVEA.L	A7,A0
000229f0 43 fa e1 d0              |C       |		LEA.L	0x20bc2,A1
000229f4 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000229f6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000229f8 51 c8 ff fc              |Q       |		DBF	D0,0x229f6
000229fc 60 00 ff 54              |`  T    |		BRA	0x22952
00022a00 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00022a04 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022a0a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a0c 41 fa e3 4c              |A  L    |		LEA.L	0x20d5a,A0
00022a10 70 04                    |p       |		MOVEQ.L	#0x04,D0
00022a12 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022a14 51 c8 ff fc              |Q       |		DBF	D0,0x22a12
00022a18 41 fa e3 60              |A  `    |		LEA.L	0x20d7a,A0
00022a1c 70 07                    |p       |		MOVEQ.L	#0x07,D0
00022a1e 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022a20 51 c8 ff fc              |Q       |		DBF	D0,0x22a1e
00022a24 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022a26 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00022a2a 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022a2c 48 6f 00 2c              |Ho ,    |		PEA.L	(A7+0x2c)
00022a30 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022a32 3f 3c 00 0a              |?<      |		MOVE.W	#0xa,-(A7)
00022a36 4e 92                    |N       |		JSR	(A2)
00022a38 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022a3a 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022a40 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00022a44 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022a46 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00022a4a 4e 92                    |N       |		JSR	(A2)
00022a4c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022a4e 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00022a54 de c2                    |        |		ADDA.W	D2,A7
00022a56 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00022a5a de fc 00 26              |   &    |		ADDA.W	#0x26,A7
00022a5e 2e ae ff f0              |.       |		MOVE.L	(A6-0x10),(A7)
00022a62 4e ba e5 90              |N       |		JSR	0x20ff4
00022a66 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022a68 4e ba e6 08              |N       |		JSR	0x21072
00022a6c 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022a6e 4e ba e8 2a              |N  *    |		JSR	0x2129a
00022a72 4a 1f                    |J       |		TST.B	(A7)+
00022a74 67 16                    |g       |		BEQ	0x22a8c
00022a76 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00022a7a 20 4f                    | O      |		MOVEA.L	A7,A0
00022a7c 43 fa e1 52              |C  R    |		LEA.L	0x20bd0,A1
00022a80 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022a82 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022a84 51 c8 ff fc              |Q       |		DBF	D0,0x22a82
00022a88 60 00 fe c8              |`       |		BRA	0x22952
00022a8c 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00022a90 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022a96 9e c4                    |        |		SUBA.W	D4,A7
00022a98 20 4f                    | O      |		MOVEA.L	A7,A0
00022a9a 43 fa e2 de              |C       |		LEA.L	0x20d7a,A1
00022a9e 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022aa0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022aa2 51 c8 ff fc              |Q       |		DBF	D0,0x22aa0
00022aa6 9e fc 00 0a              |        |		SUBA.W	#0xa,A7
00022aaa 20 4f                    | O      |		MOVEA.L	A7,A0
00022aac 43 fa e2 dc              |C       |		LEA.L	0x20d8a,A1
00022ab0 70 08                    |p       |		MOVEQ.L	#0x08,D0
00022ab2 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022ab4 51 c8 ff fc              |Q       |		DBF	D0,0x22ab2
00022ab8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022aba 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00022abe 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022ac0 48 6f 00 16              |Ho      |		PEA.L	(A7+0x16)
00022ac4 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022ac6 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00022aca 4e 92                    |N       |		JSR	(A2)
00022acc 2e 93                    |.       |		MOVE.L	(A3),(A7)
00022ace 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022ad4 48 6f 00 14              |Ho      |		PEA.L	(A7+0x14)
00022ad8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022ada 3f 3c 00 09              |?<      |		MOVE.W	#0x9,-(A7)
00022ade 4e 92                    |N       |		JSR	(A2)
00022ae0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022ae2 4e b9 00 01 02 d8        |N       |		JSR	StringCat4(a, b, c, d : String) : String
00022ae8 de c2                    |        |		ADDA.W	D2,A7
00022aea 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00022aee de fc 00 16              |        |		ADDA.W	#0x16,A7
00022af2 2e ae ff f0              |.       |		MOVE.L	(A6-0x10),(A7)
00022af6 4e ba e4 fc              |N       |		JSR	0x20ff4
00022afa 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022afc 4e ba e5 74              |N  t    |		JSR	0x21072
00022b00 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022b02 4e ba e7 96              |N       |		JSR	0x2129a
00022b06 4a 1f                    |J       |		TST.B	(A7)+
00022b08 67 16                    |g       |		BEQ	0x22b20
00022b0a 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00022b0e 20 4f                    | O      |		MOVEA.L	A7,A0
00022b10 43 fa e0 cc              |C       |		LEA.L	0x20bde,A1
00022b14 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022b16 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022b18 51 c8 ff fc              |Q       |		DBF	D0,0x22b16
00022b1c 60 00 fe 34              |`  4    |		BRA	0x22952
00022b20 48 6e ff f0              |Hn      |		PEA.L	(A6-0x10)
00022b24 4e b9 00 01 02 b8        |N       |		JSR	NewString(VAR a : String)
00022b2a 9e fc 00 2c              |   ,    |		SUBA.W	#0x2c,A7
00022b2e 20 4f                    | O      |		MOVEA.L	A7,A0
00022b30 43 fa e2 62              |C  b    |		LEA.L	0x20d94,A1
00022b34 70 2e                    |p.      |		MOVEQ.L	#0x2e,D0
00022b36 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022b38 51 c8 ff fc              |Q       |		DBF	D0,0x22b36
00022b3c 41 fa e2 b0              |A       |		LEA.L	0x20dee,A0
00022b40 70 14                    |p       |		MOVEQ.L	#0x14,D0
00022b42 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022b44 51 c8 ff fc              |Q       |		DBF	D0,0x22b42
00022b48 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022b4a 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00022b4e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022b50 48 6f 00 36              |Ho 6    |		PEA.L	(A7+0x36)
00022b54 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022b56 3f 3c 00 2f              |?< /    |		MOVE.W	#0x2f,-(A7)
00022b5a 4e 92                    |N       |		JSR	(A2)
00022b5c 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022b5e 48 6f 00 10              |Ho      |		PEA.L	(A7+0x10)
00022b62 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022b64 3f 3c 00 2a              |?< *    |		MOVE.W	#0x2a,-(A7)
00022b68 4e 92                    |N       |		JSR	(A2)
00022b6a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022b6c 4e b9 00 01 02 d4        |N       |		JSR	StringCat3(a, b, c : String) : String
00022b72 de c4                    |        |		ADDA.W	D4,A7
00022b74 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00022b78 de fc 00 56              |   V    |		ADDA.W	#0x56,A7
00022b7c 2e ae ff f0              |.       |		MOVE.L	(A6-0x10),(A7)
00022b80 4e ba e4 72              |N  r    |		JSR	0x20ff4
00022b84 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022b86 4e ba e4 ea              |N       |		JSR	0x21072
00022b8a 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022b8c 4e ba e7 0c              |N       |		JSR	0x2129a
00022b90 4a 1f                    |J       |		TST.B	(A7)+
00022b92 67 16                    |g       |		BEQ	0x22baa
00022b94 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00022b98 20 4f                    | O      |		MOVEA.L	A7,A0
00022b9a 43 fa e0 50              |C  P    |		LEA.L	0x20bec,A1
00022b9e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022ba0 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022ba2 51 c8 ff fc              |Q       |		DBF	D0,0x22ba0
00022ba6 60 00 fd aa              |`       |		BRA	0x22952
00022baa 9e fc 00 0e              |        |		SUBA.W	#0xe,A7
00022bae 20 4f                    | O      |		MOVEA.L	A7,A0
00022bb0 43 fa e2 3c              |C  <    |		LEA.L	0x20dee,A1
00022bb4 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022bb6 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022bb8 51 c8 ff fc              |Q       |		DBF	D0,0x22bb6
00022bbc 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022bbe 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022bc2 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022bc4 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00022bc8 4e 92                    |N       |		JSR	(A2)
00022bca 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022bcc 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00022bd0 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022bd2 2e ae ff f0              |.       |		MOVE.L	(A6-0x10),(A7)
00022bd6 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022bd8 2f 13                    |/       |		MOVE.L	(A3),-(A7)
00022bda 4e b9 00 01 02 cc        |N       |		JSR	StringDup(a : String) : String
00022be0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022be2 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022be8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022bea 2d 5f ff f0              |-_      |		MOVE.L	(A7)+,(A6-0x10)
00022bee 2f 2e ff f0              |/.      |		MOVE.L	(A6-0x10),-(A7)
00022bf2 4e ba e4 00              |N       |		JSR	0x20ff4
00022bf6 2e bc 00 02 fa ee        |.       |		MOVE.L	#0x2faee,(A7)
00022bfc 4e b9 00 01 02 24        |N    $  |		JSR	KC12_Sleep(dur: Long)
00022c02 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022c04 4e ba e4 6c              |N  l    |		JSR	0x21072
00022c08 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022c0a 4e ba e8 30              |N  0    |		JSR	0x2143c
00022c0e 4a 1f                    |J       |		TST.B	(A7)+
00022c10 67 2a                    |g*      |		BEQ	0x22c3c
00022c12 9e c4                    |        |		SUBA.W	D4,A7
00022c14 20 4f                    | O      |		MOVEA.L	A7,A0
00022c16 43 fa df e2              |C       |		LEA.L	0x20bfa,A1
00022c1a 70 0a                    |p       |		MOVEQ.L	#0x0a,D0
00022c1c 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022c1e 51 c8 ff fc              |Q       |		DBF	D0,0x22c1c
00022c22 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c24 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c28 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022c2a 3f 3c 00 0b              |?<      |		MOVE.W	#0xb,-(A7)
00022c2e 4e 92                    |N       |		JSR	(A2)
00022c30 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c32 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022c38 de c2                    |        |		ADDA.W	D2,A7
00022c3a 60 3e                    |`>      |		BRA	0x22c7a
00022c3c 41 fa e1 da              |A       |		LEA.L	0x20e18,A0
00022c40 70 06                    |p       |		MOVEQ.L	#0x06,D0
00022c42 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022c44 51 c8 ff fc              |Q       |		DBF	D0,0x22c42
00022c48 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c4a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c4e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022c50 3f 3c 00 1c              |?<      |		MOVE.W	#0x1c,-(A7)
00022c54 4e 92                    |N       |		JSR	(A2)
00022c56 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c58 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022c5e de fc 00 20              |        |		ADDA.W	#0x20,A7
00022c62 48 53                    |HS      |		PEA.L	(A3)
00022c64 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022c6a 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022c6c 48 6e ff fc              |Hn      |		PEA.L	(A6-0x4)
00022c70 4e b9 00 01 02 bc        |N       |		JSR	FreeString(VAR a : String)
00022c76 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022c78 60 78                    |`x      |		BRA	0x22cf2
00022c7a 9e fc 00 40              |   @    |		SUBA.W	#0x40,A7
00022c7e 20 4f                    | O      |		MOVEA.L	A7,A0
00022c80 43 fa de a4              |C       |		LEA.L	0x20b26,A1
00022c84 70 3e                    |p>      |		MOVEQ.L	#0x3e,D0
00022c86 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022c88 51 c8 ff fc              |Q       |		DBF	D0,0x22c86
00022c8c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022c8e 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022c92 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022c94 3f 3c 00 3f              |?< ?    |		MOVE.W	#0x3f,-(A7)
00022c98 4e 92                    |N       |		JSR	(A2)
00022c9a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022c9c 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022ca2 de fc 00 44              |   D    |		ADDA.W	#0x44,A7
00022ca6 41 fa de fa              |A       |		LEA.L	0x20ba2,A0
00022caa 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022cac 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022cae 51 c8 ff fc              |Q       |		DBF	D0,0x22cac
00022cb2 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022cb4 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022cb8 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022cba 3f 3c 00 3c              |?< <    |		MOVE.W	#0x3c,-(A7)
00022cbe 4e 92                    |N       |		JSR	(A2)
00022cc0 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022cc2 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022cc8 de fc 00 40              |   @    |		ADDA.W	#0x40,A7
00022ccc 41 fa de f4              |A       |		LEA.L	0x20bc2,A0
00022cd0 70 07                    |p       |		MOVEQ.L	#0x07,D0
00022cd2 2f 20                    |/       |		MOVE.L	-(A0),-(A7)
00022cd4 51 c8 ff fc              |Q       |		DBF	D0,0x22cd2
00022cd8 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022cda 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022cde 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022ce0 3f 3c 00 20              |?<      |		MOVE.W	#0x20,-(A7)
00022ce4 4e 92                    |N       |		JSR	(A2)
00022ce6 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022ce8 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022cee de fc 00 24              |   $    |		ADDA.W	#0x24,A7
00022cf2 4e ba e2 d6              |N       |		JSR	0x20fca
00022cf6 4c df 1f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022cfa 4e 5e                    |N^      |		UNLK	A6
00022cfc 4e 75                    |Nu      |		RTS
00022cfe ; --------------------------------------------------------------------------------------
00022cfe ; OMSI PASCAL Function
00022cfe ; --------------------------------------------------------------------------------------
00022cfe 4e 56 ff 70              |NV p    |		LINK.W	A6,#0xff70
00022d02 bf d5                    |        |		CMPA.L	(A5),A7
00022d04 62 06                    |b       |		BHI	0x22d0c
00022d06 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022d0a 4e 76                    |Nv      |		TRAPV
00022d0c de fc 00 8c              |        |		ADDA.W	#0x8c,A7
00022d10 48 e7 ff f0              |H       |		MOVEM.L	A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022d14 45 f9 00 01 02 c4        |E       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00022d1a 47 f9 00 01 03 e0        |G       |		LEA.L	WriteConsoleStringCrLf(str : String),A3
00022d20 74 01                    |t       |		MOVEQ.L	#0x01,D2
00022d22 76 0c                    |v       |		MOVEQ.L	#0x0c,D3
00022d24 78 26                    |x&      |		MOVEQ.L	#0x26,D4
00022d26 7a 05                    |z       |		MOVEQ.L	#0x05,D5
00022d28 7c 24                    ||$      |		MOVEQ.L	#0x24,D6
00022d2a 2f 3a e0 f4              |/:      |		MOVE.L	0x20e20,-(A7)
00022d2e 2f 3a e0 ec              |/:      |		MOVE.L	0x20e1c,-(A7)
00022d32 2f 3a e0 e4              |/:      |		MOVE.L	0x20e18,-(A7)
00022d36 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022d38 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022d3c 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022d3e 3f 03                    |?       |		MOVE.W	D3,-(A7)
00022d40 4e 92                    |N       |		JSR	(A2)
00022d42 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022d44 4e 93                    |N       |		JSR	(A3)
00022d46 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022d48 20 4f                    | O      |		MOVEA.L	A7,A0
00022d4a 43 fa e0 d8              |C       |		LEA.L	0x20e24,A1
00022d4e 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
00022d50 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022d52 51 c8 ff fc              |Q       |		DBF	D0,0x22d50
00022d56 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022d58 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022d5c 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022d5e 3f 3c 00 0d              |?<      |		MOVE.W	#0xd,-(A7)
00022d62 4e 92                    |N       |		JSR	(A2)
00022d64 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022d66 4e 93                    |N       |		JSR	(A3)
00022d68 de fc 00 12              |        |		ADDA.W	#0x12,A7
00022d6c 41 fa e0 ea              |A       |		LEA.L	0x20e58,A0
00022d70 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022d72 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022d74 51 c8 ff fc              |Q       |		DBF	D0,0x22d72
00022d78 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022d7a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022d7e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022d80 3f 04                    |?       |		MOVE.W	D4,-(A7)
00022d82 4e 92                    |N       |		JSR	(A2)
00022d84 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022d86 4e 93                    |N       |		JSR	(A3)
00022d88 de fc 00 2a              |   *    |		ADDA.W	#0x2a,A7
00022d8c 41 fa e0 f0              |A       |		LEA.L	0x20e7e,A0
00022d90 70 12                    |p       |		MOVEQ.L	#0x12,D0
00022d92 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022d94 51 c8 ff fc              |Q       |		DBF	D0,0x22d92
00022d98 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022d9a 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022d9e 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022da0 3f 04                    |?       |		MOVE.W	D4,-(A7)
00022da2 4e 92                    |N       |		JSR	(A2)
00022da4 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022da6 4e 93                    |N       |		JSR	(A3)
00022da8 9e fc 00 22              |   "    |		SUBA.W	#0x22,A7
00022dac 20 4f                    | O      |		MOVEA.L	A7,A0
00022dae 43 fa e0 ce              |C       |		LEA.L	0x20e7e,A1
00022db2 70 4a                    |pJ      |		MOVEQ.L	#0x4a,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 4b              |?< K    |		MOVE.W	#0x4b,-(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 0a              |        |		ADDA.W	#0xa,A7
00022dd0 20 4f                    | O      |		MOVEA.L	A7,A0
00022dd2 43 fa e0 f6              |C       |		LEA.L	0x20eca,A1
00022dd6 70 44                    |pD      |		MOVEQ.L	#0x44,D0
00022dd8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022dda 51 c8 ff fc              |Q       |		DBF	D0,0x22dd8
00022dde 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022de0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022de4 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022de6 3f 3c 00 45              |?< E    |		MOVE.W	#0x45,-(A7)
00022dea 4e 92                    |N       |		JSR	(A2)
00022dec 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022dee 4e 93                    |N       |		JSR	(A3)
00022df0 de fc 00 3a              |   :    |		ADDA.W	#0x3a,A7
00022df4 20 4f                    | O      |		MOVEA.L	A7,A0
00022df6 43 fa e1 48              |C  H    |		LEA.L	0x20f40,A1
00022dfa 70 0e                    |p       |		MOVEQ.L	#0x0e,D0
00022dfc 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022dfe 51 c8 ff fc              |Q       |		DBF	D0,0x22dfc
00022e02 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022e04 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
00022e08 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022e0a 3f 3c 00 0f              |?<      |		MOVE.W	#0xf,-(A7)
00022e0e 4e 92                    |N       |		JSR	(A2)
00022e10 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022e12 48 78 00 00              |Hx      |		PEA.L	0x0
00022e16 48 78 00 05              |Hx      |		PEA.L	0x5
00022e1a 4e b9 00 01 03 ec        |N       |		JSR	AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00022e20 de c3                    |        |		ADDA.W	D3,A7
00022e22 10 2f 00 03              | /      |		MOVE.B	(A7+0x3),D0
00022e26 48 80                    |H       |		EXTB.W	D0
00022e28 41 85                    |A       |		CHK.W	D5,D0
00022e2a de fc 00 14              |        |		ADDA.W	#0x14,A7
00022e2e 1e 00                    |        |		MOVE.B	D0,D7
00022e30 10 07                    |        |		MOVE.B	D7,D0
00022e32 48 80                    |H       |		EXTB.W	D0
00022e34 32 00                    |2       |		MOVE.W	D0,D1
00022e36 b2 45                    | E      |		CMP.W	D5,D1
00022e38 63 02                    |c       |		BLS	0x22e3c
00022e3a 4e 4e                    |NN      |		TRAP	#14
00022e3c d2 41                    | A      |		ADD.W	D1,D1
00022e3e 32 3b 10 06 4e fb 10 02  |2;  N   |		SWITCH	D1.W
00022e46 00 0c                    |        |		.CONST	0xc			; [0x0] -> 0x22e52
00022e48 00 0e                    |        |		.CONST	0xe			; [0x1] -> 0x22e54
00022e4a 00 14                    |        |		.CONST	0x14			; [0x2] -> 0x22e5a
00022e4c 00 1a                    |        |		.CONST	0x1a			; [0x3] -> 0x22e60
00022e4e 00 24                    | $      |		.CONST	0x24			; [0x4] -> 0x22e6a
00022e50 00 28                    | (      |		.CONST	0x28			; [0x5] -> 0x22e6e
00022e52					switch@0x22e3e[0x0]:
00022e52 60 4e                    |`N      |		BRA	0x22ea2
00022e54					switch@0x22e3e[0x1]:
00022e54 4e ba e2 d2              |N       |		JSR	0x21128
00022e58 60 48                    |`H      |		BRA	0x22ea2
00022e5a					switch@0x22e3e[0x2]:
00022e5a 4e ba e7 0a              |N       |		JSR	0x21566
00022e5e 60 42                    |`B      |		BRA	0x22ea2
00022e60					switch@0x22e3e[0x3]:
00022e60 42 27                    |B'      |		CLR.B	-(A7)
00022e62 4e ba ef 76              |N  v    |		JSR	0x21dda
00022e66 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00022e68 60 38                    |`8      |		BRA	0x22ea2
00022e6a					switch@0x22e3e[0x4]:
00022e6a 1f 02                    |        |		MOVE.B	D2,-(A7)
00022e6c 60 f4                    |`       |		BRA	0x22e62
00022e6e					switch@0x22e3e[0x5]:
00022e6e 9e c6                    |        |		SUBA.W	D6,A7
00022e70 20 4f                    | O      |		MOVEA.L	A7,A0
00022e72 43 fa e0 dc              |C       |		LEA.L	0x20f50,A1
00022e76 72 22                    |r"      |		MOVEQ.L	#0x22,D1
00022e78 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022e7a 51 c9 ff fc              |Q       |		DBF	D1,0x22e78
00022e7e 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
00022e80 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00022e84 3f 02                    |?       |		MOVE.W	D2,-(A7)
00022e86 3f 3c 00 23              |?< #    |		MOVE.W	#0x23,-(A7)
00022e8a 4e 92                    |N       |		JSR	(A2)
00022e8c 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022e8e 42 17                    |B       |		CLR.B	(A7)
00022e90 4e b9 00 01 03 f0        |N       |		JSR	AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00022e96 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022e98 4a 1f                    |J       |		TST.B	(A7)+
00022e9a 67 04                    |g       |		BEQ	0x22ea0
00022e9c 4e ba f7 1e              |N       |		JSR	0x225bc
00022ea0 de c6                    |        |		ADDA.W	D6,A7
00022ea2 4a 40                    |J@      |		TST.W	D0
00022ea4 66 00 fe 84              |f       |		BNE	0x22d2a
00022ea8 42 27                    |B'      |		CLR.B	-(A7)
00022eaa 48 78 00 01              |Hx      |		PEA.L	0x1
00022eae 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022eb4 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022eb6 4c df 0f ff              |L       |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3
00022eba 4e 5e                    |N^      |		UNLK	A6
00022ebc 4e 75                    |Nu      |		RTS
00022ebe ; --------------------------------------------------------------------------------------
00022ebe ; OMSI PASCAL Function
00022ebe ; --------------------------------------------------------------------------------------
00022ebe					START:
00022ebe 4f fa 00 08              |O       |		LEA.L	MAIN,A7
00022ec2 4e f9 00 01 02 80        |N       |		JMP	?start_program
00022ec8					MAIN:
00022ec8 72 01                    |r       |		MOVEQ.L	#0x01,D1
00022eca 4e b9 00 01 03 98        |N       |		JSR	FSCALL_10398
00022ed0 42 39 00 02 31 a4        |B9  1   |		CLR.B	0x231a4
00022ed6 55 4f                    |UO      |		SUBQ.L	#0x2,A7
00022ed8 48 78 01 80              |Hx      |		PEA.L	0x180
00022edc 4e b9 00 01 05 92        |N       |		JSR	ReadConfig(where : Long) : Word
00022ee2 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022ee4 30 1f                    |0       |		MOVE.W	(A7)+,D0
00022ee6 48 c0                    |H       |		EXTW.L	D0
00022ee8 23 c0 00 02 31 a6        |#   1   |		MOVE.L	D0,0x231a6
00022eee 04 80 00 00 00 4d        |     M  |		SUBI.L	#0x0000004d,D0
00022ef4 0c 80 00 00 00 0b        |        |		CMPI.L	#0x0000000b,D0
00022efa 62 5a                    |bZ      |		BHI	switch@0x22efe[0x1]
00022efc d0 40                    | @      |		ADD.W	D0,D0
00022efe 30 3b 00 06 4e fb 00 02  |0;  N   |		SWITCH	D0.W
00022f06 00 18                    |        |		.CONST	0x18			; [0x0] -> 0x22f1e
00022f08 00 50                    | P      |		.CONST	0x50			; [0x1] -> 0x22f56
00022f0a 00 50                    | P      |		.CONST	0x50			; [0x2] -> 0x22f56
00022f0c 00 50                    | P      |		.CONST	0x50			; [0x3] -> 0x22f56
00022f0e 00 50                    | P      |		.CONST	0x50			; [0x4] -> 0x22f56
00022f10 00 50                    | P      |		.CONST	0x50			; [0x5] -> 0x22f56
00022f12 00 50                    | P      |		.CONST	0x50			; [0x6] -> 0x22f56
00022f14 00 50                    | P      |		.CONST	0x50			; [0x7] -> 0x22f56
00022f16 00 50                    | P      |		.CONST	0x50			; [0x8] -> 0x22f56
00022f18 00 50                    | P      |		.CONST	0x50			; [0x9] -> 0x22f56
00022f1a 00 50                    | P      |		.CONST	0x50			; [0xa] -> 0x22f56
00022f1c 00 4a                    | J      |		.CONST	0x4a			; [0xb] -> 0x22f50
00022f1e					switch@0x22efe[0x0]:
00022f1e 9e fc 00 3e              |   >    |		SUBA.W	#0x3e,A7
00022f22 20 4f                    | O      |		MOVEA.L	A7,A0
00022f24 43 fa d2 08              |C       |		LEA.L	0x2012e,A1
00022f28 70 3c                    |p<      |		MOVEQ.L	#0x3c,D0
00022f2a 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00022f2c 51 c8 ff fc              |Q       |		DBF	D0,0x22f2a
00022f30 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022f32 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022f36 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022f38 3f 3c 00 3d              |?< =    |		MOVE.W	#0x3d,-(A7)
00022f3c 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022f42 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f44 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022f4a de fc 00 42              |   B    |		ADDA.W	#0x42,A7
00022f4e 60 30                    |`0      |		BRA	0x22f80
00022f50					switch@0x22efe[0xb]:
00022f50 4e ba fd ac              |N       |		JSR	0x22cfe
00022f54 60 3a                    |`:      |		BRA	0x22f90
00022f56					switch@0x22efe[0x1]:
00022f56					switch@0x22efe[0x2]:
00022f56					switch@0x22efe[0x3]:
00022f56					switch@0x22efe[0x4]:
00022f56					switch@0x22efe[0x5]:
00022f56					switch@0x22efe[0x6]:
00022f56					switch@0x22efe[0x7]:
00022f56					switch@0x22efe[0x8]:
00022f56					switch@0x22efe[0x9]:
00022f56					switch@0x22efe[0xa]:
00022f56 41 fa d2 42              |A  B    |		LEA.L	0x2019a,A0
00022f5a 70 16                    |p       |		MOVEQ.L	#0x16,D0
00022f5c 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022f5e 51 c8 ff fc              |Q       |		DBF	D0,0x22f5c
00022f62 59 4f                    |YO      |		SUBQ.L	#0x4,A7
00022f64 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
00022f68 3f 01                    |?       |		MOVE.W	D1,-(A7)
00022f6a 3f 3c 00 2e              |?< .    |		MOVE.W	#0x2e,-(A7)
00022f6e 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022f74 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022f76 4e b9 00 01 03 e0        |N       |		JSR	WriteConsoleStringCrLf(str : String)
00022f7c de fc 00 32              |   2    |		ADDA.W	#0x32,A7
00022f80 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
00022f84 48 78 00 01              |Hx      |		PEA.L	0x1
00022f88 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00022f8e 5c 4f                    |\O      |		ADDQ.L	#0x6,A7
00022f90 4e b9 00 01 02 84        |N       |		JSR	?exit
00022f96 57 6f 72 64 73 20 65 72  |Words er|		.TXT	'Words error :_'
00022fa4 ; --------------------------------------------------------------------------------------
00022fa4 ; OMSI PASCAL Function
00022fa4 ;    <LVAR  0x008 1(r)>
00022fa4 ; --------------------------------------------------------------------------------------
00022fa4					PROG_FAIL:
00022fa4 4e 56 ff d2              |NV      |		LINK.W	A6,#0xffd2
00022fa8 bf d5                    |        |		CMPA.L	(A5),A7
00022faa 62 06                    |b       |		BHI	0x22fb2
00022fac 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
00022fb0 4e 76                    |Nv      |		TRAPV
00022fb2 de fc 00 2c              |   ,    |		ADDA.W	#0x2c,A7
00022fb6 48 e7 80 80              |H       |		MOVEM.L	A0+D0,-(A7)
00022fba 41 fa ff e8              |A       |		LEA.L	PROG_FAIL,A0
00022fbe 70 06                    |p       |		MOVEQ.L	#0x06,D0
00022fc0 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
00022fc2 51 c8 ff fc              |Q       |		DBF	D0,0x22fc0
00022fc6 1f 3c 00 03              | <      |		MOVE.B	#0x03,-(A7)
00022fca 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00022fcc 48 6f 00 0a              |Ho      |		PEA.L	(A7+0xa)
00022fd0 3f 3c 00 01              |?<      |		MOVE.W	#0x1,-(A7)
00022fd4 3f 3c 00 0e              |?<      |		MOVE.W	#0xe,-(A7)
00022fd8 4e b9 00 01 02 c4        |N       |		JSR	StringLit(Src : Pointer; Offset: W; Len : W) : String
00022fde 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022fe0 10 2e 00 08              | .      |		MOVE.B	(A6+0x8),D0
00022fe4 48 80                    |H       |		EXTB.W	D0
00022fe6 48 c0                    |H       |		EXTW.L	D0
00022fe8 2f 00                    |/       |		MOVE.L	D0,-(A7)
00022fea 4e b9 00 01 02 e4        |N       |		JSR	Long2String(a : Long) : String
00022ff0 58 4f                    |XO      |		ADDQ.L	#0x4,A7
00022ff2 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00022ff8 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00022ffa 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00023000 de fc 00 14              |        |		ADDA.W	#0x14,A7
00023004 4c df 01 01              |L       |		MOVEM.L	(A7)+,D0+A0
00023008 4e 5e                    |N^      |		UNLK	A6
0002300a 4e 75                    |Nu      |		RTS
0002300c 42 6f 61 72 64 20 20 20  |Board   |		.TXT	'Board      :_ '
0002301a 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment :_ '
00023028 53 74 61 74 75 73 20 20  |Status  |		.TXT	'Status     :_ '
00023036 45 78 70 65 72 69 6d 65  |Experime|		.TXT	'Experiment error :'
00023048 46 61 74 61 6c 20 65 78  |Fatal ex|		.TXT	'Fatal experiment error. '
00023060 ; --------------------------------------------------------------------------------------
00023060 ; OMSI PASCAL Function
00023060 ;    <LVAR  0x00e 1(r)>
00023060 ;    <LVAR  0x00a 4(r)>
00023060 ;    <LVAR  0x008 1(r)>
00023060 ; --------------------------------------------------------------------------------------
00023060					EXP_FAIL:
00023060 4e 56 ff 8c              |NV      |		LINK.W	A6,#0xff8c
00023064 bf d5                    |        |		CMPA.L	(A5),A7
00023066 62 06                    |b       |		BHI	0x2306e
00023068 44 fc 00 02              |D       |		MOVE.W	#0x2,CCR
0002306c 4e 76                    |Nv      |		TRAPV
0002306e de fc 00 74              |   t    |		ADDA.W	#0x74,A7
00023072 48 e7 fc f8              |H       |		MOVEM.L	A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
00023076 47 f9 00 01 02 c4        |G       |		LEA.L	StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
0002307c 49 f9 00 01 03 e0        |I       |		LEA.L	WriteConsoleStringCrLf(str : String),A4
00023082 72 01                    |r       |		MOVEQ.L	#0x01,D1
00023084 74 0d                    |t       |		MOVEQ.L	#0x0d,D2
00023086 76 1e                    |v       |		MOVEQ.L	#0x1e,D3
00023088 78 12                    |x       |		MOVEQ.L	#0x12,D4
0002308a 7a 0e                    |z       |		MOVEQ.L	#0x0e,D5
0002308c 4e b9 00 01 03 dc        |N       |		JSR	WriteConsoleCrLf(void)
00023092 41 fa ff b4              |A       |		LEA.L	0x23048,A0
00023096 70 08                    |p       |		MOVEQ.L	#0x08,D0
00023098 3f 20                    |?       |		MOVE.W	-(A0),-(A7)
0002309a 51 c8 ff fc              |Q       |		DBF	D0,0x23098
0002309e 59 4f                    |YO      |		SUBQ.L	#0x4,A7
000230a0 48 6f 00 04              |Ho      |		PEA.L	(A7+0x4)
000230a4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000230a6 3f 04                    |?       |		MOVE.W	D4,-(A7)
000230a8 4e 93                    |N       |		JSR	(A3)
000230aa 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000230ac 4e 94                    |N       |		JSR	(A4)
000230ae 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000230b0 20 4f                    | O      |		MOVEA.L	A7,A0
000230b2 43 fa ff 58              |C  X    |		LEA.L	0x2300c,A1
000230b6 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000230b8 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
000230ba 51 c8 ff fc              |Q       |		DBF	D0,0x230b8
000230be 51 4f                    |QO      |		SUBQ.L	#0x8,A7
000230c0 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
000230c4 3f 01                    |?       |		MOVE.W	D1,-(A7)
000230c6 3f 02                    |?       |		MOVE.W	D2,-(A7)
000230c8 4e 93                    |N       |		JSR	(A3)
000230ca 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000230cc 1e ae 00 0e              |        |		MOVE.B	(A6+0xe),(A7)
000230d0 4e b9 00 01 04 9c        |N       |		JSR	BoardName(address : B) : String
000230d6 54 4f                    |TO      |		ADDQ.L	#0x2,A7
000230d8 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
000230de 50 4f                    |PO      |		ADDQ.L	#0x8,A7
000230e0 4e 94                    |N       |		JSR	(A4)
000230e2 de c4                    |        |		ADDA.W	D4,A7
000230e4 20 6e 00 0a              | n      |		MOVEA.L	(A6+0xa),A0
000230e8 b0 c1                    |        |		CMPA.W	D1,A0
000230ea 67 48                    |gH      |		BEQ	0x23134
000230ec 9e c5                    |        |		SUBA.W	D5,A7
000230ee 22 4f                    |"O      |		MOVEA.L	A7,A1
000230f0 45 fa ff 28              |E  (    |		LEA.L	0x2301a,A2
000230f4 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
000230f6 12 da                    |        |		MOVE.B	(A2)+,(A1)+
000230f8 51 c8 ff fc              |Q       |		DBF	D0,0x230f6
000230fc 9e c3                    |        |		SUBA.W	D3,A7
000230fe 22 4f                    |"O      |		MOVEA.L	A7,A1
00023100 41 e8 00 fc              |A       |		LEA.L	(A0+0xfc),A0
00023104 70 1d                    |p       |		MOVEQ.L	#0x1d,D0
00023106 12 d8                    |        |		MOVE.B	(A0)+,(A1)+
00023108 51 c8 ff fc              |Q       |		DBF	D0,0x23106
0002310c 51 4f                    |QO      |		SUBQ.L	#0x8,A7
0002310e 48 6f 00 26              |Ho &    |		PEA.L	(A7+0x26)
00023112 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023114 3f 02                    |?       |		MOVE.W	D2,-(A7)
00023116 4e 93                    |N       |		JSR	(A3)
00023118 58 4f                    |XO      |		ADDQ.L	#0x4,A7
0002311a 48 6f 00 0c              |Ho      |		PEA.L	(A7+0xc)
0002311e 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023120 3f 03                    |?       |		MOVE.W	D3,-(A7)
00023122 4e 93                    |N       |		JSR	(A3)
00023124 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023126 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
0002312c 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002312e 4e 94                    |N       |		JSR	(A4)
00023130 de fc 00 30              |   0    |		ADDA.W	#0x30,A7
00023134 9e c5                    |        |		SUBA.W	D5,A7
00023136 20 4f                    | O      |		MOVEA.L	A7,A0
00023138 43 fa fe ee              |C       |		LEA.L	0x23028,A1
0002313c 70 0c                    |p       |		MOVEQ.L	#0x0c,D0
0002313e 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023140 51 c8 ff fc              |Q       |		DBF	D0,0x2313e
00023144 51 4f                    |QO      |		SUBQ.L	#0x8,A7
00023146 48 6f 00 08              |Ho      |		PEA.L	(A7+0x8)
0002314a 3f 01                    |?       |		MOVE.W	D1,-(A7)
0002314c 3f 02                    |?       |		MOVE.W	D2,-(A7)
0002314e 4e 93                    |N       |		JSR	(A3)
00023150 54 4f                    |TO      |		ADDQ.L	#0x2,A7
00023152 1e ae 00 08              |        |		MOVE.B	(A6+0x8),(A7)
00023156 4e b9 00 01 04 a2        |N       |		JSR	ExpStatus2Text(status.B, &String)
0002315c 54 4f                    |TO      |		ADDQ.L	#0x2,A7
0002315e 4e b9 00 01 02 d0        |N       |		JSR	StringCat2(a, b : String) : String
00023164 50 4f                    |PO      |		ADDQ.L	#0x8,A7
00023166 4e 94                    |N       |		JSR	(A4)
00023168 5d 4f                    |]O      |		SUBQ.L	#0x6,A7
0002316a 20 4f                    | O      |		MOVEA.L	A7,A0
0002316c 43 fa fe da              |C       |		LEA.L	0x23048,A1
00023170 70 16                    |p       |		MOVEQ.L	#0x16,D0
00023172 10 d9                    |        |		MOVE.B	(A1)+,(A0)+
00023174 51 c8 ff fc              |Q       |		DBF	D0,0x23172
00023178 1f 3c 00 02              | <      |		MOVE.B	#0x02,-(A7)
0002317c 59 4f                    |YO      |		SUBQ.L	#0x4,A7
0002317e 48 6f 00 06              |Ho      |		PEA.L	(A7+0x6)
00023182 3f 01                    |?       |		MOVE.W	D1,-(A7)
00023184 3f 3c 00 17              |?<      |		MOVE.W	#0x17,-(A7)
00023188 4e 93                    |N       |		JSR	(A3)
0002318a 50 4f                    |PO      |		ADDQ.L	#0x8,A7
0002318c 4e b9 00 01 03 b8        |N       |		JSR	PopProgram(status : Byte; msg : String)
00023192 de c3                    |        |		ADDA.W	D3,A7
00023194 4c df 1f 3f              |L  ?    |		MOVEM.L	(A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00023198 4e 5e                    |N^      |		UNLK	A6
0002319a 4e 75                    |Nu      |		RTS