|
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: 18432 (0x4800)
Types: M200
Notes: @(#)STARTER,2.5,93/04/14,16:25:00, M200_PROGRAM
Names: »PROGRAM_0.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »PROGRAM_0.M200«
@ 21608
<LVAR 0x008 4(w)>
<LVAR -0x004 @>
<LVAR -0x00c @ 4(r)>
<POP 21608-21696 Body>
<POP 21608-2161e Prologue> Σ0 ↓
<POP 2161e-21626 RegCacheLoad> Σ0 ↓
<POP 21626-2163e Naked> Σ0 ↓
<Pointer.fp 0x21626 <LVAR -0x004 @>> Δ-4 {[@@-4]}
<Call 0x2162a 0x1059e> {[@@-4]}
ReadClusterNo(VAR a : Long)
<POP 21630-21632 StackAdj> Δ+4 {}
<Pointer.fp 0x21632 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x21634 0x102b8> {[@@-12]}
NewString(VAR a : String)
<POP 2163a-2163c StackAdj> Δ+4 {}
<MI 2163c MOVEQ.L #0x00,D7> {}
<POP 2163e-2168a Naked> Σ0 ↓ →0x2163e ←0x2163e
<POP 0x2163e LimitCheck 0x0 ≤ D7 ≤ 0x3> {}
<MI 21644 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<MI 21646 CLR.L D0> {[4, '(A6-0xc)']}
<MI 21648 MOVE.B (A6+D7.L-#0x4),D0> {[4, '(A6-0xc)']}
<MI 2164c ASR.W #0x4,D0> {[4, '(A6-0xc)']}
<POP 0x2164e LimitCheck 0x0 ≤ D0 ≤ 0xf> {[4, '(A6-0xc)']}
<MI 21654 LEA.L 0x201e0,A0> {[4, '(A6-0xc)']}
<MI 21658 MOVE.B (A0+D0.W),-(A7)> Δ-2 {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
<Call 0x2165c 0x102c0> {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
AppendChar(MOD b : String; a : char)
<POP 21662-21664 StackAdj> Δ+2 {[4, '(A6-0xc)']}
<MI 21664 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<MI 21666 CLR.L D0> {[4, '(A6-0xc)']}
<MI 21668 MOVE.B (A6+D7.L-#0x4),D0> {[4, '(A6-0xc)']}
<MI 2166c AND.W #0x0f,D0> {[4, '(A6-0xc)']}
<POP 0x2166e LimitCheck 0x0 ≤ D0 ≤ 0xf> {[4, '(A6-0xc)']}
<MI 21674 LEA.L 0x201e0,A0> {[4, '(A6-0xc)']}
<MI 21678 MOVE.B (A0+D0.W),-(A7)> Δ-2 {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
<Call 0x2167c 0x102c0> {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
AppendChar(MOD b : String; a : char)
<POP 21682-21684 StackAdj> Δ+6 {}
<MI 21684 ADDQ.L #0x1,D7> {}
<MI 21686 CMP.L #0x03,D7> {}
<MI 21688 BLE 0x2163e> {}
<POP 2168a-2168e Naked> Σ0 ↓
<MI 2168a MOVE.L (A6-0xc),(A6+0x8)> {}
<POP 2168e-21696 Epilogue> Σ0
@ 21696
<LVAR -0x004 @>
<POP 21696-21836 Body>
<POP 21696-216ac Prologue> Σ0 ↓
<POP 216ac-216bc RegCacheLoad> Σ0 ↓
<POP 216bc-216ca Naked> Σ0 ↓ →0x2182e
<MI 216bc MOVE.B 0x24493,D0> {}
<MI 216c2 LSL.B #0x7,D0> {}
<MI 216c4 LSR.B #0x7,D0> {}
<MI 216c6 BEQ 0x2182e> {}
<POP 216ca-216e2 Naked> Σ0 Δ-2 ↓ →0x21712
<POP 216ca-216cc StackAdj> Δ-2 {[-2-]}
<Const 0x216cc 0x180.4> Δ-4 {[-2-]|[##384]}
<Call 0x216d0 0x10592> {[-2-]|[##384]}
ReadConfig(where : Long) : Word
<POP 216d6-216d8 StackAdj> Δ+4 {[-2-]}
<MI 216d8 MOVE.B (A7+0x1),D0> {[-2-]}
<MI 216dc CMPI.B #0x58,D0> {[-2-]}
<MI 216e0 BNE 0x21712> {[-2-]}
<POP 216e2-21712 Naked> Σ-2 →0x2173c
<Blob 0x216e2 [2] @> Δ-2 {[-2-]|[«2""»]}
<Blob 0x216e6 [2] @> Δ-2 {[-2-]|[«2""»]|[«2""»]}
<Blob 0x216ea [2] @> Δ-2 {[-2-]|[«2""»]|[«2""»]|[«2""»]}
<POP 216ee-216f0 StackAdj> Δ-4 {[-2-]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x216f0 6> {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]}
<Const 0x216fe 0x1.4> Δ-4 {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]}
<Const 0x21700 0x1.2> Δ-2 {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]}
<Pointer.fp 0x21702 <LVAR -0x004 @>> Δ-4 {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]|[@@-4]}
<Call 0x21706 0x103b0> {[-2-]|[«2""»]|[«2""»]|[«2""»]|[$$FIXPAD]|[##1]|[#1]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 2170c-21710 StackAdj> Δ+20 {[-2-]}
<MI 21710 BRA 0x2173c> {[-2-]}
<POP 21712-2173c Naked> Σ-2 ↓ ←0x216ca
<Blob 0x21712 [4] @> Δ-4 {[-2-]|[«4""»]}
<Blob 0x21716 [4] @> Δ-4 {[-2-]|[«4""»]|[«4""»]}
<POP 2171a-2171c StackAdj> Δ-4 {[-2-]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2171c 8> {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]}
<Const 0x2172a 0x1.4> Δ-4 {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]}
<Const 0x2172c 0x1.2> Δ-2 {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]}
<Pointer.fp 0x2172e <LVAR -0x004 @>> Δ-4 {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]|[@@-4]}
<Call 0x21732 0x103b0> {[-2-]|[«4""»]|[«4""»]|[$$FIXMODEM]|[##1]|[#1]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 21738-2173c StackAdj> Δ+22 {[-2-]}
<POP 2173c-2174c Naked> Σ-2 Δ+2 ↓ →0x2182e ←0x216e2
<POP 2173c-2173e StackAdj> Δ-2 {[-4-]}
<Call 0x2173e 0x103f8> {[-4-]}
GetConsoleConfig() : Long
<MI 21744 MOVE.L (A7)+,D0> Δ+4 {}
<MI 21746 CMP.L #0x01,D0> {}
<MI 21748 BEQ 0x2182e> {}
<POP 2174c-21782 Naked> Σ0 ↓
<Blob 0x2174c [46] @> Δ-46 {[«46""»]}
<POP 21758-2175a StackAdj> Δ-8 {[«46""»]|[-8-]}
<Lit 0x2175a 46> {[«46""»]|[-4-]|[$$Starting remote diagnostics from Cluster id =>]}
<POP 21766-21768 StackAdj> Δ-4 {[«46""»]|[-4-]|[$$Starting remote diagnostics from Cluster id =>]|[-4-]}
<Call 0x21768 0x21608> {[«46""»]|[-4-]|[$$Starting remote diagnostics from Cluster id =>]|[-4-]}
<Call 0x2176c 0x102d0> {[«46""»]|[-4-]|[$$Starting remote diagnostics from Cluster id =>]|[-4-]}
StringCat2(a, b : String) : String
<POP 21772-21774 StackAdj> Δ+8 {[«46""»]|[-4-]}
<Call 0x21774 0x103e0> {[«46""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2177a-2177e StackAdj> Δ+50 {}
<MI 2177e MOVEQ.L #0x00,D7> {}
<MI 21780 MOVEQ.L #0x00,D6> {}
<POP 21782-217b6 Naked> Σ0 ↓ →0x217e8 ←0x217ec
<Blob 0x21782 [26] @> Δ-26 {[«26""»]}
<POP 21792-21794 StackAdj> Δ-6 {[«26""»]|[-6-]}
<Lit 0x21794 25> {[«26""»]|[-2-]|[$$Are you ready to continue]}
<POP 2179e-217a0 StackAdj> Δ-2 {[«26""»]|[-2-]|[$$Are you ready to continue]|[-2-]}
<POP 217a0-217a1 StackAdj> Δ+2 {[«26""»]|[-2-]|[$$Are you ready to continue]}
<Const 0x217a1 0x1.2> Δ-2 {[«26""»]|[-2-]|[$$Are you ready to continue]|[#1]}
<Call 0x217a2 0x103f0> {[«26""»]|[-2-]|[$$Are you ready to continue]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 217a8-217aa StackAdj> Δ+6 {[«26""»]|[-2-]}
<MI 217aa MOVE.B (A7)+,D0> Δ+2 {[«26""»]}
<MI 217ac EXTB.W D0> {[«26""»]}
<POP 0x217ae LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«26""»]}
<POP 217b0-217b2 StackAdj> Δ+26 {}
<MI 217b2 MOVE.B D0,D7> {}
<MI 217b4 BNE 0x217e8> {}
<POP 217b6-217e8 Naked> Σ0 ↓
<Blob 0x217b6 [26] @> Δ-26 {[«26""»]}
<POP 217c6-217c8 StackAdj> Δ-6 {[«26""»]|[-6-]}
<Lit 0x217c8 25> {[«26""»]|[-2-]|[$$Do you want do disconnect]}
<POP 217d2-217d4 StackAdj> Δ-2 {[«26""»]|[-2-]|[$$Do you want do disconnect]|[-2-]}
<POP 217d4-217d5 StackAdj> Δ+2 {[«26""»]|[-2-]|[$$Do you want do disconnect]}
<Const 0x217d5 0x1.2> Δ-2 {[«26""»]|[-2-]|[$$Do you want do disconnect]|[#1]}
<Call 0x217d6 0x103f0> {[«26""»]|[-2-]|[$$Do you want do disconnect]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 217dc-217de StackAdj> Δ+6 {[«26""»]|[-2-]}
<MI 217de MOVE.B (A7)+,D0> Δ+2 {[«26""»]}
<MI 217e0 EXTB.W D0> {[«26""»]}
<POP 0x217e2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«26""»]}
<POP 217e4-217e6 StackAdj> Δ+26 {}
<MI 217e6 MOVE.B D0,D6> {}
<POP 217e8-217ec Naked> Σ0 ↓ →0x217f0 ←0x21782
<MI 217e8 TST.B D7> {}
<MI 217ea BNE 0x217f0> {}
<POP 217ec-217f0 Naked> Σ0 ↓ →0x21782
<MI 217ec TST.B D6> {}
<MI 217ee BEQ 0x21782> {}
<POP 217f0-217f4 Naked> Σ0 ↓ →0x2182e ←0x217e8
<MI 217f0 TST.B D6> {}
<MI 217f2 BEQ 0x2182e> {}
<POP 217f4-2182e Naked> Σ0 ↓
<Call 0x217f4 0x10216> {}
KC0b
<Const 0x217fa 0x1.4> Δ-4 {[##1]}
<Call 0x217fc 0x103f4> {[##1]}
SetConsoleConfig(a : Long)
<POP 21802-21803 StackAdj> Δ+4 ↓ {}
<Blob 0x21803 [34] @> Δ-34 {[«34""»]}
<POP 21814-21816 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x21816 33> {[«34""»]|[$$Rational Service has disconnected]}
<Call 0x21824 0x103e0> {[«34""»]|[$$Rational Service has disconnected]}
WriteConsoleStringCrLf(str : String)
<POP 2182a-2182e StackAdj> Δ+38 {}
<POP 2182e-21836 Epilogue> Σ0 ←0x216bc ←0x2173c ←0x217f0
@ 21836
<LVAR -0x004 @ 1(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c @ 4(r)>
<POP 21836-21902 Body>
<POP 21836-2184c Prologue> Σ0 ↓
<POP 2184c-21852 RegCacheLoad> Σ0 ↓
<POP 21852-2186a Naked> Σ0 ↓ →0x2186c ←0x218f4
<Pointer.fp 0x21852 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x21854 0x10304> {[@@-12]}
GetRtc() : TimeStamp
<POP 2185a-2185c StackAdj> Δ+4 {}
<MI 2185c MOVEQ.L #0x00,D7> {}
<MI 2185e MOVE.W (A6-0xa),D0> {}
<MI 21862 LSL.W #0x7,D0> {}
<MI 21864 LSR.W #0x8,D0> {}
<MI 21866 LSR.W #0x4,D0> {}
<MI 21868 BEQ 0x2186c> {}
<POP 2186a-2186c Naked> Σ0 ↓
<MI 2186a ADDQ.B #0x1,D7> {}
<POP 2186c-21872 Naked> Σ0 ↓ →0x218f4 ←0x21852
<MI 2186c TST.B D7> {}
<MI 2186e BNE 0x218f4> {}
<POP 21872-218be Naked> Σ0 ↓ →0x218ca
<Blob 0x21872 [60] @> Δ-60 {[«60""»]}
<POP 21884-21886 StackAdj> Δ-8 {[«60""»]|[-8-]}
<Lit 0x21886 59> {[«60""»]|[-4-]|[$$Please enter current date and time as HH:MM:SS DD-MMM-YY :_]}
<Call 0x21898 0x103e4> {[«60""»]|[-4-]|[$$Please enter current date and time as HH:MM:SS DD-MMM-YY :_]}
AskConsoleString(prompt : String) : String
<POP 2189e-218a0 StackAdj> Δ+4 {[«60""»]|[-4-]}
<MI 218a0 MOVEA.L (A7)+,A4> Δ+4 {[«60""»]}
<POP 218a2-218a6 StackAdj> Δ+56 {[-4-]}
<MI 218a6 MOVE.L A4,(A7)> {[4, 'A4']}
<Pointer.fp 0x218a8 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, 'A4']|[@@-12]}
<Pointer.fp 0x218aa <LVAR -0x004 @ 1(r)>> Δ-4 {[4, 'A4']|[@@-12]|[@@-4]}
<Call 0x218ae 0x10310> {[4, 'A4']|[@@-12]|[@@-4]}
ConvertTimestamp(MOD input : String; b : L; VAR status : Bool)
<POP 218b4-218b8 StackAdj> Δ+12 {}
<MI 218b8 TST.B (A6-0x4)> {}
<MI 218bc BEQ 0x218ca> {}
<POP 218be-218ca Naked> Σ0 →0x218f4
<MI 218be MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Call 0x218c0 0x1030c> {[4, '(A6-0xc)']}
SetRtc(a: TimeStamp)
<POP 218c6-218c8 StackAdj> Δ+4 {}
<MI 218c8 BRA 0x218f4> {}
<POP 218ca-218f4 Naked> Σ0 ↓ ←0x21872
<Blob 0x218ca [44] @> Δ-44 {[«44""»]}
<POP 218d6-218d8 StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x218d8 44> {[«44""»]|[$$Illegal value or incorret format, try again.]}
<Call 0x218ea 0x103e0> {[«44""»]|[$$Illegal value or incorret format, try again.]}
WriteConsoleStringCrLf(str : String)
<POP 218f0-218f4 StackAdj> Δ+48 {}
<POP 218f4-218fa Naked> Σ0 ↓ →0x21852 ←0x2186c ←0x218be
<MI 218f4 TST.B D7> {}
<MI 218f6 BEQ 0x21852> {}
<POP 218fa-21902 Epilogue> Σ0
@ 21902
<LVAR -0x004 @ 1(r)>
<LVAR -0x006 @ 2(r)>
<LVAR -0x008 @ 1(r)>
<POP 21902-21b34 Body> Δ+64
<POP 21902-21918 Prologue> Σ0 ↓
<POP 21918-2192e RegCacheLoad> Σ0 ↓
<POP 2192e-2197c Naked> Σ0 ↓ →0x219b4
<Blob 0x2192e [40] @> Δ-40 {[«40""»]}
<POP 21940-21942 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x21942 39> {[«40""»]|[$$Initializing diagnostic file system ...]}
<Call 0x21950 0x103d8> {[«40""»]|[$$Initializing diagnostic file system ...]}
WriteConsoleString(str : String)
<POP 21956-21958 StackAdj> Δ+42 {[-2-]}
<POP 21958-21959 StackAdj> Δ+2 {}
<Const 0x21959 0x20.2> Δ-2 {[#32]}
<Call 0x2195c 0x103d0> {[#32]}
WriteConsoleChar(chr : char)
<POP 21962-21964 StackAdj> Δ+2 {}
<Pointer.fp 0x21964 <LVAR -0x008 @ 1(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x21968 <LVAR -0x006 @ 2(r)>> Δ-4 {[@@-8]|[@@-6]}
<Call 0x2196c 0x10200> {[@@-8]|[@@-6]}
KC00_GetBootDev(VAR a : Byte; VAR b : Word)
<POP 21972-21974 StackAdj> Δ+8 {}
<MI 21974 MOVE.B (A6-0x8),D0> {}
<MI 21978 CMP.B #0x02,D0> {}
<MI 2197a BEQ 0x219b4> {}
<POP 2197c-219b4 Naked> Σ0 ↓
<Call 0x2197c 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21982 [42] @> Δ-42 {[«42""»]}
<POP 21992-21994 StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x21994 41> {[«42""»]|[$$File system starter not booted from disk.]}
<Call 0x219a2 0x103e0> {[«42""»]|[$$File system starter not booted from disk.]}
WriteConsoleStringCrLf(str : String)
<POP 219a4-219a8 StackAdj> Δ+46 {}
<Const 0x219a8 0x10.4> Δ-4 {[##16]}
<Call 0x219ac 0x10220> {[##16]}
KC10_Panic(code : Long)
<POP 219b2-219b4 StackAdj> Δ+4 {}
<POP 219b4-219ce Naked> Σ0 ↓ →0x21b08 ←0x2192e
<MI 219b4 MOVE.W (A6-0x6),D0> {}
<POP 0x219b8 LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 219bc MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x219be <LVAR -0x004 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-4]}
<Call 0x219c0 0x10394> {[2, 'D0']|[@@-4]}
MountDisk(drive : Word ; VAR status : Byte)
<POP 219c6-219c8 StackAdj> Δ+6 {}
<MI 219c8 TST.B (A6-0x4)> {}
<MI 219ca BEQ 0x21b08> {}
<POP 219ce-219e2 Naked> Σ0 ↓ →0x21ab6
<Call 0x219ce 0x103dc> {}
WriteConsoleCrLf(void)
<MI 219d4 MOVE.B (A6-0x4),D0> {}
<MI 219d6 EXTB.W D0> {}
<MI 219d8 SUBI.W #0x000c,D0> {}
<MI 219dc CMP.W #0x02,D0> {}
<MI 219de BHI 0x21ab6> {}
<POP 219e2-219ec Naked> Σ0 →0x219f2 →0x21a3a →0x21a70
<MI 219e2 ADD.W D0,D0> {}
<MI 219e4 SWITCH D0.W> {}
<POP 219f2-21a20 Naked> Σ0 Δ-64 ↓ ←0x219e2
<Blob 0x219f2 [64] @> Δ-64 {[«64""»]}
<POP 219fe-21a00 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x21a00 64> {[«64""»]|[$$Hard disk errors in diagnostic filesystem labels on boot device.]}
<Call 0x21a0e 0x103e0> {[«64""»]|[$$Hard disk errors in diagnostic filesystem labels on boot device.]}
WriteConsoleStringCrLf(str : String)
<POP 21a10-21a11 StackAdj> Δ+68 ↓ {}
<Blob 0x21a11 [64] @> Δ-64 {[«64""»]}
<POP 21a20-21a3a Naked> Σ-64 Δ+64 →0x21afc ←0x21a3a
<POP 21a20-21a22 StackAdj> Δ-4 {[-68-]}
<Lit 0x21a22> {[-64-]|[$$…]}
<Pointer.sp 0x21a22 4> Δ-4
<Const 0x21a26 0x1.2> Δ-2
<Const 0x21a28 0x3f.2> Δ-2
<Call 0x21a2c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21a2e-21a30 StackAdj> Δ+8
<Call 0x21a30 0x103e0> {[-64-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 21a32-21a36 StackAdj> Δ+68 {}
<MI 21a36 BRA 0x21afc> {}
<POP 21a3a-21a70 Naked> Σ0 Δ-64 →0x21a20 ←0x219e2
<Blob 0x21a3a [54] @> Δ-54 {[«54""»]}
<POP 21a4c-21a4e StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x21a4e 53> {[«54""»]|[$$No diagnostic filesystem labels found on boot device.]}
<Call 0x21a5c 0x103e0> {[«54""»]|[$$No diagnostic filesystem labels found on boot device.]}
WriteConsoleStringCrLf(str : String)
<POP 21a5e-21a5f StackAdj> Δ+58 ↓ {}
<Blob 0x21a5f [64] @> Δ-64 {[«64""»]}
<MI 21a6e BRA 0x21a20> {[«64""»]}
<POP 21a70-21ab6 Naked> Σ0 →0x21afc ←0x219e2
<Blob 0x21a70 [52] @> Δ-52 {[«52""»]}
<POP 21a7c-21a7e StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x21a7e 52> {[«52""»]|[$$No diagnostic file system is installed on boot unit.]}
<Call 0x21a8c 0x103e0> {[«52""»]|[$$No diagnostic file system is installed on boot unit.]}
WriteConsoleStringCrLf(str : String)
<POP 21a8e-21a8f StackAdj> Δ+56 ↓ {}
<Blob 0x21a8f [62] @> Δ-62 {[«62""»]}
<POP 21a9e-21aa0 StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x21aa0 61> {[«62""»]|[$$This disk unit is not bootable. Re-boot from different unit.]}
<Call 0x21aae 0x103e0> {[«62""»]|[$$This disk unit is not bootable. Re-boot from different unit.]}
WriteConsoleStringCrLf(str : String)
<POP 21ab0-21ab4 StackAdj> Δ+66 {}
<MI 21ab4 BRA 0x21afc> {}
<POP 21ab6-21afc Naked> Σ0 ↓ ←0x219ce
<Blob 0x21ab6 [58] @> Δ-58 {[«58""»]}
<POP 21ac2-21ac4 StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x21ac4 58> {[«58""»]|[$$Unknown fault during diagnostic filesystem initialization.]}
<Call 0x21ad2 0x103e0> {[«58""»]|[$$Unknown fault during diagnostic filesystem initialization.]}
WriteConsoleStringCrLf(str : String)
<POP 21ad4-21ad5 StackAdj> Δ+62 ↓ {}
<Blob 0x21ad5 [34] @> Δ-34 {[«34""»]}
<POP 21ae6-21ae8 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x21ae8 33> {[«34""»]|[$$Contact Rational customer support]}
<Call 0x21af6 0x103e0> {[«34""»]|[$$Contact Rational customer support]}
WriteConsoleStringCrLf(str : String)
<POP 21af8-21afc StackAdj> Δ+38 {}
<POP 21afc-21b08 Naked> Σ0 ↓ ←0x21a20 ←0x21a70
<Const 0x21afc 0x11.4> Δ-4 {[##17]}
<Call 0x21b00 0x10220> {[##17]}
KC10_Panic(code : Long)
<POP 21b06-21b08 StackAdj> Δ+4 {}
<POP 21b08-21b2c Naked> Σ0 ↓ ←0x219b4
<Call 0x21b08 0x103a4> {}
Open_ERROR_LOG(void)
<Call 0x21b0e 0x105e6> {}
Set_fc04_to_01(void)
<Blob 0x21b14 [4] @> Δ-4 {[«4""»]}
<POP 21b18-21b1a StackAdj> Δ-4 {[«4""»]|[-4-]}
<Lit 0x21b1a 4> {[«4""»]|[$$[OK]]}
<Call 0x21b28 0x103e0> {[«4""»]|[$$[OK]]}
WriteConsoleStringCrLf(str : String)
<POP 21b2a-21b2c StackAdj> Δ+8 {}
<POP 21b2c-21b34 Epilogue> Σ0
@ 21b34
<LVAR -0x007 1(r)>
<LVAR -0x008 1(r)>
<LVAR -0x009 1(r)>
<LVAR -0x00a @ 1(r)>
<LVAR -0x00c @ 2(r)>
<LVAR -0x00e @ 2(r)>
<LVAR -0x410 2(w)>
<LVAR -0x412 @>
<LVAR -0x416 @ 4(r)>
<LVAR -0x418 @ 1(r)>
<LVAR -0x41c @ 4(rw)>
<POP 21b34-21d58 Body>
<POP 21b34-21b4a Prologue> Σ0 ↓
<POP 21b4a-21b5e RegCacheLoad> Σ0 ↓
<POP 21b5e-21ba8 Naked> Σ0 ↓ →0x21bbe
<MI 21b5e MOVEQ.L #0x04,D7> {}
<Blob 0x21b60 [4] @> Δ-4 {[«4""»]}
<Blob 0x21b64 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 21b68-21b6a StackAdj> Δ-8 {[«4""»]|[«4""»]|[-8-]}
<Lit 0x21b6a 8> {[«4""»]|[«4""»]|[-4-]|[$$IOP_DUMP]}
<MI 21b78 MOVE.L D7,(A7)> {[«4""»]|[«4""»]|[-4-]|[4, 'D7']}
<POP 21b72-21b78 StackAdj> Δ-8 {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x21b7a 0x102e4> {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<POP 21b80-21b82 StackAdj> Δ+4 {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-4-]}
<Call 0x21b82 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-4-]}
StringCat2(a, b : String) : String
<POP 21b88-21b8a StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 21b8a MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]}
<POP 21b8c-21b8e StackAdj> Δ+4 {[«4""»]}
<MI 21b8e MOVE.L A4,(A7)> {[4, 'A4']}
<MI 21b90 CLR.B -(A7)> Δ-2 {[4, 'A4']|[#0]}
<MI 21b92 CLR.B -(A7)> Δ-2 {[4, 'A4']|[#0]|[#0]}
<Const 0x21b94 0x0.4> Δ-4 {[4, 'A4']|[#0]|[#0]|[##0]}
<Pointer.fp 0x21b98 <LVAR -0x418 @ 1(r)>> Δ-4 {[4, 'A4']|[#0]|[#0]|[##0]|[@@-1048]}
<Pointer.fp 0x21b9a <LVAR -0x416 @ 4(r)>> Δ-4 {[4, 'A4']|[#0]|[#0]|[##0]|[@@-1048]|[@@-1046]}
<Call 0x21b9c 0x10380> {[4, 'A4']|[#0]|[#0]|[##0]|[@@-1048]|[@@-1046]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 21ba2-21ba4 StackAdj> Δ+20 {}
<MI 21ba4 TST.B (A6-0x418)> {}
<MI 21ba6 BNE 0x21bbe> {}
<POP 21ba8-21bbe Naked> Σ0 ↓
<Const 0x21ba8 0x2.2> Δ-2 {[#2]}
<Const 0x21bac 0x1.2> Δ-2 {[#2]|[#1]}
<Const 0x21bae 0x1.4> Δ-4 {[#2]|[#1]|[##1]}
<Pointer.fp 0x21bb2 <LVAR -0x418 @ 1(r)>> Δ-4 {[#2]|[#1]|[##1]|[@@-1048]}
<Pointer.fp 0x21bb4 <LVAR -0x416 @ 4(r)>> Δ-4 {[#2]|[#1]|[##1]|[@@-1048]|[@@-1046]}
<Call 0x21bb6 0x1038c> {[#2]|[#1]|[##1]|[@@-1048]|[@@-1046]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 21bbc-21bbe StackAdj> Δ+16 {}
<POP 21bbe-21bc0 Naked> Σ0 ↓ ←0x21b5e
<MI 21bbe MOVE.L A4,(A6-0x41c)> {}
<POP 21bc0-21c0c Naked> Σ0 ↓ →0x21ca8 ←0x21ca8
<MI 21bc0 SUBQ.L #0x1,D7> {}
<Blob 0x21bc2 [4] @> Δ-4 {[«4""»]}
<Blob 0x21bc6 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 21bca-21bcc StackAdj> Δ-8 {[«4""»]|[«4""»]|[-8-]}
<Lit 0x21bcc 8> {[«4""»]|[«4""»]|[-4-]|[$$IOP_DUMP]}
<MI 21bda MOVE.L D7,(A7)> {[«4""»]|[«4""»]|[-4-]|[4, 'D7']}
<POP 21bd4-21bda StackAdj> Δ-8 {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x21bdc 0x102e4> {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<POP 21be2-21be4 StackAdj> Δ+4 {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-4-]}
<Call 0x21be4 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, 'D7']|[-4-]}
StringCat2(a, b : String) : String
<POP 21bea-21bec StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 21bec MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]}
<POP 21bee-21bf0 StackAdj> Δ+4 {[«4""»]}
<MI 21bf0 MOVE.L A4,(A7)> {[4, 'A4']}
<MI 21bf2 CLR.B -(A7)> Δ-2 {[4, 'A4']|[#0]}
<MI 21bf4 CLR.B -(A7)> Δ-2 {[4, 'A4']|[#0]|[#0]}
<Const 0x21bf6 0x0.4> Δ-4 {[4, 'A4']|[#0]|[#0]|[##0]}
<Pointer.fp 0x21bfa <LVAR -0x418 @ 1(r)>> Δ-4 {[4, 'A4']|[#0]|[#0]|[##0]|[@@-1048]}
<Pointer.fp 0x21bfc <LVAR -0x416 @ 4(r)>> Δ-4 {[4, 'A4']|[#0]|[#0]|[##0]|[@@-1048]|[@@-1046]}
<Call 0x21bfe 0x10380> {[4, 'A4']|[#0]|[#0]|[##0]|[@@-1048]|[@@-1046]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 21c04-21c06 StackAdj> Δ+20 {}
<MI 21c06 TST.B (A6-0x418)> {}
<MI 21c08 BNE 0x21ca8> {}
<POP 21c0c-21c12 Naked> Σ0 ↓ →0x21c96
<MI 21c0c TST.L D7> {}
<MI 21c0e BNE 0x21c96> {}
<POP 21c12-21c96 Naked> Σ0 ↓
<MI 21c12 MOVE.L (A6-0x416),-(A7)> Δ-4 {[4, '(A6-0x416)']}
<MI 21c14 CLR.W -(A7)> Δ-2 {[4, '(A6-0x416)']|[#0]}
<MI 21c16 CLR.W -(A7)> Δ-2 {[4, '(A6-0x416)']|[#0]|[#0]}
<Const 0x21c18 0x200.2> Δ-2 {[4, '(A6-0x416)']|[#0]|[#0]|[#512]}
<Const 0x21c1c 0x1.2> Δ-2 {[4, '(A6-0x416)']|[#0]|[#0]|[#512]|[#1]}
<MI 21c1e LEA.L (A6-0x412),A0> {[4, '(A6-0x416)']|[#0]|[#0]|[#512]|[#1]}
<MI 21c22 MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0x416)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']}
<Pointer.fp 0x21c24 <LVAR -0x418 @ 1(r)>> Δ-4 {[4, '(A6-0x416)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1048]}
<Call 0x21c26 0x10384> {[4, '(A6-0x416)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1048]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 21c2c-21c30 StackAdj> Δ+18 {[-2-]}
<Call 0x21c30 0x105ec> {[-2-]}
Get_fc05() : Byte
<MI 21c36 MOVE.B (A7)+,D0> Δ+2 {}
<MI 21c38 EXTB.W D0> {}
<MI 21c3a EXTW.L D0> {}
<POP 0x21c3c LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 21c46 MOVE.W D0,(A6-0x410)> {}
<MI 21c4a MOVE.L (A6-0x416),-(A7)> Δ-4 {[4, '(A6-0x416)']}
<MI 21c4c CLR.W -(A7)> Δ-2 {[4, '(A6-0x416)']|[#0]}
<MI 21c4e CLR.W -(A7)> Δ-2 {[4, '(A6-0x416)']|[#0]|[#0]}
<Const 0x21c50 0x200.2> Δ-2 {[4, '(A6-0x416)']|[#0]|[#0]|[#512]}
<Const 0x21c54 0x1.2> Δ-2 {[4, '(A6-0x416)']|[#0]|[#0]|[#512]|[#1]}
<MI 21c56 LEA.L (A6-0x412),A0> {[4, '(A6-0x416)']|[#0]|[#0]|[#512]|[#1]}
<MI 21c5a MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0x416)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']}
<Pointer.fp 0x21c5c <LVAR -0x418 @ 1(r)>> Δ-4 {[4, '(A6-0x416)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1048]}
<Call 0x21c5e 0x10388> {[4, '(A6-0x416)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1048]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 21c64-21c66 StackAdj> Δ+20 {}
<Pointer.fp 0x21c66 <LVAR -0x00a @ 1(r)>> Δ-4 {[@@-10]}
<Call 0x21c6a 0x10304> {[@@-10]}
GetRtc() : TimeStamp
<POP 21c70-21c72 StackAdj> Δ+4 {}
<MI 21c72 MOVEA.L (A6-0x416),A0> {}
<MI 21c74 MOVE.B (A6-0xa),(A0+0x3a)> {}
<MI 21c7a MOVE.B (A6-0x9),(A0+0x3b)> {}
<MI 21c80 MOVE.B (A6-0x8),(A0+0x3c)> {}
<MI 21c86 MOVE.B (A6-0x7),(A0+0x3d)> {}
<MI 21c8c ANDI.B #0xfe,(A0+0x3f)> {}
<MI 21c92 MOVE.B #0x01,(A0+0x4c)> {}
<POP 21c96-21ca8 Naked> Σ0 ↓ ←0x21c0c
<Const 0x21c96 0x1.2> Δ-2 {[#1]}
<Const 0x21c98 0x1.2> Δ-2 {[#1]|[#1]}
<MI 21c9a MOVE.L (A6-0x41c),-(A7)> Δ-4 {[#1]|[#1]|[4, '(A6-0x41c)']}
<Pointer.fp 0x21c9c <LVAR -0x418 @ 1(r)>> Δ-4 {[#1]|[#1]|[4, '(A6-0x41c)']|[@@-1048]}
<Pointer.fp 0x21c9e <LVAR -0x416 @ 4(r)>> Δ-4 {[#1]|[#1]|[4, '(A6-0x41c)']|[@@-1048]|[@@-1046]}
<Call 0x21ca0 0x1038c> {[#1]|[#1]|[4, '(A6-0x41c)']|[@@-1048]|[@@-1046]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 21ca6-21ca8 StackAdj> Δ+16 {}
<POP 21ca8-21cba Naked> Σ0 ↓ →0x21bc0 ←0x21bc0
<Pointer.fp 0x21ca8 <LVAR -0x41c @ 4(rw)>> Δ-4 {[@@-1052]}
<Call 0x21caa 0x102bc> {[@@-1052]}
FreeString(VAR a : String)
<POP 21cb0-21cb2 StackAdj> Δ+4 {}
<MI 21cb2 MOVE.L A4,(A6-0x41c)> {}
<MI 21cb4 TST.L D7> {}
<MI 21cb6 BNE 0x21bc0> {}
<POP 21cba-21cd8 Naked> Σ0 ↓ →0x21d1c
<MI 21cba MOVE.L #0xfffffc00,D6> {}
<MI 21cc0 MOVE.L (A6-0x41c),-(A7)> Δ-4 {[4, '(A6-0x41c)']}
<Const 0x21cc2 0x1.2> Δ-2 {[4, '(A6-0x41c)']|[#1]}
<Const 0x21cc4 0x1.2> Δ-2 {[4, '(A6-0x41c)']|[#1]|[#1]}
<MI 21cc6 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x41c)']|[#1]|[#1]|[4, 'D6']}
<Pointer.fp 0x21cc8 <LVAR -0x418 @ 1(r)>> Δ-4 {[4, '(A6-0x41c)']|[#1]|[#1]|[4, 'D6']|[@@-1048]}
<Pointer.fp 0x21cca <LVAR -0x416 @ 4(r)>> Δ-4 {[4, '(A6-0x41c)']|[#1]|[#1]|[4, 'D6']|[@@-1048]|[@@-1046]}
<Call 0x21ccc 0x10380> {[4, '(A6-0x41c)']|[#1]|[#1]|[4, 'D6']|[@@-1048]|[@@-1046]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 21cd2-21cd4 StackAdj> Δ+20 {}
<MI 21cd4 TST.B (A6-0x418)> {}
<MI 21cd6 BNE 0x21d1c> {}
<POP 21cd8-21d1c Naked> Σ0 →0x21d46
<MI 21cd8 MOVEA.L (A6-0x416),A0> {}
<MI 21cda MOVE.W (A0+0x24),-(A7)> Δ-2 {[2, '(A0+0x24)']}
<Pointer.fp 0x21cde <LVAR -0x00e @ 2(r)>> Δ-4 {[2, '(A0+0x24)']|[@@-14]}
<Pointer.fp 0x21ce2 <LVAR -0x00c @ 2(r)>> Δ-4 {[2, '(A0+0x24)']|[@@-14]|[@@-12]}
<Call 0x21ce6 0x10368> {[2, '(A0+0x24)']|[@@-14]|[@@-12]}
Lba2Chs(lba : W; VAR cyl : W ; VAR hd_sec : W)
<POP 21cec-21cee StackAdj> Δ+8 {[2, '(A0+0x24)']}
<MI 21cee MOVE.W (A6-0xe),(A7)> {[2, '(A6-0xe)']}
<MI 21cf2 MOVE.W (A6-0xc),-(A7)> Δ-2 {[2, '(A6-0xe)']|[2, '(A6-0xc)']}
<Call 0x21cf6 0x10202> {[2, '(A6-0xe)']|[2, '(A6-0xc)']}
KC01_DumpOn
<POP 21cfc-21cfe StackAdj> Δ+4 {}
<MI 21cfe OR.B #0x01,(A0+0x3f)> {}
<MI 21d02 MOVE.B #0x01,(A0+0x4c)> {}
<MI 21d06 CLR.B -(A7)> Δ-2 {[#0]}
<MI 21d08 CLR.B -(A7)> Δ-2 {[#0]|[#0]}
<Const 0x21d0a 0x1.4> Δ-4 {[#0]|[#0]|[##1]}
<Pointer.fp 0x21d0e <LVAR -0x418 @ 1(r)>> Δ-4 {[#0]|[#0]|[##1]|[@@-1048]}
<Pointer.fp 0x21d10 <LVAR -0x416 @ 4(r)>> Δ-4 {[#0]|[#0]|[##1]|[@@-1048]|[@@-1046]}
<Call 0x21d12 0x1038c> {[#0]|[#0]|[##1]|[@@-1048]|[@@-1046]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 21d18-21d1a StackAdj> Δ+16 {}
<MI 21d1a BRA 0x21d46> {}
<POP 21d1c-21d46 Naked> Σ0 ↓ ←0x21cba
<Blob 0x21d1c [54] @> Δ-54 {[«54""»]}
<POP 21d28-21d2a StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x21d2a 54> {[«54""»]|[$$*** could not create IOP_DUMP0 file (see reason above)]}
<Call 0x21d3c 0x103e0> {[«54""»]|[$$*** could not create IOP_DUMP0 file (see reason above)]}
WriteConsoleStringCrLf(str : String)
<POP 21d42-21d46 StackAdj> Δ+58 {}
<POP 21d46-21d50 Naked> Σ0 ↓ ←0x21cd8
<Pointer.fp 0x21d46 <LVAR -0x41c @ 4(rw)>> Δ-4 {[@@-1052]}
<Call 0x21d48 0x102bc> {[@@-1052]}
FreeString(VAR a : String)
<POP 21d4e-21d50 StackAdj> Δ+4 {}
<POP 21d50-21d58 Epilogue> Σ0
@ 21d58
<LVAR 0x00a 1(w)>
<LVAR 0x008 1(r)>
<POP 21d58-21d86 Body>
<POP 21d58-21d6e Prologue> Σ0 ↓
<POP 21d6e-21d7e Naked> Σ0 ↓
<MI 21d6e MOVE.B (A6+0x8),D0> {}
<MI 21d72 EXTB.W D0> {}
<MI 21d74 LEA.L 0x21322,A0> {}
<MI 21d78 MOVE.B (A0+D0.W),(A6+0xa)> {}
<POP 21d7e-21d86 Epilogue> Σ0
@ 21d86
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 2(r)>
<LVAR -0x006 @ 1(r)>
<POP 21d86-21e90 Body>
<POP 21d86-21d9c Prologue> Σ0 ↓
<POP 21d9c-21db2 RegCacheLoad> Σ0 ↓
<POP 21db2-21dc4 Naked> Σ0 ↓ →0x21dd2
<Call 0x21db2 0x103dc> {}
WriteConsoleCrLf(void)
<MI 21db8 MOVE.B 0x24493,D0> {}
<MI 21dbe LSL.B #0x3,D0> {}
<MI 21dc0 LSR.B #0x7,D0> {}
<MI 21dc2 BEQ 0x21dd2> {}
<POP 21dc4-21dca Naked> Σ0 ↓ →0x21dd2
<MI 21dc4 TST.B (A6+0x8)> {}
<MI 21dc8 BEQ 0x21dd2> {}
<POP 21dca-21dd2 Naked> Σ0 ↓ →0x21e20
<MI 21dca TST.B 0x24495> {}
<MI 21dd0 BEQ 0x21e20> {}
<POP 21dd2-21e20 Naked> Σ0 →0x21e6c ←0x21db2 ←0x21dc4
<Blob 0x21dd2 [10] @> Δ-10 {[«10""»]}
<Blob 0x21de2 [12] @> Δ-12 {[«10""»]|[«12""»]}
<POP 21df4-21df6 StackAdj> Δ-4 {[«10""»]|[«12""»]|[-4-]}
<Lit 0x21df6 9> {[«10""»]|[«12""»]|[$$CRASHSAVE]}
<POP 21e00-21e02 StackAdj> Δ-4 {[«10""»]|[«12""»]|[$$CRASHSAVE]|[-4-]}
<Lit 0x21e02 11> {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]}
<POP 21e0e-21e10 StackAdj> Δ-2 {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]|[-2-]}
<POP 21e10-21e11 StackAdj> Δ+2 {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]}
<Const 0x21e11 0x1.2> Δ-2 {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]|[#1]}
<Pointer.fp 0x21e12 <LVAR -0x006 @ 1(r)>> Δ-4 {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]|[#1]|[@@-6]}
<Call 0x21e14 0x103b0> {[«10""»]|[«12""»]|[$$CRASHSAVE]|[$$NO_R1K_DUMP]|[#1]|[@@-6]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 21e1a-21e1e StackAdj> Δ+36 {}
<MI 21e1e BRA 0x21e6c> {}
<POP 21e20-21e6a Naked> Σ0 ↓ →0x21e6c ←0x21dca
<Blob 0x21e20 [10] @> Δ-10 {[«10""»]}
<Blob 0x21e30 [10] @> Δ-10 {[«10""»]|[«10""»]}
<POP 21e3c-21e3e StackAdj> Δ-4 {[«10""»]|[«10""»]|[-4-]}
<Lit 0x21e3e 9> {[«10""»]|[«10""»]|[$$CRASHSAVE]}
<POP 21e48-21e4a StackAdj> Δ-4 {[«10""»]|[«10""»]|[$$CRASHSAVE]|[-4-]}
<Lit 0x21e4a 10> {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]}
<POP 21e54-21e56 StackAdj> Δ-2 {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]|[-2-]}
<POP 21e56-21e57 StackAdj> Δ+2 {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]}
<Const 0x21e57 0x1.2> Δ-2 {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]|[#1]}
<Pointer.fp 0x21e58 <LVAR -0x006 @ 1(r)>> Δ-4 {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]|[#1]|[@@-6]}
<Call 0x21e5a 0x103b0> {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_R1000]|[#1]|[@@-6]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 21e60-21e64 StackAdj> Δ+34 {}
<MI 21e64 CLR.B 0x2449c> {}
<MI 21e66 TST.B (A6-0x6)> {}
<MI 21e68 BNE 0x21e6c> {}
<POP 21e6a-21e6c Naked> Σ0 ↓
<MI 21e6a ADDQ.B #0x1,0x2449c> {}
<POP 21e6c-21e88 Naked> Σ0 ↓ ←0x21dd2 ←0x21e20
<MI 21e6c CLR.W (A6-0x4)> {}
<MI 21e70 LEA.L (A6-0x4),A0> {}
<MI 21e74 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 21e76 ADDQ.L #0x1,(A7)> {[-4-]}
<Const 0x21e78 0xfc10.4> Δ-4 {[-4-]|[##64528]}
<Const 0x21e7e 0x1.2> Δ-2 {[-4-]|[##64528]|[#1]}
<Call 0x21e80 0x10238> {[-4-]|[##64528]|[#1]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 21e86-21e88 StackAdj> Δ+10 {}
<POP 21e88-21e90 Epilogue> Σ0
@ 21e90
<LVAR -0x004 @ 1(r)>
<POP 21e90-21fa0 Body>
<POP 21e90-21ea6 Prologue> Σ0 ↓
<POP 21ea6-21eb6 RegCacheLoad> Σ0 ↓
<POP 21eb6-21ebe Naked> Σ0 ↓ →0x21eee
<MI 21eb6 TST.B 0x2449c> {}
<MI 21ebc BNE 0x21eee> {}
<POP 21ebe-21eee Naked> Σ0 →0x21f8e
<Blob 0x21ebe [64] @> Δ-64 {[«64""»]}
<POP 21ed0-21ed2 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x21ed2 63> {[«64""»]|[$$>>> Can't make a CRASHDUMP because a full CRASHSAVE wasn't made]}
<Call 0x21ee0 0x103e0> {[«64""»]|[$$>>> Can't make a CRASHDUMP because a full CRASHSAVE wasn't made]}
WriteConsoleStringCrLf(str : String)
<POP 21ee6-21eea StackAdj> Δ+68 {}
<MI 21eea BRA 0x21f8e> {}
<POP 21eee-21ef6 Naked> Σ0 ↓ →0x21f1c ←0x21eb6
<MI 21eee TST.B 0x2449d> {}
<MI 21ef4 BEQ 0x21f1c> {}
<POP 21ef6-21f1c Naked> Σ0 →0x21f8e
<Blob 0x21ef6 [66] @> Δ-66 {[«66""»]}
<POP 21f02-21f04 StackAdj> Δ-4 {[«66""»]|[-4-]}
<Lit 0x21f04 66> {[«66""»]|[$$>>> Can't make a CRASHDUMP because the uDIAG or FRU tests were run]}
<Call 0x21f10 0x103e0> {[«66""»]|[$$>>> Can't make a CRASHDUMP because the uDIAG or FRU tests were run]}
WriteConsoleStringCrLf(str : String)
<POP 21f16-21f1a StackAdj> Δ+70 {}
<MI 21f1a BRA 0x21f8e> {}
<POP 21f1c-21f8c Naked> Σ0 ↓ →0x21f8e ←0x21eee
<Blob 0x21f1c [66] @> Δ-66 {[«66""»]}
<POP 21f2c-21f2e StackAdj> Δ-6 {[«66""»]|[-6-]}
<Lit 0x21f2e 65> {[«66""»]|[-2-]|[$$Should the R1000 boot automatically after the crash dump finishes]}
<POP 21f3a-21f3c StackAdj> Δ-2 {[«66""»]|[-2-]|[$$Should the R1000 boot automatically after the crash dump finishes]|[-2-]}
<POP 21f3c-21f3d StackAdj> Δ+2 {[«66""»]|[-2-]|[$$Should the R1000 boot automatically after the crash dump finishes]}
<Const 0x21f3d 0x1.2> Δ-2 {[«66""»]|[-2-]|[$$Should the R1000 boot automatically after the crash dump finishes]|[#1]}
<Call 0x21f3e 0x103f0> {[«66""»]|[-2-]|[$$Should the R1000 boot automatically after the crash dump finishes]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 21f44-21f46 StackAdj> Δ+6 {[«66""»]|[-2-]}
<MI 21f46 MOVE.B (A7)+,D0> Δ+2 {[«66""»]}
<MI 21f48 EXTB.W D0> {[«66""»]}
<POP 0x21f4a LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«66""»]}
<POP 21f4c-21f4e StackAdj> Δ+66 {}
<MI 21f4e MOVE.B D0,0x24496> {}
<Blob 0x21f50 [10] @> Δ-10 {[«10""»]}
<POP 21f62-21f64 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x21f64 9> {[«10""»]|[$$CRASHDUMP]}
<Const 0x21f72 0x1.4> Δ-4 {[«10""»]|[$$CRASHDUMP]|[##1]}
<Const 0x21f76 0x1.2> Δ-2 {[«10""»]|[$$CRASHDUMP]|[##1]|[#1]}
<Pointer.fp 0x21f78 <LVAR -0x004 @ 1(r)>> Δ-4 {[«10""»]|[$$CRASHDUMP]|[##1]|[#1]|[@@-4]}
<Call 0x21f7c 0x103b0> {[«10""»]|[$$CRASHDUMP]|[##1]|[#1]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 21f82-21f86 StackAdj> Δ+24 {}
<MI 21f86 TST.B (A6-0x4)> {}
<MI 21f8a BEQ 0x21f8e> {}
<POP 21f8c-21f8e Naked> Σ0 ↓
<MI 21f8c CLR.B 0x24496> {}
<POP 21f8e-21f98 Naked> Σ0 ↓ ←0x21ebe ←0x21ef6 ←0x21f1c
<MI 21f8e MOVE.L #0x6,0x24498> {}
<POP 21f98-21fa0 Epilogue> Σ0
@ 21fa0
<LVAR -0x004 @>
<POP 21fa0-220e4 Body>
<POP 21fa0-21fb6 Prologue> Σ0 ↓
<POP 21fb6-21fc2 RegCacheLoad> Σ0 ↓
<POP 21fc2-21fd0 Naked> Σ0 ↓ →0x2205a
<POP 21fc2-21fc4 StackAdj> Δ-2 {[-2-]}
<Call 0x21fc4 0x105ce> {[-2-]}
ReadKeySwitch() : Bool
<MI 21fca TST.B (A7)+> Δ+2 {}
<MI 21fcc BNE 0x2205a> {}
<POP 21fd0-21fdc Naked> Σ0 ↓ →0x2205a
<MI 21fd0 MOVE.B 0x24493,D0> {}
<MI 21fd6 LSL.B #0x3,D0> {}
<MI 21fd8 LSR.B #0x7,D0> {}
<MI 21fda BEQ 0x2205a> {}
<POP 21fdc-2205a Naked> Σ0 →0x22086
<Call 0x21fdc 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21fe2 [40] @> Δ-40 {[«40""»]}
<POP 21fee-21ff0 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x21ff0 40> {[«40""»]|[$$Running phase 1 & 2 FRU diagnostic tests]}
<Call 0x21ffc 0x103e0> {[«40""»]|[$$Running phase 1 & 2 FRU diagnostic tests]}
WriteConsoleStringCrLf(str : String)
<POP 22002-22004 StackAdj> Δ+40 {[-4-]}
<POP 22004-22005 StackAdj> Δ+2 {[-2-]}
<Blob 0x22005 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 22008 MOVE.B 0x2066b,(A7+0x1)> {[-2-]|[«2""»]}
<MI 2200e MOVE.B 0x2066c,(A7+0x2)> {[-2-]|[«2""»]}
<Blob 0x22014 [12] @> Δ-12 {[-2-]|[«2""»]|[«12""»]}
<POP 22024-22026 StackAdj> Δ-4 {[-2-]|[«2""»]|[«12""»]|[-4-]}
<Lit 0x22026> {[-2-]|[«2""»]|[«12""»]|[$$…]}
<Pointer.sp 0x22026 16> Δ-4
<Const 0x2202a 0x1.2> Δ-2
<Const 0x2202c 0x3.2> Δ-2
<Call 0x22030 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22032-22034 StackAdj> Δ+8
<POP 22032-22034 StackAdj> Δ-4 {[-2-]|[«2""»]|[«12""»]|[$$…]|[-4-]}
<Lit 0x22034 11> {[-2-]|[«2""»]|[«12""»]|[$$…]|[$$AUTO_RUN_P2]}
<POP 22040-22042 StackAdj> Δ-2 {[-2-]|[«2""»]|[«12""»]|[$$…]|[$$AUTO_RUN_P2]|[-2-]}
<POP 22042-22043 StackAdj> Δ+2 {[-2-]|[«2""»]|[«12""»]|[$$…]|[$$AUTO_RUN_P2]}
<Const 0x22043 0x1.2> Δ-2 {[-2-]|[«2""»]|[«12""»]|[$$…]|[$$AUTO_RUN_P2]|[#1]}
<Pointer.fp 0x22044 <LVAR -0x004 @>> Δ-4 {[-2-]|[«2""»]|[«12""»]|[$$…]|[$$AUTO_RUN_P2]|[#1]|[@@-4]}
<Call 0x22048 0x103b0> {[-2-]|[«2""»]|[«12""»]|[$$…]|[$$AUTO_RUN_P2]|[#1]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 2204e-22052 StackAdj> Δ+30 {}
<MI 22052 MOVE.B #0x01,0x2449d> {}
<MI 22058 BRA 0x22086> {}
<POP 2205a-22086 Naked> Σ0 ↓ ←0x21fc2 ←0x21fd0
<Blob 0x2205a [78] @> Δ-78 {[«78""»]}
<POP 2206c-2206e StackAdj> Δ-4 {[«78""»]|[-4-]}
<Lit 0x2206e 77> {[«78""»]|[$$>>> not running FRU tests because AUTO_RECOVERY=FALSE or OP_MODE=INTERACTIVE.]}
<Call 0x2207c 0x103e0> {[«78""»]|[$$>>> not running FRU tests because AUTO_RECOVERY=FALSE or OP_MODE=INTERACTIVE.]}
WriteConsoleStringCrLf(str : String)
<POP 22082-22086 StackAdj> Δ+82 {}
<POP 22086-220dc Naked> Σ0 ↓ ←0x21fdc
<Blob 0x22086 [10] @> Δ-10 {[«10""»]}
<Blob 0x22098 [4] @> Δ-4 {[«10""»]|[«4""»]}
<Blob 0x2209c [4] @> Δ-4 {[«10""»]|[«4""»]|[«4""»]}
<Blob 0x220a0 [4] @> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 220a4-220a6 StackAdj> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x220a6 9> {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]}
<POP 220b2-220b4 StackAdj> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[-4-]}
<Lit 0x220b4 12> {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$FRU_T_SCREEN]}
<POP 220be-220c0 StackAdj> Δ-2 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$FRU_T_SCREEN]|[-2-]}
<POP 220c0-220c1 StackAdj> Δ+2 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$FRU_T_SCREEN]}
<Const 0x220c1 0x1.2> Δ-2 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$FRU_T_SCREEN]|[#1]}
<Pointer.fp 0x220c2 <LVAR -0x004 @>> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$FRU_T_SCREEN]|[#1]|[@@-4]}
<Call 0x220c6 0x103b0> {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$FRU_T_SCREEN]|[#1]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 220cc-220d0 StackAdj> Δ+36 {}
<MI 220d0 CLR.B 0x24496> {}
<MI 220d6 MOVE.L #0x01,0x24498> {}
<POP 220dc-220e4 Epilogue> Σ0
@ 220e4
<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 220e4-22368 Body>
<POP 220e4-220fa Prologue> Σ0 ↓
<POP 220fa-2210c RegCacheLoad> Σ0 ↓
<POP 2210c-22198 Naked> Σ0 ↓ →0x221a8
<Blob 0x2210c [32] @> Δ-32 {[«32""»]}
<POP 22118-2211a StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x2211a 32> {[«32""»]|[$$Running post-mortem diagnostics.]}
<Call 0x2212c 0x103e0> {[«32""»]|[$$Running post-mortem diagnostics.]}
WriteConsoleStringCrLf(str : String)
<POP 22132-22136 StackAdj> Δ+36 {}
<Call 0x22136 0x10538> {}
IPC_Init(void)
<Const 0x2213c 0x1.2> Δ-2 {[#1]}
<Call 0x2213e 0x10502> {[#1]}
IPC_PutBool(a : Bool)
<MI 22144 CLR.B (A7)> {[#1]}
<Call 0x22146 0x10502> {[#1]}
IPC_PutBool(a : Bool)
<POP 2214c-2214e StackAdj> Δ+2 {}
<Call 0x2214e 0x10514> {}
IPC_PutEnd(void)
<Blob 0x22154 [2] @> Δ-2 {[«2""»]}
<Blob 0x22158 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x2215c [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 22160-22162 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x22162 6> {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]}
<Const 0x22174 0x1.4> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[##1]}
<Const 0x22178 0x1.2> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[##1]|[#1]}
<Pointer.fp 0x2217a <LVAR -0x09a @ 1(r)>> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[##1]|[#1]|[@@-154]}
<Call 0x2217c 0x103b0> {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]|[##1]|[#1]|[@@-154]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 22182-22186 StackAdj> Δ+20 {}
<MI 22186 MOVE.B (A6+0xc),D0> {}
<MI 2218a EXTB.W D0> {}
<MI 2218c MOVE.W D0,(A6-0x84)> {}
<MI 22190 CLR.B (A6-0x82)> {}
<MI 22194 TST.B (A6-0x9a)> {}
<MI 22196 BEQ 0x221a8> {}
<POP 22198-221a8 Naked> Σ0 →0x2234e
<MI 22198 MOVEA.L (A6+0x8),A0> {}
<MI 2219c CLR.B (A0)> {}
<MI 2219e MOVE.W #0x2,(A6-0x86)> {}
<MI 221a4 BRA 0x2234e> {}
<POP 221a8-22278 Naked> Σ0 Δ-8 ↓ ←0x2210c
<Call 0x221a8 0x10538> {}
IPC_Init(void)
<Pointer.fp 0x221ae <LVAR -0x099 @ 1(r)>> Δ-4 {[@@-153]}
<Call 0x221b2 0x10526> {[@@-153]}
IPC_GetBool() : Bool
<POP 221b8-221ba StackAdj> Δ+4 {}
<Pointer.fp 0x221ba <LVAR -0x098 @ 4(rw)>> Δ-4 {[@@-152]}
<Call 0x221bc 0x1052c> {[@@-152]}
IPC_GetString(VAR retval : String)
<POP 221c2-221c4 StackAdj> Δ+4 {}
<Pointer.fp 0x221c4 <LVAR -0x094 @ 4(r)>> Δ-4 {[@@-148]}
<Call 0x221c6 0x1052c> {[@@-148]}
IPC_GetString(VAR retval : String)
<POP 221cc-221ce StackAdj> Δ+4 {}
<Pointer.fp 0x221ce <LVAR -0x090 @ 1(r)>> Δ-4 {[@@-144]}
<Const 0x221d2 0x0.4> Δ-4 {[@@-144]|[##0]}
<Const 0x221d6 0x0.4> Δ-4 {[@@-144]|[##0]|[##0]}
<Call 0x221da 0x10520> {[@@-144]|[##0]|[##0]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 221e0-221e2 StackAdj> Δ+12 {}
<Pointer.fp 0x221e2 <LVAR -0x08f @>> Δ-4 {[@@-143]}
<Const 0x221e6 0x0.4> Δ-4 {[@@-143]|[##0]}
<Const 0x221ea 0x7.4> Δ-4 {[@@-143]|[##0]|[##7]}
<Call 0x221ee 0x10520> {[@@-143]|[##0]|[##7]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 221f4-221f6 StackAdj> Δ+12 {}
<Call 0x221f6 0x1051a> {}
IPC_GetEnd(void)
<MI 221fc MOVEA.L (A6+0x8),A0> {}
<MI 22200 MOVE.B (A6-0x99),D0> {}
<MI 22204 NEG.B D0> {}
<MI 22206 ADDQ.B #0x1,D0> {}
<MI 22208 EXTB.W D0> {}
<POP 0x2220a LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 2220c MOVE.B D0,(A0)> {}
<Blob 0x2220e [4] @> Δ-4 {[«4""»]}
<Blob 0x22212 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 22216-22218 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<MI 22218 MOVE.L (A6-0x98),-(A7)> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x98)']}
<POP 2221a-2221c StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x98)']|[-4-]}
<Lit 0x2221c 8> {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x98)']|[$$.ERRMESS]}
<Call 0x2222e 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x98)']|[$$.ERRMESS]}
StringCat2(a, b : String) : String
<POP 22234-22236 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 22236 MOVE.L (A7)+,(A6-0x98)> Δ+4 {[«4""»]|[«4""»]}
<MI 22238 MOVE.L (A6-0x98),(A7)> {[«4""»]|[4, '(A6-0x98)']}
<Call 0x2223a 0x102cc> {[«4""»]|[4, '(A6-0x98)']}
StringDup(a : String) : String
<MI 22240 MOVE.L (A6-0x94),(A7)> {[«4""»]|[4, '(A6-0x94)']}
<MI 22242 CLR.L D0> {[«4""»]|[4, '(A6-0x94)']}
<MI 22244 MOVE.B (A6-0x90),D0> {[«4""»]|[4, '(A6-0x94)']}
<MI 22248 MOVE.L D0,-(A7)> Δ-4 {[«4""»]|[4, '(A6-0x94)']|[4, 'D0']}
<Call 0x2224a 0x1044c> {[«4""»]|[4, '(A6-0x94)']|[4, 'D0']}
WriteErrorMessage(file : String; txt : String; number : Long) : Bool
<POP 22250-22252 StackAdj> Δ+12 {}
<MI 22252 MOVE.W #0x01,(A6-0x86)> {}
<MI 22256 MOVE.B (A6-0x90),(A6-0x81)> {}
<MI 2225c LEA.L (A6-0x80),A0> {}
<MI 22260 LEA.L (A6-0x8f),A1> {}
<BlockMove 8,A1,A0> {}
<MI 2226c MOVEA.L (A6-0x98),A0> {}
<MI 2226e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22270 MOVE.W (A0),D0> {[4, 'A0']}
<MI 22272 EXTW.L D0> {[4, 'A0']}
<MI 22274 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 22276 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 22278-2227c Naked> Σ-8 ↓ →0x222a4 ←0x2227c
<MI 22278 CMP.L (A7),D7> {[-8-]}
<MI 2227a BGT 0x222a4> {[-8-]}
<POP 2227c-222a4 Naked> Σ-8 ↓ →0x22278
<MI 2227c MOVE.L D7,D0> {[-8-]}
<MI 2227e SUBQ.L #0x1,D0> {[-8-]}
<POP 0x22280 LimitCheck 0x0 ≤ D0 ≤ 0x6b> {[-8-]}
<MI 22286 LEA.L (A6-0x9a),A0> {[-8-]}
<MI 22288 MOVE.L D7,D1> {[-8-]}
<MI 2228a SUBQ.L #0x1,D1> {[-8-]}
<POP 0x2228c LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 22296 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 2229a MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x22)> {[-8-]}
<MI 222a0 ADDQ.L #0x1,D7> {[-8-]}
<MI 222a2 BVC 0x22278> {[-8-]}
<POP 222a4-222d4 Naked> Σ-8 Δ+4 ↓ →0x222ea ←0x22278
<POP 222a4-222a6 StackAdj> Δ+4 {[-4-]}
<MI 222a6 MOVEA.L (A7),A0> {[-4-]}
<MI 222a8 MOVE.W (A0),D0> {[-4-]}
<MI 222aa EXTW.L D0> {[-4-]}
<MI 222ac ADDQ.L #0x1,D0> {[-4-]}
<MI 222ae MOVE.L D0,D6> {[-4-]}
<POP 222b0-222b2 StackAdj> Δ+4 {}
<MI 222b2 MOVE.L D6,D0> {}
<MI 222b4 SUBQ.L #0x1,D0> {}
<POP 0x222b6 LimitCheck 0x0 ≤ D0 ≤ 0x6b> {}
<MI 222bc LEA.L (A6-0x9a),A0> {}
<MI 222be CLR.B (A0+D0.L+#0x22)> {}
<MI 222c2 MOVEA.L (A6-0x94),A0> {}
<MI 222c4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 222c6 MOVE.W (A0),D0> {[4, 'A0']}
<MI 222c8 EXTW.L D0> {[4, 'A0']}
<MI 222ca MOVE.L D0,D5> {[4, 'A0']}
<MI 222cc MOVEQ.L #0x6c,D0> {[4, 'A0']}
<MI 222ce SUB.L D6,D0> {[4, 'A0']}
<MI 222d0 CMP.L D0,D5> {[4, 'A0']}
<MI 222d2 BLE 0x222ea> {[4, 'A0']}
<POP 222d4-222ea Naked> Σ-4 ↓
<MI 222d4 MOVE.L D0,D5> {[-4-]}
<MI 222d6 MOVE.L D5,D0> {[-4-]}
<MI 222d8 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x222da LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 222e4 MOVE.B #0x5c,(A0+D0.L+#0x2)> {[-4-]}
<POP 222ea-222ee Naked> Σ-4 Δ-4 ↓ ←0x222a4
<MI 222ea MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 222ec MOVEQ.L #0x01,D7> {[-4-]|[4, 'D5']}
<POP 222ee-222f2 Naked> Σ-8 ↓ →0x2231c ←0x222f2
<MI 222ee CMP.L (A7),D7> {[-8-]}
<MI 222f0 BGT 0x2231c> {[-8-]}
<POP 222f2-2231c Naked> Σ-8 ↓ →0x222ee
<MI 222f2 ADDQ.L #0x1,D6> {[-8-]}
<MI 222f4 MOVE.L D6,D0> {[-8-]}
<MI 222f6 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x222f8 LimitCheck 0x0 ≤ D0 ≤ 0x6b> {[-8-]}
<MI 222fe LEA.L (A6-0x9a),A0> {[-8-]}
<MI 22300 MOVE.L D7,D1> {[-8-]}
<MI 22302 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x22304 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 2230e MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 22312 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x22)> {[-8-]}
<MI 22318 ADDQ.L #0x1,D7> {[-8-]}
<MI 2231a BVC 0x222ee> {[-8-]}
<POP 2231c-22326 Naked> Σ-8 Δ+4 ↓ →0x22338 ←0x222ee
<POP 2231c-2231e StackAdj> Δ+4 {[-4-]}
<MI 2231e CMPI.L #0x0000006c,D6> {[-4-]}
<MI 22324 BGE 0x22338> {[-4-]}
<POP 22326-22338 Naked> Σ-4 ↓
<MI 22326 MOVE.L D6,D0> {[-4-]}
<MI 22328 ADDQ.L #0x1,D0> {[-4-]}
<MI 2232a SUBQ.L #0x1,D0> {[-4-]}
<POP 0x2232c LimitCheck 0x0 ≤ D0 ≤ 0x6b> {[-4-]}
<MI 22332 LEA.L (A6-0x9a),A0> {[-4-]}
<MI 22334 CLR.B (A0+D0.L+#0x22)> {[-4-]}
<POP 22338-2234e Naked> Σ-4 Δ+4 ↓ ←0x2231c
<POP 22338-2233a StackAdj> Δ+4 {}
<Pointer.fp 0x2233a <LVAR -0x094 @ 4(r)>> Δ-4 {[@@-148]}
<Call 0x2233c 0x102bc> {[@@-148]}
FreeString(VAR a : String)
<POP 22342-22344 StackAdj> Δ+4 {}
<Pointer.fp 0x22344 <LVAR -0x098 @ 4(rw)>> Δ-4 {[@@-152]}
<Call 0x22346 0x102bc> {[@@-152]}
FreeString(VAR a : String)
<POP 2234c-2234e StackAdj> Δ+4 {}
<POP 2234e-22360 Naked> Σ0 ↓ ←0x22198
<Const 0x2234e 0x3.2> Δ-2 {[#3]}
<MI 22352 LEA.L (A6-0x86),A0> {[#3]}
<MI 22356 MOVE.L A0,-(A7)> Δ-4 {[#3]|[4, 'A0']}
<Call 0x22358 0x103a8> {[#3]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 2235e-22360 StackAdj> Δ+6 {}
<POP 22360-22368 Epilogue> Σ0
@ 22368
<LVAR 0x008 1(r)>
<POP 22368-223ee Body>
<POP 22368-2237e Prologue> Σ0 ↓
<POP 2237e-22382 RegCacheLoad> Σ0 ↓
<POP 22382-223e6 Naked> Σ0 ↓
<Blob 0x22382 [30] @> Δ-30 {[«30""»]}
<MI 22394 MOVE.B (A6+0x8),D0> {[«30""»]}
<MI 22398 EXTB.W D0> {[«30""»]}
<MI 2239a MULS.W #0x32,D0> {[«30""»]}
<MI 2239c LEA.L 0x21343,A0> {[«30""»]}
<Blob 0x223a0 [50] (A0+D0.W)> Δ-50 {[«30""»]|[«50»]}
<POP 223b0-223b2 StackAdj> Δ-8 {[«30""»]|[«50»]|[-8-]}
<Lit 0x223b2 29> {[«30""»]|[«50»]|[-4-]|[$$Restarting system after R1000]}
<POP 223c2-223c4 StackAdj> Δ-4 {[«30""»]|[«50»]|[-4-]|[$$Restarting system after R1000]|[-4-]}
<Lit 0x223c4> {[«30""»]|[«50»]|[-4-]|[$$Restarting system after R1000]|[$$…]}
<Pointer.sp 0x223c4 12> Δ-4
<Const 0x223c8 0x1.2> Δ-2
<Const 0x223ca 0x32.2> Δ-2
<Call 0x223cc 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 223d2-223d4 StackAdj> Δ+8
<Call 0x223d4 0x102d0> {[«30""»]|[«50»]|[-4-]|[$$Restarting system after R1000]|[$$…]}
StringCat2(a, b : String) : String
<POP 223da-223dc StackAdj> Δ+8 {[«30""»]|[«50»]|[-4-]}
<Call 0x223dc 0x103e0> {[«30""»]|[«50»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 223e2-223e6 StackAdj> Δ+84 {}
<POP 223e6-223ee Epilogue> Σ0
@ 223ee
<LVAR 0x00c 4(w)>
<LVAR 0x00b 1(r)>
<LVAR 0x00a 1(r) 2(r)>
<POP 223ee-224ce Body>
<POP 223ee-22404 Prologue> Σ0 ↓
<POP 22404-2240a RegCacheLoad> Σ0 ↓
<POP 2240a-2241e Naked> Σ0 ↓ →0x2248a
<MI 2240a MOVE.W (A6+0xa),D0> {}
<MI 2240e LSL.W #0x7,D0> {}
<MI 22410 LSR.W #0x8,D0> {}
<MI 22412 LSR.W #0x4,D0> {}
<MI 22414 MOVE.W D0,D1> {}
<MI 22416 SUBQ.W #0x1,D1> {}
<MI 22418 CMPI.W #0x000b,D1> {}
<MI 2241c BHI 0x2248a> {}
<POP 2241e-22428 Naked> Σ0 →0x22440 →0x22442 →0x22446 →0x2244a →0x2244e →0x22452 →0x2245a →0x22462 →0x2246a →0x22472 →0x2247a →0x22482
<MI 2241e ADD.W D1,D1> {}
<MI 22420 SWITCH D1.W> {}
<POP 22440-22442 Naked> Σ0 →0x2248a ←0x2241e
<MI 22440 BRA 0x2248a> {}
<POP 22442-22446 Naked> Σ0 →0x2248c ←0x2241e
<MI 22442 MOVEQ.L #0x1f,D7> {}
<MI 22444 BRA 0x2248c> {}
<POP 22446-2244a Naked> Σ0 →0x2248c ←0x2241e
<MI 22446 MOVEQ.L #0x3b,D7> {}
<MI 22448 BRA 0x2248c> {}
<POP 2244a-2244e Naked> Σ0 →0x2248c ←0x2241e
<MI 2244a MOVEQ.L #0x5a,D7> {}
<MI 2244c BRA 0x2248c> {}
<POP 2244e-22452 Naked> Σ0 →0x2248c ←0x2241e
<MI 2244e MOVEQ.L #0x78,D7> {}
<MI 22450 BRA 0x2248c> {}
<POP 22452-2245a Naked> Σ0 →0x2248c ←0x2241e
<MI 22452 MOVE.L #0x97,D7> {}
<MI 22458 BRA 0x2248c> {}
<POP 2245a-22462 Naked> Σ0 →0x2248c ←0x2241e
<MI 2245a MOVE.L #0xb5,D7> {}
<MI 22460 BRA 0x2248c> {}
<POP 22462-2246a Naked> Σ0 →0x2248c ←0x2241e
<MI 22462 MOVE.L #0xd4,D7> {}
<MI 22468 BRA 0x2248c> {}
<POP 2246a-22472 Naked> Σ0 →0x2248c ←0x2241e
<MI 2246a MOVE.L #0xf3,D7> {}
<MI 22470 BRA 0x2248c> {}
<POP 22472-2247a Naked> Σ0 →0x2248c ←0x2241e
<MI 22472 MOVE.L #0x111,D7> {}
<MI 22478 BRA 0x2248c> {}
<POP 2247a-22482 Naked> Σ0 →0x2248c ←0x2241e
<MI 2247a MOVE.L #0x130,D7> {}
<MI 22480 BRA 0x2248c> {}
<POP 22482-2248a Naked> Σ0 →0x2248c ←0x2241e
<MI 22482 MOVE.L #0x14e,D7> {}
<MI 22488 BRA 0x2248c> {}
<POP 2248a-2248c Naked> Σ0 ↓ ←0x2240a ←0x22440
<MI 2248a MOVEQ.L #0x00,D7> {}
<POP 2248c-2249c Naked> Σ0 ↓ →0x224a4 ←0x22442 ←0x22446 ←0x2244a ←0x2244e ←0x22452 ←0x2245a ←0x22462 ←0x2246a ←0x22472 ←0x2247a ←0x22482
<MI 2248c CLR.L D1> {}
<MI 2248e MOVE.B (A6+0xa),D1> {}
<MI 22492 LSR.B #0x1,D1> {}
<MI 22494 MOVE.W D1,D2> {}
<MI 22496 AND.W #0x03,D2> {}
<MI 22498 CMP.W #0x03,D2> {}
<MI 2249a BNE 0x224a4> {}
<POP 2249c-224a2 Naked> Σ0 ↓ →0x224a4
<MI 2249c CMPI.W #0x0002,D0> {}
<MI 224a0 BLE 0x224a4> {}
<POP 224a2-224a4 Naked> Σ0 ↓
<MI 224a2 ADDQ.L #0x1,D7> {}
<POP 224a4-224c6 Naked> Σ0 ↓ ←0x2248c ←0x2249c
<MI 224a4 EXTW.L D1> {}
<MI 224a6 MOVE.L D1,D6> {}
<MI 224a8 MOVE.L D6,D4> {}
<MI 224aa MOVE.L #0x16d,D3> {}
<Call 0x224b0 0x1028c> {}
?muls_d3_d4
<MI 224b6 MOVE.L D4,(A6+0xc)> {}
<MI 224b8 ADD.L D7,(A6+0xc)> {}
<MI 224ba CLR.L D0> {}
<MI 224bc MOVE.B (A6+0xb),D0> {}
<MI 224c0 LSL.B #0x3,D0> {}
<MI 224c2 LSR.B #0x3,D0> {}
<MI 224c4 ADD.L D0,(A6+0xc)> {}
<POP 224c6-224ce Epilogue> Σ0
@ 224ce
<LVAR 0x008 1(rw)>
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 4(rw)>
<LVAR -0x009 1(w)>
<LVAR -0x00a 1(w)>
<LVAR -0x00b 1(w)>
<LVAR -0x00c 1(w) 4(r)>
<LVAR -0x00d 1(w)>
<LVAR -0x00e 1(w) 2(w)>
<LVAR -0x010 2(r) 4(rw)>
<LVAR -0x014 @ 2(r) 4(r)>
<LVAR -0x3cc 2(r)>
<LVAR -0x3ce 2(r)>
<LVAR -0x3d4 1(r)>
<LVAR -0x3f4 2(r)>
<LVAR -0x414 @>
<LVAR -0x415 @>
<LVAR -0x416 @ 1(r)>
<LVAR -0x41a @ 4(r)>
<LVAR -0x422 @ 4(r)>
<LVAR -0x426 @ 4(r)>
<LVAR -0x42a @ 4(r)>
<LVAR -0x42c @ 1(r)>
<LVAR -0x42d @>
<LVAR -0x42e 1(w)>
<LVAR -0x448 @ 1(r)>
<LVAR -0x454 @ 4(w)>
<POP 224ce-22bc6 Body> Δ+74
<POP 224ce-224e4 Prologue> Σ0 ↓
<POP 224e4-224ee RegCacheLoad> Σ0 ↓
<POP 224ee-2253a Naked> Σ0 ↓ →0x2256c
<MI 224ee LEA.L (A6-0x448),A0> {}
<MI 224f2 LEA.L 0x209e6,A1> {}
<BlockMove 22,A1,A0> {}
<Blob 0x224fe [20] @> Δ-20 {[«20""»]}
<POP 2250a-2250c StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2250c 20> {[«20""»]|[$$AUTOBOOT_AFTER_CRASH]}
<POP 2251a-2251c StackAdj> Δ-2 {[«20""»]|[$$AUTOBOOT_AFTER_CRASH]|[-2-]}
<MI 2251c CLR.B (A7)> {[«20""»]|[$$AUTOBOOT_AFTER_CRASH]|[-2-]}
<MI 2251e CLR.B -(A7)> Δ-2 {[«20""»]|[$$AUTOBOOT_AFTER_CRASH]|[-2-]|[#0]}
<Const 0x22520 0x0.4> Δ-4 {[«20""»]|[$$AUTOBOOT_AFTER_CRASH]|[-2-]|[#0]|[##0]}
<Pointer.fp 0x22524 <LVAR -0x416 @ 1(r)>> Δ-4 {[«20""»]|[$$AUTOBOOT_AFTER_CRASH]|[-2-]|[#0]|[##0]|[@@-1046]}
<Pointer.fp 0x22528 <LVAR -0x41a @ 4(r)>> Δ-4 {[«20""»]|[$$AUTOBOOT_AFTER_CRASH]|[-2-]|[#0]|[##0]|[@@-1046]|[@@-1050]}
<Call 0x2252a 0x10380> {[«20""»]|[$$AUTOBOOT_AFTER_CRASH]|[-2-]|[#0]|[##0]|[@@-1046]|[@@-1050]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 22530-22534 StackAdj> Δ+40 {}
<MI 22534 TST.B (A6-0x416)> {}
<MI 22538 BEQ 0x2256c> {}
<POP 2253a-2256c Naked> Σ0 →0x22b62
<Call 0x2253a 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x22540 [72] @> Δ-72 {[«72""»]}
<POP 2254c-2254e StackAdj> Δ-4 {[«72""»]|[-4-]}
<Lit 0x2254e 72> {[«72""»]|[$$>>> the AUTOBOOT_AFTER_CRASH file does not exist - disabling auto reboot]}
<Call 0x2255e 0x103e0> {[«72""»]|[$$>>> the AUTOBOOT_AFTER_CRASH file does not exist - disabling auto reboot]}
WriteConsoleStringCrLf(str : String)
<POP 22564-22568 StackAdj> Δ+76 {}
<MI 22568 BRA 0x22b62> {}
<POP 2256c-225d4 Naked> Σ0 Δ-4 ↓ →0x2267a ←0x224ee
<Pointer.fp 0x2256c <LVAR -0x42a @ 4(r)>> Δ-4 {[@@-1066]}
<Call 0x22570 0x102b8> {[@@-1066]}
NewString(VAR a : String)
<POP 22576-22578 StackAdj> Δ+4 {}
<Pointer.fp 0x22578 <LVAR -0x426 @ 4(r)>> Δ-4 {[@@-1062]}
<Call 0x2257c 0x102b8> {[@@-1062]}
NewString(VAR a : String)
<MI 22582 MOVE.L (A6-0x41a),(A7)> {[4, '(A6-0x41a)']}
<Pointer.fp 0x22584 <LVAR -0x42a @ 4(r)>> Δ-4 {[4, '(A6-0x41a)']|[@@-1066]}
<Pointer.fp 0x22588 <LVAR -0x42d @>> Δ-4 {[4, '(A6-0x41a)']|[@@-1066]|[@@-1069]}
<Call 0x2258c 0x1043c> {[4, '(A6-0x41a)']|[@@-1066]|[@@-1069]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 22592-22594 StackAdj> Δ+8 {[4, '(A6-0x41a)']}
<MI 22594 MOVE.L (A6-0x41a),(A7)> {[4, '(A6-0x41a)']}
<Pointer.fp 0x22596 <LVAR -0x426 @ 4(r)>> Δ-4 {[4, '(A6-0x41a)']|[@@-1062]}
<Pointer.fp 0x2259a <LVAR -0x42d @>> Δ-4 {[4, '(A6-0x41a)']|[@@-1062]|[@@-1069]}
<Call 0x2259e 0x1043c> {[4, '(A6-0x41a)']|[@@-1062]|[@@-1069]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 225a4-225a6 StackAdj> Δ+8 {[4, '(A6-0x41a)']}
<POP 225a6-225a7 StackAdj> Δ+4 {}
<Blob 0x225a7 [4] @> Δ-4 {[«4""»]}
<POP 225aa-225ac StackAdj> Δ-8 {[«4""»]|[-8-]}
<MI 225ac MOVE.L (A6-0x42a),-(A7)> Δ-4 {[«4""»]|[-8-]|[4, '(A6-0x42a)']}
<Call 0x225b0 0x102f0> {[«4""»]|[-8-]|[4, '(A6-0x42a)']}
ToUpper(a : String) : String
<Lit 0x225b6 4> {[«4""»]|[-8-]|[$$ONCE]}
<Call 0x225c6 0x10300> {[«4""»]|[-8-]|[$$ONCE]}
FSCALL_10300
<POP 225cc-225ce StackAdj> Δ+8 {[«4""»]|[-4-]}
<MI 225ce TST.L (A7)+> Δ+4 {[«4""»]}
<MI 225d0 BLE 0x2267a> {[«4""»]}
<POP 225d4-2267a Naked> Σ-4 Δ+4 →0x22b62
<Call 0x225d4 0x103dc> {[-4-]}
WriteConsoleCrLf(void)
<Blob 0x225da [58] @> Δ-58 {[-4-]|[«58""»]}
<POP 225e6-225e8 StackAdj> Δ-4 {[-4-]|[«58""»]|[-4-]}
<Lit 0x225e8 58> {[-4-]|[«58""»]|[$$>>> auto reboot after crash is disabled this one time only]}
<Call 0x225f8 0x103e0> {[-4-]|[«58""»]|[$$>>> auto reboot after crash is disabled this one time only]}
WriteConsoleStringCrLf(str : String)
<POP 225fe-22602 StackAdj> Δ+58 {[-4-]|[-4-]}
<MI 22602 MOVE.L (A6-0x41a),(A7)> {[-4-]|[4, '(A6-0x41a)']}
<Call 0x22604 0x10444> {[-4-]|[4, '(A6-0x41a)']}
FSCALL_10444
<POP 2260a-2260b StackAdj> Δ+4 ↓ {[-4-]}
<Blob 0x2260b [42] @> Δ-42 {[-4-]|[«42""»]}
<MI 2261c MOVE.L (A6-0x41a),-(A7)> Δ-4 {[-4-]|[«42""»]|[4, '(A6-0x41a)']}
<POP 2261e-22620 StackAdj> Δ-4 {[-4-]|[«42""»]|[4, '(A6-0x41a)']|[-4-]}
<Lit 0x22620 41> {[-4-]|[«42""»]|[4, '(A6-0x41a)']|[$$ENABLE automatic rebooting after a crash.]}
<Pointer.fp 0x22630 <LVAR -0x42d @>> Δ-4 {[-4-]|[«42""»]|[4, '(A6-0x41a)']|[$$ENABLE automatic rebooting after a crash.]|[@@-1069]}
<Call 0x22634 0x10440> {[-4-]|[«42""»]|[4, '(A6-0x41a)']|[$$ENABLE automatic rebooting after a crash.]|[@@-1069]}
FSCALL_10440
<POP 2263a-2263e StackAdj> Δ+50 {[-4-]|[-4-]}
<MI 2263e MOVE.L (A6-0x41a),(A7)> {[-4-]|[4, '(A6-0x41a)']}
<MI 22640 MOVE.L (A6-0x426),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x41a)']|[4, '(A6-0x426)']}
<Pointer.fp 0x22644 <LVAR -0x42d @>> Δ-4 {[-4-]|[4, '(A6-0x41a)']|[4, '(A6-0x426)']|[@@-1069]}
<Call 0x22648 0x10440> {[-4-]|[4, '(A6-0x41a)']|[4, '(A6-0x426)']|[@@-1069]}
FSCALL_10440
<POP 2264e-22650 StackAdj> Δ+8 {[-4-]|[4, '(A6-0x41a)']}
<MI 22650 MOVE.L (A6-0x41a),(A7)> {[-4-]|[4, '(A6-0x41a)']}
<Call 0x22652 0x10448> {[-4-]|[4, '(A6-0x41a)']}
FSCALL_10448
<POP 22658-2265a StackAdj> Δ+2 {[-4-]|[-2-]}
<MI 2265a CLR.B (A7)> {[-4-]|[-2-]}
<Const 0x2265c 0x1.2> Δ-2 {[-4-]|[-2-]|[#1]}
<Const 0x22660 0x1.4> Δ-4 {[-4-]|[-2-]|[#1]|[##1]}
<Pointer.fp 0x22664 <LVAR -0x416 @ 1(r)>> Δ-4 {[-4-]|[-2-]|[#1]|[##1]|[@@-1046]}
<Pointer.fp 0x22668 <LVAR -0x41a @ 4(r)>> Δ-4 {[-4-]|[-2-]|[#1]|[##1]|[@@-1046]|[@@-1050]}
<Call 0x2266a 0x1038c> {[-4-]|[-2-]|[#1]|[##1]|[@@-1046]|[@@-1050]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 22670-22674 StackAdj> Δ+16 {[-4-]}
<POP 22674-22676 StackAdj> Δ+4 {}
<MI 22676 BRA 0x22b62> {}
<POP 2267a-226d0 Naked> Σ-4 Δ-2 ↓ →0x22702 ←0x2256c
<POP 2267a-2267c StackAdj> Δ+2 {[-2-]}
<MI 2267c CLR.B (A7)> {[-2-]}
<Const 0x2267e 0x1.2> Δ-2 {[-2-]|[#1]}
<Const 0x22682 0x1.4> Δ-4 {[-2-]|[#1]|[##1]}
<Pointer.fp 0x22686 <LVAR -0x416 @ 1(r)>> Δ-4 {[-2-]|[#1]|[##1]|[@@-1046]}
<Pointer.fp 0x2268a <LVAR -0x41a @ 4(r)>> Δ-4 {[-2-]|[#1]|[##1]|[@@-1046]|[@@-1050]}
<Call 0x2268c 0x1038c> {[-2-]|[#1]|[##1]|[@@-1046]|[@@-1050]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 22692-22696 StackAdj> Δ+14 {[-2-]}
<POP 22696-22697 StackAdj> Δ+2 {}
<Blob 0x22697 [2] @> Δ-2 {[«2""»]}
<Blob 0x2269a [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x2269e [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 226a2-226a4 StackAdj> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[-8-]}
<MI 226a4 MOVE.L (A6-0x42a),-(A7)> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-8-]|[4, '(A6-0x42a)']}
<Call 0x226a8 0x102f0> {[«2""»]|[«2""»]|[«2""»]|[-8-]|[4, '(A6-0x42a)']}
ToUpper(a : String) : String
<Lit 0x226ae 6> {[«2""»]|[«2""»]|[«2""»]|[-8-]|[$$ENABLE]}
<Call 0x226be 0x10300> {[«2""»]|[«2""»]|[«2""»]|[-8-]|[$$ENABLE]}
FSCALL_10300
<POP 226c4-226c6 StackAdj> Δ+8 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<MI 226c6 MOVE.L (A7)+,D0> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<MI 226c8 CMPI.L #0x00000001,D0> {[«2""»]|[«2""»]|[«2""»]}
<MI 226ce BEQ 0x22702> {[«2""»]|[«2""»]|[«2""»]}
<POP 226d0-22702 Naked> Σ-6 Δ+6 →0x22b62
<Call 0x226d0 0x103dc> {[-6-]}
WriteConsoleCrLf(void)
<Blob 0x226d6 [72] @> Δ-72 {[-6-]|[«72""»]}
<POP 226e2-226e4 StackAdj> Δ-4 {[-6-]|[«72""»]|[-4-]}
<Lit 0x226e4 72> {[-6-]|[«72""»]|[$$>>> auto reboot after crash is DISABLED in the AUTOBOOT_AFTER_CRASH file]}
<Call 0x226f4 0x103e0> {[-6-]|[«72""»]|[$$>>> auto reboot after crash is DISABLED in the AUTOBOOT_AFTER_CRASH file]}
WriteConsoleStringCrLf(str : String)
<POP 226fa-226fe StackAdj> Δ+82 {}
<MI 226fe BRA 0x22b62> {}
<POP 22702-2273e Naked> Σ-6 Δ+6 ↓ →0x22768 ←0x2267a
<POP 22702-22704 StackAdj> Δ+6 {}
<Pointer.fp 0x22704 <LVAR -0x422 @ 4(r)>> Δ-4 {[@@-1058]}
<Call 0x22708 0x102b8> {[@@-1058]}
NewString(VAR a : String)
<MI 2270e MOVE.L (A6-0x426),(A7)> {[4, '(A6-0x426)']}
<MI 22712 MOVE.L (A6-0x422),-(A7)> Δ-4 {[4, '(A6-0x426)']|[4, '(A6-0x422)']}
<Pointer.fp 0x22716 <LVAR -0x42c @ 1(r)>> Δ-4 {[4, '(A6-0x426)']|[4, '(A6-0x422)']|[@@-1068]}
<Call 0x2271a 0x102fc> {[4, '(A6-0x426)']|[4, '(A6-0x422)']|[@@-1068]}
FirstField(MOD input : String; MOD output : String; VAR c : Bool
<POP 22720-22722 StackAdj> Δ+8 {[4, '(A6-0x426)']}
<MI 22722 MOVE.L (A6-0x422),(A7)> {[4, '(A6-0x422)']}
<Pointer.fp 0x22726 <LVAR -0x42c @ 1(r)>> Δ-4 {[4, '(A6-0x422)']|[@@-1068]}
<Pointer.fp 0x2272a <LVAR -0x004 @ 4(r)>> Δ-4 {[4, '(A6-0x422)']|[@@-1068]|[@@-4]}
<Call 0x2272e 0x102ec> {[4, '(A6-0x422)']|[@@-1068]|[@@-4]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 22734-22738 StackAdj> Δ+12 {}
<MI 22738 TST.B (A6-0x42c)> {}
<MI 2273c BNE 0x22768> {}
<POP 2273e-22768 Naked> Σ0 Δ-92 →0x22b54
<Call 0x2273e 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x22744 [80] @> Δ-80 {[«80""»]}
<POP 22756-22758 StackAdj> Δ-4 {[«80""»]|[-4-]}
<Pointer.sp 0x22758 4> Δ-4 {[«80""»]|[-4-]|[^^4]}
<Const 0x2275c 0x1.2> Δ-2 {[«80""»]|[-4-]|[^^4]|[#1]}
<Const 0x22760 0x4f.2> Δ-2 {[«80""»]|[-4-]|[^^4]|[#1]|[#79]}
<MI 22764 BRA 0x22b54> {[«80""»]|[-4-]|[^^4]|[#1]|[#79]}
<POP 22768-2278e Naked> Σ0 ↓ ←0x22702
<MI 22768 ANDI.B #0x01,(A6-0xe)> {}
<MI 2276e ANDI.W #0xfe1f,(A6-0xe)> {}
<MI 22774 ORI.W #0x0020,(A6-0xe)> {}
<MI 2277a ANDI.B #0xe0,(A6-0xd)> {}
<MI 22780 ORI.B #0x01,(A6-0xd)> {}
<Call 0x22786 0x103dc> {}
WriteConsoleCrLf(void)
<MI 2278c MOVEQ.L #0x02,D0> {}
<POP 2278e-227e8 Naked> Σ0 Δ-4 ↓ →0x229bc ←0x229bc
<MI 2278e MOVE.L D0,(A6-0x454)> {}
<MI 22792 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<Blob 0x22794 [10] @> Δ-10 {[4, 'D0']|[«10""»]}
<POP 227a0-227a2 StackAdj> Δ-8 {[4, 'D0']|[«10""»]|[-8-]}
<Lit 0x227a2 10> {[4, 'D0']|[«10""»]|[-4-]|[$$R1000_DUMP]}
<MI 227b0 MOVE.L D0,(A7)> {[4, 'D0']|[«10""»]|[-4-]|[4, 'D0']}
<POP 227ae-227b0 StackAdj> Δ-8 {[4, 'D0']|[«10""»]|[-4-]|[4, 'D0']|[-8-]}
<Call 0x227b2 0x102e4> {[4, 'D0']|[«10""»]|[-4-]|[4, 'D0']|[-8-]}
Long2String(a : Long) : String
<POP 227b8-227ba StackAdj> Δ+4 {[4, 'D0']|[«10""»]|[-4-]|[4, 'D0']|[-4-]}
<Call 0x227ba 0x102d0> {[4, 'D0']|[«10""»]|[-4-]|[4, 'D0']|[-4-]}
StringCat2(a, b : String) : String
<POP 227c0-227c2 StackAdj> Δ+8 {[4, 'D0']|[«10""»]|[-4-]}
<MI 227c2 MOVEA.L (A7)+,A4> Δ+4 {[4, 'D0']|[«10""»]}
<POP 227c4-227c6 StackAdj> Δ+6 {[4, 'D0']|[-4-]}
<MI 227c6 MOVE.L A4,(A7)> {[4, 'D0']|[4, 'A4']}
<MI 227c8 CLR.B -(A7)> Δ-2 {[4, 'D0']|[4, 'A4']|[#0]}
<MI 227ca CLR.B -(A7)> Δ-2 {[4, 'D0']|[4, 'A4']|[#0]|[#0]}
<Const 0x227cc 0x0.4> Δ-4 {[4, 'D0']|[4, 'A4']|[#0]|[#0]|[##0]}
<Pointer.fp 0x227d0 <LVAR -0x416 @ 1(r)>> Δ-4 {[4, 'D0']|[4, 'A4']|[#0]|[#0]|[##0]|[@@-1046]}
<Pointer.fp 0x227d4 <LVAR -0x41a @ 4(r)>> Δ-4 {[4, 'D0']|[4, 'A4']|[#0]|[#0]|[##0]|[@@-1046]|[@@-1050]}
<Call 0x227d6 0x10380> {[4, 'D0']|[4, 'A4']|[#0]|[#0]|[##0]|[@@-1046]|[@@-1050]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 227dc-227e0 StackAdj> Δ+20 {[4, 'D0']}
<MI 227e0 TST.B (A6-0x416)> {[4, 'D0']}
<MI 227e4 BNE 0x229bc> {[4, 'D0']}
<POP 227e8-22848 Naked> Σ-4 ↓ →0x22852
<MI 227e8 MOVE.L (A6-0x41a),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x41a)']}
<MI 227ea CLR.W -(A7)> Δ-2 {[-4-]|[4, '(A6-0x41a)']|[#0]}
<MI 227ec CLR.W -(A7)> Δ-2 {[-4-]|[4, '(A6-0x41a)']|[#0]|[#0]}
<Const 0x227ee 0x200.2> Δ-2 {[-4-]|[4, '(A6-0x41a)']|[#0]|[#0]|[#512]}
<Const 0x227f2 0x1.2> Δ-2 {[-4-]|[4, '(A6-0x41a)']|[#0]|[#0]|[#512]|[#1]}
<MI 227f6 LEA.L (A6-0x414),A0> {[-4-]|[4, '(A6-0x41a)']|[#0]|[#0]|[#512]|[#1]}
<MI 227fa MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, '(A6-0x41a)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']}
<Pointer.fp 0x227fc <LVAR -0x416 @ 1(r)>> Δ-4 {[-4-]|[4, '(A6-0x41a)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1046]}
<Call 0x22800 0x10384> {[-4-]|[4, '(A6-0x41a)']|[#0]|[#0]|[#512]|[#1]|[4, 'A0']|[@@-1046]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 22806-2280a StackAdj> Δ+20 {[-4-]}
<MI 2280a MOVEA.L (A6-0x41a),A0> {[-4-]}
<MI 2280c MOVE.B (A0+0x3a),(A6-0xc)> {[-4-]}
<MI 22812 MOVE.B (A0+0x3b),(A6-0xb)> {[-4-]}
<MI 22818 MOVE.B (A0+0x3c),(A6-0xa)> {[-4-]}
<MI 2281e MOVE.B (A0+0x3d),(A6-0x9)> {[-4-]}
<MI 22824 CLR.B -(A7)> Δ-2 {[-4-]|[#0]}
<Const 0x22826 0x1.2> Δ-2 {[-4-]|[#0]|[#1]}
<Const 0x2282a 0x1.4> Δ-4 {[-4-]|[#0]|[#1]|[##1]}
<Pointer.fp 0x2282e <LVAR -0x416 @ 1(r)>> Δ-4 {[-4-]|[#0]|[#1]|[##1]|[@@-1046]}
<Pointer.fp 0x22832 <LVAR -0x41a @ 4(r)>> Δ-4 {[-4-]|[#0]|[#1]|[##1]|[@@-1046]|[@@-1050]}
<Call 0x22834 0x1038c> {[-4-]|[#0]|[#1]|[##1]|[@@-1046]|[@@-1050]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 2283a-2283e StackAdj> Δ+16 {[-4-]}
<MI 2283e MOVE.B (A6-0x3d4),D1> {[-4-]}
<MI 22842 CMPI.B #0x03,D1> {[-4-]}
<MI 22846 BNE 0x22852> {[-4-]}
<POP 22848-22852 Naked> Σ-4 ↓ →0x2285e
<MI 22848 MOVE.W (A6-0x3cc),D2> {[-4-]}
<MI 2284c CMPI.W #0x0009,D2> {[-4-]}
<MI 22850 BEQ 0x2285e> {[-4-]}
<POP 22852-22858 Naked> Σ-4 ↓ →0x22862 ←0x227e8
<MI 22852 CMPI.B #0x02,D1> {[-4-]}
<MI 22856 BNE 0x22862> {[-4-]}
<POP 22858-2285e Naked> Σ-4 ↓ →0x22862
<MI 22858 TST.W (A6-0x3ce)> {[-4-]}
<MI 2285c BNE 0x22862> {[-4-]}
<POP 2285e-22862 Naked> Σ-4 →0x229bc ←0x22848
<MI 2285e BRA 0x229bc> {[-4-]}
<POP 22862-2290e Naked> Σ-4 ↓ ←0x22852 ←0x22858
<MI 22862 MOVE.L (A6-0xc),(A6-0x10)> {[-4-]}
<Blob 0x22868 [26] @> Δ-26 {[-4-]|[«26""»]}
<Blob 0x22874 [18] (A6-0x3f6)> Δ-18 {[-4-]|[«26""»]|[«18»]}
<Blob 0x22880 [20] @> Δ-20 {[-4-]|[«26""»]|[«18»]|[«20""»]}
<POP 22892-22894 StackAdj> Δ-8 {[-4-]|[«26""»]|[«18»]|[«20""»]|[-8-]}
<Lit 0x22894 26> {[-4-]|[«26""»]|[«18»]|[«20""»]|[-4-]|[$$>>> the previous crash at_]}
<POP 228a2-228a4 StackAdj> Δ-4 {[-4-]|[«26""»]|[«18»]|[«20""»]|[-4-]|[$$>>> the previous crash at_]|[-4-]}
<Lit 0x228a4> {[-4-]|[«26""»]|[«18»]|[«20""»]|[-4-]|[$$>>> the previous crash at_]|[$$…]}
<Pointer.sp 0x228a4 32> Δ-4
<Const 0x228a8 0x1.2> Δ-2
<Const 0x228ac 0x12.2> Δ-2
<Call 0x228b0 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 228b2-228b4 StackAdj> Δ+8
<POP 228b2-228b4 StackAdj> Δ-4 {[-4-]|[«26""»]|[«18»]|[«20""»]|[-4-]|[$$>>> the previous crash at_]|[$$…]|[-4-]}
<Lit 0x228b4 19> {[-4-]|[«26""»]|[«18»]|[«20""»]|[-4-]|[$$>>> the previous crash at_]|[$$…]|[$$ was classified as:]}
<Call 0x228c4 0x102d4> {[-4-]|[«26""»]|[«18»]|[«20""»]|[-4-]|[$$>>> the previous crash at_]|[$$…]|[$$ was classified as:]}
StringCat3(a, b, c : String) : String
<POP 228ca-228ce StackAdj> Δ+12 {[-4-]|[«26""»]|[«18»]|[«20""»]|[-4-]}
<Call 0x228ce 0x103e0> {[-4-]|[«26""»]|[«18»]|[«20""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 228d4-228d8 StackAdj> Δ+66 {[-4-]|[-2-]}
<POP 228d8-228d9 StackAdj> Δ+2 {[-4-]}
<Blob 0x228d9 [2] @> Δ-2 {[-4-]|[«2""»]}
<Blob 0x228dc [2] @> Δ-2 {[-4-]|[«2""»]|[«2""»]}
<Blob 0x228e0 [2] @> Δ-2 {[-4-]|[«2""»]|[«2""»]|[«2""»]}
<POP 228e4-228e6 StackAdj> Δ-4 {[-4-]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x228e6 6> {[-4-]|[«2""»]|[«2""»]|[«2""»]|[$$______]}
<Call 0x228f6 0x103d8> {[-4-]|[«2""»]|[«2""»]|[«2""»]|[$$______]}
WriteConsoleString(str : String)
<POP 228fc-22900 StackAdj> Δ+10 {[-4-]}
<MI 22900 CLR.L D1> {[-4-]}
<MI 22902 MOVE.W (A6-0x3f4),D1> {[-4-]}
<MI 22906 SUBQ.L #0x1,D1> {[-4-]}
<MI 22908 MOVE.L D1,D6> {[-4-]}
<MI 2290a MOVEQ.L #0x00,D7> {[-4-]}
<MI 2290c MOVEQ.L #0x00,D5> {[-4-]}
<POP 2290e-22930 Naked> Σ-4 ↓ →0x22948 ←0x22974
<POP 0x2290e LimitCheck 0x0 ≤ D6 ≤ 0x33f> {[-4-]}
<MI 22918 LEA.L (A6-0x454),A0> {[-4-]}
<MI 2291c LEA.L (A0+D6.L),A0> {[-4-]}
<MI 22920 MOVE.B (A0+0x100),D0> {[-4-]}
<MI 22924 MOVE.B D0,(A6-0x42e)> {[-4-]}
<MI 22928 CMPI.L #0x00000016,D7> {[-4-]}
<MI 2292e BNE 0x22948> {[-4-]}
<POP 22930-22940 Naked> Σ-4 ↓ →0x22946
<MI 22930 MOVE.B D0,-(A7)> Δ-2 {[-4-]|[2, 'D0']}
<Call 0x22932 0x103d0> {[-4-]|[2, 'D0']}
WriteConsoleChar(chr : char)
<POP 22938-2293a StackAdj> Δ+2 {[-4-]}
<MI 2293a CMPI.B #0x0a,D0> {[-4-]}
<MI 2293e BNE 0x22946> {[-4-]}
<POP 22940-22946 Naked> Σ-4 Δ+4 →0x229f2
<POP 22940-22942 StackAdj> Δ+4 {}
<MI 22942 BRA 0x229f2> {}
<POP 22946-22948 Naked> Σ-4 →0x22974 ←0x22930
<MI 22946 BRA 0x22974> {[-4-]}
<POP 22948-22964 Naked> Σ-4 ↓ →0x22968 ←0x2290e
<MI 22948 MOVE.L D7,D1> {[-4-]}
<MI 2294a ADDQ.L #0x1,D1> {[-4-]}
<MI 2294c MOVE.L D1,D2> {[-4-]}
<MI 2294e SUBQ.L #0x1,D2> {[-4-]}
<POP 0x22950 LimitCheck 0x0 ≤ D2 ≤ 0x15> {[-4-]}
<MI 2295a LEA.L (A6-0x454),A0> {[-4-]}
<MI 2295e CMP.B (A0+D2.L+#0xc),D0> {[-4-]}
<MI 22962 BNE 0x22968> {[-4-]}
<POP 22964-22968 Naked> Σ-4 →0x22974
<MI 22964 MOVE.L D1,D7> {[-4-]}
<MI 22966 BRA 0x22974> {[-4-]}
<POP 22968-2296e Naked> Σ-4 ↓ →0x22972 ←0x22948
<MI 22968 CMP.B (A6-0x448),D0> {[-4-]}
<MI 2296c BNE 0x22972> {[-4-]}
<POP 2296e-22972 Naked> Σ-4 →0x22974
<MI 2296e MOVEQ.L #0x01,D7> {[-4-]}
<MI 22970 BRA 0x22974> {[-4-]}
<POP 22972-22974 Naked> Σ-4 ↓ ←0x22968
<MI 22972 MOVEQ.L #0x00,D7> {[-4-]}
<POP 22974-22992 Naked> Σ-4 ↓ →0x2290e ←0x22946 ←0x22964 ←0x2296e
<MI 22974 ADDQ.L #0x1,D6> {[-4-]}
<MI 22976 MOVE.L D6,D4> {[-4-]}
<MI 22978 MOVE.L #0x340,D3> {[-4-]}
<Call 0x2297e 0x10294> {[-4-]}
?divs_d3_d4
<MI 22984 MOVE.L D3,D6> {[-4-]}
<MI 22986 ADDQ.L #0x1,D5> {[-4-]}
<MI 22988 CMPI.L #0x0000033f,D5> {[-4-]}
<MI 2298e BLE 0x2290e> {[-4-]}
<POP 22992-229bc Naked> Σ-4 Δ+4 →0x229f2
<Blob 0x22992 [36] @> Δ-36 {[-4-]|[«36""»]}
<POP 2299e-229a0 StackAdj> Δ-4 {[-4-]|[«36""»]|[-4-]}
<Lit 0x229a0 36> {[-4-]|[«36""»]|[$$>>> could not find crash reason text]}
<Call 0x229b0 0x103e0> {[-4-]|[«36""»]|[$$>>> could not find crash reason text]}
WriteConsoleStringCrLf(str : String)
<POP 229b6-229ba StackAdj> Δ+44 {}
<MI 229ba BRA 0x229f2> {}
<POP 229bc-229ca Naked> Σ-4 Δ+4 ↓ →0x2278e ←0x2278e ←0x2285e
<MI 229bc MOVE.L (A7)+,D0> Δ+4 {}
<MI 229be ADDQ.L #0x1,D0> {}
<MI 229c0 CMPI.L #0x00000004,D0> {}
<MI 229c6 BLE 0x2278e> {}
<POP 229ca-229f2 Naked> Σ0 ↓
<Blob 0x229ca [50] @> Δ-50 {[«50""»]}
<POP 229d6-229d8 StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x229d8 50> {[«50""»]|[$$>>> no previous crash info found in the tombstones]}
<Call 0x229e8 0x103e0> {[«50""»]|[$$>>> no previous crash info found in the tombstones]}
WriteConsoleStringCrLf(str : String)
<POP 229ee-229f2 StackAdj> Δ+54 {}
<POP 229f2-22a24 Naked> Σ0 ↓ →0x22a2a ←0x22940 ←0x22992
<Pointer.fp 0x229f2 <LVAR -0x014 @ 2(r) 4(r)>> Δ-4 {[@@-20]}
<Call 0x229f6 0x10304> {[@@-20]}
GetRtc() : TimeStamp
<MI 229fc MOVE.L (A6-0x14),-(A7)> Δ-4 {[@@-20]|[4, '(A6-0x14)']}
<Call 0x22a00 0x223ee> {[@@-20]|[4, '(A6-0x14)']}
<MI 22a04 MOVE.L (A6-0x10),-(A7)> Δ-4 {[@@-20]|[4, '(A6-0x14)']|[4, '(A6-0x10)']}
<Call 0x22a08 0x223ee> {[@@-20]|[4, '(A6-0x14)']|[4, '(A6-0x10)']}
<POP 22a0c-22a0e StackAdj> Δ+4 {[@@-20]|[4, '(A6-0x14)']}
<MI 22a0e MOVE.L (A7+0x4),D0> {[@@-20]|[4, '(A6-0x14)']}
<MI 22a12 SUB.L (A7)+,D0> Δ+4 {[@@-20]}
<POP 22a14-22a16 StackAdj> Δ+4 {}
<MI 22a16 MOVE.L D0,(A6-0x8)> {}
<MI 22a1a MOVE.W (A6-0x14),D1> {}
<MI 22a1e CMP.W (A6-0x10),D1> {}
<MI 22a22 BCC 0x22a2a> {}
<POP 22a24-22a2a Naked> Σ0 ↓
<MI 22a24 SUBQ.L #0x1,D0> {}
<MI 22a26 MOVE.L D0,(A6-0x8)> {}
<POP 22a2a-22a34 Naked> Σ0 ↓ →0x22a82 ←0x229f2
<MI 22a2a MOVE.L (A6-0x8),D0> {}
<MI 22a2e CMP.L (A6-0x4),D0> {}
<MI 22a32 BLT 0x22a82> {}
<POP 22a34-22a82 Naked> Σ0 →0x22bbe
<MI 22a34 MOVE.L #0x6,0x24498> {}
<POP 22a3e-22a40 StackAdj> Δ-2 {[-2-]}
<Call 0x22a40 0x105ce> {[-2-]}
ReadKeySwitch() : Bool
<MI 22a46 MOVE.B (A7)+,0x24496> Δ+2 {}
<MI 22a4c NEG.B 0x24496> {}
<MI 22a52 ADDQ.B #0x1,0x24496> {}
<MI 22a58 MOVE.B 0x24493,D0> {}
<MI 22a5e LSL.B #0x4,D0> {}
<MI 22a60 LSR.B #0x7,D0> {}
<MI 22a62 AND.B D0,0x24496> {}
<MI 22a68 MOVE.B 0x24493,D0> {}
<MI 22a6e LSL.B #0x5,D0> {}
<MI 22a70 LSR.B #0x7,D0> {}
<MI 22a72 AND.B D0,0x24496> {}
<MI 22a78 MOVE.B #0x01,(A6+0x8)> {}
<MI 22a7e BRA 0x22bbe> {}
<POP 22a82-22b54 Naked> Σ0 Δ-92 ↓ ←0x22a2a
<Blob 0x22a82 [40] @> Δ-40 {[«40""»]}
<Blob 0x22a94 [38] @> Δ-38 {[«40""»]|[«38""»]}
<POP 22aa0-22aa2 StackAdj> Δ-8 {[«40""»]|[«38""»]|[-8-]}
<Lit 0x22aa2 39> {[«40""»]|[«38""»]|[-4-]|[$$*** The previous system crash occurred_]}
<MI 22ab0 MOVE.L (A6-0x8),(A7)> {[«40""»]|[«38""»]|[-4-]|[4, '(A6-0x8)']}
<POP 22aae-22ab0 StackAdj> Δ-8 {[«40""»]|[«38""»]|[-4-]|[4, '(A6-0x8)']|[-8-]}
<Call 0x22ab4 0x102e4> {[«40""»]|[«38""»]|[-4-]|[4, '(A6-0x8)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x22aba 38> {[«40""»]|[«38""»]|[-4-]|[4, '(A6-0x8)']|[-4-]|[$$ days ago but the AUTOBOOT_AFTER_CRASH]}
<Call 0x22aca 0x102d4> {[«40""»]|[«38""»]|[-4-]|[4, '(A6-0x8)']|[-4-]|[$$ days ago but the AUTOBOOT_AFTER_CRASH]}
StringCat3(a, b, c : String) : String
<POP 22ad0-22ad4 StackAdj> Δ+12 {[«40""»]|[«38""»]|[-4-]}
<Call 0x22ad4 0x103e0> {[«40""»]|[«38""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22ada-22ade StackAdj> Δ+82 {}
<Blob 0x22ade [24] @> Δ-24 {[«24""»]}
<Blob 0x22aea [54] @> Δ-54 {[«24""»]|[«54""»]}
<POP 22afc-22afe StackAdj> Δ-8 {[«24""»]|[«54""»]|[-8-]}
<Lit 0x22afe 24> {[«24""»]|[«54""»]|[-4-]|[$$ file specifies that_]}
<MI 22b0c MOVE.L (A6-0x4),(A7)> {[«24""»]|[«54""»]|[-4-]|[4, '(A6-0x4)']}
<POP 22b0a-22b0c StackAdj> Δ-8 {[«24""»]|[«54""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
<Call 0x22b10 0x102e4> {[«24""»]|[«54""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x22b16 53> {[«24""»]|[«54""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$ days or more must elapse since the previous crash in]}
<Call 0x22b26 0x102d4> {[«24""»]|[«54""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$ days or more must elapse since the previous crash in]}
StringCat3(a, b, c : String) : String
<POP 22b2c-22b30 StackAdj> Δ+12 {[«24""»]|[«54""»]|[-4-]}
<Call 0x22b30 0x103e0> {[«24""»]|[«54""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22b36-22b3a StackAdj> Δ+82 {}
<Blob 0x22b3a [80] @> Δ-80 {[«80""»]}
<POP 22b46-22b48 StackAdj> Δ-4 {[«80""»]|[-4-]}
<Pointer.sp 0x22b48 4> Δ-4 {[«80""»]|[-4-]|[^^4]}
<Const 0x22b4c 0x1.2> Δ-2 {[«80""»]|[-4-]|[^^4]|[#1]}
<Const 0x22b50 0x50.2> Δ-2 {[«80""»]|[-4-]|[^^4]|[#1]|[#80]}
<POP 22b54-22b62 Naked> Σ-92 Δ+92 ↓ ←0x2273e
<Call 0x22b54 0x102c4> {[-92-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22b56-22b58 StackAdj> Δ+8 {[-84-]}
<Call 0x22b58 0x103e0> {[-84-]}
WriteConsoleStringCrLf(str : String)
<POP 22b5e-22b62 StackAdj> Δ+84 {}
<POP 22b62-22bbe Naked> Σ0 ↓ ←0x2253a ←0x225d4 ←0x226d0
<MI 22b62 CLR.B 0x24496> {}
<MI 22b68 CLR.B (A6+0x8)> {}
<Blob 0x22b6c [10] @> Δ-10 {[«10""»]}
<Blob 0x22b7e [4] @> Δ-4 {[«10""»]|[«4""»]}
<Blob 0x22b82 [4] @> Δ-4 {[«10""»]|[«4""»]|[«4""»]}
<Blob 0x22b86 [4] @> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 22b8a-22b8c StackAdj> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x22b8c 9> {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]}
<POP 22b9a-22b9c StackAdj> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[-4-]}
<Lit 0x22b9c 12> {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]}
<POP 22baa-22bac StackAdj> Δ-2 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]|[-2-]}
<POP 22bac-22bad StackAdj> Δ+2 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]}
<Const 0x22bad 0x1.2> Δ-2 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]|[#1]}
<Pointer.fp 0x22bb0 <LVAR -0x415 @>> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]|[#1]|[@@-1045]}
<Call 0x22bb4 0x103b0> {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]|[#1]|[@@-1045]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 22bba-22bbe StackAdj> Δ+36 {}
<POP 22bbe-22bc6 Epilogue> Σ0 ←0x22a34
@ 22bc6
<LVAR 0x008 1(r)>
<LVAR -0x001 @ 1(r)>
<LVAR -0x002 @ 1(r)>
<POP 22bc6-22e02 Body>
<POP 22bc6-22bdc Prologue> Σ0 ↓
<POP 22bdc-22bfa RegCacheLoad> Σ0 ↓
<POP 22bfa-22c08 Naked> Σ0 ↓ →0x22d8c
<MI 22bfa MOVE.B 0x24493,D0> {}
<MI 22c00 LSL.B #0x3,D0> {}
<MI 22c02 LSR.B #0x7,D0> {}
<MI 22c04 BEQ 0x22d8c> {}
<POP 22c08-22c12 Naked> Σ0 ↓ →0x22d8c
<MI 22c08 TST.B 0x24495> {}
<MI 22c0e BNE 0x22d8c> {}
<POP 22c12-22c72 Naked> Σ0 ↓ →0x22c86
<MI 22c12 MOVE.B #0x01,0x2449d> {}
<Call 0x22c18 0x103dc> {}
WriteConsoleCrLf(void)
<Call 0x22c1e 0x10538> {}
IPC_Init(void)
<Const 0x22c24 0x1.2> Δ-2 {[#1]}
<Call 0x22c26 0x10502> {[#1]}
IPC_PutBool(a : Bool)
<MI 22c2c CLR.B (A7)> {[#1]}
<Call 0x22c2e 0x10502> {[#1]}
IPC_PutBool(a : Bool)
<POP 22c34-22c35 StackAdj> Δ+2 {}
<Const 0x22c35 0x1.2> Δ-2 {[#1]}
<Call 0x22c36 0x10502> {[#1]}
IPC_PutBool(a : Bool)
<POP 22c3c-22c3e StackAdj> Δ+2 {}
<Call 0x22c3e 0x10514> {}
IPC_PutEnd(void)
<Blob 0x22c44 [10] @> Δ-10 {[«10""»]}
<POP 22c54-22c56 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x22c56 9> {[«10""»]|[$$RUN_UDIAG]}
<Const 0x22c62 0x1.4> Δ-4 {[«10""»]|[$$RUN_UDIAG]|[##1]}
<Const 0x22c66 0x1.2> Δ-2 {[«10""»]|[$$RUN_UDIAG]|[##1]|[#1]}
<Pointer.fp 0x22c68 <LVAR -0x001 @ 1(r)>> Δ-4 {[«10""»]|[$$RUN_UDIAG]|[##1]|[#1]|[@@-1]}
<Call 0x22c6a 0x103b0> {[«10""»]|[$$RUN_UDIAG]|[##1]|[#1]|[@@-1]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 22c6c-22c6e StackAdj> Δ+24 {}
<MI 22c6e TST.B (A6-0x1)> {}
<MI 22c70 BNE 0x22c86> {}
<POP 22c72-22c86 Naked> Σ0 →0x22c8a
<Call 0x22c72 0x10538> {}
IPC_Init(void)
<Pointer.fp 0x22c78 <LVAR -0x002 @ 1(r)>> Δ-4 {[@@-2]}
<Call 0x22c7c 0x10526> {[@@-2]}
IPC_GetBool() : Bool
<POP 22c82-22c84 StackAdj> Δ+4 {}
<MI 22c84 BRA 0x22c8a> {}
<POP 22c86-22c8a Naked> Σ0 ↓ ←0x22c12
<MI 22c86 CLR.B (A6-0x2)> {}
<POP 22c8a-22c92 Naked> Σ0 ↓ →0x22d20 ←0x22c72
<MI 22c8a TST.B (A6-0x2)> {}
<MI 22c8e BEQ 0x22d20> {}
<POP 22c92-22cd6 Naked> Σ0 ↓ →0x22d1e
<Blob 0x22c92 [10] @> Δ-10 {[«10""»]}
<Blob 0x22ca2 [4] @> Δ-4 {[«10""»]|[«4""»]}
<Blob 0x22ca6 [4] @> Δ-4 {[«10""»]|[«4""»]|[«4""»]}
<Blob 0x22caa [4] @> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 22cae-22cb0 StackAdj> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x22cb0 9> {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]}
<POP 22cba-22cbc StackAdj> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[-4-]}
<Lit 0x22cbc 12> {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]}
<POP 22cc6-22cc8 StackAdj> Δ-2 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]|[-2-]}
<POP 22cc8-22cc9 StackAdj> Δ+2 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]}
<Const 0x22cc9 0x1.2> Δ-2 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]|[#1]}
<Pointer.fp 0x22cca <LVAR -0x001 @ 1(r)>> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]|[#1]|[@@-1]}
<Call 0x22ccc 0x103b0> {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]|[#1]|[@@-1]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 22cce-22cd0 StackAdj> Δ+36 {}
<MI 22cd0 TST.B (A6+0x8)> {}
<MI 22cd4 BEQ 0x22d1e> {}
<POP 22cd6-22d1e Naked> Σ0 ↓
<Blob 0x22cd6 [76] @> Δ-76 {[«76""»]}
<POP 22ce2-22ce4 StackAdj> Δ-4 {[«76""»]|[-4-]}
<Lit 0x22ce4 76> {[«76""»]|[$$>>> The Confidence Test passed but the system just crashed due to a possible]}
<Call 0x22cf2 0x103e0> {[«76""»]|[$$>>> The Confidence Test passed but the system just crashed due to a possible]}
WriteConsoleStringCrLf(str : String)
<POP 22cf8-22cfa StackAdj> Δ+80 {}
<Blob 0x22cfa [80] @> Δ-80 {[«80""»]}
<POP 22d06-22d08 StackAdj> Δ-4 {[«80""»]|[-4-]}
<Lit 0x22d08 80> {[«80""»]|[$$ hardware failure. The problem may be intermittent. Try to reboot the system.]}
<Call 0x22d14 0x103e0> {[«80""»]|[$$ hardware failure. The problem may be intermittent. Try to reboot the system.]}
WriteConsoleStringCrLf(str : String)
<POP 22d1a-22d1e StackAdj> Δ+84 {}
<POP 22d1e-22d20 Naked> Σ0 →0x22d8a ←0x22c92
<MI 22d1e BRA 0x22d8a> {}
<POP 22d20-22d8a Naked> Σ0 ↓ ←0x22c8a
<Blob 0x22d20 [10] @> Δ-10 {[«10""»]}
<Blob 0x22d30 [10] @> Δ-10 {[«10""»]|[«10""»]}
<POP 22d3c-22d3e StackAdj> Δ-4 {[«10""»]|[«10""»]|[-4-]}
<Lit 0x22d3e 9> {[«10""»]|[«10""»]|[$$CRASHSAVE]}
<POP 22d48-22d4a StackAdj> Δ-4 {[«10""»]|[«10""»]|[$$CRASHSAVE]|[-4-]}
<Lit 0x22d4a 10> {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_UDIAG]}
<POP 22d54-22d56 StackAdj> Δ-2 {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_UDIAG]|[-2-]}
<POP 22d56-22d57 StackAdj> Δ+2 {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_UDIAG]}
<Const 0x22d57 0x1.2> Δ-2 {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_UDIAG]|[#1]}
<Pointer.fp 0x22d58 <LVAR -0x001 @ 1(r)>> Δ-4 {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_UDIAG]|[#1]|[@@-1]}
<Call 0x22d5a 0x103b0> {[«10""»]|[«10""»]|[$$CRASHSAVE]|[$$DUMP_UDIAG]|[#1]|[@@-1]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 22d5c-22d5d StackAdj> Δ+34 ↓ {}
<Blob 0x22d5d [58] @> Δ-58 {[«58""»]}
<POP 22d6c-22d6e StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x22d6e 57> {[«58""»]|[$$*** the Confidence Test failed: now running the FRU tests]}
<Call 0x22d7c 0x103e0> {[«58""»]|[$$*** the Confidence Test failed: now running the FRU tests]}
WriteConsoleStringCrLf(str : String)
<POP 22d82-22d86 StackAdj> Δ+62 {}
<Call 0x22d86 0x21fa0> {}
<POP 22d8a-22d8c Naked> Σ0 →0x22dfa ←0x22d1e
<MI 22d8a BRA 0x22dfa> {}
<POP 22d8c-22dfa Naked> Σ0 ↓ ←0x22bfa ←0x22c08
<Blob 0x22d8c [40] @> Δ-40 {[«40""»]}
<POP 22d98-22d9a StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x22d9a 40> {[«40""»]|[$$>>> Automatic Crash Recovery is disabled]}
<Call 0x22da8 0x103e0> {[«40""»]|[$$>>> Automatic Crash Recovery is disabled]}
WriteConsoleStringCrLf(str : String)
<POP 22dae-22daf StackAdj> Δ+44 ↓ {}
<Blob 0x22daf [10] @> Δ-10 {[«10""»]}
<Blob 0x22dc0 [4] @> Δ-4 {[«10""»]|[«4""»]}
<Blob 0x22dc4 [4] @> Δ-4 {[«10""»]|[«4""»]|[«4""»]}
<Blob 0x22dc8 [4] @> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 22dcc-22dce StackAdj> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x22dce 9> {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]}
<POP 22dd8-22dda StackAdj> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[-4-]}
<Lit 0x22dda 12> {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]}
<POP 22de4-22de6 StackAdj> Δ-2 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]|[-2-]}
<POP 22de6-22de7 StackAdj> Δ+2 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]}
<Const 0x22de7 0x1.2> Δ-2 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]|[#1]}
<Pointer.fp 0x22de8 <LVAR -0x001 @ 1(r)>> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]|[#1]|[@@-1]}
<Call 0x22dea 0x103b0> {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]|[#1]|[@@-1]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 22dec-22dee StackAdj> Δ+36 {}
<MI 22dee CLR.B 0x24496> {}
<MI 22df4 MOVE.L #0x01,0x24498> {}
<POP 22dfa-22e02 Epilogue> Σ0 ←0x22d8a
@ 22e02
<LVAR 0x008 1(r)>
<LVAR -0x078 2(r)>
<LVAR -0x07a @ 2(w)>
<POP 22e02-22ea2 Body>
<POP 22e02-22e18 Prologue> Σ0 ↓
<POP 22e18-22e1a RegCacheLoad> Σ0 ↓
<POP 22e1a-22e9a Naked> Σ0 ↓
<MI 22e1a MOVE.B (A6+0x8),D0> {}
<MI 22e1e EXTB.W D0> {}
<MI 22e20 MOVE.W D0,(A6-0x7a)> {}
<MI 22e24 CLR.W (A6-0x78)> {}
<Const 0x22e28 0x2.2> Δ-2 {[#2]}
<MI 22e2c LEA.L (A6-0x7a),A0> {[#2]}
<MI 22e30 MOVE.L A0,-(A7)> Δ-4 {[#2]|[4, 'A0']}
<Call 0x22e32 0x103a8> {[#2]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 22e38-22e39 StackAdj> Δ+6 ↓ {}
<Blob 0x22e39 [56] @> Δ-56 {[«56""»]}
<POP 22e4a-22e4c StackAdj> Δ-4 {[«56""»]|[-4-]}
<Lit 0x22e4c 55> {[«56""»]|[$$The R1000 has exceeded maximum safe temperature limits.]}
<Call 0x22e5e 0x103e0> {[«56""»]|[$$The R1000 has exceeded maximum safe temperature limits.]}
WriteConsoleStringCrLf(str : String)
<POP 22e64-22e68 StackAdj> Δ+56 {[-4-]}
<POP 22e68-22e69 StackAdj> Δ+4 {}
<Blob 0x22e69 [4] 0x2449e> Δ-4 {[«4»]}
<POP 22e6e-22e70 StackAdj> Δ-4 {[«4»]|[-4-]}
<Lit 0x22e70> {[«4»]|[$$…]}
<Pointer.sp 0x22e70 4> Δ-4
<Const 0x22e74 0x1.2> Δ-2
<Const 0x22e76 0x4.2> Δ-2
<Call 0x22e7a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22e80-22e82 StackAdj> Δ+8
<Call 0x22e82 0x103d8> {[«4»]|[$$…]}
WriteConsoleString(str : String)
<POP 22e88-22e8a StackAdj> Δ+8 {}
<MI 22e8a CLR.B 0x24496> {}
<MI 22e90 MOVE.L #0x6,0x24498> {}
<POP 22e9a-22ea2 Epilogue> Σ0
@ 22ea2
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x07c 2(r)>
<LVAR -0x07e @ 2(w)>
<POP 22ea2-22ff8 Body>
<POP 22ea2-22eb8 Prologue> Σ0 ↓
<POP 22eb8-22ecc RegCacheLoad> Σ0 ↓
<POP 22ecc-22ef0 Naked> Σ0 ↓ →0x22f18
<MI 22ecc MOVE.B (A6+0x8),D0> {}
<MI 22ed0 EXTB.W D0> {}
<MI 22ed2 MOVE.W D0,(A6-0x7e)> {}
<MI 22ed6 CLR.W (A6-0x7c)> {}
<Const 0x22eda 0x2.2> Δ-2 {[#2]}
<MI 22ede LEA.L (A6-0x7e),A0> {[#2]}
<MI 22ee2 MOVE.L A0,-(A7)> Δ-4 {[#2]|[4, 'A0']}
<Call 0x22ee4 0x103a8> {[#2]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 22eea-22eec StackAdj> Δ+6 {}
<MI 22eec TST.W D0> {}
<MI 22eee BNE 0x22f18> {}
<POP 22ef0-22f18 Naked> Σ0 →0x22f3e
<Blob 0x22ef0 [40] @> Δ-40 {[«40""»]}
<POP 22efc-22efe StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x22efe 40> {[«40""»]|[$$Restarting system after loss of AC power]}
<Call 0x22f0c 0x103e0> {[«40""»]|[$$Restarting system after loss of AC power]}
WriteConsoleStringCrLf(str : String)
<POP 22f12-22f16 StackAdj> Δ+44 {}
<MI 22f16 BRA 0x22f3e> {}
<POP 22f18-22f3e Naked> Σ0 ↓ ←0x22ecc
<Blob 0x22f18 [60] @> Δ-60 {[«60""»]}
<POP 22f24-22f26 StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x22f26 60> {[«60""»]|[$$Restarting system after White Button Reset or DC power fault]}
<Call 0x22f34 0x103e0> {[«60""»]|[$$Restarting system after White Button Reset or DC power fault]}
WriteConsoleStringCrLf(str : String)
<POP 22f3a-22f3e StackAdj> Δ+64 {}
<POP 22f3e-22f94 Naked> Σ0 ↓ →0x22f9a ←0x22ef0
<Blob 0x22f3e [4] 0x2449e> Δ-4 {[«4»]}
<POP 22f44-22f46 StackAdj> Δ-4 {[«4»]|[-4-]}
<Lit 0x22f46> {[«4»]|[$$…]}
<Pointer.sp 0x22f46 4> Δ-4
<Const 0x22f4a 0x1.2> Δ-2
<Const 0x22f4c 0x4.2> Δ-2
<Call 0x22f50 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22f52-22f54 StackAdj> Δ+8
<Call 0x22f54 0x103d8> {[«4»]|[$$…]}
WriteConsoleString(str : String)
<POP 22f5a-22f5c StackAdj> Δ+6 {[-2-]}
<MI 22f5c CLR.B (A7)> {[-2-]}
<Call 0x22f5e 0x21d86> {[-2-]}
<POP 22f62-22f64 StackAdj> Δ+2 {}
<MI 22f64 MOVE.L #0x6,0x24498> {}
<MI 22f6a CLR.B 0x24496> {}
<POP 22f6c-22f6e StackAdj> Δ-2 {[-2-]}
<Call 0x22f6e 0x105ce> {[-2-]}
ReadKeySwitch() : Bool
<MI 22f74 MOVE.B (A7)+,D1> Δ+2 {}
<MI 22f76 NEG.B D1> {}
<MI 22f78 ADDQ.B #0x1,D1> {}
<MI 22f7a MOVE.B 0x24493,D2> {}
<MI 22f80 LSL.B #0x4,D2> {}
<MI 22f82 LSR.B #0x7,D2> {}
<MI 22f84 AND.B D1,D2> {}
<MI 22f86 MOVE.B 0x24493,D1> {}
<MI 22f8c LSL.B #0x5,D1> {}
<MI 22f8e LSR.B #0x7,D1> {}
<MI 22f90 AND.B D2,D1> {}
<MI 22f92 BEQ 0x22f9a> {}
<POP 22f94-22f98 Naked> Σ0 ↓ →0x22f9a
<MI 22f94 TST.W D0> {}
<MI 22f96 BNE 0x22f9a> {}
<POP 22f98-22f9a Naked> Σ0 ↓
<MI 22f98 ADDQ.B #0x1,0x24496> {}
<POP 22f9a-22fe2 Naked> Σ0 ↓ →0x22fec ←0x22f3e ←0x22f94
<Call 0x22f9a 0x10538> {}
IPC_Init(void)
<MI 22fa0 CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x22fa2 0x10502> {[#0]}
IPC_PutBool(a : Bool)
<POP 22fa8-22fa9 StackAdj> Δ+2 ↓ {}
<Blob 0x22fa9 [10] @> Δ-10 {[«10""»]}
<POP 22fb8-22fba StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x22fba 9> {[«10""»]|[$$CONFIGURE]}
<Const 0x22fc8 0x1.4> Δ-4 {[«10""»]|[$$CONFIGURE]|[##1]}
<MI 22fcc CLR.B -(A7)> Δ-2 {[«10""»]|[$$CONFIGURE]|[##1]|[#0]}
<Pointer.fp 0x22fce <LVAR -0x004 @ 1(r)>> Δ-4 {[«10""»]|[$$CONFIGURE]|[##1]|[#0]|[@@-4]}
<Call 0x22fd2 0x103b0> {[«10""»]|[$$CONFIGURE]|[##1]|[#0]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 22fd8-22fdc StackAdj> Δ+24 {}
<MI 22fdc TST.B (A6-0x4)> {}
<MI 22fe0 BNE 0x22fec> {}
<POP 22fe2-22fec Naked> Σ0 →0x22ff0
<MI 22fe2 CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x22fe4 0x22bc6> {[#0]}
<POP 22fe8-22fea StackAdj> Δ+2 {}
<MI 22fea BRA 0x22ff0> {}
<POP 22fec-22ff0 Naked> Σ0 ↓ ←0x22f9a
<MI 22fec CLR.B 0x24496> {}
<MI 22fee MOVE.L #0x01,0x24498> {}
<POP 22ff0-22ff8 Epilogue> Σ0 ←0x22fe2
@ 22ff8
<LVAR 0x008 1(r)>
<LVAR -0x004 @>
<LVAR -0x07c 2(r)>
<LVAR -0x07e @ 2(w)>
<POP 22ff8-231ca Body>
<POP 22ff8-2300e Prologue> Σ0 ↓
<POP 2300e-2302c RegCacheLoad> Σ0 ↓
<POP 2302c-2305c Naked> Σ0 ↓ →0x230a0
<MI 2302c MOVE.B (A6+0x8),D0> {}
<MI 23030 EXTB.W D0> {}
<MI 23032 MOVE.W D0,(A6-0x7e)> {}
<MI 23036 CLR.W (A6-0x7c)> {}
<Const 0x2303a 0x2.2> Δ-2 {[#2]}
<MI 2303c LEA.L (A6-0x7e),A0> {[#2]}
<MI 23040 MOVE.L A0,-(A7)> Δ-4 {[#2]|[4, 'A0']}
<Call 0x23042 0x103a8> {[#2]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 23048-2304a StackAdj> Δ+6 {}
<MI 2304a CLR.B 0x24496> {}
<MI 23050 MOVE.L #0x6,0x24498> {}
<MI 23056 CMPI.B #0x20,D0> {}
<MI 2305a BNE 0x230a0> {}
<POP 2305c-230a0 Naked> Σ0 →0x231c2
<Blob 0x2305c [54] @> Δ-54 {[«54""»]}
<POP 23068-2306a StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x2306a 54> {[«54""»]|[$$Restarting system after automatically updating EEPROMs]}
<Call 0x23076 0x103e0> {[«54""»]|[$$Restarting system after automatically updating EEPROMs]}
WriteConsoleStringCrLf(str : String)
<POP 2307c-2307e StackAdj> Δ+54 {[-4-]}
<POP 2307e-2307f StackAdj> Δ+4 {}
<Blob 0x2307f [4] 0x2449e> Δ-4 {[«4»]}
<POP 23080-23082 StackAdj> Δ-4 {[«4»]|[-4-]}
<Lit 0x23082> {[«4»]|[$$…]}
<Pointer.sp 0x23082 4> Δ-4
<Const 0x23086 0x1.2> Δ-2
<Const 0x23088 0x4.2> Δ-2
<Call 0x2308a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2308c-2308e StackAdj> Δ+8
<Call 0x2308e 0x103d8> {[«4»]|[$$…]}
WriteConsoleString(str : String)
<POP 23094-23096 StackAdj> Δ+8 {}
<MI 23096 MOVE.B #0x01,0x24496> {}
<MI 2309c BRA 0x231c2> {}
<POP 230a0-230a6 Naked> Σ0 ↓ →0x230ea ←0x2302c
<MI 230a0 CMPI.B #0x19,D0> {}
<MI 230a4 BNE 0x230ea> {}
<POP 230a6-230ea Naked> Σ0 →0x231c2
<Blob 0x230a6 [64] @> Δ-64 {[«64""»]}
<POP 230b6-230b8 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x230b8 63> {[«64""»]|[$$Restarting system after operator or program invoked crash (EPO)]}
<Call 0x230c6 0x103e0> {[«64""»]|[$$Restarting system after operator or program invoked crash (EPO)]}
WriteConsoleStringCrLf(str : String)
<POP 230cc-230ce StackAdj> Δ+64 {[-4-]}
<POP 230ce-230cf StackAdj> Δ+4 {}
<Blob 0x230cf [4] 0x2449e> Δ-4 {[«4»]}
<POP 230d0-230d2 StackAdj> Δ-4 {[«4»]|[-4-]}
<Lit 0x230d2> {[«4»]|[$$…]}
<Pointer.sp 0x230d2 4> Δ-4
<Const 0x230d6 0x1.2> Δ-2
<Const 0x230d8 0x4.2> Δ-2
<Call 0x230da 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 230dc-230de StackAdj> Δ+8
<Call 0x230de 0x103d8> {[«4»]|[$$…]}
WriteConsoleString(str : String)
<POP 230e4-230e6 StackAdj> Δ+8 {}
<MI 230e6 BRA 0x231c2> {}
<POP 230ea-2312e Naked> Σ0 ↓ →0x231c0 ←0x230a0
<Blob 0x230ea [50] @> Δ-50 {[«50""»]}
<POP 230f6-230f8 StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x230f8 50> {[«50""»]|[$$Restarting system after operator console BREAK key]}
<Call 0x23104 0x103e0> {[«50""»]|[$$Restarting system after operator console BREAK key]}
WriteConsoleStringCrLf(str : String)
<POP 2310a-2310c StackAdj> Δ+50 {[-4-]}
<POP 2310c-2310d StackAdj> Δ+4 {}
<Blob 0x2310d [4] 0x2449e> Δ-4 {[«4»]}
<POP 2310e-23110 StackAdj> Δ-4 {[«4»]|[-4-]}
<Lit 0x23110> {[«4»]|[$$…]}
<Pointer.sp 0x23110 4> Δ-4
<Const 0x23114 0x1.2> Δ-2
<Const 0x23116 0x4.2> Δ-2
<Call 0x23118 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2311a-2311c StackAdj> Δ+8
<Call 0x2311c 0x103d8> {[«4»]|[$$…]}
WriteConsoleString(str : String)
<POP 23122-23124 StackAdj> Δ+8 {}
<MI 23124 TST.B 0x24494> {}
<MI 2312a BEQ 0x231c0> {}
<POP 2312e-2313e Naked> Σ0 ↓ →0x2314a
<Const 0x2312e 0x1.2> Δ-2 {[#1]}
<Call 0x23130 0x21d86> {[#1]}
<POP 23134-23136 StackAdj> Δ+2 {}
<MI 23136 TST.B 0x24495> {}
<MI 2313c BNE 0x2314a> {}
<POP 2313e-2314a Naked> Σ0 ↓ →0x23170
<MI 2313e MOVE.B 0x24493,D0> {}
<MI 23144 LSL.B #0x3,D0> {}
<MI 23146 LSR.B #0x7,D0> {}
<MI 23148 BNE 0x23170> {}
<POP 2314a-23170 Naked> Σ0 ↓ ←0x2312e
<Blob 0x2314a [66] @> Δ-66 {[«66""»]}
<POP 23156-23158 StackAdj> Δ-4 {[«66""»]|[-4-]}
<Lit 0x23158 66> {[«66""»]|[$$>>> did not save CPU state because Auto Crash Recovery is disabled]}
<Call 0x23166 0x103e0> {[«66""»]|[$$>>> did not save CPU state because Auto Crash Recovery is disabled]}
WriteConsoleStringCrLf(str : String)
<POP 2316c-23170 StackAdj> Δ+70 {}
<POP 23170-231c0 Naked> Σ0 →0x231c2 ←0x2313e
<Blob 0x23170 [10] @> Δ-10 {[«10""»]}
<Blob 0x23182 [4] @> Δ-4 {[«10""»]|[«4""»]}
<Blob 0x23186 [4] @> Δ-4 {[«10""»]|[«4""»]|[«4""»]}
<Blob 0x2318a [4] @> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2318e-23190 StackAdj> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x23190 9> {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]}
<POP 2319c-2319e StackAdj> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[-4-]}
<Lit 0x2319e 12> {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]}
<POP 231aa-231ac StackAdj> Δ-2 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]|[-2-]}
<POP 231ac-231ad StackAdj> Δ+2 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]}
<Const 0x231ad 0x1.2> Δ-2 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]|[#1]}
<Pointer.fp 0x231ae <LVAR -0x004 @>> Δ-4 {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]|[#1]|[@@-4]}
<Call 0x231b2 0x103b0> {[«10""»]|[«4""»]|[«4""»]|[«4""»]|[$$CRASHSAVE]|[$$RECOV_SCREEN]|[#1]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 231b8-231bc StackAdj> Δ+36 {}
<MI 231bc MOVE.L #0x02,0x24498> {}
<MI 231be BRA 0x231c2> {}
<POP 231c0-231c2 Naked> Σ0 ↓ ←0x230ea
<MI 231c0 MOVE.L #0x01,0x24498> {}
<POP 231c2-231ca Epilogue> Σ0 ←0x2305c ←0x230a6 ←0x23170
@ 231ca
<LVAR 0x008 1(r)>
<LVAR -0x002 @ 1(r)>
<POP 231ca-2323c Body>
<POP 231ca-231e0 Prologue> Σ0 ↓
<POP 231e0-231e2 RegCacheLoad> Σ0 ↓
<POP 231e2-231f4 Naked> Σ0 ↓ →0x231fe
<Call 0x231e2 0x21696> {}
<POP 231e6-231e8 StackAdj> Δ-4 {[-4-]}
<Call 0x231e8 0x103f8> {[-4-]}
GetConsoleConfig() : Long
<MI 231ee MOVE.L (A7)+,D0> Δ+4 {}
<MI 231f0 CMP.L #0x01,D0> {}
<MI 231f2 BEQ 0x231fe> {}
<POP 231f4-231fe Naked> Σ0 ↓
<MI 231f4 MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x231f8 0x22368> {[2, '(A6+0x8)']}
<POP 231fc-231fe StackAdj> Δ+2 {}
<POP 231fe-2321a Naked> Σ0 ↓ →0x2321c ←0x231e2
<MI 231fe MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Pointer.fp 0x23202 <LVAR -0x002 @ 1(r)>> Δ-4 {[2, '(A6+0x8)']|[@@-2]}
<Call 0x23206 0x220e4> {[2, '(A6+0x8)']|[@@-2]}
<POP 2320a-2320c StackAdj> Δ+4 {[2, '(A6+0x8)']}
<POP 2320c-2320d StackAdj> Δ+2 {}
<Const 0x2320d 0x1.2> Δ-2 {[#1]}
<Call 0x2320e 0x21d86> {[#1]}
<POP 23212-23214 StackAdj> Δ+2 {}
<MI 23214 TST.B (A6-0x2)> {}
<MI 23218 BEQ 0x2321c> {}
<POP 2321a-2321c Naked> Σ0 →0x23230
<MI 2321a BRA 0x23230> {}
<POP 2321c-23226 Naked> Σ0 ↓ →0x23230 ←0x231fe
<POP 2321c-2321e StackAdj> Δ-2 {[-2-]}
<Call 0x2321e 0x224ce> {[-2-]}
<MI 23222 TST.B (A7)+> Δ+2 {}
<MI 23224 BEQ 0x23230> {}
<POP 23226-23230 Naked> Σ0 →0x23234
<Const 0x23226 0x1.2> Δ-2 {[#1]}
<Call 0x23228 0x22bc6> {[#1]}
<POP 2322c-2322e StackAdj> Δ+2 {}
<MI 2322e BRA 0x23234> {}
<POP 23230-23234 Naked> Σ0 ↓ ←0x2321a ←0x2321c
<Call 0x23230 0x21fa0> {}
<POP 23234-2323c Epilogue> Σ0 ←0x23226
@ 2323c
<LVAR 0x008 1(r)>
<LVAR -0x076 2(r)>
<LVAR -0x078 2(w)>
<LVAR -0x07a @ 2(w)>
<POP 2323c-232d2 Body>
<POP 2323c-23252 Prologue> Σ0 ↓
<POP 23252-23256 RegCacheLoad> Σ0 ↓
<POP 23256-23286 Naked> Σ0 ↓ →0x23290
<MI 23256 MOVE.W #0x03,(A6-0x7a)> {}
<MI 2325a MOVE.B (A6+0x8),D0> {}
<MI 2325e EXTB.W D0> {}
<MI 23260 MOVE.W D0,(A6-0x78)> {}
<MI 23264 CLR.W (A6-0x76)> {}
<Const 0x23268 0x3.2> Δ-2 {[#3]}
<MI 2326a LEA.L (A6-0x7a),A0> {[#3]}
<MI 2326e MOVE.L A0,-(A7)> Δ-4 {[#3]|[4, 'A0']}
<Call 0x23270 0x103a8> {[#3]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 23276-23278 StackAdj> Δ+4 {[#3]}
<POP 23278-23279 StackAdj> Δ+2 {}
<Const 0x23279 0x1.2> Δ-2 {[#1]}
<Call 0x2327a 0x21d86> {[#1]}
<Call 0x2327e 0x224ce> {[#1]}
<MI 23282 TST.B (A7)+> Δ+2 {}
<MI 23284 BEQ 0x23290> {}
<POP 23286-23290 Naked> Σ0 →0x232ca
<MI 23286 CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x23288 0x22bc6> {[#0]}
<POP 2328c-2328e StackAdj> Δ+2 {}
<MI 2328e BRA 0x232ca> {}
<POP 23290-232ca Naked> Σ0 ↓ ←0x23256
<MI 23290 CLR.B 0x24496> {}
<MI 23296 MOVE.L #0x2,0x24498> {}
<Blob 0x232a0 [32] @> Δ-32 {[«32""»]}
<POP 232ac-232ae StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x232ae 32> {[«32""»]|[$$>>> Please make a CRASHDUMP tape]}
<Call 0x232c0 0x103e0> {[«32""»]|[$$>>> Please make a CRASHDUMP tape]}
WriteConsoleStringCrLf(str : String)
<POP 232c6-232ca StackAdj> Δ+36 {}
<POP 232ca-232d2 Epilogue> Σ0 ←0x23286
@ 232d2
<LVAR -0x078 2(r)>
<LVAR -0x07a 2(w)>
<LVAR -0x07c @ 2(w)>
<POP 232d2-23342 Body>
<POP 232d2-232e8 Prologue> Σ0 ↓
<POP 232e8-232ee RegCacheLoad> Σ0 ↓
<POP 232ee-2333a Naked> Σ0 ↓
<MI 232ee MOVE.W #0x4,(A6-0x7c)> {}
<MI 232f4 MOVE.W #0x9,(A6-0x7a)> {}
<MI 232fa CLR.W (A6-0x78)> {}
<Const 0x232fe 0x3.2> Δ-2 {[#3]}
<MI 23302 LEA.L (A6-0x7c),A0> {[#3]}
<MI 23306 MOVE.L A0,-(A7)> Δ-4 {[#3]|[4, 'A0']}
<Call 0x23308 0x103a8> {[#3]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 2330e-23310 StackAdj> Δ+4 {[#3]}
<MI 23310 CLR.B (A7)> {[#3]}
<Call 0x23312 0x21d86> {[#3]}
<Call 0x23316 0x105ce> {[#3]}
ReadKeySwitch() : Bool
<MI 2331c MOVE.B (A7)+,0x24496> Δ+2 {}
<MI 2331e NEG.B 0x24496> {}
<MI 23320 ADDQ.B #0x1,0x24496> {}
<MI 23322 MOVE.B 0x24493,D0> {}
<MI 23328 LSL.B #0x4,D0> {}
<MI 2332a LSR.B #0x7,D0> {}
<MI 2332c AND.B D0,0x24496> {}
<MI 2332e MOVE.B 0x24493,D0> {}
<MI 23334 LSL.B #0x5,D0> {}
<MI 23336 LSR.B #0x7,D0> {}
<MI 23338 AND.B D0,0x24496> {}
<POP 2333a-23342 Epilogue> Σ0
@ 23342
<LVAR 0x008 1(r)>
<POP 23342-233f0 Body> Δ+2
<POP 23342-23358 Prologue> Σ0 ↓
<POP 23358-233a0 Naked> Σ0 →0x233bc →0x233be →0x233c0 →0x233c8 →0x233ca →0x233cc →0x233ce →0x233d0 →0x233d2 →0x233d4 →0x233da →0x233dc →0x233de →0x233e0
<MI 23358 MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x2335c 0x22368> {[2, '(A6+0x8)']}
<POP 23360-23362 StackAdj> Δ+2 {}
<Blob 0x23362 [4] 0x2449e> Δ-4 {[«4»]}
<POP 23368-2336a StackAdj> Δ-4 {[«4»]|[-4-]}
<Lit 0x2336a> {[«4»]|[$$…]}
<Pointer.sp 0x2336a 4> Δ-4
<Const 0x2336e 0x1.2> Δ-2
<Const 0x23372 0x4.2> Δ-2
<Call 0x23376 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2337c-2337e StackAdj> Δ+8
<Call 0x2337e 0x103d8> {[«4»]|[$$…]}
WriteConsoleString(str : String)
<POP 23384-23386 StackAdj> Δ+8 {}
<MI 23386 MOVE.B (A6+0x8),D0> {}
<MI 2338a EXTB.W D0> {}
<MI 2338c MOVE.W D0,D1> {}
<POP 0x2338e LimitCheck 0x0 ≤ D1 ≤ 0xd> {}
<MI 23396 ADD.W D1,D1> {}
<MI 23398 SWITCH D1.W> {}
<POP 233bc-233be Naked> Σ0 →0x233e8 ←0x23358
<MI 233bc BRA 0x233e8> {}
<POP 233be-233c0 Naked> Σ0 →0x233e0 ←0x23358
<MI 233be BRA 0x233e0> {}
<POP 233c0-233c8 Naked> Σ0 Δ-2 →0x233e6 ←0x23358 ←0x233ca ←0x233cc ←0x233ce ←0x233dc ←0x233de
<MI 233c0 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Call 0x233c2 0x231ca> {[2, 'D0']}
<MI 233c6 BRA 0x233e6> {[2, 'D0']}
<POP 233c8-233ca Naked> Σ0 →0x233e0 ←0x23358
<MI 233c8 BRA 0x233e0> {}
<POP 233ca-233cc Naked> Σ0 →0x233c0 ←0x23358
<MI 233ca BRA 0x233c0> {}
<POP 233cc-233ce Naked> Σ0 →0x233c0 ←0x23358
<MI 233cc BRA 0x233c0> {}
<POP 233ce-233d0 Naked> Σ0 →0x233c0 ←0x23358
<MI 233ce BRA 0x233c0> {}
<POP 233d0-233d2 Naked> Σ0 →0x233e0 ←0x23358
<MI 233d0 BRA 0x233e0> {}
<POP 233d2-233d4 Naked> Σ0 →0x233e0 ←0x23358
<MI 233d2 BRA 0x233e0> {}
<POP 233d4-233da Naked> Σ0 →0x233e8 ←0x23358
<Call 0x233d4 0x232d2> {}
<MI 233d8 BRA 0x233e8> {}
<POP 233da-233dc Naked> Σ0 →0x233e0 ←0x23358
<MI 233da BRA 0x233e0> {}
<POP 233dc-233de Naked> Σ0 →0x233c0 ←0x23358
<MI 233dc BRA 0x233c0> {}
<POP 233de-233e0 Naked> Σ0 →0x233c0 ←0x23358
<MI 233de BRA 0x233c0> {}
<POP 233e0-233e6 Naked> Σ0 Δ-2 ↓ ←0x23358 ←0x233be ←0x233c8 ←0x233d0 ←0x233d2 ←0x233da
<MI 233e0 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Call 0x233e2 0x2323c> {[2, 'D0']}
<POP 233e6-233e8 Naked> Σ-2 Δ+2 ↓ ←0x233c0
<POP 233e6-233e8 StackAdj> Δ+2 {}
<POP 233e8-233f0 Epilogue> Σ0 ←0x233bc ←0x233d4
@ 233f0
<LVAR 0x012 @ 4(r)>
<LVAR 0x00e @ 4(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 233f0-23550 Body>
<POP 233f0-23406 Prologue> Σ0 ↓
<POP 23406-23424 RegCacheLoad> Σ0 ↓
<POP 23424-234a2 Naked> Σ0 →0x234b8 →0x234b8 →0x234b8 →0x2350c →0x2350c →0x234ca →0x2350c →0x234ca →0x2350c →0x234ca →0x234ca
<POP 23424-23426 StackAdj> Δ-4 {[-4-]}
<MI 23426 MOVE.L (A6+0x12),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x12)']}
<Call 0x23428 0x102cc> {[-4-]|[4, '(A6+0x12)']}
StringDup(a : String) : String
<POP 2342a-2342c StackAdj> Δ+4 {[-4-]}
<Call 0x2342c 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23432-23434 StackAdj> Δ+2 {[-2-]}
<POP 23434-23435 StackAdj> Δ+2 {}
<Blob 0x23435 [2] @> Δ-2 {[«2""»]}
<POP 23438-2343a StackAdj> Δ-4 {[«2""»]|[-4-]}
<Lit 0x2343a 2> {[«2""»]|[$$ _]}
<Call 0x2344a 0x103d8> {[«2""»]|[$$ _]}
WriteConsoleString(str : String)
<POP 23450-23452 StackAdj> Δ+2 {[«2""»]|[-2-]}
<MI 23452 MOVE.L (A6+0xe),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0xe)']}
<Call 0x23454 0x102cc> {[«2""»]|[-2-]|[4, '(A6+0xe)']}
StringDup(a : String) : String
<MI 23456 MOVE.L (A6+0xa),(A7)> {[«2""»]|[-2-]|[4, '(A6+0xa)']}
<Call 0x2345a 0x10450> {[«2""»]|[-2-]|[4, '(A6+0xa)']}
FS_10450(&, &)
<POP 23460-23462 StackAdj> Δ+4 {[«2""»]|[-2-]}
<POP 23462-23463 StackAdj> Δ+4 {}
<Blob 0x23463 [4] 0x2449e> Δ-4 {[«4»]}
<POP 23468-2346a StackAdj> Δ-4 {[«4»]|[-4-]}
<Lit 0x2346a> {[«4»]|[$$…]}
<Pointer.sp 0x2346a 4> Δ-4
<Const 0x2346e 0x1.2> Δ-2
<Const 0x23470 0x4.2> Δ-2
<Call 0x23474 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2347a-2347c StackAdj> Δ+8
<Call 0x2347c 0x103d8> {[«4»]|[$$…]}
WriteConsoleString(str : String)
<POP 23482-23484 StackAdj> Δ+8 {}
<MI 23484 MOVE.L #0x6,0x24498> {}
<MI 2348a MOVE.B (A6+0x8),D0> {}
<MI 2348e EXTB.W D0> {}
<POP 0x23490 LimitCheck 0x0 ≤ D0 ≤ 0xa> {}
<MI 23498 ADD.W D0,D0> {}
<MI 2349a SWITCH D0.W> {}
<POP 234b8-234bc Naked> Σ0 ↓ →0x234c6 ←0x23424 ←0x23424 ←0x23424
<MI 234b8 TST.B 0x24494> {}
<MI 234ba BEQ 0x234c6> {}
<POP 234bc-234c6 Naked> Σ0 →0x234c8
<MI 234bc CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x234be 0x21d86> {[#0]}
<POP 234c2-234c4 StackAdj> Δ+2 {}
<MI 234c4 BRA 0x234c8> {}
<POP 234c6-234c8 Naked> Σ0 ↓ ←0x234b8
<MI 234c6 MOVE.L #0x01,0x24498> {}
<POP 234c8-234ca Naked> Σ0 →0x23534 ←0x234bc
<MI 234c8 BRA 0x23534> {}
<POP 234ca-234dc Naked> Σ0 ↓ →0x234fa ←0x23424 ←0x23424 ←0x23424 ←0x23424
<Call 0x234ca 0x21696> {}
<POP 234ce-234d0 StackAdj> Δ-4 {[-4-]}
<Call 0x234d0 0x103f8> {[-4-]}
GetConsoleConfig() : Long
<MI 234d6 MOVE.L (A7)+,D0> Δ+4 {}
<MI 234d8 CMP.L #0x01,D0> {}
<MI 234da BEQ 0x234fa> {}
<POP 234dc-234fa Naked> Σ0 ↓
<POP 234dc-234de StackAdj> Δ-4 {[-4-]}
<MI 234de MOVE.L (A6+0x12),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x12)']}
<Call 0x234e0 0x102cc> {[-4-]|[4, '(A6+0x12)']}
StringDup(a : String) : String
<POP 234e2-234e4 StackAdj> Δ+4 {[-4-]}
<Call 0x234e4 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<MI 234ea MOVE.L (A6+0xe),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xe)']}
<Call 0x234ec 0x102cc> {[-4-]|[4, '(A6+0xe)']}
StringDup(a : String) : String
<MI 234ee MOVE.L (A6+0xa),(A7)> {[-4-]|[4, '(A6+0xa)']}
<Call 0x234f2 0x10450> {[-4-]|[4, '(A6+0xa)']}
FS_10450(&, &)
<POP 234f8-234fa StackAdj> Δ+8 {}
<POP 234fa-234fe Naked> Σ0 ↓ →0x23508 ←0x234ca
<MI 234fa TST.B 0x24494> {}
<MI 234fc BEQ 0x23508> {}
<POP 234fe-23508 Naked> Σ0 →0x2350a
<MI 234fe CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x23500 0x21d86> {[#0]}
<POP 23504-23506 StackAdj> Δ+2 {}
<MI 23506 BRA 0x2350a> {}
<POP 23508-2350a Naked> Σ0 ↓ ←0x234fa
<MI 23508 MOVE.L #0x01,0x24498> {}
<POP 2350a-2350c Naked> Σ0 →0x23534 ←0x234fe
<MI 2350a BRA 0x23534> {}
<POP 2350c-23510 Naked> Σ0 ↓ →0x23532 ←0x23424 ←0x23424 ←0x23424 ←0x23424
<MI 2350c TST.B 0x24494> {}
<MI 2350e BEQ 0x23532> {}
<POP 23510-2351e Naked> Σ0 ↓ →0x23528
<Const 0x23510 0x1.2> Δ-2 {[#1]}
<Call 0x23512 0x21d86> {[#1]}
<Call 0x23516 0x224ce> {[#1]}
<MI 2351a TST.B (A7)+> Δ+2 {}
<MI 2351c BEQ 0x23528> {}
<POP 2351e-23528 Naked> Σ0 →0x23530
<MI 2351e CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x23520 0x22bc6> {[#0]}
<POP 23524-23526 StackAdj> Δ+2 {}
<MI 23526 BRA 0x23530> {}
<POP 23528-23530 Naked> Σ0 ↓ ←0x23510
<MI 23528 CLR.B 0x24496> {}
<MI 2352e MOVE.L #0x02,0x24498> {}
<POP 23530-23532 Naked> Σ0 →0x23534 ←0x2351e
<MI 23530 BRA 0x23534> {}
<POP 23532-23534 Naked> Σ0 ↓ ←0x2350c
<MI 23532 MOVE.L #0x01,0x24498> {}
<POP 23534-23548 Naked> Σ0 ↓ ←0x234c8 ←0x2350a ←0x23530
<Pointer.fp 0x23534 <LVAR 0x012 @ 4(r)>> Δ-4 {[@@18]}
<Call 0x23536 0x102bc> {[@@18]}
FreeString(VAR a : String)
<POP 2353c-2353e StackAdj> Δ+4 {}
<Pointer.fp 0x2353e <LVAR 0x00e @ 4(r)>> Δ-4 {[@@14]}
<Call 0x23540 0x102bc> {[@@14]}
FreeString(VAR a : String)
<POP 23546-23548 StackAdj> Δ+4 {}
<POP 23548-23550 Epilogue> Σ0
@ 23550
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 4(r)>
<LVAR -0x07e @ 2(w)>
<POP 23550-2362e Body>
<POP 23550-23566 Prologue> Σ0 ↓
<POP 23566-23570 RegCacheLoad> Σ0 ↓
<POP 23570-23626 Naked> Σ0 ↓
<Const 0x23570 0xfc08.4> Δ-4 {[##64520]}
<MI 23576 LEA.L (A6-0x4),A0> {[##64520]}
<MI 2357a MOVE.L A0,-(A7)> Δ-4 {[##64520]|[4, 'A0']}
<Const 0x2357c 0x4.2> Δ-2 {[##64520]|[4, 'A0']|[#4]}
<Call 0x2357e 0x10238> {[##64520]|[4, 'A0']|[#4]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 23584-23588 StackAdj> Δ+10 {}
<MI 23588 MOVE.L (A6+0xa),D0> {}
<POP 0x2358c LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 23596 MOVE.W D0,(A6-0x7e)> {}
<Const 0x2359a 0x4.2> Δ-2 {[#4]}
<MI 2359c LEA.L (A6-0x7e),A0> {[#4]}
<MI 235a0 MOVE.L A0,-(A7)> Δ-4 {[#4]|[4, 'A0']}
<Call 0x235a2 0x103a8> {[#4]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 235a8-235aa StackAdj> Δ+6 {}
<Blob 0x235aa [42] @> Δ-42 {[«42""»]}
<POP 235b6-235b8 StackAdj> Δ-4 {[«42""»]|[-4-]}
<POP 235b8-235b9 StackAdj> Δ+2 {[«42""»]|[-2-]}
<Blob 0x235b9 [2] @> Δ-2 {[«42""»]|[-2-]|[«2""»]}
<MI 235bc MOVE.B 0x2102f,(A7+0x1)> {[«42""»]|[-2-]|[«2""»]}
<MI 235c2 MOVE.B 0x21030,(A7+0x2)> {[«42""»]|[-2-]|[«2""»]}
<Blob 0x235c8 [18] @> Δ-18 {[«42""»]|[-2-]|[«2""»]|[«18""»]}
<POP 235d4-235d6 StackAdj> Δ-8 {[«42""»]|[-2-]|[«2""»]|[«18""»]|[-8-]}
<Lit 0x235d6 42> {[«42""»]|[-2-]|[«2""»]|[«18""»]|[-4-]|[$$Restaring system after IOP Kernel crash @_]}
<MI 235e2 MOVE.L (A6-0x4),(A7)> {[«42""»]|[-2-]|[«2""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']}
<POP 235e0-235e2 StackAdj> Δ-8 {[«42""»]|[-2-]|[«2""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
<Const 0x235e6 0x5.4> Δ-4 {[«42""»]|[-2-]|[«2""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-8-]|[##5]}
<Call 0x235ea 0x102e8> {[«42""»]|[-2-]|[«2""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-8-]|[##5]}
Long2HexString(val : Long; ndig : Long) : String
<POP 235f0-235f2 StackAdj> Δ+4 {[«42""»]|[-2-]|[«2""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-8-]}
<Lit 0x235f2> {[«42""»]|[-2-]|[«2""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$…]}
<Pointer.sp 0x235f2 34> Δ-4
<Const 0x235f6 0x1.2> Δ-2
<Const 0x235f8 0x3.2> Δ-2
<Call 0x235fc 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 235fe-23600 StackAdj> Δ+8
<Call 0x23600 0x102d4> {[«42""»]|[-2-]|[«2""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']|[-4-]|[$$…]}
StringCat3(a, b, c : String) : String
<POP 23606-23608 StackAdj> Δ+8 {[«42""»]|[-2-]|[«2""»]|[«18""»]|[-4-]|[4, '(A6-0x4)']}
<Lit 0x23608 18> {[«42""»]|[-2-]|[«2""»]|[«18""»]|[-4-]|[$$IOP_PANICS.ERRMESS]}
<POP 23614-23616 StackAdj> Δ-4 {[«42""»]|[-2-]|[«2""»]|[«18""»]|[-4-]|[$$IOP_PANICS.ERRMESS]|[-4-]}
<MI 23616 MOVE.L (A6+0xa),(A7)> {[«42""»]|[-2-]|[«2""»]|[«18""»]|[-4-]|[$$IOP_PANICS.ERRMESS]|[4, '(A6+0xa)']}
<MI 2361a MOVE.B (A6+0x8),-(A7)> Δ-2 {[«42""»]|[-2-]|[«2""»]|[«18""»]|[-4-]|[$$IOP_PANICS.ERRMESS]|[4, '(A6+0xa)']|[2, '(A6+0x8)']}
<Call 0x2361e 0x233f0> {[«42""»]|[-2-]|[«2""»]|[«18""»]|[-4-]|[$$IOP_PANICS.ERRMESS]|[4, '(A6+0xa)']|[2, '(A6+0x8)']}
<POP 23622-23626 StackAdj> Δ+78 {}
<POP 23626-2362e Epilogue> Σ0
@ 2362e
<LVAR 0x00a 1(r)>
<LVAR 0x008 1(r)>
<LVAR -0x07a 2(r)>
<LVAR -0x07c @ 2(w)>
<POP 2362e-236bc Body>
<POP 2362e-23644 Prologue> Σ0 ↓
<POP 23644-23646 RegCacheLoad> Σ0 ↓
<POP 23646-236b4 Naked> Σ0 ↓
<MI 23646 MOVE.B (A6+0xa),D0> {}
<MI 2364a EXTB.W D0> {}
<MI 2364c MOVE.W D0,(A6-0x7c)> {}
<MI 23650 CLR.W (A6-0x7a)> {}
<Const 0x23654 0x2.2> Δ-2 {[#2]}
<MI 23658 LEA.L (A6-0x7c),A0> {[#2]}
<MI 2365c MOVE.L A0,-(A7)> Δ-4 {[#2]|[4, 'A0']}
<Call 0x2365e 0x103a8> {[#2]|[4, 'A0']}
Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer)
<POP 23664-23666 StackAdj> Δ+6 {}
<Blob 0x23666 [52] @> Δ-52 {[«52""»]}
<Blob 0x23672 [18] @> Δ-18 {[«52""»]|[«18""»]}
<POP 2367e-23680 StackAdj> Δ-4 {[«52""»]|[«18""»]|[-4-]}
<Lit 0x23680 52> {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]}
<POP 23690-23692 StackAdj> Δ-4 {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[-4-]}
<Lit 0x23692 18> {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[$$IOA_PANICS.ERRMESS]}
<MI 236a4 EXTW.L D0> {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[$$IOA_PANICS.ERRMESS]}
<MI 236a6 MOVE.L D0,-(A7)> Δ-4 {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[$$IOA_PANICS.ERRMESS]|[4, 'D0']}
<MI 236a8 MOVE.B (A6+0x8),-(A7)> Δ-2 {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[$$IOA_PANICS.ERRMESS]|[4, 'D0']|[2, '(A6+0x8)']}
<Call 0x236ac 0x233f0> {[«52""»]|[«18""»]|[$$Restaring system after IOA reboot request, reason =>]|[$$IOA_PANICS.ERRMESS]|[4, 'D0']|[2, '(A6+0x8)']}
<POP 236b0-236b4 StackAdj> Δ+84 {}
<POP 236b4-236bc Epilogue> Σ0
@ 236bc
<POP 236bc-2373c Body>
<POP 236bc-236d2 Prologue> Σ0 ↓
<POP 236d2-236da Naked> Σ0 ↓ →0x236ec
<MI 236d2 TST.B 0x24494> {}
<MI 236d8 BNE 0x236ec> {}
<POP 236da-236ec Naked> Σ0 →0x23734
<Const 0x236da 0x5.2> Δ-2 {[#5]}
<Const 0x236de 0x2.2> Δ-2 {[#5]|[#2]}
<Call 0x236e2 0x1048a> {[#5]|[#2]}
DiProcCmd(board : Byte; cmd : Byte)
<POP 236e8-236ea StackAdj> Δ+4 {}
<MI 236ea BRA 0x23734> {}
<POP 236ec-2370c Naked> Σ0 ↓ ←0x236d2
<Call 0x236ec 0x2402e> {}
exp_FREEZE_WORLD.FIU()
<Call 0x236f2 0x24150> {}
exp_MF.IOC()
<Call 0x236f8 0x240ac> {}
exp_MF.VAL()
<Call 0x236fe 0x24098> {}
exp_MF.TYP()
<Call 0x23704 0x2404c> {}
exp_RESET.SEQ()
<MI 2370a MOVEQ.L #0x0c,D7> {}
<POP 2370c-2371c Naked> Σ0 ↓ →0x23726 ←0x23726
<POP 2370c-2370e StackAdj> Δ-2 {[-2-]}
<MI 2370e MOVE.B D7,-(A7)> Δ-2 {[-2-]|[2, 'D7']}
<Call 0x23710 0x104c0> {[-2-]|[2, 'D7']}
HasBoard(diproc_addr: Byte) : Byte
<POP 23716-23718 StackAdj> Δ+2 {[-2-]}
<MI 23718 TST.B (A7)+> Δ+2 {}
<MI 2371a BEQ 0x23726> {}
<POP 2371c-23726 Naked> Σ0 ↓
<MI 2371c MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']}
<Call 0x2371e 0x240cc> {[2, 'D7']}
<POP 23724-23726 StackAdj> Δ+2 {}
<POP 23726-2372e Naked> Σ0 ↓ →0x2370c ←0x2370c
<MI 23726 ADDQ.B #0x1,D7> {}
<MI 23728 CMPI.B #0x0f,D7> {}
<MI 2372c BLE 0x2370c> {}
<POP 2372e-23734 Naked> Σ0 ↓
<Call 0x2372e 0x2401a> {}
exp_MF.FIU()
<POP 23734-2373c Epilogue> Σ0 ←0x236da
@ 2373c
<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 2373c-238a2 Body>
<POP 2373c-23752 Prologue> Σ0 ↓
<POP 23752-23760 RegCacheLoad> Σ0 ↓
<POP 23760-2376e Naked> Σ0 ↓ →0x23772
<MI 23760 CLR.B (A6-0x8)> {}
<MI 23762 MOVEA.L (A6+0x8),A0> {}
<MI 23764 CLR.B (A0)> {}
<MI 23766 TST.B 0x24494> {}
<MI 2376c BNE 0x23772> {}
<POP 2376e-23772 Naked> Σ0 →0x2389a
<MI 2376e BRA 0x2389a> {}
<POP 23772-23782 Naked> Σ0 ↓ →0x2381e ←0x23760
<Pointer.fp 0x23772 <LVAR -0x008 @ 1(r)>> Δ-4 {[@@-8]}
<Call 0x23774 0x24082> {[@@-8]}
exp_HALT.SEQ(&Fr)
<POP 2377a-2377c StackAdj> Δ+4 {}
<MI 2377c TST.B (A6-0x8)> {}
<MI 2377e BEQ 0x2381e> {}
<POP 23782-237ae Naked> Σ0 ↓ →0x23816
<Pointer.fp 0x23782 <LVAR -0x007 @ 1(r)>> Δ-4 {[@@-7]}
<Call 0x23786 0x24062> {[@@-7]}
exp_READ_CUR_UADR.SEQ(&Sr_2)
<POP 2378c-2378e StackAdj> Δ+4 {}
<MI 2378e CLR.L D0> {}
<MI 23790 MOVE.B (A6-0x7),D0> {}
<MI 23794 ASL.W #0x8,D0> {}
<MI 23796 CLR.L D1> {}
<MI 23798 MOVE.B (A6-0x6),D1> {}
<MI 2379c ADD.W D0,D1> {}
<MI 2379e EXTW.L D1> {}
<MI 237a0 MOVE.L D1,D6> {}
<MI 237a2 MOVE.L D6,D0> {}
<MI 237a4 SUBI.L #0x00000200,D0> {}
<MI 237aa CMP.L #0x09,D0> {}
<MI 237ac BHI 0x23816> {}
<POP 237ae-237b8 Naked> Σ0 →0x237cc →0x237d4 →0x237dc →0x237e4 →0x237ec →0x237f4 →0x237fc →0x23802 →0x23808 →0x2380e
<MI 237ae ADD.W D0,D0> {}
<MI 237b0 SWITCH D0.W> {}
<POP 237cc-237d4 Naked> Σ0 →0x2381c ←0x237ae
<MI 237cc MOVEA.L (A6+0x8),A0> {}
<MI 237ce MOVE.B #0x01,(A0)> {}
<MI 237d2 BRA 0x2381c> {}
<POP 237d4-237dc Naked> Σ0 →0x2381c ←0x237ae
<MI 237d4 MOVEA.L (A6+0x8),A0> {}
<MI 237d6 MOVE.B #0x02,(A0)> {}
<MI 237da BRA 0x2381c> {}
<POP 237dc-237e4 Naked> Σ0 →0x2381c ←0x237ae
<MI 237dc MOVEA.L (A6+0x8),A0> {}
<MI 237de MOVE.B #0x03,(A0)> {}
<MI 237e2 BRA 0x2381c> {}
<POP 237e4-237ec Naked> Σ0 →0x2381c ←0x237ae
<MI 237e4 MOVEA.L (A6+0x8),A0> {}
<MI 237e6 MOVE.B #0x04,(A0)> {}
<MI 237ea BRA 0x2381c> {}
<POP 237ec-237f4 Naked> Σ0 →0x2381c ←0x237ae
<MI 237ec MOVEA.L (A6+0x8),A0> {}
<MI 237ee MOVE.B #0x05,(A0)> {}
<MI 237f2 BRA 0x2381c> {}
<POP 237f4-237fc Naked> Σ0 →0x2381c ←0x237ae
<MI 237f4 MOVEA.L (A6+0x8),A0> {}
<MI 237f6 MOVE.B #0x06,(A0)> {}
<MI 237fa BRA 0x2381c> {}
<POP 237fc-23802 Naked> Σ0 →0x2381c ←0x237ae
<MI 237fc MOVEA.L (A6+0x8),A0> {}
<MI 237fe MOVE.B #0x07,(A0)> {}
<MI 23800 BRA 0x2381c> {}
<POP 23802-23808 Naked> Σ0 →0x2381c ←0x237ae
<MI 23802 MOVEA.L (A6+0x8),A0> {}
<MI 23804 MOVE.B #0x08,(A0)> {}
<MI 23806 BRA 0x2381c> {}
<POP 23808-2380e Naked> Σ0 →0x2381c ←0x237ae
<MI 23808 MOVEA.L (A6+0x8),A0> {}
<MI 2380a MOVE.B #0x09,(A0)> {}
<MI 2380c BRA 0x2381c> {}
<POP 2380e-23816 Naked> Σ0 →0x2381c ←0x237ae
<MI 2380e MOVEA.L (A6+0x8),A0> {}
<MI 23810 MOVE.B #0x0a,(A0)> {}
<MI 23814 BRA 0x2381c> {}
<POP 23816-2381c Naked> Σ0 ↓ ←0x23782
<MI 23816 MOVEA.L (A6+0x8),A0> {}
<MI 23818 MOVE.B #0x0d,(A0)> {}
<POP 2381c-2381e Naked> Σ0 →0x2389a ←0x237cc ←0x237d4 ←0x237dc ←0x237e4 ←0x237ec ←0x237f4 ←0x237fc ←0x23802 ←0x23808 ←0x2380e
<MI 2381c BRA 0x2389a> {}
<POP 2381e-23820 Naked> Σ0 ↓ ←0x23772
<MI 2381e MOVEQ.L #0x00,D7> {}
<POP 23820-2383c Naked> Σ0 ↓ →0x23868 ←0x23868
<POP 0x23820 LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<POP 23826-23828 StackAdj> Δ-2 {[-2-]}
<MI 23828 LEA.L 0x215ff,A0> {[-2-]}
<MI 2382c MOVE.B (A0+D7.L),-(A7)> Δ-2 {[-2-]|[2, '(A0+D7.L)']}
<Call 0x23830 0x104c0> {[-2-]|[2, '(A0+D7.L)']}
HasBoard(diproc_addr: Byte) : Byte
<POP 23836-23838 StackAdj> Δ+2 {[-2-]}
<MI 23838 TST.B (A7)+> Δ+2 {}
<MI 2383a BEQ 0x23868> {}
<POP 2383c-23860 Naked> Σ0 ↓ →0x23868
<MI 2383c LEA.L 0x215ff,A0> {}
<MI 23840 MOVE.B (A0+D7.L),-(A7)> Δ-2 {[2, '(A0+D7.L)']}
<Pointer.fp 0x23844 <LVAR -0x00c @>> Δ-4 {[2, '(A0+D7.L)']|[@@-12]}
<Pointer.fp 0x23848 <LVAR -0x00b @ 1(r)>> Δ-4 {[2, '(A0+D7.L)']|[@@-12]|[@@-11]}
<Pointer.fp 0x2384c <LVAR -0x00a @>> Δ-4 {[2, '(A0+D7.L)']|[@@-12]|[@@-11]|[@@-10]}
<Call 0x23850 0x10484> {[2, '(A0+D7.L)']|[@@-12]|[@@-11]|[@@-10]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 23856-2385a StackAdj> Δ+14 {}
<MI 2385a TST.B (A6-0xb)> {}
<MI 2385e BEQ 0x23868> {}
<POP 23860-23868 Naked> Σ0 →0x2389a ←0x2388e
<MI 23860 MOVEA.L (A6+0x8),A0> {}
<MI 23862 MOVE.B #0x0c,(A0)> {}
<MI 23866 BRA 0x2389a> {}
<POP 23868-2386e Naked> Σ0 ↓ →0x23820 ←0x23820 ←0x2383c
<MI 23868 ADDQ.L #0x1,D7> {}
<MI 2386a CMP.L #0x07,D7> {}
<MI 2386c BLE 0x23820> {}
<POP 2386e-2388e Naked> Σ0 ↓ →0x23890
<MI 2386e CLR.B -(A7)> Δ-2 {[#0]}
<Pointer.fp 0x23870 <LVAR -0x009 @ 1(r)>> Δ-4 {[#0]|[@@-9]}
<Call 0x23874 0x23ffc> {[#0]|[@@-9]}
exp_READ_PAREG.FIU(Sw_1, &Sr_1)
<POP 2387a-2387c StackAdj> Δ+6 {}
<MI 2387c CLR.L D0> {}
<MI 2387e MOVE.B (A6-0x9),D0> {}
<MI 23882 MOVE.W D0,D1> {}
<MI 23884 ANDI.W #0x00f7,D1> {}
<MI 23888 CMPI.W #0x00f7,D1> {}
<MI 2388c BEQ 0x23890> {}
<POP 2388e-23890 Naked> Σ0 →0x23860
<MI 2388e BRA 0x23860> {}
<POP 23890-23894 Naked> Σ0 ↓ →0x2389a ←0x2386e
<MI 23890 AND.W #0x08,D0> {}
<MI 23892 BNE 0x2389a> {}
<POP 23894-2389a Naked> Σ0 ↓
<MI 23894 MOVEA.L (A6+0x8),A0> {}
<MI 23896 MOVE.B #0x0b,(A0)> {}
<POP 2389a-238a2 Epilogue> Σ0 ←0x2376e ←0x2381c ←0x23860 ←0x23890
@ 238a2
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @>
<LVAR -0x00a @ 2(r)>
<LVAR -0x00c 2(w)>
<LVAR -0x00f @ 1(r)>
<LVAR -0x014 @ 1(r)>
<POP 238a2-23a90 Body> Δ+6
<POP 238a2-238b8 Prologue> Σ0 ↓
<POP 238b8-238cc RegCacheLoad> Σ0 ↓
<POP 238cc-238ee Naked> Σ0 ↓ →0x238f0
<MI 238cc CLR.W (A6-0xa)> {}
<Const 0x238ce 0xfc10.4> Δ-4 {[##64528]}
<MI 238d4 LEA.L (A6-0xa),A0> {[##64528]}
<MI 238d6 MOVE.L A0,-(A7)> Δ-4 {[##64528]|[4, 'A0']}
<MI 238d8 ADDQ.L #0x1,(A7)> {[##64528]|[-4-]}
<Const 0x238da 0x1.2> Δ-2 {[##64528]|[-4-]|[#1]}
<Call 0x238dc 0x10238> {[##64528]|[-4-]|[#1]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 238e2-238e4 StackAdj> Δ+10 {}
<MI 238e4 CLR.B 0x24494> {}
<MI 238e6 MOVE.W (A6-0xa),D0> {}
<MI 238e8 AND.W #0x01,D0> {}
<MI 238ea CMP.W #0x01,D0> {}
<MI 238ec BNE 0x238f0> {}
<POP 238ee-238f0 Naked> Σ0 ↓
<MI 238ee ADDQ.B #0x1,0x24494> {}
<POP 238f0-238fc Naked> Σ0 ↓ →0x23902 ←0x238cc
<MI 238f0 CLR.B 0x24495> {}
<MI 238f6 MOVE.W (A6-0xa),D0> {}
<MI 238f8 CMP.W #0x02,D0> {}
<MI 238fa BCS 0x23902> {}
<POP 238fc-23902 Naked> Σ0 ↓
<MI 238fc ADDQ.B #0x1,0x24495> {}
<POP 23902-23982 Naked> Σ0 ↓ →0x23986 ←0x238f0
<Call 0x23902 0x236bc> {}
<Blob 0x23906 [52] @> Δ-52 {[«52""»]}
<POP 23912-23914 StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x23914 52> {[«52""»]|[$$====================================================]}
<Call 0x23926 0x103e0> {[«52""»]|[$$====================================================]}
WriteConsoleStringCrLf(str : String)
<POP 2392c-23930 StackAdj> Δ+54 {[-2-]}
<POP 23930-23931 StackAdj> Δ+2 {}
<Const 0x23931 0x1b.2> Δ-2 {[#27]}
<Call 0x23934 0x103d0> {[#27]}
WriteConsoleChar(chr : char)
<POP 2393a-2393b StackAdj> Δ+2 ↓ {}
<Blob 0x2393b [6] @> Δ-6 {[«6""»]}
<POP 2394a-2394c StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x2394c 5> {[«6""»]|[$$[1;7m]}
<Call 0x2395e 0x103d8> {[«6""»]|[$$[1;7m]}
WriteConsoleString(str : String)
<POP 23964-23966 StackAdj> Δ+10 {}
<Pointer.fp 0x23966 <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-20]}
<Call 0x23968 0x105e0> {[@@-20]}
Get_BootReasonCode() : Byte
<MI 2396e MOVE.B (A6-0x14),(A7)> {[-4-]}
<Call 0x23970 0x21d58> {[-4-]}
<POP 23974-23976 StackAdj> Δ+2 {[-2-]}
<MI 23976 MOVE.B (A7)+,D0> Δ+2 {}
<MI 23978 EXTB.W D0> {}
<POP 0x2397a LimitCheck 0x0 ≤ D0 ≤ 0xa> {}
<MI 2397c MOVE.B D0,D7> {}
<MI 2397e CMP.B #0x02,D7> {}
<MI 23980 BEQ 0x23986> {}
<POP 23982-23986 Naked> Σ0 ↓ →0x239e0
<MI 23982 TST.B 0x24494> {}
<MI 23984 BEQ 0x239e0> {}
<POP 23986-239c6 Naked> Σ0 ↓ →0x239e0 ←0x23902
<Blob 0x23986 [22] @> Δ-22 {[«22""»]}
<POP 23992-23994 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x23994 22> {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]}
<POP 239a4-239a6 StackAdj> Δ-2 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]}
<MI 239a6 CLR.B (A7)> {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]}
<MI 239a8 CLR.B -(A7)> Δ-2 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#0]}
<Const 0x239aa 0x0.4> Δ-4 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#0]|[##0]}
<Pointer.fp 0x239ae <LVAR -0x004 @ 1(r)>> Δ-4 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#0]|[##0]|[@@-4]}
<Pointer.fp 0x239b2 <LVAR -0x008 @>> Δ-4 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]|[#0]|[##0]|[@@-4]|[@@-8]}
<Call 0x239b6 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 239bc-239c0 StackAdj> Δ+42 {}
<MI 239c0 TST.B (A6-0x4)> {}
<MI 239c4 BNE 0x239e0> {}
<POP 239c6-239e0 Naked> Σ0 ↓
<Const 0x239c6 0x2.2> Δ-2 {[#2]}
<Const 0x239c8 0x1.2> Δ-2 {[#2]|[#1]}
<Const 0x239ca 0x1.4> Δ-4 {[#2]|[#1]|[##1]}
<Pointer.fp 0x239ce <LVAR -0x004 @ 1(r)>> Δ-4 {[#2]|[#1]|[##1]|[@@-4]}
<Pointer.fp 0x239d2 <LVAR -0x008 @>> Δ-4 {[#2]|[#1]|[##1]|[@@-4]|[@@-8]}
<Call 0x239d6 0x1038c> {[#2]|[#1]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 239dc-239e0 StackAdj> Δ+16 {}
<POP 239e0-239e4 Naked> Σ0 ↓ →0x239f0 ←0x23982 ←0x23986
<MI 239e0 CMP.B #0x02,D7> {}
<MI 239e2 BNE 0x239f0> {}
<POP 239e4-239ea Naked> Σ0 Δ-2 ↓
<MI 239e4 MOVE.B (A6-0x14),-(A7)> Δ-2 {[2, '(A6-0x14)']}
<Call 0x239e6 0x22ea2> {[2, '(A6-0x14)']}
<POP 239ea-239f0 Naked> Σ-2 Δ+2 →0x23a70 ←0x239f4 ←0x23a00 ←0x23a3a
<POP 239ea-239ec StackAdj> Δ+2 {}
<MI 239ec BRA 0x23a70> {}
<POP 239f0-239f4 Naked> Σ0 ↓ →0x239fc ←0x239e0
<MI 239f0 CMP.B #0x01,D7> {}
<MI 239f2 BNE 0x239fc> {}
<POP 239f4-239fc Naked> Σ0 Δ-2 →0x239ea
<MI 239f4 MOVE.B (A6-0x14),-(A7)> Δ-2 {[2, '(A6-0x14)']}
<Call 0x239f6 0x22e02> {[2, '(A6-0x14)']}
<MI 239fa BRA 0x239ea> {[2, '(A6-0x14)']}
<POP 239fc-23a00 Naked> Σ0 ↓ →0x23a08 ←0x239f0
<MI 239fc TST.B D7> {}
<MI 239fe BNE 0x23a08> {}
<POP 23a00-23a08 Naked> Σ0 Δ-2 →0x239ea
<MI 23a00 MOVE.B (A6-0x14),-(A7)> Δ-2 {[2, '(A6-0x14)']}
<Call 0x23a02 0x22ff8> {[2, '(A6-0x14)']}
<MI 23a06 BRA 0x239ea> {[2, '(A6-0x14)']}
<POP 23a08-23a3a Naked> Σ0 ↓ →0x23a4c ←0x239fc
<POP 23a08-23a0a StackAdj> Δ-2 {[-2-]}
<Call 0x23a0a 0x105f2> {[-2-]}
Get_fc02() : Word
<MI 23a10 MOVE.W (A7)+,D0> Δ+2 {}
<MI 23a12 MOVE.W D0,(A6-0xc)> {}
<MI 23a16 MOVE.W D0,D6> {}
<MI 23a18 ANDI.W #0x00ff,D6> {}
<MI 23a1c MOVE.W D0,D1> {}
<MI 23a1e LSR.W #0x8,D1> {}
<MI 23a20 MOVE.B D1,-(A7)> Δ-2 {[2, 'D1']}
<MI 23a22 CLR.L D1> {[2, 'D1']}
<MI 23a24 MOVE.B (A7)+,D1> Δ+2 {}
<POP 0x23a26 LimitCheck 0x0 ≤ D1 ≤ 0xa> {}
<MI 23a28 MOVE.B D1,D5> {}
<Pointer.fp 0x23a2a <LVAR -0x00f @ 1(r)>> Δ-4 {[@@-15]}
<Call 0x23a2e 0x2373c> {[@@-15]}
<POP 23a32-23a34 StackAdj> Δ+4 {}
<MI 23a34 TST.B (A6-0xf)> {}
<MI 23a38 BEQ 0x23a4c> {}
<POP 23a3a-23a4c Naked> Σ0 Δ-2 →0x239ea
<MI 23a3a MOVE.B (A6-0xf),D0> {}
<MI 23a3e EXTB.W D0> {}
<POP 0x23a40 LimitCheck 0x0 ≤ D0 ≤ 0xd> {}
<MI 23a44 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Call 0x23a46 0x23342> {[2, 'D0']}
<MI 23a4a BRA 0x239ea> {[2, 'D0']}
<POP 23a4c-23a50 Naked> Σ0 ↓ →0x23a66 ←0x23a08
<MI 23a4c TST.W D0> {}
<MI 23a4e BEQ 0x23a66> {}
<POP 23a50-23a66 Naked> Σ0 →0x23a70
<MI 23a50 CLR.L D0> {}
<MI 23a52 MOVE.W D6,D0> {}
<MI 23a54 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23a56 MOVE.B D5,D0> {[4, 'D0']}
<MI 23a58 EXTB.W D0> {[4, 'D0']}
<POP 0x23a5a LimitCheck 0x0 ≤ D0 ≤ 0xa> {[4, 'D0']}
<MI 23a5c MOVE.B D0,-(A7)> Δ-2 {[4, 'D0']|[2, 'D0']}
<Call 0x23a5e 0x23550> {[4, 'D0']|[2, 'D0']}
<POP 23a62-23a64 StackAdj> Δ+6 {}
<MI 23a64 BRA 0x23a70> {}
<POP 23a66-23a70 Naked> Σ0 ↓ ←0x23a4c
<MI 23a66 MOVE.B (A6-0x14),-(A7)> Δ-2 {[2, '(A6-0x14)']}
<MI 23a68 MOVE.B D7,-(A7)> Δ-2 {[2, '(A6-0x14)']|[2, 'D7']}
<Call 0x23a6a 0x2362e> {[2, '(A6-0x14)']|[2, 'D7']}
<POP 23a6e-23a70 StackAdj> Δ+4 {}
<POP 23a70-23a88 Naked> Σ0 ↓ ←0x239ea ←0x23a50
<MI 23a70 CLR.W (A6-0xa)> {}
<MI 23a72 LEA.L (A6-0xa),A0> {}
<MI 23a74 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 23a76 ADDQ.L #0x1,(A7)> {[-4-]}
<Const 0x23a78 0xfc10.4> Δ-4 {[-4-]|[##64528]}
<Const 0x23a7e 0x1.2> Δ-2 {[-4-]|[##64528]|[#1]}
<Call 0x23a80 0x10238> {[-4-]|[##64528]|[#1]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 23a86-23a88 StackAdj> Δ+10 {}
<POP 23a88-23a90 Epilogue> Σ0
@ 23a90
<LVAR -0x004 @ 4(r)>
<POP 23a90-23b86 Body>
<POP 23a90-23aa6 Prologue> Σ0 ↓
<POP 23aa6-23ab8 RegCacheLoad> Σ0 ↓
<POP 23ab8-23ac4 Naked> Σ0 ↓ →0x23ad0
<POP 23ab8-23aba StackAdj> Δ-2 {[-2-]}
<Call 0x23aba 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 23ac0 TST.B (A7)+> Δ+2 {}
<MI 23ac2 BNE 0x23ad0> {}
<POP 23ac4-23ad0 Naked> Σ0 ↓ →0x23afe
<POP 23ac4-23ac6 StackAdj> Δ-2 {[-2-]}
<Call 0x23ac6 0x10604> {[-2-]}
Is_machine_type_three() : Bool
<MI 23acc TST.B (A7)+> Δ+2 {}
<MI 23ace BEQ 0x23afe> {}
<POP 23ad0-23adc Naked> Σ0 ↓ →0x23afe ←0x23ab8
<POP 23ad0-23ad2 StackAdj> Δ-2 {[-2-]}
<Call 0x23ad2 0x24164> {[-2-]}
<MI 23ad8 TST.B (A7)+> Δ+2 {}
<MI 23ada BNE 0x23afe> {}
<POP 23adc-23afe Naked> Σ0 ↓
<Blob 0x23adc [74] @> Δ-74 {[«74""»]}
<POP 23ae8-23aea StackAdj> Δ-4 {[«74""»]|[-4-]}
<Lit 0x23aea 74> {[«74""»]|[$$>>> NOTICE: the EPROM WRT PROT switch is OFF (at front of RESHA board) <<<]}
<Call 0x23af8 0x103e0> {[«74""»]|[$$>>> NOTICE: the EPROM WRT PROT switch is OFF (at front of RESHA board) <<<]}
WriteConsoleStringCrLf(str : String)
<POP 23afa-23afe StackAdj> Δ+78 {}
<POP 23afe-23b0a Naked> Σ0 ↓ →0x23b2c ←0x23ac4 ←0x23ad0
<POP 23afe-23b00 StackAdj> Δ-2 {[-2-]}
<Call 0x23b00 0x105ce> {[-2-]}
ReadKeySwitch() : Bool
<MI 23b06 TST.B (A7)+> Δ+2 {}
<MI 23b08 BEQ 0x23b2c> {}
<POP 23b0a-23b2c Naked> Σ0 ↓
<Blob 0x23b0a [62] @> Δ-62 {[«62""»]}
<POP 23b16-23b18 StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x23b18 62> {[«62""»]|[$$>>> NOTICE: the OPERATOR_MODE switch is set to INTERACTIVE <<<]}
<Call 0x23b26 0x103e0> {[«62""»]|[$$>>> NOTICE: the OPERATOR_MODE switch is set to INTERACTIVE <<<]}
WriteConsoleStringCrLf(str : String)
<POP 23b28-23b2c StackAdj> Δ+66 {}
<POP 23b2c-23b52 Naked> Σ0 ↓ →0x23b5c ←0x23afe
<Const 0x23b2c 0xfffff800.4> Δ-4 {[##4294965248]}
<Const 0x23b30 0x5.2> Δ-2 {[##4294965248]|[#5]}
<MI 23b34 LEA.L (A6-0x4),A0> {[##4294965248]|[#5]}
<MI 23b36 MOVE.L A0,-(A7)> Δ-4 {[##4294965248]|[#5]|[4, 'A0']}
<Const 0x23b38 0x1.2> Δ-2 {[##4294965248]|[#5]|[4, 'A0']|[#1]}
<Const 0x23b3a 0x4.2> Δ-2 {[##4294965248]|[#5]|[4, 'A0']|[#1]|[#4]}
<Call 0x23b3e 0x1023a> {[##4294965248]|[#5]|[4, 'A0']|[#1]|[#4]}
KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word
<POP 23b44-23b48 StackAdj> Δ+14 {}
<MI 23b48 MOVE.L (A6-0x4),D0> {}
<MI 23b4a ANDI.L #0x80000000,D0> {}
<MI 23b50 BEQ 0x23b5c> {}
<POP 23b52-23b5c Naked> Σ0 ↓ →0x23b7e
<MI 23b52 MOVE.L (A6-0x4),D0> {}
<MI 23b54 ANDI.L #0x00000200,D0> {}
<MI 23b5a BEQ 0x23b7e> {}
<POP 23b5c-23b7e Naked> Σ0 ↓ ←0x23b2c
<Blob 0x23b5c [54] @> Δ-54 {[«54""»]}
<POP 23b68-23b6a StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x23b6a 54> {[«54""»]|[$$>>> WARNING: the system clock or power is margined <<<]}
<Call 0x23b78 0x103e0> {[«54""»]|[$$>>> WARNING: the system clock or power is margined <<<]}
WriteConsoleStringCrLf(str : String)
<POP 23b7a-23b7e StackAdj> Δ+58 {}
<POP 23b7e-23b86 Epilogue> Σ0 ←0x23b52
@ 23b86
START
<POP 23b86--0001 Body> Δ+26
<POP 23b86-23b90 Prologue> Σ0
<POP 23b90-23baa RegCacheLoad> Σ0 ↓
<POP 23baa-23c7c Naked> Σ0 ↓
<Const 0x23baa 0x1.4> Δ-4 {[##1]}
<Call 0x23bae 0x103f4> {[##1]}
SetConsoleConfig(a : Long)
<POP 23bb4-23bb6 StackAdj> Δ+2 {[-2-]}
<MI 23bb6 CLR.B (A7)> {[-2-]}
<Call 0x23bb8 0x10404> {[-2-]}
SetSomeKindOfFlag(a : Byte)
<POP 23bbe-23bbf StackAdj> Δ+2 {}
<Const 0x23bbf 0x1.2> Δ-2 {[#1]}
<Const 0x23bc0 0x1.2> Δ-2 {[#1]|[#1]}
<Call 0x23bc2 0x10210> {[#1]|[#1]}
KC08_PortSomething(port: Word; b: Byte)
<POP 23bc8-23bca StackAdj> Δ+4 {}
<Const 0x23bca 0xf.4> Δ-4 {[##15]}
<Call 0x23bce 0x104d8> {[##15]}
ExpInit(a : Long)
<POP 23bd4-23bd6 StackAdj> Δ+4 {}
<Call 0x23bd6 0x21836> {}
<Const 0x23bda 0x24493.4> Δ-4 {[##148627]}
<Call 0x23be0 0x105aa> {[##148627]}
Read_fc00() : Byte
<POP 23be6-23be8 StackAdj> Δ+4 {}
<Call 0x23be8 0x21902> {}
<Call 0x23bec 0x21b34> {}
<Blob 0x23bf0 [2] @> Δ-2 {[«2""»]}
<Blob 0x23bf4 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x23bf8 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<Blob 0x23bfc [6] @> Δ-6 {[«2""»]|[«2""»]|[«2""»]|[«6""»]}
<POP 23c0c-23c0e StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[-4-]}
<Lit 0x23c0e 6> {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]}
<POP 23c18-23c1a StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[-4-]}
<Lit 0x23c1a 5> {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[$$DOUSE]}
<POP 23c24-23c26 StackAdj> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[$$DOUSE]|[-2-]}
<MI 23c26 CLR.B (A7)> {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[$$DOUSE]|[-2-]}
<Const 0x23c28 0x24492.4> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[$$DOUSE]|[-2-]|[##148626]}
<Call 0x23c2e 0x103b0> {[«2""»]|[«2""»]|[«2""»]|[«6""»]|[$$BEKINS]|[$$DOUSE]|[-2-]|[##148626]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 23c30-23c34 StackAdj> Δ+26 {}
<MI 23c34 MOVE.L 0x211a4,0x2449e> {}
<MI 23c3c MOVE.B #0x1b,0x2449e> {}
<MI 23c44 CLR.B 0x2449c> {}
<MI 23c4a CLR.B 0x2449d> {}
<MI 23c50 CLR.B 0x24496> {}
<MI 23c56 MOVE.L #0x06,0x24498> {}
<Call 0x23c58 0x238a2> {}
<MI 23c5c CLR.L 0x244a8> {}
<MI 23c62 LEA.L 0x244a8,A0> {}
<MI 23c68 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x23c6a 0xfc05.4> Δ-4 {[4, 'A0']|[##64517]}
<Const 0x23c70 0x1.2> Δ-2 {[4, 'A0']|[##64517]|[#1]}
<Call 0x23c72 0x10238> {[4, 'A0']|[##64517]|[#1]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 23c78-23c7c StackAdj> Δ+10 {}
<POP 23c7c-23c8e Naked> Σ0 ↓ →0x23c94 ←0x23ff2
<Call 0x23c7c 0x103dc> {}
WriteConsoleCrLf(void)
<Call 0x23c82 0x23a90> {}
<MI 23c86 TST.B 0x24496> {}
<MI 23c8c BEQ 0x23c94> {}
<POP 23c8e-23c94 Naked> Σ0 →0x23df2
<MI 23c8e MOVE.L #0x06,0x24498> {}
<MI 23c90 BRA 0x23df2> {}
<POP 23c94-23cc0 Naked> Σ0 ↓ ←0x23c7c
<Blob 0x23c94 [30] @> Δ-30 {[«30""»]}
<POP 23ca4-23ca6 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x23ca6 29> {[«30""»]|[$$CLI/CRASH MENU - options are:]}
<Call 0x23cb4 0x103e0> {[«30""»]|[$$CLI/CRASH MENU - options are:]}
WriteConsoleStringCrLf(str : String)
<POP 23cba-23cbe StackAdj> Δ+34 {}
<MI 23cbe MOVEQ.L #0x01,D0> {}
<POP 23cc0-23d40 Naked> Σ0 ↓ →0x23cc0 ←0x23cc0
<MI 23cc0 MOVE.L D0,0x244a8> {}
<Blob 0x23cc6 [2] @> Δ-2 {[«2""»]}
<Blob 0x23cca [4] @> Δ-4 {[«2""»]|[«4""»]}
<MI 23cce MOVE.L D0,D1> {[«2""»]|[«4""»]}
<MI 23cd0 SUBQ.L #0x1,D1> {[«2""»]|[«4""»]}
<POP 0x23cd2 LimitCheck 0x0 ≤ D1 ≤ 0x5> {[«2""»]|[«4""»]}
<MI 23cd8 MOVE.L D1,D4> {[«2""»]|[«4""»]}
<MI 23cda MOVEQ.L #0x1e,D3> {[«2""»]|[«4""»]}
<Call 0x23cdc 0x1028c> {[«2""»]|[«4""»]}
?muls_d3_d4
<MI 23ce2 LEA.L 0x2126e,A0> {[«2""»]|[«4""»]}
<Blob 0x23ce6 [30] (A0+D4.L)> Δ-30 {[«2""»]|[«4""»]|[«30»]}
<POP 23cf6-23cf8 StackAdj> Δ-8 {[«2""»]|[«4""»]|[«30»]|[-8-]}
<Lit 0x23cf8 2> {[«2""»]|[«4""»]|[«30»]|[-4-]|[$$ _]}
<MI 23d04 MOVE.L D0,(A7)> {[«2""»]|[«4""»]|[«30»]|[-4-]|[4, 'D0']}
<POP 23d02-23d04 StackAdj> Δ-8 {[«2""»]|[«4""»]|[«30»]|[-4-]|[4, 'D0']|[-8-]}
<Call 0x23d06 0x102e4> {[«2""»]|[«4""»]|[«30»]|[-4-]|[4, 'D0']|[-8-]}
Long2String(a : Long) : String
<Lit 0x23d0c 4> {[«2""»]|[«4""»]|[«30»]|[-4-]|[4, 'D0']|[-4-]|[$$ =>_]}
<POP 23d18-23d1a StackAdj> Δ-4 {[«2""»]|[«4""»]|[«30»]|[-4-]|[4, 'D0']|[-4-]|[$$ =>_]|[-4-]}
<Lit 0x23d1a> {[«2""»]|[«4""»]|[«30»]|[-4-]|[4, 'D0']|[-4-]|[$$ =>_]|[$$…]}
<Pointer.sp 0x23d1a 20> Δ-4
<Const 0x23d1e 0x1.2> Δ-2
<Const 0x23d20 0x1e.2> Δ-2
<Call 0x23d22 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23d24-23d26 StackAdj> Δ+8
<Call 0x23d26 0x102d8> {[«2""»]|[«4""»]|[«30»]|[-4-]|[4, 'D0']|[-4-]|[$$ =>_]|[$$…]}
StringCat4(a, b, c, d : String) : String
<POP 23d2c-23d30 StackAdj> Δ+16 {[«2""»]|[«4""»]|[«30»]|[-4-]}
<Call 0x23d30 0x103e0> {[«2""»]|[«4""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23d36-23d3a StackAdj> Δ+40 {}
<MI 23d3a ADDQ.L #0x1,D0> {}
<MI 23d3c CMP.L #0x06,D0> {}
<MI 23d3e BLE 0x23cc0> {}
<POP 23d40-23dca Naked> Σ0 ↓ →0x23dda
<Blob 0x23d40 [14] @> Δ-14 {[«14""»]}
<MI 23d4c MOVE.L 0x24498,D0> {[«14""»]}
<MI 23d4e SUBQ.L #0x1,D0> {[«14""»]}
<POP 0x23d50 LimitCheck 0x0 ≤ D0 ≤ 0x5> {[«14""»]}
<MI 23d56 MOVE.L D0,D4> {[«14""»]}
<MI 23d58 MOVEQ.L #0x1e,D3> {[«14""»]}
<Call 0x23d5a 0x1028c> {[«14""»]}
?muls_d3_d4
<MI 23d60 LEA.L 0x2126e,A0> {[«14""»]}
<Blob 0x23d64 [30] (A0+D4.L)> Δ-30 {[«14""»]|[«30»]}
<Blob 0x23d74 [4] @> Δ-4 {[«14""»]|[«30»]|[«4""»]}
<POP 23d78-23d7c StackAdj> Δ-12 {[«14""»]|[«30»]|[«4""»]|[-12-]}
<Lit 0x23d7c 14> {[«14""»]|[«30»]|[«4""»]|[-8-]|[$$Enter option []}
<POP 23d88-23d8a StackAdj> Δ-4 {[«14""»]|[«30»]|[«4""»]|[-8-]|[$$Enter option []|[-4-]}
<Lit 0x23d8a> {[«14""»]|[«30»]|[«4""»]|[-8-]|[$$Enter option []|[$$…]}
<Pointer.sp 0x23d8a 20> Δ-4
<Const 0x23d8e 0x1.2> Δ-2
<Const 0x23d90 0x1e.2> Δ-2
<Call 0x23d92 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23d94-23d96 StackAdj> Δ+8
<POP 23d94-23d96 StackAdj> Δ-4 {[«14""»]|[«30»]|[«4""»]|[-8-]|[$$Enter option []|[$$…]|[-4-]}
<Lit 0x23d96 4> {[«14""»]|[«30»]|[«4""»]|[-8-]|[$$Enter option []|[$$…]|[$$] :_]}
<Call 0x23da4 0x102d4> {[«14""»]|[«30»]|[«4""»]|[-8-]|[$$Enter option []|[$$…]|[$$] :_]}
StringCat3(a, b, c : String) : String
<POP 23daa-23dae StackAdj> Δ+12 {[«14""»]|[«30»]|[«4""»]|[-8-]}
<Call 0x23dae 0x103e4> {[«14""»]|[«30»]|[«4""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 23db4-23db6 StackAdj> Δ+4 {[«14""»]|[«30»]|[«4""»]|[-4-]}
<MI 23db6 MOVE.L (A7)+,0x244a2> Δ+4 {[«14""»]|[«30»]|[«4""»]}
<POP 23dbc-23dc0 StackAdj> Δ+48 {}
<MI 23dc0 MOVEA.L 0x244a2,A0> {}
<MI 23dc6 TST.W (A0)> {}
<MI 23dc8 BNE 0x23dda> {}
<POP 23dca-23dda Naked> Σ0 →0x23df2
<Const 0x23dca 0x244a2.4> Δ-4 {[##148642]}
<Call 0x23dd0 0x102bc> {[##148642]}
FreeString(VAR a : String)
<POP 23dd6-23dd8 StackAdj> Δ+4 {}
<MI 23dd8 BRA 0x23df2> {}
<POP 23dda-23df2 Naked> Σ0 ↓ ←0x23d40
<Blob 0x23dda [4] 0x244a2> Δ-4 {[«4»]}
<Const 0x23de0 0x244a6.4> Δ-4 {[«4»]|[##148646]}
<Const 0x23de6 0x24498.4> Δ-4 {[«4»]|[##148646]|[##148632]}
<Call 0x23de8 0x102ec> {[«4»]|[##148646]|[##148632]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 23dee-23df2 StackAdj> Δ+12 {}
<POP 23df2-23dfc Naked> Σ0 ↓ →0x23fc4 ←0x23c8e ←0x23dca
<MI 23df2 MOVE.L 0x24498,D0> {}
<MI 23df4 SUBQ.L #0x1,D0> {}
<MI 23df6 CMP.L #0x05,D0> {}
<MI 23df8 BHI 0x23fc4> {}
<POP 23dfc-23e06 Naked> Σ0 →0x23e12 →0x23e4a →0x23e52 →0x23e98 →0x23ee4 →0x23f0e
<MI 23dfc ADD.W D0,D0> {}
<MI 23dfe SWITCH D0.W> {}
<POP 23e12-23e4a Naked> Σ0 →0x23ff2 ←0x23dfc
<POP 23e12-23e14 StackAdj> Δ-4 {[-4-]}
<POP 23e14-23e15 StackAdj> Δ+2 {[-2-]}
<Blob 0x23e15 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 23e18 MOVE.B 0x211df,(A7+0x1)> {[-2-]|[«2""»]}
<MI 23e1e MOVE.B 0x211e0,(A7+0x2)> {[-2-]|[«2""»]}
<POP 23e24-23e26 StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x23e26> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x23e26 4> Δ-4
<Const 0x23e2a 0x1.2> Δ-2
<Const 0x23e2c 0x3.2> Δ-2
<Call 0x23e30 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23e32-23e34 StackAdj> Δ+8
<Const 0x23e34 0x1.4> Δ-4 {[-2-]|[«2""»]|[$$…]|[##1]}
<Const 0x23e38 0x1.2> Δ-2 {[-2-]|[«2""»]|[$$…]|[##1]|[#1]}
<Const 0x23e3a 0x244a7.4> Δ-4 {[-2-]|[«2""»]|[$$…]|[##1]|[#1]|[##148647]}
<Call 0x23e40 0x103b0> {[-2-]|[«2""»]|[$$…]|[##1]|[#1]|[##148647]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 23e42-23e46 StackAdj> Δ+18 {}
<MI 23e46 BRA 0x23ff2> {}
<POP 23e4a-23e52 Naked> Σ0 →0x23ff2 ←0x23dfc
<Call 0x23e4a 0x21e90> {}
<MI 23e4e BRA 0x23ff2> {}
<POP 23e52-23e98 Naked> Σ0 →0x23ff0 ←0x23dfc
<Blob 0x23e52 [10] @> Δ-10 {[«10""»]}
<Blob 0x23e64 [4] @> Δ-4 {[«10""»]|[«4""»]}
<POP 23e68-23e6a StackAdj> Δ-4 {[«10""»]|[«4""»]|[-4-]}
<Lit 0x23e6a 9> {[«10""»]|[«4""»]|[$$TOMBSTONE]}
<POP 23e76-23e78 StackAdj> Δ-4 {[«10""»]|[«4""»]|[$$TOMBSTONE]|[-4-]}
<Lit 0x23e78 4> {[«10""»]|[«4""»]|[$$TOMBSTONE]|[$$AUTO]}
<POP 23e84-23e86 StackAdj> Δ-2 {[«10""»]|[«4""»]|[$$TOMBSTONE]|[$$AUTO]|[-2-]}
<POP 23e86-23e87 StackAdj> Δ+2 {[«10""»]|[«4""»]|[$$TOMBSTONE]|[$$AUTO]}
<Const 0x23e87 0x1.2> Δ-2 {[«10""»]|[«4""»]|[$$TOMBSTONE]|[$$AUTO]|[#1]}
<Const 0x23e88 0x244a7.4> Δ-4 {[«10""»]|[«4""»]|[$$TOMBSTONE]|[$$AUTO]|[#1]|[##148647]}
<Call 0x23e8e 0x103b0> {[«10""»]|[«4""»]|[$$TOMBSTONE]|[$$AUTO]|[#1]|[##148647]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 23e90-23e94 StackAdj> Δ+28 {}
<MI 23e94 BRA 0x23ff0> {}
<POP 23e98-23ece Naked> Σ0 Δ-26 ↓ ←0x23dfc
<Blob 0x23e98 [2] @> Δ-2 {[«2""»]}
<Blob 0x23e9c [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x23ea0 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 23ea4-23ea6 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<POP 23ea6-23ea7 StackAdj> Δ+2 {[«2""»]|[«2""»]|[«2""»]|[-2-]}
<Blob 0x23ea7 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]}
<MI 23eaa MOVE.B 0x211f7,(A7+0x1)> {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]}
<MI 23eb0 MOVE.B 0x211f8,(A7+0x2)> {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]}
<POP 23eb6-23eb8 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[-4-]}
<Lit 0x23eb8 6> {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[$$LOADER]}
<POP 23ec2-23ec4 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[$$LOADER]|[-4-]}
<Pointer.sp 0x23ec4 8> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[$$LOADER]|[-4-]|[^^8]}
<Const 0x23ec8 0x1.2> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[$$LOADER]|[-4-]|[^^8]|[#1]}
<Const 0x23eca 0x3.2> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[-2-]|[«2""»]|[$$LOADER]|[-4-]|[^^8]|[#1]|[#3]}
<POP 23ece-23ee4 Naked> Σ-26 Δ+26 →0x23ff2 ←0x23ee4
<Call 0x23ece 0x102c4> {[-26-]}
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23ed0-23ed2 StackAdj> Δ+6 {[-20-]}
<POP 23ed2-23ed3 StackAdj> Δ+2 {[-18-]}
<Const 0x23ed3 0x1.2> Δ-2 {[-18-]|[#1]}
<Const 0x23ed4 0x244a7.4> Δ-4 {[-18-]|[#1]|[##148647]}
<Call 0x23eda 0x103b0> {[-18-]|[#1]|[##148647]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 23edc-23ee0 StackAdj> Δ+24 {}
<MI 23ee0 BRA 0x23ff2> {}
<POP 23ee4-23f0e Naked> Σ0 Δ-26 →0x23ece ←0x23dfc
<Blob 0x23ee4 [2] @> Δ-2 {[«2""»]}
<Blob 0x23ee8 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x23eec [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<Blob 0x23ef0 [4] @> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]}
<POP 23ef4-23ef6 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[-4-]}
<Lit 0x23ef6 6> {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]}
<POP 23f00-23f02 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]|[-4-]}
<Pointer.sp 0x23f02 8> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]|[-4-]|[^^8]}
<Const 0x23f06 0x1.2> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]|[-4-]|[^^8]|[#1]}
<Const 0x23f08 0x4.2> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]|[-4-]|[^^8]|[#1]|[#4]}
<MI 23f0c BRA 0x23ece> {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[$$LOADER]|[-4-]|[^^8]|[#1]|[#4]}
<POP 23f0e-23fc4 Naked> Σ0 →0x23ff2 ←0x23dfc
<Blob 0x23f0e [14] @> Δ-14 {[«14""»]}
<Blob 0x23f20 [12] @> Δ-12 {[«14""»]|[«12""»]}
<POP 23f32-23f34 StackAdj> Δ-4 {[«14""»]|[«12""»]|[-4-]}
<Lit 0x23f34 13> {[«14""»]|[«12""»]|[$$UPDATE_EEPROM]}
<POP 23f40-23f42 StackAdj> Δ-4 {[«14""»]|[«12""»]|[$$UPDATE_EEPROM]|[-4-]}
<Lit 0x23f42 11> {[«14""»]|[«12""»]|[$$UPDATE_EEPROM]|[$$AUTO_UPDATE]}
<POP 23f4e-23f50 StackAdj> Δ-2 {[«14""»]|[«12""»]|[$$UPDATE_EEPROM]|[$$AUTO_UPDATE]|[-2-]}
<POP 23f50-23f51 StackAdj> Δ+2 {[«14""»]|[«12""»]|[$$UPDATE_EEPROM]|[$$AUTO_UPDATE]}
<Const 0x23f51 0x1.2> Δ-2 {[«14""»]|[«12""»]|[$$UPDATE_EEPROM]|[$$AUTO_UPDATE]|[#1]}
<Const 0x23f52 0x244a7.4> Δ-4 {[«14""»]|[«12""»]|[$$UPDATE_EEPROM]|[$$AUTO_UPDATE]|[#1]|[##148647]}
<Call 0x23f58 0x103b0> {[«14""»]|[«12""»]|[$$UPDATE_EEPROM]|[$$AUTO_UPDATE]|[#1]|[##148647]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 23f5a-23f5b StackAdj> Δ+40 ↓ {}
<Blob 0x23f5b [38] @> Δ-38 {[«38""»]}
<POP 23f6a-23f6c StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x23f6c 37> {[«38""»]|[$$--- Booting the R1000 Environment ---]}
<Call 0x23f7a 0x103e0> {[«38""»]|[$$--- Booting the R1000 Environment ---]}
WriteConsoleStringCrLf(str : String)
<POP 23f80-23f84 StackAdj> Δ+40 {[-2-]}
<POP 23f84-23f85 StackAdj> Δ+2 {}
<Blob 0x23f85 [2] @> Δ-2 {[«2""»]}
<Blob 0x23f88 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x23f8c [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<Blob 0x23f90 [4] @> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]}
<Blob 0x23f94 [4] @> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]}
<POP 23f98-23f9a StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x23f9a 6> {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]}
<POP 23fa4-23fa6 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[-4-]}
<Lit 0x23fa6 8> {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]}
<POP 23fb2-23fb4 StackAdj> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]|[-2-]}
<POP 23fb4-23fb5 StackAdj> Δ+2 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]}
<Const 0x23fb5 0x1.2> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]|[#1]}
<Const 0x23fb6 0x244a7.4> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]|[#1]|[##148647]}
<Call 0x23fbc 0x103b0> {[«2""»]|[«2""»]|[«2""»]|[«4""»]|[«4""»]|[$$LOADER]|[$$STANDARD]|[#1]|[##148647]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 23fbe-23fc2 StackAdj> Δ+28 {}
<MI 23fc2 BRA 0x23ff2> {}
<POP 23fc4-23ff0 Naked> Σ0 ↓ ←0x23df2
<Blob 0x23fc4 [28] @> Δ-28 {[«28""»]}
<POP 23fd6-23fd8 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x23fd8 27> {[«28""»]|[$$illegal response, try again]}
<Call 0x23fe6 0x103e0> {[«28""»]|[$$illegal response, try again]}
WriteConsoleStringCrLf(str : String)
<POP 23fec-23ff0 StackAdj> Δ+32 {}
<POP 23ff0-23ff2 Naked> Σ0 ↓ ←0x23e52
<MI 23ff0 MOVE.L #0x06,0x24498> {}
<POP 23ff2-23ff6 Naked> Σ0 →0x23c7c ←0x23e12 ←0x23e4a ←0x23ece ←0x23f0e
<MI 23ff2 BRA 0x23c7c> {}
<POP 23ffc-24002 Naked> Σ0
<Call 0x23ffc 0x10568> {}
Run_Experiment()
@ 240cc
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 240cc-24150 Body> Δ+6
<POP 240cc-240e2 Prologue> Σ0 ↓
<POP 240e2-240e6 RegCacheLoad> Σ0 ↓
<POP 240e6-240f2 Naked> Σ0 ↓ →0x24100
<POP 240e6-240e8 StackAdj> Δ-2 {[-2-]}
<Call 0x240e8 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 240ee TST.B (A7)+> Δ+2 {}
<MI 240f0 BEQ 0x24100> {}
<POP 240f2-24100 Naked> Σ0 Δ-6 →0x2410c
<Blob 0x240f2 [2] @> Δ-2 {[«2""»]}
<Blob 0x240f6 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x240fa [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<MI 240fe BRA 0x2410c> {[«2""»]|[«2""»]|[«2""»]}
<POP 24100-2410c Naked> Σ0 Δ-6 ↓ ←0x240e6
<Blob 0x24100 [2] @> Δ-2 {[«2""»]}
<Blob 0x24104 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x24108 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 2410c-24148 Naked> Σ-6 Δ+6 ↓ ←0x240f2
<POP 2410c-2410e StackAdj> Δ-4 {[-10-]}
<Lit 0x2410e> {[-6-]|[$$…]}
<Pointer.sp 0x2410e 4> Δ-4
<Const 0x24112 0x1.2> Δ-2
<Const 0x24116 0x6.2> Δ-2
<Call 0x2411a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 24120-24122 StackAdj> Δ+8
<Pointer.fp 0x24122 <LVAR -0x006 @ 4(r)>> Δ-4 {[-6-]|[$$…]|[@@-6]}
<Call 0x24124 0x10460> {[-6-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 2412a-2412e StackAdj> Δ+14 {}
<MI 2412e CLR.B -(A7)> Δ-2 {[#0]}
<MI 24130 MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 24134 MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x24136 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 2413c-2413e StackAdj> Δ+8 {}
<Pointer.fp 0x2413e <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x24140 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 24146-24148 StackAdj> Δ+4 {}
<POP 24148-24150 Epilogue> Σ0
@ 24292
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 24292-242fa Body>
<POP 24292-242a8 Prologue> Σ0 ↓
<POP 242a8-242f2 Naked> Σ0 ↓
<Blob 0x242a8 [14] @> Δ-14 {[«14""»]}
<Const 0x242b4 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 242b8-242ba StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x242ba 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 242cc-242ce StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 242ce MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 242d2 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 242d4 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 242d6 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x242d8 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 242de-242e0 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x242e0 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 242e6-242e8 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x242e8 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 242ee-242f2 StackAdj> Δ+20 {}
<POP 242f2-242fa Epilogue> Σ0
@ 2434e
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 2434e-2448a Body>
<POP 2434e-24364 Prologue> Σ0 ↓
<POP 24364-2437a RegCacheLoad> Σ0 ↓
<POP 2437a-243da Naked> Σ0 ↓ →0x24422
<Call 0x2437a 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x24380 [18] @> Δ-18 {[«18""»]}
<POP 2438c-2438e StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2438e 18> {[«18""»]|[$$Experiment error :]}
<Call 0x2439a 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 2439c-2439d StackAdj> Δ+22 ↓ {}
<Blob 0x2439d [14] @> Δ-14 {[«14""»]}
<POP 243ac-243ae StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x243ae 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 243b8-243ba StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 243ba MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x243be 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 243c4-243c6 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x243c6 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 243cc-243ce StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x243ce 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 243d0-243d2 StackAdj> Δ+18 {}
<MI 243d2 MOVEA.L (A6+0xa),A0> {}
<MI 243d6 CMPA.W #0x01,A0> {}
<MI 243d8 BEQ 0x24422> {}
<POP 243da-24422 Naked> Σ0 ↓
<Blob 0x243da [14] @> Δ-14 {[«14""»]}
<Blob 0x243ea [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 243fa-243fc StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x243fc 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 24406-24408 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x24408> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x24408 12> Δ-4
<Const 0x2440c 0x1.2> Δ-2
<Const 0x2440e 0x1e.2> Δ-2
<Call 0x24410 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 24412-24414 StackAdj> Δ+8
<Call 0x24414 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 2441a-2441c StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x2441c 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2441e-24422 StackAdj> Δ+48 {}
<POP 24422-24482 Naked> Σ0 ↓ ←0x2437a
<Blob 0x24422 [14] @> Δ-14 {[«14""»]}
<POP 24432-24434 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x24434 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 2443e-24440 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 24440 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x24444 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 2444a-2444c StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x2444c 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 24452-24454 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x24454 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 24456-24457 StackAdj> Δ+18 ↓ {}
<Blob 0x24457 [24] @> Δ-24 {[«24""»]}
<Const 0x24466 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 2446a-2446c StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x2446c 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x2447a 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 24480-24482 StackAdj> Δ+30 {}
<POP 24482-2448a Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; import ident.549106923993f5a6 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 3b 86 | ; | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 44 c6 | D | .PTR 0x244c6 00020010 code.end: 00020010 00 02 44 8a | D | .PTR 0x2448a 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 42 92 | B | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 43 4e | CN | .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[0x18] 00020118 35 2c 39 33 2f 30 34 2f |5,93/04/| 00020120 31 34 2c 31 36 3a 32 35 |14,16:25| 00020128 3a 30 30 5c |:00\ | .XXX[0x4] 0002012c 65 6e 74 65 72 20 43 4c |enter CL| .TXT 'enter CLI ' 0002014a 6d 61 6b 65 20 61 20 43 |make a C| .TXT 'make a CRASHDUMP tape ' 00020168 64 69 73 70 6c 61 79 20 |display | .TXT 'display CRASH INFO ' 00020186 42 6f 6f 74 20 44 44 43 |Boot DDC| .TXT 'Boot DDC configuration ' 000201a4 42 6f 6f 74 20 45 45 44 |Boot EED| .TXT 'Boot EEDB configuration ' 000201c2 42 6f 6f 74 20 53 54 41 |Boot STA| .TXT 'Boot STANDARD configuration ' 000201e0 30 31 32 33 34 35 36 37 |01234567| .XXX[0x10] 000201e8 38 39 41 42 43 44 45 46 |89ABCDEF| 000201f0 53 74 61 72 74 69 6e 67 |Starting| .TXT 'Starting remote diagnostics from Cluster id =>' 0002021e 52 61 74 69 6f 6e 61 6c |Rational| .TXT 'Rational Service has disconnected ' 00020240 41 72 65 20 79 6f 75 20 |Are you | .TXT 'Are you ready to continue ' 0002025a 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want do disconnect ' 00020274 46 49 |FI | .TXT 'FI' 00020276 58 50 |XP | .TXT 'XP' 00020278 41 44 |AD | .TXT 'AD' 0002027a 46 49 58 4d |FIXM | .TXT 'FIXM' 0002027e 4f 44 45 4d |ODEM | .TXT 'ODEM' 00020282 50 6c 65 61 73 65 20 65 |Please e| .TXT 'Please enter current date and time as HH:MM:SS DD-MMM-YY :_ ' 000202be 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal value or incorret format, try again.' 000202ea 48 61 72 64 20 64 69 73 |Hard dis| .TXT 'Hard disk errors in diagnostic filesystem labels on boot device.' 0002032a 4e 6f 20 64 69 61 67 6e |No diagn| .TXT 'No diagnostic filesystem labels found on boot device. ' 00020360 4e 6f 20 64 69 61 67 6e |No diagn| .TXT 'No diagnostic file system is installed on boot unit.' 00020394 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown fault during diagnostic filesystem initialization.' 000203ce 42 6f 6f 74 20 61 20 64 |Boot a d| .TXT 'Boot a different disk if possible. This unit must be re-built. ' 0002040e 42 6f 6f 74 20 61 20 64 |Boot a d| .TXT 'Boot a different disk if possible. This unit must be re-built. ' 0002044e 54 68 69 73 20 64 69 73 |This dis| .TXT 'This disk unit is not bootable. Re-boot from different unit. ' 0002048c 43 6f 6e 74 61 63 74 20 |Contact | .TXT 'Contact Rational customer support ' 000204ae 49 6e 69 74 69 61 6c 69 |Initiali| .TXT 'Initializing diagnostic file system ... ' 000204d6 46 69 6c 65 20 73 79 73 |File sys| .TXT 'File system starter not booted from disk. ' 00020500 5b 4f 4b 5d |[OK] | .TXT '[OK]' 00020504 49 4f 50 5f |IOP_ | .TXT 'IOP_' 00020508 44 55 4d 50 |DUMP | .TXT 'DUMP' 0002050c 49 4f 50 5f |IOP_ | .TXT 'IOP_' 00020510 44 55 4d 50 |DUMP | .TXT 'DUMP' 00020514 2a 2a 2a 20 63 6f 75 6c |*** coul| .TXT '*** could not create IOP_DUMP0 file (see reason above)' 0002054a 43 52 41 53 48 53 41 56 |CRASHSAV| .TXT 'CRASHSAVE ' 00020554 4e 4f 5f 52 31 4b 5f 44 |NO_R1K_D| .TXT 'NO_R1K_DUMP ' 00020560 43 52 41 53 48 53 41 56 |CRASHSAV| .TXT 'CRASHSAVE ' 0002056a 44 55 4d 50 5f 52 31 30 |DUMP_R10| .TXT 'DUMP_R1000' 00020574 53 68 6f 75 6c 64 20 74 |Should t| .TXT 'Should the R1000 boot automatically after the crash dump finishes ' 000205b6 3e 3e 3e 20 43 61 6e 27 |>>> Can'| .TXT '>>> Can't make a CRASHDUMP because a full CRASHSAVE wasn't made ' 000205f6 3e 3e 3e 20 43 61 6e 27 |>>> Can'| .TXT '>>> Can't make a CRASHDUMP because the uDIAG or FRU tests were run' 00020638 43 52 41 53 48 44 55 4d |CRASHDUM| .TXT 'CRASHDUMP ' 00020642 52 75 6e 6e 69 6e 67 20 |Running | .TXT 'Running phase 1 & 2 FRU diagnostic tests' 0002066a 46 52 |FR | .TXT 'FR' 0002066c 55 20 |U | .XXX[0x2] 0002066e 41 55 54 4f 5f 52 55 4e |AUTO_RUN| .TXT 'AUTO_RUN_P2 ' 0002067a 3e 3e 3e 20 6e 6f 74 20 |>>> not | .TXT '>>> not running FRU tests because AUTO_RECOVERY=FALSE or OP_MODE=INTERACTIVE. ' 000206c8 43 52 41 53 48 53 41 56 |CRASHSAV| .TXT 'CRASHSAVE ' 000206d2 46 52 55 5f |FRU_ | .TXT 'FRU_' 000206d6 54 5f 53 43 |T_SC | .TXT 'T_SC' 000206da 52 45 45 4e |REEN | .TXT 'REEN' 000206de 52 75 6e 6e 69 6e 67 20 |Running | .TXT 'Running post-mortem diagnostics.' 000206fe 45 4d |EM | .TXT 'EM' 00020700 42 41 |BA | .TXT 'BA' 00020702 4c 4d |LM | .TXT 'LM' 00020704 2e 45 52 52 |.ERR | .TXT '.ERR' 00020708 4d 45 53 53 |MESS | .TXT 'MESS' 0002070c 52 65 73 74 61 72 74 69 |Restarti| .TXT 'Restarting system after R1000 ' 0002072a 20 6e 6f 20 66 61 75 6c | no faul| .TXT ' no fault found ' 0002075c 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => System error ' 0002078e 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => I/O Processor hardware error ' 000207c0 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => I/O Processor software error ' 000207f2 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => Processor hardware error ' 00020824 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => Processor multi-bit memory error ' 00020856 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => Processor SYSBUS hardware error ' 00020888 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => Processor microcode error ' 000208ba 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => Processor software error ' 000208ec 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => Shutdown from Environment ' 0002091e 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => Processor crash error ' 00020950 20 72 65 66 72 65 73 68 | refresh| .TXT ' refresh machine check error ' 00020982 20 6d 61 63 68 69 6e 65 | machine| .TXT ' machine check (parity error) ' 000209b4 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => Unknown error halt ' 000209e6 73 74 |st | .XXX[0x2] 000209e8 61 72 74 69 6e 67 20 73 |arting s| .XXX[0x10] 000209f0 79 73 74 65 6d 20 61 66 |ystem af| 000209f8 74 65 72 20 |ter | .XXX[0x4] 000209fc 41 55 54 4f 42 4f 4f 54 |AUTOBOOT| .TXT 'AUTOBOOT_AFTER_CRASH' 00020a10 3e 3e 3e 20 74 68 65 20 |>>> the | .TXT '>>> the AUTOBOOT_AFTER_CRASH file does not exist - disabling auto reboot' 00020a58 4f 4e 43 45 |ONCE | .TXT 'ONCE' 00020a5c 3e 3e 3e 20 61 75 74 6f |>>> auto| .TXT '>>> auto reboot after crash is disabled this one time only' 00020a96 45 4e 41 42 4c 45 20 61 |ENABLE a| .TXT 'ENABLE automatic rebooting after a crash. ' 00020ac0 45 4e |EN | .TXT 'EN' 00020ac2 41 42 |AB | .TXT 'AB' 00020ac4 4c 45 |LE | .TXT 'LE' 00020ac6 3e 3e 3e 20 61 75 74 6f |>>> auto| .TXT '>>> auto reboot after crash is DISABLED in the AUTOBOOT_AFTER_CRASH file' 00020b0e 3e 3e 3e 20 69 6e 76 61 |>>> inva| .TXT '>>> invalid number of days in AUTOBOOT_AFTER_CRASH file - disabling auto reboot ' 00020b5e 52 31 30 30 30 5f 44 55 |R1000_DU| .TXT 'R1000_DUMP' 00020b68 3e 3e 3e 20 74 68 65 20 |>>> the | .TXT '>>> the previous crash at_' 00020b82 20 77 61 73 20 63 6c 61 | was cla| .TXT ' was classified as: ' 00020b96 5f 5f |__ | .TXT '__' 00020b98 5f 5f |__ | .TXT '__' 00020b9a 5f 5f |__ | .TXT '__' 00020b9c 3e 3e 3e 20 63 6f 75 6c |>>> coul| .TXT '>>> could not find crash reason text' 00020bc0 3e 3e 3e 20 6e 6f 20 70 |>>> no p| .TXT '>>> no previous crash info found in the tombstones' 00020bf2 2a 2a 2a 20 54 68 65 20 |*** The | .TXT '*** The previous system crash occurred_ ' 00020c1a 20 64 61 79 73 20 61 67 | days ag| .TXT ' days ago but the AUTOBOOT_AFTER_CRASH' 00020c40 20 20 20 20 66 69 6c 65 | file| .TXT ' file specifies that_' 00020c58 20 64 61 79 73 20 6f 72 | days or| .TXT ' days or more must elapse since the previous crash in ' 00020c8e 20 20 20 20 6f 72 64 65 | orde| .TXT ' order for an automatic reboot to occur. Please call Rational for assistance.' 00020cde 43 52 41 53 48 53 41 56 |CRASHSAV| .TXT 'CRASHSAVE ' 00020ce8 52 45 43 4f |RECO | .TXT 'RECO' 00020cec 56 5f 53 43 |V_SC | .TXT 'V_SC' 00020cf0 52 45 45 4e |REEN | .TXT 'REEN' 00020cf4 52 55 4e 5f 55 44 49 41 |RUN_UDIA| .TXT 'RUN_UDIAG ' 00020cfe 43 52 41 53 48 53 41 56 |CRASHSAV| .TXT 'CRASHSAVE ' 00020d08 52 45 43 4f |RECO | .TXT 'RECO' 00020d0c 56 5f 53 43 |V_SC | .TXT 'V_SC' 00020d10 52 45 45 4e |REEN | .TXT 'REEN' 00020d14 3e 3e 3e 20 54 68 65 20 |>>> The | .TXT '>>> The Confidence Test passed but the system just crashed due to a possible' 00020d60 20 20 20 20 68 61 72 64 | hard| .TXT ' hardware failure. The problem may be intermittent. Try to reboot the system.' 00020db0 43 52 41 53 48 53 41 56 |CRASHSAV| .TXT 'CRASHSAVE ' 00020dba 44 55 4d 50 5f 55 44 49 |DUMP_UDI| .TXT 'DUMP_UDIAG' 00020dc4 2a 2a 2a 20 74 68 65 20 |*** the | .TXT '*** the Confidence Test failed: now running the FRU tests ' 00020dfe 3e 3e 3e 20 41 75 74 6f |>>> Auto| .TXT '>>> Automatic Crash Recovery is disabled' 00020e26 43 52 41 53 48 53 41 56 |CRASHSAV| .TXT 'CRASHSAVE ' 00020e30 52 45 43 4f |RECO | .TXT 'RECO' 00020e34 56 5f 53 43 |V_SC | .TXT 'V_SC' 00020e38 52 45 45 4e |REEN | .TXT 'REEN' 00020e3c 54 68 65 20 52 31 30 30 |The R100| .TXT 'The R1000 has exceeded maximum safe temperature limits. ' 00020e74 52 65 73 74 61 72 74 69 |Restarti| .TXT 'Restarting system after loss of AC power' 00020e9c 52 65 73 74 61 72 74 69 |Restarti| .TXT 'Restarting system after White Button Reset or DC power fault' 00020ed8 43 4f 4e 46 49 47 55 52 |CONFIGUR| .TXT 'CONFIGURE ' 00020ee2 52 65 73 74 61 72 74 69 |Restarti| .TXT 'Restarting system after operator console BREAK key' 00020f14 52 65 73 74 61 72 74 69 |Restarti| .TXT 'Restarting system after operator or program invoked crash (EPO) ' 00020f54 52 65 73 74 61 72 74 69 |Restarti| .TXT 'Restarting system after automatically updating EEPROMs' 00020f8a 3e 3e 3e 20 64 69 64 20 |>>> did | .TXT '>>> did not save CPU state because Auto Crash Recovery is disabled' 00020fcc 43 52 41 53 48 53 41 56 |CRASHSAV| .TXT 'CRASHSAVE ' 00020fd6 52 45 43 4f |RECO | .TXT 'RECO' 00020fda 56 5f 53 43 |V_SC | .TXT 'V_SC' 00020fde 52 45 45 4e |REEN | .TXT 'REEN' 00020fe2 3e 3e 3e 20 50 6c 65 61 |>>> Plea| .TXT '>>> Please make a CRASHDUMP tape' 00021002 20 5f | _ | .TXT ' _' 00021004 52 65 73 74 61 72 69 6e |Restarin| .TXT 'Restaring system after IOP Kernel crash @_' 0002102e 20 3d | = | .TXT ' =' 00021030 3e 20 |> | .XXX[0x2] 00021032 49 4f 50 5f 50 41 4e 49 |IOP_PANI| .TXT 'IOP_PANICS.ERRMESS' 00021044 52 65 73 74 61 72 69 6e |Restarin| .TXT 'Restaring system after IOA reboot request, reason =>' 00021078 49 4f 41 5f 50 41 4e 49 |IOA_PANI| .TXT 'IOA_PANICS.ERRMESS' 0002108a 3d 3d 3d 3d 3d 3d 3d 3d |========| .TXT '====================================================' 000210be 5b 31 3b 37 6d 20 |[1;7m | .TXT '[1;7m ' 000210c4 43 52 41 53 48 5f 44 55 |CRASH_DU| .TXT 'CRASH_DUMP.SAVED_STATE' 000210da 3e 3e 3e 20 4e 4f 54 49 |>>> NOTI| .TXT '>>> NOTICE: the EPROM WRT PROT switch is OFF (at front of RESHA board) <<<' 00021124 3e 3e 3e 20 4e 4f 54 49 |>>> NOTI| .TXT '>>> NOTICE: the OPERATOR_MODE switch is set to INTERACTIVE <<<' 00021162 3e 3e 3e 20 57 41 52 4e |>>> WARN| .TXT '>>> WARNING: the system clock or power is margined <<<' 00021198 42 45 |BE | .TXT 'BE' 0002119a 4b 49 |KI | .TXT 'KI' 0002119c 4e 53 |NS | .TXT 'NS' 0002119e 44 4f 55 53 45 20 |DOUSE | .TXT 'DOUSE ' 000211a4 24 5b 30 6d |$[0m | .XXX[0x4] 000211a8 43 4c 49 2f 43 52 41 53 |CLI/CRAS| .TXT 'CLI/CRASH MENU - options are: ' 000211c6 20 5f | _ | .TXT ' _' 000211c8 20 3d 3e 5f | =>_ | .TXT ' =>_' 000211cc 45 6e 74 65 72 20 6f 70 |Enter op| .TXT 'Enter option [' 000211da 5d 20 3a 5f |] :_ | .TXT '] :_' 000211de 43 4c |CL | .TXT 'CL' 000211e0 49 20 |I | .XXX[0x2] 000211e2 54 4f 4d 42 53 54 4f 4e |TOMBSTON| .TXT 'TOMBSTONE ' 000211ec 41 55 54 4f |AUTO | .TXT 'AUTO' 000211f0 4c 4f |LO | .TXT 'LO' 000211f2 41 44 |AD | .TXT 'AD' 000211f4 45 52 |ER | .TXT 'ER' 000211f6 44 44 |DD | .TXT 'DD' 000211f8 43 20 |C | .XXX[0x2] 000211fa 4c 4f |LO | .TXT 'LO' 000211fc 41 44 |AD | .TXT 'AD' 000211fe 45 52 |ER | .TXT 'ER' 00021200 45 45 44 42 |EEDB | .TXT 'EEDB' 00021204 55 50 44 41 54 45 5f 45 |UPDATE_E| .TXT 'UPDATE_EEPROM ' 00021212 41 55 54 4f 5f 55 50 44 |AUTO_UPD| .TXT 'AUTO_UPDATE ' 0002121e 2d 2d 2d 20 42 6f 6f 74 |--- Boot| .TXT '--- Booting the R1000 Environment --- ' 00021244 4c 4f |LO | .TXT 'LO' 00021246 41 44 |AD | .TXT 'AD' 00021248 45 52 |ER | .TXT 'ER' 0002124a 53 54 41 4e |STAN | .TXT 'STAN' 0002124e 44 41 52 44 |DARD | .TXT 'DARD' 00021252 69 6c 6c 65 67 61 6c 20 |illegal | .TXT 'illegal response, try again ' 0002126e 65 6e 74 65 72 20 43 4c |enter CL| .TXT 'enter CLI ' 0002128c 6d 61 6b 65 20 61 20 43 |make a C| .TXT 'make a CRASHDUMP tape ' 000212aa 64 69 73 70 6c 61 79 20 |display | .TXT 'display CRASH INFO ' 000212c8 42 6f 6f 74 20 44 44 43 |Boot DDC| .TXT 'Boot DDC configuration ' 000212e6 42 6f 6f 74 20 45 45 44 |Boot EED| .TXT 'Boot EEDB configuration ' 00021304 42 6f 6f 74 20 53 54 41 |Boot STA| .TXT 'Boot STANDARD configuration ' 00021322 02 02 05 02 02 05 | | .XXX[0x6] 00021328 04 01 00 06 04 04 09 07 | | .XXX[0x18] 00021330 05 06 06 04 02 06 04 07 | | 00021338 07 07 07 00 06 07 07 04 | | 00021340 01 00 00 | | .XXX[0x3] 00021343 20 6e 6f 20 66 61 75 6c | no faul| .TXT ' no fault found ' 00021375 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => System error ' 000213a7 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => I/O Processor hardware error ' 000213d9 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => I/O Processor software error ' 0002140b 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => Processor hardware error ' 0002143d 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => Processor multi-bit memory error ' 0002146f 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => Processor SYSBUS hardware error ' 000214a1 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => Processor microcode error ' 000214d3 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => Processor software error ' 00021505 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => Shutdown from Environment ' 00021537 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => Processor crash error ' 00021569 20 72 65 66 72 65 73 68 | refresh| .TXT ' refresh machine check error ' 0002159b 20 6d 61 63 68 69 6e 65 | machine| .TXT ' machine check (parity error) ' 000215cd 20 48 61 6c 74 20 3d 3e | Halt =>| .TXT ' Halt => Unknown error halt ' 000215ff 06 | | .XXX[0x1] 00021600 07 04 02 0c 0d 0e 0f 00 | | .XXX[0x8] 00021608 ; -------------------------------------------------------------------------------------- 00021608 ; OMSI PASCAL Function 00021608 ; <LVAR 0x008 4(w)> 00021608 ; <LVAR -0x004 @> 00021608 ; <LVAR -0x00c @ 4(r)> 00021608 ; -------------------------------------------------------------------------------------- 00021608 4e 56 ff ce |NV | LINK.W A6,#0xffce 0002160c bf d5 | | CMPA.L (A5),A7 0002160e 62 06 |b | BHI 0x21616 00021610 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021614 4e 76 |Nv | TRAPV 00021616 de fc 00 26 | & | ADDA.W #0x26,A7 0002161a 48 e7 e1 c0 |H | MOVEM.L A1+A0+D7+D2+D1+D0,-(A7) 0002161e 43 ee ff f4 |C | LEA.L (A6-0xc),A1 00021622 72 0f |r | MOVEQ.L #0x0f,D1 00021624 74 03 |t | MOVEQ.L #0x03,D2 00021626 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002162a 4e b9 00 01 05 9e |N | JSR ReadClusterNo(VAR a : Long) 00021630 58 4f |XO | ADDQ.L #0x4,A7 00021632 48 51 |HQ | PEA.L (A1) 00021634 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002163a 58 4f |XO | ADDQ.L #0x4,A7 0002163c 7e 00 |~ | MOVEQ.L #0x00,D7 0002163e be 82 | | CMP.L D2,D7 00021640 63 02 |c | BLS 0x21644 00021642 4e 4f |NO | TRAP #15 00021644 2f 11 |/ | MOVE.L (A1),-(A7) 00021646 42 80 |B | CLR.L D0 00021648 10 36 78 fc | 6x | MOVE.B (A6+D7.L-#0x4),D0 0002164c e8 40 | @ | ASR.W #0x4,D0 0002164e 52 40 |R@ | ADDQ.W #0x1,D0 00021650 53 40 |S@ | SUBQ.W #0x1,D0 00021652 41 81 |A | CHK.W D1,D0 00021654 41 fa eb 8a |A | LEA.L 0x201e0,A0 00021658 1f 30 00 00 | 0 | MOVE.B (A0+D0.W),-(A7) 0002165c 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00021662 54 4f |TO | ADDQ.L #0x2,A7 00021664 2e 91 |. | MOVE.L (A1),(A7) 00021666 42 80 |B | CLR.L D0 00021668 10 36 78 fc | 6x | MOVE.B (A6+D7.L-#0x4),D0 0002166c c0 41 | A | AND.W D1,D0 0002166e 52 40 |R@ | ADDQ.W #0x1,D0 00021670 53 40 |S@ | SUBQ.W #0x1,D0 00021672 41 81 |A | CHK.W D1,D0 00021674 41 fa eb 6a |A j | LEA.L 0x201e0,A0 00021678 1f 30 00 00 | 0 | MOVE.B (A0+D0.W),-(A7) 0002167c 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00021682 5c 4f |\O | ADDQ.L #0x6,A7 00021684 52 87 |R | ADDQ.L #0x1,D7 00021686 be 82 | | CMP.L D2,D7 00021688 6f b4 |o | BLE 0x2163e 0002168a 2d 51 00 08 |-Q | MOVE.L (A1),(A6+0x8) 0002168e 4c df 03 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1 00021692 4e 5e |N^ | UNLK A6 00021694 4e 75 |Nu | RTS 00021696 ; -------------------------------------------------------------------------------------- 00021696 ; OMSI PASCAL Function 00021696 ; <LVAR -0x004 @> 00021696 ; -------------------------------------------------------------------------------------- 00021696 4e 56 ff 92 |NV | LINK.W A6,#0xff92 0002169a bf d5 | | CMPA.L (A5),A7 0002169c 62 06 |b | BHI 0x216a4 0002169e 44 fc 00 02 |D | MOVE.W #0x2,CCR 000216a2 4e 76 |Nv | TRAPV 000216a4 de fc 00 6a | j | ADDA.W #0x6a,A7 000216a8 48 e7 f3 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7) 000216ac 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000216b2 47 f8 00 01 |G | LEA.L 0x1,A3 000216b6 72 01 |r | MOVEQ.L #0x01,D1 000216b8 74 1a |t | MOVEQ.L #0x1a,D2 000216ba 76 19 |v | MOVEQ.L #0x19,D3 000216bc 10 39 00 02 44 93 | 9 D | MOVE.B 0x24493,D0 000216c2 ef 08 | | LSL.B #0x7,D0 000216c4 ee 08 | | LSR.B #0x7,D0 000216c6 67 00 01 66 |g f | BEQ 0x2182e 000216ca 55 4f |UO | SUBQ.L #0x2,A7 000216cc 48 78 01 80 |Hx | PEA.L 0x180 000216d0 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 000216d6 58 4f |XO | ADDQ.L #0x4,A7 000216d8 10 2f 00 01 | / | MOVE.B (A7+0x1),D0 000216dc 0c 00 00 58 | X | CMPI.B #0x58,D0 000216e0 66 30 |f0 | BNE 0x21712 000216e2 3f 3a eb 94 |?: | MOVE.W 0x20278,-(A7) 000216e6 3f 3a eb 8e |?: | MOVE.W 0x20276,-(A7) 000216ea 3f 3a eb 88 |?: | MOVE.W 0x20274,-(A7) 000216ee 59 4f |YO | SUBQ.L #0x4,A7 000216f0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216f4 3f 01 |? | MOVE.W D1,-(A7) 000216f6 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 000216fa 4e 92 |N | JSR (A2) 000216fc 50 4f |PO | ADDQ.L #0x8,A7 000216fe 48 53 |HS | PEA.L (A3) 00021700 1f 01 | | MOVE.B D1,-(A7) 00021702 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021706 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 0002170c de fc 00 14 | | ADDA.W #0x14,A7 00021710 60 2a |`* | BRA 0x2173c 00021712 2f 3a eb 6a |/: j | MOVE.L 0x2027e,-(A7) 00021716 2f 3a eb 62 |/: b | MOVE.L 0x2027a,-(A7) 0002171a 59 4f |YO | SUBQ.L #0x4,A7 0002171c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021720 3f 01 |? | MOVE.W D1,-(A7) 00021722 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00021726 4e 92 |N | JSR (A2) 00021728 50 4f |PO | ADDQ.L #0x8,A7 0002172a 48 53 |HS | PEA.L (A3) 0002172c 1f 01 | | MOVE.B D1,-(A7) 0002172e 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021732 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00021738 de fc 00 16 | | ADDA.W #0x16,A7 0002173c 55 4f |UO | SUBQ.L #0x2,A7 0002173e 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 00021744 20 1f | | MOVE.L (A7)+,D0 00021746 b0 81 | | CMP.L D1,D0 00021748 67 00 00 e4 |g | BEQ 0x2182e 0002174c 41 fa ea d0 |A | LEA.L 0x2021e,A0 00021750 70 16 |p | MOVEQ.L #0x16,D0 00021752 3f 20 |? | MOVE.W -(A0),-(A7) 00021754 51 c8 ff fc |Q | DBF D0,0x21752 00021758 51 4f |QO | SUBQ.L #0x8,A7 0002175a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002175e 3f 01 |? | MOVE.W D1,-(A7) 00021760 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 00021764 4e 92 |N | JSR (A2) 00021766 58 4f |XO | ADDQ.L #0x4,A7 00021768 4e ba fe 9e |N | JSR 0x21608 0002176c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021772 50 4f |PO | ADDQ.L #0x8,A7 00021774 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002177a de fc 00 32 | 2 | ADDA.W #0x32,A7 0002177e 7e 00 |~ | MOVEQ.L #0x00,D7 00021780 7c 00 || | MOVEQ.L #0x00,D6 00021782 9e c2 | | SUBA.W D2,A7 00021784 20 4f | O | MOVEA.L A7,A0 00021786 43 fa ea b8 |C | LEA.L 0x20240,A1 0002178a 70 18 |p | MOVEQ.L #0x18,D0 0002178c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002178e 51 c8 ff fc |Q | DBF D0,0x2178c 00021792 5d 4f |]O | SUBQ.L #0x6,A7 00021794 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021798 3f 01 |? | MOVE.W D1,-(A7) 0002179a 3f 03 |? | MOVE.W D3,-(A7) 0002179c 4e 92 |N | JSR (A2) 0002179e 5c 4f |\O | ADDQ.L #0x6,A7 000217a0 1e 81 | | MOVE.B D1,(A7) 000217a2 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 000217a8 5c 4f |\O | ADDQ.L #0x6,A7 000217aa 10 1f | | MOVE.B (A7)+,D0 000217ac 48 80 |H | EXTB.W D0 000217ae 41 81 |A | CHK.W D1,D0 000217b0 de c2 | | ADDA.W D2,A7 000217b2 1e 00 | | MOVE.B D0,D7 000217b4 66 32 |f2 | BNE 0x217e8 000217b6 9e c2 | | SUBA.W D2,A7 000217b8 20 4f | O | MOVEA.L A7,A0 000217ba 43 fa ea 9e |C | LEA.L 0x2025a,A1 000217be 70 18 |p | MOVEQ.L #0x18,D0 000217c0 10 d9 | | MOVE.B (A1)+,(A0)+ 000217c2 51 c8 ff fc |Q | DBF D0,0x217c0 000217c6 5d 4f |]O | SUBQ.L #0x6,A7 000217c8 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000217cc 3f 01 |? | MOVE.W D1,-(A7) 000217ce 3f 03 |? | MOVE.W D3,-(A7) 000217d0 4e 92 |N | JSR (A2) 000217d2 5c 4f |\O | ADDQ.L #0x6,A7 000217d4 1e 81 | | MOVE.B D1,(A7) 000217d6 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 000217dc 5c 4f |\O | ADDQ.L #0x6,A7 000217de 10 1f | | MOVE.B (A7)+,D0 000217e0 48 80 |H | EXTB.W D0 000217e2 41 81 |A | CHK.W D1,D0 000217e4 de c2 | | ADDA.W D2,A7 000217e6 1c 00 | | MOVE.B D0,D6 000217e8 4a 07 |J | TST.B D7 000217ea 66 04 |f | BNE 0x217f0 000217ec 4a 06 |J | TST.B D6 000217ee 67 92 |g | BEQ 0x21782 000217f0 4a 06 |J | TST.B D6 000217f2 67 3a |g: | BEQ 0x2182e 000217f4 4e b9 00 01 02 16 |N | JSR KC0b 000217fa 48 53 |HS | PEA.L (A3) 000217fc 4e b9 00 01 03 f4 |N | JSR SetConsoleConfig(a : Long) 00021802 9e fc 00 1e | | SUBA.W #0x1e,A7 00021806 20 4f | O | MOVEA.L A7,A0 00021808 43 fa ea 14 |C | LEA.L 0x2021e,A1 0002180c 70 20 |p | MOVEQ.L #0x20,D0 0002180e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021810 51 c8 ff fc |Q | DBF D0,0x2180e 00021814 59 4f |YO | SUBQ.L #0x4,A7 00021816 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002181a 3f 01 |? | MOVE.W D1,-(A7) 0002181c 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7) 00021820 4e 92 |N | JSR (A2) 00021822 50 4f |PO | ADDQ.L #0x8,A7 00021824 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002182a de fc 00 26 | & | ADDA.W #0x26,A7 0002182e 4c df 0f cf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2+A3 00021832 4e 5e |N^ | UNLK A6 00021834 4e 75 |Nu | RTS 00021836 ; -------------------------------------------------------------------------------------- 00021836 ; OMSI PASCAL Function 00021836 ; <LVAR -0x004 @ 1(r)> 00021836 ; <LVAR -0x00a 2(r)> 00021836 ; <LVAR -0x00c @ 4(r)> 00021836 ; -------------------------------------------------------------------------------------- 00021836 4e 56 ff 88 |NV | LINK.W A6,#0xff88 0002183a bf d5 | | CMPA.L (A5),A7 0002183c 62 06 |b | BHI 0x21844 0002183e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021842 4e 76 |Nv | TRAPV 00021844 de fc 00 6c | l | ADDA.W #0x6c,A7 00021848 48 e7 c1 e8 |H | MOVEM.L A4+A2+A1+A0+D7+D1+D0,-(A7) 0002184c 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00021850 72 01 |r | MOVEQ.L #0x01,D1 00021852 48 52 |HR | PEA.L (A2) 00021854 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 0002185a 58 4f |XO | ADDQ.L #0x4,A7 0002185c 7e 00 |~ | MOVEQ.L #0x00,D7 0002185e 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 00021862 ef 48 | H | LSL.W #0x7,D0 00021864 e0 48 | H | LSR.W #0x8,D0 00021866 e8 48 | H | LSR.W #0x4,D0 00021868 67 02 |g | BEQ 0x2186c 0002186a 52 07 |R | ADDQ.B #0x1,D7 0002186c 4a 07 |J | TST.B D7 0002186e 66 00 00 84 |f | BNE 0x218f4 00021872 9e fc 00 3c | < | SUBA.W #0x3c,A7 00021876 20 4f | O | MOVEA.L A7,A0 00021878 43 fa ea 08 |C | LEA.L 0x20282,A1 0002187c 70 3a |p: | MOVEQ.L #0x3a,D0 0002187e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021880 51 c8 ff fc |Q | DBF D0,0x2187e 00021884 51 4f |QO | SUBQ.L #0x8,A7 00021886 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002188a 3f 01 |? | MOVE.W D1,-(A7) 0002188c 3f 3c 00 3b |?< ; | MOVE.W #0x3b,-(A7) 00021890 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021896 50 4f |PO | ADDQ.L #0x8,A7 00021898 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 0002189e 58 4f |XO | ADDQ.L #0x4,A7 000218a0 28 5f |(_ | MOVEA.L (A7)+,A4 000218a2 de fc 00 38 | 8 | ADDA.W #0x38,A7 000218a6 2e 8c |. | MOVE.L A4,(A7) 000218a8 48 52 |HR | PEA.L (A2) 000218aa 48 6e ff fc |Hn | PEA.L (A6-0x4) 000218ae 4e b9 00 01 03 10 |N | JSR ConvertTimestamp(MOD input : String; b : L; VAR status : Bool) 000218b4 de fc 00 0c | | ADDA.W #0xc,A7 000218b8 4a 2e ff fc |J. | TST.B (A6-0x4) 000218bc 67 0c |g | BEQ 0x218ca 000218be 2f 12 |/ | MOVE.L (A2),-(A7) 000218c0 4e b9 00 01 03 0c |N | JSR SetRtc(a: TimeStamp) 000218c6 58 4f |XO | ADDQ.L #0x4,A7 000218c8 60 2a |`* | BRA 0x218f4 000218ca 41 fa ea 1e |A | LEA.L 0x202ea,A0 000218ce 70 0a |p | MOVEQ.L #0x0a,D0 000218d0 2f 20 |/ | MOVE.L -(A0),-(A7) 000218d2 51 c8 ff fc |Q | DBF D0,0x218d0 000218d6 59 4f |YO | SUBQ.L #0x4,A7 000218d8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000218dc 3f 01 |? | MOVE.W D1,-(A7) 000218de 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7) 000218e2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000218e8 50 4f |PO | ADDQ.L #0x8,A7 000218ea 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000218f0 de fc 00 30 | 0 | ADDA.W #0x30,A7 000218f4 4a 07 |J | TST.B D7 000218f6 67 00 ff 5a |g Z | BEQ 0x21852 000218fa 4c df 17 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A4 000218fe 4e 5e |N^ | UNLK A6 00021900 4e 75 |Nu | RTS 00021902 ; -------------------------------------------------------------------------------------- 00021902 ; OMSI PASCAL Function 00021902 ; <LVAR -0x004 @ 1(r)> 00021902 ; <LVAR -0x006 @ 2(r)> 00021902 ; <LVAR -0x008 @ 1(r)> 00021902 ; -------------------------------------------------------------------------------------- 00021902 4e 56 ff 80 |NV | LINK.W A6,#0xff80 00021906 bf d5 | | CMPA.L (A5),A7 00021908 62 06 |b | BHI 0x21910 0002190a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002190e 4e 76 |Nv | TRAPV 00021910 de fc 00 74 | t | ADDA.W #0x74,A7 00021914 48 e7 f0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7) 00021918 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 0002191e 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00021924 49 ee ff fc |I | LEA.L (A6-0x4),A4 00021928 72 01 |r | MOVEQ.L #0x01,D1 0002192a 74 2a |t* | MOVEQ.L #0x2a,D2 0002192c 76 02 |v | MOVEQ.L #0x02,D3 0002192e 9e fc 00 28 | ( | SUBA.W #0x28,A7 00021932 20 4f | O | MOVEA.L A7,A0 00021934 43 fa eb 78 |C x | LEA.L 0x204ae,A1 00021938 70 26 |p& | MOVEQ.L #0x26,D0 0002193a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002193c 51 c8 ff fc |Q | DBF D0,0x2193a 00021940 59 4f |YO | SUBQ.L #0x4,A7 00021942 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021946 3f 01 |? | MOVE.W D1,-(A7) 00021948 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 0002194c 4e 92 |N | JSR (A2) 0002194e 50 4f |PO | ADDQ.L #0x8,A7 00021950 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00021956 de c2 | | ADDA.W D2,A7 00021958 1e bc 00 20 | | MOVE.B #0x20,(A7) 0002195c 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00021962 54 4f |TO | ADDQ.L #0x2,A7 00021964 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021968 48 6e ff fa |Hn | PEA.L (A6-0x6) 0002196c 4e b9 00 01 02 00 |N | JSR KC00_GetBootDev(VAR a : Byte; VAR b : Word) 00021972 50 4f |PO | ADDQ.L #0x8,A7 00021974 10 2e ff f8 | . | MOVE.B (A6-0x8),D0 00021978 b0 03 | | CMP.B D3,D0 0002197a 67 38 |g8 | BEQ 0x219b4 0002197c 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021982 9e c2 | | SUBA.W D2,A7 00021984 20 4f | O | MOVEA.L A7,A0 00021986 43 fa eb 4e |C N | LEA.L 0x204d6,A1 0002198a 70 28 |p( | MOVEQ.L #0x28,D0 0002198c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002198e 51 c8 ff fc |Q | DBF D0,0x2198c 00021992 59 4f |YO | SUBQ.L #0x4,A7 00021994 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021998 3f 01 |? | MOVE.W D1,-(A7) 0002199a 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 0002199e 4e 92 |N | JSR (A2) 000219a0 50 4f |PO | ADDQ.L #0x8,A7 000219a2 4e 93 |N | JSR (A3) 000219a4 de fc 00 2e | . | ADDA.W #0x2e,A7 000219a8 48 78 00 10 |Hx | PEA.L 0x10 000219ac 4e b9 00 01 02 20 |N | JSR KC10_Panic(code : Long) 000219b2 58 4f |XO | ADDQ.L #0x4,A7 000219b4 30 2e ff fa |0. | MOVE.W (A6-0x6),D0 000219b8 41 bc 00 0f |A | CHK.W #0xf,D0 000219bc 3f 00 |? | MOVE.W D0,-(A7) 000219be 48 54 |HT | PEA.L (A4) 000219c0 4e b9 00 01 03 94 |N | JSR MountDisk(drive : Word ; VAR status : Byte) 000219c6 5c 4f |\O | ADDQ.L #0x6,A7 000219c8 4a 14 |J | TST.B (A4) 000219ca 67 00 01 3c |g < | BEQ 0x21b08 000219ce 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000219d4 10 14 | | MOVE.B (A4),D0 000219d6 48 80 |H | EXTB.W D0 000219d8 04 40 00 0c | @ | SUBI.W #0x000c,D0 000219dc b0 43 | C | CMP.W D3,D0 000219de 62 00 00 d6 |b | BHI 0x21ab6 000219e2 d0 40 | @ | ADD.W D0,D0 000219e4 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000219ec 00 06 | | .CONST 0x6 ; [0x0] -> 0x219f2 000219ee 00 4e | N | .CONST 0x4e ; [0x1] -> 0x21a3a 000219f0 00 84 | | .CONST 0x84 ; [0x2] -> 0x21a70 000219f2 switch@0x219e4[0x0]: 000219f2 41 fa e9 36 |A 6 | LEA.L 0x2032a,A0 000219f6 70 0f |p | MOVEQ.L #0x0f,D0 000219f8 2f 20 |/ | MOVE.L -(A0),-(A7) 000219fa 51 c8 ff fc |Q | DBF D0,0x219f8 000219fe 59 4f |YO | SUBQ.L #0x4,A7 00021a00 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021a04 3f 01 |? | MOVE.W D1,-(A7) 00021a06 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 00021a0a 4e 92 |N | JSR (A2) 00021a0c 50 4f |PO | ADDQ.L #0x8,A7 00021a0e 4e 93 |N | JSR (A3) 00021a10 58 4f |XO | ADDQ.L #0x4,A7 00021a12 20 4f | O | MOVEA.L A7,A0 00021a14 43 fa e9 b8 |C | LEA.L 0x203ce,A1 00021a18 70 3e |p> | MOVEQ.L #0x3e,D0 00021a1a 10 d9 | | MOVE.B (A1)+,(A0)+ 00021a1c 51 c8 ff fc |Q | DBF D0,0x21a1a 00021a20 59 4f |YO | SUBQ.L #0x4,A7 00021a22 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021a26 3f 01 |? | MOVE.W D1,-(A7) 00021a28 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 00021a2c 4e 92 |N | JSR (A2) 00021a2e 50 4f |PO | ADDQ.L #0x8,A7 00021a30 4e 93 |N | JSR (A3) 00021a32 de fc 00 44 | D | ADDA.W #0x44,A7 00021a36 60 00 00 c4 |` | BRA 0x21afc 00021a3a switch@0x219e4[0x1]: 00021a3a 9e fc 00 36 | 6 | SUBA.W #0x36,A7 00021a3e 20 4f | O | MOVEA.L A7,A0 00021a40 43 fa e8 e8 |C | LEA.L 0x2032a,A1 00021a44 70 34 |p4 | MOVEQ.L #0x34,D0 00021a46 10 d9 | | MOVE.B (A1)+,(A0)+ 00021a48 51 c8 ff fc |Q | DBF D0,0x21a46 00021a4c 59 4f |YO | SUBQ.L #0x4,A7 00021a4e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021a52 3f 01 |? | MOVE.W D1,-(A7) 00021a54 3f 3c 00 35 |?< 5 | MOVE.W #0x35,-(A7) 00021a58 4e 92 |N | JSR (A2) 00021a5a 50 4f |PO | ADDQ.L #0x8,A7 00021a5c 4e 93 |N | JSR (A3) 00021a5e 5d 4f |]O | SUBQ.L #0x6,A7 00021a60 20 4f | O | MOVEA.L A7,A0 00021a62 43 fa e9 aa |C | LEA.L 0x2040e,A1 00021a66 70 3e |p> | MOVEQ.L #0x3e,D0 00021a68 10 d9 | | MOVE.B (A1)+,(A0)+ 00021a6a 51 c8 ff fc |Q | DBF D0,0x21a68 00021a6e 60 b0 |` | BRA 0x21a20 00021a70 switch@0x219e4[0x2]: 00021a70 41 fa e9 22 |A " | LEA.L 0x20394,A0 00021a74 70 0c |p | MOVEQ.L #0x0c,D0 00021a76 2f 20 |/ | MOVE.L -(A0),-(A7) 00021a78 51 c8 ff fc |Q | DBF D0,0x21a76 00021a7c 59 4f |YO | SUBQ.L #0x4,A7 00021a7e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021a82 3f 01 |? | MOVE.W D1,-(A7) 00021a84 3f 3c 00 34 |?< 4 | MOVE.W #0x34,-(A7) 00021a88 4e 92 |N | JSR (A2) 00021a8a 50 4f |PO | ADDQ.L #0x8,A7 00021a8c 4e 93 |N | JSR (A3) 00021a8e 5d 4f |]O | SUBQ.L #0x6,A7 00021a90 20 4f | O | MOVEA.L A7,A0 00021a92 43 fa e9 ba |C | LEA.L 0x2044e,A1 00021a96 70 3c |p< | MOVEQ.L #0x3c,D0 00021a98 10 d9 | | MOVE.B (A1)+,(A0)+ 00021a9a 51 c8 ff fc |Q | DBF D0,0x21a98 00021a9e 59 4f |YO | SUBQ.L #0x4,A7 00021aa0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021aa4 3f 01 |? | MOVE.W D1,-(A7) 00021aa6 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 00021aaa 4e 92 |N | JSR (A2) 00021aac 50 4f |PO | ADDQ.L #0x8,A7 00021aae 4e 93 |N | JSR (A3) 00021ab0 de fc 00 42 | B | ADDA.W #0x42,A7 00021ab4 60 46 |`F | BRA 0x21afc 00021ab6 41 fa e9 16 |A | LEA.L 0x203ce,A0 00021aba 70 1c |p | MOVEQ.L #0x1c,D0 00021abc 3f 20 |? | MOVE.W -(A0),-(A7) 00021abe 51 c8 ff fc |Q | DBF D0,0x21abc 00021ac2 59 4f |YO | SUBQ.L #0x4,A7 00021ac4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021ac8 3f 01 |? | MOVE.W D1,-(A7) 00021aca 3f 3c 00 3a |?< : | MOVE.W #0x3a,-(A7) 00021ace 4e 92 |N | JSR (A2) 00021ad0 50 4f |PO | ADDQ.L #0x8,A7 00021ad2 4e 93 |N | JSR (A3) 00021ad4 de fc 00 1c | | ADDA.W #0x1c,A7 00021ad8 20 4f | O | MOVEA.L A7,A0 00021ada 43 fa e9 b0 |C | LEA.L 0x2048c,A1 00021ade 70 20 |p | MOVEQ.L #0x20,D0 00021ae0 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ae2 51 c8 ff fc |Q | DBF D0,0x21ae0 00021ae6 59 4f |YO | SUBQ.L #0x4,A7 00021ae8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021aec 3f 01 |? | MOVE.W D1,-(A7) 00021aee 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7) 00021af2 4e 92 |N | JSR (A2) 00021af4 50 4f |PO | ADDQ.L #0x8,A7 00021af6 4e 93 |N | JSR (A3) 00021af8 de fc 00 26 | & | ADDA.W #0x26,A7 00021afc 48 78 00 11 |Hx | PEA.L 0x11 00021b00 4e b9 00 01 02 20 |N | JSR KC10_Panic(code : Long) 00021b06 58 4f |XO | ADDQ.L #0x4,A7 00021b08 4e b9 00 01 03 a4 |N | JSR Open_ERROR_LOG(void) 00021b0e 4e b9 00 01 05 e6 |N | JSR Set_fc04_to_01(void) 00021b14 2f 3a e9 ea |/: | MOVE.L 0x20500,-(A7) 00021b18 59 4f |YO | SUBQ.L #0x4,A7 00021b1a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021b1e 3f 01 |? | MOVE.W D1,-(A7) 00021b20 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00021b24 4e 92 |N | JSR (A2) 00021b26 50 4f |PO | ADDQ.L #0x8,A7 00021b28 4e 93 |N | JSR (A3) 00021b2a 50 4f |PO | ADDQ.L #0x8,A7 00021b2c 4c df 1f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4 00021b30 4e 5e |N^ | UNLK A6 00021b32 4e 75 |Nu | RTS 00021b34 ; -------------------------------------------------------------------------------------- 00021b34 ; OMSI PASCAL Function 00021b34 ; <LVAR -0x007 1(r)> 00021b34 ; <LVAR -0x008 1(r)> 00021b34 ; <LVAR -0x009 1(r)> 00021b34 ; <LVAR -0x00a @ 1(r)> 00021b34 ; <LVAR -0x00c @ 2(r)> 00021b34 ; <LVAR -0x00e @ 2(r)> 00021b34 ; <LVAR -0x410 2(w)> 00021b34 ; <LVAR -0x412 @> 00021b34 ; <LVAR -0x416 @ 4(r)> 00021b34 ; <LVAR -0x418 @ 1(r)> 00021b34 ; <LVAR -0x41c @ 4(rw)> 00021b34 ; -------------------------------------------------------------------------------------- 00021b34 4e 56 fb 6a |NV j | LINK.W A6,#0xfb6a 00021b38 bf d5 | | CMPA.L (A5),A7 00021b3a 62 06 |b | BHI 0x21b42 00021b3c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021b40 4e 76 |Nv | TRAPV 00021b42 de fc 00 76 | v | ADDA.W #0x76,A7 00021b46 48 e7 fb f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7) 00021b4a 43 ee fb e8 |C | LEA.L (A6-0x418),A1 00021b4e 45 ee fb ea |E | LEA.L (A6-0x416),A2 00021b52 47 ee fb e4 |G | LEA.L (A6-0x41c),A3 00021b56 72 01 |r | MOVEQ.L #0x01,D1 00021b58 74 14 |t | MOVEQ.L #0x14,D2 00021b5a 76 10 |v | MOVEQ.L #0x10,D3 00021b5c 78 08 |x | MOVEQ.L #0x08,D4 00021b5e 7e 04 |~ | MOVEQ.L #0x04,D7 00021b60 2f 3a e9 a6 |/: | MOVE.L 0x20508,-(A7) 00021b64 2f 3a e9 9e |/: | MOVE.L 0x20504,-(A7) 00021b68 51 4f |QO | SUBQ.L #0x8,A7 00021b6a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021b6e 3f 01 |? | MOVE.W D1,-(A7) 00021b70 3f 04 |? | MOVE.W D4,-(A7) 00021b72 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021b78 2e 87 |. | MOVE.L D7,(A7) 00021b7a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021b80 58 4f |XO | ADDQ.L #0x4,A7 00021b82 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021b88 50 4f |PO | ADDQ.L #0x8,A7 00021b8a 28 5f |(_ | MOVEA.L (A7)+,A4 00021b8c 58 4f |XO | ADDQ.L #0x4,A7 00021b8e 2e 8c |. | MOVE.L A4,(A7) 00021b90 42 27 |B' | CLR.B -(A7) 00021b92 42 27 |B' | CLR.B -(A7) 00021b94 48 78 00 00 |Hx | PEA.L 0x0 00021b98 48 51 |HQ | PEA.L (A1) 00021b9a 48 52 |HR | PEA.L (A2) 00021b9c 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00021ba2 de c2 | | ADDA.W D2,A7 00021ba4 4a 11 |J | TST.B (A1) 00021ba6 66 16 |f | BNE 0x21bbe 00021ba8 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00021bac 1f 01 | | MOVE.B D1,-(A7) 00021bae 48 78 00 01 |Hx | PEA.L 0x1 00021bb2 48 51 |HQ | PEA.L (A1) 00021bb4 48 52 |HR | PEA.L (A2) 00021bb6 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00021bbc de c3 | | ADDA.W D3,A7 00021bbe 26 8c |& | MOVE.L A4,(A3) 00021bc0 53 87 |S | SUBQ.L #0x1,D7 00021bc2 2f 3a e9 4c |/: L | MOVE.L 0x20510,-(A7) 00021bc6 2f 3a e9 44 |/: D | MOVE.L 0x2050c,-(A7) 00021bca 51 4f |QO | SUBQ.L #0x8,A7 00021bcc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021bd0 3f 01 |? | MOVE.W D1,-(A7) 00021bd2 3f 04 |? | MOVE.W D4,-(A7) 00021bd4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021bda 2e 87 |. | MOVE.L D7,(A7) 00021bdc 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021be2 58 4f |XO | ADDQ.L #0x4,A7 00021be4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021bea 50 4f |PO | ADDQ.L #0x8,A7 00021bec 28 5f |(_ | MOVEA.L (A7)+,A4 00021bee 58 4f |XO | ADDQ.L #0x4,A7 00021bf0 2e 8c |. | MOVE.L A4,(A7) 00021bf2 42 27 |B' | CLR.B -(A7) 00021bf4 42 27 |B' | CLR.B -(A7) 00021bf6 48 78 00 00 |Hx | PEA.L 0x0 00021bfa 48 51 |HQ | PEA.L (A1) 00021bfc 48 52 |HR | PEA.L (A2) 00021bfe 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00021c04 de c2 | | ADDA.W D2,A7 00021c06 4a 11 |J | TST.B (A1) 00021c08 66 00 00 9e |f | BNE 0x21ca8 00021c0c 4a 87 |J | TST.L D7 00021c0e 66 00 00 86 |f | BNE 0x21c96 00021c12 2f 12 |/ | MOVE.L (A2),-(A7) 00021c14 42 67 |Bg | CLR.W -(A7) 00021c16 42 67 |Bg | CLR.W -(A7) 00021c18 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00021c1c 1f 01 | | MOVE.B D1,-(A7) 00021c1e 41 ee fb ee |A | LEA.L (A6-0x412),A0 00021c22 2f 08 |/ | MOVE.L A0,-(A7) 00021c24 48 51 |HQ | PEA.L (A1) 00021c26 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 00021c2c de fc 00 12 | | ADDA.W #0x12,A7 00021c30 4e b9 00 01 05 ec |N | JSR Get_fc05() : Byte 00021c36 10 1f | | MOVE.B (A7)+,D0 00021c38 48 80 |H | EXTB.W D0 00021c3a 48 c0 |H | EXTW.L D0 00021c3c 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00021c42 63 02 |c | BLS 0x21c46 00021c44 4e 4f |NO | TRAP #15 00021c46 3d 40 fb f0 |=@ | MOVE.W D0,(A6-0x410) 00021c4a 2f 12 |/ | MOVE.L (A2),-(A7) 00021c4c 42 67 |Bg | CLR.W -(A7) 00021c4e 42 67 |Bg | CLR.W -(A7) 00021c50 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00021c54 1f 01 | | MOVE.B D1,-(A7) 00021c56 41 ee fb ee |A | LEA.L (A6-0x412),A0 00021c5a 2f 08 |/ | MOVE.L A0,-(A7) 00021c5c 48 51 |HQ | PEA.L (A1) 00021c5e 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 00021c64 de c2 | | ADDA.W D2,A7 00021c66 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00021c6a 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00021c70 58 4f |XO | ADDQ.L #0x4,A7 00021c72 20 52 | R | MOVEA.L (A2),A0 00021c74 11 6e ff f6 00 3a | n : | MOVE.B (A6-0xa),(A0+0x3a) 00021c7a 11 6e ff f7 00 3b | n ; | MOVE.B (A6-0x9),(A0+0x3b) 00021c80 11 6e ff f8 00 3c | n < | MOVE.B (A6-0x8),(A0+0x3c) 00021c86 11 6e ff f9 00 3d | n = | MOVE.B (A6-0x7),(A0+0x3d) 00021c8c 02 28 00 fe 00 3f | ( ? | ANDI.B #0xfe,(A0+0x3f) 00021c92 11 41 00 4c | A L | MOVE.B D1,(A0+0x4c) 00021c96 1f 01 | | MOVE.B D1,-(A7) 00021c98 1f 01 | | MOVE.B D1,-(A7) 00021c9a 2f 13 |/ | MOVE.L (A3),-(A7) 00021c9c 48 51 |HQ | PEA.L (A1) 00021c9e 48 52 |HR | PEA.L (A2) 00021ca0 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00021ca6 de c3 | | ADDA.W D3,A7 00021ca8 48 53 |HS | PEA.L (A3) 00021caa 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021cb0 58 4f |XO | ADDQ.L #0x4,A7 00021cb2 26 8c |& | MOVE.L A4,(A3) 00021cb4 4a 87 |J | TST.L D7 00021cb6 66 00 ff 08 |f | BNE 0x21bc0 00021cba 2c 3c ff ff fc 00 |,< | MOVE.L #0xfffffc00,D6 00021cc0 2f 13 |/ | MOVE.L (A3),-(A7) 00021cc2 1f 01 | | MOVE.B D1,-(A7) 00021cc4 1f 01 | | MOVE.B D1,-(A7) 00021cc6 2f 06 |/ | MOVE.L D6,-(A7) 00021cc8 48 51 |HQ | PEA.L (A1) 00021cca 48 52 |HR | PEA.L (A2) 00021ccc 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00021cd2 de c2 | | ADDA.W D2,A7 00021cd4 4a 11 |J | TST.B (A1) 00021cd6 66 44 |fD | BNE 0x21d1c 00021cd8 20 52 | R | MOVEA.L (A2),A0 00021cda 3f 28 00 24 |?( $ | MOVE.W (A0+0x24),-(A7) 00021cde 48 6e ff f2 |Hn | PEA.L (A6-0xe) 00021ce2 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00021ce6 4e b9 00 01 03 68 |N h | JSR Lba2Chs(lba : W; VAR cyl : W ; VAR hd_sec : W) 00021cec 50 4f |PO | ADDQ.L #0x8,A7 00021cee 3e ae ff f2 |> | MOVE.W (A6-0xe),(A7) 00021cf2 3f 2e ff f4 |?. | MOVE.W (A6-0xc),-(A7) 00021cf6 4e b9 00 01 02 02 |N | JSR KC01_DumpOn 00021cfc 58 4f |XO | ADDQ.L #0x4,A7 00021cfe 83 28 00 3f | ( ? | OR.B D1,(A0+0x3f) 00021d02 11 41 00 4c | A L | MOVE.B D1,(A0+0x4c) 00021d06 42 27 |B' | CLR.B -(A7) 00021d08 42 27 |B' | CLR.B -(A7) 00021d0a 48 78 00 01 |Hx | PEA.L 0x1 00021d0e 48 51 |HQ | PEA.L (A1) 00021d10 48 52 |HR | PEA.L (A2) 00021d12 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00021d18 de c3 | | ADDA.W D3,A7 00021d1a 60 2a |`* | BRA 0x21d46 00021d1c 41 fa e8 2c |A , | LEA.L 0x2054a,A0 00021d20 70 1a |p | MOVEQ.L #0x1a,D0 00021d22 3f 20 |? | MOVE.W -(A0),-(A7) 00021d24 51 c8 ff fc |Q | DBF D0,0x21d22 00021d28 59 4f |YO | SUBQ.L #0x4,A7 00021d2a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021d2e 3f 01 |? | MOVE.W D1,-(A7) 00021d30 3f 3c 00 36 |?< 6 | MOVE.W #0x36,-(A7) 00021d34 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021d3a 50 4f |PO | ADDQ.L #0x8,A7 00021d3c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021d42 de fc 00 3a | : | ADDA.W #0x3a,A7 00021d46 48 53 |HS | PEA.L (A3) 00021d48 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021d4e 58 4f |XO | ADDQ.L #0x4,A7 00021d50 4c df 1f df |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2+A3+A4 00021d54 4e 5e |N^ | UNLK A6 00021d56 4e 75 |Nu | RTS 00021d58 ; -------------------------------------------------------------------------------------- 00021d58 ; OMSI PASCAL Function 00021d58 ; <LVAR 0x00a 1(w)> 00021d58 ; <LVAR 0x008 1(r)> 00021d58 ; -------------------------------------------------------------------------------------- 00021d58 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 00021d5c bf d5 | | CMPA.L (A5),A7 00021d5e 62 06 |b | BHI 0x21d66 00021d60 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021d64 4e 76 |Nv | TRAPV 00021d66 de fc 00 0c | | ADDA.W #0xc,A7 00021d6a 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021d6e 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00021d72 48 80 |H | EXTB.W D0 00021d74 41 fa f5 ac |A | LEA.L 0x21322,A0 00021d78 1d 70 00 00 00 0a | p | MOVE.B (A0+D0.W),(A6+0xa) 00021d7e 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00021d82 4e 5e |N^ | UNLK A6 00021d84 4e 75 |Nu | RTS 00021d86 ; -------------------------------------------------------------------------------------- 00021d86 ; OMSI PASCAL Function 00021d86 ; <LVAR 0x008 1(r)> 00021d86 ; <LVAR -0x004 @ 2(r)> 00021d86 ; <LVAR -0x006 @ 1(r)> 00021d86 ; -------------------------------------------------------------------------------------- 00021d86 4e 56 ff ac |NV | LINK.W A6,#0xffac 00021d8a bf d5 | | CMPA.L (A5),A7 00021d8c 62 06 |b | BHI 0x21d94 00021d8e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021d92 4e 76 |Nv | TRAPV 00021d94 de fc 00 4e | N | ADDA.W #0x4e,A7 00021d98 48 e7 f0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7) 00021d9c 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021da2 47 ee ff fa |G | LEA.L (A6-0x6),A3 00021da6 49 f9 00 02 44 9c |I D | LEA.L 0x2449c,A4 00021dac 72 01 |r | MOVEQ.L #0x01,D1 00021dae 74 0a |t | MOVEQ.L #0x0a,D2 00021db0 76 09 |v | MOVEQ.L #0x09,D3 00021db2 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021db8 10 39 00 02 44 93 | 9 D | MOVE.B 0x24493,D0 00021dbe e7 08 | | LSL.B #0x3,D0 00021dc0 ee 08 | | LSR.B #0x7,D0 00021dc2 67 0e |g | BEQ 0x21dd2 00021dc4 4a 2e 00 08 |J. | TST.B (A6+0x8) 00021dc8 67 08 |g | BEQ 0x21dd2 00021dca 4a 39 00 02 44 95 |J9 D | TST.B 0x24495 00021dd0 67 4e |gN | BEQ 0x21e20 00021dd2 9e c2 | | SUBA.W D2,A7 00021dd4 20 4f | O | MOVEA.L A7,A0 00021dd6 43 fa e7 72 |C r | LEA.L 0x2054a,A1 00021dda 70 08 |p | MOVEQ.L #0x08,D0 00021ddc 10 d9 | | MOVE.B (A1)+,(A0)+ 00021dde 51 c8 ff fc |Q | DBF D0,0x21ddc 00021de2 9e fc 00 0c | | SUBA.W #0xc,A7 00021de6 20 4f | O | MOVEA.L A7,A0 00021de8 43 fa e7 6a |C j | LEA.L 0x20554,A1 00021dec 70 0a |p | MOVEQ.L #0x0a,D0 00021dee 10 d9 | | MOVE.B (A1)+,(A0)+ 00021df0 51 c8 ff fc |Q | DBF D0,0x21dee 00021df4 59 4f |YO | SUBQ.L #0x4,A7 00021df6 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00021dfa 3f 01 |? | MOVE.W D1,-(A7) 00021dfc 3f 03 |? | MOVE.W D3,-(A7) 00021dfe 4e 92 |N | JSR (A2) 00021e00 58 4f |XO | ADDQ.L #0x4,A7 00021e02 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021e06 3f 01 |? | MOVE.W D1,-(A7) 00021e08 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00021e0c 4e 92 |N | JSR (A2) 00021e0e 5c 4f |\O | ADDQ.L #0x6,A7 00021e10 1e 81 | | MOVE.B D1,(A7) 00021e12 48 53 |HS | PEA.L (A3) 00021e14 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00021e1a de fc 00 24 | $ | ADDA.W #0x24,A7 00021e1e 60 4c |`L | BRA 0x21e6c 00021e20 9e c2 | | SUBA.W D2,A7 00021e22 20 4f | O | MOVEA.L A7,A0 00021e24 43 fa e7 3a |C : | LEA.L 0x20560,A1 00021e28 70 08 |p | MOVEQ.L #0x08,D0 00021e2a 10 d9 | | MOVE.B (A1)+,(A0)+ 00021e2c 51 c8 ff fc |Q | DBF D0,0x21e2a 00021e30 41 fa e7 42 |A B | LEA.L 0x20574,A0 00021e34 70 04 |p | MOVEQ.L #0x04,D0 00021e36 3f 20 |? | MOVE.W -(A0),-(A7) 00021e38 51 c8 ff fc |Q | DBF D0,0x21e36 00021e3c 59 4f |YO | SUBQ.L #0x4,A7 00021e3e 48 6f 00 0e |Ho | PEA.L (A7+0xe) 00021e42 3f 01 |? | MOVE.W D1,-(A7) 00021e44 3f 03 |? | MOVE.W D3,-(A7) 00021e46 4e 92 |N | JSR (A2) 00021e48 58 4f |XO | ADDQ.L #0x4,A7 00021e4a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021e4e 3f 01 |? | MOVE.W D1,-(A7) 00021e50 3f 02 |? | MOVE.W D2,-(A7) 00021e52 4e 92 |N | JSR (A2) 00021e54 5c 4f |\O | ADDQ.L #0x6,A7 00021e56 1e 81 | | MOVE.B D1,(A7) 00021e58 48 53 |HS | PEA.L (A3) 00021e5a 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00021e60 de fc 00 22 | " | ADDA.W #0x22,A7 00021e64 42 14 |B | CLR.B (A4) 00021e66 4a 13 |J | TST.B (A3) 00021e68 66 02 |f | BNE 0x21e6c 00021e6a 52 14 |R | ADDQ.B #0x1,(A4) 00021e6c 42 6e ff fc |Bn | CLR.W (A6-0x4) 00021e70 41 ee ff fc |A | LEA.L (A6-0x4),A0 00021e74 2f 08 |/ | MOVE.L A0,-(A7) 00021e76 52 97 |R | ADDQ.L #0x1,(A7) 00021e78 2f 3c 00 00 fc 10 |/< | MOVE.L #0xfc10,-(A7) 00021e7e 3f 01 |? | MOVE.W D1,-(A7) 00021e80 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) 00021e86 de c2 | | ADDA.W D2,A7 00021e88 4c df 1f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4 00021e8c 4e 5e |N^ | UNLK A6 00021e8e 4e 75 |Nu | RTS 00021e90 ; -------------------------------------------------------------------------------------- 00021e90 ; OMSI PASCAL Function 00021e90 ; <LVAR -0x004 @ 1(r)> 00021e90 ; -------------------------------------------------------------------------------------- 00021e90 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00021e94 bf d5 | | CMPA.L (A5),A7 00021e96 62 06 |b | BHI 0x21e9e 00021e98 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021e9c 4e 76 |Nv | TRAPV 00021e9e de fc 00 70 | p | ADDA.W #0x70,A7 00021ea2 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7) 00021ea6 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021eac 47 f9 00 02 44 96 |G D | LEA.L 0x24496,A3 00021eb2 72 01 |r | MOVEQ.L #0x01,D1 00021eb4 74 42 |tB | MOVEQ.L #0x42,D2 00021eb6 4a 39 00 02 44 9c |J9 D | TST.B 0x2449c 00021ebc 66 30 |f0 | BNE 0x21eee 00021ebe 9e fc 00 40 | @ | SUBA.W #0x40,A7 00021ec2 20 4f | O | MOVEA.L A7,A0 00021ec4 43 fa e6 f0 |C | LEA.L 0x205b6,A1 00021ec8 70 3e |p> | MOVEQ.L #0x3e,D0 00021eca 10 d9 | | MOVE.B (A1)+,(A0)+ 00021ecc 51 c8 ff fc |Q | DBF D0,0x21eca 00021ed0 59 4f |YO | SUBQ.L #0x4,A7 00021ed2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021ed6 3f 01 |? | MOVE.W D1,-(A7) 00021ed8 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 00021edc 4e 92 |N | JSR (A2) 00021ede 50 4f |PO | ADDQ.L #0x8,A7 00021ee0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021ee6 de fc 00 44 | D | ADDA.W #0x44,A7 00021eea 60 00 00 a2 |` | BRA 0x21f8e 00021eee 4a 39 00 02 44 9d |J9 D | TST.B 0x2449d 00021ef4 67 26 |g& | BEQ 0x21f1c 00021ef6 41 fa e7 40 |A @ | LEA.L 0x20638,A0 00021efa 70 20 |p | MOVEQ.L #0x20,D0 00021efc 3f 20 |? | MOVE.W -(A0),-(A7) 00021efe 51 c8 ff fc |Q | DBF D0,0x21efc 00021f02 59 4f |YO | SUBQ.L #0x4,A7 00021f04 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021f08 3f 01 |? | MOVE.W D1,-(A7) 00021f0a 3f 02 |? | MOVE.W D2,-(A7) 00021f0c 4e 92 |N | JSR (A2) 00021f0e 50 4f |PO | ADDQ.L #0x8,A7 00021f10 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021f16 de fc 00 46 | F | ADDA.W #0x46,A7 00021f1a 60 72 |`r | BRA 0x21f8e 00021f1c 9e c2 | | SUBA.W D2,A7 00021f1e 20 4f | O | MOVEA.L A7,A0 00021f20 43 fa e6 52 |C R | LEA.L 0x20574,A1 00021f24 70 40 |p@ | MOVEQ.L #0x40,D0 00021f26 10 d9 | | MOVE.B (A1)+,(A0)+ 00021f28 51 c8 ff fc |Q | DBF D0,0x21f26 00021f2c 5d 4f |]O | SUBQ.L #0x6,A7 00021f2e 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021f32 3f 01 |? | MOVE.W D1,-(A7) 00021f34 3f 3c 00 41 |?< A | MOVE.W #0x41,-(A7) 00021f38 4e 92 |N | JSR (A2) 00021f3a 5c 4f |\O | ADDQ.L #0x6,A7 00021f3c 1e 81 | | MOVE.B D1,(A7) 00021f3e 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00021f44 5c 4f |\O | ADDQ.L #0x6,A7 00021f46 10 1f | | MOVE.B (A7)+,D0 00021f48 48 80 |H | EXTB.W D0 00021f4a 41 81 |A | CHK.W D1,D0 00021f4c de c2 | | ADDA.W D2,A7 00021f4e 16 80 | | MOVE.B D0,(A3) 00021f50 9e fc 00 0a | | SUBA.W #0xa,A7 00021f54 20 4f | O | MOVEA.L A7,A0 00021f56 43 fa e6 e0 |C | LEA.L 0x20638,A1 00021f5a 70 08 |p | MOVEQ.L #0x08,D0 00021f5c 10 d9 | | MOVE.B (A1)+,(A0)+ 00021f5e 51 c8 ff fc |Q | DBF D0,0x21f5c 00021f62 59 4f |YO | SUBQ.L #0x4,A7 00021f64 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021f68 3f 01 |? | MOVE.W D1,-(A7) 00021f6a 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00021f6e 4e 92 |N | JSR (A2) 00021f70 50 4f |PO | ADDQ.L #0x8,A7 00021f72 48 78 00 01 |Hx | PEA.L 0x1 00021f76 1f 01 | | MOVE.B D1,-(A7) 00021f78 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021f7c 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00021f82 de fc 00 18 | | ADDA.W #0x18,A7 00021f86 4a 2e ff fc |J. | TST.B (A6-0x4) 00021f8a 67 02 |g | BEQ 0x21f8e 00021f8c 42 13 |B | CLR.B (A3) 00021f8e 23 fc 00 00 00 06 00 02 |# | MOVE.L #0x6,0x24498 00021f96 44 98 |D | 00021f98 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3 00021f9c 4e 5e |N^ | UNLK A6 00021f9e 4e 75 |Nu | RTS 00021fa0 ; -------------------------------------------------------------------------------------- 00021fa0 ; OMSI PASCAL Function 00021fa0 ; <LVAR -0x004 @> 00021fa0 ; -------------------------------------------------------------------------------------- 00021fa0 4e 56 ff 82 |NV | LINK.W A6,#0xff82 00021fa4 bf d5 | | CMPA.L (A5),A7 00021fa6 62 06 |b | BHI 0x21fae 00021fa8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021fac 4e 76 |Nv | TRAPV 00021fae de fc 00 7a | z | ADDA.W #0x7a,A7 00021fb2 48 e7 f0 e0 |H | MOVEM.L A2+A1+A0+D3+D2+D1+D0,-(A7) 00021fb6 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021fbc 72 01 |r | MOVEQ.L #0x01,D1 00021fbe 74 28 |t( | MOVEQ.L #0x28,D2 00021fc0 76 0c |v | MOVEQ.L #0x0c,D3 00021fc2 55 4f |UO | SUBQ.L #0x2,A7 00021fc4 4e b9 00 01 05 ce |N | JSR ReadKeySwitch() : Bool 00021fca 4a 1f |J | TST.B (A7)+ 00021fcc 66 00 00 8c |f | BNE 0x2205a 00021fd0 10 39 00 02 44 93 | 9 D | MOVE.B 0x24493,D0 00021fd6 e7 08 | | LSL.B #0x3,D0 00021fd8 ee 08 | | LSR.B #0x7,D0 00021fda 67 7e |g~ | BEQ 0x2205a 00021fdc 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021fe2 41 fa e6 86 |A | LEA.L 0x2066a,A0 00021fe6 70 09 |p | MOVEQ.L #0x09,D0 00021fe8 2f 20 |/ | MOVE.L -(A0),-(A7) 00021fea 51 c8 ff fc |Q | DBF D0,0x21fe8 00021fee 59 4f |YO | SUBQ.L #0x4,A7 00021ff0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021ff4 3f 01 |? | MOVE.W D1,-(A7) 00021ff6 3f 02 |? | MOVE.W D2,-(A7) 00021ff8 4e 92 |N | JSR (A2) 00021ffa 50 4f |PO | ADDQ.L #0x8,A7 00021ffc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022002 de c2 | | ADDA.W D2,A7 00022004 1e ba e6 64 | d | MOVE.B 0x2066a,(A7) 00022008 1f 7a e6 61 00 01 | z a | MOVE.B 0x2066b,(A7+0x1) 0002200e 1f 7a e6 5c 00 02 | z \ | MOVE.B 0x2066c,(A7+0x2) 00022014 9e c3 | | SUBA.W D3,A7 00022016 20 4f | O | MOVEA.L A7,A0 00022018 43 fa e6 54 |C T | LEA.L 0x2066e,A1 0002201c 70 0a |p | MOVEQ.L #0x0a,D0 0002201e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022020 51 c8 ff fc |Q | DBF D0,0x2201e 00022024 59 4f |YO | SUBQ.L #0x4,A7 00022026 48 6f 00 10 |Ho | PEA.L (A7+0x10) 0002202a 3f 01 |? | MOVE.W D1,-(A7) 0002202c 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00022030 4e 92 |N | JSR (A2) 00022032 58 4f |XO | ADDQ.L #0x4,A7 00022034 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022038 3f 01 |? | MOVE.W D1,-(A7) 0002203a 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 0002203e 4e 92 |N | JSR (A2) 00022040 5c 4f |\O | ADDQ.L #0x6,A7 00022042 1e 81 | | MOVE.B D1,(A7) 00022044 48 6e ff fc |Hn | PEA.L (A6-0x4) 00022048 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 0002204e de fc 00 1e | | ADDA.W #0x1e,A7 00022052 13 c1 00 02 44 9d | D | MOVE.B D1,0x2449d 00022058 60 2c |`, | BRA 0x22086 0002205a 9e fc 00 4e | N | SUBA.W #0x4e,A7 0002205e 20 4f | O | MOVEA.L A7,A0 00022060 43 fa e6 18 |C | LEA.L 0x2067a,A1 00022064 70 4c |pL | MOVEQ.L #0x4c,D0 00022066 10 d9 | | MOVE.B (A1)+,(A0)+ 00022068 51 c8 ff fc |Q | DBF D0,0x22066 0002206c 59 4f |YO | SUBQ.L #0x4,A7 0002206e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022072 3f 01 |? | MOVE.W D1,-(A7) 00022074 3f 3c 00 4d |?< M | MOVE.W #0x4d,-(A7) 00022078 4e 92 |N | JSR (A2) 0002207a 50 4f |PO | ADDQ.L #0x8,A7 0002207c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022082 de fc 00 52 | R | ADDA.W #0x52,A7 00022086 9e fc 00 0a | | SUBA.W #0xa,A7 0002208a 20 4f | O | MOVEA.L A7,A0 0002208c 43 fa e6 3a |C : | LEA.L 0x206c8,A1 00022090 70 08 |p | MOVEQ.L #0x08,D0 00022092 10 d9 | | MOVE.B (A1)+,(A0)+ 00022094 51 c8 ff fc |Q | DBF D0,0x22092 00022098 2f 3a e6 40 |/: @ | MOVE.L 0x206da,-(A7) 0002209c 2f 3a e6 38 |/: 8 | MOVE.L 0x206d6,-(A7) 000220a0 2f 3a e6 30 |/: 0 | MOVE.L 0x206d2,-(A7) 000220a4 59 4f |YO | SUBQ.L #0x4,A7 000220a6 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000220aa 3f 01 |? | MOVE.W D1,-(A7) 000220ac 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 000220b0 4e 92 |N | JSR (A2) 000220b2 58 4f |XO | ADDQ.L #0x4,A7 000220b4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000220b8 3f 01 |? | MOVE.W D1,-(A7) 000220ba 3f 03 |? | MOVE.W D3,-(A7) 000220bc 4e 92 |N | JSR (A2) 000220be 5c 4f |\O | ADDQ.L #0x6,A7 000220c0 1e 81 | | MOVE.B D1,(A7) 000220c2 48 6e ff fc |Hn | PEA.L (A6-0x4) 000220c6 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 000220cc de fc 00 24 | $ | ADDA.W #0x24,A7 000220d0 42 39 00 02 44 96 |B9 D | CLR.B 0x24496 000220d6 23 c1 00 02 44 98 |# D | MOVE.L D1,0x24498 000220dc 4c df 07 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2 000220e0 4e 5e |N^ | UNLK A6 000220e2 4e 75 |Nu | RTS 000220e4 ; -------------------------------------------------------------------------------------- 000220e4 ; OMSI PASCAL Function 000220e4 ; <LVAR 0x00c 1(r)> 000220e4 ; <LVAR 0x008 4(r)> 000220e4 ; <LVAR -0x080 @> 000220e4 ; <LVAR -0x081 1(w)> 000220e4 ; <LVAR -0x082 1(r)> 000220e4 ; <LVAR -0x084 2(w)> 000220e4 ; <LVAR -0x086 @ 2(w)> 000220e4 ; <LVAR -0x08f @> 000220e4 ; <LVAR -0x090 @ 1(r)> 000220e4 ; <LVAR -0x094 @ 4(r)> 000220e4 ; <LVAR -0x098 @ 4(rw)> 000220e4 ; <LVAR -0x099 @ 1(r)> 000220e4 ; <LVAR -0x09a @ 1(r)> 000220e4 ; -------------------------------------------------------------------------------------- 000220e4 4e 56 ff 02 |NV | LINK.W A6,#0xff02 000220e8 bf d5 | | CMPA.L (A5),A7 000220ea 62 06 |b | BHI 0x220f2 000220ec 44 fc 00 02 |D | MOVE.W #0x2,CCR 000220f0 4e 76 |Nv | TRAPV 000220f2 de fc 00 64 | d | ADDA.W #0x64,A7 000220f6 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000220fa 45 ee ff 66 |E f | LEA.L (A6-0x9a),A2 000220fe 47 ee ff 68 |G h | LEA.L (A6-0x98),A3 00022102 49 ee ff 6c |I l | LEA.L (A6-0x94),A4 00022106 74 01 |t | MOVEQ.L #0x01,D2 00022108 76 6b |vk | MOVEQ.L #0x6b,D3 0002210a 78 0c |x | MOVEQ.L #0x0c,D4 0002210c 41 fa e5 f0 |A | LEA.L 0x206fe,A0 00022110 70 07 |p | MOVEQ.L #0x07,D0 00022112 2f 20 |/ | MOVE.L -(A0),-(A7) 00022114 51 c8 ff fc |Q | DBF D0,0x22112 00022118 59 4f |YO | SUBQ.L #0x4,A7 0002211a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002211e 3f 02 |? | MOVE.W D2,-(A7) 00022120 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00022124 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002212a 50 4f |PO | ADDQ.L #0x8,A7 0002212c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022132 de fc 00 24 | $ | ADDA.W #0x24,A7 00022136 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 0002213c 1f 02 | | MOVE.B D2,-(A7) 0002213e 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00022144 42 17 |B | CLR.B (A7) 00022146 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 0002214c 54 4f |TO | ADDQ.L #0x2,A7 0002214e 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 00022154 3f 3a e5 ac |?: | MOVE.W 0x20702,-(A7) 00022158 3f 3a e5 a6 |?: | MOVE.W 0x20700,-(A7) 0002215c 3f 3a e5 a0 |?: | MOVE.W 0x206fe,-(A7) 00022160 59 4f |YO | SUBQ.L #0x4,A7 00022162 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022166 3f 02 |? | MOVE.W D2,-(A7) 00022168 3f 3c 00 06 |?< | MOVE.W #0x6,-(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 48 78 00 01 |Hx | PEA.L 0x1 00022178 1f 02 | | MOVE.B D2,-(A7) 0002217a 48 52 |HR | PEA.L (A2) 0002217c 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00022182 de fc 00 14 | | ADDA.W #0x14,A7 00022186 10 2e 00 0c | . | MOVE.B (A6+0xc),D0 0002218a 48 80 |H | EXTB.W D0 0002218c 3d 40 ff 7c |=@ | | MOVE.W D0,(A6-0x84) 00022190 42 2e ff 7e |B. ~ | CLR.B (A6-0x82) 00022194 4a 12 |J | TST.B (A2) 00022196 67 10 |g | BEQ 0x221a8 00022198 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002219c 42 10 |B | CLR.B (A0) 0002219e 3d 7c 00 02 ff 7a |=| z | MOVE.W #0x2,(A6-0x86) 000221a4 60 00 01 a8 |` | BRA 0x2234e 000221a8 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000221ae 48 6e ff 67 |Hn g | PEA.L (A6-0x99) 000221b2 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 000221b8 58 4f |XO | ADDQ.L #0x4,A7 000221ba 48 53 |HS | PEA.L (A3) 000221bc 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 000221c2 58 4f |XO | ADDQ.L #0x4,A7 000221c4 48 54 |HT | PEA.L (A4) 000221c6 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 000221cc 58 4f |XO | ADDQ.L #0x4,A7 000221ce 48 6e ff 70 |Hn p | PEA.L (A6-0x90) 000221d2 48 78 00 00 |Hx | PEA.L 0x0 000221d6 48 78 00 00 |Hx | PEA.L 0x0 000221da 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 000221e0 de c4 | | ADDA.W D4,A7 000221e2 48 6e ff 71 |Hn q | PEA.L (A6-0x8f) 000221e6 48 78 00 00 |Hx | PEA.L 0x0 000221ea 48 78 00 07 |Hx | PEA.L 0x7 000221ee 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 000221f4 de c4 | | ADDA.W D4,A7 000221f6 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 000221fc 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022200 10 2e ff 67 | . g | MOVE.B (A6-0x99),D0 00022204 44 00 |D | NEG.B D0 00022206 52 00 |R | ADDQ.B #0x1,D0 00022208 48 80 |H | EXTB.W D0 0002220a 41 82 |A | CHK.W D2,D0 0002220c 10 80 | | MOVE.B D0,(A0) 0002220e 2f 3a e4 f8 |/: | MOVE.L 0x20708,-(A7) 00022212 2f 3a e4 f0 |/: | MOVE.L 0x20704,-(A7) 00022216 59 4f |YO | SUBQ.L #0x4,A7 00022218 2f 13 |/ | MOVE.L (A3),-(A7) 0002221a 59 4f |YO | SUBQ.L #0x4,A7 0002221c 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00022220 3f 02 |? | MOVE.W D2,-(A7) 00022222 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00022226 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002222c 50 4f |PO | ADDQ.L #0x8,A7 0002222e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022234 50 4f |PO | ADDQ.L #0x8,A7 00022236 26 9f |& | MOVE.L (A7)+,(A3) 00022238 2e 93 |. | MOVE.L (A3),(A7) 0002223a 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022240 2e 94 |. | MOVE.L (A4),(A7) 00022242 42 80 |B | CLR.L D0 00022244 10 2e ff 70 | . p | MOVE.B (A6-0x90),D0 00022248 2f 00 |/ | MOVE.L D0,-(A7) 0002224a 4e b9 00 01 04 4c |N L | JSR WriteErrorMessage(file : String; txt : String; number : Long) : Bool 00022250 de c4 | | ADDA.W D4,A7 00022252 3d 42 ff 7a |=B z | MOVE.W D2,(A6-0x86) 00022256 1d 6e ff 70 ff 7f | n p | MOVE.B (A6-0x90),(A6-0x81) 0002225c 41 ee ff 80 |A | LEA.L (A6-0x80),A0 00022260 43 ee ff 71 |C q | LEA.L (A6-0x8f),A1 00022264 70 07 |p | MOVEQ.L #0x07,D0 00022266 10 d9 | | MOVE.B (A1)+,(A0)+ 00022268 51 c8 ff fc |Q | DBF D0,0x22266 0002226c 20 53 | S | MOVEA.L (A3),A0 0002226e 2f 08 |/ | MOVE.L A0,-(A7) 00022270 30 10 |0 | MOVE.W (A0),D0 00022272 48 c0 |H | EXTW.L D0 00022274 2f 00 |/ | MOVE.L D0,-(A7) 00022276 7e 01 |~ | MOVEQ.L #0x01,D7 00022278 be 97 | | CMP.L (A7),D7 0002227a 6e 28 |n( | BGT 0x222a4 0002227c 20 07 | | MOVE.L D7,D0 0002227e 53 80 |S | SUBQ.L #0x1,D0 00022280 b0 83 | | CMP.L D3,D0 00022282 63 02 |c | BLS 0x22286 00022284 4e 4f |NO | TRAP #15 00022286 20 4a | J | MOVEA.L A2,A0 00022288 22 07 |" | MOVE.L D7,D1 0002228a 53 81 |S | SUBQ.L #0x1,D1 0002228c 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00022292 63 02 |c | BLS 0x22296 00022294 4e 4f |NO | TRAP #15 00022296 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 0002229a 11 b1 18 02 08 22 | " | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x22) 000222a0 52 87 |R | ADDQ.L #0x1,D7 000222a2 68 d4 |h | BVC 0x22278 000222a4 58 4f |XO | ADDQ.L #0x4,A7 000222a6 20 57 | W | MOVEA.L (A7),A0 000222a8 30 10 |0 | MOVE.W (A0),D0 000222aa 48 c0 |H | EXTW.L D0 000222ac 52 80 |R | ADDQ.L #0x1,D0 000222ae 2c 00 |, | MOVE.L D0,D6 000222b0 58 4f |XO | ADDQ.L #0x4,A7 000222b2 20 06 | | MOVE.L D6,D0 000222b4 53 80 |S | SUBQ.L #0x1,D0 000222b6 b0 83 | | CMP.L D3,D0 000222b8 63 02 |c | BLS 0x222bc 000222ba 4e 4f |NO | TRAP #15 000222bc 20 4a | J | MOVEA.L A2,A0 000222be 42 30 08 22 |B0 " | CLR.B (A0+D0.L+#0x22) 000222c2 20 54 | T | MOVEA.L (A4),A0 000222c4 2f 08 |/ | MOVE.L A0,-(A7) 000222c6 30 10 |0 | MOVE.W (A0),D0 000222c8 48 c0 |H | EXTW.L D0 000222ca 2a 00 |* | MOVE.L D0,D5 000222cc 70 6c |pl | MOVEQ.L #0x6c,D0 000222ce 90 86 | | SUB.L D6,D0 000222d0 ba 80 | | CMP.L D0,D5 000222d2 6f 16 |o | BLE 0x222ea 000222d4 2a 00 |* | MOVE.L D0,D5 000222d6 20 05 | | MOVE.L D5,D0 000222d8 53 80 |S | SUBQ.L #0x1,D0 000222da 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000222e0 63 02 |c | BLS 0x222e4 000222e2 4e 4f |NO | TRAP #15 000222e4 11 bc 00 5c 08 02 | \ | MOVE.B #0x5c,(A0+D0.L+#0x2) 000222ea 2f 05 |/ | MOVE.L D5,-(A7) 000222ec 7e 01 |~ | MOVEQ.L #0x01,D7 000222ee be 97 | | CMP.L (A7),D7 000222f0 6e 2a |n* | BGT 0x2231c 000222f2 52 86 |R | ADDQ.L #0x1,D6 000222f4 20 06 | | MOVE.L D6,D0 000222f6 53 80 |S | SUBQ.L #0x1,D0 000222f8 b0 83 | | CMP.L D3,D0 000222fa 63 02 |c | BLS 0x222fe 000222fc 4e 4f |NO | TRAP #15 000222fe 20 4a | J | MOVEA.L A2,A0 00022300 22 07 |" | MOVE.L D7,D1 00022302 53 81 |S | SUBQ.L #0x1,D1 00022304 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 0002230a 63 02 |c | BLS 0x2230e 0002230c 4e 4f |NO | TRAP #15 0002230e 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00022312 11 b1 18 02 08 22 | " | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x22) 00022318 52 87 |R | ADDQ.L #0x1,D7 0002231a 68 d2 |h | BVC 0x222ee 0002231c 58 4f |XO | ADDQ.L #0x4,A7 0002231e 0c 86 00 00 00 6c | l | CMPI.L #0x0000006c,D6 00022324 6c 12 |l | BGE 0x22338 00022326 20 06 | | MOVE.L D6,D0 00022328 52 80 |R | ADDQ.L #0x1,D0 0002232a 53 80 |S | SUBQ.L #0x1,D0 0002232c b0 83 | | CMP.L D3,D0 0002232e 63 02 |c | BLS 0x22332 00022330 4e 4f |NO | TRAP #15 00022332 20 4a | J | MOVEA.L A2,A0 00022334 42 30 08 22 |B0 " | CLR.B (A0+D0.L+#0x22) 00022338 58 4f |XO | ADDQ.L #0x4,A7 0002233a 48 54 |HT | PEA.L (A4) 0002233c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022342 58 4f |XO | ADDQ.L #0x4,A7 00022344 48 53 |HS | PEA.L (A3) 00022346 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002234c 58 4f |XO | ADDQ.L #0x4,A7 0002234e 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00022352 41 ee ff 7a |A z | LEA.L (A6-0x86),A0 00022356 2f 08 |/ | MOVE.L A0,-(A7) 00022358 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 0002235e 5c 4f |\O | ADDQ.L #0x6,A7 00022360 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022364 4e 5e |N^ | UNLK A6 00022366 4e 75 |Nu | RTS 00022368 ; -------------------------------------------------------------------------------------- 00022368 ; OMSI PASCAL Function 00022368 ; <LVAR 0x008 1(r)> 00022368 ; -------------------------------------------------------------------------------------- 00022368 4e 56 ff 82 |NV | LINK.W A6,#0xff82 0002236c bf d5 | | CMPA.L (A5),A7 0002236e 62 06 |b | BHI 0x22376 00022370 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022374 4e 76 |Nv | TRAPV 00022376 de fc 00 7c | | | ADDA.W #0x7c,A7 0002237a 48 e7 e0 c0 |H | MOVEM.L A1+A0+D2+D1+D0,-(A7) 0002237e 72 32 |r2 | MOVEQ.L #0x32,D1 00022380 74 01 |t | MOVEQ.L #0x01,D2 00022382 9e fc 00 1e | | SUBA.W #0x1e,A7 00022386 20 4f | O | MOVEA.L A7,A0 00022388 43 fa e3 82 |C | LEA.L 0x2070c,A1 0002238c 70 1c |p | MOVEQ.L #0x1c,D0 0002238e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022390 51 c8 ff fc |Q | DBF D0,0x2238e 00022394 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00022398 48 80 |H | EXTB.W D0 0002239a c1 c1 | | MULS.W D1,D0 0002239c 41 fa ef a5 |A | LEA.L 0x21343,A0 000223a0 9e c1 | | SUBA.W D1,A7 000223a2 22 4f |"O | MOVEA.L A7,A1 000223a4 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 000223a8 70 31 |p1 | MOVEQ.L #0x31,D0 000223aa 12 d8 | | MOVE.B (A0)+,(A1)+ 000223ac 51 c8 ff fc |Q | DBF D0,0x223aa 000223b0 51 4f |QO | SUBQ.L #0x8,A7 000223b2 48 6f 00 3a |Ho : | PEA.L (A7+0x3a) 000223b6 3f 02 |? | MOVE.W D2,-(A7) 000223b8 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 000223bc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000223c2 58 4f |XO | ADDQ.L #0x4,A7 000223c4 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000223c8 3f 02 |? | MOVE.W D2,-(A7) 000223ca 3f 01 |? | MOVE.W D1,-(A7) 000223cc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000223d2 50 4f |PO | ADDQ.L #0x8,A7 000223d4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000223da 50 4f |PO | ADDQ.L #0x8,A7 000223dc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000223e2 de fc 00 54 | T | ADDA.W #0x54,A7 000223e6 4c df 03 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1 000223ea 4e 5e |N^ | UNLK A6 000223ec 4e 75 |Nu | RTS 000223ee ; -------------------------------------------------------------------------------------- 000223ee ; OMSI PASCAL Function 000223ee ; <LVAR 0x00c 4(w)> 000223ee ; <LVAR 0x00b 1(r)> 000223ee ; <LVAR 0x00a 1(r) 2(r)> 000223ee ; -------------------------------------------------------------------------------------- 000223ee 4e 56 ff cc |NV | LINK.W A6,#0xffcc 000223f2 bf d5 | | CMPA.L (A5),A7 000223f4 62 06 |b | BHI 0x223fc 000223f6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000223fa 4e 76 |Nv | TRAPV 000223fc de fc 00 2c | , | ADDA.W #0x2c,A7 00022400 48 e7 ff 80 |H | MOVEM.L A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022404 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00022408 7a 03 |z | MOVEQ.L #0x03,D5 0002240a 30 2e 00 0a |0. | MOVE.W (A6+0xa),D0 0002240e ef 48 | H | LSL.W #0x7,D0 00022410 e0 48 | H | LSR.W #0x8,D0 00022412 e8 48 | H | LSR.W #0x4,D0 00022414 32 00 |2 | MOVE.W D0,D1 00022416 53 41 |SA | SUBQ.W #0x1,D1 00022418 0c 41 00 0b | A | CMPI.W #0x000b,D1 0002241c 62 6c |bl | BHI 0x2248a 0002241e d2 41 | A | ADD.W D1,D1 00022420 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 00022428 00 18 | | .CONST 0x18 ; [0x0] -> 0x22440 0002242a 00 1a | | .CONST 0x1a ; [0x1] -> 0x22442 0002242c 00 1e | | .CONST 0x1e ; [0x2] -> 0x22446 0002242e 00 22 | " | .CONST 0x22 ; [0x3] -> 0x2244a 00022430 00 26 | & | .CONST 0x26 ; [0x4] -> 0x2244e 00022432 00 2a | * | .CONST 0x2a ; [0x5] -> 0x22452 00022434 00 32 | 2 | .CONST 0x32 ; [0x6] -> 0x2245a 00022436 00 3a | : | .CONST 0x3a ; [0x7] -> 0x22462 00022438 00 42 | B | .CONST 0x42 ; [0x8] -> 0x2246a 0002243a 00 4a | J | .CONST 0x4a ; [0x9] -> 0x22472 0002243c 00 52 | R | .CONST 0x52 ; [0xa] -> 0x2247a 0002243e 00 5a | Z | .CONST 0x5a ; [0xb] -> 0x22482 00022440 switch@0x22420[0x0]: 00022440 60 48 |`H | BRA 0x2248a 00022442 switch@0x22420[0x1]: 00022442 7e 1f |~ | MOVEQ.L #0x1f,D7 00022444 60 46 |`F | BRA 0x2248c 00022446 switch@0x22420[0x2]: 00022446 7e 3b |~; | MOVEQ.L #0x3b,D7 00022448 60 42 |`B | BRA 0x2248c 0002244a switch@0x22420[0x3]: 0002244a 7e 5a |~Z | MOVEQ.L #0x5a,D7 0002244c 60 3e |`> | BRA 0x2248c 0002244e switch@0x22420[0x4]: 0002244e 7e 78 |~x | MOVEQ.L #0x78,D7 00022450 60 3a |`: | BRA 0x2248c 00022452 switch@0x22420[0x5]: 00022452 2e 3c 00 00 00 97 |.< | MOVE.L #0x97,D7 00022458 60 32 |`2 | BRA 0x2248c 0002245a switch@0x22420[0x6]: 0002245a 2e 3c 00 00 00 b5 |.< | MOVE.L #0xb5,D7 00022460 60 2a |`* | BRA 0x2248c 00022462 switch@0x22420[0x7]: 00022462 2e 3c 00 00 00 d4 |.< | MOVE.L #0xd4,D7 00022468 60 22 |`" | BRA 0x2248c 0002246a switch@0x22420[0x8]: 0002246a 2e 3c 00 00 00 f3 |.< | MOVE.L #0xf3,D7 00022470 60 1a |` | BRA 0x2248c 00022472 switch@0x22420[0x9]: 00022472 2e 3c 00 00 01 11 |.< | MOVE.L #0x111,D7 00022478 60 12 |` | BRA 0x2248c 0002247a switch@0x22420[0xa]: 0002247a 2e 3c 00 00 01 30 |.< 0 | MOVE.L #0x130,D7 00022480 60 0a |` | BRA 0x2248c 00022482 switch@0x22420[0xb]: 00022482 2e 3c 00 00 01 4e |.< N | MOVE.L #0x14e,D7 00022488 60 02 |` | BRA 0x2248c 0002248a 7e 00 |~ | MOVEQ.L #0x00,D7 0002248c 42 81 |B | CLR.L D1 0002248e 12 2e 00 0a | . | MOVE.B (A6+0xa),D1 00022492 e2 09 | | LSR.B #0x1,D1 00022494 34 01 |4 | MOVE.W D1,D2 00022496 c4 45 | E | AND.W D5,D2 00022498 b4 45 | E | CMP.W D5,D2 0002249a 66 08 |f | BNE 0x224a4 0002249c 0c 40 00 02 | @ | CMPI.W #0x0002,D0 000224a0 6f 02 |o | BLE 0x224a4 000224a2 52 87 |R | ADDQ.L #0x1,D7 000224a4 48 c1 |H | EXTW.L D1 000224a6 2c 01 |, | MOVE.L D1,D6 000224a8 28 06 |( | MOVE.L D6,D4 000224aa 26 3c 00 00 01 6d |&< m | MOVE.L #0x16d,D3 000224b0 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000224b6 20 84 | | MOVE.L D4,(A0) 000224b8 df 90 | | ADD.L D7,(A0) 000224ba 42 80 |B | CLR.L D0 000224bc 10 2e 00 0b | . | MOVE.B (A6+0xb),D0 000224c0 e7 08 | | LSL.B #0x3,D0 000224c2 e6 08 | | LSR.B #0x3,D0 000224c4 d1 90 | | ADD.L D0,(A0) 000224c6 4c df 01 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0 000224ca 4e 5e |N^ | UNLK A6 000224cc 4e 75 |Nu | RTS 000224ce ; -------------------------------------------------------------------------------------- 000224ce ; OMSI PASCAL Function 000224ce ; <LVAR 0x008 1(rw)> 000224ce ; <LVAR -0x004 @ 4(r)> 000224ce ; <LVAR -0x008 4(rw)> 000224ce ; <LVAR -0x009 1(w)> 000224ce ; <LVAR -0x00a 1(w)> 000224ce ; <LVAR -0x00b 1(w)> 000224ce ; <LVAR -0x00c 1(w) 4(r)> 000224ce ; <LVAR -0x00d 1(w)> 000224ce ; <LVAR -0x00e 1(w) 2(w)> 000224ce ; <LVAR -0x010 2(r) 4(rw)> 000224ce ; <LVAR -0x014 @ 2(r) 4(r)> 000224ce ; <LVAR -0x3cc 2(r)> 000224ce ; <LVAR -0x3ce 2(r)> 000224ce ; <LVAR -0x3d4 1(r)> 000224ce ; <LVAR -0x3f4 2(r)> 000224ce ; <LVAR -0x414 @> 000224ce ; <LVAR -0x415 @> 000224ce ; <LVAR -0x416 @ 1(r)> 000224ce ; <LVAR -0x41a @ 4(r)> 000224ce ; <LVAR -0x422 @ 4(r)> 000224ce ; <LVAR -0x426 @ 4(r)> 000224ce ; <LVAR -0x42a @ 4(r)> 000224ce ; <LVAR -0x42c @ 1(r)> 000224ce ; <LVAR -0x42d @> 000224ce ; <LVAR -0x42e 1(w)> 000224ce ; <LVAR -0x448 @ 1(r)> 000224ce ; <LVAR -0x454 @ 4(w)> 000224ce ; -------------------------------------------------------------------------------------- 000224ce 4e 56 fb 0e |NV | LINK.W A6,#0xfb0e 000224d2 bf d5 | | CMPA.L (A5),A7 000224d4 62 06 |b | BHI 0x224dc 000224d6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000224da 4e 76 |Nv | TRAPV 000224dc de fc 00 9e | | ADDA.W #0x9e,A7 000224e0 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000224e4 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000224ea 47 ee fb e6 |G | LEA.L (A6-0x41a),A3 000224ee 41 ee fb b8 |A | LEA.L (A6-0x448),A0 000224f2 43 fa e4 f2 |C | LEA.L 0x209e6,A1 000224f6 70 0a |p | MOVEQ.L #0x0a,D0 000224f8 30 d9 |0 | MOVE.W (A1)+,(A0)+ 000224fa 51 c8 ff fc |Q | DBF D0,0x224f8 000224fe 41 fa e5 10 |A | LEA.L 0x20a10,A0 00022502 70 04 |p | MOVEQ.L #0x04,D0 00022504 2f 20 |/ | MOVE.L -(A0),-(A7) 00022506 51 c8 ff fc |Q | DBF D0,0x22504 0002250a 59 4f |YO | SUBQ.L #0x4,A7 0002250c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022510 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022514 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 00022518 4e 92 |N | JSR (A2) 0002251a 5c 4f |\O | ADDQ.L #0x6,A7 0002251c 42 17 |B | CLR.B (A7) 0002251e 42 27 |B' | CLR.B -(A7) 00022520 48 78 00 00 |Hx | PEA.L 0x0 00022524 48 6e fb ea |Hn | PEA.L (A6-0x416) 00022528 48 53 |HS | PEA.L (A3) 0002252a 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00022530 de fc 00 28 | ( | ADDA.W #0x28,A7 00022534 4a 2e fb ea |J. | TST.B (A6-0x416) 00022538 67 32 |g2 | BEQ 0x2256c 0002253a 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00022540 41 fa e5 16 |A | LEA.L 0x20a58,A0 00022544 70 11 |p | MOVEQ.L #0x11,D0 00022546 2f 20 |/ | MOVE.L -(A0),-(A7) 00022548 51 c8 ff fc |Q | DBF D0,0x22546 0002254c 59 4f |YO | SUBQ.L #0x4,A7 0002254e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022552 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022556 3f 3c 00 48 |?< H | MOVE.W #0x48,-(A7) 0002255a 4e 92 |N | JSR (A2) 0002255c 50 4f |PO | ADDQ.L #0x8,A7 0002255e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022564 de fc 00 4c | L | ADDA.W #0x4c,A7 00022568 60 00 05 f8 |` | BRA 0x22b62 0002256c 48 6e fb d6 |Hn | PEA.L (A6-0x42a) 00022570 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022576 58 4f |XO | ADDQ.L #0x4,A7 00022578 48 6e fb da |Hn | PEA.L (A6-0x426) 0002257c 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022582 2e 93 |. | MOVE.L (A3),(A7) 00022584 48 6e fb d6 |Hn | PEA.L (A6-0x42a) 00022588 48 6e fb d3 |Hn | PEA.L (A6-0x42d) 0002258c 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 00022592 50 4f |PO | ADDQ.L #0x8,A7 00022594 2e 93 |. | MOVE.L (A3),(A7) 00022596 48 6e fb da |Hn | PEA.L (A6-0x426) 0002259a 48 6e fb d3 |Hn | PEA.L (A6-0x42d) 0002259e 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 000225a4 50 4f |PO | ADDQ.L #0x8,A7 000225a6 2e ba e4 b0 |. | MOVE.L 0x20a58,(A7) 000225aa 51 4f |QO | SUBQ.L #0x8,A7 000225ac 2f 2e fb d6 |/. | MOVE.L (A6-0x42a),-(A7) 000225b0 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 000225b6 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000225ba 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000225be 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 000225c2 4e 92 |N | JSR (A2) 000225c4 50 4f |PO | ADDQ.L #0x8,A7 000225c6 4e b9 00 01 03 00 |N | JSR FSCALL_10300 000225cc 50 4f |PO | ADDQ.L #0x8,A7 000225ce 4a 9f |J | TST.L (A7)+ 000225d0 6f 00 00 a8 |o | BLE 0x2267a 000225d4 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000225da 41 fa e4 ba |A | LEA.L 0x20a96,A0 000225de 70 1c |p | MOVEQ.L #0x1c,D0 000225e0 3f 20 |? | MOVE.W -(A0),-(A7) 000225e2 51 c8 ff fc |Q | DBF D0,0x225e0 000225e6 59 4f |YO | SUBQ.L #0x4,A7 000225e8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000225ec 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000225f0 3f 3c 00 3a |?< : | MOVE.W #0x3a,-(A7) 000225f4 4e 92 |N | JSR (A2) 000225f6 50 4f |PO | ADDQ.L #0x8,A7 000225f8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000225fe de fc 00 3a | : | ADDA.W #0x3a,A7 00022602 2e 93 |. | MOVE.L (A3),(A7) 00022604 4e b9 00 01 04 44 |N D | JSR FSCALL_10444 0002260a 9e fc 00 26 | & | SUBA.W #0x26,A7 0002260e 20 4f | O | MOVEA.L A7,A0 00022610 43 fa e4 84 |C | LEA.L 0x20a96,A1 00022614 70 28 |p( | MOVEQ.L #0x28,D0 00022616 10 d9 | | MOVE.B (A1)+,(A0)+ 00022618 51 c8 ff fc |Q | DBF D0,0x22616 0002261c 2f 13 |/ | MOVE.L (A3),-(A7) 0002261e 59 4f |YO | SUBQ.L #0x4,A7 00022620 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022624 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022628 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 0002262c 4e 92 |N | JSR (A2) 0002262e 50 4f |PO | ADDQ.L #0x8,A7 00022630 48 6e fb d3 |Hn | PEA.L (A6-0x42d) 00022634 4e b9 00 01 04 40 |N @ | JSR FSCALL_10440 0002263a de fc 00 32 | 2 | ADDA.W #0x32,A7 0002263e 2e 93 |. | MOVE.L (A3),(A7) 00022640 2f 2e fb da |/. | MOVE.L (A6-0x426),-(A7) 00022644 48 6e fb d3 |Hn | PEA.L (A6-0x42d) 00022648 4e b9 00 01 04 40 |N @ | JSR FSCALL_10440 0002264e 50 4f |PO | ADDQ.L #0x8,A7 00022650 2e 93 |. | MOVE.L (A3),(A7) 00022652 4e b9 00 01 04 48 |N H | JSR FSCALL_10448 00022658 54 4f |TO | ADDQ.L #0x2,A7 0002265a 42 17 |B | CLR.B (A7) 0002265c 1f 3c 00 01 | < | MOVE.B #0x01,-(A7) 00022660 48 78 00 01 |Hx | PEA.L 0x1 00022664 48 6e fb ea |Hn | PEA.L (A6-0x416) 00022668 48 53 |HS | PEA.L (A3) 0002266a 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00022670 de fc 00 10 | | ADDA.W #0x10,A7 00022674 58 4f |XO | ADDQ.L #0x4,A7 00022676 60 00 04 ea |` | BRA 0x22b62 0002267a 54 4f |TO | ADDQ.L #0x2,A7 0002267c 42 17 |B | CLR.B (A7) 0002267e 1f 3c 00 01 | < | MOVE.B #0x01,-(A7) 00022682 48 78 00 01 |Hx | PEA.L 0x1 00022686 48 6e fb ea |Hn | PEA.L (A6-0x416) 0002268a 48 53 |HS | PEA.L (A3) 0002268c 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00022692 de fc 00 0e | | ADDA.W #0xe,A7 00022696 3e ba e4 2c |> , | MOVE.W 0x20ac4,(A7) 0002269a 3f 3a e4 26 |?: & | MOVE.W 0x20ac2,-(A7) 0002269e 3f 3a e4 20 |?: | MOVE.W 0x20ac0,-(A7) 000226a2 51 4f |QO | SUBQ.L #0x8,A7 000226a4 2f 2e fb d6 |/. | MOVE.L (A6-0x42a),-(A7) 000226a8 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 000226ae 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000226b2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000226b6 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 000226ba 4e 92 |N | JSR (A2) 000226bc 50 4f |PO | ADDQ.L #0x8,A7 000226be 4e b9 00 01 03 00 |N | JSR FSCALL_10300 000226c4 50 4f |PO | ADDQ.L #0x8,A7 000226c6 20 1f | | MOVE.L (A7)+,D0 000226c8 0c 80 00 00 00 01 | | CMPI.L #0x00000001,D0 000226ce 67 32 |g2 | BEQ 0x22702 000226d0 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000226d6 41 fa e4 36 |A 6 | LEA.L 0x20b0e,A0 000226da 70 11 |p | MOVEQ.L #0x11,D0 000226dc 2f 20 |/ | MOVE.L -(A0),-(A7) 000226de 51 c8 ff fc |Q | DBF D0,0x226dc 000226e2 59 4f |YO | SUBQ.L #0x4,A7 000226e4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000226e8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000226ec 3f 3c 00 48 |?< H | MOVE.W #0x48,-(A7) 000226f0 4e 92 |N | JSR (A2) 000226f2 50 4f |PO | ADDQ.L #0x8,A7 000226f4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000226fa de fc 00 52 | R | ADDA.W #0x52,A7 000226fe 60 00 04 62 |` b | BRA 0x22b62 00022702 5c 4f |\O | ADDQ.L #0x6,A7 00022704 48 6e fb de |Hn | PEA.L (A6-0x422) 00022708 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002270e 2e ae fb da |. | MOVE.L (A6-0x426),(A7) 00022712 2f 2e fb de |/. | MOVE.L (A6-0x422),-(A7) 00022716 48 6e fb d4 |Hn | PEA.L (A6-0x42c) 0002271a 4e b9 00 01 02 fc |N | JSR FirstField(MOD input : String; MOD output : String; VAR c : Bool 00022720 50 4f |PO | ADDQ.L #0x8,A7 00022722 2e ae fb de |. | MOVE.L (A6-0x422),(A7) 00022726 48 6e fb d4 |Hn | PEA.L (A6-0x42c) 0002272a 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002272e 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 00022734 de fc 00 0c | | ADDA.W #0xc,A7 00022738 4a 2e fb d4 |J. | TST.B (A6-0x42c) 0002273c 66 2a |f* | BNE 0x22768 0002273e 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00022744 9e fc 00 50 | P | SUBA.W #0x50,A7 00022748 20 4f | O | MOVEA.L A7,A0 0002274a 43 fa e3 c2 |C | LEA.L 0x20b0e,A1 0002274e 70 4e |pN | MOVEQ.L #0x4e,D0 00022750 10 d9 | | MOVE.B (A1)+,(A0)+ 00022752 51 c8 ff fc |Q | DBF D0,0x22750 00022756 59 4f |YO | SUBQ.L #0x4,A7 00022758 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002275c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022760 3f 3c 00 4f |?< O | MOVE.W #0x4f,-(A7) 00022764 60 00 03 ee |` | BRA 0x22b54 00022768 02 2e 00 01 ff f2 | . | ANDI.B #0x01,(A6-0xe) 0002276e 02 6e fe 1f ff f2 | n | ANDI.W #0xfe1f,(A6-0xe) 00022774 00 6e 00 20 ff f2 | n | ORI.W #0x0020,(A6-0xe) 0002277a 02 2e 00 e0 ff f3 | . | ANDI.B #0xe0,(A6-0xd) 00022780 00 2e 00 01 ff f3 | . | ORI.B #0x01,(A6-0xd) 00022786 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002278c 70 02 |p | MOVEQ.L #0x02,D0 0002278e 2d 40 fb ac |-@ | MOVE.L D0,(A6-0x454) 00022792 2f 00 |/ | MOVE.L D0,-(A7) 00022794 41 fa e3 d2 |A | LEA.L 0x20b68,A0 00022798 72 04 |r | MOVEQ.L #0x04,D1 0002279a 3f 20 |? | MOVE.W -(A0),-(A7) 0002279c 51 c9 ff fc |Q | DBF D1,0x2279a 000227a0 51 4f |QO | SUBQ.L #0x8,A7 000227a2 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000227a6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000227aa 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000227ae 4e 92 |N | JSR (A2) 000227b0 2e 80 |. | MOVE.L D0,(A7) 000227b2 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000227b8 58 4f |XO | ADDQ.L #0x4,A7 000227ba 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000227c0 50 4f |PO | ADDQ.L #0x8,A7 000227c2 28 5f |(_ | MOVEA.L (A7)+,A4 000227c4 5c 4f |\O | ADDQ.L #0x6,A7 000227c6 2e 8c |. | MOVE.L A4,(A7) 000227c8 42 27 |B' | CLR.B -(A7) 000227ca 42 27 |B' | CLR.B -(A7) 000227cc 48 78 00 00 |Hx | PEA.L 0x0 000227d0 48 6e fb ea |Hn | PEA.L (A6-0x416) 000227d4 48 53 |HS | PEA.L (A3) 000227d6 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000227dc de fc 00 14 | | ADDA.W #0x14,A7 000227e0 4a 2e fb ea |J. | TST.B (A6-0x416) 000227e4 66 00 01 d6 |f | BNE 0x229bc 000227e8 2f 13 |/ | MOVE.L (A3),-(A7) 000227ea 42 67 |Bg | CLR.W -(A7) 000227ec 42 67 |Bg | CLR.W -(A7) 000227ee 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 000227f2 1f 3c 00 01 | < | MOVE.B #0x01,-(A7) 000227f6 41 ee fb ec |A | LEA.L (A6-0x414),A0 000227fa 2f 08 |/ | MOVE.L A0,-(A7) 000227fc 48 6e fb ea |Hn | PEA.L (A6-0x416) 00022800 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 00022806 de fc 00 14 | | ADDA.W #0x14,A7 0002280a 20 53 | S | MOVEA.L (A3),A0 0002280c 1d 68 00 3a ff f4 | h : | MOVE.B (A0+0x3a),(A6-0xc) 00022812 1d 68 00 3b ff f5 | h ; | MOVE.B (A0+0x3b),(A6-0xb) 00022818 1d 68 00 3c ff f6 | h < | MOVE.B (A0+0x3c),(A6-0xa) 0002281e 1d 68 00 3d ff f7 | h = | MOVE.B (A0+0x3d),(A6-0x9) 00022824 42 27 |B' | CLR.B -(A7) 00022826 1f 3c 00 01 | < | MOVE.B #0x01,-(A7) 0002282a 48 78 00 01 |Hx | PEA.L 0x1 0002282e 48 6e fb ea |Hn | PEA.L (A6-0x416) 00022832 48 53 |HS | PEA.L (A3) 00022834 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 0002283a de fc 00 10 | | ADDA.W #0x10,A7 0002283e 12 2e fc 2c | . , | MOVE.B (A6-0x3d4),D1 00022842 0c 01 00 03 | | CMPI.B #0x03,D1 00022846 66 0a |f | BNE 0x22852 00022848 34 2e fc 34 |4. 4 | MOVE.W (A6-0x3cc),D2 0002284c 0c 42 00 09 | B | CMPI.W #0x0009,D2 00022850 67 0c |g | BEQ 0x2285e 00022852 0c 01 00 02 | | CMPI.B #0x02,D1 00022856 66 0a |f | BNE 0x22862 00022858 4a 6e fc 32 |Jn 2 | TST.W (A6-0x3ce) 0002285c 66 04 |f | BNE 0x22862 0002285e 60 00 01 5c |` \ | BRA 0x229bc 00022862 2d 6e ff f4 ff f0 |-n | MOVE.L (A6-0xc),(A6-0x10) 00022868 41 fa e3 18 |A | LEA.L 0x20b82,A0 0002286c 72 0c |r | MOVEQ.L #0x0c,D1 0002286e 3f 20 |? | MOVE.W -(A0),-(A7) 00022870 51 c9 ff fc |Q | DBF D1,0x2286e 00022874 41 ee fc 0a |A | LEA.L (A6-0x3f6),A0 00022878 72 08 |r | MOVEQ.L #0x08,D1 0002287a 3f 20 |? | MOVE.W -(A0),-(A7) 0002287c 51 c9 ff fc |Q | DBF D1,0x2287a 00022880 9e fc 00 14 | | SUBA.W #0x14,A7 00022884 20 4f | O | MOVEA.L A7,A0 00022886 43 fa e2 fa |C | LEA.L 0x20b82,A1 0002288a 72 12 |r | MOVEQ.L #0x12,D1 0002288c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002288e 51 c9 ff fc |Q | DBF D1,0x2288c 00022892 51 4f |QO | SUBQ.L #0x8,A7 00022894 48 6f 00 2e |Ho . | PEA.L (A7+0x2e) 00022898 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002289c 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 000228a0 4e 92 |N | JSR (A2) 000228a2 58 4f |XO | ADDQ.L #0x4,A7 000228a4 48 6f 00 20 |Ho | PEA.L (A7+0x20) 000228a8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000228ac 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 000228b0 4e 92 |N | JSR (A2) 000228b2 58 4f |XO | ADDQ.L #0x4,A7 000228b4 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000228b8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000228bc 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000228c0 4e 92 |N | JSR (A2) 000228c2 50 4f |PO | ADDQ.L #0x8,A7 000228c4 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000228ca de fc 00 0c | | ADDA.W #0xc,A7 000228ce 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000228d4 de fc 00 42 | B | ADDA.W #0x42,A7 000228d8 3e ba e2 c0 |> | MOVE.W 0x20b9a,(A7) 000228dc 3f 3a e2 ba |?: | MOVE.W 0x20b98,-(A7) 000228e0 3f 3a e2 b4 |?: | MOVE.W 0x20b96,-(A7) 000228e4 59 4f |YO | SUBQ.L #0x4,A7 000228e6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000228ea 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000228ee 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 000228f2 4e 92 |N | JSR (A2) 000228f4 50 4f |PO | ADDQ.L #0x8,A7 000228f6 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000228fc de fc 00 0a | | ADDA.W #0xa,A7 00022900 42 81 |B | CLR.L D1 00022902 32 2e fc 0c |2. | MOVE.W (A6-0x3f4),D1 00022906 53 81 |S | SUBQ.L #0x1,D1 00022908 2c 01 |, | MOVE.L D1,D6 0002290a 7e 00 |~ | MOVEQ.L #0x00,D7 0002290c 7a 00 |z | MOVEQ.L #0x00,D5 0002290e 0c 86 00 00 03 3f | ? | CMPI.L #0x0000033f,D6 00022914 63 02 |c | BLS 0x22918 00022916 4e 4f |NO | TRAP #15 00022918 41 ee fb ac |A | LEA.L (A6-0x454),A0 0002291c 41 f0 68 00 |A h | LEA.L (A0+D6.L),A0 00022920 10 28 01 00 | ( | MOVE.B (A0+0x100),D0 00022924 1d 40 fb d2 | @ | MOVE.B D0,(A6-0x42e) 00022928 0c 87 00 00 00 16 | | CMPI.L #0x00000016,D7 0002292e 66 18 |f | BNE 0x22948 00022930 1f 00 | | MOVE.B D0,-(A7) 00022932 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00022938 54 4f |TO | ADDQ.L #0x2,A7 0002293a 0c 00 00 0a | | CMPI.B #0x0a,D0 0002293e 66 06 |f | BNE 0x22946 00022940 58 4f |XO | ADDQ.L #0x4,A7 00022942 60 00 00 ae |` | BRA 0x229f2 00022946 60 2c |`, | BRA 0x22974 00022948 22 07 |" | MOVE.L D7,D1 0002294a 52 81 |R | ADDQ.L #0x1,D1 0002294c 24 01 |$ | MOVE.L D1,D2 0002294e 53 82 |S | SUBQ.L #0x1,D2 00022950 0c 82 00 00 00 15 | | CMPI.L #0x00000015,D2 00022956 63 02 |c | BLS 0x2295a 00022958 4e 4f |NO | TRAP #15 0002295a 41 ee fb ac |A | LEA.L (A6-0x454),A0 0002295e b0 30 28 0c | 0( | CMP.B (A0+D2.L+#0xc),D0 00022962 66 04 |f | BNE 0x22968 00022964 2e 01 |. | MOVE.L D1,D7 00022966 60 0c |` | BRA 0x22974 00022968 b0 2e fb b8 | . | CMP.B (A6-0x448),D0 0002296c 66 04 |f | BNE 0x22972 0002296e 7e 01 |~ | MOVEQ.L #0x01,D7 00022970 60 02 |` | BRA 0x22974 00022972 7e 00 |~ | MOVEQ.L #0x00,D7 00022974 52 86 |R | ADDQ.L #0x1,D6 00022976 28 06 |( | MOVE.L D6,D4 00022978 26 3c 00 00 03 40 |&< @ | MOVE.L #0x340,D3 0002297e 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00022984 2c 03 |, | MOVE.L D3,D6 00022986 52 85 |R | ADDQ.L #0x1,D5 00022988 0c 85 00 00 03 3f | ? | CMPI.L #0x0000033f,D5 0002298e 6f 00 ff 7e |o ~ | BLE 0x2290e 00022992 41 fa e2 2c |A , | LEA.L 0x20bc0,A0 00022996 70 08 |p | MOVEQ.L #0x08,D0 00022998 2f 20 |/ | MOVE.L -(A0),-(A7) 0002299a 51 c8 ff fc |Q | DBF D0,0x22998 0002299e 59 4f |YO | SUBQ.L #0x4,A7 000229a0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000229a4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000229a8 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7) 000229ac 4e 92 |N | JSR (A2) 000229ae 50 4f |PO | ADDQ.L #0x8,A7 000229b0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000229b6 de fc 00 2c | , | ADDA.W #0x2c,A7 000229ba 60 36 |`6 | BRA 0x229f2 000229bc 20 1f | | MOVE.L (A7)+,D0 000229be 52 80 |R | ADDQ.L #0x1,D0 000229c0 0c 80 00 00 00 04 | | CMPI.L #0x00000004,D0 000229c6 6f 00 fd c6 |o | BLE 0x2278e 000229ca 41 fa e2 26 |A & | LEA.L 0x20bf2,A0 000229ce 70 18 |p | MOVEQ.L #0x18,D0 000229d0 3f 20 |? | MOVE.W -(A0),-(A7) 000229d2 51 c8 ff fc |Q | DBF D0,0x229d0 000229d6 59 4f |YO | SUBQ.L #0x4,A7 000229d8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000229dc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000229e0 3f 3c 00 32 |?< 2 | MOVE.W #0x32,-(A7) 000229e4 4e 92 |N | JSR (A2) 000229e6 50 4f |PO | ADDQ.L #0x8,A7 000229e8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000229ee de fc 00 36 | 6 | ADDA.W #0x36,A7 000229f2 48 6e ff ec |Hn | PEA.L (A6-0x14) 000229f6 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 000229fc 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00022a00 4e ba f9 ec |N | JSR 0x223ee 00022a04 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00022a08 4e ba f9 e4 |N | JSR 0x223ee 00022a0c 58 4f |XO | ADDQ.L #0x4,A7 00022a0e 20 2f 00 04 | / | MOVE.L (A7+0x4),D0 00022a12 90 9f | | SUB.L (A7)+,D0 00022a14 58 4f |XO | ADDQ.L #0x4,A7 00022a16 2d 40 ff f8 |-@ | MOVE.L D0,(A6-0x8) 00022a1a 32 2e ff ec |2. | MOVE.W (A6-0x14),D1 00022a1e b2 6e ff f0 | n | CMP.W (A6-0x10),D1 00022a22 64 06 |d | BCC 0x22a2a 00022a24 53 80 |S | SUBQ.L #0x1,D0 00022a26 2d 40 ff f8 |-@ | MOVE.L D0,(A6-0x8) 00022a2a 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 00022a2e b0 ae ff fc | | CMP.L (A6-0x4),D0 00022a32 6d 4e |mN | BLT 0x22a82 00022a34 23 fc 00 00 00 06 00 02 |# | MOVE.L #0x6,0x24498 00022a3c 44 98 |D | 00022a3e 55 4f |UO | SUBQ.L #0x2,A7 00022a40 4e b9 00 01 05 ce |N | JSR ReadKeySwitch() : Bool 00022a46 13 df 00 02 44 96 | D | MOVE.B (A7)+,0x24496 00022a4c 44 39 00 02 44 96 |D9 D | NEG.B 0x24496 00022a52 52 39 00 02 44 96 |R9 D | ADDQ.B #0x1,0x24496 00022a58 10 39 00 02 44 93 | 9 D | MOVE.B 0x24493,D0 00022a5e e9 08 | | LSL.B #0x4,D0 00022a60 ee 08 | | LSR.B #0x7,D0 00022a62 c1 39 00 02 44 96 | 9 D | AND.B D0,0x24496 00022a68 10 39 00 02 44 93 | 9 D | MOVE.B 0x24493,D0 00022a6e eb 08 | | LSL.B #0x5,D0 00022a70 ee 08 | | LSR.B #0x7,D0 00022a72 c1 39 00 02 44 96 | 9 D | AND.B D0,0x24496 00022a78 1d 7c 00 01 00 08 | | | MOVE.B #0x01,(A6+0x8) 00022a7e 60 00 01 3e |` > | BRA 0x22bbe 00022a82 9e fc 00 28 | ( | SUBA.W #0x28,A7 00022a86 20 4f | O | MOVEA.L A7,A0 00022a88 43 fa e1 68 |C h | LEA.L 0x20bf2,A1 00022a8c 70 26 |p& | MOVEQ.L #0x26,D0 00022a8e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022a90 51 c8 ff fc |Q | DBF D0,0x22a8e 00022a94 41 fa e1 aa |A | LEA.L 0x20c40,A0 00022a98 70 12 |p | MOVEQ.L #0x12,D0 00022a9a 3f 20 |? | MOVE.W -(A0),-(A7) 00022a9c 51 c8 ff fc |Q | DBF D0,0x22a9a 00022aa0 51 4f |QO | SUBQ.L #0x8,A7 00022aa2 48 6f 00 2e |Ho . | PEA.L (A7+0x2e) 00022aa6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022aaa 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00022aae 4e 92 |N | JSR (A2) 00022ab0 2e ae ff f8 |. | MOVE.L (A6-0x8),(A7) 00022ab4 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022aba 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00022abe 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022ac2 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 00022ac6 4e 92 |N | JSR (A2) 00022ac8 50 4f |PO | ADDQ.L #0x8,A7 00022aca 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00022ad0 de fc 00 0c | | ADDA.W #0xc,A7 00022ad4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022ada de fc 00 52 | R | ADDA.W #0x52,A7 00022ade 41 fa e1 78 |A x | LEA.L 0x20c58,A0 00022ae2 70 05 |p | MOVEQ.L #0x05,D0 00022ae4 2f 20 |/ | MOVE.L -(A0),-(A7) 00022ae6 51 c8 ff fc |Q | DBF D0,0x22ae4 00022aea 9e fc 00 36 | 6 | SUBA.W #0x36,A7 00022aee 20 4f | O | MOVEA.L A7,A0 00022af0 43 fa e1 66 |C f | LEA.L 0x20c58,A1 00022af4 70 34 |p4 | MOVEQ.L #0x34,D0 00022af6 10 d9 | | MOVE.B (A1)+,(A0)+ 00022af8 51 c8 ff fc |Q | DBF D0,0x22af6 00022afc 51 4f |QO | SUBQ.L #0x8,A7 00022afe 48 6f 00 3e |Ho > | PEA.L (A7+0x3e) 00022b02 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022b06 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00022b0a 4e 92 |N | JSR (A2) 00022b0c 2e ae ff fc |. | MOVE.L (A6-0x4),(A7) 00022b10 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022b16 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00022b1a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022b1e 3f 3c 00 35 |?< 5 | MOVE.W #0x35,-(A7) 00022b22 4e 92 |N | JSR (A2) 00022b24 50 4f |PO | ADDQ.L #0x8,A7 00022b26 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00022b2c de fc 00 0c | | ADDA.W #0xc,A7 00022b30 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022b36 de fc 00 52 | R | ADDA.W #0x52,A7 00022b3a 41 fa e1 a2 |A | LEA.L 0x20cde,A0 00022b3e 70 13 |p | MOVEQ.L #0x13,D0 00022b40 2f 20 |/ | MOVE.L -(A0),-(A7) 00022b42 51 c8 ff fc |Q | DBF D0,0x22b40 00022b46 59 4f |YO | SUBQ.L #0x4,A7 00022b48 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022b4c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022b50 3f 3c 00 50 |?< P | MOVE.W #0x50,-(A7) 00022b54 4e 92 |N | JSR (A2) 00022b56 50 4f |PO | ADDQ.L #0x8,A7 00022b58 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022b5e de fc 00 54 | T | ADDA.W #0x54,A7 00022b62 42 39 00 02 44 96 |B9 D | CLR.B 0x24496 00022b68 42 2e 00 08 |B. | CLR.B (A6+0x8) 00022b6c 9e fc 00 0a | | SUBA.W #0xa,A7 00022b70 20 4f | O | MOVEA.L A7,A0 00022b72 43 fa e1 6a |C j | LEA.L 0x20cde,A1 00022b76 70 08 |p | MOVEQ.L #0x08,D0 00022b78 10 d9 | | MOVE.B (A1)+,(A0)+ 00022b7a 51 c8 ff fc |Q | DBF D0,0x22b78 00022b7e 2f 3a e1 70 |/: p | MOVE.L 0x20cf0,-(A7) 00022b82 2f 3a e1 68 |/: h | MOVE.L 0x20cec,-(A7) 00022b86 2f 3a e1 60 |/: ` | MOVE.L 0x20ce8,-(A7) 00022b8a 59 4f |YO | SUBQ.L #0x4,A7 00022b8c 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00022b90 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022b94 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00022b98 4e 92 |N | JSR (A2) 00022b9a 58 4f |XO | ADDQ.L #0x4,A7 00022b9c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022ba0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022ba4 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 00022ba8 4e 92 |N | JSR (A2) 00022baa 5c 4f |\O | ADDQ.L #0x6,A7 00022bac 1e bc 00 01 | | MOVE.B #0x01,(A7) 00022bb0 48 6e fb eb |Hn | PEA.L (A6-0x415) 00022bb4 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00022bba de fc 00 24 | $ | ADDA.W #0x24,A7 00022bbe 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022bc2 4e 5e |N^ | UNLK A6 00022bc4 4e 75 |Nu | RTS 00022bc6 ; -------------------------------------------------------------------------------------- 00022bc6 ; OMSI PASCAL Function 00022bc6 ; <LVAR 0x008 1(r)> 00022bc6 ; <LVAR -0x001 @ 1(r)> 00022bc6 ; <LVAR -0x002 @ 1(r)> 00022bc6 ; -------------------------------------------------------------------------------------- 00022bc6 4e 56 ff 6a |NV j | LINK.W A6,#0xff6a 00022bca bf d5 | | CMPA.L (A5),A7 00022bcc 62 06 |b | BHI 0x22bd4 00022bce 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022bd2 4e 76 |Nv | TRAPV 00022bd4 de fc 00 94 | | ADDA.W #0x94,A7 00022bd8 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022bdc 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00022be2 47 ee ff ff |G | LEA.L (A6-0x1),A3 00022be6 49 f9 00 01 03 b0 |I | LEA.L PushProgram(a : String; b : String; MOD c : B; VAR d : Bool),A4 00022bec 72 01 |r | MOVEQ.L #0x01,D1 00022bee 74 0a |t | MOVEQ.L #0x0a,D2 00022bf0 76 09 |v | MOVEQ.L #0x09,D3 00022bf2 78 18 |x | MOVEQ.L #0x18,D4 00022bf4 7a 0c |z | MOVEQ.L #0x0c,D5 00022bf6 7c 24 ||$ | MOVEQ.L #0x24,D6 00022bf8 7e 50 |~P | MOVEQ.L #0x50,D7 00022bfa 10 39 00 02 44 93 | 9 D | MOVE.B 0x24493,D0 00022c00 e7 08 | | LSL.B #0x3,D0 00022c02 ee 08 | | LSR.B #0x7,D0 00022c04 67 00 01 86 |g | BEQ 0x22d8c 00022c08 4a 39 00 02 44 95 |J9 D | TST.B 0x24495 00022c0e 66 00 01 7c |f | | BNE 0x22d8c 00022c12 13 c1 00 02 44 9d | D | MOVE.B D1,0x2449d 00022c18 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00022c1e 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00022c24 1f 01 | | MOVE.B D1,-(A7) 00022c26 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00022c2c 42 17 |B | CLR.B (A7) 00022c2e 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00022c34 1e 81 | | MOVE.B D1,(A7) 00022c36 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00022c3c 54 4f |TO | ADDQ.L #0x2,A7 00022c3e 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 00022c44 9e c2 | | SUBA.W D2,A7 00022c46 20 4f | O | MOVEA.L A7,A0 00022c48 43 fa e0 aa |C | LEA.L 0x20cf4,A1 00022c4c 70 08 |p | MOVEQ.L #0x08,D0 00022c4e 10 d9 | | MOVE.B (A1)+,(A0)+ 00022c50 51 c8 ff fc |Q | DBF D0,0x22c4e 00022c54 59 4f |YO | SUBQ.L #0x4,A7 00022c56 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022c5a 3f 01 |? | MOVE.W D1,-(A7) 00022c5c 3f 03 |? | MOVE.W D3,-(A7) 00022c5e 4e 92 |N | JSR (A2) 00022c60 50 4f |PO | ADDQ.L #0x8,A7 00022c62 48 78 00 01 |Hx | PEA.L 0x1 00022c66 1f 01 | | MOVE.B D1,-(A7) 00022c68 48 53 |HS | PEA.L (A3) 00022c6a 4e 94 |N | JSR (A4) 00022c6c de c4 | | ADDA.W D4,A7 00022c6e 4a 13 |J | TST.B (A3) 00022c70 66 14 |f | BNE 0x22c86 00022c72 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00022c78 48 6e ff fe |Hn | PEA.L (A6-0x2) 00022c7c 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 00022c82 58 4f |XO | ADDQ.L #0x4,A7 00022c84 60 04 |` | BRA 0x22c8a 00022c86 42 2e ff fe |B. | CLR.B (A6-0x2) 00022c8a 4a 2e ff fe |J. | TST.B (A6-0x2) 00022c8e 67 00 00 90 |g | BEQ 0x22d20 00022c92 9e c2 | | SUBA.W D2,A7 00022c94 20 4f | O | MOVEA.L A7,A0 00022c96 43 fa e0 66 |C f | LEA.L 0x20cfe,A1 00022c9a 70 08 |p | MOVEQ.L #0x08,D0 00022c9c 10 d9 | | MOVE.B (A1)+,(A0)+ 00022c9e 51 c8 ff fc |Q | DBF D0,0x22c9c 00022ca2 2f 3a e0 6c |/: l | MOVE.L 0x20d10,-(A7) 00022ca6 2f 3a e0 64 |/: d | MOVE.L 0x20d0c,-(A7) 00022caa 2f 3a e0 5c |/: \ | MOVE.L 0x20d08,-(A7) 00022cae 59 4f |YO | SUBQ.L #0x4,A7 00022cb0 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00022cb4 3f 01 |? | MOVE.W D1,-(A7) 00022cb6 3f 03 |? | MOVE.W D3,-(A7) 00022cb8 4e 92 |N | JSR (A2) 00022cba 58 4f |XO | ADDQ.L #0x4,A7 00022cbc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022cc0 3f 01 |? | MOVE.W D1,-(A7) 00022cc2 3f 05 |? | MOVE.W D5,-(A7) 00022cc4 4e 92 |N | JSR (A2) 00022cc6 5c 4f |\O | ADDQ.L #0x6,A7 00022cc8 1e 81 | | MOVE.B D1,(A7) 00022cca 48 53 |HS | PEA.L (A3) 00022ccc 4e 94 |N | JSR (A4) 00022cce de c6 | | ADDA.W D6,A7 00022cd0 4a 2e 00 08 |J. | TST.B (A6+0x8) 00022cd4 67 48 |gH | BEQ 0x22d1e 00022cd6 41 fa e0 88 |A | LEA.L 0x20d60,A0 00022cda 70 12 |p | MOVEQ.L #0x12,D0 00022cdc 2f 20 |/ | MOVE.L -(A0),-(A7) 00022cde 51 c8 ff fc |Q | DBF D0,0x22cdc 00022ce2 59 4f |YO | SUBQ.L #0x4,A7 00022ce4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022ce8 3f 01 |? | MOVE.W D1,-(A7) 00022cea 3f 3c 00 4c |?< L | MOVE.W #0x4c,-(A7) 00022cee 4e 92 |N | JSR (A2) 00022cf0 50 4f |PO | ADDQ.L #0x8,A7 00022cf2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022cf8 de c7 | | ADDA.W D7,A7 00022cfa 41 fa e0 b4 |A | LEA.L 0x20db0,A0 00022cfe 70 13 |p | MOVEQ.L #0x13,D0 00022d00 2f 20 |/ | MOVE.L -(A0),-(A7) 00022d02 51 c8 ff fc |Q | DBF D0,0x22d00 00022d06 59 4f |YO | SUBQ.L #0x4,A7 00022d08 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022d0c 3f 01 |? | MOVE.W D1,-(A7) 00022d0e 3f 07 |? | MOVE.W D7,-(A7) 00022d10 4e 92 |N | JSR (A2) 00022d12 50 4f |PO | ADDQ.L #0x8,A7 00022d14 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022d1a de fc 00 54 | T | ADDA.W #0x54,A7 00022d1e 60 6a |`j | BRA 0x22d8a 00022d20 9e c2 | | SUBA.W D2,A7 00022d22 20 4f | O | MOVEA.L A7,A0 00022d24 43 fa e0 8a |C | LEA.L 0x20db0,A1 00022d28 70 08 |p | MOVEQ.L #0x08,D0 00022d2a 10 d9 | | MOVE.B (A1)+,(A0)+ 00022d2c 51 c8 ff fc |Q | DBF D0,0x22d2a 00022d30 41 fa e0 92 |A | LEA.L 0x20dc4,A0 00022d34 70 04 |p | MOVEQ.L #0x04,D0 00022d36 3f 20 |? | MOVE.W -(A0),-(A7) 00022d38 51 c8 ff fc |Q | DBF D0,0x22d36 00022d3c 59 4f |YO | SUBQ.L #0x4,A7 00022d3e 48 6f 00 0e |Ho | PEA.L (A7+0xe) 00022d42 3f 01 |? | MOVE.W D1,-(A7) 00022d44 3f 03 |? | MOVE.W D3,-(A7) 00022d46 4e 92 |N | JSR (A2) 00022d48 58 4f |XO | ADDQ.L #0x4,A7 00022d4a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022d4e 3f 01 |? | MOVE.W D1,-(A7) 00022d50 3f 02 |? | MOVE.W D2,-(A7) 00022d52 4e 92 |N | JSR (A2) 00022d54 5c 4f |\O | ADDQ.L #0x6,A7 00022d56 1e 81 | | MOVE.B D1,(A7) 00022d58 48 53 |HS | PEA.L (A3) 00022d5a 4e 94 |N | JSR (A4) 00022d5c 9e c4 | | SUBA.W D4,A7 00022d5e 20 4f | O | MOVEA.L A7,A0 00022d60 43 fa e0 62 |C b | LEA.L 0x20dc4,A1 00022d64 70 38 |p8 | MOVEQ.L #0x38,D0 00022d66 10 d9 | | MOVE.B (A1)+,(A0)+ 00022d68 51 c8 ff fc |Q | DBF D0,0x22d66 00022d6c 59 4f |YO | SUBQ.L #0x4,A7 00022d6e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022d72 3f 01 |? | MOVE.W D1,-(A7) 00022d74 3f 3c 00 39 |?< 9 | MOVE.W #0x39,-(A7) 00022d78 4e 92 |N | JSR (A2) 00022d7a 50 4f |PO | ADDQ.L #0x8,A7 00022d7c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022d82 de fc 00 3e | > | ADDA.W #0x3e,A7 00022d86 4e ba f2 18 |N | JSR 0x21fa0 00022d8a 60 6e |`n | BRA 0x22dfa 00022d8c 41 fa e0 98 |A | LEA.L 0x20e26,A0 00022d90 70 09 |p | MOVEQ.L #0x09,D0 00022d92 2f 20 |/ | MOVE.L -(A0),-(A7) 00022d94 51 c8 ff fc |Q | DBF D0,0x22d92 00022d98 59 4f |YO | SUBQ.L #0x4,A7 00022d9a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022d9e 3f 01 |? | MOVE.W D1,-(A7) 00022da0 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 00022da4 4e 92 |N | JSR (A2) 00022da6 50 4f |PO | ADDQ.L #0x8,A7 00022da8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022dae de fc 00 22 | " | ADDA.W #0x22,A7 00022db2 20 4f | O | MOVEA.L A7,A0 00022db4 43 fa e0 70 |C p | LEA.L 0x20e26,A1 00022db8 70 08 |p | MOVEQ.L #0x08,D0 00022dba 10 d9 | | MOVE.B (A1)+,(A0)+ 00022dbc 51 c8 ff fc |Q | DBF D0,0x22dba 00022dc0 2f 3a e0 76 |/: v | MOVE.L 0x20e38,-(A7) 00022dc4 2f 3a e0 6e |/: n | MOVE.L 0x20e34,-(A7) 00022dc8 2f 3a e0 66 |/: f | MOVE.L 0x20e30,-(A7) 00022dcc 59 4f |YO | SUBQ.L #0x4,A7 00022dce 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00022dd2 3f 01 |? | MOVE.W D1,-(A7) 00022dd4 3f 03 |? | MOVE.W D3,-(A7) 00022dd6 4e 92 |N | JSR (A2) 00022dd8 58 4f |XO | ADDQ.L #0x4,A7 00022dda 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022dde 3f 01 |? | MOVE.W D1,-(A7) 00022de0 3f 05 |? | MOVE.W D5,-(A7) 00022de2 4e 92 |N | JSR (A2) 00022de4 5c 4f |\O | ADDQ.L #0x6,A7 00022de6 1e 81 | | MOVE.B D1,(A7) 00022de8 48 53 |HS | PEA.L (A3) 00022dea 4e 94 |N | JSR (A4) 00022dec de c6 | | ADDA.W D6,A7 00022dee 42 39 00 02 44 96 |B9 D | CLR.B 0x24496 00022df4 23 c1 00 02 44 98 |# D | MOVE.L D1,0x24498 00022dfa 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022dfe 4e 5e |N^ | UNLK A6 00022e00 4e 75 |Nu | RTS 00022e02 ; -------------------------------------------------------------------------------------- 00022e02 ; OMSI PASCAL Function 00022e02 ; <LVAR 0x008 1(r)> 00022e02 ; <LVAR -0x078 2(r)> 00022e02 ; <LVAR -0x07a @ 2(w)> 00022e02 ; -------------------------------------------------------------------------------------- 00022e02 4e 56 ff 2e |NV . | LINK.W A6,#0xff2e 00022e06 bf d5 | | CMPA.L (A5),A7 00022e08 62 06 |b | BHI 0x22e10 00022e0a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022e0e 4e 76 |Nv | TRAPV 00022e10 de fc 00 58 | X | ADDA.W #0x58,A7 00022e14 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 00022e18 72 01 |r | MOVEQ.L #0x01,D1 00022e1a 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00022e1e 48 80 |H | EXTB.W D0 00022e20 3d 40 ff 86 |=@ | MOVE.W D0,(A6-0x7a) 00022e24 42 6e ff 88 |Bn | CLR.W (A6-0x78) 00022e28 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00022e2c 41 ee ff 86 |A | LEA.L (A6-0x7a),A0 00022e30 2f 08 |/ | MOVE.L A0,-(A7) 00022e32 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 00022e38 9e fc 00 32 | 2 | SUBA.W #0x32,A7 00022e3c 20 4f | O | MOVEA.L A7,A0 00022e3e 43 fa df fc |C | LEA.L 0x20e3c,A1 00022e42 70 36 |p6 | MOVEQ.L #0x36,D0 00022e44 10 d9 | | MOVE.B (A1)+,(A0)+ 00022e46 51 c8 ff fc |Q | DBF D0,0x22e44 00022e4a 59 4f |YO | SUBQ.L #0x4,A7 00022e4c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022e50 3f 01 |? | MOVE.W D1,-(A7) 00022e52 3f 3c 00 37 |?< 7 | MOVE.W #0x37,-(A7) 00022e56 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022e5c 50 4f |PO | ADDQ.L #0x8,A7 00022e5e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022e64 de fc 00 38 | 8 | ADDA.W #0x38,A7 00022e68 2e b9 00 02 44 9e |. D | MOVE.L 0x2449e,(A7) 00022e6e 59 4f |YO | SUBQ.L #0x4,A7 00022e70 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022e74 3f 01 |? | MOVE.W D1,-(A7) 00022e76 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00022e7a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022e80 50 4f |PO | ADDQ.L #0x8,A7 00022e82 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00022e88 50 4f |PO | ADDQ.L #0x8,A7 00022e8a 42 39 00 02 44 96 |B9 D | CLR.B 0x24496 00022e90 23 fc 00 00 00 06 00 02 |# | MOVE.L #0x6,0x24498 00022e98 44 98 |D | 00022e9a 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 00022e9e 4e 5e |N^ | UNLK A6 00022ea0 4e 75 |Nu | RTS 00022ea2 ; -------------------------------------------------------------------------------------- 00022ea2 ; OMSI PASCAL Function 00022ea2 ; <LVAR 0x008 1(r)> 00022ea2 ; <LVAR -0x004 @ 1(r)> 00022ea2 ; <LVAR -0x07c 2(r)> 00022ea2 ; <LVAR -0x07e @ 2(w)> 00022ea2 ; -------------------------------------------------------------------------------------- 00022ea2 4e 56 ff 10 |NV | LINK.W A6,#0xff10 00022ea6 bf d5 | | CMPA.L (A5),A7 00022ea8 62 06 |b | BHI 0x22eb0 00022eaa 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022eae 4e 76 |Nv | TRAPV 00022eb0 de fc 00 72 | r | ADDA.W #0x72,A7 00022eb4 48 e7 f0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7) 00022eb8 45 f9 00 02 44 96 |E D | LEA.L 0x24496,A2 00022ebe 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00022ec4 49 f9 00 02 44 98 |I D | LEA.L 0x24498,A4 00022eca 76 01 |v | MOVEQ.L #0x01,D3 00022ecc 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00022ed0 48 80 |H | EXTB.W D0 00022ed2 3d 40 ff 82 |=@ | MOVE.W D0,(A6-0x7e) 00022ed6 42 6e ff 84 |Bn | CLR.W (A6-0x7c) 00022eda 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00022ede 41 ee ff 82 |A | LEA.L (A6-0x7e),A0 00022ee2 2f 08 |/ | MOVE.L A0,-(A7) 00022ee4 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 00022eea 5c 4f |\O | ADDQ.L #0x6,A7 00022eec 4a 40 |J@ | TST.W D0 00022eee 66 28 |f( | BNE 0x22f18 00022ef0 41 fa df aa |A | LEA.L 0x20e9c,A0 00022ef4 72 09 |r | MOVEQ.L #0x09,D1 00022ef6 2f 20 |/ | MOVE.L -(A0),-(A7) 00022ef8 51 c9 ff fc |Q | DBF D1,0x22ef6 00022efc 59 4f |YO | SUBQ.L #0x4,A7 00022efe 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022f02 3f 03 |? | MOVE.W D3,-(A7) 00022f04 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7) 00022f08 4e 93 |N | JSR (A3) 00022f0a 50 4f |PO | ADDQ.L #0x8,A7 00022f0c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022f12 de fc 00 2c | , | ADDA.W #0x2c,A7 00022f16 60 26 |`& | BRA 0x22f3e 00022f18 41 fa df be |A | LEA.L 0x20ed8,A0 00022f1c 72 0e |r | MOVEQ.L #0x0e,D1 00022f1e 2f 20 |/ | MOVE.L -(A0),-(A7) 00022f20 51 c9 ff fc |Q | DBF D1,0x22f1e 00022f24 59 4f |YO | SUBQ.L #0x4,A7 00022f26 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022f2a 3f 03 |? | MOVE.W D3,-(A7) 00022f2c 3f 3c 00 3c |?< < | MOVE.W #0x3c,-(A7) 00022f30 4e 93 |N | JSR (A3) 00022f32 50 4f |PO | ADDQ.L #0x8,A7 00022f34 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022f3a de fc 00 40 | @ | ADDA.W #0x40,A7 00022f3e 2f 39 00 02 44 9e |/9 D | MOVE.L 0x2449e,-(A7) 00022f44 59 4f |YO | SUBQ.L #0x4,A7 00022f46 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022f4a 3f 03 |? | MOVE.W D3,-(A7) 00022f4c 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00022f50 4e 93 |N | JSR (A3) 00022f52 50 4f |PO | ADDQ.L #0x8,A7 00022f54 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00022f5a 5c 4f |\O | ADDQ.L #0x6,A7 00022f5c 42 17 |B | CLR.B (A7) 00022f5e 4e ba ee 26 |N & | JSR 0x21d86 00022f62 54 4f |TO | ADDQ.L #0x2,A7 00022f64 28 bc 00 00 00 06 |( | MOVE.L #0x6,(A4) 00022f6a 42 12 |B | CLR.B (A2) 00022f6c 55 4f |UO | SUBQ.L #0x2,A7 00022f6e 4e b9 00 01 05 ce |N | JSR ReadKeySwitch() : Bool 00022f74 12 1f | | MOVE.B (A7)+,D1 00022f76 44 01 |D | NEG.B D1 00022f78 52 01 |R | ADDQ.B #0x1,D1 00022f7a 14 39 00 02 44 93 | 9 D | MOVE.B 0x24493,D2 00022f80 e9 0a | | LSL.B #0x4,D2 00022f82 ee 0a | | LSR.B #0x7,D2 00022f84 c4 01 | | AND.B D1,D2 00022f86 12 39 00 02 44 93 | 9 D | MOVE.B 0x24493,D1 00022f8c eb 09 | | LSL.B #0x5,D1 00022f8e ee 09 | | LSR.B #0x7,D1 00022f90 c2 02 | | AND.B D2,D1 00022f92 67 06 |g | BEQ 0x22f9a 00022f94 4a 40 |J@ | TST.W D0 00022f96 66 02 |f | BNE 0x22f9a 00022f98 52 12 |R | ADDQ.B #0x1,(A2) 00022f9a 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00022fa0 42 27 |B' | CLR.B -(A7) 00022fa2 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00022fa8 51 4f |QO | SUBQ.L #0x8,A7 00022faa 20 4f | O | MOVEA.L A7,A0 00022fac 43 fa df 2a |C * | LEA.L 0x20ed8,A1 00022fb0 70 08 |p | MOVEQ.L #0x08,D0 00022fb2 10 d9 | | MOVE.B (A1)+,(A0)+ 00022fb4 51 c8 ff fc |Q | DBF D0,0x22fb2 00022fb8 59 4f |YO | SUBQ.L #0x4,A7 00022fba 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022fbe 3f 03 |? | MOVE.W D3,-(A7) 00022fc0 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00022fc4 4e 93 |N | JSR (A3) 00022fc6 50 4f |PO | ADDQ.L #0x8,A7 00022fc8 48 78 00 01 |Hx | PEA.L 0x1 00022fcc 42 27 |B' | CLR.B -(A7) 00022fce 48 6e ff fc |Hn | PEA.L (A6-0x4) 00022fd2 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00022fd8 de fc 00 18 | | ADDA.W #0x18,A7 00022fdc 4a 2e ff fc |J. | TST.B (A6-0x4) 00022fe0 66 0a |f | BNE 0x22fec 00022fe2 42 27 |B' | CLR.B -(A7) 00022fe4 4e ba fb e0 |N | JSR 0x22bc6 00022fe8 54 4f |TO | ADDQ.L #0x2,A7 00022fea 60 04 |` | BRA 0x22ff0 00022fec 42 12 |B | CLR.B (A2) 00022fee 28 83 |( | MOVE.L D3,(A4) 00022ff0 4c df 1f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4 00022ff4 4e 5e |N^ | UNLK A6 00022ff6 4e 75 |Nu | RTS 00022ff8 ; -------------------------------------------------------------------------------------- 00022ff8 ; OMSI PASCAL Function 00022ff8 ; <LVAR 0x008 1(r)> 00022ff8 ; <LVAR -0x004 @> 00022ff8 ; <LVAR -0x07c 2(r)> 00022ff8 ; <LVAR -0x07e @ 2(w)> 00022ff8 ; -------------------------------------------------------------------------------------- 00022ff8 4e 56 fe fe |NV | LINK.W A6,#0xfefe 00022ffc bf d5 | | CMPA.L (A5),A7 00022ffe 62 06 |b | BHI 0x23006 00023000 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023004 4e 76 |Nv | TRAPV 00023006 de fc 00 84 | | ADDA.W #0x84,A7 0002300a 48 e7 fe f8 |H | MOVEM.L A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002300e 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00023014 47 f9 00 02 44 98 |G D | LEA.L 0x24498,A3 0002301a 49 f9 00 02 44 9e |I D | LEA.L 0x2449e,A4 00023020 72 01 |r | MOVEQ.L #0x01,D1 00023022 74 04 |t | MOVEQ.L #0x04,D2 00023024 76 02 |v | MOVEQ.L #0x02,D3 00023026 78 36 |x6 | MOVEQ.L #0x36,D4 00023028 7a 40 |z@ | MOVEQ.L #0x40,D5 0002302a 7c 32 ||2 | MOVEQ.L #0x32,D6 0002302c 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00023030 48 80 |H | EXTB.W D0 00023032 3d 40 ff 82 |=@ | MOVE.W D0,(A6-0x7e) 00023036 42 6e ff 84 |Bn | CLR.W (A6-0x7c) 0002303a 1f 03 | | MOVE.B D3,-(A7) 0002303c 41 ee ff 82 |A | LEA.L (A6-0x7e),A0 00023040 2f 08 |/ | MOVE.L A0,-(A7) 00023042 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 00023048 5c 4f |\O | ADDQ.L #0x6,A7 0002304a 42 39 00 02 44 96 |B9 D | CLR.B 0x24496 00023050 26 bc 00 00 00 06 |& | MOVE.L #0x6,(A3) 00023056 0c 00 00 20 | | CMPI.B #0x20,D0 0002305a 66 44 |fD | BNE 0x230a0 0002305c 41 fa df 2c |A , | LEA.L 0x20f8a,A0 00023060 70 1a |p | MOVEQ.L #0x1a,D0 00023062 3f 20 |? | MOVE.W -(A0),-(A7) 00023064 51 c8 ff fc |Q | DBF D0,0x23062 00023068 59 4f |YO | SUBQ.L #0x4,A7 0002306a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002306e 3f 01 |? | MOVE.W D1,-(A7) 00023070 3f 04 |? | MOVE.W D4,-(A7) 00023072 4e 92 |N | JSR (A2) 00023074 50 4f |PO | ADDQ.L #0x8,A7 00023076 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002307c de c4 | | ADDA.W D4,A7 0002307e 2e 94 |. | MOVE.L (A4),(A7) 00023080 59 4f |YO | SUBQ.L #0x4,A7 00023082 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023086 3f 01 |? | MOVE.W D1,-(A7) 00023088 3f 02 |? | MOVE.W D2,-(A7) 0002308a 4e 92 |N | JSR (A2) 0002308c 50 4f |PO | ADDQ.L #0x8,A7 0002308e 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00023094 50 4f |PO | ADDQ.L #0x8,A7 00023096 13 c1 00 02 44 96 | D | MOVE.B D1,0x24496 0002309c 60 00 01 24 |` $ | BRA 0x231c2 000230a0 0c 00 00 19 | | CMPI.B #0x19,D0 000230a4 66 44 |fD | BNE 0x230ea 000230a6 9e c5 | | SUBA.W D5,A7 000230a8 20 4f | O | MOVEA.L A7,A0 000230aa 43 fa de 68 |C h | LEA.L 0x20f14,A1 000230ae 70 3e |p> | MOVEQ.L #0x3e,D0 000230b0 10 d9 | | MOVE.B (A1)+,(A0)+ 000230b2 51 c8 ff fc |Q | DBF D0,0x230b0 000230b6 59 4f |YO | SUBQ.L #0x4,A7 000230b8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000230bc 3f 01 |? | MOVE.W D1,-(A7) 000230be 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 000230c2 4e 92 |N | JSR (A2) 000230c4 50 4f |PO | ADDQ.L #0x8,A7 000230c6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000230cc de c5 | | ADDA.W D5,A7 000230ce 2e 94 |. | MOVE.L (A4),(A7) 000230d0 59 4f |YO | SUBQ.L #0x4,A7 000230d2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000230d6 3f 01 |? | MOVE.W D1,-(A7) 000230d8 3f 02 |? | MOVE.W D2,-(A7) 000230da 4e 92 |N | JSR (A2) 000230dc 50 4f |PO | ADDQ.L #0x8,A7 000230de 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000230e4 50 4f |PO | ADDQ.L #0x8,A7 000230e6 60 00 00 da |` | BRA 0x231c2 000230ea 41 fa de 28 |A ( | LEA.L 0x20f14,A0 000230ee 70 18 |p | MOVEQ.L #0x18,D0 000230f0 3f 20 |? | MOVE.W -(A0),-(A7) 000230f2 51 c8 ff fc |Q | DBF D0,0x230f0 000230f6 59 4f |YO | SUBQ.L #0x4,A7 000230f8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000230fc 3f 01 |? | MOVE.W D1,-(A7) 000230fe 3f 06 |? | MOVE.W D6,-(A7) 00023100 4e 92 |N | JSR (A2) 00023102 50 4f |PO | ADDQ.L #0x8,A7 00023104 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002310a de c6 | | ADDA.W D6,A7 0002310c 2e 94 |. | MOVE.L (A4),(A7) 0002310e 59 4f |YO | SUBQ.L #0x4,A7 00023110 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023114 3f 01 |? | MOVE.W D1,-(A7) 00023116 3f 02 |? | MOVE.W D2,-(A7) 00023118 4e 92 |N | JSR (A2) 0002311a 50 4f |PO | ADDQ.L #0x8,A7 0002311c 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00023122 50 4f |PO | ADDQ.L #0x8,A7 00023124 4a 39 00 02 44 94 |J9 D | TST.B 0x24494 0002312a 67 00 00 94 |g | BEQ 0x231c0 0002312e 1f 01 | | MOVE.B D1,-(A7) 00023130 4e ba ec 54 |N T | JSR 0x21d86 00023134 54 4f |TO | ADDQ.L #0x2,A7 00023136 4a 39 00 02 44 95 |J9 D | TST.B 0x24495 0002313c 66 0c |f | BNE 0x2314a 0002313e 10 39 00 02 44 93 | 9 D | MOVE.B 0x24493,D0 00023144 e7 08 | | LSL.B #0x3,D0 00023146 ee 08 | | LSR.B #0x7,D0 00023148 66 26 |f& | BNE 0x23170 0002314a 41 fa de 80 |A | LEA.L 0x20fcc,A0 0002314e 70 20 |p | MOVEQ.L #0x20,D0 00023150 3f 20 |? | MOVE.W -(A0),-(A7) 00023152 51 c8 ff fc |Q | DBF D0,0x23150 00023156 59 4f |YO | SUBQ.L #0x4,A7 00023158 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002315c 3f 01 |? | MOVE.W D1,-(A7) 0002315e 3f 3c 00 42 |?< B | MOVE.W #0x42,-(A7) 00023162 4e 92 |N | JSR (A2) 00023164 50 4f |PO | ADDQ.L #0x8,A7 00023166 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002316c de fc 00 46 | F | ADDA.W #0x46,A7 00023170 9e fc 00 0a | | SUBA.W #0xa,A7 00023174 20 4f | O | MOVEA.L A7,A0 00023176 43 fa de 54 |C T | LEA.L 0x20fcc,A1 0002317a 70 08 |p | MOVEQ.L #0x08,D0 0002317c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002317e 51 c8 ff fc |Q | DBF D0,0x2317c 00023182 2f 3a de 5a |/: Z | MOVE.L 0x20fde,-(A7) 00023186 2f 3a de 52 |/: R | MOVE.L 0x20fda,-(A7) 0002318a 2f 3a de 4a |/: J | MOVE.L 0x20fd6,-(A7) 0002318e 59 4f |YO | SUBQ.L #0x4,A7 00023190 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00023194 3f 01 |? | MOVE.W D1,-(A7) 00023196 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002319a 4e 92 |N | JSR (A2) 0002319c 58 4f |XO | ADDQ.L #0x4,A7 0002319e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000231a2 3f 01 |? | MOVE.W D1,-(A7) 000231a4 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 000231a8 4e 92 |N | JSR (A2) 000231aa 5c 4f |\O | ADDQ.L #0x6,A7 000231ac 1e 81 | | MOVE.B D1,(A7) 000231ae 48 6e ff fc |Hn | PEA.L (A6-0x4) 000231b2 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 000231b8 de fc 00 24 | $ | ADDA.W #0x24,A7 000231bc 26 83 |& | MOVE.L D3,(A3) 000231be 60 02 |` | BRA 0x231c2 000231c0 26 81 |& | MOVE.L D1,(A3) 000231c2 4c df 1f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4 000231c6 4e 5e |N^ | UNLK A6 000231c8 4e 75 |Nu | RTS 000231ca ; -------------------------------------------------------------------------------------- 000231ca ; OMSI PASCAL Function 000231ca ; <LVAR 0x008 1(r)> 000231ca ; <LVAR -0x002 @ 1(r)> 000231ca ; -------------------------------------------------------------------------------------- 000231ca 4e 56 ff ec |NV | LINK.W A6,#0xffec 000231ce bf d5 | | CMPA.L (A5),A7 000231d0 62 06 |b | BHI 0x231d8 000231d2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000231d6 4e 76 |Nv | TRAPV 000231d8 de fc 00 12 | | ADDA.W #0x12,A7 000231dc 48 e7 c0 00 |H | MOVEM.L D1+D0,-(A7) 000231e0 72 01 |r | MOVEQ.L #0x01,D1 000231e2 4e ba e4 b2 |N | JSR 0x21696 000231e6 59 4f |YO | SUBQ.L #0x4,A7 000231e8 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 000231ee 20 1f | | MOVE.L (A7)+,D0 000231f0 b0 81 | | CMP.L D1,D0 000231f2 67 0a |g | BEQ 0x231fe 000231f4 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 000231f8 4e ba f1 6e |N n | JSR 0x22368 000231fc 54 4f |TO | ADDQ.L #0x2,A7 000231fe 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00023202 48 6e ff fe |Hn | PEA.L (A6-0x2) 00023206 4e ba ee dc |N | JSR 0x220e4 0002320a 58 4f |XO | ADDQ.L #0x4,A7 0002320c 1e 81 | | MOVE.B D1,(A7) 0002320e 4e ba eb 76 |N v | JSR 0x21d86 00023212 54 4f |TO | ADDQ.L #0x2,A7 00023214 4a 2e ff fe |J. | TST.B (A6-0x2) 00023218 67 02 |g | BEQ 0x2321c 0002321a 60 14 |` | BRA 0x23230 0002321c 55 4f |UO | SUBQ.L #0x2,A7 0002321e 4e ba f2 ae |N | JSR 0x224ce 00023222 4a 1f |J | TST.B (A7)+ 00023224 67 0a |g | BEQ 0x23230 00023226 1f 01 | | MOVE.B D1,-(A7) 00023228 4e ba f9 9c |N | JSR 0x22bc6 0002322c 54 4f |TO | ADDQ.L #0x2,A7 0002322e 60 04 |` | BRA 0x23234 00023230 4e ba ed 6e |N n | JSR 0x21fa0 00023234 4c df 00 03 |L | MOVEM.L (A7)+,D0+D1 00023238 4e 5e |N^ | UNLK A6 0002323a 4e 75 |Nu | RTS 0002323c ; -------------------------------------------------------------------------------------- 0002323c ; OMSI PASCAL Function 0002323c ; <LVAR 0x008 1(r)> 0002323c ; <LVAR -0x076 2(r)> 0002323c ; <LVAR -0x078 2(w)> 0002323c ; <LVAR -0x07a @ 2(w)> 0002323c ; -------------------------------------------------------------------------------------- 0002323c 4e 56 ff 46 |NV F | LINK.W A6,#0xff46 00023240 bf d5 | | CMPA.L (A5),A7 00023242 62 06 |b | BHI 0x2324a 00023244 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023248 4e 76 |Nv | TRAPV 0002324a de fc 00 40 | @ | ADDA.W #0x40,A7 0002324e 48 e7 e0 80 |H | MOVEM.L A0+D2+D1+D0,-(A7) 00023252 72 03 |r | MOVEQ.L #0x03,D1 00023254 74 01 |t | MOVEQ.L #0x01,D2 00023256 3d 41 ff 86 |=A | MOVE.W D1,(A6-0x7a) 0002325a 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 0002325e 48 80 |H | EXTB.W D0 00023260 3d 40 ff 88 |=@ | MOVE.W D0,(A6-0x78) 00023264 42 6e ff 8a |Bn | CLR.W (A6-0x76) 00023268 1f 01 | | MOVE.B D1,-(A7) 0002326a 41 ee ff 86 |A | LEA.L (A6-0x7a),A0 0002326e 2f 08 |/ | MOVE.L A0,-(A7) 00023270 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 00023276 58 4f |XO | ADDQ.L #0x4,A7 00023278 1e 82 | | MOVE.B D2,(A7) 0002327a 4e ba eb 0a |N | JSR 0x21d86 0002327e 4e ba f2 4e |N N | JSR 0x224ce 00023282 4a 1f |J | TST.B (A7)+ 00023284 67 0a |g | BEQ 0x23290 00023286 42 27 |B' | CLR.B -(A7) 00023288 4e ba f9 3c |N < | JSR 0x22bc6 0002328c 54 4f |TO | ADDQ.L #0x2,A7 0002328e 60 3a |`: | BRA 0x232ca 00023290 42 39 00 02 44 96 |B9 D | CLR.B 0x24496 00023296 23 fc 00 00 00 02 00 02 |# | MOVE.L #0x2,0x24498 0002329e 44 98 |D | 000232a0 41 fa dd 60 |A ` | LEA.L 0x21002,A0 000232a4 70 07 |p | MOVEQ.L #0x07,D0 000232a6 2f 20 |/ | MOVE.L -(A0),-(A7) 000232a8 51 c8 ff fc |Q | DBF D0,0x232a6 000232ac 59 4f |YO | SUBQ.L #0x4,A7 000232ae 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000232b2 3f 02 |? | MOVE.W D2,-(A7) 000232b4 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 000232b8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000232be 50 4f |PO | ADDQ.L #0x8,A7 000232c0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000232c6 de fc 00 24 | $ | ADDA.W #0x24,A7 000232ca 4c df 01 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0 000232ce 4e 5e |N^ | UNLK A6 000232d0 4e 75 |Nu | RTS 000232d2 ; -------------------------------------------------------------------------------------- 000232d2 ; OMSI PASCAL Function 000232d2 ; <LVAR -0x078 2(r)> 000232d2 ; <LVAR -0x07a 2(w)> 000232d2 ; <LVAR -0x07c @ 2(w)> 000232d2 ; -------------------------------------------------------------------------------------- 000232d2 4e 56 ff 6e |NV n | LINK.W A6,#0xff6e 000232d6 bf d5 | | CMPA.L (A5),A7 000232d8 62 06 |b | BHI 0x232e0 000232da 44 fc 00 02 |D | MOVE.W #0x2,CCR 000232de 4e 76 |Nv | TRAPV 000232e0 de fc 00 16 | | ADDA.W #0x16,A7 000232e4 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 000232e8 43 f9 00 02 44 96 |C D | LEA.L 0x24496,A1 000232ee 3d 7c 00 04 ff 84 |=| | MOVE.W #0x4,(A6-0x7c) 000232f4 3d 7c 00 09 ff 86 |=| | MOVE.W #0x9,(A6-0x7a) 000232fa 42 6e ff 88 |Bn | CLR.W (A6-0x78) 000232fe 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00023302 41 ee ff 84 |A | LEA.L (A6-0x7c),A0 00023306 2f 08 |/ | MOVE.L A0,-(A7) 00023308 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 0002330e 58 4f |XO | ADDQ.L #0x4,A7 00023310 42 17 |B | CLR.B (A7) 00023312 4e ba ea 72 |N r | JSR 0x21d86 00023316 4e b9 00 01 05 ce |N | JSR ReadKeySwitch() : Bool 0002331c 12 9f | | MOVE.B (A7)+,(A1) 0002331e 44 11 |D | NEG.B (A1) 00023320 52 11 |R | ADDQ.B #0x1,(A1) 00023322 10 39 00 02 44 93 | 9 D | MOVE.B 0x24493,D0 00023328 e9 08 | | LSL.B #0x4,D0 0002332a ee 08 | | LSR.B #0x7,D0 0002332c c1 11 | | AND.B D0,(A1) 0002332e 10 39 00 02 44 93 | 9 D | MOVE.B 0x24493,D0 00023334 eb 08 | | LSL.B #0x5,D0 00023336 ee 08 | | LSR.B #0x7,D0 00023338 c1 11 | | AND.B D0,(A1) 0002333a 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 0002333e 4e 5e |N^ | UNLK A6 00023340 4e 75 |Nu | RTS 00023342 ; -------------------------------------------------------------------------------------- 00023342 ; OMSI PASCAL Function 00023342 ; <LVAR 0x008 1(r)> 00023342 ; -------------------------------------------------------------------------------------- 00023342 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00023346 bf d5 | | CMPA.L (A5),A7 00023348 62 06 |b | BHI 0x23350 0002334a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002334e 4e 76 |Nv | TRAPV 00023350 de fc 00 1c | | ADDA.W #0x1c,A7 00023354 48 e7 c0 00 |H | MOVEM.L D1+D0,-(A7) 00023358 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 0002335c 4e ba f0 0a |N | JSR 0x22368 00023360 54 4f |TO | ADDQ.L #0x2,A7 00023362 2f 39 00 02 44 9e |/9 D | MOVE.L 0x2449e,-(A7) 00023368 59 4f |YO | SUBQ.L #0x4,A7 0002336a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002336e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00023372 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00023376 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002337c 50 4f |PO | ADDQ.L #0x8,A7 0002337e 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00023384 50 4f |PO | ADDQ.L #0x8,A7 00023386 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 0002338a 48 80 |H | EXTB.W D0 0002338c 32 00 |2 | MOVE.W D0,D1 0002338e 0c 41 00 0d | A | CMPI.W #0x000d,D1 00023392 63 02 |c | BLS 0x23396 00023394 4e 4e |NN | TRAP #14 00023396 d2 41 | A | ADD.W D1,D1 00023398 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 000233a0 00 1c | | .CONST 0x1c ; [0x0] -> 0x233bc 000233a2 00 1e | | .CONST 0x1e ; [0x1] -> 0x233be 000233a4 00 20 | | .CONST 0x20 ; [0x2] -> 0x233c0 000233a6 00 28 | ( | .CONST 0x28 ; [0x3] -> 0x233c8 000233a8 00 2a | * | .CONST 0x2a ; [0x4] -> 0x233ca 000233aa 00 2c | , | .CONST 0x2c ; [0x5] -> 0x233cc 000233ac 00 2e | . | .CONST 0x2e ; [0x6] -> 0x233ce 000233ae 00 30 | 0 | .CONST 0x30 ; [0x7] -> 0x233d0 000233b0 00 32 | 2 | .CONST 0x32 ; [0x8] -> 0x233d2 000233b2 00 34 | 4 | .CONST 0x34 ; [0x9] -> 0x233d4 000233b4 00 3a | : | .CONST 0x3a ; [0xa] -> 0x233da 000233b6 00 3c | < | .CONST 0x3c ; [0xb] -> 0x233dc 000233b8 00 3e | > | .CONST 0x3e ; [0xc] -> 0x233de 000233ba 00 40 | @ | .CONST 0x40 ; [0xd] -> 0x233e0 000233bc switch@0x23398[0x0]: 000233bc 60 2a |`* | BRA 0x233e8 000233be switch@0x23398[0x1]: 000233be 60 20 |` | BRA switch@0x23398[0xd] 000233c0 switch@0x23398[0x2]: 000233c0 1f 00 | | MOVE.B D0,-(A7) 000233c2 4e ba fe 06 |N | JSR 0x231ca 000233c6 60 1e |` | BRA 0x233e6 000233c8 switch@0x23398[0x3]: 000233c8 60 16 |` | BRA switch@0x23398[0xd] 000233ca switch@0x23398[0x4]: 000233ca 60 f4 |` | BRA switch@0x23398[0x2] 000233cc switch@0x23398[0x5]: 000233cc 60 f2 |` | BRA switch@0x23398[0x2] 000233ce switch@0x23398[0x6]: 000233ce 60 f0 |` | BRA switch@0x23398[0x2] 000233d0 switch@0x23398[0x7]: 000233d0 60 0e |` | BRA switch@0x23398[0xd] 000233d2 switch@0x23398[0x8]: 000233d2 60 0c |` | BRA switch@0x23398[0xd] 000233d4 switch@0x23398[0x9]: 000233d4 4e ba fe fc |N | JSR 0x232d2 000233d8 60 0e |` | BRA 0x233e8 000233da switch@0x23398[0xa]: 000233da 60 04 |` | BRA switch@0x23398[0xd] 000233dc switch@0x23398[0xb]: 000233dc 60 e2 |` | BRA switch@0x23398[0x2] 000233de switch@0x23398[0xc]: 000233de 60 e0 |` | BRA switch@0x23398[0x2] 000233e0 switch@0x23398[0xd]: 000233e0 1f 00 | | MOVE.B D0,-(A7) 000233e2 4e ba fe 58 |N X | JSR 0x2323c 000233e6 54 4f |TO | ADDQ.L #0x2,A7 000233e8 4c df 00 03 |L | MOVEM.L (A7)+,D0+D1 000233ec 4e 5e |N^ | UNLK A6 000233ee 4e 75 |Nu | RTS 000233f0 ; -------------------------------------------------------------------------------------- 000233f0 ; OMSI PASCAL Function 000233f0 ; <LVAR 0x012 @ 4(r)> 000233f0 ; <LVAR 0x00e @ 4(r)> 000233f0 ; <LVAR 0x00a 4(r)> 000233f0 ; <LVAR 0x008 1(r)> 000233f0 ; -------------------------------------------------------------------------------------- 000233f0 4e 56 ff ca |NV | LINK.W A6,#0xffca 000233f4 bf d5 | | CMPA.L (A5),A7 000233f6 62 06 |b | BHI 0x233fe 000233f8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000233fc 4e 76 |Nv | TRAPV 000233fe de fc 00 34 | 4 | ADDA.W #0x34,A7 00023402 48 e7 e0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D2+D1+D0,-(A7) 00023406 41 f9 00 02 44 98 |A D | LEA.L 0x24498,A0 0002340c 43 f9 00 02 44 94 |C D | LEA.L 0x24494,A1 00023412 45 f9 00 01 02 cc |E | LEA.L StringDup(a : String) : String,A2 00023418 47 ee 00 12 |G | LEA.L (A6+0x12),A3 0002341c 49 ee 00 0e |I | LEA.L (A6+0xe),A4 00023420 72 01 |r | MOVEQ.L #0x01,D1 00023422 74 02 |t | MOVEQ.L #0x02,D2 00023424 59 4f |YO | SUBQ.L #0x4,A7 00023426 2f 13 |/ | MOVE.L (A3),-(A7) 00023428 4e 92 |N | JSR (A2) 0002342a 58 4f |XO | ADDQ.L #0x4,A7 0002342c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023432 54 4f |TO | ADDQ.L #0x2,A7 00023434 3e ba db cc |> | MOVE.W 0x21002,(A7) 00023438 59 4f |YO | SUBQ.L #0x4,A7 0002343a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002343e 3f 01 |? | MOVE.W D1,-(A7) 00023440 3f 02 |? | MOVE.W D2,-(A7) 00023442 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023448 50 4f |PO | ADDQ.L #0x8,A7 0002344a 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00023450 54 4f |TO | ADDQ.L #0x2,A7 00023452 2f 14 |/ | MOVE.L (A4),-(A7) 00023454 4e 92 |N | JSR (A2) 00023456 2e ae 00 0a |. | MOVE.L (A6+0xa),(A7) 0002345a 4e b9 00 01 04 50 |N P | JSR FS_10450(&, &) 00023460 58 4f |XO | ADDQ.L #0x4,A7 00023462 2e b9 00 02 44 9e |. D | MOVE.L 0x2449e,(A7) 00023468 59 4f |YO | SUBQ.L #0x4,A7 0002346a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002346e 3f 01 |? | MOVE.W D1,-(A7) 00023470 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00023474 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002347a 50 4f |PO | ADDQ.L #0x8,A7 0002347c 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00023482 50 4f |PO | ADDQ.L #0x8,A7 00023484 20 bc 00 00 00 06 | | MOVE.L #0x6,(A0) 0002348a 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 0002348e 48 80 |H | EXTB.W D0 00023490 0c 40 00 0a | @ | CMPI.W #0x000a,D0 00023494 63 02 |c | BLS 0x23498 00023496 4e 4e |NN | TRAP #14 00023498 d0 40 | @ | ADD.W D0,D0 0002349a 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000234a2 00 16 | | .CONST 0x16 ; [0x0] -> 0x234b8 000234a4 00 16 | | .CONST 0x16 ; [0x1] -> 0x234b8 000234a6 00 16 | | .CONST 0x16 ; [0x2] -> 0x234b8 000234a8 00 6a | j | .CONST 0x6a ; [0x3] -> 0x2350c 000234aa 00 6a | j | .CONST 0x6a ; [0x4] -> 0x2350c 000234ac 00 28 | ( | .CONST 0x28 ; [0x5] -> 0x234ca 000234ae 00 6a | j | .CONST 0x6a ; [0x6] -> 0x2350c 000234b0 00 28 | ( | .CONST 0x28 ; [0x7] -> 0x234ca 000234b2 00 6a | j | .CONST 0x6a ; [0x8] -> 0x2350c 000234b4 00 28 | ( | .CONST 0x28 ; [0x9] -> 0x234ca 000234b6 00 28 | ( | .CONST 0x28 ; [0xa] -> 0x234ca 000234b8 switch@0x2349a[0x0]: 000234b8 switch@0x2349a[0x1]: 000234b8 switch@0x2349a[0x2]: 000234b8 4a 11 |J | TST.B (A1) 000234ba 67 0a |g | BEQ 0x234c6 000234bc 42 27 |B' | CLR.B -(A7) 000234be 4e ba e8 c6 |N | JSR 0x21d86 000234c2 54 4f |TO | ADDQ.L #0x2,A7 000234c4 60 02 |` | BRA 0x234c8 000234c6 20 81 | | MOVE.L D1,(A0) 000234c8 60 6a |`j | BRA 0x23534 000234ca switch@0x2349a[0x5]: 000234ca switch@0x2349a[0x7]: 000234ca switch@0x2349a[0x9]: 000234ca switch@0x2349a[0xa]: 000234ca 4e ba e1 ca |N | JSR 0x21696 000234ce 59 4f |YO | SUBQ.L #0x4,A7 000234d0 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 000234d6 20 1f | | MOVE.L (A7)+,D0 000234d8 b0 81 | | CMP.L D1,D0 000234da 67 1e |g | BEQ 0x234fa 000234dc 59 4f |YO | SUBQ.L #0x4,A7 000234de 2f 13 |/ | MOVE.L (A3),-(A7) 000234e0 4e 92 |N | JSR (A2) 000234e2 58 4f |XO | ADDQ.L #0x4,A7 000234e4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000234ea 2f 14 |/ | MOVE.L (A4),-(A7) 000234ec 4e 92 |N | JSR (A2) 000234ee 2e ae 00 0a |. | MOVE.L (A6+0xa),(A7) 000234f2 4e b9 00 01 04 50 |N P | JSR FS_10450(&, &) 000234f8 50 4f |PO | ADDQ.L #0x8,A7 000234fa 4a 11 |J | TST.B (A1) 000234fc 67 0a |g | BEQ 0x23508 000234fe 42 27 |B' | CLR.B -(A7) 00023500 4e ba e8 84 |N | JSR 0x21d86 00023504 54 4f |TO | ADDQ.L #0x2,A7 00023506 60 02 |` | BRA 0x2350a 00023508 20 81 | | MOVE.L D1,(A0) 0002350a 60 28 |`( | BRA 0x23534 0002350c switch@0x2349a[0x3]: 0002350c switch@0x2349a[0x4]: 0002350c switch@0x2349a[0x6]: 0002350c switch@0x2349a[0x8]: 0002350c 4a 11 |J | TST.B (A1) 0002350e 67 22 |g" | BEQ 0x23532 00023510 1f 01 | | MOVE.B D1,-(A7) 00023512 4e ba e8 72 |N r | JSR 0x21d86 00023516 4e ba ef b6 |N | JSR 0x224ce 0002351a 4a 1f |J | TST.B (A7)+ 0002351c 67 0a |g | BEQ 0x23528 0002351e 42 27 |B' | CLR.B -(A7) 00023520 4e ba f6 a4 |N | JSR 0x22bc6 00023524 54 4f |TO | ADDQ.L #0x2,A7 00023526 60 08 |` | BRA 0x23530 00023528 42 39 00 02 44 96 |B9 D | CLR.B 0x24496 0002352e 20 82 | | MOVE.L D2,(A0) 00023530 60 02 |` | BRA 0x23534 00023532 20 81 | | MOVE.L D1,(A0) 00023534 48 53 |HS | PEA.L (A3) 00023536 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002353c 58 4f |XO | ADDQ.L #0x4,A7 0002353e 48 54 |HT | PEA.L (A4) 00023540 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023546 58 4f |XO | ADDQ.L #0x4,A7 00023548 4c df 1f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3+A4 0002354c 4e 5e |N^ | UNLK A6 0002354e 4e 75 |Nu | RTS 00023550 ; -------------------------------------------------------------------------------------- 00023550 ; OMSI PASCAL Function 00023550 ; <LVAR 0x00a 4(r)> 00023550 ; <LVAR 0x008 1(r)> 00023550 ; <LVAR -0x004 @ 4(r)> 00023550 ; <LVAR -0x07e @ 2(w)> 00023550 ; -------------------------------------------------------------------------------------- 00023550 4e 56 ff 12 |NV | LINK.W A6,#0xff12 00023554 bf d5 | | CMPA.L (A5),A7 00023556 62 06 |b | BHI 0x2355e 00023558 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002355c 4e 76 |Nv | TRAPV 0002355e de fc 00 70 | p | ADDA.W #0x70,A7 00023562 48 e7 e0 c0 |H | MOVEM.L A1+A0+D2+D1+D0,-(A7) 00023566 43 f9 00 01 02 c4 |C | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A1 0002356c 72 01 |r | MOVEQ.L #0x01,D1 0002356e 74 04 |t | MOVEQ.L #0x04,D2 00023570 2f 3c 00 00 fc 08 |/< | MOVE.L #0xfc08,-(A7) 00023576 41 ee ff fc |A | LEA.L (A6-0x4),A0 0002357a 2f 08 |/ | MOVE.L A0,-(A7) 0002357c 3f 02 |? | MOVE.W D2,-(A7) 0002357e 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) 00023584 de fc 00 0a | | ADDA.W #0xa,A7 00023588 20 2e 00 0a | . | MOVE.L (A6+0xa),D0 0002358c 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00023592 63 02 |c | BLS 0x23596 00023594 4e 4f |NO | TRAP #15 00023596 3d 40 ff 82 |=@ | MOVE.W D0,(A6-0x7e) 0002359a 1f 02 | | MOVE.B D2,-(A7) 0002359c 41 ee ff 82 |A | LEA.L (A6-0x7e),A0 000235a0 2f 08 |/ | MOVE.L A0,-(A7) 000235a2 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 000235a8 5c 4f |\O | ADDQ.L #0x6,A7 000235aa 41 fa da 82 |A | LEA.L 0x2102e,A0 000235ae 70 14 |p | MOVEQ.L #0x14,D0 000235b0 3f 20 |? | MOVE.W -(A0),-(A7) 000235b2 51 c8 ff fc |Q | DBF D0,0x235b0 000235b6 59 4f |YO | SUBQ.L #0x4,A7 000235b8 1e ba da 74 | t | MOVE.B 0x2102e,(A7) 000235bc 1f 7a da 71 00 01 | z q | MOVE.B 0x2102f,(A7+0x1) 000235c2 1f 7a da 6c 00 02 | z l | MOVE.B 0x21030,(A7+0x2) 000235c8 41 fa da 7a |A z | LEA.L 0x21044,A0 000235cc 70 08 |p | MOVEQ.L #0x08,D0 000235ce 3f 20 |? | MOVE.W -(A0),-(A7) 000235d0 51 c8 ff fc |Q | DBF D0,0x235ce 000235d4 51 4f |QO | SUBQ.L #0x8,A7 000235d6 48 6f 00 1e |Ho | PEA.L (A7+0x1e) 000235da 3f 01 |? | MOVE.W D1,-(A7) 000235dc 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 000235e0 4e 91 |N | JSR (A1) 000235e2 2e ae ff fc |. | MOVE.L (A6-0x4),(A7) 000235e6 48 78 00 05 |Hx | PEA.L 0x5 000235ea 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 000235f0 58 4f |XO | ADDQ.L #0x4,A7 000235f2 48 6f 00 22 |Ho " | PEA.L (A7+0x22) 000235f6 3f 01 |? | MOVE.W D1,-(A7) 000235f8 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 000235fc 4e 91 |N | JSR (A1) 000235fe 50 4f |PO | ADDQ.L #0x8,A7 00023600 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00023606 50 4f |PO | ADDQ.L #0x8,A7 00023608 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002360c 3f 01 |? | MOVE.W D1,-(A7) 0002360e 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00023612 4e 91 |N | JSR (A1) 00023614 58 4f |XO | ADDQ.L #0x4,A7 00023616 2e ae 00 0a |. | MOVE.L (A6+0xa),(A7) 0002361a 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 0002361e 4e ba fd d0 |N | JSR 0x233f0 00023622 de fc 00 4e | N | ADDA.W #0x4e,A7 00023626 4c df 03 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1 0002362a 4e 5e |N^ | UNLK A6 0002362c 4e 75 |Nu | RTS 0002362e ; -------------------------------------------------------------------------------------- 0002362e ; OMSI PASCAL Function 0002362e ; <LVAR 0x00a 1(r)> 0002362e ; <LVAR 0x008 1(r)> 0002362e ; <LVAR -0x07a 2(r)> 0002362e ; <LVAR -0x07c @ 2(w)> 0002362e ; -------------------------------------------------------------------------------------- 0002362e 4e 56 ff 18 |NV | LINK.W A6,#0xff18 00023632 bf d5 | | CMPA.L (A5),A7 00023634 62 06 |b | BHI 0x2363c 00023636 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002363a 4e 76 |Nv | TRAPV 0002363c de fc 00 6c | l | ADDA.W #0x6c,A7 00023640 48 e7 e0 80 |H | MOVEM.L A0+D2+D1+D0,-(A7) 00023644 74 01 |t | MOVEQ.L #0x01,D2 00023646 10 2e 00 0a | . | MOVE.B (A6+0xa),D0 0002364a 48 80 |H | EXTB.W D0 0002364c 3d 40 ff 84 |=@ | MOVE.W D0,(A6-0x7c) 00023650 42 6e ff 86 |Bn | CLR.W (A6-0x7a) 00023654 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00023658 41 ee ff 84 |A | LEA.L (A6-0x7c),A0 0002365c 2f 08 |/ | MOVE.L A0,-(A7) 0002365e 4e b9 00 01 03 a8 |N | JSR Write_ERROR_LOG(VAR a : Bool; MOD b : Pointer) 00023664 5c 4f |\O | ADDQ.L #0x6,A7 00023666 41 fa da 10 |A | LEA.L 0x21078,A0 0002366a 72 0c |r | MOVEQ.L #0x0c,D1 0002366c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002366e 51 c9 ff fc |Q | DBF D1,0x2366c 00023672 41 fa da 16 |A | LEA.L 0x2108a,A0 00023676 72 08 |r | MOVEQ.L #0x08,D1 00023678 3f 20 |? | MOVE.W -(A0),-(A7) 0002367a 51 c9 ff fc |Q | DBF D1,0x23678 0002367e 59 4f |YO | SUBQ.L #0x4,A7 00023680 48 6f 00 16 |Ho | PEA.L (A7+0x16) 00023684 3f 02 |? | MOVE.W D2,-(A7) 00023686 3f 3c 00 34 |?< 4 | MOVE.W #0x34,-(A7) 0002368a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023690 58 4f |XO | ADDQ.L #0x4,A7 00023692 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023696 3f 02 |? | MOVE.W D2,-(A7) 00023698 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 0002369c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000236a2 50 4f |PO | ADDQ.L #0x8,A7 000236a4 48 c0 |H | EXTW.L D0 000236a6 2f 00 |/ | MOVE.L D0,-(A7) 000236a8 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 000236ac 4e ba fd 42 |N B | JSR 0x233f0 000236b0 de fc 00 54 | T | ADDA.W #0x54,A7 000236b4 4c df 01 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0 000236b8 4e 5e |N^ | UNLK A6 000236ba 4e 75 |Nu | RTS 000236bc ; -------------------------------------------------------------------------------------- 000236bc ; OMSI PASCAL Function 000236bc ; -------------------------------------------------------------------------------------- 000236bc 4e 56 ff ec |NV | LINK.W A6,#0xffec 000236c0 bf d5 | | CMPA.L (A5),A7 000236c2 62 06 |b | BHI 0x236ca 000236c4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000236c8 4e 76 |Nv | TRAPV 000236ca de fc 00 10 | | ADDA.W #0x10,A7 000236ce 48 e7 01 00 |H | MOVEM.L D7,-(A7) 000236d2 4a 39 00 02 44 94 |J9 D | TST.B 0x24494 000236d8 66 12 |f | BNE 0x236ec 000236da 1f 3c 00 05 | < | MOVE.B #0x05,-(A7) 000236de 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000236e2 4e b9 00 01 04 8a |N | JSR DiProcCmd(board : Byte; cmd : Byte) 000236e8 58 4f |XO | ADDQ.L #0x4,A7 000236ea 60 48 |`H | BRA 0x23734 000236ec 4e b9 00 02 40 2e |N @. | JSR exp_FREEZE_WORLD.FIU() 000236f2 4e b9 00 02 41 50 |N AP | JSR exp_MF.IOC() 000236f8 4e b9 00 02 40 ac |N @ | JSR exp_MF.VAL() 000236fe 4e b9 00 02 40 98 |N @ | JSR exp_MF.TYP() 00023704 4e b9 00 02 40 4c |N @L | JSR exp_RESET.SEQ() 0002370a 7e 0c |~ | MOVEQ.L #0x0c,D7 0002370c 55 4f |UO | SUBQ.L #0x2,A7 0002370e 1f 07 | | MOVE.B D7,-(A7) 00023710 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte 00023716 54 4f |TO | ADDQ.L #0x2,A7 00023718 4a 1f |J | TST.B (A7)+ 0002371a 67 0a |g | BEQ 0x23726 0002371c 1f 07 | | MOVE.B D7,-(A7) 0002371e 4e b9 00 02 40 cc |N @ | JSR 0x240cc 00023724 54 4f |TO | ADDQ.L #0x2,A7 00023726 52 07 |R | ADDQ.B #0x1,D7 00023728 0c 07 00 0f | | CMPI.B #0x0f,D7 0002372c 6f de |o | BLE 0x2370c 0002372e 4e b9 00 02 40 1a |N @ | JSR exp_MF.FIU() 00023734 4c df 00 80 |L | MOVEM.L (A7)+,D7 00023738 4e 5e |N^ | UNLK A6 0002373a 4e 75 |Nu | RTS 0002373c ; -------------------------------------------------------------------------------------- 0002373c ; OMSI PASCAL Function 0002373c ; <LVAR 0x008 4(r)> 0002373c ; <LVAR -0x006 1(r)> 0002373c ; <LVAR -0x007 @ 1(r)> 0002373c ; <LVAR -0x008 @ 1(r)> 0002373c ; <LVAR -0x009 @ 1(r)> 0002373c ; <LVAR -0x00a @> 0002373c ; <LVAR -0x00b @ 1(r)> 0002373c ; <LVAR -0x00c @> 0002373c ; -------------------------------------------------------------------------------------- 0002373c 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 00023740 bf d5 | | CMPA.L (A5),A7 00023742 62 06 |b | BHI 0x2374a 00023744 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023748 4e 76 |Nv | TRAPV 0002374a de fc 00 3e | > | ADDA.W #0x3e,A7 0002374e 48 e7 fb e0 |H | MOVEM.L A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7) 00023752 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00023756 45 ee ff f8 |E | LEA.L (A6-0x8),A2 0002375a 74 07 |t | MOVEQ.L #0x07,D2 0002375c 76 09 |v | MOVEQ.L #0x09,D3 0002375e 78 08 |x | MOVEQ.L #0x08,D4 00023760 42 12 |B | CLR.B (A2) 00023762 20 51 | Q | MOVEA.L (A1),A0 00023764 42 10 |B | CLR.B (A0) 00023766 4a 39 00 02 44 94 |J9 D | TST.B 0x24494 0002376c 66 04 |f | BNE 0x23772 0002376e 60 00 01 2a |` * | BRA 0x2389a 00023772 48 52 |HR | PEA.L (A2) 00023774 4e b9 00 02 40 82 |N @ | JSR exp_HALT.SEQ(&Fr) 0002377a 58 4f |XO | ADDQ.L #0x4,A7 0002377c 4a 12 |J | TST.B (A2) 0002377e 67 00 00 9e |g | BEQ 0x2381e 00023782 48 6e ff f9 |Hn | PEA.L (A6-0x7) 00023786 4e b9 00 02 40 62 |N @b | JSR exp_READ_CUR_UADR.SEQ(&Sr_2) 0002378c 58 4f |XO | ADDQ.L #0x4,A7 0002378e 42 80 |B | CLR.L D0 00023790 10 2e ff f9 | . | MOVE.B (A6-0x7),D0 00023794 e1 40 | @ | ASL.W #0x8,D0 00023796 42 81 |B | CLR.L D1 00023798 12 2e ff fa | . | MOVE.B (A6-0x6),D1 0002379c d2 40 | @ | ADD.W D0,D1 0002379e 48 c1 |H | EXTW.L D1 000237a0 2c 01 |, | MOVE.L D1,D6 000237a2 20 06 | | MOVE.L D6,D0 000237a4 04 80 00 00 02 00 | | SUBI.L #0x00000200,D0 000237aa b0 83 | | CMP.L D3,D0 000237ac 62 68 |bh | BHI 0x23816 000237ae d0 40 | @ | ADD.W D0,D0 000237b0 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000237b8 00 14 | | .CONST 0x14 ; [0x0] -> 0x237cc 000237ba 00 1c | | .CONST 0x1c ; [0x1] -> 0x237d4 000237bc 00 24 | $ | .CONST 0x24 ; [0x2] -> 0x237dc 000237be 00 2c | , | .CONST 0x2c ; [0x3] -> 0x237e4 000237c0 00 34 | 4 | .CONST 0x34 ; [0x4] -> 0x237ec 000237c2 00 3c | < | .CONST 0x3c ; [0x5] -> 0x237f4 000237c4 00 44 | D | .CONST 0x44 ; [0x6] -> 0x237fc 000237c6 00 4a | J | .CONST 0x4a ; [0x7] -> 0x23802 000237c8 00 50 | P | .CONST 0x50 ; [0x8] -> 0x23808 000237ca 00 56 | V | .CONST 0x56 ; [0x9] -> 0x2380e 000237cc switch@0x237b0[0x0]: 000237cc 20 51 | Q | MOVEA.L (A1),A0 000237ce 10 bc 00 01 | | MOVE.B #0x01,(A0) 000237d2 60 48 |`H | BRA 0x2381c 000237d4 switch@0x237b0[0x1]: 000237d4 20 51 | Q | MOVEA.L (A1),A0 000237d6 10 bc 00 02 | | MOVE.B #0x02,(A0) 000237da 60 40 |`@ | BRA 0x2381c 000237dc switch@0x237b0[0x2]: 000237dc 20 51 | Q | MOVEA.L (A1),A0 000237de 10 bc 00 03 | | MOVE.B #0x03,(A0) 000237e2 60 38 |`8 | BRA 0x2381c 000237e4 switch@0x237b0[0x3]: 000237e4 20 51 | Q | MOVEA.L (A1),A0 000237e6 10 bc 00 04 | | MOVE.B #0x04,(A0) 000237ea 60 30 |`0 | BRA 0x2381c 000237ec switch@0x237b0[0x4]: 000237ec 20 51 | Q | MOVEA.L (A1),A0 000237ee 10 bc 00 05 | | MOVE.B #0x05,(A0) 000237f2 60 28 |`( | BRA 0x2381c 000237f4 switch@0x237b0[0x5]: 000237f4 20 51 | Q | MOVEA.L (A1),A0 000237f6 10 bc 00 06 | | MOVE.B #0x06,(A0) 000237fa 60 20 |` | BRA 0x2381c 000237fc switch@0x237b0[0x6]: 000237fc 20 51 | Q | MOVEA.L (A1),A0 000237fe 10 82 | | MOVE.B D2,(A0) 00023800 60 1a |` | BRA 0x2381c 00023802 switch@0x237b0[0x7]: 00023802 20 51 | Q | MOVEA.L (A1),A0 00023804 10 84 | | MOVE.B D4,(A0) 00023806 60 14 |` | BRA 0x2381c 00023808 switch@0x237b0[0x8]: 00023808 20 51 | Q | MOVEA.L (A1),A0 0002380a 10 83 | | MOVE.B D3,(A0) 0002380c 60 0e |` | BRA 0x2381c 0002380e switch@0x237b0[0x9]: 0002380e 20 51 | Q | MOVEA.L (A1),A0 00023810 10 bc 00 0a | | MOVE.B #0x0a,(A0) 00023814 60 06 |` | BRA 0x2381c 00023816 20 51 | Q | MOVEA.L (A1),A0 00023818 10 bc 00 0d | | MOVE.B #0x0d,(A0) 0002381c 60 7c |`| | BRA 0x2389a 0002381e 7e 00 |~ | MOVEQ.L #0x00,D7 00023820 be 82 | | CMP.L D2,D7 00023822 63 02 |c | BLS 0x23826 00023824 4e 4f |NO | TRAP #15 00023826 55 4f |UO | SUBQ.L #0x2,A7 00023828 41 fa dd d5 |A | LEA.L 0x215ff,A0 0002382c 1f 30 78 00 | 0x | MOVE.B (A0+D7.L),-(A7) 00023830 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte 00023836 54 4f |TO | ADDQ.L #0x2,A7 00023838 4a 1f |J | TST.B (A7)+ 0002383a 67 2c |g, | BEQ 0x23868 0002383c 41 fa dd c1 |A | LEA.L 0x215ff,A0 00023840 1f 30 78 00 | 0x | MOVE.B (A0+D7.L),-(A7) 00023844 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00023848 48 6e ff f5 |Hn | PEA.L (A6-0xb) 0002384c 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00023850 4e b9 00 01 04 84 |N | JSR DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool) 00023856 de fc 00 0e | | ADDA.W #0xe,A7 0002385a 4a 2e ff f5 |J. | TST.B (A6-0xb) 0002385e 67 08 |g | BEQ 0x23868 00023860 20 51 | Q | MOVEA.L (A1),A0 00023862 10 bc 00 0c | | MOVE.B #0x0c,(A0) 00023866 60 32 |`2 | BRA 0x2389a 00023868 52 87 |R | ADDQ.L #0x1,D7 0002386a be 82 | | CMP.L D2,D7 0002386c 6f b2 |o | BLE 0x23820 0002386e 42 27 |B' | CLR.B -(A7) 00023870 48 6e ff f7 |Hn | PEA.L (A6-0x9) 00023874 4e b9 00 02 3f fc |N ? | JSR exp_READ_PAREG.FIU(Sw_1, &Sr_1) 0002387a 5c 4f |\O | ADDQ.L #0x6,A7 0002387c 42 80 |B | CLR.L D0 0002387e 10 2e ff f7 | . | MOVE.B (A6-0x9),D0 00023882 32 00 |2 | MOVE.W D0,D1 00023884 02 41 00 f7 | A | ANDI.W #0x00f7,D1 00023888 0c 41 00 f7 | A | CMPI.W #0x00f7,D1 0002388c 67 02 |g | BEQ 0x23890 0002388e 60 d0 |` | BRA 0x23860 00023890 c0 44 | D | AND.W D4,D0 00023892 66 06 |f | BNE 0x2389a 00023894 20 51 | Q | MOVEA.L (A1),A0 00023896 10 bc 00 0b | | MOVE.B #0x0b,(A0) 0002389a 4c df 07 df |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2 0002389e 4e 5e |N^ | UNLK A6 000238a0 4e 75 |Nu | RTS 000238a2 ; -------------------------------------------------------------------------------------- 000238a2 ; OMSI PASCAL Function 000238a2 ; <LVAR -0x004 @ 1(r)> 000238a2 ; <LVAR -0x008 @> 000238a2 ; <LVAR -0x00a @ 2(r)> 000238a2 ; <LVAR -0x00c 2(w)> 000238a2 ; <LVAR -0x00f @ 1(r)> 000238a2 ; <LVAR -0x014 @ 1(r)> 000238a2 ; -------------------------------------------------------------------------------------- 000238a2 4e 56 ff 74 |NV t | LINK.W A6,#0xff74 000238a6 bf d5 | | CMPA.L (A5),A7 000238a8 62 06 |b | BHI 0x238b0 000238aa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000238ae 4e 76 |Nv | TRAPV 000238b0 de fc 00 78 | x | ADDA.W #0x78,A7 000238b4 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000238b8 45 ee ff f6 |E | LEA.L (A6-0xa),A2 000238bc 47 ee ff ec |G | LEA.L (A6-0x14),A3 000238c0 49 f9 00 02 44 94 |I D | LEA.L 0x24494,A4 000238c6 74 01 |t | MOVEQ.L #0x01,D2 000238c8 76 0a |v | MOVEQ.L #0x0a,D3 000238ca 78 02 |x | MOVEQ.L #0x02,D4 000238cc 42 52 |BR | CLR.W (A2) 000238ce 2f 3c 00 00 fc 10 |/< | MOVE.L #0xfc10,-(A7) 000238d4 20 4a | J | MOVEA.L A2,A0 000238d6 2f 08 |/ | MOVE.L A0,-(A7) 000238d8 52 97 |R | ADDQ.L #0x1,(A7) 000238da 3f 02 |? | MOVE.W D2,-(A7) 000238dc 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) 000238e2 de c3 | | ADDA.W D3,A7 000238e4 42 14 |B | CLR.B (A4) 000238e6 30 12 |0 | MOVE.W (A2),D0 000238e8 c0 42 | B | AND.W D2,D0 000238ea b0 42 | B | CMP.W D2,D0 000238ec 66 02 |f | BNE 0x238f0 000238ee 52 14 |R | ADDQ.B #0x1,(A4) 000238f0 42 39 00 02 44 95 |B9 D | CLR.B 0x24495 000238f6 30 12 |0 | MOVE.W (A2),D0 000238f8 b0 44 | D | CMP.W D4,D0 000238fa 65 06 |e | BCS 0x23902 000238fc 52 39 00 02 44 95 |R9 D | ADDQ.B #0x1,0x24495 00023902 4e ba fd b8 |N | JSR 0x236bc 00023906 41 fa d7 b6 |A | LEA.L 0x210be,A0 0002390a 70 0c |p | MOVEQ.L #0x0c,D0 0002390c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002390e 51 c8 ff fc |Q | DBF D0,0x2390c 00023912 59 4f |YO | SUBQ.L #0x4,A7 00023914 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023918 3f 02 |? | MOVE.W D2,-(A7) 0002391a 3f 3c 00 34 |?< 4 | MOVE.W #0x34,-(A7) 0002391e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023924 50 4f |PO | ADDQ.L #0x8,A7 00023926 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002392c de fc 00 36 | 6 | ADDA.W #0x36,A7 00023930 1e bc 00 1b | | MOVE.B #0x1b,(A7) 00023934 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 0002393a 59 4f |YO | SUBQ.L #0x4,A7 0002393c 20 4f | O | MOVEA.L A7,A0 0002393e 43 fa d7 7e |C ~ | LEA.L 0x210be,A1 00023942 70 04 |p | MOVEQ.L #0x04,D0 00023944 10 d9 | | MOVE.B (A1)+,(A0)+ 00023946 51 c8 ff fc |Q | DBF D0,0x23944 0002394a 59 4f |YO | SUBQ.L #0x4,A7 0002394c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023950 3f 02 |? | MOVE.W D2,-(A7) 00023952 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00023956 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002395c 50 4f |PO | ADDQ.L #0x8,A7 0002395e 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00023964 de c3 | | ADDA.W D3,A7 00023966 48 53 |HS | PEA.L (A3) 00023968 4e b9 00 01 05 e0 |N | JSR Get_BootReasonCode() : Byte 0002396e 1e 93 | | MOVE.B (A3),(A7) 00023970 4e ba e3 e6 |N | JSR 0x21d58 00023974 54 4f |TO | ADDQ.L #0x2,A7 00023976 10 1f | | MOVE.B (A7)+,D0 00023978 48 80 |H | EXTB.W D0 0002397a 41 83 |A | CHK.W D3,D0 0002397c 1e 00 | | MOVE.B D0,D7 0002397e be 04 | | CMP.B D4,D7 00023980 67 04 |g | BEQ 0x23986 00023982 4a 14 |J | TST.B (A4) 00023984 67 5a |gZ | BEQ 0x239e0 00023986 41 fa d7 52 |A R | LEA.L 0x210da,A0 0002398a 70 0a |p | MOVEQ.L #0x0a,D0 0002398c 3f 20 |? | MOVE.W -(A0),-(A7) 0002398e 51 c8 ff fc |Q | DBF D0,0x2398c 00023992 59 4f |YO | SUBQ.L #0x4,A7 00023994 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023998 3f 02 |? | MOVE.W D2,-(A7) 0002399a 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 0002399e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000239a4 5c 4f |\O | ADDQ.L #0x6,A7 000239a6 42 17 |B | CLR.B (A7) 000239a8 42 27 |B' | CLR.B -(A7) 000239aa 48 78 00 00 |Hx | PEA.L 0x0 000239ae 48 6e ff fc |Hn | PEA.L (A6-0x4) 000239b2 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000239b6 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000239bc de fc 00 2a | * | ADDA.W #0x2a,A7 000239c0 4a 2e ff fc |J. | TST.B (A6-0x4) 000239c4 66 1a |f | BNE 0x239e0 000239c6 1f 04 | | MOVE.B D4,-(A7) 000239c8 1f 02 | | MOVE.B D2,-(A7) 000239ca 48 78 00 01 |Hx | PEA.L 0x1 000239ce 48 6e ff fc |Hn | PEA.L (A6-0x4) 000239d2 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000239d6 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000239dc de fc 00 10 | | ADDA.W #0x10,A7 000239e0 be 04 | | CMP.B D4,D7 000239e2 66 0c |f | BNE 0x239f0 000239e4 1f 13 | | MOVE.B (A3),-(A7) 000239e6 4e ba f4 ba |N | JSR 0x22ea2 000239ea 54 4f |TO | ADDQ.L #0x2,A7 000239ec 60 00 00 82 |` | BRA 0x23a70 000239f0 be 02 | | CMP.B D2,D7 000239f2 66 08 |f | BNE 0x239fc 000239f4 1f 13 | | MOVE.B (A3),-(A7) 000239f6 4e ba f4 0a |N | JSR 0x22e02 000239fa 60 ee |` | BRA 0x239ea 000239fc 4a 07 |J | TST.B D7 000239fe 66 08 |f | BNE 0x23a08 00023a00 1f 13 | | MOVE.B (A3),-(A7) 00023a02 4e ba f5 f4 |N | JSR 0x22ff8 00023a06 60 e2 |` | BRA 0x239ea 00023a08 55 4f |UO | SUBQ.L #0x2,A7 00023a0a 4e b9 00 01 05 f2 |N | JSR Get_fc02() : Word 00023a10 30 1f |0 | MOVE.W (A7)+,D0 00023a12 3d 40 ff f4 |=@ | MOVE.W D0,(A6-0xc) 00023a16 3c 00 |< | MOVE.W D0,D6 00023a18 02 46 00 ff | F | ANDI.W #0x00ff,D6 00023a1c 32 00 |2 | MOVE.W D0,D1 00023a1e e0 49 | I | LSR.W #0x8,D1 00023a20 1f 01 | | MOVE.B D1,-(A7) 00023a22 42 81 |B | CLR.L D1 00023a24 12 1f | | MOVE.B (A7)+,D1 00023a26 43 83 |C | CHK.W D3,D1 00023a28 1a 01 | | MOVE.B D1,D5 00023a2a 48 6e ff f1 |Hn | PEA.L (A6-0xf) 00023a2e 4e ba fd 0c |N | JSR 0x2373c 00023a32 58 4f |XO | ADDQ.L #0x4,A7 00023a34 4a 2e ff f1 |J. | TST.B (A6-0xf) 00023a38 67 12 |g | BEQ 0x23a4c 00023a3a 10 2e ff f1 | . | MOVE.B (A6-0xf),D0 00023a3e 48 80 |H | EXTB.W D0 00023a40 41 bc 00 0d |A | CHK.W #0xd,D0 00023a44 1f 00 | | MOVE.B D0,-(A7) 00023a46 4e ba f8 fa |N | JSR 0x23342 00023a4a 60 9e |` | BRA 0x239ea 00023a4c 4a 40 |J@ | TST.W D0 00023a4e 67 16 |g | BEQ 0x23a66 00023a50 42 80 |B | CLR.L D0 00023a52 30 06 |0 | MOVE.W D6,D0 00023a54 2f 00 |/ | MOVE.L D0,-(A7) 00023a56 10 05 | | MOVE.B D5,D0 00023a58 48 80 |H | EXTB.W D0 00023a5a 41 83 |A | CHK.W D3,D0 00023a5c 1f 00 | | MOVE.B D0,-(A7) 00023a5e 4e ba fa f0 |N | JSR 0x23550 00023a62 5c 4f |\O | ADDQ.L #0x6,A7 00023a64 60 0a |` | BRA 0x23a70 00023a66 1f 13 | | MOVE.B (A3),-(A7) 00023a68 1f 07 | | MOVE.B D7,-(A7) 00023a6a 4e ba fb c2 |N | JSR 0x2362e 00023a6e 58 4f |XO | ADDQ.L #0x4,A7 00023a70 42 52 |BR | CLR.W (A2) 00023a72 20 4a | J | MOVEA.L A2,A0 00023a74 2f 08 |/ | MOVE.L A0,-(A7) 00023a76 52 97 |R | ADDQ.L #0x1,(A7) 00023a78 2f 3c 00 00 fc 10 |/< | MOVE.L #0xfc10,-(A7) 00023a7e 3f 02 |? | MOVE.W D2,-(A7) 00023a80 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) 00023a86 de c3 | | ADDA.W D3,A7 00023a88 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00023a8c 4e 5e |N^ | UNLK A6 00023a8e 4e 75 |Nu | RTS 00023a90 ; -------------------------------------------------------------------------------------- 00023a90 ; OMSI PASCAL Function 00023a90 ; <LVAR -0x004 @ 4(r)> 00023a90 ; -------------------------------------------------------------------------------------- 00023a90 4e 56 ff 8a |NV | LINK.W A6,#0xff8a 00023a94 bf d5 | | CMPA.L (A5),A7 00023a96 62 06 |b | BHI 0x23a9e 00023a98 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023a9c 4e 76 |Nv | TRAPV 00023a9e de fc 00 72 | r | ADDA.W #0x72,A7 00023aa2 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7) 00023aa6 43 f9 00 01 02 c4 |C | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A1 00023aac 45 f9 00 01 03 e0 |E | LEA.L WriteConsoleStringCrLf(str : String),A2 00023ab2 47 ee ff fc |G | LEA.L (A6-0x4),A3 00023ab6 72 01 |r | MOVEQ.L #0x01,D1 00023ab8 55 4f |UO | SUBQ.L #0x2,A7 00023aba 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool 00023ac0 4a 1f |J | TST.B (A7)+ 00023ac2 66 0c |f | BNE 0x23ad0 00023ac4 55 4f |UO | SUBQ.L #0x2,A7 00023ac6 4e b9 00 01 06 04 |N | JSR Is_machine_type_three() : Bool 00023acc 4a 1f |J | TST.B (A7)+ 00023ace 67 2e |g. | BEQ 0x23afe 00023ad0 55 4f |UO | SUBQ.L #0x2,A7 00023ad2 4e b9 00 02 41 64 |N Ad | JSR 0x24164 00023ad8 4a 1f |J | TST.B (A7)+ 00023ada 66 22 |f" | BNE 0x23afe 00023adc 41 fa d6 46 |A F | LEA.L 0x21124,A0 00023ae0 70 24 |p$ | MOVEQ.L #0x24,D0 00023ae2 3f 20 |? | MOVE.W -(A0),-(A7) 00023ae4 51 c8 ff fc |Q | DBF D0,0x23ae2 00023ae8 59 4f |YO | SUBQ.L #0x4,A7 00023aea 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023aee 3f 01 |? | MOVE.W D1,-(A7) 00023af0 3f 3c 00 4a |?< J | MOVE.W #0x4a,-(A7) 00023af4 4e 91 |N | JSR (A1) 00023af6 50 4f |PO | ADDQ.L #0x8,A7 00023af8 4e 92 |N | JSR (A2) 00023afa de fc 00 4e | N | ADDA.W #0x4e,A7 00023afe 55 4f |UO | SUBQ.L #0x2,A7 00023b00 4e b9 00 01 05 ce |N | JSR ReadKeySwitch() : Bool 00023b06 4a 1f |J | TST.B (A7)+ 00023b08 67 22 |g" | BEQ 0x23b2c 00023b0a 41 fa d6 56 |A V | LEA.L 0x21162,A0 00023b0e 70 1e |p | MOVEQ.L #0x1e,D0 00023b10 3f 20 |? | MOVE.W -(A0),-(A7) 00023b12 51 c8 ff fc |Q | DBF D0,0x23b10 00023b16 59 4f |YO | SUBQ.L #0x4,A7 00023b18 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023b1c 3f 01 |? | MOVE.W D1,-(A7) 00023b1e 3f 3c 00 3e |?< > | MOVE.W #0x3e,-(A7) 00023b22 4e 91 |N | JSR (A1) 00023b24 50 4f |PO | ADDQ.L #0x8,A7 00023b26 4e 92 |N | JSR (A2) 00023b28 de fc 00 42 | B | ADDA.W #0x42,A7 00023b2c 48 78 f8 00 |Hx | PEA.L 0xfffff800 00023b30 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00023b34 20 4b | K | MOVEA.L A3,A0 00023b36 2f 08 |/ | MOVE.L A0,-(A7) 00023b38 3f 01 |? | MOVE.W D1,-(A7) 00023b3a 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00023b3e 4e b9 00 01 02 3a |N : | JSR KC1d_BusCopy(src : Pointer; sfc : Word; dst : Pointer; dfc : Word; len : Word 00023b44 de fc 00 0e | | ADDA.W #0xe,A7 00023b48 20 13 | | MOVE.L (A3),D0 00023b4a 02 80 80 00 00 00 | | ANDI.L #0x80000000,D0 00023b50 67 0a |g | BEQ 0x23b5c 00023b52 20 13 | | MOVE.L (A3),D0 00023b54 02 80 00 00 02 00 | | ANDI.L #0x00000200,D0 00023b5a 67 22 |g" | BEQ 0x23b7e 00023b5c 41 fa d6 3a |A : | LEA.L 0x21198,A0 00023b60 70 1a |p | MOVEQ.L #0x1a,D0 00023b62 3f 20 |? | MOVE.W -(A0),-(A7) 00023b64 51 c8 ff fc |Q | DBF D0,0x23b62 00023b68 59 4f |YO | SUBQ.L #0x4,A7 00023b6a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023b6e 3f 01 |? | MOVE.W D1,-(A7) 00023b70 3f 3c 00 36 |?< 6 | MOVE.W #0x36,-(A7) 00023b74 4e 91 |N | JSR (A1) 00023b76 50 4f |PO | ADDQ.L #0x8,A7 00023b78 4e 92 |N | JSR (A2) 00023b7a de fc 00 3a | : | ADDA.W #0x3a,A7 00023b7e 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3 00023b82 4e 5e |N^ | UNLK A6 00023b84 4e 75 |Nu | RTS 00023b86 ; -------------------------------------------------------------------------------------- 00023b86 ; OMSI PASCAL Function 00023b86 ; -------------------------------------------------------------------------------------- 00023b86 START: 00023b86 4f fa 00 08 |O | LEA.L MAIN,A7 00023b8a 4e f9 00 01 02 80 |N | JMP ?start_program 00023b90 MAIN: 00023b90 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00023b96 47 f9 00 02 44 98 |G D | LEA.L 0x24498,A3 00023b9c 49 f9 00 01 03 b0 |I | LEA.L PushProgram(a : String; b : String; MOD c : B; VAR d : Bool),A4 00023ba2 74 01 |t | MOVEQ.L #0x01,D2 00023ba4 7a 06 |z | MOVEQ.L #0x06,D5 00023ba6 7c 1e || | MOVEQ.L #0x1e,D6 00023ba8 7e 05 |~ | MOVEQ.L #0x05,D7 00023baa 48 78 00 01 |Hx | PEA.L 0x1 00023bae 4e b9 00 01 03 f4 |N | JSR SetConsoleConfig(a : Long) 00023bb4 54 4f |TO | ADDQ.L #0x2,A7 00023bb6 42 17 |B | CLR.B (A7) 00023bb8 4e b9 00 01 04 04 |N | JSR SetSomeKindOfFlag(a : Byte) 00023bbe 3e 82 |> | MOVE.W D2,(A7) 00023bc0 1f 02 | | MOVE.B D2,-(A7) 00023bc2 4e b9 00 01 02 10 |N | JSR KC08_PortSomething(port: Word; b: Byte) 00023bc8 58 4f |XO | ADDQ.L #0x4,A7 00023bca 48 78 00 0f |Hx | PEA.L 0xf 00023bce 4e b9 00 01 04 d8 |N | JSR ExpInit(a : Long) 00023bd4 58 4f |XO | ADDQ.L #0x4,A7 00023bd6 4e ba dc 5e |N ^ | JSR 0x21836 00023bda 48 79 00 02 44 93 |Hy D | PEA.L 0x24493 00023be0 4e b9 00 01 05 aa |N | JSR Read_fc00() : Byte 00023be6 58 4f |XO | ADDQ.L #0x4,A7 00023be8 4e ba dd 18 |N | JSR 0x21902 00023bec 4e ba df 46 |N F | JSR 0x21b34 00023bf0 3f 3a d5 aa |?: | MOVE.W 0x2119c,-(A7) 00023bf4 3f 3a d5 a4 |?: | MOVE.W 0x2119a,-(A7) 00023bf8 3f 3a d5 9e |?: | MOVE.W 0x21198,-(A7) 00023bfc 5d 4f |]O | SUBQ.L #0x6,A7 00023bfe 20 4f | O | MOVEA.L A7,A0 00023c00 43 fa d5 9c |C | LEA.L 0x2119e,A1 00023c04 70 04 |p | MOVEQ.L #0x04,D0 00023c06 10 d9 | | MOVE.B (A1)+,(A0)+ 00023c08 51 c8 ff fc |Q | DBF D0,0x23c06 00023c0c 59 4f |YO | SUBQ.L #0x4,A7 00023c0e 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00023c12 3f 02 |? | MOVE.W D2,-(A7) 00023c14 3f 05 |? | MOVE.W D5,-(A7) 00023c16 4e 92 |N | JSR (A2) 00023c18 58 4f |XO | ADDQ.L #0x4,A7 00023c1a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023c1e 3f 02 |? | MOVE.W D2,-(A7) 00023c20 3f 07 |? | MOVE.W D7,-(A7) 00023c22 4e 92 |N | JSR (A2) 00023c24 5c 4f |\O | ADDQ.L #0x6,A7 00023c26 42 17 |B | CLR.B (A7) 00023c28 48 79 00 02 44 92 |Hy D | PEA.L 0x24492 00023c2e 4e 94 |N | JSR (A4) 00023c30 de fc 00 1a | | ADDA.W #0x1a,A7 00023c34 23 fa d5 6e 00 02 44 9e |# n D | MOVE.L 0x211a4,0x2449e 00023c3c 13 fc 00 1b 00 02 44 9e | D | MOVE.B #0x1b,0x2449e 00023c44 42 39 00 02 44 9c |B9 D | CLR.B 0x2449c 00023c4a 42 39 00 02 44 9d |B9 D | CLR.B 0x2449d 00023c50 42 39 00 02 44 96 |B9 D | CLR.B 0x24496 00023c56 26 85 |& | MOVE.L D5,(A3) 00023c58 4e ba fc 48 |N H | JSR 0x238a2 00023c5c 42 b9 00 02 44 a8 |B D | CLR.L 0x244a8 00023c62 41 f9 00 02 44 a8 |A D | LEA.L 0x244a8,A0 00023c68 2f 08 |/ | MOVE.L A0,-(A7) 00023c6a 2f 3c 00 00 fc 05 |/< | MOVE.L #0xfc05,-(A7) 00023c70 3f 02 |? | MOVE.W D2,-(A7) 00023c72 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) 00023c78 de fc 00 0a | | ADDA.W #0xa,A7 00023c7c 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00023c82 4e ba fe 0c |N | JSR 0x23a90 00023c86 4a 39 00 02 44 96 |J9 D | TST.B 0x24496 00023c8c 67 06 |g | BEQ 0x23c94 00023c8e 26 85 |& | MOVE.L D5,(A3) 00023c90 60 00 01 60 |` ` | BRA 0x23df2 00023c94 9e c6 | | SUBA.W D6,A7 00023c96 20 4f | O | MOVEA.L A7,A0 00023c98 43 fa d5 0e |C | LEA.L 0x211a8,A1 00023c9c 70 1c |p | MOVEQ.L #0x1c,D0 00023c9e 10 d9 | | MOVE.B (A1)+,(A0)+ 00023ca0 51 c8 ff fc |Q | DBF D0,0x23c9e 00023ca4 59 4f |YO | SUBQ.L #0x4,A7 00023ca6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023caa 3f 02 |? | MOVE.W D2,-(A7) 00023cac 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 00023cb0 4e 92 |N | JSR (A2) 00023cb2 50 4f |PO | ADDQ.L #0x8,A7 00023cb4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023cba de fc 00 22 | " | ADDA.W #0x22,A7 00023cbe 70 01 |p | MOVEQ.L #0x01,D0 00023cc0 23 c0 00 02 44 a8 |# D | MOVE.L D0,0x244a8 00023cc6 3f 3a d4 fe |?: | MOVE.W 0x211c6,-(A7) 00023cca 2f 3a d4 fc |/: | MOVE.L 0x211c8,-(A7) 00023cce 22 00 |" | MOVE.L D0,D1 00023cd0 53 81 |S | SUBQ.L #0x1,D1 00023cd2 b2 87 | | CMP.L D7,D1 00023cd4 63 02 |c | BLS 0x23cd8 00023cd6 4e 4f |NO | TRAP #15 00023cd8 28 01 |( | MOVE.L D1,D4 00023cda 76 1e |v | MOVEQ.L #0x1e,D3 00023cdc 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00023ce2 41 fa d5 8a |A | LEA.L 0x2126e,A0 00023ce6 9e c6 | | SUBA.W D6,A7 00023ce8 22 4f |"O | MOVEA.L A7,A1 00023cea 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00023cee 72 1d |r | MOVEQ.L #0x1d,D1 00023cf0 12 d8 | | MOVE.B (A0)+,(A1)+ 00023cf2 51 c9 ff fc |Q | DBF D1,0x23cf0 00023cf6 51 4f |QO | SUBQ.L #0x8,A7 00023cf8 48 6f 00 2a |Ho * | PEA.L (A7+0x2a) 00023cfc 3f 02 |? | MOVE.W D2,-(A7) 00023cfe 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00023d02 4e 92 |N | JSR (A2) 00023d04 2e 80 |. | MOVE.L D0,(A7) 00023d06 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00023d0c 48 6f 00 2e |Ho . | PEA.L (A7+0x2e) 00023d10 3f 02 |? | MOVE.W D2,-(A7) 00023d12 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00023d16 4e 92 |N | JSR (A2) 00023d18 58 4f |XO | ADDQ.L #0x4,A7 00023d1a 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00023d1e 3f 02 |? | MOVE.W D2,-(A7) 00023d20 3f 06 |? | MOVE.W D6,-(A7) 00023d22 4e 92 |N | JSR (A2) 00023d24 50 4f |PO | ADDQ.L #0x8,A7 00023d26 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 00023d2c de fc 00 10 | | ADDA.W #0x10,A7 00023d30 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023d36 de fc 00 28 | ( | ADDA.W #0x28,A7 00023d3a 52 80 |R | ADDQ.L #0x1,D0 00023d3c b0 85 | | CMP.L D5,D0 00023d3e 6f 80 |o | BLE 0x23cc0 00023d40 41 fa d4 98 |A | LEA.L 0x211da,A0 00023d44 70 06 |p | MOVEQ.L #0x06,D0 00023d46 3f 20 |? | MOVE.W -(A0),-(A7) 00023d48 51 c8 ff fc |Q | DBF D0,0x23d46 00023d4c 20 13 | | MOVE.L (A3),D0 00023d4e 53 80 |S | SUBQ.L #0x1,D0 00023d50 b0 87 | | CMP.L D7,D0 00023d52 63 02 |c | BLS 0x23d56 00023d54 4e 4f |NO | TRAP #15 00023d56 28 00 |( | MOVE.L D0,D4 00023d58 76 1e |v | MOVEQ.L #0x1e,D3 00023d5a 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00023d60 41 fa d5 0c |A | LEA.L 0x2126e,A0 00023d64 9e c6 | | SUBA.W D6,A7 00023d66 22 4f |"O | MOVEA.L A7,A1 00023d68 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 00023d6c 70 1d |p | MOVEQ.L #0x1d,D0 00023d6e 12 d8 | | MOVE.B (A0)+,(A1)+ 00023d70 51 c8 ff fc |Q | DBF D0,0x23d6e 00023d74 2f 3a d4 64 |/: d | MOVE.L 0x211da,-(A7) 00023d78 9e fc 00 0c | | SUBA.W #0xc,A7 00023d7c 48 6f 00 2e |Ho . | PEA.L (A7+0x2e) 00023d80 3f 02 |? | MOVE.W D2,-(A7) 00023d82 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00023d86 4e 92 |N | JSR (A2) 00023d88 58 4f |XO | ADDQ.L #0x4,A7 00023d8a 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00023d8e 3f 02 |? | MOVE.W D2,-(A7) 00023d90 3f 06 |? | MOVE.W D6,-(A7) 00023d92 4e 92 |N | JSR (A2) 00023d94 58 4f |XO | ADDQ.L #0x4,A7 00023d96 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00023d9a 3f 02 |? | MOVE.W D2,-(A7) 00023d9c 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00023da0 4e 92 |N | JSR (A2) 00023da2 50 4f |PO | ADDQ.L #0x8,A7 00023da4 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00023daa de fc 00 0c | | ADDA.W #0xc,A7 00023dae 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00023db4 58 4f |XO | ADDQ.L #0x4,A7 00023db6 23 df 00 02 44 a2 |# D | MOVE.L (A7)+,0x244a2 00023dbc de fc 00 30 | 0 | ADDA.W #0x30,A7 00023dc0 20 79 00 02 44 a2 | y D | MOVEA.L 0x244a2,A0 00023dc6 4a 50 |JP | TST.W (A0) 00023dc8 66 10 |f | BNE 0x23dda 00023dca 48 79 00 02 44 a2 |Hy D | PEA.L 0x244a2 00023dd0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023dd6 58 4f |XO | ADDQ.L #0x4,A7 00023dd8 60 18 |` | BRA 0x23df2 00023dda 2f 39 00 02 44 a2 |/9 D | MOVE.L 0x244a2,-(A7) 00023de0 48 79 00 02 44 a6 |Hy D | PEA.L 0x244a6 00023de6 48 53 |HS | PEA.L (A3) 00023de8 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 00023dee de fc 00 0c | | ADDA.W #0xc,A7 00023df2 20 13 | | MOVE.L (A3),D0 00023df4 53 80 |S | SUBQ.L #0x1,D0 00023df6 b0 87 | | CMP.L D7,D0 00023df8 62 00 01 ca |b | BHI 0x23fc4 00023dfc d0 40 | @ | ADD.W D0,D0 00023dfe 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00023e06 00 0c | | .CONST 0xc ; [0x0] -> 0x23e12 00023e08 00 44 | D | .CONST 0x44 ; [0x1] -> 0x23e4a 00023e0a 00 4c | L | .CONST 0x4c ; [0x2] -> 0x23e52 00023e0c 00 92 | | .CONST 0x92 ; [0x3] -> 0x23e98 00023e0e 00 de | | .CONST 0xde ; [0x4] -> 0x23ee4 00023e10 01 08 | | .CONST 0x108 ; [0x5] -> 0x23f0e 00023e12 switch@0x23dfe[0x0]: 00023e12 59 4f |YO | SUBQ.L #0x4,A7 00023e14 1e ba d3 c8 | | MOVE.B 0x211de,(A7) 00023e18 1f 7a d3 c5 00 01 | z | MOVE.B 0x211df,(A7+0x1) 00023e1e 1f 7a d3 c0 00 02 | z | MOVE.B 0x211e0,(A7+0x2) 00023e24 59 4f |YO | SUBQ.L #0x4,A7 00023e26 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023e2a 3f 02 |? | MOVE.W D2,-(A7) 00023e2c 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00023e30 4e 92 |N | JSR (A2) 00023e32 50 4f |PO | ADDQ.L #0x8,A7 00023e34 48 78 00 01 |Hx | PEA.L 0x1 00023e38 1f 02 | | MOVE.B D2,-(A7) 00023e3a 48 79 00 02 44 a7 |Hy D | PEA.L 0x244a7 00023e40 4e 94 |N | JSR (A4) 00023e42 de fc 00 12 | | ADDA.W #0x12,A7 00023e46 60 00 01 aa |` | BRA 0x23ff2 00023e4a switch@0x23dfe[0x1]: 00023e4a 4e ba e0 44 |N D | JSR 0x21e90 00023e4e 60 00 01 a2 |` | BRA 0x23ff2 00023e52 switch@0x23dfe[0x2]: 00023e52 9e fc 00 0a | | SUBA.W #0xa,A7 00023e56 20 4f | O | MOVEA.L A7,A0 00023e58 43 fa d3 88 |C | LEA.L 0x211e2,A1 00023e5c 70 08 |p | MOVEQ.L #0x08,D0 00023e5e 10 d9 | | MOVE.B (A1)+,(A0)+ 00023e60 51 c8 ff fc |Q | DBF D0,0x23e5e 00023e64 2f 3a d3 86 |/: | MOVE.L 0x211ec,-(A7) 00023e68 59 4f |YO | SUBQ.L #0x4,A7 00023e6a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023e6e 3f 02 |? | MOVE.W D2,-(A7) 00023e70 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00023e74 4e 92 |N | JSR (A2) 00023e76 58 4f |XO | ADDQ.L #0x4,A7 00023e78 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023e7c 3f 02 |? | MOVE.W D2,-(A7) 00023e7e 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00023e82 4e 92 |N | JSR (A2) 00023e84 5c 4f |\O | ADDQ.L #0x6,A7 00023e86 1e 82 | | MOVE.B D2,(A7) 00023e88 48 79 00 02 44 a7 |Hy D | PEA.L 0x244a7 00023e8e 4e 94 |N | JSR (A4) 00023e90 de fc 00 1c | | ADDA.W #0x1c,A7 00023e94 60 00 01 5a |` Z | BRA 0x23ff0 00023e98 switch@0x23dfe[0x3]: 00023e98 3f 3a d3 5a |?: Z | MOVE.W 0x211f4,-(A7) 00023e9c 3f 3a d3 54 |?: T | MOVE.W 0x211f2,-(A7) 00023ea0 3f 3a d3 4e |?: N | MOVE.W 0x211f0,-(A7) 00023ea4 59 4f |YO | SUBQ.L #0x4,A7 00023ea6 1e ba d3 4e | N | MOVE.B 0x211f6,(A7) 00023eaa 1f 7a d3 4b 00 01 | z K | MOVE.B 0x211f7,(A7+0x1) 00023eb0 1f 7a d3 46 00 02 | z F | MOVE.B 0x211f8,(A7+0x2) 00023eb6 59 4f |YO | SUBQ.L #0x4,A7 00023eb8 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023ebc 3f 02 |? | MOVE.W D2,-(A7) 00023ebe 3f 05 |? | MOVE.W D5,-(A7) 00023ec0 4e 92 |N | JSR (A2) 00023ec2 58 4f |XO | ADDQ.L #0x4,A7 00023ec4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023ec8 3f 02 |? | MOVE.W D2,-(A7) 00023eca 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00023ece 4e 92 |N | JSR (A2) 00023ed0 5c 4f |\O | ADDQ.L #0x6,A7 00023ed2 1e 82 | | MOVE.B D2,(A7) 00023ed4 48 79 00 02 44 a7 |Hy D | PEA.L 0x244a7 00023eda 4e 94 |N | JSR (A4) 00023edc de fc 00 18 | | ADDA.W #0x18,A7 00023ee0 60 00 01 10 |` | BRA 0x23ff2 00023ee4 switch@0x23dfe[0x4]: 00023ee4 3f 3a d3 18 |?: | MOVE.W 0x211fe,-(A7) 00023ee8 3f 3a d3 12 |?: | MOVE.W 0x211fc,-(A7) 00023eec 3f 3a d3 0c |?: | MOVE.W 0x211fa,-(A7) 00023ef0 2f 3a d3 0e |/: | MOVE.L 0x21200,-(A7) 00023ef4 59 4f |YO | SUBQ.L #0x4,A7 00023ef6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023efa 3f 02 |? | MOVE.W D2,-(A7) 00023efc 3f 05 |? | MOVE.W D5,-(A7) 00023efe 4e 92 |N | JSR (A2) 00023f00 58 4f |XO | ADDQ.L #0x4,A7 00023f02 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023f06 3f 02 |? | MOVE.W D2,-(A7) 00023f08 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00023f0c 60 c0 |` | BRA 0x23ece 00023f0e switch@0x23dfe[0x5]: 00023f0e 9e fc 00 0e | | SUBA.W #0xe,A7 00023f12 20 4f | O | MOVEA.L A7,A0 00023f14 43 fa d2 ee |C | LEA.L 0x21204,A1 00023f18 70 0c |p | MOVEQ.L #0x0c,D0 00023f1a 10 d9 | | MOVE.B (A1)+,(A0)+ 00023f1c 51 c8 ff fc |Q | DBF D0,0x23f1a 00023f20 9e fc 00 0c | | SUBA.W #0xc,A7 00023f24 20 4f | O | MOVEA.L A7,A0 00023f26 43 fa d2 ea |C | LEA.L 0x21212,A1 00023f2a 70 0a |p | MOVEQ.L #0x0a,D0 00023f2c 10 d9 | | MOVE.B (A1)+,(A0)+ 00023f2e 51 c8 ff fc |Q | DBF D0,0x23f2c 00023f32 59 4f |YO | SUBQ.L #0x4,A7 00023f34 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00023f38 3f 02 |? | MOVE.W D2,-(A7) 00023f3a 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00023f3e 4e 92 |N | JSR (A2) 00023f40 58 4f |XO | ADDQ.L #0x4,A7 00023f42 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023f46 3f 02 |? | MOVE.W D2,-(A7) 00023f48 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00023f4c 4e 92 |N | JSR (A2) 00023f4e 5c 4f |\O | ADDQ.L #0x6,A7 00023f50 1e 82 | | MOVE.B D2,(A7) 00023f52 48 79 00 02 44 a7 |Hy D | PEA.L 0x244a7 00023f58 4e 94 |N | JSR (A4) 00023f5a 54 4f |TO | ADDQ.L #0x2,A7 00023f5c 20 4f | O | MOVEA.L A7,A0 00023f5e 43 fa d2 be |C | LEA.L 0x2121e,A1 00023f62 70 24 |p$ | MOVEQ.L #0x24,D0 00023f64 10 d9 | | MOVE.B (A1)+,(A0)+ 00023f66 51 c8 ff fc |Q | DBF D0,0x23f64 00023f6a 59 4f |YO | SUBQ.L #0x4,A7 00023f6c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023f70 3f 02 |? | MOVE.W D2,-(A7) 00023f72 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7) 00023f76 4e 92 |N | JSR (A2) 00023f78 50 4f |PO | ADDQ.L #0x8,A7 00023f7a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023f80 de fc 00 28 | ( | ADDA.W #0x28,A7 00023f84 3e ba d2 c2 |> | MOVE.W 0x21248,(A7) 00023f88 3f 3a d2 bc |?: | MOVE.W 0x21246,-(A7) 00023f8c 3f 3a d2 b6 |?: | MOVE.W 0x21244,-(A7) 00023f90 2f 3a d2 bc |/: | MOVE.L 0x2124e,-(A7) 00023f94 2f 3a d2 b4 |/: | MOVE.L 0x2124a,-(A7) 00023f98 59 4f |YO | SUBQ.L #0x4,A7 00023f9a 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00023f9e 3f 02 |? | MOVE.W D2,-(A7) 00023fa0 3f 05 |? | MOVE.W D5,-(A7) 00023fa2 4e 92 |N | JSR (A2) 00023fa4 58 4f |XO | ADDQ.L #0x4,A7 00023fa6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023faa 3f 02 |? | MOVE.W D2,-(A7) 00023fac 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00023fb0 4e 92 |N | JSR (A2) 00023fb2 5c 4f |\O | ADDQ.L #0x6,A7 00023fb4 1e 82 | | MOVE.B D2,(A7) 00023fb6 48 79 00 02 44 a7 |Hy D | PEA.L 0x244a7 00023fbc 4e 94 |N | JSR (A4) 00023fbe de fc 00 1c | | ADDA.W #0x1c,A7 00023fc2 60 2e |`. | BRA 0x23ff2 00023fc4 9e fc 00 1c | | SUBA.W #0x1c,A7 00023fc8 20 4f | O | MOVEA.L A7,A0 00023fca 43 fa d2 86 |C | LEA.L 0x21252,A1 00023fce 70 1a |p | MOVEQ.L #0x1a,D0 00023fd0 10 d9 | | MOVE.B (A1)+,(A0)+ 00023fd2 51 c8 ff fc |Q | DBF D0,0x23fd0 00023fd6 59 4f |YO | SUBQ.L #0x4,A7 00023fd8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023fdc 3f 02 |? | MOVE.W D2,-(A7) 00023fde 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00023fe2 4e 92 |N | JSR (A2) 00023fe4 50 4f |PO | ADDQ.L #0x8,A7 00023fe6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023fec de fc 00 20 | | ADDA.W #0x20,A7 00023ff0 26 85 |& | MOVE.L D5,(A3) 00023ff2 60 00 fc 88 |` | BRA 0x23c7c 00023ff6 4e b9 |N | .XXX[0x2] 00023ff8 00 01 02 84 | | .XXX[0x4] 00023ffc exp_READ_PAREG.FIU(Sw_1, &Sr_1): 00023ffc 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00024002 00 0e | | .CONST 0x000e ; Stack-delta 00024004 0e 52 45 41 44 5f 50 41 | READ_PA| .TXT 14,'READ_PAREG.FIU' 00024013 00 | | .CONST 0x0 00024014 03 | | .CONST 0x3 ; DIPROC address 00024015 01 | | .CONST 0x1 ; Output Parameters 00024016 01 | | .CONST 0x1 ; Input Parameters 00024017 00 | | .CONST 0x0 ; In arg [1] 00024018 00 | | .CONST 0x0 ; Out arg [1] 00024019 00 | | .PAD 0x0 0002401a exp_MF.FIU(): 0002401a 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00024020 00 08 | | .CONST 0x0008 ; Stack-delta 00024022 06 4d 46 2e 46 49 55 | MF.FIU | .TXT 6,'MF.FIU' 00024029 00 | | .CONST 0x0 0002402a 03 | | .CONST 0x3 ; DIPROC address 0002402b 00 | | .CONST 0x0 ; Output Parameters 0002402c 00 | | .CONST 0x0 ; Input Parameters 0002402d 00 | | .PAD 0x0 0002402e exp_FREEZE_WORLD.FIU(): 0002402e 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00024034 00 08 | | .CONST 0x0008 ; Stack-delta 00024036 10 46 52 45 45 5a 45 5f | FREEZE_| .TXT 16,'FREEZE_WORLD.FIU' 00024047 00 | | .CONST 0x0 00024048 03 | | .CONST 0x3 ; DIPROC address 00024049 00 | | .CONST 0x0 ; Output Parameters 0002404a 00 | | .CONST 0x0 ; Input Parameters 0002404b 00 | | .PAD 0x0 0002404c exp_RESET.SEQ(): 0002404c 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00024052 00 08 | | .CONST 0x0008 ; Stack-delta 00024054 09 52 45 53 45 54 2e 53 | RESET.S| .TXT 9,'RESET.SEQ' 0002405e 00 | | .CONST 0x0 0002405f 02 | | .CONST 0x2 ; DIPROC address 00024060 00 | | .CONST 0x0 ; Output Parameters 00024061 00 | | .CONST 0x0 ; Input Parameters 00024062 exp_READ_CUR_UADR.SEQ(&Sr_2): 00024062 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00024068 00 0c | | .CONST 0x000c ; Stack-delta 0002406a 11 52 45 41 44 5f 43 55 | READ_CU| .TXT 17,'READ_CUR_UADR.SEQ' 0002407c 00 | | .CONST 0x0 0002407d 02 | | .CONST 0x2 ; DIPROC address 0002407e 01 | | .CONST 0x1 ; Output Parameters 0002407f 00 | | .CONST 0x0 ; Input Parameters 00024080 01 | | .CONST 0x1 ; Out arg [2] 00024081 00 | | .PAD 0x0 00024082 exp_HALT.SEQ(&Fr): 00024082 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00024088 00 0c | | .CONST 0x000c ; Stack-delta 0002408a 08 48 41 4c 54 2e 53 45 | HALT.SE| .TXT 8,'HALT.SEQ' 00024093 00 | | .CONST 0x0 00024094 02 | | .CONST 0x2 ; DIPROC address 00024095 01 | | .CONST 0x1 ; Output Parameters 00024096 00 | | .CONST 0x0 ; Input Parameters 00024097 08 | | .CONST 0x8 ; Out arg flag 00024098 exp_MF.TYP(): 00024098 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002409e 00 08 | | .CONST 0x0008 ; Stack-delta 000240a0 06 4d 46 2e 54 59 50 | MF.TYP | .TXT 6,'MF.TYP' 000240a7 00 | | .CONST 0x0 000240a8 06 | | .CONST 0x6 ; DIPROC address 000240a9 00 | | .CONST 0x0 ; Output Parameters 000240aa 00 | | .CONST 0x0 ; Input Parameters 000240ab 00 | | .PAD 0x0 000240ac exp_MF.VAL(): 000240ac 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000240b2 00 08 | | .CONST 0x0008 ; Stack-delta 000240b4 06 4d 46 2e 56 41 4c | MF.VAL | .TXT 6,'MF.VAL' 000240bb 00 | | .CONST 0x0 000240bc 07 | | .CONST 0x7 ; DIPROC address 000240bd 00 | | .CONST 0x0 ; Output Parameters 000240be 00 | | .CONST 0x0 ; Input Parameters 000240bf 00 | | .PAD 0x0 000240c0 4d 46 |MF | .TXT 'MF' 000240c2 2e 4d |.M | .TXT '.M' 000240c4 45 4d |EM | .TXT 'EM' 000240c6 4d 46 |MF | .TXT 'MF' 000240c8 2e 4d |.M | .TXT '.M' 000240ca 33 32 |32 | .TXT '32' 000240cc ; -------------------------------------------------------------------------------------- 000240cc ; OMSI PASCAL Function 000240cc ; <LVAR 0x008 1(r)> 000240cc ; <LVAR -0x006 @ 4(r)> 000240cc ; -------------------------------------------------------------------------------------- 000240cc 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 000240d0 bf d5 | | CMPA.L (A5),A7 000240d2 62 06 |b | BHI 0x240da 000240d4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000240d8 4e 76 |Nv | TRAPV 000240da de fc 00 1a | | ADDA.W #0x1a,A7 000240de 48 e7 00 80 |H | MOVEM.L A0,-(A7) 000240e2 41 ee ff fa |A | LEA.L (A6-0x6),A0 000240e6 55 4f |UO | SUBQ.L #0x2,A7 000240e8 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 000240ee 4a 1f |J | TST.B (A7)+ 000240f0 67 0e |g | BEQ 0x24100 000240f2 3f 3a ff d0 |?: | MOVE.W 0x240c4,-(A7) 000240f6 3f 3a ff ca |?: | MOVE.W 0x240c2,-(A7) 000240fa 3f 3a ff c4 |?: | MOVE.W 0x240c0,-(A7) 000240fe 60 0c |` | BRA 0x2410c 00024100 3f 3a ff c8 |?: | MOVE.W 0x240ca,-(A7) 00024104 3f 3a ff c2 |?: | MOVE.W 0x240c8,-(A7) 00024108 3f 3a ff bc |?: | MOVE.W 0x240c6,-(A7) 0002410c 59 4f |YO | SUBQ.L #0x4,A7 0002410e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024112 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024116 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 0002411a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024120 50 4f |PO | ADDQ.L #0x8,A7 00024122 48 50 |HP | PEA.L (A0) 00024124 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 0002412a de fc 00 0e | | ADDA.W #0xe,A7 0002412e 42 27 |B' | CLR.B -(A7) 00024130 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00024134 2f 10 |/ | MOVE.L (A0),-(A7) 00024136 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 0002413c 50 4f |PO | ADDQ.L #0x8,A7 0002413e 48 50 |HP | PEA.L (A0) 00024140 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 00024146 58 4f |XO | ADDQ.L #0x4,A7 00024148 4c df 01 00 |L | MOVEM.L (A7)+,A0 0002414c 4e 5e |N^ | UNLK A6 0002414e 4e 75 |Nu | RTS 00024150 exp_MF.IOC(): 00024150 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00024156 00 08 | | .CONST 0x0008 ; Stack-delta 00024158 06 4d 46 2e 49 4f 43 | MF.IOC | .TXT 6,'MF.IOC' 0002415f 00 | | .CONST 0x0 00024160 04 | | .CONST 0x4 ; DIPROC address 00024161 00 | | .CONST 0x0 ; Output Parameters 00024162 00 | | .CONST 0x0 ; Input Parameters 00024163 00 | | .PAD 0x0 00024164 4e 56 00 00 |NV | LINK.W A6,#0x0000 00024168 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 0002416c bf d5 | | CMPA.L (A5),A7 0002416e 4e 76 |Nv | TRAPV 00024170 42 2e 00 08 |B. | CLR.B (A6+0x8) 00024174 30 39 93 03 e0 00 |09 | MOVE.W 0x9303e000,D0 0002417a 02 40 00 08 | @ | ANDI.W #0x0008,D0 0002417e 67 00 00 06 |g | BEQ 0x24186 00024182 52 2e 00 08 |R. | ADDQ.B #0x1,(A6+0x8) 00024186 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 0002418a 4e 5e |N^ | UNLK A6 0002418c 4e 75 |Nu | RTS 0002418e 4e 56 00 00 |NV | LINK.W A6,#0x0000 ; Spelunked 00024192 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00024196 bf d5 | | CMPA.L (A5),A7 00024198 4e 76 |Nv | TRAPV 0002419a 30 3c 02 01 |0< | MOVE.W #0x201,D0 0002419e 4e b9 80 00 20 64 |N d | JSR 0x80002064 000241a4 67 00 00 06 |g | BEQ 0x241ac 000241a8 30 7c 00 00 |0| | MOVEA.W #0x0,A0 000241ac 2d 48 00 08 |-H | MOVE.L A0,(A6+0x8) 000241b0 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 000241b4 4e 5e |N^ | UNLK A6 000241b6 4e 75 |Nu | RTS 000241b8 4e 56 00 00 |NV | LINK.W A6,#0x0000 ; Spelunked 000241bc 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 000241c0 bf d5 | | CMPA.L (A5),A7 000241c2 4e 76 |Nv | TRAPV 000241c4 30 3c 07 00 |0< | MOVE.W #0x700,D0 000241c8 4e b9 80 00 20 64 |N d | JSR 0x80002064 000241ce 67 00 00 06 |g | BEQ 0x241d6 000241d2 30 7c 00 00 |0| | MOVEA.W #0x0,A0 000241d6 2d 48 00 08 |-H | MOVE.L A0,(A6+0x8) 000241da 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 000241de 4e 5e |N^ | UNLK A6 000241e0 4e 75 |Nu | RTS 000241e2 4e 56 00 00 |NV | LINK.W A6,#0x0000 ; Spelunked 000241e6 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 000241ea bf d5 | | CMPA.L (A5),A7 000241ec 4e 76 |Nv | TRAPV 000241ee 30 3c 08 00 |0< | MOVE.W #0x800,D0 000241f2 4e b9 80 00 20 64 |N d | JSR 0x80002064 000241f8 67 00 00 06 |g | BEQ 0x24200 000241fc 30 7c 00 00 |0| | MOVEA.W #0x0,A0 00024200 2d 48 00 08 |-H | MOVE.L A0,(A6+0x8) 00024204 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00024208 4e 5e |N^ | UNLK A6 0002420a 4e 75 |Nu | RTS 0002420c 4e 56 00 00 |NV | LINK.W A6,#0x0000 ; Spelunked 00024210 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00024214 bf d5 | | CMPA.L (A5),A7 00024216 4e 76 |Nv | TRAPV 00024218 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 0002421c 4e b9 80 00 20 5c |N \ | JSR 0x8000205c 00024222 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024226 42 90 |B | CLR.L (A0) 00024228 11 41 00 03 | A | MOVE.B D1,(A0+0x3) 0002422c 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00024230 4e 5e |N^ | UNLK A6 00024232 4e 75 |Nu | RTS 00024234 4e 56 00 00 |NV | LINK.W A6,#0x0000 ; Spelunked 00024238 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 0002423c bf d5 | | CMPA.L (A5),A7 0002423e 4e 76 |Nv | TRAPV 00024240 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00024244 4e b9 80 00 20 60 |N ` | JSR 0x80002060 0002424a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002424e 42 90 |B | CLR.L (A0) 00024250 11 41 00 03 | A | MOVE.B D1,(A0+0x3) 00024254 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00024258 4e 5e |N^ | UNLK A6 0002425a 4e 75 |Nu | RTS 0002425c 4e 56 00 00 |NV | LINK.W A6,#0x0000 ; Spelunked 00024260 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00024264 bf d5 | | CMPA.L (A5),A7 00024266 4e 76 |Nv | TRAPV 00024268 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 0002426c 4e b9 80 00 20 6c |N l | JSR 0x8000206c 00024272 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024276 42 90 |B | CLR.L (A0) 00024278 11 41 00 03 | A | MOVE.B D1,(A0+0x3) 0002427c 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00024280 4e 5e |N^ | UNLK A6 00024282 4e 75 |Nu | RTS 00024284 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00024292 ; -------------------------------------------------------------------------------------- 00024292 ; OMSI PASCAL Function 00024292 ; <LVAR 0x008 1(r)> 00024292 ; -------------------------------------------------------------------------------------- 00024292 PROG_FAIL: 00024292 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00024296 bf d5 | | CMPA.L (A5),A7 00024298 62 06 |b | BHI 0x242a0 0002429a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002429e 4e 76 |Nv | TRAPV 000242a0 de fc 00 2c | , | ADDA.W #0x2c,A7 000242a4 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000242a8 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 000242ac 70 06 |p | MOVEQ.L #0x06,D0 000242ae 3f 20 |? | MOVE.W -(A0),-(A7) 000242b0 51 c8 ff fc |Q | DBF D0,0x242ae 000242b4 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000242b8 51 4f |QO | SUBQ.L #0x8,A7 000242ba 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000242be 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000242c2 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000242c6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000242cc 58 4f |XO | ADDQ.L #0x4,A7 000242ce 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000242d2 48 80 |H | EXTB.W D0 000242d4 48 c0 |H | EXTW.L D0 000242d6 2f 00 |/ | MOVE.L D0,-(A7) 000242d8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000242de 58 4f |XO | ADDQ.L #0x4,A7 000242e0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000242e6 50 4f |PO | ADDQ.L #0x8,A7 000242e8 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000242ee de fc 00 14 | | ADDA.W #0x14,A7 000242f2 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000242f6 4e 5e |N^ | UNLK A6 000242f8 4e 75 |Nu | RTS 000242fa 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00024308 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00024316 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00024324 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00024336 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 0002434e ; -------------------------------------------------------------------------------------- 0002434e ; OMSI PASCAL Function 0002434e ; <LVAR 0x00e 1(r)> 0002434e ; <LVAR 0x00a 4(r)> 0002434e ; <LVAR 0x008 1(r)> 0002434e ; -------------------------------------------------------------------------------------- 0002434e EXP_FAIL: 0002434e 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00024352 bf d5 | | CMPA.L (A5),A7 00024354 62 06 |b | BHI 0x2435c 00024356 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002435a 4e 76 |Nv | TRAPV 0002435c de fc 00 74 | t | ADDA.W #0x74,A7 00024360 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00024364 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 0002436a 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00024370 72 01 |r | MOVEQ.L #0x01,D1 00024372 74 0d |t | MOVEQ.L #0x0d,D2 00024374 76 1e |v | MOVEQ.L #0x1e,D3 00024376 78 12 |x | MOVEQ.L #0x12,D4 00024378 7a 0e |z | MOVEQ.L #0x0e,D5 0002437a 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00024380 41 fa ff b4 |A | LEA.L 0x24336,A0 00024384 70 08 |p | MOVEQ.L #0x08,D0 00024386 3f 20 |? | MOVE.W -(A0),-(A7) 00024388 51 c8 ff fc |Q | DBF D0,0x24386 0002438c 59 4f |YO | SUBQ.L #0x4,A7 0002438e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024392 3f 01 |? | MOVE.W D1,-(A7) 00024394 3f 04 |? | MOVE.W D4,-(A7) 00024396 4e 93 |N | JSR (A3) 00024398 50 4f |PO | ADDQ.L #0x8,A7 0002439a 4e 94 |N | JSR (A4) 0002439c 50 4f |PO | ADDQ.L #0x8,A7 0002439e 20 4f | O | MOVEA.L A7,A0 000243a0 43 fa ff 58 |C X | LEA.L 0x242fa,A1 000243a4 70 0c |p | MOVEQ.L #0x0c,D0 000243a6 10 d9 | | MOVE.B (A1)+,(A0)+ 000243a8 51 c8 ff fc |Q | DBF D0,0x243a6 000243ac 51 4f |QO | SUBQ.L #0x8,A7 000243ae 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000243b2 3f 01 |? | MOVE.W D1,-(A7) 000243b4 3f 02 |? | MOVE.W D2,-(A7) 000243b6 4e 93 |N | JSR (A3) 000243b8 54 4f |TO | ADDQ.L #0x2,A7 000243ba 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000243be 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000243c4 54 4f |TO | ADDQ.L #0x2,A7 000243c6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000243cc 50 4f |PO | ADDQ.L #0x8,A7 000243ce 4e 94 |N | JSR (A4) 000243d0 de c4 | | ADDA.W D4,A7 000243d2 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000243d6 b0 c1 | | CMPA.W D1,A0 000243d8 67 48 |gH | BEQ 0x24422 000243da 9e c5 | | SUBA.W D5,A7 000243dc 22 4f |"O | MOVEA.L A7,A1 000243de 45 fa ff 28 |E ( | LEA.L 0x24308,A2 000243e2 70 0c |p | MOVEQ.L #0x0c,D0 000243e4 12 da | | MOVE.B (A2)+,(A1)+ 000243e6 51 c8 ff fc |Q | DBF D0,0x243e4 000243ea 9e c3 | | SUBA.W D3,A7 000243ec 22 4f |"O | MOVEA.L A7,A1 000243ee 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000243f2 70 1d |p | MOVEQ.L #0x1d,D0 000243f4 12 d8 | | MOVE.B (A0)+,(A1)+ 000243f6 51 c8 ff fc |Q | DBF D0,0x243f4 000243fa 51 4f |QO | SUBQ.L #0x8,A7 000243fc 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00024400 3f 01 |? | MOVE.W D1,-(A7) 00024402 3f 02 |? | MOVE.W D2,-(A7) 00024404 4e 93 |N | JSR (A3) 00024406 58 4f |XO | ADDQ.L #0x4,A7 00024408 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002440c 3f 01 |? | MOVE.W D1,-(A7) 0002440e 3f 03 |? | MOVE.W D3,-(A7) 00024410 4e 93 |N | JSR (A3) 00024412 50 4f |PO | ADDQ.L #0x8,A7 00024414 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002441a 50 4f |PO | ADDQ.L #0x8,A7 0002441c 4e 94 |N | JSR (A4) 0002441e de fc 00 30 | 0 | ADDA.W #0x30,A7 00024422 9e c5 | | SUBA.W D5,A7 00024424 20 4f | O | MOVEA.L A7,A0 00024426 43 fa fe ee |C | LEA.L 0x24316,A1 0002442a 70 0c |p | MOVEQ.L #0x0c,D0 0002442c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002442e 51 c8 ff fc |Q | DBF D0,0x2442c 00024432 51 4f |QO | SUBQ.L #0x8,A7 00024434 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00024438 3f 01 |? | MOVE.W D1,-(A7) 0002443a 3f 02 |? | MOVE.W D2,-(A7) 0002443c 4e 93 |N | JSR (A3) 0002443e 54 4f |TO | ADDQ.L #0x2,A7 00024440 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00024444 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 0002444a 54 4f |TO | ADDQ.L #0x2,A7 0002444c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024452 50 4f |PO | ADDQ.L #0x8,A7 00024454 4e 94 |N | JSR (A4) 00024456 5d 4f |]O | SUBQ.L #0x6,A7 00024458 20 4f | O | MOVEA.L A7,A0 0002445a 43 fa fe da |C | LEA.L 0x24336,A1 0002445e 70 16 |p | MOVEQ.L #0x16,D0 00024460 10 d9 | | MOVE.B (A1)+,(A0)+ 00024462 51 c8 ff fc |Q | DBF D0,0x24460 00024466 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002446a 59 4f |YO | SUBQ.L #0x4,A7 0002446c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00024470 3f 01 |? | MOVE.W D1,-(A7) 00024472 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00024476 4e 93 |N | JSR (A3) 00024478 50 4f |PO | ADDQ.L #0x8,A7 0002447a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00024480 de c3 | | ADDA.W D3,A7 00024482 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00024486 4e 5e |N^ | UNLK A6 00024488 4e 75 |Nu | RTS