|
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: 3072 (0xc00)
Types: M200
Notes: M200_PROGRAM
Names: »P2UCSA.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »P2UCSA.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »P2UCSA.M200«
└─ ⟦this⟧ »P2UCSA.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »P2UCSA.M200«
@ 2016c
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 2016c-202a8 Body>
<POP 2016c-20182 Prologue> Σ0 ↓
<POP 20182-20198 RegCacheLoad> Σ0 ↓
<POP 20198-201f8 Naked> Σ0 ↓ →0x20240
<Call 0x20198 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2019e [18] @> Δ-18 {[«18""»]}
<POP 201aa-201ac StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x201ac 18> {[«18""»]|[$$Experiment error :]}
<Call 0x201b8 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 201ba-201bb StackAdj> Δ+22 ↓ {}
<Blob 0x201bb [14] @> Δ-14 {[«14""»]}
<POP 201ca-201cc StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x201cc 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 201d6-201d8 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 201d8 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x201dc 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 201e2-201e4 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x201e4 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 201ea-201ec StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x201ec 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 201ee-201f0 StackAdj> Δ+18 {}
<MI 201f0 MOVEA.L (A6+0xa),A0> {}
<MI 201f4 CMPA.W #0x01,A0> {}
<MI 201f6 BEQ 0x20240> {}
<POP 201f8-20240 Naked> Σ0 ↓
<Blob 0x201f8 [14] @> Δ-14 {[«14""»]}
<Blob 0x20208 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 20218-2021a StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x2021a 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 20224-20226 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x20226> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x20226 12> Δ-4
<Const 0x2022a 0x1.2> Δ-2
<Const 0x2022c 0x1e.2> Δ-2
<Call 0x2022e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20230-20232 StackAdj> Δ+8
<Call 0x20232 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20238-2023a StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x2023a 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2023c-20240 StackAdj> Δ+48 {}
<POP 20240-202a0 Naked> Σ0 ↓ ←0x20198
<Blob 0x20240 [14] @> Δ-14 {[«14""»]}
<POP 20250-20252 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20252 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 2025c-2025e StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 2025e MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x20262 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 20268-2026a StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x2026a 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20270-20272 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20272 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20274-20275 StackAdj> Δ+18 ↓ {}
<Blob 0x20275 [24] @> Δ-24 {[«24""»]}
<Const 0x20284 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 20288-2028a StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x2028a 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x20298 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 2029e-202a0 StackAdj> Δ+30 {}
<POP 202a0-202a8 Epilogue> Σ0
@ 202a8
<LVAR 0x00e 1(r)>
<LVAR 0x00c 1(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 2(r)>
<POP 202a8-202f4 Body>
<POP 202a8-202be Prologue> Σ0 ↓
<POP 202be-202ec Naked> Σ0 ↓
<Call 0x202be 0x207e2> {}
exp_PREP_READ_REG.VAL()
<MI 202c4 MOVE.B (A6+0xe),-(A7)> Δ-2 {[2, '(A6+0xe)']}
<MI 202c8 MOVE.B (A6+0xc),-(A7)> Δ-2 {[2, '(A6+0xe)']|[2, '(A6+0xc)']}
<Pointer.fp 0x202cc <LVAR -0x004 @ 2(r)>> Δ-4 {[2, '(A6+0xe)']|[2, '(A6+0xc)']|[@@-4]}
<Call 0x202d0 0x20786> {[2, '(A6+0xe)']|[2, '(A6+0xc)']|[@@-4]}
exp_REG_TO_LOOP.VAL(Sw_1, Sw_1, &Sr_2)
<POP 202d6-202d8 StackAdj> Δ+6 {[2, '(A6+0xe)']}
<MI 202d8 MOVE.W (A6-0x4),(A7)> {[2, '(A6-0x4)']}
<MI 202dc CLR.B -(A7)> Δ-2 {[2, '(A6-0x4)']|[#0]}
<MI 202de MOVEA.L (A6+0x8),A0> {[2, '(A6-0x4)']|[#0]}
<MI 202e2 PEA.L (A0)> Δ-4 {[2, '(A6-0x4)']|[#0]|[4, '^(A0)']}
<Call 0x202e4 0x207c4> {[2, '(A6-0x4)']|[#0]|[4, '^(A0)']}
exp_READ_B_REG.VAL(Sw_2, Sw_1, &Sr_8)
<POP 202ea-202ec StackAdj> Δ+8 {}
<POP 202ec-202f4 Epilogue> Σ0
@ 202f4
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 202f4-203bc Body>
<POP 202f4-2030a Prologue> Σ0 ↓
<POP 2030a-20318 RegCacheLoad> Σ0 ↓
<POP 20318-203b4 Naked> Σ0 ↓
<Const 0x20318 0xffc2.2> Δ-2 {[#65474]}
<MI 2031c CLR.B -(A7)> Δ-2 {[#65474]|[#0]}
<Pointer.fp 0x2031e <LVAR -0x010 @ 4(r)>> Δ-4 {[#65474]|[#0]|[@@-16]}
<Call 0x20322 0x20768> {[#65474]|[#0]|[@@-16]}
exp_READ_RF_B.TYP(Sw_2, Sw_1, &Sr_8)
<POP 20328-2032a StackAdj> Δ+6 {[#65474]}
<POP 2032a-2032b StackAdj> Δ+2 {}
<Const 0x2032b 0xffc2.2> Δ-2 {[#65474]}
<MI 2032e CLR.B -(A7)> Δ-2 {[#65474]|[#0]}
<Pointer.fp 0x20330 <LVAR -0x008 @ 4(r)>> Δ-4 {[#65474]|[#0]|[@@-8]}
<Call 0x20334 0x207a6> {[#65474]|[#0]|[@@-8]}
exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8)
<POP 2033a-2033c StackAdj> Δ+8 {}
<MI 2033c MOVEA.L (A6+0xc),A0> {}
<MI 20340 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<MI 20344 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Blob 0x20348 [4] @> Δ-4 {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]}
<Blob 0x2034c [4] @> Δ-4 {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]}
<POP 20350-20352 StackAdj> Δ-2 {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]|[-2-]}
<Pointer.sp 0x20352 10> Δ-4 {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]|[-2-]|[^^10]}
<Const 0x20356 0x0.4> Δ-4 {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]|[-2-]|[^^10]|[##0]}
<Const 0x20358 0x7.4> Δ-4 {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]|[-2-]|[^^10]|[##0]|[##7]}
<Pointer.sp 0x2035a 14> Δ-4 {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]|[-2-]|[^^10]|[##0]|[##7]|[^^14]}
<Const 0x2035e 0x0.4> Δ-4 {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]|[-2-]|[^^10]|[##0]|[##7]|[^^14]|[##0]}
<Const 0x20360 0x7.4> Δ-4 {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]|[-2-]|[^^10]|[##0]|[##7]|[^^14]|[##0]|[##7]}
<Call 0x20362 0x104a8> {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]|[-2-]|[^^10]|[##0]|[##7]|[^^14]|[##0]|[##7]}
?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
<POP 20368-2036a StackAdj> Δ+24 {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]|[-2-]}
<MI 2036a MOVE.B (A7)+,D0> Δ+2 {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]}
<MI 2036c NEG.B D0> {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]}
<MI 2036e ADDQ.B #0x1,D0> {[4, '(A6-0xc)']|[4, '(A6-0x10)']|[«4""»]|[«4""»]}
<POP 20370-20372 StackAdj> Δ+16 {}
<MI 20372 EXTB.W D0> {}
<POP 0x20374 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 20376 MOVE.B D0,(A0)> {}
<MI 20378 MOVEA.L (A6+0x8),A0> {}
<MI 2037c MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<MI 20380 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x4)']|[4, '(A6-0x8)']}
<Blob 0x20384 [4] @> Δ-4 {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]}
<Blob 0x20388 [4] @> Δ-4 {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]|[«4""»]}
<POP 2038c-2038e StackAdj> Δ-2 {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]|[«4""»]|[-2-]}
<Pointer.sp 0x2038e 10> Δ-4 {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]|[«4""»]|[-2-]|[^^10]}
<Const 0x20392 0x0.4> Δ-4 {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]|[«4""»]|[-2-]|[^^10]|[##0]}
<Const 0x20394 0x7.4> Δ-4 {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]|[«4""»]|[-2-]|[^^10]|[##0]|[##7]}
<Pointer.sp 0x20396 14> Δ-4 {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]|[«4""»]|[-2-]|[^^10]|[##0]|[##7]|[^^14]}
<Const 0x2039a 0x0.4> Δ-4 {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]|[«4""»]|[-2-]|[^^10]|[##0]|[##7]|[^^14]|[##0]}
<Const 0x2039c 0x7.4> Δ-4 {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]|[«4""»]|[-2-]|[^^10]|[##0]|[##7]|[^^14]|[##0]|[##7]}
<Call 0x2039e 0x104a8> {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]|[«4""»]|[-2-]|[^^10]|[##0]|[##7]|[^^14]|[##0]|[##7]}
?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
<POP 203a4-203a6 StackAdj> Δ+24 {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]|[«4""»]|[-2-]}
<MI 203a6 MOVE.B (A7)+,D0> Δ+2 {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]|[«4""»]}
<MI 203a8 NEG.B D0> {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]|[«4""»]}
<MI 203aa ADDQ.B #0x1,D0> {[4, '(A6-0x4)']|[4, '(A6-0x8)']|[«4""»]|[«4""»]}
<POP 203ac-203ae StackAdj> Δ+16 {}
<MI 203ae EXTB.W D0> {}
<POP 0x203b0 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 203b2 MOVE.B D0,(A0)> {}
<POP 203b4-203bc Epilogue> Σ0
@ 203bc
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 203bc-20402 Body>
<POP 203bc-203d2 Prologue> Σ0 ↓
<POP 203d2-203fa Naked> Σ0 ↓
<Const 0x203d2 0xffc1.2> Δ-2 {[#65473]}
<MI 203d6 CLR.B -(A7)> Δ-2 {[#65473]|[#0]}
<MI 203d8 MOVEA.L (A6+0xc),A0> {[#65473]|[#0]}
<MI 203dc PEA.L (A0)> Δ-4 {[#65473]|[#0]|[4, '^(A0)']}
<Call 0x203de 0x20768> {[#65473]|[#0]|[4, '^(A0)']}
exp_READ_RF_B.TYP(Sw_2, Sw_1, &Sr_8)
<POP 203e4-203e6 StackAdj> Δ+6 {[#65473]}
<POP 203e6-203e7 StackAdj> Δ+2 {}
<Const 0x203e7 0xffc1.2> Δ-2 {[#65473]}
<MI 203ea CLR.B -(A7)> Δ-2 {[#65473]|[#0]}
<MI 203ec MOVEA.L (A6+0x8),A0> {[#65473]|[#0]}
<MI 203f0 PEA.L (A0)> Δ-4 {[#65473]|[#0]|[4, '^(A0)']}
<Call 0x203f2 0x207a6> {[#65473]|[#0]|[4, '^(A0)']}
exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8)
<POP 203f8-203fa StackAdj> Δ+8 {}
<POP 203fa-20402 Epilogue> Σ0
@ 20402
START
<POP 20402--0001 Body>
<POP 20402-2040c Prologue> Σ0
<POP 2040c-2042a RegCacheLoad> Σ0 ↓
<POP 2042a-20492 Naked> Σ0 ↓
<Call 0x2042a 0x10398> {}
FSCALL_10398
<Const 0x20430 0x20897.4> Δ-4 {[##133271]}
<Const 0x20436 0x20898.4> Δ-4 {[##133271]|[##133272]}
<Call 0x2043c 0x10544> {[##133271]|[##133272]}
IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool)
<POP 20442-20444 StackAdj> Δ+8 {}
<Const 0x20444 0xf.4> Δ-4 {[##15]}
<Call 0x20448 0x104d8> {[##15]}
ExpInit(a : Long)
<POP 2044e-20450 StackAdj> Δ+2 {[-2-]}
<POP 20450-20451 StackAdj> Δ+2 {}
<Blob 0x20451 [2] 0x20898> Δ-2 {[«2»]}
<Call 0x20456 0x104d2> {[«2»]}
SetExpInitDone(a : Byte)
<POP 2045c-2045d StackAdj> Δ+2 {}
<Blob 0x2045d [2] @> Δ-2 {[«2""»]}
<Blob 0x20460 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x20464 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 20468-2046a StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x2046a 6> {[«2""»]|[«2""»]|[«2""»]|[$$P2UCSA]}
<MI 2047a MOVE.L (A7)+,0x2087e> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 20480-20482 StackAdj> Δ+6 {}
<Const 0x20482 0x20882.4> Δ-4 {[##133250]}
<Call 0x20488 0x102b8> {[##133250]}
NewString(VAR a : String)
<POP 2048e-20490 StackAdj> Δ+4 {}
<MI 20490 MOVEQ.L #0x00,D0> {}
<POP 20492-204ae Naked> Σ0 ↓ →0x20492 ←0x20492
<MI 20492 MOVE.L D0,0x2089a> {}
<POP 0x20498 LimitCheck 0x0 ≤ D0 ≤ 0x7> {}
<MI 2049e LEA.L 0x20876,A0> {}
<MI 204a4 CLR.B (A0+D0.L+#0x19)> {}
<MI 204a8 ADDQ.L #0x1,D0> {}
<MI 204aa CMP.L #0x07,D0> {}
<MI 204ac BLE 0x20492> {}
<POP 204ae-204e2 Naked> Σ0 ↓ →0x206f6
<Const 0x204ae 0x1.2> Δ-2 {[#1]}
<MI 204b0 CLR.B -(A7)> Δ-2 {[#1]|[#0]}
<Const 0x204b2 0x2089e.4> Δ-4 {[#1]|[#0]|[##133278]}
<Call 0x204b8 0x202a8> {[#1]|[#0]|[##133278]}
<POP 204bc-204be StackAdj> Δ+8 {}
<MI 204be MOVE.B 0x208a5,0x20886> {}
<Const 0x204c8 0x208a6.4> Δ-4 {[##133286]}
<Const 0x204ca 0x208a7.4> Δ-4 {[##133286]|[##133287]}
<Call 0x204cc 0x202f4> {[##133286]|[##133287]}
<POP 204d0-204d2 StackAdj> Δ+8 {}
<MI 204d2 CLR.L D0> {}
<MI 204d4 MOVE.B 0x20886,D0> {}
<MI 204da CMPI.W #0x0015,D0> {}
<MI 204de BHI 0x206f6> {}
<POP 204e2-204ec Naked> Σ0 →0x20518 →0x20524 →0x20538 →0x20550 →0x20556 →0x2056e →0x20570 →0x2058c →0x205a4 →0x205a6 →0x205be →0x205c0 →0x205dc →0x205e2 →0x205fe →0x20600 →0x206be →0x206dc →0x206e6 →0x206ea →0x206ee →0x206f4
<MI 204e2 ADD.W D0,D0> {}
<MI 204e4 SWITCH D0.W> {}
<POP 20518-20524 Naked> Σ0 →0x20702 ←0x204e2
<MI 20518 MOVE.B #0x03,0x2088f> {}
<MI 2051a MOVE.B #0x04,0x20890> {}
<MI 20520 BRA 0x20702> {}
<POP 20524-20528 Naked> Σ0 ↓ →0x2052c ←0x204e2
<MI 20524 TST.B 0x208a7> {}
<MI 20526 BNE 0x2052c> {}
<POP 20528-2052c Naked> Σ0 →0x20534
<MI 20528 MOVE.B #0x03,0x2088f> {}
<MI 2052a BRA 0x20534> {}
<POP 2052c-20534 Naked> Σ0 ↓ ←0x20524
<MI 2052c MOVE.B #0x04,0x2088f> {}
<MI 2052e MOVE.B #0x03,0x20890> {}
<POP 20534-20538 Naked> Σ0 →0x20702 ←0x20528
<MI 20534 BRA 0x20702> {}
<POP 20538-2053c Naked> Σ0 ↓ →0x20540 ←0x204e2
<MI 20538 TST.B 0x208a7> {}
<MI 2053a BEQ 0x20540> {}
<POP 2053c-20540 Naked> Σ0 ↓ →0x20544
<MI 2053c TST.B 0x208a6> {}
<MI 2053e BEQ 0x20544> {}
<POP 20540-20544 Naked> Σ0 →0x2054c ←0x20538
<MI 20540 MOVE.B #0x03,0x2088f> {}
<MI 20542 BRA 0x2054c> {}
<POP 20544-2054c Naked> Σ0 ↓ ←0x2053c
<MI 20544 MOVE.B #0x04,0x2088f> {}
<MI 20546 MOVE.B #0x03,0x20890> {}
<POP 2054c-20550 Naked> Σ0 →0x20702 ←0x20540
<MI 2054c BRA 0x20702> {}
<POP 20550-20556 Naked> Σ0 →0x20702 ←0x204e2 ←0x2056e ←0x205a4 ←0x205be
<MI 20550 MOVE.B #0x03,0x2088f> {}
<MI 20552 BRA 0x20702> {}
<POP 20556-2055a Naked> Σ0 ↓ →0x2055e ←0x204e2
<MI 20556 TST.B 0x208a7> {}
<MI 20558 BEQ 0x2055e> {}
<POP 2055a-2055e Naked> Σ0 ↓ →0x20562
<MI 2055a TST.B 0x208a6> {}
<MI 2055c BEQ 0x20562> {}
<POP 2055e-20562 Naked> Σ0 →0x2056a ←0x20556
<MI 2055e MOVE.B #0x03,0x2088f> {}
<MI 20560 BRA 0x2056a> {}
<POP 20562-2056a Naked> Σ0 ↓ ←0x2055a
<MI 20562 MOVE.B #0x04,0x2088f> {}
<MI 20564 MOVE.B #0x03,0x20890> {}
<POP 2056a-2056e Naked> Σ0 →0x20702 ←0x2055e
<MI 2056a BRA 0x20702> {}
<POP 2056e-20570 Naked> Σ0 →0x20550 ←0x204e2
<MI 2056e BRA 0x20550> {}
<POP 20570-20574 Naked> Σ0 ↓ →0x20582 ←0x204e2
<MI 20570 TST.B 0x208a7> {}
<MI 20572 BEQ 0x20582> {}
<POP 20574-2057a Naked> Σ0 ↓ →0x20580
<MI 20574 MOVE.B #0x04,0x2088f> {}
<MI 20576 TST.B 0x208a6> {}
<MI 20578 BEQ 0x20580> {}
<POP 2057a-20580 Naked> Σ0 ↓
<MI 2057a MOVE.B #0x03,0x20890> {}
<POP 20580-20582 Naked> Σ0 →0x20588 ←0x20574
<MI 20580 BRA 0x20588> {}
<POP 20582-20586 Naked> Σ0 ↓ →0x20588 ←0x20570
<MI 20582 TST.B 0x208a6> {}
<MI 20584 BEQ 0x20588> {}
<POP 20586-20588 Naked> Σ0 ↓
<MI 20586 MOVE.B #0x03,0x2088f> {}
<POP 20588-2058c Naked> Σ0 →0x20702 ←0x20580 ←0x20582
<MI 20588 BRA 0x20702> {}
<POP 2058c-20590 Naked> Σ0 ↓ →0x20594 ←0x204e2
<MI 2058c TST.B 0x208a7> {}
<MI 2058e BEQ 0x20594> {}
<POP 20590-20594 Naked> Σ0 ↓ →0x20598
<MI 20590 TST.B 0x208a6> {}
<MI 20592 BEQ 0x20598> {}
<POP 20594-20598 Naked> Σ0 →0x205a0 ←0x2058c
<MI 20594 MOVE.B #0x03,0x2088f> {}
<MI 20596 BRA 0x205a0> {}
<POP 20598-205a0 Naked> Σ0 ↓ ←0x20590
<MI 20598 MOVE.B #0x04,0x2088f> {}
<MI 2059a MOVE.B #0x03,0x20890> {}
<POP 205a0-205a4 Naked> Σ0 →0x20702 ←0x20594
<MI 205a0 BRA 0x20702> {}
<POP 205a4-205a6 Naked> Σ0 →0x20550 ←0x204e2
<MI 205a4 BRA 0x20550> {}
<POP 205a6-205aa Naked> Σ0 ↓ →0x205ae ←0x204e2
<MI 205a6 TST.B 0x208a7> {}
<MI 205a8 BEQ 0x205ae> {}
<POP 205aa-205ae Naked> Σ0 ↓ →0x205b2
<MI 205aa TST.B 0x208a6> {}
<MI 205ac BEQ 0x205b2> {}
<POP 205ae-205b2 Naked> Σ0 →0x205ba ←0x205a6
<MI 205ae MOVE.B #0x03,0x2088f> {}
<MI 205b0 BRA 0x205ba> {}
<POP 205b2-205ba Naked> Σ0 ↓ ←0x205aa
<MI 205b2 MOVE.B #0x04,0x2088f> {}
<MI 205b4 MOVE.B #0x03,0x20890> {}
<POP 205ba-205be Naked> Σ0 →0x20702 ←0x205ae
<MI 205ba BRA 0x20702> {}
<POP 205be-205c0 Naked> Σ0 →0x20550 ←0x204e2
<MI 205be BRA 0x20550> {}
<POP 205c0-205c4 Naked> Σ0 ↓ →0x205d2 ←0x204e2
<MI 205c0 TST.B 0x208a7> {}
<MI 205c2 BEQ 0x205d2> {}
<POP 205c4-205ca Naked> Σ0 ↓ →0x205d0
<MI 205c4 MOVE.B #0x04,0x2088f> {}
<MI 205c6 TST.B 0x208a6> {}
<MI 205c8 BEQ 0x205d0> {}
<POP 205ca-205d0 Naked> Σ0 ↓
<MI 205ca MOVE.B #0x03,0x20890> {}
<POP 205d0-205d2 Naked> Σ0 →0x205d8 ←0x205c4
<MI 205d0 BRA 0x205d8> {}
<POP 205d2-205d6 Naked> Σ0 ↓ →0x205d8 ←0x205c0
<MI 205d2 TST.B 0x208a6> {}
<MI 205d4 BEQ 0x205d8> {}
<POP 205d6-205d8 Naked> Σ0 ↓
<MI 205d6 MOVE.B #0x03,0x2088f> {}
<POP 205d8-205dc Naked> Σ0 →0x20702 ←0x205d0 ←0x205d2
<MI 205d8 BRA 0x20702> {}
<POP 205dc-205e2 Naked> Σ0 →0x20702 ←0x204e2 ←0x205fe ←0x206e6
<MI 205dc MOVE.B #0x06,0x2088f> {}
<MI 205de BRA 0x20702> {}
<POP 205e2-205e6 Naked> Σ0 ↓ →0x205f4 ←0x204e2
<MI 205e2 TST.B 0x208a7> {}
<MI 205e4 BEQ 0x205f4> {}
<POP 205e6-205ec Naked> Σ0 ↓ →0x205f2
<MI 205e6 MOVE.B #0x04,0x2088f> {}
<MI 205e8 TST.B 0x208a6> {}
<MI 205ea BEQ 0x205f2> {}
<POP 205ec-205f2 Naked> Σ0 ↓
<MI 205ec MOVE.B #0x03,0x20890> {}
<POP 205f2-205f4 Naked> Σ0 →0x205fa ←0x205e6
<MI 205f2 BRA 0x205fa> {}
<POP 205f4-205f8 Naked> Σ0 ↓ →0x205fa ←0x205e2
<MI 205f4 TST.B 0x208a6> {}
<MI 205f6 BEQ 0x205fa> {}
<POP 205f8-205fa Naked> Σ0 ↓
<MI 205f8 MOVE.B #0x03,0x2088f> {}
<POP 205fa-205fe Naked> Σ0 →0x20702 ←0x205f2 ←0x205f4
<MI 205fa BRA 0x20702> {}
<POP 205fe-20600 Naked> Σ0 →0x205dc ←0x204e2
<MI 205fe BRA 0x205dc> {}
<POP 20600-20606 Naked> Σ0 ↓ →0x206ac ←0x204e2
<MI 20600 TST.B 0x208a6> {}
<MI 20602 BEQ 0x206ac> {}
<POP 20606-2060c Naked> Σ0 ↓ →0x206ac
<MI 20606 TST.B 0x208a7> {}
<MI 20608 BEQ 0x206ac> {}
<POP 2060c-2066c Naked> Σ0 Δ-32 ↓ →0x2069e
<Const 0x2060c 0x208a8.4> Δ-4 {[##133288]}
<Const 0x20612 0x208b0.4> Δ-4 {[##133288]|[##133296]}
<Call 0x20618 0x203bc> {[##133288]|[##133296]}
<POP 2061c-2061e StackAdj> Δ+4 {[##133288]}
<POP 2061e-2061f StackAdj> Δ+4 {}
<Blob 0x2061f [4] 0x208ac> Δ-4 {[«4»]}
<Blob 0x20624 [4] 0x208a8> Δ-4 {[«4»]|[«4»]}
<Blob 0x2062a [4] @> Δ-4 {[«4»]|[«4»]|[«4""»]}
<Blob 0x2062e [4] @> Δ-4 {[«4»]|[«4»]|[«4""»]|[«4""»]}
<Blob 0x20632 [4] 0x208b4> Δ-4 {[«4»]|[«4»]|[«4""»]|[«4""»]|[«4»]}
<Blob 0x20638 [4] 0x208b0> Δ-4 {[«4»]|[«4»]|[«4""»]|[«4""»]|[«4»]|[«4»]}
<Blob 0x2063e [4] @> Δ-4 {[«4»]|[«4»]|[«4""»]|[«4""»]|[«4»]|[«4»]|[«4""»]}
<Blob 0x20642 [4] @> Δ-4 {[«4»]|[«4»]|[«4""»]|[«4""»]|[«4»]|[«4»]|[«4""»]|[«4""»]}
<POP 20646-20648 StackAdj> Δ-2 {[«4»]|[«4»]|[«4""»]|[«4""»]|[«4»]|[«4»]|[«4""»]|[«4""»]|[-2-]}
<Pointer.sp 0x20648 26> Δ-4 {[«4»]|[«4»]|[«4""»]|[«4""»]|[«4»]|[«4»]|[«4""»]|[«4""»]|[-2-]|[^^26]}
<Const 0x2064c 0x0.4> Δ-4 {[«4»]|[«4»]|[«4""»]|[«4""»]|[«4»]|[«4»]|[«4""»]|[«4""»]|[-2-]|[^^26]|[##0]}
<Const 0x20650 0x7.4> Δ-4 {[«4»]|[«4»]|[«4""»]|[«4""»]|[«4»]|[«4»]|[«4""»]|[«4""»]|[-2-]|[^^26]|[##0]|[##7]}
<Pointer.sp 0x20654 30> Δ-4 {[«4»]|[«4»]|[«4""»]|[«4""»]|[«4»]|[«4»]|[«4""»]|[«4""»]|[-2-]|[^^26]|[##0]|[##7]|[^^30]}
<Const 0x20658 0x0.4> Δ-4 {[«4»]|[«4»]|[«4""»]|[«4""»]|[«4»]|[«4»]|[«4""»]|[«4""»]|[-2-]|[^^26]|[##0]|[##7]|[^^30]|[##0]}
<Const 0x2065c 0x7.4> Δ-4 {[«4»]|[«4»]|[«4""»]|[«4""»]|[«4»]|[«4»]|[«4""»]|[«4""»]|[-2-]|[^^26]|[##0]|[##7]|[^^30]|[##0]|[##7]}
<Call 0x20660 0x104a8> {[«4»]|[«4»]|[«4""»]|[«4""»]|[«4»]|[«4»]|[«4""»]|[«4""»]|[-2-]|[^^26]|[##0]|[##7]|[^^30]|[##0]|[##7]}
?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
<POP 20666-20668 StackAdj> Δ+24 {[«4»]|[«4»]|[«4""»]|[«4""»]|[«4»]|[«4»]|[«4""»]|[«4""»]|[-2-]}
<MI 20668 TST.B (A7)+> Δ+2 {[«4»]|[«4»]|[«4""»]|[«4""»]|[«4»]|[«4»]|[«4""»]|[«4""»]}
<MI 2066a BEQ 0x2069e> {[«4»]|[«4»]|[«4""»]|[«4""»]|[«4»]|[«4»]|[«4""»]|[«4""»]}
<POP 2066c-20692 Naked> Σ-32 ↓ →0x2069e
<POP 2066c-2066e StackAdj> Δ-2 {[-34-]}
<Pointer.sp 0x2066e 10> Δ-4 {[-34-]|[^^10]}
<Const 0x20672 0x0.4> Δ-4 {[-34-]|[^^10]|[##0]}
<Const 0x20676 0x7.4> Δ-4 {[-34-]|[^^10]|[##0]|[##7]}
<Pointer.sp 0x2067a 14> Δ-4 {[-34-]|[^^10]|[##0]|[##7]|[^^14]}
<Const 0x2067e 0x0.4> Δ-4 {[-34-]|[^^10]|[##0]|[##7]|[^^14]|[##0]}
<Const 0x20682 0x7.4> Δ-4 {[-34-]|[^^10]|[##0]|[##7]|[^^14]|[##0]|[##7]}
<Call 0x20686 0x104a8> {[-34-]|[^^10]|[##0]|[##7]|[^^14]|[##0]|[##7]}
?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
<POP 2068c-2068e StackAdj> Δ+24 {[-34-]}
<MI 2068e TST.B (A7)+> Δ+2 {[-32-]}
<MI 20690 BEQ 0x2069e> {[-32-]}
<POP 20692-2069e Naked> Σ-32 →0x206a6
<MI 20692 MOVE.B #0x02,0x2088f> {[-32-]}
<MI 20696 MOVE.B #0x06,0x20890> {[-32-]}
<MI 2069c BRA 0x206a6> {[-32-]}
<POP 2069e-206a6 Naked> Σ-32 ↓ ←0x2060c ←0x2066c
<MI 2069e MOVE.B #0x03,0x2088f> {[-32-]}
<MI 206a0 MOVE.B #0x04,0x20890> {[-32-]}
<POP 206a6-206ac Naked> Σ-32 Δ+32 →0x206bc ←0x20692
<POP 206a6-206aa StackAdj> Δ+32 {}
<MI 206aa BRA 0x206bc> {}
<POP 206ac-206b0 Naked> Σ0 ↓ →0x206b2 ←0x20600 ←0x20606
<MI 206ac TST.B 0x208a6> {}
<MI 206ae BEQ 0x206b2> {}
<POP 206b0-206b2 Naked> Σ0 ↓
<MI 206b0 MOVE.B #0x03,0x2088f> {}
<POP 206b2-206b6 Naked> Σ0 ↓ →0x206bc ←0x206ac
<MI 206b2 TST.B 0x208a7> {}
<MI 206b4 BEQ 0x206bc> {}
<POP 206b6-206bc Naked> Σ0 ↓
<MI 206b6 MOVE.B #0x04,0x20890> {}
<POP 206bc-206be Naked> Σ0 →0x20702 ←0x206a6 ←0x206b2
<MI 206bc BRA 0x20702> {}
<POP 206be-206c2 Naked> Σ0 ↓ →0x206ca ←0x204e2
<MI 206be TST.B 0x208a6> {}
<MI 206c0 BEQ 0x206ca> {}
<POP 206c2-206c6 Naked> Σ0 ↓ →0x206ca
<MI 206c2 TST.B 0x208a7> {}
<MI 206c4 BEQ 0x206ca> {}
<POP 206c6-206ca Naked> Σ0 →0x206da
<MI 206c6 MOVE.B #0x06,0x2088f> {}
<MI 206c8 BRA 0x206da> {}
<POP 206ca-206ce Naked> Σ0 ↓ →0x206d0 ←0x206be ←0x206c2
<MI 206ca TST.B 0x208a6> {}
<MI 206cc BEQ 0x206d0> {}
<POP 206ce-206d0 Naked> Σ0 ↓
<MI 206ce MOVE.B #0x03,0x2088f> {}
<POP 206d0-206d4 Naked> Σ0 ↓ →0x206da ←0x206ca
<MI 206d0 TST.B 0x208a7> {}
<MI 206d2 BEQ 0x206da> {}
<POP 206d4-206da Naked> Σ0 ↓
<MI 206d4 MOVE.B #0x04,0x20890> {}
<POP 206da-206dc Naked> Σ0 →0x20702 ←0x206c6 ←0x206d0
<MI 206da BRA 0x20702> {}
<POP 206dc-206de Naked> Σ0 ↓ ←0x204e2
<MI 206dc MOVE.B #0x07,0x2088f> {}
<POP 206de-206e6 Naked> Σ0 →0x20702 ←0x206ea
<MI 206de MOVE.B #0x06,0x20890> {}
<MI 206e4 BRA 0x20702> {}
<POP 206e6-206ea Naked> Σ0 →0x205dc ←0x204e2
<MI 206e6 BRA 0x205dc> {}
<POP 206ea-206ee Naked> Σ0 →0x206de ←0x204e2
<MI 206ea MOVE.B #0x03,0x2088f> {}
<MI 206ec BRA 0x206de> {}
<POP 206ee-206f4 Naked> Σ0 →0x20702 ←0x204e2
<MI 206ee MOVE.B #0x27,0x2088f> {}
<MI 206f2 BRA 0x20702> {}
<POP 206f4-206f6 Naked> Σ0 →0x20702 ←0x204e2
<MI 206f4 BRA 0x20702> {}
<POP 206f6-20702 Naked> Σ0 ↓ ←0x204ae
<MI 206f6 MOVE.B #0x27,0x2088f> {}
<MI 206fa MOVE.B #0x16,0x20886> {}
<POP 20702-20704 Naked> Σ0 ↓ ←0x20518 ←0x20534 ←0x2054c ←0x20550 ←0x2056a ←0x20588 ←0x205a0 ←0x205ba ←0x205d8 ←0x205dc ←0x205fa ←0x206bc ←0x206da ←0x206de ←0x206ee ←0x206f4
<MI 20702 MOVEQ.L #0x00,D0> {}
<POP 20704-20732 Naked> Σ0 ↓ →0x20704 ←0x20704
<MI 20704 MOVE.L D0,0x2089a> {}
<POP 0x2070a LimitCheck 0x0 ≤ D0 ≤ 0x7> {}
<MI 20710 LEA.L 0x20876,A0> {}
<MI 20716 MOVE.B (A0+D0.L+#0x19),D1> {}
<MI 2071a EXTB.W D1> {}
<MI 2071c EXTW.L D1> {}
<POP 0x2071e LimitCheck 0x0 ≤ D1 ≤ 0xff> {}
<MI 20728 MOVE.B D1,(A0+D0.L+#0x11)> {}
<MI 2072c ADDQ.L #0x1,D0> {}
<MI 2072e CMP.L #0x07,D0> {}
<MI 20730 BLE 0x20704> {}
<POP 20732-20762 Naked> Σ0 ↓
<MI 20732 CLR.B -(A7)> Δ-2 {[#0]}
<Blob 0x20734 [4] 0x2087e> Δ-4 {[#0]|[«4»]}
<Blob 0x2073a [4] 0x20882> Δ-4 {[#0]|[«4»]|[«4»]}
<Blob 0x20740 [2] 0x20886> Δ-2 {[#0]|[«4»]|[«4»]|[«2»]}
<Blob 0x20746 [8] 0x20887> Δ-8 {[#0]|[«4»]|[«4»]|[«2»]|[«8»]}
<Call 0x20758 0x1054a> {[#0]|[«4»]|[«4»]|[«2»]|[«8»]}
?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
<POP 2075e-20762 StackAdj> Δ+20 {}
<POP 20762-20768 Naked> Σ0
<Call 0x20762 0x10284> {}
?exit
@ 2080e
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 2080e-20876 Body>
<POP 2080e-20824 Prologue> Σ0 ↓
<POP 20824-2086e Naked> Σ0 ↓
<Blob 0x20824 [14] @> Δ-14 {[«14""»]}
<Const 0x20830 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 20834-20836 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x20836 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 20848-2084a StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2084a MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2084e EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20850 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20852 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x20854 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2085a-2085c StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x2085c 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20862-20864 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x20864 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 2086a-2086e StackAdj> Δ+20 {}
<POP 2086e-20876 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.4b21cf053b7ad830 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 04 02 | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 08 c2 | | .PTR 0x208c2 00020010 code.end: 00020010 00 02 08 76 | v | .PTR 0x20876 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 08 0e | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 01 6c | l | .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 50 32 |P2 | .TXT 'P2' 00020160 55 43 |UC | .TXT 'UC' 00020162 53 41 |SA | .TXT 'SA' 00020164 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0 00020168 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0 0002016c ; -------------------------------------------------------------------------------------- 0002016c ; OMSI PASCAL Function 0002016c ; <LVAR 0x00e 1(r)> 0002016c ; <LVAR 0x00a 4(r)> 0002016c ; <LVAR 0x008 1(r)> 0002016c ; -------------------------------------------------------------------------------------- 0002016c EXP_FAIL: 0002016c 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00020170 bf d5 | | CMPA.L (A5),A7 00020172 62 06 |b | BHI 0x2017a 00020174 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020178 4e 76 |Nv | TRAPV 0002017a de fc 00 74 | t | ADDA.W #0x74,A7 0002017e 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00020182 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020188 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 0002018e 72 01 |r | MOVEQ.L #0x01,D1 00020190 74 0d |t | MOVEQ.L #0x0d,D2 00020192 76 1e |v | MOVEQ.L #0x1e,D3 00020194 78 12 |x | MOVEQ.L #0x12,D4 00020196 7a 0e |z | MOVEQ.L #0x0e,D5 00020198 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002019e 41 fa ff a6 |A | LEA.L 0x20146,A0 000201a2 70 08 |p | MOVEQ.L #0x08,D0 000201a4 3f 20 |? | MOVE.W -(A0),-(A7) 000201a6 51 c8 ff fc |Q | DBF D0,0x201a4 000201aa 59 4f |YO | SUBQ.L #0x4,A7 000201ac 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000201b0 3f 01 |? | MOVE.W D1,-(A7) 000201b2 3f 04 |? | MOVE.W D4,-(A7) 000201b4 4e 93 |N | JSR (A3) 000201b6 50 4f |PO | ADDQ.L #0x8,A7 000201b8 4e 94 |N | JSR (A4) 000201ba 50 4f |PO | ADDQ.L #0x8,A7 000201bc 20 4f | O | MOVEA.L A7,A0 000201be 43 fa ff 4a |C J | LEA.L 0x2010a,A1 000201c2 70 0c |p | MOVEQ.L #0x0c,D0 000201c4 10 d9 | | MOVE.B (A1)+,(A0)+ 000201c6 51 c8 ff fc |Q | DBF D0,0x201c4 000201ca 51 4f |QO | SUBQ.L #0x8,A7 000201cc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000201d0 3f 01 |? | MOVE.W D1,-(A7) 000201d2 3f 02 |? | MOVE.W D2,-(A7) 000201d4 4e 93 |N | JSR (A3) 000201d6 54 4f |TO | ADDQ.L #0x2,A7 000201d8 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000201dc 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000201e2 54 4f |TO | ADDQ.L #0x2,A7 000201e4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000201ea 50 4f |PO | ADDQ.L #0x8,A7 000201ec 4e 94 |N | JSR (A4) 000201ee de c4 | | ADDA.W D4,A7 000201f0 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000201f4 b0 c1 | | CMPA.W D1,A0 000201f6 67 48 |gH | BEQ 0x20240 000201f8 9e c5 | | SUBA.W D5,A7 000201fa 22 4f |"O | MOVEA.L A7,A1 000201fc 45 fa ff 1a |E | LEA.L 0x20118,A2 00020200 70 0c |p | MOVEQ.L #0x0c,D0 00020202 12 da | | MOVE.B (A2)+,(A1)+ 00020204 51 c8 ff fc |Q | DBF D0,0x20202 00020208 9e c3 | | SUBA.W D3,A7 0002020a 22 4f |"O | MOVEA.L A7,A1 0002020c 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00020210 70 1d |p | MOVEQ.L #0x1d,D0 00020212 12 d8 | | MOVE.B (A0)+,(A1)+ 00020214 51 c8 ff fc |Q | DBF D0,0x20212 00020218 51 4f |QO | SUBQ.L #0x8,A7 0002021a 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 0002021e 3f 01 |? | MOVE.W D1,-(A7) 00020220 3f 02 |? | MOVE.W D2,-(A7) 00020222 4e 93 |N | JSR (A3) 00020224 58 4f |XO | ADDQ.L #0x4,A7 00020226 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002022a 3f 01 |? | MOVE.W D1,-(A7) 0002022c 3f 03 |? | MOVE.W D3,-(A7) 0002022e 4e 93 |N | JSR (A3) 00020230 50 4f |PO | ADDQ.L #0x8,A7 00020232 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020238 50 4f |PO | ADDQ.L #0x8,A7 0002023a 4e 94 |N | JSR (A4) 0002023c de fc 00 30 | 0 | ADDA.W #0x30,A7 00020240 9e c5 | | SUBA.W D5,A7 00020242 20 4f | O | MOVEA.L A7,A0 00020244 43 fa fe e0 |C | LEA.L 0x20126,A1 00020248 70 0c |p | MOVEQ.L #0x0c,D0 0002024a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002024c 51 c8 ff fc |Q | DBF D0,0x2024a 00020250 51 4f |QO | SUBQ.L #0x8,A7 00020252 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020256 3f 01 |? | MOVE.W D1,-(A7) 00020258 3f 02 |? | MOVE.W D2,-(A7) 0002025a 4e 93 |N | JSR (A3) 0002025c 54 4f |TO | ADDQ.L #0x2,A7 0002025e 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00020262 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00020268 54 4f |TO | ADDQ.L #0x2,A7 0002026a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020270 50 4f |PO | ADDQ.L #0x8,A7 00020272 4e 94 |N | JSR (A4) 00020274 5d 4f |]O | SUBQ.L #0x6,A7 00020276 20 4f | O | MOVEA.L A7,A0 00020278 43 fa fe cc |C | LEA.L 0x20146,A1 0002027c 70 16 |p | MOVEQ.L #0x16,D0 0002027e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020280 51 c8 ff fc |Q | DBF D0,0x2027e 00020284 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020288 59 4f |YO | SUBQ.L #0x4,A7 0002028a 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002028e 3f 01 |? | MOVE.W D1,-(A7) 00020290 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00020294 4e 93 |N | JSR (A3) 00020296 50 4f |PO | ADDQ.L #0x8,A7 00020298 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002029e de c3 | | ADDA.W D3,A7 000202a0 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 000202a4 4e 5e |N^ | UNLK A6 000202a6 4e 75 |Nu | RTS 000202a8 ; -------------------------------------------------------------------------------------- 000202a8 ; OMSI PASCAL Function 000202a8 ; <LVAR 0x00e 1(r)> 000202a8 ; <LVAR 0x00c 1(r)> 000202a8 ; <LVAR 0x008 4(r)> 000202a8 ; <LVAR -0x004 @ 2(r)> 000202a8 ; -------------------------------------------------------------------------------------- 000202a8 4e 56 ff ec |NV | LINK.W A6,#0xffec 000202ac bf d5 | | CMPA.L (A5),A7 000202ae 62 06 |b | BHI 0x202b6 000202b0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000202b4 4e 76 |Nv | TRAPV 000202b6 de fc 00 10 | | ADDA.W #0x10,A7 000202ba 48 e7 00 80 |H | MOVEM.L A0,-(A7) 000202be 4e b9 00 02 07 e2 |N | JSR exp_PREP_READ_REG.VAL() 000202c4 1f 2e 00 0e | . | MOVE.B (A6+0xe),-(A7) 000202c8 1f 2e 00 0c | . | MOVE.B (A6+0xc),-(A7) 000202cc 48 6e ff fc |Hn | PEA.L (A6-0x4) 000202d0 4e b9 00 02 07 86 |N | JSR exp_REG_TO_LOOP.VAL(Sw_1, Sw_1, &Sr_2) 000202d6 5c 4f |\O | ADDQ.L #0x6,A7 000202d8 3e ae ff fc |> | MOVE.W (A6-0x4),(A7) 000202dc 42 27 |B' | CLR.B -(A7) 000202de 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000202e2 48 50 |HP | PEA.L (A0) 000202e4 4e b9 00 02 07 c4 |N | JSR exp_READ_B_REG.VAL(Sw_2, Sw_1, &Sr_8) 000202ea 50 4f |PO | ADDQ.L #0x8,A7 000202ec 4c df 01 00 |L | MOVEM.L (A7)+,A0 000202f0 4e 5e |N^ | UNLK A6 000202f2 4e 75 |Nu | RTS 000202f4 ; -------------------------------------------------------------------------------------- 000202f4 ; OMSI PASCAL Function 000202f4 ; <LVAR 0x00c 4(r)> 000202f4 ; <LVAR 0x008 4(r)> 000202f4 ; <LVAR -0x004 4(r)> 000202f4 ; <LVAR -0x008 @ 4(r)> 000202f4 ; <LVAR -0x00c 4(r)> 000202f4 ; <LVAR -0x010 @ 4(r)> 000202f4 ; -------------------------------------------------------------------------------------- 000202f4 4e 56 ff a6 |NV | LINK.W A6,#0xffa6 000202f8 bf d5 | | CMPA.L (A5),A7 000202fa 62 06 |b | BHI 0x20302 000202fc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020300 4e 76 |Nv | TRAPV 00020302 de fc 00 4a | J | ADDA.W #0x4a,A7 00020306 48 e7 f0 e0 |H | MOVEM.L A2+A1+A0+D3+D2+D1+D0,-(A7) 0002030a 43 f8 00 00 |C | LEA.L 0x0,A1 0002030e 45 f8 00 07 |E | LEA.L 0x7,A2 00020312 72 18 |r | MOVEQ.L #0x18,D1 00020314 74 10 |t | MOVEQ.L #0x10,D2 00020316 76 01 |v | MOVEQ.L #0x01,D3 00020318 3f 3c ff c2 |?< | MOVE.W #0xffc2,-(A7) 0002031c 42 27 |B' | CLR.B -(A7) 0002031e 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00020322 4e b9 00 02 07 68 |N h | JSR exp_READ_RF_B.TYP(Sw_2, Sw_1, &Sr_8) 00020328 5c 4f |\O | ADDQ.L #0x6,A7 0002032a 3e bc ff c2 |> | MOVE.W #0xffc2,(A7) 0002032e 42 27 |B' | CLR.B -(A7) 00020330 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00020334 4e b9 00 02 07 a6 |N | JSR exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8) 0002033a 50 4f |PO | ADDQ.L #0x8,A7 0002033c 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020340 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00020344 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00020348 2f 3a fe 1e |/: | MOVE.L 0x20168,-(A7) 0002034c 2f 3a fe 16 |/: | MOVE.L 0x20164,-(A7) 00020350 55 4f |UO | SUBQ.L #0x2,A7 00020352 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020356 48 51 |HQ | PEA.L (A1) 00020358 48 52 |HR | PEA.L (A2) 0002035a 48 6f 00 0e |Ho | PEA.L (A7+0xe) 0002035e 48 51 |HQ | PEA.L (A1) 00020360 48 52 |HR | PEA.L (A2) 00020362 4e b9 00 01 04 a8 |N | JSR ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool 00020368 de c1 | | ADDA.W D1,A7 0002036a 10 1f | | MOVE.B (A7)+,D0 0002036c 44 00 |D | NEG.B D0 0002036e 52 00 |R | ADDQ.B #0x1,D0 00020370 de c2 | | ADDA.W D2,A7 00020372 48 80 |H | EXTB.W D0 00020374 41 83 |A | CHK.W D3,D0 00020376 10 80 | | MOVE.B D0,(A0) 00020378 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002037c 2f 2e ff fc |/. | MOVE.L (A6-0x4),-(A7) 00020380 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00020384 2f 3a fd e2 |/: | MOVE.L 0x20168,-(A7) 00020388 2f 3a fd da |/: | MOVE.L 0x20164,-(A7) 0002038c 55 4f |UO | SUBQ.L #0x2,A7 0002038e 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020392 48 51 |HQ | PEA.L (A1) 00020394 48 52 |HR | PEA.L (A2) 00020396 48 6f 00 0e |Ho | PEA.L (A7+0xe) 0002039a 48 51 |HQ | PEA.L (A1) 0002039c 48 52 |HR | PEA.L (A2) 0002039e 4e b9 00 01 04 a8 |N | JSR ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool 000203a4 de c1 | | ADDA.W D1,A7 000203a6 10 1f | | MOVE.B (A7)+,D0 000203a8 44 00 |D | NEG.B D0 000203aa 52 00 |R | ADDQ.B #0x1,D0 000203ac de c2 | | ADDA.W D2,A7 000203ae 48 80 |H | EXTB.W D0 000203b0 41 83 |A | CHK.W D3,D0 000203b2 10 80 | | MOVE.B D0,(A0) 000203b4 4c df 07 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2 000203b8 4e 5e |N^ | UNLK A6 000203ba 4e 75 |Nu | RTS 000203bc ; -------------------------------------------------------------------------------------- 000203bc ; OMSI PASCAL Function 000203bc ; <LVAR 0x00c 4(r)> 000203bc ; <LVAR 0x008 4(r)> 000203bc ; -------------------------------------------------------------------------------------- 000203bc 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 000203c0 bf d5 | | CMPA.L (A5),A7 000203c2 62 06 |b | BHI 0x203ca 000203c4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000203c8 4e 76 |Nv | TRAPV 000203ca de fc 00 10 | | ADDA.W #0x10,A7 000203ce 48 e7 00 80 |H | MOVEM.L A0,-(A7) 000203d2 3f 3c ff c1 |?< | MOVE.W #0xffc1,-(A7) 000203d6 42 27 |B' | CLR.B -(A7) 000203d8 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000203dc 48 50 |HP | PEA.L (A0) 000203de 4e b9 00 02 07 68 |N h | JSR exp_READ_RF_B.TYP(Sw_2, Sw_1, &Sr_8) 000203e4 5c 4f |\O | ADDQ.L #0x6,A7 000203e6 3e bc ff c1 |> | MOVE.W #0xffc1,(A7) 000203ea 42 27 |B' | CLR.B -(A7) 000203ec 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000203f0 48 50 |HP | PEA.L (A0) 000203f2 4e b9 00 02 07 a6 |N | JSR exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8) 000203f8 50 4f |PO | ADDQ.L #0x8,A7 000203fa 4c df 01 00 |L | MOVEM.L (A7)+,A0 000203fe 4e 5e |N^ | UNLK A6 00020400 4e 75 |Nu | RTS 00020402 ; -------------------------------------------------------------------------------------- 00020402 ; OMSI PASCAL Function 00020402 ; -------------------------------------------------------------------------------------- 00020402 START: 00020402 4f fa 00 08 |O | LEA.L MAIN,A7 00020406 4e f9 00 01 02 80 |N | JMP ?start_program 0002040c MAIN: 0002040c 45 f9 00 02 08 8f |E | LEA.L 0x2088f,A2 00020412 47 f9 00 02 08 a6 |G | LEA.L 0x208a6,A3 00020418 49 f9 00 02 08 a7 |I | LEA.L 0x208a7,A4 0002041e 74 03 |t | MOVEQ.L #0x03,D2 00020420 76 04 |v | MOVEQ.L #0x04,D3 00020422 78 06 |x | MOVEQ.L #0x06,D4 00020424 7a 07 |z | MOVEQ.L #0x07,D5 00020426 7c 01 || | MOVEQ.L #0x01,D6 00020428 7e 18 |~ | MOVEQ.L #0x18,D7 0002042a 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020430 48 79 00 02 08 97 |Hy | PEA.L 0x20897 00020436 48 79 00 02 08 98 |Hy | PEA.L 0x20898 0002043c 4e b9 00 01 05 44 |N D | JSR IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool) 00020442 50 4f |PO | ADDQ.L #0x8,A7 00020444 48 78 00 0f |Hx | PEA.L 0xf 00020448 4e b9 00 01 04 d8 |N | JSR ExpInit(a : Long) 0002044e 54 4f |TO | ADDQ.L #0x2,A7 00020450 1e b9 00 02 08 98 | | MOVE.B 0x20898,(A7) 00020456 4e b9 00 01 04 d2 |N | JSR SetExpInitDone(a : Byte) 0002045c 3e ba fd 04 |> | MOVE.W 0x20162,(A7) 00020460 3f 3a fc fe |?: | MOVE.W 0x20160,-(A7) 00020464 3f 3a fc f8 |?: | MOVE.W 0x2015e,-(A7) 00020468 59 4f |YO | SUBQ.L #0x4,A7 0002046a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002046e 3f 06 |? | MOVE.W D6,-(A7) 00020470 3f 04 |? | MOVE.W D4,-(A7) 00020472 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020478 50 4f |PO | ADDQ.L #0x8,A7 0002047a 23 df 00 02 08 7e |# ~ | MOVE.L (A7)+,0x2087e 00020480 5c 4f |\O | ADDQ.L #0x6,A7 00020482 48 79 00 02 08 82 |Hy | PEA.L 0x20882 00020488 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002048e 58 4f |XO | ADDQ.L #0x4,A7 00020490 70 00 |p | MOVEQ.L #0x00,D0 00020492 23 c0 00 02 08 9a |# | MOVE.L D0,0x2089a 00020498 b0 85 | | CMP.L D5,D0 0002049a 63 02 |c | BLS 0x2049e 0002049c 4e 4f |NO | TRAP #15 0002049e 41 f9 00 02 08 76 |A v | LEA.L 0x20876,A0 000204a4 42 30 08 19 |B0 | CLR.B (A0+D0.L+#0x19) 000204a8 52 80 |R | ADDQ.L #0x1,D0 000204aa b0 85 | | CMP.L D5,D0 000204ac 6f e4 |o | BLE 0x20492 000204ae 1f 06 | | MOVE.B D6,-(A7) 000204b0 42 27 |B' | CLR.B -(A7) 000204b2 48 79 00 02 08 9e |Hy | PEA.L 0x2089e 000204b8 4e ba fd ee |N | JSR 0x202a8 000204bc 50 4f |PO | ADDQ.L #0x8,A7 000204be 13 f9 00 02 08 a5 00 02 | | MOVE.B 0x208a5,0x20886 000204c6 08 86 | | 000204c8 48 53 |HS | PEA.L (A3) 000204ca 48 54 |HT | PEA.L (A4) 000204cc 4e ba fe 26 |N & | JSR 0x202f4 000204d0 50 4f |PO | ADDQ.L #0x8,A7 000204d2 42 80 |B | CLR.L D0 000204d4 10 39 00 02 08 86 | 9 | MOVE.B 0x20886,D0 000204da 0c 40 00 15 | @ | CMPI.W #0x0015,D0 000204de 62 00 02 16 |b | BHI 0x206f6 000204e2 d0 40 | @ | ADD.W D0,D0 000204e4 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000204ec 00 2c | , | .CONST 0x2c ; [0x0] -> 0x20518 000204ee 00 38 | 8 | .CONST 0x38 ; [0x1] -> 0x20524 000204f0 00 4c | L | .CONST 0x4c ; [0x2] -> 0x20538 000204f2 00 64 | d | .CONST 0x64 ; [0x3] -> 0x20550 000204f4 00 6a | j | .CONST 0x6a ; [0x4] -> 0x20556 000204f6 00 82 | | .CONST 0x82 ; [0x5] -> 0x2056e 000204f8 00 84 | | .CONST 0x84 ; [0x6] -> 0x20570 000204fa 00 a0 | | .CONST 0xa0 ; [0x7] -> 0x2058c 000204fc 00 b8 | | .CONST 0xb8 ; [0x8] -> 0x205a4 000204fe 00 ba | | .CONST 0xba ; [0x9] -> 0x205a6 00020500 00 d2 | | .CONST 0xd2 ; [0xa] -> 0x205be 00020502 00 d4 | | .CONST 0xd4 ; [0xb] -> 0x205c0 00020504 00 f0 | | .CONST 0xf0 ; [0xc] -> 0x205dc 00020506 00 f6 | | .CONST 0xf6 ; [0xd] -> 0x205e2 00020508 01 12 | | .CONST 0x112 ; [0xe] -> 0x205fe 0002050a 01 14 | | .CONST 0x114 ; [0xf] -> 0x20600 0002050c 01 d2 | | .CONST 0x1d2 ; [0x10] -> 0x206be 0002050e 01 f0 | | .CONST 0x1f0 ; [0x11] -> 0x206dc 00020510 01 fa | | .CONST 0x1fa ; [0x12] -> 0x206e6 00020512 01 fe | | .CONST 0x1fe ; [0x13] -> 0x206ea 00020514 02 02 | | .CONST 0x202 ; [0x14] -> 0x206ee 00020516 02 08 | | .CONST 0x208 ; [0x15] -> 0x206f4 00020518 switch@0x204e4[0x0]: 00020518 14 82 | | MOVE.B D2,(A2) 0002051a 13 c3 00 02 08 90 | | MOVE.B D3,0x20890 00020520 60 00 01 e0 |` | BRA 0x20702 00020524 switch@0x204e4[0x1]: 00020524 4a 14 |J | TST.B (A4) 00020526 66 04 |f | BNE 0x2052c 00020528 14 82 | | MOVE.B D2,(A2) 0002052a 60 08 |` | BRA 0x20534 0002052c 14 83 | | MOVE.B D3,(A2) 0002052e 13 c2 00 02 08 90 | | MOVE.B D2,0x20890 00020534 60 00 01 cc |` | BRA 0x20702 00020538 switch@0x204e4[0x2]: 00020538 4a 14 |J | TST.B (A4) 0002053a 67 04 |g | BEQ 0x20540 0002053c 4a 13 |J | TST.B (A3) 0002053e 67 04 |g | BEQ 0x20544 00020540 14 82 | | MOVE.B D2,(A2) 00020542 60 08 |` | BRA 0x2054c 00020544 14 83 | | MOVE.B D3,(A2) 00020546 13 c2 00 02 08 90 | | MOVE.B D2,0x20890 0002054c 60 00 01 b4 |` | BRA 0x20702 00020550 switch@0x204e4[0x3]: 00020550 14 82 | | MOVE.B D2,(A2) 00020552 60 00 01 ae |` | BRA 0x20702 00020556 switch@0x204e4[0x4]: 00020556 4a 14 |J | TST.B (A4) 00020558 67 04 |g | BEQ 0x2055e 0002055a 4a 13 |J | TST.B (A3) 0002055c 67 04 |g | BEQ 0x20562 0002055e 14 82 | | MOVE.B D2,(A2) 00020560 60 08 |` | BRA 0x2056a 00020562 14 83 | | MOVE.B D3,(A2) 00020564 13 c2 00 02 08 90 | | MOVE.B D2,0x20890 0002056a 60 00 01 96 |` | BRA 0x20702 0002056e switch@0x204e4[0x5]: 0002056e 60 e0 |` | BRA switch@0x204e4[0x3] 00020570 switch@0x204e4[0x6]: 00020570 4a 14 |J | TST.B (A4) 00020572 67 0e |g | BEQ 0x20582 00020574 14 83 | | MOVE.B D3,(A2) 00020576 4a 13 |J | TST.B (A3) 00020578 67 06 |g | BEQ 0x20580 0002057a 13 c2 00 02 08 90 | | MOVE.B D2,0x20890 00020580 60 06 |` | BRA 0x20588 00020582 4a 13 |J | TST.B (A3) 00020584 67 02 |g | BEQ 0x20588 00020586 14 82 | | MOVE.B D2,(A2) 00020588 60 00 01 78 |` x | BRA 0x20702 0002058c switch@0x204e4[0x7]: 0002058c 4a 14 |J | TST.B (A4) 0002058e 67 04 |g | BEQ 0x20594 00020590 4a 13 |J | TST.B (A3) 00020592 67 04 |g | BEQ 0x20598 00020594 14 82 | | MOVE.B D2,(A2) 00020596 60 08 |` | BRA 0x205a0 00020598 14 83 | | MOVE.B D3,(A2) 0002059a 13 c2 00 02 08 90 | | MOVE.B D2,0x20890 000205a0 60 00 01 60 |` ` | BRA 0x20702 000205a4 switch@0x204e4[0x8]: 000205a4 60 aa |` | BRA switch@0x204e4[0x3] 000205a6 switch@0x204e4[0x9]: 000205a6 4a 14 |J | TST.B (A4) 000205a8 67 04 |g | BEQ 0x205ae 000205aa 4a 13 |J | TST.B (A3) 000205ac 67 04 |g | BEQ 0x205b2 000205ae 14 82 | | MOVE.B D2,(A2) 000205b0 60 08 |` | BRA 0x205ba 000205b2 14 83 | | MOVE.B D3,(A2) 000205b4 13 c2 00 02 08 90 | | MOVE.B D2,0x20890 000205ba 60 00 01 46 |` F | BRA 0x20702 000205be switch@0x204e4[0xa]: 000205be 60 90 |` | BRA switch@0x204e4[0x3] 000205c0 switch@0x204e4[0xb]: 000205c0 4a 14 |J | TST.B (A4) 000205c2 67 0e |g | BEQ 0x205d2 000205c4 14 83 | | MOVE.B D3,(A2) 000205c6 4a 13 |J | TST.B (A3) 000205c8 67 06 |g | BEQ 0x205d0 000205ca 13 c2 00 02 08 90 | | MOVE.B D2,0x20890 000205d0 60 06 |` | BRA 0x205d8 000205d2 4a 13 |J | TST.B (A3) 000205d4 67 02 |g | BEQ 0x205d8 000205d6 14 82 | | MOVE.B D2,(A2) 000205d8 60 00 01 28 |` ( | BRA 0x20702 000205dc switch@0x204e4[0xc]: 000205dc 14 84 | | MOVE.B D4,(A2) 000205de 60 00 01 22 |` " | BRA 0x20702 000205e2 switch@0x204e4[0xd]: 000205e2 4a 14 |J | TST.B (A4) 000205e4 67 0e |g | BEQ 0x205f4 000205e6 14 83 | | MOVE.B D3,(A2) 000205e8 4a 13 |J | TST.B (A3) 000205ea 67 06 |g | BEQ 0x205f2 000205ec 13 c2 00 02 08 90 | | MOVE.B D2,0x20890 000205f2 60 06 |` | BRA 0x205fa 000205f4 4a 13 |J | TST.B (A3) 000205f6 67 02 |g | BEQ 0x205fa 000205f8 14 82 | | MOVE.B D2,(A2) 000205fa 60 00 01 06 |` | BRA 0x20702 000205fe switch@0x204e4[0xe]: 000205fe 60 dc |` | BRA switch@0x204e4[0xc] 00020600 switch@0x204e4[0xf]: 00020600 4a 13 |J | TST.B (A3) 00020602 67 00 00 a8 |g | BEQ 0x206ac 00020606 4a 14 |J | TST.B (A4) 00020608 67 00 00 a2 |g | BEQ 0x206ac 0002060c 48 79 00 02 08 a8 |Hy | PEA.L 0x208a8 00020612 48 79 00 02 08 b0 |Hy | PEA.L 0x208b0 00020618 4e ba fd a2 |N | JSR 0x203bc 0002061c 58 4f |XO | ADDQ.L #0x4,A7 0002061e 2e b9 00 02 08 ac |. | MOVE.L 0x208ac,(A7) 00020624 2f 39 00 02 08 a8 |/9 | MOVE.L 0x208a8,-(A7) 0002062a 2f 3a fb 3c |/: < | MOVE.L 0x20168,-(A7) 0002062e 2f 3a fb 34 |/: 4 | MOVE.L 0x20164,-(A7) 00020632 2f 39 00 02 08 b4 |/9 | MOVE.L 0x208b4,-(A7) 00020638 2f 39 00 02 08 b0 |/9 | MOVE.L 0x208b0,-(A7) 0002063e 2f 3a fb 28 |/: ( | MOVE.L 0x20168,-(A7) 00020642 2f 3a fb 20 |/: | MOVE.L 0x20164,-(A7) 00020646 55 4f |UO | SUBQ.L #0x2,A7 00020648 48 6f 00 1a |Ho | PEA.L (A7+0x1a) 0002064c 48 78 00 00 |Hx | PEA.L 0x0 00020650 48 78 00 07 |Hx | PEA.L 0x7 00020654 48 6f 00 1e |Ho | PEA.L (A7+0x1e) 00020658 48 78 00 00 |Hx | PEA.L 0x0 0002065c 48 78 00 07 |Hx | PEA.L 0x7 00020660 4e b9 00 01 04 a8 |N | JSR ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool 00020666 de c7 | | ADDA.W D7,A7 00020668 4a 1f |J | TST.B (A7)+ 0002066a 67 32 |g2 | BEQ 0x2069e 0002066c 55 4f |UO | SUBQ.L #0x2,A7 0002066e 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020672 48 78 00 00 |Hx | PEA.L 0x0 00020676 48 78 00 07 |Hx | PEA.L 0x7 0002067a 48 6f 00 0e |Ho | PEA.L (A7+0xe) 0002067e 48 78 00 00 |Hx | PEA.L 0x0 00020682 48 78 00 07 |Hx | PEA.L 0x7 00020686 4e b9 00 01 04 a8 |N | JSR ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool 0002068c de c7 | | ADDA.W D7,A7 0002068e 4a 1f |J | TST.B (A7)+ 00020690 67 0c |g | BEQ 0x2069e 00020692 14 bc 00 02 | | MOVE.B #0x02,(A2) 00020696 13 c4 00 02 08 90 | | MOVE.B D4,0x20890 0002069c 60 08 |` | BRA 0x206a6 0002069e 14 82 | | MOVE.B D2,(A2) 000206a0 13 c3 00 02 08 90 | | MOVE.B D3,0x20890 000206a6 de fc 00 20 | | ADDA.W #0x20,A7 000206aa 60 10 |` | BRA 0x206bc 000206ac 4a 13 |J | TST.B (A3) 000206ae 67 02 |g | BEQ 0x206b2 000206b0 14 82 | | MOVE.B D2,(A2) 000206b2 4a 14 |J | TST.B (A4) 000206b4 67 06 |g | BEQ 0x206bc 000206b6 13 c3 00 02 08 90 | | MOVE.B D3,0x20890 000206bc 60 44 |`D | BRA 0x20702 000206be switch@0x204e4[0x10]: 000206be 4a 13 |J | TST.B (A3) 000206c0 67 08 |g | BEQ 0x206ca 000206c2 4a 14 |J | TST.B (A4) 000206c4 67 04 |g | BEQ 0x206ca 000206c6 14 84 | | MOVE.B D4,(A2) 000206c8 60 10 |` | BRA 0x206da 000206ca 4a 13 |J | TST.B (A3) 000206cc 67 02 |g | BEQ 0x206d0 000206ce 14 82 | | MOVE.B D2,(A2) 000206d0 4a 14 |J | TST.B (A4) 000206d2 67 06 |g | BEQ 0x206da 000206d4 13 c3 00 02 08 90 | | MOVE.B D3,0x20890 000206da 60 26 |`& | BRA 0x20702 000206dc switch@0x204e4[0x11]: 000206dc 14 85 | | MOVE.B D5,(A2) 000206de 13 c4 00 02 08 90 | | MOVE.B D4,0x20890 000206e4 60 1c |` | BRA 0x20702 000206e6 switch@0x204e4[0x12]: 000206e6 60 00 fe f4 |` | BRA switch@0x204e4[0xc] 000206ea switch@0x204e4[0x13]: 000206ea 14 82 | | MOVE.B D2,(A2) 000206ec 60 f0 |` | BRA 0x206de 000206ee switch@0x204e4[0x14]: 000206ee 14 bc 00 27 | ' | MOVE.B #0x27,(A2) 000206f2 60 0e |` | BRA 0x20702 000206f4 switch@0x204e4[0x15]: 000206f4 60 0c |` | BRA 0x20702 000206f6 14 bc 00 27 | ' | MOVE.B #0x27,(A2) 000206fa 13 fc 00 16 00 02 08 86 | | MOVE.B #0x16,0x20886 00020702 70 00 |p | MOVEQ.L #0x00,D0 00020704 23 c0 00 02 08 9a |# | MOVE.L D0,0x2089a 0002070a b0 85 | | CMP.L D5,D0 0002070c 63 02 |c | BLS 0x20710 0002070e 4e 4f |NO | TRAP #15 00020710 41 f9 00 02 08 76 |A v | LEA.L 0x20876,A0 00020716 12 30 08 19 | 0 | MOVE.B (A0+D0.L+#0x19),D1 0002071a 48 81 |H | EXTB.W D1 0002071c 48 c1 |H | EXTW.L D1 0002071e 0c 81 00 00 00 ff | | CMPI.L #0x000000ff,D1 00020724 63 02 |c | BLS 0x20728 00020726 4e 4f |NO | TRAP #15 00020728 11 81 08 11 | | MOVE.B D1,(A0+D0.L+#0x11) 0002072c 52 80 |R | ADDQ.L #0x1,D0 0002072e b0 85 | | CMP.L D5,D0 00020730 6f d2 |o | BLE 0x20704 00020732 42 27 |B' | CLR.B -(A7) 00020734 2f 39 00 02 08 7e |/9 ~ | MOVE.L 0x2087e,-(A7) 0002073a 2f 39 00 02 08 82 |/9 | MOVE.L 0x20882,-(A7) 00020740 1f 39 00 02 08 86 | 9 | MOVE.B 0x20886,-(A7) 00020746 51 4f |QO | SUBQ.L #0x8,A7 00020748 20 4f | O | MOVEA.L A7,A0 0002074a 43 f9 00 02 08 87 |C | LEA.L 0x20887,A1 00020750 70 07 |p | MOVEQ.L #0x07,D0 00020752 10 d9 | | MOVE.B (A1)+,(A0)+ 00020754 51 c8 ff fc |Q | DBF D0,0x20752 00020758 4e b9 00 01 05 4a |N J | JSR ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long) 0002075e de fc 00 14 | | ADDA.W #0x14,A7 00020762 4e b9 00 01 02 84 |N | JSR ?exit 00020768 exp_READ_RF_B.TYP(Sw_2, Sw_1, &Sr_8): 00020768 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002076e 00 10 | | .CONST 0x0010 ; Stack-delta 00020770 0d 52 45 41 44 5f 52 46 | READ_RF| .TXT 13,'READ_RF_B.TYP' 0002077e 00 | | .CONST 0x0 0002077f 06 | | .CONST 0x6 ; DIPROC address 00020780 01 | | .CONST 0x1 ; Output Parameters 00020781 02 | | .CONST 0x2 ; Input Parameters 00020782 01 | | .CONST 0x1 ; In arg [2] 00020783 00 | | .CONST 0x0 ; In arg [1] 00020784 07 | | .CONST 0x7 ; Out arg [8] 00020785 00 | | .PAD 0x0 00020786 exp_REG_TO_LOOP.VAL(Sw_1, Sw_1, &Sr_2): 00020786 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002078c 00 10 | | .CONST 0x0010 ; Stack-delta 0002078e 0f 52 45 47 5f 54 4f 5f | REG_TO_| .TXT 15,'REG_TO_LOOP.VAL' 0002079e 00 | | .CONST 0x0 0002079f 07 | | .CONST 0x7 ; DIPROC address 000207a0 01 | | .CONST 0x1 ; Output Parameters 000207a1 02 | | .CONST 0x2 ; Input Parameters 000207a2 00 | | .CONST 0x0 ; In arg [1] 000207a3 00 | | .CONST 0x0 ; In arg [1] 000207a4 01 | | .CONST 0x1 ; Out arg [2] 000207a5 00 | | .PAD 0x0 000207a6 exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8): 000207a6 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000207ac 00 10 | | .CONST 0x0010 ; Stack-delta 000207ae 0d 52 45 41 44 5f 52 46 | READ_RF| .TXT 13,'READ_RF_B.VAL' 000207bc 00 | | .CONST 0x0 000207bd 07 | | .CONST 0x7 ; DIPROC address 000207be 01 | | .CONST 0x1 ; Output Parameters 000207bf 02 | | .CONST 0x2 ; Input Parameters 000207c0 01 | | .CONST 0x1 ; In arg [2] 000207c1 00 | | .CONST 0x0 ; In arg [1] 000207c2 07 | | .CONST 0x7 ; Out arg [8] 000207c3 00 | | .PAD 0x0 000207c4 exp_READ_B_REG.VAL(Sw_2, Sw_1, &Sr_8): 000207c4 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000207ca 00 10 | | .CONST 0x0010 ; Stack-delta 000207cc 0e 52 45 41 44 5f 42 5f | READ_B_| .TXT 14,'READ_B_REG.VAL' 000207db 00 | | .CONST 0x0 000207dc 07 | | .CONST 0x7 ; DIPROC address 000207dd 01 | | .CONST 0x1 ; Output Parameters 000207de 02 | | .CONST 0x2 ; Input Parameters 000207df 01 | | .CONST 0x1 ; In arg [2] 000207e0 00 | | .CONST 0x0 ; In arg [1] 000207e1 07 | | .CONST 0x7 ; Out arg [8] 000207e2 exp_PREP_READ_REG.VAL(): 000207e2 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000207e8 00 08 | | .CONST 0x0008 ; Stack-delta 000207ea 11 50 52 45 50 5f 52 45 | PREP_RE| .TXT 17,'PREP_READ_REG.VAL' 000207fc 00 | | .CONST 0x0 000207fd 07 | | .CONST 0x7 ; DIPROC address 000207fe 00 | | .CONST 0x0 ; Output Parameters 000207ff 00 | | .CONST 0x0 ; Input Parameters 00020800 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 0002080e ; -------------------------------------------------------------------------------------- 0002080e ; OMSI PASCAL Function 0002080e ; <LVAR 0x008 1(r)> 0002080e ; -------------------------------------------------------------------------------------- 0002080e PROG_FAIL: 0002080e 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00020812 bf d5 | | CMPA.L (A5),A7 00020814 62 06 |b | BHI 0x2081c 00020816 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002081a 4e 76 |Nv | TRAPV 0002081c de fc 00 2c | , | ADDA.W #0x2c,A7 00020820 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020824 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00020828 70 06 |p | MOVEQ.L #0x06,D0 0002082a 3f 20 |? | MOVE.W -(A0),-(A7) 0002082c 51 c8 ff fc |Q | DBF D0,0x2082a 00020830 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00020834 51 4f |QO | SUBQ.L #0x8,A7 00020836 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002083a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002083e 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00020842 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020848 58 4f |XO | ADDQ.L #0x4,A7 0002084a 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 0002084e 48 80 |H | EXTB.W D0 00020850 48 c0 |H | EXTW.L D0 00020852 2f 00 |/ | MOVE.L D0,-(A7) 00020854 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002085a 58 4f |XO | ADDQ.L #0x4,A7 0002085c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020862 50 4f |PO | ADDQ.L #0x8,A7 00020864 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002086a de fc 00 14 | | ADDA.W #0x14,A7 0002086e 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020872 4e 5e |N^ | UNLK A6 00020874 4e 75 |Nu | RTS