|
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: 4096 (0x1000)
Types: M200
Notes: M200_PROGRAM
Names: »P3FRU.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »P3FRU.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »P3FRU.M200«
└─ ⟦this⟧ »P3FRU.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »P3FRU.M200«
@ 201dc
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 201dc-20318 Body>
<POP 201dc-201f2 Prologue> Σ0 ↓
<POP 201f2-20208 RegCacheLoad> Σ0 ↓
<POP 20208-20268 Naked> Σ0 ↓ →0x202b0
<Call 0x20208 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2020e [18] @> Δ-18 {[«18""»]}
<POP 2021a-2021c StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2021c 18> {[«18""»]|[$$Experiment error :]}
<Call 0x20228 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 2022a-2022b StackAdj> Δ+22 ↓ {}
<Blob 0x2022b [14] @> Δ-14 {[«14""»]}
<POP 2023a-2023c StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x2023c 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 20246-20248 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 20248 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x2024c 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 20252-20254 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x20254 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2025a-2025c StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2025c 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2025e-20260 StackAdj> Δ+18 {}
<MI 20260 MOVEA.L (A6+0xa),A0> {}
<MI 20264 CMPA.W #0x01,A0> {}
<MI 20266 BEQ 0x202b0> {}
<POP 20268-202b0 Naked> Σ0 ↓
<Blob 0x20268 [14] @> Δ-14 {[«14""»]}
<Blob 0x20278 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 20288-2028a StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x2028a 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 20294-20296 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x20296> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x20296 12> Δ-4
<Const 0x2029a 0x1.2> Δ-2
<Const 0x2029c 0x1e.2> Δ-2
<Call 0x2029e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 202a0-202a2 StackAdj> Δ+8
<Call 0x202a2 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 202a8-202aa StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x202aa 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 202ac-202b0 StackAdj> Δ+48 {}
<POP 202b0-20310 Naked> Σ0 ↓ ←0x20208
<Blob 0x202b0 [14] @> Δ-14 {[«14""»]}
<POP 202c0-202c2 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x202c2 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 202cc-202ce StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 202ce MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x202d2 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 202d8-202da StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x202da 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 202e0-202e2 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x202e2 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 202e4-202e5 StackAdj> Δ+18 ↓ {}
<Blob 0x202e5 [24] @> Δ-24 {[«24""»]}
<Const 0x202f4 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 202f8-202fa StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x202fa 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x20308 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 2030e-20310 StackAdj> Δ+30 {}
<POP 20310-20318 Epilogue> Σ0
@ 20318
<LVAR 0x02a 4(r)>
<LVAR 0x028 1(r)>
<LVAR 0x026 1(r)>
<LVAR 0x024 1(r)>
<LVAR 0x020 4(r)>
<LVAR 0x01c 4(r)>
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20318-20442 Body>
<POP 20318-2032e Prologue> Σ0 ↓
<POP 2032e-2033c RegCacheLoad> Σ0 ↓
<POP 2033c-203dc Naked> Σ0 ↓ →0x2043a
<Blob 0x2033c [2] @> Δ-2 {[«2""»]}
<POP 20340-20342 StackAdj> Δ-4 {[«2""»]|[-4-]}
<POP 20342-20343 StackAdj> Δ+2 {[«2""»]|[-2-]}
<Blob 0x20343 [2] @> Δ-2 {[«2""»]|[-2-]|[«2""»]}
<MI 20346 MOVE.B 0x2016d,(A7+0x1)> {[«2""»]|[-2-]|[«2""»]}
<MI 2034c MOVE.B 0x2016e,(A7+0x2)> {[«2""»]|[-2-]|[«2""»]}
<POP 20352-20354 StackAdj> Δ-8 {[«2""»]|[-2-]|[«2""»]|[-8-]}
<Lit 0x20354 2> {[«2""»]|[-2-]|[«2""»]|[-4-]|[$$P ]}
<MI 20364 MOVE.L (A6+0x2a),(A7)> {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']}
<POP 2035e-20364 StackAdj> Δ-8 {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-8-]}
<Call 0x20368 0x102e4> {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x2036e> {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-4-]|[$$…]}
<Pointer.sp 0x2036e 16> Δ-4
<Const 0x20372 0x1.2> Δ-2
<Const 0x20374 0x3.2> Δ-2
<Call 0x20378 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2037e-20380 StackAdj> Δ+8
<Call 0x20380 0x102d4> {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-4-]|[$$…]}
StringCat3(a, b, c : String) : String
<POP 20386-20388 StackAdj> Δ+12 {[«2""»]|[-2-]|[«2""»]|[-4-]}
<MI 20388 MOVEA.L (A7)+,A4> Δ+4 {[«2""»]|[-2-]|[«2""»]}
<POP 2038a-2038c StackAdj> Δ+6 {}
<Call 0x2038c 0x10538> {}
IPC_Init(void)
<MI 20392 MOVE.B (A6+0x28),-(A7)> Δ-2 {[2, '(A6+0x28)']}
<MI 20396 PEA.L (A7)> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']}
<Const 0x20398 0x0.4> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]}
<Const 0x2039a 0x0.4> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
<Call 0x2039c 0x104fc> {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
IPC_PutVar(src : Pointer; length : Long ; type : Long)
<POP 203a2-203a4 StackAdj> Δ+12 {[2, '(A6+0x28)']}
<MI 203a4 MOVE.B (A6+0x26),(A7)> {[-2-]}
<Call 0x203a8 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<MI 203ae MOVE.B (A6+0x24),(A7)> {[-2-]}
<Call 0x203b2 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<POP 203b8-203ba StackAdj> Δ+2 {}
<Call 0x203ba 0x10514> {}
IPC_PutEnd(void)
<MI 203c0 MOVEA.L (A6+0x8),A0> {}
<MI 203c4 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Const 0x203c6 0x1.4> Δ-4 {[4, 'A4']|[##1]}
<Const 0x203ca 0x1.2> Δ-2 {[4, 'A4']|[##1]|[#1]}
<MI 203cc PEA.L (A0)> Δ-4 {[4, 'A4']|[##1]|[#1]|[4, '^(A0)']}
<Call 0x203ce 0x103b0> {[4, 'A4']|[##1]|[#1]|[4, '^(A0)']}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 203d4-203d8 StackAdj> Δ+14 {}
<MI 203d8 TST.B (A0)> {}
<MI 203da BNE 0x2043a> {}
<POP 203dc-2043a Naked> Σ0 ↓
<Call 0x203dc 0x10538> {}
IPC_Init(void)
<MI 203e2 MOVEA.L (A6+0x20),A0> {}
<MI 203e6 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x203e8 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 203ee-203f0 StackAdj> Δ+4 {}
<MI 203f0 MOVEA.L (A6+0x1c),A0> {}
<MI 203f4 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x203f6 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 203f8-203fa StackAdj> Δ+4 {}
<MI 203fa MOVEA.L (A6+0x18),A0> {}
<MI 203fe PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x20400 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 20402-20404 StackAdj> Δ+4 {}
<MI 20404 MOVEA.L (A6+0x14),A0> {}
<MI 20408 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x2040a 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 2040c-2040e StackAdj> Δ+4 {}
<MI 2040e MOVEA.L (A6+0x10),A0> {}
<MI 20412 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x20414 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x20416 0x0.4> Δ-4 {[4, '^(A0)']|[##0]|[##0]}
<Call 0x20418 0x10520> {[4, '^(A0)']|[##0]|[##0]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 2041e-20420 StackAdj> Δ+12 {}
<MI 20420 MOVEA.L (A6+0xc),A0> {}
<MI 20424 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x20426 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x20428 0x7.4> Δ-4 {[4, '^(A0)']|[##0]|[##7]}
<Call 0x2042c 0x10520> {[4, '^(A0)']|[##0]|[##7]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 20432-20434 StackAdj> Δ+12 {}
<Call 0x20434 0x1051a> {}
IPC_GetEnd(void)
<POP 2043a-20442 Epilogue> Σ0 ←0x2033c
@ 20442
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20442-204a0 Body>
<POP 20442-20458 Prologue> Σ0 ↓
<POP 20458-20498 Naked> Σ0 ↓
<Call 0x20458 0x10538> {}
IPC_Init(void)
<MI 2045e MOVEA.L (A6+0x10),A0> {}
<MI 20462 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x20464 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x20468 0x0.4> Δ-4 {[4, '^(A0)']|[##0]|[##0]}
<Call 0x2046c 0x10520> {[4, '^(A0)']|[##0]|[##0]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 20472-20476 StackAdj> Δ+12 {}
<MI 20476 MOVEA.L (A6+0xc),A0> {}
<MI 2047a PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x2047c 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 20482-20484 StackAdj> Δ+4 {}
<MI 20484 MOVEA.L (A6+0x8),A0> {}
<MI 20488 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x2048a 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 20490-20492 StackAdj> Δ+4 {}
<Call 0x20492 0x1051a> {}
IPC_GetEnd(void)
<POP 20498-204a0 Epilogue> Σ0
@ 204a0
<LVAR 0x01e 1(r)>
<LVAR 0x01a 4(r)>
<LVAR 0x016 4(r)>
<LVAR 0x012 4(r)>
<LVAR 0x010 1(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 204a0-20530 Body>
<POP 204a0-204b6 Prologue> Σ0 ↓
<POP 204b6-204c0 RegCacheLoad> Σ0 ↓
<POP 204c0-20528 Naked> Σ0 ↓
<Call 0x204c0 0x10538> {}
IPC_Init(void)
<MI 204c6 MOVE.B (A6+0x1e),-(A7)> Δ-2 {[2, '(A6+0x1e)']}
<Call 0x204ca 0x10502> {[2, '(A6+0x1e)']}
IPC_PutBool(a : Bool)
<POP 204d0-204d2 StackAdj> Δ+2 {}
<MI 204d2 MOVE.L (A6+0x1a),-(A7)> Δ-4 {[4, '(A6+0x1a)']}
<Call 0x204d6 0x10508> {[4, '(A6+0x1a)']}
IPC_PutString(a : String)
<MI 204d8 MOVE.L (A6+0x16),(A7)> {[4, '(A6+0x16)']}
<Call 0x204dc 0x10508> {[4, '(A6+0x16)']}
IPC_PutString(a : String)
<MI 204de MOVE.L (A6+0x12),(A7)> {[4, '(A6+0x12)']}
<Call 0x204e2 0x10508> {[4, '(A6+0x12)']}
IPC_PutString(a : String)
<POP 204e4-204e6 StackAdj> Δ+2 {[-2-]}
<MI 204e6 MOVE.B (A6+0x10),(A7)> {[-2-]}
<MI 204ea PEA.L (A7)> Δ-4 {[-2-]|[4, '^(A7)']}
<Const 0x204ec 0x0.4> Δ-4 {[-2-]|[4, '^(A7)']|[##0]}
<Const 0x204ee 0x0.4> Δ-4 {[-2-]|[4, '^(A7)']|[##0]|[##0]}
<Call 0x204f0 0x104fc> {[-2-]|[4, '^(A7)']|[##0]|[##0]}
IPC_PutVar(src : Pointer; length : Long ; type : Long)
<POP 204f6-204fa StackAdj> Δ+10 {[-2-]|[-2-]}
<MI 204fa MOVE.L (A6+0xc),(A7)> {[4, '(A6+0xc)']}
<MI 204fe MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 20502 PEA.L (A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']}
<Const 0x20504 0x0.4> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]}
<Const 0x20506 0x7.4> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]|[##7]}
<Call 0x2050a 0x104fc> {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]|[##7]}
IPC_PutVar(src : Pointer; length : Long ; type : Long)
<POP 20510-20514 StackAdj> Δ+20 {}
<Call 0x20514 0x10514> {}
IPC_PutEnd(void)
<MI 2051a CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2051c 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x20520 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20526-20528 StackAdj> Δ+6 {}
<POP 20528-20530 Epilogue> Σ0
@ 20530
<LVAR 0x024 4(r)>
<LVAR 0x022 1(r)>
<LVAR 0x020 1(r)>
<LVAR 0x01c 4(r)>
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20530-2062c Body>
<POP 20530-20546 Prologue> Σ0 ↓
<POP 20546-2054e RegCacheLoad> Σ0 ↓
<POP 2054e-205c8 Naked> Σ0 ↓ →0x20624
<Call 0x2054e 0x10538> {}
IPC_Init(void)
<MI 20554 MOVE.B (A6+0x22),-(A7)> Δ-2 {[2, '(A6+0x22)']}
<Call 0x20558 0x10502> {[2, '(A6+0x22)']}
IPC_PutBool(a : Bool)
<MI 2055e MOVE.B (A6+0x20),(A7)> {[-2-]}
<Call 0x20562 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<POP 20568-2056a StackAdj> Δ+2 {}
<Call 0x2056a 0x10514> {}
IPC_PutEnd(void)
<Blob 0x20570 [4] @> Δ-4 {[«4""»]}
<Blob 0x20574 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20578 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2057c-2057e StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x2057e 12> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
<MI 2058c MOVE.L (A6+0x24),(A7)> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']}
<POP 20586-2058c StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
<Call 0x20590 0x102cc> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
StringDup(a : String) : String
<POP 20596-20598 StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
<Call 0x20598 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
StringCat2(a, b : String) : String
<POP 2059e-205a0 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x205a0 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 205a6-205aa StackAdj> Δ+16 {}
<MI 205aa MOVEA.L (A6+0x8),A0> {}
<MI 205ae MOVE.L (A6+0x24),-(A7)> Δ-4 {[4, '(A6+0x24)']}
<Const 0x205b2 0x1.4> Δ-4 {[4, '(A6+0x24)']|[##1]}
<Const 0x205b6 0x1.2> Δ-2 {[4, '(A6+0x24)']|[##1]|[#1]}
<MI 205b8 PEA.L (A0)> Δ-4 {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
<Call 0x205ba 0x103b0> {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 205c0-205c4 StackAdj> Δ+14 {}
<MI 205c4 TST.B (A0)> {}
<MI 205c6 BNE 0x20624> {}
<POP 205c8-20624 Naked> Σ0 ↓
<Call 0x205c8 0x10538> {}
IPC_Init(void)
<MI 205ce MOVEA.L (A6+0x1c),A0> {}
<MI 205d2 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x205d4 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 205da-205dc StackAdj> Δ+4 {}
<MI 205dc MOVEA.L (A6+0x18),A0> {}
<MI 205e0 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x205e2 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 205e8-205ea StackAdj> Δ+4 {}
<MI 205ea MOVEA.L (A6+0x14),A0> {}
<MI 205ee PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x205f0 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 205f6-205f8 StackAdj> Δ+4 {}
<MI 205f8 MOVEA.L (A6+0x10),A0> {}
<MI 205fc PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x205fe 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x20600 0x0.4> Δ-4 {[4, '^(A0)']|[##0]|[##0]}
<Call 0x20602 0x10520> {[4, '^(A0)']|[##0]|[##0]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 20608-2060a StackAdj> Δ+12 {}
<MI 2060a MOVEA.L (A6+0xc),A0> {}
<MI 2060e PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x20610 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x20612 0x7.4> Δ-4 {[4, '^(A0)']|[##0]|[##7]}
<Call 0x20616 0x10520> {[4, '^(A0)']|[##0]|[##7]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 2061c-2061e StackAdj> Δ+12 {}
<Call 0x2061e 0x1051a> {}
IPC_GetEnd(void)
<POP 20624-2062c Epilogue> Σ0 ←0x2054e
@ 2062c
<LVAR 0x028 1(r)>
<LVAR 0x024 4(r)>
<LVAR 0x022 1(r)>
<LVAR 0x020 1(r)>
<LVAR 0x01c 4(r)>
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2062c-2073a Body>
<POP 2062c-20642 Prologue> Σ0 ↓
<POP 20642-2064a RegCacheLoad> Σ0 ↓
<POP 2064a-206d6 Naked> Σ0 ↓ →0x20732
<Call 0x2064a 0x10538> {}
IPC_Init(void)
<MI 20650 MOVE.B (A6+0x28),-(A7)> Δ-2 {[2, '(A6+0x28)']}
<MI 20654 PEA.L (A7)> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']}
<Const 0x20656 0x0.4> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]}
<Const 0x20658 0x0.4> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
<Call 0x2065a 0x104fc> {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
IPC_PutVar(src : Pointer; length : Long ; type : Long)
<POP 20660-20662 StackAdj> Δ+12 {[2, '(A6+0x28)']}
<MI 20662 MOVE.B (A6+0x22),(A7)> {[-2-]}
<Call 0x20666 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<MI 2066c MOVE.B (A6+0x20),(A7)> {[-2-]}
<Call 0x20670 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<POP 20676-20678 StackAdj> Δ+2 {}
<Call 0x20678 0x10514> {}
IPC_PutEnd(void)
<Blob 0x2067e [4] @> Δ-4 {[«4""»]}
<Blob 0x20682 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20686 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2068a-2068c StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x2068c 12> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
<MI 2069a MOVE.L (A6+0x24),(A7)> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']}
<POP 20694-2069a StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
<Call 0x2069e 0x102cc> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
StringDup(a : String) : String
<POP 206a4-206a6 StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
<Call 0x206a6 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
StringCat2(a, b : String) : String
<POP 206ac-206ae StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x206ae 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 206b4-206b8 StackAdj> Δ+16 {}
<MI 206b8 MOVEA.L (A6+0x8),A0> {}
<MI 206bc MOVE.L (A6+0x24),-(A7)> Δ-4 {[4, '(A6+0x24)']}
<Const 0x206c0 0x1.4> Δ-4 {[4, '(A6+0x24)']|[##1]}
<Const 0x206c4 0x1.2> Δ-2 {[4, '(A6+0x24)']|[##1]|[#1]}
<MI 206c6 PEA.L (A0)> Δ-4 {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
<Call 0x206c8 0x103b0> {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 206ce-206d2 StackAdj> Δ+14 {}
<MI 206d2 TST.B (A0)> {}
<MI 206d4 BNE 0x20732> {}
<POP 206d6-20732 Naked> Σ0 ↓
<Call 0x206d6 0x10538> {}
IPC_Init(void)
<MI 206dc MOVEA.L (A6+0x1c),A0> {}
<MI 206e0 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x206e2 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 206e8-206ea StackAdj> Δ+4 {}
<MI 206ea MOVEA.L (A6+0x18),A0> {}
<MI 206ee PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x206f0 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 206f6-206f8 StackAdj> Δ+4 {}
<MI 206f8 MOVEA.L (A6+0x14),A0> {}
<MI 206fc PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x206fe 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 20704-20706 StackAdj> Δ+4 {}
<MI 20706 MOVEA.L (A6+0x10),A0> {}
<MI 2070a PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x2070c 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x2070e 0x0.4> Δ-4 {[4, '^(A0)']|[##0]|[##0]}
<Call 0x20710 0x10520> {[4, '^(A0)']|[##0]|[##0]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 20716-20718 StackAdj> Δ+12 {}
<MI 20718 MOVEA.L (A6+0xc),A0> {}
<MI 2071c PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x2071e 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x20720 0x7.4> Δ-4 {[4, '^(A0)']|[##0]|[##7]}
<Call 0x20724 0x10520> {[4, '^(A0)']|[##0]|[##7]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 2072a-2072c StackAdj> Δ+12 {}
<Call 0x2072c 0x1051a> {}
IPC_GetEnd(void)
<POP 20732-2073a Epilogue> Σ0 ←0x2064a
@ 2073a
<LVAR 0x02c 1(r)>
<LVAR 0x028 4(r)>
<LVAR 0x026 1(r)>
<LVAR 0x024 1(r)>
<LVAR 0x022 1(r)>
<LVAR 0x020 1(r)>
<LVAR 0x01c 4(r)>
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2073a-20852 Body>
<POP 2073a-20750 Prologue> Σ0 ↓
<POP 20750-2075e RegCacheLoad> Σ0 ↓
<POP 2075e-207ee Naked> Σ0 ↓ →0x2084a
<Call 0x2075e 0x10538> {}
IPC_Init(void)
<MI 20764 MOVE.B (A6+0x2c),-(A7)> Δ-2 {[2, '(A6+0x2c)']}
<MI 20768 PEA.L (A7)> Δ-4 {[2, '(A6+0x2c)']|[4, '^(A7)']}
<Const 0x2076a 0x0.4> Δ-4 {[2, '(A6+0x2c)']|[4, '^(A7)']|[##0]}
<Const 0x2076c 0x0.4> Δ-4 {[2, '(A6+0x2c)']|[4, '^(A7)']|[##0]|[##0]}
<Call 0x2076e 0x104fc> {[2, '(A6+0x2c)']|[4, '^(A7)']|[##0]|[##0]}
IPC_PutVar(src : Pointer; length : Long ; type : Long)
<POP 20774-20776 StackAdj> Δ+12 {[2, '(A6+0x2c)']}
<MI 20776 MOVE.B (A6+0x26),(A7)> {[-2-]}
<Call 0x2077a 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<MI 2077c MOVE.B (A6+0x24),(A7)> {[-2-]}
<Call 0x20780 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<MI 20782 MOVE.B (A6+0x22),(A7)> {[-2-]}
<Call 0x20786 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<MI 20788 MOVE.B (A6+0x20),(A7)> {[-2-]}
<Call 0x2078c 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<POP 2078e-20790 StackAdj> Δ+2 {}
<Call 0x20790 0x10514> {}
IPC_PutEnd(void)
<Blob 0x20796 [4] @> Δ-4 {[«4""»]}
<Blob 0x2079a [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2079e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 207a2-207a4 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x207a4 12> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
<MI 207b2 MOVE.L (A6+0x28),(A7)> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']}
<POP 207ac-207b2 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-8-]}
<Call 0x207b6 0x102cc> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-8-]}
StringDup(a : String) : String
<POP 207bc-207be StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-4-]}
<Call 0x207be 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-4-]}
StringCat2(a, b : String) : String
<POP 207c4-207c6 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x207c6 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 207cc-207d0 StackAdj> Δ+16 {}
<MI 207d0 MOVEA.L (A6+0x8),A0> {}
<MI 207d4 MOVE.L (A6+0x28),-(A7)> Δ-4 {[4, '(A6+0x28)']}
<Const 0x207d8 0x1.4> Δ-4 {[4, '(A6+0x28)']|[##1]}
<Const 0x207dc 0x1.2> Δ-2 {[4, '(A6+0x28)']|[##1]|[#1]}
<MI 207de PEA.L (A0)> Δ-4 {[4, '(A6+0x28)']|[##1]|[#1]|[4, '^(A0)']}
<Call 0x207e0 0x103b0> {[4, '(A6+0x28)']|[##1]|[#1]|[4, '^(A0)']}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 207e6-207ea StackAdj> Δ+14 {}
<MI 207ea TST.B (A0)> {}
<MI 207ec BNE 0x2084a> {}
<POP 207ee-2084a Naked> Σ0 ↓
<Call 0x207ee 0x10538> {}
IPC_Init(void)
<MI 207f4 MOVEA.L (A6+0x1c),A0> {}
<MI 207f8 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x207fa 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 20800-20802 StackAdj> Δ+4 {}
<MI 20802 MOVEA.L (A6+0x18),A0> {}
<MI 20806 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x20808 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 2080e-20810 StackAdj> Δ+4 {}
<MI 20810 MOVEA.L (A6+0x14),A0> {}
<MI 20814 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x20816 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 2081c-2081e StackAdj> Δ+4 {}
<MI 2081e MOVEA.L (A6+0x10),A0> {}
<MI 20822 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x20824 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x20826 0x0.4> Δ-4 {[4, '^(A0)']|[##0]|[##0]}
<Call 0x20828 0x10520> {[4, '^(A0)']|[##0]|[##0]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 2082e-20830 StackAdj> Δ+12 {}
<MI 20830 MOVEA.L (A6+0xc),A0> {}
<MI 20834 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x20836 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x20838 0x7.4> Δ-4 {[4, '^(A0)']|[##0]|[##7]}
<Call 0x2083c 0x10520> {[4, '^(A0)']|[##0]|[##7]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 20842-20844 StackAdj> Δ+12 {}
<Call 0x20844 0x1051a> {}
IPC_GetEnd(void)
<POP 2084a-20852 Epilogue> Σ0 ←0x2075e
@ 20852
<LVAR -0x004 1(rw)>
<POP 20852-2091a Body>
<POP 20852-20868 Prologue> Σ0 ↓
<POP 20868-20876 RegCacheLoad> Σ0 ↓
<POP 20876-20902 Naked> Σ0 ↓ →0x20912
<Const 0x20876 0x20cc8.4> Δ-4 {[##134344]}
<Call 0x20878 0x102bc> {[##134344]}
FreeString(VAR a : String)
<POP 2087e-2087f StackAdj> Δ+4 ↓ {}
<Blob 0x2087f [8] @> Δ-8 {[«8""»]}
<POP 2088e-20890 StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x20890 7> {[«8""»]|[$$P3UCODE]}
<MI 208a2 MOVE.L (A7)+,0x20cc8> Δ+4 {[«8""»]}
<POP 208a4-208a6 StackAdj> Δ+8 {}
<MI 208a6 MOVE.B #0x01,(A6-0x4)> {}
<MI 208aa MOVE.B (A6-0x4),-(A7)> Δ-2 {[2, '(A6-0x4)']}
<POP 208ae-208b0 StackAdj> Δ-4 {[2, '(A6-0x4)']|[-4-]}
<Blob 0x208b0 [4] 0x20cc8> Δ-4 {[2, '(A6-0x4)']|[-4-]|[«4»]}
<Call 0x208b2 0x102cc> {[2, '(A6-0x4)']|[-4-]|[«4»]}
StringDup(a : String) : String
<POP 208b8-208ba StackAdj> Δ+4 {[2, '(A6-0x4)']|[-4-]}
<MI 208ba MOVE.B 0x20cc4,D0> {[2, '(A6-0x4)']|[-4-]}
<MI 208c0 EXTB.W D0> {[2, '(A6-0x4)']|[-4-]}
<POP 0x208c2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, '(A6-0x4)']|[-4-]}
<MI 208c4 MOVE.B D0,-(A7)> Δ-2 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
<MI 208c6 MOVE.B 0x20cc5,D0> {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
<MI 208cc EXTB.W D0> {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
<POP 0x208ce LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
<MI 208d0 MOVE.B D0,-(A7)> Δ-2 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']}
<Const 0x208d2 0x1.2> Δ-2 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]}
<Const 0x208d4 0x1.2> Δ-2 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]|[#1]}
<Const 0x208d6 0x20cc6.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##134342]}
<Const 0x208dc 0x20ccc.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##134342]|[##134348]}
<Const 0x208e2 0x20cd0.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##134342]|[##134348]|[##134352]}
<Const 0x208e8 0x20cd4.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##134342]|[##134348]|[##134352]|[##134356]}
<Const 0x208ee 0x20cd5.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]}
<Const 0x208f4 0x20cde.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]|[##134366]}
<Call 0x208f6 0x2073a> {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]|[##134366]}
<POP 208fa-208fe StackAdj> Δ+38 {}
<MI 208fe TST.B 0x20cde> {}
<MI 20900 BEQ 0x20912> {}
<POP 20902-20912 Naked> Σ0 ↓
<Const 0x20902 0x6.2> Δ-2 {[#6]}
<Const 0x20906 0x1.4> Δ-4 {[#6]|[##1]}
<Call 0x2090a 0x103b8> {[#6]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20910-20912 StackAdj> Δ+6 {}
<POP 20912-2091a Epilogue> Σ0 ←0x20876
@ 2091a
<POP 2091a-209d2 Body>
<POP 2091a-20930 Prologue> Σ0 ↓
<POP 20930-2093e RegCacheLoad> Σ0 ↓
<POP 2093e-209ba Naked> Σ0 ↓ →0x209ca
<Const 0x2093e 0x20cc8.4> Δ-4 {[##134344]}
<Call 0x20940 0x102bc> {[##134344]}
FreeString(VAR a : String)
<POP 20946-20948 StackAdj> Δ+4 {}
<Blob 0x20948 [10] (A6+0x12)> Δ-10 {[«10»]}
<POP 20954-20956 StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x20956> {[«10»]|[$$…]}
<Pointer.sp 0x20956 4> Δ-4
<Const 0x2095a 0x1.2> Δ-2
<Const 0x2095c 0xa.2> Δ-2
<Call 0x20960 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20966-20968 StackAdj> Δ+8
<MI 20968 MOVE.L (A7)+,0x20cc8> Δ+4 {[«10»]}
<POP 2096a-2096c StackAdj> Δ+2 {[-8-]}
<POP 2096c-2096d StackAdj> Δ+4 {[-4-]}
<Blob 0x2096d [4] 0x20cc8> Δ-4 {[-4-]|[«4»]}
<Call 0x2096e 0x102cc> {[-4-]|[«4»]}
StringDup(a : String) : String
<POP 20974-20976 StackAdj> Δ+4 {[-4-]}
<MI 20976 MOVE.B 0x20cc4,D0> {[-4-]}
<MI 2097c EXTB.W D0> {[-4-]}
<POP 0x2097e LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-4-]}
<MI 20980 MOVE.B D0,-(A7)> Δ-2 {[-4-]|[2, 'D0']}
<MI 20982 MOVE.B 0x20cc5,D0> {[-4-]|[2, 'D0']}
<MI 20988 EXTB.W D0> {[-4-]|[2, 'D0']}
<POP 0x2098a LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-4-]|[2, 'D0']}
<MI 2098c MOVE.B D0,-(A7)> Δ-2 {[-4-]|[2, 'D0']|[2, 'D0']}
<Const 0x2098e 0x20cc6.4> Δ-4 {[-4-]|[2, 'D0']|[2, 'D0']|[##134342]}
<Const 0x20994 0x20ccc.4> Δ-4 {[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]}
<Const 0x2099a 0x20cd0.4> Δ-4 {[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]}
<Const 0x209a0 0x20cd4.4> Δ-4 {[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]|[##134356]}
<Const 0x209a6 0x20cd5.4> Δ-4 {[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]}
<Const 0x209ac 0x20cde.4> Δ-4 {[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]|[##134366]}
<Call 0x209ae 0x20530> {[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]|[##134366]}
<POP 209b2-209b6 StackAdj> Δ+32 {}
<MI 209b6 TST.B 0x20cde> {}
<MI 209b8 BEQ 0x209ca> {}
<POP 209ba-209ca Naked> Σ0 ↓
<Const 0x209ba 0x6.2> Δ-2 {[#6]}
<Const 0x209be 0x1.4> Δ-4 {[#6]|[##1]}
<Call 0x209c2 0x103b8> {[#6]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 209c8-209ca StackAdj> Δ+6 {}
<POP 209ca-209d2 Epilogue> Σ0 ←0x2093e
@ 209d2
<LVAR 0x012 1(r)>
<LVAR -0x004 1(rw)>
<POP 209d2-20a96 Body>
<POP 209d2-209e8 Prologue> Σ0 ↓
<POP 209e8-209f8 RegCacheLoad> Σ0 ↓
<POP 209f8-20a7e Naked> Σ0 ↓ →0x20a8e
<Const 0x209f8 0x20cc8.4> Δ-4 {[##134344]}
<Call 0x209fa 0x102bc> {[##134344]}
FreeString(VAR a : String)
<POP 20a00-20a02 StackAdj> Δ+4 {}
<Blob 0x20a02 [10] (A6+0x12)> Δ-10 {[«10»]}
<POP 20a0e-20a10 StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x20a10> {[«10»]|[$$…]}
<Pointer.sp 0x20a10 4> Δ-4
<Const 0x20a14 0x1.2> Δ-2
<Const 0x20a16 0xa.2> Δ-2
<Call 0x20a18 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20a1e-20a20 StackAdj> Δ+8
<MI 20a20 MOVE.L (A7)+,0x20cc8> Δ+4 {[«10»]}
<POP 20a22-20a24 StackAdj> Δ+10 {}
<MI 20a24 MOVE.B (A6+0x12),(A6-0x4)> {}
<MI 20a2a MOVE.B (A6-0x4),-(A7)> Δ-2 {[2, '(A6-0x4)']}
<POP 20a2e-20a30 StackAdj> Δ-4 {[2, '(A6-0x4)']|[-4-]}
<Blob 0x20a30 [4] 0x20cc8> Δ-4 {[2, '(A6-0x4)']|[-4-]|[«4»]}
<Call 0x20a32 0x102cc> {[2, '(A6-0x4)']|[-4-]|[«4»]}
StringDup(a : String) : String
<POP 20a38-20a3a StackAdj> Δ+4 {[2, '(A6-0x4)']|[-4-]}
<MI 20a3a MOVE.B 0x20cc4,D0> {[2, '(A6-0x4)']|[-4-]}
<MI 20a40 EXTB.W D0> {[2, '(A6-0x4)']|[-4-]}
<POP 0x20a42 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, '(A6-0x4)']|[-4-]}
<MI 20a44 MOVE.B D0,-(A7)> Δ-2 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
<MI 20a46 MOVE.B 0x20cc5,D0> {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
<MI 20a4c EXTB.W D0> {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
<POP 0x20a4e LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
<MI 20a50 MOVE.B D0,-(A7)> Δ-2 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']}
<Const 0x20a52 0x20cc6.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##134342]}
<Const 0x20a58 0x20ccc.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]}
<Const 0x20a5e 0x20cd0.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]}
<Const 0x20a64 0x20cd4.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]|[##134356]}
<Const 0x20a6a 0x20cd5.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]}
<Const 0x20a70 0x20cde.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]|[##134366]}
<Call 0x20a72 0x2062c> {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##134342]|[##134348]|[##134352]|[##134356]|[##134357]|[##134366]}
<POP 20a76-20a7a StackAdj> Δ+34 {}
<MI 20a7a TST.B 0x20cde> {}
<MI 20a7c BEQ 0x20a8e> {}
<POP 20a7e-20a8e Naked> Σ0 ↓
<Const 0x20a7e 0x6.2> Δ-2 {[#6]}
<Const 0x20a82 0x1.4> Δ-4 {[#6]|[##1]}
<Call 0x20a86 0x103b8> {[#6]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20a8c-20a8e StackAdj> Δ+6 {}
<POP 20a8e-20a96 Epilogue> Σ0 ←0x209f8
@ 20a96
START
<POP 20a96--0001 Body> Δ+108
<POP 20a96-20aa0 Prologue> Σ0
<POP 20aa0-20ab6 RegCacheLoad> Σ0 ↓
<POP 20ab6-20afe Naked> Σ0 ↓ →0x20bde
<Call 0x20ab6 0x10398> {}
FSCALL_10398
<Const 0x20abc 0x20cc2.4> Δ-4 {[##134338]}
<Const 0x20abe 0x20cc4.4> Δ-4 {[##134338]|[##134340]}
<Const 0x20ac4 0x20cc5.4> Δ-4 {[##134338]|[##134340]|[##134341]}
<Call 0x20aca 0x20442> {[##134338]|[##134340]|[##134341]}
<POP 20ace-20ad0 StackAdj> Δ+12 {}
<MI 20ad0 CLR.L D0> {}
<MI 20ad2 MOVE.B 0x20cc2,D0> {}
<POP 0x20ad4 LimitCheck 0x0 ≤ D0 ≤ 0xb> {}
<MI 20ad8 MOVE.B D0,0x20cc3> {}
<Const 0x20ade 0x20cc8.4> Δ-4 {[##134344]}
<Call 0x20ae4 0x102b8> {[##134344]}
NewString(VAR a : String)
<POP 20aea-20aec StackAdj> Δ+4 {}
<MI 20aec MOVE.B #0x01,0x20cdd> {}
<MI 20aee MOVE.B 0x20cc3,D0> {}
<MI 20af4 EXTB.W D0> {}
<MI 20af6 CMPI.W #0x000a,D0> {}
<MI 20afa BHI 0x20bde> {}
<POP 20afe-20b08 Naked> Σ0 →0x20b1e →0x20bde →0x20b38 →0x20b4a →0x20b5c →0x20b6e →0x20b80 →0x20b92 →0x20ba2 →0x20bb6 →0x20bca
<MI 20afe ADD.W D0,D0> {}
<MI 20b00 SWITCH D0.W> {}
<POP 20b1e-20b2e Naked> Σ0 Δ-12 ↓ ←0x20afe
<Const 0x20b1e 0x5.2> Δ-2 {[#5]}
<Blob 0x20b22 [10] @> Δ-10 {[#5]|[«10""»]}
<POP 20b2e-20b38 Naked> Σ-12 Δ+12 →0x20bfe ←0x20b38 ←0x20b4a ←0x20b5c ←0x20b6e ←0x20b80 ←0x20b92 ←0x20ba2 ←0x20bb6 ←0x20bca
<Call 0x20b2e 0x209d2> {[-12-]}
<POP 20b32-20b34 StackAdj> Δ+12 {}
<MI 20b34 BRA 0x20bfe> {}
<POP 20b38-20b4a Naked> Σ0 Δ-12 →0x20b2e ←0x20afe
<Const 0x20b38 0x4.2> Δ-2 {[#4]}
<Blob 0x20b3c [10] @> Δ-10 {[#4]|[«10""»]}
<MI 20b48 BRA 0x20b2e> {[#4]|[«10""»]}
<POP 20b4a-20b5c Naked> Σ0 Δ-12 →0x20b2e ←0x20afe
<Const 0x20b4a 0x7.2> Δ-2 {[#7]}
<Blob 0x20b4e [10] @> Δ-10 {[#7]|[«10""»]}
<MI 20b5a BRA 0x20b2e> {[#7]|[«10""»]}
<POP 20b5c-20b6e Naked> Σ0 Δ-12 →0x20b2e ←0x20afe
<Const 0x20b5c 0x6.2> Δ-2 {[#6]}
<Blob 0x20b60 [10] @> Δ-10 {[#6]|[«10""»]}
<MI 20b6c BRA 0x20b2e> {[#6]|[«10""»]}
<POP 20b6e-20b80 Naked> Σ0 Δ-12 →0x20b2e ←0x20afe
<Const 0x20b6e 0x2.2> Δ-2 {[#2]}
<Blob 0x20b72 [10] @> Δ-10 {[#2]|[«10""»]}
<MI 20b7e BRA 0x20b2e> {[#2]|[«10""»]}
<POP 20b80-20b92 Naked> Σ0 Δ-12 →0x20b2e ←0x20afe
<Const 0x20b80 0x3.2> Δ-2 {[#3]}
<Blob 0x20b84 [10] @> Δ-10 {[#3]|[«10""»]}
<MI 20b90 BRA 0x20b2e> {[#3]|[«10""»]}
<POP 20b92-20ba2 Naked> Σ0 Δ-12 →0x20b2e ←0x20afe
<Const 0x20b92 0xc.2> Δ-2 {[#12]}
<Blob 0x20b94 [10] @> Δ-10 {[#12]|[«10""»]}
<MI 20ba0 BRA 0x20b2e> {[#12]|[«10""»]}
<POP 20ba2-20bb6 Naked> Σ0 Δ-12 →0x20b2e ←0x20afe
<Const 0x20ba2 0xd.2> Δ-2 {[#13]}
<Blob 0x20ba6 [10] @> Δ-10 {[#13]|[«10""»]}
<MI 20bb2 BRA 0x20b2e> {[#13]|[«10""»]}
<POP 20bb6-20bca Naked> Σ0 Δ-12 →0x20b2e ←0x20afe
<Const 0x20bb6 0xe.2> Δ-2 {[#14]}
<Blob 0x20bba [10] @> Δ-10 {[#14]|[«10""»]}
<MI 20bc6 BRA 0x20b2e> {[#14]|[«10""»]}
<POP 20bca-20bde Naked> Σ0 Δ-12 →0x20b2e ←0x20afe
<Const 0x20bca 0xf.2> Δ-2 {[#15]}
<Blob 0x20bce [10] @> Δ-10 {[#15]|[«10""»]}
<MI 20bda BRA 0x20b2e> {[#15]|[«10""»]}
<POP 20bde-20bfe Naked> Σ0 ↓ ←0x20ab6 ←0x20afe
<MI 20bde MOVE.B #0x01,0x20cc6> {}
<MI 20be0 CLR.B 0x20cdd> {}
<Const 0x20be2 0x20ccc.4> Δ-4 {[##134348]}
<Call 0x20be8 0x102b8> {[##134348]}
NewString(VAR a : String)
<POP 20bee-20bf0 StackAdj> Δ+4 {}
<Const 0x20bf0 0x20cd0.4> Δ-4 {[##134352]}
<Call 0x20bf6 0x102b8> {[##134352]}
NewString(VAR a : String)
<POP 20bfc-20bfe StackAdj> Δ+4 {}
<POP 20bfe-20c02 Naked> Σ0 ↓ →0x20c0a ←0x20b2e
<MI 20bfe TST.B 0x20cc6> {}
<MI 20c00 BEQ 0x20c0a> {}
<POP 20c02-20c06 Naked> Σ0 ↓ →0x20c0a
<MI 20c02 TST.B 0x20cdd> {}
<MI 20c04 BEQ 0x20c0a> {}
<POP 20c06-20c0a Naked> Σ0 ↓
<Call 0x20c06 0x20852> {}
<POP 20c0a-20c3e Naked> Σ0 ↓ ←0x20bfe ←0x20c02
<Blob 0x20c0a [2] 0x20cc6> Δ-2 {[«2»]}
<Blob 0x20c0c [4] 0x20cc8> Δ-4 {[«2»]|[«4»]}
<Blob 0x20c12 [4] 0x20ccc> Δ-4 {[«2»]|[«4»]|[«4»]}
<Blob 0x20c18 [4] 0x20cd0> Δ-4 {[«2»]|[«4»]|[«4»]|[«4»]}
<Blob 0x20c1e [2] 0x20cd4> Δ-2 {[«2»]|[«4»]|[«4»]|[«4»]|[«2»]}
<Blob 0x20c24 [8] 0x20cd5> Δ-8 {[«2»]|[«4»]|[«4»]|[«4»]|[«2»]|[«8»]}
<Call 0x20c36 0x204a0> {[«2»]|[«4»]|[«4»]|[«4»]|[«2»]|[«8»]}
<POP 20c3a-20c3e StackAdj> Δ+24 {}
<POP 20c3e-20c44 Naked> Σ0
<Call 0x20c3e 0x10284> {}
?exit
@ 20c52
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 20c52-20cba Body>
<POP 20c52-20c68 Prologue> Σ0 ↓
<POP 20c68-20cb2 Naked> Σ0 ↓
<Blob 0x20c68 [14] @> Δ-14 {[«14""»]}
<Const 0x20c74 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 20c78-20c7a StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x20c7a 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 20c8c-20c8e StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20c8e MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20c92 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20c94 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20c96 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x20c98 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 20c9e-20ca0 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x20ca0 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20ca6-20ca8 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x20ca8 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 20cae-20cb2 StackAdj> Δ+20 {}
<POP 20cb2-20cba Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.77a33085d35afd5b 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 0a 96 | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 0c ea | | .PTR 0x20cea 00020010 code.end: 00020010 00 02 0c ba | | .PTR 0x20cba 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 0c 52 | R | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 01 dc | | .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 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00020118 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00020126 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00020134 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00020146 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 0002015e 52 75 6e 6e |Runn | .TXT 'Runn' 00020162 69 6e 67 20 |ing | .TXT 'ing ' 00020166 46 52 55 5f |FRU_ | .TXT 'FRU_' 0002016a 50 20 |P | .TXT 'P ' 0002016c 46 52 |FR | .TXT 'FR' 0002016e 55 20 |U | .XXX[0x2] 00020170 50 33 55 43 4f 44 45 20 |P3UCODE | .TXT 'P3UCODE ' 00020178 50 33 52 41 4d 53 20 20 |P3RAMS | .TXT 'P3RAMS ' 00020182 50 33 52 41 4d 53 20 20 |P3RAMS | .TXT 'P3RAMS ' 0002018c 50 33 52 41 4d 53 20 20 |P3RAMS | .TXT 'P3RAMS ' 00020196 50 33 52 41 4d 53 20 20 |P3RAMS | .TXT 'P3RAMS ' 000201a0 50 33 52 41 4d 53 20 20 |P3RAMS | .TXT 'P3RAMS ' 000201aa 50 33 52 41 4d 53 20 20 |P3RAMS | .TXT 'P3RAMS ' 000201b4 50 33 52 41 4d 53 20 20 |P3RAMS | .TXT 'P3RAMS ' 000201be 50 33 52 41 4d 53 20 20 |P3RAMS | .TXT 'P3RAMS ' 000201c8 50 33 52 41 4d 53 20 20 |P3RAMS | .TXT 'P3RAMS ' 000201d2 50 33 52 41 4d 53 20 20 |P3RAMS | .TXT 'P3RAMS ' 000201dc ; -------------------------------------------------------------------------------------- 000201dc ; OMSI PASCAL Function 000201dc ; <LVAR 0x00e 1(r)> 000201dc ; <LVAR 0x00a 4(r)> 000201dc ; <LVAR 0x008 1(r)> 000201dc ; -------------------------------------------------------------------------------------- 000201dc EXP_FAIL: 000201dc 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 000201e0 bf d5 | | CMPA.L (A5),A7 000201e2 62 06 |b | BHI 0x201ea 000201e4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000201e8 4e 76 |Nv | TRAPV 000201ea de fc 00 74 | t | ADDA.W #0x74,A7 000201ee 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 000201f2 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000201f8 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 000201fe 72 01 |r | MOVEQ.L #0x01,D1 00020200 74 0d |t | MOVEQ.L #0x0d,D2 00020202 76 1e |v | MOVEQ.L #0x1e,D3 00020204 78 12 |x | MOVEQ.L #0x12,D4 00020206 7a 0e |z | MOVEQ.L #0x0e,D5 00020208 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002020e 41 fa ff 36 |A 6 | LEA.L 0x20146,A0 00020212 70 08 |p | MOVEQ.L #0x08,D0 00020214 3f 20 |? | MOVE.W -(A0),-(A7) 00020216 51 c8 ff fc |Q | DBF D0,0x20214 0002021a 59 4f |YO | SUBQ.L #0x4,A7 0002021c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020220 3f 01 |? | MOVE.W D1,-(A7) 00020222 3f 04 |? | MOVE.W D4,-(A7) 00020224 4e 93 |N | JSR (A3) 00020226 50 4f |PO | ADDQ.L #0x8,A7 00020228 4e 94 |N | JSR (A4) 0002022a 50 4f |PO | ADDQ.L #0x8,A7 0002022c 20 4f | O | MOVEA.L A7,A0 0002022e 43 fa fe da |C | LEA.L 0x2010a,A1 00020232 70 0c |p | MOVEQ.L #0x0c,D0 00020234 10 d9 | | MOVE.B (A1)+,(A0)+ 00020236 51 c8 ff fc |Q | DBF D0,0x20234 0002023a 51 4f |QO | SUBQ.L #0x8,A7 0002023c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020240 3f 01 |? | MOVE.W D1,-(A7) 00020242 3f 02 |? | MOVE.W D2,-(A7) 00020244 4e 93 |N | JSR (A3) 00020246 54 4f |TO | ADDQ.L #0x2,A7 00020248 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 0002024c 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00020252 54 4f |TO | ADDQ.L #0x2,A7 00020254 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002025a 50 4f |PO | ADDQ.L #0x8,A7 0002025c 4e 94 |N | JSR (A4) 0002025e de c4 | | ADDA.W D4,A7 00020260 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00020264 b0 c1 | | CMPA.W D1,A0 00020266 67 48 |gH | BEQ 0x202b0 00020268 9e c5 | | SUBA.W D5,A7 0002026a 22 4f |"O | MOVEA.L A7,A1 0002026c 45 fa fe aa |E | LEA.L 0x20118,A2 00020270 70 0c |p | MOVEQ.L #0x0c,D0 00020272 12 da | | MOVE.B (A2)+,(A1)+ 00020274 51 c8 ff fc |Q | DBF D0,0x20272 00020278 9e c3 | | SUBA.W D3,A7 0002027a 22 4f |"O | MOVEA.L A7,A1 0002027c 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00020280 70 1d |p | MOVEQ.L #0x1d,D0 00020282 12 d8 | | MOVE.B (A0)+,(A1)+ 00020284 51 c8 ff fc |Q | DBF D0,0x20282 00020288 51 4f |QO | SUBQ.L #0x8,A7 0002028a 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 0002028e 3f 01 |? | MOVE.W D1,-(A7) 00020290 3f 02 |? | MOVE.W D2,-(A7) 00020292 4e 93 |N | JSR (A3) 00020294 58 4f |XO | ADDQ.L #0x4,A7 00020296 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002029a 3f 01 |? | MOVE.W D1,-(A7) 0002029c 3f 03 |? | MOVE.W D3,-(A7) 0002029e 4e 93 |N | JSR (A3) 000202a0 50 4f |PO | ADDQ.L #0x8,A7 000202a2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000202a8 50 4f |PO | ADDQ.L #0x8,A7 000202aa 4e 94 |N | JSR (A4) 000202ac de fc 00 30 | 0 | ADDA.W #0x30,A7 000202b0 9e c5 | | SUBA.W D5,A7 000202b2 20 4f | O | MOVEA.L A7,A0 000202b4 43 fa fe 70 |C p | LEA.L 0x20126,A1 000202b8 70 0c |p | MOVEQ.L #0x0c,D0 000202ba 10 d9 | | MOVE.B (A1)+,(A0)+ 000202bc 51 c8 ff fc |Q | DBF D0,0x202ba 000202c0 51 4f |QO | SUBQ.L #0x8,A7 000202c2 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000202c6 3f 01 |? | MOVE.W D1,-(A7) 000202c8 3f 02 |? | MOVE.W D2,-(A7) 000202ca 4e 93 |N | JSR (A3) 000202cc 54 4f |TO | ADDQ.L #0x2,A7 000202ce 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 000202d2 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 000202d8 54 4f |TO | ADDQ.L #0x2,A7 000202da 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000202e0 50 4f |PO | ADDQ.L #0x8,A7 000202e2 4e 94 |N | JSR (A4) 000202e4 5d 4f |]O | SUBQ.L #0x6,A7 000202e6 20 4f | O | MOVEA.L A7,A0 000202e8 43 fa fe 5c |C \ | LEA.L 0x20146,A1 000202ec 70 16 |p | MOVEQ.L #0x16,D0 000202ee 10 d9 | | MOVE.B (A1)+,(A0)+ 000202f0 51 c8 ff fc |Q | DBF D0,0x202ee 000202f4 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000202f8 59 4f |YO | SUBQ.L #0x4,A7 000202fa 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000202fe 3f 01 |? | MOVE.W D1,-(A7) 00020300 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00020304 4e 93 |N | JSR (A3) 00020306 50 4f |PO | ADDQ.L #0x8,A7 00020308 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002030e de c3 | | ADDA.W D3,A7 00020310 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00020314 4e 5e |N^ | UNLK A6 00020316 4e 75 |Nu | RTS 00020318 ; -------------------------------------------------------------------------------------- 00020318 ; OMSI PASCAL Function 00020318 ; <LVAR 0x02a 4(r)> 00020318 ; <LVAR 0x028 1(r)> 00020318 ; <LVAR 0x026 1(r)> 00020318 ; <LVAR 0x024 1(r)> 00020318 ; <LVAR 0x020 4(r)> 00020318 ; <LVAR 0x01c 4(r)> 00020318 ; <LVAR 0x018 4(r)> 00020318 ; <LVAR 0x014 4(r)> 00020318 ; <LVAR 0x010 4(r)> 00020318 ; <LVAR 0x00c 4(r)> 00020318 ; <LVAR 0x008 4(r)> 00020318 ; -------------------------------------------------------------------------------------- 00020318 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 ; Spelunked 0002031c bf d5 | | CMPA.L (A5),A7 0002031e 62 06 |b | BHI 0x20326 00020320 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020324 4e 76 |Nv | TRAPV 00020326 de fc 00 3a | : | ADDA.W #0x3a,A7 0002032a 48 e7 c0 e8 |H | MOVEM.L A4+A2+A1+A0+D1+D0,-(A7) 0002032e 43 f8 00 00 |C | LEA.L 0x0,A1 00020332 45 f9 00 01 05 2c |E , | LEA.L IPC_GetString(VAR retval : String),A2 00020338 70 0c |p | MOVEQ.L #0x0c,D0 0002033a 72 01 |r | MOVEQ.L #0x01,D1 0002033c 3f 3a fe 2c |?: , | MOVE.W 0x2016a,-(A7) 00020340 59 4f |YO | SUBQ.L #0x4,A7 00020342 1e ba fe 28 | ( | MOVE.B 0x2016c,(A7) 00020346 1f 7a fe 25 00 01 | z % | MOVE.B 0x2016d,(A7+0x1) 0002034c 1f 7a fe 20 00 02 | z | MOVE.B 0x2016e,(A7+0x2) 00020352 51 4f |QO | SUBQ.L #0x8,A7 00020354 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020358 3f 01 |? | MOVE.W D1,-(A7) 0002035a 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 0002035e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020364 2e ae 00 2a |. * | MOVE.L (A6+0x2a),(A7) 00020368 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002036e 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00020372 3f 01 |? | MOVE.W D1,-(A7) 00020374 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00020378 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002037e 50 4f |PO | ADDQ.L #0x8,A7 00020380 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020386 de c0 | | ADDA.W D0,A7 00020388 28 5f |(_ | MOVEA.L (A7)+,A4 0002038a 5c 4f |\O | ADDQ.L #0x6,A7 0002038c 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020392 1f 2e 00 28 | . ( | MOVE.B (A6+0x28),-(A7) 00020396 48 57 |HW | PEA.L (A7) 00020398 48 51 |HQ | PEA.L (A1) 0002039a 48 51 |HQ | PEA.L (A1) 0002039c 4e b9 00 01 04 fc |N | JSR IPC_PutVar(src : Pointer; length : Long ; type : Long) 000203a2 de c0 | | ADDA.W D0,A7 000203a4 1e ae 00 26 | & | MOVE.B (A6+0x26),(A7) 000203a8 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 000203ae 1e ae 00 24 | $ | MOVE.B (A6+0x24),(A7) 000203b2 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 000203b8 54 4f |TO | ADDQ.L #0x2,A7 000203ba 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 000203c0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000203c4 2f 0c |/ | MOVE.L A4,-(A7) 000203c6 48 78 00 01 |Hx | PEA.L 0x1 000203ca 1f 01 | | MOVE.B D1,-(A7) 000203cc 48 50 |HP | PEA.L (A0) 000203ce 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 000203d4 de fc 00 0e | | ADDA.W #0xe,A7 000203d8 4a 10 |J | TST.B (A0) 000203da 66 5e |f^ | BNE 0x2043a 000203dc 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000203e2 20 6e 00 20 | n | MOVEA.L (A6+0x20),A0 000203e6 48 50 |HP | PEA.L (A0) 000203e8 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 000203ee 58 4f |XO | ADDQ.L #0x4,A7 000203f0 20 6e 00 1c | n | MOVEA.L (A6+0x1c),A0 000203f4 48 50 |HP | PEA.L (A0) 000203f6 4e 92 |N | JSR (A2) 000203f8 58 4f |XO | ADDQ.L #0x4,A7 000203fa 20 6e 00 18 | n | MOVEA.L (A6+0x18),A0 000203fe 48 50 |HP | PEA.L (A0) 00020400 4e 92 |N | JSR (A2) 00020402 58 4f |XO | ADDQ.L #0x4,A7 00020404 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0 00020408 48 50 |HP | PEA.L (A0) 0002040a 4e 92 |N | JSR (A2) 0002040c 58 4f |XO | ADDQ.L #0x4,A7 0002040e 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00020412 48 50 |HP | PEA.L (A0) 00020414 48 51 |HQ | PEA.L (A1) 00020416 48 51 |HQ | PEA.L (A1) 00020418 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 0002041e de c0 | | ADDA.W D0,A7 00020420 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020424 48 50 |HP | PEA.L (A0) 00020426 48 51 |HQ | PEA.L (A1) 00020428 48 78 00 07 |Hx | PEA.L 0x7 0002042c 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 00020432 de c0 | | ADDA.W D0,A7 00020434 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 0002043a 4c df 17 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A4 0002043e 4e 5e |N^ | UNLK A6 00020440 4e 75 |Nu | RTS 00020442 ; -------------------------------------------------------------------------------------- 00020442 ; OMSI PASCAL Function 00020442 ; <LVAR 0x010 4(r)> 00020442 ; <LVAR 0x00c 4(r)> 00020442 ; <LVAR 0x008 4(r)> 00020442 ; -------------------------------------------------------------------------------------- 00020442 4e 56 ff ec |NV | LINK.W A6,#0xffec 00020446 bf d5 | | CMPA.L (A5),A7 00020448 62 06 |b | BHI 0x20450 0002044a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002044e 4e 76 |Nv | TRAPV 00020450 de fc 00 14 | | ADDA.W #0x14,A7 00020454 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00020458 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 0002045e 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00020462 48 50 |HP | PEA.L (A0) 00020464 48 78 00 00 |Hx | PEA.L 0x0 00020468 48 78 00 00 |Hx | PEA.L 0x0 0002046c 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 00020472 de fc 00 0c | | ADDA.W #0xc,A7 00020476 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002047a 48 50 |HP | PEA.L (A0) 0002047c 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 00020482 58 4f |XO | ADDQ.L #0x4,A7 00020484 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020488 48 50 |HP | PEA.L (A0) 0002048a 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 00020490 58 4f |XO | ADDQ.L #0x4,A7 00020492 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 00020498 4c df 01 00 |L | MOVEM.L (A7)+,A0 0002049c 4e 5e |N^ | UNLK A6 0002049e 4e 75 |Nu | RTS 000204a0 ; -------------------------------------------------------------------------------------- 000204a0 ; OMSI PASCAL Function 000204a0 ; <LVAR 0x01e 1(r)> 000204a0 ; <LVAR 0x01a 4(r)> 000204a0 ; <LVAR 0x016 4(r)> 000204a0 ; <LVAR 0x012 4(r)> 000204a0 ; <LVAR 0x010 1(r)> 000204a0 ; <LVAR 0x00c 4(r)> 000204a0 ; <LVAR 0x008 4(r)> 000204a0 ; -------------------------------------------------------------------------------------- 000204a0 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 000204a4 bf d5 | | CMPA.L (A5),A7 000204a6 62 06 |b | BHI 0x204ae 000204a8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000204ac 4e 76 |Nv | TRAPV 000204ae de fc 00 20 | | ADDA.W #0x20,A7 000204b2 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 000204b6 41 f9 00 01 05 08 |A | LEA.L IPC_PutString(a : String),A0 000204bc 43 f8 00 00 |C | LEA.L 0x0,A1 000204c0 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000204c6 1f 2e 00 1e | . | MOVE.B (A6+0x1e),-(A7) 000204ca 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 000204d0 54 4f |TO | ADDQ.L #0x2,A7 000204d2 2f 2e 00 1a |/. | MOVE.L (A6+0x1a),-(A7) 000204d6 4e 90 |N | JSR (A0) 000204d8 2e ae 00 16 |. | MOVE.L (A6+0x16),(A7) 000204dc 4e 90 |N | JSR (A0) 000204de 2e ae 00 12 |. | MOVE.L (A6+0x12),(A7) 000204e2 4e 90 |N | JSR (A0) 000204e4 54 4f |TO | ADDQ.L #0x2,A7 000204e6 1e ae 00 10 | | MOVE.B (A6+0x10),(A7) 000204ea 48 57 |HW | PEA.L (A7) 000204ec 48 51 |HQ | PEA.L (A1) 000204ee 48 51 |HQ | PEA.L (A1) 000204f0 4e b9 00 01 04 fc |N | JSR IPC_PutVar(src : Pointer; length : Long ; type : Long) 000204f6 de fc 00 0a | | ADDA.W #0xa,A7 000204fa 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 000204fe 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020502 48 57 |HW | PEA.L (A7) 00020504 48 51 |HQ | PEA.L (A1) 00020506 48 78 00 07 |Hx | PEA.L 0x7 0002050a 4e b9 00 01 04 fc |N | JSR IPC_PutVar(src : Pointer; length : Long ; type : Long) 00020510 de fc 00 14 | | ADDA.W #0x14,A7 00020514 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 0002051a 42 27 |B' | CLR.B -(A7) 0002051c 48 78 00 01 |Hx | PEA.L 0x1 00020520 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020526 5c 4f |\O | ADDQ.L #0x6,A7 00020528 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 0002052c 4e 5e |N^ | UNLK A6 0002052e 4e 75 |Nu | RTS 00020530 ; -------------------------------------------------------------------------------------- 00020530 ; OMSI PASCAL Function 00020530 ; <LVAR 0x024 4(r)> 00020530 ; <LVAR 0x022 1(r)> 00020530 ; <LVAR 0x020 1(r)> 00020530 ; <LVAR 0x01c 4(r)> 00020530 ; <LVAR 0x018 4(r)> 00020530 ; <LVAR 0x014 4(r)> 00020530 ; <LVAR 0x010 4(r)> 00020530 ; <LVAR 0x00c 4(r)> 00020530 ; <LVAR 0x008 4(r)> 00020530 ; -------------------------------------------------------------------------------------- 00020530 4e 56 ff d0 |NV | LINK.W A6,#0xffd0 ; Spelunked 00020534 bf d5 | | CMPA.L (A5),A7 00020536 62 06 |b | BHI 0x2053e 00020538 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002053c 4e 76 |Nv | TRAPV 0002053e de fc 00 30 | 0 | ADDA.W #0x30,A7 00020542 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 00020546 43 f8 00 00 |C | LEA.L 0x0,A1 0002054a 70 0c |p | MOVEQ.L #0x0c,D0 0002054c 72 01 |r | MOVEQ.L #0x01,D1 0002054e 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020554 1f 2e 00 22 | . " | MOVE.B (A6+0x22),-(A7) 00020558 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 0002055e 1e ae 00 20 | | MOVE.B (A6+0x20),(A7) 00020562 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00020568 54 4f |TO | ADDQ.L #0x2,A7 0002056a 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 00020570 2f 3a fb f4 |/: | MOVE.L 0x20166,-(A7) 00020574 2f 3a fb ec |/: | MOVE.L 0x20162,-(A7) 00020578 2f 3a fb e4 |/: | MOVE.L 0x2015e,-(A7) 0002057c 51 4f |QO | SUBQ.L #0x8,A7 0002057e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020582 3f 01 |? | MOVE.W D1,-(A7) 00020584 3f 00 |? | MOVE.W D0,-(A7) 00020586 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002058c 2e ae 00 24 |. $ | MOVE.L (A6+0x24),(A7) 00020590 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020596 58 4f |XO | ADDQ.L #0x4,A7 00020598 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002059e 50 4f |PO | ADDQ.L #0x8,A7 000205a0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000205a6 de fc 00 10 | | ADDA.W #0x10,A7 000205aa 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000205ae 2f 2e 00 24 |/. $ | MOVE.L (A6+0x24),-(A7) 000205b2 48 78 00 01 |Hx | PEA.L 0x1 000205b6 1f 01 | | MOVE.B D1,-(A7) 000205b8 48 50 |HP | PEA.L (A0) 000205ba 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 000205c0 de fc 00 0e | | ADDA.W #0xe,A7 000205c4 4a 10 |J | TST.B (A0) 000205c6 66 5c |f\ | BNE 0x20624 000205c8 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000205ce 20 6e 00 1c | n | MOVEA.L (A6+0x1c),A0 000205d2 48 50 |HP | PEA.L (A0) 000205d4 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 000205da 58 4f |XO | ADDQ.L #0x4,A7 000205dc 20 6e 00 18 | n | MOVEA.L (A6+0x18),A0 000205e0 48 50 |HP | PEA.L (A0) 000205e2 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 000205e8 58 4f |XO | ADDQ.L #0x4,A7 000205ea 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0 000205ee 48 50 |HP | PEA.L (A0) 000205f0 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 000205f6 58 4f |XO | ADDQ.L #0x4,A7 000205f8 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 000205fc 48 50 |HP | PEA.L (A0) 000205fe 48 51 |HQ | PEA.L (A1) 00020600 48 51 |HQ | PEA.L (A1) 00020602 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 00020608 de c0 | | ADDA.W D0,A7 0002060a 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002060e 48 50 |HP | PEA.L (A0) 00020610 48 51 |HQ | PEA.L (A1) 00020612 48 78 00 07 |Hx | PEA.L 0x7 00020616 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 0002061c de c0 | | ADDA.W D0,A7 0002061e 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 00020624 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 00020628 4e 5e |N^ | UNLK A6 0002062a 4e 75 |Nu | RTS 0002062c ; -------------------------------------------------------------------------------------- 0002062c ; OMSI PASCAL Function 0002062c ; <LVAR 0x028 1(r)> 0002062c ; <LVAR 0x024 4(r)> 0002062c ; <LVAR 0x022 1(r)> 0002062c ; <LVAR 0x020 1(r)> 0002062c ; <LVAR 0x01c 4(r)> 0002062c ; <LVAR 0x018 4(r)> 0002062c ; <LVAR 0x014 4(r)> 0002062c ; <LVAR 0x010 4(r)> 0002062c ; <LVAR 0x00c 4(r)> 0002062c ; <LVAR 0x008 4(r)> 0002062c ; -------------------------------------------------------------------------------------- 0002062c 4e 56 ff ce |NV | LINK.W A6,#0xffce 00020630 bf d5 | | CMPA.L (A5),A7 00020632 62 06 |b | BHI 0x2063a 00020634 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020638 4e 76 |Nv | TRAPV 0002063a de fc 00 30 | 0 | ADDA.W #0x30,A7 0002063e 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 00020642 43 f8 00 00 |C | LEA.L 0x0,A1 00020646 70 0c |p | MOVEQ.L #0x0c,D0 00020648 72 01 |r | MOVEQ.L #0x01,D1 0002064a 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020650 1f 2e 00 28 | . ( | MOVE.B (A6+0x28),-(A7) 00020654 48 57 |HW | PEA.L (A7) 00020656 48 51 |HQ | PEA.L (A1) 00020658 48 51 |HQ | PEA.L (A1) 0002065a 4e b9 00 01 04 fc |N | JSR IPC_PutVar(src : Pointer; length : Long ; type : Long) 00020660 de c0 | | ADDA.W D0,A7 00020662 1e ae 00 22 | " | MOVE.B (A6+0x22),(A7) 00020666 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 0002066c 1e ae 00 20 | | MOVE.B (A6+0x20),(A7) 00020670 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00020676 54 4f |TO | ADDQ.L #0x2,A7 00020678 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 0002067e 2f 3a fa e6 |/: | MOVE.L 0x20166,-(A7) 00020682 2f 3a fa de |/: | MOVE.L 0x20162,-(A7) 00020686 2f 3a fa d6 |/: | MOVE.L 0x2015e,-(A7) 0002068a 51 4f |QO | SUBQ.L #0x8,A7 0002068c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020690 3f 01 |? | MOVE.W D1,-(A7) 00020692 3f 00 |? | MOVE.W D0,-(A7) 00020694 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002069a 2e ae 00 24 |. $ | MOVE.L (A6+0x24),(A7) 0002069e 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000206a4 58 4f |XO | ADDQ.L #0x4,A7 000206a6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000206ac 50 4f |PO | ADDQ.L #0x8,A7 000206ae 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000206b4 de fc 00 10 | | ADDA.W #0x10,A7 000206b8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000206bc 2f 2e 00 24 |/. $ | MOVE.L (A6+0x24),-(A7) 000206c0 48 78 00 01 |Hx | PEA.L 0x1 000206c4 1f 01 | | MOVE.B D1,-(A7) 000206c6 48 50 |HP | PEA.L (A0) 000206c8 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 000206ce de fc 00 0e | | ADDA.W #0xe,A7 000206d2 4a 10 |J | TST.B (A0) 000206d4 66 5c |f\ | BNE 0x20732 000206d6 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000206dc 20 6e 00 1c | n | MOVEA.L (A6+0x1c),A0 000206e0 48 50 |HP | PEA.L (A0) 000206e2 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 000206e8 58 4f |XO | ADDQ.L #0x4,A7 000206ea 20 6e 00 18 | n | MOVEA.L (A6+0x18),A0 000206ee 48 50 |HP | PEA.L (A0) 000206f0 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 000206f6 58 4f |XO | ADDQ.L #0x4,A7 000206f8 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0 000206fc 48 50 |HP | PEA.L (A0) 000206fe 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 00020704 58 4f |XO | ADDQ.L #0x4,A7 00020706 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 0002070a 48 50 |HP | PEA.L (A0) 0002070c 48 51 |HQ | PEA.L (A1) 0002070e 48 51 |HQ | PEA.L (A1) 00020710 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 00020716 de c0 | | ADDA.W D0,A7 00020718 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002071c 48 50 |HP | PEA.L (A0) 0002071e 48 51 |HQ | PEA.L (A1) 00020720 48 78 00 07 |Hx | PEA.L 0x7 00020724 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 0002072a de c0 | | ADDA.W D0,A7 0002072c 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 00020732 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 00020736 4e 5e |N^ | UNLK A6 00020738 4e 75 |Nu | RTS 0002073a ; -------------------------------------------------------------------------------------- 0002073a ; OMSI PASCAL Function 0002073a ; <LVAR 0x02c 1(r)> 0002073a ; <LVAR 0x028 4(r)> 0002073a ; <LVAR 0x026 1(r)> 0002073a ; <LVAR 0x024 1(r)> 0002073a ; <LVAR 0x022 1(r)> 0002073a ; <LVAR 0x020 1(r)> 0002073a ; <LVAR 0x01c 4(r)> 0002073a ; <LVAR 0x018 4(r)> 0002073a ; <LVAR 0x014 4(r)> 0002073a ; <LVAR 0x010 4(r)> 0002073a ; <LVAR 0x00c 4(r)> 0002073a ; <LVAR 0x008 4(r)> 0002073a ; -------------------------------------------------------------------------------------- 0002073a 4e 56 ff ca |NV | LINK.W A6,#0xffca 0002073e bf d5 | | CMPA.L (A5),A7 00020740 62 06 |b | BHI 0x20748 00020742 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020746 4e 76 |Nv | TRAPV 00020748 de fc 00 34 | 4 | ADDA.W #0x34,A7 0002074c 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 00020750 43 f8 00 00 |C | LEA.L 0x0,A1 00020754 45 f9 00 01 05 02 |E | LEA.L IPC_PutBool(a : Bool),A2 0002075a 70 0c |p | MOVEQ.L #0x0c,D0 0002075c 72 01 |r | MOVEQ.L #0x01,D1 0002075e 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020764 1f 2e 00 2c | . , | MOVE.B (A6+0x2c),-(A7) 00020768 48 57 |HW | PEA.L (A7) 0002076a 48 51 |HQ | PEA.L (A1) 0002076c 48 51 |HQ | PEA.L (A1) 0002076e 4e b9 00 01 04 fc |N | JSR IPC_PutVar(src : Pointer; length : Long ; type : Long) 00020774 de c0 | | ADDA.W D0,A7 00020776 1e ae 00 26 | & | MOVE.B (A6+0x26),(A7) 0002077a 4e 92 |N | JSR (A2) 0002077c 1e ae 00 24 | $ | MOVE.B (A6+0x24),(A7) 00020780 4e 92 |N | JSR (A2) 00020782 1e ae 00 22 | " | MOVE.B (A6+0x22),(A7) 00020786 4e 92 |N | JSR (A2) 00020788 1e ae 00 20 | | MOVE.B (A6+0x20),(A7) 0002078c 4e 92 |N | JSR (A2) 0002078e 54 4f |TO | ADDQ.L #0x2,A7 00020790 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 00020796 2f 3a f9 ce |/: | MOVE.L 0x20166,-(A7) 0002079a 2f 3a f9 c6 |/: | MOVE.L 0x20162,-(A7) 0002079e 2f 3a f9 be |/: | MOVE.L 0x2015e,-(A7) 000207a2 51 4f |QO | SUBQ.L #0x8,A7 000207a4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000207a8 3f 01 |? | MOVE.W D1,-(A7) 000207aa 3f 00 |? | MOVE.W D0,-(A7) 000207ac 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000207b2 2e ae 00 28 |. ( | MOVE.L (A6+0x28),(A7) 000207b6 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000207bc 58 4f |XO | ADDQ.L #0x4,A7 000207be 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000207c4 50 4f |PO | ADDQ.L #0x8,A7 000207c6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000207cc de fc 00 10 | | ADDA.W #0x10,A7 000207d0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000207d4 2f 2e 00 28 |/. ( | MOVE.L (A6+0x28),-(A7) 000207d8 48 78 00 01 |Hx | PEA.L 0x1 000207dc 1f 01 | | MOVE.B D1,-(A7) 000207de 48 50 |HP | PEA.L (A0) 000207e0 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 000207e6 de fc 00 0e | | ADDA.W #0xe,A7 000207ea 4a 10 |J | TST.B (A0) 000207ec 66 5c |f\ | BNE 0x2084a 000207ee 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000207f4 20 6e 00 1c | n | MOVEA.L (A6+0x1c),A0 000207f8 48 50 |HP | PEA.L (A0) 000207fa 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 00020800 58 4f |XO | ADDQ.L #0x4,A7 00020802 20 6e 00 18 | n | MOVEA.L (A6+0x18),A0 00020806 48 50 |HP | PEA.L (A0) 00020808 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 0002080e 58 4f |XO | ADDQ.L #0x4,A7 00020810 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0 00020814 48 50 |HP | PEA.L (A0) 00020816 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 0002081c 58 4f |XO | ADDQ.L #0x4,A7 0002081e 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00020822 48 50 |HP | PEA.L (A0) 00020824 48 51 |HQ | PEA.L (A1) 00020826 48 51 |HQ | PEA.L (A1) 00020828 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 0002082e de c0 | | ADDA.W D0,A7 00020830 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020834 48 50 |HP | PEA.L (A0) 00020836 48 51 |HQ | PEA.L (A1) 00020838 48 78 00 07 |Hx | PEA.L 0x7 0002083c 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 00020842 de c0 | | ADDA.W D0,A7 00020844 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 0002084a 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 0002084e 4e 5e |N^ | UNLK A6 00020850 4e 75 |Nu | RTS 00020852 ; -------------------------------------------------------------------------------------- 00020852 ; OMSI PASCAL Function 00020852 ; <LVAR -0x004 1(rw)> 00020852 ; -------------------------------------------------------------------------------------- 00020852 4e 56 ff ba |NV | LINK.W A6,#0xffba 00020856 bf d5 | | CMPA.L (A5),A7 00020858 62 06 |b | BHI 0x20860 0002085a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002085e 4e 76 |Nv | TRAPV 00020860 de fc 00 42 | B | ADDA.W #0x42,A7 00020864 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7) 00020868 45 f9 00 02 0c c8 |E | LEA.L 0x20cc8,A2 0002086e 47 f9 00 02 0c de |G | LEA.L 0x20cde,A3 00020874 72 01 |r | MOVEQ.L #0x01,D1 00020876 48 52 |HR | PEA.L (A2) 00020878 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002087e 59 4f |YO | SUBQ.L #0x4,A7 00020880 20 4f | O | MOVEA.L A7,A0 00020882 43 fa f8 ec |C | LEA.L 0x20170,A1 00020886 70 06 |p | MOVEQ.L #0x06,D0 00020888 10 d9 | | MOVE.B (A1)+,(A0)+ 0002088a 51 c8 ff fc |Q | DBF D0,0x20888 0002088e 59 4f |YO | SUBQ.L #0x4,A7 00020890 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020894 3f 01 |? | MOVE.W D1,-(A7) 00020896 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 0002089a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000208a0 50 4f |PO | ADDQ.L #0x8,A7 000208a2 24 9f |$ | MOVE.L (A7)+,(A2) 000208a4 50 4f |PO | ADDQ.L #0x8,A7 000208a6 1d 41 ff fc | A | MOVE.B D1,(A6-0x4) 000208aa 1f 2e ff fc | . | MOVE.B (A6-0x4),-(A7) 000208ae 59 4f |YO | SUBQ.L #0x4,A7 000208b0 2f 12 |/ | MOVE.L (A2),-(A7) 000208b2 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000208b8 58 4f |XO | ADDQ.L #0x4,A7 000208ba 10 39 00 02 0c c4 | 9 | MOVE.B 0x20cc4,D0 000208c0 48 80 |H | EXTB.W D0 000208c2 41 81 |A | CHK.W D1,D0 000208c4 1f 00 | | MOVE.B D0,-(A7) 000208c6 10 39 00 02 0c c5 | 9 | MOVE.B 0x20cc5,D0 000208cc 48 80 |H | EXTB.W D0 000208ce 41 81 |A | CHK.W D1,D0 000208d0 1f 00 | | MOVE.B D0,-(A7) 000208d2 1f 01 | | MOVE.B D1,-(A7) 000208d4 1f 01 | | MOVE.B D1,-(A7) 000208d6 48 79 00 02 0c c6 |Hy | PEA.L 0x20cc6 000208dc 48 79 00 02 0c cc |Hy | PEA.L 0x20ccc 000208e2 48 79 00 02 0c d0 |Hy | PEA.L 0x20cd0 000208e8 48 79 00 02 0c d4 |Hy | PEA.L 0x20cd4 000208ee 48 79 00 02 0c d5 |Hy | PEA.L 0x20cd5 000208f4 48 53 |HS | PEA.L (A3) 000208f6 4e ba fe 42 |N B | JSR 0x2073a 000208fa de fc 00 26 | & | ADDA.W #0x26,A7 000208fe 4a 13 |J | TST.B (A3) 00020900 67 10 |g | BEQ 0x20912 00020902 1f 3c 00 06 | < | MOVE.B #0x06,-(A7) 00020906 48 78 00 01 |Hx | PEA.L 0x1 0002090a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020910 5c 4f |\O | ADDQ.L #0x6,A7 00020912 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3 00020916 4e 5e |N^ | UNLK A6 00020918 4e 75 |Nu | RTS 0002091a ; -------------------------------------------------------------------------------------- 0002091a ; OMSI PASCAL Function 0002091a ; -------------------------------------------------------------------------------------- 0002091a 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 ; Spelunked 0002091e bf d5 | | CMPA.L (A5),A7 00020920 62 06 |b | BHI 0x20928 00020922 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020926 4e 76 |Nv | TRAPV 00020928 de fc 00 38 | 8 | ADDA.W #0x38,A7 0002092c 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 00020930 43 f9 00 02 0c c8 |C | LEA.L 0x20cc8,A1 00020936 45 f9 00 02 0c de |E | LEA.L 0x20cde,A2 0002093c 72 01 |r | MOVEQ.L #0x01,D1 0002093e 48 51 |HQ | PEA.L (A1) 00020940 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020946 58 4f |XO | ADDQ.L #0x4,A7 00020948 41 ee 00 12 |A | LEA.L (A6+0x12),A0 0002094c 70 04 |p | MOVEQ.L #0x04,D0 0002094e 3f 20 |? | MOVE.W -(A0),-(A7) 00020950 51 c8 ff fc |Q | DBF D0,0x2094e 00020954 59 4f |YO | SUBQ.L #0x4,A7 00020956 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002095a 3f 01 |? | MOVE.W D1,-(A7) 0002095c 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00020960 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020966 50 4f |PO | ADDQ.L #0x8,A7 00020968 22 9f |" | MOVE.L (A7)+,(A1) 0002096a 54 4f |TO | ADDQ.L #0x2,A7 0002096c 2e 91 |. | MOVE.L (A1),(A7) 0002096e 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020974 58 4f |XO | ADDQ.L #0x4,A7 00020976 10 39 00 02 0c c4 | 9 | MOVE.B 0x20cc4,D0 0002097c 48 80 |H | EXTB.W D0 0002097e 41 81 |A | CHK.W D1,D0 00020980 1f 00 | | MOVE.B D0,-(A7) 00020982 10 39 00 02 0c c5 | 9 | MOVE.B 0x20cc5,D0 00020988 48 80 |H | EXTB.W D0 0002098a 41 81 |A | CHK.W D1,D0 0002098c 1f 00 | | MOVE.B D0,-(A7) 0002098e 48 79 00 02 0c c6 |Hy | PEA.L 0x20cc6 00020994 48 79 00 02 0c cc |Hy | PEA.L 0x20ccc 0002099a 48 79 00 02 0c d0 |Hy | PEA.L 0x20cd0 000209a0 48 79 00 02 0c d4 |Hy | PEA.L 0x20cd4 000209a6 48 79 00 02 0c d5 |Hy | PEA.L 0x20cd5 000209ac 48 52 |HR | PEA.L (A2) 000209ae 4e ba fb 80 |N | JSR 0x20530 000209b2 de fc 00 20 | | ADDA.W #0x20,A7 000209b6 4a 12 |J | TST.B (A2) 000209b8 67 10 |g | BEQ 0x209ca 000209ba 1f 3c 00 06 | < | MOVE.B #0x06,-(A7) 000209be 48 78 00 01 |Hx | PEA.L 0x1 000209c2 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000209c8 5c 4f |\O | ADDQ.L #0x6,A7 000209ca 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 000209ce 4e 5e |N^ | UNLK A6 000209d0 4e 75 |Nu | RTS 000209d2 ; -------------------------------------------------------------------------------------- 000209d2 ; OMSI PASCAL Function 000209d2 ; <LVAR 0x012 1(r)> 000209d2 ; <LVAR -0x004 1(rw)> 000209d2 ; -------------------------------------------------------------------------------------- 000209d2 4e 56 ff be |NV | LINK.W A6,#0xffbe 000209d6 bf d5 | | CMPA.L (A5),A7 000209d8 62 06 |b | BHI 0x209e0 000209da 44 fc 00 02 |D | MOVE.W #0x2,CCR 000209de 4e 76 |Nv | TRAPV 000209e0 de fc 00 3e | > | ADDA.W #0x3e,A7 000209e4 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7) 000209e8 43 f9 00 02 0c c8 |C | LEA.L 0x20cc8,A1 000209ee 45 f9 00 02 0c de |E | LEA.L 0x20cde,A2 000209f4 72 01 |r | MOVEQ.L #0x01,D1 000209f6 74 0a |t | MOVEQ.L #0x0a,D2 000209f8 48 51 |HQ | PEA.L (A1) 000209fa 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020a00 58 4f |XO | ADDQ.L #0x4,A7 00020a02 41 ee 00 12 |A | LEA.L (A6+0x12),A0 00020a06 70 04 |p | MOVEQ.L #0x04,D0 00020a08 3f 20 |? | MOVE.W -(A0),-(A7) 00020a0a 51 c8 ff fc |Q | DBF D0,0x20a08 00020a0e 59 4f |YO | SUBQ.L #0x4,A7 00020a10 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a14 3f 01 |? | MOVE.W D1,-(A7) 00020a16 3f 02 |? | MOVE.W D2,-(A7) 00020a18 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020a1e 50 4f |PO | ADDQ.L #0x8,A7 00020a20 22 9f |" | MOVE.L (A7)+,(A1) 00020a22 de c2 | | ADDA.W D2,A7 00020a24 1d 6e 00 12 ff fc | n | MOVE.B (A6+0x12),(A6-0x4) 00020a2a 1f 2e ff fc | . | MOVE.B (A6-0x4),-(A7) 00020a2e 59 4f |YO | SUBQ.L #0x4,A7 00020a30 2f 11 |/ | MOVE.L (A1),-(A7) 00020a32 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020a38 58 4f |XO | ADDQ.L #0x4,A7 00020a3a 10 39 00 02 0c c4 | 9 | MOVE.B 0x20cc4,D0 00020a40 48 80 |H | EXTB.W D0 00020a42 41 81 |A | CHK.W D1,D0 00020a44 1f 00 | | MOVE.B D0,-(A7) 00020a46 10 39 00 02 0c c5 | 9 | MOVE.B 0x20cc5,D0 00020a4c 48 80 |H | EXTB.W D0 00020a4e 41 81 |A | CHK.W D1,D0 00020a50 1f 00 | | MOVE.B D0,-(A7) 00020a52 48 79 00 02 0c c6 |Hy | PEA.L 0x20cc6 00020a58 48 79 00 02 0c cc |Hy | PEA.L 0x20ccc 00020a5e 48 79 00 02 0c d0 |Hy | PEA.L 0x20cd0 00020a64 48 79 00 02 0c d4 |Hy | PEA.L 0x20cd4 00020a6a 48 79 00 02 0c d5 |Hy | PEA.L 0x20cd5 00020a70 48 52 |HR | PEA.L (A2) 00020a72 4e ba fb b8 |N | JSR 0x2062c 00020a76 de fc 00 22 | " | ADDA.W #0x22,A7 00020a7a 4a 12 |J | TST.B (A2) 00020a7c 67 10 |g | BEQ 0x20a8e 00020a7e 1f 3c 00 06 | < | MOVE.B #0x06,-(A7) 00020a82 48 78 00 01 |Hx | PEA.L 0x1 00020a86 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020a8c 5c 4f |\O | ADDQ.L #0x6,A7 00020a8e 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2 00020a92 4e 5e |N^ | UNLK A6 00020a94 4e 75 |Nu | RTS 00020a96 ; -------------------------------------------------------------------------------------- 00020a96 ; OMSI PASCAL Function 00020a96 ; -------------------------------------------------------------------------------------- 00020a96 START: 00020a96 4f fa 00 08 |O | LEA.L MAIN,A7 00020a9a 4e f9 00 01 02 80 |N | JMP ?start_program 00020aa0 MAIN: 00020aa0 45 f9 00 02 0c dd |E | LEA.L 0x20cdd,A2 00020aa6 47 f9 00 02 0c c6 |G | LEA.L 0x20cc6,A3 00020aac 49 f9 00 02 0c c2 |I | LEA.L 0x20cc2,A4 00020ab2 72 0c |r | MOVEQ.L #0x0c,D1 00020ab4 74 01 |t | MOVEQ.L #0x01,D2 00020ab6 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020abc 48 54 |HT | PEA.L (A4) 00020abe 48 79 00 02 0c c4 |Hy | PEA.L 0x20cc4 00020ac4 48 79 00 02 0c c5 |Hy | PEA.L 0x20cc5 00020aca 4e ba f9 76 |N v | JSR 0x20442 00020ace de c1 | | ADDA.W D1,A7 00020ad0 42 80 |B | CLR.L D0 00020ad2 10 14 | | MOVE.B (A4),D0 00020ad4 41 bc 00 0b |A | CHK.W #0xb,D0 00020ad8 13 c0 00 02 0c c3 | | MOVE.B D0,0x20cc3 00020ade 48 79 00 02 0c c8 |Hy | PEA.L 0x20cc8 00020ae4 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020aea 58 4f |XO | ADDQ.L #0x4,A7 00020aec 14 82 | | MOVE.B D2,(A2) 00020aee 10 39 00 02 0c c3 | 9 | MOVE.B 0x20cc3,D0 00020af4 48 80 |H | EXTB.W D0 00020af6 0c 40 00 0a | @ | CMPI.W #0x000a,D0 00020afa 62 00 00 e2 |b | BHI switch@0x20b00[0x1] 00020afe d0 40 | @ | ADD.W D0,D0 00020b00 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020b08 00 16 | | .CONST 0x16 ; [0x0] -> 0x20b1e 00020b0a 00 d6 | | .CONST 0xd6 ; [0x1] -> 0x20bde 00020b0c 00 30 | 0 | .CONST 0x30 ; [0x2] -> 0x20b38 00020b0e 00 42 | B | .CONST 0x42 ; [0x3] -> 0x20b4a 00020b10 00 54 | T | .CONST 0x54 ; [0x4] -> 0x20b5c 00020b12 00 66 | f | .CONST 0x66 ; [0x5] -> 0x20b6e 00020b14 00 78 | x | .CONST 0x78 ; [0x6] -> 0x20b80 00020b16 00 8a | | .CONST 0x8a ; [0x7] -> 0x20b92 00020b18 00 9a | | .CONST 0x9a ; [0x8] -> 0x20ba2 00020b1a 00 ae | | .CONST 0xae ; [0x9] -> 0x20bb6 00020b1c 00 c2 | | .CONST 0xc2 ; [0xa] -> 0x20bca 00020b1e switch@0x20b00[0x0]: 00020b1e 1f 3c 00 05 | < | MOVE.B #0x05,-(A7) 00020b22 41 fa f6 5e |A ^ | LEA.L 0x20182,A0 00020b26 70 04 |p | MOVEQ.L #0x04,D0 00020b28 3f 20 |? | MOVE.W -(A0),-(A7) 00020b2a 51 c8 ff fc |Q | DBF D0,0x20b28 00020b2e 4e ba fe a2 |N | JSR 0x209d2 00020b32 de c1 | | ADDA.W D1,A7 00020b34 60 00 00 c8 |` | BRA 0x20bfe 00020b38 switch@0x20b00[0x2]: 00020b38 1f 3c 00 04 | < | MOVE.B #0x04,-(A7) 00020b3c 41 fa f6 4e |A N | LEA.L 0x2018c,A0 00020b40 70 04 |p | MOVEQ.L #0x04,D0 00020b42 3f 20 |? | MOVE.W -(A0),-(A7) 00020b44 51 c8 ff fc |Q | DBF D0,0x20b42 00020b48 60 e4 |` | BRA 0x20b2e 00020b4a switch@0x20b00[0x3]: 00020b4a 1f 3c 00 07 | < | MOVE.B #0x07,-(A7) 00020b4e 41 fa f6 46 |A F | LEA.L 0x20196,A0 00020b52 70 04 |p | MOVEQ.L #0x04,D0 00020b54 3f 20 |? | MOVE.W -(A0),-(A7) 00020b56 51 c8 ff fc |Q | DBF D0,0x20b54 00020b5a 60 d2 |` | BRA 0x20b2e 00020b5c switch@0x20b00[0x4]: 00020b5c 1f 3c 00 06 | < | MOVE.B #0x06,-(A7) 00020b60 41 fa f6 3e |A > | LEA.L 0x201a0,A0 00020b64 70 04 |p | MOVEQ.L #0x04,D0 00020b66 3f 20 |? | MOVE.W -(A0),-(A7) 00020b68 51 c8 ff fc |Q | DBF D0,0x20b66 00020b6c 60 c0 |` | BRA 0x20b2e 00020b6e switch@0x20b00[0x5]: 00020b6e 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020b72 41 fa f6 36 |A 6 | LEA.L 0x201aa,A0 00020b76 70 04 |p | MOVEQ.L #0x04,D0 00020b78 3f 20 |? | MOVE.W -(A0),-(A7) 00020b7a 51 c8 ff fc |Q | DBF D0,0x20b78 00020b7e 60 ae |` | BRA 0x20b2e 00020b80 switch@0x20b00[0x6]: 00020b80 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00020b84 41 fa f6 2e |A . | LEA.L 0x201b4,A0 00020b88 70 04 |p | MOVEQ.L #0x04,D0 00020b8a 3f 20 |? | MOVE.W -(A0),-(A7) 00020b8c 51 c8 ff fc |Q | DBF D0,0x20b8a 00020b90 60 9c |` | BRA 0x20b2e 00020b92 switch@0x20b00[0x7]: 00020b92 1f 01 | | MOVE.B D1,-(A7) 00020b94 41 fa f6 28 |A ( | LEA.L 0x201be,A0 00020b98 70 04 |p | MOVEQ.L #0x04,D0 00020b9a 3f 20 |? | MOVE.W -(A0),-(A7) 00020b9c 51 c8 ff fc |Q | DBF D0,0x20b9a 00020ba0 60 8c |` | BRA 0x20b2e 00020ba2 switch@0x20b00[0x8]: 00020ba2 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 00020ba6 41 fa f6 20 |A | LEA.L 0x201c8,A0 00020baa 70 04 |p | MOVEQ.L #0x04,D0 00020bac 3f 20 |? | MOVE.W -(A0),-(A7) 00020bae 51 c8 ff fc |Q | DBF D0,0x20bac 00020bb2 60 00 ff 7a |` z | BRA 0x20b2e 00020bb6 switch@0x20b00[0x9]: 00020bb6 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020bba 41 fa f6 16 |A | LEA.L 0x201d2,A0 00020bbe 70 04 |p | MOVEQ.L #0x04,D0 00020bc0 3f 20 |? | MOVE.W -(A0),-(A7) 00020bc2 51 c8 ff fc |Q | DBF D0,0x20bc0 00020bc6 60 00 ff 66 |` f | BRA 0x20b2e 00020bca switch@0x20b00[0xa]: 00020bca 1f 3c 00 0f | < | MOVE.B #0x0f,-(A7) 00020bce 41 fa f6 0c |A | LEA.L EXP_FAIL,A0 00020bd2 70 04 |p | MOVEQ.L #0x04,D0 00020bd4 3f 20 |? | MOVE.W -(A0),-(A7) 00020bd6 51 c8 ff fc |Q | DBF D0,0x20bd4 00020bda 60 00 ff 52 |` R | BRA 0x20b2e 00020bde switch@0x20b00[0x1]: 00020bde 16 82 | | MOVE.B D2,(A3) 00020be0 42 12 |B | CLR.B (A2) 00020be2 48 79 00 02 0c cc |Hy | PEA.L 0x20ccc 00020be8 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020bee 58 4f |XO | ADDQ.L #0x4,A7 00020bf0 48 79 00 02 0c d0 |Hy | PEA.L 0x20cd0 00020bf6 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020bfc 58 4f |XO | ADDQ.L #0x4,A7 00020bfe 4a 13 |J | TST.B (A3) 00020c00 67 08 |g | BEQ 0x20c0a 00020c02 4a 12 |J | TST.B (A2) 00020c04 67 04 |g | BEQ 0x20c0a 00020c06 4e ba fc 4a |N J | JSR 0x20852 00020c0a 1f 13 | | MOVE.B (A3),-(A7) 00020c0c 2f 39 00 02 0c c8 |/9 | MOVE.L 0x20cc8,-(A7) 00020c12 2f 39 00 02 0c cc |/9 | MOVE.L 0x20ccc,-(A7) 00020c18 2f 39 00 02 0c d0 |/9 | MOVE.L 0x20cd0,-(A7) 00020c1e 1f 39 00 02 0c d4 | 9 | MOVE.B 0x20cd4,-(A7) 00020c24 51 4f |QO | SUBQ.L #0x8,A7 00020c26 20 4f | O | MOVEA.L A7,A0 00020c28 43 f9 00 02 0c d5 |C | LEA.L 0x20cd5,A1 00020c2e 70 07 |p | MOVEQ.L #0x07,D0 00020c30 10 d9 | | MOVE.B (A1)+,(A0)+ 00020c32 51 c8 ff fc |Q | DBF D0,0x20c30 00020c36 4e ba f8 68 |N h | JSR 0x204a0 00020c3a de fc 00 18 | | ADDA.W #0x18,A7 00020c3e 4e b9 00 01 02 84 |N | JSR ?exit 00020c44 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00020c52 ; -------------------------------------------------------------------------------------- 00020c52 ; OMSI PASCAL Function 00020c52 ; <LVAR 0x008 1(r)> 00020c52 ; -------------------------------------------------------------------------------------- 00020c52 PROG_FAIL: 00020c52 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00020c56 bf d5 | | CMPA.L (A5),A7 00020c58 62 06 |b | BHI 0x20c60 00020c5a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020c5e 4e 76 |Nv | TRAPV 00020c60 de fc 00 2c | , | ADDA.W #0x2c,A7 00020c64 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020c68 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00020c6c 70 06 |p | MOVEQ.L #0x06,D0 00020c6e 3f 20 |? | MOVE.W -(A0),-(A7) 00020c70 51 c8 ff fc |Q | DBF D0,0x20c6e 00020c74 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00020c78 51 4f |QO | SUBQ.L #0x8,A7 00020c7a 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020c7e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020c82 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00020c86 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020c8c 58 4f |XO | ADDQ.L #0x4,A7 00020c8e 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00020c92 48 80 |H | EXTB.W D0 00020c94 48 c0 |H | EXTW.L D0 00020c96 2f 00 |/ | MOVE.L D0,-(A7) 00020c98 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020c9e 58 4f |XO | ADDQ.L #0x4,A7 00020ca0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020ca6 50 4f |PO | ADDQ.L #0x8,A7 00020ca8 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020cae de fc 00 14 | | ADDA.W #0x14,A7 00020cb2 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020cb6 4e 5e |N^ | UNLK A6 00020cb8 4e 75 |Nu | RTS