|
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: »P3RAMS.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »P3RAMS.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »P3RAMS.M200«
└─ ⟦this⟧ »P3RAMS.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »P3RAMS.M200«
@ 2017c
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 2017c-202b8 Body>
<POP 2017c-20192 Prologue> Σ0 ↓
<POP 20192-201a8 RegCacheLoad> Σ0 ↓
<POP 201a8-20208 Naked> Σ0 ↓ →0x20250
<Call 0x201a8 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x201ae [18] @> Δ-18 {[«18""»]}
<POP 201ba-201bc StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x201bc 18> {[«18""»]|[$$Experiment error :]}
<Call 0x201c8 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 201ca-201cb StackAdj> Δ+22 ↓ {}
<Blob 0x201cb [14] @> Δ-14 {[«14""»]}
<POP 201da-201dc StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x201dc 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 201e6-201e8 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 201e8 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x201ec 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 201f2-201f4 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x201f4 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 201fa-201fc StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x201fc 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 201fe-20200 StackAdj> Δ+18 {}
<MI 20200 MOVEA.L (A6+0xa),A0> {}
<MI 20204 CMPA.W #0x01,A0> {}
<MI 20206 BEQ 0x20250> {}
<POP 20208-20250 Naked> Σ0 ↓
<Blob 0x20208 [14] @> Δ-14 {[«14""»]}
<Blob 0x20218 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 20228-2022a StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x2022a 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 20234-20236 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x20236> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x20236 12> Δ-4
<Const 0x2023a 0x1.2> Δ-2
<Const 0x2023c 0x1e.2> Δ-2
<Call 0x2023e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20240-20242 StackAdj> Δ+8
<Call 0x20242 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20248-2024a StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x2024a 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2024c-20250 StackAdj> Δ+48 {}
<POP 20250-202b0 Naked> Σ0 ↓ ←0x201a8
<Blob 0x20250 [14] @> Δ-14 {[«14""»]}
<POP 20260-20262 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20262 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 2026c-2026e StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 2026e MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x20272 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 20278-2027a StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x2027a 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20280-20282 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20282 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20284-20285 StackAdj> Δ+18 ↓ {}
<Blob 0x20285 [24] @> Δ-24 {[«24""»]}
<Const 0x20294 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 20298-2029a StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x2029a 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x202a8 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 202ae-202b0 StackAdj> Δ+30 {}
<POP 202b0-202b8 Epilogue> Σ0
@ 202b8
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 202b8-20320 Body>
<POP 202b8-202ce Prologue> Σ0 ↓
<POP 202ce-20318 Naked> Σ0 ↓
<Blob 0x202ce [14] @> Δ-14 {[«14""»]}
<Const 0x202da 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 202de-202e0 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x202e0 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 202f2-202f4 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 202f4 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 202f8 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 202fa EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 202fc MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x202fe 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 20304-20306 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x20306 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2030c-2030e StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x2030e 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 20314-20318 StackAdj> Δ+20 {}
<POP 20318-20320 Epilogue> Σ0
@ 20320
<LVAR 0x00c 1(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @>
<POP 20320-203ae Body>
<POP 20320-20336 Prologue> Σ0 ↓
<POP 20336-203a6 Naked> Σ0 ↓
<Call 0x20336 0x10538> {}
IPC_Init(void)
<MI 2033c MOVE.B (A6+0xc),-(A7)> Δ-2 {[2, '(A6+0xc)']}
<Call 0x20340 0x10502> {[2, '(A6+0xc)']}
IPC_PutBool(a : Bool)
<POP 20346-20348 StackAdj> Δ+2 {}
<Call 0x20348 0x10514> {}
IPC_PutEnd(void)
<Blob 0x2034e [10] @> Δ-10 {[«10""»]}
<POP 20360-20362 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x20362 9> {[«10""»]|[$$INITSTATE]}
<Const 0x20376 0x1.4> Δ-4 {[«10""»]|[$$INITSTATE]|[##1]}
<Const 0x2037a 0x2.2> Δ-2 {[«10""»]|[$$INITSTATE]|[##1]|[#2]}
<Pointer.fp 0x2037e <LVAR -0x002 @>> Δ-4 {[«10""»]|[$$INITSTATE]|[##1]|[#2]|[@@-2]}
<Call 0x20382 0x103b0> {[«10""»]|[$$INITSTATE]|[##1]|[#2]|[@@-2]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 20388-2038c StackAdj> Δ+24 {}
<Call 0x2038c 0x10538> {}
IPC_Init(void)
<MI 20392 MOVEA.L (A6+0x8),A0> {}
<MI 20396 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x20398 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 2039e-203a0 StackAdj> Δ+4 {}
<Call 0x203a0 0x1051a> {}
IPC_GetEnd(void)
<POP 203a6-203ae Epilogue> Σ0
@ 203ae
<LVAR 0x008 4(r)>
<POP 203ae-203e6 Body>
<POP 203ae-203c4 Prologue> Σ0 ↓
<POP 203c4-203de Naked> Σ0 ↓
<Call 0x203c4 0x10538> {}
IPC_Init(void)
<MI 203ca MOVEA.L (A6+0x8),A0> {}
<MI 203ce PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x203d0 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 203d6-203d8 StackAdj> Δ+4 {}
<Call 0x203d8 0x1051a> {}
IPC_GetEnd(void)
<POP 203de-203e6 Epilogue> Σ0
@ 203e6
<LVAR 0x008 1(r)>
<POP 203e6-20422 Body>
<POP 203e6-203f8 Prologue> Σ0 ↓
<POP 203f8-2041e Naked> Σ0 ↓
<Call 0x203f8 0x10538> {}
IPC_Init(void)
<MI 203fe MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x20402 0x10502> {[2, '(A6+0x8)']}
IPC_PutBool(a : Bool)
<POP 20408-2040a StackAdj> Δ+2 {}
<Call 0x2040a 0x10514> {}
IPC_PutEnd(void)
<MI 20410 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x20412 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x20416 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 2041c-2041e StackAdj> Δ+6 {}
<POP 2041e-20422 Epilogue> Σ0
@ 20422
<LVAR 0x00a 1(r)>
<LVAR 0x008 1(r)>
<POP 20422-204a2 Body>
<POP 20422-20438 Prologue> Σ0 ↓
<POP 20438-20440 RegCacheLoad> Σ0 ↓
<POP 20440-20446 Naked> Σ0 ↓ →0x2049a
<MI 20440 TST.B (A6+0xa)> {}
<MI 20444 BNE 0x2049a> {}
<POP 20446-2044c Naked> Σ0 ↓
<MI 20446 MOVE.B (A6+0x8),0x2081c> {}
<MI 2044a MOVEQ.L #0x00,D7> {}
<POP 2044c-20474 Naked> Σ0 ↓ →0x2044c ←0x2044c
<POP 0x2044c LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<MI 20452 LEA.L 0x2080c,A0> {}
<MI 20458 MOVE.B (A0+D7.L+#0x8),D0> {}
<MI 2045c EXTB.W D0> {}
<MI 2045e EXTW.L D0> {}
<POP 0x20460 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 2046a MOVE.B D0,(A0+D7.L+#0x1a)> {}
<MI 2046e ADDQ.L #0x1,D7> {}
<MI 20470 CMP.L #0x07,D7> {}
<MI 20472 BLE 0x2044c> {}
<POP 20474-2049a Naked> Σ0 ↓
<MI 20474 CLR.B -(A7)> Δ-2 {[#0]}
<Blob 0x20476 [4] @> Δ-4 {[#0]|[«4""»]}
<Blob 0x2047c [4] @> Δ-4 {[#0]|[«4""»]|[«4""»]}
<Blob 0x20482 [2] @> Δ-2 {[#0]|[«4""»]|[«4""»]|[«2""»]}
<Blob 0x20484 [4] @> Δ-4 {[#0]|[«4""»]|[«4""»]|[«2""»]|[«4""»]}
<Blob 0x2048a [4] @> Δ-4 {[#0]|[«4""»]|[«4""»]|[«2""»]|[«4""»]|[«4""»]}
<Call 0x20490 0x1054a> {[#0]|[«4""»]|[«4""»]|[«2""»]|[«4""»]|[«4""»]}
?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
<POP 20496-2049a StackAdj> Δ+20 {}
<POP 2049a-204a2 Epilogue> Σ0 ←0x20440
@ 204a2
<LVAR -0x002 @>
<LVAR -0x008 @>
<LVAR -0x00e @>
<LVAR -0x014 @>
<LVAR -0x01a @>
<LVAR -0x01f @>
<LVAR -0x025 @>
<LVAR -0x026 @>
<LVAR -0x027 @ 1(r)>
<LVAR -0x028 @ 1(r)>
<POP 204a2-2061c Body>
<POP 204a2-204b8 Prologue> Σ0 ↓
<POP 204b8-204de RegCacheLoad> Σ0 ↓
<POP 204de-204e4 Naked> Σ0 ↓ →0x204e8
<MI 204de MOVE.B 0x2082f,D0> {}
<MI 204e0 CMP.B #0x04,D0> {}
<MI 204e2 BEQ 0x204e8> {}
<POP 204e4-204e8 Naked> Σ0 ↓ →0x20514
<MI 204e4 CMP.B #0x05,D0> {}
<MI 204e6 BNE 0x20514> {}
<POP 204e8-20514 Naked> Σ0 ↓ ←0x204de
<MI 204e8 MOVE.B #0x2b,0x20814> {}
<Pointer.fp 0x204ec <LVAR -0x027 @ 1(r)>> Δ-4 {[@@-39]}
<Pointer.fp 0x204ee <LVAR -0x026 @>> Δ-4 {[@@-39]|[@@-38]}
<Pointer.fp 0x204f2 <LVAR -0x025 @>> Δ-4 {[@@-39]|[@@-38]|[@@-37]}
<Pointer.fp 0x204f4 <LVAR -0x002 @>> Δ-4 {[@@-39]|[@@-38]|[@@-37]|[@@-2]}
<Pointer.fp 0x204f8 <LVAR -0x002 @>> Δ-4 {[@@-39]|[@@-38]|[@@-37]|[@@-2]|[@@-2]}
<Call 0x204fc 0x207ec> {[@@-39]|[@@-38]|[@@-37]|[@@-2]|[@@-2]}
exp_POUND_WCS.IOC(&Fr, &Fr, &Sr_2, &Sr_2, &Sr_2)
<POP 20502-20506 StackAdj> Δ+20 {}
<MI 20506 MOVE.B (A6-0x27),D0> {}
<MI 20508 EXTB.W D0> {}
<POP 0x2050a LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 2050c MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Const 0x2050e 0x6.2> Δ-2 {[2, 'D0']|[#6]}
<Call 0x20510 0x20422> {[2, 'D0']|[#6]}
<POP 20512-20514 StackAdj> Δ+4 {}
<POP 20514-2051c Naked> Σ0 ↓ →0x20520 ←0x204e4
<MI 20514 MOVE.B 0x2082f,D0> {}
<MI 20516 CMPI.B #0x07,D0> {}
<MI 2051a BEQ 0x20520> {}
<POP 2051c-20520 Naked> Σ0 ↓ →0x2055e
<MI 2051c CMP.B #0x05,D0> {}
<MI 2051e BNE 0x2055e> {}
<POP 20520-2055e Naked> Σ0 ↓ ←0x20514
<MI 20520 MOVE.B #0x04,0x20814> {}
<Pointer.fp 0x20522 <LVAR -0x027 @ 1(r)>> Δ-4 {[@@-39]}
<Pointer.fp 0x20524 <LVAR -0x025 @>> Δ-4 {[@@-39]|[@@-37]}
<Pointer.fp 0x20526 <LVAR -0x01f @>> Δ-4 {[@@-39]|[@@-37]|[@@-31]}
<Call 0x2052a 0x207c4> {[@@-39]|[@@-37]|[@@-31]}
exp_POUND_WCS_ASCENDING.VAL(&Fr, &Sr_2, &Sr_5)
<POP 20530-20532 StackAdj> Δ+12 {}
<MI 20532 MOVE.B (A6-0x27),D0> {}
<MI 20534 EXTB.W D0> {}
<POP 0x20536 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 20538 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Const 0x2053a 0x2.2> Δ-2 {[2, 'D0']|[#2]}
<Call 0x2053c 0x20422> {[2, 'D0']|[#2]}
<POP 2053e-20540 StackAdj> Δ+4 {}
<Pointer.fp 0x20540 <LVAR -0x027 @ 1(r)>> Δ-4 {[@@-39]}
<Pointer.fp 0x20542 <LVAR -0x025 @>> Δ-4 {[@@-39]|[@@-37]}
<Pointer.fp 0x20544 <LVAR -0x01f @>> Δ-4 {[@@-39]|[@@-37]|[@@-31]}
<Call 0x20548 0x2079c> {[@@-39]|[@@-37]|[@@-31]}
exp_POUND_WCS_DESCENDING.VAL(&Fr, &Sr_2, &Sr_5)
<POP 2054e-20550 StackAdj> Δ+12 {}
<MI 20550 MOVE.B (A6-0x27),D0> {}
<MI 20552 EXTB.W D0> {}
<POP 0x20554 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 20556 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Const 0x20558 0x2.2> Δ-2 {[2, 'D0']|[#2]}
<Call 0x2055a 0x20422> {[2, 'D0']|[#2]}
<POP 2055c-2055e StackAdj> Δ+4 {}
<POP 2055e-20564 Naked> Σ0 ↓ →0x20568 ←0x2051c
<MI 2055e MOVE.B 0x2082f,D0> {}
<MI 20560 CMP.B #0x06,D0> {}
<MI 20562 BEQ 0x20568> {}
<POP 20564-20568 Naked> Σ0 ↓ →0x205a6
<MI 20564 CMP.B #0x05,D0> {}
<MI 20566 BNE 0x205a6> {}
<POP 20568-205a6 Naked> Σ0 ↓ ←0x2055e
<MI 20568 MOVE.B #0x03,0x20814> {}
<Pointer.fp 0x2056a <LVAR -0x027 @ 1(r)>> Δ-4 {[@@-39]}
<Pointer.fp 0x2056c <LVAR -0x025 @>> Δ-4 {[@@-39]|[@@-37]}
<Pointer.fp 0x2056e <LVAR -0x01a @>> Δ-4 {[@@-39]|[@@-37]|[@@-26]}
<Call 0x20572 0x20774> {[@@-39]|[@@-37]|[@@-26]}
exp_POUND_WCS_ASCENDING.TYP(&Fr, &Sr_2, &Sr_6)
<POP 20578-2057a StackAdj> Δ+12 {}
<MI 2057a MOVE.B (A6-0x27),D0> {}
<MI 2057c EXTB.W D0> {}
<POP 0x2057e LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 20580 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Const 0x20582 0x3.2> Δ-2 {[2, 'D0']|[#3]}
<Call 0x20584 0x20422> {[2, 'D0']|[#3]}
<POP 20586-20588 StackAdj> Δ+4 {}
<Pointer.fp 0x20588 <LVAR -0x027 @ 1(r)>> Δ-4 {[@@-39]}
<Pointer.fp 0x2058a <LVAR -0x025 @>> Δ-4 {[@@-39]|[@@-37]}
<Pointer.fp 0x2058c <LVAR -0x01a @>> Δ-4 {[@@-39]|[@@-37]|[@@-26]}
<Call 0x20590 0x2074c> {[@@-39]|[@@-37]|[@@-26]}
exp_POUND_WCS_DESCENDING.TYP(&Fr, &Sr_2, &Sr_6)
<POP 20596-20598 StackAdj> Δ+12 {}
<MI 20598 MOVE.B (A6-0x27),D0> {}
<MI 2059a EXTB.W D0> {}
<POP 0x2059c LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 2059e MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Const 0x205a0 0x3.2> Δ-2 {[2, 'D0']|[#3]}
<Call 0x205a2 0x20422> {[2, 'D0']|[#3]}
<POP 205a4-205a6 StackAdj> Δ+4 {}
<POP 205a6-205ac Naked> Σ0 ↓ →0x205b0 ←0x20564
<MI 205a6 MOVE.B 0x2082f,D0> {}
<MI 205a8 CMP.B #0x02,D0> {}
<MI 205aa BEQ 0x205b0> {}
<POP 205ac-205b0 Naked> Σ0 ↓ →0x205e2
<MI 205ac CMP.B #0x05,D0> {}
<MI 205ae BNE 0x205e2> {}
<POP 205b0-205e2 Naked> Σ0 ↓ ←0x205a6
<MI 205b0 MOVE.B #0x05,0x20814> {}
<Pointer.fp 0x205b2 <LVAR -0x028 @ 1(r)>> Δ-4 {[@@-40]}
<Pointer.fp 0x205b6 <LVAR -0x025 @>> Δ-4 {[@@-40]|[@@-37]}
<Pointer.fp 0x205b8 <LVAR -0x014 @>> Δ-4 {[@@-40]|[@@-37]|[@@-20]}
<Pointer.fp 0x205bc <LVAR -0x00e @>> Δ-4 {[@@-40]|[@@-37]|[@@-20]|[@@-14]}
<Pointer.fp 0x205c0 <LVAR -0x026 @>> Δ-4 {[@@-40]|[@@-37]|[@@-20]|[@@-14]|[@@-38]}
<Call 0x205c4 0x2072c> {[@@-40]|[@@-37]|[@@-20]|[@@-14]|[@@-38]}
exp_POUND_WCS.SEQ(&Fr, &Sr_2, &Sr_6, &Sr_6, &Fr)
<POP 205ca-205ce StackAdj> Δ+20 {}
<MI 205ce MOVE.B (A6-0x28),D0> {}
<MI 205d2 NEG.B D0> {}
<MI 205d4 ADDQ.B #0x1,D0> {}
<MI 205d6 EXTB.W D0> {}
<POP 0x205d8 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 205da MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Const 0x205dc 0x4.2> Δ-2 {[2, 'D0']|[#4]}
<Call 0x205de 0x20422> {[2, 'D0']|[#4]}
<POP 205e0-205e2 StackAdj> Δ+4 {}
<POP 205e2-205e8 Naked> Σ0 ↓ →0x205ec ←0x205ac
<MI 205e2 MOVE.B 0x2082f,D0> {}
<MI 205e4 CMP.B #0x03,D0> {}
<MI 205e6 BEQ 0x205ec> {}
<POP 205e8-205ec Naked> Σ0 ↓ →0x20612
<MI 205e8 CMP.B #0x05,D0> {}
<MI 205ea BNE 0x20612> {}
<POP 205ec-20612 Naked> Σ0 ↓ ←0x205e2
<MI 205ec MOVE.B #0x06,0x20814> {}
<Pointer.fp 0x205ee <LVAR -0x027 @ 1(r)>> Δ-4 {[@@-39]}
<Pointer.fp 0x205f0 <LVAR -0x026 @>> Δ-4 {[@@-39]|[@@-38]}
<Pointer.fp 0x205f4 <LVAR -0x025 @>> Δ-4 {[@@-39]|[@@-38]|[@@-37]}
<Pointer.fp 0x205f6 <LVAR -0x008 @>> Δ-4 {[@@-39]|[@@-38]|[@@-37]|[@@-8]}
<Call 0x205fa 0x2070e> {[@@-39]|[@@-38]|[@@-37]|[@@-8]}
exp_TEST_WCS.FIU(&Fr, &Fr, &Sr_2, &Sr_6)
<POP 20600-20604 StackAdj> Δ+16 {}
<MI 20604 MOVE.B (A6-0x27),D0> {}
<MI 20606 EXTB.W D0> {}
<POP 0x20608 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 2060a MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Const 0x2060c 0x5.2> Δ-2 {[2, 'D0']|[#5]}
<Call 0x2060e 0x20422> {[2, 'D0']|[#5]}
<POP 20610-20612 StackAdj> Δ+4 {}
<POP 20612-20614 Naked> Σ0 ↓ ←0x205e8
<MI 20612 CLR.B 0x20814> {}
<POP 20614-2061c Epilogue> Σ0
@ 2061c
START
<POP 2061c--0001 Body>
<POP 2061c-20626 Prologue> Σ0
<POP 20626-20642 RegCacheLoad> Σ0 ↓
<POP 20642-206a6 Naked> Σ0 ↓
<Call 0x20642 0x10398> {}
FSCALL_10398
<Const 0x20648 0x0.4> Δ-4 {[##0]}
<Call 0x2064c 0x104d8> {[##0]}
ExpInit(a : Long)
<POP 20652-20654 StackAdj> Δ+4 {}
<Const 0x20654 0x2082e.4> Δ-4 {[##133166]}
<Const 0x20656 0x20830.4> Δ-4 {[##133166]|[##133168]}
<Const 0x2065c 0x20831.4> Δ-4 {[##133166]|[##133168]|[##133169]}
<Call 0x2065e 0x10556> {[##133166]|[##133168]|[##133169]}
?IPC_GetStd(MOD a : Pointer; VAR b : Bool ; VAR c : Bool)
<POP 20664-20668 StackAdj> Δ+10 {[-2-]}
<POP 20668-20669 StackAdj> Δ+2 {}
<Blob 0x20669 [2] @> Δ-2 {[«2""»]}
<Call 0x2066a 0x104d2> {[«2""»]}
SetExpInitDone(a : Byte)
<POP 20670-20671 StackAdj> Δ+2 {}
<Blob 0x20671 [2] @> Δ-2 {[«2""»]}
<Blob 0x20674 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x20678 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 2067c-2067e StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x2067e 6> {[«2""»]|[«2""»]|[«2""»]|[$$P3RAMS]}
<MI 20690 MOVE.L (A7)+,0x2081e> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 20692-20694 StackAdj> Δ+6 {}
<Const 0x20694 0x20822.4> Δ-4 {[##133154]}
<Call 0x20696 0x102b8> {[##133154]}
NewString(VAR a : String)
<POP 2069c-2069e StackAdj> Δ+4 {}
<MI 2069e CLR.B 0x2081c> {}
<MI 206a4 MOVEQ.L #0x00,D0> {}
<POP 206a6-206c6 Naked> Σ0 ↓ →0x206a6 ←0x206a6
<MI 206a6 MOVE.L D0,0x20834> {}
<POP 0x206ac LimitCheck 0x0 ≤ D0 ≤ 0x7> {}
<MI 206b2 LEA.L 0x2080c,A0> {}
<MI 206b8 CLR.B (A0+D0.L+#0x8)> {}
<MI 206bc CLR.B (A0+D0.L+#0x1a)> {}
<MI 206c0 ADDQ.L #0x1,D0> {}
<MI 206c2 CMP.L #0x07,D0> {}
<MI 206c4 BLE 0x206a6> {}
<POP 206c6-20708 Naked> Σ0 ↓
<MI 206c6 CLR.L D0> {}
<MI 206c8 MOVE.B 0x2082e,D0> {}
<POP 0x206ca LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 206ce MOVE.B D0,0x2082f> {}
<Call 0x206d4 0x204a2> {}
<Blob 0x206d8 [2] @> Δ-2 {[«2""»]}
<Const 0x206da 0x20832.4> Δ-4 {[«2""»]|[##133170]}
<Call 0x206e0 0x20320> {[«2""»]|[##133170]}
<POP 206e4-206e6 StackAdj> Δ+4 {[«2""»]}
<POP 206e6-206e7 StackAdj> Δ+2 {}
<Const 0x206e7 0x1.2> Δ-2 {[#1]}
<Blob 0x206e8 [4] @> Δ-4 {[#1]|[«4""»]}
<Blob 0x206ea [4] @> Δ-4 {[#1]|[«4""»]|[«4""»]}
<Blob 0x206ec [2] @> Δ-2 {[#1]|[«4""»]|[«4""»]|[«2""»]}
<Blob 0x206f2 [4] @> Δ-4 {[#1]|[«4""»]|[«4""»]|[«2""»]|[«4""»]}
<Blob 0x206f8 [4] @> Δ-4 {[#1]|[«4""»]|[«4""»]|[«2""»]|[«4""»]|[«4""»]}
<Call 0x206fe 0x1054a> {[#1]|[«4""»]|[«4""»]|[«2""»]|[«4""»]|[«4""»]}
?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
<POP 20704-20708 StackAdj> Δ+20 {}
<POP 20708-2070e Naked> Σ0
<Call 0x20708 0x10284> {}
?exit
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.47581b3370a43b09 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 06 1c | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 08 38 | 8 | .PTR 0x20838 00020010 code.end: 00020010 00 02 08 0c | | .PTR 0x2080c 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 02 b8 | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 01 7c | | | .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 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 0002016c 49 4e 49 54 53 54 41 54 |INITSTAT| .TXT 'INITSTATE ' 00020176 50 33 |P3 | .TXT 'P3' 00020178 52 41 |RA | .TXT 'RA' 0002017a 4d 53 |MS | .TXT 'MS' 0002017c ; -------------------------------------------------------------------------------------- 0002017c ; OMSI PASCAL Function 0002017c ; <LVAR 0x00e 1(r)> 0002017c ; <LVAR 0x00a 4(r)> 0002017c ; <LVAR 0x008 1(r)> 0002017c ; -------------------------------------------------------------------------------------- 0002017c EXP_FAIL: 0002017c 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00020180 bf d5 | | CMPA.L (A5),A7 00020182 62 06 |b | BHI 0x2018a 00020184 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020188 4e 76 |Nv | TRAPV 0002018a de fc 00 74 | t | ADDA.W #0x74,A7 0002018e 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00020192 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020198 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 0002019e 72 01 |r | MOVEQ.L #0x01,D1 000201a0 74 0d |t | MOVEQ.L #0x0d,D2 000201a2 76 1e |v | MOVEQ.L #0x1e,D3 000201a4 78 12 |x | MOVEQ.L #0x12,D4 000201a6 7a 0e |z | MOVEQ.L #0x0e,D5 000201a8 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000201ae 41 fa ff 96 |A | LEA.L 0x20146,A0 000201b2 70 08 |p | MOVEQ.L #0x08,D0 000201b4 3f 20 |? | MOVE.W -(A0),-(A7) 000201b6 51 c8 ff fc |Q | DBF D0,0x201b4 000201ba 59 4f |YO | SUBQ.L #0x4,A7 000201bc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000201c0 3f 01 |? | MOVE.W D1,-(A7) 000201c2 3f 04 |? | MOVE.W D4,-(A7) 000201c4 4e 93 |N | JSR (A3) 000201c6 50 4f |PO | ADDQ.L #0x8,A7 000201c8 4e 94 |N | JSR (A4) 000201ca 50 4f |PO | ADDQ.L #0x8,A7 000201cc 20 4f | O | MOVEA.L A7,A0 000201ce 43 fa ff 3a |C : | LEA.L 0x2010a,A1 000201d2 70 0c |p | MOVEQ.L #0x0c,D0 000201d4 10 d9 | | MOVE.B (A1)+,(A0)+ 000201d6 51 c8 ff fc |Q | DBF D0,0x201d4 000201da 51 4f |QO | SUBQ.L #0x8,A7 000201dc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000201e0 3f 01 |? | MOVE.W D1,-(A7) 000201e2 3f 02 |? | MOVE.W D2,-(A7) 000201e4 4e 93 |N | JSR (A3) 000201e6 54 4f |TO | ADDQ.L #0x2,A7 000201e8 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000201ec 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000201f2 54 4f |TO | ADDQ.L #0x2,A7 000201f4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000201fa 50 4f |PO | ADDQ.L #0x8,A7 000201fc 4e 94 |N | JSR (A4) 000201fe de c4 | | ADDA.W D4,A7 00020200 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00020204 b0 c1 | | CMPA.W D1,A0 00020206 67 48 |gH | BEQ 0x20250 00020208 9e c5 | | SUBA.W D5,A7 0002020a 22 4f |"O | MOVEA.L A7,A1 0002020c 45 fa ff 0a |E | LEA.L 0x20118,A2 00020210 70 0c |p | MOVEQ.L #0x0c,D0 00020212 12 da | | MOVE.B (A2)+,(A1)+ 00020214 51 c8 ff fc |Q | DBF D0,0x20212 00020218 9e c3 | | SUBA.W D3,A7 0002021a 22 4f |"O | MOVEA.L A7,A1 0002021c 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00020220 70 1d |p | MOVEQ.L #0x1d,D0 00020222 12 d8 | | MOVE.B (A0)+,(A1)+ 00020224 51 c8 ff fc |Q | DBF D0,0x20222 00020228 51 4f |QO | SUBQ.L #0x8,A7 0002022a 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 0002022e 3f 01 |? | MOVE.W D1,-(A7) 00020230 3f 02 |? | MOVE.W D2,-(A7) 00020232 4e 93 |N | JSR (A3) 00020234 58 4f |XO | ADDQ.L #0x4,A7 00020236 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002023a 3f 01 |? | MOVE.W D1,-(A7) 0002023c 3f 03 |? | MOVE.W D3,-(A7) 0002023e 4e 93 |N | JSR (A3) 00020240 50 4f |PO | ADDQ.L #0x8,A7 00020242 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020248 50 4f |PO | ADDQ.L #0x8,A7 0002024a 4e 94 |N | JSR (A4) 0002024c de fc 00 30 | 0 | ADDA.W #0x30,A7 00020250 9e c5 | | SUBA.W D5,A7 00020252 20 4f | O | MOVEA.L A7,A0 00020254 43 fa fe d0 |C | LEA.L 0x20126,A1 00020258 70 0c |p | MOVEQ.L #0x0c,D0 0002025a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002025c 51 c8 ff fc |Q | DBF D0,0x2025a 00020260 51 4f |QO | SUBQ.L #0x8,A7 00020262 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020266 3f 01 |? | MOVE.W D1,-(A7) 00020268 3f 02 |? | MOVE.W D2,-(A7) 0002026a 4e 93 |N | JSR (A3) 0002026c 54 4f |TO | ADDQ.L #0x2,A7 0002026e 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00020272 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00020278 54 4f |TO | ADDQ.L #0x2,A7 0002027a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020280 50 4f |PO | ADDQ.L #0x8,A7 00020282 4e 94 |N | JSR (A4) 00020284 5d 4f |]O | SUBQ.L #0x6,A7 00020286 20 4f | O | MOVEA.L A7,A0 00020288 43 fa fe bc |C | LEA.L 0x20146,A1 0002028c 70 16 |p | MOVEQ.L #0x16,D0 0002028e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020290 51 c8 ff fc |Q | DBF D0,0x2028e 00020294 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020298 59 4f |YO | SUBQ.L #0x4,A7 0002029a 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002029e 3f 01 |? | MOVE.W D1,-(A7) 000202a0 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000202a4 4e 93 |N | JSR (A3) 000202a6 50 4f |PO | ADDQ.L #0x8,A7 000202a8 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000202ae de c3 | | ADDA.W D3,A7 000202b0 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 000202b4 4e 5e |N^ | UNLK A6 000202b6 4e 75 |Nu | RTS 000202b8 ; -------------------------------------------------------------------------------------- 000202b8 ; OMSI PASCAL Function 000202b8 ; <LVAR 0x008 1(r)> 000202b8 ; -------------------------------------------------------------------------------------- 000202b8 PROG_FAIL: 000202b8 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 000202bc bf d5 | | CMPA.L (A5),A7 000202be 62 06 |b | BHI 0x202c6 000202c0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000202c4 4e 76 |Nv | TRAPV 000202c6 de fc 00 2c | , | ADDA.W #0x2c,A7 000202ca 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000202ce 41 fa fe 9c |A | LEA.L 0x2016c,A0 000202d2 70 06 |p | MOVEQ.L #0x06,D0 000202d4 3f 20 |? | MOVE.W -(A0),-(A7) 000202d6 51 c8 ff fc |Q | DBF D0,0x202d4 000202da 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000202de 51 4f |QO | SUBQ.L #0x8,A7 000202e0 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000202e4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000202e8 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000202ec 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000202f2 58 4f |XO | ADDQ.L #0x4,A7 000202f4 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000202f8 48 80 |H | EXTB.W D0 000202fa 48 c0 |H | EXTW.L D0 000202fc 2f 00 |/ | MOVE.L D0,-(A7) 000202fe 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020304 58 4f |XO | ADDQ.L #0x4,A7 00020306 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002030c 50 4f |PO | ADDQ.L #0x8,A7 0002030e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020314 de fc 00 14 | | ADDA.W #0x14,A7 00020318 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 0002031c 4e 5e |N^ | UNLK A6 0002031e 4e 75 |Nu | RTS 00020320 ; -------------------------------------------------------------------------------------- 00020320 ; OMSI PASCAL Function 00020320 ; <LVAR 0x00c 1(r)> 00020320 ; <LVAR 0x008 4(r)> 00020320 ; <LVAR -0x002 @> 00020320 ; -------------------------------------------------------------------------------------- 00020320 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 00020324 bf d5 | | CMPA.L (A5),A7 00020326 62 06 |b | BHI 0x2032e 00020328 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002032c 4e 76 |Nv | TRAPV 0002032e de fc 00 28 | ( | ADDA.W #0x28,A7 00020332 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020336 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 0002033c 1f 2e 00 0c | . | MOVE.B (A6+0xc),-(A7) 00020340 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00020346 54 4f |TO | ADDQ.L #0x2,A7 00020348 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 0002034e 9e fc 00 0a | | SUBA.W #0xa,A7 00020352 20 4f | O | MOVEA.L A7,A0 00020354 43 fa fe 16 |C | LEA.L 0x2016c,A1 00020358 70 08 |p | MOVEQ.L #0x08,D0 0002035a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002035c 51 c8 ff fc |Q | DBF D0,0x2035a 00020360 59 4f |YO | SUBQ.L #0x4,A7 00020362 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020366 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002036a 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002036e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020374 50 4f |PO | ADDQ.L #0x8,A7 00020376 48 78 00 01 |Hx | PEA.L 0x1 0002037a 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002037e 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020382 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00020388 de fc 00 18 | | ADDA.W #0x18,A7 0002038c 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020392 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020396 48 50 |HP | PEA.L (A0) 00020398 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 0002039e 58 4f |XO | ADDQ.L #0x4,A7 000203a0 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 000203a6 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000203aa 4e 5e |N^ | UNLK A6 000203ac 4e 75 |Nu | RTS 000203ae ; -------------------------------------------------------------------------------------- 000203ae ; OMSI PASCAL Function 000203ae ; <LVAR 0x008 4(r)> 000203ae ; -------------------------------------------------------------------------------------- 000203ae 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 ; Spelunked 000203b2 bf d5 | | CMPA.L (A5),A7 000203b4 62 06 |b | BHI 0x203bc 000203b6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000203ba 4e 76 |Nv | TRAPV 000203bc de fc 00 0c | | ADDA.W #0xc,A7 000203c0 48 e7 00 80 |H | MOVEM.L A0,-(A7) 000203c4 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000203ca 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000203ce 48 50 |HP | PEA.L (A0) 000203d0 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 000203d6 58 4f |XO | ADDQ.L #0x4,A7 000203d8 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 000203de 4c df 01 00 |L | MOVEM.L (A7)+,A0 000203e2 4e 5e |N^ | UNLK A6 000203e4 4e 75 |Nu | RTS 000203e6 ; -------------------------------------------------------------------------------------- 000203e6 ; OMSI PASCAL Function 000203e6 ; <LVAR 0x008 1(r)> 000203e6 ; -------------------------------------------------------------------------------------- 000203e6 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 ; Spelunked 000203ea bf d5 | | CMPA.L (A5),A7 000203ec 62 06 |b | BHI 0x203f4 000203ee 44 fc 00 02 |D | MOVE.W #0x2,CCR 000203f2 4e 76 |Nv | TRAPV 000203f4 de fc 00 0a | | ADDA.W #0xa,A7 000203f8 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000203fe 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00020402 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00020408 54 4f |TO | ADDQ.L #0x2,A7 0002040a 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 00020410 42 27 |B' | CLR.B -(A7) 00020412 48 78 00 01 |Hx | PEA.L 0x1 00020416 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002041c 5c 4f |\O | ADDQ.L #0x6,A7 0002041e 4e 5e |N^ | UNLK A6 00020420 4e 75 |Nu | RTS 00020422 ; -------------------------------------------------------------------------------------- 00020422 ; OMSI PASCAL Function 00020422 ; <LVAR 0x00a 1(r)> 00020422 ; <LVAR 0x008 1(r)> 00020422 ; -------------------------------------------------------------------------------------- 00020422 4e 56 ff d0 |NV | LINK.W A6,#0xffd0 ; Spelunked 00020426 bf d5 | | CMPA.L (A5),A7 00020428 62 06 |b | BHI 0x20430 0002042a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002042e 4e 76 |Nv | TRAPV 00020430 de fc 00 2c | , | ADDA.W #0x2c,A7 00020434 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 00020438 43 f9 00 02 08 1c |C | LEA.L 0x2081c,A1 0002043e 72 07 |r | MOVEQ.L #0x07,D1 00020440 4a 2e 00 0a |J. | TST.B (A6+0xa) 00020444 66 54 |fT | BNE 0x2049a 00020446 12 ae 00 08 | | MOVE.B (A6+0x8),(A1) 0002044a 7e 00 |~ | MOVEQ.L #0x00,D7 0002044c be 81 | | CMP.L D1,D7 0002044e 63 02 |c | BLS 0x20452 00020450 4e 4f |NO | TRAP #15 00020452 41 f9 00 02 08 0c |A | LEA.L 0x2080c,A0 00020458 10 30 78 08 | 0x | MOVE.B (A0+D7.L+#0x8),D0 0002045c 48 80 |H | EXTB.W D0 0002045e 48 c0 |H | EXTW.L D0 00020460 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 00020466 63 02 |c | BLS 0x2046a 00020468 4e 4f |NO | TRAP #15 0002046a 11 80 78 1a | x | MOVE.B D0,(A0+D7.L+#0x1a) 0002046e 52 87 |R | ADDQ.L #0x1,D7 00020470 be 81 | | CMP.L D1,D7 00020472 6f d8 |o | BLE 0x2044c 00020474 42 27 |B' | CLR.B -(A7) 00020476 2f 39 00 02 08 1e |/9 | MOVE.L 0x2081e,-(A7) 0002047c 2f 39 00 02 08 22 |/9 " | MOVE.L 0x20822,-(A7) 00020482 1f 11 | | MOVE.B (A1),-(A7) 00020484 2f 39 00 02 08 2a |/9 * | MOVE.L 0x2082a,-(A7) 0002048a 2f 39 00 02 08 26 |/9 & | MOVE.L 0x20826,-(A7) 00020490 4e b9 00 01 05 4a |N J | JSR ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long) 00020496 de fc 00 14 | | ADDA.W #0x14,A7 0002049a 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 0002049e 4e 5e |N^ | UNLK A6 000204a0 4e 75 |Nu | RTS 000204a2 ; -------------------------------------------------------------------------------------- 000204a2 ; OMSI PASCAL Function 000204a2 ; <LVAR -0x002 @> 000204a2 ; <LVAR -0x008 @> 000204a2 ; <LVAR -0x00e @> 000204a2 ; <LVAR -0x014 @> 000204a2 ; <LVAR -0x01a @> 000204a2 ; <LVAR -0x01f @> 000204a2 ; <LVAR -0x025 @> 000204a2 ; <LVAR -0x026 @> 000204a2 ; <LVAR -0x027 @ 1(r)> 000204a2 ; <LVAR -0x028 @ 1(r)> 000204a2 ; -------------------------------------------------------------------------------------- 000204a2 4e 56 ff 8a |NV | LINK.W A6,#0xff8a 000204a6 bf d5 | | CMPA.L (A5),A7 000204a8 62 06 |b | BHI 0x204b0 000204aa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000204ae 4e 76 |Nv | TRAPV 000204b0 de fc 00 4e | N | ADDA.W #0x4e,A7 000204b4 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000204b8 41 ee ff d9 |A | LEA.L (A6-0x27),A0 000204bc 43 f9 00 02 08 14 |C | LEA.L 0x20814,A1 000204c2 45 f9 00 02 08 2f |E / | LEA.L 0x2082f,A2 000204c8 47 ee ff db |G | LEA.L (A6-0x25),A3 000204cc 49 fa ff 54 |I T | LEA.L 0x20422,A4 000204d0 72 05 |r | MOVEQ.L #0x05,D1 000204d2 74 01 |t | MOVEQ.L #0x01,D2 000204d4 76 0c |v | MOVEQ.L #0x0c,D3 000204d6 78 03 |x | MOVEQ.L #0x03,D4 000204d8 7a 04 |z | MOVEQ.L #0x04,D5 000204da 7c 06 || | MOVEQ.L #0x06,D6 000204dc 7e 02 |~ | MOVEQ.L #0x02,D7 000204de 10 12 | | MOVE.B (A2),D0 000204e0 b0 05 | | CMP.B D5,D0 000204e2 67 04 |g | BEQ 0x204e8 000204e4 b0 01 | | CMP.B D1,D0 000204e6 66 2c |f, | BNE 0x20514 000204e8 12 bc 00 2b | + | MOVE.B #0x2b,(A1) 000204ec 48 50 |HP | PEA.L (A0) 000204ee 48 6e ff da |Hn | PEA.L (A6-0x26) 000204f2 48 53 |HS | PEA.L (A3) 000204f4 48 6e ff fe |Hn | PEA.L (A6-0x2) 000204f8 48 6e ff fe |Hn | PEA.L (A6-0x2) 000204fc 4e b9 00 02 07 ec |N | JSR exp_POUND_WCS.IOC(&Fr, &Fr, &Sr_2, &Sr_2, &Sr_2) 00020502 de fc 00 14 | | ADDA.W #0x14,A7 00020506 10 10 | | MOVE.B (A0),D0 00020508 48 80 |H | EXTB.W D0 0002050a 41 82 |A | CHK.W D2,D0 0002050c 1f 00 | | MOVE.B D0,-(A7) 0002050e 1f 06 | | MOVE.B D6,-(A7) 00020510 4e 94 |N | JSR (A4) 00020512 58 4f |XO | ADDQ.L #0x4,A7 00020514 10 12 | | MOVE.B (A2),D0 00020516 0c 00 00 07 | | CMPI.B #0x07,D0 0002051a 67 04 |g | BEQ 0x20520 0002051c b0 01 | | CMP.B D1,D0 0002051e 66 3e |f> | BNE 0x2055e 00020520 12 85 | | MOVE.B D5,(A1) 00020522 48 50 |HP | PEA.L (A0) 00020524 48 53 |HS | PEA.L (A3) 00020526 48 6e ff e1 |Hn | PEA.L (A6-0x1f) 0002052a 4e b9 00 02 07 c4 |N | JSR exp_POUND_WCS_ASCENDING.VAL(&Fr, &Sr_2, &Sr_5) 00020530 de c3 | | ADDA.W D3,A7 00020532 10 10 | | MOVE.B (A0),D0 00020534 48 80 |H | EXTB.W D0 00020536 41 82 |A | CHK.W D2,D0 00020538 1f 00 | | MOVE.B D0,-(A7) 0002053a 1f 07 | | MOVE.B D7,-(A7) 0002053c 4e 94 |N | JSR (A4) 0002053e 58 4f |XO | ADDQ.L #0x4,A7 00020540 48 50 |HP | PEA.L (A0) 00020542 48 53 |HS | PEA.L (A3) 00020544 48 6e ff e1 |Hn | PEA.L (A6-0x1f) 00020548 4e b9 00 02 07 9c |N | JSR exp_POUND_WCS_DESCENDING.VAL(&Fr, &Sr_2, &Sr_5) 0002054e de c3 | | ADDA.W D3,A7 00020550 10 10 | | MOVE.B (A0),D0 00020552 48 80 |H | EXTB.W D0 00020554 41 82 |A | CHK.W D2,D0 00020556 1f 00 | | MOVE.B D0,-(A7) 00020558 1f 07 | | MOVE.B D7,-(A7) 0002055a 4e 94 |N | JSR (A4) 0002055c 58 4f |XO | ADDQ.L #0x4,A7 0002055e 10 12 | | MOVE.B (A2),D0 00020560 b0 06 | | CMP.B D6,D0 00020562 67 04 |g | BEQ 0x20568 00020564 b0 01 | | CMP.B D1,D0 00020566 66 3e |f> | BNE 0x205a6 00020568 12 84 | | MOVE.B D4,(A1) 0002056a 48 50 |HP | PEA.L (A0) 0002056c 48 53 |HS | PEA.L (A3) 0002056e 48 6e ff e6 |Hn | PEA.L (A6-0x1a) 00020572 4e b9 00 02 07 74 |N t | JSR exp_POUND_WCS_ASCENDING.TYP(&Fr, &Sr_2, &Sr_6) 00020578 de c3 | | ADDA.W D3,A7 0002057a 10 10 | | MOVE.B (A0),D0 0002057c 48 80 |H | EXTB.W D0 0002057e 41 82 |A | CHK.W D2,D0 00020580 1f 00 | | MOVE.B D0,-(A7) 00020582 1f 04 | | MOVE.B D4,-(A7) 00020584 4e 94 |N | JSR (A4) 00020586 58 4f |XO | ADDQ.L #0x4,A7 00020588 48 50 |HP | PEA.L (A0) 0002058a 48 53 |HS | PEA.L (A3) 0002058c 48 6e ff e6 |Hn | PEA.L (A6-0x1a) 00020590 4e b9 00 02 07 4c |N L | JSR exp_POUND_WCS_DESCENDING.TYP(&Fr, &Sr_2, &Sr_6) 00020596 de c3 | | ADDA.W D3,A7 00020598 10 10 | | MOVE.B (A0),D0 0002059a 48 80 |H | EXTB.W D0 0002059c 41 82 |A | CHK.W D2,D0 0002059e 1f 00 | | MOVE.B D0,-(A7) 000205a0 1f 04 | | MOVE.B D4,-(A7) 000205a2 4e 94 |N | JSR (A4) 000205a4 58 4f |XO | ADDQ.L #0x4,A7 000205a6 10 12 | | MOVE.B (A2),D0 000205a8 b0 07 | | CMP.B D7,D0 000205aa 67 04 |g | BEQ 0x205b0 000205ac b0 01 | | CMP.B D1,D0 000205ae 66 32 |f2 | BNE 0x205e2 000205b0 12 81 | | MOVE.B D1,(A1) 000205b2 48 6e ff d8 |Hn | PEA.L (A6-0x28) 000205b6 48 53 |HS | PEA.L (A3) 000205b8 48 6e ff ec |Hn | PEA.L (A6-0x14) 000205bc 48 6e ff f2 |Hn | PEA.L (A6-0xe) 000205c0 48 6e ff da |Hn | PEA.L (A6-0x26) 000205c4 4e b9 00 02 07 2c |N , | JSR exp_POUND_WCS.SEQ(&Fr, &Sr_2, &Sr_6, &Sr_6, &Fr) 000205ca de fc 00 14 | | ADDA.W #0x14,A7 000205ce 10 2e ff d8 | . | MOVE.B (A6-0x28),D0 000205d2 44 00 |D | NEG.B D0 000205d4 52 00 |R | ADDQ.B #0x1,D0 000205d6 48 80 |H | EXTB.W D0 000205d8 41 82 |A | CHK.W D2,D0 000205da 1f 00 | | MOVE.B D0,-(A7) 000205dc 1f 05 | | MOVE.B D5,-(A7) 000205de 4e 94 |N | JSR (A4) 000205e0 58 4f |XO | ADDQ.L #0x4,A7 000205e2 10 12 | | MOVE.B (A2),D0 000205e4 b0 04 | | CMP.B D4,D0 000205e6 67 04 |g | BEQ 0x205ec 000205e8 b0 01 | | CMP.B D1,D0 000205ea 66 26 |f& | BNE 0x20612 000205ec 12 86 | | MOVE.B D6,(A1) 000205ee 48 50 |HP | PEA.L (A0) 000205f0 48 6e ff da |Hn | PEA.L (A6-0x26) 000205f4 48 53 |HS | PEA.L (A3) 000205f6 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000205fa 4e b9 00 02 07 0e |N | JSR exp_TEST_WCS.FIU(&Fr, &Fr, &Sr_2, &Sr_6) 00020600 de fc 00 10 | | ADDA.W #0x10,A7 00020604 10 10 | | MOVE.B (A0),D0 00020606 48 80 |H | EXTB.W D0 00020608 41 82 |A | CHK.W D2,D0 0002060a 1f 00 | | MOVE.B D0,-(A7) 0002060c 1f 01 | | MOVE.B D1,-(A7) 0002060e 4e 94 |N | JSR (A4) 00020610 58 4f |XO | ADDQ.L #0x4,A7 00020612 42 11 |B | CLR.B (A1) 00020614 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020618 4e 5e |N^ | UNLK A6 0002061a 4e 75 |Nu | RTS 0002061c ; -------------------------------------------------------------------------------------- 0002061c ; OMSI PASCAL Function 0002061c ; -------------------------------------------------------------------------------------- 0002061c START: 0002061c 4f fa 00 08 |O | LEA.L MAIN,A7 00020620 4e f9 00 01 02 80 |N | JMP ?start_program 00020626 MAIN: 00020626 43 f9 00 02 08 31 |C 1 | LEA.L 0x20831,A1 0002062c 45 f9 00 02 08 2e |E . | LEA.L 0x2082e,A2 00020632 47 f9 00 02 08 1e |G | LEA.L 0x2081e,A3 00020638 49 f9 00 02 08 22 |I " | LEA.L 0x20822,A4 0002063e 72 01 |r | MOVEQ.L #0x01,D1 00020640 74 07 |t | MOVEQ.L #0x07,D2 00020642 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020648 48 78 00 00 |Hx | PEA.L 0x0 0002064c 4e b9 00 01 04 d8 |N | JSR ExpInit(a : Long) 00020652 58 4f |XO | ADDQ.L #0x4,A7 00020654 48 52 |HR | PEA.L (A2) 00020656 48 79 00 02 08 30 |Hy 0 | PEA.L 0x20830 0002065c 48 51 |HQ | PEA.L (A1) 0002065e 4e b9 00 01 05 56 |N V | JSR ?IPC_GetStd(MOD a : Pointer; VAR b : Bool ; VAR c : Bool) 00020664 de fc 00 0a | | ADDA.W #0xa,A7 00020668 1e 91 | | MOVE.B (A1),(A7) 0002066a 4e b9 00 01 04 d2 |N | JSR SetExpInitDone(a : Byte) 00020670 3e ba fb 08 |> | MOVE.W 0x2017a,(A7) 00020674 3f 3a fb 02 |?: | MOVE.W 0x20178,-(A7) 00020678 3f 3a fa fc |?: | MOVE.W 0x20176,-(A7) 0002067c 59 4f |YO | SUBQ.L #0x4,A7 0002067e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020682 3f 01 |? | MOVE.W D1,-(A7) 00020684 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00020688 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002068e 50 4f |PO | ADDQ.L #0x8,A7 00020690 26 9f |& | MOVE.L (A7)+,(A3) 00020692 5c 4f |\O | ADDQ.L #0x6,A7 00020694 48 54 |HT | PEA.L (A4) 00020696 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002069c 58 4f |XO | ADDQ.L #0x4,A7 0002069e 42 39 00 02 08 1c |B9 | CLR.B 0x2081c 000206a4 70 00 |p | MOVEQ.L #0x00,D0 000206a6 23 c0 00 02 08 34 |# 4 | MOVE.L D0,0x20834 000206ac b0 82 | | CMP.L D2,D0 000206ae 63 02 |c | BLS 0x206b2 000206b0 4e 4f |NO | TRAP #15 000206b2 41 f9 00 02 08 0c |A | LEA.L 0x2080c,A0 000206b8 42 30 08 08 |B0 | CLR.B (A0+D0.L+#0x8) 000206bc 42 30 08 1a |B0 | CLR.B (A0+D0.L+#0x1a) 000206c0 52 80 |R | ADDQ.L #0x1,D0 000206c2 b0 82 | | CMP.L D2,D0 000206c4 6f e0 |o | BLE 0x206a6 000206c6 42 80 |B | CLR.L D0 000206c8 10 12 | | MOVE.B (A2),D0 000206ca 41 bc 00 0f |A | CHK.W #0xf,D0 000206ce 13 c0 00 02 08 2f | / | MOVE.B D0,0x2082f 000206d4 4e ba fd cc |N | JSR 0x204a2 000206d8 1f 11 | | MOVE.B (A1),-(A7) 000206da 48 79 00 02 08 32 |Hy 2 | PEA.L 0x20832 000206e0 4e ba fc 3e |N > | JSR 0x20320 000206e4 58 4f |XO | ADDQ.L #0x4,A7 000206e6 1e 81 | | MOVE.B D1,(A7) 000206e8 2f 13 |/ | MOVE.L (A3),-(A7) 000206ea 2f 14 |/ | MOVE.L (A4),-(A7) 000206ec 1f 39 00 02 08 1c | 9 | MOVE.B 0x2081c,-(A7) 000206f2 2f 39 00 02 08 2a |/9 * | MOVE.L 0x2082a,-(A7) 000206f8 2f 39 00 02 08 26 |/9 & | MOVE.L 0x20826,-(A7) 000206fe 4e b9 00 01 05 4a |N J | JSR ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long) 00020704 de fc 00 14 | | ADDA.W #0x14,A7 00020708 4e b9 00 01 02 84 |N | JSR ?exit 0002070e exp_TEST_WCS.FIU(&Fr, &Fr, &Sr_2, &Sr_6): 0002070e 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020714 00 18 | | .CONST 0x0018 ; Stack-delta 00020716 0c 54 45 53 54 5f 57 43 | TEST_WC| .TXT 12,'TEST_WCS.FIU' 00020723 00 | | .CONST 0x0 00020724 03 | | .CONST 0x3 ; DIPROC address 00020725 04 | | .CONST 0x4 ; Output Parameters 00020726 00 | | .CONST 0x0 ; Input Parameters 00020727 08 | | .CONST 0x8 ; Out arg flag 00020728 08 | | .CONST 0x8 ; Out arg flag 00020729 01 | | .CONST 0x1 ; Out arg [2] 0002072a 05 | | .CONST 0x5 ; Out arg [6] 0002072b 00 | | .PAD 0x0 0002072c exp_POUND_WCS.SEQ(&Fr, &Sr_2, &Sr_6, &Sr_6, &Fr): 0002072c 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020732 00 1c | | .CONST 0x001c ; Stack-delta 00020734 0d 50 4f 55 4e 44 5f 57 | POUND_W| .TXT 13,'POUND_WCS.SEQ' 00020742 02 | | .CONST 0x2 00020743 02 | | .CONST 0x2 ; DIPROC address 00020744 05 | | .CONST 0x5 ; Output Parameters 00020745 00 | | .CONST 0x0 ; Input Parameters 00020746 08 | | .CONST 0x8 ; Out arg flag 00020747 01 | | .CONST 0x1 ; Out arg [2] 00020748 05 | | .CONST 0x5 ; Out arg [6] 00020749 05 | | .CONST 0x5 ; Out arg [6] 0002074a 08 | | .CONST 0x8 ; Out arg flag 0002074b 00 | | .PAD 0x0 0002074c exp_POUND_WCS_DESCENDING.TYP(&Fr, &Sr_2, &Sr_6): 0002074c 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020752 00 14 | | .CONST 0x0014 ; Stack-delta 00020754 18 50 4f 55 4e 44 5f 57 | POUND_W| .TXT 24,'POUND_WCS_DESCENDING.TYP' 0002076d 02 | | .CONST 0x2 0002076e 06 | | .CONST 0x6 ; DIPROC address 0002076f 03 | | .CONST 0x3 ; Output Parameters 00020770 00 | | .CONST 0x0 ; Input Parameters 00020771 08 | | .CONST 0x8 ; Out arg flag 00020772 01 | | .CONST 0x1 ; Out arg [2] 00020773 05 | | .CONST 0x5 ; Out arg [6] 00020774 exp_POUND_WCS_ASCENDING.TYP(&Fr, &Sr_2, &Sr_6): 00020774 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002077a 00 14 | | .CONST 0x0014 ; Stack-delta 0002077c 17 50 4f 55 4e 44 5f 57 | POUND_W| .TXT 23,'POUND_WCS_ASCENDING.TYP' 00020794 02 | | .CONST 0x2 00020795 06 | | .CONST 0x6 ; DIPROC address 00020796 03 | | .CONST 0x3 ; Output Parameters 00020797 00 | | .CONST 0x0 ; Input Parameters 00020798 08 | | .CONST 0x8 ; Out arg flag 00020799 01 | | .CONST 0x1 ; Out arg [2] 0002079a 05 | | .CONST 0x5 ; Out arg [6] 0002079b 00 | | .PAD 0x0 0002079c exp_POUND_WCS_DESCENDING.VAL(&Fr, &Sr_2, &Sr_5): 0002079c 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000207a2 00 14 | | .CONST 0x0014 ; Stack-delta 000207a4 18 50 4f 55 4e 44 5f 57 | POUND_W| .TXT 24,'POUND_WCS_DESCENDING.VAL' 000207bd 02 | | .CONST 0x2 000207be 07 | | .CONST 0x7 ; DIPROC address 000207bf 03 | | .CONST 0x3 ; Output Parameters 000207c0 00 | | .CONST 0x0 ; Input Parameters 000207c1 08 | | .CONST 0x8 ; Out arg flag 000207c2 01 | | .CONST 0x1 ; Out arg [2] 000207c3 04 | | .CONST 0x4 ; Out arg [5] 000207c4 exp_POUND_WCS_ASCENDING.VAL(&Fr, &Sr_2, &Sr_5): 000207c4 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000207ca 00 14 | | .CONST 0x0014 ; Stack-delta 000207cc 17 50 4f 55 4e 44 5f 57 | POUND_W| .TXT 23,'POUND_WCS_ASCENDING.VAL' 000207e4 02 | | .CONST 0x2 000207e5 07 | | .CONST 0x7 ; DIPROC address 000207e6 03 | | .CONST 0x3 ; Output Parameters 000207e7 00 | | .CONST 0x0 ; Input Parameters 000207e8 08 | | .CONST 0x8 ; Out arg flag 000207e9 01 | | .CONST 0x1 ; Out arg [2] 000207ea 04 | | .CONST 0x4 ; Out arg [5] 000207eb 00 | | .PAD 0x0 000207ec exp_POUND_WCS.IOC(&Fr, &Fr, &Sr_2, &Sr_2, &Sr_2): 000207ec 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000207f2 00 1c | | .CONST 0x001c ; Stack-delta 000207f4 0d 50 4f 55 4e 44 5f 57 | POUND_W| .TXT 13,'POUND_WCS.IOC' 00020802 00 | | .CONST 0x0 00020803 04 | | .CONST 0x4 ; DIPROC address 00020804 05 | | .CONST 0x5 ; Output Parameters 00020805 00 | | .CONST 0x0 ; Input Parameters 00020806 08 | | .CONST 0x8 ; Out arg flag 00020807 08 | | .CONST 0x8 ; Out arg flag 00020808 01 | | .CONST 0x1 ; Out arg [2] 00020809 01 | | .CONST 0x1 ; Out arg [2] 0002080a 01 | | .CONST 0x1 ; Out arg [2] 0002080b 00 | | .PAD 0x0 0002080c 00 00 00 00 | | .XXX[0x4] 00020810 00 00 00 00 00 00 00 00 | | .XXX[0x8] 00020818 00 00 00 00 | | .XXX[0x4] 0002081c 00 00 | | .CONST 0x0,0x0 0002081e 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0 00020822 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0 00020826 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0 0002082a 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0 0002082e 00 00 | | .XXX[0x2] 00020830 00 | | .XXX[0x1] 00020831 00 00 | | .CONST 0x0,0x0 00020833 00 00 00 00 00 | | .XXX[0x5] 00020838 00 00 00 00 00 00 00 00 | | .BLANK 00[0x3c8]