|
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: 14848 (0x3a00)
Types: M200
Notes: @(#)STARTER,2.2,92/05/01,16:25:00, M200_PROGRAM
Names: »PROGRAM_0.M200«, »STARTER.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »PROGRAM_0.M200«
└─ ⟦this⟧ »STARTER.M200«
@ 2124c
<LVAR 0x008 4(w)>
<LVAR -0x004 @>
<LVAR -0x00c @ 4(r)>
<POP 2124c-212da Body>
<POP 2124c-21262 Prologue> Σ0 ↓
<POP 21262-2126a RegCacheLoad> Σ0 ↓
<POP 2126a-21282 Naked> Σ0 ↓
<Pointer.fp 0x2126a <LVAR -0x004 @>> Δ-4 {[@@-4]}
<Call 0x2126e 0x1059e> {[@@-4]}
ReadClusterNo(VAR a : Long)
<POP 21274-21276 StackAdj> Δ+4 {}
<Pointer.fp 0x21276 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x21278 0x102b8> {[@@-12]}
NewString(VAR a : String)
<POP 2127e-21280 StackAdj> Δ+4 {}
<MI 21280 MOVEQ.L #0x00,D7> {}
<POP 21282-212ce Naked> Σ0 ↓ →0x21282 ←0x21282
<POP 0x21282 LimitCheck 0x0 ≤ D7 ≤ 0x3> {}
<MI 21288 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<MI 2128a CLR.L D0> {[4, '(A6-0xc)']}
<MI 2128c MOVE.B (A6+D7.L-#0x4),D0> {[4, '(A6-0xc)']}
<MI 21290 ASR.W #0x4,D0> {[4, '(A6-0xc)']}
<POP 0x21292 LimitCheck 0x0 ≤ D0 ≤ 0xf> {[4, '(A6-0xc)']}
<MI 21298 LEA.L 0x2012c,A0> {[4, '(A6-0xc)']}
<MI 2129c MOVE.B (A0+D0.W),-(A7)> Δ-2 {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
<Call 0x212a0 0x102c0> {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
AppendChar(MOD b : String; a : char)
<POP 212a6-212a8 StackAdj> Δ+2 {[4, '(A6-0xc)']}
<MI 212a8 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<MI 212aa CLR.L D0> {[4, '(A6-0xc)']}
<MI 212ac MOVE.B (A6+D7.L-#0x4),D0> {[4, '(A6-0xc)']}
<MI 212b0 AND.W #0x0f,D0> {[4, '(A6-0xc)']}
<POP 0x212b2 LimitCheck 0x0 ≤ D0 ≤ 0xf> {[4, '(A6-0xc)']}
<MI 212b8 LEA.L 0x2012c,A0> {[4, '(A6-0xc)']}
<MI 212bc MOVE.B (A0+D0.W),-(A7)> Δ-2 {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
<Call 0x212c0 0x102c0> {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
AppendChar(MOD b : String; a : char)
<POP 212c6-212c8 StackAdj> Δ+6 {}
<MI 212c8 ADDQ.L #0x1,D7> {}
<MI 212ca CMP.L #0x03,D7> {}
<MI 212cc BLE 0x21282> {}
<POP 212ce-212d2 Naked> Σ0 ↓
<MI 212ce MOVE.L (A6-0xc),(A6+0x8)> {}
<POP 212d2-212da Epilogue> Σ0
@ 212da
<LVAR -0x004 @>
<POP 212da-2147a Body>
<POP 212da-212f0 Prologue> Σ0 ↓
<POP 212f0-21300 RegCacheLoad> Σ0 ↓
<POP 21300-2130e Naked> Σ0 ↓ →0x21472
<MI 21300 MOVE.B 0x2393f,D0> {}
<MI 21306 LSL.B #0x7,D0> {}
<MI 21308 LSR.B #0x7,D0> {}
<MI 2130a BEQ 0x21472> {}
<POP 2130e-21326 Naked> Σ0 Δ-2 ↓ →0x21356
<POP 2130e-21310 StackAdj> Δ-2 {[-2-]}
<Const 0x21310 0x180.4> Δ-4 {[-2-]|[##384]}
<Call 0x21314 0x10592> {[-2-]|[##384]}
ReadConfig(where : Long) : Word
<POP 2131a-2131c StackAdj> Δ+4 {[-2-]}
<MI 2131c MOVE.B (A7+0x1),D0> {[-2-]}
<MI 21320 CMPI.B #0x58,D0> {[-2-]}
<MI 21324 BNE 0x21356> {[-2-]}
<POP 21326-21356 Naked> Σ-2 →0x21380
<Blob 0x21326 [2] @> Δ-2 {[-2-]|[«2""»]}
<Blob 0x2132a [2] @> Δ-2 {[-2-]|[«2""»]|[«2""»]}
<Blob 0x2132e [2] @> Δ-2 {[-2-]|[«2""»]|[«2""»]|[«2""»]}
<POP 21332-21334 StackAdj> Δ-4 {[-2-]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x21334 6> {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]}
<Const 0x21342 0x1.4> Δ-4 {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]}
<Const 0x21344 0x1.2> Δ-2 {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]}
<Pointer.fp 0x21346 <LVAR -0x004 @>> Δ-4 {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]|[@@-4]}
<Call 0x2134a 0x103b0> {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 21350-21354 StackAdj> Δ+20 {[-2-]}
<MI 21354 BRA 0x21380> {[-2-]}
<POP 21356-21380 Naked> Σ-2 ↓ ←0x2130e
<Blob 0x21356 [4] @> Δ-4 {[-2-]|[«4""»]}
<Blob 0x2135a [4] @> Δ-4 {[-2-]|[«4""»]|[«4""»]}
<POP 2135e-21360 StackAdj> Δ-4 {[-2-]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21360 8> {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]}
<Const 0x2136e 0x1.4> Δ-4 {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]}
<Const 0x21370 0x1.2> Δ-2 {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]}
<Pointer.fp 0x21372 <LVAR -0x004 @>> Δ-4 {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]|[@@-4]}
<Call 0x21376 0x103b0> {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 2137c-21380 StackAdj> Δ+22 {[-2-]}
<POP 21380-21390 Naked> Σ-2 Δ+2 ↓ →0x21472 ←0x21326
<POP 21380-21382 StackAdj> Δ-2 {[-4-]}
<Call 0x21382 0x103f8> {[-4-]}
GetConsoleConfig() : Long
<MI 21388 MOVE.L (A7)+,D0> Δ+4 {}
<MI 2138a CMP.L #0x01,D0> {}
<MI 2138c BEQ 0x21472> {}
<POP 21390-213c6 Naked> Σ0 ↓
<Blob 0x21390 [46] @> Δ-46 {[«46""»]}
<POP 2139c-2139e StackAdj> Δ-8 {[«46""»]|[-8-]}
<Lit 0x2139e 46> {[«46""»]|[-4-]|[$$Starting remote diagnostics from Cluster id =>]}
<POP 213aa-213ac StackAdj> Δ-4 {[«46""»]|[-4-]|[$$Starting remote diagnostics from Cluster id =>]|[-4-]}
<Call 0x213ac 0x2124c> {[«46""»]|[-4-]|[$$Starting remote diagnostics from Cluster id =>]|[-4-]}
<Call 0x213b0 0x102d0> {[«46""»]|[-4-]|[$$Starting remote diagnostics from Cluster id =>]|[-4-]}
StringCat2(a, b : String) : String
<POP 213b6-213b8 StackAdj> Δ+8 {[«46""»]|[-4-]}
<Call 0x213b8 0x103e0> {[«46""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 213be-213c2 StackAdj> Δ+50 {}
<MI 213c2 MOVEQ.L #0x00,D7> {}
<MI 213c4 MOVEQ.L #0x00,D6> {}
<POP 213c6-213fa Naked> Σ0 ↓ →0x2142c ←0x21430
<Blob 0x213c6 [26] @> Δ-26 {[«26""»]}
<POP 213d6-213d8 StackAdj> Δ-6 {[«26""»]|[-6-]}
<Lit 0x213d8 25> {[«26""»]|[-2-]|[$$Are you ready to continue]}
<POP 213e2-213e4 StackAdj> Δ-2 {[«26""»]|[-2-]|[$$Are you ready to continue]|[-2-]}
<POP 213e4-213e5 StackAdj> Δ+2 {[«26""»]|[-2-]|[$$Are you ready to continue]}
<Const 0x213e5 0x1.2> Δ-2 {[«26""»]|[-2-]|[$$Are you ready to continue]|[#1]}
<Call 0x213e6 0x103f0> {[«26""»]|[-2-]|[$$Are you ready to continue]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 213ec-213ee StackAdj> Δ+6 {[«26""»]|[-2-]}
<MI 213ee MOVE.B (A7)+,D0> Δ+2 {[«26""»]}
<MI 213f0 EXTB.W D0> {[«26""»]}
<POP 0x213f2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«26""»]}
<POP 213f4-213f6 StackAdj> Δ+26 {}
<MI 213f6 MOVE.B D0,D7> {}
<MI 213f8 BNE 0x2142c> {}
<POP 213fa-2142c Naked> Σ0 ↓
<Blob 0x213fa [26] @> Δ-26 {[«26""»]}
<POP 2140a-2140c StackAdj> Δ-6 {[«26""»]|[-6-]}
<Lit 0x2140c 25> {[«26""»]|[-2-]|[$$Do you want do disconnect]}
<POP 21416-21418 StackAdj> Δ-2 {[«26""»]|[-2-]|[$$Do you want do disconnect]|[-2-]}
<POP 21418-21419 StackAdj> Δ+2 {[«26""»]|[-2-]|[$$Do you want do disconnect]}
<Const 0x21419 0x1.2> Δ-2 {[«26""»]|[-2-]|[$$Do you want do disconnect]|[#1]}
<Call 0x2141a 0x103f0> {[«26""»]|[-2-]|[$$Do you want do disconnect]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 21420-21422 StackAdj> Δ+6 {[«26""»]|[-2-]}
<MI 21422 MOVE.B (A7)+,D0> Δ+2 {[«26""»]}
<MI 21424 EXTB.W D0> {[«26""»]}
<POP 0x21426 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«26""»]}
<POP 21428-2142a StackAdj> Δ+26 {}
<MI 2142a MOVE.B D0,D6> {}
<POP 2142c-21430 Naked> Σ0 ↓ →0x21434 ←0x213c6
<MI 2142c TST.B D7> {}
<MI 2142e BNE 0x21434> {}
<POP 21430-21434 Naked> Σ0 ↓ →0x213c6
<MI 21430 TST.B D6> {}
<MI 21432 BEQ 0x213c6> {}
<POP 21434-21438 Naked> Σ0 ↓ →0x21472 ←0x2142c
<MI 21434 TST.B D6> {}
<MI 21436 BEQ 0x21472> {}
<POP 21438-21472 Naked> Σ0 ↓
<Call 0x21438 0x10216> {}
KC0b
<Const 0x2143e 0x1.4> Δ-4 {[##1]}
<Call 0x21440 0x103f4> {[##1]}
SetConsoleConfig(a : Long)
<POP 21446-21447 StackAdj> Δ+4 ↓ {}
<Blob 0x21447 [34] @> Δ-34 {[«34""»]}
<POP 21458-2145a StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x2145a 33> {[«34""»]|[$$Rational Service has disconnected]}
<Call 0x21468 0x103e0> {[«34""»]|[$$Rational Service has disconnected]}
WriteConsoleStringCrLf(str : String)
<POP 2146e-21472 StackAdj> Δ+38 {}
<POP 21472-2147a Epilogue> Σ0 ←0x21300 ←0x21380 ←0x21434
@ 2147a
<LVAR -0x004 @ 1(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c @ 4(r)>
<POP 2147a-21546 Body>
<POP 2147a-21490 Prologue> Σ0 ↓
<POP 21490-21496 RegCacheLoad> Σ0 ↓
<POP 21496-214ae Naked> Σ0 ↓ →0x214b0 ←0x21538
<Pointer.fp 0x21496 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x21498 0x10304> {[@@-12]}
GetRtc() : TimeStamp
<POP 2149e-214a0 StackAdj> Δ+4 {}
<MI 214a0 MOVEQ.L #0x00,D7> {}
<MI 214a2 MOVE.W (A6-0xa),D0> {}
<MI 214a6 LSL.W #0x7,D0> {}
<MI 214a8 LSR.W #0x8,D0> {}
<MI 214aa LSR.W #0x4,D0> {}
<MI 214ac BEQ 0x214b0> {}
<POP 214ae-214b0 Naked> Σ0 ↓
<MI 214ae ADDQ.B #0x1,D7> {}
<POP 214b0-214b6 Naked> Σ0 ↓ →0x21538 ←0x21496
<MI 214b0 TST.B D7> {}
<MI 214b2 BNE 0x21538> {}
<POP 214b6-21502 Naked> Σ0 ↓ →0x2150e
<Blob 0x214b6 [60] @> Δ-60 {[«60""»]}
<POP 214c8-214ca StackAdj> Δ-8 {[«60""»]|[-8-]}
<Lit 0x214ca 59> {[«60""»]|[-4-]|[$$Please enter current date and time as HH:MM:SS DD-MMM-YY :_]}
<Call 0x214dc 0x103e4> {[«60""»]|[-4-]|[$$Please enter current date and time as HH:MM:SS DD-MMM-YY :_]}
AskConsoleString(prompt : String) : String
<POP 214e2-214e4 StackAdj> Δ+4 {[«60""»]|[-4-]}
<MI 214e4 MOVEA.L (A7)+,A4> Δ+4 {[«60""»]}
<POP 214e6-214ea StackAdj> Δ+56 {[-4-]}
<MI 214ea MOVE.L A4,(A7)> {[4, 'A4']}
<Pointer.fp 0x214ec <LVAR -0x00c @ 4(r)>> Δ-4 {[4, 'A4']|[@@-12]}
<Pointer.fp 0x214ee <LVAR -0x004 @ 1(r)>> Δ-4 {[4, 'A4']|[@@-12]|[@@-4]}
<Call 0x214f2 0x10310> {[4, 'A4']|[@@-12]|[@@-4]}
ConvertTimestamp(MOD input : String; b : L; VAR status : Bool)
<POP 214f8-214fc StackAdj> Δ+12 {}
<MI 214fc TST.B (A6-0x4)> {}
<MI 21500 BEQ 0x2150e> {}
<POP 21502-2150e Naked> Σ0 →0x21538
<MI 21502 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Call 0x21504 0x1030c> {[4, '(A6-0xc)']}
SetRtc(a: TimeStamp)
<POP 2150a-2150c StackAdj> Δ+4 {}
<MI 2150c BRA 0x21538> {}
<POP 2150e-21538 Naked> Σ0 ↓ ←0x214b6
<Blob 0x2150e [44] @> Δ-44 {[«44""»]}
<POP 2151a-2151c StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x2151c 44> {[«44""»]|[$$Illegal value or incorret format, try again.]}
<Call 0x2152e 0x103e0> {[«44""»]|[$$Illegal value or incorret format, try again.]}
WriteConsoleStringCrLf(str : String)
<POP 21534-21538 StackAdj> Δ+48 {}
<POP 21538-2153e Naked> Σ0 ↓ →0x21496 ←0x214b0 ←0x21502
<MI 21538 TST.B D7> {}
<MI 2153a BEQ 0x21496> {}
<POP 2153e-21546 Epilogue> Σ0
@ 21546
<LVAR -0x004 @ 1(r)>
<LVAR -0x006 @ 2(r)>
<LVAR -0x008 @ 1(r)>
<POP 21546-21778 Body> Δ+64
<POP 21546-2155c Prologue> Σ0 ↓
<POP 2155c-21572 RegCacheLoad> Σ0 ↓
<POP 21572-215c0 Naked> Σ0 ↓ →0x215f8
<Blob 0x21572 [40] @> Δ-40 {[«40""»]}
<POP 21584-21586 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x21586 39> {[«40""»]|[$$Initializing diagnostic file system ...]}
<Call 0x21594 0x103d8> {[«40""»]|[$$Initializing diagnostic file system ...]}
WriteConsoleString(str : String)
<POP 2159a-2159c StackAdj> Δ+42 {[-2-]}
<POP 2159c-2159d StackAdj> Δ+2 {}
<Const 0x2159d 0x20.2> Δ-2 {[#32]}
<Call 0x215a0 0x103d0> {[#32]}
WriteConsoleChar(chr : char)
<POP 215a6-215a8 StackAdj> Δ+2 {}
<Pointer.fp 0x215a8 <LVAR -0x008 @ 1(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x215ac <LVAR -0x006 @ 2(r)>> Δ-4 {[@@-8]|[@@-6]}
<Call 0x215b0 0x10200> {[@@-8]|[@@-6]}
KC00_GetBootDev(VAR a : Byte; VAR b : Word)
<POP 215b6-215b8 StackAdj> Δ+8 {}
<MI 215b8 MOVE.B (A6-0x8),D0> {}
<MI 215bc CMP.B #0x02,D0> {}
<MI 215be BEQ 0x215f8> {}
<POP 215c0-215f8 Naked> Σ0 ↓
<Call 0x215c0 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x215c6 [42] @> Δ-42 {[«42""»]}
<POP 215d6-215d8 StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x215d8 41> {[«42""»]|[$$File system starter not booted from disk.]}
<Call 0x215e6 0x103e0> {[«42""»]|[$$File system starter not booted from disk.]}
WriteConsoleStringCrLf(str : String)
<POP 215e8-215ec StackAdj> Δ+46 {}
<Const 0x215ec 0x10.4> Δ-4 {[##16]}
<Call 0x215f0 0x10220> {[##16]}
KC10_Panic(code : Long)
<POP 215f6-215f8 StackAdj> Δ+4 {}
<POP 215f8-21612 Naked> Σ0 ↓ →0x2174c ←0x21572
<MI 215f8 MOVE.W (A6-0x6),D0> {}
<POP 0x215fc LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 21600 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x21602 <LVAR -0x004 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-4]}
<Call 0x21604 0x10394> {[2, 'D0']|[@@-4]}
MountDisk(drive : Word ; VAR status : Byte)
<POP 2160a-2160c StackAdj> Δ+6 {}
<MI 2160c TST.B (A6-0x4)> {}
<MI 2160e BEQ 0x2174c> {}
<POP 21612-21626 Naked> Σ0 ↓ →0x216fa
<Call 0x21612 0x103dc> {}
WriteConsoleCrLf(void)
<MI 21618 MOVE.B (A6-0x4),D0> {}
<MI 2161a EXTB.W D0> {}
<MI 2161c SUBI.W #0x000c,D0> {}
<MI 21620 CMP.W #0x02,D0> {}
<MI 21622 BHI 0x216fa> {}
<POP 21626-21630 Naked> Σ0 →0x21636 →0x2167e →0x216b4
<MI 21626 ADD.W D0,D0> {}
<MI 21628 SWITCH D0.W> {}
<POP 21636-21664 Naked> Σ0 Δ-64 ↓ ←0x21626
<Blob 0x21636 [64] @> Δ-64 {[«64""»]}
<POP 21642-21644 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x21644 64> {[«64""»]|[$$Hard disk errors in diagnostic filesystem labels on boot device.]}
<Call 0x21652 0x103e0> {[«64""»]|[$$Hard disk errors in diagnostic filesystem labels on boot device.]}
WriteConsoleStringCrLf(str : String)
<POP 21654-21655 StackAdj> Δ+68 ↓ {}
<Blob 0x21655 [64] @> Δ-64 {[«64""»]}
<POP 21664-2167e Naked> Σ-64 Δ+64 →0x21740 ←0x2167e
<POP 21664-21666 StackAdj> Δ-4 {[-68-]}
<Lit 0x21666> {[-64-]|[$$…]}
<Pointer.sp 0x21666 4> Δ-4
<Const 0x2166a 0x1.2> Δ-2
<Const 0x2166c 0x3f.2> Δ-2
<Call 0x21670 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21672-21674 StackAdj> Δ+8
<Call 0x21674 0x103e0> {[-64-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 21676-2167a StackAdj> Δ+68 {}
<MI 2167a BRA 0x21740> {}
<POP 2167e-216b4 Naked> Σ0 Δ-64 →0x21664 ←0x21626
<Blob 0x2167e [54] @> Δ-54 {[«54""»]}
<POP 21690-21692 StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x21692 53> {[«54""»]|[$$No diagnostic filesystem labels found on boot device.]}
<Call 0x216a0 0x103e0> {[«54""»]|[$$No diagnostic filesystem labels found on boot device.]}
WriteConsoleStringCrLf(str : String)
<POP 216a2-216a3 StackAdj> Δ+58 ↓ {}
<Blob 0x216a3 [64] @> Δ-64 {[«64""»]}
<MI 216b2 BRA 0x21664> {[«64""»]}
<POP 216b4-216fa Naked> Σ0 →0x21740 ←0x21626
<Blob 0x216b4 [52] @> Δ-52 {[«52""»]}
<POP 216c0-216c2 StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x216c2 52> {[«52""»]|[$$No diagnostic file system is installed on boot unit.]}
<Call 0x216d0 0x103e0> {[«52""»]|[$$No diagnostic file system is installed on boot unit.]}
WriteConsoleStringCrLf(str : String)
<POP 216d2-216d3 StackAdj> Δ+56 ↓ {}
<Blob 0x216d3 [62] @> Δ-62 {[«62""»]}
<POP 216e2-216e4 StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x216e4 61> {[«62""»]|[$$This disk unit is not bootable. Re-boot from different unit.]}
<Call 0x216f2 0x103e0> {[«62""»]|[$$This disk unit is not bootable. Re-boot from different unit.]}
WriteConsoleStringCrLf(str : String)
<POP 216f4-216f8 StackAdj> Δ+66 {}
<MI 216f8 BRA 0x21740> {}
<POP 216fa-21740 Naked> Σ0 ↓ ←0x21612
<Blob 0x216fa [58] @> Δ-58 {[«58""»]}
<POP 21706-21708 StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x21708 58> {[«58""»]|[$$Unknown fault during diagnostic filesystem initialization.]}
<Call 0x21716 0x103e0> {[«58""»]|[$$Unknown fault during diagnostic filesystem initialization.]}
WriteConsoleStringCrLf(str : String)
<POP 21718-21719 StackAdj> Δ+62 ↓ {}
<Blob 0x21719 [34] @> Δ-34 {[«34""»]}
<POP 2172a-2172c StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x2172c 33> {[«34""»]|[$$Contact Rational customer support]}
<Call 0x2173a 0x103e0> {[«34""»]|[$$Contact Rational customer support]}
WriteConsoleStringCrLf(str : String)
<POP 2173c-21740 StackAdj> Δ+38 {}
<POP 21740-2174c Naked> Σ0 ↓ ←0x21664 ←0x216b4
<Const 0x21740 0x11.4> Δ-4 {[##17]}
<Call 0x21744 0x10220> {[##17]}
KC10_Panic(code : Long)
<POP 2174a-2174c StackAdj> Δ+4 {}
<POP 2174c-21770 Naked> Σ0 ↓ ←0x215f8
<Call 0x2174c 0x103a4> {}
Open_ERROR_LOG(void)
<Call 0x21752 0x105e6> {}
Set_fc04_to_01(void)
<Blob 0x21758 [4] @> Δ-4 {[«4""»]}
<POP 2175c-2175e StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x2175e 4> {[«4""»]|[$$[OK]]}
<Call 0x2176c 0x103e0> {[«4""»]|[$$[OK]]}
WriteConsoleStringCrLf(str : String)
<POP 2176e-21770 StackAdj> Δ+8 {}
<POP 21770-21778 Epilogue> Σ0
@ 21778
<LVAR -0x001 1(r)>
<LVAR -0x002 1(r)>
<LVAR -0x003 1(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x006 @ 2(r)>
<LVAR -0x008 @ 2(r)>
<LVAR -0x40c 2(w)>
<LVAR -0x40e @>
<LVAR -0x412 @ 4(r)>
<LVAR -0x414 @ 1(r)>
<LVAR -0x41c @ 4(rw)>
<LVAR -0x420 @ 4(rw)>
<POP 21778-21a0a Body>
<POP 21778-2178e Prologue> Σ0 ↓
<POP 2178e-217a2 RegCacheLoad> Σ0 ↓
<POP 217a2-217e4 Naked> Σ0 ↓ →0x217fa
<Blob 0x217a2 [10] @> Δ-10 {[«10""»]}
<POP 217b2-217b4 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x217b4 9> {[«10""»]|[$$IOP_DUMP4]}
<MI 217c6 MOVE.L (A7)+,(A6-0x420)> Δ+4 {[«10""»]}
<POP 217c8-217ca StackAdj> Δ+6 {[-4-]}
<MI 217ca MOVE.L (A6-0x420),(A7)> {[4, '(A6-0x420)']}
<MI 217cc CLR.B -(A7)> Δ-2 {[4, '(A6-0x420)']|[#0]}
<MI 217ce CLR.B -(A7)> Δ-2 {[4, '(A6-0x420)']|[#0]|[#0]}
<Const 0x217d0 0x0.4> Δ-4 {[4, '(A6-0x420)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x217d4 <LVAR -0x414 @ 1(r)>> Δ-4 {[4, '(A6-0x420)']|[#0]|[#0]|[##0]|[@@-1044]}
<Pointer.fp 0x217d6 <LVAR -0x412 @ 4(r)>> Δ-4 {[4, '(A6-0x420)']|[#0]|[#0]|[##0]|[@@-1044]|[@@-1042]}
<Call 0x217d8 0x10380> {[4, '(A6-0x420)']|[#0]|[#0]|[##0]|[@@-1044]|[@@-1042]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 217de-217e0 StackAdj> Δ+20 {}
<MI 217e0 TST.B (A6-0x414)> {}
<MI 217e2 BNE 0x217fa> {}
<POP 217e4-217fa Naked> Σ0 ↓
<Const 0x217e4 0x2.2> Δ-2 {[#2]}
<Const 0x217e8 0x1.2> Δ-2 {[#2]|[#1]}
<Const 0x217ea 0x1.4> Δ-4 {[#2]|[#1]|[##1]}
<Pointer.fp 0x217ee <LVAR -0x414 @ 1(r)>> Δ-4 {[#2]|[#1]|[##1]|[@@-1044]}
<Pointer.fp 0x217f0 <LVAR -0x412 @ 4(r)>> Δ-4 {[#2]|[#1]|[##1]|[@@-1044]|[@@-1042]}
<Call 0x217f2 0x1038c> {[#2]|[#1]|[##1]|[@@-1044]|[@@-1042]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 217f8-217fa StackAdj> Δ+16 {}
<POP 217fa-21806 Naked> Σ0 ↓ ←0x217a2
<Pointer.fp 0x217fa <LVAR -0x420 @ 4(rw)>> Δ-4 {[@@-1056]}
<Call 0x217fc 0x102bc> {[@@-1056]}
FreeString(VAR a : String)
<POP 21802-21804 StackAdj> Δ+4 {}
<MI 21804 MOVEQ.L #0x03,D7> {}
<POP 21806-21886 Naked> Σ0 ↓ →0x21922 ←0x21922
<Blob 0x21806 [4] @> Δ-4 {[«4""»]}
<Blob 0x2180a [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 2180e-21810 StackAdj> Δ-8 {[«4""»]|[«4""»]|[-8-]}
<Lit 0x21810 8> {[«4""»]|[«4""»]|[-4-]|[$$IOP_DUMP]}
<MI 21820 MOVE.L D7,(A7)> {[«4""»]|[«4""»]|[-4-]|[4, 'D7']}
<POP 2181a-21820 StackAdj> Δ-8 {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x21822 0x102e4> {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<POP 21828-2182a StackAdj> Δ+4 {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-4-]}
<Call 0x2182a 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-4-]}
StringCat2(a, b : String) : String
<POP 21830-21832 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 21832 MOVE.L (A7)+,(A6-0x420)> Δ+4 {[«4""»]|[«4""»]}
<POP 21834-21836 StackAdj> Δ+4 {[«4""»]}
<POP 21836-21837 StackAdj> Δ+4 {}
<Blob 0x21837 [4] @> Δ-4 {[«4""»]}
<Blob 0x2183a [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 2183e-21840 StackAdj> Δ-8 {[«4""»]|[«4""»]|[-8-]}
<Lit 0x21840 8> {[«4""»]|[«4""»]|[-4-]|[$$IOP_DUMP]}
<MI 21850 MOVE.L D7,(A7)> {[«4""»]|[«4""»]|[-4-]|[4, 'D7']}
<POP 2184a-21850 StackAdj> Δ-8 {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
<MI 21852 ADDQ.L #0x1,(A7)> {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x21854 0x102e4> {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<POP 2185a-2185c StackAdj> Δ+4 {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-4-]}
<Call 0x2185c 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-4-]}
StringCat2(a, b : String) : String
<POP 21862-21864 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 21864 MOVE.L (A7)+,(A6-0x41c)> Δ+4 {[«4""»]|[«4""»]}
<POP 21868-2186a StackAdj> Δ+4 {[«4""»]}
<MI 2186a MOVE.L (A6-0x420),(A7)> {[4, '(A6-0x420)']}
<MI 2186c CLR.B -(A7)> Δ-2 {[4, '(A6-0x420)']|[#0]}
<MI 2186e CLR.B -(A7)> Δ-2 {[4, '(A6-0x420)']|[#0]|[#0]}
<Const 0x21870 0x0.4> Δ-4 {[4, '(A6-0x420)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x21874 <LVAR -0x414 @ 1(r)>> Δ-4 {[4, '(A6-0x420)']|[#0]|[#0]|[##0]|[@@-1044]}
<Pointer.fp 0x21876 <LVAR -0x412 @ 4(r)>> Δ-4 {[4, '(A6-0x420)']|[#0]|[#0]|[##0]|[@@-1044]|[@@-1042]}
<Call 0x21878 0x10380> {[4, '(A6-0x420)']|[#0]|[#0]|[##0]|[@@-1044]|[@@-1042]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 2187e-21880 StackAdj> Δ+20 {}
<MI 21880 TST.B (A6-0x414)> {}
<MI 21882 BNE 0x21922> {}
<POP 21886-2188c Naked> Σ0 ↓ →0x2190e
<MI 21886 TST.L D7> {}
<MI 21888 BNE 0x2190e> {}
<POP 2188c-2190e Naked> Σ0 ↓
<POP 2188c-2188e StackAdj> Δ-2 {[-2-]}
<Call 0x2188e 0x105ec> {[-2-]}
Get_fc05() : Byte
<MI 21894 MOVE.B (A7)+,D0> Δ+2 {}
<MI 21896 EXTB.W D0> {}
<MI 21898 EXTW.L D0> {}
<POP 0x2189a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 218a4 MOVE.W D0,D6> {}
<MI 218a6 MOVE.L (A6-0x412),-(A7)> Δ-4 {[4, '(A6-0x412)']}
<MI 218a8 CLR.W -(A7)> Δ-2 {[4, '(A6-0x412)']|[#0]}
<MI 218aa CLR.W -(A7)> Δ-2 {[4, '(A6-0x412)']|[#0]|[#0]}
<Const 0x218ac 0x200.2> Δ-2 {[4, '(A6-0x412)']|[#0]|[#0]|[#512]}
<Const 0x218b0 0x1.2> Δ-2 {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]}
<MI 218b2 LEA.L (A6-0x40e),A0> {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]}
<MI 218b6 MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']}
<Pointer.fp 0x218b8 <LVAR -0x414 @ 1(r)>> Δ-4 {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1044]}
<Call 0x218ba 0x10384> {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1044]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 218c0-218c2 StackAdj> Δ+20 {}
<MI 218c2 MOVE.W D6,(A6-0x40c)> {}
<MI 218c6 MOVE.L (A6-0x412),-(A7)> Δ-4 {[4, '(A6-0x412)']}
<MI 218c8 CLR.W -(A7)> Δ-2 {[4, '(A6-0x412)']|[#0]}
<MI 218ca CLR.W -(A7)> Δ-2 {[4, '(A6-0x412)']|[#0]|[#0]}
<Const 0x218cc 0x200.2> Δ-2 {[4, '(A6-0x412)']|[#0]|[#0]|[#512]}
<Const 0x218d0 0x1.2> Δ-2 {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]}
<MI 218d2 LEA.L (A6-0x40e),A0> {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]}
<MI 218d6 MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']}
<Pointer.fp 0x218d8 <LVAR -0x414 @ 1(r)>> Δ-4 {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1044]}
<Call 0x218da 0x10388> {[4, '(A6-0x412)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1044]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 218e0-218e2 StackAdj> Δ+20 {}
<Pointer.fp 0x218e2 <LVAR -0x004 @ 1(r)>> Δ-4 {[@@-4]}
<Call 0x218e6 0x10304> {[@@-4]}
GetRtc() : TimeStamp
<POP 218ec-218ee StackAdj> Δ+4 {}
<MI 218ee MOVEA.L (A6-0x412),A0> {}
<MI 218f0 MOVE.B (A6-0x4),(A0+0x3a)> {}
<MI 218f6 MOVE.B (A6-0x3),(A0+0x3b)> {}
<MI 218fc MOVE.B (A6-0x2),(A0+0x3c)> {}
<MI 21902 MOVE.B (A6-0x1),(A0+0x3d)> {}
<MI 21908 ANDI.B #0xfe,(A0+0x3f)> {}
<POP 2190e-21922 Naked> Σ0 ↓ ←0x21886
<Const 0x2190e 0x1.2> Δ-2 {[#1]}
<Const 0x21910 0x1.2> Δ-2 {[#1]|[#1]}
<MI 21912 MOVE.L (A6-0x41c),-(A7)> Δ-4 {[#1]|[#1]|[4, '(A6-0x41c)']}
<Pointer.fp 0x21916 <LVAR -0x414 @ 1(r)>> Δ-4 {[#1]|[#1]|[4, '(A6-0x41c)']|[@@-1044]}
<Pointer.fp 0x21918 <LVAR -0x412 @ 4(r)>> Δ-4 {[#1]|[#1]|[4, '(A6-0x41c)']|[@@-1044]|[@@-1042]}
<Call 0x2191a 0x1038c> {[#1]|[#1]|[4, '(A6-0x41c)']|[@@-1044]|[@@-1042]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 21920-21922 StackAdj> Δ+16 {}
<POP 21922-2193e Naked> Σ0 ↓ →0x21806 ←0x21806
<Pointer.fp 0x21922 <LVAR -0x420 @ 4(rw)>> Δ-4 {[@@-1056]}
<Call 0x21924 0x102bc> {[@@-1056]}
FreeString(VAR a : String)
<POP 2192a-2192c StackAdj> Δ+4 {}
<Pointer.fp 0x2192c <LVAR -0x41c @ 4(rw)>> Δ-4 {[@@-1052]}
<Call 0x21930 0x102bc> {[@@-1052]}
FreeString(VAR a : String)
<POP 21936-21938 StackAdj> Δ+4 {}
<MI 21938 SUBQ.L #0x1,D7> {}
<MI 2193a BGE 0x21806> {}
<POP 2193e-21988 Naked> Σ0 ↓ →0x219cc
<Blob 0x2193e [10] @> Δ-10 {[«10""»]}
<POP 2194e-21950 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x21950 9> {[«10""»]|[$$IOP_DUMP0]}
<MI 21962 MOVE.L (A7)+,(A6-0x41c)> Δ+4 {[«10""»]}
<POP 21966-21968 StackAdj> Δ+10 {}
<MI 21968 MOVE.L #0xfffffc00,D5> {}
<MI 2196e MOVE.L (A6-0x41c),-(A7)> Δ-4 {[4, '(A6-0x41c)']}
<Const 0x21972 0x1.2> Δ-2 {[4, '(A6-0x41c)']|[#1]}
<Const 0x21974 0x1.2> Δ-2 {[4, '(A6-0x41c)']|[#1]|[#1]}
<MI 21976 MOVE.L D5,-(A7)> Δ-4 {[4, '(A6-0x41c)']|[#1]|[#1]|[4, 'D5']}
<Pointer.fp 0x21978 <LVAR -0x414 @ 1(r)>> Δ-4 {[4, '(A6-0x41c)']|[#1]|[#1]|[4, 'D5']|[@@-1044]}
<Pointer.fp 0x2197a <LVAR -0x412 @ 4(r)>> Δ-4 {[4, '(A6-0x41c)']|[#1]|[#1]|[4, 'D5']|[@@-1044]|[@@-1042]}
<Call 0x2197c 0x10380> {[4, '(A6-0x41c)']|[#1]|[#1]|[4, 'D5']|[@@-1044]|[@@-1042]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 21982-21984 StackAdj> Δ+20 {}
<MI 21984 TST.B (A6-0x414)> {}
<MI 21986 BNE 0x219cc> {}
<POP 21988-219cc Naked> Σ0 →0x219f6
<MI 21988 MOVEA.L (A6-0x412),A0> {}
<MI 2198a MOVE.W (A0+0x24),-(A7)> Δ-2 {[2, '(A0+0x24)']}
<Pointer.fp 0x2198e <LVAR -0x008 @ 2(r)>> Δ-4 {[2, '(A0+0x24)']|[@@-8]}
<Pointer.fp 0x21992 <LVAR -0x006 @ 2(r)>> Δ-4 {[2, '(A0+0x24)']|[@@-8]|[@@-6]}
<Call 0x21996 0x10368> {[2, '(A0+0x24)']|[@@-8]|[@@-6]}
Lba2Chs(lba : W; VAR cyl : W ; VAR hd_sec : W)
<POP 2199c-2199e StackAdj> Δ+8 {[2, '(A0+0x24)']}
<MI 2199e MOVE.W (A6-0x8),(A7)> {[2, '(A6-0x8)']}
<MI 219a2 MOVE.W (A6-0x6),-(A7)> Δ-2 {[2, '(A6-0x8)']|[2, '(A6-0x6)']}
<Call 0x219a6 0x10202> {[2, '(A6-0x8)']|[2, '(A6-0x6)']}
KC01_DumpOn
<POP 219ac-219ae StackAdj> Δ+4 {}
<MI 219ae OR.B #0x01,(A0+0x3f)> {}
<MI 219b2 MOVE.B #0x01,(A0+0x4c)> {}
<MI 219b6 CLR.B -(A7)> Δ-2 {[#0]}
<MI 219b8 CLR.B -(A7)> Δ-2 {[#0]|[#0]}
<Const 0x219ba 0x1.4> Δ-4 {[#0]|[#0]|[##1]}
<Pointer.fp 0x219be <LVAR -0x414 @ 1(r)>> Δ-4 {[#0]|[#0]|[##1]|[@@-1044]}
<Pointer.fp 0x219c0 <LVAR -0x412 @ 4(r)>> Δ-4 {[#0]|[#0]|[##1]|[@@-1044]|[@@-1042]}
<Call 0x219c2 0x1038c> {[#0]|[#0]|[##1]|[@@-1044]|[@@-1042]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 219c8-219ca StackAdj> Δ+16 {}
<MI 219ca BRA 0x219f6> {}
<POP 219cc-219f6 Naked> Σ0 ↓ ←0x2193e
<Blob 0x219cc [54] @> Δ-54 {[«54""»]}
<POP 219d8-219da StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x219da 54> {[«54""»]|[$$*** could not create IOP_DUMP0 file (see reason above)]}
<Call 0x219ec 0x103e0> {[«54""»]|[$$*** could not create IOP_DUMP0 file (see reason above)]}
WriteConsoleStringCrLf(str : String)
<POP 219f2-219f6 StackAdj> Δ+58 {}
<POP 219f6-21a02 Naked> Σ0 ↓ ←0x21988
<Pointer.fp 0x219f6 <LVAR -0x41c @ 4(rw)>> Δ-4 {[@@-1052]}
<Call 0x219fa 0x102bc> {[@@-1052]}
FreeString(VAR a : String)
<POP 21a00-21a02 StackAdj> Δ+4 {}
<POP 21a02-21a0a Epilogue> Σ0
@ 21a0a
<LVAR 0x00a 1(w)>
<LVAR 0x008 1(r)>
<POP 21a0a-21a38 Body>
<POP 21a0a-21a20 Prologue> Σ0 ↓
<POP 21a20-21a30 Naked> Σ0 ↓
<MI 21a20 MOVE.B (A6+0x8),D0> {}
<MI 21a24 EXTB.W D0> {}
<MI 21a26 LEA.L 0x20f5c,A0> {}
<MI 21a2a MOVE.B (A0+D0.W),(A6+0xa)> {}
<POP 21a30-21a38 Epilogue> Σ0
@ 21a38
<LVAR 0x008 1(r)>
<LVAR -0x002 @ 1(r)>
<POP 21a38-21b26 Body>
<POP 21a38-21a4e Prologue> Σ0 ↓
<POP 21a4e-21a64 RegCacheLoad> Σ0 ↓
<POP 21a64-21a76 Naked> Σ0 ↓ →0x21a84
<Call 0x21a64 0x103dc> {}
WriteConsoleCrLf(void)
<MI 21a6a MOVE.B 0x2393f,D0> {}
<MI 21a70 LSL.B #0x3,D0> {}
<MI 21a72 LSR.B #0x7,D0> {}
<MI 21a74 BEQ 0x21a84> {}
<POP 21a76-21a7c Naked> Σ0 ↓ →0x21a84
<MI 21a76 TST.B (A6+0x8)> {}
<MI 21a7a BEQ 0x21a84> {}
<POP 21a7c-21a84 Naked> Σ0 ↓ →0x21ad2
<MI 21a7c TST.B 0x23941> {}
<MI 21a82 BEQ 0x21ad2> {}
<POP 21a84-21ad2 Naked> Σ0 →0x21b1e ←0x21a64 ←0x21a76
<Blob 0x21a84 [10] @> Δ-10 {[«10""»]}
<Blob 0x21a94 [12] @> Δ-12 {[«10""»]|[«12""»]}
<POP 21aa6-21aa8 StackAdj> Δ-4 {[«10""»]|[«12""»]|[-4-]}
<Lit 0x21aa8 9> {[«10""»]|[«12""»]|[$$CRASHSAVE]}
<POP 21ab2-21ab4 StackAdj> Δ-4 {[«10""»]|[«12""»]|[$$CRASHSAVE]|[-4-]}
<Lit 0x21ab4 11> {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]}
<POP 21ac0-21ac2 StackAdj> Δ-2 {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]|[-2-]}
<POP 21ac2-21ac3 StackAdj> Δ+2 {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]}
<Const 0x21ac3 0x1.2> Δ-2 {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]|[#1]}
<Pointer.fp 0x21ac4 <LVAR -0x002 @ 1(r)>> Δ-4 {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]|[#1]|[@@-2]}
<Call 0x21ac6 0x103b0> {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]|[#1]|[@@-2]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 21acc-21ad0 StackAdj> Δ+36 {}
<MI 21ad0 BRA 0x21b1e> {}
<POP 21ad2-21b1c Naked> Σ0 ↓ →0x21b1e ←0x21a7c
<Blob 0x21ad2 [10] @> Δ-10 {[«10""»]}
<Blob 0x21ae2 [10] @> Δ-10 {[«10""»]|[«10""»]}
<POP 21aee-21af0 StackAdj> Δ-4 {[«10""»]|[«10""»]|[-4-]}
<Lit 0x21af0 9> {[«10""»]|[«10""»]|[$$CRASHSAVE]}
<POP 21afa-21afc StackAdj> Δ-4 {[«10""»]|[«10""»]|[$$CRASHSAVE]|[-4-]}
<Lit 0x21afc 10> {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]}
<POP 21b06-21b08 StackAdj> Δ-2 {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]|[-2-]}
<POP 21b08-21b09 StackAdj> Δ+2 {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]}
<Const 0x21b09 0x1.2> Δ-2 {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]|[#1]}
<Pointer.fp 0x21b0a <LVAR -0x002 @ 1(r)>> Δ-4 {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]|[#1]|[@@-2]}
<Call 0x21b0c 0x103b0> {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]|[#1]|[@@-2]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 21b12-21b16 StackAdj> Δ+34 {}
<MI 21b16 CLR.B 0x23948> {}
<MI 21b18 TST.B (A6-0x2)> {}
<MI 21b1a BNE 0x21b1e> {}
<POP 21b1c-21b1e Naked> Σ0 ↓
<MI 21b1c ADDQ.B #0x1,0x23948> {}
<POP 21b1e-21b26 Epilogue> Σ0 ←0x21a84 ←0x21ad2
@ 21b26
<LVAR -0x004 @ 1(r)>
<POP 21b26-21c30 Body>
<POP 21b26-21b3c Prologue> Σ0 ↓
<POP 21b3c-21b4c RegCacheLoad> Σ0 ↓
<POP 21b4c-21b54 Naked> Σ0 ↓ →0x21b82
<MI 21b4c TST.B 0x23948> {}
<MI 21b52 BNE 0x21b82> {}
<POP 21b54-21b82 Naked> Σ0 →0x21c1e
<Blob 0x21b54 [64] @> Δ-64 {[«64""»]}
<POP 21b64-21b66 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x21b66 63> {[«64""»]|[$$>>> Can't make a CRASHDUMP because a full CRASHSAVE wasn't made]}
<Call 0x21b74 0x103e0> {[«64""»]|[$$>>> Can't make a CRASHDUMP because a full CRASHSAVE wasn't made]}
WriteConsoleStringCrLf(str : String)
<POP 21b7a-21b7e StackAdj> Δ+68 {}
<MI 21b7e BRA 0x21c1e> {}
<POP 21b82-21b8a Naked> Σ0 ↓ →0x21bb2 ←0x21b4c
<MI 21b82 TST.B 0x23949> {}
<MI 21b88 BEQ 0x21bb2> {}
<POP 21b8a-21bb2 Naked> Σ0 →0x21c1e
<Blob 0x21b8a [66] @> Δ-66 {[«66""»]}
<POP 21b96-21b98 StackAdj> Δ-4 {[«66""»]|[-4-]}
<Lit 0x21b98 66> {[«66""»]|[$$>>> Can't make a CRASHDUMP because the uDIAG or FRU tests were run]}
<Call 0x21ba6 0x103e0> {[«66""»]|[$$>>> Can't make a CRASHDUMP because the uDIAG or FRU tests were run]}
WriteConsoleStringCrLf(str : String)
<POP 21bac-21bb0 StackAdj> Δ+70 {}
<MI 21bb0 BRA 0x21c1e> {}
<POP 21bb2-21c1c Naked> Σ0 ↓ →0x21c1e ←0x21b82
<Blob 0x21bb2 [64] @> Δ-64 {[«64""»]}
<POP 21bbe-21bc0 StackAdj> Δ-6 {[«64""»]|[-6-]}
<Lit 0x21bc0 64> {[«64""»]|[-2-]|[$$Do you want to AUTO BOOT the R1000 after the crash dump is taken]}
<POP 21bca-21bcc StackAdj> Δ-2 {[«64""»]|[-2-]|[$$Do you want to AUTO BOOT the R1000 after the crash dump is taken]|[-2-]}
<MI 21bcc CLR.B (A7)> {[«64""»]|[-2-]|[$$Do you want to AUTO BOOT the R1000 after the crash dump is taken]|[-2-]}
<Call 0x21bce 0x103f0> {[«64""»]|[-2-]|[$$Do you want to AUTO BOOT the R1000 after the crash dump is taken]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 21bd4-21bd6 StackAdj> Δ+6 {[«64""»]|[-2-]}
<MI 21bd6 MOVE.B (A7)+,D0> Δ+2 {[«64""»]}
<MI 21bd8 EXTB.W D0> {[«64""»]}
<POP 0x21bda LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«64""»]}
<POP 21bdc-21bde StackAdj> Δ+64 {}
<MI 21bde MOVE.B D0,0x23942> {}
<Blob 0x21be0 [10] @> Δ-10 {[«10""»]}
<POP 21bf2-21bf4 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x21bf4 9> {[«10""»]|[$$CRASHDUMP]}
<Const 0x21c02 0x1.4> Δ-4 {[«10""»]|[$$CRASHDUMP]|[##1]}
<Const 0x21c06 0x1.2> Δ-2 {[«10""»]|[$$CRASHDUMP]|[##1]|[#1]}
<Pointer.fp 0x21c08 <LVAR -0x004 @ 1(r)>> Δ-4 {[«10""»]|[$$CRASHDUMP]|[##1]|[#1]|[@@-4]}
<Call 0x21c0c 0x103b0> {[«10""»]|[$$CRASHDUMP]|[##1]|[#1]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 21c12-21c16 StackAdj> Δ+24 {}
<MI 21c16 TST.B (A6-0x4)> {}
<MI 21c1a BEQ 0x21c1e> {}
<POP 21c1c-21c1e Naked> Σ0 ↓
<MI 21c1c CLR.B 0x23942> {}
<POP 21c1e-21c28 Naked> Σ0 ↓ ←0x21b54 ←0x21b8a ←0x21bb2
<MI 21c1e MOVE.L #0x6,0x23944> {}
<POP 21c28-21c30 Epilogue> Σ0
@ 21c30
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 21c30-21cd8 Body>
<POP 21c30-21c46 Prologue> Σ0 ↓
<POP 21c46-21c4e RegCacheLoad> Σ0 ↓
<POP 21c4e-21cb4 Naked> Σ0 ↓ →0x21cca
<MI 21c4e MOVE.B #0x01,0x23949> {}
<Call 0x21c54 0x103dc> {}
WriteConsoleCrLf(void)
<Call 0x21c5a 0x10538> {}
IPC_Init(void)
<Const 0x21c60 0x1.2> Δ-2 {[#1]}
<Call 0x21c62 0x10502> {[#1]}
IPC_PutBool(a : Bool)
<POP 21c64-21c65 StackAdj> Δ+2 {}
<Const 0x21c65 0x1.2> Δ-2 {[#1]}
<Call 0x21c66 0x10502> {[#1]}
IPC_PutBool(a : Bool)
<POP 21c68-21c69 StackAdj> Δ+2 {}
<Const 0x21c69 0x1.2> Δ-2 {[#1]}
<Call 0x21c6a 0x10502> {[#1]}
IPC_PutBool(a : Bool)
<POP 21c6c-21c6e StackAdj> Δ+2 {}
<Call 0x21c6e 0x10514> {}
IPC_PutEnd(void)
<Blob 0x21c74 [10] @> Δ-10 {[«10""»]}
<POP 21c86-21c88 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x21c88 9> {[«10""»]|[$$RUN_UDIAG]}
<Const 0x21c9a 0x1.4> Δ-4 {[«10""»]|[$$RUN_UDIAG]|[##1]}
<Const 0x21c9e 0x1.2> Δ-2 {[«10""»]|[$$RUN_UDIAG]|[##1]|[#1]}
<Pointer.fp 0x21ca0 <LVAR -0x004 @ 1(r)>> Δ-4 {[«10""»]|[$$RUN_UDIAG]|[##1]|[#1]|[@@-4]}
<Call 0x21ca4 0x103b0> {[«10""»]|[$$RUN_UDIAG]|[##1]|[#1]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 21caa-21cae StackAdj> Δ+24 {}
<MI 21cae TST.B (A6-0x4)> {}
<MI 21cb2 BNE 0x21cca> {}
<POP 21cb4-21cca Naked> Σ0 →0x21cd0
<Call 0x21cb4 0x10538> {}
IPC_Init(void)
<MI 21cba MOVEA.L (A6+0x8),A0> {}
<MI 21cbe PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x21cc0 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 21cc6-21cc8 StackAdj> Δ+4 {}
<MI 21cc8 BRA 0x21cd0> {}
<POP 21cca-21cd0 Naked> Σ0 ↓ ←0x21c4e
<MI 21cca MOVEA.L (A6+0x8),A0> {}
<MI 21cce CLR.B (A0)> {}
<POP 21cd0-21cd8 Epilogue> Σ0 ←0x21cb4
@ 21cd8
<LVAR 0x00c 1(r)>
<LVAR 0x008 4(r)>
<LVAR -0x080 @>
<LVAR -0x081 1(w)>
<LVAR -0x082 1(r)>
<LVAR -0x084 2(w)>
<LVAR -0x086 @ 2(w)>
<LVAR -0x08f @>
<LVAR -0x090 @ 1(r)>
<LVAR -0x094 @ 4(r)>
<LVAR -0x098 @ 4(rw)>
<LVAR -0x099 @ 1(r)>
<LVAR -0x09a @ 1(r)>
<POP 21cd8-21f5c Body>
<POP 21cd8-21cee Prologue> Σ0 ↓
<POP 21cee-21d00 RegCacheLoad> Σ0 ↓
<POP 21d00-21d8c Naked> Σ0 ↓ →0x21d9c
<Blob 0x21d00 [32] @> Δ-32 {[«32""»]}
<POP 21d0c-21d0e StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x21d0e 32> {[«32""»]|[$$Running post-mortem diagnostics.]}
<Call 0x21d20 0x103e0> {[«32""»]|[$$Running post-mortem diagnostics.]}
WriteConsoleStringCrLf(str : String)
<POP 21d26-21d2a StackAdj> Δ+36 {}
<Call 0x21d2a 0x10538> {}
IPC_Init(void)
<Const 0x21d30 0x1.2> Δ-2 {[#1]}
<Call 0x21d32 0x10502> {[#1]}
IPC_PutBool(a : Bool)
<MI 21d38 CLR.B (A7)> {[#1]}
<Call 0x21d3a 0x10502> {[#1]}
IPC_PutBool(a : Bool)
<POP 21d40-21d42 StackAdj> Δ+2 {}
<Call 0x21d42 0x10514> {}
IPC_PutEnd(void)
<Blob 0x21d48 [2] @> Δ-2 {[«2""»]}
<Blob 0x21d4c [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x21d50 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 21d54-21d56 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x21d56 6> {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]}
<Const 0x21d68 0x1.4> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[##1]}
<Const 0x21d6c 0x1.2> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[##1]|[#1]}
<Pointer.fp 0x21d6e <LVAR -0x09a @ 1(r)>> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[##1]|[#1]|[@@-154]}
<Call 0x21d70 0x103b0> {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[##1]|[#1]|[@@-154]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 21d76-21d7a StackAdj> Δ+20 {}
<MI 21d7a MOVE.B (A6+0xc),D0> {}
<MI 21d7e EXTB.W D0> {}
<MI 21d80 MOVE.W D0,(A6-0x84)> {}
<MI 21d84 CLR.B (A6-0x82)> {}
<MI 21d88 TST.B (A6-0x9a)> {}
<MI 21d8a BEQ 0x21d9c> {}
<POP 21d8c-21d9c Naked> Σ0 →0x21f42
<MI 21d8c MOVEA.L (A6+0x8),A0> {}
<MI 21d90 CLR.B (A0)> {}
<MI 21d92 MOVE.W #0x2,(A6-0x86)> {}
<MI 21d98 BRA 0x21f42> {}
<POP 21d9c-21e6c Naked> Σ0 Δ-8 ↓ ←0x21d00
<Call 0x21d9c 0x10538> {}
IPC_Init(void)
<Pointer.fp 0x21da2 <LVAR -0x099 @ 1(r)>> Δ-4 {[@@-153]}
<Call 0x21da6 0x10526> {[@@-153]}
IPC_GetBool() : Bool
<POP 21dac-21dae StackAdj> Δ+4 {}
<Pointer.fp 0x21dae <LVAR -0x098 @ 4(rw)>> Δ-4 {[@@-152]}
<Call 0x21db0 0x1052c> {[@@-152]}
IPC_GetString(VAR retval : String)
<POP 21db6-21db8 StackAdj> Δ+4 {}
<Pointer.fp 0x21db8 <LVAR -0x094 @ 4(r)>> Δ-4 {[@@-148]}
<Call 0x21dba 0x1052c> {[@@-148]}
IPC_GetString(VAR retval : String)
<POP 21dc0-21dc2 StackAdj> Δ+4 {}
<Pointer.fp 0x21dc2 <LVAR -0x090 @ 1(r)>> Δ-4 {[@@-144]}
<Const 0x21dc6 0x0.4> Δ-4 {[@@-144]|[##0]}
<Const 0x21dca 0x0.4> Δ-4 {[@@-144]|[##0]|[##0]}
<Call 0x21dce 0x10520> {[@@-144]|[##0]|[##0]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 21dd4-21dd6 StackAdj> Δ+12 {}
<Pointer.fp 0x21dd6 <LVAR -0x08f @>> Δ-4 {[@@-143]}
<Const 0x21dda 0x0.4> Δ-4 {[@@-143]|[##0]}
<Const 0x21dde 0x7.4> Δ-4 {[@@-143]|[##0]|[##7]}
<Call 0x21de2 0x10520> {[@@-143]|[##0]|[##7]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 21de8-21dea StackAdj> Δ+12 {}
<Call 0x21dea 0x1051a> {}
IPC_GetEnd(void)
<MI 21df0 MOVEA.L (A6+0x8),A0> {}
<MI 21df4 MOVE.B (A6-0x99),D0> {}
<MI 21df8 NEG.B D0> {}
<MI 21dfa ADDQ.B #0x1,D0> {}
<MI 21dfc EXTB.W D0> {}
<POP 0x21dfe LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21e00 MOVE.B D0,(A0)> {}
<Blob 0x21e02 [4] @> Δ-4 {[«4""»]}
<Blob 0x21e06 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 21e0a-21e0c StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<MI 21e0c MOVE.L (A6-0x98),-(A7)> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x98)']}
<POP 21e0e-21e10 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x98)']|[-4-]}
<Lit 0x21e10 8> {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x98)']|[$$.ERRMESS]}
<Call 0x21e22 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x98)']|[$$.ERRMESS]}
StringCat2(a, b : String) : String
<POP 21e28-21e2a StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 21e2a MOVE.L (A7)+,(A6-0x98)> Δ+4 {[«4""»]|[«4""»]}
<MI 21e2c MOVE.L (A6-0x98),(A7)> {[«4""»]|[4, '(A6-0x98)']}
<Call 0x21e2e 0x102cc> {[«4""»]|[4, '(A6-0x98)']}
StringDup(a : String) : String
<MI 21e34 MOVE.L (A6-0x94),(A7)> {[«4""»]|[4, '(A6-0x94)']}
<MI 21e36 CLR.L D0> {[«4""»]|[4, '(A6-0x94)']}
<MI 21e38 MOVE.B (A6-0x90),D0> {[«4""»]|[4, '(A6-0x94)']}
<MI 21e3c MOVE.L D0,-(A7)> Δ-4 {[«4""»]|[4, '(A6-0x94)']|[4, 'D0']}
<Call 0x21e3e 0x1044c> {[«4""»]|[4, '(A6-0x94)']|[4, 'D0']}
WriteErrorMessage(file : String; txt : String; number : Long) : Bool
<POP 21e44-21e46 StackAdj> Δ+12 {}
<MI 21e46 MOVE.W #0x01,(A6-0x86)> {}
<MI 21e4a MOVE.B (A6-0x90),(A6-0x81)> {}
<MI 21e50 LEA.L (A6-0x80),A0> {}
<MI 21e54 LEA.L (A6-0x8f),A1> {}
<BlockMove 8,A1,A0> {}
<MI 21e60 MOVEA.L (A6-0x98),A0> {}
<MI 21e62 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 21e64 MOVE.W (A0),D0> {[4, 'A0']}
<MI 21e66 EXTW.L D0> {[4, 'A0']}
<MI 21e68 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 21e6a MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 21e6c-21e70 Naked> Σ-8 ↓ →0x21e98 ←0x21e70
<MI 21e6c CMP.L (A7),D7> {[-8-]}
<MI 21e6e BGT 0x21e98> {[-8-]}
<POP 21e70-21e98 Naked> Σ-8 ↓ →0x21e6c
<MI 21e70 MOVE.L D7,D0> {[-8-]}
<MI 21e72 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x21e74 LimitCheck 0x0 ≤ D0 ≤ 0x6b> {[-8-]}
<MI 21e7a LEA.L (A6-0x9a),A0> {[-8-]}
<MI 21e7c MOVE.L D7,D1> {[-8-]}
<MI 21e7e SUBQ.L #0x1,D1> {[-8-]}
<POP 0x21e80 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 21e8a MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 21e8e MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x22)> {[-8-]}
<MI 21e94 ADDQ.L #0x1,D7> {[-8-]}
<MI 21e96 BVC 0x21e6c> {[-8-]}
<POP 21e98-21ec8 Naked> Σ-8 Δ+4 ↓ →0x21ede ←0x21e6c
<POP 21e98-21e9a StackAdj> Δ+4 {[-4-]}
<MI 21e9a MOVEA.L (A7),A0> {[-4-]}
<MI 21e9c MOVE.W (A0),D0> {[-4-]}
<MI 21e9e EXTW.L D0> {[-4-]}
<MI 21ea0 ADDQ.L #0x1,D0> {[-4-]}
<MI 21ea2 MOVE.L D0,D6> {[-4-]}
<POP 21ea4-21ea6 StackAdj> Δ+4 {}
<MI 21ea6 MOVE.L D6,D0> {}
<MI 21ea8 SUBQ.L #0x1,D0> {}
<POP 0x21eaa LimitCheck 0x0 ≤ D0 ≤ 0x6b> {}
<MI 21eb0 LEA.L (A6-0x9a),A0> {}
<MI 21eb2 CLR.B (A0+D0.L+#0x22)> {}
<MI 21eb6 MOVEA.L (A6-0x94),A0> {}
<MI 21eb8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 21eba MOVE.W (A0),D0> {[4, 'A0']}
<MI 21ebc EXTW.L D0> {[4, 'A0']}
<MI 21ebe MOVE.L D0,D5> {[4, 'A0']}
<MI 21ec0 MOVEQ.L #0x6c,D0> {[4, 'A0']}
<MI 21ec2 SUB.L D6,D0> {[4, 'A0']}
<MI 21ec4 CMP.L D0,D5> {[4, 'A0']}
<MI 21ec6 BLE 0x21ede> {[4, 'A0']}
<POP 21ec8-21ede Naked> Σ-4 ↓
<MI 21ec8 MOVE.L D0,D5> {[-4-]}
<MI 21eca MOVE.L D5,D0> {[-4-]}
<MI 21ecc SUBQ.L #0x1,D0> {[-4-]}
<POP 0x21ece LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 21ed8 MOVE.B #0x5c,(A0+D0.L+#0x2)> {[-4-]}
<POP 21ede-21ee2 Naked> Σ-4 Δ-4 ↓ ←0x21e98
<MI 21ede MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 21ee0 MOVEQ.L #0x01,D7> {[-4-]|[4, 'D5']}
<POP 21ee2-21ee6 Naked> Σ-8 ↓ →0x21f10 ←0x21ee6
<MI 21ee2 CMP.L (A7),D7> {[-8-]}
<MI 21ee4 BGT 0x21f10> {[-8-]}
<POP 21ee6-21f10 Naked> Σ-8 ↓ →0x21ee2
<MI 21ee6 ADDQ.L #0x1,D6> {[-8-]}
<MI 21ee8 MOVE.L D6,D0> {[-8-]}
<MI 21eea SUBQ.L #0x1,D0> {[-8-]}
<POP 0x21eec LimitCheck 0x0 ≤ D0 ≤ 0x6b> {[-8-]}
<MI 21ef2 LEA.L (A6-0x9a),A0> {[-8-]}
<MI 21ef4 MOVE.L D7,D1> {[-8-]}
<MI 21ef6 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x21ef8 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 21f02 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 21f06 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x22)> {[-8-]}
<MI 21f0c ADDQ.L #0x1,D7> {[-8-]}
<MI 21f0e BVC 0x21ee2> {[-8-]}
<POP 21f10-21f1a Naked> Σ-8 Δ+4 ↓ →0x21f2c ←0x21ee2
<POP 21f10-21f12 StackAdj> Δ+4 {[-4-]}
<MI 21f12 CMPI.L #0x0000006c,D6> {[-4-]}
<MI 21f18 BGE 0x21f2c> {[-4-]}
<POP 21f1a-21f2c Naked> Σ-4 ↓
<MI 21f1a MOVE.L D6,D0> {[-4-]}
<MI 21f1c ADDQ.L #0x1,D0> {[-4-]}
<MI 21f1e SUBQ.L #0x1,D0> {[-4-]}
<POP 0x21f20 LimitCheck 0x0 ≤ D0 ≤ 0x6b> {[-4-]}
<MI 21f26 LEA.L (A6-0x9a),A0> {[-4-]}
<MI 21f28 CLR.B (A0+D0.L+#0x22)> {[-4-]}
<POP 21f2c-21f42 Naked> Σ-4 Δ+4 ↓ ←0x21f10
<POP 21f2c-21f2e StackAdj> Δ+4 {}
<Pointer.fp 0x21f2e <LVAR -0x094 @ 4(r)>> Δ-4 {[@@-148]}
<Call 0x21f30 0x102bc> {[@@-148]}
FreeString(VAR a : String)
<POP 21f36-21f38 StackAdj> Δ+4 {}
<Pointer.fp 0x21f38 <LVAR -0x098 @ 4(rw)>> Δ-4 {[@@-152]}
<Call 0x21f3a 0x102bc> {[@@-152]}
FreeString(VAR a : String)
<POP 21f40-21f42 StackAdj> Δ+4 {}
<POP 21f42-21f54 Naked> Σ0 ↓ ←0x21d8c
<Const 0x21f42 0x3.2> Δ-2 {[#3]}
<MI 21f46 LEA.L (A6-0x86),A0> {[#3]}
<MI 21f4a MOVE.L A0,-(A7)> Δ-4 {[#3]|[4, 'A0']}
<Call 0x21f4c 0x103a8> {[#3]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 21f52-21f54 StackAdj> Δ+6 {}
<POP 21f54-21f5c Epilogue> Σ0
@ 21f5c
<LVAR 0x008 1(r)>
<POP 21f5c-21fde Body>
<POP 21f5c-21f72 Prologue> Σ0 ↓
<POP 21f72-21f76 RegCacheLoad> Σ0 ↓
<POP 21f76-21fd6 Naked> Σ0 ↓
<Blob 0x21f76 [40] @> Δ-40 {[«40""»]}
<MI 21f88 MOVE.B (A6+0x8),D0> {[«40""»]}
<MI 21f8c EXTB.W D0> {[«40""»]}
<MI 21f8e MULS.W #0x32,D0> {[«40""»]}
<MI 21f90 LEA.L 0x20f7c,A0> {[«40""»]}
<Blob 0x21f94 [50] (A0+D0.W+#0x32)> Δ-50 {[«40""»]|[«50»]}
<POP 21fa0-21fa2 StackAdj> Δ-8 {[«40""»]|[«50»]|[-8-]}
<Lit 0x21fa2 39> {[«40""»]|[«50»]|[-4-]|[$$Restarting system after R1000 Processor]}
<POP 21fb2-21fb4 StackAdj> Δ-4 {[«40""»]|[«50»]|[-4-]|[$$Restarting system after R1000 Processor]|[-4-]}
<Lit 0x21fb4> {[«40""»]|[«50»]|[-4-]|[$$Restarting system after R1000 Processor]|[$$…]}
<Pointer.sp 0x21fb4 12> Δ-4
<Const 0x21fb8 0x1.2> Δ-2
<Const 0x21fba 0x32.2> Δ-2
<Call 0x21fbc 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21fc2-21fc4 StackAdj> Δ+8
<Call 0x21fc4 0x102d0> {[«40""»]|[«50»]|[-4-]|[$$Restarting system after R1000 Processor]|[$$…]}
StringCat2(a, b : String) : String
<POP 21fca-21fcc StackAdj> Δ+8 {[«40""»]|[«50»]|[-4-]}
<Call 0x21fcc 0x103e0> {[«40""»]|[«50»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21fd2-21fd6 StackAdj> Δ+94 {}
<POP 21fd6-21fde Epilogue> Σ0
@ 21fde
<LVAR 0x008 1(rw)>
<LVAR -0x003 1(r)>
<LVAR -0x004 1(r) 2(r)>
<LVAR -0x006 @>
<LVAR -0x080 2(r)>
<LVAR -0x081 1(r)>
<LVAR -0x082 1(r) 2(r)>
<LVAR -0x086 @ 1(r)>
<LVAR -0x483 1(r)>
<LVAR -0x484 2(r)>
<LVAR -0x486 @>
<LVAR -0x488 @ 1(r)>
<LVAR -0x48c @ 4(r)>
<POP 21fde-22118 Body>
<POP 21fde-21ff4 Prologue> Σ0 ↓
<POP 21ff4-22004 RegCacheLoad> Σ0 ↓
<POP 22004-22048 Naked> Σ0 ↓ →0x22110
<MI 22004 CLR.B (A6+0x8)> {}
<Blob 0x22006 [10] @> Δ-10 {[«10""»]}
<POP 22018-2201a StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x2201a 9> {[«10""»]|[$$ERROR_LOG]}
<POP 2202a-2202c StackAdj> Δ-2 {[«10""»]|[$$ERROR_LOG]|[-2-]}
<MI 2202c CLR.B (A7)> {[«10""»]|[$$ERROR_LOG]|[-2-]}
<Const 0x2202e 0x1.2> Δ-2 {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]}
<Const 0x22030 0x0.4> Δ-4 {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]}
<Pointer.fp 0x22034 <LVAR -0x488 @ 1(r)>> Δ-4 {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]|[@@-1160]}
<Pointer.fp 0x22036 <LVAR -0x48c @ 4(r)>> Δ-4 {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]|[@@-1160]|[@@-1164]}
<Call 0x22038 0x10380> {[«10""»]|[$$ERROR_LOG]|[-2-]|[#1]|[##0]|[@@-1160]|[@@-1164]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 2203e-22042 StackAdj> Δ+30 {}
<MI 22042 TST.B (A6-0x488)> {}
<MI 22044 BNE 0x22110> {}
<POP 22048-220cc Naked> Σ0 ↓ →0x22110
<MI 22048 MOVE.L (A6-0x48c),-(A7)> Δ-4 {[4, '(A6-0x48c)']}
<MI 2204a CLR.W -(A7)> Δ-2 {[4, '(A6-0x48c)']|[#0]}
<MI 2204c CLR.W -(A7)> Δ-2 {[4, '(A6-0x48c)']|[#0]|[#0]}
<Const 0x2204e 0x200.2> Δ-2 {[4, '(A6-0x48c)']|[#0]|[#0]|[#512]}
<Const 0x22052 0x1.2> Δ-2 {[4, '(A6-0x48c)']|[#0]|[#0]|[#512]|[#1]}
<MI 22054 LEA.L (A6-0x486),A0> {[4, '(A6-0x48c)']|[#0]|[#0]|[#512]|[#1]}
<MI 22058 MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0x48c)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']}
<Pointer.fp 0x2205a <LVAR -0x488 @ 1(r)>> Δ-4 {[4, '(A6-0x48c)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1160]}
<Call 0x2205c 0x10384> {[4, '(A6-0x48c)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1160]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 22062-22064 StackAdj> Δ+16 {[4, '(A6-0x48c)']}
<MI 22064 MOVE.L (A6-0x48c),(A7)> {[4, '(A6-0x48c)']}
<MI 22066 MOVE.W (A6-0x484),D0> {[4, '(A6-0x48c)']}
<MI 2206a LSR.W #0x3,D0> {[4, '(A6-0x48c)']}
<MI 2206c ADDQ.W #0x1,D0> {[4, '(A6-0x48c)']}
<MI 2206e MOVE.W D0,-(A7)> Δ-2 {[4, '(A6-0x48c)']|[2, 'D0']}
<MI 22070 CLR.L D0> {[4, '(A6-0x48c)']|[2, 'D0']}
<MI 22072 MOVE.B (A6-0x483),D0> {[4, '(A6-0x48c)']|[2, 'D0']}
<MI 22076 LSL.B #0x5,D0> {[4, '(A6-0x48c)']|[2, 'D0']}
<MI 22078 LSR.B #0x5,D0> {[4, '(A6-0x48c)']|[2, 'D0']}
<MI 2207a ASL.W #0x6,D0> {[4, '(A6-0x48c)']|[2, 'D0']}
<MI 2207c MOVE.W D0,-(A7)> Δ-2 {[4, '(A6-0x48c)']|[2, 'D0']|[2, 'D0']}
<Const 0x2207e 0x40.2> Δ-2 {[4, '(A6-0x48c)']|[2, 'D0']|[2, 'D0']|[#64]}
<Const 0x22082 0x1.2> Δ-2 {[4, '(A6-0x48c)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]}
<MI 22084 LEA.L (A6-0x86),A0> {[4, '(A6-0x48c)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]}
<MI 22088 MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0x48c)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]|[4, 'A0']}
<Pointer.fp 0x2208a <LVAR -0x488 @ 1(r)>> Δ-4 {[4, '(A6-0x48c)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]|[4, 'A0']|[@@-1160]}
<Call 0x2208c 0x10384> {[4, '(A6-0x48c)']|[2, 'D0']|[2, 'D0']|[#64]|[#1]|[4, 'A0']|[@@-1160]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 22092-22096 StackAdj> Δ+18 {[-2-]}
<MI 22096 CLR.B (A7)> {[-2-]}
<Const 0x22098 0x1.2> Δ-2 {[-2-]|[#1]}
<Const 0x2209a 0x1.4> Δ-4 {[-2-]|[#1]|[##1]}
<Pointer.fp 0x2209e <LVAR -0x488 @ 1(r)>> Δ-4 {[-2-]|[#1]|[##1]|[@@-1160]}
<Pointer.fp 0x220a0 <LVAR -0x48c @ 4(r)>> Δ-4 {[-2-]|[#1]|[##1]|[@@-1160]|[@@-1164]}
<Call 0x220a2 0x1038c> {[-2-]|[#1]|[##1]|[@@-1160]|[@@-1164]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 220a8-220aa StackAdj> Δ+16 {}
<Pointer.fp 0x220aa <LVAR -0x006 @>> Δ-4 {[@@-6]}
<Call 0x220ae 0x10304> {[@@-6]}
GetRtc() : TimeStamp
<POP 220b4-220b6 StackAdj> Δ+4 {}
<MI 220b6 CLR.B (A6+0x8)> {}
<MI 220b8 CLR.L D0> {}
<MI 220ba MOVE.B (A6-0x82),D0> {}
<MI 220be LSR.B #0x1,D0> {}
<MI 220c0 CLR.L D1> {}
<MI 220c2 MOVE.B (A6-0x4),D1> {}
<MI 220c6 LSR.B #0x1,D1> {}
<MI 220c8 CMP.W D1,D0> {}
<MI 220ca BNE 0x22110> {}
<POP 220cc-220e4 Naked> Σ0 ↓ →0x22110
<MI 220cc MOVE.W (A6-0x82),D0> {}
<MI 220d0 LSL.W #0x7,D0> {}
<MI 220d2 LSR.W #0x8,D0> {}
<MI 220d4 LSR.W #0x4,D0> {}
<MI 220d6 MOVE.W (A6-0x4),D1> {}
<MI 220da LSL.W #0x7,D1> {}
<MI 220dc LSR.W #0x8,D1> {}
<MI 220de LSR.W #0x4,D1> {}
<MI 220e0 CMP.W D1,D0> {}
<MI 220e2 BNE 0x22110> {}
<POP 220e4-220fc Naked> Σ0 ↓ →0x22110
<MI 220e4 CLR.L D0> {}
<MI 220e6 MOVE.B (A6-0x81),D0> {}
<MI 220ea LSL.B #0x3,D0> {}
<MI 220ec LSR.B #0x3,D0> {}
<MI 220ee CLR.L D1> {}
<MI 220f0 MOVE.B (A6-0x3),D1> {}
<MI 220f4 LSL.B #0x3,D1> {}
<MI 220f6 LSR.B #0x3,D1> {}
<MI 220f8 CMP.W D1,D0> {}
<MI 220fa BNE 0x22110> {}
<POP 220fc-22106 Naked> Σ0 ↓ →0x22110
<MI 220fc MOVE.B (A6-0x86),D0> {}
<MI 22100 CMPI.B #0x03,D0> {}
<MI 22104 BNE 0x22110> {}
<POP 22106-2210e Naked> Σ0 ↓ →0x22110
<MI 22106 MOVE.W (A6-0x80),D0> {}
<MI 2210a CMP.W #0x01,D0> {}
<MI 2210c BNE 0x22110> {}
<POP 2210e-22110 Naked> Σ0 ↓
<MI 2210e ADDQ.B #0x1,(A6+0x8)> {}
<POP 22110-22118 Epilogue> Σ0 ←0x22004 ←0x22048 ←0x220cc ←0x220e4 ←0x220fc ←0x22106
@ 22118
<LVAR 0x008 1(r)>
<LVAR -0x078 2(r)>
<LVAR -0x07a @ 2(w)>
<POP 22118-221c8 Body>
<POP 22118-2212e Prologue> Σ0 ↓
<POP 2212e-22130 RegCacheLoad> Σ0 ↓
<POP 22130-221c0 Naked> Σ0 ↓
<MI 22130 MOVE.B (A6+0x8),D0> {}
<MI 22134 EXTB.W D0> {}
<MI 22136 MOVE.W D0,(A6-0x7a)> {}
<MI 2213a CLR.W (A6-0x78)> {}
<Const 0x2213e 0x2.2> Δ-2 {[#2]}
<MI 22142 LEA.L (A6-0x7a),A0> {[#2]}
<MI 22146 MOVE.L A0,-(A7)> Δ-4 {[#2]|[4, 'A0']}
<Call 0x22148 0x103a8> {[#2]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 2214e-2214f StackAdj> Δ+6 ↓ {}
<Blob 0x2214f [56] @> Δ-56 {[«56""»]}
<POP 22160-22162 StackAdj> Δ-4 {[«56""»]|[-4-]}
<Lit 0x22162 55> {[«56""»]|[$$The R1000 has exceeded maximum safe temperature limits.]}
<Call 0x22174 0x103e0> {[«56""»]|[$$The R1000 has exceeded maximum safe temperature limits.]}
WriteConsoleStringCrLf(str : String)
<POP 2217a-2217e StackAdj> Δ+58 {[-2-]}
<POP 2217e-2217f StackAdj> Δ+2 {}
<Const 0x2217f 0x1b.2> Δ-2 {[#27]}
<Call 0x22182 0x103d0> {[#27]}
WriteConsoleChar(chr : char)
<POP 22188-2218a StackAdj> Δ-2 {[#27]|[-2-]}
<POP 2218a-2218b StackAdj> Δ+2 {[#27]}
<Blob 0x2218b [2] @> Δ-2 {[#27]|[«2""»]}
<MI 2218e MOVE.B 0x208ff,(A7+0x1)> {[#27]|[«2""»]}
<MI 22194 MOVE.B 0x20900,(A7+0x2)> {[#27]|[«2""»]}
<POP 2219a-2219c StackAdj> Δ-4 {[#27]|[«2""»]|[-4-]}
<Lit 0x2219c> {[#27]|[«2""»]|[$$…]}
<Pointer.sp 0x2219c 4> Δ-4
<Const 0x221a0 0x1.2> Δ-2
<Const 0x221a2 0x3.2> Δ-2
<Call 0x221a6 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 221ac-221ae StackAdj> Δ+8
<Call 0x221ae 0x103d8> {[#27]|[«2""»]|[$$…]}
WriteConsoleString(str : String)
<POP 221b4-221b6 StackAdj> Δ+8 {}
<MI 221b6 MOVE.L #0x6,0x23944> {}
<POP 221c0-221c8 Epilogue> Σ0
@ 221c8
<LVAR 0x008 1(r)>
<LVAR -0x078 2(r)>
<LVAR -0x07a @ 2(w)>
<POP 221c8-222dc Body>
<POP 221c8-221de Prologue> Σ0 ↓
<POP 221de-221ec RegCacheLoad> Σ0 ↓
<POP 221ec-2221a Naked> Σ0 ↓ →0x22242
<MI 221ec MOVE.B (A6+0x8),D0> {}
<MI 221f0 EXTB.W D0> {}
<MI 221f2 MOVE.W D0,(A6-0x7a)> {}
<MI 221f6 CLR.W (A6-0x78)> {}
<Const 0x221fa 0x2.2> Δ-2 {[#2]}
<MI 221fe LEA.L (A6-0x7a),A0> {[#2]}
<MI 22202 MOVE.L A0,-(A7)> Δ-4 {[#2]|[4, 'A0']}
<Call 0x22204 0x103a8> {[#2]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 2220a-2220c StackAdj> Δ+6 {}
<MI 2220c MOVE.L #0x6,0x23944> {}
<MI 22216 TST.W D0> {}
<MI 22218 BNE 0x22242> {}
<POP 2221a-22242 Naked> Σ0 →0x22268
<Blob 0x2221a [40] @> Δ-40 {[«40""»]}
<POP 22226-22228 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x22228 40> {[«40""»]|[$$Restarting system after loss of AC power]}
<Call 0x22236 0x103e0> {[«40""»]|[$$Restarting system after loss of AC power]}
WriteConsoleStringCrLf(str : String)
<POP 2223c-22240 StackAdj> Δ+44 {}
<MI 22240 BRA 0x22268> {}
<POP 22242-22268 Naked> Σ0 ↓ ←0x221ec
<Blob 0x22242 [60] @> Δ-60 {[«60""»]}
<POP 2224e-22250 StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x22250 60> {[«60""»]|[$$Restarting system after DC power fault or White Button Reset]}
<Call 0x2225e 0x103e0> {[«60""»]|[$$Restarting system after DC power fault or White Button Reset]}
WriteConsoleStringCrLf(str : String)
<POP 22264-22268 StackAdj> Δ+64 {}
<POP 22268-222ce Naked> Σ0 ↓ →0x222d4 ←0x2221a
<Const 0x22268 0x1b.2> Δ-2 {[#27]}
<Call 0x2226c 0x103d0> {[#27]}
WriteConsoleChar(chr : char)
<POP 22272-22274 StackAdj> Δ-2 {[#27]|[-2-]}
<POP 22274-22275 StackAdj> Δ+2 {[#27]}
<Blob 0x22275 [2] @> Δ-2 {[#27]|[«2""»]}
<MI 22278 MOVE.B 0x20967,(A7+0x1)> {[#27]|[«2""»]}
<MI 2227e MOVE.B 0x20968,(A7+0x2)> {[#27]|[«2""»]}
<POP 22284-22286 StackAdj> Δ-4 {[#27]|[«2""»]|[-4-]}
<Lit 0x22286> {[#27]|[«2""»]|[$$…]}
<Pointer.sp 0x22286 4> Δ-4
<Const 0x2228a 0x1.2> Δ-2
<Const 0x2228c 0x3.2> Δ-2
<Call 0x22290 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22292-22294 StackAdj> Δ+8
<Call 0x22294 0x103d8> {[#27]|[«2""»]|[$$…]}
WriteConsoleString(str : String)
<POP 2229a-2229c StackAdj> Δ+6 {[#27]}
<MI 2229c CLR.B (A7)> {[#27]}
<Call 0x2229e 0x21a38> {[#27]}
<POP 222a2-222a4 StackAdj> Δ+2 {}
<MI 222a4 CLR.B 0x23942> {}
<POP 222a6-222a8 StackAdj> Δ-2 {[-2-]}
<Call 0x222a8 0x105ce> {[-2-]}
ReadKeySwitch() : Bool
<MI 222ae MOVE.B (A7)+,D1> Δ+2 {}
<MI 222b0 NEG.B D1> {}
<MI 222b2 ADDQ.B #0x1,D1> {}
<MI 222b4 MOVE.B 0x2393f,D2> {}
<MI 222ba LSL.B #0x4,D2> {}
<MI 222bc LSR.B #0x7,D2> {}
<MI 222be AND.B D1,D2> {}
<MI 222c0 MOVE.B 0x2393f,D1> {}
<MI 222c6 LSL.B #0x5,D1> {}
<MI 222c8 LSR.B #0x7,D1> {}
<MI 222ca AND.B D2,D1> {}
<MI 222cc BEQ 0x222d4> {}
<POP 222ce-222d2 Naked> Σ0 ↓ →0x222d4
<MI 222ce TST.W D0> {}
<MI 222d0 BNE 0x222d4> {}
<POP 222d2-222d4 Naked> Σ0 ↓
<MI 222d2 ADDQ.B #0x1,0x23942> {}
<POP 222d4-222dc Epilogue> Σ0 ←0x22268 ←0x222ce
@ 222dc
<LVAR 0x008 1(r)>
<LVAR -0x078 2(r)>
<LVAR -0x07a @ 2(w)>
<POP 222dc-22400 Body>
<POP 222dc-222f2 Prologue> Σ0 ↓
<POP 222f2-22304 RegCacheLoad> Σ0 ↓
<POP 22304-22330 Naked> Σ0 ↓ →0x2238e
<MI 22304 MOVE.B (A6+0x8),D0> {}
<MI 22308 EXTB.W D0> {}
<MI 2230a MOVE.W D0,(A6-0x7a)> {}
<MI 2230e CLR.W (A6-0x78)> {}
<Const 0x22312 0x2.2> Δ-2 {[#2]}
<MI 22316 LEA.L (A6-0x7a),A0> {[#2]}
<MI 2231a MOVE.L A0,-(A7)> Δ-4 {[#2]|[4, 'A0']}
<Call 0x2231c 0x103a8> {[#2]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 22322-22324 StackAdj> Δ+6 {}
<MI 22324 MOVE.L #0x6,0x23944> {}
<MI 2232a CMPI.B #0x19,D0> {}
<MI 2232e BNE 0x2238e> {}
<POP 22330-2238e Naked> Σ0 →0x223f8
<Blob 0x22330 [64] @> Δ-64 {[«64""»]}
<POP 22342-22344 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x22344 63> {[«64""»]|[$$Restarting system after operator or program invoked crash (EPO)]}
<Call 0x22352 0x103e0> {[«64""»]|[$$Restarting system after operator or program invoked crash (EPO)]}
WriteConsoleStringCrLf(str : String)
<POP 22358-2235c StackAdj> Δ+66 {[-2-]}
<POP 2235c-2235d StackAdj> Δ+2 {}
<Const 0x2235d 0x1b.2> Δ-2 {[#27]}
<Call 0x2235e 0x103d0> {[#27]}
WriteConsoleChar(chr : char)
<POP 22364-22366 StackAdj> Δ-2 {[#27]|[-2-]}
<POP 22366-22367 StackAdj> Δ+2 {[#27]}
<Blob 0x22367 [2] @> Δ-2 {[#27]|[«2""»]}
<MI 2236a MOVE.B 0x209dd,(A7+0x1)> {[#27]|[«2""»]}
<MI 22370 MOVE.B 0x209de,(A7+0x2)> {[#27]|[«2""»]}
<POP 22376-22378 StackAdj> Δ-4 {[#27]|[«2""»]|[-4-]}
<Lit 0x22378> {[#27]|[«2""»]|[$$…]}
<Pointer.sp 0x22378 4> Δ-4
<Const 0x2237c 0x1.2> Δ-2
<Const 0x2237e 0x3.2> Δ-2
<Call 0x22380 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22382-22384 StackAdj> Δ+8
<Call 0x22384 0x103d8> {[#27]|[«2""»]|[$$…]}
WriteConsoleString(str : String)
<POP 2238a-2238c StackAdj> Δ+8 {}
<MI 2238c BRA 0x223f8> {}
<POP 2238e-223ec Naked> Σ0 ↓ →0x223f6 ←0x22304
<Blob 0x2238e [50] @> Δ-50 {[«50""»]}
<POP 2239a-2239c StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x2239c 50> {[«50""»]|[$$Restarting system after operator console BREAK key]}
<Call 0x223aa 0x103e0> {[«50""»]|[$$Restarting system after operator console BREAK key]}
WriteConsoleStringCrLf(str : String)
<POP 223b0-223b4 StackAdj> Δ+52 {[-2-]}
<POP 223b4-223b5 StackAdj> Δ+2 {}
<Const 0x223b5 0x1b.2> Δ-2 {[#27]}
<Call 0x223b6 0x103d0> {[#27]}
WriteConsoleChar(chr : char)
<POP 223bc-223be StackAdj> Δ-2 {[#27]|[-2-]}
<POP 223be-223bf StackAdj> Δ+2 {[#27]}
<Blob 0x223bf [2] @> Δ-2 {[#27]|[«2""»]}
<MI 223c2 MOVE.B 0x209e1,(A7+0x1)> {[#27]|[«2""»]}
<MI 223c8 MOVE.B 0x209e2,(A7+0x2)> {[#27]|[«2""»]}
<POP 223ce-223d0 StackAdj> Δ-4 {[#27]|[«2""»]|[-4-]}
<Lit 0x223d0> {[#27]|[«2""»]|[$$…]}
<Pointer.sp 0x223d0 4> Δ-4
<Const 0x223d4 0x1.2> Δ-2
<Const 0x223d6 0x3.2> Δ-2
<Call 0x223d8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 223da-223dc StackAdj> Δ+8
<Call 0x223dc 0x103d8> {[#27]|[«2""»]|[$$…]}
WriteConsoleString(str : String)
<POP 223e2-223e4 StackAdj> Δ+8 {}
<MI 223e4 TST.B 0x23940> {}
<MI 223ea BEQ 0x223f6> {}
<POP 223ec-223f6 Naked> Σ0 →0x223f8
<Const 0x223ec 0x1.2> Δ-2 {[#1]}
<Call 0x223ee 0x21a38> {[#1]}
<POP 223f2-223f4 StackAdj> Δ+2 {}
<MI 223f4 BRA 0x223f8> {}
<POP 223f6-223f8 Naked> Σ0 ↓ ←0x2238e
<MI 223f6 MOVE.L #0x01,0x23944> {}
<POP 223f8-22400 Epilogue> Σ0 ←0x22330 ←0x223ec
@ 22400
<LVAR 0x008 1(r)>
<LVAR -0x005 @ 1(r)>
<LVAR -0x006 @ 1(r)>
<POP 22400-225d4 Body>
<POP 22400-22416 Prologue> Σ0 ↓
<POP 22416-2242e RegCacheLoad> Σ0 ↓
<POP 2242e-22440 Naked> Σ0 ↓ →0x2244a
<Call 0x2242e 0x212da> {}
<POP 22432-22434 StackAdj> Δ-4 {[-4-]}
<Call 0x22434 0x103f8> {[-4-]}
GetConsoleConfig() : Long
<MI 2243a MOVE.L (A7)+,D0> Δ+4 {}
<MI 2243c CMP.L #0x01,D0> {}
<MI 2243e BEQ 0x2244a> {}
<POP 22440-2244a Naked> Σ0 ↓
<MI 22440 MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x22444 0x21f5c> {[2, '(A6+0x8)']}
<POP 22448-2244a StackAdj> Δ+2 {}
<POP 2244a-22476 Naked> Σ0 ↓ →0x2247c ←0x2242e
<POP 2244a-2244c StackAdj> Δ-2 {[-2-]}
<Call 0x2244c 0x21fde> {[-2-]}
<MI 22450 MOVE.B (A7)+,D0> Δ+2 {}
<MI 22452 EXTB.W D0> {}
<POP 0x22454 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 22456 MOVE.B D0,D7> {}
<MI 22458 MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Pointer.fp 0x2245c <LVAR -0x006 @ 1(r)>> Δ-4 {[2, '(A6+0x8)']|[@@-6]}
<Call 0x22460 0x21cd8> {[2, '(A6+0x8)']|[@@-6]}
<POP 22464-22466 StackAdj> Δ+4 {[2, '(A6+0x8)']}
<POP 22466-22467 StackAdj> Δ+2 {}
<Const 0x22467 0x1.2> Δ-2 {[#1]}
<Call 0x22468 0x21a38> {[#1]}
<POP 2246c-2246e StackAdj> Δ+2 {}
<MI 2246e CLR.B 0x23942> {}
<MI 22470 TST.B (A6-0x6)> {}
<MI 22474 BEQ 0x2247c> {}
<POP 22476-2247c Naked> Σ0 →0x225cc
<MI 22476 MOVE.L #0x03,0x23944> {}
<MI 22478 BRA 0x225cc> {}
<POP 2247c-2248a Naked> Σ0 ↓ →0x225a4 ←0x2244a
<MI 2247c MOVE.B 0x2393f,D0> {}
<MI 22482 LSL.B #0x3,D0> {}
<MI 22484 LSR.B #0x7,D0> {}
<MI 22486 BEQ 0x225a4> {}
<POP 2248a-22494 Naked> Σ0 ↓ →0x225a4
<MI 2248a TST.B 0x23941> {}
<MI 22490 BNE 0x225a4> {}
<POP 22494-224a6 Naked> Σ0 ↓ →0x22574
<Pointer.fp 0x22494 <LVAR -0x005 @ 1(r)>> Δ-4 {[@@-5]}
<Call 0x22498 0x21c30> {[@@-5]}
<POP 2249c-2249e StackAdj> Δ+4 {}
<MI 2249e TST.B (A6-0x5)> {}
<MI 224a2 BEQ 0x22574> {}
<POP 224a6-224b0 Naked> Σ0 ↓ →0x22506
<MI 224a6 MOVE.L #0x6,0x23944> {}
<MI 224ac TST.B D7> {}
<MI 224ae BEQ 0x22506> {}
<POP 224b0-22506 Naked> Σ0 →0x22572
<Blob 0x224b0 [70] @> Δ-70 {[«70""»]}
<POP 224c2-224c4 StackAdj> Δ-4 {[«70""»]|[-4-]}
<Lit 0x224c4 69> {[«70""»]|[$$*** the microdiagnostic passed but this is the second crash today due]}
<Call 0x224d2 0x103e0> {[«70""»]|[$$*** the microdiagnostic passed but this is the second crash today due]}
WriteConsoleStringCrLf(str : String)
<POP 224d8-224d9 StackAdj> Δ+74 ↓ {}
<Blob 0x224d9 [54] @> Δ-54 {[«54""»]}
<POP 224ea-224ec StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x224ec 53> {[«54""»]|[$$ a hardware problem. Call RATIONAL for assistance.]}
<Call 0x224fa 0x103e0> {[«54""»]|[$$ a hardware problem. Call RATIONAL for assistance.]}
WriteConsoleStringCrLf(str : String)
<POP 22500-22504 StackAdj> Δ+58 {}
<MI 22504 BRA 0x22572> {}
<POP 22506-22572 Naked> Σ0 ↓ ←0x224a6
<Blob 0x22506 [72] @> Δ-72 {[«72""»]}
<POP 22512-22514 StackAdj> Δ-4 {[«72""»]|[-4-]}
<Lit 0x22514 72> {[«72""»]|[$$>>> The system crashed due to a hardware problem but the microdiagnostic]}
<Call 0x22522 0x103e0> {[«72""»]|[$$>>> The system crashed due to a hardware problem but the microdiagnostic]}
WriteConsoleStringCrLf(str : String)
<POP 22528-2252a StackAdj> Δ+76 {}
<Blob 0x2252a [74] @> Δ-74 {[«74""»]}
<POP 22536-22538 StackAdj> Δ-4 {[«74""»]|[-4-]}
<Lit 0x22538 74> {[«74""»]|[$$ test passed. The problem may be intermittent. Suggest trying to reboot]}
<Call 0x22546 0x103e0> {[«74""»]|[$$ test passed. The problem may be intermittent. Suggest trying to reboot]}
WriteConsoleStringCrLf(str : String)
<POP 2254c-2254e StackAdj> Δ+76 {[-2-]}
<Call 0x2254e 0x105ce> {[-2-]}
ReadKeySwitch() : Bool
<MI 22554 MOVE.B (A7)+,0x23942> Δ+2 {}
<MI 22556 NEG.B 0x23942> {}
<MI 22558 ADDQ.B #0x1,0x23942> {}
<MI 2255a MOVE.B 0x2393f,D0> {}
<MI 22560 LSL.B #0x4,D0> {}
<MI 22562 LSR.B #0x7,D0> {}
<MI 22564 AND.B D0,0x23942> {}
<MI 22566 MOVE.B 0x2393f,D0> {}
<MI 2256c LSL.B #0x5,D0> {}
<MI 2256e LSR.B #0x7,D0> {}
<MI 22570 AND.B D0,0x23942> {}
<POP 22572-22574 Naked> Σ0 →0x225a2 ←0x224b0
<MI 22572 BRA 0x225a2> {}
<POP 22574-225a2 Naked> Σ0 ↓ ←0x22494
<Blob 0x22574 [62] @> Δ-62 {[«62""»]}
<POP 22586-22588 StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x22588 61> {[«62""»]|[$$*** the microdiagnostic test failed: please run the FRU tests]}
<Call 0x22596 0x103e0> {[«62""»]|[$$*** the microdiagnostic test failed: please run the FRU tests]}
WriteConsoleStringCrLf(str : String)
<POP 2259c-225a0 StackAdj> Δ+66 {}
<MI 225a0 MOVE.L #0x03,0x23944> {}
<POP 225a2-225a4 Naked> Σ0 →0x225cc ←0x22572
<MI 225a2 BRA 0x225cc> {}
<POP 225a4-225cc Naked> Σ0 ↓ ←0x2247c ←0x2248a
<Blob 0x225a4 [40] @> Δ-40 {[«40""»]}
<POP 225b0-225b2 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x225b2 40> {[«40""»]|[$$>>> Automatic Crash Recovery is disabled]}
<Call 0x225c0 0x103e0> {[«40""»]|[$$>>> Automatic Crash Recovery is disabled]}
WriteConsoleStringCrLf(str : String)
<POP 225c6-225ca StackAdj> Δ+44 {}
<MI 225ca MOVE.L #0x01,0x23944> {}
<POP 225cc-225d4 Epilogue> Σ0 ←0x22476 ←0x225a2
@ 225d4
<LVAR 0x008 1(r)>
<LVAR -0x078 2(w)>
<LVAR -0x07a @ 2(w)>
<POP 225d4-22626 Body>
<POP 225d4-225ea Prologue> Σ0 ↓
<POP 225ea-225ec RegCacheLoad> Σ0 ↓
<POP 225ec-2261e Naked> Σ0 ↓
<MI 225ec MOVE.W #0x03,(A6-0x7a)> {}
<MI 225f0 MOVE.B (A6+0x8),D0> {}
<MI 225f4 EXTB.W D0> {}
<MI 225f6 MOVE.W D0,(A6-0x78)> {}
<Const 0x225fa 0x3.2> Δ-2 {[#3]}
<MI 225fc LEA.L (A6-0x7a),A0> {[#3]}
<MI 22600 MOVE.L A0,-(A7)> Δ-4 {[#3]|[4, 'A0']}
<Call 0x22602 0x103a8> {[#3]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 22608-2260a StackAdj> Δ+4 {[#3]}
<POP 2260a-2260b StackAdj> Δ+2 {}
<Const 0x2260b 0x1.2> Δ-2 {[#1]}
<Call 0x2260e 0x21a38> {[#1]}
<POP 22612-22614 StackAdj> Δ+2 {}
<MI 22614 MOVE.L #0x6,0x23944> {}
<POP 2261e-22626 Epilogue> Σ0
@ 22626
<LVAR -0x078 2(r)>
<LVAR -0x07a 2(w)>
<LVAR -0x07c @ 2(w)>
<POP 22626-22696 Body>
<POP 22626-2263c Prologue> Σ0 ↓
<POP 2263c-22642 RegCacheLoad> Σ0 ↓
<POP 22642-2268e Naked> Σ0 ↓
<MI 22642 MOVE.W #0x4,(A6-0x7c)> {}
<MI 22648 MOVE.W #0x9,(A6-0x7a)> {}
<MI 2264e CLR.W (A6-0x78)> {}
<Const 0x22652 0x3.2> Δ-2 {[#3]}
<MI 22656 LEA.L (A6-0x7c),A0> {[#3]}
<MI 2265a MOVE.L A0,-(A7)> Δ-4 {[#3]|[4, 'A0']}
<Call 0x2265c 0x103a8> {[#3]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 22662-22664 StackAdj> Δ+4 {[#3]}
<MI 22664 CLR.B (A7)> {[#3]}
<Call 0x22666 0x21a38> {[#3]}
<Call 0x2266a 0x105ce> {[#3]}
ReadKeySwitch() : Bool
<MI 22670 MOVE.B (A7)+,0x23942> Δ+2 {}
<MI 22672 NEG.B 0x23942> {}
<MI 22674 ADDQ.B #0x1,0x23942> {}
<MI 22676 MOVE.B 0x2393f,D0> {}
<MI 2267c LSL.B #0x4,D0> {}
<MI 2267e LSR.B #0x7,D0> {}
<MI 22680 AND.B D0,0x23942> {}
<MI 22682 MOVE.B 0x2393f,D0> {}
<MI 22688 LSL.B #0x5,D0> {}
<MI 2268a LSR.B #0x7,D0> {}
<MI 2268c AND.B D0,0x23942> {}
<POP 2268e-22696 Epilogue> Σ0
@ 22696
<LVAR 0x008 1(r)>
<POP 22696-22758 Body> Δ+2
<POP 22696-226ac Prologue> Σ0 ↓
<POP 226ac-22708 Naked> Σ0 →0x22724 →0x22726 →0x22728 →0x22730 →0x22732 →0x22734 →0x22736 →0x22738 →0x2273a →0x2273c →0x22742 →0x22744 →0x22746 →0x22748
<MI 226ac MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x226b0 0x21f5c> {[2, '(A6+0x8)']}
<POP 226b4-226b5 StackAdj> Δ+2 {}
<Const 0x226b5 0x1b.2> Δ-2 {[#27]}
<Call 0x226b8 0x103d0> {[#27]}
WriteConsoleChar(chr : char)
<POP 226be-226c0 StackAdj> Δ-2 {[#27]|[-2-]}
<POP 226c0-226c1 StackAdj> Δ+2 {[#27]}
<Blob 0x226c1 [2] @> Δ-2 {[#27]|[«2""»]}
<MI 226c4 MOVE.B 0x20b59,(A7+0x1)> {[#27]|[«2""»]}
<MI 226ca MOVE.B 0x20b5a,(A7+0x2)> {[#27]|[«2""»]}
<POP 226d0-226d2 StackAdj> Δ-4 {[#27]|[«2""»]|[-4-]}
<Lit 0x226d2> {[#27]|[«2""»]|[$$…]}
<Pointer.sp 0x226d2 4> Δ-4
<Const 0x226d6 0x1.2> Δ-2
<Const 0x226da 0x3.2> Δ-2
<Call 0x226de 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 226e4-226e6 StackAdj> Δ+8
<Call 0x226e6 0x103d8> {[#27]|[«2""»]|[$$…]}
WriteConsoleString(str : String)
<POP 226ec-226ee StackAdj> Δ+8 {}
<MI 226ee MOVE.B (A6+0x8),D0> {}
<MI 226f2 EXTB.W D0> {}
<MI 226f4 MOVE.W D0,D1> {}
<POP 0x226f6 LimitCheck 0x0 ≤ D1 ≤ 0xd> {}
<MI 226fe ADD.W D1,D1> {}
<MI 22700 SWITCH D1.W> {}
<POP 22724-22726 Naked> Σ0 →0x22750 ←0x226ac
<MI 22724 BRA 0x22750> {}
<POP 22726-22728 Naked> Σ0 →0x22748 ←0x226ac
<MI 22726 BRA 0x22748> {}
<POP 22728-22730 Naked> Σ0 Δ-2 →0x2274e ←0x226ac ←0x22732 ←0x22734 ←0x22736 ←0x22746
<MI 22728 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Call 0x2272a 0x22400> {[2, 'D0']}
<MI 2272e BRA 0x2274e> {[2, 'D0']}
<POP 22730-22732 Naked> Σ0 →0x22748 ←0x226ac
<MI 22730 BRA 0x22748> {}
<POP 22732-22734 Naked> Σ0 →0x22728 ←0x226ac
<MI 22732 BRA 0x22728> {}
<POP 22734-22736 Naked> Σ0 →0x22728 ←0x226ac
<MI 22734 BRA 0x22728> {}
<POP 22736-22738 Naked> Σ0 →0x22728 ←0x226ac
<MI 22736 BRA 0x22728> {}
<POP 22738-2273a Naked> Σ0 →0x22748 ←0x226ac
<MI 22738 BRA 0x22748> {}
<POP 2273a-2273c Naked> Σ0 →0x22748 ←0x226ac
<MI 2273a BRA 0x22748> {}
<POP 2273c-22742 Naked> Σ0 →0x22750 ←0x226ac
<Call 0x2273c 0x22626> {}
<MI 22740 BRA 0x22750> {}
<POP 22742-22744 Naked> Σ0 →0x22748 ←0x226ac
<MI 22742 BRA 0x22748> {}
<POP 22744-22746 Naked> Σ0 →0x22748 ←0x226ac
<MI 22744 BRA 0x22748> {}
<POP 22746-22748 Naked> Σ0 →0x22728 ←0x226ac
<MI 22746 BRA 0x22728> {}
<POP 22748-2274e Naked> Σ0 Δ-2 ↓ ←0x226ac ←0x22726 ←0x22730 ←0x22738 ←0x2273a ←0x22742 ←0x22744
<MI 22748 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Call 0x2274a 0x225d4> {[2, 'D0']}
<POP 2274e-22750 Naked> Σ-2 Δ+2 ↓ ←0x22728
<POP 2274e-22750 StackAdj> Δ+2 {}
<POP 22750-22758 Epilogue> Σ0 ←0x22724 ←0x2273c
@ 22758
<LVAR 0x012 @ 4(r)>
<LVAR 0x00e @ 4(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 22758-22884 Body>
<POP 22758-2276e Prologue> Σ0 ↓
<POP 2276e-22784 RegCacheLoad> Σ0 ↓
<POP 22784-22812 Naked> Σ0 ↓ →0x22828
<POP 22784-22786 StackAdj> Δ-4 {[-4-]}
<MI 22786 MOVE.L (A6+0x12),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x12)']}
<Call 0x22788 0x102cc> {[-4-]|[4, '(A6+0x12)']}
StringDup(a : String) : String
<POP 2278a-2278c StackAdj> Δ+4 {[-4-]}
<Call 0x2278c 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22792-22794 StackAdj> Δ+2 {[-2-]}
<POP 22794-22795 StackAdj> Δ+2 {}
<Blob 0x22795 [2] @> Δ-2 {[«2""»]}
<POP 22798-2279a StackAdj> Δ-4 {[«2""»]|[-4-]}
<Lit 0x2279a 2> {[«2""»]|[$$ _]}
<Call 0x227ac 0x103d8> {[«2""»]|[$$ _]}
WriteConsoleString(str : String)
<POP 227b2-227b4 StackAdj> Δ+2 {[«2""»]|[-2-]}
<MI 227b4 MOVE.L (A6+0xe),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0xe)']}
<Call 0x227b6 0x102cc> {[«2""»]|[-2-]|[4, '(A6+0xe)']}
StringDup(a : String) : String
<MI 227b8 MOVE.L (A6+0xa),(A7)> {[«2""»]|[-2-]|[4, '(A6+0xa)']}
<Call 0x227bc 0x10450> {[«2""»]|[-2-]|[4, '(A6+0xa)']}
FS_10450(&, &)
<POP 227c2-227c4 StackAdj> Δ+6 {[«2""»]}
<POP 227c4-227c5 StackAdj> Δ+2 {}
<Const 0x227c5 0x1b.2> Δ-2 {[#27]}
<Call 0x227c8 0x103d0> {[#27]}
WriteConsoleChar(chr : char)
<POP 227ce-227d0 StackAdj> Δ-2 {[#27]|[-2-]}
<POP 227d0-227d1 StackAdj> Δ+2 {[#27]}
<Blob 0x227d1 [2] @> Δ-2 {[#27]|[«2""»]}
<MI 227d4 MOVE.B 0x20b5f,(A7+0x1)> {[#27]|[«2""»]}
<MI 227da MOVE.B 0x20b60,(A7+0x2)> {[#27]|[«2""»]}
<POP 227e0-227e2 StackAdj> Δ-4 {[#27]|[«2""»]|[-4-]}
<Lit 0x227e2> {[#27]|[«2""»]|[$$…]}
<Pointer.sp 0x227e2 4> Δ-4
<Const 0x227e6 0x1.2> Δ-2
<Const 0x227e8 0x3.2> Δ-2
<Call 0x227ec 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 227f2-227f4 StackAdj> Δ+8
<Call 0x227f4 0x103d8> {[#27]|[«2""»]|[$$…]}
WriteConsoleString(str : String)
<POP 227fa-227fc StackAdj> Δ+8 {}
<MI 227fc MOVE.L #0x6,0x23944> {}
<MI 22802 MOVE.B (A6+0x8),D0> {}
<MI 22806 EXTB.W D0> {}
<MI 22808 LEA.L 0x21238,A0> {}
<MI 2280c TST.B (A0+D0.W)> {}
<MI 22810 BEQ 0x22828> {}
<POP 22812-2281a Naked> Σ0 ↓ →0x22824
<MI 22812 TST.B 0x23940> {}
<MI 22818 BEQ 0x22824> {}
<POP 2281a-22824 Naked> Σ0 →0x22826
<Const 0x2281a 0x1.2> Δ-2 {[#1]}
<Call 0x2281c 0x21a38> {[#1]}
<POP 22820-22822 StackAdj> Δ+2 {}
<MI 22822 BRA 0x22826> {}
<POP 22824-22826 Naked> Σ0 ↓ ←0x22812
<MI 22824 MOVE.L #0x01,0x23944> {}
<POP 22826-22828 Naked> Σ0 →0x22868 ←0x2281a
<MI 22826 BRA 0x22868> {}
<POP 22828-2283a Naked> Σ0 ↓ →0x22858 ←0x22784
<Call 0x22828 0x212da> {}
<POP 2282c-2282e StackAdj> Δ-4 {[-4-]}
<Call 0x2282e 0x103f8> {[-4-]}
GetConsoleConfig() : Long
<MI 22834 MOVE.L (A7)+,D0> Δ+4 {}
<MI 22836 CMP.L #0x01,D0> {}
<MI 22838 BEQ 0x22858> {}
<POP 2283a-22858 Naked> Σ0 ↓
<POP 2283a-2283c StackAdj> Δ-4 {[-4-]}
<MI 2283c MOVE.L (A6+0x12),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x12)']}
<Call 0x2283e 0x102cc> {[-4-]|[4, '(A6+0x12)']}
StringDup(a : String) : String
<POP 22840-22842 StackAdj> Δ+4 {[-4-]}
<Call 0x22842 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<MI 22848 MOVE.L (A6+0xe),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xe)']}
<Call 0x2284a 0x102cc> {[-4-]|[4, '(A6+0xe)']}
StringDup(a : String) : String
<MI 2284c MOVE.L (A6+0xa),(A7)> {[-4-]|[4, '(A6+0xa)']}
<Call 0x22850 0x10450> {[-4-]|[4, '(A6+0xa)']}
FS_10450(&, &)
<POP 22856-22858 StackAdj> Δ+8 {}
<POP 22858-22860 Naked> Σ0 ↓ →0x22868 ←0x22828
<MI 22858 TST.B 0x23940> {}
<MI 2285e BEQ 0x22868> {}
<POP 22860-22868 Naked> Σ0 ↓
<MI 22860 CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x22862 0x21a38> {[#0]}
<POP 22866-22868 StackAdj> Δ+2 {}
<POP 22868-2287c Naked> Σ0 ↓ ←0x22826 ←0x22858
<Pointer.fp 0x22868 <LVAR 0x012 @ 4(r)>> Δ-4 {[@@18]}
<Call 0x2286a 0x102bc> {[@@18]}
FreeString(VAR a : String)
<POP 22870-22872 StackAdj> Δ+4 {}
<Pointer.fp 0x22872 <LVAR 0x00e @ 4(r)>> Δ-4 {[@@14]}
<Call 0x22874 0x102bc> {[@@14]}
FreeString(VAR a : String)
<POP 2287a-2287c StackAdj> Δ+4 {}
<POP 2287c-22884 Epilogue> Σ0
@ 22884
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<LVAR -0x07a @ 2(w)>
<POP 22884-22916 Body>
<POP 22884-2289a Prologue> Σ0 ↓
<POP 2289a-2289c RegCacheLoad> Σ0 ↓
<POP 2289c-2290e Naked> Σ0 ↓
<MI 2289c MOVE.L (A6+0xa),D0> {}
<POP 0x228a0 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 228aa MOVE.W D0,(A6-0x7a)> {}
<Const 0x228ae 0x4.2> Δ-2 {[#4]}
<MI 228b2 LEA.L (A6-0x7a),A0> {[#4]}
<MI 228b6 MOVE.L A0,-(A7)> Δ-4 {[#4]|[4, 'A0']}
<Call 0x228b8 0x103a8> {[#4]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 228be-228c0 StackAdj> Δ+6 {}
<Blob 0x228c0 [42] @> Δ-42 {[«42""»]}
<Blob 0x228cc [18] @> Δ-18 {[«42""»]|[«18""»]}
<POP 228d8-228da StackAdj> Δ-4 {[«42""»]|[«18""»]|[-4-]}
<Lit 0x228da 42> {[«42""»]|[«18""»]|[$$Restaring system after IOP Kernel crash =>]}
<POP 228ea-228ec StackAdj> Δ-4 {[«42""»]|[«18""»]|[$$Restaring system after IOP Kernel crash =>]|[-4-]}
<Lit 0x228ec 18> {[«42""»]|[«18""»]|[$$Restaring system after IOP Kernel crash =>]|[$$IOP_PANICS.ERRMESS]}
<POP 228fc-228fe StackAdj> Δ-4 {[«42""»]|[«18""»]|[$$Restaring system after IOP Kernel crash =>]|[$$IOP_PANICS.ERRMESS]|[-4-]}
<MI 228fe MOVE.L (A6+0xa),(A7)> {[«42""»]|[«18""»]|[$$Restaring system after IOP Kernel crash =>]|[$$IOP_PANICS.ERRMESS]|[4, '(A6+0xa)']}
<MI 22902 MOVE.B (A6+0x8),-(A7)> Δ-2 {[«42""»]|[«18""»]|[$$Restaring system after IOP Kernel crash =>]|[$$IOP_PANICS.ERRMESS]|[4, '(A6+0xa)']|[2, '(A6+0x8)']}
<Call 0x22906 0x22758> {[«42""»]|[«18""»]|[$$Restaring system after IOP Kernel crash =>]|[$$IOP_PANICS.ERRMESS]|[4, '(A6+0xa)']|[2, '(A6+0x8)']}
<POP 2290a-2290e StackAdj> Δ+74 {}
<POP 2290e-22916 Epilogue> Σ0
@ 22916
<LVAR 0x00a 1(r)>
<LVAR 0x008 1(r)>
<LVAR -0x07a 2(r)>
<LVAR -0x07c @ 2(w)>
<POP 22916-229a4 Body>
<POP 22916-2292c Prologue> Σ0 ↓
<POP 2292c-2292e RegCacheLoad> Σ0 ↓
<POP 2292e-2299c Naked> Σ0 ↓
<MI 2292e MOVE.B (A6+0xa),D0> {}
<MI 22932 EXTB.W D0> {}
<MI 22934 MOVE.W D0,(A6-0x7c)> {}
<MI 22938 CLR.W (A6-0x7a)> {}
<Const 0x2293c 0x2.2> Δ-2 {[#2]}
<MI 22940 LEA.L (A6-0x7c),A0> {[#2]}
<MI 22944 MOVE.L A0,-(A7)> Δ-4 {[#2]|[4, 'A0']}
<Call 0x22946 0x103a8> {[#2]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 2294c-2294e StackAdj> Δ+6 {}
<Blob 0x2294e [52] @> Δ-52 {[«52""»]}
<Blob 0x2295a [18] @> Δ-18 {[«52""»]|[«18""»]}
<POP 22966-22968 StackAdj> Δ-4 {[«52""»]|[«18""»]|[-4-]}
<Lit 0x22968 52> {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]}
<POP 22978-2297a StackAdj> Δ-4 {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[-4-]}
<Lit 0x2297a 18> {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[$$IOA_PANICS.ERRMESS]}
<MI 2298c EXTW.L D0> {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[$$IOA_PANICS.ERRMESS]}
<MI 2298e MOVE.L D0,-(A7)> Δ-4 {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[$$IOA_PANICS.ERRMESS]|[4, 'D0']}
<MI 22990 MOVE.B (A6+0x8),-(A7)> Δ-2 {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[$$IOA_PANICS.ERRMESS]|[4, 'D0']|[2, '(A6+0x8)']}
<Call 0x22994 0x22758> {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[$$IOA_PANICS.ERRMESS]|[4, 'D0']|[2, '(A6+0x8)']}
<POP 22998-2299c StackAdj> Δ+84 {}
<POP 2299c-229a4 Epilogue> Σ0
@ 229a4
<POP 229a4-22a24 Body>
<POP 229a4-229ba Prologue> Σ0 ↓
<POP 229ba-229c2 Naked> Σ0 ↓ →0x229d4
<MI 229ba TST.B 0x23940> {}
<MI 229c0 BNE 0x229d4> {}
<POP 229c2-229d4 Naked> Σ0 →0x22a1c
<Const 0x229c2 0x5.2> Δ-2 {[#5]}
<Const 0x229c6 0x2.2> Δ-2 {[#5]|[#2]}
<Call 0x229ca 0x1048a> {[#5]|[#2]}
DiProcCmd(board : Byte; cmd : Byte)
<POP 229d0-229d2 StackAdj> Δ+4 {}
<MI 229d2 BRA 0x22a1c> {}
<POP 229d4-229f4 Naked> Σ0 ↓ ←0x229ba
<Call 0x229d4 0x235fa> {}
exp_FREEZE_WORLD.FIU()
<Call 0x229da 0x2371c> {}
exp_MF.IOC()
<Call 0x229e0 0x23678> {}
exp_MF.VAL()
<Call 0x229e6 0x23664> {}
exp_MF.TYP()
<Call 0x229ec 0x23618> {}
exp_RESET.SEQ()
<MI 229f2 MOVEQ.L #0x0c,D7> {}
<POP 229f4-22a04 Naked> Σ0 ↓ →0x22a0e ←0x22a0e
<POP 229f4-229f6 StackAdj> Δ-2 {[-2-]}
<MI 229f6 MOVE.B D7,-(A7)> Δ-2 {[-2-]|[2, 'D7']}
<Call 0x229f8 0x104c0> {[-2-]|[2, 'D7']}
HasBoard(diproc_addr: Byte) : Byte
<POP 229fe-22a00 StackAdj> Δ+2 {[-2-]}
<MI 22a00 TST.B (A7)+> Δ+2 {}
<MI 22a02 BEQ 0x22a0e> {}
<POP 22a04-22a0e Naked> Σ0 ↓
<MI 22a04 MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']}
<Call 0x22a06 0x23698> {[2, 'D7']}
<POP 22a0c-22a0e StackAdj> Δ+2 {}
<POP 22a0e-22a16 Naked> Σ0 ↓ →0x229f4 ←0x229f4
<MI 22a0e ADDQ.B #0x1,D7> {}
<MI 22a10 CMPI.B #0x0f,D7> {}
<MI 22a14 BLE 0x229f4> {}
<POP 22a16-22a1c Naked> Σ0 ↓
<Call 0x22a16 0x235e6> {}
exp_MF.FIU()
<POP 22a1c-22a24 Epilogue> Σ0 ←0x229c2
@ 22a24
<LVAR 0x008 4(r)>
<LVAR -0x006 1(r)>
<LVAR -0x007 @ 1(r)>
<LVAR -0x008 @ 1(r)>
<LVAR -0x009 @ 1(r)>
<LVAR -0x00a @>
<LVAR -0x00b @ 1(r)>
<LVAR -0x00c @>
<POP 22a24-22b8a Body>
<POP 22a24-22a3a Prologue> Σ0 ↓
<POP 22a3a-22a48 RegCacheLoad> Σ0 ↓
<POP 22a48-22a56 Naked> Σ0 ↓ →0x22a5a
<MI 22a48 CLR.B (A6-0x8)> {}
<MI 22a4a MOVEA.L (A6+0x8),A0> {}
<MI 22a4c CLR.B (A0)> {}
<MI 22a4e TST.B 0x23940> {}
<MI 22a54 BNE 0x22a5a> {}
<POP 22a56-22a5a Naked> Σ0 →0x22b82
<MI 22a56 BRA 0x22b82> {}
<POP 22a5a-22a6a Naked> Σ0 ↓ →0x22b06 ←0x22a48
<Pointer.fp 0x22a5a <LVAR -0x008 @ 1(r)>> Δ-4 {[@@-8]}
<Call 0x22a5c 0x2364e> {[@@-8]}
exp_HALT.SEQ(&Fr)
<POP 22a62-22a64 StackAdj> Δ+4 {}
<MI 22a64 TST.B (A6-0x8)> {}
<MI 22a66 BEQ 0x22b06> {}
<POP 22a6a-22a96 Naked> Σ0 ↓ →0x22afe
<Pointer.fp 0x22a6a <LVAR -0x007 @ 1(r)>> Δ-4 {[@@-7]}
<Call 0x22a6e 0x2362e> {[@@-7]}
exp_READ_CUR_UADR.SEQ(&Sr_2)
<POP 22a74-22a76 StackAdj> Δ+4 {}
<MI 22a76 CLR.L D0> {}
<MI 22a78 MOVE.B (A6-0x7),D0> {}
<MI 22a7c ASL.W #0x8,D0> {}
<MI 22a7e CLR.L D1> {}
<MI 22a80 MOVE.B (A6-0x6),D1> {}
<MI 22a84 ADD.W D0,D1> {}
<MI 22a86 EXTW.L D1> {}
<MI 22a88 MOVE.L D1,D6> {}
<MI 22a8a MOVE.L D6,D0> {}
<MI 22a8c SUBI.L #0x00000200,D0> {}
<MI 22a92 CMP.L #0x09,D0> {}
<MI 22a94 BHI 0x22afe> {}
<POP 22a96-22aa0 Naked> Σ0 →0x22ab4 →0x22abc →0x22ac4 →0x22acc →0x22ad4 →0x22adc →0x22ae4 →0x22aea →0x22af0 →0x22af6
<MI 22a96 ADD.W D0,D0> {}
<MI 22a98 SWITCH D0.W> {}
<POP 22ab4-22abc Naked> Σ0 →0x22b04 ←0x22a96
<MI 22ab4 MOVEA.L (A6+0x8),A0> {}
<MI 22ab6 MOVE.B #0x01,(A0)> {}
<MI 22aba BRA 0x22b04> {}
<POP 22abc-22ac4 Naked> Σ0 →0x22b04 ←0x22a96
<MI 22abc MOVEA.L (A6+0x8),A0> {}
<MI 22abe MOVE.B #0x02,(A0)> {}
<MI 22ac2 BRA 0x22b04> {}
<POP 22ac4-22acc Naked> Σ0 →0x22b04 ←0x22a96
<MI 22ac4 MOVEA.L (A6+0x8),A0> {}
<MI 22ac6 MOVE.B #0x03,(A0)> {}
<MI 22aca BRA 0x22b04> {}
<POP 22acc-22ad4 Naked> Σ0 →0x22b04 ←0x22a96
<MI 22acc MOVEA.L (A6+0x8),A0> {}
<MI 22ace MOVE.B #0x04,(A0)> {}
<MI 22ad2 BRA 0x22b04> {}
<POP 22ad4-22adc Naked> Σ0 →0x22b04 ←0x22a96
<MI 22ad4 MOVEA.L (A6+0x8),A0> {}
<MI 22ad6 MOVE.B #0x05,(A0)> {}
<MI 22ada BRA 0x22b04> {}
<POP 22adc-22ae4 Naked> Σ0 →0x22b04 ←0x22a96
<MI 22adc MOVEA.L (A6+0x8),A0> {}
<MI 22ade MOVE.B #0x06,(A0)> {}
<MI 22ae2 BRA 0x22b04> {}
<POP 22ae4-22aea Naked> Σ0 →0x22b04 ←0x22a96
<MI 22ae4 MOVEA.L (A6+0x8),A0> {}
<MI 22ae6 MOVE.B #0x07,(A0)> {}
<MI 22ae8 BRA 0x22b04> {}
<POP 22aea-22af0 Naked> Σ0 →0x22b04 ←0x22a96
<MI 22aea MOVEA.L (A6+0x8),A0> {}
<MI 22aec MOVE.B #0x08,(A0)> {}
<MI 22aee BRA 0x22b04> {}
<POP 22af0-22af6 Naked> Σ0 →0x22b04 ←0x22a96
<MI 22af0 MOVEA.L (A6+0x8),A0> {}
<MI 22af2 MOVE.B #0x09,(A0)> {}
<MI 22af4 BRA 0x22b04> {}
<POP 22af6-22afe Naked> Σ0 →0x22b04 ←0x22a96
<MI 22af6 MOVEA.L (A6+0x8),A0> {}
<MI 22af8 MOVE.B #0x0a,(A0)> {}
<MI 22afc BRA 0x22b04> {}
<POP 22afe-22b04 Naked> Σ0 ↓ ←0x22a6a
<MI 22afe MOVEA.L (A6+0x8),A0> {}
<MI 22b00 MOVE.B #0x0d,(A0)> {}
<POP 22b04-22b06 Naked> Σ0 →0x22b82 ←0x22ab4 ←0x22abc ←0x22ac4 ←0x22acc ←0x22ad4 ←0x22adc ←0x22ae4 ←0x22aea ←0x22af0 ←0x22af6
<MI 22b04 BRA 0x22b82> {}
<POP 22b06-22b08 Naked> Σ0 ↓ ←0x22a5a
<MI 22b06 MOVEQ.L #0x00,D7> {}
<POP 22b08-22b24 Naked> Σ0 ↓ →0x22b50 ←0x22b50
<POP 0x22b08 LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<POP 22b0e-22b10 StackAdj> Δ-2 {[-2-]}
<MI 22b10 LEA.L 0x21243,A0> {[-2-]}
<MI 22b14 MOVE.B (A0+D7.L),-(A7)> Δ-2 {[-2-]|[2, '(A0+D7.L)']}
<Call 0x22b18 0x104c0> {[-2-]|[2, '(A0+D7.L)']}
HasBoard(diproc_addr: Byte) : Byte
<POP 22b1e-22b20 StackAdj> Δ+2 {[-2-]}
<MI 22b20 TST.B (A7)+> Δ+2 {}
<MI 22b22 BEQ 0x22b50> {}
<POP 22b24-22b48 Naked> Σ0 ↓ →0x22b50
<MI 22b24 LEA.L 0x21243,A0> {}
<MI 22b28 MOVE.B (A0+D7.L),-(A7)> Δ-2 {[2, '(A0+D7.L)']}
<Pointer.fp 0x22b2c <LVAR -0x00c @>> Δ-4 {[2, '(A0+D7.L)']|[@@-12]}
<Pointer.fp 0x22b30 <LVAR -0x00b @ 1(r)>> Δ-4 {[2, '(A0+D7.L)']|[@@-12]|[@@-11]}
<Pointer.fp 0x22b34 <LVAR -0x00a @>> Δ-4 {[2, '(A0+D7.L)']|[@@-12]|[@@-11]|[@@-10]}
<Call 0x22b38 0x10484> {[2, '(A0+D7.L)']|[@@-12]|[@@-11]|[@@-10]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 22b3e-22b42 StackAdj> Δ+14 {}
<MI 22b42 TST.B (A6-0xb)> {}
<MI 22b46 BEQ 0x22b50> {}
<POP 22b48-22b50 Naked> Σ0 →0x22b82 ←0x22b76
<MI 22b48 MOVEA.L (A6+0x8),A0> {}
<MI 22b4a MOVE.B #0x0c,(A0)> {}
<MI 22b4e BRA 0x22b82> {}
<POP 22b50-22b56 Naked> Σ0 ↓ →0x22b08 ←0x22b08 ←0x22b24
<MI 22b50 ADDQ.L #0x1,D7> {}
<MI 22b52 CMP.L #0x07,D7> {}
<MI 22b54 BLE 0x22b08> {}
<POP 22b56-22b76 Naked> Σ0 ↓ →0x22b78
<MI 22b56 CLR.B -(A7)> Δ-2 {[#0]}
<Pointer.fp 0x22b58 <LVAR -0x009 @ 1(r)>> Δ-4 {[#0]|[@@-9]}
<Call 0x22b5c 0x235c8> {[#0]|[@@-9]}
exp_READ_PAREG.FIU(Sw_1, &Sr_1)
<POP 22b62-22b64 StackAdj> Δ+6 {}
<MI 22b64 CLR.L D0> {}
<MI 22b66 MOVE.B (A6-0x9),D0> {}
<MI 22b6a MOVE.W D0,D1> {}
<MI 22b6c ANDI.W #0x00f7,D1> {}
<MI 22b70 CMPI.W #0x00f7,D1> {}
<MI 22b74 BEQ 0x22b78> {}
<POP 22b76-22b78 Naked> Σ0 →0x22b48
<MI 22b76 BRA 0x22b48> {}
<POP 22b78-22b7c Naked> Σ0 ↓ →0x22b82 ←0x22b56
<MI 22b78 AND.W #0x08,D0> {}
<MI 22b7a BNE 0x22b82> {}
<POP 22b7c-22b82 Naked> Σ0 ↓
<MI 22b7c MOVEA.L (A6+0x8),A0> {}
<MI 22b7e MOVE.B #0x0b,(A0)> {}
<POP 22b82-22b8a Epilogue> Σ0 ←0x22a56 ←0x22b04 ←0x22b48 ←0x22b78
@ 22b8a
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @>
<LVAR -0x00a @ 2(r)>
<LVAR -0x00c 2(w)>
<LVAR -0x00f @ 1(r)>
<LVAR -0x014 @ 1(r)>
<POP 22b8a-22d78 Body> Δ+6
<POP 22b8a-22ba0 Prologue> Σ0 ↓
<POP 22ba0-22bb4 RegCacheLoad> Σ0 ↓
<POP 22bb4-22bd6 Naked> Σ0 ↓ →0x22bd8
<MI 22bb4 CLR.W (A6-0xa)> {}
<Const 0x22bb6 0xfc10.4> Δ-4 {[##64528]}
<MI 22bbc LEA.L (A6-0xa),A0> {[##64528]}
<MI 22bbe MOVE.L A0,-(A7)> Δ-4 {[##64528]|[4, 'A0']}
<MI 22bc0 ADDQ.L #0x1,(A7)> {[##64528]|[-4-]}
<Const 0x22bc2 0x1.2> Δ-2 {[##64528]|[-4-]|[#1]}
<Call 0x22bc4 0x10238> {[##64528]|[-4-]|[#1]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 22bca-22bcc StackAdj> Δ+10 {}
<MI 22bcc CLR.B 0x23940> {}
<MI 22bce MOVE.W (A6-0xa),D0> {}
<MI 22bd0 AND.W #0x01,D0> {}
<MI 22bd2 CMP.W #0x01,D0> {}
<MI 22bd4 BNE 0x22bd8> {}
<POP 22bd6-22bd8 Naked> Σ0 ↓
<MI 22bd6 ADDQ.B #0x1,0x23940> {}
<POP 22bd8-22be4 Naked> Σ0 ↓ →0x22bea ←0x22bb4
<MI 22bd8 CLR.B 0x23941> {}
<MI 22bde MOVE.W (A6-0xa),D0> {}
<MI 22be0 CMP.W #0x02,D0> {}
<MI 22be2 BCS 0x22bea> {}
<POP 22be4-22bea Naked> Σ0 ↓
<MI 22be4 ADDQ.B #0x1,0x23941> {}
<POP 22bea-22c6a Naked> Σ0 ↓ →0x22c6e ←0x22bd8
<Call 0x22bea 0x229a4> {}
<Blob 0x22bee [52] @> Δ-52 {[«52""»]}
<POP 22bfa-22bfc StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x22bfc 52> {[«52""»]|[$$====================================================]}
<Call 0x22c0e 0x103e0> {[«52""»]|[$$====================================================]}
WriteConsoleStringCrLf(str : String)
<POP 22c14-22c18 StackAdj> Δ+54 {[-2-]}
<POP 22c18-22c19 StackAdj> Δ+2 {}
<Const 0x22c19 0x1b.2> Δ-2 {[#27]}
<Call 0x22c1c 0x103d0> {[#27]}
WriteConsoleChar(chr : char)
<POP 22c22-22c23 StackAdj> Δ+2 ↓ {}
<Blob 0x22c23 [6] @> Δ-6 {[«6""»]}
<POP 22c32-22c34 StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x22c34 5> {[«6""»]|[$$[1;7m]}
<Call 0x22c46 0x103d8> {[«6""»]|[$$[1;7m]}
WriteConsoleString(str : String)
<POP 22c4c-22c4e StackAdj> Δ+10 {}
<Pointer.fp 0x22c4e <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-20]}
<Call 0x22c50 0x105e0> {[@@-20]}
Get_BootReasonCode() : Byte
<MI 22c56 MOVE.B (A6-0x14),(A7)> {[-4-]}
<Call 0x22c58 0x21a0a> {[-4-]}
<POP 22c5c-22c5e StackAdj> Δ+2 {[-2-]}
<MI 22c5e MOVE.B (A7)+,D0> Δ+2 {}
<MI 22c60 EXTB.W D0> {}
<POP 0x22c62 LimitCheck 0x0 ≤ D0 ≤ 0xa> {}
<MI 22c64 MOVE.B D0,D7> {}
<MI 22c66 CMP.B #0x02,D7> {}
<MI 22c68 BEQ 0x22c6e> {}
<POP 22c6a-22c6e Naked> Σ0 ↓ →0x22cc8
<MI 22c6a TST.B 0x23940> {}
<MI 22c6c BEQ 0x22cc8> {}
<POP 22c6e-22cae Naked> Σ0 ↓ →0x22cc8 ←0x22bea
<Blob 0x22c6e [22] @> Δ-22 {[«22""»]}
<POP 22c7a-22c7c StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x22c7c 22> {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]}
<POP 22c8c-22c8e StackAdj> Δ-2 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]}
<MI 22c8e CLR.B (A7)> {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]}
<MI 22c90 CLR.B -(A7)> Δ-2 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#0]}
<Const 0x22c92 0x0.4> Δ-4 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#0]|[##0]}
<Pointer.fp 0x22c96 <LVAR -0x004 @ 1(r)>> Δ-4 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#0]|[##0]|[@@-4]}
<Pointer.fp 0x22c9a <LVAR -0x008 @>> Δ-4 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#0]|[##0]|[@@-4]|[@@-8]}
<Call 0x22c9e 0x10380> {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#0]|[##0]|[@@-4]|[@@-8]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 22ca4-22ca8 StackAdj> Δ+42 {}
<MI 22ca8 TST.B (A6-0x4)> {}
<MI 22cac BNE 0x22cc8> {}
<POP 22cae-22cc8 Naked> Σ0 ↓
<Const 0x22cae 0x2.2> Δ-2 {[#2]}
<Const 0x22cb0 0x1.2> Δ-2 {[#2]|[#1]}
<Const 0x22cb2 0x1.4> Δ-4 {[#2]|[#1]|[##1]}
<Pointer.fp 0x22cb6 <LVAR -0x004 @ 1(r)>> Δ-4 {[#2]|[#1]|[##1]|[@@-4]}
<Pointer.fp 0x22cba <LVAR -0x008 @>> Δ-4 {[#2]|[#1]|[##1]|[@@-4]|[@@-8]}
<Call 0x22cbe 0x1038c> {[#2]|[#1]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 22cc4-22cc8 StackAdj> Δ+16 {}
<POP 22cc8-22ccc Naked> Σ0 ↓ →0x22cd8 ←0x22c6a ←0x22c6e
<MI 22cc8 CMP.B #0x02,D7> {}
<MI 22cca BNE 0x22cd8> {}
<POP 22ccc-22cd2 Naked> Σ0 Δ-2 ↓
<MI 22ccc MOVE.B (A6-0x14),-(A7)> Δ-2 {[2, '(A6-0x14)']}
<Call 0x22cce 0x221c8> {[2, '(A6-0x14)']}
<POP 22cd2-22cd8 Naked> Σ-2 Δ+2 →0x22d58 ←0x22cdc ←0x22ce8 ←0x22d22
<POP 22cd2-22cd4 StackAdj> Δ+2 {}
<MI 22cd4 BRA 0x22d58> {}
<POP 22cd8-22cdc Naked> Σ0 ↓ →0x22ce4 ←0x22cc8
<MI 22cd8 CMP.B #0x01,D7> {}
<MI 22cda BNE 0x22ce4> {}
<POP 22cdc-22ce4 Naked> Σ0 Δ-2 →0x22cd2
<MI 22cdc MOVE.B (A6-0x14),-(A7)> Δ-2 {[2, '(A6-0x14)']}
<Call 0x22cde 0x22118> {[2, '(A6-0x14)']}
<MI 22ce2 BRA 0x22cd2> {[2, '(A6-0x14)']}
<POP 22ce4-22ce8 Naked> Σ0 ↓ →0x22cf0 ←0x22cd8
<MI 22ce4 TST.B D7> {}
<MI 22ce6 BNE 0x22cf0> {}
<POP 22ce8-22cf0 Naked> Σ0 Δ-2 →0x22cd2
<MI 22ce8 MOVE.B (A6-0x14),-(A7)> Δ-2 {[2, '(A6-0x14)']}
<Call 0x22cea 0x222dc> {[2, '(A6-0x14)']}
<MI 22cee BRA 0x22cd2> {[2, '(A6-0x14)']}
<POP 22cf0-22d22 Naked> Σ0 ↓ →0x22d34 ←0x22ce4
<POP 22cf0-22cf2 StackAdj> Δ-2 {[-2-]}
<Call 0x22cf2 0x105f2> {[-2-]}
Get_fc02() : Word
<MI 22cf8 MOVE.W (A7)+,D0> Δ+2 {}
<MI 22cfa MOVE.W D0,(A6-0xc)> {}
<MI 22cfe MOVE.W D0,D6> {}
<MI 22d00 ANDI.W #0x00ff,D6> {}
<MI 22d04 MOVE.W D0,D1> {}
<MI 22d06 LSR.W #0x8,D1> {}
<MI 22d08 MOVE.B D1,-(A7)> Δ-2 {[2, 'D1']}
<MI 22d0a CLR.L D1> {[2, 'D1']}
<MI 22d0c MOVE.B (A7)+,D1> Δ+2 {}
<POP 0x22d0e LimitCheck 0x0 ≤ D1 ≤ 0xa> {}
<MI 22d10 MOVE.B D1,D5> {}
<Pointer.fp 0x22d12 <LVAR -0x00f @ 1(r)>> Δ-4 {[@@-15]}
<Call 0x22d16 0x22a24> {[@@-15]}
<POP 22d1a-22d1c StackAdj> Δ+4 {}
<MI 22d1c TST.B (A6-0xf)> {}
<MI 22d20 BEQ 0x22d34> {}
<POP 22d22-22d34 Naked> Σ0 Δ-2 →0x22cd2
<MI 22d22 MOVE.B (A6-0xf),D0> {}
<MI 22d26 EXTB.W D0> {}
<POP 0x22d28 LimitCheck 0x0 ≤ D0 ≤ 0xd> {}
<MI 22d2c MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Call 0x22d2e 0x22696> {[2, 'D0']}
<MI 22d32 BRA 0x22cd2> {[2, 'D0']}
<POP 22d34-22d38 Naked> Σ0 ↓ →0x22d4e ←0x22cf0
<MI 22d34 TST.W D0> {}
<MI 22d36 BEQ 0x22d4e> {}
<POP 22d38-22d4e Naked> Σ0 →0x22d58
<MI 22d38 CLR.L D0> {}
<MI 22d3a MOVE.W D6,D0> {}
<MI 22d3c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 22d3e MOVE.B D5,D0> {[4, 'D0']}
<MI 22d40 EXTB.W D0> {[4, 'D0']}
<POP 0x22d42 LimitCheck 0x0 ≤ D0 ≤ 0xa> {[4, 'D0']}
<MI 22d44 MOVE.B D0,-(A7)> Δ-2 {[4, 'D0']|[2, 'D0']}
<Call 0x22d46 0x22884> {[4, 'D0']|[2, 'D0']}
<POP 22d4a-22d4c StackAdj> Δ+6 {}
<MI 22d4c BRA 0x22d58> {}
<POP 22d4e-22d58 Naked> Σ0 ↓ ←0x22d34
<MI 22d4e MOVE.B (A6-0x14),-(A7)> Δ-2 {[2, '(A6-0x14)']}
<MI 22d50 MOVE.B D7,-(A7)> Δ-2 {[2, '(A6-0x14)']|[2, 'D7']}
<Call 0x22d52 0x22916> {[2, '(A6-0x14)']|[2, 'D7']}
<POP 22d56-22d58 StackAdj> Δ+4 {}
<POP 22d58-22d70 Naked> Σ0 ↓ ←0x22cd2 ←0x22d38
<MI 22d58 CLR.W (A6-0xa)> {}
<MI 22d5a LEA.L (A6-0xa),A0> {}
<MI 22d5c MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22d5e ADDQ.L #0x1,(A7)> {[-4-]}
<Const 0x22d60 0xfc10.4> Δ-4 {[-4-]|[##64528]}
<Const 0x22d66 0x1.2> Δ-2 {[-4-]|[##64528]|[#1]}
<Call 0x22d68 0x10238> {[-4-]|[##64528]|[#1]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 22d6e-22d70 StackAdj> Δ+10 {}
<POP 22d70-22d78 Epilogue> Σ0
@ 22d78
<LVAR -0x004 @ 2(r)>
<LVAR -0x008 @ 4(r)>
<POP 22d78-22e82 Body>
<POP 22d78-22d8e Prologue> Σ0 ↓
<POP 22d8e-22da6 RegCacheLoad> Σ0 ↓
<POP 22da6-22db2 Naked> Σ0 ↓ →0x22dbe
<POP 22da6-22da8 StackAdj> Δ-2 {[-2-]}
<Call 0x22da8 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 22dae TST.B (A7)+> Δ+2 {}
<MI 22db0 BNE 0x22dbe> {}
<POP 22db2-22dbe Naked> Σ0 ↓ →0x22e04
<POP 22db2-22db4 StackAdj> Δ-2 {[-2-]}
<Call 0x22db4 0x10604> {[-2-]}
Is_machine_type_three() : Bool
<MI 22dba TST.B (A7)+> Δ+2 {}
<MI 22dbc BEQ 0x22e04> {}
<POP 22dbe-22de2 Naked> Σ0 ↓ →0x22e04 ←0x22da6
<Const 0x22dbe 0x9303e000.4> Δ-4 {[##2466504704]}
<Const 0x22dc4 0x5.2> Δ-2 {[##2466504704]|[#5]}
<MI 22dc6 LEA.L (A6-0x4),A0> {[##2466504704]|[#5]}
<MI 22dca MOVE.L A0,-(A7)> Δ-4 {[##2466504704]|[#5]|[4, 'A0']}
<Const 0x22dcc 0x1.2> Δ-2 {[##2466504704]|[#5]|[4, 'A0']|[#1]}
<Const 0x22dce 0x2.2> Δ-2 {[##2466504704]|[#5]|[4, 'A0']|[#1]|[#2]}
<Call 0x22dd2 0x1023a> {[##2466504704]|[#5]|[4, 'A0']|[#1]|[#2]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22dd8-22dda StackAdj> Δ+14 {}
<MI 22dda MOVE.W (A6-0x4),D0> {}
<MI 22dde AND.W #0x08,D0> {}
<MI 22de0 BNE 0x22e04> {}
<POP 22de2-22e04 Naked> Σ0 ↓
<Blob 0x22de2 [80] @> Δ-80 {[«80""»]}
<POP 22dee-22df0 StackAdj> Δ-4 {[«80""»]|[-4-]}
<Lit 0x22df0 80> {[«80""»]|[$$>>> WARNING: the EPROM WRITE PROTECT switch is OFF (at front of RESHA board) <<<]}
<Call 0x22dfe 0x103e0> {[«80""»]|[$$>>> WARNING: the EPROM WRITE PROTECT switch is OFF (at front of RESHA board) <<<]}
WriteConsoleStringCrLf(str : String)
<POP 22e00-22e04 StackAdj> Δ+84 {}
<POP 22e04-22e26 Naked> Σ0 ↓ →0x22e30 ←0x22db2 ←0x22dbe
<Const 0x22e04 0xfffff800.4> Δ-4 {[##4294965248]}
<Const 0x22e08 0x5.2> Δ-2 {[##4294965248]|[#5]}
<MI 22e0a LEA.L (A6-0x8),A0> {[##4294965248]|[#5]}
<MI 22e0c MOVE.L A0,-(A7)> Δ-4 {[##4294965248]|[#5]|[4, 'A0']}
<Const 0x22e0e 0x1.2> Δ-2 {[##4294965248]|[#5]|[4, 'A0']|[#1]}
<Const 0x22e10 0x4.2> Δ-2 {[##4294965248]|[#5]|[4, 'A0']|[#1]|[#4]}
<Call 0x22e14 0x1023a> {[##4294965248]|[#5]|[4, 'A0']|[#1]|[#4]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 22e1a-22e1c StackAdj> Δ+14 {}
<MI 22e1c MOVE.L (A6-0x8),D0> {}
<MI 22e1e ANDI.L #0x80000000,D0> {}
<MI 22e24 BEQ 0x22e30> {}
<POP 22e26-22e30 Naked> Σ0 ↓ →0x22e52
<MI 22e26 MOVE.L (A6-0x8),D0> {}
<MI 22e28 ANDI.L #0x00000200,D0> {}
<MI 22e2e BEQ 0x22e52> {}
<POP 22e30-22e52 Naked> Σ0 ↓ ←0x22e04
<Blob 0x22e30 [54] @> Δ-54 {[«54""»]}
<POP 22e3c-22e3e StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x22e3e 54> {[«54""»]|[$$>>> WARNING: the system clock or power is margined <<<]}
<Call 0x22e4c 0x103e0> {[«54""»]|[$$>>> WARNING: the system clock or power is margined <<<]}
WriteConsoleStringCrLf(str : String)
<POP 22e4e-22e52 StackAdj> Δ+58 {}
<POP 22e52-22e58 Naked> Σ0 ↓ →0x22e7a ←0x22e26
<MI 22e52 MOVE.L (A6-0x8),D0> {}
<MI 22e54 AND.L #0x08,D0> {}
<MI 22e56 BEQ 0x22e7a> {}
<POP 22e58-22e7a Naked> Σ0 ↓
<Blob 0x22e58 [62] @> Δ-62 {[«62""»]}
<POP 22e64-22e66 StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x22e66 62> {[«62""»]|[$$>>> NOTICE: the OPERATOR_MODE switch is set to INTERACTIVE <<<]}
<Call 0x22e74 0x103e0> {[«62""»]|[$$>>> NOTICE: the OPERATOR_MODE switch is set to INTERACTIVE <<<]}
WriteConsoleStringCrLf(str : String)
<POP 22e76-22e7a StackAdj> Δ+66 {}
<POP 22e7a-22e82 Epilogue> Σ0 ←0x22e52
@ 22e82
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(r)>
<POP 22e82-22ee8 Body>
<POP 22e82-22e98 Prologue> Σ0 ↓
<POP 22e98-22e9c RegCacheLoad> Σ0 ↓
<POP 22e9c-22ee0 Naked> Σ0 ↓
<MI 22e9c CLR.L (A6-0x4)> {}
<MI 22e9e MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 22ea2 LEA.L (A6-0x4),A0> {[4, '(A6+0xc)']}
<MI 22ea4 MOVE.L A0,-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, 'A0']}
<MI 22ea6 ADDQ.L #0x1,(A7)> {[4, '(A6+0xc)']|[-4-]}
<Const 0x22ea8 0x3.2> Δ-2 {[4, '(A6+0xc)']|[-4-]|[#3]}
<Call 0x22eac 0x10238> {[4, '(A6+0xc)']|[-4-]|[#3]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 22eb2-22eb4 StackAdj> Δ+6 {[4, '(A6+0xc)']}
<MI 22eb4 MOVE.L (A4),(A7)> {[4, '(A4)']}
<POP 22eb6-22eb8 StackAdj> Δ-8 {[4, '(A4)']|[-8-]}
<MI 22eb8 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A4)']|[-8-]|[4, '(A6-0x4)']}
<Const 0x22eba 0x6.4> Δ-4 {[4, '(A4)']|[-8-]|[4, '(A6-0x4)']|[##6]}
<Call 0x22ebe 0x102e8> {[4, '(A4)']|[-8-]|[4, '(A6-0x4)']|[##6]}
Long2HexString(val : Long; ndig : Long) : String
<POP 22ec4-22ec6 StackAdj> Δ+4 {[4, '(A4)']|[-8-]|[4, '(A6-0x4)']}
<MI 22ec6 MOVE.L (A6+0x8),(A7)> {[4, '(A4)']|[-8-]|[4, '(A6+0x8)']}
<Call 0x22eca 0x102d0> {[4, '(A4)']|[-8-]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 22ed0-22ed2 StackAdj> Δ+8 {[4, '(A4)']|[-4-]}
<MI 22ed2 PEA.L (A4+0x5)> Δ-4 {[4, '(A4)']|[-4-]|[4, '^(A4+0x5)']}
<Call 0x22ed6 0x10440> {[4, '(A4)']|[-4-]|[4, '^(A4+0x5)']}
FSCALL_10440
<POP 22edc-22ee0 StackAdj> Δ+12 {}
<POP 22ee0-22ee8 Epilogue> Σ0
@ 22ee8
<LVAR -0x004 @>
<LVAR -0x008 @ 4(r)>
<POP 22ee8-230dc Body>
<POP 22ee8-22efe Prologue> Σ0 ↓
<POP 22efe-22f14 RegCacheLoad> Σ0 ↓
<POP 22f14-22ffc Naked> Σ0 ↓ →0x2300a
<Blob 0x22f14 [12] @> Δ-12 {[«12""»]}
<POP 22f24-22f26 StackAdj> Δ-4 {[«12""»]|[-4-]}
<Lit 0x22f26 11> {[«12""»]|[$$EEPROM_REVS]}
<POP 22f30-22f32 StackAdj> Δ-2 {[«12""»]|[$$EEPROM_REVS]|[-2-]}
<POP 22f32-22f33 StackAdj> Δ+2 {[«12""»]|[$$EEPROM_REVS]}
<Const 0x22f33 0x1.2> Δ-2 {[«12""»]|[$$EEPROM_REVS]|[#1]}
<Const 0x22f34 0x1.2> Δ-2 {[«12""»]|[$$EEPROM_REVS]|[#1]|[#1]}
<Const 0x22f36 0x1.4> Δ-4 {[«12""»]|[$$EEPROM_REVS]|[#1]|[#1]|[##1]}
<Pointer.fp 0x22f3a <LVAR -0x004 @>> Δ-4 {[«12""»]|[$$EEPROM_REVS]|[#1]|[#1]|[##1]|[@@-4]}
<Pointer.fp 0x22f3e <LVAR -0x008 @ 4(r)>> Δ-4 {[«12""»]|[$$EEPROM_REVS]|[#1]|[#1]|[##1]|[@@-4]|[@@-8]}
<Call 0x22f40 0x10380> {[«12""»]|[$$EEPROM_REVS]|[#1]|[#1]|[##1]|[@@-4]|[@@-8]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 22f46-22f47 StackAdj> Δ+32 ↓ {}
<Blob 0x22f47 [16] @> Δ-16 {[«16""»]}
<Const 0x22f56 0x80001ffb.4> Δ-4 {[«16""»]|[##2147491835]}
<POP 22f5c-22f5e StackAdj> Δ-4 {[«16""»]|[##2147491835]|[-4-]}
<Lit 0x22f5e 15> {[«16""»]|[##2147491835]|[$$ --IOC_SELFTEST]}
<MI 22f6c LEA.L (A6-0x8),A4> {[«16""»]|[##2147491835]|[$$ --IOC_SELFTEST]}
<Call 0x22f6e 0x22e82> {[«16""»]|[##2147491835]|[$$ --IOC_SELFTEST]}
<POP 22f72-22f73 StackAdj> Δ+24 ↓ {}
<Blob 0x22f73 [12] @> Δ-12 {[«12""»]}
<Const 0x22f82 0x80003ffb.4> Δ-4 {[«12""»]|[##2147500027]}
<POP 22f88-22f8a StackAdj> Δ-4 {[«12""»]|[##2147500027]|[-4-]}
<Lit 0x22f8a 11> {[«12""»]|[##2147500027]|[$$ --IOC_BOOT]}
<MI 22f96 LEA.L (A6-0x8),A4> {[«12""»]|[##2147500027]|[$$ --IOC_BOOT]}
<Call 0x22f98 0x22e82> {[«12""»]|[##2147500027]|[$$ --IOC_BOOT]}
<POP 22f9c-22f9d StackAdj> Δ+20 ↓ {}
<Blob 0x22f9d [12] @> Δ-12 {[«12""»]}
<Const 0x22fac 0x80005ffb.4> Δ-4 {[«12""»]|[##2147508219]}
<POP 22fb2-22fb4 StackAdj> Δ-4 {[«12""»]|[##2147508219]|[-4-]}
<Lit 0x22fb4 11> {[«12""»]|[##2147508219]|[$$ --UTIL/DEB]}
<MI 22fc0 LEA.L (A6-0x8),A4> {[«12""»]|[##2147508219]|[$$ --UTIL/DEB]}
<Call 0x22fc2 0x22e82> {[«12""»]|[##2147508219]|[$$ --UTIL/DEB]}
<POP 22fc6-22fc7 StackAdj> Δ+20 ↓ {}
<Blob 0x22fc7 [12] @> Δ-12 {[«12""»]}
<Const 0x22fd6 0x80007dfb.4> Δ-4 {[«12""»]|[##2147515899]}
<POP 22fdc-22fde StackAdj> Δ-4 {[«12""»]|[##2147515899]|[-4-]}
<Lit 0x22fde 11> {[«12""»]|[##2147515899]|[$$ --NET/DEB2]}
<MI 22fea LEA.L (A6-0x8),A4> {[«12""»]|[##2147515899]|[$$ --NET/DEB2]}
<Call 0x22fec 0x22e82> {[«12""»]|[##2147515899]|[$$ --NET/DEB2]}
<POP 22ff0-22ff2 StackAdj> Δ+18 {[-2-]}
<Call 0x22ff2 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 22ff8 TST.B (A7)+> Δ+2 {}
<MI 22ffa BNE 0x2300a> {}
<POP 22ffc-2300a Naked> Σ0 ↓ →0x230b4
<POP 22ffc-22ffe StackAdj> Δ-2 {[-2-]}
<Call 0x22ffe 0x10604> {[-2-]}
Is_machine_type_three() : Bool
<MI 23004 TST.B (A7)+> Δ+2 {}
<MI 23006 BEQ 0x230b4> {}
<POP 2300a-230b4 Naked> Σ0 ↓ ←0x22f14
<Blob 0x2300a [14] @> Δ-14 {[«14""»]}
<Const 0x2301c 0x71ffb.4> Δ-4 {[«14""»]|[##466939]}
<POP 23022-23024 StackAdj> Δ-4 {[«14""»]|[##466939]|[-4-]}
<Lit 0x23024 13> {[«14""»]|[##466939]|[$$ --RESHA_TEST]}
<MI 23030 LEA.L (A6-0x8),A4> {[«14""»]|[##466939]|[$$ --RESHA_TEST]}
<Call 0x23032 0x22e82> {[«14""»]|[##466939]|[$$ --RESHA_TEST]}
<POP 23036-23037 StackAdj> Δ+22 ↓ {}
<Blob 0x23037 [14] @> Δ-14 {[«14""»]}
<Const 0x23046 0x73ffb.4> Δ-4 {[«14""»]|[##475131]}
<POP 2304c-2304e StackAdj> Δ-4 {[«14""»]|[##475131]|[-4-]}
<Lit 0x2304e 13> {[«14""»]|[##475131]|[$$ --LANCE_BOOT]}
<MI 2305a LEA.L (A6-0x8),A4> {[«14""»]|[##475131]|[$$ --LANCE_BOOT]}
<Call 0x2305c 0x22e82> {[«14""»]|[##475131]|[$$ --LANCE_BOOT]}
<POP 23060-23062 StackAdj> Δ+18 {[-4-]}
<POP 23062-23063 StackAdj> Δ+4 {}
<Blob 0x23063 [4] @> Δ-4 {[«4""»]}
<Blob 0x23066 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2306a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Const 0x2306e 0x75ffb.4> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[##483323]}
<POP 23074-23076 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[##483323]|[-4-]}
<Lit 0x23076 12> {[«4""»]|[«4""»]|[«4""»]|[##483323]|[$$ --DISK_BOOT]}
<MI 23082 LEA.L (A6-0x8),A4> {[«4""»]|[«4""»]|[«4""»]|[##483323]|[$$ --DISK_BOOT]}
<Call 0x23084 0x22e82> {[«4""»]|[«4""»]|[«4""»]|[##483323]|[$$ --DISK_BOOT]}
<POP 23088-2308a StackAdj> Δ+16 {[«4""»]}
<POP 2308a-2308b StackAdj> Δ+4 {}
<Blob 0x2308b [4] @> Δ-4 {[«4""»]}
<Blob 0x2308e [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x23092 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Const 0x23096 0x77ffb.4> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[##491515]}
<POP 2309c-2309e StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[##491515]|[-4-]}
<Lit 0x2309e 12> {[«4""»]|[«4""»]|[«4""»]|[##491515]|[$$ --TAPE_BOOT]}
<MI 230aa LEA.L (A6-0x8),A4> {[«4""»]|[«4""»]|[«4""»]|[##491515]|[$$ --TAPE_BOOT]}
<Call 0x230ac 0x22e82> {[«4""»]|[«4""»]|[«4""»]|[##491515]|[$$ --TAPE_BOOT]}
<POP 230b0-230b4 StackAdj> Δ+20 {}
<POP 230b4-230d4 Naked> Σ0 ↓ ←0x22ffc
<MI 230b4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x230b6 0x10448> {[4, '(A6-0x8)']}
FSCALL_10448
<POP 230bc-230be StackAdj> Δ+2 {[-2-]}
<MI 230be CLR.B (A7)> {[-2-]}
<Const 0x230c0 0x1.2> Δ-2 {[-2-]|[#1]}
<Const 0x230c2 0x1.4> Δ-4 {[-2-]|[#1]|[##1]}
<Pointer.fp 0x230c6 <LVAR -0x004 @>> Δ-4 {[-2-]|[#1]|[##1]|[@@-4]}
<Pointer.fp 0x230ca <LVAR -0x008 @ 4(r)>> Δ-4 {[-2-]|[#1]|[##1]|[@@-4]|[@@-8]}
<Call 0x230cc 0x1038c> {[-2-]|[#1]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 230d2-230d4 StackAdj> Δ+16 {}
<POP 230d4-230dc Epilogue> Σ0
@ 230dc
START
<POP 230dc--0001 Body> Δ+124
<POP 230dc-230e6 Prologue> Σ0
<POP 230e6-23106 RegCacheLoad> Σ0 ↓
<POP 23106-231aa Naked> Σ0 ↓
<Const 0x23106 0x1.4> Δ-4 {[##1]}
<Call 0x2310a 0x103f4> {[##1]}
SetConsoleConfig(a : Long)
<POP 23110-23112 StackAdj> Δ+2 {[-2-]}
<MI 23112 CLR.B (A7)> {[-2-]}
<Call 0x23114 0x10404> {[-2-]}
SetSomeKindOfFlag(a : Byte)
<POP 2311a-2311b StackAdj> Δ+2 {}
<Const 0x2311b 0x1.2> Δ-2 {[#1]}
<Const 0x2311c 0x1.2> Δ-2 {[#1]|[#1]}
<Call 0x2311e 0x10210> {[#1]|[#1]}
KC08_PortSomething(port: Word; b: Byte)
<POP 23124-23126 StackAdj> Δ+4 {}
<Const 0x23126 0xf.4> Δ-4 {[##15]}
<Call 0x2312a 0x104d8> {[##15]}
ExpInit(a : Long)
<POP 23130-23132 StackAdj> Δ+4 {}
<Call 0x23132 0x2147a> {}
<Const 0x23136 0x2393f.4> Δ-4 {[##145727]}
<Call 0x2313c 0x105aa> {[##145727]}
Read_fc00() : Byte
<POP 23142-23144 StackAdj> Δ+4 {}
<Call 0x23144 0x21546> {}
<Call 0x23148 0x21778> {}
<Blob 0x2314c [2] @> Δ-2 {[«2""»]}
<Blob 0x23150 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x23154 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<Blob 0x23158 [6] @> Δ-6 {[«2""»]|[«2""»]|[«2""»]|[«6""»]}
<POP 23168-2316a StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[-4-]}
<Lit 0x2316a 6> {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]}
<POP 23174-23176 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[-4-]}
<Lit 0x23176 5> {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[$$DOUSE]}
<POP 23180-23182 StackAdj> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[$$DOUSE]|[-2-]}
<MI 23182 CLR.B (A7)> {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[$$DOUSE]|[-2-]}
<Const 0x23184 0x2393e.4> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[$$DOUSE]|[-2-]|[##145726]}
<Call 0x2318a 0x103b0> {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[$$DOUSE]|[-2-]|[##145726]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 2318c-2318e StackAdj> Δ+26 {}
<Call 0x2318e 0x22ee8> {}
<MI 23192 CLR.B 0x23948> {}
<MI 23198 CLR.B 0x23949> {}
<MI 2319e CLR.B 0x23942> {}
<MI 231a4 MOVE.L #0x06,0x23944> {}
<Call 0x231a6 0x22b8a> {}
<POP 231aa-231bc Naked> Σ0 ↓ →0x231c2 ←0x235be
<Call 0x231aa 0x103dc> {}
WriteConsoleCrLf(void)
<Call 0x231b0 0x22d78> {}
<MI 231b4 TST.B 0x23942> {}
<MI 231ba BEQ 0x231c2> {}
<POP 231bc-231c2 Naked> Σ0 →0x23416
<MI 231bc MOVE.L #0x06,0x23944> {}
<MI 231be BRA 0x23416> {}
<POP 231c2-232d2 Naked> Σ0 ↓ →0x233a6 ←0x231aa
<Blob 0x231c2 [4] @> Δ-4 {[«4""»]}
<Blob 0x231c6 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x231ca [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 231ce-231d0 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x231d0 12> {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
<Call 0x231de 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$Options are:]}
WriteConsoleStringCrLf(str : String)
<POP 231e4-231e8 StackAdj> Δ+12 {[«4""»]}
<POP 231e8-231e9 StackAdj> Δ+4 {}
<Blob 0x231e9 [4] @> Δ-4 {[«4""»]}
<Blob 0x231ec [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x231f0 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x231f4 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 231f8-231fa StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x231fa 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$ 1 => enter CLI]}
<Call 0x23208 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$ 1 => enter CLI]}
WriteConsoleStringCrLf(str : String)
<POP 2320e-2320f StackAdj> Δ+20 ↓ {}
<Blob 0x2320f [24] @> Δ-24 {[«24""»]}
<POP 2321e-23220 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x23220 23> {[«24""»]|[$$ 2 => make a CRASHDUMP]}
<Call 0x2322e 0x103e0> {[«24""»]|[$$ 2 => make a CRASHDUMP]}
WriteConsoleStringCrLf(str : String)
<POP 23234-23236 StackAdj> Δ+28 {}
<Blob 0x23236 [24] @> Δ-24 {[«24""»]}
<POP 23242-23244 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x23244 24> {[«24""»]|[$$ 3 => run the FRU tests]}
<Call 0x23252 0x103e0> {[«24""»]|[$$ 3 => run the FRU tests]}
WriteConsoleStringCrLf(str : String)
<POP 23258-23259 StackAdj> Δ+28 ↓ {}
<Blob 0x23259 [30] @> Δ-30 {[«30""»]}
<POP 23268-2326a StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x2326a 29> {[«30""»]|[$$ 4 => Boot DDC configuration]}
<Call 0x23278 0x103e0> {[«30""»]|[$$ 4 => Boot DDC configuration]}
WriteConsoleStringCrLf(str : String)
<POP 2327e-23280 StackAdj> Δ+34 {}
<Blob 0x23280 [30] @> Δ-30 {[«30""»]}
<POP 2328c-2328e StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x2328e 30> {[«30""»]|[$$ 5 => Boot EEDB configuration]}
<Call 0x2329c 0x103e0> {[«30""»]|[$$ 5 => Boot EEDB configuration]}
WriteConsoleStringCrLf(str : String)
<POP 232a2-232a4 StackAdj> Δ+34 {}
<Blob 0x232a4 [34] @> Δ-34 {[«34""»]}
<POP 232b0-232b2 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x232b2 34> {[«34""»]|[$$ 6 => Boot STANDARD configuration]}
<Call 0x232be 0x103e0> {[«34""»]|[$$ 6 => Boot STANDARD configuration]}
WriteConsoleStringCrLf(str : String)
<POP 232c4-232c8 StackAdj> Δ+38 {}
<MI 232c8 MOVE.L 0x23944,D0> {}
<MI 232ca SUBQ.L #0x1,D0> {}
<MI 232cc CMP.L #0x05,D0> {}
<MI 232ce BHI 0x233a6> {}
<POP 232d2-232dc Naked> Σ0 →0x232e8 →0x23314 →0x2333c →0x23368 →0x23380 →0x23394
<MI 232d2 ADD.W D0,D0> {}
<MI 232d4 SWITCH D0.W> {}
<POP 232e8-232f8 Naked> Σ0 Δ-28 ↓ ←0x232d2
<Blob 0x232e8 [28] @> Δ-28 {[«28""»]}
<POP 232f8-23314 Naked> Σ-28 Δ+28 →0x233d0 ←0x23380
<POP 232f8-232fa StackAdj> Δ-4 {[-32-]}
<Lit 0x232fa> {[-28-]|[$$…]}
<Pointer.sp 0x232fa 4> Δ-4
<Const 0x232fe 0x1.2> Δ-2
<Const 0x23300 0x1b.2> Δ-2
<Call 0x23304 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23306-23308 StackAdj> Δ+8
<Call 0x23308 0x103d8> {[-28-]|[$$…]}
WriteConsoleString(str : String)
<POP 2330e-23310 StackAdj> Δ+32 {}
<MI 23310 BRA 0x233d0> {}
<POP 23314-2333c Naked> Σ0 →0x233d0 ←0x232d2
<Blob 0x23314 [34] @> Δ-34 {[«34""»]}
<POP 23320-23322 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x23322 34> {[«34""»]|[$$Enter option [Make a CRASHDUMP] :_]}
<Call 0x2332e 0x103d8> {[«34""»]|[$$Enter option [Make a CRASHDUMP] :_]}
WriteConsoleString(str : String)
<POP 23334-23338 StackAdj> Δ+38 {}
<MI 23338 BRA 0x233d0> {}
<POP 2333c-2334c Naked> Σ0 Δ-32 ↓ ←0x232d2
<Blob 0x2333c [32] @> Δ-32 {[«32""»]}
<POP 2334c-23368 Naked> Σ-32 Δ+32 →0x233d0 ←0x23394
<POP 2334c-2334e StackAdj> Δ-4 {[-36-]}
<Lit 0x2334e> {[-32-]|[$$…]}
<Pointer.sp 0x2334e 4> Δ-4
<Const 0x23352 0x1.2> Δ-2
<Const 0x23354 0x1f.2> Δ-2
<Call 0x23358 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2335a-2335c StackAdj> Δ+8
<Call 0x2335c 0x103d8> {[-32-]|[$$…]}
WriteConsoleString(str : String)
<POP 23362-23366 StackAdj> Δ+36 {}
<MI 23366 BRA 0x233d0> {}
<POP 23368-23380 Naked> Σ0 Δ-38 →0x233c2 ←0x232d2
<Blob 0x23368 [26] @> Δ-26 {[«26""»]}
<POP 23374-23376 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Pointer.sp 0x23376 4> Δ-4 {[«26""»]|[-4-]|[^^4]}
<Const 0x2337a 0x1.2> Δ-2 {[«26""»]|[-4-]|[^^4]|[#1]}
<Const 0x2337c 0x1a.2> Δ-2 {[«26""»]|[-4-]|[^^4]|[#1]|[#26]}
<MI 2337e BRA 0x233c2> {[«26""»]|[-4-]|[^^4]|[#1]|[#26]}
<POP 23380-23394 Naked> Σ0 Δ-28 →0x232f8 ←0x232d2
<Blob 0x23380 [28] @> Δ-28 {[«28""»]}
<MI 23390 BRA 0x232f8> {[«28""»]}
<POP 23394-233a6 Naked> Σ0 Δ-32 →0x2334c ←0x232d2
<Blob 0x23394 [32] @> Δ-32 {[«32""»]}
<MI 233a4 BRA 0x2334c> {[«32""»]}
<POP 233a6-233c2 Naked> Σ0 Δ-38 ↓ ←0x231c2
<Blob 0x233a6 [26] @> Δ-26 {[«26""»]}
<POP 233b6-233b8 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Pointer.sp 0x233b8 4> Δ-4 {[«26""»]|[-4-]|[^^4]}
<Const 0x233bc 0x1.2> Δ-2 {[«26""»]|[-4-]|[^^4]|[#1]}
<Const 0x233be 0x19.2> Δ-2 {[«26""»]|[-4-]|[^^4]|[#1]|[#25]}
<POP 233c2-233d0 Naked> Σ-38 Δ+38 ↓ ←0x23368
<Call 0x233c2 0x102c4> {[-38-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 233c4-233c6 StackAdj> Δ+8 {[-30-]}
<Call 0x233c6 0x103d8> {[-30-]}
WriteConsoleString(str : String)
<POP 233cc-233d0 StackAdj> Δ+30 {}
<POP 233d0-233ee Naked> Σ0 ↓ →0x233fe ←0x232f8 ←0x23314 ←0x2334c
<POP 233d0-233d2 StackAdj> Δ-4 {[-4-]}
<Const 0x233d2 0x1.4> Δ-4 {[-4-]|[##1]}
<Call 0x233d6 0x103e4> {[-4-]|[##1]}
AskConsoleString(prompt : String) : String
<POP 233dc-233de StackAdj> Δ+4 {[-4-]}
<MI 233de MOVE.L (A7)+,0x2394a> Δ+4 {}
<MI 233e4 MOVEA.L 0x2394a,A0> {}
<MI 233ea TST.W (A0)> {}
<MI 233ec BNE 0x233fe> {}
<POP 233ee-233fe Naked> Σ0 →0x23416
<Const 0x233ee 0x2394a.4> Δ-4 {[##145738]}
<Call 0x233f4 0x102bc> {[##145738]}
FreeString(VAR a : String)
<POP 233fa-233fc StackAdj> Δ+4 {}
<MI 233fc BRA 0x23416> {}
<POP 233fe-23416 Naked> Σ0 ↓ ←0x233d0
<Blob 0x233fe [4] 0x2394a> Δ-4 {[«4»]}
<Const 0x23404 0x2394e.4> Δ-4 {[«4»]|[##145742]}
<Const 0x2340a 0x23944.4> Δ-4 {[«4»]|[##145742]|[##145732]}
<Call 0x2340c 0x102ec> {[«4»]|[##145742]|[##145732]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 23412-23416 StackAdj> Δ+12 {}
<POP 23416-23420 Naked> Σ0 ↓ →0x23596 ←0x231bc ←0x233ee
<MI 23416 MOVE.L 0x23944,D0> {}
<MI 23418 SUBQ.L #0x1,D0> {}
<MI 2341a CMP.L #0x05,D0> {}
<MI 2341c BHI 0x23596> {}
<POP 23420-2342a Naked> Σ0 →0x23436 →0x2346e →0x23476 →0x234b6 →0x23502 →0x2352c
<MI 23420 ADD.W D0,D0> {}
<MI 23422 SWITCH D0.W> {}
<POP 23436-2346e Naked> Σ0 →0x235be ←0x23420
<POP 23436-23438 StackAdj> Δ-4 {[-4-]}
<POP 23438-23439 StackAdj> Δ+2 {[-2-]}
<Blob 0x23439 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 2343c MOVE.B 0x20ef1,(A7+0x1)> {[-2-]|[«2""»]}
<MI 23442 MOVE.B 0x20ef2,(A7+0x2)> {[-2-]|[«2""»]}
<POP 23448-2344a StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x2344a> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x2344a 4> Δ-4
<Const 0x2344e 0x1.2> Δ-2
<Const 0x23450 0x3.2> Δ-2
<Call 0x23454 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23456-23458 StackAdj> Δ+8
<Const 0x23458 0x1.4> Δ-4 {[-2-]|[«2""»]|[$$…]|[##1]}
<Const 0x2345c 0x1.2> Δ-2 {[-2-]|[«2""»]|[$$…]|[##1]|[#1]}
<Const 0x2345e 0x2394f.4> Δ-4 {[-2-]|[«2""»]|[$$…]|[##1]|[#1]|[##145743]}
<Call 0x23464 0x103b0> {[-2-]|[«2""»]|[$$…]|[##1]|[#1]|[##145743]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 23466-2346a StackAdj> Δ+18 {}
<MI 2346a BRA 0x235be> {}
<POP 2346e-23476 Naked> Σ0 →0x235be ←0x23420
<Call 0x2346e 0x21b26> {}
<MI 23472 BRA 0x235be> {}
<POP 23476-234b6 Naked> Σ0 →0x235be ←0x23420
<POP 23476-23478 StackAdj> Δ-4 {[-4-]}
<POP 23478-23479 StackAdj> Δ+2 {[-2-]}
<Blob 0x23479 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 2347c MOVE.B 0x20ef5,(A7+0x1)> {[-2-]|[«2""»]}
<MI 23482 MOVE.B 0x20ef6,(A7+0x2)> {[-2-]|[«2""»]}
<POP 23488-2348a StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x2348a> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x2348a 4> Δ-4
<Const 0x2348e 0x1.2> Δ-2
<Const 0x23490 0x3.2> Δ-2
<Call 0x23494 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23496-23498 StackAdj> Δ+8
<Const 0x23498 0x1.4> Δ-4 {[-2-]|[«2""»]|[$$…]|[##1]}
<Const 0x2349c 0x1.2> Δ-2 {[-2-]|[«2""»]|[$$…]|[##1]|[#1]}
<Const 0x2349e 0x2394f.4> Δ-4 {[-2-]|[«2""»]|[$$…]|[##1]|[#1]|[##145743]}
<Call 0x234a4 0x103b0> {[-2-]|[«2""»]|[$$…]|[##1]|[#1]|[##145743]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 234a6-234aa StackAdj> Δ+18 {}
<MI 234aa MOVE.B #0x01,0x23949> {}
<MI 234b0 MOVE.L #0x06,0x23944> {}
<MI 234b2 BRA 0x235be> {}
<POP 234b6-234ec Naked> Σ0 Δ-26 ↓ ←0x23420
<Blob 0x234b6 [2] @> Δ-2 {[«2""»]}
<Blob 0x234ba [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x234be [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 234c2-234c4 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<POP 234c4-234c5 StackAdj> Δ+2 {[«2""»]|[«2""»]|[«2""»]|[-2-]}
<Blob 0x234c5 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]}
<MI 234c8 MOVE.B 0x20eff,(A7+0x1)> {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]}
<MI 234ce MOVE.B 0x20f00,(A7+0x2)> {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]}
<POP 234d4-234d6 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[-4-]}
<Lit 0x234d6 6> {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[$$LOADER]}
<POP 234e0-234e2 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[$$LOADER]|[-4-]}
<Pointer.sp 0x234e2 8> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[$$LOADER]|[-4-]|[^^8]}
<Const 0x234e6 0x1.2> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[$$LOADER]|[-4-]|[^^8]|[#1]}
<Const 0x234e8 0x3.2> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[$$LOADER]|[-4-]|[^^8]|[#1]|[#3]}
<POP 234ec-23502 Naked> Σ-26 Δ+26 →0x235be ←0x23502
<Call 0x234ec 0x102c4> {[-26-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 234ee-234f0 StackAdj> Δ+6 {[-20-]}
<POP 234f0-234f1 StackAdj> Δ+2 {[-18-]}
<Const 0x234f1 0x1.2> Δ-2 {[-18-]|[#1]}
<Const 0x234f2 0x2394f.4> Δ-4 {[-18-]|[#1]|[##145743]}
<Call 0x234f8 0x103b0> {[-18-]|[#1]|[##145743]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 234fa-234fe StackAdj> Δ+24 {}
<MI 234fe BRA 0x235be> {}
<POP 23502-2352c Naked> Σ0 Δ-26 →0x234ec ←0x23420
<Blob 0x23502 [2] @> Δ-2 {[«2""»]}
<Blob 0x23506 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x2350a [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<Blob 0x2350e [4] @> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]}
<POP 23512-23514 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[-4-]}
<Lit 0x23514 6> {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]}
<POP 2351e-23520 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]|[-4-]}
<Pointer.sp 0x23520 8> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]|[-4-]|[^^8]}
<Const 0x23524 0x1.2> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]|[-4-]|[^^8]|[#1]}
<Const 0x23526 0x4.2> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]|[-4-]|[^^8]|[#1]|[#4]}
<MI 2352a BRA 0x234ec> {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]|[-4-]|[^^8]|[#1]|[#4]}
<POP 2352c-23596 Naked> Σ0 →0x235be ←0x23420
<Blob 0x2352c [38] @> Δ-38 {[«38""»]}
<POP 2353e-23540 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x23540 37> {[«38""»]|[$$--- Booting the R1000 Environment ---]}
<Call 0x2354e 0x103e0> {[«38""»]|[$$--- Booting the R1000 Environment ---]}
WriteConsoleStringCrLf(str : String)
<POP 23554-23558 StackAdj> Δ+40 {[-2-]}
<POP 23558-23559 StackAdj> Δ+2 {}
<Blob 0x23559 [2] @> Δ-2 {[«2""»]}
<Blob 0x2355c [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x23560 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<Blob 0x23564 [4] @> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]}
<Blob 0x23568 [4] @> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]}
<POP 2356c-2356e StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2356e 6> {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]}
<POP 23578-2357a StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[-4-]}
<Lit 0x2357a 8> {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]}
<POP 23586-23588 StackAdj> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]|[-2-]}
<POP 23588-23589 StackAdj> Δ+2 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]}
<Const 0x23589 0x1.2> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]|[#1]}
<Const 0x2358a 0x2394f.4> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]|[#1]|[##145743]}
<Call 0x23590 0x103b0> {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]|[#1]|[##145743]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 23592-23594 StackAdj> Δ+28 {}
<MI 23594 BRA 0x235be> {}
<POP 23596-235be Naked> Σ0 ↓ ←0x23416
<Blob 0x23596 [28] @> Δ-28 {[«28""»]}
<POP 235a6-235a8 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x235a8 27> {[«28""»]|[$$illegal response, try again]}
<Call 0x235b6 0x103e0> {[«28""»]|[$$illegal response, try again]}
WriteConsoleStringCrLf(str : String)
<POP 235bc-235be StackAdj> Δ+32 {}
<POP 235be-235c2 Naked> Σ0 →0x231aa ←0x23436 ←0x2346e ←0x23476 ←0x234ec ←0x2352c
<MI 235be BRA 0x231aa> {}
<POP 235c8-235ce Naked> Σ0
<Call 0x235c8 0x10568> {}
Run_Experiment()
@ 23698
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 23698-2371c Body> Δ+6
<POP 23698-236ae Prologue> Σ0 ↓
<POP 236ae-236b2 RegCacheLoad> Σ0 ↓
<POP 236b2-236be Naked> Σ0 ↓ →0x236cc
<POP 236b2-236b4 StackAdj> Δ-2 {[-2-]}
<Call 0x236b4 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 236ba TST.B (A7)+> Δ+2 {}
<MI 236bc BEQ 0x236cc> {}
<POP 236be-236cc Naked> Σ0 Δ-6 →0x236d8
<Blob 0x236be [2] @> Δ-2 {[«2""»]}
<Blob 0x236c2 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x236c6 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<MI 236ca BRA 0x236d8> {[«2""»]|[«2""»]|[«2""»]}
<POP 236cc-236d8 Naked> Σ0 Δ-6 ↓ ←0x236b2
<Blob 0x236cc [2] @> Δ-2 {[«2""»]}
<Blob 0x236d0 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x236d4 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 236d8-23714 Naked> Σ-6 Δ+6 ↓ ←0x236be
<POP 236d8-236da StackAdj> Δ-4 {[-10-]}
<Lit 0x236da> {[-6-]|[$$…]}
<Pointer.sp 0x236da 4> Δ-4
<Const 0x236de 0x1.2> Δ-2
<Const 0x236e2 0x6.2> Δ-2
<Call 0x236e6 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 236ec-236ee StackAdj> Δ+8
<Pointer.fp 0x236ee <LVAR -0x006 @ 4(r)>> Δ-4 {[-6-]|[$$…]|[@@-6]}
<Call 0x236f0 0x10460> {[-6-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 236f6-236fa StackAdj> Δ+14 {}
<MI 236fa CLR.B -(A7)> Δ-2 {[#0]}
<MI 236fc MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 23700 MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x23702 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 23708-2370a StackAdj> Δ+8 {}
<Pointer.fp 0x2370a <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x2370c 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 23712-23714 StackAdj> Δ+4 {}
<POP 23714-2371c Epilogue> Σ0
@ 2373e
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 2373e-237a6 Body>
<POP 2373e-23754 Prologue> Σ0 ↓
<POP 23754-2379e Naked> Σ0 ↓
<Blob 0x23754 [14] @> Δ-14 {[«14""»]}
<Const 0x23760 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 23764-23766 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x23766 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 23778-2377a StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2377a MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2377e EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 23780 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 23782 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x23784 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2378a-2378c StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x2378c 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 23792-23794 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x23794 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 2379a-2379e StackAdj> Δ+20 {}
<POP 2379e-237a6 Epilogue> Σ0
@ 237fa
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 237fa-23936 Body>
<POP 237fa-23810 Prologue> Σ0 ↓
<POP 23810-23826 RegCacheLoad> Σ0 ↓
<POP 23826-23886 Naked> Σ0 ↓ →0x238ce
<Call 0x23826 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2382c [18] @> Δ-18 {[«18""»]}
<POP 23838-2383a StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2383a 18> {[«18""»]|[$$Experiment error :]}
<Call 0x23846 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 23848-23849 StackAdj> Δ+22 ↓ {}
<Blob 0x23849 [14] @> Δ-14 {[«14""»]}
<POP 23858-2385a StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x2385a 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 23864-23866 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 23866 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x2386a 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 23870-23872 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x23872 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 23878-2387a StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2387a 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2387c-2387e StackAdj> Δ+18 {}
<MI 2387e MOVEA.L (A6+0xa),A0> {}
<MI 23882 CMPA.W #0x01,A0> {}
<MI 23884 BEQ 0x238ce> {}
<POP 23886-238ce Naked> Σ0 ↓
<Blob 0x23886 [14] @> Δ-14 {[«14""»]}
<Blob 0x23896 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 238a6-238a8 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x238a8 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 238b2-238b4 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x238b4> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x238b4 12> Δ-4
<Const 0x238b8 0x1.2> Δ-2
<Const 0x238ba 0x1e.2> Δ-2
<Call 0x238bc 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 238be-238c0 StackAdj> Δ+8
<Call 0x238c0 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 238c6-238c8 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x238c8 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 238ca-238ce StackAdj> Δ+48 {}
<POP 238ce-2392e Naked> Σ0 ↓ ←0x23826
<Blob 0x238ce [14] @> Δ-14 {[«14""»]}
<POP 238de-238e0 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x238e0 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 238ea-238ec StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 238ec MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x238f0 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 238f6-238f8 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x238f8 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 238fe-23900 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x23900 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23902-23903 StackAdj> Δ+18 ↓ {}
<Blob 0x23903 [24] @> Δ-24 {[«24""»]}
<Const 0x23912 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 23916-23918 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x23918 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x23926 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 2392c-2392e StackAdj> Δ+30 {}
<POP 2392e-23936 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.1b317b11999bc8c6 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 30 dc | 0 | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 39 6a | 9j | .PTR 0x2396a 00020010 code.end: 00020010 00 02 39 36 | 96 | .PTR 0x23936 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 37 3e | 7> | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 37 fa | 7 | .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 54 |@(#)ST | .XXX[0x6] 00020110 41 52 54 45 52 2c 32 2e |ARTER,2.| .XXX[0x28] 00020118 32 2c 39 32 2f 30 35 2f |2,92/05/| 00020120 30 31 2c 31 36 3a 32 35 |01,16:25| 00020128 3a 30 30 5c 30 31 32 33 |:00\0123| 00020130 34 35 36 37 38 39 41 42 |456789AB| 00020138 43 44 45 46 |CDEF | .XXX[0x4] 0002013c 53 74 61 72 74 69 6e 67 |Starting| .TXT 'Starting remote diagnostics from Cluster id =>' 0002016a 52 61 74 69 6f 6e 61 6c |Rational| .TXT 'Rational Service has disconnected ' 0002018c 41 72 65 20 79 6f 75 20 |Are you | .TXT 'Are you ready to continue ' 000201a6 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want do disconnect ' 000201c0 46 49 |FI | .TXT 'FI' 000201c2 58 50 |XP | .TXT 'XP' 000201c4 41 44 |AD | .TXT 'AD' 000201c6 46 49 58 4d |FIXM | .TXT 'FIXM' 000201ca 4f 44 45 4d |ODEM | .TXT 'ODEM' 000201ce 50 6c 65 61 73 65 20 65 |Please e| .TXT 'Please enter current date and time as HH:MM:SS DD-MMM-YY :_ ' 0002020a 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal value or incorret format, try again.' 00020236 48 61 72 64 20 64 69 73 |Hard dis| .TXT 'Hard disk errors in diagnostic filesystem labels on boot device.' 00020276 4e 6f 20 64 69 61 67 6e |No diagn| .TXT 'No diagnostic filesystem labels found on boot device. ' 000202ac 4e 6f 20 64 69 61 67 6e |No diagn| .TXT 'No diagnostic file system is installed on boot unit.' 000202e0 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown fault during diagnostic filesystem initialization.' 0002031a 42 6f 6f 74 20 61 20 64 |Boot a d| .TXT 'Boot a different disk if possible. This unit must be re-built. ' 0002035a 42 6f 6f 74 20 61 20 64 |Boot a d| .TXT 'Boot a different disk if possible. This unit must be re-built. ' 0002039a 54 68 69 73 20 64 69 73 |This dis| .TXT 'This disk unit is not bootable. Re-boot from different unit. ' 000203d8 43 6f 6e 74 61 63 74 20 |Contact | .TXT 'Contact Rational customer support ' 000203fa 49 6e 69 74 69 61 6c 69 |Initiali| .TXT 'Initializing diagnostic file system ... ' 00020422 46 69 6c 65 20 73 79 73 |File sys| .TXT 'File system starter not booted from disk. ' 0002044c 5b 4f 4b 5d |[OK] | .TXT '[OK]' 00020450 49 4f 50 5f 44 55 4d 50 |IOP_DUMP| .TXT 'IOP_DUMP4 ' 0002045a 49 4f 50 5f |IOP_ | .TXT 'IOP_' 0002045e 44 55 4d 50 |DUMP | .TXT 'DUMP' 00020462 49 4f 50 5f |IOP_ | .TXT 'IOP_' 00020466 44 55 4d 50 |DUMP | .TXT 'DUMP' 0002046a 49 4f 50 5f 44 55 4d 50 |IOP_DUMP| .TXT 'IOP_DUMP0 ' 00020474 2a 2a 2a 20 63 6f 75 6c |*** coul| .TXT '*** could not create IOP_DUMP0 file (see reason above)' 000204aa 43 52 41 53 48 53 41 56 |CRASHSAV| .TXT 'CRASHSAVE ' 000204b4 4e 4f 5f 52 31 4b 5f 44 |NO_R1K_D| .TXT 'NO_R1K_DUMP ' 000204c0 43 52 41 53 48 53 41 56 |CRASHSAV| .TXT 'CRASHSAVE ' 000204ca 44 55 4d 50 5f 52 31 30 |DUMP_R10| .TXT 'DUMP_R1000' 000204d4 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want to AUTO BOOT the R1000 after the crash dump is taken' 00020514 3e 3e 3e 20 43 61 6e 27 |>>> Can'| .TXT '>>> Can't make a CRASHDUMP because a full CRASHSAVE wasn't made ' 00020554 3e 3e 3e 20 43 61 6e 27 |>>> Can'| .TXT '>>> Can't make a CRASHDUMP because the uDIAG or FRU tests were run' 00020596 43 52 41 53 48 44 55 4d |CRASHDUM| .TXT 'CRASHDUMP ' 000205a0 52 55 4e 5f 55 44 49 41 |RUN_UDIA| .TXT 'RUN_UDIAG ' 000205aa 52 75 6e 6e 69 6e 67 20 |Running | .TXT 'Running post-mortem diagnostics.' 000205ca 45 4d |EM | .TXT 'EM' 000205cc 42 41 |BA | .TXT 'BA' 000205ce 4c 4d |LM | .TXT 'LM' 000205d0 2e 45 52 52 |.ERR | .TXT '.ERR' 000205d4 4d 45 53 53 |MESS | .TXT 'MESS' 000205d8 52 65 73 74 61 72 74 69 |Restarti| .TXT 'Restarting system after R1000 Processor ' 00020600 20 6e 6f 20 66 61 75 6c | no faul| .XXX[0x10] 00020608 74 20 66 6f 75 6e 64 20 |t found | 00020610 20 20 20 20 20 20 20 20 | | .BLANK 20[0x20] 00020630 20 20 20 48 61 6c 74 20 | Halt | .XXX[0x18] 00020638 3d 3e 20 53 79 73 74 65 |=> Syste| 00020640 6d 20 65 72 72 6f 72 20 |m error | 00020648 20 20 20 20 20 20 20 20 | | .BLANK 20[0x18] 00020660 20 20 20 20 20 48 61 6c | Hal| .XXX[0x98] 00020668 74 20 3d 3e 20 49 2f 4f |t => I/O| 00020670 20 50 72 6f 63 65 73 73 | Process| 00020678 6f 72 20 68 61 72 64 77 |or hardw| 00020680 61 72 65 20 65 72 72 6f |are erro| 00020688 72 20 20 20 20 20 20 20 |r | 00020690 20 20 20 20 20 20 20 48 | H| 00020698 61 6c 74 20 3d 3e 20 49 |alt => I| 000206a0 2f 4f 20 50 72 6f 63 65 |/O Proce| 000206a8 73 73 6f 72 20 73 6f 66 |ssor sof| 000206b0 74 77 61 72 65 20 65 72 |tware er| 000206b8 72 6f 72 20 20 20 20 20 |ror | 000206c0 20 20 20 20 20 20 20 20 | | 000206c8 20 48 61 6c 74 20 3d 3e | Halt =>| 000206d0 20 50 72 6f 63 65 73 73 | Process| 000206d8 6f 72 20 68 61 72 64 77 |or hardw| 000206e0 61 72 65 20 65 72 72 6f |are erro| 000206e8 72 20 20 20 20 20 20 20 |r | 000206f0 20 20 20 20 20 20 20 20 | | 000206f8 20 20 20 | | .XXX[0x3] 000206fb 48 61 6c 74 20 |Halt | .XXX[0x5] 00020700 3d 3e 20 50 72 6f 63 65 |=> Proce| .XXX[0x80] 00020708 73 73 6f 72 20 6d 75 6c |ssor mul| 00020710 74 69 2d 62 69 74 20 6d |ti-bit m| 00020718 65 6d 6f 72 79 20 65 72 |emory er| 00020720 72 6f 72 20 20 20 20 20 |ror | 00020728 20 20 20 20 20 48 61 6c | Hal| 00020730 74 20 3d 3e 20 50 72 6f |t => Pro| 00020738 63 65 73 73 6f 72 20 53 |cessor S| 00020740 59 53 42 55 53 20 68 61 |YSBUS ha| 00020748 72 64 77 61 72 65 20 65 |rdware e| 00020750 72 72 6f 72 20 20 20 20 |rror | 00020758 20 20 20 20 20 20 20 48 | H| 00020760 61 6c 74 20 3d 3e 20 50 |alt => P| 00020768 72 6f 63 65 73 73 6f 72 |rocessor| 00020770 20 6d 69 63 72 6f 63 6f | microco| 00020778 64 65 20 65 72 72 6f 72 |de error| 00020780 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10] 00020790 20 | | .BLANK 20[0x1] 00020791 48 61 6c 74 20 3d 3e |Halt => | .XXX[0x7] 00020798 20 50 72 6f 63 65 73 73 | Process| .XXX[0x28] 000207a0 6f 72 20 73 6f 66 74 77 |or softw| 000207a8 61 72 65 20 65 72 72 6f |are erro| 000207b0 72 20 20 20 20 20 20 20 |r | 000207b8 20 20 20 20 20 20 20 20 | | 000207c0 20 20 20 | | .XXX[0x3] 000207c3 48 61 6c 74 20 |Halt | .XXX[0x5] 000207c8 3d 3e 20 53 68 75 74 64 |=> Shutd| .XXX[0x28] 000207d0 6f 77 6e 20 66 72 6f 6d |own from| 000207d8 20 45 6e 76 69 72 6f 6e | Environ| 000207e0 6d 65 6e 74 20 20 20 20 |ment | 000207e8 20 20 20 20 20 20 20 20 | | 000207f0 20 20 20 20 20 | | .XXX[0x5] 000207f5 48 61 6c |Hal | .XXX[0x3] 000207f8 74 20 3d 3e 20 50 72 6f |t => Pro| .XXX[0x28] 00020800 63 65 73 73 6f 72 20 63 |cessor c| 00020808 72 61 73 68 20 65 72 72 |rash err| 00020810 6f 72 20 20 20 20 20 20 |or | 00020818 20 20 20 20 20 20 20 20 | | 00020820 20 20 20 20 20 20 20 | | .XXX[0x7] 00020827 72 |r | .XXX[0x1] 00020828 65 66 72 65 73 68 20 6d |efresh m| .XXX[0x20] 00020830 61 63 68 69 6e 65 20 63 |achine c| 00020838 68 65 63 6b 20 65 72 72 |heck err| 00020840 6f 72 20 20 20 20 20 20 |or | 00020848 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10] 00020858 20 6d 61 63 68 69 6e 65 | machine| .XXX[0x20] 00020860 20 63 68 65 63 6b 20 28 | check (| 00020868 70 61 72 69 74 79 20 65 |parity e| 00020870 72 72 6f 72 29 20 20 20 |rror) | 00020878 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10] 00020888 20 20 20 48 61 6c 74 20 | Halt | .XXX[0x20] 00020890 3d 3e 20 55 6e 6b 6e 6f |=> Unkno| 00020898 77 6e 20 65 72 72 6f 72 |wn error| 000208a0 20 68 61 6c 74 20 20 20 | halt | 000208a8 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10] 000208b8 20 20 20 20 | | .XXX[0x4] 000208bc 45 52 52 4f 52 5f 4c 4f |ERROR_LO| .TXT 'ERROR_LOG ' 000208c6 54 68 65 20 52 31 30 30 |The R100| .TXT 'The R1000 has exceeded maximum safe temperature limits. ' 000208fe 5b 30 |[0 | .TXT '[0' 00020900 6d 20 |m | .XXX[0x2] 00020902 52 65 73 74 61 72 74 69 |Restarti| .TXT 'Restarting system after loss of AC power' 0002092a 52 65 73 74 61 72 74 69 |Restarti| .TXT 'Restarting system after DC power fault or White Button Reset' 00020966 5b 30 |[0 | .TXT '[0' 00020968 6d 20 |m | .XXX[0x2] 0002096a 52 65 73 74 61 72 74 69 |Restarti| .TXT 'Restarting system after operator console BREAK key' 0002099c 52 65 73 74 61 72 74 69 |Restarti| .TXT 'Restarting system after operator or program invoked crash (EPO) ' 000209dc 5b 30 |[0 | .TXT '[0' 000209de 6d 20 |m | .XXX[0x2] 000209e0 5b 30 |[0 | .TXT '[0' 000209e2 6d 20 |m | .XXX[0x2] 000209e4 2a 2a 2a 20 74 68 65 20 |*** the | .TXT '*** the microdiagnostic passed but this is the second crash today due ' 00020a2a 20 20 20 20 61 20 68 61 | a ha| .TXT ' a hardware problem. Call RATIONAL for assistance. ' 00020a60 3e 3e 3e 20 54 68 65 20 |>>> The | .TXT '>>> The system crashed due to a hardware problem but the microdiagnostic' 00020aa8 20 20 20 20 74 65 73 74 | test| .TXT ' test passed. The problem may be intermittent. Suggest trying to reboot' 00020af2 2a 2a 2a 20 74 68 65 20 |*** the | .TXT '*** the microdiagnostic test failed: please run the FRU tests ' 00020b30 3e 3e 3e 20 41 75 74 6f |>>> Auto| .TXT '>>> Automatic Crash Recovery is disabled' 00020b58 5b 30 |[0 | .TXT '[0' 00020b5a 6d 20 |m | .XXX[0x2] 00020b5c 20 5f | _ | .TXT ' _' 00020b5e 5b 30 |[0 | .TXT '[0' 00020b60 6d 20 |m | .XXX[0x2] 00020b62 52 65 73 74 61 72 69 6e |Restarin| .TXT 'Restaring system after IOP Kernel crash =>' 00020b8c 49 4f 50 5f 50 41 4e 49 |IOP_PANI| .TXT 'IOP_PANICS.ERRMESS' 00020b9e 52 65 73 74 61 72 69 6e |Restarin| .TXT 'Restaring system after IOA reboot request, reason =>' 00020bd2 49 4f 41 5f 50 41 4e 49 |IOA_PANI| .TXT 'IOA_PANICS.ERRMESS' 00020be4 3d 3d 3d 3d 3d 3d 3d 3d |========| .TXT '====================================================' 00020c18 5b 31 3b 37 6d 20 |[1;7m | .TXT '[1;7m ' 00020c1e 43 52 41 53 48 5f 44 55 |CRASH_DU| .TXT 'CRASH_DUMP.SAVED_STATE' 00020c34 3e 3e 3e 20 57 41 52 4e |>>> WARN| .TXT '>>> WARNING: the EPROM WRITE PROTECT switch is OFF (at front of RESHA board) <<<' 00020c84 3e 3e 3e 20 57 41 52 4e |>>> WARN| .TXT '>>> WARNING: the system clock or power is margined <<<' 00020cba 3e 3e 3e 20 4e 4f 54 49 |>>> NOTI| .TXT '>>> NOTICE: the OPERATOR_MODE switch is set to INTERACTIVE <<<' 00020cf8 45 45 50 52 4f 4d 5f 52 |EEPROM_R| .TXT 'EEPROM_REVS ' 00020d04 20 2d 2d 49 4f 43 5f 53 | --IOC_S| .TXT ' --IOC_SELFTEST ' 00020d14 20 2d 2d 49 4f 43 5f 42 | --IOC_B| .TXT ' --IOC_BOOT ' 00020d20 20 2d 2d 55 54 49 4c 2f | --UTIL/| .TXT ' --UTIL/DEB ' 00020d2c 20 2d 2d 4e 45 54 2f 44 | --NET/D| .TXT ' --NET/DEB2 ' 00020d38 20 2d 2d 52 45 53 48 41 | --RESHA| .TXT ' --RESHA_TEST ' 00020d46 20 2d 2d 4c 41 4e 43 45 | --LANCE| .TXT ' --LANCE_BOOT ' 00020d54 20 2d 2d 44 | --D | .TXT ' --D' 00020d58 49 53 4b 5f |ISK_ | .TXT 'ISK_' 00020d5c 42 4f 4f 54 |BOOT | .TXT 'BOOT' 00020d60 20 2d 2d 54 | --T | .TXT ' --T' 00020d64 41 50 45 5f |APE_ | .TXT 'APE_' 00020d68 42 4f 4f 54 |BOOT | .TXT 'BOOT' 00020d6c 42 45 |BE | .TXT 'BE' 00020d6e 4b 49 |KI | .TXT 'KI' 00020d70 4e 53 |NS | .TXT 'NS' 00020d72 44 4f 55 53 45 20 |DOUSE | .TXT 'DOUSE ' 00020d78 4f 70 74 69 |Opti | .TXT 'Opti' 00020d7c 6f 6e 73 20 |ons | .TXT 'ons ' 00020d80 61 72 65 3a |are: | .TXT 'are:' 00020d84 20 20 31 20 | 1 | .TXT ' 1 ' 00020d88 3d 3e 20 65 |=> e | .TXT '=> e' 00020d8c 6e 74 65 72 |nter | .TXT 'nter' 00020d90 20 43 4c 49 | CLI | .TXT ' CLI' 00020d94 20 20 32 20 3d 3e 20 6d | 2 => m| .TXT ' 2 => make a CRASHDUMP ' 00020dac 20 20 33 20 3d 3e 20 72 | 3 => r| .TXT ' 3 => run the FRU tests' 00020dc4 20 20 34 20 3d 3e 20 42 | 4 => B| .TXT ' 4 => Boot DDC configuration ' 00020de2 20 20 35 20 3d 3e 20 42 | 5 => B| .TXT ' 5 => Boot EEDB configuration' 00020e00 20 20 36 20 3d 3e 20 42 | 6 => B| .TXT ' 6 => Boot STANDARD configuration' 00020e22 45 6e 74 65 72 20 6f 70 |Enter op| .TXT 'Enter option [Enter CLI] :_ ' 00020e3e 45 6e 74 65 72 20 6f 70 |Enter op| .TXT 'Enter option [Make a CRASHDUMP] :_' 00020e60 45 6e 74 65 72 20 6f 70 |Enter op| .TXT 'Enter option [Run FRU tests] :_ ' 00020e80 45 6e 74 65 72 20 6f 70 |Enter op| .TXT 'Enter option [Boot DDC] :_' 00020e9a 45 6e 74 65 72 20 6f 70 |Enter op| .TXT 'Enter option [Boot EEDB] :_ ' 00020eb6 45 6e 74 65 72 20 6f 70 |Enter op| .TXT 'Enter option [Boot STANDARD] :_ ' 00020ed6 45 6e 74 65 72 20 6f 70 |Enter op| .TXT 'Enter option [???????] :_ ' 00020ef0 43 4c |CL | .TXT 'CL' 00020ef2 49 20 |I | .XXX[0x2] 00020ef4 46 52 |FR | .TXT 'FR' 00020ef6 55 20 |U | .XXX[0x2] 00020ef8 4c 4f |LO | .TXT 'LO' 00020efa 41 44 |AD | .TXT 'AD' 00020efc 45 52 |ER | .TXT 'ER' 00020efe 44 44 |DD | .TXT 'DD' 00020f00 43 20 |C | .XXX[0x2] 00020f02 4c 4f |LO | .TXT 'LO' 00020f04 41 44 |AD | .TXT 'AD' 00020f06 45 52 |ER | .TXT 'ER' 00020f08 45 45 44 42 |EEDB | .TXT 'EEDB' 00020f0c 2d 2d 2d 20 42 6f 6f 74 |--- Boot| .TXT '--- Booting the R1000 Environment --- ' 00020f32 4c 4f |LO | .TXT 'LO' 00020f34 41 44 |AD | .TXT 'AD' 00020f36 45 52 |ER | .TXT 'ER' 00020f38 53 54 41 4e |STAN | .TXT 'STAN' 00020f3c 44 41 52 44 |DARD | .TXT 'DARD' 00020f40 69 6c 6c 65 67 61 6c 20 |illegal | .TXT 'illegal response, try again ' 00020f5c 02 02 05 02 | | .XXX[0x4] 00020f60 02 05 04 01 00 06 04 04 | | .XXX[0x30] 00020f68 09 06 05 06 06 04 02 06 | | 00020f70 04 07 07 07 07 00 06 07 | | 00020f78 07 04 01 00 20 6e 6f 20 | no | 00020f80 66 61 75 6c 74 20 66 6f |fault fo| 00020f88 75 6e 64 20 20 20 20 20 |und | 00020f90 20 20 20 20 20 20 20 20 | | .BLANK 20[0x18] 00020fa8 20 20 20 20 20 20 20 48 | H| .XXX[0x20] 00020fb0 61 6c 74 20 3d 3e 20 53 |alt => S| 00020fb8 79 73 74 65 6d 20 65 72 |ystem er| 00020fc0 72 6f 72 20 20 20 20 20 |ror | 00020fc8 20 20 20 20 20 20 20 20 | | .BLANK 20[0x18] 00020fe0 20 48 61 6c 74 20 3d 3e | Halt =>| .XXX[0x90] 00020fe8 20 49 2f 4f 20 50 72 6f | I/O Pro| 00020ff0 63 65 73 73 6f 72 20 68 |cessor h| 00020ff8 61 72 64 77 61 72 65 20 |ardware | 00021000 65 72 72 6f 72 20 20 20 |error | 00021008 20 20 20 20 20 20 20 20 | | 00021010 20 20 20 48 61 6c 74 20 | Halt | 00021018 3d 3e 20 49 2f 4f 20 50 |=> I/O P| 00021020 72 6f 63 65 73 73 6f 72 |rocessor| 00021028 20 73 6f 66 74 77 61 72 | softwar| 00021030 65 20 65 72 72 6f 72 20 |e error | 00021038 20 20 20 20 20 20 20 20 | | 00021040 20 20 20 20 20 48 61 6c | Hal| 00021048 74 20 3d 3e 20 50 72 6f |t => Pro| 00021050 63 65 73 73 6f 72 20 68 |cessor h| 00021058 61 72 64 77 61 72 65 20 |ardware | 00021060 65 72 72 6f 72 20 20 20 |error | 00021068 20 20 20 20 20 20 20 20 | | 00021070 20 20 20 20 20 20 20 | | .XXX[0x7] 00021077 48 |H | .XXX[0x1] 00021078 61 6c 74 20 3d 3e 20 50 |alt => P| .XXX[0x90] 00021080 72 6f 63 65 73 73 6f 72 |rocessor| 00021088 20 6d 75 6c 74 69 2d 62 | multi-b| 00021090 69 74 20 6d 65 6d 6f 72 |it memor| 00021098 79 20 65 72 72 6f 72 20 |y error | 000210a0 20 20 20 20 20 20 20 20 | | 000210a8 20 48 61 6c 74 20 3d 3e | Halt =>| 000210b0 20 50 72 6f 63 65 73 73 | Process| 000210b8 6f 72 20 53 59 53 42 55 |or SYSBU| 000210c0 53 20 68 61 72 64 77 61 |S hardwa| 000210c8 72 65 20 65 72 72 6f 72 |re error| 000210d0 20 20 20 20 20 20 20 20 | | 000210d8 20 20 20 48 61 6c 74 20 | Halt | 000210e0 3d 3e 20 50 72 6f 63 65 |=> Proce| 000210e8 73 73 6f 72 20 6d 69 63 |ssor mic| 000210f0 72 6f 63 6f 64 65 20 65 |rocode e| 000210f8 72 72 6f 72 20 20 20 20 |rror | 00021100 20 20 20 20 20 20 20 20 | | 00021108 20 20 20 20 20 | | .XXX[0x5] 0002110d 48 61 6c |Hal | .XXX[0x3] 00021110 74 20 3d 3e 20 50 72 6f |t => Pro| .XXX[0x28] 00021118 63 65 73 73 6f 72 20 73 |cessor s| 00021120 6f 66 74 77 61 72 65 20 |oftware | 00021128 65 72 72 6f 72 20 20 20 |error | 00021130 20 20 20 20 20 20 20 20 | | 00021138 20 20 20 20 20 20 20 | | .XXX[0x7] 0002113f 48 |H | .XXX[0x1] 00021140 61 6c 74 20 3d 3e 20 53 |alt => S| .XXX[0x20] 00021148 68 75 74 64 6f 77 6e 20 |hutdown | 00021150 66 72 6f 6d 20 45 6e 76 |from Env| 00021158 69 72 6f 6e 6d 65 6e 74 |ironment| 00021160 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10] 00021170 20 | | .BLANK 20[0x1] 00021171 48 61 6c 74 20 3d 3e |Halt => | .XXX[0x7] 00021178 20 50 72 6f 63 65 73 73 | Process| .XXX[0x18] 00021180 6f 72 20 63 72 61 73 68 |or crash| 00021188 20 65 72 72 6f 72 20 20 | error | 00021190 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10] 000211a0 20 20 20 72 65 66 72 65 | refre| .XXX[0x20] 000211a8 73 68 20 6d 61 63 68 69 |sh machi| 000211b0 6e 65 20 63 68 65 63 6b |ne check| 000211b8 20 65 72 72 6f 72 20 20 | error | 000211c0 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10] 000211d0 20 20 20 20 20 6d 61 63 | mac| .XXX[0x30] 000211d8 68 69 6e 65 20 63 68 65 |hine che| 000211e0 63 6b 20 28 70 61 72 69 |ck (pari| 000211e8 74 79 20 65 72 72 6f 72 |ty error| 000211f0 29 20 20 20 20 20 20 20 |) | 000211f8 20 20 20 20 20 20 20 20 | | 00021200 20 20 20 20 20 20 20 | | .XXX[0x7] 00021207 48 |H | .XXX[0x1] 00021208 61 6c 74 20 3d 3e 20 55 |alt => U| .XXX[0x20] 00021210 6e 6b 6e 6f 77 6e 20 65 |nknown e| 00021218 72 72 6f 72 20 68 61 6c |rror hal| 00021220 74 20 20 20 20 20 20 20 |t | 00021228 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10] 00021238 00 00 00 01 01 00 01 00 | | .XXX[0x10] 00021240 01 00 00 06 07 04 02 0c | | 00021248 0d 0e 0f 00 | | .XXX[0x4] 0002124c ; -------------------------------------------------------------------------------------- 0002124c ; OMSI PASCAL Function 0002124c ; <LVAR 0x008 4(w)> 0002124c ; <LVAR -0x004 @> 0002124c ; <LVAR -0x00c @ 4(r)> 0002124c ; -------------------------------------------------------------------------------------- 0002124c 4e 56 ff ce |NV | LINK.W A6,#0xffce 00021250 bf d5 | | CMPA.L (A5),A7 00021252 62 06 |b | BHI 0x2125a 00021254 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021258 4e 76 |Nv | TRAPV 0002125a de fc 00 26 | & | ADDA.W #0x26,A7 0002125e 48 e7 e1 c0 |H | MOVEM.L A1+A0+D7+D2+D1+D0,-(A7) 00021262 43 ee ff f4 |C | LEA.L (A6-0xc),A1 00021266 72 0f |r | MOVEQ.L #0x0f,D1 00021268 74 03 |t | MOVEQ.L #0x03,D2 0002126a 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002126e 4e b9 00 01 05 9e |N | JSR ReadClusterNo(VAR a : Long) 00021274 58 4f |XO | ADDQ.L #0x4,A7 00021276 48 51 |HQ | PEA.L (A1) 00021278 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002127e 58 4f |XO | ADDQ.L #0x4,A7 00021280 7e 00 |~ | MOVEQ.L #0x00,D7 00021282 be 82 | | CMP.L D2,D7 00021284 63 02 |c | BLS 0x21288 00021286 4e 4f |NO | TRAP #15 00021288 2f 11 |/ | MOVE.L (A1),-(A7) 0002128a 42 80 |B | CLR.L D0 0002128c 10 36 78 fc | 6x | MOVE.B (A6+D7.L-#0x4),D0 00021290 e8 40 | @ | ASR.W #0x4,D0 00021292 52 40 |R@ | ADDQ.W #0x1,D0 00021294 53 40 |S@ | SUBQ.W #0x1,D0 00021296 41 81 |A | CHK.W D1,D0 00021298 41 fa ee 92 |A | LEA.L 0x2012c,A0 0002129c 1f 30 00 00 | 0 | MOVE.B (A0+D0.W),-(A7) 000212a0 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000212a6 54 4f |TO | ADDQ.L #0x2,A7 000212a8 2e 91 |. | MOVE.L (A1),(A7) 000212aa 42 80 |B | CLR.L D0 000212ac 10 36 78 fc | 6x | MOVE.B (A6+D7.L-#0x4),D0 000212b0 c0 41 | A | AND.W D1,D0 000212b2 52 40 |R@ | ADDQ.W #0x1,D0 000212b4 53 40 |S@ | SUBQ.W #0x1,D0 000212b6 41 81 |A | CHK.W D1,D0 000212b8 41 fa ee 72 |A r | LEA.L 0x2012c,A0 000212bc 1f 30 00 00 | 0 | MOVE.B (A0+D0.W),-(A7) 000212c0 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000212c6 5c 4f |\O | ADDQ.L #0x6,A7 000212c8 52 87 |R | ADDQ.L #0x1,D7 000212ca be 82 | | CMP.L D2,D7 000212cc 6f b4 |o | BLE 0x21282 000212ce 2d 51 00 08 |-Q | MOVE.L (A1),(A6+0x8) 000212d2 4c df 03 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1 000212d6 4e 5e |N^ | UNLK A6 000212d8 4e 75 |Nu | RTS 000212da ; -------------------------------------------------------------------------------------- 000212da ; OMSI PASCAL Function 000212da ; <LVAR -0x004 @> 000212da ; -------------------------------------------------------------------------------------- 000212da 4e 56 ff 92 |NV | LINK.W A6,#0xff92 000212de bf d5 | | CMPA.L (A5),A7 000212e0 62 06 |b | BHI 0x212e8 000212e2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000212e6 4e 76 |Nv | TRAPV 000212e8 de fc 00 6a | j | ADDA.W #0x6a,A7 000212ec 48 e7 f3 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7) 000212f0 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000212f6 47 f8 00 01 |G | LEA.L 0x1,A3 000212fa 72 01 |r | MOVEQ.L #0x01,D1 000212fc 74 1a |t | MOVEQ.L #0x1a,D2 000212fe 76 19 |v | MOVEQ.L #0x19,D3 00021300 10 39 00 02 39 3f | 9 9? | MOVE.B 0x2393f,D0 00021306 ef 08 | | LSL.B #0x7,D0 00021308 ee 08 | | LSR.B #0x7,D0 0002130a 67 00 01 66 |g f | BEQ 0x21472 0002130e 55 4f |UO | SUBQ.L #0x2,A7 00021310 48 78 01 80 |Hx | PEA.L 0x180 00021314 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 0002131a 58 4f |XO | ADDQ.L #0x4,A7 0002131c 10 2f 00 01 | / | MOVE.B (A7+0x1),D0 00021320 0c 00 00 58 | X | CMPI.B #0x58,D0 00021324 66 30 |f0 | BNE 0x21356 00021326 3f 3a ee 9c |?: | MOVE.W 0x201c4,-(A7) 0002132a 3f 3a ee 96 |?: | MOVE.W 0x201c2,-(A7) 0002132e 3f 3a ee 90 |?: | MOVE.W 0x201c0,-(A7) 00021332 59 4f |YO | SUBQ.L #0x4,A7 00021334 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021338 3f 01 |? | MOVE.W D1,-(A7) 0002133a 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 0002133e 4e 92 |N | JSR (A2) 00021340 50 4f |PO | ADDQ.L #0x8,A7 00021342 48 53 |HS | PEA.L (A3) 00021344 1f 01 | | MOVE.B D1,-(A7) 00021346 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002134a 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00021350 de fc 00 14 | | ADDA.W #0x14,A7 00021354 60 2a |`* | BRA 0x21380 00021356 2f 3a ee 72 |/: r | MOVE.L 0x201ca,-(A7) 0002135a 2f 3a ee 6a |/: j | MOVE.L 0x201c6,-(A7) 0002135e 59 4f |YO | SUBQ.L #0x4,A7 00021360 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021364 3f 01 |? | MOVE.W D1,-(A7) 00021366 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 0002136a 4e 92 |N | JSR (A2) 0002136c 50 4f |PO | ADDQ.L #0x8,A7 0002136e 48 53 |HS | PEA.L (A3) 00021370 1f 01 | | MOVE.B D1,-(A7) 00021372 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021376 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 0002137c de fc 00 16 | | ADDA.W #0x16,A7 00021380 55 4f |UO | SUBQ.L #0x2,A7 00021382 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 00021388 20 1f | | MOVE.L (A7)+,D0 0002138a b0 81 | | CMP.L D1,D0 0002138c 67 00 00 e4 |g | BEQ 0x21472 00021390 41 fa ed d8 |A | LEA.L 0x2016a,A0 00021394 70 16 |p | MOVEQ.L #0x16,D0 00021396 3f 20 |? | MOVE.W -(A0),-(A7) 00021398 51 c8 ff fc |Q | DBF D0,0x21396 0002139c 51 4f |QO | SUBQ.L #0x8,A7 0002139e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000213a2 3f 01 |? | MOVE.W D1,-(A7) 000213a4 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 000213a8 4e 92 |N | JSR (A2) 000213aa 58 4f |XO | ADDQ.L #0x4,A7 000213ac 4e ba fe 9e |N | JSR 0x2124c 000213b0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000213b6 50 4f |PO | ADDQ.L #0x8,A7 000213b8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000213be de fc 00 32 | 2 | ADDA.W #0x32,A7 000213c2 7e 00 |~ | MOVEQ.L #0x00,D7 000213c4 7c 00 || | MOVEQ.L #0x00,D6 000213c6 9e c2 | | SUBA.W D2,A7 000213c8 20 4f | O | MOVEA.L A7,A0 000213ca 43 fa ed c0 |C | LEA.L 0x2018c,A1 000213ce 70 18 |p | MOVEQ.L #0x18,D0 000213d0 10 d9 | | MOVE.B (A1)+,(A0)+ 000213d2 51 c8 ff fc |Q | DBF D0,0x213d0 000213d6 5d 4f |]O | SUBQ.L #0x6,A7 000213d8 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000213dc 3f 01 |? | MOVE.W D1,-(A7) 000213de 3f 03 |? | MOVE.W D3,-(A7) 000213e0 4e 92 |N | JSR (A2) 000213e2 5c 4f |\O | ADDQ.L #0x6,A7 000213e4 1e 81 | | MOVE.B D1,(A7) 000213e6 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 000213ec 5c 4f |\O | ADDQ.L #0x6,A7 000213ee 10 1f | | MOVE.B (A7)+,D0 000213f0 48 80 |H | EXTB.W D0 000213f2 41 81 |A | CHK.W D1,D0 000213f4 de c2 | | ADDA.W D2,A7 000213f6 1e 00 | | MOVE.B D0,D7 000213f8 66 32 |f2 | BNE 0x2142c 000213fa 9e c2 | | SUBA.W D2,A7 000213fc 20 4f | O | MOVEA.L A7,A0 000213fe 43 fa ed a6 |C | LEA.L 0x201a6,A1 00021402 70 18 |p | MOVEQ.L #0x18,D0 00021404 10 d9 | | MOVE.B (A1)+,(A0)+ 00021406 51 c8 ff fc |Q | DBF D0,0x21404 0002140a 5d 4f |]O | SUBQ.L #0x6,A7 0002140c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021410 3f 01 |? | MOVE.W D1,-(A7) 00021412 3f 03 |? | MOVE.W D3,-(A7) 00021414 4e 92 |N | JSR (A2) 00021416 5c 4f |\O | ADDQ.L #0x6,A7 00021418 1e 81 | | MOVE.B D1,(A7) 0002141a 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00021420 5c 4f |\O | ADDQ.L #0x6,A7 00021422 10 1f | | MOVE.B (A7)+,D0 00021424 48 80 |H | EXTB.W D0 00021426 41 81 |A | CHK.W D1,D0 00021428 de c2 | | ADDA.W D2,A7 0002142a 1c 00 | | MOVE.B D0,D6 0002142c 4a 07 |J | TST.B D7 0002142e 66 04 |f | BNE 0x21434 00021430 4a 06 |J | TST.B D6 00021432 67 92 |g | BEQ 0x213c6 00021434 4a 06 |J | TST.B D6 00021436 67 3a |g: | BEQ 0x21472 00021438 4e b9 00 01 02 16 |N | JSR KC0b 0002143e 48 53 |HS | PEA.L (A3) 00021440 4e b9 00 01 03 f4 |N | JSR SetConsoleConfig(a : Long) 00021446 9e fc 00 1e | | SUBA.W #0x1e,A7 0002144a 20 4f | O | MOVEA.L A7,A0 0002144c 43 fa ed 1c |C | LEA.L 0x2016a,A1 00021450 70 20 |p | MOVEQ.L #0x20,D0 00021452 10 d9 | | MOVE.B (A1)+,(A0)+ 00021454 51 c8 ff fc |Q | DBF D0,0x21452 00021458 59 4f |YO | SUBQ.L #0x4,A7 0002145a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002145e 3f 01 |? | MOVE.W D1,-(A7) 00021460 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7) 00021464 4e 92 |N | JSR (A2) 00021466 50 4f |PO | ADDQ.L #0x8,A7 00021468 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002146e de fc 00 26 | & | ADDA.W #0x26,A7 00021472 4c df 0f cf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2+A3 00021476 4e 5e |N^ | UNLK A6 00021478 4e 75 |Nu | RTS 0002147a ; -------------------------------------------------------------------------------------- 0002147a ; OMSI PASCAL Function 0002147a ; <LVAR -0x004 @ 1(r)> 0002147a ; <LVAR -0x00a 2(r)> 0002147a ; <LVAR -0x00c @ 4(r)> 0002147a ; -------------------------------------------------------------------------------------- 0002147a 4e 56 ff 88 |NV | LINK.W A6,#0xff88 0002147e bf d5 | | CMPA.L (A5),A7 00021480 62 06 |b | BHI 0x21488 00021482 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021486 4e 76 |Nv | TRAPV 00021488 de fc 00 6c | l | ADDA.W #0x6c,A7 0002148c 48 e7 c1 e8 |H | MOVEM.L A4+A2+A1+A0+D7+D1+D0,-(A7) 00021490 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00021494 72 01 |r | MOVEQ.L #0x01,D1 00021496 48 52 |HR | PEA.L (A2) 00021498 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 0002149e 58 4f |XO | ADDQ.L #0x4,A7 000214a0 7e 00 |~ | MOVEQ.L #0x00,D7 000214a2 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 000214a6 ef 48 | H | LSL.W #0x7,D0 000214a8 e0 48 | H | LSR.W #0x8,D0 000214aa e8 48 | H | LSR.W #0x4,D0 000214ac 67 02 |g | BEQ 0x214b0 000214ae 52 07 |R | ADDQ.B #0x1,D7 000214b0 4a 07 |J | TST.B D7 000214b2 66 00 00 84 |f | BNE 0x21538 000214b6 9e fc 00 3c | < | SUBA.W #0x3c,A7 000214ba 20 4f | O | MOVEA.L A7,A0 000214bc 43 fa ed 10 |C | LEA.L 0x201ce,A1 000214c0 70 3a |p: | MOVEQ.L #0x3a,D0 000214c2 10 d9 | | MOVE.B (A1)+,(A0)+ 000214c4 51 c8 ff fc |Q | DBF D0,0x214c2 000214c8 51 4f |QO | SUBQ.L #0x8,A7 000214ca 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000214ce 3f 01 |? | MOVE.W D1,-(A7) 000214d0 3f 3c 00 3b |?< ; | MOVE.W #0x3b,-(A7) 000214d4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000214da 50 4f |PO | ADDQ.L #0x8,A7 000214dc 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 000214e2 58 4f |XO | ADDQ.L #0x4,A7 000214e4 28 5f |(_ | MOVEA.L (A7)+,A4 000214e6 de fc 00 38 | 8 | ADDA.W #0x38,A7 000214ea 2e 8c |. | MOVE.L A4,(A7) 000214ec 48 52 |HR | PEA.L (A2) 000214ee 48 6e ff fc |Hn | PEA.L (A6-0x4) 000214f2 4e b9 00 01 03 10 |N | JSR ConvertTimestamp(MOD input : String; b : L; VAR status : Bool) 000214f8 de fc 00 0c | | ADDA.W #0xc,A7 000214fc 4a 2e ff fc |J. | TST.B (A6-0x4) 00021500 67 0c |g | BEQ 0x2150e 00021502 2f 12 |/ | MOVE.L (A2),-(A7) 00021504 4e b9 00 01 03 0c |N | JSR SetRtc(a: TimeStamp) 0002150a 58 4f |XO | ADDQ.L #0x4,A7 0002150c 60 2a |`* | BRA 0x21538 0002150e 41 fa ed 26 |A & | LEA.L 0x20236,A0 00021512 70 0a |p | MOVEQ.L #0x0a,D0 00021514 2f 20 |/ | MOVE.L -(A0),-(A7) 00021516 51 c8 ff fc |Q | DBF D0,0x21514 0002151a 59 4f |YO | SUBQ.L #0x4,A7 0002151c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021520 3f 01 |? | MOVE.W D1,-(A7) 00021522 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7) 00021526 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002152c 50 4f |PO | ADDQ.L #0x8,A7 0002152e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021534 de fc 00 30 | 0 | ADDA.W #0x30,A7 00021538 4a 07 |J | TST.B D7 0002153a 67 00 ff 5a |g Z | BEQ 0x21496 0002153e 4c df 17 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A4 00021542 4e 5e |N^ | UNLK A6 00021544 4e 75 |Nu | RTS 00021546 ; -------------------------------------------------------------------------------------- 00021546 ; OMSI PASCAL Function 00021546 ; <LVAR -0x004 @ 1(r)> 00021546 ; <LVAR -0x006 @ 2(r)> 00021546 ; <LVAR -0x008 @ 1(r)> 00021546 ; -------------------------------------------------------------------------------------- 00021546 4e 56 ff 80 |NV | LINK.W A6,#0xff80 0002154a bf d5 | | CMPA.L (A5),A7 0002154c 62 06 |b | BHI 0x21554 0002154e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021552 4e 76 |Nv | TRAPV 00021554 de fc 00 74 | t | ADDA.W #0x74,A7 00021558 48 e7 f0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7) 0002155c 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021562 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00021568 49 ee ff fc |I | LEA.L (A6-0x4),A4 0002156c 72 01 |r | MOVEQ.L #0x01,D1 0002156e 74 2a |t* | MOVEQ.L #0x2a,D2 00021570 76 02 |v | MOVEQ.L #0x02,D3 00021572 9e fc 00 28 | ( | SUBA.W #0x28,A7 00021576 20 4f | O | MOVEA.L A7,A0 00021578 43 fa ee 80 |C | LEA.L 0x203fa,A1 0002157c 70 26 |p& | MOVEQ.L #0x26,D0 0002157e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021580 51 c8 ff fc |Q | DBF D0,0x2157e 00021584 59 4f |YO | SUBQ.L #0x4,A7 00021586 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002158a 3f 01 |? | MOVE.W D1,-(A7) 0002158c 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00021590 4e 92 |N | JSR (A2) 00021592 50 4f |PO | ADDQ.L #0x8,A7 00021594 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 0002159a de c2 | | ADDA.W D2,A7 0002159c 1e bc 00 20 | | MOVE.B #0x20,(A7) 000215a0 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 000215a6 54 4f |TO | ADDQ.L #0x2,A7 000215a8 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000215ac 48 6e ff fa |Hn | PEA.L (A6-0x6) 000215b0 4e b9 00 01 02 00 |N | JSR KC00_GetBootDev(VAR a : Byte; VAR b : Word) 000215b6 50 4f |PO | ADDQ.L #0x8,A7 000215b8 10 2e ff f8 | . | MOVE.B (A6-0x8),D0 000215bc b0 03 | | CMP.B D3,D0 000215be 67 38 |g8 | BEQ 0x215f8 000215c0 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000215c6 9e c2 | | SUBA.W D2,A7 000215c8 20 4f | O | MOVEA.L A7,A0 000215ca 43 fa ee 56 |C V | LEA.L 0x20422,A1 000215ce 70 28 |p( | MOVEQ.L #0x28,D0 000215d0 10 d9 | | MOVE.B (A1)+,(A0)+ 000215d2 51 c8 ff fc |Q | DBF D0,0x215d0 000215d6 59 4f |YO | SUBQ.L #0x4,A7 000215d8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215dc 3f 01 |? | MOVE.W D1,-(A7) 000215de 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 000215e2 4e 92 |N | JSR (A2) 000215e4 50 4f |PO | ADDQ.L #0x8,A7 000215e6 4e 93 |N | JSR (A3) 000215e8 de fc 00 2e | . | ADDA.W #0x2e,A7 000215ec 48 78 00 10 |Hx | PEA.L 0x10 000215f0 4e b9 00 01 02 20 |N | JSR KC10_Panic(code : Long) 000215f6 58 4f |XO | ADDQ.L #0x4,A7 000215f8 30 2e ff fa |0. | MOVE.W (A6-0x6),D0 000215fc 41 bc 00 0f |A | CHK.W #0xf,D0 00021600 3f 00 |? | MOVE.W D0,-(A7) 00021602 48 54 |HT | PEA.L (A4) 00021604 4e b9 00 01 03 94 |N | JSR MountDisk(drive : Word ; VAR status : Byte) 0002160a 5c 4f |\O | ADDQ.L #0x6,A7 0002160c 4a 14 |J | TST.B (A4) 0002160e 67 00 01 3c |g < | BEQ 0x2174c 00021612 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021618 10 14 | | MOVE.B (A4),D0 0002161a 48 80 |H | EXTB.W D0 0002161c 04 40 00 0c | @ | SUBI.W #0x000c,D0 00021620 b0 43 | C | CMP.W D3,D0 00021622 62 00 00 d6 |b | BHI 0x216fa 00021626 d0 40 | @ | ADD.W D0,D0 00021628 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00021630 00 06 | | .CONST 0x6 ; [0x0] -> 0x21636 00021632 00 4e | N | .CONST 0x4e ; [0x1] -> 0x2167e 00021634 00 84 | | .CONST 0x84 ; [0x2] -> 0x216b4 00021636 switch@0x21628[0x0]: 00021636 41 fa ec 3e |A > | LEA.L 0x20276,A0 0002163a 70 0f |p | MOVEQ.L #0x0f,D0 0002163c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002163e 51 c8 ff fc |Q | DBF D0,0x2163c 00021642 59 4f |YO | SUBQ.L #0x4,A7 00021644 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021648 3f 01 |? | MOVE.W D1,-(A7) 0002164a 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 0002164e 4e 92 |N | JSR (A2) 00021650 50 4f |PO | ADDQ.L #0x8,A7 00021652 4e 93 |N | JSR (A3) 00021654 58 4f |XO | ADDQ.L #0x4,A7 00021656 20 4f | O | MOVEA.L A7,A0 00021658 43 fa ec c0 |C | LEA.L 0x2031a,A1 0002165c 70 3e |p> | MOVEQ.L #0x3e,D0 0002165e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021660 51 c8 ff fc |Q | DBF D0,0x2165e 00021664 59 4f |YO | SUBQ.L #0x4,A7 00021666 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002166a 3f 01 |? | MOVE.W D1,-(A7) 0002166c 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 00021670 4e 92 |N | JSR (A2) 00021672 50 4f |PO | ADDQ.L #0x8,A7 00021674 4e 93 |N | JSR (A3) 00021676 de fc 00 44 | D | ADDA.W #0x44,A7 0002167a 60 00 00 c4 |` | BRA 0x21740 0002167e switch@0x21628[0x1]: 0002167e 9e fc 00 36 | 6 | SUBA.W #0x36,A7 00021682 20 4f | O | MOVEA.L A7,A0 00021684 43 fa eb f0 |C | LEA.L 0x20276,A1 00021688 70 34 |p4 | MOVEQ.L #0x34,D0 0002168a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002168c 51 c8 ff fc |Q | DBF D0,0x2168a 00021690 59 4f |YO | SUBQ.L #0x4,A7 00021692 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021696 3f 01 |? | MOVE.W D1,-(A7) 00021698 3f 3c 00 35 |?< 5 | MOVE.W #0x35,-(A7) 0002169c 4e 92 |N | JSR (A2) 0002169e 50 4f |PO | ADDQ.L #0x8,A7 000216a0 4e 93 |N | JSR (A3) 000216a2 5d 4f |]O | SUBQ.L #0x6,A7 000216a4 20 4f | O | MOVEA.L A7,A0 000216a6 43 fa ec b2 |C | LEA.L 0x2035a,A1 000216aa 70 3e |p> | MOVEQ.L #0x3e,D0 000216ac 10 d9 | | MOVE.B (A1)+,(A0)+ 000216ae 51 c8 ff fc |Q | DBF D0,0x216ac 000216b2 60 b0 |` | BRA 0x21664 000216b4 switch@0x21628[0x2]: 000216b4 41 fa ec 2a |A * | LEA.L 0x202e0,A0 000216b8 70 0c |p | MOVEQ.L #0x0c,D0 000216ba 2f 20 |/ | MOVE.L -(A0),-(A7) 000216bc 51 c8 ff fc |Q | DBF D0,0x216ba 000216c0 59 4f |YO | SUBQ.L #0x4,A7 000216c2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216c6 3f 01 |? | MOVE.W D1,-(A7) 000216c8 3f 3c 00 34 |?< 4 | MOVE.W #0x34,-(A7) 000216cc 4e 92 |N | JSR (A2) 000216ce 50 4f |PO | ADDQ.L #0x8,A7 000216d0 4e 93 |N | JSR (A3) 000216d2 5d 4f |]O | SUBQ.L #0x6,A7 000216d4 20 4f | O | MOVEA.L A7,A0 000216d6 43 fa ec c2 |C | LEA.L 0x2039a,A1 000216da 70 3c |p< | MOVEQ.L #0x3c,D0 000216dc 10 d9 | | MOVE.B (A1)+,(A0)+ 000216de 51 c8 ff fc |Q | DBF D0,0x216dc 000216e2 59 4f |YO | SUBQ.L #0x4,A7 000216e4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216e8 3f 01 |? | MOVE.W D1,-(A7) 000216ea 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 000216ee 4e 92 |N | JSR (A2) 000216f0 50 4f |PO | ADDQ.L #0x8,A7 000216f2 4e 93 |N | JSR (A3) 000216f4 de fc 00 42 | B | ADDA.W #0x42,A7 000216f8 60 46 |`F | BRA 0x21740 000216fa 41 fa ec 1e |A | LEA.L 0x2031a,A0 000216fe 70 1c |p | MOVEQ.L #0x1c,D0 00021700 3f 20 |? | MOVE.W -(A0),-(A7) 00021702 51 c8 ff fc |Q | DBF D0,0x21700 00021706 59 4f |YO | SUBQ.L #0x4,A7 00021708 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002170c 3f 01 |? | MOVE.W D1,-(A7) 0002170e 3f 3c 00 3a |?< : | MOVE.W #0x3a,-(A7) 00021712 4e 92 |N | JSR (A2) 00021714 50 4f |PO | ADDQ.L #0x8,A7 00021716 4e 93 |N | JSR (A3) 00021718 de fc 00 1c | | ADDA.W #0x1c,A7 0002171c 20 4f | O | MOVEA.L A7,A0 0002171e 43 fa ec b8 |C | LEA.L 0x203d8,A1 00021722 70 20 |p | MOVEQ.L #0x20,D0 00021724 10 d9 | | MOVE.B (A1)+,(A0)+ 00021726 51 c8 ff fc |Q | DBF D0,0x21724 0002172a 59 4f |YO | SUBQ.L #0x4,A7 0002172c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021730 3f 01 |? | MOVE.W D1,-(A7) 00021732 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7) 00021736 4e 92 |N | JSR (A2) 00021738 50 4f |PO | ADDQ.L #0x8,A7 0002173a 4e 93 |N | JSR (A3) 0002173c de fc 00 26 | & | ADDA.W #0x26,A7 00021740 48 78 00 11 |Hx | PEA.L 0x11 00021744 4e b9 00 01 02 20 |N | JSR KC10_Panic(code : Long) 0002174a 58 4f |XO | ADDQ.L #0x4,A7 0002174c 4e b9 00 01 03 a4 |N | JSR Open_ERROR_LOG(void) 00021752 4e b9 00 01 05 e6 |N | JSR Set_fc04_to_01(void) 00021758 2f 3a ec f2 |/: | MOVE.L 0x2044c,-(A7) 0002175c 59 4f |YO | SUBQ.L #0x4,A7 0002175e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021762 3f 01 |? | MOVE.W D1,-(A7) 00021764 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00021768 4e 92 |N | JSR (A2) 0002176a 50 4f |PO | ADDQ.L #0x8,A7 0002176c 4e 93 |N | JSR (A3) 0002176e 50 4f |PO | ADDQ.L #0x8,A7 00021770 4c df 1f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4 00021774 4e 5e |N^ | UNLK A6 00021776 4e 75 |Nu | RTS 00021778 ; -------------------------------------------------------------------------------------- 00021778 ; OMSI PASCAL Function 00021778 ; <LVAR -0x001 1(r)> 00021778 ; <LVAR -0x002 1(r)> 00021778 ; <LVAR -0x003 1(r)> 00021778 ; <LVAR -0x004 @ 1(r)> 00021778 ; <LVAR -0x006 @ 2(r)> 00021778 ; <LVAR -0x008 @ 2(r)> 00021778 ; <LVAR -0x40c 2(w)> 00021778 ; <LVAR -0x40e @> 00021778 ; <LVAR -0x412 @ 4(r)> 00021778 ; <LVAR -0x414 @ 1(r)> 00021778 ; <LVAR -0x41c @ 4(rw)> 00021778 ; <LVAR -0x420 @ 4(rw)> 00021778 ; -------------------------------------------------------------------------------------- 00021778 4e 56 fb 66 |NV f | LINK.W A6,#0xfb66 0002177c bf d5 | | CMPA.L (A5),A7 0002177e 62 06 |b | BHI 0x21786 00021780 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021784 4e 76 |Nv | TRAPV 00021786 de fc 00 7a | z | ADDA.W #0x7a,A7 0002178a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002178e 45 ee fb ec |E | LEA.L (A6-0x414),A2 00021792 47 ee fb ee |G | LEA.L (A6-0x412),A3 00021796 49 ee fb e0 |I | LEA.L (A6-0x420),A4 0002179a 72 01 |r | MOVEQ.L #0x01,D1 0002179c 74 14 |t | MOVEQ.L #0x14,D2 0002179e 76 0a |v | MOVEQ.L #0x0a,D3 000217a0 78 10 |x | MOVEQ.L #0x10,D4 000217a2 9e c3 | | SUBA.W D3,A7 000217a4 20 4f | O | MOVEA.L A7,A0 000217a6 43 fa ec a8 |C | LEA.L 0x20450,A1 000217aa 70 08 |p | MOVEQ.L #0x08,D0 000217ac 10 d9 | | MOVE.B (A1)+,(A0)+ 000217ae 51 c8 ff fc |Q | DBF D0,0x217ac 000217b2 59 4f |YO | SUBQ.L #0x4,A7 000217b4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000217b8 3f 01 |? | MOVE.W D1,-(A7) 000217ba 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 000217be 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000217c4 50 4f |PO | ADDQ.L #0x8,A7 000217c6 28 9f |( | MOVE.L (A7)+,(A4) 000217c8 5c 4f |\O | ADDQ.L #0x6,A7 000217ca 2e 94 |. | MOVE.L (A4),(A7) 000217cc 42 27 |B' | CLR.B -(A7) 000217ce 42 27 |B' | CLR.B -(A7) 000217d0 48 78 00 00 |Hx | PEA.L 0x0 000217d4 48 52 |HR | PEA.L (A2) 000217d6 48 53 |HS | PEA.L (A3) 000217d8 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000217de de c2 | | ADDA.W D2,A7 000217e0 4a 12 |J | TST.B (A2) 000217e2 66 16 |f | BNE 0x217fa 000217e4 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000217e8 1f 01 | | MOVE.B D1,-(A7) 000217ea 48 78 00 01 |Hx | PEA.L 0x1 000217ee 48 52 |HR | PEA.L (A2) 000217f0 48 53 |HS | PEA.L (A3) 000217f2 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000217f8 de c4 | | ADDA.W D4,A7 000217fa 48 54 |HT | PEA.L (A4) 000217fc 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021802 58 4f |XO | ADDQ.L #0x4,A7 00021804 7e 03 |~ | MOVEQ.L #0x03,D7 00021806 2f 3a ec 56 |/: V | MOVE.L 0x2045e,-(A7) 0002180a 2f 3a ec 4e |/: N | MOVE.L 0x2045a,-(A7) 0002180e 51 4f |QO | SUBQ.L #0x8,A7 00021810 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021814 3f 01 |? | MOVE.W D1,-(A7) 00021816 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 0002181a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021820 2e 87 |. | MOVE.L D7,(A7) 00021822 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021828 58 4f |XO | ADDQ.L #0x4,A7 0002182a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021830 50 4f |PO | ADDQ.L #0x8,A7 00021832 28 9f |( | MOVE.L (A7)+,(A4) 00021834 58 4f |XO | ADDQ.L #0x4,A7 00021836 2e ba ec 2e |. . | MOVE.L 0x20466,(A7) 0002183a 2f 3a ec 26 |/: & | MOVE.L 0x20462,-(A7) 0002183e 51 4f |QO | SUBQ.L #0x8,A7 00021840 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021844 3f 01 |? | MOVE.W D1,-(A7) 00021846 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 0002184a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021850 2e 87 |. | MOVE.L D7,(A7) 00021852 52 97 |R | ADDQ.L #0x1,(A7) 00021854 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002185a 58 4f |XO | ADDQ.L #0x4,A7 0002185c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021862 50 4f |PO | ADDQ.L #0x8,A7 00021864 2d 5f fb e4 |-_ | MOVE.L (A7)+,(A6-0x41c) 00021868 58 4f |XO | ADDQ.L #0x4,A7 0002186a 2e 94 |. | MOVE.L (A4),(A7) 0002186c 42 27 |B' | CLR.B -(A7) 0002186e 42 27 |B' | CLR.B -(A7) 00021870 48 78 00 00 |Hx | PEA.L 0x0 00021874 48 52 |HR | PEA.L (A2) 00021876 48 53 |HS | PEA.L (A3) 00021878 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 0002187e de c2 | | ADDA.W D2,A7 00021880 4a 12 |J | TST.B (A2) 00021882 66 00 00 9e |f | BNE 0x21922 00021886 4a 87 |J | TST.L D7 00021888 66 00 00 84 |f | BNE 0x2190e 0002188c 55 4f |UO | SUBQ.L #0x2,A7 0002188e 4e b9 00 01 05 ec |N | JSR Get_fc05() : Byte 00021894 10 1f | | MOVE.B (A7)+,D0 00021896 48 80 |H | EXTB.W D0 00021898 48 c0 |H | EXTW.L D0 0002189a 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000218a0 63 02 |c | BLS 0x218a4 000218a2 4e 4f |NO | TRAP #15 000218a4 3c 00 |< | MOVE.W D0,D6 000218a6 2f 13 |/ | MOVE.L (A3),-(A7) 000218a8 42 67 |Bg | CLR.W -(A7) 000218aa 42 67 |Bg | CLR.W -(A7) 000218ac 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 000218b0 1f 01 | | MOVE.B D1,-(A7) 000218b2 41 ee fb f2 |A | LEA.L (A6-0x40e),A0 000218b6 2f 08 |/ | MOVE.L A0,-(A7) 000218b8 48 52 |HR | PEA.L (A2) 000218ba 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 000218c0 de c2 | | ADDA.W D2,A7 000218c2 3d 46 fb f4 |=F | MOVE.W D6,(A6-0x40c) 000218c6 2f 13 |/ | MOVE.L (A3),-(A7) 000218c8 42 67 |Bg | CLR.W -(A7) 000218ca 42 67 |Bg | CLR.W -(A7) 000218cc 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 000218d0 1f 01 | | MOVE.B D1,-(A7) 000218d2 41 ee fb f2 |A | LEA.L (A6-0x40e),A0 000218d6 2f 08 |/ | MOVE.L A0,-(A7) 000218d8 48 52 |HR | PEA.L (A2) 000218da 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 000218e0 de c2 | | ADDA.W D2,A7 000218e2 48 6e ff fc |Hn | PEA.L (A6-0x4) 000218e6 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000218ec 58 4f |XO | ADDQ.L #0x4,A7 000218ee 20 53 | S | MOVEA.L (A3),A0 000218f0 11 6e ff fc 00 3a | n : | MOVE.B (A6-0x4),(A0+0x3a) 000218f6 11 6e ff fd 00 3b | n ; | MOVE.B (A6-0x3),(A0+0x3b) 000218fc 11 6e ff fe 00 3c | n < | MOVE.B (A6-0x2),(A0+0x3c) 00021902 11 6e ff ff 00 3d | n = | MOVE.B (A6-0x1),(A0+0x3d) 00021908 02 28 00 fe 00 3f | ( ? | ANDI.B #0xfe,(A0+0x3f) 0002190e 1f 01 | | MOVE.B D1,-(A7) 00021910 1f 01 | | MOVE.B D1,-(A7) 00021912 2f 2e fb e4 |/. | MOVE.L (A6-0x41c),-(A7) 00021916 48 52 |HR | PEA.L (A2) 00021918 48 53 |HS | PEA.L (A3) 0002191a 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00021920 de c4 | | ADDA.W D4,A7 00021922 48 54 |HT | PEA.L (A4) 00021924 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002192a 58 4f |XO | ADDQ.L #0x4,A7 0002192c 48 6e fb e4 |Hn | PEA.L (A6-0x41c) 00021930 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021936 58 4f |XO | ADDQ.L #0x4,A7 00021938 53 87 |S | SUBQ.L #0x1,D7 0002193a 6c 00 fe ca |l | BGE 0x21806 0002193e 9e c3 | | SUBA.W D3,A7 00021940 20 4f | O | MOVEA.L A7,A0 00021942 43 fa eb 26 |C & | LEA.L 0x2046a,A1 00021946 70 08 |p | MOVEQ.L #0x08,D0 00021948 10 d9 | | MOVE.B (A1)+,(A0)+ 0002194a 51 c8 ff fc |Q | DBF D0,0x21948 0002194e 59 4f |YO | SUBQ.L #0x4,A7 00021950 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021954 3f 01 |? | MOVE.W D1,-(A7) 00021956 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002195a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021960 50 4f |PO | ADDQ.L #0x8,A7 00021962 2d 5f fb e4 |-_ | MOVE.L (A7)+,(A6-0x41c) 00021966 de c3 | | ADDA.W D3,A7 00021968 2a 3c ff ff fc 00 |*< | MOVE.L #0xfffffc00,D5 0002196e 2f 2e fb e4 |/. | MOVE.L (A6-0x41c),-(A7) 00021972 1f 01 | | MOVE.B D1,-(A7) 00021974 1f 01 | | MOVE.B D1,-(A7) 00021976 2f 05 |/ | MOVE.L D5,-(A7) 00021978 48 52 |HR | PEA.L (A2) 0002197a 48 53 |HS | PEA.L (A3) 0002197c 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00021982 de c2 | | ADDA.W D2,A7 00021984 4a 12 |J | TST.B (A2) 00021986 66 44 |fD | BNE 0x219cc 00021988 20 53 | S | MOVEA.L (A3),A0 0002198a 3f 28 00 24 |?( $ | MOVE.W (A0+0x24),-(A7) 0002198e 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021992 48 6e ff fa |Hn | PEA.L (A6-0x6) 00021996 4e b9 00 01 03 68 |N h | JSR Lba2Chs(lba : W; VAR cyl : W ; VAR hd_sec : W) 0002199c 50 4f |PO | ADDQ.L #0x8,A7 0002199e 3e ae ff f8 |> | MOVE.W (A6-0x8),(A7) 000219a2 3f 2e ff fa |?. | MOVE.W (A6-0x6),-(A7) 000219a6 4e b9 00 01 02 02 |N | JSR KC01_DumpOn 000219ac 58 4f |XO | ADDQ.L #0x4,A7 000219ae 83 28 00 3f | ( ? | OR.B D1,(A0+0x3f) 000219b2 11 41 00 4c | A L | MOVE.B D1,(A0+0x4c) 000219b6 42 27 |B' | CLR.B -(A7) 000219b8 42 27 |B' | CLR.B -(A7) 000219ba 48 78 00 01 |Hx | PEA.L 0x1 000219be 48 52 |HR | PEA.L (A2) 000219c0 48 53 |HS | PEA.L (A3) 000219c2 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000219c8 de c4 | | ADDA.W D4,A7 000219ca 60 2a |`* | BRA 0x219f6 000219cc 41 fa ea dc |A | LEA.L 0x204aa,A0 000219d0 70 1a |p | MOVEQ.L #0x1a,D0 000219d2 3f 20 |? | MOVE.W -(A0),-(A7) 000219d4 51 c8 ff fc |Q | DBF D0,0x219d2 000219d8 59 4f |YO | SUBQ.L #0x4,A7 000219da 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000219de 3f 01 |? | MOVE.W D1,-(A7) 000219e0 3f 3c 00 36 |?< 6 | MOVE.W #0x36,-(A7) 000219e4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000219ea 50 4f |PO | ADDQ.L #0x8,A7 000219ec 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000219f2 de fc 00 3a | : | ADDA.W #0x3a,A7 000219f6 48 6e fb e4 |Hn | PEA.L (A6-0x41c) 000219fa 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021a00 58 4f |XO | ADDQ.L #0x4,A7 00021a02 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021a06 4e 5e |N^ | UNLK A6 00021a08 4e 75 |Nu | RTS 00021a0a ; -------------------------------------------------------------------------------------- 00021a0a ; OMSI PASCAL Function 00021a0a ; <LVAR 0x00a 1(w)> 00021a0a ; <LVAR 0x008 1(r)> 00021a0a ; -------------------------------------------------------------------------------------- 00021a0a 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 00021a0e bf d5 | | CMPA.L (A5),A7 00021a10 62 06 |b | BHI 0x21a18 00021a12 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021a16 4e 76 |Nv | TRAPV 00021a18 de fc 00 0c | | ADDA.W #0xc,A7 00021a1c 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021a20 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00021a24 48 80 |H | EXTB.W D0 00021a26 41 fa f5 34 |A 4 | LEA.L 0x20f5c,A0 00021a2a 1d 70 00 00 00 0a | p | MOVE.B (A0+D0.W),(A6+0xa) 00021a30 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00021a34 4e 5e |N^ | UNLK A6 00021a36 4e 75 |Nu | RTS 00021a38 ; -------------------------------------------------------------------------------------- 00021a38 ; OMSI PASCAL Function 00021a38 ; <LVAR 0x008 1(r)> 00021a38 ; <LVAR -0x002 @ 1(r)> 00021a38 ; -------------------------------------------------------------------------------------- 00021a38 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 00021a3c bf d5 | | CMPA.L (A5),A7 00021a3e 62 06 |b | BHI 0x21a46 00021a40 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021a44 4e 76 |Nv | TRAPV 00021a46 de fc 00 4e | N | ADDA.W #0x4e,A7 00021a4a 48 e7 f0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7) 00021a4e 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021a54 47 ee ff fe |G | LEA.L (A6-0x2),A3 00021a58 49 f9 00 02 39 48 |I 9H | LEA.L 0x23948,A4 00021a5e 72 01 |r | MOVEQ.L #0x01,D1 00021a60 74 0a |t | MOVEQ.L #0x0a,D2 00021a62 76 09 |v | MOVEQ.L #0x09,D3 00021a64 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021a6a 10 39 00 02 39 3f | 9 9? | MOVE.B 0x2393f,D0 00021a70 e7 08 | | LSL.B #0x3,D0 00021a72 ee 08 | | LSR.B #0x7,D0 00021a74 67 0e |g | BEQ 0x21a84 00021a76 4a 2e 00 08 |J. | TST.B (A6+0x8) 00021a7a 67 08 |g | BEQ 0x21a84 00021a7c 4a 39 00 02 39 41 |J9 9A | TST.B 0x23941 00021a82 67 4e |gN | BEQ 0x21ad2 00021a84 9e c2 | | SUBA.W D2,A7 00021a86 20 4f | O | MOVEA.L A7,A0 00021a88 43 fa ea 20 |C | LEA.L 0x204aa,A1 00021a8c 70 08 |p | MOVEQ.L #0x08,D0 00021a8e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021a90 51 c8 ff fc |Q | DBF D0,0x21a8e 00021a94 9e fc 00 0c | | SUBA.W #0xc,A7 00021a98 20 4f | O | MOVEA.L A7,A0 00021a9a 43 fa ea 18 |C | LEA.L 0x204b4,A1 00021a9e 70 0a |p | MOVEQ.L #0x0a,D0 00021aa0 10 d9 | | MOVE.B (A1)+,(A0)+ 00021aa2 51 c8 ff fc |Q | DBF D0,0x21aa0 00021aa6 59 4f |YO | SUBQ.L #0x4,A7 00021aa8 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00021aac 3f 01 |? | MOVE.W D1,-(A7) 00021aae 3f 03 |? | MOVE.W D3,-(A7) 00021ab0 4e 92 |N | JSR (A2) 00021ab2 58 4f |XO | ADDQ.L #0x4,A7 00021ab4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021ab8 3f 01 |? | MOVE.W D1,-(A7) 00021aba 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00021abe 4e 92 |N | JSR (A2) 00021ac0 5c 4f |\O | ADDQ.L #0x6,A7 00021ac2 1e 81 | | MOVE.B D1,(A7) 00021ac4 48 53 |HS | PEA.L (A3) 00021ac6 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00021acc de fc 00 24 | $ | ADDA.W #0x24,A7 00021ad0 60 4c |`L | BRA 0x21b1e 00021ad2 9e c2 | | SUBA.W D2,A7 00021ad4 20 4f | O | MOVEA.L A7,A0 00021ad6 43 fa e9 e8 |C | LEA.L 0x204c0,A1 00021ada 70 08 |p | MOVEQ.L #0x08,D0 00021adc 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ade 51 c8 ff fc |Q | DBF D0,0x21adc 00021ae2 41 fa e9 f0 |A | LEA.L 0x204d4,A0 00021ae6 70 04 |p | MOVEQ.L #0x04,D0 00021ae8 3f 20 |? | MOVE.W -(A0),-(A7) 00021aea 51 c8 ff fc |Q | DBF D0,0x21ae8 00021aee 59 4f |YO | SUBQ.L #0x4,A7 00021af0 48 6f 00 0e |Ho | PEA.L (A7+0xe) 00021af4 3f 01 |? | MOVE.W D1,-(A7) 00021af6 3f 03 |? | MOVE.W D3,-(A7) 00021af8 4e 92 |N | JSR (A2) 00021afa 58 4f |XO | ADDQ.L #0x4,A7 00021afc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021b00 3f 01 |? | MOVE.W D1,-(A7) 00021b02 3f 02 |? | MOVE.W D2,-(A7) 00021b04 4e 92 |N | JSR (A2) 00021b06 5c 4f |\O | ADDQ.L #0x6,A7 00021b08 1e 81 | | MOVE.B D1,(A7) 00021b0a 48 53 |HS | PEA.L (A3) 00021b0c 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00021b12 de fc 00 22 | " | ADDA.W #0x22,A7 00021b16 42 14 |B | CLR.B (A4) 00021b18 4a 13 |J | TST.B (A3) 00021b1a 66 02 |f | BNE 0x21b1e 00021b1c 52 14 |R | ADDQ.B #0x1,(A4) 00021b1e 4c df 1f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4 00021b22 4e 5e |N^ | UNLK A6 00021b24 4e 75 |Nu | RTS 00021b26 ; -------------------------------------------------------------------------------------- 00021b26 ; OMSI PASCAL Function 00021b26 ; <LVAR -0x004 @ 1(r)> 00021b26 ; -------------------------------------------------------------------------------------- 00021b26 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 00021b2a bf d5 | | CMPA.L (A5),A7 00021b2c 62 06 |b | BHI 0x21b34 00021b2e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021b32 4e 76 |Nv | TRAPV 00021b34 de fc 00 6e | n | ADDA.W #0x6e,A7 00021b38 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7) 00021b3c 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021b42 47 f9 00 02 39 42 |G 9B | LEA.L 0x23942,A3 00021b48 72 01 |r | MOVEQ.L #0x01,D1 00021b4a 74 40 |t@ | MOVEQ.L #0x40,D2 00021b4c 4a 39 00 02 39 48 |J9 9H | TST.B 0x23948 00021b52 66 2e |f. | BNE 0x21b82 00021b54 9e c2 | | SUBA.W D2,A7 00021b56 20 4f | O | MOVEA.L A7,A0 00021b58 43 fa e9 ba |C | LEA.L 0x20514,A1 00021b5c 70 3e |p> | MOVEQ.L #0x3e,D0 00021b5e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021b60 51 c8 ff fc |Q | DBF D0,0x21b5e 00021b64 59 4f |YO | SUBQ.L #0x4,A7 00021b66 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021b6a 3f 01 |? | MOVE.W D1,-(A7) 00021b6c 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 00021b70 4e 92 |N | JSR (A2) 00021b72 50 4f |PO | ADDQ.L #0x8,A7 00021b74 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021b7a de fc 00 44 | D | ADDA.W #0x44,A7 00021b7e 60 00 00 9e |` | BRA 0x21c1e 00021b82 4a 39 00 02 39 49 |J9 9I | TST.B 0x23949 00021b88 67 28 |g( | BEQ 0x21bb2 00021b8a 41 fa ea 0a |A | LEA.L 0x20596,A0 00021b8e 70 20 |p | MOVEQ.L #0x20,D0 00021b90 3f 20 |? | MOVE.W -(A0),-(A7) 00021b92 51 c8 ff fc |Q | DBF D0,0x21b90 00021b96 59 4f |YO | SUBQ.L #0x4,A7 00021b98 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021b9c 3f 01 |? | MOVE.W D1,-(A7) 00021b9e 3f 3c 00 42 |?< B | MOVE.W #0x42,-(A7) 00021ba2 4e 92 |N | JSR (A2) 00021ba4 50 4f |PO | ADDQ.L #0x8,A7 00021ba6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021bac de fc 00 46 | F | ADDA.W #0x46,A7 00021bb0 60 6c |`l | BRA 0x21c1e 00021bb2 41 fa e9 60 |A ` | LEA.L 0x20514,A0 00021bb6 70 0f |p | MOVEQ.L #0x0f,D0 00021bb8 2f 20 |/ | MOVE.L -(A0),-(A7) 00021bba 51 c8 ff fc |Q | DBF D0,0x21bb8 00021bbe 5d 4f |]O | SUBQ.L #0x6,A7 00021bc0 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021bc4 3f 01 |? | MOVE.W D1,-(A7) 00021bc6 3f 02 |? | MOVE.W D2,-(A7) 00021bc8 4e 92 |N | JSR (A2) 00021bca 5c 4f |\O | ADDQ.L #0x6,A7 00021bcc 42 17 |B | CLR.B (A7) 00021bce 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00021bd4 5c 4f |\O | ADDQ.L #0x6,A7 00021bd6 10 1f | | MOVE.B (A7)+,D0 00021bd8 48 80 |H | EXTB.W D0 00021bda 41 81 |A | CHK.W D1,D0 00021bdc de c2 | | ADDA.W D2,A7 00021bde 16 80 | | MOVE.B D0,(A3) 00021be0 9e fc 00 0a | | SUBA.W #0xa,A7 00021be4 20 4f | O | MOVEA.L A7,A0 00021be6 43 fa e9 ae |C | LEA.L 0x20596,A1 00021bea 70 08 |p | MOVEQ.L #0x08,D0 00021bec 10 d9 | | MOVE.B (A1)+,(A0)+ 00021bee 51 c8 ff fc |Q | DBF D0,0x21bec 00021bf2 59 4f |YO | SUBQ.L #0x4,A7 00021bf4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021bf8 3f 01 |? | MOVE.W D1,-(A7) 00021bfa 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00021bfe 4e 92 |N | JSR (A2) 00021c00 50 4f |PO | ADDQ.L #0x8,A7 00021c02 48 78 00 01 |Hx | PEA.L 0x1 00021c06 1f 01 | | MOVE.B D1,-(A7) 00021c08 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021c0c 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00021c12 de fc 00 18 | | ADDA.W #0x18,A7 00021c16 4a 2e ff fc |J. | TST.B (A6-0x4) 00021c1a 67 02 |g | BEQ 0x21c1e 00021c1c 42 13 |B | CLR.B (A3) 00021c1e 23 fc 00 00 00 06 00 02 |# | MOVE.L #0x6,0x23944 00021c26 39 44 |9D | 00021c28 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3 00021c2c 4e 5e |N^ | UNLK A6 00021c2e 4e 75 |Nu | RTS 00021c30 ; -------------------------------------------------------------------------------------- 00021c30 ; OMSI PASCAL Function 00021c30 ; <LVAR 0x008 4(r)> 00021c30 ; <LVAR -0x004 @ 1(r)> 00021c30 ; -------------------------------------------------------------------------------------- 00021c30 4e 56 ff cc |NV | LINK.W A6,#0xffcc 00021c34 bf d5 | | CMPA.L (A5),A7 00021c36 62 06 |b | BHI 0x21c3e 00021c38 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021c3c 4e 76 |Nv | TRAPV 00021c3e de fc 00 30 | 0 | ADDA.W #0x30,A7 00021c42 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 00021c46 45 f9 00 01 05 02 |E | LEA.L IPC_PutBool(a : Bool),A2 00021c4c 72 01 |r | MOVEQ.L #0x01,D1 00021c4e 13 c1 00 02 39 49 | 9I | MOVE.B D1,0x23949 00021c54 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021c5a 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00021c60 1f 01 | | MOVE.B D1,-(A7) 00021c62 4e 92 |N | JSR (A2) 00021c64 1e 81 | | MOVE.B D1,(A7) 00021c66 4e 92 |N | JSR (A2) 00021c68 1e 81 | | MOVE.B D1,(A7) 00021c6a 4e 92 |N | JSR (A2) 00021c6c 54 4f |TO | ADDQ.L #0x2,A7 00021c6e 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 00021c74 9e fc 00 0a | | SUBA.W #0xa,A7 00021c78 20 4f | O | MOVEA.L A7,A0 00021c7a 43 fa e9 24 |C $ | LEA.L 0x205a0,A1 00021c7e 70 08 |p | MOVEQ.L #0x08,D0 00021c80 10 d9 | | MOVE.B (A1)+,(A0)+ 00021c82 51 c8 ff fc |Q | DBF D0,0x21c80 00021c86 59 4f |YO | SUBQ.L #0x4,A7 00021c88 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021c8c 3f 01 |? | MOVE.W D1,-(A7) 00021c8e 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00021c92 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021c98 50 4f |PO | ADDQ.L #0x8,A7 00021c9a 48 78 00 01 |Hx | PEA.L 0x1 00021c9e 1f 01 | | MOVE.B D1,-(A7) 00021ca0 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021ca4 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00021caa de fc 00 18 | | ADDA.W #0x18,A7 00021cae 4a 2e ff fc |J. | TST.B (A6-0x4) 00021cb2 66 16 |f | BNE 0x21cca 00021cb4 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00021cba 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021cbe 48 50 |HP | PEA.L (A0) 00021cc0 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 00021cc6 58 4f |XO | ADDQ.L #0x4,A7 00021cc8 60 06 |` | BRA 0x21cd0 00021cca 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021cce 42 10 |B | CLR.B (A0) 00021cd0 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 00021cd4 4e 5e |N^ | UNLK A6 00021cd6 4e 75 |Nu | RTS 00021cd8 ; -------------------------------------------------------------------------------------- 00021cd8 ; OMSI PASCAL Function 00021cd8 ; <LVAR 0x00c 1(r)> 00021cd8 ; <LVAR 0x008 4(r)> 00021cd8 ; <LVAR -0x080 @> 00021cd8 ; <LVAR -0x081 1(w)> 00021cd8 ; <LVAR -0x082 1(r)> 00021cd8 ; <LVAR -0x084 2(w)> 00021cd8 ; <LVAR -0x086 @ 2(w)> 00021cd8 ; <LVAR -0x08f @> 00021cd8 ; <LVAR -0x090 @ 1(r)> 00021cd8 ; <LVAR -0x094 @ 4(r)> 00021cd8 ; <LVAR -0x098 @ 4(rw)> 00021cd8 ; <LVAR -0x099 @ 1(r)> 00021cd8 ; <LVAR -0x09a @ 1(r)> 00021cd8 ; -------------------------------------------------------------------------------------- 00021cd8 4e 56 ff 02 |NV | LINK.W A6,#0xff02 00021cdc bf d5 | | CMPA.L (A5),A7 00021cde 62 06 |b | BHI 0x21ce6 00021ce0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021ce4 4e 76 |Nv | TRAPV 00021ce6 de fc 00 64 | d | ADDA.W #0x64,A7 00021cea 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021cee 45 ee ff 66 |E f | LEA.L (A6-0x9a),A2 00021cf2 47 ee ff 68 |G h | LEA.L (A6-0x98),A3 00021cf6 49 ee ff 6c |I l | LEA.L (A6-0x94),A4 00021cfa 74 01 |t | MOVEQ.L #0x01,D2 00021cfc 76 6b |vk | MOVEQ.L #0x6b,D3 00021cfe 78 0c |x | MOVEQ.L #0x0c,D4 00021d00 41 fa e8 c8 |A | LEA.L 0x205ca,A0 00021d04 70 07 |p | MOVEQ.L #0x07,D0 00021d06 2f 20 |/ | MOVE.L -(A0),-(A7) 00021d08 51 c8 ff fc |Q | DBF D0,0x21d06 00021d0c 59 4f |YO | SUBQ.L #0x4,A7 00021d0e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021d12 3f 02 |? | MOVE.W D2,-(A7) 00021d14 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00021d18 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021d1e 50 4f |PO | ADDQ.L #0x8,A7 00021d20 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021d26 de fc 00 24 | $ | ADDA.W #0x24,A7 00021d2a 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00021d30 1f 02 | | MOVE.B D2,-(A7) 00021d32 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00021d38 42 17 |B | CLR.B (A7) 00021d3a 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00021d40 54 4f |TO | ADDQ.L #0x2,A7 00021d42 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 00021d48 3f 3a e8 84 |?: | MOVE.W 0x205ce,-(A7) 00021d4c 3f 3a e8 7e |?: ~ | MOVE.W 0x205cc,-(A7) 00021d50 3f 3a e8 78 |?: x | MOVE.W 0x205ca,-(A7) 00021d54 59 4f |YO | SUBQ.L #0x4,A7 00021d56 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021d5a 3f 02 |? | MOVE.W D2,-(A7) 00021d5c 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00021d60 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021d66 50 4f |PO | ADDQ.L #0x8,A7 00021d68 48 78 00 01 |Hx | PEA.L 0x1 00021d6c 1f 02 | | MOVE.B D2,-(A7) 00021d6e 48 52 |HR | PEA.L (A2) 00021d70 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00021d76 de fc 00 14 | | ADDA.W #0x14,A7 00021d7a 10 2e 00 0c | . | MOVE.B (A6+0xc),D0 00021d7e 48 80 |H | EXTB.W D0 00021d80 3d 40 ff 7c |=@ | | MOVE.W D0,(A6-0x84) 00021d84 42 2e ff 7e |B. ~ | CLR.B (A6-0x82) 00021d88 4a 12 |J | TST.B (A2) 00021d8a 67 10 |g | BEQ 0x21d9c 00021d8c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021d90 42 10 |B | CLR.B (A0) 00021d92 3d 7c 00 02 ff 7a |=| z | MOVE.W #0x2,(A6-0x86) 00021d98 60 00 01 a8 |` | BRA 0x21f42 00021d9c 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00021da2 48 6e ff 67 |Hn g | PEA.L (A6-0x99) 00021da6 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 00021dac 58 4f |XO | ADDQ.L #0x4,A7 00021dae 48 53 |HS | PEA.L (A3) 00021db0 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 00021db6 58 4f |XO | ADDQ.L #0x4,A7 00021db8 48 54 |HT | PEA.L (A4) 00021dba 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 00021dc0 58 4f |XO | ADDQ.L #0x4,A7 00021dc2 48 6e ff 70 |Hn p | PEA.L (A6-0x90) 00021dc6 48 78 00 00 |Hx | PEA.L 0x0 00021dca 48 78 00 00 |Hx | PEA.L 0x0 00021dce 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 00021dd4 de c4 | | ADDA.W D4,A7 00021dd6 48 6e ff 71 |Hn q | PEA.L (A6-0x8f) 00021dda 48 78 00 00 |Hx | PEA.L 0x0 00021dde 48 78 00 07 |Hx | PEA.L 0x7 00021de2 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 00021de8 de c4 | | ADDA.W D4,A7 00021dea 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 00021df0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021df4 10 2e ff 67 | . g | MOVE.B (A6-0x99),D0 00021df8 44 00 |D | NEG.B D0 00021dfa 52 00 |R | ADDQ.B #0x1,D0 00021dfc 48 80 |H | EXTB.W D0 00021dfe 41 82 |A | CHK.W D2,D0 00021e00 10 80 | | MOVE.B D0,(A0) 00021e02 2f 3a e7 d0 |/: | MOVE.L 0x205d4,-(A7) 00021e06 2f 3a e7 c8 |/: | MOVE.L 0x205d0,-(A7) 00021e0a 59 4f |YO | SUBQ.L #0x4,A7 00021e0c 2f 13 |/ | MOVE.L (A3),-(A7) 00021e0e 59 4f |YO | SUBQ.L #0x4,A7 00021e10 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021e14 3f 02 |? | MOVE.W D2,-(A7) 00021e16 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00021e1a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021e20 50 4f |PO | ADDQ.L #0x8,A7 00021e22 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021e28 50 4f |PO | ADDQ.L #0x8,A7 00021e2a 26 9f |& | MOVE.L (A7)+,(A3) 00021e2c 2e 93 |. | MOVE.L (A3),(A7) 00021e2e 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00021e34 2e 94 |. | MOVE.L (A4),(A7) 00021e36 42 80 |B | CLR.L D0 00021e38 10 2e ff 70 | . p | MOVE.B (A6-0x90),D0 00021e3c 2f 00 |/ | MOVE.L D0,-(A7) 00021e3e 4e b9 00 01 04 4c |N L | JSR WriteErrorMessage(file : String; txt : String; number : Long) : Bool 00021e44 de c4 | | ADDA.W D4,A7 00021e46 3d 42 ff 7a |=B z | MOVE.W D2,(A6-0x86) 00021e4a 1d 6e ff 70 ff 7f | n p | MOVE.B (A6-0x90),(A6-0x81) 00021e50 41 ee ff 80 |A | LEA.L (A6-0x80),A0 00021e54 43 ee ff 71 |C q | LEA.L (A6-0x8f),A1 00021e58 70 07 |p | MOVEQ.L #0x07,D0 00021e5a 10 d9 | | MOVE.B (A1)+,(A0)+ 00021e5c 51 c8 ff fc |Q | DBF D0,0x21e5a 00021e60 20 53 | S | MOVEA.L (A3),A0 00021e62 2f 08 |/ | MOVE.L A0,-(A7) 00021e64 30 10 |0 | MOVE.W (A0),D0 00021e66 48 c0 |H | EXTW.L D0 00021e68 2f 00 |/ | MOVE.L D0,-(A7) 00021e6a 7e 01 |~ | MOVEQ.L #0x01,D7 00021e6c be 97 | | CMP.L (A7),D7 00021e6e 6e 28 |n( | BGT 0x21e98 00021e70 20 07 | | MOVE.L D7,D0 00021e72 53 80 |S | SUBQ.L #0x1,D0 00021e74 b0 83 | | CMP.L D3,D0 00021e76 63 02 |c | BLS 0x21e7a 00021e78 4e 4f |NO | TRAP #15 00021e7a 20 4a | J | MOVEA.L A2,A0 00021e7c 22 07 |" | MOVE.L D7,D1 00021e7e 53 81 |S | SUBQ.L #0x1,D1 00021e80 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00021e86 63 02 |c | BLS 0x21e8a 00021e88 4e 4f |NO | TRAP #15 00021e8a 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00021e8e 11 b1 18 02 08 22 | " | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x22) 00021e94 52 87 |R | ADDQ.L #0x1,D7 00021e96 68 d4 |h | BVC 0x21e6c 00021e98 58 4f |XO | ADDQ.L #0x4,A7 00021e9a 20 57 | W | MOVEA.L (A7),A0 00021e9c 30 10 |0 | MOVE.W (A0),D0 00021e9e 48 c0 |H | EXTW.L D0 00021ea0 52 80 |R | ADDQ.L #0x1,D0 00021ea2 2c 00 |, | MOVE.L D0,D6 00021ea4 58 4f |XO | ADDQ.L #0x4,A7 00021ea6 20 06 | | MOVE.L D6,D0 00021ea8 53 80 |S | SUBQ.L #0x1,D0 00021eaa b0 83 | | CMP.L D3,D0 00021eac 63 02 |c | BLS 0x21eb0 00021eae 4e 4f |NO | TRAP #15 00021eb0 20 4a | J | MOVEA.L A2,A0 00021eb2 42 30 08 22 |B0 " | CLR.B (A0+D0.L+#0x22) 00021eb6 20 54 | T | MOVEA.L (A4),A0 00021eb8 2f 08 |/ | MOVE.L A0,-(A7) 00021eba 30 10 |0 | MOVE.W (A0),D0 00021ebc 48 c0 |H | EXTW.L D0 00021ebe 2a 00 |* | MOVE.L D0,D5 00021ec0 70 6c |pl | MOVEQ.L #0x6c,D0 00021ec2 90 86 | | SUB.L D6,D0 00021ec4 ba 80 | | CMP.L D0,D5 00021ec6 6f 16 |o | BLE 0x21ede 00021ec8 2a 00 |* | MOVE.L D0,D5 00021eca 20 05 | | MOVE.L D5,D0 00021ecc 53 80 |S | SUBQ.L #0x1,D0 00021ece 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00021ed4 63 02 |c | BLS 0x21ed8 00021ed6 4e 4f |NO | TRAP #15 00021ed8 11 bc 00 5c 08 02 | \ | MOVE.B #0x5c,(A0+D0.L+#0x2) 00021ede 2f 05 |/ | MOVE.L D5,-(A7) 00021ee0 7e 01 |~ | MOVEQ.L #0x01,D7 00021ee2 be 97 | | CMP.L (A7),D7 00021ee4 6e 2a |n* | BGT 0x21f10 00021ee6 52 86 |R | ADDQ.L #0x1,D6 00021ee8 20 06 | | MOVE.L D6,D0 00021eea 53 80 |S | SUBQ.L #0x1,D0 00021eec b0 83 | | CMP.L D3,D0 00021eee 63 02 |c | BLS 0x21ef2 00021ef0 4e 4f |NO | TRAP #15 00021ef2 20 4a | J | MOVEA.L A2,A0 00021ef4 22 07 |" | MOVE.L D7,D1 00021ef6 53 81 |S | SUBQ.L #0x1,D1 00021ef8 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00021efe 63 02 |c | BLS 0x21f02 00021f00 4e 4f |NO | TRAP #15 00021f02 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00021f06 11 b1 18 02 08 22 | " | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x22) 00021f0c 52 87 |R | ADDQ.L #0x1,D7 00021f0e 68 d2 |h | BVC 0x21ee2 00021f10 58 4f |XO | ADDQ.L #0x4,A7 00021f12 0c 86 00 00 00 6c | l | CMPI.L #0x0000006c,D6 00021f18 6c 12 |l | BGE 0x21f2c 00021f1a 20 06 | | MOVE.L D6,D0 00021f1c 52 80 |R | ADDQ.L #0x1,D0 00021f1e 53 80 |S | SUBQ.L #0x1,D0 00021f20 b0 83 | | CMP.L D3,D0 00021f22 63 02 |c | BLS 0x21f26 00021f24 4e 4f |NO | TRAP #15 00021f26 20 4a | J | MOVEA.L A2,A0 00021f28 42 30 08 22 |B0 " | CLR.B (A0+D0.L+#0x22) 00021f2c 58 4f |XO | ADDQ.L #0x4,A7 00021f2e 48 54 |HT | PEA.L (A4) 00021f30 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021f36 58 4f |XO | ADDQ.L #0x4,A7 00021f38 48 53 |HS | PEA.L (A3) 00021f3a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021f40 58 4f |XO | ADDQ.L #0x4,A7 00021f42 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00021f46 41 ee ff 7a |A z | LEA.L (A6-0x86),A0 00021f4a 2f 08 |/ | MOVE.L A0,-(A7) 00021f4c 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 00021f52 5c 4f |\O | ADDQ.L #0x6,A7 00021f54 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021f58 4e 5e |N^ | UNLK A6 00021f5a 4e 75 |Nu | RTS 00021f5c ; -------------------------------------------------------------------------------------- 00021f5c ; OMSI PASCAL Function 00021f5c ; <LVAR 0x008 1(r)> 00021f5c ; -------------------------------------------------------------------------------------- 00021f5c 4e 56 ff 78 |NV x | LINK.W A6,#0xff78 00021f60 bf d5 | | CMPA.L (A5),A7 00021f62 62 06 |b | BHI 0x21f6a 00021f64 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021f68 4e 76 |Nv | TRAPV 00021f6a de fc 00 86 | | ADDA.W #0x86,A7 00021f6e 48 e7 e0 c0 |H | MOVEM.L A1+A0+D2+D1+D0,-(A7) 00021f72 72 32 |r2 | MOVEQ.L #0x32,D1 00021f74 74 01 |t | MOVEQ.L #0x01,D2 00021f76 9e fc 00 28 | ( | SUBA.W #0x28,A7 00021f7a 20 4f | O | MOVEA.L A7,A0 00021f7c 43 fa e6 5a |C Z | LEA.L 0x205d8,A1 00021f80 70 26 |p& | MOVEQ.L #0x26,D0 00021f82 10 d9 | | MOVE.B (A1)+,(A0)+ 00021f84 51 c8 ff fc |Q | DBF D0,0x21f82 00021f88 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00021f8c 48 80 |H | EXTB.W D0 00021f8e c1 c1 | | MULS.W D1,D0 00021f90 41 fa ef ea |A | LEA.L 0x20f7c,A0 00021f94 41 f0 00 32 |A 2 | LEA.L (A0+D0.W+#0x32),A0 00021f98 70 18 |p | MOVEQ.L #0x18,D0 00021f9a 3f 20 |? | MOVE.W -(A0),-(A7) 00021f9c 51 c8 ff fc |Q | DBF D0,0x21f9a 00021fa0 51 4f |QO | SUBQ.L #0x8,A7 00021fa2 48 6f 00 3a |Ho : | PEA.L (A7+0x3a) 00021fa6 3f 02 |? | MOVE.W D2,-(A7) 00021fa8 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00021fac 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021fb2 58 4f |XO | ADDQ.L #0x4,A7 00021fb4 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021fb8 3f 02 |? | MOVE.W D2,-(A7) 00021fba 3f 01 |? | MOVE.W D1,-(A7) 00021fbc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021fc2 50 4f |PO | ADDQ.L #0x8,A7 00021fc4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021fca 50 4f |PO | ADDQ.L #0x8,A7 00021fcc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021fd2 de fc 00 5e | ^ | ADDA.W #0x5e,A7 00021fd6 4c df 03 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1 00021fda 4e 5e |N^ | UNLK A6 00021fdc 4e 75 |Nu | RTS 00021fde ; -------------------------------------------------------------------------------------- 00021fde ; OMSI PASCAL Function 00021fde ; <LVAR 0x008 1(rw)> 00021fde ; <LVAR -0x003 1(r)> 00021fde ; <LVAR -0x004 1(r) 2(r)> 00021fde ; <LVAR -0x006 @> 00021fde ; <LVAR -0x080 2(r)> 00021fde ; <LVAR -0x081 1(r)> 00021fde ; <LVAR -0x082 1(r) 2(r)> 00021fde ; <LVAR -0x086 @ 1(r)> 00021fde ; <LVAR -0x483 1(r)> 00021fde ; <LVAR -0x484 2(r)> 00021fde ; <LVAR -0x486 @> 00021fde ; <LVAR -0x488 @ 1(r)> 00021fde ; <LVAR -0x48c @ 4(r)> 00021fde ; -------------------------------------------------------------------------------------- 00021fde 4e 56 fb 2e |NV . | LINK.W A6,#0xfb2e 00021fe2 bf d5 | | CMPA.L (A5),A7 00021fe4 62 06 |b | BHI 0x21fec 00021fe6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021fea 4e 76 |Nv | TRAPV 00021fec de fc 00 46 | F | ADDA.W #0x46,A7 00021ff0 48 e7 f0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7) 00021ff4 45 ee fb 78 |E x | LEA.L (A6-0x488),A2 00021ff8 47 ee fb 74 |G t | LEA.L (A6-0x48c),A3 00021ffc 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00022000 74 01 |t | MOVEQ.L #0x01,D2 00022002 76 10 |v | MOVEQ.L #0x10,D3 00022004 42 14 |B | CLR.B (A4) 00022006 9e fc 00 0a | | SUBA.W #0xa,A7 0002200a 20 4f | O | MOVEA.L A7,A0 0002200c 43 fa e8 ae |C | LEA.L 0x208bc,A1 00022010 70 08 |p | MOVEQ.L #0x08,D0 00022012 10 d9 | | MOVE.B (A1)+,(A0)+ 00022014 51 c8 ff fc |Q | DBF D0,0x22012 00022018 59 4f |YO | SUBQ.L #0x4,A7 0002201a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002201e 3f 02 |? | MOVE.W D2,-(A7) 00022020 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00022024 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002202a 5c 4f |\O | ADDQ.L #0x6,A7 0002202c 42 17 |B | CLR.B (A7) 0002202e 1f 02 | | MOVE.B D2,-(A7) 00022030 48 78 00 00 |Hx | PEA.L 0x0 00022034 48 52 |HR | PEA.L (A2) 00022036 48 53 |HS | PEA.L (A3) 00022038 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 0002203e de fc 00 1e | | ADDA.W #0x1e,A7 00022042 4a 12 |J | TST.B (A2) 00022044 66 00 00 ca |f | BNE 0x22110 00022048 2f 13 |/ | MOVE.L (A3),-(A7) 0002204a 42 67 |Bg | CLR.W -(A7) 0002204c 42 67 |Bg | CLR.W -(A7) 0002204e 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00022052 1f 02 | | MOVE.B D2,-(A7) 00022054 41 ee fb 7a |A z | LEA.L (A6-0x486),A0 00022058 2f 08 |/ | MOVE.L A0,-(A7) 0002205a 48 52 |HR | PEA.L (A2) 0002205c 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 00022062 de c3 | | ADDA.W D3,A7 00022064 2e 93 |. | MOVE.L (A3),(A7) 00022066 30 2e fb 7c |0. | | MOVE.W (A6-0x484),D0 0002206a e6 48 | H | LSR.W #0x3,D0 0002206c 52 40 |R@ | ADDQ.W #0x1,D0 0002206e 3f 00 |? | MOVE.W D0,-(A7) 00022070 42 80 |B | CLR.L D0 00022072 10 2e fb 7d | . } | MOVE.B (A6-0x483),D0 00022076 eb 08 | | LSL.B #0x5,D0 00022078 ea 08 | | LSR.B #0x5,D0 0002207a ed 40 | @ | ASL.W #0x6,D0 0002207c 3f 00 |? | MOVE.W D0,-(A7) 0002207e 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 00022082 1f 02 | | MOVE.B D2,-(A7) 00022084 41 ee ff 7a |A z | LEA.L (A6-0x86),A0 00022088 2f 08 |/ | MOVE.L A0,-(A7) 0002208a 48 52 |HR | PEA.L (A2) 0002208c 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 00022092 de fc 00 12 | | ADDA.W #0x12,A7 00022096 42 17 |B | CLR.B (A7) 00022098 1f 02 | | MOVE.B D2,-(A7) 0002209a 48 78 00 01 |Hx | PEA.L 0x1 0002209e 48 52 |HR | PEA.L (A2) 000220a0 48 53 |HS | PEA.L (A3) 000220a2 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000220a8 de c3 | | ADDA.W D3,A7 000220aa 48 6e ff fa |Hn | PEA.L (A6-0x6) 000220ae 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000220b4 58 4f |XO | ADDQ.L #0x4,A7 000220b6 42 14 |B | CLR.B (A4) 000220b8 42 80 |B | CLR.L D0 000220ba 10 2e ff 7e | . ~ | MOVE.B (A6-0x82),D0 000220be e2 08 | | LSR.B #0x1,D0 000220c0 42 81 |B | CLR.L D1 000220c2 12 2e ff fc | . | MOVE.B (A6-0x4),D1 000220c6 e2 09 | | LSR.B #0x1,D1 000220c8 b0 41 | A | CMP.W D1,D0 000220ca 66 44 |fD | BNE 0x22110 000220cc 30 2e ff 7e |0. ~ | MOVE.W (A6-0x82),D0 000220d0 ef 48 | H | LSL.W #0x7,D0 000220d2 e0 48 | H | LSR.W #0x8,D0 000220d4 e8 48 | H | LSR.W #0x4,D0 000220d6 32 2e ff fc |2. | MOVE.W (A6-0x4),D1 000220da ef 49 | I | LSL.W #0x7,D1 000220dc e0 49 | I | LSR.W #0x8,D1 000220de e8 49 | I | LSR.W #0x4,D1 000220e0 b0 41 | A | CMP.W D1,D0 000220e2 66 2c |f, | BNE 0x22110 000220e4 42 80 |B | CLR.L D0 000220e6 10 2e ff 7f | . | MOVE.B (A6-0x81),D0 000220ea e7 08 | | LSL.B #0x3,D0 000220ec e6 08 | | LSR.B #0x3,D0 000220ee 42 81 |B | CLR.L D1 000220f0 12 2e ff fd | . | MOVE.B (A6-0x3),D1 000220f4 e7 09 | | LSL.B #0x3,D1 000220f6 e6 09 | | LSR.B #0x3,D1 000220f8 b0 41 | A | CMP.W D1,D0 000220fa 66 14 |f | BNE 0x22110 000220fc 10 2e ff 7a | . z | MOVE.B (A6-0x86),D0 00022100 0c 00 00 03 | | CMPI.B #0x03,D0 00022104 66 0a |f | BNE 0x22110 00022106 30 2e ff 80 |0. | MOVE.W (A6-0x80),D0 0002210a b0 42 | B | CMP.W D2,D0 0002210c 66 02 |f | BNE 0x22110 0002210e 52 14 |R | ADDQ.B #0x1,(A4) 00022110 4c df 1f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4 00022114 4e 5e |N^ | UNLK A6 00022116 4e 75 |Nu | RTS 00022118 ; -------------------------------------------------------------------------------------- 00022118 ; OMSI PASCAL Function 00022118 ; <LVAR 0x008 1(r)> 00022118 ; <LVAR -0x078 2(r)> 00022118 ; <LVAR -0x07a @ 2(w)> 00022118 ; -------------------------------------------------------------------------------------- 00022118 4e 56 ff 2e |NV . | LINK.W A6,#0xff2e 0002211c bf d5 | | CMPA.L (A5),A7 0002211e 62 06 |b | BHI 0x22126 00022120 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022124 4e 76 |Nv | TRAPV 00022126 de fc 00 58 | X | ADDA.W #0x58,A7 0002212a 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 0002212e 72 01 |r | MOVEQ.L #0x01,D1 00022130 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00022134 48 80 |H | EXTB.W D0 00022136 3d 40 ff 86 |=@ | MOVE.W D0,(A6-0x7a) 0002213a 42 6e ff 88 |Bn | CLR.W (A6-0x78) 0002213e 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00022142 41 ee ff 86 |A | LEA.L (A6-0x7a),A0 00022146 2f 08 |/ | MOVE.L A0,-(A7) 00022148 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 0002214e 9e fc 00 32 | 2 | SUBA.W #0x32,A7 00022152 20 4f | O | MOVEA.L A7,A0 00022154 43 fa e7 70 |C p | LEA.L 0x208c6,A1 00022158 70 36 |p6 | MOVEQ.L #0x36,D0 0002215a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002215c 51 c8 ff fc |Q | DBF D0,0x2215a 00022160 59 4f |YO | SUBQ.L #0x4,A7 00022162 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022166 3f 01 |? | MOVE.W D1,-(A7) 00022168 3f 3c 00 37 |?< 7 | MOVE.W #0x37,-(A7) 0002216c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022172 50 4f |PO | ADDQ.L #0x8,A7 00022174 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002217a de fc 00 3a | : | ADDA.W #0x3a,A7 0002217e 1e bc 00 1b | | MOVE.B #0x1b,(A7) 00022182 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00022188 55 4f |UO | SUBQ.L #0x2,A7 0002218a 1e ba e7 72 | r | MOVE.B 0x208fe,(A7) 0002218e 1f 7a e7 6f 00 01 | z o | MOVE.B 0x208ff,(A7+0x1) 00022194 1f 7a e7 6a 00 02 | z j | MOVE.B 0x20900,(A7+0x2) 0002219a 59 4f |YO | SUBQ.L #0x4,A7 0002219c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000221a0 3f 01 |? | MOVE.W D1,-(A7) 000221a2 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 000221a6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000221ac 50 4f |PO | ADDQ.L #0x8,A7 000221ae 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000221b4 50 4f |PO | ADDQ.L #0x8,A7 000221b6 23 fc 00 00 00 06 00 02 |# | MOVE.L #0x6,0x23944 000221be 39 44 |9D | 000221c0 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 000221c4 4e 5e |N^ | UNLK A6 000221c6 4e 75 |Nu | RTS 000221c8 ; -------------------------------------------------------------------------------------- 000221c8 ; OMSI PASCAL Function 000221c8 ; <LVAR 0x008 1(r)> 000221c8 ; <LVAR -0x078 2(r)> 000221c8 ; <LVAR -0x07a @ 2(w)> 000221c8 ; -------------------------------------------------------------------------------------- 000221c8 4e 56 ff 1c |NV | LINK.W A6,#0xff1c 000221cc bf d5 | | CMPA.L (A5),A7 000221ce 62 06 |b | BHI 0x221d6 000221d0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000221d4 4e 76 |Nv | TRAPV 000221d6 de fc 00 6a | j | ADDA.W #0x6a,A7 000221da 48 e7 f0 e0 |H | MOVEM.L A2+A1+A0+D3+D2+D1+D0,-(A7) 000221de 43 f9 00 01 02 c4 |C | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A1 000221e4 45 f9 00 02 39 42 |E 9B | LEA.L 0x23942,A2 000221ea 76 01 |v | MOVEQ.L #0x01,D3 000221ec 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000221f0 48 80 |H | EXTB.W D0 000221f2 3d 40 ff 86 |=@ | MOVE.W D0,(A6-0x7a) 000221f6 42 6e ff 88 |Bn | CLR.W (A6-0x78) 000221fa 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000221fe 41 ee ff 86 |A | LEA.L (A6-0x7a),A0 00022202 2f 08 |/ | MOVE.L A0,-(A7) 00022204 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 0002220a 5c 4f |\O | ADDQ.L #0x6,A7 0002220c 23 fc 00 00 00 06 00 02 |# | MOVE.L #0x6,0x23944 00022214 39 44 |9D | 00022216 4a 40 |J@ | TST.W D0 00022218 66 28 |f( | BNE 0x22242 0002221a 41 fa e7 0e |A | LEA.L 0x2092a,A0 0002221e 72 09 |r | MOVEQ.L #0x09,D1 00022220 2f 20 |/ | MOVE.L -(A0),-(A7) 00022222 51 c9 ff fc |Q | DBF D1,0x22220 00022226 59 4f |YO | SUBQ.L #0x4,A7 00022228 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002222c 3f 03 |? | MOVE.W D3,-(A7) 0002222e 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 00022232 4e 91 |N | JSR (A1) 00022234 50 4f |PO | ADDQ.L #0x8,A7 00022236 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002223c de fc 00 2c | , | ADDA.W #0x2c,A7 00022240 60 26 |`& | BRA 0x22268 00022242 41 fa e7 22 |A " | LEA.L 0x20966,A0 00022246 72 0e |r | MOVEQ.L #0x0e,D1 00022248 2f 20 |/ | MOVE.L -(A0),-(A7) 0002224a 51 c9 ff fc |Q | DBF D1,0x22248 0002224e 59 4f |YO | SUBQ.L #0x4,A7 00022250 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022254 3f 03 |? | MOVE.W D3,-(A7) 00022256 3f 3c 00 3c |?< < | MOVE.W #0x3c,-(A7) 0002225a 4e 91 |N | JSR (A1) 0002225c 50 4f |PO | ADDQ.L #0x8,A7 0002225e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022264 de fc 00 40 | @ | ADDA.W #0x40,A7 00022268 1f 3c 00 1b | < | MOVE.B #0x1b,-(A7) 0002226c 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00022272 55 4f |UO | SUBQ.L #0x2,A7 00022274 1e ba e6 f0 | | MOVE.B 0x20966,(A7) 00022278 1f 7a e6 ed 00 01 | z | MOVE.B 0x20967,(A7+0x1) 0002227e 1f 7a e6 e8 00 02 | z | MOVE.B 0x20968,(A7+0x2) 00022284 59 4f |YO | SUBQ.L #0x4,A7 00022286 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002228a 3f 03 |? | MOVE.W D3,-(A7) 0002228c 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00022290 4e 91 |N | JSR (A1) 00022292 50 4f |PO | ADDQ.L #0x8,A7 00022294 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 0002229a 5c 4f |\O | ADDQ.L #0x6,A7 0002229c 42 17 |B | CLR.B (A7) 0002229e 4e ba f7 98 |N | JSR 0x21a38 000222a2 54 4f |TO | ADDQ.L #0x2,A7 000222a4 42 12 |B | CLR.B (A2) 000222a6 55 4f |UO | SUBQ.L #0x2,A7 000222a8 4e b9 00 01 05 ce |N | JSR ReadKeySwitch() : Bool 000222ae 12 1f | | MOVE.B (A7)+,D1 000222b0 44 01 |D | NEG.B D1 000222b2 52 01 |R | ADDQ.B #0x1,D1 000222b4 14 39 00 02 39 3f | 9 9? | MOVE.B 0x2393f,D2 000222ba e9 0a | | LSL.B #0x4,D2 000222bc ee 0a | | LSR.B #0x7,D2 000222be c4 01 | | AND.B D1,D2 000222c0 12 39 00 02 39 3f | 9 9? | MOVE.B 0x2393f,D1 000222c6 eb 09 | | LSL.B #0x5,D1 000222c8 ee 09 | | LSR.B #0x7,D1 000222ca c2 02 | | AND.B D2,D1 000222cc 67 06 |g | BEQ 0x222d4 000222ce 4a 40 |J@ | TST.W D0 000222d0 66 02 |f | BNE 0x222d4 000222d2 52 12 |R | ADDQ.B #0x1,(A2) 000222d4 4c df 07 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2 000222d8 4e 5e |N^ | UNLK A6 000222da 4e 75 |Nu | RTS 000222dc ; -------------------------------------------------------------------------------------- 000222dc ; OMSI PASCAL Function 000222dc ; <LVAR 0x008 1(r)> 000222dc ; <LVAR -0x078 2(r)> 000222dc ; <LVAR -0x07a @ 2(w)> 000222dc ; -------------------------------------------------------------------------------------- 000222dc 4e 56 ff 14 |NV | LINK.W A6,#0xff14 000222e0 bf d5 | | CMPA.L (A5),A7 000222e2 62 06 |b | BHI 0x222ea 000222e4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000222e8 4e 76 |Nv | TRAPV 000222ea de fc 00 72 | r | ADDA.W #0x72,A7 000222ee 48 e7 f0 f0 |H | MOVEM.L A3+A2+A1+A0+D3+D2+D1+D0,-(A7) 000222f2 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000222f8 47 f9 00 02 39 44 |G 9D | LEA.L 0x23944,A3 000222fe 72 01 |r | MOVEQ.L #0x01,D1 00022300 74 1b |t | MOVEQ.L #0x1b,D2 00022302 76 03 |v | MOVEQ.L #0x03,D3 00022304 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00022308 48 80 |H | EXTB.W D0 0002230a 3d 40 ff 86 |=@ | MOVE.W D0,(A6-0x7a) 0002230e 42 6e ff 88 |Bn | CLR.W (A6-0x78) 00022312 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00022316 41 ee ff 86 |A | LEA.L (A6-0x7a),A0 0002231a 2f 08 |/ | MOVE.L A0,-(A7) 0002231c 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 00022322 5c 4f |\O | ADDQ.L #0x6,A7 00022324 26 bc 00 00 00 06 |& | MOVE.L #0x6,(A3) 0002232a 0c 00 00 19 | | CMPI.B #0x19,D0 0002232e 66 5e |f^ | BNE 0x2238e 00022330 9e fc 00 40 | @ | SUBA.W #0x40,A7 00022334 20 4f | O | MOVEA.L A7,A0 00022336 43 fa e6 64 |C d | LEA.L 0x2099c,A1 0002233a 70 3e |p> | MOVEQ.L #0x3e,D0 0002233c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002233e 51 c8 ff fc |Q | DBF D0,0x2233c 00022342 59 4f |YO | SUBQ.L #0x4,A7 00022344 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022348 3f 01 |? | MOVE.W D1,-(A7) 0002234a 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 0002234e 4e 92 |N | JSR (A2) 00022350 50 4f |PO | ADDQ.L #0x8,A7 00022352 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022358 de fc 00 42 | B | ADDA.W #0x42,A7 0002235c 1e 82 | | MOVE.B D2,(A7) 0002235e 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00022364 55 4f |UO | SUBQ.L #0x2,A7 00022366 1e ba e6 74 | t | MOVE.B 0x209dc,(A7) 0002236a 1f 7a e6 71 00 01 | z q | MOVE.B 0x209dd,(A7+0x1) 00022370 1f 7a e6 6c 00 02 | z l | MOVE.B 0x209de,(A7+0x2) 00022376 59 4f |YO | SUBQ.L #0x4,A7 00022378 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002237c 3f 01 |? | MOVE.W D1,-(A7) 0002237e 3f 03 |? | MOVE.W D3,-(A7) 00022380 4e 92 |N | JSR (A2) 00022382 50 4f |PO | ADDQ.L #0x8,A7 00022384 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 0002238a 50 4f |PO | ADDQ.L #0x8,A7 0002238c 60 6a |`j | BRA 0x223f8 0002238e 41 fa e6 0c |A | LEA.L 0x2099c,A0 00022392 70 18 |p | MOVEQ.L #0x18,D0 00022394 3f 20 |? | MOVE.W -(A0),-(A7) 00022396 51 c8 ff fc |Q | DBF D0,0x22394 0002239a 59 4f |YO | SUBQ.L #0x4,A7 0002239c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000223a0 3f 01 |? | MOVE.W D1,-(A7) 000223a2 3f 3c 00 32 |?< 2 | MOVE.W #0x32,-(A7) 000223a6 4e 92 |N | JSR (A2) 000223a8 50 4f |PO | ADDQ.L #0x8,A7 000223aa 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000223b0 de fc 00 34 | 4 | ADDA.W #0x34,A7 000223b4 1e 82 | | MOVE.B D2,(A7) 000223b6 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 000223bc 55 4f |UO | SUBQ.L #0x2,A7 000223be 1e ba e6 20 | | MOVE.B 0x209e0,(A7) 000223c2 1f 7a e6 1d 00 01 | z | MOVE.B 0x209e1,(A7+0x1) 000223c8 1f 7a e6 18 00 02 | z | MOVE.B 0x209e2,(A7+0x2) 000223ce 59 4f |YO | SUBQ.L #0x4,A7 000223d0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000223d4 3f 01 |? | MOVE.W D1,-(A7) 000223d6 3f 03 |? | MOVE.W D3,-(A7) 000223d8 4e 92 |N | JSR (A2) 000223da 50 4f |PO | ADDQ.L #0x8,A7 000223dc 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000223e2 50 4f |PO | ADDQ.L #0x8,A7 000223e4 4a 39 00 02 39 40 |J9 9@ | TST.B 0x23940 000223ea 67 0a |g | BEQ 0x223f6 000223ec 1f 01 | | MOVE.B D1,-(A7) 000223ee 4e ba f6 48 |N H | JSR 0x21a38 000223f2 54 4f |TO | ADDQ.L #0x2,A7 000223f4 60 02 |` | BRA 0x223f8 000223f6 26 81 |& | MOVE.L D1,(A3) 000223f8 4c df 0f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3 000223fc 4e 5e |N^ | UNLK A6 000223fe 4e 75 |Nu | RTS 00022400 ; -------------------------------------------------------------------------------------- 00022400 ; OMSI PASCAL Function 00022400 ; <LVAR 0x008 1(r)> 00022400 ; <LVAR -0x005 @ 1(r)> 00022400 ; <LVAR -0x006 @ 1(r)> 00022400 ; -------------------------------------------------------------------------------------- 00022400 4e 56 ff 78 |NV x | LINK.W A6,#0xff78 00022404 bf d5 | | CMPA.L (A5),A7 00022406 62 06 |b | BHI 0x2240e 00022408 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002240c 4e 76 |Nv | TRAPV 0002240e de fc 00 82 | | ADDA.W #0x82,A7 00022412 48 e7 f1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7) 00022416 45 f9 00 02 39 42 |E 9B | LEA.L 0x23942,A2 0002241c 47 f9 00 02 39 44 |G 9D | LEA.L 0x23944,A3 00022422 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 00022428 72 01 |r | MOVEQ.L #0x01,D1 0002242a 74 03 |t | MOVEQ.L #0x03,D2 0002242c 76 4c |vL | MOVEQ.L #0x4c,D3 0002242e 4e ba ee aa |N | JSR 0x212da 00022432 59 4f |YO | SUBQ.L #0x4,A7 00022434 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 0002243a 20 1f | | MOVE.L (A7)+,D0 0002243c b0 81 | | CMP.L D1,D0 0002243e 67 0a |g | BEQ 0x2244a 00022440 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00022444 4e ba fb 16 |N | JSR 0x21f5c 00022448 54 4f |TO | ADDQ.L #0x2,A7 0002244a 55 4f |UO | SUBQ.L #0x2,A7 0002244c 4e ba fb 90 |N | JSR 0x21fde 00022450 10 1f | | MOVE.B (A7)+,D0 00022452 48 80 |H | EXTB.W D0 00022454 41 81 |A | CHK.W D1,D0 00022456 1e 00 | | MOVE.B D0,D7 00022458 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 0002245c 48 6e ff fa |Hn | PEA.L (A6-0x6) 00022460 4e ba f8 76 |N v | JSR 0x21cd8 00022464 58 4f |XO | ADDQ.L #0x4,A7 00022466 1e 81 | | MOVE.B D1,(A7) 00022468 4e ba f5 ce |N | JSR 0x21a38 0002246c 54 4f |TO | ADDQ.L #0x2,A7 0002246e 42 12 |B | CLR.B (A2) 00022470 4a 2e ff fa |J. | TST.B (A6-0x6) 00022474 67 06 |g | BEQ 0x2247c 00022476 26 82 |& | MOVE.L D2,(A3) 00022478 60 00 01 52 |` R | BRA 0x225cc 0002247c 10 39 00 02 39 3f | 9 9? | MOVE.B 0x2393f,D0 00022482 e7 08 | | LSL.B #0x3,D0 00022484 ee 08 | | LSR.B #0x7,D0 00022486 67 00 01 1c |g | BEQ 0x225a4 0002248a 4a 39 00 02 39 41 |J9 9A | TST.B 0x23941 00022490 66 00 01 12 |f | BNE 0x225a4 00022494 48 6e ff fb |Hn | PEA.L (A6-0x5) 00022498 4e ba f7 96 |N | JSR 0x21c30 0002249c 58 4f |XO | ADDQ.L #0x4,A7 0002249e 4a 2e ff fb |J. | TST.B (A6-0x5) 000224a2 67 00 00 d0 |g | BEQ 0x22574 000224a6 26 bc 00 00 00 06 |& | MOVE.L #0x6,(A3) 000224ac 4a 07 |J | TST.B D7 000224ae 67 56 |gV | BEQ 0x22506 000224b0 9e fc 00 46 | F | SUBA.W #0x46,A7 000224b4 20 4f | O | MOVEA.L A7,A0 000224b6 43 fa e5 2c |C , | LEA.L 0x209e4,A1 000224ba 70 44 |pD | MOVEQ.L #0x44,D0 000224bc 10 d9 | | MOVE.B (A1)+,(A0)+ 000224be 51 c8 ff fc |Q | DBF D0,0x224bc 000224c2 59 4f |YO | SUBQ.L #0x4,A7 000224c4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000224c8 3f 01 |? | MOVE.W D1,-(A7) 000224ca 3f 3c 00 45 |?< E | MOVE.W #0x45,-(A7) 000224ce 4e 94 |N | JSR (A4) 000224d0 50 4f |PO | ADDQ.L #0x8,A7 000224d2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000224d8 de fc 00 14 | | ADDA.W #0x14,A7 000224dc 20 4f | O | MOVEA.L A7,A0 000224de 43 fa e5 4a |C J | LEA.L 0x20a2a,A1 000224e2 70 34 |p4 | MOVEQ.L #0x34,D0 000224e4 10 d9 | | MOVE.B (A1)+,(A0)+ 000224e6 51 c8 ff fc |Q | DBF D0,0x224e4 000224ea 59 4f |YO | SUBQ.L #0x4,A7 000224ec 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000224f0 3f 01 |? | MOVE.W D1,-(A7) 000224f2 3f 3c 00 35 |?< 5 | MOVE.W #0x35,-(A7) 000224f6 4e 94 |N | JSR (A4) 000224f8 50 4f |PO | ADDQ.L #0x8,A7 000224fa 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022500 de fc 00 3a | : | ADDA.W #0x3a,A7 00022504 60 6c |`l | BRA 0x22572 00022506 41 fa e5 a0 |A | LEA.L 0x20aa8,A0 0002250a 70 11 |p | MOVEQ.L #0x11,D0 0002250c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002250e 51 c8 ff fc |Q | DBF D0,0x2250c 00022512 59 4f |YO | SUBQ.L #0x4,A7 00022514 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022518 3f 01 |? | MOVE.W D1,-(A7) 0002251a 3f 3c 00 48 |?< H | MOVE.W #0x48,-(A7) 0002251e 4e 94 |N | JSR (A4) 00022520 50 4f |PO | ADDQ.L #0x8,A7 00022522 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022528 de c3 | | ADDA.W D3,A7 0002252a 41 fa e5 c6 |A | LEA.L 0x20af2,A0 0002252e 70 24 |p$ | MOVEQ.L #0x24,D0 00022530 3f 20 |? | MOVE.W -(A0),-(A7) 00022532 51 c8 ff fc |Q | DBF D0,0x22530 00022536 59 4f |YO | SUBQ.L #0x4,A7 00022538 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002253c 3f 01 |? | MOVE.W D1,-(A7) 0002253e 3f 3c 00 4a |?< J | MOVE.W #0x4a,-(A7) 00022542 4e 94 |N | JSR (A4) 00022544 50 4f |PO | ADDQ.L #0x8,A7 00022546 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002254c de c3 | | ADDA.W D3,A7 0002254e 4e b9 00 01 05 ce |N | JSR ReadKeySwitch() : Bool 00022554 14 9f | | MOVE.B (A7)+,(A2) 00022556 44 12 |D | NEG.B (A2) 00022558 52 12 |R | ADDQ.B #0x1,(A2) 0002255a 10 39 00 02 39 3f | 9 9? | MOVE.B 0x2393f,D0 00022560 e9 08 | | LSL.B #0x4,D0 00022562 ee 08 | | LSR.B #0x7,D0 00022564 c1 12 | | AND.B D0,(A2) 00022566 10 39 00 02 39 3f | 9 9? | MOVE.B 0x2393f,D0 0002256c eb 08 | | LSL.B #0x5,D0 0002256e ee 08 | | LSR.B #0x7,D0 00022570 c1 12 | | AND.B D0,(A2) 00022572 60 2e |`. | BRA 0x225a2 00022574 9e fc 00 3e | > | SUBA.W #0x3e,A7 00022578 20 4f | O | MOVEA.L A7,A0 0002257a 43 fa e5 76 |C v | LEA.L 0x20af2,A1 0002257e 70 3c |p< | MOVEQ.L #0x3c,D0 00022580 10 d9 | | MOVE.B (A1)+,(A0)+ 00022582 51 c8 ff fc |Q | DBF D0,0x22580 00022586 59 4f |YO | SUBQ.L #0x4,A7 00022588 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002258c 3f 01 |? | MOVE.W D1,-(A7) 0002258e 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 00022592 4e 94 |N | JSR (A4) 00022594 50 4f |PO | ADDQ.L #0x8,A7 00022596 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002259c de fc 00 42 | B | ADDA.W #0x42,A7 000225a0 26 82 |& | MOVE.L D2,(A3) 000225a2 60 28 |`( | BRA 0x225cc 000225a4 41 fa e5 b2 |A | LEA.L 0x20b58,A0 000225a8 70 09 |p | MOVEQ.L #0x09,D0 000225aa 2f 20 |/ | MOVE.L -(A0),-(A7) 000225ac 51 c8 ff fc |Q | DBF D0,0x225aa 000225b0 59 4f |YO | SUBQ.L #0x4,A7 000225b2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000225b6 3f 01 |? | MOVE.W D1,-(A7) 000225b8 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 000225bc 4e 94 |N | JSR (A4) 000225be 50 4f |PO | ADDQ.L #0x8,A7 000225c0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000225c6 de fc 00 2c | , | ADDA.W #0x2c,A7 000225ca 26 81 |& | MOVE.L D1,(A3) 000225cc 4c df 1f 8f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3+A4 000225d0 4e 5e |N^ | UNLK A6 000225d2 4e 75 |Nu | RTS 000225d4 ; -------------------------------------------------------------------------------------- 000225d4 ; OMSI PASCAL Function 000225d4 ; <LVAR 0x008 1(r)> 000225d4 ; <LVAR -0x078 2(w)> 000225d4 ; <LVAR -0x07a @ 2(w)> 000225d4 ; -------------------------------------------------------------------------------------- 000225d4 4e 56 ff 70 |NV p | LINK.W A6,#0xff70 000225d8 bf d5 | | CMPA.L (A5),A7 000225da 62 06 |b | BHI 0x225e2 000225dc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000225e0 4e 76 |Nv | TRAPV 000225e2 de fc 00 16 | | ADDA.W #0x16,A7 000225e6 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 000225ea 72 03 |r | MOVEQ.L #0x03,D1 000225ec 3d 41 ff 86 |=A | MOVE.W D1,(A6-0x7a) 000225f0 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000225f4 48 80 |H | EXTB.W D0 000225f6 3d 40 ff 88 |=@ | MOVE.W D0,(A6-0x78) 000225fa 1f 01 | | MOVE.B D1,-(A7) 000225fc 41 ee ff 86 |A | LEA.L (A6-0x7a),A0 00022600 2f 08 |/ | MOVE.L A0,-(A7) 00022602 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 00022608 58 4f |XO | ADDQ.L #0x4,A7 0002260a 1e bc 00 01 | | MOVE.B #0x01,(A7) 0002260e 4e ba f4 28 |N ( | JSR 0x21a38 00022612 54 4f |TO | ADDQ.L #0x2,A7 00022614 23 fc 00 00 00 06 00 02 |# | MOVE.L #0x6,0x23944 0002261c 39 44 |9D | 0002261e 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00022622 4e 5e |N^ | UNLK A6 00022624 4e 75 |Nu | RTS 00022626 ; -------------------------------------------------------------------------------------- 00022626 ; OMSI PASCAL Function 00022626 ; <LVAR -0x078 2(r)> 00022626 ; <LVAR -0x07a 2(w)> 00022626 ; <LVAR -0x07c @ 2(w)> 00022626 ; -------------------------------------------------------------------------------------- 00022626 4e 56 ff 6e |NV n | LINK.W A6,#0xff6e 0002262a bf d5 | | CMPA.L (A5),A7 0002262c 62 06 |b | BHI 0x22634 0002262e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022632 4e 76 |Nv | TRAPV 00022634 de fc 00 16 | | ADDA.W #0x16,A7 00022638 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002263c 43 f9 00 02 39 42 |C 9B | LEA.L 0x23942,A1 00022642 3d 7c 00 04 ff 84 |=| | MOVE.W #0x4,(A6-0x7c) 00022648 3d 7c 00 09 ff 86 |=| | MOVE.W #0x9,(A6-0x7a) 0002264e 42 6e ff 88 |Bn | CLR.W (A6-0x78) 00022652 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00022656 41 ee ff 84 |A | LEA.L (A6-0x7c),A0 0002265a 2f 08 |/ | MOVE.L A0,-(A7) 0002265c 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 00022662 58 4f |XO | ADDQ.L #0x4,A7 00022664 42 17 |B | CLR.B (A7) 00022666 4e ba f3 d0 |N | JSR 0x21a38 0002266a 4e b9 00 01 05 ce |N | JSR ReadKeySwitch() : Bool 00022670 12 9f | | MOVE.B (A7)+,(A1) 00022672 44 11 |D | NEG.B (A1) 00022674 52 11 |R | ADDQ.B #0x1,(A1) 00022676 10 39 00 02 39 3f | 9 9? | MOVE.B 0x2393f,D0 0002267c e9 08 | | LSL.B #0x4,D0 0002267e ee 08 | | LSR.B #0x7,D0 00022680 c1 11 | | AND.B D0,(A1) 00022682 10 39 00 02 39 3f | 9 9? | MOVE.B 0x2393f,D0 00022688 eb 08 | | LSL.B #0x5,D0 0002268a ee 08 | | LSR.B #0x7,D0 0002268c c1 11 | | AND.B D0,(A1) 0002268e 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00022692 4e 5e |N^ | UNLK A6 00022694 4e 75 |Nu | RTS 00022696 ; -------------------------------------------------------------------------------------- 00022696 ; OMSI PASCAL Function 00022696 ; <LVAR 0x008 1(r)> 00022696 ; -------------------------------------------------------------------------------------- 00022696 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 0002269a bf d5 | | CMPA.L (A5),A7 0002269c 62 06 |b | BHI 0x226a4 0002269e 44 fc 00 02 |D | MOVE.W #0x2,CCR 000226a2 4e 76 |Nv | TRAPV 000226a4 de fc 00 1c | | ADDA.W #0x1c,A7 000226a8 48 e7 c0 00 |H | MOVEM.L D1+D0,-(A7) 000226ac 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 000226b0 4e ba f8 aa |N | JSR 0x21f5c 000226b4 1e bc 00 1b | | MOVE.B #0x1b,(A7) 000226b8 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 000226be 55 4f |UO | SUBQ.L #0x2,A7 000226c0 1e ba e4 96 | | MOVE.B 0x20b58,(A7) 000226c4 1f 7a e4 93 00 01 | z | MOVE.B 0x20b59,(A7+0x1) 000226ca 1f 7a e4 8e 00 02 | z | MOVE.B 0x20b5a,(A7+0x2) 000226d0 59 4f |YO | SUBQ.L #0x4,A7 000226d2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000226d6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000226da 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 000226de 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000226e4 50 4f |PO | ADDQ.L #0x8,A7 000226e6 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000226ec 50 4f |PO | ADDQ.L #0x8,A7 000226ee 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000226f2 48 80 |H | EXTB.W D0 000226f4 32 00 |2 | MOVE.W D0,D1 000226f6 0c 41 00 0d | A | CMPI.W #0x000d,D1 000226fa 63 02 |c | BLS 0x226fe 000226fc 4e 4e |NN | TRAP #14 000226fe d2 41 | A | ADD.W D1,D1 00022700 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 00022708 00 1c | | .CONST 0x1c ; [0x0] -> 0x22724 0002270a 00 1e | | .CONST 0x1e ; [0x1] -> 0x22726 0002270c 00 20 | | .CONST 0x20 ; [0x2] -> 0x22728 0002270e 00 28 | ( | .CONST 0x28 ; [0x3] -> 0x22730 00022710 00 2a | * | .CONST 0x2a ; [0x4] -> 0x22732 00022712 00 2c | , | .CONST 0x2c ; [0x5] -> 0x22734 00022714 00 2e | . | .CONST 0x2e ; [0x6] -> 0x22736 00022716 00 30 | 0 | .CONST 0x30 ; [0x7] -> 0x22738 00022718 00 32 | 2 | .CONST 0x32 ; [0x8] -> 0x2273a 0002271a 00 34 | 4 | .CONST 0x34 ; [0x9] -> 0x2273c 0002271c 00 3a | : | .CONST 0x3a ; [0xa] -> 0x22742 0002271e 00 3c | < | .CONST 0x3c ; [0xb] -> 0x22744 00022720 00 3e | > | .CONST 0x3e ; [0xc] -> 0x22746 00022722 00 40 | @ | .CONST 0x40 ; [0xd] -> 0x22748 00022724 switch@0x22700[0x0]: 00022724 60 2a |`* | BRA 0x22750 00022726 switch@0x22700[0x1]: 00022726 60 20 |` | BRA switch@0x22700[0xd] 00022728 switch@0x22700[0x2]: 00022728 1f 00 | | MOVE.B D0,-(A7) 0002272a 4e ba fc d4 |N | JSR 0x22400 0002272e 60 1e |` | BRA 0x2274e 00022730 switch@0x22700[0x3]: 00022730 60 16 |` | BRA switch@0x22700[0xd] 00022732 switch@0x22700[0x4]: 00022732 60 f4 |` | BRA switch@0x22700[0x2] 00022734 switch@0x22700[0x5]: 00022734 60 f2 |` | BRA switch@0x22700[0x2] 00022736 switch@0x22700[0x6]: 00022736 60 f0 |` | BRA switch@0x22700[0x2] 00022738 switch@0x22700[0x7]: 00022738 60 0e |` | BRA switch@0x22700[0xd] 0002273a switch@0x22700[0x8]: 0002273a 60 0c |` | BRA switch@0x22700[0xd] 0002273c switch@0x22700[0x9]: 0002273c 4e ba fe e8 |N | JSR 0x22626 00022740 60 0e |` | BRA 0x22750 00022742 switch@0x22700[0xa]: 00022742 60 04 |` | BRA switch@0x22700[0xd] 00022744 switch@0x22700[0xb]: 00022744 60 02 |` | BRA switch@0x22700[0xd] 00022746 switch@0x22700[0xc]: 00022746 60 e0 |` | BRA switch@0x22700[0x2] 00022748 switch@0x22700[0xd]: 00022748 1f 00 | | MOVE.B D0,-(A7) 0002274a 4e ba fe 88 |N | JSR 0x225d4 0002274e 54 4f |TO | ADDQ.L #0x2,A7 00022750 4c df 00 03 |L | MOVEM.L (A7)+,D0+D1 00022754 4e 5e |N^ | UNLK A6 00022756 4e 75 |Nu | RTS 00022758 ; -------------------------------------------------------------------------------------- 00022758 ; OMSI PASCAL Function 00022758 ; <LVAR 0x012 @ 4(r)> 00022758 ; <LVAR 0x00e @ 4(r)> 00022758 ; <LVAR 0x00a 4(r)> 00022758 ; <LVAR 0x008 1(r)> 00022758 ; -------------------------------------------------------------------------------------- 00022758 4e 56 ff ce |NV | LINK.W A6,#0xffce 0002275c bf d5 | | CMPA.L (A5),A7 0002275e 62 06 |b | BHI 0x22766 00022760 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022764 4e 76 |Nv | TRAPV 00022766 de fc 00 30 | 0 | ADDA.W #0x30,A7 0002276a 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 0002276e 43 f9 00 01 02 cc |C | LEA.L StringDup(a : String) : String,A1 00022774 45 ee 00 12 |E | LEA.L (A6+0x12),A2 00022778 47 ee 00 0e |G | LEA.L (A6+0xe),A3 0002277c 49 f9 00 02 39 44 |I 9D | LEA.L 0x23944,A4 00022782 72 01 |r | MOVEQ.L #0x01,D1 00022784 59 4f |YO | SUBQ.L #0x4,A7 00022786 2f 12 |/ | MOVE.L (A2),-(A7) 00022788 4e 91 |N | JSR (A1) 0002278a 58 4f |XO | ADDQ.L #0x4,A7 0002278c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022792 54 4f |TO | ADDQ.L #0x2,A7 00022794 3e ba e3 c6 |> | MOVE.W 0x20b5c,(A7) 00022798 59 4f |YO | SUBQ.L #0x4,A7 0002279a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002279e 3f 01 |? | MOVE.W D1,-(A7) 000227a0 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000227a4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000227aa 50 4f |PO | ADDQ.L #0x8,A7 000227ac 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000227b2 54 4f |TO | ADDQ.L #0x2,A7 000227b4 2f 13 |/ | MOVE.L (A3),-(A7) 000227b6 4e 91 |N | JSR (A1) 000227b8 2e ae 00 0a |. | MOVE.L (A6+0xa),(A7) 000227bc 4e b9 00 01 04 50 |N P | JSR FS_10450(&, &) 000227c2 5c 4f |\O | ADDQ.L #0x6,A7 000227c4 1e bc 00 1b | | MOVE.B #0x1b,(A7) 000227c8 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 000227ce 55 4f |UO | SUBQ.L #0x2,A7 000227d0 1e ba e3 8c | | MOVE.B 0x20b5e,(A7) 000227d4 1f 7a e3 89 00 01 | z | MOVE.B 0x20b5f,(A7+0x1) 000227da 1f 7a e3 84 00 02 | z | MOVE.B 0x20b60,(A7+0x2) 000227e0 59 4f |YO | SUBQ.L #0x4,A7 000227e2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000227e6 3f 01 |? | MOVE.W D1,-(A7) 000227e8 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 000227ec 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000227f2 50 4f |PO | ADDQ.L #0x8,A7 000227f4 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000227fa 50 4f |PO | ADDQ.L #0x8,A7 000227fc 28 bc 00 00 00 06 |( | MOVE.L #0x6,(A4) 00022802 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00022806 48 80 |H | EXTB.W D0 00022808 41 fa ea 2e |A . | LEA.L 0x21238,A0 0002280c 4a 30 00 00 |J0 | TST.B (A0+D0.W) 00022810 67 16 |g | BEQ 0x22828 00022812 4a 39 00 02 39 40 |J9 9@ | TST.B 0x23940 00022818 67 0a |g | BEQ 0x22824 0002281a 1f 01 | | MOVE.B D1,-(A7) 0002281c 4e ba f2 1a |N | JSR 0x21a38 00022820 54 4f |TO | ADDQ.L #0x2,A7 00022822 60 02 |` | BRA 0x22826 00022824 28 81 |( | MOVE.L D1,(A4) 00022826 60 40 |`@ | BRA 0x22868 00022828 4e ba ea b0 |N | JSR 0x212da 0002282c 59 4f |YO | SUBQ.L #0x4,A7 0002282e 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 00022834 20 1f | | MOVE.L (A7)+,D0 00022836 b0 81 | | CMP.L D1,D0 00022838 67 1e |g | BEQ 0x22858 0002283a 59 4f |YO | SUBQ.L #0x4,A7 0002283c 2f 12 |/ | MOVE.L (A2),-(A7) 0002283e 4e 91 |N | JSR (A1) 00022840 58 4f |XO | ADDQ.L #0x4,A7 00022842 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022848 2f 13 |/ | MOVE.L (A3),-(A7) 0002284a 4e 91 |N | JSR (A1) 0002284c 2e ae 00 0a |. | MOVE.L (A6+0xa),(A7) 00022850 4e b9 00 01 04 50 |N P | JSR FS_10450(&, &) 00022856 50 4f |PO | ADDQ.L #0x8,A7 00022858 4a 39 00 02 39 40 |J9 9@ | TST.B 0x23940 0002285e 67 08 |g | BEQ 0x22868 00022860 42 27 |B' | CLR.B -(A7) 00022862 4e ba f1 d4 |N | JSR 0x21a38 00022866 54 4f |TO | ADDQ.L #0x2,A7 00022868 48 52 |HR | PEA.L (A2) 0002286a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022870 58 4f |XO | ADDQ.L #0x4,A7 00022872 48 53 |HS | PEA.L (A3) 00022874 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002287a 58 4f |XO | ADDQ.L #0x4,A7 0002287c 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00022880 4e 5e |N^ | UNLK A6 00022882 4e 75 |Nu | RTS 00022884 ; -------------------------------------------------------------------------------------- 00022884 ; OMSI PASCAL Function 00022884 ; <LVAR 0x00a 4(r)> 00022884 ; <LVAR 0x008 1(r)> 00022884 ; <LVAR -0x07a @ 2(w)> 00022884 ; -------------------------------------------------------------------------------------- 00022884 4e 56 ff 2a |NV * | LINK.W A6,#0xff2a 00022888 bf d5 | | CMPA.L (A5),A7 0002288a 62 06 |b | BHI 0x22892 0002288c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022890 4e 76 |Nv | TRAPV 00022892 de fc 00 5c | \ | ADDA.W #0x5c,A7 00022896 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 0002289a 72 01 |r | MOVEQ.L #0x01,D1 0002289c 20 2e 00 0a | . | MOVE.L (A6+0xa),D0 000228a0 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000228a6 63 02 |c | BLS 0x228aa 000228a8 4e 4f |NO | TRAP #15 000228aa 3d 40 ff 86 |=@ | MOVE.W D0,(A6-0x7a) 000228ae 1f 3c 00 04 | < | MOVE.B #0x04,-(A7) 000228b2 41 ee ff 86 |A | LEA.L (A6-0x7a),A0 000228b6 2f 08 |/ | MOVE.L A0,-(A7) 000228b8 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 000228be 5c 4f |\O | ADDQ.L #0x6,A7 000228c0 41 fa e2 ca |A | LEA.L 0x20b8c,A0 000228c4 70 14 |p | MOVEQ.L #0x14,D0 000228c6 3f 20 |? | MOVE.W -(A0),-(A7) 000228c8 51 c8 ff fc |Q | DBF D0,0x228c6 000228cc 41 fa e2 d0 |A | LEA.L 0x20b9e,A0 000228d0 70 08 |p | MOVEQ.L #0x08,D0 000228d2 3f 20 |? | MOVE.W -(A0),-(A7) 000228d4 51 c8 ff fc |Q | DBF D0,0x228d2 000228d8 59 4f |YO | SUBQ.L #0x4,A7 000228da 48 6f 00 16 |Ho | PEA.L (A7+0x16) 000228de 3f 01 |? | MOVE.W D1,-(A7) 000228e0 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 000228e4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000228ea 58 4f |XO | ADDQ.L #0x4,A7 000228ec 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000228f0 3f 01 |? | MOVE.W D1,-(A7) 000228f2 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 000228f6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000228fc 58 4f |XO | ADDQ.L #0x4,A7 000228fe 2e ae 00 0a |. | MOVE.L (A6+0xa),(A7) 00022902 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00022906 4e ba fe 50 |N P | JSR 0x22758 0002290a de fc 00 4a | J | ADDA.W #0x4a,A7 0002290e 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00022912 4e 5e |N^ | UNLK A6 00022914 4e 75 |Nu | RTS 00022916 ; -------------------------------------------------------------------------------------- 00022916 ; OMSI PASCAL Function 00022916 ; <LVAR 0x00a 1(r)> 00022916 ; <LVAR 0x008 1(r)> 00022916 ; <LVAR -0x07a 2(r)> 00022916 ; <LVAR -0x07c @ 2(w)> 00022916 ; -------------------------------------------------------------------------------------- 00022916 4e 56 ff 18 |NV | LINK.W A6,#0xff18 0002291a bf d5 | | CMPA.L (A5),A7 0002291c 62 06 |b | BHI 0x22924 0002291e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022922 4e 76 |Nv | TRAPV 00022924 de fc 00 6c | l | ADDA.W #0x6c,A7 00022928 48 e7 e0 80 |H | MOVEM.L A0+D2+D1+D0,-(A7) 0002292c 74 01 |t | MOVEQ.L #0x01,D2 0002292e 10 2e 00 0a | . | MOVE.B (A6+0xa),D0 00022932 48 80 |H | EXTB.W D0 00022934 3d 40 ff 84 |=@ | MOVE.W D0,(A6-0x7c) 00022938 42 6e ff 86 |Bn | CLR.W (A6-0x7a) 0002293c 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00022940 41 ee ff 84 |A | LEA.L (A6-0x7c),A0 00022944 2f 08 |/ | MOVE.L A0,-(A7) 00022946 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 0002294c 5c 4f |\O | ADDQ.L #0x6,A7 0002294e 41 fa e2 82 |A | LEA.L 0x20bd2,A0 00022952 72 0c |r | MOVEQ.L #0x0c,D1 00022954 2f 20 |/ | MOVE.L -(A0),-(A7) 00022956 51 c9 ff fc |Q | DBF D1,0x22954 0002295a 41 fa e2 88 |A | LEA.L 0x20be4,A0 0002295e 72 08 |r | MOVEQ.L #0x08,D1 00022960 3f 20 |? | MOVE.W -(A0),-(A7) 00022962 51 c9 ff fc |Q | DBF D1,0x22960 00022966 59 4f |YO | SUBQ.L #0x4,A7 00022968 48 6f 00 16 |Ho | PEA.L (A7+0x16) 0002296c 3f 02 |? | MOVE.W D2,-(A7) 0002296e 3f 3c 00 34 |?< 4 | MOVE.W #0x34,-(A7) 00022972 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022978 58 4f |XO | ADDQ.L #0x4,A7 0002297a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002297e 3f 02 |? | MOVE.W D2,-(A7) 00022980 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00022984 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002298a 50 4f |PO | ADDQ.L #0x8,A7 0002298c 48 c0 |H | EXTW.L D0 0002298e 2f 00 |/ | MOVE.L D0,-(A7) 00022990 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00022994 4e ba fd c2 |N | JSR 0x22758 00022998 de fc 00 54 | T | ADDA.W #0x54,A7 0002299c 4c df 01 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0 000229a0 4e 5e |N^ | UNLK A6 000229a2 4e 75 |Nu | RTS 000229a4 ; -------------------------------------------------------------------------------------- 000229a4 ; OMSI PASCAL Function 000229a4 ; -------------------------------------------------------------------------------------- 000229a4 4e 56 ff ec |NV | LINK.W A6,#0xffec 000229a8 bf d5 | | CMPA.L (A5),A7 000229aa 62 06 |b | BHI 0x229b2 000229ac 44 fc 00 02 |D | MOVE.W #0x2,CCR 000229b0 4e 76 |Nv | TRAPV 000229b2 de fc 00 10 | | ADDA.W #0x10,A7 000229b6 48 e7 01 00 |H | MOVEM.L D7,-(A7) 000229ba 4a 39 00 02 39 40 |J9 9@ | TST.B 0x23940 000229c0 66 12 |f | BNE 0x229d4 000229c2 1f 3c 00 05 | < | MOVE.B #0x05,-(A7) 000229c6 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000229ca 4e b9 00 01 04 8a |N | JSR DiProcCmd(board : Byte; cmd : Byte) 000229d0 58 4f |XO | ADDQ.L #0x4,A7 000229d2 60 48 |`H | BRA 0x22a1c 000229d4 4e b9 00 02 35 fa |N 5 | JSR exp_FREEZE_WORLD.FIU() 000229da 4e b9 00 02 37 1c |N 7 | JSR exp_MF.IOC() 000229e0 4e b9 00 02 36 78 |N 6x | JSR exp_MF.VAL() 000229e6 4e b9 00 02 36 64 |N 6d | JSR exp_MF.TYP() 000229ec 4e b9 00 02 36 18 |N 6 | JSR exp_RESET.SEQ() 000229f2 7e 0c |~ | MOVEQ.L #0x0c,D7 000229f4 55 4f |UO | SUBQ.L #0x2,A7 000229f6 1f 07 | | MOVE.B D7,-(A7) 000229f8 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte 000229fe 54 4f |TO | ADDQ.L #0x2,A7 00022a00 4a 1f |J | TST.B (A7)+ 00022a02 67 0a |g | BEQ 0x22a0e 00022a04 1f 07 | | MOVE.B D7,-(A7) 00022a06 4e b9 00 02 36 98 |N 6 | JSR 0x23698 00022a0c 54 4f |TO | ADDQ.L #0x2,A7 00022a0e 52 07 |R | ADDQ.B #0x1,D7 00022a10 0c 07 00 0f | | CMPI.B #0x0f,D7 00022a14 6f de |o | BLE 0x229f4 00022a16 4e b9 00 02 35 e6 |N 5 | JSR exp_MF.FIU() 00022a1c 4c df 00 80 |L | MOVEM.L (A7)+,D7 00022a20 4e 5e |N^ | UNLK A6 00022a22 4e 75 |Nu | RTS 00022a24 ; -------------------------------------------------------------------------------------- 00022a24 ; OMSI PASCAL Function 00022a24 ; <LVAR 0x008 4(r)> 00022a24 ; <LVAR -0x006 1(r)> 00022a24 ; <LVAR -0x007 @ 1(r)> 00022a24 ; <LVAR -0x008 @ 1(r)> 00022a24 ; <LVAR -0x009 @ 1(r)> 00022a24 ; <LVAR -0x00a @> 00022a24 ; <LVAR -0x00b @ 1(r)> 00022a24 ; <LVAR -0x00c @> 00022a24 ; -------------------------------------------------------------------------------------- 00022a24 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 00022a28 bf d5 | | CMPA.L (A5),A7 00022a2a 62 06 |b | BHI 0x22a32 00022a2c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022a30 4e 76 |Nv | TRAPV 00022a32 de fc 00 3e | > | ADDA.W #0x3e,A7 00022a36 48 e7 fb e0 |H | MOVEM.L A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7) 00022a3a 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00022a3e 45 ee ff f8 |E | LEA.L (A6-0x8),A2 00022a42 74 07 |t | MOVEQ.L #0x07,D2 00022a44 76 09 |v | MOVEQ.L #0x09,D3 00022a46 78 08 |x | MOVEQ.L #0x08,D4 00022a48 42 12 |B | CLR.B (A2) 00022a4a 20 51 | Q | MOVEA.L (A1),A0 00022a4c 42 10 |B | CLR.B (A0) 00022a4e 4a 39 00 02 39 40 |J9 9@ | TST.B 0x23940 00022a54 66 04 |f | BNE 0x22a5a 00022a56 60 00 01 2a |` * | BRA 0x22b82 00022a5a 48 52 |HR | PEA.L (A2) 00022a5c 4e b9 00 02 36 4e |N 6N | JSR exp_HALT.SEQ(&Fr) 00022a62 58 4f |XO | ADDQ.L #0x4,A7 00022a64 4a 12 |J | TST.B (A2) 00022a66 67 00 00 9e |g | BEQ 0x22b06 00022a6a 48 6e ff f9 |Hn | PEA.L (A6-0x7) 00022a6e 4e b9 00 02 36 2e |N 6. | JSR exp_READ_CUR_UADR.SEQ(&Sr_2) 00022a74 58 4f |XO | ADDQ.L #0x4,A7 00022a76 42 80 |B | CLR.L D0 00022a78 10 2e ff f9 | . | MOVE.B (A6-0x7),D0 00022a7c e1 40 | @ | ASL.W #0x8,D0 00022a7e 42 81 |B | CLR.L D1 00022a80 12 2e ff fa | . | MOVE.B (A6-0x6),D1 00022a84 d2 40 | @ | ADD.W D0,D1 00022a86 48 c1 |H | EXTW.L D1 00022a88 2c 01 |, | MOVE.L D1,D6 00022a8a 20 06 | | MOVE.L D6,D0 00022a8c 04 80 00 00 02 00 | | SUBI.L #0x00000200,D0 00022a92 b0 83 | | CMP.L D3,D0 00022a94 62 68 |bh | BHI 0x22afe 00022a96 d0 40 | @ | ADD.W D0,D0 00022a98 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00022aa0 00 14 | | .CONST 0x14 ; [0x0] -> 0x22ab4 00022aa2 00 1c | | .CONST 0x1c ; [0x1] -> 0x22abc 00022aa4 00 24 | $ | .CONST 0x24 ; [0x2] -> 0x22ac4 00022aa6 00 2c | , | .CONST 0x2c ; [0x3] -> 0x22acc 00022aa8 00 34 | 4 | .CONST 0x34 ; [0x4] -> 0x22ad4 00022aaa 00 3c | < | .CONST 0x3c ; [0x5] -> 0x22adc 00022aac 00 44 | D | .CONST 0x44 ; [0x6] -> 0x22ae4 00022aae 00 4a | J | .CONST 0x4a ; [0x7] -> 0x22aea 00022ab0 00 50 | P | .CONST 0x50 ; [0x8] -> 0x22af0 00022ab2 00 56 | V | .CONST 0x56 ; [0x9] -> 0x22af6 00022ab4 switch@0x22a98[0x0]: 00022ab4 20 51 | Q | MOVEA.L (A1),A0 00022ab6 10 bc 00 01 | | MOVE.B #0x01,(A0) 00022aba 60 48 |`H | BRA 0x22b04 00022abc switch@0x22a98[0x1]: 00022abc 20 51 | Q | MOVEA.L (A1),A0 00022abe 10 bc 00 02 | | MOVE.B #0x02,(A0) 00022ac2 60 40 |`@ | BRA 0x22b04 00022ac4 switch@0x22a98[0x2]: 00022ac4 20 51 | Q | MOVEA.L (A1),A0 00022ac6 10 bc 00 03 | | MOVE.B #0x03,(A0) 00022aca 60 38 |`8 | BRA 0x22b04 00022acc switch@0x22a98[0x3]: 00022acc 20 51 | Q | MOVEA.L (A1),A0 00022ace 10 bc 00 04 | | MOVE.B #0x04,(A0) 00022ad2 60 30 |`0 | BRA 0x22b04 00022ad4 switch@0x22a98[0x4]: 00022ad4 20 51 | Q | MOVEA.L (A1),A0 00022ad6 10 bc 00 05 | | MOVE.B #0x05,(A0) 00022ada 60 28 |`( | BRA 0x22b04 00022adc switch@0x22a98[0x5]: 00022adc 20 51 | Q | MOVEA.L (A1),A0 00022ade 10 bc 00 06 | | MOVE.B #0x06,(A0) 00022ae2 60 20 |` | BRA 0x22b04 00022ae4 switch@0x22a98[0x6]: 00022ae4 20 51 | Q | MOVEA.L (A1),A0 00022ae6 10 82 | | MOVE.B D2,(A0) 00022ae8 60 1a |` | BRA 0x22b04 00022aea switch@0x22a98[0x7]: 00022aea 20 51 | Q | MOVEA.L (A1),A0 00022aec 10 84 | | MOVE.B D4,(A0) 00022aee 60 14 |` | BRA 0x22b04 00022af0 switch@0x22a98[0x8]: 00022af0 20 51 | Q | MOVEA.L (A1),A0 00022af2 10 83 | | MOVE.B D3,(A0) 00022af4 60 0e |` | BRA 0x22b04 00022af6 switch@0x22a98[0x9]: 00022af6 20 51 | Q | MOVEA.L (A1),A0 00022af8 10 bc 00 0a | | MOVE.B #0x0a,(A0) 00022afc 60 06 |` | BRA 0x22b04 00022afe 20 51 | Q | MOVEA.L (A1),A0 00022b00 10 bc 00 0d | | MOVE.B #0x0d,(A0) 00022b04 60 7c |`| | BRA 0x22b82 00022b06 7e 00 |~ | MOVEQ.L #0x00,D7 00022b08 be 82 | | CMP.L D2,D7 00022b0a 63 02 |c | BLS 0x22b0e 00022b0c 4e 4f |NO | TRAP #15 00022b0e 55 4f |UO | SUBQ.L #0x2,A7 00022b10 41 fa e7 31 |A 1 | LEA.L 0x21243,A0 00022b14 1f 30 78 00 | 0x | MOVE.B (A0+D7.L),-(A7) 00022b18 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte 00022b1e 54 4f |TO | ADDQ.L #0x2,A7 00022b20 4a 1f |J | TST.B (A7)+ 00022b22 67 2c |g, | BEQ 0x22b50 00022b24 41 fa e7 1d |A | LEA.L 0x21243,A0 00022b28 1f 30 78 00 | 0x | MOVE.B (A0+D7.L),-(A7) 00022b2c 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00022b30 48 6e ff f5 |Hn | PEA.L (A6-0xb) 00022b34 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00022b38 4e b9 00 01 04 84 |N | JSR DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool) 00022b3e de fc 00 0e | | ADDA.W #0xe,A7 00022b42 4a 2e ff f5 |J. | TST.B (A6-0xb) 00022b46 67 08 |g | BEQ 0x22b50 00022b48 20 51 | Q | MOVEA.L (A1),A0 00022b4a 10 bc 00 0c | | MOVE.B #0x0c,(A0) 00022b4e 60 32 |`2 | BRA 0x22b82 00022b50 52 87 |R | ADDQ.L #0x1,D7 00022b52 be 82 | | CMP.L D2,D7 00022b54 6f b2 |o | BLE 0x22b08 00022b56 42 27 |B' | CLR.B -(A7) 00022b58 48 6e ff f7 |Hn | PEA.L (A6-0x9) 00022b5c 4e b9 00 02 35 c8 |N 5 | JSR exp_READ_PAREG.FIU(Sw_1, &Sr_1) 00022b62 5c 4f |\O | ADDQ.L #0x6,A7 00022b64 42 80 |B | CLR.L D0 00022b66 10 2e ff f7 | . | MOVE.B (A6-0x9),D0 00022b6a 32 00 |2 | MOVE.W D0,D1 00022b6c 02 41 00 f7 | A | ANDI.W #0x00f7,D1 00022b70 0c 41 00 f7 | A | CMPI.W #0x00f7,D1 00022b74 67 02 |g | BEQ 0x22b78 00022b76 60 d0 |` | BRA 0x22b48 00022b78 c0 44 | D | AND.W D4,D0 00022b7a 66 06 |f | BNE 0x22b82 00022b7c 20 51 | Q | MOVEA.L (A1),A0 00022b7e 10 bc 00 0b | | MOVE.B #0x0b,(A0) 00022b82 4c df 07 df |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2 00022b86 4e 5e |N^ | UNLK A6 00022b88 4e 75 |Nu | RTS 00022b8a ; -------------------------------------------------------------------------------------- 00022b8a ; OMSI PASCAL Function 00022b8a ; <LVAR -0x004 @ 1(r)> 00022b8a ; <LVAR -0x008 @> 00022b8a ; <LVAR -0x00a @ 2(r)> 00022b8a ; <LVAR -0x00c 2(w)> 00022b8a ; <LVAR -0x00f @ 1(r)> 00022b8a ; <LVAR -0x014 @ 1(r)> 00022b8a ; -------------------------------------------------------------------------------------- 00022b8a 4e 56 ff 74 |NV t | LINK.W A6,#0xff74 00022b8e bf d5 | | CMPA.L (A5),A7 00022b90 62 06 |b | BHI 0x22b98 00022b92 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022b96 4e 76 |Nv | TRAPV 00022b98 de fc 00 78 | x | ADDA.W #0x78,A7 00022b9c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022ba0 45 ee ff f6 |E | LEA.L (A6-0xa),A2 00022ba4 47 ee ff ec |G | LEA.L (A6-0x14),A3 00022ba8 49 f9 00 02 39 40 |I 9@ | LEA.L 0x23940,A4 00022bae 74 01 |t | MOVEQ.L #0x01,D2 00022bb0 76 0a |v | MOVEQ.L #0x0a,D3 00022bb2 78 02 |x | MOVEQ.L #0x02,D4 00022bb4 42 52 |BR | CLR.W (A2) 00022bb6 2f 3c 00 00 fc 10 |/< | MOVE.L #0xfc10,-(A7) 00022bbc 20 4a | J | MOVEA.L A2,A0 00022bbe 2f 08 |/ | MOVE.L A0,-(A7) 00022bc0 52 97 |R | ADDQ.L #0x1,(A7) 00022bc2 3f 02 |? | MOVE.W D2,-(A7) 00022bc4 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) 00022bca de c3 | | ADDA.W D3,A7 00022bcc 42 14 |B | CLR.B (A4) 00022bce 30 12 |0 | MOVE.W (A2),D0 00022bd0 c0 42 | B | AND.W D2,D0 00022bd2 b0 42 | B | CMP.W D2,D0 00022bd4 66 02 |f | BNE 0x22bd8 00022bd6 52 14 |R | ADDQ.B #0x1,(A4) 00022bd8 42 39 00 02 39 41 |B9 9A | CLR.B 0x23941 00022bde 30 12 |0 | MOVE.W (A2),D0 00022be0 b0 44 | D | CMP.W D4,D0 00022be2 65 06 |e | BCS 0x22bea 00022be4 52 39 00 02 39 41 |R9 9A | ADDQ.B #0x1,0x23941 00022bea 4e ba fd b8 |N | JSR 0x229a4 00022bee 41 fa e0 28 |A ( | LEA.L 0x20c18,A0 00022bf2 70 0c |p | MOVEQ.L #0x0c,D0 00022bf4 2f 20 |/ | MOVE.L -(A0),-(A7) 00022bf6 51 c8 ff fc |Q | DBF D0,0x22bf4 00022bfa 59 4f |YO | SUBQ.L #0x4,A7 00022bfc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022c00 3f 02 |? | MOVE.W D2,-(A7) 00022c02 3f 3c 00 34 |?< 4 | MOVE.W #0x34,-(A7) 00022c06 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022c0c 50 4f |PO | ADDQ.L #0x8,A7 00022c0e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022c14 de fc 00 36 | 6 | ADDA.W #0x36,A7 00022c18 1e bc 00 1b | | MOVE.B #0x1b,(A7) 00022c1c 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00022c22 59 4f |YO | SUBQ.L #0x4,A7 00022c24 20 4f | O | MOVEA.L A7,A0 00022c26 43 fa df f0 |C | LEA.L 0x20c18,A1 00022c2a 70 04 |p | MOVEQ.L #0x04,D0 00022c2c 10 d9 | | MOVE.B (A1)+,(A0)+ 00022c2e 51 c8 ff fc |Q | DBF D0,0x22c2c 00022c32 59 4f |YO | SUBQ.L #0x4,A7 00022c34 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022c38 3f 02 |? | MOVE.W D2,-(A7) 00022c3a 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00022c3e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022c44 50 4f |PO | ADDQ.L #0x8,A7 00022c46 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00022c4c de c3 | | ADDA.W D3,A7 00022c4e 48 53 |HS | PEA.L (A3) 00022c50 4e b9 00 01 05 e0 |N | JSR Get_BootReasonCode() : Byte 00022c56 1e 93 | | MOVE.B (A3),(A7) 00022c58 4e ba ed b0 |N | JSR 0x21a0a 00022c5c 54 4f |TO | ADDQ.L #0x2,A7 00022c5e 10 1f | | MOVE.B (A7)+,D0 00022c60 48 80 |H | EXTB.W D0 00022c62 41 83 |A | CHK.W D3,D0 00022c64 1e 00 | | MOVE.B D0,D7 00022c66 be 04 | | CMP.B D4,D7 00022c68 67 04 |g | BEQ 0x22c6e 00022c6a 4a 14 |J | TST.B (A4) 00022c6c 67 5a |gZ | BEQ 0x22cc8 00022c6e 41 fa df c4 |A | LEA.L 0x20c34,A0 00022c72 70 0a |p | MOVEQ.L #0x0a,D0 00022c74 3f 20 |? | MOVE.W -(A0),-(A7) 00022c76 51 c8 ff fc |Q | DBF D0,0x22c74 00022c7a 59 4f |YO | SUBQ.L #0x4,A7 00022c7c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022c80 3f 02 |? | MOVE.W D2,-(A7) 00022c82 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00022c86 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022c8c 5c 4f |\O | ADDQ.L #0x6,A7 00022c8e 42 17 |B | CLR.B (A7) 00022c90 42 27 |B' | CLR.B -(A7) 00022c92 48 78 00 00 |Hx | PEA.L 0x0 00022c96 48 6e ff fc |Hn | PEA.L (A6-0x4) 00022c9a 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00022c9e 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00022ca4 de fc 00 2a | * | ADDA.W #0x2a,A7 00022ca8 4a 2e ff fc |J. | TST.B (A6-0x4) 00022cac 66 1a |f | BNE 0x22cc8 00022cae 1f 04 | | MOVE.B D4,-(A7) 00022cb0 1f 02 | | MOVE.B D2,-(A7) 00022cb2 48 78 00 01 |Hx | PEA.L 0x1 00022cb6 48 6e ff fc |Hn | PEA.L (A6-0x4) 00022cba 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00022cbe 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00022cc4 de fc 00 10 | | ADDA.W #0x10,A7 00022cc8 be 04 | | CMP.B D4,D7 00022cca 66 0c |f | BNE 0x22cd8 00022ccc 1f 13 | | MOVE.B (A3),-(A7) 00022cce 4e ba f4 f8 |N | JSR 0x221c8 00022cd2 54 4f |TO | ADDQ.L #0x2,A7 00022cd4 60 00 00 82 |` | BRA 0x22d58 00022cd8 be 02 | | CMP.B D2,D7 00022cda 66 08 |f | BNE 0x22ce4 00022cdc 1f 13 | | MOVE.B (A3),-(A7) 00022cde 4e ba f4 38 |N 8 | JSR 0x22118 00022ce2 60 ee |` | BRA 0x22cd2 00022ce4 4a 07 |J | TST.B D7 00022ce6 66 08 |f | BNE 0x22cf0 00022ce8 1f 13 | | MOVE.B (A3),-(A7) 00022cea 4e ba f5 f0 |N | JSR 0x222dc 00022cee 60 e2 |` | BRA 0x22cd2 00022cf0 55 4f |UO | SUBQ.L #0x2,A7 00022cf2 4e b9 00 01 05 f2 |N | JSR Get_fc02() : Word 00022cf8 30 1f |0 | MOVE.W (A7)+,D0 00022cfa 3d 40 ff f4 |=@ | MOVE.W D0,(A6-0xc) 00022cfe 3c 00 |< | MOVE.W D0,D6 00022d00 02 46 00 ff | F | ANDI.W #0x00ff,D6 00022d04 32 00 |2 | MOVE.W D0,D1 00022d06 e0 49 | I | LSR.W #0x8,D1 00022d08 1f 01 | | MOVE.B D1,-(A7) 00022d0a 42 81 |B | CLR.L D1 00022d0c 12 1f | | MOVE.B (A7)+,D1 00022d0e 43 83 |C | CHK.W D3,D1 00022d10 1a 01 | | MOVE.B D1,D5 00022d12 48 6e ff f1 |Hn | PEA.L (A6-0xf) 00022d16 4e ba fd 0c |N | JSR 0x22a24 00022d1a 58 4f |XO | ADDQ.L #0x4,A7 00022d1c 4a 2e ff f1 |J. | TST.B (A6-0xf) 00022d20 67 12 |g | BEQ 0x22d34 00022d22 10 2e ff f1 | . | MOVE.B (A6-0xf),D0 00022d26 48 80 |H | EXTB.W D0 00022d28 41 bc 00 0d |A | CHK.W #0xd,D0 00022d2c 1f 00 | | MOVE.B D0,-(A7) 00022d2e 4e ba f9 66 |N f | JSR 0x22696 00022d32 60 9e |` | BRA 0x22cd2 00022d34 4a 40 |J@ | TST.W D0 00022d36 67 16 |g | BEQ 0x22d4e 00022d38 42 80 |B | CLR.L D0 00022d3a 30 06 |0 | MOVE.W D6,D0 00022d3c 2f 00 |/ | MOVE.L D0,-(A7) 00022d3e 10 05 | | MOVE.B D5,D0 00022d40 48 80 |H | EXTB.W D0 00022d42 41 83 |A | CHK.W D3,D0 00022d44 1f 00 | | MOVE.B D0,-(A7) 00022d46 4e ba fb 3c |N < | JSR 0x22884 00022d4a 5c 4f |\O | ADDQ.L #0x6,A7 00022d4c 60 0a |` | BRA 0x22d58 00022d4e 1f 13 | | MOVE.B (A3),-(A7) 00022d50 1f 07 | | MOVE.B D7,-(A7) 00022d52 4e ba fb c2 |N | JSR 0x22916 00022d56 58 4f |XO | ADDQ.L #0x4,A7 00022d58 42 52 |BR | CLR.W (A2) 00022d5a 20 4a | J | MOVEA.L A2,A0 00022d5c 2f 08 |/ | MOVE.L A0,-(A7) 00022d5e 52 97 |R | ADDQ.L #0x1,(A7) 00022d60 2f 3c 00 00 fc 10 |/< | MOVE.L #0xfc10,-(A7) 00022d66 3f 02 |? | MOVE.W D2,-(A7) 00022d68 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) 00022d6e de c3 | | ADDA.W D3,A7 00022d70 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022d74 4e 5e |N^ | UNLK A6 00022d76 4e 75 |Nu | RTS 00022d78 ; -------------------------------------------------------------------------------------- 00022d78 ; OMSI PASCAL Function 00022d78 ; <LVAR -0x004 @ 2(r)> 00022d78 ; <LVAR -0x008 @ 4(r)> 00022d78 ; -------------------------------------------------------------------------------------- 00022d78 4e 56 ff 74 |NV t | LINK.W A6,#0xff74 00022d7c bf d5 | | CMPA.L (A5),A7 00022d7e 62 06 |b | BHI 0x22d86 00022d80 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022d84 4e 76 |Nv | TRAPV 00022d86 de fc 00 84 | | ADDA.W #0x84,A7 00022d8a 48 e7 f8 f0 |H | MOVEM.L A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7) 00022d8e 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00022d92 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00022d98 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00022d9e 72 01 |r | MOVEQ.L #0x01,D1 00022da0 74 05 |t | MOVEQ.L #0x05,D2 00022da2 76 0e |v | MOVEQ.L #0x0e,D3 00022da4 78 08 |x | MOVEQ.L #0x08,D4 00022da6 55 4f |UO | SUBQ.L #0x2,A7 00022da8 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00022dae 4a 1f |J | TST.B (A7)+ 00022db0 66 0c |f | BNE 0x22dbe 00022db2 55 4f |UO | SUBQ.L #0x2,A7 00022db4 4e b9 00 01 06 04 |N | JSR Is_machine_type_three() : Bool 00022dba 4a 1f |J | TST.B (A7)+ 00022dbc 67 46 |gF | BEQ 0x22e04 00022dbe 2f 3c 93 03 e0 00 |/< | MOVE.L #0x9303e000,-(A7) 00022dc4 3f 02 |? | MOVE.W D2,-(A7) 00022dc6 41 ee ff fc |A | LEA.L (A6-0x4),A0 00022dca 2f 08 |/ | MOVE.L A0,-(A7) 00022dcc 3f 01 |? | MOVE.W D1,-(A7) 00022dce 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00022dd2 4e b9 00 01 02 3a |N : | JSR KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word 00022dd8 de c3 | | ADDA.W D3,A7 00022dda 30 2e ff fc |0. | MOVE.W (A6-0x4),D0 00022dde c0 44 | D | AND.W D4,D0 00022de0 66 22 |f" | BNE 0x22e04 00022de2 41 fa de a0 |A | LEA.L 0x20c84,A0 00022de6 70 13 |p | MOVEQ.L #0x13,D0 00022de8 2f 20 |/ | MOVE.L -(A0),-(A7) 00022dea 51 c8 ff fc |Q | DBF D0,0x22de8 00022dee 59 4f |YO | SUBQ.L #0x4,A7 00022df0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022df4 3f 01 |? | MOVE.W D1,-(A7) 00022df6 3f 3c 00 50 |?< P | MOVE.W #0x50,-(A7) 00022dfa 4e 92 |N | JSR (A2) 00022dfc 50 4f |PO | ADDQ.L #0x8,A7 00022dfe 4e 93 |N | JSR (A3) 00022e00 de fc 00 54 | T | ADDA.W #0x54,A7 00022e04 48 78 f8 00 |Hx | PEA.L 0xfffff800 00022e08 3f 02 |? | MOVE.W D2,-(A7) 00022e0a 20 49 | I | MOVEA.L A1,A0 00022e0c 2f 08 |/ | MOVE.L A0,-(A7) 00022e0e 3f 01 |? | MOVE.W D1,-(A7) 00022e10 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00022e14 4e b9 00 01 02 3a |N : | JSR KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word 00022e1a de c3 | | ADDA.W D3,A7 00022e1c 20 11 | | MOVE.L (A1),D0 00022e1e 02 80 80 00 00 00 | | ANDI.L #0x80000000,D0 00022e24 67 0a |g | BEQ 0x22e30 00022e26 20 11 | | MOVE.L (A1),D0 00022e28 02 80 00 00 02 00 | | ANDI.L #0x00000200,D0 00022e2e 67 22 |g" | BEQ 0x22e52 00022e30 41 fa de 88 |A | LEA.L 0x20cba,A0 00022e34 70 1a |p | MOVEQ.L #0x1a,D0 00022e36 3f 20 |? | MOVE.W -(A0),-(A7) 00022e38 51 c8 ff fc |Q | DBF D0,0x22e36 00022e3c 59 4f |YO | SUBQ.L #0x4,A7 00022e3e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022e42 3f 01 |? | MOVE.W D1,-(A7) 00022e44 3f 3c 00 36 |?< 6 | MOVE.W #0x36,-(A7) 00022e48 4e 92 |N | JSR (A2) 00022e4a 50 4f |PO | ADDQ.L #0x8,A7 00022e4c 4e 93 |N | JSR (A3) 00022e4e de fc 00 3a | : | ADDA.W #0x3a,A7 00022e52 20 11 | | MOVE.L (A1),D0 00022e54 c0 84 | | AND.L D4,D0 00022e56 67 22 |g" | BEQ 0x22e7a 00022e58 41 fa de 9e |A | LEA.L 0x20cf8,A0 00022e5c 70 1e |p | MOVEQ.L #0x1e,D0 00022e5e 3f 20 |? | MOVE.W -(A0),-(A7) 00022e60 51 c8 ff fc |Q | DBF D0,0x22e5e 00022e64 59 4f |YO | SUBQ.L #0x4,A7 00022e66 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022e6a 3f 01 |? | MOVE.W D1,-(A7) 00022e6c 3f 3c 00 3e |?< > | MOVE.W #0x3e,-(A7) 00022e70 4e 92 |N | JSR (A2) 00022e72 50 4f |PO | ADDQ.L #0x8,A7 00022e74 4e 93 |N | JSR (A3) 00022e76 de fc 00 42 | B | ADDA.W #0x42,A7 00022e7a 4c df 0f 1f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3 00022e7e 4e 5e |N^ | UNLK A6 00022e80 4e 75 |Nu | RTS 00022e82 ; -------------------------------------------------------------------------------------- 00022e82 ; OMSI PASCAL Function 00022e82 ; <LVAR 0x00c 4(r)> 00022e82 ; <LVAR 0x008 4(r)> 00022e82 ; <LVAR -0x004 @ 4(r)> 00022e82 ; -------------------------------------------------------------------------------------- 00022e82 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00022e86 bf d5 | | CMPA.L (A5),A7 00022e88 62 06 |b | BHI 0x22e90 00022e8a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022e8e 4e 76 |Nv | TRAPV 00022e90 de fc 00 20 | | ADDA.W #0x20,A7 00022e94 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 00022e98 43 ee ff fc |C | LEA.L (A6-0x4),A1 00022e9c 42 91 |B | CLR.L (A1) 00022e9e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022ea2 20 49 | I | MOVEA.L A1,A0 00022ea4 2f 08 |/ | MOVE.L A0,-(A7) 00022ea6 52 97 |R | ADDQ.L #0x1,(A7) 00022ea8 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00022eac 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) 00022eb2 5c 4f |\O | ADDQ.L #0x6,A7 00022eb4 2e 94 |. | MOVE.L (A4),(A7) 00022eb6 51 4f |QO | SUBQ.L #0x8,A7 00022eb8 2f 11 |/ | MOVE.L (A1),-(A7) 00022eba 48 78 00 06 |Hx | PEA.L 0x6 00022ebe 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 00022ec4 58 4f |XO | ADDQ.L #0x4,A7 00022ec6 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00022eca 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022ed0 50 4f |PO | ADDQ.L #0x8,A7 00022ed2 48 6c 00 05 |Hl | PEA.L (A4+0x5) 00022ed6 4e b9 00 01 04 40 |N @ | JSR FSCALL_10440 00022edc de fc 00 0c | | ADDA.W #0xc,A7 00022ee0 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 00022ee4 4e 5e |N^ | UNLK A6 00022ee6 4e 75 |Nu | RTS 00022ee8 ; -------------------------------------------------------------------------------------- 00022ee8 ; OMSI PASCAL Function 00022ee8 ; <LVAR -0x004 @> 00022ee8 ; <LVAR -0x008 @ 4(r)> 00022ee8 ; -------------------------------------------------------------------------------------- 00022ee8 4e 56 ff a4 |NV | LINK.W A6,#0xffa4 00022eec bf d5 | | CMPA.L (A5),A7 00022eee 62 06 |b | BHI 0x22ef6 00022ef0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ef4 4e 76 |Nv | TRAPV 00022ef6 de fc 00 54 | T | ADDA.W #0x54,A7 00022efa 48 e7 fe f8 |H | MOVEM.L A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022efe 45 ee ff f8 |E | LEA.L (A6-0x8),A2 00022f02 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00022f08 72 01 |r | MOVEQ.L #0x01,D1 00022f0a 74 0c |t | MOVEQ.L #0x0c,D2 00022f0c 76 0b |v | MOVEQ.L #0x0b,D3 00022f0e 78 10 |x | MOVEQ.L #0x10,D4 00022f10 7a 12 |z | MOVEQ.L #0x12,D5 00022f12 7c 0d || | MOVEQ.L #0x0d,D6 00022f14 9e c2 | | SUBA.W D2,A7 00022f16 20 4f | O | MOVEA.L A7,A0 00022f18 43 fa dd de |C | LEA.L 0x20cf8,A1 00022f1c 70 0a |p | MOVEQ.L #0x0a,D0 00022f1e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022f20 51 c8 ff fc |Q | DBF D0,0x22f1e 00022f24 59 4f |YO | SUBQ.L #0x4,A7 00022f26 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022f2a 3f 01 |? | MOVE.W D1,-(A7) 00022f2c 3f 03 |? | MOVE.W D3,-(A7) 00022f2e 4e 93 |N | JSR (A3) 00022f30 5c 4f |\O | ADDQ.L #0x6,A7 00022f32 1e 81 | | MOVE.B D1,(A7) 00022f34 1f 01 | | MOVE.B D1,-(A7) 00022f36 48 78 00 01 |Hx | PEA.L 0x1 00022f3a 48 6e ff fc |Hn | PEA.L (A6-0x4) 00022f3e 48 52 |HR | PEA.L (A2) 00022f40 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00022f46 de c4 | | ADDA.W D4,A7 00022f48 20 4f | O | MOVEA.L A7,A0 00022f4a 43 fa dd b8 |C | LEA.L 0x20d04,A1 00022f4e 70 0e |p | MOVEQ.L #0x0e,D0 00022f50 10 d9 | | MOVE.B (A1)+,(A0)+ 00022f52 51 c8 ff fc |Q | DBF D0,0x22f50 00022f56 2f 3c 80 00 1f fb |/< | MOVE.L #0x80001ffb,-(A7) 00022f5c 59 4f |YO | SUBQ.L #0x4,A7 00022f5e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022f62 3f 01 |? | MOVE.W D1,-(A7) 00022f64 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00022f68 4e 93 |N | JSR (A3) 00022f6a 50 4f |PO | ADDQ.L #0x8,A7 00022f6c 28 4a |(J | MOVEA.L A2,A4 00022f6e 4e ba ff 12 |N | JSR 0x22e82 00022f72 de c2 | | ADDA.W D2,A7 00022f74 20 4f | O | MOVEA.L A7,A0 00022f76 43 fa dd 9c |C | LEA.L 0x20d14,A1 00022f7a 70 0a |p | MOVEQ.L #0x0a,D0 00022f7c 10 d9 | | MOVE.B (A1)+,(A0)+ 00022f7e 51 c8 ff fc |Q | DBF D0,0x22f7c 00022f82 2f 3c 80 00 3f fb |/< ? | MOVE.L #0x80003ffb,-(A7) 00022f88 59 4f |YO | SUBQ.L #0x4,A7 00022f8a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022f8e 3f 01 |? | MOVE.W D1,-(A7) 00022f90 3f 03 |? | MOVE.W D3,-(A7) 00022f92 4e 93 |N | JSR (A3) 00022f94 50 4f |PO | ADDQ.L #0x8,A7 00022f96 28 4a |(J | MOVEA.L A2,A4 00022f98 4e ba fe e8 |N | JSR 0x22e82 00022f9c 50 4f |PO | ADDQ.L #0x8,A7 00022f9e 20 4f | O | MOVEA.L A7,A0 00022fa0 43 fa dd 7e |C ~ | LEA.L 0x20d20,A1 00022fa4 70 0a |p | MOVEQ.L #0x0a,D0 00022fa6 10 d9 | | MOVE.B (A1)+,(A0)+ 00022fa8 51 c8 ff fc |Q | DBF D0,0x22fa6 00022fac 2f 3c 80 00 5f fb |/< _ | MOVE.L #0x80005ffb,-(A7) 00022fb2 59 4f |YO | SUBQ.L #0x4,A7 00022fb4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022fb8 3f 01 |? | MOVE.W D1,-(A7) 00022fba 3f 03 |? | MOVE.W D3,-(A7) 00022fbc 4e 93 |N | JSR (A3) 00022fbe 50 4f |PO | ADDQ.L #0x8,A7 00022fc0 28 4a |(J | MOVEA.L A2,A4 00022fc2 4e ba fe be |N | JSR 0x22e82 00022fc6 50 4f |PO | ADDQ.L #0x8,A7 00022fc8 20 4f | O | MOVEA.L A7,A0 00022fca 43 fa dd 60 |C ` | LEA.L 0x20d2c,A1 00022fce 70 0a |p | MOVEQ.L #0x0a,D0 00022fd0 10 d9 | | MOVE.B (A1)+,(A0)+ 00022fd2 51 c8 ff fc |Q | DBF D0,0x22fd0 00022fd6 2f 3c 80 00 7d fb |/< } | MOVE.L #0x80007dfb,-(A7) 00022fdc 59 4f |YO | SUBQ.L #0x4,A7 00022fde 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022fe2 3f 01 |? | MOVE.W D1,-(A7) 00022fe4 3f 03 |? | MOVE.W D3,-(A7) 00022fe6 4e 93 |N | JSR (A3) 00022fe8 50 4f |PO | ADDQ.L #0x8,A7 00022fea 28 4a |(J | MOVEA.L A2,A4 00022fec 4e ba fe 94 |N | JSR 0x22e82 00022ff0 de c5 | | ADDA.W D5,A7 00022ff2 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00022ff8 4a 1f |J | TST.B (A7)+ 00022ffa 66 0e |f | BNE 0x2300a 00022ffc 55 4f |UO | SUBQ.L #0x2,A7 00022ffe 4e b9 00 01 06 04 |N | JSR Is_machine_type_three() : Bool 00023004 4a 1f |J | TST.B (A7)+ 00023006 67 00 00 ac |g | BEQ 0x230b4 0002300a 9e fc 00 0e | | SUBA.W #0xe,A7 0002300e 20 4f | O | MOVEA.L A7,A0 00023010 43 fa dd 26 |C & | LEA.L 0x20d38,A1 00023014 70 0c |p | MOVEQ.L #0x0c,D0 00023016 10 d9 | | MOVE.B (A1)+,(A0)+ 00023018 51 c8 ff fc |Q | DBF D0,0x23016 0002301c 2f 3c 00 07 1f fb |/< | MOVE.L #0x71ffb,-(A7) 00023022 59 4f |YO | SUBQ.L #0x4,A7 00023024 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023028 3f 01 |? | MOVE.W D1,-(A7) 0002302a 3f 06 |? | MOVE.W D6,-(A7) 0002302c 4e 93 |N | JSR (A3) 0002302e 50 4f |PO | ADDQ.L #0x8,A7 00023030 28 4a |(J | MOVEA.L A2,A4 00023032 4e ba fe 4e |N N | JSR 0x22e82 00023036 50 4f |PO | ADDQ.L #0x8,A7 00023038 20 4f | O | MOVEA.L A7,A0 0002303a 43 fa dd 0a |C | LEA.L 0x20d46,A1 0002303e 70 0c |p | MOVEQ.L #0x0c,D0 00023040 10 d9 | | MOVE.B (A1)+,(A0)+ 00023042 51 c8 ff fc |Q | DBF D0,0x23040 00023046 2f 3c 00 07 3f fb |/< ? | MOVE.L #0x73ffb,-(A7) 0002304c 59 4f |YO | SUBQ.L #0x4,A7 0002304e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023052 3f 01 |? | MOVE.W D1,-(A7) 00023054 3f 06 |? | MOVE.W D6,-(A7) 00023056 4e 93 |N | JSR (A3) 00023058 50 4f |PO | ADDQ.L #0x8,A7 0002305a 28 4a |(J | MOVEA.L A2,A4 0002305c 4e ba fe 24 |N $ | JSR 0x22e82 00023060 de c5 | | ADDA.W D5,A7 00023062 2e ba dc f8 |. | MOVE.L 0x20d5c,(A7) 00023066 2f 3a dc f0 |/: | MOVE.L 0x20d58,-(A7) 0002306a 2f 3a dc e8 |/: | MOVE.L 0x20d54,-(A7) 0002306e 2f 3c 00 07 5f fb |/< _ | MOVE.L #0x75ffb,-(A7) 00023074 59 4f |YO | SUBQ.L #0x4,A7 00023076 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002307a 3f 01 |? | MOVE.W D1,-(A7) 0002307c 3f 02 |? | MOVE.W D2,-(A7) 0002307e 4e 93 |N | JSR (A3) 00023080 50 4f |PO | ADDQ.L #0x8,A7 00023082 28 4a |(J | MOVEA.L A2,A4 00023084 4e ba fd fc |N | JSR 0x22e82 00023088 de c4 | | ADDA.W D4,A7 0002308a 2e ba dc dc |. | MOVE.L 0x20d68,(A7) 0002308e 2f 3a dc d4 |/: | MOVE.L 0x20d64,-(A7) 00023092 2f 3a dc cc |/: | MOVE.L 0x20d60,-(A7) 00023096 2f 3c 00 07 7f fb |/< | MOVE.L #0x77ffb,-(A7) 0002309c 59 4f |YO | SUBQ.L #0x4,A7 0002309e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000230a2 3f 01 |? | MOVE.W D1,-(A7) 000230a4 3f 02 |? | MOVE.W D2,-(A7) 000230a6 4e 93 |N | JSR (A3) 000230a8 50 4f |PO | ADDQ.L #0x8,A7 000230aa 28 4a |(J | MOVEA.L A2,A4 000230ac 4e ba fd d4 |N | JSR 0x22e82 000230b0 de fc 00 14 | | ADDA.W #0x14,A7 000230b4 2f 12 |/ | MOVE.L (A2),-(A7) 000230b6 4e b9 00 01 04 48 |N H | JSR FSCALL_10448 000230bc 54 4f |TO | ADDQ.L #0x2,A7 000230be 42 17 |B | CLR.B (A7) 000230c0 1f 01 | | MOVE.B D1,-(A7) 000230c2 48 78 00 01 |Hx | PEA.L 0x1 000230c6 48 6e ff fc |Hn | PEA.L (A6-0x4) 000230ca 48 52 |HR | PEA.L (A2) 000230cc 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000230d2 de c4 | | ADDA.W D4,A7 000230d4 4c df 1f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4 000230d8 4e 5e |N^ | UNLK A6 000230da 4e 75 |Nu | RTS 000230dc ; -------------------------------------------------------------------------------------- 000230dc ; OMSI PASCAL Function 000230dc ; -------------------------------------------------------------------------------------- 000230dc START: 000230dc 4f fa 00 08 |O | LEA.L MAIN,A7 000230e0 4e f9 00 01 02 80 |N | JMP ?start_program 000230e6 MAIN: 000230e6 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000230ec 47 f9 00 02 39 44 |G 9D | LEA.L 0x23944,A3 000230f2 49 f9 00 01 03 b0 |I | LEA.L PushProgram(a : String; b : String; MOD c : B; VAR d : Bool),A4 000230f8 72 01 |r | MOVEQ.L #0x01,D1 000230fa 74 06 |t | MOVEQ.L #0x06,D2 000230fc 76 1c |v | MOVEQ.L #0x1c,D3 000230fe 78 22 |x" | MOVEQ.L #0x22,D4 00023100 7a 20 |z | MOVEQ.L #0x20,D5 00023102 7c 05 || | MOVEQ.L #0x05,D6 00023104 7e 1a |~ | MOVEQ.L #0x1a,D7 00023106 48 78 00 01 |Hx | PEA.L 0x1 0002310a 4e b9 00 01 03 f4 |N | JSR SetConsoleConfig(a : Long) 00023110 54 4f |TO | ADDQ.L #0x2,A7 00023112 42 17 |B | CLR.B (A7) 00023114 4e b9 00 01 04 04 |N | JSR SetSomeKindOfFlag(a : Byte) 0002311a 3e 81 |> | MOVE.W D1,(A7) 0002311c 1f 01 | | MOVE.B D1,-(A7) 0002311e 4e b9 00 01 02 10 |N | JSR KC08_PortSomething(port: Word; b: Byte) 00023124 58 4f |XO | ADDQ.L #0x4,A7 00023126 48 78 00 0f |Hx | PEA.L 0xf 0002312a 4e b9 00 01 04 d8 |N | JSR ExpInit(a : Long) 00023130 58 4f |XO | ADDQ.L #0x4,A7 00023132 4e ba e3 46 |N F | JSR 0x2147a 00023136 48 79 00 02 39 3f |Hy 9? | PEA.L 0x2393f 0002313c 4e b9 00 01 05 aa |N | JSR Read_fc00() : Byte 00023142 58 4f |XO | ADDQ.L #0x4,A7 00023144 4e ba e4 00 |N | JSR 0x21546 00023148 4e ba e6 2e |N . | JSR 0x21778 0002314c 3f 3a dc 22 |?: " | MOVE.W 0x20d70,-(A7) 00023150 3f 3a dc 1c |?: | MOVE.W 0x20d6e,-(A7) 00023154 3f 3a dc 16 |?: | MOVE.W 0x20d6c,-(A7) 00023158 5d 4f |]O | SUBQ.L #0x6,A7 0002315a 20 4f | O | MOVEA.L A7,A0 0002315c 43 fa dc 14 |C | LEA.L 0x20d72,A1 00023160 70 04 |p | MOVEQ.L #0x04,D0 00023162 10 d9 | | MOVE.B (A1)+,(A0)+ 00023164 51 c8 ff fc |Q | DBF D0,0x23162 00023168 59 4f |YO | SUBQ.L #0x4,A7 0002316a 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002316e 3f 01 |? | MOVE.W D1,-(A7) 00023170 3f 02 |? | MOVE.W D2,-(A7) 00023172 4e 92 |N | JSR (A2) 00023174 58 4f |XO | ADDQ.L #0x4,A7 00023176 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002317a 3f 01 |? | MOVE.W D1,-(A7) 0002317c 3f 06 |? | MOVE.W D6,-(A7) 0002317e 4e 92 |N | JSR (A2) 00023180 5c 4f |\O | ADDQ.L #0x6,A7 00023182 42 17 |B | CLR.B (A7) 00023184 48 79 00 02 39 3e |Hy 9> | PEA.L 0x2393e 0002318a 4e 94 |N | JSR (A4) 0002318c de c7 | | ADDA.W D7,A7 0002318e 4e ba fd 58 |N X | JSR 0x22ee8 00023192 42 39 00 02 39 48 |B9 9H | CLR.B 0x23948 00023198 42 39 00 02 39 49 |B9 9I | CLR.B 0x23949 0002319e 42 39 00 02 39 42 |B9 9B | CLR.B 0x23942 000231a4 26 82 |& | MOVE.L D2,(A3) 000231a6 4e ba f9 e2 |N | JSR 0x22b8a 000231aa 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000231b0 4e ba fb c6 |N | JSR 0x22d78 000231b4 4a 39 00 02 39 42 |J9 9B | TST.B 0x23942 000231ba 67 06 |g | BEQ 0x231c2 000231bc 26 82 |& | MOVE.L D2,(A3) 000231be 60 00 02 56 |` V | BRA 0x23416 000231c2 2f 3a db bc |/: | MOVE.L 0x20d80,-(A7) 000231c6 2f 3a db b4 |/: | MOVE.L 0x20d7c,-(A7) 000231ca 2f 3a db ac |/: | MOVE.L 0x20d78,-(A7) 000231ce 59 4f |YO | SUBQ.L #0x4,A7 000231d0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000231d4 3f 01 |? | MOVE.W D1,-(A7) 000231d6 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 000231da 4e 92 |N | JSR (A2) 000231dc 50 4f |PO | ADDQ.L #0x8,A7 000231de 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000231e4 de fc 00 0c | | ADDA.W #0xc,A7 000231e8 2e ba db a6 |. | MOVE.L 0x20d90,(A7) 000231ec 2f 3a db 9e |/: | MOVE.L 0x20d8c,-(A7) 000231f0 2f 3a db 96 |/: | MOVE.L 0x20d88,-(A7) 000231f4 2f 3a db 8e |/: | MOVE.L 0x20d84,-(A7) 000231f8 59 4f |YO | SUBQ.L #0x4,A7 000231fa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000231fe 3f 01 |? | MOVE.W D1,-(A7) 00023200 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 00023204 4e 92 |N | JSR (A2) 00023206 50 4f |PO | ADDQ.L #0x8,A7 00023208 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002320e 59 4f |YO | SUBQ.L #0x4,A7 00023210 20 4f | O | MOVEA.L A7,A0 00023212 43 fa db 80 |C | LEA.L 0x20d94,A1 00023216 70 16 |p | MOVEQ.L #0x16,D0 00023218 10 d9 | | MOVE.B (A1)+,(A0)+ 0002321a 51 c8 ff fc |Q | DBF D0,0x23218 0002321e 59 4f |YO | SUBQ.L #0x4,A7 00023220 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023224 3f 01 |? | MOVE.W D1,-(A7) 00023226 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 0002322a 4e 92 |N | JSR (A2) 0002322c 50 4f |PO | ADDQ.L #0x8,A7 0002322e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023234 de c3 | | ADDA.W D3,A7 00023236 41 fa db 8c |A | LEA.L 0x20dc4,A0 0002323a 70 05 |p | MOVEQ.L #0x05,D0 0002323c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002323e 51 c8 ff fc |Q | DBF D0,0x2323c 00023242 59 4f |YO | SUBQ.L #0x4,A7 00023244 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023248 3f 01 |? | MOVE.W D1,-(A7) 0002324a 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 0002324e 4e 92 |N | JSR (A2) 00023250 50 4f |PO | ADDQ.L #0x8,A7 00023252 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023258 55 4f |UO | SUBQ.L #0x2,A7 0002325a 20 4f | O | MOVEA.L A7,A0 0002325c 43 fa db 66 |C f | LEA.L 0x20dc4,A1 00023260 70 1c |p | MOVEQ.L #0x1c,D0 00023262 10 d9 | | MOVE.B (A1)+,(A0)+ 00023264 51 c8 ff fc |Q | DBF D0,0x23262 00023268 59 4f |YO | SUBQ.L #0x4,A7 0002326a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002326e 3f 01 |? | MOVE.W D1,-(A7) 00023270 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 00023274 4e 92 |N | JSR (A2) 00023276 50 4f |PO | ADDQ.L #0x8,A7 00023278 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002327e de c4 | | ADDA.W D4,A7 00023280 41 fa db 7e |A ~ | LEA.L 0x20e00,A0 00023284 70 0e |p | MOVEQ.L #0x0e,D0 00023286 3f 20 |? | MOVE.W -(A0),-(A7) 00023288 51 c8 ff fc |Q | DBF D0,0x23286 0002328c 59 4f |YO | SUBQ.L #0x4,A7 0002328e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023292 3f 01 |? | MOVE.W D1,-(A7) 00023294 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 00023298 4e 92 |N | JSR (A2) 0002329a 50 4f |PO | ADDQ.L #0x8,A7 0002329c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000232a2 de c4 | | ADDA.W D4,A7 000232a4 41 fa db 7c |A | | LEA.L 0x20e22,A0 000232a8 70 10 |p | MOVEQ.L #0x10,D0 000232aa 3f 20 |? | MOVE.W -(A0),-(A7) 000232ac 51 c8 ff fc |Q | DBF D0,0x232aa 000232b0 59 4f |YO | SUBQ.L #0x4,A7 000232b2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000232b6 3f 01 |? | MOVE.W D1,-(A7) 000232b8 3f 04 |? | MOVE.W D4,-(A7) 000232ba 4e 92 |N | JSR (A2) 000232bc 50 4f |PO | ADDQ.L #0x8,A7 000232be 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000232c4 de fc 00 26 | & | ADDA.W #0x26,A7 000232c8 20 13 | | MOVE.L (A3),D0 000232ca 53 80 |S | SUBQ.L #0x1,D0 000232cc b0 86 | | CMP.L D6,D0 000232ce 62 00 00 d6 |b | BHI 0x233a6 000232d2 d0 40 | @ | ADD.W D0,D0 000232d4 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000232dc 00 0c | | .CONST 0xc ; [0x0] -> 0x232e8 000232de 00 38 | 8 | .CONST 0x38 ; [0x1] -> 0x23314 000232e0 00 60 | ` | .CONST 0x60 ; [0x2] -> 0x2333c 000232e2 00 8c | | .CONST 0x8c ; [0x3] -> 0x23368 000232e4 00 a4 | | .CONST 0xa4 ; [0x4] -> 0x23380 000232e6 00 b8 | | .CONST 0xb8 ; [0x5] -> 0x23394 000232e8 switch@0x232d4[0x0]: 000232e8 9e c3 | | SUBA.W D3,A7 000232ea 20 4f | O | MOVEA.L A7,A0 000232ec 43 fa db 34 |C 4 | LEA.L 0x20e22,A1 000232f0 70 1a |p | MOVEQ.L #0x1a,D0 000232f2 10 d9 | | MOVE.B (A1)+,(A0)+ 000232f4 51 c8 ff fc |Q | DBF D0,0x232f2 000232f8 59 4f |YO | SUBQ.L #0x4,A7 000232fa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000232fe 3f 01 |? | MOVE.W D1,-(A7) 00023300 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00023304 4e 92 |N | JSR (A2) 00023306 50 4f |PO | ADDQ.L #0x8,A7 00023308 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 0002330e de c5 | | ADDA.W D5,A7 00023310 60 00 00 be |` | BRA 0x233d0 00023314 switch@0x232d4[0x1]: 00023314 41 fa db 4a |A J | LEA.L 0x20e60,A0 00023318 70 10 |p | MOVEQ.L #0x10,D0 0002331a 3f 20 |? | MOVE.W -(A0),-(A7) 0002331c 51 c8 ff fc |Q | DBF D0,0x2331a 00023320 59 4f |YO | SUBQ.L #0x4,A7 00023322 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023326 3f 01 |? | MOVE.W D1,-(A7) 00023328 3f 04 |? | MOVE.W D4,-(A7) 0002332a 4e 92 |N | JSR (A2) 0002332c 50 4f |PO | ADDQ.L #0x8,A7 0002332e 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00023334 de fc 00 26 | & | ADDA.W #0x26,A7 00023338 60 00 00 96 |` | BRA 0x233d0 0002333c switch@0x232d4[0x2]: 0002333c 9e c5 | | SUBA.W D5,A7 0002333e 20 4f | O | MOVEA.L A7,A0 00023340 43 fa db 1e |C | LEA.L 0x20e60,A1 00023344 70 1e |p | MOVEQ.L #0x1e,D0 00023346 10 d9 | | MOVE.B (A1)+,(A0)+ 00023348 51 c8 ff fc |Q | DBF D0,0x23346 0002334c 59 4f |YO | SUBQ.L #0x4,A7 0002334e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023352 3f 01 |? | MOVE.W D1,-(A7) 00023354 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00023358 4e 92 |N | JSR (A2) 0002335a 50 4f |PO | ADDQ.L #0x8,A7 0002335c 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00023362 de fc 00 24 | $ | ADDA.W #0x24,A7 00023366 60 68 |`h | BRA 0x233d0 00023368 switch@0x232d4[0x3]: 00023368 41 fa db 30 |A 0 | LEA.L 0x20e9a,A0 0002336c 70 0c |p | MOVEQ.L #0x0c,D0 0002336e 3f 20 |? | MOVE.W -(A0),-(A7) 00023370 51 c8 ff fc |Q | DBF D0,0x2336e 00023374 59 4f |YO | SUBQ.L #0x4,A7 00023376 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002337a 3f 01 |? | MOVE.W D1,-(A7) 0002337c 3f 07 |? | MOVE.W D7,-(A7) 0002337e 60 42 |`B | BRA 0x233c2 00023380 switch@0x232d4[0x4]: 00023380 9e c3 | | SUBA.W D3,A7 00023382 20 4f | O | MOVEA.L A7,A0 00023384 43 fa db 14 |C | LEA.L 0x20e9a,A1 00023388 70 1a |p | MOVEQ.L #0x1a,D0 0002338a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002338c 51 c8 ff fc |Q | DBF D0,0x2338a 00023390 60 00 ff 66 |` f | BRA 0x232f8 00023394 switch@0x232d4[0x5]: 00023394 9e c5 | | SUBA.W D5,A7 00023396 20 4f | O | MOVEA.L A7,A0 00023398 43 fa db 1c |C | LEA.L 0x20eb6,A1 0002339c 70 1e |p | MOVEQ.L #0x1e,D0 0002339e 10 d9 | | MOVE.B (A1)+,(A0)+ 000233a0 51 c8 ff fc |Q | DBF D0,0x2339e 000233a4 60 a6 |` | BRA 0x2334c 000233a6 9e c7 | | SUBA.W D7,A7 000233a8 20 4f | O | MOVEA.L A7,A0 000233aa 43 fa db 2a |C * | LEA.L 0x20ed6,A1 000233ae 70 18 |p | MOVEQ.L #0x18,D0 000233b0 10 d9 | | MOVE.B (A1)+,(A0)+ 000233b2 51 c8 ff fc |Q | DBF D0,0x233b0 000233b6 59 4f |YO | SUBQ.L #0x4,A7 000233b8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000233bc 3f 01 |? | MOVE.W D1,-(A7) 000233be 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 000233c2 4e 92 |N | JSR (A2) 000233c4 50 4f |PO | ADDQ.L #0x8,A7 000233c6 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000233cc de fc 00 1e | | ADDA.W #0x1e,A7 000233d0 59 4f |YO | SUBQ.L #0x4,A7 000233d2 48 78 00 01 |Hx | PEA.L 0x1 000233d6 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 000233dc 58 4f |XO | ADDQ.L #0x4,A7 000233de 23 df 00 02 39 4a |# 9J | MOVE.L (A7)+,0x2394a 000233e4 20 79 00 02 39 4a | y 9J | MOVEA.L 0x2394a,A0 000233ea 4a 50 |JP | TST.W (A0) 000233ec 66 10 |f | BNE 0x233fe 000233ee 48 79 00 02 39 4a |Hy 9J | PEA.L 0x2394a 000233f4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000233fa 58 4f |XO | ADDQ.L #0x4,A7 000233fc 60 18 |` | BRA 0x23416 000233fe 2f 39 00 02 39 4a |/9 9J | MOVE.L 0x2394a,-(A7) 00023404 48 79 00 02 39 4e |Hy 9N | PEA.L 0x2394e 0002340a 48 53 |HS | PEA.L (A3) 0002340c 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 00023412 de fc 00 0c | | ADDA.W #0xc,A7 00023416 20 13 | | MOVE.L (A3),D0 00023418 53 80 |S | SUBQ.L #0x1,D0 0002341a b0 86 | | CMP.L D6,D0 0002341c 62 00 01 78 |b x | BHI 0x23596 00023420 d0 40 | @ | ADD.W D0,D0 00023422 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002342a 00 0c | | .CONST 0xc ; [0x0] -> 0x23436 0002342c 00 44 | D | .CONST 0x44 ; [0x1] -> 0x2346e 0002342e 00 4c | L | .CONST 0x4c ; [0x2] -> 0x23476 00023430 00 8c | | .CONST 0x8c ; [0x3] -> 0x234b6 00023432 00 d8 | | .CONST 0xd8 ; [0x4] -> 0x23502 00023434 01 02 | | .CONST 0x102 ; [0x5] -> 0x2352c 00023436 switch@0x23422[0x0]: 00023436 59 4f |YO | SUBQ.L #0x4,A7 00023438 1e ba da b6 | | MOVE.B 0x20ef0,(A7) 0002343c 1f 7a da b3 00 01 | z | MOVE.B 0x20ef1,(A7+0x1) 00023442 1f 7a da ae 00 02 | z | MOVE.B 0x20ef2,(A7+0x2) 00023448 59 4f |YO | SUBQ.L #0x4,A7 0002344a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002344e 3f 01 |? | MOVE.W D1,-(A7) 00023450 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00023454 4e 92 |N | JSR (A2) 00023456 50 4f |PO | ADDQ.L #0x8,A7 00023458 48 78 00 01 |Hx | PEA.L 0x1 0002345c 1f 01 | | MOVE.B D1,-(A7) 0002345e 48 79 00 02 39 4f |Hy 9O | PEA.L 0x2394f 00023464 4e 94 |N | JSR (A4) 00023466 de fc 00 12 | | ADDA.W #0x12,A7 0002346a 60 00 01 52 |` R | BRA 0x235be 0002346e switch@0x23422[0x1]: 0002346e 4e ba e6 b6 |N | JSR 0x21b26 00023472 60 00 01 4a |` J | BRA 0x235be 00023476 switch@0x23422[0x2]: 00023476 59 4f |YO | SUBQ.L #0x4,A7 00023478 1e ba da 7a | z | MOVE.B 0x20ef4,(A7) 0002347c 1f 7a da 77 00 01 | z w | MOVE.B 0x20ef5,(A7+0x1) 00023482 1f 7a da 72 00 02 | z r | MOVE.B 0x20ef6,(A7+0x2) 00023488 59 4f |YO | SUBQ.L #0x4,A7 0002348a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002348e 3f 01 |? | MOVE.W D1,-(A7) 00023490 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00023494 4e 92 |N | JSR (A2) 00023496 50 4f |PO | ADDQ.L #0x8,A7 00023498 48 78 00 01 |Hx | PEA.L 0x1 0002349c 1f 01 | | MOVE.B D1,-(A7) 0002349e 48 79 00 02 39 4f |Hy 9O | PEA.L 0x2394f 000234a4 4e 94 |N | JSR (A4) 000234a6 de fc 00 12 | | ADDA.W #0x12,A7 000234aa 13 c1 00 02 39 49 | 9I | MOVE.B D1,0x23949 000234b0 26 82 |& | MOVE.L D2,(A3) 000234b2 60 00 01 0a |` | BRA 0x235be 000234b6 switch@0x23422[0x3]: 000234b6 3f 3a da 44 |?: D | MOVE.W 0x20efc,-(A7) 000234ba 3f 3a da 3e |?: > | MOVE.W 0x20efa,-(A7) 000234be 3f 3a da 38 |?: 8 | MOVE.W 0x20ef8,-(A7) 000234c2 59 4f |YO | SUBQ.L #0x4,A7 000234c4 1e ba da 38 | 8 | MOVE.B 0x20efe,(A7) 000234c8 1f 7a da 35 00 01 | z 5 | MOVE.B 0x20eff,(A7+0x1) 000234ce 1f 7a da 30 00 02 | z 0 | MOVE.B 0x20f00,(A7+0x2) 000234d4 59 4f |YO | SUBQ.L #0x4,A7 000234d6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000234da 3f 01 |? | MOVE.W D1,-(A7) 000234dc 3f 02 |? | MOVE.W D2,-(A7) 000234de 4e 92 |N | JSR (A2) 000234e0 58 4f |XO | ADDQ.L #0x4,A7 000234e2 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000234e6 3f 01 |? | MOVE.W D1,-(A7) 000234e8 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 000234ec 4e 92 |N | JSR (A2) 000234ee 5c 4f |\O | ADDQ.L #0x6,A7 000234f0 1e 81 | | MOVE.B D1,(A7) 000234f2 48 79 00 02 39 4f |Hy 9O | PEA.L 0x2394f 000234f8 4e 94 |N | JSR (A4) 000234fa de fc 00 18 | | ADDA.W #0x18,A7 000234fe 60 00 00 be |` | BRA 0x235be 00023502 switch@0x23422[0x4]: 00023502 3f 3a da 02 |?: | MOVE.W 0x20f06,-(A7) 00023506 3f 3a d9 fc |?: | MOVE.W 0x20f04,-(A7) 0002350a 3f 3a d9 f6 |?: | MOVE.W 0x20f02,-(A7) 0002350e 2f 3a d9 f8 |/: | MOVE.L 0x20f08,-(A7) 00023512 59 4f |YO | SUBQ.L #0x4,A7 00023514 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023518 3f 01 |? | MOVE.W D1,-(A7) 0002351a 3f 02 |? | MOVE.W D2,-(A7) 0002351c 4e 92 |N | JSR (A2) 0002351e 58 4f |XO | ADDQ.L #0x4,A7 00023520 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023524 3f 01 |? | MOVE.W D1,-(A7) 00023526 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 0002352a 60 c0 |` | BRA 0x234ec 0002352c switch@0x23422[0x5]: 0002352c 9e fc 00 26 | & | SUBA.W #0x26,A7 00023530 20 4f | O | MOVEA.L A7,A0 00023532 43 fa d9 d8 |C | LEA.L 0x20f0c,A1 00023536 70 24 |p$ | MOVEQ.L #0x24,D0 00023538 10 d9 | | MOVE.B (A1)+,(A0)+ 0002353a 51 c8 ff fc |Q | DBF D0,0x23538 0002353e 59 4f |YO | SUBQ.L #0x4,A7 00023540 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023544 3f 01 |? | MOVE.W D1,-(A7) 00023546 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7) 0002354a 4e 92 |N | JSR (A2) 0002354c 50 4f |PO | ADDQ.L #0x8,A7 0002354e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023554 de fc 00 28 | ( | ADDA.W #0x28,A7 00023558 3e ba d9 dc |> | MOVE.W 0x20f36,(A7) 0002355c 3f 3a d9 d6 |?: | MOVE.W 0x20f34,-(A7) 00023560 3f 3a d9 d0 |?: | MOVE.W 0x20f32,-(A7) 00023564 2f 3a d9 d6 |/: | MOVE.L 0x20f3c,-(A7) 00023568 2f 3a d9 ce |/: | MOVE.L 0x20f38,-(A7) 0002356c 59 4f |YO | SUBQ.L #0x4,A7 0002356e 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00023572 3f 01 |? | MOVE.W D1,-(A7) 00023574 3f 02 |? | MOVE.W D2,-(A7) 00023576 4e 92 |N | JSR (A2) 00023578 58 4f |XO | ADDQ.L #0x4,A7 0002357a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002357e 3f 01 |? | MOVE.W D1,-(A7) 00023580 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00023584 4e 92 |N | JSR (A2) 00023586 5c 4f |\O | ADDQ.L #0x6,A7 00023588 1e 81 | | MOVE.B D1,(A7) 0002358a 48 79 00 02 39 4f |Hy 9O | PEA.L 0x2394f 00023590 4e 94 |N | JSR (A4) 00023592 de c3 | | ADDA.W D3,A7 00023594 60 28 |`( | BRA 0x235be 00023596 9e c3 | | SUBA.W D3,A7 00023598 20 4f | O | MOVEA.L A7,A0 0002359a 43 fa d9 a4 |C | LEA.L 0x20f40,A1 0002359e 70 1a |p | MOVEQ.L #0x1a,D0 000235a0 10 d9 | | MOVE.B (A1)+,(A0)+ 000235a2 51 c8 ff fc |Q | DBF D0,0x235a0 000235a6 59 4f |YO | SUBQ.L #0x4,A7 000235a8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000235ac 3f 01 |? | MOVE.W D1,-(A7) 000235ae 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000235b2 4e 92 |N | JSR (A2) 000235b4 50 4f |PO | ADDQ.L #0x8,A7 000235b6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000235bc de c5 | | ADDA.W D5,A7 000235be 60 00 fb ea |` | BRA 0x231aa 000235c2 4e b9 00 01 02 84 |N | .XXX[0x6] 000235c8 exp_READ_PAREG.FIU(Sw_1, &Sr_1): 000235c8 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000235ce 00 0e | | .CONST 0x000e ; Stack-delta 000235d0 0e 52 45 41 44 5f 50 41 | READ_PA| .TXT 14,'READ_PAREG.FIU' 000235df 00 | | .CONST 0x0 000235e0 03 | | .CONST 0x3 ; DIPROC address 000235e1 01 | | .CONST 0x1 ; Output Parameters 000235e2 01 | | .CONST 0x1 ; Input Parameters 000235e3 00 | | .CONST 0x0 ; In arg [1] 000235e4 00 | | .CONST 0x0 ; Out arg [1] 000235e5 00 | | .PAD 0x0 000235e6 exp_MF.FIU(): 000235e6 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000235ec 00 08 | | .CONST 0x0008 ; Stack-delta 000235ee 06 4d 46 2e 46 49 55 | MF.FIU | .TXT 6,'MF.FIU' 000235f5 00 | | .CONST 0x0 000235f6 03 | | .CONST 0x3 ; DIPROC address 000235f7 00 | | .CONST 0x0 ; Output Parameters 000235f8 00 | | .CONST 0x0 ; Input Parameters 000235f9 00 | | .PAD 0x0 000235fa exp_FREEZE_WORLD.FIU(): 000235fa 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00023600 00 08 | | .CONST 0x0008 ; Stack-delta 00023602 10 46 52 45 45 5a 45 5f | FREEZE_| .TXT 16,'FREEZE_WORLD.FIU' 00023613 00 | | .CONST 0x0 00023614 03 | | .CONST 0x3 ; DIPROC address 00023615 00 | | .CONST 0x0 ; Output Parameters 00023616 00 | | .CONST 0x0 ; Input Parameters 00023617 00 | | .PAD 0x0 00023618 exp_RESET.SEQ(): 00023618 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002361e 00 08 | | .CONST 0x0008 ; Stack-delta 00023620 09 52 45 53 45 54 2e 53 | RESET.S| .TXT 9,'RESET.SEQ' 0002362a 00 | | .CONST 0x0 0002362b 02 | | .CONST 0x2 ; DIPROC address 0002362c 00 | | .CONST 0x0 ; Output Parameters 0002362d 00 | | .CONST 0x0 ; Input Parameters 0002362e exp_READ_CUR_UADR.SEQ(&Sr_2): 0002362e 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00023634 00 0c | | .CONST 0x000c ; Stack-delta 00023636 11 52 45 41 44 5f 43 55 | READ_CU| .TXT 17,'READ_CUR_UADR.SEQ' 00023648 00 | | .CONST 0x0 00023649 02 | | .CONST 0x2 ; DIPROC address 0002364a 01 | | .CONST 0x1 ; Output Parameters 0002364b 00 | | .CONST 0x0 ; Input Parameters 0002364c 01 | | .CONST 0x1 ; Out arg [2] 0002364d 00 | | .PAD 0x0 0002364e exp_HALT.SEQ(&Fr): 0002364e 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00023654 00 0c | | .CONST 0x000c ; Stack-delta 00023656 08 48 41 4c 54 2e 53 45 | HALT.SE| .TXT 8,'HALT.SEQ' 0002365f 00 | | .CONST 0x0 00023660 02 | | .CONST 0x2 ; DIPROC address 00023661 01 | | .CONST 0x1 ; Output Parameters 00023662 00 | | .CONST 0x0 ; Input Parameters 00023663 08 | | .CONST 0x8 ; Out arg flag 00023664 exp_MF.TYP(): 00023664 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002366a 00 08 | | .CONST 0x0008 ; Stack-delta 0002366c 06 4d 46 2e 54 59 50 | MF.TYP | .TXT 6,'MF.TYP' 00023673 00 | | .CONST 0x0 00023674 06 | | .CONST 0x6 ; DIPROC address 00023675 00 | | .CONST 0x0 ; Output Parameters 00023676 00 | | .CONST 0x0 ; Input Parameters 00023677 00 | | .PAD 0x0 00023678 exp_MF.VAL(): 00023678 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002367e 00 08 | | .CONST 0x0008 ; Stack-delta 00023680 06 4d 46 2e 56 41 4c | MF.VAL | .TXT 6,'MF.VAL' 00023687 00 | | .CONST 0x0 00023688 07 | | .CONST 0x7 ; DIPROC address 00023689 00 | | .CONST 0x0 ; Output Parameters 0002368a 00 | | .CONST 0x0 ; Input Parameters 0002368b 00 | | .PAD 0x0 0002368c 4d 46 |MF | .TXT 'MF' 0002368e 2e 4d |.M | .TXT '.M' 00023690 45 4d |EM | .TXT 'EM' 00023692 4d 46 |MF | .TXT 'MF' 00023694 2e 4d |.M | .TXT '.M' 00023696 33 32 |32 | .TXT '32' 00023698 ; -------------------------------------------------------------------------------------- 00023698 ; OMSI PASCAL Function 00023698 ; <LVAR 0x008 1(r)> 00023698 ; <LVAR -0x006 @ 4(r)> 00023698 ; -------------------------------------------------------------------------------------- 00023698 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 0002369c bf d5 | | CMPA.L (A5),A7 0002369e 62 06 |b | BHI 0x236a6 000236a0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000236a4 4e 76 |Nv | TRAPV 000236a6 de fc 00 1a | | ADDA.W #0x1a,A7 000236aa 48 e7 00 80 |H | MOVEM.L A0,-(A7) 000236ae 41 ee ff fa |A | LEA.L (A6-0x6),A0 000236b2 55 4f |UO | SUBQ.L #0x2,A7 000236b4 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 000236ba 4a 1f |J | TST.B (A7)+ 000236bc 67 0e |g | BEQ 0x236cc 000236be 3f 3a ff d0 |?: | MOVE.W 0x23690,-(A7) 000236c2 3f 3a ff ca |?: | MOVE.W 0x2368e,-(A7) 000236c6 3f 3a ff c4 |?: | MOVE.W 0x2368c,-(A7) 000236ca 60 0c |` | BRA 0x236d8 000236cc 3f 3a ff c8 |?: | MOVE.W 0x23696,-(A7) 000236d0 3f 3a ff c2 |?: | MOVE.W 0x23694,-(A7) 000236d4 3f 3a ff bc |?: | MOVE.W 0x23692,-(A7) 000236d8 59 4f |YO | SUBQ.L #0x4,A7 000236da 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000236de 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000236e2 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 000236e6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000236ec 50 4f |PO | ADDQ.L #0x8,A7 000236ee 48 50 |HP | PEA.L (A0) 000236f0 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 000236f6 de fc 00 0e | | ADDA.W #0xe,A7 000236fa 42 27 |B' | CLR.B -(A7) 000236fc 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00023700 2f 10 |/ | MOVE.L (A0),-(A7) 00023702 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 00023708 50 4f |PO | ADDQ.L #0x8,A7 0002370a 48 50 |HP | PEA.L (A0) 0002370c 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 00023712 58 4f |XO | ADDQ.L #0x4,A7 00023714 4c df 01 00 |L | MOVEM.L (A7)+,A0 00023718 4e 5e |N^ | UNLK A6 0002371a 4e 75 |Nu | RTS 0002371c exp_MF.IOC(): 0002371c 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00023722 00 08 | | .CONST 0x0008 ; Stack-delta 00023724 06 4d 46 2e 49 4f 43 | MF.IOC | .TXT 6,'MF.IOC' 0002372b 00 | | .CONST 0x0 0002372c 04 | | .CONST 0x4 ; DIPROC address 0002372d 00 | | .CONST 0x0 ; Output Parameters 0002372e 00 | | .CONST 0x0 ; Input Parameters 0002372f 00 | | .PAD 0x0 00023730 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 0002373e ; -------------------------------------------------------------------------------------- 0002373e ; OMSI PASCAL Function 0002373e ; <LVAR 0x008 1(r)> 0002373e ; -------------------------------------------------------------------------------------- 0002373e PROG_FAIL: 0002373e 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00023742 bf d5 | | CMPA.L (A5),A7 00023744 62 06 |b | BHI 0x2374c 00023746 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002374a 4e 76 |Nv | TRAPV 0002374c de fc 00 2c | , | ADDA.W #0x2c,A7 00023750 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00023754 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00023758 70 06 |p | MOVEQ.L #0x06,D0 0002375a 3f 20 |? | MOVE.W -(A0),-(A7) 0002375c 51 c8 ff fc |Q | DBF D0,0x2375a 00023760 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00023764 51 4f |QO | SUBQ.L #0x8,A7 00023766 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002376a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002376e 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00023772 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023778 58 4f |XO | ADDQ.L #0x4,A7 0002377a 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 0002377e 48 80 |H | EXTB.W D0 00023780 48 c0 |H | EXTW.L D0 00023782 2f 00 |/ | MOVE.L D0,-(A7) 00023784 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002378a 58 4f |XO | ADDQ.L #0x4,A7 0002378c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023792 50 4f |PO | ADDQ.L #0x8,A7 00023794 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002379a de fc 00 14 | | ADDA.W #0x14,A7 0002379e 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000237a2 4e 5e |N^ | UNLK A6 000237a4 4e 75 |Nu | RTS 000237a6 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 000237b4 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 000237c2 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 000237d0 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 000237e2 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 000237fa ; -------------------------------------------------------------------------------------- 000237fa ; OMSI PASCAL Function 000237fa ; <LVAR 0x00e 1(r)> 000237fa ; <LVAR 0x00a 4(r)> 000237fa ; <LVAR 0x008 1(r)> 000237fa ; -------------------------------------------------------------------------------------- 000237fa EXP_FAIL: 000237fa 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 000237fe bf d5 | | CMPA.L (A5),A7 00023800 62 06 |b | BHI 0x23808 00023802 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023806 4e 76 |Nv | TRAPV 00023808 de fc 00 74 | t | ADDA.W #0x74,A7 0002380c 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00023810 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00023816 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 0002381c 72 01 |r | MOVEQ.L #0x01,D1 0002381e 74 0d |t | MOVEQ.L #0x0d,D2 00023820 76 1e |v | MOVEQ.L #0x1e,D3 00023822 78 12 |x | MOVEQ.L #0x12,D4 00023824 7a 0e |z | MOVEQ.L #0x0e,D5 00023826 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002382c 41 fa ff b4 |A | LEA.L 0x237e2,A0 00023830 70 08 |p | MOVEQ.L #0x08,D0 00023832 3f 20 |? | MOVE.W -(A0),-(A7) 00023834 51 c8 ff fc |Q | DBF D0,0x23832 00023838 59 4f |YO | SUBQ.L #0x4,A7 0002383a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002383e 3f 01 |? | MOVE.W D1,-(A7) 00023840 3f 04 |? | MOVE.W D4,-(A7) 00023842 4e 93 |N | JSR (A3) 00023844 50 4f |PO | ADDQ.L #0x8,A7 00023846 4e 94 |N | JSR (A4) 00023848 50 4f |PO | ADDQ.L #0x8,A7 0002384a 20 4f | O | MOVEA.L A7,A0 0002384c 43 fa ff 58 |C X | LEA.L 0x237a6,A1 00023850 70 0c |p | MOVEQ.L #0x0c,D0 00023852 10 d9 | | MOVE.B (A1)+,(A0)+ 00023854 51 c8 ff fc |Q | DBF D0,0x23852 00023858 51 4f |QO | SUBQ.L #0x8,A7 0002385a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002385e 3f 01 |? | MOVE.W D1,-(A7) 00023860 3f 02 |? | MOVE.W D2,-(A7) 00023862 4e 93 |N | JSR (A3) 00023864 54 4f |TO | ADDQ.L #0x2,A7 00023866 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 0002386a 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00023870 54 4f |TO | ADDQ.L #0x2,A7 00023872 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023878 50 4f |PO | ADDQ.L #0x8,A7 0002387a 4e 94 |N | JSR (A4) 0002387c de c4 | | ADDA.W D4,A7 0002387e 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00023882 b0 c1 | | CMPA.W D1,A0 00023884 67 48 |gH | BEQ 0x238ce 00023886 9e c5 | | SUBA.W D5,A7 00023888 22 4f |"O | MOVEA.L A7,A1 0002388a 45 fa ff 28 |E ( | LEA.L 0x237b4,A2 0002388e 70 0c |p | MOVEQ.L #0x0c,D0 00023890 12 da | | MOVE.B (A2)+,(A1)+ 00023892 51 c8 ff fc |Q | DBF D0,0x23890 00023896 9e c3 | | SUBA.W D3,A7 00023898 22 4f |"O | MOVEA.L A7,A1 0002389a 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 0002389e 70 1d |p | MOVEQ.L #0x1d,D0 000238a0 12 d8 | | MOVE.B (A0)+,(A1)+ 000238a2 51 c8 ff fc |Q | DBF D0,0x238a0 000238a6 51 4f |QO | SUBQ.L #0x8,A7 000238a8 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 000238ac 3f 01 |? | MOVE.W D1,-(A7) 000238ae 3f 02 |? | MOVE.W D2,-(A7) 000238b0 4e 93 |N | JSR (A3) 000238b2 58 4f |XO | ADDQ.L #0x4,A7 000238b4 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000238b8 3f 01 |? | MOVE.W D1,-(A7) 000238ba 3f 03 |? | MOVE.W D3,-(A7) 000238bc 4e 93 |N | JSR (A3) 000238be 50 4f |PO | ADDQ.L #0x8,A7 000238c0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000238c6 50 4f |PO | ADDQ.L #0x8,A7 000238c8 4e 94 |N | JSR (A4) 000238ca de fc 00 30 | 0 | ADDA.W #0x30,A7 000238ce 9e c5 | | SUBA.W D5,A7 000238d0 20 4f | O | MOVEA.L A7,A0 000238d2 43 fa fe ee |C | LEA.L 0x237c2,A1 000238d6 70 0c |p | MOVEQ.L #0x0c,D0 000238d8 10 d9 | | MOVE.B (A1)+,(A0)+ 000238da 51 c8 ff fc |Q | DBF D0,0x238d8 000238de 51 4f |QO | SUBQ.L #0x8,A7 000238e0 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000238e4 3f 01 |? | MOVE.W D1,-(A7) 000238e6 3f 02 |? | MOVE.W D2,-(A7) 000238e8 4e 93 |N | JSR (A3) 000238ea 54 4f |TO | ADDQ.L #0x2,A7 000238ec 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 000238f0 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 000238f6 54 4f |TO | ADDQ.L #0x2,A7 000238f8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000238fe 50 4f |PO | ADDQ.L #0x8,A7 00023900 4e 94 |N | JSR (A4) 00023902 5d 4f |]O | SUBQ.L #0x6,A7 00023904 20 4f | O | MOVEA.L A7,A0 00023906 43 fa fe da |C | LEA.L 0x237e2,A1 0002390a 70 16 |p | MOVEQ.L #0x16,D0 0002390c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002390e 51 c8 ff fc |Q | DBF D0,0x2390c 00023912 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00023916 59 4f |YO | SUBQ.L #0x4,A7 00023918 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002391c 3f 01 |? | MOVE.W D1,-(A7) 0002391e 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00023922 4e 93 |N | JSR (A3) 00023924 50 4f |PO | ADDQ.L #0x8,A7 00023926 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002392c de c3 | | ADDA.W D3,A7 0002392e 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00023932 4e 5e |N^ | UNLK A6 00023934 4e 75 |Nu | RTS