|
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: 5120 (0x1400)
Types: M200
Notes: @(#)BBCVT,1.0,91/10/30,10:27:00, M200_PROGRAM
Names: »BBCVT.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »BBCVT.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »BBCVT.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »BBCVT.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »BBCVT.M200«
└─ ⟦this⟧ »BBCVT.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »BBCVT.M200«
@ 20416
<POP 20416-20474 Body>
<POP 20416-2042c Prologue> Σ0 ↓
<POP 2042c-2042e Naked> Σ0 ↓
<MI 2042c MOVEQ.L #0x00,D7> {}
<POP 2042e-20466 Naked> Σ0 ↓ →0x2042e ←0x2042e
<POP 0x2042e LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {}
<MI 20438 MOVE.L D7,D0> {}
<MI 2043a ASL.L #0x2,D0> {}
<MI 2043c LEA.L 0x2136c,A0> {}
<MI 20442 ORI.B #0x80,(A0+D0.L+#0x8)> {}
<MI 20448 ANDI.B #0xbf,(A0+D0.L+#0x8)> {}
<MI 2044e ANDI.W #0xc000,(A0+D0.L+#0x8)> {}
<MI 20454 CLR.B (A0+D0.L+#0xa)> {}
<MI 20458 CLR.B (A0+D0.L+#0xb)> {}
<MI 2045c ADDQ.L #0x1,D7> {}
<MI 2045e CMPI.L #0x000007ff,D7> {}
<MI 20464 BLE 0x2042e> {}
<POP 20466-2046c Naked> Σ0 ↓
<MI 20466 CLR.L 0x23374> {}
<POP 2046c-20474 Epilogue> Σ0
@ 20474
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20474-20602 Body>
<POP 20474-2048a Prologue> Σ0 ↓
<POP 2048a-204a0 RegCacheLoad> Σ0 ↓
<POP 204a0-204aa Naked> Σ0 ↓ →0x204d4
<MI 204a0 MOVE.L 0x23374,D0> {}
<MI 204a2 CMPI.L #0x00000800,D0> {}
<MI 204a8 BNE 0x204d4> {}
<POP 204aa-204d4 Naked> Σ0 ↓
<Blob 0x204aa [34] @> Δ-34 {[«34""»]}
<Const 0x204b6 0xe.2> Δ-2 {[«34""»]|[#14]}
<POP 204ba-204bc StackAdj> Δ-4 {[«34""»]|[#14]|[-4-]}
<Lit 0x204bc 34> {[«34""»]|[#14]|[$$Too many defects (>2048) to handle]}
<Call 0x204ca 0x103b8> {[«34""»]|[#14]|[$$Too many defects (>2048) to handle]}
PopProgram(status : Byte; msg : String)
<POP 204d0-204d4 StackAdj> Δ+40 {}
<POP 204d4-204dc Naked> Σ0 Δ-4 ↓ ←0x204a0
<MI 204d4 MOVEQ.L #0x00,D7> {}
<Blob 0x204d6 [4] 0x23374> Δ-4 {[«4»]}
<MI 204d8 SUBQ.L #0x1,(A7)> {[-4-]}
<MI 204da MOVEQ.L #0x00,D6> {[-4-]}
<POP 204dc-204e0 Naked> Σ-4 ↓ →0x2051e ←0x2051a
<MI 204dc CMP.L (A7),D6> {[-4-]}
<MI 204de BGT 0x2051e> {[-4-]}
<POP 204e0-20500 Naked> Σ-4 ↓ →0x2051a
<POP 0x204e0 LimitCheck 0x0 ≤ D6 ≤ 0x7ff> {[-4-]}
<MI 204ea MOVE.L D6,D0> {[-4-]}
<MI 204ec ASL.L #0x2,D0> {[-4-]}
<MI 204ee LEA.L 0x2136c,A0> {[-4-]}
<MI 204f0 CLR.L D1> {[-4-]}
<MI 204f2 MOVE.W (A0+D0.L+#0x8),D1> {[-4-]}
<MI 204f6 LSL.W #0x2,D1> {[-4-]}
<MI 204f8 LSR.W #0x2,D1> {[-4-]}
<MI 204fa CMP.L (A6+0x10),D1> {[-4-]}
<MI 204fe BNE 0x2051a> {[-4-]}
<POP 20500-2050c Naked> Σ-4 ↓ →0x2051a
<MI 20500 CLR.L D1> {[-4-]}
<MI 20502 MOVE.B (A0+D0.L+#0xa),D1> {[-4-]}
<MI 20506 CMP.L (A6+0xc),D1> {[-4-]}
<MI 2050a BNE 0x2051a> {[-4-]}
<POP 2050c-20518 Naked> Σ-4 ↓ →0x2051a
<MI 2050c CLR.L D1> {[-4-]}
<MI 2050e MOVE.B (A0+D0.L+#0xb),D1> {[-4-]}
<MI 20512 CMP.L (A6+0x8),D1> {[-4-]}
<MI 20516 BNE 0x2051a> {[-4-]}
<POP 20518-2051a Naked> Σ-4 ↓
<MI 20518 MOVEQ.L #0x01,D7> {[-4-]}
<POP 2051a-2051e Naked> Σ-4 ↓ →0x204dc ←0x204e0 ←0x20500 ←0x2050c
<MI 2051a ADDQ.L #0x1,D6> {[-4-]}
<MI 2051c BVC 0x204dc> {[-4-]}
<POP 2051e-20526 Naked> Σ-4 Δ+4 ↓ →0x205fa ←0x204dc
<POP 2051e-20520 StackAdj> Δ+4 {}
<MI 20520 TST.B D7> {}
<MI 20522 BNE 0x205fa> {}
<POP 20526-205fa Naked> Σ0 ↓
<Blob 0x20526 [30] @> Δ-30 {[«30""»]}
<Blob 0x20538 [12] @> Δ-12 {[«30""»]|[«12""»]}
<Blob 0x20548 [4] @> Δ-4 {[«30""»]|[«12""»]|[«4""»]}
<Blob 0x2054c [4] @> Δ-4 {[«30""»]|[«12""»]|[«4""»]|[«4""»]}
<Blob 0x20550 [4] @> Δ-4 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 20554-20556 StackAdj> Δ-8 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x20556 29> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Adding defect at cylinder =>_]}
<MI 20562 MOVE.L (A6+0x10),(A7)> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']}
<POP 20560-20562 StackAdj> Δ-8 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-8-]}
<Call 0x20566 0x102e4> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x2056c 11> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[$$, track =>_]}
<MI 20578 MOVE.L (A6+0xc),(A7)> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']}
<POP 20576-20578 StackAdj> Δ-8 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-8-]}
<Call 0x2057c 0x102e4> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x20582 12> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[$$, sector =>_]}
<MI 2058c MOVE.L (A6+0x8),(A7)> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']}
<POP 2058a-2058c StackAdj> Δ-8 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Call 0x20590 0x102e4> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-8-]}
Long2String(a : Long) : String
<POP 20596-20598 StackAdj> Δ+4 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x20598 0x102e0> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x10)']|[-4-]|[4, '(A6+0xc)']|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 2059e-205a2 StackAdj> Δ+24 {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x205a2 0x103e0> {[«30""»]|[«12""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 205a8-205ac StackAdj> Δ+58 {}
<MI 205ac MOVE.L 0x23374,D0> {}
<POP 0x205ae LimitCheck 0x0 ≤ D0 ≤ 0x7ff> {}
<MI 205b8 ASL.L #0x2,D0> {}
<MI 205ba LEA.L 0x2136c,A0> {}
<MI 205bc MOVE.L (A6+0x10),D1> {}
<POP 0x205c0 LimitCheck 0x0 ≤ D1 ≤ 0x3fff> {}
<MI 205ca ANDI.W #0xc000,(A0+D0.L+#0x8)> {}
<MI 205d0 OR.W D1,(A0+D0.L+#0x8)> {}
<MI 205d4 MOVE.L (A6+0xc),D1> {}
<POP 0x205d8 LimitCheck 0x0 ≤ D1 ≤ 0xff> {}
<MI 205e2 MOVE.B D1,(A0+D0.L+#0xa)> {}
<MI 205e6 MOVE.L (A6+0x8),D1> {}
<POP 0x205ea LimitCheck 0x0 ≤ D1 ≤ 0xff> {}
<MI 205f4 MOVE.B D1,(A0+D0.L+#0xb)> {}
<MI 205f8 ADDQ.L #0x1,0x23374> {}
<POP 205fa-20602 Epilogue> Σ0 ←0x2051e
@ 20602
<LVAR 0x01c 4(r)>
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x05a @>
<POP 20602-20918 Body>
<POP 20602-20618 Prologue> Σ0 ↓
<POP 20618-20622 RegCacheLoad> Σ0 ↓
<POP 20622-20848 Naked> Σ0 Δ-4 ↓ →0x20878
<MI 20622 MOVEA.L (A6+0x1c),A0> {}
<Blob 0x20626 [42] @> Δ-42 {[«42""»]}
<POP 20632-20634 StackAdj> Δ-8 {[«42""»]|[-8-]}
<Lit 0x20634 42> {[«42""»]|[-4-]|[$$Enter HDA serial number as shown on HDA :_]}
<Call 0x20644 0x103e4> {[«42""»]|[-4-]|[$$Enter HDA serial number as shown on HDA :_]}
AskConsoleString(prompt : String) : String
<POP 2064a-2064c StackAdj> Δ+4 {[«42""»]|[-4-]}
<MI 2064c MOVE.L (A7)+,(A0)> Δ+4 {[«42""»]}
<POP 2064e-20650 StackAdj> Δ+42 {}
<MI 20650 LEA.L (A6-0x5a),A0> {}
<MI 20654 LEA.L 0x203bc,A1> {}
<BlockMove 90,A1,A0> {}
<Blob 0x20660 [46] @> Δ-46 {[«46""»]}
<POP 2066c-2066e StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x2066e 46> {[«46""»]|[$$Please enter the proper drive code from table:]}
<Call 0x20680 0x103e0> {[«46""»]|[$$Please enter the proper drive code from table:]}
WriteConsoleStringCrLf(str : String)
<POP 20686-2068a StackAdj> Δ+50 {}
<Blob 0x2068a [20] @> Δ-20 {[«20""»]}
<POP 20696-20698 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x20698 20> {[«20""»]|[$$ 0 => Fujitsu 2351]}
<Call 0x206a8 0x103e0> {[«20""»]|[$$ 0 => Fujitsu 2351]}
WriteConsoleStringCrLf(str : String)
<POP 206ae-206b0 StackAdj> Δ+24 {}
<Blob 0x206b0 [20] @> Δ-20 {[«20""»]}
<POP 206bc-206be StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x206be 20> {[«20""»]|[$$ 1 => Fujitsu 2361]}
<Call 0x206ce 0x103e0> {[«20""»]|[$$ 1 => Fujitsu 2361]}
WriteConsoleStringCrLf(str : String)
<POP 206d4-206d6 StackAdj> Δ+24 {}
<Blob 0x206d6 [20] @> Δ-20 {[«20""»]}
<POP 206e2-206e4 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x206e4 20> {[«20""»]|[$$ 2 => Fujitsu 2333]}
<Call 0x206f4 0x103e0> {[«20""»]|[$$ 2 => Fujitsu 2333]}
WriteConsoleStringCrLf(str : String)
<POP 206fa-206fc StackAdj> Δ+24 {}
<Blob 0x206fc [20] @> Δ-20 {[«20""»]}
<POP 20708-2070a StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2070a 20> {[«20""»]|[$$ 3 => Fujitsu 2344]}
<Call 0x2071a 0x103e0> {[«20""»]|[$$ 3 => Fujitsu 2344]}
WriteConsoleStringCrLf(str : String)
<POP 20720-20722 StackAdj> Δ+24 {}
<Blob 0x20722 [20] @> Δ-20 {[«20""»]}
<POP 2072e-20730 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x20730 20> {[«20""»]|[$$ 4 => Fujitsu 2372]}
<Call 0x20740 0x103e0> {[«20""»]|[$$ 4 => Fujitsu 2372]}
WriteConsoleStringCrLf(str : String)
<POP 20746-20747 StackAdj> Δ+24 ↓ {}
<Blob 0x20747 [8] @> Δ-8 {[«8""»]}
<POP 20758-2075a StackAdj> Δ-8 {[«8""»]|[-8-]}
<Lit 0x2075a 7> {[«8""»]|[-4-]|[$$Code :_]}
<Const 0x2076c 0x0.4> Δ-4 {[«8""»]|[-4-]|[$$Code :_]|[##0]}
<Const 0x20770 0x4.4> Δ-4 {[«8""»]|[-4-]|[$$Code :_]|[##0]|[##4]}
<Call 0x20774 0x103ec> {[«8""»]|[-4-]|[$$Code :_]|[##0]|[##4]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 2077a-2077c StackAdj> Δ+12 {[«8""»]|[-4-]}
<MI 2077c MOVE.B (A7+0x3),D0> {[«8""»]|[-4-]}
<MI 20780 EXTB.W D0> {[«8""»]|[-4-]}
<POP 0x20782 LimitCheck 0x0 ≤ D0 ≤ 0x4> {[«8""»]|[-4-]}
<POP 20786-20788 StackAdj> Δ+12 {}
<MI 20788 MOVE.B D0,D7> {}
<MI 2078a MOVEA.L (A6+0x18),A0> {}
<MI 2078e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20790 MOVE.B D7,D0> {[4, 'A0']}
<MI 20792 EXTB.W D0> {[4, 'A0']}
<MI 20794 MULS.W #0x12,D0> {[4, 'A0']}
<MI 20798 MOVE.L (A6+D0.W-#0x5a),(A0)> {[4, 'A0']}
<MI 2079c MOVEA.L (A6+0x14),A1> {[4, 'A0']}
<MI 207a0 MOVE.L (A6+D0.W-#0x56),(A1)> {[4, 'A0']}
<MI 207a4 MOVEA.L (A6+0x10),A2> {[4, 'A0']}
<MI 207a8 MOVE.L (A6+D0.W-#0x52),(A2)> {[4, 'A0']}
<MI 207ac MOVEA.L (A6+0xc),A3> {[4, 'A0']}
<MI 207b0 MOVE.L (A6+D0.W-#0x4e),(A3)> {[4, 'A0']}
<MI 207b4 MOVEA.L (A6+0x8),A3> {[4, 'A0']}
<MI 207b8 MOVE.B (A6+D0.W-#0x4a),D1> {[4, 'A0']}
<MI 207bc LSR.B #0x7,D1> {[4, 'A0']}
<MI 207be MOVE.B D1,(A3)> {[4, 'A0']}
<Blob 0x207c0 [16] @> Δ-16 {[4, 'A0']|[«16""»]}
<Blob 0x207d2 [4] @> Δ-4 {[4, 'A0']|[«16""»]|[«4""»]}
<Blob 0x207d6 [4] @> Δ-4 {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]}
<Blob 0x207da [4] @> Δ-4 {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x207de [4] @> Δ-4 {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x207e2 [4] @> Δ-4 {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 207e6-207e8 StackAdj> Δ-8 {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x207e8 15> {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]}
<POP 207f8-207fa StackAdj> Δ-4 {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]}
<MI 207fa MOVEA.L (A7+0x30),A0> {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]}
<MI 207fe MOVE.L (A0),-(A7)> Δ-4 {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[4, '(A0)']}
<Call 0x20800 0x102e4> {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[4, '(A0)']}
Long2String(a : Long) : String
<Lit 0x20806 12> {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[$$ cylinders,_]}
<MI 20814 MOVE.L (A1),(A7)> {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[4, '(A1)']}
<POP 2080e-20814 StackAdj> Δ-8 {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[4, '(A1)']|[-8-]}
<Call 0x20816 0x102e4> {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[4, '(A1)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x2081c 8> {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[4, '(A1)']|[-4-]|[$$ heads,_]}
<MI 2082c MOVE.L (A2),(A7)> {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[4, '(A1)']|[-4-]|[4, '(A2)']}
<POP 20826-2082c StackAdj> Δ-8 {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[4, '(A1)']|[-4-]|[4, '(A2)']|[-8-]}
<Call 0x2082e 0x102e4> {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[4, '(A1)']|[-4-]|[4, '(A2)']|[-8-]}
Long2String(a : Long) : String
<POP 20834-20836 StackAdj> Δ+4 {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[4, '(A1)']|[-4-]|[4, '(A2)']|[-4-]}
<Call 0x20836 0x102e0> {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$This drive has_]|[-4-]|[4, '(A1)']|[-4-]|[4, '(A2)']|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 2083c-2083e StackAdj> Δ+24 {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 2083e MOVEA.L (A7)+,A4> Δ+4 {[4, 'A0']|[«16""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 20840-20844 StackAdj> Δ+36 {[4, 'A0']}
<MI 20844 TST.B D1> {[4, 'A0']}
<MI 20846 BEQ 0x20878> {[4, 'A0']}
<POP 20848-20878 Naked> Σ-4 →0x208a4
<Blob 0x20848 [20] @> Δ-20 {[-4-]|[«20""»]}
<POP 20854-20856 StackAdj> Δ-4 {[-4-]|[«20""»]|[-4-]}
<MI 20856 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[«20""»]|[-4-]|[4, 'A4']}
<POP 20858-2085a StackAdj> Δ-4 {[-4-]|[«20""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x2085a 20> {[-4-]|[«20""»]|[-4-]|[4, 'A4']|[$$ interleaved sectors]}
<Call 0x2086a 0x102d0> {[-4-]|[«20""»]|[-4-]|[4, 'A4']|[$$ interleaved sectors]}
StringCat2(a, b : String) : String
<POP 20870-20872 StackAdj> Δ+8 {[-4-]|[«20""»]|[-4-]}
<MI 20872 MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[«20""»]}
<POP 20874-20876 StackAdj> Δ+20 {[-4-]}
<MI 20876 BRA 0x208a4> {[-4-]}
<POP 20878-208a4 Naked> Σ-4 ↓ ←0x20622
<Blob 0x20878 [4] @> Δ-4 {[-4-]|[«4""»]}
<Blob 0x2087c [4] @> Δ-4 {[-4-]|[«4""»]|[«4""»]}
<POP 20880-20882 StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[-4-]}
<MI 20882 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']}
<POP 20884-20886 StackAdj> Δ-4 {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x20886 8> {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ sectors]}
<Call 0x20898 0x102d0> {[-4-]|[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ sectors]}
StringCat2(a, b : String) : String
<POP 2089e-208a0 StackAdj> Δ+8 {[-4-]|[«4""»]|[«4""»]|[-4-]}
<MI 208a0 MOVEA.L (A7)+,A4> Δ+4 {[-4-]|[«4""»]|[«4""»]}
<POP 208a2-208a4 StackAdj> Δ+8 {[-4-]}
<POP 208a4-208de Naked> Σ-4 Δ-24 ↓ →0x2090c ←0x20848
<MI 208a4 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x208a6 0x103e0> {[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 208ac-208ad StackAdj> Δ+4 ↓ {}
<Blob 0x208ad [28] @> Δ-28 {[«28""»]}
<POP 208bc-208be StackAdj> Δ-6 {[«28""»]|[-6-]}
<Lit 0x208be 27> {[«28""»]|[-2-]|[$$Is this information correct]}
<POP 208ce-208d0 StackAdj> Δ-2 {[«28""»]|[-2-]|[$$Is this information correct]|[-2-]}
<POP 208d0-208d1 StackAdj> Δ+2 {[«28""»]|[-2-]|[$$Is this information correct]}
<Const 0x208d1 0x1.2> Δ-2 {[«28""»]|[-2-]|[$$Is this information correct]|[#1]}
<Call 0x208d2 0x103f0> {[«28""»]|[-2-]|[$$Is this information correct]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 208d8-208da StackAdj> Δ+6 {[«28""»]|[-2-]}
<MI 208da TST.B (A7)+> Δ+2 {[«28""»]}
<MI 208dc BNE 0x2090c> {[«28""»]}
<POP 208de-2090c Naked> Σ-28 ↓
<Blob 0x208de [34] @> Δ-34 {[-28-]|[«34""»]}
<Const 0x208ea 0xe.2> Δ-2 {[-28-]|[«34""»]|[#14]}
<POP 208ee-208f0 StackAdj> Δ-4 {[-28-]|[«34""»]|[#14]|[-4-]}
<Lit 0x208f0 34> {[-28-]|[«34""»]|[#14]|[$$Program error, contact engineering]}
<Call 0x20902 0x103b8> {[-28-]|[«34""»]|[#14]|[$$Program error, contact engineering]}
PopProgram(status : Byte; msg : String)
<POP 20908-2090c StackAdj> Δ+40 {[-28-]}
<POP 2090c-20910 Naked> Σ-28 Δ+28 ↓ ←0x208a4
<POP 2090c-20910 StackAdj> Δ+28 {}
<POP 20910-20918 Epilogue> Σ0
@ 20918
<LVAR 0x01a 4(r)>
<LVAR 0x00e 4(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00a @ 1(r)>
<LVAR -0x012 @ 4(r)>
<LVAR -0x014 @ 1(r)>
<LVAR -0x018 @ 4(rw)>
<LVAR -0x01e @ 4(r)>
<LVAR -0x022 @ 4(r)>
<LVAR -0x024 2(w)>
<LVAR -0x026 2(w)>
<LVAR -0x028 @ 1(r)>
<LVAR -0x02c @ 4(r)>
<LVAR -0x030 @ 4(r)>
<LVAR -0x032 2(w)>
<POP 20918-20cba Body> Δ+8
<POP 20918-2092e Prologue> Σ0 ↓
<POP 2092e-2093e RegCacheLoad> Σ0 ↓
<POP 2093e-20996 Naked> Σ0 ↓ →0x209d2
<Blob 0x2093e [4] @> Δ-4 {[«4""»]}
<Blob 0x20942 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20946 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2094a-2094c StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-8-]}
<MI 2094c MOVE.L (A6+0x1a),-(A7)> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-8-]|[4, '(A6+0x1a)']}
<Call 0x20950 0x102cc> {[«4""»]|[«4""»]|[«4""»]|[-8-]|[4, '(A6+0x1a)']}
StringDup(a : String) : String
<Lit 0x20956 12> {[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$.raw_defects]}
<Call 0x20964 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[-8-]|[$$.raw_defects]}
StringCat2(a, b : String) : String
<POP 2096a-2096c StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 2096c MOVE.L (A7)+,(A6-0x18)> Δ+4 {[«4""»]|[«4""»]|[«4""»]}
<POP 20970-20972 StackAdj> Δ+8 {[«4""»]}
<MI 20972 MOVE.L (A6-0x18),(A7)> {[4, '(A6-0x18)']}
<MI 20976 CLR.B -(A7)> Δ-2 {[4, '(A6-0x18)']|[#0]}
<Const 0x20978 0x1.2> Δ-2 {[4, '(A6-0x18)']|[#0]|[#1]}
<Const 0x2097a 0x8.4> Δ-4 {[4, '(A6-0x18)']|[#0]|[#1]|[##8]}
<Pointer.fp 0x2097e <LVAR -0x00a @ 1(r)>> Δ-4 {[4, '(A6-0x18)']|[#0]|[#1]|[##8]|[@@-10]}
<Pointer.fp 0x20982 <LVAR -0x02c @ 4(r)>> Δ-4 {[4, '(A6-0x18)']|[#0]|[#1]|[##8]|[@@-10]|[@@-44]}
<Call 0x20986 0x10380> {[4, '(A6-0x18)']|[#0]|[#1]|[##8]|[@@-10]|[@@-44]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 2098c-20990 StackAdj> Δ+20 {}
<MI 20990 TST.B (A6-0xa)> {}
<MI 20994 BEQ 0x209d2> {}
<POP 20996-209d2 Naked> Σ0 ↓
<Blob 0x20996 [14] @> Δ-14 {[«14""»]}
<Const 0x209a2 0xe.2> Δ-2 {[«14""»]|[#14]}
<POP 209a6-209a8 StackAdj> Δ-8 {[«14""»]|[#14]|[-8-]}
<Lit 0x209a8 14> {[«14""»]|[#14]|[-4-]|[$$Error opening_]}
<MI 209b4 MOVE.L (A6-0x18),(A7)> {[«14""»]|[#14]|[-4-]|[4, '(A6-0x18)']}
<POP 209b2-209b4 StackAdj> Δ-8 {[«14""»]|[#14]|[-4-]|[4, '(A6-0x18)']|[-8-]}
<Call 0x209b8 0x102cc> {[«14""»]|[#14]|[-4-]|[4, '(A6-0x18)']|[-8-]}
StringDup(a : String) : String
<POP 209be-209c0 StackAdj> Δ+4 {[«14""»]|[#14]|[-4-]|[4, '(A6-0x18)']|[-4-]}
<Call 0x209c0 0x102d0> {[«14""»]|[#14]|[-4-]|[4, '(A6-0x18)']|[-4-]}
StringCat2(a, b : String) : String
<POP 209c6-209c8 StackAdj> Δ+8 {[«14""»]|[#14]|[-4-]}
<Call 0x209c8 0x103b8> {[«14""»]|[#14]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 209ce-209d2 StackAdj> Δ+20 {}
<POP 209d2-209de Naked> Σ0 ↓ ←0x2093e
<Pointer.fp 0x209d2 <LVAR -0x01e @ 4(r)>> Δ-4 {[@@-30]}
<Call 0x209d6 0x102b8> {[@@-30]}
NewString(VAR a : String)
<POP 209dc-209de StackAdj> Δ+4 {}
<POP 209de-209fc Naked> Σ0 ↓ →0x20c82 ←0x20c82
<MI 209de MOVE.L (A6-0x2c),-(A7)> Δ-4 {[4, '(A6-0x2c)']}
<Pointer.fp 0x209e2 <LVAR -0x01e @ 4(r)>> Δ-4 {[4, '(A6-0x2c)']|[@@-30]}
<Pointer.fp 0x209e6 <LVAR -0x028 @ 1(r)>> Δ-4 {[4, '(A6-0x2c)']|[@@-30]|[@@-40]}
<Call 0x209ea 0x1043c> {[4, '(A6-0x2c)']|[@@-30]|[@@-40]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 209f0-209f4 StackAdj> Δ+12 {}
<MI 209f4 TST.B (A6-0x28)> {}
<MI 209f8 BNE 0x20c82> {}
<POP 209fc-20a2a Naked> Σ0 ↓ →0x20a54
<Pointer.fp 0x209fc <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x209fe 0x102b8> {[@@-8]}
NewString(VAR a : String)
<MI 20a04 MOVE.L (A6-0x1e),(A7)> {[4, '(A6-0x1e)']}
<MI 20a08 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x1e)']|[4, '(A6-0x8)']}
<Pointer.fp 0x20a0a <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x1e)']|[4, '(A6-0x8)']|[@@-20]}
<Call 0x20a0c 0x102fc> {[4, '(A6-0x1e)']|[4, '(A6-0x8)']|[@@-20]}
FirstField(MOD input : String; MOD output : String; VAR c : Bool
<POP 20a12-20a14 StackAdj> Δ+8 {[4, '(A6-0x1e)']}
<MI 20a14 MOVE.L (A6-0x8),(A7)> {[4, '(A6-0x8)']}
<Pointer.fp 0x20a16 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x8)']|[@@-20]}
<Pointer.fp 0x20a18 <LVAR -0x030 @ 4(r)>> Δ-4 {[4, '(A6-0x8)']|[@@-20]|[@@-48]}
<Call 0x20a1c 0x102ec> {[4, '(A6-0x8)']|[@@-20]|[@@-48]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 20a22-20a26 StackAdj> Δ+12 {}
<MI 20a26 TST.B (A6-0x14)> {}
<MI 20a28 BNE 0x20a54> {}
<POP 20a2a-20a54 Naked> Σ0 ↓
<Blob 0x20a2a [18] @> Δ-18 {[«18""»]}
<Const 0x20a36 0xe.2> Δ-2 {[«18""»]|[#14]}
<POP 20a3a-20a3c StackAdj> Δ-4 {[«18""»]|[#14]|[-4-]}
<Lit 0x20a3c 18> {[«18""»]|[#14]|[$$Cylinder not found]}
<Call 0x20a4a 0x103b8> {[«18""»]|[#14]|[$$Cylinder not found]}
PopProgram(status : Byte; msg : String)
<POP 20a50-20a54 StackAdj> Δ+24 {}
<POP 20a54-20a82 Naked> Σ0 ↓ →0x20ab2 ←0x209fc
<Pointer.fp 0x20a54 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x20a56 0x102b8> {[@@-8]}
NewString(VAR a : String)
<MI 20a5c MOVE.L (A6-0x1e),(A7)> {[4, '(A6-0x1e)']}
<MI 20a60 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x1e)']|[4, '(A6-0x8)']}
<Pointer.fp 0x20a62 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x1e)']|[4, '(A6-0x8)']|[@@-20]}
<Call 0x20a64 0x102fc> {[4, '(A6-0x1e)']|[4, '(A6-0x8)']|[@@-20]}
FirstField(MOD input : String; MOD output : String; VAR c : Bool
<POP 20a6a-20a6c StackAdj> Δ+8 {[4, '(A6-0x1e)']}
<MI 20a6c MOVE.L (A6-0x8),(A7)> {[4, '(A6-0x8)']}
<Pointer.fp 0x20a6e <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x8)']|[@@-20]}
<Pointer.fp 0x20a70 <LVAR -0x004 @ 4(r)>> Δ-4 {[4, '(A6-0x8)']|[@@-20]|[@@-4]}
<Call 0x20a74 0x102ec> {[4, '(A6-0x8)']|[@@-20]|[@@-4]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 20a7a-20a7e StackAdj> Δ+12 {}
<MI 20a7e TST.B (A6-0x14)> {}
<MI 20a80 BNE 0x20ab2> {}
<POP 20a82-20ab2 Naked> Σ0 ↓
<Blob 0x20a82 [16] @> Δ-16 {[«16""»]}
<Const 0x20a94 0xe.2> Δ-2 {[«16""»]|[#14]}
<POP 20a98-20a9a StackAdj> Δ-4 {[«16""»]|[#14]|[-4-]}
<Lit 0x20a9a 15> {[«16""»]|[#14]|[$$Track not found]}
<Call 0x20aa8 0x103b8> {[«16""»]|[#14]|[$$Track not found]}
PopProgram(status : Byte; msg : String)
<POP 20aae-20ab2 StackAdj> Δ+22 {}
<POP 20ab2-20ae0 Naked> Σ0 ↓ →0x20b0a ←0x20a54
<Pointer.fp 0x20ab2 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x20ab4 0x102b8> {[@@-8]}
NewString(VAR a : String)
<MI 20aba MOVE.L (A6-0x1e),(A7)> {[4, '(A6-0x1e)']}
<MI 20abe MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x1e)']|[4, '(A6-0x8)']}
<Pointer.fp 0x20ac0 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x1e)']|[4, '(A6-0x8)']|[@@-20]}
<Call 0x20ac2 0x102fc> {[4, '(A6-0x1e)']|[4, '(A6-0x8)']|[@@-20]}
FirstField(MOD input : String; MOD output : String; VAR c : Bool
<POP 20ac8-20aca StackAdj> Δ+8 {[4, '(A6-0x1e)']}
<MI 20aca MOVE.L (A6-0x8),(A7)> {[4, '(A6-0x8)']}
<Pointer.fp 0x20acc <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x8)']|[@@-20]}
<Pointer.fp 0x20ace <LVAR -0x012 @ 4(r)>> Δ-4 {[4, '(A6-0x8)']|[@@-20]|[@@-18]}
<Call 0x20ad2 0x102ec> {[4, '(A6-0x8)']|[@@-20]|[@@-18]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 20ad8-20adc StackAdj> Δ+12 {}
<MI 20adc TST.B (A6-0x14)> {}
<MI 20ade BNE 0x20b0a> {}
<POP 20ae0-20b0a Naked> Σ0 ↓
<Blob 0x20ae0 [18] @> Δ-18 {[«18""»]}
<Const 0x20aec 0xe.2> Δ-2 {[«18""»]|[#14]}
<POP 20af0-20af2 StackAdj> Δ-4 {[«18""»]|[#14]|[-4-]}
<Lit 0x20af2 18> {[«18""»]|[#14]|[$$Position not found]}
<Call 0x20b00 0x103b8> {[«18""»]|[#14]|[$$Position not found]}
PopProgram(status : Byte; msg : String)
<POP 20b06-20b0a StackAdj> Δ+24 {}
<POP 20b0a-20b38 Naked> Σ0 ↓ →0x20b66 ←0x20ab2
<Pointer.fp 0x20b0a <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x20b0c 0x102b8> {[@@-8]}
NewString(VAR a : String)
<MI 20b12 MOVE.L (A6-0x1e),(A7)> {[4, '(A6-0x1e)']}
<MI 20b16 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x1e)']|[4, '(A6-0x8)']}
<Pointer.fp 0x20b18 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x1e)']|[4, '(A6-0x8)']|[@@-20]}
<Call 0x20b1a 0x102fc> {[4, '(A6-0x1e)']|[4, '(A6-0x8)']|[@@-20]}
FirstField(MOD input : String; MOD output : String; VAR c : Bool
<POP 20b20-20b22 StackAdj> Δ+8 {[4, '(A6-0x1e)']}
<MI 20b22 MOVE.L (A6-0x8),(A7)> {[4, '(A6-0x8)']}
<Pointer.fp 0x20b24 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x8)']|[@@-20]}
<Pointer.fp 0x20b26 <LVAR -0x022 @ 4(r)>> Δ-4 {[4, '(A6-0x8)']|[@@-20]|[@@-34]}
<Call 0x20b2a 0x102ec> {[4, '(A6-0x8)']|[@@-20]|[@@-34]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 20b30-20b34 StackAdj> Δ+12 {}
<MI 20b34 TST.B (A6-0x14)> {}
<MI 20b36 BNE 0x20b66> {}
<POP 20b38-20b66 Naked> Σ0 ↓
<Blob 0x20b38 [4] @> Δ-4 {[«4""»]}
<Blob 0x20b3c [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20b40 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20b44 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Const 0x20b48 0xe.2> Δ-2 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]}
<POP 20b4c-20b4e StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]|[-4-]}
<Lit 0x20b4e 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]|[$$Length not found]}
<Call 0x20b5c 0x103b8> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[#14]|[$$Length not found]}
PopProgram(status : Byte; msg : String)
<POP 20b62-20b66 StackAdj> Δ+22 {}
<POP 20b66-20bb6 Naked> Σ0 Δ-4 ↓ →0x20bce ←0x20b0a
<MI 20b66 MOVE.L (A6-0x12),D0> {}
<MI 20b6a SUBQ.L #0x1,D0> {}
<MI 20b6c MOVE.L D0,D4> {}
<MI 20b6e MOVE.L (A6+0xa),D3> {}
<Call 0x20b72 0x10294> {}
?divs_d3_d4
<POP 0x20b78 LimitCheck 0x0 ≤ D4 ≤ 0xffff> {}
<MI 20b82 MOVE.W D4,(A6-0x26)> {}
<MI 20b86 MOVE.L D4,-(A7)> Δ-4 {[4, 'D4']}
<MI 20b88 MOVE.L (A6-0x22),D0> {[4, 'D4']}
<MI 20b8c ADDI.L #0x00000011,D0> {[4, 'D4']}
<MI 20b92 MOVE.L D0,D4> {[4, 'D4']}
<MI 20b94 MOVEQ.L #0x08,D3> {[4, 'D4']}
<Call 0x20b96 0x10294> {[4, 'D4']}
?divs_d3_d4
<POP 0x20b9c LimitCheck 0x0 ≤ D4 ≤ 0xffff> {[4, 'D4']}
<MI 20ba6 MOVE.W D4,(A6-0x32)> {[4, 'D4']}
<MI 20baa MOVE.L (A6-0x22),D0> {[4, 'D4']}
<MI 20bae CMPI.L #0x000000ff,D0> {[4, 'D4']}
<MI 20bb4 BNE 0x20bce> {[4, 'D4']}
<POP 20bb6-20bce Naked> Σ-4 →0x20c80
<MI 20bb6 MOVE.L (A6-0x30),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x30)']}
<MI 20bba MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x30)']|[4, '(A6-0x4)']}
<Const 0x20bbe 0xff.4> Δ-4 {[-4-]|[4, '(A6-0x30)']|[4, '(A6-0x4)']|[##255]}
<Call 0x20bc2 0x20474> {[-4-]|[4, '(A6-0x30)']|[4, '(A6-0x4)']|[##255]}
<POP 20bc6-20bca StackAdj> Δ+12 {[-4-]}
<MI 20bca BRA 0x20c80> {[-4-]}
<POP 20bce-20bf8 Naked> Σ-4 Δ-2 ↓ ←0x20b66
<MI 20bce CLR.L D0> {[-4-]}
<MI 20bd0 MOVE.W D4,D0> {[-4-]}
<MI 20bd2 ADD.L (A6-0x12),D0> {[-4-]}
<MI 20bd6 MOVE.L D0,D4> {[-4-]}
<MI 20bd8 MOVE.L (A6+0xa),D3> {[-4-]}
<Call 0x20bdc 0x10294> {[-4-]}
?divs_d3_d4
<POP 0x20be2 LimitCheck 0x0 ≤ D4 ≤ 0xffff> {[-4-]}
<MI 20bec MOVE.W D4,(A6-0x24)> {[-4-]}
<MI 20bf0 MOVE.W D4,-(A7)> Δ-2 {[-4-]|[2, 'D4']}
<MI 20bf2 MOVE.L (A7+0x2),D0> {[-4-]|[2, 'D4']}
<MI 20bf6 MOVE.W D0,D5> {[-4-]|[2, 'D4']}
<POP 20bf8-20bfe Naked> Σ-6 ↓ →0x20c7e ←0x20c6e
<MI 20bf8 CMP.W (A7),D5> {[-6-]}
<MI 20bfa BHI 0x20c7e> {[-6-]}
<POP 20bfe-20c08 Naked> Σ-6 ↓ →0x20c0c
<MI 20bfe CLR.L D0> {[-6-]}
<MI 20c00 MOVE.W D5,D0> {[-6-]}
<MI 20c02 CMP.L (A6+0xe),D0> {[-6-]}
<MI 20c06 BCC 0x20c0c> {[-6-]}
<POP 20c08-20c0c Naked> Σ-6 →0x20c1e
<MI 20c08 MOVE.W D5,D7> {[-6-]}
<MI 20c0a BRA 0x20c1e> {[-6-]}
<POP 20c0c-20c1e Naked> Σ-6 ↓ ←0x20bfe
<MI 20c0c MOVE.L (A6+0xe),D0> {[-6-]}
<MI 20c10 SUBQ.L #0x1,D0> {[-6-]}
<POP 0x20c12 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-6-]}
<MI 20c1c MOVE.W D0,D7> {[-6-]}
<POP 20c1e-20c24 Naked> Σ-6 ↓ →0x20c32 ←0x20c08
<MI 20c1e TST.B (A6+0x8)> {[-6-]}
<MI 20c22 BNE 0x20c32> {[-6-]}
<POP 20c24-20c32 Naked> Σ-6 Δ-8 →0x20c6e
<MI 20c24 MOVE.L (A6-0x30),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x30)']}
<MI 20c28 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x30)']|[4, '(A6-0x4)']}
<MI 20c2c CLR.L D0> {[-6-]|[4, '(A6-0x30)']|[4, '(A6-0x4)']}
<MI 20c2e MOVE.W D7,D0> {[-6-]|[4, '(A6-0x30)']|[4, '(A6-0x4)']}
<MI 20c30 BRA 0x20c6e> {[-6-]|[4, '(A6-0x30)']|[4, '(A6-0x4)']}
<POP 20c32-20c6e Naked> Σ-6 Δ-8 ↓ ←0x20c1e
<MI 20c32 MOVE.W D7,D0> {[-6-]}
<MI 20c34 AND.W #0x01,D0> {[-6-]}
<MI 20c36 MOVE.L (A6+0xe),D4> {[-6-]}
<MI 20c3a MOVEQ.L #0x02,D3> {[-6-]}
<Call 0x20c3c 0x10294> {[-6-]}
?divs_d3_d4
<MI 20c42 CLR.L D3> {[-6-]}
<MI 20c44 MOVE.W D0,D3> {[-6-]}
<Call 0x20c46 0x10290> {[-6-]}
?mulu_d3_d4
<MI 20c4c MOVE.W D7,D0> {[-6-]}
<MI 20c4e LSR.W #0x1,D0> {[-6-]}
<MI 20c50 CLR.L D1> {[-6-]}
<MI 20c52 MOVE.W D0,D1> {[-6-]}
<MI 20c54 ADD.L D4,D1> {[-6-]}
<POP 0x20c56 LimitCheck 0x0 ≤ D1 ≤ 0xffff> {[-6-]}
<MI 20c60 MOVE.W D1,D6> {[-6-]}
<MI 20c62 MOVE.L (A6-0x30),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x30)']}
<MI 20c66 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x30)']|[4, '(A6-0x4)']}
<MI 20c6a CLR.L D0> {[-6-]|[4, '(A6-0x30)']|[4, '(A6-0x4)']}
<MI 20c6c MOVE.W D6,D0> {[-6-]|[4, '(A6-0x30)']|[4, '(A6-0x4)']}
<POP 20c6e-20c7e Naked> Σ-14 Δ+8 ↓ →0x20bf8 ←0x20c24
<MI 20c6e MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, 'D0']}
<Call 0x20c70 0x20474> {[-14-]|[4, 'D0']}
<POP 20c74-20c78 StackAdj> Δ+12 {[-6-]}
<MI 20c78 ADDQ.W #0x1,D5> {[-6-]}
<MI 20c7a BCC 0x20bf8> {[-6-]}
<POP 20c7e-20c80 Naked> Σ-6 Δ+2 ↓ ←0x20bf8
<POP 20c7e-20c80 StackAdj> Δ+2 {[-4-]}
<POP 20c80-20c82 Naked> Σ-4 Δ+4 ↓ ←0x20bb6
<POP 20c80-20c82 StackAdj> Δ+4 {}
<POP 20c82-20c8a Naked> Σ0 ↓ →0x209de ←0x209de
<MI 20c82 TST.B (A6-0x28)> {}
<MI 20c86 BEQ 0x209de> {}
<POP 20c8a-20cb2 Naked> Σ0 ↓
<MI 20c8a CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x20c8c 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x20c90 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x20c94 <LVAR -0x00a @ 1(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-10]}
<Pointer.fp 0x20c98 <LVAR -0x02c @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-10]|[@@-44]}
<Call 0x20c9c 0x1038c> {[#0]|[#2]|[##1]|[@@-10]|[@@-44]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 20ca2-20ca6 StackAdj> Δ+16 {}
<Pointer.fp 0x20ca6 <LVAR -0x018 @ 4(rw)>> Δ-4 {[@@-24]}
<Call 0x20caa 0x102bc> {[@@-24]}
FreeString(VAR a : String)
<POP 20cb0-20cb2 StackAdj> Δ+4 {}
<POP 20cb2-20cba Epilogue> Σ0
@ 20cba
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x00c @>
<LVAR -0x010 @ 4(r)>
<POP 20cba-20da6 Body>
<POP 20cba-20cd0 Prologue> Σ0 ↓
<POP 20cd0-20ce2 RegCacheLoad> Σ0 ↓
<POP 20ce2-20d2c Naked> Σ0 ↓
<Blob 0x20ce2 [4] @> Δ-4 {[«4""»]}
<Blob 0x20ce6 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 20cea-20cec StackAdj> Δ-8 {[«4""»]|[«4""»]|[-8-]}
<MI 20cec MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[«4""»]|[-8-]|[4, '(A6+0x8)']}
<Call 0x20cf0 0x102cc> {[«4""»]|[«4""»]|[-8-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<Lit 0x20cf6 8> {[«4""»]|[«4""»]|[-8-]|[$$.defects]}
<Call 0x20d08 0x102d0> {[«4""»]|[«4""»]|[-8-]|[$$.defects]}
StringCat2(a, b : String) : String
<POP 20d0e-20d10 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 20d10 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«4""»]|[«4""»]}
<POP 20d12-20d14 StackAdj> Δ+4 {[«4""»]}
<MI 20d14 MOVE.L (A6-0x6),(A7)> {[4, '(A6-0x6)']}
<Const 0x20d16 0x1.2> Δ-2 {[4, '(A6-0x6)']|[#1]}
<Const 0x20d18 0x2.2> Δ-2 {[4, '(A6-0x6)']|[#1]|[#2]}
<Const 0x20d1a 0x8.4> Δ-4 {[4, '(A6-0x6)']|[#1]|[#2]|[##8]}
<Pointer.fp 0x20d1e <LVAR -0x00c @>> Δ-4 {[4, '(A6-0x6)']|[#1]|[#2]|[##8]|[@@-12]}
<Pointer.fp 0x20d20 <LVAR -0x010 @ 4(r)>> Δ-4 {[4, '(A6-0x6)']|[#1]|[#2]|[##8]|[@@-12]|[@@-16]}
<Call 0x20d22 0x10380> {[4, '(A6-0x6)']|[#1]|[#2]|[##8]|[@@-12]|[@@-16]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 20d28-20d2a StackAdj> Δ+20 {}
<MI 20d2a MOVEQ.L #0x00,D7> {}
<POP 20d2c-20d7e Naked> Σ0 ↓ →0x20d2c ←0x20d2c
<MI 20d2c MOVE.L #0x100,D4> {}
<MI 20d32 MOVE.L D7,D3> {}
<Call 0x20d34 0x1028c> {}
?muls_d3_d4
<MI 20d3a MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<POP 0x20d3c LimitCheck 0x0 ≤ D7 ≤ 0x4000> {[4, '(A6-0x10)']}
<MI 20d46 MOVE.W D7,-(A7)> Δ-2 {[4, '(A6-0x10)']|[2, 'D7']}
<MI 20d48 CLR.W -(A7)> Δ-2 {[4, '(A6-0x10)']|[2, 'D7']|[#0]}
<Const 0x20d4a 0x200.2> Δ-2 {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]}
<Const 0x20d4e 0x2.2> Δ-2 {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<POP 0x20d50 LimitCheck 0x0 ≤ D4 ≤ 0x7ff> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 20d5a MOVE.L D4,D0> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 20d5c ASL.L #0x2,D0> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 20d5e LEA.L 0x2136c,A0> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 20d64 LEA.L (A0+D0.L+#0x8),A0> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 20d68 MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x20d6a <LVAR -0x00c @>> Δ-4 {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-12]}
<Call 0x20d6c 0x10388> {[4, '(A6-0x10)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-12]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 20d72-20d74 StackAdj> Δ+20 {}
<MI 20d74 ADDQ.L #0x1,D7> {}
<MI 20d76 CMPI.L #0x00000007,D7> {}
<MI 20d7c BLE 0x20d2c> {}
<POP 20d7e-20d9e Naked> Σ0 ↓
<MI 20d7e CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x20d80 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x20d82 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x20d86 <LVAR -0x00c @>> Δ-4 {[#0]|[#2]|[##1]|[@@-12]}
<Pointer.fp 0x20d88 <LVAR -0x010 @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-12]|[@@-16]}
<Call 0x20d8a 0x1038c> {[#0]|[#2]|[##1]|[@@-12]|[@@-16]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 20d90-20d94 StackAdj> Δ+16 {}
<Pointer.fp 0x20d94 <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x20d96 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 20d9c-20d9e StackAdj> Δ+4 {}
<POP 20d9e-20da6 Epilogue> Σ0
@ 20da6
<LVAR 0x008 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x028 2(w)>
<LVAR -0x02c 4(w)>
<LVAR -0x02d 1(r)>
<LVAR -0x02e 1(r)>
<LVAR -0x030 2(w)>
<LVAR -0x032 2(w)>
<LVAR -0x050 @>
<LVAR -0x052 @ 1(r)>
<POP 20da6-20ffa Body>
<POP 20da6-20dbc Prologue> Σ0 ↓
<POP 20dbc-20dca RegCacheLoad> Σ0 ↓
<POP 20dca-20e2e Naked> Σ0 ↓ →0x20e44
<Blob 0x20dca [32] @> Δ-32 {[«32""»]}
<POP 20ddc-20dde StackAdj> Δ-8 {[«32""»]|[-8-]}
<Lit 0x20dde 31> {[«32""»]|[-4-]|[$$Enter tape drive unit number :_]}
<Const 0x20df0 0x0.4> Δ-4 {[«32""»]|[-4-]|[$$Enter tape drive unit number :_]|[##0]}
<Const 0x20df4 0x3.4> Δ-4 {[«32""»]|[-4-]|[$$Enter tape drive unit number :_]|[##0]|[##3]}
<Call 0x20df8 0x103ec> {[«32""»]|[-4-]|[$$Enter tape drive unit number :_]|[##0]|[##3]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 20dfe-20e02 StackAdj> Δ+12 {[«32""»]|[-4-]}
<MI 20e02 MOVE.L (A7)+,D0> Δ+4 {[«32""»]}
<POP 0x20e04 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[«32""»]}
<POP 20e0e-20e12 StackAdj> Δ+32 {}
<MI 20e12 MOVE.W D0,D6> {}
<POP 0x20e14 LimitCheck 0x0 ≤ D6 ≤ 0x3> {}
<MI 20e18 MOVE.W D6,-(A7)> Δ-2 {[2, 'D6']}
<Const 0x20e1a 0x1.2> Δ-2 {[2, 'D6']|[#1]}
<Const 0x20e1c 0x1.2> Δ-2 {[2, 'D6']|[#1]|[#1]}
<Pointer.fp 0x20e1e <LVAR -0x052 @ 1(r)>> Δ-4 {[2, 'D6']|[#1]|[#1]|[@@-82]}
<Call 0x20e20 0x1040c> {[2, 'D6']|[#1]|[#1]|[@@-82]}
FSCALL_1040c
<POP 20e26-20e2a StackAdj> Δ+10 {}
<MI 20e2a TST.B (A6-0x52)> {}
<MI 20e2c BEQ 0x20e44> {}
<POP 20e2e-20e44 Naked> Σ0 ↓
<Const 0x20e2e 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x20e30 <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x20e32 0x10428> {[#1]|[@@-82]}
FSCALL_10428
<POP 20e34-20e36 StackAdj> Δ+4 {[#1]}
<POP 20e36-20e37 StackAdj> Δ+2 {}
<Const 0x20e37 0xe.2> Δ-2 {[#14]}
<Const 0x20e38 0x1.4> Δ-4 {[#14]|[##1]}
<Call 0x20e3c 0x103b8> {[#14]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20e42-20e44 StackAdj> Δ+6 {}
<POP 20e44-20e74 Naked> Σ0 ↓ ←0x20dca
<Blob 0x20e44 [4] @> Δ-4 {[«4""»]}
<Blob 0x20e48 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 20e4c-20e4e StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<MI 20e4e MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x8)']}
<POP 20e52-20e54 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x20e54 8> {[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x8)']|[$$.DEFECTS]}
<Call 0x20e66 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x8)']|[$$.DEFECTS]}
StringCat2(a, b : String) : String
<POP 20e6c-20e6e StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 20e6e MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]}
<POP 20e70-20e72 StackAdj> Δ+8 {}
<MI 20e72 MOVEQ.L #0x01,D7> {}
<POP 20e74-20e7c Naked> Σ0 ↓ →0x20e90 ←0x20eb2
<MI 20e74 MOVE.W (A4),D0> {}
<MI 20e76 EXTW.L D0> {}
<MI 20e78 CMP.L D0,D7> {}
<MI 20e7a BLE 0x20e90> {}
<POP 20e7c-20e90 Naked> Σ0 →0x20eb2
<MI 20e7c MOVE.L D7,D0> {}
<MI 20e7e SUBQ.L #0x1,D0> {}
<POP 0x20e80 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 20e8a CLR.B (A6+D0.L-#0x50)> {}
<MI 20e8e BRA 0x20eb2> {}
<POP 20e90-20eb2 Naked> Σ0 ↓ ←0x20e74
<MI 20e90 MOVE.L D7,D0> {}
<MI 20e92 SUBQ.L #0x1,D0> {}
<POP 0x20e94 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 20e9e MOVE.L D7,D1> {}
<MI 20ea0 SUBQ.L #0x1,D1> {}
<POP 0x20ea2 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 20eac MOVE.B (A4+D1.L+#0x2),(A6+D0.L-#0x50)> {}
<POP 20eb2-20ebc Naked> Σ0 ↓ →0x20e74 ←0x20e7c
<MI 20eb2 ADDQ.L #0x1,D7> {}
<MI 20eb4 CMPI.L #0x0000001e,D7> {}
<MI 20eba BLE 0x20e74> {}
<POP 20ebc-20f06 Naked> Σ0 ↓ →0x20f20
<MI 20ebc MOVE.W #0x8,(A6-0x32)> {}
<MI 20ec2 MOVE.W #0x400,(A6-0x30)> {}
<MI 20ec8 CLR.B (A6-0x2d)> {}
<MI 20ecc CLR.B (A6-0x2e)> {}
<Pointer.fp 0x20ed0 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x20ed4 0x10304> {[@@-12]}
GetRtc() : TimeStamp
<POP 20eda-20edc StackAdj> Δ+4 {}
<MI 20edc MOVE.L (A6-0xc),(A6-0x2c)> {}
<MI 20ee2 MOVE.W #0x01,(A6-0x28)> {}
<MI 20ee6 LEA.L (A6-0x50),A0> {}
<MI 20eea MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x20eec 0x40.2> Δ-2 {[4, 'A0']|[#64]}
<Call 0x20ef0 0x1041c> {[4, 'A0']|[#64]}
FSCALL_1041c
<POP 20ef6-20ef8 StackAdj> Δ+6 {}
<Pointer.fp 0x20ef8 <LVAR -0x052 @ 1(r)>> Δ-4 {[@@-82]}
<Call 0x20efa 0x10408> {[@@-82]}
FSCALL_10408
<POP 20f00-20f02 StackAdj> Δ+4 {}
<MI 20f02 TST.B (A6-0x52)> {}
<MI 20f04 BEQ 0x20f20> {}
<POP 20f06-20f12 Naked> Σ0 ↓ →0x20f20
<Const 0x20f06 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x20f08 <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x20f0a 0x10428> {[#1]|[@@-82]}
FSCALL_10428
<POP 20f0c-20f0e StackAdj> Δ+6 {}
<MI 20f0e TST.B (A6-0x52)> {}
<MI 20f10 BEQ 0x20f20> {}
<POP 20f12-20f20 Naked> Σ0 ↓
<Const 0x20f12 0xe.2> Δ-2 {[#14]}
<Const 0x20f14 0x1.4> Δ-4 {[#14]|[##1]}
<Call 0x20f18 0x103b8> {[#14]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20f1e-20f20 StackAdj> Δ+6 {}
<POP 20f20-20f22 Naked> Σ0 ↓ ←0x20ebc ←0x20f06
<MI 20f20 MOVEQ.L #0x00,D7> {}
<POP 20f22-20f64 Naked> Σ0 ↓ →0x20f7e ←0x20f7e
<MI 20f22 MOVE.L #0x100,D4> {}
<MI 20f28 MOVE.L D7,D3> {}
<Call 0x20f2a 0x1028c> {}
?muls_d3_d4
<POP 0x20f30 LimitCheck 0x0 ≤ D4 ≤ 0x7ff> {}
<MI 20f3a MOVE.L D4,D0> {}
<MI 20f3c ASL.L #0x2,D0> {}
<MI 20f3e LEA.L 0x2136c,A0> {}
<MI 20f44 LEA.L (A0+D0.L+#0x8),A0> {}
<MI 20f48 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x20f4a 0x400.2> Δ-2 {[4, 'A0']|[#1024]}
<Call 0x20f4e 0x1041c> {[4, 'A0']|[#1024]}
FSCALL_1041c
<POP 20f54-20f56 StackAdj> Δ+6 {}
<Pointer.fp 0x20f56 <LVAR -0x052 @ 1(r)>> Δ-4 {[@@-82]}
<Call 0x20f58 0x10408> {[@@-82]}
FSCALL_10408
<POP 20f5e-20f60 StackAdj> Δ+4 {}
<MI 20f60 TST.B (A6-0x52)> {}
<MI 20f62 BEQ 0x20f7e> {}
<POP 20f64-20f70 Naked> Σ0 ↓ →0x20f7e
<Const 0x20f64 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x20f66 <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x20f68 0x10428> {[#1]|[@@-82]}
FSCALL_10428
<POP 20f6a-20f6c StackAdj> Δ+6 {}
<MI 20f6c TST.B (A6-0x52)> {}
<MI 20f6e BEQ 0x20f7e> {}
<POP 20f70-20f7e Naked> Σ0 ↓
<Const 0x20f70 0xe.2> Δ-2 {[#14]}
<Const 0x20f72 0x1.4> Δ-4 {[#14]|[##1]}
<Call 0x20f76 0x103b8> {[#14]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20f7c-20f7e StackAdj> Δ+6 {}
<POP 20f7e-20f88 Naked> Σ0 ↓ →0x20f22 ←0x20f22 ←0x20f64
<MI 20f7e ADDQ.L #0x1,D7> {}
<MI 20f80 CMPI.L #0x00000007,D7> {}
<MI 20f86 BLE 0x20f22> {}
<POP 20f88-20f8a Naked> Σ0 ↓
<MI 20f88 MOVEQ.L #0x01,D7> {}
<POP 20f8a-20f9e Naked> Σ0 ↓ →0x20fb8 ←0x20fb8
<Call 0x20f8a 0x10420> {}
FSCALL_10420
<Pointer.fp 0x20f90 <LVAR -0x052 @ 1(r)>> Δ-4 {[@@-82]}
<Call 0x20f92 0x10408> {[@@-82]}
FSCALL_10408
<POP 20f98-20f9a StackAdj> Δ+4 {}
<MI 20f9a TST.B (A6-0x52)> {}
<MI 20f9c BEQ 0x20fb8> {}
<POP 20f9e-20faa Naked> Σ0 ↓ →0x20fb8
<Const 0x20f9e 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x20fa0 <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x20fa2 0x10428> {[#1]|[@@-82]}
FSCALL_10428
<POP 20fa4-20fa6 StackAdj> Δ+6 {}
<MI 20fa6 TST.B (A6-0x52)> {}
<MI 20fa8 BEQ 0x20fb8> {}
<POP 20faa-20fb8 Naked> Σ0 ↓
<Const 0x20faa 0xe.2> Δ-2 {[#14]}
<Const 0x20fac 0x1.4> Δ-4 {[#14]|[##1]}
<Call 0x20fb0 0x103b8> {[#14]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20fb6-20fb8 StackAdj> Δ+6 {}
<POP 20fb8-20fc2 Naked> Σ0 ↓ →0x20f8a ←0x20f8a ←0x20f9e
<MI 20fb8 ADDQ.L #0x1,D7> {}
<MI 20fba CMPI.L #0x00000002,D7> {}
<MI 20fc0 BLE 0x20f8a> {}
<POP 20fc2-20fd2 Naked> Σ0 ↓ →0x20fec
<Const 0x20fc2 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x20fc4 <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x20fc6 0x10414> {[#1]|[@@-82]}
FSCALL_10414
<POP 20fcc-20fce StackAdj> Δ+6 {}
<MI 20fce TST.B (A6-0x52)> {}
<MI 20fd0 BEQ 0x20fec> {}
<POP 20fd2-20fde Naked> Σ0 ↓ →0x20fec
<Const 0x20fd2 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x20fd4 <LVAR -0x052 @ 1(r)>> Δ-4 {[#1]|[@@-82]}
<Call 0x20fd6 0x10428> {[#1]|[@@-82]}
FSCALL_10428
<POP 20fd8-20fda StackAdj> Δ+6 {}
<MI 20fda TST.B (A6-0x52)> {}
<MI 20fdc BEQ 0x20fec> {}
<POP 20fde-20fec Naked> Σ0 ↓
<Const 0x20fde 0xe.2> Δ-2 {[#14]}
<Const 0x20fe0 0x1.4> Δ-4 {[#14]|[##1]}
<Call 0x20fe4 0x103b8> {[#14]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20fea-20fec StackAdj> Δ+6 {}
<POP 20fec-20ff2 Naked> Σ0 ↓ ←0x20fc2 ←0x20fd2
<Call 0x20fec 0x10410> {}
FSCALL_10410
<POP 20ff2-20ffa Epilogue> Σ0
@ 20ffa
<LVAR 0x008 4(r)>
<POP 20ffa-210de Body> Δ+4
<POP 20ffa-21010 Prologue> Σ0 ↓
<POP 21010-2101e RegCacheLoad> Σ0 ↓
<POP 2101e-210c2 Naked> Σ0 ↓ →0x210cc
<Blob 0x2101e [48] @> Δ-48 {[«48""»]}
<POP 21030-21032 StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x21032 47> {[«48""»]|[$$Do you want to save this defect information on:]}
<Call 0x21040 0x103e0> {[«48""»]|[$$Do you want to save this defect information on:]}
WriteConsoleStringCrLf(str : String)
<POP 21042-21043 StackAdj> Δ+52 ↓ {}
<Blob 0x21043 [16] @> Δ-16 {[«16""»]}
<POP 21054-21056 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x21056 15> {[«16""»]|[$$ 0 => A tape]}
<Call 0x21064 0x103e0> {[«16""»]|[$$ 0 => A tape]}
WriteConsoleStringCrLf(str : String)
<MI 21066 MOVEA.L A7,A0> {[«16""»]|[$$ 0 => A tape]}
<MI 21068 LEA.L 0x20392,A1> {[«16""»]|[$$ 0 => A tape]}
<BlockMove 19,A1,A0> {[«16""»]|[$$ 0 => A tape]}
<POP 21074-21076 StackAdj> Δ-4 {[«16""»]|[$$ 0 => A tape]|[-4-]}
<Lit 0x21076> {[«16""»]|[$$ 0 => A tape]|[$$…]}
<Pointer.sp 0x21076 4> Δ-4
<Const 0x2107a 0x1.2> Δ-2
<Const 0x2107c 0x13.2> Δ-2
<Call 0x21080 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21082-21084 StackAdj> Δ+8
<Call 0x21084 0x103e0> {[«16""»]|[$$ 0 => A tape]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 21086-21087 StackAdj> Δ+24 ↓ {}
<Blob 0x21087 [22] @> Δ-22 {[«22""»]}
<POP 21096-21098 StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x21098 21> {[«22""»]|[-4-]|[$$Please enter 0 or 1:_]}
<Const 0x210a6 0x0.4> Δ-4 {[«22""»]|[-4-]|[$$Please enter 0 or 1:_]|[##0]}
<Const 0x210aa 0x1.4> Δ-4 {[«22""»]|[-4-]|[$$Please enter 0 or 1:_]|[##0]|[##1]}
<Call 0x210ae 0x103ec> {[«22""»]|[-4-]|[$$Please enter 0 or 1:_]|[##0]|[##1]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 210b4-210b8 StackAdj> Δ+12 {[«22""»]|[-4-]}
<MI 210b8 MOVE.L (A7)+,D7> Δ+4 {[«22""»]}
<POP 210ba-210be StackAdj> Δ+22 {}
<MI 210be TST.L D7> {}
<MI 210c0 BNE 0x210cc> {}
<POP 210c2-210cc Naked> Σ0 Δ-4 →0x210d4
<MI 210c2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x210c6 0x20da6> {[4, '(A6+0x8)']}
<MI 210ca BRA 0x210d4> {[4, '(A6+0x8)']}
<POP 210cc-210d4 Naked> Σ0 Δ-4 ↓ ←0x2101e
<MI 210cc MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x210d0 0x20cba> {[4, '(A6+0x8)']}
<POP 210d4-210d6 Naked> Σ-4 Δ+4 ↓ ←0x210c2
<POP 210d4-210d6 StackAdj> Δ+4 {}
<POP 210d6-210de Epilogue> Σ0
@ 210de
START
<POP 210de--0001 Body>
<POP 210de-210e8 Prologue> Σ0
<POP 210e8-21106 RegCacheLoad> Σ0 ↓
<POP 21106-21160 Naked> Σ0 ↓
<Call 0x21106 0x10398> {}
FSCALL_10398
<Call 0x2110c 0x20416> {}
<Const 0x21110 0x2337a.4> Δ-4 {[##144250]}
<Const 0x21112 0x2337e.4> Δ-4 {[##144250]|[##144254]}
<Const 0x21114 0x23382.4> Δ-4 {[##144250]|[##144254]|[##144258]}
<Const 0x21116 0x23386.4> Δ-4 {[##144250]|[##144254]|[##144258]|[##144262]}
<Const 0x21118 0x2338c.4> Δ-4 {[##144250]|[##144254]|[##144258]|[##144262]|[##144268]}
<Const 0x2111a 0x2338a.4> Δ-4 {[##144250]|[##144254]|[##144258]|[##144262]|[##144268]|[##144266]}
<Call 0x21120 0x20602> {[##144250]|[##144254]|[##144258]|[##144262]|[##144268]|[##144266]}
<POP 21124-21128 StackAdj> Δ+20 {[##144250]}
<POP 21128-21129 StackAdj> Δ+4 {}
<Blob 0x21129 [4] 0x2337a> Δ-4 {[«4»]}
<Blob 0x2112a [4] 0x2337e> Δ-4 {[«4»]|[«4»]}
<Blob 0x2112c [4] 0x23382> Δ-4 {[«4»]|[«4»]|[«4»]}
<Blob 0x2112e [4] 0x23386> Δ-4 {[«4»]|[«4»]|[«4»]|[«4»]}
<Blob 0x21130 [4] 0x2338c> Δ-4 {[«4»]|[«4»]|[«4»]|[«4»]|[«4»]}
<Blob 0x21132 [2] 0x2338a> Δ-2 {[«4»]|[«4»]|[«4»]|[«4»]|[«4»]|[«2»]}
<Call 0x21138 0x20918> {[«4»]|[«4»]|[«4»]|[«4»]|[«4»]|[«2»]}
<POP 2113c-21140 StackAdj> Δ+18 {[«4»]}
<POP 21140-21141 StackAdj> Δ+4 {}
<Blob 0x21141 [4] 0x2337a> Δ-4 {[«4»]}
<Call 0x21142 0x20ffa> {[«4»]}
<POP 21146-21148 StackAdj> Δ+4 {}
<Const 0x21148 0x2337a.4> Δ-4 {[##144250]}
<Call 0x2114a 0x102bc> {[##144250]}
FreeString(VAR a : String)
<POP 21150-21152 StackAdj> Δ+2 {[-2-]}
<MI 21152 CLR.B (A7)> {[-2-]}
<Const 0x21154 0x1.4> Δ-4 {[-2-]|[##1]}
<Call 0x21158 0x103b8> {[-2-]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 2115e-21160 StackAdj> Δ+6 {}
<POP 21160-21166 Naked> Σ0
<Call 0x21160 0x10284> {}
?exit
@ 21174
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 21174-211dc Body>
<POP 21174-2118a Prologue> Σ0 ↓
<POP 2118a-211d4 Naked> Σ0 ↓
<Blob 0x2118a [14] @> Δ-14 {[«14""»]}
<Const 0x21196 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 2119a-2119c StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x2119c 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 211ae-211b0 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 211b0 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 211b4 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 211b6 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 211b8 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x211ba 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 211c0-211c2 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x211c2 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 211c8-211ca StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x211ca 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 211d0-211d4 StackAdj> Δ+20 {}
<POP 211d4-211dc Epilogue> Σ0
@ 21230
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 21230-2136c Body>
<POP 21230-21246 Prologue> Σ0 ↓
<POP 21246-2125c RegCacheLoad> Σ0 ↓
<POP 2125c-212bc Naked> Σ0 ↓ →0x21304
<Call 0x2125c 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21262 [18] @> Δ-18 {[«18""»]}
<POP 2126e-21270 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21270 18> {[«18""»]|[$$Experiment error :]}
<Call 0x2127c 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 2127e-2127f StackAdj> Δ+22 ↓ {}
<Blob 0x2127f [14] @> Δ-14 {[«14""»]}
<POP 2128e-21290 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21290 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 2129a-2129c StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 2129c MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x212a0 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 212a6-212a8 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x212a8 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 212ae-212b0 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x212b0 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 212b2-212b4 StackAdj> Δ+18 {}
<MI 212b4 MOVEA.L (A6+0xa),A0> {}
<MI 212b8 CMPA.W #0x01,A0> {}
<MI 212ba BEQ 0x21304> {}
<POP 212bc-21304 Naked> Σ0 ↓
<Blob 0x212bc [14] @> Δ-14 {[«14""»]}
<Blob 0x212cc [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 212dc-212de StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x212de 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 212e8-212ea StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x212ea> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x212ea 12> Δ-4
<Const 0x212ee 0x1.2> Δ-2
<Const 0x212f0 0x1e.2> Δ-2
<Call 0x212f2 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 212f4-212f6 StackAdj> Δ+8
<Call 0x212f6 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 212fc-212fe StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x212fe 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21300-21304 StackAdj> Δ+48 {}
<POP 21304-21364 Naked> Σ0 ↓ ←0x2125c
<Blob 0x21304 [14] @> Δ-14 {[«14""»]}
<POP 21314-21316 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21316 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 21320-21322 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 21322 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x21326 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 2132c-2132e StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x2132e 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21334-21336 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21336 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21338-21339 StackAdj> Δ+18 ↓ {}
<Blob 0x21339 [24] @> Δ-24 {[«24""»]}
<Const 0x21348 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 2134c-2134e StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x2134e 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x2135c 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 21362-21364 StackAdj> Δ+30 {}
<POP 21364-2136c Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.18e6a4d5340da0a7 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 10 de | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 33 a0 | 3 | .PTR 0x233a0 00020010 code.end: 00020010 00 02 13 6c | l | .PTR 0x2136c 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 11 74 | t | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 12 30 | 0 | .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 42 |@(#)BB | .XXX[0x6] 00020110 43 56 54 2c 31 2e 30 2c |CVT,1.0,| .XXX[0x18] 00020118 39 31 2f 31 30 2f 33 30 |91/10/30| 00020120 2c 31 30 3a 32 37 3a 30 |,10:27:0| 00020128 30 5c |0\ | .XXX[0x2] 0002012a 54 6f 6f 20 6d 61 6e 79 |Too many| .TXT 'Too many defects (>2048) to handle' 0002014c 41 64 64 69 6e 67 20 64 |Adding d| .TXT 'Adding defect at cylinder =>_ ' 0002016a 2c 20 74 72 61 63 6b 20 |, track | .TXT ', track =>_ ' 00020176 2c 20 73 65 |, se | .TXT ', se' 0002017a 63 74 6f 72 |ctor | .TXT 'ctor' 0002017e 20 3d 3e 5f | =>_ | .TXT ' =>_' 00020182 45 6e 74 65 72 20 48 44 |Enter HD| .TXT 'Enter HDA serial number as shown on HDA :_' 000201ac 50 6c 65 61 73 65 20 65 |Please e| .TXT 'Please enter the proper drive code from table:' 000201da 20 20 20 30 20 3d 3e 20 | 0 => | .TXT ' 0 => Fujitsu 2351' 000201ee 20 20 20 31 20 3d 3e 20 | 1 => | .TXT ' 1 => Fujitsu 2361' 00020202 20 20 20 32 20 3d 3e 20 | 2 => | .TXT ' 2 => Fujitsu 2333' 00020216 20 20 20 33 20 3d 3e 20 | 3 => | .TXT ' 3 => Fujitsu 2344' 0002022a 20 20 20 34 20 3d 3e 20 | 4 => | .TXT ' 4 => Fujitsu 2372' 0002023e 43 6f 64 65 20 3a 5f 20 |Code :_ | .TXT 'Code :_ ' 00020246 54 68 69 73 20 64 72 69 |This dri| .TXT 'This drive has_ ' 00020256 20 63 79 6c | cyl | .TXT ' cyl' 0002025a 69 6e 64 65 |inde | .TXT 'inde' 0002025e 72 73 2c 5f |rs,_ | .TXT 'rs,_' 00020262 20 68 65 61 | hea | .TXT ' hea' 00020266 64 73 2c 5f |ds,_ | .TXT 'ds,_' 0002026a 20 69 6e 74 65 72 6c 65 | interle| .TXT ' interleaved sectors' 0002027e 20 73 65 63 | sec | .TXT ' sec' 00020282 74 6f 72 73 |tors | .TXT 'tors' 00020286 49 73 20 74 68 69 73 20 |Is this | .TXT 'Is this information correct ' 000202a2 50 72 6f 67 72 61 6d 20 |Program | .TXT 'Program error, contact engineering' 000202c4 2e 72 61 77 |.raw | .TXT '.raw' 000202c8 5f 64 65 66 |_def | .TXT '_def' 000202cc 65 63 74 73 |ects | .TXT 'ects' 000202d0 45 72 72 6f 72 20 6f 70 |Error op| .TXT 'Error opening_' 000202de 43 79 6c 69 6e 64 65 72 |Cylinder| .TXT 'Cylinder not found' 000202f0 54 72 61 63 6b 20 6e 6f |Track no| .TXT 'Track not found ' 00020300 50 6f 73 69 74 69 6f 6e |Position| .TXT 'Position not found' 00020312 4c 65 6e 67 |Leng | .TXT 'Leng' 00020316 74 68 20 6e |th n | .TXT 'th n' 0002031a 6f 74 20 66 |ot f | .TXT 'ot f' 0002031e 6f 75 6e 64 |ound | .TXT 'ound' 00020322 2e 64 65 66 |.def | .TXT '.def' 00020326 65 63 74 73 |ects | .TXT 'ects' 0002032a 45 6e 74 65 72 20 74 61 |Enter ta| .TXT 'Enter tape drive unit number :_ ' 0002034a 2e 44 45 46 |.DEF | .TXT '.DEF' 0002034e 45 43 54 53 |ECTS | .TXT 'ECTS' 00020352 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want to save this defect information on: ' 00020382 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => A tape ' 00020392 20 20 20 20 31 20 | 1 | .XXX[0x6] 00020398 3d 3e 20 41 20 44 46 53 |=> A DFS| .XXX[0x8] 000203a0 20 64 69 73 6b 20 | disk | .XXX[0x6] 000203a6 50 6c 65 61 73 65 20 65 |Please e| .TXT 'Please enter 0 or 1:_ ' 000203bc 00 00 03 4a | J | .XXX[0x4] 000203c0 00 00 00 14 00 00 00 30 | 0| .XXX[0x50] 000203c8 00 00 02 49 80 00 00 00 | I | 000203d0 03 4a 00 00 00 14 00 00 | J | 000203d8 00 42 00 00 02 6c 00 00 | B l | 000203e0 00 00 03 37 00 00 00 0a | 7 | 000203e8 00 00 00 42 00 00 02 6c | B l| 000203f0 00 00 00 00 02 70 00 00 | p | 000203f8 00 1b 00 00 00 42 00 00 | B | 00020400 02 6c 00 00 00 00 02 e9 | l | 00020408 00 00 00 1b 00 00 00 42 | B| 00020410 00 00 02 6c 00 00 | l | .XXX[0x6] 00020416 ; -------------------------------------------------------------------------------------- 00020416 ; OMSI PASCAL Function 00020416 ; -------------------------------------------------------------------------------------- 00020416 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 0002041a bf d5 | | CMPA.L (A5),A7 0002041c 62 06 |b | BHI 0x20424 0002041e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020422 4e 76 |Nv | TRAPV 00020424 de fc 00 1c | | ADDA.W #0x1c,A7 00020428 48 e7 81 80 |H | MOVEM.L A0+D7+D0,-(A7) 0002042c 7e 00 |~ | MOVEQ.L #0x00,D7 0002042e 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 00020434 63 02 |c | BLS 0x20438 00020436 4e 4f |NO | TRAP #15 00020438 20 07 | | MOVE.L D7,D0 0002043a e5 80 | | ASL.L #0x2,D0 0002043c 41 f9 00 02 13 6c |A l | LEA.L 0x2136c,A0 00020442 00 30 00 80 08 08 | 0 | ORI.B #0x80,(A0+D0.L+#0x8) 00020448 02 30 00 bf 08 08 | 0 | ANDI.B #0xbf,(A0+D0.L+#0x8) 0002044e 02 70 c0 00 08 08 | p | ANDI.W #0xc000,(A0+D0.L+#0x8) 00020454 42 30 08 0a |B0 | CLR.B (A0+D0.L+#0xa) 00020458 42 30 08 0b |B0 | CLR.B (A0+D0.L+#0xb) 0002045c 52 87 |R | ADDQ.L #0x1,D7 0002045e 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 00020464 6f c8 |o | BLE 0x2042e 00020466 42 b9 00 02 33 74 |B 3t | CLR.L 0x23374 0002046c 4c df 01 81 |L | MOVEM.L (A7)+,D0+D7+A0 00020470 4e 5e |N^ | UNLK A6 00020472 4e 75 |Nu | RTS 00020474 ; -------------------------------------------------------------------------------------- 00020474 ; OMSI PASCAL Function 00020474 ; <LVAR 0x010 4(r)> 00020474 ; <LVAR 0x00c 4(r)> 00020474 ; <LVAR 0x008 4(r)> 00020474 ; -------------------------------------------------------------------------------------- 00020474 4e 56 ff 72 |NV r | LINK.W A6,#0xff72 00020478 bf d5 | | CMPA.L (A5),A7 0002047a 62 06 |b | BHI 0x20482 0002047c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020480 4e 76 |Nv | TRAPV 00020482 de fc 00 86 | | ADDA.W #0x86,A7 00020486 48 e7 f3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7) 0002048a 45 f9 00 02 33 74 |E 3t | LEA.L 0x23374,A2 00020490 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020496 49 f9 00 02 13 6c |I l | LEA.L 0x2136c,A4 0002049c 74 01 |t | MOVEQ.L #0x01,D2 0002049e 76 0c |v | MOVEQ.L #0x0c,D3 000204a0 20 12 | | MOVE.L (A2),D0 000204a2 0c 80 00 00 08 00 | | CMPI.L #0x00000800,D0 000204a8 66 2a |f* | BNE 0x204d4 000204aa 41 fa fc a0 |A | LEA.L 0x2014c,A0 000204ae 70 10 |p | MOVEQ.L #0x10,D0 000204b0 3f 20 |? | MOVE.W -(A0),-(A7) 000204b2 51 c8 ff fc |Q | DBF D0,0x204b0 000204b6 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 000204ba 59 4f |YO | SUBQ.L #0x4,A7 000204bc 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000204c0 3f 02 |? | MOVE.W D2,-(A7) 000204c2 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 000204c6 4e 93 |N | JSR (A3) 000204c8 50 4f |PO | ADDQ.L #0x8,A7 000204ca 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000204d0 de fc 00 28 | ( | ADDA.W #0x28,A7 000204d4 7e 00 |~ | MOVEQ.L #0x00,D7 000204d6 2f 12 |/ | MOVE.L (A2),-(A7) 000204d8 53 97 |S | SUBQ.L #0x1,(A7) 000204da 7c 00 || | MOVEQ.L #0x00,D6 000204dc bc 97 | | CMP.L (A7),D6 000204de 6e 3e |n> | BGT 0x2051e 000204e0 0c 86 00 00 07 ff | | CMPI.L #0x000007ff,D6 000204e6 63 02 |c | BLS 0x204ea 000204e8 4e 4f |NO | TRAP #15 000204ea 20 06 | | MOVE.L D6,D0 000204ec e5 80 | | ASL.L #0x2,D0 000204ee 20 4c | L | MOVEA.L A4,A0 000204f0 42 81 |B | CLR.L D1 000204f2 32 30 08 08 |20 | MOVE.W (A0+D0.L+#0x8),D1 000204f6 e5 49 | I | LSL.W #0x2,D1 000204f8 e4 49 | I | LSR.W #0x2,D1 000204fa b2 ae 00 10 | | CMP.L (A6+0x10),D1 000204fe 66 1a |f | BNE 0x2051a 00020500 42 81 |B | CLR.L D1 00020502 12 30 08 0a | 0 | MOVE.B (A0+D0.L+#0xa),D1 00020506 b2 ae 00 0c | | CMP.L (A6+0xc),D1 0002050a 66 0e |f | BNE 0x2051a 0002050c 42 81 |B | CLR.L D1 0002050e 12 30 08 0b | 0 | MOVE.B (A0+D0.L+#0xb),D1 00020512 b2 ae 00 08 | | CMP.L (A6+0x8),D1 00020516 66 02 |f | BNE 0x2051a 00020518 7e 01 |~ | MOVEQ.L #0x01,D7 0002051a 52 86 |R | ADDQ.L #0x1,D6 0002051c 68 be |h | BVC 0x204dc 0002051e 58 4f |XO | ADDQ.L #0x4,A7 00020520 4a 07 |J | TST.B D7 00020522 66 00 00 d6 |f | BNE 0x205fa 00020526 9e fc 00 1e | | SUBA.W #0x1e,A7 0002052a 20 4f | O | MOVEA.L A7,A0 0002052c 43 fa fc 1e |C | LEA.L 0x2014c,A1 00020530 70 1c |p | MOVEQ.L #0x1c,D0 00020532 10 d9 | | MOVE.B (A1)+,(A0)+ 00020534 51 c8 ff fc |Q | DBF D0,0x20532 00020538 9e c3 | | SUBA.W D3,A7 0002053a 20 4f | O | MOVEA.L A7,A0 0002053c 43 fa fc 2c |C , | LEA.L 0x2016a,A1 00020540 70 0a |p | MOVEQ.L #0x0a,D0 00020542 10 d9 | | MOVE.B (A1)+,(A0)+ 00020544 51 c8 ff fc |Q | DBF D0,0x20542 00020548 2f 3a fc 34 |/: 4 | MOVE.L 0x2017e,-(A7) 0002054c 2f 3a fc 2c |/: , | MOVE.L 0x2017a,-(A7) 00020550 2f 3a fc 24 |/: $ | MOVE.L 0x20176,-(A7) 00020554 51 4f |QO | SUBQ.L #0x8,A7 00020556 48 6f 00 20 |Ho | PEA.L (A7+0x20) 0002055a 3f 02 |? | MOVE.W D2,-(A7) 0002055c 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 00020560 4e 93 |N | JSR (A3) 00020562 2e ae 00 10 |. | MOVE.L (A6+0x10),(A7) 00020566 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002056c 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 00020570 3f 02 |? | MOVE.W D2,-(A7) 00020572 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00020576 4e 93 |N | JSR (A3) 00020578 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 0002057c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020582 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00020586 3f 02 |? | MOVE.W D2,-(A7) 00020588 3f 03 |? | MOVE.W D3,-(A7) 0002058a 4e 93 |N | JSR (A3) 0002058c 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00020590 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020596 58 4f |XO | ADDQ.L #0x4,A7 00020598 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 0002059e de fc 00 18 | | ADDA.W #0x18,A7 000205a2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000205a8 de fc 00 3a | : | ADDA.W #0x3a,A7 000205ac 20 12 | | MOVE.L (A2),D0 000205ae 0c 80 00 00 07 ff | | CMPI.L #0x000007ff,D0 000205b4 63 02 |c | BLS 0x205b8 000205b6 4e 4f |NO | TRAP #15 000205b8 e5 80 | | ASL.L #0x2,D0 000205ba 20 4c | L | MOVEA.L A4,A0 000205bc 22 2e 00 10 |". | MOVE.L (A6+0x10),D1 000205c0 0c 81 00 00 3f ff | ? | CMPI.L #0x00003fff,D1 000205c6 63 02 |c | BLS 0x205ca 000205c8 4e 4f |NO | TRAP #15 000205ca 02 70 c0 00 08 08 | p | ANDI.W #0xc000,(A0+D0.L+#0x8) 000205d0 83 70 08 08 | p | OR.W D1,(A0+D0.L+#0x8) 000205d4 22 2e 00 0c |". | MOVE.L (A6+0xc),D1 000205d8 0c 81 00 00 00 ff | | CMPI.L #0x000000ff,D1 000205de 63 02 |c | BLS 0x205e2 000205e0 4e 4f |NO | TRAP #15 000205e2 11 81 08 0a | | MOVE.B D1,(A0+D0.L+#0xa) 000205e6 22 2e 00 08 |". | MOVE.L (A6+0x8),D1 000205ea 0c 81 00 00 00 ff | | CMPI.L #0x000000ff,D1 000205f0 63 02 |c | BLS 0x205f4 000205f2 4e 4f |NO | TRAP #15 000205f4 11 81 08 0b | | MOVE.B D1,(A0+D0.L+#0xb) 000205f8 52 92 |R | ADDQ.L #0x1,(A2) 000205fa 4c df 1f cf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2+A3+A4 000205fe 4e 5e |N^ | UNLK A6 00020600 4e 75 |Nu | RTS 00020602 ; -------------------------------------------------------------------------------------- 00020602 ; OMSI PASCAL Function 00020602 ; <LVAR 0x01c 4(r)> 00020602 ; <LVAR 0x018 4(r)> 00020602 ; <LVAR 0x014 4(r)> 00020602 ; <LVAR 0x010 4(r)> 00020602 ; <LVAR 0x00c 4(r)> 00020602 ; <LVAR 0x008 4(r)> 00020602 ; <LVAR -0x05a @> 00020602 ; -------------------------------------------------------------------------------------- 00020602 4e 56 ff 10 |NV | LINK.W A6,#0xff10 00020606 bf d5 | | CMPA.L (A5),A7 00020608 62 06 |b | BHI 0x20610 0002060a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002060e 4e 76 |Nv | TRAPV 00020610 de fc 00 90 | | ADDA.W #0x90,A7 00020614 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020618 74 01 |t | MOVEQ.L #0x01,D2 0002061a 76 14 |v | MOVEQ.L #0x14,D3 0002061c 78 18 |x | MOVEQ.L #0x18,D4 0002061e 7a 0c |z | MOVEQ.L #0x0c,D5 00020620 7c 2a ||* | MOVEQ.L #0x2a,D6 00020622 20 6e 00 1c | n | MOVEA.L (A6+0x1c),A0 00020626 43 fa fb 84 |C | LEA.L 0x201ac,A1 0002062a 70 14 |p | MOVEQ.L #0x14,D0 0002062c 3f 21 |?! | MOVE.W -(A1),-(A7) 0002062e 51 c8 ff fc |Q | DBF D0,0x2062c 00020632 51 4f |QO | SUBQ.L #0x8,A7 00020634 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020638 3f 02 |? | MOVE.W D2,-(A7) 0002063a 3f 06 |? | MOVE.W D6,-(A7) 0002063c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020642 50 4f |PO | ADDQ.L #0x8,A7 00020644 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 0002064a 58 4f |XO | ADDQ.L #0x4,A7 0002064c 20 9f | | MOVE.L (A7)+,(A0) 0002064e de c6 | | ADDA.W D6,A7 00020650 41 ee ff a6 |A | LEA.L (A6-0x5a),A0 00020654 43 fa fd 66 |C f | LEA.L 0x203bc,A1 00020658 70 2c |p, | MOVEQ.L #0x2c,D0 0002065a 30 d9 |0 | MOVE.W (A1)+,(A0)+ 0002065c 51 c8 ff fc |Q | DBF D0,0x2065a 00020660 41 fa fb 78 |A x | LEA.L 0x201da,A0 00020664 70 16 |p | MOVEQ.L #0x16,D0 00020666 3f 20 |? | MOVE.W -(A0),-(A7) 00020668 51 c8 ff fc |Q | DBF D0,0x20666 0002066c 59 4f |YO | SUBQ.L #0x4,A7 0002066e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020672 3f 02 |? | MOVE.W D2,-(A7) 00020674 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 00020678 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002067e 50 4f |PO | ADDQ.L #0x8,A7 00020680 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020686 de fc 00 32 | 2 | ADDA.W #0x32,A7 0002068a 41 fa fb 62 |A b | LEA.L 0x201ee,A0 0002068e 70 04 |p | MOVEQ.L #0x04,D0 00020690 2f 20 |/ | MOVE.L -(A0),-(A7) 00020692 51 c8 ff fc |Q | DBF D0,0x20690 00020696 59 4f |YO | SUBQ.L #0x4,A7 00020698 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002069c 3f 02 |? | MOVE.W D2,-(A7) 0002069e 3f 03 |? | MOVE.W D3,-(A7) 000206a0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000206a6 50 4f |PO | ADDQ.L #0x8,A7 000206a8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000206ae de c4 | | ADDA.W D4,A7 000206b0 41 fa fb 50 |A P | LEA.L 0x20202,A0 000206b4 70 04 |p | MOVEQ.L #0x04,D0 000206b6 2f 20 |/ | MOVE.L -(A0),-(A7) 000206b8 51 c8 ff fc |Q | DBF D0,0x206b6 000206bc 59 4f |YO | SUBQ.L #0x4,A7 000206be 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000206c2 3f 02 |? | MOVE.W D2,-(A7) 000206c4 3f 03 |? | MOVE.W D3,-(A7) 000206c6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000206cc 50 4f |PO | ADDQ.L #0x8,A7 000206ce 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000206d4 de c4 | | ADDA.W D4,A7 000206d6 41 fa fb 3e |A > | LEA.L 0x20216,A0 000206da 70 04 |p | MOVEQ.L #0x04,D0 000206dc 2f 20 |/ | MOVE.L -(A0),-(A7) 000206de 51 c8 ff fc |Q | DBF D0,0x206dc 000206e2 59 4f |YO | SUBQ.L #0x4,A7 000206e4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000206e8 3f 02 |? | MOVE.W D2,-(A7) 000206ea 3f 03 |? | MOVE.W D3,-(A7) 000206ec 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000206f2 50 4f |PO | ADDQ.L #0x8,A7 000206f4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000206fa de c4 | | ADDA.W D4,A7 000206fc 41 fa fb 2c |A , | LEA.L 0x2022a,A0 00020700 70 04 |p | MOVEQ.L #0x04,D0 00020702 2f 20 |/ | MOVE.L -(A0),-(A7) 00020704 51 c8 ff fc |Q | DBF D0,0x20702 00020708 59 4f |YO | SUBQ.L #0x4,A7 0002070a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002070e 3f 02 |? | MOVE.W D2,-(A7) 00020710 3f 03 |? | MOVE.W D3,-(A7) 00020712 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020718 50 4f |PO | ADDQ.L #0x8,A7 0002071a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020720 de c4 | | ADDA.W D4,A7 00020722 41 fa fb 1a |A | LEA.L 0x2023e,A0 00020726 70 04 |p | MOVEQ.L #0x04,D0 00020728 2f 20 |/ | MOVE.L -(A0),-(A7) 0002072a 51 c8 ff fc |Q | DBF D0,0x20728 0002072e 59 4f |YO | SUBQ.L #0x4,A7 00020730 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020734 3f 02 |? | MOVE.W D2,-(A7) 00020736 3f 03 |? | MOVE.W D3,-(A7) 00020738 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002073e 50 4f |PO | ADDQ.L #0x8,A7 00020740 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020746 de fc 00 10 | | ADDA.W #0x10,A7 0002074a 20 4f | O | MOVEA.L A7,A0 0002074c 43 fa fa f0 |C | LEA.L 0x2023e,A1 00020750 70 06 |p | MOVEQ.L #0x06,D0 00020752 10 d9 | | MOVE.B (A1)+,(A0)+ 00020754 51 c8 ff fc |Q | DBF D0,0x20752 00020758 51 4f |QO | SUBQ.L #0x8,A7 0002075a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002075e 3f 02 |? | MOVE.W D2,-(A7) 00020760 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00020764 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002076a 50 4f |PO | ADDQ.L #0x8,A7 0002076c 48 78 00 00 |Hx | PEA.L 0x0 00020770 48 78 00 04 |Hx | PEA.L 0x4 00020774 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 0002077a de c5 | | ADDA.W D5,A7 0002077c 10 2f 00 03 | / | MOVE.B (A7+0x3),D0 00020780 48 80 |H | EXTB.W D0 00020782 41 bc 00 04 |A | CHK.W #0x4,D0 00020786 de c5 | | ADDA.W D5,A7 00020788 1e 00 | | MOVE.B D0,D7 0002078a 20 6e 00 18 | n | MOVEA.L (A6+0x18),A0 0002078e 2f 08 |/ | MOVE.L A0,-(A7) 00020790 10 07 | | MOVE.B D7,D0 00020792 48 80 |H | EXTB.W D0 00020794 c1 fc 00 12 | | MULS.W #0x12,D0 00020798 20 b6 00 a6 | | MOVE.L (A6+D0.W-#0x5a),(A0) 0002079c 22 6e 00 14 |"n | MOVEA.L (A6+0x14),A1 000207a0 22 b6 00 aa |" | MOVE.L (A6+D0.W-#0x56),(A1) 000207a4 24 6e 00 10 |$n | MOVEA.L (A6+0x10),A2 000207a8 24 b6 00 ae |$ | MOVE.L (A6+D0.W-#0x52),(A2) 000207ac 26 6e 00 0c |&n | MOVEA.L (A6+0xc),A3 000207b0 26 b6 00 b2 |& | MOVE.L (A6+D0.W-#0x4e),(A3) 000207b4 26 6e 00 08 |&n | MOVEA.L (A6+0x8),A3 000207b8 12 36 00 b6 | 6 | MOVE.B (A6+D0.W-#0x4a),D1 000207bc ee 09 | | LSR.B #0x7,D1 000207be 16 81 | | MOVE.B D1,(A3) 000207c0 9e fc 00 10 | | SUBA.W #0x10,A7 000207c4 26 4f |&O | MOVEA.L A7,A3 000207c6 41 fa fa 7e |A ~ | LEA.L 0x20246,A0 000207ca 70 0e |p | MOVEQ.L #0x0e,D0 000207cc 16 d8 | | MOVE.B (A0)+,(A3)+ 000207ce 51 c8 ff fc |Q | DBF D0,0x207cc 000207d2 2f 3a fa 8a |/: | MOVE.L 0x2025e,-(A7) 000207d6 2f 3a fa 82 |/: | MOVE.L 0x2025a,-(A7) 000207da 2f 3a fa 7a |/: z | MOVE.L 0x20256,-(A7) 000207de 2f 3a fa 86 |/: | MOVE.L 0x20266,-(A7) 000207e2 2f 3a fa 7e |/: ~ | MOVE.L 0x20262,-(A7) 000207e6 51 4f |QO | SUBQ.L #0x8,A7 000207e8 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 000207ec 3f 02 |? | MOVE.W D2,-(A7) 000207ee 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 000207f2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000207f8 58 4f |XO | ADDQ.L #0x4,A7 000207fa 20 6f 00 30 | o 0 | MOVEA.L (A7+0x30),A0 000207fe 2f 10 |/ | MOVE.L (A0),-(A7) 00020800 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020806 48 6f 00 18 |Ho | PEA.L (A7+0x18) 0002080a 3f 02 |? | MOVE.W D2,-(A7) 0002080c 3f 05 |? | MOVE.W D5,-(A7) 0002080e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020814 2e 91 |. | MOVE.L (A1),(A7) 00020816 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002081c 48 6f 00 18 |Ho | PEA.L (A7+0x18) 00020820 3f 02 |? | MOVE.W D2,-(A7) 00020822 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00020826 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002082c 2e 92 |. | MOVE.L (A2),(A7) 0002082e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020834 58 4f |XO | ADDQ.L #0x4,A7 00020836 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 0002083c de c4 | | ADDA.W D4,A7 0002083e 28 5f |(_ | MOVEA.L (A7)+,A4 00020840 de fc 00 24 | $ | ADDA.W #0x24,A7 00020844 4a 01 |J | TST.B D1 00020846 67 30 |g0 | BEQ 0x20878 00020848 41 fa fa 34 |A 4 | LEA.L 0x2027e,A0 0002084c 70 04 |p | MOVEQ.L #0x04,D0 0002084e 2f 20 |/ | MOVE.L -(A0),-(A7) 00020850 51 c8 ff fc |Q | DBF D0,0x2084e 00020854 59 4f |YO | SUBQ.L #0x4,A7 00020856 2f 0c |/ | MOVE.L A4,-(A7) 00020858 59 4f |YO | SUBQ.L #0x4,A7 0002085a 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002085e 3f 02 |? | MOVE.W D2,-(A7) 00020860 3f 03 |? | MOVE.W D3,-(A7) 00020862 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020868 50 4f |PO | ADDQ.L #0x8,A7 0002086a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020870 50 4f |PO | ADDQ.L #0x8,A7 00020872 28 5f |(_ | MOVEA.L (A7)+,A4 00020874 de c3 | | ADDA.W D3,A7 00020876 60 2c |`, | BRA 0x208a4 00020878 2f 3a fa 08 |/: | MOVE.L 0x20282,-(A7) 0002087c 2f 3a fa 00 |/: | MOVE.L 0x2027e,-(A7) 00020880 59 4f |YO | SUBQ.L #0x4,A7 00020882 2f 0c |/ | MOVE.L A4,-(A7) 00020884 59 4f |YO | SUBQ.L #0x4,A7 00020886 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002088a 3f 02 |? | MOVE.W D2,-(A7) 0002088c 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00020890 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020896 50 4f |PO | ADDQ.L #0x8,A7 00020898 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002089e 50 4f |PO | ADDQ.L #0x8,A7 000208a0 28 5f |(_ | MOVEA.L (A7)+,A4 000208a2 50 4f |PO | ADDQ.L #0x8,A7 000208a4 2e 8c |. | MOVE.L A4,(A7) 000208a6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000208ac 9e c4 | | SUBA.W D4,A7 000208ae 20 4f | O | MOVEA.L A7,A0 000208b0 43 fa f9 d4 |C | LEA.L 0x20286,A1 000208b4 70 1a |p | MOVEQ.L #0x1a,D0 000208b6 10 d9 | | MOVE.B (A1)+,(A0)+ 000208b8 51 c8 ff fc |Q | DBF D0,0x208b6 000208bc 5d 4f |]O | SUBQ.L #0x6,A7 000208be 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000208c2 3f 02 |? | MOVE.W D2,-(A7) 000208c4 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000208c8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000208ce 5c 4f |\O | ADDQ.L #0x6,A7 000208d0 1e 82 | | MOVE.B D2,(A7) 000208d2 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 000208d8 5c 4f |\O | ADDQ.L #0x6,A7 000208da 4a 1f |J | TST.B (A7)+ 000208dc 66 2e |f. | BNE 0x2090c 000208de 41 fa f9 e4 |A | LEA.L 0x202c4,A0 000208e2 70 10 |p | MOVEQ.L #0x10,D0 000208e4 3f 20 |? | MOVE.W -(A0),-(A7) 000208e6 51 c8 ff fc |Q | DBF D0,0x208e4 000208ea 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 000208ee 59 4f |YO | SUBQ.L #0x4,A7 000208f0 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000208f4 3f 02 |? | MOVE.W D2,-(A7) 000208f6 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 000208fa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020900 50 4f |PO | ADDQ.L #0x8,A7 00020902 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020908 de fc 00 28 | ( | ADDA.W #0x28,A7 0002090c de fc 00 1c | | ADDA.W #0x1c,A7 00020910 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020914 4e 5e |N^ | UNLK A6 00020916 4e 75 |Nu | RTS 00020918 ; -------------------------------------------------------------------------------------- 00020918 ; OMSI PASCAL Function 00020918 ; <LVAR 0x01a 4(r)> 00020918 ; <LVAR 0x00e 4(r)> 00020918 ; <LVAR 0x00a 4(r)> 00020918 ; <LVAR 0x008 1(r)> 00020918 ; <LVAR -0x004 @ 4(r)> 00020918 ; <LVAR -0x008 @ 4(r)> 00020918 ; <LVAR -0x00a @ 1(r)> 00020918 ; <LVAR -0x012 @ 4(r)> 00020918 ; <LVAR -0x014 @ 1(r)> 00020918 ; <LVAR -0x018 @ 4(rw)> 00020918 ; <LVAR -0x01e @ 4(r)> 00020918 ; <LVAR -0x022 @ 4(r)> 00020918 ; <LVAR -0x024 2(w)> 00020918 ; <LVAR -0x026 2(w)> 00020918 ; <LVAR -0x028 @ 1(r)> 00020918 ; <LVAR -0x02c @ 4(r)> 00020918 ; <LVAR -0x030 @ 4(r)> 00020918 ; <LVAR -0x032 2(w)> 00020918 ; -------------------------------------------------------------------------------------- 00020918 4e 56 ff 76 |NV v | LINK.W A6,#0xff76 0002091c bf d5 | | CMPA.L (A5),A7 0002091e 62 06 |b | BHI 0x20926 00020920 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020924 4e 76 |Nv | TRAPV 00020926 de fc 00 58 | X | ADDA.W #0x58,A7 0002092a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002092e 45 ee ff f8 |E | LEA.L (A6-0x8),A2 00020932 47 ee ff ec |G | LEA.L (A6-0x14),A3 00020936 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 0002093c 74 01 |t | MOVEQ.L #0x01,D2 0002093e 2f 3a f9 8c |/: | MOVE.L 0x202cc,-(A7) 00020942 2f 3a f9 84 |/: | MOVE.L 0x202c8,-(A7) 00020946 2f 3a f9 7c |/: | | MOVE.L 0x202c4,-(A7) 0002094a 51 4f |QO | SUBQ.L #0x8,A7 0002094c 2f 2e 00 1a |/. | MOVE.L (A6+0x1a),-(A7) 00020950 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020956 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002095a 3f 02 |? | MOVE.W D2,-(A7) 0002095c 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 00020960 4e 94 |N | JSR (A4) 00020962 50 4f |PO | ADDQ.L #0x8,A7 00020964 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002096a 50 4f |PO | ADDQ.L #0x8,A7 0002096c 2d 5f ff e8 |-_ | MOVE.L (A7)+,(A6-0x18) 00020970 50 4f |PO | ADDQ.L #0x8,A7 00020972 2e ae ff e8 |. | MOVE.L (A6-0x18),(A7) 00020976 42 27 |B' | CLR.B -(A7) 00020978 1f 02 | | MOVE.B D2,-(A7) 0002097a 48 78 00 08 |Hx | PEA.L 0x8 0002097e 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00020982 48 6e ff d4 |Hn | PEA.L (A6-0x2c) 00020986 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 0002098c de fc 00 14 | | ADDA.W #0x14,A7 00020990 4a 2e ff f6 |J. | TST.B (A6-0xa) 00020994 67 3c |g< | BEQ 0x209d2 00020996 41 fa f9 46 |A F | LEA.L 0x202de,A0 0002099a 70 06 |p | MOVEQ.L #0x06,D0 0002099c 3f 20 |? | MOVE.W -(A0),-(A7) 0002099e 51 c8 ff fc |Q | DBF D0,0x2099c 000209a2 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 000209a6 51 4f |QO | SUBQ.L #0x8,A7 000209a8 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000209ac 3f 02 |? | MOVE.W D2,-(A7) 000209ae 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000209b2 4e 94 |N | JSR (A4) 000209b4 2e ae ff e8 |. | MOVE.L (A6-0x18),(A7) 000209b8 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000209be 58 4f |XO | ADDQ.L #0x4,A7 000209c0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000209c6 50 4f |PO | ADDQ.L #0x8,A7 000209c8 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000209ce de fc 00 14 | | ADDA.W #0x14,A7 000209d2 48 6e ff e2 |Hn | PEA.L (A6-0x1e) 000209d6 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000209dc 58 4f |XO | ADDQ.L #0x4,A7 000209de 2f 2e ff d4 |/. | MOVE.L (A6-0x2c),-(A7) 000209e2 48 6e ff e2 |Hn | PEA.L (A6-0x1e) 000209e6 48 6e ff d8 |Hn | PEA.L (A6-0x28) 000209ea 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 000209f0 de fc 00 0c | | ADDA.W #0xc,A7 000209f4 4a 2e ff d8 |J. | TST.B (A6-0x28) 000209f8 66 00 02 88 |f | BNE 0x20c82 000209fc 48 52 |HR | PEA.L (A2) 000209fe 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020a04 2e ae ff e2 |. | MOVE.L (A6-0x1e),(A7) 00020a08 2f 12 |/ | MOVE.L (A2),-(A7) 00020a0a 48 53 |HS | PEA.L (A3) 00020a0c 4e b9 00 01 02 fc |N | JSR FirstField(MOD input : String; MOD output : String; VAR c : Bool 00020a12 50 4f |PO | ADDQ.L #0x8,A7 00020a14 2e 92 |. | MOVE.L (A2),(A7) 00020a16 48 53 |HS | PEA.L (A3) 00020a18 48 6e ff d0 |Hn | PEA.L (A6-0x30) 00020a1c 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 00020a22 de fc 00 0c | | ADDA.W #0xc,A7 00020a26 4a 13 |J | TST.B (A3) 00020a28 66 2a |f* | BNE 0x20a54 00020a2a 41 fa f8 c4 |A | LEA.L 0x202f0,A0 00020a2e 70 08 |p | MOVEQ.L #0x08,D0 00020a30 3f 20 |? | MOVE.W -(A0),-(A7) 00020a32 51 c8 ff fc |Q | DBF D0,0x20a30 00020a36 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020a3a 59 4f |YO | SUBQ.L #0x4,A7 00020a3c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020a40 3f 02 |? | MOVE.W D2,-(A7) 00020a42 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00020a46 4e 94 |N | JSR (A4) 00020a48 50 4f |PO | ADDQ.L #0x8,A7 00020a4a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020a50 de fc 00 18 | | ADDA.W #0x18,A7 00020a54 48 52 |HR | PEA.L (A2) 00020a56 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020a5c 2e ae ff e2 |. | MOVE.L (A6-0x1e),(A7) 00020a60 2f 12 |/ | MOVE.L (A2),-(A7) 00020a62 48 53 |HS | PEA.L (A3) 00020a64 4e b9 00 01 02 fc |N | JSR FirstField(MOD input : String; MOD output : String; VAR c : Bool 00020a6a 50 4f |PO | ADDQ.L #0x8,A7 00020a6c 2e 92 |. | MOVE.L (A2),(A7) 00020a6e 48 53 |HS | PEA.L (A3) 00020a70 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020a74 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 00020a7a de fc 00 0c | | ADDA.W #0xc,A7 00020a7e 4a 13 |J | TST.B (A3) 00020a80 66 30 |f0 | BNE 0x20ab2 00020a82 9e fc 00 10 | | SUBA.W #0x10,A7 00020a86 20 4f | O | MOVEA.L A7,A0 00020a88 43 fa f8 66 |C f | LEA.L 0x202f0,A1 00020a8c 70 0e |p | MOVEQ.L #0x0e,D0 00020a8e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a90 51 c8 ff fc |Q | DBF D0,0x20a8e 00020a94 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020a98 59 4f |YO | SUBQ.L #0x4,A7 00020a9a 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020a9e 3f 02 |? | MOVE.W D2,-(A7) 00020aa0 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00020aa4 4e 94 |N | JSR (A4) 00020aa6 50 4f |PO | ADDQ.L #0x8,A7 00020aa8 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020aae de fc 00 16 | | ADDA.W #0x16,A7 00020ab2 48 52 |HR | PEA.L (A2) 00020ab4 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020aba 2e ae ff e2 |. | MOVE.L (A6-0x1e),(A7) 00020abe 2f 12 |/ | MOVE.L (A2),-(A7) 00020ac0 48 53 |HS | PEA.L (A3) 00020ac2 4e b9 00 01 02 fc |N | JSR FirstField(MOD input : String; MOD output : String; VAR c : Bool 00020ac8 50 4f |PO | ADDQ.L #0x8,A7 00020aca 2e 92 |. | MOVE.L (A2),(A7) 00020acc 48 53 |HS | PEA.L (A3) 00020ace 48 6e ff ee |Hn | PEA.L (A6-0x12) 00020ad2 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 00020ad8 de fc 00 0c | | ADDA.W #0xc,A7 00020adc 4a 13 |J | TST.B (A3) 00020ade 66 2a |f* | BNE 0x20b0a 00020ae0 41 fa f8 30 |A 0 | LEA.L 0x20312,A0 00020ae4 70 08 |p | MOVEQ.L #0x08,D0 00020ae6 3f 20 |? | MOVE.W -(A0),-(A7) 00020ae8 51 c8 ff fc |Q | DBF D0,0x20ae6 00020aec 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020af0 59 4f |YO | SUBQ.L #0x4,A7 00020af2 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020af6 3f 02 |? | MOVE.W D2,-(A7) 00020af8 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00020afc 4e 94 |N | JSR (A4) 00020afe 50 4f |PO | ADDQ.L #0x8,A7 00020b00 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020b06 de fc 00 18 | | ADDA.W #0x18,A7 00020b0a 48 52 |HR | PEA.L (A2) 00020b0c 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020b12 2e ae ff e2 |. | MOVE.L (A6-0x1e),(A7) 00020b16 2f 12 |/ | MOVE.L (A2),-(A7) 00020b18 48 53 |HS | PEA.L (A3) 00020b1a 4e b9 00 01 02 fc |N | JSR FirstField(MOD input : String; MOD output : String; VAR c : Bool 00020b20 50 4f |PO | ADDQ.L #0x8,A7 00020b22 2e 92 |. | MOVE.L (A2),(A7) 00020b24 48 53 |HS | PEA.L (A3) 00020b26 48 6e ff de |Hn | PEA.L (A6-0x22) 00020b2a 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 00020b30 de fc 00 0c | | ADDA.W #0xc,A7 00020b34 4a 13 |J | TST.B (A3) 00020b36 66 2e |f. | BNE 0x20b66 00020b38 2f 3a f7 e4 |/: | MOVE.L 0x2031e,-(A7) 00020b3c 2f 3a f7 dc |/: | MOVE.L 0x2031a,-(A7) 00020b40 2f 3a f7 d4 |/: | MOVE.L 0x20316,-(A7) 00020b44 2f 3a f7 cc |/: | MOVE.L 0x20312,-(A7) 00020b48 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020b4c 59 4f |YO | SUBQ.L #0x4,A7 00020b4e 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020b52 3f 02 |? | MOVE.W D2,-(A7) 00020b54 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 00020b58 4e 94 |N | JSR (A4) 00020b5a 50 4f |PO | ADDQ.L #0x8,A7 00020b5c 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020b62 de fc 00 16 | | ADDA.W #0x16,A7 00020b66 20 2e ff ee | . | MOVE.L (A6-0x12),D0 00020b6a 53 80 |S | SUBQ.L #0x1,D0 00020b6c 28 00 |( | MOVE.L D0,D4 00020b6e 26 2e 00 0a |&. | MOVE.L (A6+0xa),D3 00020b72 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00020b78 0c 84 00 00 ff ff | | CMPI.L #0x0000ffff,D4 00020b7e 63 02 |c | BLS 0x20b82 00020b80 4e 4f |NO | TRAP #15 00020b82 3d 44 ff da |=D | MOVE.W D4,(A6-0x26) 00020b86 2f 04 |/ | MOVE.L D4,-(A7) 00020b88 20 2e ff de | . | MOVE.L (A6-0x22),D0 00020b8c 06 80 00 00 00 11 | | ADDI.L #0x00000011,D0 00020b92 28 00 |( | MOVE.L D0,D4 00020b94 76 08 |v | MOVEQ.L #0x08,D3 00020b96 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00020b9c 0c 84 00 00 ff ff | | CMPI.L #0x0000ffff,D4 00020ba2 63 02 |c | BLS 0x20ba6 00020ba4 4e 4f |NO | TRAP #15 00020ba6 3d 44 ff ce |=D | MOVE.W D4,(A6-0x32) 00020baa 20 2e ff de | . | MOVE.L (A6-0x22),D0 00020bae 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 00020bb4 66 18 |f | BNE 0x20bce 00020bb6 2f 2e ff d0 |/. | MOVE.L (A6-0x30),-(A7) 00020bba 2f 2e ff fc |/. | MOVE.L (A6-0x4),-(A7) 00020bbe 48 78 00 ff |Hx | PEA.L 0xff 00020bc2 4e ba f8 b0 |N | JSR 0x20474 00020bc6 de fc 00 0c | | ADDA.W #0xc,A7 00020bca 60 00 00 b4 |` | BRA 0x20c80 00020bce 42 80 |B | CLR.L D0 00020bd0 30 04 |0 | MOVE.W D4,D0 00020bd2 d0 ae ff ee | | ADD.L (A6-0x12),D0 00020bd6 28 00 |( | MOVE.L D0,D4 00020bd8 26 2e 00 0a |&. | MOVE.L (A6+0xa),D3 00020bdc 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00020be2 0c 84 00 00 ff ff | | CMPI.L #0x0000ffff,D4 00020be8 63 02 |c | BLS 0x20bec 00020bea 4e 4f |NO | TRAP #15 00020bec 3d 44 ff dc |=D | MOVE.W D4,(A6-0x24) 00020bf0 3f 04 |? | MOVE.W D4,-(A7) 00020bf2 20 2f 00 02 | / | MOVE.L (A7+0x2),D0 00020bf6 3a 00 |: | MOVE.W D0,D5 00020bf8 ba 57 | W | CMP.W (A7),D5 00020bfa 62 00 00 82 |b | BHI 0x20c7e 00020bfe 42 80 |B | CLR.L D0 00020c00 30 05 |0 | MOVE.W D5,D0 00020c02 b0 ae 00 0e | | CMP.L (A6+0xe),D0 00020c06 64 04 |d | BCC 0x20c0c 00020c08 3e 05 |> | MOVE.W D5,D7 00020c0a 60 12 |` | BRA 0x20c1e 00020c0c 20 2e 00 0e | . | MOVE.L (A6+0xe),D0 00020c10 53 80 |S | SUBQ.L #0x1,D0 00020c12 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00020c18 63 02 |c | BLS 0x20c1c 00020c1a 4e 4f |NO | TRAP #15 00020c1c 3e 00 |> | MOVE.W D0,D7 00020c1e 4a 2e 00 08 |J. | TST.B (A6+0x8) 00020c22 66 0e |f | BNE 0x20c32 00020c24 2f 2e ff d0 |/. | MOVE.L (A6-0x30),-(A7) 00020c28 2f 2e ff fc |/. | MOVE.L (A6-0x4),-(A7) 00020c2c 42 80 |B | CLR.L D0 00020c2e 30 07 |0 | MOVE.W D7,D0 00020c30 60 3c |`< | BRA 0x20c6e 00020c32 30 07 |0 | MOVE.W D7,D0 00020c34 c0 42 | B | AND.W D2,D0 00020c36 28 2e 00 0e |(. | MOVE.L (A6+0xe),D4 00020c3a 76 02 |v | MOVEQ.L #0x02,D3 00020c3c 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00020c42 42 83 |B | CLR.L D3 00020c44 36 00 |6 | MOVE.W D0,D3 00020c46 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4 00020c4c 30 07 |0 | MOVE.W D7,D0 00020c4e e2 48 | H | LSR.W #0x1,D0 00020c50 42 81 |B | CLR.L D1 00020c52 32 00 |2 | MOVE.W D0,D1 00020c54 d2 84 | | ADD.L D4,D1 00020c56 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 00020c5c 63 02 |c | BLS 0x20c60 00020c5e 4e 4f |NO | TRAP #15 00020c60 3c 01 |< | MOVE.W D1,D6 00020c62 2f 2e ff d0 |/. | MOVE.L (A6-0x30),-(A7) 00020c66 2f 2e ff fc |/. | MOVE.L (A6-0x4),-(A7) 00020c6a 42 80 |B | CLR.L D0 00020c6c 30 06 |0 | MOVE.W D6,D0 00020c6e 2f 00 |/ | MOVE.L D0,-(A7) 00020c70 4e ba f8 02 |N | JSR 0x20474 00020c74 de fc 00 0c | | ADDA.W #0xc,A7 00020c78 52 45 |RE | ADDQ.W #0x1,D5 00020c7a 64 00 ff 7c |d | | BCC 0x20bf8 00020c7e 54 4f |TO | ADDQ.L #0x2,A7 00020c80 58 4f |XO | ADDQ.L #0x4,A7 00020c82 4a 2e ff d8 |J. | TST.B (A6-0x28) 00020c86 67 00 fd 56 |g V | BEQ 0x209de 00020c8a 42 27 |B' | CLR.B -(A7) 00020c8c 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020c90 48 78 00 01 |Hx | PEA.L 0x1 00020c94 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00020c98 48 6e ff d4 |Hn | PEA.L (A6-0x2c) 00020c9c 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020ca2 de fc 00 10 | | ADDA.W #0x10,A7 00020ca6 48 6e ff e8 |Hn | PEA.L (A6-0x18) 00020caa 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020cb0 58 4f |XO | ADDQ.L #0x4,A7 00020cb2 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020cb6 4e 5e |N^ | UNLK A6 00020cb8 4e 75 |Nu | RTS 00020cba ; -------------------------------------------------------------------------------------- 00020cba ; OMSI PASCAL Function 00020cba ; <LVAR 0x008 4(r)> 00020cba ; <LVAR -0x006 @ 4(rw)> 00020cba ; <LVAR -0x00c @> 00020cba ; <LVAR -0x010 @ 4(r)> 00020cba ; -------------------------------------------------------------------------------------- 00020cba 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00020cbe bf d5 | | CMPA.L (A5),A7 00020cc0 62 06 |b | BHI 0x20cc8 00020cc2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020cc6 4e 76 |Nv | TRAPV 00020cc8 de fc 00 4c | L | ADDA.W #0x4c,A7 00020ccc 48 e7 fd f0 |H | MOVEM.L A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7) 00020cd0 43 ee ff fa |C | LEA.L (A6-0x6),A1 00020cd4 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00020cd8 47 ee ff f0 |G | LEA.L (A6-0x10),A3 00020cdc 72 02 |r | MOVEQ.L #0x02,D1 00020cde 74 01 |t | MOVEQ.L #0x01,D2 00020ce0 7a 14 |z | MOVEQ.L #0x14,D5 00020ce2 2f 3a f6 42 |/: B | MOVE.L 0x20326,-(A7) 00020ce6 2f 3a f6 3a |/: : | MOVE.L 0x20322,-(A7) 00020cea 51 4f |QO | SUBQ.L #0x8,A7 00020cec 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020cf0 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020cf6 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020cfa 3f 02 |? | MOVE.W D2,-(A7) 00020cfc 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00020d00 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020d06 50 4f |PO | ADDQ.L #0x8,A7 00020d08 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020d0e 50 4f |PO | ADDQ.L #0x8,A7 00020d10 22 9f |" | MOVE.L (A7)+,(A1) 00020d12 58 4f |XO | ADDQ.L #0x4,A7 00020d14 2e 91 |. | MOVE.L (A1),(A7) 00020d16 1f 02 | | MOVE.B D2,-(A7) 00020d18 1f 01 | | MOVE.B D1,-(A7) 00020d1a 48 78 00 08 |Hx | PEA.L 0x8 00020d1e 48 52 |HR | PEA.L (A2) 00020d20 48 53 |HS | PEA.L (A3) 00020d22 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00020d28 de c5 | | ADDA.W D5,A7 00020d2a 7e 00 |~ | MOVEQ.L #0x00,D7 00020d2c 28 3c 00 00 01 00 |(< | MOVE.L #0x100,D4 00020d32 26 07 |& | MOVE.L D7,D3 00020d34 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00020d3a 2f 13 |/ | MOVE.L (A3),-(A7) 00020d3c 0c 87 00 00 40 00 | @ | CMPI.L #0x00004000,D7 00020d42 63 02 |c | BLS 0x20d46 00020d44 4e 4f |NO | TRAP #15 00020d46 3f 07 |? | MOVE.W D7,-(A7) 00020d48 42 67 |Bg | CLR.W -(A7) 00020d4a 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00020d4e 1f 01 | | MOVE.B D1,-(A7) 00020d50 0c 84 00 00 07 ff | | CMPI.L #0x000007ff,D4 00020d56 63 02 |c | BLS 0x20d5a 00020d58 4e 4f |NO | TRAP #15 00020d5a 20 04 | | MOVE.L D4,D0 00020d5c e5 80 | | ASL.L #0x2,D0 00020d5e 41 f9 00 02 13 6c |A l | LEA.L 0x2136c,A0 00020d64 41 f0 08 08 |A | LEA.L (A0+D0.L+#0x8),A0 00020d68 2f 08 |/ | MOVE.L A0,-(A7) 00020d6a 48 52 |HR | PEA.L (A2) 00020d6c 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 00020d72 de c5 | | ADDA.W D5,A7 00020d74 52 87 |R | ADDQ.L #0x1,D7 00020d76 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7 00020d7c 6f ae |o | BLE 0x20d2c 00020d7e 42 27 |B' | CLR.B -(A7) 00020d80 1f 01 | | MOVE.B D1,-(A7) 00020d82 48 78 00 01 |Hx | PEA.L 0x1 00020d86 48 52 |HR | PEA.L (A2) 00020d88 48 53 |HS | PEA.L (A3) 00020d8a 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020d90 de fc 00 10 | | ADDA.W #0x10,A7 00020d94 48 51 |HQ | PEA.L (A1) 00020d96 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020d9c 58 4f |XO | ADDQ.L #0x4,A7 00020d9e 4c df 0f bf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3 00020da2 4e 5e |N^ | UNLK A6 00020da4 4e 75 |Nu | RTS 00020da6 ; -------------------------------------------------------------------------------------- 00020da6 ; OMSI PASCAL Function 00020da6 ; <LVAR 0x008 4(r)> 00020da6 ; <LVAR -0x00c @ 4(r)> 00020da6 ; <LVAR -0x028 2(w)> 00020da6 ; <LVAR -0x02c 4(w)> 00020da6 ; <LVAR -0x02d 1(r)> 00020da6 ; <LVAR -0x02e 1(r)> 00020da6 ; <LVAR -0x030 2(w)> 00020da6 ; <LVAR -0x032 2(w)> 00020da6 ; <LVAR -0x050 @> 00020da6 ; <LVAR -0x052 @ 1(r)> 00020da6 ; -------------------------------------------------------------------------------------- 00020da6 4e 56 ff 44 |NV D | LINK.W A6,#0xff44 00020daa bf d5 | | CMPA.L (A5),A7 00020dac 62 06 |b | BHI 0x20db4 00020dae 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020db2 4e 76 |Nv | TRAPV 00020db4 de fc 00 68 | h | ADDA.W #0x68,A7 00020db8 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020dbc 45 ee ff ae |E | LEA.L (A6-0x52),A2 00020dc0 47 f9 00 01 04 28 |G ( | LEA.L FSCALL_10428,A3 00020dc6 74 01 |t | MOVEQ.L #0x01,D2 00020dc8 7a 0e |z | MOVEQ.L #0x0e,D5 00020dca 9e fc 00 20 | | SUBA.W #0x20,A7 00020dce 20 4f | O | MOVEA.L A7,A0 00020dd0 43 fa f5 58 |C X | LEA.L 0x2032a,A1 00020dd4 70 1e |p | MOVEQ.L #0x1e,D0 00020dd6 10 d9 | | MOVE.B (A1)+,(A0)+ 00020dd8 51 c8 ff fc |Q | DBF D0,0x20dd6 00020ddc 51 4f |QO | SUBQ.L #0x8,A7 00020dde 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020de2 3f 02 |? | MOVE.W D2,-(A7) 00020de4 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00020de8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020dee 50 4f |PO | ADDQ.L #0x8,A7 00020df0 48 78 00 00 |Hx | PEA.L 0x0 00020df4 48 78 00 03 |Hx | PEA.L 0x3 00020df8 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 00020dfe de fc 00 0c | | ADDA.W #0xc,A7 00020e02 20 1f | | MOVE.L (A7)+,D0 00020e04 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00020e0a 63 02 |c | BLS 0x20e0e 00020e0c 4e 4f |NO | TRAP #15 00020e0e de fc 00 20 | | ADDA.W #0x20,A7 00020e12 3c 00 |< | MOVE.W D0,D6 00020e14 4d bc 00 03 |M | CHK.W #0x3,D6 00020e18 3f 06 |? | MOVE.W D6,-(A7) 00020e1a 1f 02 | | MOVE.B D2,-(A7) 00020e1c 1f 02 | | MOVE.B D2,-(A7) 00020e1e 48 52 |HR | PEA.L (A2) 00020e20 4e b9 00 01 04 0c |N | JSR FSCALL_1040c 00020e26 de fc 00 0a | | ADDA.W #0xa,A7 00020e2a 4a 12 |J | TST.B (A2) 00020e2c 67 16 |g | BEQ 0x20e44 00020e2e 1f 02 | | MOVE.B D2,-(A7) 00020e30 48 52 |HR | PEA.L (A2) 00020e32 4e 93 |N | JSR (A3) 00020e34 58 4f |XO | ADDQ.L #0x4,A7 00020e36 1e 85 | | MOVE.B D5,(A7) 00020e38 48 78 00 01 |Hx | PEA.L 0x1 00020e3c 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020e42 5c 4f |\O | ADDQ.L #0x6,A7 00020e44 2f 3a f5 08 |/: | MOVE.L 0x2034e,-(A7) 00020e48 2f 3a f5 00 |/: | MOVE.L 0x2034a,-(A7) 00020e4c 59 4f |YO | SUBQ.L #0x4,A7 00020e4e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020e52 59 4f |YO | SUBQ.L #0x4,A7 00020e54 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020e58 3f 02 |? | MOVE.W D2,-(A7) 00020e5a 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00020e5e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020e64 50 4f |PO | ADDQ.L #0x8,A7 00020e66 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020e6c 50 4f |PO | ADDQ.L #0x8,A7 00020e6e 28 5f |(_ | MOVEA.L (A7)+,A4 00020e70 50 4f |PO | ADDQ.L #0x8,A7 00020e72 7e 01 |~ | MOVEQ.L #0x01,D7 00020e74 30 14 |0 | MOVE.W (A4),D0 00020e76 48 c0 |H | EXTW.L D0 00020e78 be 80 | | CMP.L D0,D7 00020e7a 6f 14 |o | BLE 0x20e90 00020e7c 20 07 | | MOVE.L D7,D0 00020e7e 53 80 |S | SUBQ.L #0x1,D0 00020e80 0c 80 00 00 00 1d | | CMPI.L #0x0000001d,D0 00020e86 63 02 |c | BLS 0x20e8a 00020e88 4e 4f |NO | TRAP #15 00020e8a 42 36 08 b0 |B6 | CLR.B (A6+D0.L-#0x50) 00020e8e 60 22 |`" | BRA 0x20eb2 00020e90 20 07 | | MOVE.L D7,D0 00020e92 53 80 |S | SUBQ.L #0x1,D0 00020e94 0c 80 00 00 00 1d | | CMPI.L #0x0000001d,D0 00020e9a 63 02 |c | BLS 0x20e9e 00020e9c 4e 4f |NO | TRAP #15 00020e9e 22 07 |" | MOVE.L D7,D1 00020ea0 53 81 |S | SUBQ.L #0x1,D1 00020ea2 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00020ea8 63 02 |c | BLS 0x20eac 00020eaa 4e 4f |NO | TRAP #15 00020eac 1d b4 18 02 08 b0 | | MOVE.B (A4+D1.L+#0x2),(A6+D0.L-#0x50) 00020eb2 52 87 |R | ADDQ.L #0x1,D7 00020eb4 0c 87 00 00 00 1e | | CMPI.L #0x0000001e,D7 00020eba 6f b8 |o | BLE 0x20e74 00020ebc 3d 7c 00 08 ff ce |=| | MOVE.W #0x8,(A6-0x32) 00020ec2 3d 7c 04 00 ff d0 |=| | MOVE.W #0x400,(A6-0x30) 00020ec8 42 2e ff d3 |B. | CLR.B (A6-0x2d) 00020ecc 42 2e ff d2 |B. | CLR.B (A6-0x2e) 00020ed0 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00020ed4 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp 00020eda 58 4f |XO | ADDQ.L #0x4,A7 00020edc 2d 6e ff f4 ff d4 |-n | MOVE.L (A6-0xc),(A6-0x2c) 00020ee2 3d 42 ff d8 |=B | MOVE.W D2,(A6-0x28) 00020ee6 41 ee ff b0 |A | LEA.L (A6-0x50),A0 00020eea 2f 08 |/ | MOVE.L A0,-(A7) 00020eec 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 00020ef0 4e b9 00 01 04 1c |N | JSR FSCALL_1041c 00020ef6 5c 4f |\O | ADDQ.L #0x6,A7 00020ef8 48 52 |HR | PEA.L (A2) 00020efa 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00020f00 58 4f |XO | ADDQ.L #0x4,A7 00020f02 4a 12 |J | TST.B (A2) 00020f04 67 1a |g | BEQ 0x20f20 00020f06 1f 02 | | MOVE.B D2,-(A7) 00020f08 48 52 |HR | PEA.L (A2) 00020f0a 4e 93 |N | JSR (A3) 00020f0c 5c 4f |\O | ADDQ.L #0x6,A7 00020f0e 4a 12 |J | TST.B (A2) 00020f10 67 0e |g | BEQ 0x20f20 00020f12 1f 05 | | MOVE.B D5,-(A7) 00020f14 48 78 00 01 |Hx | PEA.L 0x1 00020f18 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020f1e 5c 4f |\O | ADDQ.L #0x6,A7 00020f20 7e 00 |~ | MOVEQ.L #0x00,D7 00020f22 28 3c 00 00 01 00 |(< | MOVE.L #0x100,D4 00020f28 26 07 |& | MOVE.L D7,D3 00020f2a 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00020f30 0c 84 00 00 07 ff | | CMPI.L #0x000007ff,D4 00020f36 63 02 |c | BLS 0x20f3a 00020f38 4e 4f |NO | TRAP #15 00020f3a 20 04 | | MOVE.L D4,D0 00020f3c e5 80 | | ASL.L #0x2,D0 00020f3e 41 f9 00 02 13 6c |A l | LEA.L 0x2136c,A0 00020f44 41 f0 08 08 |A | LEA.L (A0+D0.L+#0x8),A0 00020f48 2f 08 |/ | MOVE.L A0,-(A7) 00020f4a 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7) 00020f4e 4e b9 00 01 04 1c |N | JSR FSCALL_1041c 00020f54 5c 4f |\O | ADDQ.L #0x6,A7 00020f56 48 52 |HR | PEA.L (A2) 00020f58 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00020f5e 58 4f |XO | ADDQ.L #0x4,A7 00020f60 4a 12 |J | TST.B (A2) 00020f62 67 1a |g | BEQ 0x20f7e 00020f64 1f 02 | | MOVE.B D2,-(A7) 00020f66 48 52 |HR | PEA.L (A2) 00020f68 4e 93 |N | JSR (A3) 00020f6a 5c 4f |\O | ADDQ.L #0x6,A7 00020f6c 4a 12 |J | TST.B (A2) 00020f6e 67 0e |g | BEQ 0x20f7e 00020f70 1f 05 | | MOVE.B D5,-(A7) 00020f72 48 78 00 01 |Hx | PEA.L 0x1 00020f76 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020f7c 5c 4f |\O | ADDQ.L #0x6,A7 00020f7e 52 87 |R | ADDQ.L #0x1,D7 00020f80 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7 00020f86 6f 9a |o | BLE 0x20f22 00020f88 7e 01 |~ | MOVEQ.L #0x01,D7 00020f8a 4e b9 00 01 04 20 |N | JSR FSCALL_10420 00020f90 48 52 |HR | PEA.L (A2) 00020f92 4e b9 00 01 04 08 |N | JSR FSCALL_10408 00020f98 58 4f |XO | ADDQ.L #0x4,A7 00020f9a 4a 12 |J | TST.B (A2) 00020f9c 67 1a |g | BEQ 0x20fb8 00020f9e 1f 02 | | MOVE.B D2,-(A7) 00020fa0 48 52 |HR | PEA.L (A2) 00020fa2 4e 93 |N | JSR (A3) 00020fa4 5c 4f |\O | ADDQ.L #0x6,A7 00020fa6 4a 12 |J | TST.B (A2) 00020fa8 67 0e |g | BEQ 0x20fb8 00020faa 1f 05 | | MOVE.B D5,-(A7) 00020fac 48 78 00 01 |Hx | PEA.L 0x1 00020fb0 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020fb6 5c 4f |\O | ADDQ.L #0x6,A7 00020fb8 52 87 |R | ADDQ.L #0x1,D7 00020fba 0c 87 00 00 00 02 | | CMPI.L #0x00000002,D7 00020fc0 6f c8 |o | BLE 0x20f8a 00020fc2 1f 02 | | MOVE.B D2,-(A7) 00020fc4 48 52 |HR | PEA.L (A2) 00020fc6 4e b9 00 01 04 14 |N | JSR FSCALL_10414 00020fcc 5c 4f |\O | ADDQ.L #0x6,A7 00020fce 4a 12 |J | TST.B (A2) 00020fd0 67 1a |g | BEQ 0x20fec 00020fd2 1f 02 | | MOVE.B D2,-(A7) 00020fd4 48 52 |HR | PEA.L (A2) 00020fd6 4e 93 |N | JSR (A3) 00020fd8 5c 4f |\O | ADDQ.L #0x6,A7 00020fda 4a 12 |J | TST.B (A2) 00020fdc 67 0e |g | BEQ 0x20fec 00020fde 1f 05 | | MOVE.B D5,-(A7) 00020fe0 48 78 00 01 |Hx | PEA.L 0x1 00020fe4 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020fea 5c 4f |\O | ADDQ.L #0x6,A7 00020fec 4e b9 00 01 04 10 |N | JSR FSCALL_10410 00020ff2 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020ff6 4e 5e |N^ | UNLK A6 00020ff8 4e 75 |Nu | RTS 00020ffa ; -------------------------------------------------------------------------------------- 00020ffa ; OMSI PASCAL Function 00020ffa ; <LVAR 0x008 4(r)> 00020ffa ; -------------------------------------------------------------------------------------- 00020ffa 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00020ffe bf d5 | | CMPA.L (A5),A7 00021000 62 06 |b | BHI 0x21008 00021002 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021006 4e 76 |Nv | TRAPV 00021008 de fc 00 5c | \ | ADDA.W #0x5c,A7 0002100c 48 e7 c1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D1+D0,-(A7) 00021010 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021016 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 0002101c 72 01 |r | MOVEQ.L #0x01,D1 0002101e 9e fc 00 30 | 0 | SUBA.W #0x30,A7 00021022 20 4f | O | MOVEA.L A7,A0 00021024 43 fa f3 2c |C , | LEA.L 0x20352,A1 00021028 70 2e |p. | MOVEQ.L #0x2e,D0 0002102a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002102c 51 c8 ff fc |Q | DBF D0,0x2102a 00021030 59 4f |YO | SUBQ.L #0x4,A7 00021032 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021036 3f 01 |? | MOVE.W D1,-(A7) 00021038 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 0002103c 4e 92 |N | JSR (A2) 0002103e 50 4f |PO | ADDQ.L #0x8,A7 00021040 4e 93 |N | JSR (A3) 00021042 de fc 00 24 | $ | ADDA.W #0x24,A7 00021046 20 4f | O | MOVEA.L A7,A0 00021048 43 fa f3 38 |C 8 | LEA.L 0x20382,A1 0002104c 70 0e |p | MOVEQ.L #0x0e,D0 0002104e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021050 51 c8 ff fc |Q | DBF D0,0x2104e 00021054 59 4f |YO | SUBQ.L #0x4,A7 00021056 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002105a 3f 01 |? | MOVE.W D1,-(A7) 0002105c 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00021060 4e 92 |N | JSR (A2) 00021062 50 4f |PO | ADDQ.L #0x8,A7 00021064 4e 93 |N | JSR (A3) 00021066 20 4f | O | MOVEA.L A7,A0 00021068 43 fa f3 28 |C ( | LEA.L 0x20392,A1 0002106c 70 12 |p | MOVEQ.L #0x12,D0 0002106e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021070 51 c8 ff fc |Q | DBF D0,0x2106e 00021074 59 4f |YO | SUBQ.L #0x4,A7 00021076 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002107a 3f 01 |? | MOVE.W D1,-(A7) 0002107c 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00021080 4e 92 |N | JSR (A2) 00021082 50 4f |PO | ADDQ.L #0x8,A7 00021084 4e 93 |N | JSR (A3) 00021086 54 4f |TO | ADDQ.L #0x2,A7 00021088 20 4f | O | MOVEA.L A7,A0 0002108a 43 fa f3 1a |C | LEA.L 0x203a6,A1 0002108e 70 14 |p | MOVEQ.L #0x14,D0 00021090 10 d9 | | MOVE.B (A1)+,(A0)+ 00021092 51 c8 ff fc |Q | DBF D0,0x21090 00021096 51 4f |QO | SUBQ.L #0x8,A7 00021098 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002109c 3f 01 |? | MOVE.W D1,-(A7) 0002109e 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 000210a2 4e 92 |N | JSR (A2) 000210a4 50 4f |PO | ADDQ.L #0x8,A7 000210a6 48 78 00 00 |Hx | PEA.L 0x0 000210aa 48 78 00 01 |Hx | PEA.L 0x1 000210ae 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000210b4 de fc 00 0c | | ADDA.W #0xc,A7 000210b8 2e 1f |. | MOVE.L (A7)+,D7 000210ba de fc 00 16 | | ADDA.W #0x16,A7 000210be 4a 87 |J | TST.L D7 000210c0 66 0a |f | BNE 0x210cc 000210c2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000210c6 4e ba fc de |N | JSR 0x20da6 000210ca 60 08 |` | BRA 0x210d4 000210cc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000210d0 4e ba fb e8 |N | JSR 0x20cba 000210d4 58 4f |XO | ADDQ.L #0x4,A7 000210d6 4c df 0f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3 000210da 4e 5e |N^ | UNLK A6 000210dc 4e 75 |Nu | RTS 000210de ; -------------------------------------------------------------------------------------- 000210de ; OMSI PASCAL Function 000210de ; -------------------------------------------------------------------------------------- 000210de START: 000210de 4f fa 00 08 |O | LEA.L MAIN,A7 000210e2 4e f9 00 01 02 80 |N | JMP ?start_program 000210e8 MAIN: 000210e8 41 f9 00 02 33 7a |A 3z | LEA.L 0x2337a,A0 000210ee 43 f9 00 02 33 7e |C 3~ | LEA.L 0x2337e,A1 000210f4 45 f9 00 02 33 82 |E 3 | LEA.L 0x23382,A2 000210fa 47 f9 00 02 33 86 |G 3 | LEA.L 0x23386,A3 00021100 49 f9 00 02 33 8c |I 3 | LEA.L 0x2338c,A4 00021106 4e b9 00 01 03 98 |N | JSR FSCALL_10398 0002110c 4e ba f3 08 |N | JSR 0x20416 00021110 48 50 |HP | PEA.L (A0) 00021112 48 51 |HQ | PEA.L (A1) 00021114 48 52 |HR | PEA.L (A2) 00021116 48 53 |HS | PEA.L (A3) 00021118 48 54 |HT | PEA.L (A4) 0002111a 48 79 00 02 33 8a |Hy 3 | PEA.L 0x2338a 00021120 4e ba f4 e0 |N | JSR 0x20602 00021124 de fc 00 14 | | ADDA.W #0x14,A7 00021128 2e 90 |. | MOVE.L (A0),(A7) 0002112a 2f 11 |/ | MOVE.L (A1),-(A7) 0002112c 2f 12 |/ | MOVE.L (A2),-(A7) 0002112e 2f 13 |/ | MOVE.L (A3),-(A7) 00021130 2f 14 |/ | MOVE.L (A4),-(A7) 00021132 1f 39 00 02 33 8a | 9 3 | MOVE.B 0x2338a,-(A7) 00021138 4e ba f7 de |N | JSR 0x20918 0002113c de fc 00 12 | | ADDA.W #0x12,A7 00021140 2e 90 |. | MOVE.L (A0),(A7) 00021142 4e ba fe b6 |N | JSR 0x20ffa 00021146 58 4f |XO | ADDQ.L #0x4,A7 00021148 48 50 |HP | PEA.L (A0) 0002114a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021150 54 4f |TO | ADDQ.L #0x2,A7 00021152 42 17 |B | CLR.B (A7) 00021154 48 78 00 01 |Hx | PEA.L 0x1 00021158 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002115e 5c 4f |\O | ADDQ.L #0x6,A7 00021160 4e b9 00 01 02 84 |N | JSR ?exit 00021166 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00021174 ; -------------------------------------------------------------------------------------- 00021174 ; OMSI PASCAL Function 00021174 ; <LVAR 0x008 1(r)> 00021174 ; -------------------------------------------------------------------------------------- 00021174 PROG_FAIL: 00021174 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00021178 bf d5 | | CMPA.L (A5),A7 0002117a 62 06 |b | BHI 0x21182 0002117c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021180 4e 76 |Nv | TRAPV 00021182 de fc 00 2c | , | ADDA.W #0x2c,A7 00021186 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002118a 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 0002118e 70 06 |p | MOVEQ.L #0x06,D0 00021190 3f 20 |? | MOVE.W -(A0),-(A7) 00021192 51 c8 ff fc |Q | DBF D0,0x21190 00021196 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 0002119a 51 4f |QO | SUBQ.L #0x8,A7 0002119c 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000211a0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000211a4 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000211a8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000211ae 58 4f |XO | ADDQ.L #0x4,A7 000211b0 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000211b4 48 80 |H | EXTB.W D0 000211b6 48 c0 |H | EXTW.L D0 000211b8 2f 00 |/ | MOVE.L D0,-(A7) 000211ba 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000211c0 58 4f |XO | ADDQ.L #0x4,A7 000211c2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000211c8 50 4f |PO | ADDQ.L #0x8,A7 000211ca 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000211d0 de fc 00 14 | | ADDA.W #0x14,A7 000211d4 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000211d8 4e 5e |N^ | UNLK A6 000211da 4e 75 |Nu | RTS 000211dc 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 000211ea 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 000211f8 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00021206 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00021218 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00021230 ; -------------------------------------------------------------------------------------- 00021230 ; OMSI PASCAL Function 00021230 ; <LVAR 0x00e 1(r)> 00021230 ; <LVAR 0x00a 4(r)> 00021230 ; <LVAR 0x008 1(r)> 00021230 ; -------------------------------------------------------------------------------------- 00021230 EXP_FAIL: 00021230 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00021234 bf d5 | | CMPA.L (A5),A7 00021236 62 06 |b | BHI 0x2123e 00021238 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002123c 4e 76 |Nv | TRAPV 0002123e de fc 00 74 | t | ADDA.W #0x74,A7 00021242 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00021246 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 0002124c 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00021252 72 01 |r | MOVEQ.L #0x01,D1 00021254 74 0d |t | MOVEQ.L #0x0d,D2 00021256 76 1e |v | MOVEQ.L #0x1e,D3 00021258 78 12 |x | MOVEQ.L #0x12,D4 0002125a 7a 0e |z | MOVEQ.L #0x0e,D5 0002125c 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021262 41 fa ff b4 |A | LEA.L 0x21218,A0 00021266 70 08 |p | MOVEQ.L #0x08,D0 00021268 3f 20 |? | MOVE.W -(A0),-(A7) 0002126a 51 c8 ff fc |Q | DBF D0,0x21268 0002126e 59 4f |YO | SUBQ.L #0x4,A7 00021270 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021274 3f 01 |? | MOVE.W D1,-(A7) 00021276 3f 04 |? | MOVE.W D4,-(A7) 00021278 4e 93 |N | JSR (A3) 0002127a 50 4f |PO | ADDQ.L #0x8,A7 0002127c 4e 94 |N | JSR (A4) 0002127e 50 4f |PO | ADDQ.L #0x8,A7 00021280 20 4f | O | MOVEA.L A7,A0 00021282 43 fa ff 58 |C X | LEA.L 0x211dc,A1 00021286 70 0c |p | MOVEQ.L #0x0c,D0 00021288 10 d9 | | MOVE.B (A1)+,(A0)+ 0002128a 51 c8 ff fc |Q | DBF D0,0x21288 0002128e 51 4f |QO | SUBQ.L #0x8,A7 00021290 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021294 3f 01 |? | MOVE.W D1,-(A7) 00021296 3f 02 |? | MOVE.W D2,-(A7) 00021298 4e 93 |N | JSR (A3) 0002129a 54 4f |TO | ADDQ.L #0x2,A7 0002129c 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000212a0 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000212a6 54 4f |TO | ADDQ.L #0x2,A7 000212a8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000212ae 50 4f |PO | ADDQ.L #0x8,A7 000212b0 4e 94 |N | JSR (A4) 000212b2 de c4 | | ADDA.W D4,A7 000212b4 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000212b8 b0 c1 | | CMPA.W D1,A0 000212ba 67 48 |gH | BEQ 0x21304 000212bc 9e c5 | | SUBA.W D5,A7 000212be 22 4f |"O | MOVEA.L A7,A1 000212c0 45 fa ff 28 |E ( | LEA.L 0x211ea,A2 000212c4 70 0c |p | MOVEQ.L #0x0c,D0 000212c6 12 da | | MOVE.B (A2)+,(A1)+ 000212c8 51 c8 ff fc |Q | DBF D0,0x212c6 000212cc 9e c3 | | SUBA.W D3,A7 000212ce 22 4f |"O | MOVEA.L A7,A1 000212d0 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000212d4 70 1d |p | MOVEQ.L #0x1d,D0 000212d6 12 d8 | | MOVE.B (A0)+,(A1)+ 000212d8 51 c8 ff fc |Q | DBF D0,0x212d6 000212dc 51 4f |QO | SUBQ.L #0x8,A7 000212de 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 000212e2 3f 01 |? | MOVE.W D1,-(A7) 000212e4 3f 02 |? | MOVE.W D2,-(A7) 000212e6 4e 93 |N | JSR (A3) 000212e8 58 4f |XO | ADDQ.L #0x4,A7 000212ea 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000212ee 3f 01 |? | MOVE.W D1,-(A7) 000212f0 3f 03 |? | MOVE.W D3,-(A7) 000212f2 4e 93 |N | JSR (A3) 000212f4 50 4f |PO | ADDQ.L #0x8,A7 000212f6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000212fc 50 4f |PO | ADDQ.L #0x8,A7 000212fe 4e 94 |N | JSR (A4) 00021300 de fc 00 30 | 0 | ADDA.W #0x30,A7 00021304 9e c5 | | SUBA.W D5,A7 00021306 20 4f | O | MOVEA.L A7,A0 00021308 43 fa fe ee |C | LEA.L 0x211f8,A1 0002130c 70 0c |p | MOVEQ.L #0x0c,D0 0002130e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021310 51 c8 ff fc |Q | DBF D0,0x2130e 00021314 51 4f |QO | SUBQ.L #0x8,A7 00021316 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002131a 3f 01 |? | MOVE.W D1,-(A7) 0002131c 3f 02 |? | MOVE.W D2,-(A7) 0002131e 4e 93 |N | JSR (A3) 00021320 54 4f |TO | ADDQ.L #0x2,A7 00021322 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00021326 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 0002132c 54 4f |TO | ADDQ.L #0x2,A7 0002132e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021334 50 4f |PO | ADDQ.L #0x8,A7 00021336 4e 94 |N | JSR (A4) 00021338 5d 4f |]O | SUBQ.L #0x6,A7 0002133a 20 4f | O | MOVEA.L A7,A0 0002133c 43 fa fe da |C | LEA.L 0x21218,A1 00021340 70 16 |p | MOVEQ.L #0x16,D0 00021342 10 d9 | | MOVE.B (A1)+,(A0)+ 00021344 51 c8 ff fc |Q | DBF D0,0x21342 00021348 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002134c 59 4f |YO | SUBQ.L #0x4,A7 0002134e 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021352 3f 01 |? | MOVE.W D1,-(A7) 00021354 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00021358 4e 93 |N | JSR (A3) 0002135a 50 4f |PO | ADDQ.L #0x8,A7 0002135c 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021362 de c3 | | ADDA.W D3,A7 00021364 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00021368 4e 5e |N^ | UNLK A6 0002136a 4e 75 |Nu | RTS