|
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: 2048 (0x800)
Types: M200
Notes: M200_PROGRAM
Names: »BOOTINFO.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »BOOTINFO.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »BOOTINFO.M200«
└─ ⟦this⟧ »BOOTINFO.M200«
@ 2019c
<LVAR -0x004 @ 1(r)>
<POP 2019c-20238 Body>
<POP 2019c-201b2 Prologue> Σ0 ↓
<POP 201b2-201b6 RegCacheLoad> Σ0 ↓
<POP 201b6-201fe Naked> Σ0 ↓ →0x20230
<Blob 0x201b6 [20] @> Δ-20 {[«20""»]}
<POP 201c8-201ca StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x201ca 19> {[«20""»]|[$$CURRENT.M200_CONFIG]}
<MI 201dc MOVEA.L (A7)+,A4> Δ+4 {[«20""»]}
<POP 201de-201e0 StackAdj> Δ+16 {[-4-]}
<MI 201e0 MOVE.L A4,(A7)> {[4, 'A4']}
<Const 0x201e2 0x3.4> Δ-4 {[4, 'A4']|[##3]}
<Const 0x201e6 0x20b62.4> Δ-4 {[4, 'A4']|[##3]|[##133986]}
<Pointer.fp 0x201ec <LVAR -0x004 @ 1(r)>> Δ-4 {[4, 'A4']|[##3]|[##133986]|[@@-4]}
<Call 0x201f0 0x1056e> {[4, 'A4']|[##3]|[##133986]|[@@-4]}
Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
<POP 201f6-201f8 StackAdj> Δ+16 {}
<MI 201f8 TST.B (A6-0x4)> {}
<MI 201fc BNE 0x20230> {}
<POP 201fe-20230 Naked> Σ0 ↓
<Blob 0x201fe [38] @> Δ-38 {[«38""»]}
<MI 20210 CLR.B -(A7)> Δ-2 {[«38""»]|[#0]}
<POP 20212-20214 StackAdj> Δ-4 {[«38""»]|[#0]|[-4-]}
<Lit 0x20214 37> {[«38""»]|[#0]|[$$Can't read configuration information.]}
<Call 0x20226 0x103b8> {[«38""»]|[#0]|[$$Can't read configuration information.]}
PopProgram(status : Byte; msg : String)
<POP 2022c-20230 StackAdj> Δ+44 {}
<POP 20230-20238 Epilogue> Σ0 ←0x201b6
@ 20238
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(rw)>
<POP 20238-202ac Body>
<POP 20238-2024e Prologue> Σ0 ↓
<POP 2024e-20250 Naked> Σ0 ↓
<MI 2024e MOVEQ.L #0x00,D6> {}
<POP 20250-2026e Naked> Σ0 ↓ →0x20274 ←0x20294
<MI 20250 MOVE.L (A6+0x8),D0> {}
<POP 0x20254 LimitCheck 0x0 ≤ D0 ≤ 0x1ff> {}
<MI 2025e ASL.L #0x1,D0> {}
<MI 20260 LEA.L 0x2075a,A0> {}
<MI 20266 MOVE.W (A0+D0.L+#0x8),D7> {}
<MI 2026a TST.B D6> {}
<MI 2026c BEQ 0x20274> {}
<POP 2026e-20274 Naked> Σ0 →0x20276
<MI 2026e ADDQ.L #0x1,(A6+0x8)> {}
<MI 20272 BRA 0x20276> {}
<POP 20274-20276 Naked> Σ0 ↓ ←0x20250
<MI 20274 LSR.W #0x8,D7> {}
<POP 20276-20282 Naked> Σ0 ↓ →0x20294 ←0x2026e
<MI 20276 ANDI.W #0x00ff,D7> {}
<MI 2027a NEG.B D6> {}
<MI 2027c ADDQ.B #0x1,D6> {}
<MI 2027e TST.W D7> {}
<MI 20280 BEQ 0x20294> {}
<POP 20282-20294 Naked> Σ0 ↓
<MI 20282 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<POP 0x20286 LimitCheck 0x0 ≤ D7 ≤ 0xff> {[4, '(A6+0xc)']}
<MI 2028a MOVE.B D7,-(A7)> Δ-2 {[4, '(A6+0xc)']|[2, 'D7']}
<Call 0x2028c 0x102c0> {[4, '(A6+0xc)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 20292-20294 StackAdj> Δ+6 {}
<POP 20294-20298 Naked> Σ0 ↓ →0x20250 ←0x20276
<MI 20294 TST.W D7> {}
<MI 20296 BNE 0x20250> {}
<POP 20298-202a4 Naked> Σ0 ↓
<MI 20298 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x2029c 0x103e0> {[4, '(A6+0xc)']}
WriteConsoleStringCrLf(str : String)
<POP 202a2-202a4 StackAdj> Δ+4 {}
<POP 202a4-202ac Epilogue> Σ0
@ 202ac
<LVAR -0x006 @ 4(rw)>
<LVAR -0x00a @ 4(r)>
<LVAR -0x00c @ 1(r)>
<LVAR -0x010 @ 4(rw)>
<POP 202ac-2045e Body>
<POP 202ac-202c2 Prologue> Σ0 ↓
<POP 202c2-202dc RegCacheLoad> Σ0 ↓
<POP 202dc-20364 Naked> Σ0 Δ-30 ↓ →0x20376
<Blob 0x202dc [30] 0x20b95> Δ-30 {[«30»]}
<POP 202ee-202f0 StackAdj> Δ-4 {[«30»]|[-4-]}
<Lit 0x202f0> {[«30»]|[$$…]}
<Pointer.sp 0x202f0 4> Δ-4
<Const 0x202f4 0x1.2> Δ-2
<Const 0x202f6 0x1e.2> Δ-2
<Call 0x202f8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 202fa-202fc StackAdj> Δ+8
<MI 202fc MOVEA.L (A7)+,A0> Δ+4 {[«30»]}
<MI 202fe MOVE.L A0,(A6-0x10)> {[«30»]}
<Blob 0x20300 [20] @> Δ-20 {[«30»]|[«20""»]}
<POP 2030c-2030e StackAdj> Δ-8 {[«30»]|[«20""»]|[-8-]}
<Lit 0x2030e 20> {[«30»]|[«20""»]|[-4-]|[$$Microcode file :_]}
<MI 20318 MOVE.L A0,(A7)> {[«30»]|[«20""»]|[-4-]|[4, 'A0']}
<POP 20316-20318 StackAdj> Δ-8 {[«30»]|[«20""»]|[-4-]|[4, 'A0']|[-8-]}
<Call 0x2031a 0x102cc> {[«30»]|[«20""»]|[-4-]|[4, 'A0']|[-8-]}
StringDup(a : String) : String
<POP 20320-20322 StackAdj> Δ+4 {[«30»]|[«20""»]|[-4-]|[4, 'A0']|[-4-]}
<Call 0x20322 0x102d0> {[«30»]|[«20""»]|[-4-]|[4, 'A0']|[-4-]}
StringCat2(a, b : String) : String
<POP 20328-2032a StackAdj> Δ+8 {[«30»]|[«20""»]|[-4-]}
<Call 0x2032a 0x103e0> {[«30»]|[«20""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20330-20334 StackAdj> Δ+22 {[«30»]|[-2-]}
<POP 20334-20335 StackAdj> Δ+2 {[«30»]}
<Blob 0x20335 [2] @> Δ-2 {[«30»]|[«2""»]}
<Blob 0x20338 [2] @> Δ-2 {[«30»]|[«2""»]|[«2""»]}
<Blob 0x2033c [2] @> Δ-2 {[«30»]|[«2""»]|[«2""»]|[«2""»]}
<POP 20340-20342 StackAdj> Δ-4 {[«30»]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x20342 6> {[«30»]|[«2""»]|[«2""»]|[«2""»]|[$$.UCODE]}
<MI 20350 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«30»]|[«2""»]|[«2""»]|[«2""»]}
<POP 20352-20354 StackAdj> Δ+2 {[«30»]|[«2""»]|[«2""»]}
<MI 20354 MOVE.L A0,-(A7)> Δ-4 {[«30»]|[«2""»]|[«2""»]|[4, 'A0']}
<MI 20356 MOVE.L (A6-0x6),-(A7)> Δ-4 {[«30»]|[«2""»]|[«2""»]|[4, 'A0']|[4, '(A6-0x6)']}
<Call 0x20358 0x10300> {[«30»]|[«2""»]|[«2""»]|[4, 'A0']|[4, '(A6-0x6)']}
FSCALL_10300
<POP 2035e-20360 StackAdj> Δ+8 {[«30»]|[«2""»]|[«2""»]}
<MI 20360 TST.L (A7)+> Δ+4 {[«30»]}
<MI 20362 BNE 0x20376> {[«30»]}
<POP 20364-20376 Naked> Σ-30 →0x20380
<POP 20364-20366 StackAdj> Δ-4 {[-34-]}
<MI 20366 MOVE.L A0,-(A7)> Δ-4 {[-34-]|[4, 'A0']}
<MI 20368 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-34-]|[4, 'A0']|[4, '(A6-0x6)']}
<Call 0x2036a 0x102d0> {[-34-]|[4, 'A0']|[4, '(A6-0x6)']}
StringCat2(a, b : String) : String
<POP 20370-20372 StackAdj> Δ+8 {[-34-]}
<MI 20372 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-30-]}
<MI 20374 BRA 0x20380> {[-30-]}
<POP 20376-20380 Naked> Σ-30 ↓ ←0x202dc
<Pointer.fp 0x20376 <LVAR -0x006 @ 4(rw)>> Δ-4 {[-30-]|[@@-6]}
<Call 0x20378 0x102bc> {[-30-]|[@@-6]}
FreeString(VAR a : String)
<POP 2037e-20380 StackAdj> Δ+4 {[-30-]}
<POP 20380-203a4 Naked> Σ-30 Δ+30 ↓ →0x2044c ←0x20364
<POP 20380-20382 StackAdj> Δ+26 {[-4-]}
<MI 20382 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 20384 CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]}
<MI 20386 CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]|[#0]}
<Const 0x20388 0x0.4> Δ-4 {[4, '(A6-0x10)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x2038c <LVAR -0x00c @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#0]|[##0]|[@@-12]}
<Pointer.fp 0x20390 <LVAR -0x00a @ 4(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#0]|[##0]|[@@-12]|[@@-10]}
<Call 0x20394 0x10380> {[4, '(A6-0x10)']|[#0]|[#0]|[##0]|[@@-12]|[@@-10]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 2039a-2039c StackAdj> Δ+20 {}
<MI 2039c TST.B (A6-0xc)> {}
<MI 203a0 BNE 0x2044c> {}
<POP 203a4-2044c Naked> Σ0 ↓
<MI 203a4 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 203a8 CLR.W -(A7)> Δ-2 {[4, '(A6-0xa)']|[#0]}
<MI 203aa CLR.W -(A7)> Δ-2 {[4, '(A6-0xa)']|[#0]|[#0]}
<Const 0x203ac 0x200.2> Δ-2 {[4, '(A6-0xa)']|[#0]|[#0]|[#512]}
<Const 0x203b0 0x2.2> Δ-2 {[4, '(A6-0xa)']|[#0]|[#0]|[#512]|[#2]}
<MI 203b2 LEA.L 0x20762,A0> {[4, '(A6-0xa)']|[#0]|[#0]|[#512]|[#2]}
<MI 203b8 MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0xa)']|[#0]|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x203ba <LVAR -0x00c @ 1(r)>> Δ-4 {[4, '(A6-0xa)']|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-12]}
<Call 0x203be 0x10384> {[4, '(A6-0xa)']|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-12]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 203c4-203c6 StackAdj> Δ+20 {}
<Blob 0x203c6 [20] @> Δ-20 {[«20""»]}
<POP 203d2-203d4 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x203d4 20> {[«20""»]|[$$Date of bind :_]}
<Const 0x203e0 0x4.4> Δ-4 {[«20""»]|[$$Date of bind :_]|[##4]}
<Call 0x203e4 0x20238> {[«20""»]|[$$Date of bind :_]|[##4]}
<POP 203e8-203ea StackAdj> Δ+28 {}
<Blob 0x203ea [20] @> Δ-20 {[«20""»]}
<POP 203f6-203f8 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x203f8 20> {[«20""»]|[$$Pathname of delta :_]}
<Const 0x20404 0x3c.4> Δ-4 {[«20""»]|[$$Pathname of delta :_]|[##60]}
<Call 0x20408 0x20238> {[«20""»]|[$$Pathname of delta :_]|[##60]}
<POP 2040c-2040e StackAdj> Δ+28 {}
<Blob 0x2040e [20] @> Δ-20 {[«20""»]}
<POP 2041a-2041c StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2041c 20> {[«20""»]|[$$Pathname of mom :_]}
<Const 0x20428 0x14.4> Δ-4 {[«20""»]|[$$Pathname of mom :_]|[##20]}
<Call 0x2042c 0x20238> {[«20""»]|[$$Pathname of mom :_]|[##20]}
<POP 20430-20432 StackAdj> Δ+26 {[-2-]}
<MI 20432 CLR.B (A7)> {[-2-]}
<Const 0x20434 0x2.2> Δ-2 {[-2-]|[#2]}
<Const 0x20436 0x1.4> Δ-4 {[-2-]|[#2]|[##1]}
<Pointer.fp 0x2043a <LVAR -0x00c @ 1(r)>> Δ-4 {[-2-]|[#2]|[##1]|[@@-12]}
<Pointer.fp 0x2043e <LVAR -0x00a @ 4(r)>> Δ-4 {[-2-]|[#2]|[##1]|[@@-12]|[@@-10]}
<Call 0x20442 0x1038c> {[-2-]|[#2]|[##1]|[@@-12]|[@@-10]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 20448-2044c StackAdj> Δ+16 {}
<POP 2044c-20456 Naked> Σ0 ↓ ←0x20380
<Pointer.fp 0x2044c <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x2044e 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 20454-20456 StackAdj> Δ+4 {}
<POP 20456-2045e Epilogue> Σ0
@ 2045e
<POP 2045e-20524 Body>
<POP 2045e-20474 Prologue> Σ0 ↓
<POP 20474-2047a RegCacheLoad> Σ0 ↓
<POP 2047a-20482 Naked> Σ0 ↓ →0x20486
<MI 2047a TST.B 0x20b67> {}
<MI 20480 BEQ 0x20486> {}
<POP 20482-20486 Naked> Σ0 →0x20488
<MI 20482 MOVEQ.L #0x04,D6> {}
<MI 20484 BRA 0x20488> {}
<POP 20486-20488 Naked> Σ0 ↓ ←0x2047a
<MI 20486 MOVEQ.L #0x09,D6> {}
<POP 20488-20490 Naked> Σ0 Δ-2 ↓ →0x2049a ←0x20482
<MI 20488 MOVE.B D6,-(A7)> Δ-2 {[2, 'D6']}
<MI 2048a MOVEQ.L #0x00,D7> {[2, 'D6']}
<MI 2048c CMP.B (A7),D7> {[2, 'D6']}
<MI 2048e BGT 0x2049a> {[2, 'D6']}
<POP 20490-2049a Naked> Σ-2 ↓
<MI 20490 MOVE.B (A7),D0> {[-2-]}
<POP 0x20492 LimitCheck D0 ≤ 0x9> {[-2-]}
<MI 20492 CMPI.B #0x09,D0>
<MI 20496 BLE 0x2049a>
<MI 20498 TRAP #15>
<POP 2049a-2049e Naked> Σ-2 ↓ →0x2051a ←0x20488 ←0x2049e
<MI 2049a CMP.B (A7),D7> {[-2-]}
<MI 2049c BGT 0x2051a> {[-2-]}
<POP 2049e-2051a Naked> Σ-2 ↓ →0x2049a
<MI 2049e MOVE.B D7,D0> {[-2-]}
<MI 204a0 EXTB.W D0> {[-2-]}
<MI 204a2 ASL.W #0x5,D0> {[-2-]}
<MI 204a4 LEA.L 0x2075a,A0> {[-2-]}
<MI 204aa LEA.L (A0+D0.W),A0> {[-2-]}
<Blob 0x204ae [30] (A0+0x45b)> Δ-30 {[-2-]|[«30»]}
<POP 204be-204c0 StackAdj> Δ-4 {[-2-]|[«30»]|[-4-]}
<Lit 0x204c0> {[-2-]|[«30»]|[$$…]}
<Pointer.sp 0x204c0 4> Δ-4
<Const 0x204c4 0x1.2> Δ-2
<Const 0x204c6 0x1e.2> Δ-2
<Call 0x204c8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 204ce-204d0 StackAdj> Δ+8
<MI 204d0 MOVEA.L (A7)+,A4> Δ+4 {[-2-]|[«30»]}
<POP 204d2-204d6 StackAdj> Δ+28 {[-2-]|[-2-]}
<POP 204d6-204d7 StackAdj> Δ+2 {[-2-]}
<Blob 0x204d7 [2] @> Δ-2 {[-2-]|[«2""»]}
<POP 204da-204dc StackAdj> Δ-12 {[-2-]|[«2""»]|[-12-]}
<MI 204dc MOVE.B D7,-(A7)> Δ-2 {[-2-]|[«2""»]|[-12-]|[2, 'D7']}
<Call 0x204de 0x10586> {[-2-]|[«2""»]|[-12-]|[2, 'D7']}
Config_Entry_Name(a : Byte) : String
<POP 204e4-204e6 StackAdj> Δ+2 {[-2-]|[«2""»]|[-12-]}
<Const 0x204e6 0x15.4> Δ-4 {[-2-]|[«2""»]|[-12-]|[##21]}
<Call 0x204ea 0x102f8> {[-2-]|[«2""»]|[-12-]|[##21]}
LeftPad(a : String; b : Long) : String
<POP 204f0-204f2 StackAdj> Δ+4 {[-2-]|[«2""»]|[-12-]}
<Lit 0x204f2 2> {[-2-]|[«2""»]|[-8-]|[$$:_]}
<POP 20502-20504 StackAdj> Δ-4 {[-2-]|[«2""»]|[-8-]|[$$:_]|[-4-]}
<MI 20504 MOVE.L A4,(A7)> {[-2-]|[«2""»]|[-8-]|[$$:_]|[4, 'A4']}
<Call 0x20506 0x102d4> {[-2-]|[«2""»]|[-8-]|[$$:_]|[4, 'A4']}
StringCat3(a, b, c : String) : String
<POP 2050c-2050e StackAdj> Δ+12 {[-2-]|[«2""»]|[-4-]}
<Call 0x2050e 0x103e0> {[-2-]|[«2""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20514-20516 StackAdj> Δ+6 {[-2-]}
<MI 20516 ADDQ.B #0x1,D7> {[-2-]}
<MI 20518 BVC 0x2049a> {[-2-]}
<POP 2051a-2051c Naked> Σ-2 Δ+2 ↓ ←0x2049a
<POP 2051a-2051c StackAdj> Δ+2 {}
<POP 2051c-20524 Epilogue> Σ0
@ 20524
START
<POP 20524--0001 Body>
<POP 20524-2052e Prologue> Σ0
<POP 2052e-2054e Naked> Σ0 ↓
<Call 0x2052e 0x10398> {}
FSCALL_10398
<Call 0x20534 0x2019c> {}
<Call 0x20538 0x202ac> {}
<Call 0x2053c 0x2045e> {}
<MI 20540 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x20542 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x20546 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 2054c-2054e StackAdj> Δ+6 {}
<POP 2054e-20554 Naked> Σ0
<Call 0x2054e 0x10284> {}
?exit
@ 20562
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 20562-205ca Body>
<POP 20562-20578 Prologue> Σ0 ↓
<POP 20578-205c2 Naked> Σ0 ↓
<Blob 0x20578 [14] @> Δ-14 {[«14""»]}
<Const 0x20584 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 20588-2058a StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x2058a 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 2059c-2059e StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2059e MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 205a2 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 205a4 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 205a6 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x205a8 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 205ae-205b0 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x205b0 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 205b6-205b8 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x205b8 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 205be-205c2 StackAdj> Δ+20 {}
<POP 205c2-205ca Epilogue> Σ0
@ 2061e
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 2061e-2075a Body>
<POP 2061e-20634 Prologue> Σ0 ↓
<POP 20634-2064a RegCacheLoad> Σ0 ↓
<POP 2064a-206aa Naked> Σ0 ↓ →0x206f2
<Call 0x2064a 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x20650 [18] @> Δ-18 {[«18""»]}
<POP 2065c-2065e StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2065e 18> {[«18""»]|[$$Experiment error :]}
<Call 0x2066a 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 2066c-2066d StackAdj> Δ+22 ↓ {}
<Blob 0x2066d [14] @> Δ-14 {[«14""»]}
<POP 2067c-2067e StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x2067e 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 20688-2068a StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 2068a MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x2068e 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 20694-20696 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x20696 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2069c-2069e StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2069e 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 206a0-206a2 StackAdj> Δ+18 {}
<MI 206a2 MOVEA.L (A6+0xa),A0> {}
<MI 206a6 CMPA.W #0x01,A0> {}
<MI 206a8 BEQ 0x206f2> {}
<POP 206aa-206f2 Naked> Σ0 ↓
<Blob 0x206aa [14] @> Δ-14 {[«14""»]}
<Blob 0x206ba [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 206ca-206cc StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x206cc 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 206d6-206d8 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x206d8> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x206d8 12> Δ-4
<Const 0x206dc 0x1.2> Δ-2
<Const 0x206de 0x1e.2> Δ-2
<Call 0x206e0 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 206e2-206e4 StackAdj> Δ+8
<Call 0x206e4 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 206ea-206ec StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x206ec 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 206ee-206f2 StackAdj> Δ+48 {}
<POP 206f2-20752 Naked> Σ0 ↓ ←0x2064a
<Blob 0x206f2 [14] @> Δ-14 {[«14""»]}
<POP 20702-20704 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20704 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 2070e-20710 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 20710 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x20714 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 2071a-2071c StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x2071c 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20722-20724 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20724 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20726-20727 StackAdj> Δ+18 ↓ {}
<Blob 0x20727 [24] @> Δ-24 {[«24""»]}
<Const 0x20736 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 2073a-2073c StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x2073c 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x2074a 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 20750-20752 StackAdj> Δ+30 {}
<POP 20752-2075a Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.60af7dc73792ba40 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 05 24 | $ | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 0d 06 | | .PTR 0x20d06 00020010 code.end: 00020010 00 02 07 5a | Z | .PTR 0x2075a 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 05 62 | b | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 06 1e | | .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 43 61 6e 27 74 20 72 65 |Can't re| .TXT 'Can't read configuration information. ' 00020130 43 55 52 52 45 4e 54 2e |CURRENT.| .TXT 'CURRENT.M200_CONFIG ' 00020144 4d 69 63 72 6f 63 6f 64 |Microcod| .TXT 'Microcode file :_' 00020158 44 61 74 65 20 6f 66 20 |Date of | .TXT 'Date of bind :_' 0002016c 50 61 74 68 6e 61 6d 65 |Pathname| .TXT 'Pathname of delta :_' 00020180 50 61 74 68 6e 61 6d 65 |Pathname| .TXT 'Pathname of mom :_' 00020194 2e 55 |.U | .TXT '.U' 00020196 43 4f |CO | .TXT 'CO' 00020198 44 45 |DE | .TXT 'DE' 0002019a 3a 5f |:_ | .TXT ':_' 0002019c ; -------------------------------------------------------------------------------------- 0002019c ; OMSI PASCAL Function 0002019c ; <LVAR -0x004 @ 1(r)> 0002019c ; -------------------------------------------------------------------------------------- 0002019c 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 000201a0 bf d5 | | CMPA.L (A5),A7 000201a2 62 06 |b | BHI 0x201aa 000201a4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000201a8 4e 76 |Nv | TRAPV 000201aa de fc 00 50 | P | ADDA.W #0x50,A7 000201ae 48 e7 e0 c8 |H | MOVEM.L A4+A1+A0+D2+D1+D0,-(A7) 000201b2 72 01 |r | MOVEQ.L #0x01,D1 000201b4 74 10 |t | MOVEQ.L #0x10,D2 000201b6 9e fc 00 14 | | SUBA.W #0x14,A7 000201ba 20 4f | O | MOVEA.L A7,A0 000201bc 43 fa ff 72 |C r | LEA.L 0x20130,A1 000201c0 70 12 |p | MOVEQ.L #0x12,D0 000201c2 10 d9 | | MOVE.B (A1)+,(A0)+ 000201c4 51 c8 ff fc |Q | DBF D0,0x201c2 000201c8 59 4f |YO | SUBQ.L #0x4,A7 000201ca 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000201ce 3f 01 |? | MOVE.W D1,-(A7) 000201d0 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000201d4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000201da 50 4f |PO | ADDQ.L #0x8,A7 000201dc 28 5f |(_ | MOVEA.L (A7)+,A4 000201de de c2 | | ADDA.W D2,A7 000201e0 2e 8c |. | MOVE.L A4,(A7) 000201e2 48 78 00 03 |Hx | PEA.L 0x3 000201e6 48 79 00 02 0b 62 |Hy b | PEA.L 0x20b62 000201ec 48 6e ff fc |Hn | PEA.L (A6-0x4) 000201f0 4e b9 00 01 05 6e |N n | JSR Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool) 000201f6 de c2 | | ADDA.W D2,A7 000201f8 4a 2e ff fc |J. | TST.B (A6-0x4) 000201fc 66 32 |f2 | BNE 0x20230 000201fe 9e fc 00 26 | & | SUBA.W #0x26,A7 00020202 20 4f | O | MOVEA.L A7,A0 00020204 43 fa ff 04 |C | LEA.L 0x2010a,A1 00020208 70 24 |p$ | MOVEQ.L #0x24,D0 0002020a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002020c 51 c8 ff fc |Q | DBF D0,0x2020a 00020210 42 27 |B' | CLR.B -(A7) 00020212 59 4f |YO | SUBQ.L #0x4,A7 00020214 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020218 3f 01 |? | MOVE.W D1,-(A7) 0002021a 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7) 0002021e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020224 50 4f |PO | ADDQ.L #0x8,A7 00020226 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002022c de fc 00 2c | , | ADDA.W #0x2c,A7 00020230 4c df 13 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A4 00020234 4e 5e |N^ | UNLK A6 00020236 4e 75 |Nu | RTS 00020238 ; -------------------------------------------------------------------------------------- 00020238 ; OMSI PASCAL Function 00020238 ; <LVAR 0x00c 4(r)> 00020238 ; <LVAR 0x008 4(rw)> 00020238 ; -------------------------------------------------------------------------------------- 00020238 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 0002023c bf d5 | | CMPA.L (A5),A7 0002023e 62 06 |b | BHI 0x20246 00020240 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020244 4e 76 |Nv | TRAPV 00020246 de fc 00 1a | | ADDA.W #0x1a,A7 0002024a 48 e7 83 80 |H | MOVEM.L A0+D7+D6+D0,-(A7) 0002024e 7c 00 || | MOVEQ.L #0x00,D6 00020250 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 00020254 0c 80 00 00 01 ff | | CMPI.L #0x000001ff,D0 0002025a 63 02 |c | BLS 0x2025e 0002025c 4e 4f |NO | TRAP #15 0002025e e3 80 | | ASL.L #0x1,D0 00020260 41 f9 00 02 07 5a |A Z | LEA.L 0x2075a,A0 00020266 3e 30 08 08 |>0 | MOVE.W (A0+D0.L+#0x8),D7 0002026a 4a 06 |J | TST.B D6 0002026c 67 06 |g | BEQ 0x20274 0002026e 52 ae 00 08 |R | ADDQ.L #0x1,(A6+0x8) 00020272 60 02 |` | BRA 0x20276 00020274 e0 4f | O | LSR.W #0x8,D7 00020276 02 47 00 ff | G | ANDI.W #0x00ff,D7 0002027a 44 06 |D | NEG.B D6 0002027c 52 06 |R | ADDQ.B #0x1,D6 0002027e 4a 47 |JG | TST.W D7 00020280 67 12 |g | BEQ 0x20294 00020282 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00020286 4f bc 00 ff |O | CHK.W #0xff,D7 0002028a 1f 07 | | MOVE.B D7,-(A7) 0002028c 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020292 5c 4f |\O | ADDQ.L #0x6,A7 00020294 4a 47 |JG | TST.W D7 00020296 66 b8 |f | BNE 0x20250 00020298 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002029c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000202a2 58 4f |XO | ADDQ.L #0x4,A7 000202a4 4c df 01 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0 000202a8 4e 5e |N^ | UNLK A6 000202aa 4e 75 |Nu | RTS 000202ac ; -------------------------------------------------------------------------------------- 000202ac ; OMSI PASCAL Function 000202ac ; <LVAR -0x006 @ 4(rw)> 000202ac ; <LVAR -0x00a @ 4(r)> 000202ac ; <LVAR -0x00c @ 1(r)> 000202ac ; <LVAR -0x010 @ 4(rw)> 000202ac ; -------------------------------------------------------------------------------------- 000202ac 4e 56 ff 76 |NV v | LINK.W A6,#0xff76 000202b0 bf d5 | | CMPA.L (A5),A7 000202b2 62 06 |b | BHI 0x202ba 000202b4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000202b8 4e 76 |Nv | TRAPV 000202ba de fc 00 7a | z | ADDA.W #0x7a,A7 000202be 48 e7 fe f8 |H | MOVEM.L A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7) 000202c2 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000202c8 47 ee ff f0 |G | LEA.L (A6-0x10),A3 000202cc 49 ee ff fa |I | LEA.L (A6-0x6),A4 000202d0 72 01 |r | MOVEQ.L #0x01,D1 000202d2 74 14 |t | MOVEQ.L #0x14,D2 000202d4 76 1e |v | MOVEQ.L #0x1e,D3 000202d6 78 1a |x | MOVEQ.L #0x1a,D4 000202d8 7a 02 |z | MOVEQ.L #0x02,D5 000202da 7c 1c || | MOVEQ.L #0x1c,D6 000202dc 9e c3 | | SUBA.W D3,A7 000202de 20 4f | O | MOVEA.L A7,A0 000202e0 43 f9 00 02 0b 95 |C | LEA.L 0x20b95,A1 000202e6 70 1d |p | MOVEQ.L #0x1d,D0 000202e8 10 d9 | | MOVE.B (A1)+,(A0)+ 000202ea 51 c8 ff fc |Q | DBF D0,0x202e8 000202ee 59 4f |YO | SUBQ.L #0x4,A7 000202f0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000202f4 3f 01 |? | MOVE.W D1,-(A7) 000202f6 3f 03 |? | MOVE.W D3,-(A7) 000202f8 4e 92 |N | JSR (A2) 000202fa 50 4f |PO | ADDQ.L #0x8,A7 000202fc 20 5f | _ | MOVEA.L (A7)+,A0 000202fe 26 88 |& | MOVE.L A0,(A3) 00020300 43 fa fe 56 |C V | LEA.L 0x20158,A1 00020304 70 04 |p | MOVEQ.L #0x04,D0 00020306 2f 21 |/! | MOVE.L -(A1),-(A7) 00020308 51 c8 ff fc |Q | DBF D0,0x20306 0002030c 51 4f |QO | SUBQ.L #0x8,A7 0002030e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020312 3f 01 |? | MOVE.W D1,-(A7) 00020314 3f 02 |? | MOVE.W D2,-(A7) 00020316 4e 92 |N | JSR (A2) 00020318 2e 88 |. | MOVE.L A0,(A7) 0002031a 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020320 58 4f |XO | ADDQ.L #0x4,A7 00020322 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020328 50 4f |PO | ADDQ.L #0x8,A7 0002032a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020330 de fc 00 16 | | ADDA.W #0x16,A7 00020334 3e ba fe 62 |> b | MOVE.W 0x20198,(A7) 00020338 3f 3a fe 5c |?: \ | MOVE.W 0x20196,-(A7) 0002033c 3f 3a fe 56 |?: V | MOVE.W 0x20194,-(A7) 00020340 59 4f |YO | SUBQ.L #0x4,A7 00020342 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020346 3f 01 |? | MOVE.W D1,-(A7) 00020348 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 0002034c 4e 92 |N | JSR (A2) 0002034e 50 4f |PO | ADDQ.L #0x8,A7 00020350 28 9f |( | MOVE.L (A7)+,(A4) 00020352 54 4f |TO | ADDQ.L #0x2,A7 00020354 2f 08 |/ | MOVE.L A0,-(A7) 00020356 2f 14 |/ | MOVE.L (A4),-(A7) 00020358 4e b9 00 01 03 00 |N | JSR FSCALL_10300 0002035e 50 4f |PO | ADDQ.L #0x8,A7 00020360 4a 9f |J | TST.L (A7)+ 00020362 66 12 |f | BNE 0x20376 00020364 59 4f |YO | SUBQ.L #0x4,A7 00020366 2f 08 |/ | MOVE.L A0,-(A7) 00020368 2f 14 |/ | MOVE.L (A4),-(A7) 0002036a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020370 50 4f |PO | ADDQ.L #0x8,A7 00020372 26 9f |& | MOVE.L (A7)+,(A3) 00020374 60 0a |` | BRA 0x20380 00020376 48 54 |HT | PEA.L (A4) 00020378 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002037e 58 4f |XO | ADDQ.L #0x4,A7 00020380 de c4 | | ADDA.W D4,A7 00020382 2e 93 |. | MOVE.L (A3),(A7) 00020384 42 27 |B' | CLR.B -(A7) 00020386 42 27 |B' | CLR.B -(A7) 00020388 48 78 00 00 |Hx | PEA.L 0x0 0002038c 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00020390 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00020394 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 0002039a de c2 | | ADDA.W D2,A7 0002039c 4a 2e ff f4 |J. | TST.B (A6-0xc) 000203a0 66 00 00 aa |f | BNE 0x2044c 000203a4 2f 2e ff f6 |/. | MOVE.L (A6-0xa),-(A7) 000203a8 42 67 |Bg | CLR.W -(A7) 000203aa 42 67 |Bg | CLR.W -(A7) 000203ac 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 000203b0 1f 05 | | MOVE.B D5,-(A7) 000203b2 41 f9 00 02 07 62 |A b | LEA.L 0x20762,A0 000203b8 2f 08 |/ | MOVE.L A0,-(A7) 000203ba 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000203be 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 000203c4 de c2 | | ADDA.W D2,A7 000203c6 41 fa fd a4 |A | LEA.L 0x2016c,A0 000203ca 70 04 |p | MOVEQ.L #0x04,D0 000203cc 2f 20 |/ | MOVE.L -(A0),-(A7) 000203ce 51 c8 ff fc |Q | DBF D0,0x203cc 000203d2 59 4f |YO | SUBQ.L #0x4,A7 000203d4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000203d8 3f 01 |? | MOVE.W D1,-(A7) 000203da 3f 02 |? | MOVE.W D2,-(A7) 000203dc 4e 92 |N | JSR (A2) 000203de 50 4f |PO | ADDQ.L #0x8,A7 000203e0 48 78 00 04 |Hx | PEA.L 0x4 000203e4 4e ba fe 52 |N R | JSR 0x20238 000203e8 de c6 | | ADDA.W D6,A7 000203ea 41 fa fd 94 |A | LEA.L 0x20180,A0 000203ee 70 04 |p | MOVEQ.L #0x04,D0 000203f0 2f 20 |/ | MOVE.L -(A0),-(A7) 000203f2 51 c8 ff fc |Q | DBF D0,0x203f0 000203f6 59 4f |YO | SUBQ.L #0x4,A7 000203f8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000203fc 3f 01 |? | MOVE.W D1,-(A7) 000203fe 3f 02 |? | MOVE.W D2,-(A7) 00020400 4e 92 |N | JSR (A2) 00020402 50 4f |PO | ADDQ.L #0x8,A7 00020404 48 78 00 3c |Hx < | PEA.L 0x3c 00020408 4e ba fe 2e |N . | JSR 0x20238 0002040c de c6 | | ADDA.W D6,A7 0002040e 41 fa fd 84 |A | LEA.L 0x20194,A0 00020412 70 04 |p | MOVEQ.L #0x04,D0 00020414 2f 20 |/ | MOVE.L -(A0),-(A7) 00020416 51 c8 ff fc |Q | DBF D0,0x20414 0002041a 59 4f |YO | SUBQ.L #0x4,A7 0002041c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020420 3f 01 |? | MOVE.W D1,-(A7) 00020422 3f 02 |? | MOVE.W D2,-(A7) 00020424 4e 92 |N | JSR (A2) 00020426 50 4f |PO | ADDQ.L #0x8,A7 00020428 48 78 00 14 |Hx | PEA.L 0x14 0002042c 4e ba fe 0a |N | JSR 0x20238 00020430 de c4 | | ADDA.W D4,A7 00020432 42 17 |B | CLR.B (A7) 00020434 1f 05 | | MOVE.B D5,-(A7) 00020436 48 78 00 01 |Hx | PEA.L 0x1 0002043a 48 6e ff f4 |Hn | PEA.L (A6-0xc) 0002043e 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00020442 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020448 de fc 00 10 | | ADDA.W #0x10,A7 0002044c 48 53 |HS | PEA.L (A3) 0002044e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020454 58 4f |XO | ADDQ.L #0x4,A7 00020456 4c df 1f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4 0002045a 4e 5e |N^ | UNLK A6 0002045c 4e 75 |Nu | RTS 0002045e ; -------------------------------------------------------------------------------------- 0002045e ; OMSI PASCAL Function 0002045e ; -------------------------------------------------------------------------------------- 0002045e 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00020462 bf d5 | | CMPA.L (A5),A7 00020464 62 06 |b | BHI 0x2046c 00020466 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002046a 4e 76 |Nv | TRAPV 0002046c de fc 00 58 | X | ADDA.W #0x58,A7 00020470 48 e7 f3 c8 |H | MOVEM.L A4+A1+A0+D7+D6+D3+D2+D1+D0,-(A7) 00020474 72 1e |r | MOVEQ.L #0x1e,D1 00020476 74 01 |t | MOVEQ.L #0x01,D2 00020478 76 0c |v | MOVEQ.L #0x0c,D3 0002047a 4a 39 00 02 0b 67 |J9 g | TST.B 0x20b67 00020480 67 04 |g | BEQ 0x20486 00020482 7c 04 || | MOVEQ.L #0x04,D6 00020484 60 02 |` | BRA 0x20488 00020486 7c 09 || | MOVEQ.L #0x09,D6 00020488 1f 06 | | MOVE.B D6,-(A7) 0002048a 7e 00 |~ | MOVEQ.L #0x00,D7 0002048c be 17 | | CMP.B (A7),D7 0002048e 6e 0a |n | BGT 0x2049a 00020490 10 17 | | MOVE.B (A7),D0 00020492 0c 00 00 09 | | CMPI.B #0x09,D0 00020496 6f 02 |o | BLE 0x2049a 00020498 4e 4f |NO | TRAP #15 0002049a be 17 | | CMP.B (A7),D7 0002049c 6e 7c |n| | BGT 0x2051a 0002049e 10 07 | | MOVE.B D7,D0 000204a0 48 80 |H | EXTB.W D0 000204a2 eb 40 | @ | ASL.W #0x5,D0 000204a4 41 f9 00 02 07 5a |A Z | LEA.L 0x2075a,A0 000204aa 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 000204ae 9e c1 | | SUBA.W D1,A7 000204b0 22 4f |"O | MOVEA.L A7,A1 000204b2 41 e8 04 5b |A [ | LEA.L (A0+0x45b),A0 000204b6 70 1d |p | MOVEQ.L #0x1d,D0 000204b8 12 d8 | | MOVE.B (A0)+,(A1)+ 000204ba 51 c8 ff fc |Q | DBF D0,0x204b8 000204be 59 4f |YO | SUBQ.L #0x4,A7 000204c0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000204c4 3f 02 |? | MOVE.W D2,-(A7) 000204c6 3f 01 |? | MOVE.W D1,-(A7) 000204c8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000204ce 50 4f |PO | ADDQ.L #0x8,A7 000204d0 28 5f |(_ | MOVEA.L (A7)+,A4 000204d2 de fc 00 1c | | ADDA.W #0x1c,A7 000204d6 3e ba fc c2 |> | MOVE.W 0x2019a,(A7) 000204da 9e c3 | | SUBA.W D3,A7 000204dc 1f 07 | | MOVE.B D7,-(A7) 000204de 4e b9 00 01 05 86 |N | JSR Config_Entry_Name(a : Byte) : String 000204e4 54 4f |TO | ADDQ.L #0x2,A7 000204e6 48 78 00 15 |Hx | PEA.L 0x15 000204ea 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String 000204f0 58 4f |XO | ADDQ.L #0x4,A7 000204f2 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000204f6 3f 02 |? | MOVE.W D2,-(A7) 000204f8 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000204fc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020502 58 4f |XO | ADDQ.L #0x4,A7 00020504 2e 8c |. | MOVE.L A4,(A7) 00020506 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 0002050c de c3 | | ADDA.W D3,A7 0002050e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020514 5c 4f |\O | ADDQ.L #0x6,A7 00020516 52 07 |R | ADDQ.B #0x1,D7 00020518 68 80 |h | BVC 0x2049a 0002051a 54 4f |TO | ADDQ.L #0x2,A7 0002051c 4c df 13 cf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A4 00020520 4e 5e |N^ | UNLK A6 00020522 4e 75 |Nu | RTS 00020524 ; -------------------------------------------------------------------------------------- 00020524 ; OMSI PASCAL Function 00020524 ; -------------------------------------------------------------------------------------- 00020524 START: 00020524 4f fa 00 08 |O | LEA.L MAIN,A7 00020528 4e f9 00 01 02 80 |N | JMP ?start_program 0002052e MAIN: 0002052e 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020534 4e ba fc 66 |N f | JSR 0x2019c 00020538 4e ba fd 72 |N r | JSR 0x202ac 0002053c 4e ba ff 20 |N | JSR 0x2045e 00020540 42 27 |B' | CLR.B -(A7) 00020542 48 78 00 01 |Hx | PEA.L 0x1 00020546 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002054c 5c 4f |\O | ADDQ.L #0x6,A7 0002054e 4e b9 00 01 02 84 |N | JSR ?exit 00020554 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00020562 ; -------------------------------------------------------------------------------------- 00020562 ; OMSI PASCAL Function 00020562 ; <LVAR 0x008 1(r)> 00020562 ; -------------------------------------------------------------------------------------- 00020562 PROG_FAIL: 00020562 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00020566 bf d5 | | CMPA.L (A5),A7 00020568 62 06 |b | BHI 0x20570 0002056a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002056e 4e 76 |Nv | TRAPV 00020570 de fc 00 2c | , | ADDA.W #0x2c,A7 00020574 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020578 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 0002057c 70 06 |p | MOVEQ.L #0x06,D0 0002057e 3f 20 |? | MOVE.W -(A0),-(A7) 00020580 51 c8 ff fc |Q | DBF D0,0x2057e 00020584 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00020588 51 4f |QO | SUBQ.L #0x8,A7 0002058a 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002058e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020592 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00020596 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002059c 58 4f |XO | ADDQ.L #0x4,A7 0002059e 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000205a2 48 80 |H | EXTB.W D0 000205a4 48 c0 |H | EXTW.L D0 000205a6 2f 00 |/ | MOVE.L D0,-(A7) 000205a8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000205ae 58 4f |XO | ADDQ.L #0x4,A7 000205b0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000205b6 50 4f |PO | ADDQ.L #0x8,A7 000205b8 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000205be de fc 00 14 | | ADDA.W #0x14,A7 000205c2 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000205c6 4e 5e |N^ | UNLK A6 000205c8 4e 75 |Nu | RTS 000205ca 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 000205d8 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 000205e6 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 000205f4 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00020606 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 0002061e ; -------------------------------------------------------------------------------------- 0002061e ; OMSI PASCAL Function 0002061e ; <LVAR 0x00e 1(r)> 0002061e ; <LVAR 0x00a 4(r)> 0002061e ; <LVAR 0x008 1(r)> 0002061e ; -------------------------------------------------------------------------------------- 0002061e EXP_FAIL: 0002061e 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00020622 bf d5 | | CMPA.L (A5),A7 00020624 62 06 |b | BHI 0x2062c 00020626 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002062a 4e 76 |Nv | TRAPV 0002062c de fc 00 74 | t | ADDA.W #0x74,A7 00020630 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00020634 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 0002063a 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00020640 72 01 |r | MOVEQ.L #0x01,D1 00020642 74 0d |t | MOVEQ.L #0x0d,D2 00020644 76 1e |v | MOVEQ.L #0x1e,D3 00020646 78 12 |x | MOVEQ.L #0x12,D4 00020648 7a 0e |z | MOVEQ.L #0x0e,D5 0002064a 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020650 41 fa ff b4 |A | LEA.L 0x20606,A0 00020654 70 08 |p | MOVEQ.L #0x08,D0 00020656 3f 20 |? | MOVE.W -(A0),-(A7) 00020658 51 c8 ff fc |Q | DBF D0,0x20656 0002065c 59 4f |YO | SUBQ.L #0x4,A7 0002065e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020662 3f 01 |? | MOVE.W D1,-(A7) 00020664 3f 04 |? | MOVE.W D4,-(A7) 00020666 4e 93 |N | JSR (A3) 00020668 50 4f |PO | ADDQ.L #0x8,A7 0002066a 4e 94 |N | JSR (A4) 0002066c 50 4f |PO | ADDQ.L #0x8,A7 0002066e 20 4f | O | MOVEA.L A7,A0 00020670 43 fa ff 58 |C X | LEA.L 0x205ca,A1 00020674 70 0c |p | MOVEQ.L #0x0c,D0 00020676 10 d9 | | MOVE.B (A1)+,(A0)+ 00020678 51 c8 ff fc |Q | DBF D0,0x20676 0002067c 51 4f |QO | SUBQ.L #0x8,A7 0002067e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020682 3f 01 |? | MOVE.W D1,-(A7) 00020684 3f 02 |? | MOVE.W D2,-(A7) 00020686 4e 93 |N | JSR (A3) 00020688 54 4f |TO | ADDQ.L #0x2,A7 0002068a 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 0002068e 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00020694 54 4f |TO | ADDQ.L #0x2,A7 00020696 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002069c 50 4f |PO | ADDQ.L #0x8,A7 0002069e 4e 94 |N | JSR (A4) 000206a0 de c4 | | ADDA.W D4,A7 000206a2 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000206a6 b0 c1 | | CMPA.W D1,A0 000206a8 67 48 |gH | BEQ 0x206f2 000206aa 9e c5 | | SUBA.W D5,A7 000206ac 22 4f |"O | MOVEA.L A7,A1 000206ae 45 fa ff 28 |E ( | LEA.L 0x205d8,A2 000206b2 70 0c |p | MOVEQ.L #0x0c,D0 000206b4 12 da | | MOVE.B (A2)+,(A1)+ 000206b6 51 c8 ff fc |Q | DBF D0,0x206b4 000206ba 9e c3 | | SUBA.W D3,A7 000206bc 22 4f |"O | MOVEA.L A7,A1 000206be 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000206c2 70 1d |p | MOVEQ.L #0x1d,D0 000206c4 12 d8 | | MOVE.B (A0)+,(A1)+ 000206c6 51 c8 ff fc |Q | DBF D0,0x206c4 000206ca 51 4f |QO | SUBQ.L #0x8,A7 000206cc 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 000206d0 3f 01 |? | MOVE.W D1,-(A7) 000206d2 3f 02 |? | MOVE.W D2,-(A7) 000206d4 4e 93 |N | JSR (A3) 000206d6 58 4f |XO | ADDQ.L #0x4,A7 000206d8 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000206dc 3f 01 |? | MOVE.W D1,-(A7) 000206de 3f 03 |? | MOVE.W D3,-(A7) 000206e0 4e 93 |N | JSR (A3) 000206e2 50 4f |PO | ADDQ.L #0x8,A7 000206e4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000206ea 50 4f |PO | ADDQ.L #0x8,A7 000206ec 4e 94 |N | JSR (A4) 000206ee de fc 00 30 | 0 | ADDA.W #0x30,A7 000206f2 9e c5 | | SUBA.W D5,A7 000206f4 20 4f | O | MOVEA.L A7,A0 000206f6 43 fa fe ee |C | LEA.L 0x205e6,A1 000206fa 70 0c |p | MOVEQ.L #0x0c,D0 000206fc 10 d9 | | MOVE.B (A1)+,(A0)+ 000206fe 51 c8 ff fc |Q | DBF D0,0x206fc 00020702 51 4f |QO | SUBQ.L #0x8,A7 00020704 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020708 3f 01 |? | MOVE.W D1,-(A7) 0002070a 3f 02 |? | MOVE.W D2,-(A7) 0002070c 4e 93 |N | JSR (A3) 0002070e 54 4f |TO | ADDQ.L #0x2,A7 00020710 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00020714 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 0002071a 54 4f |TO | ADDQ.L #0x2,A7 0002071c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020722 50 4f |PO | ADDQ.L #0x8,A7 00020724 4e 94 |N | JSR (A4) 00020726 5d 4f |]O | SUBQ.L #0x6,A7 00020728 20 4f | O | MOVEA.L A7,A0 0002072a 43 fa fe da |C | LEA.L 0x20606,A1 0002072e 70 16 |p | MOVEQ.L #0x16,D0 00020730 10 d9 | | MOVE.B (A1)+,(A0)+ 00020732 51 c8 ff fc |Q | DBF D0,0x20730 00020736 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002073a 59 4f |YO | SUBQ.L #0x4,A7 0002073c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020740 3f 01 |? | MOVE.W D1,-(A7) 00020742 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00020746 4e 93 |N | JSR (A3) 00020748 50 4f |PO | ADDQ.L #0x8,A7 0002074a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020750 de c3 | | ADDA.W D3,A7 00020752 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00020756 4e 5e |N^ | UNLK A6 00020758 4e 75 |Nu | RTS