|
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: 2560 (0xa00)
Types: M200
Notes: M200_PROGRAM
Names: »P1IOC.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »P1IOC.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »P1IOC.M200«
@ 2019a
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 2019a-202d6 Body>
<POP 2019a-201b0 Prologue> Σ0 ↓
<POP 201b0-201c6 RegCacheLoad> Σ0 ↓
<POP 201c6-20226 Naked> Σ0 ↓ →0x2026e
<Call 0x201c6 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x201cc [18] @> Δ-18 {[«18""»]}
<POP 201d8-201da StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x201da 18> {[«18""»]|[$$Experiment error :]}
<Call 0x201e6 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 201e8-201e9 StackAdj> Δ+22 ↓ {}
<Blob 0x201e9 [14] @> Δ-14 {[«14""»]}
<POP 201f8-201fa StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x201fa 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 20204-20206 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 20206 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x2020a 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 20210-20212 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x20212 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20218-2021a StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2021a 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2021c-2021e StackAdj> Δ+18 {}
<MI 2021e MOVEA.L (A6+0xa),A0> {}
<MI 20222 CMPA.W #0x01,A0> {}
<MI 20224 BEQ 0x2026e> {}
<POP 20226-2026e Naked> Σ0 ↓
<Blob 0x20226 [14] @> Δ-14 {[«14""»]}
<Blob 0x20236 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 20246-20248 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x20248 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 20252-20254 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x20254> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x20254 12> Δ-4
<Const 0x20258 0x1.2> Δ-2
<Const 0x2025a 0x1e.2> Δ-2
<Call 0x2025c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2025e-20260 StackAdj> Δ+8
<Call 0x20260 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20266-20268 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x20268 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2026a-2026e StackAdj> Δ+48 {}
<POP 2026e-202ce Naked> Σ0 ↓ ←0x201c6
<Blob 0x2026e [14] @> Δ-14 {[«14""»]}
<POP 2027e-20280 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20280 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 2028a-2028c StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 2028c MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x20290 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 20296-20298 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x20298 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2029e-202a0 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x202a0 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 202a2-202a3 StackAdj> Δ+18 ↓ {}
<Blob 0x202a3 [24] @> Δ-24 {[«24""»]}
<Const 0x202b2 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 202b6-202b8 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x202b8 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x202c6 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 202cc-202ce StackAdj> Δ+30 {}
<POP 202ce-202d6 Epilogue> Σ0
@ 202d6
<POP 202d6-2036e Body>
<POP 202d6-202ec Prologue> Σ0 ↓
<POP 202ec-202f4 RegCacheLoad> Σ0 ↓
<POP 202f4-20350 Naked> Σ0 ↓
<Const 0x202f4 0x2087a.4> Δ-4 {[##133242]}
<Const 0x202fa 0x2087b.4> Δ-4 {[##133242]|[##133243]}
<Call 0x202fc 0x10544> {[##133242]|[##133243]}
IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool)
<POP 20302-20304 StackAdj> Δ+6 {[-2-]}
<POP 20304-20305 StackAdj> Δ+2 {}
<Blob 0x20305 [2] 0x2087b> Δ-2 {[«2»]}
<Call 0x20306 0x104d2> {[«2»]}
SetExpInitDone(a : Byte)
<POP 2030c-2030d StackAdj> Δ+2 ↓ {}
<Blob 0x2030d [6] @> Δ-6 {[«6""»]}
<POP 2031c-2031e StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x2031e 5> {[«6""»]|[$$P1IOC]}
<MI 20332 MOVE.L (A7)+,0x2087c> Δ+4 {[«6""»]}
<POP 20338-2033a StackAdj> Δ+6 {}
<Const 0x2033a 0x20880.4> Δ-4 {[##133248]}
<Call 0x20340 0x102b8> {[##133248]}
NewString(VAR a : String)
<POP 20346-20348 StackAdj> Δ+4 {}
<MI 20348 CLR.B 0x20884> {}
<MI 2034e MOVEQ.L #0x00,D7> {}
<POP 20350-20366 Naked> Σ0 ↓ →0x20350 ←0x20350
<POP 0x20350 LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<MI 20356 LEA.L 0x20872,A0> {}
<MI 2035c CLR.B (A0+D7.L+#0x13)> {}
<MI 20360 ADDQ.L #0x1,D7> {}
<MI 20362 CMP.L #0x07,D7> {}
<MI 20364 BLE 0x20350> {}
<POP 20366-2036e Epilogue> Σ0
@ 2036e
<LVAR 0x008 1(r)>
<POP 2036e-203ca Body>
<POP 2036e-20384 Prologue> Σ0 ↓
<POP 20384-20390 RegCacheLoad> Σ0 ↓
<POP 20390-203c2 Naked> Σ0 ↓
<MI 20390 MOVE.B (A6+0x8),0x20884> {}
<MI 20394 MOVE.B #0x2b,0x20885> {}
<Const 0x20398 0x1.2> Δ-2 {[#1]}
<Blob 0x2039c [4] 0x2087c> Δ-4 {[#1]|[«4»]}
<Blob 0x203a2 [4] 0x20880> Δ-4 {[#1]|[«4»]|[«4»]}
<Blob 0x203a8 [2] 0x20884> Δ-2 {[#1]|[«4»]|[«4»]|[«2»]}
<Blob 0x203aa [8] 0x20885> Δ-8 {[#1]|[«4»]|[«4»]|[«2»]|[«8»]}
<Call 0x203b8 0x1054a> {[#1]|[«4»]|[«4»]|[«2»]|[«8»]}
?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
<POP 203be-203c2 StackAdj> Δ+20 {}
<POP 203c2-203ca Epilogue> Σ0
@ 203ca
<LVAR -0x001 @ 1(r)>
<LVAR -0x009 @>
<LVAR -0x00a @ 1(r)>
<LVAR -0x00e @ 4(r)>
<LVAR -0x012 @ 4(r)>
<LVAR -0x013 @ 1(r)>
<LVAR -0x014 1(rw)>
<LVAR -0x018 @ 4(r)>
<LVAR -0x01a @>
<LVAR -0x01b @>
<LVAR -0x01c @ 1(r)>
<POP 203ca-20570 Body> Δ+2
<POP 203ca-203e0 Prologue> Σ0 ↓
<POP 203e0-203f2 RegCacheLoad> Σ0 ↓
<POP 203f2-20426 Naked> Σ0 ↓ →0x2042c
<Call 0x203f2 0x105b6> {}
R1000_Reset_L(void)
<Const 0x203f8 0x186.4> Δ-4 {[##390]}
<Call 0x203fc 0x10224> {[##390]}
KC12_Sleep(dur: Long)
<POP 20402-20404 StackAdj> Δ+4 {}
<Call 0x20404 0x105bc> {}
R1000_Reset_H(void)
<Const 0x2040a 0x4.2> Δ-2 {[#4]}
<Pointer.fp 0x2040c <LVAR -0x01c @ 1(r)>> Δ-4 {[#4]|[@@-28]}
<Pointer.fp 0x2040e <LVAR -0x01b @>> Δ-4 {[#4]|[@@-28]|[@@-27]}
<Pointer.fp 0x20412 <LVAR -0x01a @>> Δ-4 {[#4]|[@@-28]|[@@-27]|[@@-26]}
<Call 0x20416 0x10484> {[#4]|[@@-28]|[@@-27]|[@@-26]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 2041c-2041e StackAdj> Δ+14 {}
<MI 2041e MOVE.B (A6-0x1c),D0> {}
<MI 20420 CMPI.B #0x05,D0> {}
<MI 20424 BEQ 0x2042c> {}
<POP 20426-2042c Naked> Σ0 ↓
<Const 0x20426 0x1.2> Δ-2 {[#1]}
<Call 0x20428 0x2036e> {[#1]}
<POP 2042a-2042c StackAdj> Δ+2 {}
<POP 2042c-2049a Naked> Σ0 ↓ ←0x203f2
<Call 0x2042c 0x207c8> {}
exp_RESET.IOC()
<Blob 0x20432 [18] @> Δ-18 {[«18""»]}
<POP 20444-20446 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20446 17> {[«18""»]|[$$TRIGGER_SCOPE.IOC]}
<Pointer.fp 0x20458 <LVAR -0x018 @ 4(r)>> Δ-4 {[«18""»]|[$$TRIGGER_SCOPE.IOC]|[@@-24]}
<Call 0x2045a 0x10460> {[«18""»]|[$$TRIGGER_SCOPE.IOC]|[@@-24]}
ExpLoad(a : String; b: Pointer)
<POP 20460-20464 StackAdj> Δ+24 {[-2-]}
<MI 20464 CLR.B (A7)> {[-2-]}
<MI 20466 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x18)']}
<Pointer.sp 0x20468 4> Δ-4 {[-2-]|[4, '(A6-0x18)']|[^^4]}
<Const 0x2046c 0x0.4> Δ-4 {[-2-]|[4, '(A6-0x18)']|[^^4]|[##0]}
<Const 0x20470 0x0.4> Δ-4 {[-2-]|[4, '(A6-0x18)']|[^^4]|[##0]|[##0]}
<Call 0x20474 0x10466> {[-2-]|[4, '(A6-0x18)']|[^^4]|[##0]|[##0]}
ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
<POP 2047a-2047e StackAdj> Δ+16 {[-2-]}
<POP 2047e-2047f StackAdj> Δ+2 {}
<Const 0x2047f 0x4.2> Δ-2 {[#4]}
<MI 20480 MOVE.L (A6-0x18),-(A7)> Δ-4 {[#4]|[4, '(A6-0x18)']}
<Call 0x20482 0x1047e> {[#4]|[4, '(A6-0x18)']}
ExpXmit(adr : Byte; b : Pointer)
<POP 20488-2048a StackAdj> Δ+6 {}
<Pointer.fp 0x2048a <LVAR -0x018 @ 4(r)>> Δ-4 {[@@-24]}
<Call 0x2048c 0x10496> {[@@-24]}
ExpClose(exp : Pointer)
<POP 20492-20494 StackAdj> Δ+4 {}
<MI 20494 MOVE.L #0x7d0,D7> {}
<POP 2049a-204b2 Naked> Σ0 ↓ →0x204b8 ←0x204b2
<Const 0x2049a 0x4.2> Δ-2 {[#4]}
<Pointer.fp 0x2049c <LVAR -0x01c @ 1(r)>> Δ-4 {[#4]|[@@-28]}
<Pointer.fp 0x2049e <LVAR -0x01b @>> Δ-4 {[#4]|[@@-28]|[@@-27]}
<Pointer.fp 0x204a2 <LVAR -0x01a @>> Δ-4 {[#4]|[@@-28]|[@@-27]|[@@-26]}
<Call 0x204a6 0x10484> {[#4]|[@@-28]|[@@-27]|[@@-26]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 204ac-204ae StackAdj> Δ+14 {}
<MI 204ae SUBQ.L #0x1,D7> {}
<MI 204b0 BEQ 0x204b8> {}
<POP 204b2-204b8 Naked> Σ0 ↓ →0x2049a
<MI 204b2 MOVE.B (A6-0x1c),D0> {}
<MI 204b4 CMP.B #0x01,D0> {}
<MI 204b6 BNE 0x2049a> {}
<POP 204b8-204c0 Naked> Σ0 ↓ →0x2054e ←0x2049a
<MI 204b8 MOVE.B (A6-0x1c),D0> {}
<MI 204ba CMP.B #0x01,D0> {}
<MI 204bc BEQ 0x2054e> {}
<POP 204c0-204c8 Naked> Σ0 ↓ →0x204d2
<MI 204c0 TST.B 0x2087a> {}
<MI 204c6 BNE 0x204d2> {}
<POP 204c8-204cc Naked> Σ0 Δ-2 ↓
<Const 0x204c8 0x8.2> Δ-2 {[#8]}
<POP 204cc-204d2 Naked> Σ-2 Δ+2 →0x2054e ←0x20520
<Call 0x204cc 0x2036e> {[-2-]}
<POP 204ce-204d0 StackAdj> Δ+2 {}
<MI 204d0 BRA 0x2054e> {}
<POP 204d2-20520 Naked> Σ0 ↓ →0x20526 ←0x204c0
<MI 204d2 MOVE.B #0x04,(A6-0x14)> {}
<Blob 0x204d6 [4] @> Δ-4 {[«4""»]}
<MI 204da MOVE.B (A6-0x14),-(A7)> Δ-2 {[«4""»]|[2, '(A6-0x14)']}
<POP 204de-204e0 StackAdj> Δ-4 {[«4""»]|[2, '(A6-0x14)']|[-4-]}
<Lit 0x204e0 4> {[«4""»]|[2, '(A6-0x14)']|[$$P1SF]}
<POP 204ee-204f0 StackAdj> Δ-2 {[«4""»]|[2, '(A6-0x14)']|[$$P1SF]|[-2-]}
<POP 204f0-204f1 StackAdj> Δ+2 {[«4""»]|[2, '(A6-0x14)']|[$$P1SF]}
<Blob 0x204f1 [2] 0x2087a> Δ-2 {[«4""»]|[2, '(A6-0x14)']|[$$P1SF]|[«2»]}
<Blob 0x204f6 [2] 0x2087b> Δ-2 {[«4""»]|[2, '(A6-0x14)']|[$$P1SF]|[«2»]|[«2»]}
<Pointer.fp 0x204fc <LVAR -0x013 @ 1(r)>> Δ-4 {[«4""»]|[2, '(A6-0x14)']|[$$P1SF]|[«2»]|[«2»]|[@@-19]}
<Pointer.fp 0x20500 <LVAR -0x012 @ 4(r)>> Δ-4 {[«4""»]|[2, '(A6-0x14)']|[$$P1SF]|[«2»]|[«2»]|[@@-19]|[@@-18]}
<Pointer.fp 0x20504 <LVAR -0x00e @ 4(r)>> Δ-4 {[«4""»]|[2, '(A6-0x14)']|[$$P1SF]|[«2»]|[«2»]|[@@-19]|[@@-18]|[@@-14]}
<Pointer.fp 0x20508 <LVAR -0x00a @ 1(r)>> Δ-4 {[«4""»]|[2, '(A6-0x14)']|[$$P1SF]|[«2»]|[«2»]|[@@-19]|[@@-18]|[@@-14]|[@@-10]}
<Pointer.fp 0x2050c <LVAR -0x009 @>> Δ-4 {[«4""»]|[2, '(A6-0x14)']|[$$P1SF]|[«2»]|[«2»]|[@@-19]|[@@-18]|[@@-14]|[@@-10]|[@@-9]}
<Call 0x20510 0x10550> {[«4""»]|[2, '(A6-0x14)']|[$$P1SF]|[«2»]|[«2»]|[@@-19]|[@@-18]|[@@-14]|[@@-10]|[@@-9]}
?ExecFRU(VAR a : L; VAR b : W; VAR c: L; VAR d : L; VAR e: B)
<POP 20516-2051a StackAdj> Δ+34 {}
<MI 2051a TST.B (A6-0x13)> {}
<MI 2051e BEQ 0x20526> {}
<POP 20520-20526 Naked> Σ0 Δ-2 →0x204cc
<Const 0x20520 0x2.2> Δ-2 {[#2]}
<MI 20524 BRA 0x204cc> {[#2]}
<POP 20526-2054e Naked> Σ0 ↓ ←0x204d2
<MI 20526 CLR.B -(A7)> Δ-2 {[#0]}
<MI 20528 MOVE.L (A6-0x12),-(A7)> Δ-4 {[#0]|[4, '(A6-0x12)']}
<MI 2052c MOVE.L (A6-0xe),-(A7)> Δ-4 {[#0]|[4, '(A6-0x12)']|[4, '(A6-0xe)']}
<MI 20530 MOVE.B (A6-0xa),-(A7)> Δ-2 {[#0]|[4, '(A6-0x12)']|[4, '(A6-0xe)']|[2, '(A6-0xa)']}
<Blob 0x20534 [8] (A6-0x9)> Δ-8 {[#0]|[4, '(A6-0x12)']|[4, '(A6-0xe)']|[2, '(A6-0xa)']|[«8»]}
<Call 0x20544 0x1054a> {[#0]|[4, '(A6-0x12)']|[4, '(A6-0xe)']|[2, '(A6-0xa)']|[«8»]}
?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
<POP 2054a-2054e StackAdj> Δ+20 {}
<POP 2054e-20560 Naked> Σ0 ↓ →0x20568 ←0x204b8 ←0x204cc
<Pointer.fp 0x2054e <LVAR -0x001 @ 1(r)>> Δ-4 {[@@-1]}
<Call 0x20552 0x20788> {[@@-1]}
exp_TEST_RESET.IOC(&Fr)
<POP 20558-2055a StackAdj> Δ+4 {}
<MI 2055a TST.B (A6-0x1)> {}
<MI 2055e BNE 0x20568> {}
<POP 20560-20568 Naked> Σ0 ↓
<Const 0x20560 0x3.2> Δ-2 {[#3]}
<Call 0x20564 0x2036e> {[#3]}
<POP 20566-20568 StackAdj> Δ+2 {}
<POP 20568-20570 Epilogue> Σ0 ←0x2054e
@ 20570
<LVAR -0x004 @>
<LVAR -0x005 @>
<LVAR -0x00d @>
<LVAR -0x015 @>
<LVAR -0x017 @>
<LVAR -0x018 @>
<LVAR -0x019 @>
<LVAR -0x021 @>
<LVAR -0x029 @>
<LVAR -0x02b @>
<LVAR -0x02c @ 1(r)>
<POP 20570-2061a Body>
<POP 20570-20586 Prologue> Σ0 ↓
<POP 20586-20590 RegCacheLoad> Σ0 ↓
<POP 20590-205a6 Naked> Σ0 ↓ →0x205ae
<Pointer.fp 0x20590 <LVAR -0x02c @ 1(r)>> Δ-4 {[@@-44]}
<Pointer.fp 0x20592 <LVAR -0x02b @>> Δ-4 {[@@-44]|[@@-43]}
<Pointer.fp 0x20596 <LVAR -0x017 @>> Δ-4 {[@@-44]|[@@-43]|[@@-23]}
<Call 0x2059a 0x2071c> {[@@-44]|[@@-43]|[@@-23]}
exp_TEST_UIR_SCAN.IOC(&Fr, &Sr_2, &Sr_2)
<POP 205a0-205a2 StackAdj> Δ+12 {}
<MI 205a2 TST.B (A6-0x2c)> {}
<MI 205a4 BNE 0x205ae> {}
<POP 205a6-205ae Naked> Σ0 ↓
<Const 0x205a6 0x4.2> Δ-2 {[#4]}
<Call 0x205aa 0x2036e> {[#4]}
<POP 205ac-205ae StackAdj> Δ+2 {}
<POP 205ae-205c4 Naked> Σ0 ↓ →0x205cc ←0x20590
<Pointer.fp 0x205ae <LVAR -0x02c @ 1(r)>> Δ-4 {[@@-44]}
<Pointer.fp 0x205b0 <LVAR -0x019 @>> Δ-4 {[@@-44]|[@@-25]}
<Pointer.fp 0x205b4 <LVAR -0x005 @>> Δ-4 {[@@-44]|[@@-25]|[@@-5]}
<Call 0x205b8 0x207a4> {[@@-44]|[@@-25]|[@@-5]}
exp_TEST_PAREG_SCAN.IOC(&Fr, &Sr_1, &Sr_1)
<POP 205be-205c0 StackAdj> Δ+12 {}
<MI 205c0 TST.B (A6-0x2c)> {}
<MI 205c2 BNE 0x205cc> {}
<POP 205c4-205cc Naked> Σ0 ↓
<Const 0x205c4 0x5.2> Δ-2 {[#5]}
<Call 0x205c8 0x2036e> {[#5]}
<POP 205ca-205cc StackAdj> Δ+2 {}
<POP 205cc-205e2 Naked> Σ0 ↓ →0x205ea ←0x205ae
<Pointer.fp 0x205cc <LVAR -0x02c @ 1(r)>> Δ-4 {[@@-44]}
<Pointer.fp 0x205ce <LVAR -0x018 @>> Δ-4 {[@@-44]|[@@-24]}
<Pointer.fp 0x205d2 <LVAR -0x004 @>> Δ-4 {[@@-44]|[@@-24]|[@@-4]}
<Call 0x205d6 0x2073e> {[@@-44]|[@@-24]|[@@-4]}
exp_TEST_SYNDROME_SCAN.IOC(&Fr, &Sr_1, &Sr_1)
<POP 205dc-205de StackAdj> Δ+12 {}
<MI 205de TST.B (A6-0x2c)> {}
<MI 205e0 BNE 0x205ea> {}
<POP 205e2-205ea Naked> Σ0 ↓
<Const 0x205e2 0x6.2> Δ-2 {[#6]}
<Call 0x205e6 0x2036e> {[#6]}
<POP 205e8-205ea StackAdj> Δ+2 {}
<POP 205ea-2060a Naked> Σ0 ↓ →0x20612 ←0x205cc
<Pointer.fp 0x205ea <LVAR -0x02c @ 1(r)>> Δ-4 {[@@-44]}
<Pointer.fp 0x205ec <LVAR -0x029 @>> Δ-4 {[@@-44]|[@@-41]}
<Pointer.fp 0x205f0 <LVAR -0x021 @>> Δ-4 {[@@-44]|[@@-41]|[@@-33]}
<Pointer.fp 0x205f4 <LVAR -0x015 @>> Δ-4 {[@@-44]|[@@-41]|[@@-33]|[@@-21]}
<Pointer.fp 0x205f8 <LVAR -0x00d @>> Δ-4 {[@@-44]|[@@-41]|[@@-33]|[@@-21]|[@@-13]}
<Call 0x205fc 0x20764> {[@@-44]|[@@-41]|[@@-33]|[@@-21]|[@@-13]}
exp_TEST_RDR_SCAN.IOC(&Fr, &Sr_8, &Sr_8, &Sr_8, &Sr_8)
<POP 20602-20606 StackAdj> Δ+20 {}
<MI 20606 TST.B (A6-0x2c)> {}
<MI 20608 BNE 0x20612> {}
<POP 2060a-20612 Naked> Σ0 ↓
<Const 0x2060a 0x7.2> Δ-2 {[#7]}
<Call 0x2060e 0x2036e> {[#7]}
<POP 20610-20612 StackAdj> Δ+2 {}
<POP 20612-2061a Epilogue> Σ0 ←0x205ea
@ 2061a
<LVAR -0x006 @>
<LVAR -0x007 @ 1(r)>
<LVAR -0x008 @>
<POP 2061a-2069e Body>
<POP 2061a-20630 Prologue> Σ0 ↓
<POP 20630-20632 RegCacheLoad> Σ0 ↓
<POP 20632-20634 Naked> Σ0 ↓
<MI 20632 MOVEQ.L #0x00,D7> {}
<POP 20634-20684 Naked> Σ0 ↓ →0x2068e ←0x2068e
<POP 0x20634 LimitCheck 0x0 ≤ D7 ≤ 0xf> {}
<MI 2063a MOVE.L D7,D0> {}
<MI 2063c ASL.L #0x1,D0> {}
<MI 2063e LEA.L 0x2017a,A0> {}
<MI 20642 MOVE.B (A0+D0.L),-(A7)> Δ-2 {[2, '(A0+D0.L)']}
<MI 20646 CLR.B -(A7)> Δ-2 {[2, '(A0+D0.L)']|[#0]}
<Call 0x20648 0x207de> {[2, '(A0+D0.L)']|[#0]}
exp_LOAD_PAREG.IOC(Sw_1, Sw_1)
<POP 2064e-20650 StackAdj> Δ+2 {[2, '(A0+D0.L)']}
<POP 20650-20651 StackAdj> Δ+2 {}
<Const 0x20651 0x4.2> Δ-2 {[#4]}
<Pointer.fp 0x20654 <LVAR -0x008 @>> Δ-4 {[#4]|[@@-8]}
<Pointer.fp 0x20658 <LVAR -0x007 @ 1(r)>> Δ-4 {[#4]|[@@-8]|[@@-7]}
<Pointer.fp 0x2065c <LVAR -0x006 @>> Δ-4 {[#4]|[@@-8]|[@@-7]|[@@-6]}
<Call 0x20660 0x10484> {[#4]|[@@-8]|[@@-7]|[@@-6]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 20666-2066a StackAdj> Δ+14 {}
<MI 2066a ADDQ.L #0x1,D7> {}
<POP 0x2066c LimitCheck 0x0 ≤ D7 ≤ 0xf> {}
<MI 20672 MOVE.L D7,D0> {}
<MI 20674 ASL.L #0x1,D0> {}
<MI 20676 LEA.L 0x2017a,A0> {}
<MI 2067a MOVE.B (A6-0x7),D1> {}
<MI 2067e CMP.B (A0+D0.L+#0x1),D1> {}
<MI 20682 BEQ 0x2068e> {}
<POP 20684-2068e Naked> Σ0 ↓
<Const 0x20684 0x9.2> Δ-2 {[#9]}
<Call 0x20688 0x2036e> {[#9]}
<POP 2068c-2068e StackAdj> Δ+2 {}
<POP 2068e-20696 Naked> Σ0 ↓ →0x20634 ←0x20634
<MI 2068e CMPI.L #0x00000010,D7> {}
<MI 20694 BNE 0x20634> {}
<POP 20696-2069e Epilogue> Σ0
@ 2069e
<POP 2069e-206b4 Body>
<POP 2069e-206b0 Prologue> Σ0 ↓
<POP 206b0-206b4 Epilogue> Σ0
@ 206b4
START
<POP 206b4--0001 Body>
<POP 206b4-206be Prologue> Σ0
<POP 206be-20716 Naked> Σ0 ↓
<Call 0x206be 0x10398> {}
FSCALL_10398
<Const 0x206c4 0x0.4> Δ-4 {[##0]}
<Call 0x206c8 0x104d8> {[##0]}
ExpInit(a : Long)
<POP 206ce-206d0 StackAdj> Δ+4 {}
<Call 0x206d0 0x202d6> {}
<Call 0x206d4 0x203ca> {}
<Call 0x206d8 0x20570> {}
<Call 0x206dc 0x2061a> {}
<Call 0x206e0 0x2069e> {}
<Const 0x206e4 0x1.2> Δ-2 {[#1]}
<Blob 0x206e8 [4] 0x2087c> Δ-4 {[#1]|[«4»]}
<Blob 0x206ee [4] 0x20880> Δ-4 {[#1]|[«4»]|[«4»]}
<Blob 0x206f4 [2] 0x20884> Δ-2 {[#1]|[«4»]|[«4»]|[«2»]}
<Blob 0x206fa [8] 0x20885> Δ-8 {[#1]|[«4»]|[«4»]|[«2»]|[«8»]}
<Call 0x2070c 0x1054a> {[#1]|[«4»]|[«4»]|[«2»]|[«8»]}
?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
<POP 20712-20716 StackAdj> Δ+20 {}
<POP 20716-2071c Naked> Σ0
<Call 0x20716 0x10284> {}
?exit
@ 2080a
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 2080a-20872 Body>
<POP 2080a-20820 Prologue> Σ0 ↓
<POP 20820-2086a Naked> Σ0 ↓
<Blob 0x20820 [14] @> Δ-14 {[«14""»]}
<Const 0x2082c 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 20830-20832 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x20832 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 20844-20846 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20846 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2084a EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2084c EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2084e MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x20850 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 20856-20858 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x20858 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2085e-20860 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x20860 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 20866-2086a StackAdj> Δ+20 {}
<POP 2086a-20872 Epilogue> Σ0
00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ; import all
00020000 ; import kind.program
00020000 ; no ident.b4e4c73ee163a8bc
00020000 ; --------------------------------------------------------------------------------------
00020000 stack.top:
00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END
00020004 00 02 06 b4 | | .CODE START
00020008 00 01 02 88 | | .CODE FSCALL_10288
0002000c heap.top:
0002000c 00 02 08 96 | | .PTR 0x20896
00020010 code.end:
00020010 00 02 08 72 | r | .PTR 0x20872
00020014 00 00 00 00 | | .CONST 0x00000000
00020018 programfailurehandler:
00020018 00 02 08 0a | | .CODE PROG_FAIL
0002001c experimentfailurehandler:
0002001c 00 02 01 9a | | .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 31 49 4f 43 20 |P1IOC | .TXT 'P1IOC '
00020164 54 52 49 47 47 45 52 5f |TRIGGER_| .TXT 'TRIGGER_SCOPE.IOC '
00020176 50 31 53 46 |P1SF | .TXT 'P1SF'
0002017a 00 01 10 01 20 01 | | .XXX[0x6]
00020180 30 01 40 01 50 01 60 01 |0 @ P ` | .XXX[0x18]
00020188 70 01 80 01 90 01 a0 01 |p |
00020190 b0 01 c0 01 d0 01 e0 01 | |
00020198 f0 00 | | .XXX[0x2]
0002019a ; --------------------------------------------------------------------------------------
0002019a ; OMSI PASCAL Function
0002019a ; <LVAR 0x00e 1(r)>
0002019a ; <LVAR 0x00a 4(r)>
0002019a ; <LVAR 0x008 1(r)>
0002019a ; --------------------------------------------------------------------------------------
0002019a EXP_FAIL:
0002019a 4e 56 ff 8c |NV | LINK.W A6,#0xff8c
0002019e bf d5 | | CMPA.L (A5),A7
000201a0 62 06 |b | BHI 0x201a8
000201a2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000201a6 4e 76 |Nv | TRAPV
000201a8 de fc 00 74 | t | ADDA.W #0x74,A7
000201ac 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000201b0 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000201b6 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4
000201bc 72 01 |r | MOVEQ.L #0x01,D1
000201be 74 0d |t | MOVEQ.L #0x0d,D2
000201c0 76 1e |v | MOVEQ.L #0x1e,D3
000201c2 78 12 |x | MOVEQ.L #0x12,D4
000201c4 7a 0e |z | MOVEQ.L #0x0e,D5
000201c6 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
000201cc 41 fa ff 78 |A x | LEA.L 0x20146,A0
000201d0 70 08 |p | MOVEQ.L #0x08,D0
000201d2 3f 20 |? | MOVE.W -(A0),-(A7)
000201d4 51 c8 ff fc |Q | DBF D0,0x201d2
000201d8 59 4f |YO | SUBQ.L #0x4,A7
000201da 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000201de 3f 01 |? | MOVE.W D1,-(A7)
000201e0 3f 04 |? | MOVE.W D4,-(A7)
000201e2 4e 93 |N | JSR (A3)
000201e4 50 4f |PO | ADDQ.L #0x8,A7
000201e6 4e 94 |N | JSR (A4)
000201e8 50 4f |PO | ADDQ.L #0x8,A7
000201ea 20 4f | O | MOVEA.L A7,A0
000201ec 43 fa ff 1c |C | LEA.L 0x2010a,A1
000201f0 70 0c |p | MOVEQ.L #0x0c,D0
000201f2 10 d9 | | MOVE.B (A1)+,(A0)+
000201f4 51 c8 ff fc |Q | DBF D0,0x201f2
000201f8 51 4f |QO | SUBQ.L #0x8,A7
000201fa 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000201fe 3f 01 |? | MOVE.W D1,-(A7)
00020200 3f 02 |? | MOVE.W D2,-(A7)
00020202 4e 93 |N | JSR (A3)
00020204 54 4f |TO | ADDQ.L #0x2,A7
00020206 1e ae 00 0e | | MOVE.B (A6+0xe),(A7)
0002020a 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String
00020210 54 4f |TO | ADDQ.L #0x2,A7
00020212 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020218 50 4f |PO | ADDQ.L #0x8,A7
0002021a 4e 94 |N | JSR (A4)
0002021c de c4 | | ADDA.W D4,A7
0002021e 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0
00020222 b0 c1 | | CMPA.W D1,A0
00020224 67 48 |gH | BEQ 0x2026e
00020226 9e c5 | | SUBA.W D5,A7
00020228 22 4f |"O | MOVEA.L A7,A1
0002022a 45 fa fe ec |E | LEA.L 0x20118,A2
0002022e 70 0c |p | MOVEQ.L #0x0c,D0
00020230 12 da | | MOVE.B (A2)+,(A1)+
00020232 51 c8 ff fc |Q | DBF D0,0x20230
00020236 9e c3 | | SUBA.W D3,A7
00020238 22 4f |"O | MOVEA.L A7,A1
0002023a 41 e8 00 fc |A | LEA.L (A0+0xfc),A0
0002023e 70 1d |p | MOVEQ.L #0x1d,D0
00020240 12 d8 | | MOVE.B (A0)+,(A1)+
00020242 51 c8 ff fc |Q | DBF D0,0x20240
00020246 51 4f |QO | SUBQ.L #0x8,A7
00020248 48 6f 00 26 |Ho & | PEA.L (A7+0x26)
0002024c 3f 01 |? | MOVE.W D1,-(A7)
0002024e 3f 02 |? | MOVE.W D2,-(A7)
00020250 4e 93 |N | JSR (A3)
00020252 58 4f |XO | ADDQ.L #0x4,A7
00020254 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00020258 3f 01 |? | MOVE.W D1,-(A7)
0002025a 3f 03 |? | MOVE.W D3,-(A7)
0002025c 4e 93 |N | JSR (A3)
0002025e 50 4f |PO | ADDQ.L #0x8,A7
00020260 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020266 50 4f |PO | ADDQ.L #0x8,A7
00020268 4e 94 |N | JSR (A4)
0002026a de fc 00 30 | 0 | ADDA.W #0x30,A7
0002026e 9e c5 | | SUBA.W D5,A7
00020270 20 4f | O | MOVEA.L A7,A0
00020272 43 fa fe b2 |C | LEA.L 0x20126,A1
00020276 70 0c |p | MOVEQ.L #0x0c,D0
00020278 10 d9 | | MOVE.B (A1)+,(A0)+
0002027a 51 c8 ff fc |Q | DBF D0,0x20278
0002027e 51 4f |QO | SUBQ.L #0x8,A7
00020280 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020284 3f 01 |? | MOVE.W D1,-(A7)
00020286 3f 02 |? | MOVE.W D2,-(A7)
00020288 4e 93 |N | JSR (A3)
0002028a 54 4f |TO | ADDQ.L #0x2,A7
0002028c 1e ae 00 08 | | MOVE.B (A6+0x8),(A7)
00020290 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String)
00020296 54 4f |TO | ADDQ.L #0x2,A7
00020298 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
0002029e 50 4f |PO | ADDQ.L #0x8,A7
000202a0 4e 94 |N | JSR (A4)
000202a2 5d 4f |]O | SUBQ.L #0x6,A7
000202a4 20 4f | O | MOVEA.L A7,A0
000202a6 43 fa fe 9e |C | LEA.L 0x20146,A1
000202aa 70 16 |p | MOVEQ.L #0x16,D0
000202ac 10 d9 | | MOVE.B (A1)+,(A0)+
000202ae 51 c8 ff fc |Q | DBF D0,0x202ac
000202b2 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
000202b6 59 4f |YO | SUBQ.L #0x4,A7
000202b8 48 6f 00 06 |Ho | PEA.L (A7+0x6)
000202bc 3f 01 |? | MOVE.W D1,-(A7)
000202be 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
000202c2 4e 93 |N | JSR (A3)
000202c4 50 4f |PO | ADDQ.L #0x8,A7
000202c6 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
000202cc de c3 | | ADDA.W D3,A7
000202ce 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
000202d2 4e 5e |N^ | UNLK A6
000202d4 4e 75 |Nu | RTS
000202d6 ; --------------------------------------------------------------------------------------
000202d6 ; OMSI PASCAL Function
000202d6 ; --------------------------------------------------------------------------------------
000202d6 4e 56 ff ce |NV | LINK.W A6,#0xffce
000202da bf d5 | | CMPA.L (A5),A7
000202dc 62 06 |b | BHI 0x202e4
000202de 44 fc 00 02 |D | MOVE.W #0x2,CCR
000202e2 4e 76 |Nv | TRAPV
000202e4 de fc 00 2e | . | ADDA.W #0x2e,A7
000202e8 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7)
000202ec 45 f9 00 02 08 7b |E { | LEA.L 0x2087b,A2
000202f2 72 07 |r | MOVEQ.L #0x07,D1
000202f4 48 79 00 02 08 7a |Hy z | PEA.L 0x2087a
000202fa 48 52 |HR | PEA.L (A2)
000202fc 4e b9 00 01 05 44 |N D | JSR IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool)
00020302 5c 4f |\O | ADDQ.L #0x6,A7
00020304 1e 92 | | MOVE.B (A2),(A7)
00020306 4e b9 00 01 04 d2 |N | JSR SetExpInitDone(a : Byte)
0002030c 59 4f |YO | SUBQ.L #0x4,A7
0002030e 20 4f | O | MOVEA.L A7,A0
00020310 43 fa fe 4c |C L | LEA.L 0x2015e,A1
00020314 70 04 |p | MOVEQ.L #0x04,D0
00020316 10 d9 | | MOVE.B (A1)+,(A0)+
00020318 51 c8 ff fc |Q | DBF D0,0x20316
0002031c 59 4f |YO | SUBQ.L #0x4,A7
0002031e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020322 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00020326 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
0002032a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020330 50 4f |PO | ADDQ.L #0x8,A7
00020332 23 df 00 02 08 7c |# | | MOVE.L (A7)+,0x2087c
00020338 5c 4f |\O | ADDQ.L #0x6,A7
0002033a 48 79 00 02 08 80 |Hy | PEA.L 0x20880
00020340 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00020346 58 4f |XO | ADDQ.L #0x4,A7
00020348 42 39 00 02 08 84 |B9 | CLR.B 0x20884
0002034e 7e 00 |~ | MOVEQ.L #0x00,D7
00020350 be 81 | | CMP.L D1,D7
00020352 63 02 |c | BLS 0x20356
00020354 4e 4f |NO | TRAP #15
00020356 41 f9 00 02 08 72 |A r | LEA.L 0x20872,A0
0002035c 42 30 78 13 |B0x | CLR.B (A0+D7.L+#0x13)
00020360 52 87 |R | ADDQ.L #0x1,D7
00020362 be 81 | | CMP.L D1,D7
00020364 6f ea |o | BLE 0x20350
00020366 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2
0002036a 4e 5e |N^ | UNLK A6
0002036c 4e 75 |Nu | RTS
0002036e ; --------------------------------------------------------------------------------------
0002036e ; OMSI PASCAL Function
0002036e ; <LVAR 0x008 1(r)>
0002036e ; --------------------------------------------------------------------------------------
0002036e 4e 56 ff d2 |NV | LINK.W A6,#0xffd2
00020372 bf d5 | | CMPA.L (A5),A7
00020374 62 06 |b | BHI 0x2037c
00020376 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002037a 4e 76 |Nv | TRAPV
0002037c de fc 00 2c | , | ADDA.W #0x2c,A7
00020380 48 e7 80 f0 |H | MOVEM.L A3+A2+A1+A0+D0,-(A7)
00020384 45 f9 00 02 08 84 |E | LEA.L 0x20884,A2
0002038a 47 f9 00 02 08 85 |G | LEA.L 0x20885,A3
00020390 14 ae 00 08 | | MOVE.B (A6+0x8),(A2)
00020394 16 bc 00 2b | + | MOVE.B #0x2b,(A3)
00020398 1f 3c 00 01 | < | MOVE.B #0x01,-(A7)
0002039c 2f 39 00 02 08 7c |/9 | | MOVE.L 0x2087c,-(A7)
000203a2 2f 39 00 02 08 80 |/9 | MOVE.L 0x20880,-(A7)
000203a8 1f 12 | | MOVE.B (A2),-(A7)
000203aa 51 4f |QO | SUBQ.L #0x8,A7
000203ac 20 4f | O | MOVEA.L A7,A0
000203ae 22 4b |"K | MOVEA.L A3,A1
000203b0 70 07 |p | MOVEQ.L #0x07,D0
000203b2 10 d9 | | MOVE.B (A1)+,(A0)+
000203b4 51 c8 ff fc |Q | DBF D0,0x203b2
000203b8 4e b9 00 01 05 4a |N J | JSR ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
000203be de fc 00 14 | | ADDA.W #0x14,A7
000203c2 4c df 0f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3
000203c6 4e 5e |N^ | UNLK A6
000203c8 4e 75 |Nu | RTS
000203ca ; --------------------------------------------------------------------------------------
000203ca ; OMSI PASCAL Function
000203ca ; <LVAR -0x001 @ 1(r)>
000203ca ; <LVAR -0x009 @>
000203ca ; <LVAR -0x00a @ 1(r)>
000203ca ; <LVAR -0x00e @ 4(r)>
000203ca ; <LVAR -0x012 @ 4(r)>
000203ca ; <LVAR -0x013 @ 1(r)>
000203ca ; <LVAR -0x014 1(rw)>
000203ca ; <LVAR -0x018 @ 4(r)>
000203ca ; <LVAR -0x01a @>
000203ca ; <LVAR -0x01b @>
000203ca ; <LVAR -0x01c @ 1(r)>
000203ca ; --------------------------------------------------------------------------------------
000203ca 4e 56 ff 92 |NV | LINK.W A6,#0xff92
000203ce bf d5 | | CMPA.L (A5),A7
000203d0 62 06 |b | BHI 0x203d8
000203d2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000203d6 4e 76 |Nv | TRAPV
000203d8 de fc 00 4e | N | ADDA.W #0x4e,A7
000203dc 48 e7 f1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
000203e0 45 ee ff e4 |E | LEA.L (A6-0x1c),A2
000203e4 47 ee ff e8 |G | LEA.L (A6-0x18),A3
000203e8 49 fa ff 84 |I | LEA.L 0x2036e,A4
000203ec 72 04 |r | MOVEQ.L #0x04,D1
000203ee 74 01 |t | MOVEQ.L #0x01,D2
000203f0 76 0e |v | MOVEQ.L #0x0e,D3
000203f2 4e b9 00 01 05 b6 |N | JSR R1000_Reset_L(void)
000203f8 48 78 01 86 |Hx | PEA.L 0x186
000203fc 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long)
00020402 58 4f |XO | ADDQ.L #0x4,A7
00020404 4e b9 00 01 05 bc |N | JSR R1000_Reset_H(void)
0002040a 1f 01 | | MOVE.B D1,-(A7)
0002040c 48 52 |HR | PEA.L (A2)
0002040e 48 6e ff e5 |Hn | PEA.L (A6-0x1b)
00020412 48 6e ff e6 |Hn | PEA.L (A6-0x1a)
00020416 4e b9 00 01 04 84 |N | JSR DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
0002041c de c3 | | ADDA.W D3,A7
0002041e 10 12 | | MOVE.B (A2),D0
00020420 0c 00 00 05 | | CMPI.B #0x05,D0
00020424 67 06 |g | BEQ 0x2042c
00020426 1f 02 | | MOVE.B D2,-(A7)
00020428 4e 94 |N | JSR (A4)
0002042a 54 4f |TO | ADDQ.L #0x2,A7
0002042c 4e b9 00 02 07 c8 |N | JSR exp_RESET.IOC()
00020432 9e fc 00 12 | | SUBA.W #0x12,A7
00020436 20 4f | O | MOVEA.L A7,A0
00020438 43 fa fd 2a |C * | LEA.L 0x20164,A1
0002043c 70 10 |p | MOVEQ.L #0x10,D0
0002043e 10 d9 | | MOVE.B (A1)+,(A0)+
00020440 51 c8 ff fc |Q | DBF D0,0x2043e
00020444 59 4f |YO | SUBQ.L #0x4,A7
00020446 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002044a 3f 02 |? | MOVE.W D2,-(A7)
0002044c 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00020450 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020456 50 4f |PO | ADDQ.L #0x8,A7
00020458 48 53 |HS | PEA.L (A3)
0002045a 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer)
00020460 de fc 00 18 | | ADDA.W #0x18,A7
00020464 42 17 |B | CLR.B (A7)
00020466 2f 13 |/ | MOVE.L (A3),-(A7)
00020468 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002046c 48 78 00 00 |Hx | PEA.L 0x0
00020470 48 78 00 00 |Hx | PEA.L 0x0
00020474 4e b9 00 01 04 66 |N f | JSR ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
0002047a de fc 00 10 | | ADDA.W #0x10,A7
0002047e 1e 81 | | MOVE.B D1,(A7)
00020480 2f 13 |/ | MOVE.L (A3),-(A7)
00020482 4e b9 00 01 04 7e |N ~ | JSR ExpXmit(adr : Byte; b : Pointer)
00020488 5c 4f |\O | ADDQ.L #0x6,A7
0002048a 48 53 |HS | PEA.L (A3)
0002048c 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer)
00020492 58 4f |XO | ADDQ.L #0x4,A7
00020494 2e 3c 00 00 07 d0 |.< | MOVE.L #0x7d0,D7
0002049a 1f 01 | | MOVE.B D1,-(A7)
0002049c 48 52 |HR | PEA.L (A2)
0002049e 48 6e ff e5 |Hn | PEA.L (A6-0x1b)
000204a2 48 6e ff e6 |Hn | PEA.L (A6-0x1a)
000204a6 4e b9 00 01 04 84 |N | JSR DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
000204ac de c3 | | ADDA.W D3,A7
000204ae 53 87 |S | SUBQ.L #0x1,D7
000204b0 67 06 |g | BEQ 0x204b8
000204b2 10 12 | | MOVE.B (A2),D0
000204b4 b0 02 | | CMP.B D2,D0
000204b6 66 e2 |f | BNE 0x2049a
000204b8 10 12 | | MOVE.B (A2),D0
000204ba b0 02 | | CMP.B D2,D0
000204bc 67 00 00 90 |g | BEQ 0x2054e
000204c0 4a 39 00 02 08 7a |J9 z | TST.B 0x2087a
000204c6 66 0a |f | BNE 0x204d2
000204c8 1f 3c 00 08 | < | MOVE.B #0x08,-(A7)
000204cc 4e 94 |N | JSR (A4)
000204ce 54 4f |TO | ADDQ.L #0x2,A7
000204d0 60 7c |`| | BRA 0x2054e
000204d2 1d 41 ff ec | A | MOVE.B D1,(A6-0x14)
000204d6 2f 3a fc 9e |/: | MOVE.L 0x20176,-(A7)
000204da 1f 2e ff ec | . | MOVE.B (A6-0x14),-(A7)
000204de 59 4f |YO | SUBQ.L #0x4,A7
000204e0 48 6f 00 06 |Ho | PEA.L (A7+0x6)
000204e4 3f 02 |? | MOVE.W D2,-(A7)
000204e6 3f 01 |? | MOVE.W D1,-(A7)
000204e8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000204ee 5c 4f |\O | ADDQ.L #0x6,A7
000204f0 1e b9 00 02 08 7a | z | MOVE.B 0x2087a,(A7)
000204f6 1f 39 00 02 08 7b | 9 { | MOVE.B 0x2087b,-(A7)
000204fc 48 6e ff ed |Hn | PEA.L (A6-0x13)
00020500 48 6e ff ee |Hn | PEA.L (A6-0x12)
00020504 48 6e ff f2 |Hn | PEA.L (A6-0xe)
00020508 48 6e ff f6 |Hn | PEA.L (A6-0xa)
0002050c 48 6e ff f7 |Hn | PEA.L (A6-0x9)
00020510 4e b9 00 01 05 50 |N P | JSR ?ExecFRU(VAR a : L; VAR b : W; VAR c: L; VAR d : L; VAR e: B)
00020516 de fc 00 22 | " | ADDA.W #0x22,A7
0002051a 4a 2e ff ed |J. | TST.B (A6-0x13)
0002051e 67 06 |g | BEQ 0x20526
00020520 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00020524 60 a6 |` | BRA 0x204cc
00020526 42 27 |B' | CLR.B -(A7)
00020528 2f 2e ff ee |/. | MOVE.L (A6-0x12),-(A7)
0002052c 2f 2e ff f2 |/. | MOVE.L (A6-0xe),-(A7)
00020530 1f 2e ff f6 | . | MOVE.B (A6-0xa),-(A7)
00020534 51 4f |QO | SUBQ.L #0x8,A7
00020536 20 4f | O | MOVEA.L A7,A0
00020538 43 ee ff f7 |C | LEA.L (A6-0x9),A1
0002053c 70 07 |p | MOVEQ.L #0x07,D0
0002053e 10 d9 | | MOVE.B (A1)+,(A0)+
00020540 51 c8 ff fc |Q | DBF D0,0x2053e
00020544 4e b9 00 01 05 4a |N J | JSR ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
0002054a de fc 00 14 | | ADDA.W #0x14,A7
0002054e 48 6e ff ff |Hn | PEA.L (A6-0x1)
00020552 4e b9 00 02 07 88 |N | JSR exp_TEST_RESET.IOC(&Fr)
00020558 58 4f |XO | ADDQ.L #0x4,A7
0002055a 4a 2e ff ff |J. | TST.B (A6-0x1)
0002055e 66 08 |f | BNE 0x20568
00020560 1f 3c 00 03 | < | MOVE.B #0x03,-(A7)
00020564 4e 94 |N | JSR (A4)
00020566 54 4f |TO | ADDQ.L #0x2,A7
00020568 4c df 1f 8f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3+A4
0002056c 4e 5e |N^ | UNLK A6
0002056e 4e 75 |Nu | RTS
00020570 ; --------------------------------------------------------------------------------------
00020570 ; OMSI PASCAL Function
00020570 ; <LVAR -0x004 @>
00020570 ; <LVAR -0x005 @>
00020570 ; <LVAR -0x00d @>
00020570 ; <LVAR -0x015 @>
00020570 ; <LVAR -0x017 @>
00020570 ; <LVAR -0x018 @>
00020570 ; <LVAR -0x019 @>
00020570 ; <LVAR -0x021 @>
00020570 ; <LVAR -0x029 @>
00020570 ; <LVAR -0x02b @>
00020570 ; <LVAR -0x02c @ 1(r)>
00020570 ; --------------------------------------------------------------------------------------
00020570 4e 56 ff b0 |NV | LINK.W A6,#0xffb0
00020574 bf d5 | | CMPA.L (A5),A7
00020576 62 06 |b | BHI 0x2057e
00020578 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002057c 4e 76 |Nv | TRAPV
0002057e de fc 00 24 | $ | ADDA.W #0x24,A7
00020582 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
00020586 41 ee ff d4 |A | LEA.L (A6-0x2c),A0
0002058a 43 fa fd e2 |C | LEA.L 0x2036e,A1
0002058e 70 0c |p | MOVEQ.L #0x0c,D0
00020590 48 50 |HP | PEA.L (A0)
00020592 48 6e ff d5 |Hn | PEA.L (A6-0x2b)
00020596 48 6e ff e9 |Hn | PEA.L (A6-0x17)
0002059a 4e b9 00 02 07 1c |N | JSR exp_TEST_UIR_SCAN.IOC(&Fr, &Sr_2, &Sr_2)
000205a0 de c0 | | ADDA.W D0,A7
000205a2 4a 10 |J | TST.B (A0)
000205a4 66 08 |f | BNE 0x205ae
000205a6 1f 3c 00 04 | < | MOVE.B #0x04,-(A7)
000205aa 4e 91 |N | JSR (A1)
000205ac 54 4f |TO | ADDQ.L #0x2,A7
000205ae 48 50 |HP | PEA.L (A0)
000205b0 48 6e ff e7 |Hn | PEA.L (A6-0x19)
000205b4 48 6e ff fb |Hn | PEA.L (A6-0x5)
000205b8 4e b9 00 02 07 a4 |N | JSR exp_TEST_PAREG_SCAN.IOC(&Fr, &Sr_1, &Sr_1)
000205be de c0 | | ADDA.W D0,A7
000205c0 4a 10 |J | TST.B (A0)
000205c2 66 08 |f | BNE 0x205cc
000205c4 1f 3c 00 05 | < | MOVE.B #0x05,-(A7)
000205c8 4e 91 |N | JSR (A1)
000205ca 54 4f |TO | ADDQ.L #0x2,A7
000205cc 48 50 |HP | PEA.L (A0)
000205ce 48 6e ff e8 |Hn | PEA.L (A6-0x18)
000205d2 48 6e ff fc |Hn | PEA.L (A6-0x4)
000205d6 4e b9 00 02 07 3e |N > | JSR exp_TEST_SYNDROME_SCAN.IOC(&Fr, &Sr_1, &Sr_1)
000205dc de c0 | | ADDA.W D0,A7
000205de 4a 10 |J | TST.B (A0)
000205e0 66 08 |f | BNE 0x205ea
000205e2 1f 3c 00 06 | < | MOVE.B #0x06,-(A7)
000205e6 4e 91 |N | JSR (A1)
000205e8 54 4f |TO | ADDQ.L #0x2,A7
000205ea 48 50 |HP | PEA.L (A0)
000205ec 48 6e ff d7 |Hn | PEA.L (A6-0x29)
000205f0 48 6e ff df |Hn | PEA.L (A6-0x21)
000205f4 48 6e ff eb |Hn | PEA.L (A6-0x15)
000205f8 48 6e ff f3 |Hn | PEA.L (A6-0xd)
000205fc 4e b9 00 02 07 64 |N d | JSR exp_TEST_RDR_SCAN.IOC(&Fr, &Sr_8, &Sr_8, &Sr_8, &Sr_8)
00020602 de fc 00 14 | | ADDA.W #0x14,A7
00020606 4a 10 |J | TST.B (A0)
00020608 66 08 |f | BNE 0x20612
0002060a 1f 3c 00 07 | < | MOVE.B #0x07,-(A7)
0002060e 4e 91 |N | JSR (A1)
00020610 54 4f |TO | ADDQ.L #0x2,A7
00020612 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
00020616 4e 5e |N^ | UNLK A6
00020618 4e 75 |Nu | RTS
0002061a ; --------------------------------------------------------------------------------------
0002061a ; OMSI PASCAL Function
0002061a ; <LVAR -0x006 @>
0002061a ; <LVAR -0x007 @ 1(r)>
0002061a ; <LVAR -0x008 @>
0002061a ; --------------------------------------------------------------------------------------
0002061a 4e 56 ff d2 |NV | LINK.W A6,#0xffd2
0002061e bf d5 | | CMPA.L (A5),A7
00020620 62 06 |b | BHI 0x20628
00020622 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020626 4e 76 |Nv | TRAPV
00020628 de fc 00 26 | & | ADDA.W #0x26,A7
0002062c 48 e7 e1 80 |H | MOVEM.L A0+D7+D2+D1+D0,-(A7)
00020630 74 0f |t | MOVEQ.L #0x0f,D2
00020632 7e 00 |~ | MOVEQ.L #0x00,D7
00020634 be 82 | | CMP.L D2,D7
00020636 63 02 |c | BLS 0x2063a
00020638 4e 4f |NO | TRAP #15
0002063a 20 07 | | MOVE.L D7,D0
0002063c e3 80 | | ASL.L #0x1,D0
0002063e 41 fa fb 3a |A : | LEA.L 0x2017a,A0
00020642 1f 30 08 00 | 0 | MOVE.B (A0+D0.L),-(A7)
00020646 42 27 |B' | CLR.B -(A7)
00020648 4e b9 00 02 07 de |N | JSR exp_LOAD_PAREG.IOC(Sw_1, Sw_1)
0002064e 54 4f |TO | ADDQ.L #0x2,A7
00020650 1e bc 00 04 | | MOVE.B #0x04,(A7)
00020654 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00020658 48 6e ff f9 |Hn | PEA.L (A6-0x7)
0002065c 48 6e ff fa |Hn | PEA.L (A6-0x6)
00020660 4e b9 00 01 04 84 |N | JSR DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
00020666 de fc 00 0e | | ADDA.W #0xe,A7
0002066a 52 87 |R | ADDQ.L #0x1,D7
0002066c be 82 | | CMP.L D2,D7
0002066e 63 02 |c | BLS 0x20672
00020670 4e 4f |NO | TRAP #15
00020672 20 07 | | MOVE.L D7,D0
00020674 e3 80 | | ASL.L #0x1,D0
00020676 41 fa fb 02 |A | LEA.L 0x2017a,A0
0002067a 12 2e ff f9 | . | MOVE.B (A6-0x7),D1
0002067e b2 30 08 01 | 0 | CMP.B (A0+D0.L+#0x1),D1
00020682 67 0a |g | BEQ 0x2068e
00020684 1f 3c 00 09 | < | MOVE.B #0x09,-(A7)
00020688 4e ba fc e4 |N | JSR 0x2036e
0002068c 54 4f |TO | ADDQ.L #0x2,A7
0002068e 0c 87 00 00 00 10 | | CMPI.L #0x00000010,D7
00020694 66 9e |f | BNE 0x20634
00020696 4c df 01 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0
0002069a 4e 5e |N^ | UNLK A6
0002069c 4e 75 |Nu | RTS
0002069e ; --------------------------------------------------------------------------------------
0002069e ; OMSI PASCAL Function
0002069e ; --------------------------------------------------------------------------------------
0002069e 4e 56 ff fc |NV | LINK.W A6,#0xfffc
000206a2 bf d5 | | CMPA.L (A5),A7
000206a4 62 06 |b | BHI 0x206ac
000206a6 44 fc 00 02 |D | MOVE.W #0x2,CCR
000206aa 4e 76 |Nv | TRAPV
000206ac de fc 00 04 | | ADDA.W #0x4,A7
000206b0 4e 5e |N^ | UNLK A6
000206b2 4e 75 |Nu | RTS
000206b4 ; --------------------------------------------------------------------------------------
000206b4 ; OMSI PASCAL Function
000206b4 ; --------------------------------------------------------------------------------------
000206b4 START:
000206b4 4f fa 00 08 |O | LEA.L MAIN,A7
000206b8 4e f9 00 01 02 80 |N | JMP ?start_program
000206be MAIN:
000206be 4e b9 00 01 03 98 |N | JSR FSCALL_10398
000206c4 48 78 00 00 |Hx | PEA.L 0x0
000206c8 4e b9 00 01 04 d8 |N | JSR ExpInit(a : Long)
000206ce 58 4f |XO | ADDQ.L #0x4,A7
000206d0 4e ba fc 04 |N | JSR 0x202d6
000206d4 4e ba fc f4 |N | JSR 0x203ca
000206d8 4e ba fe 96 |N | JSR 0x20570
000206dc 4e ba ff 3c |N < | JSR 0x2061a
000206e0 4e ba ff bc |N | JSR 0x2069e
000206e4 1f 3c 00 01 | < | MOVE.B #0x01,-(A7)
000206e8 2f 39 00 02 08 7c |/9 | | MOVE.L 0x2087c,-(A7)
000206ee 2f 39 00 02 08 80 |/9 | MOVE.L 0x20880,-(A7)
000206f4 1f 39 00 02 08 84 | 9 | MOVE.B 0x20884,-(A7)
000206fa 51 4f |QO | SUBQ.L #0x8,A7
000206fc 20 4f | O | MOVEA.L A7,A0
000206fe 43 f9 00 02 08 85 |C | LEA.L 0x20885,A1
00020704 70 07 |p | MOVEQ.L #0x07,D0
00020706 10 d9 | | MOVE.B (A1)+,(A0)+
00020708 51 c8 ff fc |Q | DBF D0,0x20706
0002070c 4e b9 00 01 05 4a |N J | JSR ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
00020712 de fc 00 14 | | ADDA.W #0x14,A7
00020716 4e b9 00 01 02 84 |N | JSR ?exit
0002071c exp_TEST_UIR_SCAN.IOC(&Fr, &Sr_2, &Sr_2):
0002071c 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
00020722 00 14 | | .CONST 0x0014 ; Stack-delta
00020724 11 54 45 53 54 5f 55 49 | TEST_UI| .TXT 17,'TEST_UIR_SCAN.IOC'
00020736 00 | | .CONST 0x0
00020737 04 | | .CONST 0x4 ; DIPROC address
00020738 03 | | .CONST 0x3 ; Output Parameters
00020739 00 | | .CONST 0x0 ; Input Parameters
0002073a 08 | | .CONST 0x8 ; Out arg flag
0002073b 01 | | .CONST 0x1 ; Out arg [2]
0002073c 01 | | .CONST 0x1 ; Out arg [2]
0002073d 00 | | .PAD 0x0
0002073e exp_TEST_SYNDROME_SCAN.IOC(&Fr, &Sr_1, &Sr_1):
0002073e 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
00020744 00 14 | | .CONST 0x0014 ; Stack-delta
00020746 16 54 45 53 54 5f 53 59 | TEST_SY| .TXT 22,'TEST_SYNDROME_SCAN.IOC'
0002075d 00 | | .CONST 0x0
0002075e 04 | | .CONST 0x4 ; DIPROC address
0002075f 03 | | .CONST 0x3 ; Output Parameters
00020760 00 | | .CONST 0x0 ; Input Parameters
00020761 08 | | .CONST 0x8 ; Out arg flag
00020762 00 | | .CONST 0x0 ; Out arg [1]
00020763 00 | | .CONST 0x0 ; Out arg [1]
00020764 exp_TEST_RDR_SCAN.IOC(&Fr, &Sr_8, &Sr_8, &Sr_8, &Sr_8):
00020764 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
0002076a 00 1c | | .CONST 0x001c ; Stack-delta
0002076c 11 54 45 53 54 5f 52 44 | TEST_RD| .TXT 17,'TEST_RDR_SCAN.IOC'
0002077e 00 | | .CONST 0x0
0002077f 04 | | .CONST 0x4 ; DIPROC address
00020780 05 | | .CONST 0x5 ; Output Parameters
00020781 00 | | .CONST 0x0 ; Input Parameters
00020782 08 | | .CONST 0x8 ; Out arg flag
00020783 07 | | .CONST 0x7 ; Out arg [8]
00020784 07 | | .CONST 0x7 ; Out arg [8]
00020785 07 | | .CONST 0x7 ; Out arg [8]
00020786 07 | | .CONST 0x7 ; Out arg [8]
00020787 00 | | .PAD 0x0
00020788 exp_TEST_RESET.IOC(&Fr):
00020788 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
0002078e 00 0c | | .CONST 0x000c ; Stack-delta
00020790 0e 54 45 53 54 5f 52 45 | TEST_RE| .TXT 14,'TEST_RESET.IOC'
0002079f 00 | | .CONST 0x0
000207a0 04 | | .CONST 0x4 ; DIPROC address
000207a1 01 | | .CONST 0x1 ; Output Parameters
000207a2 00 | | .CONST 0x0 ; Input Parameters
000207a3 08 | | .CONST 0x8 ; Out arg flag
000207a4 exp_TEST_PAREG_SCAN.IOC(&Fr, &Sr_1, &Sr_1):
000207a4 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000207aa 00 14 | | .CONST 0x0014 ; Stack-delta
000207ac 13 54 45 53 54 5f 50 41 | TEST_PA| .TXT 19,'TEST_PAREG_SCAN.IOC'
000207c0 00 | | .CONST 0x0
000207c1 04 | | .CONST 0x4 ; DIPROC address
000207c2 03 | | .CONST 0x3 ; Output Parameters
000207c3 00 | | .CONST 0x0 ; Input Parameters
000207c4 08 | | .CONST 0x8 ; Out arg flag
000207c5 00 | | .CONST 0x0 ; Out arg [1]
000207c6 00 | | .CONST 0x0 ; Out arg [1]
000207c7 00 | | .PAD 0x0
000207c8 exp_RESET.IOC():
000207c8 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000207ce 00 08 | | .CONST 0x0008 ; Stack-delta
000207d0 09 52 45 53 45 54 2e 49 | RESET.I| .TXT 9,'RESET.IOC'
000207da 00 | | .CONST 0x0
000207db 04 | | .CONST 0x4 ; DIPROC address
000207dc 00 | | .CONST 0x0 ; Output Parameters
000207dd 00 | | .CONST 0x0 ; Input Parameters
000207de exp_LOAD_PAREG.IOC(Sw_1, Sw_1):
000207de 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000207e4 00 0c | | .CONST 0x000c ; Stack-delta
000207e6 0e 4c 4f 41 44 5f 50 41 | LOAD_PA| .TXT 14,'LOAD_PAREG.IOC'
000207f5 00 | | .CONST 0x0
000207f6 04 | | .CONST 0x4 ; DIPROC address
000207f7 00 | | .CONST 0x0 ; Output Parameters
000207f8 02 | | .CONST 0x2 ; Input Parameters
000207f9 00 | | .CONST 0x0 ; In arg [1]
000207fa 00 | | .CONST 0x0 ; In arg [1]
000207fb 00 | | .PAD 0x0
000207fc 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_'
0002080a ; --------------------------------------------------------------------------------------
0002080a ; OMSI PASCAL Function
0002080a ; <LVAR 0x008 1(r)>
0002080a ; --------------------------------------------------------------------------------------
0002080a PROG_FAIL:
0002080a 4e 56 ff d2 |NV | LINK.W A6,#0xffd2
0002080e bf d5 | | CMPA.L (A5),A7
00020810 62 06 |b | BHI 0x20818
00020812 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020816 4e 76 |Nv | TRAPV
00020818 de fc 00 2c | , | ADDA.W #0x2c,A7
0002081c 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
00020820 41 fa ff e8 |A | LEA.L PROG_FAIL,A0
00020824 70 06 |p | MOVEQ.L #0x06,D0
00020826 3f 20 |? | MOVE.W -(A0),-(A7)
00020828 51 c8 ff fc |Q | DBF D0,0x20826
0002082c 1f 3c 00 03 | < | MOVE.B #0x03,-(A7)
00020830 51 4f |QO | SUBQ.L #0x8,A7
00020832 48 6f 00 0a |Ho | PEA.L (A7+0xa)
00020836 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002083a 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
0002083e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020844 58 4f |XO | ADDQ.L #0x4,A7
00020846 10 2e 00 08 | . | MOVE.B (A6+0x8),D0
0002084a 48 80 |H | EXTB.W D0
0002084c 48 c0 |H | EXTW.L D0
0002084e 2f 00 |/ | MOVE.L D0,-(A7)
00020850 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00020856 58 4f |XO | ADDQ.L #0x4,A7
00020858 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
0002085e 50 4f |PO | ADDQ.L #0x8,A7
00020860 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00020866 de fc 00 14 | | ADDA.W #0x14,A7
0002086a 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
0002086e 4e 5e |N^ | UNLK A6
00020870 4e 75 |Nu | RTS