|
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: @(#)BOOTINFO,1.1,92/07/09,12:00:00, M200_PROGRAM
Names: »BOOTINFO.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »BOOTINFO.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »BOOTINFO.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »BOOTINFO.M200«
@ 201c0
<LVAR -0x004 @ 1(r)>
<POP 201c0-2025c Body>
<POP 201c0-201d6 Prologue> Σ0 ↓
<POP 201d6-201da RegCacheLoad> Σ0 ↓
<POP 201da-20222 Naked> Σ0 ↓ →0x20254
<Blob 0x201da [20] @> Δ-20 {[«20""»]}
<POP 201ec-201ee StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x201ee 19> {[«20""»]|[$$CURRENT.M200_CONFIG]}
<MI 20200 MOVEA.L (A7)+,A4> Δ+4 {[«20""»]}
<POP 20202-20204 StackAdj> Δ+16 {[-4-]}
<MI 20204 MOVE.L A4,(A7)> {[4, 'A4']}
<Const 0x20206 0x3.4> Δ-4 {[4, 'A4']|[##3]}
<Const 0x2020a 0x20b86.4> Δ-4 {[4, 'A4']|[##3]|[##134022]}
<Pointer.fp 0x20210 <LVAR -0x004 @ 1(r)>> Δ-4 {[4, 'A4']|[##3]|[##134022]|[@@-4]}
<Call 0x20214 0x1056e> {[4, 'A4']|[##3]|[##134022]|[@@-4]}
Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
<POP 2021a-2021c StackAdj> Δ+16 {}
<MI 2021c TST.B (A6-0x4)> {}
<MI 20220 BNE 0x20254> {}
<POP 20222-20254 Naked> Σ0 ↓
<Blob 0x20222 [38] @> Δ-38 {[«38""»]}
<MI 20234 CLR.B -(A7)> Δ-2 {[«38""»]|[#0]}
<POP 20236-20238 StackAdj> Δ-4 {[«38""»]|[#0]|[-4-]}
<Lit 0x20238 37> {[«38""»]|[#0]|[$$Can't read configuration information.]}
<Call 0x2024a 0x103b8> {[«38""»]|[#0]|[$$Can't read configuration information.]}
PopProgram(status : Byte; msg : String)
<POP 20250-20254 StackAdj> Δ+44 {}
<POP 20254-2025c Epilogue> Σ0 ←0x201da
@ 2025c
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(rw)>
<POP 2025c-202d0 Body>
<POP 2025c-20272 Prologue> Σ0 ↓
<POP 20272-20274 Naked> Σ0 ↓
<MI 20272 MOVEQ.L #0x00,D6> {}
<POP 20274-20292 Naked> Σ0 ↓ →0x20298 ←0x202b8
<MI 20274 MOVE.L (A6+0x8),D0> {}
<POP 0x20278 LimitCheck 0x0 ≤ D0 ≤ 0x1ff> {}
<MI 20282 ASL.L #0x1,D0> {}
<MI 20284 LEA.L 0x2077e,A0> {}
<MI 2028a MOVE.W (A0+D0.L+#0x8),D7> {}
<MI 2028e TST.B D6> {}
<MI 20290 BEQ 0x20298> {}
<POP 20292-20298 Naked> Σ0 →0x2029a
<MI 20292 ADDQ.L #0x1,(A6+0x8)> {}
<MI 20296 BRA 0x2029a> {}
<POP 20298-2029a Naked> Σ0 ↓ ←0x20274
<MI 20298 LSR.W #0x8,D7> {}
<POP 2029a-202a6 Naked> Σ0 ↓ →0x202b8 ←0x20292
<MI 2029a ANDI.W #0x00ff,D7> {}
<MI 2029e NEG.B D6> {}
<MI 202a0 ADDQ.B #0x1,D6> {}
<MI 202a2 TST.W D7> {}
<MI 202a4 BEQ 0x202b8> {}
<POP 202a6-202b8 Naked> Σ0 ↓
<MI 202a6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<POP 0x202aa LimitCheck 0x0 ≤ D7 ≤ 0xff> {[4, '(A6+0xc)']}
<MI 202ae MOVE.B D7,-(A7)> Δ-2 {[4, '(A6+0xc)']|[2, 'D7']}
<Call 0x202b0 0x102c0> {[4, '(A6+0xc)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 202b6-202b8 StackAdj> Δ+6 {}
<POP 202b8-202bc Naked> Σ0 ↓ →0x20274 ←0x2029a
<MI 202b8 TST.W D7> {}
<MI 202ba BNE 0x20274> {}
<POP 202bc-202c8 Naked> Σ0 ↓
<MI 202bc MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x202c0 0x103e0> {[4, '(A6+0xc)']}
WriteConsoleStringCrLf(str : String)
<POP 202c6-202c8 StackAdj> Δ+4 {}
<POP 202c8-202d0 Epilogue> Σ0
@ 202d0
<LVAR -0x006 @ 4(rw)>
<LVAR -0x00a @ 4(r)>
<LVAR -0x00c @ 1(r)>
<LVAR -0x010 @ 4(rw)>
<POP 202d0-20482 Body>
<POP 202d0-202e6 Prologue> Σ0 ↓
<POP 202e6-20300 RegCacheLoad> Σ0 ↓
<POP 20300-20388 Naked> Σ0 Δ-30 ↓ →0x2039a
<Blob 0x20300 [30] 0x20bb9> Δ-30 {[«30»]}
<POP 20312-20314 StackAdj> Δ-4 {[«30»]|[-4-]}
<Lit 0x20314> {[«30»]|[$$…]}
<Pointer.sp 0x20314 4> Δ-4
<Const 0x20318 0x1.2> Δ-2
<Const 0x2031a 0x1e.2> Δ-2
<Call 0x2031c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2031e-20320 StackAdj> Δ+8
<MI 20320 MOVEA.L (A7)+,A0> Δ+4 {[«30»]}
<MI 20322 MOVE.L A0,(A6-0x10)> {[«30»]}
<Blob 0x20324 [20] @> Δ-20 {[«30»]|[«20""»]}
<POP 20330-20332 StackAdj> Δ-8 {[«30»]|[«20""»]|[-8-]}
<Lit 0x20332 20> {[«30»]|[«20""»]|[-4-]|[$$Microcode file :_]}
<MI 2033c MOVE.L A0,(A7)> {[«30»]|[«20""»]|[-4-]|[4, 'A0']}
<POP 2033a-2033c StackAdj> Δ-8 {[«30»]|[«20""»]|[-4-]|[4, 'A0']|[-8-]}
<Call 0x2033e 0x102cc> {[«30»]|[«20""»]|[-4-]|[4, 'A0']|[-8-]}
StringDup(a : String) : String
<POP 20344-20346 StackAdj> Δ+4 {[«30»]|[«20""»]|[-4-]|[4, 'A0']|[-4-]}
<Call 0x20346 0x102d0> {[«30»]|[«20""»]|[-4-]|[4, 'A0']|[-4-]}
StringCat2(a, b : String) : String
<POP 2034c-2034e StackAdj> Δ+8 {[«30»]|[«20""»]|[-4-]}
<Call 0x2034e 0x103e0> {[«30»]|[«20""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20354-20358 StackAdj> Δ+22 {[«30»]|[-2-]}
<POP 20358-20359 StackAdj> Δ+2 {[«30»]}
<Blob 0x20359 [2] @> Δ-2 {[«30»]|[«2""»]}
<Blob 0x2035c [2] @> Δ-2 {[«30»]|[«2""»]|[«2""»]}
<Blob 0x20360 [2] @> Δ-2 {[«30»]|[«2""»]|[«2""»]|[«2""»]}
<POP 20364-20366 StackAdj> Δ-4 {[«30»]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x20366 6> {[«30»]|[«2""»]|[«2""»]|[«2""»]|[$$.UCODE]}
<MI 20374 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«30»]|[«2""»]|[«2""»]|[«2""»]}
<POP 20376-20378 StackAdj> Δ+2 {[«30»]|[«2""»]|[«2""»]}
<MI 20378 MOVE.L A0,-(A7)> Δ-4 {[«30»]|[«2""»]|[«2""»]|[4, 'A0']}
<MI 2037a MOVE.L (A6-0x6),-(A7)> Δ-4 {[«30»]|[«2""»]|[«2""»]|[4, 'A0']|[4, '(A6-0x6)']}
<Call 0x2037c 0x10300> {[«30»]|[«2""»]|[«2""»]|[4, 'A0']|[4, '(A6-0x6)']}
FSCALL_10300
<POP 20382-20384 StackAdj> Δ+8 {[«30»]|[«2""»]|[«2""»]}
<MI 20384 TST.L (A7)+> Δ+4 {[«30»]}
<MI 20386 BNE 0x2039a> {[«30»]}
<POP 20388-2039a Naked> Σ-30 →0x203a4
<POP 20388-2038a StackAdj> Δ-4 {[-34-]}
<MI 2038a MOVE.L A0,-(A7)> Δ-4 {[-34-]|[4, 'A0']}
<MI 2038c MOVE.L (A6-0x6),-(A7)> Δ-4 {[-34-]|[4, 'A0']|[4, '(A6-0x6)']}
<Call 0x2038e 0x102d0> {[-34-]|[4, 'A0']|[4, '(A6-0x6)']}
StringCat2(a, b : String) : String
<POP 20394-20396 StackAdj> Δ+8 {[-34-]}
<MI 20396 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-30-]}
<MI 20398 BRA 0x203a4> {[-30-]}
<POP 2039a-203a4 Naked> Σ-30 ↓ ←0x20300
<Pointer.fp 0x2039a <LVAR -0x006 @ 4(rw)>> Δ-4 {[-30-]|[@@-6]}
<Call 0x2039c 0x102bc> {[-30-]|[@@-6]}
FreeString(VAR a : String)
<POP 203a2-203a4 StackAdj> Δ+4 {[-30-]}
<POP 203a4-203c8 Naked> Σ-30 Δ+30 ↓ →0x20470 ←0x20388
<POP 203a4-203a6 StackAdj> Δ+26 {[-4-]}
<MI 203a6 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 203a8 CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]}
<MI 203aa CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]|[#0]}
<Const 0x203ac 0x0.4> Δ-4 {[4, '(A6-0x10)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x203b0 <LVAR -0x00c @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#0]|[##0]|[@@-12]}
<Pointer.fp 0x203b4 <LVAR -0x00a @ 4(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#0]|[##0]|[@@-12]|[@@-10]}
<Call 0x203b8 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 203be-203c0 StackAdj> Δ+20 {}
<MI 203c0 TST.B (A6-0xc)> {}
<MI 203c4 BNE 0x20470> {}
<POP 203c8-20470 Naked> Σ0 ↓
<MI 203c8 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 203cc CLR.W -(A7)> Δ-2 {[4, '(A6-0xa)']|[#0]}
<MI 203ce CLR.W -(A7)> Δ-2 {[4, '(A6-0xa)']|[#0]|[#0]}
<Const 0x203d0 0x200.2> Δ-2 {[4, '(A6-0xa)']|[#0]|[#0]|[#512]}
<Const 0x203d4 0x2.2> Δ-2 {[4, '(A6-0xa)']|[#0]|[#0]|[#512]|[#2]}
<MI 203d6 LEA.L 0x20786,A0> {[4, '(A6-0xa)']|[#0]|[#0]|[#512]|[#2]}
<MI 203dc MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0xa)']|[#0]|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x203de <LVAR -0x00c @ 1(r)>> Δ-4 {[4, '(A6-0xa)']|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-12]}
<Call 0x203e2 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 203e8-203ea StackAdj> Δ+20 {}
<Blob 0x203ea [20] @> Δ-20 {[«20""»]}
<POP 203f6-203f8 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x203f8 20> {[«20""»]|[$$Date of bind :_]}
<Const 0x20404 0x4.4> Δ-4 {[«20""»]|[$$Date of bind :_]|[##4]}
<Call 0x20408 0x2025c> {[«20""»]|[$$Date of bind :_]|[##4]}
<POP 2040c-2040e StackAdj> Δ+28 {}
<Blob 0x2040e [20] @> Δ-20 {[«20""»]}
<POP 2041a-2041c StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2041c 20> {[«20""»]|[$$Pathname of delta :_]}
<Const 0x20428 0x3c.4> Δ-4 {[«20""»]|[$$Pathname of delta :_]|[##60]}
<Call 0x2042c 0x2025c> {[«20""»]|[$$Pathname of delta :_]|[##60]}
<POP 20430-20432 StackAdj> Δ+28 {}
<Blob 0x20432 [20] @> Δ-20 {[«20""»]}
<POP 2043e-20440 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x20440 20> {[«20""»]|[$$Pathname of mom :_]}
<Const 0x2044c 0x14.4> Δ-4 {[«20""»]|[$$Pathname of mom :_]|[##20]}
<Call 0x20450 0x2025c> {[«20""»]|[$$Pathname of mom :_]|[##20]}
<POP 20454-20456 StackAdj> Δ+26 {[-2-]}
<MI 20456 CLR.B (A7)> {[-2-]}
<Const 0x20458 0x2.2> Δ-2 {[-2-]|[#2]}
<Const 0x2045a 0x1.4> Δ-4 {[-2-]|[#2]|[##1]}
<Pointer.fp 0x2045e <LVAR -0x00c @ 1(r)>> Δ-4 {[-2-]|[#2]|[##1]|[@@-12]}
<Pointer.fp 0x20462 <LVAR -0x00a @ 4(r)>> Δ-4 {[-2-]|[#2]|[##1]|[@@-12]|[@@-10]}
<Call 0x20466 0x1038c> {[-2-]|[#2]|[##1]|[@@-12]|[@@-10]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 2046c-20470 StackAdj> Δ+16 {}
<POP 20470-2047a Naked> Σ0 ↓ ←0x203a4
<Pointer.fp 0x20470 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x20472 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 20478-2047a StackAdj> Δ+4 {}
<POP 2047a-20482 Epilogue> Σ0
@ 20482
<POP 20482-20548 Body>
<POP 20482-20498 Prologue> Σ0 ↓
<POP 20498-2049e RegCacheLoad> Σ0 ↓
<POP 2049e-204a6 Naked> Σ0 ↓ →0x204aa
<MI 2049e TST.B 0x20b8b> {}
<MI 204a4 BEQ 0x204aa> {}
<POP 204a6-204aa Naked> Σ0 →0x204ac
<MI 204a6 MOVEQ.L #0x04,D6> {}
<MI 204a8 BRA 0x204ac> {}
<POP 204aa-204ac Naked> Σ0 ↓ ←0x2049e
<MI 204aa MOVEQ.L #0x09,D6> {}
<POP 204ac-204b4 Naked> Σ0 Δ-2 ↓ →0x204be ←0x204a6
<MI 204ac MOVE.B D6,-(A7)> Δ-2 {[2, 'D6']}
<MI 204ae MOVEQ.L #0x00,D7> {[2, 'D6']}
<MI 204b0 CMP.B (A7),D7> {[2, 'D6']}
<MI 204b2 BGT 0x204be> {[2, 'D6']}
<POP 204b4-204be Naked> Σ-2 ↓
<MI 204b4 MOVE.B (A7),D0> {[-2-]}
<POP 0x204b6 LimitCheck D0 ≤ 0x9> {[-2-]}
<MI 204b6 CMPI.B #0x09,D0>
<MI 204ba BLE 0x204be>
<MI 204bc TRAP #15>
<POP 204be-204c2 Naked> Σ-2 ↓ →0x2053e ←0x204ac ←0x204c2
<MI 204be CMP.B (A7),D7> {[-2-]}
<MI 204c0 BGT 0x2053e> {[-2-]}
<POP 204c2-2053e Naked> Σ-2 ↓ →0x204be
<MI 204c2 MOVE.B D7,D0> {[-2-]}
<MI 204c4 EXTB.W D0> {[-2-]}
<MI 204c6 ASL.W #0x5,D0> {[-2-]}
<MI 204c8 LEA.L 0x2077e,A0> {[-2-]}
<MI 204ce LEA.L (A0+D0.W),A0> {[-2-]}
<Blob 0x204d2 [30] (A0+0x45b)> Δ-30 {[-2-]|[«30»]}
<POP 204e2-204e4 StackAdj> Δ-4 {[-2-]|[«30»]|[-4-]}
<Lit 0x204e4> {[-2-]|[«30»]|[$$…]}
<Pointer.sp 0x204e4 4> Δ-4
<Const 0x204e8 0x1.2> Δ-2
<Const 0x204ea 0x1e.2> Δ-2
<Call 0x204ec 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 204f2-204f4 StackAdj> Δ+8
<MI 204f4 MOVEA.L (A7)+,A4> Δ+4 {[-2-]|[«30»]}
<POP 204f6-204fa StackAdj> Δ+28 {[-2-]|[-2-]}
<POP 204fa-204fb StackAdj> Δ+2 {[-2-]}
<Blob 0x204fb [2] @> Δ-2 {[-2-]|[«2""»]}
<POP 204fe-20500 StackAdj> Δ-12 {[-2-]|[«2""»]|[-12-]}
<MI 20500 MOVE.B D7,-(A7)> Δ-2 {[-2-]|[«2""»]|[-12-]|[2, 'D7']}
<Call 0x20502 0x10586> {[-2-]|[«2""»]|[-12-]|[2, 'D7']}
Config_Entry_Name(a : Byte) : String
<POP 20508-2050a StackAdj> Δ+2 {[-2-]|[«2""»]|[-12-]}
<Const 0x2050a 0x15.4> Δ-4 {[-2-]|[«2""»]|[-12-]|[##21]}
<Call 0x2050e 0x102f8> {[-2-]|[«2""»]|[-12-]|[##21]}
LeftPad(a : String; b : Long) : String
<POP 20514-20516 StackAdj> Δ+4 {[-2-]|[«2""»]|[-12-]}
<Lit 0x20516 2> {[-2-]|[«2""»]|[-8-]|[$$:_]}
<POP 20526-20528 StackAdj> Δ-4 {[-2-]|[«2""»]|[-8-]|[$$:_]|[-4-]}
<MI 20528 MOVE.L A4,(A7)> {[-2-]|[«2""»]|[-8-]|[$$:_]|[4, 'A4']}
<Call 0x2052a 0x102d4> {[-2-]|[«2""»]|[-8-]|[$$:_]|[4, 'A4']}
StringCat3(a, b, c : String) : String
<POP 20530-20532 StackAdj> Δ+12 {[-2-]|[«2""»]|[-4-]}
<Call 0x20532 0x103e0> {[-2-]|[«2""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20538-2053a StackAdj> Δ+6 {[-2-]}
<MI 2053a ADDQ.B #0x1,D7> {[-2-]}
<MI 2053c BVC 0x204be> {[-2-]}
<POP 2053e-20540 Naked> Σ-2 Δ+2 ↓ ←0x204be
<POP 2053e-20540 StackAdj> Δ+2 {}
<POP 20540-20548 Epilogue> Σ0
@ 20548
START
<POP 20548--0001 Body>
<POP 20548-20552 Prologue> Σ0
<POP 20552-20572 Naked> Σ0 ↓
<Call 0x20552 0x10398> {}
FSCALL_10398
<Call 0x20558 0x201c0> {}
<Call 0x2055c 0x202d0> {}
<Call 0x20560 0x20482> {}
<MI 20564 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x20566 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x2056a 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20570-20572 StackAdj> Δ+6 {}
<POP 20572-20578 Naked> Σ0
<Call 0x20572 0x10284> {}
?exit
@ 20586
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 20586-205ee Body>
<POP 20586-2059c Prologue> Σ0 ↓
<POP 2059c-205e6 Naked> Σ0 ↓
<Blob 0x2059c [14] @> Δ-14 {[«14""»]}
<Const 0x205a8 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 205ac-205ae StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x205ae 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 205c0-205c2 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 205c2 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 205c6 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 205c8 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 205ca MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x205cc 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 205d2-205d4 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x205d4 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 205da-205dc StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x205dc 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 205e2-205e6 StackAdj> Δ+20 {}
<POP 205e6-205ee Epilogue> Σ0
@ 20642
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 20642-2077e Body>
<POP 20642-20658 Prologue> Σ0 ↓
<POP 20658-2066e RegCacheLoad> Σ0 ↓
<POP 2066e-206ce Naked> Σ0 ↓ →0x20716
<Call 0x2066e 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x20674 [18] @> Δ-18 {[«18""»]}
<POP 20680-20682 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20682 18> {[«18""»]|[$$Experiment error :]}
<Call 0x2068e 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 20690-20691 StackAdj> Δ+22 ↓ {}
<Blob 0x20691 [14] @> Δ-14 {[«14""»]}
<POP 206a0-206a2 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x206a2 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 206ac-206ae StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 206ae MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x206b2 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 206b8-206ba StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x206ba 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 206c0-206c2 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x206c2 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 206c4-206c6 StackAdj> Δ+18 {}
<MI 206c6 MOVEA.L (A6+0xa),A0> {}
<MI 206ca CMPA.W #0x01,A0> {}
<MI 206cc BEQ 0x20716> {}
<POP 206ce-20716 Naked> Σ0 ↓
<Blob 0x206ce [14] @> Δ-14 {[«14""»]}
<Blob 0x206de [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 206ee-206f0 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x206f0 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 206fa-206fc StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x206fc> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x206fc 12> Δ-4
<Const 0x20700 0x1.2> Δ-2
<Const 0x20702 0x1e.2> Δ-2
<Call 0x20704 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20706-20708 StackAdj> Δ+8
<Call 0x20708 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 2070e-20710 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x20710 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20712-20716 StackAdj> Δ+48 {}
<POP 20716-20776 Naked> Σ0 ↓ ←0x2066e
<Blob 0x20716 [14] @> Δ-14 {[«14""»]}
<POP 20726-20728 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20728 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 20732-20734 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 20734 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x20738 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 2073e-20740 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x20740 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20746-20748 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20748 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2074a-2074b StackAdj> Δ+18 ↓ {}
<Blob 0x2074b [24] @> Δ-24 {[«24""»]}
<Const 0x2075a 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 2075e-20760 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x20760 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x2076e 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 20774-20776 StackAdj> Δ+30 {}
<POP 20776-2077e Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.c5499914b197a901 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 05 48 | H | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 0d 2a | * | .PTR 0x20d2a 00020010 code.end: 00020010 00 02 07 7e | ~ | .PTR 0x2077e 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 05 86 | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 06 42 | B | .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 40 28 23 29 42 4f |@(#)BO | .XXX[0x6] 00020110 4f 54 49 4e 46 4f 2c 31 |OTINFO,1| .XXX[0x18] 00020118 2e 31 2c 39 32 2f 30 37 |.1,92/07| 00020120 2f 30 39 2c 31 32 3a 30 |/09,12:0| 00020128 30 3a 30 30 5c 20 |0:00\ | .XXX[0x6] 0002012e 43 61 6e 27 74 20 72 65 |Can't re| .TXT 'Can't read configuration information. ' 00020154 43 55 52 52 45 4e 54 2e |CURRENT.| .TXT 'CURRENT.M200_CONFIG ' 00020168 4d 69 63 72 6f 63 6f 64 |Microcod| .TXT 'Microcode file :_' 0002017c 44 61 74 65 20 6f 66 20 |Date of | .TXT 'Date of bind :_' 00020190 50 61 74 68 6e 61 6d 65 |Pathname| .TXT 'Pathname of delta :_' 000201a4 50 61 74 68 6e 61 6d 65 |Pathname| .TXT 'Pathname of mom :_' 000201b8 2e 55 |.U | .TXT '.U' 000201ba 43 4f |CO | .TXT 'CO' 000201bc 44 45 |DE | .TXT 'DE' 000201be 3a 5f |:_ | .TXT ':_' 000201c0 ; -------------------------------------------------------------------------------------- 000201c0 ; OMSI PASCAL Function 000201c0 ; <LVAR -0x004 @ 1(r)> 000201c0 ; -------------------------------------------------------------------------------------- 000201c0 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 000201c4 bf d5 | | CMPA.L (A5),A7 000201c6 62 06 |b | BHI 0x201ce 000201c8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000201cc 4e 76 |Nv | TRAPV 000201ce de fc 00 50 | P | ADDA.W #0x50,A7 000201d2 48 e7 e0 c8 |H | MOVEM.L A4+A1+A0+D2+D1+D0,-(A7) 000201d6 72 01 |r | MOVEQ.L #0x01,D1 000201d8 74 10 |t | MOVEQ.L #0x10,D2 000201da 9e fc 00 14 | | SUBA.W #0x14,A7 000201de 20 4f | O | MOVEA.L A7,A0 000201e0 43 fa ff 72 |C r | LEA.L 0x20154,A1 000201e4 70 12 |p | MOVEQ.L #0x12,D0 000201e6 10 d9 | | MOVE.B (A1)+,(A0)+ 000201e8 51 c8 ff fc |Q | DBF D0,0x201e6 000201ec 59 4f |YO | SUBQ.L #0x4,A7 000201ee 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000201f2 3f 01 |? | MOVE.W D1,-(A7) 000201f4 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000201f8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000201fe 50 4f |PO | ADDQ.L #0x8,A7 00020200 28 5f |(_ | MOVEA.L (A7)+,A4 00020202 de c2 | | ADDA.W D2,A7 00020204 2e 8c |. | MOVE.L A4,(A7) 00020206 48 78 00 03 |Hx | PEA.L 0x3 0002020a 48 79 00 02 0b 86 |Hy | PEA.L 0x20b86 00020210 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020214 4e b9 00 01 05 6e |N n | JSR Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool) 0002021a de c2 | | ADDA.W D2,A7 0002021c 4a 2e ff fc |J. | TST.B (A6-0x4) 00020220 66 32 |f2 | BNE 0x20254 00020222 9e fc 00 26 | & | SUBA.W #0x26,A7 00020226 20 4f | O | MOVEA.L A7,A0 00020228 43 fa ff 04 |C | LEA.L 0x2012e,A1 0002022c 70 24 |p$ | MOVEQ.L #0x24,D0 0002022e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020230 51 c8 ff fc |Q | DBF D0,0x2022e 00020234 42 27 |B' | CLR.B -(A7) 00020236 59 4f |YO | SUBQ.L #0x4,A7 00020238 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002023c 3f 01 |? | MOVE.W D1,-(A7) 0002023e 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7) 00020242 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020248 50 4f |PO | ADDQ.L #0x8,A7 0002024a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020250 de fc 00 2c | , | ADDA.W #0x2c,A7 00020254 4c df 13 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A4 00020258 4e 5e |N^ | UNLK A6 0002025a 4e 75 |Nu | RTS 0002025c ; -------------------------------------------------------------------------------------- 0002025c ; OMSI PASCAL Function 0002025c ; <LVAR 0x00c 4(r)> 0002025c ; <LVAR 0x008 4(rw)> 0002025c ; -------------------------------------------------------------------------------------- 0002025c 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00020260 bf d5 | | CMPA.L (A5),A7 00020262 62 06 |b | BHI 0x2026a 00020264 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020268 4e 76 |Nv | TRAPV 0002026a de fc 00 1a | | ADDA.W #0x1a,A7 0002026e 48 e7 83 80 |H | MOVEM.L A0+D7+D6+D0,-(A7) 00020272 7c 00 || | MOVEQ.L #0x00,D6 00020274 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 00020278 0c 80 00 00 01 ff | | CMPI.L #0x000001ff,D0 0002027e 63 02 |c | BLS 0x20282 00020280 4e 4f |NO | TRAP #15 00020282 e3 80 | | ASL.L #0x1,D0 00020284 41 f9 00 02 07 7e |A ~ | LEA.L 0x2077e,A0 0002028a 3e 30 08 08 |>0 | MOVE.W (A0+D0.L+#0x8),D7 0002028e 4a 06 |J | TST.B D6 00020290 67 06 |g | BEQ 0x20298 00020292 52 ae 00 08 |R | ADDQ.L #0x1,(A6+0x8) 00020296 60 02 |` | BRA 0x2029a 00020298 e0 4f | O | LSR.W #0x8,D7 0002029a 02 47 00 ff | G | ANDI.W #0x00ff,D7 0002029e 44 06 |D | NEG.B D6 000202a0 52 06 |R | ADDQ.B #0x1,D6 000202a2 4a 47 |JG | TST.W D7 000202a4 67 12 |g | BEQ 0x202b8 000202a6 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000202aa 4f bc 00 ff |O | CHK.W #0xff,D7 000202ae 1f 07 | | MOVE.B D7,-(A7) 000202b0 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000202b6 5c 4f |\O | ADDQ.L #0x6,A7 000202b8 4a 47 |JG | TST.W D7 000202ba 66 b8 |f | BNE 0x20274 000202bc 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000202c0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000202c6 58 4f |XO | ADDQ.L #0x4,A7 000202c8 4c df 01 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0 000202cc 4e 5e |N^ | UNLK A6 000202ce 4e 75 |Nu | RTS 000202d0 ; -------------------------------------------------------------------------------------- 000202d0 ; OMSI PASCAL Function 000202d0 ; <LVAR -0x006 @ 4(rw)> 000202d0 ; <LVAR -0x00a @ 4(r)> 000202d0 ; <LVAR -0x00c @ 1(r)> 000202d0 ; <LVAR -0x010 @ 4(rw)> 000202d0 ; -------------------------------------------------------------------------------------- 000202d0 4e 56 ff 76 |NV v | LINK.W A6,#0xff76 000202d4 bf d5 | | CMPA.L (A5),A7 000202d6 62 06 |b | BHI 0x202de 000202d8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000202dc 4e 76 |Nv | TRAPV 000202de de fc 00 7a | z | ADDA.W #0x7a,A7 000202e2 48 e7 fe f8 |H | MOVEM.L A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7) 000202e6 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000202ec 47 ee ff f0 |G | LEA.L (A6-0x10),A3 000202f0 49 ee ff fa |I | LEA.L (A6-0x6),A4 000202f4 72 01 |r | MOVEQ.L #0x01,D1 000202f6 74 14 |t | MOVEQ.L #0x14,D2 000202f8 76 1e |v | MOVEQ.L #0x1e,D3 000202fa 78 1a |x | MOVEQ.L #0x1a,D4 000202fc 7a 02 |z | MOVEQ.L #0x02,D5 000202fe 7c 1c || | MOVEQ.L #0x1c,D6 00020300 9e c3 | | SUBA.W D3,A7 00020302 20 4f | O | MOVEA.L A7,A0 00020304 43 f9 00 02 0b b9 |C | LEA.L 0x20bb9,A1 0002030a 70 1d |p | MOVEQ.L #0x1d,D0 0002030c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002030e 51 c8 ff fc |Q | DBF D0,0x2030c 00020312 59 4f |YO | SUBQ.L #0x4,A7 00020314 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020318 3f 01 |? | MOVE.W D1,-(A7) 0002031a 3f 03 |? | MOVE.W D3,-(A7) 0002031c 4e 92 |N | JSR (A2) 0002031e 50 4f |PO | ADDQ.L #0x8,A7 00020320 20 5f | _ | MOVEA.L (A7)+,A0 00020322 26 88 |& | MOVE.L A0,(A3) 00020324 43 fa fe 56 |C V | LEA.L 0x2017c,A1 00020328 70 04 |p | MOVEQ.L #0x04,D0 0002032a 2f 21 |/! | MOVE.L -(A1),-(A7) 0002032c 51 c8 ff fc |Q | DBF D0,0x2032a 00020330 51 4f |QO | SUBQ.L #0x8,A7 00020332 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020336 3f 01 |? | MOVE.W D1,-(A7) 00020338 3f 02 |? | MOVE.W D2,-(A7) 0002033a 4e 92 |N | JSR (A2) 0002033c 2e 88 |. | MOVE.L A0,(A7) 0002033e 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020344 58 4f |XO | ADDQ.L #0x4,A7 00020346 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002034c 50 4f |PO | ADDQ.L #0x8,A7 0002034e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020354 de fc 00 16 | | ADDA.W #0x16,A7 00020358 3e ba fe 62 |> b | MOVE.W 0x201bc,(A7) 0002035c 3f 3a fe 5c |?: \ | MOVE.W 0x201ba,-(A7) 00020360 3f 3a fe 56 |?: V | MOVE.W 0x201b8,-(A7) 00020364 59 4f |YO | SUBQ.L #0x4,A7 00020366 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002036a 3f 01 |? | MOVE.W D1,-(A7) 0002036c 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00020370 4e 92 |N | JSR (A2) 00020372 50 4f |PO | ADDQ.L #0x8,A7 00020374 28 9f |( | MOVE.L (A7)+,(A4) 00020376 54 4f |TO | ADDQ.L #0x2,A7 00020378 2f 08 |/ | MOVE.L A0,-(A7) 0002037a 2f 14 |/ | MOVE.L (A4),-(A7) 0002037c 4e b9 00 01 03 00 |N | JSR FSCALL_10300 00020382 50 4f |PO | ADDQ.L #0x8,A7 00020384 4a 9f |J | TST.L (A7)+ 00020386 66 12 |f | BNE 0x2039a 00020388 59 4f |YO | SUBQ.L #0x4,A7 0002038a 2f 08 |/ | MOVE.L A0,-(A7) 0002038c 2f 14 |/ | MOVE.L (A4),-(A7) 0002038e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020394 50 4f |PO | ADDQ.L #0x8,A7 00020396 26 9f |& | MOVE.L (A7)+,(A3) 00020398 60 0a |` | BRA 0x203a4 0002039a 48 54 |HT | PEA.L (A4) 0002039c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000203a2 58 4f |XO | ADDQ.L #0x4,A7 000203a4 de c4 | | ADDA.W D4,A7 000203a6 2e 93 |. | MOVE.L (A3),(A7) 000203a8 42 27 |B' | CLR.B -(A7) 000203aa 42 27 |B' | CLR.B -(A7) 000203ac 48 78 00 00 |Hx | PEA.L 0x0 000203b0 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000203b4 48 6e ff f6 |Hn | PEA.L (A6-0xa) 000203b8 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000203be de c2 | | ADDA.W D2,A7 000203c0 4a 2e ff f4 |J. | TST.B (A6-0xc) 000203c4 66 00 00 aa |f | BNE 0x20470 000203c8 2f 2e ff f6 |/. | MOVE.L (A6-0xa),-(A7) 000203cc 42 67 |Bg | CLR.W -(A7) 000203ce 42 67 |Bg | CLR.W -(A7) 000203d0 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 000203d4 1f 05 | | MOVE.B D5,-(A7) 000203d6 41 f9 00 02 07 86 |A | LEA.L 0x20786,A0 000203dc 2f 08 |/ | MOVE.L A0,-(A7) 000203de 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000203e2 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 000203e8 de c2 | | ADDA.W D2,A7 000203ea 41 fa fd a4 |A | LEA.L 0x20190,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 04 |Hx | PEA.L 0x4 00020408 4e ba fe 52 |N R | JSR 0x2025c 0002040c de c6 | | ADDA.W D6,A7 0002040e 41 fa fd 94 |A | LEA.L 0x201a4,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 3c |Hx < | PEA.L 0x3c 0002042c 4e ba fe 2e |N . | JSR 0x2025c 00020430 de c6 | | ADDA.W D6,A7 00020432 41 fa fd 84 |A | LEA.L 0x201b8,A0 00020436 70 04 |p | MOVEQ.L #0x04,D0 00020438 2f 20 |/ | MOVE.L -(A0),-(A7) 0002043a 51 c8 ff fc |Q | DBF D0,0x20438 0002043e 59 4f |YO | SUBQ.L #0x4,A7 00020440 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020444 3f 01 |? | MOVE.W D1,-(A7) 00020446 3f 02 |? | MOVE.W D2,-(A7) 00020448 4e 92 |N | JSR (A2) 0002044a 50 4f |PO | ADDQ.L #0x8,A7 0002044c 48 78 00 14 |Hx | PEA.L 0x14 00020450 4e ba fe 0a |N | JSR 0x2025c 00020454 de c4 | | ADDA.W D4,A7 00020456 42 17 |B | CLR.B (A7) 00020458 1f 05 | | MOVE.B D5,-(A7) 0002045a 48 78 00 01 |Hx | PEA.L 0x1 0002045e 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00020462 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00020466 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 0002046c de fc 00 10 | | ADDA.W #0x10,A7 00020470 48 53 |HS | PEA.L (A3) 00020472 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020478 58 4f |XO | ADDQ.L #0x4,A7 0002047a 4c df 1f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4 0002047e 4e 5e |N^ | UNLK A6 00020480 4e 75 |Nu | RTS 00020482 ; -------------------------------------------------------------------------------------- 00020482 ; OMSI PASCAL Function 00020482 ; -------------------------------------------------------------------------------------- 00020482 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00020486 bf d5 | | CMPA.L (A5),A7 00020488 62 06 |b | BHI 0x20490 0002048a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002048e 4e 76 |Nv | TRAPV 00020490 de fc 00 58 | X | ADDA.W #0x58,A7 00020494 48 e7 f3 c8 |H | MOVEM.L A4+A1+A0+D7+D6+D3+D2+D1+D0,-(A7) 00020498 72 1e |r | MOVEQ.L #0x1e,D1 0002049a 74 01 |t | MOVEQ.L #0x01,D2 0002049c 76 0c |v | MOVEQ.L #0x0c,D3 0002049e 4a 39 00 02 0b 8b |J9 | TST.B 0x20b8b 000204a4 67 04 |g | BEQ 0x204aa 000204a6 7c 04 || | MOVEQ.L #0x04,D6 000204a8 60 02 |` | BRA 0x204ac 000204aa 7c 09 || | MOVEQ.L #0x09,D6 000204ac 1f 06 | | MOVE.B D6,-(A7) 000204ae 7e 00 |~ | MOVEQ.L #0x00,D7 000204b0 be 17 | | CMP.B (A7),D7 000204b2 6e 0a |n | BGT 0x204be 000204b4 10 17 | | MOVE.B (A7),D0 000204b6 0c 00 00 09 | | CMPI.B #0x09,D0 000204ba 6f 02 |o | BLE 0x204be 000204bc 4e 4f |NO | TRAP #15 000204be be 17 | | CMP.B (A7),D7 000204c0 6e 7c |n| | BGT 0x2053e 000204c2 10 07 | | MOVE.B D7,D0 000204c4 48 80 |H | EXTB.W D0 000204c6 eb 40 | @ | ASL.W #0x5,D0 000204c8 41 f9 00 02 07 7e |A ~ | LEA.L 0x2077e,A0 000204ce 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 000204d2 9e c1 | | SUBA.W D1,A7 000204d4 22 4f |"O | MOVEA.L A7,A1 000204d6 41 e8 04 5b |A [ | LEA.L (A0+0x45b),A0 000204da 70 1d |p | MOVEQ.L #0x1d,D0 000204dc 12 d8 | | MOVE.B (A0)+,(A1)+ 000204de 51 c8 ff fc |Q | DBF D0,0x204dc 000204e2 59 4f |YO | SUBQ.L #0x4,A7 000204e4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000204e8 3f 02 |? | MOVE.W D2,-(A7) 000204ea 3f 01 |? | MOVE.W D1,-(A7) 000204ec 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000204f2 50 4f |PO | ADDQ.L #0x8,A7 000204f4 28 5f |(_ | MOVEA.L (A7)+,A4 000204f6 de fc 00 1c | | ADDA.W #0x1c,A7 000204fa 3e ba fc c2 |> | MOVE.W 0x201be,(A7) 000204fe 9e c3 | | SUBA.W D3,A7 00020500 1f 07 | | MOVE.B D7,-(A7) 00020502 4e b9 00 01 05 86 |N | JSR Config_Entry_Name(a : Byte) : String 00020508 54 4f |TO | ADDQ.L #0x2,A7 0002050a 48 78 00 15 |Hx | PEA.L 0x15 0002050e 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String 00020514 58 4f |XO | ADDQ.L #0x4,A7 00020516 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002051a 3f 02 |? | MOVE.W D2,-(A7) 0002051c 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00020520 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020526 58 4f |XO | ADDQ.L #0x4,A7 00020528 2e 8c |. | MOVE.L A4,(A7) 0002052a 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020530 de c3 | | ADDA.W D3,A7 00020532 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020538 5c 4f |\O | ADDQ.L #0x6,A7 0002053a 52 07 |R | ADDQ.B #0x1,D7 0002053c 68 80 |h | BVC 0x204be 0002053e 54 4f |TO | ADDQ.L #0x2,A7 00020540 4c df 13 cf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A4 00020544 4e 5e |N^ | UNLK A6 00020546 4e 75 |Nu | RTS 00020548 ; -------------------------------------------------------------------------------------- 00020548 ; OMSI PASCAL Function 00020548 ; -------------------------------------------------------------------------------------- 00020548 START: 00020548 4f fa 00 08 |O | LEA.L MAIN,A7 0002054c 4e f9 00 01 02 80 |N | JMP ?start_program 00020552 MAIN: 00020552 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020558 4e ba fc 66 |N f | JSR 0x201c0 0002055c 4e ba fd 72 |N r | JSR 0x202d0 00020560 4e ba ff 20 |N | JSR 0x20482 00020564 42 27 |B' | CLR.B -(A7) 00020566 48 78 00 01 |Hx | PEA.L 0x1 0002056a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020570 5c 4f |\O | ADDQ.L #0x6,A7 00020572 4e b9 00 01 02 84 |N | JSR ?exit 00020578 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00020586 ; -------------------------------------------------------------------------------------- 00020586 ; OMSI PASCAL Function 00020586 ; <LVAR 0x008 1(r)> 00020586 ; -------------------------------------------------------------------------------------- 00020586 PROG_FAIL: 00020586 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 0002058a bf d5 | | CMPA.L (A5),A7 0002058c 62 06 |b | BHI 0x20594 0002058e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020592 4e 76 |Nv | TRAPV 00020594 de fc 00 2c | , | ADDA.W #0x2c,A7 00020598 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002059c 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 000205a0 70 06 |p | MOVEQ.L #0x06,D0 000205a2 3f 20 |? | MOVE.W -(A0),-(A7) 000205a4 51 c8 ff fc |Q | DBF D0,0x205a2 000205a8 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000205ac 51 4f |QO | SUBQ.L #0x8,A7 000205ae 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000205b2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000205b6 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000205ba 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000205c0 58 4f |XO | ADDQ.L #0x4,A7 000205c2 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000205c6 48 80 |H | EXTB.W D0 000205c8 48 c0 |H | EXTW.L D0 000205ca 2f 00 |/ | MOVE.L D0,-(A7) 000205cc 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000205d2 58 4f |XO | ADDQ.L #0x4,A7 000205d4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000205da 50 4f |PO | ADDQ.L #0x8,A7 000205dc 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000205e2 de fc 00 14 | | ADDA.W #0x14,A7 000205e6 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000205ea 4e 5e |N^ | UNLK A6 000205ec 4e 75 |Nu | RTS 000205ee 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 000205fc 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 0002060a 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00020618 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 0002062a 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00020642 ; -------------------------------------------------------------------------------------- 00020642 ; OMSI PASCAL Function 00020642 ; <LVAR 0x00e 1(r)> 00020642 ; <LVAR 0x00a 4(r)> 00020642 ; <LVAR 0x008 1(r)> 00020642 ; -------------------------------------------------------------------------------------- 00020642 EXP_FAIL: 00020642 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00020646 bf d5 | | CMPA.L (A5),A7 00020648 62 06 |b | BHI 0x20650 0002064a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002064e 4e 76 |Nv | TRAPV 00020650 de fc 00 74 | t | ADDA.W #0x74,A7 00020654 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00020658 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 0002065e 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00020664 72 01 |r | MOVEQ.L #0x01,D1 00020666 74 0d |t | MOVEQ.L #0x0d,D2 00020668 76 1e |v | MOVEQ.L #0x1e,D3 0002066a 78 12 |x | MOVEQ.L #0x12,D4 0002066c 7a 0e |z | MOVEQ.L #0x0e,D5 0002066e 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020674 41 fa ff b4 |A | LEA.L 0x2062a,A0 00020678 70 08 |p | MOVEQ.L #0x08,D0 0002067a 3f 20 |? | MOVE.W -(A0),-(A7) 0002067c 51 c8 ff fc |Q | DBF D0,0x2067a 00020680 59 4f |YO | SUBQ.L #0x4,A7 00020682 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020686 3f 01 |? | MOVE.W D1,-(A7) 00020688 3f 04 |? | MOVE.W D4,-(A7) 0002068a 4e 93 |N | JSR (A3) 0002068c 50 4f |PO | ADDQ.L #0x8,A7 0002068e 4e 94 |N | JSR (A4) 00020690 50 4f |PO | ADDQ.L #0x8,A7 00020692 20 4f | O | MOVEA.L A7,A0 00020694 43 fa ff 58 |C X | LEA.L 0x205ee,A1 00020698 70 0c |p | MOVEQ.L #0x0c,D0 0002069a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002069c 51 c8 ff fc |Q | DBF D0,0x2069a 000206a0 51 4f |QO | SUBQ.L #0x8,A7 000206a2 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000206a6 3f 01 |? | MOVE.W D1,-(A7) 000206a8 3f 02 |? | MOVE.W D2,-(A7) 000206aa 4e 93 |N | JSR (A3) 000206ac 54 4f |TO | ADDQ.L #0x2,A7 000206ae 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000206b2 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000206b8 54 4f |TO | ADDQ.L #0x2,A7 000206ba 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000206c0 50 4f |PO | ADDQ.L #0x8,A7 000206c2 4e 94 |N | JSR (A4) 000206c4 de c4 | | ADDA.W D4,A7 000206c6 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000206ca b0 c1 | | CMPA.W D1,A0 000206cc 67 48 |gH | BEQ 0x20716 000206ce 9e c5 | | SUBA.W D5,A7 000206d0 22 4f |"O | MOVEA.L A7,A1 000206d2 45 fa ff 28 |E ( | LEA.L 0x205fc,A2 000206d6 70 0c |p | MOVEQ.L #0x0c,D0 000206d8 12 da | | MOVE.B (A2)+,(A1)+ 000206da 51 c8 ff fc |Q | DBF D0,0x206d8 000206de 9e c3 | | SUBA.W D3,A7 000206e0 22 4f |"O | MOVEA.L A7,A1 000206e2 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000206e6 70 1d |p | MOVEQ.L #0x1d,D0 000206e8 12 d8 | | MOVE.B (A0)+,(A1)+ 000206ea 51 c8 ff fc |Q | DBF D0,0x206e8 000206ee 51 4f |QO | SUBQ.L #0x8,A7 000206f0 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 000206f4 3f 01 |? | MOVE.W D1,-(A7) 000206f6 3f 02 |? | MOVE.W D2,-(A7) 000206f8 4e 93 |N | JSR (A3) 000206fa 58 4f |XO | ADDQ.L #0x4,A7 000206fc 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020700 3f 01 |? | MOVE.W D1,-(A7) 00020702 3f 03 |? | MOVE.W D3,-(A7) 00020704 4e 93 |N | JSR (A3) 00020706 50 4f |PO | ADDQ.L #0x8,A7 00020708 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002070e 50 4f |PO | ADDQ.L #0x8,A7 00020710 4e 94 |N | JSR (A4) 00020712 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020716 9e c5 | | SUBA.W D5,A7 00020718 20 4f | O | MOVEA.L A7,A0 0002071a 43 fa fe ee |C | LEA.L 0x2060a,A1 0002071e 70 0c |p | MOVEQ.L #0x0c,D0 00020720 10 d9 | | MOVE.B (A1)+,(A0)+ 00020722 51 c8 ff fc |Q | DBF D0,0x20720 00020726 51 4f |QO | SUBQ.L #0x8,A7 00020728 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002072c 3f 01 |? | MOVE.W D1,-(A7) 0002072e 3f 02 |? | MOVE.W D2,-(A7) 00020730 4e 93 |N | JSR (A3) 00020732 54 4f |TO | ADDQ.L #0x2,A7 00020734 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00020738 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 0002073e 54 4f |TO | ADDQ.L #0x2,A7 00020740 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020746 50 4f |PO | ADDQ.L #0x8,A7 00020748 4e 94 |N | JSR (A4) 0002074a 5d 4f |]O | SUBQ.L #0x6,A7 0002074c 20 4f | O | MOVEA.L A7,A0 0002074e 43 fa fe da |C | LEA.L 0x2062a,A1 00020752 70 16 |p | MOVEQ.L #0x16,D0 00020754 10 d9 | | MOVE.B (A1)+,(A0)+ 00020756 51 c8 ff fc |Q | DBF D0,0x20754 0002075a 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002075e 59 4f |YO | SUBQ.L #0x4,A7 00020760 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020764 3f 01 |? | MOVE.W D1,-(A7) 00020766 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 0002076a 4e 93 |N | JSR (A3) 0002076c 50 4f |PO | ADDQ.L #0x8,A7 0002076e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020774 de c3 | | ADDA.W D3,A7 00020776 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 0002077a 4e 5e |N^ | UNLK A6 0002077c 4e 75 |Nu | RTS