|
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«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »CEDIT.M200«
└─ ⟦this⟧ »CEDIT.M200«
@ 20590
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(rw)>
<LVAR 0x008 @ 4(r)>
<LVAR -0x004 @ 4(rw)>
<POP 20590-20640 Body>
<POP 20590-205a6 Prologue> Σ0 ↓
<POP 205a6-205b4 RegCacheLoad> Σ0 ↓
<POP 205b4-205ba Naked> Σ0 ↓ →0x205c4
<MI 205b4 MOVEA.L (A6+0x8),A0> {}
<MI 205b6 CMPA.W #0x01,A0> {}
<MI 205b8 BNE 0x205c4> {}
<POP 205ba-205c4 Naked> Σ0 ↓
<Pointer.fp 0x205ba <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x205bc 0x102b8> {[@@8]}
NewString(VAR a : String)
<POP 205c2-205c4 StackAdj> Δ+4 {}
<POP 205c4-2061c Naked> Σ0 ↓ →0x20628 ←0x205b4
<Blob 0x205c4 [2] @> Δ-2 {[«2""»]}
<Blob 0x205c8 [4] @> Δ-4 {[«2""»]|[«4""»]}
<POP 205cc-205ce StackAdj> Δ-4 {[«2""»]|[«4""»]|[-4-]}
<MI 205ce MOVE.L (A6+0xc),-(A7)> Δ-4 {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']}
<POP 205d0-205d2 StackAdj> Δ-4 {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[-4-]}
<Lit 0x205d2 2> {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[$$ []}
<MI 205e2 MOVE.L (A6+0x8),(A7)> {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 205dc-205e2 StackAdj> Δ-8 {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]}
<Call 0x205e4 0x102cc> {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-8-]}
StringDup(a : String) : String
<Lit 0x205ea 4> {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]|[$$] :_]}
<Call 0x205fc 0x102d8> {[«2""»]|[«4""»]|[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]|[$$] :_]}
StringCat4(a, b, c, d : String) : String
<POP 20602-20606 StackAdj> Δ+16 {[«2""»]|[«4""»]|[-4-]}
<MI 20606 MOVE.L (A7)+,(A6+0xc)> Δ+4 {[«2""»]|[«4""»]}
<POP 20608-2060a StackAdj> Δ+2 {[«2""»]|[-2-]}
<MI 2060a MOVE.L (A6+0xc),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6+0xc)']}
<Call 0x2060c 0x103e4> {[«2""»]|[-2-]|[4, '(A6+0xc)']}
AskConsoleString(prompt : String) : String
<POP 20612-20614 StackAdj> Δ+4 {[«2""»]|[-2-]}
<MI 20614 MOVE.L (A7)+,(A6-0x4)> Δ+4 {}
<MI 20616 MOVEA.L (A6-0x4),A0> {}
<MI 20618 TST.W (A0)> {}
<MI 2061a BEQ 0x20628> {}
<POP 2061c-20628 Naked> Σ0 →0x20634
<Pointer.fp 0x2061c <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x2061e 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 20624-20626 StackAdj> Δ+4 {}
<MI 20626 BRA 0x20634> {}
<POP 20628-20634 Naked> Σ0 ↓ ←0x205c4
<Pointer.fp 0x20628 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x2062a 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 20630-20632 StackAdj> Δ+4 {}
<MI 20632 MOVE.L (A6+0x8),(A6-0x4)> {}
<POP 20634-20638 Naked> Σ0 ↓ ←0x2061c
<MI 20634 MOVE.L (A6-0x4),(A6+0x10)> {}
<POP 20638-20640 Epilogue> Σ0
@ 20640
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(rw)>
<POP 20640-2085c Body>
<POP 20640-20656 Prologue> Σ0 ↓
<POP 20656-2065e RegCacheLoad> Σ0 ↓
<POP 2065e-20674 Naked> Σ0 ↓ →0x20676
<POP 2065e-20660 StackAdj> Δ-4 {[-4-]}
<Call 0x20660 0x103c4> {[-4-]}
GetArgv() : String
<MI 20666 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 2066a MOVEQ.L #0x00,D7> {}
<MI 2066c MOVEA.L (A6-0x8),A0> {}
<MI 20670 TST.W (A0)> {}
<MI 20672 BEQ 0x20676> {}
<POP 20674-20676 Naked> Σ0 ↓
<MI 20674 ADDQ.B #0x1,D7> {}
<POP 20676-2067a Naked> Σ0 ↓ →0x206a6 ←0x2065e
<MI 20676 TST.B D7> {}
<MI 20678 BNE 0x206a6> {}
<POP 2067a-206a6 Naked> Σ0 ↓
<Pointer.fp 0x2067a <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x2067e 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 20684-20685 StackAdj> Δ+4 {}
<Blob 0x20685 [4] @> Δ-4 {[«4""»]}
<Blob 0x20688 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 2068c-2068e StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<Lit 0x2068e 8> {[«4""»]|[«4""»]|[$$STANDARD]}
<MI 206a0 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«4""»]|[«4""»]}
<POP 206a4-206a6 StackAdj> Δ+8 {}
<POP 206a6-206de Naked> Σ0 Δ-36 ↓ →0x206f2 ←0x20676
<MI 206a6 MOVEA.L (A6+0x10),A0> {}
<Blob 0x206aa [36] @> Δ-36 {[«36""»]}
<POP 206ba-206bc StackAdj> Δ-8 {[«36""»]|[-8-]}
<Lit 0x206bc 35> {[«36""»]|[-4-]|[$$Enter name of configuration to edit]}
<POP 206ca-206cc StackAdj> Δ-4 {[«36""»]|[-4-]|[$$Enter name of configuration to edit]|[-4-]}
<MI 206cc MOVE.L (A6-0x8),(A7)> {[«36""»]|[-4-]|[$$Enter name of configuration to edit]|[4, '(A6-0x8)']}
<Call 0x206d0 0x20590> {[«36""»]|[-4-]|[$$Enter name of configuration to edit]|[4, '(A6-0x8)']}
<POP 206d4-206d6 StackAdj> Δ+8 {[«36""»]|[-4-]}
<MI 206d6 MOVEA.L (A7)+,A1> Δ+4 {[«36""»]}
<MI 206d8 MOVE.L A1,(A0)> {[«36""»]}
<MI 206da TST.B D7> {[«36""»]}
<MI 206dc BEQ 0x206f2> {[«36""»]}
<POP 206de-206f2 Naked> Σ-36 →0x2072a
<MI 206de MOVEA.L (A6+0xc),A2> {[-36-]}
<POP 206e2-206e4 StackAdj> Δ-4 {[-40-]}
<MI 206e4 MOVE.L A1,-(A7)> Δ-4 {[-40-]|[4, 'A1']}
<Call 0x206e6 0x102cc> {[-40-]|[4, 'A1']}
StringDup(a : String) : String
<POP 206ec-206ee StackAdj> Δ+4 {[-40-]}
<MI 206ee MOVE.L (A7)+,(A2)> Δ+4 {[-36-]}
<MI 206f0 BRA 0x2072a> {[-36-]}
<POP 206f2-2072a Naked> Σ-36 ↓ ←0x206a6
<MI 206f2 MOVEA.L (A6+0xc),A2> {[-36-]}
<Blob 0x206f6 [36] @> Δ-36 {[-36-]|[«36""»]}
<POP 20706-20708 StackAdj> Δ-8 {[-36-]|[«36""»]|[-8-]}
<Lit 0x20708 35> {[-36-]|[«36""»]|[-4-]|[$$Enter name of configuration to save]}
<MI 20716 MOVE.L A1,(A7)> {[-36-]|[«36""»]|[-4-]|[4, 'A1']}
<POP 20710-20716 StackAdj> Δ-8 {[-36-]|[«36""»]|[-4-]|[4, 'A1']|[-8-]}
<Call 0x20718 0x102cc> {[-36-]|[«36""»]|[-4-]|[4, 'A1']|[-8-]}
StringDup(a : String) : String
<POP 2071e-20720 StackAdj> Δ+4 {[-36-]|[«36""»]|[-4-]|[4, 'A1']|[-4-]}
<Call 0x20720 0x20590> {[-36-]|[«36""»]|[-4-]|[4, 'A1']|[-4-]}
<POP 20724-20726 StackAdj> Δ+8 {[-36-]|[«36""»]|[-4-]}
<MI 20726 MOVE.L (A7)+,(A2)> Δ+4 {[-36-]|[«36""»]}
<POP 20728-2072a StackAdj> Δ+36 {[-36-]}
<POP 2072a-20772 Naked> Σ-36 Δ+36 ↓ →0x20786 ←0x206de
<POP 2072a-2072c StackAdj> Δ-4 {[-40-]}
<MI 2072c MOVE.L A1,-(A7)> Δ-4 {[-40-]|[4, 'A1']}
<Call 0x2072e 0x102f0> {[-40-]|[4, 'A1']}
ToUpper(a : String) : String
<POP 20734-20736 StackAdj> Δ+4 {[-40-]}
<MI 20736 MOVE.L (A7)+,(A0)> Δ+4 {[-36-]}
<POP 20738-2073c StackAdj> Δ+32 {[-4-]}
<POP 2073c-2073d StackAdj> Δ+4 {}
<Blob 0x2073d [4] @> Δ-4 {[«4""»]}
<Blob 0x20740 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20744 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 20748-2074a StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2074a 12> {[«4""»]|[«4""»]|[«4""»]|[$$.M200_CONFIG]}
<MI 2075a MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2075e-20760 StackAdj> Δ+4 {[«4""»]|[«4""»]}
<MI 20760 MOVE.L (A0),(A7)> {[«4""»]|[4, '(A0)']}
<MI 20762 MOVE.L (A6-0x8),-(A7)> Δ-4 {[«4""»]|[4, '(A0)']|[4, '(A6-0x8)']}
<Call 0x20766 0x10300> {[«4""»]|[4, '(A0)']|[4, '(A6-0x8)']}
FSCALL_10300
<POP 2076c-2076e StackAdj> Δ+8 {[«4""»]}
<MI 2076e TST.L (A7)+> Δ+4 {}
<MI 20770 BNE 0x20786> {}
<POP 20772-20786 Naked> Σ0 →0x20792
<POP 20772-20774 StackAdj> Δ-4 {[-4-]}
<MI 20774 MOVE.L (A0),-(A7)> Δ-4 {[-4-]|[4, '(A0)']}
<MI 20776 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A0)']|[4, '(A6-0x8)']}
<Call 0x2077a 0x102d0> {[-4-]|[4, '(A0)']|[4, '(A6-0x8)']}
StringCat2(a, b : String) : String
<POP 20780-20782 StackAdj> Δ+8 {[-4-]}
<MI 20782 MOVE.L (A7)+,(A0)> Δ+4 {}
<MI 20784 BRA 0x20792> {}
<POP 20786-20792 Naked> Σ0 ↓ ←0x2072a
<Pointer.fp 0x20786 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x2078a 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 20790-20792 StackAdj> Δ+4 {}
<POP 20792-207da Naked> Σ0 ↓ →0x207ee ←0x20772
<MI 20792 MOVEA.L (A6+0xc),A0> {}
<POP 20796-20798 StackAdj> Δ-4 {[-4-]}
<MI 20798 MOVE.L (A0),-(A7)> Δ-4 {[-4-]|[4, '(A0)']}
<Call 0x2079a 0x102f0> {[-4-]|[4, '(A0)']}
ToUpper(a : String) : String
<POP 207a0-207a2 StackAdj> Δ+4 {[-4-]}
<MI 207a2 MOVE.L (A7)+,(A0)> Δ+4 {}
<Blob 0x207a4 [4] @> Δ-4 {[«4""»]}
<Blob 0x207a8 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x207ac [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 207b0-207b2 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x207b2 12> {[«4""»]|[«4""»]|[«4""»]|[$$.M200_CONFIG]}
<MI 207c2 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«4""»]|[«4""»]|[«4""»]}
<POP 207c6-207c8 StackAdj> Δ+4 {[«4""»]|[«4""»]}
<MI 207c8 MOVE.L (A0),(A7)> {[«4""»]|[4, '(A0)']}
<MI 207ca MOVE.L (A6-0x8),-(A7)> Δ-4 {[«4""»]|[4, '(A0)']|[4, '(A6-0x8)']}
<Call 0x207ce 0x10300> {[«4""»]|[4, '(A0)']|[4, '(A6-0x8)']}
FSCALL_10300
<POP 207d4-207d6 StackAdj> Δ+8 {[«4""»]}
<MI 207d6 TST.L (A7)+> Δ+4 {}
<MI 207d8 BNE 0x207ee> {}
<POP 207da-207ee Naked> Σ0 →0x207fa
<POP 207da-207dc StackAdj> Δ-4 {[-4-]}
<MI 207dc MOVE.L (A0),-(A7)> Δ-4 {[-4-]|[4, '(A0)']}
<MI 207de MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A0)']|[4, '(A6-0x8)']}
<Call 0x207e2 0x102d0> {[-4-]|[4, '(A0)']|[4, '(A6-0x8)']}
StringCat2(a, b : String) : String
<POP 207e8-207ea StackAdj> Δ+8 {[-4-]}
<MI 207ea MOVE.L (A7)+,(A0)> Δ+4 {}
<MI 207ec BRA 0x207fa> {}
<POP 207ee-207fa Naked> Σ0 ↓ ←0x20792
<Pointer.fp 0x207ee <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x207f2 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 207f8-207fa StackAdj> Δ+4 {}
<POP 207fa-20854 Naked> Σ0 ↓ ←0x207da
<Blob 0x207fa [16] @> Δ-16 {[«16""»]}
<POP 2080c-2080e StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x2080e 15> {[«16""»]|[$$STANDARD.CONFIG]}
<MI 20820 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«16""»]}
<POP 20824-20828 StackAdj> Δ+10 {[-6-]}
<MI 20828 MOVE.L (A0),(A7)> {[-2-]|[4, '(A0)']}
<MI 2082a MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A0)']|[4, '(A6-0x8)']}
<Call 0x2082e 0x102c8> {[-2-]|[4, '(A0)']|[4, '(A6-0x8)']}
StringEqual(a, b : String) : Byte
<POP 20834-20836 StackAdj> Δ+8 {[-2-]}
<MI 20836 MOVE.B (A7)+,D0> Δ+2 {}
<MI 20838 EXTB.W D0> {}
<POP 0x2083a LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 2083c MOVE.B D0,0x2149a> {}
<Pointer.fp 0x20842 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x20846 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 2084c-2084e StackAdj> Δ+4 {}
<MI 2084e MOVEA.L (A6+0x8),A0> {}
<MI 20852 MOVE.B D7,(A0)> {}
<POP 20854-2085c Epilogue> Σ0
@ 2085c
<LVAR 0x008 4(r)>
<POP 2085c-208f0 Body>
<POP 2085c-20872 Prologue> Σ0 ↓
<POP 20872-20874 RegCacheLoad> Σ0 ↓
<POP 20874-208be Naked> Σ0 ↓
<MI 20874 MOVEA.L (A6+0x8),A0> {}
<MI 20878 CLR.B (A0+0x5)> {}
<MI 2087c CLR.B (A0+0x4)> {}
<MI 20880 CLR.B (A0+0x3)> {}
<MI 20884 CLR.B (A0+0x2)> {}
<MI 20888 MOVE.B #0x01,(A0+0x2a)> {}
<MI 2088c CLR.B (A0+0x2b)> {}
<MI 20890 CLR.B (A0+0x2c)> {}
<MI 20894 CLR.B (A0+0x2d)> {}
<MI 20898 CLR.B (A0+0x2e)> {}
<MI 2089c MOVE.B #0x01,(A0+0x2f)> {}
<MI 208a0 MOVE.B #0x01,(A0+0x30)> {}
<MI 208a4 MOVE.B #0x01,(A0+0x31)> {}
<MI 208a8 CLR.B (A0+0x32)> {}
<MI 208ac LEA.L (A0+0x33),A0> {}
<MI 208b0 LEA.L 0x2019c,A1> {}
<BlockMove 30,A1,A0> {}
<MI 208bc MOVEQ.L #0x00,D7> {}
<POP 208be-208e8 Naked> Σ0 ↓ →0x208be ←0x208be
<MI 208be MOVEA.L (A6+0x8),A0> {}
<MI 208c2 MOVE.B D7,D0> {}
<MI 208c4 EXTB.W D0> {}
<MI 208c6 ASL.W #0x5,D0> {}
<MI 208c8 MOVE.B #0x01,(A0+D0.W+#0x51)> {}
<MI 208cc CLR.B (A0+D0.W+#0x52)> {}
<MI 208d0 LEA.L (A0+D0.W+#0x53),A0> {}
<MI 208d4 LEA.L 0x201ba,A1> {}
<BlockMove 30,A1,A0> {}
<MI 208e0 ADDQ.B #0x1,D7> {}
<MI 208e2 CMPI.B #0x09,D7> {}
<MI 208e6 BLE 0x208be> {}
<POP 208e8-208f0 Epilogue> Σ0
@ 208f0
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<POP 208f0-2093a Body>
<POP 208f0-20906 Prologue> Σ0 ↓
<POP 20906-2090c RegCacheLoad> Σ0 ↓
<POP 2090c-2092a Naked> Σ0 ↓ →0x20932
<MI 2090c MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Const 0x20910 0x3.4> Δ-4 {[4, '(A6+0x8)']|[##3]}
<Const 0x20914 0x2149c.4> Δ-4 {[4, '(A6+0x8)']|[##3]|[##136348]}
<Pointer.fp 0x20916 <LVAR -0x002 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##3]|[##136348]|[@@-2]}
<Call 0x2091a 0x1056e> {[4, '(A6+0x8)']|[##3]|[##136348]|[@@-2]}
Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool)
<POP 20920-20924 StackAdj> Δ+16 {}
<MI 20924 TST.B (A6-0x2)> {}
<MI 20928 BNE 0x20932> {}
<POP 2092a-20932 Naked> Σ0 ↓
<Const 0x2092a 0x2149c.4> Δ-4 {[##136348]}
<Call 0x2092c 0x2085c> {[##136348]}
<POP 20930-20932 StackAdj> Δ+4 {}
<POP 20932-2093a Epilogue> Σ0 ←0x2090c
@ 2093a
<LVAR -0x002 @ 1(r)>
<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 2093a-20b50 Body>
<POP 2093a-20950 Prologue> Σ0 ↓
<POP 20950-20968 RegCacheLoad> Σ0 ↓
<POP 20968-209a0 Naked> Σ0 Δ-30 ↓ →0x209bc
<MI 20968 MOVE.W 0x2058a,(A6-0x8)> {}
<MI 2096e MOVE.W 0x2058c,(A6-0x6)> {}
<MI 20974 MOVE.W 0x2058e,(A6-0x4)> {}
<Pointer.fp 0x2097a <LVAR -0x008 @ 1(r) 2(w)>> Δ-4 {[@@-8]}
<Pointer.fp 0x2097e <LVAR -0x002 @ 1(r)>> Δ-4 {[@@-8]|[@@-2]}
<Call 0x20982 0x1057a> {[@@-8]|[@@-2]}
Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool)
<POP 20988-20989 StackAdj> Δ+8 ↓ {}
<Blob 0x20989 [30] @> Δ-30 {[«30""»]}
<MI 2099a TST.B (A6-0x2)> {[«30""»]}
<MI 2099e BEQ 0x209bc> {[«30""»]}
<POP 209a0-209bc Naked> Σ-30 ↓ →0x20b44
<POP 209a0-209a2 StackAdj> Δ-6 {[-36-]}
<Lit 0x209a2> {[-32-]|[$$…]}
<Pointer.sp 0x209a2 6> Δ-4
<Const 0x209a6 0x1.2> Δ-2
<Const 0x209a8 0x1d.2> Δ-2
<Call 0x209ac 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 209ae-209b0 StackAdj> Δ+8
<POP 209ae-209b0 StackAdj> Δ-2 {[-32-]|[$$…]|[-2-]}
<MI 209b0 CLR.B (A7)> {[-32-]|[$$…]|[-2-]}
<Call 0x209b2 0x103f0> {[-32-]|[$$…]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 209b4-209b6 StackAdj> Δ+6 {[-32-]}
<MI 209b6 TST.B (A7)+> Δ+2 {[-30-]}
<MI 209b8 BEQ 0x20b44> {[-30-]}
<POP 209bc-209e2 Naked> Σ-30 Δ-52 ↓ →0x209e4 ←0x20968
<MI 209bc CLR.B (A6-0x8)> {[-30-]}
<Blob 0x209c0 [44] @> Δ-44 {[-30-]|[«44""»]}
<POP 209cc-209ce StackAdj> Δ-6 {[-30-]|[«44""»]|[-6-]}
<Lit 0x209ce 44> {[-30-]|[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]}
<POP 209d8-209da StackAdj> Δ-2 {[-30-]|[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]|[-2-]}
<MI 209da CLR.B (A7)> {[-30-]|[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]|[-2-]}
<MI 209dc TST.B (A6-0x7)> {[-30-]|[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]|[-2-]}
<MI 209e0 BNE 0x209e4> {[-30-]|[«44""»]|[-2-]|[$$Does this processor have 32 MB memory boards]|[-2-]}
<POP 209e2-209e4 Naked> Σ-82 ↓
<MI 209e2 ADDQ.B #0x1,(A7)> {[-82-]}
<POP 209e4-209ee Naked> Σ-82 Δ+8 ↓ →0x20abc ←0x209bc
<Call 0x209e4 0x103f0> {[-82-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 209e6-209e8 StackAdj> Δ+6 {[-76-]}
<MI 209e8 TST.B (A7)+> Δ+2 {[-74-]}
<MI 209ea BEQ 0x20abc> {[-74-]}
<POP 209ee-20abc Naked> Σ-74 →0x20b36
<MI 209ee CLR.B (A6-0x7)> {[-74-]}
<MI 209f2 CLR.B (A6-0x5)> {[-74-]}
<MI 209f6 CLR.B (A6-0x3)> {[-74-]}
<Blob 0x209fa [60] @> Δ-60 {[-74-]|[«60""»]}
<POP 20a06-20a08 StackAdj> Δ-4 {[-74-]|[«60""»]|[-4-]}
<Lit 0x20a08 60> {[-74-]|[«60""»]|[$$NOTE: 32 MB boards must be installed as MEM 0 or MEM 2 only.]}
<Call 0x20a14 0x103e0> {[-74-]|[«60""»]|[$$NOTE: 32 MB boards must be installed as MEM 0 or MEM 2 only.]}
WriteConsoleStringCrLf(str : String)
<POP 20a1a-20a1e StackAdj> Δ+64 {[-74-]}
<Blob 0x20a1e [60] @> Δ-60 {[-74-]|[«60""»]}
<POP 20a2a-20a2c StackAdj> Δ-4 {[-74-]|[«60""»]|[-4-]}
<Lit 0x20a2c 60> {[-74-]|[«60""»]|[$$ 8 MB boards cannot be in the same CPU as 32 MB boards.]}
<Call 0x20a38 0x103e0> {[-74-]|[«60""»]|[$$ 8 MB boards cannot be in the same CPU as 32 MB boards.]}
WriteConsoleStringCrLf(str : String)
<POP 20a3e-20a3f StackAdj> Δ+64 ↓ {[-74-]}
<Blob 0x20a3f [26] @> Δ-26 {[-74-]|[«26""»]}
<POP 20a50-20a52 StackAdj> Δ-4 {[-74-]|[«26""»]|[-4-]}
<Lit 0x20a52 25> {[-74-]|[«26""»]|[$$Does memory board 0 exist]}
<MI 20a5e MOVEA.L (A7)+,A4> Δ+4 {[-74-]|[«26""»]}
<POP 20a60-20a62 StackAdj> Δ+20 {[-74-]|[-6-]}
<MI 20a62 MOVE.L A4,(A7)> {[-74-]|[-2-]|[4, 'A4']}
<MI 20a64 MOVE.B (A6-0x6),D0> {[-74-]|[-2-]|[4, 'A4']}
<MI 20a68 EXTB.W D0> {[-74-]|[-2-]|[4, 'A4']}
<POP 0x20a6a LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-74-]|[-2-]|[4, 'A4']}
<MI 20a6c MOVE.B D0,-(A7)> Δ-2 {[-74-]|[-2-]|[4, 'A4']|[2, 'D0']}
<Call 0x20a6e 0x103f0> {[-74-]|[-2-]|[4, 'A4']|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20a70-20a72 StackAdj> Δ+6 {[-74-]|[-2-]}
<MI 20a72 MOVE.B (A7)+,D0> Δ+2 {[-74-]}
<MI 20a74 EXTB.W D0> {[-74-]}
<POP 0x20a76 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-74-]}
<MI 20a78 MOVE.B D0,(A6-0x6)> {[-74-]}
<Blob 0x20a7c [26] @> Δ-26 {[-74-]|[«26""»]}
<POP 20a8e-20a90 StackAdj> Δ-4 {[-74-]|[«26""»]|[-4-]}
<Lit 0x20a90 25> {[-74-]|[«26""»]|[$$Does memory board 2 exist]}
<MI 20a9c MOVEA.L (A7)+,A4> Δ+4 {[-74-]|[«26""»]}
<POP 20a9e-20aa0 StackAdj> Δ+20 {[-74-]|[-6-]}
<MI 20aa0 MOVE.L A4,(A7)> {[-74-]|[-2-]|[4, 'A4']}
<MI 20aa2 MOVE.B (A6-0x4),D0> {[-74-]|[-2-]|[4, 'A4']}
<MI 20aa6 EXTB.W D0> {[-74-]|[-2-]|[4, 'A4']}
<POP 0x20aa8 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-74-]|[-2-]|[4, 'A4']}
<MI 20aaa MOVE.B D0,-(A7)> Δ-2 {[-74-]|[-2-]|[4, 'A4']|[2, 'D0']}
<Call 0x20aac 0x103f0> {[-74-]|[-2-]|[4, 'A4']|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20aae-20ab0 StackAdj> Δ+6 {[-74-]|[-2-]}
<MI 20ab0 MOVE.B (A7)+,D0> Δ+2 {[-74-]}
<MI 20ab2 EXTB.W D0> {[-74-]}
<POP 0x20ab4 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-74-]}
<MI 20ab6 MOVE.B D0,(A6-0x4)> {[-74-]}
<MI 20aba BRA 0x20b36> {[-74-]}
<POP 20abc-20ac2 Naked> Σ-74 ↓ ←0x209e4
<MI 20abc MOVE.B #0x01,(A6-0x7)> {[-74-]}
<MI 20ac0 MOVEQ.L #0x00,D7> {[-74-]}
<POP 20ac2-20b36 Naked> Σ-74 ↓ →0x20ac2 ←0x20ac2
<Blob 0x20ac2 [18] @> Δ-18 {[-74-]|[«18""»]}
<Blob 0x20ace [2] @> Δ-2 {[-74-]|[«18""»]|[«2""»]}
<Blob 0x20ad2 [2] @> Δ-2 {[-74-]|[«18""»]|[«2""»]|[«2""»]}
<Blob 0x20ad6 [2] @> Δ-2 {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]}
<POP 20ada-20adc StackAdj> Δ-8 {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-8-]}
<Lit 0x20adc 18> {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[$$Does memory board_]}
<MI 20ae8 MOVE.L D7,(A7)> {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']}
<POP 20ae6-20ae8 StackAdj> Δ-8 {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x20aea 0x102e4> {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x20af0 6> {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']|[-4-]|[$$ exist]}
<Call 0x20afe 0x102d4> {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]|[4, 'D7']|[-4-]|[$$ exist]}
StringCat3(a, b, c : String) : String
<POP 20b04-20b08 StackAdj> Δ+12 {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]|[-4-]}
<MI 20b08 MOVEA.L (A7)+,A4> Δ+4 {[-74-]|[«18""»]|[«2""»]|[«2""»]|[«2""»]}
<POP 20b0a-20b0e StackAdj> Δ+24 {[-74-]}
<POP 0x20b0e LimitCheck 0x0 ≤ D7 ≤ 0x3> {[-74-]}
<POP 20b14-20b16 StackAdj> Δ-2 {[-76-]}
<MI 20b16 MOVE.L A4,-(A7)> Δ-4 {[-76-]|[4, 'A4']}
<MI 20b18 MOVE.B (A6+D7.L-#0x6),D0> {[-76-]|[4, 'A4']}
<MI 20b1c EXTB.W D0> {[-76-]|[4, 'A4']}
<POP 0x20b1e LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-76-]|[4, 'A4']}
<MI 20b20 MOVE.B D0,-(A7)> Δ-2 {[-76-]|[4, 'A4']|[2, 'D0']}
<Call 0x20b22 0x103f0> {[-76-]|[4, 'A4']|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20b24-20b26 StackAdj> Δ+6 {[-76-]}
<MI 20b26 MOVE.B (A7)+,D0> Δ+2 {[-74-]}
<MI 20b28 EXTB.W D0> {[-74-]}
<POP 0x20b2a LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-74-]}
<MI 20b2c MOVE.B D0,(A6+D7.L-#0x6)> {[-74-]}
<MI 20b30 ADDQ.L #0x1,D7> {[-74-]}
<MI 20b32 CMP.L #0x03,D7> {[-74-]}
<MI 20b34 BLE 0x20ac2> {[-74-]}
<POP 20b36-20b44 Naked> Σ-74 Δ+44 ↓ ←0x209ee
<POP 20b36-20b38 StackAdj> Δ+44 {[-30-]}
<Pointer.fp 0x20b38 <LVAR -0x008 @ 1(r) 2(w)>> Δ-4 {[-30-]|[@@-8]}
<Call 0x20b3c 0x10580> {[-30-]|[@@-8]}
Write_HARDWARE.M200_CONFIG(a : Pointer)
<POP 20b42-20b44 StackAdj> Δ+4 {[-30-]}
<POP 20b44-20b48 Naked> Σ-30 Δ+30 ↓ ←0x209a0
<POP 20b44-20b48 StackAdj> Δ+30 {}
<POP 20b48-20b50 Epilogue> Σ0
@ 20b50
<POP 20b50-20c74 Body>
<POP 20b50-20b66 Prologue> Σ0 ↓
<POP 20b66-20b82 RegCacheLoad> Σ0 ↓
<POP 20b82-20c6c Naked> Σ0 ↓
<Blob 0x20b82 [40] @> Δ-40 {[«40""»]}
<POP 20b92-20b94 StackAdj> Δ-6 {[«40""»]|[-6-]}
<Lit 0x20b94 39> {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]}
<MI 20ba2 MOVE.B 0x2149e,D0> {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]}
<MI 20ba4 EXTB.W D0> {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]}
<POP 0x20ba6 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]}
<MI 20ba8 MOVE.B D0,-(A7)> Δ-2 {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]|[2, 'D0']}
<Call 0x20baa 0x103f0> {[«40""»]|[-2-]|[$$Allow operator to enter CLI immediately]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20bac-20bae StackAdj> Δ+6 {[«40""»]|[-2-]}
<MI 20bae MOVE.B (A7)+,D0> Δ+2 {[«40""»]}
<MI 20bb0 EXTB.W D0> {[«40""»]}
<POP 0x20bb2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«40""»]}
<POP 20bb4-20bb6 StackAdj> Δ+40 {}
<MI 20bb6 MOVE.B D0,0x2149e> {}
<Blob 0x20bb8 [30] @> Δ-30 {[«30""»]}
<POP 20bc4-20bc6 StackAdj> Δ-6 {[«30""»]|[-6-]}
<Lit 0x20bc6 30> {[«30""»]|[-2-]|[$$Allow editing of configuration]}
<MI 20bd2 MOVE.B 0x2149f,D0> {[«30""»]|[-2-]|[$$Allow editing of configuration]}
<MI 20bd8 EXTB.W D0> {[«30""»]|[-2-]|[$$Allow editing of configuration]}
<POP 0x20bda LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«30""»]|[-2-]|[$$Allow editing of configuration]}
<MI 20bdc MOVE.B D0,-(A7)> Δ-2 {[«30""»]|[-2-]|[$$Allow editing of configuration]|[2, 'D0']}
<Call 0x20bde 0x103f0> {[«30""»]|[-2-]|[$$Allow editing of configuration]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20be0-20be2 StackAdj> Δ+6 {[«30""»]|[-2-]}
<MI 20be2 MOVE.B (A7)+,D0> Δ+2 {[«30""»]}
<MI 20be4 EXTB.W D0> {[«30""»]}
<POP 0x20be6 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«30""»]}
<POP 20be8-20bea StackAdj> Δ+30 {}
<MI 20bea MOVE.B D0,0x2149f> {}
<Blob 0x20bf0 [58] @> Δ-58 {[«58""»]}
<POP 20c00-20c02 StackAdj> Δ-6 {[«58""»]|[-6-]}
<Lit 0x20c02 57> {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]}
<MI 20c10 MOVE.B 0x214a0,D0> {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]}
<MI 20c16 EXTB.W D0> {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]}
<POP 0x20c18 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]}
<MI 20c1a MOVE.B D0,-(A7)> Δ-2 {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]|[2, 'D0']}
<Call 0x20c1c 0x103f0> {[«58""»]|[-2-]|[$$Allow operator to enter CLI prior to starting the cluster]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20c1e-20c20 StackAdj> Δ+6 {[«58""»]|[-2-]}
<MI 20c20 MOVE.B (A7)+,D0> Δ+2 {[«58""»]}
<MI 20c22 EXTB.W D0> {[«58""»]}
<POP 0x20c24 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«58""»]}
<POP 20c26-20c28 StackAdj> Δ+58 {}
<MI 20c28 MOVE.B D0,0x214a0> {}
<Blob 0x20c2e [34] @> Δ-34 {[«34""»]}
<POP 20c3e-20c40 StackAdj> Δ-6 {[«34""»]|[-6-]}
<Lit 0x20c40 33> {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]}
<MI 20c4e MOVE.B 0x214a1,D0> {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]}
<MI 20c54 EXTB.W D0> {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]}
<POP 0x20c56 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]}
<MI 20c58 MOVE.B D0,-(A7)> Δ-2 {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]|[2, 'D0']}
<Call 0x20c5a 0x103f0> {[«34""»]|[-2-]|[$$Load kernel layer subsystems only]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20c5c-20c5e StackAdj> Δ+6 {[«34""»]|[-2-]}
<MI 20c5e MOVE.B (A7)+,D0> Δ+2 {[«34""»]}
<MI 20c60 EXTB.W D0> {[«34""»]}
<POP 0x20c62 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«34""»]}
<POP 20c64-20c66 StackAdj> Δ+34 {}
<MI 20c66 MOVE.B D0,0x214a1> {}
<POP 20c6c-20c74 Epilogue> Σ0
@ 20c74
<POP 20c74-20dda Body>
<POP 20c74-20c8a Prologue> Σ0 ↓
<POP 20c8a-20ca8 RegCacheLoad> Σ0 ↓
<POP 20ca8-20dd2 Naked> Σ0 ↓
<Blob 0x20ca8 [30] @> Δ-30 {[«30""»]}
<POP 20cb8-20cba StackAdj> Δ-6 {[«30""»]|[-6-]}
<Lit 0x20cba 29> {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]}
<MI 20cc6 MOVE.B 0x214c6,D0> {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]}
<MI 20cc8 EXTB.W D0> {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]}
<POP 0x20cca LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]}
<MI 20ccc MOVE.B D0,-(A7)> Δ-2 {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]|[2, 'D0']}
<Call 0x20cce 0x103f0> {[«30""»]|[-2-]|[$$Auto boot the kernel debugger]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20cd0-20cd2 StackAdj> Δ+6 {[«30""»]|[-2-]}
<MI 20cd2 MOVE.B (A7)+,D0> Δ+2 {[«30""»]}
<MI 20cd4 EXTB.W D0> {[«30""»]}
<POP 0x20cd6 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«30""»]}
<POP 20cd8-20cda StackAdj> Δ+30 {}
<MI 20cda MOVE.B D0,0x214c6> {}
<Blob 0x20cdc [44] @> Δ-44 {[«44""»]}
<POP 20cec-20cee StackAdj> Δ-6 {[«44""»]|[-6-]}
<Lit 0x20cee 43> {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]}
<MI 20cfc MOVE.B 0x214c7,D0> {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]}
<MI 20d02 EXTB.W D0> {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]}
<POP 0x20d04 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]}
<MI 20d06 MOVE.B D0,-(A7)> Δ-2 {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]|[2, 'D0']}
<Call 0x20d08 0x103f0> {[«44""»]|[-2-]|[$$Wait for remote debugging on kernel crashes]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20d0a-20d0c StackAdj> Δ+6 {[«44""»]|[-2-]}
<MI 20d0c MOVE.B (A7)+,D0> Δ+2 {[«44""»]}
<MI 20d0e EXTB.W D0> {[«44""»]}
<POP 0x20d10 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«44""»]}
<POP 20d12-20d14 StackAdj> Δ+44 {}
<MI 20d14 MOVE.B D0,0x214c7> {}
<Blob 0x20d1a [30] @> Δ-30 {[«30""»]}
<POP 20d2a-20d2c StackAdj> Δ-6 {[«30""»]|[-6-]}
<Lit 0x20d2c 29> {[«30""»]|[-2-]|[$$Call Rational on kernel crash]}
<MI 20d38 MOVE.B 0x214c8,D0> {[«30""»]|[-2-]|[$$Call Rational on kernel crash]}
<MI 20d3e EXTB.W D0> {[«30""»]|[-2-]|[$$Call Rational on kernel crash]}
<POP 0x20d40 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«30""»]|[-2-]|[$$Call Rational on kernel crash]}
<MI 20d42 MOVE.B D0,-(A7)> Δ-2 {[«30""»]|[-2-]|[$$Call Rational on kernel crash]|[2, 'D0']}
<Call 0x20d44 0x103f0> {[«30""»]|[-2-]|[$$Call Rational on kernel crash]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20d46-20d48 StackAdj> Δ+6 {[«30""»]|[-2-]}
<MI 20d48 MOVE.B (A7)+,D0> Δ+2 {[«30""»]}
<MI 20d4a EXTB.W D0> {[«30""»]}
<POP 0x20d4c LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«30""»]}
<POP 20d4e-20d50 StackAdj> Δ+30 {}
<MI 20d50 MOVE.B D0,0x214c8> {}
<MI 20d56 CLR.B 0x214c9> {}
<MI 20d5c CLR.B 0x214ca> {}
<Blob 0x20d62 [36] @> Δ-36 {[«36""»]}
<POP 20d6e-20d70 StackAdj> Δ-6 {[«36""»]|[-6-]}
<Lit 0x20d70 36> {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]}
<MI 20d7c MOVE.B 0x214cb,D0> {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]}
<MI 20d82 EXTB.W D0> {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]}
<POP 0x20d84 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]}
<MI 20d86 MOVE.B D0,-(A7)> Δ-2 {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]|[2, 'D0']}
<Call 0x20d88 0x103f0> {[«36""»]|[-2-]|[$$Auto boot the environment elaborator]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20d8a-20d8c StackAdj> Δ+6 {[«36""»]|[-2-]}
<MI 20d8c MOVE.B (A7)+,D0> Δ+2 {[«36""»]}
<MI 20d8e EXTB.W D0> {[«36""»]}
<POP 0x20d90 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«36""»]}
<POP 20d92-20d94 StackAdj> Δ+36 {}
<MI 20d94 MOVE.B D0,0x214cb> {}
<Blob 0x20d9a [20] @> Δ-20 {[«20""»]}
<POP 20da6-20da8 StackAdj> Δ-6 {[«20""»]|[-6-]}
<Lit 0x20da8 20> {[«20""»]|[-2-]|[$$Auto boot the kernel]}
<MI 20db4 MOVE.B 0x214cc,D0> {[«20""»]|[-2-]|[$$Auto boot the kernel]}
<MI 20dba EXTB.W D0> {[«20""»]|[-2-]|[$$Auto boot the kernel]}
<POP 0x20dbc LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«20""»]|[-2-]|[$$Auto boot the kernel]}
<MI 20dbe MOVE.B D0,-(A7)> Δ-2 {[«20""»]|[-2-]|[$$Auto boot the kernel]|[2, 'D0']}
<Call 0x20dc0 0x103f0> {[«20""»]|[-2-]|[$$Auto boot the kernel]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20dc2-20dc4 StackAdj> Δ+6 {[«20""»]|[-2-]}
<MI 20dc4 MOVE.B (A7)+,D0> Δ+2 {[«20""»]}
<MI 20dc6 EXTB.W D0> {[«20""»]}
<POP 0x20dc8 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«20""»]}
<POP 20dca-20dcc StackAdj> Δ+20 {}
<MI 20dcc MOVE.B D0,0x214cc> {}
<POP 20dd2-20dda Epilogue> Σ0
@ 20dda
<LVAR -0x008 @ 1(r)>
<POP 20dda-20f2a Body>
<POP 20dda-20df0 Prologue> Σ0 ↓
<POP 20df0-20e08 RegCacheLoad> Σ0 ↓
<POP 20e08-20e10 Naked> Σ0 ↓ →0x20e14
<MI 20e08 TST.B 0x2149a> {}
<MI 20e0e BEQ 0x20e14> {}
<POP 20e10-20e14 Naked> Σ0 →0x20e48
<MI 20e10 CLR.B 0x214cd> {}
<MI 20e12 BRA 0x20e48> {}
<POP 20e14-20e48 Naked> Σ0 ↓ ←0x20e08
<Blob 0x20e14 [42] @> Δ-42 {[«42""»]}
<POP 20e20-20e22 StackAdj> Δ-6 {[«42""»]|[-6-]}
<Lit 0x20e22 42> {[«42""»]|[-2-]|[$$Take microcode from standard configuration]}
<MI 20e2e MOVE.B 0x214cd,D0> {[«42""»]|[-2-]|[$$Take microcode from standard configuration]}
<MI 20e30 EXTB.W D0> {[«42""»]|[-2-]|[$$Take microcode from standard configuration]}
<POP 0x20e32 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«42""»]|[-2-]|[$$Take microcode from standard configuration]}
<MI 20e34 MOVE.B D0,-(A7)> Δ-2 {[«42""»]|[-2-]|[$$Take microcode from standard configuration]|[2, 'D0']}
<Call 0x20e36 0x103f0> {[«42""»]|[-2-]|[$$Take microcode from standard configuration]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20e3c-20e3e StackAdj> Δ+6 {[«42""»]|[-2-]}
<MI 20e3e MOVE.B (A7)+,D0> Δ+2 {[«42""»]}
<MI 20e40 EXTB.W D0> {[«42""»]}
<POP 0x20e42 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«42""»]}
<POP 20e44-20e46 StackAdj> Δ+42 {}
<MI 20e46 MOVE.B D0,0x214cd> {}
<POP 20e48-20e4e Naked> Σ0 ↓ →0x20f22 ←0x20e10
<MI 20e48 TST.B 0x214cd> {}
<MI 20e4a BNE 0x20f22> {}
<POP 20e4e-20eb6 Naked> Σ0 ↓ →0x20ede ←0x20f04
<Blob 0x20e4e [58] @> Δ-58 {[«58""»]}
<POP 20e5a-20e5c StackAdj> Δ-6 {[«58""»]|[-6-]}
<Lit 0x20e5c 58> {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]}
<MI 20e68 MOVE.B 0x214ce,D0> {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]}
<MI 20e6e EXTB.W D0> {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]}
<POP 0x20e70 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]}
<MI 20e72 MOVE.B D0,-(A7)> Δ-2 {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]|[2, 'D0']}
<Call 0x20e74 0x103f0> {[«58""»]|[-2-]|[$$Should this configuration query for microcode when booting]|[2, 'D0']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20e7a-20e7c StackAdj> Δ+6 {[«58""»]|[-2-]}
<MI 20e7c MOVE.B (A7)+,D0> Δ+2 {[«58""»]}
<MI 20e7e EXTB.W D0> {[«58""»]}
<POP 0x20e80 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«58""»]}
<POP 20e82-20e84 StackAdj> Δ+58 {}
<MI 20e84 MOVE.B D0,0x214ce> {}
<Blob 0x20e8a [30] 0x214cf> Δ-30 {[«30»]}
<POP 20e9c-20e9e StackAdj> Δ-4 {[«30»]|[-4-]}
<Lit 0x20e9e> {[«30»]|[$$…]}
<Pointer.sp 0x20e9e 4> Δ-4
<Const 0x20ea2 0x1.2> Δ-2
<Const 0x20ea4 0x1e.2> Δ-2
<Call 0x20ea6 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20ea8-20eaa StackAdj> Δ+8
<MI 20eaa MOVEA.L (A7)+,A4> Δ+4 {[«30»]}
<POP 20eac-20eae StackAdj> Δ+30 {}
<MI 20eae TST.B 0x214ce> {}
<MI 20eb4 BEQ 0x20ede> {}
<POP 20eb6-20ede Naked> Σ0 →0x20f04
<Blob 0x20eb6 [28] @> Δ-28 {[«28""»]}
<POP 20ec2-20ec4 StackAdj> Δ-8 {[«28""»]|[-8-]}
<Lit 0x20ec4 28> {[«28""»]|[-4-]|[$$Enter default microcode name]}
<POP 20ece-20ed0 StackAdj> Δ-4 {[«28""»]|[-4-]|[$$Enter default microcode name]|[-4-]}
<MI 20ed0 MOVE.L A4,(A7)> {[«28""»]|[-4-]|[$$Enter default microcode name]|[4, 'A4']}
<Call 0x20ed2 0x20590> {[«28""»]|[-4-]|[$$Enter default microcode name]|[4, 'A4']}
<POP 20ed6-20ed8 StackAdj> Δ+8 {[«28""»]|[-4-]}
<MI 20ed8 MOVEA.L (A7)+,A4> Δ+4 {[«28""»]}
<POP 20eda-20edc StackAdj> Δ+28 {}
<MI 20edc BRA 0x20f04> {}
<POP 20ede-20f04 Naked> Σ0 ↓ ←0x20e4e
<Blob 0x20ede [20] @> Δ-20 {[«20""»]}
<POP 20eea-20eec StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x20eec 20> {[«20""»]|[-4-]|[$$Enter microcode name]}
<POP 20ef6-20ef8 StackAdj> Δ-4 {[«20""»]|[-4-]|[$$Enter microcode name]|[-4-]}
<MI 20ef8 MOVE.L A4,(A7)> {[«20""»]|[-4-]|[$$Enter microcode name]|[4, 'A4']}
<Call 0x20efa 0x20590> {[«20""»]|[-4-]|[$$Enter microcode name]|[4, 'A4']}
<POP 20efe-20f00 StackAdj> Δ+8 {[«20""»]|[-4-]}
<MI 20f00 MOVEA.L (A7)+,A4> Δ+4 {[«20""»]}
<POP 20f02-20f04 StackAdj> Δ+20 {}
<POP 20f04-20f22 Naked> Σ0 ↓ →0x20e4e ←0x20eb6
<MI 20f04 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Const 0x20f06 0x214cf.4> Δ-4 {[4, 'A4']|[##136399]}
<Pointer.fp 0x20f0c <LVAR -0x008 @ 1(r)>> Δ-4 {[4, 'A4']|[##136399]|[@@-8]}
<Call 0x20f10 0x1058c> {[4, 'A4']|[##136399]|[@@-8]}
FSCALL_1058c
<POP 20f16-20f1a StackAdj> Δ+12 {}
<MI 20f1a TST.B (A6-0x8)> {}
<MI 20f1e BEQ 0x20e4e> {}
<POP 20f22-20f2a Epilogue> Σ0 ←0x20e48
@ 20f2a
<LVAR -0x002 @ 1(r)>
<POP 20f2a-21144 Body>
<POP 20f2a-20f40 Prologue> Σ0 ↓
<POP 20f40-20f4c RegCacheLoad> Σ0 ↓
<POP 20f4c-20f54 Naked> Σ0 ↓ →0x20f58
<MI 20f4c TST.B 0x214a1> {}
<MI 20f52 BEQ 0x20f58> {}
<POP 20f54-20f58 Naked> Σ0 →0x20f5a
<MI 20f54 MOVEQ.L #0x04,D6> {}
<MI 20f56 BRA 0x20f5a> {}
<POP 20f58-20f5a Naked> Σ0 ↓ ←0x20f4c
<MI 20f58 MOVEQ.L #0x09,D6> {}
<POP 20f5a-20f62 Naked> Σ0 Δ-2 ↓ →0x20f6c ←0x20f54
<MI 20f5a MOVE.B D6,-(A7)> Δ-2 {[2, 'D6']}
<MI 20f5c MOVEQ.L #0x00,D7> {[2, 'D6']}
<MI 20f5e CMP.B (A7),D7> {[2, 'D6']}
<MI 20f60 BGT 0x20f6c> {[2, 'D6']}
<POP 20f62-20f6c Naked> Σ-2 ↓
<MI 20f62 MOVE.B (A7),D0> {[-2-]}
<POP 0x20f64 LimitCheck D0 ≤ 0x9> {[-2-]}
<MI 20f64 CMPI.B #0x09,D0>
<MI 20f68 BLE 0x20f6c>
<MI 20f6a TRAP #15>
<POP 20f6c-20f72 Naked> Σ-2 ↓ →0x2113a ←0x20f5a ←0x21132
<MI 20f6c CMP.B (A7),D7> {[-2-]}
<MI 20f6e BGT 0x2113a> {[-2-]}
<POP 20f72-20f8a Naked> Σ-2 Δ-6 ↓ →0x20f90
<MI 20f72 MOVE.B D7,D0> {[-2-]}
<MI 20f74 EXTB.W D0> {[-2-]}
<MI 20f76 ASL.W #0x5,D0> {[-2-]}
<MI 20f78 LEA.L 0x21492,A0> {[-2-]}
<MI 20f7e MOVE.W D0,-(A7)> Δ-2 {[-2-]|[2, 'D0']}
<MI 20f80 MOVE.L A0,-(A7)> Δ-4 {[-2-]|[2, 'D0']|[4, 'A0']}
<MI 20f82 TST.B 0x2149a> {[-2-]|[2, 'D0']|[4, 'A0']}
<MI 20f88 BEQ 0x20f90> {[-2-]|[2, 'D0']|[4, 'A0']}
<POP 20f8a-20f90 Naked> Σ-8 →0x20ffc
<MI 20f8a CLR.B (A0+D0.W+#0x5b)> {[-8-]}
<MI 20f8e BRA 0x20ffc> {[-8-]}
<POP 20f90-20ffc Naked> Σ-8 ↓ ←0x20f72
<Blob 0x20f90 [6] @> Δ-6 {[-8-]|[«6""»]}
<Blob 0x20fa0 [28] @> Δ-28 {[-8-]|[«6""»]|[«28""»]}
<POP 20fac-20fb0 StackAdj> Δ-10 {[-8-]|[«6""»]|[«28""»]|[-10-]}
<Lit 0x20fb0 5> {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]}
<POP 20fbc-20fbe StackAdj> Δ-6 {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-6-]}
<MI 20fbe MOVE.B D7,(A7)> {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-6-]}
<Call 0x20fc0 0x10586> {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-6-]}
Config_Entry_Name(a : Byte) : String
<POP 20fc6-20fc8 StackAdj> Δ-2 {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-8-]}
<Lit 0x20fc8 28> {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-4-]|[$$ from standard configuration]}
<Call 0x20fd6 0x102d4> {[-8-]|[«6""»]|[«28""»]|[-6-]|[$$Take_]|[-4-]|[$$ from standard configuration]}
StringCat3(a, b, c : String) : String
<POP 20fdc-20fde StackAdj> Δ+12 {[-8-]|[«6""»]|[«28""»]|[-6-]}
<MI 20fde MOVE.B (A0+D0.W+#0x5b),D1> {[-8-]|[«6""»]|[«28""»]|[-6-]}
<MI 20fe2 EXTB.W D1> {[-8-]|[«6""»]|[«28""»]|[-6-]}
<POP 0x20fe4 LimitCheck 0x0 ≤ D1 ≤ 0x1> {[-8-]|[«6""»]|[«28""»]|[-6-]}
<MI 20fe6 MOVE.B D1,-(A7)> Δ-2 {[-8-]|[«6""»]|[«28""»]|[-6-]|[2, 'D1']}
<Call 0x20fe8 0x103f0> {[-8-]|[«6""»]|[«28""»]|[-6-]|[2, 'D1']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20fee-20ff0 StackAdj> Δ+6 {[-8-]|[«6""»]|[«28""»]|[-2-]}
<MI 20ff0 MOVE.B (A7)+,D1> Δ+2 {[-8-]|[«6""»]|[«28""»]}
<MI 20ff2 EXTB.W D1> {[-8-]|[«6""»]|[«28""»]}
<POP 0x20ff4 LimitCheck 0x0 ≤ D1 ≤ 0x1> {[-8-]|[«6""»]|[«28""»]}
<POP 20ff6-20ff8 StackAdj> Δ+34 {[-8-]}
<MI 20ff8 MOVE.B D1,(A0+D0.W+#0x5b)> {[-8-]}
<POP 20ffc-21004 Naked> Σ-8 ↓ →0x21132 ←0x20f8a
<MI 20ffc TST.B (A0+D0.W+#0x5b)> {[-8-]}
<MI 21000 BNE 0x21132> {[-8-]}
<POP 21004-21096 Naked> Σ-8 ↓ →0x210d6 ←0x21118
<MI 21004 MOVEA.L (A7),A0> {[-8-]}
<MI 21006 MOVE.W (A7+0x4),D0> {[-8-]}
<Blob 0x2100a [36] @> Δ-36 {[-8-]|[«36""»]}
<POP 21016-2101a StackAdj> Δ-10 {[-8-]|[«36""»]|[-10-]}
<Lit 0x2101a 36> {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]}
<POP 21026-21028 StackAdj> Δ-6 {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-6-]}
<MI 21028 MOVE.B D7,(A7)> {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-6-]}
<Call 0x2102a 0x10586> {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-6-]}
Config_Entry_Name(a : Byte) : String
<POP 21030-21032 StackAdj> Δ+2 {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-4-]}
<Call 0x21032 0x102d0> {[-8-]|[«36""»]|[-6-]|[$$Should this configuration query for_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21038-2103a StackAdj> Δ+8 {[-8-]|[«36""»]|[-6-]}
<MI 2103a MOVE.B (A0+D0.W+#0x5c),D1> {[-8-]|[«36""»]|[-6-]}
<MI 2103e EXTB.W D1> {[-8-]|[«36""»]|[-6-]}
<POP 0x21040 LimitCheck 0x0 ≤ D1 ≤ 0x1> {[-8-]|[«36""»]|[-6-]}
<MI 21042 MOVE.B D1,-(A7)> Δ-2 {[-8-]|[«36""»]|[-6-]|[2, 'D1']}
<Call 0x21044 0x103f0> {[-8-]|[«36""»]|[-6-]|[2, 'D1']}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 2104a-2104c StackAdj> Δ+6 {[-8-]|[«36""»]|[-2-]}
<MI 2104c MOVE.B (A7)+,D1> Δ+2 {[-8-]|[«36""»]}
<MI 2104e EXTB.W D1> {[-8-]|[«36""»]}
<POP 0x21050 LimitCheck 0x0 ≤ D1 ≤ 0x1> {[-8-]|[«36""»]}
<POP 21052-21056 StackAdj> Δ+36 {[-8-]}
<MI 21056 MOVE.B D1,(A0+D0.W+#0x5c)> {[-8-]}
<MI 2105a MOVE.B D7,D1> {[-8-]}
<MI 2105c EXTB.W D1> {[-8-]}
<MI 2105e MOVE.W D1,D2> {[-8-]}
<MI 21060 ASL.W #0x5,D2> {[-8-]}
<MI 21062 LEA.L 0x21492,A1> {[-8-]}
<Blob 0x21068 [30] (A1+D2.W+#0x5d)> Δ-30 {[-8-]|[«30»]}
<POP 2107a-2107c StackAdj> Δ-4 {[-8-]|[«30»]|[-4-]}
<Lit 0x2107c> {[-8-]|[«30»]|[$$…]}
<Pointer.sp 0x2107c 4> Δ-4
<Const 0x21080 0x1.2> Δ-2
<Const 0x21082 0x1e.2> Δ-2
<Call 0x21086 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21088-2108a StackAdj> Δ+8
<MI 2108a MOVEA.L (A7)+,A4> Δ+4 {[-8-]|[«30»]}
<POP 2108c-21090 StackAdj> Δ+30 {[-8-]}
<MI 21090 TST.B (A0+D0.W+#0x5c)> {[-8-]}
<MI 21094 BEQ 0x210d6> {[-8-]}
<POP 21096-210d6 Naked> Σ-8 →0x21118
<Blob 0x21096 [34] @> Δ-34 {[-8-]|[«34""»]}
<POP 210a6-210a8 StackAdj> Δ-12 {[-8-]|[«34""»]|[-12-]}
<Lit 0x210a8 33> {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]}
<POP 210b4-210b6 StackAdj> Δ-6 {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-6-]}
<MI 210b6 MOVE.B D1,(A7)> {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-6-]}
<Call 0x210b8 0x10586> {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-6-]}
Config_Entry_Name(a : Byte) : String
<POP 210be-210c0 StackAdj> Δ+2 {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-4-]}
<Call 0x210c0 0x102d0> {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]|[-4-]}
StringCat2(a, b : String) : String
<POP 210c6-210c8 StackAdj> Δ+4 {[-8-]|[«34""»]|[-8-]|[$$Enter default subsystem name for_]}
<MI 210c8 MOVE.L A4,(A7)> {[-8-]|[«34""»]|[-8-]|[4, 'A4']}
<Call 0x210ca 0x20590> {[-8-]|[«34""»]|[-8-]|[4, 'A4']}
<POP 210ce-210d0 StackAdj> Δ+8 {[-8-]|[«34""»]|[-4-]}
<MI 210d0 MOVEA.L (A7)+,A4> Δ+4 {[-8-]|[«34""»]}
<POP 210d2-210d4 StackAdj> Δ+34 {[-8-]}
<MI 210d4 BRA 0x21118> {[-8-]}
<POP 210d6-21118 Naked> Σ-8 ↓ ←0x21004
<Blob 0x210d6 [26] @> Δ-26 {[-8-]|[«26""»]}
<POP 210e8-210ea StackAdj> Δ-12 {[-8-]|[«26""»]|[-12-]}
<Lit 0x210ea 25> {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]}
<POP 210f6-210f8 StackAdj> Δ-6 {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-6-]}
<MI 210f8 MOVE.B D1,(A7)> {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-6-]}
<Call 0x210fa 0x10586> {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-6-]}
Config_Entry_Name(a : Byte) : String
<POP 21100-21102 StackAdj> Δ+2 {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-4-]}
<Call 0x21102 0x102d0> {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21108-2110a StackAdj> Δ+4 {[-8-]|[«26""»]|[-8-]|[$$Enter subsystem name for_]}
<MI 2110a MOVE.L A4,(A7)> {[-8-]|[«26""»]|[-8-]|[4, 'A4']}
<Call 0x2110c 0x20590> {[-8-]|[«26""»]|[-8-]|[4, 'A4']}
<POP 21110-21112 StackAdj> Δ+8 {[-8-]|[«26""»]|[-4-]}
<MI 21112 MOVEA.L (A7)+,A4> Δ+4 {[-8-]|[«26""»]}
<POP 21114-21118 StackAdj> Δ+26 {[-8-]}
<POP 21118-21132 Naked> Σ-8 ↓ →0x21004 ←0x21096
<MI 21118 MOVE.L A4,-(A7)> Δ-4 {[-8-]|[4, 'A4']}
<MI 2111a PEA.L (A0+D0.W+#0x5d)> Δ-4 {[-8-]|[4, 'A4']|[4, '^(A0+D0.W+#0x5d)']}
<Pointer.fp 0x2111e <LVAR -0x002 @ 1(r)>> Δ-4 {[-8-]|[4, 'A4']|[4, '^(A0+D0.W+#0x5d)']|[@@-2]}
<Call 0x21122 0x1058c> {[-8-]|[4, 'A4']|[4, '^(A0+D0.W+#0x5d)']|[@@-2]}
FSCALL_1058c
<POP 21128-2112a StackAdj> Δ+12 {[-8-]}
<MI 2112a TST.B (A6-0x2)> {[-8-]}
<MI 2112e BEQ 0x21004> {[-8-]}
<POP 21132-2113a Naked> Σ-8 Δ+6 ↓ →0x20f6c ←0x20ffc
<POP 21132-21134 StackAdj> Δ+6 {[-2-]}
<MI 21134 ADDQ.B #0x1,D7> {[-2-]}
<MI 21136 BVC 0x20f6c> {[-2-]}
<POP 2113a-2113c Naked> Σ-2 Δ+2 ↓ ←0x20f6c
<POP 2113a-2113c StackAdj> Δ+2 {}
<POP 2113c-21144 Epilogue> Σ0
@ 21144
<POP 21144-2116a Body>
<POP 21144-21156 Prologue> Σ0 ↓
<POP 21156-21166 Naked> Σ0 ↓
<Call 0x21156 0x20b50> {}
<Call 0x2115a 0x20c74> {}
<Call 0x2115e 0x20dda> {}
<Call 0x21162 0x20f2a> {}
<POP 21166-2116a Epilogue> Σ0
@ 2116a
<LVAR 0x008 4(r)>
<POP 2116a-211c6 Body>
<POP 2116a-21180 Prologue> Σ0 ↓
<POP 21180-211be Naked> Σ0 ↓
<MI 21180 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Const 0x21184 0x2149c.4> Δ-4 {[4, '(A6+0x8)']|[##136348]}
<Call 0x2118a 0x10574> {[4, '(A6+0x8)']|[##136348]}
Write_ConfigFile(name: String; dst: Pointer)
<POP 21190-21192 StackAdj> Δ+8 {}
<Blob 0x21192 [20] @> Δ-20 {[«20""»]}
<POP 2119e-211a0 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x211a0 20> {[«20""»]|[$$Configuration saved.]}
<Call 0x211b4 0x103e0> {[«20""»]|[$$Configuration saved.]}
WriteConsoleStringCrLf(str : String)
<POP 211ba-211be StackAdj> Δ+24 {}
<POP 211be-211c6 Epilogue> Σ0
@ 211c6
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<POP 211c6-21260 Body>
<POP 211c6-211dc Prologue> Σ0 ↓
<POP 211dc-211e6 RegCacheLoad> Σ0 ↓
<POP 211e6-2120a Naked> Σ0 Δ-30 ↓ →0x2122c
<Pointer.fp 0x211e6 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x211e8 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-12]|[@@-8]}
<Pointer.fp 0x211ea <LVAR -0x004 @ 1(r)>> Δ-4 {[@@-12]|[@@-8]|[@@-4]}
<Call 0x211ee 0x20640> {[@@-12]|[@@-8]|[@@-4]}
<POP 211f2-211f3 StackAdj> Δ+12 ↓ {}
<Blob 0x211f3 [30] @> Δ-30 {[«30""»]}
<MI 21204 TST.B (A6-0x4)> {[«30""»]}
<MI 21208 BNE 0x2122c> {[«30""»]}
<POP 2120a-2122c Naked> Σ-30 ↓ →0x21254
<POP 2120a-2120c StackAdj> Δ-6 {[-36-]}
<Lit 0x2120c> {[-32-]|[$$…]}
<Pointer.sp 0x2120c 6> Δ-4
<Const 0x21210 0x1.2> Δ-2
<Const 0x21212 0x1d.2> Δ-2
<Call 0x21216 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2121c-2121e StackAdj> Δ+8
<POP 2121c-2121e StackAdj> Δ-2 {[-32-]|[$$…]|[-2-]}
<POP 2121e-2121f StackAdj> Δ+2 {[-32-]|[$$…]}
<Const 0x2121f 0x1.2> Δ-2 {[-32-]|[$$…]|[#1]}
<Call 0x21220 0x103f0> {[-32-]|[$$…]|[#1]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 21226-21228 StackAdj> Δ+6 {[-32-]}
<MI 21228 TST.B (A7)+> Δ+2 {[-30-]}
<MI 2122a BEQ 0x21254> {[-30-]}
<POP 2122c-21254 Naked> Σ-30 ↓ ←0x211e6
<MI 2122c MOVE.L (A6-0xc),-(A7)> Δ-4 {[-30-]|[4, '(A6-0xc)']}
<Call 0x2122e 0x208f0> {[-30-]|[4, '(A6-0xc)']}
<POP 21232-21234 StackAdj> Δ+4 {[-30-]}
<Call 0x21234 0x21144> {[-30-]}
<MI 21238 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-30-]|[4, '(A6-0x8)']}
<Call 0x2123a 0x2116a> {[-30-]|[4, '(A6-0x8)']}
<POP 2123e-21240 StackAdj> Δ+4 {[-30-]}
<Pointer.fp 0x21240 <LVAR -0x00c @ 4(r)>> Δ-4 {[-30-]|[@@-12]}
<Call 0x21242 0x102bc> {[-30-]|[@@-12]}
FreeString(VAR a : String)
<POP 21248-2124a StackAdj> Δ+4 {[-30-]}
<Pointer.fp 0x2124a <LVAR -0x008 @ 4(r)>> Δ-4 {[-30-]|[@@-8]}
<Call 0x2124c 0x102bc> {[-30-]|[@@-8]}
FreeString(VAR a : String)
<POP 21252-21254 StackAdj> Δ+4 {[-30-]}
<POP 21254-21258 Naked> Σ-30 Δ+30 ↓ ←0x2120a
<POP 21254-21258 StackAdj> Δ+30 {}
<POP 21258-21260 Epilogue> Σ0
@ 21260
START
<POP 21260--0001 Body>
<POP 21260-2126a Prologue> Σ0
<POP 2126a-21286 Naked> Σ0 ↓
<Call 0x2126a 0x10398> {}
FSCALL_10398
<Call 0x21270 0x2093a> {}
<Call 0x21274 0x211c6> {}
<MI 21278 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2127a 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x2127e 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 21284-21286 StackAdj> Δ+6 {}
<POP 21286-2128c Naked> Σ0
<Call 0x21286 0x10284> {}
?exit
@ 2129a
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 2129a-21302 Body>
<POP 2129a-212b0 Prologue> Σ0 ↓
<POP 212b0-212fa Naked> Σ0 ↓
<Blob 0x212b0 [14] @> Δ-14 {[«14""»]}
<Const 0x212bc 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 212c0-212c2 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x212c2 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 212d4-212d6 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 212d6 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 212da EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 212dc EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 212de MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x212e0 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 212e6-212e8 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x212e8 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 212ee-212f0 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x212f0 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 212f6-212fa StackAdj> Δ+20 {}
<POP 212fa-21302 Epilogue> Σ0
@ 21356
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 21356-21492 Body>
<POP 21356-2136c Prologue> Σ0 ↓
<POP 2136c-21382 RegCacheLoad> Σ0 ↓
<POP 21382-213e2 Naked> Σ0 ↓ →0x2142a
<Call 0x21382 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21388 [18] @> Δ-18 {[«18""»]}
<POP 21394-21396 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21396 18> {[«18""»]|[$$Experiment error :]}
<Call 0x213a2 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 213a4-213a5 StackAdj> Δ+22 ↓ {}
<Blob 0x213a5 [14] @> Δ-14 {[«14""»]}
<POP 213b4-213b6 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x213b6 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 213c0-213c2 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 213c2 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x213c6 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 213cc-213ce StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x213ce 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 213d4-213d6 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x213d6 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 213d8-213da StackAdj> Δ+18 {}
<MI 213da MOVEA.L (A6+0xa),A0> {}
<MI 213de CMPA.W #0x01,A0> {}
<MI 213e0 BEQ 0x2142a> {}
<POP 213e2-2142a Naked> Σ0 ↓
<Blob 0x213e2 [14] @> Δ-14 {[«14""»]}
<Blob 0x213f2 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 21402-21404 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x21404 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 2140e-21410 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x21410> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x21410 12> Δ-4
<Const 0x21414 0x1.2> Δ-2
<Const 0x21416 0x1e.2> Δ-2
<Call 0x21418 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2141a-2141c StackAdj> Δ+8
<Call 0x2141c 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 21422-21424 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x21424 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21426-2142a StackAdj> Δ+48 {}
<POP 2142a-2148a Naked> Σ0 ↓ ←0x21382
<Blob 0x2142a [14] @> Δ-14 {[«14""»]}
<POP 2143a-2143c StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x2143c 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 21446-21448 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 21448 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x2144c 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 21452-21454 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x21454 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2145a-2145c StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2145c 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2145e-2145f StackAdj> Δ+18 ↓ {}
<Blob 0x2145f [24] @> Δ-24 {[«24""»]}
<Const 0x2146e 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 21472-21474 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x21474 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x21482 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 21488-2148a StackAdj> Δ+30 {}
<POP 2148a-21492 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.f1fedfe934174466 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 12 60 | ` | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 16 3e | > | .PTR 0x2163e 00020010 code.end: 00020010 00 02 14 92 | | .PTR 0x21492 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 12 9a | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 13 56 | V | .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 45 6e 74 65 72 20 6e 61 |Enter na| .TXT 'Enter name of configuration to edit ' 00020160 45 6e 74 65 72 20 6e 61 |Enter na| .TXT 'Enter name of configuration to save ' 00020184 53 54 41 4e |STAN | .TXT 'STAN' 00020188 44 41 52 44 |DARD | .TXT 'DARD' 0002018c 53 54 41 4e 44 41 52 44 |STANDARD| .TXT 'STANDARD.CONFIG ' 0002019c 43 55 52 52 |CURR | .XXX[0x4] 000201a0 45 4e 54 20 20 20 20 20 |ENT | .XXX[0x8] 000201a8 20 20 20 20 20 20 20 20 | | .BLANK 20[0x30] 000201d8 43 68 61 6e 67 65 20 68 |Change h| .TXT 'Change hardware configuration ' 000201f6 44 6f 65 73 20 74 68 69 |Does thi| .TXT 'Does this processor have 32 MB memory boards' 00020222 49 73 20 74 68 69 |Is thi | .XXX[0x6] 00020228 73 20 61 20 6d 75 6c 74 |s a mult| .XXX[0x10] 00020230 69 2d 70 72 6f 63 65 73 |i-proces| 00020238 73 6f 72 20 |sor | .XXX[0x4] 0002023c 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.' 00020278 20 20 20 20 20 20 38 20 | 8 | .TXT ' 8 MB boards cannot be in the same CPU as 32 MB boards.' 000202b4 44 6f 65 73 20 6d 65 6d |Does mem| .TXT 'Does memory board 0 exist ' 000202ce 44 6f 65 73 20 6d 65 6d |Does mem| .TXT 'Does memory board 2 exist ' 000202e8 44 6f 65 73 20 6d 65 6d |Does mem| .TXT 'Does memory board_' 000202fa 20 65 | e | .TXT ' e' 000202fc 78 69 |xi | .TXT 'xi' 000202fe 73 74 |st | .TXT 'st' 00020300 41 6c 6c 6f 77 20 6f 70 |Allow op| .TXT 'Allow operator to enter CLI immediately ' 00020328 41 6c 6c 6f 77 20 65 64 |Allow ed| .TXT 'Allow editing of configuration' 00020346 41 6c 6c 6f 77 20 6f 70 |Allow op| .TXT 'Allow operator to enter CLI prior to starting the cluster ' 00020380 4c 6f 61 64 20 6b 65 72 |Load ker| .TXT 'Load kernel layer subsystems only ' 000203a2 41 75 74 6f 20 62 6f 6f |Auto boo| .TXT 'Auto boot the kernel debugger ' 000203c0 57 61 69 74 20 66 6f 72 |Wait for| .TXT 'Wait for remote debugging on kernel crashes ' 000203ec 43 61 6c 6c 20 52 61 74 |Call Rat| .TXT 'Call Rational on kernel crash ' 0002040a 41 75 74 6f 20 62 6f 6f |Auto boo| .TXT 'Auto boot the environment elaborator' 0002042e 41 75 74 6f 20 62 6f 6f |Auto boo| .TXT 'Auto boot the kernel' 00020442 54 61 6b 65 20 6d 69 63 |Take mic| .TXT 'Take microcode from standard configuration' 0002046c 53 68 6f 75 6c 64 20 74 |Should t| .TXT 'Should this configuration query for microcode when booting' 000204a6 45 6e 74 65 72 20 64 65 |Enter de| .TXT 'Enter default microcode name' 000204c2 45 6e 74 65 72 20 6d 69 |Enter mi| .TXT 'Enter microcode name' 000204d6 20 66 72 6f 6d 20 73 74 | from st| .TXT ' from standard configuration' 000204f2 53 68 6f 75 6c 64 20 74 |Should t| .TXT 'Should this configuration query for_' 00020516 45 6e 74 65 72 20 64 65 |Enter de| .TXT 'Enter default subsystem name for_ ' 00020538 45 6e 74 65 72 20 73 75 |Enter su| .TXT 'Enter subsystem name for_ ' 00020552 54 61 6b 65 5f 20 |Take_ | .TXT 'Take_ ' 00020558 43 6f 6e 66 69 67 75 72 |Configur| .TXT 'Configuration saved.' 0002056c 43 68 61 6e 67 65 20 73 |Change s| .TXT 'Change software configuration ' 0002058a 01 01 01 01 01 01 | | .XXX[0x6] 00020590 ; -------------------------------------------------------------------------------------- 00020590 ; OMSI PASCAL Function 00020590 ; <LVAR 0x010 4(w)> 00020590 ; <LVAR 0x00c 4(rw)> 00020590 ; <LVAR 0x008 @ 4(r)> 00020590 ; <LVAR -0x004 @ 4(rw)> 00020590 ; -------------------------------------------------------------------------------------- 00020590 4e 56 ff c2 |NV | LINK.W A6,#0xffc2 00020594 bf d5 | | CMPA.L (A5),A7 00020596 62 06 |b | BHI 0x2059e 00020598 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002059c 4e 76 |Nv | TRAPV 0002059e de fc 00 3a | : | ADDA.W #0x3a,A7 000205a2 48 e7 80 f0 |H | MOVEM.L A3+A2+A1+A0+D0,-(A7) 000205a6 43 ee 00 08 |C | LEA.L (A6+0x8),A1 000205aa 45 ee ff fc |E | LEA.L (A6-0x4),A2 000205ae 47 ee 00 0c |G | LEA.L (A6+0xc),A3 000205b2 70 01 |p | MOVEQ.L #0x01,D0 000205b4 20 51 | Q | MOVEA.L (A1),A0 000205b6 b0 c0 | | CMPA.W D0,A0 000205b8 66 0a |f | BNE 0x205c4 000205ba 48 51 |HQ | PEA.L (A1) 000205bc 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000205c2 58 4f |XO | ADDQ.L #0x4,A7 000205c4 3f 3a fb 70 |?: p | MOVE.W 0x20136,-(A7) 000205c8 2f 3a fb 6e |/: n | MOVE.L 0x20138,-(A7) 000205cc 59 4f |YO | SUBQ.L #0x4,A7 000205ce 2f 13 |/ | MOVE.L (A3),-(A7) 000205d0 59 4f |YO | SUBQ.L #0x4,A7 000205d2 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000205d6 3f 00 |? | MOVE.W D0,-(A7) 000205d8 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000205dc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000205e2 2e 91 |. | MOVE.L (A1),(A7) 000205e4 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000205ea 48 6f 00 14 |Ho | PEA.L (A7+0x14) 000205ee 3f 00 |? | MOVE.W D0,-(A7) 000205f0 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 000205f4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000205fa 50 4f |PO | ADDQ.L #0x8,A7 000205fc 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 00020602 de fc 00 10 | | ADDA.W #0x10,A7 00020606 26 9f |& | MOVE.L (A7)+,(A3) 00020608 54 4f |TO | ADDQ.L #0x2,A7 0002060a 2f 13 |/ | MOVE.L (A3),-(A7) 0002060c 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00020612 58 4f |XO | ADDQ.L #0x4,A7 00020614 24 9f |$ | MOVE.L (A7)+,(A2) 00020616 20 52 | R | MOVEA.L (A2),A0 00020618 4a 50 |JP | TST.W (A0) 0002061a 67 0c |g | BEQ 0x20628 0002061c 48 51 |HQ | PEA.L (A1) 0002061e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020624 58 4f |XO | ADDQ.L #0x4,A7 00020626 60 0c |` | BRA 0x20634 00020628 48 52 |HR | PEA.L (A2) 0002062a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020630 58 4f |XO | ADDQ.L #0x4,A7 00020632 24 91 |$ | MOVE.L (A1),(A2) 00020634 2d 52 00 10 |-R | MOVE.L (A2),(A6+0x10) 00020638 4c df 0f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3 0002063c 4e 5e |N^ | UNLK A6 0002063e 4e 75 |Nu | RTS 00020640 ; -------------------------------------------------------------------------------------- 00020640 ; OMSI PASCAL Function 00020640 ; <LVAR 0x010 4(r)> 00020640 ; <LVAR 0x00c 4(r)> 00020640 ; <LVAR 0x008 4(r)> 00020640 ; <LVAR -0x008 @ 4(rw)> 00020640 ; -------------------------------------------------------------------------------------- 00020640 4e 56 ff 68 |NV h | LINK.W A6,#0xff68 00020644 bf d5 | | CMPA.L (A5),A7 00020646 62 06 |b | BHI 0x2064e 00020648 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002064c 4e 76 |Nv | TRAPV 0002064e de fc 00 90 | | ADDA.W #0x90,A7 00020652 48 e7 f9 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D4+D3+D2+D1+D0,-(A7) 00020656 72 01 |r | MOVEQ.L #0x01,D1 00020658 74 24 |t$ | MOVEQ.L #0x24,D2 0002065a 76 23 |v# | MOVEQ.L #0x23,D3 0002065c 78 0c |x | MOVEQ.L #0x0c,D4 0002065e 59 4f |YO | SUBQ.L #0x4,A7 00020660 4e b9 00 01 03 c4 |N | JSR GetArgv() : String 00020666 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 0002066a 7e 00 |~ | MOVEQ.L #0x00,D7 0002066c 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 00020670 4a 50 |JP | TST.W (A0) 00020672 67 02 |g | BEQ 0x20676 00020674 52 07 |R | ADDQ.B #0x1,D7 00020676 4a 07 |J | TST.B D7 00020678 66 2c |f, | BNE 0x206a6 0002067a 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002067e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020684 2e ba fb 02 |. | MOVE.L 0x20188,(A7) 00020688 2f 3a fa fa |/: | MOVE.L 0x20184,-(A7) 0002068c 59 4f |YO | SUBQ.L #0x4,A7 0002068e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020692 3f 01 |? | MOVE.W D1,-(A7) 00020694 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00020698 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002069e 50 4f |PO | ADDQ.L #0x8,A7 000206a0 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 000206a4 50 4f |PO | ADDQ.L #0x8,A7 000206a6 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 000206aa 9e c2 | | SUBA.W D2,A7 000206ac 22 4f |"O | MOVEA.L A7,A1 000206ae 45 fa fa 8c |E | LEA.L 0x2013c,A2 000206b2 70 22 |p" | MOVEQ.L #0x22,D0 000206b4 12 da | | MOVE.B (A2)+,(A1)+ 000206b6 51 c8 ff fc |Q | DBF D0,0x206b4 000206ba 51 4f |QO | SUBQ.L #0x8,A7 000206bc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000206c0 3f 01 |? | MOVE.W D1,-(A7) 000206c2 3f 03 |? | MOVE.W D3,-(A7) 000206c4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000206ca 58 4f |XO | ADDQ.L #0x4,A7 000206cc 2e ae ff f8 |. | MOVE.L (A6-0x8),(A7) 000206d0 4e ba fe be |N | JSR 0x20590 000206d4 50 4f |PO | ADDQ.L #0x8,A7 000206d6 22 5f |"_ | MOVEA.L (A7)+,A1 000206d8 20 89 | | MOVE.L A1,(A0) 000206da 4a 07 |J | TST.B D7 000206dc 67 14 |g | BEQ 0x206f2 000206de 24 6e 00 0c |$n | MOVEA.L (A6+0xc),A2 000206e2 59 4f |YO | SUBQ.L #0x4,A7 000206e4 2f 09 |/ | MOVE.L A1,-(A7) 000206e6 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000206ec 58 4f |XO | ADDQ.L #0x4,A7 000206ee 24 9f |$ | MOVE.L (A7)+,(A2) 000206f0 60 38 |`8 | BRA 0x2072a 000206f2 24 6e 00 0c |$n | MOVEA.L (A6+0xc),A2 000206f6 9e c2 | | SUBA.W D2,A7 000206f8 26 4f |&O | MOVEA.L A7,A3 000206fa 49 fa fa 64 |I d | LEA.L 0x20160,A4 000206fe 70 22 |p" | MOVEQ.L #0x22,D0 00020700 16 dc | | MOVE.B (A4)+,(A3)+ 00020702 51 c8 ff fc |Q | DBF D0,0x20700 00020706 51 4f |QO | SUBQ.L #0x8,A7 00020708 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002070c 3f 01 |? | MOVE.W D1,-(A7) 0002070e 3f 03 |? | MOVE.W D3,-(A7) 00020710 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020716 2e 89 |. | MOVE.L A1,(A7) 00020718 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 0002071e 58 4f |XO | ADDQ.L #0x4,A7 00020720 4e ba fe 6e |N n | JSR 0x20590 00020724 50 4f |PO | ADDQ.L #0x8,A7 00020726 24 9f |$ | MOVE.L (A7)+,(A2) 00020728 de c2 | | ADDA.W D2,A7 0002072a 59 4f |YO | SUBQ.L #0x4,A7 0002072c 2f 09 |/ | MOVE.L A1,-(A7) 0002072e 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 00020734 58 4f |XO | ADDQ.L #0x4,A7 00020736 20 9f | | MOVE.L (A7)+,(A0) 00020738 de fc 00 20 | | ADDA.W #0x20,A7 0002073c 2e ba f9 f4 |. | MOVE.L 0x20132,(A7) 00020740 2f 3a f9 ec |/: | MOVE.L 0x2012e,-(A7) 00020744 2f 3a f9 e4 |/: | MOVE.L 0x2012a,-(A7) 00020748 59 4f |YO | SUBQ.L #0x4,A7 0002074a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002074e 3f 01 |? | MOVE.W D1,-(A7) 00020750 3f 04 |? | MOVE.W D4,-(A7) 00020752 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020758 50 4f |PO | ADDQ.L #0x8,A7 0002075a 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 0002075e 58 4f |XO | ADDQ.L #0x4,A7 00020760 2e 90 |. | MOVE.L (A0),(A7) 00020762 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00020766 4e b9 00 01 03 00 |N | JSR FSCALL_10300 0002076c 50 4f |PO | ADDQ.L #0x8,A7 0002076e 4a 9f |J | TST.L (A7)+ 00020770 66 14 |f | BNE 0x20786 00020772 59 4f |YO | SUBQ.L #0x4,A7 00020774 2f 10 |/ | MOVE.L (A0),-(A7) 00020776 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 0002077a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020780 50 4f |PO | ADDQ.L #0x8,A7 00020782 20 9f | | MOVE.L (A7)+,(A0) 00020784 60 0c |` | BRA 0x20792 00020786 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002078a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020790 58 4f |XO | ADDQ.L #0x4,A7 00020792 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020796 59 4f |YO | SUBQ.L #0x4,A7 00020798 2f 10 |/ | MOVE.L (A0),-(A7) 0002079a 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 000207a0 58 4f |XO | ADDQ.L #0x4,A7 000207a2 20 9f | | MOVE.L (A7)+,(A0) 000207a4 2f 3a f9 8c |/: | MOVE.L 0x20132,-(A7) 000207a8 2f 3a f9 84 |/: | MOVE.L 0x2012e,-(A7) 000207ac 2f 3a f9 7c |/: | | MOVE.L 0x2012a,-(A7) 000207b0 59 4f |YO | SUBQ.L #0x4,A7 000207b2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000207b6 3f 01 |? | MOVE.W D1,-(A7) 000207b8 3f 04 |? | MOVE.W D4,-(A7) 000207ba 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000207c0 50 4f |PO | ADDQ.L #0x8,A7 000207c2 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 000207c6 58 4f |XO | ADDQ.L #0x4,A7 000207c8 2e 90 |. | MOVE.L (A0),(A7) 000207ca 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 000207ce 4e b9 00 01 03 00 |N | JSR FSCALL_10300 000207d4 50 4f |PO | ADDQ.L #0x8,A7 000207d6 4a 9f |J | TST.L (A7)+ 000207d8 66 14 |f | BNE 0x207ee 000207da 59 4f |YO | SUBQ.L #0x4,A7 000207dc 2f 10 |/ | MOVE.L (A0),-(A7) 000207de 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 000207e2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000207e8 50 4f |PO | ADDQ.L #0x8,A7 000207ea 20 9f | | MOVE.L (A7)+,(A0) 000207ec 60 0c |` | BRA 0x207fa 000207ee 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000207f2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000207f8 58 4f |XO | ADDQ.L #0x4,A7 000207fa 9e fc 00 10 | | SUBA.W #0x10,A7 000207fe 22 4f |"O | MOVEA.L A7,A1 00020800 45 fa f9 8a |E | LEA.L 0x2018c,A2 00020804 70 0e |p | MOVEQ.L #0x0e,D0 00020806 12 da | | MOVE.B (A2)+,(A1)+ 00020808 51 c8 ff fc |Q | DBF D0,0x20806 0002080c 59 4f |YO | SUBQ.L #0x4,A7 0002080e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020812 3f 01 |? | MOVE.W D1,-(A7) 00020814 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00020818 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002081e 50 4f |PO | ADDQ.L #0x8,A7 00020820 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00020824 de fc 00 0a | | ADDA.W #0xa,A7 00020828 2e 90 |. | MOVE.L (A0),(A7) 0002082a 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 0002082e 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00020834 50 4f |PO | ADDQ.L #0x8,A7 00020836 10 1f | | MOVE.B (A7)+,D0 00020838 48 80 |H | EXTB.W D0 0002083a 41 81 |A | CHK.W D1,D0 0002083c 13 c0 00 02 14 9a | | MOVE.B D0,0x2149a 00020842 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00020846 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002084c 58 4f |XO | ADDQ.L #0x4,A7 0002084e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020852 10 87 | | MOVE.B D7,(A0) 00020854 4c df 1f 9f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D7+A0+A1+A2+A3+A4 00020858 4e 5e |N^ | UNLK A6 0002085a 4e 75 |Nu | RTS 0002085c ; -------------------------------------------------------------------------------------- 0002085c ; OMSI PASCAL Function 0002085c ; <LVAR 0x008 4(r)> 0002085c ; -------------------------------------------------------------------------------------- 0002085c 4e 56 ff ce |NV | LINK.W A6,#0xffce 00020860 bf d5 | | CMPA.L (A5),A7 00020862 62 06 |b | BHI 0x2086a 00020864 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020868 4e 76 |Nv | TRAPV 0002086a de fc 00 22 | " | ADDA.W #0x22,A7 0002086e 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 00020872 72 01 |r | MOVEQ.L #0x01,D1 00020874 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020878 42 28 00 05 |B( | CLR.B (A0+0x5) 0002087c 42 28 00 04 |B( | CLR.B (A0+0x4) 00020880 42 28 00 03 |B( | CLR.B (A0+0x3) 00020884 42 28 00 02 |B( | CLR.B (A0+0x2) 00020888 11 41 00 2a | A * | MOVE.B D1,(A0+0x2a) 0002088c 42 28 00 2b |B( + | CLR.B (A0+0x2b) 00020890 42 28 00 2c |B( , | CLR.B (A0+0x2c) 00020894 42 28 00 2d |B( - | CLR.B (A0+0x2d) 00020898 42 28 00 2e |B( . | CLR.B (A0+0x2e) 0002089c 11 41 00 2f | A / | MOVE.B D1,(A0+0x2f) 000208a0 11 41 00 30 | A 0 | MOVE.B D1,(A0+0x30) 000208a4 11 41 00 31 | A 1 | MOVE.B D1,(A0+0x31) 000208a8 42 28 00 32 |B( 2 | CLR.B (A0+0x32) 000208ac 41 e8 00 33 |A 3 | LEA.L (A0+0x33),A0 000208b0 43 fa f8 ea |C | LEA.L 0x2019c,A1 000208b4 70 1d |p | MOVEQ.L #0x1d,D0 000208b6 10 d9 | | MOVE.B (A1)+,(A0)+ 000208b8 51 c8 ff fc |Q | DBF D0,0x208b6 000208bc 7e 00 |~ | MOVEQ.L #0x00,D7 000208be 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000208c2 10 07 | | MOVE.B D7,D0 000208c4 48 80 |H | EXTB.W D0 000208c6 eb 40 | @ | ASL.W #0x5,D0 000208c8 11 81 00 51 | Q | MOVE.B D1,(A0+D0.W+#0x51) 000208cc 42 30 00 52 |B0 R | CLR.B (A0+D0.W+#0x52) 000208d0 41 f0 00 53 |A S | LEA.L (A0+D0.W+#0x53),A0 000208d4 43 fa f8 e4 |C | LEA.L 0x201ba,A1 000208d8 70 1d |p | MOVEQ.L #0x1d,D0 000208da 10 d9 | | MOVE.B (A1)+,(A0)+ 000208dc 51 c8 ff fc |Q | DBF D0,0x208da 000208e0 52 07 |R | ADDQ.B #0x1,D7 000208e2 0c 07 00 09 | | CMPI.B #0x09,D7 000208e6 6f d6 |o | BLE 0x208be 000208e8 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 000208ec 4e 5e |N^ | UNLK A6 000208ee 4e 75 |Nu | RTS 000208f0 ; -------------------------------------------------------------------------------------- 000208f0 ; OMSI PASCAL Function 000208f0 ; <LVAR 0x008 4(r)> 000208f0 ; <LVAR -0x002 @ 1(r)> 000208f0 ; -------------------------------------------------------------------------------------- 000208f0 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000208f4 bf d5 | | CMPA.L (A5),A7 000208f6 62 06 |b | BHI 0x208fe 000208f8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000208fc 4e 76 |Nv | TRAPV 000208fe de fc 00 18 | | ADDA.W #0x18,A7 00020902 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00020906 41 f9 00 02 14 9c |A | LEA.L 0x2149c,A0 0002090c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020910 48 78 00 03 |Hx | PEA.L 0x3 00020914 48 50 |HP | PEA.L (A0) 00020916 48 6e ff fe |Hn | PEA.L (A6-0x2) 0002091a 4e b9 00 01 05 6e |N n | JSR Read_ConfigFile(name: String; version: Long; dst: Pointer; VAR status: Bool) 00020920 de fc 00 10 | | ADDA.W #0x10,A7 00020924 4a 2e ff fe |J. | TST.B (A6-0x2) 00020928 66 08 |f | BNE 0x20932 0002092a 48 50 |HP | PEA.L (A0) 0002092c 4e ba ff 2e |N . | JSR 0x2085c 00020930 58 4f |XO | ADDQ.L #0x4,A7 00020932 4c df 01 00 |L | MOVEM.L (A7)+,A0 00020936 4e 5e |N^ | UNLK A6 00020938 4e 75 |Nu | RTS 0002093a ; -------------------------------------------------------------------------------------- 0002093a ; OMSI PASCAL Function 0002093a ; <LVAR -0x002 @ 1(r)> 0002093a ; <LVAR -0x003 1(r)> 0002093a ; <LVAR -0x004 1(rw) 2(w)> 0002093a ; <LVAR -0x005 1(r)> 0002093a ; <LVAR -0x006 1(rw) 2(w)> 0002093a ; <LVAR -0x007 1(rw)> 0002093a ; <LVAR -0x008 @ 1(r) 2(w)> 0002093a ; -------------------------------------------------------------------------------------- 0002093a 4e 56 ff 26 |NV & | LINK.W A6,#0xff26 0002093e bf d5 | | CMPA.L (A5),A7 00020940 62 06 |b | BHI 0x20948 00020942 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020946 4e 76 |Nv | TRAPV 00020948 de fc 00 ca | | ADDA.W #0xca,A7 0002094c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020950 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020956 47 f9 00 01 03 f0 |G | LEA.L AskOnConsoleYesNo(prompt : String; default : Bool) : Bool,A3 0002095c 72 01 |r | MOVEQ.L #0x01,D1 0002095e 74 2c |t, | MOVEQ.L #0x2c,D2 00020960 76 3c |v< | MOVEQ.L #0x3c,D3 00020962 78 19 |x | MOVEQ.L #0x19,D4 00020964 7a 14 |z | MOVEQ.L #0x14,D5 00020966 7c 03 || | MOVEQ.L #0x03,D6 00020968 3d 7a fc 20 ff f8 |=z | MOVE.W 0x2058a,(A6-0x8) 0002096e 3d 7a fc 1c ff fa |=z | MOVE.W 0x2058c,(A6-0x6) 00020974 3d 7a fc 18 ff fc |=z | MOVE.W 0x2058e,(A6-0x4) 0002097a 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002097e 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020982 4e b9 00 01 05 7a |N z | JSR Read_HARDWARE.M200_CONFIG(a : Pointer; VAR status : Bool) 00020988 9e fc 00 16 | | SUBA.W #0x16,A7 0002098c 20 4f | O | MOVEA.L A7,A0 0002098e 43 fa f8 48 |C H | LEA.L 0x201d8,A1 00020992 70 1c |p | MOVEQ.L #0x1c,D0 00020994 10 d9 | | MOVE.B (A1)+,(A0)+ 00020996 51 c8 ff fc |Q | DBF D0,0x20994 0002099a 4a 2e ff fe |J. | TST.B (A6-0x2) 0002099e 67 1c |g | BEQ 0x209bc 000209a0 5d 4f |]O | SUBQ.L #0x6,A7 000209a2 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000209a6 3f 01 |? | MOVE.W D1,-(A7) 000209a8 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 000209ac 4e 92 |N | JSR (A2) 000209ae 5c 4f |\O | ADDQ.L #0x6,A7 000209b0 42 17 |B | CLR.B (A7) 000209b2 4e 93 |N | JSR (A3) 000209b4 5c 4f |\O | ADDQ.L #0x6,A7 000209b6 4a 1f |J | TST.B (A7)+ 000209b8 67 00 01 8a |g | BEQ 0x20b44 000209bc 42 2e ff f8 |B. | CLR.B (A6-0x8) 000209c0 41 fa f8 60 |A ` | LEA.L 0x20222,A0 000209c4 70 0a |p | MOVEQ.L #0x0a,D0 000209c6 2f 20 |/ | MOVE.L -(A0),-(A7) 000209c8 51 c8 ff fc |Q | DBF D0,0x209c6 000209cc 5d 4f |]O | SUBQ.L #0x6,A7 000209ce 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000209d2 3f 01 |? | MOVE.W D1,-(A7) 000209d4 3f 02 |? | MOVE.W D2,-(A7) 000209d6 4e 92 |N | JSR (A2) 000209d8 5c 4f |\O | ADDQ.L #0x6,A7 000209da 42 17 |B | CLR.B (A7) 000209dc 4a 2e ff f9 |J. | TST.B (A6-0x7) 000209e0 66 02 |f | BNE 0x209e4 000209e2 52 17 |R | ADDQ.B #0x1,(A7) 000209e4 4e 93 |N | JSR (A3) 000209e6 5c 4f |\O | ADDQ.L #0x6,A7 000209e8 4a 1f |J | TST.B (A7)+ 000209ea 67 00 00 d0 |g | BEQ 0x20abc 000209ee 42 2e ff f9 |B. | CLR.B (A6-0x7) 000209f2 42 2e ff fb |B. | CLR.B (A6-0x5) 000209f6 42 2e ff fd |B. | CLR.B (A6-0x3) 000209fa 41 fa f8 7c |A | | LEA.L 0x20278,A0 000209fe 70 0e |p | MOVEQ.L #0x0e,D0 00020a00 2f 20 |/ | MOVE.L -(A0),-(A7) 00020a02 51 c8 ff fc |Q | DBF D0,0x20a00 00020a06 59 4f |YO | SUBQ.L #0x4,A7 00020a08 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a0c 3f 01 |? | MOVE.W D1,-(A7) 00020a0e 3f 03 |? | MOVE.W D3,-(A7) 00020a10 4e 92 |N | JSR (A2) 00020a12 50 4f |PO | ADDQ.L #0x8,A7 00020a14 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020a1a de fc 00 40 | @ | ADDA.W #0x40,A7 00020a1e 41 fa f8 94 |A | LEA.L 0x202b4,A0 00020a22 70 0e |p | MOVEQ.L #0x0e,D0 00020a24 2f 20 |/ | MOVE.L -(A0),-(A7) 00020a26 51 c8 ff fc |Q | DBF D0,0x20a24 00020a2a 59 4f |YO | SUBQ.L #0x4,A7 00020a2c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a30 3f 01 |? | MOVE.W D1,-(A7) 00020a32 3f 03 |? | MOVE.W D3,-(A7) 00020a34 4e 92 |N | JSR (A2) 00020a36 50 4f |PO | ADDQ.L #0x8,A7 00020a38 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020a3e de fc 00 26 | & | ADDA.W #0x26,A7 00020a42 20 4f | O | MOVEA.L A7,A0 00020a44 43 fa f8 6e |C n | LEA.L 0x202b4,A1 00020a48 70 18 |p | MOVEQ.L #0x18,D0 00020a4a 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a4c 51 c8 ff fc |Q | DBF D0,0x20a4a 00020a50 59 4f |YO | SUBQ.L #0x4,A7 00020a52 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a56 3f 01 |? | MOVE.W D1,-(A7) 00020a58 3f 04 |? | MOVE.W D4,-(A7) 00020a5a 4e 92 |N | JSR (A2) 00020a5c 50 4f |PO | ADDQ.L #0x8,A7 00020a5e 28 5f |(_ | MOVEA.L (A7)+,A4 00020a60 de c5 | | ADDA.W D5,A7 00020a62 2e 8c |. | MOVE.L A4,(A7) 00020a64 10 2e ff fa | . | MOVE.B (A6-0x6),D0 00020a68 48 80 |H | EXTB.W D0 00020a6a 41 81 |A | CHK.W D1,D0 00020a6c 1f 00 | | MOVE.B D0,-(A7) 00020a6e 4e 93 |N | JSR (A3) 00020a70 5c 4f |\O | ADDQ.L #0x6,A7 00020a72 10 1f | | MOVE.B (A7)+,D0 00020a74 48 80 |H | EXTB.W D0 00020a76 41 81 |A | CHK.W D1,D0 00020a78 1d 40 ff fa | @ | MOVE.B D0,(A6-0x6) 00020a7c 9e fc 00 1a | | SUBA.W #0x1a,A7 00020a80 20 4f | O | MOVEA.L A7,A0 00020a82 43 fa f8 4a |C J | LEA.L 0x202ce,A1 00020a86 70 18 |p | MOVEQ.L #0x18,D0 00020a88 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a8a 51 c8 ff fc |Q | DBF D0,0x20a88 00020a8e 59 4f |YO | SUBQ.L #0x4,A7 00020a90 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a94 3f 01 |? | MOVE.W D1,-(A7) 00020a96 3f 04 |? | MOVE.W D4,-(A7) 00020a98 4e 92 |N | JSR (A2) 00020a9a 50 4f |PO | ADDQ.L #0x8,A7 00020a9c 28 5f |(_ | MOVEA.L (A7)+,A4 00020a9e de c5 | | ADDA.W D5,A7 00020aa0 2e 8c |. | MOVE.L A4,(A7) 00020aa2 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00020aa6 48 80 |H | EXTB.W D0 00020aa8 41 81 |A | CHK.W D1,D0 00020aaa 1f 00 | | MOVE.B D0,-(A7) 00020aac 4e 93 |N | JSR (A3) 00020aae 5c 4f |\O | ADDQ.L #0x6,A7 00020ab0 10 1f | | MOVE.B (A7)+,D0 00020ab2 48 80 |H | EXTB.W D0 00020ab4 41 81 |A | CHK.W D1,D0 00020ab6 1d 40 ff fc | @ | MOVE.B D0,(A6-0x4) 00020aba 60 7a |`z | BRA 0x20b36 00020abc 1d 41 ff f9 | A | MOVE.B D1,(A6-0x7) 00020ac0 7e 00 |~ | MOVEQ.L #0x00,D7 00020ac2 41 fa f8 36 |A 6 | LEA.L 0x202fa,A0 00020ac6 70 08 |p | MOVEQ.L #0x08,D0 00020ac8 3f 20 |? | MOVE.W -(A0),-(A7) 00020aca 51 c8 ff fc |Q | DBF D0,0x20ac8 00020ace 3f 3a f8 2e |?: . | MOVE.W 0x202fe,-(A7) 00020ad2 3f 3a f8 28 |?: ( | MOVE.W 0x202fc,-(A7) 00020ad6 3f 3a f8 22 |?: " | MOVE.W 0x202fa,-(A7) 00020ada 51 4f |QO | SUBQ.L #0x8,A7 00020adc 48 6f 00 0e |Ho | PEA.L (A7+0xe) 00020ae0 3f 01 |? | MOVE.W D1,-(A7) 00020ae2 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00020ae6 4e 92 |N | JSR (A2) 00020ae8 2e 87 |. | MOVE.L D7,(A7) 00020aea 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020af0 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00020af4 3f 01 |? | MOVE.W D1,-(A7) 00020af6 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00020afa 4e 92 |N | JSR (A2) 00020afc 50 4f |PO | ADDQ.L #0x8,A7 00020afe 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020b04 de fc 00 0c | | ADDA.W #0xc,A7 00020b08 28 5f |(_ | MOVEA.L (A7)+,A4 00020b0a de fc 00 18 | | ADDA.W #0x18,A7 00020b0e be 86 | | CMP.L D6,D7 00020b10 63 02 |c | BLS 0x20b14 00020b12 4e 4f |NO | TRAP #15 00020b14 55 4f |UO | SUBQ.L #0x2,A7 00020b16 2f 0c |/ | MOVE.L A4,-(A7) 00020b18 10 36 78 fa | 6x | MOVE.B (A6+D7.L-#0x6),D0 00020b1c 48 80 |H | EXTB.W D0 00020b1e 41 81 |A | CHK.W D1,D0 00020b20 1f 00 | | MOVE.B D0,-(A7) 00020b22 4e 93 |N | JSR (A3) 00020b24 5c 4f |\O | ADDQ.L #0x6,A7 00020b26 10 1f | | MOVE.B (A7)+,D0 00020b28 48 80 |H | EXTB.W D0 00020b2a 41 81 |A | CHK.W D1,D0 00020b2c 1d 80 78 fa | x | MOVE.B D0,(A6+D7.L-#0x6) 00020b30 52 87 |R | ADDQ.L #0x1,D7 00020b32 be 86 | | CMP.L D6,D7 00020b34 6f 8c |o | BLE 0x20ac2 00020b36 de c2 | | ADDA.W D2,A7 00020b38 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00020b3c 4e b9 00 01 05 80 |N | JSR Write_HARDWARE.M200_CONFIG(a : Pointer) 00020b42 58 4f |XO | ADDQ.L #0x4,A7 00020b44 de fc 00 1e | | ADDA.W #0x1e,A7 00020b48 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020b4c 4e 5e |N^ | UNLK A6 00020b4e 4e 75 |Nu | RTS 00020b50 ; -------------------------------------------------------------------------------------- 00020b50 ; OMSI PASCAL Function 00020b50 ; -------------------------------------------------------------------------------------- 00020b50 4e 56 ff 88 |NV | LINK.W A6,#0xff88 00020b54 bf d5 | | CMPA.L (A5),A7 00020b56 62 06 |b | BHI 0x20b5e 00020b58 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b5c 4e 76 |Nv | TRAPV 00020b5e de fc 00 78 | x | ADDA.W #0x78,A7 00020b62 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00020b66 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020b6c 47 f9 00 01 03 f0 |G | LEA.L AskOnConsoleYesNo(prompt : String; default : Bool) : Bool,A3 00020b72 49 f9 00 02 14 9e |I | LEA.L 0x2149e,A4 00020b78 72 01 |r | MOVEQ.L #0x01,D1 00020b7a 74 28 |t( | MOVEQ.L #0x28,D2 00020b7c 76 1e |v | MOVEQ.L #0x1e,D3 00020b7e 78 3a |x: | MOVEQ.L #0x3a,D4 00020b80 7a 22 |z" | MOVEQ.L #0x22,D5 00020b82 9e c2 | | SUBA.W D2,A7 00020b84 20 4f | O | MOVEA.L A7,A0 00020b86 43 fa f7 78 |C x | LEA.L 0x20300,A1 00020b8a 70 26 |p& | MOVEQ.L #0x26,D0 00020b8c 10 d9 | | MOVE.B (A1)+,(A0)+ 00020b8e 51 c8 ff fc |Q | DBF D0,0x20b8c 00020b92 5d 4f |]O | SUBQ.L #0x6,A7 00020b94 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020b98 3f 01 |? | MOVE.W D1,-(A7) 00020b9a 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00020b9e 4e 92 |N | JSR (A2) 00020ba0 50 4f |PO | ADDQ.L #0x8,A7 00020ba2 10 14 | | MOVE.B (A4),D0 00020ba4 48 80 |H | EXTB.W D0 00020ba6 41 81 |A | CHK.W D1,D0 00020ba8 1f 00 | | MOVE.B D0,-(A7) 00020baa 4e 93 |N | JSR (A3) 00020bac 5c 4f |\O | ADDQ.L #0x6,A7 00020bae 10 1f | | MOVE.B (A7)+,D0 00020bb0 48 80 |H | EXTB.W D0 00020bb2 41 81 |A | CHK.W D1,D0 00020bb4 de c2 | | ADDA.W D2,A7 00020bb6 18 80 | | MOVE.B D0,(A4) 00020bb8 41 fa f7 8c |A | LEA.L 0x20346,A0 00020bbc 70 0e |p | MOVEQ.L #0x0e,D0 00020bbe 3f 20 |? | MOVE.W -(A0),-(A7) 00020bc0 51 c8 ff fc |Q | DBF D0,0x20bbe 00020bc4 5d 4f |]O | SUBQ.L #0x6,A7 00020bc6 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020bca 3f 01 |? | MOVE.W D1,-(A7) 00020bcc 3f 03 |? | MOVE.W D3,-(A7) 00020bce 4e 92 |N | JSR (A2) 00020bd0 50 4f |PO | ADDQ.L #0x8,A7 00020bd2 10 39 00 02 14 9f | 9 | MOVE.B 0x2149f,D0 00020bd8 48 80 |H | EXTB.W D0 00020bda 41 81 |A | CHK.W D1,D0 00020bdc 1f 00 | | MOVE.B D0,-(A7) 00020bde 4e 93 |N | JSR (A3) 00020be0 5c 4f |\O | ADDQ.L #0x6,A7 00020be2 10 1f | | MOVE.B (A7)+,D0 00020be4 48 80 |H | EXTB.W D0 00020be6 41 81 |A | CHK.W D1,D0 00020be8 de c3 | | ADDA.W D3,A7 00020bea 13 c0 00 02 14 9f | | MOVE.B D0,0x2149f 00020bf0 9e c4 | | SUBA.W D4,A7 00020bf2 20 4f | O | MOVEA.L A7,A0 00020bf4 43 fa f7 50 |C P | LEA.L 0x20346,A1 00020bf8 70 38 |p8 | MOVEQ.L #0x38,D0 00020bfa 10 d9 | | MOVE.B (A1)+,(A0)+ 00020bfc 51 c8 ff fc |Q | DBF D0,0x20bfa 00020c00 5d 4f |]O | SUBQ.L #0x6,A7 00020c02 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020c06 3f 01 |? | MOVE.W D1,-(A7) 00020c08 3f 3c 00 39 |?< 9 | MOVE.W #0x39,-(A7) 00020c0c 4e 92 |N | JSR (A2) 00020c0e 50 4f |PO | ADDQ.L #0x8,A7 00020c10 10 39 00 02 14 a0 | 9 | MOVE.B 0x214a0,D0 00020c16 48 80 |H | EXTB.W D0 00020c18 41 81 |A | CHK.W D1,D0 00020c1a 1f 00 | | MOVE.B D0,-(A7) 00020c1c 4e 93 |N | JSR (A3) 00020c1e 5c 4f |\O | ADDQ.L #0x6,A7 00020c20 10 1f | | MOVE.B (A7)+,D0 00020c22 48 80 |H | EXTB.W D0 00020c24 41 81 |A | CHK.W D1,D0 00020c26 de c4 | | ADDA.W D4,A7 00020c28 13 c0 00 02 14 a0 | | MOVE.B D0,0x214a0 00020c2e 9e c5 | | SUBA.W D5,A7 00020c30 20 4f | O | MOVEA.L A7,A0 00020c32 43 fa f7 4c |C L | LEA.L 0x20380,A1 00020c36 70 20 |p | MOVEQ.L #0x20,D0 00020c38 10 d9 | | MOVE.B (A1)+,(A0)+ 00020c3a 51 c8 ff fc |Q | DBF D0,0x20c38 00020c3e 5d 4f |]O | SUBQ.L #0x6,A7 00020c40 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020c44 3f 01 |? | MOVE.W D1,-(A7) 00020c46 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7) 00020c4a 4e 92 |N | JSR (A2) 00020c4c 50 4f |PO | ADDQ.L #0x8,A7 00020c4e 10 39 00 02 14 a1 | 9 | MOVE.B 0x214a1,D0 00020c54 48 80 |H | EXTB.W D0 00020c56 41 81 |A | CHK.W D1,D0 00020c58 1f 00 | | MOVE.B D0,-(A7) 00020c5a 4e 93 |N | JSR (A3) 00020c5c 5c 4f |\O | ADDQ.L #0x6,A7 00020c5e 10 1f | | MOVE.B (A7)+,D0 00020c60 48 80 |H | EXTB.W D0 00020c62 41 81 |A | CHK.W D1,D0 00020c64 de c5 | | ADDA.W D5,A7 00020c66 13 c0 00 02 14 a1 | | MOVE.B D0,0x214a1 00020c6c 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00020c70 4e 5e |N^ | UNLK A6 00020c72 4e 75 |Nu | RTS 00020c74 ; -------------------------------------------------------------------------------------- 00020c74 ; OMSI PASCAL Function 00020c74 ; -------------------------------------------------------------------------------------- 00020c74 4e 56 ff 92 |NV | LINK.W A6,#0xff92 00020c78 bf d5 | | CMPA.L (A5),A7 00020c7a 62 06 |b | BHI 0x20c82 00020c7c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020c80 4e 76 |Nv | TRAPV 00020c82 de fc 00 6e | n | ADDA.W #0x6e,A7 00020c86 48 e7 fe f8 |H | MOVEM.L A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020c8a 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020c90 47 f9 00 01 03 f0 |G | LEA.L AskOnConsoleYesNo(prompt : String; default : Bool) : Bool,A3 00020c96 49 f9 00 02 14 c6 |I | LEA.L 0x214c6,A4 00020c9c 72 01 |r | MOVEQ.L #0x01,D1 00020c9e 74 1e |t | MOVEQ.L #0x1e,D2 00020ca0 76 1d |v | MOVEQ.L #0x1d,D3 00020ca2 78 2c |x, | MOVEQ.L #0x2c,D4 00020ca4 7a 24 |z$ | MOVEQ.L #0x24,D5 00020ca6 7c 14 || | MOVEQ.L #0x14,D6 00020ca8 9e c2 | | SUBA.W D2,A7 00020caa 20 4f | O | MOVEA.L A7,A0 00020cac 43 fa f6 f4 |C | LEA.L 0x203a2,A1 00020cb0 70 1c |p | MOVEQ.L #0x1c,D0 00020cb2 10 d9 | | MOVE.B (A1)+,(A0)+ 00020cb4 51 c8 ff fc |Q | DBF D0,0x20cb2 00020cb8 5d 4f |]O | SUBQ.L #0x6,A7 00020cba 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020cbe 3f 01 |? | MOVE.W D1,-(A7) 00020cc0 3f 03 |? | MOVE.W D3,-(A7) 00020cc2 4e 92 |N | JSR (A2) 00020cc4 50 4f |PO | ADDQ.L #0x8,A7 00020cc6 10 14 | | MOVE.B (A4),D0 00020cc8 48 80 |H | EXTB.W D0 00020cca 41 81 |A | CHK.W D1,D0 00020ccc 1f 00 | | MOVE.B D0,-(A7) 00020cce 4e 93 |N | JSR (A3) 00020cd0 5c 4f |\O | ADDQ.L #0x6,A7 00020cd2 10 1f | | MOVE.B (A7)+,D0 00020cd4 48 80 |H | EXTB.W D0 00020cd6 41 81 |A | CHK.W D1,D0 00020cd8 de c2 | | ADDA.W D2,A7 00020cda 18 80 | | MOVE.B D0,(A4) 00020cdc 9e c4 | | SUBA.W D4,A7 00020cde 20 4f | O | MOVEA.L A7,A0 00020ce0 43 fa f6 de |C | LEA.L 0x203c0,A1 00020ce4 70 2a |p* | MOVEQ.L #0x2a,D0 00020ce6 10 d9 | | MOVE.B (A1)+,(A0)+ 00020ce8 51 c8 ff fc |Q | DBF D0,0x20ce6 00020cec 5d 4f |]O | SUBQ.L #0x6,A7 00020cee 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020cf2 3f 01 |? | MOVE.W D1,-(A7) 00020cf4 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7) 00020cf8 4e 92 |N | JSR (A2) 00020cfa 50 4f |PO | ADDQ.L #0x8,A7 00020cfc 10 39 00 02 14 c7 | 9 | MOVE.B 0x214c7,D0 00020d02 48 80 |H | EXTB.W D0 00020d04 41 81 |A | CHK.W D1,D0 00020d06 1f 00 | | MOVE.B D0,-(A7) 00020d08 4e 93 |N | JSR (A3) 00020d0a 5c 4f |\O | ADDQ.L #0x6,A7 00020d0c 10 1f | | MOVE.B (A7)+,D0 00020d0e 48 80 |H | EXTB.W D0 00020d10 41 81 |A | CHK.W D1,D0 00020d12 de c4 | | ADDA.W D4,A7 00020d14 13 c0 00 02 14 c7 | | MOVE.B D0,0x214c7 00020d1a 9e c2 | | SUBA.W D2,A7 00020d1c 20 4f | O | MOVEA.L A7,A0 00020d1e 43 fa f6 cc |C | LEA.L 0x203ec,A1 00020d22 70 1c |p | MOVEQ.L #0x1c,D0 00020d24 10 d9 | | MOVE.B (A1)+,(A0)+ 00020d26 51 c8 ff fc |Q | DBF D0,0x20d24 00020d2a 5d 4f |]O | SUBQ.L #0x6,A7 00020d2c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020d30 3f 01 |? | MOVE.W D1,-(A7) 00020d32 3f 03 |? | MOVE.W D3,-(A7) 00020d34 4e 92 |N | JSR (A2) 00020d36 50 4f |PO | ADDQ.L #0x8,A7 00020d38 10 39 00 02 14 c8 | 9 | MOVE.B 0x214c8,D0 00020d3e 48 80 |H | EXTB.W D0 00020d40 41 81 |A | CHK.W D1,D0 00020d42 1f 00 | | MOVE.B D0,-(A7) 00020d44 4e 93 |N | JSR (A3) 00020d46 5c 4f |\O | ADDQ.L #0x6,A7 00020d48 10 1f | | MOVE.B (A7)+,D0 00020d4a 48 80 |H | EXTB.W D0 00020d4c 41 81 |A | CHK.W D1,D0 00020d4e de c2 | | ADDA.W D2,A7 00020d50 13 c0 00 02 14 c8 | | MOVE.B D0,0x214c8 00020d56 42 39 00 02 14 c9 |B9 | CLR.B 0x214c9 00020d5c 42 39 00 02 14 ca |B9 | CLR.B 0x214ca 00020d62 41 fa f6 ca |A | LEA.L 0x2042e,A0 00020d66 70 08 |p | MOVEQ.L #0x08,D0 00020d68 2f 20 |/ | MOVE.L -(A0),-(A7) 00020d6a 51 c8 ff fc |Q | DBF D0,0x20d68 00020d6e 5d 4f |]O | SUBQ.L #0x6,A7 00020d70 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020d74 3f 01 |? | MOVE.W D1,-(A7) 00020d76 3f 05 |? | MOVE.W D5,-(A7) 00020d78 4e 92 |N | JSR (A2) 00020d7a 50 4f |PO | ADDQ.L #0x8,A7 00020d7c 10 39 00 02 14 cb | 9 | MOVE.B 0x214cb,D0 00020d82 48 80 |H | EXTB.W D0 00020d84 41 81 |A | CHK.W D1,D0 00020d86 1f 00 | | MOVE.B D0,-(A7) 00020d88 4e 93 |N | JSR (A3) 00020d8a 5c 4f |\O | ADDQ.L #0x6,A7 00020d8c 10 1f | | MOVE.B (A7)+,D0 00020d8e 48 80 |H | EXTB.W D0 00020d90 41 81 |A | CHK.W D1,D0 00020d92 de c5 | | ADDA.W D5,A7 00020d94 13 c0 00 02 14 cb | | MOVE.B D0,0x214cb 00020d9a 41 fa f6 a6 |A | LEA.L 0x20442,A0 00020d9e 70 04 |p | MOVEQ.L #0x04,D0 00020da0 2f 20 |/ | MOVE.L -(A0),-(A7) 00020da2 51 c8 ff fc |Q | DBF D0,0x20da0 00020da6 5d 4f |]O | SUBQ.L #0x6,A7 00020da8 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020dac 3f 01 |? | MOVE.W D1,-(A7) 00020dae 3f 06 |? | MOVE.W D6,-(A7) 00020db0 4e 92 |N | JSR (A2) 00020db2 50 4f |PO | ADDQ.L #0x8,A7 00020db4 10 39 00 02 14 cc | 9 | MOVE.B 0x214cc,D0 00020dba 48 80 |H | EXTB.W D0 00020dbc 41 81 |A | CHK.W D1,D0 00020dbe 1f 00 | | MOVE.B D0,-(A7) 00020dc0 4e 93 |N | JSR (A3) 00020dc2 5c 4f |\O | ADDQ.L #0x6,A7 00020dc4 10 1f | | MOVE.B (A7)+,D0 00020dc6 48 80 |H | EXTB.W D0 00020dc8 41 81 |A | CHK.W D1,D0 00020dca de c6 | | ADDA.W D6,A7 00020dcc 13 c0 00 02 14 cc | | MOVE.B D0,0x214cc 00020dd2 4c df 1f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4 00020dd6 4e 5e |N^ | UNLK A6 00020dd8 4e 75 |Nu | RTS 00020dda ; -------------------------------------------------------------------------------------- 00020dda ; OMSI PASCAL Function 00020dda ; <LVAR -0x008 @ 1(r)> 00020dda ; -------------------------------------------------------------------------------------- 00020dda 4e 56 ff 7c |NV | | LINK.W A6,#0xff7c 00020dde bf d5 | | CMPA.L (A5),A7 00020de0 62 06 |b | BHI 0x20de8 00020de2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020de6 4e 76 |Nv | TRAPV 00020de8 de fc 00 7c | | | ADDA.W #0x7c,A7 00020dec 48 e7 fe f8 |H | MOVEM.L A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020df0 45 f9 00 02 14 cd |E | LEA.L 0x214cd,A2 00020df6 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020dfc 72 01 |r | MOVEQ.L #0x01,D1 00020dfe 74 1e |t | MOVEQ.L #0x1e,D2 00020e00 76 2a |v* | MOVEQ.L #0x2a,D3 00020e02 78 3a |x: | MOVEQ.L #0x3a,D4 00020e04 7a 1c |z | MOVEQ.L #0x1c,D5 00020e06 7c 14 || | MOVEQ.L #0x14,D6 00020e08 4a 39 00 02 14 9a |J9 | TST.B 0x2149a 00020e0e 67 04 |g | BEQ 0x20e14 00020e10 42 12 |B | CLR.B (A2) 00020e12 60 34 |`4 | BRA 0x20e48 00020e14 41 fa f6 56 |A V | LEA.L 0x2046c,A0 00020e18 70 14 |p | MOVEQ.L #0x14,D0 00020e1a 3f 20 |? | MOVE.W -(A0),-(A7) 00020e1c 51 c8 ff fc |Q | DBF D0,0x20e1a 00020e20 5d 4f |]O | SUBQ.L #0x6,A7 00020e22 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020e26 3f 01 |? | MOVE.W D1,-(A7) 00020e28 3f 03 |? | MOVE.W D3,-(A7) 00020e2a 4e 93 |N | JSR (A3) 00020e2c 50 4f |PO | ADDQ.L #0x8,A7 00020e2e 10 12 | | MOVE.B (A2),D0 00020e30 48 80 |H | EXTB.W D0 00020e32 41 81 |A | CHK.W D1,D0 00020e34 1f 00 | | MOVE.B D0,-(A7) 00020e36 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00020e3c 5c 4f |\O | ADDQ.L #0x6,A7 00020e3e 10 1f | | MOVE.B (A7)+,D0 00020e40 48 80 |H | EXTB.W D0 00020e42 41 81 |A | CHK.W D1,D0 00020e44 de c3 | | ADDA.W D3,A7 00020e46 14 80 | | MOVE.B D0,(A2) 00020e48 4a 12 |J | TST.B (A2) 00020e4a 66 00 00 d6 |f | BNE 0x20f22 00020e4e 41 fa f6 56 |A V | LEA.L 0x204a6,A0 00020e52 70 1c |p | MOVEQ.L #0x1c,D0 00020e54 3f 20 |? | MOVE.W -(A0),-(A7) 00020e56 51 c8 ff fc |Q | DBF D0,0x20e54 00020e5a 5d 4f |]O | SUBQ.L #0x6,A7 00020e5c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020e60 3f 01 |? | MOVE.W D1,-(A7) 00020e62 3f 04 |? | MOVE.W D4,-(A7) 00020e64 4e 93 |N | JSR (A3) 00020e66 50 4f |PO | ADDQ.L #0x8,A7 00020e68 10 39 00 02 14 ce | 9 | MOVE.B 0x214ce,D0 00020e6e 48 80 |H | EXTB.W D0 00020e70 41 81 |A | CHK.W D1,D0 00020e72 1f 00 | | MOVE.B D0,-(A7) 00020e74 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00020e7a 5c 4f |\O | ADDQ.L #0x6,A7 00020e7c 10 1f | | MOVE.B (A7)+,D0 00020e7e 48 80 |H | EXTB.W D0 00020e80 41 81 |A | CHK.W D1,D0 00020e82 de c4 | | ADDA.W D4,A7 00020e84 13 c0 00 02 14 ce | | MOVE.B D0,0x214ce 00020e8a 9e c2 | | SUBA.W D2,A7 00020e8c 20 4f | O | MOVEA.L A7,A0 00020e8e 43 f9 00 02 14 cf |C | LEA.L 0x214cf,A1 00020e94 70 1d |p | MOVEQ.L #0x1d,D0 00020e96 10 d9 | | MOVE.B (A1)+,(A0)+ 00020e98 51 c8 ff fc |Q | DBF D0,0x20e96 00020e9c 59 4f |YO | SUBQ.L #0x4,A7 00020e9e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020ea2 3f 01 |? | MOVE.W D1,-(A7) 00020ea4 3f 02 |? | MOVE.W D2,-(A7) 00020ea6 4e 93 |N | JSR (A3) 00020ea8 50 4f |PO | ADDQ.L #0x8,A7 00020eaa 28 5f |(_ | MOVEA.L (A7)+,A4 00020eac de c2 | | ADDA.W D2,A7 00020eae 4a 39 00 02 14 ce |J9 | TST.B 0x214ce 00020eb4 67 28 |g( | BEQ 0x20ede 00020eb6 41 fa f6 0a |A | LEA.L 0x204c2,A0 00020eba 70 06 |p | MOVEQ.L #0x06,D0 00020ebc 2f 20 |/ | MOVE.L -(A0),-(A7) 00020ebe 51 c8 ff fc |Q | DBF D0,0x20ebc 00020ec2 51 4f |QO | SUBQ.L #0x8,A7 00020ec4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020ec8 3f 01 |? | MOVE.W D1,-(A7) 00020eca 3f 05 |? | MOVE.W D5,-(A7) 00020ecc 4e 93 |N | JSR (A3) 00020ece 58 4f |XO | ADDQ.L #0x4,A7 00020ed0 2e 8c |. | MOVE.L A4,(A7) 00020ed2 4e ba f6 bc |N | JSR 0x20590 00020ed6 50 4f |PO | ADDQ.L #0x8,A7 00020ed8 28 5f |(_ | MOVEA.L (A7)+,A4 00020eda de c5 | | ADDA.W D5,A7 00020edc 60 26 |`& | BRA 0x20f04 00020ede 41 fa f5 f6 |A | LEA.L 0x204d6,A0 00020ee2 70 04 |p | MOVEQ.L #0x04,D0 00020ee4 2f 20 |/ | MOVE.L -(A0),-(A7) 00020ee6 51 c8 ff fc |Q | DBF D0,0x20ee4 00020eea 51 4f |QO | SUBQ.L #0x8,A7 00020eec 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020ef0 3f 01 |? | MOVE.W D1,-(A7) 00020ef2 3f 06 |? | MOVE.W D6,-(A7) 00020ef4 4e 93 |N | JSR (A3) 00020ef6 58 4f |XO | ADDQ.L #0x4,A7 00020ef8 2e 8c |. | MOVE.L A4,(A7) 00020efa 4e ba f6 94 |N | JSR 0x20590 00020efe 50 4f |PO | ADDQ.L #0x8,A7 00020f00 28 5f |(_ | MOVEA.L (A7)+,A4 00020f02 de c6 | | ADDA.W D6,A7 00020f04 2f 0c |/ | MOVE.L A4,-(A7) 00020f06 48 79 00 02 14 cf |Hy | PEA.L 0x214cf 00020f0c 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00020f10 4e b9 00 01 05 8c |N | JSR FSCALL_1058c 00020f16 de fc 00 0c | | ADDA.W #0xc,A7 00020f1a 4a 2e ff f8 |J. | TST.B (A6-0x8) 00020f1e 67 00 ff 2e |g . | BEQ 0x20e4e 00020f22 4c df 1f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4 00020f26 4e 5e |N^ | UNLK A6 00020f28 4e 75 |Nu | RTS 00020f2a ; -------------------------------------------------------------------------------------- 00020f2a ; OMSI PASCAL Function 00020f2a ; <LVAR -0x002 @ 1(r)> 00020f2a ; -------------------------------------------------------------------------------------- 00020f2a 4e 56 ff 78 |NV x | LINK.W A6,#0xff78 00020f2e bf d5 | | CMPA.L (A5),A7 00020f30 62 06 |b | BHI 0x20f38 00020f32 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020f36 4e 76 |Nv | TRAPV 00020f38 de fc 00 80 | | ADDA.W #0x80,A7 00020f3c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020f40 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020f46 76 01 |v | MOVEQ.L #0x01,D3 00020f48 78 0c |x | MOVEQ.L #0x0c,D4 00020f4a 7a 22 |z" | MOVEQ.L #0x22,D5 00020f4c 4a 39 00 02 14 a1 |J9 | TST.B 0x214a1 00020f52 67 04 |g | BEQ 0x20f58 00020f54 7c 04 || | MOVEQ.L #0x04,D6 00020f56 60 02 |` | BRA 0x20f5a 00020f58 7c 09 || | MOVEQ.L #0x09,D6 00020f5a 1f 06 | | MOVE.B D6,-(A7) 00020f5c 7e 00 |~ | MOVEQ.L #0x00,D7 00020f5e be 17 | | CMP.B (A7),D7 00020f60 6e 0a |n | BGT 0x20f6c 00020f62 10 17 | | MOVE.B (A7),D0 00020f64 0c 00 00 09 | | CMPI.B #0x09,D0 00020f68 6f 02 |o | BLE 0x20f6c 00020f6a 4e 4f |NO | TRAP #15 00020f6c be 17 | | CMP.B (A7),D7 00020f6e 6e 00 01 ca |n | BGT 0x2113a 00020f72 10 07 | | MOVE.B D7,D0 00020f74 48 80 |H | EXTB.W D0 00020f76 eb 40 | @ | ASL.W #0x5,D0 00020f78 41 f9 00 02 14 92 |A | LEA.L 0x21492,A0 00020f7e 3f 00 |? | MOVE.W D0,-(A7) 00020f80 2f 08 |/ | MOVE.L A0,-(A7) 00020f82 4a 39 00 02 14 9a |J9 | TST.B 0x2149a 00020f88 67 06 |g | BEQ 0x20f90 00020f8a 42 30 00 5b |B0 [ | CLR.B (A0+D0.W+#0x5b) 00020f8e 60 6c |`l | BRA 0x20ffc 00020f90 5d 4f |]O | SUBQ.L #0x6,A7 00020f92 22 4f |"O | MOVEA.L A7,A1 00020f94 45 fa f5 bc |E | LEA.L 0x20552,A2 00020f98 72 04 |r | MOVEQ.L #0x04,D1 00020f9a 12 da | | MOVE.B (A2)+,(A1)+ 00020f9c 51 c9 ff fc |Q | DBF D1,0x20f9a 00020fa0 43 fa f5 50 |C P | LEA.L 0x204f2,A1 00020fa4 72 06 |r | MOVEQ.L #0x06,D1 00020fa6 2f 21 |/! | MOVE.L -(A1),-(A7) 00020fa8 51 c9 ff fc |Q | DBF D1,0x20fa6 00020fac 9e fc 00 0a | | SUBA.W #0xa,A7 00020fb0 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020fb4 3f 03 |? | MOVE.W D3,-(A7) 00020fb6 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00020fba 4e 93 |N | JSR (A3) 00020fbc 54 4f |TO | ADDQ.L #0x2,A7 00020fbe 1e 87 | | MOVE.B D7,(A7) 00020fc0 4e b9 00 01 05 86 |N | JSR Config_Entry_Name(a : Byte) : String 00020fc6 55 4f |UO | SUBQ.L #0x2,A7 00020fc8 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00020fcc 3f 03 |? | MOVE.W D3,-(A7) 00020fce 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 00020fd2 4e 93 |N | JSR (A3) 00020fd4 50 4f |PO | ADDQ.L #0x8,A7 00020fd6 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020fdc de c4 | | ADDA.W D4,A7 00020fde 12 30 00 5b | 0 [ | MOVE.B (A0+D0.W+#0x5b),D1 00020fe2 48 81 |H | EXTB.W D1 00020fe4 43 83 |C | CHK.W D3,D1 00020fe6 1f 01 | | MOVE.B D1,-(A7) 00020fe8 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00020fee 5c 4f |\O | ADDQ.L #0x6,A7 00020ff0 12 1f | | MOVE.B (A7)+,D1 00020ff2 48 81 |H | EXTB.W D1 00020ff4 43 83 |C | CHK.W D3,D1 00020ff6 de c5 | | ADDA.W D5,A7 00020ff8 11 81 00 5b | [ | MOVE.B D1,(A0+D0.W+#0x5b) 00020ffc 4a 30 00 5b |J0 [ | TST.B (A0+D0.W+#0x5b) 00021000 66 00 01 30 |f 0 | BNE 0x21132 00021004 20 57 | W | MOVEA.L (A7),A0 00021006 30 2f 00 04 |0/ | MOVE.W (A7+0x4),D0 0002100a 43 fa f5 0a |C | LEA.L 0x20516,A1 0002100e 72 08 |r | MOVEQ.L #0x08,D1 00021010 2f 21 |/! | MOVE.L -(A1),-(A7) 00021012 51 c9 ff fc |Q | DBF D1,0x21010 00021016 9e fc 00 0a | | SUBA.W #0xa,A7 0002101a 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002101e 3f 03 |? | MOVE.W D3,-(A7) 00021020 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7) 00021024 4e 93 |N | JSR (A3) 00021026 54 4f |TO | ADDQ.L #0x2,A7 00021028 1e 87 | | MOVE.B D7,(A7) 0002102a 4e b9 00 01 05 86 |N | JSR Config_Entry_Name(a : Byte) : String 00021030 54 4f |TO | ADDQ.L #0x2,A7 00021032 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021038 50 4f |PO | ADDQ.L #0x8,A7 0002103a 12 30 00 5c | 0 \ | MOVE.B (A0+D0.W+#0x5c),D1 0002103e 48 81 |H | EXTB.W D1 00021040 43 83 |C | CHK.W D3,D1 00021042 1f 01 | | MOVE.B D1,-(A7) 00021044 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 0002104a 5c 4f |\O | ADDQ.L #0x6,A7 0002104c 12 1f | | MOVE.B (A7)+,D1 0002104e 48 81 |H | EXTB.W D1 00021050 43 83 |C | CHK.W D3,D1 00021052 de fc 00 24 | $ | ADDA.W #0x24,A7 00021056 11 81 00 5c | \ | MOVE.B D1,(A0+D0.W+#0x5c) 0002105a 12 07 | | MOVE.B D7,D1 0002105c 48 81 |H | EXTB.W D1 0002105e 34 01 |4 | MOVE.W D1,D2 00021060 eb 42 | B | ASL.W #0x5,D2 00021062 43 f9 00 02 14 92 |C | LEA.L 0x21492,A1 00021068 9e fc 00 1e | | SUBA.W #0x1e,A7 0002106c 24 4f |$O | MOVEA.L A7,A2 0002106e 43 f1 20 5d |C ] | LEA.L (A1+D2.W+#0x5d),A1 00021072 74 1d |t | MOVEQ.L #0x1d,D2 00021074 14 d9 | | MOVE.B (A1)+,(A2)+ 00021076 51 ca ff fc |Q | DBF D2,0x21074 0002107a 59 4f |YO | SUBQ.L #0x4,A7 0002107c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021080 3f 03 |? | MOVE.W D3,-(A7) 00021082 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 00021086 4e 93 |N | JSR (A3) 00021088 50 4f |PO | ADDQ.L #0x8,A7 0002108a 28 5f |(_ | MOVEA.L (A7)+,A4 0002108c de fc 00 1e | | ADDA.W #0x1e,A7 00021090 4a 30 00 5c |J0 \ | TST.B (A0+D0.W+#0x5c) 00021094 67 40 |g@ | BEQ 0x210d6 00021096 9e c5 | | SUBA.W D5,A7 00021098 22 4f |"O | MOVEA.L A7,A1 0002109a 45 fa f4 7a |E z | LEA.L 0x20516,A2 0002109e 74 20 |t | MOVEQ.L #0x20,D2 000210a0 12 da | | MOVE.B (A2)+,(A1)+ 000210a2 51 ca ff fc |Q | DBF D2,0x210a0 000210a6 9e c4 | | SUBA.W D4,A7 000210a8 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000210ac 3f 03 |? | MOVE.W D3,-(A7) 000210ae 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7) 000210b2 4e 93 |N | JSR (A3) 000210b4 54 4f |TO | ADDQ.L #0x2,A7 000210b6 1e 81 | | MOVE.B D1,(A7) 000210b8 4e b9 00 01 05 86 |N | JSR Config_Entry_Name(a : Byte) : String 000210be 54 4f |TO | ADDQ.L #0x2,A7 000210c0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000210c6 58 4f |XO | ADDQ.L #0x4,A7 000210c8 2e 8c |. | MOVE.L A4,(A7) 000210ca 4e ba f4 c4 |N | JSR 0x20590 000210ce 50 4f |PO | ADDQ.L #0x8,A7 000210d0 28 5f |(_ | MOVEA.L (A7)+,A4 000210d2 de c5 | | ADDA.W D5,A7 000210d4 60 42 |`B | BRA 0x21118 000210d6 9e fc 00 1a | | SUBA.W #0x1a,A7 000210da 22 4f |"O | MOVEA.L A7,A1 000210dc 45 fa f4 5a |E Z | LEA.L 0x20538,A2 000210e0 74 18 |t | MOVEQ.L #0x18,D2 000210e2 12 da | | MOVE.B (A2)+,(A1)+ 000210e4 51 ca ff fc |Q | DBF D2,0x210e2 000210e8 9e c4 | | SUBA.W D4,A7 000210ea 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000210ee 3f 03 |? | MOVE.W D3,-(A7) 000210f0 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 000210f4 4e 93 |N | JSR (A3) 000210f6 54 4f |TO | ADDQ.L #0x2,A7 000210f8 1e 81 | | MOVE.B D1,(A7) 000210fa 4e b9 00 01 05 86 |N | JSR Config_Entry_Name(a : Byte) : String 00021100 54 4f |TO | ADDQ.L #0x2,A7 00021102 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021108 58 4f |XO | ADDQ.L #0x4,A7 0002110a 2e 8c |. | MOVE.L A4,(A7) 0002110c 4e ba f4 82 |N | JSR 0x20590 00021110 50 4f |PO | ADDQ.L #0x8,A7 00021112 28 5f |(_ | MOVEA.L (A7)+,A4 00021114 de fc 00 1a | | ADDA.W #0x1a,A7 00021118 2f 0c |/ | MOVE.L A4,-(A7) 0002111a 48 70 00 5d |Hp ] | PEA.L (A0+D0.W+#0x5d) 0002111e 48 6e ff fe |Hn | PEA.L (A6-0x2) 00021122 4e b9 00 01 05 8c |N | JSR FSCALL_1058c 00021128 de c4 | | ADDA.W D4,A7 0002112a 4a 2e ff fe |J. | TST.B (A6-0x2) 0002112e 67 00 fe d4 |g | BEQ 0x21004 00021132 5c 4f |\O | ADDQ.L #0x6,A7 00021134 52 07 |R | ADDQ.B #0x1,D7 00021136 68 00 fe 34 |h 4 | BVC 0x20f6c 0002113a 54 4f |TO | ADDQ.L #0x2,A7 0002113c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021140 4e 5e |N^ | UNLK A6 00021142 4e 75 |Nu | RTS 00021144 ; -------------------------------------------------------------------------------------- 00021144 ; OMSI PASCAL Function 00021144 ; -------------------------------------------------------------------------------------- 00021144 4e 56 ff fc |NV | LINK.W A6,#0xfffc 00021148 bf d5 | | CMPA.L (A5),A7 0002114a 62 06 |b | BHI 0x21152 0002114c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021150 4e 76 |Nv | TRAPV 00021152 de fc 00 04 | | ADDA.W #0x4,A7 00021156 4e ba f9 f8 |N | JSR 0x20b50 0002115a 4e ba fb 18 |N | JSR 0x20c74 0002115e 4e ba fc 7a |N z | JSR 0x20dda 00021162 4e ba fd c6 |N | JSR 0x20f2a 00021166 4e 5e |N^ | UNLK A6 00021168 4e 75 |Nu | RTS 0002116a ; -------------------------------------------------------------------------------------- 0002116a ; OMSI PASCAL Function 0002116a ; <LVAR 0x008 4(r)> 0002116a ; -------------------------------------------------------------------------------------- 0002116a 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 0002116e bf d5 | | CMPA.L (A5),A7 00021170 62 06 |b | BHI 0x21178 00021172 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021176 4e 76 |Nv | TRAPV 00021178 de fc 00 2c | , | ADDA.W #0x2c,A7 0002117c 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021180 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021184 48 79 00 02 14 9c |Hy | PEA.L 0x2149c 0002118a 4e b9 00 01 05 74 |N t | JSR Write_ConfigFile(name: String; dst: Pointer) 00021190 50 4f |PO | ADDQ.L #0x8,A7 00021192 41 fa f3 d8 |A | LEA.L 0x2056c,A0 00021196 70 04 |p | MOVEQ.L #0x04,D0 00021198 2f 20 |/ | MOVE.L -(A0),-(A7) 0002119a 51 c8 ff fc |Q | DBF D0,0x21198 0002119e 59 4f |YO | SUBQ.L #0x4,A7 000211a0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000211a4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000211a8 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 000211ac 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000211b2 50 4f |PO | ADDQ.L #0x8,A7 000211b4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000211ba de fc 00 18 | | ADDA.W #0x18,A7 000211be 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000211c2 4e 5e |N^ | UNLK A6 000211c4 4e 75 |Nu | RTS 000211c6 ; -------------------------------------------------------------------------------------- 000211c6 ; OMSI PASCAL Function 000211c6 ; <LVAR -0x004 @ 1(r)> 000211c6 ; <LVAR -0x008 @ 4(r)> 000211c6 ; <LVAR -0x00c @ 4(r)> 000211c6 ; -------------------------------------------------------------------------------------- 000211c6 4e 56 ff ac |NV | LINK.W A6,#0xffac 000211ca bf d5 | | CMPA.L (A5),A7 000211cc 62 06 |b | BHI 0x211d4 000211ce 44 fc 00 02 |D | MOVE.W #0x2,CCR 000211d2 4e 76 |Nv | TRAPV 000211d4 de fc 00 48 | H | ADDA.W #0x48,A7 000211d8 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7) 000211dc 45 ee ff f4 |E | LEA.L (A6-0xc),A2 000211e0 47 ee ff f8 |G | LEA.L (A6-0x8),A3 000211e4 72 01 |r | MOVEQ.L #0x01,D1 000211e6 48 52 |HR | PEA.L (A2) 000211e8 48 53 |HS | PEA.L (A3) 000211ea 48 6e ff fc |Hn | PEA.L (A6-0x4) 000211ee 4e ba f4 50 |N P | JSR 0x20640 000211f2 9e fc 00 12 | | SUBA.W #0x12,A7 000211f6 20 4f | O | MOVEA.L A7,A0 000211f8 43 fa f3 72 |C r | LEA.L 0x2056c,A1 000211fc 70 1c |p | MOVEQ.L #0x1c,D0 000211fe 10 d9 | | MOVE.B (A1)+,(A0)+ 00021200 51 c8 ff fc |Q | DBF D0,0x211fe 00021204 4a 2e ff fc |J. | TST.B (A6-0x4) 00021208 66 22 |f" | BNE 0x2122c 0002120a 5d 4f |]O | SUBQ.L #0x6,A7 0002120c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021210 3f 01 |? | MOVE.W D1,-(A7) 00021212 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 00021216 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002121c 5c 4f |\O | ADDQ.L #0x6,A7 0002121e 1e 81 | | MOVE.B D1,(A7) 00021220 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 00021226 5c 4f |\O | ADDQ.L #0x6,A7 00021228 4a 1f |J | TST.B (A7)+ 0002122a 67 28 |g( | BEQ 0x21254 0002122c 2f 12 |/ | MOVE.L (A2),-(A7) 0002122e 4e ba f6 c0 |N | JSR 0x208f0 00021232 58 4f |XO | ADDQ.L #0x4,A7 00021234 4e ba ff 0e |N | JSR 0x21144 00021238 2f 13 |/ | MOVE.L (A3),-(A7) 0002123a 4e ba ff 2e |N . | JSR 0x2116a 0002123e 58 4f |XO | ADDQ.L #0x4,A7 00021240 48 52 |HR | PEA.L (A2) 00021242 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021248 58 4f |XO | ADDQ.L #0x4,A7 0002124a 48 53 |HS | PEA.L (A3) 0002124c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021252 58 4f |XO | ADDQ.L #0x4,A7 00021254 de fc 00 1e | | ADDA.W #0x1e,A7 00021258 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3 0002125c 4e 5e |N^ | UNLK A6 0002125e 4e 75 |Nu | RTS 00021260 ; -------------------------------------------------------------------------------------- 00021260 ; OMSI PASCAL Function 00021260 ; -------------------------------------------------------------------------------------- 00021260 START: 00021260 4f fa 00 08 |O | LEA.L MAIN,A7 00021264 4e f9 00 01 02 80 |N | JMP ?start_program 0002126a MAIN: 0002126a 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00021270 4e ba f6 c8 |N | JSR 0x2093a 00021274 4e ba ff 50 |N P | JSR 0x211c6 00021278 42 27 |B' | CLR.B -(A7) 0002127a 48 78 00 01 |Hx | PEA.L 0x1 0002127e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021284 5c 4f |\O | ADDQ.L #0x6,A7 00021286 4e b9 00 01 02 84 |N | JSR ?exit 0002128c 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 0002129a ; -------------------------------------------------------------------------------------- 0002129a ; OMSI PASCAL Function 0002129a ; <LVAR 0x008 1(r)> 0002129a ; -------------------------------------------------------------------------------------- 0002129a PROG_FAIL: 0002129a 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 0002129e bf d5 | | CMPA.L (A5),A7 000212a0 62 06 |b | BHI 0x212a8 000212a2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000212a6 4e 76 |Nv | TRAPV 000212a8 de fc 00 2c | , | ADDA.W #0x2c,A7 000212ac 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000212b0 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 000212b4 70 06 |p | MOVEQ.L #0x06,D0 000212b6 3f 20 |? | MOVE.W -(A0),-(A7) 000212b8 51 c8 ff fc |Q | DBF D0,0x212b6 000212bc 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000212c0 51 4f |QO | SUBQ.L #0x8,A7 000212c2 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000212c6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000212ca 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000212ce 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000212d4 58 4f |XO | ADDQ.L #0x4,A7 000212d6 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000212da 48 80 |H | EXTB.W D0 000212dc 48 c0 |H | EXTW.L D0 000212de 2f 00 |/ | MOVE.L D0,-(A7) 000212e0 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000212e6 58 4f |XO | ADDQ.L #0x4,A7 000212e8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000212ee 50 4f |PO | ADDQ.L #0x8,A7 000212f0 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000212f6 de fc 00 14 | | ADDA.W #0x14,A7 000212fa 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000212fe 4e 5e |N^ | UNLK A6 00021300 4e 75 |Nu | RTS 00021302 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00021310 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 0002131e 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 0002132c 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 0002133e 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00021356 ; -------------------------------------------------------------------------------------- 00021356 ; OMSI PASCAL Function 00021356 ; <LVAR 0x00e 1(r)> 00021356 ; <LVAR 0x00a 4(r)> 00021356 ; <LVAR 0x008 1(r)> 00021356 ; -------------------------------------------------------------------------------------- 00021356 EXP_FAIL: 00021356 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 0002135a bf d5 | | CMPA.L (A5),A7 0002135c 62 06 |b | BHI 0x21364 0002135e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021362 4e 76 |Nv | TRAPV 00021364 de fc 00 74 | t | ADDA.W #0x74,A7 00021368 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 0002136c 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00021372 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00021378 72 01 |r | MOVEQ.L #0x01,D1 0002137a 74 0d |t | MOVEQ.L #0x0d,D2 0002137c 76 1e |v | MOVEQ.L #0x1e,D3 0002137e 78 12 |x | MOVEQ.L #0x12,D4 00021380 7a 0e |z | MOVEQ.L #0x0e,D5 00021382 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021388 41 fa ff b4 |A | LEA.L 0x2133e,A0 0002138c 70 08 |p | MOVEQ.L #0x08,D0 0002138e 3f 20 |? | MOVE.W -(A0),-(A7) 00021390 51 c8 ff fc |Q | DBF D0,0x2138e 00021394 59 4f |YO | SUBQ.L #0x4,A7 00021396 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002139a 3f 01 |? | MOVE.W D1,-(A7) 0002139c 3f 04 |? | MOVE.W D4,-(A7) 0002139e 4e 93 |N | JSR (A3) 000213a0 50 4f |PO | ADDQ.L #0x8,A7 000213a2 4e 94 |N | JSR (A4) 000213a4 50 4f |PO | ADDQ.L #0x8,A7 000213a6 20 4f | O | MOVEA.L A7,A0 000213a8 43 fa ff 58 |C X | LEA.L 0x21302,A1 000213ac 70 0c |p | MOVEQ.L #0x0c,D0 000213ae 10 d9 | | MOVE.B (A1)+,(A0)+ 000213b0 51 c8 ff fc |Q | DBF D0,0x213ae 000213b4 51 4f |QO | SUBQ.L #0x8,A7 000213b6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000213ba 3f 01 |? | MOVE.W D1,-(A7) 000213bc 3f 02 |? | MOVE.W D2,-(A7) 000213be 4e 93 |N | JSR (A3) 000213c0 54 4f |TO | ADDQ.L #0x2,A7 000213c2 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000213c6 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000213cc 54 4f |TO | ADDQ.L #0x2,A7 000213ce 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000213d4 50 4f |PO | ADDQ.L #0x8,A7 000213d6 4e 94 |N | JSR (A4) 000213d8 de c4 | | ADDA.W D4,A7 000213da 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000213de b0 c1 | | CMPA.W D1,A0 000213e0 67 48 |gH | BEQ 0x2142a 000213e2 9e c5 | | SUBA.W D5,A7 000213e4 22 4f |"O | MOVEA.L A7,A1 000213e6 45 fa ff 28 |E ( | LEA.L 0x21310,A2 000213ea 70 0c |p | MOVEQ.L #0x0c,D0 000213ec 12 da | | MOVE.B (A2)+,(A1)+ 000213ee 51 c8 ff fc |Q | DBF D0,0x213ec 000213f2 9e c3 | | SUBA.W D3,A7 000213f4 22 4f |"O | MOVEA.L A7,A1 000213f6 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000213fa 70 1d |p | MOVEQ.L #0x1d,D0 000213fc 12 d8 | | MOVE.B (A0)+,(A1)+ 000213fe 51 c8 ff fc |Q | DBF D0,0x213fc 00021402 51 4f |QO | SUBQ.L #0x8,A7 00021404 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00021408 3f 01 |? | MOVE.W D1,-(A7) 0002140a 3f 02 |? | MOVE.W D2,-(A7) 0002140c 4e 93 |N | JSR (A3) 0002140e 58 4f |XO | ADDQ.L #0x4,A7 00021410 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021414 3f 01 |? | MOVE.W D1,-(A7) 00021416 3f 03 |? | MOVE.W D3,-(A7) 00021418 4e 93 |N | JSR (A3) 0002141a 50 4f |PO | ADDQ.L #0x8,A7 0002141c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021422 50 4f |PO | ADDQ.L #0x8,A7 00021424 4e 94 |N | JSR (A4) 00021426 de fc 00 30 | 0 | ADDA.W #0x30,A7 0002142a 9e c5 | | SUBA.W D5,A7 0002142c 20 4f | O | MOVEA.L A7,A0 0002142e 43 fa fe ee |C | LEA.L 0x2131e,A1 00021432 70 0c |p | MOVEQ.L #0x0c,D0 00021434 10 d9 | | MOVE.B (A1)+,(A0)+ 00021436 51 c8 ff fc |Q | DBF D0,0x21434 0002143a 51 4f |QO | SUBQ.L #0x8,A7 0002143c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021440 3f 01 |? | MOVE.W D1,-(A7) 00021442 3f 02 |? | MOVE.W D2,-(A7) 00021444 4e 93 |N | JSR (A3) 00021446 54 4f |TO | ADDQ.L #0x2,A7 00021448 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 0002144c 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00021452 54 4f |TO | ADDQ.L #0x2,A7 00021454 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002145a 50 4f |PO | ADDQ.L #0x8,A7 0002145c 4e 94 |N | JSR (A4) 0002145e 5d 4f |]O | SUBQ.L #0x6,A7 00021460 20 4f | O | MOVEA.L A7,A0 00021462 43 fa fe da |C | LEA.L 0x2133e,A1 00021466 70 16 |p | MOVEQ.L #0x16,D0 00021468 10 d9 | | MOVE.B (A1)+,(A0)+ 0002146a 51 c8 ff fc |Q | DBF D0,0x21468 0002146e 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00021472 59 4f |YO | SUBQ.L #0x4,A7 00021474 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021478 3f 01 |? | MOVE.W D1,-(A7) 0002147a 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 0002147e 4e 93 |N | JSR (A3) 00021480 50 4f |PO | ADDQ.L #0x8,A7 00021482 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021488 de c3 | | ADDA.W D3,A7 0002148a 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 0002148e 4e 5e |N^ | UNLK A6 00021490 4e 75 |Nu | RTS