|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 12800 (0x3200)
Types: M200
Notes: @(#)CONFIGURE,1.1,92/07/09,12:00:00, M200_PROGRAM
Names: »CONFIGURE_PAD.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »CONFIGURE_PAD.M200«
@ 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_PortWriteString(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
@ 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
@ 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_PortWriteString(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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
@ 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
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_PortWriteString(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_PortWriteString(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