|
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: 10240 (0x2800)
Types: M200
Notes: M200_PROGRAM
Names: »SAM.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »SAM.M200«
└─ ⟦this⟧ »SAM.M200«
@ 20d92
<LVAR 0x00a 4(w)>
<LVAR 0x008 2(r)>
<LVAR -0x00a @ 4(r)>
<POP 20d92-20e3e Body>
<POP 20d92-20da8 Prologue> Σ0 ↓
<POP 20da8-20dba RegCacheLoad> Σ0 ↓
<POP 20dba-20dd2 Naked> Σ0 ↓ →0x20de0
<Pointer.fp 0x20dba <LVAR -0x00a @ 4(r)>> Δ-4 {[@@-10]}
<Call 0x20dbc 0x102b8> {[@@-10]}
NewString(VAR a : String)
<POP 20dc2-20dc4 StackAdj> Δ+4 {}
<MI 20dc4 MOVE.W (A6+0x8),D6> {}
<MI 20dc8 ANDI.W #0x00f0,D6> {}
<MI 20dcc LSR.W #0x4,D6> {}
<MI 20dce CMP.W #0x09,D6> {}
<MI 20dd0 BHI 0x20de0> {}
<POP 20dd2-20de0 Naked> Σ0 →0x20dee
<MI 20dd2 CLR.L D0> {}
<MI 20dd4 MOVE.W D6,D0> {}
<MI 20dd6 ADD.L #0x30,D0> {}
<POP 0x20dd8 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20dde BRA 0x20dee> {}
<POP 20de0-20dee Naked> Σ0 ↓ ←0x20dba
<MI 20de0 CLR.L D0> {}
<MI 20de2 MOVE.W D6,D0> {}
<MI 20de4 SUB.L #0x0a,D0> {}
<MI 20de6 ADD.L #0x41,D0> {}
<POP 0x20de8 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<POP 20dee-20e08 Naked> Σ0 ↓ →0x20e16 ←0x20dd2
<MI 20dee MOVE.B D0,D7> {}
<MI 20df0 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 20df2 MOVE.B D7,-(A7)> Δ-2 {[4, '(A6-0xa)']|[2, 'D7']}
<Call 0x20df4 0x102c0> {[4, '(A6-0xa)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 20dfa-20dfc StackAdj> Δ+6 {}
<MI 20dfc MOVE.W (A6+0x8),D6> {}
<MI 20e00 ANDI.W #0x000f,D6> {}
<MI 20e04 CMP.W #0x09,D6> {}
<MI 20e06 BHI 0x20e16> {}
<POP 20e08-20e16 Naked> Σ0 →0x20e24
<MI 20e08 CLR.L D0> {}
<MI 20e0a MOVE.W D6,D0> {}
<MI 20e0c ADD.L #0x30,D0> {}
<POP 0x20e0e LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20e14 BRA 0x20e24> {}
<POP 20e16-20e24 Naked> Σ0 ↓ ←0x20dee
<MI 20e16 CLR.L D0> {}
<MI 20e18 MOVE.W D6,D0> {}
<MI 20e1a SUB.L #0x0a,D0> {}
<MI 20e1c ADD.L #0x41,D0> {}
<POP 0x20e1e LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<POP 20e24-20e36 Naked> Σ0 ↓ ←0x20e08
<MI 20e24 MOVE.B D0,D7> {}
<MI 20e26 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 20e28 MOVE.B D7,-(A7)> Δ-2 {[4, '(A6-0xa)']|[2, 'D7']}
<Call 0x20e2a 0x102c0> {[4, '(A6-0xa)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 20e30-20e32 StackAdj> Δ+6 {}
<MI 20e32 MOVE.L (A6-0xa),(A6+0xa)> {}
<POP 20e36-20e3e Epilogue> Σ0
@ 20e3e
<LVAR 0x00c 2(w)>
<LVAR 0x008 @ 4(r)>
<LVAR -0x010 4(rw)>
<POP 20e3e-20f76 Body> Δ-16
<POP 20e3e-20e54 Prologue> Σ0 ↓
<POP 20e54-20e5a RegCacheLoad> Σ0 ↓
<POP 20e5a-20e5c Naked> Σ0 ↓
<MI 20e5a MOVEQ.L #0x00,D7> {}
<POP 20e5c-20e90 Naked> Σ0 Δ-8 ↓ ←0x20f4e
<POP 20e5c-20e60 StackAdj> Δ-12 {[-12-]}
<MI 20e60 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Call 0x20e64 0x102cc> {[-12-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<POP 20e6a-20e6c StackAdj> Δ+4 {[-12-]}
<Call 0x20e6c 0x103e4> {[-12-]}
AskConsoleString(prompt : String) : String
<POP 20e72-20e74 StackAdj> Δ+4 {[-8-]}
<Call 0x20e74 0x102f0> {[-8-]}
ToUpper(a : String) : String
<POP 20e7a-20e7c StackAdj> Δ+4 {[-4-]}
<MI 20e7c MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 20e80 MOVEQ.L #0x00,D6> {}
<MI 20e82 MOVEA.L (A6-0x10),A0> {}
<MI 20e86 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20e88 MOVE.W (A0),D0> {[4, 'A0']}
<MI 20e8a EXTW.L D0> {[4, 'A0']}
<MI 20e8c MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 20e8e MOVEQ.L #0x01,D5> {[4, 'A0']|[4, 'D0']}
<POP 20e90-20e96 Naked> Σ-8 ↓ →0x20f48 ←0x20f42
<MI 20e90 CMP.L (A7),D5> {[-8-]}
<MI 20e92 BGT 0x20f48> {[-8-]}
<POP 20e96-20ea0 Naked> Σ-8 ↓ →0x20ed4
<MI 20e96 ASL.L #0x4,D7> {[-8-]}
<MI 20e98 CMPI.L #0x000000ff,D7> {[-8-]}
<MI 20e9e BLE 0x20ed4> {[-8-]}
<POP 20ea0-20ed4 Naked> Σ-8 Δ+8 →0x20f4e
<Blob 0x20ea0 [32] @> Δ-32 {[-8-]|[«32""»]}
<POP 20eb2-20eb4 StackAdj> Δ-4 {[-8-]|[«32""»]|[-4-]}
<Lit 0x20eb4 31> {[-8-]|[«32""»]|[$$Enter number in range [0 .. FF]]}
<Call 0x20ec6 0x103e0> {[-8-]|[«32""»]|[$$Enter number in range [0 .. FF]]}
WriteConsoleStringCrLf(str : String)
<POP 20ecc-20ed0 StackAdj> Δ+36 {[-8-]}
<POP 20ed0-20ed2 StackAdj> Δ+8 {}
<MI 20ed2 BRA 0x20f4e> {}
<POP 20ed4-20eee Naked> Σ-8 ↓ →0x20f00 ←0x20e96
<MI 20ed4 MOVE.L D5,D0> {[-8-]}
<MI 20ed6 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x20ed8 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 20ee2 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 20ee6 MOVE.B (A0+D0.L+#0x2),D1> {[-8-]}
<MI 20eea CMP.B #0x30,D1> {[-8-]}
<MI 20eec BCS 0x20f00> {[-8-]}
<POP 20eee-20ef4 Naked> Σ-8 ↓ →0x20f00
<MI 20eee CMPI.B #0x39,D1> {[-8-]}
<MI 20ef2 BHI 0x20f00> {[-8-]}
<POP 20ef4-20efa Naked> Σ-8 ↓
<MI 20ef4 CLR.L D0> {[-8-]}
<MI 20ef6 MOVE.B D1,D0> {[-8-]}
<MI 20ef8 SUB.W #0x30,D0> {[-8-]}
<POP 20efa-20f00 Naked> Σ-8 →0x20f42 ←0x20f0a
<MI 20efa EXTW.L D0> {[-8-]}
<MI 20efc ADD.L D0,D7> {[-8-]}
<MI 20efe BRA 0x20f42> {[-8-]}
<POP 20f00-20f04 Naked> Σ-8 ↓ →0x20f16 ←0x20ed4 ←0x20eee
<MI 20f00 CMP.B #0x41,D1> {[-8-]}
<MI 20f02 BCS 0x20f16> {[-8-]}
<POP 20f04-20f0a Naked> Σ-8 ↓ →0x20f16
<MI 20f04 CMPI.B #0x46,D1> {[-8-]}
<MI 20f08 BHI 0x20f16> {[-8-]}
<POP 20f0a-20f16 Naked> Σ-8 →0x20efa
<MI 20f0a CLR.L D0> {[-8-]}
<MI 20f0c MOVE.B D1,D0> {[-8-]}
<MI 20f0e SUB.W #0x41,D0> {[-8-]}
<MI 20f10 ADDI.W #0x000a,D0> {[-8-]}
<MI 20f14 BRA 0x20efa> {[-8-]}
<POP 20f16-20f42 Naked> Σ-8 Δ+8 →0x20f4e ←0x20f00 ←0x20f04
<Blob 0x20f16 [34] @> Δ-34 {[-8-]|[«34""»]}
<POP 20f22-20f24 StackAdj> Δ-4 {[-8-]|[«34""»]|[-4-]}
<Lit 0x20f24 34> {[-8-]|[«34""»]|[$$Enter hexadecimal characters only.]}
<Call 0x20f36 0x103e0> {[-8-]|[«34""»]|[$$Enter hexadecimal characters only.]}
WriteConsoleStringCrLf(str : String)
<POP 20f3c-20f40 StackAdj> Δ+46 {}
<MI 20f40 BRA 0x20f4e> {}
<POP 20f42-20f48 Naked> Σ-8 ↓ →0x20e90 ←0x20efa
<MI 20f42 ADDQ.L #0x1,D5> {[-8-]}
<MI 20f44 BVC 0x20e90> {[-8-]}
<POP 20f48-20f4e Naked> Σ-8 Δ+8 ↓ ←0x20e90
<POP 20f48-20f4a StackAdj> Δ+4 {[-4-]}
<MI 20f4a MOVEQ.L #0x01,D6> {[-4-]}
<POP 20f4c-20f4e StackAdj> Δ+4 {}
<POP 20f4e-20f54 Naked> Σ0 ↓ →0x20e5c ←0x20ea0 ←0x20f16
<MI 20f4e TST.B D6> {}
<MI 20f50 BEQ 0x20e5c> {}
<POP 20f54-20f6e Naked> Σ0 ↓
<Pointer.fp 0x20f54 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x20f58 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 20f5e-20f60 StackAdj> Δ+4 {}
<POP 0x20f60 LimitCheck 0x0 ≤ D7 ≤ 0xff> {}
<MI 20f6a MOVE.W D7,(A6+0xc)> {}
<POP 20f6e-20f76 Epilogue> Σ0
@ 20f76
<LVAR 0x008 4(r)>
<POP 20f76-20fca Body>
<POP 20f76-20f8c Prologue> Σ0 ↓
<POP 20f8c-20fc2 Naked> Σ0 ↓
<Blob 0x20f8c [16] @> Δ-16 {[«16""»]}
<POP 20f9e-20fa0 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x20fa0 15> {[«16""»]|[$$Test will loop.]}
<Call 0x20fb4 0x103e0> {[«16""»]|[$$Test will loop.]}
WriteConsoleStringCrLf(str : String)
<POP 20fba-20fbe StackAdj> Δ+20 {}
<MI 20fbe CLR.L (A6+0x8)> {}
<POP 20fc2-20fca Epilogue> Σ0
@ 20fca
<LVAR 0x008 4(w)>
<POP 20fca-2110e Body>
<POP 20fca-20fe0 Prologue> Σ0 ↓
<POP 20fe0-20fee RegCacheLoad> Σ0 ↓
<POP 20fee-21106 Naked> Σ0 ↓
<Blob 0x20fee [14] @> Δ-14 {[«14""»]}
<POP 21000-21002 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x21002 13> {[«14""»]|[$$Options are :]}
<Call 0x21010 0x103e0> {[«14""»]|[$$Options are :]}
WriteConsoleStringCrLf(str : String)
<POP 21012-21013 StackAdj> Δ+18 ↓ {}
<Blob 0x21013 [62] @> Δ-62 {[«62""»]}
<POP 21024-21026 StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x21026 61> {[«62""»]|[$$ 0 => Halt if read or write errors exceed limit specified,]}
<Call 0x21034 0x103e0> {[«62""»]|[$$ 0 => Halt if read or write errors exceed limit specified,]}
WriteConsoleStringCrLf(str : String)
<POP 21036-2103a StackAdj> Δ+66 {}
<Blob 0x2103a [36] @> Δ-36 {[«36""»]}
<POP 21046-21048 StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x21048 36> {[«36""»]|[$$ halt on completion of test.]}
<Call 0x21056 0x103e0> {[«36""»]|[$$ halt on completion of test.]}
WriteConsoleStringCrLf(str : String)
<POP 21058-2105c StackAdj> Δ+40 {}
<Call 0x2105c 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21062 [58] @> Δ-58 {[«58""»]}
<POP 2106e-21070 StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x21070 58> {[«58""»]|[$$ 1 => Loop on test, halt if read or write errors exceed]}
<Call 0x2107e 0x103e0> {[«58""»]|[$$ 1 => Loop on test, halt if read or write errors exceed]}
WriteConsoleStringCrLf(str : String)
<POP 21080-21084 StackAdj> Δ+62 {}
<Blob 0x21084 [42] @> Δ-42 {[«42""»]}
<POP 21090-21092 StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x21092 42> {[«42""»]|[$$ limit specifed on any given pass.]}
<Call 0x210a0 0x103e0> {[«42""»]|[$$ limit specifed on any given pass.]}
WriteConsoleStringCrLf(str : String)
<POP 210a2-210a6 StackAdj> Δ+46 {}
<Call 0x210a6 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x210ac [56] @> Δ-56 {[«56""»]}
<POP 210b8-210ba StackAdj> Δ-4 {[«56""»]|[-4-]}
<Lit 0x210ba 56> {[«56""»]|[$$ 2 => Loop on test, bypass read or write error halts.]}
<Call 0x210c8 0x103e0> {[«56""»]|[$$ 2 => Loop on test, bypass read or write error halts.]}
WriteConsoleStringCrLf(str : String)
<POP 210ca-210cb StackAdj> Δ+60 ↓ {}
<Blob 0x210cb [28] @> Δ-28 {[«28""»]}
<POP 210dc-210de StackAdj> Δ-8 {[«28""»]|[-8-]}
<Lit 0x210de 27> {[«28""»]|[-4-]|[$$Please enter test option :_]}
<Const 0x210ec 0x0.4> Δ-4 {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]}
<Const 0x210f0 0x2.4> Δ-4 {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]|[##2]}
<Call 0x210f4 0x103ec> {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]|[##2]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 210fa-210fe StackAdj> Δ+12 {[«28""»]|[-4-]}
<MI 210fe MOVE.L (A7)+,(A6+0x8)> Δ+4 {[«28""»]}
<POP 21102-21106 StackAdj> Δ+28 {}
<POP 21106-2110e Epilogue> Σ0
@ 2110e
<LVAR 0x008 4(w)>
<POP 2110e-211fe Body>
<POP 2110e-21124 Prologue> Σ0 ↓
<POP 21124-21134 RegCacheLoad> Σ0 ↓
<POP 21134-211f6 Naked> Σ0 ↓
<Blob 0x21134 [14] @> Δ-14 {[«14""»]}
<POP 21146-21148 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x21148 13> {[«14""»]|[$$Options are :]}
<Call 0x21156 0x103e0> {[«14""»]|[$$Options are :]}
WriteConsoleStringCrLf(str : String)
<POP 21158-2115a StackAdj> Δ+18 {}
<Blob 0x2115a [30] @> Δ-30 {[«30""»]}
<POP 21166-21168 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x21168 30> {[«30""»]|[$$ 0 => Use all ones pattern.]}
<Call 0x21176 0x103e0> {[«30""»]|[$$ 0 => Use all ones pattern.]}
WriteConsoleStringCrLf(str : String)
<POP 21178-2117c StackAdj> Δ+34 {}
<Blob 0x2117c [40] @> Δ-40 {[«40""»]}
<POP 21188-2118a StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x2118a 40> {[«40""»]|[$$ 1 => Use one-half frequency pattern.]}
<Call 0x21198 0x103e0> {[«40""»]|[$$ 1 => Use one-half frequency pattern.]}
WriteConsoleStringCrLf(str : String)
<POP 2119a-2119b StackAdj> Δ+44 ↓ {}
<Blob 0x2119b [42] @> Δ-42 {[«42""»]}
<POP 211aa-211ac StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x211ac 41> {[«42""»]|[$$ 2 => Use one-third frequency pattern.]}
<Call 0x211ba 0x103e0> {[«42""»]|[$$ 2 => Use one-third frequency pattern.]}
WriteConsoleStringCrLf(str : String)
<POP 211bc-211bd StackAdj> Δ+46 ↓ {}
<Blob 0x211bd [28] @> Δ-28 {[«28""»]}
<POP 211cc-211ce StackAdj> Δ-8 {[«28""»]|[-8-]}
<Lit 0x211ce 27> {[«28""»]|[-4-]|[$$Please enter test option :_]}
<Const 0x211dc 0x0.4> Δ-4 {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]}
<Const 0x211e0 0x2.4> Δ-4 {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]|[##2]}
<Call 0x211e4 0x103ec> {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]|[##2]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 211ea-211ee StackAdj> Δ+12 {[«28""»]|[-4-]}
<MI 211ee MOVE.L (A7)+,(A6+0x8)> Δ+4 {[«28""»]}
<POP 211f2-211f6 StackAdj> Δ+28 {}
<POP 211f6-211fe Epilogue> Σ0
@ 211fe
<LVAR 0x008 4(w)>
<POP 211fe-212ca Body>
<POP 211fe-21214 Prologue> Σ0 ↓
<POP 21214-21222 RegCacheLoad> Σ0 ↓
<POP 21222-212c2 Naked> Σ0 ↓
<Blob 0x21222 [14] @> Δ-14 {[«14""»]}
<POP 21234-21236 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x21236 13> {[«14""»]|[$$Options are :]}
<Call 0x21244 0x103e0> {[«14""»]|[$$Options are :]}
WriteConsoleStringCrLf(str : String)
<POP 21246-2124a StackAdj> Δ+18 {}
<Blob 0x2124a [22] @> Δ-22 {[«22""»]}
<POP 21256-21258 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x21258 22> {[«22""»]|[$$ 0 => 25 ips speed.]}
<Call 0x21266 0x103e0> {[«22""»]|[$$ 0 => 25 ips speed.]}
WriteConsoleStringCrLf(str : String)
<POP 21268-2126c StackAdj> Δ+26 {}
<Blob 0x2126c [24] @> Δ-24 {[«24""»]}
<POP 21278-2127a StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x2127a 24> {[«24""»]|[$$ 1 => 12.5 ips speed.]}
<Call 0x21288 0x103e0> {[«24""»]|[$$ 1 => 12.5 ips speed.]}
WriteConsoleStringCrLf(str : String)
<MI 2128a MOVEA.L A7,A0> {[«24""»]|[$$ 1 => 12.5 ips speed.]}
<MI 2128c LEA.L 0x2031e,A1> {[«24""»]|[$$ 1 => 12.5 ips speed.]}
<BlockMove 27,A1,A0> {[«24""»]|[$$ 1 => 12.5 ips speed.]}
<POP 21298-2129a StackAdj> Δ-8 {[«24""»]|[$$ 1 => 12.5 ips speed.]|[-8-]}
<Lit 0x2129a> {[«24""»]|[$$ 1 => 12.5 ips speed.]|[-4-]|[$$…]}
<Pointer.sp 0x2129a 8> Δ-4
<Const 0x2129e 0x1.2> Δ-2
<Const 0x212a0 0x1b.2> Δ-2
<Call 0x212a4 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 212a6-212a8 StackAdj> Δ+8
<Const 0x212a8 0x0.4> Δ-4 {[«24""»]|[$$ 1 => 12.5 ips speed.]|[-4-]|[$$…]|[##0]}
<Const 0x212ac 0x1.4> Δ-4 {[«24""»]|[$$ 1 => 12.5 ips speed.]|[-4-]|[$$…]|[##0]|[##1]}
<Call 0x212b0 0x103ec> {[«24""»]|[$$ 1 => 12.5 ips speed.]|[-4-]|[$$…]|[##0]|[##1]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 212b6-212ba StackAdj> Δ+12 {[«24""»]|[$$ 1 => 12.5 ips speed.]|[-4-]}
<MI 212ba MOVE.L (A7)+,(A6+0x8)> Δ+4 {[«24""»]|[$$ 1 => 12.5 ips speed.]}
<POP 212be-212c2 StackAdj> Δ+28 {}
<POP 212c2-212ca Epilogue> Σ0
@ 212ca
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x022 @>
<LVAR -0x042 @>
<LVAR -0x062 @>
<LVAR -0x082 @>
<LVAR -0x0a2 @>
<POP 212ca-21496 Body>
<POP 212ca-212e0 Prologue> Σ0 ↓
<POP 212e0-212f6 RegCacheLoad> Σ0 ↓
<POP 212f6-21346 Naked> Σ0 ↓
<MI 212f6 LEA.L (A6-0xa2),A0> {}
<MI 212fa LEA.L 0x20c9e,A1> {}
<BlockMove 32,A1,A0> {}
<MI 21306 LEA.L (A6-0x82),A0> {}
<MI 2130a LEA.L 0x20cbe,A1> {}
<BlockMove 32,A1,A0> {}
<MI 21316 LEA.L (A6-0x62),A0> {}
<MI 2131a LEA.L 0x20cde,A1> {}
<BlockMove 32,A1,A0> {}
<MI 21326 LEA.L (A6-0x42),A0> {}
<MI 2132a LEA.L 0x20cfe,A1> {}
<BlockMove 32,A1,A0> {}
<MI 21336 LEA.L (A6-0x22),A0> {}
<MI 2133a LEA.L 0x20d1e,A1> {}
<BlockMove 32,A1,A0> {}
<POP 21346-2137e Naked> Σ0 ↓ →0x21382 ←0x213ee
<MI 21346 MOVEA.L (A6+0xc),A0> {}
<Blob 0x2134a [20] @> Δ-20 {[«20""»]}
<POP 21356-21358 StackAdj> Δ-6 {[«20""»]|[-6-]}
<Lit 0x21358 20> {[«20""»]|[-2-]|[$$Enter test number :_]}
<Call 0x21364 0x20e3e> {[«20""»]|[-2-]|[$$Enter test number :_]}
<POP 21368-2136a StackAdj> Δ+4 {[«20""»]|[-2-]}
<MI 2136a MOVE.W (A7)+,D0> Δ+2 {[«20""»]}
<POP 0x2136c LimitCheck 0x0 ≤ D0 ≤ 0xff> {[«20""»]}
<POP 2136e-21370 StackAdj> Δ+20 {}
<MI 21370 MOVE.W D0,(A0)> {}
<MI 21372 LEA.L (A6-0xa2),A0> {}
<MI 21376 MOVE.W D0,D1> {}
<MI 21378 LSR.W #0x3,D1> {}
<MI 2137a CMP.W #0x20,D1> {}
<MI 2137c BLT 0x21382> {}
<POP 2137e-21382 Naked> Σ0 →0x21386
<MI 2137e MOVEQ.L #0x00,D1> {}
<MI 21380 BRA 0x21386> {}
<POP 21382-21386 Naked> Σ0 ↓ ←0x21346
<MI 21382 BTST.B D0,(A0+D1.W)> {}
<POP 21386-21388 Naked> Σ0 ↓ →0x2138c ←0x2137e
<MI 21386 BEQ 0x2138c> {}
<POP 21388-2138c Naked> Σ0 →0x213ee
<MI 21388 MOVEQ.L #0x01,D7> {}
<MI 2138a BRA 0x213ee> {}
<POP 2138c-213ee Naked> Σ0 ↓ ←0x21386
<MI 2138c MOVEQ.L #0x00,D7> {}
<Blob 0x2138e [6] @> Δ-6 {[«6""»]}
<Blob 0x2139e [18] @> Δ-18 {[«6""»]|[«18""»]}
<POP 213aa-213ac StackAdj> Δ-8 {[«6""»]|[«18""»]|[-8-]}
<Lit 0x213ac 5> {[«6""»]|[«18""»]|[-4-]|[$$Test_]}
<POP 213b8-213ba StackAdj> Δ-4 {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]}
<MI 213ba MOVE.W D0,D1> {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]}
<MI 213bc EXTW.L D1> {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]}
<MI 213be MOVE.L D1,-(A7)> Δ-4 {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[4, 'D1']}
<Const 0x213c0 0x4.4> Δ-4 {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[4, 'D1']|[##4]}
<Call 0x213c4 0x102e8> {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[4, 'D1']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 213ca-213cc StackAdj> Δ+4 {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[4, 'D1']}
<Lit 0x213cc 18> {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[$$ is not supported.]}
<Call 0x213da 0x102d4> {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[$$ is not supported.]}
StringCat3(a, b, c : String) : String
<POP 213e0-213e4 StackAdj> Δ+12 {[«6""»]|[«18""»]|[-4-]}
<Call 0x213e4 0x103e0> {[«6""»]|[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 213ea-213ee StackAdj> Δ+28 {}
<POP 213ee-213f4 Naked> Σ0 ↓ →0x21346 ←0x21388
<MI 213ee TST.B D7> {}
<MI 213f0 BEQ 0x21346> {}
<POP 213f4-21400 Naked> Σ0 ↓ →0x21404
<MI 213f4 LEA.L (A6-0x82),A0> {}
<MI 213f8 MOVE.W D0,D1> {}
<MI 213fa LSR.W #0x3,D1> {}
<MI 213fc CMP.W #0x20,D1> {}
<MI 213fe BLT 0x21404> {}
<POP 21400-21404 Naked> Σ0 →0x21408
<MI 21400 MOVEQ.L #0x00,D1> {}
<MI 21402 BRA 0x21408> {}
<POP 21404-21408 Naked> Σ0 ↓ ←0x213f4
<MI 21404 BTST.B D0,(A0+D1.W)> {}
<POP 21408-2140a Naked> Σ0 ↓ →0x2141e ←0x21400
<MI 21408 BEQ 0x2141e> {}
<POP 2140a-2141a Naked> Σ0 ↓
<MI 2140a MOVEA.L (A6+0x8),A0> {}
<POP 2140c-2140e StackAdj> Δ-4 {[-4-]}
<Call 0x2140e 0x20f76> {[-4-]}
<MI 21412 MOVE.L (A7)+,D0> Δ+4 {}
<POP 0x21414 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<POP 2141a-2141e Naked> Σ0 →0x2148e ←0x21430 ←0x21454 ←0x21478
<MI 2141a MOVE.W D0,(A0)> {}
<MI 2141c BRA 0x2148e> {}
<POP 2141e-21426 Naked> Σ0 ↓ →0x2142a ←0x21408
<MI 2141e MOVE.W D0,D1> {}
<MI 21420 LSR.W #0x3,D1> {}
<MI 21422 CMP.W #0x20,D1> {}
<MI 21424 BLT 0x2142a> {}
<POP 21426-2142a Naked> Σ0 →0x2142e
<MI 21426 MOVEQ.L #0x00,D1> {}
<MI 21428 BRA 0x2142e> {}
<POP 2142a-2142e Naked> Σ0 ↓ ←0x2141e
<MI 2142a BTST.B D0,(A6+D1.W-#0x62)> {}
<POP 2142e-21430 Naked> Σ0 ↓ →0x21442 ←0x21426
<MI 2142e BEQ 0x21442> {}
<POP 21430-21442 Naked> Σ0 →0x2141a
<MI 21430 MOVEA.L (A6+0x8),A0> {}
<POP 21432-21434 StackAdj> Δ-4 {[-4-]}
<Call 0x21434 0x20fca> {[-4-]}
<MI 21438 MOVE.L (A7)+,D0> Δ+4 {}
<POP 0x2143a LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21440 BRA 0x2141a> {}
<POP 21442-2144a Naked> Σ0 ↓ →0x2144e ←0x2142e
<MI 21442 MOVE.W D0,D1> {}
<MI 21444 LSR.W #0x3,D1> {}
<MI 21446 CMP.W #0x20,D1> {}
<MI 21448 BLT 0x2144e> {}
<POP 2144a-2144e Naked> Σ0 →0x21452
<MI 2144a MOVEQ.L #0x00,D1> {}
<MI 2144c BRA 0x21452> {}
<POP 2144e-21452 Naked> Σ0 ↓ ←0x21442
<MI 2144e BTST.B D0,(A6+D1.W-#0x42)> {}
<POP 21452-21454 Naked> Σ0 ↓ →0x21466 ←0x2144a
<MI 21452 BEQ 0x21466> {}
<POP 21454-21466 Naked> Σ0 →0x2141a
<MI 21454 MOVEA.L (A6+0x8),A0> {}
<POP 21456-21458 StackAdj> Δ-4 {[-4-]}
<Call 0x21458 0x2110e> {[-4-]}
<MI 2145c MOVE.L (A7)+,D0> Δ+4 {}
<POP 0x2145e LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21464 BRA 0x2141a> {}
<POP 21466-2146e Naked> Σ0 ↓ →0x21472 ←0x21452
<MI 21466 MOVE.W D0,D1> {}
<MI 21468 LSR.W #0x3,D1> {}
<MI 2146a CMP.W #0x20,D1> {}
<MI 2146c BLT 0x21472> {}
<POP 2146e-21472 Naked> Σ0 →0x21476
<MI 2146e MOVEQ.L #0x00,D1> {}
<MI 21470 BRA 0x21476> {}
<POP 21472-21476 Naked> Σ0 ↓ ←0x21466
<MI 21472 BTST.B D0,(A6+D1.W-#0x22)> {}
<POP 21476-21478 Naked> Σ0 ↓ →0x2148a ←0x2146e
<MI 21476 BEQ 0x2148a> {}
<POP 21478-2148a Naked> Σ0 →0x2141a
<MI 21478 MOVEA.L (A6+0x8),A0> {}
<POP 2147a-2147c StackAdj> Δ-4 {[-4-]}
<Call 0x2147c 0x211fe> {[-4-]}
<MI 21480 MOVE.L (A7)+,D0> Δ+4 {}
<POP 0x21482 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21488 BRA 0x2141a> {}
<POP 2148a-2148e Naked> Σ0 ↓ ←0x21476
<MI 2148a MOVEA.L (A6+0x8),A0> {}
<MI 2148c CLR.W (A0)> {}
<POP 2148e-21496 Epilogue> Σ0 ←0x2141a
@ 21496
<LVAR 0x00c 2(r)>
<LVAR 0x008 4(r)>
<LVAR -0x010 @>
<LVAR -0x014 @>
<LVAR -0x016 @ 1(r)>
<LVAR -0x018 2(r)>
<LVAR -0x01a 2(r)>
<LVAR -0x01c 2(w)>
<LVAR -0x01e 2(r)>
<LVAR -0x020 2(r)>
<LVAR -0x022 2(w)>
<LVAR -0x024 2(r)>
<LVAR -0x026 @ 2(r)>
<POP 21496-2154a Body>
<POP 21496-214ac Prologue> Σ0 ↓
<POP 214ac-214ae RegCacheLoad> Σ0 ↓
<POP 214ae-214fe Naked> Σ0 ↓ →0x21532
<MI 214ae CLR.W (A6-0x26)> {}
<MI 214b2 CLR.W (A6-0x24)> {}
<MI 214b6 MOVE.W #0x3,(A6-0x22)> {}
<MI 214bc CLR.W (A6-0x20)> {}
<MI 214c0 CLR.W (A6-0x1e)> {}
<MI 214c4 MOVE.W (A6+0xc),D0> {}
<MI 214c8 ASL.W #0x8,D0> {}
<MI 214ca MOVE.W D0,(A6-0x1c)> {}
<MI 214ce CLR.W (A6-0x1a)> {}
<MI 214d2 CLR.W (A6-0x18)> {}
<Pointer.fp 0x214d6 <LVAR -0x026 @ 2(r)>> Δ-4 {[@@-38]}
<MI 214da LEA.L (A6-0x14),A0> {[@@-38]}
<MI 214de MOVE.L A0,-(A7)> Δ-4 {[@@-38]|[4, 'A0']}
<Const 0x214e0 0x1.2> Δ-2 {[@@-38]|[4, 'A0']|[#1]}
<Call 0x214e2 0x10204> {[@@-38]|[4, 'A0']|[#1]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 214e8-214ea StackAdj> Δ+8 {[-2-]}
<POP 214ea-214eb StackAdj> Δ+2 {}
<Const 0x214eb 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x214ec <LVAR -0x016 @ 1(r)>> Δ-4 {[#1]|[@@-22]}
<Call 0x214f0 0x10206> {[#1]|[@@-22]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 214f6-214f8 StackAdj> Δ+6 {}
<MI 214f8 TST.B (A6-0x16)> {}
<MI 214fc BNE 0x21532> {}
<POP 214fe-21532 Naked> Σ0 ↓
<Blob 0x214fe [50] @> Δ-50 {[«50""»]}
<Const 0x21510 0xe.2> Δ-2 {[«50""»]|[#14]}
<POP 21514-21516 StackAdj> Δ-4 {[«50""»]|[#14]|[-4-]}
<Lit 0x21516 49> {[«50""»]|[#14]|[$$Error on status read during diagnostic execution.]}
<Call 0x21528 0x103b8> {[«50""»]|[#14]|[$$Error on status read during diagnostic execution.]}
PopProgram(status : Byte; msg : String)
<POP 2152e-21532 StackAdj> Δ+56 {}
<POP 21532-21542 Naked> Σ0 ↓ ←0x214ae
<MI 21532 MOVEA.L (A6+0x8),A0> {}
<MI 21536 LEA.L (A6-0x10),A1> {}
<BlockMove 16,A1,A0> {}
<POP 21542-2154a Epilogue> Σ0
@ 2154a
<LVAR 0x008 2(r)>
<LVAR -0x008 2(r)>
<LVAR -0x010 @>
<LVAR -0x012 @ 1(r)>
<LVAR -0x014 2(r)>
<LVAR -0x016 2(r)>
<LVAR -0x018 2(w)>
<LVAR -0x01a 2(r)>
<LVAR -0x01c 2(r)>
<LVAR -0x01e 2(w)>
<LVAR -0x020 2(r)>
<LVAR -0x022 @ 2(r)>
<POP 2154a-215fe Body>
<POP 2154a-21560 Prologue> Σ0 ↓
<POP 21560-21562 RegCacheLoad> Σ0 ↓
<POP 21562-215b4 Naked> Σ0 ↓ →0x215de
<MI 21562 CLR.W (A6-0x22)> {}
<MI 21566 CLR.W (A6-0x20)> {}
<MI 2156a MOVE.W #0x3,(A6-0x1e)> {}
<MI 21570 CLR.W (A6-0x1c)> {}
<MI 21574 CLR.W (A6-0x1a)> {}
<MI 21578 MOVE.W (A6+0x8),D0> {}
<MI 2157c ASL.W #0x8,D0> {}
<MI 2157e ADDI.W #0x001b,D0> {}
<MI 21582 MOVE.W D0,(A6-0x18)> {}
<MI 21586 CLR.W (A6-0x16)> {}
<MI 2158a CLR.W (A6-0x14)> {}
<Pointer.fp 0x2158e <LVAR -0x022 @ 2(r)>> Δ-4 {[@@-34]}
<Const 0x21592 0x0.4> Δ-4 {[@@-34]|[##0]}
<Const 0x21596 0x1.2> Δ-2 {[@@-34]|[##0]|[#1]}
<Call 0x21598 0x10204> {[@@-34]|[##0]|[#1]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 2159e-215a0 StackAdj> Δ+8 {[-2-]}
<POP 215a0-215a1 StackAdj> Δ+2 {}
<Const 0x215a1 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x215a2 <LVAR -0x012 @ 1(r)>> Δ-4 {[#1]|[@@-18]}
<Call 0x215a6 0x10206> {[#1]|[@@-18]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 215ac-215ae StackAdj> Δ+6 {}
<MI 215ae TST.B (A6-0x12)> {}
<MI 215b2 BNE 0x215de> {}
<POP 215b4-215de Naked> Σ0 ↓
<Blob 0x215b4 [40] @> Δ-40 {[«40""»]}
<POP 215c0-215c2 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x215c2 40> {[«40""»]|[$$Error when issuing load/on-line command.]}
<Call 0x215d4 0x103e0> {[«40""»]|[$$Error when issuing load/on-line command.]}
WriteConsoleStringCrLf(str : String)
<POP 215da-215de StackAdj> Δ+44 {}
<POP 215de-215f6 Naked> Σ0 ↓ →0x215de ←0x21562 ←0x215de
<MI 215de MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Pointer.fp 0x215e2 <LVAR -0x010 @>> Δ-4 {[2, '(A6+0x8)']|[@@-16]}
<Call 0x215e6 0x21496> {[2, '(A6+0x8)']|[@@-16]}
<POP 215ea-215ec StackAdj> Δ+6 {}
<MI 215ec MOVE.W (A6-0x8),D0> {}
<MI 215f0 ANDI.W #0x0040,D0> {}
<MI 215f4 BEQ 0x215de> {}
<POP 215f6-215fe Epilogue> Σ0
@ 215fe
<LVAR 0x00c 2(r)>
<LVAR 0x00a 2(r)>
<LVAR 0x008 2(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x004 2(r)>
<LVAR -0x006 2(w)>
<LVAR -0x008 2(w)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 2(r)>
<LVAR -0x00e 2(w)>
<LVAR -0x010 2(r)>
<LVAR -0x012 @ 2(r)>
<LVAR -0x016 @ 4(w)>
<POP 215fe-216ae Body>
<POP 215fe-21614 Prologue> Σ0 ↓
<POP 21614-21616 RegCacheLoad> Σ0 ↓
<POP 21616-2167c Naked> Σ0 ↓ →0x216a6
<MI 21616 MOVE.W (A6+0x8),D0> {}
<MI 2161a ASL.W #0x8,D0> {}
<MI 2161c ADD.W (A6+0xa),D0> {}
<MI 21620 EXTW.L D0> {}
<MI 21622 MOVE.L D0,(A6-0x16)> {}
<MI 21626 CLR.W (A6-0x12)> {}
<MI 2162a CLR.W (A6-0x10)> {}
<MI 2162e MOVE.W #0x3,(A6-0xe)> {}
<MI 21634 CLR.W (A6-0xc)> {}
<MI 21638 CLR.W (A6-0xa)> {}
<MI 2163c MOVE.W (A6+0xc),D0> {}
<MI 21640 ASL.W #0x8,D0> {}
<MI 21642 ADDI.W #0x001a,D0> {}
<MI 21646 MOVE.W D0,(A6-0x8)> {}
<MI 2164a MOVE.W #0x2,(A6-0x6)> {}
<MI 21650 CLR.W (A6-0x4)> {}
<Pointer.fp 0x21654 <LVAR -0x012 @ 2(r)>> Δ-4 {[@@-18]}
<MI 21658 LEA.L (A6-0x16),A0> {[@@-18]}
<MI 2165c MOVE.L A0,-(A7)> Δ-4 {[@@-18]|[4, 'A0']}
<Const 0x2165e 0x1.2> Δ-2 {[@@-18]|[4, 'A0']|[#1]}
<Call 0x21660 0x10204> {[@@-18]|[4, 'A0']|[#1]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21666-21668 StackAdj> Δ+8 {[-2-]}
<POP 21668-21669 StackAdj> Δ+2 {}
<Const 0x21669 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2166a <LVAR -0x002 @ 1(r)>> Δ-4 {[#1]|[@@-2]}
<Call 0x2166e 0x10206> {[#1]|[@@-2]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21674-21676 StackAdj> Δ+6 {}
<MI 21676 TST.B (A6-0x2)> {}
<MI 2167a BNE 0x216a6> {}
<POP 2167c-216a6 Naked> Σ0 ↓
<Blob 0x2167c [38] @> Δ-38 {[«38""»]}
<POP 21688-2168a StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x2168a 38> {[«38""»]|[$$Error when issuing diagnostic command.]}
<Call 0x2169c 0x103e0> {[«38""»]|[$$Error when issuing diagnostic command.]}
WriteConsoleStringCrLf(str : String)
<POP 216a2-216a6 StackAdj> Δ+42 {}
<POP 216a6-216ae Epilogue> Σ0 ←0x21616
@ 216ae
<LVAR 0x010 2(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x00c 2(r)>
<LVAR -0x014 @>
<LVAR -0x026 2(r)>
<LVAR -0x028 2(r)>
<LVAR -0x030 @>
<LVAR -0x032 @>
<LVAR -0x034 2(r)>
<LVAR -0x036 2(w)>
<LVAR -0x038 2(w)>
<LVAR -0x03a 2(r)>
<LVAR -0x03c 2(r)>
<LVAR -0x03e 2(w)>
<LVAR -0x040 2(r)>
<LVAR -0x042 @ 2(r)>
<POP 216ae-21794 Body>
<POP 216ae-216c4 Prologue> Σ0 ↓
<POP 216c4-216c8 RegCacheLoad> Σ0 ↓
<POP 216c8-216f6 Naked> Σ0 ↓
<MI 216c8 CLR.W (A6-0x42)> {}
<MI 216cc CLR.W (A6-0x40)> {}
<MI 216d0 MOVE.W #0x3,(A6-0x3e)> {}
<MI 216d6 CLR.W (A6-0x3c)> {}
<MI 216da CLR.W (A6-0x3a)> {}
<MI 216de MOVE.W (A6+0x10),D0> {}
<MI 216e2 ASL.W #0x8,D0> {}
<MI 216e4 ADD.W #0x19,D0> {}
<MI 216e6 MOVE.W D0,(A6-0x38)> {}
<MI 216ea MOVE.W #0x1b,(A6-0x36)> {}
<MI 216f0 CLR.W (A6-0x34)> {}
<MI 216f4 MOVEQ.L #0x00,D7> {}
<POP 216f6-21730 Naked> Σ0 ↓ →0x21770 ←0x2173a
<Pointer.fp 0x216f6 <LVAR -0x042 @ 2(r)>> Δ-4 {[@@-66]}
<MI 216fa LEA.L (A6-0x30),A0> {[@@-66]}
<MI 216fe MOVE.L A0,-(A7)> Δ-4 {[@@-66]|[4, 'A0']}
<Const 0x21700 0x1.2> Δ-2 {[@@-66]|[4, 'A0']|[#1]}
<Call 0x21702 0x10204> {[@@-66]|[4, 'A0']|[#1]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21708-2170a StackAdj> Δ+8 {[-2-]}
<POP 2170a-2170b StackAdj> Δ+2 {}
<Const 0x2170b 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2170c <LVAR -0x032 @>> Δ-4 {[#1]|[@@-50]}
<Call 0x21710 0x10206> {[#1]|[@@-50]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21716-21718 StackAdj> Δ+4 {[#1]}
<MI 21718 MOVE.W (A6+0x10),(A7)> {[2, '(A6+0x10)']}
<Pointer.fp 0x2171c <LVAR -0x014 @>> Δ-4 {[2, '(A6+0x10)']|[@@-20]}
<Call 0x21720 0x21496> {[2, '(A6+0x10)']|[@@-20]}
<POP 21724-21726 StackAdj> Δ+6 {}
<MI 21726 MOVE.W (A6-0xc),D0> {}
<MI 2172a ANDI.W #0x4000,D0> {}
<MI 2172e BEQ 0x21770> {}
<POP 21730-2173a Naked> Σ0 ↓ →0x2173e
<MI 21730 ADDQ.L #0x1,D7> {}
<MI 21732 CMPI.L #0x00000002,D7> {}
<MI 21738 BGE 0x2173e> {}
<POP 2173a-2173c Naked> Σ0 →0x216f6
<MI 2173a BRA 0x216f6> {}
<POP 2173e-21770 Naked> Σ0 ↓ ←0x21730
<Blob 0x2173e [26] @> Δ-26 {[«26""»]}
<Const 0x21750 0xe.2> Δ-2 {[«26""»]|[#14]}
<POP 21754-21756 StackAdj> Δ-4 {[«26""»]|[#14]|[-4-]}
<Lit 0x21756 25> {[«26""»]|[#14]|[$$Error reading sense data!]}
<Call 0x21766 0x103b8> {[«26""»]|[#14]|[$$Error reading sense data!]}
PopProgram(status : Byte; msg : String)
<POP 2176c-21770 StackAdj> Δ+32 {}
<POP 21770-2178c Naked> Σ0 ↓ ←0x216f6
<MI 21770 MOVEA.L (A6+0xc),A0> {}
<MI 21774 MOVE.W (A6-0x28),D0> {}
<MI 21778 LSR.W #0x8,D0> {}
<MI 2177a ANDI.W #0x00ff,D0> {}
<MI 2177e MOVE.W D0,(A0)> {}
<MI 21780 MOVEA.L (A6+0x8),A0> {}
<MI 21784 MOVE.W (A6-0x26),(A0)> {}
<MI 21788 ANDI.W #0x00ff,(A0)> {}
<POP 2178c-21794 Epilogue> Σ0
@ 21794
<LVAR 0x014 2(r)>
<LVAR 0x012 2(r)>
<LVAR 0x010 2(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x012 @>
<POP 21794-217f8 Body>
<POP 21794-217aa Prologue> Σ0 ↓
<POP 217aa-217ae RegCacheLoad> Σ0 ↓
<POP 217ae-217c4 Naked> Σ0 ↓
<MI 217ae MOVE.W (A6+0x14),-(A7)> Δ-2 {[2, '(A6+0x14)']}
<Call 0x217b0 0x2154a> {[2, '(A6+0x14)']}
<MI 217b4 MOVE.W (A6+0x14),(A7)> {[2, '(A6+0x14)']}
<MI 217b6 MOVE.W (A6+0x12),-(A7)> Δ-2 {[2, '(A6+0x14)']|[2, '(A6+0x12)']}
<MI 217ba MOVE.W (A6+0x10),-(A7)> Δ-2 {[2, '(A6+0x14)']|[2, '(A6+0x12)']|[2, '(A6+0x10)']}
<Call 0x217be 0x215fe> {[2, '(A6+0x14)']|[2, '(A6+0x12)']|[2, '(A6+0x10)']}
<POP 217c2-217c4 StackAdj> Δ+6 {}
<POP 217c4-217da Naked> Σ0 ↓ →0x217c4 ←0x217c4
<MI 217c4 MOVE.W (A6+0x14),-(A7)> Δ-2 {[2, '(A6+0x14)']}
<Pointer.fp 0x217c6 <LVAR -0x012 @>> Δ-4 {[2, '(A6+0x14)']|[@@-18]}
<Call 0x217ca 0x21496> {[2, '(A6+0x14)']|[@@-18]}
<POP 217ce-217d0 StackAdj> Δ+6 {}
<MI 217d0 MOVE.W (A6-0xa),D0> {}
<MI 217d4 ANDI.W #0x0080,D0> {}
<MI 217d8 BNE 0x217c4> {}
<POP 217da-217f0 Naked> Σ0 ↓
<MI 217da MOVE.W (A6+0x14),-(A7)> Δ-2 {[2, '(A6+0x14)']}
<MI 217dc MOVEA.L (A6+0xc),A0> {[2, '(A6+0x14)']}
<MI 217e0 PEA.L (A0)> Δ-4 {[2, '(A6+0x14)']|[4, '^(A0)']}
<MI 217e2 MOVEA.L (A6+0x8),A0> {[2, '(A6+0x14)']|[4, '^(A0)']}
<MI 217e6 PEA.L (A0)> Δ-4 {[2, '(A6+0x14)']|[4, '^(A0)']|[4, '^(A0)']}
<Call 0x217e8 0x216ae> {[2, '(A6+0x14)']|[4, '^(A0)']|[4, '^(A0)']}
<POP 217ec-217f0 StackAdj> Δ+10 {}
<POP 217f0-217f8 Epilogue> Σ0
@ 217f8
<LVAR 0x008 4(r)>
<LVAR -0x016 @ 2(r)>
<LVAR -0x01a 2(r)>
<LVAR -0x01c 2(w)>
<LVAR -0x022 2(w)>
<LVAR -0x026 @>
<LVAR -0x028 @>
<POP 217f8-218c0 Body>
<POP 217f8-2180e Prologue> Σ0 ↓
<POP 2180e-21818 RegCacheLoad> Σ0 ↓
<POP 21818-21820 Naked> Σ0 ↓
<MI 21818 MOVE.W #0x03,(A6-0x22)> {}
<MI 2181c CLR.W (A6-0x1a)> {}
<POP 21820-2188a Naked> Σ0 ↓ →0x218b2 ←0x218b2
<MI 21820 MOVEA.L (A6+0x8),A0> {}
<Blob 0x21824 [24] @> Δ-24 {[«24""»]}
<POP 21830-21832 StackAdj> Δ-8 {[«24""»]|[-8-]}
<Lit 0x21832 24> {[«24""»]|[-4-]|[$$Enter STU unit number :_]}
<Const 0x21842 0x0.4> Δ-4 {[«24""»]|[-4-]|[$$Enter STU unit number :_]|[##0]}
<Const 0x21846 0x3.4> Δ-4 {[«24""»]|[-4-]|[$$Enter STU unit number :_]|[##0]|[##3]}
<Call 0x2184a 0x103ec> {[«24""»]|[-4-]|[$$Enter STU unit number :_]|[##0]|[##3]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 21850-21854 StackAdj> Δ+12 {[«24""»]|[-4-]}
<MI 21854 MOVE.L (A7)+,D0> Δ+4 {[«24""»]}
<POP 0x21856 LimitCheck 0x0 ≤ D0 ≤ 0x3> {[«24""»]}
<POP 2185c-2185e StackAdj> Δ+24 {}
<MI 2185e MOVE.W D0,(A0)> {}
<MI 21860 ASL.W #0x8,D0> {}
<MI 21862 MOVE.W D0,(A6-0x1c)> {}
<Pointer.fp 0x21866 <LVAR -0x026 @>> Δ-4 {[@@-38]}
<MI 2186a LEA.L (A6-0x16),A0> {[@@-38]}
<MI 2186c MOVE.L A0,-(A7)> Δ-4 {[@@-38]|[4, 'A0']}
<Const 0x2186e 0x1.2> Δ-2 {[@@-38]|[4, 'A0']|[#1]}
<Call 0x21870 0x10204> {[@@-38]|[4, 'A0']|[#1]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21876-21878 StackAdj> Δ+8 {[-2-]}
<POP 21878-21879 StackAdj> Δ+2 {}
<Const 0x21879 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2187a <LVAR -0x028 @>> Δ-4 {[#1]|[@@-40]}
<Call 0x2187e 0x10206> {[#1]|[@@-40]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21884-21886 StackAdj> Δ+6 {}
<MI 21886 TST.W (A6-0x16)> {}
<MI 21888 BNE 0x218b2> {}
<POP 2188a-218b2 Naked> Σ0 ↓
<Blob 0x2188a [20] @> Δ-20 {[«20""»]}
<POP 21896-21898 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21898 20> {[«20""»]|[$$Unit does not exist.]}
<Call 0x218aa 0x103e0> {[«20""»]|[$$Unit does not exist.]}
WriteConsoleStringCrLf(str : String)
<POP 218b0-218b2 StackAdj> Δ+24 {}
<POP 218b2-218b8 Naked> Σ0 ↓ →0x21820 ←0x21820
<MI 218b2 TST.W (A6-0x16)> {}
<MI 218b4 BEQ 0x21820> {}
<POP 218b8-218c0 Epilogue> Σ0
@ 218c0
<LVAR 0x008 2(r)>
<POP 218c0-222b2 Body> Δ+1630
<POP 218c0-218d6 Prologue> Σ0 ↓
<POP 218d6-218ea RegCacheLoad> Σ0 ↓
<POP 218ea-218f6 Naked> Σ0 ↓ →0x2225a
<MI 218ea MOVE.W (A6+0x8),D0> {}
<MI 218ee CMPI.W #0x0099,D0> {}
<MI 218f2 BHI 0x2225a> {}
<POP 218f6-21900 Naked> Σ0 →0x21a34 →0x21a5c →0x21a84 →0x21aaa →0x21aca →0x21af2 →0x21b0c →0x21b24 →0x21b36 →0x21b58 →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x21b76 →0x21b86 →0x21b9a →0x21bae →0x21bd6 →0x21be6 →0x21c12 →0x21c38 →0x21c4c →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x21c60 →0x21c74 →0x21ca0 →0x21cb0 →0x21cc0 →0x21cd0 →0x21cf0 →0x21d10 →0x21d24 →0x21d4a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x21d5e →0x21d8a →0x21d9e →0x21db2 →0x21dc6 →0x21dda →0x21dee →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x21e02 →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x21e12 →0x21e26 →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x21e3a →0x21e60 →0x21e86 →0x21ea8 →0x21ebc →0x21ed0 →0x21ee4 →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x21f06 →0x21f16 →0x21f32 →0x21f42 →0x21f6e →0x21f94 →0x21fc0 →0x21fda →0x21ff6 →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x22006 →0x2201a →0x2202e →0x22048 →0x22058 →0x22068 →0x2207c →0x22090 →0x220a4 →0x220b2 →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x220c8 →0x220dc →0x220ec →0x22102 →0x22116 →0x22126 →0x22136 →0x22146 →0x2225a →0x2215a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2225a →0x2216e →0x2217e →0x2218e →0x221ba →0x221ca →0x221da →0x22204 →0x22218 →0x22234 →0x22244
<MI 218f6 ADD.W D0,D0> {}
<MI 218f8 SWITCH D0.W> {}
<POP 21a34-21a44 Naked> Σ0 Δ-16 ↓ ←0x218f6
<Blob 0x21a34 [16] @> Δ-16 {[«16""»]}
<POP 21a44-21a50 Naked> Σ-16 Δ-12 ↓ ←0x21b86 ←0x21b9a ←0x21d10 ←0x21d4a ←0x21d8a ←0x21ed0
<POP 21a44-21a46 StackAdj> Δ-4 {[-20-]}
<Pointer.sp 0x21a46 4> Δ-4 {[-20-]|[^^4]}
<Const 0x21a4a 0x1.2> Δ-2 {[-20-]|[^^4]|[#1]}
<Const 0x21a4c 0xf.2> Δ-2 {[-20-]|[^^4]|[#1]|[#15]}
<POP 21a50-21a5c Naked> Σ-28 Δ+28 →0x22278 ←0x21b68
<Call 0x21a50 0x102c4> {[-28-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21a52-21a54 StackAdj> Δ+8 {[-20-]}
<MI 21a54 MOVEA.L (A7)+,A4> Δ+4 {[-16-]}
<POP 21a56-21a58 StackAdj> Δ+16 {}
<MI 21a58 BRA 0x22278> {}
<POP 21a5c-21a6c Naked> Σ0 Δ-20 ↓ ←0x218f6
<Blob 0x21a5c [20] @> Δ-20 {[«20""»]}
<POP 21a6c-21a78 Naked> Σ-20 Δ-12 ↓ ←0x21c38 ←0x21c4c ←0x21db2 ←0x21e26
<POP 21a6c-21a6e StackAdj> Δ-4 {[-24-]}
<Pointer.sp 0x21a6e 4> Δ-4 {[-24-]|[^^4]}
<Const 0x21a72 0x1.2> Δ-2 {[-24-]|[^^4]|[#1]}
<Const 0x21a74 0x13.2> Δ-2 {[-24-]|[^^4]|[#1]|[#19]}
<POP 21a78-21a84 Naked> Σ-32 Δ+32 →0x22278 ←0x21afe
<Call 0x21a78 0x102c4> {[-32-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21a7a-21a7c StackAdj> Δ+8 {[-24-]}
<MI 21a7c MOVEA.L (A7)+,A4> Δ+4 {[-20-]}
<POP 21a7e-21a80 StackAdj> Δ+20 {}
<MI 21a80 BRA 0x22278> {}
<POP 21a84-21a90 Naked> Σ0 Δ-30 ↓ ←0x218f6
<Blob 0x21a84 [30] @> Δ-30 {[«30""»]}
<POP 21a90-21a9c Naked> Σ-30 Δ-12 ↓ ←0x21cb0
<POP 21a90-21a92 StackAdj> Δ-4 {[-34-]}
<Pointer.sp 0x21a92 4> Δ-4 {[-34-]|[^^4]}
<Const 0x21a96 0x1.2> Δ-2 {[-34-]|[^^4]|[#1]}
<Const 0x21a98 0x1e.2> Δ-2 {[-34-]|[^^4]|[#1]|[#30]}
<POP 21a9c-21aaa Naked> Σ-42 Δ+42 →0x22278 ←0x21ee4
<Call 0x21a9c 0x102c4> {[-42-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21a9e-21aa0 StackAdj> Δ+8 {[-34-]}
<MI 21aa0 MOVEA.L (A7)+,A4> Δ+4 {[-30-]}
<POP 21aa2-21aa6 StackAdj> Δ+30 {}
<MI 21aa6 BRA 0x22278> {}
<POP 21aaa-21aca Naked> Σ0 →0x22278 ←0x218f6
<Blob 0x21aaa [4] @> Δ-4 {[«4""»]}
<Blob 0x21aae [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 21ab2-21ab4 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<Lit 0x21ab4 8> {[«4""»]|[«4""»]|[$$Id fault]}
<MI 21ac2 MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]}
<POP 21ac4-21ac6 StackAdj> Δ+8 {}
<MI 21ac6 BRA 0x22278> {}
<POP 21aca-21ada Naked> Σ0 Δ-22 ↓ ←0x218f6
<Blob 0x21aca [22] @> Δ-22 {[«22""»]}
<POP 21ada-21ae6 Naked> Σ-22 Δ-12 ↓ ←0x21b24 ←0x21dc6 ←0x22006 ←0x22146 ←0x2215a
<POP 21ada-21adc StackAdj> Δ-4 {[-26-]}
<Pointer.sp 0x21adc 4> Δ-4 {[-26-]|[^^4]}
<Const 0x21ae0 0x1.2> Δ-2 {[-26-]|[^^4]|[#1]}
<Const 0x21ae2 0x15.2> Δ-2 {[-26-]|[^^4]|[#1]|[#21]}
<POP 21ae6-21af2 Naked> Σ-34 Δ+34 →0x22278 ←0x21b18
<Call 0x21ae6 0x102c4> {[-34-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21ae8-21aea StackAdj> Δ+8 {[-26-]}
<MI 21aea MOVEA.L (A7)+,A4> Δ+4 {[-22-]}
<POP 21aec-21aee StackAdj> Δ+22 {}
<MI 21aee BRA 0x22278> {}
<POP 21af2-21afe Naked> Σ0 Δ-20 ↓ ←0x218f6
<Blob 0x21af2 [20] @> Δ-20 {[«20""»]}
<POP 21afe-21b0c Naked> Σ-20 Δ-12 →0x21a78 ←0x21e02
<POP 21afe-21b00 StackAdj> Δ-4 {[-24-]}
<Pointer.sp 0x21b00 4> Δ-4 {[-24-]|[^^4]}
<Const 0x21b04 0x1.2> Δ-2 {[-24-]|[^^4]|[#1]}
<Const 0x21b06 0x14.2> Δ-2 {[-24-]|[^^4]|[#1]|[#20]}
<MI 21b08 BRA 0x21a78> {[-24-]|[^^4]|[#1]|[#20]}
<POP 21b0c-21b18 Naked> Σ0 Δ-22 ↓ ←0x218f6
<Blob 0x21b0c [22] @> Δ-22 {[«22""»]}
<POP 21b18-21b24 Naked> Σ-22 Δ-12 →0x21ae6 ←0x21ca0
<POP 21b18-21b1a StackAdj> Δ-4 {[-26-]}
<Pointer.sp 0x21b1a 4> Δ-4 {[-26-]|[^^4]}
<Const 0x21b1e 0x1.2> Δ-2 {[-26-]|[^^4]|[#1]}
<Const 0x21b20 0x16.2> Δ-2 {[-26-]|[^^4]|[#1]|[#22]}
<MI 21b22 BRA 0x21ae6> {[-26-]|[^^4]|[#1]|[#22]}
<POP 21b24-21b36 Naked> Σ0 Δ-22 →0x21ada ←0x218f6
<Blob 0x21b24 [22] @> Δ-22 {[«22""»]}
<MI 21b34 BRA 0x21ada> {[«22""»]}
<POP 21b36-21b4c Naked> Σ0 Δ-24 ↓ ←0x218f6
<Blob 0x21b36 [4] @> Δ-4 {[«4""»]}
<Blob 0x21b3a [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21b3e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 21b42-21b44 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Pointer.sp 0x21b44 4> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[^^4]}
<Const 0x21b48 0x1.2> Δ-2 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[^^4]|[#1]}
<Const 0x21b4a 0xc.2> Δ-2 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[^^4]|[#1]|[#12]}
<POP 21b4c-21b58 Naked> Σ-24 Δ+24 →0x22278 ←0x21d00
<Call 0x21b4c 0x102c4> {[-24-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21b4e-21b50 StackAdj> Δ+8 {[-16-]}
<MI 21b50 MOVEA.L (A7)+,A4> Δ+4 {[-12-]}
<POP 21b52-21b54 StackAdj> Δ+12 {}
<MI 21b54 BRA 0x22278> {}
<POP 21b58-21b68 Naked> Σ0 Δ-16 ↓ ←0x218f6
<Blob 0x21b58 [4] @> Δ-4 {[«4""»]}
<Blob 0x21b5c [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21b60 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21b64 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21b68-21b76 Naked> Σ-16 Δ-12 →0x21a50 ←0x21ea8 ←0x22090 ←0x22204
<POP 21b68-21b6a StackAdj> Δ-4 {[-20-]}
<Pointer.sp 0x21b6a 4> Δ-4 {[-20-]|[^^4]}
<Const 0x21b6e 0x1.2> Δ-2 {[-20-]|[^^4]|[#1]}
<Const 0x21b70 0x10.2> Δ-2 {[-20-]|[^^4]|[#1]|[#16]}
<MI 21b72 BRA 0x21a50> {[-20-]|[^^4]|[#1]|[#16]}
<POP 21b76-21b86 Naked> Σ0 Δ-18 →0x22266 ←0x218f6
<Blob 0x21b76 [18] @> Δ-18 {[«18""»]}
<MI 21b82 BRA 0x22266> {[«18""»]}
<POP 21b86-21b9a Naked> Σ0 Δ-16 →0x21a44 ←0x218f6
<Blob 0x21b86 [16] @> Δ-16 {[«16""»]}
<MI 21b96 BRA 0x21a44> {[«16""»]}
<POP 21b9a-21bae Naked> Σ0 Δ-16 →0x21a44 ←0x218f6
<Blob 0x21b9a [16] @> Δ-16 {[«16""»]}
<MI 21baa BRA 0x21a44> {[«16""»]}
<POP 21bae-21bbe Naked> Σ0 Δ-26 ↓ ←0x218f6
<Blob 0x21bae [26] @> Δ-26 {[«26""»]}
<POP 21bbe-21bca Naked> Σ-26 Δ-12 ↓ ←0x21c60 ←0x21e12 ←0x21ebc ←0x22102
<POP 21bbe-21bc0 StackAdj> Δ-4 {[-30-]}
<Pointer.sp 0x21bc0 4> Δ-4 {[-30-]|[^^4]}
<Const 0x21bc4 0x1.2> Δ-2 {[-30-]|[^^4]|[#1]}
<Const 0x21bc6 0x19.2> Δ-2 {[-30-]|[^^4]|[#1]|[#25]}
<POP 21bca-21bd6 Naked> Σ-38 Δ+38 →0x22278 ←0x2203a
<Call 0x21bca 0x102c4> {[-38-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21bcc-21bce StackAdj> Δ+8 {[-30-]}
<MI 21bce MOVEA.L (A7)+,A4> Δ+4 {[-26-]}
<POP 21bd0-21bd2 StackAdj> Δ+26 {}
<MI 21bd2 BRA 0x22278> {}
<POP 21bd6-21be6 Naked> Σ0 Δ-18 →0x22266 ←0x218f6
<Blob 0x21bd6 [18] @> Δ-18 {[«18""»]}
<MI 21be2 BRA 0x22266> {[«18""»]}
<POP 21be6-21c04 Naked> Σ0 Δ-44 ↓ ←0x218f6
<Blob 0x21be6 [32] @> Δ-32 {[«32""»]}
<POP 21bf8-21bfa StackAdj> Δ-4 {[«32""»]|[-4-]}
<Pointer.sp 0x21bfa 4> Δ-4 {[«32""»]|[-4-]|[^^4]}
<Const 0x21bfe 0x1.2> Δ-2 {[«32""»]|[-4-]|[^^4]|[#1]}
<Const 0x21c00 0x1f.2> Δ-2 {[«32""»]|[-4-]|[^^4]|[#1]|[#31]}
<POP 21c04-21c12 Naked> Σ-44 Δ+44 →0x22278 ←0x21f16
<Call 0x21c04 0x102c4> {[-44-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21c06-21c08 StackAdj> Δ+8 {[-36-]}
<MI 21c08 MOVEA.L (A7)+,A4> Δ+4 {[-32-]}
<POP 21c0a-21c0e StackAdj> Δ+32 {}
<MI 21c0e BRA 0x22278> {}
<POP 21c12-21c1e Naked> Σ0 Δ-34 ↓ ←0x218f6
<Blob 0x21c12 [34] @> Δ-34 {[«34""»]}
<POP 21c1e-21c38 Naked> Σ-34 Δ+34 →0x22278 ←0x21f06 ←0x21f32 ←0x22048 ←0x22058
<POP 21c1e-21c20 StackAdj> Δ-4 {[-38-]}
<Lit 0x21c20> {[-34-]|[$$…]}
<Pointer.sp 0x21c20 4> Δ-4
<Const 0x21c24 0x1.2> Δ-2
<Const 0x21c26 0x22.2> Δ-2
<Call 0x21c2a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21c2c-21c2e StackAdj> Δ+8
<MI 21c2e MOVEA.L (A7)+,A4> Δ+4 {[-34-]}
<POP 21c30-21c34 StackAdj> Δ+34 {}
<MI 21c34 BRA 0x22278> {}
<POP 21c38-21c4c Naked> Σ0 Δ-20 →0x21a6c ←0x218f6
<Blob 0x21c38 [20] @> Δ-20 {[«20""»]}
<MI 21c48 BRA 0x21a6c> {[«20""»]}
<POP 21c4c-21c60 Naked> Σ0 Δ-20 →0x21a6c ←0x218f6
<Blob 0x21c4c [20] @> Δ-20 {[«20""»]}
<MI 21c5c BRA 0x21a6c> {[«20""»]}
<POP 21c60-21c74 Naked> Σ0 Δ-26 →0x21bbe ←0x218f6
<Blob 0x21c60 [26] @> Δ-26 {[«26""»]}
<MI 21c70 BRA 0x21bbe> {[«26""»]}
<POP 21c74-21c86 Naked> Σ0 Δ-28 ↓ ←0x218f6
<Blob 0x21c74 [28] @> Δ-28 {[«28""»]}
<POP 21c86-21c92 Naked> Σ-28 Δ-12 ↓ ←0x220b2
<POP 21c86-21c88 StackAdj> Δ-4 {[-32-]}
<Pointer.sp 0x21c88 4> Δ-4 {[-32-]|[^^4]}
<Const 0x21c8c 0x1.2> Δ-2 {[-32-]|[^^4]|[#1]}
<Const 0x21c8e 0x1b.2> Δ-2 {[-32-]|[^^4]|[#1]|[#27]}
<POP 21c92-21ca0 Naked> Σ-40 Δ+40 →0x22278 ←0x21fe6
<Call 0x21c92 0x102c4> {[-40-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21c94-21c96 StackAdj> Δ+8 {[-32-]}
<MI 21c96 MOVEA.L (A7)+,A4> Δ+4 {[-28-]}
<POP 21c98-21c9c StackAdj> Δ+28 {}
<MI 21c9c BRA 0x22278> {}
<POP 21ca0-21cb0 Naked> Σ0 Δ-22 →0x21b18 ←0x218f6
<Blob 0x21ca0 [22] @> Δ-22 {[«22""»]}
<MI 21cac BRA 0x21b18> {[«22""»]}
<POP 21cb0-21cc0 Naked> Σ0 Δ-30 →0x21a90 ←0x218f6
<Blob 0x21cb0 [30] @> Δ-30 {[«30""»]}
<MI 21cbc BRA 0x21a90> {[«30""»]}
<POP 21cc0-21cd0 Naked> Σ0 Δ-18 →0x22266 ←0x218f6
<Blob 0x21cc0 [18] @> Δ-18 {[«18""»]}
<MI 21ccc BRA 0x22266> {[«18""»]}
<POP 21cd0-21ce0 Naked> Σ0 Δ-18 ↓ ←0x218f6
<Blob 0x21cd0 [18] @> Δ-18 {[«18""»]}
<POP 21ce0-21cf0 Naked> Σ-18 Δ-12 →0x22270 ←0x21d9e ←0x21dda ←0x2201a ←0x22068 ←0x2207c ←0x220c8
<POP 21ce0-21ce2 StackAdj> Δ-4 {[-22-]}
<Pointer.sp 0x21ce2 4> Δ-4 {[-22-]|[^^4]}
<Const 0x21ce6 0x1.2> Δ-2 {[-22-]|[^^4]|[#1]}
<Const 0x21ce8 0x11.2> Δ-2 {[-22-]|[^^4]|[#1]|[#17]}
<MI 21cec BRA 0x22270> {[-22-]|[^^4]|[#1]|[#17]}
<POP 21cf0-21d00 Naked> Σ0 Δ-12 ↓ ←0x218f6
<Blob 0x21cf0 [12] @> Δ-12 {[«12""»]}
<POP 21d00-21d10 Naked> Σ-12 Δ-12 →0x21b4c ←0x21dee
<POP 21d00-21d02 StackAdj> Δ-4 {[-16-]}
<Pointer.sp 0x21d02 4> Δ-4 {[-16-]|[^^4]}
<Const 0x21d06 0x1.2> Δ-2 {[-16-]|[^^4]|[#1]}
<Const 0x21d08 0xb.2> Δ-2 {[-16-]|[^^4]|[#1]|[#11]}
<MI 21d0c BRA 0x21b4c> {[-16-]|[^^4]|[#1]|[#11]}
<POP 21d10-21d24 Naked> Σ0 Δ-16 →0x21a44 ←0x218f6
<Blob 0x21d10 [16] @> Δ-16 {[«16""»]}
<MI 21d20 BRA 0x21a44> {[«16""»]}
<POP 21d24-21d30 Naked> Σ0 Δ-24 ↓ ←0x218f6
<Blob 0x21d24 [24] @> Δ-24 {[«24""»]}
<POP 21d30-21d3c Naked> Σ-24 Δ-12 ↓ ←0x21ff6 ←0x22116 ←0x22136 ←0x2216e ←0x22234
<POP 21d30-21d32 StackAdj> Δ-4 {[-28-]}
<Pointer.sp 0x21d32 4> Δ-4 {[-28-]|[^^4]}
<Const 0x21d36 0x1.2> Δ-2 {[-28-]|[^^4]|[#1]}
<Const 0x21d38 0x18.2> Δ-2 {[-28-]|[^^4]|[#1]|[#24]}
<POP 21d3c-21d4a Naked> Σ-36 Δ+36 →0x22278 ←0x21e98
<Call 0x21d3c 0x102c4> {[-36-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21d3e-21d40 StackAdj> Δ+8 {[-28-]}
<MI 21d40 MOVEA.L (A7)+,A4> Δ+4 {[-24-]}
<POP 21d42-21d46 StackAdj> Δ+24 {}
<MI 21d46 BRA 0x22278> {}
<POP 21d4a-21d5e Naked> Σ0 Δ-16 →0x21a44 ←0x218f6
<Blob 0x21d4a [16] @> Δ-16 {[«16""»]}
<MI 21d5a BRA 0x21a44> {[«16""»]}
<POP 21d5e-21d8a Naked> Σ0 →0x22278 ←0x218f6
<Blob 0x21d5e [14] @> Δ-14 {[«14""»]}
<POP 21d70-21d72 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x21d72 13> {[«14""»]|[$$Up ramp fault]}
<MI 21d80 MOVEA.L (A7)+,A4> Δ+4 {[«14""»]}
<POP 21d82-21d86 StackAdj> Δ+14 {}
<MI 21d86 BRA 0x22278> {}
<POP 21d8a-21d9e Naked> Σ0 Δ-16 →0x21a44 ←0x218f6
<Blob 0x21d8a [16] @> Δ-16 {[«16""»]}
<MI 21d9a BRA 0x21a44> {[«16""»]}
<POP 21d9e-21db2 Naked> Σ0 Δ-18 →0x21ce0 ←0x218f6
<Blob 0x21d9e [18] @> Δ-18 {[«18""»]}
<MI 21dae BRA 0x21ce0> {[«18""»]}
<POP 21db2-21dc6 Naked> Σ0 Δ-20 →0x21a6c ←0x218f6
<Blob 0x21db2 [20] @> Δ-20 {[«20""»]}
<MI 21dc2 BRA 0x21a6c> {[«20""»]}
<POP 21dc6-21dda Naked> Σ0 Δ-22 →0x21ada ←0x218f6
<Blob 0x21dc6 [22] @> Δ-22 {[«22""»]}
<MI 21dd6 BRA 0x21ada> {[«22""»]}
<POP 21dda-21dee Naked> Σ0 Δ-18 →0x21ce0 ←0x218f6
<Blob 0x21dda [18] @> Δ-18 {[«18""»]}
<MI 21dea BRA 0x21ce0> {[«18""»]}
<POP 21dee-21e02 Naked> Σ0 Δ-12 →0x21d00 ←0x218f6
<Blob 0x21dee [12] @> Δ-12 {[«12""»]}
<MI 21dfe BRA 0x21d00> {[«12""»]}
<POP 21e02-21e12 Naked> Σ0 Δ-20 →0x21afe ←0x218f6
<Blob 0x21e02 [20] @> Δ-20 {[«20""»]}
<MI 21e0e BRA 0x21afe> {[«20""»]}
<POP 21e12-21e26 Naked> Σ0 Δ-26 →0x21bbe ←0x218f6
<Blob 0x21e12 [26] @> Δ-26 {[«26""»]}
<MI 21e22 BRA 0x21bbe> {[«26""»]}
<POP 21e26-21e3a Naked> Σ0 Δ-20 →0x21a6c ←0x218f6
<Blob 0x21e26 [20] @> Δ-20 {[«20""»]}
<MI 21e36 BRA 0x21a6c> {[«20""»]}
<POP 21e3a-21e60 Naked> Σ0 →0x22278 ←0x218f6
<Blob 0x21e3a [38] @> Δ-38 {[«38""»]}
<POP 21e46-21e48 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x21e48 38> {[«38""»]|[$$Irrecoverable device healthcheck fault]}
<MI 21e56 MOVEA.L (A7)+,A4> Δ+4 {[«38""»]}
<POP 21e58-21e5c StackAdj> Δ+38 {}
<MI 21e5c BRA 0x22278> {}
<POP 21e60-21e86 Naked> Σ0 →0x22278 ←0x218f6
<Blob 0x21e60 [36] @> Δ-36 {[«36""»]}
<POP 21e6c-21e6e StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x21e6e 36> {[«36""»]|[$$Recoverable device healthcheck fault]}
<MI 21e7c MOVEA.L (A7)+,A4> Δ+4 {[«36""»]}
<POP 21e7e-21e82 StackAdj> Δ+36 {}
<MI 21e82 BRA 0x22278> {}
<POP 21e86-21e98 Naked> Σ0 Δ-24 ↓ ←0x218f6
<Blob 0x21e86 [24] @> Δ-24 {[«24""»]}
<POP 21e98-21ea8 Naked> Σ-24 Δ-12 →0x21d3c ←0x220ec ←0x22244
<POP 21e98-21e9a StackAdj> Δ-4 {[-28-]}
<Pointer.sp 0x21e9a 4> Δ-4 {[-28-]|[^^4]}
<Const 0x21e9e 0x1.2> Δ-2 {[-28-]|[^^4]|[#1]}
<Const 0x21ea0 0x17.2> Δ-2 {[-28-]|[^^4]|[#1]|[#23]}
<MI 21ea4 BRA 0x21d3c> {[-28-]|[^^4]|[#1]|[#23]}
<POP 21ea8-21ebc Naked> Σ0 Δ-16 →0x21b68 ←0x218f6
<Blob 0x21ea8 [4] @> Δ-4 {[«4""»]}
<Blob 0x21eac [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21eb0 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21eb4 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 21eb8 BRA 0x21b68> {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21ebc-21ed0 Naked> Σ0 Δ-26 →0x21bbe ←0x218f6
<Blob 0x21ebc [26] @> Δ-26 {[«26""»]}
<MI 21ecc BRA 0x21bbe> {[«26""»]}
<POP 21ed0-21ee4 Naked> Σ0 Δ-16 →0x21a44 ←0x218f6
<Blob 0x21ed0 [16] @> Δ-16 {[«16""»]}
<MI 21ee0 BRA 0x21a44> {[«16""»]}
<POP 21ee4-21f06 Naked> Σ0 Δ-42 →0x21a9c ←0x218f6
<Blob 0x21ee4 [30] @> Δ-30 {[«30""»]}
<POP 21ef6-21ef8 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Pointer.sp 0x21ef8 4> Δ-4 {[«30""»]|[-4-]|[^^4]}
<Const 0x21efc 0x1.2> Δ-2 {[«30""»]|[-4-]|[^^4]|[#1]}
<Const 0x21efe 0x1d.2> Δ-2 {[«30""»]|[-4-]|[^^4]|[#1]|[#29]}
<MI 21f02 BRA 0x21a9c> {[«30""»]|[-4-]|[^^4]|[#1]|[#29]}
<POP 21f06-21f16 Naked> Σ0 Δ-34 →0x21c1e ←0x218f6
<Blob 0x21f06 [34] @> Δ-34 {[«34""»]}
<MI 21f12 BRA 0x21c1e> {[«34""»]}
<POP 21f16-21f32 Naked> Σ0 Δ-44 →0x21c04 ←0x218f6
<Blob 0x21f16 [32] @> Δ-32 {[«32""»]}
<POP 21f22-21f24 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Pointer.sp 0x21f24 4> Δ-4 {[«32""»]|[-4-]|[^^4]}
<Const 0x21f28 0x1.2> Δ-2 {[«32""»]|[-4-]|[^^4]|[#1]}
<Const 0x21f2a 0x20.2> Δ-2 {[«32""»]|[-4-]|[^^4]|[#1]|[#32]}
<MI 21f2e BRA 0x21c04> {[«32""»]|[-4-]|[^^4]|[#1]|[#32]}
<POP 21f32-21f42 Naked> Σ0 Δ-34 →0x21c1e ←0x218f6
<Blob 0x21f32 [34] @> Δ-34 {[«34""»]}
<MI 21f3e BRA 0x21c1e> {[«34""»]}
<POP 21f42-21f60 Naked> Σ0 Δ-56 ↓ ←0x218f6
<Blob 0x21f42 [44] @> Δ-44 {[«44""»]}
<POP 21f54-21f56 StackAdj> Δ-4 {[«44""»]|[-4-]}
<Pointer.sp 0x21f56 4> Δ-4 {[«44""»]|[-4-]|[^^4]}
<Const 0x21f5a 0x1.2> Δ-2 {[«44""»]|[-4-]|[^^4]|[#1]}
<Const 0x21f5c 0x2b.2> Δ-2 {[«44""»]|[-4-]|[^^4]|[#1]|[#43]}
<POP 21f60-21f6e Naked> Σ-56 Δ+56 →0x22278 ←0x22218
<Call 0x21f60 0x102c4> {[-56-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21f62-21f64 StackAdj> Δ+8 {[-48-]}
<MI 21f64 MOVEA.L (A7)+,A4> Δ+4 {[-44-]}
<POP 21f66-21f6a StackAdj> Δ+44 {}
<MI 21f6a BRA 0x22278> {}
<POP 21f6e-21f7a Naked> Σ0 Δ-50 ↓ ←0x218f6
<Blob 0x21f6e [50] @> Δ-50 {[«50""»]}
<POP 21f7a-21f94 Naked> Σ-50 Δ+50 →0x22278 ←0x221ba
<POP 21f7a-21f7c StackAdj> Δ-4 {[-54-]}
<Lit 0x21f7c> {[-50-]|[$$…]}
<Pointer.sp 0x21f7c 4> Δ-4
<Const 0x21f80 0x1.2> Δ-2
<Const 0x21f82 0x32.2> Δ-2
<Call 0x21f86 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21f88-21f8a StackAdj> Δ+8
<MI 21f8a MOVEA.L (A7)+,A4> Δ+4 {[-50-]}
<POP 21f8c-21f90 StackAdj> Δ+50 {}
<MI 21f90 BRA 0x22278> {}
<POP 21f94-21fb2 Naked> Σ0 Δ-52 ↓ ←0x218f6
<Blob 0x21f94 [40] @> Δ-40 {[«40""»]}
<POP 21fa6-21fa8 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Pointer.sp 0x21fa8 4> Δ-4 {[«40""»]|[-4-]|[^^4]}
<Const 0x21fac 0x1.2> Δ-2 {[«40""»]|[-4-]|[^^4]|[#1]}
<Const 0x21fae 0x27.2> Δ-2 {[«40""»]|[-4-]|[^^4]|[#1]|[#39]}
<POP 21fb2-21fc0 Naked> Σ-52 Δ+52 →0x22278 ←0x21fc0
<Call 0x21fb2 0x102c4> {[-52-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21fb4-21fb6 StackAdj> Δ+8 {[-44-]}
<MI 21fb6 MOVEA.L (A7)+,A4> Δ+4 {[-40-]}
<POP 21fb8-21fbc StackAdj> Δ+40 {}
<MI 21fbc BRA 0x22278> {}
<POP 21fc0-21fda Naked> Σ0 Δ-52 →0x21fb2 ←0x218f6
<Blob 0x21fc0 [40] @> Δ-40 {[«40""»]}
<POP 21fcc-21fce StackAdj> Δ-4 {[«40""»]|[-4-]}
<Pointer.sp 0x21fce 4> Δ-4 {[«40""»]|[-4-]|[^^4]}
<Const 0x21fd2 0x1.2> Δ-2 {[«40""»]|[-4-]|[^^4]|[#1]}
<Const 0x21fd4 0x28.2> Δ-2 {[«40""»]|[-4-]|[^^4]|[#1]|[#40]}
<MI 21fd8 BRA 0x21fb2> {[«40""»]|[-4-]|[^^4]|[#1]|[#40]}
<POP 21fda-21fe6 Naked> Σ0 Δ-28 ↓ ←0x218f6
<Blob 0x21fda [28] @> Δ-28 {[«28""»]}
<POP 21fe6-21ff6 Naked> Σ-28 Δ-12 →0x21c92 ←0x22126
<POP 21fe6-21fe8 StackAdj> Δ-4 {[-32-]}
<Pointer.sp 0x21fe8 4> Δ-4 {[-32-]|[^^4]}
<Const 0x21fec 0x1.2> Δ-2 {[-32-]|[^^4]|[#1]}
<Const 0x21fee 0x1c.2> Δ-2 {[-32-]|[^^4]|[#1]|[#28]}
<MI 21ff2 BRA 0x21c92> {[-32-]|[^^4]|[#1]|[#28]}
<POP 21ff6-22006 Naked> Σ0 Δ-24 →0x21d30 ←0x218f6
<Blob 0x21ff6 [24] @> Δ-24 {[«24""»]}
<MI 22002 BRA 0x21d30> {[«24""»]}
<POP 22006-2201a Naked> Σ0 Δ-22 →0x21ada ←0x218f6
<Blob 0x22006 [22] @> Δ-22 {[«22""»]}
<MI 22016 BRA 0x21ada> {[«22""»]}
<POP 2201a-2202e Naked> Σ0 Δ-18 →0x21ce0 ←0x218f6
<Blob 0x2201a [18] @> Δ-18 {[«18""»]}
<MI 2202a BRA 0x21ce0> {[«18""»]}
<POP 2202e-2203a Naked> Σ0 Δ-26 ↓ ←0x218f6
<Blob 0x2202e [26] @> Δ-26 {[«26""»]}
<POP 2203a-22048 Naked> Σ-26 Δ-12 →0x21bca ←0x220a4
<POP 2203a-2203c StackAdj> Δ-4 {[-30-]}
<Pointer.sp 0x2203c 4> Δ-4 {[-30-]|[^^4]}
<Const 0x22040 0x1.2> Δ-2 {[-30-]|[^^4]|[#1]}
<Const 0x22042 0x1a.2> Δ-2 {[-30-]|[^^4]|[#1]|[#26]}
<MI 22044 BRA 0x21bca> {[-30-]|[^^4]|[#1]|[#26]}
<POP 22048-22058 Naked> Σ0 Δ-34 →0x21c1e ←0x218f6
<Blob 0x22048 [34] @> Δ-34 {[«34""»]}
<MI 22054 BRA 0x21c1e> {[«34""»]}
<POP 22058-22068 Naked> Σ0 Δ-34 →0x21c1e ←0x218f6
<Blob 0x22058 [34] @> Δ-34 {[«34""»]}
<MI 22064 BRA 0x21c1e> {[«34""»]}
<POP 22068-2207c Naked> Σ0 Δ-18 →0x21ce0 ←0x218f6
<Blob 0x22068 [18] @> Δ-18 {[«18""»]}
<MI 22078 BRA 0x21ce0> {[«18""»]}
<POP 2207c-22090 Naked> Σ0 Δ-18 →0x21ce0 ←0x218f6
<Blob 0x2207c [18] @> Δ-18 {[«18""»]}
<MI 2208c BRA 0x21ce0> {[«18""»]}
<POP 22090-220a4 Naked> Σ0 Δ-16 →0x21b68 ←0x218f6
<Blob 0x22090 [4] @> Δ-4 {[«4""»]}
<Blob 0x22094 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x22098 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2209c [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 220a0 BRA 0x21b68> {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 220a4-220b2 Naked> Σ0 Δ-26 →0x2203a ←0x218f6
<Blob 0x220a4 [26] @> Δ-26 {[«26""»]}
<MI 220b0 BRA 0x2203a> {[«26""»]}
<POP 220b2-220c8 Naked> Σ0 Δ-28 →0x21c86 ←0x218f6
<Blob 0x220b2 [28] @> Δ-28 {[«28""»]}
<MI 220c4 BRA 0x21c86> {[«28""»]}
<POP 220c8-220dc Naked> Σ0 Δ-18 →0x21ce0 ←0x218f6
<Blob 0x220c8 [18] @> Δ-18 {[«18""»]}
<MI 220d8 BRA 0x21ce0> {[«18""»]}
<POP 220dc-220ec Naked> Σ0 Δ-18 →0x22266 ←0x218f6
<Blob 0x220dc [18] @> Δ-18 {[«18""»]}
<MI 220e8 BRA 0x22266> {[«18""»]}
<POP 220ec-22102 Naked> Σ0 Δ-24 →0x21e98 ←0x218f6
<Blob 0x220ec [24] @> Δ-24 {[«24""»]}
<MI 220fe BRA 0x21e98> {[«24""»]}
<POP 22102-22116 Naked> Σ0 Δ-26 →0x21bbe ←0x218f6
<Blob 0x22102 [26] @> Δ-26 {[«26""»]}
<MI 22112 BRA 0x21bbe> {[«26""»]}
<POP 22116-22126 Naked> Σ0 Δ-24 →0x21d30 ←0x218f6
<Blob 0x22116 [24] @> Δ-24 {[«24""»]}
<MI 22122 BRA 0x21d30> {[«24""»]}
<POP 22126-22136 Naked> Σ0 Δ-28 →0x21fe6 ←0x218f6
<Blob 0x22126 [28] @> Δ-28 {[«28""»]}
<MI 22132 BRA 0x21fe6> {[«28""»]}
<POP 22136-22146 Naked> Σ0 Δ-24 →0x21d30 ←0x218f6
<Blob 0x22136 [24] @> Δ-24 {[«24""»]}
<MI 22142 BRA 0x21d30> {[«24""»]}
<POP 22146-2215a Naked> Σ0 Δ-22 →0x21ada ←0x218f6
<Blob 0x22146 [22] @> Δ-22 {[«22""»]}
<MI 22156 BRA 0x21ada> {[«22""»]}
<POP 2215a-2216e Naked> Σ0 Δ-22 →0x21ada ←0x218f6
<Blob 0x2215a [22] @> Δ-22 {[«22""»]}
<MI 2216a BRA 0x21ada> {[«22""»]}
<POP 2216e-2217e Naked> Σ0 Δ-24 →0x21d30 ←0x218f6
<Blob 0x2216e [24] @> Δ-24 {[«24""»]}
<MI 2217a BRA 0x21d30> {[«24""»]}
<POP 2217e-2218e Naked> Σ0 Δ-18 →0x22266 ←0x218f6
<Blob 0x2217e [18] @> Δ-18 {[«18""»]}
<MI 2218a BRA 0x22266> {[«18""»]}
<POP 2218e-221ba Naked> Σ0 →0x22278 ←0x218f6
<Blob 0x2218e [48] @> Δ-48 {[«48""»]}
<POP 221a0-221a2 StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x221a2 47> {[«48""»]|[$$Filter/regulator, pump, servo-control PWA fault]}
<MI 221b0 MOVEA.L (A7)+,A4> Δ+4 {[«48""»]}
<POP 221b2-221b6 StackAdj> Δ+48 {}
<MI 221b6 BRA 0x22278> {}
<POP 221ba-221ca Naked> Σ0 Δ-50 →0x21f7a ←0x218f6
<Blob 0x221ba [50] @> Δ-50 {[«50""»]}
<MI 221c6 BRA 0x21f7a> {[«50""»]}
<POP 221ca-221da Naked> Σ0 Δ-18 →0x22266 ←0x218f6
<Blob 0x221ca [18] @> Δ-18 {[«18""»]}
<MI 221d6 BRA 0x22266> {[«18""»]}
<POP 221da-22204 Naked> Σ0 →0x22278 ←0x218f6
<Blob 0x221da [52] @> Δ-52 {[«52""»]}
<POP 221ec-221ee StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x221ee 51> {[«52""»]|[$$Formatter interrupt received while test in progress]}
<MI 221fc MOVEA.L (A7)+,A4> Δ+4 {[«52""»]}
<POP 221fe-22202 StackAdj> Δ+52 {}
<MI 22202 BRA 0x22278> {}
<POP 22204-22218 Naked> Σ0 Δ-16 →0x21b68 ←0x218f6
<Blob 0x22204 [4] @> Δ-4 {[«4""»]}
<Blob 0x22208 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2220c [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x22210 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 22214 BRA 0x21b68> {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 22218-22234 Naked> Σ0 Δ-56 →0x21f60 ←0x218f6
<Blob 0x22218 [44] @> Δ-44 {[«44""»]}
<POP 22224-22226 StackAdj> Δ-4 {[«44""»]|[-4-]}
<Pointer.sp 0x22226 4> Δ-4 {[«44""»]|[-4-]|[^^4]}
<Const 0x2222a 0x1.2> Δ-2 {[«44""»]|[-4-]|[^^4]|[#1]}
<Const 0x2222c 0x2c.2> Δ-2 {[«44""»]|[-4-]|[^^4]|[#1]|[#44]}
<MI 22230 BRA 0x21f60> {[«44""»]|[-4-]|[^^4]|[#1]|[#44]}
<POP 22234-22244 Naked> Σ0 Δ-24 →0x21d30 ←0x218f6
<Blob 0x22234 [24] @> Δ-24 {[«24""»]}
<MI 22240 BRA 0x21d30> {[«24""»]}
<POP 22244-2225a Naked> Σ0 Δ-24 →0x21e98 ←0x218f6
<Blob 0x22244 [24] @> Δ-24 {[«24""»]}
<MI 22256 BRA 0x21e98> {[«24""»]}
<POP 2225a-22266 Naked> Σ0 Δ-18 ↓ ←0x218ea ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6 ←0x218f6
<Blob 0x2225a [18] @> Δ-18 {[«18""»]}
<POP 22266-22270 Naked> Σ-18 Δ-12 ↓ ←0x21b76 ←0x21bd6 ←0x21cc0 ←0x220dc ←0x2217e ←0x221ca
<POP 22266-22268 StackAdj> Δ-4 {[-22-]}
<Pointer.sp 0x22268 4> Δ-4 {[-22-]|[^^4]}
<Const 0x2226c 0x1.2> Δ-2 {[-22-]|[^^4]|[#1]}
<Const 0x2226e 0x12.2> Δ-2 {[-22-]|[^^4]|[#1]|[#18]}
<POP 22270-22278 Naked> Σ-30 Δ+30 ↓ ←0x21ce0
<Call 0x22270 0x102c4> {[-30-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22272-22274 StackAdj> Δ+8 {[-22-]}
<MI 22274 MOVEA.L (A7)+,A4> Δ+4 {[-18-]}
<POP 22276-22278 StackAdj> Δ+18 {}
<POP 22278-222aa Naked> Σ0 ↓ ←0x21a50 ←0x21a78 ←0x21a9c ←0x21aaa ←0x21ae6 ←0x21b4c ←0x21bca ←0x21c04 ←0x21c1e ←0x21c92 ←0x21d3c ←0x21d5e ←0x21e3a ←0x21e60 ←0x21f60 ←0x21f7a ←0x21fb2 ←0x2218e ←0x221da
<Blob 0x22278 [2] @> Δ-2 {[«2""»]}
<POP 2227c-2227e StackAdj> Δ-4 {[«2""»]|[-4-]}
<MI 2227e MOVE.L A4,-(A7)> Δ-4 {[«2""»]|[-4-]|[4, 'A4']}
<POP 22280-22282 StackAdj> Δ-4 {[«2""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x22282 2> {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]}
<POP 2228e-22290 StackAdj> Δ-6 {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]|[-6-]}
<MI 22290 MOVE.W (A6+0x8),(A7)> {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]|[-4-]|[2, '(A6+0x8)']}
<Call 0x22294 0x20d92> {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]|[-4-]|[2, '(A6+0x8)']}
<POP 22298-2229a StackAdj> Δ+2 {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]|[-4-]}
<Call 0x2229a 0x102d4> {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]|[-4-]}
StringCat3(a, b, c : String) : String
<POP 222a0-222a2 StackAdj> Δ+12 {[«2""»]|[-4-]}
<Call 0x222a2 0x103e0> {[«2""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 222a8-222aa StackAdj> Δ+6 {}
<POP 222aa-222b2 Epilogue> Σ0
@ 222b2
START
<POP 222b2--0001 Body>
<POP 222b2-222bc Prologue> Σ0
<POP 222bc-222d8 RegCacheLoad> Σ0 ↓
<POP 222d8-222e6 Naked> Σ0 ↓
<Call 0x222d8 0x10398> {}
FSCALL_10398
<Const 0x222de 0x2258a.4> Δ-4 {[##140682]}
<Call 0x222e0 0x217f8> {[##140682]}
<POP 222e4-222e6 StackAdj> Δ+4 {}
<POP 222e6-2231e Naked> Σ0 ↓ →0x22362 ←0x22362
<Const 0x222e6 0x22586.4> Δ-4 {[##140678]}
<Const 0x222e8 0x22588.4> Δ-4 {[##140678]|[##140680]}
<Call 0x222ea 0x212ca> {[##140678]|[##140680]}
<POP 222ee-222f0 StackAdj> Δ+6 {[-2-]}
<POP 222f0-222f1 StackAdj> Δ+2 {}
<Blob 0x222f1 [2] 0x2258a> Δ-2 {[«2»]}
<MI 222f2 MOVE.W 0x22586,D0> {[«2»]}
<POP 0x222f4 LimitCheck 0x0 ≤ D0 ≤ 0xff> {[«2»]}
<MI 222f6 MOVE.W D0,-(A7)> Δ-2 {[«2»]|[2, 'D0']}
<MI 222f8 MOVE.W 0x22588,D0> {[«2»]|[2, 'D0']}
<POP 0x222fa LimitCheck 0x0 ≤ D0 ≤ 0xff> {[«2»]|[2, 'D0']}
<MI 222fc MOVE.W D0,-(A7)> Δ-2 {[«2»]|[2, 'D0']|[2, 'D0']}
<Const 0x222fe 0x2258c.4> Δ-4 {[«2»]|[2, 'D0']|[2, 'D0']|[##140684]}
<Const 0x22300 0x2258e.4> Δ-4 {[«2»]|[2, 'D0']|[2, 'D0']|[##140684]|[##140686]}
<Call 0x22306 0x21794> {[«2»]|[2, 'D0']|[2, 'D0']|[##140684]|[##140686]}
<POP 2230a-2230e StackAdj> Δ+14 {}
<MI 2230e MOVE.W 0x2258c,D0> {}
<POP 0x22310 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22312 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Call 0x22314 0x218c0> {[2, 'D0']}
<POP 22318-2231a StackAdj> Δ+2 {}
<MI 2231a TST.W 0x2258c> {}
<MI 2231c BEQ 0x22362> {}
<POP 2231e-22362 Naked> Σ0 ↓
<Blob 0x2231e [22] @> Δ-22 {[«22""»]}
<POP 2232a-2232c StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x2232c 22> {[«22""»]|[-4-]|[$$Sub-completion code :_]}
<POP 2233e-22340 StackAdj> Δ-4 {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]}
<MI 22340 MOVE.W 0x2258e,D0> {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]}
<POP 0x22346 LimitCheck 0x0 ≤ D0 ≤ 0xff> {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]}
<MI 22348 MOVE.W D0,-(A7)> Δ-2 {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]|[2, 'D0']}
<Call 0x2234a 0x20d92> {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]|[2, 'D0']}
<POP 2234e-22350 StackAdj> Δ+2 {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]}
<Call 0x22350 0x102d0> {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 22356-22358 StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x22358 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2235e-22362 StackAdj> Δ+26 {}
<POP 22362-22364 Naked> Σ0 →0x222e6 ←0x222e6
<MI 22362 BRA 0x222e6> {}
@ 22386
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 22386-223ee Body>
<POP 22386-2239c Prologue> Σ0 ↓
<POP 2239c-223e6 Naked> Σ0 ↓
<Blob 0x2239c [14] @> Δ-14 {[«14""»]}
<Const 0x223a8 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 223ac-223ae StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x223ae 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 223c0-223c2 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 223c2 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 223c6 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 223c8 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 223ca MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x223cc 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 223d2-223d4 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x223d4 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 223da-223dc StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x223dc 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 223e2-223e6 StackAdj> Δ+20 {}
<POP 223e6-223ee Epilogue> Σ0
@ 22442
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 22442-2257e Body>
<POP 22442-22458 Prologue> Σ0 ↓
<POP 22458-2246e RegCacheLoad> Σ0 ↓
<POP 2246e-224ce Naked> Σ0 ↓ →0x22516
<Call 0x2246e 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x22474 [18] @> Δ-18 {[«18""»]}
<POP 22480-22482 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x22482 18> {[«18""»]|[$$Experiment error :]}
<Call 0x2248e 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 22490-22491 StackAdj> Δ+22 ↓ {}
<Blob 0x22491 [14] @> Δ-14 {[«14""»]}
<POP 224a0-224a2 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x224a2 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 224ac-224ae StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 224ae MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x224b2 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 224b8-224ba StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x224ba 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 224c0-224c2 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x224c2 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 224c4-224c6 StackAdj> Δ+18 {}
<MI 224c6 MOVEA.L (A6+0xa),A0> {}
<MI 224ca CMPA.W #0x01,A0> {}
<MI 224cc BEQ 0x22516> {}
<POP 224ce-22516 Naked> Σ0 ↓
<Blob 0x224ce [14] @> Δ-14 {[«14""»]}
<Blob 0x224de [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 224ee-224f0 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x224f0 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 224fa-224fc StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x224fc> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x224fc 12> Δ-4
<Const 0x22500 0x1.2> Δ-2
<Const 0x22502 0x1e.2> Δ-2
<Call 0x22504 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22506-22508 StackAdj> Δ+8
<Call 0x22508 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 2250e-22510 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x22510 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22512-22516 StackAdj> Δ+48 {}
<POP 22516-22576 Naked> Σ0 ↓ ←0x2246e
<Blob 0x22516 [14] @> Δ-14 {[«14""»]}
<POP 22526-22528 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x22528 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 22532-22534 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 22534 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x22538 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 2253e-22540 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x22540 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 22546-22548 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x22548 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2254a-2254b StackAdj> Δ+18 ↓ {}
<Blob 0x2254b [24] @> Δ-24 {[«24""»]}
<Const 0x2255a 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 2255e-22560 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x22560 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x2256e 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 22574-22576 StackAdj> Δ+30 {}
<POP 22576-2257e Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.a15c179abf318397 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 22 b2 | " | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 25 a2 | % | .PTR 0x225a2 00020010 code.end: 00020010 00 02 25 7e | %~ | .PTR 0x2257e 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 23 86 | # | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 24 42 | $B | .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 45 6e 74 65 72 20 6e 75 |Enter nu| .TXT 'Enter number in range [0 .. FF] ' 0002012a 45 6e 74 65 72 20 68 65 |Enter he| .TXT 'Enter hexadecimal characters only.' 0002014c 54 65 73 74 20 77 69 6c |Test wil| .TXT 'Test will loop. ' 0002015c 50 6c 65 61 73 65 20 65 |Please e| .TXT 'Please enter test option :_ ' 00020178 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => Halt if read or write errors exceed limit specified, ' 000201b6 20 20 20 20 20 20 20 20 | | .TXT ' halt on completion of test.' 000201da 20 20 20 20 31 20 3d 3e | 1 =>| .TXT ' 1 => Loop on test, halt if read or write errors exceed' 00020214 20 20 20 20 20 20 20 20 | | .TXT ' limit specifed on any given pass.' 0002023e 20 20 20 20 32 20 3d 3e | 2 =>| .TXT ' 2 => Loop on test, bypass read or write error halts.' 00020276 4f 70 74 69 6f 6e 73 20 |Options | .TXT 'Options are : ' 00020284 50 6c 65 61 73 65 20 65 |Please e| .TXT 'Please enter test option :_ ' 000202a0 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => Use all ones pattern.' 000202be 20 20 20 20 31 20 3d 3e | 1 =>| .TXT ' 1 => Use one-half frequency pattern.' 000202e6 20 20 20 20 32 20 3d 3e | 2 =>| .TXT ' 2 => Use one-third frequency pattern. ' 00020310 4f 70 74 69 6f 6e 73 20 |Options | .TXT 'Options are : ' 0002031e 50 6c |Pl | .XXX[0x2] 00020320 65 61 73 65 20 65 6e 74 |ease ent| .XXX[0x18] 00020328 65 72 20 74 65 73 74 20 |er test | 00020330 6f 70 74 69 6f 6e 20 3a |option :| 00020338 5f 20 |_ | .XXX[0x2] 0002033a 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => 25 ips speed.' 00020350 20 20 20 20 31 20 3d 3e | 1 =>| .TXT ' 1 => 12.5 ips speed.' 00020368 4f 70 74 69 6f 6e 73 20 |Options | .TXT 'Options are : ' 00020376 45 6e 74 65 72 20 74 65 |Enter te| .TXT 'Enter test number :_' 0002038a 54 65 73 74 5f 20 |Test_ | .TXT 'Test_ ' 00020390 20 69 73 20 6e 6f 74 20 | is not | .TXT ' is not supported.' 000203a2 45 72 72 6f 72 20 6f 6e |Error on| .TXT 'Error on status read during diagnostic execution. ' 000203d4 45 72 72 6f 72 20 77 68 |Error wh| .TXT 'Error when issuing load/on-line command.' 000203fc 45 72 72 6f 72 20 77 68 |Error wh| .TXT 'Error when issuing diagnostic command.' 00020422 45 72 72 6f 72 20 72 65 |Error re| .TXT 'Error reading sense data! ' 0002043c 45 6e 74 65 72 20 53 54 |Enter ST| .TXT 'Enter STU unit number :_' 00020454 55 6e 69 74 20 64 6f 65 |Unit doe| .TXT 'Unit does not exist.' 00020468 54 65 73 74 20 73 75 63 |Test suc| .TXT 'Test successful ' 00020478 52 65 61 64 20 65 6e 76 |Read env| .TXT 'Read envelope fault ' 0002048c 52 65 61 64 20 61 6d 70 |Read amp| .TXT 'Read amplitude tolerance fault' 000204aa 49 64 20 66 |Id f | .TXT 'Id f' 000204ae 61 75 6c 74 |ault | .TXT 'ault' 000204b2 4c 6f 77 20 73 70 65 65 |Low spee| .TXT 'Low speed write error ' 000204c8 4c 6f 77 20 73 70 65 65 |Low spee| .TXT 'Low speed read error' 000204dc 48 69 67 68 20 73 70 65 |High spe| .TXT 'High speed write error' 000204f2 48 69 67 68 20 73 70 65 |High spe| .TXT 'High speed read error ' 00020508 4e 6f 69 73 |Nois | .TXT 'Nois' 0002050c 65 20 69 6e |e in | .TXT 'e in' 00020510 20 49 42 47 | IBG | .TXT ' IBG' 00020514 48 61 72 64 |Hard | .TXT 'Hard' 00020518 77 61 72 65 |ware | .TXT 'ware' 0002051c 20 66 61 69 | fai | .TXT ' fai' 00020520 6c 75 72 65 |lure | .TXT 'lure' 00020524 4f 70 65 72 61 74 6f 72 |Operator| .TXT 'Operator door open' 00020536 41 62 73 65 6e 63 65 20 |Absence | .TXT 'Absence of tape ' 00020546 48 75 62 20 6e 6f 74 20 |Hub not | .TXT 'Hub not latched ' 00020556 54 61 70 65 20 74 68 72 |Tape thr| .TXT 'Tape threaded incorrectly ' 00020570 42 4f 54 20 6c 6f 63 61 |BOT loca| .TXT 'BOT location fault' 00020582 4c 6f 61 64 2f 55 6e 6c |Load/Unl| .TXT 'Load/Unload aborted by operator ' 000205a2 44 69 61 67 6e 6f 73 74 |Diagnost| .TXT 'Diagnostic tape is write protected' 000205c4 52 61 6e 20 6f 66 66 20 |Ran off | .TXT 'Ran off end of tape ' 000205d8 54 61 70 65 20 61 6c 72 |Tape alr| .TXT 'Tape already loaded ' 000205ec 46 69 6c 65 20 74 65 6e |File ten| .TXT 'File tension sensor fault ' 00020606 54 61 6b 65 75 70 20 74 |Takeup t| .TXT 'Takeup tension sensor fault ' 00020622 55 6e 61 62 6c 65 20 74 |Unable t| .TXT 'Unable to tension tape' 00020638 55 6e 61 62 6c 65 20 74 |Unable t| .TXT 'Unable to re-establish tension' 00020656 48 69 67 68 20 74 65 6e |High ten| .TXT 'High tension fault' 00020668 4c 6f 77 20 74 65 6e 73 |Low tens| .TXT 'Low tension fault ' 0002067a 53 65 72 76 6f 20 66 61 |Servo fa| .TXT 'Servo fault ' 00020686 4e 6f 20 63 6f 61 72 73 |No coars| .TXT 'No coarse tachs ' 00020696 54 65 6e 73 69 6f 6e 20 |Tension | .TXT 'Tension recovery problem' 000206ae 41 62 73 65 6e 63 65 20 |Absence | .TXT 'Absence of tape ' 000206be 55 70 20 72 61 6d 70 20 |Up ramp | .TXT 'Up ramp fault ' 000206cc 44 6f 77 6e 20 72 61 6d |Down ram| .TXT 'Down ramp fault ' 000206dc 53 74 6f 70 6c 6f 63 6b |Stoplock| .TXT 'Stoplock over-run ' 000206ee 54 61 70 65 20 70 6f 73 |Tape pos| .TXT 'Tape position fault ' 00020702 42 4f 54 20 70 6f 73 69 |BOT posi| .TXT 'BOT positioning fault ' 00020718 50 6f 73 69 74 69 6f 6e |Position| .TXT 'Positioning fault ' 0002072a 53 70 65 65 64 20 66 61 |Speed fa| .TXT 'Speed fault ' 00020736 53 74 61 63 6b 20 6f 76 |Stack ov| .TXT 'Stack overflow fault' 0002074a 56 65 6c 6f 63 69 74 79 |Velocity| .TXT 'Velocity correction fault ' 00020764 53 54 54 20 69 6c 6c 6f |STT illo| .TXT 'STT illogical fault ' 00020778 49 72 72 65 63 6f 76 65 |Irrecove| .TXT 'Irrecoverable device healthcheck fault' 0002079e 52 65 63 6f 76 65 72 61 |Recovera| .TXT 'Recoverable device healthcheck fault' 000207c2 53 70 65 65 64 20 63 61 |Speed ca| .TXT 'Speed calculation fault ' 000207da 41 72 69 74 |Arit | .TXT 'Arit' 000207de 68 6d 65 74 |hmet | .TXT 'hmet' 000207e2 69 63 20 66 |ic f | .TXT 'ic f' 000207e6 61 75 6c 74 |ault | .TXT 'ault' 000207ea 45 72 61 73 65 2f 57 72 |Erase/Wr| .TXT 'Erase/Write current fault ' 00020804 49 6c 6c 6f 67 69 63 61 |Illogica| .TXT 'Illogical fault ' 00020814 50 72 6f 63 65 73 73 6f |Processo| .TXT 'Processor communication fault ' 00020832 49 72 72 65 63 6f 76 65 |Irrecove| .TXT 'Irrecoverable operator panel fault' 00020854 52 65 63 6f 76 65 72 61 |Recovera| .TXT 'Recoverable operator panel fault' 00020874 46 6f 72 6d 61 74 74 65 |Formatte| .TXT 'Formatter write board health check' 00020896 46 6f 72 6d 61 74 74 65 |Formatte| .TXT 'Formatter read/write interface health check ' 000208c2 46 6f 72 6d 61 74 74 65 |Formatte| .TXT 'Formatter read board health check in data loopback' 000208f4 46 6f 72 6d 61 74 74 65 |Formatte| .TXT 'Formatter read board health check fault ' 0002091c 46 6f 72 6d 61 74 74 65 |Formatte| .TXT 'Formatter/Adaptor interface health check' 00020944 49 6e 74 65 72 66 61 63 |Interfac| .TXT 'Interface health check fault' 00020960 49 6e 74 65 72 66 61 63 |Interfac| .TXT 'Interface checksum fault' 00020978 54 61 70 65 20 6e 6f 74 |Tape not| .TXT 'Tape not loaded fault ' 0002098e 54 61 70 65 20 6c 6f 61 |Tape loa| .TXT 'Tape loaded fault ' 000209a0 54 61 70 65 20 77 72 69 |Tape wri| .TXT 'Tape write protected fault' 000209ba 42 61 63 6b 75 70 20 6d |Backup m| .TXT 'Backup memory is not write enabled' 000209dc 42 61 63 6b 75 70 20 6d |Backup m| .TXT 'Backup memory is not write enabled' 000209fe 42 61 64 20 62 61 63 6b |Bad back| .TXT 'Bad backup memory ' 00020a10 42 61 64 20 62 61 63 6b |Bad back| .TXT 'Bad backup memory ' 00020a22 45 4f 54 20 |EOT | .TXT 'EOT ' 00020a26 6f 6e 20 45 |on E | .TXT 'on E' 00020a2a 47 43 20 66 |GC f | .TXT 'GC f' 00020a2e 61 75 6c 74 |ault | .TXT 'ault' 00020a32 45 47 43 20 6c 6f 77 20 |EGC low | .TXT 'EGC low speed set-up fault' 00020a4c 45 47 43 20 68 69 67 68 |EGC high| .TXT 'EGC high speed set-up fault ' 00020a68 52 65 66 72 65 73 68 20 |Refresh | .TXT 'Refresh DAC fault ' 00020a7a 54 55 20 70 6f 77 65 72 |TU power| .TXT 'TU power amp fault' 00020a8c 54 61 6b 65 2d 75 70 20 |Take-up | .TXT 'Take-up power amp fault ' 00020aa4 44 65 6d 61 6e 64 20 76 |Demand v| .TXT 'Demand velocity DAC fault ' 00020abe 54 61 6b 65 2d 75 70 20 |Take-up | .TXT 'Take-up motor/tach fault' 00020ad6 56 65 6c 6f 63 69 74 79 |Velocity| .TXT 'Velocity feedback loop fault' 00020af2 54 61 6b 65 2d 75 70 20 |Take-up | .TXT 'Take-up comparator fault' 00020b0a 46 69 6c 65 20 63 6f 6d |File com| .TXT 'File comparator fault ' 00020b20 46 69 6c 65 20 73 65 6e |File sen| .TXT 'File sensor - 0 fault ' 00020b36 54 61 6b 65 2d 75 70 20 |Take-up | .TXT 'Take-up sensor - 0 fault' 00020b4e 50 75 6d 70 20 66 61 69 |Pump fai| .TXT 'Pump failure fault' 00020b60 46 69 6c 74 65 72 2f 72 |Filter/r| .TXT 'Filter/regulator, pump, servo-control PWA fault ' 00020b90 56 65 6c 6f 63 69 74 79 |Velocity| .TXT 'Velocity correction multiplier factor out of range' 00020bc2 54 61 70 65 20 70 72 65 |Tape pre| .TXT 'Tape present fault' 00020bd4 46 6f 72 6d 61 74 74 65 |Formatte| .TXT 'Formatter interrupt received while test in progress ' 00020c08 53 65 72 76 |Serv | .TXT 'Serv' 00020c0c 6f 20 6c 6f |o lo | .TXT 'o lo' 00020c10 6f 70 20 66 |op f | .TXT 'op f' 00020c14 61 75 6c 74 |ault | .TXT 'ault' 00020c18 53 65 72 76 6f 2d 63 6f |Servo-co| .TXT 'Servo-control PWA, sensor intermittent fault' 00020c44 54 61 6b 65 2d 75 70 20 |Take-up | .TXT 'Take-up motor/tach fault' 00020c5c 41 74 74 65 6d 70 74 20 |Attempt | .TXT 'Attempt to loop on test ' 00020c74 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown fault code' 00020c86 5f 20 |_ | .TXT '_ ' 00020c88 53 75 62 2d 63 6f 6d 70 |Sub-comp| .TXT 'Sub-completion code :_' 00020c9e 0e 00 | | .XXX[0x2] 00020ca0 ff ff 7f ff 9f ff ff 00 | | .XXX[0x28] 00020ca8 fc ff 07 00 00 00 00 00 | | 00020cb0 82 00 00 00 00 00 00 00 | | 00020cb8 00 00 00 00 00 00 00 00 | | 00020cc0 f0 03 00 00 00 00 00 00 | | 00020cc8 00 00 00 00 00 00 00 00 | | .BLANK 00[0x18] 00020ce0 00 00 7f ff 05 00 00 00 | | .XXX[0x20] 00020ce8 e0 ff 01 00 00 00 00 00 | | 00020cf0 02 00 00 00 00 00 00 00 | | 00020cf8 00 00 00 00 00 00 00 00 | | 00020d00 00 00 00 00 00 | | .XXX[0x5] 00020d05 02 01 00 | | .XXX[0x3] 00020d08 0c 00 00 00 00 00 00 00 | | .XXX[0x8] 00020d10 00 00 00 00 00 00 00 00 | | .BLANK 00[0x10] 00020d20 0f 00 00 00 00 00 00 00 | | .XXX[0x8] 00020d28 00 00 00 00 00 00 00 00 | | .BLANK 00[0x10] 00020d38 00 00 00 00 00 00 4e 56 | NV| .XXX[0x58] 00020d40 ff e6 bf d5 62 06 44 fc | b D | 00020d48 00 02 4e 76 de fc 00 14 | Nv | 00020d50 48 e7 83 00 7e 00 7c 00 |H ~ | | 00020d58 42 80 30 07 e3 80 0c 80 |B 0 | 00020d60 00 00 ff ff 63 02 4e 4f | c NO| 00020d68 3e 00 30 2e 00 08 02 40 |> 0. @| 00020d70 00 01 8e 40 e2 ee 00 08 | @ | 00020d78 52 86 0c 86 00 00 00 07 |R | 00020d80 6f d6 42 80 30 07 2d 40 |o B 0 -@| 00020d88 00 0a 4c df 00 c1 4e 5e | L N^| 00020d90 4e 75 |Nu | .XXX[0x2] 00020d92 ; -------------------------------------------------------------------------------------- 00020d92 ; OMSI PASCAL Function 00020d92 ; <LVAR 0x00a 4(w)> 00020d92 ; <LVAR 0x008 2(r)> 00020d92 ; <LVAR -0x00a @ 4(r)> 00020d92 ; -------------------------------------------------------------------------------------- 00020d92 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00020d96 bf d5 | | CMPA.L (A5),A7 00020d98 62 06 |b | BHI 0x20da0 00020d9a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020d9e 4e 76 |Nv | TRAPV 00020da0 de fc 00 2e | . | ADDA.W #0x2e,A7 00020da4 48 e7 ff 80 |H | MOVEM.L A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020da8 41 ee ff f6 |A | LEA.L (A6-0xa),A0 00020dac 22 3c 00 00 00 ff |"< | MOVE.L #0xff,D1 00020db2 74 09 |t | MOVEQ.L #0x09,D2 00020db4 76 30 |v0 | MOVEQ.L #0x30,D3 00020db6 78 0a |x | MOVEQ.L #0x0a,D4 00020db8 7a 41 |zA | MOVEQ.L #0x41,D5 00020dba 48 50 |HP | PEA.L (A0) 00020dbc 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020dc2 58 4f |XO | ADDQ.L #0x4,A7 00020dc4 3c 2e 00 08 |<. | MOVE.W (A6+0x8),D6 00020dc8 02 46 00 f0 | F | ANDI.W #0x00f0,D6 00020dcc e8 4e | N | LSR.W #0x4,D6 00020dce bc 42 | B | CMP.W D2,D6 00020dd0 62 0e |b | BHI 0x20de0 00020dd2 42 80 |B | CLR.L D0 00020dd4 30 06 |0 | MOVE.W D6,D0 00020dd6 d0 83 | | ADD.L D3,D0 00020dd8 b0 81 | | CMP.L D1,D0 00020dda 63 02 |c | BLS 0x20dde 00020ddc 4e 4f |NO | TRAP #15 00020dde 60 0e |` | BRA 0x20dee 00020de0 42 80 |B | CLR.L D0 00020de2 30 06 |0 | MOVE.W D6,D0 00020de4 90 84 | | SUB.L D4,D0 00020de6 d0 85 | | ADD.L D5,D0 00020de8 b0 81 | | CMP.L D1,D0 00020dea 63 02 |c | BLS 0x20dee 00020dec 4e 4f |NO | TRAP #15 00020dee 1e 00 | | MOVE.B D0,D7 00020df0 2f 10 |/ | MOVE.L (A0),-(A7) 00020df2 1f 07 | | MOVE.B D7,-(A7) 00020df4 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020dfa 5c 4f |\O | ADDQ.L #0x6,A7 00020dfc 3c 2e 00 08 |<. | MOVE.W (A6+0x8),D6 00020e00 02 46 00 0f | F | ANDI.W #0x000f,D6 00020e04 bc 42 | B | CMP.W D2,D6 00020e06 62 0e |b | BHI 0x20e16 00020e08 42 80 |B | CLR.L D0 00020e0a 30 06 |0 | MOVE.W D6,D0 00020e0c d0 83 | | ADD.L D3,D0 00020e0e b0 81 | | CMP.L D1,D0 00020e10 63 02 |c | BLS 0x20e14 00020e12 4e 4f |NO | TRAP #15 00020e14 60 0e |` | BRA 0x20e24 00020e16 42 80 |B | CLR.L D0 00020e18 30 06 |0 | MOVE.W D6,D0 00020e1a 90 84 | | SUB.L D4,D0 00020e1c d0 85 | | ADD.L D5,D0 00020e1e b0 81 | | CMP.L D1,D0 00020e20 63 02 |c | BLS 0x20e24 00020e22 4e 4f |NO | TRAP #15 00020e24 1e 00 | | MOVE.B D0,D7 00020e26 2f 10 |/ | MOVE.L (A0),-(A7) 00020e28 1f 07 | | MOVE.B D7,-(A7) 00020e2a 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020e30 5c 4f |\O | ADDQ.L #0x6,A7 00020e32 2d 50 00 0a |-P | MOVE.L (A0),(A6+0xa) 00020e36 4c df 01 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0 00020e3a 4e 5e |N^ | UNLK A6 00020e3c 4e 75 |Nu | RTS 00020e3e ; -------------------------------------------------------------------------------------- 00020e3e ; OMSI PASCAL Function 00020e3e ; <LVAR 0x00c 2(w)> 00020e3e ; <LVAR 0x008 @ 4(r)> 00020e3e ; <LVAR -0x010 4(rw)> 00020e3e ; -------------------------------------------------------------------------------------- 00020e3e 4e 56 ff 84 |NV | LINK.W A6,#0xff84 00020e42 bf d5 | | CMPA.L (A5),A7 00020e44 62 06 |b | BHI 0x20e4c 00020e46 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020e4a 4e 76 |Nv | TRAPV 00020e4c de fc 00 6c | l | ADDA.W #0x6c,A7 00020e50 48 e7 ff c0 |H | MOVEM.L A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020e54 74 01 |t | MOVEQ.L #0x01,D2 00020e56 76 30 |v0 | MOVEQ.L #0x30,D3 00020e58 78 41 |xA | MOVEQ.L #0x41,D4 00020e5a 7e 00 |~ | MOVEQ.L #0x00,D7 00020e5c 9e fc 00 0c | | SUBA.W #0xc,A7 00020e60 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020e64 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020e6a 58 4f |XO | ADDQ.L #0x4,A7 00020e6c 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00020e72 58 4f |XO | ADDQ.L #0x4,A7 00020e74 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00020e7a 58 4f |XO | ADDQ.L #0x4,A7 00020e7c 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00020e80 7c 00 || | MOVEQ.L #0x00,D6 00020e82 20 6e ff f0 | n | MOVEA.L (A6-0x10),A0 00020e86 2f 08 |/ | MOVE.L A0,-(A7) 00020e88 30 10 |0 | MOVE.W (A0),D0 00020e8a 48 c0 |H | EXTW.L D0 00020e8c 2f 00 |/ | MOVE.L D0,-(A7) 00020e8e 7a 01 |z | MOVEQ.L #0x01,D5 00020e90 ba 97 | | CMP.L (A7),D5 00020e92 6e 00 00 b4 |n | BGT 0x20f48 00020e96 e9 87 | | ASL.L #0x4,D7 00020e98 0c 87 00 00 00 ff | | CMPI.L #0x000000ff,D7 00020e9e 6f 34 |o4 | BLE 0x20ed4 00020ea0 9e fc 00 20 | | SUBA.W #0x20,A7 00020ea4 20 4f | O | MOVEA.L A7,A0 00020ea6 43 fa f2 62 |C b | LEA.L 0x2010a,A1 00020eaa 70 1e |p | MOVEQ.L #0x1e,D0 00020eac 10 d9 | | MOVE.B (A1)+,(A0)+ 00020eae 51 c8 ff fc |Q | DBF D0,0x20eac 00020eb2 59 4f |YO | SUBQ.L #0x4,A7 00020eb4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020eb8 3f 02 |? | MOVE.W D2,-(A7) 00020eba 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00020ebe 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020ec4 50 4f |PO | ADDQ.L #0x8,A7 00020ec6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020ecc de fc 00 24 | $ | ADDA.W #0x24,A7 00020ed0 50 4f |PO | ADDQ.L #0x8,A7 00020ed2 60 7a |`z | BRA 0x20f4e 00020ed4 20 05 | | MOVE.L D5,D0 00020ed6 53 80 |S | SUBQ.L #0x1,D0 00020ed8 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00020ede 63 02 |c | BLS 0x20ee2 00020ee0 4e 4f |NO | TRAP #15 00020ee2 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00020ee6 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 00020eea b2 03 | | CMP.B D3,D1 00020eec 65 12 |e | BCS 0x20f00 00020eee 0c 01 00 39 | 9 | CMPI.B #0x39,D1 00020ef2 62 0c |b | BHI 0x20f00 00020ef4 42 80 |B | CLR.L D0 00020ef6 10 01 | | MOVE.B D1,D0 00020ef8 90 43 | C | SUB.W D3,D0 00020efa 48 c0 |H | EXTW.L D0 00020efc de 80 | | ADD.L D0,D7 00020efe 60 42 |`B | BRA 0x20f42 00020f00 b2 04 | | CMP.B D4,D1 00020f02 65 12 |e | BCS 0x20f16 00020f04 0c 01 00 46 | F | CMPI.B #0x46,D1 00020f08 62 0c |b | BHI 0x20f16 00020f0a 42 80 |B | CLR.L D0 00020f0c 10 01 | | MOVE.B D1,D0 00020f0e 90 44 | D | SUB.W D4,D0 00020f10 06 40 00 0a | @ | ADDI.W #0x000a,D0 00020f14 60 e4 |` | BRA 0x20efa 00020f16 41 fa f2 34 |A 4 | LEA.L 0x2014c,A0 00020f1a 70 10 |p | MOVEQ.L #0x10,D0 00020f1c 3f 20 |? | MOVE.W -(A0),-(A7) 00020f1e 51 c8 ff fc |Q | DBF D0,0x20f1c 00020f22 59 4f |YO | SUBQ.L #0x4,A7 00020f24 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020f28 3f 02 |? | MOVE.W D2,-(A7) 00020f2a 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00020f2e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020f34 50 4f |PO | ADDQ.L #0x8,A7 00020f36 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020f3c de fc 00 2e | . | ADDA.W #0x2e,A7 00020f40 60 0c |` | BRA 0x20f4e 00020f42 52 85 |R | ADDQ.L #0x1,D5 00020f44 68 00 ff 4a |h J | BVC 0x20e90 00020f48 58 4f |XO | ADDQ.L #0x4,A7 00020f4a 7c 01 || | MOVEQ.L #0x01,D6 00020f4c 58 4f |XO | ADDQ.L #0x4,A7 00020f4e 4a 06 |J | TST.B D6 00020f50 67 00 ff 0a |g | BEQ 0x20e5c 00020f54 48 6e 00 08 |Hn | PEA.L (A6+0x8) 00020f58 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020f5e 58 4f |XO | ADDQ.L #0x4,A7 00020f60 0c 87 00 00 00 ff | | CMPI.L #0x000000ff,D7 00020f66 63 02 |c | BLS 0x20f6a 00020f68 4e 4f |NO | TRAP #15 00020f6a 3d 47 00 0c |=G | MOVE.W D7,(A6+0xc) 00020f6e 4c df 03 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1 00020f72 4e 5e |N^ | UNLK A6 00020f74 4e 75 |Nu | RTS 00020f76 ; -------------------------------------------------------------------------------------- 00020f76 ; OMSI PASCAL Function 00020f76 ; <LVAR 0x008 4(r)> 00020f76 ; -------------------------------------------------------------------------------------- 00020f76 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00020f7a bf d5 | | CMPA.L (A5),A7 00020f7c 62 06 |b | BHI 0x20f84 00020f7e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020f82 4e 76 |Nv | TRAPV 00020f84 de fc 00 2c | , | ADDA.W #0x2c,A7 00020f88 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020f8c 9e fc 00 10 | | SUBA.W #0x10,A7 00020f90 20 4f | O | MOVEA.L A7,A0 00020f92 43 fa f1 b8 |C | LEA.L 0x2014c,A1 00020f96 70 0e |p | MOVEQ.L #0x0e,D0 00020f98 10 d9 | | MOVE.B (A1)+,(A0)+ 00020f9a 51 c8 ff fc |Q | DBF D0,0x20f98 00020f9e 59 4f |YO | SUBQ.L #0x4,A7 00020fa0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020fa4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020fa8 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00020fac 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020fb2 50 4f |PO | ADDQ.L #0x8,A7 00020fb4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020fba de fc 00 14 | | ADDA.W #0x14,A7 00020fbe 42 ae 00 08 |B | CLR.L (A6+0x8) 00020fc2 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020fc6 4e 5e |N^ | UNLK A6 00020fc8 4e 75 |Nu | RTS 00020fca ; -------------------------------------------------------------------------------------- 00020fca ; OMSI PASCAL Function 00020fca ; <LVAR 0x008 4(w)> 00020fca ; -------------------------------------------------------------------------------------- 00020fca 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 00020fce bf d5 | | CMPA.L (A5),A7 00020fd0 62 06 |b | BHI 0x20fd8 00020fd2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020fd6 4e 76 |Nv | TRAPV 00020fd8 de fc 00 66 | f | ADDA.W #0x66,A7 00020fdc 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7) 00020fe0 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020fe6 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00020fec 72 01 |r | MOVEQ.L #0x01,D1 00020fee 9e fc 00 0e | | SUBA.W #0xe,A7 00020ff2 20 4f | O | MOVEA.L A7,A0 00020ff4 43 fa f2 80 |C | LEA.L 0x20276,A1 00020ff8 70 0c |p | MOVEQ.L #0x0c,D0 00020ffa 10 d9 | | MOVE.B (A1)+,(A0)+ 00020ffc 51 c8 ff fc |Q | DBF D0,0x20ffa 00021000 59 4f |YO | SUBQ.L #0x4,A7 00021002 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021006 3f 01 |? | MOVE.W D1,-(A7) 00021008 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 0002100c 4e 92 |N | JSR (A2) 0002100e 50 4f |PO | ADDQ.L #0x8,A7 00021010 4e 93 |N | JSR (A3) 00021012 9e fc 00 2c | , | SUBA.W #0x2c,A7 00021016 20 4f | O | MOVEA.L A7,A0 00021018 43 fa f1 5e |C ^ | LEA.L 0x20178,A1 0002101c 70 3c |p< | MOVEQ.L #0x3c,D0 0002101e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021020 51 c8 ff fc |Q | DBF D0,0x2101e 00021024 59 4f |YO | SUBQ.L #0x4,A7 00021026 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002102a 3f 01 |? | MOVE.W D1,-(A7) 0002102c 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 00021030 4e 92 |N | JSR (A2) 00021032 50 4f |PO | ADDQ.L #0x8,A7 00021034 4e 93 |N | JSR (A3) 00021036 de fc 00 42 | B | ADDA.W #0x42,A7 0002103a 41 fa f1 9e |A | LEA.L 0x201da,A0 0002103e 70 08 |p | MOVEQ.L #0x08,D0 00021040 2f 20 |/ | MOVE.L -(A0),-(A7) 00021042 51 c8 ff fc |Q | DBF D0,0x21040 00021046 59 4f |YO | SUBQ.L #0x4,A7 00021048 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002104c 3f 01 |? | MOVE.W D1,-(A7) 0002104e 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7) 00021052 4e 92 |N | JSR (A2) 00021054 50 4f |PO | ADDQ.L #0x8,A7 00021056 4e 93 |N | JSR (A3) 00021058 de fc 00 28 | ( | ADDA.W #0x28,A7 0002105c 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021062 41 fa f1 b0 |A | LEA.L 0x20214,A0 00021066 70 1c |p | MOVEQ.L #0x1c,D0 00021068 3f 20 |? | MOVE.W -(A0),-(A7) 0002106a 51 c8 ff fc |Q | DBF D0,0x21068 0002106e 59 4f |YO | SUBQ.L #0x4,A7 00021070 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021074 3f 01 |? | MOVE.W D1,-(A7) 00021076 3f 3c 00 3a |?< : | MOVE.W #0x3a,-(A7) 0002107a 4e 92 |N | JSR (A2) 0002107c 50 4f |PO | ADDQ.L #0x8,A7 0002107e 4e 93 |N | JSR (A3) 00021080 de fc 00 3e | > | ADDA.W #0x3e,A7 00021084 41 fa f1 b8 |A | LEA.L 0x2023e,A0 00021088 70 14 |p | MOVEQ.L #0x14,D0 0002108a 3f 20 |? | MOVE.W -(A0),-(A7) 0002108c 51 c8 ff fc |Q | DBF D0,0x2108a 00021090 59 4f |YO | SUBQ.L #0x4,A7 00021092 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021096 3f 01 |? | MOVE.W D1,-(A7) 00021098 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 0002109c 4e 92 |N | JSR (A2) 0002109e 50 4f |PO | ADDQ.L #0x8,A7 000210a0 4e 93 |N | JSR (A3) 000210a2 de fc 00 2e | . | ADDA.W #0x2e,A7 000210a6 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000210ac 41 fa f1 c8 |A | LEA.L 0x20276,A0 000210b0 70 0d |p | MOVEQ.L #0x0d,D0 000210b2 2f 20 |/ | MOVE.L -(A0),-(A7) 000210b4 51 c8 ff fc |Q | DBF D0,0x210b2 000210b8 59 4f |YO | SUBQ.L #0x4,A7 000210ba 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000210be 3f 01 |? | MOVE.W D1,-(A7) 000210c0 3f 3c 00 38 |?< 8 | MOVE.W #0x38,-(A7) 000210c4 4e 92 |N | JSR (A2) 000210c6 50 4f |PO | ADDQ.L #0x8,A7 000210c8 4e 93 |N | JSR (A3) 000210ca de fc 00 20 | | ADDA.W #0x20,A7 000210ce 20 4f | O | MOVEA.L A7,A0 000210d0 43 fa f0 8a |C | LEA.L 0x2015c,A1 000210d4 70 1a |p | MOVEQ.L #0x1a,D0 000210d6 10 d9 | | MOVE.B (A1)+,(A0)+ 000210d8 51 c8 ff fc |Q | DBF D0,0x210d6 000210dc 51 4f |QO | SUBQ.L #0x8,A7 000210de 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000210e2 3f 01 |? | MOVE.W D1,-(A7) 000210e4 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000210e8 4e 92 |N | JSR (A2) 000210ea 50 4f |PO | ADDQ.L #0x8,A7 000210ec 48 78 00 00 |Hx | PEA.L 0x0 000210f0 48 78 00 02 |Hx | PEA.L 0x2 000210f4 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000210fa de fc 00 0c | | ADDA.W #0xc,A7 000210fe 2d 5f 00 08 |-_ | MOVE.L (A7)+,(A6+0x8) 00021102 de fc 00 1c | | ADDA.W #0x1c,A7 00021106 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3 0002110a 4e 5e |N^ | UNLK A6 0002110c 4e 75 |Nu | RTS 0002110e ; -------------------------------------------------------------------------------------- 0002110e ; OMSI PASCAL Function 0002110e ; <LVAR 0x008 4(w)> 0002110e ; -------------------------------------------------------------------------------------- 0002110e 4e 56 ff aa |NV | LINK.W A6,#0xffaa 00021112 bf d5 | | CMPA.L (A5),A7 00021114 62 06 |b | BHI 0x2111c 00021116 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002111a 4e 76 |Nv | TRAPV 0002111c de fc 00 56 | V | ADDA.W #0x56,A7 00021120 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7) 00021124 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 0002112a 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00021130 72 01 |r | MOVEQ.L #0x01,D1 00021132 74 12 |t | MOVEQ.L #0x12,D2 00021134 9e fc 00 0e | | SUBA.W #0xe,A7 00021138 20 4f | O | MOVEA.L A7,A0 0002113a 43 fa f1 d4 |C | LEA.L 0x20310,A1 0002113e 70 0c |p | MOVEQ.L #0x0c,D0 00021140 10 d9 | | MOVE.B (A1)+,(A0)+ 00021142 51 c8 ff fc |Q | DBF D0,0x21140 00021146 59 4f |YO | SUBQ.L #0x4,A7 00021148 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002114c 3f 01 |? | MOVE.W D1,-(A7) 0002114e 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00021152 4e 92 |N | JSR (A2) 00021154 50 4f |PO | ADDQ.L #0x8,A7 00021156 4e 93 |N | JSR (A3) 00021158 de c2 | | ADDA.W D2,A7 0002115a 41 fa f1 62 |A b | LEA.L 0x202be,A0 0002115e 70 0e |p | MOVEQ.L #0x0e,D0 00021160 3f 20 |? | MOVE.W -(A0),-(A7) 00021162 51 c8 ff fc |Q | DBF D0,0x21160 00021166 59 4f |YO | SUBQ.L #0x4,A7 00021168 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002116c 3f 01 |? | MOVE.W D1,-(A7) 0002116e 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 00021172 4e 92 |N | JSR (A2) 00021174 50 4f |PO | ADDQ.L #0x8,A7 00021176 4e 93 |N | JSR (A3) 00021178 de fc 00 22 | " | ADDA.W #0x22,A7 0002117c 41 fa f1 68 |A h | LEA.L 0x202e6,A0 00021180 70 09 |p | MOVEQ.L #0x09,D0 00021182 2f 20 |/ | MOVE.L -(A0),-(A7) 00021184 51 c8 ff fc |Q | DBF D0,0x21182 00021188 59 4f |YO | SUBQ.L #0x4,A7 0002118a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002118e 3f 01 |? | MOVE.W D1,-(A7) 00021190 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 00021194 4e 92 |N | JSR (A2) 00021196 50 4f |PO | ADDQ.L #0x8,A7 00021198 4e 93 |N | JSR (A3) 0002119a 54 4f |TO | ADDQ.L #0x2,A7 0002119c 20 4f | O | MOVEA.L A7,A0 0002119e 43 fa f1 46 |C F | LEA.L 0x202e6,A1 000211a2 70 28 |p( | MOVEQ.L #0x28,D0 000211a4 10 d9 | | MOVE.B (A1)+,(A0)+ 000211a6 51 c8 ff fc |Q | DBF D0,0x211a4 000211aa 59 4f |YO | SUBQ.L #0x4,A7 000211ac 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000211b0 3f 01 |? | MOVE.W D1,-(A7) 000211b2 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 000211b6 4e 92 |N | JSR (A2) 000211b8 50 4f |PO | ADDQ.L #0x8,A7 000211ba 4e 93 |N | JSR (A3) 000211bc de c2 | | ADDA.W D2,A7 000211be 20 4f | O | MOVEA.L A7,A0 000211c0 43 fa f0 c2 |C | LEA.L 0x20284,A1 000211c4 70 1a |p | MOVEQ.L #0x1a,D0 000211c6 10 d9 | | MOVE.B (A1)+,(A0)+ 000211c8 51 c8 ff fc |Q | DBF D0,0x211c6 000211cc 51 4f |QO | SUBQ.L #0x8,A7 000211ce 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000211d2 3f 01 |? | MOVE.W D1,-(A7) 000211d4 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000211d8 4e 92 |N | JSR (A2) 000211da 50 4f |PO | ADDQ.L #0x8,A7 000211dc 48 78 00 00 |Hx | PEA.L 0x0 000211e0 48 78 00 02 |Hx | PEA.L 0x2 000211e4 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000211ea de fc 00 0c | | ADDA.W #0xc,A7 000211ee 2d 5f 00 08 |-_ | MOVE.L (A7)+,(A6+0x8) 000211f2 de fc 00 1c | | ADDA.W #0x1c,A7 000211f6 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3 000211fa 4e 5e |N^ | UNLK A6 000211fc 4e 75 |Nu | RTS 000211fe ; -------------------------------------------------------------------------------------- 000211fe ; OMSI PASCAL Function 000211fe ; <LVAR 0x008 4(w)> 000211fe ; -------------------------------------------------------------------------------------- 000211fe 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 00021202 bf d5 | | CMPA.L (A5),A7 00021204 62 06 |b | BHI 0x2120c 00021206 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002120a 4e 76 |Nv | TRAPV 0002120c de fc 00 48 | H | ADDA.W #0x48,A7 00021210 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7) 00021214 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 0002121a 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00021220 72 01 |r | MOVEQ.L #0x01,D1 00021222 9e fc 00 0e | | SUBA.W #0xe,A7 00021226 20 4f | O | MOVEA.L A7,A0 00021228 43 fa f1 3e |C > | LEA.L 0x20368,A1 0002122c 70 0c |p | MOVEQ.L #0x0c,D0 0002122e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021230 51 c8 ff fc |Q | DBF D0,0x2122e 00021234 59 4f |YO | SUBQ.L #0x4,A7 00021236 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002123a 3f 01 |? | MOVE.W D1,-(A7) 0002123c 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00021240 4e 92 |N | JSR (A2) 00021242 50 4f |PO | ADDQ.L #0x8,A7 00021244 4e 93 |N | JSR (A3) 00021246 de fc 00 12 | | ADDA.W #0x12,A7 0002124a 41 fa f1 04 |A | LEA.L 0x20350,A0 0002124e 70 0a |p | MOVEQ.L #0x0a,D0 00021250 3f 20 |? | MOVE.W -(A0),-(A7) 00021252 51 c8 ff fc |Q | DBF D0,0x21250 00021256 59 4f |YO | SUBQ.L #0x4,A7 00021258 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002125c 3f 01 |? | MOVE.W D1,-(A7) 0002125e 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00021262 4e 92 |N | JSR (A2) 00021264 50 4f |PO | ADDQ.L #0x8,A7 00021266 4e 93 |N | JSR (A3) 00021268 de fc 00 1a | | ADDA.W #0x1a,A7 0002126c 41 fa f0 fa |A | LEA.L 0x20368,A0 00021270 70 05 |p | MOVEQ.L #0x05,D0 00021272 2f 20 |/ | MOVE.L -(A0),-(A7) 00021274 51 c8 ff fc |Q | DBF D0,0x21272 00021278 59 4f |YO | SUBQ.L #0x4,A7 0002127a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002127e 3f 01 |? | MOVE.W D1,-(A7) 00021280 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00021284 4e 92 |N | JSR (A2) 00021286 50 4f |PO | ADDQ.L #0x8,A7 00021288 4e 93 |N | JSR (A3) 0002128a 20 4f | O | MOVEA.L A7,A0 0002128c 43 fa f0 90 |C | LEA.L 0x2031e,A1 00021290 70 1a |p | MOVEQ.L #0x1a,D0 00021292 10 d9 | | MOVE.B (A1)+,(A0)+ 00021294 51 c8 ff fc |Q | DBF D0,0x21292 00021298 51 4f |QO | SUBQ.L #0x8,A7 0002129a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002129e 3f 01 |? | MOVE.W D1,-(A7) 000212a0 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000212a4 4e 92 |N | JSR (A2) 000212a6 50 4f |PO | ADDQ.L #0x8,A7 000212a8 48 78 00 00 |Hx | PEA.L 0x0 000212ac 48 78 00 01 |Hx | PEA.L 0x1 000212b0 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000212b6 de fc 00 0c | | ADDA.W #0xc,A7 000212ba 2d 5f 00 08 |-_ | MOVE.L (A7)+,(A6+0x8) 000212be de fc 00 1c | | ADDA.W #0x1c,A7 000212c2 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3 000212c6 4e 5e |N^ | UNLK A6 000212c8 4e 75 |Nu | RTS 000212ca ; -------------------------------------------------------------------------------------- 000212ca ; OMSI PASCAL Function 000212ca ; <LVAR 0x00c 4(r)> 000212ca ; <LVAR 0x008 4(r)> 000212ca ; <LVAR -0x022 @> 000212ca ; <LVAR -0x042 @> 000212ca ; <LVAR -0x062 @> 000212ca ; <LVAR -0x082 @> 000212ca ; <LVAR -0x0a2 @> 000212ca ; -------------------------------------------------------------------------------------- 000212ca 4e 56 fe f6 |NV | LINK.W A6,#0xfef6 000212ce bf d5 | | CMPA.L (A5),A7 000212d0 62 06 |b | BHI 0x212d8 000212d2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000212d6 4e 76 |Nv | TRAPV 000212d8 de fc 00 66 | f | ADDA.W #0x66,A7 000212dc 48 e7 fd f0 |H | MOVEM.L A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7) 000212e0 45 ee 00 08 |E | LEA.L (A6+0x8),A2 000212e4 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000212ea 74 20 |t | MOVEQ.L #0x20,D2 000212ec 26 3c 00 00 00 ff |&< | MOVE.L #0xff,D3 000212f2 78 01 |x | MOVEQ.L #0x01,D4 000212f4 7a 14 |z | MOVEQ.L #0x14,D5 000212f6 41 ee ff 5e |A ^ | LEA.L (A6-0xa2),A0 000212fa 43 fa f9 a2 |C | LEA.L 0x20c9e,A1 000212fe 70 07 |p | MOVEQ.L #0x07,D0 00021300 20 d9 | | MOVE.L (A1)+,(A0)+ 00021302 51 c8 ff fc |Q | DBF D0,0x21300 00021306 41 ee ff 7e |A ~ | LEA.L (A6-0x82),A0 0002130a 43 fa f9 b2 |C | LEA.L 0x20cbe,A1 0002130e 70 07 |p | MOVEQ.L #0x07,D0 00021310 20 d9 | | MOVE.L (A1)+,(A0)+ 00021312 51 c8 ff fc |Q | DBF D0,0x21310 00021316 41 ee ff 9e |A | LEA.L (A6-0x62),A0 0002131a 43 fa f9 c2 |C | LEA.L 0x20cde,A1 0002131e 70 07 |p | MOVEQ.L #0x07,D0 00021320 20 d9 | | MOVE.L (A1)+,(A0)+ 00021322 51 c8 ff fc |Q | DBF D0,0x21320 00021326 41 ee ff be |A | LEA.L (A6-0x42),A0 0002132a 43 fa f9 d2 |C | LEA.L 0x20cfe,A1 0002132e 70 07 |p | MOVEQ.L #0x07,D0 00021330 20 d9 | | MOVE.L (A1)+,(A0)+ 00021332 51 c8 ff fc |Q | DBF D0,0x21330 00021336 41 ee ff de |A | LEA.L (A6-0x22),A0 0002133a 43 fa f9 e2 |C | LEA.L 0x20d1e,A1 0002133e 70 07 |p | MOVEQ.L #0x07,D0 00021340 20 d9 | | MOVE.L (A1)+,(A0)+ 00021342 51 c8 ff fc |Q | DBF D0,0x21340 00021346 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002134a 43 fa f0 3e |C > | LEA.L 0x2038a,A1 0002134e 70 04 |p | MOVEQ.L #0x04,D0 00021350 2f 21 |/! | MOVE.L -(A1),-(A7) 00021352 51 c8 ff fc |Q | DBF D0,0x21350 00021356 5d 4f |]O | SUBQ.L #0x6,A7 00021358 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002135c 3f 04 |? | MOVE.W D4,-(A7) 0002135e 3f 05 |? | MOVE.W D5,-(A7) 00021360 4e 93 |N | JSR (A3) 00021362 50 4f |PO | ADDQ.L #0x8,A7 00021364 4e ba fa d8 |N | JSR 0x20e3e 00021368 58 4f |XO | ADDQ.L #0x4,A7 0002136a 30 1f |0 | MOVE.W (A7)+,D0 0002136c 41 83 |A | CHK.W D3,D0 0002136e de c5 | | ADDA.W D5,A7 00021370 30 80 |0 | MOVE.W D0,(A0) 00021372 41 ee ff 5e |A ^ | LEA.L (A6-0xa2),A0 00021376 32 00 |2 | MOVE.W D0,D1 00021378 e6 49 | I | LSR.W #0x3,D1 0002137a b2 42 | B | CMP.W D2,D1 0002137c 6d 04 |m | BLT 0x21382 0002137e 72 00 |r | MOVEQ.L #0x00,D1 00021380 60 04 |` | BRA 0x21386 00021382 01 30 10 00 | 0 | BTST.B D0,(A0+D1.W) 00021386 67 04 |g | BEQ 0x2138c 00021388 7e 01 |~ | MOVEQ.L #0x01,D7 0002138a 60 62 |`b | BRA 0x213ee 0002138c 7e 00 |~ | MOVEQ.L #0x00,D7 0002138e 5d 4f |]O | SUBQ.L #0x6,A7 00021390 20 4f | O | MOVEA.L A7,A0 00021392 43 fa ef f6 |C | LEA.L 0x2038a,A1 00021396 72 04 |r | MOVEQ.L #0x04,D1 00021398 10 d9 | | MOVE.B (A1)+,(A0)+ 0002139a 51 c9 ff fc |Q | DBF D1,0x21398 0002139e 41 fa f0 02 |A | LEA.L 0x203a2,A0 000213a2 72 08 |r | MOVEQ.L #0x08,D1 000213a4 3f 20 |? | MOVE.W -(A0),-(A7) 000213a6 51 c9 ff fc |Q | DBF D1,0x213a4 000213aa 51 4f |QO | SUBQ.L #0x8,A7 000213ac 48 6f 00 1a |Ho | PEA.L (A7+0x1a) 000213b0 3f 04 |? | MOVE.W D4,-(A7) 000213b2 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 000213b6 4e 93 |N | JSR (A3) 000213b8 58 4f |XO | ADDQ.L #0x4,A7 000213ba 32 00 |2 | MOVE.W D0,D1 000213bc 48 c1 |H | EXTW.L D1 000213be 2f 01 |/ | MOVE.L D1,-(A7) 000213c0 48 78 00 04 |Hx | PEA.L 0x4 000213c4 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 000213ca 58 4f |XO | ADDQ.L #0x4,A7 000213cc 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000213d0 3f 04 |? | MOVE.W D4,-(A7) 000213d2 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 000213d6 4e 93 |N | JSR (A3) 000213d8 50 4f |PO | ADDQ.L #0x8,A7 000213da 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000213e0 de fc 00 0c | | ADDA.W #0xc,A7 000213e4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000213ea de fc 00 1c | | ADDA.W #0x1c,A7 000213ee 4a 07 |J | TST.B D7 000213f0 67 00 ff 54 |g T | BEQ 0x21346 000213f4 41 ee ff 7e |A ~ | LEA.L (A6-0x82),A0 000213f8 32 00 |2 | MOVE.W D0,D1 000213fa e6 49 | I | LSR.W #0x3,D1 000213fc b2 42 | B | CMP.W D2,D1 000213fe 6d 04 |m | BLT 0x21404 00021400 72 00 |r | MOVEQ.L #0x00,D1 00021402 60 04 |` | BRA 0x21408 00021404 01 30 10 00 | 0 | BTST.B D0,(A0+D1.W) 00021408 67 14 |g | BEQ 0x2141e 0002140a 20 52 | R | MOVEA.L (A2),A0 0002140c 59 4f |YO | SUBQ.L #0x4,A7 0002140e 4e ba fb 66 |N f | JSR 0x20f76 00021412 20 1f | | MOVE.L (A7)+,D0 00021414 b0 83 | | CMP.L D3,D0 00021416 63 02 |c | BLS 0x2141a 00021418 4e 4f |NO | TRAP #15 0002141a 30 80 |0 | MOVE.W D0,(A0) 0002141c 60 70 |`p | BRA 0x2148e 0002141e 32 00 |2 | MOVE.W D0,D1 00021420 e6 49 | I | LSR.W #0x3,D1 00021422 b2 42 | B | CMP.W D2,D1 00021424 6d 04 |m | BLT 0x2142a 00021426 72 00 |r | MOVEQ.L #0x00,D1 00021428 60 04 |` | BRA 0x2142e 0002142a 01 36 10 9e | 6 | BTST.B D0,(A6+D1.W-#0x62) 0002142e 67 12 |g | BEQ 0x21442 00021430 20 52 | R | MOVEA.L (A2),A0 00021432 59 4f |YO | SUBQ.L #0x4,A7 00021434 4e ba fb 94 |N | JSR 0x20fca 00021438 20 1f | | MOVE.L (A7)+,D0 0002143a b0 83 | | CMP.L D3,D0 0002143c 63 02 |c | BLS 0x21440 0002143e 4e 4f |NO | TRAP #15 00021440 60 d8 |` | BRA 0x2141a 00021442 32 00 |2 | MOVE.W D0,D1 00021444 e6 49 | I | LSR.W #0x3,D1 00021446 b2 42 | B | CMP.W D2,D1 00021448 6d 04 |m | BLT 0x2144e 0002144a 72 00 |r | MOVEQ.L #0x00,D1 0002144c 60 04 |` | BRA 0x21452 0002144e 01 36 10 be | 6 | BTST.B D0,(A6+D1.W-#0x42) 00021452 67 12 |g | BEQ 0x21466 00021454 20 52 | R | MOVEA.L (A2),A0 00021456 59 4f |YO | SUBQ.L #0x4,A7 00021458 4e ba fc b4 |N | JSR 0x2110e 0002145c 20 1f | | MOVE.L (A7)+,D0 0002145e b0 83 | | CMP.L D3,D0 00021460 63 02 |c | BLS 0x21464 00021462 4e 4f |NO | TRAP #15 00021464 60 b4 |` | BRA 0x2141a 00021466 32 00 |2 | MOVE.W D0,D1 00021468 e6 49 | I | LSR.W #0x3,D1 0002146a b2 42 | B | CMP.W D2,D1 0002146c 6d 04 |m | BLT 0x21472 0002146e 72 00 |r | MOVEQ.L #0x00,D1 00021470 60 04 |` | BRA 0x21476 00021472 01 36 10 de | 6 | BTST.B D0,(A6+D1.W-#0x22) 00021476 67 12 |g | BEQ 0x2148a 00021478 20 52 | R | MOVEA.L (A2),A0 0002147a 59 4f |YO | SUBQ.L #0x4,A7 0002147c 4e ba fd 80 |N | JSR 0x211fe 00021480 20 1f | | MOVE.L (A7)+,D0 00021482 b0 83 | | CMP.L D3,D0 00021484 63 02 |c | BLS 0x21488 00021486 4e 4f |NO | TRAP #15 00021488 60 90 |` | BRA 0x2141a 0002148a 20 52 | R | MOVEA.L (A2),A0 0002148c 42 50 |BP | CLR.W (A0) 0002148e 4c df 0f bf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3 00021492 4e 5e |N^ | UNLK A6 00021494 4e 75 |Nu | RTS 00021496 ; -------------------------------------------------------------------------------------- 00021496 ; OMSI PASCAL Function 00021496 ; <LVAR 0x00c 2(r)> 00021496 ; <LVAR 0x008 4(r)> 00021496 ; <LVAR -0x010 @> 00021496 ; <LVAR -0x014 @> 00021496 ; <LVAR -0x016 @ 1(r)> 00021496 ; <LVAR -0x018 2(r)> 00021496 ; <LVAR -0x01a 2(r)> 00021496 ; <LVAR -0x01c 2(w)> 00021496 ; <LVAR -0x01e 2(r)> 00021496 ; <LVAR -0x020 2(r)> 00021496 ; <LVAR -0x022 2(w)> 00021496 ; <LVAR -0x024 2(r)> 00021496 ; <LVAR -0x026 @ 2(r)> 00021496 ; -------------------------------------------------------------------------------------- 00021496 4e 56 ff 86 |NV | LINK.W A6,#0xff86 0002149a bf d5 | | CMPA.L (A5),A7 0002149c 62 06 |b | BHI 0x214a4 0002149e 44 fc 00 02 |D | MOVE.W #0x2,CCR 000214a2 4e 76 |Nv | TRAPV 000214a4 de fc 00 54 | T | ADDA.W #0x54,A7 000214a8 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 000214ac 72 01 |r | MOVEQ.L #0x01,D1 000214ae 42 6e ff da |Bn | CLR.W (A6-0x26) 000214b2 42 6e ff dc |Bn | CLR.W (A6-0x24) 000214b6 3d 7c 00 03 ff de |=| | MOVE.W #0x3,(A6-0x22) 000214bc 42 6e ff e0 |Bn | CLR.W (A6-0x20) 000214c0 42 6e ff e2 |Bn | CLR.W (A6-0x1e) 000214c4 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 000214c8 e1 40 | @ | ASL.W #0x8,D0 000214ca 3d 40 ff e4 |=@ | MOVE.W D0,(A6-0x1c) 000214ce 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 000214d2 42 6e ff e8 |Bn | CLR.W (A6-0x18) 000214d6 48 6e ff da |Hn | PEA.L (A6-0x26) 000214da 41 ee ff ec |A | LEA.L (A6-0x14),A0 000214de 2f 08 |/ | MOVE.L A0,-(A7) 000214e0 3f 01 |? | MOVE.W D1,-(A7) 000214e2 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 000214e8 50 4f |PO | ADDQ.L #0x8,A7 000214ea 3e 81 |> | MOVE.W D1,(A7) 000214ec 48 6e ff ea |Hn | PEA.L (A6-0x16) 000214f0 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000214f6 5c 4f |\O | ADDQ.L #0x6,A7 000214f8 4a 2e ff ea |J. | TST.B (A6-0x16) 000214fc 66 34 |f4 | BNE 0x21532 000214fe 9e fc 00 32 | 2 | SUBA.W #0x32,A7 00021502 20 4f | O | MOVEA.L A7,A0 00021504 43 fa ee 9c |C | LEA.L 0x203a2,A1 00021508 70 30 |p0 | MOVEQ.L #0x30,D0 0002150a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002150c 51 c8 ff fc |Q | DBF D0,0x2150a 00021510 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00021514 59 4f |YO | SUBQ.L #0x4,A7 00021516 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002151a 3f 01 |? | MOVE.W D1,-(A7) 0002151c 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 00021520 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021526 50 4f |PO | ADDQ.L #0x8,A7 00021528 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002152e de fc 00 38 | 8 | ADDA.W #0x38,A7 00021532 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021536 43 ee ff f0 |C | LEA.L (A6-0x10),A1 0002153a 70 0f |p | MOVEQ.L #0x0f,D0 0002153c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002153e 51 c8 ff fc |Q | DBF D0,0x2153c 00021542 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 00021546 4e 5e |N^ | UNLK A6 00021548 4e 75 |Nu | RTS 0002154a ; -------------------------------------------------------------------------------------- 0002154a ; OMSI PASCAL Function 0002154a ; <LVAR 0x008 2(r)> 0002154a ; <LVAR -0x008 2(r)> 0002154a ; <LVAR -0x010 @> 0002154a ; <LVAR -0x012 @ 1(r)> 0002154a ; <LVAR -0x014 2(r)> 0002154a ; <LVAR -0x016 2(r)> 0002154a ; <LVAR -0x018 2(w)> 0002154a ; <LVAR -0x01a 2(r)> 0002154a ; <LVAR -0x01c 2(r)> 0002154a ; <LVAR -0x01e 2(w)> 0002154a ; <LVAR -0x020 2(r)> 0002154a ; <LVAR -0x022 @ 2(r)> 0002154a ; -------------------------------------------------------------------------------------- 0002154a 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 0002154e bf d5 | | CMPA.L (A5),A7 00021550 62 06 |b | BHI 0x21558 00021552 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021556 4e 76 |Nv | TRAPV 00021558 de fc 00 44 | D | ADDA.W #0x44,A7 0002155c 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00021560 72 01 |r | MOVEQ.L #0x01,D1 00021562 42 6e ff de |Bn | CLR.W (A6-0x22) 00021566 42 6e ff e0 |Bn | CLR.W (A6-0x20) 0002156a 3d 7c 00 03 ff e2 |=| | MOVE.W #0x3,(A6-0x1e) 00021570 42 6e ff e4 |Bn | CLR.W (A6-0x1c) 00021574 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 00021578 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 0002157c e1 40 | @ | ASL.W #0x8,D0 0002157e 06 40 00 1b | @ | ADDI.W #0x001b,D0 00021582 3d 40 ff e8 |=@ | MOVE.W D0,(A6-0x18) 00021586 42 6e ff ea |Bn | CLR.W (A6-0x16) 0002158a 42 6e ff ec |Bn | CLR.W (A6-0x14) 0002158e 48 6e ff de |Hn | PEA.L (A6-0x22) 00021592 48 78 00 00 |Hx | PEA.L 0x0 00021596 3f 01 |? | MOVE.W D1,-(A7) 00021598 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 0002159e 50 4f |PO | ADDQ.L #0x8,A7 000215a0 3e 81 |> | MOVE.W D1,(A7) 000215a2 48 6e ff ee |Hn | PEA.L (A6-0x12) 000215a6 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000215ac 5c 4f |\O | ADDQ.L #0x6,A7 000215ae 4a 2e ff ee |J. | TST.B (A6-0x12) 000215b2 66 2a |f* | BNE 0x215de 000215b4 41 fa ee 46 |A F | LEA.L 0x203fc,A0 000215b8 70 09 |p | MOVEQ.L #0x09,D0 000215ba 2f 20 |/ | MOVE.L -(A0),-(A7) 000215bc 51 c8 ff fc |Q | DBF D0,0x215ba 000215c0 59 4f |YO | SUBQ.L #0x4,A7 000215c2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215c6 3f 01 |? | MOVE.W D1,-(A7) 000215c8 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 000215cc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000215d2 50 4f |PO | ADDQ.L #0x8,A7 000215d4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000215da de fc 00 2c | , | ADDA.W #0x2c,A7 000215de 3f 2e 00 08 |?. | MOVE.W (A6+0x8),-(A7) 000215e2 48 6e ff f0 |Hn | PEA.L (A6-0x10) 000215e6 4e ba fe ae |N | JSR 0x21496 000215ea 5c 4f |\O | ADDQ.L #0x6,A7 000215ec 30 2e ff f8 |0. | MOVE.W (A6-0x8),D0 000215f0 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 000215f4 67 e8 |g | BEQ 0x215de 000215f6 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 000215fa 4e 5e |N^ | UNLK A6 000215fc 4e 75 |Nu | RTS 000215fe ; -------------------------------------------------------------------------------------- 000215fe ; OMSI PASCAL Function 000215fe ; <LVAR 0x00c 2(r)> 000215fe ; <LVAR 0x00a 2(r)> 000215fe ; <LVAR 0x008 2(r)> 000215fe ; <LVAR -0x002 @ 1(r)> 000215fe ; <LVAR -0x004 2(r)> 000215fe ; <LVAR -0x006 2(w)> 000215fe ; <LVAR -0x008 2(w)> 000215fe ; <LVAR -0x00a 2(r)> 000215fe ; <LVAR -0x00c 2(r)> 000215fe ; <LVAR -0x00e 2(w)> 000215fe ; <LVAR -0x010 2(r)> 000215fe ; <LVAR -0x012 @ 2(r)> 000215fe ; <LVAR -0x016 @ 4(w)> 000215fe ; -------------------------------------------------------------------------------------- 000215fe 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00021602 bf d5 | | CMPA.L (A5),A7 00021604 62 06 |b | BHI 0x2160c 00021606 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002160a 4e 76 |Nv | TRAPV 0002160c de fc 00 42 | B | ADDA.W #0x42,A7 00021610 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00021614 72 01 |r | MOVEQ.L #0x01,D1 00021616 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 0002161a e1 40 | @ | ASL.W #0x8,D0 0002161c d0 6e 00 0a | n | ADD.W (A6+0xa),D0 00021620 48 c0 |H | EXTW.L D0 00021622 2d 40 ff ea |-@ | MOVE.L D0,(A6-0x16) 00021626 42 6e ff ee |Bn | CLR.W (A6-0x12) 0002162a 42 6e ff f0 |Bn | CLR.W (A6-0x10) 0002162e 3d 7c 00 03 ff f2 |=| | MOVE.W #0x3,(A6-0xe) 00021634 42 6e ff f4 |Bn | CLR.W (A6-0xc) 00021638 42 6e ff f6 |Bn | CLR.W (A6-0xa) 0002163c 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 00021640 e1 40 | @ | ASL.W #0x8,D0 00021642 06 40 00 1a | @ | ADDI.W #0x001a,D0 00021646 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 0002164a 3d 7c 00 02 ff fa |=| | MOVE.W #0x2,(A6-0x6) 00021650 42 6e ff fc |Bn | CLR.W (A6-0x4) 00021654 48 6e ff ee |Hn | PEA.L (A6-0x12) 00021658 41 ee ff ea |A | LEA.L (A6-0x16),A0 0002165c 2f 08 |/ | MOVE.L A0,-(A7) 0002165e 3f 01 |? | MOVE.W D1,-(A7) 00021660 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00021666 50 4f |PO | ADDQ.L #0x8,A7 00021668 3e 81 |> | MOVE.W D1,(A7) 0002166a 48 6e ff fe |Hn | PEA.L (A6-0x2) 0002166e 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00021674 5c 4f |\O | ADDQ.L #0x6,A7 00021676 4a 2e ff fe |J. | TST.B (A6-0x2) 0002167a 66 2a |f* | BNE 0x216a6 0002167c 41 fa ed a4 |A | LEA.L 0x20422,A0 00021680 70 12 |p | MOVEQ.L #0x12,D0 00021682 3f 20 |? | MOVE.W -(A0),-(A7) 00021684 51 c8 ff fc |Q | DBF D0,0x21682 00021688 59 4f |YO | SUBQ.L #0x4,A7 0002168a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002168e 3f 01 |? | MOVE.W D1,-(A7) 00021690 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 00021694 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002169a 50 4f |PO | ADDQ.L #0x8,A7 0002169c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000216a2 de fc 00 2a | * | ADDA.W #0x2a,A7 000216a6 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 000216aa 4e 5e |N^ | UNLK A6 000216ac 4e 75 |Nu | RTS 000216ae ; -------------------------------------------------------------------------------------- 000216ae ; OMSI PASCAL Function 000216ae ; <LVAR 0x010 2(r)> 000216ae ; <LVAR 0x00c 4(r)> 000216ae ; <LVAR 0x008 4(r)> 000216ae ; <LVAR -0x00c 2(r)> 000216ae ; <LVAR -0x014 @> 000216ae ; <LVAR -0x026 2(r)> 000216ae ; <LVAR -0x028 2(r)> 000216ae ; <LVAR -0x030 @> 000216ae ; <LVAR -0x032 @> 000216ae ; <LVAR -0x034 2(r)> 000216ae ; <LVAR -0x036 2(w)> 000216ae ; <LVAR -0x038 2(w)> 000216ae ; <LVAR -0x03a 2(r)> 000216ae ; <LVAR -0x03c 2(r)> 000216ae ; <LVAR -0x03e 2(w)> 000216ae ; <LVAR -0x040 2(r)> 000216ae ; <LVAR -0x042 @ 2(r)> 000216ae ; -------------------------------------------------------------------------------------- 000216ae 4e 56 ff 7a |NV z | LINK.W A6,#0xff7a 000216b2 bf d5 | | CMPA.L (A5),A7 000216b4 62 06 |b | BHI 0x216bc 000216b6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000216ba 4e 76 |Nv | TRAPV 000216bc de fc 00 44 | D | ADDA.W #0x44,A7 000216c0 48 e7 e1 c0 |H | MOVEM.L A1+A0+D7+D2+D1+D0,-(A7) 000216c4 72 01 |r | MOVEQ.L #0x01,D1 000216c6 74 19 |t | MOVEQ.L #0x19,D2 000216c8 42 6e ff be |Bn | CLR.W (A6-0x42) 000216cc 42 6e ff c0 |Bn | CLR.W (A6-0x40) 000216d0 3d 7c 00 03 ff c2 |=| | MOVE.W #0x3,(A6-0x3e) 000216d6 42 6e ff c4 |Bn | CLR.W (A6-0x3c) 000216da 42 6e ff c6 |Bn | CLR.W (A6-0x3a) 000216de 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0 000216e2 e1 40 | @ | ASL.W #0x8,D0 000216e4 d0 42 | B | ADD.W D2,D0 000216e6 3d 40 ff c8 |=@ | MOVE.W D0,(A6-0x38) 000216ea 3d 7c 00 1b ff ca |=| | MOVE.W #0x1b,(A6-0x36) 000216f0 42 6e ff cc |Bn | CLR.W (A6-0x34) 000216f4 7e 00 |~ | MOVEQ.L #0x00,D7 000216f6 48 6e ff be |Hn | PEA.L (A6-0x42) 000216fa 41 ee ff d0 |A | LEA.L (A6-0x30),A0 000216fe 2f 08 |/ | MOVE.L A0,-(A7) 00021700 3f 01 |? | MOVE.W D1,-(A7) 00021702 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00021708 50 4f |PO | ADDQ.L #0x8,A7 0002170a 3e 81 |> | MOVE.W D1,(A7) 0002170c 48 6e ff ce |Hn | PEA.L (A6-0x32) 00021710 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00021716 58 4f |XO | ADDQ.L #0x4,A7 00021718 3e ae 00 10 |> | MOVE.W (A6+0x10),(A7) 0002171c 48 6e ff ec |Hn | PEA.L (A6-0x14) 00021720 4e ba fd 74 |N t | JSR 0x21496 00021724 5c 4f |\O | ADDQ.L #0x6,A7 00021726 30 2e ff f4 |0. | MOVE.W (A6-0xc),D0 0002172a 02 40 40 00 | @@ | ANDI.W #0x4000,D0 0002172e 67 40 |g@ | BEQ 0x21770 00021730 52 87 |R | ADDQ.L #0x1,D7 00021732 0c 87 00 00 00 02 | | CMPI.L #0x00000002,D7 00021738 6c 04 |l | BGE 0x2173e 0002173a 60 ba |` | BRA 0x216f6 0002173c 60 32 |`2 | .XXX[0x2] 0002173e 9e fc 00 1a | | SUBA.W #0x1a,A7 00021742 20 4f | O | MOVEA.L A7,A0 00021744 43 fa ec dc |C | LEA.L 0x20422,A1 00021748 70 18 |p | MOVEQ.L #0x18,D0 0002174a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002174c 51 c8 ff fc |Q | DBF D0,0x2174a 00021750 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00021754 59 4f |YO | SUBQ.L #0x4,A7 00021756 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002175a 3f 01 |? | MOVE.W D1,-(A7) 0002175c 3f 02 |? | MOVE.W D2,-(A7) 0002175e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021764 50 4f |PO | ADDQ.L #0x8,A7 00021766 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002176c de fc 00 20 | | ADDA.W #0x20,A7 00021770 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021774 30 2e ff d8 |0. | MOVE.W (A6-0x28),D0 00021778 e0 48 | H | LSR.W #0x8,D0 0002177a 02 40 00 ff | @ | ANDI.W #0x00ff,D0 0002177e 30 80 |0 | MOVE.W D0,(A0) 00021780 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021784 30 ae ff da |0 | MOVE.W (A6-0x26),(A0) 00021788 02 50 00 ff | P | ANDI.W #0x00ff,(A0) 0002178c 4c df 03 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1 00021790 4e 5e |N^ | UNLK A6 00021792 4e 75 |Nu | RTS 00021794 ; -------------------------------------------------------------------------------------- 00021794 ; OMSI PASCAL Function 00021794 ; <LVAR 0x014 2(r)> 00021794 ; <LVAR 0x012 2(r)> 00021794 ; <LVAR 0x010 2(r)> 00021794 ; <LVAR 0x00c 4(r)> 00021794 ; <LVAR 0x008 4(r)> 00021794 ; <LVAR -0x00a 2(r)> 00021794 ; <LVAR -0x012 @> 00021794 ; -------------------------------------------------------------------------------------- 00021794 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00021798 bf d5 | | CMPA.L (A5),A7 0002179a 62 06 |b | BHI 0x217a2 0002179c 44 fc 00 02 |D | MOVE.W #0x2,CCR 000217a0 4e 76 |Nv | TRAPV 000217a2 de fc 00 1a | | ADDA.W #0x1a,A7 000217a6 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 000217aa 43 ee 00 14 |C | LEA.L (A6+0x14),A1 000217ae 3f 11 |? | MOVE.W (A1),-(A7) 000217b0 4e ba fd 98 |N | JSR 0x2154a 000217b4 3e 91 |> | MOVE.W (A1),(A7) 000217b6 3f 2e 00 12 |?. | MOVE.W (A6+0x12),-(A7) 000217ba 3f 2e 00 10 |?. | MOVE.W (A6+0x10),-(A7) 000217be 4e ba fe 3e |N > | JSR 0x215fe 000217c2 5c 4f |\O | ADDQ.L #0x6,A7 000217c4 3f 11 |? | MOVE.W (A1),-(A7) 000217c6 48 6e ff ee |Hn | PEA.L (A6-0x12) 000217ca 4e ba fc ca |N | JSR 0x21496 000217ce 5c 4f |\O | ADDQ.L #0x6,A7 000217d0 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 000217d4 02 40 00 80 | @ | ANDI.W #0x0080,D0 000217d8 66 ea |f | BNE 0x217c4 000217da 3f 11 |? | MOVE.W (A1),-(A7) 000217dc 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000217e0 48 50 |HP | PEA.L (A0) 000217e2 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000217e6 48 50 |HP | PEA.L (A0) 000217e8 4e ba fe c4 |N | JSR 0x216ae 000217ec de fc 00 0a | | ADDA.W #0xa,A7 000217f0 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000217f4 4e 5e |N^ | UNLK A6 000217f6 4e 75 |Nu | RTS 000217f8 ; -------------------------------------------------------------------------------------- 000217f8 ; OMSI PASCAL Function 000217f8 ; <LVAR 0x008 4(r)> 000217f8 ; <LVAR -0x016 @ 2(r)> 000217f8 ; <LVAR -0x01a 2(r)> 000217f8 ; <LVAR -0x01c 2(w)> 000217f8 ; <LVAR -0x022 2(w)> 000217f8 ; <LVAR -0x026 @> 000217f8 ; <LVAR -0x028 @> 000217f8 ; -------------------------------------------------------------------------------------- 000217f8 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 000217fc bf d5 | | CMPA.L (A5),A7 000217fe 62 06 |b | BHI 0x21806 00021800 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021804 4e 76 |Nv | TRAPV 00021806 de fc 00 4c | L | ADDA.W #0x4c,A7 0002180a 48 e7 f0 e0 |H | MOVEM.L A2+A1+A0+D3+D2+D1+D0,-(A7) 0002180e 45 ee ff ea |E | LEA.L (A6-0x16),A2 00021812 72 01 |r | MOVEQ.L #0x01,D1 00021814 74 18 |t | MOVEQ.L #0x18,D2 00021816 76 03 |v | MOVEQ.L #0x03,D3 00021818 3d 43 ff de |=C | MOVE.W D3,(A6-0x22) 0002181c 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 00021820 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021824 43 fa ec 2e |C . | LEA.L 0x20454,A1 00021828 70 05 |p | MOVEQ.L #0x05,D0 0002182a 2f 21 |/! | MOVE.L -(A1),-(A7) 0002182c 51 c8 ff fc |Q | DBF D0,0x2182a 00021830 51 4f |QO | SUBQ.L #0x8,A7 00021832 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021836 3f 01 |? | MOVE.W D1,-(A7) 00021838 3f 02 |? | MOVE.W D2,-(A7) 0002183a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021840 50 4f |PO | ADDQ.L #0x8,A7 00021842 48 78 00 00 |Hx | PEA.L 0x0 00021846 48 78 00 03 |Hx | PEA.L 0x3 0002184a 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00021850 de fc 00 0c | | ADDA.W #0xc,A7 00021854 20 1f | | MOVE.L (A7)+,D0 00021856 b0 83 | | CMP.L D3,D0 00021858 63 02 |c | BLS 0x2185c 0002185a 4e 4f |NO | TRAP #15 0002185c de c2 | | ADDA.W D2,A7 0002185e 30 80 |0 | MOVE.W D0,(A0) 00021860 e1 40 | @ | ASL.W #0x8,D0 00021862 3d 40 ff e4 |=@ | MOVE.W D0,(A6-0x1c) 00021866 48 6e ff da |Hn | PEA.L (A6-0x26) 0002186a 20 4a | J | MOVEA.L A2,A0 0002186c 2f 08 |/ | MOVE.L A0,-(A7) 0002186e 3f 01 |? | MOVE.W D1,-(A7) 00021870 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00021876 50 4f |PO | ADDQ.L #0x8,A7 00021878 3e 81 |> | MOVE.W D1,(A7) 0002187a 48 6e ff d8 |Hn | PEA.L (A6-0x28) 0002187e 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00021884 5c 4f |\O | ADDQ.L #0x6,A7 00021886 4a 52 |JR | TST.W (A2) 00021888 66 28 |f( | BNE 0x218b2 0002188a 41 fa eb dc |A | LEA.L 0x20468,A0 0002188e 70 04 |p | MOVEQ.L #0x04,D0 00021890 2f 20 |/ | MOVE.L -(A0),-(A7) 00021892 51 c8 ff fc |Q | DBF D0,0x21890 00021896 59 4f |YO | SUBQ.L #0x4,A7 00021898 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002189c 3f 01 |? | MOVE.W D1,-(A7) 0002189e 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 000218a2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000218a8 50 4f |PO | ADDQ.L #0x8,A7 000218aa 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000218b0 de c2 | | ADDA.W D2,A7 000218b2 4a 52 |JR | TST.W (A2) 000218b4 67 00 ff 6a |g j | BEQ 0x21820 000218b8 4c df 07 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2 000218bc 4e 5e |N^ | UNLK A6 000218be 4e 75 |Nu | RTS 000218c0 ; -------------------------------------------------------------------------------------- 000218c0 ; OMSI PASCAL Function 000218c0 ; <LVAR 0x008 2(r)> 000218c0 ; -------------------------------------------------------------------------------------- 000218c0 4e 56 ff 86 |NV | LINK.W A6,#0xff86 000218c4 bf d5 | | CMPA.L (A5),A7 000218c6 62 06 |b | BHI 0x218ce 000218c8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000218cc 4e 76 |Nv | TRAPV 000218ce de fc 00 74 | t | ADDA.W #0x74,A7 000218d2 48 e7 ff e8 |H | MOVEM.L A4+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000218d6 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000218dc 72 01 |r | MOVEQ.L #0x01,D1 000218de 74 10 |t | MOVEQ.L #0x10,D2 000218e0 76 12 |v | MOVEQ.L #0x12,D3 000218e2 78 16 |x | MOVEQ.L #0x16,D4 000218e4 7a 14 |z | MOVEQ.L #0x14,D5 000218e6 7c 1a || | MOVEQ.L #0x1a,D6 000218e8 7e 0c |~ | MOVEQ.L #0x0c,D7 000218ea 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 000218ee 0c 40 00 99 | @ | CMPI.W #0x0099,D0 000218f2 62 00 09 66 |b f | BHI switch@0x218f8[0xa] 000218f6 d0 40 | @ | ADD.W D0,D0 000218f8 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00021900 01 34 | 4 | .CONST 0x134 ; [0x0] -> 0x21a34 00021902 01 5c | \ | .CONST 0x15c ; [0x1] -> 0x21a5c 00021904 01 84 | | .CONST 0x184 ; [0x2] -> 0x21a84 00021906 01 aa | | .CONST 0x1aa ; [0x3] -> 0x21aaa 00021908 01 ca | | .CONST 0x1ca ; [0x4] -> 0x21aca 0002190a 01 f2 | | .CONST 0x1f2 ; [0x5] -> 0x21af2 0002190c 02 0c | | .CONST 0x20c ; [0x6] -> 0x21b0c 0002190e 02 24 | $ | .CONST 0x224 ; [0x7] -> 0x21b24 00021910 02 36 | 6 | .CONST 0x236 ; [0x8] -> 0x21b36 00021912 02 58 | X | .CONST 0x258 ; [0x9] -> 0x21b58 00021914 09 5a | Z | .CONST 0x95a ; [0xa] -> 0x2225a 00021916 09 5a | Z | .CONST 0x95a ; [0xb] -> 0x2225a 00021918 09 5a | Z | .CONST 0x95a ; [0xc] -> 0x2225a 0002191a 09 5a | Z | .CONST 0x95a ; [0xd] -> 0x2225a 0002191c 09 5a | Z | .CONST 0x95a ; [0xe] -> 0x2225a 0002191e 09 5a | Z | .CONST 0x95a ; [0xf] -> 0x2225a 00021920 02 76 | v | .CONST 0x276 ; [0x10] -> 0x21b76 00021922 02 86 | | .CONST 0x286 ; [0x11] -> 0x21b86 00021924 02 9a | | .CONST 0x29a ; [0x12] -> 0x21b9a 00021926 02 ae | | .CONST 0x2ae ; [0x13] -> 0x21bae 00021928 02 d6 | | .CONST 0x2d6 ; [0x14] -> 0x21bd6 0002192a 02 e6 | | .CONST 0x2e6 ; [0x15] -> 0x21be6 0002192c 03 12 | | .CONST 0x312 ; [0x16] -> 0x21c12 0002192e 03 38 | 8 | .CONST 0x338 ; [0x17] -> 0x21c38 00021930 03 4c | L | .CONST 0x34c ; [0x18] -> 0x21c4c 00021932 09 5a | Z | .CONST 0x95a ; [0x19] -> 0x2225a 00021934 09 5a | Z | .CONST 0x95a ; [0x1a] -> 0x2225a 00021936 09 5a | Z | .CONST 0x95a ; [0x1b] -> 0x2225a 00021938 09 5a | Z | .CONST 0x95a ; [0x1c] -> 0x2225a 0002193a 09 5a | Z | .CONST 0x95a ; [0x1d] -> 0x2225a 0002193c 09 5a | Z | .CONST 0x95a ; [0x1e] -> 0x2225a 0002193e 09 5a | Z | .CONST 0x95a ; [0x1f] -> 0x2225a 00021940 03 60 | ` | .CONST 0x360 ; [0x20] -> 0x21c60 00021942 03 74 | t | .CONST 0x374 ; [0x21] -> 0x21c74 00021944 03 a0 | | .CONST 0x3a0 ; [0x22] -> 0x21ca0 00021946 03 b0 | | .CONST 0x3b0 ; [0x23] -> 0x21cb0 00021948 03 c0 | | .CONST 0x3c0 ; [0x24] -> 0x21cc0 0002194a 03 d0 | | .CONST 0x3d0 ; [0x25] -> 0x21cd0 0002194c 03 f0 | | .CONST 0x3f0 ; [0x26] -> 0x21cf0 0002194e 04 10 | | .CONST 0x410 ; [0x27] -> 0x21d10 00021950 04 24 | $ | .CONST 0x424 ; [0x28] -> 0x21d24 00021952 04 4a | J | .CONST 0x44a ; [0x29] -> 0x21d4a 00021954 09 5a | Z | .CONST 0x95a ; [0x2a] -> 0x2225a 00021956 09 5a | Z | .CONST 0x95a ; [0x2b] -> 0x2225a 00021958 09 5a | Z | .CONST 0x95a ; [0x2c] -> 0x2225a 0002195a 09 5a | Z | .CONST 0x95a ; [0x2d] -> 0x2225a 0002195c 09 5a | Z | .CONST 0x95a ; [0x2e] -> 0x2225a 0002195e 09 5a | Z | .CONST 0x95a ; [0x2f] -> 0x2225a 00021960 04 5e | ^ | .CONST 0x45e ; [0x30] -> 0x21d5e 00021962 04 8a | | .CONST 0x48a ; [0x31] -> 0x21d8a 00021964 04 9e | | .CONST 0x49e ; [0x32] -> 0x21d9e 00021966 04 b2 | | .CONST 0x4b2 ; [0x33] -> 0x21db2 00021968 04 c6 | | .CONST 0x4c6 ; [0x34] -> 0x21dc6 0002196a 04 da | | .CONST 0x4da ; [0x35] -> 0x21dda 0002196c 04 ee | | .CONST 0x4ee ; [0x36] -> 0x21dee 0002196e 09 5a | Z | .CONST 0x95a ; [0x37] -> 0x2225a 00021970 09 5a | Z | .CONST 0x95a ; [0x38] -> 0x2225a 00021972 09 5a | Z | .CONST 0x95a ; [0x39] -> 0x2225a 00021974 09 5a | Z | .CONST 0x95a ; [0x3a] -> 0x2225a 00021976 09 5a | Z | .CONST 0x95a ; [0x3b] -> 0x2225a 00021978 09 5a | Z | .CONST 0x95a ; [0x3c] -> 0x2225a 0002197a 09 5a | Z | .CONST 0x95a ; [0x3d] -> 0x2225a 0002197c 09 5a | Z | .CONST 0x95a ; [0x3e] -> 0x2225a 0002197e 09 5a | Z | .CONST 0x95a ; [0x3f] -> 0x2225a 00021980 09 5a | Z | .CONST 0x95a ; [0x40] -> 0x2225a 00021982 05 02 | | .CONST 0x502 ; [0x41] -> 0x21e02 00021984 09 5a | Z | .CONST 0x95a ; [0x42] -> 0x2225a 00021986 09 5a | Z | .CONST 0x95a ; [0x43] -> 0x2225a 00021988 09 5a | Z | .CONST 0x95a ; [0x44] -> 0x2225a 0002198a 09 5a | Z | .CONST 0x95a ; [0x45] -> 0x2225a 0002198c 09 5a | Z | .CONST 0x95a ; [0x46] -> 0x2225a 0002198e 05 12 | | .CONST 0x512 ; [0x47] -> 0x21e12 00021990 05 26 | & | .CONST 0x526 ; [0x48] -> 0x21e26 00021992 09 5a | Z | .CONST 0x95a ; [0x49] -> 0x2225a 00021994 09 5a | Z | .CONST 0x95a ; [0x4a] -> 0x2225a 00021996 09 5a | Z | .CONST 0x95a ; [0x4b] -> 0x2225a 00021998 09 5a | Z | .CONST 0x95a ; [0x4c] -> 0x2225a 0002199a 09 5a | Z | .CONST 0x95a ; [0x4d] -> 0x2225a 0002199c 09 5a | Z | .CONST 0x95a ; [0x4e] -> 0x2225a 0002199e 09 5a | Z | .CONST 0x95a ; [0x4f] -> 0x2225a 000219a0 05 3a | : | .CONST 0x53a ; [0x50] -> 0x21e3a 000219a2 05 60 | ` | .CONST 0x560 ; [0x51] -> 0x21e60 000219a4 05 86 | | .CONST 0x586 ; [0x52] -> 0x21e86 000219a6 05 a8 | | .CONST 0x5a8 ; [0x53] -> 0x21ea8 000219a8 05 bc | | .CONST 0x5bc ; [0x54] -> 0x21ebc 000219aa 05 d0 | | .CONST 0x5d0 ; [0x55] -> 0x21ed0 000219ac 05 e4 | | .CONST 0x5e4 ; [0x56] -> 0x21ee4 000219ae 09 5a | Z | .CONST 0x95a ; [0x57] -> 0x2225a 000219b0 09 5a | Z | .CONST 0x95a ; [0x58] -> 0x2225a 000219b2 09 5a | Z | .CONST 0x95a ; [0x59] -> 0x2225a 000219b4 09 5a | Z | .CONST 0x95a ; [0x5a] -> 0x2225a 000219b6 09 5a | Z | .CONST 0x95a ; [0x5b] -> 0x2225a 000219b8 09 5a | Z | .CONST 0x95a ; [0x5c] -> 0x2225a 000219ba 09 5a | Z | .CONST 0x95a ; [0x5d] -> 0x2225a 000219bc 09 5a | Z | .CONST 0x95a ; [0x5e] -> 0x2225a 000219be 09 5a | Z | .CONST 0x95a ; [0x5f] -> 0x2225a 000219c0 06 06 | | .CONST 0x606 ; [0x60] -> 0x21f06 000219c2 06 16 | | .CONST 0x616 ; [0x61] -> 0x21f16 000219c4 06 32 | 2 | .CONST 0x632 ; [0x62] -> 0x21f32 000219c6 06 42 | B | .CONST 0x642 ; [0x63] -> 0x21f42 000219c8 06 6e | n | .CONST 0x66e ; [0x64] -> 0x21f6e 000219ca 06 94 | | .CONST 0x694 ; [0x65] -> 0x21f94 000219cc 06 c0 | | .CONST 0x6c0 ; [0x66] -> 0x21fc0 000219ce 06 da | | .CONST 0x6da ; [0x67] -> 0x21fda 000219d0 06 f6 | | .CONST 0x6f6 ; [0x68] -> 0x21ff6 000219d2 09 5a | Z | .CONST 0x95a ; [0x69] -> 0x2225a 000219d4 09 5a | Z | .CONST 0x95a ; [0x6a] -> 0x2225a 000219d6 09 5a | Z | .CONST 0x95a ; [0x6b] -> 0x2225a 000219d8 09 5a | Z | .CONST 0x95a ; [0x6c] -> 0x2225a 000219da 09 5a | Z | .CONST 0x95a ; [0x6d] -> 0x2225a 000219dc 09 5a | Z | .CONST 0x95a ; [0x6e] -> 0x2225a 000219de 09 5a | Z | .CONST 0x95a ; [0x6f] -> 0x2225a 000219e0 07 06 | | .CONST 0x706 ; [0x70] -> 0x22006 000219e2 07 1a | | .CONST 0x71a ; [0x71] -> 0x2201a 000219e4 07 2e | . | .CONST 0x72e ; [0x72] -> 0x2202e 000219e6 07 48 | H | .CONST 0x748 ; [0x73] -> 0x22048 000219e8 07 58 | X | .CONST 0x758 ; [0x74] -> 0x22058 000219ea 07 68 | h | .CONST 0x768 ; [0x75] -> 0x22068 000219ec 07 7c | | | .CONST 0x77c ; [0x76] -> 0x2207c 000219ee 07 90 | | .CONST 0x790 ; [0x77] -> 0x22090 000219f0 07 a4 | | .CONST 0x7a4 ; [0x78] -> 0x220a4 000219f2 07 b2 | | .CONST 0x7b2 ; [0x79] -> 0x220b2 000219f4 09 5a | Z | .CONST 0x95a ; [0x7a] -> 0x2225a 000219f6 09 5a | Z | .CONST 0x95a ; [0x7b] -> 0x2225a 000219f8 09 5a | Z | .CONST 0x95a ; [0x7c] -> 0x2225a 000219fa 09 5a | Z | .CONST 0x95a ; [0x7d] -> 0x2225a 000219fc 09 5a | Z | .CONST 0x95a ; [0x7e] -> 0x2225a 000219fe 09 5a | Z | .CONST 0x95a ; [0x7f] -> 0x2225a 00021a00 07 c8 | | .CONST 0x7c8 ; [0x80] -> 0x220c8 00021a02 07 dc | | .CONST 0x7dc ; [0x81] -> 0x220dc 00021a04 07 ec | | .CONST 0x7ec ; [0x82] -> 0x220ec 00021a06 08 02 | | .CONST 0x802 ; [0x83] -> 0x22102 00021a08 08 16 | | .CONST 0x816 ; [0x84] -> 0x22116 00021a0a 08 26 | & | .CONST 0x826 ; [0x85] -> 0x22126 00021a0c 08 36 | 6 | .CONST 0x836 ; [0x86] -> 0x22136 00021a0e 08 46 | F | .CONST 0x846 ; [0x87] -> 0x22146 00021a10 09 5a | Z | .CONST 0x95a ; [0x88] -> 0x2225a 00021a12 08 5a | Z | .CONST 0x85a ; [0x89] -> 0x2215a 00021a14 09 5a | Z | .CONST 0x95a ; [0x8a] -> 0x2225a 00021a16 09 5a | Z | .CONST 0x95a ; [0x8b] -> 0x2225a 00021a18 09 5a | Z | .CONST 0x95a ; [0x8c] -> 0x2225a 00021a1a 09 5a | Z | .CONST 0x95a ; [0x8d] -> 0x2225a 00021a1c 09 5a | Z | .CONST 0x95a ; [0x8e] -> 0x2225a 00021a1e 09 5a | Z | .CONST 0x95a ; [0x8f] -> 0x2225a 00021a20 08 6e | n | .CONST 0x86e ; [0x90] -> 0x2216e 00021a22 08 7e | ~ | .CONST 0x87e ; [0x91] -> 0x2217e 00021a24 08 8e | | .CONST 0x88e ; [0x92] -> 0x2218e 00021a26 08 ba | | .CONST 0x8ba ; [0x93] -> 0x221ba 00021a28 08 ca | | .CONST 0x8ca ; [0x94] -> 0x221ca 00021a2a 08 da | | .CONST 0x8da ; [0x95] -> 0x221da 00021a2c 09 04 | | .CONST 0x904 ; [0x96] -> 0x22204 00021a2e 09 18 | | .CONST 0x918 ; [0x97] -> 0x22218 00021a30 09 34 | 4 | .CONST 0x934 ; [0x98] -> 0x22234 00021a32 09 44 | D | .CONST 0x944 ; [0x99] -> 0x22244 00021a34 switch@0x218f8[0x0]: 00021a34 9e c2 | | SUBA.W D2,A7 00021a36 20 4f | O | MOVEA.L A7,A0 00021a38 43 fa ea 2e |C . | LEA.L 0x20468,A1 00021a3c 70 0e |p | MOVEQ.L #0x0e,D0 00021a3e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021a40 51 c8 ff fc |Q | DBF D0,0x21a3e 00021a44 59 4f |YO | SUBQ.L #0x4,A7 00021a46 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021a4a 3f 01 |? | MOVE.W D1,-(A7) 00021a4c 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00021a50 4e 92 |N | JSR (A2) 00021a52 50 4f |PO | ADDQ.L #0x8,A7 00021a54 28 5f |(_ | MOVEA.L (A7)+,A4 00021a56 de c2 | | ADDA.W D2,A7 00021a58 60 00 08 1e |` | BRA 0x22278 00021a5c switch@0x218f8[0x1]: 00021a5c 9e c5 | | SUBA.W D5,A7 00021a5e 20 4f | O | MOVEA.L A7,A0 00021a60 43 fa ea 16 |C | LEA.L 0x20478,A1 00021a64 70 12 |p | MOVEQ.L #0x12,D0 00021a66 10 d9 | | MOVE.B (A1)+,(A0)+ 00021a68 51 c8 ff fc |Q | DBF D0,0x21a66 00021a6c 59 4f |YO | SUBQ.L #0x4,A7 00021a6e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021a72 3f 01 |? | MOVE.W D1,-(A7) 00021a74 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00021a78 4e 92 |N | JSR (A2) 00021a7a 50 4f |PO | ADDQ.L #0x8,A7 00021a7c 28 5f |(_ | MOVEA.L (A7)+,A4 00021a7e de c5 | | ADDA.W D5,A7 00021a80 60 00 07 f6 |` | BRA 0x22278 00021a84 switch@0x218f8[0x2]: 00021a84 41 fa ea 24 |A $ | LEA.L 0x204aa,A0 00021a88 70 0e |p | MOVEQ.L #0x0e,D0 00021a8a 3f 20 |? | MOVE.W -(A0),-(A7) 00021a8c 51 c8 ff fc |Q | DBF D0,0x21a8a 00021a90 59 4f |YO | SUBQ.L #0x4,A7 00021a92 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021a96 3f 01 |? | MOVE.W D1,-(A7) 00021a98 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 00021a9c 4e 92 |N | JSR (A2) 00021a9e 50 4f |PO | ADDQ.L #0x8,A7 00021aa0 28 5f |(_ | MOVEA.L (A7)+,A4 00021aa2 de fc 00 1e | | ADDA.W #0x1e,A7 00021aa6 60 00 07 d0 |` | BRA 0x22278 00021aaa switch@0x218f8[0x3]: 00021aaa 2f 3a ea 02 |/: | MOVE.L 0x204ae,-(A7) 00021aae 2f 3a e9 fa |/: | MOVE.L 0x204aa,-(A7) 00021ab2 59 4f |YO | SUBQ.L #0x4,A7 00021ab4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021ab8 3f 01 |? | MOVE.W D1,-(A7) 00021aba 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00021abe 4e 92 |N | JSR (A2) 00021ac0 50 4f |PO | ADDQ.L #0x8,A7 00021ac2 28 5f |(_ | MOVEA.L (A7)+,A4 00021ac4 50 4f |PO | ADDQ.L #0x8,A7 00021ac6 60 00 07 b0 |` | BRA 0x22278 00021aca switch@0x218f8[0x4]: 00021aca 9e c4 | | SUBA.W D4,A7 00021acc 20 4f | O | MOVEA.L A7,A0 00021ace 43 fa e9 e2 |C | LEA.L 0x204b2,A1 00021ad2 70 14 |p | MOVEQ.L #0x14,D0 00021ad4 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ad6 51 c8 ff fc |Q | DBF D0,0x21ad4 00021ada 59 4f |YO | SUBQ.L #0x4,A7 00021adc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021ae0 3f 01 |? | MOVE.W D1,-(A7) 00021ae2 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 00021ae6 4e 92 |N | JSR (A2) 00021ae8 50 4f |PO | ADDQ.L #0x8,A7 00021aea 28 5f |(_ | MOVEA.L (A7)+,A4 00021aec de c4 | | ADDA.W D4,A7 00021aee 60 00 07 88 |` | BRA 0x22278 00021af2 switch@0x218f8[0x5]: 00021af2 41 fa e9 e8 |A | LEA.L 0x204dc,A0 00021af6 70 04 |p | MOVEQ.L #0x04,D0 00021af8 2f 20 |/ | MOVE.L -(A0),-(A7) 00021afa 51 c8 ff fc |Q | DBF D0,0x21af8 00021afe 59 4f |YO | SUBQ.L #0x4,A7 00021b00 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021b04 3f 01 |? | MOVE.W D1,-(A7) 00021b06 3f 05 |? | MOVE.W D5,-(A7) 00021b08 60 00 ff 6e |` n | BRA 0x21a78 00021b0c switch@0x218f8[0x6]: 00021b0c 41 fa e9 e4 |A | LEA.L 0x204f2,A0 00021b10 70 0a |p | MOVEQ.L #0x0a,D0 00021b12 3f 20 |? | MOVE.W -(A0),-(A7) 00021b14 51 c8 ff fc |Q | DBF D0,0x21b12 00021b18 59 4f |YO | SUBQ.L #0x4,A7 00021b1a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021b1e 3f 01 |? | MOVE.W D1,-(A7) 00021b20 3f 04 |? | MOVE.W D4,-(A7) 00021b22 60 c2 |` | BRA 0x21ae6 00021b24 switch@0x218f8[0x7]: 00021b24 9e c4 | | SUBA.W D4,A7 00021b26 20 4f | O | MOVEA.L A7,A0 00021b28 43 fa e9 c8 |C | LEA.L 0x204f2,A1 00021b2c 70 14 |p | MOVEQ.L #0x14,D0 00021b2e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021b30 51 c8 ff fc |Q | DBF D0,0x21b2e 00021b34 60 a4 |` | BRA 0x21ada 00021b36 switch@0x218f8[0x8]: 00021b36 2f 3a e9 d8 |/: | MOVE.L 0x20510,-(A7) 00021b3a 2f 3a e9 d0 |/: | MOVE.L 0x2050c,-(A7) 00021b3e 2f 3a e9 c8 |/: | MOVE.L 0x20508,-(A7) 00021b42 59 4f |YO | SUBQ.L #0x4,A7 00021b44 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021b48 3f 01 |? | MOVE.W D1,-(A7) 00021b4a 3f 07 |? | MOVE.W D7,-(A7) 00021b4c 4e 92 |N | JSR (A2) 00021b4e 50 4f |PO | ADDQ.L #0x8,A7 00021b50 28 5f |(_ | MOVEA.L (A7)+,A4 00021b52 de c7 | | ADDA.W D7,A7 00021b54 60 00 07 22 |` " | BRA 0x22278 00021b58 switch@0x218f8[0x9]: 00021b58 2f 3a e9 c6 |/: | MOVE.L 0x20520,-(A7) 00021b5c 2f 3a e9 be |/: | MOVE.L 0x2051c,-(A7) 00021b60 2f 3a e9 b6 |/: | MOVE.L 0x20518,-(A7) 00021b64 2f 3a e9 ae |/: | MOVE.L 0x20514,-(A7) 00021b68 59 4f |YO | SUBQ.L #0x4,A7 00021b6a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021b6e 3f 01 |? | MOVE.W D1,-(A7) 00021b70 3f 02 |? | MOVE.W D2,-(A7) 00021b72 60 00 fe dc |` | BRA 0x21a50 00021b76 switch@0x218f8[0x10]: 00021b76 41 fa e9 be |A | LEA.L 0x20536,A0 00021b7a 70 08 |p | MOVEQ.L #0x08,D0 00021b7c 3f 20 |? | MOVE.W -(A0),-(A7) 00021b7e 51 c8 ff fc |Q | DBF D0,0x21b7c 00021b82 60 00 06 e2 |` | BRA 0x22266 00021b86 switch@0x218f8[0x11]: 00021b86 9e c2 | | SUBA.W D2,A7 00021b88 20 4f | O | MOVEA.L A7,A0 00021b8a 43 fa e9 aa |C | LEA.L 0x20536,A1 00021b8e 70 0e |p | MOVEQ.L #0x0e,D0 00021b90 10 d9 | | MOVE.B (A1)+,(A0)+ 00021b92 51 c8 ff fc |Q | DBF D0,0x21b90 00021b96 60 00 fe ac |` | BRA 0x21a44 00021b9a switch@0x218f8[0x12]: 00021b9a 9e c2 | | SUBA.W D2,A7 00021b9c 20 4f | O | MOVEA.L A7,A0 00021b9e 43 fa e9 a6 |C | LEA.L 0x20546,A1 00021ba2 70 0e |p | MOVEQ.L #0x0e,D0 00021ba4 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ba6 51 c8 ff fc |Q | DBF D0,0x21ba4 00021baa 60 00 fe 98 |` | BRA 0x21a44 00021bae switch@0x218f8[0x13]: 00021bae 9e c6 | | SUBA.W D6,A7 00021bb0 20 4f | O | MOVEA.L A7,A0 00021bb2 43 fa e9 a2 |C | LEA.L 0x20556,A1 00021bb6 70 18 |p | MOVEQ.L #0x18,D0 00021bb8 10 d9 | | MOVE.B (A1)+,(A0)+ 00021bba 51 c8 ff fc |Q | DBF D0,0x21bb8 00021bbe 59 4f |YO | SUBQ.L #0x4,A7 00021bc0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021bc4 3f 01 |? | MOVE.W D1,-(A7) 00021bc6 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00021bca 4e 92 |N | JSR (A2) 00021bcc 50 4f |PO | ADDQ.L #0x8,A7 00021bce 28 5f |(_ | MOVEA.L (A7)+,A4 00021bd0 de c6 | | ADDA.W D6,A7 00021bd2 60 00 06 a4 |` | BRA 0x22278 00021bd6 switch@0x218f8[0x14]: 00021bd6 41 fa e9 aa |A | LEA.L 0x20582,A0 00021bda 70 08 |p | MOVEQ.L #0x08,D0 00021bdc 3f 20 |? | MOVE.W -(A0),-(A7) 00021bde 51 c8 ff fc |Q | DBF D0,0x21bdc 00021be2 60 00 06 82 |` | BRA 0x22266 00021be6 switch@0x218f8[0x15]: 00021be6 9e fc 00 20 | | SUBA.W #0x20,A7 00021bea 20 4f | O | MOVEA.L A7,A0 00021bec 43 fa e9 94 |C | LEA.L 0x20582,A1 00021bf0 70 1e |p | MOVEQ.L #0x1e,D0 00021bf2 10 d9 | | MOVE.B (A1)+,(A0)+ 00021bf4 51 c8 ff fc |Q | DBF D0,0x21bf2 00021bf8 59 4f |YO | SUBQ.L #0x4,A7 00021bfa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021bfe 3f 01 |? | MOVE.W D1,-(A7) 00021c00 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00021c04 4e 92 |N | JSR (A2) 00021c06 50 4f |PO | ADDQ.L #0x8,A7 00021c08 28 5f |(_ | MOVEA.L (A7)+,A4 00021c0a de fc 00 20 | | ADDA.W #0x20,A7 00021c0e 60 00 06 68 |` h | BRA 0x22278 00021c12 switch@0x218f8[0x16]: 00021c12 41 fa e9 b0 |A | LEA.L 0x205c4,A0 00021c16 70 10 |p | MOVEQ.L #0x10,D0 00021c18 3f 20 |? | MOVE.W -(A0),-(A7) 00021c1a 51 c8 ff fc |Q | DBF D0,0x21c18 00021c1e 59 4f |YO | SUBQ.L #0x4,A7 00021c20 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021c24 3f 01 |? | MOVE.W D1,-(A7) 00021c26 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00021c2a 4e 92 |N | JSR (A2) 00021c2c 50 4f |PO | ADDQ.L #0x8,A7 00021c2e 28 5f |(_ | MOVEA.L (A7)+,A4 00021c30 de fc 00 22 | " | ADDA.W #0x22,A7 00021c34 60 00 06 42 |` B | BRA 0x22278 00021c38 switch@0x218f8[0x17]: 00021c38 9e c5 | | SUBA.W D5,A7 00021c3a 20 4f | O | MOVEA.L A7,A0 00021c3c 43 fa e9 86 |C | LEA.L 0x205c4,A1 00021c40 70 12 |p | MOVEQ.L #0x12,D0 00021c42 10 d9 | | MOVE.B (A1)+,(A0)+ 00021c44 51 c8 ff fc |Q | DBF D0,0x21c42 00021c48 60 00 fe 22 |` " | BRA 0x21a6c 00021c4c switch@0x218f8[0x18]: 00021c4c 9e c5 | | SUBA.W D5,A7 00021c4e 20 4f | O | MOVEA.L A7,A0 00021c50 43 fa e9 86 |C | LEA.L 0x205d8,A1 00021c54 70 12 |p | MOVEQ.L #0x12,D0 00021c56 10 d9 | | MOVE.B (A1)+,(A0)+ 00021c58 51 c8 ff fc |Q | DBF D0,0x21c56 00021c5c 60 00 fe 0e |` | BRA 0x21a6c 00021c60 switch@0x218f8[0x20]: 00021c60 9e c6 | | SUBA.W D6,A7 00021c62 20 4f | O | MOVEA.L A7,A0 00021c64 43 fa e9 86 |C | LEA.L 0x205ec,A1 00021c68 70 18 |p | MOVEQ.L #0x18,D0 00021c6a 10 d9 | | MOVE.B (A1)+,(A0)+ 00021c6c 51 c8 ff fc |Q | DBF D0,0x21c6a 00021c70 60 00 ff 4c |` L | BRA 0x21bbe 00021c74 switch@0x218f8[0x21]: 00021c74 9e fc 00 1c | | SUBA.W #0x1c,A7 00021c78 20 4f | O | MOVEA.L A7,A0 00021c7a 43 fa e9 8a |C | LEA.L 0x20606,A1 00021c7e 70 1a |p | MOVEQ.L #0x1a,D0 00021c80 10 d9 | | MOVE.B (A1)+,(A0)+ 00021c82 51 c8 ff fc |Q | DBF D0,0x21c80 00021c86 59 4f |YO | SUBQ.L #0x4,A7 00021c88 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021c8c 3f 01 |? | MOVE.W D1,-(A7) 00021c8e 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00021c92 4e 92 |N | JSR (A2) 00021c94 50 4f |PO | ADDQ.L #0x8,A7 00021c96 28 5f |(_ | MOVEA.L (A7)+,A4 00021c98 de fc 00 1c | | ADDA.W #0x1c,A7 00021c9c 60 00 05 da |` | BRA 0x22278 00021ca0 switch@0x218f8[0x22]: 00021ca0 41 fa e9 96 |A | LEA.L 0x20638,A0 00021ca4 70 0a |p | MOVEQ.L #0x0a,D0 00021ca6 3f 20 |? | MOVE.W -(A0),-(A7) 00021ca8 51 c8 ff fc |Q | DBF D0,0x21ca6 00021cac 60 00 fe 6a |` j | BRA 0x21b18 00021cb0 switch@0x218f8[0x23]: 00021cb0 41 fa e9 a4 |A | LEA.L 0x20656,A0 00021cb4 70 0e |p | MOVEQ.L #0x0e,D0 00021cb6 3f 20 |? | MOVE.W -(A0),-(A7) 00021cb8 51 c8 ff fc |Q | DBF D0,0x21cb6 00021cbc 60 00 fd d2 |` | BRA 0x21a90 00021cc0 switch@0x218f8[0x24]: 00021cc0 41 fa e9 a6 |A | LEA.L 0x20668,A0 00021cc4 70 08 |p | MOVEQ.L #0x08,D0 00021cc6 3f 20 |? | MOVE.W -(A0),-(A7) 00021cc8 51 c8 ff fc |Q | DBF D0,0x21cc6 00021ccc 60 00 05 98 |` | BRA 0x22266 00021cd0 switch@0x218f8[0x25]: 00021cd0 9e c3 | | SUBA.W D3,A7 00021cd2 20 4f | O | MOVEA.L A7,A0 00021cd4 43 fa e9 92 |C | LEA.L 0x20668,A1 00021cd8 70 10 |p | MOVEQ.L #0x10,D0 00021cda 10 d9 | | MOVE.B (A1)+,(A0)+ 00021cdc 51 c8 ff fc |Q | DBF D0,0x21cda 00021ce0 59 4f |YO | SUBQ.L #0x4,A7 00021ce2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021ce6 3f 01 |? | MOVE.W D1,-(A7) 00021ce8 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00021cec 60 00 05 82 |` | BRA 0x22270 00021cf0 switch@0x218f8[0x26]: 00021cf0 9e c7 | | SUBA.W D7,A7 00021cf2 20 4f | O | MOVEA.L A7,A0 00021cf4 43 fa e9 84 |C | LEA.L 0x2067a,A1 00021cf8 70 0a |p | MOVEQ.L #0x0a,D0 00021cfa 10 d9 | | MOVE.B (A1)+,(A0)+ 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 0b |?< | MOVE.W #0xb,-(A7) 00021d0c 60 00 fe 3e |` > | BRA 0x21b4c 00021d10 switch@0x218f8[0x27]: 00021d10 9e c2 | | SUBA.W D2,A7 00021d12 20 4f | O | MOVEA.L A7,A0 00021d14 43 fa e9 70 |C p | LEA.L 0x20686,A1 00021d18 70 0e |p | MOVEQ.L #0x0e,D0 00021d1a 10 d9 | | MOVE.B (A1)+,(A0)+ 00021d1c 51 c8 ff fc |Q | DBF D0,0x21d1a 00021d20 60 00 fd 22 |` " | BRA 0x21a44 00021d24 switch@0x218f8[0x28]: 00021d24 41 fa e9 88 |A | LEA.L 0x206ae,A0 00021d28 70 05 |p | MOVEQ.L #0x05,D0 00021d2a 2f 20 |/ | MOVE.L -(A0),-(A7) 00021d2c 51 c8 ff fc |Q | DBF D0,0x21d2a 00021d30 59 4f |YO | SUBQ.L #0x4,A7 00021d32 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021d36 3f 01 |? | MOVE.W D1,-(A7) 00021d38 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00021d3c 4e 92 |N | JSR (A2) 00021d3e 50 4f |PO | ADDQ.L #0x8,A7 00021d40 28 5f |(_ | MOVEA.L (A7)+,A4 00021d42 de fc 00 18 | | ADDA.W #0x18,A7 00021d46 60 00 05 30 |` 0 | BRA 0x22278 00021d4a switch@0x218f8[0x29]: 00021d4a 9e c2 | | SUBA.W D2,A7 00021d4c 20 4f | O | MOVEA.L A7,A0 00021d4e 43 fa e9 5e |C ^ | LEA.L 0x206ae,A1 00021d52 70 0e |p | MOVEQ.L #0x0e,D0 00021d54 10 d9 | | MOVE.B (A1)+,(A0)+ 00021d56 51 c8 ff fc |Q | DBF D0,0x21d54 00021d5a 60 00 fc e8 |` | BRA 0x21a44 00021d5e switch@0x218f8[0x30]: 00021d5e 9e fc 00 0e | | SUBA.W #0xe,A7 00021d62 20 4f | O | MOVEA.L A7,A0 00021d64 43 fa e9 58 |C X | LEA.L 0x206be,A1 00021d68 70 0c |p | MOVEQ.L #0x0c,D0 00021d6a 10 d9 | | MOVE.B (A1)+,(A0)+ 00021d6c 51 c8 ff fc |Q | DBF D0,0x21d6a 00021d70 59 4f |YO | SUBQ.L #0x4,A7 00021d72 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021d76 3f 01 |? | MOVE.W D1,-(A7) 00021d78 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00021d7c 4e 92 |N | JSR (A2) 00021d7e 50 4f |PO | ADDQ.L #0x8,A7 00021d80 28 5f |(_ | MOVEA.L (A7)+,A4 00021d82 de fc 00 0e | | ADDA.W #0xe,A7 00021d86 60 00 04 f0 |` | BRA 0x22278 00021d8a switch@0x218f8[0x31]: 00021d8a 9e c2 | | SUBA.W D2,A7 00021d8c 20 4f | O | MOVEA.L A7,A0 00021d8e 43 fa e9 3c |C < | LEA.L 0x206cc,A1 00021d92 70 0e |p | MOVEQ.L #0x0e,D0 00021d94 10 d9 | | MOVE.B (A1)+,(A0)+ 00021d96 51 c8 ff fc |Q | DBF D0,0x21d94 00021d9a 60 00 fc a8 |` | BRA 0x21a44 00021d9e switch@0x218f8[0x32]: 00021d9e 9e c3 | | SUBA.W D3,A7 00021da0 20 4f | O | MOVEA.L A7,A0 00021da2 43 fa e9 38 |C 8 | LEA.L 0x206dc,A1 00021da6 70 10 |p | MOVEQ.L #0x10,D0 00021da8 10 d9 | | MOVE.B (A1)+,(A0)+ 00021daa 51 c8 ff fc |Q | DBF D0,0x21da8 00021dae 60 00 ff 30 |` 0 | BRA 0x21ce0 00021db2 switch@0x218f8[0x33]: 00021db2 9e c5 | | SUBA.W D5,A7 00021db4 20 4f | O | MOVEA.L A7,A0 00021db6 43 fa e9 36 |C 6 | LEA.L 0x206ee,A1 00021dba 70 12 |p | MOVEQ.L #0x12,D0 00021dbc 10 d9 | | MOVE.B (A1)+,(A0)+ 00021dbe 51 c8 ff fc |Q | DBF D0,0x21dbc 00021dc2 60 00 fc a8 |` | BRA 0x21a6c 00021dc6 switch@0x218f8[0x34]: 00021dc6 9e c4 | | SUBA.W D4,A7 00021dc8 20 4f | O | MOVEA.L A7,A0 00021dca 43 fa e9 36 |C 6 | LEA.L 0x20702,A1 00021dce 70 14 |p | MOVEQ.L #0x14,D0 00021dd0 10 d9 | | MOVE.B (A1)+,(A0)+ 00021dd2 51 c8 ff fc |Q | DBF D0,0x21dd0 00021dd6 60 00 fd 02 |` | BRA 0x21ada 00021dda switch@0x218f8[0x35]: 00021dda 9e c3 | | SUBA.W D3,A7 00021ddc 20 4f | O | MOVEA.L A7,A0 00021dde 43 fa e9 38 |C 8 | LEA.L 0x20718,A1 00021de2 70 10 |p | MOVEQ.L #0x10,D0 00021de4 10 d9 | | MOVE.B (A1)+,(A0)+ 00021de6 51 c8 ff fc |Q | DBF D0,0x21de4 00021dea 60 00 fe f4 |` | BRA 0x21ce0 00021dee switch@0x218f8[0x36]: 00021dee 9e c7 | | SUBA.W D7,A7 00021df0 20 4f | O | MOVEA.L A7,A0 00021df2 43 fa e9 36 |C 6 | LEA.L 0x2072a,A1 00021df6 70 0a |p | MOVEQ.L #0x0a,D0 00021df8 10 d9 | | MOVE.B (A1)+,(A0)+ 00021dfa 51 c8 ff fc |Q | DBF D0,0x21df8 00021dfe 60 00 ff 00 |` | BRA 0x21d00 00021e02 switch@0x218f8[0x41]: 00021e02 41 fa e9 46 |A F | LEA.L 0x2074a,A0 00021e06 70 04 |p | MOVEQ.L #0x04,D0 00021e08 2f 20 |/ | MOVE.L -(A0),-(A7) 00021e0a 51 c8 ff fc |Q | DBF D0,0x21e08 00021e0e 60 00 fc ee |` | BRA 0x21afe 00021e12 switch@0x218f8[0x47]: 00021e12 9e c6 | | SUBA.W D6,A7 00021e14 20 4f | O | MOVEA.L A7,A0 00021e16 43 fa e9 32 |C 2 | LEA.L 0x2074a,A1 00021e1a 70 18 |p | MOVEQ.L #0x18,D0 00021e1c 10 d9 | | MOVE.B (A1)+,(A0)+ 00021e1e 51 c8 ff fc |Q | DBF D0,0x21e1c 00021e22 60 00 fd 9a |` | BRA 0x21bbe 00021e26 switch@0x218f8[0x48]: 00021e26 9e c5 | | SUBA.W D5,A7 00021e28 20 4f | O | MOVEA.L A7,A0 00021e2a 43 fa e9 38 |C 8 | LEA.L 0x20764,A1 00021e2e 70 12 |p | MOVEQ.L #0x12,D0 00021e30 10 d9 | | MOVE.B (A1)+,(A0)+ 00021e32 51 c8 ff fc |Q | DBF D0,0x21e30 00021e36 60 00 fc 34 |` 4 | BRA 0x21a6c 00021e3a switch@0x218f8[0x50]: 00021e3a 41 fa e9 62 |A b | LEA.L 0x2079e,A0 00021e3e 70 12 |p | MOVEQ.L #0x12,D0 00021e40 3f 20 |? | MOVE.W -(A0),-(A7) 00021e42 51 c8 ff fc |Q | DBF D0,0x21e40 00021e46 59 4f |YO | SUBQ.L #0x4,A7 00021e48 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021e4c 3f 01 |? | MOVE.W D1,-(A7) 00021e4e 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 00021e52 4e 92 |N | JSR (A2) 00021e54 50 4f |PO | ADDQ.L #0x8,A7 00021e56 28 5f |(_ | MOVEA.L (A7)+,A4 00021e58 de fc 00 26 | & | ADDA.W #0x26,A7 00021e5c 60 00 04 1a |` | BRA 0x22278 00021e60 switch@0x218f8[0x51]: 00021e60 41 fa e9 60 |A ` | LEA.L 0x207c2,A0 00021e64 70 08 |p | MOVEQ.L #0x08,D0 00021e66 2f 20 |/ | MOVE.L -(A0),-(A7) 00021e68 51 c8 ff fc |Q | DBF D0,0x21e66 00021e6c 59 4f |YO | SUBQ.L #0x4,A7 00021e6e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021e72 3f 01 |? | MOVE.W D1,-(A7) 00021e74 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7) 00021e78 4e 92 |N | JSR (A2) 00021e7a 50 4f |PO | ADDQ.L #0x8,A7 00021e7c 28 5f |(_ | MOVEA.L (A7)+,A4 00021e7e de fc 00 24 | $ | ADDA.W #0x24,A7 00021e82 60 00 03 f4 |` | BRA 0x22278 00021e86 switch@0x218f8[0x52]: 00021e86 9e fc 00 18 | | SUBA.W #0x18,A7 00021e8a 20 4f | O | MOVEA.L A7,A0 00021e8c 43 fa e9 34 |C 4 | LEA.L 0x207c2,A1 00021e90 70 16 |p | MOVEQ.L #0x16,D0 00021e92 10 d9 | | MOVE.B (A1)+,(A0)+ 00021e94 51 c8 ff fc |Q | DBF D0,0x21e92 00021e98 59 4f |YO | SUBQ.L #0x4,A7 00021e9a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021e9e 3f 01 |? | MOVE.W D1,-(A7) 00021ea0 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00021ea4 60 00 fe 96 |` | BRA 0x21d3c 00021ea8 switch@0x218f8[0x53]: 00021ea8 2f 3a e9 3c |/: < | MOVE.L 0x207e6,-(A7) 00021eac 2f 3a e9 34 |/: 4 | MOVE.L 0x207e2,-(A7) 00021eb0 2f 3a e9 2c |/: , | MOVE.L 0x207de,-(A7) 00021eb4 2f 3a e9 24 |/: $ | MOVE.L 0x207da,-(A7) 00021eb8 60 00 fc ae |` | BRA 0x21b68 00021ebc switch@0x218f8[0x54]: 00021ebc 9e c6 | | SUBA.W D6,A7 00021ebe 20 4f | O | MOVEA.L A7,A0 00021ec0 43 fa e9 28 |C ( | LEA.L 0x207ea,A1 00021ec4 70 18 |p | MOVEQ.L #0x18,D0 00021ec6 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ec8 51 c8 ff fc |Q | DBF D0,0x21ec6 00021ecc 60 00 fc f0 |` | BRA 0x21bbe 00021ed0 switch@0x218f8[0x55]: 00021ed0 9e c2 | | SUBA.W D2,A7 00021ed2 20 4f | O | MOVEA.L A7,A0 00021ed4 43 fa e9 2e |C . | LEA.L 0x20804,A1 00021ed8 70 0e |p | MOVEQ.L #0x0e,D0 00021eda 10 d9 | | MOVE.B (A1)+,(A0)+ 00021edc 51 c8 ff fc |Q | DBF D0,0x21eda 00021ee0 60 00 fb 62 |` b | BRA 0x21a44 00021ee4 switch@0x218f8[0x56]: 00021ee4 9e fc 00 1e | | SUBA.W #0x1e,A7 00021ee8 20 4f | O | MOVEA.L A7,A0 00021eea 43 fa e9 28 |C ( | LEA.L 0x20814,A1 00021eee 70 1c |p | MOVEQ.L #0x1c,D0 00021ef0 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ef2 51 c8 ff fc |Q | DBF D0,0x21ef0 00021ef6 59 4f |YO | SUBQ.L #0x4,A7 00021ef8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021efc 3f 01 |? | MOVE.W D1,-(A7) 00021efe 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 00021f02 60 00 fb 98 |` | BRA 0x21a9c 00021f06 switch@0x218f8[0x60]: 00021f06 41 fa e9 4c |A L | LEA.L 0x20854,A0 00021f0a 70 10 |p | MOVEQ.L #0x10,D0 00021f0c 3f 20 |? | MOVE.W -(A0),-(A7) 00021f0e 51 c8 ff fc |Q | DBF D0,0x21f0c 00021f12 60 00 fd 0a |` | BRA 0x21c1e 00021f16 switch@0x218f8[0x61]: 00021f16 41 fa e9 5c |A \ | LEA.L 0x20874,A0 00021f1a 70 07 |p | MOVEQ.L #0x07,D0 00021f1c 2f 20 |/ | MOVE.L -(A0),-(A7) 00021f1e 51 c8 ff fc |Q | DBF D0,0x21f1c 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 20 |?< | MOVE.W #0x20,-(A7) 00021f2e 60 00 fc d4 |` | BRA 0x21c04 00021f32 switch@0x218f8[0x62]: 00021f32 41 fa e9 62 |A b | LEA.L 0x20896,A0 00021f36 70 10 |p | MOVEQ.L #0x10,D0 00021f38 3f 20 |? | MOVE.W -(A0),-(A7) 00021f3a 51 c8 ff fc |Q | DBF D0,0x21f38 00021f3e 60 00 fc de |` | BRA 0x21c1e 00021f42 switch@0x218f8[0x63]: 00021f42 9e fc 00 2c | , | SUBA.W #0x2c,A7 00021f46 20 4f | O | MOVEA.L A7,A0 00021f48 43 fa e9 4c |C L | LEA.L 0x20896,A1 00021f4c 70 2a |p* | MOVEQ.L #0x2a,D0 00021f4e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021f50 51 c8 ff fc |Q | DBF D0,0x21f4e 00021f54 59 4f |YO | SUBQ.L #0x4,A7 00021f56 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021f5a 3f 01 |? | MOVE.W D1,-(A7) 00021f5c 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7) 00021f60 4e 92 |N | JSR (A2) 00021f62 50 4f |PO | ADDQ.L #0x8,A7 00021f64 28 5f |(_ | MOVEA.L (A7)+,A4 00021f66 de fc 00 2c | , | ADDA.W #0x2c,A7 00021f6a 60 00 03 0c |` | BRA 0x22278 00021f6e switch@0x218f8[0x64]: 00021f6e 41 fa e9 84 |A | LEA.L 0x208f4,A0 00021f72 70 18 |p | MOVEQ.L #0x18,D0 00021f74 3f 20 |? | MOVE.W -(A0),-(A7) 00021f76 51 c8 ff fc |Q | DBF D0,0x21f74 00021f7a 59 4f |YO | SUBQ.L #0x4,A7 00021f7c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021f80 3f 01 |? | MOVE.W D1,-(A7) 00021f82 3f 3c 00 32 |?< 2 | MOVE.W #0x32,-(A7) 00021f86 4e 92 |N | JSR (A2) 00021f88 50 4f |PO | ADDQ.L #0x8,A7 00021f8a 28 5f |(_ | MOVEA.L (A7)+,A4 00021f8c de fc 00 32 | 2 | ADDA.W #0x32,A7 00021f90 60 00 02 e6 |` | BRA 0x22278 00021f94 switch@0x218f8[0x65]: 00021f94 9e fc 00 28 | ( | SUBA.W #0x28,A7 00021f98 20 4f | O | MOVEA.L A7,A0 00021f9a 43 fa e9 58 |C X | LEA.L 0x208f4,A1 00021f9e 70 26 |p& | MOVEQ.L #0x26,D0 00021fa0 10 d9 | | MOVE.B (A1)+,(A0)+ 00021fa2 51 c8 ff fc |Q | DBF D0,0x21fa0 00021fa6 59 4f |YO | SUBQ.L #0x4,A7 00021fa8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021fac 3f 01 |? | MOVE.W D1,-(A7) 00021fae 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00021fb2 4e 92 |N | JSR (A2) 00021fb4 50 4f |PO | ADDQ.L #0x8,A7 00021fb6 28 5f |(_ | MOVEA.L (A7)+,A4 00021fb8 de fc 00 28 | ( | ADDA.W #0x28,A7 00021fbc 60 00 02 ba |` | BRA 0x22278 00021fc0 switch@0x218f8[0x66]: 00021fc0 41 fa e9 82 |A | LEA.L 0x20944,A0 00021fc4 70 09 |p | MOVEQ.L #0x09,D0 00021fc6 2f 20 |/ | MOVE.L -(A0),-(A7) 00021fc8 51 c8 ff fc |Q | DBF D0,0x21fc6 00021fcc 59 4f |YO | SUBQ.L #0x4,A7 00021fce 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021fd2 3f 01 |? | MOVE.W D1,-(A7) 00021fd4 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 00021fd8 60 d8 |` | BRA 0x21fb2 00021fda switch@0x218f8[0x67]: 00021fda 41 fa e9 84 |A | LEA.L 0x20960,A0 00021fde 70 06 |p | MOVEQ.L #0x06,D0 00021fe0 2f 20 |/ | MOVE.L -(A0),-(A7) 00021fe2 51 c8 ff fc |Q | DBF D0,0x21fe0 00021fe6 59 4f |YO | SUBQ.L #0x4,A7 00021fe8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021fec 3f 01 |? | MOVE.W D1,-(A7) 00021fee 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 00021ff2 60 00 fc 9e |` | BRA 0x21c92 00021ff6 switch@0x218f8[0x68]: 00021ff6 41 fa e9 80 |A | LEA.L 0x20978,A0 00021ffa 70 05 |p | MOVEQ.L #0x05,D0 00021ffc 2f 20 |/ | MOVE.L -(A0),-(A7) 00021ffe 51 c8 ff fc |Q | DBF D0,0x21ffc 00022002 60 00 fd 2c |` , | BRA 0x21d30 00022006 switch@0x218f8[0x70]: 00022006 9e c4 | | SUBA.W D4,A7 00022008 20 4f | O | MOVEA.L A7,A0 0002200a 43 fa e9 6c |C l | LEA.L 0x20978,A1 0002200e 70 14 |p | MOVEQ.L #0x14,D0 00022010 10 d9 | | MOVE.B (A1)+,(A0)+ 00022012 51 c8 ff fc |Q | DBF D0,0x22010 00022016 60 00 fa c2 |` | BRA 0x21ada 0002201a switch@0x218f8[0x71]: 0002201a 9e c3 | | SUBA.W D3,A7 0002201c 20 4f | O | MOVEA.L A7,A0 0002201e 43 fa e9 6e |C n | LEA.L 0x2098e,A1 00022022 70 10 |p | MOVEQ.L #0x10,D0 00022024 10 d9 | | MOVE.B (A1)+,(A0)+ 00022026 51 c8 ff fc |Q | DBF D0,0x22024 0002202a 60 00 fc b4 |` | BRA 0x21ce0 0002202e switch@0x218f8[0x72]: 0002202e 41 fa e9 8a |A | LEA.L 0x209ba,A0 00022032 70 0c |p | MOVEQ.L #0x0c,D0 00022034 3f 20 |? | MOVE.W -(A0),-(A7) 00022036 51 c8 ff fc |Q | DBF D0,0x22034 0002203a 59 4f |YO | SUBQ.L #0x4,A7 0002203c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022040 3f 01 |? | MOVE.W D1,-(A7) 00022042 3f 06 |? | MOVE.W D6,-(A7) 00022044 60 00 fb 84 |` | BRA 0x21bca 00022048 switch@0x218f8[0x73]: 00022048 41 fa e9 92 |A | LEA.L 0x209dc,A0 0002204c 70 10 |p | MOVEQ.L #0x10,D0 0002204e 3f 20 |? | MOVE.W -(A0),-(A7) 00022050 51 c8 ff fc |Q | DBF D0,0x2204e 00022054 60 00 fb c8 |` | BRA 0x21c1e 00022058 switch@0x218f8[0x74]: 00022058 41 fa e9 a4 |A | LEA.L 0x209fe,A0 0002205c 70 10 |p | MOVEQ.L #0x10,D0 0002205e 3f 20 |? | MOVE.W -(A0),-(A7) 00022060 51 c8 ff fc |Q | DBF D0,0x2205e 00022064 60 00 fb b8 |` | BRA 0x21c1e 00022068 switch@0x218f8[0x75]: 00022068 9e c3 | | SUBA.W D3,A7 0002206a 20 4f | O | MOVEA.L A7,A0 0002206c 43 fa e9 90 |C | LEA.L 0x209fe,A1 00022070 70 10 |p | MOVEQ.L #0x10,D0 00022072 10 d9 | | MOVE.B (A1)+,(A0)+ 00022074 51 c8 ff fc |Q | DBF D0,0x22072 00022078 60 00 fc 66 |` f | BRA 0x21ce0 0002207c switch@0x218f8[0x76]: 0002207c 9e c3 | | SUBA.W D3,A7 0002207e 20 4f | O | MOVEA.L A7,A0 00022080 43 fa e9 8e |C | LEA.L 0x20a10,A1 00022084 70 10 |p | MOVEQ.L #0x10,D0 00022086 10 d9 | | MOVE.B (A1)+,(A0)+ 00022088 51 c8 ff fc |Q | DBF D0,0x22086 0002208c 60 00 fc 52 |` R | BRA 0x21ce0 00022090 switch@0x218f8[0x77]: 00022090 2f 3a e9 9c |/: | MOVE.L 0x20a2e,-(A7) 00022094 2f 3a e9 94 |/: | MOVE.L 0x20a2a,-(A7) 00022098 2f 3a e9 8c |/: | MOVE.L 0x20a26,-(A7) 0002209c 2f 3a e9 84 |/: | MOVE.L 0x20a22,-(A7) 000220a0 60 00 fa c6 |` | BRA 0x21b68 000220a4 switch@0x218f8[0x78]: 000220a4 41 fa e9 a6 |A | LEA.L 0x20a4c,A0 000220a8 70 0c |p | MOVEQ.L #0x0c,D0 000220aa 3f 20 |? | MOVE.W -(A0),-(A7) 000220ac 51 c8 ff fc |Q | DBF D0,0x220aa 000220b0 60 88 |` | BRA 0x2203a 000220b2 switch@0x218f8[0x79]: 000220b2 9e fc 00 1c | | SUBA.W #0x1c,A7 000220b6 20 4f | O | MOVEA.L A7,A0 000220b8 43 fa e9 92 |C | LEA.L 0x20a4c,A1 000220bc 70 1a |p | MOVEQ.L #0x1a,D0 000220be 10 d9 | | MOVE.B (A1)+,(A0)+ 000220c0 51 c8 ff fc |Q | DBF D0,0x220be 000220c4 60 00 fb c0 |` | BRA 0x21c86 000220c8 switch@0x218f8[0x80]: 000220c8 9e c3 | | SUBA.W D3,A7 000220ca 20 4f | O | MOVEA.L A7,A0 000220cc 43 fa e9 9a |C | LEA.L 0x20a68,A1 000220d0 70 10 |p | MOVEQ.L #0x10,D0 000220d2 10 d9 | | MOVE.B (A1)+,(A0)+ 000220d4 51 c8 ff fc |Q | DBF D0,0x220d2 000220d8 60 00 fc 06 |` | BRA 0x21ce0 000220dc switch@0x218f8[0x81]: 000220dc 41 fa e9 ae |A | LEA.L 0x20a8c,A0 000220e0 70 08 |p | MOVEQ.L #0x08,D0 000220e2 3f 20 |? | MOVE.W -(A0),-(A7) 000220e4 51 c8 ff fc |Q | DBF D0,0x220e2 000220e8 60 00 01 7c |` | | BRA 0x22266 000220ec switch@0x218f8[0x82]: 000220ec 9e fc 00 18 | | SUBA.W #0x18,A7 000220f0 20 4f | O | MOVEA.L A7,A0 000220f2 43 fa e9 98 |C | LEA.L 0x20a8c,A1 000220f6 70 16 |p | MOVEQ.L #0x16,D0 000220f8 10 d9 | | MOVE.B (A1)+,(A0)+ 000220fa 51 c8 ff fc |Q | DBF D0,0x220f8 000220fe 60 00 fd 98 |` | BRA 0x21e98 00022102 switch@0x218f8[0x83]: 00022102 9e c6 | | SUBA.W D6,A7 00022104 20 4f | O | MOVEA.L A7,A0 00022106 43 fa e9 9c |C | LEA.L 0x20aa4,A1 0002210a 70 18 |p | MOVEQ.L #0x18,D0 0002210c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002210e 51 c8 ff fc |Q | DBF D0,0x2210c 00022112 60 00 fa aa |` | BRA 0x21bbe 00022116 switch@0x218f8[0x84]: 00022116 41 fa e9 be |A | LEA.L 0x20ad6,A0 0002211a 70 05 |p | MOVEQ.L #0x05,D0 0002211c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002211e 51 c8 ff fc |Q | DBF D0,0x2211c 00022122 60 00 fc 0c |` | BRA 0x21d30 00022126 switch@0x218f8[0x85]: 00022126 41 fa e9 ca |A | LEA.L 0x20af2,A0 0002212a 70 06 |p | MOVEQ.L #0x06,D0 0002212c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002212e 51 c8 ff fc |Q | DBF D0,0x2212c 00022132 60 00 fe b2 |` | BRA 0x21fe6 00022136 switch@0x218f8[0x86]: 00022136 41 fa e9 d2 |A | LEA.L 0x20b0a,A0 0002213a 70 05 |p | MOVEQ.L #0x05,D0 0002213c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002213e 51 c8 ff fc |Q | DBF D0,0x2213c 00022142 60 00 fb ec |` | BRA 0x21d30 00022146 switch@0x218f8[0x87]: 00022146 9e c4 | | SUBA.W D4,A7 00022148 20 4f | O | MOVEA.L A7,A0 0002214a 43 fa e9 be |C | LEA.L 0x20b0a,A1 0002214e 70 14 |p | MOVEQ.L #0x14,D0 00022150 10 d9 | | MOVE.B (A1)+,(A0)+ 00022152 51 c8 ff fc |Q | DBF D0,0x22150 00022156 60 00 f9 82 |` | BRA 0x21ada 0002215a switch@0x218f8[0x89]: 0002215a 9e c4 | | SUBA.W D4,A7 0002215c 20 4f | O | MOVEA.L A7,A0 0002215e 43 fa e9 c0 |C | LEA.L 0x20b20,A1 00022162 70 14 |p | MOVEQ.L #0x14,D0 00022164 10 d9 | | MOVE.B (A1)+,(A0)+ 00022166 51 c8 ff fc |Q | DBF D0,0x22164 0002216a 60 00 f9 6e |` n | BRA 0x21ada 0002216e switch@0x218f8[0x90]: 0002216e 41 fa e9 de |A | LEA.L 0x20b4e,A0 00022172 70 05 |p | MOVEQ.L #0x05,D0 00022174 2f 20 |/ | MOVE.L -(A0),-(A7) 00022176 51 c8 ff fc |Q | DBF D0,0x22174 0002217a 60 00 fb b4 |` | BRA 0x21d30 0002217e switch@0x218f8[0x91]: 0002217e 41 fa e9 e0 |A | LEA.L 0x20b60,A0 00022182 70 08 |p | MOVEQ.L #0x08,D0 00022184 3f 20 |? | MOVE.W -(A0),-(A7) 00022186 51 c8 ff fc |Q | DBF D0,0x22184 0002218a 60 00 00 da |` | BRA 0x22266 0002218e switch@0x218f8[0x92]: 0002218e 9e fc 00 30 | 0 | SUBA.W #0x30,A7 00022192 20 4f | O | MOVEA.L A7,A0 00022194 43 fa e9 ca |C | LEA.L 0x20b60,A1 00022198 70 2e |p. | MOVEQ.L #0x2e,D0 0002219a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002219c 51 c8 ff fc |Q | DBF D0,0x2219a 000221a0 59 4f |YO | SUBQ.L #0x4,A7 000221a2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000221a6 3f 01 |? | MOVE.W D1,-(A7) 000221a8 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 000221ac 4e 92 |N | JSR (A2) 000221ae 50 4f |PO | ADDQ.L #0x8,A7 000221b0 28 5f |(_ | MOVEA.L (A7)+,A4 000221b2 de fc 00 30 | 0 | ADDA.W #0x30,A7 000221b6 60 00 00 c0 |` | BRA 0x22278 000221ba switch@0x218f8[0x93]: 000221ba 41 fa ea 06 |A | LEA.L 0x20bc2,A0 000221be 70 18 |p | MOVEQ.L #0x18,D0 000221c0 3f 20 |? | MOVE.W -(A0),-(A7) 000221c2 51 c8 ff fc |Q | DBF D0,0x221c0 000221c6 60 00 fd b2 |` | BRA 0x21f7a 000221ca switch@0x218f8[0x94]: 000221ca 41 fa ea 08 |A | LEA.L 0x20bd4,A0 000221ce 70 08 |p | MOVEQ.L #0x08,D0 000221d0 3f 20 |? | MOVE.W -(A0),-(A7) 000221d2 51 c8 ff fc |Q | DBF D0,0x221d0 000221d6 60 00 00 8e |` | BRA 0x22266 000221da switch@0x218f8[0x95]: 000221da 9e fc 00 34 | 4 | SUBA.W #0x34,A7 000221de 20 4f | O | MOVEA.L A7,A0 000221e0 43 fa e9 f2 |C | LEA.L 0x20bd4,A1 000221e4 70 32 |p2 | MOVEQ.L #0x32,D0 000221e6 10 d9 | | MOVE.B (A1)+,(A0)+ 000221e8 51 c8 ff fc |Q | DBF D0,0x221e6 000221ec 59 4f |YO | SUBQ.L #0x4,A7 000221ee 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000221f2 3f 01 |? | MOVE.W D1,-(A7) 000221f4 3f 3c 00 33 |?< 3 | MOVE.W #0x33,-(A7) 000221f8 4e 92 |N | JSR (A2) 000221fa 50 4f |PO | ADDQ.L #0x8,A7 000221fc 28 5f |(_ | MOVEA.L (A7)+,A4 000221fe de fc 00 34 | 4 | ADDA.W #0x34,A7 00022202 60 74 |`t | BRA 0x22278 00022204 switch@0x218f8[0x96]: 00022204 2f 3a ea 0e |/: | MOVE.L 0x20c14,-(A7) 00022208 2f 3a ea 06 |/: | MOVE.L 0x20c10,-(A7) 0002220c 2f 3a e9 fe |/: | MOVE.L 0x20c0c,-(A7) 00022210 2f 3a e9 f6 |/: | MOVE.L 0x20c08,-(A7) 00022214 60 00 f9 52 |` R | BRA 0x21b68 00022218 switch@0x218f8[0x97]: 00022218 41 fa ea 2a |A * | LEA.L 0x20c44,A0 0002221c 70 0a |p | MOVEQ.L #0x0a,D0 0002221e 2f 20 |/ | MOVE.L -(A0),-(A7) 00022220 51 c8 ff fc |Q | DBF D0,0x2221e 00022224 59 4f |YO | SUBQ.L #0x4,A7 00022226 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002222a 3f 01 |? | MOVE.W D1,-(A7) 0002222c 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7) 00022230 60 00 fd 2e |` . | BRA 0x21f60 00022234 switch@0x218f8[0x98]: 00022234 41 fa ea 26 |A & | LEA.L 0x20c5c,A0 00022238 70 05 |p | MOVEQ.L #0x05,D0 0002223a 2f 20 |/ | MOVE.L -(A0),-(A7) 0002223c 51 c8 ff fc |Q | DBF D0,0x2223a 00022240 60 00 fa ee |` | BRA 0x21d30 00022244 switch@0x218f8[0x99]: 00022244 9e fc 00 18 | | SUBA.W #0x18,A7 00022248 20 4f | O | MOVEA.L A7,A0 0002224a 43 fa ea 10 |C | LEA.L 0x20c5c,A1 0002224e 70 16 |p | MOVEQ.L #0x16,D0 00022250 10 d9 | | MOVE.B (A1)+,(A0)+ 00022252 51 c8 ff fc |Q | DBF D0,0x22250 00022256 60 00 fc 40 |` @ | BRA 0x21e98 0002225a switch@0x218f8[0x19]: 0002225a switch@0x218f8[0x1a]: 0002225a switch@0x218f8[0x1b]: 0002225a switch@0x218f8[0x1c]: 0002225a switch@0x218f8[0x1d]: 0002225a switch@0x218f8[0x1e]: 0002225a switch@0x218f8[0x1f]: 0002225a switch@0x218f8[0x2a]: 0002225a switch@0x218f8[0x2b]: 0002225a switch@0x218f8[0x2c]: 0002225a switch@0x218f8[0x2d]: 0002225a switch@0x218f8[0x2e]: 0002225a switch@0x218f8[0x2f]: 0002225a switch@0x218f8[0x37]: 0002225a switch@0x218f8[0x38]: 0002225a switch@0x218f8[0x39]: 0002225a switch@0x218f8[0x3a]: 0002225a switch@0x218f8[0x3b]: 0002225a switch@0x218f8[0x3c]: 0002225a switch@0x218f8[0x3d]: 0002225a switch@0x218f8[0x3e]: 0002225a switch@0x218f8[0x3f]: 0002225a switch@0x218f8[0x40]: 0002225a switch@0x218f8[0x42]: 0002225a switch@0x218f8[0x43]: 0002225a switch@0x218f8[0x44]: 0002225a switch@0x218f8[0x45]: 0002225a switch@0x218f8[0x46]: 0002225a switch@0x218f8[0x49]: 0002225a switch@0x218f8[0x4a]: 0002225a switch@0x218f8[0x4b]: 0002225a switch@0x218f8[0x4c]: 0002225a switch@0x218f8[0x4d]: 0002225a switch@0x218f8[0x4e]: 0002225a switch@0x218f8[0x4f]: 0002225a switch@0x218f8[0x57]: 0002225a switch@0x218f8[0x58]: 0002225a switch@0x218f8[0x59]: 0002225a switch@0x218f8[0x5a]: 0002225a switch@0x218f8[0x5b]: 0002225a switch@0x218f8[0x5c]: 0002225a switch@0x218f8[0x5d]: 0002225a switch@0x218f8[0x5e]: 0002225a switch@0x218f8[0x5f]: 0002225a switch@0x218f8[0x69]: 0002225a switch@0x218f8[0x6a]: 0002225a switch@0x218f8[0x6b]: 0002225a switch@0x218f8[0x6c]: 0002225a switch@0x218f8[0x6d]: 0002225a switch@0x218f8[0x6e]: 0002225a switch@0x218f8[0x6f]: 0002225a switch@0x218f8[0x7a]: 0002225a switch@0x218f8[0x7b]: 0002225a switch@0x218f8[0x7c]: 0002225a switch@0x218f8[0x7d]: 0002225a switch@0x218f8[0x7e]: 0002225a switch@0x218f8[0x7f]: 0002225a switch@0x218f8[0x88]: 0002225a switch@0x218f8[0x8a]: 0002225a switch@0x218f8[0x8b]: 0002225a switch@0x218f8[0x8c]: 0002225a switch@0x218f8[0x8d]: 0002225a switch@0x218f8[0x8e]: 0002225a switch@0x218f8[0x8f]: 0002225a switch@0x218f8[0xa]: 0002225a switch@0x218f8[0xb]: 0002225a switch@0x218f8[0xc]: 0002225a switch@0x218f8[0xd]: 0002225a switch@0x218f8[0xe]: 0002225a switch@0x218f8[0xf]: 0002225a 41 fa ea 2a |A * | LEA.L 0x20c86,A0 0002225e 70 08 |p | MOVEQ.L #0x08,D0 00022260 3f 20 |? | MOVE.W -(A0),-(A7) 00022262 51 c8 ff fc |Q | DBF D0,0x22260 00022266 59 4f |YO | SUBQ.L #0x4,A7 00022268 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002226c 3f 01 |? | MOVE.W D1,-(A7) 0002226e 3f 03 |? | MOVE.W D3,-(A7) 00022270 4e 92 |N | JSR (A2) 00022272 50 4f |PO | ADDQ.L #0x8,A7 00022274 28 5f |(_ | MOVEA.L (A7)+,A4 00022276 de c3 | | ADDA.W D3,A7 00022278 3f 3a ea 0c |?: | MOVE.W 0x20c86,-(A7) 0002227c 59 4f |YO | SUBQ.L #0x4,A7 0002227e 2f 0c |/ | MOVE.L A4,-(A7) 00022280 59 4f |YO | SUBQ.L #0x4,A7 00022282 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00022286 3f 01 |? | MOVE.W D1,-(A7) 00022288 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 0002228c 4e 92 |N | JSR (A2) 0002228e 54 4f |TO | ADDQ.L #0x2,A7 00022290 3e ae 00 08 |> | MOVE.W (A6+0x8),(A7) 00022294 4e ba ea fc |N | JSR 0x20d92 00022298 54 4f |TO | ADDQ.L #0x2,A7 0002229a 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000222a0 de c7 | | ADDA.W D7,A7 000222a2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000222a8 5c 4f |\O | ADDQ.L #0x6,A7 000222aa 4c df 17 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A4 000222ae 4e 5e |N^ | UNLK A6 000222b0 4e 75 |Nu | RTS 000222b2 ; -------------------------------------------------------------------------------------- 000222b2 ; OMSI PASCAL Function 000222b2 ; -------------------------------------------------------------------------------------- 000222b2 START: 000222b2 4f fa 00 08 |O | LEA.L MAIN,A7 000222b6 4e f9 00 01 02 80 |N | JMP ?start_program 000222bc MAIN: 000222bc 43 f9 00 02 25 8c |C % | LEA.L 0x2258c,A1 000222c2 45 f9 00 02 25 8a |E % | LEA.L 0x2258a,A2 000222c8 47 f9 00 02 25 86 |G % | LEA.L 0x22586,A3 000222ce 49 f9 00 02 25 88 |I % | LEA.L 0x22588,A4 000222d4 32 3c 00 ff |2< | MOVE.W #0xff,D1 000222d8 4e b9 00 01 03 98 |N | JSR FSCALL_10398 000222de 48 52 |HR | PEA.L (A2) 000222e0 4e ba f5 16 |N | JSR 0x217f8 000222e4 58 4f |XO | ADDQ.L #0x4,A7 000222e6 48 53 |HS | PEA.L (A3) 000222e8 48 54 |HT | PEA.L (A4) 000222ea 4e ba ef de |N | JSR 0x212ca 000222ee 5c 4f |\O | ADDQ.L #0x6,A7 000222f0 3e 92 |> | MOVE.W (A2),(A7) 000222f2 30 13 |0 | MOVE.W (A3),D0 000222f4 41 81 |A | CHK.W D1,D0 000222f6 3f 00 |? | MOVE.W D0,-(A7) 000222f8 30 14 |0 | MOVE.W (A4),D0 000222fa 41 81 |A | CHK.W D1,D0 000222fc 3f 00 |? | MOVE.W D0,-(A7) 000222fe 48 51 |HQ | PEA.L (A1) 00022300 48 79 00 02 25 8e |Hy % | PEA.L 0x2258e 00022306 4e ba f4 8c |N | JSR 0x21794 0002230a de fc 00 0e | | ADDA.W #0xe,A7 0002230e 30 11 |0 | MOVE.W (A1),D0 00022310 41 81 |A | CHK.W D1,D0 00022312 3f 00 |? | MOVE.W D0,-(A7) 00022314 4e ba f5 aa |N | JSR 0x218c0 00022318 54 4f |TO | ADDQ.L #0x2,A7 0002231a 4a 51 |JQ | TST.W (A1) 0002231c 67 44 |gD | BEQ 0x22362 0002231e 41 fa e9 7e |A ~ | LEA.L 0x20c9e,A0 00022322 70 0a |p | MOVEQ.L #0x0a,D0 00022324 3f 20 |? | MOVE.W -(A0),-(A7) 00022326 51 c8 ff fc |Q | DBF D0,0x22324 0002232a 51 4f |QO | SUBQ.L #0x8,A7 0002232c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022330 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022334 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00022338 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002233e 58 4f |XO | ADDQ.L #0x4,A7 00022340 30 39 00 02 25 8e |09 % | MOVE.W 0x2258e,D0 00022346 41 81 |A | CHK.W D1,D0 00022348 3f 00 |? | MOVE.W D0,-(A7) 0002234a 4e ba ea 46 |N F | JSR 0x20d92 0002234e 54 4f |TO | ADDQ.L #0x2,A7 00022350 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022356 50 4f |PO | ADDQ.L #0x8,A7 00022358 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002235e de fc 00 1a | | ADDA.W #0x1a,A7 00022362 60 82 |` | BRA 0x222e6 00022364 42 27 48 78 |B'Hx | .XXX[0x4] 00022368 00 01 4e b9 00 01 03 b8 | N | .XXX[0x10] 00022370 5c 4f 4e b9 00 01 02 84 |\ON | 00022378 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00022386 ; -------------------------------------------------------------------------------------- 00022386 ; OMSI PASCAL Function 00022386 ; <LVAR 0x008 1(r)> 00022386 ; -------------------------------------------------------------------------------------- 00022386 PROG_FAIL: 00022386 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 0002238a bf d5 | | CMPA.L (A5),A7 0002238c 62 06 |b | BHI 0x22394 0002238e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022392 4e 76 |Nv | TRAPV 00022394 de fc 00 2c | , | ADDA.W #0x2c,A7 00022398 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002239c 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 000223a0 70 06 |p | MOVEQ.L #0x06,D0 000223a2 3f 20 |? | MOVE.W -(A0),-(A7) 000223a4 51 c8 ff fc |Q | DBF D0,0x223a2 000223a8 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000223ac 51 4f |QO | SUBQ.L #0x8,A7 000223ae 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000223b2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000223b6 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000223ba 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000223c0 58 4f |XO | ADDQ.L #0x4,A7 000223c2 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000223c6 48 80 |H | EXTB.W D0 000223c8 48 c0 |H | EXTW.L D0 000223ca 2f 00 |/ | MOVE.L D0,-(A7) 000223cc 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000223d2 58 4f |XO | ADDQ.L #0x4,A7 000223d4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000223da 50 4f |PO | ADDQ.L #0x8,A7 000223dc 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000223e2 de fc 00 14 | | ADDA.W #0x14,A7 000223e6 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000223ea 4e 5e |N^ | UNLK A6 000223ec 4e 75 |Nu | RTS 000223ee 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 000223fc 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 0002240a 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00022418 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 0002242a 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00022442 ; -------------------------------------------------------------------------------------- 00022442 ; OMSI PASCAL Function 00022442 ; <LVAR 0x00e 1(r)> 00022442 ; <LVAR 0x00a 4(r)> 00022442 ; <LVAR 0x008 1(r)> 00022442 ; -------------------------------------------------------------------------------------- 00022442 EXP_FAIL: 00022442 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00022446 bf d5 | | CMPA.L (A5),A7 00022448 62 06 |b | BHI 0x22450 0002244a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002244e 4e 76 |Nv | TRAPV 00022450 de fc 00 74 | t | ADDA.W #0x74,A7 00022454 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00022458 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 0002245e 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00022464 72 01 |r | MOVEQ.L #0x01,D1 00022466 74 0d |t | MOVEQ.L #0x0d,D2 00022468 76 1e |v | MOVEQ.L #0x1e,D3 0002246a 78 12 |x | MOVEQ.L #0x12,D4 0002246c 7a 0e |z | MOVEQ.L #0x0e,D5 0002246e 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00022474 41 fa ff b4 |A | LEA.L 0x2242a,A0 00022478 70 08 |p | MOVEQ.L #0x08,D0 0002247a 3f 20 |? | MOVE.W -(A0),-(A7) 0002247c 51 c8 ff fc |Q | DBF D0,0x2247a 00022480 59 4f |YO | SUBQ.L #0x4,A7 00022482 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022486 3f 01 |? | MOVE.W D1,-(A7) 00022488 3f 04 |? | MOVE.W D4,-(A7) 0002248a 4e 93 |N | JSR (A3) 0002248c 50 4f |PO | ADDQ.L #0x8,A7 0002248e 4e 94 |N | JSR (A4) 00022490 50 4f |PO | ADDQ.L #0x8,A7 00022492 20 4f | O | MOVEA.L A7,A0 00022494 43 fa ff 58 |C X | LEA.L 0x223ee,A1 00022498 70 0c |p | MOVEQ.L #0x0c,D0 0002249a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002249c 51 c8 ff fc |Q | DBF D0,0x2249a 000224a0 51 4f |QO | SUBQ.L #0x8,A7 000224a2 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000224a6 3f 01 |? | MOVE.W D1,-(A7) 000224a8 3f 02 |? | MOVE.W D2,-(A7) 000224aa 4e 93 |N | JSR (A3) 000224ac 54 4f |TO | ADDQ.L #0x2,A7 000224ae 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000224b2 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000224b8 54 4f |TO | ADDQ.L #0x2,A7 000224ba 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000224c0 50 4f |PO | ADDQ.L #0x8,A7 000224c2 4e 94 |N | JSR (A4) 000224c4 de c4 | | ADDA.W D4,A7 000224c6 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000224ca b0 c1 | | CMPA.W D1,A0 000224cc 67 48 |gH | BEQ 0x22516 000224ce 9e c5 | | SUBA.W D5,A7 000224d0 22 4f |"O | MOVEA.L A7,A1 000224d2 45 fa ff 28 |E ( | LEA.L 0x223fc,A2 000224d6 70 0c |p | MOVEQ.L #0x0c,D0 000224d8 12 da | | MOVE.B (A2)+,(A1)+ 000224da 51 c8 ff fc |Q | DBF D0,0x224d8 000224de 9e c3 | | SUBA.W D3,A7 000224e0 22 4f |"O | MOVEA.L A7,A1 000224e2 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000224e6 70 1d |p | MOVEQ.L #0x1d,D0 000224e8 12 d8 | | MOVE.B (A0)+,(A1)+ 000224ea 51 c8 ff fc |Q | DBF D0,0x224e8 000224ee 51 4f |QO | SUBQ.L #0x8,A7 000224f0 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 000224f4 3f 01 |? | MOVE.W D1,-(A7) 000224f6 3f 02 |? | MOVE.W D2,-(A7) 000224f8 4e 93 |N | JSR (A3) 000224fa 58 4f |XO | ADDQ.L #0x4,A7 000224fc 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00022500 3f 01 |? | MOVE.W D1,-(A7) 00022502 3f 03 |? | MOVE.W D3,-(A7) 00022504 4e 93 |N | JSR (A3) 00022506 50 4f |PO | ADDQ.L #0x8,A7 00022508 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002250e 50 4f |PO | ADDQ.L #0x8,A7 00022510 4e 94 |N | JSR (A4) 00022512 de fc 00 30 | 0 | ADDA.W #0x30,A7 00022516 9e c5 | | SUBA.W D5,A7 00022518 20 4f | O | MOVEA.L A7,A0 0002251a 43 fa fe ee |C | LEA.L 0x2240a,A1 0002251e 70 0c |p | MOVEQ.L #0x0c,D0 00022520 10 d9 | | MOVE.B (A1)+,(A0)+ 00022522 51 c8 ff fc |Q | DBF D0,0x22520 00022526 51 4f |QO | SUBQ.L #0x8,A7 00022528 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002252c 3f 01 |? | MOVE.W D1,-(A7) 0002252e 3f 02 |? | MOVE.W D2,-(A7) 00022530 4e 93 |N | JSR (A3) 00022532 54 4f |TO | ADDQ.L #0x2,A7 00022534 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00022538 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 0002253e 54 4f |TO | ADDQ.L #0x2,A7 00022540 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022546 50 4f |PO | ADDQ.L #0x8,A7 00022548 4e 94 |N | JSR (A4) 0002254a 5d 4f |]O | SUBQ.L #0x6,A7 0002254c 20 4f | O | MOVEA.L A7,A0 0002254e 43 fa fe da |C | LEA.L 0x2242a,A1 00022552 70 16 |p | MOVEQ.L #0x16,D0 00022554 10 d9 | | MOVE.B (A1)+,(A0)+ 00022556 51 c8 ff fc |Q | DBF D0,0x22554 0002255a 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002255e 59 4f |YO | SUBQ.L #0x4,A7 00022560 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00022564 3f 01 |? | MOVE.W D1,-(A7) 00022566 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 0002256a 4e 93 |N | JSR (A3) 0002256c 50 4f |PO | ADDQ.L #0x8,A7 0002256e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00022574 de c3 | | ADDA.W D3,A7 00022576 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 0002257a 4e 5e |N^ | UNLK A6 0002257c 4e 75 |Nu | RTS