|
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: 9728 (0x2600)
Types: M200
Notes: @(#)SAM,1.1,92/07/09,12:00:00, M200_PROGRAM
Names: »SAM.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »SAM.M200«
@ 20db0
<LVAR 0x00a 4(w)>
<LVAR 0x008 2(r)>
<LVAR -0x00a @ 4(r)>
<POP 20db0-20e5c Body>
<POP 20db0-20dc6 Prologue> Σ0 ↓
<POP 20dc6-20dd8 RegCacheLoad> Σ0 ↓
<POP 20dd8-20df0 Naked> Σ0 ↓ →0x20dfe
<Pointer.fp 0x20dd8 <LVAR -0x00a @ 4(r)>> Δ-4 {[@@-10]}
<Call 0x20dda 0x102b8> {[@@-10]}
NewString(VAR a : String)
<POP 20de0-20de2 StackAdj> Δ+4 {}
<MI 20de2 MOVE.W (A6+0x8),D6> {}
<MI 20de6 ANDI.W #0x00f0,D6> {}
<MI 20dea LSR.W #0x4,D6> {}
<MI 20dec CMP.W #0x09,D6> {}
<MI 20dee BHI 0x20dfe> {}
<POP 20df0-20dfe Naked> Σ0 →0x20e0c
<MI 20df0 CLR.L D0> {}
<MI 20df2 MOVE.W D6,D0> {}
<MI 20df4 ADD.L #0x30,D0> {}
<POP 0x20df6 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20dfc BRA 0x20e0c> {}
<POP 20dfe-20e0c Naked> Σ0 ↓ ←0x20dd8
<MI 20dfe CLR.L D0> {}
<MI 20e00 MOVE.W D6,D0> {}
<MI 20e02 SUB.L #0x0a,D0> {}
<MI 20e04 ADD.L #0x41,D0> {}
<POP 0x20e06 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<POP 20e0c-20e26 Naked> Σ0 ↓ →0x20e34 ←0x20df0
<MI 20e0c MOVE.B D0,D7> {}
<MI 20e0e MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 20e10 MOVE.B D7,-(A7)> Δ-2 {[4, '(A6-0xa)']|[2, 'D7']}
<Call 0x20e12 0x102c0> {[4, '(A6-0xa)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 20e18-20e1a StackAdj> Δ+6 {}
<MI 20e1a MOVE.W (A6+0x8),D6> {}
<MI 20e1e ANDI.W #0x000f,D6> {}
<MI 20e22 CMP.W #0x09,D6> {}
<MI 20e24 BHI 0x20e34> {}
<POP 20e26-20e34 Naked> Σ0 →0x20e42
<MI 20e26 CLR.L D0> {}
<MI 20e28 MOVE.W D6,D0> {}
<MI 20e2a ADD.L #0x30,D0> {}
<POP 0x20e2c LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20e32 BRA 0x20e42> {}
<POP 20e34-20e42 Naked> Σ0 ↓ ←0x20e0c
<MI 20e34 CLR.L D0> {}
<MI 20e36 MOVE.W D6,D0> {}
<MI 20e38 SUB.L #0x0a,D0> {}
<MI 20e3a ADD.L #0x41,D0> {}
<POP 0x20e3c LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<POP 20e42-20e54 Naked> Σ0 ↓ ←0x20e26
<MI 20e42 MOVE.B D0,D7> {}
<MI 20e44 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 20e46 MOVE.B D7,-(A7)> Δ-2 {[4, '(A6-0xa)']|[2, 'D7']}
<Call 0x20e48 0x102c0> {[4, '(A6-0xa)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 20e4e-20e50 StackAdj> Δ+6 {}
<MI 20e50 MOVE.L (A6-0xa),(A6+0xa)> {}
<POP 20e54-20e5c Epilogue> Σ0
@ 20e5c
<LVAR 0x00c 2(w)>
<LVAR 0x008 @ 4(r)>
<LVAR -0x010 4(rw)>
<POP 20e5c-20f94 Body> Δ-16
<POP 20e5c-20e72 Prologue> Σ0 ↓
<POP 20e72-20e78 RegCacheLoad> Σ0 ↓
<POP 20e78-20e7a Naked> Σ0 ↓
<MI 20e78 MOVEQ.L #0x00,D7> {}
<POP 20e7a-20eae Naked> Σ0 Δ-8 ↓ ←0x20f6c
<POP 20e7a-20e7e StackAdj> Δ-12 {[-12-]}
<MI 20e7e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Call 0x20e82 0x102cc> {[-12-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<POP 20e88-20e8a StackAdj> Δ+4 {[-12-]}
<Call 0x20e8a 0x103e4> {[-12-]}
AskConsoleString(prompt : String) : String
<POP 20e90-20e92 StackAdj> Δ+4 {[-8-]}
<Call 0x20e92 0x102f0> {[-8-]}
ToUpper(a : String) : String
<POP 20e98-20e9a StackAdj> Δ+4 {[-4-]}
<MI 20e9a MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 20e9e MOVEQ.L #0x00,D6> {}
<MI 20ea0 MOVEA.L (A6-0x10),A0> {}
<MI 20ea4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20ea6 MOVE.W (A0),D0> {[4, 'A0']}
<MI 20ea8 EXTW.L D0> {[4, 'A0']}
<MI 20eaa MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 20eac MOVEQ.L #0x01,D5> {[4, 'A0']|[4, 'D0']}
<POP 20eae-20eb4 Naked> Σ-8 ↓ →0x20f66 ←0x20f60
<MI 20eae CMP.L (A7),D5> {[-8-]}
<MI 20eb0 BGT 0x20f66> {[-8-]}
<POP 20eb4-20ebe Naked> Σ-8 ↓ →0x20ef2
<MI 20eb4 ASL.L #0x4,D7> {[-8-]}
<MI 20eb6 CMPI.L #0x000000ff,D7> {[-8-]}
<MI 20ebc BLE 0x20ef2> {[-8-]}
<POP 20ebe-20ef2 Naked> Σ-8 Δ+8 →0x20f6c
<Blob 0x20ebe [32] @> Δ-32 {[-8-]|[«32""»]}
<POP 20ed0-20ed2 StackAdj> Δ-4 {[-8-]|[«32""»]|[-4-]}
<Lit 0x20ed2 31> {[-8-]|[«32""»]|[$$Enter number in range [0 .. FF]]}
<Call 0x20ee4 0x103e0> {[-8-]|[«32""»]|[$$Enter number in range [0 .. FF]]}
WriteConsoleStringCrLf(str : String)
<POP 20eea-20eee StackAdj> Δ+36 {[-8-]}
<POP 20eee-20ef0 StackAdj> Δ+8 {}
<MI 20ef0 BRA 0x20f6c> {}
<POP 20ef2-20f0c Naked> Σ-8 ↓ →0x20f1e ←0x20eb4
<MI 20ef2 MOVE.L D5,D0> {[-8-]}
<MI 20ef4 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x20ef6 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 20f00 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 20f04 MOVE.B (A0+D0.L+#0x2),D1> {[-8-]}
<MI 20f08 CMP.B #0x30,D1> {[-8-]}
<MI 20f0a BCS 0x20f1e> {[-8-]}
<POP 20f0c-20f12 Naked> Σ-8 ↓ →0x20f1e
<MI 20f0c CMPI.B #0x39,D1> {[-8-]}
<MI 20f10 BHI 0x20f1e> {[-8-]}
<POP 20f12-20f18 Naked> Σ-8 ↓
<MI 20f12 CLR.L D0> {[-8-]}
<MI 20f14 MOVE.B D1,D0> {[-8-]}
<MI 20f16 SUB.W #0x30,D0> {[-8-]}
<POP 20f18-20f1e Naked> Σ-8 →0x20f60 ←0x20f28
<MI 20f18 EXTW.L D0> {[-8-]}
<MI 20f1a ADD.L D0,D7> {[-8-]}
<MI 20f1c BRA 0x20f60> {[-8-]}
<POP 20f1e-20f22 Naked> Σ-8 ↓ →0x20f34 ←0x20ef2 ←0x20f0c
<MI 20f1e CMP.B #0x41,D1> {[-8-]}
<MI 20f20 BCS 0x20f34> {[-8-]}
<POP 20f22-20f28 Naked> Σ-8 ↓ →0x20f34
<MI 20f22 CMPI.B #0x46,D1> {[-8-]}
<MI 20f26 BHI 0x20f34> {[-8-]}
<POP 20f28-20f34 Naked> Σ-8 →0x20f18
<MI 20f28 CLR.L D0> {[-8-]}
<MI 20f2a MOVE.B D1,D0> {[-8-]}
<MI 20f2c SUB.W #0x41,D0> {[-8-]}
<MI 20f2e ADDI.W #0x000a,D0> {[-8-]}
<MI 20f32 BRA 0x20f18> {[-8-]}
<POP 20f34-20f60 Naked> Σ-8 Δ+8 →0x20f6c ←0x20f1e ←0x20f22
<Blob 0x20f34 [34] @> Δ-34 {[-8-]|[«34""»]}
<POP 20f40-20f42 StackAdj> Δ-4 {[-8-]|[«34""»]|[-4-]}
<Lit 0x20f42 34> {[-8-]|[«34""»]|[$$Enter hexadecimal characters only.]}
<Call 0x20f54 0x103e0> {[-8-]|[«34""»]|[$$Enter hexadecimal characters only.]}
WriteConsoleStringCrLf(str : String)
<POP 20f5a-20f5e StackAdj> Δ+46 {}
<MI 20f5e BRA 0x20f6c> {}
<POP 20f60-20f66 Naked> Σ-8 ↓ →0x20eae ←0x20f18
<MI 20f60 ADDQ.L #0x1,D5> {[-8-]}
<MI 20f62 BVC 0x20eae> {[-8-]}
<POP 20f66-20f6c Naked> Σ-8 Δ+8 ↓ ←0x20eae
<POP 20f66-20f68 StackAdj> Δ+4 {[-4-]}
<MI 20f68 MOVEQ.L #0x01,D6> {[-4-]}
<POP 20f6a-20f6c StackAdj> Δ+4 {}
<POP 20f6c-20f72 Naked> Σ0 ↓ →0x20e7a ←0x20ebe ←0x20f34
<MI 20f6c TST.B D6> {}
<MI 20f6e BEQ 0x20e7a> {}
<POP 20f72-20f8c Naked> Σ0 ↓
<Pointer.fp 0x20f72 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x20f76 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 20f7c-20f7e StackAdj> Δ+4 {}
<POP 0x20f7e LimitCheck 0x0 ≤ D7 ≤ 0xff> {}
<MI 20f88 MOVE.W D7,(A6+0xc)> {}
<POP 20f8c-20f94 Epilogue> Σ0
@ 20f94
<LVAR 0x008 4(r)>
<POP 20f94-20fe8 Body>
<POP 20f94-20faa Prologue> Σ0 ↓
<POP 20faa-20fe0 Naked> Σ0 ↓
<Blob 0x20faa [16] @> Δ-16 {[«16""»]}
<POP 20fbc-20fbe StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x20fbe 15> {[«16""»]|[$$Test will loop.]}
<Call 0x20fd2 0x103e0> {[«16""»]|[$$Test will loop.]}
WriteConsoleStringCrLf(str : String)
<POP 20fd8-20fdc StackAdj> Δ+20 {}
<MI 20fdc CLR.L (A6+0x8)> {}
<POP 20fe0-20fe8 Epilogue> Σ0
@ 20fe8
<LVAR 0x008 4(w)>
<POP 20fe8-2112c Body>
<POP 20fe8-20ffe Prologue> Σ0 ↓
<POP 20ffe-2100c RegCacheLoad> Σ0 ↓
<POP 2100c-21124 Naked> Σ0 ↓
<Blob 0x2100c [14] @> Δ-14 {[«14""»]}
<POP 2101e-21020 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x21020 13> {[«14""»]|[$$Options are :]}
<Call 0x2102e 0x103e0> {[«14""»]|[$$Options are :]}
WriteConsoleStringCrLf(str : String)
<POP 21030-21031 StackAdj> Δ+18 ↓ {}
<Blob 0x21031 [62] @> Δ-62 {[«62""»]}
<POP 21042-21044 StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x21044 61> {[«62""»]|[$$ 0 => Halt if read or write errors exceed limit specified,]}
<Call 0x21052 0x103e0> {[«62""»]|[$$ 0 => Halt if read or write errors exceed limit specified,]}
WriteConsoleStringCrLf(str : String)
<POP 21054-21058 StackAdj> Δ+66 {}
<Blob 0x21058 [36] @> Δ-36 {[«36""»]}
<POP 21064-21066 StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x21066 36> {[«36""»]|[$$ halt on completion of test.]}
<Call 0x21074 0x103e0> {[«36""»]|[$$ halt on completion of test.]}
WriteConsoleStringCrLf(str : String)
<POP 21076-2107a StackAdj> Δ+40 {}
<Call 0x2107a 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21080 [58] @> Δ-58 {[«58""»]}
<POP 2108c-2108e StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x2108e 58> {[«58""»]|[$$ 1 => Loop on test, halt if read or write errors exceed]}
<Call 0x2109c 0x103e0> {[«58""»]|[$$ 1 => Loop on test, halt if read or write errors exceed]}
WriteConsoleStringCrLf(str : String)
<POP 2109e-210a2 StackAdj> Δ+62 {}
<Blob 0x210a2 [42] @> Δ-42 {[«42""»]}
<POP 210ae-210b0 StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x210b0 42> {[«42""»]|[$$ limit specifed on any given pass.]}
<Call 0x210be 0x103e0> {[«42""»]|[$$ limit specifed on any given pass.]}
WriteConsoleStringCrLf(str : String)
<POP 210c0-210c4 StackAdj> Δ+46 {}
<Call 0x210c4 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x210ca [56] @> Δ-56 {[«56""»]}
<POP 210d6-210d8 StackAdj> Δ-4 {[«56""»]|[-4-]}
<Lit 0x210d8 56> {[«56""»]|[$$ 2 => Loop on test, bypass read or write error halts.]}
<Call 0x210e6 0x103e0> {[«56""»]|[$$ 2 => Loop on test, bypass read or write error halts.]}
WriteConsoleStringCrLf(str : String)
<POP 210e8-210e9 StackAdj> Δ+60 ↓ {}
<Blob 0x210e9 [28] @> Δ-28 {[«28""»]}
<POP 210fa-210fc StackAdj> Δ-8 {[«28""»]|[-8-]}
<Lit 0x210fc 27> {[«28""»]|[-4-]|[$$Please enter test option :_]}
<Const 0x2110a 0x0.4> Δ-4 {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]}
<Const 0x2110e 0x2.4> Δ-4 {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]|[##2]}
<Call 0x21112 0x103ec> {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]|[##2]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 21118-2111c StackAdj> Δ+12 {[«28""»]|[-4-]}
<MI 2111c MOVE.L (A7)+,(A6+0x8)> Δ+4 {[«28""»]}
<POP 21120-21124 StackAdj> Δ+28 {}
<POP 21124-2112c Epilogue> Σ0
@ 2112c
<LVAR 0x008 4(w)>
<POP 2112c-2121c Body>
<POP 2112c-21142 Prologue> Σ0 ↓
<POP 21142-21152 RegCacheLoad> Σ0 ↓
<POP 21152-21214 Naked> Σ0 ↓
<Blob 0x21152 [14] @> Δ-14 {[«14""»]}
<POP 21164-21166 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x21166 13> {[«14""»]|[$$Options are :]}
<Call 0x21174 0x103e0> {[«14""»]|[$$Options are :]}
WriteConsoleStringCrLf(str : String)
<POP 21176-21178 StackAdj> Δ+18 {}
<Blob 0x21178 [30] @> Δ-30 {[«30""»]}
<POP 21184-21186 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x21186 30> {[«30""»]|[$$ 0 => Use all ones pattern.]}
<Call 0x21194 0x103e0> {[«30""»]|[$$ 0 => Use all ones pattern.]}
WriteConsoleStringCrLf(str : String)
<POP 21196-2119a StackAdj> Δ+34 {}
<Blob 0x2119a [40] @> Δ-40 {[«40""»]}
<POP 211a6-211a8 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x211a8 40> {[«40""»]|[$$ 1 => Use one-half frequency pattern.]}
<Call 0x211b6 0x103e0> {[«40""»]|[$$ 1 => Use one-half frequency pattern.]}
WriteConsoleStringCrLf(str : String)
<POP 211b8-211b9 StackAdj> Δ+44 ↓ {}
<Blob 0x211b9 [42] @> Δ-42 {[«42""»]}
<POP 211c8-211ca StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x211ca 41> {[«42""»]|[$$ 2 => Use one-third frequency pattern.]}
<Call 0x211d8 0x103e0> {[«42""»]|[$$ 2 => Use one-third frequency pattern.]}
WriteConsoleStringCrLf(str : String)
<POP 211da-211db StackAdj> Δ+46 ↓ {}
<Blob 0x211db [28] @> Δ-28 {[«28""»]}
<POP 211ea-211ec StackAdj> Δ-8 {[«28""»]|[-8-]}
<Lit 0x211ec 27> {[«28""»]|[-4-]|[$$Please enter test option :_]}
<Const 0x211fa 0x0.4> Δ-4 {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]}
<Const 0x211fe 0x2.4> Δ-4 {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]|[##2]}
<Call 0x21202 0x103ec> {[«28""»]|[-4-]|[$$Please enter test option :_]|[##0]|[##2]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 21208-2120c StackAdj> Δ+12 {[«28""»]|[-4-]}
<MI 2120c MOVE.L (A7)+,(A6+0x8)> Δ+4 {[«28""»]}
<POP 21210-21214 StackAdj> Δ+28 {}
<POP 21214-2121c Epilogue> Σ0
@ 2121c
<LVAR 0x008 4(w)>
<POP 2121c-212e8 Body>
<POP 2121c-21232 Prologue> Σ0 ↓
<POP 21232-21240 RegCacheLoad> Σ0 ↓
<POP 21240-212e0 Naked> Σ0 ↓
<Blob 0x21240 [14] @> Δ-14 {[«14""»]}
<POP 21252-21254 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x21254 13> {[«14""»]|[$$Options are :]}
<Call 0x21262 0x103e0> {[«14""»]|[$$Options are :]}
WriteConsoleStringCrLf(str : String)
<POP 21264-21268 StackAdj> Δ+18 {}
<Blob 0x21268 [22] @> Δ-22 {[«22""»]}
<POP 21274-21276 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x21276 22> {[«22""»]|[$$ 0 => 25 ips speed.]}
<Call 0x21284 0x103e0> {[«22""»]|[$$ 0 => 25 ips speed.]}
WriteConsoleStringCrLf(str : String)
<POP 21286-2128a StackAdj> Δ+26 {}
<Blob 0x2128a [24] @> Δ-24 {[«24""»]}
<POP 21296-21298 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x21298 24> {[«24""»]|[$$ 1 => 12.5 ips speed.]}
<Call 0x212a6 0x103e0> {[«24""»]|[$$ 1 => 12.5 ips speed.]}
WriteConsoleStringCrLf(str : String)
<MI 212a8 MOVEA.L A7,A0> {[«24""»]|[$$ 1 => 12.5 ips speed.]}
<MI 212aa LEA.L 0x2033c,A1> {[«24""»]|[$$ 1 => 12.5 ips speed.]}
<BlockMove 27,A1,A0> {[«24""»]|[$$ 1 => 12.5 ips speed.]}
<POP 212b6-212b8 StackAdj> Δ-8 {[«24""»]|[$$ 1 => 12.5 ips speed.]|[-8-]}
<Lit 0x212b8> {[«24""»]|[$$ 1 => 12.5 ips speed.]|[-4-]|[$$…]}
<Pointer.sp 0x212b8 8> Δ-4
<Const 0x212bc 0x1.2> Δ-2
<Const 0x212be 0x1b.2> Δ-2
<Call 0x212c2 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 212c4-212c6 StackAdj> Δ+8
<Const 0x212c6 0x0.4> Δ-4 {[«24""»]|[$$ 1 => 12.5 ips speed.]|[-4-]|[$$…]|[##0]}
<Const 0x212ca 0x1.4> Δ-4 {[«24""»]|[$$ 1 => 12.5 ips speed.]|[-4-]|[$$…]|[##0]|[##1]}
<Call 0x212ce 0x103ec> {[«24""»]|[$$ 1 => 12.5 ips speed.]|[-4-]|[$$…]|[##0]|[##1]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 212d4-212d8 StackAdj> Δ+12 {[«24""»]|[$$ 1 => 12.5 ips speed.]|[-4-]}
<MI 212d8 MOVE.L (A7)+,(A6+0x8)> Δ+4 {[«24""»]|[$$ 1 => 12.5 ips speed.]}
<POP 212dc-212e0 StackAdj> Δ+28 {}
<POP 212e0-212e8 Epilogue> Σ0
@ 212e8
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x022 @>
<LVAR -0x042 @>
<LVAR -0x062 @>
<LVAR -0x082 @>
<LVAR -0x0a2 @>
<POP 212e8-214b4 Body>
<POP 212e8-212fe Prologue> Σ0 ↓
<POP 212fe-21314 RegCacheLoad> Σ0 ↓
<POP 21314-21364 Naked> Σ0 ↓
<MI 21314 LEA.L (A6-0xa2),A0> {}
<MI 21318 LEA.L 0x20cbc,A1> {}
<BlockMove 32,A1,A0> {}
<MI 21324 LEA.L (A6-0x82),A0> {}
<MI 21328 LEA.L 0x20cdc,A1> {}
<BlockMove 32,A1,A0> {}
<MI 21334 LEA.L (A6-0x62),A0> {}
<MI 21338 LEA.L 0x20cfc,A1> {}
<BlockMove 32,A1,A0> {}
<MI 21344 LEA.L (A6-0x42),A0> {}
<MI 21348 LEA.L 0x20d1c,A1> {}
<BlockMove 32,A1,A0> {}
<MI 21354 LEA.L (A6-0x22),A0> {}
<MI 21358 LEA.L 0x20d3c,A1> {}
<BlockMove 32,A1,A0> {}
<POP 21364-2139c Naked> Σ0 ↓ →0x213a0 ←0x2140c
<MI 21364 MOVEA.L (A6+0xc),A0> {}
<Blob 0x21368 [20] @> Δ-20 {[«20""»]}
<POP 21374-21376 StackAdj> Δ-6 {[«20""»]|[-6-]}
<Lit 0x21376 20> {[«20""»]|[-2-]|[$$Enter test number :_]}
<Call 0x21382 0x20e5c> {[«20""»]|[-2-]|[$$Enter test number :_]}
<POP 21386-21388 StackAdj> Δ+4 {[«20""»]|[-2-]}
<MI 21388 MOVE.W (A7)+,D0> Δ+2 {[«20""»]}
<POP 0x2138a LimitCheck 0x0 ≤ D0 ≤ 0xff> {[«20""»]}
<POP 2138c-2138e StackAdj> Δ+20 {}
<MI 2138e MOVE.W D0,(A0)> {}
<MI 21390 LEA.L (A6-0xa2),A0> {}
<MI 21394 MOVE.W D0,D1> {}
<MI 21396 LSR.W #0x3,D1> {}
<MI 21398 CMP.W #0x20,D1> {}
<MI 2139a BLT 0x213a0> {}
<POP 2139c-213a0 Naked> Σ0 →0x213a4
<MI 2139c MOVEQ.L #0x00,D1> {}
<MI 2139e BRA 0x213a4> {}
<POP 213a0-213a4 Naked> Σ0 ↓ ←0x21364
<MI 213a0 BTST.B D0,(A0+D1.W)> {}
<POP 213a4-213a6 Naked> Σ0 ↓ →0x213aa ←0x2139c
<MI 213a4 BEQ 0x213aa> {}
<POP 213a6-213aa Naked> Σ0 →0x2140c
<MI 213a6 MOVEQ.L #0x01,D7> {}
<MI 213a8 BRA 0x2140c> {}
<POP 213aa-2140c Naked> Σ0 ↓ ←0x213a4
<MI 213aa MOVEQ.L #0x00,D7> {}
<Blob 0x213ac [6] @> Δ-6 {[«6""»]}
<Blob 0x213bc [18] @> Δ-18 {[«6""»]|[«18""»]}
<POP 213c8-213ca StackAdj> Δ-8 {[«6""»]|[«18""»]|[-8-]}
<Lit 0x213ca 5> {[«6""»]|[«18""»]|[-4-]|[$$Test_]}
<POP 213d6-213d8 StackAdj> Δ-4 {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]}
<MI 213d8 MOVE.W D0,D1> {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]}
<MI 213da EXTW.L D1> {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]}
<MI 213dc MOVE.L D1,-(A7)> Δ-4 {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[4, 'D1']}
<Const 0x213de 0x4.4> Δ-4 {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[4, 'D1']|[##4]}
<Call 0x213e2 0x102e8> {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[4, 'D1']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 213e8-213ea StackAdj> Δ+4 {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[4, 'D1']}
<Lit 0x213ea 18> {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[$$ is not supported.]}
<Call 0x213f8 0x102d4> {[«6""»]|[«18""»]|[-4-]|[$$Test_]|[-4-]|[$$ is not supported.]}
StringCat3(a, b, c : String) : String
<POP 213fe-21402 StackAdj> Δ+12 {[«6""»]|[«18""»]|[-4-]}
<Call 0x21402 0x103e0> {[«6""»]|[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21408-2140c StackAdj> Δ+28 {}
<POP 2140c-21412 Naked> Σ0 ↓ →0x21364 ←0x213a6
<MI 2140c TST.B D7> {}
<MI 2140e BEQ 0x21364> {}
<POP 21412-2141e Naked> Σ0 ↓ →0x21422
<MI 21412 LEA.L (A6-0x82),A0> {}
<MI 21416 MOVE.W D0,D1> {}
<MI 21418 LSR.W #0x3,D1> {}
<MI 2141a CMP.W #0x20,D1> {}
<MI 2141c BLT 0x21422> {}
<POP 2141e-21422 Naked> Σ0 →0x21426
<MI 2141e MOVEQ.L #0x00,D1> {}
<MI 21420 BRA 0x21426> {}
<POP 21422-21426 Naked> Σ0 ↓ ←0x21412
<MI 21422 BTST.B D0,(A0+D1.W)> {}
<POP 21426-21428 Naked> Σ0 ↓ →0x2143c ←0x2141e
<MI 21426 BEQ 0x2143c> {}
<POP 21428-21438 Naked> Σ0 ↓
<MI 21428 MOVEA.L (A6+0x8),A0> {}
<POP 2142a-2142c StackAdj> Δ-4 {[-4-]}
<Call 0x2142c 0x20f94> {[-4-]}
<MI 21430 MOVE.L (A7)+,D0> Δ+4 {}
<POP 0x21432 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<POP 21438-2143c Naked> Σ0 →0x214ac ←0x2144e ←0x21472 ←0x21496
<MI 21438 MOVE.W D0,(A0)> {}
<MI 2143a BRA 0x214ac> {}
<POP 2143c-21444 Naked> Σ0 ↓ →0x21448 ←0x21426
<MI 2143c MOVE.W D0,D1> {}
<MI 2143e LSR.W #0x3,D1> {}
<MI 21440 CMP.W #0x20,D1> {}
<MI 21442 BLT 0x21448> {}
<POP 21444-21448 Naked> Σ0 →0x2144c
<MI 21444 MOVEQ.L #0x00,D1> {}
<MI 21446 BRA 0x2144c> {}
<POP 21448-2144c Naked> Σ0 ↓ ←0x2143c
<MI 21448 BTST.B D0,(A6+D1.W-#0x62)> {}
<POP 2144c-2144e Naked> Σ0 ↓ →0x21460 ←0x21444
<MI 2144c BEQ 0x21460> {}
<POP 2144e-21460 Naked> Σ0 →0x21438
<MI 2144e MOVEA.L (A6+0x8),A0> {}
<POP 21450-21452 StackAdj> Δ-4 {[-4-]}
<Call 0x21452 0x20fe8> {[-4-]}
<MI 21456 MOVE.L (A7)+,D0> Δ+4 {}
<POP 0x21458 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 2145e BRA 0x21438> {}
<POP 21460-21468 Naked> Σ0 ↓ →0x2146c ←0x2144c
<MI 21460 MOVE.W D0,D1> {}
<MI 21462 LSR.W #0x3,D1> {}
<MI 21464 CMP.W #0x20,D1> {}
<MI 21466 BLT 0x2146c> {}
<POP 21468-2146c Naked> Σ0 →0x21470
<MI 21468 MOVEQ.L #0x00,D1> {}
<MI 2146a BRA 0x21470> {}
<POP 2146c-21470 Naked> Σ0 ↓ ←0x21460
<MI 2146c BTST.B D0,(A6+D1.W-#0x42)> {}
<POP 21470-21472 Naked> Σ0 ↓ →0x21484 ←0x21468
<MI 21470 BEQ 0x21484> {}
<POP 21472-21484 Naked> Σ0 →0x21438
<MI 21472 MOVEA.L (A6+0x8),A0> {}
<POP 21474-21476 StackAdj> Δ-4 {[-4-]}
<Call 0x21476 0x2112c> {[-4-]}
<MI 2147a MOVE.L (A7)+,D0> Δ+4 {}
<POP 0x2147c LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21482 BRA 0x21438> {}
<POP 21484-2148c Naked> Σ0 ↓ →0x21490 ←0x21470
<MI 21484 MOVE.W D0,D1> {}
<MI 21486 LSR.W #0x3,D1> {}
<MI 21488 CMP.W #0x20,D1> {}
<MI 2148a BLT 0x21490> {}
<POP 2148c-21490 Naked> Σ0 →0x21494
<MI 2148c MOVEQ.L #0x00,D1> {}
<MI 2148e BRA 0x21494> {}
<POP 21490-21494 Naked> Σ0 ↓ ←0x21484
<MI 21490 BTST.B D0,(A6+D1.W-#0x22)> {}
<POP 21494-21496 Naked> Σ0 ↓ →0x214a8 ←0x2148c
<MI 21494 BEQ 0x214a8> {}
<POP 21496-214a8 Naked> Σ0 →0x21438
<MI 21496 MOVEA.L (A6+0x8),A0> {}
<POP 21498-2149a StackAdj> Δ-4 {[-4-]}
<Call 0x2149a 0x2121c> {[-4-]}
<MI 2149e MOVE.L (A7)+,D0> Δ+4 {}
<POP 0x214a0 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 214a6 BRA 0x21438> {}
<POP 214a8-214ac Naked> Σ0 ↓ ←0x21494
<MI 214a8 MOVEA.L (A6+0x8),A0> {}
<MI 214aa CLR.W (A0)> {}
<POP 214ac-214b4 Epilogue> Σ0 ←0x21438
@ 214b4
<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 214b4-21568 Body>
<POP 214b4-214ca Prologue> Σ0 ↓
<POP 214ca-214cc RegCacheLoad> Σ0 ↓
<POP 214cc-2151c Naked> Σ0 ↓ →0x21550
<MI 214cc CLR.W (A6-0x26)> {}
<MI 214d0 CLR.W (A6-0x24)> {}
<MI 214d4 MOVE.W #0x3,(A6-0x22)> {}
<MI 214da CLR.W (A6-0x20)> {}
<MI 214de CLR.W (A6-0x1e)> {}
<MI 214e2 MOVE.W (A6+0xc),D0> {}
<MI 214e6 ASL.W #0x8,D0> {}
<MI 214e8 MOVE.W D0,(A6-0x1c)> {}
<MI 214ec CLR.W (A6-0x1a)> {}
<MI 214f0 CLR.W (A6-0x18)> {}
<Pointer.fp 0x214f4 <LVAR -0x026 @ 2(r)>> Δ-4 {[@@-38]}
<MI 214f8 LEA.L (A6-0x14),A0> {[@@-38]}
<MI 214fc MOVE.L A0,-(A7)> Δ-4 {[@@-38]|[4, 'A0']}
<Const 0x214fe 0x1.2> Δ-2 {[@@-38]|[4, 'A0']|[#1]}
<Call 0x21500 0x10204> {[@@-38]|[4, 'A0']|[#1]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21506-21508 StackAdj> Δ+8 {[-2-]}
<POP 21508-21509 StackAdj> Δ+2 {}
<Const 0x21509 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2150a <LVAR -0x016 @ 1(r)>> Δ-4 {[#1]|[@@-22]}
<Call 0x2150e 0x10206> {[#1]|[@@-22]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21514-21516 StackAdj> Δ+6 {}
<MI 21516 TST.B (A6-0x16)> {}
<MI 2151a BNE 0x21550> {}
<POP 2151c-21550 Naked> Σ0 ↓
<Blob 0x2151c [50] @> Δ-50 {[«50""»]}
<Const 0x2152e 0xe.2> Δ-2 {[«50""»]|[#14]}
<POP 21532-21534 StackAdj> Δ-4 {[«50""»]|[#14]|[-4-]}
<Lit 0x21534 49> {[«50""»]|[#14]|[$$Error on status read during diagnostic execution.]}
<Call 0x21546 0x103b8> {[«50""»]|[#14]|[$$Error on status read during diagnostic execution.]}
PopProgram(status : Byte; msg : String)
<POP 2154c-21550 StackAdj> Δ+56 {}
<POP 21550-21560 Naked> Σ0 ↓ ←0x214cc
<MI 21550 MOVEA.L (A6+0x8),A0> {}
<MI 21554 LEA.L (A6-0x10),A1> {}
<BlockMove 16,A1,A0> {}
<POP 21560-21568 Epilogue> Σ0
@ 21568
<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 21568-2161c Body>
<POP 21568-2157e Prologue> Σ0 ↓
<POP 2157e-21580 RegCacheLoad> Σ0 ↓
<POP 21580-215d2 Naked> Σ0 ↓ →0x215fc
<MI 21580 CLR.W (A6-0x22)> {}
<MI 21584 CLR.W (A6-0x20)> {}
<MI 21588 MOVE.W #0x3,(A6-0x1e)> {}
<MI 2158e CLR.W (A6-0x1c)> {}
<MI 21592 CLR.W (A6-0x1a)> {}
<MI 21596 MOVE.W (A6+0x8),D0> {}
<MI 2159a ASL.W #0x8,D0> {}
<MI 2159c ADDI.W #0x001b,D0> {}
<MI 215a0 MOVE.W D0,(A6-0x18)> {}
<MI 215a4 CLR.W (A6-0x16)> {}
<MI 215a8 CLR.W (A6-0x14)> {}
<Pointer.fp 0x215ac <LVAR -0x022 @ 2(r)>> Δ-4 {[@@-34]}
<Const 0x215b0 0x0.4> Δ-4 {[@@-34]|[##0]}
<Const 0x215b4 0x1.2> Δ-2 {[@@-34]|[##0]|[#1]}
<Call 0x215b6 0x10204> {[@@-34]|[##0]|[#1]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 215bc-215be StackAdj> Δ+8 {[-2-]}
<POP 215be-215bf StackAdj> Δ+2 {}
<Const 0x215bf 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x215c0 <LVAR -0x012 @ 1(r)>> Δ-4 {[#1]|[@@-18]}
<Call 0x215c4 0x10206> {[#1]|[@@-18]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 215ca-215cc StackAdj> Δ+6 {}
<MI 215cc TST.B (A6-0x12)> {}
<MI 215d0 BNE 0x215fc> {}
<POP 215d2-215fc Naked> Σ0 ↓
<Blob 0x215d2 [40] @> Δ-40 {[«40""»]}
<POP 215de-215e0 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x215e0 40> {[«40""»]|[$$Error when issuing load/on-line command.]}
<Call 0x215f2 0x103e0> {[«40""»]|[$$Error when issuing load/on-line command.]}
WriteConsoleStringCrLf(str : String)
<POP 215f8-215fc StackAdj> Δ+44 {}
<POP 215fc-21614 Naked> Σ0 ↓ →0x215fc ←0x21580 ←0x215fc
<MI 215fc MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Pointer.fp 0x21600 <LVAR -0x010 @>> Δ-4 {[2, '(A6+0x8)']|[@@-16]}
<Call 0x21604 0x214b4> {[2, '(A6+0x8)']|[@@-16]}
<POP 21608-2160a StackAdj> Δ+6 {}
<MI 2160a MOVE.W (A6-0x8),D0> {}
<MI 2160e ANDI.W #0x0040,D0> {}
<MI 21612 BEQ 0x215fc> {}
<POP 21614-2161c Epilogue> Σ0
@ 2161c
<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 2161c-216cc Body>
<POP 2161c-21632 Prologue> Σ0 ↓
<POP 21632-21634 RegCacheLoad> Σ0 ↓
<POP 21634-2169a Naked> Σ0 ↓ →0x216c4
<MI 21634 MOVE.W (A6+0x8),D0> {}
<MI 21638 ASL.W #0x8,D0> {}
<MI 2163a ADD.W (A6+0xa),D0> {}
<MI 2163e EXTW.L D0> {}
<MI 21640 MOVE.L D0,(A6-0x16)> {}
<MI 21644 CLR.W (A6-0x12)> {}
<MI 21648 CLR.W (A6-0x10)> {}
<MI 2164c MOVE.W #0x3,(A6-0xe)> {}
<MI 21652 CLR.W (A6-0xc)> {}
<MI 21656 CLR.W (A6-0xa)> {}
<MI 2165a MOVE.W (A6+0xc),D0> {}
<MI 2165e ASL.W #0x8,D0> {}
<MI 21660 ADDI.W #0x001a,D0> {}
<MI 21664 MOVE.W D0,(A6-0x8)> {}
<MI 21668 MOVE.W #0x2,(A6-0x6)> {}
<MI 2166e CLR.W (A6-0x4)> {}
<Pointer.fp 0x21672 <LVAR -0x012 @ 2(r)>> Δ-4 {[@@-18]}
<MI 21676 LEA.L (A6-0x16),A0> {[@@-18]}
<MI 2167a MOVE.L A0,-(A7)> Δ-4 {[@@-18]|[4, 'A0']}
<Const 0x2167c 0x1.2> Δ-2 {[@@-18]|[4, 'A0']|[#1]}
<Call 0x2167e 0x10204> {[@@-18]|[4, 'A0']|[#1]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21684-21686 StackAdj> Δ+8 {[-2-]}
<POP 21686-21687 StackAdj> Δ+2 {}
<Const 0x21687 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x21688 <LVAR -0x002 @ 1(r)>> Δ-4 {[#1]|[@@-2]}
<Call 0x2168c 0x10206> {[#1]|[@@-2]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21692-21694 StackAdj> Δ+6 {}
<MI 21694 TST.B (A6-0x2)> {}
<MI 21698 BNE 0x216c4> {}
<POP 2169a-216c4 Naked> Σ0 ↓
<Blob 0x2169a [38] @> Δ-38 {[«38""»]}
<POP 216a6-216a8 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x216a8 38> {[«38""»]|[$$Error when issuing diagnostic command.]}
<Call 0x216ba 0x103e0> {[«38""»]|[$$Error when issuing diagnostic command.]}
WriteConsoleStringCrLf(str : String)
<POP 216c0-216c4 StackAdj> Δ+42 {}
<POP 216c4-216cc Epilogue> Σ0 ←0x21634
@ 216cc
<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 216cc-217b2 Body>
<POP 216cc-216e2 Prologue> Σ0 ↓
<POP 216e2-216e6 RegCacheLoad> Σ0 ↓
<POP 216e6-21714 Naked> Σ0 ↓
<MI 216e6 CLR.W (A6-0x42)> {}
<MI 216ea CLR.W (A6-0x40)> {}
<MI 216ee MOVE.W #0x3,(A6-0x3e)> {}
<MI 216f4 CLR.W (A6-0x3c)> {}
<MI 216f8 CLR.W (A6-0x3a)> {}
<MI 216fc MOVE.W (A6+0x10),D0> {}
<MI 21700 ASL.W #0x8,D0> {}
<MI 21702 ADD.W #0x19,D0> {}
<MI 21704 MOVE.W D0,(A6-0x38)> {}
<MI 21708 MOVE.W #0x1b,(A6-0x36)> {}
<MI 2170e CLR.W (A6-0x34)> {}
<MI 21712 MOVEQ.L #0x00,D7> {}
<POP 21714-2174e Naked> Σ0 ↓ →0x2178e ←0x21758
<Pointer.fp 0x21714 <LVAR -0x042 @ 2(r)>> Δ-4 {[@@-66]}
<MI 21718 LEA.L (A6-0x30),A0> {[@@-66]}
<MI 2171c MOVE.L A0,-(A7)> Δ-4 {[@@-66]|[4, 'A0']}
<Const 0x2171e 0x1.2> Δ-2 {[@@-66]|[4, 'A0']|[#1]}
<Call 0x21720 0x10204> {[@@-66]|[4, 'A0']|[#1]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21726-21728 StackAdj> Δ+8 {[-2-]}
<POP 21728-21729 StackAdj> Δ+2 {}
<Const 0x21729 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2172a <LVAR -0x032 @>> Δ-4 {[#1]|[@@-50]}
<Call 0x2172e 0x10206> {[#1]|[@@-50]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 21734-21736 StackAdj> Δ+4 {[#1]}
<MI 21736 MOVE.W (A6+0x10),(A7)> {[2, '(A6+0x10)']}
<Pointer.fp 0x2173a <LVAR -0x014 @>> Δ-4 {[2, '(A6+0x10)']|[@@-20]}
<Call 0x2173e 0x214b4> {[2, '(A6+0x10)']|[@@-20]}
<POP 21742-21744 StackAdj> Δ+6 {}
<MI 21744 MOVE.W (A6-0xc),D0> {}
<MI 21748 ANDI.W #0x4000,D0> {}
<MI 2174c BEQ 0x2178e> {}
<POP 2174e-21758 Naked> Σ0 ↓ →0x2175c
<MI 2174e ADDQ.L #0x1,D7> {}
<MI 21750 CMPI.L #0x00000002,D7> {}
<MI 21756 BGE 0x2175c> {}
<POP 21758-2175a Naked> Σ0 →0x21714
<MI 21758 BRA 0x21714> {}
<POP 2175c-2178e Naked> Σ0 ↓ ←0x2174e
<Blob 0x2175c [26] @> Δ-26 {[«26""»]}
<Const 0x2176e 0xe.2> Δ-2 {[«26""»]|[#14]}
<POP 21772-21774 StackAdj> Δ-4 {[«26""»]|[#14]|[-4-]}
<Lit 0x21774 25> {[«26""»]|[#14]|[$$Error reading sense data!]}
<Call 0x21784 0x103b8> {[«26""»]|[#14]|[$$Error reading sense data!]}
PopProgram(status : Byte; msg : String)
<POP 2178a-2178e StackAdj> Δ+32 {}
<POP 2178e-217aa Naked> Σ0 ↓ ←0x21714
<MI 2178e MOVEA.L (A6+0xc),A0> {}
<MI 21792 MOVE.W (A6-0x28),D0> {}
<MI 21796 LSR.W #0x8,D0> {}
<MI 21798 ANDI.W #0x00ff,D0> {}
<MI 2179c MOVE.W D0,(A0)> {}
<MI 2179e MOVEA.L (A6+0x8),A0> {}
<MI 217a2 MOVE.W (A6-0x26),(A0)> {}
<MI 217a6 ANDI.W #0x00ff,(A0)> {}
<POP 217aa-217b2 Epilogue> Σ0
@ 217b2
<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 217b2-21816 Body>
<POP 217b2-217c8 Prologue> Σ0 ↓
<POP 217c8-217cc RegCacheLoad> Σ0 ↓
<POP 217cc-217e2 Naked> Σ0 ↓
<MI 217cc MOVE.W (A6+0x14),-(A7)> Δ-2 {[2, '(A6+0x14)']}
<Call 0x217ce 0x21568> {[2, '(A6+0x14)']}
<MI 217d2 MOVE.W (A6+0x14),(A7)> {[2, '(A6+0x14)']}
<MI 217d4 MOVE.W (A6+0x12),-(A7)> Δ-2 {[2, '(A6+0x14)']|[2, '(A6+0x12)']}
<MI 217d8 MOVE.W (A6+0x10),-(A7)> Δ-2 {[2, '(A6+0x14)']|[2, '(A6+0x12)']|[2, '(A6+0x10)']}
<Call 0x217dc 0x2161c> {[2, '(A6+0x14)']|[2, '(A6+0x12)']|[2, '(A6+0x10)']}
<POP 217e0-217e2 StackAdj> Δ+6 {}
<POP 217e2-217f8 Naked> Σ0 ↓ →0x217e2 ←0x217e2
<MI 217e2 MOVE.W (A6+0x14),-(A7)> Δ-2 {[2, '(A6+0x14)']}
<Pointer.fp 0x217e4 <LVAR -0x012 @>> Δ-4 {[2, '(A6+0x14)']|[@@-18]}
<Call 0x217e8 0x214b4> {[2, '(A6+0x14)']|[@@-18]}
<POP 217ec-217ee StackAdj> Δ+6 {}
<MI 217ee MOVE.W (A6-0xa),D0> {}
<MI 217f2 ANDI.W #0x0080,D0> {}
<MI 217f6 BNE 0x217e2> {}
<POP 217f8-2180e Naked> Σ0 ↓
<MI 217f8 MOVE.W (A6+0x14),-(A7)> Δ-2 {[2, '(A6+0x14)']}
<MI 217fa MOVEA.L (A6+0xc),A0> {[2, '(A6+0x14)']}
<MI 217fe PEA.L (A0)> Δ-4 {[2, '(A6+0x14)']|[4, '^(A0)']}
<MI 21800 MOVEA.L (A6+0x8),A0> {[2, '(A6+0x14)']|[4, '^(A0)']}
<MI 21804 PEA.L (A0)> Δ-4 {[2, '(A6+0x14)']|[4, '^(A0)']|[4, '^(A0)']}
<Call 0x21806 0x216cc> {[2, '(A6+0x14)']|[4, '^(A0)']|[4, '^(A0)']}
<POP 2180a-2180e StackAdj> Δ+10 {}
<POP 2180e-21816 Epilogue> Σ0
@ 21816
<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 21816-218de Body>
<POP 21816-2182c Prologue> Σ0 ↓
<POP 2182c-21836 RegCacheLoad> Σ0 ↓
<POP 21836-2183e Naked> Σ0 ↓
<MI 21836 MOVE.W #0x03,(A6-0x22)> {}
<MI 2183a CLR.W (A6-0x1a)> {}
<POP 2183e-218a8 Naked> Σ0 ↓ →0x218d0 ←0x218d0
<MI 2183e MOVEA.L (A6+0x8),A0> {}
<Blob 0x21842 [24] @> Δ-24 {[«24""»]}
<POP 2184e-21850 StackAdj> Δ-8 {[«24""»]|[-8-]}
<Lit 0x21850 24> {[«24""»]|[-4-]|[$$Enter STU unit number :_]}
<Const 0x21860 0x0.4> Δ-4 {[«24""»]|[-4-]|[$$Enter STU unit number :_]|[##0]}
<Const 0x21864 0x3.4> Δ-4 {[«24""»]|[-4-]|[$$Enter STU unit number :_]|[##0]|[##3]}
<Call 0x21868 0x103ec> {[«24""»]|[-4-]|[$$Enter STU unit number :_]|[##0]|[##3]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 2186e-21872 StackAdj> Δ+12 {[«24""»]|[-4-]}
<MI 21872 MOVE.L (A7)+,D0> Δ+4 {[«24""»]}
<POP 0x21874 LimitCheck 0x0 ≤ D0 ≤ 0x3> {[«24""»]}
<POP 2187a-2187c StackAdj> Δ+24 {}
<MI 2187c MOVE.W D0,(A0)> {}
<MI 2187e ASL.W #0x8,D0> {}
<MI 21880 MOVE.W D0,(A6-0x1c)> {}
<Pointer.fp 0x21884 <LVAR -0x026 @>> Δ-4 {[@@-38]}
<MI 21888 LEA.L (A6-0x16),A0> {[@@-38]}
<MI 2188a MOVE.L A0,-(A7)> Δ-4 {[@@-38]|[4, 'A0']}
<Const 0x2188c 0x1.2> Δ-2 {[@@-38]|[4, 'A0']|[#1]}
<Call 0x2188e 0x10204> {[@@-38]|[4, 'A0']|[#1]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 21894-21896 StackAdj> Δ+8 {[-2-]}
<POP 21896-21897 StackAdj> Δ+2 {}
<Const 0x21897 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x21898 <LVAR -0x028 @>> Δ-4 {[#1]|[@@-40]}
<Call 0x2189c 0x10206> {[#1]|[@@-40]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 218a2-218a4 StackAdj> Δ+6 {}
<MI 218a4 TST.W (A6-0x16)> {}
<MI 218a6 BNE 0x218d0> {}
<POP 218a8-218d0 Naked> Σ0 ↓
<Blob 0x218a8 [20] @> Δ-20 {[«20""»]}
<POP 218b4-218b6 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x218b6 20> {[«20""»]|[$$Unit does not exist.]}
<Call 0x218c8 0x103e0> {[«20""»]|[$$Unit does not exist.]}
WriteConsoleStringCrLf(str : String)
<POP 218ce-218d0 StackAdj> Δ+24 {}
<POP 218d0-218d6 Naked> Σ0 ↓ →0x2183e ←0x2183e
<MI 218d0 TST.W (A6-0x16)> {}
<MI 218d2 BEQ 0x2183e> {}
<POP 218d6-218de Epilogue> Σ0
@ 218de
<LVAR 0x008 2(r)>
<POP 218de-222d0 Body> Δ+1630
<POP 218de-218f4 Prologue> Σ0 ↓
<POP 218f4-21908 RegCacheLoad> Σ0 ↓
<POP 21908-21914 Naked> Σ0 ↓ →0x22278
<MI 21908 MOVE.W (A6+0x8),D0> {}
<MI 2190c CMPI.W #0x0099,D0> {}
<MI 21910 BHI 0x22278> {}
<POP 21914-2191e Naked> Σ0 →0x21a52 →0x21a7a →0x21aa2 →0x21ac8 →0x21ae8 →0x21b10 →0x21b2a →0x21b42 →0x21b54 →0x21b76 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x21b94 →0x21ba4 →0x21bb8 →0x21bcc →0x21bf4 →0x21c04 →0x21c30 →0x21c56 →0x21c6a →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x21c7e →0x21c92 →0x21cbe →0x21cce →0x21cde →0x21cee →0x21d0e →0x21d2e →0x21d42 →0x21d68 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x21d7c →0x21da8 →0x21dbc →0x21dd0 →0x21de4 →0x21df8 →0x21e0c →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x21e20 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x21e30 →0x21e44 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x21e58 →0x21e7e →0x21ea4 →0x21ec6 →0x21eda →0x21eee →0x21f02 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x21f24 →0x21f34 →0x21f50 →0x21f60 →0x21f8c →0x21fb2 →0x21fde →0x21ff8 →0x22014 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22024 →0x22038 →0x2204c →0x22066 →0x22076 →0x22086 →0x2209a →0x220ae →0x220c2 →0x220d0 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x220e6 →0x220fa →0x2210a →0x22120 →0x22134 →0x22144 →0x22154 →0x22164 →0x22278 →0x22178 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x22278 →0x2218c →0x2219c →0x221ac →0x221d8 →0x221e8 →0x221f8 →0x22222 →0x22236 →0x22252 →0x22262
<MI 21914 ADD.W D0,D0> {}
<MI 21916 SWITCH D0.W> {}
<POP 21a52-21a62 Naked> Σ0 Δ-16 ↓ ←0x21914
<Blob 0x21a52 [16] @> Δ-16 {[«16""»]}
<POP 21a62-21a6e Naked> Σ-16 Δ-12 ↓ ←0x21ba4 ←0x21bb8 ←0x21d2e ←0x21d68 ←0x21da8 ←0x21eee
<POP 21a62-21a64 StackAdj> Δ-4 {[-20-]}
<Pointer.sp 0x21a64 4> Δ-4 {[-20-]|[^^4]}
<Const 0x21a68 0x1.2> Δ-2 {[-20-]|[^^4]|[#1]}
<Const 0x21a6a 0xf.2> Δ-2 {[-20-]|[^^4]|[#1]|[#15]}
<POP 21a6e-21a7a Naked> Σ-28 Δ+28 →0x22296 ←0x21b86
<Call 0x21a6e 0x102c4> {[-28-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21a70-21a72 StackAdj> Δ+8 {[-20-]}
<MI 21a72 MOVEA.L (A7)+,A4> Δ+4 {[-16-]}
<POP 21a74-21a76 StackAdj> Δ+16 {}
<MI 21a76 BRA 0x22296> {}
<POP 21a7a-21a8a Naked> Σ0 Δ-20 ↓ ←0x21914
<Blob 0x21a7a [20] @> Δ-20 {[«20""»]}
<POP 21a8a-21a96 Naked> Σ-20 Δ-12 ↓ ←0x21c56 ←0x21c6a ←0x21dd0 ←0x21e44
<POP 21a8a-21a8c StackAdj> Δ-4 {[-24-]}
<Pointer.sp 0x21a8c 4> Δ-4 {[-24-]|[^^4]}
<Const 0x21a90 0x1.2> Δ-2 {[-24-]|[^^4]|[#1]}
<Const 0x21a92 0x13.2> Δ-2 {[-24-]|[^^4]|[#1]|[#19]}
<POP 21a96-21aa2 Naked> Σ-32 Δ+32 →0x22296 ←0x21b1c
<Call 0x21a96 0x102c4> {[-32-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21a98-21a9a StackAdj> Δ+8 {[-24-]}
<MI 21a9a MOVEA.L (A7)+,A4> Δ+4 {[-20-]}
<POP 21a9c-21a9e StackAdj> Δ+20 {}
<MI 21a9e BRA 0x22296> {}
<POP 21aa2-21aae Naked> Σ0 Δ-30 ↓ ←0x21914
<Blob 0x21aa2 [30] @> Δ-30 {[«30""»]}
<POP 21aae-21aba Naked> Σ-30 Δ-12 ↓ ←0x21cce
<POP 21aae-21ab0 StackAdj> Δ-4 {[-34-]}
<Pointer.sp 0x21ab0 4> Δ-4 {[-34-]|[^^4]}
<Const 0x21ab4 0x1.2> Δ-2 {[-34-]|[^^4]|[#1]}
<Const 0x21ab6 0x1e.2> Δ-2 {[-34-]|[^^4]|[#1]|[#30]}
<POP 21aba-21ac8 Naked> Σ-42 Δ+42 →0x22296 ←0x21f02
<Call 0x21aba 0x102c4> {[-42-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21abc-21abe StackAdj> Δ+8 {[-34-]}
<MI 21abe MOVEA.L (A7)+,A4> Δ+4 {[-30-]}
<POP 21ac0-21ac4 StackAdj> Δ+30 {}
<MI 21ac4 BRA 0x22296> {}
<POP 21ac8-21ae8 Naked> Σ0 →0x22296 ←0x21914
<Blob 0x21ac8 [4] @> Δ-4 {[«4""»]}
<Blob 0x21acc [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 21ad0-21ad2 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<Lit 0x21ad2 8> {[«4""»]|[«4""»]|[$$Id fault]}
<MI 21ae0 MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]}
<POP 21ae2-21ae4 StackAdj> Δ+8 {}
<MI 21ae4 BRA 0x22296> {}
<POP 21ae8-21af8 Naked> Σ0 Δ-22 ↓ ←0x21914
<Blob 0x21ae8 [22] @> Δ-22 {[«22""»]}
<POP 21af8-21b04 Naked> Σ-22 Δ-12 ↓ ←0x21b42 ←0x21de4 ←0x22024 ←0x22164 ←0x22178
<POP 21af8-21afa StackAdj> Δ-4 {[-26-]}
<Pointer.sp 0x21afa 4> Δ-4 {[-26-]|[^^4]}
<Const 0x21afe 0x1.2> Δ-2 {[-26-]|[^^4]|[#1]}
<Const 0x21b00 0x15.2> Δ-2 {[-26-]|[^^4]|[#1]|[#21]}
<POP 21b04-21b10 Naked> Σ-34 Δ+34 →0x22296 ←0x21b36
<Call 0x21b04 0x102c4> {[-34-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21b06-21b08 StackAdj> Δ+8 {[-26-]}
<MI 21b08 MOVEA.L (A7)+,A4> Δ+4 {[-22-]}
<POP 21b0a-21b0c StackAdj> Δ+22 {}
<MI 21b0c BRA 0x22296> {}
<POP 21b10-21b1c Naked> Σ0 Δ-20 ↓ ←0x21914
<Blob 0x21b10 [20] @> Δ-20 {[«20""»]}
<POP 21b1c-21b2a Naked> Σ-20 Δ-12 →0x21a96 ←0x21e20
<POP 21b1c-21b1e StackAdj> Δ-4 {[-24-]}
<Pointer.sp 0x21b1e 4> Δ-4 {[-24-]|[^^4]}
<Const 0x21b22 0x1.2> Δ-2 {[-24-]|[^^4]|[#1]}
<Const 0x21b24 0x14.2> Δ-2 {[-24-]|[^^4]|[#1]|[#20]}
<MI 21b26 BRA 0x21a96> {[-24-]|[^^4]|[#1]|[#20]}
<POP 21b2a-21b36 Naked> Σ0 Δ-22 ↓ ←0x21914
<Blob 0x21b2a [22] @> Δ-22 {[«22""»]}
<POP 21b36-21b42 Naked> Σ-22 Δ-12 →0x21b04 ←0x21cbe
<POP 21b36-21b38 StackAdj> Δ-4 {[-26-]}
<Pointer.sp 0x21b38 4> Δ-4 {[-26-]|[^^4]}
<Const 0x21b3c 0x1.2> Δ-2 {[-26-]|[^^4]|[#1]}
<Const 0x21b3e 0x16.2> Δ-2 {[-26-]|[^^4]|[#1]|[#22]}
<MI 21b40 BRA 0x21b04> {[-26-]|[^^4]|[#1]|[#22]}
<POP 21b42-21b54 Naked> Σ0 Δ-22 →0x21af8 ←0x21914
<Blob 0x21b42 [22] @> Δ-22 {[«22""»]}
<MI 21b52 BRA 0x21af8> {[«22""»]}
<POP 21b54-21b6a Naked> Σ0 Δ-24 ↓ ←0x21914
<Blob 0x21b54 [4] @> Δ-4 {[«4""»]}
<Blob 0x21b58 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21b5c [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 21b60-21b62 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Pointer.sp 0x21b62 4> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[^^4]}
<Const 0x21b66 0x1.2> Δ-2 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[^^4]|[#1]}
<Const 0x21b68 0xc.2> Δ-2 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[^^4]|[#1]|[#12]}
<POP 21b6a-21b76 Naked> Σ-24 Δ+24 →0x22296 ←0x21d1e
<Call 0x21b6a 0x102c4> {[-24-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21b6c-21b6e StackAdj> Δ+8 {[-16-]}
<MI 21b6e MOVEA.L (A7)+,A4> Δ+4 {[-12-]}
<POP 21b70-21b72 StackAdj> Δ+12 {}
<MI 21b72 BRA 0x22296> {}
<POP 21b76-21b86 Naked> Σ0 Δ-16 ↓ ←0x21914
<Blob 0x21b76 [4] @> Δ-4 {[«4""»]}
<Blob 0x21b7a [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21b7e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21b82 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21b86-21b94 Naked> Σ-16 Δ-12 →0x21a6e ←0x21ec6 ←0x220ae ←0x22222
<POP 21b86-21b88 StackAdj> Δ-4 {[-20-]}
<Pointer.sp 0x21b88 4> Δ-4 {[-20-]|[^^4]}
<Const 0x21b8c 0x1.2> Δ-2 {[-20-]|[^^4]|[#1]}
<Const 0x21b8e 0x10.2> Δ-2 {[-20-]|[^^4]|[#1]|[#16]}
<MI 21b90 BRA 0x21a6e> {[-20-]|[^^4]|[#1]|[#16]}
<POP 21b94-21ba4 Naked> Σ0 Δ-18 →0x22284 ←0x21914
<Blob 0x21b94 [18] @> Δ-18 {[«18""»]}
<MI 21ba0 BRA 0x22284> {[«18""»]}
<POP 21ba4-21bb8 Naked> Σ0 Δ-16 →0x21a62 ←0x21914
<Blob 0x21ba4 [16] @> Δ-16 {[«16""»]}
<MI 21bb4 BRA 0x21a62> {[«16""»]}
<POP 21bb8-21bcc Naked> Σ0 Δ-16 →0x21a62 ←0x21914
<Blob 0x21bb8 [16] @> Δ-16 {[«16""»]}
<MI 21bc8 BRA 0x21a62> {[«16""»]}
<POP 21bcc-21bdc Naked> Σ0 Δ-26 ↓ ←0x21914
<Blob 0x21bcc [26] @> Δ-26 {[«26""»]}
<POP 21bdc-21be8 Naked> Σ-26 Δ-12 ↓ ←0x21c7e ←0x21e30 ←0x21eda ←0x22120
<POP 21bdc-21bde StackAdj> Δ-4 {[-30-]}
<Pointer.sp 0x21bde 4> Δ-4 {[-30-]|[^^4]}
<Const 0x21be2 0x1.2> Δ-2 {[-30-]|[^^4]|[#1]}
<Const 0x21be4 0x19.2> Δ-2 {[-30-]|[^^4]|[#1]|[#25]}
<POP 21be8-21bf4 Naked> Σ-38 Δ+38 →0x22296 ←0x22058
<Call 0x21be8 0x102c4> {[-38-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21bea-21bec StackAdj> Δ+8 {[-30-]}
<MI 21bec MOVEA.L (A7)+,A4> Δ+4 {[-26-]}
<POP 21bee-21bf0 StackAdj> Δ+26 {}
<MI 21bf0 BRA 0x22296> {}
<POP 21bf4-21c04 Naked> Σ0 Δ-18 →0x22284 ←0x21914
<Blob 0x21bf4 [18] @> Δ-18 {[«18""»]}
<MI 21c00 BRA 0x22284> {[«18""»]}
<POP 21c04-21c22 Naked> Σ0 Δ-44 ↓ ←0x21914
<Blob 0x21c04 [32] @> Δ-32 {[«32""»]}
<POP 21c16-21c18 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Pointer.sp 0x21c18 4> Δ-4 {[«32""»]|[-4-]|[^^4]}
<Const 0x21c1c 0x1.2> Δ-2 {[«32""»]|[-4-]|[^^4]|[#1]}
<Const 0x21c1e 0x1f.2> Δ-2 {[«32""»]|[-4-]|[^^4]|[#1]|[#31]}
<POP 21c22-21c30 Naked> Σ-44 Δ+44 →0x22296 ←0x21f34
<Call 0x21c22 0x102c4> {[-44-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21c24-21c26 StackAdj> Δ+8 {[-36-]}
<MI 21c26 MOVEA.L (A7)+,A4> Δ+4 {[-32-]}
<POP 21c28-21c2c StackAdj> Δ+32 {}
<MI 21c2c BRA 0x22296> {}
<POP 21c30-21c3c Naked> Σ0 Δ-34 ↓ ←0x21914
<Blob 0x21c30 [34] @> Δ-34 {[«34""»]}
<POP 21c3c-21c56 Naked> Σ-34 Δ+34 →0x22296 ←0x21f24 ←0x21f50 ←0x22066 ←0x22076
<POP 21c3c-21c3e StackAdj> Δ-4 {[-38-]}
<Lit 0x21c3e> {[-34-]|[$$…]}
<Pointer.sp 0x21c3e 4> Δ-4
<Const 0x21c42 0x1.2> Δ-2
<Const 0x21c44 0x22.2> Δ-2
<Call 0x21c48 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21c4a-21c4c StackAdj> Δ+8
<MI 21c4c MOVEA.L (A7)+,A4> Δ+4 {[-34-]}
<POP 21c4e-21c52 StackAdj> Δ+34 {}
<MI 21c52 BRA 0x22296> {}
<POP 21c56-21c6a Naked> Σ0 Δ-20 →0x21a8a ←0x21914
<Blob 0x21c56 [20] @> Δ-20 {[«20""»]}
<MI 21c66 BRA 0x21a8a> {[«20""»]}
<POP 21c6a-21c7e Naked> Σ0 Δ-20 →0x21a8a ←0x21914
<Blob 0x21c6a [20] @> Δ-20 {[«20""»]}
<MI 21c7a BRA 0x21a8a> {[«20""»]}
<POP 21c7e-21c92 Naked> Σ0 Δ-26 →0x21bdc ←0x21914
<Blob 0x21c7e [26] @> Δ-26 {[«26""»]}
<MI 21c8e BRA 0x21bdc> {[«26""»]}
<POP 21c92-21ca4 Naked> Σ0 Δ-28 ↓ ←0x21914
<Blob 0x21c92 [28] @> Δ-28 {[«28""»]}
<POP 21ca4-21cb0 Naked> Σ-28 Δ-12 ↓ ←0x220d0
<POP 21ca4-21ca6 StackAdj> Δ-4 {[-32-]}
<Pointer.sp 0x21ca6 4> Δ-4 {[-32-]|[^^4]}
<Const 0x21caa 0x1.2> Δ-2 {[-32-]|[^^4]|[#1]}
<Const 0x21cac 0x1b.2> Δ-2 {[-32-]|[^^4]|[#1]|[#27]}
<POP 21cb0-21cbe Naked> Σ-40 Δ+40 →0x22296 ←0x22004
<Call 0x21cb0 0x102c4> {[-40-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21cb2-21cb4 StackAdj> Δ+8 {[-32-]}
<MI 21cb4 MOVEA.L (A7)+,A4> Δ+4 {[-28-]}
<POP 21cb6-21cba StackAdj> Δ+28 {}
<MI 21cba BRA 0x22296> {}
<POP 21cbe-21cce Naked> Σ0 Δ-22 →0x21b36 ←0x21914
<Blob 0x21cbe [22] @> Δ-22 {[«22""»]}
<MI 21cca BRA 0x21b36> {[«22""»]}
<POP 21cce-21cde Naked> Σ0 Δ-30 →0x21aae ←0x21914
<Blob 0x21cce [30] @> Δ-30 {[«30""»]}
<MI 21cda BRA 0x21aae> {[«30""»]}
<POP 21cde-21cee Naked> Σ0 Δ-18 →0x22284 ←0x21914
<Blob 0x21cde [18] @> Δ-18 {[«18""»]}
<MI 21cea BRA 0x22284> {[«18""»]}
<POP 21cee-21cfe Naked> Σ0 Δ-18 ↓ ←0x21914
<Blob 0x21cee [18] @> Δ-18 {[«18""»]}
<POP 21cfe-21d0e Naked> Σ-18 Δ-12 →0x2228e ←0x21dbc ←0x21df8 ←0x22038 ←0x22086 ←0x2209a ←0x220e6
<POP 21cfe-21d00 StackAdj> Δ-4 {[-22-]}
<Pointer.sp 0x21d00 4> Δ-4 {[-22-]|[^^4]}
<Const 0x21d04 0x1.2> Δ-2 {[-22-]|[^^4]|[#1]}
<Const 0x21d06 0x11.2> Δ-2 {[-22-]|[^^4]|[#1]|[#17]}
<MI 21d0a BRA 0x2228e> {[-22-]|[^^4]|[#1]|[#17]}
<POP 21d0e-21d1e Naked> Σ0 Δ-12 ↓ ←0x21914
<Blob 0x21d0e [12] @> Δ-12 {[«12""»]}
<POP 21d1e-21d2e Naked> Σ-12 Δ-12 →0x21b6a ←0x21e0c
<POP 21d1e-21d20 StackAdj> Δ-4 {[-16-]}
<Pointer.sp 0x21d20 4> Δ-4 {[-16-]|[^^4]}
<Const 0x21d24 0x1.2> Δ-2 {[-16-]|[^^4]|[#1]}
<Const 0x21d26 0xb.2> Δ-2 {[-16-]|[^^4]|[#1]|[#11]}
<MI 21d2a BRA 0x21b6a> {[-16-]|[^^4]|[#1]|[#11]}
<POP 21d2e-21d42 Naked> Σ0 Δ-16 →0x21a62 ←0x21914
<Blob 0x21d2e [16] @> Δ-16 {[«16""»]}
<MI 21d3e BRA 0x21a62> {[«16""»]}
<POP 21d42-21d4e Naked> Σ0 Δ-24 ↓ ←0x21914
<Blob 0x21d42 [24] @> Δ-24 {[«24""»]}
<POP 21d4e-21d5a Naked> Σ-24 Δ-12 ↓ ←0x22014 ←0x22134 ←0x22154 ←0x2218c ←0x22252
<POP 21d4e-21d50 StackAdj> Δ-4 {[-28-]}
<Pointer.sp 0x21d50 4> Δ-4 {[-28-]|[^^4]}
<Const 0x21d54 0x1.2> Δ-2 {[-28-]|[^^4]|[#1]}
<Const 0x21d56 0x18.2> Δ-2 {[-28-]|[^^4]|[#1]|[#24]}
<POP 21d5a-21d68 Naked> Σ-36 Δ+36 →0x22296 ←0x21eb6
<Call 0x21d5a 0x102c4> {[-36-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21d5c-21d5e StackAdj> Δ+8 {[-28-]}
<MI 21d5e MOVEA.L (A7)+,A4> Δ+4 {[-24-]}
<POP 21d60-21d64 StackAdj> Δ+24 {}
<MI 21d64 BRA 0x22296> {}
<POP 21d68-21d7c Naked> Σ0 Δ-16 →0x21a62 ←0x21914
<Blob 0x21d68 [16] @> Δ-16 {[«16""»]}
<MI 21d78 BRA 0x21a62> {[«16""»]}
<POP 21d7c-21da8 Naked> Σ0 →0x22296 ←0x21914
<Blob 0x21d7c [14] @> Δ-14 {[«14""»]}
<POP 21d8e-21d90 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x21d90 13> {[«14""»]|[$$Up ramp fault]}
<MI 21d9e MOVEA.L (A7)+,A4> Δ+4 {[«14""»]}
<POP 21da0-21da4 StackAdj> Δ+14 {}
<MI 21da4 BRA 0x22296> {}
<POP 21da8-21dbc Naked> Σ0 Δ-16 →0x21a62 ←0x21914
<Blob 0x21da8 [16] @> Δ-16 {[«16""»]}
<MI 21db8 BRA 0x21a62> {[«16""»]}
<POP 21dbc-21dd0 Naked> Σ0 Δ-18 →0x21cfe ←0x21914
<Blob 0x21dbc [18] @> Δ-18 {[«18""»]}
<MI 21dcc BRA 0x21cfe> {[«18""»]}
<POP 21dd0-21de4 Naked> Σ0 Δ-20 →0x21a8a ←0x21914
<Blob 0x21dd0 [20] @> Δ-20 {[«20""»]}
<MI 21de0 BRA 0x21a8a> {[«20""»]}
<POP 21de4-21df8 Naked> Σ0 Δ-22 →0x21af8 ←0x21914
<Blob 0x21de4 [22] @> Δ-22 {[«22""»]}
<MI 21df4 BRA 0x21af8> {[«22""»]}
<POP 21df8-21e0c Naked> Σ0 Δ-18 →0x21cfe ←0x21914
<Blob 0x21df8 [18] @> Δ-18 {[«18""»]}
<MI 21e08 BRA 0x21cfe> {[«18""»]}
<POP 21e0c-21e20 Naked> Σ0 Δ-12 →0x21d1e ←0x21914
<Blob 0x21e0c [12] @> Δ-12 {[«12""»]}
<MI 21e1c BRA 0x21d1e> {[«12""»]}
<POP 21e20-21e30 Naked> Σ0 Δ-20 →0x21b1c ←0x21914
<Blob 0x21e20 [20] @> Δ-20 {[«20""»]}
<MI 21e2c BRA 0x21b1c> {[«20""»]}
<POP 21e30-21e44 Naked> Σ0 Δ-26 →0x21bdc ←0x21914
<Blob 0x21e30 [26] @> Δ-26 {[«26""»]}
<MI 21e40 BRA 0x21bdc> {[«26""»]}
<POP 21e44-21e58 Naked> Σ0 Δ-20 →0x21a8a ←0x21914
<Blob 0x21e44 [20] @> Δ-20 {[«20""»]}
<MI 21e54 BRA 0x21a8a> {[«20""»]}
<POP 21e58-21e7e Naked> Σ0 →0x22296 ←0x21914
<Blob 0x21e58 [38] @> Δ-38 {[«38""»]}
<POP 21e64-21e66 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x21e66 38> {[«38""»]|[$$Irrecoverable device healthcheck fault]}
<MI 21e74 MOVEA.L (A7)+,A4> Δ+4 {[«38""»]}
<POP 21e76-21e7a StackAdj> Δ+38 {}
<MI 21e7a BRA 0x22296> {}
<POP 21e7e-21ea4 Naked> Σ0 →0x22296 ←0x21914
<Blob 0x21e7e [36] @> Δ-36 {[«36""»]}
<POP 21e8a-21e8c StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x21e8c 36> {[«36""»]|[$$Recoverable device healthcheck fault]}
<MI 21e9a MOVEA.L (A7)+,A4> Δ+4 {[«36""»]}
<POP 21e9c-21ea0 StackAdj> Δ+36 {}
<MI 21ea0 BRA 0x22296> {}
<POP 21ea4-21eb6 Naked> Σ0 Δ-24 ↓ ←0x21914
<Blob 0x21ea4 [24] @> Δ-24 {[«24""»]}
<POP 21eb6-21ec6 Naked> Σ-24 Δ-12 →0x21d5a ←0x2210a ←0x22262
<POP 21eb6-21eb8 StackAdj> Δ-4 {[-28-]}
<Pointer.sp 0x21eb8 4> Δ-4 {[-28-]|[^^4]}
<Const 0x21ebc 0x1.2> Δ-2 {[-28-]|[^^4]|[#1]}
<Const 0x21ebe 0x17.2> Δ-2 {[-28-]|[^^4]|[#1]|[#23]}
<MI 21ec2 BRA 0x21d5a> {[-28-]|[^^4]|[#1]|[#23]}
<POP 21ec6-21eda Naked> Σ0 Δ-16 →0x21b86 ←0x21914
<Blob 0x21ec6 [4] @> Δ-4 {[«4""»]}
<Blob 0x21eca [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21ece [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21ed2 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 21ed6 BRA 0x21b86> {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21eda-21eee Naked> Σ0 Δ-26 →0x21bdc ←0x21914
<Blob 0x21eda [26] @> Δ-26 {[«26""»]}
<MI 21eea BRA 0x21bdc> {[«26""»]}
<POP 21eee-21f02 Naked> Σ0 Δ-16 →0x21a62 ←0x21914
<Blob 0x21eee [16] @> Δ-16 {[«16""»]}
<MI 21efe BRA 0x21a62> {[«16""»]}
<POP 21f02-21f24 Naked> Σ0 Δ-42 →0x21aba ←0x21914
<Blob 0x21f02 [30] @> Δ-30 {[«30""»]}
<POP 21f14-21f16 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Pointer.sp 0x21f16 4> Δ-4 {[«30""»]|[-4-]|[^^4]}
<Const 0x21f1a 0x1.2> Δ-2 {[«30""»]|[-4-]|[^^4]|[#1]}
<Const 0x21f1c 0x1d.2> Δ-2 {[«30""»]|[-4-]|[^^4]|[#1]|[#29]}
<MI 21f20 BRA 0x21aba> {[«30""»]|[-4-]|[^^4]|[#1]|[#29]}
<POP 21f24-21f34 Naked> Σ0 Δ-34 →0x21c3c ←0x21914
<Blob 0x21f24 [34] @> Δ-34 {[«34""»]}
<MI 21f30 BRA 0x21c3c> {[«34""»]}
<POP 21f34-21f50 Naked> Σ0 Δ-44 →0x21c22 ←0x21914
<Blob 0x21f34 [32] @> Δ-32 {[«32""»]}
<POP 21f40-21f42 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Pointer.sp 0x21f42 4> Δ-4 {[«32""»]|[-4-]|[^^4]}
<Const 0x21f46 0x1.2> Δ-2 {[«32""»]|[-4-]|[^^4]|[#1]}
<Const 0x21f48 0x20.2> Δ-2 {[«32""»]|[-4-]|[^^4]|[#1]|[#32]}
<MI 21f4c BRA 0x21c22> {[«32""»]|[-4-]|[^^4]|[#1]|[#32]}
<POP 21f50-21f60 Naked> Σ0 Δ-34 →0x21c3c ←0x21914
<Blob 0x21f50 [34] @> Δ-34 {[«34""»]}
<MI 21f5c BRA 0x21c3c> {[«34""»]}
<POP 21f60-21f7e Naked> Σ0 Δ-56 ↓ ←0x21914
<Blob 0x21f60 [44] @> Δ-44 {[«44""»]}
<POP 21f72-21f74 StackAdj> Δ-4 {[«44""»]|[-4-]}
<Pointer.sp 0x21f74 4> Δ-4 {[«44""»]|[-4-]|[^^4]}
<Const 0x21f78 0x1.2> Δ-2 {[«44""»]|[-4-]|[^^4]|[#1]}
<Const 0x21f7a 0x2b.2> Δ-2 {[«44""»]|[-4-]|[^^4]|[#1]|[#43]}
<POP 21f7e-21f8c Naked> Σ-56 Δ+56 →0x22296 ←0x22236
<Call 0x21f7e 0x102c4> {[-56-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21f80-21f82 StackAdj> Δ+8 {[-48-]}
<MI 21f82 MOVEA.L (A7)+,A4> Δ+4 {[-44-]}
<POP 21f84-21f88 StackAdj> Δ+44 {}
<MI 21f88 BRA 0x22296> {}
<POP 21f8c-21f98 Naked> Σ0 Δ-50 ↓ ←0x21914
<Blob 0x21f8c [50] @> Δ-50 {[«50""»]}
<POP 21f98-21fb2 Naked> Σ-50 Δ+50 →0x22296 ←0x221d8
<POP 21f98-21f9a StackAdj> Δ-4 {[-54-]}
<Lit 0x21f9a> {[-50-]|[$$…]}
<Pointer.sp 0x21f9a 4> Δ-4
<Const 0x21f9e 0x1.2> Δ-2
<Const 0x21fa0 0x32.2> Δ-2
<Call 0x21fa4 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21fa6-21fa8 StackAdj> Δ+8
<MI 21fa8 MOVEA.L (A7)+,A4> Δ+4 {[-50-]}
<POP 21faa-21fae StackAdj> Δ+50 {}
<MI 21fae BRA 0x22296> {}
<POP 21fb2-21fd0 Naked> Σ0 Δ-52 ↓ ←0x21914
<Blob 0x21fb2 [40] @> Δ-40 {[«40""»]}
<POP 21fc4-21fc6 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Pointer.sp 0x21fc6 4> Δ-4 {[«40""»]|[-4-]|[^^4]}
<Const 0x21fca 0x1.2> Δ-2 {[«40""»]|[-4-]|[^^4]|[#1]}
<Const 0x21fcc 0x27.2> Δ-2 {[«40""»]|[-4-]|[^^4]|[#1]|[#39]}
<POP 21fd0-21fde Naked> Σ-52 Δ+52 →0x22296 ←0x21fde
<Call 0x21fd0 0x102c4> {[-52-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21fd2-21fd4 StackAdj> Δ+8 {[-44-]}
<MI 21fd4 MOVEA.L (A7)+,A4> Δ+4 {[-40-]}
<POP 21fd6-21fda StackAdj> Δ+40 {}
<MI 21fda BRA 0x22296> {}
<POP 21fde-21ff8 Naked> Σ0 Δ-52 →0x21fd0 ←0x21914
<Blob 0x21fde [40] @> Δ-40 {[«40""»]}
<POP 21fea-21fec StackAdj> Δ-4 {[«40""»]|[-4-]}
<Pointer.sp 0x21fec 4> Δ-4 {[«40""»]|[-4-]|[^^4]}
<Const 0x21ff0 0x1.2> Δ-2 {[«40""»]|[-4-]|[^^4]|[#1]}
<Const 0x21ff2 0x28.2> Δ-2 {[«40""»]|[-4-]|[^^4]|[#1]|[#40]}
<MI 21ff6 BRA 0x21fd0> {[«40""»]|[-4-]|[^^4]|[#1]|[#40]}
<POP 21ff8-22004 Naked> Σ0 Δ-28 ↓ ←0x21914
<Blob 0x21ff8 [28] @> Δ-28 {[«28""»]}
<POP 22004-22014 Naked> Σ-28 Δ-12 →0x21cb0 ←0x22144
<POP 22004-22006 StackAdj> Δ-4 {[-32-]}
<Pointer.sp 0x22006 4> Δ-4 {[-32-]|[^^4]}
<Const 0x2200a 0x1.2> Δ-2 {[-32-]|[^^4]|[#1]}
<Const 0x2200c 0x1c.2> Δ-2 {[-32-]|[^^4]|[#1]|[#28]}
<MI 22010 BRA 0x21cb0> {[-32-]|[^^4]|[#1]|[#28]}
<POP 22014-22024 Naked> Σ0 Δ-24 →0x21d4e ←0x21914
<Blob 0x22014 [24] @> Δ-24 {[«24""»]}
<MI 22020 BRA 0x21d4e> {[«24""»]}
<POP 22024-22038 Naked> Σ0 Δ-22 →0x21af8 ←0x21914
<Blob 0x22024 [22] @> Δ-22 {[«22""»]}
<MI 22034 BRA 0x21af8> {[«22""»]}
<POP 22038-2204c Naked> Σ0 Δ-18 →0x21cfe ←0x21914
<Blob 0x22038 [18] @> Δ-18 {[«18""»]}
<MI 22048 BRA 0x21cfe> {[«18""»]}
<POP 2204c-22058 Naked> Σ0 Δ-26 ↓ ←0x21914
<Blob 0x2204c [26] @> Δ-26 {[«26""»]}
<POP 22058-22066 Naked> Σ-26 Δ-12 →0x21be8 ←0x220c2
<POP 22058-2205a StackAdj> Δ-4 {[-30-]}
<Pointer.sp 0x2205a 4> Δ-4 {[-30-]|[^^4]}
<Const 0x2205e 0x1.2> Δ-2 {[-30-]|[^^4]|[#1]}
<Const 0x22060 0x1a.2> Δ-2 {[-30-]|[^^4]|[#1]|[#26]}
<MI 22062 BRA 0x21be8> {[-30-]|[^^4]|[#1]|[#26]}
<POP 22066-22076 Naked> Σ0 Δ-34 →0x21c3c ←0x21914
<Blob 0x22066 [34] @> Δ-34 {[«34""»]}
<MI 22072 BRA 0x21c3c> {[«34""»]}
<POP 22076-22086 Naked> Σ0 Δ-34 →0x21c3c ←0x21914
<Blob 0x22076 [34] @> Δ-34 {[«34""»]}
<MI 22082 BRA 0x21c3c> {[«34""»]}
<POP 22086-2209a Naked> Σ0 Δ-18 →0x21cfe ←0x21914
<Blob 0x22086 [18] @> Δ-18 {[«18""»]}
<MI 22096 BRA 0x21cfe> {[«18""»]}
<POP 2209a-220ae Naked> Σ0 Δ-18 →0x21cfe ←0x21914
<Blob 0x2209a [18] @> Δ-18 {[«18""»]}
<MI 220aa BRA 0x21cfe> {[«18""»]}
<POP 220ae-220c2 Naked> Σ0 Δ-16 →0x21b86 ←0x21914
<Blob 0x220ae [4] @> Δ-4 {[«4""»]}
<Blob 0x220b2 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x220b6 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x220ba [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 220be BRA 0x21b86> {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 220c2-220d0 Naked> Σ0 Δ-26 →0x22058 ←0x21914
<Blob 0x220c2 [26] @> Δ-26 {[«26""»]}
<MI 220ce BRA 0x22058> {[«26""»]}
<POP 220d0-220e6 Naked> Σ0 Δ-28 →0x21ca4 ←0x21914
<Blob 0x220d0 [28] @> Δ-28 {[«28""»]}
<MI 220e2 BRA 0x21ca4> {[«28""»]}
<POP 220e6-220fa Naked> Σ0 Δ-18 →0x21cfe ←0x21914
<Blob 0x220e6 [18] @> Δ-18 {[«18""»]}
<MI 220f6 BRA 0x21cfe> {[«18""»]}
<POP 220fa-2210a Naked> Σ0 Δ-18 →0x22284 ←0x21914
<Blob 0x220fa [18] @> Δ-18 {[«18""»]}
<MI 22106 BRA 0x22284> {[«18""»]}
<POP 2210a-22120 Naked> Σ0 Δ-24 →0x21eb6 ←0x21914
<Blob 0x2210a [24] @> Δ-24 {[«24""»]}
<MI 2211c BRA 0x21eb6> {[«24""»]}
<POP 22120-22134 Naked> Σ0 Δ-26 →0x21bdc ←0x21914
<Blob 0x22120 [26] @> Δ-26 {[«26""»]}
<MI 22130 BRA 0x21bdc> {[«26""»]}
<POP 22134-22144 Naked> Σ0 Δ-24 →0x21d4e ←0x21914
<Blob 0x22134 [24] @> Δ-24 {[«24""»]}
<MI 22140 BRA 0x21d4e> {[«24""»]}
<POP 22144-22154 Naked> Σ0 Δ-28 →0x22004 ←0x21914
<Blob 0x22144 [28] @> Δ-28 {[«28""»]}
<MI 22150 BRA 0x22004> {[«28""»]}
<POP 22154-22164 Naked> Σ0 Δ-24 →0x21d4e ←0x21914
<Blob 0x22154 [24] @> Δ-24 {[«24""»]}
<MI 22160 BRA 0x21d4e> {[«24""»]}
<POP 22164-22178 Naked> Σ0 Δ-22 →0x21af8 ←0x21914
<Blob 0x22164 [22] @> Δ-22 {[«22""»]}
<MI 22174 BRA 0x21af8> {[«22""»]}
<POP 22178-2218c Naked> Σ0 Δ-22 →0x21af8 ←0x21914
<Blob 0x22178 [22] @> Δ-22 {[«22""»]}
<MI 22188 BRA 0x21af8> {[«22""»]}
<POP 2218c-2219c Naked> Σ0 Δ-24 →0x21d4e ←0x21914
<Blob 0x2218c [24] @> Δ-24 {[«24""»]}
<MI 22198 BRA 0x21d4e> {[«24""»]}
<POP 2219c-221ac Naked> Σ0 Δ-18 →0x22284 ←0x21914
<Blob 0x2219c [18] @> Δ-18 {[«18""»]}
<MI 221a8 BRA 0x22284> {[«18""»]}
<POP 221ac-221d8 Naked> Σ0 →0x22296 ←0x21914
<Blob 0x221ac [48] @> Δ-48 {[«48""»]}
<POP 221be-221c0 StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x221c0 47> {[«48""»]|[$$Filter/regulator, pump, servo-control PWA fault]}
<MI 221ce MOVEA.L (A7)+,A4> Δ+4 {[«48""»]}
<POP 221d0-221d4 StackAdj> Δ+48 {}
<MI 221d4 BRA 0x22296> {}
<POP 221d8-221e8 Naked> Σ0 Δ-50 →0x21f98 ←0x21914
<Blob 0x221d8 [50] @> Δ-50 {[«50""»]}
<MI 221e4 BRA 0x21f98> {[«50""»]}
<POP 221e8-221f8 Naked> Σ0 Δ-18 →0x22284 ←0x21914
<Blob 0x221e8 [18] @> Δ-18 {[«18""»]}
<MI 221f4 BRA 0x22284> {[«18""»]}
<POP 221f8-22222 Naked> Σ0 →0x22296 ←0x21914
<Blob 0x221f8 [52] @> Δ-52 {[«52""»]}
<POP 2220a-2220c StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x2220c 51> {[«52""»]|[$$Formatter interrupt received while test in progress]}
<MI 2221a MOVEA.L (A7)+,A4> Δ+4 {[«52""»]}
<POP 2221c-22220 StackAdj> Δ+52 {}
<MI 22220 BRA 0x22296> {}
<POP 22222-22236 Naked> Σ0 Δ-16 →0x21b86 ←0x21914
<Blob 0x22222 [4] @> Δ-4 {[«4""»]}
<Blob 0x22226 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2222a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x2222e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 22232 BRA 0x21b86> {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 22236-22252 Naked> Σ0 Δ-56 →0x21f7e ←0x21914
<Blob 0x22236 [44] @> Δ-44 {[«44""»]}
<POP 22242-22244 StackAdj> Δ-4 {[«44""»]|[-4-]}
<Pointer.sp 0x22244 4> Δ-4 {[«44""»]|[-4-]|[^^4]}
<Const 0x22248 0x1.2> Δ-2 {[«44""»]|[-4-]|[^^4]|[#1]}
<Const 0x2224a 0x2c.2> Δ-2 {[«44""»]|[-4-]|[^^4]|[#1]|[#44]}
<MI 2224e BRA 0x21f7e> {[«44""»]|[-4-]|[^^4]|[#1]|[#44]}
<POP 22252-22262 Naked> Σ0 Δ-24 →0x21d4e ←0x21914
<Blob 0x22252 [24] @> Δ-24 {[«24""»]}
<MI 2225e BRA 0x21d4e> {[«24""»]}
<POP 22262-22278 Naked> Σ0 Δ-24 →0x21eb6 ←0x21914
<Blob 0x22262 [24] @> Δ-24 {[«24""»]}
<MI 22274 BRA 0x21eb6> {[«24""»]}
<POP 22278-22284 Naked> Σ0 Δ-18 ↓ ←0x21908 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914 ←0x21914
<Blob 0x22278 [18] @> Δ-18 {[«18""»]}
<POP 22284-2228e Naked> Σ-18 Δ-12 ↓ ←0x21b94 ←0x21bf4 ←0x21cde ←0x220fa ←0x2219c ←0x221e8
<POP 22284-22286 StackAdj> Δ-4 {[-22-]}
<Pointer.sp 0x22286 4> Δ-4 {[-22-]|[^^4]}
<Const 0x2228a 0x1.2> Δ-2 {[-22-]|[^^4]|[#1]}
<Const 0x2228c 0x12.2> Δ-2 {[-22-]|[^^4]|[#1]|[#18]}
<POP 2228e-22296 Naked> Σ-30 Δ+30 ↓ ←0x21cfe
<Call 0x2228e 0x102c4> {[-30-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22290-22292 StackAdj> Δ+8 {[-22-]}
<MI 22292 MOVEA.L (A7)+,A4> Δ+4 {[-18-]}
<POP 22294-22296 StackAdj> Δ+18 {}
<POP 22296-222c8 Naked> Σ0 ↓ ←0x21a6e ←0x21a96 ←0x21aba ←0x21ac8 ←0x21b04 ←0x21b6a ←0x21be8 ←0x21c22 ←0x21c3c ←0x21cb0 ←0x21d5a ←0x21d7c ←0x21e58 ←0x21e7e ←0x21f7e ←0x21f98 ←0x21fd0 ←0x221ac ←0x221f8
<Blob 0x22296 [2] @> Δ-2 {[«2""»]}
<POP 2229a-2229c StackAdj> Δ-4 {[«2""»]|[-4-]}
<MI 2229c MOVE.L A4,-(A7)> Δ-4 {[«2""»]|[-4-]|[4, 'A4']}
<POP 2229e-222a0 StackAdj> Δ-4 {[«2""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x222a0 2> {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]}
<POP 222ac-222ae StackAdj> Δ-6 {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]|[-6-]}
<MI 222ae MOVE.W (A6+0x8),(A7)> {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]|[-4-]|[2, '(A6+0x8)']}
<Call 0x222b2 0x20db0> {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]|[-4-]|[2, '(A6+0x8)']}
<POP 222b6-222b8 StackAdj> Δ+2 {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]|[-4-]}
<Call 0x222b8 0x102d4> {[«2""»]|[-4-]|[4, 'A4']|[$$_ ]|[-4-]}
StringCat3(a, b, c : String) : String
<POP 222be-222c0 StackAdj> Δ+12 {[«2""»]|[-4-]}
<Call 0x222c0 0x103e0> {[«2""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 222c6-222c8 StackAdj> Δ+6 {}
<POP 222c8-222d0 Epilogue> Σ0
@ 222d0
START
<POP 222d0--0001 Body>
<POP 222d0-222da Prologue> Σ0
<POP 222da-222f6 RegCacheLoad> Σ0 ↓
<POP 222f6-22304 Naked> Σ0 ↓
<Call 0x222f6 0x10398> {}
FSCALL_10398
<Const 0x222fc 0x225a8.4> Δ-4 {[##140712]}
<Call 0x222fe 0x21816> {[##140712]}
<POP 22302-22304 StackAdj> Δ+4 {}
<POP 22304-2233c Naked> Σ0 ↓ →0x22380 ←0x22380
<Const 0x22304 0x225a4.4> Δ-4 {[##140708]}
<Const 0x22306 0x225a6.4> Δ-4 {[##140708]|[##140710]}
<Call 0x22308 0x212e8> {[##140708]|[##140710]}
<POP 2230c-2230e StackAdj> Δ+6 {[-2-]}
<POP 2230e-2230f StackAdj> Δ+2 {}
<Blob 0x2230f [2] 0x225a8> Δ-2 {[«2»]}
<MI 22310 MOVE.W 0x225a4,D0> {[«2»]}
<POP 0x22312 LimitCheck 0x0 ≤ D0 ≤ 0xff> {[«2»]}
<MI 22314 MOVE.W D0,-(A7)> Δ-2 {[«2»]|[2, 'D0']}
<MI 22316 MOVE.W 0x225a6,D0> {[«2»]|[2, 'D0']}
<POP 0x22318 LimitCheck 0x0 ≤ D0 ≤ 0xff> {[«2»]|[2, 'D0']}
<MI 2231a MOVE.W D0,-(A7)> Δ-2 {[«2»]|[2, 'D0']|[2, 'D0']}
<Const 0x2231c 0x225aa.4> Δ-4 {[«2»]|[2, 'D0']|[2, 'D0']|[##140714]}
<Const 0x2231e 0x225ac.4> Δ-4 {[«2»]|[2, 'D0']|[2, 'D0']|[##140714]|[##140716]}
<Call 0x22324 0x217b2> {[«2»]|[2, 'D0']|[2, 'D0']|[##140714]|[##140716]}
<POP 22328-2232c StackAdj> Δ+14 {}
<MI 2232c MOVE.W 0x225aa,D0> {}
<POP 0x2232e LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22330 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Call 0x22332 0x218de> {[2, 'D0']}
<POP 22336-22338 StackAdj> Δ+2 {}
<MI 22338 TST.W 0x225aa> {}
<MI 2233a BEQ 0x22380> {}
<POP 2233c-22380 Naked> Σ0 ↓
<Blob 0x2233c [22] @> Δ-22 {[«22""»]}
<POP 22348-2234a StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x2234a 22> {[«22""»]|[-4-]|[$$Sub-completion code :_]}
<POP 2235c-2235e StackAdj> Δ-4 {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]}
<MI 2235e MOVE.W 0x225ac,D0> {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]}
<POP 0x22364 LimitCheck 0x0 ≤ D0 ≤ 0xff> {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]}
<MI 22366 MOVE.W D0,-(A7)> Δ-2 {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]|[2, 'D0']}
<Call 0x22368 0x20db0> {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]|[2, 'D0']}
<POP 2236c-2236e StackAdj> Δ+2 {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]}
<Call 0x2236e 0x102d0> {[«22""»]|[-4-]|[$$Sub-completion code :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 22374-22376 StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x22376 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2237c-22380 StackAdj> Δ+26 {}
<POP 22380-22382 Naked> Σ0 →0x22304 ←0x22304
<MI 22380 BRA 0x22304> {}
@ 223a4
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 223a4-2240c Body>
<POP 223a4-223ba Prologue> Σ0 ↓
<POP 223ba-22404 Naked> Σ0 ↓
<Blob 0x223ba [14] @> Δ-14 {[«14""»]}
<Const 0x223c6 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 223ca-223cc StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x223cc 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 223de-223e0 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 223e0 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 223e4 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 223e6 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 223e8 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x223ea 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 223f0-223f2 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x223f2 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 223f8-223fa StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x223fa 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 22400-22404 StackAdj> Δ+20 {}
<POP 22404-2240c Epilogue> Σ0
@ 22460
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 22460-2259c Body>
<POP 22460-22476 Prologue> Σ0 ↓
<POP 22476-2248c RegCacheLoad> Σ0 ↓
<POP 2248c-224ec Naked> Σ0 ↓ →0x22534
<Call 0x2248c 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x22492 [18] @> Δ-18 {[«18""»]}
<POP 2249e-224a0 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x224a0 18> {[«18""»]|[$$Experiment error :]}
<Call 0x224ac 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 224ae-224af StackAdj> Δ+22 ↓ {}
<Blob 0x224af [14] @> Δ-14 {[«14""»]}
<POP 224be-224c0 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x224c0 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 224ca-224cc StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 224cc MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x224d0 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 224d6-224d8 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x224d8 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 224de-224e0 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x224e0 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 224e2-224e4 StackAdj> Δ+18 {}
<MI 224e4 MOVEA.L (A6+0xa),A0> {}
<MI 224e8 CMPA.W #0x01,A0> {}
<MI 224ea BEQ 0x22534> {}
<POP 224ec-22534 Naked> Σ0 ↓
<Blob 0x224ec [14] @> Δ-14 {[«14""»]}
<Blob 0x224fc [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 2250c-2250e StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x2250e 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 22518-2251a StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x2251a> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x2251a 12> Δ-4
<Const 0x2251e 0x1.2> Δ-2
<Const 0x22520 0x1e.2> Δ-2
<Call 0x22522 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22524-22526 StackAdj> Δ+8
<Call 0x22526 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 2252c-2252e StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x2252e 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22530-22534 StackAdj> Δ+48 {}
<POP 22534-22594 Naked> Σ0 ↓ ←0x2248c
<Blob 0x22534 [14] @> Δ-14 {[«14""»]}
<POP 22544-22546 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x22546 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 22550-22552 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 22552 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x22556 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 2255c-2255e StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x2255e 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 22564-22566 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x22566 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22568-22569 StackAdj> Δ+18 ↓ {}
<Blob 0x22569 [24] @> Δ-24 {[«24""»]}
<Const 0x22578 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 2257c-2257e StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x2257e 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x2258c 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 22592-22594 StackAdj> Δ+30 {}
<POP 22594-2259c Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.8e5c67880d6147da 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 22 d0 | " | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 25 c0 | % | .PTR 0x225c0 00020010 code.end: 00020010 00 02 25 9c | % | .PTR 0x2259c 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 23 a4 | # | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 24 60 | $` | .CODE EXP_FAIL 00020020 00 00 00 00 | | .CONST 0x00000000 00020024 exp_init_done: 00020024 00 | | .CONST 0x00 00020025 00 | | .CONST 0x00 00020026 00 00 | | .CONST 0x0000 00020028 00 00 | | .CONST 0x0000 0002002a 00 00 | | .XXX[0x2] 0002002c 00 00 | | .CONST 0x0000 0002002e 00 00 | | .CONST 0x0000 00020030 00 00 | | .CONST 0x0000 00020032 00 00 00 00 00 00 | | .XXX[0x6] 00020038 00 00 00 00 00 00 00 00 | | .BLANK 00[0xb0] 000200e8 00 00 00 00 | | .XXX[0x4] 000200ec 00 00 00 00 | | .PTR 0x0 000200f0 is_open_ERROR_LOG: 000200f0 00 | | .CONST 0x0 000200f1 write_error_ERROR_LOG: 000200f1 00 | | .CONST 0x0 000200f2 00 00 00 00 | | .CONST 0x00000000 000200f6 00 00 00 00 | | .CONST 0x00000000 000200fa 00 | | .CONST 0x00 000200fb 00 | | .CONST 0x00 000200fc file_ERROR_LOG: 000200fc 00 00 00 00 | | .CONST 0x00000000 00020100 00 00 00 00 | | .CONST 0x00000000 00020104 00 00 | | .CONST 0x0000 00020106 00 00 | | .CONST 0x0000 00020108 somekindoffsflag: 00020108 00 | | .CONST 0x00 00020109 00 | | .CONST 0x00 0002010a 40 28 23 29 53 41 |@(#)SA | .XXX[0x6] 00020110 4d 2c 31 2e 31 2c 39 32 |M,1.1,92| .XXX[0x18] 00020118 2f 30 37 2f 30 39 2c 31 |/07/09,1| 00020120 32 3a 30 30 3a 30 30 5c |2:00:00\| 00020128 45 6e 74 65 72 20 6e 75 |Enter nu| .TXT 'Enter number in range [0 .. FF] ' 00020148 45 6e 74 65 72 20 68 65 |Enter he| .TXT 'Enter hexadecimal characters only.' 0002016a 54 65 73 74 20 77 69 6c |Test wil| .TXT 'Test will loop. ' 0002017a 50 6c 65 61 73 65 20 65 |Please e| .TXT 'Please enter test option :_ ' 00020196 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => Halt if read or write errors exceed limit specified, ' 000201d4 20 20 20 20 20 20 20 20 | | .TXT ' halt on completion of test.' 000201f8 20 20 20 20 31 20 3d 3e | 1 =>| .TXT ' 1 => Loop on test, halt if read or write errors exceed' 00020232 20 20 20 20 20 20 20 20 | | .TXT ' limit specifed on any given pass.' 0002025c 20 20 20 20 32 20 3d 3e | 2 =>| .TXT ' 2 => Loop on test, bypass read or write error halts.' 00020294 4f 70 74 69 6f 6e 73 20 |Options | .TXT 'Options are : ' 000202a2 50 6c 65 61 73 65 20 65 |Please e| .TXT 'Please enter test option :_ ' 000202be 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => Use all ones pattern.' 000202dc 20 20 20 20 31 20 3d 3e | 1 =>| .TXT ' 1 => Use one-half frequency pattern.' 00020304 20 20 20 20 32 20 3d 3e | 2 =>| .TXT ' 2 => Use one-third frequency pattern. ' 0002032e 4f 70 74 69 6f 6e 73 20 |Options | .TXT 'Options are : ' 0002033c 50 6c 65 61 |Plea | .XXX[0x4] 00020340 73 65 20 65 6e 74 65 72 |se enter| .XXX[0x18] 00020348 20 74 65 73 74 20 6f 70 | test op| 00020350 74 69 6f 6e 20 3a 5f 20 |tion :_ | 00020358 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => 25 ips speed.' 0002036e 20 20 20 20 31 20 3d 3e | 1 =>| .TXT ' 1 => 12.5 ips speed.' 00020386 4f 70 74 69 6f 6e 73 20 |Options | .TXT 'Options are : ' 00020394 45 6e 74 65 72 20 74 65 |Enter te| .TXT 'Enter test number :_' 000203a8 54 65 73 74 5f 20 |Test_ | .TXT 'Test_ ' 000203ae 20 69 73 20 6e 6f 74 20 | is not | .TXT ' is not supported.' 000203c0 45 72 72 6f 72 20 6f 6e |Error on| .TXT 'Error on status read during diagnostic execution. ' 000203f2 45 72 72 6f 72 20 77 68 |Error wh| .TXT 'Error when issuing load/on-line command.' 0002041a 45 72 72 6f 72 20 77 68 |Error wh| .TXT 'Error when issuing diagnostic command.' 00020440 45 72 72 6f 72 20 72 65 |Error re| .TXT 'Error reading sense data! ' 0002045a 45 6e 74 65 72 20 53 54 |Enter ST| .TXT 'Enter STU unit number :_' 00020472 55 6e 69 74 20 64 6f 65 |Unit doe| .TXT 'Unit does not exist.' 00020486 54 65 73 74 20 73 75 63 |Test suc| .TXT 'Test successful ' 00020496 52 65 61 64 20 65 6e 76 |Read env| .TXT 'Read envelope fault ' 000204aa 52 65 61 64 20 61 6d 70 |Read amp| .TXT 'Read amplitude tolerance fault' 000204c8 49 64 20 66 |Id f | .TXT 'Id f' 000204cc 61 75 6c 74 |ault | .TXT 'ault' 000204d0 4c 6f 77 20 73 70 65 65 |Low spee| .TXT 'Low speed write error ' 000204e6 4c 6f 77 20 73 70 65 65 |Low spee| .TXT 'Low speed read error' 000204fa 48 69 67 68 20 73 70 65 |High spe| .TXT 'High speed write error' 00020510 48 69 67 68 20 73 70 65 |High spe| .TXT 'High speed read error ' 00020526 4e 6f 69 73 |Nois | .TXT 'Nois' 0002052a 65 20 69 6e |e in | .TXT 'e in' 0002052e 20 49 42 47 | IBG | .TXT ' IBG' 00020532 48 61 72 64 |Hard | .TXT 'Hard' 00020536 77 61 72 65 |ware | .TXT 'ware' 0002053a 20 66 61 69 | fai | .TXT ' fai' 0002053e 6c 75 72 65 |lure | .TXT 'lure' 00020542 4f 70 65 72 61 74 6f 72 |Operator| .TXT 'Operator door open' 00020554 41 62 73 65 6e 63 65 20 |Absence | .TXT 'Absence of tape ' 00020564 48 75 62 20 6e 6f 74 20 |Hub not | .TXT 'Hub not latched ' 00020574 54 61 70 65 20 74 68 72 |Tape thr| .TXT 'Tape threaded incorrectly ' 0002058e 42 4f 54 20 6c 6f 63 61 |BOT loca| .TXT 'BOT location fault' 000205a0 4c 6f 61 64 2f 55 6e 6c |Load/Unl| .TXT 'Load/Unload aborted by operator ' 000205c0 44 69 61 67 6e 6f 73 74 |Diagnost| .TXT 'Diagnostic tape is write protected' 000205e2 52 61 6e 20 6f 66 66 20 |Ran off | .TXT 'Ran off end of tape ' 000205f6 54 61 70 65 20 61 6c 72 |Tape alr| .TXT 'Tape already loaded ' 0002060a 46 69 6c 65 20 74 65 6e |File ten| .TXT 'File tension sensor fault ' 00020624 54 61 6b 65 75 70 20 74 |Takeup t| .TXT 'Takeup tension sensor fault ' 00020640 55 6e 61 62 6c 65 20 74 |Unable t| .TXT 'Unable to tension tape' 00020656 55 6e 61 62 6c 65 20 74 |Unable t| .TXT 'Unable to re-establish tension' 00020674 48 69 67 68 20 74 65 6e |High ten| .TXT 'High tension fault' 00020686 4c 6f 77 20 74 65 6e 73 |Low tens| .TXT 'Low tension fault ' 00020698 53 65 72 76 6f 20 66 61 |Servo fa| .TXT 'Servo fault ' 000206a4 4e 6f 20 63 6f 61 72 73 |No coars| .TXT 'No coarse tachs ' 000206b4 54 65 6e 73 69 6f 6e 20 |Tension | .TXT 'Tension recovery problem' 000206cc 41 62 73 65 6e 63 65 20 |Absence | .TXT 'Absence of tape ' 000206dc 55 70 20 72 61 6d 70 20 |Up ramp | .TXT 'Up ramp fault ' 000206ea 44 6f 77 6e 20 72 61 6d |Down ram| .TXT 'Down ramp fault ' 000206fa 53 74 6f 70 6c 6f 63 6b |Stoplock| .TXT 'Stoplock over-run ' 0002070c 54 61 70 65 20 70 6f 73 |Tape pos| .TXT 'Tape position fault ' 00020720 42 4f 54 20 70 6f 73 69 |BOT posi| .TXT 'BOT positioning fault ' 00020736 50 6f 73 69 74 69 6f 6e |Position| .TXT 'Positioning fault ' 00020748 53 70 65 65 64 20 66 61 |Speed fa| .TXT 'Speed fault ' 00020754 53 74 61 63 6b 20 6f 76 |Stack ov| .TXT 'Stack overflow fault' 00020768 56 65 6c 6f 63 69 74 79 |Velocity| .TXT 'Velocity correction fault ' 00020782 53 54 54 20 69 6c 6c 6f |STT illo| .TXT 'STT illogical fault ' 00020796 49 72 72 65 63 6f 76 65 |Irrecove| .TXT 'Irrecoverable device healthcheck fault' 000207bc 52 65 63 6f 76 65 72 61 |Recovera| .TXT 'Recoverable device healthcheck fault' 000207e0 53 70 65 65 64 20 63 61 |Speed ca| .TXT 'Speed calculation fault ' 000207f8 41 72 69 74 |Arit | .TXT 'Arit' 000207fc 68 6d 65 74 |hmet | .TXT 'hmet' 00020800 69 63 20 66 |ic f | .TXT 'ic f' 00020804 61 75 6c 74 |ault | .TXT 'ault' 00020808 45 72 61 73 65 2f 57 72 |Erase/Wr| .TXT 'Erase/Write current fault ' 00020822 49 6c 6c 6f 67 69 63 61 |Illogica| .TXT 'Illogical fault ' 00020832 50 72 6f 63 65 73 73 6f |Processo| .TXT 'Processor communication fault ' 00020850 49 72 72 65 63 6f 76 65 |Irrecove| .TXT 'Irrecoverable operator panel fault' 00020872 52 65 63 6f 76 65 72 61 |Recovera| .TXT 'Recoverable operator panel fault' 00020892 46 6f 72 6d 61 74 74 65 |Formatte| .TXT 'Formatter write board health check' 000208b4 46 6f 72 6d 61 74 74 65 |Formatte| .TXT 'Formatter read/write interface health check ' 000208e0 46 6f 72 6d 61 74 74 65 |Formatte| .TXT 'Formatter read board health check in data loopback' 00020912 46 6f 72 6d 61 74 74 65 |Formatte| .TXT 'Formatter read board health check fault ' 0002093a 46 6f 72 6d 61 74 74 65 |Formatte| .TXT 'Formatter/Adaptor interface health check' 00020962 49 6e 74 65 72 66 61 63 |Interfac| .TXT 'Interface health check fault' 0002097e 49 6e 74 65 72 66 61 63 |Interfac| .TXT 'Interface checksum fault' 00020996 54 61 70 65 20 6e 6f 74 |Tape not| .TXT 'Tape not loaded fault ' 000209ac 54 61 70 65 20 6c 6f 61 |Tape loa| .TXT 'Tape loaded fault ' 000209be 54 61 70 65 20 77 72 69 |Tape wri| .TXT 'Tape write protected fault' 000209d8 42 61 63 6b 75 70 20 6d |Backup m| .TXT 'Backup memory is not write enabled' 000209fa 42 61 63 6b 75 70 20 6d |Backup m| .TXT 'Backup memory is not write enabled' 00020a1c 42 61 64 20 62 61 63 6b |Bad back| .TXT 'Bad backup memory ' 00020a2e 42 61 64 20 62 61 63 6b |Bad back| .TXT 'Bad backup memory ' 00020a40 45 4f 54 20 |EOT | .TXT 'EOT ' 00020a44 6f 6e 20 45 |on E | .TXT 'on E' 00020a48 47 43 20 66 |GC f | .TXT 'GC f' 00020a4c 61 75 6c 74 |ault | .TXT 'ault' 00020a50 45 47 43 20 6c 6f 77 20 |EGC low | .TXT 'EGC low speed set-up fault' 00020a6a 45 47 43 20 68 69 67 68 |EGC high| .TXT 'EGC high speed set-up fault ' 00020a86 52 65 66 72 65 73 68 20 |Refresh | .TXT 'Refresh DAC fault ' 00020a98 54 55 20 70 6f 77 65 72 |TU power| .TXT 'TU power amp fault' 00020aaa 54 61 6b 65 2d 75 70 20 |Take-up | .TXT 'Take-up power amp fault ' 00020ac2 44 65 6d 61 6e 64 20 76 |Demand v| .TXT 'Demand velocity DAC fault ' 00020adc 54 61 6b 65 2d 75 70 20 |Take-up | .TXT 'Take-up motor/tach fault' 00020af4 56 65 6c 6f 63 69 74 79 |Velocity| .TXT 'Velocity feedback loop fault' 00020b10 54 61 6b 65 2d 75 70 20 |Take-up | .TXT 'Take-up comparator fault' 00020b28 46 69 6c 65 20 63 6f 6d |File com| .TXT 'File comparator fault ' 00020b3e 46 69 6c 65 20 73 65 6e |File sen| .TXT 'File sensor - 0 fault ' 00020b54 54 61 6b 65 2d 75 70 20 |Take-up | .TXT 'Take-up sensor - 0 fault' 00020b6c 50 75 6d 70 20 66 61 69 |Pump fai| .TXT 'Pump failure fault' 00020b7e 46 69 6c 74 65 72 2f 72 |Filter/r| .TXT 'Filter/regulator, pump, servo-control PWA fault ' 00020bae 56 65 6c 6f 63 69 74 79 |Velocity| .TXT 'Velocity correction multiplier factor out of range' 00020be0 54 61 70 65 20 70 72 65 |Tape pre| .TXT 'Tape present fault' 00020bf2 46 6f 72 6d 61 74 74 65 |Formatte| .TXT 'Formatter interrupt received while test in progress ' 00020c26 53 65 72 76 |Serv | .TXT 'Serv' 00020c2a 6f 20 6c 6f |o lo | .TXT 'o lo' 00020c2e 6f 70 20 66 |op f | .TXT 'op f' 00020c32 61 75 6c 74 |ault | .TXT 'ault' 00020c36 53 65 72 76 6f 2d 63 6f |Servo-co| .TXT 'Servo-control PWA, sensor intermittent fault' 00020c62 54 61 6b 65 2d 75 70 20 |Take-up | .TXT 'Take-up motor/tach fault' 00020c7a 41 74 74 65 6d 70 74 20 |Attempt | .TXT 'Attempt to loop on test ' 00020c92 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown fault code' 00020ca4 5f 20 |_ | .TXT '_ ' 00020ca6 53 75 62 2d 63 6f 6d 70 |Sub-comp| .TXT 'Sub-completion code :_' 00020cbc 0e 00 ff ff | | .XXX[0x4] 00020cc0 7f ff 9f ff ff 00 fc ff | | .XXX[0x20] 00020cc8 07 00 00 00 00 00 82 00 | | 00020cd0 00 00 00 00 00 00 00 00 | | 00020cd8 00 00 00 00 00 00 f0 03 | | 00020ce0 00 00 00 00 00 00 00 00 | | .BLANK 00[0x20] 00020d00 7f ff 05 00 00 00 e0 ff | | .XXX[0x10] 00020d08 01 00 00 00 00 00 02 00 | | 00020d10 00 00 00 00 00 00 00 00 | | .BLANK 00[0x10] 00020d20 00 00 00 02 01 00 0c 00 | | .XXX[0x8] 00020d28 00 00 00 00 00 00 00 00 | | .BLANK 00[0x10] 00020d38 00 00 00 00 00 00 0f 00 | | .XXX[0x8] 00020d40 00 00 00 00 00 00 00 00 | | .BLANK 00[0x18] 00020d58 00 00 00 00 4e 56 ff e6 | NV | .XXX[0x58] 00020d60 bf d5 62 06 44 fc 00 02 | b D | 00020d68 4e 76 de fc 00 14 48 e7 |Nv H | 00020d70 83 00 7e 00 7c 00 42 80 | ~ | B | 00020d78 30 07 e3 80 0c 80 00 00 |0 | 00020d80 ff ff 63 02 4e 4f 3e 00 | c NO> | 00020d88 30 2e 00 08 02 40 00 01 |0. @ | 00020d90 8e 40 e2 ee 00 08 52 86 | @ R | 00020d98 0c 86 00 00 00 07 6f d6 | o | 00020da0 42 80 30 07 2d 40 00 0a |B 0 -@ | 00020da8 4c df 00 c1 4e 5e 4e 75 |L N^Nu| 00020db0 ; -------------------------------------------------------------------------------------- 00020db0 ; OMSI PASCAL Function 00020db0 ; <LVAR 0x00a 4(w)> 00020db0 ; <LVAR 0x008 2(r)> 00020db0 ; <LVAR -0x00a @ 4(r)> 00020db0 ; -------------------------------------------------------------------------------------- 00020db0 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00020db4 bf d5 | | CMPA.L (A5),A7 00020db6 62 06 |b | BHI 0x20dbe 00020db8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020dbc 4e 76 |Nv | TRAPV 00020dbe de fc 00 2e | . | ADDA.W #0x2e,A7 00020dc2 48 e7 ff 80 |H | MOVEM.L A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020dc6 41 ee ff f6 |A | LEA.L (A6-0xa),A0 00020dca 22 3c 00 00 00 ff |"< | MOVE.L #0xff,D1 00020dd0 74 09 |t | MOVEQ.L #0x09,D2 00020dd2 76 30 |v0 | MOVEQ.L #0x30,D3 00020dd4 78 0a |x | MOVEQ.L #0x0a,D4 00020dd6 7a 41 |zA | MOVEQ.L #0x41,D5 00020dd8 48 50 |HP | PEA.L (A0) 00020dda 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020de0 58 4f |XO | ADDQ.L #0x4,A7 00020de2 3c 2e 00 08 |<. | MOVE.W (A6+0x8),D6 00020de6 02 46 00 f0 | F | ANDI.W #0x00f0,D6 00020dea e8 4e | N | LSR.W #0x4,D6 00020dec bc 42 | B | CMP.W D2,D6 00020dee 62 0e |b | BHI 0x20dfe 00020df0 42 80 |B | CLR.L D0 00020df2 30 06 |0 | MOVE.W D6,D0 00020df4 d0 83 | | ADD.L D3,D0 00020df6 b0 81 | | CMP.L D1,D0 00020df8 63 02 |c | BLS 0x20dfc 00020dfa 4e 4f |NO | TRAP #15 00020dfc 60 0e |` | BRA 0x20e0c 00020dfe 42 80 |B | CLR.L D0 00020e00 30 06 |0 | MOVE.W D6,D0 00020e02 90 84 | | SUB.L D4,D0 00020e04 d0 85 | | ADD.L D5,D0 00020e06 b0 81 | | CMP.L D1,D0 00020e08 63 02 |c | BLS 0x20e0c 00020e0a 4e 4f |NO | TRAP #15 00020e0c 1e 00 | | MOVE.B D0,D7 00020e0e 2f 10 |/ | MOVE.L (A0),-(A7) 00020e10 1f 07 | | MOVE.B D7,-(A7) 00020e12 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020e18 5c 4f |\O | ADDQ.L #0x6,A7 00020e1a 3c 2e 00 08 |<. | MOVE.W (A6+0x8),D6 00020e1e 02 46 00 0f | F | ANDI.W #0x000f,D6 00020e22 bc 42 | B | CMP.W D2,D6 00020e24 62 0e |b | BHI 0x20e34 00020e26 42 80 |B | CLR.L D0 00020e28 30 06 |0 | MOVE.W D6,D0 00020e2a d0 83 | | ADD.L D3,D0 00020e2c b0 81 | | CMP.L D1,D0 00020e2e 63 02 |c | BLS 0x20e32 00020e30 4e 4f |NO | TRAP #15 00020e32 60 0e |` | BRA 0x20e42 00020e34 42 80 |B | CLR.L D0 00020e36 30 06 |0 | MOVE.W D6,D0 00020e38 90 84 | | SUB.L D4,D0 00020e3a d0 85 | | ADD.L D5,D0 00020e3c b0 81 | | CMP.L D1,D0 00020e3e 63 02 |c | BLS 0x20e42 00020e40 4e 4f |NO | TRAP #15 00020e42 1e 00 | | MOVE.B D0,D7 00020e44 2f 10 |/ | MOVE.L (A0),-(A7) 00020e46 1f 07 | | MOVE.B D7,-(A7) 00020e48 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020e4e 5c 4f |\O | ADDQ.L #0x6,A7 00020e50 2d 50 00 0a |-P | MOVE.L (A0),(A6+0xa) 00020e54 4c df 01 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0 00020e58 4e 5e |N^ | UNLK A6 00020e5a 4e 75 |Nu | RTS 00020e5c ; -------------------------------------------------------------------------------------- 00020e5c ; OMSI PASCAL Function 00020e5c ; <LVAR 0x00c 2(w)> 00020e5c ; <LVAR 0x008 @ 4(r)> 00020e5c ; <LVAR -0x010 4(rw)> 00020e5c ; -------------------------------------------------------------------------------------- 00020e5c 4e 56 ff 84 |NV | LINK.W A6,#0xff84 00020e60 bf d5 | | CMPA.L (A5),A7 00020e62 62 06 |b | BHI 0x20e6a 00020e64 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020e68 4e 76 |Nv | TRAPV 00020e6a de fc 00 6c | l | ADDA.W #0x6c,A7 00020e6e 48 e7 ff c0 |H | MOVEM.L A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020e72 74 01 |t | MOVEQ.L #0x01,D2 00020e74 76 30 |v0 | MOVEQ.L #0x30,D3 00020e76 78 41 |xA | MOVEQ.L #0x41,D4 00020e78 7e 00 |~ | MOVEQ.L #0x00,D7 00020e7a 9e fc 00 0c | | SUBA.W #0xc,A7 00020e7e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020e82 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020e88 58 4f |XO | ADDQ.L #0x4,A7 00020e8a 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00020e90 58 4f |XO | ADDQ.L #0x4,A7 00020e92 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00020e98 58 4f |XO | ADDQ.L #0x4,A7 00020e9a 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00020e9e 7c 00 || | MOVEQ.L #0x00,D6 00020ea0 20 6e ff f0 | n | MOVEA.L (A6-0x10),A0 00020ea4 2f 08 |/ | MOVE.L A0,-(A7) 00020ea6 30 10 |0 | MOVE.W (A0),D0 00020ea8 48 c0 |H | EXTW.L D0 00020eaa 2f 00 |/ | MOVE.L D0,-(A7) 00020eac 7a 01 |z | MOVEQ.L #0x01,D5 00020eae ba 97 | | CMP.L (A7),D5 00020eb0 6e 00 00 b4 |n | BGT 0x20f66 00020eb4 e9 87 | | ASL.L #0x4,D7 00020eb6 0c 87 00 00 00 ff | | CMPI.L #0x000000ff,D7 00020ebc 6f 34 |o4 | BLE 0x20ef2 00020ebe 9e fc 00 20 | | SUBA.W #0x20,A7 00020ec2 20 4f | O | MOVEA.L A7,A0 00020ec4 43 fa f2 62 |C b | LEA.L 0x20128,A1 00020ec8 70 1e |p | MOVEQ.L #0x1e,D0 00020eca 10 d9 | | MOVE.B (A1)+,(A0)+ 00020ecc 51 c8 ff fc |Q | DBF D0,0x20eca 00020ed0 59 4f |YO | SUBQ.L #0x4,A7 00020ed2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020ed6 3f 02 |? | MOVE.W D2,-(A7) 00020ed8 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00020edc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020ee2 50 4f |PO | ADDQ.L #0x8,A7 00020ee4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020eea de fc 00 24 | $ | ADDA.W #0x24,A7 00020eee 50 4f |PO | ADDQ.L #0x8,A7 00020ef0 60 7a |`z | BRA 0x20f6c 00020ef2 20 05 | | MOVE.L D5,D0 00020ef4 53 80 |S | SUBQ.L #0x1,D0 00020ef6 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00020efc 63 02 |c | BLS 0x20f00 00020efe 4e 4f |NO | TRAP #15 00020f00 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00020f04 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 00020f08 b2 03 | | CMP.B D3,D1 00020f0a 65 12 |e | BCS 0x20f1e 00020f0c 0c 01 00 39 | 9 | CMPI.B #0x39,D1 00020f10 62 0c |b | BHI 0x20f1e 00020f12 42 80 |B | CLR.L D0 00020f14 10 01 | | MOVE.B D1,D0 00020f16 90 43 | C | SUB.W D3,D0 00020f18 48 c0 |H | EXTW.L D0 00020f1a de 80 | | ADD.L D0,D7 00020f1c 60 42 |`B | BRA 0x20f60 00020f1e b2 04 | | CMP.B D4,D1 00020f20 65 12 |e | BCS 0x20f34 00020f22 0c 01 00 46 | F | CMPI.B #0x46,D1 00020f26 62 0c |b | BHI 0x20f34 00020f28 42 80 |B | CLR.L D0 00020f2a 10 01 | | MOVE.B D1,D0 00020f2c 90 44 | D | SUB.W D4,D0 00020f2e 06 40 00 0a | @ | ADDI.W #0x000a,D0 00020f32 60 e4 |` | BRA 0x20f18 00020f34 41 fa f2 34 |A 4 | LEA.L 0x2016a,A0 00020f38 70 10 |p | MOVEQ.L #0x10,D0 00020f3a 3f 20 |? | MOVE.W -(A0),-(A7) 00020f3c 51 c8 ff fc |Q | DBF D0,0x20f3a 00020f40 59 4f |YO | SUBQ.L #0x4,A7 00020f42 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020f46 3f 02 |? | MOVE.W D2,-(A7) 00020f48 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00020f4c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020f52 50 4f |PO | ADDQ.L #0x8,A7 00020f54 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020f5a de fc 00 2e | . | ADDA.W #0x2e,A7 00020f5e 60 0c |` | BRA 0x20f6c 00020f60 52 85 |R | ADDQ.L #0x1,D5 00020f62 68 00 ff 4a |h J | BVC 0x20eae 00020f66 58 4f |XO | ADDQ.L #0x4,A7 00020f68 7c 01 || | MOVEQ.L #0x01,D6 00020f6a 58 4f |XO | ADDQ.L #0x4,A7 00020f6c 4a 06 |J | TST.B D6 00020f6e 67 00 ff 0a |g | BEQ 0x20e7a 00020f72 48 6e 00 08 |Hn | PEA.L (A6+0x8) 00020f76 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020f7c 58 4f |XO | ADDQ.L #0x4,A7 00020f7e 0c 87 00 00 00 ff | | CMPI.L #0x000000ff,D7 00020f84 63 02 |c | BLS 0x20f88 00020f86 4e 4f |NO | TRAP #15 00020f88 3d 47 00 0c |=G | MOVE.W D7,(A6+0xc) 00020f8c 4c df 03 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1 00020f90 4e 5e |N^ | UNLK A6 00020f92 4e 75 |Nu | RTS 00020f94 ; -------------------------------------------------------------------------------------- 00020f94 ; OMSI PASCAL Function 00020f94 ; <LVAR 0x008 4(r)> 00020f94 ; -------------------------------------------------------------------------------------- 00020f94 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00020f98 bf d5 | | CMPA.L (A5),A7 00020f9a 62 06 |b | BHI 0x20fa2 00020f9c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020fa0 4e 76 |Nv | TRAPV 00020fa2 de fc 00 2c | , | ADDA.W #0x2c,A7 00020fa6 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020faa 9e fc 00 10 | | SUBA.W #0x10,A7 00020fae 20 4f | O | MOVEA.L A7,A0 00020fb0 43 fa f1 b8 |C | LEA.L 0x2016a,A1 00020fb4 70 0e |p | MOVEQ.L #0x0e,D0 00020fb6 10 d9 | | MOVE.B (A1)+,(A0)+ 00020fb8 51 c8 ff fc |Q | DBF D0,0x20fb6 00020fbc 59 4f |YO | SUBQ.L #0x4,A7 00020fbe 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020fc2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020fc6 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00020fca 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020fd0 50 4f |PO | ADDQ.L #0x8,A7 00020fd2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020fd8 de fc 00 14 | | ADDA.W #0x14,A7 00020fdc 42 ae 00 08 |B | CLR.L (A6+0x8) 00020fe0 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020fe4 4e 5e |N^ | UNLK A6 00020fe6 4e 75 |Nu | RTS 00020fe8 ; -------------------------------------------------------------------------------------- 00020fe8 ; OMSI PASCAL Function 00020fe8 ; <LVAR 0x008 4(w)> 00020fe8 ; -------------------------------------------------------------------------------------- 00020fe8 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 00020fec bf d5 | | CMPA.L (A5),A7 00020fee 62 06 |b | BHI 0x20ff6 00020ff0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020ff4 4e 76 |Nv | TRAPV 00020ff6 de fc 00 66 | f | ADDA.W #0x66,A7 00020ffa 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7) 00020ffe 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021004 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 0002100a 72 01 |r | MOVEQ.L #0x01,D1 0002100c 9e fc 00 0e | | SUBA.W #0xe,A7 00021010 20 4f | O | MOVEA.L A7,A0 00021012 43 fa f2 80 |C | LEA.L 0x20294,A1 00021016 70 0c |p | MOVEQ.L #0x0c,D0 00021018 10 d9 | | MOVE.B (A1)+,(A0)+ 0002101a 51 c8 ff fc |Q | DBF D0,0x21018 0002101e 59 4f |YO | SUBQ.L #0x4,A7 00021020 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021024 3f 01 |? | MOVE.W D1,-(A7) 00021026 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 0002102a 4e 92 |N | JSR (A2) 0002102c 50 4f |PO | ADDQ.L #0x8,A7 0002102e 4e 93 |N | JSR (A3) 00021030 9e fc 00 2c | , | SUBA.W #0x2c,A7 00021034 20 4f | O | MOVEA.L A7,A0 00021036 43 fa f1 5e |C ^ | LEA.L 0x20196,A1 0002103a 70 3c |p< | MOVEQ.L #0x3c,D0 0002103c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002103e 51 c8 ff fc |Q | DBF D0,0x2103c 00021042 59 4f |YO | SUBQ.L #0x4,A7 00021044 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021048 3f 01 |? | MOVE.W D1,-(A7) 0002104a 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 0002104e 4e 92 |N | JSR (A2) 00021050 50 4f |PO | ADDQ.L #0x8,A7 00021052 4e 93 |N | JSR (A3) 00021054 de fc 00 42 | B | ADDA.W #0x42,A7 00021058 41 fa f1 9e |A | LEA.L 0x201f8,A0 0002105c 70 08 |p | MOVEQ.L #0x08,D0 0002105e 2f 20 |/ | MOVE.L -(A0),-(A7) 00021060 51 c8 ff fc |Q | DBF D0,0x2105e 00021064 59 4f |YO | SUBQ.L #0x4,A7 00021066 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002106a 3f 01 |? | MOVE.W D1,-(A7) 0002106c 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7) 00021070 4e 92 |N | JSR (A2) 00021072 50 4f |PO | ADDQ.L #0x8,A7 00021074 4e 93 |N | JSR (A3) 00021076 de fc 00 28 | ( | ADDA.W #0x28,A7 0002107a 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021080 41 fa f1 b0 |A | LEA.L 0x20232,A0 00021084 70 1c |p | MOVEQ.L #0x1c,D0 00021086 3f 20 |? | MOVE.W -(A0),-(A7) 00021088 51 c8 ff fc |Q | DBF D0,0x21086 0002108c 59 4f |YO | SUBQ.L #0x4,A7 0002108e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021092 3f 01 |? | MOVE.W D1,-(A7) 00021094 3f 3c 00 3a |?< : | MOVE.W #0x3a,-(A7) 00021098 4e 92 |N | JSR (A2) 0002109a 50 4f |PO | ADDQ.L #0x8,A7 0002109c 4e 93 |N | JSR (A3) 0002109e de fc 00 3e | > | ADDA.W #0x3e,A7 000210a2 41 fa f1 b8 |A | LEA.L 0x2025c,A0 000210a6 70 14 |p | MOVEQ.L #0x14,D0 000210a8 3f 20 |? | MOVE.W -(A0),-(A7) 000210aa 51 c8 ff fc |Q | DBF D0,0x210a8 000210ae 59 4f |YO | SUBQ.L #0x4,A7 000210b0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000210b4 3f 01 |? | MOVE.W D1,-(A7) 000210b6 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 000210ba 4e 92 |N | JSR (A2) 000210bc 50 4f |PO | ADDQ.L #0x8,A7 000210be 4e 93 |N | JSR (A3) 000210c0 de fc 00 2e | . | ADDA.W #0x2e,A7 000210c4 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000210ca 41 fa f1 c8 |A | LEA.L 0x20294,A0 000210ce 70 0d |p | MOVEQ.L #0x0d,D0 000210d0 2f 20 |/ | MOVE.L -(A0),-(A7) 000210d2 51 c8 ff fc |Q | DBF D0,0x210d0 000210d6 59 4f |YO | SUBQ.L #0x4,A7 000210d8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000210dc 3f 01 |? | MOVE.W D1,-(A7) 000210de 3f 3c 00 38 |?< 8 | MOVE.W #0x38,-(A7) 000210e2 4e 92 |N | JSR (A2) 000210e4 50 4f |PO | ADDQ.L #0x8,A7 000210e6 4e 93 |N | JSR (A3) 000210e8 de fc 00 20 | | ADDA.W #0x20,A7 000210ec 20 4f | O | MOVEA.L A7,A0 000210ee 43 fa f0 8a |C | LEA.L 0x2017a,A1 000210f2 70 1a |p | MOVEQ.L #0x1a,D0 000210f4 10 d9 | | MOVE.B (A1)+,(A0)+ 000210f6 51 c8 ff fc |Q | DBF D0,0x210f4 000210fa 51 4f |QO | SUBQ.L #0x8,A7 000210fc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021100 3f 01 |? | MOVE.W D1,-(A7) 00021102 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00021106 4e 92 |N | JSR (A2) 00021108 50 4f |PO | ADDQ.L #0x8,A7 0002110a 48 78 00 00 |Hx | PEA.L 0x0 0002110e 48 78 00 02 |Hx | PEA.L 0x2 00021112 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00021118 de fc 00 0c | | ADDA.W #0xc,A7 0002111c 2d 5f 00 08 |-_ | MOVE.L (A7)+,(A6+0x8) 00021120 de fc 00 1c | | ADDA.W #0x1c,A7 00021124 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3 00021128 4e 5e |N^ | UNLK A6 0002112a 4e 75 |Nu | RTS 0002112c ; -------------------------------------------------------------------------------------- 0002112c ; OMSI PASCAL Function 0002112c ; <LVAR 0x008 4(w)> 0002112c ; -------------------------------------------------------------------------------------- 0002112c 4e 56 ff aa |NV | LINK.W A6,#0xffaa 00021130 bf d5 | | CMPA.L (A5),A7 00021132 62 06 |b | BHI 0x2113a 00021134 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021138 4e 76 |Nv | TRAPV 0002113a de fc 00 56 | V | ADDA.W #0x56,A7 0002113e 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7) 00021142 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021148 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 0002114e 72 01 |r | MOVEQ.L #0x01,D1 00021150 74 12 |t | MOVEQ.L #0x12,D2 00021152 9e fc 00 0e | | SUBA.W #0xe,A7 00021156 20 4f | O | MOVEA.L A7,A0 00021158 43 fa f1 d4 |C | LEA.L 0x2032e,A1 0002115c 70 0c |p | MOVEQ.L #0x0c,D0 0002115e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021160 51 c8 ff fc |Q | DBF D0,0x2115e 00021164 59 4f |YO | SUBQ.L #0x4,A7 00021166 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002116a 3f 01 |? | MOVE.W D1,-(A7) 0002116c 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00021170 4e 92 |N | JSR (A2) 00021172 50 4f |PO | ADDQ.L #0x8,A7 00021174 4e 93 |N | JSR (A3) 00021176 de c2 | | ADDA.W D2,A7 00021178 41 fa f1 62 |A b | LEA.L 0x202dc,A0 0002117c 70 0e |p | MOVEQ.L #0x0e,D0 0002117e 3f 20 |? | MOVE.W -(A0),-(A7) 00021180 51 c8 ff fc |Q | DBF D0,0x2117e 00021184 59 4f |YO | SUBQ.L #0x4,A7 00021186 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002118a 3f 01 |? | MOVE.W D1,-(A7) 0002118c 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 00021190 4e 92 |N | JSR (A2) 00021192 50 4f |PO | ADDQ.L #0x8,A7 00021194 4e 93 |N | JSR (A3) 00021196 de fc 00 22 | " | ADDA.W #0x22,A7 0002119a 41 fa f1 68 |A h | LEA.L 0x20304,A0 0002119e 70 09 |p | MOVEQ.L #0x09,D0 000211a0 2f 20 |/ | MOVE.L -(A0),-(A7) 000211a2 51 c8 ff fc |Q | DBF D0,0x211a0 000211a6 59 4f |YO | SUBQ.L #0x4,A7 000211a8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000211ac 3f 01 |? | MOVE.W D1,-(A7) 000211ae 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 000211b2 4e 92 |N | JSR (A2) 000211b4 50 4f |PO | ADDQ.L #0x8,A7 000211b6 4e 93 |N | JSR (A3) 000211b8 54 4f |TO | ADDQ.L #0x2,A7 000211ba 20 4f | O | MOVEA.L A7,A0 000211bc 43 fa f1 46 |C F | LEA.L 0x20304,A1 000211c0 70 28 |p( | MOVEQ.L #0x28,D0 000211c2 10 d9 | | MOVE.B (A1)+,(A0)+ 000211c4 51 c8 ff fc |Q | DBF D0,0x211c2 000211c8 59 4f |YO | SUBQ.L #0x4,A7 000211ca 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000211ce 3f 01 |? | MOVE.W D1,-(A7) 000211d0 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 000211d4 4e 92 |N | JSR (A2) 000211d6 50 4f |PO | ADDQ.L #0x8,A7 000211d8 4e 93 |N | JSR (A3) 000211da de c2 | | ADDA.W D2,A7 000211dc 20 4f | O | MOVEA.L A7,A0 000211de 43 fa f0 c2 |C | LEA.L 0x202a2,A1 000211e2 70 1a |p | MOVEQ.L #0x1a,D0 000211e4 10 d9 | | MOVE.B (A1)+,(A0)+ 000211e6 51 c8 ff fc |Q | DBF D0,0x211e4 000211ea 51 4f |QO | SUBQ.L #0x8,A7 000211ec 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000211f0 3f 01 |? | MOVE.W D1,-(A7) 000211f2 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000211f6 4e 92 |N | JSR (A2) 000211f8 50 4f |PO | ADDQ.L #0x8,A7 000211fa 48 78 00 00 |Hx | PEA.L 0x0 000211fe 48 78 00 02 |Hx | PEA.L 0x2 00021202 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00021208 de fc 00 0c | | ADDA.W #0xc,A7 0002120c 2d 5f 00 08 |-_ | MOVE.L (A7)+,(A6+0x8) 00021210 de fc 00 1c | | ADDA.W #0x1c,A7 00021214 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3 00021218 4e 5e |N^ | UNLK A6 0002121a 4e 75 |Nu | RTS 0002121c ; -------------------------------------------------------------------------------------- 0002121c ; OMSI PASCAL Function 0002121c ; <LVAR 0x008 4(w)> 0002121c ; -------------------------------------------------------------------------------------- 0002121c 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 00021220 bf d5 | | CMPA.L (A5),A7 00021222 62 06 |b | BHI 0x2122a 00021224 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021228 4e 76 |Nv | TRAPV 0002122a de fc 00 48 | H | ADDA.W #0x48,A7 0002122e 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7) 00021232 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021238 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 0002123e 72 01 |r | MOVEQ.L #0x01,D1 00021240 9e fc 00 0e | | SUBA.W #0xe,A7 00021244 20 4f | O | MOVEA.L A7,A0 00021246 43 fa f1 3e |C > | LEA.L 0x20386,A1 0002124a 70 0c |p | MOVEQ.L #0x0c,D0 0002124c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002124e 51 c8 ff fc |Q | DBF D0,0x2124c 00021252 59 4f |YO | SUBQ.L #0x4,A7 00021254 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021258 3f 01 |? | MOVE.W D1,-(A7) 0002125a 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 0002125e 4e 92 |N | JSR (A2) 00021260 50 4f |PO | ADDQ.L #0x8,A7 00021262 4e 93 |N | JSR (A3) 00021264 de fc 00 12 | | ADDA.W #0x12,A7 00021268 41 fa f1 04 |A | LEA.L 0x2036e,A0 0002126c 70 0a |p | MOVEQ.L #0x0a,D0 0002126e 3f 20 |? | MOVE.W -(A0),-(A7) 00021270 51 c8 ff fc |Q | DBF D0,0x2126e 00021274 59 4f |YO | SUBQ.L #0x4,A7 00021276 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002127a 3f 01 |? | MOVE.W D1,-(A7) 0002127c 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00021280 4e 92 |N | JSR (A2) 00021282 50 4f |PO | ADDQ.L #0x8,A7 00021284 4e 93 |N | JSR (A3) 00021286 de fc 00 1a | | ADDA.W #0x1a,A7 0002128a 41 fa f0 fa |A | LEA.L 0x20386,A0 0002128e 70 05 |p | MOVEQ.L #0x05,D0 00021290 2f 20 |/ | MOVE.L -(A0),-(A7) 00021292 51 c8 ff fc |Q | DBF D0,0x21290 00021296 59 4f |YO | SUBQ.L #0x4,A7 00021298 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002129c 3f 01 |? | MOVE.W D1,-(A7) 0002129e 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 000212a2 4e 92 |N | JSR (A2) 000212a4 50 4f |PO | ADDQ.L #0x8,A7 000212a6 4e 93 |N | JSR (A3) 000212a8 20 4f | O | MOVEA.L A7,A0 000212aa 43 fa f0 90 |C | LEA.L 0x2033c,A1 000212ae 70 1a |p | MOVEQ.L #0x1a,D0 000212b0 10 d9 | | MOVE.B (A1)+,(A0)+ 000212b2 51 c8 ff fc |Q | DBF D0,0x212b0 000212b6 51 4f |QO | SUBQ.L #0x8,A7 000212b8 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000212bc 3f 01 |? | MOVE.W D1,-(A7) 000212be 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000212c2 4e 92 |N | JSR (A2) 000212c4 50 4f |PO | ADDQ.L #0x8,A7 000212c6 48 78 00 00 |Hx | PEA.L 0x0 000212ca 48 78 00 01 |Hx | PEA.L 0x1 000212ce 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000212d4 de fc 00 0c | | ADDA.W #0xc,A7 000212d8 2d 5f 00 08 |-_ | MOVE.L (A7)+,(A6+0x8) 000212dc de fc 00 1c | | ADDA.W #0x1c,A7 000212e0 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3 000212e4 4e 5e |N^ | UNLK A6 000212e6 4e 75 |Nu | RTS 000212e8 ; -------------------------------------------------------------------------------------- 000212e8 ; OMSI PASCAL Function 000212e8 ; <LVAR 0x00c 4(r)> 000212e8 ; <LVAR 0x008 4(r)> 000212e8 ; <LVAR -0x022 @> 000212e8 ; <LVAR -0x042 @> 000212e8 ; <LVAR -0x062 @> 000212e8 ; <LVAR -0x082 @> 000212e8 ; <LVAR -0x0a2 @> 000212e8 ; -------------------------------------------------------------------------------------- 000212e8 4e 56 fe f6 |NV | LINK.W A6,#0xfef6 000212ec bf d5 | | CMPA.L (A5),A7 000212ee 62 06 |b | BHI 0x212f6 000212f0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000212f4 4e 76 |Nv | TRAPV 000212f6 de fc 00 66 | f | ADDA.W #0x66,A7 000212fa 48 e7 fd f0 |H | MOVEM.L A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7) 000212fe 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00021302 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00021308 74 20 |t | MOVEQ.L #0x20,D2 0002130a 26 3c 00 00 00 ff |&< | MOVE.L #0xff,D3 00021310 78 01 |x | MOVEQ.L #0x01,D4 00021312 7a 14 |z | MOVEQ.L #0x14,D5 00021314 41 ee ff 5e |A ^ | LEA.L (A6-0xa2),A0 00021318 43 fa f9 a2 |C | LEA.L 0x20cbc,A1 0002131c 70 07 |p | MOVEQ.L #0x07,D0 0002131e 20 d9 | | MOVE.L (A1)+,(A0)+ 00021320 51 c8 ff fc |Q | DBF D0,0x2131e 00021324 41 ee ff 7e |A ~ | LEA.L (A6-0x82),A0 00021328 43 fa f9 b2 |C | LEA.L 0x20cdc,A1 0002132c 70 07 |p | MOVEQ.L #0x07,D0 0002132e 20 d9 | | MOVE.L (A1)+,(A0)+ 00021330 51 c8 ff fc |Q | DBF D0,0x2132e 00021334 41 ee ff 9e |A | LEA.L (A6-0x62),A0 00021338 43 fa f9 c2 |C | LEA.L 0x20cfc,A1 0002133c 70 07 |p | MOVEQ.L #0x07,D0 0002133e 20 d9 | | MOVE.L (A1)+,(A0)+ 00021340 51 c8 ff fc |Q | DBF D0,0x2133e 00021344 41 ee ff be |A | LEA.L (A6-0x42),A0 00021348 43 fa f9 d2 |C | LEA.L 0x20d1c,A1 0002134c 70 07 |p | MOVEQ.L #0x07,D0 0002134e 20 d9 | | MOVE.L (A1)+,(A0)+ 00021350 51 c8 ff fc |Q | DBF D0,0x2134e 00021354 41 ee ff de |A | LEA.L (A6-0x22),A0 00021358 43 fa f9 e2 |C | LEA.L 0x20d3c,A1 0002135c 70 07 |p | MOVEQ.L #0x07,D0 0002135e 20 d9 | | MOVE.L (A1)+,(A0)+ 00021360 51 c8 ff fc |Q | DBF D0,0x2135e 00021364 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021368 43 fa f0 3e |C > | LEA.L 0x203a8,A1 0002136c 70 04 |p | MOVEQ.L #0x04,D0 0002136e 2f 21 |/! | MOVE.L -(A1),-(A7) 00021370 51 c8 ff fc |Q | DBF D0,0x2136e 00021374 5d 4f |]O | SUBQ.L #0x6,A7 00021376 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002137a 3f 04 |? | MOVE.W D4,-(A7) 0002137c 3f 05 |? | MOVE.W D5,-(A7) 0002137e 4e 93 |N | JSR (A3) 00021380 50 4f |PO | ADDQ.L #0x8,A7 00021382 4e ba fa d8 |N | JSR 0x20e5c 00021386 58 4f |XO | ADDQ.L #0x4,A7 00021388 30 1f |0 | MOVE.W (A7)+,D0 0002138a 41 83 |A | CHK.W D3,D0 0002138c de c5 | | ADDA.W D5,A7 0002138e 30 80 |0 | MOVE.W D0,(A0) 00021390 41 ee ff 5e |A ^ | LEA.L (A6-0xa2),A0 00021394 32 00 |2 | MOVE.W D0,D1 00021396 e6 49 | I | LSR.W #0x3,D1 00021398 b2 42 | B | CMP.W D2,D1 0002139a 6d 04 |m | BLT 0x213a0 0002139c 72 00 |r | MOVEQ.L #0x00,D1 0002139e 60 04 |` | BRA 0x213a4 000213a0 01 30 10 00 | 0 | BTST.B D0,(A0+D1.W) 000213a4 67 04 |g | BEQ 0x213aa 000213a6 7e 01 |~ | MOVEQ.L #0x01,D7 000213a8 60 62 |`b | BRA 0x2140c 000213aa 7e 00 |~ | MOVEQ.L #0x00,D7 000213ac 5d 4f |]O | SUBQ.L #0x6,A7 000213ae 20 4f | O | MOVEA.L A7,A0 000213b0 43 fa ef f6 |C | LEA.L 0x203a8,A1 000213b4 72 04 |r | MOVEQ.L #0x04,D1 000213b6 10 d9 | | MOVE.B (A1)+,(A0)+ 000213b8 51 c9 ff fc |Q | DBF D1,0x213b6 000213bc 41 fa f0 02 |A | LEA.L 0x203c0,A0 000213c0 72 08 |r | MOVEQ.L #0x08,D1 000213c2 3f 20 |? | MOVE.W -(A0),-(A7) 000213c4 51 c9 ff fc |Q | DBF D1,0x213c2 000213c8 51 4f |QO | SUBQ.L #0x8,A7 000213ca 48 6f 00 1a |Ho | PEA.L (A7+0x1a) 000213ce 3f 04 |? | MOVE.W D4,-(A7) 000213d0 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 000213d4 4e 93 |N | JSR (A3) 000213d6 58 4f |XO | ADDQ.L #0x4,A7 000213d8 32 00 |2 | MOVE.W D0,D1 000213da 48 c1 |H | EXTW.L D1 000213dc 2f 01 |/ | MOVE.L D1,-(A7) 000213de 48 78 00 04 |Hx | PEA.L 0x4 000213e2 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 000213e8 58 4f |XO | ADDQ.L #0x4,A7 000213ea 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000213ee 3f 04 |? | MOVE.W D4,-(A7) 000213f0 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 000213f4 4e 93 |N | JSR (A3) 000213f6 50 4f |PO | ADDQ.L #0x8,A7 000213f8 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000213fe de fc 00 0c | | ADDA.W #0xc,A7 00021402 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021408 de fc 00 1c | | ADDA.W #0x1c,A7 0002140c 4a 07 |J | TST.B D7 0002140e 67 00 ff 54 |g T | BEQ 0x21364 00021412 41 ee ff 7e |A ~ | LEA.L (A6-0x82),A0 00021416 32 00 |2 | MOVE.W D0,D1 00021418 e6 49 | I | LSR.W #0x3,D1 0002141a b2 42 | B | CMP.W D2,D1 0002141c 6d 04 |m | BLT 0x21422 0002141e 72 00 |r | MOVEQ.L #0x00,D1 00021420 60 04 |` | BRA 0x21426 00021422 01 30 10 00 | 0 | BTST.B D0,(A0+D1.W) 00021426 67 14 |g | BEQ 0x2143c 00021428 20 52 | R | MOVEA.L (A2),A0 0002142a 59 4f |YO | SUBQ.L #0x4,A7 0002142c 4e ba fb 66 |N f | JSR 0x20f94 00021430 20 1f | | MOVE.L (A7)+,D0 00021432 b0 83 | | CMP.L D3,D0 00021434 63 02 |c | BLS 0x21438 00021436 4e 4f |NO | TRAP #15 00021438 30 80 |0 | MOVE.W D0,(A0) 0002143a 60 70 |`p | BRA 0x214ac 0002143c 32 00 |2 | MOVE.W D0,D1 0002143e e6 49 | I | LSR.W #0x3,D1 00021440 b2 42 | B | CMP.W D2,D1 00021442 6d 04 |m | BLT 0x21448 00021444 72 00 |r | MOVEQ.L #0x00,D1 00021446 60 04 |` | BRA 0x2144c 00021448 01 36 10 9e | 6 | BTST.B D0,(A6+D1.W-#0x62) 0002144c 67 12 |g | BEQ 0x21460 0002144e 20 52 | R | MOVEA.L (A2),A0 00021450 59 4f |YO | SUBQ.L #0x4,A7 00021452 4e ba fb 94 |N | JSR 0x20fe8 00021456 20 1f | | MOVE.L (A7)+,D0 00021458 b0 83 | | CMP.L D3,D0 0002145a 63 02 |c | BLS 0x2145e 0002145c 4e 4f |NO | TRAP #15 0002145e 60 d8 |` | BRA 0x21438 00021460 32 00 |2 | MOVE.W D0,D1 00021462 e6 49 | I | LSR.W #0x3,D1 00021464 b2 42 | B | CMP.W D2,D1 00021466 6d 04 |m | BLT 0x2146c 00021468 72 00 |r | MOVEQ.L #0x00,D1 0002146a 60 04 |` | BRA 0x21470 0002146c 01 36 10 be | 6 | BTST.B D0,(A6+D1.W-#0x42) 00021470 67 12 |g | BEQ 0x21484 00021472 20 52 | R | MOVEA.L (A2),A0 00021474 59 4f |YO | SUBQ.L #0x4,A7 00021476 4e ba fc b4 |N | JSR 0x2112c 0002147a 20 1f | | MOVE.L (A7)+,D0 0002147c b0 83 | | CMP.L D3,D0 0002147e 63 02 |c | BLS 0x21482 00021480 4e 4f |NO | TRAP #15 00021482 60 b4 |` | BRA 0x21438 00021484 32 00 |2 | MOVE.W D0,D1 00021486 e6 49 | I | LSR.W #0x3,D1 00021488 b2 42 | B | CMP.W D2,D1 0002148a 6d 04 |m | BLT 0x21490 0002148c 72 00 |r | MOVEQ.L #0x00,D1 0002148e 60 04 |` | BRA 0x21494 00021490 01 36 10 de | 6 | BTST.B D0,(A6+D1.W-#0x22) 00021494 67 12 |g | BEQ 0x214a8 00021496 20 52 | R | MOVEA.L (A2),A0 00021498 59 4f |YO | SUBQ.L #0x4,A7 0002149a 4e ba fd 80 |N | JSR 0x2121c 0002149e 20 1f | | MOVE.L (A7)+,D0 000214a0 b0 83 | | CMP.L D3,D0 000214a2 63 02 |c | BLS 0x214a6 000214a4 4e 4f |NO | TRAP #15 000214a6 60 90 |` | BRA 0x21438 000214a8 20 52 | R | MOVEA.L (A2),A0 000214aa 42 50 |BP | CLR.W (A0) 000214ac 4c df 0f bf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3 000214b0 4e 5e |N^ | UNLK A6 000214b2 4e 75 |Nu | RTS 000214b4 ; -------------------------------------------------------------------------------------- 000214b4 ; OMSI PASCAL Function 000214b4 ; <LVAR 0x00c 2(r)> 000214b4 ; <LVAR 0x008 4(r)> 000214b4 ; <LVAR -0x010 @> 000214b4 ; <LVAR -0x014 @> 000214b4 ; <LVAR -0x016 @ 1(r)> 000214b4 ; <LVAR -0x018 2(r)> 000214b4 ; <LVAR -0x01a 2(r)> 000214b4 ; <LVAR -0x01c 2(w)> 000214b4 ; <LVAR -0x01e 2(r)> 000214b4 ; <LVAR -0x020 2(r)> 000214b4 ; <LVAR -0x022 2(w)> 000214b4 ; <LVAR -0x024 2(r)> 000214b4 ; <LVAR -0x026 @ 2(r)> 000214b4 ; -------------------------------------------------------------------------------------- 000214b4 4e 56 ff 86 |NV | LINK.W A6,#0xff86 000214b8 bf d5 | | CMPA.L (A5),A7 000214ba 62 06 |b | BHI 0x214c2 000214bc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000214c0 4e 76 |Nv | TRAPV 000214c2 de fc 00 54 | T | ADDA.W #0x54,A7 000214c6 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 000214ca 72 01 |r | MOVEQ.L #0x01,D1 000214cc 42 6e ff da |Bn | CLR.W (A6-0x26) 000214d0 42 6e ff dc |Bn | CLR.W (A6-0x24) 000214d4 3d 7c 00 03 ff de |=| | MOVE.W #0x3,(A6-0x22) 000214da 42 6e ff e0 |Bn | CLR.W (A6-0x20) 000214de 42 6e ff e2 |Bn | CLR.W (A6-0x1e) 000214e2 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 000214e6 e1 40 | @ | ASL.W #0x8,D0 000214e8 3d 40 ff e4 |=@ | MOVE.W D0,(A6-0x1c) 000214ec 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 000214f0 42 6e ff e8 |Bn | CLR.W (A6-0x18) 000214f4 48 6e ff da |Hn | PEA.L (A6-0x26) 000214f8 41 ee ff ec |A | LEA.L (A6-0x14),A0 000214fc 2f 08 |/ | MOVE.L A0,-(A7) 000214fe 3f 01 |? | MOVE.W D1,-(A7) 00021500 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00021506 50 4f |PO | ADDQ.L #0x8,A7 00021508 3e 81 |> | MOVE.W D1,(A7) 0002150a 48 6e ff ea |Hn | PEA.L (A6-0x16) 0002150e 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00021514 5c 4f |\O | ADDQ.L #0x6,A7 00021516 4a 2e ff ea |J. | TST.B (A6-0x16) 0002151a 66 34 |f4 | BNE 0x21550 0002151c 9e fc 00 32 | 2 | SUBA.W #0x32,A7 00021520 20 4f | O | MOVEA.L A7,A0 00021522 43 fa ee 9c |C | LEA.L 0x203c0,A1 00021526 70 30 |p0 | MOVEQ.L #0x30,D0 00021528 10 d9 | | MOVE.B (A1)+,(A0)+ 0002152a 51 c8 ff fc |Q | DBF D0,0x21528 0002152e 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00021532 59 4f |YO | SUBQ.L #0x4,A7 00021534 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021538 3f 01 |? | MOVE.W D1,-(A7) 0002153a 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 0002153e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021544 50 4f |PO | ADDQ.L #0x8,A7 00021546 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002154c de fc 00 38 | 8 | ADDA.W #0x38,A7 00021550 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021554 43 ee ff f0 |C | LEA.L (A6-0x10),A1 00021558 70 0f |p | MOVEQ.L #0x0f,D0 0002155a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002155c 51 c8 ff fc |Q | DBF D0,0x2155a 00021560 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 00021564 4e 5e |N^ | UNLK A6 00021566 4e 75 |Nu | RTS 00021568 ; -------------------------------------------------------------------------------------- 00021568 ; OMSI PASCAL Function 00021568 ; <LVAR 0x008 2(r)> 00021568 ; <LVAR -0x008 2(r)> 00021568 ; <LVAR -0x010 @> 00021568 ; <LVAR -0x012 @ 1(r)> 00021568 ; <LVAR -0x014 2(r)> 00021568 ; <LVAR -0x016 2(r)> 00021568 ; <LVAR -0x018 2(w)> 00021568 ; <LVAR -0x01a 2(r)> 00021568 ; <LVAR -0x01c 2(r)> 00021568 ; <LVAR -0x01e 2(w)> 00021568 ; <LVAR -0x020 2(r)> 00021568 ; <LVAR -0x022 @ 2(r)> 00021568 ; -------------------------------------------------------------------------------------- 00021568 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 0002156c bf d5 | | CMPA.L (A5),A7 0002156e 62 06 |b | BHI 0x21576 00021570 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021574 4e 76 |Nv | TRAPV 00021576 de fc 00 44 | D | ADDA.W #0x44,A7 0002157a 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 0002157e 72 01 |r | MOVEQ.L #0x01,D1 00021580 42 6e ff de |Bn | CLR.W (A6-0x22) 00021584 42 6e ff e0 |Bn | CLR.W (A6-0x20) 00021588 3d 7c 00 03 ff e2 |=| | MOVE.W #0x3,(A6-0x1e) 0002158e 42 6e ff e4 |Bn | CLR.W (A6-0x1c) 00021592 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 00021596 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 0002159a e1 40 | @ | ASL.W #0x8,D0 0002159c 06 40 00 1b | @ | ADDI.W #0x001b,D0 000215a0 3d 40 ff e8 |=@ | MOVE.W D0,(A6-0x18) 000215a4 42 6e ff ea |Bn | CLR.W (A6-0x16) 000215a8 42 6e ff ec |Bn | CLR.W (A6-0x14) 000215ac 48 6e ff de |Hn | PEA.L (A6-0x22) 000215b0 48 78 00 00 |Hx | PEA.L 0x0 000215b4 3f 01 |? | MOVE.W D1,-(A7) 000215b6 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 000215bc 50 4f |PO | ADDQ.L #0x8,A7 000215be 3e 81 |> | MOVE.W D1,(A7) 000215c0 48 6e ff ee |Hn | PEA.L (A6-0x12) 000215c4 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000215ca 5c 4f |\O | ADDQ.L #0x6,A7 000215cc 4a 2e ff ee |J. | TST.B (A6-0x12) 000215d0 66 2a |f* | BNE 0x215fc 000215d2 41 fa ee 46 |A F | LEA.L 0x2041a,A0 000215d6 70 09 |p | MOVEQ.L #0x09,D0 000215d8 2f 20 |/ | MOVE.L -(A0),-(A7) 000215da 51 c8 ff fc |Q | DBF D0,0x215d8 000215de 59 4f |YO | SUBQ.L #0x4,A7 000215e0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215e4 3f 01 |? | MOVE.W D1,-(A7) 000215e6 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 000215ea 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000215f0 50 4f |PO | ADDQ.L #0x8,A7 000215f2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000215f8 de fc 00 2c | , | ADDA.W #0x2c,A7 000215fc 3f 2e 00 08 |?. | MOVE.W (A6+0x8),-(A7) 00021600 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00021604 4e ba fe ae |N | JSR 0x214b4 00021608 5c 4f |\O | ADDQ.L #0x6,A7 0002160a 30 2e ff f8 |0. | MOVE.W (A6-0x8),D0 0002160e 02 40 00 40 | @ @ | ANDI.W #0x0040,D0 00021612 67 e8 |g | BEQ 0x215fc 00021614 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00021618 4e 5e |N^ | UNLK A6 0002161a 4e 75 |Nu | RTS 0002161c ; -------------------------------------------------------------------------------------- 0002161c ; OMSI PASCAL Function 0002161c ; <LVAR 0x00c 2(r)> 0002161c ; <LVAR 0x00a 2(r)> 0002161c ; <LVAR 0x008 2(r)> 0002161c ; <LVAR -0x002 @ 1(r)> 0002161c ; <LVAR -0x004 2(r)> 0002161c ; <LVAR -0x006 2(w)> 0002161c ; <LVAR -0x008 2(w)> 0002161c ; <LVAR -0x00a 2(r)> 0002161c ; <LVAR -0x00c 2(r)> 0002161c ; <LVAR -0x00e 2(w)> 0002161c ; <LVAR -0x010 2(r)> 0002161c ; <LVAR -0x012 @ 2(r)> 0002161c ; <LVAR -0x016 @ 4(w)> 0002161c ; -------------------------------------------------------------------------------------- 0002161c 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00021620 bf d5 | | CMPA.L (A5),A7 00021622 62 06 |b | BHI 0x2162a 00021624 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021628 4e 76 |Nv | TRAPV 0002162a de fc 00 42 | B | ADDA.W #0x42,A7 0002162e 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00021632 72 01 |r | MOVEQ.L #0x01,D1 00021634 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 00021638 e1 40 | @ | ASL.W #0x8,D0 0002163a d0 6e 00 0a | n | ADD.W (A6+0xa),D0 0002163e 48 c0 |H | EXTW.L D0 00021640 2d 40 ff ea |-@ | MOVE.L D0,(A6-0x16) 00021644 42 6e ff ee |Bn | CLR.W (A6-0x12) 00021648 42 6e ff f0 |Bn | CLR.W (A6-0x10) 0002164c 3d 7c 00 03 ff f2 |=| | MOVE.W #0x3,(A6-0xe) 00021652 42 6e ff f4 |Bn | CLR.W (A6-0xc) 00021656 42 6e ff f6 |Bn | CLR.W (A6-0xa) 0002165a 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0 0002165e e1 40 | @ | ASL.W #0x8,D0 00021660 06 40 00 1a | @ | ADDI.W #0x001a,D0 00021664 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00021668 3d 7c 00 02 ff fa |=| | MOVE.W #0x2,(A6-0x6) 0002166e 42 6e ff fc |Bn | CLR.W (A6-0x4) 00021672 48 6e ff ee |Hn | PEA.L (A6-0x12) 00021676 41 ee ff ea |A | LEA.L (A6-0x16),A0 0002167a 2f 08 |/ | MOVE.L A0,-(A7) 0002167c 3f 01 |? | MOVE.W D1,-(A7) 0002167e 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00021684 50 4f |PO | ADDQ.L #0x8,A7 00021686 3e 81 |> | MOVE.W D1,(A7) 00021688 48 6e ff fe |Hn | PEA.L (A6-0x2) 0002168c 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00021692 5c 4f |\O | ADDQ.L #0x6,A7 00021694 4a 2e ff fe |J. | TST.B (A6-0x2) 00021698 66 2a |f* | BNE 0x216c4 0002169a 41 fa ed a4 |A | LEA.L 0x20440,A0 0002169e 70 12 |p | MOVEQ.L #0x12,D0 000216a0 3f 20 |? | MOVE.W -(A0),-(A7) 000216a2 51 c8 ff fc |Q | DBF D0,0x216a0 000216a6 59 4f |YO | SUBQ.L #0x4,A7 000216a8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216ac 3f 01 |? | MOVE.W D1,-(A7) 000216ae 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 000216b2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000216b8 50 4f |PO | ADDQ.L #0x8,A7 000216ba 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000216c0 de fc 00 2a | * | ADDA.W #0x2a,A7 000216c4 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 000216c8 4e 5e |N^ | UNLK A6 000216ca 4e 75 |Nu | RTS 000216cc ; -------------------------------------------------------------------------------------- 000216cc ; OMSI PASCAL Function 000216cc ; <LVAR 0x010 2(r)> 000216cc ; <LVAR 0x00c 4(r)> 000216cc ; <LVAR 0x008 4(r)> 000216cc ; <LVAR -0x00c 2(r)> 000216cc ; <LVAR -0x014 @> 000216cc ; <LVAR -0x026 2(r)> 000216cc ; <LVAR -0x028 2(r)> 000216cc ; <LVAR -0x030 @> 000216cc ; <LVAR -0x032 @> 000216cc ; <LVAR -0x034 2(r)> 000216cc ; <LVAR -0x036 2(w)> 000216cc ; <LVAR -0x038 2(w)> 000216cc ; <LVAR -0x03a 2(r)> 000216cc ; <LVAR -0x03c 2(r)> 000216cc ; <LVAR -0x03e 2(w)> 000216cc ; <LVAR -0x040 2(r)> 000216cc ; <LVAR -0x042 @ 2(r)> 000216cc ; -------------------------------------------------------------------------------------- 000216cc 4e 56 ff 7a |NV z | LINK.W A6,#0xff7a 000216d0 bf d5 | | CMPA.L (A5),A7 000216d2 62 06 |b | BHI 0x216da 000216d4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000216d8 4e 76 |Nv | TRAPV 000216da de fc 00 44 | D | ADDA.W #0x44,A7 000216de 48 e7 e1 c0 |H | MOVEM.L A1+A0+D7+D2+D1+D0,-(A7) 000216e2 72 01 |r | MOVEQ.L #0x01,D1 000216e4 74 19 |t | MOVEQ.L #0x19,D2 000216e6 42 6e ff be |Bn | CLR.W (A6-0x42) 000216ea 42 6e ff c0 |Bn | CLR.W (A6-0x40) 000216ee 3d 7c 00 03 ff c2 |=| | MOVE.W #0x3,(A6-0x3e) 000216f4 42 6e ff c4 |Bn | CLR.W (A6-0x3c) 000216f8 42 6e ff c6 |Bn | CLR.W (A6-0x3a) 000216fc 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0 00021700 e1 40 | @ | ASL.W #0x8,D0 00021702 d0 42 | B | ADD.W D2,D0 00021704 3d 40 ff c8 |=@ | MOVE.W D0,(A6-0x38) 00021708 3d 7c 00 1b ff ca |=| | MOVE.W #0x1b,(A6-0x36) 0002170e 42 6e ff cc |Bn | CLR.W (A6-0x34) 00021712 7e 00 |~ | MOVEQ.L #0x00,D7 00021714 48 6e ff be |Hn | PEA.L (A6-0x42) 00021718 41 ee ff d0 |A | LEA.L (A6-0x30),A0 0002171c 2f 08 |/ | MOVE.L A0,-(A7) 0002171e 3f 01 |? | MOVE.W D1,-(A7) 00021720 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00021726 50 4f |PO | ADDQ.L #0x8,A7 00021728 3e 81 |> | MOVE.W D1,(A7) 0002172a 48 6e ff ce |Hn | PEA.L (A6-0x32) 0002172e 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 00021734 58 4f |XO | ADDQ.L #0x4,A7 00021736 3e ae 00 10 |> | MOVE.W (A6+0x10),(A7) 0002173a 48 6e ff ec |Hn | PEA.L (A6-0x14) 0002173e 4e ba fd 74 |N t | JSR 0x214b4 00021742 5c 4f |\O | ADDQ.L #0x6,A7 00021744 30 2e ff f4 |0. | MOVE.W (A6-0xc),D0 00021748 02 40 40 00 | @@ | ANDI.W #0x4000,D0 0002174c 67 40 |g@ | BEQ 0x2178e 0002174e 52 87 |R | ADDQ.L #0x1,D7 00021750 0c 87 00 00 00 02 | | CMPI.L #0x00000002,D7 00021756 6c 04 |l | BGE 0x2175c 00021758 60 ba |` | BRA 0x21714 0002175a 60 32 |`2 | .XXX[0x2] 0002175c 9e fc 00 1a | | SUBA.W #0x1a,A7 00021760 20 4f | O | MOVEA.L A7,A0 00021762 43 fa ec dc |C | LEA.L 0x20440,A1 00021766 70 18 |p | MOVEQ.L #0x18,D0 00021768 10 d9 | | MOVE.B (A1)+,(A0)+ 0002176a 51 c8 ff fc |Q | DBF D0,0x21768 0002176e 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00021772 59 4f |YO | SUBQ.L #0x4,A7 00021774 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021778 3f 01 |? | MOVE.W D1,-(A7) 0002177a 3f 02 |? | MOVE.W D2,-(A7) 0002177c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021782 50 4f |PO | ADDQ.L #0x8,A7 00021784 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002178a de fc 00 20 | | ADDA.W #0x20,A7 0002178e 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021792 30 2e ff d8 |0. | MOVE.W (A6-0x28),D0 00021796 e0 48 | H | LSR.W #0x8,D0 00021798 02 40 00 ff | @ | ANDI.W #0x00ff,D0 0002179c 30 80 |0 | MOVE.W D0,(A0) 0002179e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000217a2 30 ae ff da |0 | MOVE.W (A6-0x26),(A0) 000217a6 02 50 00 ff | P | ANDI.W #0x00ff,(A0) 000217aa 4c df 03 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1 000217ae 4e 5e |N^ | UNLK A6 000217b0 4e 75 |Nu | RTS 000217b2 ; -------------------------------------------------------------------------------------- 000217b2 ; OMSI PASCAL Function 000217b2 ; <LVAR 0x014 2(r)> 000217b2 ; <LVAR 0x012 2(r)> 000217b2 ; <LVAR 0x010 2(r)> 000217b2 ; <LVAR 0x00c 4(r)> 000217b2 ; <LVAR 0x008 4(r)> 000217b2 ; <LVAR -0x00a 2(r)> 000217b2 ; <LVAR -0x012 @> 000217b2 ; -------------------------------------------------------------------------------------- 000217b2 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 000217b6 bf d5 | | CMPA.L (A5),A7 000217b8 62 06 |b | BHI 0x217c0 000217ba 44 fc 00 02 |D | MOVE.W #0x2,CCR 000217be 4e 76 |Nv | TRAPV 000217c0 de fc 00 1a | | ADDA.W #0x1a,A7 000217c4 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 000217c8 43 ee 00 14 |C | LEA.L (A6+0x14),A1 000217cc 3f 11 |? | MOVE.W (A1),-(A7) 000217ce 4e ba fd 98 |N | JSR 0x21568 000217d2 3e 91 |> | MOVE.W (A1),(A7) 000217d4 3f 2e 00 12 |?. | MOVE.W (A6+0x12),-(A7) 000217d8 3f 2e 00 10 |?. | MOVE.W (A6+0x10),-(A7) 000217dc 4e ba fe 3e |N > | JSR 0x2161c 000217e0 5c 4f |\O | ADDQ.L #0x6,A7 000217e2 3f 11 |? | MOVE.W (A1),-(A7) 000217e4 48 6e ff ee |Hn | PEA.L (A6-0x12) 000217e8 4e ba fc ca |N | JSR 0x214b4 000217ec 5c 4f |\O | ADDQ.L #0x6,A7 000217ee 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 000217f2 02 40 00 80 | @ | ANDI.W #0x0080,D0 000217f6 66 ea |f | BNE 0x217e2 000217f8 3f 11 |? | MOVE.W (A1),-(A7) 000217fa 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000217fe 48 50 |HP | PEA.L (A0) 00021800 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021804 48 50 |HP | PEA.L (A0) 00021806 4e ba fe c4 |N | JSR 0x216cc 0002180a de fc 00 0a | | ADDA.W #0xa,A7 0002180e 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021812 4e 5e |N^ | UNLK A6 00021814 4e 75 |Nu | RTS 00021816 ; -------------------------------------------------------------------------------------- 00021816 ; OMSI PASCAL Function 00021816 ; <LVAR 0x008 4(r)> 00021816 ; <LVAR -0x016 @ 2(r)> 00021816 ; <LVAR -0x01a 2(r)> 00021816 ; <LVAR -0x01c 2(w)> 00021816 ; <LVAR -0x022 2(w)> 00021816 ; <LVAR -0x026 @> 00021816 ; <LVAR -0x028 @> 00021816 ; -------------------------------------------------------------------------------------- 00021816 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 0002181a bf d5 | | CMPA.L (A5),A7 0002181c 62 06 |b | BHI 0x21824 0002181e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021822 4e 76 |Nv | TRAPV 00021824 de fc 00 4c | L | ADDA.W #0x4c,A7 00021828 48 e7 f0 e0 |H | MOVEM.L A2+A1+A0+D3+D2+D1+D0,-(A7) 0002182c 45 ee ff ea |E | LEA.L (A6-0x16),A2 00021830 72 01 |r | MOVEQ.L #0x01,D1 00021832 74 18 |t | MOVEQ.L #0x18,D2 00021834 76 03 |v | MOVEQ.L #0x03,D3 00021836 3d 43 ff de |=C | MOVE.W D3,(A6-0x22) 0002183a 42 6e ff e6 |Bn | CLR.W (A6-0x1a) 0002183e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021842 43 fa ec 2e |C . | LEA.L 0x20472,A1 00021846 70 05 |p | MOVEQ.L #0x05,D0 00021848 2f 21 |/! | MOVE.L -(A1),-(A7) 0002184a 51 c8 ff fc |Q | DBF D0,0x21848 0002184e 51 4f |QO | SUBQ.L #0x8,A7 00021850 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021854 3f 01 |? | MOVE.W D1,-(A7) 00021856 3f 02 |? | MOVE.W D2,-(A7) 00021858 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002185e 50 4f |PO | ADDQ.L #0x8,A7 00021860 48 78 00 00 |Hx | PEA.L 0x0 00021864 48 78 00 03 |Hx | PEA.L 0x3 00021868 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 0002186e de fc 00 0c | | ADDA.W #0xc,A7 00021872 20 1f | | MOVE.L (A7)+,D0 00021874 b0 83 | | CMP.L D3,D0 00021876 63 02 |c | BLS 0x2187a 00021878 4e 4f |NO | TRAP #15 0002187a de c2 | | ADDA.W D2,A7 0002187c 30 80 |0 | MOVE.W D0,(A0) 0002187e e1 40 | @ | ASL.W #0x8,D0 00021880 3d 40 ff e4 |=@ | MOVE.W D0,(A6-0x1c) 00021884 48 6e ff da |Hn | PEA.L (A6-0x26) 00021888 20 4a | J | MOVEA.L A2,A0 0002188a 2f 08 |/ | MOVE.L A0,-(A7) 0002188c 3f 01 |? | MOVE.W D1,-(A7) 0002188e 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 00021894 50 4f |PO | ADDQ.L #0x8,A7 00021896 3e 81 |> | MOVE.W D1,(A7) 00021898 48 6e ff d8 |Hn | PEA.L (A6-0x28) 0002189c 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 000218a2 5c 4f |\O | ADDQ.L #0x6,A7 000218a4 4a 52 |JR | TST.W (A2) 000218a6 66 28 |f( | BNE 0x218d0 000218a8 41 fa eb dc |A | LEA.L 0x20486,A0 000218ac 70 04 |p | MOVEQ.L #0x04,D0 000218ae 2f 20 |/ | MOVE.L -(A0),-(A7) 000218b0 51 c8 ff fc |Q | DBF D0,0x218ae 000218b4 59 4f |YO | SUBQ.L #0x4,A7 000218b6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000218ba 3f 01 |? | MOVE.W D1,-(A7) 000218bc 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 000218c0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000218c6 50 4f |PO | ADDQ.L #0x8,A7 000218c8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000218ce de c2 | | ADDA.W D2,A7 000218d0 4a 52 |JR | TST.W (A2) 000218d2 67 00 ff 6a |g j | BEQ 0x2183e 000218d6 4c df 07 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2 000218da 4e 5e |N^ | UNLK A6 000218dc 4e 75 |Nu | RTS 000218de ; -------------------------------------------------------------------------------------- 000218de ; OMSI PASCAL Function 000218de ; <LVAR 0x008 2(r)> 000218de ; -------------------------------------------------------------------------------------- 000218de 4e 56 ff 86 |NV | LINK.W A6,#0xff86 000218e2 bf d5 | | CMPA.L (A5),A7 000218e4 62 06 |b | BHI 0x218ec 000218e6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000218ea 4e 76 |Nv | TRAPV 000218ec de fc 00 74 | t | ADDA.W #0x74,A7 000218f0 48 e7 ff e8 |H | MOVEM.L A4+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000218f4 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000218fa 72 01 |r | MOVEQ.L #0x01,D1 000218fc 74 10 |t | MOVEQ.L #0x10,D2 000218fe 76 12 |v | MOVEQ.L #0x12,D3 00021900 78 16 |x | MOVEQ.L #0x16,D4 00021902 7a 14 |z | MOVEQ.L #0x14,D5 00021904 7c 1a || | MOVEQ.L #0x1a,D6 00021906 7e 0c |~ | MOVEQ.L #0x0c,D7 00021908 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 0002190c 0c 40 00 99 | @ | CMPI.W #0x0099,D0 00021910 62 00 09 66 |b f | BHI switch@0x21916[0xa] 00021914 d0 40 | @ | ADD.W D0,D0 00021916 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002191e 01 34 | 4 | .CONST 0x134 ; [0x0] -> 0x21a52 00021920 01 5c | \ | .CONST 0x15c ; [0x1] -> 0x21a7a 00021922 01 84 | | .CONST 0x184 ; [0x2] -> 0x21aa2 00021924 01 aa | | .CONST 0x1aa ; [0x3] -> 0x21ac8 00021926 01 ca | | .CONST 0x1ca ; [0x4] -> 0x21ae8 00021928 01 f2 | | .CONST 0x1f2 ; [0x5] -> 0x21b10 0002192a 02 0c | | .CONST 0x20c ; [0x6] -> 0x21b2a 0002192c 02 24 | $ | .CONST 0x224 ; [0x7] -> 0x21b42 0002192e 02 36 | 6 | .CONST 0x236 ; [0x8] -> 0x21b54 00021930 02 58 | X | .CONST 0x258 ; [0x9] -> 0x21b76 00021932 09 5a | Z | .CONST 0x95a ; [0xa] -> 0x22278 00021934 09 5a | Z | .CONST 0x95a ; [0xb] -> 0x22278 00021936 09 5a | Z | .CONST 0x95a ; [0xc] -> 0x22278 00021938 09 5a | Z | .CONST 0x95a ; [0xd] -> 0x22278 0002193a 09 5a | Z | .CONST 0x95a ; [0xe] -> 0x22278 0002193c 09 5a | Z | .CONST 0x95a ; [0xf] -> 0x22278 0002193e 02 76 | v | .CONST 0x276 ; [0x10] -> 0x21b94 00021940 02 86 | | .CONST 0x286 ; [0x11] -> 0x21ba4 00021942 02 9a | | .CONST 0x29a ; [0x12] -> 0x21bb8 00021944 02 ae | | .CONST 0x2ae ; [0x13] -> 0x21bcc 00021946 02 d6 | | .CONST 0x2d6 ; [0x14] -> 0x21bf4 00021948 02 e6 | | .CONST 0x2e6 ; [0x15] -> 0x21c04 0002194a 03 12 | | .CONST 0x312 ; [0x16] -> 0x21c30 0002194c 03 38 | 8 | .CONST 0x338 ; [0x17] -> 0x21c56 0002194e 03 4c | L | .CONST 0x34c ; [0x18] -> 0x21c6a 00021950 09 5a | Z | .CONST 0x95a ; [0x19] -> 0x22278 00021952 09 5a | Z | .CONST 0x95a ; [0x1a] -> 0x22278 00021954 09 5a | Z | .CONST 0x95a ; [0x1b] -> 0x22278 00021956 09 5a | Z | .CONST 0x95a ; [0x1c] -> 0x22278 00021958 09 5a | Z | .CONST 0x95a ; [0x1d] -> 0x22278 0002195a 09 5a | Z | .CONST 0x95a ; [0x1e] -> 0x22278 0002195c 09 5a | Z | .CONST 0x95a ; [0x1f] -> 0x22278 0002195e 03 60 | ` | .CONST 0x360 ; [0x20] -> 0x21c7e 00021960 03 74 | t | .CONST 0x374 ; [0x21] -> 0x21c92 00021962 03 a0 | | .CONST 0x3a0 ; [0x22] -> 0x21cbe 00021964 03 b0 | | .CONST 0x3b0 ; [0x23] -> 0x21cce 00021966 03 c0 | | .CONST 0x3c0 ; [0x24] -> 0x21cde 00021968 03 d0 | | .CONST 0x3d0 ; [0x25] -> 0x21cee 0002196a 03 f0 | | .CONST 0x3f0 ; [0x26] -> 0x21d0e 0002196c 04 10 | | .CONST 0x410 ; [0x27] -> 0x21d2e 0002196e 04 24 | $ | .CONST 0x424 ; [0x28] -> 0x21d42 00021970 04 4a | J | .CONST 0x44a ; [0x29] -> 0x21d68 00021972 09 5a | Z | .CONST 0x95a ; [0x2a] -> 0x22278 00021974 09 5a | Z | .CONST 0x95a ; [0x2b] -> 0x22278 00021976 09 5a | Z | .CONST 0x95a ; [0x2c] -> 0x22278 00021978 09 5a | Z | .CONST 0x95a ; [0x2d] -> 0x22278 0002197a 09 5a | Z | .CONST 0x95a ; [0x2e] -> 0x22278 0002197c 09 5a | Z | .CONST 0x95a ; [0x2f] -> 0x22278 0002197e 04 5e | ^ | .CONST 0x45e ; [0x30] -> 0x21d7c 00021980 04 8a | | .CONST 0x48a ; [0x31] -> 0x21da8 00021982 04 9e | | .CONST 0x49e ; [0x32] -> 0x21dbc 00021984 04 b2 | | .CONST 0x4b2 ; [0x33] -> 0x21dd0 00021986 04 c6 | | .CONST 0x4c6 ; [0x34] -> 0x21de4 00021988 04 da | | .CONST 0x4da ; [0x35] -> 0x21df8 0002198a 04 ee | | .CONST 0x4ee ; [0x36] -> 0x21e0c 0002198c 09 5a | Z | .CONST 0x95a ; [0x37] -> 0x22278 0002198e 09 5a | Z | .CONST 0x95a ; [0x38] -> 0x22278 00021990 09 5a | Z | .CONST 0x95a ; [0x39] -> 0x22278 00021992 09 5a | Z | .CONST 0x95a ; [0x3a] -> 0x22278 00021994 09 5a | Z | .CONST 0x95a ; [0x3b] -> 0x22278 00021996 09 5a | Z | .CONST 0x95a ; [0x3c] -> 0x22278 00021998 09 5a | Z | .CONST 0x95a ; [0x3d] -> 0x22278 0002199a 09 5a | Z | .CONST 0x95a ; [0x3e] -> 0x22278 0002199c 09 5a | Z | .CONST 0x95a ; [0x3f] -> 0x22278 0002199e 09 5a | Z | .CONST 0x95a ; [0x40] -> 0x22278 000219a0 05 02 | | .CONST 0x502 ; [0x41] -> 0x21e20 000219a2 09 5a | Z | .CONST 0x95a ; [0x42] -> 0x22278 000219a4 09 5a | Z | .CONST 0x95a ; [0x43] -> 0x22278 000219a6 09 5a | Z | .CONST 0x95a ; [0x44] -> 0x22278 000219a8 09 5a | Z | .CONST 0x95a ; [0x45] -> 0x22278 000219aa 09 5a | Z | .CONST 0x95a ; [0x46] -> 0x22278 000219ac 05 12 | | .CONST 0x512 ; [0x47] -> 0x21e30 000219ae 05 26 | & | .CONST 0x526 ; [0x48] -> 0x21e44 000219b0 09 5a | Z | .CONST 0x95a ; [0x49] -> 0x22278 000219b2 09 5a | Z | .CONST 0x95a ; [0x4a] -> 0x22278 000219b4 09 5a | Z | .CONST 0x95a ; [0x4b] -> 0x22278 000219b6 09 5a | Z | .CONST 0x95a ; [0x4c] -> 0x22278 000219b8 09 5a | Z | .CONST 0x95a ; [0x4d] -> 0x22278 000219ba 09 5a | Z | .CONST 0x95a ; [0x4e] -> 0x22278 000219bc 09 5a | Z | .CONST 0x95a ; [0x4f] -> 0x22278 000219be 05 3a | : | .CONST 0x53a ; [0x50] -> 0x21e58 000219c0 05 60 | ` | .CONST 0x560 ; [0x51] -> 0x21e7e 000219c2 05 86 | | .CONST 0x586 ; [0x52] -> 0x21ea4 000219c4 05 a8 | | .CONST 0x5a8 ; [0x53] -> 0x21ec6 000219c6 05 bc | | .CONST 0x5bc ; [0x54] -> 0x21eda 000219c8 05 d0 | | .CONST 0x5d0 ; [0x55] -> 0x21eee 000219ca 05 e4 | | .CONST 0x5e4 ; [0x56] -> 0x21f02 000219cc 09 5a | Z | .CONST 0x95a ; [0x57] -> 0x22278 000219ce 09 5a | Z | .CONST 0x95a ; [0x58] -> 0x22278 000219d0 09 5a | Z | .CONST 0x95a ; [0x59] -> 0x22278 000219d2 09 5a | Z | .CONST 0x95a ; [0x5a] -> 0x22278 000219d4 09 5a | Z | .CONST 0x95a ; [0x5b] -> 0x22278 000219d6 09 5a | Z | .CONST 0x95a ; [0x5c] -> 0x22278 000219d8 09 5a | Z | .CONST 0x95a ; [0x5d] -> 0x22278 000219da 09 5a | Z | .CONST 0x95a ; [0x5e] -> 0x22278 000219dc 09 5a | Z | .CONST 0x95a ; [0x5f] -> 0x22278 000219de 06 06 | | .CONST 0x606 ; [0x60] -> 0x21f24 000219e0 06 16 | | .CONST 0x616 ; [0x61] -> 0x21f34 000219e2 06 32 | 2 | .CONST 0x632 ; [0x62] -> 0x21f50 000219e4 06 42 | B | .CONST 0x642 ; [0x63] -> 0x21f60 000219e6 06 6e | n | .CONST 0x66e ; [0x64] -> 0x21f8c 000219e8 06 94 | | .CONST 0x694 ; [0x65] -> 0x21fb2 000219ea 06 c0 | | .CONST 0x6c0 ; [0x66] -> 0x21fde 000219ec 06 da | | .CONST 0x6da ; [0x67] -> 0x21ff8 000219ee 06 f6 | | .CONST 0x6f6 ; [0x68] -> 0x22014 000219f0 09 5a | Z | .CONST 0x95a ; [0x69] -> 0x22278 000219f2 09 5a | Z | .CONST 0x95a ; [0x6a] -> 0x22278 000219f4 09 5a | Z | .CONST 0x95a ; [0x6b] -> 0x22278 000219f6 09 5a | Z | .CONST 0x95a ; [0x6c] -> 0x22278 000219f8 09 5a | Z | .CONST 0x95a ; [0x6d] -> 0x22278 000219fa 09 5a | Z | .CONST 0x95a ; [0x6e] -> 0x22278 000219fc 09 5a | Z | .CONST 0x95a ; [0x6f] -> 0x22278 000219fe 07 06 | | .CONST 0x706 ; [0x70] -> 0x22024 00021a00 07 1a | | .CONST 0x71a ; [0x71] -> 0x22038 00021a02 07 2e | . | .CONST 0x72e ; [0x72] -> 0x2204c 00021a04 07 48 | H | .CONST 0x748 ; [0x73] -> 0x22066 00021a06 07 58 | X | .CONST 0x758 ; [0x74] -> 0x22076 00021a08 07 68 | h | .CONST 0x768 ; [0x75] -> 0x22086 00021a0a 07 7c | | | .CONST 0x77c ; [0x76] -> 0x2209a 00021a0c 07 90 | | .CONST 0x790 ; [0x77] -> 0x220ae 00021a0e 07 a4 | | .CONST 0x7a4 ; [0x78] -> 0x220c2 00021a10 07 b2 | | .CONST 0x7b2 ; [0x79] -> 0x220d0 00021a12 09 5a | Z | .CONST 0x95a ; [0x7a] -> 0x22278 00021a14 09 5a | Z | .CONST 0x95a ; [0x7b] -> 0x22278 00021a16 09 5a | Z | .CONST 0x95a ; [0x7c] -> 0x22278 00021a18 09 5a | Z | .CONST 0x95a ; [0x7d] -> 0x22278 00021a1a 09 5a | Z | .CONST 0x95a ; [0x7e] -> 0x22278 00021a1c 09 5a | Z | .CONST 0x95a ; [0x7f] -> 0x22278 00021a1e 07 c8 | | .CONST 0x7c8 ; [0x80] -> 0x220e6 00021a20 07 dc | | .CONST 0x7dc ; [0x81] -> 0x220fa 00021a22 07 ec | | .CONST 0x7ec ; [0x82] -> 0x2210a 00021a24 08 02 | | .CONST 0x802 ; [0x83] -> 0x22120 00021a26 08 16 | | .CONST 0x816 ; [0x84] -> 0x22134 00021a28 08 26 | & | .CONST 0x826 ; [0x85] -> 0x22144 00021a2a 08 36 | 6 | .CONST 0x836 ; [0x86] -> 0x22154 00021a2c 08 46 | F | .CONST 0x846 ; [0x87] -> 0x22164 00021a2e 09 5a | Z | .CONST 0x95a ; [0x88] -> 0x22278 00021a30 08 5a | Z | .CONST 0x85a ; [0x89] -> 0x22178 00021a32 09 5a | Z | .CONST 0x95a ; [0x8a] -> 0x22278 00021a34 09 5a | Z | .CONST 0x95a ; [0x8b] -> 0x22278 00021a36 09 5a | Z | .CONST 0x95a ; [0x8c] -> 0x22278 00021a38 09 5a | Z | .CONST 0x95a ; [0x8d] -> 0x22278 00021a3a 09 5a | Z | .CONST 0x95a ; [0x8e] -> 0x22278 00021a3c 09 5a | Z | .CONST 0x95a ; [0x8f] -> 0x22278 00021a3e 08 6e | n | .CONST 0x86e ; [0x90] -> 0x2218c 00021a40 08 7e | ~ | .CONST 0x87e ; [0x91] -> 0x2219c 00021a42 08 8e | | .CONST 0x88e ; [0x92] -> 0x221ac 00021a44 08 ba | | .CONST 0x8ba ; [0x93] -> 0x221d8 00021a46 08 ca | | .CONST 0x8ca ; [0x94] -> 0x221e8 00021a48 08 da | | .CONST 0x8da ; [0x95] -> 0x221f8 00021a4a 09 04 | | .CONST 0x904 ; [0x96] -> 0x22222 00021a4c 09 18 | | .CONST 0x918 ; [0x97] -> 0x22236 00021a4e 09 34 | 4 | .CONST 0x934 ; [0x98] -> 0x22252 00021a50 09 44 | D | .CONST 0x944 ; [0x99] -> 0x22262 00021a52 switch@0x21916[0x0]: 00021a52 9e c2 | | SUBA.W D2,A7 00021a54 20 4f | O | MOVEA.L A7,A0 00021a56 43 fa ea 2e |C . | LEA.L 0x20486,A1 00021a5a 70 0e |p | MOVEQ.L #0x0e,D0 00021a5c 10 d9 | | MOVE.B (A1)+,(A0)+ 00021a5e 51 c8 ff fc |Q | DBF D0,0x21a5c 00021a62 59 4f |YO | SUBQ.L #0x4,A7 00021a64 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021a68 3f 01 |? | MOVE.W D1,-(A7) 00021a6a 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00021a6e 4e 92 |N | JSR (A2) 00021a70 50 4f |PO | ADDQ.L #0x8,A7 00021a72 28 5f |(_ | MOVEA.L (A7)+,A4 00021a74 de c2 | | ADDA.W D2,A7 00021a76 60 00 08 1e |` | BRA 0x22296 00021a7a switch@0x21916[0x1]: 00021a7a 9e c5 | | SUBA.W D5,A7 00021a7c 20 4f | O | MOVEA.L A7,A0 00021a7e 43 fa ea 16 |C | LEA.L 0x20496,A1 00021a82 70 12 |p | MOVEQ.L #0x12,D0 00021a84 10 d9 | | MOVE.B (A1)+,(A0)+ 00021a86 51 c8 ff fc |Q | DBF D0,0x21a84 00021a8a 59 4f |YO | SUBQ.L #0x4,A7 00021a8c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021a90 3f 01 |? | MOVE.W D1,-(A7) 00021a92 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00021a96 4e 92 |N | JSR (A2) 00021a98 50 4f |PO | ADDQ.L #0x8,A7 00021a9a 28 5f |(_ | MOVEA.L (A7)+,A4 00021a9c de c5 | | ADDA.W D5,A7 00021a9e 60 00 07 f6 |` | BRA 0x22296 00021aa2 switch@0x21916[0x2]: 00021aa2 41 fa ea 24 |A $ | LEA.L 0x204c8,A0 00021aa6 70 0e |p | MOVEQ.L #0x0e,D0 00021aa8 3f 20 |? | MOVE.W -(A0),-(A7) 00021aaa 51 c8 ff fc |Q | DBF D0,0x21aa8 00021aae 59 4f |YO | SUBQ.L #0x4,A7 00021ab0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021ab4 3f 01 |? | MOVE.W D1,-(A7) 00021ab6 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 00021aba 4e 92 |N | JSR (A2) 00021abc 50 4f |PO | ADDQ.L #0x8,A7 00021abe 28 5f |(_ | MOVEA.L (A7)+,A4 00021ac0 de fc 00 1e | | ADDA.W #0x1e,A7 00021ac4 60 00 07 d0 |` | BRA 0x22296 00021ac8 switch@0x21916[0x3]: 00021ac8 2f 3a ea 02 |/: | MOVE.L 0x204cc,-(A7) 00021acc 2f 3a e9 fa |/: | MOVE.L 0x204c8,-(A7) 00021ad0 59 4f |YO | SUBQ.L #0x4,A7 00021ad2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021ad6 3f 01 |? | MOVE.W D1,-(A7) 00021ad8 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00021adc 4e 92 |N | JSR (A2) 00021ade 50 4f |PO | ADDQ.L #0x8,A7 00021ae0 28 5f |(_ | MOVEA.L (A7)+,A4 00021ae2 50 4f |PO | ADDQ.L #0x8,A7 00021ae4 60 00 07 b0 |` | BRA 0x22296 00021ae8 switch@0x21916[0x4]: 00021ae8 9e c4 | | SUBA.W D4,A7 00021aea 20 4f | O | MOVEA.L A7,A0 00021aec 43 fa e9 e2 |C | LEA.L 0x204d0,A1 00021af0 70 14 |p | MOVEQ.L #0x14,D0 00021af2 10 d9 | | MOVE.B (A1)+,(A0)+ 00021af4 51 c8 ff fc |Q | DBF D0,0x21af2 00021af8 59 4f |YO | SUBQ.L #0x4,A7 00021afa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021afe 3f 01 |? | MOVE.W D1,-(A7) 00021b00 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 00021b04 4e 92 |N | JSR (A2) 00021b06 50 4f |PO | ADDQ.L #0x8,A7 00021b08 28 5f |(_ | MOVEA.L (A7)+,A4 00021b0a de c4 | | ADDA.W D4,A7 00021b0c 60 00 07 88 |` | BRA 0x22296 00021b10 switch@0x21916[0x5]: 00021b10 41 fa e9 e8 |A | LEA.L 0x204fa,A0 00021b14 70 04 |p | MOVEQ.L #0x04,D0 00021b16 2f 20 |/ | MOVE.L -(A0),-(A7) 00021b18 51 c8 ff fc |Q | DBF D0,0x21b16 00021b1c 59 4f |YO | SUBQ.L #0x4,A7 00021b1e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021b22 3f 01 |? | MOVE.W D1,-(A7) 00021b24 3f 05 |? | MOVE.W D5,-(A7) 00021b26 60 00 ff 6e |` n | BRA 0x21a96 00021b2a switch@0x21916[0x6]: 00021b2a 41 fa e9 e4 |A | LEA.L 0x20510,A0 00021b2e 70 0a |p | MOVEQ.L #0x0a,D0 00021b30 3f 20 |? | MOVE.W -(A0),-(A7) 00021b32 51 c8 ff fc |Q | DBF D0,0x21b30 00021b36 59 4f |YO | SUBQ.L #0x4,A7 00021b38 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021b3c 3f 01 |? | MOVE.W D1,-(A7) 00021b3e 3f 04 |? | MOVE.W D4,-(A7) 00021b40 60 c2 |` | BRA 0x21b04 00021b42 switch@0x21916[0x7]: 00021b42 9e c4 | | SUBA.W D4,A7 00021b44 20 4f | O | MOVEA.L A7,A0 00021b46 43 fa e9 c8 |C | LEA.L 0x20510,A1 00021b4a 70 14 |p | MOVEQ.L #0x14,D0 00021b4c 10 d9 | | MOVE.B (A1)+,(A0)+ 00021b4e 51 c8 ff fc |Q | DBF D0,0x21b4c 00021b52 60 a4 |` | BRA 0x21af8 00021b54 switch@0x21916[0x8]: 00021b54 2f 3a e9 d8 |/: | MOVE.L 0x2052e,-(A7) 00021b58 2f 3a e9 d0 |/: | MOVE.L 0x2052a,-(A7) 00021b5c 2f 3a e9 c8 |/: | MOVE.L 0x20526,-(A7) 00021b60 59 4f |YO | SUBQ.L #0x4,A7 00021b62 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021b66 3f 01 |? | MOVE.W D1,-(A7) 00021b68 3f 07 |? | MOVE.W D7,-(A7) 00021b6a 4e 92 |N | JSR (A2) 00021b6c 50 4f |PO | ADDQ.L #0x8,A7 00021b6e 28 5f |(_ | MOVEA.L (A7)+,A4 00021b70 de c7 | | ADDA.W D7,A7 00021b72 60 00 07 22 |` " | BRA 0x22296 00021b76 switch@0x21916[0x9]: 00021b76 2f 3a e9 c6 |/: | MOVE.L 0x2053e,-(A7) 00021b7a 2f 3a e9 be |/: | MOVE.L 0x2053a,-(A7) 00021b7e 2f 3a e9 b6 |/: | MOVE.L 0x20536,-(A7) 00021b82 2f 3a e9 ae |/: | MOVE.L 0x20532,-(A7) 00021b86 59 4f |YO | SUBQ.L #0x4,A7 00021b88 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021b8c 3f 01 |? | MOVE.W D1,-(A7) 00021b8e 3f 02 |? | MOVE.W D2,-(A7) 00021b90 60 00 fe dc |` | BRA 0x21a6e 00021b94 switch@0x21916[0x10]: 00021b94 41 fa e9 be |A | LEA.L 0x20554,A0 00021b98 70 08 |p | MOVEQ.L #0x08,D0 00021b9a 3f 20 |? | MOVE.W -(A0),-(A7) 00021b9c 51 c8 ff fc |Q | DBF D0,0x21b9a 00021ba0 60 00 06 e2 |` | BRA 0x22284 00021ba4 switch@0x21916[0x11]: 00021ba4 9e c2 | | SUBA.W D2,A7 00021ba6 20 4f | O | MOVEA.L A7,A0 00021ba8 43 fa e9 aa |C | LEA.L 0x20554,A1 00021bac 70 0e |p | MOVEQ.L #0x0e,D0 00021bae 10 d9 | | MOVE.B (A1)+,(A0)+ 00021bb0 51 c8 ff fc |Q | DBF D0,0x21bae 00021bb4 60 00 fe ac |` | BRA 0x21a62 00021bb8 switch@0x21916[0x12]: 00021bb8 9e c2 | | SUBA.W D2,A7 00021bba 20 4f | O | MOVEA.L A7,A0 00021bbc 43 fa e9 a6 |C | LEA.L 0x20564,A1 00021bc0 70 0e |p | MOVEQ.L #0x0e,D0 00021bc2 10 d9 | | MOVE.B (A1)+,(A0)+ 00021bc4 51 c8 ff fc |Q | DBF D0,0x21bc2 00021bc8 60 00 fe 98 |` | BRA 0x21a62 00021bcc switch@0x21916[0x13]: 00021bcc 9e c6 | | SUBA.W D6,A7 00021bce 20 4f | O | MOVEA.L A7,A0 00021bd0 43 fa e9 a2 |C | LEA.L 0x20574,A1 00021bd4 70 18 |p | MOVEQ.L #0x18,D0 00021bd6 10 d9 | | MOVE.B (A1)+,(A0)+ 00021bd8 51 c8 ff fc |Q | DBF D0,0x21bd6 00021bdc 59 4f |YO | SUBQ.L #0x4,A7 00021bde 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021be2 3f 01 |? | MOVE.W D1,-(A7) 00021be4 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00021be8 4e 92 |N | JSR (A2) 00021bea 50 4f |PO | ADDQ.L #0x8,A7 00021bec 28 5f |(_ | MOVEA.L (A7)+,A4 00021bee de c6 | | ADDA.W D6,A7 00021bf0 60 00 06 a4 |` | BRA 0x22296 00021bf4 switch@0x21916[0x14]: 00021bf4 41 fa e9 aa |A | LEA.L 0x205a0,A0 00021bf8 70 08 |p | MOVEQ.L #0x08,D0 00021bfa 3f 20 |? | MOVE.W -(A0),-(A7) 00021bfc 51 c8 ff fc |Q | DBF D0,0x21bfa 00021c00 60 00 06 82 |` | BRA 0x22284 00021c04 switch@0x21916[0x15]: 00021c04 9e fc 00 20 | | SUBA.W #0x20,A7 00021c08 20 4f | O | MOVEA.L A7,A0 00021c0a 43 fa e9 94 |C | LEA.L 0x205a0,A1 00021c0e 70 1e |p | MOVEQ.L #0x1e,D0 00021c10 10 d9 | | MOVE.B (A1)+,(A0)+ 00021c12 51 c8 ff fc |Q | DBF D0,0x21c10 00021c16 59 4f |YO | SUBQ.L #0x4,A7 00021c18 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021c1c 3f 01 |? | MOVE.W D1,-(A7) 00021c1e 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00021c22 4e 92 |N | JSR (A2) 00021c24 50 4f |PO | ADDQ.L #0x8,A7 00021c26 28 5f |(_ | MOVEA.L (A7)+,A4 00021c28 de fc 00 20 | | ADDA.W #0x20,A7 00021c2c 60 00 06 68 |` h | BRA 0x22296 00021c30 switch@0x21916[0x16]: 00021c30 41 fa e9 b0 |A | LEA.L 0x205e2,A0 00021c34 70 10 |p | MOVEQ.L #0x10,D0 00021c36 3f 20 |? | MOVE.W -(A0),-(A7) 00021c38 51 c8 ff fc |Q | DBF D0,0x21c36 00021c3c 59 4f |YO | SUBQ.L #0x4,A7 00021c3e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021c42 3f 01 |? | MOVE.W D1,-(A7) 00021c44 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00021c48 4e 92 |N | JSR (A2) 00021c4a 50 4f |PO | ADDQ.L #0x8,A7 00021c4c 28 5f |(_ | MOVEA.L (A7)+,A4 00021c4e de fc 00 22 | " | ADDA.W #0x22,A7 00021c52 60 00 06 42 |` B | BRA 0x22296 00021c56 switch@0x21916[0x17]: 00021c56 9e c5 | | SUBA.W D5,A7 00021c58 20 4f | O | MOVEA.L A7,A0 00021c5a 43 fa e9 86 |C | LEA.L 0x205e2,A1 00021c5e 70 12 |p | MOVEQ.L #0x12,D0 00021c60 10 d9 | | MOVE.B (A1)+,(A0)+ 00021c62 51 c8 ff fc |Q | DBF D0,0x21c60 00021c66 60 00 fe 22 |` " | BRA 0x21a8a 00021c6a switch@0x21916[0x18]: 00021c6a 9e c5 | | SUBA.W D5,A7 00021c6c 20 4f | O | MOVEA.L A7,A0 00021c6e 43 fa e9 86 |C | LEA.L 0x205f6,A1 00021c72 70 12 |p | MOVEQ.L #0x12,D0 00021c74 10 d9 | | MOVE.B (A1)+,(A0)+ 00021c76 51 c8 ff fc |Q | DBF D0,0x21c74 00021c7a 60 00 fe 0e |` | BRA 0x21a8a 00021c7e switch@0x21916[0x20]: 00021c7e 9e c6 | | SUBA.W D6,A7 00021c80 20 4f | O | MOVEA.L A7,A0 00021c82 43 fa e9 86 |C | LEA.L 0x2060a,A1 00021c86 70 18 |p | MOVEQ.L #0x18,D0 00021c88 10 d9 | | MOVE.B (A1)+,(A0)+ 00021c8a 51 c8 ff fc |Q | DBF D0,0x21c88 00021c8e 60 00 ff 4c |` L | BRA 0x21bdc 00021c92 switch@0x21916[0x21]: 00021c92 9e fc 00 1c | | SUBA.W #0x1c,A7 00021c96 20 4f | O | MOVEA.L A7,A0 00021c98 43 fa e9 8a |C | LEA.L 0x20624,A1 00021c9c 70 1a |p | MOVEQ.L #0x1a,D0 00021c9e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ca0 51 c8 ff fc |Q | DBF D0,0x21c9e 00021ca4 59 4f |YO | SUBQ.L #0x4,A7 00021ca6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021caa 3f 01 |? | MOVE.W D1,-(A7) 00021cac 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00021cb0 4e 92 |N | JSR (A2) 00021cb2 50 4f |PO | ADDQ.L #0x8,A7 00021cb4 28 5f |(_ | MOVEA.L (A7)+,A4 00021cb6 de fc 00 1c | | ADDA.W #0x1c,A7 00021cba 60 00 05 da |` | BRA 0x22296 00021cbe switch@0x21916[0x22]: 00021cbe 41 fa e9 96 |A | LEA.L 0x20656,A0 00021cc2 70 0a |p | MOVEQ.L #0x0a,D0 00021cc4 3f 20 |? | MOVE.W -(A0),-(A7) 00021cc6 51 c8 ff fc |Q | DBF D0,0x21cc4 00021cca 60 00 fe 6a |` j | BRA 0x21b36 00021cce switch@0x21916[0x23]: 00021cce 41 fa e9 a4 |A | LEA.L 0x20674,A0 00021cd2 70 0e |p | MOVEQ.L #0x0e,D0 00021cd4 3f 20 |? | MOVE.W -(A0),-(A7) 00021cd6 51 c8 ff fc |Q | DBF D0,0x21cd4 00021cda 60 00 fd d2 |` | BRA 0x21aae 00021cde switch@0x21916[0x24]: 00021cde 41 fa e9 a6 |A | LEA.L 0x20686,A0 00021ce2 70 08 |p | MOVEQ.L #0x08,D0 00021ce4 3f 20 |? | MOVE.W -(A0),-(A7) 00021ce6 51 c8 ff fc |Q | DBF D0,0x21ce4 00021cea 60 00 05 98 |` | BRA 0x22284 00021cee switch@0x21916[0x25]: 00021cee 9e c3 | | SUBA.W D3,A7 00021cf0 20 4f | O | MOVEA.L A7,A0 00021cf2 43 fa e9 92 |C | LEA.L 0x20686,A1 00021cf6 70 10 |p | MOVEQ.L #0x10,D0 00021cf8 10 d9 | | MOVE.B (A1)+,(A0)+ 00021cfa 51 c8 ff fc |Q | DBF D0,0x21cf8 00021cfe 59 4f |YO | SUBQ.L #0x4,A7 00021d00 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021d04 3f 01 |? | MOVE.W D1,-(A7) 00021d06 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00021d0a 60 00 05 82 |` | BRA 0x2228e 00021d0e switch@0x21916[0x26]: 00021d0e 9e c7 | | SUBA.W D7,A7 00021d10 20 4f | O | MOVEA.L A7,A0 00021d12 43 fa e9 84 |C | LEA.L 0x20698,A1 00021d16 70 0a |p | MOVEQ.L #0x0a,D0 00021d18 10 d9 | | MOVE.B (A1)+,(A0)+ 00021d1a 51 c8 ff fc |Q | DBF D0,0x21d18 00021d1e 59 4f |YO | SUBQ.L #0x4,A7 00021d20 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021d24 3f 01 |? | MOVE.W D1,-(A7) 00021d26 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00021d2a 60 00 fe 3e |` > | BRA 0x21b6a 00021d2e switch@0x21916[0x27]: 00021d2e 9e c2 | | SUBA.W D2,A7 00021d30 20 4f | O | MOVEA.L A7,A0 00021d32 43 fa e9 70 |C p | LEA.L 0x206a4,A1 00021d36 70 0e |p | MOVEQ.L #0x0e,D0 00021d38 10 d9 | | MOVE.B (A1)+,(A0)+ 00021d3a 51 c8 ff fc |Q | DBF D0,0x21d38 00021d3e 60 00 fd 22 |` " | BRA 0x21a62 00021d42 switch@0x21916[0x28]: 00021d42 41 fa e9 88 |A | LEA.L 0x206cc,A0 00021d46 70 05 |p | MOVEQ.L #0x05,D0 00021d48 2f 20 |/ | MOVE.L -(A0),-(A7) 00021d4a 51 c8 ff fc |Q | DBF D0,0x21d48 00021d4e 59 4f |YO | SUBQ.L #0x4,A7 00021d50 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021d54 3f 01 |? | MOVE.W D1,-(A7) 00021d56 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00021d5a 4e 92 |N | JSR (A2) 00021d5c 50 4f |PO | ADDQ.L #0x8,A7 00021d5e 28 5f |(_ | MOVEA.L (A7)+,A4 00021d60 de fc 00 18 | | ADDA.W #0x18,A7 00021d64 60 00 05 30 |` 0 | BRA 0x22296 00021d68 switch@0x21916[0x29]: 00021d68 9e c2 | | SUBA.W D2,A7 00021d6a 20 4f | O | MOVEA.L A7,A0 00021d6c 43 fa e9 5e |C ^ | LEA.L 0x206cc,A1 00021d70 70 0e |p | MOVEQ.L #0x0e,D0 00021d72 10 d9 | | MOVE.B (A1)+,(A0)+ 00021d74 51 c8 ff fc |Q | DBF D0,0x21d72 00021d78 60 00 fc e8 |` | BRA 0x21a62 00021d7c switch@0x21916[0x30]: 00021d7c 9e fc 00 0e | | SUBA.W #0xe,A7 00021d80 20 4f | O | MOVEA.L A7,A0 00021d82 43 fa e9 58 |C X | LEA.L 0x206dc,A1 00021d86 70 0c |p | MOVEQ.L #0x0c,D0 00021d88 10 d9 | | MOVE.B (A1)+,(A0)+ 00021d8a 51 c8 ff fc |Q | DBF D0,0x21d88 00021d8e 59 4f |YO | SUBQ.L #0x4,A7 00021d90 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021d94 3f 01 |? | MOVE.W D1,-(A7) 00021d96 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00021d9a 4e 92 |N | JSR (A2) 00021d9c 50 4f |PO | ADDQ.L #0x8,A7 00021d9e 28 5f |(_ | MOVEA.L (A7)+,A4 00021da0 de fc 00 0e | | ADDA.W #0xe,A7 00021da4 60 00 04 f0 |` | BRA 0x22296 00021da8 switch@0x21916[0x31]: 00021da8 9e c2 | | SUBA.W D2,A7 00021daa 20 4f | O | MOVEA.L A7,A0 00021dac 43 fa e9 3c |C < | LEA.L 0x206ea,A1 00021db0 70 0e |p | MOVEQ.L #0x0e,D0 00021db2 10 d9 | | MOVE.B (A1)+,(A0)+ 00021db4 51 c8 ff fc |Q | DBF D0,0x21db2 00021db8 60 00 fc a8 |` | BRA 0x21a62 00021dbc switch@0x21916[0x32]: 00021dbc 9e c3 | | SUBA.W D3,A7 00021dbe 20 4f | O | MOVEA.L A7,A0 00021dc0 43 fa e9 38 |C 8 | LEA.L 0x206fa,A1 00021dc4 70 10 |p | MOVEQ.L #0x10,D0 00021dc6 10 d9 | | MOVE.B (A1)+,(A0)+ 00021dc8 51 c8 ff fc |Q | DBF D0,0x21dc6 00021dcc 60 00 ff 30 |` 0 | BRA 0x21cfe 00021dd0 switch@0x21916[0x33]: 00021dd0 9e c5 | | SUBA.W D5,A7 00021dd2 20 4f | O | MOVEA.L A7,A0 00021dd4 43 fa e9 36 |C 6 | LEA.L 0x2070c,A1 00021dd8 70 12 |p | MOVEQ.L #0x12,D0 00021dda 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ddc 51 c8 ff fc |Q | DBF D0,0x21dda 00021de0 60 00 fc a8 |` | BRA 0x21a8a 00021de4 switch@0x21916[0x34]: 00021de4 9e c4 | | SUBA.W D4,A7 00021de6 20 4f | O | MOVEA.L A7,A0 00021de8 43 fa e9 36 |C 6 | LEA.L 0x20720,A1 00021dec 70 14 |p | MOVEQ.L #0x14,D0 00021dee 10 d9 | | MOVE.B (A1)+,(A0)+ 00021df0 51 c8 ff fc |Q | DBF D0,0x21dee 00021df4 60 00 fd 02 |` | BRA 0x21af8 00021df8 switch@0x21916[0x35]: 00021df8 9e c3 | | SUBA.W D3,A7 00021dfa 20 4f | O | MOVEA.L A7,A0 00021dfc 43 fa e9 38 |C 8 | LEA.L 0x20736,A1 00021e00 70 10 |p | MOVEQ.L #0x10,D0 00021e02 10 d9 | | MOVE.B (A1)+,(A0)+ 00021e04 51 c8 ff fc |Q | DBF D0,0x21e02 00021e08 60 00 fe f4 |` | BRA 0x21cfe 00021e0c switch@0x21916[0x36]: 00021e0c 9e c7 | | SUBA.W D7,A7 00021e0e 20 4f | O | MOVEA.L A7,A0 00021e10 43 fa e9 36 |C 6 | LEA.L 0x20748,A1 00021e14 70 0a |p | MOVEQ.L #0x0a,D0 00021e16 10 d9 | | MOVE.B (A1)+,(A0)+ 00021e18 51 c8 ff fc |Q | DBF D0,0x21e16 00021e1c 60 00 ff 00 |` | BRA 0x21d1e 00021e20 switch@0x21916[0x41]: 00021e20 41 fa e9 46 |A F | LEA.L 0x20768,A0 00021e24 70 04 |p | MOVEQ.L #0x04,D0 00021e26 2f 20 |/ | MOVE.L -(A0),-(A7) 00021e28 51 c8 ff fc |Q | DBF D0,0x21e26 00021e2c 60 00 fc ee |` | BRA 0x21b1c 00021e30 switch@0x21916[0x47]: 00021e30 9e c6 | | SUBA.W D6,A7 00021e32 20 4f | O | MOVEA.L A7,A0 00021e34 43 fa e9 32 |C 2 | LEA.L 0x20768,A1 00021e38 70 18 |p | MOVEQ.L #0x18,D0 00021e3a 10 d9 | | MOVE.B (A1)+,(A0)+ 00021e3c 51 c8 ff fc |Q | DBF D0,0x21e3a 00021e40 60 00 fd 9a |` | BRA 0x21bdc 00021e44 switch@0x21916[0x48]: 00021e44 9e c5 | | SUBA.W D5,A7 00021e46 20 4f | O | MOVEA.L A7,A0 00021e48 43 fa e9 38 |C 8 | LEA.L 0x20782,A1 00021e4c 70 12 |p | MOVEQ.L #0x12,D0 00021e4e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021e50 51 c8 ff fc |Q | DBF D0,0x21e4e 00021e54 60 00 fc 34 |` 4 | BRA 0x21a8a 00021e58 switch@0x21916[0x50]: 00021e58 41 fa e9 62 |A b | LEA.L 0x207bc,A0 00021e5c 70 12 |p | MOVEQ.L #0x12,D0 00021e5e 3f 20 |? | MOVE.W -(A0),-(A7) 00021e60 51 c8 ff fc |Q | DBF D0,0x21e5e 00021e64 59 4f |YO | SUBQ.L #0x4,A7 00021e66 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021e6a 3f 01 |? | MOVE.W D1,-(A7) 00021e6c 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 00021e70 4e 92 |N | JSR (A2) 00021e72 50 4f |PO | ADDQ.L #0x8,A7 00021e74 28 5f |(_ | MOVEA.L (A7)+,A4 00021e76 de fc 00 26 | & | ADDA.W #0x26,A7 00021e7a 60 00 04 1a |` | BRA 0x22296 00021e7e switch@0x21916[0x51]: 00021e7e 41 fa e9 60 |A ` | LEA.L 0x207e0,A0 00021e82 70 08 |p | MOVEQ.L #0x08,D0 00021e84 2f 20 |/ | MOVE.L -(A0),-(A7) 00021e86 51 c8 ff fc |Q | DBF D0,0x21e84 00021e8a 59 4f |YO | SUBQ.L #0x4,A7 00021e8c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021e90 3f 01 |? | MOVE.W D1,-(A7) 00021e92 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7) 00021e96 4e 92 |N | JSR (A2) 00021e98 50 4f |PO | ADDQ.L #0x8,A7 00021e9a 28 5f |(_ | MOVEA.L (A7)+,A4 00021e9c de fc 00 24 | $ | ADDA.W #0x24,A7 00021ea0 60 00 03 f4 |` | BRA 0x22296 00021ea4 switch@0x21916[0x52]: 00021ea4 9e fc 00 18 | | SUBA.W #0x18,A7 00021ea8 20 4f | O | MOVEA.L A7,A0 00021eaa 43 fa e9 34 |C 4 | LEA.L 0x207e0,A1 00021eae 70 16 |p | MOVEQ.L #0x16,D0 00021eb0 10 d9 | | MOVE.B (A1)+,(A0)+ 00021eb2 51 c8 ff fc |Q | DBF D0,0x21eb0 00021eb6 59 4f |YO | SUBQ.L #0x4,A7 00021eb8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021ebc 3f 01 |? | MOVE.W D1,-(A7) 00021ebe 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00021ec2 60 00 fe 96 |` | BRA 0x21d5a 00021ec6 switch@0x21916[0x53]: 00021ec6 2f 3a e9 3c |/: < | MOVE.L 0x20804,-(A7) 00021eca 2f 3a e9 34 |/: 4 | MOVE.L 0x20800,-(A7) 00021ece 2f 3a e9 2c |/: , | MOVE.L 0x207fc,-(A7) 00021ed2 2f 3a e9 24 |/: $ | MOVE.L 0x207f8,-(A7) 00021ed6 60 00 fc ae |` | BRA 0x21b86 00021eda switch@0x21916[0x54]: 00021eda 9e c6 | | SUBA.W D6,A7 00021edc 20 4f | O | MOVEA.L A7,A0 00021ede 43 fa e9 28 |C ( | LEA.L 0x20808,A1 00021ee2 70 18 |p | MOVEQ.L #0x18,D0 00021ee4 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ee6 51 c8 ff fc |Q | DBF D0,0x21ee4 00021eea 60 00 fc f0 |` | BRA 0x21bdc 00021eee switch@0x21916[0x55]: 00021eee 9e c2 | | SUBA.W D2,A7 00021ef0 20 4f | O | MOVEA.L A7,A0 00021ef2 43 fa e9 2e |C . | LEA.L 0x20822,A1 00021ef6 70 0e |p | MOVEQ.L #0x0e,D0 00021ef8 10 d9 | | MOVE.B (A1)+,(A0)+ 00021efa 51 c8 ff fc |Q | DBF D0,0x21ef8 00021efe 60 00 fb 62 |` b | BRA 0x21a62 00021f02 switch@0x21916[0x56]: 00021f02 9e fc 00 1e | | SUBA.W #0x1e,A7 00021f06 20 4f | O | MOVEA.L A7,A0 00021f08 43 fa e9 28 |C ( | LEA.L 0x20832,A1 00021f0c 70 1c |p | MOVEQ.L #0x1c,D0 00021f0e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021f10 51 c8 ff fc |Q | DBF D0,0x21f0e 00021f14 59 4f |YO | SUBQ.L #0x4,A7 00021f16 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021f1a 3f 01 |? | MOVE.W D1,-(A7) 00021f1c 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 00021f20 60 00 fb 98 |` | BRA 0x21aba 00021f24 switch@0x21916[0x60]: 00021f24 41 fa e9 4c |A L | LEA.L 0x20872,A0 00021f28 70 10 |p | MOVEQ.L #0x10,D0 00021f2a 3f 20 |? | MOVE.W -(A0),-(A7) 00021f2c 51 c8 ff fc |Q | DBF D0,0x21f2a 00021f30 60 00 fd 0a |` | BRA 0x21c3c 00021f34 switch@0x21916[0x61]: 00021f34 41 fa e9 5c |A \ | LEA.L 0x20892,A0 00021f38 70 07 |p | MOVEQ.L #0x07,D0 00021f3a 2f 20 |/ | MOVE.L -(A0),-(A7) 00021f3c 51 c8 ff fc |Q | DBF D0,0x21f3a 00021f40 59 4f |YO | SUBQ.L #0x4,A7 00021f42 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021f46 3f 01 |? | MOVE.W D1,-(A7) 00021f48 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00021f4c 60 00 fc d4 |` | BRA 0x21c22 00021f50 switch@0x21916[0x62]: 00021f50 41 fa e9 62 |A b | LEA.L 0x208b4,A0 00021f54 70 10 |p | MOVEQ.L #0x10,D0 00021f56 3f 20 |? | MOVE.W -(A0),-(A7) 00021f58 51 c8 ff fc |Q | DBF D0,0x21f56 00021f5c 60 00 fc de |` | BRA 0x21c3c 00021f60 switch@0x21916[0x63]: 00021f60 9e fc 00 2c | , | SUBA.W #0x2c,A7 00021f64 20 4f | O | MOVEA.L A7,A0 00021f66 43 fa e9 4c |C L | LEA.L 0x208b4,A1 00021f6a 70 2a |p* | MOVEQ.L #0x2a,D0 00021f6c 10 d9 | | MOVE.B (A1)+,(A0)+ 00021f6e 51 c8 ff fc |Q | DBF D0,0x21f6c 00021f72 59 4f |YO | SUBQ.L #0x4,A7 00021f74 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021f78 3f 01 |? | MOVE.W D1,-(A7) 00021f7a 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7) 00021f7e 4e 92 |N | JSR (A2) 00021f80 50 4f |PO | ADDQ.L #0x8,A7 00021f82 28 5f |(_ | MOVEA.L (A7)+,A4 00021f84 de fc 00 2c | , | ADDA.W #0x2c,A7 00021f88 60 00 03 0c |` | BRA 0x22296 00021f8c switch@0x21916[0x64]: 00021f8c 41 fa e9 84 |A | LEA.L 0x20912,A0 00021f90 70 18 |p | MOVEQ.L #0x18,D0 00021f92 3f 20 |? | MOVE.W -(A0),-(A7) 00021f94 51 c8 ff fc |Q | DBF D0,0x21f92 00021f98 59 4f |YO | SUBQ.L #0x4,A7 00021f9a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021f9e 3f 01 |? | MOVE.W D1,-(A7) 00021fa0 3f 3c 00 32 |?< 2 | MOVE.W #0x32,-(A7) 00021fa4 4e 92 |N | JSR (A2) 00021fa6 50 4f |PO | ADDQ.L #0x8,A7 00021fa8 28 5f |(_ | MOVEA.L (A7)+,A4 00021faa de fc 00 32 | 2 | ADDA.W #0x32,A7 00021fae 60 00 02 e6 |` | BRA 0x22296 00021fb2 switch@0x21916[0x65]: 00021fb2 9e fc 00 28 | ( | SUBA.W #0x28,A7 00021fb6 20 4f | O | MOVEA.L A7,A0 00021fb8 43 fa e9 58 |C X | LEA.L 0x20912,A1 00021fbc 70 26 |p& | MOVEQ.L #0x26,D0 00021fbe 10 d9 | | MOVE.B (A1)+,(A0)+ 00021fc0 51 c8 ff fc |Q | DBF D0,0x21fbe 00021fc4 59 4f |YO | SUBQ.L #0x4,A7 00021fc6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021fca 3f 01 |? | MOVE.W D1,-(A7) 00021fcc 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00021fd0 4e 92 |N | JSR (A2) 00021fd2 50 4f |PO | ADDQ.L #0x8,A7 00021fd4 28 5f |(_ | MOVEA.L (A7)+,A4 00021fd6 de fc 00 28 | ( | ADDA.W #0x28,A7 00021fda 60 00 02 ba |` | BRA 0x22296 00021fde switch@0x21916[0x66]: 00021fde 41 fa e9 82 |A | LEA.L 0x20962,A0 00021fe2 70 09 |p | MOVEQ.L #0x09,D0 00021fe4 2f 20 |/ | MOVE.L -(A0),-(A7) 00021fe6 51 c8 ff fc |Q | DBF D0,0x21fe4 00021fea 59 4f |YO | SUBQ.L #0x4,A7 00021fec 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021ff0 3f 01 |? | MOVE.W D1,-(A7) 00021ff2 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 00021ff6 60 d8 |` | BRA 0x21fd0 00021ff8 switch@0x21916[0x67]: 00021ff8 41 fa e9 84 |A | LEA.L 0x2097e,A0 00021ffc 70 06 |p | MOVEQ.L #0x06,D0 00021ffe 2f 20 |/ | MOVE.L -(A0),-(A7) 00022000 51 c8 ff fc |Q | DBF D0,0x21ffe 00022004 59 4f |YO | SUBQ.L #0x4,A7 00022006 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002200a 3f 01 |? | MOVE.W D1,-(A7) 0002200c 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 00022010 60 00 fc 9e |` | BRA 0x21cb0 00022014 switch@0x21916[0x68]: 00022014 41 fa e9 80 |A | LEA.L 0x20996,A0 00022018 70 05 |p | MOVEQ.L #0x05,D0 0002201a 2f 20 |/ | MOVE.L -(A0),-(A7) 0002201c 51 c8 ff fc |Q | DBF D0,0x2201a 00022020 60 00 fd 2c |` , | BRA 0x21d4e 00022024 switch@0x21916[0x70]: 00022024 9e c4 | | SUBA.W D4,A7 00022026 20 4f | O | MOVEA.L A7,A0 00022028 43 fa e9 6c |C l | LEA.L 0x20996,A1 0002202c 70 14 |p | MOVEQ.L #0x14,D0 0002202e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022030 51 c8 ff fc |Q | DBF D0,0x2202e 00022034 60 00 fa c2 |` | BRA 0x21af8 00022038 switch@0x21916[0x71]: 00022038 9e c3 | | SUBA.W D3,A7 0002203a 20 4f | O | MOVEA.L A7,A0 0002203c 43 fa e9 6e |C n | LEA.L 0x209ac,A1 00022040 70 10 |p | MOVEQ.L #0x10,D0 00022042 10 d9 | | MOVE.B (A1)+,(A0)+ 00022044 51 c8 ff fc |Q | DBF D0,0x22042 00022048 60 00 fc b4 |` | BRA 0x21cfe 0002204c switch@0x21916[0x72]: 0002204c 41 fa e9 8a |A | LEA.L 0x209d8,A0 00022050 70 0c |p | MOVEQ.L #0x0c,D0 00022052 3f 20 |? | MOVE.W -(A0),-(A7) 00022054 51 c8 ff fc |Q | DBF D0,0x22052 00022058 59 4f |YO | SUBQ.L #0x4,A7 0002205a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002205e 3f 01 |? | MOVE.W D1,-(A7) 00022060 3f 06 |? | MOVE.W D6,-(A7) 00022062 60 00 fb 84 |` | BRA 0x21be8 00022066 switch@0x21916[0x73]: 00022066 41 fa e9 92 |A | LEA.L 0x209fa,A0 0002206a 70 10 |p | MOVEQ.L #0x10,D0 0002206c 3f 20 |? | MOVE.W -(A0),-(A7) 0002206e 51 c8 ff fc |Q | DBF D0,0x2206c 00022072 60 00 fb c8 |` | BRA 0x21c3c 00022076 switch@0x21916[0x74]: 00022076 41 fa e9 a4 |A | LEA.L 0x20a1c,A0 0002207a 70 10 |p | MOVEQ.L #0x10,D0 0002207c 3f 20 |? | MOVE.W -(A0),-(A7) 0002207e 51 c8 ff fc |Q | DBF D0,0x2207c 00022082 60 00 fb b8 |` | BRA 0x21c3c 00022086 switch@0x21916[0x75]: 00022086 9e c3 | | SUBA.W D3,A7 00022088 20 4f | O | MOVEA.L A7,A0 0002208a 43 fa e9 90 |C | LEA.L 0x20a1c,A1 0002208e 70 10 |p | MOVEQ.L #0x10,D0 00022090 10 d9 | | MOVE.B (A1)+,(A0)+ 00022092 51 c8 ff fc |Q | DBF D0,0x22090 00022096 60 00 fc 66 |` f | BRA 0x21cfe 0002209a switch@0x21916[0x76]: 0002209a 9e c3 | | SUBA.W D3,A7 0002209c 20 4f | O | MOVEA.L A7,A0 0002209e 43 fa e9 8e |C | LEA.L 0x20a2e,A1 000220a2 70 10 |p | MOVEQ.L #0x10,D0 000220a4 10 d9 | | MOVE.B (A1)+,(A0)+ 000220a6 51 c8 ff fc |Q | DBF D0,0x220a4 000220aa 60 00 fc 52 |` R | BRA 0x21cfe 000220ae switch@0x21916[0x77]: 000220ae 2f 3a e9 9c |/: | MOVE.L 0x20a4c,-(A7) 000220b2 2f 3a e9 94 |/: | MOVE.L 0x20a48,-(A7) 000220b6 2f 3a e9 8c |/: | MOVE.L 0x20a44,-(A7) 000220ba 2f 3a e9 84 |/: | MOVE.L 0x20a40,-(A7) 000220be 60 00 fa c6 |` | BRA 0x21b86 000220c2 switch@0x21916[0x78]: 000220c2 41 fa e9 a6 |A | LEA.L 0x20a6a,A0 000220c6 70 0c |p | MOVEQ.L #0x0c,D0 000220c8 3f 20 |? | MOVE.W -(A0),-(A7) 000220ca 51 c8 ff fc |Q | DBF D0,0x220c8 000220ce 60 88 |` | BRA 0x22058 000220d0 switch@0x21916[0x79]: 000220d0 9e fc 00 1c | | SUBA.W #0x1c,A7 000220d4 20 4f | O | MOVEA.L A7,A0 000220d6 43 fa e9 92 |C | LEA.L 0x20a6a,A1 000220da 70 1a |p | MOVEQ.L #0x1a,D0 000220dc 10 d9 | | MOVE.B (A1)+,(A0)+ 000220de 51 c8 ff fc |Q | DBF D0,0x220dc 000220e2 60 00 fb c0 |` | BRA 0x21ca4 000220e6 switch@0x21916[0x80]: 000220e6 9e c3 | | SUBA.W D3,A7 000220e8 20 4f | O | MOVEA.L A7,A0 000220ea 43 fa e9 9a |C | LEA.L 0x20a86,A1 000220ee 70 10 |p | MOVEQ.L #0x10,D0 000220f0 10 d9 | | MOVE.B (A1)+,(A0)+ 000220f2 51 c8 ff fc |Q | DBF D0,0x220f0 000220f6 60 00 fc 06 |` | BRA 0x21cfe 000220fa switch@0x21916[0x81]: 000220fa 41 fa e9 ae |A | LEA.L 0x20aaa,A0 000220fe 70 08 |p | MOVEQ.L #0x08,D0 00022100 3f 20 |? | MOVE.W -(A0),-(A7) 00022102 51 c8 ff fc |Q | DBF D0,0x22100 00022106 60 00 01 7c |` | | BRA 0x22284 0002210a switch@0x21916[0x82]: 0002210a 9e fc 00 18 | | SUBA.W #0x18,A7 0002210e 20 4f | O | MOVEA.L A7,A0 00022110 43 fa e9 98 |C | LEA.L 0x20aaa,A1 00022114 70 16 |p | MOVEQ.L #0x16,D0 00022116 10 d9 | | MOVE.B (A1)+,(A0)+ 00022118 51 c8 ff fc |Q | DBF D0,0x22116 0002211c 60 00 fd 98 |` | BRA 0x21eb6 00022120 switch@0x21916[0x83]: 00022120 9e c6 | | SUBA.W D6,A7 00022122 20 4f | O | MOVEA.L A7,A0 00022124 43 fa e9 9c |C | LEA.L 0x20ac2,A1 00022128 70 18 |p | MOVEQ.L #0x18,D0 0002212a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002212c 51 c8 ff fc |Q | DBF D0,0x2212a 00022130 60 00 fa aa |` | BRA 0x21bdc 00022134 switch@0x21916[0x84]: 00022134 41 fa e9 be |A | LEA.L 0x20af4,A0 00022138 70 05 |p | MOVEQ.L #0x05,D0 0002213a 2f 20 |/ | MOVE.L -(A0),-(A7) 0002213c 51 c8 ff fc |Q | DBF D0,0x2213a 00022140 60 00 fc 0c |` | BRA 0x21d4e 00022144 switch@0x21916[0x85]: 00022144 41 fa e9 ca |A | LEA.L 0x20b10,A0 00022148 70 06 |p | MOVEQ.L #0x06,D0 0002214a 2f 20 |/ | MOVE.L -(A0),-(A7) 0002214c 51 c8 ff fc |Q | DBF D0,0x2214a 00022150 60 00 fe b2 |` | BRA 0x22004 00022154 switch@0x21916[0x86]: 00022154 41 fa e9 d2 |A | LEA.L 0x20b28,A0 00022158 70 05 |p | MOVEQ.L #0x05,D0 0002215a 2f 20 |/ | MOVE.L -(A0),-(A7) 0002215c 51 c8 ff fc |Q | DBF D0,0x2215a 00022160 60 00 fb ec |` | BRA 0x21d4e 00022164 switch@0x21916[0x87]: 00022164 9e c4 | | SUBA.W D4,A7 00022166 20 4f | O | MOVEA.L A7,A0 00022168 43 fa e9 be |C | LEA.L 0x20b28,A1 0002216c 70 14 |p | MOVEQ.L #0x14,D0 0002216e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022170 51 c8 ff fc |Q | DBF D0,0x2216e 00022174 60 00 f9 82 |` | BRA 0x21af8 00022178 switch@0x21916[0x89]: 00022178 9e c4 | | SUBA.W D4,A7 0002217a 20 4f | O | MOVEA.L A7,A0 0002217c 43 fa e9 c0 |C | LEA.L 0x20b3e,A1 00022180 70 14 |p | MOVEQ.L #0x14,D0 00022182 10 d9 | | MOVE.B (A1)+,(A0)+ 00022184 51 c8 ff fc |Q | DBF D0,0x22182 00022188 60 00 f9 6e |` n | BRA 0x21af8 0002218c switch@0x21916[0x90]: 0002218c 41 fa e9 de |A | LEA.L 0x20b6c,A0 00022190 70 05 |p | MOVEQ.L #0x05,D0 00022192 2f 20 |/ | MOVE.L -(A0),-(A7) 00022194 51 c8 ff fc |Q | DBF D0,0x22192 00022198 60 00 fb b4 |` | BRA 0x21d4e 0002219c switch@0x21916[0x91]: 0002219c 41 fa e9 e0 |A | LEA.L 0x20b7e,A0 000221a0 70 08 |p | MOVEQ.L #0x08,D0 000221a2 3f 20 |? | MOVE.W -(A0),-(A7) 000221a4 51 c8 ff fc |Q | DBF D0,0x221a2 000221a8 60 00 00 da |` | BRA 0x22284 000221ac switch@0x21916[0x92]: 000221ac 9e fc 00 30 | 0 | SUBA.W #0x30,A7 000221b0 20 4f | O | MOVEA.L A7,A0 000221b2 43 fa e9 ca |C | LEA.L 0x20b7e,A1 000221b6 70 2e |p. | MOVEQ.L #0x2e,D0 000221b8 10 d9 | | MOVE.B (A1)+,(A0)+ 000221ba 51 c8 ff fc |Q | DBF D0,0x221b8 000221be 59 4f |YO | SUBQ.L #0x4,A7 000221c0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000221c4 3f 01 |? | MOVE.W D1,-(A7) 000221c6 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 000221ca 4e 92 |N | JSR (A2) 000221cc 50 4f |PO | ADDQ.L #0x8,A7 000221ce 28 5f |(_ | MOVEA.L (A7)+,A4 000221d0 de fc 00 30 | 0 | ADDA.W #0x30,A7 000221d4 60 00 00 c0 |` | BRA 0x22296 000221d8 switch@0x21916[0x93]: 000221d8 41 fa ea 06 |A | LEA.L 0x20be0,A0 000221dc 70 18 |p | MOVEQ.L #0x18,D0 000221de 3f 20 |? | MOVE.W -(A0),-(A7) 000221e0 51 c8 ff fc |Q | DBF D0,0x221de 000221e4 60 00 fd b2 |` | BRA 0x21f98 000221e8 switch@0x21916[0x94]: 000221e8 41 fa ea 08 |A | LEA.L 0x20bf2,A0 000221ec 70 08 |p | MOVEQ.L #0x08,D0 000221ee 3f 20 |? | MOVE.W -(A0),-(A7) 000221f0 51 c8 ff fc |Q | DBF D0,0x221ee 000221f4 60 00 00 8e |` | BRA 0x22284 000221f8 switch@0x21916[0x95]: 000221f8 9e fc 00 34 | 4 | SUBA.W #0x34,A7 000221fc 20 4f | O | MOVEA.L A7,A0 000221fe 43 fa e9 f2 |C | LEA.L 0x20bf2,A1 00022202 70 32 |p2 | MOVEQ.L #0x32,D0 00022204 10 d9 | | MOVE.B (A1)+,(A0)+ 00022206 51 c8 ff fc |Q | DBF D0,0x22204 0002220a 59 4f |YO | SUBQ.L #0x4,A7 0002220c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022210 3f 01 |? | MOVE.W D1,-(A7) 00022212 3f 3c 00 33 |?< 3 | MOVE.W #0x33,-(A7) 00022216 4e 92 |N | JSR (A2) 00022218 50 4f |PO | ADDQ.L #0x8,A7 0002221a 28 5f |(_ | MOVEA.L (A7)+,A4 0002221c de fc 00 34 | 4 | ADDA.W #0x34,A7 00022220 60 74 |`t | BRA 0x22296 00022222 switch@0x21916[0x96]: 00022222 2f 3a ea 0e |/: | MOVE.L 0x20c32,-(A7) 00022226 2f 3a ea 06 |/: | MOVE.L 0x20c2e,-(A7) 0002222a 2f 3a e9 fe |/: | MOVE.L 0x20c2a,-(A7) 0002222e 2f 3a e9 f6 |/: | MOVE.L 0x20c26,-(A7) 00022232 60 00 f9 52 |` R | BRA 0x21b86 00022236 switch@0x21916[0x97]: 00022236 41 fa ea 2a |A * | LEA.L 0x20c62,A0 0002223a 70 0a |p | MOVEQ.L #0x0a,D0 0002223c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002223e 51 c8 ff fc |Q | DBF D0,0x2223c 00022242 59 4f |YO | SUBQ.L #0x4,A7 00022244 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022248 3f 01 |? | MOVE.W D1,-(A7) 0002224a 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7) 0002224e 60 00 fd 2e |` . | BRA 0x21f7e 00022252 switch@0x21916[0x98]: 00022252 41 fa ea 26 |A & | LEA.L 0x20c7a,A0 00022256 70 05 |p | MOVEQ.L #0x05,D0 00022258 2f 20 |/ | MOVE.L -(A0),-(A7) 0002225a 51 c8 ff fc |Q | DBF D0,0x22258 0002225e 60 00 fa ee |` | BRA 0x21d4e 00022262 switch@0x21916[0x99]: 00022262 9e fc 00 18 | | SUBA.W #0x18,A7 00022266 20 4f | O | MOVEA.L A7,A0 00022268 43 fa ea 10 |C | LEA.L 0x20c7a,A1 0002226c 70 16 |p | MOVEQ.L #0x16,D0 0002226e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022270 51 c8 ff fc |Q | DBF D0,0x2226e 00022274 60 00 fc 40 |` @ | BRA 0x21eb6 00022278 switch@0x21916[0x19]: 00022278 switch@0x21916[0x1a]: 00022278 switch@0x21916[0x1b]: 00022278 switch@0x21916[0x1c]: 00022278 switch@0x21916[0x1d]: 00022278 switch@0x21916[0x1e]: 00022278 switch@0x21916[0x1f]: 00022278 switch@0x21916[0x2a]: 00022278 switch@0x21916[0x2b]: 00022278 switch@0x21916[0x2c]: 00022278 switch@0x21916[0x2d]: 00022278 switch@0x21916[0x2e]: 00022278 switch@0x21916[0x2f]: 00022278 switch@0x21916[0x37]: 00022278 switch@0x21916[0x38]: 00022278 switch@0x21916[0x39]: 00022278 switch@0x21916[0x3a]: 00022278 switch@0x21916[0x3b]: 00022278 switch@0x21916[0x3c]: 00022278 switch@0x21916[0x3d]: 00022278 switch@0x21916[0x3e]: 00022278 switch@0x21916[0x3f]: 00022278 switch@0x21916[0x40]: 00022278 switch@0x21916[0x42]: 00022278 switch@0x21916[0x43]: 00022278 switch@0x21916[0x44]: 00022278 switch@0x21916[0x45]: 00022278 switch@0x21916[0x46]: 00022278 switch@0x21916[0x49]: 00022278 switch@0x21916[0x4a]: 00022278 switch@0x21916[0x4b]: 00022278 switch@0x21916[0x4c]: 00022278 switch@0x21916[0x4d]: 00022278 switch@0x21916[0x4e]: 00022278 switch@0x21916[0x4f]: 00022278 switch@0x21916[0x57]: 00022278 switch@0x21916[0x58]: 00022278 switch@0x21916[0x59]: 00022278 switch@0x21916[0x5a]: 00022278 switch@0x21916[0x5b]: 00022278 switch@0x21916[0x5c]: 00022278 switch@0x21916[0x5d]: 00022278 switch@0x21916[0x5e]: 00022278 switch@0x21916[0x5f]: 00022278 switch@0x21916[0x69]: 00022278 switch@0x21916[0x6a]: 00022278 switch@0x21916[0x6b]: 00022278 switch@0x21916[0x6c]: 00022278 switch@0x21916[0x6d]: 00022278 switch@0x21916[0x6e]: 00022278 switch@0x21916[0x6f]: 00022278 switch@0x21916[0x7a]: 00022278 switch@0x21916[0x7b]: 00022278 switch@0x21916[0x7c]: 00022278 switch@0x21916[0x7d]: 00022278 switch@0x21916[0x7e]: 00022278 switch@0x21916[0x7f]: 00022278 switch@0x21916[0x88]: 00022278 switch@0x21916[0x8a]: 00022278 switch@0x21916[0x8b]: 00022278 switch@0x21916[0x8c]: 00022278 switch@0x21916[0x8d]: 00022278 switch@0x21916[0x8e]: 00022278 switch@0x21916[0x8f]: 00022278 switch@0x21916[0xa]: 00022278 switch@0x21916[0xb]: 00022278 switch@0x21916[0xc]: 00022278 switch@0x21916[0xd]: 00022278 switch@0x21916[0xe]: 00022278 switch@0x21916[0xf]: 00022278 41 fa ea 2a |A * | LEA.L 0x20ca4,A0 0002227c 70 08 |p | MOVEQ.L #0x08,D0 0002227e 3f 20 |? | MOVE.W -(A0),-(A7) 00022280 51 c8 ff fc |Q | DBF D0,0x2227e 00022284 59 4f |YO | SUBQ.L #0x4,A7 00022286 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002228a 3f 01 |? | MOVE.W D1,-(A7) 0002228c 3f 03 |? | MOVE.W D3,-(A7) 0002228e 4e 92 |N | JSR (A2) 00022290 50 4f |PO | ADDQ.L #0x8,A7 00022292 28 5f |(_ | MOVEA.L (A7)+,A4 00022294 de c3 | | ADDA.W D3,A7 00022296 3f 3a ea 0c |?: | MOVE.W 0x20ca4,-(A7) 0002229a 59 4f |YO | SUBQ.L #0x4,A7 0002229c 2f 0c |/ | MOVE.L A4,-(A7) 0002229e 59 4f |YO | SUBQ.L #0x4,A7 000222a0 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000222a4 3f 01 |? | MOVE.W D1,-(A7) 000222a6 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000222aa 4e 92 |N | JSR (A2) 000222ac 54 4f |TO | ADDQ.L #0x2,A7 000222ae 3e ae 00 08 |> | MOVE.W (A6+0x8),(A7) 000222b2 4e ba ea fc |N | JSR 0x20db0 000222b6 54 4f |TO | ADDQ.L #0x2,A7 000222b8 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000222be de c7 | | ADDA.W D7,A7 000222c0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000222c6 5c 4f |\O | ADDQ.L #0x6,A7 000222c8 4c df 17 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A4 000222cc 4e 5e |N^ | UNLK A6 000222ce 4e 75 |Nu | RTS 000222d0 ; -------------------------------------------------------------------------------------- 000222d0 ; OMSI PASCAL Function 000222d0 ; -------------------------------------------------------------------------------------- 000222d0 START: 000222d0 4f fa 00 08 |O | LEA.L MAIN,A7 000222d4 4e f9 00 01 02 80 |N | JMP ?start_program 000222da MAIN: 000222da 43 f9 00 02 25 aa |C % | LEA.L 0x225aa,A1 000222e0 45 f9 00 02 25 a8 |E % | LEA.L 0x225a8,A2 000222e6 47 f9 00 02 25 a4 |G % | LEA.L 0x225a4,A3 000222ec 49 f9 00 02 25 a6 |I % | LEA.L 0x225a6,A4 000222f2 32 3c 00 ff |2< | MOVE.W #0xff,D1 000222f6 4e b9 00 01 03 98 |N | JSR FSCALL_10398 000222fc 48 52 |HR | PEA.L (A2) 000222fe 4e ba f5 16 |N | JSR 0x21816 00022302 58 4f |XO | ADDQ.L #0x4,A7 00022304 48 53 |HS | PEA.L (A3) 00022306 48 54 |HT | PEA.L (A4) 00022308 4e ba ef de |N | JSR 0x212e8 0002230c 5c 4f |\O | ADDQ.L #0x6,A7 0002230e 3e 92 |> | MOVE.W (A2),(A7) 00022310 30 13 |0 | MOVE.W (A3),D0 00022312 41 81 |A | CHK.W D1,D0 00022314 3f 00 |? | MOVE.W D0,-(A7) 00022316 30 14 |0 | MOVE.W (A4),D0 00022318 41 81 |A | CHK.W D1,D0 0002231a 3f 00 |? | MOVE.W D0,-(A7) 0002231c 48 51 |HQ | PEA.L (A1) 0002231e 48 79 00 02 25 ac |Hy % | PEA.L 0x225ac 00022324 4e ba f4 8c |N | JSR 0x217b2 00022328 de fc 00 0e | | ADDA.W #0xe,A7 0002232c 30 11 |0 | MOVE.W (A1),D0 0002232e 41 81 |A | CHK.W D1,D0 00022330 3f 00 |? | MOVE.W D0,-(A7) 00022332 4e ba f5 aa |N | JSR 0x218de 00022336 54 4f |TO | ADDQ.L #0x2,A7 00022338 4a 51 |JQ | TST.W (A1) 0002233a 67 44 |gD | BEQ 0x22380 0002233c 41 fa e9 7e |A ~ | LEA.L 0x20cbc,A0 00022340 70 0a |p | MOVEQ.L #0x0a,D0 00022342 3f 20 |? | MOVE.W -(A0),-(A7) 00022344 51 c8 ff fc |Q | DBF D0,0x22342 00022348 51 4f |QO | SUBQ.L #0x8,A7 0002234a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002234e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022352 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00022356 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002235c 58 4f |XO | ADDQ.L #0x4,A7 0002235e 30 39 00 02 25 ac |09 % | MOVE.W 0x225ac,D0 00022364 41 81 |A | CHK.W D1,D0 00022366 3f 00 |? | MOVE.W D0,-(A7) 00022368 4e ba ea 46 |N F | JSR 0x20db0 0002236c 54 4f |TO | ADDQ.L #0x2,A7 0002236e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022374 50 4f |PO | ADDQ.L #0x8,A7 00022376 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002237c de fc 00 1a | | ADDA.W #0x1a,A7 00022380 60 82 |` | BRA 0x22304 00022382 42 27 48 78 00 01 |B'Hx | .XXX[0x6] 00022388 4e b9 00 01 03 b8 5c 4f |N \O| .XXX[0x8] 00022390 4e b9 00 01 02 84 |N | .XXX[0x6] 00022396 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 000223a4 ; -------------------------------------------------------------------------------------- 000223a4 ; OMSI PASCAL Function 000223a4 ; <LVAR 0x008 1(r)> 000223a4 ; -------------------------------------------------------------------------------------- 000223a4 PROG_FAIL: 000223a4 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 000223a8 bf d5 | | CMPA.L (A5),A7 000223aa 62 06 |b | BHI 0x223b2 000223ac 44 fc 00 02 |D | MOVE.W #0x2,CCR 000223b0 4e 76 |Nv | TRAPV 000223b2 de fc 00 2c | , | ADDA.W #0x2c,A7 000223b6 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000223ba 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 000223be 70 06 |p | MOVEQ.L #0x06,D0 000223c0 3f 20 |? | MOVE.W -(A0),-(A7) 000223c2 51 c8 ff fc |Q | DBF D0,0x223c0 000223c6 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000223ca 51 4f |QO | SUBQ.L #0x8,A7 000223cc 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000223d0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000223d4 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000223d8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000223de 58 4f |XO | ADDQ.L #0x4,A7 000223e0 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000223e4 48 80 |H | EXTB.W D0 000223e6 48 c0 |H | EXTW.L D0 000223e8 2f 00 |/ | MOVE.L D0,-(A7) 000223ea 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000223f0 58 4f |XO | ADDQ.L #0x4,A7 000223f2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000223f8 50 4f |PO | ADDQ.L #0x8,A7 000223fa 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00022400 de fc 00 14 | | ADDA.W #0x14,A7 00022404 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00022408 4e 5e |N^ | UNLK A6 0002240a 4e 75 |Nu | RTS 0002240c 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 0002241a 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00022428 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00022436 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00022448 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00022460 ; -------------------------------------------------------------------------------------- 00022460 ; OMSI PASCAL Function 00022460 ; <LVAR 0x00e 1(r)> 00022460 ; <LVAR 0x00a 4(r)> 00022460 ; <LVAR 0x008 1(r)> 00022460 ; -------------------------------------------------------------------------------------- 00022460 EXP_FAIL: 00022460 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00022464 bf d5 | | CMPA.L (A5),A7 00022466 62 06 |b | BHI 0x2246e 00022468 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002246c 4e 76 |Nv | TRAPV 0002246e de fc 00 74 | t | ADDA.W #0x74,A7 00022472 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00022476 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 0002247c 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00022482 72 01 |r | MOVEQ.L #0x01,D1 00022484 74 0d |t | MOVEQ.L #0x0d,D2 00022486 76 1e |v | MOVEQ.L #0x1e,D3 00022488 78 12 |x | MOVEQ.L #0x12,D4 0002248a 7a 0e |z | MOVEQ.L #0x0e,D5 0002248c 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00022492 41 fa ff b4 |A | LEA.L 0x22448,A0 00022496 70 08 |p | MOVEQ.L #0x08,D0 00022498 3f 20 |? | MOVE.W -(A0),-(A7) 0002249a 51 c8 ff fc |Q | DBF D0,0x22498 0002249e 59 4f |YO | SUBQ.L #0x4,A7 000224a0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000224a4 3f 01 |? | MOVE.W D1,-(A7) 000224a6 3f 04 |? | MOVE.W D4,-(A7) 000224a8 4e 93 |N | JSR (A3) 000224aa 50 4f |PO | ADDQ.L #0x8,A7 000224ac 4e 94 |N | JSR (A4) 000224ae 50 4f |PO | ADDQ.L #0x8,A7 000224b0 20 4f | O | MOVEA.L A7,A0 000224b2 43 fa ff 58 |C X | LEA.L 0x2240c,A1 000224b6 70 0c |p | MOVEQ.L #0x0c,D0 000224b8 10 d9 | | MOVE.B (A1)+,(A0)+ 000224ba 51 c8 ff fc |Q | DBF D0,0x224b8 000224be 51 4f |QO | SUBQ.L #0x8,A7 000224c0 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000224c4 3f 01 |? | MOVE.W D1,-(A7) 000224c6 3f 02 |? | MOVE.W D2,-(A7) 000224c8 4e 93 |N | JSR (A3) 000224ca 54 4f |TO | ADDQ.L #0x2,A7 000224cc 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000224d0 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000224d6 54 4f |TO | ADDQ.L #0x2,A7 000224d8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000224de 50 4f |PO | ADDQ.L #0x8,A7 000224e0 4e 94 |N | JSR (A4) 000224e2 de c4 | | ADDA.W D4,A7 000224e4 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000224e8 b0 c1 | | CMPA.W D1,A0 000224ea 67 48 |gH | BEQ 0x22534 000224ec 9e c5 | | SUBA.W D5,A7 000224ee 22 4f |"O | MOVEA.L A7,A1 000224f0 45 fa ff 28 |E ( | LEA.L 0x2241a,A2 000224f4 70 0c |p | MOVEQ.L #0x0c,D0 000224f6 12 da | | MOVE.B (A2)+,(A1)+ 000224f8 51 c8 ff fc |Q | DBF D0,0x224f6 000224fc 9e c3 | | SUBA.W D3,A7 000224fe 22 4f |"O | MOVEA.L A7,A1 00022500 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00022504 70 1d |p | MOVEQ.L #0x1d,D0 00022506 12 d8 | | MOVE.B (A0)+,(A1)+ 00022508 51 c8 ff fc |Q | DBF D0,0x22506 0002250c 51 4f |QO | SUBQ.L #0x8,A7 0002250e 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00022512 3f 01 |? | MOVE.W D1,-(A7) 00022514 3f 02 |? | MOVE.W D2,-(A7) 00022516 4e 93 |N | JSR (A3) 00022518 58 4f |XO | ADDQ.L #0x4,A7 0002251a 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002251e 3f 01 |? | MOVE.W D1,-(A7) 00022520 3f 03 |? | MOVE.W D3,-(A7) 00022522 4e 93 |N | JSR (A3) 00022524 50 4f |PO | ADDQ.L #0x8,A7 00022526 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002252c 50 4f |PO | ADDQ.L #0x8,A7 0002252e 4e 94 |N | JSR (A4) 00022530 de fc 00 30 | 0 | ADDA.W #0x30,A7 00022534 9e c5 | | SUBA.W D5,A7 00022536 20 4f | O | MOVEA.L A7,A0 00022538 43 fa fe ee |C | LEA.L 0x22428,A1 0002253c 70 0c |p | MOVEQ.L #0x0c,D0 0002253e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022540 51 c8 ff fc |Q | DBF D0,0x2253e 00022544 51 4f |QO | SUBQ.L #0x8,A7 00022546 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002254a 3f 01 |? | MOVE.W D1,-(A7) 0002254c 3f 02 |? | MOVE.W D2,-(A7) 0002254e 4e 93 |N | JSR (A3) 00022550 54 4f |TO | ADDQ.L #0x2,A7 00022552 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00022556 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 0002255c 54 4f |TO | ADDQ.L #0x2,A7 0002255e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022564 50 4f |PO | ADDQ.L #0x8,A7 00022566 4e 94 |N | JSR (A4) 00022568 5d 4f |]O | SUBQ.L #0x6,A7 0002256a 20 4f | O | MOVEA.L A7,A0 0002256c 43 fa fe da |C | LEA.L 0x22448,A1 00022570 70 16 |p | MOVEQ.L #0x16,D0 00022572 10 d9 | | MOVE.B (A1)+,(A0)+ 00022574 51 c8 ff fc |Q | DBF D0,0x22572 00022578 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002257c 59 4f |YO | SUBQ.L #0x4,A7 0002257e 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00022582 3f 01 |? | MOVE.W D1,-(A7) 00022584 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00022588 4e 93 |N | JSR (A3) 0002258a 50 4f |PO | ADDQ.L #0x8,A7 0002258c 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00022592 de c3 | | ADDA.W D3,A7 00022594 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00022598 4e 5e |N^ | UNLK A6 0002259a 4e 75 |Nu | RTS