|
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 - metrics - download
Length: 13312 (0x3400)
Types: M200
Notes: @(#)LOG,1.1,92/01/27,12:34:56, M200_PROGRAM
Names: »LOG.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »LOG.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »LOG.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─⟦this⟧ »LOG.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─⟦this⟧ »LOG.M200«
└─⟦this⟧ »LOG.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─⟦this⟧ »LOG.M200«
@ 2156a
<LVAR 0x00d 1(r)>
<LVAR 0x00c 2(r)>
<LVAR 0x008 4(r)>
<LVAR -0x00a @>
<POP 2156a-21600 Body>
<POP 2156a-21580 Prologue> Σ0 ↓
<POP 21580-21586 RegCacheLoad> Σ0 ↓
<POP 21586-2159e Naked> Σ0 ↓ →0x215d0
<MI 21586 MOVE.W (A6+0xc),D0> {}
<MI 2158a LSR.W #0x3,D0> {}
<MI 2158c MOVE.W D0,D7> {}
<MI 2158e CLR.L D0> {}
<MI 21590 MOVE.B (A6+0xd),D0> {}
<MI 21594 LSL.B #0x5,D0> {}
<MI 21596 LSR.B #0x5,D0> {}
<MI 21598 MOVE.L D0,D6> {}
<MI 2159a CMP.W 0x23ad8,D7> {}
<MI 2159c BEQ 0x215d0> {}
<POP 2159e-215d0 Naked> Σ0 ↓
<MI 2159e MOVE.W D7,0x23ad8> {}
<Blob 0x215a0 [4] 0x23ada> Δ-4 {[«4»]}
<MI 215a6 MOVE.W 0x23ad8,D0> {[«4»]}
<MI 215a8 ADDQ.W #0x1,D0> {[«4»]}
<POP 0x215aa LimitCheck 0x0 ≤ D0 ≤ 0x4000> {[«4»]}
<MI 215ae MOVE.W D0,-(A7)> Δ-2 {[«4»]|[2, 'D0']}
<MI 215b0 CLR.W -(A7)> Δ-2 {[«4»]|[2, 'D0']|[#0]}
<Const 0x215b2 0x200.2> Δ-2 {[«4»]|[2, 'D0']|[#0]|[#512]}
<Const 0x215b6 0x2.2> Δ-2 {[«4»]|[2, 'D0']|[#0]|[#512]|[#2]}
<MI 215ba LEA.L 0x236d8,A0> {[«4»]|[2, 'D0']|[#0]|[#512]|[#2]}
<MI 215c0 MOVE.L A0,-(A7)> Δ-4 {[«4»]|[2, 'D0']|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x215c2 <LVAR -0x00a @>> Δ-4 {[«4»]|[2, 'D0']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-10]}
<Call 0x215c6 0x10384> {[«4»]|[2, 'D0']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-10]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 215cc-215d0 StackAdj> Δ+20 {}
<POP 215d0-215f8 Naked> Σ0 ↓ ←0x21586
<MI 215d0 MOVEA.L (A6+0x8),A0> {}
<POP 0x215d4 LimitCheck 0x0 ≤ D6 ≤ 0x7> {}
<MI 215de MOVE.L D6,D0> {}
<MI 215e0 ASL.L #0x7,D0> {}
<MI 215e2 LEA.L 0x232d0,A1> {}
<MI 215e8 LEA.L (A1+D0.L),A1> {}
<MI 215ec LEA.L (A1+0x408),A1> {}
<BlockMove 128,A1,A0> {}
<POP 215f8-21600 Epilogue> Σ0
@ 21600
<LVAR 0x00a 4(w)>
<LVAR 0x008 1(r)>
<POP 21600-21652 Body>
<POP 21600-21616 Prologue> Σ0 ↓
<POP 21616-21618 RegCacheLoad> Σ0 ↓
<POP 21618-2164a Naked> Σ0 ↓
<MI 21618 MOVE.B (A6+0x8),D0> {}
<MI 2161c EXTB.W D0> {}
<MI 2161e MULS.W #0x1e,D0> {}
<MI 21620 LEA.L 0x20f90,A0> {}
<Blob 0x21624 [30] (A0+D0.W+#0x1e)> Δ-30 {[«30»]}
<POP 21630-21632 StackAdj> Δ-4 {[«30»]|[-4-]}
<Lit 0x21632> {[«30»]|[$$…]}
<Pointer.sp 0x21632 4> Δ-4
<Const 0x21636 0x1.2> Δ-2
<Const 0x2163a 0x1e.2> Δ-2
<Call 0x2163c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21642-21644 StackAdj> Δ+8
<MI 21644 MOVE.L (A7)+,(A6+0xa)> Δ+4 {[«30»]}
<POP 21648-2164a StackAdj> Δ+30 {}
<POP 2164a-21652 Epilogue> Σ0
@ 21652
<LVAR 0x00a 4(w)>
<LVAR 0x008 1(r)>
<POP 21652-216a4 Body>
<POP 21652-21668 Prologue> Σ0 ↓
<POP 21668-2166a RegCacheLoad> Σ0 ↓
<POP 2166a-2169c Naked> Σ0 ↓
<MI 2166a MOVE.B (A6+0x8),D0> {}
<MI 2166e EXTB.W D0> {}
<MI 21670 MULS.W #0x32,D0> {}
<MI 21672 LEA.L 0x21170,A0> {}
<Blob 0x21676 [50] (A0+D0.W+#0x32)> Δ-50 {[«50»]}
<POP 21682-21684 StackAdj> Δ-4 {[«50»]|[-4-]}
<Lit 0x21684> {[«50»]|[$$…]}
<Pointer.sp 0x21684 4> Δ-4
<Const 0x21688 0x1.2> Δ-2
<Const 0x2168c 0x32.2> Δ-2
<Call 0x2168e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21694-21696 StackAdj> Δ+8
<MI 21696 MOVE.L (A7)+,(A6+0xa)> Δ+4 {[«50»]}
<POP 2169a-2169c StackAdj> Δ+50 {}
<POP 2169c-216a4 Epilogue> Σ0
@ 216a4
<LVAR 0x016 2(r)>
<LVAR 0x014 2(r)>
<LVAR 0x012 2(r)>
<LVAR 0x010 2(r)>
<LVAR 0x00e 2(r)>
<POP 216a4-21df8 Body>
<POP 216a4-216ba Prologue> Σ0 ↓
<POP 216ba-216d0 RegCacheLoad> Σ0 ↓
<POP 216d0-216d2 Naked> Σ0 ↓
<MI 216d0 MOVEQ.L #0x00,D7> {}
<POP 216d2-21748 Naked> Σ0 ↓ →0x216d2 ←0x216d2
<POP 0x216d2 LimitCheck 0x0 ≤ D7 ≤ 0x8> {}
<MI 216dc MOVE.L D7,D4> {}
<MI 216de MOVEQ.L #0x05,D3> {}
<Call 0x216e0 0x1028c> {}
?muls_d3_d4
<MI 216e6 LEA.L 0x2142c,A0> {}
<Blob 0x216ea [6] (A0+D4.L)> Δ-6 {[«6»]}
<POP 216fa-216fc StackAdj> Δ-8 {[«6»]|[-8-]}
<Lit 0x216fc> {[«6»]|[-4-]|[$$…]}
<Pointer.sp 0x216fc 8> Δ-4
<Const 0x21700 0x1.2> Δ-2
<Const 0x21702 0x5.2> Δ-2
<Call 0x21706 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21708-2170a StackAdj> Δ+8
<POP 21708-2170a StackAdj> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]}
<POP 0x2170a LimitCheck 0x0 ≤ D7 ≤ 0x3c> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 21714 MOVE.L D7,D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 21716 ASL.L #0x1,D0> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 21718 CLR.L D1> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 2171a MOVE.W (A6+D0.L+#0xe),D1> {[«6»]|[-4-]|[$$…]|[-4-]}
<MI 2171e MOVE.L D1,-(A7)> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']}
<Const 0x21720 0x4.4> Δ-4 {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']|[##4]}
<Call 0x21724 0x102e8> {[«6»]|[-4-]|[$$…]|[-4-]|[4, 'D1']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 2172a-2172c StackAdj> Δ+8 {[«6»]|[-4-]|[$$…]|[-4-]}
<Call 0x2172c 0x102d0> {[«6»]|[-4-]|[$$…]|[-4-]}
StringCat2(a, b : String) : String
<POP 21732-21734 StackAdj> Δ+8 {[«6»]|[-4-]}
<Call 0x21734 0x103d8> {[«6»]|[-4-]}
WriteConsoleString(str : String)
<POP 2173a-2173e StackAdj> Δ+10 {}
<MI 2173e ADDQ.L #0x1,D7> {}
<MI 21740 CMPI.L #0x00000008,D7> {}
<MI 21746 BLE 0x216d2> {}
<POP 21748-2179a Naked> Σ0 ↓ →0x217c2
<Call 0x21748 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2174e [8] @> Δ-8 {[«8""»]}
<POP 2175e-21760 StackAdj> Δ-8 {[«8""»]|[-8-]}
<Lit 0x21760 7> {[«8""»]|[-4-]|[$$Unit :_]}
<POP 2176c-2176e StackAdj> Δ-4 {[«8""»]|[-4-]|[$$Unit :_]|[-4-]}
<MI 2176e MOVE.W (A6+0x10),D0> {[«8""»]|[-4-]|[$$Unit :_]|[-4-]}
<MI 21770 ANDI.W #0x0007,D0> {[«8""»]|[-4-]|[$$Unit :_]|[-4-]}
<MI 21774 CLR.L D1> {[«8""»]|[-4-]|[$$Unit :_]|[-4-]}
<MI 21776 MOVE.W D0,D1> {[«8""»]|[-4-]|[$$Unit :_]|[-4-]}
<MI 21778 MOVE.L D1,-(A7)> Δ-4 {[«8""»]|[-4-]|[$$Unit :_]|[-4-]|[4, 'D1']}
<Call 0x2177a 0x102e4> {[«8""»]|[-4-]|[$$Unit :_]|[-4-]|[4, 'D1']}
Long2String(a : Long) : String
<POP 21780-21782 StackAdj> Δ+4 {[«8""»]|[-4-]|[$$Unit :_]|[-4-]}
<Call 0x21782 0x102d0> {[«8""»]|[-4-]|[$$Unit :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21788-2178a StackAdj> Δ+8 {[«8""»]|[-4-]}
<Call 0x2178a 0x103e0> {[«8""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2178c-21790 StackAdj> Δ+12 {}
<MI 21790 MOVE.W (A6+0xe),D0> {}
<MI 21794 ANDI.W #0x8000,D0> {}
<MI 21798 BEQ 0x217c2> {}
<POP 2179a-217c2 Naked> Σ0 ↓
<Blob 0x2179a [18] @> Δ-18 {[«18""»]}
<POP 217ac-217ae StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x217ae 17> {[«18""»]|[$$Special condition]}
<Call 0x217bc 0x103e0> {[«18""»]|[$$Special condition]}
WriteConsoleStringCrLf(str : String)
<POP 217be-217c2 StackAdj> Δ+22 {}
<POP 217c2-217cc Naked> Σ0 ↓ →0x217ee ←0x21748
<MI 217c2 MOVE.W (A6+0xe),D0> {}
<MI 217c6 ANDI.W #0x4000,D0> {}
<MI 217ca BEQ 0x217ee> {}
<POP 217cc-217ee Naked> Σ0 ↓
<Blob 0x217cc [14] @> Δ-14 {[«14""»]}
<POP 217d8-217da StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x217da 14> {[«14""»]|[$$Transfer error]}
<Call 0x217e8 0x103e0> {[«14""»]|[$$Transfer error]}
WriteConsoleStringCrLf(str : String)
<POP 217ea-217ee StackAdj> Δ+18 {}
<POP 217ee-217f8 Naked> Σ0 ↓ →0x2181a ←0x217c2
<MI 217ee MOVE.W (A6+0xe),D0> {}
<MI 217f2 ANDI.W #0x0800,D0> {}
<MI 217f6 BNE 0x2181a> {}
<POP 217f8-2181a Naked> Σ0 ↓
<Blob 0x217f8 [22] @> Δ-22 {[«22""»]}
<POP 21804-21806 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x21806 22> {[«22""»]|[$$Drive is not available]}
<Call 0x21814 0x103e0> {[«22""»]|[$$Drive is not available]}
WriteConsoleStringCrLf(str : String)
<POP 21816-2181a StackAdj> Δ+26 {}
<POP 2181a-21824 Naked> Σ0 ↓ →0x21846 ←0x217ee
<MI 2181a MOVE.W (A6+0xe),D0> {}
<MI 2181e ANDI.W #0x0080,D0> {}
<MI 21822 BNE 0x21846> {}
<POP 21824-21846 Naked> Σ0 ↓
<Blob 0x21824 [18] @> Δ-18 {[«18""»]}
<POP 21830-21832 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21832 18> {[«18""»]|[$$Drive is not ready]}
<Call 0x21840 0x103e0> {[«18""»]|[$$Drive is not ready]}
WriteConsoleStringCrLf(str : String)
<POP 21842-21846 StackAdj> Δ+22 {}
<POP 21846-2184e Naked> Σ0 ↓ →0x21876 ←0x2181a
<MI 21846 MOVE.W (A6+0x10),D0> {}
<MI 21848 ANDI.W #0x8000,D0> {}
<MI 2184c BEQ 0x21876> {}
<POP 2184e-21876 Naked> Σ0 ↓
<Blob 0x2184e [10] @> Δ-10 {[«10""»]}
<POP 21860-21862 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x21862 9> {[«10""»]|[$$Data late]}
<Call 0x21870 0x103e0> {[«10""»]|[$$Data late]}
WriteConsoleStringCrLf(str : String)
<POP 21872-21876 StackAdj> Δ+14 {}
<POP 21876-2187e Naked> Σ0 ↓ →0x218a6 ←0x21846
<MI 21876 MOVE.W (A6+0x10),D0> {}
<MI 21878 ANDI.W #0x4000,D0> {}
<MI 2187c BEQ 0x218a6> {}
<POP 2187e-218a6 Naked> Σ0 ↓
<Blob 0x2187e [18] @> Δ-18 {[«18""»]}
<POP 21890-21892 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21892 17> {[«18""»]|[$$Write check error]}
<Call 0x218a0 0x103e0> {[«18""»]|[$$Write check error]}
WriteConsoleStringCrLf(str : String)
<POP 218a2-218a6 StackAdj> Δ+22 {}
<POP 218a6-218ae Naked> Σ0 ↓ →0x218d0 ←0x21876
<MI 218a6 MOVE.W (A6+0x10),D0> {}
<MI 218a8 ANDI.W #0x1000,D0> {}
<MI 218ac BEQ 0x218d0> {}
<POP 218ae-218d0 Naked> Σ0 ↓
<Blob 0x218ae [18] @> Δ-18 {[«18""»]}
<POP 218ba-218bc StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x218bc 18> {[«18""»]|[$$Non-existent drive]}
<Call 0x218ca 0x103e0> {[«18""»]|[$$Non-existent drive]}
WriteConsoleStringCrLf(str : String)
<POP 218cc-218d0 StackAdj> Δ+22 {}
<POP 218d0-218d8 Naked> Σ0 ↓ →0x218fe ←0x218a6
<MI 218d0 MOVE.W (A6+0x10),D0> {}
<MI 218d2 ANDI.W #0x0800,D0> {}
<MI 218d6 BEQ 0x218fe> {}
<POP 218d8-218fe Naked> Σ0 ↓
<Blob 0x218d8 [20] @> Δ-20 {[«20""»]}
<POP 218e8-218ea StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x218ea 19> {[«20""»]|[$$Non-existent memory]}
<Call 0x218f8 0x103e0> {[«20""»]|[$$Non-existent memory]}
WriteConsoleStringCrLf(str : String)
<POP 218fa-218fe StackAdj> Δ+24 {}
<POP 218fe-21906 Naked> Σ0 ↓ →0x2192e ←0x218d0
<MI 218fe MOVE.W (A6+0x10),D0> {}
<MI 21900 ANDI.W #0x0400,D0> {}
<MI 21904 BEQ 0x2192e> {}
<POP 21906-2192e Naked> Σ0 ↓
<Blob 0x21906 [14] @> Δ-14 {[«14""»]}
<POP 21918-2191a StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x2191a 13> {[«14""»]|[$$Program error]}
<Call 0x21928 0x103e0> {[«14""»]|[$$Program error]}
WriteConsoleStringCrLf(str : String)
<POP 2192a-2192e StackAdj> Δ+18 {}
<POP 2192e-21936 Naked> Σ0 ↓ →0x2195a ←0x218fe
<MI 2192e MOVE.W (A6+0x10),D0> {}
<MI 21930 ANDI.W #0x0200,D0> {}
<MI 21934 BEQ 0x2195a> {}
<POP 21936-2195a Naked> Σ0 ↓
<Blob 0x21936 [16] @> Δ-16 {[«16""»]}
<POP 21946-21948 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x21948 15> {[«16""»]|[$$Missed transfer]}
<Call 0x21956 0x103e0> {[«16""»]|[$$Missed transfer]}
WriteConsoleStringCrLf(str : String)
<POP 21958-2195a StackAdj> Δ+20 {}
<POP 2195a-21962 Naked> Σ0 ↓ →0x21986 ←0x2192e
<MI 2195a MOVE.W (A6+0x10),D0> {}
<MI 2195c ANDI.W #0x0040,D0> {}
<MI 21960 BNE 0x21986> {}
<POP 21962-21986 Naked> Σ0 ↓
<Blob 0x21962 [16] @> Δ-16 {[«16""»]}
<POP 21972-21974 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x21974 15> {[«16""»]|[$$Input not ready]}
<Call 0x21982 0x103e0> {[«16""»]|[$$Input not ready]}
WriteConsoleStringCrLf(str : String)
<POP 21984-21986 StackAdj> Δ+20 {}
<POP 21986-2198e Naked> Σ0 ↓ →0x219b6 ←0x2195a
<MI 21986 MOVE.W (A6+0x10),D0> {}
<MI 21988 ANDI.W #0x0004,D0> {}
<MI 2198c BEQ 0x219b6> {}
<POP 2198e-219b6 Naked> Σ0 ↓
<Blob 0x2198e [30] @> Δ-30 {[«30""»]}
<POP 219a0-219a2 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x219a2 29> {[«30""»]|[$$Bus address increment inhibit]}
<Call 0x219b0 0x103e0> {[«30""»]|[$$Bus address increment inhibit]}
WriteConsoleStringCrLf(str : String)
<POP 219b2-219b6 StackAdj> Δ+34 {}
<POP 219b6-219c0 Naked> Σ0 ↓ →0x219e8 ←0x21986
<MI 219b6 MOVE.W (A6+0x12),D0> {}
<MI 219ba ANDI.W #0x2000,D0> {}
<MI 219be BEQ 0x219e8> {}
<POP 219c0-219e8 Naked> Σ0 ↓
<Blob 0x219c0 [24] @> Δ-24 {[«24""»]}
<POP 219d2-219d4 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x219d4 23> {[«24""»]|[$$Positioning in progress]}
<Call 0x219e2 0x103e0> {[«24""»]|[$$Positioning in progress]}
WriteConsoleStringCrLf(str : String)
<POP 219e4-219e8 StackAdj> Δ+28 {}
<POP 219e8-219f2 Naked> Σ0 ↓ →0x21a14 ←0x219b6
<MI 219e8 MOVE.W (A6+0x12),D0> {}
<MI 219ec ANDI.W #0x1000,D0> {}
<MI 219f0 BNE 0x21a14> {}
<POP 219f2-21a14 Naked> Σ0 ↓
<Blob 0x219f2 [18] @> Δ-18 {[«18""»]}
<POP 219fe-21a00 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21a00 18> {[«18""»]|[$$Medium not on-line]}
<Call 0x21a0e 0x103e0> {[«18""»]|[$$Medium not on-line]}
WriteConsoleStringCrLf(str : String)
<POP 21a10-21a14 StackAdj> Δ+22 {}
<POP 21a14-21a1e Naked> Σ0 ↓ →0x21a3e ←0x219e8
<MI 21a14 MOVE.W (A6+0x12),D0> {}
<MI 21a18 ANDI.W #0x0800,D0> {}
<MI 21a1c BEQ 0x21a3e> {}
<POP 21a1e-21a3e Naked> Σ0 ↓
<Blob 0x21a1e [4] @> Δ-4 {[«4""»]}
<Blob 0x21a22 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21a26 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 21a2a-21a2c StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21a2c 12> {[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
<Call 0x21a3a 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
WriteConsoleStringCrLf(str : String)
<POP 21a3c-21a3e StackAdj> Δ+16 {}
<POP 21a3e-21a48 Naked> Σ0 ↓ →0x21a6a ←0x21a14
<MI 21a3e MOVE.W (A6+0x12),D0> {}
<MI 21a42 ANDI.W #0x0400,D0> {}
<MI 21a46 BEQ 0x21a6a> {}
<POP 21a48-21a6a Naked> Σ0 ↓
<Blob 0x21a48 [22] @> Δ-22 {[«22""»]}
<POP 21a54-21a56 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x21a56 22> {[«22""»]|[$$Last sector transfered]}
<Call 0x21a64 0x103e0> {[«22""»]|[$$Last sector transfered]}
WriteConsoleStringCrLf(str : String)
<POP 21a66-21a6a StackAdj> Δ+26 {}
<POP 21a6a-21a74 Naked> Σ0 ↓ →0x21a9c ←0x21a3e
<MI 21a6a MOVE.W (A6+0x12),D0> {}
<MI 21a6e ANDI.W #0x0100,D0> {}
<MI 21a72 BNE 0x21a9c> {}
<POP 21a74-21a9c Naked> Σ0 ↓
<Blob 0x21a74 [18] @> Δ-18 {[«18""»]}
<POP 21a86-21a88 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21a88 17> {[«18""»]|[$$Drive not present]}
<Call 0x21a96 0x103e0> {[«18""»]|[$$Drive not present]}
WriteConsoleStringCrLf(str : String)
<POP 21a98-21a9c StackAdj> Δ+22 {}
<POP 21a9c-21aa6 Naked> Σ0 ↓ →0x21aca ←0x21a6a
<MI 21a9c MOVE.W (A6+0x12),D0> {}
<MI 21aa0 ANDI.W #0x0080,D0> {}
<MI 21aa4 BNE 0x21aca> {}
<POP 21aa6-21aca Naked> Σ0 ↓
<Blob 0x21aa6 [16] @> Δ-16 {[«16""»]}
<POP 21ab6-21ab8 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x21ab8 15> {[«16""»]|[$$Drive not ready]}
<Call 0x21ac6 0x103e0> {[«16""»]|[$$Drive not ready]}
WriteConsoleStringCrLf(str : String)
<POP 21ac8-21aca StackAdj> Δ+20 {}
<POP 21aca-21ad4 Naked> Σ0 ↓ →0x21af6 ←0x21a9c
<MI 21aca MOVE.W (A6+0x12),D0> {}
<MI 21ace ANDI.W #0x0040,D0> {}
<MI 21ad2 BNE 0x21af6> {}
<POP 21ad4-21af6 Naked> Σ0 ↓
<Blob 0x21ad4 [4] @> Δ-4 {[«4""»]}
<Blob 0x21ad8 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21adc [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21ae0 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21ae4-21ae6 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21ae6 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
<Call 0x21af2 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Volume not valid]}
WriteConsoleStringCrLf(str : String)
<POP 21af4-21af6 StackAdj> Δ+20 {}
<POP 21af6-21b00 Naked> Σ0 ↓ →0x21b22 ←0x21aca
<MI 21af6 MOVE.W (A6+0x14),D0> {}
<MI 21afa ANDI.W #0x8000,D0> {}
<MI 21afe BEQ 0x21b22> {}
<POP 21b00-21b22 Naked> Σ0 ↓
<Blob 0x21b00 [4] @> Δ-4 {[«4""»]}
<Blob 0x21b04 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21b08 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21b0c [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21b10-21b12 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21b12 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Data check (ECC)]}
<Call 0x21b1e 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Data check (ECC)]}
WriteConsoleStringCrLf(str : String)
<POP 21b20-21b22 StackAdj> Δ+20 {}
<POP 21b22-21b2c Naked> Σ0 ↓ →0x21b4e ←0x21af6
<MI 21b22 MOVE.W (A6+0x14),D0> {}
<MI 21b26 ANDI.W #0x4000,D0> {}
<MI 21b2a BEQ 0x21b4e> {}
<POP 21b2c-21b4e Naked> Σ0 ↓
<Blob 0x21b2c [2] @> Δ-2 {[«2""»]}
<Blob 0x21b30 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x21b34 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 21b38-21b3a StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x21b3a 6> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
<Call 0x21b48 0x103e0> {[«2""»]|[«2""»]|[«2""»]|[$$Unsafe]}
WriteConsoleStringCrLf(str : String)
<POP 21b4a-21b4e StackAdj> Δ+10 {}
<POP 21b4e-21b58 Naked> Σ0 ↓ →0x21b78 ←0x21b22
<MI 21b4e MOVE.W (A6+0x14),D0> {}
<MI 21b52 ANDI.W #0x2000,D0> {}
<MI 21b56 BEQ 0x21b78> {}
<POP 21b58-21b78 Naked> Σ0 ↓
<Blob 0x21b58 [20] @> Δ-20 {[«20""»]}
<POP 21b64-21b66 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21b66 20> {[«20""»]|[$$Operation incomplete]}
<Call 0x21b72 0x103e0> {[«20""»]|[$$Operation incomplete]}
WriteConsoleStringCrLf(str : String)
<POP 21b74-21b78 StackAdj> Δ+24 {}
<POP 21b78-21b82 Naked> Σ0 ↓ →0x21ba4 ←0x21b4e
<MI 21b78 MOVE.W (A6+0x14),D0> {}
<MI 21b7c ANDI.W #0x1000,D0> {}
<MI 21b80 BEQ 0x21ba4> {}
<POP 21b82-21ba4 Naked> Σ0 ↓
<Blob 0x21b82 [18] @> Δ-18 {[«18""»]}
<POP 21b8e-21b90 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21b90 18> {[«18""»]|[$$Drive timing error]}
<Call 0x21b9e 0x103e0> {[«18""»]|[$$Drive timing error]}
WriteConsoleStringCrLf(str : String)
<POP 21ba0-21ba4 StackAdj> Δ+22 {}
<POP 21ba4-21bae Naked> Σ0 ↓ →0x21bd0 ←0x21b78
<MI 21ba4 MOVE.W (A6+0x14),D0> {}
<MI 21ba8 ANDI.W #0x0800,D0> {}
<MI 21bac BEQ 0x21bd0> {}
<POP 21bae-21bd0 Naked> Σ0 ↓
<Blob 0x21bae [4] @> Δ-4 {[«4""»]}
<Blob 0x21bb2 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21bb6 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21bba [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21bbe-21bc0 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21bc0 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<Call 0x21bcc 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
WriteConsoleStringCrLf(str : String)
<POP 21bce-21bd0 StackAdj> Δ+20 {}
<POP 21bd0-21bda Naked> Σ0 ↓ →0x21c02 ←0x21ba4
<MI 21bd0 MOVE.W (A6+0x14),D0> {}
<MI 21bd4 ANDI.W #0x0400,D0> {}
<MI 21bd8 BEQ 0x21c02> {}
<POP 21bda-21c02 Naked> Σ0 ↓
<Blob 0x21bda [22] @> Δ-22 {[«22""»]}
<POP 21bec-21bee StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x21bee 21> {[«22""»]|[$$Invalid address error]}
<Call 0x21bfc 0x103e0> {[«22""»]|[$$Invalid address error]}
WriteConsoleStringCrLf(str : String)
<POP 21bfe-21c02 StackAdj> Δ+26 {}
<POP 21c02-21c0c Naked> Σ0 ↓ →0x21c2e ←0x21bd0
<MI 21c02 MOVE.W (A6+0x14),D0> {}
<MI 21c06 ANDI.W #0x0200,D0> {}
<MI 21c0a BEQ 0x21c2e> {}
<POP 21c0c-21c2e Naked> Σ0 ↓
<Blob 0x21c0c [22] @> Δ-22 {[«22""»]}
<POP 21c18-21c1a StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x21c1a 22> {[«22""»]|[$$Address overflow error]}
<Call 0x21c28 0x103e0> {[«22""»]|[$$Address overflow error]}
WriteConsoleStringCrLf(str : String)
<POP 21c2a-21c2e StackAdj> Δ+26 {}
<POP 21c2e-21c38 Naked> Σ0 ↓ →0x21c5a ←0x21c02
<MI 21c2e MOVE.W (A6+0x14),D0> {}
<MI 21c32 ANDI.W #0x0100,D0> {}
<MI 21c36 BEQ 0x21c5a> {}
<POP 21c38-21c5a Naked> Σ0 ↓
<Blob 0x21c38 [4] @> Δ-4 {[«4""»]}
<Blob 0x21c3c [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21c40 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21c44 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21c48-21c4a StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21c4a 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
<Call 0x21c56 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Header CRC error]}
WriteConsoleStringCrLf(str : String)
<POP 21c58-21c5a StackAdj> Δ+20 {}
<POP 21c5a-21c64 Naked> Σ0 ↓ →0x21c84 ←0x21c2e
<MI 21c5a MOVE.W (A6+0x14),D0> {}
<MI 21c5e ANDI.W #0x0080,D0> {}
<MI 21c62 BEQ 0x21c84> {}
<POP 21c64-21c84 Naked> Σ0 ↓
<Blob 0x21c64 [20] @> Δ-20 {[«20""»]}
<POP 21c70-21c72 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21c72 20> {[«20""»]|[$$Header compare error]}
<Call 0x21c7e 0x103e0> {[«20""»]|[$$Header compare error]}
WriteConsoleStringCrLf(str : String)
<POP 21c80-21c84 StackAdj> Δ+24 {}
<POP 21c84-21c8e Naked> Σ0 ↓ →0x21cb0 ←0x21c5a
<MI 21c84 MOVE.W (A6+0x14),D0> {}
<MI 21c88 ANDI.W #0x0040,D0> {}
<MI 21c8c BEQ 0x21cb0> {}
<POP 21c8e-21cb0 Naked> Σ0 ↓
<Blob 0x21c8e [14] @> Δ-14 {[«14""»]}
<POP 21c9a-21c9c StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x21c9c 14> {[«14""»]|[$$Hard ECC error]}
<Call 0x21caa 0x103e0> {[«14""»]|[$$Hard ECC error]}
WriteConsoleStringCrLf(str : String)
<POP 21cac-21cb0 StackAdj> Δ+18 {}
<POP 21cb0-21cb8 Naked> Σ0 ↓ →0x21cd8 ←0x21c84
<MI 21cb0 MOVE.W (A6+0x14),D0> {}
<MI 21cb4 AND.W #0x10,D0> {}
<MI 21cb6 BEQ 0x21cd8> {}
<POP 21cb8-21cd8 Naked> Σ0 ↓
<Blob 0x21cb8 [4] @> Δ-4 {[«4""»]}
<Blob 0x21cbc [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21cc0 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 21cc4-21cc6 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21cc6 12> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
<Call 0x21cd4 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$Format error]}
WriteConsoleStringCrLf(str : String)
<POP 21cd6-21cd8 StackAdj> Δ+16 {}
<POP 21cd8-21ce2 Naked> Σ0 ↓ →0x21d0a ←0x21cb0
<MI 21cd8 MOVE.W (A6+0x14),D0> {}
<MI 21cdc ANDI.W #0x0004,D0> {}
<MI 21ce0 BEQ 0x21d0a> {}
<POP 21ce2-21d0a Naked> Σ0 ↓
<Blob 0x21ce2 [30] @> Δ-30 {[«30""»]}
<POP 21cf4-21cf6 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x21cf6 29> {[«30""»]|[$$Register modification refused]}
<Call 0x21d04 0x103e0> {[«30""»]|[$$Register modification refused]}
WriteConsoleStringCrLf(str : String)
<POP 21d06-21d0a StackAdj> Δ+34 {}
<POP 21d0a-21d12 Naked> Σ0 ↓ →0x21d34 ←0x21cd8
<MI 21d0a MOVE.W (A6+0x14),D0> {}
<MI 21d0e AND.W #0x01,D0> {}
<MI 21d10 BEQ 0x21d34> {}
<POP 21d12-21d34 Naked> Σ0 ↓
<Blob 0x21d12 [4] @> Δ-4 {[«4""»]}
<Blob 0x21d16 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21d1a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21d1e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21d22-21d24 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21d24 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
<Call 0x21d30 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Illegal function]}
WriteConsoleStringCrLf(str : String)
<POP 21d32-21d34 StackAdj> Δ+20 {}
<POP 21d34-21d3e Naked> Σ0 ↓ →0x21d66 ←0x21d0a
<MI 21d34 MOVE.W (A6+0x16),D0> {}
<MI 21d38 ANDI.W #0x8000,D0> {}
<MI 21d3c BEQ 0x21d66> {}
<POP 21d3e-21d66 Naked> Σ0 ↓
<Blob 0x21d3e [10] @> Δ-10 {[«10""»]}
<POP 21d50-21d52 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x21d52 9> {[«10""»]|[$$Bad block]}
<Call 0x21d60 0x103e0> {[«10""»]|[$$Bad block]}
WriteConsoleStringCrLf(str : String)
<POP 21d62-21d66 StackAdj> Δ+14 {}
<POP 21d66-21d70 Naked> Σ0 ↓ →0x21d94 ←0x21d34
<MI 21d66 MOVE.W (A6+0x16),D0> {}
<MI 21d6a ANDI.W #0x4000,D0> {}
<MI 21d6e BEQ 0x21d94> {}
<POP 21d70-21d94 Naked> Σ0 ↓
<Blob 0x21d70 [16] @> Δ-16 {[«16""»]}
<POP 21d80-21d82 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x21d82 15> {[«16""»]|[$$Seek incomplete]}
<Call 0x21d90 0x103e0> {[«16""»]|[$$Seek incomplete]}
WriteConsoleStringCrLf(str : String)
<POP 21d92-21d94 StackAdj> Δ+20 {}
<POP 21d94-21d9e Naked> Σ0 ↓ →0x21dc6 ←0x21d66
<MI 21d94 MOVE.W (A6+0x16),D0> {}
<MI 21d98 ANDI.W #0x1000,D0> {}
<MI 21d9c BEQ 0x21dc6> {}
<POP 21d9e-21dc6 Naked> Σ0 ↓
<Blob 0x21d9e [62] @> Δ-62 {[«62""»]}
<POP 21db0-21db2 StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x21db2 61> {[«62""»]|[$$Invalid command (volume not valid, off-line, or off cylinder)]}
<Call 0x21dc0 0x103e0> {[«62""»]|[$$Invalid command (volume not valid, off-line, or off cylinder)]}
WriteConsoleStringCrLf(str : String)
<POP 21dc2-21dc6 StackAdj> Δ+66 {}
<POP 21dc6-21dd0 Naked> Σ0 ↓ →0x21df0 ←0x21d94
<MI 21dc6 MOVE.W (A6+0x16),D0> {}
<MI 21dca ANDI.W #0x0080,D0> {}
<MI 21dce BEQ 0x21df0> {}
<POP 21dd0-21df0 Naked> Σ0 ↓
<Blob 0x21dd0 [4] @> Δ-4 {[«4""»]}
<Blob 0x21dd4 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21dd8 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 21ddc-21dde StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x21dde 12> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
<Call 0x21dec 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$Device check]}
WriteConsoleStringCrLf(str : String)
<POP 21dee-21df0 StackAdj> Δ+16 {}
<POP 21df0-21df8 Epilogue> Σ0 ←0x21dc6
@ 21df8
<LVAR 0x01c 2(r)>
<LVAR 0x01a 2(r)>
<LVAR 0x018 2(r)>
<LVAR 0x016 2(r)>
<LVAR 0x014 2(r)>
<LVAR 0x00e 2(r)>
<POP 21df8-22482 Body>
<POP 21df8-21e0e Prologue> Σ0 ↓
<POP 21e0e-21e28 RegCacheLoad> Σ0 ↓
<POP 21e28-21e2a Naked> Σ0 ↓
<MI 21e28 MOVEQ.L #0x00,D7> {}
<POP 21e2a-21ea0 Naked> Σ0 ↓ →0x21e2a ←0x21e2a
<POP 0x21e2a LimitCheck 0x0 ≤ D7 ≤ 0x7> {}
<MI 21e34 MOVE.L D7,D0> {}
<MI 21e36 ASL.L #0x2,D0> {}
<MI 21e38 LEA.L 0x21549,A0> {}
<POP 21e3c-21e3e StackAdj> Δ-4 {[-4-]}
<MI 21e3e MOVE.B (A0+D0.L),(A7)> {[-4-]}
<MI 21e42 MOVE.B (A0+D0.L+#0x1),(A7+0x1)> {[-4-]}
<MI 21e48 MOVE.B (A0+D0.L+#0x2),(A7+0x2)> {[-4-]}
<MI 21e4e MOVE.B (A0+D0.L+#0x3),(A7+0x3)> {[-4-]}
<POP 21e54-21e56 StackAdj> Δ-8 {[-12-]}
<Lit 0x21e56> {[-8-]|[$$…]}
<Pointer.sp 0x21e56 8> Δ-4
<Const 0x21e5a 0x1.2> Δ-2
<Const 0x21e5c 0x4.2> Δ-2
<Call 0x21e60 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21e62-21e64 StackAdj> Δ+8
<POP 21e62-21e64 StackAdj> Δ-4 {[-8-]|[$$…]|[-4-]}
<POP 0x21e64 LimitCheck 0x0 ≤ D7 ≤ 0x3c> {[-8-]|[$$…]|[-4-]}
<MI 21e6e MOVE.L D7,D0> {[-8-]|[$$…]|[-4-]}
<MI 21e70 ASL.L #0x1,D0> {[-8-]|[$$…]|[-4-]}
<MI 21e72 CLR.L D1> {[-8-]|[$$…]|[-4-]}
<MI 21e74 MOVE.W (A6+D0.L+#0xe),D1> {[-8-]|[$$…]|[-4-]}
<MI 21e78 MOVE.L D1,-(A7)> Δ-4 {[-8-]|[$$…]|[-4-]|[4, 'D1']}
<Const 0x21e7a 0x4.4> Δ-4 {[-8-]|[$$…]|[-4-]|[4, 'D1']|[##4]}
<Call 0x21e7e 0x102e8> {[-8-]|[$$…]|[-4-]|[4, 'D1']|[##4]}
Long2HexString(val : Long; ndig : Long) : String
<POP 21e84-21e86 StackAdj> Δ+8 {[-8-]|[$$…]|[-4-]}
<Call 0x21e86 0x102d0> {[-8-]|[$$…]|[-4-]}
StringCat2(a, b : String) : String
<POP 21e8c-21e8e StackAdj> Δ+8 {[-8-]}
<Call 0x21e8e 0x103d8> {[-8-]}
WriteConsoleString(str : String)
<POP 21e94-21e96 StackAdj> Δ+8 {}
<MI 21e96 ADDQ.L #0x1,D7> {}
<MI 21e98 CMPI.L #0x00000007,D7> {}
<MI 21e9e BLE 0x21e2a> {}
<POP 21ea0-21f4a Naked> Σ0 ↓ →0x21f72
<Call 0x21ea0 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21ea6 [20] @> Δ-20 {[«20""»]}
<MI 21eb2 MOVE.W (A6+0xe),D0> {[«20""»]}
<MI 21eb6 ANDI.W #0x000e,D0> {[«20""»]}
<MI 21eba LSR.W #0x1,D0> {[«20""»]}
<MI 21ebc MULU.W #0x1e,D0> {[«20""»]}
<MI 21ec0 CLR.L D1> {[«20""»]}
<MI 21ec2 MOVE.W D0,D1> {[«20""»]}
<MI 21ec4 LEA.L 0x21459,A0> {[«20""»]}
<Blob 0x21ec8 [30] (A0+D1.L)> Δ-30 {[«20""»]|[«30»]}
<POP 21eda-21edc StackAdj> Δ-8 {[«20""»]|[«30»]|[-8-]}
<Lit 0x21edc 20> {[«20""»]|[«30»]|[-4-]|[$$Termination class :_]}
<POP 21ee6-21ee8 StackAdj> Δ-4 {[«20""»]|[«30»]|[-4-]|[$$Termination class :_]|[-4-]}
<Lit 0x21ee8> {[«20""»]|[«30»]|[-4-]|[$$Termination class :_]|[$$…]}
<Pointer.sp 0x21ee8 12> Δ-4
<Const 0x21eec 0x1.2> Δ-2
<Const 0x21eee 0x1e.2> Δ-2
<Call 0x21ef2 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21ef4-21ef6 StackAdj> Δ+8
<Call 0x21ef6 0x102d0> {[«20""»]|[«30»]|[-4-]|[$$Termination class :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 21efc-21efe StackAdj> Δ+8 {[«20""»]|[«30»]|[-4-]}
<Call 0x21efe 0x103e0> {[«20""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21f00-21f01 StackAdj> Δ+54 ↓ {}
<Blob 0x21f01 [18] @> Δ-18 {[«18""»]}
<POP 21f12-21f14 StackAdj> Δ-8 {[«18""»]|[-8-]}
<Lit 0x21f14 17> {[«18""»]|[-4-]|[$$Residual count :_]}
<POP 21f20-21f22 StackAdj> Δ-4 {[«18""»]|[-4-]|[$$Residual count :_]|[-4-]}
<MI 21f22 CLR.L D0> {[«18""»]|[-4-]|[$$Residual count :_]|[-4-]}
<MI 21f24 MOVE.W (A6+0x14),D0> {[«18""»]|[-4-]|[$$Residual count :_]|[-4-]}
<MI 21f28 MOVE.L D0,-(A7)> Δ-4 {[«18""»]|[-4-]|[$$Residual count :_]|[-4-]|[4, 'D0']}
<Call 0x21f2a 0x102e4> {[«18""»]|[-4-]|[$$Residual count :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21f30-21f32 StackAdj> Δ+4 {[«18""»]|[-4-]|[$$Residual count :_]|[-4-]}
<Call 0x21f32 0x102d0> {[«18""»]|[-4-]|[$$Residual count :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21f38-21f3a StackAdj> Δ+8 {[«18""»]|[-4-]}
<Call 0x21f3a 0x103e0> {[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21f3c-21f40 StackAdj> Δ+22 {}
<MI 21f40 MOVE.W (A6+0xe),D0> {}
<MI 21f44 ANDI.W #0x8000,D0> {}
<MI 21f48 BEQ 0x21f72> {}
<POP 21f4a-21f72 Naked> Σ0 ↓
<Blob 0x21f4a [18] @> Δ-18 {[«18""»]}
<POP 21f5c-21f5e StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21f5e 17> {[«18""»]|[$$Special condition]}
<Call 0x21f6c 0x103e0> {[«18""»]|[$$Special condition]}
WriteConsoleStringCrLf(str : String)
<POP 21f6e-21f72 StackAdj> Δ+22 {}
<POP 21f72-21f7c Naked> Σ0 ↓ →0x21f9e ←0x21ea0
<MI 21f72 MOVE.W (A6+0xe),D0> {}
<MI 21f76 ANDI.W #0x4000,D0> {}
<MI 21f7a BEQ 0x21f9e> {}
<POP 21f7c-21f9e Naked> Σ0 ↓
<Blob 0x21f7c [20] @> Δ-20 {[«20""»]}
<POP 21f8c-21f8e StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21f8e 19> {[«20""»]|[$$UNIBUS parity error]}
<Call 0x21f9a 0x103e0> {[«20""»]|[$$UNIBUS parity error]}
WriteConsoleStringCrLf(str : String)
<POP 21f9c-21f9e StackAdj> Δ+24 {}
<POP 21f9e-21fa8 Naked> Σ0 ↓ →0x21fd0 ←0x21f72
<MI 21f9e MOVE.W (A6+0xe),D0> {}
<MI 21fa2 ANDI.W #0x1000,D0> {}
<MI 21fa6 BEQ 0x21fd0> {}
<POP 21fa8-21fd0 Naked> Σ0 ↓
<Blob 0x21fa8 [30] @> Δ-30 {[«30""»]}
<POP 21fba-21fbc StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x21fbc 29> {[«30""»]|[$$Register modification refused]}
<Call 0x21fca 0x103e0> {[«30""»]|[$$Register modification refused]}
WriteConsoleStringCrLf(str : String)
<POP 21fcc-21fd0 StackAdj> Δ+34 {}
<POP 21fd0-21fda Naked> Σ0 ↓ →0x21ffc ←0x21f9e
<MI 21fd0 MOVE.W (A6+0xe),D0> {}
<MI 21fd4 ANDI.W #0x0800,D0> {}
<MI 21fd8 BEQ 0x21ffc> {}
<POP 21fda-21ffc Naked> Σ0 ↓
<Blob 0x21fda [20] @> Δ-20 {[«20""»]}
<POP 21fea-21fec StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21fec 19> {[«20""»]|[$$Non-existant memory]}
<Call 0x21ff8 0x103e0> {[«20""»]|[$$Non-existant memory]}
WriteConsoleStringCrLf(str : String)
<POP 21ffa-21ffc StackAdj> Δ+24 {}
<POP 21ffc-22006 Naked> Σ0 ↓ →0x22028 ←0x21fd0
<MI 21ffc MOVE.W (A6+0xe),D0> {}
<MI 22000 ANDI.W #0x0400,D0> {}
<MI 22004 BEQ 0x22028> {}
<POP 22006-22028 Naked> Σ0 ↓
<Blob 0x22006 [20] @> Δ-20 {[«20""»]}
<POP 22016-22018 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x22018 19> {[«20""»]|[$$Need buffer address]}
<Call 0x22024 0x103e0> {[«20""»]|[$$Need buffer address]}
WriteConsoleStringCrLf(str : String)
<POP 22026-22028 StackAdj> Δ+24 {}
<POP 22028-22032 Naked> Σ0 ↓ →0x22056 ←0x21ffc
<MI 22028 MOVE.W (A6+0xe),D0> {}
<MI 2202c ANDI.W #0x0080,D0> {}
<MI 22030 BEQ 0x22056> {}
<POP 22032-22056 Naked> Σ0 ↓
<Blob 0x22032 [16] @> Δ-16 {[«16""»]}
<POP 22042-22044 StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x22044 15> {[«16""»]|[$$Subsystem ready]}
<Call 0x22052 0x103e0> {[«16""»]|[$$Subsystem ready]}
WriteConsoleStringCrLf(str : String)
<POP 22054-22056 StackAdj> Δ+20 {}
<POP 22056-22060 Naked> Σ0 ↓ →0x2207e ←0x22028
<MI 22056 MOVE.W (A6+0xe),D0> {}
<MI 2205a ANDI.W #0x0040,D0> {}
<MI 2205e BEQ 0x2207e> {}
<POP 22060-2207e Naked> Σ0 ↓
<Blob 0x22060 [4] @> Δ-4 {[«4""»]}
<Blob 0x22064 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 22068-2206a StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<Lit 0x2206a 8> {[«4""»]|[«4""»]|[$$Off-line]}
<Call 0x22078 0x103e0> {[«4""»]|[«4""»]|[$$Off-line]}
WriteConsoleStringCrLf(str : String)
<POP 2207a-2207e StackAdj> Δ+12 {}
<POP 2207e-22086 Naked> Σ0 ↓ →0x220ae ←0x22056
<MI 2207e MOVE.W (A6+0x16),D0> {}
<MI 22080 ANDI.W #0x8000,D0> {}
<MI 22084 BEQ 0x220ae> {}
<POP 22086-220ae Naked> Σ0 ↓
<Blob 0x22086 [10] @> Δ-10 {[«10""»]}
<POP 22098-2209a StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x2209a 9> {[«10""»]|[$$Tape mark]}
<Call 0x220a8 0x103e0> {[«10""»]|[$$Tape mark]}
WriteConsoleStringCrLf(str : String)
<POP 220aa-220ae StackAdj> Δ+14 {}
<POP 220ae-220b6 Naked> Σ0 ↓ →0x220d8 ←0x2207e
<MI 220ae MOVE.W (A6+0x16),D0> {}
<MI 220b0 ANDI.W #0x4000,D0> {}
<MI 220b4 BEQ 0x220d8> {}
<POP 220b6-220d8 Naked> Σ0 ↓
<Blob 0x220b6 [20] @> Δ-20 {[«20""»]}
<POP 220c6-220c8 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x220c8 19> {[«20""»]|[$$Record length short]}
<Call 0x220d4 0x103e0> {[«20""»]|[$$Record length short]}
WriteConsoleStringCrLf(str : String)
<POP 220d6-220d8 StackAdj> Δ+24 {}
<POP 220d8-220e0 Naked> Σ0 ↓ →0x22102 ←0x220ae
<MI 220d8 MOVE.W (A6+0x16),D0> {}
<MI 220da ANDI.W #0x2000,D0> {}
<MI 220de BEQ 0x22102> {}
<POP 220e0-22102 Naked> Σ0 ↓
<Blob 0x220e0 [20] @> Δ-20 {[«20""»]}
<POP 220f0-220f2 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x220f2 19> {[«20""»]|[$$Logical end of tape]}
<Call 0x220fe 0x103e0> {[«20""»]|[$$Logical end of tape]}
WriteConsoleStringCrLf(str : String)
<POP 22100-22102 StackAdj> Δ+24 {}
<POP 22102-2210a Naked> Σ0 ↓ →0x2212c ←0x220d8
<MI 22102 MOVE.W (A6+0x16),D0> {}
<MI 22104 ANDI.W #0x1000,D0> {}
<MI 22108 BEQ 0x2212c> {}
<POP 2210a-2212c Naked> Σ0 ↓
<Blob 0x2210a [18] @> Δ-18 {[«18""»]}
<POP 22116-22118 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x22118 18> {[«18""»]|[$$Record length long]}
<Call 0x22126 0x103e0> {[«18""»]|[$$Record length long]}
WriteConsoleStringCrLf(str : String)
<POP 22128-2212c StackAdj> Δ+22 {}
<POP 2212c-22134 Naked> Σ0 ↓ →0x22156 ←0x22102
<MI 2212c MOVE.W (A6+0x16),D0> {}
<MI 2212e ANDI.W #0x0800,D0> {}
<MI 22132 BEQ 0x22156> {}
<POP 22134-22156 Naked> Σ0 ↓
<Blob 0x22134 [4] @> Δ-4 {[«4""»]}
<Blob 0x22138 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2213c [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x22140 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 22144-22146 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x22146 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
<Call 0x22152 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Write lock error]}
WriteConsoleStringCrLf(str : String)
<POP 22154-22156 StackAdj> Δ+20 {}
<POP 22156-2215e Naked> Σ0 ↓ →0x22184 ←0x2212c
<MI 22156 MOVE.W (A6+0x16),D0> {}
<MI 22158 ANDI.W #0x0400,D0> {}
<MI 2215c BEQ 0x22184> {}
<POP 2215e-22184 Naked> Σ0 ↓
<Blob 0x2215e [24] @> Δ-24 {[«24""»]}
<POP 2216e-22170 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x22170 23> {[«24""»]|[$$Non-executable function]}
<Call 0x2217e 0x103e0> {[«24""»]|[$$Non-executable function]}
WriteConsoleStringCrLf(str : String)
<POP 22180-22184 StackAdj> Δ+28 {}
<POP 22184-2218c Naked> Σ0 ↓ →0x221b0 ←0x22156
<MI 22184 MOVE.W (A6+0x16),D0> {}
<MI 22186 ANDI.W #0x0200,D0> {}
<MI 2218a BEQ 0x221b0> {}
<POP 2218c-221b0 Naked> Σ0 ↓
<Blob 0x2218c [16] @> Δ-16 {[«16""»]}
<POP 2219c-2219e StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x2219e 15> {[«16""»]|[$$Illegal command]}
<Call 0x221ac 0x103e0> {[«16""»]|[$$Illegal command]}
WriteConsoleStringCrLf(str : String)
<POP 221ae-221b0 StackAdj> Δ+20 {}
<POP 221b0-221b8 Naked> Σ0 ↓ →0x221dc ←0x22184
<MI 221b0 MOVE.W (A6+0x16),D0> {}
<MI 221b2 ANDI.W #0x0100,D0> {}
<MI 221b6 BEQ 0x221dc> {}
<POP 221b8-221dc Naked> Σ0 ↓
<Blob 0x221b8 [16] @> Δ-16 {[«16""»]}
<POP 221c8-221ca StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x221ca 15> {[«16""»]|[$$Illegal address]}
<Call 0x221d8 0x103e0> {[«16""»]|[$$Illegal address]}
WriteConsoleStringCrLf(str : String)
<POP 221da-221dc StackAdj> Δ+20 {}
<POP 221dc-221e4 Naked> Σ0 ↓ →0x22206 ←0x221b0
<MI 221dc MOVE.W (A6+0x16),D0> {}
<MI 221de ANDI.W #0x0080,D0> {}
<MI 221e2 BEQ 0x22206> {}
<POP 221e4-22206 Naked> Σ0 ↓
<Blob 0x221e4 [14] @> Δ-14 {[«14""»]}
<POP 221f0-221f2 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x221f2 14> {[«14""»]|[$$Formatter busy]}
<Call 0x22200 0x103e0> {[«14""»]|[$$Formatter busy]}
WriteConsoleStringCrLf(str : String)
<POP 22202-22206 StackAdj> Δ+18 {}
<POP 22206-2220e Naked> Σ0 ↓ →0x22234 ←0x221dc
<MI 22206 MOVE.W (A6+0x16),D0> {}
<MI 22208 ANDI.W #0x0040,D0> {}
<MI 2220c BEQ 0x22234> {}
<POP 2220e-22234 Naked> Σ0 ↓
<Blob 0x2220e [8] @> Δ-8 {[«8""»]}
<POP 2221e-22220 StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x22220 7> {[«8""»]|[$$On-line]}
<Call 0x2222e 0x103e0> {[«8""»]|[$$On-line]}
WriteConsoleStringCrLf(str : String)
<POP 22230-22234 StackAdj> Δ+12 {}
<POP 22234-2223c Naked> Σ0 ↓ →0x2225e ←0x22206
<MI 22234 MOVE.W (A6+0x16),D0> {}
<MI 22236 ANDI.W #0x0020,D0> {}
<MI 2223a BEQ 0x2225e> {}
<POP 2223c-2225e Naked> Σ0 ↓
<Blob 0x2223c [4] @> Δ-4 {[«4""»]}
<Blob 0x22240 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x22244 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x22248 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2224c-2224e StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2224e 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Interrupt enable]}
<Call 0x2225a 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Interrupt enable]}
WriteConsoleStringCrLf(str : String)
<POP 2225c-2225e StackAdj> Δ+20 {}
<POP 2225e-22264 Naked> Σ0 ↓ →0x22284 ←0x22234
<MI 2225e MOVE.W (A6+0x16),D0> {}
<MI 22260 AND.W #0x10,D0> {}
<MI 22262 BEQ 0x22284> {}
<POP 22264-22284 Naked> Σ0 ↓
<Blob 0x22264 [4] @> Δ-4 {[«4""»]}
<Blob 0x22268 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2226c [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 22270-22272 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x22272 12> {[«4""»]|[«4""»]|[«4""»]|[$$Volume check]}
<Call 0x22280 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$Volume check]}
WriteConsoleStringCrLf(str : String)
<POP 22282-22284 StackAdj> Δ+16 {}
<POP 22284-2228c Naked> Σ0 ↓ →0x222b4 ←0x2225e
<MI 22284 MOVE.W (A6+0x16),D0> {}
<MI 22286 ANDI.W #0x0008,D0> {}
<MI 2228a BEQ 0x222b4> {}
<POP 2228c-222b4 Naked> Σ0 ↓
<Blob 0x2228c [14] @> Δ-14 {[«14""»]}
<POP 2229e-222a0 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x222a0 13> {[«14""»]|[$$Phase encoded]}
<Call 0x222ae 0x103e0> {[«14""»]|[$$Phase encoded]}
WriteConsoleStringCrLf(str : String)
<POP 222b0-222b4 StackAdj> Δ+18 {}
<POP 222b4-222bc Naked> Σ0 ↓ →0x222dc ←0x22284
<MI 222b4 MOVE.W (A6+0x16),D0> {}
<MI 222b6 ANDI.W #0x0004,D0> {}
<MI 222ba BEQ 0x222dc> {}
<POP 222bc-222dc Naked> Σ0 ↓
<Blob 0x222bc [4] @> Δ-4 {[«4""»]}
<Blob 0x222c0 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x222c4 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 222c8-222ca StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x222ca 12> {[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
<Call 0x222d8 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$Write locked]}
WriteConsoleStringCrLf(str : String)
<POP 222da-222dc StackAdj> Δ+16 {}
<POP 222dc-222e4 Naked> Σ0 ↓ →0x2230a ←0x222b4
<MI 222dc MOVE.W (A6+0x16),D0> {}
<MI 222de ANDI.W #0x0002,D0> {}
<MI 222e2 BEQ 0x2230a> {}
<POP 222e4-2230a Naked> Σ0 ↓
<POP 222e4-222e6 StackAdj> Δ-4 {[-4-]}
<POP 222e6-222e7 StackAdj> Δ+2 {[-2-]}
<Blob 0x222e7 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 222ea MOVE.B 0x20b0b,(A7+0x1)> {[-2-]|[«2""»]}
<MI 222f0 MOVE.B 0x20b0c,(A7+0x2)> {[-2-]|[«2""»]}
<POP 222f6-222f8 StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x222f8> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x222f8 4> Δ-4
<Const 0x222fc 0x1.2> Δ-2
<Const 0x222fe 0x3.2> Δ-2
<Call 0x22302 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22304-22306 StackAdj> Δ+8
<Call 0x22306 0x103e0> {[-2-]|[«2""»]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 22308-2230a StackAdj> Δ+8 {}
<POP 2230a-22310 Naked> Σ0 ↓ →0x22336 ←0x222dc
<MI 2230a MOVE.W (A6+0x16),D0> {}
<MI 2230c AND.W #0x01,D0> {}
<MI 2230e BEQ 0x22336> {}
<POP 22310-22336 Naked> Σ0 ↓
<POP 22310-22312 StackAdj> Δ-4 {[-4-]}
<POP 22312-22313 StackAdj> Δ+2 {[-2-]}
<Blob 0x22313 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 22316 MOVE.B 0x20b0f,(A7+0x1)> {[-2-]|[«2""»]}
<MI 2231c MOVE.B 0x20b10,(A7+0x2)> {[-2-]|[«2""»]}
<POP 22322-22324 StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x22324> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x22324 4> Δ-4
<Const 0x22328 0x1.2> Δ-2
<Const 0x2232a 0x3.2> Δ-2
<Call 0x2232e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22330-22332 StackAdj> Δ+8
<Call 0x22332 0x103e0> {[-2-]|[«2""»]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 22334-22336 StackAdj> Δ+8 {}
<POP 22336-22340 Naked> Σ0 ↓ →0x22368 ←0x2230a
<MI 22336 MOVE.W (A6+0x18),D0> {}
<MI 2233a ANDI.W #0x8000,D0> {}
<MI 2233e BEQ 0x22368> {}
<POP 22340-22368 Naked> Σ0 ↓
<Blob 0x22340 [10] @> Δ-10 {[«10""»]}
<POP 22352-22354 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x22354 9> {[«10""»]|[$$Data late]}
<Call 0x22362 0x103e0> {[«10""»]|[$$Data late]}
WriteConsoleStringCrLf(str : String)
<POP 22364-22368 StackAdj> Δ+14 {}
<POP 22368-22372 Naked> Σ0 ↓ →0x2239a ←0x22336
<MI 22368 MOVE.W (A6+0x18),D0> {}
<MI 2236c ANDI.W #0x2000,D0> {}
<MI 22370 BEQ 0x2239a> {}
<POP 22372-2239a Naked> Σ0 ↓
<Blob 0x22372 [18] @> Δ-18 {[«18""»]}
<POP 22384-22386 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x22386 17> {[«18""»]|[$$Correctable error]}
<Call 0x22394 0x103e0> {[«18""»]|[$$Correctable error]}
WriteConsoleStringCrLf(str : String)
<POP 22396-2239a StackAdj> Δ+22 {}
<POP 2239a-223a4 Naked> Σ0 ↓ →0x223c6 ←0x22368
<MI 2239a MOVE.W (A6+0x18),D0> {}
<MI 2239e ANDI.W #0x0002,D0> {}
<MI 223a2 BEQ 0x223c6> {}
<POP 223a4-223c6 Naked> Σ0 ↓
<Blob 0x223a4 [20] @> Δ-20 {[«20""»]}
<POP 223b4-223b6 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x223b6 19> {[«20""»]|[$$Uncorrectable error]}
<Call 0x223c2 0x103e0> {[«20""»]|[$$Uncorrectable error]}
WriteConsoleStringCrLf(str : String)
<POP 223c4-223c6 StackAdj> Δ+24 {}
<POP 223c6-223d0 Naked> Σ0 ↓ →0x223f8 ←0x2239a
<MI 223c6 MOVE.W (A6+0x1a),D0> {}
<MI 223ca ANDI.W #0x8000,D0> {}
<MI 223ce BEQ 0x223f8> {}
<POP 223d0-223f8 Naked> Σ0 ↓
<Blob 0x223d0 [22] @> Δ-22 {[«22""»]}
<POP 223e2-223e4 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x223e4 21> {[«22""»]|[$$Operation in progress]}
<Call 0x223f2 0x103e0> {[«22""»]|[$$Operation in progress]}
WriteConsoleStringCrLf(str : String)
<POP 223f4-223f8 StackAdj> Δ+26 {}
<POP 223f8-22402 Naked> Σ0 ↓ →0x22420 ←0x223c6
<MI 223f8 MOVE.W (A6+0x1c),D0> {}
<MI 223fc ANDI.W #0x0040,D0> {}
<MI 22400 BEQ 0x22420> {}
<POP 22402-22420 Naked> Σ0 ↓
<Blob 0x22402 [20] @> Δ-20 {[«20""»]}
<POP 2240e-22410 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x22410 20> {[«20""»]|[$$Operation incomplete]}
<Call 0x2241c 0x103e0> {[«20""»]|[$$Operation incomplete]}
WriteConsoleStringCrLf(str : String)
<POP 2241e-22420 StackAdj> Δ+24 {}
<POP 22420-2242a Naked> Σ0 ↓ →0x22450 ←0x223f8
<MI 22420 MOVE.W (A6+0x1c),D0> {}
<MI 22424 ANDI.W #0x0020,D0> {}
<MI 22428 BEQ 0x22450> {}
<POP 2242a-22450 Naked> Σ0 ↓
<Blob 0x2242a [8] @> Δ-8 {[«8""»]}
<POP 2243a-2243c StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x2243c 7> {[«8""»]|[$$Reverse]}
<Call 0x2244a 0x103e0> {[«8""»]|[$$Reverse]}
WriteConsoleStringCrLf(str : String)
<POP 2244c-22450 StackAdj> Δ+12 {}
<POP 22450-22458 Naked> Σ0 ↓ →0x2247a ←0x22420
<MI 22450 MOVE.W (A6+0x1c),D0> {}
<MI 22454 AND.W #0x01,D0> {}
<MI 22456 BEQ 0x2247a> {}
<POP 22458-2247a Naked> Σ0 ↓
<Blob 0x22458 [4] @> Δ-4 {[«4""»]}
<Blob 0x2245c [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x22460 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x22464 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 22468-2246a StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2246a 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Reverse into BOT]}
<Call 0x22476 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Reverse into BOT]}
WriteConsoleStringCrLf(str : String)
<POP 22478-2247a StackAdj> Δ+20 {}
<POP 2247a-22482 Epilogue> Σ0 ←0x22450
@ 22482
<LVAR 0x008 4(r)>
<POP 22482-224ce Body>
<POP 22482-22498 Prologue> Σ0 ↓
<POP 22498-224a6 Naked> Σ0 ↓
<MI 22498 MOVEA.L (A6+0x8),A0> {}
<MI 2249c PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x2249e 0x102b8> {[4, '^(A0)']}
NewString(VAR a : String)
<POP 224a4-224a6 StackAdj> Δ+4 {}
<POP 224a6-224ae Naked> Σ0 ↓ →0x224be ←0x224be
<MI 224a6 MOVEA.L (A4+0x16),A0> {}
<MI 224aa MOVE.B (A0),D7> {}
<MI 224ac BEQ 0x224be> {}
<POP 224ae-224be Naked> Σ0 ↓
<MI 224ae MOVEA.L (A6+0x8),A0> {}
<MI 224b2 MOVE.L (A0),-(A7)> Δ-4 {[4, '(A0)']}
<MI 224b4 MOVE.B D7,-(A7)> Δ-2 {[4, '(A0)']|[2, 'D7']}
<Call 0x224b6 0x102c0> {[4, '(A0)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 224bc-224be StackAdj> Δ+6 {}
<POP 224be-224c6 Naked> Σ0 ↓ →0x224a6 ←0x224a6
<MI 224be ADDQ.L #0x1,(A4+0x16)> {}
<MI 224c2 TST.B D7> {}
<MI 224c4 BNE 0x224a6> {}
<POP 224c6-224ce Epilogue> Σ0
@ 224ce
<LVAR 0x01c @>
<LVAR 0x012 2(r)>
<LVAR 0x011 1(r)>
<LVAR 0x00e 2(r)>
<LVAR -0x006 4(w)>
<LVAR -0x00a @ 4(r)>
<LVAR -0x00e @ 4(r)>
<LVAR -0x012 4(rw)>
<LVAR -0x01c @>
<POP 224ce-2266c Body>
<POP 224ce-224e4 Prologue> Σ0 ↓
<POP 224e4-224f2 RegCacheLoad> Σ0 ↓
<POP 224f2-22568 Naked> Σ0 ↓ →0x2262c
<MI 224f2 CLR.L D0> {}
<MI 224f4 MOVE.W (A6+0xe),D0> {}
<MI 224f8 MOVE.L D0,D7> {}
<MI 224fa CLR.L D0> {}
<MI 224fc MOVE.B (A6+0x11),D0> {}
<POP 0x22500 LimitCheck 0x0 ≤ D0 ≤ 0xd> {}
<MI 22504 MOVE.B D0,D6> {}
<MI 22506 MOVE.W (A6+0x12),D0> {}
<MI 2250a LSR.W #0x8,D0> {}
<MI 2250c CLR.L D1> {}
<MI 2250e MOVE.W D0,D1> {}
<MI 22510 MOVE.L D1,D5> {}
<MI 22512 MOVE.W (A6+0x12),D0> {}
<MI 22516 ANDI.W #0x00ff,D0> {}
<MI 2251a CLR.L D1> {}
<MI 2251c MOVE.W D0,D1> {}
<MI 2251e MOVE.L D1,(A6-0x12)> {}
<Blob 0x22522 [24] @> Δ-24 {[«24""»]}
<POP 22534-22536 StackAdj> Δ-8 {[«24""»]|[-8-]}
<Lit 0x22536 23> {[«24""»]|[-4-]|[$$Error log entry for =>_]}
<POP 22542-22544 StackAdj> Δ-6 {[«24""»]|[-4-]|[$$Error log entry for =>_]|[-6-]}
<MI 22544 MOVE.B D6,(A7)> {[«24""»]|[-4-]|[$$Error log entry for =>_]|[-6-]}
<Call 0x22546 0x21652> {[«24""»]|[-4-]|[$$Error log entry for =>_]|[-6-]}
<POP 2254a-2254c StackAdj> Δ+2 {[«24""»]|[-4-]|[$$Error log entry for =>_]|[-4-]}
<Call 0x2254c 0x102d0> {[«24""»]|[-4-]|[$$Error log entry for =>_]|[-4-]}
StringCat2(a, b : String) : String
<POP 22552-22554 StackAdj> Δ+8 {[«24""»]|[-4-]}
<Call 0x22554 0x103e0> {[«24""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22556-2255a StackAdj> Δ+28 {}
<MI 2255a MOVE.L D7,D0> {}
<MI 2255c SUBQ.L #0x1,D0> {}
<MI 2255e CMPI.L #0x00000003,D0> {}
<MI 22564 BHI 0x2262c> {}
<POP 22568-22572 Naked> Σ0 →0x2257a →0x225b8 →0x225de →0x22608
<MI 22568 ADD.W D0,D0> {}
<MI 2256a SWITCH D0.W> {}
<POP 2257a-225b8 Naked> Σ0 →0x22664 ←0x22568
<MI 2257a LEA.L (A6+0x1c),A0> {}
<MI 2257e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22580 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<Pointer.fp 0x22584 <LVAR -0x00e @ 4(r)>> Δ-4 {[@@-14]}
<MI 22588 LEA.L (A6-0x1c),A4> {[@@-14]}
<Call 0x2258c 0x22482> {[@@-14]}
<POP 22590-22592 StackAdj> Δ+4 {}
<Pointer.fp 0x22592 <LVAR -0x00a @ 4(r)>> Δ-4 {[@@-10]}
<MI 22596 LEA.L (A6-0x1c),A4> {[@@-10]}
<Call 0x2259a 0x22482> {[@@-10]}
<MI 2259e MOVE.L (A6-0xe),(A7)> {[4, '(A6-0xe)']}
<MI 225a2 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xe)']|[4, '(A6-0xa)']}
<MI 225a6 MOVE.L (A6-0x12),-(A7)> Δ-4 {[4, '(A6-0xe)']|[4, '(A6-0xa)']|[4, '(A6-0x12)']}
<Call 0x225aa 0x1044c> {[4, '(A6-0xe)']|[4, '(A6-0xa)']|[4, '(A6-0x12)']}
WriteErrorMessage(file : String; txt : String; number : Long) : Bool
<POP 225b0-225b4 StackAdj> Δ+12 {}
<MI 225b4 BRA 0x22664> {}
<POP 225b8-225de Naked> Σ0 →0x22664 ←0x22568
<Blob 0x225b8 [38] @> Δ-38 {[«38""»]}
<POP 225c4-225c6 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x225c6 38> {[«38""»]|[$$No further information, EMBALM failed.]}
<Call 0x225d4 0x103e0> {[«38""»]|[$$No further information, EMBALM failed.]}
WriteConsoleStringCrLf(str : String)
<POP 225d6-225da StackAdj> Δ+42 {}
<MI 225da BRA 0x22664> {}
<POP 225de-22608 Naked> Σ0 →0x22664 ←0x22568
<Blob 0x225de [58] @> Δ-58 {[«58""»]}
<POP 225f0-225f2 StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x225f2 57> {[«58""»]|[$$Further information may be found in crash dump, if taken.]}
<Call 0x22600 0x103e0> {[«58""»]|[$$Further information may be found in crash dump, if taken.]}
WriteConsoleStringCrLf(str : String)
<POP 22602-22606 StackAdj> Δ+62 {}
<MI 22606 BRA 0x22664> {}
<POP 22608-2262c Naked> Σ0 →0x22664 ←0x22568
<Blob 0x22608 [36] @> Δ-36 {[«36""»]}
<POP 22614-22616 StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x22616 36> {[«36""»]|[$$This was an orderly system shutdown.]}
<Call 0x22624 0x103e0> {[«36""»]|[$$This was an orderly system shutdown.]}
WriteConsoleStringCrLf(str : String)
<POP 22626-2262a StackAdj> Δ+40 {}
<MI 2262a BRA 0x22664> {}
<POP 2262c-22664 Naked> Σ0 ↓ ←0x224f2
<Blob 0x2262c [30] @> Δ-30 {[«30""»]}
<POP 2263e-22640 StackAdj> Δ-8 {[«30""»]|[-8-]}
<Lit 0x22640 29> {[«30""»]|[-4-]|[$$Unknown R1000 error class =>_]}
<MI 2264c MOVE.L D7,(A7)> {[«30""»]|[-4-]|[4, 'D7']}
<POP 2264a-2264c StackAdj> Δ-8 {[«30""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x2264e 0x102e4> {[«30""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<POP 22654-22656 StackAdj> Δ+4 {[«30""»]|[-4-]|[4, 'D7']|[-4-]}
<Call 0x22656 0x102d0> {[«30""»]|[-4-]|[4, 'D7']|[-4-]}
StringCat2(a, b : String) : String
<POP 2265c-2265e StackAdj> Δ+8 {[«30""»]|[-4-]}
<Call 0x2265e 0x103e0> {[«30""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22660-22664 StackAdj> Δ+34 {}
<POP 22664-2266c Epilogue> Σ0 ←0x2257a ←0x225b8 ←0x225de ←0x22608
@ 2266c
<LVAR 0x00e 2(r)>
<POP 2266c-226c0 Body>
<POP 2266c-22682 Prologue> Σ0 ↓
<POP 22682-226b8 Naked> Σ0 ↓
<MI 22682 CLR.L D0> {}
<MI 22684 MOVE.W (A6+0xe),D0> {}
<MI 22688 MOVE.L D0,D7> {}
<Blob 0x2268a [18] @> Δ-18 {[«18""»]}
<POP 22696-22698 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x22698 18> {[«18""»]|[$$IOP_PANICS.ERRMESS]}
<POP 226aa-226ac StackAdj> Δ-4 {[«18""»]|[$$IOP_PANICS.ERRMESS]|[-4-]}
<MI 226ac MOVE.L D7,(A7)> {[«18""»]|[$$IOP_PANICS.ERRMESS]|[4, 'D7']}
<Call 0x226ae 0x10450> {[«18""»]|[$$IOP_PANICS.ERRMESS]|[4, 'D7']}
FS_10450(&, &)
<POP 226b4-226b8 StackAdj> Δ+26 {}
<POP 226b8-226c0 Epilogue> Σ0
@ 226c0
<LVAR 0x010 2(r)>
<LVAR 0x00e 2(r)>
<POP 226c0-22756 Body>
<POP 226c0-226d6 Prologue> Σ0 ↓
<POP 226d6-226d8 RegCacheLoad> Σ0 ↓
<POP 226d8-2274e Naked> Σ0 ↓
<MI 226d8 CLR.L D0> {}
<MI 226da MOVE.W (A6+0xe),D0> {}
<MI 226de MOVE.L D0,D7> {}
<Blob 0x226e0 [18] @> Δ-18 {[«18""»]}
<POP 226ec-226ee StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x226ee 18> {[«18""»]|[$$IOA_PANICS.ERRMESS]}
<POP 226fe-22700 StackAdj> Δ-4 {[«18""»]|[$$IOA_PANICS.ERRMESS]|[-4-]}
<MI 22700 MOVE.L D7,(A7)> {[«18""»]|[$$IOA_PANICS.ERRMESS]|[4, 'D7']}
<Call 0x22702 0x10450> {[«18""»]|[$$IOA_PANICS.ERRMESS]|[4, 'D7']}
FS_10450(&, &)
<POP 22708-22709 StackAdj> Δ+26 ↓ {}
<Blob 0x22709 [24] @> Δ-24 {[«24""»]}
<POP 22718-2271a StackAdj> Δ-8 {[«24""»]|[-8-]}
<Lit 0x2271a 23> {[«24""»]|[-4-]|[$$Error specific data =>_]}
<POP 2272a-2272c StackAdj> Δ-4 {[«24""»]|[-4-]|[$$Error specific data =>_]|[-4-]}
<MI 2272c CLR.L D0> {[«24""»]|[-4-]|[$$Error specific data =>_]|[-4-]}
<MI 2272e MOVE.W (A6+0x10),D0> {[«24""»]|[-4-]|[$$Error specific data =>_]|[-4-]}
<MI 22732 MOVE.L D0,-(A7)> Δ-4 {[«24""»]|[-4-]|[$$Error specific data =>_]|[-4-]|[4, 'D0']}
<Call 0x22734 0x102e4> {[«24""»]|[-4-]|[$$Error specific data =>_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2273a-2273c StackAdj> Δ+4 {[«24""»]|[-4-]|[$$Error specific data =>_]|[-4-]}
<Call 0x2273c 0x102d0> {[«24""»]|[-4-]|[$$Error specific data =>_]|[-4-]}
StringCat2(a, b : String) : String
<POP 22742-22744 StackAdj> Δ+8 {[«24""»]|[-4-]}
<Call 0x22744 0x103e0> {[«24""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2274a-2274e StackAdj> Δ+28 {}
<POP 2274e-22756 Epilogue> Σ0
@ 22756
<LVAR -0x102 @ 1(r)>
<LVAR -0x104 2(rw)>
<LVAR -0x108 4(rw)>
<LVAR -0x10c 4(rw)>
<LVAR -0x10e @>
<LVAR -0x11c @>
<POP 22756-22a54 Body>
<POP 22756-2276c Prologue> Σ0 ↓
<POP 2276c-2277a RegCacheLoad> Σ0 ↓
<POP 2277a-228fc Naked> Σ0 ↓
<Blob 0x2277a [10] @> Δ-10 {[«10""»]}
<POP 2278c-2278e StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x2278e 9> {[«10""»]|[$$ERROR_LOG]}
<MI 2279c MOVEA.L (A7)+,A4> Δ+4 {[«10""»]}
<POP 2279e-227a0 StackAdj> Δ+6 {[-4-]}
<MI 227a0 MOVE.L A4,(A7)> {[4, 'A4']}
<MI 227a2 CLR.B -(A7)> Δ-2 {[4, 'A4']|[#0]}
<Const 0x227a4 0x2.2> Δ-2 {[4, 'A4']|[#0]|[#2]}
<Const 0x227a8 0x0.4> Δ-4 {[4, 'A4']|[#0]|[#2]|[##0]}
<Pointer.fp 0x227ac <LVAR -0x10e @>> Δ-4 {[4, 'A4']|[#0]|[#2]|[##0]|[@@-270]}
<Const 0x227b0 0x23ada.4> Δ-4 {[4, 'A4']|[#0]|[#2]|[##0]|[@@-270]|[##146138]}
<Call 0x227b6 0x10380> {[4, 'A4']|[#0]|[#2]|[##0]|[@@-270]|[##146138]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 227bc-227c0 StackAdj> Δ+16 {[4, 'A4']}
<POP 227c0-227c1 StackAdj> Δ+4 {}
<Blob 0x227c1 [4] 0x23ada> Δ-4 {[«4»]}
<MI 227c6 CLR.W -(A7)> Δ-2 {[«4»]|[#0]}
<MI 227c8 CLR.W -(A7)> Δ-2 {[«4»]|[#0]|[#0]}
<Const 0x227ca 0x200.2> Δ-2 {[«4»]|[#0]|[#0]|[#512]}
<Const 0x227ce 0x2.2> Δ-2 {[«4»]|[#0]|[#0]|[#512]|[#2]}
<MI 227d2 LEA.L 0x232d8,A0> {[«4»]|[#0]|[#0]|[#512]|[#2]}
<MI 227d4 MOVE.L A0,-(A7)> Δ-4 {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x227d6 <LVAR -0x10e @>> Δ-4 {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-270]}
<Call 0x227da 0x10384> {[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-270]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 227e0-227e4 StackAdj> Δ+20 {}
<Call 0x227e4 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x227ea [22] @> Δ-22 {[«22""»]}
<POP 227fc-227fe StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x227fe 21> {[«22""»]|[-4-]|[$$Log last examined on_]}
<POP 2280a-2280b StackAdj> Δ-4 {[«22""»]|[-4-]|[$$Log last examined on_]|[-4-]}
<Blob 0x2280b [4] 0x232dc> Δ-4 {[«22""»]|[-4-]|[$$Log last examined on_]|[-4-]|[«4»]}
<Call 0x22810 0x10308> {[«22""»]|[-4-]|[$$Log last examined on_]|[-4-]|[«4»]}
TimeToText()
<POP 22816-22818 StackAdj> Δ+4 {[«22""»]|[-4-]|[$$Log last examined on_]|[-4-]}
<Call 0x22818 0x102d0> {[«22""»]|[-4-]|[$$Log last examined on_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2281e-22820 StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x22820 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22826-2282a StackAdj> Δ+26 {}
<MI 2282a CLR.L D0> {}
<MI 2282c MOVE.W 0x232da,D0> {}
<MI 22832 CLR.L D1> {}
<MI 22834 MOVE.W 0x232e0,D1> {}
<MI 2283a NEG.L D1> {}
<MI 2283c ADD.L D0,D1> {}
<MI 2283e ADDI.L #0x00000800,D1> {}
<MI 22844 MOVE.L D1,D4> {}
<MI 22846 MOVE.L #0x800,D3> {}
<Call 0x2284c 0x10294> {}
?divs_d3_d4
<MI 22852 MOVE.L D3,(A6-0x10c)> {}
<MI 22856 MOVE.L D3,-(A7)> Δ-4 {[4, 'D3']}
<MI 22858 CLR.L D1> {[4, 'D3']}
<MI 2285a MOVE.W 0x232d8,D1> {[4, 'D3']}
<MI 2285c NEG.L D1> {[4, 'D3']}
<MI 2285e ADD.L D0,D1> {[4, 'D3']}
<MI 22860 ADDI.L #0x00000800,D1> {[4, 'D3']}
<MI 22866 MOVE.L D1,D4> {[4, 'D3']}
<MI 22868 MOVE.L #0x800,D3> {[4, 'D3']}
<Call 0x2286e 0x10294> {[4, 'D3']}
?divs_d3_d4
<MI 22874 MOVE.L D3,(A6-0x108)> {[4, 'D3']}
<Blob 0x22878 [14] @> Δ-14 {[4, 'D3']|[«14""»]}
<Blob 0x2288a [14] @> Δ-14 {[4, 'D3']|[«14""»]|[«14""»]}
<Blob 0x22896 [16] @> Δ-16 {[4, 'D3']|[«14""»]|[«14""»]|[«16""»]}
<POP 228a8-228aa StackAdj> Δ-8 {[4, 'D3']|[«14""»]|[«14""»]|[«16""»]|[-8-]}
<Lit 0x228aa 13> {[4, 'D3']|[«14""»]|[«14""»]|[«16""»]|[-4-]|[$$Log contains_]}
<POP 228b6-228b8 StackAdj> Δ-4 {[4, 'D3']|[«14""»]|[«14""»]|[«16""»]|[-4-]|[$$Log contains_]|[-4-]}
<MI 228b8 MOVE.L (A7+0x38),D0> {[4, 'D3']|[«14""»]|[«14""»]|[«16""»]|[-4-]|[$$Log contains_]|[-4-]}
<MI 228bc MOVE.L D0,-(A7)> Δ-4 {[4, 'D3']|[«14""»]|[«14""»]|[«16""»]|[-4-]|[$$Log contains_]|[-4-]|[4, 'D0']}
<Call 0x228be 0x102e4> {[4, 'D3']|[«14""»]|[«14""»]|[«16""»]|[-4-]|[$$Log contains_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<Lit 0x228c4 14> {[4, 'D3']|[«14""»]|[«14""»]|[«16""»]|[-4-]|[$$Log contains_]|[-4-]|[$$ new entries,_]}
<MI 228d0 MOVE.L D3,(A7)> {[4, 'D3']|[«14""»]|[«14""»]|[«16""»]|[-4-]|[$$Log contains_]|[-4-]|[4, 'D3']}
<POP 228ce-228d0 StackAdj> Δ-8 {[4, 'D3']|[«14""»]|[«14""»]|[«16""»]|[-4-]|[$$Log contains_]|[-4-]|[4, 'D3']|[-8-]}
<Call 0x228d2 0x102e4> {[4, 'D3']|[«14""»]|[«14""»]|[«16""»]|[-4-]|[$$Log contains_]|[-4-]|[4, 'D3']|[-8-]}
Long2String(a : Long) : String
<Lit 0x228d8 15> {[4, 'D3']|[«14""»]|[«14""»]|[«16""»]|[-4-]|[$$Log contains_]|[-4-]|[4, 'D3']|[-4-]|[$$ total entries.]}
<Call 0x228e6 0x102dc> {[4, 'D3']|[«14""»]|[«14""»]|[«16""»]|[-4-]|[$$Log contains_]|[-4-]|[4, 'D3']|[-4-]|[$$ total entries.]}
StringCat5(a, b, c, d, e : String) : String
<POP 228ec-228f0 StackAdj> Δ+20 {[4, 'D3']|[«14""»]|[«14""»]|[«16""»]|[-4-]}
<Call 0x228f0 0x103e0> {[4, 'D3']|[«14""»]|[«14""»]|[«16""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 228f6-228fa StackAdj> Δ+52 {}
<MI 228fa MOVEQ.L #0x00,D7> {}
<POP 228fc-2291a Naked> Σ0 ↓ →0x228fc ←0x228fc
<MI 228fc MOVE.B D7,D0> {}
<MI 228fe EXTB.W D0> {}
<MI 22900 ASL.W #0x2,D0> {}
<MI 22902 LEA.L (A6-0x11c),A0> {}
<MI 22906 LEA.L (A0+D0.W),A0> {}
<MI 2290a CLR.L (A0+0xda)> {}
<MI 2290e CLR.L (A0+0x9a)> {}
<MI 22912 ADDQ.B #0x1,D7> {}
<MI 22914 CMPI.B #0x0f,D7> {}
<MI 22918 BLE 0x228fc> {}
<POP 2291a-2298a Naked> Σ0 Δ-4 ↓
<MI 2291a CLR.L D0> {}
<MI 2291c MOVE.W 0x232d8,D0> {}
<MI 2291e ADDQ.L #0x1,D0> {}
<MI 22920 ANDI.L #0x000007ff,D0> {}
<MI 22926 MOVE.W D0,(A6-0x104)> {}
<MI 2292a MOVE.L (A6-0x108),D5> {}
<MI 2292e SUB.L (A6-0x10c),D5> {}
<Call 0x22932 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x22938 [44] @> Δ-44 {[«44""»]}
<POP 22944-22946 StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x22946 44> {[«44""»]|[$$ Error kind New Total]}
<Call 0x22954 0x103e0> {[«44""»]|[$$ Error kind New Total]}
WriteConsoleStringCrLf(str : String)
<POP 2295a-2295e StackAdj> Δ+48 {}
<Blob 0x2295e [44] @> Δ-44 {[«44""»]}
<POP 2296a-2296c StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x2296c 44> {[«44""»]|[$$------------------------------ ----- -----]}
<Call 0x2297a 0x103e0> {[«44""»]|[$$------------------------------ ----- -----]}
WriteConsoleStringCrLf(str : String)
<POP 22980-22984 StackAdj> Δ+44 {[-4-]}
<MI 22984 MOVE.L (A6-0x108),(A7)> {[4, '(A6-0x108)']}
<MI 22988 MOVEQ.L #0x01,D6> {[4, '(A6-0x108)']}
<POP 2298a-2298e Naked> Σ-4 ↓ →0x229d2 ←0x229bc
<MI 2298a CMP.L (A7),D6> {[-4-]}
<MI 2298c BGT 0x229d2> {[-4-]}
<POP 2298e-229b8 Naked> Σ-4 ↓ →0x229bc
<MI 2298e MOVE.W (A6-0x104),-(A7)> Δ-2 {[-4-]|[2, '(A6-0x104)']}
<Pointer.fp 0x22992 <LVAR -0x102 @ 1(r)>> Δ-4 {[-4-]|[2, '(A6-0x104)']|[@@-258]}
<Call 0x22996 0x2156a> {[-4-]|[2, '(A6-0x104)']|[@@-258]}
<POP 2299a-2299c StackAdj> Δ+6 {[-4-]}
<MI 2299c MOVE.B (A6-0x102),D0> {[-4-]}
<MI 229a0 EXTB.W D0> {[-4-]}
<POP 0x229a2 LimitCheck 0x0 ≤ D0 ≤ 0xf> {[-4-]}
<MI 229a6 ASL.W #0x2,D0> {[-4-]}
<MI 229a8 LEA.L (A6-0x11c),A0> {[-4-]}
<MI 229ac LEA.L (A0+D0.W),A0> {[-4-]}
<MI 229b0 ADDQ.L #0x1,(A0+0x9a)> {[-4-]}
<MI 229b4 CMP.L D5,D6> {[-4-]}
<MI 229b6 BLE 0x229bc> {[-4-]}
<POP 229b8-229bc Naked> Σ-4 ↓
<MI 229b8 ADDQ.L #0x1,(A0+0xda)> {[-4-]}
<POP 229bc-229d2 Naked> Σ-4 ↓ →0x2298a ←0x2298e
<MI 229bc CLR.L D0> {[-4-]}
<MI 229be MOVE.W (A6-0x104),D0> {[-4-]}
<MI 229c2 ADDQ.L #0x1,D0> {[-4-]}
<MI 229c4 ANDI.L #0x000007ff,D0> {[-4-]}
<MI 229ca MOVE.W D0,(A6-0x104)> {[-4-]}
<MI 229ce ADDQ.L #0x1,D6> {[-4-]}
<MI 229d0 BVC 0x2298a> {[-4-]}
<POP 229d2-229d6 Naked> Σ-4 Δ+4 ↓ ←0x2298a
<POP 229d2-229d4 StackAdj> Δ+4 {}
<MI 229d4 MOVEQ.L #0x00,D7> {}
<POP 229d6-229ee Naked> Σ0 ↓ →0x22a44 ←0x22a44
<MI 229d6 MOVE.B D7,D0> {}
<MI 229d8 EXTB.W D0> {}
<MI 229da ASL.W #0x2,D0> {}
<MI 229dc LEA.L (A6-0x11c),A0> {}
<MI 229e0 LEA.L (A0+D0.W),A0> {}
<MI 229e4 MOVE.L (A0+0x9a),D0> {}
<MI 229e8 ADD.L (A0+0xda),D0> {}
<MI 229ec BEQ 0x22a44> {}
<POP 229ee-22a44 Naked> Σ0 ↓
<POP 229ee-229f2 StackAdj> Δ-12 {[-12-]}
<MI 229f2 MOVE.B D7,-(A7)> Δ-2 {[-12-]|[2, 'D7']}
<Call 0x229f4 0x21600> {[-12-]|[2, 'D7']}
<POP 229f8-229fa StackAdj> Δ+2 {[-12-]}
<Const 0x229fa 0x20.4> Δ-4 {[-12-]|[##32]}
<Call 0x229fe 0x102f8> {[-12-]|[##32]}
LeftPad(a : String; b : Long) : String
<MI 22a04 MOVE.L (A0+0xda),-(A7)> Δ-4 {[-12-]|[##32]|[4, '(A0+0xda)']}
<Call 0x22a08 0x102e4> {[-12-]|[##32]|[4, '(A0+0xda)']}
Long2String(a : Long) : String
<POP 22a0e-22a10 StackAdj> Δ+4 {[-12-]|[##32]}
<Const 0x22a10 0x5.4> Δ-4 {[-12-]|[##32]|[##5]}
<Call 0x22a14 0x102f4> {[-12-]|[##32]|[##5]}
RightPad(a : String; b : Long) : String
<MI 22a1a MOVE.L (A0+0x9a),-(A7)> Δ-4 {[-12-]|[##32]|[##5]|[4, '(A0+0x9a)']}
<Call 0x22a1e 0x102e4> {[-12-]|[##32]|[##5]|[4, '(A0+0x9a)']}
Long2String(a : Long) : String
<POP 22a24-22a26 StackAdj> Δ+4 {[-12-]|[##32]|[##5]}
<Const 0x22a26 0x7.4> Δ-4 {[-12-]|[##32]|[##5]|[##7]}
<Call 0x22a2a 0x102f4> {[-12-]|[##32]|[##5]|[##7]}
RightPad(a : String; b : Long) : String
<POP 22a30-22a32 StackAdj> Δ+8 {[-12-]|[##32]}
<Call 0x22a32 0x102d4> {[-12-]|[##32]}
StringCat3(a, b, c : String) : String
<POP 22a38-22a3c StackAdj> Δ+12 {[-4-]}
<Call 0x22a3c 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22a42-22a44 StackAdj> Δ+4 {}
<POP 22a44-22a4c Naked> Σ0 ↓ →0x229d6 ←0x229d6
<MI 22a44 ADDQ.B #0x1,D7> {}
<MI 22a46 CMPI.B #0x0f,D7> {}
<MI 22a4a BLE 0x229d6> {}
<POP 22a4c-22a54 Epilogue> Σ0
@ 22a54
<LVAR -0x004 1(rw)>
<LVAR -0x088 4(r)>
<LVAR -0x08a @ 1(r)>
<LVAR -0x090 2(rw)>
<POP 22a54-22e5c Body> Δ+512
<POP 22a54-22a6a Prologue> Σ0 ↓
<POP 22a6a-22a7c RegCacheLoad> Σ0 ↓
<POP 22a7c-22aac Naked> Σ0 Δ-52 ↓ →0x22ab4
<Blob 0x22a7c [52] @> Δ-52 {[«52""»]}
<POP 22a8e-22a90 StackAdj> Δ-6 {[«52""»]|[-6-]}
<Lit 0x22a90 51> {[«52""»]|[-2-]|[$$Examine only new entries, as opposed to all entries]}
<POP 22a9c-22a9e StackAdj> Δ-2 {[«52""»]|[-2-]|[$$Examine only new entries, as opposed to all entries]|[-2-]}
<POP 22a9e-22a9f StackAdj> Δ+2 {[«52""»]|[-2-]|[$$Examine only new entries, as opposed to all entries]}
<Const 0x22a9f 0x1.2> Δ-2 {[«52""»]|[-2-]|[$$Examine only new entries, as opposed to all entries]|[#1]}
<Call 0x22aa0 0x103f0> {[«52""»]|[-2-]|[$$Examine only new entries, as opposed to all entries]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 22aa6-22aa8 StackAdj> Δ+6 {[«52""»]|[-2-]}
<MI 22aa8 TST.B (A7)+> Δ+2 {[«52""»]}
<MI 22aaa BEQ 0x22ab4> {[«52""»]}
<POP 22aac-22ab4 Naked> Σ-52 →0x22aba
<MI 22aac MOVE.W 0x232e0,(A6-0x90)> {[-52-]}
<MI 22ab2 BRA 0x22aba> {[-52-]}
<POP 22ab4-22aba Naked> Σ-52 ↓ ←0x22a7c
<MI 22ab4 MOVE.W 0x232d8,(A6-0x90)> {[-52-]}
<POP 22aba-22c66 Naked> Σ-52 Δ+52 ↓ ←0x22aac
<POP 22aba-22abe StackAdj> Δ+52 {}
<MI 22abe CLR.L D0> {}
<MI 22ac0 MOVE.W 0x232da,D0> {}
<MI 22ac6 CLR.L D1> {}
<MI 22ac8 MOVE.W (A6-0x90),D1> {}
<MI 22aca NEG.L D1> {}
<MI 22acc ADD.L D0,D1> {}
<MI 22ace ADDI.L #0x00000800,D1> {}
<MI 22ad4 MOVE.L D1,D4> {}
<MI 22ad6 MOVE.L #0x800,D3> {}
<Call 0x22adc 0x10294> {}
?divs_d3_d4
<MI 22ae2 MOVE.L D3,D7> {}
<MI 22ae4 MOVE.W D0,(A6-0x90)> {}
<Blob 0x22ae6 [18] @> Δ-18 {[«18""»]}
<POP 22af2-22af4 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x22af4 18> {[«18""»]|[$$Query options are:]}
<Call 0x22b02 0x103e0> {[«18""»]|[$$Query options are:]}
WriteConsoleStringCrLf(str : String)
<POP 22b04-22b08 StackAdj> Δ+22 {}
<Blob 0x22b08 [26] @> Δ-26 {[«26""»]}
<POP 22b14-22b16 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x22b16 26> {[«26""»]|[$$ 0 => All error entries]}
<Call 0x22b24 0x103e0> {[«26""»]|[$$ 0 => All error entries]}
WriteConsoleStringCrLf(str : String)
<POP 22b26-22b27 StackAdj> Δ+30 ↓ {}
<Blob 0x22b27 [28] @> Δ-28 {[«28""»]}
<POP 22b36-22b38 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x22b38 27> {[«28""»]|[$$ 1 => Disk error entries]}
<Call 0x22b46 0x103e0> {[«28""»]|[$$ 1 => Disk error entries]}
WriteConsoleStringCrLf(str : String)
<POP 22b48-22b49 StackAdj> Δ+32 ↓ {}
<Blob 0x22b49 [28] @> Δ-28 {[«28""»]}
<POP 22b58-22b5a StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x22b5a 27> {[«28""»]|[$$ 2 => Tape error entries]}
<Call 0x22b68 0x103e0> {[«28""»]|[$$ 2 => Tape error entries]}
WriteConsoleStringCrLf(str : String)
<POP 22b6a-22b6e StackAdj> Δ+32 {}
<Blob 0x22b6e [34] @> Δ-34 {[«34""»]}
<POP 22b7a-22b7c StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x22b7c 34> {[«34""»]|[$$ 3 => I/O adaptor error entries]}
<Call 0x22b8a 0x103e0> {[«34""»]|[$$ 3 => I/O adaptor error entries]}
WriteConsoleStringCrLf(str : String)
<POP 22b8c-22b90 StackAdj> Δ+38 {}
<Blob 0x22b90 [32] @> Δ-32 {[«32""»]}
<POP 22b9c-22b9e StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x22b9e 32> {[«32""»]|[$$ 4 => R1000 CPU error entries]}
<Call 0x22bac 0x103e0> {[«32""»]|[$$ 4 => R1000 CPU error entries]}
WriteConsoleStringCrLf(str : String)
<POP 22bae-22bb2 StackAdj> Δ+36 {}
<Blob 0x22bb2 [36] @> Δ-36 {[«36""»]}
<POP 22bbe-22bc0 StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x22bc0 36> {[«36""»]|[$$ 5 => I/O Processor error entries]}
<Call 0x22bce 0x103e0> {[«36""»]|[$$ 5 => I/O Processor error entries]}
WriteConsoleStringCrLf(str : String)
<POP 22bd0-22bd1 StackAdj> Δ+40 ↓ {}
<Blob 0x22bd1 [38] @> Δ-38 {[«38""»]}
<POP 22be0-22be2 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x22be2 37> {[«38""»]|[$$ 6 => FRU diagnostic error entries]}
<Call 0x22bf0 0x103e0> {[«38""»]|[$$ 6 => FRU diagnostic error entries]}
WriteConsoleStringCrLf(str : String)
<POP 22bf2-22bf3 StackAdj> Δ+42 ↓ {}
<Blob 0x22bf3 [40] @> Δ-40 {[«40""»]}
<POP 22c02-22c04 StackAdj> Δ-8 {[«40""»]|[-8-]}
<Lit 0x22c04 39> {[«40""»]|[-4-]|[$$Enter type of errors you want to see :_]}
<Const 0x22c12 0x0.4> Δ-4 {[«40""»]|[-4-]|[$$Enter type of errors you want to see :_]|[##0]}
<Const 0x22c16 0x6.4> Δ-4 {[«40""»]|[-4-]|[$$Enter type of errors you want to see :_]|[##0]|[##6]}
<Call 0x22c1a 0x103ec> {[«40""»]|[-4-]|[$$Enter type of errors you want to see :_]|[##0]|[##6]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 22c20-22c24 StackAdj> Δ+12 {[«40""»]|[-4-]}
<MI 22c24 MOVE.L (A7)+,D5> Δ+4 {[«40""»]}
<MI 22c26 SUBQ.L #0x1,D5> {[«40""»]}
<POP 22c28-22c2c StackAdj> Δ+40 {}
<Blob 0x22c2c [32] @> Δ-32 {[«32""»]}
<POP 22c38-22c3a StackAdj> Δ-6 {[«32""»]|[-6-]}
<Lit 0x22c3a 32> {[«32""»]|[-2-]|[$$Pause between each error display]}
<POP 22c46-22c48 StackAdj> Δ-2 {[«32""»]|[-2-]|[$$Pause between each error display]|[-2-]}
<POP 22c48-22c49 StackAdj> Δ+2 {[«32""»]|[-2-]|[$$Pause between each error display]}
<Const 0x22c49 0x1.2> Δ-2 {[«32""»]|[-2-]|[$$Pause between each error display]|[#1]}
<Call 0x22c4a 0x103f0> {[«32""»]|[-2-]|[$$Pause between each error display]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 22c50-22c52 StackAdj> Δ+6 {[«32""»]|[-2-]}
<MI 22c52 MOVE.B (A7)+,D0> Δ+2 {[«32""»]}
<MI 22c54 NEG.B D0> {[«32""»]}
<MI 22c56 ADDQ.B #0x1,D0> {[«32""»]}
<POP 22c58-22c5c StackAdj> Δ+32 {}
<MI 22c5c EXTB.W D0> {}
<POP 0x22c5e LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 22c60 MOVE.B D0,(A6-0x4)> {}
<MI 22c64 MOVEQ.L #0x00,D6> {}
<POP 22c66-22c6c Naked> Σ0 ↓ →0x22e54 ←0x22e3a
<MI 22c66 TST.L D7> {}
<MI 22c68 BEQ 0x22e54> {}
<POP 22c6c-22c72 Naked> Σ0 ↓ →0x22e54
<MI 22c6c TST.B D6> {}
<MI 22c6e BNE 0x22e54> {}
<POP 22c72-22c86 Naked> Σ0 ↓ →0x22c94
<MI 22c72 MOVE.W (A6-0x90),-(A7)> Δ-2 {[2, '(A6-0x90)']}
<Pointer.fp 0x22c74 <LVAR -0x08a @ 1(r)>> Δ-4 {[2, '(A6-0x90)']|[@@-138]}
<Call 0x22c78 0x2156a> {[2, '(A6-0x90)']|[@@-138]}
<POP 22c7c-22c7e StackAdj> Δ+6 {}
<MI 22c7e CMPI.L #0xffffffff,D5> {}
<MI 22c84 BEQ 0x22c94> {}
<POP 22c86-22c94 Naked> Σ0 ↓ →0x22e3a
<MI 22c86 MOVE.B (A6-0x8a),D0> {}
<MI 22c8a EXTB.W D0> {}
<MI 22c8c EXTW.L D0> {}
<MI 22c8e CMP.L D0,D5> {}
<MI 22c90 BNE 0x22e3a> {}
<POP 22c94-22d42 Naked> Σ0 ↓ →0x22ddc ←0x22c72
<Blob 0x22c94 [40] @> Δ-40 {[«40""»]}
<Blob 0x22ca6 [40] @> Δ-40 {[«40""»]|[«40""»]}
<POP 22cb8-22cba StackAdj> Δ-8 {[«40""»]|[«40""»]|[-8-]}
<Lit 0x22cba 39> {[«40""»]|[«40""»]|[-4-]|[$$---------------------------------------]}
<POP 22cc6-22cc8 StackAdj> Δ-4 {[«40""»]|[«40""»]|[-4-]|[$$---------------------------------------]|[-4-]}
<Lit 0x22cc8 39> {[«40""»]|[«40""»]|[-4-]|[$$---------------------------------------]|[$$---------------------------------------]}
<Call 0x22cd6 0x102d0> {[«40""»]|[«40""»]|[-4-]|[$$---------------------------------------]|[$$---------------------------------------]}
StringCat2(a, b : String) : String
<POP 22cdc-22cde StackAdj> Δ+8 {[«40""»]|[«40""»]|[-4-]}
<Call 0x22cde 0x103e0> {[«40""»]|[«40""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22ce0-22ce1 StackAdj> Δ+84 ↓ {}
<Blob 0x22ce1 [22] @> Δ-22 {[«22""»]}
<POP 22cf2-22cf4 StackAdj> Δ-8 {[«22""»]|[-8-]}
<MI 22cf4 MOVE.B (A6-0x8a),D0> {[«22""»]|[-8-]}
<MI 22cf8 EXTB.W D0> {[«22""»]|[-8-]}
<POP 0x22cfa LimitCheck 0x0 ≤ D0 ≤ 0xf> {[«22""»]|[-8-]}
<MI 22cfe MOVE.B D0,-(A7)> Δ-2 {[«22""»]|[-8-]|[2, 'D0']}
<Call 0x22d00 0x21600> {[«22""»]|[-8-]|[2, 'D0']}
<POP 22d04-22d06 StackAdj> Δ-2 {[«22""»]|[-8-]|[2, 'D0']|[-2-]}
<Lit 0x22d06 21> {[«22""»]|[-8-]|[$$ log entry made on :_]}
<MI 22d12 MOVE.L (A6-0x88),(A7)> {[«22""»]|[-8-]|[4, '(A6-0x88)']}
<POP 22d10-22d12 StackAdj> Δ-8 {[«22""»]|[-8-]|[4, '(A6-0x88)']|[-8-]}
<Call 0x22d16 0x10308> {[«22""»]|[-8-]|[4, '(A6-0x88)']|[-8-]}
TimeToText()
<POP 22d1c-22d1e StackAdj> Δ+4 {[«22""»]|[-8-]|[4, '(A6-0x88)']|[-4-]}
<Call 0x22d1e 0x102d4> {[«22""»]|[-8-]|[4, '(A6-0x88)']|[-4-]}
StringCat3(a, b, c : String) : String
<POP 22d24-22d28 StackAdj> Δ+12 {[«22""»]|[-4-]}
<Call 0x22d28 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22d2a-22d2e StackAdj> Δ+26 {}
<Call 0x22d2e 0x103dc> {}
WriteConsoleCrLf(void)
<MI 22d34 MOVE.B (A6-0x8a),D0> {}
<MI 22d38 EXTB.W D0> {}
<MI 22d3a CMPI.W #0x0005,D0> {}
<MI 22d3e BHI 0x22ddc> {}
<POP 22d42-22d4c Naked> Σ0 →0x22d58 →0x22d70 →0x22d82 →0x22da6 →0x22d94 →0x22db8
<MI 22d42 ADD.W D0,D0> {}
<MI 22d44 SWITCH D0.W> {}
<POP 22d58-22d68 Naked> Σ0 Δ-128 ↓ ←0x22d42
<Blob 0x22d58 [128] (A6-0xa)> Δ-128 {[«128»]}
<Call 0x22d64 0x216a4> {[«128»]}
<POP 22d68-22d70 Naked> Σ-128 Δ+128→0x22e04 ←0x22d70 ←0x22d82 ←0x22d94 ←0x22da6
<POP 22d68-22d6c StackAdj> Δ+128 {}
<MI 22d6c BRA 0x22e04> {}
<POP 22d70-22d82 Naked> Σ0 Δ-128 →0x22d68 ←0x22d42
<Blob 0x22d70 [128] (A6-0xa)> Δ-128 {[«128»]}
<Call 0x22d7c 0x21df8> {[«128»]}
<MI 22d80 BRA 0x22d68> {[«128»]}
<POP 22d82-22d94 Naked> Σ0 Δ-128 →0x22d68 ←0x22d42
<Blob 0x22d82 [128] (A6-0xa)> Δ-128 {[«128»]}
<Call 0x22d8e 0x226c0> {[«128»]}
<MI 22d92 BRA 0x22d68> {[«128»]}
<POP 22d94-22da6 Naked> Σ0 Δ-128 →0x22d68 ←0x22d42
<Blob 0x22d94 [128] (A6-0xa)> Δ-128 {[«128»]}
<Call 0x22da0 0x2266c> {[«128»]}
<MI 22da4 BRA 0x22d68> {[«128»]}
<POP 22da6-22db8 Naked> Σ0 Δ-128 →0x22d68 ←0x22d42
<Blob 0x22da6 [128] (A6-0xa)> Δ-128 {[«128»]}
<Call 0x22db2 0x224ce> {[«128»]}
<MI 22db6 BRA 0x22d68> {[«128»]}
<POP 22db8-22ddc Naked> Σ0 →0x22e04 ←0x22d42
<Blob 0x22db8 [14] @> Δ-14 {[«14""»]}
<POP 22dc4-22dc6 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x22dc6 14> {[«14""»]|[$$No fru support]}
<Call 0x22dd4 0x103e0> {[«14""»]|[$$No fru support]}
WriteConsoleStringCrLf(str : String)
<POP 22dd6-22dda StackAdj> Δ+18 {}
<MI 22dda BRA 0x22e04> {}
<POP 22ddc-22e04 Naked> Σ0 ↓ ←0x22c94
<Blob 0x22ddc [26] @> Δ-26 {[«26""»]}
<POP 22dee-22df0 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x22df0 25> {[«26""»]|[$$No support for this entry]}
<Call 0x22dfe 0x103e0> {[«26""»]|[$$No support for this entry]}
WriteConsoleStringCrLf(str : String)
<POP 22e00-22e04 StackAdj> Δ+30 {}
<POP 22e04-22e0a Naked> Σ0 ↓ →0x22e3a ←0x22d68 ←0x22db8
<MI 22e04 TST.B (A6-0x4)> {}
<MI 22e08 BNE 0x22e3a> {}
<POP 22e0a-22e3a Naked> Σ0 ↓
<Blob 0x22e0a [4] @> Δ-4 {[«4""»]}
<Blob 0x22e0e [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 22e12-22e14 StackAdj> Δ-6 {[«4""»]|[«4""»]|[-6-]}
<Lit 0x22e14 8> {[«4""»]|[«4""»]|[-2-]|[$$Continue]}
<POP 22e20-22e22 StackAdj> Δ-2 {[«4""»]|[«4""»]|[-2-]|[$$Continue]|[-2-]}
<POP 22e22-22e23 StackAdj> Δ+2 {[«4""»]|[«4""»]|[-2-]|[$$Continue]}
<Const 0x22e23 0x1.2> Δ-2 {[«4""»]|[«4""»]|[-2-]|[$$Continue]|[#1]}
<Call 0x22e24 0x103f0> {[«4""»]|[«4""»]|[-2-]|[$$Continue]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 22e2a-22e2c StackAdj> Δ+6 {[«4""»]|[«4""»]|[-2-]}
<MI 22e2c MOVE.B (A7)+,D0> Δ+2 {[«4""»]|[«4""»]}
<MI 22e2e NEG.B D0> {[«4""»]|[«4""»]}
<MI 22e30 ADDQ.B #0x1,D0> {[«4""»]|[«4""»]}
<POP 22e32-22e34 StackAdj> Δ+8 {}
<MI 22e34 EXTB.W D0> {}
<POP 0x22e36 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 22e38 MOVE.B D0,D6> {}
<POP 22e3a-22e54 Naked> Σ0 →0x22c66 ←0x22c86 ←0x22e04
<MI 22e3a CLR.L D0> {}
<MI 22e3c MOVE.W (A6-0x90),D0> {}
<MI 22e3e SUBQ.L #0x1,D0> {}
<MI 22e40 ADDI.L #0x00000800,D0> {}
<MI 22e46 ANDI.L #0x000007ff,D0> {}
<MI 22e4c MOVE.W D0,(A6-0x90)> {}
<MI 22e4e SUBQ.L #0x1,D7> {}
<MI 22e50 BRA 0x22c66> {}
<POP 22e54-22e5c Epilogue> Σ0 ←0x22c66 ←0x22c6c
@ 22e5c
<LVAR -0x004 @>
<POP 22e5c-22f0a Body>
<POP 22e5c-22e72 Prologue> Σ0 ↓
<POP 22e72-22e7e RegCacheLoad> Σ0 ↓
<POP 22e7e-22eb2 Naked> Σ0 Δ-18 ↓ →0x22eea
<Blob 0x22e7e [18] @> Δ-18 {[«18""»]}
<POP 22e90-22e92 StackAdj> Δ-6 {[«18""»]|[-6-]}
<Lit 0x22e92 17> {[«18""»]|[-2-]|[$$Update log header]}
<POP 22ea2-22ea4 StackAdj> Δ-2 {[«18""»]|[-2-]|[$$Update log header]|[-2-]}
<POP 22ea4-22ea5 StackAdj> Δ+2 {[«18""»]|[-2-]|[$$Update log header]}
<Const 0x22ea5 0x1.2> Δ-2 {[«18""»]|[-2-]|[$$Update log header]|[#1]}
<Call 0x22ea6 0x103f0> {[«18""»]|[-2-]|[$$Update log header]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 22eac-22eae StackAdj> Δ+6 {[«18""»]|[-2-]}
<MI 22eae TST.B (A7)+> Δ+2 {[«18""»]}
<MI 22eb0 BEQ 0x22eea> {[«18""»]}
<POP 22eb2-22eea Naked> Σ-18 ↓
<MI 22eb2 MOVE.W 0x232da,0x232e0> {[-18-]}
<Const 0x22ebc 0x232dc.4> Δ-4 {[-18-]|[##144092]}
<Call 0x22ec2 0x10304> {[-18-]|[##144092]}
GetRtc() : TimeStamp
<POP 22ec8-22ec9 StackAdj> Δ+4 {[-18-]}
<Blob 0x22ec9 [4] 0x23ada> Δ-4 {[-18-]|[«4»]}
<MI 22eca CLR.W -(A7)> Δ-2 {[-18-]|[«4»]|[#0]}
<MI 22ecc CLR.W -(A7)> Δ-2 {[-18-]|[«4»]|[#0]|[#0]}
<Const 0x22ece 0x200.2> Δ-2 {[-18-]|[«4»]|[#0]|[#0]|[#512]}
<Const 0x22ed2 0x2.2> Δ-2 {[-18-]|[«4»]|[#0]|[#0]|[#512]|[#2]}
<MI 22ed4 LEA.L 0x232d8,A0> {[-18-]|[«4»]|[#0]|[#0]|[#512]|[#2]}
<MI 22eda MOVE.L A0,-(A7)> Δ-4 {[-18-]|[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x22edc <LVAR -0x004 @>> Δ-4 {[-18-]|[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-4]}
<Call 0x22ee0 0x10388> {[-18-]|[«4»]|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-4]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 22ee6-22eea StackAdj> Δ+20 {[-18-]}
<POP 22eea-22f02 Naked> Σ-18 Δ+18 ↓ ←0x22e7e
<POP 22eea-22eec StackAdj> Δ+16 {[-2-]}
<MI 22eec CLR.B (A7)> {[-2-]}
<Const 0x22eee 0x2.2> Δ-2 {[-2-]|[#2]}
<Const 0x22ef0 0x1.4> Δ-4 {[-2-]|[#2]|[##1]}
<Pointer.fp 0x22ef4 <LVAR -0x004 @>> Δ-4 {[-2-]|[#2]|[##1]|[@@-4]}
<Const 0x22ef8 0x23ada.4> Δ-4 {[-2-]|[#2]|[##1]|[@@-4]|[##146138]}
<Call 0x22efa 0x1038c> {[-2-]|[#2]|[##1]|[@@-4]|[##146138]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 22f00-22f02 StackAdj> Δ+16 {}
<POP 22f02-22f0a Epilogue> Σ0
@ 22f0a
<LVAR 0x008 4(r)>
<LVAR -0x406 @>
<LVAR -0x40a @ 4(r)>
<LVAR -0x410 @>
<LVAR -0x414 @>
<POP 22f0a-2306a Body>
<POP 22f0a-22f20 Prologue> Σ0 ↓
<POP 22f20-22f32 RegCacheLoad> Σ0 ↓
<POP 22f32-22f62 Naked> Σ0 ↓ →0x22f96
<Blob 0x22f32 [10] @> Δ-10 {[«10""»]}
<POP 22f3e-22f40 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x22f40 10> {[«10""»]|[$$INITIALIZE]}
<MI 22f4c MOVEA.L (A7)+,A4> Δ+4 {[«10""»]}
<POP 22f4e-22f50 StackAdj> Δ+4 {[-6-]}
<MI 22f50 MOVE.L A4,(A7)> {[-2-]|[4, 'A4']}
<MI 22f52 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-2-]|[4, 'A4']|[4, '(A6+0x8)']}
<Call 0x22f56 0x102c8> {[-2-]|[4, 'A4']|[4, '(A6+0x8)']}
StringEqual(a, b : String) : Byte
<POP 22f5c-22f5e StackAdj> Δ+8 {[-2-]}
<MI 22f5e TST.B (A7)+> Δ+2 {}
<MI 22f60 BNE 0x22f96> {}
<POP 22f62-22f96 Naked> Σ0 →0x23054
<Blob 0x22f62 [36] @> Δ-36 {[«36""»]}
<POP 22f6e-22f70 StackAdj> Δ-8 {[«36""»]|[-8-]}
<Lit 0x22f70 36> {[«36""»]|[-4-]|[$$Extraneous input on command line =>_]}
<POP 22f7c-22f7e StackAdj> Δ-4 {[«36""»]|[-4-]|[$$Extraneous input on command line =>_]|[-4-]}
<MI 22f7e MOVE.L (A6+0x8),(A7)> {[«36""»]|[-4-]|[$$Extraneous input on command line =>_]|[4, '(A6+0x8)']}
<Call 0x22f82 0x102d0> {[«36""»]|[-4-]|[$$Extraneous input on command line =>_]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 22f88-22f8a StackAdj> Δ+8 {[«36""»]|[-4-]}
<Call 0x22f8a 0x103e0> {[«36""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22f90-22f92 StackAdj> Δ+40 {}
<MI 22f92 BRA 0x23054> {}
<POP 22f96-22fc0 Naked> Σ0 Δ-40 ↓ →0x23052 ←0x22f32
<Blob 0x22f96 [40] @> Δ-40 {[«40""»]}
<POP 22fa2-22fa4 StackAdj> Δ-6 {[«40""»]|[-6-]}
<Lit 0x22fa4 40> {[«40""»]|[-2-]|[$$Do you really want to initialize the LOG]}
<POP 22fae-22fb0 StackAdj> Δ-2 {[«40""»]|[-2-]|[$$Do you really want to initialize the LOG]|[-2-]}
<MI 22fb0 CLR.B (A7)> {[«40""»]|[-2-]|[$$Do you really want to initialize the LOG]|[-2-]}
<Call 0x22fb2 0x103f0> {[«40""»]|[-2-]|[$$Do you really want to initialize the LOG]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 22fb8-22fba StackAdj> Δ+6 {[«40""»]|[-2-]}
<MI 22fba TST.B (A7)+> Δ+2 {[«40""»]}
<MI 22fbc BEQ 0x23052> {[«40""»]}
<POP 22fc0-22ffa Naked> Σ-40 ↓
<Blob 0x22fc0 [10] @> Δ-10 {[-40-]|[«10""»]}
<POP 22fd0-22fd2 StackAdj> Δ-4 {[-40-]|[«10""»]|[-4-]}
<Lit 0x22fd2 9> {[-40-]|[«10""»]|[$$ERROR_LOG]}
<POP 22fde-22fe0 StackAdj> Δ-2 {[-40-]|[«10""»]|[$$ERROR_LOG]|[-2-]}
<MI 22fe0 CLR.B (A7)> {[-40-]|[«10""»]|[$$ERROR_LOG]|[-2-]}
<Const 0x22fe2 0x2.2> Δ-2 {[-40-]|[«10""»]|[$$ERROR_LOG]|[-2-]|[#2]}
<Const 0x22fe4 0x0.4> Δ-4 {[-40-]|[«10""»]|[$$ERROR_LOG]|[-2-]|[#2]|[##0]}
<Pointer.fp 0x22fe8 <LVAR -0x410 @>> Δ-4 {[-40-]|[«10""»]|[$$ERROR_LOG]|[-2-]|[#2]|[##0]|[@@-1040]}
<Pointer.fp 0x22fea <LVAR -0x40a @ 4(r)>> Δ-4 {[-40-]|[«10""»]|[$$ERROR_LOG]|[-2-]|[#2]|[##0]|[@@-1040]|[@@-1034]}
<Call 0x22fee 0x10380> {[-40-]|[«10""»]|[$$ERROR_LOG]|[-2-]|[#2]|[##0]|[@@-1040]|[@@-1034]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 22ff4-22ff8 StackAdj> Δ+30 {[-40-]}
<MI 22ff8 MOVEQ.L #0x00,D7> {[-40-]}
<POP 22ffa-2301a Naked> Σ-40 ↓ →0x22ffa ←0x22ffa
<POP 0x22ffa LimitCheck 0x0 ≤ D7 ≤ 0x1ff> {[-40-]}
<MI 23004 MOVE.L D7,D0> {[-40-]}
<MI 23006 ASL.L #0x1,D0> {[-40-]}
<MI 23008 LEA.L (A6-0x414),A0> {[-40-]}
<MI 2300c CLR.W (A0+D0.L+#0xe)> {[-40-]}
<MI 23010 ADDQ.L #0x1,D7> {[-40-]}
<MI 23012 CMPI.L #0x000001ff,D7> {[-40-]}
<MI 23018 BLE 0x22ffa> {[-40-]}
<POP 2301a-23052 Naked> Σ-40 ↓
<MI 2301a MOVE.L (A6-0x40a),-(A7)> Δ-4 {[-40-]|[4, '(A6-0x40a)']}
<MI 2301e CLR.W -(A7)> Δ-2 {[-40-]|[4, '(A6-0x40a)']|[#0]}
<MI 23020 CLR.W -(A7)> Δ-2 {[-40-]|[4, '(A6-0x40a)']|[#0]|[#0]}
<Const 0x23022 0x200.2> Δ-2 {[-40-]|[4, '(A6-0x40a)']|[#0]|[#0]|[#512]}
<Const 0x23026 0x2.2> Δ-2 {[-40-]|[4, '(A6-0x40a)']|[#0]|[#0]|[#512]|[#2]}
<MI 23028 LEA.L (A6-0x406),A0> {[-40-]|[4, '(A6-0x40a)']|[#0]|[#0]|[#512]|[#2]}
<MI 2302c MOVE.L A0,-(A7)> Δ-4 {[-40-]|[4, '(A6-0x40a)']|[#0]|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x2302e <LVAR -0x410 @>> Δ-4 {[-40-]|[4, '(A6-0x40a)']|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-1040]}
<Call 0x23030 0x10388> {[-40-]|[4, '(A6-0x40a)']|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-1040]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 23036-2303a StackAdj> Δ+18 {[-40-]|[-2-]}
<MI 2303a CLR.B (A7)> {[-40-]|[-2-]}
<Const 0x2303c 0x2.2> Δ-2 {[-40-]|[-2-]|[#2]}
<Const 0x2303e 0x1.4> Δ-4 {[-40-]|[-2-]|[#2]|[##1]}
<Pointer.fp 0x23042 <LVAR -0x410 @>> Δ-4 {[-40-]|[-2-]|[#2]|[##1]|[@@-1040]}
<Pointer.fp 0x23044 <LVAR -0x40a @ 4(r)>> Δ-4 {[-40-]|[-2-]|[#2]|[##1]|[@@-1040]|[@@-1034]}
<Call 0x23048 0x1038c> {[-40-]|[-2-]|[#2]|[##1]|[@@-1040]|[@@-1034]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 2304e-23052 StackAdj> Δ+16 {[-40-]}
<POP 23052-23054 Naked> Σ-40 Δ+40 ↓ ←0x22f96
<POP 23052-23054 StackAdj> Δ+40 {}
<POP 23054-23062 Naked> Σ0 ↓ ←0x22f62
<MI 23054 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x23056 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x2305a 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 23060-23062 StackAdj> Δ+6 {}
<POP 23062-2306a Epilogue> Σ0
@ 2306a
START
<POP 2306a--0001 Body> Δ+4
<POP 2306a-23074 Prologue> Σ0
<POP 23074-2307a RegCacheLoad> Σ0 ↓
<POP 2307a-23090 Naked> Σ0 ↓ →0x23098
<Call 0x2307a 0x10398> {}
FSCALL_10398
<POP 23080-23082 StackAdj> Δ-4 {[-4-]}
<Call 0x23082 0x103c4> {[-4-]}
GetArgv() : String
<MI 23088 MOVE.L (A7)+,0x23ade> Δ+4 {}
<MI 2308a MOVEA.L 0x23ade,A0> {}
<MI 2308c TST.W (A0)> {}
<MI 2308e BEQ 0x23098> {}
<POP 23090-23098 Naked> Σ0 Δ-4 →0x230a0
<Blob 0x23090 [4] 0x23ade> Δ-4 {[«4»]}
<Call 0x23092 0x22f0a> {[«4»]}
<MI 23096 BRA 0x230a0> {[«4»]}
<POP 23098-230a0 Naked> Σ0 Δ-4 ↓ ←0x2307a
<Const 0x23098 0x23ade.4> Δ-4 {[##146142]}
<Call 0x2309a 0x102bc> {[##146142]}
FreeString(VAR a : String)
<POP 230a0-230c4 Naked> Σ-4 Δ+4 ↓ ←0x23090
<POP 230a0-230a2 StackAdj> Δ+4 {}
<MI 230a2 MOVE.W #0x4000,0x23ad8> {}
<Call 0x230aa 0x22756> {}
<Call 0x230ae 0x22a54> {}
<Call 0x230b2 0x22e5c> {}
<MI 230b6 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x230b8 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x230bc 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 230c2-230c4 StackAdj> Δ+6 {}
<POP 230c4-230ca Naked> Σ0
<Call 0x230c4 0x10284> {}
?exit
@ 230d8
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 230d8-23140 Body>
<POP 230d8-230ee Prologue> Σ0 ↓
<POP 230ee-23138 Naked> Σ0 ↓
<Blob 0x230ee [14] @> Δ-14 {[«14""»]}
<Const 0x230fa 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 230fe-23100 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x23100 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 23112-23114 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 23114 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 23118 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2311a EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2311c MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x2311e 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 23124-23126 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x23126 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2312c-2312e StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x2312e 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 23134-23138 StackAdj> Δ+20 {}
<POP 23138-23140 Epilogue> Σ0
@ 23194
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 23194-232d0 Body>
<POP 23194-231aa Prologue> Σ0 ↓
<POP 231aa-231c0 RegCacheLoad> Σ0 ↓
<POP 231c0-23220 Naked> Σ0 ↓ →0x23268
<Call 0x231c0 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x231c6 [18] @> Δ-18 {[«18""»]}
<POP 231d2-231d4 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x231d4 18> {[«18""»]|[$$Experiment error :]}
<Call 0x231e0 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 231e2-231e3 StackAdj> Δ+22 ↓ {}
<Blob 0x231e3 [14] @> Δ-14 {[«14""»]}
<POP 231f2-231f4 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x231f4 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 231fe-23200 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 23200 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x23204 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 2320a-2320c StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x2320c 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 23212-23214 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x23214 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23216-23218 StackAdj> Δ+18 {}
<MI 23218 MOVEA.L (A6+0xa),A0> {}
<MI 2321c CMPA.W #0x01,A0> {}
<MI 2321e BEQ 0x23268> {}
<POP 23220-23268 Naked> Σ0 ↓
<Blob 0x23220 [14] @> Δ-14 {[«14""»]}
<Blob 0x23230 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 23240-23242 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x23242 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 2324c-2324e StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x2324e> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x2324e 12> Δ-4
<Const 0x23252 0x1.2> Δ-2
<Const 0x23254 0x1e.2> Δ-2
<Call 0x23256 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23258-2325a StackAdj> Δ+8
<Call 0x2325a 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 23260-23262 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x23262 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 23264-23268 StackAdj> Δ+48 {}
<POP 23268-232c8 Naked> Σ0 ↓ ←0x231c0
<Blob 0x23268 [14] @> Δ-14 {[«14""»]}
<POP 23278-2327a StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x2327a 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 23284-23286 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 23286 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x2328a 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 23290-23292 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x23292 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 23298-2329a StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2329a 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2329c-2329d StackAdj> Δ+18 ↓ {}
<Blob 0x2329d [24] @> Δ-24 {[«24""»]}
<Const 0x232ac 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 232b0-232b2 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x232b2 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x232c0 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 232c6-232c8 StackAdj> Δ+30 {}
<POP 232c8-232d0 Epilogue> Σ0
00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ; import all
00020000 ; import kind.program
00020000 ; no ident.a717968255c7a521
00020000 ; --------------------------------------------------------------------------------------
00020000 stack.top:
00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END
00020004 00 02 30 6a | 0j | .CODE START
00020008 00 01 02 88 | | .CODE FSCALL_10288
0002000c heap.top:
0002000c 00 02 3a f4 | : | .PTR 0x23af4
00020010 code.end:
00020010 00 02 32 d0 | 2 | .PTR 0x232d0
00020014 00 00 00 00 | | .CONST 0x00000000
00020018 programfailurehandler:
00020018 00 02 30 d8 | 0 | .CODE PROG_FAIL
0002001c experimentfailurehandler:
0002001c 00 02 31 94 | 1 | .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 4c 4f |@(#)LO | .XXX[0x6]
00020110 47 2c 31 2e 31 2c 39 32 |G,1.1,92| .XXX[0x20]
00020118 2f 30 31 2f 32 37 2c 31 |/01/27,1|
00020120 32 3a 33 34 3a 35 36 5c |2:34:56\|
00020128 44 69 73 6b 20 20 20 20 |Disk |
00020130 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00020140 20 20 20 20 20 20 54 61 | Ta| .XXX[0x10]
00020148 70 65 20 20 20 20 20 20 |pe |
00020150 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00020160 20 20 20 20 4d 61 63 68 | Mach| .XXX[0x78]
00020168 69 6e 65 20 63 72 61 73 |ine cras|
00020170 68 2c 20 49 2f 4f 20 41 |h, I/O A|
00020178 64 61 70 74 6f 72 20 20 |daptor |
00020180 20 20 4d 61 63 68 69 6e | Machin|
00020188 65 20 63 72 61 73 68 2c |e crash,|
00020190 20 52 31 30 30 30 20 20 | R1000 |
00020198 20 20 20 20 20 20 20 20 | |
000201a0 4d 61 63 68 69 6e 65 20 |Machine |
000201a8 63 72 61 73 68 2c 20 49 |crash, I|
000201b0 2f 4f 20 50 72 6f 63 65 |/O Proce|
000201b8 73 73 6f 72 20 20 46 52 |ssor FR|
000201c0 55 20 44 69 61 67 6e 6f |U Diagno|
000201c8 73 74 69 63 20 20 20 20 |stic |
000201d0 20 20 20 20 20 20 20 20 | |
000201d8 20 20 20 20 | | .XXX[0x4]
000201dc 53 70 61 72 |Spar | .XXX[0x4]
000201e0 65 20 35 20 20 20 20 20 |e 5 | .XXX[0x8]
000201e8 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
000201f8 20 20 53 70 61 72 65 20 | Spare | .XXX[0x10]
00020200 36 20 20 20 20 20 20 20 |6 |
00020208 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00020218 53 70 61 72 65 20 37 20 |Spare 7 | .XXX[0x8]
00020220 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00020230 20 20 20 20 20 20 53 70 | Sp| .XXX[0x10]
00020238 61 72 65 20 38 20 20 20 |are 8 |
00020240 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00020250 20 20 20 20 53 70 61 72 | Spar| .XXX[0x10]
00020258 65 20 39 20 20 20 20 20 |e 9 |
00020260 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00020270 20 20 53 70 61 72 65 20 | Spare | .XXX[0x10]
00020278 31 30 20 20 20 20 20 20 |10 |
00020280 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00020290 53 70 61 72 65 20 31 31 |Spare 11| .XXX[0x8]
00020298 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
000202a8 20 20 20 20 20 20 | | .BLANK 20[0x6]
000202ae 53 70 |Sp | .XXX[0x2]
000202b0 61 72 65 20 31 32 20 20 |are 12 | .XXX[0x8]
000202b8 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
000202c8 20 20 20 20 53 70 61 72 | Spar| .XXX[0x10]
000202d0 65 20 31 33 20 20 20 20 |e 13 |
000202d8 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
000202e8 20 20 53 70 61 72 65 20 | Spare | .XXX[0x10]
000202f0 31 34 20 20 20 20 20 20 |14 |
000202f8 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00020308 6e 6f 20 52 31 30 30 30 |no R1000| .XXX[0x18]
00020310 20 66 61 75 6c 74 20 66 | fault f|
00020318 6f 75 6e 64 20 20 20 20 |ound |
00020320 20 20 20 20 20 20 20 20 | | .BLANK 20[0x18]
00020338 20 20 52 31 30 30 30 20 | R1000 | .XXX[0x20]
00020340 48 61 6c 74 20 3d 3e 20 |Halt => |
00020348 53 79 73 74 65 6d 20 65 |System e|
00020350 72 72 6f 72 20 20 20 20 |rror |
00020358 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00020368 20 20 20 20 52 31 30 30 | R100| .XXX[0x30]
00020370 30 20 48 61 6c 74 20 3d |0 Halt =|
00020378 3e 20 49 4f 50 20 68 61 |> IOP ha|
00020380 72 64 77 61 72 65 20 65 |rdware e|
00020388 72 72 6f 72 20 20 20 20 |rror |
00020390 20 20 20 20 20 20 20 20 | |
00020398 20 20 20 20 20 20 | | .XXX[0x6]
0002039e 52 31 |R1 | .XXX[0x2]
000203a0 30 30 30 20 48 61 6c 74 |000 Halt| .XXX[0x20]
000203a8 20 3d 3e 20 49 4f 50 20 | => IOP |
000203b0 73 6f 66 74 77 61 72 65 |software|
000203b8 20 65 72 72 6f 72 20 20 | error |
000203c0 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
000203d0 52 31 30 30 30 20 48 61 |R1000 Ha| .XXX[0x30]
000203d8 6c 74 20 3d 3e 20 52 31 |lt => R1|
000203e0 30 30 30 20 68 61 72 64 |000 hard|
000203e8 77 61 72 65 20 65 72 72 |ware err|
000203f0 6f 72 20 20 20 20 20 20 |or |
000203f8 20 20 20 20 20 20 20 20 | |
00020400 20 20 | | .XXX[0x2]
00020402 52 31 30 30 30 20 |R1000 | .XXX[0x6]
00020408 48 61 6c 74 20 3d 3e 20 |Halt => | .XXX[0xc0]
00020410 4d 75 6c 74 69 2d 62 69 |Multi-bi|
00020418 74 20 52 31 30 30 30 20 |t R1000 |
00020420 6d 65 6d 6f 72 79 20 65 |memory e|
00020428 72 72 6f 72 20 20 20 20 |rror |
00020430 20 20 20 20 52 31 30 30 | R100|
00020438 30 20 48 61 6c 74 20 3d |0 Halt =|
00020440 3e 20 52 31 30 30 30 20 |> R1000 |
00020448 53 59 53 42 55 53 20 68 |SYSBUS h|
00020450 61 72 64 77 61 72 65 20 |ardware |
00020458 65 72 72 6f 72 20 20 20 |error |
00020460 20 20 20 20 20 20 52 31 | R1|
00020468 30 30 30 20 48 61 6c 74 |000 Halt|
00020470 20 3d 3e 20 52 31 30 30 | => R100|
00020478 30 20 6d 69 63 72 6f 63 |0 microc|
00020480 6f 64 65 20 65 72 72 6f |ode erro|
00020488 72 20 20 20 20 20 20 20 |r |
00020490 20 20 20 20 20 20 20 20 | |
00020498 52 31 30 30 30 20 48 61 |R1000 Ha|
000204a0 6c 74 20 3d 3e 20 52 31 |lt => R1|
000204a8 30 30 30 20 73 6f 66 74 |000 soft|
000204b0 77 61 72 65 20 65 72 72 |ware err|
000204b8 6f 72 20 20 20 20 20 20 |or |
000204c0 20 20 20 20 20 20 20 20 | |
000204c8 20 20 | | .XXX[0x2]
000204ca 52 31 30 30 30 20 |R1000 | .XXX[0x6]
000204d0 48 61 6c 74 20 3d 3e 20 |Halt => | .XXX[0x48]
000204d8 52 31 30 30 30 20 73 79 |R1000 sy|
000204e0 73 74 65 6d 20 73 68 75 |stem shu|
000204e8 74 64 6f 77 6e 20 20 20 |tdown |
000204f0 20 20 20 20 20 20 20 20 | |
000204f8 20 20 20 20 52 31 30 30 | R100|
00020500 30 20 48 61 6c 74 20 3d |0 Halt =|
00020508 3e 20 52 31 30 30 30 20 |> R1000 |
00020510 63 72 61 73 68 20 20 20 |crash |
00020518 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00020528 20 20 20 20 20 20 52 31 | R1| .XXX[0x50]
00020530 30 30 30 20 48 61 6c 74 |000 Halt|
00020538 20 3d 3e 20 52 65 66 72 | => Refr|
00020540 65 73 68 20 6d 61 63 68 |esh mach|
00020548 69 6e 65 20 63 68 65 63 |ine chec|
00020550 6b 20 20 20 20 20 20 20 |k |
00020558 20 20 20 20 20 20 20 20 | |
00020560 52 31 30 30 30 20 6d 61 |R1000 ma|
00020568 63 68 69 6e 65 20 63 68 |chine ch|
00020570 65 63 6b 20 20 20 20 20 |eck |
00020578 20 20 20 20 20 20 20 20 | | .BLANK 20[0x18]
00020590 20 20 52 31 30 30 30 20 | R1000 | .XXX[0x20]
00020598 48 61 6c 74 20 3d 3e 20 |Halt => |
000205a0 55 6e 6b 6e 6f 77 6e 20 |Unknown |
000205a8 68 61 6c 74 20 20 20 20 |halt |
000205b0 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
000205c0 20 20 20 20 43 53 31 3d | CS1=| .XXX[0x38]
000205c8 20 20 20 43 53 32 3d 20 | CS2= |
000205d0 20 44 53 3d 20 20 20 45 | DS= E|
000205d8 52 31 3d 20 20 45 52 32 |R1= ER2|
000205e0 3d 20 20 45 43 31 3d 20 |= EC1= |
000205e8 20 45 43 32 3d 20 20 44 | EC2= D|
000205f0 43 3d 20 20 20 44 41 3d |C= DA=|
000205f8 20 20 | | .XXX[0x2]
000205fa 53 70 65 63 69 61 6c 20 |Special | .TXT 'Special condition '
0002060c 54 72 61 6e 73 66 65 72 |Transfer| .TXT 'Transfer error'
0002061a 44 72 69 76 65 20 69 73 |Drive is| .TXT 'Drive is not available'
00020630 44 72 69 76 65 20 69 73 |Drive is| .TXT 'Drive is not ready'
00020642 44 61 74 61 20 6c 61 74 |Data lat| .TXT 'Data late '
0002064c 57 72 69 74 65 20 63 68 |Write ch| .TXT 'Write check error '
0002065e 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent drive'
00020670 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existent memory '
00020684 50 72 6f 67 72 61 6d 20 |Program | .TXT 'Program error '
00020692 4d 69 73 73 65 64 20 74 |Missed t| .TXT 'Missed transfer '
000206a2 49 6e 70 75 74 20 6e 6f |Input no| .TXT 'Input not ready '
000206b2 42 75 73 20 61 64 64 72 |Bus addr| .TXT 'Bus address increment inhibit '
000206d0 50 6f 73 69 74 69 6f 6e |Position| .TXT 'Positioning in progress '
000206e8 4d 65 64 69 75 6d 20 6e |Medium n| .TXT 'Medium not on-line'
000206fa 57 72 69 74 |Writ | .TXT 'Writ'
000206fe 65 20 6c 6f |e lo | .TXT 'e lo'
00020702 63 6b 65 64 |cked | .TXT 'cked'
00020706 4c 61 73 74 20 73 65 63 |Last sec| .TXT 'Last sector transfered'
0002071c 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not present '
0002072e 44 72 69 76 65 20 6e 6f |Drive no| .TXT 'Drive not ready '
0002073e 56 6f 6c 75 |Volu | .TXT 'Volu'
00020742 6d 65 20 6e |me n | .TXT 'me n'
00020746 6f 74 20 76 |ot v | .TXT 'ot v'
0002074a 61 6c 69 64 |alid | .TXT 'alid'
0002074e 44 61 74 61 |Data | .TXT 'Data'
00020752 20 63 68 65 | che | .TXT ' che'
00020756 63 6b 20 28 |ck ( | .TXT 'ck ('
0002075a 45 43 43 29 |ECC) | .TXT 'ECC)'
0002075e 55 6e |Un | .TXT 'Un'
00020760 73 61 |sa | .TXT 'sa'
00020762 66 65 |fe | .TXT 'fe'
00020764 4f 70 65 72 61 74 69 6f |Operatio| .TXT 'Operation incomplete'
00020778 44 72 69 76 65 20 74 69 |Drive ti| .TXT 'Drive timing error'
0002078a 57 72 69 74 |Writ | .TXT 'Writ'
0002078e 65 20 6c 6f |e lo | .TXT 'e lo'
00020792 63 6b 20 65 |ck e | .TXT 'ck e'
00020796 72 72 6f 72 |rror | .TXT 'rror'
0002079a 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid address error '
000207b0 41 64 64 72 65 73 73 20 |Address | .TXT 'Address overflow error'
000207c6 48 65 61 64 |Head | .TXT 'Head'
000207ca 65 72 20 43 |er C | .TXT 'er C'
000207ce 52 43 20 65 |RC e | .TXT 'RC e'
000207d2 72 72 6f 72 |rror | .TXT 'rror'
000207d6 48 65 61 64 65 72 20 63 |Header c| .TXT 'Header compare error'
000207ea 48 61 72 64 20 45 43 43 |Hard ECC| .TXT 'Hard ECC error'
000207f8 46 6f 72 6d |Form | .TXT 'Form'
000207fc 61 74 20 65 |at e | .TXT 'at e'
00020800 72 72 6f 72 |rror | .TXT 'rror'
00020804 52 65 67 69 73 74 65 72 |Register| .TXT 'Register modification refused '
00020822 49 6c 6c 65 |Ille | .TXT 'Ille'
00020826 67 61 6c 20 |gal | .TXT 'gal '
0002082a 66 75 6e 63 |func | .TXT 'func'
0002082e 74 69 6f 6e |tion | .TXT 'tion'
00020832 42 61 64 20 62 6c 6f 63 |Bad bloc| .TXT 'Bad block '
0002083c 53 65 65 6b 20 69 6e 63 |Seek inc| .TXT 'Seek incomplete '
0002084c 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid command (volume not valid, off-line, or off cylinder) '
0002088a 44 65 76 69 |Devi | .TXT 'Devi'
0002088e 63 65 20 63 |ce c | .TXT 'ce c'
00020892 68 65 63 6b |heck | .TXT 'heck'
00020896 55 6e 69 74 20 3a 5f 20 |Unit :_ | .TXT 'Unit :_ '
0002089e 4e 6f |No | .XXX[0x2]
000208a0 72 6d 61 6c 20 20 20 20 |rmal | .XXX[0x8]
000208a8 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
000208b8 20 20 20 20 41 74 74 65 | Atte| .XXX[0x10]
000208c0 6e 74 69 6f 6e 20 20 20 |ntion |
000208c8 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
000208d8 20 20 54 61 70 65 20 73 | Tape s| .XXX[0xd0]
000208e0 74 61 74 75 73 20 61 6c |tatus al|
000208e8 65 72 74 20 20 20 20 20 |ert |
000208f0 20 20 20 20 20 20 20 20 | |
000208f8 46 75 6e 63 74 69 6f 6e |Function|
00020900 20 72 65 6a 65 63 74 20 | reject |
00020908 20 20 20 20 20 20 20 20 | |
00020910 20 20 20 20 20 20 52 65 | Re|
00020918 63 6f 76 65 72 61 62 6c |coverabl|
00020920 65 20 65 72 72 6f 72 20 |e error |
00020928 28 6f 66 66 20 62 79 20 |(off by |
00020930 6f 6e 65 29 52 65 63 6f |one)Reco|
00020938 76 65 72 61 62 6c 65 20 |verable |
00020940 65 72 72 6f 72 20 20 20 |error |
00020948 20 20 20 20 20 20 20 20 | |
00020950 20 20 55 6e 72 65 63 6f | Unreco|
00020958 76 65 72 61 62 6c 65 20 |verable |
00020960 65 72 72 6f 72 20 20 20 |error |
00020968 20 20 20 20 20 20 20 20 | |
00020970 46 61 74 61 6c 20 73 75 |Fatal su|
00020978 62 73 79 73 74 65 6d 20 |bsystem |
00020980 65 72 72 6f 72 20 20 20 |error |
00020988 20 20 20 20 20 20 53 52 | SR|
00020990 3d 20 20 48 44 3d 20 50 |= HD= P|
00020998 4c 3d 20 52 43 3d 20 58 |L= RC= X|
000209a0 30 3d 20 58 31 3d 20 58 |0= X1= X|
000209a8 32 3d 20 58 33 3d |2= X3= | .XXX[0x6]
000209ae 53 70 65 63 69 61 6c 20 |Special | .TXT 'Special condition '
000209c0 55 4e 49 42 55 53 20 70 |UNIBUS p| .TXT 'UNIBUS parity error '
000209d4 52 65 67 69 73 74 65 72 |Register| .TXT 'Register modification refused '
000209f2 4e 6f 6e 2d 65 78 69 73 |Non-exis| .TXT 'Non-existant memory '
00020a06 4e 65 65 64 20 62 75 66 |Need buf| .TXT 'Need buffer address '
00020a1a 53 75 62 73 79 73 74 65 |Subsyste| .TXT 'Subsystem ready '
00020a2a 4f 66 66 2d |Off- | .TXT 'Off-'
00020a2e 6c 69 6e 65 |line | .TXT 'line'
00020a32 54 61 70 65 20 6d 61 72 |Tape mar| .TXT 'Tape mark '
00020a3c 52 65 63 6f 72 64 20 6c |Record l| .TXT 'Record length short '
00020a50 4c 6f 67 69 63 61 6c 20 |Logical | .TXT 'Logical end of tape '
00020a64 52 65 63 6f 72 64 20 6c |Record l| .TXT 'Record length long'
00020a76 57 72 69 74 |Writ | .TXT 'Writ'
00020a7a 65 20 6c 6f |e lo | .TXT 'e lo'
00020a7e 63 6b 20 65 |ck e | .TXT 'ck e'
00020a82 72 72 6f 72 |rror | .TXT 'rror'
00020a86 4e 6f 6e 2d 65 78 65 63 |Non-exec| .TXT 'Non-executable function '
00020a9e 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal command '
00020aae 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal address '
00020abe 46 6f 72 6d 61 74 74 65 |Formatte| .TXT 'Formatter busy'
00020acc 4f 6e 2d 6c 69 6e 65 20 |On-line | .TXT 'On-line '
00020ad4 49 6e 74 65 |Inte | .TXT 'Inte'
00020ad8 72 72 75 70 |rrup | .TXT 'rrup'
00020adc 74 20 65 6e |t en | .TXT 't en'
00020ae0 61 62 6c 65 |able | .TXT 'able'
00020ae4 56 6f 6c 75 |Volu | .TXT 'Volu'
00020ae8 6d 65 20 63 |me c | .TXT 'me c'
00020aec 68 65 63 6b |heck | .TXT 'heck'
00020af0 50 68 61 73 65 20 65 6e |Phase en| .TXT 'Phase encoded '
00020afe 57 72 69 74 |Writ | .TXT 'Writ'
00020b02 65 20 6c 6f |e lo | .TXT 'e lo'
00020b06 63 6b 65 64 |cked | .TXT 'cked'
00020b0a 42 4f |BO | .TXT 'BO'
00020b0c 54 20 |T | .XXX[0x2]
00020b0e 45 4f |EO | .TXT 'EO'
00020b10 54 20 |T | .XXX[0x2]
00020b12 44 61 74 61 20 6c 61 74 |Data lat| .TXT 'Data late '
00020b1c 43 6f 72 72 65 63 74 61 |Correcta| .TXT 'Correctable error '
00020b2e 55 6e 63 6f 72 72 65 63 |Uncorrec| .TXT 'Uncorrectable error '
00020b42 4f 70 65 72 61 74 69 6f |Operatio| .TXT 'Operation in progress '
00020b58 4f 70 65 72 61 74 69 6f |Operatio| .TXT 'Operation incomplete'
00020b6c 52 65 76 65 72 73 65 20 |Reverse | .TXT 'Reverse '
00020b74 52 65 76 65 |Reve | .TXT 'Reve'
00020b78 72 73 65 20 |rse | .TXT 'rse '
00020b7c 69 6e 74 6f |into | .TXT 'into'
00020b80 20 42 4f 54 | BOT | .TXT ' BOT'
00020b84 54 65 72 6d 69 6e 61 74 |Terminat| .TXT 'Termination class :_'
00020b98 52 65 73 69 64 75 61 6c |Residual| .TXT 'Residual count :_ '
00020baa 4e 6f 20 66 75 72 74 68 |No furth| .TXT 'No further information, EMBALM failed.'
00020bd0 46 75 72 74 68 65 72 20 |Further | .TXT 'Further information may be found in crash dump, if taken. '
00020c0a 54 68 69 73 20 77 61 73 |This was| .TXT 'This was an orderly system shutdown.'
00020c2e 45 72 72 6f 72 20 6c 6f |Error lo| .TXT 'Error log entry for =>_ '
00020c46 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown R1000 error class =>_ '
00020c64 49 4f 50 5f 50 41 4e 49 |IOP_PANI| .TXT 'IOP_PANICS.ERRMESS'
00020c76 49 4f 41 5f 50 41 4e 49 |IOA_PANI| .TXT 'IOA_PANICS.ERRMESS'
00020c88 45 72 72 6f 72 20 73 70 |Error sp| .TXT 'Error specific data =>_ '
00020ca0 20 20 20 20 20 20 20 20 | | .TXT ' Error kind New Total'
00020ccc 2d 2d 2d 2d 2d 2d 2d 2d |--------| .TXT '------------------------------ ----- -----'
00020cf8 45 52 52 4f 52 5f 4c 4f |ERROR_LO| .TXT 'ERROR_LOG '
00020d02 4c 6f 67 20 6c 61 73 74 |Log last| .TXT 'Log last examined on_ '
00020d18 4c 6f 67 20 63 6f 6e 74 |Log cont| .TXT 'Log contains_ '
00020d26 20 6e 65 77 20 65 6e 74 | new ent| .TXT ' new entries,_'
00020d34 20 74 6f 74 61 6c 20 65 | total e| .TXT ' total entries. '
00020d44 45 78 61 6d 69 6e 65 20 |Examine | .TXT 'Examine only new entries, as opposed to all entries '
00020d78 43 6f 6e 74 |Cont | .TXT 'Cont'
00020d7c 69 6e 75 65 |inue | .TXT 'inue'
00020d80 45 6e 74 65 72 20 74 79 |Enter ty| .TXT 'Enter type of errors you want to see :_ '
00020da8 50 61 75 73 65 20 62 65 |Pause be| .TXT 'Pause between each error display'
00020dc8 2d 2d 2d 2d 2d 2d 2d 2d |--------| .TXT '--------------------------------------- '
00020df0 51 75 65 72 79 20 6f 70 |Query op| .TXT 'Query options are:'
00020e02 20 20 20 20 30 20 3d 3e | 0 =>| .TXT ' 0 => All error entries'
00020e1c 20 20 20 20 31 20 3d 3e | 1 =>| .TXT ' 1 => Disk error entries '
00020e38 20 20 20 20 32 20 3d 3e | 2 =>| .TXT ' 2 => Tape error entries '
00020e54 20 20 20 20 33 20 3d 3e | 3 =>| .TXT ' 3 => I/O adaptor error entries'
00020e76 20 20 20 20 34 20 3d 3e | 4 =>| .TXT ' 4 => R1000 CPU error entries'
00020e96 20 20 20 20 35 20 3d 3e | 5 =>| .TXT ' 5 => I/O Processor error entries'
00020eba 20 20 20 20 36 20 3d 3e | 6 =>| .TXT ' 6 => FRU diagnostic error entries '
00020ee0 20 6c 6f 67 20 65 6e 74 | log ent| .TXT ' log entry made on :_ '
00020ef6 4e 6f 20 66 72 75 20 73 |No fru s| .TXT 'No fru support'
00020f04 4e 6f 20 73 75 70 70 6f |No suppo| .TXT 'No support for this entry '
00020f1e 55 70 64 61 74 65 20 6c |Update l| .TXT 'Update log header '
00020f30 45 78 74 72 61 6e 65 6f |Extraneo| .TXT 'Extraneous input on command line =>_'
00020f54 44 6f 20 79 6f 75 20 72 |Do you r| .TXT 'Do you really want to initialize the LOG'
00020f7c 49 4e 49 54 49 41 4c 49 |INITIALI| .TXT 'INITIALIZE'
00020f86 45 52 52 4f 52 5f 4c 4f |ERROR_LO| .TXT 'ERROR_LOG '
00020f90 44 69 73 6b 20 20 20 20 |Disk | .XXX[0x8]
00020f98 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00020fa8 20 20 20 20 20 20 54 61 | Ta| .XXX[0x10]
00020fb0 70 65 20 20 20 20 20 20 |pe |
00020fb8 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00020fc8 20 20 20 20 4d 61 63 68 | Mach| .XXX[0x78]
00020fd0 69 6e 65 20 63 72 61 73 |ine cras|
00020fd8 68 2c 20 49 2f 4f 20 41 |h, I/O A|
00020fe0 64 61 70 74 6f 72 20 20 |daptor |
00020fe8 20 20 4d 61 63 68 69 6e | Machin|
00020ff0 65 20 63 72 61 73 68 2c |e crash,|
00020ff8 20 52 31 30 30 30 20 20 | R1000 |
00021000 20 20 20 20 20 20 20 20 | |
00021008 4d 61 63 68 69 6e 65 20 |Machine |
00021010 63 72 61 73 68 2c 20 49 |crash, I|
00021018 2f 4f 20 50 72 6f 63 65 |/O Proce|
00021020 73 73 6f 72 20 20 46 52 |ssor FR|
00021028 55 20 44 69 61 67 6e 6f |U Diagno|
00021030 73 74 69 63 20 20 20 20 |stic |
00021038 20 20 20 20 20 20 20 20 | |
00021040 20 20 20 20 | | .XXX[0x4]
00021044 53 70 61 72 |Spar | .XXX[0x4]
00021048 65 20 35 20 20 20 20 20 |e 5 | .XXX[0x8]
00021050 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00021060 20 20 53 70 61 72 65 20 | Spare | .XXX[0x10]
00021068 36 20 20 20 20 20 20 20 |6 |
00021070 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00021080 53 70 61 72 65 20 37 20 |Spare 7 | .XXX[0x8]
00021088 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00021098 20 20 20 20 20 20 53 70 | Sp| .XXX[0x10]
000210a0 61 72 65 20 38 20 20 20 |are 8 |
000210a8 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
000210b8 20 20 20 20 53 70 61 72 | Spar| .XXX[0x10]
000210c0 65 20 39 20 20 20 20 20 |e 9 |
000210c8 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
000210d8 20 20 53 70 61 72 65 20 | Spare | .XXX[0x10]
000210e0 31 30 20 20 20 20 20 20 |10 |
000210e8 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
000210f8 53 70 61 72 65 20 31 31 |Spare 11| .XXX[0x8]
00021100 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00021110 20 20 20 20 20 20 | | .BLANK 20[0x6]
00021116 53 70 |Sp | .XXX[0x2]
00021118 61 72 65 20 31 32 20 20 |are 12 | .XXX[0x8]
00021120 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00021130 20 20 20 20 53 70 61 72 | Spar| .XXX[0x10]
00021138 65 20 31 33 20 20 20 20 |e 13 |
00021140 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00021150 20 20 53 70 61 72 65 20 | Spare | .XXX[0x10]
00021158 31 34 20 20 20 20 20 20 |14 |
00021160 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00021170 6e 6f 20 52 31 30 30 30 |no R1000| .XXX[0x18]
00021178 20 66 61 75 6c 74 20 66 | fault f|
00021180 6f 75 6e 64 20 20 20 20 |ound |
00021188 20 20 20 20 20 20 20 20 | | .BLANK 20[0x18]
000211a0 20 20 52 31 30 30 30 20 | R1000 | .XXX[0x20]
000211a8 48 61 6c 74 20 3d 3e 20 |Halt => |
000211b0 53 79 73 74 65 6d 20 65 |System e|
000211b8 72 72 6f 72 20 20 20 20 |rror |
000211c0 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
000211d0 20 20 20 20 52 31 30 30 | R100| .XXX[0x30]
000211d8 30 20 48 61 6c 74 20 3d |0 Halt =|
000211e0 3e 20 49 4f 50 20 68 61 |> IOP ha|
000211e8 72 64 77 61 72 65 20 65 |rdware e|
000211f0 72 72 6f 72 20 20 20 20 |rror |
000211f8 20 20 20 20 20 20 20 20 | |
00021200 20 20 20 20 20 20 | | .XXX[0x6]
00021206 52 31 |R1 | .XXX[0x2]
00021208 30 30 30 20 48 61 6c 74 |000 Halt| .XXX[0x20]
00021210 20 3d 3e 20 49 4f 50 20 | => IOP |
00021218 73 6f 66 74 77 61 72 65 |software|
00021220 20 65 72 72 6f 72 20 20 | error |
00021228 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00021238 52 31 30 30 30 20 48 61 |R1000 Ha| .XXX[0x30]
00021240 6c 74 20 3d 3e 20 52 31 |lt => R1|
00021248 30 30 30 20 68 61 72 64 |000 hard|
00021250 77 61 72 65 20 65 72 72 |ware err|
00021258 6f 72 20 20 20 20 20 20 |or |
00021260 20 20 20 20 20 20 20 20 | |
00021268 20 20 | | .XXX[0x2]
0002126a 52 31 30 30 30 20 |R1000 | .XXX[0x6]
00021270 48 61 6c 74 20 3d 3e 20 |Halt => | .XXX[0xc0]
00021278 4d 75 6c 74 69 2d 62 69 |Multi-bi|
00021280 74 20 52 31 30 30 30 20 |t R1000 |
00021288 6d 65 6d 6f 72 79 20 65 |memory e|
00021290 72 72 6f 72 20 20 20 20 |rror |
00021298 20 20 20 20 52 31 30 30 | R100|
000212a0 30 20 48 61 6c 74 20 3d |0 Halt =|
000212a8 3e 20 52 31 30 30 30 20 |> R1000 |
000212b0 53 59 53 42 55 53 20 68 |SYSBUS h|
000212b8 61 72 64 77 61 72 65 20 |ardware |
000212c0 65 72 72 6f 72 20 20 20 |error |
000212c8 20 20 20 20 20 20 52 31 | R1|
000212d0 30 30 30 20 48 61 6c 74 |000 Halt|
000212d8 20 3d 3e 20 52 31 30 30 | => R100|
000212e0 30 20 6d 69 63 72 6f 63 |0 microc|
000212e8 6f 64 65 20 65 72 72 6f |ode erro|
000212f0 72 20 20 20 20 20 20 20 |r |
000212f8 20 20 20 20 20 20 20 20 | |
00021300 52 31 30 30 30 20 48 61 |R1000 Ha|
00021308 6c 74 20 3d 3e 20 52 31 |lt => R1|
00021310 30 30 30 20 73 6f 66 74 |000 soft|
00021318 77 61 72 65 20 65 72 72 |ware err|
00021320 6f 72 20 20 20 20 20 20 |or |
00021328 20 20 20 20 20 20 20 20 | |
00021330 20 20 | | .XXX[0x2]
00021332 52 31 30 30 30 20 |R1000 | .XXX[0x6]
00021338 48 61 6c 74 20 3d 3e 20 |Halt => | .XXX[0x48]
00021340 52 31 30 30 30 20 73 79 |R1000 sy|
00021348 73 74 65 6d 20 73 68 75 |stem shu|
00021350 74 64 6f 77 6e 20 20 20 |tdown |
00021358 20 20 20 20 20 20 20 20 | |
00021360 20 20 20 20 52 31 30 30 | R100|
00021368 30 20 48 61 6c 74 20 3d |0 Halt =|
00021370 3e 20 52 31 30 30 30 20 |> R1000 |
00021378 63 72 61 73 68 20 20 20 |crash |
00021380 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00021390 20 20 20 20 20 20 52 31 | R1| .XXX[0x50]
00021398 30 30 30 20 48 61 6c 74 |000 Halt|
000213a0 20 3d 3e 20 52 65 66 72 | => Refr|
000213a8 65 73 68 20 6d 61 63 68 |esh mach|
000213b0 69 6e 65 20 63 68 65 63 |ine chec|
000213b8 6b 20 20 20 20 20 20 20 |k |
000213c0 20 20 20 20 20 20 20 20 | |
000213c8 52 31 30 30 30 20 6d 61 |R1000 ma|
000213d0 63 68 69 6e 65 20 63 68 |chine ch|
000213d8 65 63 6b 20 20 20 20 20 |eck |
000213e0 20 20 20 20 20 20 20 20 | | .BLANK 20[0x18]
000213f8 20 20 52 31 30 30 30 20 | R1000 | .XXX[0x20]
00021400 48 61 6c 74 20 3d 3e 20 |Halt => |
00021408 55 6e 6b 6e 6f 77 6e 20 |Unknown |
00021410 68 61 6c 74 20 20 20 20 |halt |
00021418 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00021428 20 20 20 20 43 53 31 3d | CS1=| .XXX[0x38]
00021430 20 20 43 53 32 3d 20 44 | CS2= D|
00021438 53 3d 20 20 45 52 31 3d |S= ER1=|
00021440 20 45 52 32 3d 20 45 43 | ER2= EC|
00021448 31 3d 20 45 43 32 3d 20 |1= EC2= |
00021450 44 43 3d 20 20 44 41 3d |DC= DA=|
00021458 20 4e 6f 72 6d 61 6c 20 | Normal |
00021460 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00021470 20 20 20 20 20 20 20 41 | A| .XXX[0x10]
00021478 74 74 65 6e 74 69 6f 6e |ttention|
00021480 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10]
00021490 20 20 20 20 20 | | .BLANK 20[0x5]
00021495 54 61 70 |Tap | .XXX[0x3]
00021498 65 20 73 74 61 74 75 73 |e status| .XXX[0xd0]
000214a0 20 61 6c 65 72 74 20 20 | alert |
000214a8 20 20 20 20 20 20 20 20 | |
000214b0 20 20 20 46 75 6e 63 74 | Funct|
000214b8 69 6f 6e 20 72 65 6a 65 |ion reje|
000214c0 63 74 20 20 20 20 20 20 |ct |
000214c8 20 20 20 20 20 20 20 20 | |
000214d0 20 52 65 63 6f 76 65 72 | Recover|
000214d8 61 62 6c 65 20 65 72 72 |able err|
000214e0 6f 72 20 28 6f 66 66 20 |or (off |
000214e8 62 79 20 6f 6e 65 29 52 |by one)R|
000214f0 65 63 6f 76 65 72 61 62 |ecoverab|
000214f8 6c 65 20 65 72 72 6f 72 |le error|
00021500 20 20 20 20 20 20 20 20 | |
00021508 20 20 20 20 20 55 6e 72 | Unr|
00021510 65 63 6f 76 65 72 61 62 |ecoverab|
00021518 6c 65 20 65 72 72 6f 72 |le error|
00021520 20 20 20 20 20 20 20 20 | |
00021528 20 20 20 46 61 74 61 6c | Fatal|
00021530 20 73 75 62 73 79 73 74 | subsyst|
00021538 65 6d 20 65 72 72 6f 72 |em error|
00021540 20 20 20 20 20 20 20 20 | |
00021548 20 53 52 3d 20 20 48 44 | SR= HD|
00021550 3d 20 50 4c 3d 20 52 43 |= PL= RC|
00021558 3d 20 58 30 3d 20 58 31 |= X0= X1|
00021560 3d 20 58 32 3d 20 58 33 |= X2= X3|
00021568 3d 00 |= | .XXX[0x2]
0002156a ; --------------------------------------------------------------------------------------
0002156a ; OMSI PASCAL Function
0002156a ; <LVAR 0x00d 1(r)>
0002156a ; <LVAR 0x00c 2(r)>
0002156a ; <LVAR 0x008 4(r)>
0002156a ; <LVAR -0x00a @>
0002156a ; --------------------------------------------------------------------------------------
0002156a 4e 56 ff c6 |NV | LINK.W A6,#0xffc6
0002156e bf d5 | | CMPA.L (A5),A7
00021570 62 06 |b | BHI 0x21578
00021572 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021576 4e 76 |Nv | TRAPV
00021578 de fc 00 30 | 0 | ADDA.W #0x30,A7
0002157c 48 e7 83 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D0,-(A7)
00021580 45 f9 00 02 3a d8 |E : | LEA.L 0x23ad8,A2
00021586 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0
0002158a e6 48 | H | LSR.W #0x3,D0
0002158c 3e 00 |> | MOVE.W D0,D7
0002158e 42 80 |B | CLR.L D0
00021590 10 2e 00 0d | . | MOVE.B (A6+0xd),D0
00021594 eb 08 | | LSL.B #0x5,D0
00021596 ea 08 | | LSR.B #0x5,D0
00021598 2c 00 |, | MOVE.L D0,D6
0002159a be 52 | R | CMP.W (A2),D7
0002159c 67 32 |g2 | BEQ 0x215d0
0002159e 34 87 |4 | MOVE.W D7,(A2)
000215a0 2f 39 00 02 3a da |/9 : | MOVE.L 0x23ada,-(A7)
000215a6 30 12 |0 | MOVE.W (A2),D0
000215a8 52 40 |R@ | ADDQ.W #0x1,D0
000215aa 41 bc 40 00 |A @ | CHK.W #0x4000,D0
000215ae 3f 00 |? | MOVE.W D0,-(A7)
000215b0 42 67 |Bg | CLR.W -(A7)
000215b2 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7)
000215b6 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
000215ba 41 f9 00 02 36 d8 |A 6 | LEA.L 0x236d8,A0
000215c0 2f 08 |/ | MOVE.L A0,-(A7)
000215c2 48 6e ff f6 |Hn | PEA.L (A6-0xa)
000215c6 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
000215cc de fc 00 14 | | ADDA.W #0x14,A7
000215d0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
000215d4 0c 86 00 00 00 07 | | CMPI.L #0x00000007,D6
000215da 63 02 |c | BLS 0x215de
000215dc 4e 4f |NO | TRAP #15
000215de 20 06 | | MOVE.L D6,D0
000215e0 ef 80 | | ASL.L #0x7,D0
000215e2 43 f9 00 02 32 d0 |C 2 | LEA.L 0x232d0,A1
000215e8 43 f1 08 00 |C | LEA.L (A1+D0.L),A1
000215ec 43 e9 04 08 |C | LEA.L (A1+0x408),A1
000215f0 70 7f |p | MOVEQ.L #0x7f,D0
000215f2 10 d9 | | MOVE.B (A1)+,(A0)+
000215f4 51 c8 ff fc |Q | DBF D0,0x215f2
000215f8 4c df 07 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1+A2
000215fc 4e 5e |N^ | UNLK A6
000215fe 4e 75 |Nu | RTS
00021600 ; --------------------------------------------------------------------------------------
00021600 ; OMSI PASCAL Function
00021600 ; <LVAR 0x00a 4(w)>
00021600 ; <LVAR 0x008 1(r)>
00021600 ; --------------------------------------------------------------------------------------
00021600 4e 56 ff c4 |NV | LINK.W A6,#0xffc4
00021604 bf d5 | | CMPA.L (A5),A7
00021606 62 06 |b | BHI 0x2160e
00021608 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002160c 4e 76 |Nv | TRAPV
0002160e de fc 00 3a | : | ADDA.W #0x3a,A7
00021612 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7)
00021616 72 1e |r | MOVEQ.L #0x1e,D1
00021618 10 2e 00 08 | . | MOVE.B (A6+0x8),D0
0002161c 48 80 |H | EXTB.W D0
0002161e c1 c1 | | MULS.W D1,D0
00021620 41 fa f9 6e |A n | LEA.L 0x20f90,A0
00021624 41 f0 00 1e |A | LEA.L (A0+D0.W+#0x1e),A0
00021628 70 0e |p | MOVEQ.L #0x0e,D0
0002162a 3f 20 |? | MOVE.W -(A0),-(A7)
0002162c 51 c8 ff fc |Q | DBF D0,0x2162a
00021630 59 4f |YO | SUBQ.L #0x4,A7
00021632 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021636 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002163a 3f 01 |? | MOVE.W D1,-(A7)
0002163c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021642 50 4f |PO | ADDQ.L #0x8,A7
00021644 2d 5f 00 0a |-_ | MOVE.L (A7)+,(A6+0xa)
00021648 de c1 | | ADDA.W D1,A7
0002164a 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0
0002164e 4e 5e |N^ | UNLK A6
00021650 4e 75 |Nu | RTS
00021652 ; --------------------------------------------------------------------------------------
00021652 ; OMSI PASCAL Function
00021652 ; <LVAR 0x00a 4(w)>
00021652 ; <LVAR 0x008 1(r)>
00021652 ; --------------------------------------------------------------------------------------
00021652 4e 56 ff b0 |NV | LINK.W A6,#0xffb0
00021656 bf d5 | | CMPA.L (A5),A7
00021658 62 06 |b | BHI 0x21660
0002165a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002165e 4e 76 |Nv | TRAPV
00021660 de fc 00 4e | N | ADDA.W #0x4e,A7
00021664 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7)
00021668 72 32 |r2 | MOVEQ.L #0x32,D1
0002166a 10 2e 00 08 | . | MOVE.B (A6+0x8),D0
0002166e 48 80 |H | EXTB.W D0
00021670 c1 c1 | | MULS.W D1,D0
00021672 41 fa fa fc |A | LEA.L 0x21170,A0
00021676 41 f0 00 32 |A 2 | LEA.L (A0+D0.W+#0x32),A0
0002167a 70 18 |p | MOVEQ.L #0x18,D0
0002167c 3f 20 |? | MOVE.W -(A0),-(A7)
0002167e 51 c8 ff fc |Q | DBF D0,0x2167c
00021682 59 4f |YO | SUBQ.L #0x4,A7
00021684 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021688 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002168c 3f 01 |? | MOVE.W D1,-(A7)
0002168e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021694 50 4f |PO | ADDQ.L #0x8,A7
00021696 2d 5f 00 0a |-_ | MOVE.L (A7)+,(A6+0xa)
0002169a de c1 | | ADDA.W D1,A7
0002169c 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0
000216a0 4e 5e |N^ | UNLK A6
000216a2 4e 75 |Nu | RTS
000216a4 ; --------------------------------------------------------------------------------------
000216a4 ; OMSI PASCAL Function
000216a4 ; <LVAR 0x016 2(r)>
000216a4 ; <LVAR 0x014 2(r)>
000216a4 ; <LVAR 0x012 2(r)>
000216a4 ; <LVAR 0x010 2(r)>
000216a4 ; <LVAR 0x00e 2(r)>
000216a4 ; --------------------------------------------------------------------------------------
000216a4 4e 56 ff 62 |NV b | LINK.W A6,#0xff62
000216a8 bf d5 | | CMPA.L (A5),A7
000216aa 62 06 |b | BHI 0x216b2
000216ac 44 fc 00 02 |D | MOVE.W #0x2,CCR
000216b0 4e 76 |Nv | TRAPV
000216b2 de fc 00 82 | | ADDA.W #0x82,A7
000216b6 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000216ba 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000216c0 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3
000216c6 49 ee 00 10 |I | LEA.L (A6+0x10),A4
000216ca 74 01 |t | MOVEQ.L #0x01,D2
000216cc 7a 10 |z | MOVEQ.L #0x10,D5
000216ce 7c 14 || | MOVEQ.L #0x14,D6
000216d0 7e 00 |~ | MOVEQ.L #0x00,D7
000216d2 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7
000216d8 63 02 |c | BLS 0x216dc
000216da 4e 4f |NO | TRAP #15
000216dc 28 07 |( | MOVE.L D7,D4
000216de 76 05 |v | MOVEQ.L #0x05,D3
000216e0 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
000216e6 41 fa fd 44 |A D | LEA.L 0x2142c,A0
000216ea 5d 4f |]O | SUBQ.L #0x6,A7
000216ec 22 4f |"O | MOVEA.L A7,A1
000216ee 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0
000216f2 70 04 |p | MOVEQ.L #0x04,D0
000216f4 12 d8 | | MOVE.B (A0)+,(A1)+
000216f6 51 c8 ff fc |Q | DBF D0,0x216f4
000216fa 51 4f |QO | SUBQ.L #0x8,A7
000216fc 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021700 3f 02 |? | MOVE.W D2,-(A7)
00021702 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00021706 4e 92 |N | JSR (A2)
00021708 58 4f |XO | ADDQ.L #0x4,A7
0002170a 0c 87 00 00 00 3c | < | CMPI.L #0x0000003c,D7
00021710 63 02 |c | BLS 0x21714
00021712 4e 4f |NO | TRAP #15
00021714 20 07 | | MOVE.L D7,D0
00021716 e3 80 | | ASL.L #0x1,D0
00021718 42 81 |B | CLR.L D1
0002171a 32 36 08 0e |26 | MOVE.W (A6+D0.L+#0xe),D1
0002171e 2f 01 |/ | MOVE.L D1,-(A7)
00021720 48 78 00 04 |Hx | PEA.L 0x4
00021724 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
0002172a 50 4f |PO | ADDQ.L #0x8,A7
0002172c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021732 50 4f |PO | ADDQ.L #0x8,A7
00021734 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
0002173a de fc 00 0a | | ADDA.W #0xa,A7
0002173e 52 87 |R | ADDQ.L #0x1,D7
00021740 0c 87 00 00 00 08 | | CMPI.L #0x00000008,D7
00021746 6f 8a |o | BLE 0x216d2
00021748 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
0002174e 51 4f |QO | SUBQ.L #0x8,A7
00021750 20 4f | O | MOVEA.L A7,A0
00021752 43 fa f1 42 |C B | LEA.L 0x20896,A1
00021756 70 06 |p | MOVEQ.L #0x06,D0
00021758 10 d9 | | MOVE.B (A1)+,(A0)+
0002175a 51 c8 ff fc |Q | DBF D0,0x21758
0002175e 51 4f |QO | SUBQ.L #0x8,A7
00021760 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021764 3f 02 |? | MOVE.W D2,-(A7)
00021766 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7)
0002176a 4e 92 |N | JSR (A2)
0002176c 58 4f |XO | ADDQ.L #0x4,A7
0002176e 30 14 |0 | MOVE.W (A4),D0
00021770 02 40 00 07 | @ | ANDI.W #0x0007,D0
00021774 42 81 |B | CLR.L D1
00021776 32 00 |2 | MOVE.W D0,D1
00021778 2f 01 |/ | MOVE.L D1,-(A7)
0002177a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021780 58 4f |XO | ADDQ.L #0x4,A7
00021782 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021788 50 4f |PO | ADDQ.L #0x8,A7
0002178a 4e 93 |N | JSR (A3)
0002178c de fc 00 0c | | ADDA.W #0xc,A7
00021790 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
00021794 02 40 80 00 | @ | ANDI.W #0x8000,D0
00021798 67 28 |g( | BEQ 0x217c2
0002179a 9e fc 00 12 | | SUBA.W #0x12,A7
0002179e 20 4f | O | MOVEA.L A7,A0
000217a0 43 fa ee 58 |C X | LEA.L 0x205fa,A1
000217a4 70 10 |p | MOVEQ.L #0x10,D0
000217a6 10 d9 | | MOVE.B (A1)+,(A0)+
000217a8 51 c8 ff fc |Q | DBF D0,0x217a6
000217ac 59 4f |YO | SUBQ.L #0x4,A7
000217ae 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000217b2 3f 02 |? | MOVE.W D2,-(A7)
000217b4 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
000217b8 4e 92 |N | JSR (A2)
000217ba 50 4f |PO | ADDQ.L #0x8,A7
000217bc 4e 93 |N | JSR (A3)
000217be de fc 00 16 | | ADDA.W #0x16,A7
000217c2 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
000217c6 02 40 40 00 | @@ | ANDI.W #0x4000,D0
000217ca 67 22 |g" | BEQ 0x217ee
000217cc 41 fa ee 4c |A L | LEA.L 0x2061a,A0
000217d0 70 06 |p | MOVEQ.L #0x06,D0
000217d2 3f 20 |? | MOVE.W -(A0),-(A7)
000217d4 51 c8 ff fc |Q | DBF D0,0x217d2
000217d8 59 4f |YO | SUBQ.L #0x4,A7
000217da 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000217de 3f 02 |? | MOVE.W D2,-(A7)
000217e0 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
000217e4 4e 92 |N | JSR (A2)
000217e6 50 4f |PO | ADDQ.L #0x8,A7
000217e8 4e 93 |N | JSR (A3)
000217ea de fc 00 12 | | ADDA.W #0x12,A7
000217ee 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
000217f2 02 40 08 00 | @ | ANDI.W #0x0800,D0
000217f6 66 22 |f" | BNE 0x2181a
000217f8 41 fa ee 36 |A 6 | LEA.L 0x20630,A0
000217fc 70 0a |p | MOVEQ.L #0x0a,D0
000217fe 3f 20 |? | MOVE.W -(A0),-(A7)
00021800 51 c8 ff fc |Q | DBF D0,0x217fe
00021804 59 4f |YO | SUBQ.L #0x4,A7
00021806 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002180a 3f 02 |? | MOVE.W D2,-(A7)
0002180c 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
00021810 4e 92 |N | JSR (A2)
00021812 50 4f |PO | ADDQ.L #0x8,A7
00021814 4e 93 |N | JSR (A3)
00021816 de fc 00 1a | | ADDA.W #0x1a,A7
0002181a 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
0002181e 02 40 00 80 | @ | ANDI.W #0x0080,D0
00021822 66 22 |f" | BNE 0x21846
00021824 41 fa ee 1c |A | LEA.L 0x20642,A0
00021828 70 08 |p | MOVEQ.L #0x08,D0
0002182a 3f 20 |? | MOVE.W -(A0),-(A7)
0002182c 51 c8 ff fc |Q | DBF D0,0x2182a
00021830 59 4f |YO | SUBQ.L #0x4,A7
00021832 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021836 3f 02 |? | MOVE.W D2,-(A7)
00021838 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
0002183c 4e 92 |N | JSR (A2)
0002183e 50 4f |PO | ADDQ.L #0x8,A7
00021840 4e 93 |N | JSR (A3)
00021842 de fc 00 16 | | ADDA.W #0x16,A7
00021846 30 14 |0 | MOVE.W (A4),D0
00021848 02 40 80 00 | @ | ANDI.W #0x8000,D0
0002184c 67 28 |g( | BEQ 0x21876
0002184e 9e fc 00 0a | | SUBA.W #0xa,A7
00021852 20 4f | O | MOVEA.L A7,A0
00021854 43 fa ed ec |C | LEA.L 0x20642,A1
00021858 70 08 |p | MOVEQ.L #0x08,D0
0002185a 10 d9 | | MOVE.B (A1)+,(A0)+
0002185c 51 c8 ff fc |Q | DBF D0,0x2185a
00021860 59 4f |YO | SUBQ.L #0x4,A7
00021862 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021866 3f 02 |? | MOVE.W D2,-(A7)
00021868 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
0002186c 4e 92 |N | JSR (A2)
0002186e 50 4f |PO | ADDQ.L #0x8,A7
00021870 4e 93 |N | JSR (A3)
00021872 de fc 00 0e | | ADDA.W #0xe,A7
00021876 30 14 |0 | MOVE.W (A4),D0
00021878 02 40 40 00 | @@ | ANDI.W #0x4000,D0
0002187c 67 28 |g( | BEQ 0x218a6
0002187e 9e fc 00 12 | | SUBA.W #0x12,A7
00021882 20 4f | O | MOVEA.L A7,A0
00021884 43 fa ed c6 |C | LEA.L 0x2064c,A1
00021888 70 10 |p | MOVEQ.L #0x10,D0
0002188a 10 d9 | | MOVE.B (A1)+,(A0)+
0002188c 51 c8 ff fc |Q | DBF D0,0x2188a
00021890 59 4f |YO | SUBQ.L #0x4,A7
00021892 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021896 3f 02 |? | MOVE.W D2,-(A7)
00021898 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
0002189c 4e 92 |N | JSR (A2)
0002189e 50 4f |PO | ADDQ.L #0x8,A7
000218a0 4e 93 |N | JSR (A3)
000218a2 de fc 00 16 | | ADDA.W #0x16,A7
000218a6 30 14 |0 | MOVE.W (A4),D0
000218a8 02 40 10 00 | @ | ANDI.W #0x1000,D0
000218ac 67 22 |g" | BEQ 0x218d0
000218ae 41 fa ed c0 |A | LEA.L 0x20670,A0
000218b2 70 08 |p | MOVEQ.L #0x08,D0
000218b4 3f 20 |? | MOVE.W -(A0),-(A7)
000218b6 51 c8 ff fc |Q | DBF D0,0x218b4
000218ba 59 4f |YO | SUBQ.L #0x4,A7
000218bc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000218c0 3f 02 |? | MOVE.W D2,-(A7)
000218c2 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
000218c6 4e 92 |N | JSR (A2)
000218c8 50 4f |PO | ADDQ.L #0x8,A7
000218ca 4e 93 |N | JSR (A3)
000218cc de fc 00 16 | | ADDA.W #0x16,A7
000218d0 30 14 |0 | MOVE.W (A4),D0
000218d2 02 40 08 00 | @ | ANDI.W #0x0800,D0
000218d6 67 26 |g& | BEQ 0x218fe
000218d8 9e c6 | | SUBA.W D6,A7
000218da 20 4f | O | MOVEA.L A7,A0
000218dc 43 fa ed 92 |C | LEA.L 0x20670,A1
000218e0 70 12 |p | MOVEQ.L #0x12,D0
000218e2 10 d9 | | MOVE.B (A1)+,(A0)+
000218e4 51 c8 ff fc |Q | DBF D0,0x218e2
000218e8 59 4f |YO | SUBQ.L #0x4,A7
000218ea 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000218ee 3f 02 |? | MOVE.W D2,-(A7)
000218f0 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
000218f4 4e 92 |N | JSR (A2)
000218f6 50 4f |PO | ADDQ.L #0x8,A7
000218f8 4e 93 |N | JSR (A3)
000218fa de fc 00 18 | | ADDA.W #0x18,A7
000218fe 30 14 |0 | MOVE.W (A4),D0
00021900 02 40 04 00 | @ | ANDI.W #0x0400,D0
00021904 67 28 |g( | BEQ 0x2192e
00021906 9e fc 00 0e | | SUBA.W #0xe,A7
0002190a 20 4f | O | MOVEA.L A7,A0
0002190c 43 fa ed 76 |C v | LEA.L 0x20684,A1
00021910 70 0c |p | MOVEQ.L #0x0c,D0
00021912 10 d9 | | MOVE.B (A1)+,(A0)+
00021914 51 c8 ff fc |Q | DBF D0,0x21912
00021918 59 4f |YO | SUBQ.L #0x4,A7
0002191a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002191e 3f 02 |? | MOVE.W D2,-(A7)
00021920 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7)
00021924 4e 92 |N | JSR (A2)
00021926 50 4f |PO | ADDQ.L #0x8,A7
00021928 4e 93 |N | JSR (A3)
0002192a de fc 00 12 | | ADDA.W #0x12,A7
0002192e 30 14 |0 | MOVE.W (A4),D0
00021930 02 40 02 00 | @ | ANDI.W #0x0200,D0
00021934 67 24 |g$ | BEQ 0x2195a
00021936 9e c5 | | SUBA.W D5,A7
00021938 20 4f | O | MOVEA.L A7,A0
0002193a 43 fa ed 56 |C V | LEA.L 0x20692,A1
0002193e 70 0e |p | MOVEQ.L #0x0e,D0
00021940 10 d9 | | MOVE.B (A1)+,(A0)+
00021942 51 c8 ff fc |Q | DBF D0,0x21940
00021946 59 4f |YO | SUBQ.L #0x4,A7
00021948 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002194c 3f 02 |? | MOVE.W D2,-(A7)
0002194e 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00021952 4e 92 |N | JSR (A2)
00021954 50 4f |PO | ADDQ.L #0x8,A7
00021956 4e 93 |N | JSR (A3)
00021958 de c6 | | ADDA.W D6,A7
0002195a 30 14 |0 | MOVE.W (A4),D0
0002195c 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
00021960 66 24 |f$ | BNE 0x21986
00021962 9e c5 | | SUBA.W D5,A7
00021964 20 4f | O | MOVEA.L A7,A0
00021966 43 fa ed 3a |C : | LEA.L 0x206a2,A1
0002196a 70 0e |p | MOVEQ.L #0x0e,D0
0002196c 10 d9 | | MOVE.B (A1)+,(A0)+
0002196e 51 c8 ff fc |Q | DBF D0,0x2196c
00021972 59 4f |YO | SUBQ.L #0x4,A7
00021974 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021978 3f 02 |? | MOVE.W D2,-(A7)
0002197a 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
0002197e 4e 92 |N | JSR (A2)
00021980 50 4f |PO | ADDQ.L #0x8,A7
00021982 4e 93 |N | JSR (A3)
00021984 de c6 | | ADDA.W D6,A7
00021986 30 14 |0 | MOVE.W (A4),D0
00021988 02 40 00 04 | @ | ANDI.W #0x0004,D0
0002198c 67 28 |g( | BEQ 0x219b6
0002198e 9e fc 00 1e | | SUBA.W #0x1e,A7
00021992 20 4f | O | MOVEA.L A7,A0
00021994 43 fa ed 1c |C | LEA.L 0x206b2,A1
00021998 70 1c |p | MOVEQ.L #0x1c,D0
0002199a 10 d9 | | MOVE.B (A1)+,(A0)+
0002199c 51 c8 ff fc |Q | DBF D0,0x2199a
000219a0 59 4f |YO | SUBQ.L #0x4,A7
000219a2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000219a6 3f 02 |? | MOVE.W D2,-(A7)
000219a8 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7)
000219ac 4e 92 |N | JSR (A2)
000219ae 50 4f |PO | ADDQ.L #0x8,A7
000219b0 4e 93 |N | JSR (A3)
000219b2 de fc 00 22 | " | ADDA.W #0x22,A7
000219b6 30 2e 00 12 |0. | MOVE.W (A6+0x12),D0
000219ba 02 40 20 00 | @ | ANDI.W #0x2000,D0
000219be 67 28 |g( | BEQ 0x219e8
000219c0 9e fc 00 18 | | SUBA.W #0x18,A7
000219c4 20 4f | O | MOVEA.L A7,A0
000219c6 43 fa ed 08 |C | LEA.L 0x206d0,A1
000219ca 70 16 |p | MOVEQ.L #0x16,D0
000219cc 10 d9 | | MOVE.B (A1)+,(A0)+
000219ce 51 c8 ff fc |Q | DBF D0,0x219cc
000219d2 59 4f |YO | SUBQ.L #0x4,A7
000219d4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000219d8 3f 02 |? | MOVE.W D2,-(A7)
000219da 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
000219de 4e 92 |N | JSR (A2)
000219e0 50 4f |PO | ADDQ.L #0x8,A7
000219e2 4e 93 |N | JSR (A3)
000219e4 de fc 00 1c | | ADDA.W #0x1c,A7
000219e8 30 2e 00 12 |0. | MOVE.W (A6+0x12),D0
000219ec 02 40 10 00 | @ | ANDI.W #0x1000,D0
000219f0 66 22 |f" | BNE 0x21a14
000219f2 41 fa ed 06 |A | LEA.L 0x206fa,A0
000219f6 70 08 |p | MOVEQ.L #0x08,D0
000219f8 3f 20 |? | MOVE.W -(A0),-(A7)
000219fa 51 c8 ff fc |Q | DBF D0,0x219f8
000219fe 59 4f |YO | SUBQ.L #0x4,A7
00021a00 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021a04 3f 02 |? | MOVE.W D2,-(A7)
00021a06 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00021a0a 4e 92 |N | JSR (A2)
00021a0c 50 4f |PO | ADDQ.L #0x8,A7
00021a0e 4e 93 |N | JSR (A3)
00021a10 de fc 00 16 | | ADDA.W #0x16,A7
00021a14 30 2e 00 12 |0. | MOVE.W (A6+0x12),D0
00021a18 02 40 08 00 | @ | ANDI.W #0x0800,D0
00021a1c 67 20 |g | BEQ 0x21a3e
00021a1e 2f 3a ec e2 |/: | MOVE.L 0x20702,-(A7)
00021a22 2f 3a ec da |/: | MOVE.L 0x206fe,-(A7)
00021a26 2f 3a ec d2 |/: | MOVE.L 0x206fa,-(A7)
00021a2a 59 4f |YO | SUBQ.L #0x4,A7
00021a2c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021a30 3f 02 |? | MOVE.W D2,-(A7)
00021a32 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
00021a36 4e 92 |N | JSR (A2)
00021a38 50 4f |PO | ADDQ.L #0x8,A7
00021a3a 4e 93 |N | JSR (A3)
00021a3c de c5 | | ADDA.W D5,A7
00021a3e 30 2e 00 12 |0. | MOVE.W (A6+0x12),D0
00021a42 02 40 04 00 | @ | ANDI.W #0x0400,D0
00021a46 67 22 |g" | BEQ 0x21a6a
00021a48 41 fa ec d2 |A | LEA.L 0x2071c,A0
00021a4c 70 0a |p | MOVEQ.L #0x0a,D0
00021a4e 3f 20 |? | MOVE.W -(A0),-(A7)
00021a50 51 c8 ff fc |Q | DBF D0,0x21a4e
00021a54 59 4f |YO | SUBQ.L #0x4,A7
00021a56 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021a5a 3f 02 |? | MOVE.W D2,-(A7)
00021a5c 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
00021a60 4e 92 |N | JSR (A2)
00021a62 50 4f |PO | ADDQ.L #0x8,A7
00021a64 4e 93 |N | JSR (A3)
00021a66 de fc 00 1a | | ADDA.W #0x1a,A7
00021a6a 30 2e 00 12 |0. | MOVE.W (A6+0x12),D0
00021a6e 02 40 01 00 | @ | ANDI.W #0x0100,D0
00021a72 66 28 |f( | BNE 0x21a9c
00021a74 9e fc 00 12 | | SUBA.W #0x12,A7
00021a78 20 4f | O | MOVEA.L A7,A0
00021a7a 43 fa ec a0 |C | LEA.L 0x2071c,A1
00021a7e 70 10 |p | MOVEQ.L #0x10,D0
00021a80 10 d9 | | MOVE.B (A1)+,(A0)+
00021a82 51 c8 ff fc |Q | DBF D0,0x21a80
00021a86 59 4f |YO | SUBQ.L #0x4,A7
00021a88 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021a8c 3f 02 |? | MOVE.W D2,-(A7)
00021a8e 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00021a92 4e 92 |N | JSR (A2)
00021a94 50 4f |PO | ADDQ.L #0x8,A7
00021a96 4e 93 |N | JSR (A3)
00021a98 de fc 00 16 | | ADDA.W #0x16,A7
00021a9c 30 2e 00 12 |0. | MOVE.W (A6+0x12),D0
00021aa0 02 40 00 80 | @ | ANDI.W #0x0080,D0
00021aa4 66 24 |f$ | BNE 0x21aca
00021aa6 9e c5 | | SUBA.W D5,A7
00021aa8 20 4f | O | MOVEA.L A7,A0
00021aaa 43 fa ec 82 |C | LEA.L 0x2072e,A1
00021aae 70 0e |p | MOVEQ.L #0x0e,D0
00021ab0 10 d9 | | MOVE.B (A1)+,(A0)+
00021ab2 51 c8 ff fc |Q | DBF D0,0x21ab0
00021ab6 59 4f |YO | SUBQ.L #0x4,A7
00021ab8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021abc 3f 02 |? | MOVE.W D2,-(A7)
00021abe 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00021ac2 4e 92 |N | JSR (A2)
00021ac4 50 4f |PO | ADDQ.L #0x8,A7
00021ac6 4e 93 |N | JSR (A3)
00021ac8 de c6 | | ADDA.W D6,A7
00021aca 30 2e 00 12 |0. | MOVE.W (A6+0x12),D0
00021ace 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
00021ad2 66 22 |f" | BNE 0x21af6
00021ad4 2f 3a ec 74 |/: t | MOVE.L 0x2074a,-(A7)
00021ad8 2f 3a ec 6c |/: l | MOVE.L 0x20746,-(A7)
00021adc 2f 3a ec 64 |/: d | MOVE.L 0x20742,-(A7)
00021ae0 2f 3a ec 5c |/: \ | MOVE.L 0x2073e,-(A7)
00021ae4 59 4f |YO | SUBQ.L #0x4,A7
00021ae6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021aea 3f 02 |? | MOVE.W D2,-(A7)
00021aec 3f 05 |? | MOVE.W D5,-(A7)
00021aee 4e 92 |N | JSR (A2)
00021af0 50 4f |PO | ADDQ.L #0x8,A7
00021af2 4e 93 |N | JSR (A3)
00021af4 de c6 | | ADDA.W D6,A7
00021af6 30 2e 00 14 |0. | MOVE.W (A6+0x14),D0
00021afa 02 40 80 00 | @ | ANDI.W #0x8000,D0
00021afe 67 22 |g" | BEQ 0x21b22
00021b00 2f 3a ec 58 |/: X | MOVE.L 0x2075a,-(A7)
00021b04 2f 3a ec 50 |/: P | MOVE.L 0x20756,-(A7)
00021b08 2f 3a ec 48 |/: H | MOVE.L 0x20752,-(A7)
00021b0c 2f 3a ec 40 |/: @ | MOVE.L 0x2074e,-(A7)
00021b10 59 4f |YO | SUBQ.L #0x4,A7
00021b12 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021b16 3f 02 |? | MOVE.W D2,-(A7)
00021b18 3f 05 |? | MOVE.W D5,-(A7)
00021b1a 4e 92 |N | JSR (A2)
00021b1c 50 4f |PO | ADDQ.L #0x8,A7
00021b1e 4e 93 |N | JSR (A3)
00021b20 de c6 | | ADDA.W D6,A7
00021b22 30 2e 00 14 |0. | MOVE.W (A6+0x14),D0
00021b26 02 40 40 00 | @@ | ANDI.W #0x4000,D0
00021b2a 67 22 |g" | BEQ 0x21b4e
00021b2c 3f 3a ec 34 |?: 4 | MOVE.W 0x20762,-(A7)
00021b30 3f 3a ec 2e |?: . | MOVE.W 0x20760,-(A7)
00021b34 3f 3a ec 28 |?: ( | MOVE.W 0x2075e,-(A7)
00021b38 59 4f |YO | SUBQ.L #0x4,A7
00021b3a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021b3e 3f 02 |? | MOVE.W D2,-(A7)
00021b40 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7)
00021b44 4e 92 |N | JSR (A2)
00021b46 50 4f |PO | ADDQ.L #0x8,A7
00021b48 4e 93 |N | JSR (A3)
00021b4a de fc 00 0a | | ADDA.W #0xa,A7
00021b4e 30 2e 00 14 |0. | MOVE.W (A6+0x14),D0
00021b52 02 40 20 00 | @ | ANDI.W #0x2000,D0
00021b56 67 20 |g | BEQ 0x21b78
00021b58 41 fa ec 1e |A | LEA.L 0x20778,A0
00021b5c 70 04 |p | MOVEQ.L #0x04,D0
00021b5e 2f 20 |/ | MOVE.L -(A0),-(A7)
00021b60 51 c8 ff fc |Q | DBF D0,0x21b5e
00021b64 59 4f |YO | SUBQ.L #0x4,A7
00021b66 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021b6a 3f 02 |? | MOVE.W D2,-(A7)
00021b6c 3f 06 |? | MOVE.W D6,-(A7)
00021b6e 4e 92 |N | JSR (A2)
00021b70 50 4f |PO | ADDQ.L #0x8,A7
00021b72 4e 93 |N | JSR (A3)
00021b74 de fc 00 18 | | ADDA.W #0x18,A7
00021b78 30 2e 00 14 |0. | MOVE.W (A6+0x14),D0
00021b7c 02 40 10 00 | @ | ANDI.W #0x1000,D0
00021b80 67 22 |g" | BEQ 0x21ba4
00021b82 41 fa ec 06 |A | LEA.L 0x2078a,A0
00021b86 70 08 |p | MOVEQ.L #0x08,D0
00021b88 3f 20 |? | MOVE.W -(A0),-(A7)
00021b8a 51 c8 ff fc |Q | DBF D0,0x21b88
00021b8e 59 4f |YO | SUBQ.L #0x4,A7
00021b90 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021b94 3f 02 |? | MOVE.W D2,-(A7)
00021b96 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00021b9a 4e 92 |N | JSR (A2)
00021b9c 50 4f |PO | ADDQ.L #0x8,A7
00021b9e 4e 93 |N | JSR (A3)
00021ba0 de fc 00 16 | | ADDA.W #0x16,A7
00021ba4 30 2e 00 14 |0. | MOVE.W (A6+0x14),D0
00021ba8 02 40 08 00 | @ | ANDI.W #0x0800,D0
00021bac 67 22 |g" | BEQ 0x21bd0
00021bae 2f 3a eb e6 |/: | MOVE.L 0x20796,-(A7)
00021bb2 2f 3a eb de |/: | MOVE.L 0x20792,-(A7)
00021bb6 2f 3a eb d6 |/: | MOVE.L 0x2078e,-(A7)
00021bba 2f 3a eb ce |/: | MOVE.L 0x2078a,-(A7)
00021bbe 59 4f |YO | SUBQ.L #0x4,A7
00021bc0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021bc4 3f 02 |? | MOVE.W D2,-(A7)
00021bc6 3f 05 |? | MOVE.W D5,-(A7)
00021bc8 4e 92 |N | JSR (A2)
00021bca 50 4f |PO | ADDQ.L #0x8,A7
00021bcc 4e 93 |N | JSR (A3)
00021bce de c6 | | ADDA.W D6,A7
00021bd0 30 2e 00 14 |0. | MOVE.W (A6+0x14),D0
00021bd4 02 40 04 00 | @ | ANDI.W #0x0400,D0
00021bd8 67 28 |g( | BEQ 0x21c02
00021bda 9e fc 00 16 | | SUBA.W #0x16,A7
00021bde 20 4f | O | MOVEA.L A7,A0
00021be0 43 fa eb b8 |C | LEA.L 0x2079a,A1
00021be4 70 14 |p | MOVEQ.L #0x14,D0
00021be6 10 d9 | | MOVE.B (A1)+,(A0)+
00021be8 51 c8 ff fc |Q | DBF D0,0x21be6
00021bec 59 4f |YO | SUBQ.L #0x4,A7
00021bee 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021bf2 3f 02 |? | MOVE.W D2,-(A7)
00021bf4 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
00021bf8 4e 92 |N | JSR (A2)
00021bfa 50 4f |PO | ADDQ.L #0x8,A7
00021bfc 4e 93 |N | JSR (A3)
00021bfe de fc 00 1a | | ADDA.W #0x1a,A7
00021c02 30 2e 00 14 |0. | MOVE.W (A6+0x14),D0
00021c06 02 40 02 00 | @ | ANDI.W #0x0200,D0
00021c0a 67 22 |g" | BEQ 0x21c2e
00021c0c 41 fa eb b8 |A | LEA.L 0x207c6,A0
00021c10 70 0a |p | MOVEQ.L #0x0a,D0
00021c12 3f 20 |? | MOVE.W -(A0),-(A7)
00021c14 51 c8 ff fc |Q | DBF D0,0x21c12
00021c18 59 4f |YO | SUBQ.L #0x4,A7
00021c1a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021c1e 3f 02 |? | MOVE.W D2,-(A7)
00021c20 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
00021c24 4e 92 |N | JSR (A2)
00021c26 50 4f |PO | ADDQ.L #0x8,A7
00021c28 4e 93 |N | JSR (A3)
00021c2a de fc 00 1a | | ADDA.W #0x1a,A7
00021c2e 30 2e 00 14 |0. | MOVE.W (A6+0x14),D0
00021c32 02 40 01 00 | @ | ANDI.W #0x0100,D0
00021c36 67 22 |g" | BEQ 0x21c5a
00021c38 2f 3a eb 98 |/: | MOVE.L 0x207d2,-(A7)
00021c3c 2f 3a eb 90 |/: | MOVE.L 0x207ce,-(A7)
00021c40 2f 3a eb 88 |/: | MOVE.L 0x207ca,-(A7)
00021c44 2f 3a eb 80 |/: | MOVE.L 0x207c6,-(A7)
00021c48 59 4f |YO | SUBQ.L #0x4,A7
00021c4a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021c4e 3f 02 |? | MOVE.W D2,-(A7)
00021c50 3f 05 |? | MOVE.W D5,-(A7)
00021c52 4e 92 |N | JSR (A2)
00021c54 50 4f |PO | ADDQ.L #0x8,A7
00021c56 4e 93 |N | JSR (A3)
00021c58 de c6 | | ADDA.W D6,A7
00021c5a 30 2e 00 14 |0. | MOVE.W (A6+0x14),D0
00021c5e 02 40 00 80 | @ | ANDI.W #0x0080,D0
00021c62 67 20 |g | BEQ 0x21c84
00021c64 41 fa eb 84 |A | LEA.L 0x207ea,A0
00021c68 70 04 |p | MOVEQ.L #0x04,D0
00021c6a 2f 20 |/ | MOVE.L -(A0),-(A7)
00021c6c 51 c8 ff fc |Q | DBF D0,0x21c6a
00021c70 59 4f |YO | SUBQ.L #0x4,A7
00021c72 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021c76 3f 02 |? | MOVE.W D2,-(A7)
00021c78 3f 06 |? | MOVE.W D6,-(A7)
00021c7a 4e 92 |N | JSR (A2)
00021c7c 50 4f |PO | ADDQ.L #0x8,A7
00021c7e 4e 93 |N | JSR (A3)
00021c80 de fc 00 18 | | ADDA.W #0x18,A7
00021c84 30 2e 00 14 |0. | MOVE.W (A6+0x14),D0
00021c88 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
00021c8c 67 22 |g" | BEQ 0x21cb0
00021c8e 41 fa eb 68 |A h | LEA.L 0x207f8,A0
00021c92 70 06 |p | MOVEQ.L #0x06,D0
00021c94 3f 20 |? | MOVE.W -(A0),-(A7)
00021c96 51 c8 ff fc |Q | DBF D0,0x21c94
00021c9a 59 4f |YO | SUBQ.L #0x4,A7
00021c9c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021ca0 3f 02 |? | MOVE.W D2,-(A7)
00021ca2 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00021ca6 4e 92 |N | JSR (A2)
00021ca8 50 4f |PO | ADDQ.L #0x8,A7
00021caa 4e 93 |N | JSR (A3)
00021cac de fc 00 12 | | ADDA.W #0x12,A7
00021cb0 30 2e 00 14 |0. | MOVE.W (A6+0x14),D0
00021cb4 c0 45 | E | AND.W D5,D0
00021cb6 67 20 |g | BEQ 0x21cd8
00021cb8 2f 3a eb 46 |/: F | MOVE.L 0x20800,-(A7)
00021cbc 2f 3a eb 3e |/: > | MOVE.L 0x207fc,-(A7)
00021cc0 2f 3a eb 36 |/: 6 | MOVE.L 0x207f8,-(A7)
00021cc4 59 4f |YO | SUBQ.L #0x4,A7
00021cc6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021cca 3f 02 |? | MOVE.W D2,-(A7)
00021ccc 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
00021cd0 4e 92 |N | JSR (A2)
00021cd2 50 4f |PO | ADDQ.L #0x8,A7
00021cd4 4e 93 |N | JSR (A3)
00021cd6 de c5 | | ADDA.W D5,A7
00021cd8 30 2e 00 14 |0. | MOVE.W (A6+0x14),D0
00021cdc 02 40 00 04 | @ | ANDI.W #0x0004,D0
00021ce0 67 28 |g( | BEQ 0x21d0a
00021ce2 9e fc 00 1e | | SUBA.W #0x1e,A7
00021ce6 20 4f | O | MOVEA.L A7,A0
00021ce8 43 fa eb 1a |C | LEA.L 0x20804,A1
00021cec 70 1c |p | MOVEQ.L #0x1c,D0
00021cee 10 d9 | | MOVE.B (A1)+,(A0)+
00021cf0 51 c8 ff fc |Q | DBF D0,0x21cee
00021cf4 59 4f |YO | SUBQ.L #0x4,A7
00021cf6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021cfa 3f 02 |? | MOVE.W D2,-(A7)
00021cfc 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7)
00021d00 4e 92 |N | JSR (A2)
00021d02 50 4f |PO | ADDQ.L #0x8,A7
00021d04 4e 93 |N | JSR (A3)
00021d06 de fc 00 22 | " | ADDA.W #0x22,A7
00021d0a 30 2e 00 14 |0. | MOVE.W (A6+0x14),D0
00021d0e c0 42 | B | AND.W D2,D0
00021d10 67 22 |g" | BEQ 0x21d34
00021d12 2f 3a eb 1a |/: | MOVE.L 0x2082e,-(A7)
00021d16 2f 3a eb 12 |/: | MOVE.L 0x2082a,-(A7)
00021d1a 2f 3a eb 0a |/: | MOVE.L 0x20826,-(A7)
00021d1e 2f 3a eb 02 |/: | MOVE.L 0x20822,-(A7)
00021d22 59 4f |YO | SUBQ.L #0x4,A7
00021d24 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021d28 3f 02 |? | MOVE.W D2,-(A7)
00021d2a 3f 05 |? | MOVE.W D5,-(A7)
00021d2c 4e 92 |N | JSR (A2)
00021d2e 50 4f |PO | ADDQ.L #0x8,A7
00021d30 4e 93 |N | JSR (A3)
00021d32 de c6 | | ADDA.W D6,A7
00021d34 30 2e 00 16 |0. | MOVE.W (A6+0x16),D0
00021d38 02 40 80 00 | @ | ANDI.W #0x8000,D0
00021d3c 67 28 |g( | BEQ 0x21d66
00021d3e 9e fc 00 0a | | SUBA.W #0xa,A7
00021d42 20 4f | O | MOVEA.L A7,A0
00021d44 43 fa ea ec |C | LEA.L 0x20832,A1
00021d48 70 08 |p | MOVEQ.L #0x08,D0
00021d4a 10 d9 | | MOVE.B (A1)+,(A0)+
00021d4c 51 c8 ff fc |Q | DBF D0,0x21d4a
00021d50 59 4f |YO | SUBQ.L #0x4,A7
00021d52 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021d56 3f 02 |? | MOVE.W D2,-(A7)
00021d58 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
00021d5c 4e 92 |N | JSR (A2)
00021d5e 50 4f |PO | ADDQ.L #0x8,A7
00021d60 4e 93 |N | JSR (A3)
00021d62 de fc 00 0e | | ADDA.W #0xe,A7
00021d66 30 2e 00 16 |0. | MOVE.W (A6+0x16),D0
00021d6a 02 40 40 00 | @@ | ANDI.W #0x4000,D0
00021d6e 67 24 |g$ | BEQ 0x21d94
00021d70 9e c5 | | SUBA.W D5,A7
00021d72 20 4f | O | MOVEA.L A7,A0
00021d74 43 fa ea c6 |C | LEA.L 0x2083c,A1
00021d78 70 0e |p | MOVEQ.L #0x0e,D0
00021d7a 10 d9 | | MOVE.B (A1)+,(A0)+
00021d7c 51 c8 ff fc |Q | DBF D0,0x21d7a
00021d80 59 4f |YO | SUBQ.L #0x4,A7
00021d82 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021d86 3f 02 |? | MOVE.W D2,-(A7)
00021d88 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00021d8c 4e 92 |N | JSR (A2)
00021d8e 50 4f |PO | ADDQ.L #0x8,A7
00021d90 4e 93 |N | JSR (A3)
00021d92 de c6 | | ADDA.W D6,A7
00021d94 30 2e 00 16 |0. | MOVE.W (A6+0x16),D0
00021d98 02 40 10 00 | @ | ANDI.W #0x1000,D0
00021d9c 67 28 |g( | BEQ 0x21dc6
00021d9e 9e fc 00 3e | > | SUBA.W #0x3e,A7
00021da2 20 4f | O | MOVEA.L A7,A0
00021da4 43 fa ea a6 |C | LEA.L 0x2084c,A1
00021da8 70 3c |p< | MOVEQ.L #0x3c,D0
00021daa 10 d9 | | MOVE.B (A1)+,(A0)+
00021dac 51 c8 ff fc |Q | DBF D0,0x21daa
00021db0 59 4f |YO | SUBQ.L #0x4,A7
00021db2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021db6 3f 02 |? | MOVE.W D2,-(A7)
00021db8 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7)
00021dbc 4e 92 |N | JSR (A2)
00021dbe 50 4f |PO | ADDQ.L #0x8,A7
00021dc0 4e 93 |N | JSR (A3)
00021dc2 de fc 00 42 | B | ADDA.W #0x42,A7
00021dc6 30 2e 00 16 |0. | MOVE.W (A6+0x16),D0
00021dca 02 40 00 80 | @ | ANDI.W #0x0080,D0
00021dce 67 20 |g | BEQ 0x21df0
00021dd0 2f 3a ea c0 |/: | MOVE.L 0x20892,-(A7)
00021dd4 2f 3a ea b8 |/: | MOVE.L 0x2088e,-(A7)
00021dd8 2f 3a ea b0 |/: | MOVE.L 0x2088a,-(A7)
00021ddc 59 4f |YO | SUBQ.L #0x4,A7
00021dde 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021de2 3f 02 |? | MOVE.W D2,-(A7)
00021de4 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
00021de8 4e 92 |N | JSR (A2)
00021dea 50 4f |PO | ADDQ.L #0x8,A7
00021dec 4e 93 |N | JSR (A3)
00021dee de c5 | | ADDA.W D5,A7
00021df0 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00021df4 4e 5e |N^ | UNLK A6
00021df6 4e 75 |Nu | RTS
00021df8 ; --------------------------------------------------------------------------------------
00021df8 ; OMSI PASCAL Function
00021df8 ; <LVAR 0x01c 2(r)>
00021df8 ; <LVAR 0x01a 2(r)>
00021df8 ; <LVAR 0x018 2(r)>
00021df8 ; <LVAR 0x016 2(r)>
00021df8 ; <LVAR 0x014 2(r)>
00021df8 ; <LVAR 0x00e 2(r)>
00021df8 ; --------------------------------------------------------------------------------------
00021df8 4e 56 ff 7e |NV ~ | LINK.W A6,#0xff7e
00021dfc bf d5 | | CMPA.L (A5),A7
00021dfe 62 06 |b | BHI 0x21e06
00021e00 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021e04 4e 76 |Nv | TRAPV
00021e06 de fc 00 7e | ~ | ADDA.W #0x7e,A7
00021e0a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021e0e 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021e14 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3
00021e1a 49 ee 00 16 |I | LEA.L (A6+0x16),A4
00021e1e 74 01 |t | MOVEQ.L #0x01,D2
00021e20 76 14 |v | MOVEQ.L #0x14,D3
00021e22 78 10 |x | MOVEQ.L #0x10,D4
00021e24 7a 18 |z | MOVEQ.L #0x18,D5
00021e26 7c 13 || | MOVEQ.L #0x13,D6
00021e28 7e 00 |~ | MOVEQ.L #0x00,D7
00021e2a 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7
00021e30 63 02 |c | BLS 0x21e34
00021e32 4e 4f |NO | TRAP #15
00021e34 20 07 | | MOVE.L D7,D0
00021e36 e5 80 | | ASL.L #0x2,D0
00021e38 41 fa f7 0f |A | LEA.L 0x21549,A0
00021e3c 59 4f |YO | SUBQ.L #0x4,A7
00021e3e 1e b0 08 00 | | MOVE.B (A0+D0.L),(A7)
00021e42 1f 70 08 01 00 01 | p | MOVE.B (A0+D0.L+#0x1),(A7+0x1)
00021e48 1f 70 08 02 00 02 | p | MOVE.B (A0+D0.L+#0x2),(A7+0x2)
00021e4e 1f 70 08 03 00 03 | p | MOVE.B (A0+D0.L+#0x3),(A7+0x3)
00021e54 51 4f |QO | SUBQ.L #0x8,A7
00021e56 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021e5a 3f 02 |? | MOVE.W D2,-(A7)
00021e5c 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
00021e60 4e 92 |N | JSR (A2)
00021e62 58 4f |XO | ADDQ.L #0x4,A7
00021e64 0c 87 00 00 00 3c | < | CMPI.L #0x0000003c,D7
00021e6a 63 02 |c | BLS 0x21e6e
00021e6c 4e 4f |NO | TRAP #15
00021e6e 20 07 | | MOVE.L D7,D0
00021e70 e3 80 | | ASL.L #0x1,D0
00021e72 42 81 |B | CLR.L D1
00021e74 32 36 08 0e |26 | MOVE.W (A6+D0.L+#0xe),D1
00021e78 2f 01 |/ | MOVE.L D1,-(A7)
00021e7a 48 78 00 04 |Hx | PEA.L 0x4
00021e7e 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String
00021e84 50 4f |PO | ADDQ.L #0x8,A7
00021e86 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021e8c 50 4f |PO | ADDQ.L #0x8,A7
00021e8e 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00021e94 50 4f |PO | ADDQ.L #0x8,A7
00021e96 52 87 |R | ADDQ.L #0x1,D7
00021e98 0c 87 00 00 00 07 | | CMPI.L #0x00000007,D7
00021e9e 6f 8a |o | BLE 0x21e2a
00021ea0 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00021ea6 41 fa ec f0 |A | LEA.L 0x20b98,A0
00021eaa 70 04 |p | MOVEQ.L #0x04,D0
00021eac 2f 20 |/ | MOVE.L -(A0),-(A7)
00021eae 51 c8 ff fc |Q | DBF D0,0x21eac
00021eb2 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
00021eb6 02 40 00 0e | @ | ANDI.W #0x000e,D0
00021eba e2 48 | H | LSR.W #0x1,D0
00021ebc c0 fc 00 1e | | MULU.W #0x1e,D0
00021ec0 42 81 |B | CLR.L D1
00021ec2 32 00 |2 | MOVE.W D0,D1
00021ec4 41 fa f5 93 |A | LEA.L 0x21459,A0
00021ec8 9e fc 00 1e | | SUBA.W #0x1e,A7
00021ecc 22 4f |"O | MOVEA.L A7,A1
00021ece 41 f0 18 00 |A | LEA.L (A0+D1.L),A0
00021ed2 70 1d |p | MOVEQ.L #0x1d,D0
00021ed4 12 d8 | | MOVE.B (A0)+,(A1)+
00021ed6 51 c8 ff fc |Q | DBF D0,0x21ed4
00021eda 51 4f |QO | SUBQ.L #0x8,A7
00021edc 48 6f 00 26 |Ho & | PEA.L (A7+0x26)
00021ee0 3f 02 |? | MOVE.W D2,-(A7)
00021ee2 3f 03 |? | MOVE.W D3,-(A7)
00021ee4 4e 92 |N | JSR (A2)
00021ee6 58 4f |XO | ADDQ.L #0x4,A7
00021ee8 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021eec 3f 02 |? | MOVE.W D2,-(A7)
00021eee 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7)
00021ef2 4e 92 |N | JSR (A2)
00021ef4 50 4f |PO | ADDQ.L #0x8,A7
00021ef6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021efc 50 4f |PO | ADDQ.L #0x8,A7
00021efe 4e 93 |N | JSR (A3)
00021f00 de fc 00 24 | $ | ADDA.W #0x24,A7
00021f04 20 4f | O | MOVEA.L A7,A0
00021f06 43 fa ec 90 |C | LEA.L 0x20b98,A1
00021f0a 70 10 |p | MOVEQ.L #0x10,D0
00021f0c 10 d9 | | MOVE.B (A1)+,(A0)+
00021f0e 51 c8 ff fc |Q | DBF D0,0x21f0c
00021f12 51 4f |QO | SUBQ.L #0x8,A7
00021f14 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021f18 3f 02 |? | MOVE.W D2,-(A7)
00021f1a 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00021f1e 4e 92 |N | JSR (A2)
00021f20 58 4f |XO | ADDQ.L #0x4,A7
00021f22 42 80 |B | CLR.L D0
00021f24 30 2e 00 14 |0. | MOVE.W (A6+0x14),D0
00021f28 2f 00 |/ | MOVE.L D0,-(A7)
00021f2a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021f30 58 4f |XO | ADDQ.L #0x4,A7
00021f32 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021f38 50 4f |PO | ADDQ.L #0x8,A7
00021f3a 4e 93 |N | JSR (A3)
00021f3c de fc 00 16 | | ADDA.W #0x16,A7
00021f40 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
00021f44 02 40 80 00 | @ | ANDI.W #0x8000,D0
00021f48 67 28 |g( | BEQ 0x21f72
00021f4a 9e fc 00 12 | | SUBA.W #0x12,A7
00021f4e 20 4f | O | MOVEA.L A7,A0
00021f50 43 fa ea 5c |C \ | LEA.L 0x209ae,A1
00021f54 70 10 |p | MOVEQ.L #0x10,D0
00021f56 10 d9 | | MOVE.B (A1)+,(A0)+
00021f58 51 c8 ff fc |Q | DBF D0,0x21f56
00021f5c 59 4f |YO | SUBQ.L #0x4,A7
00021f5e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021f62 3f 02 |? | MOVE.W D2,-(A7)
00021f64 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00021f68 4e 92 |N | JSR (A2)
00021f6a 50 4f |PO | ADDQ.L #0x8,A7
00021f6c 4e 93 |N | JSR (A3)
00021f6e de fc 00 16 | | ADDA.W #0x16,A7
00021f72 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
00021f76 02 40 40 00 | @@ | ANDI.W #0x4000,D0
00021f7a 67 22 |g" | BEQ 0x21f9e
00021f7c 9e c3 | | SUBA.W D3,A7
00021f7e 20 4f | O | MOVEA.L A7,A0
00021f80 43 fa ea 3e |C > | LEA.L 0x209c0,A1
00021f84 70 12 |p | MOVEQ.L #0x12,D0
00021f86 10 d9 | | MOVE.B (A1)+,(A0)+
00021f88 51 c8 ff fc |Q | DBF D0,0x21f86
00021f8c 59 4f |YO | SUBQ.L #0x4,A7
00021f8e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021f92 3f 02 |? | MOVE.W D2,-(A7)
00021f94 3f 06 |? | MOVE.W D6,-(A7)
00021f96 4e 92 |N | JSR (A2)
00021f98 50 4f |PO | ADDQ.L #0x8,A7
00021f9a 4e 93 |N | JSR (A3)
00021f9c de c5 | | ADDA.W D5,A7
00021f9e 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
00021fa2 02 40 10 00 | @ | ANDI.W #0x1000,D0
00021fa6 67 28 |g( | BEQ 0x21fd0
00021fa8 9e fc 00 1e | | SUBA.W #0x1e,A7
00021fac 20 4f | O | MOVEA.L A7,A0
00021fae 43 fa ea 24 |C $ | LEA.L 0x209d4,A1
00021fb2 70 1c |p | MOVEQ.L #0x1c,D0
00021fb4 10 d9 | | MOVE.B (A1)+,(A0)+
00021fb6 51 c8 ff fc |Q | DBF D0,0x21fb4
00021fba 59 4f |YO | SUBQ.L #0x4,A7
00021fbc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021fc0 3f 02 |? | MOVE.W D2,-(A7)
00021fc2 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7)
00021fc6 4e 92 |N | JSR (A2)
00021fc8 50 4f |PO | ADDQ.L #0x8,A7
00021fca 4e 93 |N | JSR (A3)
00021fcc de fc 00 22 | " | ADDA.W #0x22,A7
00021fd0 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
00021fd4 02 40 08 00 | @ | ANDI.W #0x0800,D0
00021fd8 67 22 |g" | BEQ 0x21ffc
00021fda 9e c3 | | SUBA.W D3,A7
00021fdc 20 4f | O | MOVEA.L A7,A0
00021fde 43 fa ea 12 |C | LEA.L 0x209f2,A1
00021fe2 70 12 |p | MOVEQ.L #0x12,D0
00021fe4 10 d9 | | MOVE.B (A1)+,(A0)+
00021fe6 51 c8 ff fc |Q | DBF D0,0x21fe4
00021fea 59 4f |YO | SUBQ.L #0x4,A7
00021fec 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021ff0 3f 02 |? | MOVE.W D2,-(A7)
00021ff2 3f 06 |? | MOVE.W D6,-(A7)
00021ff4 4e 92 |N | JSR (A2)
00021ff6 50 4f |PO | ADDQ.L #0x8,A7
00021ff8 4e 93 |N | JSR (A3)
00021ffa de c5 | | ADDA.W D5,A7
00021ffc 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
00022000 02 40 04 00 | @ | ANDI.W #0x0400,D0
00022004 67 22 |g" | BEQ 0x22028
00022006 9e c3 | | SUBA.W D3,A7
00022008 20 4f | O | MOVEA.L A7,A0
0002200a 43 fa e9 fa |C | LEA.L 0x20a06,A1
0002200e 70 12 |p | MOVEQ.L #0x12,D0
00022010 10 d9 | | MOVE.B (A1)+,(A0)+
00022012 51 c8 ff fc |Q | DBF D0,0x22010
00022016 59 4f |YO | SUBQ.L #0x4,A7
00022018 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002201c 3f 02 |? | MOVE.W D2,-(A7)
0002201e 3f 06 |? | MOVE.W D6,-(A7)
00022020 4e 92 |N | JSR (A2)
00022022 50 4f |PO | ADDQ.L #0x8,A7
00022024 4e 93 |N | JSR (A3)
00022026 de c5 | | ADDA.W D5,A7
00022028 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
0002202c 02 40 00 80 | @ | ANDI.W #0x0080,D0
00022030 67 24 |g$ | BEQ 0x22056
00022032 9e c4 | | SUBA.W D4,A7
00022034 20 4f | O | MOVEA.L A7,A0
00022036 43 fa e9 e2 |C | LEA.L 0x20a1a,A1
0002203a 70 0e |p | MOVEQ.L #0x0e,D0
0002203c 10 d9 | | MOVE.B (A1)+,(A0)+
0002203e 51 c8 ff fc |Q | DBF D0,0x2203c
00022042 59 4f |YO | SUBQ.L #0x4,A7
00022044 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022048 3f 02 |? | MOVE.W D2,-(A7)
0002204a 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
0002204e 4e 92 |N | JSR (A2)
00022050 50 4f |PO | ADDQ.L #0x8,A7
00022052 4e 93 |N | JSR (A3)
00022054 de c3 | | ADDA.W D3,A7
00022056 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
0002205a 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
0002205e 67 1e |g | BEQ 0x2207e
00022060 2f 3a e9 cc |/: | MOVE.L 0x20a2e,-(A7)
00022064 2f 3a e9 c4 |/: | MOVE.L 0x20a2a,-(A7)
00022068 59 4f |YO | SUBQ.L #0x4,A7
0002206a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002206e 3f 02 |? | MOVE.W D2,-(A7)
00022070 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7)
00022074 4e 92 |N | JSR (A2)
00022076 50 4f |PO | ADDQ.L #0x8,A7
00022078 4e 93 |N | JSR (A3)
0002207a de fc 00 0c | | ADDA.W #0xc,A7
0002207e 30 14 |0 | MOVE.W (A4),D0
00022080 02 40 80 00 | @ | ANDI.W #0x8000,D0
00022084 67 28 |g( | BEQ 0x220ae
00022086 9e fc 00 0a | | SUBA.W #0xa,A7
0002208a 20 4f | O | MOVEA.L A7,A0
0002208c 43 fa e9 a4 |C | LEA.L 0x20a32,A1
00022090 70 08 |p | MOVEQ.L #0x08,D0
00022092 10 d9 | | MOVE.B (A1)+,(A0)+
00022094 51 c8 ff fc |Q | DBF D0,0x22092
00022098 59 4f |YO | SUBQ.L #0x4,A7
0002209a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002209e 3f 02 |? | MOVE.W D2,-(A7)
000220a0 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
000220a4 4e 92 |N | JSR (A2)
000220a6 50 4f |PO | ADDQ.L #0x8,A7
000220a8 4e 93 |N | JSR (A3)
000220aa de fc 00 0e | | ADDA.W #0xe,A7
000220ae 30 14 |0 | MOVE.W (A4),D0
000220b0 02 40 40 00 | @@ | ANDI.W #0x4000,D0
000220b4 67 22 |g" | BEQ 0x220d8
000220b6 9e c3 | | SUBA.W D3,A7
000220b8 20 4f | O | MOVEA.L A7,A0
000220ba 43 fa e9 80 |C | LEA.L 0x20a3c,A1
000220be 70 12 |p | MOVEQ.L #0x12,D0
000220c0 10 d9 | | MOVE.B (A1)+,(A0)+
000220c2 51 c8 ff fc |Q | DBF D0,0x220c0
000220c6 59 4f |YO | SUBQ.L #0x4,A7
000220c8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000220cc 3f 02 |? | MOVE.W D2,-(A7)
000220ce 3f 06 |? | MOVE.W D6,-(A7)
000220d0 4e 92 |N | JSR (A2)
000220d2 50 4f |PO | ADDQ.L #0x8,A7
000220d4 4e 93 |N | JSR (A3)
000220d6 de c5 | | ADDA.W D5,A7
000220d8 30 14 |0 | MOVE.W (A4),D0
000220da 02 40 20 00 | @ | ANDI.W #0x2000,D0
000220de 67 22 |g" | BEQ 0x22102
000220e0 9e c3 | | SUBA.W D3,A7
000220e2 20 4f | O | MOVEA.L A7,A0
000220e4 43 fa e9 6a |C j | LEA.L 0x20a50,A1
000220e8 70 12 |p | MOVEQ.L #0x12,D0
000220ea 10 d9 | | MOVE.B (A1)+,(A0)+
000220ec 51 c8 ff fc |Q | DBF D0,0x220ea
000220f0 59 4f |YO | SUBQ.L #0x4,A7
000220f2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000220f6 3f 02 |? | MOVE.W D2,-(A7)
000220f8 3f 06 |? | MOVE.W D6,-(A7)
000220fa 4e 92 |N | JSR (A2)
000220fc 50 4f |PO | ADDQ.L #0x8,A7
000220fe 4e 93 |N | JSR (A3)
00022100 de c5 | | ADDA.W D5,A7
00022102 30 14 |0 | MOVE.W (A4),D0
00022104 02 40 10 00 | @ | ANDI.W #0x1000,D0
00022108 67 22 |g" | BEQ 0x2212c
0002210a 41 fa e9 6a |A j | LEA.L 0x20a76,A0
0002210e 70 08 |p | MOVEQ.L #0x08,D0
00022110 3f 20 |? | MOVE.W -(A0),-(A7)
00022112 51 c8 ff fc |Q | DBF D0,0x22110
00022116 59 4f |YO | SUBQ.L #0x4,A7
00022118 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002211c 3f 02 |? | MOVE.W D2,-(A7)
0002211e 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00022122 4e 92 |N | JSR (A2)
00022124 50 4f |PO | ADDQ.L #0x8,A7
00022126 4e 93 |N | JSR (A3)
00022128 de fc 00 16 | | ADDA.W #0x16,A7
0002212c 30 14 |0 | MOVE.W (A4),D0
0002212e 02 40 08 00 | @ | ANDI.W #0x0800,D0
00022132 67 22 |g" | BEQ 0x22156
00022134 2f 3a e9 4c |/: L | MOVE.L 0x20a82,-(A7)
00022138 2f 3a e9 44 |/: D | MOVE.L 0x20a7e,-(A7)
0002213c 2f 3a e9 3c |/: < | MOVE.L 0x20a7a,-(A7)
00022140 2f 3a e9 34 |/: 4 | MOVE.L 0x20a76,-(A7)
00022144 59 4f |YO | SUBQ.L #0x4,A7
00022146 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002214a 3f 02 |? | MOVE.W D2,-(A7)
0002214c 3f 04 |? | MOVE.W D4,-(A7)
0002214e 4e 92 |N | JSR (A2)
00022150 50 4f |PO | ADDQ.L #0x8,A7
00022152 4e 93 |N | JSR (A3)
00022154 de c3 | | ADDA.W D3,A7
00022156 30 14 |0 | MOVE.W (A4),D0
00022158 02 40 04 00 | @ | ANDI.W #0x0400,D0
0002215c 67 26 |g& | BEQ 0x22184
0002215e 9e c5 | | SUBA.W D5,A7
00022160 20 4f | O | MOVEA.L A7,A0
00022162 43 fa e9 22 |C " | LEA.L 0x20a86,A1
00022166 70 16 |p | MOVEQ.L #0x16,D0
00022168 10 d9 | | MOVE.B (A1)+,(A0)+
0002216a 51 c8 ff fc |Q | DBF D0,0x22168
0002216e 59 4f |YO | SUBQ.L #0x4,A7
00022170 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022174 3f 02 |? | MOVE.W D2,-(A7)
00022176 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
0002217a 4e 92 |N | JSR (A2)
0002217c 50 4f |PO | ADDQ.L #0x8,A7
0002217e 4e 93 |N | JSR (A3)
00022180 de fc 00 1c | | ADDA.W #0x1c,A7
00022184 30 14 |0 | MOVE.W (A4),D0
00022186 02 40 02 00 | @ | ANDI.W #0x0200,D0
0002218a 67 24 |g$ | BEQ 0x221b0
0002218c 9e c4 | | SUBA.W D4,A7
0002218e 20 4f | O | MOVEA.L A7,A0
00022190 43 fa e9 0c |C | LEA.L 0x20a9e,A1
00022194 70 0e |p | MOVEQ.L #0x0e,D0
00022196 10 d9 | | MOVE.B (A1)+,(A0)+
00022198 51 c8 ff fc |Q | DBF D0,0x22196
0002219c 59 4f |YO | SUBQ.L #0x4,A7
0002219e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000221a2 3f 02 |? | MOVE.W D2,-(A7)
000221a4 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
000221a8 4e 92 |N | JSR (A2)
000221aa 50 4f |PO | ADDQ.L #0x8,A7
000221ac 4e 93 |N | JSR (A3)
000221ae de c3 | | ADDA.W D3,A7
000221b0 30 14 |0 | MOVE.W (A4),D0
000221b2 02 40 01 00 | @ | ANDI.W #0x0100,D0
000221b6 67 24 |g$ | BEQ 0x221dc
000221b8 9e c4 | | SUBA.W D4,A7
000221ba 20 4f | O | MOVEA.L A7,A0
000221bc 43 fa e8 f0 |C | LEA.L 0x20aae,A1
000221c0 70 0e |p | MOVEQ.L #0x0e,D0
000221c2 10 d9 | | MOVE.B (A1)+,(A0)+
000221c4 51 c8 ff fc |Q | DBF D0,0x221c2
000221c8 59 4f |YO | SUBQ.L #0x4,A7
000221ca 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000221ce 3f 02 |? | MOVE.W D2,-(A7)
000221d0 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
000221d4 4e 92 |N | JSR (A2)
000221d6 50 4f |PO | ADDQ.L #0x8,A7
000221d8 4e 93 |N | JSR (A3)
000221da de c3 | | ADDA.W D3,A7
000221dc 30 14 |0 | MOVE.W (A4),D0
000221de 02 40 00 80 | @ | ANDI.W #0x0080,D0
000221e2 67 22 |g" | BEQ 0x22206
000221e4 41 fa e8 e6 |A | LEA.L 0x20acc,A0
000221e8 70 06 |p | MOVEQ.L #0x06,D0
000221ea 3f 20 |? | MOVE.W -(A0),-(A7)
000221ec 51 c8 ff fc |Q | DBF D0,0x221ea
000221f0 59 4f |YO | SUBQ.L #0x4,A7
000221f2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000221f6 3f 02 |? | MOVE.W D2,-(A7)
000221f8 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
000221fc 4e 92 |N | JSR (A2)
000221fe 50 4f |PO | ADDQ.L #0x8,A7
00022200 4e 93 |N | JSR (A3)
00022202 de fc 00 12 | | ADDA.W #0x12,A7
00022206 30 14 |0 | MOVE.W (A4),D0
00022208 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
0002220c 67 26 |g& | BEQ 0x22234
0002220e 51 4f |QO | SUBQ.L #0x8,A7
00022210 20 4f | O | MOVEA.L A7,A0
00022212 43 fa e8 b8 |C | LEA.L 0x20acc,A1
00022216 70 06 |p | MOVEQ.L #0x06,D0
00022218 10 d9 | | MOVE.B (A1)+,(A0)+
0002221a 51 c8 ff fc |Q | DBF D0,0x22218
0002221e 59 4f |YO | SUBQ.L #0x4,A7
00022220 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022224 3f 02 |? | MOVE.W D2,-(A7)
00022226 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7)
0002222a 4e 92 |N | JSR (A2)
0002222c 50 4f |PO | ADDQ.L #0x8,A7
0002222e 4e 93 |N | JSR (A3)
00022230 de fc 00 0c | | ADDA.W #0xc,A7
00022234 30 14 |0 | MOVE.W (A4),D0
00022236 02 40 00 20 | @ | ANDI.W #0x0020,D0
0002223a 67 22 |g" | BEQ 0x2225e
0002223c 2f 3a e8 a2 |/: | MOVE.L 0x20ae0,-(A7)
00022240 2f 3a e8 9a |/: | MOVE.L 0x20adc,-(A7)
00022244 2f 3a e8 92 |/: | MOVE.L 0x20ad8,-(A7)
00022248 2f 3a e8 8a |/: | MOVE.L 0x20ad4,-(A7)
0002224c 59 4f |YO | SUBQ.L #0x4,A7
0002224e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022252 3f 02 |? | MOVE.W D2,-(A7)
00022254 3f 04 |? | MOVE.W D4,-(A7)
00022256 4e 92 |N | JSR (A2)
00022258 50 4f |PO | ADDQ.L #0x8,A7
0002225a 4e 93 |N | JSR (A3)
0002225c de c3 | | ADDA.W D3,A7
0002225e 30 14 |0 | MOVE.W (A4),D0
00022260 c0 44 | D | AND.W D4,D0
00022262 67 20 |g | BEQ 0x22284
00022264 2f 3a e8 86 |/: | MOVE.L 0x20aec,-(A7)
00022268 2f 3a e8 7e |/: ~ | MOVE.L 0x20ae8,-(A7)
0002226c 2f 3a e8 76 |/: v | MOVE.L 0x20ae4,-(A7)
00022270 59 4f |YO | SUBQ.L #0x4,A7
00022272 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022276 3f 02 |? | MOVE.W D2,-(A7)
00022278 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
0002227c 4e 92 |N | JSR (A2)
0002227e 50 4f |PO | ADDQ.L #0x8,A7
00022280 4e 93 |N | JSR (A3)
00022282 de c4 | | ADDA.W D4,A7
00022284 30 14 |0 | MOVE.W (A4),D0
00022286 02 40 00 08 | @ | ANDI.W #0x0008,D0
0002228a 67 28 |g( | BEQ 0x222b4
0002228c 9e fc 00 0e | | SUBA.W #0xe,A7
00022290 20 4f | O | MOVEA.L A7,A0
00022292 43 fa e8 5c |C \ | LEA.L 0x20af0,A1
00022296 70 0c |p | MOVEQ.L #0x0c,D0
00022298 10 d9 | | MOVE.B (A1)+,(A0)+
0002229a 51 c8 ff fc |Q | DBF D0,0x22298
0002229e 59 4f |YO | SUBQ.L #0x4,A7
000222a0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000222a4 3f 02 |? | MOVE.W D2,-(A7)
000222a6 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7)
000222aa 4e 92 |N | JSR (A2)
000222ac 50 4f |PO | ADDQ.L #0x8,A7
000222ae 4e 93 |N | JSR (A3)
000222b0 de fc 00 12 | | ADDA.W #0x12,A7
000222b4 30 14 |0 | MOVE.W (A4),D0
000222b6 02 40 00 04 | @ | ANDI.W #0x0004,D0
000222ba 67 20 |g | BEQ 0x222dc
000222bc 2f 3a e8 48 |/: H | MOVE.L 0x20b06,-(A7)
000222c0 2f 3a e8 40 |/: @ | MOVE.L 0x20b02,-(A7)
000222c4 2f 3a e8 38 |/: 8 | MOVE.L 0x20afe,-(A7)
000222c8 59 4f |YO | SUBQ.L #0x4,A7
000222ca 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000222ce 3f 02 |? | MOVE.W D2,-(A7)
000222d0 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7)
000222d4 4e 92 |N | JSR (A2)
000222d6 50 4f |PO | ADDQ.L #0x8,A7
000222d8 4e 93 |N | JSR (A3)
000222da de c4 | | ADDA.W D4,A7
000222dc 30 14 |0 | MOVE.W (A4),D0
000222de 02 40 00 02 | @ | ANDI.W #0x0002,D0
000222e2 67 26 |g& | BEQ 0x2230a
000222e4 59 4f |YO | SUBQ.L #0x4,A7
000222e6 1e ba e8 22 | " | MOVE.B 0x20b0a,(A7)
000222ea 1f 7a e8 1f 00 01 | z | MOVE.B 0x20b0b,(A7+0x1)
000222f0 1f 7a e8 1a 00 02 | z | MOVE.B 0x20b0c,(A7+0x2)
000222f6 59 4f |YO | SUBQ.L #0x4,A7
000222f8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000222fc 3f 02 |? | MOVE.W D2,-(A7)
000222fe 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7)
00022302 4e 92 |N | JSR (A2)
00022304 50 4f |PO | ADDQ.L #0x8,A7
00022306 4e 93 |N | JSR (A3)
00022308 50 4f |PO | ADDQ.L #0x8,A7
0002230a 30 14 |0 | MOVE.W (A4),D0
0002230c c0 42 | B | AND.W D2,D0
0002230e 67 26 |g& | BEQ 0x22336
00022310 59 4f |YO | SUBQ.L #0x4,A7
00022312 1e ba e7 fa | | MOVE.B 0x20b0e,(A7)
00022316 1f 7a e7 f7 00 01 | z | MOVE.B 0x20b0f,(A7+0x1)
0002231c 1f 7a e7 f2 00 02 | z | MOVE.B 0x20b10,(A7+0x2)
00022322 59 4f |YO | SUBQ.L #0x4,A7
00022324 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022328 3f 02 |? | MOVE.W D2,-(A7)
0002232a 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7)
0002232e 4e 92 |N | JSR (A2)
00022330 50 4f |PO | ADDQ.L #0x8,A7
00022332 4e 93 |N | JSR (A3)
00022334 50 4f |PO | ADDQ.L #0x8,A7
00022336 30 2e 00 18 |0. | MOVE.W (A6+0x18),D0
0002233a 02 40 80 00 | @ | ANDI.W #0x8000,D0
0002233e 67 28 |g( | BEQ 0x22368
00022340 9e fc 00 0a | | SUBA.W #0xa,A7
00022344 20 4f | O | MOVEA.L A7,A0
00022346 43 fa e7 ca |C | LEA.L 0x20b12,A1
0002234a 70 08 |p | MOVEQ.L #0x08,D0
0002234c 10 d9 | | MOVE.B (A1)+,(A0)+
0002234e 51 c8 ff fc |Q | DBF D0,0x2234c
00022352 59 4f |YO | SUBQ.L #0x4,A7
00022354 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022358 3f 02 |? | MOVE.W D2,-(A7)
0002235a 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
0002235e 4e 92 |N | JSR (A2)
00022360 50 4f |PO | ADDQ.L #0x8,A7
00022362 4e 93 |N | JSR (A3)
00022364 de fc 00 0e | | ADDA.W #0xe,A7
00022368 30 2e 00 18 |0. | MOVE.W (A6+0x18),D0
0002236c 02 40 20 00 | @ | ANDI.W #0x2000,D0
00022370 67 28 |g( | BEQ 0x2239a
00022372 9e fc 00 12 | | SUBA.W #0x12,A7
00022376 20 4f | O | MOVEA.L A7,A0
00022378 43 fa e7 a2 |C | LEA.L 0x20b1c,A1
0002237c 70 10 |p | MOVEQ.L #0x10,D0
0002237e 10 d9 | | MOVE.B (A1)+,(A0)+
00022380 51 c8 ff fc |Q | DBF D0,0x2237e
00022384 59 4f |YO | SUBQ.L #0x4,A7
00022386 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002238a 3f 02 |? | MOVE.W D2,-(A7)
0002238c 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00022390 4e 92 |N | JSR (A2)
00022392 50 4f |PO | ADDQ.L #0x8,A7
00022394 4e 93 |N | JSR (A3)
00022396 de fc 00 16 | | ADDA.W #0x16,A7
0002239a 30 2e 00 18 |0. | MOVE.W (A6+0x18),D0
0002239e 02 40 00 02 | @ | ANDI.W #0x0002,D0
000223a2 67 22 |g" | BEQ 0x223c6
000223a4 9e c3 | | SUBA.W D3,A7
000223a6 20 4f | O | MOVEA.L A7,A0
000223a8 43 fa e7 84 |C | LEA.L 0x20b2e,A1
000223ac 70 12 |p | MOVEQ.L #0x12,D0
000223ae 10 d9 | | MOVE.B (A1)+,(A0)+
000223b0 51 c8 ff fc |Q | DBF D0,0x223ae
000223b4 59 4f |YO | SUBQ.L #0x4,A7
000223b6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000223ba 3f 02 |? | MOVE.W D2,-(A7)
000223bc 3f 06 |? | MOVE.W D6,-(A7)
000223be 4e 92 |N | JSR (A2)
000223c0 50 4f |PO | ADDQ.L #0x8,A7
000223c2 4e 93 |N | JSR (A3)
000223c4 de c5 | | ADDA.W D5,A7
000223c6 30 2e 00 1a |0. | MOVE.W (A6+0x1a),D0
000223ca 02 40 80 00 | @ | ANDI.W #0x8000,D0
000223ce 67 28 |g( | BEQ 0x223f8
000223d0 9e fc 00 16 | | SUBA.W #0x16,A7
000223d4 20 4f | O | MOVEA.L A7,A0
000223d6 43 fa e7 6a |C j | LEA.L 0x20b42,A1
000223da 70 14 |p | MOVEQ.L #0x14,D0
000223dc 10 d9 | | MOVE.B (A1)+,(A0)+
000223de 51 c8 ff fc |Q | DBF D0,0x223dc
000223e2 59 4f |YO | SUBQ.L #0x4,A7
000223e4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000223e8 3f 02 |? | MOVE.W D2,-(A7)
000223ea 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
000223ee 4e 92 |N | JSR (A2)
000223f0 50 4f |PO | ADDQ.L #0x8,A7
000223f2 4e 93 |N | JSR (A3)
000223f4 de fc 00 1a | | ADDA.W #0x1a,A7
000223f8 30 2e 00 1c |0. | MOVE.W (A6+0x1c),D0
000223fc 02 40 00 40 | @ @ | ANDI.W #0x0040,D0
00022400 67 1e |g | BEQ 0x22420
00022402 41 fa e7 68 |A h | LEA.L 0x20b6c,A0
00022406 70 04 |p | MOVEQ.L #0x04,D0
00022408 2f 20 |/ | MOVE.L -(A0),-(A7)
0002240a 51 c8 ff fc |Q | DBF D0,0x22408
0002240e 59 4f |YO | SUBQ.L #0x4,A7
00022410 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022414 3f 02 |? | MOVE.W D2,-(A7)
00022416 3f 03 |? | MOVE.W D3,-(A7)
00022418 4e 92 |N | JSR (A2)
0002241a 50 4f |PO | ADDQ.L #0x8,A7
0002241c 4e 93 |N | JSR (A3)
0002241e de c5 | | ADDA.W D5,A7
00022420 30 2e 00 1c |0. | MOVE.W (A6+0x1c),D0
00022424 02 40 00 20 | @ | ANDI.W #0x0020,D0
00022428 67 26 |g& | BEQ 0x22450
0002242a 51 4f |QO | SUBQ.L #0x8,A7
0002242c 20 4f | O | MOVEA.L A7,A0
0002242e 43 fa e7 3c |C < | LEA.L 0x20b6c,A1
00022432 70 06 |p | MOVEQ.L #0x06,D0
00022434 10 d9 | | MOVE.B (A1)+,(A0)+
00022436 51 c8 ff fc |Q | DBF D0,0x22434
0002243a 59 4f |YO | SUBQ.L #0x4,A7
0002243c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022440 3f 02 |? | MOVE.W D2,-(A7)
00022442 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7)
00022446 4e 92 |N | JSR (A2)
00022448 50 4f |PO | ADDQ.L #0x8,A7
0002244a 4e 93 |N | JSR (A3)
0002244c de fc 00 0c | | ADDA.W #0xc,A7
00022450 30 2e 00 1c |0. | MOVE.W (A6+0x1c),D0
00022454 c0 42 | B | AND.W D2,D0
00022456 67 22 |g" | BEQ 0x2247a
00022458 2f 3a e7 26 |/: & | MOVE.L 0x20b80,-(A7)
0002245c 2f 3a e7 1e |/: | MOVE.L 0x20b7c,-(A7)
00022460 2f 3a e7 16 |/: | MOVE.L 0x20b78,-(A7)
00022464 2f 3a e7 0e |/: | MOVE.L 0x20b74,-(A7)
00022468 59 4f |YO | SUBQ.L #0x4,A7
0002246a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002246e 3f 02 |? | MOVE.W D2,-(A7)
00022470 3f 04 |? | MOVE.W D4,-(A7)
00022472 4e 92 |N | JSR (A2)
00022474 50 4f |PO | ADDQ.L #0x8,A7
00022476 4e 93 |N | JSR (A3)
00022478 de c3 | | ADDA.W D3,A7
0002247a 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002247e 4e 5e |N^ | UNLK A6
00022480 4e 75 |Nu | RTS
00022482 ; --------------------------------------------------------------------------------------
00022482 ; OMSI PASCAL Function
00022482 ; <LVAR 0x008 4(r)>
00022482 ; --------------------------------------------------------------------------------------
00022482 4e 56 ff ea |NV | LINK.W A6,#0xffea
00022486 bf d5 | | CMPA.L (A5),A7
00022488 62 06 |b | BHI 0x22490
0002248a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002248e 4e 76 |Nv | TRAPV
00022490 de fc 00 12 | | ADDA.W #0x12,A7
00022494 48 e7 01 80 |H | MOVEM.L A0+D7,-(A7)
00022498 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
0002249c 48 50 |HP | PEA.L (A0)
0002249e 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
000224a4 58 4f |XO | ADDQ.L #0x4,A7
000224a6 20 6c 00 16 | l | MOVEA.L (A4+0x16),A0
000224aa 1e 10 | | MOVE.B (A0),D7
000224ac 67 10 |g | BEQ 0x224be
000224ae 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
000224b2 2f 10 |/ | MOVE.L (A0),-(A7)
000224b4 1f 07 | | MOVE.B D7,-(A7)
000224b6 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
000224bc 5c 4f |\O | ADDQ.L #0x6,A7
000224be 52 ac 00 16 |R | ADDQ.L #0x1,(A4+0x16)
000224c2 4a 07 |J | TST.B D7
000224c4 66 e0 |f | BNE 0x224a6
000224c6 4c df 01 80 |L | MOVEM.L (A7)+,D7+A0
000224ca 4e 5e |N^ | UNLK A6
000224cc 4e 75 |Nu | RTS
000224ce ; --------------------------------------------------------------------------------------
000224ce ; OMSI PASCAL Function
000224ce ; <LVAR 0x01c @>
000224ce ; <LVAR 0x012 2(r)>
000224ce ; <LVAR 0x011 1(r)>
000224ce ; <LVAR 0x00e 2(r)>
000224ce ; <LVAR -0x006 4(w)>
000224ce ; <LVAR -0x00a @ 4(r)>
000224ce ; <LVAR -0x00e @ 4(r)>
000224ce ; <LVAR -0x012 4(rw)>
000224ce ; <LVAR -0x01c @>
000224ce ; --------------------------------------------------------------------------------------
000224ce 4e 56 ff 6e |NV n | LINK.W A6,#0xff6e
000224d2 bf d5 | | CMPA.L (A5),A7
000224d4 62 06 |b | BHI 0x224dc
000224d6 44 fc 00 02 |D | MOVE.W #0x2,CCR
000224da 4e 76 |Nv | TRAPV
000224dc de fc 00 76 | v | ADDA.W #0x76,A7
000224e0 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7)
000224e4 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
000224ea 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3
000224f0 74 01 |t | MOVEQ.L #0x01,D2
000224f2 42 80 |B | CLR.L D0
000224f4 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
000224f8 2e 00 |. | MOVE.L D0,D7
000224fa 42 80 |B | CLR.L D0
000224fc 10 2e 00 11 | . | MOVE.B (A6+0x11),D0
00022500 41 bc 00 0d |A | CHK.W #0xd,D0
00022504 1c 00 | | MOVE.B D0,D6
00022506 30 2e 00 12 |0. | MOVE.W (A6+0x12),D0
0002250a e0 48 | H | LSR.W #0x8,D0
0002250c 42 81 |B | CLR.L D1
0002250e 32 00 |2 | MOVE.W D0,D1
00022510 2a 01 |* | MOVE.L D1,D5
00022512 30 2e 00 12 |0. | MOVE.W (A6+0x12),D0
00022516 02 40 00 ff | @ | ANDI.W #0x00ff,D0
0002251a 42 81 |B | CLR.L D1
0002251c 32 00 |2 | MOVE.W D0,D1
0002251e 2d 41 ff ee |-A | MOVE.L D1,(A6-0x12)
00022522 9e fc 00 18 | | SUBA.W #0x18,A7
00022526 20 4f | O | MOVEA.L A7,A0
00022528 43 fa e7 04 |C | LEA.L 0x20c2e,A1
0002252c 70 16 |p | MOVEQ.L #0x16,D0
0002252e 10 d9 | | MOVE.B (A1)+,(A0)+
00022530 51 c8 ff fc |Q | DBF D0,0x2252e
00022534 51 4f |QO | SUBQ.L #0x8,A7
00022536 48 6f 00 08 |Ho | PEA.L (A7+0x8)
0002253a 3f 02 |? | MOVE.W D2,-(A7)
0002253c 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00022540 4e 92 |N | JSR (A2)
00022542 54 4f |TO | ADDQ.L #0x2,A7
00022544 1e 86 | | MOVE.B D6,(A7)
00022546 4e ba f1 0a |N | JSR 0x21652
0002254a 54 4f |TO | ADDQ.L #0x2,A7
0002254c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022552 50 4f |PO | ADDQ.L #0x8,A7
00022554 4e 93 |N | JSR (A3)
00022556 de fc 00 1c | | ADDA.W #0x1c,A7
0002255a 20 07 | | MOVE.L D7,D0
0002255c 53 80 |S | SUBQ.L #0x1,D0
0002255e 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0
00022564 62 00 00 c6 |b | BHI 0x2262c
00022568 d0 40 | @ | ADD.W D0,D0
0002256a 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
00022572 00 08 | | .CONST 0x8 ; [0x0] -> 0x2257a
00022574 00 46 | F | .CONST 0x46 ; [0x1] -> 0x225b8
00022576 00 6c | l | .CONST 0x6c ; [0x2] -> 0x225de
00022578 00 96 | | .CONST 0x96 ; [0x3] -> 0x22608
0002257a switch@0x2256a[0x0]:
0002257a 41 ee 00 1c |A | LEA.L (A6+0x1c),A0
0002257e 2f 08 |/ | MOVE.L A0,-(A7)
00022580 2d 5f ff fa |-_ | MOVE.L (A7)+,(A6-0x6)
00022584 48 6e ff f2 |Hn | PEA.L (A6-0xe)
00022588 49 ee ff e4 |I | LEA.L (A6-0x1c),A4
0002258c 4e ba fe f4 |N | JSR 0x22482
00022590 58 4f |XO | ADDQ.L #0x4,A7
00022592 48 6e ff f6 |Hn | PEA.L (A6-0xa)
00022596 49 ee ff e4 |I | LEA.L (A6-0x1c),A4
0002259a 4e ba fe e6 |N | JSR 0x22482
0002259e 2e ae ff f2 |. | MOVE.L (A6-0xe),(A7)
000225a2 2f 2e ff f6 |/. | MOVE.L (A6-0xa),-(A7)
000225a6 2f 2e ff ee |/. | MOVE.L (A6-0x12),-(A7)
000225aa 4e b9 00 01 04 4c |N L | JSR WriteErrorMessage(file : String; txt : String; number : Long) : Bool
000225b0 de fc 00 0c | | ADDA.W #0xc,A7
000225b4 60 00 00 ae |` | BRA 0x22664
000225b8 switch@0x2256a[0x1]:
000225b8 41 fa e6 16 |A | LEA.L 0x20bd0,A0
000225bc 70 12 |p | MOVEQ.L #0x12,D0
000225be 3f 20 |? | MOVE.W -(A0),-(A7)
000225c0 51 c8 ff fc |Q | DBF D0,0x225be
000225c4 59 4f |YO | SUBQ.L #0x4,A7
000225c6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000225ca 3f 02 |? | MOVE.W D2,-(A7)
000225cc 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7)
000225d0 4e 92 |N | JSR (A2)
000225d2 50 4f |PO | ADDQ.L #0x8,A7
000225d4 4e 93 |N | JSR (A3)
000225d6 de fc 00 2a | * | ADDA.W #0x2a,A7
000225da 60 00 00 88 |` | BRA 0x22664
000225de switch@0x2256a[0x2]:
000225de 9e fc 00 3a | : | SUBA.W #0x3a,A7
000225e2 20 4f | O | MOVEA.L A7,A0
000225e4 43 fa e5 ea |C | LEA.L 0x20bd0,A1
000225e8 70 38 |p8 | MOVEQ.L #0x38,D0
000225ea 10 d9 | | MOVE.B (A1)+,(A0)+
000225ec 51 c8 ff fc |Q | DBF D0,0x225ea
000225f0 59 4f |YO | SUBQ.L #0x4,A7
000225f2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000225f6 3f 02 |? | MOVE.W D2,-(A7)
000225f8 3f 3c 00 39 |?< 9 | MOVE.W #0x39,-(A7)
000225fc 4e 92 |N | JSR (A2)
000225fe 50 4f |PO | ADDQ.L #0x8,A7
00022600 4e 93 |N | JSR (A3)
00022602 de fc 00 3e | > | ADDA.W #0x3e,A7
00022606 60 5c |`\ | BRA 0x22664
00022608 switch@0x2256a[0x3]:
00022608 41 fa e6 24 |A $ | LEA.L 0x20c2e,A0
0002260c 70 08 |p | MOVEQ.L #0x08,D0
0002260e 2f 20 |/ | MOVE.L -(A0),-(A7)
00022610 51 c8 ff fc |Q | DBF D0,0x2260e
00022614 59 4f |YO | SUBQ.L #0x4,A7
00022616 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002261a 3f 02 |? | MOVE.W D2,-(A7)
0002261c 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7)
00022620 4e 92 |N | JSR (A2)
00022622 50 4f |PO | ADDQ.L #0x8,A7
00022624 4e 93 |N | JSR (A3)
00022626 de fc 00 28 | ( | ADDA.W #0x28,A7
0002262a 60 38 |`8 | BRA 0x22664
0002262c 9e fc 00 1e | | SUBA.W #0x1e,A7
00022630 20 4f | O | MOVEA.L A7,A0
00022632 43 fa e6 12 |C | LEA.L 0x20c46,A1
00022636 70 1c |p | MOVEQ.L #0x1c,D0
00022638 10 d9 | | MOVE.B (A1)+,(A0)+
0002263a 51 c8 ff fc |Q | DBF D0,0x22638
0002263e 51 4f |QO | SUBQ.L #0x8,A7
00022640 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00022644 3f 02 |? | MOVE.W D2,-(A7)
00022646 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7)
0002264a 4e 92 |N | JSR (A2)
0002264c 2e 87 |. | MOVE.L D7,(A7)
0002264e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00022654 58 4f |XO | ADDQ.L #0x4,A7
00022656 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
0002265c 50 4f |PO | ADDQ.L #0x8,A7
0002265e 4e 93 |N | JSR (A3)
00022660 de fc 00 22 | " | ADDA.W #0x22,A7
00022664 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4
00022668 4e 5e |N^ | UNLK A6
0002266a 4e 75 |Nu | RTS
0002266c ; --------------------------------------------------------------------------------------
0002266c ; OMSI PASCAL Function
0002266c ; <LVAR 0x00e 2(r)>
0002266c ; --------------------------------------------------------------------------------------
0002266c 4e 56 ff ce |NV | LINK.W A6,#0xffce
00022670 bf d5 | | CMPA.L (A5),A7
00022672 62 06 |b | BHI 0x2267a
00022674 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022678 4e 76 |Nv | TRAPV
0002267a de fc 00 2e | . | ADDA.W #0x2e,A7
0002267e 48 e7 81 80 |H | MOVEM.L A0+D7+D0,-(A7)
00022682 42 80 |B | CLR.L D0
00022684 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
00022688 2e 00 |. | MOVE.L D0,D7
0002268a 41 fa e5 ea |A | LEA.L 0x20c76,A0
0002268e 70 08 |p | MOVEQ.L #0x08,D0
00022690 3f 20 |? | MOVE.W -(A0),-(A7)
00022692 51 c8 ff fc |Q | DBF D0,0x22690
00022696 59 4f |YO | SUBQ.L #0x4,A7
00022698 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002269c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000226a0 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
000226a4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000226aa 58 4f |XO | ADDQ.L #0x4,A7
000226ac 2e 87 |. | MOVE.L D7,(A7)
000226ae 4e b9 00 01 04 50 |N P | JSR FS_10450(&, &)
000226b4 de fc 00 1a | | ADDA.W #0x1a,A7
000226b8 4c df 01 81 |L | MOVEM.L (A7)+,D0+D7+A0
000226bc 4e 5e |N^ | UNLK A6
000226be 4e 75 |Nu | RTS
000226c0 ; --------------------------------------------------------------------------------------
000226c0 ; OMSI PASCAL Function
000226c0 ; <LVAR 0x010 2(r)>
000226c0 ; <LVAR 0x00e 2(r)>
000226c0 ; --------------------------------------------------------------------------------------
000226c0 4e 56 ff bc |NV | LINK.W A6,#0xffbc
000226c4 bf d5 | | CMPA.L (A5),A7
000226c6 62 06 |b | BHI 0x226ce
000226c8 44 fc 00 02 |D | MOVE.W #0x2,CCR
000226cc 4e 76 |Nv | TRAPV
000226ce de fc 00 40 | @ | ADDA.W #0x40,A7
000226d2 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7)
000226d6 72 01 |r | MOVEQ.L #0x01,D1
000226d8 42 80 |B | CLR.L D0
000226da 30 2e 00 0e |0. | MOVE.W (A6+0xe),D0
000226de 2e 00 |. | MOVE.L D0,D7
000226e0 41 fa e5 a6 |A | LEA.L 0x20c88,A0
000226e4 70 08 |p | MOVEQ.L #0x08,D0
000226e6 3f 20 |? | MOVE.W -(A0),-(A7)
000226e8 51 c8 ff fc |Q | DBF D0,0x226e6
000226ec 59 4f |YO | SUBQ.L #0x4,A7
000226ee 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000226f2 3f 01 |? | MOVE.W D1,-(A7)
000226f4 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
000226f8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000226fe 58 4f |XO | ADDQ.L #0x4,A7
00022700 2e 87 |. | MOVE.L D7,(A7)
00022702 4e b9 00 01 04 50 |N P | JSR FS_10450(&, &)
00022708 54 4f |TO | ADDQ.L #0x2,A7
0002270a 20 4f | O | MOVEA.L A7,A0
0002270c 43 fa e5 7a |C z | LEA.L 0x20c88,A1
00022710 70 16 |p | MOVEQ.L #0x16,D0
00022712 10 d9 | | MOVE.B (A1)+,(A0)+
00022714 51 c8 ff fc |Q | DBF D0,0x22712
00022718 51 4f |QO | SUBQ.L #0x8,A7
0002271a 48 6f 00 08 |Ho | PEA.L (A7+0x8)
0002271e 3f 01 |? | MOVE.W D1,-(A7)
00022720 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00022724 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002272a 58 4f |XO | ADDQ.L #0x4,A7
0002272c 42 80 |B | CLR.L D0
0002272e 30 2e 00 10 |0. | MOVE.W (A6+0x10),D0
00022732 2f 00 |/ | MOVE.L D0,-(A7)
00022734 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
0002273a 58 4f |XO | ADDQ.L #0x4,A7
0002273c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022742 50 4f |PO | ADDQ.L #0x8,A7
00022744 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002274a de fc 00 1c | | ADDA.W #0x1c,A7
0002274e 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1
00022752 4e 5e |N^ | UNLK A6
00022754 4e 75 |Nu | RTS
00022756 ; --------------------------------------------------------------------------------------
00022756 ; OMSI PASCAL Function
00022756 ; <LVAR -0x102 @ 1(r)>
00022756 ; <LVAR -0x104 2(rw)>
00022756 ; <LVAR -0x108 4(rw)>
00022756 ; <LVAR -0x10c 4(rw)>
00022756 ; <LVAR -0x10e @>
00022756 ; <LVAR -0x11c @>
00022756 ; --------------------------------------------------------------------------------------
00022756 4e 56 fe 54 |NV T | LINK.W A6,#0xfe54
0002275a bf d5 | | CMPA.L (A5),A7
0002275c 62 06 |b | BHI 0x22764
0002275e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022762 4e 76 |Nv | TRAPV
00022764 de fc 00 90 | | ADDA.W #0x90,A7
00022768 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002276c 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00022772 47 f9 00 02 32 d8 |G 2 | LEA.L 0x232d8,A3
00022778 74 01 |t | MOVEQ.L #0x01,D2
0002277a 9e fc 00 0a | | SUBA.W #0xa,A7
0002277e 20 4f | O | MOVEA.L A7,A0
00022780 43 fa e5 76 |C v | LEA.L 0x20cf8,A1
00022784 70 08 |p | MOVEQ.L #0x08,D0
00022786 10 d9 | | MOVE.B (A1)+,(A0)+
00022788 51 c8 ff fc |Q | DBF D0,0x22786
0002278c 59 4f |YO | SUBQ.L #0x4,A7
0002278e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022792 3f 02 |? | MOVE.W D2,-(A7)
00022794 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
00022798 4e 92 |N | JSR (A2)
0002279a 50 4f |PO | ADDQ.L #0x8,A7
0002279c 28 5f |(_ | MOVEA.L (A7)+,A4
0002279e 5c 4f |\O | ADDQ.L #0x6,A7
000227a0 2e 8c |. | MOVE.L A4,(A7)
000227a2 42 27 |B' | CLR.B -(A7)
000227a4 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
000227a8 48 78 00 00 |Hx | PEA.L 0x0
000227ac 48 6e fe f2 |Hn | PEA.L (A6-0x10e)
000227b0 48 79 00 02 3a da |Hy : | PEA.L 0x23ada
000227b6 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000227bc de fc 00 10 | | ADDA.W #0x10,A7
000227c0 2e b9 00 02 3a da |. : | MOVE.L 0x23ada,(A7)
000227c6 42 67 |Bg | CLR.W -(A7)
000227c8 42 67 |Bg | CLR.W -(A7)
000227ca 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7)
000227ce 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
000227d2 20 4b | K | MOVEA.L A3,A0
000227d4 2f 08 |/ | MOVE.L A0,-(A7)
000227d6 48 6e fe f2 |Hn | PEA.L (A6-0x10e)
000227da 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
000227e0 de fc 00 14 | | ADDA.W #0x14,A7
000227e4 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
000227ea 9e fc 00 16 | | SUBA.W #0x16,A7
000227ee 20 4f | O | MOVEA.L A7,A0
000227f0 43 fa e5 10 |C | LEA.L 0x20d02,A1
000227f4 70 14 |p | MOVEQ.L #0x14,D0
000227f6 10 d9 | | MOVE.B (A1)+,(A0)+
000227f8 51 c8 ff fc |Q | DBF D0,0x227f6
000227fc 51 4f |QO | SUBQ.L #0x8,A7
000227fe 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00022802 3f 02 |? | MOVE.W D2,-(A7)
00022804 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
00022808 4e 92 |N | JSR (A2)
0002280a 2e b9 00 02 32 dc |. 2 | MOVE.L 0x232dc,(A7)
00022810 4e b9 00 01 03 08 |N | JSR TimeToText()
00022816 58 4f |XO | ADDQ.L #0x4,A7
00022818 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
0002281e 50 4f |PO | ADDQ.L #0x8,A7
00022820 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022826 de fc 00 1a | | ADDA.W #0x1a,A7
0002282a 42 80 |B | CLR.L D0
0002282c 30 39 00 02 32 da |09 2 | MOVE.W 0x232da,D0
00022832 42 81 |B | CLR.L D1
00022834 32 39 00 02 32 e0 |29 2 | MOVE.W 0x232e0,D1
0002283a 44 81 |D | NEG.L D1
0002283c d2 80 | | ADD.L D0,D1
0002283e 06 81 00 00 08 00 | | ADDI.L #0x00000800,D1
00022844 28 01 |( | MOVE.L D1,D4
00022846 26 3c 00 00 08 00 |&< | MOVE.L #0x800,D3
0002284c 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00022852 2d 43 fe f4 |-C | MOVE.L D3,(A6-0x10c)
00022856 2f 03 |/ | MOVE.L D3,-(A7)
00022858 42 81 |B | CLR.L D1
0002285a 32 13 |2 | MOVE.W (A3),D1
0002285c 44 81 |D | NEG.L D1
0002285e d2 80 | | ADD.L D0,D1
00022860 06 81 00 00 08 00 | | ADDI.L #0x00000800,D1
00022866 28 01 |( | MOVE.L D1,D4
00022868 26 3c 00 00 08 00 |&< | MOVE.L #0x800,D3
0002286e 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00022874 2d 43 fe f8 |-C | MOVE.L D3,(A6-0x108)
00022878 9e fc 00 0e | | SUBA.W #0xe,A7
0002287c 20 4f | O | MOVEA.L A7,A0
0002287e 43 fa e4 98 |C | LEA.L 0x20d18,A1
00022882 70 0c |p | MOVEQ.L #0x0c,D0
00022884 10 d9 | | MOVE.B (A1)+,(A0)+
00022886 51 c8 ff fc |Q | DBF D0,0x22884
0002288a 41 fa e4 a8 |A | LEA.L 0x20d34,A0
0002288e 70 06 |p | MOVEQ.L #0x06,D0
00022890 3f 20 |? | MOVE.W -(A0),-(A7)
00022892 51 c8 ff fc |Q | DBF D0,0x22890
00022896 9e fc 00 10 | | SUBA.W #0x10,A7
0002289a 20 4f | O | MOVEA.L A7,A0
0002289c 43 fa e4 96 |C | LEA.L 0x20d34,A1
000228a0 70 0e |p | MOVEQ.L #0x0e,D0
000228a2 10 d9 | | MOVE.B (A1)+,(A0)+
000228a4 51 c8 ff fc |Q | DBF D0,0x228a2
000228a8 51 4f |QO | SUBQ.L #0x8,A7
000228aa 48 6f 00 26 |Ho & | PEA.L (A7+0x26)
000228ae 3f 02 |? | MOVE.W D2,-(A7)
000228b0 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7)
000228b4 4e 92 |N | JSR (A2)
000228b6 58 4f |XO | ADDQ.L #0x4,A7
000228b8 20 2f 00 38 | / 8 | MOVE.L (A7+0x38),D0
000228bc 2f 00 |/ | MOVE.L D0,-(A7)
000228be 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
000228c4 48 6f 00 20 |Ho | PEA.L (A7+0x20)
000228c8 3f 02 |? | MOVE.W D2,-(A7)
000228ca 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
000228ce 4e 92 |N | JSR (A2)
000228d0 2e 83 |. | MOVE.L D3,(A7)
000228d2 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
000228d8 48 6f 00 18 |Ho | PEA.L (A7+0x18)
000228dc 3f 02 |? | MOVE.W D2,-(A7)
000228de 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
000228e2 4e 92 |N | JSR (A2)
000228e4 50 4f |PO | ADDQ.L #0x8,A7
000228e6 4e b9 00 01 02 dc |N | JSR StringCat5(a, b, c, d, e : String) : String
000228ec de fc 00 14 | | ADDA.W #0x14,A7
000228f0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000228f6 de fc 00 34 | 4 | ADDA.W #0x34,A7
000228fa 7e 00 |~ | MOVEQ.L #0x00,D7
000228fc 10 07 | | MOVE.B D7,D0
000228fe 48 80 |H | EXTB.W D0
00022900 e5 40 | @ | ASL.W #0x2,D0
00022902 41 ee fe e4 |A | LEA.L (A6-0x11c),A0
00022906 41 f0 00 00 |A | LEA.L (A0+D0.W),A0
0002290a 42 a8 00 da |B | CLR.L (A0+0xda)
0002290e 42 a8 00 9a |B | CLR.L (A0+0x9a)
00022912 52 07 |R | ADDQ.B #0x1,D7
00022914 0c 07 00 0f | | CMPI.B #0x0f,D7
00022918 6f e2 |o | BLE 0x228fc
0002291a 42 80 |B | CLR.L D0
0002291c 30 13 |0 | MOVE.W (A3),D0
0002291e 52 80 |R | ADDQ.L #0x1,D0
00022920 02 80 00 00 07 ff | | ANDI.L #0x000007ff,D0
00022926 3d 40 fe fc |=@ | MOVE.W D0,(A6-0x104)
0002292a 2a 2e fe f8 |*. | MOVE.L (A6-0x108),D5
0002292e 9a ae fe f4 | | SUB.L (A6-0x10c),D5
00022932 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00022938 41 fa e3 92 |A | LEA.L 0x20ccc,A0
0002293c 70 0a |p | MOVEQ.L #0x0a,D0
0002293e 2f 20 |/ | MOVE.L -(A0),-(A7)
00022940 51 c8 ff fc |Q | DBF D0,0x2293e
00022944 59 4f |YO | SUBQ.L #0x4,A7
00022946 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002294a 3f 02 |? | MOVE.W D2,-(A7)
0002294c 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7)
00022950 4e 92 |N | JSR (A2)
00022952 50 4f |PO | ADDQ.L #0x8,A7
00022954 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002295a de fc 00 30 | 0 | ADDA.W #0x30,A7
0002295e 41 fa e3 98 |A | LEA.L 0x20cf8,A0
00022962 70 0a |p | MOVEQ.L #0x0a,D0
00022964 2f 20 |/ | MOVE.L -(A0),-(A7)
00022966 51 c8 ff fc |Q | DBF D0,0x22964
0002296a 59 4f |YO | SUBQ.L #0x4,A7
0002296c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022970 3f 02 |? | MOVE.W D2,-(A7)
00022972 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7)
00022976 4e 92 |N | JSR (A2)
00022978 50 4f |PO | ADDQ.L #0x8,A7
0002297a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022980 de fc 00 2c | , | ADDA.W #0x2c,A7
00022984 2e ae fe f8 |. | MOVE.L (A6-0x108),(A7)
00022988 7c 01 || | MOVEQ.L #0x01,D6
0002298a bc 97 | | CMP.L (A7),D6
0002298c 6e 44 |nD | BGT 0x229d2
0002298e 3f 2e fe fc |?. | MOVE.W (A6-0x104),-(A7)
00022992 48 6e fe fe |Hn | PEA.L (A6-0x102)
00022996 4e ba eb d2 |N | JSR 0x2156a
0002299a 5c 4f |\O | ADDQ.L #0x6,A7
0002299c 10 2e fe fe | . | MOVE.B (A6-0x102),D0
000229a0 48 80 |H | EXTB.W D0
000229a2 41 bc 00 0f |A | CHK.W #0xf,D0
000229a6 e5 40 | @ | ASL.W #0x2,D0
000229a8 41 ee fe e4 |A | LEA.L (A6-0x11c),A0
000229ac 41 f0 00 00 |A | LEA.L (A0+D0.W),A0
000229b0 52 a8 00 9a |R | ADDQ.L #0x1,(A0+0x9a)
000229b4 bc 85 | | CMP.L D5,D6
000229b6 6f 04 |o | BLE 0x229bc
000229b8 52 a8 00 da |R | ADDQ.L #0x1,(A0+0xda)
000229bc 42 80 |B | CLR.L D0
000229be 30 2e fe fc |0. | MOVE.W (A6-0x104),D0
000229c2 52 80 |R | ADDQ.L #0x1,D0
000229c4 02 80 00 00 07 ff | | ANDI.L #0x000007ff,D0
000229ca 3d 40 fe fc |=@ | MOVE.W D0,(A6-0x104)
000229ce 52 86 |R | ADDQ.L #0x1,D6
000229d0 68 b8 |h | BVC 0x2298a
000229d2 58 4f |XO | ADDQ.L #0x4,A7
000229d4 7e 00 |~ | MOVEQ.L #0x00,D7
000229d6 10 07 | | MOVE.B D7,D0
000229d8 48 80 |H | EXTB.W D0
000229da e5 40 | @ | ASL.W #0x2,D0
000229dc 41 ee fe e4 |A | LEA.L (A6-0x11c),A0
000229e0 41 f0 00 00 |A | LEA.L (A0+D0.W),A0
000229e4 20 28 00 9a | ( | MOVE.L (A0+0x9a),D0
000229e8 d0 a8 00 da | | ADD.L (A0+0xda),D0
000229ec 67 56 |gV | BEQ 0x22a44
000229ee 9e fc 00 0c | | SUBA.W #0xc,A7
000229f2 1f 07 | | MOVE.B D7,-(A7)
000229f4 4e ba ec 0a |N | JSR 0x21600
000229f8 54 4f |TO | ADDQ.L #0x2,A7
000229fa 48 78 00 20 |Hx | PEA.L 0x20
000229fe 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String
00022a04 2f 28 00 da |/( | MOVE.L (A0+0xda),-(A7)
00022a08 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00022a0e 58 4f |XO | ADDQ.L #0x4,A7
00022a10 48 78 00 05 |Hx | PEA.L 0x5
00022a14 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String
00022a1a 2f 28 00 9a |/( | MOVE.L (A0+0x9a),-(A7)
00022a1e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00022a24 58 4f |XO | ADDQ.L #0x4,A7
00022a26 48 78 00 07 |Hx | PEA.L 0x7
00022a2a 4e b9 00 01 02 f4 |N | JSR RightPad(a : String; b : Long) : String
00022a30 50 4f |PO | ADDQ.L #0x8,A7
00022a32 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
00022a38 de fc 00 0c | | ADDA.W #0xc,A7
00022a3c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022a42 58 4f |XO | ADDQ.L #0x4,A7
00022a44 52 07 |R | ADDQ.B #0x1,D7
00022a46 0c 07 00 0f | | CMPI.B #0x0f,D7
00022a4a 6f 8a |o | BLE 0x229d6
00022a4c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022a50 4e 5e |N^ | UNLK A6
00022a52 4e 75 |Nu | RTS
00022a54 ; --------------------------------------------------------------------------------------
00022a54 ; OMSI PASCAL Function
00022a54 ; <LVAR -0x004 1(rw)>
00022a54 ; <LVAR -0x088 4(r)>
00022a54 ; <LVAR -0x08a @ 1(r)>
00022a54 ; <LVAR -0x090 2(rw)>
00022a54 ; --------------------------------------------------------------------------------------
00022a54 4e 56 fe b8 |NV | LINK.W A6,#0xfeb8
00022a58 bf d5 | | CMPA.L (A5),A7
00022a5a 62 06 |b | BHI 0x22a62
00022a5c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022a60 4e 76 |Nv | TRAPV
00022a62 de fc 00 b8 | | ADDA.W #0xb8,A7
00022a66 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00022a6a 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00022a70 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3
00022a76 49 ee ff 70 |I p | LEA.L (A6-0x90),A4
00022a7a 74 01 |t | MOVEQ.L #0x01,D2
00022a7c 9e fc 00 34 | 4 | SUBA.W #0x34,A7
00022a80 20 4f | O | MOVEA.L A7,A0
00022a82 43 fa e2 c0 |C | LEA.L 0x20d44,A1
00022a86 70 32 |p2 | MOVEQ.L #0x32,D0
00022a88 10 d9 | | MOVE.B (A1)+,(A0)+
00022a8a 51 c8 ff fc |Q | DBF D0,0x22a88
00022a8e 5d 4f |]O | SUBQ.L #0x6,A7
00022a90 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00022a94 3f 02 |? | MOVE.W D2,-(A7)
00022a96 3f 3c 00 33 |?< 3 | MOVE.W #0x33,-(A7)
00022a9a 4e 92 |N | JSR (A2)
00022a9c 5c 4f |\O | ADDQ.L #0x6,A7
00022a9e 1e 82 | | MOVE.B D2,(A7)
00022aa0 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00022aa6 5c 4f |\O | ADDQ.L #0x6,A7
00022aa8 4a 1f |J | TST.B (A7)+
00022aaa 67 08 |g | BEQ 0x22ab4
00022aac 38 b9 00 02 32 e0 |8 2 | MOVE.W 0x232e0,(A4)
00022ab2 60 06 |` | BRA 0x22aba
00022ab4 38 b9 00 02 32 d8 |8 2 | MOVE.W 0x232d8,(A4)
00022aba de fc 00 34 | 4 | ADDA.W #0x34,A7
00022abe 42 80 |B | CLR.L D0
00022ac0 30 39 00 02 32 da |09 2 | MOVE.W 0x232da,D0
00022ac6 42 81 |B | CLR.L D1
00022ac8 32 14 |2 | MOVE.W (A4),D1
00022aca 44 81 |D | NEG.L D1
00022acc d2 80 | | ADD.L D0,D1
00022ace 06 81 00 00 08 00 | | ADDI.L #0x00000800,D1
00022ad4 28 01 |( | MOVE.L D1,D4
00022ad6 26 3c 00 00 08 00 |&< | MOVE.L #0x800,D3
00022adc 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00022ae2 2e 03 |. | MOVE.L D3,D7
00022ae4 38 80 |8 | MOVE.W D0,(A4)
00022ae6 41 fa e3 1a |A | LEA.L 0x20e02,A0
00022aea 70 08 |p | MOVEQ.L #0x08,D0
00022aec 3f 20 |? | MOVE.W -(A0),-(A7)
00022aee 51 c8 ff fc |Q | DBF D0,0x22aec
00022af2 59 4f |YO | SUBQ.L #0x4,A7
00022af4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022af8 3f 02 |? | MOVE.W D2,-(A7)
00022afa 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7)
00022afe 4e 92 |N | JSR (A2)
00022b00 50 4f |PO | ADDQ.L #0x8,A7
00022b02 4e 93 |N | JSR (A3)
00022b04 de fc 00 16 | | ADDA.W #0x16,A7
00022b08 41 fa e3 12 |A | LEA.L 0x20e1c,A0
00022b0c 70 0c |p | MOVEQ.L #0x0c,D0
00022b0e 3f 20 |? | MOVE.W -(A0),-(A7)
00022b10 51 c8 ff fc |Q | DBF D0,0x22b0e
00022b14 59 4f |YO | SUBQ.L #0x4,A7
00022b16 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022b1a 3f 02 |? | MOVE.W D2,-(A7)
00022b1c 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7)
00022b20 4e 92 |N | JSR (A2)
00022b22 50 4f |PO | ADDQ.L #0x8,A7
00022b24 4e 93 |N | JSR (A3)
00022b26 54 4f |TO | ADDQ.L #0x2,A7
00022b28 20 4f | O | MOVEA.L A7,A0
00022b2a 43 fa e2 f0 |C | LEA.L 0x20e1c,A1
00022b2e 70 1a |p | MOVEQ.L #0x1a,D0
00022b30 10 d9 | | MOVE.B (A1)+,(A0)+
00022b32 51 c8 ff fc |Q | DBF D0,0x22b30
00022b36 59 4f |YO | SUBQ.L #0x4,A7
00022b38 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022b3c 3f 02 |? | MOVE.W D2,-(A7)
00022b3e 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
00022b42 4e 92 |N | JSR (A2)
00022b44 50 4f |PO | ADDQ.L #0x8,A7
00022b46 4e 93 |N | JSR (A3)
00022b48 58 4f |XO | ADDQ.L #0x4,A7
00022b4a 20 4f | O | MOVEA.L A7,A0
00022b4c 43 fa e2 ea |C | LEA.L 0x20e38,A1
00022b50 70 1a |p | MOVEQ.L #0x1a,D0
00022b52 10 d9 | | MOVE.B (A1)+,(A0)+
00022b54 51 c8 ff fc |Q | DBF D0,0x22b52
00022b58 59 4f |YO | SUBQ.L #0x4,A7
00022b5a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022b5e 3f 02 |? | MOVE.W D2,-(A7)
00022b60 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
00022b64 4e 92 |N | JSR (A2)
00022b66 50 4f |PO | ADDQ.L #0x8,A7
00022b68 4e 93 |N | JSR (A3)
00022b6a de fc 00 20 | | ADDA.W #0x20,A7
00022b6e 41 fa e3 06 |A | LEA.L 0x20e76,A0
00022b72 70 10 |p | MOVEQ.L #0x10,D0
00022b74 3f 20 |? | MOVE.W -(A0),-(A7)
00022b76 51 c8 ff fc |Q | DBF D0,0x22b74
00022b7a 59 4f |YO | SUBQ.L #0x4,A7
00022b7c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022b80 3f 02 |? | MOVE.W D2,-(A7)
00022b82 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7)
00022b86 4e 92 |N | JSR (A2)
00022b88 50 4f |PO | ADDQ.L #0x8,A7
00022b8a 4e 93 |N | JSR (A3)
00022b8c de fc 00 26 | & | ADDA.W #0x26,A7
00022b90 41 fa e3 04 |A | LEA.L 0x20e96,A0
00022b94 70 07 |p | MOVEQ.L #0x07,D0
00022b96 2f 20 |/ | MOVE.L -(A0),-(A7)
00022b98 51 c8 ff fc |Q | DBF D0,0x22b96
00022b9c 59 4f |YO | SUBQ.L #0x4,A7
00022b9e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022ba2 3f 02 |? | MOVE.W D2,-(A7)
00022ba4 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7)
00022ba8 4e 92 |N | JSR (A2)
00022baa 50 4f |PO | ADDQ.L #0x8,A7
00022bac 4e 93 |N | JSR (A3)
00022bae de fc 00 24 | $ | ADDA.W #0x24,A7
00022bb2 41 fa e3 06 |A | LEA.L 0x20eba,A0
00022bb6 70 08 |p | MOVEQ.L #0x08,D0
00022bb8 2f 20 |/ | MOVE.L -(A0),-(A7)
00022bba 51 c8 ff fc |Q | DBF D0,0x22bb8
00022bbe 59 4f |YO | SUBQ.L #0x4,A7
00022bc0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022bc4 3f 02 |? | MOVE.W D2,-(A7)
00022bc6 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7)
00022bca 4e 92 |N | JSR (A2)
00022bcc 50 4f |PO | ADDQ.L #0x8,A7
00022bce 4e 93 |N | JSR (A3)
00022bd0 54 4f |TO | ADDQ.L #0x2,A7
00022bd2 20 4f | O | MOVEA.L A7,A0
00022bd4 43 fa e2 e4 |C | LEA.L 0x20eba,A1
00022bd8 70 24 |p$ | MOVEQ.L #0x24,D0
00022bda 10 d9 | | MOVE.B (A1)+,(A0)+
00022bdc 51 c8 ff fc |Q | DBF D0,0x22bda
00022be0 59 4f |YO | SUBQ.L #0x4,A7
00022be2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022be6 3f 02 |? | MOVE.W D2,-(A7)
00022be8 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7)
00022bec 4e 92 |N | JSR (A2)
00022bee 50 4f |PO | ADDQ.L #0x8,A7
00022bf0 4e 93 |N | JSR (A3)
00022bf2 54 4f |TO | ADDQ.L #0x2,A7
00022bf4 20 4f | O | MOVEA.L A7,A0
00022bf6 43 fa e1 88 |C | LEA.L 0x20d80,A1
00022bfa 70 26 |p& | MOVEQ.L #0x26,D0
00022bfc 10 d9 | | MOVE.B (A1)+,(A0)+
00022bfe 51 c8 ff fc |Q | DBF D0,0x22bfc
00022c02 51 4f |QO | SUBQ.L #0x8,A7
00022c04 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00022c08 3f 02 |? | MOVE.W D2,-(A7)
00022c0a 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7)
00022c0e 4e 92 |N | JSR (A2)
00022c10 50 4f |PO | ADDQ.L #0x8,A7
00022c12 48 78 00 00 |Hx | PEA.L 0x0
00022c16 48 78 00 06 |Hx | PEA.L 0x6
00022c1a 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
00022c20 de fc 00 0c | | ADDA.W #0xc,A7
00022c24 2a 1f |* | MOVE.L (A7)+,D5
00022c26 53 85 |S | SUBQ.L #0x1,D5
00022c28 de fc 00 28 | ( | ADDA.W #0x28,A7
00022c2c 41 fa e1 9a |A | LEA.L 0x20dc8,A0
00022c30 70 07 |p | MOVEQ.L #0x07,D0
00022c32 2f 20 |/ | MOVE.L -(A0),-(A7)
00022c34 51 c8 ff fc |Q | DBF D0,0x22c32
00022c38 5d 4f |]O | SUBQ.L #0x6,A7
00022c3a 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00022c3e 3f 02 |? | MOVE.W D2,-(A7)
00022c40 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7)
00022c44 4e 92 |N | JSR (A2)
00022c46 5c 4f |\O | ADDQ.L #0x6,A7
00022c48 1e 82 | | MOVE.B D2,(A7)
00022c4a 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00022c50 5c 4f |\O | ADDQ.L #0x6,A7
00022c52 10 1f | | MOVE.B (A7)+,D0
00022c54 44 00 |D | NEG.B D0
00022c56 52 00 |R | ADDQ.B #0x1,D0
00022c58 de fc 00 20 | | ADDA.W #0x20,A7
00022c5c 48 80 |H | EXTB.W D0
00022c5e 41 82 |A | CHK.W D2,D0
00022c60 1d 40 ff fc | @ | MOVE.B D0,(A6-0x4)
00022c64 7c 00 || | MOVEQ.L #0x00,D6
00022c66 4a 87 |J | TST.L D7
00022c68 67 00 01 ea |g | BEQ 0x22e54
00022c6c 4a 06 |J | TST.B D6
00022c6e 66 00 01 e4 |f | BNE 0x22e54
00022c72 3f 14 |? | MOVE.W (A4),-(A7)
00022c74 48 6e ff 76 |Hn v | PEA.L (A6-0x8a)
00022c78 4e ba e8 f0 |N | JSR 0x2156a
00022c7c 5c 4f |\O | ADDQ.L #0x6,A7
00022c7e 0c 85 ff ff ff ff | | CMPI.L #0xffffffff,D5
00022c84 67 0e |g | BEQ 0x22c94
00022c86 10 2e ff 76 | . v | MOVE.B (A6-0x8a),D0
00022c8a 48 80 |H | EXTB.W D0
00022c8c 48 c0 |H | EXTW.L D0
00022c8e ba 80 | | CMP.L D0,D5
00022c90 66 00 01 a8 |f | BNE 0x22e3a
00022c94 9e fc 00 28 | ( | SUBA.W #0x28,A7
00022c98 20 4f | O | MOVEA.L A7,A0
00022c9a 43 fa e1 2c |C , | LEA.L 0x20dc8,A1
00022c9e 70 26 |p& | MOVEQ.L #0x26,D0
00022ca0 10 d9 | | MOVE.B (A1)+,(A0)+
00022ca2 51 c8 ff fc |Q | DBF D0,0x22ca0
00022ca6 9e fc 00 28 | ( | SUBA.W #0x28,A7
00022caa 20 4f | O | MOVEA.L A7,A0
00022cac 43 fa e1 1a |C | LEA.L 0x20dc8,A1
00022cb0 70 26 |p& | MOVEQ.L #0x26,D0
00022cb2 10 d9 | | MOVE.B (A1)+,(A0)+
00022cb4 51 c8 ff fc |Q | DBF D0,0x22cb2
00022cb8 51 4f |QO | SUBQ.L #0x8,A7
00022cba 48 6f 00 30 |Ho 0 | PEA.L (A7+0x30)
00022cbe 3f 02 |? | MOVE.W D2,-(A7)
00022cc0 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7)
00022cc4 4e 92 |N | JSR (A2)
00022cc6 58 4f |XO | ADDQ.L #0x4,A7
00022cc8 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00022ccc 3f 02 |? | MOVE.W D2,-(A7)
00022cce 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7)
00022cd2 4e 92 |N | JSR (A2)
00022cd4 50 4f |PO | ADDQ.L #0x8,A7
00022cd6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022cdc 50 4f |PO | ADDQ.L #0x8,A7
00022cde 4e 93 |N | JSR (A3)
00022ce0 de fc 00 3e | > | ADDA.W #0x3e,A7
00022ce4 20 4f | O | MOVEA.L A7,A0
00022ce6 43 fa e1 f8 |C | LEA.L 0x20ee0,A1
00022cea 70 14 |p | MOVEQ.L #0x14,D0
00022cec 10 d9 | | MOVE.B (A1)+,(A0)+
00022cee 51 c8 ff fc |Q | DBF D0,0x22cec
00022cf2 51 4f |QO | SUBQ.L #0x8,A7
00022cf4 10 2e ff 76 | . v | MOVE.B (A6-0x8a),D0
00022cf8 48 80 |H | EXTB.W D0
00022cfa 41 bc 00 0f |A | CHK.W #0xf,D0
00022cfe 1f 00 | | MOVE.B D0,-(A7)
00022d00 4e ba e8 fe |N | JSR 0x21600
00022d04 55 4f |UO | SUBQ.L #0x2,A7
00022d06 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00022d0a 3f 02 |? | MOVE.W D2,-(A7)
00022d0c 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
00022d10 4e 92 |N | JSR (A2)
00022d12 2e ae ff 78 |. x | MOVE.L (A6-0x88),(A7)
00022d16 4e b9 00 01 03 08 |N | JSR TimeToText()
00022d1c 58 4f |XO | ADDQ.L #0x4,A7
00022d1e 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
00022d24 de fc 00 0c | | ADDA.W #0xc,A7
00022d28 4e 93 |N | JSR (A3)
00022d2a de fc 00 1a | | ADDA.W #0x1a,A7
00022d2e 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00022d34 10 2e ff 76 | . v | MOVE.B (A6-0x8a),D0
00022d38 48 80 |H | EXTB.W D0
00022d3a 0c 40 00 05 | @ | CMPI.W #0x0005,D0
00022d3e 62 00 00 9c |b | BHI 0x22ddc
00022d42 d0 40 | @ | ADD.W D0,D0
00022d44 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
00022d4c 00 0c | | .CONST 0xc ; [0x0] -> 0x22d58
00022d4e 00 24 | $ | .CONST 0x24 ; [0x1] -> 0x22d70
00022d50 00 36 | 6 | .CONST 0x36 ; [0x2] -> 0x22d82
00022d52 00 5a | Z | .CONST 0x5a ; [0x3] -> 0x22da6
00022d54 00 48 | H | .CONST 0x48 ; [0x4] -> 0x22d94
00022d56 00 6c | l | .CONST 0x6c ; [0x5] -> 0x22db8
00022d58 switch@0x22d44[0x0]:
00022d58 41 ee ff f6 |A | LEA.L (A6-0xa),A0
00022d5c 70 1f |p | MOVEQ.L #0x1f,D0
00022d5e 2f 20 |/ | MOVE.L -(A0),-(A7)
00022d60 51 c8 ff fc |Q | DBF D0,0x22d5e
00022d64 4e ba e9 3e |N > | JSR 0x216a4
00022d68 de fc 00 80 | | ADDA.W #0x80,A7
00022d6c 60 00 00 96 |` | BRA 0x22e04
00022d70 switch@0x22d44[0x1]:
00022d70 41 ee ff f6 |A | LEA.L (A6-0xa),A0
00022d74 70 1f |p | MOVEQ.L #0x1f,D0
00022d76 2f 20 |/ | MOVE.L -(A0),-(A7)
00022d78 51 c8 ff fc |Q | DBF D0,0x22d76
00022d7c 4e ba f0 7a |N z | JSR 0x21df8
00022d80 60 e6 |` | BRA 0x22d68
00022d82 switch@0x22d44[0x2]:
00022d82 41 ee ff f6 |A | LEA.L (A6-0xa),A0
00022d86 70 1f |p | MOVEQ.L #0x1f,D0
00022d88 2f 20 |/ | MOVE.L -(A0),-(A7)
00022d8a 51 c8 ff fc |Q | DBF D0,0x22d88
00022d8e 4e ba f9 30 |N 0 | JSR 0x226c0
00022d92 60 d4 |` | BRA 0x22d68
00022d94 switch@0x22d44[0x4]:
00022d94 41 ee ff f6 |A | LEA.L (A6-0xa),A0
00022d98 70 1f |p | MOVEQ.L #0x1f,D0
00022d9a 2f 20 |/ | MOVE.L -(A0),-(A7)
00022d9c 51 c8 ff fc |Q | DBF D0,0x22d9a
00022da0 4e ba f8 ca |N | JSR 0x2266c
00022da4 60 c2 |` | BRA 0x22d68
00022da6 switch@0x22d44[0x3]:
00022da6 41 ee ff f6 |A | LEA.L (A6-0xa),A0
00022daa 70 1f |p | MOVEQ.L #0x1f,D0
00022dac 2f 20 |/ | MOVE.L -(A0),-(A7)
00022dae 51 c8 ff fc |Q | DBF D0,0x22dac
00022db2 4e ba f7 1a |N | JSR 0x224ce
00022db6 60 b0 |` | BRA 0x22d68
00022db8 switch@0x22d44[0x5]:
00022db8 41 fa e1 4a |A J | LEA.L 0x20f04,A0
00022dbc 70 06 |p | MOVEQ.L #0x06,D0
00022dbe 3f 20 |? | MOVE.W -(A0),-(A7)
00022dc0 51 c8 ff fc |Q | DBF D0,0x22dbe
00022dc4 59 4f |YO | SUBQ.L #0x4,A7
00022dc6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022dca 3f 02 |? | MOVE.W D2,-(A7)
00022dcc 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00022dd0 4e 92 |N | JSR (A2)
00022dd2 50 4f |PO | ADDQ.L #0x8,A7
00022dd4 4e 93 |N | JSR (A3)
00022dd6 de fc 00 12 | | ADDA.W #0x12,A7
00022dda 60 28 |`( | BRA 0x22e04
00022ddc 9e fc 00 1a | | SUBA.W #0x1a,A7
00022de0 20 4f | O | MOVEA.L A7,A0
00022de2 43 fa e1 20 |C | LEA.L 0x20f04,A1
00022de6 70 18 |p | MOVEQ.L #0x18,D0
00022de8 10 d9 | | MOVE.B (A1)+,(A0)+
00022dea 51 c8 ff fc |Q | DBF D0,0x22de8
00022dee 59 4f |YO | SUBQ.L #0x4,A7
00022df0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022df4 3f 02 |? | MOVE.W D2,-(A7)
00022df6 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
00022dfa 4e 92 |N | JSR (A2)
00022dfc 50 4f |PO | ADDQ.L #0x8,A7
00022dfe 4e 93 |N | JSR (A3)
00022e00 de fc 00 1e | | ADDA.W #0x1e,A7
00022e04 4a 2e ff fc |J. | TST.B (A6-0x4)
00022e08 66 30 |f0 | BNE 0x22e3a
00022e0a 2f 3a df 70 |/: p | MOVE.L 0x20d7c,-(A7)
00022e0e 2f 3a df 68 |/: h | MOVE.L 0x20d78,-(A7)
00022e12 5d 4f |]O | SUBQ.L #0x6,A7
00022e14 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00022e18 3f 02 |? | MOVE.W D2,-(A7)
00022e1a 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7)
00022e1e 4e 92 |N | JSR (A2)
00022e20 5c 4f |\O | ADDQ.L #0x6,A7
00022e22 1e 82 | | MOVE.B D2,(A7)
00022e24 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00022e2a 5c 4f |\O | ADDQ.L #0x6,A7
00022e2c 10 1f | | MOVE.B (A7)+,D0
00022e2e 44 00 |D | NEG.B D0
00022e30 52 00 |R | ADDQ.B #0x1,D0
00022e32 50 4f |PO | ADDQ.L #0x8,A7
00022e34 48 80 |H | EXTB.W D0
00022e36 41 82 |A | CHK.W D2,D0
00022e38 1c 00 | | MOVE.B D0,D6
00022e3a 42 80 |B | CLR.L D0
00022e3c 30 14 |0 | MOVE.W (A4),D0
00022e3e 53 80 |S | SUBQ.L #0x1,D0
00022e40 06 80 00 00 08 00 | | ADDI.L #0x00000800,D0
00022e46 02 80 00 00 07 ff | | ANDI.L #0x000007ff,D0
00022e4c 38 80 |8 | MOVE.W D0,(A4)
00022e4e 53 87 |S | SUBQ.L #0x1,D7
00022e50 60 00 fe 14 |` | BRA 0x22c66
00022e54 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022e58 4e 5e |N^ | UNLK A6
00022e5a 4e 75 |Nu | RTS
00022e5c ; --------------------------------------------------------------------------------------
00022e5c ; OMSI PASCAL Function
00022e5c ; <LVAR -0x004 @>
00022e5c ; --------------------------------------------------------------------------------------
00022e5c 4e 56 ff b6 |NV | LINK.W A6,#0xffb6
00022e60 bf d5 | | CMPA.L (A5),A7
00022e62 62 06 |b | BHI 0x22e6a
00022e64 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022e68 4e 76 |Nv | TRAPV
00022e6a de fc 00 46 | F | ADDA.W #0x46,A7
00022e6e 48 e7 f0 e0 |H | MOVEM.L A2+A1+A0+D3+D2+D1+D0,-(A7)
00022e72 45 f9 00 02 3a da |E : | LEA.L 0x23ada,A2
00022e78 72 01 |r | MOVEQ.L #0x01,D1
00022e7a 74 02 |t | MOVEQ.L #0x02,D2
00022e7c 76 10 |v | MOVEQ.L #0x10,D3
00022e7e 9e fc 00 12 | | SUBA.W #0x12,A7
00022e82 20 4f | O | MOVEA.L A7,A0
00022e84 43 fa e0 98 |C | LEA.L 0x20f1e,A1
00022e88 70 10 |p | MOVEQ.L #0x10,D0
00022e8a 10 d9 | | MOVE.B (A1)+,(A0)+
00022e8c 51 c8 ff fc |Q | DBF D0,0x22e8a
00022e90 5d 4f |]O | SUBQ.L #0x6,A7
00022e92 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00022e96 3f 01 |? | MOVE.W D1,-(A7)
00022e98 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00022e9c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022ea2 5c 4f |\O | ADDQ.L #0x6,A7
00022ea4 1e 81 | | MOVE.B D1,(A7)
00022ea6 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00022eac 5c 4f |\O | ADDQ.L #0x6,A7
00022eae 4a 1f |J | TST.B (A7)+
00022eb0 67 38 |g8 | BEQ 0x22eea
00022eb2 33 f9 00 02 32 da 00 02 |3 2 | MOVE.W 0x232da,0x232e0
00022eba 32 e0 |2 |
00022ebc 48 79 00 02 32 dc |Hy 2 | PEA.L 0x232dc
00022ec2 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp
00022ec8 2e 92 |. | MOVE.L (A2),(A7)
00022eca 42 67 |Bg | CLR.W -(A7)
00022ecc 42 67 |Bg | CLR.W -(A7)
00022ece 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7)
00022ed2 1f 02 | | MOVE.B D2,-(A7)
00022ed4 41 f9 00 02 32 d8 |A 2 | LEA.L 0x232d8,A0
00022eda 2f 08 |/ | MOVE.L A0,-(A7)
00022edc 48 6e ff fc |Hn | PEA.L (A6-0x4)
00022ee0 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00022ee6 de fc 00 14 | | ADDA.W #0x14,A7
00022eea de c3 | | ADDA.W D3,A7
00022eec 42 17 |B | CLR.B (A7)
00022eee 1f 02 | | MOVE.B D2,-(A7)
00022ef0 48 78 00 01 |Hx | PEA.L 0x1
00022ef4 48 6e ff fc |Hn | PEA.L (A6-0x4)
00022ef8 48 52 |HR | PEA.L (A2)
00022efa 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
00022f00 de c3 | | ADDA.W D3,A7
00022f02 4c df 07 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2
00022f06 4e 5e |N^ | UNLK A6
00022f08 4e 75 |Nu | RTS
00022f0a ; --------------------------------------------------------------------------------------
00022f0a ; OMSI PASCAL Function
00022f0a ; <LVAR 0x008 4(r)>
00022f0a ; <LVAR -0x406 @>
00022f0a ; <LVAR -0x40a @ 4(r)>
00022f0a ; <LVAR -0x410 @>
00022f0a ; <LVAR -0x414 @>
00022f0a ; --------------------------------------------------------------------------------------
00022f0a 4e 56 fb 76 |NV v | LINK.W A6,#0xfb76
00022f0e bf d5 | | CMPA.L (A5),A7
00022f10 62 06 |b | BHI 0x22f18
00022f12 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022f16 4e 76 |Nv | TRAPV
00022f18 de fc 00 76 | v | ADDA.W #0x76,A7
00022f1c 48 e7 f9 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7)
00022f20 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00022f26 47 ee fb f0 |G | LEA.L (A6-0x410),A3
00022f2a 72 01 |r | MOVEQ.L #0x01,D1
00022f2c 74 28 |t( | MOVEQ.L #0x28,D2
00022f2e 76 02 |v | MOVEQ.L #0x02,D3
00022f30 78 0a |x | MOVEQ.L #0x0a,D4
00022f32 41 fa e0 52 |A R | LEA.L 0x20f86,A0
00022f36 70 04 |p | MOVEQ.L #0x04,D0
00022f38 3f 20 |? | MOVE.W -(A0),-(A7)
00022f3a 51 c8 ff fc |Q | DBF D0,0x22f38
00022f3e 59 4f |YO | SUBQ.L #0x4,A7
00022f40 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022f44 3f 01 |? | MOVE.W D1,-(A7)
00022f46 3f 04 |? | MOVE.W D4,-(A7)
00022f48 4e 92 |N | JSR (A2)
00022f4a 50 4f |PO | ADDQ.L #0x8,A7
00022f4c 28 5f |(_ | MOVEA.L (A7)+,A4
00022f4e 58 4f |XO | ADDQ.L #0x4,A7
00022f50 2e 8c |. | MOVE.L A4,(A7)
00022f52 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00022f56 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte
00022f5c 50 4f |PO | ADDQ.L #0x8,A7
00022f5e 4a 1f |J | TST.B (A7)+
00022f60 66 34 |f4 | BNE 0x22f96
00022f62 41 fa df f0 |A | LEA.L 0x20f54,A0
00022f66 70 08 |p | MOVEQ.L #0x08,D0
00022f68 2f 20 |/ | MOVE.L -(A0),-(A7)
00022f6a 51 c8 ff fc |Q | DBF D0,0x22f68
00022f6e 51 4f |QO | SUBQ.L #0x8,A7
00022f70 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00022f74 3f 01 |? | MOVE.W D1,-(A7)
00022f76 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7)
00022f7a 4e 92 |N | JSR (A2)
00022f7c 58 4f |XO | ADDQ.L #0x4,A7
00022f7e 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7)
00022f82 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022f88 50 4f |PO | ADDQ.L #0x8,A7
00022f8a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022f90 de c2 | | ADDA.W D2,A7
00022f92 60 00 00 c0 |` | BRA 0x23054
00022f96 41 fa df e4 |A | LEA.L 0x20f7c,A0
00022f9a 70 09 |p | MOVEQ.L #0x09,D0
00022f9c 2f 20 |/ | MOVE.L -(A0),-(A7)
00022f9e 51 c8 ff fc |Q | DBF D0,0x22f9c
00022fa2 5d 4f |]O | SUBQ.L #0x6,A7
00022fa4 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00022fa8 3f 01 |? | MOVE.W D1,-(A7)
00022faa 3f 02 |? | MOVE.W D2,-(A7)
00022fac 4e 92 |N | JSR (A2)
00022fae 5c 4f |\O | ADDQ.L #0x6,A7
00022fb0 42 17 |B | CLR.B (A7)
00022fb2 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00022fb8 5c 4f |\O | ADDQ.L #0x6,A7
00022fba 4a 1f |J | TST.B (A7)+
00022fbc 67 00 00 94 |g | BEQ 0x23052
00022fc0 9e c4 | | SUBA.W D4,A7
00022fc2 20 4f | O | MOVEA.L A7,A0
00022fc4 43 fa df c0 |C | LEA.L 0x20f86,A1
00022fc8 70 08 |p | MOVEQ.L #0x08,D0
00022fca 10 d9 | | MOVE.B (A1)+,(A0)+
00022fcc 51 c8 ff fc |Q | DBF D0,0x22fca
00022fd0 59 4f |YO | SUBQ.L #0x4,A7
00022fd2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022fd6 3f 01 |? | MOVE.W D1,-(A7)
00022fd8 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
00022fdc 4e 92 |N | JSR (A2)
00022fde 5c 4f |\O | ADDQ.L #0x6,A7
00022fe0 42 17 |B | CLR.B (A7)
00022fe2 1f 03 | | MOVE.B D3,-(A7)
00022fe4 48 78 00 00 |Hx | PEA.L 0x0
00022fe8 48 53 |HS | PEA.L (A3)
00022fea 48 6e fb f6 |Hn | PEA.L (A6-0x40a)
00022fee 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00022ff4 de fc 00 1e | | ADDA.W #0x1e,A7
00022ff8 7e 00 |~ | MOVEQ.L #0x00,D7
00022ffa 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7
00023000 63 02 |c | BLS 0x23004
00023002 4e 4f |NO | TRAP #15
00023004 20 07 | | MOVE.L D7,D0
00023006 e3 80 | | ASL.L #0x1,D0
00023008 41 ee fb ec |A | LEA.L (A6-0x414),A0
0002300c 42 70 08 0e |Bp | CLR.W (A0+D0.L+#0xe)
00023010 52 87 |R | ADDQ.L #0x1,D7
00023012 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7
00023018 6f e0 |o | BLE 0x22ffa
0002301a 2f 2e fb f6 |/. | MOVE.L (A6-0x40a),-(A7)
0002301e 42 67 |Bg | CLR.W -(A7)
00023020 42 67 |Bg | CLR.W -(A7)
00023022 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7)
00023026 1f 03 | | MOVE.B D3,-(A7)
00023028 41 ee fb fa |A | LEA.L (A6-0x406),A0
0002302c 2f 08 |/ | MOVE.L A0,-(A7)
0002302e 48 53 |HS | PEA.L (A3)
00023030 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00023036 de fc 00 12 | | ADDA.W #0x12,A7
0002303a 42 17 |B | CLR.B (A7)
0002303c 1f 03 | | MOVE.B D3,-(A7)
0002303e 48 78 00 01 |Hx | PEA.L 0x1
00023042 48 53 |HS | PEA.L (A3)
00023044 48 6e fb f6 |Hn | PEA.L (A6-0x40a)
00023048 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
0002304e de fc 00 10 | | ADDA.W #0x10,A7
00023052 de c2 | | ADDA.W D2,A7
00023054 42 27 |B' | CLR.B -(A7)
00023056 48 78 00 01 |Hx | PEA.L 0x1
0002305a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00023060 5c 4f |\O | ADDQ.L #0x6,A7
00023062 4c df 1f 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4
00023066 4e 5e |N^ | UNLK A6
00023068 4e 75 |Nu | RTS
0002306a ; --------------------------------------------------------------------------------------
0002306a ; OMSI PASCAL Function
0002306a ; --------------------------------------------------------------------------------------
0002306a START:
0002306a 4f fa 00 08 |O | LEA.L MAIN,A7
0002306e 4e f9 00 01 02 80 |N | JMP ?start_program
00023074 MAIN:
00023074 43 f9 00 02 3a de |C : | LEA.L 0x23ade,A1
0002307a 4e b9 00 01 03 98 |N | JSR FSCALL_10398
00023080 59 4f |YO | SUBQ.L #0x4,A7
00023082 4e b9 00 01 03 c4 |N | JSR GetArgv() : String
00023088 22 9f |" | MOVE.L (A7)+,(A1)
0002308a 20 51 | Q | MOVEA.L (A1),A0
0002308c 4a 50 |JP | TST.W (A0)
0002308e 67 08 |g | BEQ 0x23098
00023090 2f 11 |/ | MOVE.L (A1),-(A7)
00023092 4e ba fe 76 |N v | JSR 0x22f0a
00023096 60 08 |` | BRA 0x230a0
00023098 48 51 |HQ | PEA.L (A1)
0002309a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
000230a0 58 4f |XO | ADDQ.L #0x4,A7
000230a2 33 fc 40 00 00 02 3a d8 |3 @ : | MOVE.W #0x4000,0x23ad8
000230aa 4e ba f6 aa |N | JSR 0x22756
000230ae 4e ba f9 a4 |N | JSR 0x22a54
000230b2 4e ba fd a8 |N | JSR 0x22e5c
000230b6 42 27 |B' | CLR.B -(A7)
000230b8 48 78 00 01 |Hx | PEA.L 0x1
000230bc 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
000230c2 5c 4f |\O | ADDQ.L #0x6,A7
000230c4 4e b9 00 01 02 84 |N | JSR ?exit
000230ca 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_'
000230d8 ; --------------------------------------------------------------------------------------
000230d8 ; OMSI PASCAL Function
000230d8 ; <LVAR 0x008 1(r)>
000230d8 ; --------------------------------------------------------------------------------------
000230d8 PROG_FAIL:
000230d8 4e 56 ff d2 |NV | LINK.W A6,#0xffd2
000230dc bf d5 | | CMPA.L (A5),A7
000230de 62 06 |b | BHI 0x230e6
000230e0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000230e4 4e 76 |Nv | TRAPV
000230e6 de fc 00 2c | , | ADDA.W #0x2c,A7
000230ea 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
000230ee 41 fa ff e8 |A | LEA.L PROG_FAIL,A0
000230f2 70 06 |p | MOVEQ.L #0x06,D0
000230f4 3f 20 |? | MOVE.W -(A0),-(A7)
000230f6 51 c8 ff fc |Q | DBF D0,0x230f4
000230fa 1f 3c 00 03 | < | MOVE.B #0x03,-(A7)
000230fe 51 4f |QO | SUBQ.L #0x8,A7
00023100 48 6f 00 0a |Ho | PEA.L (A7+0xa)
00023104 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00023108 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
0002310c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00023112 58 4f |XO | ADDQ.L #0x4,A7
00023114 10 2e 00 08 | . | MOVE.B (A6+0x8),D0
00023118 48 80 |H | EXTB.W D0
0002311a 48 c0 |H | EXTW.L D0
0002311c 2f 00 |/ | MOVE.L D0,-(A7)
0002311e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00023124 58 4f |XO | ADDQ.L #0x4,A7
00023126 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
0002312c 50 4f |PO | ADDQ.L #0x8,A7
0002312e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00023134 de fc 00 14 | | ADDA.W #0x14,A7
00023138 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
0002313c 4e 5e |N^ | UNLK A6
0002313e 4e 75 |Nu | RTS
00023140 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ '
0002314e 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ '
0002315c 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ '
0002316a 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :'
0002317c 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. '
00023194 ; --------------------------------------------------------------------------------------
00023194 ; OMSI PASCAL Function
00023194 ; <LVAR 0x00e 1(r)>
00023194 ; <LVAR 0x00a 4(r)>
00023194 ; <LVAR 0x008 1(r)>
00023194 ; --------------------------------------------------------------------------------------
00023194 EXP_FAIL:
00023194 4e 56 ff 8c |NV | LINK.W A6,#0xff8c
00023198 bf d5 | | CMPA.L (A5),A7
0002319a 62 06 |b | BHI 0x231a2
0002319c 44 fc 00 02 |D | MOVE.W #0x2,CCR
000231a0 4e 76 |Nv | TRAPV
000231a2 de fc 00 74 | t | ADDA.W #0x74,A7
000231a6 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000231aa 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000231b0 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4
000231b6 72 01 |r | MOVEQ.L #0x01,D1
000231b8 74 0d |t | MOVEQ.L #0x0d,D2
000231ba 76 1e |v | MOVEQ.L #0x1e,D3
000231bc 78 12 |x | MOVEQ.L #0x12,D4
000231be 7a 0e |z | MOVEQ.L #0x0e,D5
000231c0 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
000231c6 41 fa ff b4 |A | LEA.L 0x2317c,A0
000231ca 70 08 |p | MOVEQ.L #0x08,D0
000231cc 3f 20 |? | MOVE.W -(A0),-(A7)
000231ce 51 c8 ff fc |Q | DBF D0,0x231cc
000231d2 59 4f |YO | SUBQ.L #0x4,A7
000231d4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000231d8 3f 01 |? | MOVE.W D1,-(A7)
000231da 3f 04 |? | MOVE.W D4,-(A7)
000231dc 4e 93 |N | JSR (A3)
000231de 50 4f |PO | ADDQ.L #0x8,A7
000231e0 4e 94 |N | JSR (A4)
000231e2 50 4f |PO | ADDQ.L #0x8,A7
000231e4 20 4f | O | MOVEA.L A7,A0
000231e6 43 fa ff 58 |C X | LEA.L 0x23140,A1
000231ea 70 0c |p | MOVEQ.L #0x0c,D0
000231ec 10 d9 | | MOVE.B (A1)+,(A0)+
000231ee 51 c8 ff fc |Q | DBF D0,0x231ec
000231f2 51 4f |QO | SUBQ.L #0x8,A7
000231f4 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000231f8 3f 01 |? | MOVE.W D1,-(A7)
000231fa 3f 02 |? | MOVE.W D2,-(A7)
000231fc 4e 93 |N | JSR (A3)
000231fe 54 4f |TO | ADDQ.L #0x2,A7
00023200 1e ae 00 0e | | MOVE.B (A6+0xe),(A7)
00023204 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String
0002320a 54 4f |TO | ADDQ.L #0x2,A7
0002320c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00023212 50 4f |PO | ADDQ.L #0x8,A7
00023214 4e 94 |N | JSR (A4)
00023216 de c4 | | ADDA.W D4,A7
00023218 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0
0002321c b0 c1 | | CMPA.W D1,A0
0002321e 67 48 |gH | BEQ 0x23268
00023220 9e c5 | | SUBA.W D5,A7
00023222 22 4f |"O | MOVEA.L A7,A1
00023224 45 fa ff 28 |E ( | LEA.L 0x2314e,A2
00023228 70 0c |p | MOVEQ.L #0x0c,D0
0002322a 12 da | | MOVE.B (A2)+,(A1)+
0002322c 51 c8 ff fc |Q | DBF D0,0x2322a
00023230 9e c3 | | SUBA.W D3,A7
00023232 22 4f |"O | MOVEA.L A7,A1
00023234 41 e8 00 fc |A | LEA.L (A0+0xfc),A0
00023238 70 1d |p | MOVEQ.L #0x1d,D0
0002323a 12 d8 | | MOVE.B (A0)+,(A1)+
0002323c 51 c8 ff fc |Q | DBF D0,0x2323a
00023240 51 4f |QO | SUBQ.L #0x8,A7
00023242 48 6f 00 26 |Ho & | PEA.L (A7+0x26)
00023246 3f 01 |? | MOVE.W D1,-(A7)
00023248 3f 02 |? | MOVE.W D2,-(A7)
0002324a 4e 93 |N | JSR (A3)
0002324c 58 4f |XO | ADDQ.L #0x4,A7
0002324e 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00023252 3f 01 |? | MOVE.W D1,-(A7)
00023254 3f 03 |? | MOVE.W D3,-(A7)
00023256 4e 93 |N | JSR (A3)
00023258 50 4f |PO | ADDQ.L #0x8,A7
0002325a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00023260 50 4f |PO | ADDQ.L #0x8,A7
00023262 4e 94 |N | JSR (A4)
00023264 de fc 00 30 | 0 | ADDA.W #0x30,A7
00023268 9e c5 | | SUBA.W D5,A7
0002326a 20 4f | O | MOVEA.L A7,A0
0002326c 43 fa fe ee |C | LEA.L 0x2315c,A1
00023270 70 0c |p | MOVEQ.L #0x0c,D0
00023272 10 d9 | | MOVE.B (A1)+,(A0)+
00023274 51 c8 ff fc |Q | DBF D0,0x23272
00023278 51 4f |QO | SUBQ.L #0x8,A7
0002327a 48 6f 00 08 |Ho | PEA.L (A7+0x8)
0002327e 3f 01 |? | MOVE.W D1,-(A7)
00023280 3f 02 |? | MOVE.W D2,-(A7)
00023282 4e 93 |N | JSR (A3)
00023284 54 4f |TO | ADDQ.L #0x2,A7
00023286 1e ae 00 08 | | MOVE.B (A6+0x8),(A7)
0002328a 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String)
00023290 54 4f |TO | ADDQ.L #0x2,A7
00023292 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00023298 50 4f |PO | ADDQ.L #0x8,A7
0002329a 4e 94 |N | JSR (A4)
0002329c 5d 4f |]O | SUBQ.L #0x6,A7
0002329e 20 4f | O | MOVEA.L A7,A0
000232a0 43 fa fe da |C | LEA.L 0x2317c,A1
000232a4 70 16 |p | MOVEQ.L #0x16,D0
000232a6 10 d9 | | MOVE.B (A1)+,(A0)+
000232a8 51 c8 ff fc |Q | DBF D0,0x232a6
000232ac 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
000232b0 59 4f |YO | SUBQ.L #0x4,A7
000232b2 48 6f 00 06 |Ho | PEA.L (A7+0x6)
000232b6 3f 01 |? | MOVE.W D1,-(A7)
000232b8 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
000232bc 4e 93 |N | JSR (A3)
000232be 50 4f |PO | ADDQ.L #0x8,A7
000232c0 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
000232c6 de c3 | | ADDA.W D3,A7
000232c8 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
000232cc 4e 5e |N^ | UNLK A6
000232ce 4e 75 |Nu | RTS