|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Types: M200
Notes: @(#)P2UECC,2.0,89/10/02,17:18:19, M200_PROGRAM
Names: »P2UECC.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »P2UECC.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »P2UECC.M200«
└─ ⟦this⟧ »P2UECC.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »P2UECC.M200«
@ 2019e
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 2019e-202da Body>
<POP 2019e-201b4 Prologue> Σ0 ↓
<POP 201b4-201ca RegCacheLoad> Σ0 ↓
<POP 201ca-2022a Naked> Σ0 ↓ →0x20272
<Call 0x201ca 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x201d0 [18] @> Δ-18 {[«18""»]}
<POP 201dc-201de StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x201de 18> {[«18""»]|[$$Experiment error :]}
<Call 0x201ea 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 201ec-201ed StackAdj> Δ+22 ↓ {}
<Blob 0x201ed [14] @> Δ-14 {[«14""»]}
<POP 201fc-201fe StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x201fe 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 20208-2020a StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 2020a MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x2020e 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 20214-20216 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x20216 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2021c-2021e StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2021e 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20220-20222 StackAdj> Δ+18 {}
<MI 20222 MOVEA.L (A6+0xa),A0> {}
<MI 20226 CMPA.W #0x01,A0> {}
<MI 20228 BEQ 0x20272> {}
<POP 2022a-20272 Naked> Σ0 ↓
<Blob 0x2022a [14] @> Δ-14 {[«14""»]}
<Blob 0x2023a [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 2024a-2024c StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x2024c 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 20256-20258 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x20258> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x20258 12> Δ-4
<Const 0x2025c 0x1.2> Δ-2
<Const 0x2025e 0x1e.2> Δ-2
<Call 0x20260 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20262-20264 StackAdj> Δ+8
<Call 0x20264 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 2026a-2026c StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x2026c 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2026e-20272 StackAdj> Δ+48 {}
<POP 20272-202d2 Naked> Σ0 ↓ ←0x201ca
<Blob 0x20272 [14] @> Δ-14 {[«14""»]}
<POP 20282-20284 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20284 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 2028e-20290 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 20290 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x20294 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 2029a-2029c StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x2029c 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 202a2-202a4 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x202a4 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 202a6-202a7 StackAdj> Δ+18 ↓ {}
<Blob 0x202a7 [24] @> Δ-24 {[«24""»]}
<Const 0x202b6 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 202ba-202bc StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x202bc 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x202ca 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 202d0-202d2 StackAdj> Δ+30 {}
<POP 202d2-202da Epilogue> Σ0
@ 202da
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 202da-20342 Body>
<POP 202da-202f0 Prologue> Σ0 ↓
<POP 202f0-2033a Naked> Σ0 ↓
<Blob 0x202f0 [14] @> Δ-14 {[«14""»]}
<Const 0x202fc 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 20300-20302 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x20302 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 20314-20316 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20316 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2031a EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2031c EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2031e MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x20320 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 20326-20328 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x20328 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2032e-20330 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x20330 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 20336-2033a StackAdj> Δ+20 {}
<POP 2033a-20342 Epilogue> Σ0
@ 20342
<POP 20342-2042a Body>
<POP 20342-20358 Prologue> Σ0 ↓
<POP 20358-20364 RegCacheLoad> Σ0 ↓
<POP 20364-2037a Naked> Σ0 ↓
<Const 0x20364 0x20db2.4> Δ-4 {[##134578]}
<Call 0x2036a 0x102b8> {[##134578]}
NewString(VAR a : String)
<POP 20370-20372 StackAdj> Δ+4 {}
<MI 20372 MOVE.B #0x02,0x20dcf> {}
<MI 20378 MOVEQ.L #0x01,D7> {}
<POP 2037a-2038c Naked> Σ0 ↓ →0x2037a ←0x2037a
<POP 0x2037a LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<MI 20380 LEA.L 0x20da4,A0> {}
<MI 20382 CLR.B (A0+D7.L+#0x2b)> {}
<MI 20386 ADDQ.L #0x1,D7> {}
<MI 20388 CMP.L #0x07,D7> {}
<MI 2038a BLE 0x2037a> {}
<POP 2038c-20394 Naked> Σ0 ↓
<MI 2038c MOVE.B #0x01,0x20dd7> {}
<MI 20392 MOVEQ.L #0x01,D7> {}
<POP 20394-203a6 Naked> Σ0 ↓ →0x20394 ←0x20394
<POP 0x20394 LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<MI 2039a LEA.L 0x20da4,A0> {}
<MI 2039c CLR.B (A0+D7.L+#0x33)> {}
<MI 203a0 ADDQ.L #0x1,D7> {}
<MI 203a2 CMP.L #0x07,D7> {}
<MI 203a4 BLE 0x20394> {}
<POP 203a6-203b4 Naked> Σ0 ↓
<MI 203a6 MOVE.B #0x02,0x20ddf> {}
<MI 203ac MOVE.B #0x01,0x20de0> {}
<MI 203b2 MOVEQ.L #0x02,D7> {}
<POP 203b4-203c6 Naked> Σ0 ↓ →0x203b4 ←0x203b4
<POP 0x203b4 LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<MI 203ba LEA.L 0x20da4,A0> {}
<MI 203bc CLR.B (A0+D7.L+#0x3b)> {}
<MI 203c0 ADDQ.L #0x1,D7> {}
<MI 203c2 CMP.L #0x07,D7> {}
<MI 203c4 BLE 0x203b4> {}
<POP 203c6-203d4 Naked> Σ0 ↓
<MI 203c6 MOVE.B #0x01,0x20de7> {}
<MI 203cc MOVE.B #0x02,0x20de8> {}
<MI 203d2 MOVEQ.L #0x02,D7> {}
<POP 203d4-203e6 Naked> Σ0 ↓ →0x203d4 ←0x203d4
<POP 0x203d4 LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<MI 203da LEA.L 0x20da4,A0> {}
<MI 203dc CLR.B (A0+D7.L+#0x43)> {}
<MI 203e0 ADDQ.L #0x1,D7> {}
<MI 203e2 CMP.L #0x07,D7> {}
<MI 203e4 BLE 0x203d4> {}
<POP 203e6-203fc Naked> Σ0 ↓
<MI 203e6 MOVE.B #0x2a,0x20def> {}
<MI 203ee MOVE.B #0x02,0x20df0> {}
<MI 203f4 MOVE.B #0x01,0x20df1> {}
<MI 203fa MOVEQ.L #0x03,D7> {}
<POP 203fc-2040e Naked> Σ0 ↓ →0x203fc ←0x203fc
<POP 0x203fc LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<MI 20402 LEA.L 0x20da4,A0> {}
<MI 20404 CLR.B (A0+D7.L+#0x4b)> {}
<MI 20408 ADDQ.L #0x1,D7> {}
<MI 2040a CMP.L #0x07,D7> {}
<MI 2040c BLE 0x203fc> {}
<POP 2040e-20410 Naked> Σ0 ↓
<MI 2040e MOVEQ.L #0x00,D7> {}
<POP 20410-20422 Naked> Σ0 ↓ →0x20410 ←0x20410
<POP 0x20410 LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<MI 20416 LEA.L 0x20da4,A0> {}
<MI 20418 CLR.B (A0+D7.L+#0x53)> {}
<MI 2041c ADDQ.L #0x1,D7> {}
<MI 2041e CMP.L #0x07,D7> {}
<MI 20420 BLE 0x20410> {}
<POP 20422-2042a Epilogue> Σ0
@ 2042a
<LVAR 0x00c 1(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @>
<POP 2042a-204b8 Body>
<POP 2042a-20440 Prologue> Σ0 ↓
<POP 20440-204b0 Naked> Σ0 ↓
<Call 0x20440 0x10538> {}
IPC_Init(void)
<MI 20446 MOVE.B (A6+0xc),-(A7)> Δ-2 {[2, '(A6+0xc)']}
<Call 0x2044a 0x10502> {[2, '(A6+0xc)']}
IPC_PutBool(a : Bool)
<POP 20450-20452 StackAdj> Δ+2 {}
<Call 0x20452 0x10514> {}
IPC_PutEnd(void)
<Blob 0x20458 [10] @> Δ-10 {[«10""»]}
<POP 2046a-2046c StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x2046c 9> {[«10""»]|[$$INITSTATE]}
<Const 0x20480 0x1.4> Δ-4 {[«10""»]|[$$INITSTATE]|[##1]}
<Const 0x20484 0x2.2> Δ-2 {[«10""»]|[$$INITSTATE]|[##1]|[#2]}
<Pointer.fp 0x20488 <LVAR -0x002 @>> Δ-4 {[«10""»]|[$$INITSTATE]|[##1]|[#2]|[@@-2]}
<Call 0x2048c 0x103b0> {[«10""»]|[$$INITSTATE]|[##1]|[#2]|[@@-2]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 20492-20496 StackAdj> Δ+24 {}
<Call 0x20496 0x10538> {}
IPC_Init(void)
<MI 2049c MOVEA.L (A6+0x8),A0> {}
<MI 204a0 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x204a2 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 204a8-204aa StackAdj> Δ+4 {}
<Call 0x204aa 0x1051a> {}
IPC_GetEnd(void)
<POP 204b0-204b8 Epilogue> Σ0
@ 204b8
<LVAR 0x008 4(r)>
<POP 204b8-204f0 Body>
<POP 204b8-204ce Prologue> Σ0 ↓
<POP 204ce-204e8 Naked> Σ0 ↓
<Call 0x204ce 0x10538> {}
IPC_Init(void)
<MI 204d4 MOVEA.L (A6+0x8),A0> {}
<MI 204d8 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x204da 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 204e0-204e2 StackAdj> Δ+4 {}
<Call 0x204e2 0x1051a> {}
IPC_GetEnd(void)
<POP 204e8-204f0 Epilogue> Σ0
@ 204f0
<LVAR 0x008 1(r)>
<POP 204f0-2052c Body>
<POP 204f0-20502 Prologue> Σ0 ↓
<POP 20502-20528 Naked> Σ0 ↓
<Call 0x20502 0x10538> {}
IPC_Init(void)
<MI 20508 MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x2050c 0x10502> {[2, '(A6+0x8)']}
IPC_PutBool(a : Bool)
<POP 20512-20514 StackAdj> Δ+2 {}
<Call 0x20514 0x10514> {}
IPC_PutEnd(void)
<MI 2051a CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2051c 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x20520 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20526-20528 StackAdj> Δ+6 {}
<POP 20528-2052c Epilogue> Σ0
@ 2052c
<LVAR 0x010 1(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2052c-20592 Body>
<POP 2052c-20542 Prologue> Σ0 ↓
<POP 20542-20548 RegCacheLoad> Σ0 ↓
<POP 20548-2058a Naked> Σ0 ↓
<MI 20548 MOVE.B (A6+0x10),0x20e0a> {}
<Blob 0x2054c [2] @> Δ-2 {[«2""»]}
<Blob 0x20550 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x20554 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<MI 20558 CLR.B -(A7)> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[#0]}
<POP 2055a-2055c StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[#0]|[-4-]}
<Lit 0x2055c 6> {[«2""»]|[«2""»]|[«2""»]|[#0]|[$$P2UECC]}
<POP 2056e-20570 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[#0]|[$$P2UECC]|[-4-]}
<POP 20570-20571 StackAdj> Δ+4 {[«2""»]|[«2""»]|[«2""»]|[#0]|[$$P2UECC]}
<Blob 0x20571 [4] @> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[#0]|[$$P2UECC]|[«4""»]}
<Blob 0x20576 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[#0]|[$$P2UECC]|[«4""»]|[«2""»]}
<MI 20578 MOVE.L (A6+0xc),-(A7)> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[#0]|[$$P2UECC]|[«4""»]|[«2""»]|[4, '(A6+0xc)']}
<MI 2057c MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[#0]|[$$P2UECC]|[«4""»]|[«2""»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x20580 0x1054a> {[«2""»]|[«2""»]|[«2""»]|[#0]|[$$P2UECC]|[«4""»]|[«2""»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
<POP 20586-2058a StackAdj> Δ+26 {}
<POP 2058a-20592 Epilogue> Σ0
@ 20592
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20592-205da Body>
<POP 20592-205a8 Prologue> Σ0 ↓
<POP 205a8-205d2 Naked> Σ0 ↓
<MI 205a8 MOVE.L (A6+0x10),D0> {}
<MI 205ac ASL.L #0x5,D0> {}
<MI 205ae OR.L (A6+0xc),D0> {}
<POP 0x205b2 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 205bc MOVE.W D0,D7> {}
<MI 205be MOVEA.L (A6+0x8),A0> {}
<MI 205c2 MOVE.W D7,D0> {}
<MI 205c4 LSR.W #0x8,D0> {}
<MI 205c6 MOVE.B D0,(A0)> {}
<MI 205c8 MOVE.W D7,D0> {}
<MI 205ca ANDI.W #0x00ff,D0> {}
<MI 205ce MOVE.B D0,(A0+0x1)> {}
<POP 205d2-205da Epilogue> Σ0
@ 205da
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(r)>
<LVAR -0x00a @ 4(r)>
<LVAR -0x00e 4(r)>
<LVAR -0x012 @ 4(r)>
<LVAR -0x014 @ 2(r)>
<POP 205da-2065c Body>
<POP 205da-205f0 Prologue> Σ0 ↓
<POP 205f0-20654 Naked> Σ0 ↓
<Call 0x205f0 0x20c02> {}
exp_PREP_READ_REG.TYP()
<MI 205f6 MOVE.L (A6+0x10),-(A7)> Δ-4 {[4, '(A6+0x10)']}
<MI 205fa MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<Pointer.fp 0x205fe <LVAR -0x014 @ 2(r)>> Δ-4 {[4, '(A6+0x10)']|[4, '(A6+0xc)']|[@@-20]}
<Call 0x20602 0x20592> {[4, '(A6+0x10)']|[4, '(A6+0xc)']|[@@-20]}
<POP 20606-2060a StackAdj> Δ+10 {[-2-]}
<MI 2060a MOVE.W (A6-0x14),(A7)> {[2, '(A6-0x14)']}
<MI 2060e CLR.B -(A7)> Δ-2 {[2, '(A6-0x14)']|[#0]}
<Pointer.fp 0x20610 <LVAR -0x012 @ 4(r)>> Δ-4 {[2, '(A6-0x14)']|[#0]|[@@-18]}
<Call 0x20614 0x20be4> {[2, '(A6-0x14)']|[#0]|[@@-18]}
exp_READ_B_REG.TYP(Sw_2, Sw_1, &Sr_8)
<POP 2061a-2061c StackAdj> Δ+4 {[2, '(A6-0x14)']|[#0]}
<MI 2061c MOVE.L (A6-0xe),(A7)> {[4, '(A6-0xe)']}
<MI 20620 MOVE.L (A6-0x12),-(A7)> Δ-4 {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
<MI 20624 PEA.L (A7)> Δ-4 {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']}
<Const 0x20626 0x0.4> Δ-4 {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']|[##0]}
<Const 0x2062a 0x7.4> Δ-4 {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']|[##0]|[##7]}
<Pointer.fp 0x2062e <LVAR -0x00a @ 4(r)>> Δ-4 {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']|[##0]|[##7]|[@@-10]}
<Call 0x20632 0x104b4> {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']|[##0]|[##7]|[@@-10]}
?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
<POP 20638-2063c StackAdj> Δ+24 {}
<MI 2063c MOVEA.L (A6+0x8),A0> {}
<POP 20640-20642 StackAdj> Δ-4 {[-4-]}
<MI 20642 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<MI 20646 MOVE.L (A6-0xa),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
<Call 0x2064a 0x10350> {[-4-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
Quad2Long(a : Quad) : Long
<POP 20650-20652 StackAdj> Δ+8 {[-4-]}
<MI 20652 MOVE.L (A7)+,(A0)> Δ+4 {}
<POP 20654-2065c Epilogue> Σ0
@ 2065c
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(r)>
<LVAR -0x00a @ 4(r)>
<LVAR -0x00e 4(r)>
<LVAR -0x012 @ 4(r)>
<LVAR -0x014 @ 2(r)>
<POP 2065c-206de Body>
<POP 2065c-20672 Prologue> Σ0 ↓
<POP 20672-206d6 Naked> Σ0 ↓
<Call 0x20672 0x20c5e> {}
exp_PREP_READ_REG.VAL()
<MI 20678 MOVE.L (A6+0x10),-(A7)> Δ-4 {[4, '(A6+0x10)']}
<MI 2067c MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<Pointer.fp 0x20680 <LVAR -0x014 @ 2(r)>> Δ-4 {[4, '(A6+0x10)']|[4, '(A6+0xc)']|[@@-20]}
<Call 0x20684 0x20592> {[4, '(A6+0x10)']|[4, '(A6+0xc)']|[@@-20]}
<POP 20688-2068c StackAdj> Δ+10 {[-2-]}
<MI 2068c MOVE.W (A6-0x14),(A7)> {[2, '(A6-0x14)']}
<MI 20690 CLR.B -(A7)> Δ-2 {[2, '(A6-0x14)']|[#0]}
<Pointer.fp 0x20692 <LVAR -0x012 @ 4(r)>> Δ-4 {[2, '(A6-0x14)']|[#0]|[@@-18]}
<Call 0x20696 0x20c40> {[2, '(A6-0x14)']|[#0]|[@@-18]}
exp_READ_B_REG.VAL(Sw_2, Sw_1, &Sr_8)
<POP 2069c-2069e StackAdj> Δ+4 {[2, '(A6-0x14)']|[#0]}
<MI 2069e MOVE.L (A6-0xe),(A7)> {[4, '(A6-0xe)']}
<MI 206a2 MOVE.L (A6-0x12),-(A7)> Δ-4 {[4, '(A6-0xe)']|[4, '(A6-0x12)']}
<MI 206a6 PEA.L (A7)> Δ-4 {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']}
<Const 0x206a8 0x0.4> Δ-4 {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']|[##0]}
<Const 0x206ac 0x7.4> Δ-4 {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']|[##0]|[##7]}
<Pointer.fp 0x206b0 <LVAR -0x00a @ 4(r)>> Δ-4 {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']|[##0]|[##7]|[@@-10]}
<Call 0x206b4 0x104b4> {[4, '(A6-0xe)']|[4, '(A6-0x12)']|[4, '^(A7)']|[##0]|[##7]|[@@-10]}
?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q)
<POP 206ba-206be StackAdj> Δ+24 {}
<MI 206be MOVEA.L (A6+0x8),A0> {}
<POP 206c2-206c4 StackAdj> Δ-4 {[-4-]}
<MI 206c4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<MI 206c8 MOVE.L (A6-0xa),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
<Call 0x206cc 0x10350> {[-4-]|[4, '(A6-0x6)']|[4, '(A6-0xa)']}
Quad2Long(a : Quad) : Long
<POP 206d2-206d4 StackAdj> Δ+8 {[-4-]}
<MI 206d4 MOVE.L (A7)+,(A0)> Δ+4 {}
<POP 206d6-206de Epilogue> Σ0
@ 206de
<LVAR 0x00c 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x006 @>
<LVAR -0x00b @ 1(r)>
<LVAR -0x00c @>
<POP 206de-207f0 Body> Δ+4
<POP 206de-206f4 Prologue> Σ0 ↓
<POP 206f4-206fc RegCacheLoad> Σ0 ↓
<POP 206fc-20738 Naked> Σ0 ↓ →0x2073e
<MI 206fc MOVE.B 0x20e07,D0> {}
<MI 20702 EXTB.W D0> {}
<POP 0x20704 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 20706 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Const 0x20708 0x20e09.4> Δ-4 {[2, 'D0']|[##134665]}
<Call 0x2070e 0x2042a> {[2, 'D0']|[##134665]}
<POP 20712-20714 StackAdj> Δ+6 {}
<Const 0x20714 0xa00c.2> Δ-2 {[#40972]}
<MI 20716 CLR.B -(A7)> Δ-2 {[#40972]|[#0]}
<Call 0x20718 0x20d88> {[#40972]|[#0]}
exp_LOAD_UIR.IOC(Sw_2, Sw_1)
<POP 2071e-20720 StackAdj> Δ+4 {}
<Call 0x20720 0x20c7c> {}
exp_FORCE_VAL_BUS.VAL()
<Call 0x20726 0x20c20> {}
exp_FORCE_TYPE_BUS.TYP()
<POP 2072c-2072e StackAdj> Δ-2 {[-2-]}
<Call 0x2072e 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 20734 TST.B (A7)+> Δ+2 {}
<MI 20736 BEQ 0x2073e> {}
<POP 20738-2073e Naked> Σ0 Δ-4 →0x20744
<Const 0x20738 0xa00c.2> Δ-2 {[#40972]}
<MI 2073a CLR.B -(A7)> Δ-2 {[#40972]|[#0]}
<MI 2073c BRA 0x20744> {[#40972]|[#0]}
<POP 2073e-20744 Naked> Σ0 Δ-4 ↓ ←0x206fc
<Const 0x2073e 0xa00c.2> Δ-2 {[#40972]}
<Const 0x20740 0xff.2> Δ-2 {[#40972]|[#255]}
<POP 20744-2077a Naked> Σ-4 Δ+4 ↓ →0x2077c ←0x20738
<Call 0x20744 0x20cb2> {[-4-]}
<POP 2074a-2074c StackAdj> Δ+4 {}
<Call 0x2074c 0x20bc4> {}
exp_INIT_CSTOP_WCS.SEQ()
<MI 20752 CLR.W -(A7)> Δ-2 {[#0]}
<Call 0x20754 0x20baa> {[#0]}
exp_PREP_RUN.SEQ(Sw_2)
<POP 2075a-2075c StackAdj> Δ+2 {}
<Pointer.fp 0x2075c <LVAR -0x00b @ 1(r)>> Δ-4 {[@@-11]}
<Pointer.fp 0x20760 <LVAR -0x00c @>> Δ-4 {[@@-11]|[@@-12]}
<Call 0x20764 0x20b82> {[@@-11]|[@@-12]}
exp_STEP_AND_FETCH_EVENT.SEQ(&Sr_2, &Sr_1)
<POP 2076a-2076c StackAdj> Δ+8 {}
<MI 2076c MOVEQ.L #0x00,D6> {}
<MI 2076e CLR.L D0> {}
<MI 20770 MOVE.B (A6-0xb),D0> {}
<MI 20774 ANDI.W #0x002f,D0> {}
<MI 20778 BNE 0x2077c> {}
<POP 2077a-2077c Naked> Σ0 ↓
<MI 2077a ADDQ.B #0x1,D6> {}
<POP 2077c-2079c Naked> Σ0 ↓ →0x2079e ←0x20744
<MI 2077c CLR.B -(A7)> Δ-2 {[#0]}
<Pointer.fp 0x2077e <LVAR -0x006 @>> Δ-4 {[#0]|[@@-6]}
<Pointer.fp 0x20782 <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[@@-6]|[@@-4]}
<Call 0x20786 0x20d5c> {[#0]|[@@-6]|[@@-4]}
exp_READ_ENABLES_AND_EVENTS.IOC(Sw_1, &Sr_2, &Sr_1)
<POP 2078c-2078e StackAdj> Δ+10 {}
<MI 2078e MOVEQ.L #0x00,D7> {}
<MI 20790 CLR.L D0> {}
<MI 20792 MOVE.B (A6-0x4),D0> {}
<MI 20796 ANDI.W #0x0008,D0> {}
<MI 2079a BEQ 0x2079e> {}
<POP 2079c-2079e Naked> Σ0 ↓
<MI 2079c ADDQ.B #0x1,D7> {}
<POP 2079e-207a2 Naked> Σ0 ↓ →0x207c2 ←0x2077c
<MI 2079e TST.B D7> {}
<MI 207a0 BEQ 0x207c2> {}
<POP 207a2-207a6 Naked> Σ0 ↓ →0x207c2
<MI 207a2 TST.B D6> {}
<MI 207a4 BNE 0x207c2> {}
<POP 207a6-207c2 Naked> Σ0 ↓
<Const 0x207a6 0xb.2> Δ-2 {[#11]}
<Blob 0x207aa [8] @> Δ-8 {[#11]|[«8""»]}
<Call 0x207bc 0x2052c> {[#11]|[«8""»]}
<POP 207c0-207c2 StackAdj> Δ+10 {}
<POP 207c2-207c6 Naked> Σ0 ↓ →0x207e2 ←0x2079e ←0x207a2
<MI 207c2 TST.B D7> {}
<MI 207c4 BNE 0x207e2> {}
<POP 207c6-207e2 Naked> Σ0 ↓
<Const 0x207c6 0x3.2> Δ-2 {[#3]}
<Blob 0x207ca [8] @> Δ-8 {[#3]|[«8""»]}
<Call 0x207dc 0x2052c> {[#3]|[«8""»]}
<POP 207e0-207e2 StackAdj> Δ+10 {}
<POP 207e2-207e8 Naked> Σ0 ↓ ←0x207c2
<MI 207e2 MOVEA.L (A6+0xc),A0> {}
<MI 207e6 MOVE.B #0x01,(A0)> {}
<POP 207e8-207f0 Epilogue> Σ0
@ 207f0
START
<POP 207f0--0001 Body> Δ+180
<POP 207f0-207fa Prologue> Σ0
<POP 207fa-20818 RegCacheLoad> Σ0 ↓
<POP 20818-20868 Naked> Σ0 ↓
<Call 0x20818 0x10398> {}
FSCALL_10398
<Const 0x2081e 0x20e08.4> Δ-4 {[##134664]}
<Const 0x20824 0x20e07.4> Δ-4 {[##134664]|[##134663]}
<Call 0x2082a 0x10544> {[##134664]|[##134663]}
IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool)
<POP 20830-20832 StackAdj> Δ+8 {}
<Const 0x20832 0xf.4> Δ-4 {[##15]}
<Call 0x20836 0x104d8> {[##15]}
ExpInit(a : Long)
<POP 2083c-2083e StackAdj> Δ+2 {[-2-]}
<POP 2083e-2083f StackAdj> Δ+2 {}
<Blob 0x2083f [2] @> Δ-2 {[«2""»]}
<Call 0x20844 0x104d2> {[«2""»]}
SetExpInitDone(a : Byte)
<POP 2084a-2084c StackAdj> Δ+2 {}
<Call 0x2084c 0x20342> {}
<MI 20850 MOVE.B #0x2a,0x20e35> {}
<MI 20858 MOVE.B #0x05,0x20e36> {}
<MI 20860 MOVE.B #0x02,0x20e37> {}
<MI 20866 MOVEQ.L #0x03,D0> {}
<POP 20868-20888 Naked> Σ0 ↓ →0x20868 ←0x20868
<MI 20868 MOVE.L D0,0x20e3e> {}
<POP 0x2086e LimitCheck 0x0 ≤ D0 ≤ 0x7> {}
<MI 20874 LEA.L 0x20da4,A0> {}
<MI 2087a LEA.L (A0+D0.L),A0> {}
<MI 2087e CLR.B (A0+0x91)> {}
<MI 20882 ADDQ.L #0x1,D0> {}
<MI 20884 CMP.L #0x07,D0> {}
<MI 20886 BLE 0x20868> {}
<POP 20888-208ba Naked> Σ0 ↓ →0x20b68
<Const 0x20888 0x5.4> Δ-4 {[##5]}
<Const 0x2088c 0x0.4> Δ-4 {[##5]|[##0]}
<Const 0x20890 0x20e10.4> Δ-4 {[##5]|[##0]|[##134672]}
<Call 0x20896 0x205da> {[##5]|[##0]|[##134672]}
<POP 2089a-2089c StackAdj> Δ+12 {}
<Const 0x2089c 0x5.4> Δ-4 {[##5]}
<Const 0x208a0 0x0.4> Δ-4 {[##5]|[##0]}
<Const 0x208a4 0x20e14.4> Δ-4 {[##5]|[##0]|[##134676]}
<Call 0x208a6 0x2065c> {[##5]|[##0]|[##134676]}
<POP 208aa-208ac StackAdj> Δ+12 {}
<MI 208ac MOVE.L 0x20e10,D0> {}
<MI 208b2 SUBQ.L #0x1,D0> {}
<MI 208b4 CMP.L #0x06,D0> {}
<MI 208b6 BHI 0x20b68> {}
<POP 208ba-208c4 Naked> Σ0 →0x208d2 →0x208e6 →0x209a2 →0x209a2 →0x20a46 →0x20ac8 →0x20b02
<MI 208ba ADD.W D0,D0> {}
<MI 208bc SWITCH D0.W> {}
<POP 208d2-208e6 Naked> Σ0 Δ-10 →0x20b78 ←0x208ba
<Const 0x208d2 0xa.2> Δ-2 {[#10]}
<Blob 0x208d4 [8] @> Δ-8 {[#10]|[«8""»]}
<MI 208e2 BRA 0x20b78> {[#10]|[«8""»]}
<POP 208e6-208f0 Naked> Σ0 ↓ →0x2098a ←0x208ba
<MI 208e6 MOVE.L 0x20e14,D0> {}
<MI 208e8 SUBQ.L #0x1,D0> {}
<MI 208ea CMP.L #0x09,D0> {}
<MI 208ec BHI 0x2098a> {}
<POP 208f0-208fa Naked> Σ0 →0x20952 →0x20964 →0x20978 →0x2098a →0x2098a →0x2098a →0x2098a →0x2090e →0x20926 →0x2093a
<MI 208f0 ADD.W D0,D0> {}
<MI 208f2 SWITCH D0.W> {}
<POP 2090e-20926 Naked> Σ0 Δ-10 →0x2099a ←0x208f0
<Const 0x2090e 0xe.2> Δ-2 {[#14]}
<Blob 0x20912 [8] @> Δ-8 {[#14]|[«8""»]}
<MI 20924 BRA 0x2099a> {[#14]|[«8""»]}
<POP 20926-2093a Naked> Σ0 Δ-10 →0x2099a ←0x208f0
<Const 0x20926 0x10.2> Δ-2 {[#16]}
<Blob 0x2092a [8] @> Δ-8 {[#16]|[«8""»]}
<MI 20938 BRA 0x2099a> {[#16]|[«8""»]}
<POP 2093a-20952 Naked> Σ0 Δ-10 →0x2099a ←0x208f0
<Const 0x2093a 0xf.2> Δ-2 {[#15]}
<Blob 0x2093e [8] @> Δ-8 {[#15]|[«8""»]}
<MI 20950 BRA 0x2099a> {[#15]|[«8""»]}
<POP 20952-20964 Naked> Σ0 Δ-10 →0x2099a ←0x208f0
<Const 0x20952 0x9.2> Δ-2 {[#9]}
<Blob 0x20954 [8] @> Δ-8 {[#9]|[«8""»]}
<MI 20962 BRA 0x2099a> {[#9]|[«8""»]}
<POP 20964-20978 Naked> Σ0 Δ-10 →0x2099a ←0x208f0
<Const 0x20964 0xd.2> Δ-2 {[#13]}
<Blob 0x20968 [8] @> Δ-8 {[#13]|[«8""»]}
<MI 20976 BRA 0x2099a> {[#13]|[«8""»]}
<POP 20978-2098a Naked> Σ0 Δ-10 →0x2099a ←0x208f0
<MI 20978 CLR.B -(A7)> Δ-2 {[#0]}
<Blob 0x2097a [8] @> Δ-8 {[#0]|[«8""»]}
<MI 20988 BRA 0x2099a> {[#0]|[«8""»]}
<POP 2098a-2099a Naked> Σ0 Δ-10 ↓ ←0x208e6 ←0x208f0 ←0x208f0 ←0x208f0 ←0x208f0
<Const 0x2098a 0x4.2> Δ-2 {[#4]}
<Blob 0x2098c [8] @> Δ-8 {[#4]|[«8""»]}
<POP 2099a-209a2 Naked> Σ-10 Δ+10 →0x20b7c ←0x2090e ←0x20926 ←0x2093a ←0x20952 ←0x20964 ←0x20978
<Call 0x2099a 0x2052c> {[-10-]}
<POP 2099c-2099e StackAdj> Δ+10 {}
<MI 2099e BRA 0x20b7c> {}
<POP 209a2-209ac Naked> Σ0 ↓ →0x20a2e ←0x208ba ←0x208ba
<MI 209a2 MOVE.L 0x20e14,D0> {}
<MI 209a4 SUBQ.L #0x1,D0> {}
<MI 209a6 CMP.L #0x06,D0> {}
<MI 209a8 BHI 0x20a2e> {}
<POP 209ac-209b6 Naked> Σ0 →0x209c4 →0x20a2e →0x209f6 →0x20a0a →0x20a2e →0x20a2e →0x20a1c
<MI 209ac ADD.W D0,D0> {}
<MI 209ae SWITCH D0.W> {}
<POP 209c4-209de Naked> Σ0 ↓ →0x209f4 ←0x209ac
<Const 0x209c4 0x20e34.4> Δ-4 {[##134708]}
<Const 0x209ca 0x20dff.4> Δ-4 {[##134708]|[##134655]}
<Call 0x209d0 0x206de> {[##134708]|[##134655]}
<POP 209d4-209d6 StackAdj> Δ+8 {}
<MI 209d6 TST.B 0x20e34> {}
<MI 209dc BEQ 0x209f4> {}
<POP 209de-209f4 Naked> Σ0 ↓
<Const 0x209de 0x3.2> Δ-2 {[#3]}
<Blob 0x209e2 [8] @> Δ-8 {[#3]|[«8""»]}
<Call 0x209f0 0x2052c> {[#3]|[«8""»]}
<POP 209f2-209f4 StackAdj> Δ+10 {}
<POP 209f4-209f6 Naked> Σ0 →0x20a42 ←0x209c4
<MI 209f4 BRA 0x20a42> {}
<POP 209f6-20a0a Naked> Σ0 Δ-10 →0x20a3e ←0x209ac
<Const 0x209f6 0x1.2> Δ-2 {[#1]}
<Blob 0x209fa [8] @> Δ-8 {[#1]|[«8""»]}
<MI 20a08 BRA 0x20a3e> {[#1]|[«8""»]}
<POP 20a0a-20a1c Naked> Σ0 Δ-10 →0x20a3e ←0x209ac
<Const 0x20a0a 0x6.2> Δ-2 {[#6]}
<Blob 0x20a0c [8] @> Δ-8 {[#6]|[«8""»]}
<MI 20a1a BRA 0x20a3e> {[#6]|[«8""»]}
<POP 20a1c-20a2e Naked> Σ0 Δ-10 →0x20a3e ←0x209ac
<Const 0x20a1c 0x2.2> Δ-2 {[#2]}
<Blob 0x20a1e [8] @> Δ-8 {[#2]|[«8""»]}
<MI 20a2c BRA 0x20a3e> {[#2]|[«8""»]}
<POP 20a2e-20a3e Naked> Σ0 Δ-10 ↓ ←0x209a2 ←0x209ac ←0x209ac ←0x209ac
<Const 0x20a2e 0x4.2> Δ-2 {[#4]}
<Blob 0x20a30 [8] @> Δ-8 {[#4]|[«8""»]}
<POP 20a3e-20a42 Naked> Σ-10 Δ+10 ↓ ←0x209f6 ←0x20a0a ←0x20a1c
<Call 0x20a3e 0x2052c> {[-10-]}
<POP 20a40-20a42 StackAdj> Δ+10 {}
<POP 20a42-20a46 Naked> Σ0 →0x20b7c ←0x209f4
<MI 20a42 BRA 0x20b7c> {}
<POP 20a46-20a4e Naked> Σ0 ↓ →0x20ab0 ←0x208ba
<MI 20a46 MOVE.L 0x20e14,D0> {}
<MI 20a48 SUBQ.L #0x1,D0> {}
<MI 20a4a CMP.L #0x06,D0> {}
<MI 20a4c BHI 0x20ab0> {}
<POP 20a4e-20a58 Naked> Σ0 →0x20a66 →0x20a7a →0x20ab0 →0x20a8c →0x20ab0 →0x20ab0 →0x20a9e
<MI 20a4e ADD.W D0,D0> {}
<MI 20a50 SWITCH D0.W> {}
<POP 20a66-20a7a Naked> Σ0 Δ-10 →0x20ac0 ←0x20a4e
<Const 0x20a66 0x8.2> Δ-2 {[#8]}
<Blob 0x20a6a [8] @> Δ-8 {[#8]|[«8""»]}
<MI 20a78 BRA 0x20ac0> {[#8]|[«8""»]}
<POP 20a7a-20a8c Naked> Σ0 Δ-10 →0x20ac0 ←0x20a4e
<Const 0x20a7a 0xc.2> Δ-2 {[#12]}
<Blob 0x20a7c [8] @> Δ-8 {[#12]|[«8""»]}
<MI 20a8a BRA 0x20ac0> {[#12]|[«8""»]}
<POP 20a8c-20a9e Naked> Σ0 Δ-10 →0x20ac0 ←0x20a4e
<Const 0x20a8c 0x7.2> Δ-2 {[#7]}
<Blob 0x20a8e [8] @> Δ-8 {[#7]|[«8""»]}
<MI 20a9c BRA 0x20ac0> {[#7]|[«8""»]}
<POP 20a9e-20ab0 Naked> Σ0 Δ-10 →0x20ac0 ←0x20a4e
<Const 0x20a9e 0x2.2> Δ-2 {[#2]}
<Blob 0x20aa0 [8] @> Δ-8 {[#2]|[«8""»]}
<MI 20aae BRA 0x20ac0> {[#2]|[«8""»]}
<POP 20ab0-20ac0 Naked> Σ0 Δ-10 ↓ ←0x20a46 ←0x20a4e ←0x20a4e ←0x20a4e
<Const 0x20ab0 0x4.2> Δ-2 {[#4]}
<Blob 0x20ab2 [8] @> Δ-8 {[#4]|[«8""»]}
<POP 20ac0-20ac8 Naked> Σ-10 Δ+10 →0x20b7c ←0x20a66 ←0x20a7a ←0x20a8c ←0x20a9e
<Call 0x20ac0 0x2052c> {[-10-]}
<POP 20ac2-20ac4 StackAdj> Δ+10 {}
<MI 20ac4 BRA 0x20b7c> {}
<POP 20ac8-20ace Naked> Σ0 ↓ →0x20aec ←0x208ba
<MI 20ac8 MOVE.L 0x20e14,D0> {}
<MI 20aca SUBQ.L #0x5,D0> {}
<MI 20acc BNE 0x20aec> {}
<POP 20ace-20ad6 Naked> Σ0 →0x20ad8
<MI 20ace SWITCH D0.W> {}
<POP 20ad8-20aec Naked> Σ0 Δ-10 →0x20afc ←0x20ace
<Const 0x20ad8 0x5.2> Δ-2 {[#5]}
<Blob 0x20adc [8] @> Δ-8 {[#5]|[«8""»]}
<MI 20aea BRA 0x20afc> {[#5]|[«8""»]}
<POP 20aec-20afc Naked> Σ0 Δ-10 ↓ ←0x20ac8
<Const 0x20aec 0x4.2> Δ-2 {[#4]}
<Blob 0x20aee [8] @> Δ-8 {[#4]|[«8""»]}
<POP 20afc-20b02 Naked> Σ-10 Δ+10 →0x20b7c ←0x20ad8
<Call 0x20afc 0x2052c> {[-10-]}
<POP 20afe-20b00 StackAdj> Δ+10 {}
<MI 20b00 BRA 0x20b7c> {}
<POP 20b02-20b0a Naked> Σ0 ↓ →0x20b52 ←0x208ba
<MI 20b02 MOVE.L 0x20e14,D0> {}
<MI 20b04 SUBQ.L #0x1,D0> {}
<MI 20b06 CMP.L #0x02,D0> {}
<MI 20b08 BHI 0x20b52> {}
<POP 20b0a-20b14 Naked> Σ0 →0x20b1a →0x20b2c →0x20b40
<MI 20b0a ADD.W D0,D0> {}
<MI 20b0c SWITCH D0.W> {}
<POP 20b1a-20b2c Naked> Σ0 Δ-10 →0x20b62 ←0x20b0a
<Const 0x20b1a 0x9.2> Δ-2 {[#9]}
<Blob 0x20b1c [8] @> Δ-8 {[#9]|[«8""»]}
<MI 20b2a BRA 0x20b62> {[#9]|[«8""»]}
<POP 20b2c-20b40 Naked> Σ0 Δ-10 →0x20b62 ←0x20b0a
<Const 0x20b2c 0xd.2> Δ-2 {[#13]}
<Blob 0x20b30 [8] @> Δ-8 {[#13]|[«8""»]}
<MI 20b3e BRA 0x20b62> {[#13]|[«8""»]}
<POP 20b40-20b52 Naked> Σ0 Δ-10 →0x20b62 ←0x20b0a
<MI 20b40 CLR.B -(A7)> Δ-2 {[#0]}
<Blob 0x20b42 [8] @> Δ-8 {[#0]|[«8""»]}
<MI 20b50 BRA 0x20b62> {[#0]|[«8""»]}
<POP 20b52-20b62 Naked> Σ0 Δ-10 ↓ ←0x20b02
<Const 0x20b52 0x4.2> Δ-2 {[#4]}
<Blob 0x20b54 [8] @> Δ-8 {[#4]|[«8""»]}
<POP 20b62-20b68 Naked> Σ-10 Δ+10 →0x20b7c ←0x20b1a ←0x20b2c ←0x20b40
<Call 0x20b62 0x2052c> {[-10-]}
<POP 20b64-20b66 StackAdj> Δ+10 {}
<MI 20b66 BRA 0x20b7c> {}
<POP 20b68-20b78 Naked> Σ0 Δ-10 ↓ ←0x20888
<Const 0x20b68 0x4.2> Δ-2 {[#4]}
<Blob 0x20b6a [8] @> Δ-8 {[#4]|[«8""»]}
<POP 20b78-20b7c Naked> Σ-10 Δ+10 ↓ ←0x208d2
<Call 0x20b78 0x2052c> {[-10-]}
<POP 20b7a-20b7c StackAdj> Δ+10 {}
<POP 20b7c-20b82 Naked> Σ0 ←0x2099a ←0x20a42 ←0x20ac0 ←0x20afc ←0x20b62
<Call 0x20b7c 0x10284> {}
?exit
@ 20cb2
<LVAR 0x00a 1(r)>
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 4(r)>
<POP 20cb2-20d5c Body> Δ+12
<POP 20cb2-20cc8 Prologue> Σ0 ↓
<POP 20cc8-20cce RegCacheLoad> Σ0 ↓
<POP 20cce-20cda Naked> Σ0 ↓ →0x20cec
<POP 20cce-20cd0 StackAdj> Δ-2 {[-2-]}
<Call 0x20cd0 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 20cd6 TST.B (A7)+> Δ+2 {}
<MI 20cd8 BEQ 0x20cec> {}
<POP 20cda-20cec Naked> Σ0 Δ-12 →0x20cfc
<Blob 0x20cda [12] @> Δ-12 {[«12""»]}
<MI 20cea BRA 0x20cfc> {[«12""»]}
<POP 20cec-20cfc Naked> Σ0 Δ-12 ↓ ←0x20cce
<Blob 0x20cec [12] @> Δ-12 {[«12""»]}
<POP 20cfc-20d54 Naked> Σ-12 Δ+12 ↓ ←0x20cda
<POP 20cfc-20cfe StackAdj> Δ-4 {[-16-]}
<Lit 0x20cfe> {[-12-]|[$$…]}
<Pointer.sp 0x20cfe 4> Δ-4
<Const 0x20d02 0x1.2> Δ-2
<Const 0x20d06 0xb.2> Δ-2
<Call 0x20d0a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20d10-20d12 StackAdj> Δ+8
<Pointer.fp 0x20d12 <LVAR -0x004 @ 4(r)>> Δ-4 {[-12-]|[$$…]|[@@-4]}
<Call 0x20d14 0x10460> {[-12-]|[$$…]|[@@-4]}
ExpLoad(a : String; b: Pointer)
<POP 20d1a-20d1e StackAdj> Δ+20 {}
<MI 20d1e MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<MI 20d22 MOVE.L (A6-0x4),-(A7)> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']}
<Pointer.sp 0x20d24 4> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]}
<Const 0x20d28 0x0.4> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]}
<Const 0x20d2c 0x0.4> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
<Call 0x20d30 0x10466> {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
<POP 20d36-20d3a StackAdj> Δ+16 {[2, '(A6+0x8)']}
<MI 20d3a CLR.B (A7)> {[2, '(A6+0x8)']}
<MI 20d3c MOVE.B (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0x8)']|[2, '(A6+0xa)']}
<MI 20d40 MOVE.L (A6-0x4),-(A7)> Δ-4 {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
<Call 0x20d42 0x104ba> {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 20d48-20d4a StackAdj> Δ+8 {}
<Pointer.fp 0x20d4a <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x20d4c 0x10496> {[@@-4]}
ExpClose(exp : Pointer)
<POP 20d52-20d54 StackAdj> Δ+4 {}
<POP 20d54-20d5c Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.41005c25f19d8a22 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 07 f0 | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 0e 4c | L | .PTR 0x20e4c 00020010 code.end: 00020010 00 02 0d a4 | | .PTR 0x20da4 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 02 da | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 01 9e | | .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 40 28 |@( | .XXX[0x2] 00020178 23 29 50 32 55 45 43 43 |#)P2UECC| .XXX[0x20] 00020180 2c 32 2e 30 2c 38 39 2f |,2.0,89/| 00020188 31 30 2f 30 32 2c 31 37 |10/02,17| 00020190 3a 31 38 3a 31 39 5c 20 |:18:19\ | 00020198 50 32 |P2 | .TXT 'P2' 0002019a 55 45 |UE | .TXT 'UE' 0002019c 43 43 |CC | .TXT 'CC' 0002019e ; -------------------------------------------------------------------------------------- 0002019e ; OMSI PASCAL Function 0002019e ; <LVAR 0x00e 1(r)> 0002019e ; <LVAR 0x00a 4(r)> 0002019e ; <LVAR 0x008 1(r)> 0002019e ; -------------------------------------------------------------------------------------- 0002019e EXP_FAIL: 0002019e 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 000201a2 bf d5 | | CMPA.L (A5),A7 000201a4 62 06 |b | BHI 0x201ac 000201a6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000201aa 4e 76 |Nv | TRAPV 000201ac de fc 00 74 | t | ADDA.W #0x74,A7 000201b0 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 000201b4 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000201ba 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 000201c0 72 01 |r | MOVEQ.L #0x01,D1 000201c2 74 0d |t | MOVEQ.L #0x0d,D2 000201c4 76 1e |v | MOVEQ.L #0x1e,D3 000201c6 78 12 |x | MOVEQ.L #0x12,D4 000201c8 7a 0e |z | MOVEQ.L #0x0e,D5 000201ca 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000201d0 41 fa ff 74 |A t | LEA.L 0x20146,A0 000201d4 70 08 |p | MOVEQ.L #0x08,D0 000201d6 3f 20 |? | MOVE.W -(A0),-(A7) 000201d8 51 c8 ff fc |Q | DBF D0,0x201d6 000201dc 59 4f |YO | SUBQ.L #0x4,A7 000201de 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000201e2 3f 01 |? | MOVE.W D1,-(A7) 000201e4 3f 04 |? | MOVE.W D4,-(A7) 000201e6 4e 93 |N | JSR (A3) 000201e8 50 4f |PO | ADDQ.L #0x8,A7 000201ea 4e 94 |N | JSR (A4) 000201ec 50 4f |PO | ADDQ.L #0x8,A7 000201ee 20 4f | O | MOVEA.L A7,A0 000201f0 43 fa ff 18 |C | LEA.L 0x2010a,A1 000201f4 70 0c |p | MOVEQ.L #0x0c,D0 000201f6 10 d9 | | MOVE.B (A1)+,(A0)+ 000201f8 51 c8 ff fc |Q | DBF D0,0x201f6 000201fc 51 4f |QO | SUBQ.L #0x8,A7 000201fe 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020202 3f 01 |? | MOVE.W D1,-(A7) 00020204 3f 02 |? | MOVE.W D2,-(A7) 00020206 4e 93 |N | JSR (A3) 00020208 54 4f |TO | ADDQ.L #0x2,A7 0002020a 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 0002020e 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00020214 54 4f |TO | ADDQ.L #0x2,A7 00020216 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002021c 50 4f |PO | ADDQ.L #0x8,A7 0002021e 4e 94 |N | JSR (A4) 00020220 de c4 | | ADDA.W D4,A7 00020222 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00020226 b0 c1 | | CMPA.W D1,A0 00020228 67 48 |gH | BEQ 0x20272 0002022a 9e c5 | | SUBA.W D5,A7 0002022c 22 4f |"O | MOVEA.L A7,A1 0002022e 45 fa fe e8 |E | LEA.L 0x20118,A2 00020232 70 0c |p | MOVEQ.L #0x0c,D0 00020234 12 da | | MOVE.B (A2)+,(A1)+ 00020236 51 c8 ff fc |Q | DBF D0,0x20234 0002023a 9e c3 | | SUBA.W D3,A7 0002023c 22 4f |"O | MOVEA.L A7,A1 0002023e 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00020242 70 1d |p | MOVEQ.L #0x1d,D0 00020244 12 d8 | | MOVE.B (A0)+,(A1)+ 00020246 51 c8 ff fc |Q | DBF D0,0x20244 0002024a 51 4f |QO | SUBQ.L #0x8,A7 0002024c 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020250 3f 01 |? | MOVE.W D1,-(A7) 00020252 3f 02 |? | MOVE.W D2,-(A7) 00020254 4e 93 |N | JSR (A3) 00020256 58 4f |XO | ADDQ.L #0x4,A7 00020258 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002025c 3f 01 |? | MOVE.W D1,-(A7) 0002025e 3f 03 |? | MOVE.W D3,-(A7) 00020260 4e 93 |N | JSR (A3) 00020262 50 4f |PO | ADDQ.L #0x8,A7 00020264 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002026a 50 4f |PO | ADDQ.L #0x8,A7 0002026c 4e 94 |N | JSR (A4) 0002026e de fc 00 30 | 0 | ADDA.W #0x30,A7 00020272 9e c5 | | SUBA.W D5,A7 00020274 20 4f | O | MOVEA.L A7,A0 00020276 43 fa fe ae |C | LEA.L 0x20126,A1 0002027a 70 0c |p | MOVEQ.L #0x0c,D0 0002027c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002027e 51 c8 ff fc |Q | DBF D0,0x2027c 00020282 51 4f |QO | SUBQ.L #0x8,A7 00020284 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020288 3f 01 |? | MOVE.W D1,-(A7) 0002028a 3f 02 |? | MOVE.W D2,-(A7) 0002028c 4e 93 |N | JSR (A3) 0002028e 54 4f |TO | ADDQ.L #0x2,A7 00020290 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00020294 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 0002029a 54 4f |TO | ADDQ.L #0x2,A7 0002029c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000202a2 50 4f |PO | ADDQ.L #0x8,A7 000202a4 4e 94 |N | JSR (A4) 000202a6 5d 4f |]O | SUBQ.L #0x6,A7 000202a8 20 4f | O | MOVEA.L A7,A0 000202aa 43 fa fe 9a |C | LEA.L 0x20146,A1 000202ae 70 16 |p | MOVEQ.L #0x16,D0 000202b0 10 d9 | | MOVE.B (A1)+,(A0)+ 000202b2 51 c8 ff fc |Q | DBF D0,0x202b0 000202b6 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000202ba 59 4f |YO | SUBQ.L #0x4,A7 000202bc 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000202c0 3f 01 |? | MOVE.W D1,-(A7) 000202c2 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000202c6 4e 93 |N | JSR (A3) 000202c8 50 4f |PO | ADDQ.L #0x8,A7 000202ca 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000202d0 de c3 | | ADDA.W D3,A7 000202d2 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 000202d6 4e 5e |N^ | UNLK A6 000202d8 4e 75 |Nu | RTS 000202da ; -------------------------------------------------------------------------------------- 000202da ; OMSI PASCAL Function 000202da ; <LVAR 0x008 1(r)> 000202da ; -------------------------------------------------------------------------------------- 000202da PROG_FAIL: 000202da 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 000202de bf d5 | | CMPA.L (A5),A7 000202e0 62 06 |b | BHI 0x202e8 000202e2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000202e6 4e 76 |Nv | TRAPV 000202e8 de fc 00 2c | , | ADDA.W #0x2c,A7 000202ec 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000202f0 41 fa fe 7a |A z | LEA.L 0x2016c,A0 000202f4 70 06 |p | MOVEQ.L #0x06,D0 000202f6 3f 20 |? | MOVE.W -(A0),-(A7) 000202f8 51 c8 ff fc |Q | DBF D0,0x202f6 000202fc 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00020300 51 4f |QO | SUBQ.L #0x8,A7 00020302 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020306 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002030a 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 0002030e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020314 58 4f |XO | ADDQ.L #0x4,A7 00020316 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 0002031a 48 80 |H | EXTB.W D0 0002031c 48 c0 |H | EXTW.L D0 0002031e 2f 00 |/ | MOVE.L D0,-(A7) 00020320 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020326 58 4f |XO | ADDQ.L #0x4,A7 00020328 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002032e 50 4f |PO | ADDQ.L #0x8,A7 00020330 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020336 de fc 00 14 | | ADDA.W #0x14,A7 0002033a 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 0002033e 4e 5e |N^ | UNLK A6 00020340 4e 75 |Nu | RTS 00020342 ; -------------------------------------------------------------------------------------- 00020342 ; OMSI PASCAL Function 00020342 ; -------------------------------------------------------------------------------------- 00020342 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00020346 bf d5 | | CMPA.L (A5),A7 00020348 62 06 |b | BHI 0x20350 0002034a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002034e 4e 76 |Nv | TRAPV 00020350 de fc 00 20 | | ADDA.W #0x20,A7 00020354 48 e7 e1 c0 |H | MOVEM.L A1+A0+D7+D2+D1+D0,-(A7) 00020358 43 f9 00 02 0d a4 |C | LEA.L 0x20da4,A1 0002035e 70 07 |p | MOVEQ.L #0x07,D0 00020360 72 02 |r | MOVEQ.L #0x02,D1 00020362 74 01 |t | MOVEQ.L #0x01,D2 00020364 48 79 00 02 0d b2 |Hy | PEA.L 0x20db2 0002036a 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020370 58 4f |XO | ADDQ.L #0x4,A7 00020372 13 c1 00 02 0d cf | | MOVE.B D1,0x20dcf 00020378 7e 01 |~ | MOVEQ.L #0x01,D7 0002037a be 80 | | CMP.L D0,D7 0002037c 63 02 |c | BLS 0x20380 0002037e 4e 4f |NO | TRAP #15 00020380 20 49 | I | MOVEA.L A1,A0 00020382 42 30 78 2b |B0x+ | CLR.B (A0+D7.L+#0x2b) 00020386 52 87 |R | ADDQ.L #0x1,D7 00020388 be 80 | | CMP.L D0,D7 0002038a 6f ee |o | BLE 0x2037a 0002038c 13 c2 00 02 0d d7 | | MOVE.B D2,0x20dd7 00020392 7e 01 |~ | MOVEQ.L #0x01,D7 00020394 be 80 | | CMP.L D0,D7 00020396 63 02 |c | BLS 0x2039a 00020398 4e 4f |NO | TRAP #15 0002039a 20 49 | I | MOVEA.L A1,A0 0002039c 42 30 78 33 |B0x3 | CLR.B (A0+D7.L+#0x33) 000203a0 52 87 |R | ADDQ.L #0x1,D7 000203a2 be 80 | | CMP.L D0,D7 000203a4 6f ee |o | BLE 0x20394 000203a6 13 c1 00 02 0d df | | MOVE.B D1,0x20ddf 000203ac 13 c2 00 02 0d e0 | | MOVE.B D2,0x20de0 000203b2 7e 02 |~ | MOVEQ.L #0x02,D7 000203b4 be 80 | | CMP.L D0,D7 000203b6 63 02 |c | BLS 0x203ba 000203b8 4e 4f |NO | TRAP #15 000203ba 20 49 | I | MOVEA.L A1,A0 000203bc 42 30 78 3b |B0x; | CLR.B (A0+D7.L+#0x3b) 000203c0 52 87 |R | ADDQ.L #0x1,D7 000203c2 be 80 | | CMP.L D0,D7 000203c4 6f ee |o | BLE 0x203b4 000203c6 13 c2 00 02 0d e7 | | MOVE.B D2,0x20de7 000203cc 13 c1 00 02 0d e8 | | MOVE.B D1,0x20de8 000203d2 7e 02 |~ | MOVEQ.L #0x02,D7 000203d4 be 80 | | CMP.L D0,D7 000203d6 63 02 |c | BLS 0x203da 000203d8 4e 4f |NO | TRAP #15 000203da 20 49 | I | MOVEA.L A1,A0 000203dc 42 30 78 43 |B0xC | CLR.B (A0+D7.L+#0x43) 000203e0 52 87 |R | ADDQ.L #0x1,D7 000203e2 be 80 | | CMP.L D0,D7 000203e4 6f ee |o | BLE 0x203d4 000203e6 13 fc 00 2a 00 02 0d ef | * | MOVE.B #0x2a,0x20def 000203ee 13 c1 00 02 0d f0 | | MOVE.B D1,0x20df0 000203f4 13 c2 00 02 0d f1 | | MOVE.B D2,0x20df1 000203fa 7e 03 |~ | MOVEQ.L #0x03,D7 000203fc be 80 | | CMP.L D0,D7 000203fe 63 02 |c | BLS 0x20402 00020400 4e 4f |NO | TRAP #15 00020402 20 49 | I | MOVEA.L A1,A0 00020404 42 30 78 4b |B0xK | CLR.B (A0+D7.L+#0x4b) 00020408 52 87 |R | ADDQ.L #0x1,D7 0002040a be 80 | | CMP.L D0,D7 0002040c 6f ee |o | BLE 0x203fc 0002040e 7e 00 |~ | MOVEQ.L #0x00,D7 00020410 be 80 | | CMP.L D0,D7 00020412 63 02 |c | BLS 0x20416 00020414 4e 4f |NO | TRAP #15 00020416 20 49 | I | MOVEA.L A1,A0 00020418 42 30 78 53 |B0xS | CLR.B (A0+D7.L+#0x53) 0002041c 52 87 |R | ADDQ.L #0x1,D7 0002041e be 80 | | CMP.L D0,D7 00020420 6f ee |o | BLE 0x20410 00020422 4c df 03 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1 00020426 4e 5e |N^ | UNLK A6 00020428 4e 75 |Nu | RTS 0002042a ; -------------------------------------------------------------------------------------- 0002042a ; OMSI PASCAL Function 0002042a ; <LVAR 0x00c 1(r)> 0002042a ; <LVAR 0x008 4(r)> 0002042a ; <LVAR -0x002 @> 0002042a ; -------------------------------------------------------------------------------------- 0002042a 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 0002042e bf d5 | | CMPA.L (A5),A7 00020430 62 06 |b | BHI 0x20438 00020432 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020436 4e 76 |Nv | TRAPV 00020438 de fc 00 28 | ( | ADDA.W #0x28,A7 0002043c 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020440 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020446 1f 2e 00 0c | . | MOVE.B (A6+0xc),-(A7) 0002044a 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00020450 54 4f |TO | ADDQ.L #0x2,A7 00020452 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 00020458 9e fc 00 0a | | SUBA.W #0xa,A7 0002045c 20 4f | O | MOVEA.L A7,A0 0002045e 43 fa fd 0c |C | LEA.L 0x2016c,A1 00020462 70 08 |p | MOVEQ.L #0x08,D0 00020464 10 d9 | | MOVE.B (A1)+,(A0)+ 00020466 51 c8 ff fc |Q | DBF D0,0x20464 0002046a 59 4f |YO | SUBQ.L #0x4,A7 0002046c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020470 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020474 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00020478 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002047e 50 4f |PO | ADDQ.L #0x8,A7 00020480 48 78 00 01 |Hx | PEA.L 0x1 00020484 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020488 48 6e ff fe |Hn | PEA.L (A6-0x2) 0002048c 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00020492 de fc 00 18 | | ADDA.W #0x18,A7 00020496 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 0002049c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000204a0 48 50 |HP | PEA.L (A0) 000204a2 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 000204a8 58 4f |XO | ADDQ.L #0x4,A7 000204aa 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 000204b0 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000204b4 4e 5e |N^ | UNLK A6 000204b6 4e 75 |Nu | RTS 000204b8 ; -------------------------------------------------------------------------------------- 000204b8 ; OMSI PASCAL Function 000204b8 ; <LVAR 0x008 4(r)> 000204b8 ; -------------------------------------------------------------------------------------- 000204b8 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 ; Spelunked 000204bc bf d5 | | CMPA.L (A5),A7 000204be 62 06 |b | BHI 0x204c6 000204c0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000204c4 4e 76 |Nv | TRAPV 000204c6 de fc 00 0c | | ADDA.W #0xc,A7 000204ca 48 e7 00 80 |H | MOVEM.L A0,-(A7) 000204ce 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000204d4 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000204d8 48 50 |HP | PEA.L (A0) 000204da 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 000204e0 58 4f |XO | ADDQ.L #0x4,A7 000204e2 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 000204e8 4c df 01 00 |L | MOVEM.L (A7)+,A0 000204ec 4e 5e |N^ | UNLK A6 000204ee 4e 75 |Nu | RTS 000204f0 ; -------------------------------------------------------------------------------------- 000204f0 ; OMSI PASCAL Function 000204f0 ; <LVAR 0x008 1(r)> 000204f0 ; -------------------------------------------------------------------------------------- 000204f0 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 ; Spelunked 000204f4 bf d5 | | CMPA.L (A5),A7 000204f6 62 06 |b | BHI 0x204fe 000204f8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000204fc 4e 76 |Nv | TRAPV 000204fe de fc 00 0a | | ADDA.W #0xa,A7 00020502 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020508 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 0002050c 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00020512 54 4f |TO | ADDQ.L #0x2,A7 00020514 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 0002051a 42 27 |B' | CLR.B -(A7) 0002051c 48 78 00 01 |Hx | PEA.L 0x1 00020520 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020526 5c 4f |\O | ADDQ.L #0x6,A7 00020528 4e 5e |N^ | UNLK A6 0002052a 4e 75 |Nu | RTS 0002052c ; -------------------------------------------------------------------------------------- 0002052c ; OMSI PASCAL Function 0002052c ; <LVAR 0x010 1(r)> 0002052c ; <LVAR 0x00c 4(r)> 0002052c ; <LVAR 0x008 4(r)> 0002052c ; -------------------------------------------------------------------------------------- 0002052c 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00020530 bf d5 | | CMPA.L (A5),A7 00020532 62 06 |b | BHI 0x2053a 00020534 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020538 4e 76 |Nv | TRAPV 0002053a de fc 00 22 | " | ADDA.W #0x22,A7 0002053e 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00020542 41 f9 00 02 0e 0a |A | LEA.L 0x20e0a,A0 00020548 10 ae 00 10 | | MOVE.B (A6+0x10),(A0) 0002054c 3f 3a fc 4e |?: N | MOVE.W 0x2019c,-(A7) 00020550 3f 3a fc 48 |?: H | MOVE.W 0x2019a,-(A7) 00020554 3f 3a fc 42 |?: B | MOVE.W 0x20198,-(A7) 00020558 42 27 |B' | CLR.B -(A7) 0002055a 59 4f |YO | SUBQ.L #0x4,A7 0002055c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020560 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020564 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00020568 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002056e 58 4f |XO | ADDQ.L #0x4,A7 00020570 2e b9 00 02 0d b2 |. | MOVE.L 0x20db2,(A7) 00020576 1f 10 | | MOVE.B (A0),-(A7) 00020578 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002057c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020580 4e b9 00 01 05 4a |N J | JSR ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long) 00020586 de fc 00 1a | | ADDA.W #0x1a,A7 0002058a 4c df 01 00 |L | MOVEM.L (A7)+,A0 0002058e 4e 5e |N^ | UNLK A6 00020590 4e 75 |Nu | RTS 00020592 ; -------------------------------------------------------------------------------------- 00020592 ; OMSI PASCAL Function 00020592 ; <LVAR 0x010 4(r)> 00020592 ; <LVAR 0x00c 4(r)> 00020592 ; <LVAR 0x008 4(r)> 00020592 ; -------------------------------------------------------------------------------------- 00020592 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00020596 bf d5 | | CMPA.L (A5),A7 00020598 62 06 |b | BHI 0x205a0 0002059a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002059e 4e 76 |Nv | TRAPV 000205a0 de fc 00 14 | | ADDA.W #0x14,A7 000205a4 48 e7 81 80 |H | MOVEM.L A0+D7+D0,-(A7) 000205a8 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 000205ac eb 80 | | ASL.L #0x5,D0 000205ae 80 ae 00 0c | | OR.L (A6+0xc),D0 000205b2 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000205b8 63 02 |c | BLS 0x205bc 000205ba 4e 4f |NO | TRAP #15 000205bc 3e 00 |> | MOVE.W D0,D7 000205be 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000205c2 30 07 |0 | MOVE.W D7,D0 000205c4 e0 48 | H | LSR.W #0x8,D0 000205c6 10 80 | | MOVE.B D0,(A0) 000205c8 30 07 |0 | MOVE.W D7,D0 000205ca 02 40 00 ff | @ | ANDI.W #0x00ff,D0 000205ce 11 40 00 01 | @ | MOVE.B D0,(A0+0x1) 000205d2 4c df 01 81 |L | MOVEM.L (A7)+,D0+D7+A0 000205d6 4e 5e |N^ | UNLK A6 000205d8 4e 75 |Nu | RTS 000205da ; -------------------------------------------------------------------------------------- 000205da ; OMSI PASCAL Function 000205da ; <LVAR 0x010 4(r)> 000205da ; <LVAR 0x00c 4(r)> 000205da ; <LVAR 0x008 4(r)> 000205da ; <LVAR -0x006 4(r)> 000205da ; <LVAR -0x00a @ 4(r)> 000205da ; <LVAR -0x00e 4(r)> 000205da ; <LVAR -0x012 @ 4(r)> 000205da ; <LVAR -0x014 @ 2(r)> 000205da ; -------------------------------------------------------------------------------------- 000205da 4e 56 ff cc |NV | LINK.W A6,#0xffcc 000205de bf d5 | | CMPA.L (A5),A7 000205e0 62 06 |b | BHI 0x205e8 000205e2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000205e6 4e 76 |Nv | TRAPV 000205e8 de fc 00 20 | | ADDA.W #0x20,A7 000205ec 48 e7 00 80 |H | MOVEM.L A0,-(A7) 000205f0 4e b9 00 02 0c 02 |N | JSR exp_PREP_READ_REG.TYP() 000205f6 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 000205fa 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000205fe 48 6e ff ec |Hn | PEA.L (A6-0x14) 00020602 4e ba ff 8e |N | JSR 0x20592 00020606 de fc 00 0a | | ADDA.W #0xa,A7 0002060a 3e ae ff ec |> | MOVE.W (A6-0x14),(A7) 0002060e 42 27 |B' | CLR.B -(A7) 00020610 48 6e ff ee |Hn | PEA.L (A6-0x12) 00020614 4e b9 00 02 0b e4 |N | JSR exp_READ_B_REG.TYP(Sw_2, Sw_1, &Sr_8) 0002061a 58 4f |XO | ADDQ.L #0x4,A7 0002061c 2e ae ff f2 |. | MOVE.L (A6-0xe),(A7) 00020620 2f 2e ff ee |/. | MOVE.L (A6-0x12),-(A7) 00020624 48 57 |HW | PEA.L (A7) 00020626 48 78 00 00 |Hx | PEA.L 0x0 0002062a 48 78 00 07 |Hx | PEA.L 0x7 0002062e 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00020632 4e b9 00 01 04 b4 |N | JSR ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q) 00020638 de fc 00 18 | | ADDA.W #0x18,A7 0002063c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020640 59 4f |YO | SUBQ.L #0x4,A7 00020642 2f 2e ff fa |/. | MOVE.L (A6-0x6),-(A7) 00020646 2f 2e ff f6 |/. | MOVE.L (A6-0xa),-(A7) 0002064a 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00020650 50 4f |PO | ADDQ.L #0x8,A7 00020652 20 9f | | MOVE.L (A7)+,(A0) 00020654 4c df 01 00 |L | MOVEM.L (A7)+,A0 00020658 4e 5e |N^ | UNLK A6 0002065a 4e 75 |Nu | RTS 0002065c ; -------------------------------------------------------------------------------------- 0002065c ; OMSI PASCAL Function 0002065c ; <LVAR 0x010 4(r)> 0002065c ; <LVAR 0x00c 4(r)> 0002065c ; <LVAR 0x008 4(r)> 0002065c ; <LVAR -0x006 4(r)> 0002065c ; <LVAR -0x00a @ 4(r)> 0002065c ; <LVAR -0x00e 4(r)> 0002065c ; <LVAR -0x012 @ 4(r)> 0002065c ; <LVAR -0x014 @ 2(r)> 0002065c ; -------------------------------------------------------------------------------------- 0002065c 4e 56 ff cc |NV | LINK.W A6,#0xffcc 00020660 bf d5 | | CMPA.L (A5),A7 00020662 62 06 |b | BHI 0x2066a 00020664 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020668 4e 76 |Nv | TRAPV 0002066a de fc 00 20 | | ADDA.W #0x20,A7 0002066e 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00020672 4e b9 00 02 0c 5e |N ^ | JSR exp_PREP_READ_REG.VAL() 00020678 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 0002067c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00020680 48 6e ff ec |Hn | PEA.L (A6-0x14) 00020684 4e ba ff 0c |N | JSR 0x20592 00020688 de fc 00 0a | | ADDA.W #0xa,A7 0002068c 3e ae ff ec |> | MOVE.W (A6-0x14),(A7) 00020690 42 27 |B' | CLR.B -(A7) 00020692 48 6e ff ee |Hn | PEA.L (A6-0x12) 00020696 4e b9 00 02 0c 40 |N @ | JSR exp_READ_B_REG.VAL(Sw_2, Sw_1, &Sr_8) 0002069c 58 4f |XO | ADDQ.L #0x4,A7 0002069e 2e ae ff f2 |. | MOVE.L (A6-0xe),(A7) 000206a2 2f 2e ff ee |/. | MOVE.L (A6-0x12),-(A7) 000206a6 48 57 |HW | PEA.L (A7) 000206a8 48 78 00 00 |Hx | PEA.L 0x0 000206ac 48 78 00 07 |Hx | PEA.L 0x7 000206b0 48 6e ff f6 |Hn | PEA.L (A6-0xa) 000206b4 4e b9 00 01 04 b4 |N | JSR ?FS104b4(VAR a: Long; b: L; MOD c: L; VAR d : Q) 000206ba de fc 00 18 | | ADDA.W #0x18,A7 000206be 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000206c2 59 4f |YO | SUBQ.L #0x4,A7 000206c4 2f 2e ff fa |/. | MOVE.L (A6-0x6),-(A7) 000206c8 2f 2e ff f6 |/. | MOVE.L (A6-0xa),-(A7) 000206cc 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000206d2 50 4f |PO | ADDQ.L #0x8,A7 000206d4 20 9f | | MOVE.L (A7)+,(A0) 000206d6 4c df 01 00 |L | MOVEM.L (A7)+,A0 000206da 4e 5e |N^ | UNLK A6 000206dc 4e 75 |Nu | RTS 000206de ; -------------------------------------------------------------------------------------- 000206de ; OMSI PASCAL Function 000206de ; <LVAR 0x00c 4(r)> 000206de ; <LVAR -0x004 @ 1(r)> 000206de ; <LVAR -0x006 @> 000206de ; <LVAR -0x00b @ 1(r)> 000206de ; <LVAR -0x00c @> 000206de ; -------------------------------------------------------------------------------------- 000206de 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 000206e2 bf d5 | | CMPA.L (A5),A7 000206e4 62 06 |b | BHI 0x206ec 000206e6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000206ea 4e 76 |Nv | TRAPV 000206ec de fc 00 2e | . | ADDA.W #0x2e,A7 000206f0 48 e7 f3 c0 |H | MOVEM.L A1+A0+D7+D6+D3+D2+D1+D0,-(A7) 000206f4 72 0a |r | MOVEQ.L #0x0a,D1 000206f6 74 01 |t | MOVEQ.L #0x01,D2 000206f8 36 3c a0 0c |6< | MOVE.W #0xa00c,D3 000206fc 10 39 00 02 0e 07 | 9 | MOVE.B 0x20e07,D0 00020702 48 80 |H | EXTB.W D0 00020704 41 82 |A | CHK.W D2,D0 00020706 1f 00 | | MOVE.B D0,-(A7) 00020708 48 79 00 02 0e 09 |Hy | PEA.L 0x20e09 0002070e 4e ba fd 1a |N | JSR 0x2042a 00020712 5c 4f |\O | ADDQ.L #0x6,A7 00020714 3f 03 |? | MOVE.W D3,-(A7) 00020716 42 27 |B' | CLR.B -(A7) 00020718 4e b9 00 02 0d 88 |N | JSR exp_LOAD_UIR.IOC(Sw_2, Sw_1) 0002071e 58 4f |XO | ADDQ.L #0x4,A7 00020720 4e b9 00 02 0c 7c |N | | JSR exp_FORCE_VAL_BUS.VAL() 00020726 4e b9 00 02 0c 20 |N | JSR exp_FORCE_TYPE_BUS.TYP() 0002072c 55 4f |UO | SUBQ.L #0x2,A7 0002072e 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 00020734 4a 1f |J | TST.B (A7)+ 00020736 67 06 |g | BEQ 0x2073e 00020738 1f 03 | | MOVE.B D3,-(A7) 0002073a 42 27 |B' | CLR.B -(A7) 0002073c 60 06 |` | BRA 0x20744 0002073e 1f 03 | | MOVE.B D3,-(A7) 00020740 1f 3c 00 ff | < | MOVE.B #0xff,-(A7) 00020744 4e b9 00 02 0c b2 |N | JSR 0x20cb2 0002074a 58 4f |XO | ADDQ.L #0x4,A7 0002074c 4e b9 00 02 0b c4 |N | JSR exp_INIT_CSTOP_WCS.SEQ() 00020752 42 67 |Bg | CLR.W -(A7) 00020754 4e b9 00 02 0b aa |N | JSR exp_PREP_RUN.SEQ(Sw_2) 0002075a 54 4f |TO | ADDQ.L #0x2,A7 0002075c 48 6e ff f5 |Hn | PEA.L (A6-0xb) 00020760 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00020764 4e b9 00 02 0b 82 |N | JSR exp_STEP_AND_FETCH_EVENT.SEQ(&Sr_2, &Sr_1) 0002076a 50 4f |PO | ADDQ.L #0x8,A7 0002076c 7c 00 || | MOVEQ.L #0x00,D6 0002076e 42 80 |B | CLR.L D0 00020770 10 2e ff f5 | . | MOVE.B (A6-0xb),D0 00020774 02 40 00 2f | @ / | ANDI.W #0x002f,D0 00020778 66 02 |f | BNE 0x2077c 0002077a 52 06 |R | ADDQ.B #0x1,D6 0002077c 42 27 |B' | CLR.B -(A7) 0002077e 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020782 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020786 4e b9 00 02 0d 5c |N \ | JSR exp_READ_ENABLES_AND_EVENTS.IOC(Sw_1, &Sr_2, &Sr_1) 0002078c de c1 | | ADDA.W D1,A7 0002078e 7e 00 |~ | MOVEQ.L #0x00,D7 00020790 42 80 |B | CLR.L D0 00020792 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00020796 02 40 00 08 | @ | ANDI.W #0x0008,D0 0002079a 67 02 |g | BEQ 0x2079e 0002079c 52 07 |R | ADDQ.B #0x1,D7 0002079e 4a 07 |J | TST.B D7 000207a0 67 20 |g | BEQ 0x207c2 000207a2 4a 06 |J | TST.B D6 000207a4 66 1c |f | BNE 0x207c2 000207a6 1f 3c 00 0b | < | MOVE.B #0x0b,-(A7) 000207aa 51 4f |QO | SUBQ.L #0x8,A7 000207ac 20 4f | O | MOVEA.L A7,A0 000207ae 43 f9 00 02 0e 35 |C 5 | LEA.L 0x20e35,A1 000207b4 70 07 |p | MOVEQ.L #0x07,D0 000207b6 10 d9 | | MOVE.B (A1)+,(A0)+ 000207b8 51 c8 ff fc |Q | DBF D0,0x207b6 000207bc 4e ba fd 6e |N n | JSR 0x2052c 000207c0 de c1 | | ADDA.W D1,A7 000207c2 4a 07 |J | TST.B D7 000207c4 66 1c |f | BNE 0x207e2 000207c6 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000207ca 51 4f |QO | SUBQ.L #0x8,A7 000207cc 20 4f | O | MOVEA.L A7,A0 000207ce 43 f9 00 02 0d cf |C | LEA.L 0x20dcf,A1 000207d4 70 07 |p | MOVEQ.L #0x07,D0 000207d6 10 d9 | | MOVE.B (A1)+,(A0)+ 000207d8 51 c8 ff fc |Q | DBF D0,0x207d6 000207dc 4e ba fd 4e |N N | JSR 0x2052c 000207e0 de c1 | | ADDA.W D1,A7 000207e2 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000207e6 10 82 | | MOVE.B D2,(A0) 000207e8 4c df 03 cf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D6+D7+A0+A1 000207ec 4e 5e |N^ | UNLK A6 000207ee 4e 75 |Nu | RTS 000207f0 ; -------------------------------------------------------------------------------------- 000207f0 ; OMSI PASCAL Function 000207f0 ; -------------------------------------------------------------------------------------- 000207f0 START: 000207f0 4f fa 00 08 |O | LEA.L MAIN,A7 000207f4 4e f9 00 01 02 80 |N | JMP ?start_program 000207fa MAIN: 000207fa 45 f9 00 02 0d cf |E | LEA.L 0x20dcf,A2 00020800 47 f9 00 02 0e 14 |G | LEA.L 0x20e14,A3 00020806 49 fa fd 24 |I $ | LEA.L 0x2052c,A4 0002080a 72 0a |r | MOVEQ.L #0x0a,D1 0002080c 74 04 |t | MOVEQ.L #0x04,D2 0002080e 76 02 |v | MOVEQ.L #0x02,D3 00020810 78 06 |x | MOVEQ.L #0x06,D4 00020812 7a 07 |z | MOVEQ.L #0x07,D5 00020814 7c 0c || | MOVEQ.L #0x0c,D6 00020816 7e 09 |~ | MOVEQ.L #0x09,D7 00020818 4e b9 00 01 03 98 |N | JSR FSCALL_10398 0002081e 48 79 00 02 0e 08 |Hy | PEA.L 0x20e08 00020824 48 79 00 02 0e 07 |Hy | PEA.L 0x20e07 0002082a 4e b9 00 01 05 44 |N D | JSR IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool) 00020830 50 4f |PO | ADDQ.L #0x8,A7 00020832 48 78 00 0f |Hx | PEA.L 0xf 00020836 4e b9 00 01 04 d8 |N | JSR ExpInit(a : Long) 0002083c 54 4f |TO | ADDQ.L #0x2,A7 0002083e 1e b9 00 02 0e 07 | | MOVE.B 0x20e07,(A7) 00020844 4e b9 00 01 04 d2 |N | JSR SetExpInitDone(a : Byte) 0002084a 54 4f |TO | ADDQ.L #0x2,A7 0002084c 4e ba fa f4 |N | JSR 0x20342 00020850 13 fc 00 2a 00 02 0e 35 | * 5| MOVE.B #0x2a,0x20e35 00020858 13 fc 00 05 00 02 0e 36 | 6| MOVE.B #0x05,0x20e36 00020860 13 c3 00 02 0e 37 | 7 | MOVE.B D3,0x20e37 00020866 70 03 |p | MOVEQ.L #0x03,D0 00020868 23 c0 00 02 0e 3e |# > | MOVE.L D0,0x20e3e 0002086e b0 85 | | CMP.L D5,D0 00020870 63 02 |c | BLS 0x20874 00020872 4e 4f |NO | TRAP #15 00020874 41 f9 00 02 0d a4 |A | LEA.L 0x20da4,A0 0002087a 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 0002087e 42 28 00 91 |B( | CLR.B (A0+0x91) 00020882 52 80 |R | ADDQ.L #0x1,D0 00020884 b0 85 | | CMP.L D5,D0 00020886 6f e0 |o | BLE 0x20868 00020888 48 78 00 05 |Hx | PEA.L 0x5 0002088c 48 78 00 00 |Hx | PEA.L 0x0 00020890 48 79 00 02 0e 10 |Hy | PEA.L 0x20e10 00020896 4e ba fd 42 |N B | JSR 0x205da 0002089a de c6 | | ADDA.W D6,A7 0002089c 48 78 00 05 |Hx | PEA.L 0x5 000208a0 48 78 00 00 |Hx | PEA.L 0x0 000208a4 48 53 |HS | PEA.L (A3) 000208a6 4e ba fd b4 |N | JSR 0x2065c 000208aa de c6 | | ADDA.W D6,A7 000208ac 20 39 00 02 0e 10 | 9 | MOVE.L 0x20e10,D0 000208b2 53 80 |S | SUBQ.L #0x1,D0 000208b4 b0 84 | | CMP.L D4,D0 000208b6 62 00 02 b0 |b | BHI 0x20b68 000208ba d0 40 | @ | ADD.W D0,D0 000208bc 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000208c4 00 0e | | .CONST 0xe ; [0x0] -> 0x208d2 000208c6 00 22 | " | .CONST 0x22 ; [0x1] -> 0x208e6 000208c8 00 de | | .CONST 0xde ; [0x2] -> 0x209a2 000208ca 00 de | | .CONST 0xde ; [0x3] -> 0x209a2 000208cc 01 82 | | .CONST 0x182 ; [0x4] -> 0x20a46 000208ce 02 04 | | .CONST 0x204 ; [0x5] -> 0x20ac8 000208d0 02 3e | > | .CONST 0x23e ; [0x6] -> 0x20b02 000208d2 switch@0x208bc[0x0]: 000208d2 1f 01 | | MOVE.B D1,-(A7) 000208d4 51 4f |QO | SUBQ.L #0x8,A7 000208d6 20 4f | O | MOVEA.L A7,A0 000208d8 22 4a |"J | MOVEA.L A2,A1 000208da 70 07 |p | MOVEQ.L #0x07,D0 000208dc 10 d9 | | MOVE.B (A1)+,(A0)+ 000208de 51 c8 ff fc |Q | DBF D0,0x208dc 000208e2 60 00 02 94 |` | BRA 0x20b78 000208e6 switch@0x208bc[0x1]: 000208e6 20 13 | | MOVE.L (A3),D0 000208e8 53 80 |S | SUBQ.L #0x1,D0 000208ea b0 87 | | CMP.L D7,D0 000208ec 62 00 00 9c |b | BHI switch@0x208f2[0x3] 000208f0 d0 40 | @ | ADD.W D0,D0 000208f2 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000208fa 00 58 | X | .CONST 0x58 ; [0x0] -> 0x20952 000208fc 00 6a | j | .CONST 0x6a ; [0x1] -> 0x20964 000208fe 00 7e | ~ | .CONST 0x7e ; [0x2] -> 0x20978 00020900 00 90 | | .CONST 0x90 ; [0x3] -> 0x2098a 00020902 00 90 | | .CONST 0x90 ; [0x4] -> 0x2098a 00020904 00 90 | | .CONST 0x90 ; [0x5] -> 0x2098a 00020906 00 90 | | .CONST 0x90 ; [0x6] -> 0x2098a 00020908 00 14 | | .CONST 0x14 ; [0x7] -> 0x2090e 0002090a 00 2c | , | .CONST 0x2c ; [0x8] -> 0x20926 0002090c 00 40 | @ | .CONST 0x40 ; [0x9] -> 0x2093a 0002090e switch@0x208f2[0x7]: 0002090e 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020912 51 4f |QO | SUBQ.L #0x8,A7 00020914 20 4f | O | MOVEA.L A7,A0 00020916 43 f9 00 02 0e 35 |C 5 | LEA.L 0x20e35,A1 0002091c 70 07 |p | MOVEQ.L #0x07,D0 0002091e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020920 51 c8 ff fc |Q | DBF D0,0x2091e 00020924 60 74 |`t | BRA 0x2099a 00020926 switch@0x208f2[0x8]: 00020926 1f 3c 00 10 | < | MOVE.B #0x10,-(A7) 0002092a 51 4f |QO | SUBQ.L #0x8,A7 0002092c 20 4f | O | MOVEA.L A7,A0 0002092e 22 4a |"J | MOVEA.L A2,A1 00020930 70 07 |p | MOVEQ.L #0x07,D0 00020932 10 d9 | | MOVE.B (A1)+,(A0)+ 00020934 51 c8 ff fc |Q | DBF D0,0x20932 00020938 60 60 |`` | BRA 0x2099a 0002093a switch@0x208f2[0x9]: 0002093a 1f 3c 00 0f | < | MOVE.B #0x0f,-(A7) 0002093e 51 4f |QO | SUBQ.L #0x8,A7 00020940 20 4f | O | MOVEA.L A7,A0 00020942 43 f9 00 02 0e 35 |C 5 | LEA.L 0x20e35,A1 00020948 70 07 |p | MOVEQ.L #0x07,D0 0002094a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002094c 51 c8 ff fc |Q | DBF D0,0x2094a 00020950 60 48 |`H | BRA 0x2099a 00020952 switch@0x208f2[0x0]: 00020952 1f 07 | | MOVE.B D7,-(A7) 00020954 51 4f |QO | SUBQ.L #0x8,A7 00020956 20 4f | O | MOVEA.L A7,A0 00020958 22 4a |"J | MOVEA.L A2,A1 0002095a 70 07 |p | MOVEQ.L #0x07,D0 0002095c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002095e 51 c8 ff fc |Q | DBF D0,0x2095c 00020962 60 36 |`6 | BRA 0x2099a 00020964 switch@0x208f2[0x1]: 00020964 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 00020968 51 4f |QO | SUBQ.L #0x8,A7 0002096a 20 4f | O | MOVEA.L A7,A0 0002096c 22 4a |"J | MOVEA.L A2,A1 0002096e 70 07 |p | MOVEQ.L #0x07,D0 00020970 10 d9 | | MOVE.B (A1)+,(A0)+ 00020972 51 c8 ff fc |Q | DBF D0,0x20970 00020976 60 22 |`" | BRA 0x2099a 00020978 switch@0x208f2[0x2]: 00020978 42 27 |B' | CLR.B -(A7) 0002097a 51 4f |QO | SUBQ.L #0x8,A7 0002097c 20 4f | O | MOVEA.L A7,A0 0002097e 22 4a |"J | MOVEA.L A2,A1 00020980 70 07 |p | MOVEQ.L #0x07,D0 00020982 10 d9 | | MOVE.B (A1)+,(A0)+ 00020984 51 c8 ff fc |Q | DBF D0,0x20982 00020988 60 10 |` | BRA 0x2099a 0002098a switch@0x208f2[0x3]: 0002098a switch@0x208f2[0x4]: 0002098a switch@0x208f2[0x5]: 0002098a switch@0x208f2[0x6]: 0002098a 1f 02 | | MOVE.B D2,-(A7) 0002098c 51 4f |QO | SUBQ.L #0x8,A7 0002098e 20 4f | O | MOVEA.L A7,A0 00020990 22 4a |"J | MOVEA.L A2,A1 00020992 70 07 |p | MOVEQ.L #0x07,D0 00020994 10 d9 | | MOVE.B (A1)+,(A0)+ 00020996 51 c8 ff fc |Q | DBF D0,0x20994 0002099a 4e 94 |N | JSR (A4) 0002099c de c1 | | ADDA.W D1,A7 0002099e 60 00 01 dc |` | BRA 0x20b7c 000209a2 switch@0x208bc[0x2]: 000209a2 switch@0x208bc[0x3]: 000209a2 20 13 | | MOVE.L (A3),D0 000209a4 53 80 |S | SUBQ.L #0x1,D0 000209a6 b0 84 | | CMP.L D4,D0 000209a8 62 00 00 84 |b | BHI switch@0x209ae[0x1] 000209ac d0 40 | @ | ADD.W D0,D0 000209ae 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000209b6 00 0e | | .CONST 0xe ; [0x0] -> 0x209c4 000209b8 00 78 | x | .CONST 0x78 ; [0x1] -> 0x20a2e 000209ba 00 40 | @ | .CONST 0x40 ; [0x2] -> 0x209f6 000209bc 00 54 | T | .CONST 0x54 ; [0x3] -> 0x20a0a 000209be 00 78 | x | .CONST 0x78 ; [0x4] -> 0x20a2e 000209c0 00 78 | x | .CONST 0x78 ; [0x5] -> 0x20a2e 000209c2 00 66 | f | .CONST 0x66 ; [0x6] -> 0x20a1c 000209c4 switch@0x209ae[0x0]: 000209c4 48 79 00 02 0e 34 |Hy 4 | PEA.L 0x20e34 000209ca 48 79 00 02 0d ff |Hy | PEA.L 0x20dff 000209d0 4e ba fd 0c |N | JSR 0x206de 000209d4 50 4f |PO | ADDQ.L #0x8,A7 000209d6 4a 39 00 02 0e 34 |J9 4 | TST.B 0x20e34 000209dc 67 16 |g | BEQ 0x209f4 000209de 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000209e2 51 4f |QO | SUBQ.L #0x8,A7 000209e4 20 4f | O | MOVEA.L A7,A0 000209e6 22 4a |"J | MOVEA.L A2,A1 000209e8 70 07 |p | MOVEQ.L #0x07,D0 000209ea 10 d9 | | MOVE.B (A1)+,(A0)+ 000209ec 51 c8 ff fc |Q | DBF D0,0x209ea 000209f0 4e 94 |N | JSR (A4) 000209f2 de c1 | | ADDA.W D1,A7 000209f4 60 4c |`L | BRA 0x20a42 000209f6 switch@0x209ae[0x2]: 000209f6 1f 3c 00 01 | < | MOVE.B #0x01,-(A7) 000209fa 51 4f |QO | SUBQ.L #0x8,A7 000209fc 20 4f | O | MOVEA.L A7,A0 000209fe 22 4a |"J | MOVEA.L A2,A1 00020a00 70 07 |p | MOVEQ.L #0x07,D0 00020a02 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a04 51 c8 ff fc |Q | DBF D0,0x20a02 00020a08 60 34 |`4 | BRA 0x20a3e 00020a0a switch@0x209ae[0x3]: 00020a0a 1f 04 | | MOVE.B D4,-(A7) 00020a0c 51 4f |QO | SUBQ.L #0x8,A7 00020a0e 20 4f | O | MOVEA.L A7,A0 00020a10 22 4a |"J | MOVEA.L A2,A1 00020a12 70 07 |p | MOVEQ.L #0x07,D0 00020a14 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a16 51 c8 ff fc |Q | DBF D0,0x20a14 00020a1a 60 22 |`" | BRA 0x20a3e 00020a1c switch@0x209ae[0x6]: 00020a1c 1f 03 | | MOVE.B D3,-(A7) 00020a1e 51 4f |QO | SUBQ.L #0x8,A7 00020a20 20 4f | O | MOVEA.L A7,A0 00020a22 22 4a |"J | MOVEA.L A2,A1 00020a24 70 07 |p | MOVEQ.L #0x07,D0 00020a26 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a28 51 c8 ff fc |Q | DBF D0,0x20a26 00020a2c 60 10 |` | BRA 0x20a3e 00020a2e switch@0x209ae[0x1]: 00020a2e switch@0x209ae[0x4]: 00020a2e switch@0x209ae[0x5]: 00020a2e 1f 02 | | MOVE.B D2,-(A7) 00020a30 51 4f |QO | SUBQ.L #0x8,A7 00020a32 20 4f | O | MOVEA.L A7,A0 00020a34 22 4a |"J | MOVEA.L A2,A1 00020a36 70 07 |p | MOVEQ.L #0x07,D0 00020a38 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a3a 51 c8 ff fc |Q | DBF D0,0x20a38 00020a3e 4e 94 |N | JSR (A4) 00020a40 de c1 | | ADDA.W D1,A7 00020a42 60 00 01 38 |` 8 | BRA 0x20b7c 00020a46 switch@0x208bc[0x4]: 00020a46 20 13 | | MOVE.L (A3),D0 00020a48 53 80 |S | SUBQ.L #0x1,D0 00020a4a b0 84 | | CMP.L D4,D0 00020a4c 62 62 |bb | BHI switch@0x20a50[0x2] 00020a4e d0 40 | @ | ADD.W D0,D0 00020a50 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020a58 00 0e | | .CONST 0xe ; [0x0] -> 0x20a66 00020a5a 00 22 | " | .CONST 0x22 ; [0x1] -> 0x20a7a 00020a5c 00 58 | X | .CONST 0x58 ; [0x2] -> 0x20ab0 00020a5e 00 34 | 4 | .CONST 0x34 ; [0x3] -> 0x20a8c 00020a60 00 58 | X | .CONST 0x58 ; [0x4] -> 0x20ab0 00020a62 00 58 | X | .CONST 0x58 ; [0x5] -> 0x20ab0 00020a64 00 46 | F | .CONST 0x46 ; [0x6] -> 0x20a9e 00020a66 switch@0x20a50[0x0]: 00020a66 1f 3c 00 08 | < | MOVE.B #0x08,-(A7) 00020a6a 51 4f |QO | SUBQ.L #0x8,A7 00020a6c 20 4f | O | MOVEA.L A7,A0 00020a6e 22 4a |"J | MOVEA.L A2,A1 00020a70 70 07 |p | MOVEQ.L #0x07,D0 00020a72 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a74 51 c8 ff fc |Q | DBF D0,0x20a72 00020a78 60 46 |`F | BRA 0x20ac0 00020a7a switch@0x20a50[0x1]: 00020a7a 1f 06 | | MOVE.B D6,-(A7) 00020a7c 51 4f |QO | SUBQ.L #0x8,A7 00020a7e 20 4f | O | MOVEA.L A7,A0 00020a80 22 4a |"J | MOVEA.L A2,A1 00020a82 70 07 |p | MOVEQ.L #0x07,D0 00020a84 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a86 51 c8 ff fc |Q | DBF D0,0x20a84 00020a8a 60 34 |`4 | BRA 0x20ac0 00020a8c switch@0x20a50[0x3]: 00020a8c 1f 05 | | MOVE.B D5,-(A7) 00020a8e 51 4f |QO | SUBQ.L #0x8,A7 00020a90 20 4f | O | MOVEA.L A7,A0 00020a92 22 4a |"J | MOVEA.L A2,A1 00020a94 70 07 |p | MOVEQ.L #0x07,D0 00020a96 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a98 51 c8 ff fc |Q | DBF D0,0x20a96 00020a9c 60 22 |`" | BRA 0x20ac0 00020a9e switch@0x20a50[0x6]: 00020a9e 1f 03 | | MOVE.B D3,-(A7) 00020aa0 51 4f |QO | SUBQ.L #0x8,A7 00020aa2 20 4f | O | MOVEA.L A7,A0 00020aa4 22 4a |"J | MOVEA.L A2,A1 00020aa6 70 07 |p | MOVEQ.L #0x07,D0 00020aa8 10 d9 | | MOVE.B (A1)+,(A0)+ 00020aaa 51 c8 ff fc |Q | DBF D0,0x20aa8 00020aae 60 10 |` | BRA 0x20ac0 00020ab0 switch@0x20a50[0x2]: 00020ab0 switch@0x20a50[0x4]: 00020ab0 switch@0x20a50[0x5]: 00020ab0 1f 02 | | MOVE.B D2,-(A7) 00020ab2 51 4f |QO | SUBQ.L #0x8,A7 00020ab4 20 4f | O | MOVEA.L A7,A0 00020ab6 22 4a |"J | MOVEA.L A2,A1 00020ab8 70 07 |p | MOVEQ.L #0x07,D0 00020aba 10 d9 | | MOVE.B (A1)+,(A0)+ 00020abc 51 c8 ff fc |Q | DBF D0,0x20aba 00020ac0 4e 94 |N | JSR (A4) 00020ac2 de c1 | | ADDA.W D1,A7 00020ac4 60 00 00 b6 |` | BRA 0x20b7c 00020ac8 switch@0x208bc[0x5]: 00020ac8 20 13 | | MOVE.L (A3),D0 00020aca 5b 80 |[ | SUBQ.L #0x5,D0 00020acc 66 1e |f | BNE 0x20aec 00020ace 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020ad6 00 02 | | .CONST 0x2 ; [0x0] -> 0x20ad8 00020ad8 switch@0x20ace[0x0]: 00020ad8 1f 3c 00 05 | < | MOVE.B #0x05,-(A7) 00020adc 51 4f |QO | SUBQ.L #0x8,A7 00020ade 20 4f | O | MOVEA.L A7,A0 00020ae0 22 4a |"J | MOVEA.L A2,A1 00020ae2 70 07 |p | MOVEQ.L #0x07,D0 00020ae4 10 d9 | | MOVE.B (A1)+,(A0)+ 00020ae6 51 c8 ff fc |Q | DBF D0,0x20ae4 00020aea 60 10 |` | BRA 0x20afc 00020aec 1f 02 | | MOVE.B D2,-(A7) 00020aee 51 4f |QO | SUBQ.L #0x8,A7 00020af0 20 4f | O | MOVEA.L A7,A0 00020af2 22 4a |"J | MOVEA.L A2,A1 00020af4 70 07 |p | MOVEQ.L #0x07,D0 00020af6 10 d9 | | MOVE.B (A1)+,(A0)+ 00020af8 51 c8 ff fc |Q | DBF D0,0x20af6 00020afc 4e 94 |N | JSR (A4) 00020afe de c1 | | ADDA.W D1,A7 00020b00 60 7a |`z | BRA 0x20b7c 00020b02 switch@0x208bc[0x6]: 00020b02 20 13 | | MOVE.L (A3),D0 00020b04 53 80 |S | SUBQ.L #0x1,D0 00020b06 b0 83 | | CMP.L D3,D0 00020b08 62 48 |bH | BHI 0x20b52 00020b0a d0 40 | @ | ADD.W D0,D0 00020b0c 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020b14 00 06 | | .CONST 0x6 ; [0x0] -> 0x20b1a 00020b16 00 18 | | .CONST 0x18 ; [0x1] -> 0x20b2c 00020b18 00 2c | , | .CONST 0x2c ; [0x2] -> 0x20b40 00020b1a switch@0x20b0c[0x0]: 00020b1a 1f 07 | | MOVE.B D7,-(A7) 00020b1c 51 4f |QO | SUBQ.L #0x8,A7 00020b1e 20 4f | O | MOVEA.L A7,A0 00020b20 22 4a |"J | MOVEA.L A2,A1 00020b22 70 07 |p | MOVEQ.L #0x07,D0 00020b24 10 d9 | | MOVE.B (A1)+,(A0)+ 00020b26 51 c8 ff fc |Q | DBF D0,0x20b24 00020b2a 60 36 |`6 | BRA 0x20b62 00020b2c switch@0x20b0c[0x1]: 00020b2c 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 00020b30 51 4f |QO | SUBQ.L #0x8,A7 00020b32 20 4f | O | MOVEA.L A7,A0 00020b34 22 4a |"J | MOVEA.L A2,A1 00020b36 70 07 |p | MOVEQ.L #0x07,D0 00020b38 10 d9 | | MOVE.B (A1)+,(A0)+ 00020b3a 51 c8 ff fc |Q | DBF D0,0x20b38 00020b3e 60 22 |`" | BRA 0x20b62 00020b40 switch@0x20b0c[0x2]: 00020b40 42 27 |B' | CLR.B -(A7) 00020b42 51 4f |QO | SUBQ.L #0x8,A7 00020b44 20 4f | O | MOVEA.L A7,A0 00020b46 22 4a |"J | MOVEA.L A2,A1 00020b48 70 07 |p | MOVEQ.L #0x07,D0 00020b4a 10 d9 | | MOVE.B (A1)+,(A0)+ 00020b4c 51 c8 ff fc |Q | DBF D0,0x20b4a 00020b50 60 10 |` | BRA 0x20b62 00020b52 1f 02 | | MOVE.B D2,-(A7) 00020b54 51 4f |QO | SUBQ.L #0x8,A7 00020b56 20 4f | O | MOVEA.L A7,A0 00020b58 22 4a |"J | MOVEA.L A2,A1 00020b5a 70 07 |p | MOVEQ.L #0x07,D0 00020b5c 10 d9 | | MOVE.B (A1)+,(A0)+ 00020b5e 51 c8 ff fc |Q | DBF D0,0x20b5c 00020b62 4e 94 |N | JSR (A4) 00020b64 de c1 | | ADDA.W D1,A7 00020b66 60 14 |` | BRA 0x20b7c 00020b68 1f 02 | | MOVE.B D2,-(A7) 00020b6a 51 4f |QO | SUBQ.L #0x8,A7 00020b6c 20 4f | O | MOVEA.L A7,A0 00020b6e 22 4a |"J | MOVEA.L A2,A1 00020b70 70 07 |p | MOVEQ.L #0x07,D0 00020b72 10 d9 | | MOVE.B (A1)+,(A0)+ 00020b74 51 c8 ff fc |Q | DBF D0,0x20b72 00020b78 4e 94 |N | JSR (A4) 00020b7a de c1 | | ADDA.W D1,A7 00020b7c 4e b9 00 01 02 84 |N | JSR ?exit 00020b82 exp_STEP_AND_FETCH_EVENT.SEQ(&Sr_2, &Sr_1): 00020b82 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020b88 00 10 | | .CONST 0x0010 ; Stack-delta 00020b8a 18 53 54 45 50 5f 41 4e | STEP_AN| .TXT 24,'STEP_AND_FETCH_EVENT.SEQ' 00020ba3 00 | | .CONST 0x0 00020ba4 02 | | .CONST 0x2 ; DIPROC address 00020ba5 02 | | .CONST 0x2 ; Output Parameters 00020ba6 00 | | .CONST 0x0 ; Input Parameters 00020ba7 01 | | .CONST 0x1 ; Out arg [2] 00020ba8 00 | | .CONST 0x0 ; Out arg [1] 00020ba9 00 | | .PAD 0x0 00020baa exp_PREP_RUN.SEQ(Sw_2): 00020baa 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020bb0 00 0a | | .CONST 0x000a ; Stack-delta 00020bb2 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.SEQ' 00020bbf 00 | | .CONST 0x0 00020bc0 02 | | .CONST 0x2 ; DIPROC address 00020bc1 00 | | .CONST 0x0 ; Output Parameters 00020bc2 01 | | .CONST 0x1 ; Input Parameters 00020bc3 01 | | .CONST 0x1 ; In arg [2] 00020bc4 exp_INIT_CSTOP_WCS.SEQ(): 00020bc4 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020bca 00 08 | | .CONST 0x0008 ; Stack-delta 00020bcc 12 49 4e 49 54 5f 43 53 | INIT_CS| .TXT 18,'INIT_CSTOP_WCS.SEQ' 00020bdf 00 | | .CONST 0x0 00020be0 02 | | .CONST 0x2 ; DIPROC address 00020be1 00 | | .CONST 0x0 ; Output Parameters 00020be2 00 | | .CONST 0x0 ; Input Parameters 00020be3 00 | | .PAD 0x0 00020be4 exp_READ_B_REG.TYP(Sw_2, Sw_1, &Sr_8): 00020be4 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020bea 00 10 | | .CONST 0x0010 ; Stack-delta 00020bec 0e 52 45 41 44 5f 42 5f | READ_B_| .TXT 14,'READ_B_REG.TYP' 00020bfb 00 | | .CONST 0x0 00020bfc 06 | | .CONST 0x6 ; DIPROC address 00020bfd 01 | | .CONST 0x1 ; Output Parameters 00020bfe 02 | | .CONST 0x2 ; Input Parameters 00020bff 01 | | .CONST 0x1 ; In arg [2] 00020c00 00 | | .CONST 0x0 ; In arg [1] 00020c01 07 | | .CONST 0x7 ; Out arg [8] 00020c02 exp_PREP_READ_REG.TYP(): 00020c02 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020c08 00 08 | | .CONST 0x0008 ; Stack-delta 00020c0a 11 50 52 45 50 5f 52 45 | PREP_RE| .TXT 17,'PREP_READ_REG.TYP' 00020c1c 00 | | .CONST 0x0 00020c1d 06 | | .CONST 0x6 ; DIPROC address 00020c1e 00 | | .CONST 0x0 ; Output Parameters 00020c1f 00 | | .CONST 0x0 ; Input Parameters 00020c20 exp_FORCE_TYPE_BUS.TYP(): 00020c20 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020c26 00 08 | | .CONST 0x0008 ; Stack-delta 00020c28 12 46 4f 52 43 45 5f 54 | FORCE_T| .TXT 18,'FORCE_TYPE_BUS.TYP' 00020c3b 00 | | .CONST 0x0 00020c3c 06 | | .CONST 0x6 ; DIPROC address 00020c3d 00 | | .CONST 0x0 ; Output Parameters 00020c3e 00 | | .CONST 0x0 ; Input Parameters 00020c3f 00 | | .PAD 0x0 00020c40 exp_READ_B_REG.VAL(Sw_2, Sw_1, &Sr_8): 00020c40 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020c46 00 10 | | .CONST 0x0010 ; Stack-delta 00020c48 0e 52 45 41 44 5f 42 5f | READ_B_| .TXT 14,'READ_B_REG.VAL' 00020c57 00 | | .CONST 0x0 00020c58 07 | | .CONST 0x7 ; DIPROC address 00020c59 01 | | .CONST 0x1 ; Output Parameters 00020c5a 02 | | .CONST 0x2 ; Input Parameters 00020c5b 01 | | .CONST 0x1 ; In arg [2] 00020c5c 00 | | .CONST 0x0 ; In arg [1] 00020c5d 07 | | .CONST 0x7 ; Out arg [8] 00020c5e exp_PREP_READ_REG.VAL(): 00020c5e 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020c64 00 08 | | .CONST 0x0008 ; Stack-delta 00020c66 11 50 52 45 50 5f 52 45 | PREP_RE| .TXT 17,'PREP_READ_REG.VAL' 00020c78 00 | | .CONST 0x0 00020c79 07 | | .CONST 0x7 ; DIPROC address 00020c7a 00 | | .CONST 0x0 ; Output Parameters 00020c7b 00 | | .CONST 0x0 ; Input Parameters 00020c7c exp_FORCE_VAL_BUS.VAL(): 00020c7c 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020c82 00 08 | | .CONST 0x0008 ; Stack-delta 00020c84 11 46 4f 52 43 45 5f 56 | FORCE_V| .TXT 17,'FORCE_VAL_BUS.VAL' 00020c96 00 | | .CONST 0x0 00020c97 07 | | .CONST 0x7 ; DIPROC address 00020c98 00 | | .CONST 0x0 ; Output Parameters 00020c99 00 | | .CONST 0x0 ; Input Parameters 00020c9a 53 45 54 5f 48 49 54 2e |SET_HIT.| .TXT 'SET_HIT.MEM ' 00020ca6 53 45 54 5f 48 49 54 2e |SET_HIT.| .TXT 'SET_HIT.M32 ' 00020cb2 ; -------------------------------------------------------------------------------------- 00020cb2 ; OMSI PASCAL Function 00020cb2 ; <LVAR 0x00a 1(r)> 00020cb2 ; <LVAR 0x008 1(r)> 00020cb2 ; <LVAR -0x004 @ 4(r)> 00020cb2 ; -------------------------------------------------------------------------------------- 00020cb2 4e 56 ff cc |NV | LINK.W A6,#0xffcc 00020cb6 bf d5 | | CMPA.L (A5),A7 00020cb8 62 06 |b | BHI 0x20cc0 00020cba 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020cbe 4e 76 |Nv | TRAPV 00020cc0 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020cc4 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 00020cc8 45 ee ff fc |E | LEA.L (A6-0x4),A2 00020ccc 72 0c |r | MOVEQ.L #0x0c,D1 00020cce 55 4f |UO | SUBQ.L #0x2,A7 00020cd0 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 00020cd6 4a 1f |J | TST.B (A7)+ 00020cd8 67 12 |g | BEQ 0x20cec 00020cda 9e c1 | | SUBA.W D1,A7 00020cdc 20 4f | O | MOVEA.L A7,A0 00020cde 43 fa ff ba |C | LEA.L 0x20c9a,A1 00020ce2 70 0a |p | MOVEQ.L #0x0a,D0 00020ce4 10 d9 | | MOVE.B (A1)+,(A0)+ 00020ce6 51 c8 ff fc |Q | DBF D0,0x20ce4 00020cea 60 10 |` | BRA 0x20cfc 00020cec 9e c1 | | SUBA.W D1,A7 00020cee 20 4f | O | MOVEA.L A7,A0 00020cf0 43 fa ff b4 |C | LEA.L 0x20ca6,A1 00020cf4 70 0a |p | MOVEQ.L #0x0a,D0 00020cf6 10 d9 | | MOVE.B (A1)+,(A0)+ 00020cf8 51 c8 ff fc |Q | DBF D0,0x20cf6 00020cfc 59 4f |YO | SUBQ.L #0x4,A7 00020cfe 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020d02 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020d06 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00020d0a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020d10 50 4f |PO | ADDQ.L #0x8,A7 00020d12 48 52 |HR | PEA.L (A2) 00020d14 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 00020d1a de fc 00 14 | | ADDA.W #0x14,A7 00020d1e 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00020d22 2f 12 |/ | MOVE.L (A2),-(A7) 00020d24 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020d28 48 78 00 00 |Hx | PEA.L 0x0 00020d2c 48 78 00 00 |Hx | PEA.L 0x0 00020d30 4e b9 00 01 04 66 |N f | JSR ExpInputParam(exp : Pointer; ptr : Pointer; len : L) 00020d36 de fc 00 10 | | ADDA.W #0x10,A7 00020d3a 42 17 |B | CLR.B (A7) 00020d3c 1f 2e 00 0a | . | MOVE.B (A6+0xa),-(A7) 00020d40 2f 12 |/ | MOVE.L (A2),-(A7) 00020d42 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 00020d48 50 4f |PO | ADDQ.L #0x8,A7 00020d4a 48 52 |HR | PEA.L (A2) 00020d4c 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 00020d52 58 4f |XO | ADDQ.L #0x4,A7 00020d54 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 00020d58 4e 5e |N^ | UNLK A6 00020d5a 4e 75 |Nu | RTS 00020d5c exp_READ_ENABLES_AND_EVENTS.IOC(Sw_1, &Sr_2, &Sr_1): 00020d5c 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020d62 00 12 | | .CONST 0x0012 ; Stack-delta 00020d64 1b 52 45 41 44 5f 45 4e | READ_EN| .TXT 27,'READ_ENABLES_AND_EVENTS.IOC' 00020d80 00 | | .CONST 0x0 00020d81 04 | | .CONST 0x4 ; DIPROC address 00020d82 02 | | .CONST 0x2 ; Output Parameters 00020d83 01 | | .CONST 0x1 ; Input Parameters 00020d84 00 | | .CONST 0x0 ; In arg [1] 00020d85 01 | | .CONST 0x1 ; Out arg [2] 00020d86 00 | | .CONST 0x0 ; Out arg [1] 00020d87 00 | | .PAD 0x0 00020d88 exp_LOAD_UIR.IOC(Sw_2, Sw_1): 00020d88 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020d8e 00 0c | | .CONST 0x000c ; Stack-delta 00020d90 0c 4c 4f 41 44 5f 55 49 | LOAD_UI| .TXT 12,'LOAD_UIR.IOC' 00020d9d 00 | | .CONST 0x0 00020d9e 04 | | .CONST 0x4 ; DIPROC address 00020d9f 00 | | .CONST 0x0 ; Output Parameters 00020da0 02 | | .CONST 0x2 ; Input Parameters 00020da1 01 | | .CONST 0x1 ; In arg [2] 00020da2 00 | | .CONST 0x0 ; In arg [1] 00020da3 00 | | .PAD 0x0 00020da4 00 00 00 00 | | .XXX[0x4] 00020da8 00 00 00 00 00 00 00 00 | | .XXX[0x8] 00020db0 00 00 | | .XXX[0x2] 00020db2 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0 00020db6 00 00 | | .XXX[0x2] 00020db8 00 00 00 00 00 00 00 00 | | .BLANK 00[0x10] 00020dc8 00 00 00 00 00 00 00 | | .XXX[0x7] 00020dcf 00 00 00 00 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0 00020dd7 00 | | .XXX[0x1] 00020dd8 00 00 00 00 00 00 00 00 | | .BLANK 00[0x28] 00020e00 00 00 00 00 00 00 00 | | .XXX[0x7] 00020e07 00 00 | | .CONST 0x0,0x0 00020e09 00 | | .XXX[0x1] 00020e0a 00 00 | | .CONST 0x0,0x0 00020e0c 00 00 00 00 | | .XXX[0x4] 00020e10 00 00 00 00 00 00 00 00 | | .BLANK 00[0x20] 00020e30 00 00 00 00 00 | | .XXX[0x5] 00020e35 00 00 00 00 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0 00020e3d 00 00 00 | | .XXX[0x3] 00020e40 00 00 00 00 00 00 00 00 | | .BLANK 00[0x1c0]