|
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: »CHECK_LRUS.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »CHECK_LRUS.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »CHECK_LRUS.M200«
└─ ⟦this⟧ »CHECK_LRUS.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »CHECK_LRUS.M200«
@ 201c0
<LVAR 0x00b 1(r)>
<LVAR 0x00a 2(r)>
<LVAR 0x008 2(r)>
<LVAR -0x045 @>
<LVAR -0x046 1(rw)>
<LVAR -0x047 1(rw)>
<LVAR -0x048 1(rw)>
<LVAR -0x050 @ 4(r)>
<POP 201c0-2034c Body> Δ+12
<POP 201c0-201d6 Prologue> Σ0 ↓
<POP 201d6-201ea RegCacheLoad> Σ0 ↓
<POP 201ea-201f6 Naked> Σ0 ↓ →0x20224
<POP 201ea-201ec StackAdj> Δ-2 {[-2-]}
<Call 0x201ec 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 201f2 TST.B (A7)+> Δ+2 {}
<MI 201f4 BEQ 0x20224> {}
<POP 201f6-20224 Naked> Σ0 →0x20252
<Blob 0x201f6 [18] @> Δ-18 {[«18""»]}
<POP 20202-20204 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20204 18> {[«18""»]|[$$READ_MANY_LRUS.MEM]}
<Pointer.fp 0x20214 <LVAR -0x050 @ 4(r)>> Δ-4 {[«18""»]|[$$READ_MANY_LRUS.MEM]|[@@-80]}
<Call 0x20216 0x10460> {[«18""»]|[$$READ_MANY_LRUS.MEM]|[@@-80]}
ExpLoad(a : String; b: Pointer)
<POP 2021c-2021e StackAdj> Δ+26 {}
<MI 2021e MOVE.W (A6+0xa),D0> {}
<MI 20220 ASR.W #0x2,D0> {}
<MI 20222 BRA 0x20252> {}
<POP 20224-20252 Naked> Σ0 ↓ ←0x201ea
<Blob 0x20224 [18] @> Δ-18 {[«18""»]}
<POP 20230-20232 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20232 18> {[«18""»]|[$$READ_MANY_LRUS.M32]}
<Pointer.fp 0x20242 <LVAR -0x050 @ 4(r)>> Δ-4 {[«18""»]|[$$READ_MANY_LRUS.M32]|[@@-80]}
<Call 0x20244 0x10460> {[«18""»]|[$$READ_MANY_LRUS.M32]|[@@-80]}
ExpLoad(a : String; b: Pointer)
<POP 2024a-2024c StackAdj> Δ+26 {}
<MI 2024c MOVE.W (A6+0xa),D0> {}
<MI 2024e ASR.W #0x3,D0> {}
<MI 20250 ASL.W #0x1,D0> {}
<POP 20252-202c2 Naked> Σ0 →0x202ca →0x202d2 →0x202da →0x202e2 ←0x201f6
<MI 20252 EXTW.L D0> {}
<MI 20254 MOVE.L D0,D6> {}
<MI 20256 MOVE.B (A6+0xb),(A6-0x48)> {}
<MI 2025c MOVE.B (A6-0x48),-(A7)> Δ-2 {[2, '(A6-0x48)']}
<MI 20260 MOVE.L (A6-0x50),-(A7)> Δ-4 {[2, '(A6-0x48)']|[4, '(A6-0x50)']}
<Pointer.sp 0x20262 4> Δ-4 {[2, '(A6-0x48)']|[4, '(A6-0x50)']|[^^4]}
<Const 0x20266 0x0.4> Δ-4 {[2, '(A6-0x48)']|[4, '(A6-0x50)']|[^^4]|[##0]}
<Const 0x20268 0x0.4> Δ-4 {[2, '(A6-0x48)']|[4, '(A6-0x50)']|[^^4]|[##0]|[##0]}
<Call 0x2026a 0x10466> {[2, '(A6-0x48)']|[4, '(A6-0x50)']|[^^4]|[##0]|[##0]}
ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
<POP 20270-20272 StackAdj> Δ+18 {}
<MI 20272 MOVE.W (A6+0x8),D0> {}
<MI 20276 LSR.W #0x8,D0> {}
<MI 20278 MOVE.B D0,(A6-0x47)> {}
<MI 2027c MOVE.W (A6+0x8),D0> {}
<MI 20280 ANDI.W #0x00ff,D0> {}
<POP 0x20284 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20288 MOVE.B D0,(A6-0x46)> {}
<POP 2028c-2028e StackAdj> Δ-2 {[-2-]}
<MI 2028e MOVE.B (A6-0x47),(A7)> {[-2-]}
<MI 20292 MOVE.B (A6-0x46),(A7+0x1)> {[-2-]}
<MI 20298 MOVE.L (A6-0x50),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x50)']}
<Pointer.sp 0x2029a 4> Δ-4 {[-2-]|[4, '(A6-0x50)']|[^^4]}
<Const 0x2029e 0x0.4> Δ-4 {[-2-]|[4, '(A6-0x50)']|[^^4]|[##0]}
<Const 0x202a0 0x1.4> Δ-4 {[-2-]|[4, '(A6-0x50)']|[^^4]|[##0]|[##1]}
<Call 0x202a4 0x10466> {[-2-]|[4, '(A6-0x50)']|[^^4]|[##0]|[##1]}
ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
<POP 202aa-202ac StackAdj> Δ+18 {}
<MI 202ac MOVE.L D6,D0> {}
<POP 0x202ae LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 202b8 ADD.W D0,D0> {}
<MI 202ba SWITCH D0.W> {}
<POP 202ca-202d2 Naked> Σ0 Δ-4 →0x202e6 ←0x20252
<MI 202ca CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x202cc 0xc.2> Δ-2 {[#0]|[#12]}
<MI 202d0 BRA 0x202e6> {[#0]|[#12]}
<POP 202d2-202da Naked> Σ0 Δ-4 →0x202e6 ←0x20252
<MI 202d2 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x202d4 0xd.2> Δ-2 {[#0]|[#13]}
<MI 202d8 BRA 0x202e6> {[#0]|[#13]}
<POP 202da-202e2 Naked> Σ0 Δ-4 →0x202e6 ←0x20252
<MI 202da CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x202dc 0xe.2> Δ-2 {[#0]|[#14]}
<MI 202e0 BRA 0x202e6> {[#0]|[#14]}
<POP 202e2-202e6 Naked> Σ0 Δ-4 ↓ ←0x20252
<MI 202e2 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x202e4 0xf.2> Δ-2 {[#0]|[#15]}
<POP 202e6-20312 Naked> Σ-4 Δ+4 ↓ ←0x202ca ←0x202d2 ←0x202da
<MI 202e6 MOVE.L (A6-0x50),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x50)']}
<Call 0x202e8 0x104ba> {[-4-]|[4, '(A6-0x50)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 202ee-202f0 StackAdj> Δ+8 {}
<MI 202f0 MOVE.L (A6-0x50),-(A7)> Δ-4 {[4, '(A6-0x50)']}
<Pointer.fp 0x202f2 <LVAR -0x045 @>> Δ-4 {[4, '(A6-0x50)']|[@@-69]}
<Const 0x202f6 0x0.4> Δ-4 {[4, '(A6-0x50)']|[@@-69]|[##0]}
<Const 0x202f8 0x3f.4> Δ-4 {[4, '(A6-0x50)']|[@@-69]|[##0]|[##63]}
<Call 0x202fc 0x10472> {[4, '(A6-0x50)']|[@@-69]|[##0]|[##63]}
ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L)
<POP 20302-20306 StackAdj> Δ+16 {}
<Pointer.fp 0x20306 <LVAR -0x050 @ 4(r)>> Δ-4 {[@@-80]}
<Call 0x20308 0x10496> {[@@-80]}
ExpClose(exp : Pointer)
<POP 2030e-20310 StackAdj> Δ+4 {}
<MI 20310 MOVEQ.L #0x00,D7> {}
<POP 20312-20344 Naked> Σ0 ↓ →0x20312 ←0x20312
<POP 0x20312 LimitCheck 0x0 ≤ D7 ≤ 0x3f> {}
<MI 2031c MOVE.L D7,D0> {}
<MI 2031e ASL.L #0x5,D0> {}
<MI 20320 LEA.L 0x2088a,A0> {}
<MI 20326 MOVE.W (A6+0xa),D1> {}
<POP 0x20328 LimitCheck 0x0 ≤ D1 ≤ 0xf> {}
<MI 2032a ASL.W #0x1,D1> {}
<MI 2032c LEA.L (A0+D0.L),A0> {}
<MI 20330 CLR.L D0> {}
<MI 20332 MOVE.B (A6+D7.L-#0x45),D0> {}
<MI 20336 MOVE.W D0,(A0+D1.W+#0x8)> {}
<MI 2033a ADDQ.L #0x1,D7> {}
<MI 2033c CMPI.L #0x0000003f,D7> {}
<MI 20342 BLE 0x20312> {}
<POP 20344-2034c Epilogue> Σ0
@ 2034c
START
<POP 2034c--0001 Body>
<POP 2034c-20356 Prologue> Σ0
<POP 20356-20372 RegCacheLoad> Σ0 ↓
<POP 20372-203a2 Naked> Σ0 ↓ →0x203d2
<Call 0x20372 0x10398> {}
FSCALL_10398
<Const 0x20378 0x2.4> Δ-4 {[##2]}
<Call 0x2037c 0x104d8> {[##2]}
ExpInit(a : Long)
<POP 20382-20384 StackAdj> Δ+2 {[-2-]}
<MI 20384 CLR.B (A7)> {[-2-]}
<Call 0x20386 0x104d2> {[-2-]}
SetExpInitDone(a : Byte)
<POP 2038c-2038e StackAdj> Δ+2 {}
<MI 2038e CLR.L 0x210a6> {}
<POP 20390-20392 StackAdj> Δ-2 {[-2-]}
<Const 0x20392 0xe.2> Δ-2 {[-2-]|[#14]}
<Call 0x20396 0x104c0> {[-2-]|[#14]}
HasBoard(diproc_addr: Byte) : Byte
<POP 2039c-2039e StackAdj> Δ+2 {[-2-]}
<MI 2039e TST.B (A7)+> Δ+2 {}
<MI 203a0 BEQ 0x203d2> {}
<POP 203a2-203d2 Naked> Σ0 →0x20404
<Blob 0x203a2 [32] @> Δ-32 {[«32""»]}
<POP 203b2-203b4 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x203b4 31> {[«32""»]|[$$This will take about 80 seconds]}
<Call 0x203c4 0x103e0> {[«32""»]|[$$This will take about 80 seconds]}
WriteConsoleStringCrLf(str : String)
<POP 203ca-203ce StackAdj> Δ+36 {}
<MI 203ce MOVE.L #0x0f,0x210a2> {}
<MI 203d0 BRA 0x20404> {}
<POP 203d2-20404 Naked> Σ0 ↓ ←0x20372
<Blob 0x203d2 [32] @> Δ-32 {[«32""»]}
<POP 203e2-203e4 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x203e4 31> {[«32""»]|[$$This will take about 40 seconds]}
<Call 0x203f4 0x103e0> {[«32""»]|[$$This will take about 40 seconds]}
WriteConsoleStringCrLf(str : String)
<POP 203fa-203fe StackAdj> Δ+36 {}
<MI 203fe MOVE.L #0x7,0x210a2> {}
<POP 20404-20406 Naked> Σ0 ↓ ←0x203a2
<MI 20404 MOVEQ.L #0x00,D0> {}
<POP 20406-20412 Naked> Σ0 Δ-8 ↓ ←0x20626
<MI 20406 MOVE.L D0,0x21092> {}
<MI 2040c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<Blob 0x2040e [4] 0x210a2> Δ-4 {[4, 'D0']|[«4»]}
<MI 20410 MOVEQ.L #0x00,D1> {[4, 'D0']|[«4»]}
<POP 20412-20416 Naked> Σ-8 ↓ →0x20444 ←0x20416
<MI 20412 CMP.L (A7),D1> {[-8-]}
<MI 20414 BGT 0x20444> {[-8-]}
<POP 20416-20444 Naked> Σ-8 ↓ →0x20412
<MI 20416 MOVE.L D1,0x2109a> {[-8-]}
<POP 0x2041c LimitCheck 0x0 ≤ D1 ≤ 0xff> {[-8-]}
<MI 20426 MOVE.W D1,-(A7)> Δ-2 {[-8-]|[2, 'D1']}
<MI 20428 MOVE.L (A7+0x6),D0> {[-8-]|[2, 'D1']}
<MI 2042c ASL.L #0x6,D0> {[-8-]|[2, 'D1']}
<POP 0x2042e LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-8-]|[2, 'D1']}
<MI 20438 MOVE.W D0,-(A7)> Δ-2 {[-8-]|[2, 'D1']|[2, 'D0']}
<Call 0x2043a 0x201c0> {[-8-]|[2, 'D1']|[2, 'D0']}
<POP 2043e-20440 StackAdj> Δ+4 {[-8-]}
<MI 20440 ADDQ.L #0x1,D1> {[-8-]}
<MI 20442 BVC 0x20412> {[-8-]}
<POP 20444-20448 Naked> Σ-8 Δ+4 ↓ ←0x20412
<POP 20444-20446 StackAdj> Δ+4 {[-4-]}
<MI 20446 MOVEQ.L #0x00,D0> {[-4-]}
<POP 20448-2045a Naked> Σ-4 Δ-8 ↓ ←0x2061c
<MI 20448 MOVE.L D0,0x21096> {[-4-]}
<MI 2044e MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 20450 CLR.B 0x210aa> {[-4-]|[4, 'D0']}
<Blob 0x20456 [4] 0x210a2> Δ-4 {[-4-]|[4, 'D0']|[«4»]}
<MI 20458 MOVEQ.L #0x00,D1> {[-4-]|[4, 'D0']|[«4»]}
<POP 2045a-2045e Naked> Σ-12 ↓ →0x20478 ←0x2045e
<MI 2045a CMP.L (A7),D1> {[-12-]}
<MI 2045c BGT 0x20478> {[-12-]}
<POP 2045e-20478 Naked> Σ-12 ↓ →0x2045a
<MI 2045e MOVE.L D1,0x2109e> {[-12-]}
<POP 0x20464 LimitCheck 0x0 ≤ D1 ≤ 0xf> {[-12-]}
<MI 2046a LEA.L 0x2088a,A0> {[-12-]}
<MI 2046c LEA.L (A0+D1.L),A0> {[-12-]}
<MI 20470 CLR.B (A0+0x821)> {[-12-]}
<MI 20474 ADDQ.L #0x1,D1> {[-12-]}
<MI 20476 BVC 0x2045a> {[-12-]}
<POP 20478-2047c Naked> Σ-12 ↓ ←0x2045a
<POP 20478-20479 StackAdj> Δ+4 {[-8-]}
<Blob 0x20479 [4] 0x210a2> Δ-4 {[-8-]|[«4»]}
<MI 2047a MOVEQ.L #0x00,D0> {[-8-]|[«4»]}
<POP 2047c-20480 Naked> Σ-12 ↓ →0x204b6 ←0x20480
<MI 2047c CMP.L (A7),D0> {[-12-]}
<MI 2047e BGT 0x204b6> {[-12-]}
<POP 20480-204b6 Naked> Σ-12 ↓ →0x2047c
<MI 20480 MOVE.L D0,0x2109a> {[-12-]}
<MI 20486 MOVE.L (A7+0x4),D1> {[-12-]}
<POP 0x2048a LimitCheck 0x0 ≤ D1 ≤ 0x3f> {[-12-]}
<MI 20490 ASL.L #0x5,D1> {[-12-]}
<MI 20492 LEA.L 0x2088a,A0> {[-12-]}
<POP 0x20494 LimitCheck 0x0 ≤ D0 ≤ 0xf> {[-12-]}
<MI 2049a MOVE.L D0,D2> {[-12-]}
<MI 2049c ASL.L #0x1,D2> {[-12-]}
<MI 2049e LEA.L (A0+D1.L),A0> {[-12-]}
<MI 204a2 MOVE.W (A0+D2.L+#0x8),D1> {[-12-]}
<POP 0x204a6 LimitCheck 0x0 ≤ D1 ≤ 0xf> {[-12-]}
<MI 204a8 LEA.L 0x2088a,A0> {[-12-]}
<MI 204aa LEA.L (A0+D1.W),A0> {[-12-]}
<MI 204ae MOVE.B #0x01,(A0+0x821)> {[-12-]}
<MI 204b2 ADDQ.L #0x1,D0> {[-12-]}
<MI 204b4 BVC 0x2047c> {[-12-]}
<POP 204b6-204ba Naked> Σ-12 ↓ ←0x2047c
<POP 204b6-204b7 StackAdj> Δ+4 {[-8-]}
<Blob 0x204b7 [4] 0x210a2> Δ-4 {[-8-]|[«4»]}
<MI 204b8 MOVEQ.L #0x00,D0> {[-8-]|[«4»]}
<POP 204ba-204be Naked> Σ-12 ↓ →0x204ec ←0x204be
<MI 204ba CMP.L (A7),D0> {[-12-]}
<MI 204bc BGT 0x204ec> {[-12-]}
<POP 204be-204ec Naked> Σ-12 ↓ →0x204ba
<MI 204be MOVE.L D0,0x2109e> {[-12-]}
<POP 0x204c4 LimitCheck 0x0 ≤ D0 ≤ 0xf> {[-12-]}
<MI 204ca LEA.L 0x2088a,A0> {[-12-]}
<MI 204cc LEA.L (A0+D0.L),A0> {[-12-]}
<MI 204d0 MOVE.B (A0+0x821),D1> {[-12-]}
<MI 204d4 NEG.B D1> {[-12-]}
<MI 204d6 ADDQ.B #0x1,D1> {[-12-]}
<MI 204d8 OR.B 0x210aa,D1> {[-12-]}
<MI 204de EXTB.W D1> {[-12-]}
<POP 0x204e0 LimitCheck 0x0 ≤ D1 ≤ 0x1> {[-12-]}
<MI 204e2 MOVE.B D1,0x210aa> {[-12-]}
<MI 204e8 ADDQ.L #0x1,D0> {[-12-]}
<MI 204ea BVC 0x204ba> {[-12-]}
<POP 204ec-204f8 Naked> Σ-12 Δ+4 ↓ →0x2061c ←0x204ba
<POP 204ec-204ee StackAdj> Δ+4 {[-8-]}
<MI 204ee TST.B 0x210aa> {[-8-]}
<MI 204f4 BEQ 0x2061c> {[-8-]}
<POP 204f8-20504 Naked> Σ-8 ↓ →0x20534
<MI 204f8 ADDQ.L #0x1,0x210a6> {[-8-]}
<MI 204fa MOVE.L 0x210a6,D0> {[-8-]}
<MI 204fc CMPI.L #0x00000032,D0> {[-8-]}
<MI 20502 BNE 0x20534> {[-8-]}
<POP 20504-20534 Naked> Σ-8 ↓
<Blob 0x20504 [38] @> Δ-38 {[-8-]|[«38""»]}
<POP 20516-20518 StackAdj> Δ-4 {[-8-]|[«38""»]|[-4-]}
<Lit 0x20518 37> {[-8-]|[«38""»]|[$$suppressing display of more bad lines]}
<Call 0x2052a 0x103e0> {[-8-]|[«38""»]|[$$suppressing display of more bad lines]}
WriteConsoleStringCrLf(str : String)
<POP 20530-20534 StackAdj> Δ+42 {[-8-]}
<POP 20534-20540 Naked> Σ-8 ↓ →0x2061c ←0x204f8
<MI 20534 MOVE.L 0x210a6,D0> {[-8-]}
<MI 20536 CMPI.L #0x00000032,D0> {[-8-]}
<MI 2053c BGE 0x2061c> {[-8-]}
<POP 20540-205ae Naked> Σ-8 Δ-4 ↓
<Blob 0x20540 [18] @> Δ-18 {[-8-]|[«18""»]}
<Blob 0x20552 [2] @> Δ-2 {[-8-]|[«18""»]|[«2""»]}
<POP 20556-20558 StackAdj> Δ-8 {[-8-]|[«18""»]|[«2""»]|[-8-]}
<Lit 0x20558 17> {[-8-]|[«18""»]|[«2""»]|[-4-]|[$$BAD LRUs on line_]}
<POP 20568-2056a StackAdj> Δ-4 {[-8-]|[«18""»]|[«2""»]|[-4-]|[$$BAD LRUs on line_]|[-4-]}
<MI 2056a MOVE.L (A7+0x24),D0> {[-8-]|[«18""»]|[«2""»]|[-4-]|[$$BAD LRUs on line_]|[-4-]}
<MI 2056e ASL.L #0x6,D0> {[-8-]|[«18""»]|[«2""»]|[-4-]|[$$BAD LRUs on line_]|[-4-]}
<MI 20570 MOVE.L (A7+0x20),D1> {[-8-]|[«18""»]|[«2""»]|[-4-]|[$$BAD LRUs on line_]|[-4-]}
<MI 20574 ADD.L D0,D1> {[-8-]|[«18""»]|[«2""»]|[-4-]|[$$BAD LRUs on line_]|[-4-]}
<MI 20576 MOVE.L D1,-(A7)> Δ-4 {[-8-]|[«18""»]|[«2""»]|[-4-]|[$$BAD LRUs on line_]|[-4-]|[4, 'D1']}
<Const 0x20578 0x3.4> Δ-4 {[-8-]|[«18""»]|[«2""»]|[-4-]|[$$BAD LRUs on line_]|[-4-]|[4, 'D1']|[##3]}
<Call 0x2057c 0x102e8> {[-8-]|[«18""»]|[«2""»]|[-4-]|[$$BAD LRUs on line_]|[-4-]|[4, 'D1']|[##3]}
Long2HexString(val : Long; ndig : Long) : String
<POP 20582-20584 StackAdj> Δ+4 {[-8-]|[«18""»]|[«2""»]|[-4-]|[$$BAD LRUs on line_]|[-4-]|[4, 'D1']}
<Lit 0x20584 2> {[-8-]|[«18""»]|[«2""»]|[-4-]|[$$BAD LRUs on line_]|[-4-]|[$$:_]}
<Call 0x20596 0x102d4> {[-8-]|[«18""»]|[«2""»]|[-4-]|[$$BAD LRUs on line_]|[-4-]|[$$:_]}
StringCat3(a, b, c : String) : String
<POP 2059c-205a0 StackAdj> Δ+12 {[-8-]|[«18""»]|[«2""»]|[-4-]}
<Call 0x205a0 0x103d8> {[-8-]|[«18""»]|[«2""»]|[-4-]}
WriteConsoleString(str : String)
<POP 205a6-205aa StackAdj> Δ+20 {[-8-]|[-4-]}
<POP 205aa-205ab StackAdj> Δ+4 {[-8-]}
<Blob 0x205ab [4] 0x210a2> Δ-4 {[-8-]|[«4»]}
<MI 205ac MOVEQ.L #0x00,D0> {[-8-]|[«4»]}
<POP 205ae-205b2 Naked> Σ-12 ↓ →0x20614 ←0x205b2
<MI 205ae CMP.L (A7),D0> {[-12-]}
<MI 205b0 BGT 0x20614> {[-12-]}
<POP 205b2-20614 Naked> Σ-12 ↓ →0x205ae
<MI 205b2 MOVE.L D0,0x2109a> {[-12-]}
<Blob 0x205b8 [2] @> Δ-2 {[-12-]|[«2""»]}
<POP 205bc-205be StackAdj> Δ-8 {[-12-]|[«2""»]|[-8-]}
<MI 205be MOVE.L (A7+0xe),D1> {[-12-]|[«2""»]|[-8-]}
<POP 0x205c2 LimitCheck 0x0 ≤ D1 ≤ 0x3f> {[-12-]|[«2""»]|[-8-]}
<MI 205c8 ASL.L #0x5,D1> {[-12-]|[«2""»]|[-8-]}
<MI 205ca LEA.L 0x2088a,A0> {[-12-]|[«2""»]|[-8-]}
<POP 0x205cc LimitCheck 0x0 ≤ D0 ≤ 0xf> {[-12-]|[«2""»]|[-8-]}
<MI 205d2 MOVE.L D0,D2> {[-12-]|[«2""»]|[-8-]}
<MI 205d4 ASL.L #0x1,D2> {[-12-]|[«2""»]|[-8-]}
<MI 205d6 LEA.L (A0+D1.L),A0> {[-12-]|[«2""»]|[-8-]}
<MI 205da MOVE.W (A0+D2.L+#0x8),D1> {[-12-]|[«2""»]|[-8-]}
<MI 205de EXTW.L D1> {[-12-]|[«2""»]|[-8-]}
<MI 205e0 MOVE.L D1,-(A7)> Δ-4 {[-12-]|[«2""»]|[-8-]|[4, 'D1']}
<Const 0x205e2 0x1.4> Δ-4 {[-12-]|[«2""»]|[-8-]|[4, 'D1']|[##1]}
<Call 0x205e6 0x102e8> {[-12-]|[«2""»]|[-8-]|[4, 'D1']|[##1]}
Long2HexString(val : Long; ndig : Long) : String
<POP 205ec-205ee StackAdj> Δ+4 {[-12-]|[«2""»]|[-8-]|[4, 'D1']}
<Lit 0x205ee 2> {[-12-]|[«2""»]|[-8-]|[$$_ ]}
<Call 0x20600 0x102d0> {[-12-]|[«2""»]|[-8-]|[$$_ ]}
StringCat2(a, b : String) : String
<POP 20606-20608 StackAdj> Δ+8 {[-12-]|[«2""»]|[-4-]}
<Call 0x20608 0x103d8> {[-12-]|[«2""»]|[-4-]}
WriteConsoleString(str : String)
<POP 2060e-20610 StackAdj> Δ+6 {[-12-]}
<MI 20610 ADDQ.L #0x1,D0> {[-12-]}
<MI 20612 BVC 0x205ae> {[-12-]}
<POP 20614-2061c Naked> Σ-12 Δ+4 ↓ ←0x205ae
<POP 20614-20616 StackAdj> Δ+4 {[-8-]}
<Call 0x20616 0x103dc> {[-8-]}
WriteConsoleCrLf(void)
<POP 2061c-20626 Naked> Σ-8 Δ+4 ↓ →0x20448 ←0x204ec ←0x20534
<MI 2061c MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 2061e ADDQ.L #0x1,D0> {[-4-]}
<MI 20620 CMP.L #0x3f,D0> {[-4-]}
<MI 20622 BLE 0x20448> {[-4-]}
<POP 20626-20630 Naked> Σ-4 Δ+4 ↓ →0x20406
<MI 20626 MOVE.L (A7)+,D0> Δ+4 {}
<MI 20628 ADDQ.L #0x1,D0> {}
<MI 2062a CMP.L #0x3f,D0> {}
<MI 2062c BLE 0x20406> {}
<POP 20630-2067e Naked> Σ0 ↓
<Blob 0x20630 [22] @> Δ-22 {[«22""»]}
<POP 20642-20644 StackAdj> Δ-8 {[«22""»]|[-8-]}
<Blob 0x20644 [4] 0x210a6> Δ-4 {[«22""»]|[-8-]|[«4»]}
<Call 0x20646 0x102e4> {[«22""»]|[-8-]|[«4»]}
Long2String(a : Long) : String
<Lit 0x2064c 21> {[«22""»]|[-8-]|[$$ bad lines were found]}
<Call 0x2065e 0x102d0> {[«22""»]|[-8-]|[$$ bad lines were found]}
StringCat2(a, b : String) : String
<POP 20664-20666 StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x20666 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2066c-20670 StackAdj> Δ+24 {[-2-]}
<MI 20670 CLR.B (A7)> {[-2-]}
<Const 0x20672 0x1.4> Δ-4 {[-2-]|[##1]}
<Call 0x20676 0x103b8> {[-2-]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 2067c-2067e StackAdj> Δ+6 {}
<POP 2067e-20684 Naked> Σ0
<Call 0x2067e 0x10284> {}
?exit
@ 20692
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 20692-206fa Body>
<POP 20692-206a8 Prologue> Σ0 ↓
<POP 206a8-206f2 Naked> Σ0 ↓
<Blob 0x206a8 [14] @> Δ-14 {[«14""»]}
<Const 0x206b4 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 206b8-206ba StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x206ba 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 206cc-206ce StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 206ce MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 206d2 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 206d4 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 206d6 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x206d8 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 206de-206e0 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x206e0 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 206e6-206e8 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x206e8 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 206ee-206f2 StackAdj> Δ+20 {}
<POP 206f2-206fa Epilogue> Σ0
@ 2074e
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 2074e-2088a Body>
<POP 2074e-20764 Prologue> Σ0 ↓
<POP 20764-2077a RegCacheLoad> Σ0 ↓
<POP 2077a-207da Naked> Σ0 ↓ →0x20822
<Call 0x2077a 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x20780 [18] @> Δ-18 {[«18""»]}
<POP 2078c-2078e StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2078e 18> {[«18""»]|[$$Experiment error :]}
<Call 0x2079a 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 2079c-2079d StackAdj> Δ+22 ↓ {}
<Blob 0x2079d [14] @> Δ-14 {[«14""»]}
<POP 207ac-207ae StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x207ae 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 207b8-207ba StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 207ba MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x207be 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 207c4-207c6 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x207c6 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 207cc-207ce StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x207ce 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 207d0-207d2 StackAdj> Δ+18 {}
<MI 207d2 MOVEA.L (A6+0xa),A0> {}
<MI 207d6 CMPA.W #0x01,A0> {}
<MI 207d8 BEQ 0x20822> {}
<POP 207da-20822 Naked> Σ0 ↓
<Blob 0x207da [14] @> Δ-14 {[«14""»]}
<Blob 0x207ea [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 207fa-207fc StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x207fc 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 20806-20808 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x20808> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x20808 12> Δ-4
<Const 0x2080c 0x1.2> Δ-2
<Const 0x2080e 0x1e.2> Δ-2
<Call 0x20810 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20812-20814 StackAdj> Δ+8
<Call 0x20814 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 2081a-2081c StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x2081c 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2081e-20822 StackAdj> Δ+48 {}
<POP 20822-20882 Naked> Σ0 ↓ ←0x2077a
<Blob 0x20822 [14] @> Δ-14 {[«14""»]}
<POP 20832-20834 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20834 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 2083e-20840 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 20840 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x20844 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 2084a-2084c StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x2084c 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20852-20854 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20854 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20856-20857 StackAdj> Δ+18 ↓ {}
<Blob 0x20857 [24] @> Δ-24 {[«24""»]}
<Const 0x20866 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 2086a-2086c StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x2086c 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x2087a 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 20880-20882 StackAdj> Δ+30 {}
<POP 20882-2088a Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.595a9e6bef788982 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 03 4c | L | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 10 ce | | .PTR 0x210ce 00020010 code.end: 00020010 00 02 08 8a | | .PTR 0x2088a 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 06 92 | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 07 4e | N | .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 52 45 41 44 5f 4d 41 4e |READ_MAN| .TXT 'READ_MANY_LRUS.MEM' 0002011c 52 45 41 44 5f 4d 41 4e |READ_MAN| .TXT 'READ_MANY_LRUS.M32' 0002012e 54 68 69 73 20 77 69 6c |This wil| .TXT 'This will take about 80 seconds ' 0002014e 54 68 69 73 20 77 69 6c |This wil| .TXT 'This will take about 40 seconds ' 0002016e 73 75 70 70 72 65 73 73 |suppress| .TXT 'suppressing display of more bad lines ' 00020194 42 41 44 20 4c 52 55 73 |BAD LRUs| .TXT 'BAD LRUs on line_ ' 000201a6 3a 5f |:_ | .TXT ':_' 000201a8 5f 20 |_ | .TXT '_ ' 000201aa 20 62 61 64 20 6c 69 6e | bad lin| .TXT ' bad lines were found ' 000201c0 ; -------------------------------------------------------------------------------------- 000201c0 ; OMSI PASCAL Function 000201c0 ; <LVAR 0x00b 1(r)> 000201c0 ; <LVAR 0x00a 2(r)> 000201c0 ; <LVAR 0x008 2(r)> 000201c0 ; <LVAR -0x045 @> 000201c0 ; <LVAR -0x046 1(rw)> 000201c0 ; <LVAR -0x047 1(rw)> 000201c0 ; <LVAR -0x048 1(rw)> 000201c0 ; <LVAR -0x050 @ 4(r)> 000201c0 ; -------------------------------------------------------------------------------------- 000201c0 4e 56 ff 5e |NV ^ | LINK.W A6,#0xff5e 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 52 | R | ADDA.W #0x52,A7 000201d2 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000201d6 43 ee ff b0 |C | LEA.L (A6-0x50),A1 000201da 45 f8 00 00 |E | LEA.L 0x0,A2 000201de 47 ee 00 0a |G | LEA.L (A6+0xa),A3 000201e2 74 12 |t | MOVEQ.L #0x12,D2 000201e4 76 01 |v | MOVEQ.L #0x01,D3 000201e6 78 1a |x | MOVEQ.L #0x1a,D4 000201e8 7a 0f |z | MOVEQ.L #0x0f,D5 000201ea 55 4f |UO | SUBQ.L #0x2,A7 000201ec 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 000201f2 4a 1f |J | TST.B (A7)+ 000201f4 67 2e |g. | BEQ 0x20224 000201f6 41 fa ff 24 |A $ | LEA.L 0x2011c,A0 000201fa 70 08 |p | MOVEQ.L #0x08,D0 000201fc 3f 20 |? | MOVE.W -(A0),-(A7) 000201fe 51 c8 ff fc |Q | DBF D0,0x201fc 00020202 59 4f |YO | SUBQ.L #0x4,A7 00020204 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020208 3f 03 |? | MOVE.W D3,-(A7) 0002020a 3f 02 |? | MOVE.W D2,-(A7) 0002020c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020212 50 4f |PO | ADDQ.L #0x8,A7 00020214 48 51 |HQ | PEA.L (A1) 00020216 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 0002021c de c4 | | ADDA.W D4,A7 0002021e 30 13 |0 | MOVE.W (A3),D0 00020220 e4 40 | @ | ASR.W #0x2,D0 00020222 60 2e |`. | BRA 0x20252 00020224 41 fa ff 08 |A | LEA.L 0x2012e,A0 00020228 70 08 |p | MOVEQ.L #0x08,D0 0002022a 3f 20 |? | MOVE.W -(A0),-(A7) 0002022c 51 c8 ff fc |Q | DBF D0,0x2022a 00020230 59 4f |YO | SUBQ.L #0x4,A7 00020232 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020236 3f 03 |? | MOVE.W D3,-(A7) 00020238 3f 02 |? | MOVE.W D2,-(A7) 0002023a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020240 50 4f |PO | ADDQ.L #0x8,A7 00020242 48 51 |HQ | PEA.L (A1) 00020244 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 0002024a de c4 | | ADDA.W D4,A7 0002024c 30 13 |0 | MOVE.W (A3),D0 0002024e e6 40 | @ | ASR.W #0x3,D0 00020250 e3 40 | @ | ASL.W #0x1,D0 00020252 48 c0 |H | EXTW.L D0 00020254 2c 00 |, | MOVE.L D0,D6 00020256 1d 6e 00 0b ff b8 | n | MOVE.B (A6+0xb),(A6-0x48) 0002025c 1f 2e ff b8 | . | MOVE.B (A6-0x48),-(A7) 00020260 2f 11 |/ | MOVE.L (A1),-(A7) 00020262 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020266 48 52 |HR | PEA.L (A2) 00020268 48 52 |HR | PEA.L (A2) 0002026a 4e b9 00 01 04 66 |N f | JSR ExpInputParam(exp : Pointer; ptr : Pointer; len : L) 00020270 de c2 | | ADDA.W D2,A7 00020272 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 00020276 e0 48 | H | LSR.W #0x8,D0 00020278 1d 40 ff b9 | @ | MOVE.B D0,(A6-0x47) 0002027c 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 00020280 02 40 00 ff | @ | ANDI.W #0x00ff,D0 00020284 41 bc 00 ff |A | CHK.W #0xff,D0 00020288 1d 40 ff ba | @ | MOVE.B D0,(A6-0x46) 0002028c 55 4f |UO | SUBQ.L #0x2,A7 0002028e 1e ae ff b9 | | MOVE.B (A6-0x47),(A7) 00020292 1f 6e ff ba 00 01 | n | MOVE.B (A6-0x46),(A7+0x1) 00020298 2f 11 |/ | MOVE.L (A1),-(A7) 0002029a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002029e 48 52 |HR | PEA.L (A2) 000202a0 48 78 00 01 |Hx | PEA.L 0x1 000202a4 4e b9 00 01 04 66 |N f | JSR ExpInputParam(exp : Pointer; ptr : Pointer; len : L) 000202aa de c2 | | ADDA.W D2,A7 000202ac 20 06 | | MOVE.L D6,D0 000202ae 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0 000202b4 63 02 |c | BLS 0x202b8 000202b6 4e 4e |NN | TRAP #14 000202b8 d0 40 | @ | ADD.W D0,D0 000202ba 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000202c2 00 08 | | .CONST 0x8 ; [0x0] -> 0x202ca 000202c4 00 10 | | .CONST 0x10 ; [0x1] -> 0x202d2 000202c6 00 18 | | .CONST 0x18 ; [0x2] -> 0x202da 000202c8 00 20 | | .CONST 0x20 ; [0x3] -> 0x202e2 000202ca switch@0x202ba[0x0]: 000202ca 42 27 |B' | CLR.B -(A7) 000202cc 1f 3c 00 0c | < | MOVE.B #0x0c,-(A7) 000202d0 60 14 |` | BRA 0x202e6 000202d2 switch@0x202ba[0x1]: 000202d2 42 27 |B' | CLR.B -(A7) 000202d4 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 000202d8 60 0c |` | BRA 0x202e6 000202da switch@0x202ba[0x2]: 000202da 42 27 |B' | CLR.B -(A7) 000202dc 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 000202e0 60 04 |` | BRA 0x202e6 000202e2 switch@0x202ba[0x3]: 000202e2 42 27 |B' | CLR.B -(A7) 000202e4 1f 05 | | MOVE.B D5,-(A7) 000202e6 2f 11 |/ | MOVE.L (A1),-(A7) 000202e8 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 000202ee 50 4f |PO | ADDQ.L #0x8,A7 000202f0 2f 11 |/ | MOVE.L (A1),-(A7) 000202f2 48 6e ff bb |Hn | PEA.L (A6-0x45) 000202f6 48 52 |HR | PEA.L (A2) 000202f8 48 78 00 3f |Hx ? | PEA.L 0x3f 000202fc 4e b9 00 01 04 72 |N r | JSR ExpOutputParam(exp : Pointer; b : Pointer; c : L; d : L) 00020302 de fc 00 10 | | ADDA.W #0x10,A7 00020306 48 51 |HQ | PEA.L (A1) 00020308 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 0002030e 58 4f |XO | ADDQ.L #0x4,A7 00020310 7e 00 |~ | MOVEQ.L #0x00,D7 00020312 0c 87 00 00 00 3f | ? | CMPI.L #0x0000003f,D7 00020318 63 02 |c | BLS 0x2031c 0002031a 4e 4f |NO | TRAP #15 0002031c 20 07 | | MOVE.L D7,D0 0002031e eb 80 | | ASL.L #0x5,D0 00020320 41 f9 00 02 08 8a |A | LEA.L 0x2088a,A0 00020326 32 13 |2 | MOVE.W (A3),D1 00020328 43 85 |C | CHK.W D5,D1 0002032a e3 41 | A | ASL.W #0x1,D1 0002032c 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 00020330 42 80 |B | CLR.L D0 00020332 10 36 78 bb | 6x | MOVE.B (A6+D7.L-#0x45),D0 00020336 31 80 10 08 |1 | MOVE.W D0,(A0+D1.W+#0x8) 0002033a 52 87 |R | ADDQ.L #0x1,D7 0002033c 0c 87 00 00 00 3f | ? | CMPI.L #0x0000003f,D7 00020342 6f ce |o | BLE 0x20312 00020344 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00020348 4e 5e |N^ | UNLK A6 0002034a 4e 75 |Nu | RTS 0002034c ; -------------------------------------------------------------------------------------- 0002034c ; OMSI PASCAL Function 0002034c ; -------------------------------------------------------------------------------------- 0002034c START: 0002034c 4f fa 00 08 |O | LEA.L MAIN,A7 00020350 4e f9 00 01 02 80 |N | JMP ?start_program 00020356 MAIN: 00020356 45 f9 00 02 10 a2 |E | LEA.L 0x210a2,A2 0002035c 47 f9 00 02 10 a6 |G | LEA.L 0x210a6,A3 00020362 49 f9 00 02 08 8a |I | LEA.L 0x2088a,A4 00020368 76 01 |v | MOVEQ.L #0x01,D3 0002036a 78 0f |x | MOVEQ.L #0x0f,D4 0002036c 7a 3f |z? | MOVEQ.L #0x3f,D5 0002036e 7c 20 || | MOVEQ.L #0x20,D6 00020370 7e 1f |~ | MOVEQ.L #0x1f,D7 00020372 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020378 48 78 00 02 |Hx | PEA.L 0x2 0002037c 4e b9 00 01 04 d8 |N | JSR ExpInit(a : Long) 00020382 54 4f |TO | ADDQ.L #0x2,A7 00020384 42 17 |B | CLR.B (A7) 00020386 4e b9 00 01 04 d2 |N | JSR SetExpInitDone(a : Byte) 0002038c 54 4f |TO | ADDQ.L #0x2,A7 0002038e 42 93 |B | CLR.L (A3) 00020390 55 4f |UO | SUBQ.L #0x2,A7 00020392 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020396 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte 0002039c 54 4f |TO | ADDQ.L #0x2,A7 0002039e 4a 1f |J | TST.B (A7)+ 000203a0 67 30 |g0 | BEQ 0x203d2 000203a2 9e c6 | | SUBA.W D6,A7 000203a4 20 4f | O | MOVEA.L A7,A0 000203a6 43 fa fd 86 |C | LEA.L 0x2012e,A1 000203aa 70 1e |p | MOVEQ.L #0x1e,D0 000203ac 10 d9 | | MOVE.B (A1)+,(A0)+ 000203ae 51 c8 ff fc |Q | DBF D0,0x203ac 000203b2 59 4f |YO | SUBQ.L #0x4,A7 000203b4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000203b8 3f 03 |? | MOVE.W D3,-(A7) 000203ba 3f 07 |? | MOVE.W D7,-(A7) 000203bc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000203c2 50 4f |PO | ADDQ.L #0x8,A7 000203c4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000203ca de fc 00 24 | $ | ADDA.W #0x24,A7 000203ce 24 84 |$ | MOVE.L D4,(A2) 000203d0 60 32 |`2 | BRA 0x20404 000203d2 9e c6 | | SUBA.W D6,A7 000203d4 20 4f | O | MOVEA.L A7,A0 000203d6 43 fa fd 76 |C v | LEA.L 0x2014e,A1 000203da 70 1e |p | MOVEQ.L #0x1e,D0 000203dc 10 d9 | | MOVE.B (A1)+,(A0)+ 000203de 51 c8 ff fc |Q | DBF D0,0x203dc 000203e2 59 4f |YO | SUBQ.L #0x4,A7 000203e4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000203e8 3f 03 |? | MOVE.W D3,-(A7) 000203ea 3f 07 |? | MOVE.W D7,-(A7) 000203ec 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000203f2 50 4f |PO | ADDQ.L #0x8,A7 000203f4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000203fa de fc 00 24 | $ | ADDA.W #0x24,A7 000203fe 24 bc 00 00 00 07 |$ | MOVE.L #0x7,(A2) 00020404 70 00 |p | MOVEQ.L #0x00,D0 00020406 23 c0 00 02 10 92 |# | MOVE.L D0,0x21092 0002040c 2f 00 |/ | MOVE.L D0,-(A7) 0002040e 2f 12 |/ | MOVE.L (A2),-(A7) 00020410 72 00 |r | MOVEQ.L #0x00,D1 00020412 b2 97 | | CMP.L (A7),D1 00020414 6e 2e |n. | BGT 0x20444 00020416 23 c1 00 02 10 9a |# | MOVE.L D1,0x2109a 0002041c 0c 81 00 00 00 ff | | CMPI.L #0x000000ff,D1 00020422 63 02 |c | BLS 0x20426 00020424 4e 4f |NO | TRAP #15 00020426 3f 01 |? | MOVE.W D1,-(A7) 00020428 20 2f 00 06 | / | MOVE.L (A7+0x6),D0 0002042c ed 80 | | ASL.L #0x6,D0 0002042e 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00020434 63 02 |c | BLS 0x20438 00020436 4e 4f |NO | TRAP #15 00020438 3f 00 |? | MOVE.W D0,-(A7) 0002043a 4e ba fd 84 |N | JSR 0x201c0 0002043e 58 4f |XO | ADDQ.L #0x4,A7 00020440 52 81 |R | ADDQ.L #0x1,D1 00020442 68 ce |h | BVC 0x20412 00020444 58 4f |XO | ADDQ.L #0x4,A7 00020446 70 00 |p | MOVEQ.L #0x00,D0 00020448 23 c0 00 02 10 96 |# | MOVE.L D0,0x21096 0002044e 2f 00 |/ | MOVE.L D0,-(A7) 00020450 42 39 00 02 10 aa |B9 | CLR.B 0x210aa 00020456 2f 12 |/ | MOVE.L (A2),-(A7) 00020458 72 00 |r | MOVEQ.L #0x00,D1 0002045a b2 97 | | CMP.L (A7),D1 0002045c 6e 1a |n | BGT 0x20478 0002045e 23 c1 00 02 10 9e |# | MOVE.L D1,0x2109e 00020464 b2 84 | | CMP.L D4,D1 00020466 63 02 |c | BLS 0x2046a 00020468 4e 4f |NO | TRAP #15 0002046a 20 4c | L | MOVEA.L A4,A0 0002046c 41 f0 18 00 |A | LEA.L (A0+D1.L),A0 00020470 42 28 08 21 |B( ! | CLR.B (A0+0x821) 00020474 52 81 |R | ADDQ.L #0x1,D1 00020476 68 e2 |h | BVC 0x2045a 00020478 2e 92 |. | MOVE.L (A2),(A7) 0002047a 70 00 |p | MOVEQ.L #0x00,D0 0002047c b0 97 | | CMP.L (A7),D0 0002047e 6e 36 |n6 | BGT 0x204b6 00020480 23 c0 00 02 10 9a |# | MOVE.L D0,0x2109a 00020486 22 2f 00 04 |"/ | MOVE.L (A7+0x4),D1 0002048a b2 85 | | CMP.L D5,D1 0002048c 63 02 |c | BLS 0x20490 0002048e 4e 4f |NO | TRAP #15 00020490 eb 81 | | ASL.L #0x5,D1 00020492 20 4c | L | MOVEA.L A4,A0 00020494 b0 84 | | CMP.L D4,D0 00020496 63 02 |c | BLS 0x2049a 00020498 4e 4f |NO | TRAP #15 0002049a 24 00 |$ | MOVE.L D0,D2 0002049c e3 82 | | ASL.L #0x1,D2 0002049e 41 f0 18 00 |A | LEA.L (A0+D1.L),A0 000204a2 32 30 28 08 |20( | MOVE.W (A0+D2.L+#0x8),D1 000204a6 43 84 |C | CHK.W D4,D1 000204a8 20 4c | L | MOVEA.L A4,A0 000204aa 41 f0 10 00 |A | LEA.L (A0+D1.W),A0 000204ae 11 43 08 21 | C ! | MOVE.B D3,(A0+0x821) 000204b2 52 80 |R | ADDQ.L #0x1,D0 000204b4 68 c6 |h | BVC 0x2047c 000204b6 2e 92 |. | MOVE.L (A2),(A7) 000204b8 70 00 |p | MOVEQ.L #0x00,D0 000204ba b0 97 | | CMP.L (A7),D0 000204bc 6e 2e |n. | BGT 0x204ec 000204be 23 c0 00 02 10 9e |# | MOVE.L D0,0x2109e 000204c4 b0 84 | | CMP.L D4,D0 000204c6 63 02 |c | BLS 0x204ca 000204c8 4e 4f |NO | TRAP #15 000204ca 20 4c | L | MOVEA.L A4,A0 000204cc 41 f0 08 00 |A | LEA.L (A0+D0.L),A0 000204d0 12 28 08 21 | ( ! | MOVE.B (A0+0x821),D1 000204d4 44 01 |D | NEG.B D1 000204d6 52 01 |R | ADDQ.B #0x1,D1 000204d8 82 39 00 02 10 aa | 9 | OR.B 0x210aa,D1 000204de 48 81 |H | EXTB.W D1 000204e0 43 83 |C | CHK.W D3,D1 000204e2 13 c1 00 02 10 aa | | MOVE.B D1,0x210aa 000204e8 52 80 |R | ADDQ.L #0x1,D0 000204ea 68 ce |h | BVC 0x204ba 000204ec 58 4f |XO | ADDQ.L #0x4,A7 000204ee 4a 39 00 02 10 aa |J9 | TST.B 0x210aa 000204f4 67 00 01 26 |g & | BEQ 0x2061c 000204f8 52 93 |R | ADDQ.L #0x1,(A3) 000204fa 20 13 | | MOVE.L (A3),D0 000204fc 0c 80 00 00 00 32 | 2 | CMPI.L #0x00000032,D0 00020502 66 30 |f0 | BNE 0x20534 00020504 9e fc 00 26 | & | SUBA.W #0x26,A7 00020508 20 4f | O | MOVEA.L A7,A0 0002050a 43 fa fc 62 |C b | LEA.L 0x2016e,A1 0002050e 70 24 |p$ | MOVEQ.L #0x24,D0 00020510 10 d9 | | MOVE.B (A1)+,(A0)+ 00020512 51 c8 ff fc |Q | DBF D0,0x20510 00020516 59 4f |YO | SUBQ.L #0x4,A7 00020518 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002051c 3f 03 |? | MOVE.W D3,-(A7) 0002051e 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7) 00020522 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020528 50 4f |PO | ADDQ.L #0x8,A7 0002052a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020530 de fc 00 2a | * | ADDA.W #0x2a,A7 00020534 20 13 | | MOVE.L (A3),D0 00020536 0c 80 00 00 00 32 | 2 | CMPI.L #0x00000032,D0 0002053c 6c 00 00 de |l | BGE 0x2061c 00020540 9e fc 00 12 | | SUBA.W #0x12,A7 00020544 20 4f | O | MOVEA.L A7,A0 00020546 43 fa fc 4c |C L | LEA.L 0x20194,A1 0002054a 70 10 |p | MOVEQ.L #0x10,D0 0002054c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002054e 51 c8 ff fc |Q | DBF D0,0x2054c 00020552 3f 3a fc 52 |?: R | MOVE.W 0x201a6,-(A7) 00020556 51 4f |QO | SUBQ.L #0x8,A7 00020558 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002055c 3f 03 |? | MOVE.W D3,-(A7) 0002055e 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00020562 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020568 58 4f |XO | ADDQ.L #0x4,A7 0002056a 20 2f 00 24 | / $ | MOVE.L (A7+0x24),D0 0002056e ed 80 | | ASL.L #0x6,D0 00020570 22 2f 00 20 |"/ | MOVE.L (A7+0x20),D1 00020574 d2 80 | | ADD.L D0,D1 00020576 2f 01 |/ | MOVE.L D1,-(A7) 00020578 48 78 00 03 |Hx | PEA.L 0x3 0002057c 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 00020582 58 4f |XO | ADDQ.L #0x4,A7 00020584 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00020588 3f 03 |? | MOVE.W D3,-(A7) 0002058a 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 0002058e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020594 50 4f |PO | ADDQ.L #0x8,A7 00020596 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 0002059c de fc 00 0c | | ADDA.W #0xc,A7 000205a0 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000205a6 de fc 00 14 | | ADDA.W #0x14,A7 000205aa 2e 92 |. | MOVE.L (A2),(A7) 000205ac 70 00 |p | MOVEQ.L #0x00,D0 000205ae b0 97 | | CMP.L (A7),D0 000205b0 6e 62 |nb | BGT 0x20614 000205b2 23 c0 00 02 10 9a |# | MOVE.L D0,0x2109a 000205b8 3f 3a fb ee |?: | MOVE.W 0x201a8,-(A7) 000205bc 51 4f |QO | SUBQ.L #0x8,A7 000205be 22 2f 00 0e |"/ | MOVE.L (A7+0xe),D1 000205c2 b2 85 | | CMP.L D5,D1 000205c4 63 02 |c | BLS 0x205c8 000205c6 4e 4f |NO | TRAP #15 000205c8 eb 81 | | ASL.L #0x5,D1 000205ca 20 4c | L | MOVEA.L A4,A0 000205cc b0 84 | | CMP.L D4,D0 000205ce 63 02 |c | BLS 0x205d2 000205d0 4e 4f |NO | TRAP #15 000205d2 24 00 |$ | MOVE.L D0,D2 000205d4 e3 82 | | ASL.L #0x1,D2 000205d6 41 f0 18 00 |A | LEA.L (A0+D1.L),A0 000205da 32 30 28 08 |20( | MOVE.W (A0+D2.L+#0x8),D1 000205de 48 c1 |H | EXTW.L D1 000205e0 2f 01 |/ | MOVE.L D1,-(A7) 000205e2 48 78 00 01 |Hx | PEA.L 0x1 000205e6 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 000205ec 58 4f |XO | ADDQ.L #0x4,A7 000205ee 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000205f2 3f 03 |? | MOVE.W D3,-(A7) 000205f4 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000205f8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000205fe 50 4f |PO | ADDQ.L #0x8,A7 00020600 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020606 50 4f |PO | ADDQ.L #0x8,A7 00020608 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 0002060e 5c 4f |\O | ADDQ.L #0x6,A7 00020610 52 80 |R | ADDQ.L #0x1,D0 00020612 68 9a |h | BVC 0x205ae 00020614 58 4f |XO | ADDQ.L #0x4,A7 00020616 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002061c 20 1f | | MOVE.L (A7)+,D0 0002061e 52 80 |R | ADDQ.L #0x1,D0 00020620 b0 85 | | CMP.L D5,D0 00020622 6f 00 fe 24 |o $ | BLE 0x20448 00020626 20 1f | | MOVE.L (A7)+,D0 00020628 52 80 |R | ADDQ.L #0x1,D0 0002062a b0 85 | | CMP.L D5,D0 0002062c 6f 00 fd d8 |o | BLE 0x20406 00020630 9e fc 00 16 | | SUBA.W #0x16,A7 00020634 20 4f | O | MOVEA.L A7,A0 00020636 43 fa fb 72 |C r | LEA.L 0x201aa,A1 0002063a 70 14 |p | MOVEQ.L #0x14,D0 0002063c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002063e 51 c8 ff fc |Q | DBF D0,0x2063c 00020642 51 4f |QO | SUBQ.L #0x8,A7 00020644 2f 13 |/ | MOVE.L (A3),-(A7) 00020646 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002064c 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020650 3f 03 |? | MOVE.W D3,-(A7) 00020652 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 00020656 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002065c 50 4f |PO | ADDQ.L #0x8,A7 0002065e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020664 50 4f |PO | ADDQ.L #0x8,A7 00020666 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002066c de fc 00 18 | | ADDA.W #0x18,A7 00020670 42 17 |B | CLR.B (A7) 00020672 48 78 00 01 |Hx | PEA.L 0x1 00020676 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002067c 5c 4f |\O | ADDQ.L #0x6,A7 0002067e 4e b9 00 01 02 84 |N | JSR ?exit 00020684 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00020692 ; -------------------------------------------------------------------------------------- 00020692 ; OMSI PASCAL Function 00020692 ; <LVAR 0x008 1(r)> 00020692 ; -------------------------------------------------------------------------------------- 00020692 PROG_FAIL: 00020692 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00020696 bf d5 | | CMPA.L (A5),A7 00020698 62 06 |b | BHI 0x206a0 0002069a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002069e 4e 76 |Nv | TRAPV 000206a0 de fc 00 2c | , | ADDA.W #0x2c,A7 000206a4 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000206a8 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 000206ac 70 06 |p | MOVEQ.L #0x06,D0 000206ae 3f 20 |? | MOVE.W -(A0),-(A7) 000206b0 51 c8 ff fc |Q | DBF D0,0x206ae 000206b4 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000206b8 51 4f |QO | SUBQ.L #0x8,A7 000206ba 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000206be 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000206c2 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000206c6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000206cc 58 4f |XO | ADDQ.L #0x4,A7 000206ce 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000206d2 48 80 |H | EXTB.W D0 000206d4 48 c0 |H | EXTW.L D0 000206d6 2f 00 |/ | MOVE.L D0,-(A7) 000206d8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000206de 58 4f |XO | ADDQ.L #0x4,A7 000206e0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000206e6 50 4f |PO | ADDQ.L #0x8,A7 000206e8 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000206ee de fc 00 14 | | ADDA.W #0x14,A7 000206f2 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000206f6 4e 5e |N^ | UNLK A6 000206f8 4e 75 |Nu | RTS 000206fa 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00020708 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00020716 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00020724 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00020736 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 0002074e ; -------------------------------------------------------------------------------------- 0002074e ; OMSI PASCAL Function 0002074e ; <LVAR 0x00e 1(r)> 0002074e ; <LVAR 0x00a 4(r)> 0002074e ; <LVAR 0x008 1(r)> 0002074e ; -------------------------------------------------------------------------------------- 0002074e EXP_FAIL: 0002074e 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00020752 bf d5 | | CMPA.L (A5),A7 00020754 62 06 |b | BHI 0x2075c 00020756 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002075a 4e 76 |Nv | TRAPV 0002075c de fc 00 74 | t | ADDA.W #0x74,A7 00020760 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00020764 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 0002076a 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00020770 72 01 |r | MOVEQ.L #0x01,D1 00020772 74 0d |t | MOVEQ.L #0x0d,D2 00020774 76 1e |v | MOVEQ.L #0x1e,D3 00020776 78 12 |x | MOVEQ.L #0x12,D4 00020778 7a 0e |z | MOVEQ.L #0x0e,D5 0002077a 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020780 41 fa ff b4 |A | LEA.L 0x20736,A0 00020784 70 08 |p | MOVEQ.L #0x08,D0 00020786 3f 20 |? | MOVE.W -(A0),-(A7) 00020788 51 c8 ff fc |Q | DBF D0,0x20786 0002078c 59 4f |YO | SUBQ.L #0x4,A7 0002078e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020792 3f 01 |? | MOVE.W D1,-(A7) 00020794 3f 04 |? | MOVE.W D4,-(A7) 00020796 4e 93 |N | JSR (A3) 00020798 50 4f |PO | ADDQ.L #0x8,A7 0002079a 4e 94 |N | JSR (A4) 0002079c 50 4f |PO | ADDQ.L #0x8,A7 0002079e 20 4f | O | MOVEA.L A7,A0 000207a0 43 fa ff 58 |C X | LEA.L 0x206fa,A1 000207a4 70 0c |p | MOVEQ.L #0x0c,D0 000207a6 10 d9 | | MOVE.B (A1)+,(A0)+ 000207a8 51 c8 ff fc |Q | DBF D0,0x207a6 000207ac 51 4f |QO | SUBQ.L #0x8,A7 000207ae 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000207b2 3f 01 |? | MOVE.W D1,-(A7) 000207b4 3f 02 |? | MOVE.W D2,-(A7) 000207b6 4e 93 |N | JSR (A3) 000207b8 54 4f |TO | ADDQ.L #0x2,A7 000207ba 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000207be 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000207c4 54 4f |TO | ADDQ.L #0x2,A7 000207c6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000207cc 50 4f |PO | ADDQ.L #0x8,A7 000207ce 4e 94 |N | JSR (A4) 000207d0 de c4 | | ADDA.W D4,A7 000207d2 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000207d6 b0 c1 | | CMPA.W D1,A0 000207d8 67 48 |gH | BEQ 0x20822 000207da 9e c5 | | SUBA.W D5,A7 000207dc 22 4f |"O | MOVEA.L A7,A1 000207de 45 fa ff 28 |E ( | LEA.L 0x20708,A2 000207e2 70 0c |p | MOVEQ.L #0x0c,D0 000207e4 12 da | | MOVE.B (A2)+,(A1)+ 000207e6 51 c8 ff fc |Q | DBF D0,0x207e4 000207ea 9e c3 | | SUBA.W D3,A7 000207ec 22 4f |"O | MOVEA.L A7,A1 000207ee 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000207f2 70 1d |p | MOVEQ.L #0x1d,D0 000207f4 12 d8 | | MOVE.B (A0)+,(A1)+ 000207f6 51 c8 ff fc |Q | DBF D0,0x207f4 000207fa 51 4f |QO | SUBQ.L #0x8,A7 000207fc 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020800 3f 01 |? | MOVE.W D1,-(A7) 00020802 3f 02 |? | MOVE.W D2,-(A7) 00020804 4e 93 |N | JSR (A3) 00020806 58 4f |XO | ADDQ.L #0x4,A7 00020808 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002080c 3f 01 |? | MOVE.W D1,-(A7) 0002080e 3f 03 |? | MOVE.W D3,-(A7) 00020810 4e 93 |N | JSR (A3) 00020812 50 4f |PO | ADDQ.L #0x8,A7 00020814 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002081a 50 4f |PO | ADDQ.L #0x8,A7 0002081c 4e 94 |N | JSR (A4) 0002081e de fc 00 30 | 0 | ADDA.W #0x30,A7 00020822 9e c5 | | SUBA.W D5,A7 00020824 20 4f | O | MOVEA.L A7,A0 00020826 43 fa fe ee |C | LEA.L 0x20716,A1 0002082a 70 0c |p | MOVEQ.L #0x0c,D0 0002082c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002082e 51 c8 ff fc |Q | DBF D0,0x2082c 00020832 51 4f |QO | SUBQ.L #0x8,A7 00020834 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020838 3f 01 |? | MOVE.W D1,-(A7) 0002083a 3f 02 |? | MOVE.W D2,-(A7) 0002083c 4e 93 |N | JSR (A3) 0002083e 54 4f |TO | ADDQ.L #0x2,A7 00020840 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00020844 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 0002084a 54 4f |TO | ADDQ.L #0x2,A7 0002084c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020852 50 4f |PO | ADDQ.L #0x8,A7 00020854 4e 94 |N | JSR (A4) 00020856 5d 4f |]O | SUBQ.L #0x6,A7 00020858 20 4f | O | MOVEA.L A7,A0 0002085a 43 fa fe da |C | LEA.L 0x20736,A1 0002085e 70 16 |p | MOVEQ.L #0x16,D0 00020860 10 d9 | | MOVE.B (A1)+,(A0)+ 00020862 51 c8 ff fc |Q | DBF D0,0x20860 00020866 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002086a 59 4f |YO | SUBQ.L #0x4,A7 0002086c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020870 3f 01 |? | MOVE.W D1,-(A7) 00020872 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00020876 4e 93 |N | JSR (A3) 00020878 50 4f |PO | ADDQ.L #0x8,A7 0002087a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020880 de c3 | | ADDA.W D3,A7 00020882 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00020886 4e 5e |N^ | UNLK A6 00020888 4e 75 |Nu | RTS