|
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: M200_PROGRAM
Names: »CONFIGURE_PAD.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »CONFIGURE_PAD.M200«
@ 20f50
<LVAR 0x008 @ 4(r)>
<POP 20f50-20fa6 Body>
<POP 20f50-20f66 Prologue> Σ0 ↓
<POP 20f66-20f6a RegCacheLoad> Σ0 ↓
<POP 20f6a-20f9e Naked> Σ0 ↓
<MI 20f6a MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Const 0x20f6c 0xa.2> Δ-2 {[4, '(A6+0x8)']|[#10]}
<Call 0x20f70 0x102c0> {[4, '(A6+0x8)']|[#10]}
AppendChar(MOD b : String; a : char)
<POP 20f76-20f78 StackAdj> Δ+2 {[4, '(A6+0x8)']}
<MI 20f78 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x20f7a 0xd.2> Δ-2 {[4, '(A6+0x8)']|[#13]}
<Call 0x20f7e 0x102c0> {[4, '(A6+0x8)']|[#13]}
AppendChar(MOD b : String; a : char)
<POP 20f84-20f86 StackAdj> Δ+4 {[-2-]}
<POP 20f86-20f87 StackAdj> Δ+2 {}
<Const 0x20f87 0x1.2> Δ-2 {[#1]}
<MI 20f8a MOVE.L (A6+0x8),-(A7)> Δ-4 {[#1]|[4, '(A6+0x8)']}
<Call 0x20f8c 0x1020a> {[#1]|[4, '(A6+0x8)']}
KC05_PortWriteString(port : Word ; str : String)
<POP 20f92-20f94 StackAdj> Δ+6 {}
<Pointer.fp 0x20f94 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x20f96 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 20f9c-20f9e StackAdj> Δ+4 {}
<POP 20f9e-20fa6 Epilogue> Σ0
@ 20fa6
<LVAR -0x004 @ 4(r)>
<POP 20fa6-20fd0 Body>
<POP 20fa6-20fb8 Prologue> Σ0 ↓
<POP 20fb8-20fcc Naked> Σ0 ↓
<Pointer.fp 0x20fb8 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x20fbc 0x102b8> {[@@-4]}
NewString(VAR a : String)
<MI 20fc2 MOVE.L (A6-0x4),(A7)> {[4, '(A6-0x4)']}
<Call 0x20fc6 0x20f50> {[4, '(A6-0x4)']}
<POP 20fca-20fcc StackAdj> Δ+4 {}
<POP 20fcc-20fd0 Epilogue> Σ0
@ 20fd0
<LVAR 0x008 @ 4(r)>
<POP 20fd0-21018 Body>
<POP 20fd0-20fe6 Prologue> Σ0 ↓
<POP 20fe6-20fea RegCacheLoad> Σ0 ↓
<POP 20fea-21010 Naked> Σ0 ↓
<MI 20fea MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Const 0x20fec 0xd.2> Δ-2 {[4, '(A6+0x8)']|[#13]}
<Call 0x20ff0 0x102c0> {[4, '(A6+0x8)']|[#13]}
AppendChar(MOD b : String; a : char)
<POP 20ff6-20ff8 StackAdj> Δ+4 {[-2-]}
<POP 20ff8-20ff9 StackAdj> Δ+2 {}
<Const 0x20ff9 0x2.2> Δ-2 {[#2]}
<MI 20ffc MOVE.L (A6+0x8),-(A7)> Δ-4 {[#2]|[4, '(A6+0x8)']}
<Call 0x20ffe 0x1020a> {[#2]|[4, '(A6+0x8)']}
KC05_PortWriteString(port : Word ; str : String)
<POP 21004-21006 StackAdj> Δ+6 {}
<Pointer.fp 0x21006 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x21008 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 2100e-21010 StackAdj> Δ+4 {}
<POP 21010-21018 Epilogue> Σ0
@ 21018
<LVAR 0x00c 2(w)>
<LVAR 0x008 4(r)>
<POP 21018-2104e Body>
<POP 21018-2102e Prologue> Σ0 ↓
<POP 2102e-21046 Naked> Σ0 ↓
<POP 2102e-21030 StackAdj> Δ-2 {[-2-]}
<MI 21030 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x8)']}
<Call 0x21034 0x10592> {[-2-]|[4, '(A6+0x8)']}
ReadConfig(where : Long) : Word
<POP 2103a-2103c StackAdj> Δ+4 {[-2-]}
<MI 2103c MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x2103e LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21042 MOVE.W D0,(A6+0xc)> {}
<POP 21046-2104e Epilogue> Σ0
@ 2104e
<LVAR -0x004 @ 1(r)>
<POP 2104e-21104 Body>
<POP 2104e-21064 Prologue> Σ0 ↓
<POP 21064-21078 RegCacheLoad> Σ0 ↓
<POP 21078-2107c Naked> Σ0 ↓
<MI 21078 MOVEQ.L #0x00,D7> {}
<MI 2107a CLR.L 0x23986> {}
<POP 2107c-21084 Naked> Σ0 ↓ →0x210f4 ←0x210f0
<MI 2107c CMPI.L #0x00000014,D7> {}
<MI 21082 BEQ 0x210f4> {}
<POP 21084-21086 Naked> Σ0 ↓
<MI 21084 MOVEQ.L #0x01,D6> {}
<POP 21086-2109e Naked> Σ0 ↓ →0x210e6 ←0x210e6
<Const 0x21086 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x21088 <LVAR -0x004 @ 1(r)>> Δ-4 {[#2]|[@@-4]}
<Call 0x2108c 0x10212> {[#2]|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 21092-21094 StackAdj> Δ+6 {}
<MI 21094 MOVE.B (A6-0x4),D0> {}
<MI 21098 CMPI.B #0x01,D0> {}
<MI 2109c BNE 0x210e6> {}
<POP 2109e-210c0 Naked> Σ0 ↓ →0x210e2
<Const 0x2109e 0x2.2> Δ-2 {[#2]}
<MI 210a0 MOVE.L 0x23986,D0> {[#2]}
<POP 0x210a2 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[#2]}
<MI 210ac ASL.L #0x1,D0> {[#2]}
<MI 210ae LEA.L 0x23178,A0> {[#2]}
<MI 210b0 PEA.L (A0+D0.L+#0xe)> Δ-4 {[#2]|[4, '^(A0+D0.L+#0xe)']}
<Call 0x210b4 0x1020e> {[#2]|[4, '^(A0+D0.L+#0xe)']}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 210ba-210bc StackAdj> Δ+6 {}
<MI 210bc TST.B 0x23180> {}
<MI 210be BEQ 0x210e2> {}
<POP 210c0-210e2 Naked> Σ0 ↓
<MI 210c0 MOVE.L 0x23986,D0> {}
<POP 0x210c2 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {}
<MI 210cc ASL.L #0x1,D0> {}
<MI 210ce LEA.L 0x23178,A0> {}
<MI 210d0 MOVE.W (A0+D0.L+#0xe),D0> {}
<MI 210d4 ANDI.W #0x00ff,D0> {}
<MI 210d8 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Call 0x210da 0x103d0> {[2, 'D0']}
WriteConsoleChar(chr : char)
<POP 210e0-210e2 StackAdj> Δ+2 {}
<POP 210e2-210e6 Naked> Σ0 ↓ ←0x2109e
<MI 210e2 MOVEQ.L #0x00,D7> {}
<MI 210e4 ADDQ.L #0x1,0x23986> {}
<POP 210e6-210f0 Naked> Σ0 ↓ →0x21086 ←0x21086
<MI 210e6 ADDQ.L #0x1,D6> {}
<MI 210e8 CMPI.L #0x000003e8,D6> {}
<MI 210ee BLE 0x21086> {}
<POP 210f0-210f4 Naked> Σ0 →0x2107c
<MI 210f0 ADDQ.L #0x1,D7> {}
<MI 210f2 BRA 0x2107c> {}
<POP 210f4-210f8 Naked> Σ0 ↓ →0x210fc ←0x2107c
<MI 210f4 TST.B 0x23180> {}
<MI 210f6 BEQ 0x210fc> {}
<POP 210f8-210fc Naked> Σ0 ↓
<Call 0x210f8 0x20fa6> {}
<POP 210fc-21104 Epilogue> Σ0 ←0x210f4
@ 21104
<LVAR -0x006 @ 2(r)>
<LVAR -0x008 @ 1(r)>
<POP 21104-21276 Body>
<POP 21104-2111a Prologue> Σ0 ↓
<POP 2111a-2112c RegCacheLoad> Σ0 ↓
<POP 2112c-21172 Naked> Σ0 ↓
<MI 2112c CLR.B 0x23180> {}
<Call 0x21132 0x10216> {}
KC0b
<Call 0x21138 0x2104e> {}
<Blob 0x2113c [60] @> Δ-60 {[«60""»]}
<POP 21148-2114a StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x2114a 60> {[«60""»]|[$$Direct communication to PAD established, use <CNTL>C to exit]}
<Call 0x21158 0x103e0> {[«60""»]|[$$Direct communication to PAD established, use <CNTL>C to exit]}
WriteConsoleStringCrLf(str : String)
<POP 2115e-21162 StackAdj> Δ+62 {[-2-]}
<POP 21162-21163 StackAdj> Δ+2 {}
<Const 0x21163 0x2.2> Δ-2 {[#2]}
<Const 0x21164 0x10.2> Δ-2 {[#2]|[#16]}
<Call 0x21168 0x1020c> {[#2]|[#16]}
KC06_PortPutChar(port : Word ; b : char)
<POP 2116e-21170 StackAdj> Δ+4 {}
<MI 21170 MOVEQ.L #0x00,D6> {}
<POP 21172-21184 Naked> Σ0 ↓ →0x211b4 ←0x21268
<Const 0x21172 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x21174 <LVAR -0x008 @ 1(r)>> Δ-4 {[#1]|[@@-8]}
<Call 0x21176 0x10212> {[#1]|[@@-8]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 2117c-2117e StackAdj> Δ+6 {}
<MI 2117e MOVE.B (A6-0x8),D0> {}
<MI 21180 CMP.B #0x01,D0> {}
<MI 21182 BNE 0x211b4> {}
<POP 21184-2119e Naked> Σ0 ↓ →0x211a2
<Const 0x21184 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x21186 <LVAR -0x006 @ 2(r)>> Δ-4 {[#1]|[@@-6]}
<Call 0x21188 0x1020e> {[#1]|[@@-6]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 2118e-21190 StackAdj> Δ+6 {}
<MI 21190 MOVE.W (A6-0x6),D0> {}
<MI 21192 ANDI.W #0x00ff,D0> {}
<MI 21196 MOVE.B D0,D7> {}
<MI 21198 CMPI.B #0x03,D7> {}
<MI 2119c BNE 0x211a2> {}
<POP 2119e-211a2 Naked> Σ0 →0x211b2
<MI 2119e MOVEQ.L #0x01,D6> {}
<MI 211a0 BRA 0x211b2> {}
<POP 211a2-211b2 Naked> Σ0 ↓ ←0x21184
<Const 0x211a2 0x2.2> Δ-2 {[#2]}
<MI 211a4 CLR.L D0> {[#2]}
<MI 211a6 MOVE.B D7,D0> {[#2]}
<MI 211a8 MOVE.W D0,-(A7)> Δ-2 {[#2]|[2, 'D0']}
<Call 0x211aa 0x1020c> {[#2]|[2, 'D0']}
KC06_PortPutChar(port : Word ; b : char)
<POP 211b0-211b2 StackAdj> Δ+4 {}
<POP 211b2-211b4 Naked> Σ0 →0x211f2 ←0x2119e
<MI 211b2 BRA 0x211f2> {}
<POP 211b4-211b8 Naked> Σ0 ↓ →0x211f2 ←0x21172
<MI 211b4 TST.B D0> {}
<MI 211b6 BEQ 0x211f2> {}
<POP 211b8-211f2 Naked> Σ0 ↓
<Blob 0x211b8 [44] @> Δ-44 {[«44""»]}
<POP 211ca-211cc StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x211cc 43> {[«44""»]|[$$Unknown status retruned from console buffer]}
<Call 0x211da 0x103e0> {[«44""»]|[$$Unknown status retruned from console buffer]}
WriteConsoleStringCrLf(str : String)
<POP 211e0-211e4 StackAdj> Δ+46 {[-2-]}
<POP 211e4-211e5 StackAdj> Δ+2 {}
<Const 0x211e5 0x2.2> Δ-2 {[#2]}
<Const 0x211e6 0x1.4> Δ-4 {[#2]|[##1]}
<Call 0x211ea 0x103b8> {[#2]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 211f0-211f2 StackAdj> Δ+6 {}
<POP 211f2-21204 Naked> Σ0 ↓ →0x2122a ←0x211b2 ←0x211b4
<Const 0x211f2 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x211f4 <LVAR -0x008 @ 1(r)>> Δ-4 {[#2]|[@@-8]}
<Call 0x211f6 0x10212> {[#2]|[@@-8]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 211fc-211fe StackAdj> Δ+6 {}
<MI 211fe MOVE.B (A6-0x8),D0> {}
<MI 21200 CMP.B #0x01,D0> {}
<MI 21202 BNE 0x2122a> {}
<POP 21204-2122a Naked> Σ0 →0x21268
<Const 0x21204 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x21206 <LVAR -0x006 @ 2(r)>> Δ-4 {[#2]|[@@-6]}
<Call 0x21208 0x1020e> {[#2]|[@@-6]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 2120e-21210 StackAdj> Δ+6 {}
<MI 21210 MOVE.W (A6-0x6),D0> {}
<MI 21212 ANDI.W #0x00ff,D0> {}
<MI 21216 MOVE.B D0,D7> {}
<Const 0x21218 0x1.2> Δ-2 {[#1]}
<MI 2121a CLR.L D0> {[#1]}
<MI 2121c MOVE.B D7,D0> {[#1]}
<MI 2121e MOVE.W D0,-(A7)> Δ-2 {[#1]|[2, 'D0']}
<Call 0x21220 0x1020c> {[#1]|[2, 'D0']}
KC06_PortPutChar(port : Word ; b : char)
<POP 21226-21228 StackAdj> Δ+4 {}
<MI 21228 BRA 0x21268> {}
<POP 2122a-2122e Naked> Σ0 ↓ →0x21268 ←0x211f2
<MI 2122a TST.B D0> {}
<MI 2122c BEQ 0x21268> {}
<POP 2122e-21268 Naked> Σ0 ↓
<Blob 0x2122e [40] @> Δ-40 {[«40""»]}
<POP 21240-21242 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x21242 39> {[«40""»]|[$$Unknown status retruned from pad buffer]}
<Call 0x21250 0x103e0> {[«40""»]|[$$Unknown status retruned from pad buffer]}
WriteConsoleStringCrLf(str : String)
<POP 21256-2125a StackAdj> Δ+42 {[-2-]}
<POP 2125a-2125b StackAdj> Δ+2 {}
<Const 0x2125b 0x2.2> Δ-2 {[#2]}
<Const 0x2125c 0x1.4> Δ-4 {[#2]|[##1]}
<Call 0x21260 0x103b8> {[#2]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 21266-21268 StackAdj> Δ+6 {}
<POP 21268-2126e Naked> Σ0 ↓ →0x21172 ←0x21204 ←0x2122a
<MI 21268 TST.B D6> {}
<MI 2126a BEQ 0x21172> {}
<POP 2126e-21276 Epilogue> Σ0
@ 21276
<LVAR 0x008 1(w)>
<POP 21276-21418 Body>
<POP 21276-2128c Prologue> Σ0 ↓
<POP 2128c-212a6 RegCacheLoad> Σ0 ↓
<POP 212a6-212aa Naked> Σ0 ↓
<MI 212a6 CLR.L 0x23182> {}
<MI 212a8 MOVEQ.L #0x01,D7> {}
<POP 212aa-212b6 Naked> Σ0 ↓ →0x2140c ←0x21408
<MI 212aa MOVE.L 0x23182,D0> {}
<MI 212ac CMP.L 0x23986,D0> {}
<MI 212b2 BGE 0x2140c> {}
<POP 212b6-212bc Naked> Σ0 ↓ →0x2140c
<MI 212b6 TST.B D7> {}
<MI 212b8 BEQ 0x2140c> {}
<POP 212bc-212d8 Naked> Σ0 ↓ →0x21406
<MI 212bc MOVE.L D0,D1> {}
<MI 212be ADDQ.L #0x1,D1> {}
<POP 0x212c0 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {}
<MI 212c6 MOVE.L D0,D2> {}
<MI 212c8 ASL.L #0x1,D2> {}
<MI 212ca LEA.L 0x23178,A0> {}
<MI 212cc MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 212d0 AND.W #0xff,D2> {}
<MI 212d2 CMP.B #0x43,D2> {}
<MI 212d4 BNE 0x21406> {}
<POP 212d8-212f2 Naked> Σ0 ↓ →0x21406
<POP 0x212d8 LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {}
<MI 212de MOVE.L D1,D2> {}
<MI 212e0 ASL.L #0x1,D2> {}
<MI 212e2 LEA.L 0x23178,A0> {}
<MI 212e4 MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 212e8 AND.W #0xff,D2> {}
<MI 212ea CMPI.B #0x4d,D2> {}
<MI 212ee BNE 0x21406> {}
<POP 212f2-2130c Naked> Σ0 ↓ →0x21406
<MI 212f2 MOVE.L D0,D2> {}
<MI 212f4 ADDQ.L #0x2,D2> {}
<POP 0x212f6 LimitCheck 0x0 ≤ D2 ≤ 0x3ff> {}
<MI 212fc ASL.L #0x1,D2> {}
<MI 212fe LEA.L 0x23178,A0> {}
<MI 21300 MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 21304 AND.W #0xff,D2> {}
<MI 21306 CMP.B #0x44,D2> {}
<MI 21308 BNE 0x21406> {}
<POP 2130c-21328 Naked> Σ0 ↓ →0x21406
<MI 2130c MOVE.L D0,D2> {}
<MI 2130e ADDQ.L #0x3,D2> {}
<POP 0x21310 LimitCheck 0x0 ≤ D2 ≤ 0x3ff> {}
<MI 21316 ASL.L #0x1,D2> {}
<MI 21318 LEA.L 0x23178,A0> {}
<MI 2131a MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 2131e AND.W #0xff,D2> {}
<MI 21320 CMPI.B #0x20,D2> {}
<MI 21324 BNE 0x21406> {}
<POP 21328-21344 Naked> Σ0 ↓ →0x21406
<MI 21328 MOVE.L D0,D2> {}
<MI 2132a ADDQ.L #0x4,D2> {}
<POP 0x2132c LimitCheck 0x0 ≤ D2 ≤ 0x3ff> {}
<MI 21332 ASL.L #0x1,D2> {}
<MI 21334 LEA.L 0x23178,A0> {}
<MI 21336 MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 2133a AND.W #0xff,D2> {}
<MI 2133c CMPI.B #0x41,D2> {}
<MI 21340 BNE 0x21406> {}
<POP 21344-2135e Naked> Σ0 ↓ →0x21406
<MI 21344 MOVE.L D0,D2> {}
<MI 21346 ADDQ.L #0x5,D2> {}
<POP 0x21348 LimitCheck 0x0 ≤ D2 ≤ 0x3ff> {}
<MI 2134e ASL.L #0x1,D2> {}
<MI 21350 LEA.L 0x23178,A0> {}
<MI 21352 MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 21356 AND.W #0xff,D2> {}
<MI 21358 CMP.B #0x43,D2> {}
<MI 2135a BNE 0x21406> {}
<POP 2135e-21378 Naked> Σ0 ↓ →0x21406
<MI 2135e MOVE.L D0,D2> {}
<MI 21360 ADDQ.L #0x6,D2> {}
<POP 0x21362 LimitCheck 0x0 ≤ D2 ≤ 0x3ff> {}
<MI 21368 ASL.L #0x1,D2> {}
<MI 2136a LEA.L 0x23178,A0> {}
<MI 2136c MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 21370 AND.W #0xff,D2> {}
<MI 21372 CMP.B #0x43,D2> {}
<MI 21374 BNE 0x21406> {}
<POP 21378-21392 Naked> Σ0 ↓ →0x21406
<MI 21378 MOVE.L D0,D2> {}
<MI 2137a ADDQ.L #0x7,D2> {}
<POP 0x2137c LimitCheck 0x0 ≤ D2 ≤ 0x3ff> {}
<MI 21382 ASL.L #0x1,D2> {}
<MI 21384 LEA.L 0x23178,A0> {}
<MI 21386 MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 2138a AND.W #0xff,D2> {}
<MI 2138c CMPI.B #0x45,D2> {}
<MI 21390 BNE 0x21406> {}
<POP 21392-213ac Naked> Σ0 ↓ →0x21406
<MI 21392 MOVE.L D0,D2> {}
<MI 21394 ADDQ.L #0x8,D2> {}
<POP 0x21396 LimitCheck 0x0 ≤ D2 ≤ 0x3ff> {}
<MI 2139c ASL.L #0x1,D2> {}
<MI 2139e LEA.L 0x23178,A0> {}
<MI 213a0 MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 213a4 AND.W #0xff,D2> {}
<MI 213a6 CMPI.B #0x50,D2> {}
<MI 213aa BNE 0x21406> {}
<POP 213ac-213ca Naked> Σ0 ↓ →0x21406
<MI 213ac MOVE.L D0,D2> {}
<MI 213ae ADDI.L #0x00000009,D2> {}
<POP 0x213b4 LimitCheck 0x0 ≤ D2 ≤ 0x3ff> {}
<MI 213ba ASL.L #0x1,D2> {}
<MI 213bc LEA.L 0x23178,A0> {}
<MI 213be MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 213c2 AND.W #0xff,D2> {}
<MI 213c4 CMPI.B #0x54,D2> {}
<MI 213c8 BNE 0x21406> {}
<POP 213ca-213e8 Naked> Σ0 ↓ →0x21406
<MI 213ca MOVE.L D0,D2> {}
<MI 213cc ADDI.L #0x0000000a,D2> {}
<POP 0x213d2 LimitCheck 0x0 ≤ D2 ≤ 0x3ff> {}
<MI 213d8 ASL.L #0x1,D2> {}
<MI 213da LEA.L 0x23178,A0> {}
<MI 213dc MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 213e0 AND.W #0xff,D2> {}
<MI 213e2 CMPI.B #0x45,D2> {}
<MI 213e6 BNE 0x21406> {}
<POP 213e8-21402 Naked> Σ0 ↓ →0x21406
<MI 213e8 ADDI.L #0x0000000b,D0> {}
<POP 0x213ee LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {}
<MI 213f4 ASL.L #0x1,D0> {}
<MI 213f6 LEA.L 0x23178,A0> {}
<MI 213f8 MOVE.W (A0+D0.L+#0xe),D0> {}
<MI 213fc AND.W #0xff,D0> {}
<MI 213fe CMP.B #0x44,D0> {}
<MI 21400 BNE 0x21406> {}
<POP 21402-21406 Naked> Σ0 →0x21408
<MI 21402 MOVEQ.L #0x00,D7> {}
<MI 21404 BRA 0x21408> {}
<POP 21406-21408 Naked> Σ0 ↓ ←0x212bc ←0x212d8 ←0x212f2 ←0x2130c ←0x21328 ←0x21344 ←0x2135e ←0x21378 ←0x21392 ←0x213ac ←0x213ca ←0x213e8
<MI 21406 MOVE.L D1,0x23182> {}
<POP 21408-2140c Naked> Σ0 →0x212aa ←0x21402
<MI 21408 BRA 0x212aa> {}
<POP 2140c-21410 Naked> Σ0 ↓ ←0x212aa ←0x212b6
<MI 2140c MOVE.B D7,(A6+0x8)> {}
<POP 21410-21418 Epilogue> Σ0
@ 21418
<LVAR 0x008 1(w)>
<POP 21418-21542 Body>
<POP 21418-2142e Prologue> Σ0 ↓
<POP 2142e-21446 RegCacheLoad> Σ0 ↓
<POP 21446-2144a Naked> Σ0 ↓
<MI 21446 CLR.L 0x23182> {}
<MI 21448 MOVEQ.L #0x01,D7> {}
<POP 2144a-21456 Naked> Σ0 ↓ →0x21536 ←0x21532
<MI 2144a MOVE.L 0x23182,D0> {}
<MI 2144c CMP.L 0x23986,D0> {}
<MI 21452 BGE 0x21536> {}
<POP 21456-2145c Naked> Σ0 ↓ →0x21536
<MI 21456 TST.B D7> {}
<MI 21458 BEQ 0x21536> {}
<POP 2145c-2147a Naked> Σ0 ↓ →0x21530
<MI 2145c MOVE.L D0,D1> {}
<MI 2145e ADDQ.L #0x1,D1> {}
<POP 0x21460 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {}
<MI 21466 MOVE.L D0,D2> {}
<MI 21468 ASL.L #0x1,D2> {}
<MI 2146a LEA.L 0x23178,A0> {}
<MI 2146c MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 21470 AND.W #0xff,D2> {}
<MI 21472 CMPI.B #0x53,D2> {}
<MI 21476 BNE 0x21530> {}
<POP 2147a-21492 Naked> Σ0 ↓ →0x21530
<POP 0x2147a LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {}
<MI 21480 MOVE.L D1,D2> {}
<MI 21482 ASL.L #0x1,D2> {}
<MI 21484 LEA.L 0x23178,A0> {}
<MI 21486 MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 2148a AND.W #0xff,D2> {}
<MI 2148c CMP.B #0x45,D2> {}
<MI 2148e BNE 0x21530> {}
<POP 21492-214ae Naked> Σ0 ↓ →0x21530
<MI 21492 MOVE.L D0,D2> {}
<MI 21494 ADDQ.L #0x2,D2> {}
<POP 0x21496 LimitCheck 0x0 ≤ D2 ≤ 0x3ff> {}
<MI 2149c ASL.L #0x1,D2> {}
<MI 2149e LEA.L 0x23178,A0> {}
<MI 214a0 MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 214a4 AND.W #0xff,D2> {}
<MI 214a6 CMPI.B #0x52,D2> {}
<MI 214aa BNE 0x21530> {}
<POP 214ae-214c8 Naked> Σ0 ↓ →0x21530
<MI 214ae MOVE.L D0,D2> {}
<MI 214b0 ADDQ.L #0x3,D2> {}
<POP 0x214b2 LimitCheck 0x0 ≤ D2 ≤ 0x3ff> {}
<MI 214b8 ASL.L #0x1,D2> {}
<MI 214ba LEA.L 0x23178,A0> {}
<MI 214bc MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 214c0 AND.W #0xff,D2> {}
<MI 214c2 CMPI.B #0x56,D2> {}
<MI 214c6 BNE 0x21530> {}
<POP 214c8-214e2 Naked> Σ0 ↓ →0x21530
<MI 214c8 MOVE.L D0,D2> {}
<MI 214ca ADDQ.L #0x4,D2> {}
<POP 0x214cc LimitCheck 0x0 ≤ D2 ≤ 0x3ff> {}
<MI 214d2 ASL.L #0x1,D2> {}
<MI 214d4 LEA.L 0x23178,A0> {}
<MI 214d6 MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 214da AND.W #0xff,D2> {}
<MI 214dc CMPI.B #0x49,D2> {}
<MI 214e0 BNE 0x21530> {}
<POP 214e2-214fc Naked> Σ0 ↓ →0x21530
<MI 214e2 MOVE.L D0,D2> {}
<MI 214e4 ADDQ.L #0x5,D2> {}
<POP 0x214e6 LimitCheck 0x0 ≤ D2 ≤ 0x3ff> {}
<MI 214ec ASL.L #0x1,D2> {}
<MI 214ee LEA.L 0x23178,A0> {}
<MI 214f0 MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 214f4 AND.W #0xff,D2> {}
<MI 214f6 CMPI.B #0x43,D2> {}
<MI 214fa BNE 0x21530> {}
<POP 214fc-21514 Naked> Σ0 ↓ →0x21530
<MI 214fc MOVE.L D0,D2> {}
<MI 214fe ADDQ.L #0x6,D2> {}
<POP 0x21500 LimitCheck 0x0 ≤ D2 ≤ 0x3ff> {}
<MI 21506 ASL.L #0x1,D2> {}
<MI 21508 LEA.L 0x23178,A0> {}
<MI 2150a MOVE.W (A0+D2.L+#0xe),D2> {}
<MI 2150e AND.W #0xff,D2> {}
<MI 21510 CMP.B #0x45,D2> {}
<MI 21512 BNE 0x21530> {}
<POP 21514-2152c Naked> Σ0 ↓ →0x21530
<MI 21514 ADDQ.L #0x7,D0> {}
<POP 0x21516 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {}
<MI 2151c ASL.L #0x1,D0> {}
<MI 2151e LEA.L 0x23178,A0> {}
<MI 21520 MOVE.W (A0+D0.L+#0xe),D0> {}
<MI 21524 AND.W #0xff,D0> {}
<MI 21526 CMPI.B #0x3a,D0> {}
<MI 2152a BNE 0x21530> {}
<POP 2152c-21530 Naked> Σ0 →0x21532
<MI 2152c MOVEQ.L #0x00,D7> {}
<MI 2152e BRA 0x21532> {}
<POP 21530-21532 Naked> Σ0 ↓ ←0x2145c ←0x2147a ←0x21492 ←0x214ae ←0x214c8 ←0x214e2 ←0x214fc ←0x21514
<MI 21530 MOVE.L D1,0x23182> {}
<POP 21532-21536 Naked> Σ0 →0x2144a ←0x2152c
<MI 21532 BRA 0x2144a> {}
<POP 21536-2153a Naked> Σ0 ↓ ←0x2144a ←0x21456
<MI 21536 MOVE.B D7,(A6+0x8)> {}
<POP 2153a-21542 Epilogue> Σ0
@ 21542
<LVAR -0x008 @ 4(rw)>
<LVAR -0x00c @ 4(rw)>
<LVAR -0x014 @ 4(rw)>
<POP 21542-21db6 Body> Δ+98
<POP 21542-21558 Prologue> Σ0 ↓
<POP 21558-2156c RegCacheLoad> Σ0 ↓
<POP 2156c-21602 Naked> Σ0 →0x2160a →0x2163e →0x21670 →0x216a2
<MI 2156c CLR.B 0x23180> {}
<Call 0x21572 0x10216> {}
KC0b
<Call 0x21578 0x2104e> {}
<Blob 0x2157a [36] @> Δ-36 {[«36""»]}
<POP 2158a-2158c StackAdj> Δ-6 {[«36""»]|[-6-]}
<Lit 0x2158c 35> {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]}
<POP 21598-2159a StackAdj> Δ-2 {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
<MI 2159a CLR.B (A7)> {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
<Call 0x2159c 0x103f0> {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 215a2-215a4 StackAdj> Δ+6 {[«36""»]|[-2-]}
<MI 215a4 MOVE.B (A7)+,D0> Δ+2 {[«36""»]}
<MI 215a6 EXTB.W D0> {[«36""»]}
<POP 0x215a8 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«36""»]}
<POP 215aa-215ac StackAdj> Δ+36 {}
<MI 215ac MOVE.B D0,0x23180> {}
<Blob 0x215b2 [54] @> Δ-54 {[«54""»]}
<POP 215c4-215c6 StackAdj> Δ-8 {[«54""»]|[-8-]}
<Lit 0x215c6 53> {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]}
<Const 0x215d4 0x2.4> Δ-4 {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]}
<Const 0x215d8 0x5.4> Δ-4 {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
<Call 0x215dc 0x103ec> {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 215e2-215e4 StackAdj> Δ+12 {[«54""»]|[-4-]}
<MI 215e4 MOVE.L (A7)+,D7> Δ+4 {[«54""»]}
<POP 215e6-215ea StackAdj> Δ+54 {}
<MI 215ea MOVE.L D7,D0> {}
<MI 215ec SUBQ.L #0x2,D0> {}
<POP 0x215ee LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 215f8 ADD.W D0,D0> {}
<MI 215fa SWITCH D0.W> {}
<POP 2160a-2163e Naked> Σ0 Δ-8 →0x216d2 ←0x2156c
<Blob 0x2160a [2] @> Δ-2 {[«2""»]}
<Blob 0x2160e [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x21612 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 21616-21618 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x21618 6> {[«2""»]|[«2""»]|[«2""»]|[$$ PO:2_]}
<MI 21626 MOVE.L (A7)+,(A6-0xc)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 2162a-2162b StackAdj> Δ+6 ↓ {}
<Blob 0x2162b [8] @> Δ-8 {[«8""»]}
<MI 2163a BRA 0x216d2> {[«8""»]}
<POP 2163e-21670 Naked> Σ0 Δ-8 →0x216d2 ←0x2156c
<Blob 0x2163e [2] @> Δ-2 {[«2""»]}
<Blob 0x21642 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x21646 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 2164a-2164c StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x2164c 6> {[«2""»]|[«2""»]|[«2""»]|[$$ PO:3_]}
<MI 2165a MOVE.L (A7)+,(A6-0xc)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 2165e-2165f StackAdj> Δ+6 ↓ {}
<Blob 0x2165f [8] @> Δ-8 {[«8""»]}
<MI 2166e BRA 0x216d2> {[«8""»]}
<POP 21670-216a2 Naked> Σ0 Δ-8 →0x216d2 ←0x2156c
<Blob 0x21670 [2] @> Δ-2 {[«2""»]}
<Blob 0x21674 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x21678 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 2167c-2167e StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x2167e 6> {[«2""»]|[«2""»]|[«2""»]|[$$ PO:4_]}
<MI 2168c MOVE.L (A7)+,(A6-0xc)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 21690-21691 StackAdj> Δ+6 ↓ {}
<Blob 0x21691 [8] @> Δ-8 {[«8""»]}
<MI 216a0 BRA 0x216d2> {[«8""»]}
<POP 216a2-216d2 Naked> Σ0 Δ-8 ↓ ←0x2156c
<Blob 0x216a2 [2] @> Δ-2 {[«2""»]}
<Blob 0x216a6 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x216aa [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 216ae-216b0 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x216b0 6> {[«2""»]|[«2""»]|[«2""»]|[$$ PO:5_]}
<MI 216be MOVE.L (A7)+,(A6-0xc)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 216c2-216c3 StackAdj> Δ+6 ↓ {}
<Blob 0x216c3 [8] @> Δ-8 {[«8""»]}
<POP 216d2-216e8 Naked> Σ-8 Δ+8 ↓ ←0x2160a ←0x2163e ←0x21670
<POP 216d2-216d4 StackAdj> Δ-4 {[-12-]}
<Lit 0x216d4> {[-8-]|[$$…]}
<Pointer.sp 0x216d4 4> Δ-4
<Const 0x216d8 0x1.2> Δ-2
<Const 0x216da 0x7.2> Δ-2
<Call 0x216de 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 216e0-216e2 StackAdj> Δ+8
<MI 216e2 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[-8-]}
<POP 216e6-216e8 StackAdj> Δ+8 {}
<POP 216e8-2171c Naked> Σ0 ↓ →0x216e8 ←0x216e8
<Blob 0x216e8 [62] @> Δ-62 {[«62""»]}
<POP 216fa-216fc StackAdj> Δ-8 {[«62""»]|[-8-]}
<Lit 0x216fc 61> {[«62""»]|[-4-]|[$$Enter the DTE address identification (ID) for the IOC port :_]}
<Call 0x2170a 0x103e4> {[«62""»]|[-4-]|[$$Enter the DTE address identification (ID) for the IOC port :_]}
AskConsoleString(prompt : String) : String
<POP 21710-21712 StackAdj> Δ+4 {[«62""»]|[-4-]}
<MI 21712 MOVEA.L (A7)+,A4> Δ+4 {[«62""»]}
<POP 21714-21718 StackAdj> Δ+62 {}
<MI 21718 TST.W (A4)> {}
<MI 2171a BEQ 0x216e8> {}
<POP 2171c-21762 Naked> Σ0 ↓ →0x217d8
<Blob 0x2171c [38] @> Δ-38 {[«38""»]}
<POP 21728-2172a StackAdj> Δ-8 {[«38""»]|[-8-]}
<Lit 0x2172a 38> {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]}
<Const 0x21738 0x40.4> Δ-4 {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]}
<Const 0x2173c 0x100.4> Δ-4 {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]|[##256]}
<Call 0x21740 0x103ec> {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]|[##256]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 21746-21748 StackAdj> Δ+12 {[«38""»]|[-4-]}
<MI 21748 MOVE.L (A7)+,D6> Δ+4 {[«38""»]}
<POP 2174a-2174c StackAdj> Δ+36 {[-2-]}
<POP 2174c-2174d StackAdj> Δ+2 {}
<Const 0x2174d 0x2.2> Δ-2 {[#2]}
<Const 0x2174e 0x10.2> Δ-2 {[#2]|[#16]}
<Call 0x21750 0x1020c> {[#2]|[#16]}
KC06_PortPutChar(port : Word ; b : char)
<POP 21756-21758 StackAdj> Δ+4 {}
<Call 0x21758 0x2104e> {}
<MI 2175a TST.L 0x23986> {}
<MI 21760 BNE 0x217d8> {}
<POP 21762-217a4 Naked> Σ0 ↓ →0x217d8
<Const 0x21762 0x2.2> Δ-2 {[#2]}
<Const 0x21764 0x2e.2> Δ-2 {[#2]|[#46]}
<Call 0x21768 0x1020c> {[#2]|[#46]}
KC06_PortPutChar(port : Word ; b : char)
<POP 2176e-21770 StackAdj> Δ+2 {[#2]}
<POP 21770-21771 StackAdj> Δ+2 {}
<Const 0x21771 0x2.2> Δ-2 {[#2]}
<Const 0x21772 0x2e.2> Δ-2 {[#2]|[#46]}
<Call 0x21776 0x1020c> {[#2]|[#46]}
KC06_PortPutChar(port : Word ; b : char)
<POP 2177c-2177e StackAdj> Δ+2 {[#2]}
<POP 2177e-2177f StackAdj> Δ+2 {}
<Const 0x2177f 0x2.2> Δ-2 {[#2]}
<Const 0x21780 0x2e.2> Δ-2 {[#2]|[#46]}
<Call 0x21784 0x1020c> {[#2]|[#46]}
KC06_PortPutChar(port : Word ; b : char)
<POP 2178a-2178c StackAdj> Δ+2 {[#2]}
<POP 2178c-2178d StackAdj> Δ+2 {}
<Const 0x2178d 0x2.2> Δ-2 {[#2]}
<Const 0x2178e 0xd.2> Δ-2 {[#2]|[#13]}
<Call 0x21792 0x1020c> {[#2]|[#13]}
KC06_PortPutChar(port : Word ; b : char)
<POP 21798-2179a StackAdj> Δ+4 {}
<Call 0x2179a 0x2104e> {}
<MI 2179c TST.L 0x23986> {}
<MI 217a2 BNE 0x217d8> {}
<POP 217a4-217d8 Naked> Σ0 ↓
<Blob 0x217a4 [48] @> Δ-48 {[«48""»]}
<POP 217b0-217b2 StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x217b2 48> {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
<Call 0x217c0 0x103e0> {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
WriteConsoleStringCrLf(str : String)
<POP 217c6-217ca StackAdj> Δ+50 {[-2-]}
<POP 217ca-217cb StackAdj> Δ+2 {}
<Const 0x217cb 0x2.2> Δ-2 {[#2]}
<Const 0x217cc 0x1.4> Δ-4 {[#2]|[##1]}
<Call 0x217d0 0x103b8> {[#2]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 217d6-217d8 StackAdj> Δ+6 {}
<POP 217d8-2186c Naked> Σ0 ↓ →0x218c2 ←0x2171c ←0x21762
<Pointer.fp 0x217d8 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x217dc 0x102b8> {[@@-20]}
NewString(VAR a : String)
<POP 217e2-217e3 StackAdj> Δ+4 ↓ {}
<Blob 0x217e3 [10] @> Δ-10 {[«10""»]}
<Blob 0x217f2 [10] @> Δ-10 {[«10""»]|[«10""»]}
<POP 21804-21806 StackAdj> Δ-4 {[«10""»]|[«10""»]|[-4-]}
<MI 21806 MOVE.L (A6-0x14),-(A7)> Δ-4 {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']}
<POP 2180a-2180c StackAdj> Δ-4 {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
<Lit 0x2180c 9> {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]}
<POP 21818-2181a StackAdj> Δ-4 {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[-4-]}
<MI 2181a MOVE.L A4,(A7)> {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']}
<POP 2181c-2181e StackAdj> Δ-8 {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]}
<MI 2181e MOVE.L (A6-0x8),-(A7)> Δ-4 {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x8)']}
<Call 0x21822 0x102cc> {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x8)']}
StringDup(a : String) : String
<MI 21828 MOVE.L (A6-0xc),-(A7)> Δ-4 {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x8)']|[4, '(A6-0xc)']}
<Call 0x2182c 0x102cc> {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x8)']|[4, '(A6-0xc)']}
StringDup(a : String) : String
<Lit 0x21832 9> {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x8)']|[$$PA:XYXYXY]}
<Call 0x21840 0x102d4> {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x8)']|[$$PA:XYXYXY]}
StringCat3(a, b, c : String) : String
<POP 21846-21848 StackAdj> Δ+12 {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-4-]}
<Call 0x21848 0x102d8> {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$A P G AD:]|[4, 'A4']|[-4-]}
StringCat4(a, b, c, d : String) : String
<POP 2184e-21850 StackAdj> Δ+16 {[«10""»]|[«10""»]|[-4-]}
<MI 21850 MOVE.L (A7)+,(A6-0x14)> Δ+4 {[«10""»]|[«10""»]}
<POP 21854-21856 StackAdj> Δ+16 {[-4-]}
<MI 21856 MOVE.L (A6-0x14),(A7)> {[4, '(A6-0x14)']}
<Call 0x2185a 0x20fd0> {[4, '(A6-0x14)']}
<POP 2185e-21860 StackAdj> Δ+4 {}
<Call 0x21860 0x2104e> {}
<POP 21862-21864 StackAdj> Δ-2 {[-2-]}
<Call 0x21864 0x21276> {[-2-]}
<MI 21868 TST.B (A7)+> Δ+2 {}
<MI 2186a BEQ 0x218c2> {}
<POP 2186c-218c2 Naked> Σ0 →0x21daa
<Blob 0x2186c [64] @> Δ-64 {[«64""»]}
<POP 2187e-21880 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x21880 63> {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
<Call 0x2188e 0x103e0> {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
WriteConsoleStringCrLf(str : String)
<POP 21894-21898 StackAdj> Δ+68 {}
<Blob 0x21898 [66] @> Δ-66 {[«66""»]}
<POP 218a4-218a6 StackAdj> Δ-4 {[«66""»]|[-4-]}
<Lit 0x218a6 66> {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
<Call 0x218b4 0x103e0> {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
WriteConsoleStringCrLf(str : String)
<POP 218ba-218be StackAdj> Δ+70 {}
<MI 218be BRA 0x21daa> {}
<POP 218c2-2194a Naked> Σ0 ↓ →0x2197a ←0x217d8
<Pointer.fp 0x218c2 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x218c6 0x102b8> {[@@-20]}
NewString(VAR a : String)
<POP 218cc-218ce StackAdj> Δ+4 {}
<Blob 0x218ce [14] @> Δ-14 {[«14""»]}
<Blob 0x218da [4] @> Δ-4 {[«14""»]|[«4""»]}
<Blob 0x218de [20] @> Δ-20 {[«14""»]|[«4""»]|[«20""»]}
<POP 218ea-218ec StackAdj> Δ-8 {[«14""»]|[«4""»]|[«20""»]|[-8-]}
<Lit 0x218ec 14> {[«14""»]|[«4""»]|[«20""»]|[-4-]|[$$S N C CH:1 NS:]}
<MI 218f8 MOVE.L D6,(A7)> {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']}
<POP 218f6-218f8 StackAdj> Δ-8 {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-8-]}
<Call 0x218fa 0x102e4> {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-8-]}
Long2String(a : Long) : String
<Lit 0x21900 4> {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-4-]|[$$ SS:]}
<MI 2190c MOVE.L D6,(A7)> {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D6']}
<POP 2190a-2190c StackAdj> Δ-8 {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D6']|[-8-]}
<Call 0x2190e 0x102e4> {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D6']|[-8-]}
Long2String(a : Long) : String
<Lit 0x21914 20> {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D6']|[-4-]|[$$ FW:7 PW:2 PA:XYXYXY]}
<Call 0x21922 0x102dc> {[«14""»]|[«4""»]|[«20""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D6']|[-4-]|[$$ FW:7 PW:2 PA:XYXYXY]}
StringCat5(a, b, c, d, e : String) : String
<POP 21928-2192c StackAdj> Δ+20 {[«14""»]|[«4""»]|[«20""»]|[-4-]}
<MI 2192c MOVE.L (A7)+,(A6-0x14)> Δ+4 {[«14""»]|[«4""»]|[«20""»]}
<POP 21930-21934 StackAdj> Δ+34 {[-4-]}
<MI 21934 MOVE.L (A6-0x14),(A7)> {[4, '(A6-0x14)']}
<Call 0x21938 0x20fd0> {[4, '(A6-0x14)']}
<POP 2193c-2193e StackAdj> Δ+4 {}
<Call 0x2193e 0x2104e> {}
<POP 21940-21942 StackAdj> Δ-2 {[-2-]}
<Call 0x21942 0x21276> {[-2-]}
<MI 21946 TST.B (A7)+> Δ+2 {}
<MI 21948 BEQ 0x2197a> {}
<POP 2194a-2195c Naked> Σ0 Δ-14 ↓
<Blob 0x2194a [14] @> Δ-14 {[«14""»]}
<POP 2195c-2197a Naked> Σ-14 Δ+14 →0x21d34 ←0x21a1c ←0x21aa8 ←0x21b3c
<POP 2195c-2195e StackAdj> Δ-4 {[-18-]}
<Lit 0x2195e> {[-14-]|[$$…]}
<Pointer.sp 0x2195e 4> Δ-4
<Const 0x21962 0x1.2> Δ-2
<Const 0x21964 0xd.2> Δ-2
<Call 0x21968 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2196a-2196c StackAdj> Δ+8
<Call 0x2196c 0x103e0> {[-14-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 21972-21976 StackAdj> Δ+18 {}
<MI 21976 BRA 0x21d34> {}
<POP 2197a-21a1c Naked> Σ0 ↓ →0x21a32 ←0x218c2
<Pointer.fp 0x2197a <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x2197e 0x102b8> {[@@-20]}
NewString(VAR a : String)
<POP 21984-21986 StackAdj> Δ+4 {}
<Blob 0x21986 [24] @> Δ-24 {[«24""»]}
<Blob 0x21992 [12] @> Δ-12 {[«24""»]|[«12""»]}
<Blob 0x219a2 [20] @> Δ-20 {[«24""»]|[«12""»]|[«20""»]}
<POP 219b4-219b6 StackAdj> Δ-4 {[«24""»]|[«12""»]|[«20""»]|[-4-]}
<MI 219b6 MOVE.L (A6-0x14),-(A7)> Δ-4 {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']}
<POP 219ba-219bc StackAdj> Δ-4 {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
<Lit 0x219bc 24> {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[$$S A P CO:B DC:N DO:N FS:]}
<MI 219c8 MOVE.L D6,(A7)> {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']}
<POP 219c6-219c8 StackAdj> Δ-8 {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-8-]}
<Call 0x219ca 0x102e4> {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-8-]}
Long2String(a : Long) : String
<Lit 0x219d0 11> {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-4-]|[$$ ID:A2 PC:N]}
<MI 219dc MOVE.L (A6-0xc),(A7)> {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-4-]|[4, '(A6-0xc)']}
<POP 219da-219dc StackAdj> Δ-8 {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-4-]|[4, '(A6-0xc)']|[-8-]}
<Call 0x219e0 0x102cc> {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-4-]|[4, '(A6-0xc)']|[-8-]}
StringDup(a : String) : String
<Lit 0x219e6 19> {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-4-]|[4, '(A6-0xc)']|[-4-]|[$$TP:Y US:N PA:XYXYXY]}
<Call 0x219f4 0x102e0> {[«24""»]|[«12""»]|[«20""»]|[-4-]|[4, '(A6-0x14)']|[4, 'D6']|[-4-]|[4, '(A6-0xc)']|[-4-]|[$$TP:Y US:N PA:XYXYXY]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 219fa-219fe StackAdj> Δ+24 {[«24""»]|[«12""»]|[«20""»]|[-4-]}
<MI 219fe MOVE.L (A7)+,(A6-0x14)> Δ+4 {[«24""»]|[«12""»]|[«20""»]}
<POP 21a02-21a06 StackAdj> Δ+52 {[-4-]}
<MI 21a06 MOVE.L (A6-0x14),(A7)> {[4, '(A6-0x14)']}
<Call 0x21a0a 0x20fd0> {[4, '(A6-0x14)']}
<POP 21a0e-21a10 StackAdj> Δ+4 {}
<Call 0x21a10 0x2104e> {}
<POP 21a12-21a14 StackAdj> Δ-2 {[-2-]}
<Call 0x21a14 0x21276> {[-2-]}
<MI 21a18 TST.B (A7)+> Δ+2 {}
<MI 21a1a BEQ 0x21a32> {}
<POP 21a1c-21a32 Naked> Σ0 Δ-14 →0x2195c
<Blob 0x21a1c [14] @> Δ-14 {[«14""»]}
<MI 21a2e BRA 0x2195c> {[«14""»]}
<POP 21a32-21aa8 Naked> Σ0 ↓ →0x21abe ←0x2197a
<Pointer.fp 0x21a32 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x21a36 0x102b8> {[@@-20]}
NewString(VAR a : String)
<POP 21a3c-21a3e StackAdj> Δ+4 {}
<Blob 0x21a3e [10] @> Δ-10 {[«10""»]}
<Blob 0x21a4a [32] @> Δ-32 {[«10""»]|[«32""»]}
<POP 21a56-21a58 StackAdj> Δ-4 {[«10""»]|[«32""»]|[-4-]}
<MI 21a58 MOVE.L (A6-0x14),-(A7)> Δ-4 {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']}
<POP 21a5c-21a5e StackAdj> Δ-4 {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
<Lit 0x21a5e 10> {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[$$S L P LE:8]}
<MI 21a6a MOVE.L (A6-0xc),(A7)> {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']}
<POP 21a68-21a6a StackAdj> Δ-8 {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-8-]}
<Call 0x21a6e 0x102cc> {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-8-]}
StringDup(a : String) : String
<Lit 0x21a74 32> {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-4-]|[$$PR:N ST:1 SP:9600 UC:Y PA:XYXYXY]}
<Call 0x21a82 0x102d8> {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-4-]|[$$PR:N ST:1 SP:9600 UC:Y PA:XYXYXY]}
StringCat4(a, b, c, d : String) : String
<POP 21a88-21a8a StackAdj> Δ+16 {[«10""»]|[«32""»]|[-4-]}
<MI 21a8a MOVE.L (A7)+,(A6-0x14)> Δ+4 {[«10""»]|[«32""»]}
<POP 21a8e-21a92 StackAdj> Δ+38 {[-4-]}
<MI 21a92 MOVE.L (A6-0x14),(A7)> {[4, '(A6-0x14)']}
<Call 0x21a96 0x20fd0> {[4, '(A6-0x14)']}
<POP 21a9a-21a9c StackAdj> Δ+4 {}
<Call 0x21a9c 0x2104e> {}
<POP 21a9e-21aa0 StackAdj> Δ-2 {[-2-]}
<Call 0x21aa0 0x21276> {[-2-]}
<MI 21aa4 TST.B (A7)+> Δ+2 {}
<MI 21aa6 BEQ 0x21abe> {}
<POP 21aa8-21abe Naked> Σ0 Δ-14 →0x2195c
<Blob 0x21aa8 [14] @> Δ-14 {[«14""»]}
<MI 21aba BRA 0x2195c> {[«14""»]}
<POP 21abe-21b3c Naked> Σ0 ↓ →0x21b52 ←0x21a32
<Pointer.fp 0x21abe <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x21ac2 0x102b8> {[@@-20]}
NewString(VAR a : String)
<POP 21ac8-21ac9 StackAdj> Δ+4 ↓ {}
<Blob 0x21ac9 [16] @> Δ-16 {[«16""»]}
<Blob 0x21ad8 [10] @> Δ-10 {[«16""»]|[«10""»]}
<POP 21aea-21aec StackAdj> Δ-4 {[«16""»]|[«10""»]|[-4-]}
<MI 21aec MOVE.L (A6-0x14),-(A7)> Δ-4 {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']}
<POP 21af0-21af2 StackAdj> Δ-4 {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
<Lit 0x21af2 15> {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[$$S U C XA:Y XD:1]}
<MI 21afe MOVE.L (A6-0xc),(A7)> {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']}
<POP 21afc-21afe StackAdj> Δ-8 {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-8-]}
<Call 0x21b02 0x102cc> {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-8-]}
StringDup(a : String) : String
<Lit 0x21b08 9> {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-4-]|[$$PA:XYXYXY]}
<Call 0x21b16 0x102d8> {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x14)']|[4, '(A6-0xc)']|[-4-]|[$$PA:XYXYXY]}
StringCat4(a, b, c, d : String) : String
<POP 21b1c-21b1e StackAdj> Δ+16 {[«16""»]|[«10""»]|[-4-]}
<MI 21b1e MOVE.L (A7)+,(A6-0x14)> Δ+4 {[«16""»]|[«10""»]}
<POP 21b22-21b26 StackAdj> Δ+22 {[-4-]}
<MI 21b26 MOVE.L (A6-0x14),(A7)> {[4, '(A6-0x14)']}
<Call 0x21b2a 0x20fd0> {[4, '(A6-0x14)']}
<POP 21b2e-21b30 StackAdj> Δ+4 {}
<Call 0x21b30 0x2104e> {}
<POP 21b32-21b34 StackAdj> Δ-2 {[-2-]}
<Call 0x21b34 0x21276> {[-2-]}
<MI 21b38 TST.B (A7)+> Δ+2 {}
<MI 21b3a BEQ 0x21b52> {}
<POP 21b3c-21b52 Naked> Σ0 Δ-14 →0x2195c
<Blob 0x21b3c [14] @> Δ-14 {[«14""»]}
<MI 21b4e BRA 0x2195c> {[«14""»]}
<POP 21b52-21bc4 Naked> Σ0 ↓ →0x21bf4 ←0x21abe
<Pointer.fp 0x21b52 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x21b56 0x102b8> {[@@-20]}
NewString(VAR a : String)
<POP 21b5c-21b5d StackAdj> Δ+4 ↓ {}
<Blob 0x21b5d [48] @> Δ-48 {[«48""»]}
<Blob 0x21b6e [42] @> Δ-42 {[«48""»]|[«42""»]}
<POP 21b7a-21b7c StackAdj> Δ-4 {[«48""»]|[«42""»]|[-4-]}
<MI 21b7c MOVE.L (A6-0x14),-(A7)> Δ-4 {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x14)']}
<POP 21b80-21b82 StackAdj> Δ-4 {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
<Lit 0x21b82 47> {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x14)']|[$$A X T XC:2 XD:1 XP:1,0,2,0,3,0,4,2,5,0,6,1,7,8,]}
<POP 21b8e-21b90 StackAdj> Δ-4 {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x14)']|[$$A X T XC:2 XD:1 XP:1,0,2,0,3,0,4,2,5,0,6,1,7,8,]|[-4-]}
<Lit 0x21b90 42> {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x14)']|[$$A X T XC:2 XD:1 XP:1,0,2,0,3,0,4,2,5,0,6,1,7,8,]|[$$8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY]}
<Call 0x21b9e 0x102d4> {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x14)']|[$$A X T XC:2 XD:1 XP:1,0,2,0,3,0,4,2,5,0,6,1,7,8,]|[$$8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY]}
StringCat3(a, b, c : String) : String
<POP 21ba4-21ba6 StackAdj> Δ+12 {[«48""»]|[«42""»]|[-4-]}
<MI 21ba6 MOVE.L (A7)+,(A6-0x14)> Δ+4 {[«48""»]|[«42""»]}
<POP 21baa-21bae StackAdj> Δ+86 {[-4-]}
<MI 21bae MOVE.L (A6-0x14),(A7)> {[4, '(A6-0x14)']}
<Call 0x21bb2 0x20fd0> {[4, '(A6-0x14)']}
<POP 21bb6-21bb8 StackAdj> Δ+4 {}
<Call 0x21bb8 0x2104e> {}
<POP 21bba-21bbc StackAdj> Δ-2 {[-2-]}
<Call 0x21bbc 0x21276> {[-2-]}
<MI 21bc0 TST.B (A7)+> Δ+2 {}
<MI 21bc2 BEQ 0x21bf4> {}
<POP 21bc4-21be2 Naked> Σ0 Δ-32 ↓
<Blob 0x21bc4 [20] @> Δ-20 {[«20""»]}
<POP 21bd6-21bd8 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Pointer.sp 0x21bd8 4> Δ-4 {[«20""»]|[-4-]|[^^4]}
<Const 0x21bdc 0x1.2> Δ-2 {[«20""»]|[-4-]|[^^4]|[#1]}
<Const 0x21bde 0x13.2> Δ-2 {[«20""»]|[-4-]|[^^4]|[#1]|[#19]}
<POP 21be2-21bf4 Naked> Σ-32 Δ+32 →0x21d34 ←0x21c62
<Call 0x21be2 0x102c4> {[-32-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21be4-21be6 StackAdj> Δ+8 {[-24-]}
<Call 0x21be6 0x103e0> {[-24-]}
WriteConsoleStringCrLf(str : String)
<POP 21bec-21bf0 StackAdj> Δ+24 {}
<MI 21bf0 BRA 0x21d34> {}
<POP 21bf4-21c62 Naked> Σ0 ↓ →0x21c7e ←0x21b52
<Pointer.fp 0x21bf4 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x21bf8 0x102b8> {[@@-20]}
NewString(VAR a : String)
<POP 21bfe-21c00 StackAdj> Δ+4 {}
<Blob 0x21c00 [50] @> Δ-50 {[«50""»]}
<Blob 0x21c0c [50] @> Δ-50 {[«50""»]|[«50""»]}
<POP 21c18-21c1a StackAdj> Δ-4 {[«50""»]|[«50""»]|[-4-]}
<MI 21c1a MOVE.L (A6-0x14),-(A7)> Δ-4 {[«50""»]|[«50""»]|[-4-]|[4, '(A6-0x14)']}
<POP 21c1e-21c20 StackAdj> Δ-4 {[«50""»]|[«50""»]|[-4-]|[4, '(A6-0x14)']|[-4-]}
<Lit 0x21c20 50> {[«50""»]|[«50""»]|[-4-]|[4, '(A6-0x14)']|[$$A X T SE:210,0,5 XC:2 XD:2 XP:1,0,2,0,3,0,4,2,5,0,]}
<POP 21c2c-21c2e StackAdj> Δ-4 {[«50""»]|[«50""»]|[-4-]|[4, '(A6-0x14)']|[$$A X T SE:210,0,5 XC:2 XD:2 XP:1,0,2,0,3,0,4,2,5,0,]|[-4-]}
<Lit 0x21c2e 50> {[«50""»]|[«50""»]|[-4-]|[4, '(A6-0x14)']|[$$A X T SE:210,0,5 XC:2 XD:2 XP:1,0,2,0,3,0,4,2,5,0,]|[$$6,1,7,8,8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY]}
<Call 0x21c3c 0x102d4> {[«50""»]|[«50""»]|[-4-]|[4, '(A6-0x14)']|[$$A X T SE:210,0,5 XC:2 XD:2 XP:1,0,2,0,3,0,4,2,5,0,]|[$$6,1,7,8,8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY]}
StringCat3(a, b, c : String) : String
<POP 21c42-21c44 StackAdj> Δ+12 {[«50""»]|[«50""»]|[-4-]}
<MI 21c44 MOVE.L (A7)+,(A6-0x14)> Δ+4 {[«50""»]|[«50""»]}
<POP 21c48-21c4c StackAdj> Δ+96 {[-4-]}
<MI 21c4c MOVE.L (A6-0x14),(A7)> {[4, '(A6-0x14)']}
<Call 0x21c50 0x20fd0> {[4, '(A6-0x14)']}
<POP 21c54-21c56 StackAdj> Δ+4 {}
<Call 0x21c56 0x2104e> {}
<POP 21c58-21c5a StackAdj> Δ-2 {[-2-]}
<Call 0x21c5a 0x21276> {[-2-]}
<MI 21c5e TST.B (A7)+> Δ+2 {}
<MI 21c60 BEQ 0x21c7e> {}
<POP 21c62-21c7e Naked> Σ0 Δ-32 →0x21be2
<Blob 0x21c62 [20] @> Δ-20 {[«20""»]}
<POP 21c6e-21c70 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Pointer.sp 0x21c70 4> Δ-4 {[«20""»]|[-4-]|[^^4]}
<Const 0x21c74 0x1.2> Δ-2 {[«20""»]|[-4-]|[^^4]|[#1]}
<Const 0x21c76 0x14.2> Δ-2 {[«20""»]|[-4-]|[^^4]|[#1]|[#20]}
<MI 21c7a BRA 0x21be2> {[«20""»]|[-4-]|[^^4]|[#1]|[#20]}
<POP 21c7e-21cca Naked> Σ0 ↓ →0x21cf4 ←0x21bf4
<Blob 0x21c7e [14] @> Δ-14 {[«14""»]}
<POP 21c90-21c92 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x21c92 13> {[«14""»]|[$$W S PA:XYXYXY]}
<MI 21ca0 MOVE.L (A7)+,(A6-0x14)> Δ+4 {[«14""»]}
<POP 21ca4-21ca8 StackAdj> Δ+10 {[-4-]}
<MI 21ca8 MOVE.L (A6-0x14),(A7)> {[4, '(A6-0x14)']}
<Call 0x21cac 0x20fd0> {[4, '(A6-0x14)']}
<POP 21cb0-21cb1 StackAdj> Δ+4 {}
<Const 0x21cb1 0x2faee.4> Δ-4 {[##195310]}
<Call 0x21cb6 0x10224> {[##195310]}
KC12_Sleep(dur: Long)
<POP 21cbc-21cbe StackAdj> Δ+4 {}
<Call 0x21cbe 0x2104e> {}
<POP 21cc0-21cc2 StackAdj> Δ-2 {[-2-]}
<Call 0x21cc2 0x21418> {[-2-]}
<MI 21cc6 TST.B (A7)+> Δ+2 {}
<MI 21cc8 BEQ 0x21cf4> {}
<POP 21cca-21cf4 Naked> Σ0 →0x21d34
<Blob 0x21cca [12] @> Δ-12 {[«12""»]}
<POP 21cda-21cdc StackAdj> Δ-4 {[«12""»]|[-4-]}
<Lit 0x21cdc 11> {[«12""»]|[$$W S failed.]}
<Call 0x21cea 0x103e0> {[«12""»]|[$$W S failed.]}
WriteConsoleStringCrLf(str : String)
<POP 21cf0-21cf2 StackAdj> Δ+16 {}
<MI 21cf2 BRA 0x21d34> {}
<POP 21cf4-21d34 Naked> Σ0 →0x21daa ←0x21c7e
<Blob 0x21cf4 [28] @> Δ-28 {[«28""»]}
<POP 21d00-21d02 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x21d02 28> {[«28""»]|[$$The PAD has been configured!]}
<Call 0x21d10 0x103e0> {[«28""»]|[$$The PAD has been configured!]}
WriteConsoleStringCrLf(str : String)
<POP 21d16-21d1a StackAdj> Δ+32 {}
<Pointer.fp 0x21d1a <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x21d1e 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 21d24-21d26 StackAdj> Δ+4 {}
<Pointer.fp 0x21d26 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x21d2a 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 21d30-21d32 StackAdj> Δ+4 {}
<MI 21d32 BRA 0x21daa> {}
<POP 21d34-21daa Naked> Σ0 ↓ ←0x2195c ←0x21be2 ←0x21cca
<Blob 0x21d34 [64] @> Δ-64 {[«64""»]}
<POP 21d46-21d48 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x21d48 63> {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
<Call 0x21d56 0x103e0> {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
WriteConsoleStringCrLf(str : String)
<POP 21d5c-21d60 StackAdj> Δ+68 {}
<Blob 0x21d60 [60] @> Δ-60 {[«60""»]}
<POP 21d6c-21d6e StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x21d6e 60> {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
<Call 0x21d7c 0x103e0> {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
WriteConsoleStringCrLf(str : String)
<POP 21d82-21d86 StackAdj> Δ+64 {}
<Blob 0x21d86 [32] @> Δ-32 {[«32""»]}
<POP 21d92-21d94 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x21d94 32> {[«32""»]|[$$configuration or replace the PAD]}
<Call 0x21da2 0x103e0> {[«32""»]|[$$configuration or replace the PAD]}
WriteConsoleStringCrLf(str : String)
<POP 21da8-21daa StackAdj> Δ+36 {}
<POP 21daa-21dae Naked> Σ0 ↓ ←0x2186c ←0x21cf4
<Call 0x21daa 0x20fa6> {}
<POP 21dae-21db6 Epilogue> Σ0
@ 21db6
<LVAR 0x008 1(r)>
<LVAR -0x00a @ 4(rw)>
<LVAR -0x00e @ 4(rw)>
<LVAR -0x016 @ 4(rw)>
<POP 21db6-22598 Body> Δ+138
<POP 21db6-21dcc Prologue> Σ0 ↓
<POP 21dcc-21de0 RegCacheLoad> Σ0 ↓
<POP 21de0-21e76 Naked> Σ0 →0x21e7e →0x21eb2 →0x21ee4 →0x21f16
<MI 21de0 CLR.B 0x23180> {}
<Call 0x21de6 0x10216> {}
KC0b
<Call 0x21dec 0x2104e> {}
<Blob 0x21dee [36] @> Δ-36 {[«36""»]}
<POP 21dfe-21e00 StackAdj> Δ-6 {[«36""»]|[-6-]}
<Lit 0x21e00 35> {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]}
<POP 21e0c-21e0e StackAdj> Δ-2 {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
<MI 21e0e CLR.B (A7)> {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
<Call 0x21e10 0x103f0> {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 21e16-21e18 StackAdj> Δ+6 {[«36""»]|[-2-]}
<MI 21e18 MOVE.B (A7)+,D0> Δ+2 {[«36""»]}
<MI 21e1a EXTB.W D0> {[«36""»]}
<POP 0x21e1c LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«36""»]}
<POP 21e1e-21e20 StackAdj> Δ+36 {}
<MI 21e20 MOVE.B D0,0x23180> {}
<Blob 0x21e26 [54] @> Δ-54 {[«54""»]}
<POP 21e38-21e3a StackAdj> Δ-8 {[«54""»]|[-8-]}
<Lit 0x21e3a 53> {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]}
<Const 0x21e48 0x2.4> Δ-4 {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]}
<Const 0x21e4c 0x5.4> Δ-4 {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
<Call 0x21e50 0x103ec> {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 21e56-21e58 StackAdj> Δ+12 {[«54""»]|[-4-]}
<MI 21e58 MOVE.L (A7)+,D7> Δ+4 {[«54""»]}
<POP 21e5a-21e5e StackAdj> Δ+54 {}
<MI 21e5e MOVE.L D7,D0> {}
<MI 21e60 SUBQ.L #0x2,D0> {}
<POP 0x21e62 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 21e6c ADD.W D0,D0> {}
<MI 21e6e SWITCH D0.W> {}
<POP 21e7e-21eb2 Naked> Σ0 Δ-8 →0x21f46 ←0x21de0
<Blob 0x21e7e [2] @> Δ-2 {[«2""»]}
<Blob 0x21e82 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x21e86 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 21e8a-21e8c StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x21e8c 6> {[«2""»]|[«2""»]|[«2""»]|[$$ PO:2_]}
<MI 21e9a MOVE.L (A7)+,(A6-0xe)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 21e9e-21e9f StackAdj> Δ+6 ↓ {}
<Blob 0x21e9f [8] @> Δ-8 {[«8""»]}
<MI 21eae BRA 0x21f46> {[«8""»]}
<POP 21eb2-21ee4 Naked> Σ0 Δ-8 →0x21f46 ←0x21de0
<Blob 0x21eb2 [2] @> Δ-2 {[«2""»]}
<Blob 0x21eb6 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x21eba [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 21ebe-21ec0 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x21ec0 6> {[«2""»]|[«2""»]|[«2""»]|[$$ PO:3_]}
<MI 21ece MOVE.L (A7)+,(A6-0xe)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 21ed2-21ed3 StackAdj> Δ+6 ↓ {}
<Blob 0x21ed3 [8] @> Δ-8 {[«8""»]}
<MI 21ee2 BRA 0x21f46> {[«8""»]}
<POP 21ee4-21f16 Naked> Σ0 Δ-8 →0x21f46 ←0x21de0
<Blob 0x21ee4 [2] @> Δ-2 {[«2""»]}
<Blob 0x21ee8 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x21eec [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 21ef0-21ef2 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x21ef2 6> {[«2""»]|[«2""»]|[«2""»]|[$$ PO:4_]}
<MI 21f00 MOVE.L (A7)+,(A6-0xe)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 21f04-21f05 StackAdj> Δ+6 ↓ {}
<Blob 0x21f05 [8] @> Δ-8 {[«8""»]}
<MI 21f14 BRA 0x21f46> {[«8""»]}
<POP 21f16-21f46 Naked> Σ0 Δ-8 ↓ ←0x21de0
<Blob 0x21f16 [2] @> Δ-2 {[«2""»]}
<Blob 0x21f1a [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x21f1e [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 21f22-21f24 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x21f24 6> {[«2""»]|[«2""»]|[«2""»]|[$$ PO:5_]}
<MI 21f32 MOVE.L (A7)+,(A6-0xe)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 21f36-21f37 StackAdj> Δ+6 ↓ {}
<Blob 0x21f37 [8] @> Δ-8 {[«8""»]}
<POP 21f46-21f5c Naked> Σ-8 Δ+8 ↓ ←0x21e7e ←0x21eb2 ←0x21ee4
<POP 21f46-21f48 StackAdj> Δ-4 {[-12-]}
<Lit 0x21f48> {[-8-]|[$$…]}
<Pointer.sp 0x21f48 4> Δ-4
<Const 0x21f4c 0x1.2> Δ-2
<Const 0x21f4e 0x7.2> Δ-2
<Call 0x21f52 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21f54-21f56 StackAdj> Δ+8
<MI 21f56 MOVE.L (A7)+,(A6-0xa)> Δ+4 {[-8-]}
<POP 21f5a-21f5c StackAdj> Δ+8 {}
<POP 21f5c-21f90 Naked> Σ0 ↓ →0x21f5c ←0x21f5c
<Blob 0x21f5c [70] @> Δ-70 {[«70""»]}
<POP 21f6e-21f70 StackAdj> Δ-8 {[«70""»]|[-8-]}
<Lit 0x21f70 69> {[«70""»]|[-4-]|[$$Enter the DTE address identification (ID) for the ENVIRONMENT port :_]}
<Call 0x21f7e 0x103e4> {[«70""»]|[-4-]|[$$Enter the DTE address identification (ID) for the ENVIRONMENT port :_]}
AskConsoleString(prompt : String) : String
<POP 21f84-21f86 StackAdj> Δ+4 {[«70""»]|[-4-]}
<MI 21f86 MOVEA.L (A7)+,A4> Δ+4 {[«70""»]}
<POP 21f88-21f8c StackAdj> Δ+70 {}
<MI 21f8c TST.W (A4)> {}
<MI 21f8e BEQ 0x21f5c> {}
<POP 21f90-21fd8 Naked> Σ0 ↓ →0x2204e
<Blob 0x21f90 [38] @> Δ-38 {[«38""»]}
<POP 21f9c-21f9e StackAdj> Δ-8 {[«38""»]|[-8-]}
<Lit 0x21f9e 38> {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]}
<Const 0x21fac 0x40.4> Δ-4 {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]}
<Const 0x21fb0 0x100.4> Δ-4 {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]|[##256]}
<Call 0x21fb4 0x103ec> {[«38""»]|[-4-]|[$$Enter LEVEL 3 packet size [64..256] :_]|[##64]|[##256]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 21fba-21fbc StackAdj> Δ+12 {[«38""»]|[-4-]}
<MI 21fbc MOVE.L (A7)+,D6> Δ+4 {[«38""»]}
<POP 21fbe-21fc0 StackAdj> Δ+36 {[-2-]}
<POP 21fc0-21fc1 StackAdj> Δ+2 {}
<Const 0x21fc1 0x2.2> Δ-2 {[#2]}
<Const 0x21fc2 0x10.2> Δ-2 {[#2]|[#16]}
<Call 0x21fc6 0x1020c> {[#2]|[#16]}
KC06_PortPutChar(port : Word ; b : char)
<POP 21fcc-21fce StackAdj> Δ+4 {}
<Call 0x21fce 0x2104e> {}
<MI 21fd0 TST.L 0x23986> {}
<MI 21fd6 BNE 0x2204e> {}
<POP 21fd8-2201a Naked> Σ0 ↓ →0x2204e
<Const 0x21fd8 0x2.2> Δ-2 {[#2]}
<Const 0x21fda 0x2e.2> Δ-2 {[#2]|[#46]}
<Call 0x21fde 0x1020c> {[#2]|[#46]}
KC06_PortPutChar(port : Word ; b : char)
<POP 21fe4-21fe6 StackAdj> Δ+2 {[#2]}
<POP 21fe6-21fe7 StackAdj> Δ+2 {}
<Const 0x21fe7 0x2.2> Δ-2 {[#2]}
<Const 0x21fe8 0x2e.2> Δ-2 {[#2]|[#46]}
<Call 0x21fec 0x1020c> {[#2]|[#46]}
KC06_PortPutChar(port : Word ; b : char)
<POP 21ff2-21ff4 StackAdj> Δ+2 {[#2]}
<POP 21ff4-21ff5 StackAdj> Δ+2 {}
<Const 0x21ff5 0x2.2> Δ-2 {[#2]}
<Const 0x21ff6 0x2e.2> Δ-2 {[#2]|[#46]}
<Call 0x21ffa 0x1020c> {[#2]|[#46]}
KC06_PortPutChar(port : Word ; b : char)
<POP 22000-22002 StackAdj> Δ+2 {[#2]}
<POP 22002-22003 StackAdj> Δ+2 {}
<Const 0x22003 0x2.2> Δ-2 {[#2]}
<Const 0x22004 0xd.2> Δ-2 {[#2]|[#13]}
<Call 0x22008 0x1020c> {[#2]|[#13]}
KC06_PortPutChar(port : Word ; b : char)
<POP 2200e-22010 StackAdj> Δ+4 {}
<Call 0x22010 0x2104e> {}
<MI 22012 TST.L 0x23986> {}
<MI 22018 BNE 0x2204e> {}
<POP 2201a-2204e Naked> Σ0 ↓
<Blob 0x2201a [48] @> Δ-48 {[«48""»]}
<POP 22026-22028 StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x22028 48> {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
<Call 0x22036 0x103e0> {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
WriteConsoleStringCrLf(str : String)
<POP 2203c-22040 StackAdj> Δ+50 {[-2-]}
<POP 22040-22041 StackAdj> Δ+2 {}
<Const 0x22041 0x2.2> Δ-2 {[#2]}
<Const 0x22042 0x1.4> Δ-4 {[#2]|[##1]}
<Call 0x22046 0x103b8> {[#2]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 2204c-2204e StackAdj> Δ+6 {}
<POP 2204e-22088 Naked> Σ0 ↓ →0x220b6 ←0x21f90 ←0x21fd8
<Blob 0x2204e [26] @> Δ-26 {[«26""»]}
<POP 2205a-2205c StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x2205c 26> {[«26""»]|[$$S A P PC:Y ID:D0 PA:XYXYXY]}
<MI 2206a MOVE.L (A7)+,(A6-0x16)> Δ+4 {[«26""»]}
<POP 2206e-22072 StackAdj> Δ+22 {[-4-]}
<MI 22072 MOVE.L (A6-0x16),(A7)> {[4, '(A6-0x16)']}
<Call 0x22076 0x20fd0> {[4, '(A6-0x16)']}
<POP 2207a-2207c StackAdj> Δ+4 {}
<Call 0x2207c 0x2104e> {}
<POP 2207e-22080 StackAdj> Δ-2 {[-2-]}
<Call 0x22080 0x21276> {[-2-]}
<MI 22084 TST.B (A7)+> Δ+2 {}
<MI 22086 BEQ 0x220b6> {}
<POP 22088-22098 Naked> Σ0 Δ-14 ↓
<Blob 0x22088 [14] @> Δ-14 {[«14""»]}
<POP 22098-220b6 Naked> Σ-14 Δ+14 →0x22516 ←0x22168 ←0x22232 ←0x222c0 ←0x2235e
<POP 22098-2209a StackAdj> Δ-4 {[-18-]}
<Lit 0x2209a> {[-14-]|[$$…]}
<Pointer.sp 0x2209a 4> Δ-4
<Const 0x2209e 0x1.2> Δ-2
<Const 0x220a0 0xd.2> Δ-2
<Call 0x220a4 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 220a6-220a8 StackAdj> Δ+8
<Call 0x220a8 0x103e0> {[-14-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 220ae-220b2 StackAdj> Δ+18 {}
<MI 220b2 BRA 0x22516> {}
<POP 220b6-220bc Naked> Σ0 ↓ →0x220ca ←0x2204e
<MI 220b6 TST.B (A6+0x8)> {}
<MI 220ba BNE 0x220ca> {}
<POP 220bc-220ca Naked> Σ0 Δ-36 →0x220d6
<Blob 0x220bc [36] @> Δ-36 {[«36""»]}
<MI 220c8 BRA 0x220d6> {[«36""»]}
<POP 220ca-220d6 Naked> Σ0 Δ-36 ↓ ←0x220b6
<Blob 0x220ca [36] @> Δ-36 {[«36""»]}
<POP 220d6-22100 Naked> Σ-36 Δ+36 ↓ →0x2212e ←0x220bc
<POP 220d6-220d8 StackAdj> Δ-4 {[-40-]}
<Lit 0x220d8> {[-36-]|[$$…]}
<Pointer.sp 0x220d8 4> Δ-4
<Const 0x220dc 0x1.2> Δ-2
<Const 0x220de 0x24.2> Δ-2
<Call 0x220e0 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 220e2-220e4 StackAdj> Δ+8
<MI 220e4 MOVE.L (A7)+,(A6-0x16)> Δ+4 {[-36-]}
<POP 220e8-220ea StackAdj> Δ+36 {}
<MI 220ea MOVE.L (A6-0x16),-(A7)> Δ-4 {[4, '(A6-0x16)']}
<Call 0x220ee 0x20fd0> {[4, '(A6-0x16)']}
<POP 220f2-220f4 StackAdj> Δ+4 {}
<Call 0x220f4 0x2104e> {}
<POP 220f6-220f8 StackAdj> Δ-2 {[-2-]}
<Call 0x220f8 0x21418> {[-2-]}
<MI 220fc TST.B (A7)+> Δ+2 {}
<MI 220fe BEQ 0x2212e> {}
<POP 22100-22110 Naked> Σ0 Δ-12 ↓
<Blob 0x22100 [12] @> Δ-12 {[«12""»]}
<POP 22110-2212e Naked> Σ-12 Δ+12 →0x22516 ←0x224bc
<POP 22110-22112 StackAdj> Δ-4 {[-16-]}
<Lit 0x22112> {[-12-]|[$$…]}
<Pointer.sp 0x22112 4> Δ-4
<Const 0x22116 0x1.2> Δ-2
<Const 0x22118 0xb.2> Δ-2
<Call 0x2211c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2211e-22120 StackAdj> Δ+8
<Call 0x22120 0x103e0> {[-12-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 22126-2212a StackAdj> Δ+16 {}
<MI 2212a BRA 0x22516> {}
<POP 2212e-22168 Naked> Σ0 ↓ →0x2217c ←0x220d6
<Blob 0x2212e [26] @> Δ-26 {[«26""»]}
<POP 2213a-2213c StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x2213c 26> {[«26""»]|[$$S A P PC:N ID:A2 PA:XYXYXY]}
<MI 2214a MOVE.L (A7)+,(A6-0x16)> Δ+4 {[«26""»]}
<POP 2214e-22152 StackAdj> Δ+22 {[-4-]}
<MI 22152 MOVE.L (A6-0x16),(A7)> {[4, '(A6-0x16)']}
<Call 0x22156 0x20fd0> {[4, '(A6-0x16)']}
<POP 2215a-2215c StackAdj> Δ+4 {}
<Call 0x2215c 0x2104e> {}
<POP 2215e-22160 StackAdj> Δ-2 {[-2-]}
<Call 0x22160 0x21276> {[-2-]}
<MI 22164 TST.B (A7)+> Δ+2 {}
<MI 22166 BEQ 0x2217c> {}
<POP 22168-2217c Naked> Σ0 Δ-14 →0x22098
<Blob 0x22168 [14] @> Δ-14 {[«14""»]}
<MI 22178 BRA 0x22098> {[«14""»]}
<POP 2217c-2218e Naked> Σ0 ↓ →0x2219c ←0x2212e
<Pointer.fp 0x2217c <LVAR -0x016 @ 4(rw)>> Δ-4 {[@@-22]}
<Call 0x22180 0x102b8> {[@@-22]}
NewString(VAR a : String)
<POP 22186-22188 StackAdj> Δ+4 {}
<MI 22188 TST.B (A6+0x8)> {}
<MI 2218c BNE 0x2219c> {}
<POP 2218e-2219c Naked> Σ0 Δ-10 →0x221a8
<Blob 0x2218e [10] @> Δ-10 {[«10""»]}
<MI 2219a BRA 0x221a8> {[«10""»]}
<POP 2219c-221a8 Naked> Σ0 Δ-10 ↓ ←0x2217c
<Blob 0x2219c [10] @> Δ-10 {[«10""»]}
<POP 221a8-22232 Naked> Σ-10 Δ+10 ↓ →0x22246 ←0x2218e
<POP 221a8-221aa StackAdj> Δ-4 {[-14-]}
<Lit 0x221aa> {[-10-]|[$$…]}
<Pointer.sp 0x221aa 4> Δ-4
<Const 0x221ae 0x1.2> Δ-2
<Const 0x221b0 0xa.2> Δ-2
<Call 0x221b4 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 221b6-221b8 StackAdj> Δ+8
<MI 221b8 MOVE.L (A7)+,(A6-0x16)> Δ+4 {[-10-]}
<POP 221bc-221c0 StackAdj> Δ+10 {}
<Blob 0x221c0 [4] @> Δ-4 {[«4""»]}
<Blob 0x221c4 [26] @> Δ-26 {[«4""»]|[«26""»]}
<POP 221d6-221d8 StackAdj> Δ-4 {[«4""»]|[«26""»]|[-4-]}
<MI 221d8 MOVE.L (A6-0x16),-(A7)> Δ-4 {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']}
<POP 221dc-221de StackAdj> Δ-4 {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[-4-]}
<Lit 0x221de 4> {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[$$ FS:]}
<MI 221ea MOVE.L D6,(A7)> {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']}
<POP 221e8-221ea StackAdj> Δ-8 {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]}
<Call 0x221ec 0x102e4> {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]}
Long2String(a : Long) : String
<MI 221f2 MOVE.L (A6-0xe),-(A7)> Δ-4 {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, '(A6-0xe)']}
<Call 0x221f6 0x102cc> {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, '(A6-0xe)']}
StringDup(a : String) : String
<Lit 0x221fc 25> {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[$$ID:D0 CO:Y DC:C PA:XYXYXY]}
<Call 0x2220a 0x102dc> {[«4""»]|[«26""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[$$ID:D0 CO:Y DC:C PA:XYXYXY]}
StringCat5(a, b, c, d, e : String) : String
<POP 22210-22214 StackAdj> Δ+20 {[«4""»]|[«26""»]|[-4-]}
<MI 22214 MOVE.L (A7)+,(A6-0x16)> Δ+4 {[«4""»]|[«26""»]}
<POP 22218-2221c StackAdj> Δ+26 {[«4""»]}
<MI 2221c MOVE.L (A6-0x16),(A7)> {[4, '(A6-0x16)']}
<Call 0x22220 0x20fd0> {[4, '(A6-0x16)']}
<POP 22224-22226 StackAdj> Δ+4 {}
<Call 0x22226 0x2104e> {}
<POP 22228-2222a StackAdj> Δ-2 {[-2-]}
<Call 0x2222a 0x21276> {[-2-]}
<MI 2222e TST.B (A7)+> Δ+2 {}
<MI 22230 BEQ 0x22246> {}
<POP 22232-22246 Naked> Σ0 Δ-14 →0x22098
<Blob 0x22232 [14] @> Δ-14 {[«14""»]}
<MI 22242 BRA 0x22098> {[«14""»]}
<POP 22246-222c0 Naked> Σ0 ↓ →0x222d4 ←0x221a8
<Pointer.fp 0x22246 <LVAR -0x016 @ 4(rw)>> Δ-4 {[@@-22]}
<Call 0x2224a 0x102b8> {[@@-22]}
NewString(VAR a : String)
<POP 22250-22251 StackAdj> Δ+4 ↓ {}
<Blob 0x22251 [6] @> Δ-6 {[«6""»]}
<Blob 0x22260 [32] @> Δ-32 {[«6""»]|[«32""»]}
<POP 2226c-2226e StackAdj> Δ-4 {[«6""»]|[«32""»]|[-4-]}
<MI 2226e MOVE.L (A6-0x16),-(A7)> Δ-4 {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']}
<POP 22272-22274 StackAdj> Δ-4 {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[-4-]}
<Lit 0x22274 5> {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[$$S L P]}
<MI 22280 MOVE.L (A6-0xe),(A7)> {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[4, '(A6-0xe)']}
<POP 2227e-22280 StackAdj> Δ-8 {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[4, '(A6-0xe)']|[-8-]}
<Call 0x22284 0x102cc> {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[4, '(A6-0xe)']|[-8-]}
StringDup(a : String) : String
<Lit 0x2228a 32> {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[4, '(A6-0xe)']|[-4-]|[$$SP:9600 PR:N LE:8 ST:1 PA:XYXYXY]}
<Call 0x22298 0x102d8> {[«6""»]|[«32""»]|[-4-]|[4, '(A6-0x16)']|[4, '(A6-0xe)']|[-4-]|[$$SP:9600 PR:N LE:8 ST:1 PA:XYXYXY]}
StringCat4(a, b, c, d : String) : String
<POP 2229e-222a2 StackAdj> Δ+16 {[«6""»]|[«32""»]|[-4-]}
<MI 222a2 MOVE.L (A7)+,(A6-0x16)> Δ+4 {[«6""»]|[«32""»]}
<POP 222a6-222aa StackAdj> Δ+34 {[-4-]}
<MI 222aa MOVE.L (A6-0x16),(A7)> {[4, '(A6-0x16)']}
<Call 0x222ae 0x20fd0> {[4, '(A6-0x16)']}
<POP 222b2-222b4 StackAdj> Δ+4 {}
<Call 0x222b4 0x2104e> {}
<POP 222b6-222b8 StackAdj> Δ-2 {[-2-]}
<Call 0x222b8 0x21276> {[-2-]}
<MI 222bc TST.B (A7)+> Δ+2 {}
<MI 222be BEQ 0x222d4> {}
<POP 222c0-222d4 Naked> Σ0 Δ-14 →0x22098
<Blob 0x222c0 [14] @> Δ-14 {[«14""»]}
<MI 222d0 BRA 0x22098> {[«14""»]}
<POP 222d4-2235e Naked> Σ0 ↓ →0x22372 ←0x22246
<Pointer.fp 0x222d4 <LVAR -0x016 @ 4(rw)>> Δ-4 {[@@-22]}
<Call 0x222d8 0x102b8> {[@@-22]}
NewString(VAR a : String)
<POP 222de-222e0 StackAdj> Δ+4 {}
<Blob 0x222e0 [14] @> Δ-14 {[«14""»]}
<Blob 0x222ec [14] @> Δ-14 {[«14""»]|[«14""»]}
<POP 222fc-222fe StackAdj> Δ-4 {[«14""»]|[«14""»]|[-4-]}
<MI 222fe MOVE.L (A6-0x16),-(A7)> Δ-4 {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']}
<POP 22302-22304 StackAdj> Δ-4 {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[-4-]}
<Lit 0x22304 14> {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[$$S N C CH:1 NS:]}
<MI 2230e MOVE.L D6,(A7)> {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']}
<POP 2230c-2230e StackAdj> Δ-8 {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]}
<Call 0x22310 0x102e4> {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]}
Long2String(a : Long) : String
<MI 22316 MOVE.L (A6-0xe),-(A7)> Δ-4 {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, '(A6-0xe)']}
<Call 0x2231a 0x102cc> {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, '(A6-0xe)']}
StringDup(a : String) : String
<Lit 0x22320 13> {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[$$PA:XYXYXY SS:]}
<MI 2232c MOVE.L D6,(A7)> {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, 'D6']}
<POP 2232a-2232c StackAdj> Δ-8 {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, 'D6']|[-8-]}
<Call 0x2232e 0x102e4> {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, 'D6']|[-8-]}
Long2String(a : Long) : String
<POP 22334-22336 StackAdj> Δ+4 {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, 'D6']|[-4-]}
<Call 0x22336 0x102e0> {[«14""»]|[«14""»]|[-4-]|[4, '(A6-0x16)']|[4, 'D6']|[-8-]|[4, 'D6']|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 2233c-22340 StackAdj> Δ+24 {[«14""»]|[«14""»]|[-4-]}
<MI 22340 MOVE.L (A7)+,(A6-0x16)> Δ+4 {[«14""»]|[«14""»]}
<POP 22344-22348 StackAdj> Δ+24 {[-4-]}
<MI 22348 MOVE.L (A6-0x16),(A7)> {[4, '(A6-0x16)']}
<Call 0x2234c 0x20fd0> {[4, '(A6-0x16)']}
<POP 22350-22352 StackAdj> Δ+4 {}
<Call 0x22352 0x2104e> {}
<POP 22354-22356 StackAdj> Δ-2 {[-2-]}
<Call 0x22356 0x21276> {[-2-]}
<MI 2235a TST.B (A7)+> Δ+2 {}
<MI 2235c BEQ 0x22372> {}
<POP 2235e-22372 Naked> Σ0 Δ-14 →0x22098
<Blob 0x2235e [14] @> Δ-14 {[«14""»]}
<MI 2236e BRA 0x22098> {[«14""»]}
<POP 22372-2241c Naked> Σ0 ↓ →0x22472 ←0x222d4
<Pointer.fp 0x22372 <LVAR -0x016 @ 4(rw)>> Δ-4 {[@@-22]}
<Call 0x22376 0x102b8> {[@@-22]}
NewString(VAR a : String)
<POP 2237c-2237d StackAdj> Δ+4 ↓ {}
<Blob 0x2237d [6] @> Δ-6 {[«6""»]}
<Blob 0x2238c [4] @> Δ-4 {[«6""»]|[«4""»]}
<Blob 0x22390 [10] @> Δ-10 {[«6""»]|[«4""»]|[«10""»]}
<POP 2239c-2239e StackAdj> Δ-4 {[«6""»]|[«4""»]|[«10""»]|[-4-]}
<MI 2239e MOVE.L (A6-0x16),-(A7)> Δ-4 {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']}
<POP 223a2-223a4 StackAdj> Δ-4 {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[-4-]}
<Lit 0x223a4 5> {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]}
<MI 223b0 MOVE.L (A6-0xe),-(A7)> Δ-4 {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']}
<POP 223ae-223b0 StackAdj> Δ-8 {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]}
<Call 0x223b4 0x102cc> {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]}
StringDup(a : String) : String
<MI 223ba MOVE.L (A6-0xa),-(A7)> Δ-4 {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0xa)']}
<Call 0x223be 0x102cc> {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]|[4, '(A6-0xa)']}
StringDup(a : String) : String
<POP 223c4-223c6 StackAdj> Δ+4 {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]}
<Call 0x223c6 0x102d0> {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-8-]}
StringCat2(a, b : String) : String
<Lit 0x223cc 4> {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]|[$$ AD:]}
<POP 223d8-223da StackAdj> Δ-4 {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]|[$$ AD:]|[-4-]}
<MI 223da MOVE.L A4,(A7)> {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]|[$$ AD:]|[4, 'A4']}
<POP 223dc-223de StackAdj> Δ-4 {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]|[$$ AD:]|[4, 'A4']|[-4-]}
<Lit 0x223de 10> {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]|[$$ AD:]|[4, 'A4']|[$$ PA:XYXYXY]}
<Call 0x223ec 0x102d4> {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]|[$$ AD:]|[4, 'A4']|[$$ PA:XYXYXY]}
StringCat3(a, b, c : String) : String
<POP 223f2-223f4 StackAdj> Δ+12 {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]}
<Call 0x223f4 0x102d8> {[«6""»]|[«4""»]|[«10""»]|[-4-]|[4, '(A6-0x16)']|[$$A P G]|[4, '(A6-0xe)']|[-4-]}
StringCat4(a, b, c, d : String) : String
<POP 223fa-223fe StackAdj> Δ+16 {[«6""»]|[«4""»]|[«10""»]|[-4-]}
<MI 223fe MOVE.L (A7)+,(A6-0x16)> Δ+4 {[«6""»]|[«4""»]|[«10""»]}
<POP 22402-22406 StackAdj> Δ+16 {[-4-]}
<MI 22406 MOVE.L (A6-0x16),(A7)> {[4, '(A6-0x16)']}
<Call 0x2240a 0x20fd0> {[4, '(A6-0x16)']}
<POP 2240e-22410 StackAdj> Δ+4 {}
<Call 0x22410 0x2104e> {}
<POP 22412-22414 StackAdj> Δ-2 {[-2-]}
<Call 0x22414 0x21276> {[-2-]}
<MI 22418 TST.B (A7)+> Δ+2 {}
<MI 2241a BEQ 0x22472> {}
<POP 2241c-22472 Naked> Σ0 →0x2258c
<Blob 0x2241c [64] @> Δ-64 {[«64""»]}
<POP 2242e-22430 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x22430 63> {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
<Call 0x2243e 0x103e0> {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
WriteConsoleStringCrLf(str : String)
<POP 22444-22448 StackAdj> Δ+68 {}
<Blob 0x22448 [66] @> Δ-66 {[«66""»]}
<POP 22454-22456 StackAdj> Δ-4 {[«66""»]|[-4-]}
<Lit 0x22456 66> {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
<Call 0x22464 0x103e0> {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
WriteConsoleStringCrLf(str : String)
<POP 2246a-2246e StackAdj> Δ+70 {}
<MI 2246e BRA 0x2258c> {}
<POP 22472-224bc Naked> Σ0 ↓ →0x224d0 ←0x22372
<Blob 0x22472 [14] @> Δ-14 {[«14""»]}
<POP 22482-22484 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x22484 13> {[«14""»]|[$$W S PA:XYXYXY]}
<MI 22492 MOVE.L (A7)+,(A6-0x16)> Δ+4 {[«14""»]}
<POP 22496-2249a StackAdj> Δ+10 {[-4-]}
<MI 2249a MOVE.L (A6-0x16),(A7)> {[4, '(A6-0x16)']}
<Call 0x2249e 0x20fd0> {[4, '(A6-0x16)']}
<POP 224a2-224a3 StackAdj> Δ+4 {}
<Const 0x224a3 0x2faee.4> Δ-4 {[##195310]}
<Call 0x224a8 0x10224> {[##195310]}
KC12_Sleep(dur: Long)
<POP 224ae-224b0 StackAdj> Δ+4 {}
<Call 0x224b0 0x2104e> {}
<POP 224b2-224b4 StackAdj> Δ-2 {[-2-]}
<Call 0x224b4 0x21418> {[-2-]}
<MI 224b8 TST.B (A7)+> Δ+2 {}
<MI 224ba BEQ 0x224d0> {}
<POP 224bc-224d0 Naked> Σ0 Δ-12 →0x22110
<Blob 0x224bc [12] @> Δ-12 {[«12""»]}
<MI 224cc BRA 0x22110> {[«12""»]}
<POP 224d0-22516 Naked> Σ0 →0x2258c ←0x22472
<Blob 0x224d0 [42] @> Δ-42 {[«42""»]}
<POP 224e2-224e4 StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x224e4 41> {[«42""»]|[$$The Environment Port has been configured!]}
<Call 0x224f2 0x103e0> {[«42""»]|[$$The Environment Port has been configured!]}
WriteConsoleStringCrLf(str : String)
<POP 224f8-224fc StackAdj> Δ+46 {}
<Pointer.fp 0x224fc <LVAR -0x00e @ 4(rw)>> Δ-4 {[@@-14]}
<Call 0x22500 0x102bc> {[@@-14]}
FreeString(VAR a : String)
<POP 22506-22508 StackAdj> Δ+4 {}
<Pointer.fp 0x22508 <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-10]}
<Call 0x2250c 0x102bc> {[@@-10]}
FreeString(VAR a : String)
<POP 22512-22514 StackAdj> Δ+4 {}
<MI 22514 BRA 0x2258c> {}
<POP 22516-2258c Naked> Σ0 ↓ ←0x22098 ←0x22110
<Blob 0x22516 [64] @> Δ-64 {[«64""»]}
<POP 22528-2252a StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x2252a 63> {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
<Call 0x22538 0x103e0> {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
WriteConsoleStringCrLf(str : String)
<POP 2253e-22542 StackAdj> Δ+68 {}
<Blob 0x22542 [60] @> Δ-60 {[«60""»]}
<POP 2254e-22550 StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x22550 60> {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
<Call 0x2255e 0x103e0> {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
WriteConsoleStringCrLf(str : String)
<POP 22564-22568 StackAdj> Δ+64 {}
<Blob 0x22568 [32] @> Δ-32 {[«32""»]}
<POP 22574-22576 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x22576 32> {[«32""»]|[$$configuration or replace the PAD]}
<Call 0x22584 0x103e0> {[«32""»]|[$$configuration or replace the PAD]}
WriteConsoleStringCrLf(str : String)
<POP 2258a-2258c StackAdj> Δ+36 {}
<POP 2258c-22590 Naked> Σ0 ↓ ←0x2241c ←0x224d0
<Call 0x2258c 0x20fa6> {}
<POP 22590-22598 Epilogue> Σ0
@ 22598
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<LVAR -0x010 @ 4(rw)>
<POP 22598-22cda Body> Δ+80
<POP 22598-225ae Prologue> Σ0 ↓
<POP 225ae-225c4 RegCacheLoad> Σ0 ↓
<POP 225c4-22610 Naked> Σ0 →0x22618 →0x22648 →0x22676 →0x226a4
<Blob 0x225c4 [54] @> Δ-54 {[«54""»]}
<POP 225d4-225d6 StackAdj> Δ-8 {[«54""»]|[-8-]}
<Lit 0x225d6 53> {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]}
<Const 0x225e4 0x2.4> Δ-4 {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]}
<Const 0x225e8 0x5.4> Δ-4 {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
<Call 0x225ec 0x103ec> {[«54""»]|[-4-]|[$$Enter the port number you wish to configure [2..5] :_]|[##2]|[##5]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 225f2-225f4 StackAdj> Δ+12 {[«54""»]|[-4-]}
<MI 225f4 MOVE.L (A7)+,D7> Δ+4 {[«54""»]}
<POP 225f6-225f8 StackAdj> Δ+54 {}
<MI 225f8 MOVE.L D7,D0> {}
<MI 225fa SUBQ.L #0x2,D0> {}
<POP 0x225fc LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 22606 ADD.W D0,D0> {}
<MI 22608 SWITCH D0.W> {}
<POP 22618-22648 Naked> Σ0 Δ-8 →0x226d0 ←0x225c4
<Blob 0x22618 [2] @> Δ-2 {[«2""»]}
<Blob 0x2261c [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x22620 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 22624-22626 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x22626 6> {[«2""»]|[«2""»]|[«2""»]|[$$ PO:2_]}
<MI 22632 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 22634-22635 StackAdj> Δ+6 ↓ {}
<Blob 0x22635 [8] @> Δ-8 {[«8""»]}
<MI 22644 BRA 0x226d0> {[«8""»]}
<POP 22648-22676 Naked> Σ0 Δ-8 →0x226d0 ←0x225c4
<Blob 0x22648 [2] @> Δ-2 {[«2""»]}
<Blob 0x2264c [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x22650 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 22654-22656 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x22656 6> {[«2""»]|[«2""»]|[«2""»]|[$$ PO:3_]}
<MI 22662 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 22664-22665 StackAdj> Δ+6 ↓ {}
<Blob 0x22665 [8] @> Δ-8 {[«8""»]}
<MI 22674 BRA 0x226d0> {[«8""»]}
<POP 22676-226a4 Naked> Σ0 Δ-8 →0x226d0 ←0x225c4
<Blob 0x22676 [2] @> Δ-2 {[«2""»]}
<Blob 0x2267a [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x2267e [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 22682-22684 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x22684 6> {[«2""»]|[«2""»]|[«2""»]|[$$ PO:4_]}
<MI 22690 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 22692-22693 StackAdj> Δ+6 ↓ {}
<Blob 0x22693 [8] @> Δ-8 {[«8""»]}
<MI 226a2 BRA 0x226d0> {[«8""»]}
<POP 226a4-226d0 Naked> Σ0 Δ-8 ↓ ←0x225c4
<Blob 0x226a4 [2] @> Δ-2 {[«2""»]}
<Blob 0x226a8 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x226ac [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 226b0-226b2 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x226b2 6> {[«2""»]|[«2""»]|[«2""»]|[$$ PO:5_]}
<MI 226be MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 226c0-226c1 StackAdj> Δ+6 ↓ {}
<Blob 0x226c1 [8] @> Δ-8 {[«8""»]}
<POP 226d0-2274a Naked> Σ-8 Δ+8 ↓ →0x227c2 ←0x22618 ←0x22648 ←0x22676
<POP 226d0-226d2 StackAdj> Δ-4 {[-12-]}
<Lit 0x226d2> {[-8-]|[$$…]}
<Pointer.sp 0x226d2 4> Δ-4
<Const 0x226d6 0x1.2> Δ-2
<Const 0x226d8 0x7.2> Δ-2
<Call 0x226dc 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 226de-226e0 StackAdj> Δ+8
<MI 226e0 MOVE.L (A7)+,(A6-0x4)> Δ+4 {[-8-]}
<POP 226e4-226e6 StackAdj> Δ+8 {}
<MI 226e6 CLR.B 0x23180> {}
<Call 0x226ec 0x10216> {}
KC0b
<Call 0x226f2 0x2104e> {}
<Blob 0x226f6 [36] @> Δ-36 {[«36""»]}
<POP 22708-2270a StackAdj> Δ-6 {[«36""»]|[-6-]}
<Lit 0x2270a 35> {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]}
<POP 22716-22718 StackAdj> Δ-2 {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
<MI 22718 CLR.B (A7)> {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
<Call 0x2271a 0x103f0> {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 22720-22722 StackAdj> Δ+6 {[«36""»]|[-2-]}
<MI 22722 MOVE.B (A7)+,D0> Δ+2 {[«36""»]}
<MI 22724 EXTB.W D0> {[«36""»]}
<POP 0x22726 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«36""»]}
<POP 22728-2272c StackAdj> Δ+36 {}
<MI 2272c MOVE.B D0,0x23180> {}
<Const 0x22732 0x2.2> Δ-2 {[#2]}
<Const 0x22734 0x10.2> Δ-2 {[#2]|[#16]}
<Call 0x22736 0x1020c> {[#2]|[#16]}
KC06_PortPutChar(port : Word ; b : char)
<POP 2273c-2273e StackAdj> Δ+4 {}
<Call 0x2273e 0x2104e> {}
<MI 22742 TST.L 0x23986> {}
<MI 22748 BNE 0x227c2> {}
<POP 2274a-2278e Naked> Σ0 ↓ →0x227c2
<Const 0x2274a 0x2.2> Δ-2 {[#2]}
<Const 0x2274c 0x2e.2> Δ-2 {[#2]|[#46]}
<Call 0x22750 0x1020c> {[#2]|[#46]}
KC06_PortPutChar(port : Word ; b : char)
<POP 22756-22758 StackAdj> Δ+2 {[#2]}
<POP 22758-22759 StackAdj> Δ+2 {}
<Const 0x22759 0x2.2> Δ-2 {[#2]}
<Const 0x2275a 0x2e.2> Δ-2 {[#2]|[#46]}
<Call 0x2275e 0x1020c> {[#2]|[#46]}
KC06_PortPutChar(port : Word ; b : char)
<POP 22764-22766 StackAdj> Δ+2 {[#2]}
<POP 22766-22767 StackAdj> Δ+2 {}
<Const 0x22767 0x2.2> Δ-2 {[#2]}
<Const 0x22768 0x2e.2> Δ-2 {[#2]|[#46]}
<Call 0x2276c 0x1020c> {[#2]|[#46]}
KC06_PortPutChar(port : Word ; b : char)
<POP 22772-22774 StackAdj> Δ+2 {[#2]}
<POP 22774-22775 StackAdj> Δ+2 {}
<Const 0x22775 0x2.2> Δ-2 {[#2]}
<Const 0x22776 0xd.2> Δ-2 {[#2]|[#13]}
<Call 0x2277a 0x1020c> {[#2]|[#13]}
KC06_PortPutChar(port : Word ; b : char)
<POP 22780-22782 StackAdj> Δ+4 {}
<Call 0x22782 0x2104e> {}
<MI 22786 TST.L 0x23986> {}
<MI 2278c BNE 0x227c2> {}
<POP 2278e-227c2 Naked> Σ0 ↓
<Blob 0x2278e [48] @> Δ-48 {[«48""»]}
<POP 2279a-2279c StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x2279c 48> {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
<Call 0x227aa 0x103e0> {[«48""»]|[$$The PAD does not seem to be working, run TESTPAD]}
WriteConsoleStringCrLf(str : String)
<POP 227b0-227b4 StackAdj> Δ+50 {[-2-]}
<POP 227b4-227b5 StackAdj> Δ+2 {}
<Const 0x227b5 0x2.2> Δ-2 {[#2]}
<Const 0x227b6 0x1.4> Δ-4 {[#2]|[##1]}
<Call 0x227ba 0x103b8> {[#2]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 227c0-227c2 StackAdj> Δ+6 {}
<POP 227c2-227f6 Naked> Σ0 ↓ →0x227c2 ←0x226d0 ←0x2274a ←0x227c2
<Blob 0x227c2 [62] @> Δ-62 {[«62""»]}
<POP 227d4-227d6 StackAdj> Δ-8 {[«62""»]|[-8-]}
<Lit 0x227d6 61> {[«62""»]|[-4-]|[$$Enter the DTE address identification (ID) for the IOC port :_]}
<Call 0x227e4 0x103e4> {[«62""»]|[-4-]|[$$Enter the DTE address identification (ID) for the IOC port :_]}
AskConsoleString(prompt : String) : String
<POP 227ea-227ec StackAdj> Δ+4 {[«62""»]|[-4-]}
<MI 227ec MOVEA.L (A7)+,A4> Δ+4 {[«62""»]}
<POP 227ee-227f2 StackAdj> Δ+62 {}
<MI 227f2 TST.W (A4)> {}
<MI 227f4 BEQ 0x227c2> {}
<POP 227f6-2288a Naked> Σ0 ↓ →0x228e0
<Pointer.fp 0x227f6 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x227fa 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 22800-22801 StackAdj> Δ+4 ↓ {}
<Blob 0x22801 [10] @> Δ-10 {[«10""»]}
<Blob 0x22810 [10] @> Δ-10 {[«10""»]|[«10""»]}
<POP 22822-22824 StackAdj> Δ-4 {[«10""»]|[«10""»]|[-4-]}
<MI 22824 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']}
<POP 22828-2282a StackAdj> Δ-4 {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x2282a 9> {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]}
<POP 22836-22838 StackAdj> Δ-4 {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[-4-]}
<MI 22838 MOVE.L A4,(A7)> {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']}
<POP 2283a-2283c StackAdj> Δ-8 {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]}
<MI 2283c MOVE.L (A6-0x4),-(A7)> Δ-4 {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x4)']}
<Call 0x22840 0x102cc> {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x4)']}
StringDup(a : String) : String
<MI 22846 MOVE.L (A6-0x8),-(A7)> Δ-4 {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<Call 0x22848 0x102cc> {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x4)']|[4, '(A6-0x8)']}
StringDup(a : String) : String
<Lit 0x2284e 9> {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x4)']|[$$PA:XYXYXY]}
<Call 0x2285c 0x102d4> {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-8-]|[4, '(A6-0x4)']|[$$PA:XYXYXY]}
StringCat3(a, b, c : String) : String
<POP 22862-22864 StackAdj> Δ+12 {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-4-]}
<Call 0x22864 0x102d8> {[«10""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$A P G AD:]|[4, 'A4']|[-4-]}
StringCat4(a, b, c, d : String) : String
<POP 2286a-2286c StackAdj> Δ+16 {[«10""»]|[«10""»]|[-4-]}
<MI 2286c MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«10""»]|[«10""»]}
<POP 22870-22872 StackAdj> Δ+16 {[-4-]}
<MI 22872 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<Call 0x22876 0x20fd0> {[4, '(A6-0x10)']}
<POP 2287a-2287c StackAdj> Δ+4 {}
<Call 0x2287c 0x2104e> {}
<POP 22880-22882 StackAdj> Δ-2 {[-2-]}
<Call 0x22882 0x21276> {[-2-]}
<MI 22886 TST.B (A7)+> Δ+2 {}
<MI 22888 BEQ 0x228e0> {}
<POP 2288a-228e0 Naked> Σ0 →0x22cce
<Blob 0x2288a [64] @> Δ-64 {[«64""»]}
<POP 2289c-2289e StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x2289e 63> {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
<Call 0x228ac 0x103e0> {[«64""»]|[$$Add Port Group failed, manually delete the group and remove the]}
WriteConsoleStringCrLf(str : String)
<POP 228b2-228b6 StackAdj> Δ+68 {}
<Blob 0x228b6 [66] @> Δ-66 {[«66""»]}
<POP 228c2-228c4 StackAdj> Δ-4 {[«66""»]|[-4-]}
<Lit 0x228c4 66> {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
<Call 0x228d2 0x103e0> {[«66""»]|[$$port from any group to which it is attached. [use D P G and R P G]]}
WriteConsoleStringCrLf(str : String)
<POP 228d8-228dc StackAdj> Δ+70 {}
<MI 228dc BRA 0x22cce> {}
<POP 228e0-2291c Naked> Σ0 ↓ →0x2294c ←0x227f6
<Blob 0x228e0 [44] @> Δ-44 {[«44""»]}
<POP 228ec-228ee StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x228ee 44> {[«44""»]|[$$S N C CH:1 NS:128 SS:128 FW:7 PW:2 PA:XYXYXY]}
<MI 228fc MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«44""»]}
<POP 22900-22904 StackAdj> Δ+40 {[-4-]}
<MI 22904 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<Call 0x22908 0x20fd0> {[4, '(A6-0x10)']}
<POP 2290c-2290e StackAdj> Δ+4 {}
<Call 0x2290e 0x2104e> {}
<POP 22912-22914 StackAdj> Δ-2 {[-2-]}
<Call 0x22914 0x21276> {[-2-]}
<MI 22918 TST.B (A7)+> Δ+2 {}
<MI 2291a BEQ 0x2294c> {}
<POP 2291c-2292e Naked> Σ0 Δ-14 ↓
<Blob 0x2291c [14] @> Δ-14 {[«14""»]}
<POP 2292e-2294c Naked> Σ-14 Δ+14 →0x22c56 ←0x229c6 ←0x22a52 ←0x22ae6 ←0x22b70
<POP 2292e-22930 StackAdj> Δ-4 {[-18-]}
<Lit 0x22930> {[-14-]|[$$…]}
<Pointer.sp 0x22930 4> Δ-4
<Const 0x22934 0x1.2> Δ-2
<Const 0x22936 0xd.2> Δ-2
<Call 0x2293a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2293c-2293e StackAdj> Δ+8
<Call 0x2293e 0x103e0> {[-14-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 22944-22948 StackAdj> Δ+18 {}
<MI 22948 BRA 0x22c56> {}
<POP 2294c-229c6 Naked> Σ0 ↓ →0x229dc ←0x228e0
<Pointer.fp 0x2294c <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x22950 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 22956-22958 StackAdj> Δ+4 {}
<Blob 0x22958 [38] @> Δ-38 {[«38""»]}
<Blob 0x22964 [20] @> Δ-20 {[«38""»]|[«20""»]}
<POP 22976-22978 StackAdj> Δ-4 {[«38""»]|[«20""»]|[-4-]}
<MI 22978 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']}
<POP 2297c-2297e StackAdj> Δ-4 {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x2297e 38> {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[$$S A P CO:B DC:N DO:N FS:128 ID:A2 PC:N]}
<MI 2298a MOVE.L (A6-0x8),(A7)> {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']}
<POP 22988-2298a StackAdj> Δ-8 {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
<Call 0x2298c 0x102cc> {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
StringDup(a : String) : String
<Lit 0x22992 19> {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-4-]|[$$TP:Y US:N PA:XYXYXY]}
<Call 0x229a0 0x102d8> {[«38""»]|[«20""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-4-]|[$$TP:Y US:N PA:XYXYXY]}
StringCat4(a, b, c, d : String) : String
<POP 229a6-229a8 StackAdj> Δ+16 {[«38""»]|[«20""»]|[-4-]}
<MI 229a8 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«38""»]|[«20""»]}
<POP 229ac-229ae StackAdj> Δ+54 {[-4-]}
<MI 229ae MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<Call 0x229b2 0x20fd0> {[4, '(A6-0x10)']}
<POP 229b6-229b8 StackAdj> Δ+4 {}
<Call 0x229b8 0x2104e> {}
<POP 229bc-229be StackAdj> Δ-2 {[-2-]}
<Call 0x229be 0x21276> {[-2-]}
<MI 229c2 TST.B (A7)+> Δ+2 {}
<MI 229c4 BEQ 0x229dc> {}
<POP 229c6-229dc Naked> Σ0 Δ-14 →0x2292e
<Blob 0x229c6 [14] @> Δ-14 {[«14""»]}
<MI 229d8 BRA 0x2292e> {[«14""»]}
<POP 229dc-22a52 Naked> Σ0 ↓ →0x22a68 ←0x2294c
<Pointer.fp 0x229dc <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x229e0 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 229e6-229e8 StackAdj> Δ+4 {}
<Blob 0x229e8 [10] @> Δ-10 {[«10""»]}
<Blob 0x229f4 [32] @> Δ-32 {[«10""»]|[«32""»]}
<POP 22a00-22a02 StackAdj> Δ-4 {[«10""»]|[«32""»]|[-4-]}
<MI 22a02 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']}
<POP 22a06-22a08 StackAdj> Δ-4 {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x22a08 10> {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[$$S L P LE:8]}
<MI 22a14 MOVE.L (A6-0x8),(A7)> {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']}
<POP 22a12-22a14 StackAdj> Δ-8 {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
<Call 0x22a16 0x102cc> {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
StringDup(a : String) : String
<Lit 0x22a1c 32> {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-4-]|[$$PR:N ST:1 SP:9600 UC:Y PA:XYXYXY]}
<Call 0x22a2a 0x102d8> {[«10""»]|[«32""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-4-]|[$$PR:N ST:1 SP:9600 UC:Y PA:XYXYXY]}
StringCat4(a, b, c, d : String) : String
<POP 22a30-22a32 StackAdj> Δ+16 {[«10""»]|[«32""»]|[-4-]}
<MI 22a32 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«10""»]|[«32""»]}
<POP 22a36-22a3a StackAdj> Δ+38 {[-4-]}
<MI 22a3a MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<Call 0x22a3e 0x20fd0> {[4, '(A6-0x10)']}
<POP 22a42-22a44 StackAdj> Δ+4 {}
<Call 0x22a44 0x2104e> {}
<POP 22a48-22a4a StackAdj> Δ-2 {[-2-]}
<Call 0x22a4a 0x21276> {[-2-]}
<MI 22a4e TST.B (A7)+> Δ+2 {}
<MI 22a50 BEQ 0x22a68> {}
<POP 22a52-22a68 Naked> Σ0 Δ-14 →0x2292e
<Blob 0x22a52 [14] @> Δ-14 {[«14""»]}
<MI 22a64 BRA 0x2292e> {[«14""»]}
<POP 22a68-22ae6 Naked> Σ0 ↓ →0x22afc ←0x229dc
<Pointer.fp 0x22a68 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x22a6c 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 22a72-22a73 StackAdj> Δ+4 ↓ {}
<Blob 0x22a73 [16] @> Δ-16 {[«16""»]}
<Blob 0x22a82 [10] @> Δ-10 {[«16""»]|[«10""»]}
<POP 22a94-22a96 StackAdj> Δ-4 {[«16""»]|[«10""»]|[-4-]}
<MI 22a96 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']}
<POP 22a9a-22a9c StackAdj> Δ-4 {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x22a9c 15> {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[$$S U C XA:Y XD:3]}
<MI 22aa8 MOVE.L (A6-0x8),(A7)> {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']}
<POP 22aa6-22aa8 StackAdj> Δ-8 {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
<Call 0x22aaa 0x102cc> {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-8-]}
StringDup(a : String) : String
<Lit 0x22ab0 9> {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-4-]|[$$PA:XYXYXY]}
<Call 0x22abe 0x102d8> {[«16""»]|[«10""»]|[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x8)']|[-4-]|[$$PA:XYXYXY]}
StringCat4(a, b, c, d : String) : String
<POP 22ac4-22ac6 StackAdj> Δ+16 {[«16""»]|[«10""»]|[-4-]}
<MI 22ac6 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«16""»]|[«10""»]}
<POP 22aca-22ace StackAdj> Δ+22 {[-4-]}
<MI 22ace MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<Call 0x22ad2 0x20fd0> {[4, '(A6-0x10)']}
<POP 22ad6-22ad8 StackAdj> Δ+4 {}
<Call 0x22ad8 0x2104e> {}
<POP 22adc-22ade StackAdj> Δ-2 {[-2-]}
<Call 0x22ade 0x21276> {[-2-]}
<MI 22ae2 TST.B (A7)+> Δ+2 {}
<MI 22ae4 BEQ 0x22afc> {}
<POP 22ae6-22afc Naked> Σ0 Δ-14 →0x2292e
<Blob 0x22ae6 [14] @> Δ-14 {[«14""»]}
<MI 22af8 BRA 0x2292e> {[«14""»]}
<POP 22afc-22b70 Naked> Σ0 ↓ →0x22b86 ←0x22a68
<Pointer.fp 0x22afc <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x22b00 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 22b06-22b07 StackAdj> Δ+4 ↓ {}
<Blob 0x22b07 [48] @> Δ-48 {[«48""»]}
<Blob 0x22b18 [42] @> Δ-42 {[«48""»]|[«42""»]}
<POP 22b24-22b26 StackAdj> Δ-4 {[«48""»]|[«42""»]|[-4-]}
<MI 22b26 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x10)']}
<POP 22b2a-22b2c StackAdj> Δ-4 {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x22b2c 47> {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x10)']|[$$A X T XC:2 XD:3 XP:1,1,2,0,3,0,4,2,5,0,6,1,7,4,]}
<POP 22b38-22b3a StackAdj> Δ-4 {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x10)']|[$$A X T XC:2 XD:3 XP:1,1,2,0,3,0,4,2,5,0,6,1,7,4,]|[-4-]}
<Lit 0x22b3a 42> {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x10)']|[$$A X T XC:2 XD:3 XP:1,1,2,0,3,0,4,2,5,0,6,1,7,4,]|[$$8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY]}
<Call 0x22b48 0x102d4> {[«48""»]|[«42""»]|[-4-]|[4, '(A6-0x10)']|[$$A X T XC:2 XD:3 XP:1,1,2,0,3,0,4,2,5,0,6,1,7,4,]|[$$8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY]}
StringCat3(a, b, c : String) : String
<POP 22b4e-22b50 StackAdj> Δ+12 {[«48""»]|[«42""»]|[-4-]}
<MI 22b50 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«48""»]|[«42""»]}
<POP 22b54-22b58 StackAdj> Δ+86 {[-4-]}
<MI 22b58 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<Call 0x22b5c 0x20fd0> {[4, '(A6-0x10)']}
<POP 22b60-22b62 StackAdj> Δ+4 {}
<Call 0x22b62 0x2104e> {}
<POP 22b66-22b68 StackAdj> Δ-2 {[-2-]}
<Call 0x22b68 0x21276> {[-2-]}
<MI 22b6c TST.B (A7)+> Δ+2 {}
<MI 22b6e BEQ 0x22b86> {}
<POP 22b70-22b86 Naked> Σ0 Δ-14 →0x2292e
<Blob 0x22b70 [14] @> Δ-14 {[«14""»]}
<MI 22b82 BRA 0x2292e> {[«14""»]}
<POP 22b86-22bee Naked> Σ0 ↓ →0x22c18 ←0x22afc
<Blob 0x22b86 [14] @> Δ-14 {[«14""»]}
<POP 22b98-22b9a StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x22b9a 13> {[«14""»]|[$$W S PA:XYXYXY]}
<MI 22ba8 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«14""»]}
<POP 22bac-22bae StackAdj> Δ+6 {[-8-]}
<MI 22bae MOVE.L (A6-0x10),(A7)> {[-4-]|[4, '(A6-0x10)']}
<POP 22bb2-22bb4 StackAdj> Δ-4 {[-4-]|[4, '(A6-0x10)']|[-4-]}
<MI 22bb4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[-4-]|[4, '(A6-0x8)']}
<Call 0x22bb6 0x102cc> {[-4-]|[4, '(A6-0x10)']|[-4-]|[4, '(A6-0x8)']}
StringDup(a : String) : String
<POP 22bbc-22bbe StackAdj> Δ+4 {[-4-]|[4, '(A6-0x10)']|[-4-]}
<Call 0x22bbe 0x102d0> {[-4-]|[4, '(A6-0x10)']|[-4-]}
StringCat2(a, b : String) : String
<POP 22bc4-22bc6 StackAdj> Δ+8 {[-4-]}
<MI 22bc6 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 22bca MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x22bce 0x20fd0> {[4, '(A6-0x10)']}
<POP 22bd2-22bd3 StackAdj> Δ+4 {}
<Const 0x22bd3 0x2faee.4> Δ-4 {[##195310]}
<Call 0x22bd8 0x10224> {[##195310]}
KC12_Sleep(dur: Long)
<POP 22bde-22be0 StackAdj> Δ+4 {}
<Call 0x22be0 0x2104e> {}
<POP 22be4-22be6 StackAdj> Δ-2 {[-2-]}
<Call 0x22be6 0x21418> {[-2-]}
<MI 22bea TST.B (A7)+> Δ+2 {}
<MI 22bec BEQ 0x22c18> {}
<POP 22bee-22c18 Naked> Σ0 →0x22c56
<Blob 0x22bee [12] @> Δ-12 {[«12""»]}
<POP 22bfe-22c00 StackAdj> Δ-4 {[«12""»]|[-4-]}
<Lit 0x22c00 11> {[«12""»]|[$$W S failed.]}
<Call 0x22c0e 0x103e0> {[«12""»]|[$$W S failed.]}
WriteConsoleStringCrLf(str : String)
<POP 22c14-22c16 StackAdj> Δ+16 {}
<MI 22c16 BRA 0x22c56> {}
<POP 22c18-22c56 Naked> Σ0 →0x22cce ←0x22b86
<Blob 0x22c18 [28] @> Δ-28 {[«28""»]}
<POP 22c24-22c26 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x22c26 28> {[«28""»]|[$$The PAD has been configured!]}
<Call 0x22c34 0x103e0> {[«28""»]|[$$The PAD has been configured!]}
WriteConsoleStringCrLf(str : String)
<POP 22c3a-22c3e StackAdj> Δ+32 {}
<Pointer.fp 0x22c3e <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22c40 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22c46-22c48 StackAdj> Δ+4 {}
<Pointer.fp 0x22c48 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x22c4c 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 22c52-22c54 StackAdj> Δ+4 {}
<MI 22c54 BRA 0x22cce> {}
<POP 22c56-22cce Naked> Σ0 ↓ ←0x2292e ←0x22bee
<Blob 0x22c56 [64] @> Δ-64 {[«64""»]}
<POP 22c68-22c6a StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x22c6a 63> {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
<Call 0x22c78 0x103e0> {[«64""»]|[$$Cold Start (manual reset button in back of the PAD) the PAD and]}
WriteConsoleStringCrLf(str : String)
<POP 22c7e-22c82 StackAdj> Δ+68 {}
<Blob 0x22c82 [60] @> Δ-60 {[«60""»]}
<POP 22c8e-22c90 StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x22c90 60> {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
<Call 0x22c9e 0x103e0> {[«60""»]|[$$retry configurating. If the problem persists, attempt manual]}
WriteConsoleStringCrLf(str : String)
<POP 22ca4-22ca8 StackAdj> Δ+64 {}
<Blob 0x22ca8 [32] @> Δ-32 {[«32""»]}
<POP 22cb4-22cb6 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x22cb6 32> {[«32""»]|[$$configuration or replace the PAD]}
<Call 0x22cc4 0x103e0> {[«32""»]|[$$configuration or replace the PAD]}
WriteConsoleStringCrLf(str : String)
<POP 22cca-22cce StackAdj> Δ+36 {}
<POP 22cce-22cd2 Naked> Σ0 ↓ ←0x2288a ←0x22c18
<Call 0x22cce 0x20fa6> {}
<POP 22cd2-22cda Epilogue> Σ0
@ 22cda
<POP 22cda-22e9a Body> Δ+2
<POP 22cda-22cf0 Prologue> Σ0 ↓
<POP 22cf0-22d06 RegCacheLoad> Σ0 ↓
<POP 22d06-22e22 Naked> Σ0 →0x22e2e →0x22e30 →0x22e36 →0x22e3c →0x22e46 →0x22e4a ←0x22e7e
<Blob 0x22d06 [4] @> Δ-4 {[«4""»]}
<Blob 0x22d0a [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x22d0e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 22d12-22d14 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x22d14 12> {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
<Call 0x22d20 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
WriteConsoleStringCrLf(str : String)
<POP 22d22-22d23 StackAdj> Δ+16 ↓ {}
<Blob 0x22d23 [14] @> Δ-14 {[«14""»]}
<POP 22d32-22d34 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x22d34 13> {[«14""»]|[$$ 0 => Exit]}
<Call 0x22d42 0x103e0> {[«14""»]|[$$ 0 => Exit]}
WriteConsoleStringCrLf(str : String)
<POP 22d44-22d48 StackAdj> Δ+18 {}
<Blob 0x22d48 [38] @> Δ-38 {[«38""»]}
<POP 22d54-22d56 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x22d56 38> {[«38""»]|[$$ 1 => Manual Configure [ Any port ]]}
<Call 0x22d62 0x103e0> {[«38""»]|[$$ 1 => Manual Configure [ Any port ]]}
WriteConsoleStringCrLf(str : String)
<POP 22d64-22d68 StackAdj> Δ+42 {}
<Blob 0x22d68 [38] @> Δ-38 {[«38""»]}
<POP 22d74-22d76 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x22d76 38> {[«38""»]|[$$ 2 => Auto Configure [ IOC port ]]}
<Call 0x22d82 0x103e0> {[«38""»]|[$$ 2 => Auto Configure [ IOC port ]]}
WriteConsoleStringCrLf(str : String)
<POP 22d84-22d85 StackAdj> Δ+42 ↓ {}
<Blob 0x22d85 [76] @> Δ-76 {[«76""»]}
<POP 22d96-22d98 StackAdj> Δ-4 {[«76""»]|[-4-]}
<Lit 0x22d98 75> {[«76""»]|[$$ 3 => Auto Configure [ Environment port, CTS (hardware) flow control ]]}
<Call 0x22da6 0x103e0> {[«76""»]|[$$ 3 => Auto Configure [ Environment port, CTS (hardware) flow control ]]}
WriteConsoleStringCrLf(str : String)
<POP 22da8-22da9 StackAdj> Δ+80 ↓ {}
<Blob 0x22da9 [70] @> Δ-70 {[«70""»]}
<POP 22dba-22dbc StackAdj> Δ-4 {[«70""»]|[-4-]}
<Lit 0x22dbc 69> {[«70""»]|[$$ 4 => Auto Configure [ Environment port, XON_XOFF flow control ]]}
<Call 0x22dca 0x103e0> {[«70""»]|[$$ 4 => Auto Configure [ Environment port, XON_XOFF flow control ]]}
WriteConsoleStringCrLf(str : String)
<POP 22dcc-22dcd StackAdj> Δ+74 ↓ {}
<Blob 0x22dcd [16] @> Δ-16 {[«16""»]}
<POP 22dde-22de0 StackAdj> Δ-8 {[«16""»]|[-8-]}
<Lit 0x22de0 15> {[«16""»]|[-4-]|[$$Enter option :_]}
<Const 0x22dee 0x0.4> Δ-4 {[«16""»]|[-4-]|[$$Enter option :_]|[##0]}
<Const 0x22df2 0x5.4> Δ-4 {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[##5]}
<Call 0x22df6 0x103ec> {[«16""»]|[-4-]|[$$Enter option :_]|[##0]|[##5]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 22dfc-22dfe StackAdj> Δ+12 {[«16""»]|[-4-]}
<MI 22dfe MOVE.B (A7+0x3),D0> {[«16""»]|[-4-]}
<MI 22e02 EXTB.W D0> {[«16""»]|[-4-]}
<POP 0x22e04 LimitCheck 0x0 ≤ D0 ≤ 0x5> {[«16""»]|[-4-]}
<POP 22e06-22e0a StackAdj> Δ+20 {}
<MI 22e0a MOVE.B D0,D7> {}
<MI 22e0c MOVE.B D7,D0> {}
<MI 22e0e EXTB.W D0> {}
<MI 22e10 MOVE.W D0,D1> {}
<POP 0x22e12 LimitCheck 0x0 ≤ D1 ≤ 0x5> {}
<MI 22e18 ADD.W D1,D1> {}
<MI 22e1a SWITCH D1.W> {}
<POP 22e2e-22e30 Naked> Σ0 →0x22e7e ←0x22d06
<MI 22e2e BRA 0x22e7e> {}
<POP 22e30-22e36 Naked> Σ0 →0x22e7e ←0x22d06
<Call 0x22e30 0x21104> {}
<MI 22e34 BRA 0x22e7e> {}
<POP 22e36-22e3c Naked> Σ0 →0x22e7e ←0x22d06
<Call 0x22e36 0x21542> {}
<MI 22e3a BRA 0x22e7e> {}
<POP 22e3c-22e3e Naked> Σ0 Δ-2 ↓ ←0x22d06
<MI 22e3c CLR.B -(A7)> Δ-2 {[#0]}
<POP 22e3e-22e46 Naked> Σ-2 Δ+2 →0x22e7e ←0x22e46
<Call 0x22e3e 0x21db6> {[-2-]}
<POP 22e42-22e44 StackAdj> Δ+2 {}
<MI 22e44 BRA 0x22e7e> {}
<POP 22e46-22e4a Naked> Σ0 Δ-2 →0x22e3e ←0x22d06
<Const 0x22e46 0x1.2> Δ-2 {[#1]}
<MI 22e48 BRA 0x22e3e> {[#1]}
<POP 22e4a-22e78 Naked> Σ0 Δ-36 ↓ →0x22e7c ←0x22d06
<Blob 0x22e4a [36] @> Δ-36 {[«36""»]}
<POP 22e5a-22e5c StackAdj> Δ-6 {[«36""»]|[-6-]}
<Lit 0x22e5c 35> {[«36""»]|[-2-]|[$$Unsupported function, are you sure_]}
<POP 22e68-22e6a StackAdj> Δ-2 {[«36""»]|[-2-]|[$$Unsupported function, are you sure_]|[-2-]}
<MI 22e6a CLR.B (A7)> {[«36""»]|[-2-]|[$$Unsupported function, are you sure_]|[-2-]}
<Call 0x22e6c 0x103f0> {[«36""»]|[-2-]|[$$Unsupported function, are you sure_]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 22e72-22e74 StackAdj> Δ+6 {[«36""»]|[-2-]}
<MI 22e74 TST.B (A7)+> Δ+2 {[«36""»]}
<MI 22e76 BEQ 0x22e7c> {[«36""»]}
<POP 22e78-22e7c Naked> Σ-36 ↓
<Call 0x22e78 0x22598> {[-36-]}
<POP 22e7c-22e7e Naked> Σ-36 Δ+36 ↓ ←0x22e4a
<POP 22e7c-22e7e StackAdj> Δ+36 {}
<POP 22e7e-22e84 Naked> Σ0 ↓ →0x22d06 ←0x22e2e ←0x22e30 ←0x22e36 ←0x22e3e
<MI 22e7e TST.W D0> {}
<MI 22e80 BNE 0x22d06> {}
<POP 22e84-22e92 Naked> Σ0 ↓
<MI 22e84 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x22e86 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x22e8a 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 22e90-22e92 StackAdj> Δ+6 {}
<POP 22e92-22e9a Epilogue> Σ0
@ 22e9a
START
<POP 22e9a--0001 Body>
<POP 22e9a-22ea4 Prologue> Σ0
<POP 22ea4-22ea6 RegCacheLoad> Σ0 ↓
<POP 22ea6-22ed8 Naked> Σ0 ↓ →0x22f32
<Call 0x22ea6 0x10398> {}
FSCALL_10398
<MI 22eac CLR.B 0x23180> {}
<POP 22eb2-22eb4 StackAdj> Δ-2 {[-2-]}
<Const 0x22eb4 0x180.4> Δ-4 {[-2-]|[##384]}
<Call 0x22eb8 0x10592> {[-2-]|[##384]}
ReadConfig(where : Long) : Word
<POP 22ebe-22ec0 StackAdj> Δ+4 {[-2-]}
<MI 22ec0 MOVE.W (A7)+,D0> Δ+2 {}
<MI 22ec2 EXTW.L D0> {}
<MI 22ec4 MOVE.L D0,0x23182> {}
<MI 22eca SUBI.L #0x0000004d,D0> {}
<MI 22ed0 CMPI.L #0x0000000b,D0> {}
<MI 22ed6 BHI 0x22f32> {}
<POP 22ed8-22ee2 Naked> Σ0 →0x22efa →0x22f32 →0x22f32 →0x22f32 →0x22f32 →0x22f32 →0x22f32 →0x22f32 →0x22f32 →0x22f32 →0x22f32 →0x22f2c
<MI 22ed8 ADD.W D0,D0> {}
<MI 22eda SWITCH D0.W> {}
<POP 22efa-22f2c Naked> Σ0 →0x22f5c ←0x22ed8
<Blob 0x22efa [62] @> Δ-62 {[«62""»]}
<POP 22f0c-22f0e StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x22f0e 61> {[«62""»]|[$$NOVRAM indicates modem attached, run INITIOA to change to PAD]}
<Call 0x22f20 0x103e0> {[«62""»]|[$$NOVRAM indicates modem attached, run INITIOA to change to PAD]}
WriteConsoleStringCrLf(str : String)
<POP 22f26-22f2a StackAdj> Δ+66 {}
<MI 22f2a BRA 0x22f5c> {}
<POP 22f2c-22f32 Naked> Σ0 →0x22f6c ←0x22ed8
<Call 0x22f2c 0x22cda> {}
<MI 22f30 BRA 0x22f6c> {}
<POP 22f32-22f5c Naked> Σ0 ↓ ←0x22ea6 ←0x22ed8 ←0x22ed8 ←0x22ed8 ←0x22ed8 ←0x22ed8 ←0x22ed8 ←0x22ed8 ←0x22ed8 ←0x22ed8 ←0x22ed8
<Blob 0x22f32 [46] @> Δ-46 {[«46""»]}
<POP 22f3e-22f40 StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x22f40 46> {[«46""»]|[$$NOVRAM is not properly configured, run INITIOA]}
<Call 0x22f52 0x103e0> {[«46""»]|[$$NOVRAM is not properly configured, run INITIOA]}
WriteConsoleStringCrLf(str : String)
<POP 22f58-22f5c StackAdj> Δ+50 {}
<POP 22f5c-22f6c Naked> Σ0 ↓ ←0x22efa
<Const 0x22f5c 0x2.2> Δ-2 {[#2]}
<Const 0x22f60 0x1.4> Δ-4 {[#2]|[##1]}
<Call 0x22f64 0x103b8> {[#2]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 22f6a-22f6c StackAdj> Δ+6 {}
<POP 22f6c-22f72 Naked> Σ0 ←0x22f2c
<Call 0x22f6c 0x10284> {}
?exit
@ 22f80
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 22f80-22fe8 Body>
<POP 22f80-22f96 Prologue> Σ0 ↓
<POP 22f96-22fe0 Naked> Σ0 ↓
<Blob 0x22f96 [14] @> Δ-14 {[«14""»]}
<Const 0x22fa2 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 22fa6-22fa8 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x22fa8 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 22fba-22fbc StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 22fbc MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 22fc0 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 22fc2 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 22fc4 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x22fc6 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 22fcc-22fce StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x22fce 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 22fd4-22fd6 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x22fd6 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 22fdc-22fe0 StackAdj> Δ+20 {}
<POP 22fe0-22fe8 Epilogue> Σ0
@ 2303c
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 2303c-23178 Body>
<POP 2303c-23052 Prologue> Σ0 ↓
<POP 23052-23068 RegCacheLoad> Σ0 ↓
<POP 23068-230c8 Naked> Σ0 ↓ →0x23110
<Call 0x23068 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2306e [18] @> Δ-18 {[«18""»]}
<POP 2307a-2307c StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2307c 18> {[«18""»]|[$$Experiment error :]}
<Call 0x23088 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 2308a-2308b StackAdj> Δ+22 ↓ {}
<Blob 0x2308b [14] @> Δ-14 {[«14""»]}
<POP 2309a-2309c StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x2309c 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 230a6-230a8 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 230a8 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x230ac 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 230b2-230b4 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x230b4 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 230ba-230bc StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x230bc 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 230be-230c0 StackAdj> Δ+18 {}
<MI 230c0 MOVEA.L (A6+0xa),A0> {}
<MI 230c4 CMPA.W #0x01,A0> {}
<MI 230c6 BEQ 0x23110> {}
<POP 230c8-23110 Naked> Σ0 ↓
<Blob 0x230c8 [14] @> Δ-14 {[«14""»]}
<Blob 0x230d8 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 230e8-230ea StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x230ea 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 230f4-230f6 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x230f6> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x230f6 12> Δ-4
<Const 0x230fa 0x1.2> Δ-2
<Const 0x230fc 0x1e.2> Δ-2
<Call 0x230fe 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23100-23102 StackAdj> Δ+8
<Call 0x23102 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 23108-2310a StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x2310a 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2310c-23110 StackAdj> Δ+48 {}
<POP 23110-23170 Naked> Σ0 ↓ ←0x23068
<Blob 0x23110 [14] @> Δ-14 {[«14""»]}
<POP 23120-23122 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x23122 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 2312c-2312e StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 2312e MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x23132 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 23138-2313a StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x2313a 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 23140-23142 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x23142 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23144-23145 StackAdj> Δ+18 ↓ {}
<Blob 0x23145 [24] @> Δ-24 {[«24""»]}
<Const 0x23154 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 23158-2315a StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x2315a 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x23168 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 2316e-23170 StackAdj> Δ+30 {}
<POP 23170-23178 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.0b4dd522fbcf4e6a 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 2e 9a | . | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 39 9c | 9 | .PTR 0x2399c 00020010 code.end: 00020010 00 02 31 78 | 1x | .PTR 0x23178 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 2f 80 | / | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 30 3c | 0< | .CODE EXP_FAIL 00020020 00 00 00 00 | | .CONST 0x00000000 00020024 exp_init_done: 00020024 00 | | .CONST 0x00 00020025 00 | | .CONST 0x00 00020026 00 00 | | .CONST 0x0000 00020028 00 00 | | .CONST 0x0000 0002002a 00 00 | | .XXX[0x2] 0002002c 00 00 | | .CONST 0x0000 0002002e 00 00 | | .CONST 0x0000 00020030 00 00 | | .CONST 0x0000 00020032 00 00 00 00 00 00 | | .XXX[0x6] 00020038 00 00 00 00 00 00 00 00 | | .BLANK 00[0xb0] 000200e8 00 00 00 00 | | .XXX[0x4] 000200ec 00 00 00 00 | | .PTR 0x0 000200f0 is_open_ERROR_LOG: 000200f0 00 | | .CONST 0x0 000200f1 write_error_ERROR_LOG: 000200f1 00 | | .CONST 0x0 000200f2 00 00 00 00 | | .CONST 0x00000000 000200f6 00 00 00 00 | | .CONST 0x00000000 000200fa 00 | | .CONST 0x00 000200fb 00 | | .CONST 0x00 000200fc file_ERROR_LOG: 000200fc 00 00 00 00 | | .CONST 0x00000000 00020100 00 00 00 00 | | .CONST 0x00000000 00020104 00 00 | | .CONST 0x0000 00020106 00 00 | | .CONST 0x0000 00020108 somekindoffsflag: 00020108 00 | | .CONST 0x00 00020109 00 | | .CONST 0x00 0002010a 4e 4f 56 52 41 4d 20 69 |NOVRAM i| .TXT 'NOVRAM indicates modem attached, run INITIOA to change to PAD ' 00020148 4e 4f 56 52 41 4d 20 69 |NOVRAM i| .TXT 'NOVRAM is not properly configured, run INITIOA' 00020176 44 6f |Do | .XXX[0x2] 00020178 20 79 6f 75 20 77 69 73 | you wis| .XXX[0x20] 00020180 68 20 74 6f 20 72 75 6e |h to run| 00020188 20 69 6e 20 56 45 52 42 | in VERB| 00020190 4f 53 45 20 6d 6f 64 65 |OSE mode| 00020198 5f 20 |_ | .XXX[0x2] 0002019a 44 69 72 65 63 74 20 63 |Direct c| .TXT 'Direct communication to PAD established, use <CNTL>C to exit' 000201d6 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown status retruned from console buffer ' 00020202 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown status retruned from pad buffer ' 0002022a 54 68 65 20 50 41 44 20 |The PAD | .TXT 'The PAD does not seem to be working, run TESTPAD' 0002025a 41 64 64 20 50 6f 72 74 |Add Port| .TXT 'Add Port Group failed, manually delete the group and remove the ' 0002029a 70 6f 72 74 20 66 72 6f |port fro| .TXT 'port from any group to which it is attached. [use D P G and R P G]' 000202dc 53 20 4e 20 43 20 66 61 |S N C fa| .TXT 'S N C failed. ' 000202ea 43 6f 6c 64 20 53 74 61 |Cold Sta| .TXT 'Cold Start (manual reset button in back of the PAD) the PAD and ' 0002032a 72 65 74 72 79 20 63 6f |retry co| .TXT 'retry configurating. If the problem persists, attempt manual' 00020366 63 6f 6e 66 69 67 75 72 |configur| .TXT 'configuration or replace the PAD' 00020386 53 20 41 20 50 20 66 61 |S A P fa| .TXT 'S A P failed. ' 00020394 53 20 4c 20 50 20 66 61 |S L P fa| .TXT 'S L P failed. ' 000203a2 53 20 55 20 43 20 66 61 |S U C fa| .TXT 'S U C failed. ' 000203b0 46 69 72 73 74 20 41 20 |First A | .TXT 'First A X T failed. ' 000203c4 53 65 63 6f 6e 64 20 41 |Second A| .TXT 'Second A X T failed.' 000203d8 57 20 53 20 66 61 69 6c |W S fail| .TXT 'W S failed. ' 000203e4 45 6e 74 65 72 20 74 68 |Enter th| .TXT 'Enter the port number you wish to configure [2..5] :_ ' 0002041a 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you wish to run in VERBOSE mode_ ' 0002043e 45 6e 74 65 72 20 74 68 |Enter th| .TXT 'Enter the DTE address identification (ID) for the IOC port :_ ' 0002047c 45 6e 74 65 72 20 4c 45 |Enter LE| .TXT 'Enter LEVEL 3 packet size [64..256] :_' 000204a2 20 50 | P | .TXT ' P' 000204a4 4f 3a |O: | .TXT 'O:' 000204a6 32 5f |2_ | .TXT '2_' 000204a8 20 47 52 3a 50 32 20 20 | GR:P2 | .TXT ' GR:P2 ' 000204b0 20 50 | P | .TXT ' P' 000204b2 4f 3a |O: | .TXT 'O:' 000204b4 33 5f |3_ | .TXT '3_' 000204b6 20 47 52 3a 50 33 20 20 | GR:P3 | .TXT ' GR:P3 ' 000204be 20 50 | P | .TXT ' P' 000204c0 4f 3a |O: | .TXT 'O:' 000204c2 34 5f |4_ | .TXT '4_' 000204c4 20 47 52 3a 50 34 20 20 | GR:P4 | .TXT ' GR:P4 ' 000204cc 20 50 | P | .TXT ' P' 000204ce 4f 3a |O: | .TXT 'O:' 000204d0 35 5f |5_ | .TXT '5_' 000204d2 20 47 52 3a 50 35 20 20 | GR:P5 | .TXT ' GR:P5 ' 000204da 41 20 50 20 47 20 41 44 |A P G AD| .TXT 'A P G AD: ' 000204e4 50 41 3a 58 59 58 59 58 |PA:XYXYX| .TXT 'PA:XYXYXY ' 000204ee 53 20 4e 20 43 20 43 48 |S N C CH| .TXT 'S N C CH:1 NS:' 000204fc 20 53 53 3a | SS: | .TXT ' SS:' 00020500 20 46 57 3a 37 20 50 57 | FW:7 PW| .TXT ' FW:7 PW:2 PA:XYXYXY' 00020514 53 20 41 20 50 20 43 4f |S A P CO| .TXT 'S A P CO:B DC:N DO:N FS:' 0002052c 20 49 44 3a 41 32 20 50 | ID:A2 P| .TXT ' ID:A2 PC:N ' 00020538 54 50 3a 59 20 55 53 3a |TP:Y US:| .TXT 'TP:Y US:N PA:XYXYXY ' 0002054c 53 20 4c 20 50 20 4c 45 |S L P LE| .TXT 'S L P LE:8' 00020556 50 52 3a 4e 20 53 54 3a |PR:N ST:| .TXT 'PR:N ST:1 SP:9600 UC:Y PA:XYXYXY' 00020576 53 20 55 20 43 20 58 41 |S U C XA| .TXT 'S U C XA:Y XD:1 ' 00020586 50 41 3a 58 59 58 59 58 |PA:XYXYX| .TXT 'PA:XYXYXY ' 00020590 41 20 58 20 54 20 58 43 |A X T XC| .TXT 'A X T XC:2 XD:1 XP:1,0,2,0,3,0,4,2,5,0,6,1,7,8, ' 000205c0 38 2c 30 2c 39 2c 30 2c |8,0,9,0,| .TXT '8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY' 000205ea 41 20 58 20 54 20 53 45 |A X T SE| .TXT 'A X T SE:210,0,5 XC:2 XD:2 XP:1,0,2,0,3,0,4,2,5,0,' 0002061c 36 2c 31 2c 37 2c 38 2c |6,1,7,8,| .TXT '6,1,7,8,8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY' 0002064e 57 20 53 20 50 41 3a 58 |W S PA:X| .TXT 'W S PA:XYXYXY ' 0002065c 54 68 65 20 50 41 44 20 |The PAD | .TXT 'The PAD has been configured!' 00020678 54 68 65 20 50 41 44 20 |The PAD | .TXT 'The PAD does not seem to be working, run TESTPAD' 000206a8 41 64 64 20 50 6f 72 74 |Add Port| .TXT 'Add Port Group failed, manually delete the group and remove the ' 000206e8 70 6f 72 74 20 66 72 6f |port fro| .TXT 'port from any group to which it is attached. [use D P G and R P G]' 0002072a 53 45 54 20 66 61 69 6c |SET fail| .TXT 'SET failed. ' 00020736 43 6f 6c 64 20 53 74 61 |Cold Sta| .TXT 'Cold Start (manual reset button in back of the PAD) the PAD and ' 00020776 72 65 74 72 79 20 63 6f |retry co| .TXT 'retry configurating. If the problem persists, attempt manual' 000207b2 63 6f 6e 66 69 67 75 72 |configur| .TXT 'configuration or replace the PAD' 000207d2 53 20 41 20 50 20 66 61 |S A P fa| .TXT 'S A P failed. ' 000207e0 53 20 4c 20 50 20 66 61 |S L P fa| .TXT 'S L P failed. ' 000207ee 53 20 4e 20 43 20 66 61 |S N C fa| .TXT 'S N C failed. ' 000207fc 57 20 53 20 66 61 69 6c |W S fail| .TXT 'W S failed. ' 00020808 45 6e 74 65 72 20 74 68 |Enter th| .TXT 'Enter the port number you wish to configure [2..5] :_ ' 0002083e 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you wish to run in VERBOSE mode_ ' 00020862 45 6e 74 65 72 20 74 68 |Enter th| .TXT 'Enter the DTE address identification (ID) for the ENVIRONMENT port :_ ' 000208a8 45 6e 74 65 72 20 4c 45 |Enter LE| .TXT 'Enter LEVEL 3 packet size [64..256] :_' 000208ce 20 50 | P | .TXT ' P' 000208d0 4f 3a |O: | .TXT 'O:' 000208d2 32 5f |2_ | .TXT '2_' 000208d4 20 47 52 3a 50 32 20 20 | GR:P2 | .TXT ' GR:P2 ' 000208dc 20 50 | P | .TXT ' P' 000208de 4f 3a |O: | .TXT 'O:' 000208e0 33 5f |3_ | .TXT '3_' 000208e2 20 47 52 3a 50 33 20 20 | GR:P3 | .TXT ' GR:P3 ' 000208ea 20 50 | P | .TXT ' P' 000208ec 4f 3a |O: | .TXT 'O:' 000208ee 34 5f |4_ | .TXT '4_' 000208f0 20 47 52 3a 50 34 20 20 | GR:P4 | .TXT ' GR:P4 ' 000208f8 20 50 | P | .TXT ' P' 000208fa 4f 3a |O: | .TXT 'O:' 000208fc 35 5f |5_ | .TXT '5_' 000208fe 20 47 52 3a 50 35 20 20 | GR:P5 | .TXT ' GR:P5 ' 00020906 53 20 41 20 50 20 50 43 |S A P PC| .TXT 'S A P PC:Y ID:D0 PA:XYXYXY' 00020920 53 45 54 20 31 3a 30 2c |SET 1:0,| .TXT 'SET 1:0,2:0,3:0,4:2,5:0,6:0,7:4,15:0' 00020944 53 45 54 20 31 3a 30 2c |SET 1:0,| .TXT 'SET 1:0,2:0,3:0,4:2,5:1,6:0,7:4,15:0' 00020968 53 20 41 20 50 20 50 43 |S A P PC| .TXT 'S A P PC:N ID:A2 PA:XYXYXY' 00020982 53 20 41 20 50 20 55 53 |S A P US| .TXT 'S A P US:M' 0002098c 53 20 41 20 50 20 55 53 |S A P US| .TXT 'S A P US:N' 00020996 20 46 53 3a | FS: | .TXT ' FS:' 0002099a 49 44 3a 44 30 20 43 4f |ID:D0 CO| .TXT 'ID:D0 CO:Y DC:C PA:XYXYXY ' 000209b4 53 20 4c 20 50 20 |S L P | .TXT 'S L P ' 000209ba 53 50 3a 39 36 30 30 20 |SP:9600 | .TXT 'SP:9600 PR:N LE:8 ST:1 PA:XYXYXY' 000209da 53 20 4e 20 43 20 43 48 |S N C CH| .TXT 'S N C CH:1 NS:' 000209e8 50 41 3a 58 59 58 59 58 |PA:XYXYX| .TXT 'PA:XYXYXY SS: ' 000209f6 41 20 50 20 47 20 |A P G | .TXT 'A P G ' 000209fc 20 41 44 3a | AD: | .TXT ' AD:' 00020a00 20 50 41 3a 58 59 58 59 | PA:XYXY| .TXT ' PA:XYXYXY' 00020a0a 57 20 53 20 50 41 3a 58 |W S PA:X| .TXT 'W S PA:XYXYXY ' 00020a18 54 68 65 20 45 6e 76 69 |The Envi| .TXT 'The Environment Port has been configured! ' 00020a42 54 68 65 20 50 41 44 20 |The PAD | .TXT 'The PAD does not seem to be working, run TESTPAD' 00020a72 41 64 64 20 50 6f 72 74 |Add Port| .TXT 'Add Port Group failed, manually delete the group and remove the ' 00020ab2 70 6f 72 74 20 66 72 6f |port fro| .TXT 'port from any group to which it is attached. [use D P G and R P G]' 00020af4 53 20 4e 20 43 20 66 61 |S N C fa| .TXT 'S N C failed. ' 00020b02 43 6f 6c 64 20 53 74 61 |Cold Sta| .TXT 'Cold Start (manual reset button in back of the PAD) the PAD and ' 00020b42 72 65 74 72 79 20 63 6f |retry co| .TXT 'retry configurating. If the problem persists, attempt manual' 00020b7e 63 6f 6e 66 69 67 75 72 |configur| .TXT 'configuration or replace the PAD' 00020b9e 53 20 41 20 50 20 66 61 |S A P fa| .TXT 'S A P failed. ' 00020bac 53 20 4c 20 50 20 66 61 |S L P fa| .TXT 'S L P failed. ' 00020bba 53 20 55 20 43 20 66 61 |S U C fa| .TXT 'S U C failed. ' 00020bc8 41 20 58 20 54 20 66 61 |A X T fa| .TXT 'A X T failed. ' 00020bd6 57 20 53 20 66 61 69 6c |W S fail| .TXT 'W S failed. ' 00020be2 45 6e 74 65 72 20 74 68 |Enter th| .TXT 'Enter the port number you wish to configure [2..5] :_ ' 00020c18 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you wish to run in VERBOSE mode_ ' 00020c3c 45 6e 74 65 72 20 74 68 |Enter th| .TXT 'Enter the DTE address identification (ID) for the IOC port :_ ' 00020c7a 20 50 | P | .TXT ' P' 00020c7c 4f 3a |O: | .TXT 'O:' 00020c7e 32 5f |2_ | .TXT '2_' 00020c80 20 47 52 3a 50 32 20 20 | GR:P2 | .TXT ' GR:P2 ' 00020c88 20 50 | P | .TXT ' P' 00020c8a 4f 3a |O: | .TXT 'O:' 00020c8c 33 5f |3_ | .TXT '3_' 00020c8e 20 47 52 3a 50 33 20 20 | GR:P3 | .TXT ' GR:P3 ' 00020c96 20 50 | P | .TXT ' P' 00020c98 4f 3a |O: | .TXT 'O:' 00020c9a 34 5f |4_ | .TXT '4_' 00020c9c 20 47 52 3a 50 34 20 20 | GR:P4 | .TXT ' GR:P4 ' 00020ca4 20 50 | P | .TXT ' P' 00020ca6 4f 3a |O: | .TXT 'O:' 00020ca8 35 5f |5_ | .TXT '5_' 00020caa 20 47 52 3a 50 35 20 20 | GR:P5 | .TXT ' GR:P5 ' 00020cb2 41 20 50 20 47 20 41 44 |A P G AD| .TXT 'A P G AD: ' 00020cbc 50 41 3a 58 59 58 59 58 |PA:XYXYX| .TXT 'PA:XYXYXY ' 00020cc6 53 20 4e 20 43 20 43 48 |S N C CH| .TXT 'S N C CH:1 NS:128 SS:128 FW:7 PW:2 PA:XYXYXY' 00020cf2 53 20 41 20 50 20 43 4f |S A P CO| .TXT 'S A P CO:B DC:N DO:N FS:128 ID:A2 PC:N' 00020d18 54 50 3a 59 20 55 53 3a |TP:Y US:| .TXT 'TP:Y US:N PA:XYXYXY ' 00020d2c 53 20 4c 20 50 20 4c 45 |S L P LE| .TXT 'S L P LE:8' 00020d36 50 52 3a 4e 20 53 54 3a |PR:N ST:| .TXT 'PR:N ST:1 SP:9600 UC:Y PA:XYXYXY' 00020d56 53 20 55 20 43 20 58 41 |S U C XA| .TXT 'S U C XA:Y XD:3 ' 00020d66 50 41 3a 58 59 58 59 58 |PA:XYXYX| .TXT 'PA:XYXYXY ' 00020d70 41 20 58 20 54 20 58 43 |A X T XC| .TXT 'A X T XC:2 XD:3 XP:1,1,2,0,3,0,4,2,5,0,6,1,7,4, ' 00020da0 38 2c 30 2c 39 2c 30 2c |8,0,9,0,| .TXT '8,0,9,0,10,0,12,0,13,0,14,0,15,0 PA:XYXYXY' 00020dca 57 20 53 20 50 41 3a 58 |W S PA:X| .TXT 'W S PA:XYXYXY ' 00020dd8 54 68 65 20 50 41 44 20 |The PAD | .TXT 'The PAD has been configured!' 00020df4 4f 70 74 69 |Opti | .TXT 'Opti' 00020df8 6f 6e 73 20 |ons | .TXT 'ons ' 00020dfc 61 72 65 3a |are: | .TXT 'are:' 00020e00 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => Exit ' 00020e0e 20 20 20 20 31 20 3d 3e | 1 =>| .TXT ' 1 => Manual Configure [ Any port ]' 00020e34 20 20 20 20 32 20 3d 3e | 2 =>| .TXT ' 2 => Auto Configure [ IOC port ]' 00020e5a 20 20 20 20 33 20 3d 3e | 3 =>| .TXT ' 3 => Auto Configure [ Environment port, CTS (hardware) flow control ] ' 00020ea6 20 20 20 20 34 20 3d 3e | 4 =>| .TXT ' 4 => Auto Configure [ Environment port, XON_XOFF flow control ] ' 00020eec 20 20 20 20 | | .XXX[0x4] 00020ef0 35 20 3d 3e 20 41 75 74 |5 => Aut| .XXX[0x28] 00020ef8 6f 20 20 20 43 6f 6e 66 |o Conf| 00020f00 69 67 75 72 65 20 5b 20 |igure [ | 00020f08 49 4f 43 20 72 65 6d 6f |IOC remo| 00020f10 74 65 20 63 6f 6e 73 6f |te conso| 00020f18 6c 65 20 5d |le ] | .XXX[0x4] 00020f1c 45 6e 74 65 72 20 6f 70 |Enter op| .TXT 'Enter option :_ ' 00020f2c 55 6e 73 75 70 70 6f 72 |Unsuppor| .TXT 'Unsupported function, are you sure_ ' 00020f50 ; -------------------------------------------------------------------------------------- 00020f50 ; OMSI PASCAL Function 00020f50 ; <LVAR 0x008 @ 4(r)> 00020f50 ; -------------------------------------------------------------------------------------- 00020f50 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 00020f54 bf d5 | | CMPA.L (A5),A7 00020f56 62 06 |b | BHI 0x20f5e 00020f58 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020f5c 4e 76 |Nv | TRAPV 00020f5e de fc 00 0e | | ADDA.W #0xe,A7 00020f62 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00020f66 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00020f6a 2f 10 |/ | MOVE.L (A0),-(A7) 00020f6c 1f 3c 00 0a | < | MOVE.B #0x0a,-(A7) 00020f70 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020f76 54 4f |TO | ADDQ.L #0x2,A7 00020f78 2e 90 |. | MOVE.L (A0),(A7) 00020f7a 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 00020f7e 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020f84 58 4f |XO | ADDQ.L #0x4,A7 00020f86 3e bc 00 01 |> | MOVE.W #0x1,(A7) 00020f8a 2f 10 |/ | MOVE.L (A0),-(A7) 00020f8c 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 00020f92 5c 4f |\O | ADDQ.L #0x6,A7 00020f94 48 50 |HP | PEA.L (A0) 00020f96 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020f9c 58 4f |XO | ADDQ.L #0x4,A7 00020f9e 4c df 01 00 |L | MOVEM.L (A7)+,A0 00020fa2 4e 5e |N^ | UNLK A6 00020fa4 4e 75 |Nu | RTS 00020fa6 ; -------------------------------------------------------------------------------------- 00020fa6 ; OMSI PASCAL Function 00020fa6 ; <LVAR -0x004 @ 4(r)> 00020fa6 ; -------------------------------------------------------------------------------------- 00020fa6 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 00020faa bf d5 | | CMPA.L (A5),A7 00020fac 62 06 |b | BHI 0x20fb4 00020fae 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020fb2 4e 76 |Nv | TRAPV 00020fb4 de fc 00 08 | | ADDA.W #0x8,A7 00020fb8 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020fbc 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020fc2 2e ae ff fc |. | MOVE.L (A6-0x4),(A7) 00020fc6 4e ba ff 88 |N | JSR 0x20f50 00020fca 58 4f |XO | ADDQ.L #0x4,A7 00020fcc 4e 5e |N^ | UNLK A6 00020fce 4e 75 |Nu | RTS 00020fd0 ; -------------------------------------------------------------------------------------- 00020fd0 ; OMSI PASCAL Function 00020fd0 ; <LVAR 0x008 @ 4(r)> 00020fd0 ; -------------------------------------------------------------------------------------- 00020fd0 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 00020fd4 bf d5 | | CMPA.L (A5),A7 00020fd6 62 06 |b | BHI 0x20fde 00020fd8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020fdc 4e 76 |Nv | TRAPV 00020fde de fc 00 0e | | ADDA.W #0xe,A7 00020fe2 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00020fe6 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00020fea 2f 10 |/ | MOVE.L (A0),-(A7) 00020fec 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 00020ff0 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020ff6 58 4f |XO | ADDQ.L #0x4,A7 00020ff8 3e bc 00 02 |> | MOVE.W #0x2,(A7) 00020ffc 2f 10 |/ | MOVE.L (A0),-(A7) 00020ffe 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 00021004 5c 4f |\O | ADDQ.L #0x6,A7 00021006 48 50 |HP | PEA.L (A0) 00021008 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002100e 58 4f |XO | ADDQ.L #0x4,A7 00021010 4c df 01 00 |L | MOVEM.L (A7)+,A0 00021014 4e 5e |N^ | UNLK A6 00021016 4e 75 |Nu | RTS 00021018 ; -------------------------------------------------------------------------------------- 00021018 ; OMSI PASCAL Function 00021018 ; <LVAR 0x00c 2(w)> 00021018 ; <LVAR 0x008 4(r)> 00021018 ; -------------------------------------------------------------------------------------- 00021018 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 ; Spelunked 0002101c bf d5 | | CMPA.L (A5),A7 0002101e 62 06 |b | BHI 0x21026 00021020 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021024 4e 76 |Nv | TRAPV 00021026 de fc 00 0e | | ADDA.W #0xe,A7 0002102a 48 e7 80 00 |H | MOVEM.L D0,-(A7) 0002102e 55 4f |UO | SUBQ.L #0x2,A7 00021030 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021034 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 0002103a 58 4f |XO | ADDQ.L #0x4,A7 0002103c 30 1f |0 | MOVE.W (A7)+,D0 0002103e 41 bc 00 ff |A | CHK.W #0xff,D0 00021042 3d 40 00 0c |=@ | MOVE.W D0,(A6+0xc) 00021046 4c df 00 01 |L | MOVEM.L (A7)+,D0 0002104a 4e 5e |N^ | UNLK A6 0002104c 4e 75 |Nu | RTS 0002104e ; -------------------------------------------------------------------------------------- 0002104e ; OMSI PASCAL Function 0002104e ; <LVAR -0x004 @ 1(r)> 0002104e ; -------------------------------------------------------------------------------------- 0002104e 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00021052 bf d5 | | CMPA.L (A5),A7 00021054 62 06 |b | BHI 0x2105c 00021056 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002105a 4e 76 |Nv | TRAPV 0002105c de fc 00 2e | . | ADDA.W #0x2e,A7 00021060 48 e7 c3 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D1+D0,-(A7) 00021064 43 f9 00 02 39 86 |C 9 | LEA.L 0x23986,A1 0002106a 45 f9 00 02 31 78 |E 1x | LEA.L 0x23178,A2 00021070 47 f9 00 02 31 80 |G 1 | LEA.L 0x23180,A3 00021076 72 02 |r | MOVEQ.L #0x02,D1 00021078 7e 00 |~ | MOVEQ.L #0x00,D7 0002107a 42 91 |B | CLR.L (A1) 0002107c 0c 87 00 00 00 14 | | CMPI.L #0x00000014,D7 00021082 67 70 |gp | BEQ 0x210f4 00021084 7c 01 || | MOVEQ.L #0x01,D6 00021086 3f 01 |? | MOVE.W D1,-(A7) 00021088 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002108c 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00021092 5c 4f |\O | ADDQ.L #0x6,A7 00021094 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00021098 0c 00 00 01 | | CMPI.B #0x01,D0 0002109c 66 48 |fH | BNE 0x210e6 0002109e 3f 01 |? | MOVE.W D1,-(A7) 000210a0 20 11 | | MOVE.L (A1),D0 000210a2 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 000210a8 63 02 |c | BLS 0x210ac 000210aa 4e 4f |NO | TRAP #15 000210ac e3 80 | | ASL.L #0x1,D0 000210ae 20 4a | J | MOVEA.L A2,A0 000210b0 48 70 08 0e |Hp | PEA.L (A0+D0.L+#0xe) 000210b4 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 000210ba 5c 4f |\O | ADDQ.L #0x6,A7 000210bc 4a 13 |J | TST.B (A3) 000210be 67 22 |g" | BEQ 0x210e2 000210c0 20 11 | | MOVE.L (A1),D0 000210c2 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 000210c8 63 02 |c | BLS 0x210cc 000210ca 4e 4f |NO | TRAP #15 000210cc e3 80 | | ASL.L #0x1,D0 000210ce 20 4a | J | MOVEA.L A2,A0 000210d0 30 30 08 0e |00 | MOVE.W (A0+D0.L+#0xe),D0 000210d4 02 40 00 ff | @ | ANDI.W #0x00ff,D0 000210d8 1f 00 | | MOVE.B D0,-(A7) 000210da 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 000210e0 54 4f |TO | ADDQ.L #0x2,A7 000210e2 7e 00 |~ | MOVEQ.L #0x00,D7 000210e4 52 91 |R | ADDQ.L #0x1,(A1) 000210e6 52 86 |R | ADDQ.L #0x1,D6 000210e8 0c 86 00 00 03 e8 | | CMPI.L #0x000003e8,D6 000210ee 6f 96 |o | BLE 0x21086 000210f0 52 87 |R | ADDQ.L #0x1,D7 000210f2 60 88 |` | BRA 0x2107c 000210f4 4a 13 |J | TST.B (A3) 000210f6 67 04 |g | BEQ 0x210fc 000210f8 4e ba fe ac |N | JSR 0x20fa6 000210fc 4c df 0f c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2+A3 00021100 4e 5e |N^ | UNLK A6 00021102 4e 75 |Nu | RTS 00021104 ; -------------------------------------------------------------------------------------- 00021104 ; OMSI PASCAL Function 00021104 ; <LVAR -0x006 @ 2(r)> 00021104 ; <LVAR -0x008 @ 1(r)> 00021104 ; -------------------------------------------------------------------------------------- 00021104 4e 56 ff 84 |NV | LINK.W A6,#0xff84 00021108 bf d5 | | CMPA.L (A5),A7 0002110a 62 06 |b | BHI 0x21112 0002110c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021110 4e 76 |Nv | TRAPV 00021112 de fc 00 74 | t | ADDA.W #0x74,A7 00021116 48 e7 e3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D2+D1+D0,-(A7) 0002111a 45 ee ff f8 |E | LEA.L (A6-0x8),A2 0002111e 47 ee ff fa |G | LEA.L (A6-0x6),A3 00021122 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 00021128 72 01 |r | MOVEQ.L #0x01,D1 0002112a 74 02 |t | MOVEQ.L #0x02,D2 0002112c 42 39 00 02 31 80 |B9 1 | CLR.B 0x23180 00021132 4e b9 00 01 02 16 |N | JSR KC0b 00021138 4e ba ff 14 |N | JSR 0x2104e 0002113c 41 fa f0 98 |A | LEA.L 0x201d6,A0 00021140 70 0e |p | MOVEQ.L #0x0e,D0 00021142 2f 20 |/ | MOVE.L -(A0),-(A7) 00021144 51 c8 ff fc |Q | DBF D0,0x21142 00021148 59 4f |YO | SUBQ.L #0x4,A7 0002114a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002114e 3f 01 |? | MOVE.W D1,-(A7) 00021150 3f 3c 00 3c |?< < | MOVE.W #0x3c,-(A7) 00021154 4e 94 |N | JSR (A4) 00021156 50 4f |PO | ADDQ.L #0x8,A7 00021158 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002115e de fc 00 3e | > | ADDA.W #0x3e,A7 00021162 3e 82 |> | MOVE.W D2,(A7) 00021164 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 00021168 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 0002116e 58 4f |XO | ADDQ.L #0x4,A7 00021170 7c 00 || | MOVEQ.L #0x00,D6 00021172 3f 01 |? | MOVE.W D1,-(A7) 00021174 48 52 |HR | PEA.L (A2) 00021176 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 0002117c 5c 4f |\O | ADDQ.L #0x6,A7 0002117e 10 12 | | MOVE.B (A2),D0 00021180 b0 01 | | CMP.B D1,D0 00021182 66 30 |f0 | BNE 0x211b4 00021184 3f 01 |? | MOVE.W D1,-(A7) 00021186 48 53 |HS | PEA.L (A3) 00021188 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 0002118e 5c 4f |\O | ADDQ.L #0x6,A7 00021190 30 13 |0 | MOVE.W (A3),D0 00021192 02 40 00 ff | @ | ANDI.W #0x00ff,D0 00021196 1e 00 | | MOVE.B D0,D7 00021198 0c 07 00 03 | | CMPI.B #0x03,D7 0002119c 66 04 |f | BNE 0x211a2 0002119e 7c 01 || | MOVEQ.L #0x01,D6 000211a0 60 10 |` | BRA 0x211b2 000211a2 3f 02 |? | MOVE.W D2,-(A7) 000211a4 42 80 |B | CLR.L D0 000211a6 10 07 | | MOVE.B D7,D0 000211a8 3f 00 |? | MOVE.W D0,-(A7) 000211aa 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 000211b0 58 4f |XO | ADDQ.L #0x4,A7 000211b2 60 3e |`> | BRA 0x211f2 000211b4 4a 00 |J | TST.B D0 000211b6 67 3a |g: | BEQ 0x211f2 000211b8 9e fc 00 2c | , | SUBA.W #0x2c,A7 000211bc 20 4f | O | MOVEA.L A7,A0 000211be 43 fa f0 16 |C | LEA.L 0x201d6,A1 000211c2 70 2a |p* | MOVEQ.L #0x2a,D0 000211c4 10 d9 | | MOVE.B (A1)+,(A0)+ 000211c6 51 c8 ff fc |Q | DBF D0,0x211c4 000211ca 59 4f |YO | SUBQ.L #0x4,A7 000211cc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000211d0 3f 01 |? | MOVE.W D1,-(A7) 000211d2 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7) 000211d6 4e 94 |N | JSR (A4) 000211d8 50 4f |PO | ADDQ.L #0x8,A7 000211da 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000211e0 de fc 00 2e | . | ADDA.W #0x2e,A7 000211e4 1e 82 | | MOVE.B D2,(A7) 000211e6 48 78 00 01 |Hx | PEA.L 0x1 000211ea 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000211f0 5c 4f |\O | ADDQ.L #0x6,A7 000211f2 3f 02 |? | MOVE.W D2,-(A7) 000211f4 48 52 |HR | PEA.L (A2) 000211f6 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 000211fc 5c 4f |\O | ADDQ.L #0x6,A7 000211fe 10 12 | | MOVE.B (A2),D0 00021200 b0 01 | | CMP.B D1,D0 00021202 66 26 |f& | BNE 0x2122a 00021204 3f 02 |? | MOVE.W D2,-(A7) 00021206 48 53 |HS | PEA.L (A3) 00021208 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 0002120e 5c 4f |\O | ADDQ.L #0x6,A7 00021210 30 13 |0 | MOVE.W (A3),D0 00021212 02 40 00 ff | @ | ANDI.W #0x00ff,D0 00021216 1e 00 | | MOVE.B D0,D7 00021218 3f 01 |? | MOVE.W D1,-(A7) 0002121a 42 80 |B | CLR.L D0 0002121c 10 07 | | MOVE.B D7,D0 0002121e 3f 00 |? | MOVE.W D0,-(A7) 00021220 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00021226 58 4f |XO | ADDQ.L #0x4,A7 00021228 60 3e |`> | BRA 0x21268 0002122a 4a 00 |J | TST.B D0 0002122c 67 3a |g: | BEQ 0x21268 0002122e 9e fc 00 28 | ( | SUBA.W #0x28,A7 00021232 20 4f | O | MOVEA.L A7,A0 00021234 43 fa ef cc |C | LEA.L 0x20202,A1 00021238 70 26 |p& | MOVEQ.L #0x26,D0 0002123a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002123c 51 c8 ff fc |Q | DBF D0,0x2123a 00021240 59 4f |YO | SUBQ.L #0x4,A7 00021242 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021246 3f 01 |? | MOVE.W D1,-(A7) 00021248 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 0002124c 4e 94 |N | JSR (A4) 0002124e 50 4f |PO | ADDQ.L #0x8,A7 00021250 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021256 de fc 00 2a | * | ADDA.W #0x2a,A7 0002125a 1e 82 | | MOVE.B D2,(A7) 0002125c 48 78 00 01 |Hx | PEA.L 0x1 00021260 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021266 5c 4f |\O | ADDQ.L #0x6,A7 00021268 4a 06 |J | TST.B D6 0002126a 67 00 ff 06 |g | BEQ 0x21172 0002126e 4c df 1f c7 |L | MOVEM.L (A7)+,D0+D1+D2+D6+D7+A0+A1+A2+A3+A4 00021272 4e 5e |N^ | UNLK A6 00021274 4e 75 |Nu | RTS 00021276 ; -------------------------------------------------------------------------------------- 00021276 ; OMSI PASCAL Function 00021276 ; <LVAR 0x008 1(w)> 00021276 ; -------------------------------------------------------------------------------------- 00021276 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 0002127a bf d5 | | CMPA.L (A5),A7 0002127c 62 06 |b | BHI 0x21284 0002127e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021282 4e 76 |Nv | TRAPV 00021284 de fc 00 38 | 8 | ADDA.W #0x38,A7 00021288 48 e7 ff e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002128c 43 f9 00 02 31 78 |C 1x | LEA.L 0x23178,A1 00021292 45 f9 00 02 31 82 |E 1 | LEA.L 0x23182,A2 00021298 26 3c 00 00 03 ff |&< | MOVE.L #0x3ff,D3 0002129e 38 3c 00 ff |8< | MOVE.W #0xff,D4 000212a2 7a 43 |zC | MOVEQ.L #0x43,D5 000212a4 7c 44 ||D | MOVEQ.L #0x44,D6 000212a6 42 92 |B | CLR.L (A2) 000212a8 7e 01 |~ | MOVEQ.L #0x01,D7 000212aa 20 12 | | MOVE.L (A2),D0 000212ac b0 b9 00 02 39 86 | 9 | CMP.L 0x23986,D0 000212b2 6c 00 01 58 |l X | BGE 0x2140c 000212b6 4a 07 |J | TST.B D7 000212b8 67 00 01 52 |g R | BEQ 0x2140c 000212bc 22 00 |" | MOVE.L D0,D1 000212be 52 81 |R | ADDQ.L #0x1,D1 000212c0 b0 83 | | CMP.L D3,D0 000212c2 63 02 |c | BLS 0x212c6 000212c4 4e 4f |NO | TRAP #15 000212c6 24 00 |$ | MOVE.L D0,D2 000212c8 e3 82 | | ASL.L #0x1,D2 000212ca 20 49 | I | MOVEA.L A1,A0 000212cc 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 000212d0 c4 44 | D | AND.W D4,D2 000212d2 b4 05 | | CMP.B D5,D2 000212d4 66 00 01 30 |f 0 | BNE 0x21406 000212d8 b2 83 | | CMP.L D3,D1 000212da 63 02 |c | BLS 0x212de 000212dc 4e 4f |NO | TRAP #15 000212de 24 01 |$ | MOVE.L D1,D2 000212e0 e3 82 | | ASL.L #0x1,D2 000212e2 20 49 | I | MOVEA.L A1,A0 000212e4 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 000212e8 c4 44 | D | AND.W D4,D2 000212ea 0c 02 00 4d | M | CMPI.B #0x4d,D2 000212ee 66 00 01 16 |f | BNE 0x21406 000212f2 24 00 |$ | MOVE.L D0,D2 000212f4 54 82 |T | ADDQ.L #0x2,D2 000212f6 b4 83 | | CMP.L D3,D2 000212f8 63 02 |c | BLS 0x212fc 000212fa 4e 4f |NO | TRAP #15 000212fc e3 82 | | ASL.L #0x1,D2 000212fe 20 49 | I | MOVEA.L A1,A0 00021300 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 00021304 c4 44 | D | AND.W D4,D2 00021306 b4 06 | | CMP.B D6,D2 00021308 66 00 00 fc |f | BNE 0x21406 0002130c 24 00 |$ | MOVE.L D0,D2 0002130e 56 82 |V | ADDQ.L #0x3,D2 00021310 b4 83 | | CMP.L D3,D2 00021312 63 02 |c | BLS 0x21316 00021314 4e 4f |NO | TRAP #15 00021316 e3 82 | | ASL.L #0x1,D2 00021318 20 49 | I | MOVEA.L A1,A0 0002131a 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 0002131e c4 44 | D | AND.W D4,D2 00021320 0c 02 00 20 | | CMPI.B #0x20,D2 00021324 66 00 00 e0 |f | BNE 0x21406 00021328 24 00 |$ | MOVE.L D0,D2 0002132a 58 82 |X | ADDQ.L #0x4,D2 0002132c b4 83 | | CMP.L D3,D2 0002132e 63 02 |c | BLS 0x21332 00021330 4e 4f |NO | TRAP #15 00021332 e3 82 | | ASL.L #0x1,D2 00021334 20 49 | I | MOVEA.L A1,A0 00021336 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 0002133a c4 44 | D | AND.W D4,D2 0002133c 0c 02 00 41 | A | CMPI.B #0x41,D2 00021340 66 00 00 c4 |f | BNE 0x21406 00021344 24 00 |$ | MOVE.L D0,D2 00021346 5a 82 |Z | ADDQ.L #0x5,D2 00021348 b4 83 | | CMP.L D3,D2 0002134a 63 02 |c | BLS 0x2134e 0002134c 4e 4f |NO | TRAP #15 0002134e e3 82 | | ASL.L #0x1,D2 00021350 20 49 | I | MOVEA.L A1,A0 00021352 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 00021356 c4 44 | D | AND.W D4,D2 00021358 b4 05 | | CMP.B D5,D2 0002135a 66 00 00 aa |f | BNE 0x21406 0002135e 24 00 |$ | MOVE.L D0,D2 00021360 5c 82 |\ | ADDQ.L #0x6,D2 00021362 b4 83 | | CMP.L D3,D2 00021364 63 02 |c | BLS 0x21368 00021366 4e 4f |NO | TRAP #15 00021368 e3 82 | | ASL.L #0x1,D2 0002136a 20 49 | I | MOVEA.L A1,A0 0002136c 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 00021370 c4 44 | D | AND.W D4,D2 00021372 b4 05 | | CMP.B D5,D2 00021374 66 00 00 90 |f | BNE 0x21406 00021378 24 00 |$ | MOVE.L D0,D2 0002137a 5e 82 |^ | ADDQ.L #0x7,D2 0002137c b4 83 | | CMP.L D3,D2 0002137e 63 02 |c | BLS 0x21382 00021380 4e 4f |NO | TRAP #15 00021382 e3 82 | | ASL.L #0x1,D2 00021384 20 49 | I | MOVEA.L A1,A0 00021386 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 0002138a c4 44 | D | AND.W D4,D2 0002138c 0c 02 00 45 | E | CMPI.B #0x45,D2 00021390 66 74 |ft | BNE 0x21406 00021392 24 00 |$ | MOVE.L D0,D2 00021394 50 82 |P | ADDQ.L #0x8,D2 00021396 b4 83 | | CMP.L D3,D2 00021398 63 02 |c | BLS 0x2139c 0002139a 4e 4f |NO | TRAP #15 0002139c e3 82 | | ASL.L #0x1,D2 0002139e 20 49 | I | MOVEA.L A1,A0 000213a0 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 000213a4 c4 44 | D | AND.W D4,D2 000213a6 0c 02 00 50 | P | CMPI.B #0x50,D2 000213aa 66 5a |fZ | BNE 0x21406 000213ac 24 00 |$ | MOVE.L D0,D2 000213ae 06 82 00 00 00 09 | | ADDI.L #0x00000009,D2 000213b4 b4 83 | | CMP.L D3,D2 000213b6 63 02 |c | BLS 0x213ba 000213b8 4e 4f |NO | TRAP #15 000213ba e3 82 | | ASL.L #0x1,D2 000213bc 20 49 | I | MOVEA.L A1,A0 000213be 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 000213c2 c4 44 | D | AND.W D4,D2 000213c4 0c 02 00 54 | T | CMPI.B #0x54,D2 000213c8 66 3c |f< | BNE 0x21406 000213ca 24 00 |$ | MOVE.L D0,D2 000213cc 06 82 00 00 00 0a | | ADDI.L #0x0000000a,D2 000213d2 b4 83 | | CMP.L D3,D2 000213d4 63 02 |c | BLS 0x213d8 000213d6 4e 4f |NO | TRAP #15 000213d8 e3 82 | | ASL.L #0x1,D2 000213da 20 49 | I | MOVEA.L A1,A0 000213dc 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 000213e0 c4 44 | D | AND.W D4,D2 000213e2 0c 02 00 45 | E | CMPI.B #0x45,D2 000213e6 66 1e |f | BNE 0x21406 000213e8 06 80 00 00 00 0b | | ADDI.L #0x0000000b,D0 000213ee b0 83 | | CMP.L D3,D0 000213f0 63 02 |c | BLS 0x213f4 000213f2 4e 4f |NO | TRAP #15 000213f4 e3 80 | | ASL.L #0x1,D0 000213f6 20 49 | I | MOVEA.L A1,A0 000213f8 30 30 08 0e |00 | MOVE.W (A0+D0.L+#0xe),D0 000213fc c0 44 | D | AND.W D4,D0 000213fe b0 06 | | CMP.B D6,D0 00021400 66 04 |f | BNE 0x21406 00021402 7e 00 |~ | MOVEQ.L #0x00,D7 00021404 60 02 |` | BRA 0x21408 00021406 24 81 |$ | MOVE.L D1,(A2) 00021408 60 00 fe a0 |` | BRA 0x212aa 0002140c 1d 47 00 08 | G | MOVE.B D7,(A6+0x8) 00021410 4c df 07 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2 00021414 4e 5e |N^ | UNLK A6 00021416 4e 75 |Nu | RTS 00021418 ; -------------------------------------------------------------------------------------- 00021418 ; OMSI PASCAL Function 00021418 ; <LVAR 0x008 1(w)> 00021418 ; -------------------------------------------------------------------------------------- 00021418 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 0002141c bf d5 | | CMPA.L (A5),A7 0002141e 62 06 |b | BHI 0x21426 00021420 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021424 4e 76 |Nv | TRAPV 00021426 de fc 00 34 | 4 | ADDA.W #0x34,A7 0002142a 48 e7 fd e0 |H | MOVEM.L A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7) 0002142e 43 f9 00 02 31 78 |C 1x | LEA.L 0x23178,A1 00021434 45 f9 00 02 31 82 |E 1 | LEA.L 0x23182,A2 0002143a 26 3c 00 00 03 ff |&< | MOVE.L #0x3ff,D3 00021440 38 3c 00 ff |8< | MOVE.W #0xff,D4 00021444 7a 45 |zE | MOVEQ.L #0x45,D5 00021446 42 92 |B | CLR.L (A2) 00021448 7e 01 |~ | MOVEQ.L #0x01,D7 0002144a 20 12 | | MOVE.L (A2),D0 0002144c b0 b9 00 02 39 86 | 9 | CMP.L 0x23986,D0 00021452 6c 00 00 e2 |l | BGE 0x21536 00021456 4a 07 |J | TST.B D7 00021458 67 00 00 dc |g | BEQ 0x21536 0002145c 22 00 |" | MOVE.L D0,D1 0002145e 52 81 |R | ADDQ.L #0x1,D1 00021460 b0 83 | | CMP.L D3,D0 00021462 63 02 |c | BLS 0x21466 00021464 4e 4f |NO | TRAP #15 00021466 24 00 |$ | MOVE.L D0,D2 00021468 e3 82 | | ASL.L #0x1,D2 0002146a 20 49 | I | MOVEA.L A1,A0 0002146c 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 00021470 c4 44 | D | AND.W D4,D2 00021472 0c 02 00 53 | S | CMPI.B #0x53,D2 00021476 66 00 00 b8 |f | BNE 0x21530 0002147a b2 83 | | CMP.L D3,D1 0002147c 63 02 |c | BLS 0x21480 0002147e 4e 4f |NO | TRAP #15 00021480 24 01 |$ | MOVE.L D1,D2 00021482 e3 82 | | ASL.L #0x1,D2 00021484 20 49 | I | MOVEA.L A1,A0 00021486 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 0002148a c4 44 | D | AND.W D4,D2 0002148c b4 05 | | CMP.B D5,D2 0002148e 66 00 00 a0 |f | BNE 0x21530 00021492 24 00 |$ | MOVE.L D0,D2 00021494 54 82 |T | ADDQ.L #0x2,D2 00021496 b4 83 | | CMP.L D3,D2 00021498 63 02 |c | BLS 0x2149c 0002149a 4e 4f |NO | TRAP #15 0002149c e3 82 | | ASL.L #0x1,D2 0002149e 20 49 | I | MOVEA.L A1,A0 000214a0 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 000214a4 c4 44 | D | AND.W D4,D2 000214a6 0c 02 00 52 | R | CMPI.B #0x52,D2 000214aa 66 00 00 84 |f | BNE 0x21530 000214ae 24 00 |$ | MOVE.L D0,D2 000214b0 56 82 |V | ADDQ.L #0x3,D2 000214b2 b4 83 | | CMP.L D3,D2 000214b4 63 02 |c | BLS 0x214b8 000214b6 4e 4f |NO | TRAP #15 000214b8 e3 82 | | ASL.L #0x1,D2 000214ba 20 49 | I | MOVEA.L A1,A0 000214bc 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 000214c0 c4 44 | D | AND.W D4,D2 000214c2 0c 02 00 56 | V | CMPI.B #0x56,D2 000214c6 66 68 |fh | BNE 0x21530 000214c8 24 00 |$ | MOVE.L D0,D2 000214ca 58 82 |X | ADDQ.L #0x4,D2 000214cc b4 83 | | CMP.L D3,D2 000214ce 63 02 |c | BLS 0x214d2 000214d0 4e 4f |NO | TRAP #15 000214d2 e3 82 | | ASL.L #0x1,D2 000214d4 20 49 | I | MOVEA.L A1,A0 000214d6 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 000214da c4 44 | D | AND.W D4,D2 000214dc 0c 02 00 49 | I | CMPI.B #0x49,D2 000214e0 66 4e |fN | BNE 0x21530 000214e2 24 00 |$ | MOVE.L D0,D2 000214e4 5a 82 |Z | ADDQ.L #0x5,D2 000214e6 b4 83 | | CMP.L D3,D2 000214e8 63 02 |c | BLS 0x214ec 000214ea 4e 4f |NO | TRAP #15 000214ec e3 82 | | ASL.L #0x1,D2 000214ee 20 49 | I | MOVEA.L A1,A0 000214f0 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 000214f4 c4 44 | D | AND.W D4,D2 000214f6 0c 02 00 43 | C | CMPI.B #0x43,D2 000214fa 66 34 |f4 | BNE 0x21530 000214fc 24 00 |$ | MOVE.L D0,D2 000214fe 5c 82 |\ | ADDQ.L #0x6,D2 00021500 b4 83 | | CMP.L D3,D2 00021502 63 02 |c | BLS 0x21506 00021504 4e 4f |NO | TRAP #15 00021506 e3 82 | | ASL.L #0x1,D2 00021508 20 49 | I | MOVEA.L A1,A0 0002150a 34 30 28 0e |40( | MOVE.W (A0+D2.L+#0xe),D2 0002150e c4 44 | D | AND.W D4,D2 00021510 b4 05 | | CMP.B D5,D2 00021512 66 1c |f | BNE 0x21530 00021514 5e 80 |^ | ADDQ.L #0x7,D0 00021516 b0 83 | | CMP.L D3,D0 00021518 63 02 |c | BLS 0x2151c 0002151a 4e 4f |NO | TRAP #15 0002151c e3 80 | | ASL.L #0x1,D0 0002151e 20 49 | I | MOVEA.L A1,A0 00021520 30 30 08 0e |00 | MOVE.W (A0+D0.L+#0xe),D0 00021524 c0 44 | D | AND.W D4,D0 00021526 0c 00 00 3a | : | CMPI.B #0x3a,D0 0002152a 66 04 |f | BNE 0x21530 0002152c 7e 00 |~ | MOVEQ.L #0x00,D7 0002152e 60 02 |` | BRA 0x21532 00021530 24 81 |$ | MOVE.L D1,(A2) 00021532 60 00 ff 16 |` | BRA 0x2144a 00021536 1d 47 00 08 | G | MOVE.B D7,(A6+0x8) 0002153a 4c df 07 bf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2 0002153e 4e 5e |N^ | UNLK A6 00021540 4e 75 |Nu | RTS 00021542 ; -------------------------------------------------------------------------------------- 00021542 ; OMSI PASCAL Function 00021542 ; <LVAR -0x008 @ 4(rw)> 00021542 ; <LVAR -0x00c @ 4(rw)> 00021542 ; <LVAR -0x014 @ 4(rw)> 00021542 ; -------------------------------------------------------------------------------------- 00021542 4e 56 ff 34 |NV 4 | LINK.W A6,#0xff34 00021546 bf d5 | | CMPA.L (A5),A7 00021548 62 06 |b | BHI 0x21550 0002154a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002154e 4e 76 |Nv | TRAPV 00021550 de fc 00 b4 | | ADDA.W #0xb4,A7 00021554 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021558 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 0002155e 47 fa fa ee |G | LEA.L 0x2104e,A3 00021562 72 01 |r | MOVEQ.L #0x01,D1 00021564 74 0c |t | MOVEQ.L #0x0c,D2 00021566 76 02 |v | MOVEQ.L #0x02,D3 00021568 78 10 |x | MOVEQ.L #0x10,D4 0002156a 7a 24 |z$ | MOVEQ.L #0x24,D5 0002156c 42 39 00 02 31 80 |B9 1 | CLR.B 0x23180 00021572 4e b9 00 01 02 16 |N | JSR KC0b 00021578 4e 93 |N | JSR (A3) 0002157a 9e c5 | | SUBA.W D5,A7 0002157c 20 4f | O | MOVEA.L A7,A0 0002157e 43 fa ee 9a |C | LEA.L 0x2041a,A1 00021582 70 22 |p" | MOVEQ.L #0x22,D0 00021584 10 d9 | | MOVE.B (A1)+,(A0)+ 00021586 51 c8 ff fc |Q | DBF D0,0x21584 0002158a 5d 4f |]O | SUBQ.L #0x6,A7 0002158c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021590 3f 01 |? | MOVE.W D1,-(A7) 00021592 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 00021596 4e 92 |N | JSR (A2) 00021598 5c 4f |\O | ADDQ.L #0x6,A7 0002159a 42 17 |B | CLR.B (A7) 0002159c 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 000215a2 5c 4f |\O | ADDQ.L #0x6,A7 000215a4 10 1f | | MOVE.B (A7)+,D0 000215a6 48 80 |H | EXTB.W D0 000215a8 41 81 |A | CHK.W D1,D0 000215aa de c5 | | ADDA.W D5,A7 000215ac 13 c0 00 02 31 80 | 1 | MOVE.B D0,0x23180 000215b2 9e fc 00 36 | 6 | SUBA.W #0x36,A7 000215b6 20 4f | O | MOVEA.L A7,A0 000215b8 43 fa ee 2a |C * | LEA.L 0x203e4,A1 000215bc 70 34 |p4 | MOVEQ.L #0x34,D0 000215be 10 d9 | | MOVE.B (A1)+,(A0)+ 000215c0 51 c8 ff fc |Q | DBF D0,0x215be 000215c4 51 4f |QO | SUBQ.L #0x8,A7 000215c6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000215ca 3f 01 |? | MOVE.W D1,-(A7) 000215cc 3f 3c 00 35 |?< 5 | MOVE.W #0x35,-(A7) 000215d0 4e 92 |N | JSR (A2) 000215d2 50 4f |PO | ADDQ.L #0x8,A7 000215d4 48 78 00 02 |Hx | PEA.L 0x2 000215d8 48 78 00 05 |Hx | PEA.L 0x5 000215dc 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000215e2 de c2 | | ADDA.W D2,A7 000215e4 2e 1f |. | MOVE.L (A7)+,D7 000215e6 de fc 00 36 | 6 | ADDA.W #0x36,A7 000215ea 20 07 | | MOVE.L D7,D0 000215ec 55 80 |U | SUBQ.L #0x2,D0 000215ee 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0 000215f4 63 02 |c | BLS 0x215f8 000215f6 4e 4e |NN | TRAP #14 000215f8 d0 40 | @ | ADD.W D0,D0 000215fa 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00021602 00 08 | | .CONST 0x8 ; [0x0] -> 0x2160a 00021604 00 3c | < | .CONST 0x3c ; [0x1] -> 0x2163e 00021606 00 6e | n | .CONST 0x6e ; [0x2] -> 0x21670 00021608 00 a0 | | .CONST 0xa0 ; [0x3] -> 0x216a2 0002160a switch@0x215fa[0x0]: 0002160a 3f 3a ee 9a |?: | MOVE.W 0x204a6,-(A7) 0002160e 3f 3a ee 94 |?: | MOVE.W 0x204a4,-(A7) 00021612 3f 3a ee 8e |?: | MOVE.W 0x204a2,-(A7) 00021616 59 4f |YO | SUBQ.L #0x4,A7 00021618 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002161c 3f 01 |? | MOVE.W D1,-(A7) 0002161e 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00021622 4e 92 |N | JSR (A2) 00021624 50 4f |PO | ADDQ.L #0x8,A7 00021626 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 0002162a 55 4f |UO | SUBQ.L #0x2,A7 0002162c 20 4f | O | MOVEA.L A7,A0 0002162e 43 fa ee 78 |C x | LEA.L 0x204a8,A1 00021632 70 06 |p | MOVEQ.L #0x06,D0 00021634 10 d9 | | MOVE.B (A1)+,(A0)+ 00021636 51 c8 ff fc |Q | DBF D0,0x21634 0002163a 60 00 00 96 |` | BRA 0x216d2 0002163e switch@0x215fa[0x1]: 0002163e 3f 3a ee 74 |?: t | MOVE.W 0x204b4,-(A7) 00021642 3f 3a ee 6e |?: n | MOVE.W 0x204b2,-(A7) 00021646 3f 3a ee 68 |?: h | MOVE.W 0x204b0,-(A7) 0002164a 59 4f |YO | SUBQ.L #0x4,A7 0002164c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021650 3f 01 |? | MOVE.W D1,-(A7) 00021652 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00021656 4e 92 |N | JSR (A2) 00021658 50 4f |PO | ADDQ.L #0x8,A7 0002165a 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 0002165e 55 4f |UO | SUBQ.L #0x2,A7 00021660 20 4f | O | MOVEA.L A7,A0 00021662 43 fa ee 52 |C R | LEA.L 0x204b6,A1 00021666 70 06 |p | MOVEQ.L #0x06,D0 00021668 10 d9 | | MOVE.B (A1)+,(A0)+ 0002166a 51 c8 ff fc |Q | DBF D0,0x21668 0002166e 60 62 |`b | BRA 0x216d2 00021670 switch@0x215fa[0x2]: 00021670 3f 3a ee 50 |?: P | MOVE.W 0x204c2,-(A7) 00021674 3f 3a ee 4a |?: J | MOVE.W 0x204c0,-(A7) 00021678 3f 3a ee 44 |?: D | MOVE.W 0x204be,-(A7) 0002167c 59 4f |YO | SUBQ.L #0x4,A7 0002167e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021682 3f 01 |? | MOVE.W D1,-(A7) 00021684 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00021688 4e 92 |N | JSR (A2) 0002168a 50 4f |PO | ADDQ.L #0x8,A7 0002168c 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 00021690 55 4f |UO | SUBQ.L #0x2,A7 00021692 20 4f | O | MOVEA.L A7,A0 00021694 43 fa ee 2e |C . | LEA.L 0x204c4,A1 00021698 70 06 |p | MOVEQ.L #0x06,D0 0002169a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002169c 51 c8 ff fc |Q | DBF D0,0x2169a 000216a0 60 30 |`0 | BRA 0x216d2 000216a2 switch@0x215fa[0x3]: 000216a2 3f 3a ee 2c |?: , | MOVE.W 0x204d0,-(A7) 000216a6 3f 3a ee 26 |?: & | MOVE.W 0x204ce,-(A7) 000216aa 3f 3a ee 20 |?: | MOVE.W 0x204cc,-(A7) 000216ae 59 4f |YO | SUBQ.L #0x4,A7 000216b0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216b4 3f 01 |? | MOVE.W D1,-(A7) 000216b6 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 000216ba 4e 92 |N | JSR (A2) 000216bc 50 4f |PO | ADDQ.L #0x8,A7 000216be 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 000216c2 55 4f |UO | SUBQ.L #0x2,A7 000216c4 20 4f | O | MOVEA.L A7,A0 000216c6 43 fa ee 0a |C | LEA.L 0x204d2,A1 000216ca 70 06 |p | MOVEQ.L #0x06,D0 000216cc 10 d9 | | MOVE.B (A1)+,(A0)+ 000216ce 51 c8 ff fc |Q | DBF D0,0x216cc 000216d2 59 4f |YO | SUBQ.L #0x4,A7 000216d4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216d8 3f 01 |? | MOVE.W D1,-(A7) 000216da 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000216de 4e 92 |N | JSR (A2) 000216e0 50 4f |PO | ADDQ.L #0x8,A7 000216e2 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 000216e6 50 4f |PO | ADDQ.L #0x8,A7 000216e8 9e fc 00 3e | > | SUBA.W #0x3e,A7 000216ec 20 4f | O | MOVEA.L A7,A0 000216ee 43 fa ed 4e |C N | LEA.L 0x2043e,A1 000216f2 70 3c |p< | MOVEQ.L #0x3c,D0 000216f4 10 d9 | | MOVE.B (A1)+,(A0)+ 000216f6 51 c8 ff fc |Q | DBF D0,0x216f4 000216fa 51 4f |QO | SUBQ.L #0x8,A7 000216fc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021700 3f 01 |? | MOVE.W D1,-(A7) 00021702 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 00021706 4e 92 |N | JSR (A2) 00021708 50 4f |PO | ADDQ.L #0x8,A7 0002170a 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00021710 58 4f |XO | ADDQ.L #0x4,A7 00021712 28 5f |(_ | MOVEA.L (A7)+,A4 00021714 de fc 00 3e | > | ADDA.W #0x3e,A7 00021718 4a 54 |JT | TST.W (A4) 0002171a 67 cc |g | BEQ 0x216e8 0002171c 41 fa ed 84 |A | LEA.L 0x204a2,A0 00021720 70 12 |p | MOVEQ.L #0x12,D0 00021722 3f 20 |? | MOVE.W -(A0),-(A7) 00021724 51 c8 ff fc |Q | DBF D0,0x21722 00021728 51 4f |QO | SUBQ.L #0x8,A7 0002172a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002172e 3f 01 |? | MOVE.W D1,-(A7) 00021730 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 00021734 4e 92 |N | JSR (A2) 00021736 50 4f |PO | ADDQ.L #0x8,A7 00021738 48 78 00 40 |Hx @ | PEA.L 0x40 0002173c 48 78 01 00 |Hx | PEA.L 0x100 00021740 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00021746 de c2 | | ADDA.W D2,A7 00021748 2c 1f |, | MOVE.L (A7)+,D6 0002174a de c5 | | ADDA.W D5,A7 0002174c 3e 83 |> | MOVE.W D3,(A7) 0002174e 3f 04 |? | MOVE.W D4,-(A7) 00021750 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00021756 58 4f |XO | ADDQ.L #0x4,A7 00021758 4e 93 |N | JSR (A3) 0002175a 4a b9 00 02 39 86 |J 9 | TST.L 0x23986 00021760 66 76 |fv | BNE 0x217d8 00021762 3f 03 |? | MOVE.W D3,-(A7) 00021764 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 00021768 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 0002176e 54 4f |TO | ADDQ.L #0x2,A7 00021770 3e 83 |> | MOVE.W D3,(A7) 00021772 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 00021776 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 0002177c 54 4f |TO | ADDQ.L #0x2,A7 0002177e 3e 83 |> | MOVE.W D3,(A7) 00021780 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 00021784 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 0002178a 54 4f |TO | ADDQ.L #0x2,A7 0002178c 3e 83 |> | MOVE.W D3,(A7) 0002178e 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00021792 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00021798 58 4f |XO | ADDQ.L #0x4,A7 0002179a 4e 93 |N | JSR (A3) 0002179c 4a b9 00 02 39 86 |J 9 | TST.L 0x23986 000217a2 66 34 |f4 | BNE 0x217d8 000217a4 41 fa ea b4 |A | LEA.L 0x2025a,A0 000217a8 70 0b |p | MOVEQ.L #0x0b,D0 000217aa 2f 20 |/ | MOVE.L -(A0),-(A7) 000217ac 51 c8 ff fc |Q | DBF D0,0x217aa 000217b0 59 4f |YO | SUBQ.L #0x4,A7 000217b2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000217b6 3f 01 |? | MOVE.W D1,-(A7) 000217b8 3f 3c 00 30 |?< 0 | MOVE.W #0x30,-(A7) 000217bc 4e 92 |N | JSR (A2) 000217be 50 4f |PO | ADDQ.L #0x8,A7 000217c0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000217c6 de fc 00 32 | 2 | ADDA.W #0x32,A7 000217ca 1e 83 | | MOVE.B D3,(A7) 000217cc 48 78 00 01 |Hx | PEA.L 0x1 000217d0 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000217d6 5c 4f |\O | ADDQ.L #0x6,A7 000217d8 48 6e ff ec |Hn | PEA.L (A6-0x14) 000217dc 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000217e2 5d 4f |]O | SUBQ.L #0x6,A7 000217e4 20 4f | O | MOVEA.L A7,A0 000217e6 43 fa ec f2 |C | LEA.L 0x204da,A1 000217ea 70 08 |p | MOVEQ.L #0x08,D0 000217ec 10 d9 | | MOVE.B (A1)+,(A0)+ 000217ee 51 c8 ff fc |Q | DBF D0,0x217ec 000217f2 9e fc 00 0a | | SUBA.W #0xa,A7 000217f6 20 4f | O | MOVEA.L A7,A0 000217f8 43 fa ec ea |C | LEA.L 0x204e4,A1 000217fc 70 08 |p | MOVEQ.L #0x08,D0 000217fe 10 d9 | | MOVE.B (A1)+,(A0)+ 00021800 51 c8 ff fc |Q | DBF D0,0x217fe 00021804 59 4f |YO | SUBQ.L #0x4,A7 00021806 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 0002180a 59 4f |YO | SUBQ.L #0x4,A7 0002180c 48 6f 00 16 |Ho | PEA.L (A7+0x16) 00021810 3f 01 |? | MOVE.W D1,-(A7) 00021812 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00021816 4e 92 |N | JSR (A2) 00021818 58 4f |XO | ADDQ.L #0x4,A7 0002181a 2e 8c |. | MOVE.L A4,(A7) 0002181c 51 4f |QO | SUBQ.L #0x8,A7 0002181e 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00021822 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00021828 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 0002182c 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00021832 48 6f 00 20 |Ho | PEA.L (A7+0x20) 00021836 3f 01 |? | MOVE.W D1,-(A7) 00021838 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002183c 4e 92 |N | JSR (A2) 0002183e 50 4f |PO | ADDQ.L #0x8,A7 00021840 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00021846 de c2 | | ADDA.W D2,A7 00021848 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 0002184e de c4 | | ADDA.W D4,A7 00021850 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00021854 de c4 | | ADDA.W D4,A7 00021856 2e ae ff ec |. | MOVE.L (A6-0x14),(A7) 0002185a 4e ba f7 74 |N t | JSR 0x20fd0 0002185e 58 4f |XO | ADDQ.L #0x4,A7 00021860 4e 93 |N | JSR (A3) 00021862 55 4f |UO | SUBQ.L #0x2,A7 00021864 4e ba fa 10 |N | JSR 0x21276 00021868 4a 1f |J | TST.B (A7)+ 0002186a 67 56 |gV | BEQ 0x218c2 0002186c 9e fc 00 40 | @ | SUBA.W #0x40,A7 00021870 20 4f | O | MOVEA.L A7,A0 00021872 43 fa e9 e6 |C | LEA.L 0x2025a,A1 00021876 70 3e |p> | MOVEQ.L #0x3e,D0 00021878 10 d9 | | MOVE.B (A1)+,(A0)+ 0002187a 51 c8 ff fc |Q | DBF D0,0x21878 0002187e 59 4f |YO | SUBQ.L #0x4,A7 00021880 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021884 3f 01 |? | MOVE.W D1,-(A7) 00021886 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 0002188a 4e 92 |N | JSR (A2) 0002188c 50 4f |PO | ADDQ.L #0x8,A7 0002188e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021894 de fc 00 44 | D | ADDA.W #0x44,A7 00021898 41 fa ea 42 |A B | LEA.L 0x202dc,A0 0002189c 70 20 |p | MOVEQ.L #0x20,D0 0002189e 3f 20 |? | MOVE.W -(A0),-(A7) 000218a0 51 c8 ff fc |Q | DBF D0,0x2189e 000218a4 59 4f |YO | SUBQ.L #0x4,A7 000218a6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000218aa 3f 01 |? | MOVE.W D1,-(A7) 000218ac 3f 3c 00 42 |?< B | MOVE.W #0x42,-(A7) 000218b0 4e 92 |N | JSR (A2) 000218b2 50 4f |PO | ADDQ.L #0x8,A7 000218b4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000218ba de fc 00 46 | F | ADDA.W #0x46,A7 000218be 60 00 04 ea |` | BRA 0x21daa 000218c2 48 6e ff ec |Hn | PEA.L (A6-0x14) 000218c6 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000218cc 58 4f |XO | ADDQ.L #0x4,A7 000218ce 41 fa ec 2c |A , | LEA.L 0x204fc,A0 000218d2 70 06 |p | MOVEQ.L #0x06,D0 000218d4 3f 20 |? | MOVE.W -(A0),-(A7) 000218d6 51 c8 ff fc |Q | DBF D0,0x218d4 000218da 2f 3a ec 20 |/: | MOVE.L 0x204fc,-(A7) 000218de 41 fa ec 34 |A 4 | LEA.L 0x20514,A0 000218e2 70 04 |p | MOVEQ.L #0x04,D0 000218e4 2f 20 |/ | MOVE.L -(A0),-(A7) 000218e6 51 c8 ff fc |Q | DBF D0,0x218e4 000218ea 51 4f |QO | SUBQ.L #0x8,A7 000218ec 48 6f 00 20 |Ho | PEA.L (A7+0x20) 000218f0 3f 01 |? | MOVE.W D1,-(A7) 000218f2 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000218f6 4e 92 |N | JSR (A2) 000218f8 2e 86 |. | MOVE.L D6,(A7) 000218fa 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021900 48 6f 00 24 |Ho $ | PEA.L (A7+0x24) 00021904 3f 01 |? | MOVE.W D1,-(A7) 00021906 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 0002190a 4e 92 |N | JSR (A2) 0002190c 2e 86 |. | MOVE.L D6,(A7) 0002190e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021914 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00021918 3f 01 |? | MOVE.W D1,-(A7) 0002191a 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 0002191e 4e 92 |N | JSR (A2) 00021920 50 4f |PO | ADDQ.L #0x8,A7 00021922 4e b9 00 01 02 dc |N | JSR StringCat5(a, b, c, d, e : String) : String 00021928 de fc 00 14 | | ADDA.W #0x14,A7 0002192c 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00021930 de fc 00 22 | " | ADDA.W #0x22,A7 00021934 2e ae ff ec |. | MOVE.L (A6-0x14),(A7) 00021938 4e ba f6 96 |N | JSR 0x20fd0 0002193c 58 4f |XO | ADDQ.L #0x4,A7 0002193e 4e 93 |N | JSR (A3) 00021940 55 4f |UO | SUBQ.L #0x2,A7 00021942 4e ba f9 32 |N 2 | JSR 0x21276 00021946 4a 1f |J | TST.B (A7)+ 00021948 67 30 |g0 | BEQ 0x2197a 0002194a 9e fc 00 0e | | SUBA.W #0xe,A7 0002194e 20 4f | O | MOVEA.L A7,A0 00021950 43 fa e9 8a |C | LEA.L 0x202dc,A1 00021954 70 0c |p | MOVEQ.L #0x0c,D0 00021956 10 d9 | | MOVE.B (A1)+,(A0)+ 00021958 51 c8 ff fc |Q | DBF D0,0x21956 0002195c 59 4f |YO | SUBQ.L #0x4,A7 0002195e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021962 3f 01 |? | MOVE.W D1,-(A7) 00021964 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00021968 4e 92 |N | JSR (A2) 0002196a 50 4f |PO | ADDQ.L #0x8,A7 0002196c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021972 de fc 00 12 | | ADDA.W #0x12,A7 00021976 60 00 03 bc |` | BRA 0x21d34 0002197a 48 6e ff ec |Hn | PEA.L (A6-0x14) 0002197e 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00021984 58 4f |XO | ADDQ.L #0x4,A7 00021986 41 fa eb a4 |A | LEA.L 0x2052c,A0 0002198a 70 05 |p | MOVEQ.L #0x05,D0 0002198c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002198e 51 c8 ff fc |Q | DBF D0,0x2198c 00021992 9e c2 | | SUBA.W D2,A7 00021994 20 4f | O | MOVEA.L A7,A0 00021996 43 fa eb 94 |C | LEA.L 0x2052c,A1 0002199a 70 0a |p | MOVEQ.L #0x0a,D0 0002199c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002199e 51 c8 ff fc |Q | DBF D0,0x2199c 000219a2 9e fc 00 14 | | SUBA.W #0x14,A7 000219a6 20 4f | O | MOVEA.L A7,A0 000219a8 43 fa eb 8e |C | LEA.L 0x20538,A1 000219ac 70 12 |p | MOVEQ.L #0x12,D0 000219ae 10 d9 | | MOVE.B (A1)+,(A0)+ 000219b0 51 c8 ff fc |Q | DBF D0,0x219ae 000219b4 59 4f |YO | SUBQ.L #0x4,A7 000219b6 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 000219ba 59 4f |YO | SUBQ.L #0x4,A7 000219bc 48 6f 00 2c |Ho , | PEA.L (A7+0x2c) 000219c0 3f 01 |? | MOVE.W D1,-(A7) 000219c2 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 000219c6 4e 92 |N | JSR (A2) 000219c8 2e 86 |. | MOVE.L D6,(A7) 000219ca 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000219d0 48 6f 00 28 |Ho ( | PEA.L (A7+0x28) 000219d4 3f 01 |? | MOVE.W D1,-(A7) 000219d6 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 000219da 4e 92 |N | JSR (A2) 000219dc 2e ae ff f4 |. | MOVE.L (A6-0xc),(A7) 000219e0 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000219e6 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 000219ea 3f 01 |? | MOVE.W D1,-(A7) 000219ec 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000219f0 4e 92 |N | JSR (A2) 000219f2 50 4f |PO | ADDQ.L #0x8,A7 000219f4 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 000219fa de fc 00 18 | | ADDA.W #0x18,A7 000219fe 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00021a02 de fc 00 34 | 4 | ADDA.W #0x34,A7 00021a06 2e ae ff ec |. | MOVE.L (A6-0x14),(A7) 00021a0a 4e ba f5 c4 |N | JSR 0x20fd0 00021a0e 58 4f |XO | ADDQ.L #0x4,A7 00021a10 4e 93 |N | JSR (A3) 00021a12 55 4f |UO | SUBQ.L #0x2,A7 00021a14 4e ba f8 60 |N ` | JSR 0x21276 00021a18 4a 1f |J | TST.B (A7)+ 00021a1a 67 16 |g | BEQ 0x21a32 00021a1c 9e fc 00 0e | | SUBA.W #0xe,A7 00021a20 20 4f | O | MOVEA.L A7,A0 00021a22 43 fa e9 62 |C b | LEA.L 0x20386,A1 00021a26 70 0c |p | MOVEQ.L #0x0c,D0 00021a28 10 d9 | | MOVE.B (A1)+,(A0)+ 00021a2a 51 c8 ff fc |Q | DBF D0,0x21a28 00021a2e 60 00 ff 2c |` , | BRA 0x2195c 00021a32 48 6e ff ec |Hn | PEA.L (A6-0x14) 00021a36 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00021a3c 58 4f |XO | ADDQ.L #0x4,A7 00021a3e 41 fa eb 16 |A | LEA.L 0x20556,A0 00021a42 70 04 |p | MOVEQ.L #0x04,D0 00021a44 3f 20 |? | MOVE.W -(A0),-(A7) 00021a46 51 c8 ff fc |Q | DBF D0,0x21a44 00021a4a 41 fa eb 2a |A * | LEA.L 0x20576,A0 00021a4e 70 07 |p | MOVEQ.L #0x07,D0 00021a50 2f 20 |/ | MOVE.L -(A0),-(A7) 00021a52 51 c8 ff fc |Q | DBF D0,0x21a50 00021a56 59 4f |YO | SUBQ.L #0x4,A7 00021a58 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00021a5c 59 4f |YO | SUBQ.L #0x4,A7 00021a5e 48 6f 00 2c |Ho , | PEA.L (A7+0x2c) 00021a62 3f 01 |? | MOVE.W D1,-(A7) 00021a64 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00021a68 4e 92 |N | JSR (A2) 00021a6a 2e ae ff f4 |. | MOVE.L (A6-0xc),(A7) 00021a6e 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00021a74 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00021a78 3f 01 |? | MOVE.W D1,-(A7) 00021a7a 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00021a7e 4e 92 |N | JSR (A2) 00021a80 50 4f |PO | ADDQ.L #0x8,A7 00021a82 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 00021a88 de c4 | | ADDA.W D4,A7 00021a8a 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00021a8e de fc 00 26 | & | ADDA.W #0x26,A7 00021a92 2e ae ff ec |. | MOVE.L (A6-0x14),(A7) 00021a96 4e ba f5 38 |N 8 | JSR 0x20fd0 00021a9a 58 4f |XO | ADDQ.L #0x4,A7 00021a9c 4e 93 |N | JSR (A3) 00021a9e 55 4f |UO | SUBQ.L #0x2,A7 00021aa0 4e ba f7 d4 |N | JSR 0x21276 00021aa4 4a 1f |J | TST.B (A7)+ 00021aa6 67 16 |g | BEQ 0x21abe 00021aa8 9e fc 00 0e | | SUBA.W #0xe,A7 00021aac 20 4f | O | MOVEA.L A7,A0 00021aae 43 fa e8 e4 |C | LEA.L 0x20394,A1 00021ab2 70 0c |p | MOVEQ.L #0x0c,D0 00021ab4 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ab6 51 c8 ff fc |Q | DBF D0,0x21ab4 00021aba 60 00 fe a0 |` | BRA 0x2195c 00021abe 48 6e ff ec |Hn | PEA.L (A6-0x14) 00021ac2 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00021ac8 9e c2 | | SUBA.W D2,A7 00021aca 20 4f | O | MOVEA.L A7,A0 00021acc 43 fa ea a8 |C | LEA.L 0x20576,A1 00021ad0 70 0e |p | MOVEQ.L #0x0e,D0 00021ad2 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ad4 51 c8 ff fc |Q | DBF D0,0x21ad2 00021ad8 9e fc 00 0a | | SUBA.W #0xa,A7 00021adc 20 4f | O | MOVEA.L A7,A0 00021ade 43 fa ea a6 |C | LEA.L 0x20586,A1 00021ae2 70 08 |p | MOVEQ.L #0x08,D0 00021ae4 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ae6 51 c8 ff fc |Q | DBF D0,0x21ae4 00021aea 59 4f |YO | SUBQ.L #0x4,A7 00021aec 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00021af0 59 4f |YO | SUBQ.L #0x4,A7 00021af2 48 6f 00 16 |Ho | PEA.L (A7+0x16) 00021af6 3f 01 |? | MOVE.W D1,-(A7) 00021af8 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00021afc 4e 92 |N | JSR (A2) 00021afe 2e ae ff f4 |. | MOVE.L (A6-0xc),(A7) 00021b02 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00021b08 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00021b0c 3f 01 |? | MOVE.W D1,-(A7) 00021b0e 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00021b12 4e 92 |N | JSR (A2) 00021b14 50 4f |PO | ADDQ.L #0x8,A7 00021b16 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 00021b1c de c4 | | ADDA.W D4,A7 00021b1e 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00021b22 de fc 00 16 | | ADDA.W #0x16,A7 00021b26 2e ae ff ec |. | MOVE.L (A6-0x14),(A7) 00021b2a 4e ba f4 a4 |N | JSR 0x20fd0 00021b2e 58 4f |XO | ADDQ.L #0x4,A7 00021b30 4e 93 |N | JSR (A3) 00021b32 55 4f |UO | SUBQ.L #0x2,A7 00021b34 4e ba f7 40 |N @ | JSR 0x21276 00021b38 4a 1f |J | TST.B (A7)+ 00021b3a 67 16 |g | BEQ 0x21b52 00021b3c 9e fc 00 0e | | SUBA.W #0xe,A7 00021b40 20 4f | O | MOVEA.L A7,A0 00021b42 43 fa e8 5e |C ^ | LEA.L 0x203a2,A1 00021b46 70 0c |p | MOVEQ.L #0x0c,D0 00021b48 10 d9 | | MOVE.B (A1)+,(A0)+ 00021b4a 51 c8 ff fc |Q | DBF D0,0x21b48 00021b4e 60 00 fe 0c |` | BRA 0x2195c 00021b52 48 6e ff ec |Hn | PEA.L (A6-0x14) 00021b56 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00021b5c 9e fc 00 2c | , | SUBA.W #0x2c,A7 00021b60 20 4f | O | MOVEA.L A7,A0 00021b62 43 fa ea 2c |C , | LEA.L 0x20590,A1 00021b66 70 2e |p. | MOVEQ.L #0x2e,D0 00021b68 10 d9 | | MOVE.B (A1)+,(A0)+ 00021b6a 51 c8 ff fc |Q | DBF D0,0x21b68 00021b6e 41 fa ea 7a |A z | LEA.L 0x205ea,A0 00021b72 70 14 |p | MOVEQ.L #0x14,D0 00021b74 3f 20 |? | MOVE.W -(A0),-(A7) 00021b76 51 c8 ff fc |Q | DBF D0,0x21b74 00021b7a 59 4f |YO | SUBQ.L #0x4,A7 00021b7c 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00021b80 59 4f |YO | SUBQ.L #0x4,A7 00021b82 48 6f 00 36 |Ho 6 | PEA.L (A7+0x36) 00021b86 3f 01 |? | MOVE.W D1,-(A7) 00021b88 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 00021b8c 4e 92 |N | JSR (A2) 00021b8e 58 4f |XO | ADDQ.L #0x4,A7 00021b90 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00021b94 3f 01 |? | MOVE.W D1,-(A7) 00021b96 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 00021b9a 4e 92 |N | JSR (A2) 00021b9c 50 4f |PO | ADDQ.L #0x8,A7 00021b9e 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00021ba4 de c2 | | ADDA.W D2,A7 00021ba6 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00021baa de fc 00 56 | V | ADDA.W #0x56,A7 00021bae 2e ae ff ec |. | MOVE.L (A6-0x14),(A7) 00021bb2 4e ba f4 1c |N | JSR 0x20fd0 00021bb6 58 4f |XO | ADDQ.L #0x4,A7 00021bb8 4e 93 |N | JSR (A3) 00021bba 55 4f |UO | SUBQ.L #0x2,A7 00021bbc 4e ba f6 b8 |N | JSR 0x21276 00021bc0 4a 1f |J | TST.B (A7)+ 00021bc2 67 30 |g0 | BEQ 0x21bf4 00021bc4 9e fc 00 14 | | SUBA.W #0x14,A7 00021bc8 20 4f | O | MOVEA.L A7,A0 00021bca 43 fa e7 e4 |C | LEA.L 0x203b0,A1 00021bce 70 12 |p | MOVEQ.L #0x12,D0 00021bd0 10 d9 | | MOVE.B (A1)+,(A0)+ 00021bd2 51 c8 ff fc |Q | DBF D0,0x21bd0 00021bd6 59 4f |YO | SUBQ.L #0x4,A7 00021bd8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021bdc 3f 01 |? | MOVE.W D1,-(A7) 00021bde 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00021be2 4e 92 |N | JSR (A2) 00021be4 50 4f |PO | ADDQ.L #0x8,A7 00021be6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021bec de fc 00 18 | | ADDA.W #0x18,A7 00021bf0 60 00 01 42 |` B | BRA 0x21d34 00021bf4 48 6e ff ec |Hn | PEA.L (A6-0x14) 00021bf8 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00021bfe 58 4f |XO | ADDQ.L #0x4,A7 00021c00 41 fa ea 1a |A | LEA.L 0x2061c,A0 00021c04 70 18 |p | MOVEQ.L #0x18,D0 00021c06 3f 20 |? | MOVE.W -(A0),-(A7) 00021c08 51 c8 ff fc |Q | DBF D0,0x21c06 00021c0c 41 fa ea 40 |A @ | LEA.L 0x2064e,A0 00021c10 70 18 |p | MOVEQ.L #0x18,D0 00021c12 3f 20 |? | MOVE.W -(A0),-(A7) 00021c14 51 c8 ff fc |Q | DBF D0,0x21c12 00021c18 59 4f |YO | SUBQ.L #0x4,A7 00021c1a 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00021c1e 59 4f |YO | SUBQ.L #0x4,A7 00021c20 48 6f 00 3e |Ho > | PEA.L (A7+0x3e) 00021c24 3f 01 |? | MOVE.W D1,-(A7) 00021c26 3f 3c 00 32 |?< 2 | MOVE.W #0x32,-(A7) 00021c2a 4e 92 |N | JSR (A2) 00021c2c 58 4f |XO | ADDQ.L #0x4,A7 00021c2e 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00021c32 3f 01 |? | MOVE.W D1,-(A7) 00021c34 3f 3c 00 32 |?< 2 | MOVE.W #0x32,-(A7) 00021c38 4e 92 |N | JSR (A2) 00021c3a 50 4f |PO | ADDQ.L #0x8,A7 00021c3c 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00021c42 de c2 | | ADDA.W D2,A7 00021c44 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00021c48 de fc 00 60 | ` | ADDA.W #0x60,A7 00021c4c 2e ae ff ec |. | MOVE.L (A6-0x14),(A7) 00021c50 4e ba f3 7e |N ~ | JSR 0x20fd0 00021c54 58 4f |XO | ADDQ.L #0x4,A7 00021c56 4e 93 |N | JSR (A3) 00021c58 55 4f |UO | SUBQ.L #0x2,A7 00021c5a 4e ba f6 1a |N | JSR 0x21276 00021c5e 4a 1f |J | TST.B (A7)+ 00021c60 67 1c |g | BEQ 0x21c7e 00021c62 41 fa e7 74 |A t | LEA.L 0x203d8,A0 00021c66 70 04 |p | MOVEQ.L #0x04,D0 00021c68 2f 20 |/ | MOVE.L -(A0),-(A7) 00021c6a 51 c8 ff fc |Q | DBF D0,0x21c68 00021c6e 59 4f |YO | SUBQ.L #0x4,A7 00021c70 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021c74 3f 01 |? | MOVE.W D1,-(A7) 00021c76 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 00021c7a 60 00 ff 66 |` f | BRA 0x21be2 00021c7e 9e fc 00 0e | | SUBA.W #0xe,A7 00021c82 20 4f | O | MOVEA.L A7,A0 00021c84 43 fa e9 c8 |C | LEA.L 0x2064e,A1 00021c88 70 0c |p | MOVEQ.L #0x0c,D0 00021c8a 10 d9 | | MOVE.B (A1)+,(A0)+ 00021c8c 51 c8 ff fc |Q | DBF D0,0x21c8a 00021c90 59 4f |YO | SUBQ.L #0x4,A7 00021c92 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021c96 3f 01 |? | MOVE.W D1,-(A7) 00021c98 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00021c9c 4e 92 |N | JSR (A2) 00021c9e 50 4f |PO | ADDQ.L #0x8,A7 00021ca0 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00021ca4 de fc 00 0a | | ADDA.W #0xa,A7 00021ca8 2e ae ff ec |. | MOVE.L (A6-0x14),(A7) 00021cac 4e ba f3 22 |N " | JSR 0x20fd0 00021cb0 2e bc 00 02 fa ee |. | MOVE.L #0x2faee,(A7) 00021cb6 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00021cbc 58 4f |XO | ADDQ.L #0x4,A7 00021cbe 4e 93 |N | JSR (A3) 00021cc0 55 4f |UO | SUBQ.L #0x2,A7 00021cc2 4e ba f7 54 |N T | JSR 0x21418 00021cc6 4a 1f |J | TST.B (A7)+ 00021cc8 67 2a |g* | BEQ 0x21cf4 00021cca 9e c2 | | SUBA.W D2,A7 00021ccc 20 4f | O | MOVEA.L A7,A0 00021cce 43 fa e7 08 |C | LEA.L 0x203d8,A1 00021cd2 70 0a |p | MOVEQ.L #0x0a,D0 00021cd4 10 d9 | | MOVE.B (A1)+,(A0)+ 00021cd6 51 c8 ff fc |Q | DBF D0,0x21cd4 00021cda 59 4f |YO | SUBQ.L #0x4,A7 00021cdc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021ce0 3f 01 |? | MOVE.W D1,-(A7) 00021ce2 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00021ce6 4e 92 |N | JSR (A2) 00021ce8 50 4f |PO | ADDQ.L #0x8,A7 00021cea 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021cf0 de c4 | | ADDA.W D4,A7 00021cf2 60 40 |`@ | BRA 0x21d34 00021cf4 41 fa e9 82 |A | LEA.L 0x20678,A0 00021cf8 70 06 |p | MOVEQ.L #0x06,D0 00021cfa 2f 20 |/ | MOVE.L -(A0),-(A7) 00021cfc 51 c8 ff fc |Q | DBF D0,0x21cfa 00021d00 59 4f |YO | SUBQ.L #0x4,A7 00021d02 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021d06 3f 01 |? | MOVE.W D1,-(A7) 00021d08 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 00021d0c 4e 92 |N | JSR (A2) 00021d0e 50 4f |PO | ADDQ.L #0x8,A7 00021d10 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021d16 de fc 00 20 | | ADDA.W #0x20,A7 00021d1a 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00021d1e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021d24 58 4f |XO | ADDQ.L #0x4,A7 00021d26 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021d2a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021d30 58 4f |XO | ADDQ.L #0x4,A7 00021d32 60 76 |`v | BRA 0x21daa 00021d34 9e fc 00 40 | @ | SUBA.W #0x40,A7 00021d38 20 4f | O | MOVEA.L A7,A0 00021d3a 43 fa e5 ae |C | LEA.L 0x202ea,A1 00021d3e 70 3e |p> | MOVEQ.L #0x3e,D0 00021d40 10 d9 | | MOVE.B (A1)+,(A0)+ 00021d42 51 c8 ff fc |Q | DBF D0,0x21d40 00021d46 59 4f |YO | SUBQ.L #0x4,A7 00021d48 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021d4c 3f 01 |? | MOVE.W D1,-(A7) 00021d4e 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 00021d52 4e 92 |N | JSR (A2) 00021d54 50 4f |PO | ADDQ.L #0x8,A7 00021d56 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021d5c de fc 00 44 | D | ADDA.W #0x44,A7 00021d60 41 fa e6 04 |A | LEA.L 0x20366,A0 00021d64 70 0e |p | MOVEQ.L #0x0e,D0 00021d66 2f 20 |/ | MOVE.L -(A0),-(A7) 00021d68 51 c8 ff fc |Q | DBF D0,0x21d66 00021d6c 59 4f |YO | SUBQ.L #0x4,A7 00021d6e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021d72 3f 01 |? | MOVE.W D1,-(A7) 00021d74 3f 3c 00 3c |?< < | MOVE.W #0x3c,-(A7) 00021d78 4e 92 |N | JSR (A2) 00021d7a 50 4f |PO | ADDQ.L #0x8,A7 00021d7c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021d82 de fc 00 40 | @ | ADDA.W #0x40,A7 00021d86 41 fa e5 fe |A | LEA.L 0x20386,A0 00021d8a 70 07 |p | MOVEQ.L #0x07,D0 00021d8c 2f 20 |/ | MOVE.L -(A0),-(A7) 00021d8e 51 c8 ff fc |Q | DBF D0,0x21d8c 00021d92 59 4f |YO | SUBQ.L #0x4,A7 00021d94 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021d98 3f 01 |? | MOVE.W D1,-(A7) 00021d9a 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00021d9e 4e 92 |N | JSR (A2) 00021da0 50 4f |PO | ADDQ.L #0x8,A7 00021da2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021da8 de c5 | | ADDA.W D5,A7 00021daa 4e ba f1 fa |N | JSR 0x20fa6 00021dae 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021db2 4e 5e |N^ | UNLK A6 00021db4 4e 75 |Nu | RTS 00021db6 ; -------------------------------------------------------------------------------------- 00021db6 ; OMSI PASCAL Function 00021db6 ; <LVAR 0x008 1(r)> 00021db6 ; <LVAR -0x00a @ 4(rw)> 00021db6 ; <LVAR -0x00e @ 4(rw)> 00021db6 ; <LVAR -0x016 @ 4(rw)> 00021db6 ; -------------------------------------------------------------------------------------- 00021db6 4e 56 ff 58 |NV X | LINK.W A6,#0xff58 00021dba bf d5 | | CMPA.L (A5),A7 00021dbc 62 06 |b | BHI 0x21dc4 00021dbe 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021dc2 4e 76 |Nv | TRAPV 00021dc4 de fc 00 8e | | ADDA.W #0x8e,A7 00021dc8 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021dcc 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021dd2 47 fa f2 7a |G z | LEA.L 0x2104e,A3 00021dd6 72 01 |r | MOVEQ.L #0x01,D1 00021dd8 74 0e |t | MOVEQ.L #0x0e,D2 00021dda 76 24 |v$ | MOVEQ.L #0x24,D3 00021ddc 78 02 |x | MOVEQ.L #0x02,D4 00021dde 7a 0c |z | MOVEQ.L #0x0c,D5 00021de0 42 39 00 02 31 80 |B9 1 | CLR.B 0x23180 00021de6 4e b9 00 01 02 16 |N | JSR KC0b 00021dec 4e 93 |N | JSR (A3) 00021dee 9e c3 | | SUBA.W D3,A7 00021df0 20 4f | O | MOVEA.L A7,A0 00021df2 43 fa ea 4a |C J | LEA.L 0x2083e,A1 00021df6 70 22 |p" | MOVEQ.L #0x22,D0 00021df8 10 d9 | | MOVE.B (A1)+,(A0)+ 00021dfa 51 c8 ff fc |Q | DBF D0,0x21df8 00021dfe 5d 4f |]O | SUBQ.L #0x6,A7 00021e00 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021e04 3f 01 |? | MOVE.W D1,-(A7) 00021e06 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 00021e0a 4e 92 |N | JSR (A2) 00021e0c 5c 4f |\O | ADDQ.L #0x6,A7 00021e0e 42 17 |B | CLR.B (A7) 00021e10 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00021e16 5c 4f |\O | ADDQ.L #0x6,A7 00021e18 10 1f | | MOVE.B (A7)+,D0 00021e1a 48 80 |H | EXTB.W D0 00021e1c 41 81 |A | CHK.W D1,D0 00021e1e de c3 | | ADDA.W D3,A7 00021e20 13 c0 00 02 31 80 | 1 | MOVE.B D0,0x23180 00021e26 9e fc 00 36 | 6 | SUBA.W #0x36,A7 00021e2a 20 4f | O | MOVEA.L A7,A0 00021e2c 43 fa e9 da |C | LEA.L 0x20808,A1 00021e30 70 34 |p4 | MOVEQ.L #0x34,D0 00021e32 10 d9 | | MOVE.B (A1)+,(A0)+ 00021e34 51 c8 ff fc |Q | DBF D0,0x21e32 00021e38 51 4f |QO | SUBQ.L #0x8,A7 00021e3a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021e3e 3f 01 |? | MOVE.W D1,-(A7) 00021e40 3f 3c 00 35 |?< 5 | MOVE.W #0x35,-(A7) 00021e44 4e 92 |N | JSR (A2) 00021e46 50 4f |PO | ADDQ.L #0x8,A7 00021e48 48 78 00 02 |Hx | PEA.L 0x2 00021e4c 48 78 00 05 |Hx | PEA.L 0x5 00021e50 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00021e56 de c5 | | ADDA.W D5,A7 00021e58 2e 1f |. | MOVE.L (A7)+,D7 00021e5a de fc 00 36 | 6 | ADDA.W #0x36,A7 00021e5e 20 07 | | MOVE.L D7,D0 00021e60 55 80 |U | SUBQ.L #0x2,D0 00021e62 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0 00021e68 63 02 |c | BLS 0x21e6c 00021e6a 4e 4e |NN | TRAP #14 00021e6c d0 40 | @ | ADD.W D0,D0 00021e6e 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00021e76 00 08 | | .CONST 0x8 ; [0x0] -> 0x21e7e 00021e78 00 3c | < | .CONST 0x3c ; [0x1] -> 0x21eb2 00021e7a 00 6e | n | .CONST 0x6e ; [0x2] -> 0x21ee4 00021e7c 00 a0 | | .CONST 0xa0 ; [0x3] -> 0x21f16 00021e7e switch@0x21e6e[0x0]: 00021e7e 3f 3a ea 52 |?: R | MOVE.W 0x208d2,-(A7) 00021e82 3f 3a ea 4c |?: L | MOVE.W 0x208d0,-(A7) 00021e86 3f 3a ea 46 |?: F | MOVE.W 0x208ce,-(A7) 00021e8a 59 4f |YO | SUBQ.L #0x4,A7 00021e8c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021e90 3f 01 |? | MOVE.W D1,-(A7) 00021e92 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00021e96 4e 92 |N | JSR (A2) 00021e98 50 4f |PO | ADDQ.L #0x8,A7 00021e9a 2d 5f ff f2 |-_ | MOVE.L (A7)+,(A6-0xe) 00021e9e 55 4f |UO | SUBQ.L #0x2,A7 00021ea0 20 4f | O | MOVEA.L A7,A0 00021ea2 43 fa ea 30 |C 0 | LEA.L 0x208d4,A1 00021ea6 70 06 |p | MOVEQ.L #0x06,D0 00021ea8 10 d9 | | MOVE.B (A1)+,(A0)+ 00021eaa 51 c8 ff fc |Q | DBF D0,0x21ea8 00021eae 60 00 00 96 |` | BRA 0x21f46 00021eb2 switch@0x21e6e[0x1]: 00021eb2 3f 3a ea 2c |?: , | MOVE.W 0x208e0,-(A7) 00021eb6 3f 3a ea 26 |?: & | MOVE.W 0x208de,-(A7) 00021eba 3f 3a ea 20 |?: | MOVE.W 0x208dc,-(A7) 00021ebe 59 4f |YO | SUBQ.L #0x4,A7 00021ec0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021ec4 3f 01 |? | MOVE.W D1,-(A7) 00021ec6 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00021eca 4e 92 |N | JSR (A2) 00021ecc 50 4f |PO | ADDQ.L #0x8,A7 00021ece 2d 5f ff f2 |-_ | MOVE.L (A7)+,(A6-0xe) 00021ed2 55 4f |UO | SUBQ.L #0x2,A7 00021ed4 20 4f | O | MOVEA.L A7,A0 00021ed6 43 fa ea 0a |C | LEA.L 0x208e2,A1 00021eda 70 06 |p | MOVEQ.L #0x06,D0 00021edc 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ede 51 c8 ff fc |Q | DBF D0,0x21edc 00021ee2 60 62 |`b | BRA 0x21f46 00021ee4 switch@0x21e6e[0x2]: 00021ee4 3f 3a ea 08 |?: | MOVE.W 0x208ee,-(A7) 00021ee8 3f 3a ea 02 |?: | MOVE.W 0x208ec,-(A7) 00021eec 3f 3a e9 fc |?: | MOVE.W 0x208ea,-(A7) 00021ef0 59 4f |YO | SUBQ.L #0x4,A7 00021ef2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021ef6 3f 01 |? | MOVE.W D1,-(A7) 00021ef8 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00021efc 4e 92 |N | JSR (A2) 00021efe 50 4f |PO | ADDQ.L #0x8,A7 00021f00 2d 5f ff f2 |-_ | MOVE.L (A7)+,(A6-0xe) 00021f04 55 4f |UO | SUBQ.L #0x2,A7 00021f06 20 4f | O | MOVEA.L A7,A0 00021f08 43 fa e9 e6 |C | LEA.L 0x208f0,A1 00021f0c 70 06 |p | MOVEQ.L #0x06,D0 00021f0e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021f10 51 c8 ff fc |Q | DBF D0,0x21f0e 00021f14 60 30 |`0 | BRA 0x21f46 00021f16 switch@0x21e6e[0x3]: 00021f16 3f 3a e9 e4 |?: | MOVE.W 0x208fc,-(A7) 00021f1a 3f 3a e9 de |?: | MOVE.W 0x208fa,-(A7) 00021f1e 3f 3a e9 d8 |?: | MOVE.W 0x208f8,-(A7) 00021f22 59 4f |YO | SUBQ.L #0x4,A7 00021f24 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021f28 3f 01 |? | MOVE.W D1,-(A7) 00021f2a 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00021f2e 4e 92 |N | JSR (A2) 00021f30 50 4f |PO | ADDQ.L #0x8,A7 00021f32 2d 5f ff f2 |-_ | MOVE.L (A7)+,(A6-0xe) 00021f36 55 4f |UO | SUBQ.L #0x2,A7 00021f38 20 4f | O | MOVEA.L A7,A0 00021f3a 43 fa e9 c2 |C | LEA.L 0x208fe,A1 00021f3e 70 06 |p | MOVEQ.L #0x06,D0 00021f40 10 d9 | | MOVE.B (A1)+,(A0)+ 00021f42 51 c8 ff fc |Q | DBF D0,0x21f40 00021f46 59 4f |YO | SUBQ.L #0x4,A7 00021f48 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021f4c 3f 01 |? | MOVE.W D1,-(A7) 00021f4e 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00021f52 4e 92 |N | JSR (A2) 00021f54 50 4f |PO | ADDQ.L #0x8,A7 00021f56 2d 5f ff f6 |-_ | MOVE.L (A7)+,(A6-0xa) 00021f5a 50 4f |PO | ADDQ.L #0x8,A7 00021f5c 9e fc 00 46 | F | SUBA.W #0x46,A7 00021f60 20 4f | O | MOVEA.L A7,A0 00021f62 43 fa e8 fe |C | LEA.L 0x20862,A1 00021f66 70 44 |pD | MOVEQ.L #0x44,D0 00021f68 10 d9 | | MOVE.B (A1)+,(A0)+ 00021f6a 51 c8 ff fc |Q | DBF D0,0x21f68 00021f6e 51 4f |QO | SUBQ.L #0x8,A7 00021f70 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021f74 3f 01 |? | MOVE.W D1,-(A7) 00021f76 3f 3c 00 45 |?< E | MOVE.W #0x45,-(A7) 00021f7a 4e 92 |N | JSR (A2) 00021f7c 50 4f |PO | ADDQ.L #0x8,A7 00021f7e 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00021f84 58 4f |XO | ADDQ.L #0x4,A7 00021f86 28 5f |(_ | MOVEA.L (A7)+,A4 00021f88 de fc 00 46 | F | ADDA.W #0x46,A7 00021f8c 4a 54 |JT | TST.W (A4) 00021f8e 67 cc |g | BEQ 0x21f5c 00021f90 41 fa e9 3c |A < | LEA.L 0x208ce,A0 00021f94 70 12 |p | MOVEQ.L #0x12,D0 00021f96 3f 20 |? | MOVE.W -(A0),-(A7) 00021f98 51 c8 ff fc |Q | DBF D0,0x21f96 00021f9c 51 4f |QO | SUBQ.L #0x8,A7 00021f9e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021fa2 3f 01 |? | MOVE.W D1,-(A7) 00021fa4 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 00021fa8 4e 92 |N | JSR (A2) 00021faa 50 4f |PO | ADDQ.L #0x8,A7 00021fac 48 78 00 40 |Hx @ | PEA.L 0x40 00021fb0 48 78 01 00 |Hx | PEA.L 0x100 00021fb4 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00021fba de c5 | | ADDA.W D5,A7 00021fbc 2c 1f |, | MOVE.L (A7)+,D6 00021fbe de c3 | | ADDA.W D3,A7 00021fc0 3e 84 |> | MOVE.W D4,(A7) 00021fc2 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 00021fc6 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00021fcc 58 4f |XO | ADDQ.L #0x4,A7 00021fce 4e 93 |N | JSR (A3) 00021fd0 4a b9 00 02 39 86 |J 9 | TST.L 0x23986 00021fd6 66 76 |fv | BNE 0x2204e 00021fd8 3f 04 |? | MOVE.W D4,-(A7) 00021fda 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 00021fde 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00021fe4 54 4f |TO | ADDQ.L #0x2,A7 00021fe6 3e 84 |> | MOVE.W D4,(A7) 00021fe8 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 00021fec 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00021ff2 54 4f |TO | ADDQ.L #0x2,A7 00021ff4 3e 84 |> | MOVE.W D4,(A7) 00021ff6 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 00021ffa 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00022000 54 4f |TO | ADDQ.L #0x2,A7 00022002 3e 84 |> | MOVE.W D4,(A7) 00022004 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00022008 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 0002200e 58 4f |XO | ADDQ.L #0x4,A7 00022010 4e 93 |N | JSR (A3) 00022012 4a b9 00 02 39 86 |J 9 | TST.L 0x23986 00022018 66 34 |f4 | BNE 0x2204e 0002201a 41 fa e6 8c |A | LEA.L 0x206a8,A0 0002201e 70 0b |p | MOVEQ.L #0x0b,D0 00022020 2f 20 |/ | MOVE.L -(A0),-(A7) 00022022 51 c8 ff fc |Q | DBF D0,0x22020 00022026 59 4f |YO | SUBQ.L #0x4,A7 00022028 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002202c 3f 01 |? | MOVE.W D1,-(A7) 0002202e 3f 3c 00 30 |?< 0 | MOVE.W #0x30,-(A7) 00022032 4e 92 |N | JSR (A2) 00022034 50 4f |PO | ADDQ.L #0x8,A7 00022036 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002203c de fc 00 32 | 2 | ADDA.W #0x32,A7 00022040 1e 84 | | MOVE.B D4,(A7) 00022042 48 78 00 01 |Hx | PEA.L 0x1 00022046 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002204c 5c 4f |\O | ADDQ.L #0x6,A7 0002204e 41 fa e8 d0 |A | LEA.L 0x20920,A0 00022052 70 0c |p | MOVEQ.L #0x0c,D0 00022054 3f 20 |? | MOVE.W -(A0),-(A7) 00022056 51 c8 ff fc |Q | DBF D0,0x22054 0002205a 59 4f |YO | SUBQ.L #0x4,A7 0002205c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022060 3f 01 |? | MOVE.W D1,-(A7) 00022062 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 00022066 4e 92 |N | JSR (A2) 00022068 50 4f |PO | ADDQ.L #0x8,A7 0002206a 2d 5f ff ea |-_ | MOVE.L (A7)+,(A6-0x16) 0002206e de fc 00 16 | | ADDA.W #0x16,A7 00022072 2e ae ff ea |. | MOVE.L (A6-0x16),(A7) 00022076 4e ba ef 58 |N X | JSR 0x20fd0 0002207a 58 4f |XO | ADDQ.L #0x4,A7 0002207c 4e 93 |N | JSR (A3) 0002207e 55 4f |UO | SUBQ.L #0x2,A7 00022080 4e ba f1 f4 |N | JSR 0x21276 00022084 4a 1f |J | TST.B (A7)+ 00022086 67 2e |g. | BEQ 0x220b6 00022088 9e c2 | | SUBA.W D2,A7 0002208a 20 4f | O | MOVEA.L A7,A0 0002208c 43 fa e7 44 |C D | LEA.L 0x207d2,A1 00022090 70 0c |p | MOVEQ.L #0x0c,D0 00022092 10 d9 | | MOVE.B (A1)+,(A0)+ 00022094 51 c8 ff fc |Q | DBF D0,0x22092 00022098 59 4f |YO | SUBQ.L #0x4,A7 0002209a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002209e 3f 01 |? | MOVE.W D1,-(A7) 000220a0 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 000220a4 4e 92 |N | JSR (A2) 000220a6 50 4f |PO | ADDQ.L #0x8,A7 000220a8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000220ae de fc 00 12 | | ADDA.W #0x12,A7 000220b2 60 00 04 62 |` b | BRA 0x22516 000220b6 4a 2e 00 08 |J. | TST.B (A6+0x8) 000220ba 66 0e |f | BNE 0x220ca 000220bc 41 fa e8 86 |A | LEA.L 0x20944,A0 000220c0 70 08 |p | MOVEQ.L #0x08,D0 000220c2 2f 20 |/ | MOVE.L -(A0),-(A7) 000220c4 51 c8 ff fc |Q | DBF D0,0x220c2 000220c8 60 0c |` | BRA 0x220d6 000220ca 41 fa e8 9c |A | LEA.L 0x20968,A0 000220ce 70 08 |p | MOVEQ.L #0x08,D0 000220d0 2f 20 |/ | MOVE.L -(A0),-(A7) 000220d2 51 c8 ff fc |Q | DBF D0,0x220d0 000220d6 59 4f |YO | SUBQ.L #0x4,A7 000220d8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000220dc 3f 01 |? | MOVE.W D1,-(A7) 000220de 3f 03 |? | MOVE.W D3,-(A7) 000220e0 4e 92 |N | JSR (A2) 000220e2 50 4f |PO | ADDQ.L #0x8,A7 000220e4 2d 5f ff ea |-_ | MOVE.L (A7)+,(A6-0x16) 000220e8 de c3 | | ADDA.W D3,A7 000220ea 2f 2e ff ea |/. | MOVE.L (A6-0x16),-(A7) 000220ee 4e ba ee e0 |N | JSR 0x20fd0 000220f2 58 4f |XO | ADDQ.L #0x4,A7 000220f4 4e 93 |N | JSR (A3) 000220f6 55 4f |UO | SUBQ.L #0x2,A7 000220f8 4e ba f3 1e |N | JSR 0x21418 000220fc 4a 1f |J | TST.B (A7)+ 000220fe 67 2e |g. | BEQ 0x2212e 00022100 9e c5 | | SUBA.W D5,A7 00022102 20 4f | O | MOVEA.L A7,A0 00022104 43 fa e6 24 |C $ | LEA.L 0x2072a,A1 00022108 70 0a |p | MOVEQ.L #0x0a,D0 0002210a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002210c 51 c8 ff fc |Q | DBF D0,0x2210a 00022110 59 4f |YO | SUBQ.L #0x4,A7 00022112 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022116 3f 01 |? | MOVE.W D1,-(A7) 00022118 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 0002211c 4e 92 |N | JSR (A2) 0002211e 50 4f |PO | ADDQ.L #0x8,A7 00022120 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022126 de fc 00 10 | | ADDA.W #0x10,A7 0002212a 60 00 03 ea |` | BRA 0x22516 0002212e 41 fa e8 52 |A R | LEA.L 0x20982,A0 00022132 70 0c |p | MOVEQ.L #0x0c,D0 00022134 3f 20 |? | MOVE.W -(A0),-(A7) 00022136 51 c8 ff fc |Q | DBF D0,0x22134 0002213a 59 4f |YO | SUBQ.L #0x4,A7 0002213c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022140 3f 01 |? | MOVE.W D1,-(A7) 00022142 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 00022146 4e 92 |N | JSR (A2) 00022148 50 4f |PO | ADDQ.L #0x8,A7 0002214a 2d 5f ff ea |-_ | MOVE.L (A7)+,(A6-0x16) 0002214e de fc 00 16 | | ADDA.W #0x16,A7 00022152 2e ae ff ea |. | MOVE.L (A6-0x16),(A7) 00022156 4e ba ee 78 |N x | JSR 0x20fd0 0002215a 58 4f |XO | ADDQ.L #0x4,A7 0002215c 4e 93 |N | JSR (A3) 0002215e 55 4f |UO | SUBQ.L #0x2,A7 00022160 4e ba f1 14 |N | JSR 0x21276 00022164 4a 1f |J | TST.B (A7)+ 00022166 67 14 |g | BEQ 0x2217c 00022168 9e c2 | | SUBA.W D2,A7 0002216a 20 4f | O | MOVEA.L A7,A0 0002216c 43 fa e6 64 |C d | LEA.L 0x207d2,A1 00022170 70 0c |p | MOVEQ.L #0x0c,D0 00022172 10 d9 | | MOVE.B (A1)+,(A0)+ 00022174 51 c8 ff fc |Q | DBF D0,0x22172 00022178 60 00 ff 1e |` | BRA 0x22098 0002217c 48 6e ff ea |Hn | PEA.L (A6-0x16) 00022180 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022186 58 4f |XO | ADDQ.L #0x4,A7 00022188 4a 2e 00 08 |J. | TST.B (A6+0x8) 0002218c 66 0e |f | BNE 0x2219c 0002218e 41 fa e7 fc |A | LEA.L 0x2098c,A0 00022192 70 04 |p | MOVEQ.L #0x04,D0 00022194 3f 20 |? | MOVE.W -(A0),-(A7) 00022196 51 c8 ff fc |Q | DBF D0,0x22194 0002219a 60 0c |` | BRA 0x221a8 0002219c 41 fa e7 f8 |A | LEA.L 0x20996,A0 000221a0 70 04 |p | MOVEQ.L #0x04,D0 000221a2 3f 20 |? | MOVE.W -(A0),-(A7) 000221a4 51 c8 ff fc |Q | DBF D0,0x221a2 000221a8 59 4f |YO | SUBQ.L #0x4,A7 000221aa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000221ae 3f 01 |? | MOVE.W D1,-(A7) 000221b0 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000221b4 4e 92 |N | JSR (A2) 000221b6 50 4f |PO | ADDQ.L #0x8,A7 000221b8 2d 5f ff ea |-_ | MOVE.L (A7)+,(A6-0x16) 000221bc de fc 00 0a | | ADDA.W #0xa,A7 000221c0 2f 3a e7 d4 |/: | MOVE.L 0x20996,-(A7) 000221c4 9e fc 00 1a | | SUBA.W #0x1a,A7 000221c8 20 4f | O | MOVEA.L A7,A0 000221ca 43 fa e7 ce |C | LEA.L 0x2099a,A1 000221ce 70 18 |p | MOVEQ.L #0x18,D0 000221d0 10 d9 | | MOVE.B (A1)+,(A0)+ 000221d2 51 c8 ff fc |Q | DBF D0,0x221d0 000221d6 59 4f |YO | SUBQ.L #0x4,A7 000221d8 2f 2e ff ea |/. | MOVE.L (A6-0x16),-(A7) 000221dc 59 4f |YO | SUBQ.L #0x4,A7 000221de 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 000221e2 3f 01 |? | MOVE.W D1,-(A7) 000221e4 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 000221e8 4e 92 |N | JSR (A2) 000221ea 2e 86 |. | MOVE.L D6,(A7) 000221ec 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000221f2 2f 2e ff f2 |/. | MOVE.L (A6-0xe),-(A7) 000221f6 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000221fc 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00022200 3f 01 |? | MOVE.W D1,-(A7) 00022202 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00022206 4e 92 |N | JSR (A2) 00022208 50 4f |PO | ADDQ.L #0x8,A7 0002220a 4e b9 00 01 02 dc |N | JSR StringCat5(a, b, c, d, e : String) : String 00022210 de fc 00 14 | | ADDA.W #0x14,A7 00022214 2d 5f ff ea |-_ | MOVE.L (A7)+,(A6-0x16) 00022218 de fc 00 1a | | ADDA.W #0x1a,A7 0002221c 2e ae ff ea |. | MOVE.L (A6-0x16),(A7) 00022220 4e ba ed ae |N | JSR 0x20fd0 00022224 58 4f |XO | ADDQ.L #0x4,A7 00022226 4e 93 |N | JSR (A3) 00022228 55 4f |UO | SUBQ.L #0x2,A7 0002222a 4e ba f0 4a |N J | JSR 0x21276 0002222e 4a 1f |J | TST.B (A7)+ 00022230 67 14 |g | BEQ 0x22246 00022232 9e c2 | | SUBA.W D2,A7 00022234 20 4f | O | MOVEA.L A7,A0 00022236 43 fa e5 9a |C | LEA.L 0x207d2,A1 0002223a 70 0c |p | MOVEQ.L #0x0c,D0 0002223c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002223e 51 c8 ff fc |Q | DBF D0,0x2223c 00022242 60 00 fe 54 |` T | BRA 0x22098 00022246 48 6e ff ea |Hn | PEA.L (A6-0x16) 0002224a 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022250 55 4f |UO | SUBQ.L #0x2,A7 00022252 20 4f | O | MOVEA.L A7,A0 00022254 43 fa e7 5e |C ^ | LEA.L 0x209b4,A1 00022258 70 04 |p | MOVEQ.L #0x04,D0 0002225a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002225c 51 c8 ff fc |Q | DBF D0,0x2225a 00022260 41 fa e7 78 |A x | LEA.L 0x209da,A0 00022264 70 07 |p | MOVEQ.L #0x07,D0 00022266 2f 20 |/ | MOVE.L -(A0),-(A7) 00022268 51 c8 ff fc |Q | DBF D0,0x22266 0002226c 59 4f |YO | SUBQ.L #0x4,A7 0002226e 2f 2e ff ea |/. | MOVE.L (A6-0x16),-(A7) 00022272 59 4f |YO | SUBQ.L #0x4,A7 00022274 48 6f 00 2c |Ho , | PEA.L (A7+0x2c) 00022278 3f 01 |? | MOVE.W D1,-(A7) 0002227a 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 0002227e 4e 92 |N | JSR (A2) 00022280 2e ae ff f2 |. | MOVE.L (A6-0xe),(A7) 00022284 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 0002228a 48 6f 00 14 |Ho | PEA.L (A7+0x14) 0002228e 3f 01 |? | MOVE.W D1,-(A7) 00022290 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00022294 4e 92 |N | JSR (A2) 00022296 50 4f |PO | ADDQ.L #0x8,A7 00022298 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 0002229e de fc 00 10 | | ADDA.W #0x10,A7 000222a2 2d 5f ff ea |-_ | MOVE.L (A7)+,(A6-0x16) 000222a6 de fc 00 22 | " | ADDA.W #0x22,A7 000222aa 2e ae ff ea |. | MOVE.L (A6-0x16),(A7) 000222ae 4e ba ed 20 |N | JSR 0x20fd0 000222b2 58 4f |XO | ADDQ.L #0x4,A7 000222b4 4e 93 |N | JSR (A3) 000222b6 55 4f |UO | SUBQ.L #0x2,A7 000222b8 4e ba ef bc |N | JSR 0x21276 000222bc 4a 1f |J | TST.B (A7)+ 000222be 67 14 |g | BEQ 0x222d4 000222c0 9e c2 | | SUBA.W D2,A7 000222c2 20 4f | O | MOVEA.L A7,A0 000222c4 43 fa e5 1a |C | LEA.L 0x207e0,A1 000222c8 70 0c |p | MOVEQ.L #0x0c,D0 000222ca 10 d9 | | MOVE.B (A1)+,(A0)+ 000222cc 51 c8 ff fc |Q | DBF D0,0x222ca 000222d0 60 00 fd c6 |` | BRA 0x22098 000222d4 48 6e ff ea |Hn | PEA.L (A6-0x16) 000222d8 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000222de 58 4f |XO | ADDQ.L #0x4,A7 000222e0 41 fa e7 06 |A | LEA.L 0x209e8,A0 000222e4 70 06 |p | MOVEQ.L #0x06,D0 000222e6 3f 20 |? | MOVE.W -(A0),-(A7) 000222e8 51 c8 ff fc |Q | DBF D0,0x222e6 000222ec 9e c2 | | SUBA.W D2,A7 000222ee 20 4f | O | MOVEA.L A7,A0 000222f0 43 fa e6 f6 |C | LEA.L 0x209e8,A1 000222f4 70 0c |p | MOVEQ.L #0x0c,D0 000222f6 10 d9 | | MOVE.B (A1)+,(A0)+ 000222f8 51 c8 ff fc |Q | DBF D0,0x222f6 000222fc 59 4f |YO | SUBQ.L #0x4,A7 000222fe 2f 2e ff ea |/. | MOVE.L (A6-0x16),-(A7) 00022302 59 4f |YO | SUBQ.L #0x4,A7 00022304 48 6f 00 1a |Ho | PEA.L (A7+0x1a) 00022308 3f 01 |? | MOVE.W D1,-(A7) 0002230a 3f 02 |? | MOVE.W D2,-(A7) 0002230c 4e 92 |N | JSR (A2) 0002230e 2e 86 |. | MOVE.L D6,(A7) 00022310 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022316 2f 2e ff f2 |/. | MOVE.L (A6-0xe),-(A7) 0002231a 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022320 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00022324 3f 01 |? | MOVE.W D1,-(A7) 00022326 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 0002232a 4e 92 |N | JSR (A2) 0002232c 2e 86 |. | MOVE.L D6,(A7) 0002232e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022334 58 4f |XO | ADDQ.L #0x4,A7 00022336 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 0002233c de fc 00 18 | | ADDA.W #0x18,A7 00022340 2d 5f ff ea |-_ | MOVE.L (A7)+,(A6-0x16) 00022344 de fc 00 18 | | ADDA.W #0x18,A7 00022348 2e ae ff ea |. | MOVE.L (A6-0x16),(A7) 0002234c 4e ba ec 82 |N | JSR 0x20fd0 00022350 58 4f |XO | ADDQ.L #0x4,A7 00022352 4e 93 |N | JSR (A3) 00022354 55 4f |UO | SUBQ.L #0x2,A7 00022356 4e ba ef 1e |N | JSR 0x21276 0002235a 4a 1f |J | TST.B (A7)+ 0002235c 67 14 |g | BEQ 0x22372 0002235e 9e c2 | | SUBA.W D2,A7 00022360 20 4f | O | MOVEA.L A7,A0 00022362 43 fa e4 8a |C | LEA.L 0x207ee,A1 00022366 70 0c |p | MOVEQ.L #0x0c,D0 00022368 10 d9 | | MOVE.B (A1)+,(A0)+ 0002236a 51 c8 ff fc |Q | DBF D0,0x22368 0002236e 60 00 fd 28 |` ( | BRA 0x22098 00022372 48 6e ff ea |Hn | PEA.L (A6-0x16) 00022376 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002237c 55 4f |UO | SUBQ.L #0x2,A7 0002237e 20 4f | O | MOVEA.L A7,A0 00022380 43 fa e6 74 |C t | LEA.L 0x209f6,A1 00022384 70 04 |p | MOVEQ.L #0x04,D0 00022386 10 d9 | | MOVE.B (A1)+,(A0)+ 00022388 51 c8 ff fc |Q | DBF D0,0x22386 0002238c 2f 3a e6 6e |/: n | MOVE.L 0x209fc,-(A7) 00022390 41 fa e6 78 |A x | LEA.L 0x20a0a,A0 00022394 70 04 |p | MOVEQ.L #0x04,D0 00022396 3f 20 |? | MOVE.W -(A0),-(A7) 00022398 51 c8 ff fc |Q | DBF D0,0x22396 0002239c 59 4f |YO | SUBQ.L #0x4,A7 0002239e 2f 2e ff ea |/. | MOVE.L (A6-0x16),-(A7) 000223a2 59 4f |YO | SUBQ.L #0x4,A7 000223a4 48 6f 00 1a |Ho | PEA.L (A7+0x1a) 000223a8 3f 01 |? | MOVE.W D1,-(A7) 000223aa 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 000223ae 4e 92 |N | JSR (A2) 000223b0 2f 2e ff f2 |/. | MOVE.L (A6-0xe),-(A7) 000223b4 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000223ba 2f 2e ff f6 |/. | MOVE.L (A6-0xa),-(A7) 000223be 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000223c4 58 4f |XO | ADDQ.L #0x4,A7 000223c6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000223cc 48 6f 00 22 |Ho " | PEA.L (A7+0x22) 000223d0 3f 01 |? | MOVE.W D1,-(A7) 000223d2 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 000223d6 4e 92 |N | JSR (A2) 000223d8 58 4f |XO | ADDQ.L #0x4,A7 000223da 2e 8c |. | MOVE.L A4,(A7) 000223dc 59 4f |YO | SUBQ.L #0x4,A7 000223de 48 6f 00 20 |Ho | PEA.L (A7+0x20) 000223e2 3f 01 |? | MOVE.W D1,-(A7) 000223e4 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000223e8 4e 92 |N | JSR (A2) 000223ea 50 4f |PO | ADDQ.L #0x8,A7 000223ec 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000223f2 de c5 | | ADDA.W D5,A7 000223f4 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 000223fa de fc 00 10 | | ADDA.W #0x10,A7 000223fe 2d 5f ff ea |-_ | MOVE.L (A7)+,(A6-0x16) 00022402 de fc 00 10 | | ADDA.W #0x10,A7 00022406 2e ae ff ea |. | MOVE.L (A6-0x16),(A7) 0002240a 4e ba eb c4 |N | JSR 0x20fd0 0002240e 58 4f |XO | ADDQ.L #0x4,A7 00022410 4e 93 |N | JSR (A3) 00022412 55 4f |UO | SUBQ.L #0x2,A7 00022414 4e ba ee 60 |N ` | JSR 0x21276 00022418 4a 1f |J | TST.B (A7)+ 0002241a 67 56 |gV | BEQ 0x22472 0002241c 9e fc 00 40 | @ | SUBA.W #0x40,A7 00022420 20 4f | O | MOVEA.L A7,A0 00022422 43 fa e2 84 |C | LEA.L 0x206a8,A1 00022426 70 3e |p> | MOVEQ.L #0x3e,D0 00022428 10 d9 | | MOVE.B (A1)+,(A0)+ 0002242a 51 c8 ff fc |Q | DBF D0,0x22428 0002242e 59 4f |YO | SUBQ.L #0x4,A7 00022430 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022434 3f 01 |? | MOVE.W D1,-(A7) 00022436 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 0002243a 4e 92 |N | JSR (A2) 0002243c 50 4f |PO | ADDQ.L #0x8,A7 0002243e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022444 de fc 00 44 | D | ADDA.W #0x44,A7 00022448 41 fa e2 e0 |A | LEA.L 0x2072a,A0 0002244c 70 20 |p | MOVEQ.L #0x20,D0 0002244e 3f 20 |? | MOVE.W -(A0),-(A7) 00022450 51 c8 ff fc |Q | DBF D0,0x2244e 00022454 59 4f |YO | SUBQ.L #0x4,A7 00022456 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002245a 3f 01 |? | MOVE.W D1,-(A7) 0002245c 3f 3c 00 42 |?< B | MOVE.W #0x42,-(A7) 00022460 4e 92 |N | JSR (A2) 00022462 50 4f |PO | ADDQ.L #0x8,A7 00022464 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002246a de fc 00 46 | F | ADDA.W #0x46,A7 0002246e 60 00 01 1c |` | BRA 0x2258c 00022472 9e c2 | | SUBA.W D2,A7 00022474 20 4f | O | MOVEA.L A7,A0 00022476 43 fa e5 92 |C | LEA.L 0x20a0a,A1 0002247a 70 0c |p | MOVEQ.L #0x0c,D0 0002247c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002247e 51 c8 ff fc |Q | DBF D0,0x2247c 00022482 59 4f |YO | SUBQ.L #0x4,A7 00022484 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022488 3f 01 |? | MOVE.W D1,-(A7) 0002248a 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 0002248e 4e 92 |N | JSR (A2) 00022490 50 4f |PO | ADDQ.L #0x8,A7 00022492 2d 5f ff ea |-_ | MOVE.L (A7)+,(A6-0x16) 00022496 de fc 00 0a | | ADDA.W #0xa,A7 0002249a 2e ae ff ea |. | MOVE.L (A6-0x16),(A7) 0002249e 4e ba eb 30 |N 0 | JSR 0x20fd0 000224a2 2e bc 00 02 fa ee |. | MOVE.L #0x2faee,(A7) 000224a8 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 000224ae 58 4f |XO | ADDQ.L #0x4,A7 000224b0 4e 93 |N | JSR (A3) 000224b2 55 4f |UO | SUBQ.L #0x2,A7 000224b4 4e ba ef 62 |N b | JSR 0x21418 000224b8 4a 1f |J | TST.B (A7)+ 000224ba 67 14 |g | BEQ 0x224d0 000224bc 9e c5 | | SUBA.W D5,A7 000224be 20 4f | O | MOVEA.L A7,A0 000224c0 43 fa e3 3a |C : | LEA.L 0x207fc,A1 000224c4 70 0a |p | MOVEQ.L #0x0a,D0 000224c6 10 d9 | | MOVE.B (A1)+,(A0)+ 000224c8 51 c8 ff fc |Q | DBF D0,0x224c6 000224cc 60 00 fc 42 |` B | BRA 0x22110 000224d0 9e fc 00 2a | * | SUBA.W #0x2a,A7 000224d4 20 4f | O | MOVEA.L A7,A0 000224d6 43 fa e5 40 |C @ | LEA.L 0x20a18,A1 000224da 70 28 |p( | MOVEQ.L #0x28,D0 000224dc 10 d9 | | MOVE.B (A1)+,(A0)+ 000224de 51 c8 ff fc |Q | DBF D0,0x224dc 000224e2 59 4f |YO | SUBQ.L #0x4,A7 000224e4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000224e8 3f 01 |? | MOVE.W D1,-(A7) 000224ea 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 000224ee 4e 92 |N | JSR (A2) 000224f0 50 4f |PO | ADDQ.L #0x8,A7 000224f2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000224f8 de fc 00 2e | . | ADDA.W #0x2e,A7 000224fc 48 6e ff f2 |Hn | PEA.L (A6-0xe) 00022500 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022506 58 4f |XO | ADDQ.L #0x4,A7 00022508 48 6e ff f6 |Hn | PEA.L (A6-0xa) 0002250c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022512 58 4f |XO | ADDQ.L #0x4,A7 00022514 60 76 |`v | BRA 0x2258c 00022516 9e fc 00 40 | @ | SUBA.W #0x40,A7 0002251a 20 4f | O | MOVEA.L A7,A0 0002251c 43 fa e2 18 |C | LEA.L 0x20736,A1 00022520 70 3e |p> | MOVEQ.L #0x3e,D0 00022522 10 d9 | | MOVE.B (A1)+,(A0)+ 00022524 51 c8 ff fc |Q | DBF D0,0x22522 00022528 59 4f |YO | SUBQ.L #0x4,A7 0002252a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002252e 3f 01 |? | MOVE.W D1,-(A7) 00022530 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 00022534 4e 92 |N | JSR (A2) 00022536 50 4f |PO | ADDQ.L #0x8,A7 00022538 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002253e de fc 00 44 | D | ADDA.W #0x44,A7 00022542 41 fa e2 6e |A n | LEA.L 0x207b2,A0 00022546 70 0e |p | MOVEQ.L #0x0e,D0 00022548 2f 20 |/ | MOVE.L -(A0),-(A7) 0002254a 51 c8 ff fc |Q | DBF D0,0x22548 0002254e 59 4f |YO | SUBQ.L #0x4,A7 00022550 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022554 3f 01 |? | MOVE.W D1,-(A7) 00022556 3f 3c 00 3c |?< < | MOVE.W #0x3c,-(A7) 0002255a 4e 92 |N | JSR (A2) 0002255c 50 4f |PO | ADDQ.L #0x8,A7 0002255e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022564 de fc 00 40 | @ | ADDA.W #0x40,A7 00022568 41 fa e2 68 |A h | LEA.L 0x207d2,A0 0002256c 70 07 |p | MOVEQ.L #0x07,D0 0002256e 2f 20 |/ | MOVE.L -(A0),-(A7) 00022570 51 c8 ff fc |Q | DBF D0,0x2256e 00022574 59 4f |YO | SUBQ.L #0x4,A7 00022576 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002257a 3f 01 |? | MOVE.W D1,-(A7) 0002257c 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00022580 4e 92 |N | JSR (A2) 00022582 50 4f |PO | ADDQ.L #0x8,A7 00022584 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002258a de c3 | | ADDA.W D3,A7 0002258c 4e ba ea 18 |N | JSR 0x20fa6 00022590 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022594 4e 5e |N^ | UNLK A6 00022596 4e 75 |Nu | RTS 00022598 ; -------------------------------------------------------------------------------------- 00022598 ; OMSI PASCAL Function 00022598 ; <LVAR -0x004 @ 4(rw)> 00022598 ; <LVAR -0x008 @ 4(rw)> 00022598 ; <LVAR -0x010 @ 4(rw)> 00022598 ; -------------------------------------------------------------------------------------- 00022598 4e 56 ff 42 |NV B | LINK.W A6,#0xff42 0002259c bf d5 | | CMPA.L (A5),A7 0002259e 62 06 |b | BHI 0x225a6 000225a0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000225a4 4e 76 |Nv | TRAPV 000225a6 de fc 00 aa | | ADDA.W #0xaa,A7 000225aa 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000225ae 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000225b4 47 ee ff f8 |G | LEA.L (A6-0x8),A3 000225b8 72 01 |r | MOVEQ.L #0x01,D1 000225ba 74 10 |t | MOVEQ.L #0x10,D2 000225bc 76 02 |v | MOVEQ.L #0x02,D3 000225be 78 0c |x | MOVEQ.L #0x0c,D4 000225c0 7a 06 |z | MOVEQ.L #0x06,D5 000225c2 7c 36 ||6 | MOVEQ.L #0x36,D6 000225c4 9e c6 | | SUBA.W D6,A7 000225c6 20 4f | O | MOVEA.L A7,A0 000225c8 43 fa e6 18 |C | LEA.L 0x20be2,A1 000225cc 70 34 |p4 | MOVEQ.L #0x34,D0 000225ce 10 d9 | | MOVE.B (A1)+,(A0)+ 000225d0 51 c8 ff fc |Q | DBF D0,0x225ce 000225d4 51 4f |QO | SUBQ.L #0x8,A7 000225d6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000225da 3f 01 |? | MOVE.W D1,-(A7) 000225dc 3f 3c 00 35 |?< 5 | MOVE.W #0x35,-(A7) 000225e0 4e 92 |N | JSR (A2) 000225e2 50 4f |PO | ADDQ.L #0x8,A7 000225e4 48 78 00 02 |Hx | PEA.L 0x2 000225e8 48 78 00 05 |Hx | PEA.L 0x5 000225ec 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000225f2 de c4 | | ADDA.W D4,A7 000225f4 2e 1f |. | MOVE.L (A7)+,D7 000225f6 de c6 | | ADDA.W D6,A7 000225f8 20 07 | | MOVE.L D7,D0 000225fa 55 80 |U | SUBQ.L #0x2,D0 000225fc 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0 00022602 63 02 |c | BLS 0x22606 00022604 4e 4e |NN | TRAP #14 00022606 d0 40 | @ | ADD.W D0,D0 00022608 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00022610 00 08 | | .CONST 0x8 ; [0x0] -> 0x22618 00022612 00 38 | 8 | .CONST 0x38 ; [0x1] -> 0x22648 00022614 00 66 | f | .CONST 0x66 ; [0x2] -> 0x22676 00022616 00 94 | | .CONST 0x94 ; [0x3] -> 0x226a4 00022618 switch@0x22608[0x0]: 00022618 3f 3a e6 64 |?: d | MOVE.W 0x20c7e,-(A7) 0002261c 3f 3a e6 5e |?: ^ | MOVE.W 0x20c7c,-(A7) 00022620 3f 3a e6 58 |?: X | MOVE.W 0x20c7a,-(A7) 00022624 59 4f |YO | SUBQ.L #0x4,A7 00022626 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002262a 3f 01 |? | MOVE.W D1,-(A7) 0002262c 3f 05 |? | MOVE.W D5,-(A7) 0002262e 4e 92 |N | JSR (A2) 00022630 50 4f |PO | ADDQ.L #0x8,A7 00022632 26 9f |& | MOVE.L (A7)+,(A3) 00022634 55 4f |UO | SUBQ.L #0x2,A7 00022636 20 4f | O | MOVEA.L A7,A0 00022638 43 fa e6 46 |C F | LEA.L 0x20c80,A1 0002263c 70 06 |p | MOVEQ.L #0x06,D0 0002263e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022640 51 c8 ff fc |Q | DBF D0,0x2263e 00022644 60 00 00 8a |` | BRA 0x226d0 00022648 switch@0x22608[0x1]: 00022648 3f 3a e6 42 |?: B | MOVE.W 0x20c8c,-(A7) 0002264c 3f 3a e6 3c |?: < | MOVE.W 0x20c8a,-(A7) 00022650 3f 3a e6 36 |?: 6 | MOVE.W 0x20c88,-(A7) 00022654 59 4f |YO | SUBQ.L #0x4,A7 00022656 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002265a 3f 01 |? | MOVE.W D1,-(A7) 0002265c 3f 05 |? | MOVE.W D5,-(A7) 0002265e 4e 92 |N | JSR (A2) 00022660 50 4f |PO | ADDQ.L #0x8,A7 00022662 26 9f |& | MOVE.L (A7)+,(A3) 00022664 55 4f |UO | SUBQ.L #0x2,A7 00022666 20 4f | O | MOVEA.L A7,A0 00022668 43 fa e6 24 |C $ | LEA.L 0x20c8e,A1 0002266c 70 06 |p | MOVEQ.L #0x06,D0 0002266e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022670 51 c8 ff fc |Q | DBF D0,0x2266e 00022674 60 5a |`Z | BRA 0x226d0 00022676 switch@0x22608[0x2]: 00022676 3f 3a e6 22 |?: " | MOVE.W 0x20c9a,-(A7) 0002267a 3f 3a e6 1c |?: | MOVE.W 0x20c98,-(A7) 0002267e 3f 3a e6 16 |?: | MOVE.W 0x20c96,-(A7) 00022682 59 4f |YO | SUBQ.L #0x4,A7 00022684 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022688 3f 01 |? | MOVE.W D1,-(A7) 0002268a 3f 05 |? | MOVE.W D5,-(A7) 0002268c 4e 92 |N | JSR (A2) 0002268e 50 4f |PO | ADDQ.L #0x8,A7 00022690 26 9f |& | MOVE.L (A7)+,(A3) 00022692 55 4f |UO | SUBQ.L #0x2,A7 00022694 20 4f | O | MOVEA.L A7,A0 00022696 43 fa e6 04 |C | LEA.L 0x20c9c,A1 0002269a 70 06 |p | MOVEQ.L #0x06,D0 0002269c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002269e 51 c8 ff fc |Q | DBF D0,0x2269c 000226a2 60 2c |`, | BRA 0x226d0 000226a4 switch@0x22608[0x3]: 000226a4 3f 3a e6 02 |?: | MOVE.W 0x20ca8,-(A7) 000226a8 3f 3a e5 fc |?: | MOVE.W 0x20ca6,-(A7) 000226ac 3f 3a e5 f6 |?: | MOVE.W 0x20ca4,-(A7) 000226b0 59 4f |YO | SUBQ.L #0x4,A7 000226b2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000226b6 3f 01 |? | MOVE.W D1,-(A7) 000226b8 3f 05 |? | MOVE.W D5,-(A7) 000226ba 4e 92 |N | JSR (A2) 000226bc 50 4f |PO | ADDQ.L #0x8,A7 000226be 26 9f |& | MOVE.L (A7)+,(A3) 000226c0 55 4f |UO | SUBQ.L #0x2,A7 000226c2 20 4f | O | MOVEA.L A7,A0 000226c4 43 fa e5 e4 |C | LEA.L 0x20caa,A1 000226c8 70 06 |p | MOVEQ.L #0x06,D0 000226ca 10 d9 | | MOVE.B (A1)+,(A0)+ 000226cc 51 c8 ff fc |Q | DBF D0,0x226ca 000226d0 59 4f |YO | SUBQ.L #0x4,A7 000226d2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000226d6 3f 01 |? | MOVE.W D1,-(A7) 000226d8 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 000226dc 4e 92 |N | JSR (A2) 000226de 50 4f |PO | ADDQ.L #0x8,A7 000226e0 2d 5f ff fc |-_ | MOVE.L (A7)+,(A6-0x4) 000226e4 50 4f |PO | ADDQ.L #0x8,A7 000226e6 42 39 00 02 31 80 |B9 1 | CLR.B 0x23180 000226ec 4e b9 00 01 02 16 |N | JSR KC0b 000226f2 4e ba e9 5a |N Z | JSR 0x2104e 000226f6 9e fc 00 24 | $ | SUBA.W #0x24,A7 000226fa 20 4f | O | MOVEA.L A7,A0 000226fc 43 fa e5 1a |C | LEA.L 0x20c18,A1 00022700 70 22 |p" | MOVEQ.L #0x22,D0 00022702 10 d9 | | MOVE.B (A1)+,(A0)+ 00022704 51 c8 ff fc |Q | DBF D0,0x22702 00022708 5d 4f |]O | SUBQ.L #0x6,A7 0002270a 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002270e 3f 01 |? | MOVE.W D1,-(A7) 00022710 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 00022714 4e 92 |N | JSR (A2) 00022716 5c 4f |\O | ADDQ.L #0x6,A7 00022718 42 17 |B | CLR.B (A7) 0002271a 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00022720 5c 4f |\O | ADDQ.L #0x6,A7 00022722 10 1f | | MOVE.B (A7)+,D0 00022724 48 80 |H | EXTB.W D0 00022726 41 81 |A | CHK.W D1,D0 00022728 de fc 00 24 | $ | ADDA.W #0x24,A7 0002272c 13 c0 00 02 31 80 | 1 | MOVE.B D0,0x23180 00022732 3f 03 |? | MOVE.W D3,-(A7) 00022734 3f 02 |? | MOVE.W D2,-(A7) 00022736 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 0002273c 58 4f |XO | ADDQ.L #0x4,A7 0002273e 4e ba e9 0e |N | JSR 0x2104e 00022742 4a b9 00 02 39 86 |J 9 | TST.L 0x23986 00022748 66 78 |fx | BNE 0x227c2 0002274a 3f 03 |? | MOVE.W D3,-(A7) 0002274c 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 00022750 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00022756 54 4f |TO | ADDQ.L #0x2,A7 00022758 3e 83 |> | MOVE.W D3,(A7) 0002275a 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 0002275e 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00022764 54 4f |TO | ADDQ.L #0x2,A7 00022766 3e 83 |> | MOVE.W D3,(A7) 00022768 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 0002276c 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00022772 54 4f |TO | ADDQ.L #0x2,A7 00022774 3e 83 |> | MOVE.W D3,(A7) 00022776 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 0002277a 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00022780 58 4f |XO | ADDQ.L #0x4,A7 00022782 4e ba e8 ca |N | JSR 0x2104e 00022786 4a b9 00 02 39 86 |J 9 | TST.L 0x23986 0002278c 66 34 |f4 | BNE 0x227c2 0002278e 41 fa e2 e2 |A | LEA.L 0x20a72,A0 00022792 70 0b |p | MOVEQ.L #0x0b,D0 00022794 2f 20 |/ | MOVE.L -(A0),-(A7) 00022796 51 c8 ff fc |Q | DBF D0,0x22794 0002279a 59 4f |YO | SUBQ.L #0x4,A7 0002279c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000227a0 3f 01 |? | MOVE.W D1,-(A7) 000227a2 3f 3c 00 30 |?< 0 | MOVE.W #0x30,-(A7) 000227a6 4e 92 |N | JSR (A2) 000227a8 50 4f |PO | ADDQ.L #0x8,A7 000227aa 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000227b0 de fc 00 32 | 2 | ADDA.W #0x32,A7 000227b4 1e 83 | | MOVE.B D3,(A7) 000227b6 48 78 00 01 |Hx | PEA.L 0x1 000227ba 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000227c0 5c 4f |\O | ADDQ.L #0x6,A7 000227c2 9e fc 00 3e | > | SUBA.W #0x3e,A7 000227c6 20 4f | O | MOVEA.L A7,A0 000227c8 43 fa e4 72 |C r | LEA.L 0x20c3c,A1 000227cc 70 3c |p< | MOVEQ.L #0x3c,D0 000227ce 10 d9 | | MOVE.B (A1)+,(A0)+ 000227d0 51 c8 ff fc |Q | DBF D0,0x227ce 000227d4 51 4f |QO | SUBQ.L #0x8,A7 000227d6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000227da 3f 01 |? | MOVE.W D1,-(A7) 000227dc 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 000227e0 4e 92 |N | JSR (A2) 000227e2 50 4f |PO | ADDQ.L #0x8,A7 000227e4 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 000227ea 58 4f |XO | ADDQ.L #0x4,A7 000227ec 28 5f |(_ | MOVEA.L (A7)+,A4 000227ee de fc 00 3e | > | ADDA.W #0x3e,A7 000227f2 4a 54 |JT | TST.W (A4) 000227f4 67 cc |g | BEQ 0x227c2 000227f6 48 6e ff f0 |Hn | PEA.L (A6-0x10) 000227fa 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022800 5d 4f |]O | SUBQ.L #0x6,A7 00022802 20 4f | O | MOVEA.L A7,A0 00022804 43 fa e4 ac |C | LEA.L 0x20cb2,A1 00022808 70 08 |p | MOVEQ.L #0x08,D0 0002280a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002280c 51 c8 ff fc |Q | DBF D0,0x2280a 00022810 9e fc 00 0a | | SUBA.W #0xa,A7 00022814 20 4f | O | MOVEA.L A7,A0 00022816 43 fa e4 a4 |C | LEA.L 0x20cbc,A1 0002281a 70 08 |p | MOVEQ.L #0x08,D0 0002281c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002281e 51 c8 ff fc |Q | DBF D0,0x2281c 00022822 59 4f |YO | SUBQ.L #0x4,A7 00022824 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00022828 59 4f |YO | SUBQ.L #0x4,A7 0002282a 48 6f 00 16 |Ho | PEA.L (A7+0x16) 0002282e 3f 01 |? | MOVE.W D1,-(A7) 00022830 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00022834 4e 92 |N | JSR (A2) 00022836 58 4f |XO | ADDQ.L #0x4,A7 00022838 2e 8c |. | MOVE.L A4,(A7) 0002283a 51 4f |QO | SUBQ.L #0x8,A7 0002283c 2f 2e ff fc |/. | MOVE.L (A6-0x4),-(A7) 00022840 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022846 2f 13 |/ | MOVE.L (A3),-(A7) 00022848 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 0002284e 48 6f 00 20 |Ho | PEA.L (A7+0x20) 00022852 3f 01 |? | MOVE.W D1,-(A7) 00022854 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00022858 4e 92 |N | JSR (A2) 0002285a 50 4f |PO | ADDQ.L #0x8,A7 0002285c 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00022862 de c4 | | ADDA.W D4,A7 00022864 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 0002286a de c2 | | ADDA.W D2,A7 0002286c 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00022870 de c2 | | ADDA.W D2,A7 00022872 2e ae ff f0 |. | MOVE.L (A6-0x10),(A7) 00022876 4e ba e7 58 |N X | JSR 0x20fd0 0002287a 58 4f |XO | ADDQ.L #0x4,A7 0002287c 4e ba e7 d0 |N | JSR 0x2104e 00022880 55 4f |UO | SUBQ.L #0x2,A7 00022882 4e ba e9 f2 |N | JSR 0x21276 00022886 4a 1f |J | TST.B (A7)+ 00022888 67 56 |gV | BEQ 0x228e0 0002288a 9e fc 00 40 | @ | SUBA.W #0x40,A7 0002288e 20 4f | O | MOVEA.L A7,A0 00022890 43 fa e1 e0 |C | LEA.L 0x20a72,A1 00022894 70 3e |p> | MOVEQ.L #0x3e,D0 00022896 10 d9 | | MOVE.B (A1)+,(A0)+ 00022898 51 c8 ff fc |Q | DBF D0,0x22896 0002289c 59 4f |YO | SUBQ.L #0x4,A7 0002289e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000228a2 3f 01 |? | MOVE.W D1,-(A7) 000228a4 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 000228a8 4e 92 |N | JSR (A2) 000228aa 50 4f |PO | ADDQ.L #0x8,A7 000228ac 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000228b2 de fc 00 44 | D | ADDA.W #0x44,A7 000228b6 41 fa e2 3c |A < | LEA.L 0x20af4,A0 000228ba 70 20 |p | MOVEQ.L #0x20,D0 000228bc 3f 20 |? | MOVE.W -(A0),-(A7) 000228be 51 c8 ff fc |Q | DBF D0,0x228bc 000228c2 59 4f |YO | SUBQ.L #0x4,A7 000228c4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000228c8 3f 01 |? | MOVE.W D1,-(A7) 000228ca 3f 3c 00 42 |?< B | MOVE.W #0x42,-(A7) 000228ce 4e 92 |N | JSR (A2) 000228d0 50 4f |PO | ADDQ.L #0x8,A7 000228d2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000228d8 de fc 00 46 | F | ADDA.W #0x46,A7 000228dc 60 00 03 f0 |` | BRA 0x22cce 000228e0 41 fa e4 10 |A | LEA.L 0x20cf2,A0 000228e4 70 0a |p | MOVEQ.L #0x0a,D0 000228e6 2f 20 |/ | MOVE.L -(A0),-(A7) 000228e8 51 c8 ff fc |Q | DBF D0,0x228e6 000228ec 59 4f |YO | SUBQ.L #0x4,A7 000228ee 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000228f2 3f 01 |? | MOVE.W D1,-(A7) 000228f4 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7) 000228f8 4e 92 |N | JSR (A2) 000228fa 50 4f |PO | ADDQ.L #0x8,A7 000228fc 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00022900 de fc 00 28 | ( | ADDA.W #0x28,A7 00022904 2e ae ff f0 |. | MOVE.L (A6-0x10),(A7) 00022908 4e ba e6 c6 |N | JSR 0x20fd0 0002290c 58 4f |XO | ADDQ.L #0x4,A7 0002290e 4e ba e7 3e |N > | JSR 0x2104e 00022912 55 4f |UO | SUBQ.L #0x2,A7 00022914 4e ba e9 60 |N ` | JSR 0x21276 00022918 4a 1f |J | TST.B (A7)+ 0002291a 67 30 |g0 | BEQ 0x2294c 0002291c 9e fc 00 0e | | SUBA.W #0xe,A7 00022920 20 4f | O | MOVEA.L A7,A0 00022922 43 fa e1 d0 |C | LEA.L 0x20af4,A1 00022926 70 0c |p | MOVEQ.L #0x0c,D0 00022928 10 d9 | | MOVE.B (A1)+,(A0)+ 0002292a 51 c8 ff fc |Q | DBF D0,0x22928 0002292e 59 4f |YO | SUBQ.L #0x4,A7 00022930 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022934 3f 01 |? | MOVE.W D1,-(A7) 00022936 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 0002293a 4e 92 |N | JSR (A2) 0002293c 50 4f |PO | ADDQ.L #0x8,A7 0002293e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022944 de fc 00 12 | | ADDA.W #0x12,A7 00022948 60 00 03 0c |` | BRA 0x22c56 0002294c 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00022950 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022956 58 4f |XO | ADDQ.L #0x4,A7 00022958 41 fa e3 be |A | LEA.L 0x20d18,A0 0002295c 70 12 |p | MOVEQ.L #0x12,D0 0002295e 3f 20 |? | MOVE.W -(A0),-(A7) 00022960 51 c8 ff fc |Q | DBF D0,0x2295e 00022964 9e fc 00 14 | | SUBA.W #0x14,A7 00022968 20 4f | O | MOVEA.L A7,A0 0002296a 43 fa e3 ac |C | LEA.L 0x20d18,A1 0002296e 70 12 |p | MOVEQ.L #0x12,D0 00022970 10 d9 | | MOVE.B (A1)+,(A0)+ 00022972 51 c8 ff fc |Q | DBF D0,0x22970 00022976 59 4f |YO | SUBQ.L #0x4,A7 00022978 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 0002297c 59 4f |YO | SUBQ.L #0x4,A7 0002297e 48 6f 00 20 |Ho | PEA.L (A7+0x20) 00022982 3f 01 |? | MOVE.W D1,-(A7) 00022984 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 00022988 4e 92 |N | JSR (A2) 0002298a 2e 93 |. | MOVE.L (A3),(A7) 0002298c 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022992 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00022996 3f 01 |? | MOVE.W D1,-(A7) 00022998 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 0002299c 4e 92 |N | JSR (A2) 0002299e 50 4f |PO | ADDQ.L #0x8,A7 000229a0 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 000229a6 de c2 | | ADDA.W D2,A7 000229a8 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 000229ac de c6 | | ADDA.W D6,A7 000229ae 2e ae ff f0 |. | MOVE.L (A6-0x10),(A7) 000229b2 4e ba e6 1c |N | JSR 0x20fd0 000229b6 58 4f |XO | ADDQ.L #0x4,A7 000229b8 4e ba e6 94 |N | JSR 0x2104e 000229bc 55 4f |UO | SUBQ.L #0x2,A7 000229be 4e ba e8 b6 |N | JSR 0x21276 000229c2 4a 1f |J | TST.B (A7)+ 000229c4 67 16 |g | BEQ 0x229dc 000229c6 9e fc 00 0e | | SUBA.W #0xe,A7 000229ca 20 4f | O | MOVEA.L A7,A0 000229cc 43 fa e1 d0 |C | LEA.L 0x20b9e,A1 000229d0 70 0c |p | MOVEQ.L #0x0c,D0 000229d2 10 d9 | | MOVE.B (A1)+,(A0)+ 000229d4 51 c8 ff fc |Q | DBF D0,0x229d2 000229d8 60 00 ff 54 |` T | BRA 0x2292e 000229dc 48 6e ff f0 |Hn | PEA.L (A6-0x10) 000229e0 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000229e6 58 4f |XO | ADDQ.L #0x4,A7 000229e8 41 fa e3 4c |A L | LEA.L 0x20d36,A0 000229ec 70 04 |p | MOVEQ.L #0x04,D0 000229ee 3f 20 |? | MOVE.W -(A0),-(A7) 000229f0 51 c8 ff fc |Q | DBF D0,0x229ee 000229f4 41 fa e3 60 |A ` | LEA.L 0x20d56,A0 000229f8 70 07 |p | MOVEQ.L #0x07,D0 000229fa 2f 20 |/ | MOVE.L -(A0),-(A7) 000229fc 51 c8 ff fc |Q | DBF D0,0x229fa 00022a00 59 4f |YO | SUBQ.L #0x4,A7 00022a02 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00022a06 59 4f |YO | SUBQ.L #0x4,A7 00022a08 48 6f 00 2c |Ho , | PEA.L (A7+0x2c) 00022a0c 3f 01 |? | MOVE.W D1,-(A7) 00022a0e 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00022a12 4e 92 |N | JSR (A2) 00022a14 2e 93 |. | MOVE.L (A3),(A7) 00022a16 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022a1c 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00022a20 3f 01 |? | MOVE.W D1,-(A7) 00022a22 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00022a26 4e 92 |N | JSR (A2) 00022a28 50 4f |PO | ADDQ.L #0x8,A7 00022a2a 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 00022a30 de c2 | | ADDA.W D2,A7 00022a32 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00022a36 de fc 00 26 | & | ADDA.W #0x26,A7 00022a3a 2e ae ff f0 |. | MOVE.L (A6-0x10),(A7) 00022a3e 4e ba e5 90 |N | JSR 0x20fd0 00022a42 58 4f |XO | ADDQ.L #0x4,A7 00022a44 4e ba e6 08 |N | JSR 0x2104e 00022a48 55 4f |UO | SUBQ.L #0x2,A7 00022a4a 4e ba e8 2a |N * | JSR 0x21276 00022a4e 4a 1f |J | TST.B (A7)+ 00022a50 67 16 |g | BEQ 0x22a68 00022a52 9e fc 00 0e | | SUBA.W #0xe,A7 00022a56 20 4f | O | MOVEA.L A7,A0 00022a58 43 fa e1 52 |C R | LEA.L 0x20bac,A1 00022a5c 70 0c |p | MOVEQ.L #0x0c,D0 00022a5e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022a60 51 c8 ff fc |Q | DBF D0,0x22a5e 00022a64 60 00 fe c8 |` | BRA 0x2292e 00022a68 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00022a6c 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022a72 9e c4 | | SUBA.W D4,A7 00022a74 20 4f | O | MOVEA.L A7,A0 00022a76 43 fa e2 de |C | LEA.L 0x20d56,A1 00022a7a 70 0e |p | MOVEQ.L #0x0e,D0 00022a7c 10 d9 | | MOVE.B (A1)+,(A0)+ 00022a7e 51 c8 ff fc |Q | DBF D0,0x22a7c 00022a82 9e fc 00 0a | | SUBA.W #0xa,A7 00022a86 20 4f | O | MOVEA.L A7,A0 00022a88 43 fa e2 dc |C | LEA.L 0x20d66,A1 00022a8c 70 08 |p | MOVEQ.L #0x08,D0 00022a8e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022a90 51 c8 ff fc |Q | DBF D0,0x22a8e 00022a94 59 4f |YO | SUBQ.L #0x4,A7 00022a96 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00022a9a 59 4f |YO | SUBQ.L #0x4,A7 00022a9c 48 6f 00 16 |Ho | PEA.L (A7+0x16) 00022aa0 3f 01 |? | MOVE.W D1,-(A7) 00022aa2 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00022aa6 4e 92 |N | JSR (A2) 00022aa8 2e 93 |. | MOVE.L (A3),(A7) 00022aaa 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022ab0 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00022ab4 3f 01 |? | MOVE.W D1,-(A7) 00022ab6 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00022aba 4e 92 |N | JSR (A2) 00022abc 50 4f |PO | ADDQ.L #0x8,A7 00022abe 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 00022ac4 de c2 | | ADDA.W D2,A7 00022ac6 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00022aca de fc 00 16 | | ADDA.W #0x16,A7 00022ace 2e ae ff f0 |. | MOVE.L (A6-0x10),(A7) 00022ad2 4e ba e4 fc |N | JSR 0x20fd0 00022ad6 58 4f |XO | ADDQ.L #0x4,A7 00022ad8 4e ba e5 74 |N t | JSR 0x2104e 00022adc 55 4f |UO | SUBQ.L #0x2,A7 00022ade 4e ba e7 96 |N | JSR 0x21276 00022ae2 4a 1f |J | TST.B (A7)+ 00022ae4 67 16 |g | BEQ 0x22afc 00022ae6 9e fc 00 0e | | SUBA.W #0xe,A7 00022aea 20 4f | O | MOVEA.L A7,A0 00022aec 43 fa e0 cc |C | LEA.L 0x20bba,A1 00022af0 70 0c |p | MOVEQ.L #0x0c,D0 00022af2 10 d9 | | MOVE.B (A1)+,(A0)+ 00022af4 51 c8 ff fc |Q | DBF D0,0x22af2 00022af8 60 00 fe 34 |` 4 | BRA 0x2292e 00022afc 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00022b00 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022b06 9e fc 00 2c | , | SUBA.W #0x2c,A7 00022b0a 20 4f | O | MOVEA.L A7,A0 00022b0c 43 fa e2 62 |C b | LEA.L 0x20d70,A1 00022b10 70 2e |p. | MOVEQ.L #0x2e,D0 00022b12 10 d9 | | MOVE.B (A1)+,(A0)+ 00022b14 51 c8 ff fc |Q | DBF D0,0x22b12 00022b18 41 fa e2 b0 |A | LEA.L 0x20dca,A0 00022b1c 70 14 |p | MOVEQ.L #0x14,D0 00022b1e 3f 20 |? | MOVE.W -(A0),-(A7) 00022b20 51 c8 ff fc |Q | DBF D0,0x22b1e 00022b24 59 4f |YO | SUBQ.L #0x4,A7 00022b26 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00022b2a 59 4f |YO | SUBQ.L #0x4,A7 00022b2c 48 6f 00 36 |Ho 6 | PEA.L (A7+0x36) 00022b30 3f 01 |? | MOVE.W D1,-(A7) 00022b32 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 00022b36 4e 92 |N | JSR (A2) 00022b38 58 4f |XO | ADDQ.L #0x4,A7 00022b3a 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00022b3e 3f 01 |? | MOVE.W D1,-(A7) 00022b40 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 00022b44 4e 92 |N | JSR (A2) 00022b46 50 4f |PO | ADDQ.L #0x8,A7 00022b48 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00022b4e de c4 | | ADDA.W D4,A7 00022b50 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00022b54 de fc 00 56 | V | ADDA.W #0x56,A7 00022b58 2e ae ff f0 |. | MOVE.L (A6-0x10),(A7) 00022b5c 4e ba e4 72 |N r | JSR 0x20fd0 00022b60 58 4f |XO | ADDQ.L #0x4,A7 00022b62 4e ba e4 ea |N | JSR 0x2104e 00022b66 55 4f |UO | SUBQ.L #0x2,A7 00022b68 4e ba e7 0c |N | JSR 0x21276 00022b6c 4a 1f |J | TST.B (A7)+ 00022b6e 67 16 |g | BEQ 0x22b86 00022b70 9e fc 00 0e | | SUBA.W #0xe,A7 00022b74 20 4f | O | MOVEA.L A7,A0 00022b76 43 fa e0 50 |C P | LEA.L 0x20bc8,A1 00022b7a 70 0c |p | MOVEQ.L #0x0c,D0 00022b7c 10 d9 | | MOVE.B (A1)+,(A0)+ 00022b7e 51 c8 ff fc |Q | DBF D0,0x22b7c 00022b82 60 00 fd aa |` | BRA 0x2292e 00022b86 9e fc 00 0e | | SUBA.W #0xe,A7 00022b8a 20 4f | O | MOVEA.L A7,A0 00022b8c 43 fa e2 3c |C < | LEA.L 0x20dca,A1 00022b90 70 0c |p | MOVEQ.L #0x0c,D0 00022b92 10 d9 | | MOVE.B (A1)+,(A0)+ 00022b94 51 c8 ff fc |Q | DBF D0,0x22b92 00022b98 59 4f |YO | SUBQ.L #0x4,A7 00022b9a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022b9e 3f 01 |? | MOVE.W D1,-(A7) 00022ba0 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00022ba4 4e 92 |N | JSR (A2) 00022ba6 50 4f |PO | ADDQ.L #0x8,A7 00022ba8 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00022bac 5c 4f |\O | ADDQ.L #0x6,A7 00022bae 2e ae ff f0 |. | MOVE.L (A6-0x10),(A7) 00022bb2 59 4f |YO | SUBQ.L #0x4,A7 00022bb4 2f 13 |/ | MOVE.L (A3),-(A7) 00022bb6 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022bbc 58 4f |XO | ADDQ.L #0x4,A7 00022bbe 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022bc4 50 4f |PO | ADDQ.L #0x8,A7 00022bc6 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00022bca 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00022bce 4e ba e4 00 |N | JSR 0x20fd0 00022bd2 2e bc 00 02 fa ee |. | MOVE.L #0x2faee,(A7) 00022bd8 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00022bde 58 4f |XO | ADDQ.L #0x4,A7 00022be0 4e ba e4 6c |N l | JSR 0x2104e 00022be4 55 4f |UO | SUBQ.L #0x2,A7 00022be6 4e ba e8 30 |N 0 | JSR 0x21418 00022bea 4a 1f |J | TST.B (A7)+ 00022bec 67 2a |g* | BEQ 0x22c18 00022bee 9e c4 | | SUBA.W D4,A7 00022bf0 20 4f | O | MOVEA.L A7,A0 00022bf2 43 fa df e2 |C | LEA.L 0x20bd6,A1 00022bf6 70 0a |p | MOVEQ.L #0x0a,D0 00022bf8 10 d9 | | MOVE.B (A1)+,(A0)+ 00022bfa 51 c8 ff fc |Q | DBF D0,0x22bf8 00022bfe 59 4f |YO | SUBQ.L #0x4,A7 00022c00 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022c04 3f 01 |? | MOVE.W D1,-(A7) 00022c06 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00022c0a 4e 92 |N | JSR (A2) 00022c0c 50 4f |PO | ADDQ.L #0x8,A7 00022c0e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022c14 de c2 | | ADDA.W D2,A7 00022c16 60 3e |`> | BRA 0x22c56 00022c18 41 fa e1 da |A | LEA.L 0x20df4,A0 00022c1c 70 06 |p | MOVEQ.L #0x06,D0 00022c1e 2f 20 |/ | MOVE.L -(A0),-(A7) 00022c20 51 c8 ff fc |Q | DBF D0,0x22c1e 00022c24 59 4f |YO | SUBQ.L #0x4,A7 00022c26 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022c2a 3f 01 |? | MOVE.W D1,-(A7) 00022c2c 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 00022c30 4e 92 |N | JSR (A2) 00022c32 50 4f |PO | ADDQ.L #0x8,A7 00022c34 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022c3a de fc 00 20 | | ADDA.W #0x20,A7 00022c3e 48 53 |HS | PEA.L (A3) 00022c40 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022c46 58 4f |XO | ADDQ.L #0x4,A7 00022c48 48 6e ff fc |Hn | PEA.L (A6-0x4) 00022c4c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022c52 58 4f |XO | ADDQ.L #0x4,A7 00022c54 60 78 |`x | BRA 0x22cce 00022c56 9e fc 00 40 | @ | SUBA.W #0x40,A7 00022c5a 20 4f | O | MOVEA.L A7,A0 00022c5c 43 fa de a4 |C | LEA.L 0x20b02,A1 00022c60 70 3e |p> | MOVEQ.L #0x3e,D0 00022c62 10 d9 | | MOVE.B (A1)+,(A0)+ 00022c64 51 c8 ff fc |Q | DBF D0,0x22c62 00022c68 59 4f |YO | SUBQ.L #0x4,A7 00022c6a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022c6e 3f 01 |? | MOVE.W D1,-(A7) 00022c70 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 00022c74 4e 92 |N | JSR (A2) 00022c76 50 4f |PO | ADDQ.L #0x8,A7 00022c78 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022c7e de fc 00 44 | D | ADDA.W #0x44,A7 00022c82 41 fa de fa |A | LEA.L 0x20b7e,A0 00022c86 70 0e |p | MOVEQ.L #0x0e,D0 00022c88 2f 20 |/ | MOVE.L -(A0),-(A7) 00022c8a 51 c8 ff fc |Q | DBF D0,0x22c88 00022c8e 59 4f |YO | SUBQ.L #0x4,A7 00022c90 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022c94 3f 01 |? | MOVE.W D1,-(A7) 00022c96 3f 3c 00 3c |?< < | MOVE.W #0x3c,-(A7) 00022c9a 4e 92 |N | JSR (A2) 00022c9c 50 4f |PO | ADDQ.L #0x8,A7 00022c9e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022ca4 de fc 00 40 | @ | ADDA.W #0x40,A7 00022ca8 41 fa de f4 |A | LEA.L 0x20b9e,A0 00022cac 70 07 |p | MOVEQ.L #0x07,D0 00022cae 2f 20 |/ | MOVE.L -(A0),-(A7) 00022cb0 51 c8 ff fc |Q | DBF D0,0x22cae 00022cb4 59 4f |YO | SUBQ.L #0x4,A7 00022cb6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022cba 3f 01 |? | MOVE.W D1,-(A7) 00022cbc 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00022cc0 4e 92 |N | JSR (A2) 00022cc2 50 4f |PO | ADDQ.L #0x8,A7 00022cc4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022cca de fc 00 24 | $ | ADDA.W #0x24,A7 00022cce 4e ba e2 d6 |N | JSR 0x20fa6 00022cd2 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022cd6 4e 5e |N^ | UNLK A6 00022cd8 4e 75 |Nu | RTS 00022cda ; -------------------------------------------------------------------------------------- 00022cda ; OMSI PASCAL Function 00022cda ; -------------------------------------------------------------------------------------- 00022cda 4e 56 ff 70 |NV p | LINK.W A6,#0xff70 00022cde bf d5 | | CMPA.L (A5),A7 00022ce0 62 06 |b | BHI 0x22ce8 00022ce2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ce6 4e 76 |Nv | TRAPV 00022ce8 de fc 00 8c | | ADDA.W #0x8c,A7 00022cec 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022cf0 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00022cf6 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00022cfc 74 01 |t | MOVEQ.L #0x01,D2 00022cfe 76 0c |v | MOVEQ.L #0x0c,D3 00022d00 78 26 |x& | MOVEQ.L #0x26,D4 00022d02 7a 05 |z | MOVEQ.L #0x05,D5 00022d04 7c 24 ||$ | MOVEQ.L #0x24,D6 00022d06 2f 3a e0 f4 |/: | MOVE.L 0x20dfc,-(A7) 00022d0a 2f 3a e0 ec |/: | MOVE.L 0x20df8,-(A7) 00022d0e 2f 3a e0 e4 |/: | MOVE.L 0x20df4,-(A7) 00022d12 59 4f |YO | SUBQ.L #0x4,A7 00022d14 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022d18 3f 02 |? | MOVE.W D2,-(A7) 00022d1a 3f 03 |? | MOVE.W D3,-(A7) 00022d1c 4e 92 |N | JSR (A2) 00022d1e 50 4f |PO | ADDQ.L #0x8,A7 00022d20 4e 93 |N | JSR (A3) 00022d22 54 4f |TO | ADDQ.L #0x2,A7 00022d24 20 4f | O | MOVEA.L A7,A0 00022d26 43 fa e0 d8 |C | LEA.L 0x20e00,A1 00022d2a 70 0c |p | MOVEQ.L #0x0c,D0 00022d2c 10 d9 | | MOVE.B (A1)+,(A0)+ 00022d2e 51 c8 ff fc |Q | DBF D0,0x22d2c 00022d32 59 4f |YO | SUBQ.L #0x4,A7 00022d34 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022d38 3f 02 |? | MOVE.W D2,-(A7) 00022d3a 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00022d3e 4e 92 |N | JSR (A2) 00022d40 50 4f |PO | ADDQ.L #0x8,A7 00022d42 4e 93 |N | JSR (A3) 00022d44 de fc 00 12 | | ADDA.W #0x12,A7 00022d48 41 fa e0 ea |A | LEA.L 0x20e34,A0 00022d4c 70 12 |p | MOVEQ.L #0x12,D0 00022d4e 3f 20 |? | MOVE.W -(A0),-(A7) 00022d50 51 c8 ff fc |Q | DBF D0,0x22d4e 00022d54 59 4f |YO | SUBQ.L #0x4,A7 00022d56 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022d5a 3f 02 |? | MOVE.W D2,-(A7) 00022d5c 3f 04 |? | MOVE.W D4,-(A7) 00022d5e 4e 92 |N | JSR (A2) 00022d60 50 4f |PO | ADDQ.L #0x8,A7 00022d62 4e 93 |N | JSR (A3) 00022d64 de fc 00 2a | * | ADDA.W #0x2a,A7 00022d68 41 fa e0 f0 |A | LEA.L 0x20e5a,A0 00022d6c 70 12 |p | MOVEQ.L #0x12,D0 00022d6e 3f 20 |? | MOVE.W -(A0),-(A7) 00022d70 51 c8 ff fc |Q | DBF D0,0x22d6e 00022d74 59 4f |YO | SUBQ.L #0x4,A7 00022d76 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022d7a 3f 02 |? | MOVE.W D2,-(A7) 00022d7c 3f 04 |? | MOVE.W D4,-(A7) 00022d7e 4e 92 |N | JSR (A2) 00022d80 50 4f |PO | ADDQ.L #0x8,A7 00022d82 4e 93 |N | JSR (A3) 00022d84 9e fc 00 22 | " | SUBA.W #0x22,A7 00022d88 20 4f | O | MOVEA.L A7,A0 00022d8a 43 fa e0 ce |C | LEA.L 0x20e5a,A1 00022d8e 70 4a |pJ | MOVEQ.L #0x4a,D0 00022d90 10 d9 | | MOVE.B (A1)+,(A0)+ 00022d92 51 c8 ff fc |Q | DBF D0,0x22d90 00022d96 59 4f |YO | SUBQ.L #0x4,A7 00022d98 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022d9c 3f 02 |? | MOVE.W D2,-(A7) 00022d9e 3f 3c 00 4b |?< K | MOVE.W #0x4b,-(A7) 00022da2 4e 92 |N | JSR (A2) 00022da4 50 4f |PO | ADDQ.L #0x8,A7 00022da6 4e 93 |N | JSR (A3) 00022da8 de fc 00 0a | | ADDA.W #0xa,A7 00022dac 20 4f | O | MOVEA.L A7,A0 00022dae 43 fa e0 f6 |C | LEA.L 0x20ea6,A1 00022db2 70 44 |pD | MOVEQ.L #0x44,D0 00022db4 10 d9 | | MOVE.B (A1)+,(A0)+ 00022db6 51 c8 ff fc |Q | DBF D0,0x22db4 00022dba 59 4f |YO | SUBQ.L #0x4,A7 00022dbc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022dc0 3f 02 |? | MOVE.W D2,-(A7) 00022dc2 3f 3c 00 45 |?< E | MOVE.W #0x45,-(A7) 00022dc6 4e 92 |N | JSR (A2) 00022dc8 50 4f |PO | ADDQ.L #0x8,A7 00022dca 4e 93 |N | JSR (A3) 00022dcc de fc 00 3a | : | ADDA.W #0x3a,A7 00022dd0 20 4f | O | MOVEA.L A7,A0 00022dd2 43 fa e1 48 |C H | LEA.L 0x20f1c,A1 00022dd6 70 0e |p | MOVEQ.L #0x0e,D0 00022dd8 10 d9 | | MOVE.B (A1)+,(A0)+ 00022dda 51 c8 ff fc |Q | DBF D0,0x22dd8 00022dde 51 4f |QO | SUBQ.L #0x8,A7 00022de0 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022de4 3f 02 |? | MOVE.W D2,-(A7) 00022de6 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00022dea 4e 92 |N | JSR (A2) 00022dec 50 4f |PO | ADDQ.L #0x8,A7 00022dee 48 78 00 00 |Hx | PEA.L 0x0 00022df2 48 78 00 05 |Hx | PEA.L 0x5 00022df6 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00022dfc de c3 | | ADDA.W D3,A7 00022dfe 10 2f 00 03 | / | MOVE.B (A7+0x3),D0 00022e02 48 80 |H | EXTB.W D0 00022e04 41 85 |A | CHK.W D5,D0 00022e06 de fc 00 14 | | ADDA.W #0x14,A7 00022e0a 1e 00 | | MOVE.B D0,D7 00022e0c 10 07 | | MOVE.B D7,D0 00022e0e 48 80 |H | EXTB.W D0 00022e10 32 00 |2 | MOVE.W D0,D1 00022e12 b2 45 | E | CMP.W D5,D1 00022e14 63 02 |c | BLS 0x22e18 00022e16 4e 4e |NN | TRAP #14 00022e18 d2 41 | A | ADD.W D1,D1 00022e1a 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 00022e22 00 0c | | .CONST 0xc ; [0x0] -> 0x22e2e 00022e24 00 0e | | .CONST 0xe ; [0x1] -> 0x22e30 00022e26 00 14 | | .CONST 0x14 ; [0x2] -> 0x22e36 00022e28 00 1a | | .CONST 0x1a ; [0x3] -> 0x22e3c 00022e2a 00 24 | $ | .CONST 0x24 ; [0x4] -> 0x22e46 00022e2c 00 28 | ( | .CONST 0x28 ; [0x5] -> 0x22e4a 00022e2e switch@0x22e1a[0x0]: 00022e2e 60 4e |`N | BRA 0x22e7e 00022e30 switch@0x22e1a[0x1]: 00022e30 4e ba e2 d2 |N | JSR 0x21104 00022e34 60 48 |`H | BRA 0x22e7e 00022e36 switch@0x22e1a[0x2]: 00022e36 4e ba e7 0a |N | JSR 0x21542 00022e3a 60 42 |`B | BRA 0x22e7e 00022e3c switch@0x22e1a[0x3]: 00022e3c 42 27 |B' | CLR.B -(A7) 00022e3e 4e ba ef 76 |N v | JSR 0x21db6 00022e42 54 4f |TO | ADDQ.L #0x2,A7 00022e44 60 38 |`8 | BRA 0x22e7e 00022e46 switch@0x22e1a[0x4]: 00022e46 1f 02 | | MOVE.B D2,-(A7) 00022e48 60 f4 |` | BRA 0x22e3e 00022e4a switch@0x22e1a[0x5]: 00022e4a 9e c6 | | SUBA.W D6,A7 00022e4c 20 4f | O | MOVEA.L A7,A0 00022e4e 43 fa e0 dc |C | LEA.L 0x20f2c,A1 00022e52 72 22 |r" | MOVEQ.L #0x22,D1 00022e54 10 d9 | | MOVE.B (A1)+,(A0)+ 00022e56 51 c9 ff fc |Q | DBF D1,0x22e54 00022e5a 5d 4f |]O | SUBQ.L #0x6,A7 00022e5c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00022e60 3f 02 |? | MOVE.W D2,-(A7) 00022e62 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 00022e66 4e 92 |N | JSR (A2) 00022e68 5c 4f |\O | ADDQ.L #0x6,A7 00022e6a 42 17 |B | CLR.B (A7) 00022e6c 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00022e72 5c 4f |\O | ADDQ.L #0x6,A7 00022e74 4a 1f |J | TST.B (A7)+ 00022e76 67 04 |g | BEQ 0x22e7c 00022e78 4e ba f7 1e |N | JSR 0x22598 00022e7c de c6 | | ADDA.W D6,A7 00022e7e 4a 40 |J@ | TST.W D0 00022e80 66 00 fe 84 |f | BNE 0x22d06 00022e84 42 27 |B' | CLR.B -(A7) 00022e86 48 78 00 01 |Hx | PEA.L 0x1 00022e8a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00022e90 5c 4f |\O | ADDQ.L #0x6,A7 00022e92 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00022e96 4e 5e |N^ | UNLK A6 00022e98 4e 75 |Nu | RTS 00022e9a ; -------------------------------------------------------------------------------------- 00022e9a ; OMSI PASCAL Function 00022e9a ; -------------------------------------------------------------------------------------- 00022e9a START: 00022e9a 4f fa 00 08 |O | LEA.L MAIN,A7 00022e9e 4e f9 00 01 02 80 |N | JMP ?start_program 00022ea4 MAIN: 00022ea4 72 01 |r | MOVEQ.L #0x01,D1 00022ea6 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00022eac 42 39 00 02 31 80 |B9 1 | CLR.B 0x23180 00022eb2 55 4f |UO | SUBQ.L #0x2,A7 00022eb4 48 78 01 80 |Hx | PEA.L 0x180 00022eb8 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 00022ebe 58 4f |XO | ADDQ.L #0x4,A7 00022ec0 30 1f |0 | MOVE.W (A7)+,D0 00022ec2 48 c0 |H | EXTW.L D0 00022ec4 23 c0 00 02 31 82 |# 1 | MOVE.L D0,0x23182 00022eca 04 80 00 00 00 4d | M | SUBI.L #0x0000004d,D0 00022ed0 0c 80 00 00 00 0b | | CMPI.L #0x0000000b,D0 00022ed6 62 5a |bZ | BHI switch@0x22eda[0x1] 00022ed8 d0 40 | @ | ADD.W D0,D0 00022eda 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00022ee2 00 18 | | .CONST 0x18 ; [0x0] -> 0x22efa 00022ee4 00 50 | P | .CONST 0x50 ; [0x1] -> 0x22f32 00022ee6 00 50 | P | .CONST 0x50 ; [0x2] -> 0x22f32 00022ee8 00 50 | P | .CONST 0x50 ; [0x3] -> 0x22f32 00022eea 00 50 | P | .CONST 0x50 ; [0x4] -> 0x22f32 00022eec 00 50 | P | .CONST 0x50 ; [0x5] -> 0x22f32 00022eee 00 50 | P | .CONST 0x50 ; [0x6] -> 0x22f32 00022ef0 00 50 | P | .CONST 0x50 ; [0x7] -> 0x22f32 00022ef2 00 50 | P | .CONST 0x50 ; [0x8] -> 0x22f32 00022ef4 00 50 | P | .CONST 0x50 ; [0x9] -> 0x22f32 00022ef6 00 50 | P | .CONST 0x50 ; [0xa] -> 0x22f32 00022ef8 00 4a | J | .CONST 0x4a ; [0xb] -> 0x22f2c 00022efa switch@0x22eda[0x0]: 00022efa 9e fc 00 3e | > | SUBA.W #0x3e,A7 00022efe 20 4f | O | MOVEA.L A7,A0 00022f00 43 fa d2 08 |C | LEA.L 0x2010a,A1 00022f04 70 3c |p< | MOVEQ.L #0x3c,D0 00022f06 10 d9 | | MOVE.B (A1)+,(A0)+ 00022f08 51 c8 ff fc |Q | DBF D0,0x22f06 00022f0c 59 4f |YO | SUBQ.L #0x4,A7 00022f0e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022f12 3f 01 |? | MOVE.W D1,-(A7) 00022f14 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 00022f18 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022f1e 50 4f |PO | ADDQ.L #0x8,A7 00022f20 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022f26 de fc 00 42 | B | ADDA.W #0x42,A7 00022f2a 60 30 |`0 | BRA 0x22f5c 00022f2c switch@0x22eda[0xb]: 00022f2c 4e ba fd ac |N | JSR 0x22cda 00022f30 60 3a |`: | BRA 0x22f6c 00022f32 switch@0x22eda[0x1]: 00022f32 switch@0x22eda[0x2]: 00022f32 switch@0x22eda[0x3]: 00022f32 switch@0x22eda[0x4]: 00022f32 switch@0x22eda[0x5]: 00022f32 switch@0x22eda[0x6]: 00022f32 switch@0x22eda[0x7]: 00022f32 switch@0x22eda[0x8]: 00022f32 switch@0x22eda[0x9]: 00022f32 switch@0x22eda[0xa]: 00022f32 41 fa d2 42 |A B | LEA.L 0x20176,A0 00022f36 70 16 |p | MOVEQ.L #0x16,D0 00022f38 3f 20 |? | MOVE.W -(A0),-(A7) 00022f3a 51 c8 ff fc |Q | DBF D0,0x22f38 00022f3e 59 4f |YO | SUBQ.L #0x4,A7 00022f40 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022f44 3f 01 |? | MOVE.W D1,-(A7) 00022f46 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 00022f4a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022f50 50 4f |PO | ADDQ.L #0x8,A7 00022f52 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022f58 de fc 00 32 | 2 | ADDA.W #0x32,A7 00022f5c 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00022f60 48 78 00 01 |Hx | PEA.L 0x1 00022f64 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00022f6a 5c 4f |\O | ADDQ.L #0x6,A7 00022f6c 4e b9 00 01 02 84 |N | JSR ?exit 00022f72 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00022f80 ; -------------------------------------------------------------------------------------- 00022f80 ; OMSI PASCAL Function 00022f80 ; <LVAR 0x008 1(r)> 00022f80 ; -------------------------------------------------------------------------------------- 00022f80 PROG_FAIL: 00022f80 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00022f84 bf d5 | | CMPA.L (A5),A7 00022f86 62 06 |b | BHI 0x22f8e 00022f88 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022f8c 4e 76 |Nv | TRAPV 00022f8e de fc 00 2c | , | ADDA.W #0x2c,A7 00022f92 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00022f96 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00022f9a 70 06 |p | MOVEQ.L #0x06,D0 00022f9c 3f 20 |? | MOVE.W -(A0),-(A7) 00022f9e 51 c8 ff fc |Q | DBF D0,0x22f9c 00022fa2 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00022fa6 51 4f |QO | SUBQ.L #0x8,A7 00022fa8 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00022fac 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022fb0 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00022fb4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022fba 58 4f |XO | ADDQ.L #0x4,A7 00022fbc 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00022fc0 48 80 |H | EXTB.W D0 00022fc2 48 c0 |H | EXTW.L D0 00022fc4 2f 00 |/ | MOVE.L D0,-(A7) 00022fc6 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022fcc 58 4f |XO | ADDQ.L #0x4,A7 00022fce 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022fd4 50 4f |PO | ADDQ.L #0x8,A7 00022fd6 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00022fdc de fc 00 14 | | ADDA.W #0x14,A7 00022fe0 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00022fe4 4e 5e |N^ | UNLK A6 00022fe6 4e 75 |Nu | RTS 00022fe8 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00022ff6 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00023004 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00023012 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00023024 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 0002303c ; -------------------------------------------------------------------------------------- 0002303c ; OMSI PASCAL Function 0002303c ; <LVAR 0x00e 1(r)> 0002303c ; <LVAR 0x00a 4(r)> 0002303c ; <LVAR 0x008 1(r)> 0002303c ; -------------------------------------------------------------------------------------- 0002303c EXP_FAIL: 0002303c 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00023040 bf d5 | | CMPA.L (A5),A7 00023042 62 06 |b | BHI 0x2304a 00023044 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023048 4e 76 |Nv | TRAPV 0002304a de fc 00 74 | t | ADDA.W #0x74,A7 0002304e 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00023052 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00023058 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 0002305e 72 01 |r | MOVEQ.L #0x01,D1 00023060 74 0d |t | MOVEQ.L #0x0d,D2 00023062 76 1e |v | MOVEQ.L #0x1e,D3 00023064 78 12 |x | MOVEQ.L #0x12,D4 00023066 7a 0e |z | MOVEQ.L #0x0e,D5 00023068 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002306e 41 fa ff b4 |A | LEA.L 0x23024,A0 00023072 70 08 |p | MOVEQ.L #0x08,D0 00023074 3f 20 |? | MOVE.W -(A0),-(A7) 00023076 51 c8 ff fc |Q | DBF D0,0x23074 0002307a 59 4f |YO | SUBQ.L #0x4,A7 0002307c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023080 3f 01 |? | MOVE.W D1,-(A7) 00023082 3f 04 |? | MOVE.W D4,-(A7) 00023084 4e 93 |N | JSR (A3) 00023086 50 4f |PO | ADDQ.L #0x8,A7 00023088 4e 94 |N | JSR (A4) 0002308a 50 4f |PO | ADDQ.L #0x8,A7 0002308c 20 4f | O | MOVEA.L A7,A0 0002308e 43 fa ff 58 |C X | LEA.L 0x22fe8,A1 00023092 70 0c |p | MOVEQ.L #0x0c,D0 00023094 10 d9 | | MOVE.B (A1)+,(A0)+ 00023096 51 c8 ff fc |Q | DBF D0,0x23094 0002309a 51 4f |QO | SUBQ.L #0x8,A7 0002309c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000230a0 3f 01 |? | MOVE.W D1,-(A7) 000230a2 3f 02 |? | MOVE.W D2,-(A7) 000230a4 4e 93 |N | JSR (A3) 000230a6 54 4f |TO | ADDQ.L #0x2,A7 000230a8 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000230ac 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000230b2 54 4f |TO | ADDQ.L #0x2,A7 000230b4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000230ba 50 4f |PO | ADDQ.L #0x8,A7 000230bc 4e 94 |N | JSR (A4) 000230be de c4 | | ADDA.W D4,A7 000230c0 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000230c4 b0 c1 | | CMPA.W D1,A0 000230c6 67 48 |gH | BEQ 0x23110 000230c8 9e c5 | | SUBA.W D5,A7 000230ca 22 4f |"O | MOVEA.L A7,A1 000230cc 45 fa ff 28 |E ( | LEA.L 0x22ff6,A2 000230d0 70 0c |p | MOVEQ.L #0x0c,D0 000230d2 12 da | | MOVE.B (A2)+,(A1)+ 000230d4 51 c8 ff fc |Q | DBF D0,0x230d2 000230d8 9e c3 | | SUBA.W D3,A7 000230da 22 4f |"O | MOVEA.L A7,A1 000230dc 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000230e0 70 1d |p | MOVEQ.L #0x1d,D0 000230e2 12 d8 | | MOVE.B (A0)+,(A1)+ 000230e4 51 c8 ff fc |Q | DBF D0,0x230e2 000230e8 51 4f |QO | SUBQ.L #0x8,A7 000230ea 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 000230ee 3f 01 |? | MOVE.W D1,-(A7) 000230f0 3f 02 |? | MOVE.W D2,-(A7) 000230f2 4e 93 |N | JSR (A3) 000230f4 58 4f |XO | ADDQ.L #0x4,A7 000230f6 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000230fa 3f 01 |? | MOVE.W D1,-(A7) 000230fc 3f 03 |? | MOVE.W D3,-(A7) 000230fe 4e 93 |N | JSR (A3) 00023100 50 4f |PO | ADDQ.L #0x8,A7 00023102 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023108 50 4f |PO | ADDQ.L #0x8,A7 0002310a 4e 94 |N | JSR (A4) 0002310c de fc 00 30 | 0 | ADDA.W #0x30,A7 00023110 9e c5 | | SUBA.W D5,A7 00023112 20 4f | O | MOVEA.L A7,A0 00023114 43 fa fe ee |C | LEA.L 0x23004,A1 00023118 70 0c |p | MOVEQ.L #0x0c,D0 0002311a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002311c 51 c8 ff fc |Q | DBF D0,0x2311a 00023120 51 4f |QO | SUBQ.L #0x8,A7 00023122 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023126 3f 01 |? | MOVE.W D1,-(A7) 00023128 3f 02 |? | MOVE.W D2,-(A7) 0002312a 4e 93 |N | JSR (A3) 0002312c 54 4f |TO | ADDQ.L #0x2,A7 0002312e 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00023132 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00023138 54 4f |TO | ADDQ.L #0x2,A7 0002313a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023140 50 4f |PO | ADDQ.L #0x8,A7 00023142 4e 94 |N | JSR (A4) 00023144 5d 4f |]O | SUBQ.L #0x6,A7 00023146 20 4f | O | MOVEA.L A7,A0 00023148 43 fa fe da |C | LEA.L 0x23024,A1 0002314c 70 16 |p | MOVEQ.L #0x16,D0 0002314e 10 d9 | | MOVE.B (A1)+,(A0)+ 00023150 51 c8 ff fc |Q | DBF D0,0x2314e 00023154 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00023158 59 4f |YO | SUBQ.L #0x4,A7 0002315a 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002315e 3f 01 |? | MOVE.W D1,-(A7) 00023160 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00023164 4e 93 |N | JSR (A3) 00023166 50 4f |PO | ADDQ.L #0x8,A7 00023168 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002316e de c3 | | ADDA.W D3,A7 00023170 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00023174 4e 5e |N^ | UNLK A6 00023176 4e 75 |Nu | RTS