|
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: »P3URF.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »P3URF.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »P3URF.M200«
└─ ⟦this⟧ »P3URF.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »P3URF.M200«
@ 20164
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 20164-202a0 Body>
<POP 20164-2017a Prologue> Σ0 ↓
<POP 2017a-20190 RegCacheLoad> Σ0 ↓
<POP 20190-201f0 Naked> Σ0 ↓ →0x20238
<Call 0x20190 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x20196 [18] @> Δ-18 {[«18""»]}
<POP 201a2-201a4 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x201a4 18> {[«18""»]|[$$Experiment error :]}
<Call 0x201b0 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 201b2-201b3 StackAdj> Δ+22 ↓ {}
<Blob 0x201b3 [14] @> Δ-14 {[«14""»]}
<POP 201c2-201c4 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x201c4 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 201ce-201d0 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 201d0 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x201d4 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 201da-201dc StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x201dc 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 201e2-201e4 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x201e4 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 201e6-201e8 StackAdj> Δ+18 {}
<MI 201e8 MOVEA.L (A6+0xa),A0> {}
<MI 201ec CMPA.W #0x01,A0> {}
<MI 201ee BEQ 0x20238> {}
<POP 201f0-20238 Naked> Σ0 ↓
<Blob 0x201f0 [14] @> Δ-14 {[«14""»]}
<Blob 0x20200 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 20210-20212 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x20212 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 2021c-2021e StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x2021e> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x2021e 12> Δ-4
<Const 0x20222 0x1.2> Δ-2
<Const 0x20224 0x1e.2> Δ-2
<Call 0x20226 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20228-2022a StackAdj> Δ+8
<Call 0x2022a 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20230-20232 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x20232 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20234-20238 StackAdj> Δ+48 {}
<POP 20238-20298 Naked> Σ0 ↓ ←0x20190
<Blob 0x20238 [14] @> Δ-14 {[«14""»]}
<POP 20248-2024a StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x2024a 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 20254-20256 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 20256 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x2025a 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 20260-20262 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x20262 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20268-2026a StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2026a 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2026c-2026d StackAdj> Δ+18 ↓ {}
<Blob 0x2026d [24] @> Δ-24 {[«24""»]}
<Const 0x2027c 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 20280-20282 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x20282 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x20290 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 20296-20298 StackAdj> Δ+30 {}
<POP 20298-202a0 Epilogue> Σ0
@ 202a0
<LVAR 0x008 1(r)>
<POP 202a0-20320 Body>
<POP 202a0-202b6 Prologue> Σ0 ↓
<POP 202b6-202be RegCacheLoad> Σ0 ↓
<POP 202be-202c4 Naked> Σ0 ↓
<MI 202be MOVE.B (A6+0x8),0x2094a> {}
<MI 202c2 MOVEQ.L #0x00,D7> {}
<POP 202c4-202ec Naked> Σ0 ↓ →0x202c4 ←0x202c4
<POP 0x202c4 LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<MI 202ca LEA.L 0x2091c,A0> {}
<MI 202d0 MOVE.B (A0+D7.L+#0x2f),D0> {}
<MI 202d4 EXTB.W D0> {}
<MI 202d6 EXTW.L D0> {}
<POP 0x202d8 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 202e2 MOVE.B D0,(A0+D7.L+#0x37)> {}
<MI 202e6 ADDQ.L #0x1,D7> {}
<MI 202e8 CMP.L #0x07,D7> {}
<MI 202ea BLE 0x202c4> {}
<POP 202ec-20318 Naked> Σ0 ↓
<MI 202ec CLR.B -(A7)> Δ-2 {[#0]}
<Blob 0x202ee [4] 0x20942> Δ-4 {[#0]|[«4»]}
<Blob 0x202f4 [4] 0x20946> Δ-4 {[#0]|[«4»]|[«4»]}
<Blob 0x202fa [2] 0x2094a> Δ-2 {[#0]|[«4»]|[«4»]|[«2»]}
<Blob 0x202fc [8] 0x20953> Δ-8 {[#0]|[«4»]|[«4»]|[«2»]|[«8»]}
<Call 0x2030e 0x1054a> {[#0]|[«4»]|[«4»]|[«2»]|[«8»]}
?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
<POP 20314-20318 StackAdj> Δ+20 {}
<POP 20318-20320 Epilogue> Σ0
@ 20320
<LVAR -0x001 1(r)>
<LVAR -0x008 @>
<POP 20320-2035c Body>
<POP 20320-20336 Prologue> Σ0 ↓
<POP 20336-20354 Naked> Σ0 ↓
<Pointer.fp 0x20336 <LVAR -0x008 @>> Δ-4 {[@@-8]}
<Call 0x2033a 0x207b6> {[@@-8]}
exp_READ_VAR.FIU(&Sr_8)
<POP 20340-20342 StackAdj> Δ+4 {}
<MI 20342 CLR.L D0> {}
<MI 20344 MOVE.B (A6-0x1),D0> {}
<MI 20348 ANDI.W #0x00ff,D0> {}
<MI 2034c EXTW.L D0> {}
<MI 2034e MOVE.L D0,0x2095e> {}
<POP 20354-2035c Epilogue> Σ0
@ 2035c
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @ 1(r)>
<POP 2035c-20432 Body>
<POP 2035c-20372 Prologue> Σ0 ↓
<POP 20372-2037e RegCacheLoad> Σ0 ↓
<POP 2037e-20380 Naked> Σ0 ↓
<MI 2037e MOVEQ.L #0x00,D7> {}
<POP 20380-20396 Naked> Σ0 ↓ →0x20380 ←0x20380
<MI 20380 MOVE.B D7,D0> {}
<MI 20382 EXTB.W D0> {}
<MI 20384 LEA.L 0x2091c,A0> {}
<MI 2038a CLR.B (A0+D0.W+#0x8)> {}
<MI 2038e ADDQ.B #0x1,D7> {}
<MI 20390 CMPI.B #0x07,D7> {}
<MI 20394 BLE 0x20380> {}
<POP 20396-203aa Naked> Σ0 ↓ →0x203b0
<Pointer.fp 0x20396 <LVAR -0x004 @ 1(r)>> Δ-4 {[@@-4]}
<Call 0x20398 0x20828> {[@@-4]}
exp_READ_PARITY.VAL(&Sr_1)
<POP 2039e-203a0 StackAdj> Δ+4 {}
<MI 203a0 CLR.L D0> {}
<MI 203a2 MOVE.B (A6-0x4),D0> {}
<MI 203a4 MOVE.W D0,D1> {}
<MI 203a6 AND.W #0x10,D1> {}
<MI 203a8 BNE 0x203b0> {}
<POP 203aa-203b0 Naked> Σ0 ↓
<MI 203aa MOVE.B #0x01,0x20924> {}
<POP 203b0-203b6 Naked> Σ0 ↓ →0x203bc ←0x20396
<MI 203b0 MOVE.W D0,D1> {}
<MI 203b2 AND.W #0x20,D1> {}
<MI 203b4 BNE 0x203bc> {}
<POP 203b6-203bc Naked> Σ0 ↓
<MI 203b6 MOVE.B #0x01,0x20925> {}
<POP 203bc-203c2 Naked> Σ0 ↓ →0x203c8 ←0x203b0
<MI 203bc AND.W #0x0c,D0> {}
<MI 203be CMP.W #0x0c,D0> {}
<MI 203c0 BNE 0x203c8> {}
<POP 203c2-203c8 Naked> Σ0 ↓
<MI 203c2 MOVE.B #0x01,0x20926> {}
<POP 203c8-203dc Naked> Σ0 ↓ →0x203e2 ←0x203bc
<Pointer.fp 0x203c8 <LVAR -0x004 @ 1(r)>> Δ-4 {[@@-4]}
<Call 0x203ca 0x207e6> {[@@-4]}
exp_READ_PARITY.TYP(&Sr_1)
<POP 203d0-203d2 StackAdj> Δ+4 {}
<MI 203d2 CLR.L D0> {}
<MI 203d4 MOVE.B (A6-0x4),D0> {}
<MI 203d6 MOVE.W D0,D1> {}
<MI 203d8 AND.W #0x10,D1> {}
<MI 203da BNE 0x203e2> {}
<POP 203dc-203e2 Naked> Σ0 ↓
<MI 203dc MOVE.B #0x01,0x20927> {}
<POP 203e2-203e6 Naked> Σ0 ↓ →0x203ec ←0x203c8
<MI 203e2 AND.W #0x20,D0> {}
<MI 203e4 BNE 0x203ec> {}
<POP 203e6-203ec Naked> Σ0 ↓
<MI 203e6 MOVE.B #0x01,0x20928> {}
<POP 203ec-20404 Naked> Σ0 ↓ →0x2040a ←0x203e2
<MI 203ec CLR.B -(A7)> Δ-2 {[#0]}
<Pointer.fp 0x203ee <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[@@-4]}
<Call 0x203f0 0x2086a> {[#0]|[@@-4]}
exp_READ_PAREG.IOC(Sw_1, &Sr_1)
<POP 203f6-203f8 StackAdj> Δ+6 {}
<MI 203f8 CLR.L D0> {}
<MI 203fa MOVE.B (A6-0x4),D0> {}
<MI 203fc MOVE.W D0,D1> {}
<MI 203fe ANDI.W #0x0008,D1> {}
<MI 20402 BNE 0x2040a> {}
<POP 20404-2040a Naked> Σ0 ↓
<MI 20404 MOVE.B #0x01,0x20929> {}
<POP 2040a-20410 Naked> Σ0 ↓ →0x20416 ←0x203ec
<MI 2040a ANDI.W #0x0004,D0> {}
<MI 2040e BNE 0x20416> {}
<POP 20410-20416 Naked> Σ0 ↓
<MI 20410 MOVE.B #0x01,0x2092a> {}
<POP 20416-2042a Naked> Σ0 ↓ ←0x2040a
<Pointer.fp 0x20416 <LVAR -0x003 @ 1(r)>> Δ-4 {[@@-3]}
<Call 0x2041a 0x207d0> {[@@-3]}
exp_HALT.SEQ(&Fr)
<POP 20420-20422 StackAdj> Δ+4 {}
<MI 20422 MOVE.B (A6-0x3),0x2092b> {}
<POP 2042a-20432 Epilogue> Σ0
@ 20432
START
<POP 20432--0001 Body> Δ+26
<POP 20432-2043c Prologue> Σ0
<POP 2043c-2045a RegCacheLoad> Σ0 ↓
<POP 2045a-204c4 Naked> Σ0 ↓
<Call 0x2045a 0x10398> {}
FSCALL_10398
<Const 0x20460 0x2095b.4> Δ-4 {[##133467]}
<Const 0x20466 0x2095c.4> Δ-4 {[##133467]|[##133468]}
<Call 0x2046c 0x10544> {[##133467]|[##133468]}
IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool)
<POP 20472-20474 StackAdj> Δ+8 {}
<Const 0x20474 0x0.4> Δ-4 {[##0]}
<Call 0x20476 0x104d8> {[##0]}
ExpInit(a : Long)
<POP 2047c-2047e StackAdj> Δ+2 {[-2-]}
<POP 2047e-2047f StackAdj> Δ+2 {}
<Blob 0x2047f [2] 0x2095c> Δ-2 {[«2»]}
<Call 0x20484 0x104d2> {[«2»]}
SetExpInitDone(a : Byte)
<POP 2048a-2048b StackAdj> Δ+2 ↓ {}
<Blob 0x2048b [6] @> Δ-6 {[«6""»]}
<POP 2049a-2049c StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x2049c 5> {[«6""»]|[$$P3URF]}
<MI 204ac MOVE.L (A7)+,0x20942> Δ+4 {[«6""»]}
<POP 204b2-204b4 StackAdj> Δ+6 {}
<Const 0x204b4 0x20946.4> Δ-4 {[##133446]}
<Call 0x204ba 0x102b8> {[##133446]}
NewString(VAR a : String)
<POP 204c0-204c2 StackAdj> Δ+4 {}
<MI 204c2 MOVEQ.L #0x00,D0> {}
<POP 204c4-204e0 Naked> Σ0 ↓ →0x204c4 ←0x204c4
<MI 204c4 MOVE.L D0,0x20962> {}
<POP 0x204ca LimitCheck 0x0 ≤ D0 ≤ 0x7> {}
<MI 204d0 LEA.L 0x2091c,A0> {}
<MI 204d6 CLR.B (A0+D0.L+#0x2f)> {}
<MI 204da ADDQ.L #0x1,D0> {}
<MI 204dc CMP.L #0x07,D0> {}
<MI 204de BLE 0x204c4> {}
<POP 204e0-204f0 Naked> Σ0 ↓ →0x204f8
<Call 0x204e0 0x20320> {}
<Call 0x204e4 0x2035c> {}
<MI 204e8 TST.B 0x20924> {}
<MI 204ee BNE 0x204f8> {}
<POP 204f0-204f8 Naked> Σ0 ↓ →0x20500
<MI 204f0 TST.B 0x20926> {}
<MI 204f6 BEQ 0x20500> {}
<POP 204f8-20500 Naked> Σ0 Δ-2 →0x207aa ←0x204e0
<MI 204f8 MOVE.B #0x04,0x2094b> {}
<Const 0x204fa 0x1.2> Δ-2 {[#1]}
<MI 204fc BRA 0x207aa> {[#1]}
<POP 20500-20508 Naked> Σ0 ↓ →0x20510 ←0x204f0
<MI 20500 TST.B 0x20927> {}
<MI 20506 BEQ 0x20510> {}
<POP 20508-20510 Naked> Σ0 Δ-2 →0x207aa
<MI 20508 MOVE.B #0x03,0x2094b> {}
<Const 0x2050a 0x2.2> Δ-2 {[#2]}
<MI 2050c BRA 0x207aa> {[#2]}
<POP 20510-2051a Naked> Σ0 ↓ →0x205da ←0x20500
<MI 20510 TST.B 0x2092b> {}
<MI 20516 BEQ 0x205da> {}
<POP 2051a-2054e Naked> Σ0 Δ-4 ↓ →0x2055a
<Const 0x2051a 0x2092c.4> Δ-4 {[##133420]}
<Call 0x2051c 0x20888> {[##133420]}
exp_READ_LAST_PC.IOC(&Sr_2)
<POP 20522-20524 StackAdj> Δ+4 {}
<Blob 0x20524 [2] 0x2092c> Δ-2 {[«2»]}
<Const 0x20526 0x600.2> Δ-2 {[«2»]|[#1536]}
<POP 2052a-2052c StackAdj> Δ-2 {[«2»]|[#1536]|[-2-]}
<Pointer.sp 0x2052c 4> Δ-4 {[«2»]|[#1536]|[-2-]|[^^4]}
<Const 0x20530 0x0.4> Δ-4 {[«2»]|[#1536]|[-2-]|[^^4]|[##0]}
<Const 0x20532 0x1.4> Δ-4 {[«2»]|[#1536]|[-2-]|[^^4]|[##0]|[##1]}
<Pointer.sp 0x20536 14> Δ-4 {[«2»]|[#1536]|[-2-]|[^^4]|[##0]|[##1]|[^^14]}
<Const 0x2053a 0x0.4> Δ-4 {[«2»]|[#1536]|[-2-]|[^^4]|[##0]|[##1]|[^^14]|[##0]}
<Const 0x2053c 0x1.4> Δ-4 {[«2»]|[#1536]|[-2-]|[^^4]|[##0]|[##1]|[^^14]|[##0]|[##1]}
<Call 0x20540 0x104a8> {[«2»]|[#1536]|[-2-]|[^^4]|[##0]|[##1]|[^^14]|[##0]|[##1]}
?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
<POP 20546-2054a StackAdj> Δ+24 {[«2»]|[#1536]|[-2-]}
<MI 2054a TST.B (A7)+> Δ+2 {[«2»]|[#1536]}
<MI 2054c BEQ 0x2055a> {[«2»]|[#1536]}
<POP 2054e-2055a Naked> Σ-4 →0x205d4
<MI 2054e MOVE.B #0x03,0x2094b> {[-4-]}
<Const 0x20550 0x2.2> Δ-2 {[-4-]|[#2]}
<Call 0x20552 0x202a0> {[-4-]|[#2]}
<POP 20556-20558 StackAdj> Δ+2 {[-4-]}
<MI 20558 BRA 0x205d4> {[-4-]}
<POP 2055a-20584 Naked> Σ-4 Δ-4 ↓ →0x20590 ←0x2051a
<Blob 0x2055a [2] 0x2092c> Δ-2 {[-4-]|[«2»]}
<Const 0x2055c 0x601.2> Δ-2 {[-4-]|[«2»]|[#1537]}
<POP 20560-20562 StackAdj> Δ-2 {[-4-]|[«2»]|[#1537]|[-2-]}
<Pointer.sp 0x20562 4> Δ-4 {[-4-]|[«2»]|[#1537]|[-2-]|[^^4]}
<Const 0x20566 0x0.4> Δ-4 {[-4-]|[«2»]|[#1537]|[-2-]|[^^4]|[##0]}
<Const 0x20568 0x1.4> Δ-4 {[-4-]|[«2»]|[#1537]|[-2-]|[^^4]|[##0]|[##1]}
<Pointer.sp 0x2056c 14> Δ-4 {[-4-]|[«2»]|[#1537]|[-2-]|[^^4]|[##0]|[##1]|[^^14]}
<Const 0x20570 0x0.4> Δ-4 {[-4-]|[«2»]|[#1537]|[-2-]|[^^4]|[##0]|[##1]|[^^14]|[##0]}
<Const 0x20572 0x1.4> Δ-4 {[-4-]|[«2»]|[#1537]|[-2-]|[^^4]|[##0]|[##1]|[^^14]|[##0]|[##1]}
<Call 0x20576 0x104a8> {[-4-]|[«2»]|[#1537]|[-2-]|[^^4]|[##0]|[##1]|[^^14]|[##0]|[##1]}
?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
<POP 2057c-20580 StackAdj> Δ+24 {[-4-]|[«2»]|[#1537]|[-2-]}
<MI 20580 TST.B (A7)+> Δ+2 {[-4-]|[«2»]|[#1537]}
<MI 20582 BEQ 0x20590> {[-4-]|[«2»]|[#1537]}
<POP 20584-20590 Naked> Σ-8 →0x205d2
<MI 20584 MOVE.B #0x04,0x2094b> {[-8-]}
<Const 0x20586 0x1.2> Δ-2 {[-8-]|[#1]}
<Call 0x20588 0x202a0> {[-8-]|[#1]}
<POP 2058c-2058e StackAdj> Δ+2 {[-8-]}
<MI 2058e BRA 0x205d2> {[-8-]}
<POP 20590-205ba Naked> Σ-8 Δ-4 ↓ →0x205c4 ←0x2055a
<Blob 0x20590 [2] 0x2092c> Δ-2 {[-8-]|[«2»]}
<Const 0x20592 0x602.2> Δ-2 {[-8-]|[«2»]|[#1538]}
<POP 20596-20598 StackAdj> Δ-2 {[-8-]|[«2»]|[#1538]|[-2-]}
<Pointer.sp 0x20598 4> Δ-4 {[-8-]|[«2»]|[#1538]|[-2-]|[^^4]}
<Const 0x2059c 0x0.4> Δ-4 {[-8-]|[«2»]|[#1538]|[-2-]|[^^4]|[##0]}
<Const 0x2059e 0x1.4> Δ-4 {[-8-]|[«2»]|[#1538]|[-2-]|[^^4]|[##0]|[##1]}
<Pointer.sp 0x205a2 14> Δ-4 {[-8-]|[«2»]|[#1538]|[-2-]|[^^4]|[##0]|[##1]|[^^14]}
<Const 0x205a6 0x0.4> Δ-4 {[-8-]|[«2»]|[#1538]|[-2-]|[^^4]|[##0]|[##1]|[^^14]|[##0]}
<Const 0x205a8 0x1.4> Δ-4 {[-8-]|[«2»]|[#1538]|[-2-]|[^^4]|[##0]|[##1]|[^^14]|[##0]|[##1]}
<Call 0x205ac 0x104a8> {[-8-]|[«2»]|[#1538]|[-2-]|[^^4]|[##0]|[##1]|[^^14]|[##0]|[##1]}
?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool
<POP 205b2-205b6 StackAdj> Δ+24 {[-8-]|[«2»]|[#1538]|[-2-]}
<MI 205b6 TST.B (A7)+> Δ+2 {[-8-]|[«2»]|[#1538]}
<MI 205b8 BEQ 0x205c4> {[-8-]|[«2»]|[#1538]}
<POP 205ba-205c4 Naked> Σ-12 Δ-2 →0x205ca
<MI 205ba MOVE.B #0x2b,0x2094b> {[-12-]}
<Const 0x205be 0xb.2> Δ-2 {[-12-]|[#11]}
<MI 205c2 BRA 0x205ca> {[-12-]|[#11]}
<POP 205c4-205ca Naked> Σ-12 Δ-2 ↓ ←0x20590
<MI 205c4 MOVE.B #0x29,0x2094b> {[-12-]}
<Const 0x205c6 0x9.2> Δ-2 {[-12-]|[#9]}
<POP 205ca-205d2 Naked> Σ-14 Δ+6 ↓ ←0x205ba
<Call 0x205ca 0x202a0> {[-14-]}
<POP 205ce-205d0 StackAdj> Δ+2 {[-12-]}
<POP 205d0-205d2 StackAdj> Δ+4 {[-8-]}
<POP 205d2-205d4 Naked> Σ-8 Δ+4 ↓ ←0x20584
<POP 205d2-205d4 StackAdj> Δ+4 {[-4-]}
<POP 205d4-205da Naked> Σ-4 Δ+4 →0x207b0 ←0x2054e
<POP 205d4-205d6 StackAdj> Δ+4 {}
<MI 205d6 BRA 0x207b0> {}
<POP 205da-205e2 Naked> Σ0 ↓ →0x20646 ←0x20510
<MI 205da TST.B 0x20925> {}
<MI 205e0 BEQ 0x20646> {}
<POP 205e2-205ec Naked> Σ0 ↓ →0x205f2
<MI 205e2 MOVE.L 0x2095e,D0> {}
<MI 205e8 CMP.L #0x02,D0> {}
<MI 205ea BNE 0x205f2> {}
<POP 205ec-205f2 Naked> Σ0 Δ-2 →0x2063c
<MI 205ec MOVE.B #0x04,0x2094b> {}
<Const 0x205ee 0x1.2> Δ-2 {[#1]}
<MI 205f0 BRA 0x2063c> {[#1]}
<POP 205f2-2060e Naked> Σ0 ↓ →0x20628 ←0x205e2
<Const 0x205f2 0x20937.4> Δ-4 {[##133431]}
<Const 0x205f8 0x20940.4> Δ-4 {[##133431]|[##133440]}
<Call 0x205fe 0x20846> {[##133431]|[##133440]}
exp_CHECK_WDR_PARITY.VAL(&Sr_8_1, &Fr)
<POP 20604-20606 StackAdj> Δ+8 {}
<MI 20606 TST.B 0x20940> {}
<MI 2060c BEQ 0x20628> {}
<POP 2060e-2061a Naked> Σ0 ↓ →0x2061e
<MI 2060e MOVE.B #0x04,0x2094b> {}
<MI 20610 MOVE.L 0x2095e,D0> {}
<MI 20616 CMP.L #0x01,D0> {}
<MI 20618 BNE 0x2061e> {}
<POP 2061a-2061e Naked> Σ0 Δ-2 →0x20620
<Const 0x2061a 0x3.2> Δ-2 {[#3]}
<MI 2061c BRA 0x20620> {[#3]}
<POP 2061e-20620 Naked> Σ0 Δ-2 ↓ ←0x2060e
<Const 0x2061e 0x4.2> Δ-2 {[#4]}
<POP 20620-20628 Naked> Σ-2 Δ+2 →0x20642 ←0x2061a
<Call 0x20620 0x202a0> {[-2-]}
<POP 20624-20626 StackAdj> Δ+2 {}
<MI 20626 BRA 0x20642> {}
<POP 20628-20634 Naked> Σ0 ↓ →0x20638 ←0x205f2
<MI 20628 MOVE.B #0x02,0x2094b> {}
<MI 2062a MOVE.L 0x2095e,D0> {}
<MI 20630 CMP.L #0x01,D0> {}
<MI 20632 BNE 0x20638> {}
<POP 20634-20638 Naked> Σ0 Δ-2 →0x2063c
<Const 0x20634 0x5.2> Δ-2 {[#5]}
<MI 20636 BRA 0x2063c> {[#5]}
<POP 20638-2063c Naked> Σ0 Δ-2 ↓ ←0x20628
<Const 0x20638 0x6.2> Δ-2 {[#6]}
<POP 2063c-20642 Naked> Σ-2 Δ+2 ↓ ←0x205ec ←0x20634
<Call 0x2063c 0x202a0> {[-2-]}
<POP 20640-20642 StackAdj> Δ+2 {}
<POP 20642-20646 Naked> Σ0 →0x207b0 ←0x20620
<MI 20642 BRA 0x207b0> {}
<POP 20646-2064e Naked> Σ0 ↓ →0x206b4 ←0x205da
<MI 20646 TST.B 0x20928> {}
<MI 2064c BEQ 0x206b4> {}
<POP 2064e-20658 Naked> Σ0 ↓ →0x2065e
<MI 2064e MOVE.L 0x2095e,D0> {}
<MI 20654 CMP.L #0x02,D0> {}
<MI 20656 BNE 0x2065e> {}
<POP 20658-2065e Naked> Σ0 Δ-2 →0x206aa
<MI 20658 MOVE.B #0x03,0x2094b> {}
<Const 0x2065a 0x2.2> Δ-2 {[#2]}
<MI 2065c BRA 0x206aa> {[#2]}
<POP 2065e-2067a Naked> Σ0 ↓ →0x20696 ←0x2064e
<Const 0x2065e 0x2092e.4> Δ-4 {[##133422]}
<Const 0x20664 0x20940.4> Δ-4 {[##133422]|[##133440]}
<Call 0x2066a 0x20804> {[##133422]|[##133440]}
exp_CHECK_WDR_PARITY.TYP(&Sr_8_1, &Fr)
<POP 20670-20672 StackAdj> Δ+8 {}
<MI 20672 TST.B 0x20940> {}
<MI 20678 BEQ 0x20696> {}
<POP 2067a-20686 Naked> Σ0 ↓ →0x2068a
<MI 2067a MOVE.B #0x03,0x2094b> {}
<MI 2067c MOVE.L 0x2095e,D0> {}
<MI 20682 CMP.L #0x01,D0> {}
<MI 20684 BNE 0x2068a> {}
<POP 20686-2068a Naked> Σ0 Δ-2 →0x2068e
<Const 0x20686 0x7.2> Δ-2 {[#7]}
<MI 20688 BRA 0x2068e> {[#7]}
<POP 2068a-2068e Naked> Σ0 Δ-2 ↓ ←0x2067a
<Const 0x2068a 0x8.2> Δ-2 {[#8]}
<POP 2068e-20696 Naked> Σ-2 Δ+2 →0x206b0 ←0x20686
<Call 0x2068e 0x202a0> {[-2-]}
<POP 20692-20694 StackAdj> Δ+2 {}
<MI 20694 BRA 0x206b0> {}
<POP 20696-206a2 Naked> Σ0 ↓ →0x206a6 ←0x2065e
<MI 20696 MOVE.B #0x02,0x2094b> {}
<MI 20698 MOVE.L 0x2095e,D0> {}
<MI 2069e CMP.L #0x01,D0> {}
<MI 206a0 BNE 0x206a6> {}
<POP 206a2-206a6 Naked> Σ0 Δ-2 →0x206aa
<Const 0x206a2 0x5.2> Δ-2 {[#5]}
<MI 206a4 BRA 0x206aa> {[#5]}
<POP 206a6-206aa Naked> Σ0 Δ-2 ↓ ←0x20696
<Const 0x206a6 0x6.2> Δ-2 {[#6]}
<POP 206aa-206b0 Naked> Σ-2 Δ+2 ↓ ←0x20658 ←0x206a2
<Call 0x206aa 0x202a0> {[-2-]}
<POP 206ae-206b0 StackAdj> Δ+2 {}
<POP 206b0-206b4 Naked> Σ0 →0x207b0 ←0x2068e
<MI 206b0 BRA 0x207b0> {}
<POP 206b4-206bc Naked> Σ0 ↓ →0x2072e ←0x20646
<MI 206b4 TST.B 0x20929> {}
<MI 206ba BEQ 0x2072e> {}
<POP 206bc-206c6 Naked> Σ0 ↓ →0x206ca
<MI 206bc MOVE.L 0x2095e,D0> {}
<MI 206c2 CMP.L #0x01,D0> {}
<MI 206c4 BEQ 0x206ca> {}
<POP 206c6-206ca Naked> Σ0 ↓ →0x2071e
<MI 206c6 CMP.L #0x03,D0> {}
<MI 206c8 BNE 0x2071e> {}
<POP 206ca-206e6 Naked> Σ0 ↓ →0x20702 ←0x206bc
<Const 0x206ca 0x2092e.4> Δ-4 {[##133422]}
<Const 0x206d0 0x20940.4> Δ-4 {[##133422]|[##133440]}
<Call 0x206d6 0x20804> {[##133422]|[##133440]}
exp_CHECK_WDR_PARITY.TYP(&Sr_8_1, &Fr)
<POP 206dc-206de StackAdj> Δ+8 {}
<MI 206de TST.B 0x20940> {}
<MI 206e4 BEQ 0x20702> {}
<POP 206e6-206f2 Naked> Σ0 ↓ →0x206f6
<MI 206e6 MOVE.B #0x02,0x2094b> {}
<MI 206e8 MOVE.L 0x2095e,D0> {}
<MI 206ee CMP.L #0x01,D0> {}
<MI 206f0 BNE 0x206f6> {}
<POP 206f2-206f6 Naked> Σ0 Δ-2 →0x206fa
<Const 0x206f2 0x5.2> Δ-2 {[#5]}
<MI 206f4 BRA 0x206fa> {[#5]}
<POP 206f6-206fa Naked> Σ0 Δ-2 ↓ ←0x206e6
<Const 0x206f6 0x6.2> Δ-2 {[#6]}
<POP 206fa-20702 Naked> Σ-2 Δ+2 →0x2071c ←0x206f2
<Call 0x206fa 0x202a0> {[-2-]}
<POP 206fe-20700 StackAdj> Δ+2 {}
<MI 20700 BRA 0x2071c> {}
<POP 20702-2070e Naked> Σ0 ↓ →0x20712 ←0x206ca
<MI 20702 MOVE.B #0x03,0x2094b> {}
<MI 20704 MOVE.L 0x2095e,D0> {}
<MI 2070a CMP.L #0x01,D0> {}
<MI 2070c BNE 0x20712> {}
<POP 2070e-20712 Naked> Σ0 Δ-2 →0x20716
<Const 0x2070e 0x7.2> Δ-2 {[#7]}
<MI 20710 BRA 0x20716> {[#7]}
<POP 20712-20716 Naked> Σ0 Δ-2 ↓ ←0x20702
<Const 0x20712 0x8.2> Δ-2 {[#8]}
<POP 20716-2071c Naked> Σ-2 Δ+2 ↓ ←0x2070e
<Call 0x20716 0x202a0> {[-2-]}
<POP 2071a-2071c StackAdj> Δ+2 {}
<POP 2071c-2071e Naked> Σ0 →0x2072a ←0x206fa
<MI 2071c BRA 0x2072a> {}
<POP 2071e-2072a Naked> Σ0 ↓ ←0x206c6
<MI 2071e MOVE.B #0x29,0x2094b> {}
<Const 0x20720 0xa.2> Δ-2 {[#10]}
<Call 0x20724 0x202a0> {[#10]}
<POP 20728-2072a StackAdj> Δ+2 {}
<POP 2072a-2072e Naked> Σ0 →0x207b0 ←0x2071c
<MI 2072a BRA 0x207b0> {}
<POP 2072e-20736 Naked> Σ0 ↓ →0x207a4 ←0x206b4
<MI 2072e TST.B 0x2092a> {}
<MI 20734 BEQ 0x207a4> {}
<POP 20736-20740 Naked> Σ0 ↓ →0x20744
<MI 20736 MOVE.L 0x2095e,D0> {}
<MI 2073c CMP.L #0x01,D0> {}
<MI 2073e BEQ 0x20744> {}
<POP 20740-20744 Naked> Σ0 ↓ →0x20796
<MI 20740 CMP.L #0x03,D0> {}
<MI 20742 BNE 0x20796> {}
<POP 20744-20760 Naked> Σ0 ↓ →0x2077c ←0x20736
<Const 0x20744 0x20937.4> Δ-4 {[##133431]}
<Const 0x2074a 0x20940.4> Δ-4 {[##133431]|[##133440]}
<Call 0x20750 0x20846> {[##133431]|[##133440]}
exp_CHECK_WDR_PARITY.VAL(&Sr_8_1, &Fr)
<POP 20756-20758 StackAdj> Δ+8 {}
<MI 20758 TST.B 0x20940> {}
<MI 2075e BEQ 0x2077c> {}
<POP 20760-2076c Naked> Σ0 ↓ →0x20770
<MI 20760 MOVE.B #0x02,0x2094b> {}
<MI 20762 MOVE.L 0x2095e,D0> {}
<MI 20768 CMP.L #0x01,D0> {}
<MI 2076a BNE 0x20770> {}
<POP 2076c-20770 Naked> Σ0 Δ-2 →0x20774
<Const 0x2076c 0x5.2> Δ-2 {[#5]}
<MI 2076e BRA 0x20774> {[#5]}
<POP 20770-20774 Naked> Σ0 Δ-2 ↓ ←0x20760
<Const 0x20770 0x6.2> Δ-2 {[#6]}
<POP 20774-2077c Naked> Σ-2 Δ+2 →0x20794 ←0x2076c
<Call 0x20774 0x202a0> {[-2-]}
<POP 20778-2077a StackAdj> Δ+2 {}
<MI 2077a BRA 0x20794> {}
<POP 2077c-20788 Naked> Σ0 ↓ →0x2078c ←0x20744
<MI 2077c MOVE.B #0x04,0x2094b> {}
<MI 2077e MOVE.L 0x2095e,D0> {}
<MI 20784 CMP.L #0x01,D0> {}
<MI 20786 BNE 0x2078c> {}
<POP 20788-2078c Naked> Σ0 Δ-2 →0x2078e
<Const 0x20788 0x3.2> Δ-2 {[#3]}
<MI 2078a BRA 0x2078e> {[#3]}
<POP 2078c-2078e Naked> Σ0 Δ-2 ↓ ←0x2077c
<Const 0x2078c 0x4.2> Δ-2 {[#4]}
<POP 2078e-20794 Naked> Σ-2 Δ+2 ↓ ←0x20788
<Call 0x2078e 0x202a0> {[-2-]}
<POP 20792-20794 StackAdj> Δ+2 {}
<POP 20794-20796 Naked> Σ0 →0x207a2 ←0x20774
<MI 20794 BRA 0x207a2> {}
<POP 20796-207a2 Naked> Σ0 ↓ ←0x20740
<MI 20796 MOVE.B #0x29,0x2094b> {}
<Const 0x20798 0xa.2> Δ-2 {[#10]}
<Call 0x2079c 0x202a0> {[#10]}
<POP 207a0-207a2 StackAdj> Δ+2 {}
<POP 207a2-207a4 Naked> Σ0 →0x207b0 ←0x20794
<MI 207a2 BRA 0x207b0> {}
<POP 207a4-207aa Naked> Σ0 Δ-2 ↓ ←0x2072e
<MI 207a4 MOVE.B #0x29,0x2094b> {}
<Const 0x207a6 0xa.2> Δ-2 {[#10]}
<POP 207aa-207b0 Naked> Σ-2 Δ+2 ↓ ←0x204f8 ←0x20508
<Call 0x207aa 0x202a0> {[-2-]}
<POP 207ae-207b0 StackAdj> Δ+2 {}
<POP 207b0-207b6 Naked> Σ0 ←0x205d4 ←0x20642 ←0x206b0 ←0x2072a ←0x207a2
<Call 0x207b0 0x10284> {}
?exit
@ 208b4
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 208b4-2091c Body>
<POP 208b4-208ca Prologue> Σ0 ↓
<POP 208ca-20914 Naked> Σ0 ↓
<Blob 0x208ca [14] @> Δ-14 {[«14""»]}
<Const 0x208d6 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 208da-208dc StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x208dc 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 208ee-208f0 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 208f0 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 208f4 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 208f6 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 208f8 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x208fa 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 20900-20902 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x20902 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20908-2090a StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x2090a 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 20910-20914 StackAdj> Δ+20 {}
<POP 20914-2091c Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.a49c007e6b2fdf9e 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 04 32 | 2 | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 09 70 | p | .PTR 0x20970 00020010 code.end: 00020010 00 02 09 1c | | .PTR 0x2091c 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 08 b4 | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 01 64 | d | .CODE EXP_FAIL 00020020 00 00 00 00 | | .CONST 0x00000000 00020024 exp_init_done: 00020024 00 | | .CONST 0x00 00020025 00 | | .CONST 0x00 00020026 00 00 | | .CONST 0x0000 00020028 00 00 | | .CONST 0x0000 0002002a 00 00 | | .XXX[0x2] 0002002c 00 00 | | .CONST 0x0000 0002002e 00 00 | | .CONST 0x0000 00020030 00 00 | | .CONST 0x0000 00020032 00 00 00 00 00 00 | | .XXX[0x6] 00020038 00 00 00 00 00 00 00 00 | | .BLANK 00[0xb0] 000200e8 00 00 00 00 | | .XXX[0x4] 000200ec 00 00 00 00 | | .PTR 0x0 000200f0 is_open_ERROR_LOG: 000200f0 00 | | .CONST 0x0 000200f1 write_error_ERROR_LOG: 000200f1 00 | | .CONST 0x0 000200f2 00 00 00 00 | | .CONST 0x00000000 000200f6 00 00 00 00 | | .CONST 0x00000000 000200fa 00 | | .CONST 0x00 000200fb 00 | | .CONST 0x00 000200fc file_ERROR_LOG: 000200fc 00 00 00 00 | | .CONST 0x00000000 00020100 00 00 00 00 | | .CONST 0x00000000 00020104 00 00 | | .CONST 0x0000 00020106 00 00 | | .CONST 0x0000 00020108 somekindoffsflag: 00020108 00 | | .CONST 0x00 00020109 00 | | .CONST 0x00 0002010a 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00020118 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00020126 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00020134 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00020146 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 0002015e 50 33 55 52 46 20 |P3URF | .TXT 'P3URF ' 00020164 ; -------------------------------------------------------------------------------------- 00020164 ; OMSI PASCAL Function 00020164 ; <LVAR 0x00e 1(r)> 00020164 ; <LVAR 0x00a 4(r)> 00020164 ; <LVAR 0x008 1(r)> 00020164 ; -------------------------------------------------------------------------------------- 00020164 EXP_FAIL: 00020164 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00020168 bf d5 | | CMPA.L (A5),A7 0002016a 62 06 |b | BHI 0x20172 0002016c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020170 4e 76 |Nv | TRAPV 00020172 de fc 00 74 | t | ADDA.W #0x74,A7 00020176 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 0002017a 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020180 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00020186 72 01 |r | MOVEQ.L #0x01,D1 00020188 74 0d |t | MOVEQ.L #0x0d,D2 0002018a 76 1e |v | MOVEQ.L #0x1e,D3 0002018c 78 12 |x | MOVEQ.L #0x12,D4 0002018e 7a 0e |z | MOVEQ.L #0x0e,D5 00020190 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020196 41 fa ff ae |A | LEA.L 0x20146,A0 0002019a 70 08 |p | MOVEQ.L #0x08,D0 0002019c 3f 20 |? | MOVE.W -(A0),-(A7) 0002019e 51 c8 ff fc |Q | DBF D0,0x2019c 000201a2 59 4f |YO | SUBQ.L #0x4,A7 000201a4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000201a8 3f 01 |? | MOVE.W D1,-(A7) 000201aa 3f 04 |? | MOVE.W D4,-(A7) 000201ac 4e 93 |N | JSR (A3) 000201ae 50 4f |PO | ADDQ.L #0x8,A7 000201b0 4e 94 |N | JSR (A4) 000201b2 50 4f |PO | ADDQ.L #0x8,A7 000201b4 20 4f | O | MOVEA.L A7,A0 000201b6 43 fa ff 52 |C R | LEA.L 0x2010a,A1 000201ba 70 0c |p | MOVEQ.L #0x0c,D0 000201bc 10 d9 | | MOVE.B (A1)+,(A0)+ 000201be 51 c8 ff fc |Q | DBF D0,0x201bc 000201c2 51 4f |QO | SUBQ.L #0x8,A7 000201c4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000201c8 3f 01 |? | MOVE.W D1,-(A7) 000201ca 3f 02 |? | MOVE.W D2,-(A7) 000201cc 4e 93 |N | JSR (A3) 000201ce 54 4f |TO | ADDQ.L #0x2,A7 000201d0 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000201d4 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000201da 54 4f |TO | ADDQ.L #0x2,A7 000201dc 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000201e2 50 4f |PO | ADDQ.L #0x8,A7 000201e4 4e 94 |N | JSR (A4) 000201e6 de c4 | | ADDA.W D4,A7 000201e8 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000201ec b0 c1 | | CMPA.W D1,A0 000201ee 67 48 |gH | BEQ 0x20238 000201f0 9e c5 | | SUBA.W D5,A7 000201f2 22 4f |"O | MOVEA.L A7,A1 000201f4 45 fa ff 22 |E " | LEA.L 0x20118,A2 000201f8 70 0c |p | MOVEQ.L #0x0c,D0 000201fa 12 da | | MOVE.B (A2)+,(A1)+ 000201fc 51 c8 ff fc |Q | DBF D0,0x201fa 00020200 9e c3 | | SUBA.W D3,A7 00020202 22 4f |"O | MOVEA.L A7,A1 00020204 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00020208 70 1d |p | MOVEQ.L #0x1d,D0 0002020a 12 d8 | | MOVE.B (A0)+,(A1)+ 0002020c 51 c8 ff fc |Q | DBF D0,0x2020a 00020210 51 4f |QO | SUBQ.L #0x8,A7 00020212 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020216 3f 01 |? | MOVE.W D1,-(A7) 00020218 3f 02 |? | MOVE.W D2,-(A7) 0002021a 4e 93 |N | JSR (A3) 0002021c 58 4f |XO | ADDQ.L #0x4,A7 0002021e 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020222 3f 01 |? | MOVE.W D1,-(A7) 00020224 3f 03 |? | MOVE.W D3,-(A7) 00020226 4e 93 |N | JSR (A3) 00020228 50 4f |PO | ADDQ.L #0x8,A7 0002022a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020230 50 4f |PO | ADDQ.L #0x8,A7 00020232 4e 94 |N | JSR (A4) 00020234 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020238 9e c5 | | SUBA.W D5,A7 0002023a 20 4f | O | MOVEA.L A7,A0 0002023c 43 fa fe e8 |C | LEA.L 0x20126,A1 00020240 70 0c |p | MOVEQ.L #0x0c,D0 00020242 10 d9 | | MOVE.B (A1)+,(A0)+ 00020244 51 c8 ff fc |Q | DBF D0,0x20242 00020248 51 4f |QO | SUBQ.L #0x8,A7 0002024a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002024e 3f 01 |? | MOVE.W D1,-(A7) 00020250 3f 02 |? | MOVE.W D2,-(A7) 00020252 4e 93 |N | JSR (A3) 00020254 54 4f |TO | ADDQ.L #0x2,A7 00020256 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 0002025a 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00020260 54 4f |TO | ADDQ.L #0x2,A7 00020262 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020268 50 4f |PO | ADDQ.L #0x8,A7 0002026a 4e 94 |N | JSR (A4) 0002026c 5d 4f |]O | SUBQ.L #0x6,A7 0002026e 20 4f | O | MOVEA.L A7,A0 00020270 43 fa fe d4 |C | LEA.L 0x20146,A1 00020274 70 16 |p | MOVEQ.L #0x16,D0 00020276 10 d9 | | MOVE.B (A1)+,(A0)+ 00020278 51 c8 ff fc |Q | DBF D0,0x20276 0002027c 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020280 59 4f |YO | SUBQ.L #0x4,A7 00020282 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020286 3f 01 |? | MOVE.W D1,-(A7) 00020288 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 0002028c 4e 93 |N | JSR (A3) 0002028e 50 4f |PO | ADDQ.L #0x8,A7 00020290 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020296 de c3 | | ADDA.W D3,A7 00020298 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 0002029c 4e 5e |N^ | UNLK A6 0002029e 4e 75 |Nu | RTS 000202a0 ; -------------------------------------------------------------------------------------- 000202a0 ; OMSI PASCAL Function 000202a0 ; <LVAR 0x008 1(r)> 000202a0 ; -------------------------------------------------------------------------------------- 000202a0 4e 56 ff ca |NV | LINK.W A6,#0xffca 000202a4 bf d5 | | CMPA.L (A5),A7 000202a6 62 06 |b | BHI 0x202ae 000202a8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000202ac 4e 76 |Nv | TRAPV 000202ae de fc 00 30 | 0 | ADDA.W #0x30,A7 000202b2 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 000202b6 45 f9 00 02 09 4a |E J | LEA.L 0x2094a,A2 000202bc 72 07 |r | MOVEQ.L #0x07,D1 000202be 14 ae 00 08 | | MOVE.B (A6+0x8),(A2) 000202c2 7e 00 |~ | MOVEQ.L #0x00,D7 000202c4 be 81 | | CMP.L D1,D7 000202c6 63 02 |c | BLS 0x202ca 000202c8 4e 4f |NO | TRAP #15 000202ca 41 f9 00 02 09 1c |A | LEA.L 0x2091c,A0 000202d0 10 30 78 2f | 0x/ | MOVE.B (A0+D7.L+#0x2f),D0 000202d4 48 80 |H | EXTB.W D0 000202d6 48 c0 |H | EXTW.L D0 000202d8 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 000202de 63 02 |c | BLS 0x202e2 000202e0 4e 4f |NO | TRAP #15 000202e2 11 80 78 37 | x7 | MOVE.B D0,(A0+D7.L+#0x37) 000202e6 52 87 |R | ADDQ.L #0x1,D7 000202e8 be 81 | | CMP.L D1,D7 000202ea 6f d8 |o | BLE 0x202c4 000202ec 42 27 |B' | CLR.B -(A7) 000202ee 2f 39 00 02 09 42 |/9 B | MOVE.L 0x20942,-(A7) 000202f4 2f 39 00 02 09 46 |/9 F | MOVE.L 0x20946,-(A7) 000202fa 1f 12 | | MOVE.B (A2),-(A7) 000202fc 51 4f |QO | SUBQ.L #0x8,A7 000202fe 20 4f | O | MOVEA.L A7,A0 00020300 43 f9 00 02 09 53 |C S | LEA.L 0x20953,A1 00020306 70 07 |p | MOVEQ.L #0x07,D0 00020308 10 d9 | | MOVE.B (A1)+,(A0)+ 0002030a 51 c8 ff fc |Q | DBF D0,0x20308 0002030e 4e b9 00 01 05 4a |N J | JSR ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long) 00020314 de fc 00 14 | | ADDA.W #0x14,A7 00020318 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 0002031c 4e 5e |N^ | UNLK A6 0002031e 4e 75 |Nu | RTS 00020320 ; -------------------------------------------------------------------------------------- 00020320 ; OMSI PASCAL Function 00020320 ; <LVAR -0x001 1(r)> 00020320 ; <LVAR -0x008 @> 00020320 ; -------------------------------------------------------------------------------------- 00020320 4e 56 ff ec |NV | LINK.W A6,#0xffec 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 0c | | ADDA.W #0xc,A7 00020332 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00020336 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002033a 4e b9 00 02 07 b6 |N | JSR exp_READ_VAR.FIU(&Sr_8) 00020340 58 4f |XO | ADDQ.L #0x4,A7 00020342 42 80 |B | CLR.L D0 00020344 10 2e ff ff | . | MOVE.B (A6-0x1),D0 00020348 02 40 00 ff | @ | ANDI.W #0x00ff,D0 0002034c 48 c0 |H | EXTW.L D0 0002034e 23 c0 00 02 09 5e |# ^ | MOVE.L D0,0x2095e 00020354 4c df 00 01 |L | MOVEM.L (A7)+,D0 00020358 4e 5e |N^ | UNLK A6 0002035a 4e 75 |Nu | RTS 0002035c ; -------------------------------------------------------------------------------------- 0002035c ; OMSI PASCAL Function 0002035c ; <LVAR -0x003 @ 1(r)> 0002035c ; <LVAR -0x004 @ 1(r)> 0002035c ; -------------------------------------------------------------------------------------- 0002035c 4e 56 ff ce |NV | LINK.W A6,#0xffce 00020360 bf d5 | | CMPA.L (A5),A7 00020362 62 06 |b | BHI 0x2036a 00020364 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020368 4e 76 |Nv | TRAPV 0002036a de fc 00 2e | . | ADDA.W #0x2e,A7 0002036e 48 e7 fd c0 |H | MOVEM.L A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7) 00020372 43 ee ff fc |C | LEA.L (A6-0x4),A1 00020376 74 01 |t | MOVEQ.L #0x01,D2 00020378 76 10 |v | MOVEQ.L #0x10,D3 0002037a 78 20 |x | MOVEQ.L #0x20,D4 0002037c 7a 0c |z | MOVEQ.L #0x0c,D5 0002037e 7e 00 |~ | MOVEQ.L #0x00,D7 00020380 10 07 | | MOVE.B D7,D0 00020382 48 80 |H | EXTB.W D0 00020384 41 f9 00 02 09 1c |A | LEA.L 0x2091c,A0 0002038a 42 30 00 08 |B0 | CLR.B (A0+D0.W+#0x8) 0002038e 52 07 |R | ADDQ.B #0x1,D7 00020390 0c 07 00 07 | | CMPI.B #0x07,D7 00020394 6f ea |o | BLE 0x20380 00020396 48 51 |HQ | PEA.L (A1) 00020398 4e b9 00 02 08 28 |N ( | JSR exp_READ_PARITY.VAL(&Sr_1) 0002039e 58 4f |XO | ADDQ.L #0x4,A7 000203a0 42 80 |B | CLR.L D0 000203a2 10 11 | | MOVE.B (A1),D0 000203a4 32 00 |2 | MOVE.W D0,D1 000203a6 c2 43 | C | AND.W D3,D1 000203a8 66 06 |f | BNE 0x203b0 000203aa 13 c2 00 02 09 24 | $ | MOVE.B D2,0x20924 000203b0 32 00 |2 | MOVE.W D0,D1 000203b2 c2 44 | D | AND.W D4,D1 000203b4 66 06 |f | BNE 0x203bc 000203b6 13 c2 00 02 09 25 | % | MOVE.B D2,0x20925 000203bc c0 45 | E | AND.W D5,D0 000203be b0 45 | E | CMP.W D5,D0 000203c0 66 06 |f | BNE 0x203c8 000203c2 13 c2 00 02 09 26 | & | MOVE.B D2,0x20926 000203c8 48 51 |HQ | PEA.L (A1) 000203ca 4e b9 00 02 07 e6 |N | JSR exp_READ_PARITY.TYP(&Sr_1) 000203d0 58 4f |XO | ADDQ.L #0x4,A7 000203d2 42 80 |B | CLR.L D0 000203d4 10 11 | | MOVE.B (A1),D0 000203d6 32 00 |2 | MOVE.W D0,D1 000203d8 c2 43 | C | AND.W D3,D1 000203da 66 06 |f | BNE 0x203e2 000203dc 13 c2 00 02 09 27 | ' | MOVE.B D2,0x20927 000203e2 c0 44 | D | AND.W D4,D0 000203e4 66 06 |f | BNE 0x203ec 000203e6 13 c2 00 02 09 28 | ( | MOVE.B D2,0x20928 000203ec 42 27 |B' | CLR.B -(A7) 000203ee 48 51 |HQ | PEA.L (A1) 000203f0 4e b9 00 02 08 6a |N j | JSR exp_READ_PAREG.IOC(Sw_1, &Sr_1) 000203f6 5c 4f |\O | ADDQ.L #0x6,A7 000203f8 42 80 |B | CLR.L D0 000203fa 10 11 | | MOVE.B (A1),D0 000203fc 32 00 |2 | MOVE.W D0,D1 000203fe 02 41 00 08 | A | ANDI.W #0x0008,D1 00020402 66 06 |f | BNE 0x2040a 00020404 13 c2 00 02 09 29 | ) | MOVE.B D2,0x20929 0002040a 02 40 00 04 | @ | ANDI.W #0x0004,D0 0002040e 66 06 |f | BNE 0x20416 00020410 13 c2 00 02 09 2a | * | MOVE.B D2,0x2092a 00020416 48 6e ff fd |Hn | PEA.L (A6-0x3) 0002041a 4e b9 00 02 07 d0 |N | JSR exp_HALT.SEQ(&Fr) 00020420 58 4f |XO | ADDQ.L #0x4,A7 00020422 13 ee ff fd 00 02 09 2b | +| MOVE.B (A6-0x3),0x2092b 0002042a 4c df 03 bf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1 0002042e 4e 5e |N^ | UNLK A6 00020430 4e 75 |Nu | RTS 00020432 ; -------------------------------------------------------------------------------------- 00020432 ; OMSI PASCAL Function 00020432 ; -------------------------------------------------------------------------------------- 00020432 START: 00020432 4f fa 00 08 |O | LEA.L MAIN,A7 00020436 4e f9 00 01 02 80 |N | JMP ?start_program 0002043c MAIN: 0002043c 45 f9 00 02 09 4b |E K | LEA.L 0x2094b,A2 00020442 47 f8 00 00 |G | LEA.L 0x0,A3 00020446 49 f9 00 02 09 2c |I , | LEA.L 0x2092c,A4 0002044c 72 01 |r | MOVEQ.L #0x01,D1 0002044e 74 03 |t | MOVEQ.L #0x03,D2 00020450 76 04 |v | MOVEQ.L #0x04,D3 00020452 78 02 |x | MOVEQ.L #0x02,D4 00020454 7a 05 |z | MOVEQ.L #0x05,D5 00020456 7c 07 || | MOVEQ.L #0x07,D6 00020458 7e 29 |~) | MOVEQ.L #0x29,D7 0002045a 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020460 48 79 00 02 09 5b |Hy [ | PEA.L 0x2095b 00020466 48 79 00 02 09 5c |Hy \ | PEA.L 0x2095c 0002046c 4e b9 00 01 05 44 |N D | JSR IPC_InitGetTwoBools(VAR a : Bool; VAR b : Bool) 00020472 50 4f |PO | ADDQ.L #0x8,A7 00020474 48 53 |HS | PEA.L (A3) 00020476 4e b9 00 01 04 d8 |N | JSR ExpInit(a : Long) 0002047c 54 4f |TO | ADDQ.L #0x2,A7 0002047e 1e b9 00 02 09 5c | \ | MOVE.B 0x2095c,(A7) 00020484 4e b9 00 01 04 d2 |N | JSR SetExpInitDone(a : Byte) 0002048a 59 4f |YO | SUBQ.L #0x4,A7 0002048c 20 4f | O | MOVEA.L A7,A0 0002048e 43 fa fc ce |C | LEA.L 0x2015e,A1 00020492 70 04 |p | MOVEQ.L #0x04,D0 00020494 10 d9 | | MOVE.B (A1)+,(A0)+ 00020496 51 c8 ff fc |Q | DBF D0,0x20494 0002049a 59 4f |YO | SUBQ.L #0x4,A7 0002049c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000204a0 3f 01 |? | MOVE.W D1,-(A7) 000204a2 3f 05 |? | MOVE.W D5,-(A7) 000204a4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000204aa 50 4f |PO | ADDQ.L #0x8,A7 000204ac 23 df 00 02 09 42 |# B | MOVE.L (A7)+,0x20942 000204b2 5c 4f |\O | ADDQ.L #0x6,A7 000204b4 48 79 00 02 09 46 |Hy F | PEA.L 0x20946 000204ba 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000204c0 58 4f |XO | ADDQ.L #0x4,A7 000204c2 70 00 |p | MOVEQ.L #0x00,D0 000204c4 23 c0 00 02 09 62 |# b | MOVE.L D0,0x20962 000204ca b0 86 | | CMP.L D6,D0 000204cc 63 02 |c | BLS 0x204d0 000204ce 4e 4f |NO | TRAP #15 000204d0 41 f9 00 02 09 1c |A | LEA.L 0x2091c,A0 000204d6 42 30 08 2f |B0 / | CLR.B (A0+D0.L+#0x2f) 000204da 52 80 |R | ADDQ.L #0x1,D0 000204dc b0 86 | | CMP.L D6,D0 000204de 6f e4 |o | BLE 0x204c4 000204e0 4e ba fe 3e |N > | JSR 0x20320 000204e4 4e ba fe 76 |N v | JSR 0x2035c 000204e8 4a 39 00 02 09 24 |J9 $ | TST.B 0x20924 000204ee 66 08 |f | BNE 0x204f8 000204f0 4a 39 00 02 09 26 |J9 & | TST.B 0x20926 000204f6 67 08 |g | BEQ 0x20500 000204f8 14 83 | | MOVE.B D3,(A2) 000204fa 1f 01 | | MOVE.B D1,-(A7) 000204fc 60 00 02 ac |` | BRA 0x207aa 00020500 4a 39 00 02 09 27 |J9 ' | TST.B 0x20927 00020506 67 08 |g | BEQ 0x20510 00020508 14 82 | | MOVE.B D2,(A2) 0002050a 1f 04 | | MOVE.B D4,-(A7) 0002050c 60 00 02 9c |` | BRA 0x207aa 00020510 4a 39 00 02 09 2b |J9 + | TST.B 0x2092b 00020516 67 00 00 c2 |g | BEQ 0x205da 0002051a 48 54 |HT | PEA.L (A4) 0002051c 4e b9 00 02 08 88 |N | JSR exp_READ_LAST_PC.IOC(&Sr_2) 00020522 58 4f |XO | ADDQ.L #0x4,A7 00020524 3f 14 |? | MOVE.W (A4),-(A7) 00020526 3f 3c 06 00 |?< | MOVE.W #0x600,-(A7) 0002052a 55 4f |UO | SUBQ.L #0x2,A7 0002052c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020530 48 53 |HS | PEA.L (A3) 00020532 48 78 00 01 |Hx | PEA.L 0x1 00020536 48 6f 00 0e |Ho | PEA.L (A7+0xe) 0002053a 48 53 |HS | PEA.L (A3) 0002053c 48 78 00 01 |Hx | PEA.L 0x1 00020540 4e b9 00 01 04 a8 |N | JSR ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool 00020546 de fc 00 18 | | ADDA.W #0x18,A7 0002054a 4a 1f |J | TST.B (A7)+ 0002054c 67 0c |g | BEQ 0x2055a 0002054e 14 82 | | MOVE.B D2,(A2) 00020550 1f 04 | | MOVE.B D4,-(A7) 00020552 4e ba fd 4c |N L | JSR 0x202a0 00020556 54 4f |TO | ADDQ.L #0x2,A7 00020558 60 7a |`z | BRA 0x205d4 0002055a 3f 14 |? | MOVE.W (A4),-(A7) 0002055c 3f 3c 06 01 |?< | MOVE.W #0x601,-(A7) 00020560 55 4f |UO | SUBQ.L #0x2,A7 00020562 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020566 48 53 |HS | PEA.L (A3) 00020568 48 78 00 01 |Hx | PEA.L 0x1 0002056c 48 6f 00 0e |Ho | PEA.L (A7+0xe) 00020570 48 53 |HS | PEA.L (A3) 00020572 48 78 00 01 |Hx | PEA.L 0x1 00020576 4e b9 00 01 04 a8 |N | JSR ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool 0002057c de fc 00 18 | | ADDA.W #0x18,A7 00020580 4a 1f |J | TST.B (A7)+ 00020582 67 0c |g | BEQ 0x20590 00020584 14 83 | | MOVE.B D3,(A2) 00020586 1f 01 | | MOVE.B D1,-(A7) 00020588 4e ba fd 16 |N | JSR 0x202a0 0002058c 54 4f |TO | ADDQ.L #0x2,A7 0002058e 60 42 |`B | BRA 0x205d2 00020590 3f 14 |? | MOVE.W (A4),-(A7) 00020592 3f 3c 06 02 |?< | MOVE.W #0x602,-(A7) 00020596 55 4f |UO | SUBQ.L #0x2,A7 00020598 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002059c 48 53 |HS | PEA.L (A3) 0002059e 48 78 00 01 |Hx | PEA.L 0x1 000205a2 48 6f 00 0e |Ho | PEA.L (A7+0xe) 000205a6 48 53 |HS | PEA.L (A3) 000205a8 48 78 00 01 |Hx | PEA.L 0x1 000205ac 4e b9 00 01 04 a8 |N | JSR ?FS104a8(VAR : Pointer; b : L; c : L ; VAR : Pointer; e: L; f : L) : Bool 000205b2 de fc 00 18 | | ADDA.W #0x18,A7 000205b6 4a 1f |J | TST.B (A7)+ 000205b8 67 0a |g | BEQ 0x205c4 000205ba 14 bc 00 2b | + | MOVE.B #0x2b,(A2) 000205be 1f 3c 00 0b | < | MOVE.B #0x0b,-(A7) 000205c2 60 06 |` | BRA 0x205ca 000205c4 14 87 | | MOVE.B D7,(A2) 000205c6 1f 3c 00 09 | < | MOVE.B #0x09,-(A7) 000205ca 4e ba fc d4 |N | JSR 0x202a0 000205ce 54 4f |TO | ADDQ.L #0x2,A7 000205d0 58 4f |XO | ADDQ.L #0x4,A7 000205d2 58 4f |XO | ADDQ.L #0x4,A7 000205d4 58 4f |XO | ADDQ.L #0x4,A7 000205d6 60 00 01 d8 |` | BRA 0x207b0 000205da 4a 39 00 02 09 25 |J9 % | TST.B 0x20925 000205e0 67 64 |gd | BEQ 0x20646 000205e2 20 39 00 02 09 5e | 9 ^ | MOVE.L 0x2095e,D0 000205e8 b0 84 | | CMP.L D4,D0 000205ea 66 06 |f | BNE 0x205f2 000205ec 14 83 | | MOVE.B D3,(A2) 000205ee 1f 01 | | MOVE.B D1,-(A7) 000205f0 60 4a |`J | BRA 0x2063c 000205f2 48 79 00 02 09 37 |Hy 7 | PEA.L 0x20937 000205f8 48 79 00 02 09 40 |Hy @ | PEA.L 0x20940 000205fe 4e b9 00 02 08 46 |N F | JSR exp_CHECK_WDR_PARITY.VAL(&Sr_8_1, &Fr) 00020604 50 4f |PO | ADDQ.L #0x8,A7 00020606 4a 39 00 02 09 40 |J9 @ | TST.B 0x20940 0002060c 67 1a |g | BEQ 0x20628 0002060e 14 83 | | MOVE.B D3,(A2) 00020610 20 39 00 02 09 5e | 9 ^ | MOVE.L 0x2095e,D0 00020616 b0 81 | | CMP.L D1,D0 00020618 66 04 |f | BNE 0x2061e 0002061a 1f 02 | | MOVE.B D2,-(A7) 0002061c 60 02 |` | BRA 0x20620 0002061e 1f 03 | | MOVE.B D3,-(A7) 00020620 4e ba fc 7e |N ~ | JSR 0x202a0 00020624 54 4f |TO | ADDQ.L #0x2,A7 00020626 60 1a |` | BRA 0x20642 00020628 14 84 | | MOVE.B D4,(A2) 0002062a 20 39 00 02 09 5e | 9 ^ | MOVE.L 0x2095e,D0 00020630 b0 81 | | CMP.L D1,D0 00020632 66 04 |f | BNE 0x20638 00020634 1f 05 | | MOVE.B D5,-(A7) 00020636 60 04 |` | BRA 0x2063c 00020638 1f 3c 00 06 | < | MOVE.B #0x06,-(A7) 0002063c 4e ba fc 62 |N b | JSR 0x202a0 00020640 54 4f |TO | ADDQ.L #0x2,A7 00020642 60 00 01 6c |` l | BRA 0x207b0 00020646 4a 39 00 02 09 28 |J9 ( | TST.B 0x20928 0002064c 67 66 |gf | BEQ 0x206b4 0002064e 20 39 00 02 09 5e | 9 ^ | MOVE.L 0x2095e,D0 00020654 b0 84 | | CMP.L D4,D0 00020656 66 06 |f | BNE 0x2065e 00020658 14 82 | | MOVE.B D2,(A2) 0002065a 1f 04 | | MOVE.B D4,-(A7) 0002065c 60 4c |`L | BRA 0x206aa 0002065e 48 79 00 02 09 2e |Hy . | PEA.L 0x2092e 00020664 48 79 00 02 09 40 |Hy @ | PEA.L 0x20940 0002066a 4e b9 00 02 08 04 |N | JSR exp_CHECK_WDR_PARITY.TYP(&Sr_8_1, &Fr) 00020670 50 4f |PO | ADDQ.L #0x8,A7 00020672 4a 39 00 02 09 40 |J9 @ | TST.B 0x20940 00020678 67 1c |g | BEQ 0x20696 0002067a 14 82 | | MOVE.B D2,(A2) 0002067c 20 39 00 02 09 5e | 9 ^ | MOVE.L 0x2095e,D0 00020682 b0 81 | | CMP.L D1,D0 00020684 66 04 |f | BNE 0x2068a 00020686 1f 06 | | MOVE.B D6,-(A7) 00020688 60 04 |` | BRA 0x2068e 0002068a 1f 3c 00 08 | < | MOVE.B #0x08,-(A7) 0002068e 4e ba fc 10 |N | JSR 0x202a0 00020692 54 4f |TO | ADDQ.L #0x2,A7 00020694 60 1a |` | BRA 0x206b0 00020696 14 84 | | MOVE.B D4,(A2) 00020698 20 39 00 02 09 5e | 9 ^ | MOVE.L 0x2095e,D0 0002069e b0 81 | | CMP.L D1,D0 000206a0 66 04 |f | BNE 0x206a6 000206a2 1f 05 | | MOVE.B D5,-(A7) 000206a4 60 04 |` | BRA 0x206aa 000206a6 1f 3c 00 06 | < | MOVE.B #0x06,-(A7) 000206aa 4e ba fb f4 |N | JSR 0x202a0 000206ae 54 4f |TO | ADDQ.L #0x2,A7 000206b0 60 00 00 fe |` | BRA 0x207b0 000206b4 4a 39 00 02 09 29 |J9 ) | TST.B 0x20929 000206ba 67 72 |gr | BEQ 0x2072e 000206bc 20 39 00 02 09 5e | 9 ^ | MOVE.L 0x2095e,D0 000206c2 b0 81 | | CMP.L D1,D0 000206c4 67 04 |g | BEQ 0x206ca 000206c6 b0 82 | | CMP.L D2,D0 000206c8 66 54 |fT | BNE 0x2071e 000206ca 48 79 00 02 09 2e |Hy . | PEA.L 0x2092e 000206d0 48 79 00 02 09 40 |Hy @ | PEA.L 0x20940 000206d6 4e b9 00 02 08 04 |N | JSR exp_CHECK_WDR_PARITY.TYP(&Sr_8_1, &Fr) 000206dc 50 4f |PO | ADDQ.L #0x8,A7 000206de 4a 39 00 02 09 40 |J9 @ | TST.B 0x20940 000206e4 67 1c |g | BEQ 0x20702 000206e6 14 84 | | MOVE.B D4,(A2) 000206e8 20 39 00 02 09 5e | 9 ^ | MOVE.L 0x2095e,D0 000206ee b0 81 | | CMP.L D1,D0 000206f0 66 04 |f | BNE 0x206f6 000206f2 1f 05 | | MOVE.B D5,-(A7) 000206f4 60 04 |` | BRA 0x206fa 000206f6 1f 3c 00 06 | < | MOVE.B #0x06,-(A7) 000206fa 4e ba fb a4 |N | JSR 0x202a0 000206fe 54 4f |TO | ADDQ.L #0x2,A7 00020700 60 1a |` | BRA 0x2071c 00020702 14 82 | | MOVE.B D2,(A2) 00020704 20 39 00 02 09 5e | 9 ^ | MOVE.L 0x2095e,D0 0002070a b0 81 | | CMP.L D1,D0 0002070c 66 04 |f | BNE 0x20712 0002070e 1f 06 | | MOVE.B D6,-(A7) 00020710 60 04 |` | BRA 0x20716 00020712 1f 3c 00 08 | < | MOVE.B #0x08,-(A7) 00020716 4e ba fb 88 |N | JSR 0x202a0 0002071a 54 4f |TO | ADDQ.L #0x2,A7 0002071c 60 0c |` | BRA 0x2072a 0002071e 14 87 | | MOVE.B D7,(A2) 00020720 1f 3c 00 0a | < | MOVE.B #0x0a,-(A7) 00020724 4e ba fb 7a |N z | JSR 0x202a0 00020728 54 4f |TO | ADDQ.L #0x2,A7 0002072a 60 00 00 84 |` | BRA 0x207b0 0002072e 4a 39 00 02 09 2a |J9 * | TST.B 0x2092a 00020734 67 6e |gn | BEQ 0x207a4 00020736 20 39 00 02 09 5e | 9 ^ | MOVE.L 0x2095e,D0 0002073c b0 81 | | CMP.L D1,D0 0002073e 67 04 |g | BEQ 0x20744 00020740 b0 82 | | CMP.L D2,D0 00020742 66 52 |fR | BNE 0x20796 00020744 48 79 00 02 09 37 |Hy 7 | PEA.L 0x20937 0002074a 48 79 00 02 09 40 |Hy @ | PEA.L 0x20940 00020750 4e b9 00 02 08 46 |N F | JSR exp_CHECK_WDR_PARITY.VAL(&Sr_8_1, &Fr) 00020756 50 4f |PO | ADDQ.L #0x8,A7 00020758 4a 39 00 02 09 40 |J9 @ | TST.B 0x20940 0002075e 67 1c |g | BEQ 0x2077c 00020760 14 84 | | MOVE.B D4,(A2) 00020762 20 39 00 02 09 5e | 9 ^ | MOVE.L 0x2095e,D0 00020768 b0 81 | | CMP.L D1,D0 0002076a 66 04 |f | BNE 0x20770 0002076c 1f 05 | | MOVE.B D5,-(A7) 0002076e 60 04 |` | BRA 0x20774 00020770 1f 3c 00 06 | < | MOVE.B #0x06,-(A7) 00020774 4e ba fb 2a |N * | JSR 0x202a0 00020778 54 4f |TO | ADDQ.L #0x2,A7 0002077a 60 18 |` | BRA 0x20794 0002077c 14 83 | | MOVE.B D3,(A2) 0002077e 20 39 00 02 09 5e | 9 ^ | MOVE.L 0x2095e,D0 00020784 b0 81 | | CMP.L D1,D0 00020786 66 04 |f | BNE 0x2078c 00020788 1f 02 | | MOVE.B D2,-(A7) 0002078a 60 02 |` | BRA 0x2078e 0002078c 1f 03 | | MOVE.B D3,-(A7) 0002078e 4e ba fb 10 |N | JSR 0x202a0 00020792 54 4f |TO | ADDQ.L #0x2,A7 00020794 60 0c |` | BRA 0x207a2 00020796 14 87 | | MOVE.B D7,(A2) 00020798 1f 3c 00 0a | < | MOVE.B #0x0a,-(A7) 0002079c 4e ba fb 02 |N | JSR 0x202a0 000207a0 54 4f |TO | ADDQ.L #0x2,A7 000207a2 60 0c |` | BRA 0x207b0 000207a4 14 87 | | MOVE.B D7,(A2) 000207a6 1f 3c 00 0a | < | MOVE.B #0x0a,-(A7) 000207aa 4e ba fa f4 |N | JSR 0x202a0 000207ae 54 4f |TO | ADDQ.L #0x2,A7 000207b0 4e b9 00 01 02 84 |N | JSR ?exit 000207b6 exp_READ_VAR.FIU(&Sr_8): 000207b6 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000207bc 00 0c | | .CONST 0x000c ; Stack-delta 000207be 0c 52 45 41 44 5f 56 41 | READ_VA| .TXT 12,'READ_VAR.FIU' 000207cb 00 | | .CONST 0x0 000207cc 03 | | .CONST 0x3 ; DIPROC address 000207cd 01 | | .CONST 0x1 ; Output Parameters 000207ce 00 | | .CONST 0x0 ; Input Parameters 000207cf 07 | | .CONST 0x7 ; Out arg [8] 000207d0 exp_HALT.SEQ(&Fr): 000207d0 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000207d6 00 0c | | .CONST 0x000c ; Stack-delta 000207d8 08 48 41 4c 54 2e 53 45 | HALT.SE| .TXT 8,'HALT.SEQ' 000207e1 00 | | .CONST 0x0 000207e2 02 | | .CONST 0x2 ; DIPROC address 000207e3 01 | | .CONST 0x1 ; Output Parameters 000207e4 00 | | .CONST 0x0 ; Input Parameters 000207e5 08 | | .CONST 0x8 ; Out arg flag 000207e6 exp_READ_PARITY.TYP(&Sr_1): 000207e6 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000207ec 00 0c | | .CONST 0x000c ; Stack-delta 000207ee 0f 52 45 41 44 5f 50 41 | READ_PA| .TXT 15,'READ_PARITY.TYP' 000207fe 00 | | .CONST 0x0 000207ff 06 | | .CONST 0x6 ; DIPROC address 00020800 01 | | .CONST 0x1 ; Output Parameters 00020801 00 | | .CONST 0x0 ; Input Parameters 00020802 00 | | .CONST 0x0 ; Out arg [1] 00020803 00 | | .PAD 0x0 00020804 exp_CHECK_WDR_PARITY.TYP(&Sr_8_1, &Fr): 00020804 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002080a 00 10 | | .CONST 0x0010 ; Stack-delta 0002080c 14 43 48 45 43 4b 5f 57 | CHECK_W| .TXT 20,'CHECK_WDR_PARITY.TYP' 00020821 00 | | .CONST 0x0 00020822 06 | | .CONST 0x6 ; DIPROC address 00020823 02 | | .CONST 0x2 ; Output Parameters 00020824 00 | | .CONST 0x0 ; Input Parameters 00020825 0d | | .CONST 0xd ; Out arg [8, 1] 00020826 08 | | .CONST 0x8 ; Out arg flag 00020827 00 | | .PAD 0x0 00020828 exp_READ_PARITY.VAL(&Sr_1): 00020828 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002082e 00 0c | | .CONST 0x000c ; Stack-delta 00020830 0f 52 45 41 44 5f 50 41 | READ_PA| .TXT 15,'READ_PARITY.VAL' 00020840 00 | | .CONST 0x0 00020841 07 | | .CONST 0x7 ; DIPROC address 00020842 01 | | .CONST 0x1 ; Output Parameters 00020843 00 | | .CONST 0x0 ; Input Parameters 00020844 00 | | .CONST 0x0 ; Out arg [1] 00020845 00 | | .PAD 0x0 00020846 exp_CHECK_WDR_PARITY.VAL(&Sr_8_1, &Fr): 00020846 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002084c 00 10 | | .CONST 0x0010 ; Stack-delta 0002084e 14 43 48 45 43 4b 5f 57 | CHECK_W| .TXT 20,'CHECK_WDR_PARITY.VAL' 00020863 00 | | .CONST 0x0 00020864 07 | | .CONST 0x7 ; DIPROC address 00020865 02 | | .CONST 0x2 ; Output Parameters 00020866 00 | | .CONST 0x0 ; Input Parameters 00020867 0d | | .CONST 0xd ; Out arg [8, 1] 00020868 08 | | .CONST 0x8 ; Out arg flag 00020869 00 | | .PAD 0x0 0002086a exp_READ_PAREG.IOC(Sw_1, &Sr_1): 0002086a 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00020870 00 0e | | .CONST 0x000e ; Stack-delta 00020872 0e 52 45 41 44 5f 50 41 | READ_PA| .TXT 14,'READ_PAREG.IOC' 00020881 00 | | .CONST 0x0 00020882 04 | | .CONST 0x4 ; DIPROC address 00020883 01 | | .CONST 0x1 ; Output Parameters 00020884 01 | | .CONST 0x1 ; Input Parameters 00020885 00 | | .CONST 0x0 ; In arg [1] 00020886 00 | | .CONST 0x0 ; Out arg [1] 00020887 00 | | .PAD 0x0 00020888 exp_READ_LAST_PC.IOC(&Sr_2): 00020888 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002088e 00 0c | | .CONST 0x000c ; Stack-delta 00020890 10 52 45 41 44 5f 4c 41 | READ_LA| .TXT 16,'READ_LAST_PC.IOC' 000208a1 00 | | .CONST 0x0 000208a2 04 | | .CONST 0x4 ; DIPROC address 000208a3 01 | | .CONST 0x1 ; Output Parameters 000208a4 00 | | .CONST 0x0 ; Input Parameters 000208a5 01 | | .CONST 0x1 ; Out arg [2] 000208a6 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 000208b4 ; -------------------------------------------------------------------------------------- 000208b4 ; OMSI PASCAL Function 000208b4 ; <LVAR 0x008 1(r)> 000208b4 ; -------------------------------------------------------------------------------------- 000208b4 PROG_FAIL: 000208b4 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 000208b8 bf d5 | | CMPA.L (A5),A7 000208ba 62 06 |b | BHI 0x208c2 000208bc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000208c0 4e 76 |Nv | TRAPV 000208c2 de fc 00 2c | , | ADDA.W #0x2c,A7 000208c6 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000208ca 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 000208ce 70 06 |p | MOVEQ.L #0x06,D0 000208d0 3f 20 |? | MOVE.W -(A0),-(A7) 000208d2 51 c8 ff fc |Q | DBF D0,0x208d0 000208d6 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000208da 51 4f |QO | SUBQ.L #0x8,A7 000208dc 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000208e0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000208e4 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000208e8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000208ee 58 4f |XO | ADDQ.L #0x4,A7 000208f0 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000208f4 48 80 |H | EXTB.W D0 000208f6 48 c0 |H | EXTW.L D0 000208f8 2f 00 |/ | MOVE.L D0,-(A7) 000208fa 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020900 58 4f |XO | ADDQ.L #0x4,A7 00020902 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020908 50 4f |PO | ADDQ.L #0x8,A7 0002090a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020910 de fc 00 14 | | ADDA.W #0x14,A7 00020914 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020918 4e 5e |N^ | UNLK A6 0002091a 4e 75 |Nu | RTS