|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800)
Types: M200
Notes: @(#)CEDIT,2.1,90/12/03,17:18:19, M200_PROGRAM
Names: »CEDIT.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »CEDIT.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »CEDIT.M200«
@ 205a4
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(rw)>
<LVAR 0x008 @ 4(r)>
<LVAR -0x004 @ 4(rw)>
<POP 205a4-20654 Body>
<POP 205a4-205ba Prologue> Σ0 ↓
<POP 205ba-205c8 RegCacheLoad> Σ0 ↓
<POP 205c8-205ce Naked> Σ0 ↓ →0x205d8
<MI 205c8 MOVEA.L (A6+0x8),A0> {}
<MI 205ca CMPA.W #0x01,A0> {}
<MI 205cc BNE 0x205d8> {}
<POP 205ce-205d8 Naked> Σ0 ↓
<Pointer.fp 0x205ce <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x205d0 0x102b8> {[@@8]}
NewString(VAR a : String)
<POP 205d6-205d8 StackAdj> Δ+4 {}
<POP 205d8-20630 Naked> Σ0 ↓ →0x2063c ←0x205c8
<Blob 0x205d8 [2] @> Δ-2 {[«2""»]}
<Blob 0x205dc [4] @> Δ-4 {[«2""»]|[«4""»]}
<POP 205e0-205e2 StackAdj> Δ-4 {[«2""»]|[«4""»]|[-4-]}
<MI 205e2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']}
<POP 205e4-205e6 StackAdj> Δ-4 {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[-4-]}
<Lit 0x205e6 2> {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[$$ []}
<MI 205f6 MOVE.L (A6+0x8),(A7)> {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 205f0-205f6 StackAdj> Δ-8 {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]}
<Call 0x205f8 0x102cc> {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]}
StringDup(a : String) : String
<Lit 0x205fe 4> {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]|[$$] :_]}
<Call 0x20610 0x102d8> {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]|[$$] :_]}
StringCat4(a, b, c, d : String) : String
<POP 20616-2061a StackAdj> Δ+16 {[«2""»]|[«4""»]|[-4-]}
<MI 2061a MOVE.L (A7)+,(A6+0xc)> Δ+4 {[«2""»]|[«4""»]}
<POP 2061c-2061e StackAdj> Δ+2 {[«2""»]|[-2-]}
<MI 2061e MOVE.L (A6+0xc),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0xc)']}
<Call 0x20620 0x103e4> {[«2""»]|[-2-]|[4, '(A6+0xc)']}
AskConsoleString(prompt : String) : String
<POP 20626-20628 StackAdj> Δ+4 {[«2""»]|[-2-]}
<MI 20628 MOVE.L (A7)+,(A6-0x4)> Δ+4 {}
<MI 2062a MOVEA.L (A6-0x4),A0> {}
<MI 2062c TST.W (A0)> {}
<MI 2062e BEQ 0x2063c> {}
<POP 20630-2063c Naked> Σ0 →0x20648
<Pointer.fp 0x20630 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x20632 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 20638-2063a StackAdj> Δ+4 {}
<MI 2063a BRA 0x20648> {}
<POP 2063c-20648 Naked> Σ0 ↓ ←0x205d8
<Pointer.fp 0x2063c <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x2063e 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 20644-20646 StackAdj> Δ+4 {}
<MI 20646 MOVE.L (A6+0x8),(A6-0x4)> {}
<POP 20648-2064c Naked> Σ0 ↓ ←0x20630
<MI 20648 MOVE.L (A6-0x4),(A6+0x10)> {}
<POP 2064c-20654 Epilogue> Σ0
@ 20654
<LVAR 0x008 4(r)>
<POP 20654-206e8 Body>
<POP 20654-2066a Prologue> Σ0 ↓
<POP 2066a-2066c RegCacheLoad> Σ0 ↓
<POP 2066c-206b6 Naked> Σ0 ↓
<MI 2066c MOVEA.L (A6+0x8),A0> {}
<MI 20670 CLR.B (A0+0x5)> {}
<MI 20674 CLR.B (A0+0x4)> {}
<MI 20678 CLR.B (A0+0x3)> {}
<MI 2067c CLR.B (A0+0x2)> {}
<MI 20680 MOVE.B #0x01,(A0+0x2a)> {}
<MI 20684 CLR.B (A0+0x2b)> {}
<MI 20688 CLR.B (A0+0x2c)> {}
<MI 2068c CLR.B (A0+0x2d)> {}
<MI 20690 CLR.B (A0+0x2e)> {}
<MI 20694 MOVE.B #0x01,(A0+0x2f)> {}
<MI 20698 MOVE.B #0x01,(A0+0x30)> {}
<MI 2069c MOVE.B #0x01,(A0+0x31)> {}
<MI 206a0 CLR.B (A0+0x32)> {}
<MI 206a4 LEA.L (A0+0x33),A0> {}
<MI 206a8 LEA.L 0x2013c,A1> {}
<BlockMove 30,A1,A0> {}
<MI 206b4 MOVEQ.L #0x00,D7> {}
<POP 206b6-206e0 Naked> Σ0 ↓ →0x206b6 ←0x206b6
<MI 206b6 MOVEA.L (A6+0x8),A0> {}
<MI 206ba MOVE.B D7,D0> {}
<MI 206bc EXTB.W D0> {}
<MI 206be ASL.W #0x5,D0> {}
<MI 206c0 MOVE.B #0x01,(A0+D0.W+#0x51)> {}
<MI 206c4 CLR.B (A0+D0.W+#0x52)> {}
<MI 206c8 LEA.L (A0+D0.W+#0x53),A0> {}
<MI 206cc LEA.L 0x2015a,A1> {}
<BlockMove 30,A1,A0> {}
<MI 206d8 ADDQ.B #0x1,D7> {}
<MI 206da CMPI.B #0x09,D7> {}
<MI 206de BLE 0x206b6> {}
<POP 206e0-206e8 Epilogue> Σ0
@ 206e8
<LVAR -0x002 @>
<LVAR -0x003 1(r)>
<LVAR -0x004 1(rw) 2(w)>
<LVAR -0x005 1(r)>
<LVAR -0x006 1(rw) 2(w)>
<LVAR -0x007 1(rw)>
<LVAR -0x008 @ 1(r) 2(w)>
<POP 206e8-208ce Body>
<POP 206e8-206fe Prologue> Σ0 ↓
<POP 206fe-20714 RegCacheLoad> Σ0 ↓
<POP 20714-20756 Naked> Σ0 Δ-52 ↓ →0x20758
<MI 20714 MOVE.W 0x2059e,(A6-0x8)> {}
<MI 20718 MOVE.W 0x205a0,(A6-0x6)> {}
<MI 2071e MOVE.W 0x205a2,(A6-0x4)> {}
<Pointer.fp 0x20724 <LVAR -0x008 @ 1(r) 2(w)>> Δ-4 {[@@-8]}
<Pointer.fp 0x20726 <LVAR -0x002 @>> Δ-4 {[@@-8]|[@@-2]}
<Call 0x2072a 0x1057a> {[@@-8]|[@@-2]}
Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool)
<POP 20730-20732 StackAdj> Δ+8 {}
<MI 20732 CLR.B (A6-0x8)> {}
<Blob 0x20734 [44] @> Δ-44 {[«44""»]}
<POP 20740-20742 StackAdj> Δ-6 {[«44""»]|[-6-]}
<Lit 0x20742 44> {[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]}
<POP 2074c-2074e StackAdj> Δ-2 {[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]|[-2-]}
<MI 2074e CLR.B (A7)> {[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]|[-2-]}
<MI 20750 TST.B (A6-0x7)> {[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]|[-2-]}
<MI 20754 BNE 0x20758> {[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]|[-2-]}
<POP 20756-20758 Naked> Σ-52 ↓
<MI 20756 ADDQ.B #0x1,(A7)> {[-52-]}
<POP 20758-20766 Naked> Σ-52 Δ+8 ↓ →0x2083c ←0x20714
<Call 0x20758 0x103f0> {[-52-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 2075e-20760 StackAdj> Δ+6 {[-46-]}
<MI 20760 TST.B (A7)+> Δ+2 {[-44-]}
<MI 20762 BEQ 0x2083c> {[-44-]}
<POP 20766-2083c Naked> Σ-44 →0x208ba
<MI 20766 CLR.B (A6-0x7)> {[-44-]}
<MI 2076a CLR.B (A6-0x5)> {[-44-]}
<MI 2076e CLR.B (A6-0x3)> {[-44-]}
<Blob 0x20772 [60] @> Δ-60 {[-44-]|[«60""»]}
<POP 2077e-20780 StackAdj> Δ-4 {[-44-]|[«60""»]|[-4-]}
<Lit 0x20780 60> {[-44-]|[«60""»]|[$$NOTE: 32 MB boards must be installed as MEM 0 or MEM 2 only.]}
<Call 0x2078c 0x103e0> {[-44-]|[«60""»]|[$$NOTE: 32 MB boards must be installed as MEM 0 or MEM 2 only.]}
WriteConsoleStringCrLf(str : String)
<POP 20792-20796 StackAdj> Δ+64 {[-44-]}
<Blob 0x20796 [60] @> Δ-60 {[-44-]|[«60""»]}
<POP 207a2-207a4 StackAdj> Δ-4 {[-44-]|[«60""»]|[-4-]}
<Lit 0x207a4 60> {[-44-]|[«60""»]|[$$ 8 MB boards cannot be in the same CPU as 32 MB boards.]}
<Call 0x207b0 0x103e0> {[-44-]|[«60""»]|[$$ 8 MB boards cannot be in the same CPU as 32 MB boards.]}
WriteConsoleStringCrLf(str : String)
<POP 207b6-207b7 StackAdj> Δ+64 ↓ {[-44-]}
<Blob 0x207b7 [26] @> Δ-26 {[-44-]|[«26""»]}
<POP 207c8-207ca StackAdj> Δ-4 {[-44-]|[«26""»]|[-4-]}
<Lit 0x207ca 25> {[-44-]|[«26""»]|[$$Does memory board 0 exist]}
<MI 207d6 MOVEA.L (A7)+,A4> Δ+4 {[-44-]|[«26""»]}
<POP 207d8-207da StackAdj> Δ+20 {[-44-]|[-6-]}
<MI 207da MOVE.L A4,(A7)> {[-44-]|[-2-]|[4, 'A4']}
<MI 207dc MOVE.B (A6-0x6),D0> {[-44-]|[-2-]|[4, 'A4']}
<MI 207e0 EXTB.W D0> {[-44-]|[-2-]|[4, 'A4']}
<POP 0x207e2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-44-]|[-2-]|[4, 'A4']}
<MI 207e4 MOVE.B D0,-(A7)> Δ-2 {[-44-]|[-2-]|[4, 'A4']|[2, 'D0']}
<Call 0x207e6 0x103f0> {[-44-]|[-2-]|[4, 'A4']|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 207ec-207ee StackAdj> Δ+6 {[-44-]|[-2-]}
<MI 207ee MOVE.B (A7)+,D0> Δ+2 {[-44-]}
<MI 207f0 EXTB.W D0> {[-44-]}
<POP 0x207f2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-44-]}
<MI 207f4 MOVE.B D0,(A6-0x6)> {[-44-]}
<Blob 0x207f8 [26] @> Δ-26 {[-44-]|[«26""»]}
<POP 2080a-2080c StackAdj> Δ-4 {[-44-]|[«26""»]|[-4-]}
<Lit 0x2080c 25> {[-44-]|[«26""»]|[$$Does memory board 2 exist]}
<MI 20818 MOVEA.L (A7)+,A4> Δ+4 {[-44-]|[«26""»]}
<POP 2081a-2081c StackAdj> Δ+20 {[-44-]|[-6-]}
<MI 2081c MOVE.L A4,(A7)> {[-44-]|[-2-]|[4, 'A4']}
<MI 2081e MOVE.B (A6-0x4),D0> {[-44-]|[-2-]|[4, 'A4']}
<MI 20822 EXTB.W D0> {[-44-]|[-2-]|[4, 'A4']}
<POP 0x20824 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-44-]|[-2-]|[4, 'A4']}
<MI 20826 MOVE.B D0,-(A7)> Δ-2 {[-44-]|[-2-]|[4, 'A4']|[2, 'D0']}
<Call 0x20828 0x103f0> {[-44-]|[-2-]|[4, 'A4']|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 2082e-20830 StackAdj> Δ+6 {[-44-]|[-2-]}
<MI 20830 MOVE.B (A7)+,D0> Δ+2 {[-44-]}
<MI 20832 EXTB.W D0> {[-44-]}
<POP 0x20834 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-44-]}
<MI 20836 MOVE.B D0,(A6-0x4)> {[-44-]}
<MI 2083a BRA 0x208ba> {[-44-]}
<POP 2083c-20842 Naked> Σ-44 ↓ ←0x20758
<MI 2083c MOVE.B #0x01,(A6-0x7)> {[-44-]}
<MI 20840 MOVEQ.L #0x00,D7> {[-44-]}
<POP 20842-208ba Naked> Σ-44 ↓ →0x20842 ←0x20842
<Blob 0x20842 [18] @> Δ-18 {[-44-]|[«18""»]}
<Blob 0x2084e [2] @> Δ-2 {[-44-]|[«18""»]|[«2""»]}
<Blob 0x20852 [2] @> Δ-2 {[-44-]|[«18""»]|[«2""»]|[«2""»]}
<Blob 0x20856 [2] @> Δ-2 {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]}
<POP 2085a-2085c StackAdj> Δ-8 {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-8-]}
<Lit 0x2085c 18> {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$Does memory board_]}
<MI 20868 MOVE.L D7,(A7)> {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']}
<POP 20866-20868 StackAdj> Δ-8 {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x2086a 0x102e4> {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x20870 6> {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']|[-4-]|[$$ exist]}
<Call 0x2087e 0x102d4> {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']|[-4-]|[$$ exist]}
StringCat3(a, b, c : String) : String
<POP 20884-20888 StackAdj> Δ+12 {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
<MI 20888 MOVEA.L (A7)+,A4> Δ+4 {[-44-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]}
<POP 2088a-2088e StackAdj> Δ+24 {[-44-]}
<POP 0x2088e LimitCheck 0x0 ≤ D7 ≤ 0x3> {[-44-]}
<POP 20894-20896 StackAdj> Δ-2 {[-46-]}
<MI 20896 MOVE.L A4,-(A7)> Δ-4 {[-46-]|[4, 'A4']}
<MI 20898 MOVE.B (A6+D7.L-#0x6),D0> {[-46-]|[4, 'A4']}
<MI 2089c EXTB.W D0> {[-46-]|[4, 'A4']}
<POP 0x2089e LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-46-]|[4, 'A4']}
<MI 208a0 MOVE.B D0,-(A7)> Δ-2 {[-46-]|[4, 'A4']|[2, 'D0']}
<Call 0x208a2 0x103f0> {[-46-]|[4, 'A4']|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 208a8-208aa StackAdj> Δ+6 {[-46-]}
<MI 208aa MOVE.B (A7)+,D0> Δ+2 {[-44-]}
<MI 208ac EXTB.W D0> {[-44-]}
<POP 0x208ae LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-44-]}
<MI 208b0 MOVE.B D0,(A6+D7.L-#0x6)> {[-44-]}
<MI 208b4 ADDQ.L #0x1,D7> {[-44-]}
<MI 208b6 CMP.L #0x03,D7> {[-44-]}
<MI 208b8 BLE 0x20842> {[-44-]}
<POP 208ba-208c6 Naked> Σ-44 Δ+44 ↓ ←0x20766
<POP 208ba-208bc StackAdj> Δ+44 {}
<Pointer.fp 0x208bc <LVAR -0x008 @ 1(r) 2(w)>> Δ-4 {[@@-8]}
<Call 0x208be 0x10580> {[@@-8]}
Write_HARDWARE.M200_CONFIG(a : Pointer)
<POP 208c4-208c6 StackAdj> Δ+4 {}
<POP 208c6-208ce Epilogue> Σ0
@ 208ce
<POP 208ce-209f2 Body>
<POP 208ce-208e4 Prologue> Σ0 ↓
<POP 208e4-20900 RegCacheLoad> Σ0 ↓
<POP 20900-209ea Naked> Σ0 ↓
<Blob 0x20900 [40] @> Δ-40 {[«40""»]}
<POP 20910-20912 StackAdj> Δ-6 {[«40""»]|[-6-]}
<Lit 0x20912 39> {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]}
<MI 20920 MOVE.B 0x214ea,D0> {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]}
<MI 20922 EXTB.W D0> {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]}
<POP 0x20924 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]}
<MI 20926 MOVE.B D0,-(A7)> Δ-2 {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]|[2, 'D0']}
<Call 0x20928 0x103f0> {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 2092a-2092c StackAdj> Δ+6 {[«40""»]|[-2-]}
<MI 2092c MOVE.B (A7)+,D0> Δ+2 {[«40""»]}
<MI 2092e EXTB.W D0> {[«40""»]}
<POP 0x20930 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«40""»]}
<POP 20932-20934 StackAdj> Δ+40 {}
<MI 20934 MOVE.B D0,0x214ea> {}
<Blob 0x20936 [30] @> Δ-30 {[«30""»]}
<POP 20942-20944 StackAdj> Δ-6 {[«30""»]|[-6-]}
<Lit 0x20944 30> {[«30""»]|[-2-]|[$$Allow editing of configuration]}
<MI 20950 MOVE.B 0x214eb,D0> {[«30""»]|[-2-]|[$$Allow editing of configuration]}
<MI 20956 EXTB.W D0> {[«30""»]|[-2-]|[$$Allow editing of configuration]}
<POP 0x20958 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«30""»]|[-2-]|[$$Allow editing of configuration]}
<MI 2095a MOVE.B D0,-(A7)> Δ-2 {[«30""»]|[-2-]|[$$Allow editing of configuration]|[2, 'D0']}
<Call 0x2095c 0x103f0> {[«30""»]|[-2-]|[$$Allow editing of configuration]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 2095e-20960 StackAdj> Δ+6 {[«30""»]|[-2-]}
<MI 20960 MOVE.B (A7)+,D0> Δ+2 {[«30""»]}
<MI 20962 EXTB.W D0> {[«30""»]}
<POP 0x20964 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«30""»]}
<POP 20966-20968 StackAdj> Δ+30 {}
<MI 20968 MOVE.B D0,0x214eb> {}
<Blob 0x2096e [58] @> Δ-58 {[«58""»]}
<POP 2097e-20980 StackAdj> Δ-6 {[«58""»]|[-6-]}
<Lit 0x20980 57> {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]}
<MI 2098e MOVE.B 0x214ec,D0> {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]}
<MI 20994 EXTB.W D0> {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]}
<POP 0x20996 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]}
<MI 20998 MOVE.B D0,-(A7)> Δ-2 {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]|[2, 'D0']}
<Call 0x2099a 0x103f0> {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 2099c-2099e StackAdj> Δ+6 {[«58""»]|[-2-]}
<MI 2099e MOVE.B (A7)+,D0> Δ+2 {[«58""»]}
<MI 209a0 EXTB.W D0> {[«58""»]}
<POP 0x209a2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«58""»]}
<POP 209a4-209a6 StackAdj> Δ+58 {}
<MI 209a6 MOVE.B D0,0x214ec> {}
<Blob 0x209ac [34] @> Δ-34 {[«34""»]}
<POP 209bc-209be StackAdj> Δ-6 {[«34""»]|[-6-]}
<Lit 0x209be 33> {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]}
<MI 209cc MOVE.B 0x214ed,D0> {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]}
<MI 209d2 EXTB.W D0> {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]}
<POP 0x209d4 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]}
<MI 209d6 MOVE.B D0,-(A7)> Δ-2 {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]|[2, 'D0']}
<Call 0x209d8 0x103f0> {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 209da-209dc StackAdj> Δ+6 {[«34""»]|[-2-]}
<MI 209dc MOVE.B (A7)+,D0> Δ+2 {[«34""»]}
<MI 209de EXTB.W D0> {[«34""»]}
<POP 0x209e0 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«34""»]}
<POP 209e2-209e4 StackAdj> Δ+34 {}
<MI 209e4 MOVE.B D0,0x214ed> {}
<POP 209ea-209f2 Epilogue> Σ0
@ 209f2
<POP 209f2-20b58 Body>
<POP 209f2-20a08 Prologue> Σ0 ↓
<POP 20a08-20a26 RegCacheLoad> Σ0 ↓
<POP 20a26-20b50 Naked> Σ0 ↓
<Blob 0x20a26 [30] @> Δ-30 {[«30""»]}
<POP 20a36-20a38 StackAdj> Δ-6 {[«30""»]|[-6-]}
<Lit 0x20a38 29> {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]}
<MI 20a44 MOVE.B 0x21512,D0> {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]}
<MI 20a46 EXTB.W D0> {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]}
<POP 0x20a48 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]}
<MI 20a4a MOVE.B D0,-(A7)> Δ-2 {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]|[2, 'D0']}
<Call 0x20a4c 0x103f0> {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20a4e-20a50 StackAdj> Δ+6 {[«30""»]|[-2-]}
<MI 20a50 MOVE.B (A7)+,D0> Δ+2 {[«30""»]}
<MI 20a52 EXTB.W D0> {[«30""»]}
<POP 0x20a54 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«30""»]}
<POP 20a56-20a58 StackAdj> Δ+30 {}
<MI 20a58 MOVE.B D0,0x21512> {}
<Blob 0x20a5a [44] @> Δ-44 {[«44""»]}
<POP 20a6a-20a6c StackAdj> Δ-6 {[«44""»]|[-6-]}
<Lit 0x20a6c 43> {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]}
<MI 20a7a MOVE.B 0x21513,D0> {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]}
<MI 20a80 EXTB.W D0> {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]}
<POP 0x20a82 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]}
<MI 20a84 MOVE.B D0,-(A7)> Δ-2 {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]|[2, 'D0']}
<Call 0x20a86 0x103f0> {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20a88-20a8a StackAdj> Δ+6 {[«44""»]|[-2-]}
<MI 20a8a MOVE.B (A7)+,D0> Δ+2 {[«44""»]}
<MI 20a8c EXTB.W D0> {[«44""»]}
<POP 0x20a8e LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«44""»]}
<POP 20a90-20a92 StackAdj> Δ+44 {}
<MI 20a92 MOVE.B D0,0x21513> {}
<Blob 0x20a98 [30] @> Δ-30 {[«30""»]}
<POP 20aa8-20aaa StackAdj> Δ-6 {[«30""»]|[-6-]}
<Lit 0x20aaa 29> {[«30""»]|[-2-]|[$$Call Rational on kernel crash]}
<MI 20ab6 MOVE.B 0x21514,D0> {[«30""»]|[-2-]|[$$Call Rational on kernel crash]}
<MI 20abc EXTB.W D0> {[«30""»]|[-2-]|[$$Call Rational on kernel crash]}
<POP 0x20abe LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«30""»]|[-2-]|[$$Call Rational on kernel crash]}
<MI 20ac0 MOVE.B D0,-(A7)> Δ-2 {[«30""»]|[-2-]|[$$Call Rational on kernel crash]|[2, 'D0']}
<Call 0x20ac2 0x103f0> {[«30""»]|[-2-]|[$$Call Rational on kernel crash]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20ac4-20ac6 StackAdj> Δ+6 {[«30""»]|[-2-]}
<MI 20ac6 MOVE.B (A7)+,D0> Δ+2 {[«30""»]}
<MI 20ac8 EXTB.W D0> {[«30""»]}
<POP 0x20aca LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«30""»]}
<POP 20acc-20ace StackAdj> Δ+30 {}
<MI 20ace MOVE.B D0,0x21514> {}
<MI 20ad4 CLR.B 0x21515> {}
<MI 20ada CLR.B 0x21516> {}
<Blob 0x20ae0 [36] @> Δ-36 {[«36""»]}
<POP 20aec-20aee StackAdj> Δ-6 {[«36""»]|[-6-]}
<Lit 0x20aee 36> {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]}
<MI 20afa MOVE.B 0x21517,D0> {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]}
<MI 20b00 EXTB.W D0> {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]}
<POP 0x20b02 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]}
<MI 20b04 MOVE.B D0,-(A7)> Δ-2 {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]|[2, 'D0']}
<Call 0x20b06 0x103f0> {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20b08-20b0a StackAdj> Δ+6 {[«36""»]|[-2-]}
<MI 20b0a MOVE.B (A7)+,D0> Δ+2 {[«36""»]}
<MI 20b0c EXTB.W D0> {[«36""»]}
<POP 0x20b0e LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«36""»]}
<POP 20b10-20b12 StackAdj> Δ+36 {}
<MI 20b12 MOVE.B D0,0x21517> {}
<Blob 0x20b18 [20] @> Δ-20 {[«20""»]}
<POP 20b24-20b26 StackAdj> Δ-6 {[«20""»]|[-6-]}
<Lit 0x20b26 20> {[«20""»]|[-2-]|[$$Auto boot the kernel]}
<MI 20b32 MOVE.B 0x21518,D0> {[«20""»]|[-2-]|[$$Auto boot the kernel]}
<MI 20b38 EXTB.W D0> {[«20""»]|[-2-]|[$$Auto boot the kernel]}
<POP 0x20b3a LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«20""»]|[-2-]|[$$Auto boot the kernel]}
<MI 20b3c MOVE.B D0,-(A7)> Δ-2 {[«20""»]|[-2-]|[$$Auto boot the kernel]|[2, 'D0']}
<Call 0x20b3e 0x103f0> {[«20""»]|[-2-]|[$$Auto boot the kernel]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20b40-20b42 StackAdj> Δ+6 {[«20""»]|[-2-]}
<MI 20b42 MOVE.B (A7)+,D0> Δ+2 {[«20""»]}
<MI 20b44 EXTB.W D0> {[«20""»]}
<POP 0x20b46 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«20""»]}
<POP 20b48-20b4a StackAdj> Δ+20 {}
<MI 20b4a MOVE.B D0,0x21518> {}
<POP 20b50-20b58 Epilogue> Σ0
@ 20b58
<LVAR -0x008 @ 1(r)>
<POP 20b58-20ca8 Body>
<POP 20b58-20b6e Prologue> Σ0 ↓
<POP 20b6e-20b86 RegCacheLoad> Σ0 ↓
<POP 20b86-20b8e Naked> Σ0 ↓ →0x20b92
<MI 20b86 TST.B 0x214e6> {}
<MI 20b8c BEQ 0x20b92> {}
<POP 20b8e-20b92 Naked> Σ0 →0x20bc6
<MI 20b8e CLR.B 0x21519> {}
<MI 20b90 BRA 0x20bc6> {}
<POP 20b92-20bc6 Naked> Σ0 ↓ ←0x20b86
<Blob 0x20b92 [42] @> Δ-42 {[«42""»]}
<POP 20b9e-20ba0 StackAdj> Δ-6 {[«42""»]|[-6-]}
<Lit 0x20ba0 42> {[«42""»]|[-2-]|[$$Take microcode from standard configuration]}
<MI 20bac MOVE.B 0x21519,D0> {[«42""»]|[-2-]|[$$Take microcode from standard configuration]}
<MI 20bae EXTB.W D0> {[«42""»]|[-2-]|[$$Take microcode from standard configuration]}
<POP 0x20bb0 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«42""»]|[-2-]|[$$Take microcode from standard configuration]}
<MI 20bb2 MOVE.B D0,-(A7)> Δ-2 {[«42""»]|[-2-]|[$$Take microcode from standard configuration]|[2, 'D0']}
<Call 0x20bb4 0x103f0> {[«42""»]|[-2-]|[$$Take microcode from standard configuration]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20bba-20bbc StackAdj> Δ+6 {[«42""»]|[-2-]}
<MI 20bbc MOVE.B (A7)+,D0> Δ+2 {[«42""»]}
<MI 20bbe EXTB.W D0> {[«42""»]}
<POP 0x20bc0 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«42""»]}
<POP 20bc2-20bc4 StackAdj> Δ+42 {}
<MI 20bc4 MOVE.B D0,0x21519> {}
<POP 20bc6-20bcc Naked> Σ0 ↓ →0x20ca0 ←0x20b8e
<MI 20bc6 TST.B 0x21519> {}
<MI 20bc8 BNE 0x20ca0> {}
<POP 20bcc-20c34 Naked> Σ0 ↓ →0x20c5c ←0x20c82
<Blob 0x20bcc [58] @> Δ-58 {[«58""»]}
<POP 20bd8-20bda StackAdj> Δ-6 {[«58""»]|[-6-]}
<Lit 0x20bda 58> {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]}
<MI 20be6 MOVE.B 0x2151a,D0> {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]}
<MI 20bec EXTB.W D0> {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]}
<POP 0x20bee LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]}
<MI 20bf0 MOVE.B D0,-(A7)> Δ-2 {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]|[2, 'D0']}
<Call 0x20bf2 0x103f0> {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20bf8-20bfa StackAdj> Δ+6 {[«58""»]|[-2-]}
<MI 20bfa MOVE.B (A7)+,D0> Δ+2 {[«58""»]}
<MI 20bfc EXTB.W D0> {[«58""»]}
<POP 0x20bfe LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«58""»]}
<POP 20c00-20c02 StackAdj> Δ+58 {}
<MI 20c02 MOVE.B D0,0x2151a> {}
<Blob 0x20c08 [30] 0x2151b> Δ-30 {[«30»]}
<POP 20c1a-20c1c StackAdj> Δ-4 {[«30»]|[-4-]}
<Lit 0x20c1c> {[«30»]|[$$…]}
<Pointer.sp 0x20c1c 4> Δ-4
<Const 0x20c20 0x1.2> Δ-2
<Const 0x20c22 0x1e.2> Δ-2
<Call 0x20c24 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20c26-20c28 StackAdj> Δ+8
<MI 20c28 MOVEA.L (A7)+,A4> Δ+4 {[«30»]}
<POP 20c2a-20c2c StackAdj> Δ+30 {}
<MI 20c2c TST.B 0x2151a> {}
<MI 20c32 BEQ 0x20c5c> {}
<POP 20c34-20c5c Naked> Σ0 →0x20c82
<Blob 0x20c34 [28] @> Δ-28 {[«28""»]}
<POP 20c40-20c42 StackAdj> Δ-8 {[«28""»]|[-8-]}
<Lit 0x20c42 28> {[«28""»]|[-4-]|[$$Enter default microcode name]}
<POP 20c4c-20c4e StackAdj> Δ-4 {[«28""»]|[-4-]|[$$Enter default microcode name]|[-4-]}
<MI 20c4e MOVE.L A4,(A7)> {[«28""»]|[-4-]|[$$Enter default microcode name]|[4, 'A4']}
<Call 0x20c50 0x205a4> {[«28""»]|[-4-]|[$$Enter default microcode name]|[4, 'A4']}
<POP 20c54-20c56 StackAdj> Δ+8 {[«28""»]|[-4-]}
<MI 20c56 MOVEA.L (A7)+,A4> Δ+4 {[«28""»]}
<POP 20c58-20c5a StackAdj> Δ+28 {}
<MI 20c5a BRA 0x20c82> {}
<POP 20c5c-20c82 Naked> Σ0 ↓ ←0x20bcc
<Blob 0x20c5c [20] @> Δ-20 {[«20""»]}
<POP 20c68-20c6a StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x20c6a 20> {[«20""»]|[-4-]|[$$Enter microcode name]}
<POP 20c74-20c76 StackAdj> Δ-4 {[«20""»]|[-4-]|[$$Enter microcode name]|[-4-]}
<MI 20c76 MOVE.L A4,(A7)> {[«20""»]|[-4-]|[$$Enter microcode name]|[4, 'A4']}
<Call 0x20c78 0x205a4> {[«20""»]|[-4-]|[$$Enter microcode name]|[4, 'A4']}
<POP 20c7c-20c7e StackAdj> Δ+8 {[«20""»]|[-4-]}
<MI 20c7e MOVEA.L (A7)+,A4> Δ+4 {[«20""»]}
<POP 20c80-20c82 StackAdj> Δ+20 {}
<POP 20c82-20ca0 Naked> Σ0 ↓ →0x20bcc ←0x20c34
<MI 20c82 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Const 0x20c84 0x2151b.4> Δ-4 {[4, 'A4']|[##136475]}
<Pointer.fp 0x20c8a <LVAR -0x008 @ 1(r)>> Δ-4 {[4, 'A4']|[##136475]|[@@-8]}
<Call 0x20c8e 0x1058c> {[4, 'A4']|[##136475]|[@@-8]}
FSCALL_1058c
<POP 20c94-20c98 StackAdj> Δ+12 {}
<MI 20c98 TST.B (A6-0x8)> {}
<MI 20c9c BEQ 0x20bcc> {}
<POP 20ca0-20ca8 Epilogue> Σ0 ←0x20bc6
@ 20ca8
<LVAR -0x002 @ 1(r)>
<POP 20ca8-20ec2 Body>
<POP 20ca8-20cbe Prologue> Σ0 ↓
<POP 20cbe-20cca RegCacheLoad> Σ0 ↓
<POP 20cca-20cd2 Naked> Σ0 ↓ →0x20cd6
<MI 20cca TST.B 0x214ed> {}
<MI 20cd0 BEQ 0x20cd6> {}
<POP 20cd2-20cd6 Naked> Σ0 →0x20cd8
<MI 20cd2 MOVEQ.L #0x04,D6> {}
<MI 20cd4 BRA 0x20cd8> {}
<POP 20cd6-20cd8 Naked> Σ0 ↓ ←0x20cca
<MI 20cd6 MOVEQ.L #0x09,D6> {}
<POP 20cd8-20ce0 Naked> Σ0 Δ-2 ↓ →0x20cea ←0x20cd2
<MI 20cd8 MOVE.B D6,-(A7)> Δ-2 {[2, 'D6']}
<MI 20cda MOVEQ.L #0x00,D7> {[2, 'D6']}
<MI 20cdc CMP.B (A7),D7> {[2, 'D6']}
<MI 20cde BGT 0x20cea> {[2, 'D6']}
<POP 20ce0-20cea Naked> Σ-2 ↓
<MI 20ce0 MOVE.B (A7),D0> {[-2-]}
<POP 0x20ce2 LimitCheck D0 ≤ 0x9> {[-2-]}
<MI 20ce2 CMPI.B #0x09,D0>
<MI 20ce6 BLE 0x20cea>
<MI 20ce8 TRAP #15>
<POP 20cea-20cf0 Naked> Σ-2 ↓ →0x20eb8 ←0x20cd8 ←0x20eb0
<MI 20cea CMP.B (A7),D7> {[-2-]}
<MI 20cec BGT 0x20eb8> {[-2-]}
<POP 20cf0-20d08 Naked> Σ-2 Δ-6 ↓ →0x20d0e
<MI 20cf0 MOVE.B D7,D0> {[-2-]}
<MI 20cf2 EXTB.W D0> {[-2-]}
<MI 20cf4 ASL.W #0x5,D0> {[-2-]}
<MI 20cf6 LEA.L 0x214de,A0> {[-2-]}
<MI 20cfc MOVE.W D0,-(A7)> Δ-2 {[-2-]|[2, 'D0']}
<MI 20cfe MOVE.L A0,-(A7)> Δ-4 {[-2-]|[2, 'D0']|[4, 'A0']}
<MI 20d00 TST.B 0x214e6> {[-2-]|[2, 'D0']|[4, 'A0']}
<MI 20d06 BEQ 0x20d0e> {[-2-]|[2, 'D0']|[4, 'A0']}
<POP 20d08-20d0e Naked> Σ-8 →0x20d7a
<MI 20d08 CLR.B (A0+D0.W+#0x5b)> {[-8-]}
<MI 20d0c BRA 0x20d7a> {[-8-]}
<POP 20d0e-20d7a Naked> Σ-8 ↓ ←0x20cf0
<Blob 0x20d0e [6] @> Δ-6 {[-8-]|[«6""»]}
<Blob 0x20d1e [28] @> Δ-28 {[-8-]|[«6""»]|[«28""»]}
<POP 20d2a-20d2e StackAdj> Δ-10 {[-8-]|[«6""»]|[«28""»]|[-10-]}
<Lit 0x20d2e 5> {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]}
<POP 20d3a-20d3c StackAdj> Δ-6 {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-6-]}
<MI 20d3c MOVE.B D7,(A7)> {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-6-]}
<Call 0x20d3e 0x10586> {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-6-]}
Config_Entry_Name(a : Byte) : String
<POP 20d44-20d46 StackAdj> Δ-2 {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-8-]}
<Lit 0x20d46 28> {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-4-]|[$$ from standard configuration]}
<Call 0x20d54 0x102d4> {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-4-]|[$$ from standard configuration]}
StringCat3(a, b, c : String) : String
<POP 20d5a-20d5c StackAdj> Δ+12 {[-8-]|[«6""»]|[«28""»]|[-6-]}
<MI 20d5c MOVE.B (A0+D0.W+#0x5b),D1> {[-8-]|[«6""»]|[«28""»]|[-6-]}
<MI 20d60 EXTB.W D1> {[-8-]|[«6""»]|[«28""»]|[-6-]}
<POP 0x20d62 LimitCheck 0x0 ≤ D1 ≤ 0x1> {[-8-]|[«6""»]|[«28""»]|[-6-]}
<MI 20d64 MOVE.B D1,-(A7)> Δ-2 {[-8-]|[«6""»]|[«28""»]|[-6-]|[2, 'D1']}
<Call 0x20d66 0x103f0> {[-8-]|[«6""»]|[«28""»]|[-6-]|[2, 'D1']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20d6c-20d6e StackAdj> Δ+6 {[-8-]|[«6""»]|[«28""»]|[-2-]}
<MI 20d6e MOVE.B (A7)+,D1> Δ+2 {[-8-]|[«6""»]|[«28""»]}
<MI 20d70 EXTB.W D1> {[-8-]|[«6""»]|[«28""»]}
<POP 0x20d72 LimitCheck 0x0 ≤ D1 ≤ 0x1> {[-8-]|[«6""»]|[«28""»]}
<POP 20d74-20d76 StackAdj> Δ+34 {[-8-]}
<MI 20d76 MOVE.B D1,(A0+D0.W+#0x5b)> {[-8-]}
<POP 20d7a-20d82 Naked> Σ-8 ↓ →0x20eb0 ←0x20d08
<MI 20d7a TST.B (A0+D0.W+#0x5b)> {[-8-]}
<MI 20d7e BNE 0x20eb0> {[-8-]}
<POP 20d82-20e14 Naked> Σ-8 ↓ →0x20e54 ←0x20e96
<MI 20d82 MOVEA.L (A7),A0> {[-8-]}
<MI 20d84 MOVE.W (A7+0x4),D0> {[-8-]}
<Blob 0x20d88 [36] @> Δ-36 {[-8-]|[«36""»]}
<POP 20d94-20d98 StackAdj> Δ-10 {[-8-]|[«36""»]|[-10-]}
<Lit 0x20d98 36> {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]}
<POP 20da4-20da6 StackAdj> Δ-6 {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-6-]}
<MI 20da6 MOVE.B D7,(A7)> {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-6-]}
<Call 0x20da8 0x10586> {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-6-]}
Config_Entry_Name(a : Byte) : String
<POP 20dae-20db0 StackAdj> Δ+2 {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-4-]}
<Call 0x20db0 0x102d0> {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20db6-20db8 StackAdj> Δ+8 {[-8-]|[«36""»]|[-6-]}
<MI 20db8 MOVE.B (A0+D0.W+#0x5c),D1> {[-8-]|[«36""»]|[-6-]}
<MI 20dbc EXTB.W D1> {[-8-]|[«36""»]|[-6-]}
<POP 0x20dbe LimitCheck 0x0 ≤ D1 ≤ 0x1> {[-8-]|[«36""»]|[-6-]}
<MI 20dc0 MOVE.B D1,-(A7)> Δ-2 {[-8-]|[«36""»]|[-6-]|[2, 'D1']}
<Call 0x20dc2 0x103f0> {[-8-]|[«36""»]|[-6-]|[2, 'D1']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20dc8-20dca StackAdj> Δ+6 {[-8-]|[«36""»]|[-2-]}
<MI 20dca MOVE.B (A7)+,D1> Δ+2 {[-8-]|[«36""»]}
<MI 20dcc EXTB.W D1> {[-8-]|[«36""»]}
<POP 0x20dce LimitCheck 0x0 ≤ D1 ≤ 0x1> {[-8-]|[«36""»]}
<POP 20dd0-20dd4 StackAdj> Δ+36 {[-8-]}
<MI 20dd4 MOVE.B D1,(A0+D0.W+#0x5c)> {[-8-]}
<MI 20dd8 MOVE.B D7,D1> {[-8-]}
<MI 20dda EXTB.W D1> {[-8-]}
<MI 20ddc MOVE.W D1,D2> {[-8-]}
<MI 20dde ASL.W #0x5,D2> {[-8-]}
<MI 20de0 LEA.L 0x214de,A1> {[-8-]}
<Blob 0x20de6 [30] (A1+D2.W+#0x5d)> Δ-30 {[-8-]|[«30»]}
<POP 20df8-20dfa StackAdj> Δ-4 {[-8-]|[«30»]|[-4-]}
<Lit 0x20dfa> {[-8-]|[«30»]|[$$…]}
<Pointer.sp 0x20dfa 4> Δ-4
<Const 0x20dfe 0x1.2> Δ-2
<Const 0x20e00 0x1e.2> Δ-2
<Call 0x20e04 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20e06-20e08 StackAdj> Δ+8
<MI 20e08 MOVEA.L (A7)+,A4> Δ+4 {[-8-]|[«30»]}
<POP 20e0a-20e0e StackAdj> Δ+30 {[-8-]}
<MI 20e0e TST.B (A0+D0.W+#0x5c)> {[-8-]}
<MI 20e12 BEQ 0x20e54> {[-8-]}
<POP 20e14-20e54 Naked> Σ-8 →0x20e96
<Blob 0x20e14 [34] @> Δ-34 {[-8-]|[«34""»]}
<POP 20e24-20e26 StackAdj> Δ-12 {[-8-]|[«34""»]|[-12-]}
<Lit 0x20e26 33> {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]}
<POP 20e32-20e34 StackAdj> Δ-6 {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-6-]}
<MI 20e34 MOVE.B D1,(A7)> {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-6-]}
<Call 0x20e36 0x10586> {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-6-]}
Config_Entry_Name(a : Byte) : String
<POP 20e3c-20e3e StackAdj> Δ+2 {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-4-]}
<Call 0x20e3e 0x102d0> {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20e44-20e46 StackAdj> Δ+4 {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]}
<MI 20e46 MOVE.L A4,(A7)> {[-8-]|[«34""»]|[-8-]|[4, 'A4']}
<Call 0x20e48 0x205a4> {[-8-]|[«34""»]|[-8-]|[4, 'A4']}
<POP 20e4c-20e4e StackAdj> Δ+8 {[-8-]|[«34""»]|[-4-]}
<MI 20e4e MOVEA.L (A7)+,A4> Δ+4 {[-8-]|[«34""»]}
<POP 20e50-20e52 StackAdj> Δ+34 {[-8-]}
<MI 20e52 BRA 0x20e96> {[-8-]}
<POP 20e54-20e96 Naked> Σ-8 ↓ ←0x20d82
<Blob 0x20e54 [26] @> Δ-26 {[-8-]|[«26""»]}
<POP 20e66-20e68 StackAdj> Δ-12 {[-8-]|[«26""»]|[-12-]}
<Lit 0x20e68 25> {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]}
<POP 20e74-20e76 StackAdj> Δ-6 {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-6-]}
<MI 20e76 MOVE.B D1,(A7)> {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-6-]}
<Call 0x20e78 0x10586> {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-6-]}
Config_Entry_Name(a : Byte) : String
<POP 20e7e-20e80 StackAdj> Δ+2 {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-4-]}
<Call 0x20e80 0x102d0> {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20e86-20e88 StackAdj> Δ+4 {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]}
<MI 20e88 MOVE.L A4,(A7)> {[-8-]|[«26""»]|[-8-]|[4, 'A4']}
<Call 0x20e8a 0x205a4> {[-8-]|[«26""»]|[-8-]|[4, 'A4']}
<POP 20e8e-20e90 StackAdj> Δ+8 {[-8-]|[«26""»]|[-4-]}
<MI 20e90 MOVEA.L (A7)+,A4> Δ+4 {[-8-]|[«26""»]}
<POP 20e92-20e96 StackAdj> Δ+26 {[-8-]}
<POP 20e96-20eb0 Naked> Σ-8 ↓ →0x20d82 ←0x20e14
<MI 20e96 MOVE.L A4,-(A7)> Δ-4 {[-8-]|[4, 'A4']}
<MI 20e98 PEA.L (A0+D0.W+#0x5d)> Δ-4 {[-8-]|[4, 'A4']|[4, '^(A0+D0.W+#0x5d)']}
<Pointer.fp 0x20e9c <LVAR -0x002 @ 1(r)>> Δ-4 {[-8-]|[4, 'A4']|[4, '^(A0+D0.W+#0x5d)']|[@@-2]}
<Call 0x20ea0 0x1058c> {[-8-]|[4, 'A4']|[4, '^(A0+D0.W+#0x5d)']|[@@-2]}
FSCALL_1058c
<POP 20ea6-20ea8 StackAdj> Δ+12 {[-8-]}
<MI 20ea8 TST.B (A6-0x2)> {[-8-]}
<MI 20eac BEQ 0x20d82> {[-8-]}
<POP 20eb0-20eb8 Naked> Σ-8 Δ+6 ↓ →0x20cea ←0x20d7a
<POP 20eb0-20eb2 StackAdj> Δ+6 {[-2-]}
<MI 20eb2 ADDQ.B #0x1,D7> {[-2-]}
<MI 20eb4 BVC 0x20cea> {[-2-]}
<POP 20eb8-20eba Naked> Σ-2 Δ+2 ↓ ←0x20cea
<POP 20eb8-20eba StackAdj> Δ+2 {}
<POP 20eba-20ec2 Epilogue> Σ0
@ 20ec2
<POP 20ec2-20ee8 Body>
<POP 20ec2-20ed4 Prologue> Σ0 ↓
<POP 20ed4-20ee4 Naked> Σ0 ↓
<Call 0x20ed4 0x208ce> {}
<Call 0x20ed8 0x209f2> {}
<Call 0x20edc 0x20b58> {}
<Call 0x20ee0 0x20ca8> {}
<POP 20ee4-20ee8 Epilogue> Σ0
@ 20ee8
<LVAR 0x008 4(r)>
<POP 20ee8-20f44 Body>
<POP 20ee8-20efe Prologue> Σ0 ↓
<POP 20efe-20f3c Naked> Σ0 ↓
<MI 20efe MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Const 0x20f02 0x214e8.4> Δ-4 {[4, '(A6+0x8)']|[##136424]}
<Call 0x20f08 0x10574> {[4, '(A6+0x8)']|[##136424]}
Write_ConfigFile(name: String; dst: Pointer)
<POP 20f0e-20f10 StackAdj> Δ+8 {}
<Blob 0x20f10 [20] @> Δ-20 {[«20""»]}
<POP 20f1c-20f1e StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x20f1e 20> {[«20""»]|[$$Configuration saved.]}
<Call 0x20f32 0x103e0> {[«20""»]|[$$Configuration saved.]}
WriteConsoleStringCrLf(str : String)
<POP 20f38-20f3c StackAdj> Δ+24 {}
<POP 20f3c-20f44 Epilogue> Σ0
@ 20f44
<LVAR -0x004 @ 1(rw)>
<LVAR -0x008 @ 4(rw)>
<LVAR -0x00c @ 4(rw)>
<POP 20f44-21250 Body> Δ+4
<POP 20f44-20f5a Prologue> Σ0 ↓
<POP 20f5a-20f76 RegCacheLoad> Σ0 ↓
<POP 20f76-20f82 Naked> Σ0 ↓ →0x2104e
<MI 20f76 MOVEA.L 0x2167a,A0> {}
<MI 20f7c TST.W (A0)> {}
<MI 20f7e BLE 0x2104e> {}
<POP 20f82-20fce Naked> Σ0 Δ-12 ↓ →0x20ff8
<POP 20f82-20f84 StackAdj> Δ-4 {[-4-]}
<Blob 0x20f84 [4] 0x2167a> Δ-4 {[-4-]|[«4»]}
<Call 0x20f8a 0x102f0> {[-4-]|[«4»]}
ToUpper(a : String) : String
<POP 20f90-20f92 StackAdj> Δ+4 {[-4-]}
<MI 20f92 MOVEA.L (A7)+,A0> Δ+4 {}
<MI 20f94 MOVE.L A0,(A6-0xc)> {}
<POP 20f96-20f98 StackAdj> Δ-4 {[-4-]}
<MI 20f98 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<Call 0x20f9a 0x102cc> {[-4-]|[4, 'A0']}
StringDup(a : String) : String
<POP 20fa0-20fa2 StackAdj> Δ+4 {[-4-]}
<MI 20fa2 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<Blob 0x20fa4 [4] @> Δ-4 {[«4""»]}
<Blob 0x20fa8 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20fac [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 20fb0-20fb2 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 20fb2 MOVE.L A0,-(A7)> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']}
<POP 20fb4-20fb6 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[-4-]}
<Lit 0x20fb6 12> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[$$.M200_CONFIG]}
<Call 0x20fc2 0x10300> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[$$.M200_CONFIG]}
FSCALL_10300
<POP 20fc8-20fca StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 20fca TST.L (A7)+> Δ+4 {[«4""»]|[«4""»]|[«4""»]}
<MI 20fcc BNE 0x20ff8> {[«4""»]|[«4""»]|[«4""»]}
<POP 20fce-20ff8 Naked> Σ-12 ↓
<Blob 0x20fce [4] @> Δ-4 {[-12-]|[«4""»]}
<Blob 0x20fd2 [4] @> Δ-4 {[-12-]|[«4""»]|[«4""»]}
<Blob 0x20fd6 [4] @> Δ-4 {[-12-]|[«4""»]|[«4""»]|[«4""»]}
<POP 20fda-20fdc StackAdj> Δ-4 {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 20fdc MOVE.L A0,-(A7)> Δ-4 {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']}
<POP 20fde-20fe0 StackAdj> Δ-4 {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[-4-]}
<Lit 0x20fe0 12> {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[$$.M200_CONFIG]}
<Call 0x20fec 0x102d0> {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[$$.M200_CONFIG]}
StringCat2(a, b : String) : String
<POP 20ff2-20ff4 StackAdj> Δ+8 {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 20ff4 MOVE.L (A7)+,(A6-0xc)> Δ+4 {[-12-]|[«4""»]|[«4""»]|[«4""»]}
<POP 20ff6-20ff8 StackAdj> Δ+12 {[-12-]}
<POP 20ff8-21018 Naked> Σ-12 Δ+12 ↓ →0x2104a ←0x20f82
<POP 20ff8-20ffa StackAdj> Δ+8 {[-4-]}
<MI 20ffa MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<Const 0x20ffc 0x3.4> Δ-4 {[4, '(A6-0xc)']|[##3]}
<Const 0x21000 0x214e8.4> Δ-4 {[4, '(A6-0xc)']|[##3]|[##136424]}
<Pointer.fp 0x21006 <LVAR -0x004 @ 1(rw)>> Δ-4 {[4, '(A6-0xc)']|[##3]|[##136424]|[@@-4]}
<Call 0x2100a 0x1056e> {[4, '(A6-0xc)']|[##3]|[##136424]|[@@-4]}
Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
<POP 21010-21012 StackAdj> Δ+16 {}
<MI 21012 TST.B (A6-0x4)> {}
<MI 21016 BNE 0x2104a> {}
<POP 21018-2104a Naked> Σ0 ↓
<Blob 0x21018 [26] @> Δ-26 {[«26""»]}
<POP 21024-21026 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x21026 26> {[«26""»]|[$$creating new Configuration]}
<Call 0x21034 0x103e0> {[«26""»]|[$$creating new Configuration]}
WriteConsoleStringCrLf(str : String)
<POP 2103a-2103e StackAdj> Δ+30 {}
<Const 0x2103e 0x214e8.4> Δ-4 {[##136424]}
<Call 0x21044 0x20654> {[##136424]}
<POP 21048-2104a StackAdj> Δ+4 {}
<POP 2104a-2104e Naked> Σ0 →0x211a2 ←0x20ff8
<MI 2104a BRA 0x211a2> {}
<POP 2104e-210ca Naked> Σ0 Δ-56 ↓ →0x210f4 ←0x20f76 ←0x2119a
<Blob 0x2104e [36] @> Δ-36 {[«36""»]}
<Blob 0x2105e [4] @> Δ-4 {[«36""»]|[«4""»]}
<Blob 0x21062 [4] @> Δ-4 {[«36""»]|[«4""»]|[«4""»]}
<POP 21066-21068 StackAdj> Δ-12 {[«36""»]|[«4""»]|[«4""»]|[-12-]}
<Lit 0x21068 35> {[«36""»]|[«4""»]|[«4""»]|[-8-]|[$$Enter name of configuration to edit]}
<POP 21072-21074 StackAdj> Δ-4 {[«36""»]|[«4""»]|[«4""»]|[-8-]|[$$Enter name of configuration to edit]|[-4-]}
<Lit 0x21074 8> {[«36""»]|[«4""»]|[«4""»]|[-8-]|[$$Enter name of configuration to edit]|[$$STANDARD]}
<Call 0x21080 0x205a4> {[«36""»]|[«4""»]|[«4""»]|[-8-]|[$$Enter name of configuration to edit]|[$$STANDARD]}
<POP 21084-21086 StackAdj> Δ+8 {[«36""»]|[«4""»]|[«4""»]|[-8-]}
<Call 0x21086 0x102f0> {[«36""»]|[«4""»]|[«4""»]|[-8-]}
ToUpper(a : String) : String
<POP 2108c-2108e StackAdj> Δ+4 {[«36""»]|[«4""»]|[«4""»]|[-4-]}
<MI 2108e MOVEA.L (A7)+,A0> Δ+4 {[«36""»]|[«4""»]|[«4""»]}
<MI 21090 MOVE.L A0,(A6-0xc)> {[«36""»]|[«4""»]|[«4""»]}
<POP 21092-21094 StackAdj> Δ-4 {[«36""»]|[«4""»]|[«4""»]|[-4-]}
<MI 21094 MOVE.L A0,-(A7)> Δ-4 {[«36""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']}
<Call 0x21096 0x102cc> {[«36""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']}
StringDup(a : String) : String
<POP 2109c-2109e StackAdj> Δ+4 {[«36""»]|[«4""»]|[«4""»]|[-4-]}
<MI 2109e MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«36""»]|[«4""»]|[«4""»]}
<Blob 0x210a0 [4] @> Δ-4 {[«36""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x210a4 [4] @> Δ-4 {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x210a8 [4] @> Δ-4 {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 210ac-210ae StackAdj> Δ-4 {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 210ae MOVE.L A0,-(A7)> Δ-4 {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']}
<POP 210b0-210b2 StackAdj> Δ-4 {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[-4-]}
<Lit 0x210b2 12> {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[$$.M200_CONFIG]}
<Call 0x210be 0x10300> {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[$$.M200_CONFIG]}
FSCALL_10300
<POP 210c4-210c6 StackAdj> Δ+8 {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 210c6 TST.L (A7)+> Δ+4 {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<MI 210c8 BNE 0x210f4> {[«36""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 210ca-210f4 Naked> Σ-56 ↓
<Blob 0x210ca [4] @> Δ-4 {[-56-]|[«4""»]}
<Blob 0x210ce [4] @> Δ-4 {[-56-]|[«4""»]|[«4""»]}
<Blob 0x210d2 [4] @> Δ-4 {[-56-]|[«4""»]|[«4""»]|[«4""»]}
<POP 210d6-210d8 StackAdj> Δ-4 {[-56-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 210d8 MOVE.L A0,-(A7)> Δ-4 {[-56-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']}
<POP 210da-210dc StackAdj> Δ-4 {[-56-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[-4-]}
<Lit 0x210dc 12> {[-56-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[$$.M200_CONFIG]}
<Call 0x210e8 0x102d0> {[-56-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'A0']|[$$.M200_CONFIG]}
StringCat2(a, b : String) : String
<POP 210ee-210f0 StackAdj> Δ+8 {[-56-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 210f0 MOVE.L (A7)+,(A6-0xc)> Δ+4 {[-56-]|[«4""»]|[«4""»]|[«4""»]}
<POP 210f2-210f4 StackAdj> Δ+12 {[-56-]}
<POP 210f4-21116 Naked> Σ-56 Δ+56 ↓ →0x2114a ←0x2104e
<POP 210f4-210f8 StackAdj> Δ+52 {[-4-]}
<MI 210f8 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<Const 0x210fa 0x3.4> Δ-4 {[4, '(A6-0xc)']|[##3]}
<Const 0x210fe 0x214e8.4> Δ-4 {[4, '(A6-0xc)']|[##3]|[##136424]}
<Pointer.fp 0x21104 <LVAR -0x004 @ 1(rw)>> Δ-4 {[4, '(A6-0xc)']|[##3]|[##136424]|[@@-4]}
<Call 0x21108 0x1056e> {[4, '(A6-0xc)']|[##3]|[##136424]|[@@-4]}
Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
<POP 2110e-21110 StackAdj> Δ+16 {}
<MI 21110 TST.B (A6-0x4)> {}
<MI 21114 BEQ 0x2114a> {}
<POP 21116-2114a Naked> Σ0 →0x2119a
<Blob 0x21116 [36] @> Δ-36 {[«36""»]}
<POP 21126-21128 StackAdj> Δ-12 {[«36""»]|[-12-]}
<Lit 0x21128 35> {[«36""»]|[-8-]|[$$Enter name of configuration to save]}
<POP 21132-21134 StackAdj> Δ-4 {[«36""»]|[-8-]|[$$Enter name of configuration to save]|[-4-]}
<MI 21134 MOVE.L (A6-0x8),(A7)> {[«36""»]|[-8-]|[$$Enter name of configuration to save]|[4, '(A6-0x8)']}
<Call 0x21136 0x205a4> {[«36""»]|[-8-]|[$$Enter name of configuration to save]|[4, '(A6-0x8)']}
<POP 2113a-2113c StackAdj> Δ+8 {[«36""»]|[-8-]}
<Call 0x2113c 0x102f0> {[«36""»]|[-8-]}
ToUpper(a : String) : String
<POP 21142-21144 StackAdj> Δ+4 {[«36""»]|[-4-]}
<MI 21144 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«36""»]}
<POP 21146-21148 StackAdj> Δ+36 {}
<MI 21148 BRA 0x2119a> {}
<POP 2114a-21184 Naked> Σ0 ↓ →0x21190 ←0x210f4
<Blob 0x2114a [40] @> Δ-40 {[«40""»]}
<POP 2115a-2115c StackAdj> Δ-6 {[«40""»]|[-6-]}
<Lit 0x2115c 39> {[«40""»]|[-2-]|[$$Configuration does not exist, create it]}
<POP 21168-2116a StackAdj> Δ-2 {[«40""»]|[-2-]|[$$Configuration does not exist, create it]|[-2-]}
<POP 2116a-2116b StackAdj> Δ+2 {[«40""»]|[-2-]|[$$Configuration does not exist, create it]}
<Const 0x2116b 0x1.2> Δ-2 {[«40""»]|[-2-]|[$$Configuration does not exist, create it]|[#1]}
<Call 0x2116c 0x103f0> {[«40""»]|[-2-]|[$$Configuration does not exist, create it]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 21172-21174 StackAdj> Δ+6 {[«40""»]|[-2-]}
<MI 21174 MOVE.B (A7)+,D0> Δ+2 {[«40""»]}
<MI 21176 EXTB.W D0> {[«40""»]}
<POP 0x21178 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«40""»]}
<POP 2117a-2117c StackAdj> Δ+40 {}
<MI 2117c MOVE.B D0,(A6-0x4)> {}
<MI 21180 TST.B D0> {}
<MI 21182 BEQ 0x21190> {}
<POP 21184-21190 Naked> Σ0 Δ-4 →0x21198
<Const 0x21184 0x214e8.4> Δ-4 {[##136424]}
<Call 0x2118a 0x20654> {[##136424]}
<MI 2118e BRA 0x21198> {[##136424]}
<POP 21190-21198 Naked> Σ0 Δ-4 ↓ ←0x2114a
<Pointer.fp 0x21190 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x21192 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 21198-2119a Naked> Σ-4 Δ+4 ↓ ←0x21184
<POP 21198-2119a StackAdj> Δ+4 {}
<POP 2119a-211a2 Naked> Σ0 ↓ →0x2104e ←0x21116
<MI 2119a TST.B (A6-0x4)> {}
<MI 2119e BEQ 0x2104e> {}
<POP 211a2-211fc Naked> Σ0 Δ-12 ↓ →0x21226 ←0x2104a
<Blob 0x211a2 [4] @> Δ-4 {[«4""»]}
<Blob 0x211a6 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 211aa-211ac StackAdj> Δ-2 {[«4""»]|[«4""»]|[-2-]}
<MI 211ac MOVE.L (A6-0x8),-(A7)> Δ-4 {[«4""»]|[«4""»]|[-2-]|[4, '(A6-0x8)']}
<POP 211ae-211b0 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-2-]|[4, '(A6-0x8)']|[-4-]}
<Lit 0x211b0 8> {[«4""»]|[«4""»]|[-2-]|[4, '(A6-0x8)']|[$$STANDARD]}
<Call 0x211bc 0x102c8> {[«4""»]|[«4""»]|[-2-]|[4, '(A6-0x8)']|[$$STANDARD]}
StringEqual(a, b : String) : Byte
<POP 211c2-211c4 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-2-]}
<MI 211c4 MOVE.B (A7)+,D0> Δ+2 {[«4""»]|[«4""»]}
<MI 211c6 EXTB.W D0> {[«4""»]|[«4""»]}
<POP 0x211c8 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«4""»]|[«4""»]}
<POP 211ca-211cc StackAdj> Δ+8 {}
<MI 211cc MOVE.B D0,0x214e6> {}
<Blob 0x211d2 [4] @> Δ-4 {[«4""»]}
<Blob 0x211d6 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x211da [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 211de-211e0 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 211e0 MOVE.L (A6-0x8),-(A7)> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']}
<POP 211e2-211e4 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[-4-]}
<Lit 0x211e4 12> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[$$.M200_CONFIG]}
<Call 0x211f0 0x10300> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[$$.M200_CONFIG]}
FSCALL_10300
<POP 211f6-211f8 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 211f8 TST.L (A7)+> Δ+4 {[«4""»]|[«4""»]|[«4""»]}
<MI 211fa BNE 0x21226> {[«4""»]|[«4""»]|[«4""»]}
<POP 211fc-21226 Naked> Σ-12 ↓
<Blob 0x211fc [4] @> Δ-4 {[-12-]|[«4""»]}
<Blob 0x21200 [4] @> Δ-4 {[-12-]|[«4""»]|[«4""»]}
<Blob 0x21204 [4] @> Δ-4 {[-12-]|[«4""»]|[«4""»]|[«4""»]}
<POP 21208-2120a StackAdj> Δ-4 {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 2120a MOVE.L (A6-0x8),-(A7)> Δ-4 {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']}
<POP 2120c-2120e StackAdj> Δ-4 {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[-4-]}
<Lit 0x2120e 12> {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[$$.M200_CONFIG]}
<Call 0x2121a 0x102d0> {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6-0x8)']|[$$.M200_CONFIG]}
StringCat2(a, b : String) : String
<POP 21220-21222 StackAdj> Δ+8 {[-12-]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 21222 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[-12-]|[«4""»]|[«4""»]|[«4""»]}
<POP 21224-21226 StackAdj> Δ+12 {[-12-]}
<POP 21226-21248 Naked> Σ-12 Δ+12 ↓ ←0x211a2
<POP 21226-21228 StackAdj> Δ+12 {}
<Call 0x21228 0x20ec2> {}
<MI 2122c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x2122e 0x20ee8> {[4, '(A6-0x8)']}
<POP 21232-21234 StackAdj> Δ+4 {}
<Pointer.fp 0x21234 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x21236 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 2123c-2123e StackAdj> Δ+4 {}
<Pointer.fp 0x2123e <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x21240 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 21246-21248 StackAdj> Δ+4 {}
<POP 21248-21250 Epilogue> Σ0
@ 21250
START
<POP 21250--0001 Body>
<POP 21250-2125a Prologue> Σ0
<POP 2125a-21262 RegCacheLoad> Σ0 ↓
<POP 21262-21278 Naked> Σ0 ↓ →0x212c0
<Call 0x21262 0x10398> {}
FSCALL_10398
<POP 21268-2126a StackAdj> Δ-4 {[-4-]}
<Call 0x2126a 0x103c4> {[-4-]}
GetArgv() : String
<MI 21270 MOVE.L (A7)+,0x2167a> Δ+4 {}
<MI 21272 MOVEA.L 0x2167a,A0> {}
<MI 21274 TST.W (A0)> {}
<MI 21276 BNE 0x212c0> {}
<POP 21278-212ac Naked> Σ0 Δ-30 ↓ →0x212be
<Blob 0x21278 [30] @> Δ-30 {[«30""»]}
<POP 21288-2128a StackAdj> Δ-6 {[«30""»]|[-6-]}
<Lit 0x2128a 29> {[«30""»]|[-2-]|[$$Change hardware configuration]}
<POP 2129c-2129e StackAdj> Δ-2 {[«30""»]|[-2-]|[$$Change hardware configuration]|[-2-]}
<MI 2129e CLR.B (A7)> {[«30""»]|[-2-]|[$$Change hardware configuration]|[-2-]}
<Call 0x212a0 0x103f0> {[«30""»]|[-2-]|[$$Change hardware configuration]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 212a6-212a8 StackAdj> Δ+6 {[«30""»]|[-2-]}
<MI 212a8 TST.B (A7)+> Δ+2 {[«30""»]}
<MI 212aa BEQ 0x212be> {[«30""»]}
<POP 212ac-212be Naked> Σ-30 ↓
<Call 0x212ac 0x206e8> {[-30-]}
<MI 212b0 CLR.B -(A7)> Δ-2 {[-30-]|[#0]}
<Const 0x212b2 0x1.4> Δ-4 {[-30-]|[#0]|[##1]}
<Call 0x212b6 0x103b8> {[-30-]|[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 212bc-212be StackAdj> Δ+6 {[-30-]}
<POP 212be-212c0 Naked> Σ-30 Δ+30 ↓ ←0x21278
<POP 212be-212c0 StackAdj> Δ+30 {}
<POP 212c0-212d2 Naked> Σ0 ↓ ←0x21262
<Call 0x212c0 0x20f44> {}
<MI 212c4 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x212c6 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x212ca 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 212d0-212d2 StackAdj> Δ+6 {}
<POP 212d2-212d8 Naked> Σ0
<Call 0x212d2 0x10284> {}
?exit
@ 212e6
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 212e6-2134e Body>
<POP 212e6-212fc Prologue> Σ0 ↓
<POP 212fc-21346 Naked> Σ0 ↓
<Blob 0x212fc [14] @> Δ-14 {[«14""»]}
<Const 0x21308 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 2130c-2130e StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x2130e 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 21320-21322 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21322 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21326 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21328 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2132a MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x2132c 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21332-21334 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x21334 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2133a-2133c StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x2133c 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 21342-21346 StackAdj> Δ+20 {}
<POP 21346-2134e Epilogue> Σ0
@ 213a2
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 213a2-214de Body>
<POP 213a2-213b8 Prologue> Σ0 ↓
<POP 213b8-213ce RegCacheLoad> Σ0 ↓
<POP 213ce-2142e Naked> Σ0 ↓ →0x21476
<Call 0x213ce 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x213d4 [18] @> Δ-18 {[«18""»]}
<POP 213e0-213e2 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x213e2 18> {[«18""»]|[$$Experiment error :]}
<Call 0x213ee 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 213f0-213f1 StackAdj> Δ+22 ↓ {}
<Blob 0x213f1 [14] @> Δ-14 {[«14""»]}
<POP 21400-21402 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21402 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 2140c-2140e StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 2140e MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x21412 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 21418-2141a StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x2141a 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21420-21422 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21422 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21424-21426 StackAdj> Δ+18 {}
<MI 21426 MOVEA.L (A6+0xa),A0> {}
<MI 2142a CMPA.W #0x01,A0> {}
<MI 2142c BEQ 0x21476> {}
<POP 2142e-21476 Naked> Σ0 ↓
<Blob 0x2142e [14] @> Δ-14 {[«14""»]}
<Blob 0x2143e [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 2144e-21450 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x21450 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 2145a-2145c StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x2145c> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x2145c 12> Δ-4
<Const 0x21460 0x1.2> Δ-2
<Const 0x21462 0x1e.2> Δ-2
<Call 0x21464 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21466-21468 StackAdj> Δ+8
<Call 0x21468 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 2146e-21470 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x21470 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21472-21476 StackAdj> Δ+48 {}
<POP 21476-214d6 Naked> Σ0 ↓ ←0x213ce
<Blob 0x21476 [14] @> Δ-14 {[«14""»]}
<POP 21486-21488 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21488 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 21492-21494 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 21494 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x21498 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 2149e-214a0 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x214a0 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 214a6-214a8 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x214a8 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 214aa-214ab StackAdj> Δ+18 ↓ {}
<Blob 0x214ab [24] @> Δ-24 {[«24""»]}
<Const 0x214ba 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 214be-214c0 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x214c0 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x214ce 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 214d4-214d6 StackAdj> Δ+30 {}
<POP 214d6-214de Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; import ident.d94867300bda0973 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 12 50 | P | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 16 8e | | .PTR 0x2168e 00020010 code.end: 00020010 00 02 14 de | | .PTR 0x214de 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 12 e6 | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 13 a2 | | .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 43 45 |@(#)CE | .XXX[0x6] 00020110 44 49 54 2c 32 2e 31 2c |DIT,2.1,| .XXX[0x18] 00020118 39 30 2f 31 32 2f 30 33 |90/12/03| 00020120 2c 31 37 3a 31 38 3a 31 |,17:18:1| 00020128 39 5c |9\ | .XXX[0x2] 0002012a 2e 4d 32 30 |.M20 | .TXT '.M20' 0002012e 30 5f 43 4f |0_CO | .TXT '0_CO' 00020132 4e 46 49 47 |NFIG | .TXT 'NFIG' 00020136 20 5b | [ | .TXT ' [' 00020138 5d 20 3a 5f |] :_ | .TXT '] :_' 0002013c 43 55 52 52 |CURR | .XXX[0x4] 00020140 45 4e 54 20 20 20 20 20 |ENT | .XXX[0x8] 00020148 20 20 20 20 20 20 20 20 | | .BLANK 20[0x30] 00020178 44 6f 65 73 20 74 68 69 |Does thi| .TXT 'Does this processor have 32 MB memory boards' 000201a4 t_Is_this_a_multi_processor_: 000201a4 49 73 20 74 68 69 73 20 |Is this | .TXT 'Is this a multi-processor ' 000201be 4e 4f 54 45 3a 20 33 32 |NOTE: 32| .TXT 'NOTE: 32 MB boards must be installed as MEM 0 or MEM 2 only.' 000201fa 20 20 20 20 20 20 38 20 | 8 | .TXT ' 8 MB boards cannot be in the same CPU as 32 MB boards.' 00020236 44 6f 65 73 20 6d 65 6d |Does mem| .TXT 'Does memory board 0 exist ' 00020250 44 6f 65 73 20 6d 65 6d |Does mem| .TXT 'Does memory board 2 exist ' 0002026a 44 6f 65 73 20 6d 65 6d |Does mem| .TXT 'Does memory board_' 0002027c 20 65 | e | .TXT ' e' 0002027e 78 69 |xi | .TXT 'xi' 00020280 73 74 |st | .TXT 'st' 00020282 41 6c 6c 6f 77 20 6f 70 |Allow op| .TXT 'Allow operator to enter CLI immediately ' 000202aa 41 6c 6c 6f 77 20 65 64 |Allow ed| .TXT 'Allow editing of configuration' 000202c8 41 6c 6c 6f 77 20 6f 70 |Allow op| .TXT 'Allow operator to enter CLI prior to starting the cluster ' 00020302 4c 6f 61 64 20 6b 65 72 |Load ker| .TXT 'Load kernel layer subsystems only ' 00020324 41 75 74 6f 20 62 6f 6f |Auto boo| .TXT 'Auto boot the kernel debugger ' 00020342 57 61 69 74 20 66 6f 72 |Wait for| .TXT 'Wait for remote debugging on kernel crashes ' 0002036e 43 61 6c 6c 20 52 61 74 |Call Rat| .TXT 'Call Rational on kernel crash ' 0002038c 41 75 74 6f 20 62 6f 6f |Auto boo| .TXT 'Auto boot the environment elaborator' 000203b0 41 75 74 6f 20 62 6f 6f |Auto boo| .TXT 'Auto boot the kernel' 000203c4 54 61 6b 65 20 6d 69 63 |Take mic| .TXT 'Take microcode from standard configuration' 000203ee 53 68 6f 75 6c 64 20 74 |Should t| .TXT 'Should this configuration query for microcode when booting' 00020428 45 6e 74 65 72 20 64 65 |Enter de| .TXT 'Enter default microcode name' 00020444 45 6e 74 65 72 20 6d 69 |Enter mi| .TXT 'Enter microcode name' 00020458 20 66 72 6f 6d 20 73 74 | from st| .TXT ' from standard configuration' 00020474 53 68 6f 75 6c 64 20 74 |Should t| .TXT 'Should this configuration query for_' 00020498 45 6e 74 65 72 20 64 65 |Enter de| .TXT 'Enter default subsystem name for_ ' 000204ba 45 6e 74 65 72 20 73 75 |Enter su| .TXT 'Enter subsystem name for_ ' 000204d4 54 61 6b 65 5f 20 |Take_ | .TXT 'Take_ ' 000204da 43 6f 6e 66 69 67 75 72 |Configur| .TXT 'Configuration saved.' 000204ee 45 6e 74 65 72 20 6e 61 |Enter na| .TXT 'Enter name of configuration to edit ' 00020512 45 6e 74 65 72 20 6e 61 |Enter na| .TXT 'Enter name of configuration to save ' 00020536 43 6f 6e 66 69 67 75 72 |Configur| .TXT 'Configuration does not exist, create it ' 0002055e 53 54 41 4e |STAN | .TXT 'STAN' 00020562 44 41 52 44 |DARD | .TXT 'DARD' 00020566 63 72 65 61 74 69 6e 67 |creating| .TXT 'creating new Configuration' 00020580 43 68 61 6e 67 65 20 68 |Change h| .TXT 'Change hardware configuration ' 0002059e proto_hw_config: 0002059e 00 00 01 00 01 00 | | .CONST 0x0,0x0,0x1,0x0,0x1,0x0 000205a4 ; -------------------------------------------------------------------------------------- 000205a4 ; OMSI PASCAL Function 000205a4 ; <LVAR 0x010 4(w)> 000205a4 ; <LVAR 0x00c 4(rw)> 000205a4 ; <LVAR 0x008 @ 4(r)> 000205a4 ; <LVAR -0x004 @ 4(rw)> 000205a4 ; -------------------------------------------------------------------------------------- 000205a4 4e 56 ff c2 |NV | LINK.W A6,#0xffc2 000205a8 bf d5 | | CMPA.L (A5),A7 000205aa 62 06 |b | BHI 0x205b2 000205ac 44 fc 00 02 |D | MOVE.W #0x2,CCR 000205b0 4e 76 |Nv | TRAPV 000205b2 de fc 00 3a | : | ADDA.W #0x3a,A7 000205b6 48 e7 80 f0 |H | MOVEM.L A3+A2+A1+A0+D0,-(A7) 000205ba 43 ee 00 08 |C | LEA.L (A6+0x8),A1 000205be 45 ee ff fc |E | LEA.L (A6-0x4),A2 000205c2 47 ee 00 0c |G | LEA.L (A6+0xc),A3 000205c6 70 01 |p | MOVEQ.L #0x01,D0 000205c8 20 51 | Q | MOVEA.L (A1),A0 000205ca b0 c0 | | CMPA.W D0,A0 000205cc 66 0a |f | BNE 0x205d8 000205ce 48 51 |HQ | PEA.L (A1) 000205d0 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000205d6 58 4f |XO | ADDQ.L #0x4,A7 000205d8 3f 3a fb 5c |?: \ | MOVE.W 0x20136,-(A7) 000205dc 2f 3a fb 5a |/: Z | MOVE.L 0x20138,-(A7) 000205e0 59 4f |YO | SUBQ.L #0x4,A7 000205e2 2f 13 |/ | MOVE.L (A3),-(A7) 000205e4 59 4f |YO | SUBQ.L #0x4,A7 000205e6 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000205ea 3f 00 |? | MOVE.W D0,-(A7) 000205ec 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000205f0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000205f6 2e 91 |. | MOVE.L (A1),(A7) 000205f8 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000205fe 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00020602 3f 00 |? | MOVE.W D0,-(A7) 00020604 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020608 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002060e 50 4f |PO | ADDQ.L #0x8,A7 00020610 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 00020616 de fc 00 10 | | ADDA.W #0x10,A7 0002061a 26 9f |& | MOVE.L (A7)+,(A3) 0002061c 54 4f |TO | ADDQ.L #0x2,A7 0002061e 2f 13 |/ | MOVE.L (A3),-(A7) 00020620 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00020626 58 4f |XO | ADDQ.L #0x4,A7 00020628 24 9f |$ | MOVE.L (A7)+,(A2) 0002062a 20 52 | R | MOVEA.L (A2),A0 0002062c 4a 50 |JP | TST.W (A0) 0002062e 67 0c |g | BEQ 0x2063c 00020630 48 51 |HQ | PEA.L (A1) 00020632 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020638 58 4f |XO | ADDQ.L #0x4,A7 0002063a 60 0c |` | BRA 0x20648 0002063c 48 52 |HR | PEA.L (A2) 0002063e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020644 58 4f |XO | ADDQ.L #0x4,A7 00020646 24 91 |$ | MOVE.L (A1),(A2) 00020648 2d 52 00 10 |-R | MOVE.L (A2),(A6+0x10) 0002064c 4c df 0f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3 00020650 4e 5e |N^ | UNLK A6 00020652 4e 75 |Nu | RTS 00020654 ; -------------------------------------------------------------------------------------- 00020654 ; OMSI PASCAL Function 00020654 ; <LVAR 0x008 4(r)> 00020654 ; -------------------------------------------------------------------------------------- 00020654 4e 56 ff ce |NV | LINK.W A6,#0xffce 00020658 bf d5 | | CMPA.L (A5),A7 0002065a 62 06 |b | BHI 0x20662 0002065c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020660 4e 76 |Nv | TRAPV 00020662 de fc 00 22 | " | ADDA.W #0x22,A7 00020666 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 0002066a 72 01 |r | MOVEQ.L #0x01,D1 0002066c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020670 42 28 00 05 |B( | CLR.B (A0+0x5) 00020674 42 28 00 04 |B( | CLR.B (A0+0x4) 00020678 42 28 00 03 |B( | CLR.B (A0+0x3) 0002067c 42 28 00 02 |B( | CLR.B (A0+0x2) 00020680 11 41 00 2a | A * | MOVE.B D1,(A0+0x2a) 00020684 42 28 00 2b |B( + | CLR.B (A0+0x2b) 00020688 42 28 00 2c |B( , | CLR.B (A0+0x2c) 0002068c 42 28 00 2d |B( - | CLR.B (A0+0x2d) 00020690 42 28 00 2e |B( . | CLR.B (A0+0x2e) 00020694 11 41 00 2f | A / | MOVE.B D1,(A0+0x2f) 00020698 11 41 00 30 | A 0 | MOVE.B D1,(A0+0x30) 0002069c 11 41 00 31 | A 1 | MOVE.B D1,(A0+0x31) 000206a0 42 28 00 32 |B( 2 | CLR.B (A0+0x32) 000206a4 41 e8 00 33 |A 3 | LEA.L (A0+0x33),A0 000206a8 43 fa fa 92 |C | LEA.L 0x2013c,A1 000206ac 70 1d |p | MOVEQ.L #0x1d,D0 000206ae 10 d9 | | MOVE.B (A1)+,(A0)+ 000206b0 51 c8 ff fc |Q | DBF D0,0x206ae 000206b4 7e 00 |~ | MOVEQ.L #0x00,D7 000206b6 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000206ba 10 07 | | MOVE.B D7,D0 000206bc 48 80 |H | EXTB.W D0 000206be eb 40 | @ | ASL.W #0x5,D0 000206c0 11 81 00 51 | Q | MOVE.B D1,(A0+D0.W+#0x51) 000206c4 42 30 00 52 |B0 R | CLR.B (A0+D0.W+#0x52) 000206c8 41 f0 00 53 |A S | LEA.L (A0+D0.W+#0x53),A0 000206cc 43 fa fa 8c |C | LEA.L 0x2015a,A1 000206d0 70 1d |p | MOVEQ.L #0x1d,D0 000206d2 10 d9 | | MOVE.B (A1)+,(A0)+ 000206d4 51 c8 ff fc |Q | DBF D0,0x206d2 000206d8 52 07 |R | ADDQ.B #0x1,D7 000206da 0c 07 00 09 | | CMPI.B #0x09,D7 000206de 6f d6 |o | BLE 0x206b6 000206e0 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 000206e4 4e 5e |N^ | UNLK A6 000206e6 4e 75 |Nu | RTS 000206e8 ; -------------------------------------------------------------------------------------- 000206e8 ; OMSI PASCAL Function 000206e8 ; <LVAR -0x002 @> 000206e8 ; <LVAR -0x003 1(r)> 000206e8 ; <LVAR -0x004 1(rw) 2(w)> 000206e8 ; <LVAR -0x005 1(r)> 000206e8 ; <LVAR -0x006 1(rw) 2(w)> 000206e8 ; <LVAR -0x007 1(rw)> 000206e8 ; <LVAR -0x008 @ 1(r) 2(w)> 000206e8 ; -------------------------------------------------------------------------------------- 000206e8 4e 56 ff 44 |NV D | LINK.W A6,#0xff44 000206ec bf d5 | | CMPA.L (A5),A7 000206ee 62 06 |b | BHI 0x206f6 000206f0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000206f4 4e 76 |Nv | TRAPV 000206f6 de fc 00 ac | | ADDA.W #0xac,A7 000206fa 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000206fe 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020704 47 ee ff f8 |G | LEA.L (A6-0x8),A3 00020708 72 01 |r | MOVEQ.L #0x01,D1 0002070a 74 2c |t, | MOVEQ.L #0x2c,D2 0002070c 76 3c |v< | MOVEQ.L #0x3c,D3 0002070e 78 19 |x | MOVEQ.L #0x19,D4 00020710 7a 14 |z | MOVEQ.L #0x14,D5 00020712 7c 03 || | MOVEQ.L #0x03,D6 00020714 36 ba fe 88 |6 | MOVE.W proto_hw_config,(A3) 00020718 3d 7a fe 86 ff fa |=z | MOVE.W 0x205a0,(A6-0x6) 0002071e 3d 7a fe 82 ff fc |=z | MOVE.W 0x205a2,(A6-0x4) 00020724 48 53 |HS | PEA.L (A3) 00020726 48 6e ff fe |Hn | PEA.L (A6-0x2) 0002072a 4e b9 00 01 05 7a |N z | JSR Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool) 00020730 50 4f |PO | ADDQ.L #0x8,A7 00020732 42 13 |B | CLR.B (A3) 00020734 41 fa fa 6e |A n | LEA.L t_Is_this_a_multi_processor_,A0 00020738 70 0a |p | MOVEQ.L #0x0a,D0 0002073a 2f 20 |/ | MOVE.L -(A0),-(A7) 0002073c 51 c8 ff fc |Q | DBF D0,0x2073a 00020740 5d 4f |]O | SUBQ.L #0x6,A7 00020742 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020746 3f 01 |? | MOVE.W D1,-(A7) 00020748 3f 02 |? | MOVE.W D2,-(A7) 0002074a 4e 92 |N | JSR (A2) 0002074c 5c 4f |\O | ADDQ.L #0x6,A7 0002074e 42 17 |B | CLR.B (A7) 00020750 4a 2e ff f9 |J. | TST.B (A6-0x7) 00020754 66 02 |f | BNE 0x20758 00020756 52 17 |R | ADDQ.B #0x1,(A7) 00020758 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 0002075e 5c 4f |\O | ADDQ.L #0x6,A7 00020760 4a 1f |J | TST.B (A7)+ 00020762 67 00 00 d8 |g | BEQ 0x2083c 00020766 42 2e ff f9 |B. | CLR.B (A6-0x7) 0002076a 42 2e ff fb |B. | CLR.B (A6-0x5) 0002076e 42 2e ff fd |B. | CLR.B (A6-0x3) 00020772 41 fa fa 86 |A | LEA.L 0x201fa,A0 00020776 70 0e |p | MOVEQ.L #0x0e,D0 00020778 2f 20 |/ | MOVE.L -(A0),-(A7) 0002077a 51 c8 ff fc |Q | DBF D0,0x20778 0002077e 59 4f |YO | SUBQ.L #0x4,A7 00020780 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020784 3f 01 |? | MOVE.W D1,-(A7) 00020786 3f 03 |? | MOVE.W D3,-(A7) 00020788 4e 92 |N | JSR (A2) 0002078a 50 4f |PO | ADDQ.L #0x8,A7 0002078c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020792 de fc 00 40 | @ | ADDA.W #0x40,A7 00020796 41 fa fa 9e |A | LEA.L 0x20236,A0 0002079a 70 0e |p | MOVEQ.L #0x0e,D0 0002079c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002079e 51 c8 ff fc |Q | DBF D0,0x2079c 000207a2 59 4f |YO | SUBQ.L #0x4,A7 000207a4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000207a8 3f 01 |? | MOVE.W D1,-(A7) 000207aa 3f 03 |? | MOVE.W D3,-(A7) 000207ac 4e 92 |N | JSR (A2) 000207ae 50 4f |PO | ADDQ.L #0x8,A7 000207b0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000207b6 de fc 00 26 | & | ADDA.W #0x26,A7 000207ba 20 4f | O | MOVEA.L A7,A0 000207bc 43 fa fa 78 |C x | LEA.L 0x20236,A1 000207c0 70 18 |p | MOVEQ.L #0x18,D0 000207c2 10 d9 | | MOVE.B (A1)+,(A0)+ 000207c4 51 c8 ff fc |Q | DBF D0,0x207c2 000207c8 59 4f |YO | SUBQ.L #0x4,A7 000207ca 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000207ce 3f 01 |? | MOVE.W D1,-(A7) 000207d0 3f 04 |? | MOVE.W D4,-(A7) 000207d2 4e 92 |N | JSR (A2) 000207d4 50 4f |PO | ADDQ.L #0x8,A7 000207d6 28 5f |(_ | MOVEA.L (A7)+,A4 000207d8 de c5 | | ADDA.W D5,A7 000207da 2e 8c |. | MOVE.L A4,(A7) 000207dc 10 2e ff fa | . | MOVE.B (A6-0x6),D0 000207e0 48 80 |H | EXTB.W D0 000207e2 41 81 |A | CHK.W D1,D0 000207e4 1f 00 | | MOVE.B D0,-(A7) 000207e6 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 000207ec 5c 4f |\O | ADDQ.L #0x6,A7 000207ee 10 1f | | MOVE.B (A7)+,D0 000207f0 48 80 |H | EXTB.W D0 000207f2 41 81 |A | CHK.W D1,D0 000207f4 1d 40 ff fa | @ | MOVE.B D0,(A6-0x6) 000207f8 9e fc 00 1a | | SUBA.W #0x1a,A7 000207fc 20 4f | O | MOVEA.L A7,A0 000207fe 43 fa fa 50 |C P | LEA.L 0x20250,A1 00020802 70 18 |p | MOVEQ.L #0x18,D0 00020804 10 d9 | | MOVE.B (A1)+,(A0)+ 00020806 51 c8 ff fc |Q | DBF D0,0x20804 0002080a 59 4f |YO | SUBQ.L #0x4,A7 0002080c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020810 3f 01 |? | MOVE.W D1,-(A7) 00020812 3f 04 |? | MOVE.W D4,-(A7) 00020814 4e 92 |N | JSR (A2) 00020816 50 4f |PO | ADDQ.L #0x8,A7 00020818 28 5f |(_ | MOVEA.L (A7)+,A4 0002081a de c5 | | ADDA.W D5,A7 0002081c 2e 8c |. | MOVE.L A4,(A7) 0002081e 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00020822 48 80 |H | EXTB.W D0 00020824 41 81 |A | CHK.W D1,D0 00020826 1f 00 | | MOVE.B D0,-(A7) 00020828 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 0002082e 5c 4f |\O | ADDQ.L #0x6,A7 00020830 10 1f | | MOVE.B (A7)+,D0 00020832 48 80 |H | EXTB.W D0 00020834 41 81 |A | CHK.W D1,D0 00020836 1d 40 ff fc | @ | MOVE.B D0,(A6-0x4) 0002083a 60 7e |`~ | BRA 0x208ba 0002083c 1d 41 ff f9 | A | MOVE.B D1,(A6-0x7) 00020840 7e 00 |~ | MOVEQ.L #0x00,D7 00020842 41 fa fa 38 |A 8 | LEA.L 0x2027c,A0 00020846 70 08 |p | MOVEQ.L #0x08,D0 00020848 3f 20 |? | MOVE.W -(A0),-(A7) 0002084a 51 c8 ff fc |Q | DBF D0,0x20848 0002084e 3f 3a fa 30 |?: 0 | MOVE.W 0x20280,-(A7) 00020852 3f 3a fa 2a |?: * | MOVE.W 0x2027e,-(A7) 00020856 3f 3a fa 24 |?: $ | MOVE.W 0x2027c,-(A7) 0002085a 51 4f |QO | SUBQ.L #0x8,A7 0002085c 48 6f 00 0e |Ho | PEA.L (A7+0xe) 00020860 3f 01 |? | MOVE.W D1,-(A7) 00020862 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00020866 4e 92 |N | JSR (A2) 00020868 2e 87 |. | MOVE.L D7,(A7) 0002086a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020870 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00020874 3f 01 |? | MOVE.W D1,-(A7) 00020876 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 0002087a 4e 92 |N | JSR (A2) 0002087c 50 4f |PO | ADDQ.L #0x8,A7 0002087e 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020884 de fc 00 0c | | ADDA.W #0xc,A7 00020888 28 5f |(_ | MOVEA.L (A7)+,A4 0002088a de fc 00 18 | | ADDA.W #0x18,A7 0002088e be 86 | | CMP.L D6,D7 00020890 63 02 |c | BLS 0x20894 00020892 4e 4f |NO | TRAP #15 00020894 55 4f |UO | SUBQ.L #0x2,A7 00020896 2f 0c |/ | MOVE.L A4,-(A7) 00020898 10 36 78 fa | 6x | MOVE.B (A6+D7.L-#0x6),D0 0002089c 48 80 |H | EXTB.W D0 0002089e 41 81 |A | CHK.W D1,D0 000208a0 1f 00 | | MOVE.B D0,-(A7) 000208a2 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 000208a8 5c 4f |\O | ADDQ.L #0x6,A7 000208aa 10 1f | | MOVE.B (A7)+,D0 000208ac 48 80 |H | EXTB.W D0 000208ae 41 81 |A | CHK.W D1,D0 000208b0 1d 80 78 fa | x | MOVE.B D0,(A6+D7.L-#0x6) 000208b4 52 87 |R | ADDQ.L #0x1,D7 000208b6 be 86 | | CMP.L D6,D7 000208b8 6f 88 |o | BLE 0x20842 000208ba de c2 | | ADDA.W D2,A7 000208bc 48 53 |HS | PEA.L (A3) 000208be 4e b9 00 01 05 80 |N | JSR Write_HARDWARE.M200_CONFIG(a : Pointer) 000208c4 58 4f |XO | ADDQ.L #0x4,A7 000208c6 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000208ca 4e 5e |N^ | UNLK A6 000208cc 4e 75 |Nu | RTS 000208ce ; -------------------------------------------------------------------------------------- 000208ce ; OMSI PASCAL Function 000208ce ; -------------------------------------------------------------------------------------- 000208ce 4e 56 ff 88 |NV | LINK.W A6,#0xff88 000208d2 bf d5 | | CMPA.L (A5),A7 000208d4 62 06 |b | BHI 0x208dc 000208d6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000208da 4e 76 |Nv | TRAPV 000208dc de fc 00 78 | x | ADDA.W #0x78,A7 000208e0 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 000208e4 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000208ea 47 f9 00 01 03 f0 |G | LEA.L AskOnConsoleYesNo(prompt : String; default : Bool) : Bool,A3 000208f0 49 f9 00 02 14 ea |I | LEA.L 0x214ea,A4 000208f6 72 01 |r | MOVEQ.L #0x01,D1 000208f8 74 28 |t( | MOVEQ.L #0x28,D2 000208fa 76 1e |v | MOVEQ.L #0x1e,D3 000208fc 78 3a |x: | MOVEQ.L #0x3a,D4 000208fe 7a 22 |z" | MOVEQ.L #0x22,D5 00020900 9e c2 | | SUBA.W D2,A7 00020902 20 4f | O | MOVEA.L A7,A0 00020904 43 fa f9 7c |C | | LEA.L 0x20282,A1 00020908 70 26 |p& | MOVEQ.L #0x26,D0 0002090a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002090c 51 c8 ff fc |Q | DBF D0,0x2090a 00020910 5d 4f |]O | SUBQ.L #0x6,A7 00020912 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020916 3f 01 |? | MOVE.W D1,-(A7) 00020918 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 0002091c 4e 92 |N | JSR (A2) 0002091e 50 4f |PO | ADDQ.L #0x8,A7 00020920 10 14 | | MOVE.B (A4),D0 00020922 48 80 |H | EXTB.W D0 00020924 41 81 |A | CHK.W D1,D0 00020926 1f 00 | | MOVE.B D0,-(A7) 00020928 4e 93 |N | JSR (A3) 0002092a 5c 4f |\O | ADDQ.L #0x6,A7 0002092c 10 1f | | MOVE.B (A7)+,D0 0002092e 48 80 |H | EXTB.W D0 00020930 41 81 |A | CHK.W D1,D0 00020932 de c2 | | ADDA.W D2,A7 00020934 18 80 | | MOVE.B D0,(A4) 00020936 41 fa f9 90 |A | LEA.L 0x202c8,A0 0002093a 70 0e |p | MOVEQ.L #0x0e,D0 0002093c 3f 20 |? | MOVE.W -(A0),-(A7) 0002093e 51 c8 ff fc |Q | DBF D0,0x2093c 00020942 5d 4f |]O | SUBQ.L #0x6,A7 00020944 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020948 3f 01 |? | MOVE.W D1,-(A7) 0002094a 3f 03 |? | MOVE.W D3,-(A7) 0002094c 4e 92 |N | JSR (A2) 0002094e 50 4f |PO | ADDQ.L #0x8,A7 00020950 10 39 00 02 14 eb | 9 | MOVE.B 0x214eb,D0 00020956 48 80 |H | EXTB.W D0 00020958 41 81 |A | CHK.W D1,D0 0002095a 1f 00 | | MOVE.B D0,-(A7) 0002095c 4e 93 |N | JSR (A3) 0002095e 5c 4f |\O | ADDQ.L #0x6,A7 00020960 10 1f | | MOVE.B (A7)+,D0 00020962 48 80 |H | EXTB.W D0 00020964 41 81 |A | CHK.W D1,D0 00020966 de c3 | | ADDA.W D3,A7 00020968 13 c0 00 02 14 eb | | MOVE.B D0,0x214eb 0002096e 9e c4 | | SUBA.W D4,A7 00020970 20 4f | O | MOVEA.L A7,A0 00020972 43 fa f9 54 |C T | LEA.L 0x202c8,A1 00020976 70 38 |p8 | MOVEQ.L #0x38,D0 00020978 10 d9 | | MOVE.B (A1)+,(A0)+ 0002097a 51 c8 ff fc |Q | DBF D0,0x20978 0002097e 5d 4f |]O | SUBQ.L #0x6,A7 00020980 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020984 3f 01 |? | MOVE.W D1,-(A7) 00020986 3f 3c 00 39 |?< 9 | MOVE.W #0x39,-(A7) 0002098a 4e 92 |N | JSR (A2) 0002098c 50 4f |PO | ADDQ.L #0x8,A7 0002098e 10 39 00 02 14 ec | 9 | MOVE.B 0x214ec,D0 00020994 48 80 |H | EXTB.W D0 00020996 41 81 |A | CHK.W D1,D0 00020998 1f 00 | | MOVE.B D0,-(A7) 0002099a 4e 93 |N | JSR (A3) 0002099c 5c 4f |\O | ADDQ.L #0x6,A7 0002099e 10 1f | | MOVE.B (A7)+,D0 000209a0 48 80 |H | EXTB.W D0 000209a2 41 81 |A | CHK.W D1,D0 000209a4 de c4 | | ADDA.W D4,A7 000209a6 13 c0 00 02 14 ec | | MOVE.B D0,0x214ec 000209ac 9e c5 | | SUBA.W D5,A7 000209ae 20 4f | O | MOVEA.L A7,A0 000209b0 43 fa f9 50 |C P | LEA.L 0x20302,A1 000209b4 70 20 |p | MOVEQ.L #0x20,D0 000209b6 10 d9 | | MOVE.B (A1)+,(A0)+ 000209b8 51 c8 ff fc |Q | DBF D0,0x209b6 000209bc 5d 4f |]O | SUBQ.L #0x6,A7 000209be 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000209c2 3f 01 |? | MOVE.W D1,-(A7) 000209c4 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7) 000209c8 4e 92 |N | JSR (A2) 000209ca 50 4f |PO | ADDQ.L #0x8,A7 000209cc 10 39 00 02 14 ed | 9 | MOVE.B 0x214ed,D0 000209d2 48 80 |H | EXTB.W D0 000209d4 41 81 |A | CHK.W D1,D0 000209d6 1f 00 | | MOVE.B D0,-(A7) 000209d8 4e 93 |N | JSR (A3) 000209da 5c 4f |\O | ADDQ.L #0x6,A7 000209dc 10 1f | | MOVE.B (A7)+,D0 000209de 48 80 |H | EXTB.W D0 000209e0 41 81 |A | CHK.W D1,D0 000209e2 de c5 | | ADDA.W D5,A7 000209e4 13 c0 00 02 14 ed | | MOVE.B D0,0x214ed 000209ea 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 000209ee 4e 5e |N^ | UNLK A6 000209f0 4e 75 |Nu | RTS 000209f2 ; -------------------------------------------------------------------------------------- 000209f2 ; OMSI PASCAL Function 000209f2 ; -------------------------------------------------------------------------------------- 000209f2 4e 56 ff 92 |NV | LINK.W A6,#0xff92 000209f6 bf d5 | | CMPA.L (A5),A7 000209f8 62 06 |b | BHI 0x20a00 000209fa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000209fe 4e 76 |Nv | TRAPV 00020a00 de fc 00 6e | n | ADDA.W #0x6e,A7 00020a04 48 e7 fe f8 |H | MOVEM.L A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020a08 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020a0e 47 f9 00 01 03 f0 |G | LEA.L AskOnConsoleYesNo(prompt : String; default : Bool) : Bool,A3 00020a14 49 f9 00 02 15 12 |I | LEA.L 0x21512,A4 00020a1a 72 01 |r | MOVEQ.L #0x01,D1 00020a1c 74 1e |t | MOVEQ.L #0x1e,D2 00020a1e 76 1d |v | MOVEQ.L #0x1d,D3 00020a20 78 2c |x, | MOVEQ.L #0x2c,D4 00020a22 7a 24 |z$ | MOVEQ.L #0x24,D5 00020a24 7c 14 || | MOVEQ.L #0x14,D6 00020a26 9e c2 | | SUBA.W D2,A7 00020a28 20 4f | O | MOVEA.L A7,A0 00020a2a 43 fa f8 f8 |C | LEA.L 0x20324,A1 00020a2e 70 1c |p | MOVEQ.L #0x1c,D0 00020a30 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a32 51 c8 ff fc |Q | DBF D0,0x20a30 00020a36 5d 4f |]O | SUBQ.L #0x6,A7 00020a38 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020a3c 3f 01 |? | MOVE.W D1,-(A7) 00020a3e 3f 03 |? | MOVE.W D3,-(A7) 00020a40 4e 92 |N | JSR (A2) 00020a42 50 4f |PO | ADDQ.L #0x8,A7 00020a44 10 14 | | MOVE.B (A4),D0 00020a46 48 80 |H | EXTB.W D0 00020a48 41 81 |A | CHK.W D1,D0 00020a4a 1f 00 | | MOVE.B D0,-(A7) 00020a4c 4e 93 |N | JSR (A3) 00020a4e 5c 4f |\O | ADDQ.L #0x6,A7 00020a50 10 1f | | MOVE.B (A7)+,D0 00020a52 48 80 |H | EXTB.W D0 00020a54 41 81 |A | CHK.W D1,D0 00020a56 de c2 | | ADDA.W D2,A7 00020a58 18 80 | | MOVE.B D0,(A4) 00020a5a 9e c4 | | SUBA.W D4,A7 00020a5c 20 4f | O | MOVEA.L A7,A0 00020a5e 43 fa f8 e2 |C | LEA.L 0x20342,A1 00020a62 70 2a |p* | MOVEQ.L #0x2a,D0 00020a64 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a66 51 c8 ff fc |Q | DBF D0,0x20a64 00020a6a 5d 4f |]O | SUBQ.L #0x6,A7 00020a6c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020a70 3f 01 |? | MOVE.W D1,-(A7) 00020a72 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7) 00020a76 4e 92 |N | JSR (A2) 00020a78 50 4f |PO | ADDQ.L #0x8,A7 00020a7a 10 39 00 02 15 13 | 9 | MOVE.B 0x21513,D0 00020a80 48 80 |H | EXTB.W D0 00020a82 41 81 |A | CHK.W D1,D0 00020a84 1f 00 | | MOVE.B D0,-(A7) 00020a86 4e 93 |N | JSR (A3) 00020a88 5c 4f |\O | ADDQ.L #0x6,A7 00020a8a 10 1f | | MOVE.B (A7)+,D0 00020a8c 48 80 |H | EXTB.W D0 00020a8e 41 81 |A | CHK.W D1,D0 00020a90 de c4 | | ADDA.W D4,A7 00020a92 13 c0 00 02 15 13 | | MOVE.B D0,0x21513 00020a98 9e c2 | | SUBA.W D2,A7 00020a9a 20 4f | O | MOVEA.L A7,A0 00020a9c 43 fa f8 d0 |C | LEA.L 0x2036e,A1 00020aa0 70 1c |p | MOVEQ.L #0x1c,D0 00020aa2 10 d9 | | MOVE.B (A1)+,(A0)+ 00020aa4 51 c8 ff fc |Q | DBF D0,0x20aa2 00020aa8 5d 4f |]O | SUBQ.L #0x6,A7 00020aaa 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020aae 3f 01 |? | MOVE.W D1,-(A7) 00020ab0 3f 03 |? | MOVE.W D3,-(A7) 00020ab2 4e 92 |N | JSR (A2) 00020ab4 50 4f |PO | ADDQ.L #0x8,A7 00020ab6 10 39 00 02 15 14 | 9 | MOVE.B 0x21514,D0 00020abc 48 80 |H | EXTB.W D0 00020abe 41 81 |A | CHK.W D1,D0 00020ac0 1f 00 | | MOVE.B D0,-(A7) 00020ac2 4e 93 |N | JSR (A3) 00020ac4 5c 4f |\O | ADDQ.L #0x6,A7 00020ac6 10 1f | | MOVE.B (A7)+,D0 00020ac8 48 80 |H | EXTB.W D0 00020aca 41 81 |A | CHK.W D1,D0 00020acc de c2 | | ADDA.W D2,A7 00020ace 13 c0 00 02 15 14 | | MOVE.B D0,0x21514 00020ad4 42 39 00 02 15 15 |B9 | CLR.B 0x21515 00020ada 42 39 00 02 15 16 |B9 | CLR.B 0x21516 00020ae0 41 fa f8 ce |A | LEA.L 0x203b0,A0 00020ae4 70 08 |p | MOVEQ.L #0x08,D0 00020ae6 2f 20 |/ | MOVE.L -(A0),-(A7) 00020ae8 51 c8 ff fc |Q | DBF D0,0x20ae6 00020aec 5d 4f |]O | SUBQ.L #0x6,A7 00020aee 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020af2 3f 01 |? | MOVE.W D1,-(A7) 00020af4 3f 05 |? | MOVE.W D5,-(A7) 00020af6 4e 92 |N | JSR (A2) 00020af8 50 4f |PO | ADDQ.L #0x8,A7 00020afa 10 39 00 02 15 17 | 9 | MOVE.B 0x21517,D0 00020b00 48 80 |H | EXTB.W D0 00020b02 41 81 |A | CHK.W D1,D0 00020b04 1f 00 | | MOVE.B D0,-(A7) 00020b06 4e 93 |N | JSR (A3) 00020b08 5c 4f |\O | ADDQ.L #0x6,A7 00020b0a 10 1f | | MOVE.B (A7)+,D0 00020b0c 48 80 |H | EXTB.W D0 00020b0e 41 81 |A | CHK.W D1,D0 00020b10 de c5 | | ADDA.W D5,A7 00020b12 13 c0 00 02 15 17 | | MOVE.B D0,0x21517 00020b18 41 fa f8 aa |A | LEA.L 0x203c4,A0 00020b1c 70 04 |p | MOVEQ.L #0x04,D0 00020b1e 2f 20 |/ | MOVE.L -(A0),-(A7) 00020b20 51 c8 ff fc |Q | DBF D0,0x20b1e 00020b24 5d 4f |]O | SUBQ.L #0x6,A7 00020b26 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020b2a 3f 01 |? | MOVE.W D1,-(A7) 00020b2c 3f 06 |? | MOVE.W D6,-(A7) 00020b2e 4e 92 |N | JSR (A2) 00020b30 50 4f |PO | ADDQ.L #0x8,A7 00020b32 10 39 00 02 15 18 | 9 | MOVE.B 0x21518,D0 00020b38 48 80 |H | EXTB.W D0 00020b3a 41 81 |A | CHK.W D1,D0 00020b3c 1f 00 | | MOVE.B D0,-(A7) 00020b3e 4e 93 |N | JSR (A3) 00020b40 5c 4f |\O | ADDQ.L #0x6,A7 00020b42 10 1f | | MOVE.B (A7)+,D0 00020b44 48 80 |H | EXTB.W D0 00020b46 41 81 |A | CHK.W D1,D0 00020b48 de c6 | | ADDA.W D6,A7 00020b4a 13 c0 00 02 15 18 | | MOVE.B D0,0x21518 00020b50 4c df 1f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4 00020b54 4e 5e |N^ | UNLK A6 00020b56 4e 75 |Nu | RTS 00020b58 ; -------------------------------------------------------------------------------------- 00020b58 ; OMSI PASCAL Function 00020b58 ; <LVAR -0x008 @ 1(r)> 00020b58 ; -------------------------------------------------------------------------------------- 00020b58 4e 56 ff 7c |NV | | LINK.W A6,#0xff7c 00020b5c bf d5 | | CMPA.L (A5),A7 00020b5e 62 06 |b | BHI 0x20b66 00020b60 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b64 4e 76 |Nv | TRAPV 00020b66 de fc 00 7c | | | ADDA.W #0x7c,A7 00020b6a 48 e7 fe f8 |H | MOVEM.L A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020b6e 45 f9 00 02 15 19 |E | LEA.L 0x21519,A2 00020b74 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020b7a 72 01 |r | MOVEQ.L #0x01,D1 00020b7c 74 1e |t | MOVEQ.L #0x1e,D2 00020b7e 76 2a |v* | MOVEQ.L #0x2a,D3 00020b80 78 3a |x: | MOVEQ.L #0x3a,D4 00020b82 7a 1c |z | MOVEQ.L #0x1c,D5 00020b84 7c 14 || | MOVEQ.L #0x14,D6 00020b86 4a 39 00 02 14 e6 |J9 | TST.B 0x214e6 00020b8c 67 04 |g | BEQ 0x20b92 00020b8e 42 12 |B | CLR.B (A2) 00020b90 60 34 |`4 | BRA 0x20bc6 00020b92 41 fa f8 5a |A Z | LEA.L 0x203ee,A0 00020b96 70 14 |p | MOVEQ.L #0x14,D0 00020b98 3f 20 |? | MOVE.W -(A0),-(A7) 00020b9a 51 c8 ff fc |Q | DBF D0,0x20b98 00020b9e 5d 4f |]O | SUBQ.L #0x6,A7 00020ba0 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020ba4 3f 01 |? | MOVE.W D1,-(A7) 00020ba6 3f 03 |? | MOVE.W D3,-(A7) 00020ba8 4e 93 |N | JSR (A3) 00020baa 50 4f |PO | ADDQ.L #0x8,A7 00020bac 10 12 | | MOVE.B (A2),D0 00020bae 48 80 |H | EXTB.W D0 00020bb0 41 81 |A | CHK.W D1,D0 00020bb2 1f 00 | | MOVE.B D0,-(A7) 00020bb4 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00020bba 5c 4f |\O | ADDQ.L #0x6,A7 00020bbc 10 1f | | MOVE.B (A7)+,D0 00020bbe 48 80 |H | EXTB.W D0 00020bc0 41 81 |A | CHK.W D1,D0 00020bc2 de c3 | | ADDA.W D3,A7 00020bc4 14 80 | | MOVE.B D0,(A2) 00020bc6 4a 12 |J | TST.B (A2) 00020bc8 66 00 00 d6 |f | BNE 0x20ca0 00020bcc 41 fa f8 5a |A Z | LEA.L 0x20428,A0 00020bd0 70 1c |p | MOVEQ.L #0x1c,D0 00020bd2 3f 20 |? | MOVE.W -(A0),-(A7) 00020bd4 51 c8 ff fc |Q | DBF D0,0x20bd2 00020bd8 5d 4f |]O | SUBQ.L #0x6,A7 00020bda 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020bde 3f 01 |? | MOVE.W D1,-(A7) 00020be0 3f 04 |? | MOVE.W D4,-(A7) 00020be2 4e 93 |N | JSR (A3) 00020be4 50 4f |PO | ADDQ.L #0x8,A7 00020be6 10 39 00 02 15 1a | 9 | MOVE.B 0x2151a,D0 00020bec 48 80 |H | EXTB.W D0 00020bee 41 81 |A | CHK.W D1,D0 00020bf0 1f 00 | | MOVE.B D0,-(A7) 00020bf2 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00020bf8 5c 4f |\O | ADDQ.L #0x6,A7 00020bfa 10 1f | | MOVE.B (A7)+,D0 00020bfc 48 80 |H | EXTB.W D0 00020bfe 41 81 |A | CHK.W D1,D0 00020c00 de c4 | | ADDA.W D4,A7 00020c02 13 c0 00 02 15 1a | | MOVE.B D0,0x2151a 00020c08 9e c2 | | SUBA.W D2,A7 00020c0a 20 4f | O | MOVEA.L A7,A0 00020c0c 43 f9 00 02 15 1b |C | LEA.L 0x2151b,A1 00020c12 70 1d |p | MOVEQ.L #0x1d,D0 00020c14 10 d9 | | MOVE.B (A1)+,(A0)+ 00020c16 51 c8 ff fc |Q | DBF D0,0x20c14 00020c1a 59 4f |YO | SUBQ.L #0x4,A7 00020c1c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020c20 3f 01 |? | MOVE.W D1,-(A7) 00020c22 3f 02 |? | MOVE.W D2,-(A7) 00020c24 4e 93 |N | JSR (A3) 00020c26 50 4f |PO | ADDQ.L #0x8,A7 00020c28 28 5f |(_ | MOVEA.L (A7)+,A4 00020c2a de c2 | | ADDA.W D2,A7 00020c2c 4a 39 00 02 15 1a |J9 | TST.B 0x2151a 00020c32 67 28 |g( | BEQ 0x20c5c 00020c34 41 fa f8 0e |A | LEA.L 0x20444,A0 00020c38 70 06 |p | MOVEQ.L #0x06,D0 00020c3a 2f 20 |/ | MOVE.L -(A0),-(A7) 00020c3c 51 c8 ff fc |Q | DBF D0,0x20c3a 00020c40 51 4f |QO | SUBQ.L #0x8,A7 00020c42 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020c46 3f 01 |? | MOVE.W D1,-(A7) 00020c48 3f 05 |? | MOVE.W D5,-(A7) 00020c4a 4e 93 |N | JSR (A3) 00020c4c 58 4f |XO | ADDQ.L #0x4,A7 00020c4e 2e 8c |. | MOVE.L A4,(A7) 00020c50 4e ba f9 52 |N R | JSR 0x205a4 00020c54 50 4f |PO | ADDQ.L #0x8,A7 00020c56 28 5f |(_ | MOVEA.L (A7)+,A4 00020c58 de c5 | | ADDA.W D5,A7 00020c5a 60 26 |`& | BRA 0x20c82 00020c5c 41 fa f7 fa |A | LEA.L 0x20458,A0 00020c60 70 04 |p | MOVEQ.L #0x04,D0 00020c62 2f 20 |/ | MOVE.L -(A0),-(A7) 00020c64 51 c8 ff fc |Q | DBF D0,0x20c62 00020c68 51 4f |QO | SUBQ.L #0x8,A7 00020c6a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020c6e 3f 01 |? | MOVE.W D1,-(A7) 00020c70 3f 06 |? | MOVE.W D6,-(A7) 00020c72 4e 93 |N | JSR (A3) 00020c74 58 4f |XO | ADDQ.L #0x4,A7 00020c76 2e 8c |. | MOVE.L A4,(A7) 00020c78 4e ba f9 2a |N * | JSR 0x205a4 00020c7c 50 4f |PO | ADDQ.L #0x8,A7 00020c7e 28 5f |(_ | MOVEA.L (A7)+,A4 00020c80 de c6 | | ADDA.W D6,A7 00020c82 2f 0c |/ | MOVE.L A4,-(A7) 00020c84 48 79 00 02 15 1b |Hy | PEA.L 0x2151b 00020c8a 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00020c8e 4e b9 00 01 05 8c |N | JSR FSCALL_1058c 00020c94 de fc 00 0c | | ADDA.W #0xc,A7 00020c98 4a 2e ff f8 |J. | TST.B (A6-0x8) 00020c9c 67 00 ff 2e |g . | BEQ 0x20bcc 00020ca0 4c df 1f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4 00020ca4 4e 5e |N^ | UNLK A6 00020ca6 4e 75 |Nu | RTS 00020ca8 ; -------------------------------------------------------------------------------------- 00020ca8 ; OMSI PASCAL Function 00020ca8 ; <LVAR -0x002 @ 1(r)> 00020ca8 ; -------------------------------------------------------------------------------------- 00020ca8 4e 56 ff 78 |NV x | LINK.W A6,#0xff78 00020cac bf d5 | | CMPA.L (A5),A7 00020cae 62 06 |b | BHI 0x20cb6 00020cb0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020cb4 4e 76 |Nv | TRAPV 00020cb6 de fc 00 80 | | ADDA.W #0x80,A7 00020cba 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020cbe 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020cc4 76 01 |v | MOVEQ.L #0x01,D3 00020cc6 78 0c |x | MOVEQ.L #0x0c,D4 00020cc8 7a 22 |z" | MOVEQ.L #0x22,D5 00020cca 4a 39 00 02 14 ed |J9 | TST.B 0x214ed 00020cd0 67 04 |g | BEQ 0x20cd6 00020cd2 7c 04 || | MOVEQ.L #0x04,D6 00020cd4 60 02 |` | BRA 0x20cd8 00020cd6 7c 09 || | MOVEQ.L #0x09,D6 00020cd8 1f 06 | | MOVE.B D6,-(A7) 00020cda 7e 00 |~ | MOVEQ.L #0x00,D7 00020cdc be 17 | | CMP.B (A7),D7 00020cde 6e 0a |n | BGT 0x20cea 00020ce0 10 17 | | MOVE.B (A7),D0 00020ce2 0c 00 00 09 | | CMPI.B #0x09,D0 00020ce6 6f 02 |o | BLE 0x20cea 00020ce8 4e 4f |NO | TRAP #15 00020cea be 17 | | CMP.B (A7),D7 00020cec 6e 00 01 ca |n | BGT 0x20eb8 00020cf0 10 07 | | MOVE.B D7,D0 00020cf2 48 80 |H | EXTB.W D0 00020cf4 eb 40 | @ | ASL.W #0x5,D0 00020cf6 41 f9 00 02 14 de |A | LEA.L 0x214de,A0 00020cfc 3f 00 |? | MOVE.W D0,-(A7) 00020cfe 2f 08 |/ | MOVE.L A0,-(A7) 00020d00 4a 39 00 02 14 e6 |J9 | TST.B 0x214e6 00020d06 67 06 |g | BEQ 0x20d0e 00020d08 42 30 00 5b |B0 [ | CLR.B (A0+D0.W+#0x5b) 00020d0c 60 6c |`l | BRA 0x20d7a 00020d0e 5d 4f |]O | SUBQ.L #0x6,A7 00020d10 22 4f |"O | MOVEA.L A7,A1 00020d12 45 fa f7 c0 |E | LEA.L 0x204d4,A2 00020d16 72 04 |r | MOVEQ.L #0x04,D1 00020d18 12 da | | MOVE.B (A2)+,(A1)+ 00020d1a 51 c9 ff fc |Q | DBF D1,0x20d18 00020d1e 43 fa f7 54 |C T | LEA.L 0x20474,A1 00020d22 72 06 |r | MOVEQ.L #0x06,D1 00020d24 2f 21 |/! | MOVE.L -(A1),-(A7) 00020d26 51 c9 ff fc |Q | DBF D1,0x20d24 00020d2a 9e fc 00 0a | | SUBA.W #0xa,A7 00020d2e 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020d32 3f 03 |? | MOVE.W D3,-(A7) 00020d34 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00020d38 4e 93 |N | JSR (A3) 00020d3a 54 4f |TO | ADDQ.L #0x2,A7 00020d3c 1e 87 | | MOVE.B D7,(A7) 00020d3e 4e b9 00 01 05 86 |N | JSR Config_Entry_Name(a : Byte) : String 00020d44 55 4f |UO | SUBQ.L #0x2,A7 00020d46 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00020d4a 3f 03 |? | MOVE.W D3,-(A7) 00020d4c 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 00020d50 4e 93 |N | JSR (A3) 00020d52 50 4f |PO | ADDQ.L #0x8,A7 00020d54 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020d5a de c4 | | ADDA.W D4,A7 00020d5c 12 30 00 5b | 0 [ | MOVE.B (A0+D0.W+#0x5b),D1 00020d60 48 81 |H | EXTB.W D1 00020d62 43 83 |C | CHK.W D3,D1 00020d64 1f 01 | | MOVE.B D1,-(A7) 00020d66 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00020d6c 5c 4f |\O | ADDQ.L #0x6,A7 00020d6e 12 1f | | MOVE.B (A7)+,D1 00020d70 48 81 |H | EXTB.W D1 00020d72 43 83 |C | CHK.W D3,D1 00020d74 de c5 | | ADDA.W D5,A7 00020d76 11 81 00 5b | [ | MOVE.B D1,(A0+D0.W+#0x5b) 00020d7a 4a 30 00 5b |J0 [ | TST.B (A0+D0.W+#0x5b) 00020d7e 66 00 01 30 |f 0 | BNE 0x20eb0 00020d82 20 57 | W | MOVEA.L (A7),A0 00020d84 30 2f 00 04 |0/ | MOVE.W (A7+0x4),D0 00020d88 43 fa f7 0e |C | LEA.L 0x20498,A1 00020d8c 72 08 |r | MOVEQ.L #0x08,D1 00020d8e 2f 21 |/! | MOVE.L -(A1),-(A7) 00020d90 51 c9 ff fc |Q | DBF D1,0x20d8e 00020d94 9e fc 00 0a | | SUBA.W #0xa,A7 00020d98 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020d9c 3f 03 |? | MOVE.W D3,-(A7) 00020d9e 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7) 00020da2 4e 93 |N | JSR (A3) 00020da4 54 4f |TO | ADDQ.L #0x2,A7 00020da6 1e 87 | | MOVE.B D7,(A7) 00020da8 4e b9 00 01 05 86 |N | JSR Config_Entry_Name(a : Byte) : String 00020dae 54 4f |TO | ADDQ.L #0x2,A7 00020db0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020db6 50 4f |PO | ADDQ.L #0x8,A7 00020db8 12 30 00 5c | 0 \ | MOVE.B (A0+D0.W+#0x5c),D1 00020dbc 48 81 |H | EXTB.W D1 00020dbe 43 83 |C | CHK.W D3,D1 00020dc0 1f 01 | | MOVE.B D1,-(A7) 00020dc2 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00020dc8 5c 4f |\O | ADDQ.L #0x6,A7 00020dca 12 1f | | MOVE.B (A7)+,D1 00020dcc 48 81 |H | EXTB.W D1 00020dce 43 83 |C | CHK.W D3,D1 00020dd0 de fc 00 24 | $ | ADDA.W #0x24,A7 00020dd4 11 81 00 5c | \ | MOVE.B D1,(A0+D0.W+#0x5c) 00020dd8 12 07 | | MOVE.B D7,D1 00020dda 48 81 |H | EXTB.W D1 00020ddc 34 01 |4 | MOVE.W D1,D2 00020dde eb 42 | B | ASL.W #0x5,D2 00020de0 43 f9 00 02 14 de |C | LEA.L 0x214de,A1 00020de6 9e fc 00 1e | | SUBA.W #0x1e,A7 00020dea 24 4f |$O | MOVEA.L A7,A2 00020dec 43 f1 20 5d |C ] | LEA.L (A1+D2.W+#0x5d),A1 00020df0 74 1d |t | MOVEQ.L #0x1d,D2 00020df2 14 d9 | | MOVE.B (A1)+,(A2)+ 00020df4 51 ca ff fc |Q | DBF D2,0x20df2 00020df8 59 4f |YO | SUBQ.L #0x4,A7 00020dfa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020dfe 3f 03 |? | MOVE.W D3,-(A7) 00020e00 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 00020e04 4e 93 |N | JSR (A3) 00020e06 50 4f |PO | ADDQ.L #0x8,A7 00020e08 28 5f |(_ | MOVEA.L (A7)+,A4 00020e0a de fc 00 1e | | ADDA.W #0x1e,A7 00020e0e 4a 30 00 5c |J0 \ | TST.B (A0+D0.W+#0x5c) 00020e12 67 40 |g@ | BEQ 0x20e54 00020e14 9e c5 | | SUBA.W D5,A7 00020e16 22 4f |"O | MOVEA.L A7,A1 00020e18 45 fa f6 7e |E ~ | LEA.L 0x20498,A2 00020e1c 74 20 |t | MOVEQ.L #0x20,D2 00020e1e 12 da | | MOVE.B (A2)+,(A1)+ 00020e20 51 ca ff fc |Q | DBF D2,0x20e1e 00020e24 9e c4 | | SUBA.W D4,A7 00020e26 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020e2a 3f 03 |? | MOVE.W D3,-(A7) 00020e2c 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7) 00020e30 4e 93 |N | JSR (A3) 00020e32 54 4f |TO | ADDQ.L #0x2,A7 00020e34 1e 81 | | MOVE.B D1,(A7) 00020e36 4e b9 00 01 05 86 |N | JSR Config_Entry_Name(a : Byte) : String 00020e3c 54 4f |TO | ADDQ.L #0x2,A7 00020e3e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020e44 58 4f |XO | ADDQ.L #0x4,A7 00020e46 2e 8c |. | MOVE.L A4,(A7) 00020e48 4e ba f7 5a |N Z | JSR 0x205a4 00020e4c 50 4f |PO | ADDQ.L #0x8,A7 00020e4e 28 5f |(_ | MOVEA.L (A7)+,A4 00020e50 de c5 | | ADDA.W D5,A7 00020e52 60 42 |`B | BRA 0x20e96 00020e54 9e fc 00 1a | | SUBA.W #0x1a,A7 00020e58 22 4f |"O | MOVEA.L A7,A1 00020e5a 45 fa f6 5e |E ^ | LEA.L 0x204ba,A2 00020e5e 74 18 |t | MOVEQ.L #0x18,D2 00020e60 12 da | | MOVE.B (A2)+,(A1)+ 00020e62 51 ca ff fc |Q | DBF D2,0x20e60 00020e66 9e c4 | | SUBA.W D4,A7 00020e68 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020e6c 3f 03 |? | MOVE.W D3,-(A7) 00020e6e 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00020e72 4e 93 |N | JSR (A3) 00020e74 54 4f |TO | ADDQ.L #0x2,A7 00020e76 1e 81 | | MOVE.B D1,(A7) 00020e78 4e b9 00 01 05 86 |N | JSR Config_Entry_Name(a : Byte) : String 00020e7e 54 4f |TO | ADDQ.L #0x2,A7 00020e80 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020e86 58 4f |XO | ADDQ.L #0x4,A7 00020e88 2e 8c |. | MOVE.L A4,(A7) 00020e8a 4e ba f7 18 |N | JSR 0x205a4 00020e8e 50 4f |PO | ADDQ.L #0x8,A7 00020e90 28 5f |(_ | MOVEA.L (A7)+,A4 00020e92 de fc 00 1a | | ADDA.W #0x1a,A7 00020e96 2f 0c |/ | MOVE.L A4,-(A7) 00020e98 48 70 00 5d |Hp ] | PEA.L (A0+D0.W+#0x5d) 00020e9c 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020ea0 4e b9 00 01 05 8c |N | JSR FSCALL_1058c 00020ea6 de c4 | | ADDA.W D4,A7 00020ea8 4a 2e ff fe |J. | TST.B (A6-0x2) 00020eac 67 00 fe d4 |g | BEQ 0x20d82 00020eb0 5c 4f |\O | ADDQ.L #0x6,A7 00020eb2 52 07 |R | ADDQ.B #0x1,D7 00020eb4 68 00 fe 34 |h 4 | BVC 0x20cea 00020eb8 54 4f |TO | ADDQ.L #0x2,A7 00020eba 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020ebe 4e 5e |N^ | UNLK A6 00020ec0 4e 75 |Nu | RTS 00020ec2 ; -------------------------------------------------------------------------------------- 00020ec2 ; OMSI PASCAL Function 00020ec2 ; -------------------------------------------------------------------------------------- 00020ec2 4e 56 ff fc |NV | LINK.W A6,#0xfffc 00020ec6 bf d5 | | CMPA.L (A5),A7 00020ec8 62 06 |b | BHI 0x20ed0 00020eca 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020ece 4e 76 |Nv | TRAPV 00020ed0 de fc 00 04 | | ADDA.W #0x4,A7 00020ed4 4e ba f9 f8 |N | JSR 0x208ce 00020ed8 4e ba fb 18 |N | JSR 0x209f2 00020edc 4e ba fc 7a |N z | JSR 0x20b58 00020ee0 4e ba fd c6 |N | JSR 0x20ca8 00020ee4 4e 5e |N^ | UNLK A6 00020ee6 4e 75 |Nu | RTS 00020ee8 ; -------------------------------------------------------------------------------------- 00020ee8 ; OMSI PASCAL Function 00020ee8 ; <LVAR 0x008 4(r)> 00020ee8 ; -------------------------------------------------------------------------------------- 00020ee8 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00020eec bf d5 | | CMPA.L (A5),A7 00020eee 62 06 |b | BHI 0x20ef6 00020ef0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020ef4 4e 76 |Nv | TRAPV 00020ef6 de fc 00 2c | , | ADDA.W #0x2c,A7 00020efa 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020efe 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020f02 48 79 00 02 14 e8 |Hy | PEA.L 0x214e8 00020f08 4e b9 00 01 05 74 |N t | JSR Write_ConfigFile(name: String; dst: Pointer) 00020f0e 50 4f |PO | ADDQ.L #0x8,A7 00020f10 41 fa f5 dc |A | LEA.L 0x204ee,A0 00020f14 70 04 |p | MOVEQ.L #0x04,D0 00020f16 2f 20 |/ | MOVE.L -(A0),-(A7) 00020f18 51 c8 ff fc |Q | DBF D0,0x20f16 00020f1c 59 4f |YO | SUBQ.L #0x4,A7 00020f1e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020f22 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020f26 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 00020f2a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020f30 50 4f |PO | ADDQ.L #0x8,A7 00020f32 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020f38 de fc 00 18 | | ADDA.W #0x18,A7 00020f3c 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020f40 4e 5e |N^ | UNLK A6 00020f42 4e 75 |Nu | RTS 00020f44 ; -------------------------------------------------------------------------------------- 00020f44 ; OMSI PASCAL Function 00020f44 ; <LVAR -0x004 @ 1(rw)> 00020f44 ; <LVAR -0x008 @ 4(rw)> 00020f44 ; <LVAR -0x00c @ 4(rw)> 00020f44 ; -------------------------------------------------------------------------------------- 00020f44 4e 56 ff 60 |NV ` | LINK.W A6,#0xff60 00020f48 bf d5 | | CMPA.L (A5),A7 00020f4a 62 06 |b | BHI 0x20f52 00020f4c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020f50 4e 76 |Nv | TRAPV 00020f52 de fc 00 94 | | ADDA.W #0x94,A7 00020f56 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020f5a 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020f60 47 ee ff f8 |G | LEA.L (A6-0x8),A3 00020f64 49 ee ff f4 |I | LEA.L (A6-0xc),A4 00020f68 72 01 |r | MOVEQ.L #0x01,D1 00020f6a 74 0c |t | MOVEQ.L #0x0c,D2 00020f6c 76 24 |v$ | MOVEQ.L #0x24,D3 00020f6e 78 10 |x | MOVEQ.L #0x10,D4 00020f70 7a 23 |z# | MOVEQ.L #0x23,D5 00020f72 7c 08 || | MOVEQ.L #0x08,D6 00020f74 7e 28 |~( | MOVEQ.L #0x28,D7 00020f76 20 79 00 02 16 7a | y z | MOVEA.L 0x2167a,A0 00020f7c 4a 50 |JP | TST.W (A0) 00020f7e 6f 00 00 ce |o | BLE 0x2104e 00020f82 59 4f |YO | SUBQ.L #0x4,A7 00020f84 2f 39 00 02 16 7a |/9 z | MOVE.L 0x2167a,-(A7) 00020f8a 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00020f90 58 4f |XO | ADDQ.L #0x4,A7 00020f92 20 5f | _ | MOVEA.L (A7)+,A0 00020f94 28 88 |( | MOVE.L A0,(A4) 00020f96 59 4f |YO | SUBQ.L #0x4,A7 00020f98 2f 08 |/ | MOVE.L A0,-(A7) 00020f9a 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020fa0 58 4f |XO | ADDQ.L #0x4,A7 00020fa2 26 9f |& | MOVE.L (A7)+,(A3) 00020fa4 2f 3a f1 8c |/: | MOVE.L 0x20132,-(A7) 00020fa8 2f 3a f1 84 |/: | MOVE.L 0x2012e,-(A7) 00020fac 2f 3a f1 7c |/: | | MOVE.L 0x2012a,-(A7) 00020fb0 59 4f |YO | SUBQ.L #0x4,A7 00020fb2 2f 08 |/ | MOVE.L A0,-(A7) 00020fb4 59 4f |YO | SUBQ.L #0x4,A7 00020fb6 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020fba 3f 01 |? | MOVE.W D1,-(A7) 00020fbc 3f 02 |? | MOVE.W D2,-(A7) 00020fbe 4e 92 |N | JSR (A2) 00020fc0 50 4f |PO | ADDQ.L #0x8,A7 00020fc2 4e b9 00 01 03 00 |N | JSR FSCALL_10300 00020fc8 50 4f |PO | ADDQ.L #0x8,A7 00020fca 4a 9f |J | TST.L (A7)+ 00020fcc 66 2a |f* | BNE 0x20ff8 00020fce 2f 3a f1 62 |/: b | MOVE.L 0x20132,-(A7) 00020fd2 2f 3a f1 5a |/: Z | MOVE.L 0x2012e,-(A7) 00020fd6 2f 3a f1 52 |/: R | MOVE.L 0x2012a,-(A7) 00020fda 59 4f |YO | SUBQ.L #0x4,A7 00020fdc 2f 08 |/ | MOVE.L A0,-(A7) 00020fde 59 4f |YO | SUBQ.L #0x4,A7 00020fe0 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020fe4 3f 01 |? | MOVE.W D1,-(A7) 00020fe6 3f 02 |? | MOVE.W D2,-(A7) 00020fe8 4e 92 |N | JSR (A2) 00020fea 50 4f |PO | ADDQ.L #0x8,A7 00020fec 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020ff2 50 4f |PO | ADDQ.L #0x8,A7 00020ff4 28 9f |( | MOVE.L (A7)+,(A4) 00020ff6 de c2 | | ADDA.W D2,A7 00020ff8 50 4f |PO | ADDQ.L #0x8,A7 00020ffa 2e 94 |. | MOVE.L (A4),(A7) 00020ffc 48 78 00 03 |Hx | PEA.L 0x3 00021000 48 79 00 02 14 e8 |Hy | PEA.L 0x214e8 00021006 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002100a 4e b9 00 01 05 6e |N n | JSR Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool) 00021010 de c4 | | ADDA.W D4,A7 00021012 4a 2e ff fc |J. | TST.B (A6-0x4) 00021016 66 32 |f2 | BNE 0x2104a 00021018 41 fa f5 66 |A f | LEA.L 0x20580,A0 0002101c 70 0c |p | MOVEQ.L #0x0c,D0 0002101e 3f 20 |? | MOVE.W -(A0),-(A7) 00021020 51 c8 ff fc |Q | DBF D0,0x2101e 00021024 59 4f |YO | SUBQ.L #0x4,A7 00021026 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002102a 3f 01 |? | MOVE.W D1,-(A7) 0002102c 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 00021030 4e 92 |N | JSR (A2) 00021032 50 4f |PO | ADDQ.L #0x8,A7 00021034 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002103a de fc 00 1e | | ADDA.W #0x1e,A7 0002103e 48 79 00 02 14 e8 |Hy | PEA.L 0x214e8 00021044 4e ba f6 0e |N | JSR 0x20654 00021048 58 4f |XO | ADDQ.L #0x4,A7 0002104a 60 00 01 56 |` V | BRA 0x211a2 0002104e 9e c3 | | SUBA.W D3,A7 00021050 20 4f | O | MOVEA.L A7,A0 00021052 43 fa f4 9a |C | LEA.L 0x204ee,A1 00021056 70 22 |p" | MOVEQ.L #0x22,D0 00021058 10 d9 | | MOVE.B (A1)+,(A0)+ 0002105a 51 c8 ff fc |Q | DBF D0,0x21058 0002105e 2f 3a f5 02 |/: | MOVE.L 0x20562,-(A7) 00021062 2f 3a f4 fa |/: | MOVE.L 0x2055e,-(A7) 00021066 9e c2 | | SUBA.W D2,A7 00021068 48 6f 00 14 |Ho | PEA.L (A7+0x14) 0002106c 3f 01 |? | MOVE.W D1,-(A7) 0002106e 3f 05 |? | MOVE.W D5,-(A7) 00021070 4e 92 |N | JSR (A2) 00021072 58 4f |XO | ADDQ.L #0x4,A7 00021074 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00021078 3f 01 |? | MOVE.W D1,-(A7) 0002107a 3f 06 |? | MOVE.W D6,-(A7) 0002107c 4e 92 |N | JSR (A2) 0002107e 50 4f |PO | ADDQ.L #0x8,A7 00021080 4e ba f5 22 |N " | JSR 0x205a4 00021084 50 4f |PO | ADDQ.L #0x8,A7 00021086 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 0002108c 58 4f |XO | ADDQ.L #0x4,A7 0002108e 20 5f | _ | MOVEA.L (A7)+,A0 00021090 28 88 |( | MOVE.L A0,(A4) 00021092 59 4f |YO | SUBQ.L #0x4,A7 00021094 2f 08 |/ | MOVE.L A0,-(A7) 00021096 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 0002109c 58 4f |XO | ADDQ.L #0x4,A7 0002109e 26 9f |& | MOVE.L (A7)+,(A3) 000210a0 2f 3a f0 90 |/: | MOVE.L 0x20132,-(A7) 000210a4 2f 3a f0 88 |/: | MOVE.L 0x2012e,-(A7) 000210a8 2f 3a f0 80 |/: | MOVE.L 0x2012a,-(A7) 000210ac 59 4f |YO | SUBQ.L #0x4,A7 000210ae 2f 08 |/ | MOVE.L A0,-(A7) 000210b0 59 4f |YO | SUBQ.L #0x4,A7 000210b2 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000210b6 3f 01 |? | MOVE.W D1,-(A7) 000210b8 3f 02 |? | MOVE.W D2,-(A7) 000210ba 4e 92 |N | JSR (A2) 000210bc 50 4f |PO | ADDQ.L #0x8,A7 000210be 4e b9 00 01 03 00 |N | JSR FSCALL_10300 000210c4 50 4f |PO | ADDQ.L #0x8,A7 000210c6 4a 9f |J | TST.L (A7)+ 000210c8 66 2a |f* | BNE 0x210f4 000210ca 2f 3a f0 66 |/: f | MOVE.L 0x20132,-(A7) 000210ce 2f 3a f0 5e |/: ^ | MOVE.L 0x2012e,-(A7) 000210d2 2f 3a f0 56 |/: V | MOVE.L 0x2012a,-(A7) 000210d6 59 4f |YO | SUBQ.L #0x4,A7 000210d8 2f 08 |/ | MOVE.L A0,-(A7) 000210da 59 4f |YO | SUBQ.L #0x4,A7 000210dc 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000210e0 3f 01 |? | MOVE.W D1,-(A7) 000210e2 3f 02 |? | MOVE.W D2,-(A7) 000210e4 4e 92 |N | JSR (A2) 000210e6 50 4f |PO | ADDQ.L #0x8,A7 000210e8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000210ee 50 4f |PO | ADDQ.L #0x8,A7 000210f0 28 9f |( | MOVE.L (A7)+,(A4) 000210f2 de c2 | | ADDA.W D2,A7 000210f4 de fc 00 34 | 4 | ADDA.W #0x34,A7 000210f8 2e 94 |. | MOVE.L (A4),(A7) 000210fa 48 78 00 03 |Hx | PEA.L 0x3 000210fe 48 79 00 02 14 e8 |Hy | PEA.L 0x214e8 00021104 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021108 4e b9 00 01 05 6e |N n | JSR Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool) 0002110e de c4 | | ADDA.W D4,A7 00021110 4a 2e ff fc |J. | TST.B (A6-0x4) 00021114 67 34 |g4 | BEQ 0x2114a 00021116 9e c3 | | SUBA.W D3,A7 00021118 20 4f | O | MOVEA.L A7,A0 0002111a 43 fa f3 f6 |C | LEA.L 0x20512,A1 0002111e 70 22 |p" | MOVEQ.L #0x22,D0 00021120 10 d9 | | MOVE.B (A1)+,(A0)+ 00021122 51 c8 ff fc |Q | DBF D0,0x21120 00021126 9e c2 | | SUBA.W D2,A7 00021128 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002112c 3f 01 |? | MOVE.W D1,-(A7) 0002112e 3f 05 |? | MOVE.W D5,-(A7) 00021130 4e 92 |N | JSR (A2) 00021132 58 4f |XO | ADDQ.L #0x4,A7 00021134 2e 93 |. | MOVE.L (A3),(A7) 00021136 4e ba f4 6c |N l | JSR 0x205a4 0002113a 50 4f |PO | ADDQ.L #0x8,A7 0002113c 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00021142 58 4f |XO | ADDQ.L #0x4,A7 00021144 26 9f |& | MOVE.L (A7)+,(A3) 00021146 de c3 | | ADDA.W D3,A7 00021148 60 50 |`P | BRA 0x2119a 0002114a 9e c7 | | SUBA.W D7,A7 0002114c 20 4f | O | MOVEA.L A7,A0 0002114e 43 fa f3 e6 |C | LEA.L 0x20536,A1 00021152 70 26 |p& | MOVEQ.L #0x26,D0 00021154 10 d9 | | MOVE.B (A1)+,(A0)+ 00021156 51 c8 ff fc |Q | DBF D0,0x21154 0002115a 5d 4f |]O | SUBQ.L #0x6,A7 0002115c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021160 3f 01 |? | MOVE.W D1,-(A7) 00021162 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00021166 4e 92 |N | JSR (A2) 00021168 5c 4f |\O | ADDQ.L #0x6,A7 0002116a 1e 81 | | MOVE.B D1,(A7) 0002116c 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00021172 5c 4f |\O | ADDQ.L #0x6,A7 00021174 10 1f | | MOVE.B (A7)+,D0 00021176 48 80 |H | EXTB.W D0 00021178 41 81 |A | CHK.W D1,D0 0002117a de c7 | | ADDA.W D7,A7 0002117c 1d 40 ff fc | @ | MOVE.B D0,(A6-0x4) 00021180 4a 00 |J | TST.B D0 00021182 67 0c |g | BEQ 0x21190 00021184 48 79 00 02 14 e8 |Hy | PEA.L 0x214e8 0002118a 4e ba f4 c8 |N | JSR 0x20654 0002118e 60 08 |` | BRA 0x21198 00021190 48 54 |HT | PEA.L (A4) 00021192 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021198 58 4f |XO | ADDQ.L #0x4,A7 0002119a 4a 2e ff fc |J. | TST.B (A6-0x4) 0002119e 67 00 fe ae |g | BEQ 0x2104e 000211a2 2f 3a f3 be |/: | MOVE.L 0x20562,-(A7) 000211a6 2f 3a f3 b6 |/: | MOVE.L 0x2055e,-(A7) 000211aa 55 4f |UO | SUBQ.L #0x2,A7 000211ac 2f 13 |/ | MOVE.L (A3),-(A7) 000211ae 59 4f |YO | SUBQ.L #0x4,A7 000211b0 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000211b4 3f 01 |? | MOVE.W D1,-(A7) 000211b6 3f 06 |? | MOVE.W D6,-(A7) 000211b8 4e 92 |N | JSR (A2) 000211ba 50 4f |PO | ADDQ.L #0x8,A7 000211bc 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 000211c2 50 4f |PO | ADDQ.L #0x8,A7 000211c4 10 1f | | MOVE.B (A7)+,D0 000211c6 48 80 |H | EXTB.W D0 000211c8 41 81 |A | CHK.W D1,D0 000211ca 50 4f |PO | ADDQ.L #0x8,A7 000211cc 13 c0 00 02 14 e6 | | MOVE.B D0,0x214e6 000211d2 2f 3a ef 5e |/: ^ | MOVE.L 0x20132,-(A7) 000211d6 2f 3a ef 56 |/: V | MOVE.L 0x2012e,-(A7) 000211da 2f 3a ef 4e |/: N | MOVE.L 0x2012a,-(A7) 000211de 59 4f |YO | SUBQ.L #0x4,A7 000211e0 2f 13 |/ | MOVE.L (A3),-(A7) 000211e2 59 4f |YO | SUBQ.L #0x4,A7 000211e4 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000211e8 3f 01 |? | MOVE.W D1,-(A7) 000211ea 3f 02 |? | MOVE.W D2,-(A7) 000211ec 4e 92 |N | JSR (A2) 000211ee 50 4f |PO | ADDQ.L #0x8,A7 000211f0 4e b9 00 01 03 00 |N | JSR FSCALL_10300 000211f6 50 4f |PO | ADDQ.L #0x8,A7 000211f8 4a 9f |J | TST.L (A7)+ 000211fa 66 2a |f* | BNE 0x21226 000211fc 2f 3a ef 34 |/: 4 | MOVE.L 0x20132,-(A7) 00021200 2f 3a ef 2c |/: , | MOVE.L 0x2012e,-(A7) 00021204 2f 3a ef 24 |/: $ | MOVE.L 0x2012a,-(A7) 00021208 59 4f |YO | SUBQ.L #0x4,A7 0002120a 2f 13 |/ | MOVE.L (A3),-(A7) 0002120c 59 4f |YO | SUBQ.L #0x4,A7 0002120e 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021212 3f 01 |? | MOVE.W D1,-(A7) 00021214 3f 02 |? | MOVE.W D2,-(A7) 00021216 4e 92 |N | JSR (A2) 00021218 50 4f |PO | ADDQ.L #0x8,A7 0002121a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021220 50 4f |PO | ADDQ.L #0x8,A7 00021222 26 9f |& | MOVE.L (A7)+,(A3) 00021224 de c2 | | ADDA.W D2,A7 00021226 de c2 | | ADDA.W D2,A7 00021228 4e ba fc 98 |N | JSR 0x20ec2 0002122c 2f 13 |/ | MOVE.L (A3),-(A7) 0002122e 4e ba fc b8 |N | JSR 0x20ee8 00021232 58 4f |XO | ADDQ.L #0x4,A7 00021234 48 54 |HT | PEA.L (A4) 00021236 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002123c 58 4f |XO | ADDQ.L #0x4,A7 0002123e 48 53 |HS | PEA.L (A3) 00021240 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021246 58 4f |XO | ADDQ.L #0x4,A7 00021248 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 0002124c 4e 5e |N^ | UNLK A6 0002124e 4e 75 |Nu | RTS 00021250 ; -------------------------------------------------------------------------------------- 00021250 ; OMSI PASCAL Function 00021250 ; -------------------------------------------------------------------------------------- 00021250 START: 00021250 4f fa 00 08 |O | LEA.L MAIN,A7 00021254 4e f9 00 01 02 80 |N | JMP ?start_program 0002125a MAIN: 0002125a 45 f9 00 02 16 7a |E z | LEA.L 0x2167a,A2 00021260 72 1e |r | MOVEQ.L #0x1e,D1 00021262 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00021268 59 4f |YO | SUBQ.L #0x4,A7 0002126a 4e b9 00 01 03 c4 |N | JSR GetArgv() : String 00021270 24 9f |$ | MOVE.L (A7)+,(A2) 00021272 20 52 | R | MOVEA.L (A2),A0 00021274 4a 50 |JP | TST.W (A0) 00021276 66 48 |fH | BNE 0x212c0 00021278 9e c1 | | SUBA.W D1,A7 0002127a 20 4f | O | MOVEA.L A7,A0 0002127c 43 fa f3 02 |C | LEA.L 0x20580,A1 00021280 70 1c |p | MOVEQ.L #0x1c,D0 00021282 10 d9 | | MOVE.B (A1)+,(A0)+ 00021284 51 c8 ff fc |Q | DBF D0,0x21282 00021288 5d 4f |]O | SUBQ.L #0x6,A7 0002128a 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002128e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021292 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 00021296 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002129c 5c 4f |\O | ADDQ.L #0x6,A7 0002129e 42 17 |B | CLR.B (A7) 000212a0 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 000212a6 5c 4f |\O | ADDQ.L #0x6,A7 000212a8 4a 1f |J | TST.B (A7)+ 000212aa 67 12 |g | BEQ 0x212be 000212ac 4e ba f4 3a |N : | JSR 0x206e8 000212b0 42 27 |B' | CLR.B -(A7) 000212b2 48 78 00 01 |Hx | PEA.L 0x1 000212b6 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000212bc 5c 4f |\O | ADDQ.L #0x6,A7 000212be de c1 | | ADDA.W D1,A7 000212c0 4e ba fc 82 |N | JSR 0x20f44 000212c4 42 27 |B' | CLR.B -(A7) 000212c6 48 78 00 01 |Hx | PEA.L 0x1 000212ca 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000212d0 5c 4f |\O | ADDQ.L #0x6,A7 000212d2 4e b9 00 01 02 84 |N | JSR ?exit 000212d8 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 000212e6 ; -------------------------------------------------------------------------------------- 000212e6 ; OMSI PASCAL Function 000212e6 ; <LVAR 0x008 1(r)> 000212e6 ; -------------------------------------------------------------------------------------- 000212e6 PROG_FAIL: 000212e6 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 000212ea bf d5 | | CMPA.L (A5),A7 000212ec 62 06 |b | BHI 0x212f4 000212ee 44 fc 00 02 |D | MOVE.W #0x2,CCR 000212f2 4e 76 |Nv | TRAPV 000212f4 de fc 00 2c | , | ADDA.W #0x2c,A7 000212f8 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000212fc 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00021300 70 06 |p | MOVEQ.L #0x06,D0 00021302 3f 20 |? | MOVE.W -(A0),-(A7) 00021304 51 c8 ff fc |Q | DBF D0,0x21302 00021308 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 0002130c 51 4f |QO | SUBQ.L #0x8,A7 0002130e 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00021312 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021316 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 0002131a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021320 58 4f |XO | ADDQ.L #0x4,A7 00021322 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00021326 48 80 |H | EXTB.W D0 00021328 48 c0 |H | EXTW.L D0 0002132a 2f 00 |/ | MOVE.L D0,-(A7) 0002132c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021332 58 4f |XO | ADDQ.L #0x4,A7 00021334 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002133a 50 4f |PO | ADDQ.L #0x8,A7 0002133c 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021342 de fc 00 14 | | ADDA.W #0x14,A7 00021346 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 0002134a 4e 5e |N^ | UNLK A6 0002134c 4e 75 |Nu | RTS 0002134e 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 0002135c 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 0002136a 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00021378 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 0002138a 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 000213a2 ; -------------------------------------------------------------------------------------- 000213a2 ; OMSI PASCAL Function 000213a2 ; <LVAR 0x00e 1(r)> 000213a2 ; <LVAR 0x00a 4(r)> 000213a2 ; <LVAR 0x008 1(r)> 000213a2 ; -------------------------------------------------------------------------------------- 000213a2 EXP_FAIL: 000213a2 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 000213a6 bf d5 | | CMPA.L (A5),A7 000213a8 62 06 |b | BHI 0x213b0 000213aa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000213ae 4e 76 |Nv | TRAPV 000213b0 de fc 00 74 | t | ADDA.W #0x74,A7 000213b4 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 000213b8 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000213be 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 000213c4 72 01 |r | MOVEQ.L #0x01,D1 000213c6 74 0d |t | MOVEQ.L #0x0d,D2 000213c8 76 1e |v | MOVEQ.L #0x1e,D3 000213ca 78 12 |x | MOVEQ.L #0x12,D4 000213cc 7a 0e |z | MOVEQ.L #0x0e,D5 000213ce 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000213d4 41 fa ff b4 |A | LEA.L 0x2138a,A0 000213d8 70 08 |p | MOVEQ.L #0x08,D0 000213da 3f 20 |? | MOVE.W -(A0),-(A7) 000213dc 51 c8 ff fc |Q | DBF D0,0x213da 000213e0 59 4f |YO | SUBQ.L #0x4,A7 000213e2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000213e6 3f 01 |? | MOVE.W D1,-(A7) 000213e8 3f 04 |? | MOVE.W D4,-(A7) 000213ea 4e 93 |N | JSR (A3) 000213ec 50 4f |PO | ADDQ.L #0x8,A7 000213ee 4e 94 |N | JSR (A4) 000213f0 50 4f |PO | ADDQ.L #0x8,A7 000213f2 20 4f | O | MOVEA.L A7,A0 000213f4 43 fa ff 58 |C X | LEA.L 0x2134e,A1 000213f8 70 0c |p | MOVEQ.L #0x0c,D0 000213fa 10 d9 | | MOVE.B (A1)+,(A0)+ 000213fc 51 c8 ff fc |Q | DBF D0,0x213fa 00021400 51 4f |QO | SUBQ.L #0x8,A7 00021402 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021406 3f 01 |? | MOVE.W D1,-(A7) 00021408 3f 02 |? | MOVE.W D2,-(A7) 0002140a 4e 93 |N | JSR (A3) 0002140c 54 4f |TO | ADDQ.L #0x2,A7 0002140e 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00021412 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00021418 54 4f |TO | ADDQ.L #0x2,A7 0002141a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021420 50 4f |PO | ADDQ.L #0x8,A7 00021422 4e 94 |N | JSR (A4) 00021424 de c4 | | ADDA.W D4,A7 00021426 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 0002142a b0 c1 | | CMPA.W D1,A0 0002142c 67 48 |gH | BEQ 0x21476 0002142e 9e c5 | | SUBA.W D5,A7 00021430 22 4f |"O | MOVEA.L A7,A1 00021432 45 fa ff 28 |E ( | LEA.L 0x2135c,A2 00021436 70 0c |p | MOVEQ.L #0x0c,D0 00021438 12 da | | MOVE.B (A2)+,(A1)+ 0002143a 51 c8 ff fc |Q | DBF D0,0x21438 0002143e 9e c3 | | SUBA.W D3,A7 00021440 22 4f |"O | MOVEA.L A7,A1 00021442 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00021446 70 1d |p | MOVEQ.L #0x1d,D0 00021448 12 d8 | | MOVE.B (A0)+,(A1)+ 0002144a 51 c8 ff fc |Q | DBF D0,0x21448 0002144e 51 4f |QO | SUBQ.L #0x8,A7 00021450 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00021454 3f 01 |? | MOVE.W D1,-(A7) 00021456 3f 02 |? | MOVE.W D2,-(A7) 00021458 4e 93 |N | JSR (A3) 0002145a 58 4f |XO | ADDQ.L #0x4,A7 0002145c 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021460 3f 01 |? | MOVE.W D1,-(A7) 00021462 3f 03 |? | MOVE.W D3,-(A7) 00021464 4e 93 |N | JSR (A3) 00021466 50 4f |PO | ADDQ.L #0x8,A7 00021468 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002146e 50 4f |PO | ADDQ.L #0x8,A7 00021470 4e 94 |N | JSR (A4) 00021472 de fc 00 30 | 0 | ADDA.W #0x30,A7 00021476 9e c5 | | SUBA.W D5,A7 00021478 20 4f | O | MOVEA.L A7,A0 0002147a 43 fa fe ee |C | LEA.L 0x2136a,A1 0002147e 70 0c |p | MOVEQ.L #0x0c,D0 00021480 10 d9 | | MOVE.B (A1)+,(A0)+ 00021482 51 c8 ff fc |Q | DBF D0,0x21480 00021486 51 4f |QO | SUBQ.L #0x8,A7 00021488 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002148c 3f 01 |? | MOVE.W D1,-(A7) 0002148e 3f 02 |? | MOVE.W D2,-(A7) 00021490 4e 93 |N | JSR (A3) 00021492 54 4f |TO | ADDQ.L #0x2,A7 00021494 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00021498 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 0002149e 54 4f |TO | ADDQ.L #0x2,A7 000214a0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000214a6 50 4f |PO | ADDQ.L #0x8,A7 000214a8 4e 94 |N | JSR (A4) 000214aa 5d 4f |]O | SUBQ.L #0x6,A7 000214ac 20 4f | O | MOVEA.L A7,A0 000214ae 43 fa fe da |C | LEA.L 0x2138a,A1 000214b2 70 16 |p | MOVEQ.L #0x16,D0 000214b4 10 d9 | | MOVE.B (A1)+,(A0)+ 000214b6 51 c8 ff fc |Q | DBF D0,0x214b4 000214ba 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000214be 59 4f |YO | SUBQ.L #0x4,A7 000214c0 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000214c4 3f 01 |? | MOVE.W D1,-(A7) 000214c6 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000214ca 4e 93 |N | JSR (A3) 000214cc 50 4f |PO | ADDQ.L #0x8,A7 000214ce 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000214d4 de c3 | | ADDA.W D3,A7 000214d6 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 000214da 4e 5e |N^ | UNLK A6 000214dc 4e 75 |Nu | RTS