|
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: @(#)INITIOA,1.1,90/12/04,12:20:00, M200_PROGRAM
Names: »INITIOA.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »INITIOA.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »INITIOA.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »INITIOA.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »INITIOA.M200«
└─ ⟦this⟧ »INITIOA.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »INITIOA.M200«
@ 206cc
<LVAR -0x024 @>
<LVAR -0x030 @ 4(rw)>
<POP 206cc-20a0e Body> Δ-8
<POP 206cc-206e2 Prologue> Σ0 ↓
<POP 206e2-206f8 RegCacheLoad> Σ0 ↓
<POP 206f8-2081c Naked> Σ0 ↓
<MI 206f8 LEA.L (A6-0x24),A0> {}
<MI 206fc LEA.L 0x2068c,A1> {}
<BlockMove 32,A1,A0> {}
<Blob 0x20708 [54] @> Δ-54 {[«54""»]}
<POP 20718-2071a StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x2071a 53> {[«54""»]|[$$Enter phone number to be used for remote diagnostics.]}
<Call 0x20728 0x103e0> {[«54""»]|[$$Enter phone number to be used for remote diagnostics.]}
WriteConsoleStringCrLf(str : String)
<POP 2072a-2072e StackAdj> Δ+58 {}
<Blob 0x2072e [54] @> Δ-54 {[«54""»]}
<POP 2073a-2073c StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x2073c 54> {[«54""»]|[$$Include all PBX codes required to gain outside access.]}
<Call 0x20748 0x103e0> {[«54""»]|[$$Include all PBX codes required to gain outside access.]}
WriteConsoleStringCrLf(str : String)
<POP 2074a-2074b StackAdj> Δ+58 ↓ {}
<Blob 0x2074b [56] @> Δ-56 {[«56""»]}
<POP 2075a-2075c StackAdj> Δ-4 {[«56""»]|[-4-]}
<Lit 0x2075c 55> {[«56""»]|[$$The following characters may be imbedded at any point :]}
<Call 0x2076a 0x103e0> {[«56""»]|[$$The following characters may be imbedded at any point :]}
WriteConsoleStringCrLf(str : String)
<POP 2076c-20770 StackAdj> Δ+60 {}
<Blob 0x20770 [32] @> Δ-32 {[«32""»]}
<POP 2077c-2077e StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x2077e 32> {[«32""»]|[$$ W => Wait for dial tone.]}
<Call 0x2078c 0x103e0> {[«32""»]|[$$ W => Wait for dial tone.]}
WriteConsoleStringCrLf(str : String)
<POP 2078e-2078f StackAdj> Δ+36 ↓ {}
<Blob 0x2078f [30] @> Δ-30 {[«30""»]}
<POP 2079e-207a0 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x207a0 29> {[«30""»]|[$$ D => Pause 3 seconds.]}
<Call 0x207ae 0x103e0> {[«30""»]|[$$ D => Pause 3 seconds.]}
WriteConsoleStringCrLf(str : String)
<POP 207b0-207b1 StackAdj> Δ+34 ↓ {}
<Blob 0x207b1 [48] @> Δ-48 {[«48""»]}
<POP 207c2-207c4 StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x207c4 47> {[«48""»]|[$$ P => Subsequent digits are pulse dialed]}
<Call 0x207d2 0x103e0> {[«48""»]|[$$ P => Subsequent digits are pulse dialed]}
WriteConsoleStringCrLf(str : String)
<POP 207d4-207d8 StackAdj> Δ+52 {}
<Blob 0x207d8 [54] @> Δ-54 {[«54""»]}
<POP 207e4-207e6 StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x207e6 54> {[«54""»]|[$$ T => Subsequent digits are tone dialed (DTMF).]}
<Call 0x207f2 0x103e0> {[«54""»]|[$$ T => Subsequent digits are tone dialed (DTMF).]}
WriteConsoleStringCrLf(str : String)
<POP 207f4-207f8 StackAdj> Δ+58 {}
<Blob 0x207f8 [46] @> Δ-46 {[«46""»]}
<POP 20804-20806 StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x20806 46> {[«46""»]|[$$ - => No effect, used for clarity only.]}
<Call 0x20814 0x103e0> {[«46""»]|[$$ - => No effect, used for clarity only.]}
WriteConsoleStringCrLf(str : String)
<POP 20816-2081a StackAdj> Δ+50 {}
<MI 2081a MOVEQ.L #0x00,D5> {}
<POP 2081c-20828 Naked> Σ0 ↓ ←0x20998
<MI 2081c MOVEQ.L #0x00,D7> {}
<Pointer.fp 0x2081e <LVAR -0x030 @ 4(rw)>> Δ-4 {[@@-48]}
<Call 0x20820 0x102b8> {[@@-48]}
NewString(VAR a : String)
<POP 20826-20828 StackAdj> Δ+4 {}
<POP 20828-20840 Naked> Σ0 ↓ →0x20856 ←0x20860
<POP 20828-2082a StackAdj> Δ-2 {[-2-]}
<Const 0x2082a 0xb.4> Δ-4 {[-2-]|[##11]}
<MI 2082e ADD.L D7,(A7)> {[-6-]}
<Call 0x20830 0x10592> {[-6-]}
ReadConfig(where : Long) : Word
<POP 20836-20838 StackAdj> Δ+4 {[-2-]}
<MI 20838 MOVE.W (A7)+,D0> Δ+2 {}
<MI 2083a EXTW.L D0> {}
<MI 2083c MOVE.L D0,D6> {}
<MI 2083e BEQ 0x20856> {}
<POP 20840-20856 Naked> Σ0 ↓
<MI 20840 MOVE.L (A6-0x30),-(A7)> Δ-4 {[4, '(A6-0x30)']}
<POP 0x20842 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[4, '(A6-0x30)']}
<MI 2084c MOVE.B D6,-(A7)> Δ-2 {[4, '(A6-0x30)']|[2, 'D6']}
<Call 0x2084e 0x102c0> {[4, '(A6-0x30)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 20854-20856 StackAdj> Δ+6 {}
<POP 20856-20860 Naked> Σ0 ↓ →0x20864 ←0x20828
<MI 20856 ADDQ.L #0x1,D7> {}
<MI 20858 CMPI.L #0x0000001e,D7> {}
<MI 2085e BGT 0x20864> {}
<POP 20860-20864 Naked> Σ0 ↓ →0x20828
<MI 20860 TST.L D6> {}
<MI 20862 BNE 0x20828> {}
<POP 20864-20870 Naked> Σ0 Δ-8 ↓ ←0x20856
<MI 20864 MOVEA.L (A6-0x30),A0> {}
<MI 20866 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20868 MOVE.W (A0),D0> {[4, 'A0']}
<MI 2086a EXTW.L D0> {[4, 'A0']}
<MI 2086c MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 2086e MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 20870-20874 Naked> Σ-8 ↓ →0x20896 ←0x20892
<MI 20870 CMP.L (A7),D7> {[-8-]}
<MI 20872 BGT 0x20896> {[-8-]}
<POP 20874-2088c Naked> Σ-8 ↓ →0x20892
<MI 20874 MOVE.L D7,D0> {[-8-]}
<MI 20876 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x20878 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 2087e MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 20882 MOVE.B (A0+D0.L+#0x2),D1> {[-8-]}
<MI 20886 CMPI.B #0x20,D1> {[-8-]}
<MI 2088a BNE 0x20892> {[-8-]}
<POP 2088c-20892 Naked> Σ-8 ↓
<MI 2088c MOVE.B #0x2d,(A0+D0.L+#0x2)> {[-8-]}
<POP 20892-20896 Naked> Σ-8 ↓ →0x20870 ←0x20874
<MI 20892 ADDQ.L #0x1,D7> {[-8-]}
<MI 20894 BVC 0x20870> {[-8-]}
<POP 20896-208f2 Naked> Σ-8 Δ+8 ↓ →0x208f6 ←0x20870
<POP 20896-20898 StackAdj> Δ+8 {}
<Blob 0x20898 [20] @> Δ-20 {[«20""»]}
<Blob 0x208a4 [4] @> Δ-4 {[«20""»]|[«4""»]}
<POP 208a8-208ac StackAdj> Δ-16 {[«20""»]|[«4""»]|[-16-]}
<Lit 0x208ac 20> {[«20""»]|[«4""»]|[-12-]|[$$Enter phone number []}
<POP 208b8-208ba StackAdj> Δ-4 {[«20""»]|[«4""»]|[-12-]|[$$Enter phone number []|[-4-]}
<MI 208ba MOVE.L (A6-0x30),(A7)> {[«20""»]|[«4""»]|[-12-]|[$$Enter phone number []|[4, '(A6-0x30)']}
<POP 208bc-208be StackAdj> Δ-4 {[«20""»]|[«4""»]|[-12-]|[$$Enter phone number []|[4, '(A6-0x30)']|[-4-]}
<Lit 0x208be 4> {[«20""»]|[«4""»]|[-12-]|[$$Enter phone number []|[4, '(A6-0x30)']|[$$] :_]}
<Call 0x208cc 0x102d4> {[«20""»]|[«4""»]|[-12-]|[$$Enter phone number []|[4, '(A6-0x30)']|[$$] :_]}
StringCat3(a, b, c : String) : String
<POP 208d2-208d6 StackAdj> Δ+12 {[«20""»]|[«4""»]|[-12-]}
<Call 0x208d6 0x103e4> {[«20""»]|[«4""»]|[-12-]}
AskConsoleString(prompt : String) : String
<POP 208dc-208de StackAdj> Δ+4 {[«20""»]|[«4""»]|[-8-]}
<Call 0x208de 0x102f0> {[«20""»]|[«4""»]|[-8-]}
ToUpper(a : String) : String
<POP 208e4-208e6 StackAdj> Δ+4 {[«20""»]|[«4""»]|[-4-]}
<MI 208e6 MOVE.L (A7)+,(A6-0x30)> Δ+4 {[«20""»]|[«4""»]}
<POP 208e8-208ec StackAdj> Δ+24 {}
<MI 208ec MOVEA.L (A6-0x30),A0> {}
<MI 208ee TST.W (A0)> {}
<MI 208f0 BNE 0x208f6> {}
<POP 208f2-208f6 Naked> Σ0 →0x209fc
<MI 208f2 BRA 0x209fc> {}
<POP 208f6-20900 Naked> Σ0 Δ-4 ↓ →0x20906 ←0x20896
<MI 208f6 MOVEA.L (A6-0x30),A0> {}
<MI 208f8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 208fa MOVE.W (A0),D0> {[4, 'A0']}
<MI 208fc CMP.W #0x01,D0> {[4, 'A0']}
<MI 208fe BLT 0x20906> {[4, 'A0']}
<POP 20900-20906 Naked> Σ-4 ↓ →0x20930
<MI 20900 CMPI.W #0x001e,D0> {[-4-]}
<MI 20904 BLE 0x20930> {[-4-]}
<POP 20906-20930 Naked> Σ-4 →0x20996 ←0x208f6
<Blob 0x20906 [40] @> Δ-40 {[-4-]|[«40""»]}
<POP 20918-2091a StackAdj> Δ-4 {[-4-]|[«40""»]|[-4-]}
<Lit 0x2091a 39> {[-4-]|[«40""»]|[$$Number must be from 1 to 30 characters.]}
<Call 0x20928 0x103e0> {[-4-]|[«40""»]|[$$Number must be from 1 to 30 characters.]}
WriteConsoleStringCrLf(str : String)
<POP 2092a-2092e StackAdj> Δ+44 {[-4-]}
<MI 2092e BRA 0x20996> {[-4-]}
<POP 20930-20936 Naked> Σ-4 Δ-4 ↓ ←0x20900
<MI 20930 EXTW.L D0> {[-4-]}
<MI 20932 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 20934 MOVEQ.L #0x01,D7> {[-4-]|[4, 'D0']}
<POP 20936-2093a Naked> Σ-8 ↓ →0x20992 ←0x2098e
<MI 20936 CMP.L (A7),D7> {[-8-]}
<MI 20938 BGT 0x20992> {[-8-]}
<POP 2093a-20958 Naked> Σ-8 ↓ →0x2098e
<MI 2093a MOVE.L D7,D0> {[-8-]}
<MI 2093c SUBQ.L #0x1,D0> {[-8-]}
<POP 0x2093e LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 20944 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 20948 CLR.L D1> {[-8-]}
<MI 2094a MOVE.B (A0+D0.L+#0x2),D1> {[-8-]}
<MI 2094e MOVE.W D1,D0> {[-8-]}
<MI 20950 LSR.W #0x3,D0> {[-8-]}
<MI 20952 BTST.B D1,(A6+D0.W-#0x24)> {[-8-]}
<MI 20956 BNE 0x2098e> {[-8-]}
<POP 20958-2098e Naked> Σ-8 Δ+8 →0x20998
<Blob 0x20958 [36] @> Δ-36 {[-8-]|[«36""»]}
<POP 2096a-2096c StackAdj> Δ-4 {[-8-]|[«36""»]|[-4-]}
<Lit 0x2096c 35> {[-8-]|[«36""»]|[$$Number contains illegal characters.]}
<Call 0x2097a 0x103e0> {[-8-]|[«36""»]|[$$Number contains illegal characters.]}
WriteConsoleStringCrLf(str : String)
<POP 2097c-20980 StackAdj> Δ+40 {[-8-]}
<Pointer.fp 0x20980 <LVAR -0x030 @ 4(rw)>> Δ-4 {[-8-]|[@@-48]}
<Call 0x20982 0x102bc> {[-8-]|[@@-48]}
FreeString(VAR a : String)
<POP 20988-2098c StackAdj> Δ+12 {}
<MI 2098c BRA 0x20998> {}
<POP 2098e-20992 Naked> Σ-8 ↓ →0x20936 ←0x2093a
<MI 2098e ADDQ.L #0x1,D7> {[-8-]}
<MI 20990 BVC 0x20936> {[-8-]}
<POP 20992-20996 Naked> Σ-8 Δ+4 ↓ ←0x20936
<POP 20992-20994 StackAdj> Δ+4 {[-4-]}
<MI 20994 MOVEQ.L #0x01,D5> {[-4-]}
<POP 20996-20998 Naked> Σ-4 Δ+4 ↓ ←0x20906
<POP 20996-20998 StackAdj> Δ+4 {}
<POP 20998-2099e Naked> Σ0 ↓ →0x2081c ←0x20958
<MI 20998 TST.B D5> {}
<MI 2099a BEQ 0x2081c> {}
<POP 2099e-209b6 Naked> Σ0 Δ-8 ↓
<MI 2099e MOVE.L (A6-0x30),-(A7)> Δ-4 {[4, '(A6-0x30)']}
<MI 209a0 CLR.B -(A7)> Δ-2 {[4, '(A6-0x30)']|[#0]}
<Call 0x209a2 0x102c0> {[4, '(A6-0x30)']|[#0]}
AppendChar(MOD b : String; a : char)
<POP 209a8-209aa StackAdj> Δ+6 {}
<MI 209aa MOVEA.L (A6-0x30),A0> {}
<MI 209ac MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 209ae MOVE.W (A0),D0> {[4, 'A0']}
<MI 209b0 EXTW.L D0> {[4, 'A0']}
<MI 209b2 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 209b4 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 209b6-209ba Naked> Σ-8 ↓ →0x209fa ←0x209da
<MI 209b6 CMP.L (A7),D7> {[-8-]}
<MI 209b8 BGT 0x209fa> {[-8-]}
<POP 209ba-209d8 Naked> Σ-8 ↓ →0x209da
<MI 209ba MOVE.L D7,D0> {[-8-]}
<MI 209bc SUBQ.L #0x1,D0> {[-8-]}
<POP 0x209be LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 209c4 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 209c8 CLR.L D1> {[-8-]}
<MI 209ca MOVE.B (A0+D0.L+#0x2),D1> {[-8-]}
<MI 209ce MOVE.L D1,D6> {[-8-]}
<MI 209d0 CMPI.L #0x0000002d,D6> {[-8-]}
<MI 209d6 BNE 0x209da> {[-8-]}
<POP 209d8-209da Naked> Σ-8 ↓
<MI 209d8 MOVEQ.L #0x20,D6> {[-8-]}
<POP 209da-209fa Naked> Σ-8 ↓ →0x209b6 ←0x209ba
<Const 0x209da 0xb.4> Δ-4 {[-8-]|[##11]}
<MI 209de ADD.L D7,(A7)> {[-12-]}
<MI 209e0 SUBQ.L #0x1,(A7)> {[-12-]}
<POP 0x209e2 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-12-]}
<MI 209ec MOVE.W D6,-(A7)> Δ-2 {[-12-]|[2, 'D6']}
<Call 0x209ee 0x10598> {[-12-]|[2, 'D6']}
WriteConfig(what: Word; where : Long)
<POP 209f4-209f6 StackAdj> Δ+6 {[-8-]}
<MI 209f6 ADDQ.L #0x1,D7> {[-8-]}
<MI 209f8 BVC 0x209b6> {[-8-]}
<POP 209fa-209fc Naked> Σ-8 Δ+8 ↓ ←0x209b6
<POP 209fa-209fc StackAdj> Δ+8 {}
<POP 209fc-20a06 Naked> Σ0 ↓ ←0x208f2
<Pointer.fp 0x209fc <LVAR -0x030 @ 4(rw)>> Δ-4 {[@@-48]}
<Call 0x209fe 0x102bc> {[@@-48]}
FreeString(VAR a : String)
<POP 20a04-20a06 StackAdj> Δ+4 {}
<POP 20a06-20a0e Epilogue> Σ0
@ 20a0e
<LVAR -0x010 @ 4(rw)>
<POP 20a0e-20bec Body>
<POP 20a0e-20a24 Prologue> Σ0 ↓
<POP 20a24-20a34 RegCacheLoad> Σ0 ↓
<POP 20a34-20a62 Naked> Σ0 ↓
<Blob 0x20a34 [66] @> Δ-66 {[«66""»]}
<POP 20a46-20a48 StackAdj> Δ-4 {[«66""»]|[-4-]}
<Lit 0x20a48 65> {[«66""»]|[$$Enter AUTODIAL command string for far end connection to RATIONAL.]}
<Call 0x20a56 0x103e0> {[«66""»]|[$$Enter AUTODIAL command string for far end connection to RATIONAL.]}
WriteConsoleStringCrLf(str : String)
<POP 20a5c-20a60 StackAdj> Δ+70 {}
<MI 20a60 MOVEQ.L #0x00,D5> {}
<POP 20a62-20a6e Naked> Σ0 ↓ ←0x20b76
<MI 20a62 MOVEQ.L #0x00,D7> {}
<Pointer.fp 0x20a64 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x20a66 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 20a6c-20a6e StackAdj> Δ+4 {}
<POP 20a6e-20a86 Naked> Σ0 ↓ →0x20a9c ←0x20aa2
<POP 20a6e-20a70 StackAdj> Δ-2 {[-2-]}
<Const 0x20a70 0xb.4> Δ-4 {[-2-]|[##11]}
<MI 20a74 ADD.L D7,(A7)> {[-6-]}
<Call 0x20a76 0x10592> {[-6-]}
ReadConfig(where : Long) : Word
<POP 20a7c-20a7e StackAdj> Δ+4 {[-2-]}
<MI 20a7e MOVE.W (A7)+,D0> Δ+2 {}
<MI 20a80 EXTW.L D0> {}
<MI 20a82 MOVE.L D0,D6> {}
<MI 20a84 BEQ 0x20a9c> {}
<POP 20a86-20a9c Naked> Σ0 ↓
<MI 20a86 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<POP 0x20a88 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[4, '(A6-0x10)']}
<MI 20a92 MOVE.B D6,-(A7)> Δ-2 {[4, '(A6-0x10)']|[2, 'D6']}
<Call 0x20a94 0x102c0> {[4, '(A6-0x10)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 20a9a-20a9c StackAdj> Δ+6 {}
<POP 20a9c-20aa2 Naked> Σ0 ↓ →0x20aa6 ←0x20a6e
<MI 20a9c ADDQ.L #0x1,D7> {}
<MI 20a9e CMP.L #0x1e,D7> {}
<MI 20aa0 BGT 0x20aa6> {}
<POP 20aa2-20aa6 Naked> Σ0 ↓ →0x20a6e
<MI 20aa2 TST.L D6> {}
<MI 20aa4 BNE 0x20a6e> {}
<POP 20aa6-20ab2 Naked> Σ0 Δ-8 ↓ ←0x20a9c
<MI 20aa6 MOVEA.L (A6-0x10),A0> {}
<MI 20aa8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20aaa MOVE.W (A0),D0> {[4, 'A0']}
<MI 20aac EXTW.L D0> {[4, 'A0']}
<MI 20aae MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 20ab0 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 20ab2-20ab6 Naked> Σ-8 ↓ →0x20ad8 ←0x20ad4
<MI 20ab2 CMP.L (A7),D7> {[-8-]}
<MI 20ab4 BGT 0x20ad8> {[-8-]}
<POP 20ab6-20ace Naked> Σ-8 ↓ →0x20ad4
<MI 20ab6 MOVE.L D7,D0> {[-8-]}
<MI 20ab8 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x20aba LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 20ac0 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 20ac4 MOVE.B (A0+D0.L+#0x2),D1> {[-8-]}
<MI 20ac8 CMPI.B #0x20,D1> {[-8-]}
<MI 20acc BNE 0x20ad4> {[-8-]}
<POP 20ace-20ad4 Naked> Σ-8 ↓
<MI 20ace MOVE.B #0x2d,(A0+D0.L+#0x2)> {[-8-]}
<POP 20ad4-20ad8 Naked> Σ-8 ↓ →0x20ab2 ←0x20ab6
<MI 20ad4 ADDQ.L #0x1,D7> {[-8-]}
<MI 20ad6 BVC 0x20ab2> {[-8-]}
<POP 20ad8-20b2c Naked> Σ-8 Δ+8 ↓ →0x20b30 ←0x20ab2
<POP 20ad8-20ada StackAdj> Δ+8 {}
<Blob 0x20ada [24] @> Δ-24 {[«24""»]}
<Blob 0x20ae6 [4] @> Δ-4 {[«24""»]|[«4""»]}
<POP 20aea-20aee StackAdj> Δ-12 {[«24""»]|[«4""»]|[-12-]}
<Lit 0x20aee 24> {[«24""»]|[«4""»]|[-8-]|[$$Enter AUTODIAL command []}
<POP 20afa-20afc StackAdj> Δ-4 {[«24""»]|[«4""»]|[-8-]|[$$Enter AUTODIAL command []|[-4-]}
<MI 20afc MOVE.L (A6-0x10),(A7)> {[«24""»]|[«4""»]|[-8-]|[$$Enter AUTODIAL command []|[4, '(A6-0x10)']}
<POP 20afe-20b00 StackAdj> Δ-4 {[«24""»]|[«4""»]|[-8-]|[$$Enter AUTODIAL command []|[4, '(A6-0x10)']|[-4-]}
<Lit 0x20b00 4> {[«24""»]|[«4""»]|[-8-]|[$$Enter AUTODIAL command []|[4, '(A6-0x10)']|[$$] :_]}
<Call 0x20b0e 0x102d4> {[«24""»]|[«4""»]|[-8-]|[$$Enter AUTODIAL command []|[4, '(A6-0x10)']|[$$] :_]}
StringCat3(a, b, c : String) : String
<POP 20b14-20b18 StackAdj> Δ+12 {[«24""»]|[«4""»]|[-8-]}
<Call 0x20b18 0x103e4> {[«24""»]|[«4""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 20b1e-20b20 StackAdj> Δ+4 {[«24""»]|[«4""»]|[-4-]}
<MI 20b20 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«24""»]|[«4""»]}
<POP 20b22-20b26 StackAdj> Δ+28 {}
<MI 20b26 MOVEA.L (A6-0x10),A0> {}
<MI 20b28 TST.W (A0)> {}
<MI 20b2a BNE 0x20b30> {}
<POP 20b2c-20b30 Naked> Σ0 →0x20bda
<MI 20b2c BRA 0x20bda> {}
<POP 20b30-20b38 Naked> Σ0 ↓ →0x20b3c ←0x20ad8
<MI 20b30 MOVEA.L (A6-0x10),A0> {}
<MI 20b32 MOVE.W (A0),D0> {}
<MI 20b34 CMP.W #0x01,D0> {}
<MI 20b36 BLT 0x20b3c> {}
<POP 20b38-20b3c Naked> Σ0 ↓ →0x20b74
<MI 20b38 CMP.W #0x1e,D0> {}
<MI 20b3a BLE 0x20b74> {}
<POP 20b3c-20b74 Naked> Σ0 →0x20b76 ←0x20b30
<Blob 0x20b3c [40] @> Δ-40 {[«40""»]}
<POP 20b4e-20b50 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x20b50 39> {[«40""»]|[$$Number must be from 1 to 30 characters.]}
<Call 0x20b5e 0x103e0> {[«40""»]|[$$Number must be from 1 to 30 characters.]}
WriteConsoleStringCrLf(str : String)
<POP 20b64-20b68 StackAdj> Δ+44 {}
<Pointer.fp 0x20b68 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x20b6a 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 20b70-20b72 StackAdj> Δ+4 {}
<MI 20b72 BRA 0x20b76> {}
<POP 20b74-20b76 Naked> Σ0 ↓ ←0x20b38
<MI 20b74 MOVEQ.L #0x01,D5> {}
<POP 20b76-20b7c Naked> Σ0 ↓ →0x20a62 ←0x20b3c
<MI 20b76 TST.B D5> {}
<MI 20b78 BEQ 0x20a62> {}
<POP 20b7c-20b94 Naked> Σ0 Δ-8 ↓
<MI 20b7c MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<MI 20b7e CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]}
<Call 0x20b80 0x102c0> {[4, '(A6-0x10)']|[#0]}
AppendChar(MOD b : String; a : char)
<POP 20b86-20b88 StackAdj> Δ+6 {}
<MI 20b88 MOVEA.L (A6-0x10),A0> {}
<MI 20b8a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20b8c MOVE.W (A0),D0> {[4, 'A0']}
<MI 20b8e EXTW.L D0> {[4, 'A0']}
<MI 20b90 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 20b92 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 20b94-20b98 Naked> Σ-8 ↓ →0x20bd8 ←0x20bb8
<MI 20b94 CMP.L (A7),D7> {[-8-]}
<MI 20b96 BGT 0x20bd8> {[-8-]}
<POP 20b98-20bb6 Naked> Σ-8 ↓ →0x20bb8
<MI 20b98 MOVE.L D7,D0> {[-8-]}
<MI 20b9a SUBQ.L #0x1,D0> {[-8-]}
<POP 0x20b9c LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 20ba2 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 20ba6 CLR.L D1> {[-8-]}
<MI 20ba8 MOVE.B (A0+D0.L+#0x2),D1> {[-8-]}
<MI 20bac MOVE.L D1,D6> {[-8-]}
<MI 20bae CMPI.L #0x0000002d,D6> {[-8-]}
<MI 20bb4 BNE 0x20bb8> {[-8-]}
<POP 20bb6-20bb8 Naked> Σ-8 ↓
<MI 20bb6 MOVEQ.L #0x20,D6> {[-8-]}
<POP 20bb8-20bd8 Naked> Σ-8 ↓ →0x20b94 ←0x20b98
<Const 0x20bb8 0xb.4> Δ-4 {[-8-]|[##11]}
<MI 20bbc ADD.L D7,(A7)> {[-12-]}
<MI 20bbe SUBQ.L #0x1,(A7)> {[-12-]}
<POP 0x20bc0 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-12-]}
<MI 20bca MOVE.W D6,-(A7)> Δ-2 {[-12-]|[2, 'D6']}
<Call 0x20bcc 0x10598> {[-12-]|[2, 'D6']}
WriteConfig(what: Word; where : Long)
<POP 20bd2-20bd4 StackAdj> Δ+6 {[-8-]}
<MI 20bd4 ADDQ.L #0x1,D7> {[-8-]}
<MI 20bd6 BVC 0x20b94> {[-8-]}
<POP 20bd8-20bda Naked> Σ-8 Δ+8 ↓ ←0x20b94
<POP 20bd8-20bda StackAdj> Δ+8 {}
<POP 20bda-20be4 Naked> Σ0 ↓ ←0x20b2c
<Pointer.fp 0x20bda <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x20bdc 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 20be2-20be4 StackAdj> Δ+4 {}
<POP 20be4-20bec Epilogue> Σ0
@ 20bec
<LVAR -0x010 @ 4(rw)>
<POP 20bec-20da2 Body>
<POP 20bec-20c02 Prologue> Σ0 ↓
<POP 20c02-20c12 RegCacheLoad> Σ0 ↓
<POP 20c12-20c14 Naked> Σ0 ↓
<MI 20c12 MOVEQ.L #0x00,D5> {}
<POP 20c14-20c20 Naked> Σ0 ↓ ←0x20d2c
<MI 20c14 MOVEQ.L #0x00,D7> {}
<Pointer.fp 0x20c16 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x20c18 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 20c1e-20c20 StackAdj> Δ+4 {}
<POP 20c20-20c38 Naked> Σ0 ↓ →0x20c4e ←0x20c54
<POP 20c20-20c22 StackAdj> Δ-2 {[-2-]}
<Const 0x20c22 0x1d0.4> Δ-4 {[-2-]|[##464]}
<MI 20c26 ADD.L D7,(A7)> {[-6-]}
<Call 0x20c28 0x10592> {[-6-]}
ReadConfig(where : Long) : Word
<POP 20c2e-20c30 StackAdj> Δ+4 {[-2-]}
<MI 20c30 MOVE.W (A7)+,D0> Δ+2 {}
<MI 20c32 EXTW.L D0> {}
<MI 20c34 MOVE.L D0,D6> {}
<MI 20c36 BEQ 0x20c4e> {}
<POP 20c38-20c4e Naked> Σ0 ↓
<MI 20c38 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<POP 0x20c3a LimitCheck 0x0 ≤ D6 ≤ 0xff> {[4, '(A6-0x10)']}
<MI 20c44 MOVE.B D6,-(A7)> Δ-2 {[4, '(A6-0x10)']|[2, 'D6']}
<Call 0x20c46 0x102c0> {[4, '(A6-0x10)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 20c4c-20c4e StackAdj> Δ+6 {}
<POP 20c4e-20c54 Naked> Σ0 ↓ →0x20c58 ←0x20c20
<MI 20c4e ADDQ.L #0x1,D7> {}
<MI 20c50 CMP.L #0x1e,D7> {}
<MI 20c52 BGT 0x20c58> {}
<POP 20c54-20c58 Naked> Σ0 ↓ →0x20c20
<MI 20c54 TST.L D6> {}
<MI 20c56 BNE 0x20c20> {}
<POP 20c58-20c64 Naked> Σ0 Δ-8 ↓ ←0x20c4e
<MI 20c58 MOVEA.L (A6-0x10),A0> {}
<MI 20c5a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20c5c MOVE.W (A0),D0> {[4, 'A0']}
<MI 20c5e EXTW.L D0> {[4, 'A0']}
<MI 20c60 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 20c62 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 20c64-20c68 Naked> Σ-8 ↓ →0x20c8a ←0x20c86
<MI 20c64 CMP.L (A7),D7> {[-8-]}
<MI 20c66 BGT 0x20c8a> {[-8-]}
<POP 20c68-20c80 Naked> Σ-8 ↓ →0x20c86
<MI 20c68 MOVE.L D7,D0> {[-8-]}
<MI 20c6a SUBQ.L #0x1,D0> {[-8-]}
<POP 0x20c6c LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 20c72 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 20c76 MOVE.B (A0+D0.L+#0x2),D1> {[-8-]}
<MI 20c7a CMPI.B #0x20,D1> {[-8-]}
<MI 20c7e BNE 0x20c86> {[-8-]}
<POP 20c80-20c86 Naked> Σ-8 ↓
<MI 20c80 MOVE.B #0x2d,(A0+D0.L+#0x2)> {[-8-]}
<POP 20c86-20c8a Naked> Σ-8 ↓ →0x20c64 ←0x20c68
<MI 20c86 ADDQ.L #0x1,D7> {[-8-]}
<MI 20c88 BVC 0x20c64> {[-8-]}
<POP 20c8a-20ce2 Naked> Σ-8 Δ+8 ↓ →0x20ce6 ←0x20c64
<POP 20c8a-20c8b StackAdj> Δ+8 ↓ {}
<Blob 0x20c8b [36] @> Δ-36 {[«36""»]}
<Blob 0x20c9c [4] @> Δ-4 {[«36""»]|[«4""»]}
<POP 20ca0-20ca4 StackAdj> Δ-12 {[«36""»]|[«4""»]|[-12-]}
<Lit 0x20ca4 35> {[«36""»]|[«4""»]|[-8-]|[$$Enter remote diagnostic X.25 DNIC []}
<POP 20cb0-20cb2 StackAdj> Δ-4 {[«36""»]|[«4""»]|[-8-]|[$$Enter remote diagnostic X.25 DNIC []|[-4-]}
<MI 20cb2 MOVE.L (A6-0x10),(A7)> {[«36""»]|[«4""»]|[-8-]|[$$Enter remote diagnostic X.25 DNIC []|[4, '(A6-0x10)']}
<POP 20cb4-20cb6 StackAdj> Δ-4 {[«36""»]|[«4""»]|[-8-]|[$$Enter remote diagnostic X.25 DNIC []|[4, '(A6-0x10)']|[-4-]}
<Lit 0x20cb6 4> {[«36""»]|[«4""»]|[-8-]|[$$Enter remote diagnostic X.25 DNIC []|[4, '(A6-0x10)']|[$$] :_]}
<Call 0x20cc4 0x102d4> {[«36""»]|[«4""»]|[-8-]|[$$Enter remote diagnostic X.25 DNIC []|[4, '(A6-0x10)']|[$$] :_]}
StringCat3(a, b, c : String) : String
<POP 20cca-20cce StackAdj> Δ+12 {[«36""»]|[«4""»]|[-8-]}
<Call 0x20cce 0x103e4> {[«36""»]|[«4""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 20cd4-20cd6 StackAdj> Δ+4 {[«36""»]|[«4""»]|[-4-]}
<MI 20cd6 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«36""»]|[«4""»]}
<POP 20cd8-20cdc StackAdj> Δ+40 {}
<MI 20cdc MOVEA.L (A6-0x10),A0> {}
<MI 20cde TST.W (A0)> {}
<MI 20ce0 BNE 0x20ce6> {}
<POP 20ce2-20ce6 Naked> Σ0 →0x20d90
<MI 20ce2 BRA 0x20d90> {}
<POP 20ce6-20cee Naked> Σ0 ↓ →0x20cf2 ←0x20c8a
<MI 20ce6 MOVEA.L (A6-0x10),A0> {}
<MI 20ce8 MOVE.W (A0),D0> {}
<MI 20cea CMP.W #0x01,D0> {}
<MI 20cec BLT 0x20cf2> {}
<POP 20cee-20cf2 Naked> Σ0 ↓ →0x20d2a
<MI 20cee CMP.W #0x1e,D0> {}
<MI 20cf0 BLE 0x20d2a> {}
<POP 20cf2-20d2a Naked> Σ0 →0x20d2c ←0x20ce6
<Blob 0x20cf2 [40] @> Δ-40 {[«40""»]}
<POP 20d04-20d06 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x20d06 39> {[«40""»]|[$$Number must be from 1 to 30 characters.]}
<Call 0x20d14 0x103e0> {[«40""»]|[$$Number must be from 1 to 30 characters.]}
WriteConsoleStringCrLf(str : String)
<POP 20d1a-20d1e StackAdj> Δ+44 {}
<Pointer.fp 0x20d1e <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x20d20 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 20d26-20d28 StackAdj> Δ+4 {}
<MI 20d28 BRA 0x20d2c> {}
<POP 20d2a-20d2c Naked> Σ0 ↓ ←0x20cee
<MI 20d2a MOVEQ.L #0x01,D5> {}
<POP 20d2c-20d32 Naked> Σ0 ↓ →0x20c14 ←0x20cf2
<MI 20d2c TST.B D5> {}
<MI 20d2e BEQ 0x20c14> {}
<POP 20d32-20d4a Naked> Σ0 Δ-8 ↓
<MI 20d32 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<MI 20d34 CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]}
<Call 0x20d36 0x102c0> {[4, '(A6-0x10)']|[#0]}
AppendChar(MOD b : String; a : char)
<POP 20d3c-20d3e StackAdj> Δ+6 {}
<MI 20d3e MOVEA.L (A6-0x10),A0> {}
<MI 20d40 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20d42 MOVE.W (A0),D0> {[4, 'A0']}
<MI 20d44 EXTW.L D0> {[4, 'A0']}
<MI 20d46 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 20d48 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 20d4a-20d4e Naked> Σ-8 ↓ →0x20d8e ←0x20d6e
<MI 20d4a CMP.L (A7),D7> {[-8-]}
<MI 20d4c BGT 0x20d8e> {[-8-]}
<POP 20d4e-20d6c Naked> Σ-8 ↓ →0x20d6e
<MI 20d4e MOVE.L D7,D0> {[-8-]}
<MI 20d50 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x20d52 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 20d58 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 20d5c CLR.L D1> {[-8-]}
<MI 20d5e MOVE.B (A0+D0.L+#0x2),D1> {[-8-]}
<MI 20d62 MOVE.L D1,D6> {[-8-]}
<MI 20d64 CMPI.L #0x0000002d,D6> {[-8-]}
<MI 20d6a BNE 0x20d6e> {[-8-]}
<POP 20d6c-20d6e Naked> Σ-8 ↓
<MI 20d6c MOVEQ.L #0x20,D6> {[-8-]}
<POP 20d6e-20d8e Naked> Σ-8 ↓ →0x20d4a ←0x20d4e
<Const 0x20d6e 0x1d0.4> Δ-4 {[-8-]|[##464]}
<MI 20d72 ADD.L D7,(A7)> {[-12-]}
<MI 20d74 SUBQ.L #0x1,(A7)> {[-12-]}
<POP 0x20d76 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-12-]}
<MI 20d80 MOVE.W D6,-(A7)> Δ-2 {[-12-]|[2, 'D6']}
<Call 0x20d82 0x10598> {[-12-]|[2, 'D6']}
WriteConfig(what: Word; where : Long)
<POP 20d88-20d8a StackAdj> Δ+6 {[-8-]}
<MI 20d8a ADDQ.L #0x1,D7> {[-8-]}
<MI 20d8c BVC 0x20d4a> {[-8-]}
<POP 20d8e-20d90 Naked> Σ-8 Δ+8 ↓ ←0x20d4a
<POP 20d8e-20d90 StackAdj> Δ+8 {}
<POP 20d90-20d9a Naked> Σ0 ↓ ←0x20ce2
<Pointer.fp 0x20d90 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x20d92 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 20d98-20d9a StackAdj> Δ+4 {}
<POP 20d9a-20da2 Epilogue> Σ0
@ 20da2
<LVAR -0x008 @ 4(rw)>
<POP 20da2-20fc4 Body> Δ+10
<POP 20da2-20db8 Prologue> Σ0 ↓
<POP 20db8-20dcc RegCacheLoad> Σ0 ↓
<POP 20dcc-20dda Naked> Σ0 ↓ ←0x20fb0
<MI 20dcc MOVEQ.L #0x01,D6> {}
<Pointer.fp 0x20dce <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x20dd0 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 20dd6-20dd8 StackAdj> Δ+4 {}
<MI 20dd8 MOVEQ.L #0x00,D7> {}
<POP 20dda-20df2 Naked> Σ0 ↓ →0x20e20 ←0x20e2a
<POP 20dda-20ddc StackAdj> Δ-2 {[-2-]}
<Const 0x20ddc 0x181.4> Δ-4 {[-2-]|[##385]}
<MI 20de0 ADD.L D7,(A7)> {[-6-]}
<Call 0x20de2 0x10592> {[-6-]}
ReadConfig(where : Long) : Word
<POP 20de8-20dea StackAdj> Δ+4 {[-2-]}
<MI 20dea MOVE.W (A7)+,D0> Δ+2 {}
<MI 20dec EXTW.L D0> {}
<MI 20dee MOVE.L D0,D5> {}
<MI 20df0 BEQ 0x20e20> {}
<POP 20df2-20dfa Naked> Σ0 ↓ →0x20e12
<MI 20df2 CMPI.L #0x0000001f,D5> {}
<MI 20df8 BLE 0x20e12> {}
<POP 20dfa-20e02 Naked> Σ0 ↓ →0x20e12
<MI 20dfa CMPI.L #0x00000080,D5> {}
<MI 20e00 BGE 0x20e12> {}
<POP 20e02-20e12 Naked> Σ0 Δ-6 →0x20e18
<MI 20e02 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 0x20e04 LimitCheck 0x0 ≤ D5 ≤ 0xff> {[4, '(A6-0x8)']}
<MI 20e0e MOVE.B D5,-(A7)> Δ-2 {[4, '(A6-0x8)']|[2, 'D5']}
<MI 20e10 BRA 0x20e18> {[4, '(A6-0x8)']|[2, 'D5']}
<POP 20e12-20e18 Naked> Σ0 Δ-6 ↓ ←0x20df2 ←0x20dfa
<MI 20e12 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Const 0x20e14 0x3f.2> Δ-2 {[4, '(A6-0x8)']|[#63]}
<POP 20e18-20e20 Naked> Σ-6 Δ+6 ↓ ←0x20e02
<Call 0x20e18 0x102c0> {[-6-]}
AppendChar(MOD b : String; a : char)
<POP 20e1e-20e20 StackAdj> Δ+6 {}
<POP 20e20-20e2a Naked> Σ0 ↓ →0x20e2e ←0x20dda
<MI 20e20 ADDQ.L #0x1,D7> {}
<MI 20e22 CMPI.L #0x0000004e,D7> {}
<MI 20e28 BGT 0x20e2e> {}
<POP 20e2a-20e2e Naked> Σ0 ↓ →0x20dda
<MI 20e2a TST.L D5> {}
<MI 20e2c BNE 0x20dda> {}
<POP 20e2e-20e3a Naked> Σ0 Δ-8 ↓ ←0x20e20
<MI 20e2e MOVEA.L (A6-0x8),A0> {}
<MI 20e30 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20e32 MOVE.W (A0),D0> {[4, 'A0']}
<MI 20e34 EXTW.L D0> {[4, 'A0']}
<MI 20e36 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 20e38 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 20e3a-20e3e Naked> Σ-8 ↓ →0x20e60 ←0x20e5c
<MI 20e3a CMP.L (A7),D7> {[-8-]}
<MI 20e3c BGT 0x20e60> {[-8-]}
<POP 20e3e-20e56 Naked> Σ-8 ↓ →0x20e5c
<MI 20e3e MOVE.L D7,D0> {[-8-]}
<MI 20e40 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x20e42 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 20e48 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 20e4c MOVE.B (A0+D0.L+#0x2),D1> {[-8-]}
<MI 20e50 CMPI.B #0x20,D1> {[-8-]}
<MI 20e54 BNE 0x20e5c> {[-8-]}
<POP 20e56-20e5c Naked> Σ-8 ↓
<MI 20e56 MOVE.B #0x2d,(A0+D0.L+#0x2)> {[-8-]}
<POP 20e5c-20e60 Naked> Σ-8 ↓ →0x20e3a ←0x20e3e
<MI 20e5c ADDQ.L #0x1,D7> {[-8-]}
<MI 20e5e BVC 0x20e3a> {[-8-]}
<POP 20e60-20eba Naked> Σ-8 Δ+8 ↓ →0x20fb0 ←0x20e3a
<POP 20e60-20e61 StackAdj> Δ+8 ↓ {}
<Blob 0x20e61 [24] @> Δ-24 {[«24""»]}
<Blob 0x20e72 [4] @> Δ-4 {[«24""»]|[«4""»]}
<POP 20e76-20e7a StackAdj> Δ-12 {[«24""»]|[«4""»]|[-12-]}
<Lit 0x20e7a 23> {[«24""»]|[«4""»]|[-8-]|[$$Enter TYMNET password []}
<POP 20e86-20e88 StackAdj> Δ-4 {[«24""»]|[«4""»]|[-8-]|[$$Enter TYMNET password []|[-4-]}
<MI 20e88 MOVE.L (A6-0x8),(A7)> {[«24""»]|[«4""»]|[-8-]|[$$Enter TYMNET password []|[4, '(A6-0x8)']}
<POP 20e8a-20e8c StackAdj> Δ-4 {[«24""»]|[«4""»]|[-8-]|[$$Enter TYMNET password []|[4, '(A6-0x8)']|[-4-]}
<Lit 0x20e8c 4> {[«24""»]|[«4""»]|[-8-]|[$$Enter TYMNET password []|[4, '(A6-0x8)']|[$$] :_]}
<Call 0x20e9a 0x102d4> {[«24""»]|[«4""»]|[-8-]|[$$Enter TYMNET password []|[4, '(A6-0x8)']|[$$] :_]}
StringCat3(a, b, c : String) : String
<POP 20ea0-20ea4 StackAdj> Δ+12 {[«24""»]|[«4""»]|[-8-]}
<Call 0x20ea4 0x103e4> {[«24""»]|[«4""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 20eaa-20eac StackAdj> Δ+4 {[«24""»]|[«4""»]|[-4-]}
<MI 20eac MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«24""»]|[«4""»]}
<POP 20eae-20eb2 StackAdj> Δ+28 {}
<MI 20eb2 MOVEA.L (A6-0x8),A0> {}
<MI 20eb4 TST.W (A0)> {}
<MI 20eb6 BEQ 0x20fb0> {}
<POP 20eba-20ebe Naked> Σ0 ↓ →0x20ec6
<MI 20eba TST.W (A0)> {}
<MI 20ebc BLT 0x20ec6> {}
<POP 20ebe-20ec6 Naked> Σ0 ↓ →0x20efe
<MI 20ebe MOVE.W (A0),D0> {}
<MI 20ec0 CMPI.W #0x004e,D0> {}
<MI 20ec4 BLE 0x20efe> {}
<POP 20ec6-20efe Naked> Σ0 →0x20fb0 ←0x20eba
<Blob 0x20ec6 [40] @> Δ-40 {[«40""»]}
<POP 20ed8-20eda StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x20eda 39> {[«40""»]|[$$The password must be 1 to 78 characters]}
<Call 0x20ee8 0x103e0> {[«40""»]|[$$The password must be 1 to 78 characters]}
WriteConsoleStringCrLf(str : String)
<POP 20eee-20ef2 StackAdj> Δ+44 {}
<Pointer.fp 0x20ef2 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x20ef4 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 20ef6-20ef8 StackAdj> Δ+4 {}
<MI 20ef8 MOVEQ.L #0x00,D6> {}
<MI 20efa BRA 0x20fb0> {}
<POP 20efe-20f06 Naked> Σ0 Δ-4 ↓ ←0x20ebe
<MI 20efe MOVE.W (A0),D0> {}
<MI 20f00 EXTW.L D0> {}
<MI 20f02 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 20f04 MOVEQ.L #0x01,D7> {[4, 'D0']}
<POP 20f06-20f0a Naked> Σ-4 ↓ →0x20f3a ←0x20f34
<MI 20f06 CMP.L (A7),D7> {[-4-]}
<MI 20f08 BGT 0x20f3a> {[-4-]}
<POP 20f0a-20f26 Naked> Σ-4 ↓ →0x20f34
<MI 20f0a MOVEQ.L #0x00,D0> {[-4-]}
<MI 20f0c MOVEA.L (A6-0x8),A0> {[-4-]}
<MI 20f0e MOVE.L D7,D1> {[-4-]}
<MI 20f10 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x20f12 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 20f18 CLR.L D2> {[-4-]}
<MI 20f1a MOVE.B (A0+D1.L+#0x2),D2> {[-4-]}
<MI 20f1e CMPI.L #0x0000001f,D2> {[-4-]}
<MI 20f24 BLS 0x20f34> {[-4-]}
<POP 20f26-20f2e Naked> Σ-4 ↓ →0x20f34
<MI 20f26 CMPI.L #0x0000007f,D2> {[-4-]}
<MI 20f2c BGE 0x20f34> {[-4-]}
<POP 20f2e-20f32 Naked> Σ-4 ↓ →0x20f34
<MI 20f2e TST.B D6> {[-4-]}
<MI 20f30 BEQ 0x20f34> {[-4-]}
<POP 20f32-20f34 Naked> Σ-4 ↓
<MI 20f32 ADDQ.B #0x1,D0> {[-4-]}
<POP 20f34-20f3a Naked> Σ-4 ↓ →0x20f06 ←0x20f0a ←0x20f26 ←0x20f2e
<MI 20f34 MOVE.B D0,D6> {[-4-]}
<MI 20f36 ADDQ.L #0x1,D7> {[-4-]}
<MI 20f38 BVC 0x20f06> {[-4-]}
<POP 20f3a-20f40 Naked> Σ-4 Δ+4 ↓ →0x20f84 ←0x20f06
<POP 20f3a-20f3c StackAdj> Δ+4 {}
<MI 20f3c TST.B D6> {}
<MI 20f3e BEQ 0x20f84> {}
<POP 20f40-20f56 Naked> Σ0 Δ-4 ↓
<MI 20f40 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 20f42 CLR.B -(A7)> Δ-2 {[4, '(A6-0x8)']|[#0]}
<Call 0x20f44 0x102c0> {[4, '(A6-0x8)']|[#0]}
AppendChar(MOD b : String; a : char)
<POP 20f4a-20f4c StackAdj> Δ+6 {}
<MI 20f4c MOVEA.L (A6-0x8),A0> {}
<MI 20f4e MOVE.W (A0),D0> {}
<MI 20f50 EXTW.L D0> {}
<MI 20f52 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 20f54 MOVEQ.L #0x01,D7> {[4, 'D0']}
<POP 20f56-20f5a Naked> Σ-4 ↓ →0x20f82 ←0x20f5a
<MI 20f56 CMP.L (A7),D7> {[-4-]}
<MI 20f58 BGT 0x20f82> {[-4-]}
<POP 20f5a-20f82 Naked> Σ-4 ↓ →0x20f56
<Const 0x20f5a 0x181.4> Δ-4 {[-4-]|[##385]}
<MI 20f5e ADD.L D7,(A7)> {[-8-]}
<MI 20f60 SUBQ.L #0x1,(A7)> {[-8-]}
<MI 20f62 MOVEA.L (A6-0x8),A0> {[-8-]}
<MI 20f64 MOVE.L D7,D0> {[-8-]}
<MI 20f66 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x20f68 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 20f6e CLR.L D1> {[-8-]}
<MI 20f70 MOVE.B (A0+D0.L+#0x2),D1> {[-8-]}
<MI 20f74 MOVE.W D1,-(A7)> Δ-2 {[-8-]|[2, 'D1']}
<Call 0x20f76 0x10598> {[-8-]|[2, 'D1']}
WriteConfig(what: Word; where : Long)
<POP 20f7c-20f7e StackAdj> Δ+6 {[-4-]}
<MI 20f7e ADDQ.L #0x1,D7> {[-4-]}
<MI 20f80 BVC 0x20f56> {[-4-]}
<POP 20f82-20f84 Naked> Σ-4 →0x20fae ←0x20f56
<MI 20f82 BRA 0x20fae> {[-4-]}
<POP 20f84-20fae Naked> Σ0 Δ-4 ↓ ←0x20f3a
<Blob 0x20f84 [42] @> Δ-42 {[«42""»]}
<POP 20f90-20f92 StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x20f92 42> {[«42""»]|[$$The password contains invalid character(s)]}
<Call 0x20fa0 0x103e0> {[«42""»]|[$$The password contains invalid character(s)]}
WriteConsoleStringCrLf(str : String)
<POP 20fa6-20faa StackAdj> Δ+46 {}
<Pointer.fp 0x20faa <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x20fac 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 20fae-20fb0 Naked> Σ-4 Δ+4 ↓ ←0x20f82
<POP 20fae-20fb0 StackAdj> Δ+4 {}
<POP 20fb0-20fb6 Naked> Σ0 ↓ →0x20dcc ←0x20e60 ←0x20ec6
<MI 20fb0 TST.B D6> {}
<MI 20fb2 BEQ 0x20dcc> {}
<POP 20fb6-20fbc Naked> Σ0 ↓
<Pointer.fp 0x20fb6 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x20fb8 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 20fba-20fbc StackAdj> Δ+4 {}
<POP 20fbc-20fc4 Epilogue> Σ0
@ 20fc4
<LVAR -0x024 @>
<LVAR -0x028 @ 4(rw)>
<POP 20fc4-21272 Body>
<POP 20fc4-20fda Prologue> Σ0 ↓
<POP 20fda-20ff2 RegCacheLoad> Σ0 ↓
<POP 20ff2-2105a Naked> Σ0 ↓ →0x21068
<MI 20ff2 LEA.L (A6-0x24),A0> {}
<MI 20ff6 LEA.L 0x206ac,A1> {}
<BlockMove 32,A1,A0> {}
<Blob 0x21002 [58] @> Δ-58 {[«58""»]}
<POP 21012-21014 StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x21014 57> {[«58""»]|[$$Diagnostic connection may be made either via the internal]}
<Call 0x21022 0x103d8> {[«58""»]|[$$Diagnostic connection may be made either via the internal]}
WriteConsoleString(str : String)
<POP 21028-21029 StackAdj> Δ+62 ↓ {}
<Blob 0x21029 [20] @> Δ-20 {[«20""»]}
<POP 2103a-2103c StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2103c 19> {[«20""»]|[$$ modem or X.25 PAD.]}
<Call 0x2104a 0x103e0> {[«20""»]|[$$ modem or X.25 PAD.]}
WriteConsoleStringCrLf(str : String)
<POP 2104c-21050 StackAdj> Δ+22 {[-2-]}
<Call 0x21050 0x10610> {[-2-]}
Is_machine_type_one_or_three() : Bool
<MI 21056 TST.B (A7)+> Δ+2 {}
<MI 21058 BNE 0x21068> {}
<POP 2105a-21068 Naked> Σ0 ↓ →0x21116
<POP 2105a-2105c StackAdj> Δ-2 {[-2-]}
<Call 0x2105c 0x10616> {[-2-]}
Is_machine_type_two_or_four() : Bool
<MI 21062 TST.B (A7)+> Δ+2 {}
<MI 21064 BEQ 0x21116> {}
<POP 21068-21116 Naked> Σ0 ↓ ←0x20ff2
<Call 0x21068 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2106e [68] @> Δ-68 {[«68""»]}
<POP 2107a-2107c StackAdj> Δ-4 {[«68""»]|[-4-]}
<Lit 0x2107c 68> {[«68""»]|[$$If X.25 PAD is specified, the PAD is to be connected to the external]}
<Call 0x2108a 0x103e0> {[«68""»]|[$$If X.25 PAD is specified, the PAD is to be connected to the external]}
WriteConsoleStringCrLf(str : String)
<POP 2108c-21090 StackAdj> Δ+72 {}
<Blob 0x21090 [66] @> Δ-66 {[«66""»]}
<POP 2109c-2109e StackAdj> Δ-4 {[«66""»]|[-4-]}
<Lit 0x2109e 66> {[«66""»]|[$$modem connector at the base of the card cage. If internal modem is]}
<Call 0x210ac 0x103e0> {[«66""»]|[$$modem connector at the base of the card cage. If internal modem is]}
WriteConsoleStringCrLf(str : String)
<POP 210ae-210b0 StackAdj> Δ+70 {}
<Blob 0x210b0 [70] @> Δ-70 {[«70""»]}
<POP 210bc-210be StackAdj> Δ-4 {[«70""»]|[-4-]}
<Lit 0x210be 70> {[«70""»]|[$$specified, the external modem port is available for use as environment]}
<Call 0x210ca 0x103e0> {[«70""»]|[$$specified, the external modem port is available for use as environment]}
WriteConsoleStringCrLf(str : String)
<POP 210cc-210d0 StackAdj> Δ+74 {}
<Blob 0x210d0 [66] @> Δ-66 {[«66""»]}
<POP 210dc-210de StackAdj> Δ-4 {[«66""»]|[-4-]}
<Lit 0x210de 66> {[«66""»]|[$$port 16. Use cable 125-1808-001 or equivalent to connect terminal.]}
<Call 0x210ec 0x103e0> {[«66""»]|[$$port 16. Use cable 125-1808-001 or equivalent to connect terminal.]}
WriteConsoleStringCrLf(str : String)
<POP 210ee-210f0 StackAdj> Δ+70 {}
<Blob 0x210f0 [54] @> Δ-54 {[«54""»]}
<POP 210fc-210fe StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x210fe 54> {[«54""»]|[$$In this mode, hardware flow control is always enabled.]}
<Call 0x2110c 0x103e0> {[«54""»]|[$$In this mode, hardware flow control is always enabled.]}
WriteConsoleStringCrLf(str : String)
<POP 2110e-21110 StackAdj> Δ+58 {}
<Call 0x21110 0x103dc> {}
WriteConsoleCrLf(void)
<POP 21116-21176 Naked> Σ0 ↓ ←0x2105a
<Blob 0x21116 [32] @> Δ-32 {[«32""»]}
<POP 21128-2112a StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x2112a 31> {[«32""»]|[$$For internal modem specify "M"]}
<Call 0x21138 0x103e0> {[«32""»]|[$$For internal modem specify "M"]}
WriteConsoleStringCrLf(str : String)
<POP 2113a-2113b StackAdj> Δ+36 ↓ {}
<Blob 0x2113b [32] @> Δ-32 {[«32""»]}
<POP 2114a-2114c StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x2114c 31> {[«32""»]|[$$For X.25 PAD specify "X"]}
<Call 0x2115a 0x103e0> {[«32""»]|[$$For X.25 PAD specify "X"]}
WriteConsoleStringCrLf(str : String)
<POP 2115c-21160 StackAdj> Δ+36 {}
<MI 21160 MOVEQ.L #0x00,D7> {}
<POP 21162-21164 StackAdj> Δ-2 {[-2-]}
<Const 0x21164 0x180.4> Δ-4 {[-2-]|[##384]}
<Call 0x21168 0x10592> {[-2-]|[##384]}
ReadConfig(where : Long) : Word
<POP 2116e-21170 StackAdj> Δ+4 {[-2-]}
<MI 21170 MOVE.W (A7)+,D0> Δ+2 {}
<MI 21172 EXTW.L D0> {}
<MI 21174 MOVE.L D0,D6> {}
<POP 21176-2119a Naked> Σ0 Δ-28 ↓ →0x211a2 ←0x2121e
<Blob 0x21176 [28] @> Δ-28 {[«28""»]}
<POP 21182-21184 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x21184 28> {[«28""»]|[$$Enter connection type [?] :_]}
<MI 21192 MOVEA.L (A7)+,A0> Δ+4 {[«28""»]}
<MI 21194 MOVE.L A0,(A6-0x28)> {[«28""»]}
<MI 21196 CMP.L #0x4d,D6> {[«28""»]}
<MI 21198 BEQ 0x211a2> {[«28""»]}
<POP 2119a-211a2 Naked> Σ-28 ↓ →0x211b2
<MI 2119a CMPI.L #0x00000058,D6> {[-28-]}
<MI 211a0 BNE 0x211b2> {[-28-]}
<POP 211a2-211b2 Naked> Σ-28 →0x211b6 ←0x21176
<POP 0x211a2 LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-28-]}
<MI 211ac MOVE.B D6,(A0+0x19)> {[-28-]}
<MI 211b0 BRA 0x211b6> {[-28-]}
<POP 211b2-211b6 Naked> Σ-28 ↓ ←0x2119a
<MI 211b2 MOVE.B #0x4d,(A0+0x19)> {[-28-]}
<POP 211b6-211d6 Naked> Σ-28 Δ+28 ↓ →0x211d8 ←0x211a2
<POP 211b6-211b8 StackAdj> Δ-8 {[-36-]}
<MI 211b8 MOVE.L A0,-(A7)> Δ-4 {[-36-]|[4, 'A0']}
<Call 0x211ba 0x103e4> {[-36-]|[4, 'A0']}
AskConsoleString(prompt : String) : String
<POP 211c0-211c2 StackAdj> Δ+4 {[-36-]}
<Call 0x211c2 0x102f0> {[-36-]}
ToUpper(a : String) : String
<POP 211c8-211ca StackAdj> Δ+4 {[-32-]}
<MI 211ca MOVE.L (A7)+,(A6-0x28)> Δ+4 {[-28-]}
<POP 211cc-211d0 StackAdj> Δ+28 {}
<MI 211d0 MOVEA.L (A6-0x28),A0> {}
<MI 211d2 TST.W (A0)> {}
<MI 211d4 BNE 0x211d8> {}
<POP 211d6-211d8 Naked> Σ0 →0x2121c
<MI 211d6 BRA 0x2121c> {}
<POP 211d8-211de Naked> Σ0 ↓ →0x211ee ←0x211b6
<MI 211d8 MOVE.W (A0),D0> {}
<MI 211da CMP.W #0x01,D0> {}
<MI 211dc BNE 0x211ee> {}
<POP 211de-211ee Naked> Σ0 ↓ →0x2121c
<MI 211de CLR.L D0> {}
<MI 211e0 MOVE.B (A0+0x2),D0> {}
<MI 211e4 MOVE.W D0,D1> {}
<MI 211e6 LSR.W #0x3,D1> {}
<MI 211e8 BTST.B D0,(A6+D1.W-#0x24)> {}
<MI 211ec BNE 0x2121c> {}
<POP 211ee-2121c Naked> Σ0 →0x2121e ←0x211d8
<Blob 0x211ee [38] @> Δ-38 {[«38""»]}
<POP 211fa-211fc StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x211fc 38> {[«38""»]|[$$Invalid connection specifier, re-enter]}
<Call 0x2120a 0x103e0> {[«38""»]|[$$Invalid connection specifier, re-enter]}
WriteConsoleStringCrLf(str : String)
<POP 2120c-21210 StackAdj> Δ+42 {}
<Pointer.fp 0x21210 <LVAR -0x028 @ 4(rw)>> Δ-4 {[@@-40]}
<Call 0x21212 0x102bc> {[@@-40]}
FreeString(VAR a : String)
<POP 21218-2121a StackAdj> Δ+4 {}
<MI 2121a BRA 0x2121e> {}
<POP 2121c-2121e Naked> Σ0 ↓ ←0x211d6 ←0x211de
<MI 2121c MOVEQ.L #0x01,D7> {}
<POP 2121e-21224 Naked> Σ0 ↓ →0x21176 ←0x211ee
<MI 2121e TST.B D7> {}
<MI 21220 BEQ 0x21176> {}
<POP 21224-2122a Naked> Σ0 ↓ →0x21246
<MI 21224 MOVEA.L (A6-0x28),A0> {}
<MI 21226 TST.W (A0)> {}
<MI 21228 BNE 0x21246> {}
<POP 2122a-2122e Naked> Σ0 ↓ →0x21244
<MI 2122a CMP.L #0x4d,D6> {}
<MI 2122c BEQ 0x21244> {}
<POP 2122e-21236 Naked> Σ0 ↓ →0x21244
<MI 2122e CMPI.L #0x00000058,D6> {}
<MI 21234 BEQ 0x21244> {}
<POP 21236-21244 Naked> Σ0 ↓
<Const 0x21236 0x180.4> Δ-4 {[##384]}
<Const 0x2123a 0x4d.2> Δ-2 {[##384]|[#77]}
<Call 0x2123c 0x10598> {[##384]|[#77]}
WriteConfig(what: Word; where : Long)
<POP 21242-21244 StackAdj> Δ+6 {}
<POP 21244-21246 Naked> Σ0 →0x21260 ←0x2122a ←0x2122e
<MI 21244 BRA 0x21260> {}
<POP 21246-2124c Naked> Σ0 ↓ →0x21260 ←0x21224
<MI 21246 CMP.B (A0+0x2),D6> {}
<MI 2124a BEQ 0x21260> {}
<POP 2124c-21260 Naked> Σ0 ↓
<Const 0x2124c 0x180.4> Δ-4 {[##384]}
<MI 21250 CLR.L D0> {[##384]}
<MI 21252 MOVE.B (A0+0x2),D0> {[##384]}
<MI 21256 MOVE.W D0,-(A7)> Δ-2 {[##384]|[2, 'D0']}
<Call 0x21258 0x10598> {[##384]|[2, 'D0']}
WriteConfig(what: Word; where : Long)
<POP 2125e-21260 StackAdj> Δ+6 {}
<POP 21260-2126a Naked> Σ0 ↓ ←0x21244 ←0x21246
<Pointer.fp 0x21260 <LVAR -0x028 @ 4(rw)>> Δ-4 {[@@-40]}
<Call 0x21262 0x102bc> {[@@-40]}
FreeString(VAR a : String)
<POP 21268-2126a StackAdj> Δ+4 {}
<POP 2126a-21272 Epilogue> Σ0
@ 21272
<LVAR -0x006 @ 4(rw)>
<LVAR -0x00c 4(rw)>
<LVAR -0x00e 2(r)>
<LVAR -0x010 2(r) 4(rw)>
<POP 21272-2140a Body>
<POP 21272-21288 Prologue> Σ0 ↓
<POP 21288-212a2 RegCacheLoad> Σ0 ↓
<POP 212a2-212b6 Naked> Σ0 ↓
<POP 212a2-212a4 StackAdj> Δ-8 {[-8-]}
<Const 0x212a4 0x0.4> Δ-4 {[-8-]|[##0]}
<Call 0x212a8 0x10354> {[-8-]|[##0]}
Long2Quad(a : Long) : Quad
<POP 212ae-212b0 StackAdj> Δ+4 {[-8-]}
<MI 212b0 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 212b2 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 212b4 MOVEQ.L #0x00,D7> {}
<POP 212b6-21304 Naked> Σ0 ↓ →0x212b6 ←0x212b6
<POP 212b6-212b8 StackAdj> Δ-8 {[-8-]}
<MI 212b8 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 212ba MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Const 0x212bc 0x8.4> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##8]}
<Call 0x212c0 0x10344> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##8]}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 212c6-212c8 StackAdj> Δ+12 {[-8-]}
<MI 212c8 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 212ca MOVE.L (A7),(A6-0xc)> {[-4-]}
<POP 212cc-212ce StackAdj> Δ-4 {[-8-]}
<MI 212ce MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 212d0 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 212d2-212d6 StackAdj> Δ-14 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[-14-]}
<Const 0x212d6 0x84.4> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[-14-]|[##132]}
<MI 212da ADD.L D7,(A7)> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[-18-]}
<Call 0x212dc 0x10592> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[-18-]}
ReadConfig(where : Long) : Word
<POP 212e2-212e4 StackAdj> Δ+4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[-14-]}
<MI 212e4 MOVE.W (A7)+,D0> Δ+2 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[-12-]}
<MI 212e6 EXTW.L D0> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[-12-]}
<MI 212e8 MOVE.L D0,(A7)> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[-8-]|[4, 'D0']}
<Call 0x212ea 0x10354> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[-8-]|[4, 'D0']}
Long2Quad(a : Long) : Quad
<POP 212f0-212f2 StackAdj> Δ+4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[-8-]}
<Call 0x212f2 0x10314> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[-8-]}
Add(a, b : Quad) : Quad
<POP 212f8-212fa StackAdj> Δ+16 {[-8-]}
<MI 212fa MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 212fc MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 212fe ADDQ.L #0x1,D7> {}
<MI 21300 CMP.L #0x03,D7> {}
<MI 21302 BLE 0x212b6> {}
<POP 21304-2135e Naked> Σ0 ↓ →0x2136c ←0x213b2
<MI 21304 MOVEQ.L #0x00,D6> {}
<Blob 0x21306 [18] @> Δ-18 {[«18""»]}
<Blob 0x21312 [4] @> Δ-4 {[«18""»]|[«4""»]}
<POP 21316-21318 StackAdj> Δ-12 {[«18""»]|[«4""»]|[-12-]}
<Lit 0x21318 18> {[«18""»]|[«4""»]|[-8-]|[$$Enter CLUSTER ID []}
<MI 21324 MOVE.L (A6-0xc),(A7)> {[«18""»]|[«4""»]|[-8-]|[4, '(A6-0xc)']}
<POP 21322-21324 StackAdj> Δ-8 {[«18""»]|[«4""»]|[-8-]|[4, '(A6-0xc)']|[-8-]}
<MI 21326 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«18""»]|[«4""»]|[-8-]|[4, '(A6-0xc)']|[-8-]|[4, '(A6-0x10)']}
<Const 0x21328 0xa.4> Δ-4 {[«18""»]|[«4""»]|[-8-]|[4, '(A6-0xc)']|[-8-]|[4, '(A6-0x10)']|[##10]}
<Call 0x2132c 0x1035c> {[«18""»]|[«4""»]|[-8-]|[4, '(A6-0xc)']|[-8-]|[4, '(A6-0x10)']|[##10]}
Quad2String(a : Quad; radix : Long ) : String
<POP 21332-21334 StackAdj> Δ+8 {[«18""»]|[«4""»]|[-8-]|[4, '(A6-0xc)']|[-8-]}
<Lit 0x21334 4> {[«18""»]|[«4""»]|[-8-]|[4, '(A6-0xc)']|[-4-]|[$$] :_]}
<Call 0x21342 0x102d4> {[«18""»]|[«4""»]|[-8-]|[4, '(A6-0xc)']|[-4-]|[$$] :_]}
StringCat3(a, b, c : String) : String
<POP 21348-2134a StackAdj> Δ+12 {[«18""»]|[«4""»]|[-8-]}
<Call 0x2134a 0x103e4> {[«18""»]|[«4""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 21350-21352 StackAdj> Δ+4 {[«18""»]|[«4""»]|[-4-]}
<MI 21352 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«18""»]|[«4""»]}
<POP 21354-21358 StackAdj> Δ+22 {}
<MI 21358 MOVEA.L (A6-0x6),A0> {}
<MI 2135a TST.W (A0)> {}
<MI 2135c BNE 0x2136c> {}
<POP 2135e-2136c Naked> Σ0 →0x21402
<Pointer.fp 0x2135e <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x21360 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 21366-21368 StackAdj> Δ+4 {}
<MI 21368 BRA 0x21402> {}
<POP 2136c-21388 Naked> Σ0 ↓ →0x2138c ←0x21304
<POP 2136c-2136e StackAdj> Δ-8 {[-8-]}
<MI 2136e MOVE.L (A6-0x6),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x6)']}
<Const 0x21370 0xa.4> Δ-4 {[-8-]|[4, '(A6-0x6)']|[##10]}
<Call 0x21374 0x10360> {[-8-]|[4, '(A6-0x6)']|[##10]}
?StringToInt64()
<POP 2137a-2137c StackAdj> Δ+8 {[-8-]}
<MI 2137c MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 2137e MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 21380 MOVE.W (A6-0x10),D0> {}
<MI 21382 OR.W (A6-0xe),D0> {}
<MI 21386 BNE 0x2138c> {}
<POP 21388-2138c Naked> Σ0 →0x213b2
<MI 21388 MOVEQ.L #0x01,D6> {}
<MI 2138a BRA 0x213b2> {}
<POP 2138c-213b2 Naked> Σ0 ↓ ←0x2136c
<Blob 0x2138c [24] @> Δ-24 {[«24""»]}
<POP 21398-2139a StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x2139a 24> {[«24""»]|[$$Cluster ID out of range!]}
<Call 0x213a8 0x103e0> {[«24""»]|[$$Cluster ID out of range!]}
WriteConsoleStringCrLf(str : String)
<POP 213ae-213b2 StackAdj> Δ+28 {}
<POP 213b2-213b8 Naked> Σ0 ↓ →0x21304 ←0x21388
<MI 213b2 TST.B D6> {}
<MI 213b4 BEQ 0x21304> {}
<POP 213b8-213ba Naked> Σ0 ↓
<MI 213b8 MOVEQ.L #0x00,D7> {}
<POP 213ba-21402 Naked> Σ0 ↓ →0x213ba ←0x213ba
<POP 213ba-213bc StackAdj> Δ-12 {[-12-]}
<MI 213bc MOVE.L (A6-0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6-0xc)']}
<MI 213be MOVE.L (A6-0x10),-(A7)> Δ-4 {[-12-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 213c0 MOVE.L D7,D0> {[-12-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 213c2 ASL.L #0x3,D0> {[-12-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 213c4 ADDI.L #0x00000020,D0> {[-12-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 213ca MOVE.L D0,-(A7)> Δ-4 {[-12-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<Const 0x213cc 0x8.4> Δ-4 {[-12-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']|[##8]}
<Call 0x213d0 0x1034c> {[-12-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']|[##8]}
FSCALL_1034c
<POP 213d6-213d8 StackAdj> Δ+16 {[-12-]}
<Call 0x213d8 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 213de-213e0 StackAdj> Δ+8 {[-4-]}
<MI 213e0 MOVE.L (A7)+,D5> Δ+4 {}
<Const 0x213e2 0x84.4> Δ-4 {[##132]}
<MI 213e6 ADD.L D7,(A7)> {[-4-]}
<POP 0x213e8 LimitCheck 0x0 ≤ D5 ≤ 0xff> {[-4-]}
<MI 213f2 MOVE.W D5,-(A7)> Δ-2 {[-4-]|[2, 'D5']}
<Call 0x213f4 0x10598> {[-4-]|[2, 'D5']}
WriteConfig(what: Word; where : Long)
<POP 213fa-213fc StackAdj> Δ+6 {}
<MI 213fc ADDQ.L #0x1,D7> {}
<MI 213fe CMP.L #0x03,D7> {}
<MI 21400 BLE 0x213ba> {}
<POP 21402-2140a Epilogue> Σ0 ←0x2135e
@ 2140a
START
<POP 2140a--0001 Body>
<POP 2140a-21414 Prologue> Σ0
<POP 21414-2143a Naked> Σ0 Δ-2 ↓ →0x21448
<Call 0x21414 0x10398> {}
FSCALL_10398
<Call 0x2141a 0x21272> {}
<Call 0x2141e 0x20fc4> {}
<POP 21422-21424 StackAdj> Δ-2 {[-2-]}
<Const 0x21424 0x180.4> Δ-4 {[-2-]|[##384]}
<Call 0x21428 0x10592> {[-2-]|[##384]}
ReadConfig(where : Long) : Word
<POP 2142e-21430 StackAdj> Δ+4 {[-2-]}
<MI 21430 MOVE.B (A7+0x1),D0> {[-2-]}
<MI 21434 CMPI.B #0x58,D0> {[-2-]}
<MI 21438 BNE 0x21448> {[-2-]}
<POP 2143a-21448 Naked> Σ-2 →0x2144c
<Call 0x2143a 0x20bec> {[-2-]}
<Call 0x2143e 0x20da2> {[-2-]}
<Call 0x21442 0x20a0e> {[-2-]}
<MI 21446 BRA 0x2144c> {[-2-]}
<POP 21448-2144c Naked> Σ-2 ↓ ←0x21414
<Call 0x21448 0x206cc> {[-2-]}
<POP 2144c-2145a Naked> Σ-2 Δ+2 ↓ ←0x2143a
<MI 2144c CLR.B (A7)> {[-2-]}
<Const 0x2144e 0x1.4> Δ-4 {[-2-]|[##1]}
<Call 0x21452 0x103b8> {[-2-]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 21458-2145a StackAdj> Δ+6 {}
<POP 2145a-21460 Naked> Σ0
<Call 0x2145a 0x10284> {}
?exit
@ 2146e
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 2146e-214d6 Body>
<POP 2146e-21484 Prologue> Σ0 ↓
<POP 21484-214ce Naked> Σ0 ↓
<Blob 0x21484 [14] @> Δ-14 {[«14""»]}
<Const 0x21490 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 21494-21496 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x21496 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 214a8-214aa StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 214aa MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 214ae EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 214b0 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 214b2 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x214b4 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 214ba-214bc StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x214bc 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 214c2-214c4 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x214c4 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 214ca-214ce StackAdj> Δ+20 {}
<POP 214ce-214d6 Epilogue> Σ0
@ 2152a
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 2152a-21666 Body>
<POP 2152a-21540 Prologue> Σ0 ↓
<POP 21540-21556 RegCacheLoad> Σ0 ↓
<POP 21556-215b6 Naked> Σ0 ↓ →0x215fe
<Call 0x21556 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2155c [18] @> Δ-18 {[«18""»]}
<POP 21568-2156a StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2156a 18> {[«18""»]|[$$Experiment error :]}
<Call 0x21576 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 21578-21579 StackAdj> Δ+22 ↓ {}
<Blob 0x21579 [14] @> Δ-14 {[«14""»]}
<POP 21588-2158a StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x2158a 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 21594-21596 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 21596 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x2159a 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 215a0-215a2 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x215a2 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 215a8-215aa StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x215aa 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 215ac-215ae StackAdj> Δ+18 {}
<MI 215ae MOVEA.L (A6+0xa),A0> {}
<MI 215b2 CMPA.W #0x01,A0> {}
<MI 215b4 BEQ 0x215fe> {}
<POP 215b6-215fe Naked> Σ0 ↓
<Blob 0x215b6 [14] @> Δ-14 {[«14""»]}
<Blob 0x215c6 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 215d6-215d8 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x215d8 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 215e2-215e4 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x215e4> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x215e4 12> Δ-4
<Const 0x215e8 0x1.2> Δ-2
<Const 0x215ea 0x1e.2> Δ-2
<Call 0x215ec 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 215ee-215f0 StackAdj> Δ+8
<Call 0x215f0 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 215f6-215f8 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x215f8 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 215fa-215fe StackAdj> Δ+48 {}
<POP 215fe-2165e Naked> Σ0 ↓ ←0x21556
<Blob 0x215fe [14] @> Δ-14 {[«14""»]}
<POP 2160e-21610 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21610 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 2161a-2161c StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 2161c MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x21620 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 21626-21628 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x21628 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2162e-21630 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21630 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21632-21633 StackAdj> Δ+18 ↓ {}
<Blob 0x21633 [24] @> Δ-24 {[«24""»]}
<Const 0x21642 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 21646-21648 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x21648 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x21656 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 2165c-2165e StackAdj> Δ+30 {}
<POP 2165e-21666 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.f6d8d0f7f4143b98 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 14 0a | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 16 7e | ~ | .PTR 0x2167e 00020010 code.end: 00020010 00 02 16 66 | f | .PTR 0x21666 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 14 6e | n | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 15 2a | * | .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 49 4e |@(#)IN | .XXX[0x6] 00020110 49 54 49 4f 41 2c 31 2e |ITIOA,1.| .XXX[0x18] 00020118 31 2c 39 30 2f 31 32 2f |1,90/12/| 00020120 30 34 2c 31 32 3a 32 30 |04,12:20| 00020128 3a 30 30 5c |:00\ | .XXX[0x4] 0002012c 45 6e 74 65 72 20 70 68 |Enter ph| .TXT 'Enter phone number to be used for remote diagnostics. ' 00020162 49 6e 63 6c 75 64 65 20 |Include | .TXT 'Include all PBX codes required to gain outside access.' 00020198 54 68 65 20 66 6f 6c 6c |The foll| .TXT 'The following characters may be imbedded at any point : ' 000201d0 20 20 20 20 20 20 20 20 | | .TXT ' W => Wait for dial tone.' 000201f0 20 20 20 20 20 20 20 20 | | .TXT ' D => Pause 3 seconds. ' 0002020e 20 20 20 20 20 20 20 20 | | .TXT ' P => Subsequent digits are pulse dialed ' 0002023e 20 20 20 20 20 20 20 20 | | .TXT ' T => Subsequent digits are tone dialed (DTMF).' 00020274 20 20 20 20 20 20 20 20 | | .TXT ' - => No effect, used for clarity only.' 000202a2 45 6e 74 65 72 20 70 68 |Enter ph| .TXT 'Enter phone number [' 000202b6 5d 20 3a 5f |] :_ | .TXT '] :_' 000202ba 4e 75 6d 62 65 72 20 6d |Number m| .TXT 'Number must be from 1 to 30 characters. ' 000202e2 4e 75 6d 62 65 72 20 63 |Number c| .TXT 'Number contains illegal characters. ' 00020306 45 6e 74 65 72 20 41 55 |Enter AU| .TXT 'Enter AUTODIAL command string for far end connection to RATIONAL. ' 00020348 45 6e 74 65 72 20 41 55 |Enter AU| .TXT 'Enter AUTODIAL command [' 00020360 5d 20 3a 5f |] :_ | .TXT '] :_' 00020364 4e 75 6d 62 65 72 20 6d |Number m| .TXT 'Number must be from 1 to 30 characters. ' 0002038c 45 6e 74 65 72 20 72 65 |Enter re| .TXT 'Enter remote diagnostic X.25 DNIC [ ' 000203b0 5d 20 3a 5f |] :_ | .TXT '] :_' 000203b4 4e 75 6d 62 65 72 20 6d |Number m| .TXT 'Number must be from 1 to 30 characters. ' 000203dc 45 6e 74 65 72 20 54 59 |Enter TY| .TXT 'Enter TYMNET password [ ' 000203f4 5d 20 3a 5f |] :_ | .TXT '] :_' 000203f8 54 68 65 20 70 61 73 73 |The pass| .TXT 'The password must be 1 to 78 characters ' 00020420 54 68 65 20 70 61 73 73 |The pass| .TXT 'The password contains invalid character(s)' 0002044a 44 69 61 67 6e 6f 73 74 |Diagnost| .TXT 'Diagnostic connection may be made either via the internal ' 00020484 20 6d 6f 64 65 6d 20 6f | modem o| .TXT ' modem or X.25 PAD. ' 00020498 46 6f 72 20 69 6e 74 65 |For inte| .TXT 'For internal modem specify "M" ' 000204b8 46 6f 72 20 58 2e 32 35 |For X.25| .TXT 'For X.25 PAD specify "X" ' 000204d8 45 6e 74 65 72 20 63 6f |Enter co| .TXT 'Enter connection type [?] :_' 000204f4 49 6e 76 61 6c 69 64 20 |Invalid | .TXT 'Invalid connection specifier, re-enter' 0002051a 49 66 20 58 2e 32 35 20 |If X.25 | .TXT 'If X.25 PAD is specified, the PAD is to be connected to the external' 0002055e 6d 6f 64 65 6d 20 63 6f |modem co| .TXT 'modem connector at the base of the card cage. If internal modem is' 000205a0 73 70 65 63 69 66 69 65 |specifie| .TXT 'specified, the external modem port is available for use as environment' 000205e6 70 6f 72 74 20 31 36 2e |port 16.| .TXT 'port 16. Use cable 125-1808-001 or equivalent to connect terminal.' 00020628 49 6e 20 74 68 69 73 20 |In this | .TXT 'In this mode, hardware flow control is always enabled.' 0002065e 45 6e 74 65 72 20 43 4c |Enter CL| .TXT 'Enter CLUSTER ID [' 00020670 5d 20 3a 5f |] :_ | .TXT '] :_' 00020674 43 6c 75 73 74 65 72 20 |Cluster | .TXT 'Cluster ID out of range!' 0002068c 00 00 00 00 | | .XXX[0x4] 00020690 00 20 ff 03 10 00 91 00 | | .XXX[0x8] 00020698 00 00 00 00 00 00 00 00 | | .BLANK 00[0x18] 000206b0 00 00 00 00 00 20 00 01 | | .XXX[0x8] 000206b8 00 00 00 00 00 00 00 00 | | .BLANK 00[0x10] 000206c8 00 00 00 00 | | .BLANK 00[0x4] 000206cc ; -------------------------------------------------------------------------------------- 000206cc ; OMSI PASCAL Function 000206cc ; <LVAR -0x024 @> 000206cc ; <LVAR -0x030 @ 4(rw)> 000206cc ; -------------------------------------------------------------------------------------- 000206cc 4e 56 ff 54 |NV T | LINK.W A6,#0xff54 000206d0 bf d5 | | CMPA.L (A5),A7 000206d2 62 06 |b | BHI 0x206da 000206d4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000206d8 4e 76 |Nv | TRAPV 000206da de fc 00 7c | | | ADDA.W #0x7c,A7 000206de 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000206e2 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000206e8 47 ee ff d0 |G | LEA.L (A6-0x30),A3 000206ec 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 000206f2 74 01 |t | MOVEQ.L #0x01,D2 000206f4 76 36 |v6 | MOVEQ.L #0x36,D3 000206f6 78 7d |x} | MOVEQ.L #0x7d,D4 000206f8 41 ee ff dc |A | LEA.L (A6-0x24),A0 000206fc 43 fa ff 8e |C | LEA.L 0x2068c,A1 00020700 70 07 |p | MOVEQ.L #0x07,D0 00020702 20 d9 | | MOVE.L (A1)+,(A0)+ 00020704 51 c8 ff fc |Q | DBF D0,0x20702 00020708 9e c3 | | SUBA.W D3,A7 0002070a 20 4f | O | MOVEA.L A7,A0 0002070c 43 fa fa 1e |C | LEA.L 0x2012c,A1 00020710 70 34 |p4 | MOVEQ.L #0x34,D0 00020712 10 d9 | | MOVE.B (A1)+,(A0)+ 00020714 51 c8 ff fc |Q | DBF D0,0x20712 00020718 59 4f |YO | SUBQ.L #0x4,A7 0002071a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002071e 3f 02 |? | MOVE.W D2,-(A7) 00020720 3f 3c 00 35 |?< 5 | MOVE.W #0x35,-(A7) 00020724 4e 92 |N | JSR (A2) 00020726 50 4f |PO | ADDQ.L #0x8,A7 00020728 4e 94 |N | JSR (A4) 0002072a de fc 00 3a | : | ADDA.W #0x3a,A7 0002072e 41 fa fa 68 |A h | LEA.L 0x20198,A0 00020732 70 1a |p | MOVEQ.L #0x1a,D0 00020734 3f 20 |? | MOVE.W -(A0),-(A7) 00020736 51 c8 ff fc |Q | DBF D0,0x20734 0002073a 59 4f |YO | SUBQ.L #0x4,A7 0002073c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020740 3f 02 |? | MOVE.W D2,-(A7) 00020742 3f 03 |? | MOVE.W D3,-(A7) 00020744 4e 92 |N | JSR (A2) 00020746 50 4f |PO | ADDQ.L #0x8,A7 00020748 4e 94 |N | JSR (A4) 0002074a 54 4f |TO | ADDQ.L #0x2,A7 0002074c 20 4f | O | MOVEA.L A7,A0 0002074e 43 fa fa 48 |C H | LEA.L 0x20198,A1 00020752 70 36 |p6 | MOVEQ.L #0x36,D0 00020754 10 d9 | | MOVE.B (A1)+,(A0)+ 00020756 51 c8 ff fc |Q | DBF D0,0x20754 0002075a 59 4f |YO | SUBQ.L #0x4,A7 0002075c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020760 3f 02 |? | MOVE.W D2,-(A7) 00020762 3f 3c 00 37 |?< 7 | MOVE.W #0x37,-(A7) 00020766 4e 92 |N | JSR (A2) 00020768 50 4f |PO | ADDQ.L #0x8,A7 0002076a 4e 94 |N | JSR (A4) 0002076c de fc 00 3c | < | ADDA.W #0x3c,A7 00020770 41 fa fa 7e |A ~ | LEA.L 0x201f0,A0 00020774 70 07 |p | MOVEQ.L #0x07,D0 00020776 2f 20 |/ | MOVE.L -(A0),-(A7) 00020778 51 c8 ff fc |Q | DBF D0,0x20776 0002077c 59 4f |YO | SUBQ.L #0x4,A7 0002077e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020782 3f 02 |? | MOVE.W D2,-(A7) 00020784 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00020788 4e 92 |N | JSR (A2) 0002078a 50 4f |PO | ADDQ.L #0x8,A7 0002078c 4e 94 |N | JSR (A4) 0002078e 5c 4f |\O | ADDQ.L #0x6,A7 00020790 20 4f | O | MOVEA.L A7,A0 00020792 43 fa fa 5c |C \ | LEA.L 0x201f0,A1 00020796 70 1c |p | MOVEQ.L #0x1c,D0 00020798 10 d9 | | MOVE.B (A1)+,(A0)+ 0002079a 51 c8 ff fc |Q | DBF D0,0x20798 0002079e 59 4f |YO | SUBQ.L #0x4,A7 000207a0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000207a4 3f 02 |? | MOVE.W D2,-(A7) 000207a6 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 000207aa 4e 92 |N | JSR (A2) 000207ac 50 4f |PO | ADDQ.L #0x8,A7 000207ae 4e 94 |N | JSR (A4) 000207b0 9e fc 00 0e | | SUBA.W #0xe,A7 000207b4 20 4f | O | MOVEA.L A7,A0 000207b6 43 fa fa 56 |C V | LEA.L 0x2020e,A1 000207ba 70 2e |p. | MOVEQ.L #0x2e,D0 000207bc 10 d9 | | MOVE.B (A1)+,(A0)+ 000207be 51 c8 ff fc |Q | DBF D0,0x207bc 000207c2 59 4f |YO | SUBQ.L #0x4,A7 000207c4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000207c8 3f 02 |? | MOVE.W D2,-(A7) 000207ca 3f 3c 00 2f |?< / | MOVE.W #0x2f,-(A7) 000207ce 4e 92 |N | JSR (A2) 000207d0 50 4f |PO | ADDQ.L #0x8,A7 000207d2 4e 94 |N | JSR (A4) 000207d4 de fc 00 34 | 4 | ADDA.W #0x34,A7 000207d8 41 fa fa 9a |A | LEA.L 0x20274,A0 000207dc 70 1a |p | MOVEQ.L #0x1a,D0 000207de 3f 20 |? | MOVE.W -(A0),-(A7) 000207e0 51 c8 ff fc |Q | DBF D0,0x207de 000207e4 59 4f |YO | SUBQ.L #0x4,A7 000207e6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000207ea 3f 02 |? | MOVE.W D2,-(A7) 000207ec 3f 03 |? | MOVE.W D3,-(A7) 000207ee 4e 92 |N | JSR (A2) 000207f0 50 4f |PO | ADDQ.L #0x8,A7 000207f2 4e 94 |N | JSR (A4) 000207f4 de fc 00 3a | : | ADDA.W #0x3a,A7 000207f8 41 fa fa a8 |A | LEA.L 0x202a2,A0 000207fc 70 16 |p | MOVEQ.L #0x16,D0 000207fe 3f 20 |? | MOVE.W -(A0),-(A7) 00020800 51 c8 ff fc |Q | DBF D0,0x207fe 00020804 59 4f |YO | SUBQ.L #0x4,A7 00020806 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002080a 3f 02 |? | MOVE.W D2,-(A7) 0002080c 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 00020810 4e 92 |N | JSR (A2) 00020812 50 4f |PO | ADDQ.L #0x8,A7 00020814 4e 94 |N | JSR (A4) 00020816 de fc 00 32 | 2 | ADDA.W #0x32,A7 0002081a 7a 00 |z | MOVEQ.L #0x00,D5 0002081c 7e 00 |~ | MOVEQ.L #0x00,D7 0002081e 48 53 |HS | PEA.L (A3) 00020820 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020826 58 4f |XO | ADDQ.L #0x4,A7 00020828 55 4f |UO | SUBQ.L #0x2,A7 0002082a 48 78 00 0b |Hx | PEA.L 0xb 0002082e df 97 | | ADD.L D7,(A7) 00020830 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 00020836 58 4f |XO | ADDQ.L #0x4,A7 00020838 30 1f |0 | MOVE.W (A7)+,D0 0002083a 48 c0 |H | EXTW.L D0 0002083c 2c 00 |, | MOVE.L D0,D6 0002083e 67 16 |g | BEQ 0x20856 00020840 2f 13 |/ | MOVE.L (A3),-(A7) 00020842 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 00020848 63 02 |c | BLS 0x2084c 0002084a 4e 4f |NO | TRAP #15 0002084c 1f 06 | | MOVE.B D6,-(A7) 0002084e 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020854 5c 4f |\O | ADDQ.L #0x6,A7 00020856 52 87 |R | ADDQ.L #0x1,D7 00020858 0c 87 00 00 00 1e | | CMPI.L #0x0000001e,D7 0002085e 6e 04 |n | BGT 0x20864 00020860 4a 86 |J | TST.L D6 00020862 66 c4 |f | BNE 0x20828 00020864 20 53 | S | MOVEA.L (A3),A0 00020866 2f 08 |/ | MOVE.L A0,-(A7) 00020868 30 10 |0 | MOVE.W (A0),D0 0002086a 48 c0 |H | EXTW.L D0 0002086c 2f 00 |/ | MOVE.L D0,-(A7) 0002086e 7e 01 |~ | MOVEQ.L #0x01,D7 00020870 be 97 | | CMP.L (A7),D7 00020872 6e 22 |n" | BGT 0x20896 00020874 20 07 | | MOVE.L D7,D0 00020876 53 80 |S | SUBQ.L #0x1,D0 00020878 b0 84 | | CMP.L D4,D0 0002087a 63 02 |c | BLS 0x2087e 0002087c 4e 4f |NO | TRAP #15 0002087e 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00020882 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 00020886 0c 01 00 20 | | CMPI.B #0x20,D1 0002088a 66 06 |f | BNE 0x20892 0002088c 11 bc 00 2d 08 02 | - | MOVE.B #0x2d,(A0+D0.L+#0x2) 00020892 52 87 |R | ADDQ.L #0x1,D7 00020894 68 da |h | BVC 0x20870 00020896 50 4f |PO | ADDQ.L #0x8,A7 00020898 41 fa fa 1c |A | LEA.L 0x202b6,A0 0002089c 70 04 |p | MOVEQ.L #0x04,D0 0002089e 2f 20 |/ | MOVE.L -(A0),-(A7) 000208a0 51 c8 ff fc |Q | DBF D0,0x2089e 000208a4 2f 3a fa 10 |/: | MOVE.L 0x202b6,-(A7) 000208a8 9e fc 00 10 | | SUBA.W #0x10,A7 000208ac 48 6f 00 14 |Ho | PEA.L (A7+0x14) 000208b0 3f 02 |? | MOVE.W D2,-(A7) 000208b2 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 000208b6 4e 92 |N | JSR (A2) 000208b8 58 4f |XO | ADDQ.L #0x4,A7 000208ba 2e 93 |. | MOVE.L (A3),(A7) 000208bc 59 4f |YO | SUBQ.L #0x4,A7 000208be 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000208c2 3f 02 |? | MOVE.W D2,-(A7) 000208c4 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 000208c8 4e 92 |N | JSR (A2) 000208ca 50 4f |PO | ADDQ.L #0x8,A7 000208cc 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000208d2 de fc 00 0c | | ADDA.W #0xc,A7 000208d6 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 000208dc 58 4f |XO | ADDQ.L #0x4,A7 000208de 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 000208e4 58 4f |XO | ADDQ.L #0x4,A7 000208e6 26 9f |& | MOVE.L (A7)+,(A3) 000208e8 de fc 00 18 | | ADDA.W #0x18,A7 000208ec 20 53 | S | MOVEA.L (A3),A0 000208ee 4a 50 |JP | TST.W (A0) 000208f0 66 04 |f | BNE 0x208f6 000208f2 60 00 01 08 |` | BRA 0x209fc 000208f6 20 53 | S | MOVEA.L (A3),A0 000208f8 2f 08 |/ | MOVE.L A0,-(A7) 000208fa 30 10 |0 | MOVE.W (A0),D0 000208fc b0 42 | B | CMP.W D2,D0 000208fe 6d 06 |m | BLT 0x20906 00020900 0c 40 00 1e | @ | CMPI.W #0x001e,D0 00020904 6f 2a |o* | BLE 0x20930 00020906 9e fc 00 28 | ( | SUBA.W #0x28,A7 0002090a 20 4f | O | MOVEA.L A7,A0 0002090c 43 fa f9 ac |C | LEA.L 0x202ba,A1 00020910 70 26 |p& | MOVEQ.L #0x26,D0 00020912 10 d9 | | MOVE.B (A1)+,(A0)+ 00020914 51 c8 ff fc |Q | DBF D0,0x20912 00020918 59 4f |YO | SUBQ.L #0x4,A7 0002091a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002091e 3f 02 |? | MOVE.W D2,-(A7) 00020920 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00020924 4e 92 |N | JSR (A2) 00020926 50 4f |PO | ADDQ.L #0x8,A7 00020928 4e 94 |N | JSR (A4) 0002092a de fc 00 2c | , | ADDA.W #0x2c,A7 0002092e 60 66 |`f | BRA 0x20996 00020930 48 c0 |H | EXTW.L D0 00020932 2f 00 |/ | MOVE.L D0,-(A7) 00020934 7e 01 |~ | MOVEQ.L #0x01,D7 00020936 be 97 | | CMP.L (A7),D7 00020938 6e 58 |nX | BGT 0x20992 0002093a 20 07 | | MOVE.L D7,D0 0002093c 53 80 |S | SUBQ.L #0x1,D0 0002093e b0 84 | | CMP.L D4,D0 00020940 63 02 |c | BLS 0x20944 00020942 4e 4f |NO | TRAP #15 00020944 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00020948 42 81 |B | CLR.L D1 0002094a 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 0002094e 30 01 |0 | MOVE.W D1,D0 00020950 e6 48 | H | LSR.W #0x3,D0 00020952 03 36 00 dc | 6 | BTST.B D1,(A6+D0.W-#0x24) 00020956 66 36 |f6 | BNE 0x2098e 00020958 9e fc 00 24 | $ | SUBA.W #0x24,A7 0002095c 20 4f | O | MOVEA.L A7,A0 0002095e 43 fa f9 82 |C | LEA.L 0x202e2,A1 00020962 70 22 |p" | MOVEQ.L #0x22,D0 00020964 10 d9 | | MOVE.B (A1)+,(A0)+ 00020966 51 c8 ff fc |Q | DBF D0,0x20964 0002096a 59 4f |YO | SUBQ.L #0x4,A7 0002096c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020970 3f 02 |? | MOVE.W D2,-(A7) 00020972 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 00020976 4e 92 |N | JSR (A2) 00020978 50 4f |PO | ADDQ.L #0x8,A7 0002097a 4e 94 |N | JSR (A4) 0002097c de fc 00 28 | ( | ADDA.W #0x28,A7 00020980 48 53 |HS | PEA.L (A3) 00020982 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020988 de fc 00 0c | | ADDA.W #0xc,A7 0002098c 60 0a |` | BRA 0x20998 0002098e 52 87 |R | ADDQ.L #0x1,D7 00020990 68 a4 |h | BVC 0x20936 00020992 58 4f |XO | ADDQ.L #0x4,A7 00020994 7a 01 |z | MOVEQ.L #0x01,D5 00020996 58 4f |XO | ADDQ.L #0x4,A7 00020998 4a 05 |J | TST.B D5 0002099a 67 00 fe 80 |g | BEQ 0x2081c 0002099e 2f 13 |/ | MOVE.L (A3),-(A7) 000209a0 42 27 |B' | CLR.B -(A7) 000209a2 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000209a8 5c 4f |\O | ADDQ.L #0x6,A7 000209aa 20 53 | S | MOVEA.L (A3),A0 000209ac 2f 08 |/ | MOVE.L A0,-(A7) 000209ae 30 10 |0 | MOVE.W (A0),D0 000209b0 48 c0 |H | EXTW.L D0 000209b2 2f 00 |/ | MOVE.L D0,-(A7) 000209b4 7e 01 |~ | MOVEQ.L #0x01,D7 000209b6 be 97 | | CMP.L (A7),D7 000209b8 6e 40 |n@ | BGT 0x209fa 000209ba 20 07 | | MOVE.L D7,D0 000209bc 53 80 |S | SUBQ.L #0x1,D0 000209be b0 84 | | CMP.L D4,D0 000209c0 63 02 |c | BLS 0x209c4 000209c2 4e 4f |NO | TRAP #15 000209c4 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000209c8 42 81 |B | CLR.L D1 000209ca 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 000209ce 2c 01 |, | MOVE.L D1,D6 000209d0 0c 86 00 00 00 2d | - | CMPI.L #0x0000002d,D6 000209d6 66 02 |f | BNE 0x209da 000209d8 7c 20 || | MOVEQ.L #0x20,D6 000209da 48 78 00 0b |Hx | PEA.L 0xb 000209de df 97 | | ADD.L D7,(A7) 000209e0 53 97 |S | SUBQ.L #0x1,(A7) 000209e2 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000209e8 63 02 |c | BLS 0x209ec 000209ea 4e 4f |NO | TRAP #15 000209ec 3f 06 |? | MOVE.W D6,-(A7) 000209ee 4e b9 00 01 05 98 |N | JSR WriteConfig(what: Word; where : Long) 000209f4 5c 4f |\O | ADDQ.L #0x6,A7 000209f6 52 87 |R | ADDQ.L #0x1,D7 000209f8 68 bc |h | BVC 0x209b6 000209fa 50 4f |PO | ADDQ.L #0x8,A7 000209fc 48 53 |HS | PEA.L (A3) 000209fe 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020a04 58 4f |XO | ADDQ.L #0x4,A7 00020a06 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020a0a 4e 5e |N^ | UNLK A6 00020a0c 4e 75 |Nu | RTS 00020a0e ; -------------------------------------------------------------------------------------- 00020a0e ; OMSI PASCAL Function 00020a0e ; <LVAR -0x010 @ 4(rw)> 00020a0e ; -------------------------------------------------------------------------------------- 00020a0e 4e 56 ff 6e |NV n | LINK.W A6,#0xff6e 00020a12 bf d5 | | CMPA.L (A5),A7 00020a14 62 06 |b | BHI 0x20a1c 00020a16 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a1a 4e 76 |Nv | TRAPV 00020a1c de fc 00 82 | | ADDA.W #0x82,A7 00020a20 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020a24 45 ee ff f0 |E | LEA.L (A6-0x10),A2 00020a28 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020a2e 74 01 |t | MOVEQ.L #0x01,D2 00020a30 76 1e |v | MOVEQ.L #0x1e,D3 00020a32 78 7d |x} | MOVEQ.L #0x7d,D4 00020a34 9e fc 00 42 | B | SUBA.W #0x42,A7 00020a38 20 4f | O | MOVEA.L A7,A0 00020a3a 43 fa f8 ca |C | LEA.L 0x20306,A1 00020a3e 70 40 |p@ | MOVEQ.L #0x40,D0 00020a40 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a42 51 c8 ff fc |Q | DBF D0,0x20a40 00020a46 59 4f |YO | SUBQ.L #0x4,A7 00020a48 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a4c 3f 02 |? | MOVE.W D2,-(A7) 00020a4e 3f 3c 00 41 |?< A | MOVE.W #0x41,-(A7) 00020a52 4e 93 |N | JSR (A3) 00020a54 50 4f |PO | ADDQ.L #0x8,A7 00020a56 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020a5c de fc 00 46 | F | ADDA.W #0x46,A7 00020a60 7a 00 |z | MOVEQ.L #0x00,D5 00020a62 7e 00 |~ | MOVEQ.L #0x00,D7 00020a64 48 52 |HR | PEA.L (A2) 00020a66 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020a6c 58 4f |XO | ADDQ.L #0x4,A7 00020a6e 55 4f |UO | SUBQ.L #0x2,A7 00020a70 48 78 00 0b |Hx | PEA.L 0xb 00020a74 df 97 | | ADD.L D7,(A7) 00020a76 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 00020a7c 58 4f |XO | ADDQ.L #0x4,A7 00020a7e 30 1f |0 | MOVE.W (A7)+,D0 00020a80 48 c0 |H | EXTW.L D0 00020a82 2c 00 |, | MOVE.L D0,D6 00020a84 67 16 |g | BEQ 0x20a9c 00020a86 2f 12 |/ | MOVE.L (A2),-(A7) 00020a88 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 00020a8e 63 02 |c | BLS 0x20a92 00020a90 4e 4f |NO | TRAP #15 00020a92 1f 06 | | MOVE.B D6,-(A7) 00020a94 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020a9a 5c 4f |\O | ADDQ.L #0x6,A7 00020a9c 52 87 |R | ADDQ.L #0x1,D7 00020a9e be 83 | | CMP.L D3,D7 00020aa0 6e 04 |n | BGT 0x20aa6 00020aa2 4a 86 |J | TST.L D6 00020aa4 66 c8 |f | BNE 0x20a6e 00020aa6 20 52 | R | MOVEA.L (A2),A0 00020aa8 2f 08 |/ | MOVE.L A0,-(A7) 00020aaa 30 10 |0 | MOVE.W (A0),D0 00020aac 48 c0 |H | EXTW.L D0 00020aae 2f 00 |/ | MOVE.L D0,-(A7) 00020ab0 7e 01 |~ | MOVEQ.L #0x01,D7 00020ab2 be 97 | | CMP.L (A7),D7 00020ab4 6e 22 |n" | BGT 0x20ad8 00020ab6 20 07 | | MOVE.L D7,D0 00020ab8 53 80 |S | SUBQ.L #0x1,D0 00020aba b0 84 | | CMP.L D4,D0 00020abc 63 02 |c | BLS 0x20ac0 00020abe 4e 4f |NO | TRAP #15 00020ac0 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00020ac4 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 00020ac8 0c 01 00 20 | | CMPI.B #0x20,D1 00020acc 66 06 |f | BNE 0x20ad4 00020ace 11 bc 00 2d 08 02 | - | MOVE.B #0x2d,(A0+D0.L+#0x2) 00020ad4 52 87 |R | ADDQ.L #0x1,D7 00020ad6 68 da |h | BVC 0x20ab2 00020ad8 50 4f |PO | ADDQ.L #0x8,A7 00020ada 41 fa f8 84 |A | LEA.L 0x20360,A0 00020ade 70 05 |p | MOVEQ.L #0x05,D0 00020ae0 2f 20 |/ | MOVE.L -(A0),-(A7) 00020ae2 51 c8 ff fc |Q | DBF D0,0x20ae0 00020ae6 2f 3a f8 78 |/: x | MOVE.L 0x20360,-(A7) 00020aea 9e fc 00 0c | | SUBA.W #0xc,A7 00020aee 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00020af2 3f 02 |? | MOVE.W D2,-(A7) 00020af4 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00020af8 4e 93 |N | JSR (A3) 00020afa 58 4f |XO | ADDQ.L #0x4,A7 00020afc 2e 92 |. | MOVE.L (A2),(A7) 00020afe 59 4f |YO | SUBQ.L #0x4,A7 00020b00 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00020b04 3f 02 |? | MOVE.W D2,-(A7) 00020b06 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020b0a 4e 93 |N | JSR (A3) 00020b0c 50 4f |PO | ADDQ.L #0x8,A7 00020b0e 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020b14 de fc 00 0c | | ADDA.W #0xc,A7 00020b18 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00020b1e 58 4f |XO | ADDQ.L #0x4,A7 00020b20 24 9f |$ | MOVE.L (A7)+,(A2) 00020b22 de fc 00 1c | | ADDA.W #0x1c,A7 00020b26 20 52 | R | MOVEA.L (A2),A0 00020b28 4a 50 |JP | TST.W (A0) 00020b2a 66 04 |f | BNE 0x20b30 00020b2c 60 00 00 ac |` | BRA 0x20bda 00020b30 20 52 | R | MOVEA.L (A2),A0 00020b32 30 10 |0 | MOVE.W (A0),D0 00020b34 b0 42 | B | CMP.W D2,D0 00020b36 6d 04 |m | BLT 0x20b3c 00020b38 b0 43 | C | CMP.W D3,D0 00020b3a 6f 38 |o8 | BLE 0x20b74 00020b3c 9e fc 00 28 | ( | SUBA.W #0x28,A7 00020b40 20 4f | O | MOVEA.L A7,A0 00020b42 43 fa f8 20 |C | LEA.L 0x20364,A1 00020b46 70 26 |p& | MOVEQ.L #0x26,D0 00020b48 10 d9 | | MOVE.B (A1)+,(A0)+ 00020b4a 51 c8 ff fc |Q | DBF D0,0x20b48 00020b4e 59 4f |YO | SUBQ.L #0x4,A7 00020b50 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020b54 3f 02 |? | MOVE.W D2,-(A7) 00020b56 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00020b5a 4e 93 |N | JSR (A3) 00020b5c 50 4f |PO | ADDQ.L #0x8,A7 00020b5e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020b64 de fc 00 2c | , | ADDA.W #0x2c,A7 00020b68 48 52 |HR | PEA.L (A2) 00020b6a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020b70 58 4f |XO | ADDQ.L #0x4,A7 00020b72 60 02 |` | BRA 0x20b76 00020b74 7a 01 |z | MOVEQ.L #0x01,D5 00020b76 4a 05 |J | TST.B D5 00020b78 67 00 fe e8 |g | BEQ 0x20a62 00020b7c 2f 12 |/ | MOVE.L (A2),-(A7) 00020b7e 42 27 |B' | CLR.B -(A7) 00020b80 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020b86 5c 4f |\O | ADDQ.L #0x6,A7 00020b88 20 52 | R | MOVEA.L (A2),A0 00020b8a 2f 08 |/ | MOVE.L A0,-(A7) 00020b8c 30 10 |0 | MOVE.W (A0),D0 00020b8e 48 c0 |H | EXTW.L D0 00020b90 2f 00 |/ | MOVE.L D0,-(A7) 00020b92 7e 01 |~ | MOVEQ.L #0x01,D7 00020b94 be 97 | | CMP.L (A7),D7 00020b96 6e 40 |n@ | BGT 0x20bd8 00020b98 20 07 | | MOVE.L D7,D0 00020b9a 53 80 |S | SUBQ.L #0x1,D0 00020b9c b0 84 | | CMP.L D4,D0 00020b9e 63 02 |c | BLS 0x20ba2 00020ba0 4e 4f |NO | TRAP #15 00020ba2 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00020ba6 42 81 |B | CLR.L D1 00020ba8 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 00020bac 2c 01 |, | MOVE.L D1,D6 00020bae 0c 86 00 00 00 2d | - | CMPI.L #0x0000002d,D6 00020bb4 66 02 |f | BNE 0x20bb8 00020bb6 7c 20 || | MOVEQ.L #0x20,D6 00020bb8 48 78 00 0b |Hx | PEA.L 0xb 00020bbc df 97 | | ADD.L D7,(A7) 00020bbe 53 97 |S | SUBQ.L #0x1,(A7) 00020bc0 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 00020bc6 63 02 |c | BLS 0x20bca 00020bc8 4e 4f |NO | TRAP #15 00020bca 3f 06 |? | MOVE.W D6,-(A7) 00020bcc 4e b9 00 01 05 98 |N | JSR WriteConfig(what: Word; where : Long) 00020bd2 5c 4f |\O | ADDQ.L #0x6,A7 00020bd4 52 87 |R | ADDQ.L #0x1,D7 00020bd6 68 bc |h | BVC 0x20b94 00020bd8 50 4f |PO | ADDQ.L #0x8,A7 00020bda 48 52 |HR | PEA.L (A2) 00020bdc 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020be2 58 4f |XO | ADDQ.L #0x4,A7 00020be4 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00020be8 4e 5e |N^ | UNLK A6 00020bea 4e 75 |Nu | RTS 00020bec ; -------------------------------------------------------------------------------------- 00020bec ; OMSI PASCAL Function 00020bec ; <LVAR -0x010 @ 4(rw)> 00020bec ; -------------------------------------------------------------------------------------- 00020bec 4e 56 ff 78 |NV x | LINK.W A6,#0xff78 00020bf0 bf d5 | | CMPA.L (A5),A7 00020bf2 62 06 |b | BHI 0x20bfa 00020bf4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020bf8 4e 76 |Nv | TRAPV 00020bfa de fc 00 78 | x | ADDA.W #0x78,A7 00020bfe 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020c02 45 ee ff f0 |E | LEA.L (A6-0x10),A2 00020c06 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020c0c 74 01 |t | MOVEQ.L #0x01,D2 00020c0e 76 1e |v | MOVEQ.L #0x1e,D3 00020c10 78 7d |x} | MOVEQ.L #0x7d,D4 00020c12 7a 00 |z | MOVEQ.L #0x00,D5 00020c14 7e 00 |~ | MOVEQ.L #0x00,D7 00020c16 48 52 |HR | PEA.L (A2) 00020c18 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020c1e 58 4f |XO | ADDQ.L #0x4,A7 00020c20 55 4f |UO | SUBQ.L #0x2,A7 00020c22 48 78 01 d0 |Hx | PEA.L 0x1d0 00020c26 df 97 | | ADD.L D7,(A7) 00020c28 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 00020c2e 58 4f |XO | ADDQ.L #0x4,A7 00020c30 30 1f |0 | MOVE.W (A7)+,D0 00020c32 48 c0 |H | EXTW.L D0 00020c34 2c 00 |, | MOVE.L D0,D6 00020c36 67 16 |g | BEQ 0x20c4e 00020c38 2f 12 |/ | MOVE.L (A2),-(A7) 00020c3a 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 00020c40 63 02 |c | BLS 0x20c44 00020c42 4e 4f |NO | TRAP #15 00020c44 1f 06 | | MOVE.B D6,-(A7) 00020c46 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020c4c 5c 4f |\O | ADDQ.L #0x6,A7 00020c4e 52 87 |R | ADDQ.L #0x1,D7 00020c50 be 83 | | CMP.L D3,D7 00020c52 6e 04 |n | BGT 0x20c58 00020c54 4a 86 |J | TST.L D6 00020c56 66 c8 |f | BNE 0x20c20 00020c58 20 52 | R | MOVEA.L (A2),A0 00020c5a 2f 08 |/ | MOVE.L A0,-(A7) 00020c5c 30 10 |0 | MOVE.W (A0),D0 00020c5e 48 c0 |H | EXTW.L D0 00020c60 2f 00 |/ | MOVE.L D0,-(A7) 00020c62 7e 01 |~ | MOVEQ.L #0x01,D7 00020c64 be 97 | | CMP.L (A7),D7 00020c66 6e 22 |n" | BGT 0x20c8a 00020c68 20 07 | | MOVE.L D7,D0 00020c6a 53 80 |S | SUBQ.L #0x1,D0 00020c6c b0 84 | | CMP.L D4,D0 00020c6e 63 02 |c | BLS 0x20c72 00020c70 4e 4f |NO | TRAP #15 00020c72 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00020c76 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 00020c7a 0c 01 00 20 | | CMPI.B #0x20,D1 00020c7e 66 06 |f | BNE 0x20c86 00020c80 11 bc 00 2d 08 02 | - | MOVE.B #0x2d,(A0+D0.L+#0x2) 00020c86 52 87 |R | ADDQ.L #0x1,D7 00020c88 68 da |h | BVC 0x20c64 00020c8a 9e fc 00 1c | | SUBA.W #0x1c,A7 00020c8e 20 4f | O | MOVEA.L A7,A0 00020c90 43 fa f6 fa |C | LEA.L 0x2038c,A1 00020c94 70 22 |p" | MOVEQ.L #0x22,D0 00020c96 10 d9 | | MOVE.B (A1)+,(A0)+ 00020c98 51 c8 ff fc |Q | DBF D0,0x20c96 00020c9c 2f 3a f7 12 |/: | MOVE.L 0x203b0,-(A7) 00020ca0 9e fc 00 0c | | SUBA.W #0xc,A7 00020ca4 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00020ca8 3f 02 |? | MOVE.W D2,-(A7) 00020caa 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 00020cae 4e 93 |N | JSR (A3) 00020cb0 58 4f |XO | ADDQ.L #0x4,A7 00020cb2 2e 92 |. | MOVE.L (A2),(A7) 00020cb4 59 4f |YO | SUBQ.L #0x4,A7 00020cb6 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00020cba 3f 02 |? | MOVE.W D2,-(A7) 00020cbc 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020cc0 4e 93 |N | JSR (A3) 00020cc2 50 4f |PO | ADDQ.L #0x8,A7 00020cc4 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020cca de fc 00 0c | | ADDA.W #0xc,A7 00020cce 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00020cd4 58 4f |XO | ADDQ.L #0x4,A7 00020cd6 24 9f |$ | MOVE.L (A7)+,(A2) 00020cd8 de fc 00 28 | ( | ADDA.W #0x28,A7 00020cdc 20 52 | R | MOVEA.L (A2),A0 00020cde 4a 50 |JP | TST.W (A0) 00020ce0 66 04 |f | BNE 0x20ce6 00020ce2 60 00 00 ac |` | BRA 0x20d90 00020ce6 20 52 | R | MOVEA.L (A2),A0 00020ce8 30 10 |0 | MOVE.W (A0),D0 00020cea b0 42 | B | CMP.W D2,D0 00020cec 6d 04 |m | BLT 0x20cf2 00020cee b0 43 | C | CMP.W D3,D0 00020cf0 6f 38 |o8 | BLE 0x20d2a 00020cf2 9e fc 00 28 | ( | SUBA.W #0x28,A7 00020cf6 20 4f | O | MOVEA.L A7,A0 00020cf8 43 fa f6 ba |C | LEA.L 0x203b4,A1 00020cfc 70 26 |p& | MOVEQ.L #0x26,D0 00020cfe 10 d9 | | MOVE.B (A1)+,(A0)+ 00020d00 51 c8 ff fc |Q | DBF D0,0x20cfe 00020d04 59 4f |YO | SUBQ.L #0x4,A7 00020d06 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020d0a 3f 02 |? | MOVE.W D2,-(A7) 00020d0c 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00020d10 4e 93 |N | JSR (A3) 00020d12 50 4f |PO | ADDQ.L #0x8,A7 00020d14 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020d1a de fc 00 2c | , | ADDA.W #0x2c,A7 00020d1e 48 52 |HR | PEA.L (A2) 00020d20 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020d26 58 4f |XO | ADDQ.L #0x4,A7 00020d28 60 02 |` | BRA 0x20d2c 00020d2a 7a 01 |z | MOVEQ.L #0x01,D5 00020d2c 4a 05 |J | TST.B D5 00020d2e 67 00 fe e4 |g | BEQ 0x20c14 00020d32 2f 12 |/ | MOVE.L (A2),-(A7) 00020d34 42 27 |B' | CLR.B -(A7) 00020d36 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020d3c 5c 4f |\O | ADDQ.L #0x6,A7 00020d3e 20 52 | R | MOVEA.L (A2),A0 00020d40 2f 08 |/ | MOVE.L A0,-(A7) 00020d42 30 10 |0 | MOVE.W (A0),D0 00020d44 48 c0 |H | EXTW.L D0 00020d46 2f 00 |/ | MOVE.L D0,-(A7) 00020d48 7e 01 |~ | MOVEQ.L #0x01,D7 00020d4a be 97 | | CMP.L (A7),D7 00020d4c 6e 40 |n@ | BGT 0x20d8e 00020d4e 20 07 | | MOVE.L D7,D0 00020d50 53 80 |S | SUBQ.L #0x1,D0 00020d52 b0 84 | | CMP.L D4,D0 00020d54 63 02 |c | BLS 0x20d58 00020d56 4e 4f |NO | TRAP #15 00020d58 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00020d5c 42 81 |B | CLR.L D1 00020d5e 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 00020d62 2c 01 |, | MOVE.L D1,D6 00020d64 0c 86 00 00 00 2d | - | CMPI.L #0x0000002d,D6 00020d6a 66 02 |f | BNE 0x20d6e 00020d6c 7c 20 || | MOVEQ.L #0x20,D6 00020d6e 48 78 01 d0 |Hx | PEA.L 0x1d0 00020d72 df 97 | | ADD.L D7,(A7) 00020d74 53 97 |S | SUBQ.L #0x1,(A7) 00020d76 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 00020d7c 63 02 |c | BLS 0x20d80 00020d7e 4e 4f |NO | TRAP #15 00020d80 3f 06 |? | MOVE.W D6,-(A7) 00020d82 4e b9 00 01 05 98 |N | JSR WriteConfig(what: Word; where : Long) 00020d88 5c 4f |\O | ADDQ.L #0x6,A7 00020d8a 52 87 |R | ADDQ.L #0x1,D7 00020d8c 68 bc |h | BVC 0x20d4a 00020d8e 50 4f |PO | ADDQ.L #0x8,A7 00020d90 48 52 |HR | PEA.L (A2) 00020d92 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020d98 58 4f |XO | ADDQ.L #0x4,A7 00020d9a 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00020d9e 4e 5e |N^ | UNLK A6 00020da0 4e 75 |Nu | RTS 00020da2 ; -------------------------------------------------------------------------------------- 00020da2 ; OMSI PASCAL Function 00020da2 ; <LVAR -0x008 @ 4(rw)> 00020da2 ; -------------------------------------------------------------------------------------- 00020da2 4e 56 ff 7e |NV ~ | LINK.W A6,#0xff7e 00020da6 bf d5 | | CMPA.L (A5),A7 00020da8 62 06 |b | BHI 0x20db0 00020daa 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020dae 4e 76 |Nv | TRAPV 00020db0 de fc 00 72 | r | ADDA.W #0x72,A7 00020db4 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020db8 45 ee ff f8 |E | LEA.L (A6-0x8),A2 00020dbc 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020dc2 49 f9 00 01 02 bc |I | LEA.L FreeString(VAR a : String),A4 00020dc8 76 01 |v | MOVEQ.L #0x01,D3 00020dca 78 7d |x} | MOVEQ.L #0x7d,D4 00020dcc 7c 01 || | MOVEQ.L #0x01,D6 00020dce 48 52 |HR | PEA.L (A2) 00020dd0 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020dd6 58 4f |XO | ADDQ.L #0x4,A7 00020dd8 7e 00 |~ | MOVEQ.L #0x00,D7 00020dda 55 4f |UO | SUBQ.L #0x2,A7 00020ddc 48 78 01 81 |Hx | PEA.L 0x181 00020de0 df 97 | | ADD.L D7,(A7) 00020de2 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 00020de8 58 4f |XO | ADDQ.L #0x4,A7 00020dea 30 1f |0 | MOVE.W (A7)+,D0 00020dec 48 c0 |H | EXTW.L D0 00020dee 2a 00 |* | MOVE.L D0,D5 00020df0 67 2e |g. | BEQ 0x20e20 00020df2 0c 85 00 00 00 1f | | CMPI.L #0x0000001f,D5 00020df8 6f 18 |o | BLE 0x20e12 00020dfa 0c 85 00 00 00 80 | | CMPI.L #0x00000080,D5 00020e00 6c 10 |l | BGE 0x20e12 00020e02 2f 12 |/ | MOVE.L (A2),-(A7) 00020e04 0c 85 00 00 00 ff | | CMPI.L #0x000000ff,D5 00020e0a 63 02 |c | BLS 0x20e0e 00020e0c 4e 4f |NO | TRAP #15 00020e0e 1f 05 | | MOVE.B D5,-(A7) 00020e10 60 06 |` | BRA 0x20e18 00020e12 2f 12 |/ | MOVE.L (A2),-(A7) 00020e14 1f 3c 00 3f | < ? | MOVE.B #0x3f,-(A7) 00020e18 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020e1e 5c 4f |\O | ADDQ.L #0x6,A7 00020e20 52 87 |R | ADDQ.L #0x1,D7 00020e22 0c 87 00 00 00 4e | N | CMPI.L #0x0000004e,D7 00020e28 6e 04 |n | BGT 0x20e2e 00020e2a 4a 85 |J | TST.L D5 00020e2c 66 ac |f | BNE 0x20dda 00020e2e 20 52 | R | MOVEA.L (A2),A0 00020e30 2f 08 |/ | MOVE.L A0,-(A7) 00020e32 30 10 |0 | MOVE.W (A0),D0 00020e34 48 c0 |H | EXTW.L D0 00020e36 2f 00 |/ | MOVE.L D0,-(A7) 00020e38 7e 01 |~ | MOVEQ.L #0x01,D7 00020e3a be 97 | | CMP.L (A7),D7 00020e3c 6e 22 |n" | BGT 0x20e60 00020e3e 20 07 | | MOVE.L D7,D0 00020e40 53 80 |S | SUBQ.L #0x1,D0 00020e42 b0 84 | | CMP.L D4,D0 00020e44 63 02 |c | BLS 0x20e48 00020e46 4e 4f |NO | TRAP #15 00020e48 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00020e4c 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 00020e50 0c 01 00 20 | | CMPI.B #0x20,D1 00020e54 66 06 |f | BNE 0x20e5c 00020e56 11 bc 00 2d 08 02 | - | MOVE.B #0x2d,(A0+D0.L+#0x2) 00020e5c 52 87 |R | ADDQ.L #0x1,D7 00020e5e 68 da |h | BVC 0x20e3a 00020e60 9e fc 00 10 | | SUBA.W #0x10,A7 00020e64 20 4f | O | MOVEA.L A7,A0 00020e66 43 fa f5 74 |C t | LEA.L 0x203dc,A1 00020e6a 70 16 |p | MOVEQ.L #0x16,D0 00020e6c 10 d9 | | MOVE.B (A1)+,(A0)+ 00020e6e 51 c8 ff fc |Q | DBF D0,0x20e6c 00020e72 2f 3a f5 80 |/: | MOVE.L 0x203f4,-(A7) 00020e76 9e fc 00 0c | | SUBA.W #0xc,A7 00020e7a 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00020e7e 3f 03 |? | MOVE.W D3,-(A7) 00020e80 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00020e84 4e 93 |N | JSR (A3) 00020e86 58 4f |XO | ADDQ.L #0x4,A7 00020e88 2e 92 |. | MOVE.L (A2),(A7) 00020e8a 59 4f |YO | SUBQ.L #0x4,A7 00020e8c 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00020e90 3f 03 |? | MOVE.W D3,-(A7) 00020e92 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00020e96 4e 93 |N | JSR (A3) 00020e98 50 4f |PO | ADDQ.L #0x8,A7 00020e9a 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020ea0 de fc 00 0c | | ADDA.W #0xc,A7 00020ea4 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00020eaa 58 4f |XO | ADDQ.L #0x4,A7 00020eac 24 9f |$ | MOVE.L (A7)+,(A2) 00020eae de fc 00 1c | | ADDA.W #0x1c,A7 00020eb2 20 52 | R | MOVEA.L (A2),A0 00020eb4 4a 50 |JP | TST.W (A0) 00020eb6 67 00 00 f8 |g | BEQ 0x20fb0 00020eba 4a 50 |JP | TST.W (A0) 00020ebc 6d 08 |m | BLT 0x20ec6 00020ebe 30 10 |0 | MOVE.W (A0),D0 00020ec0 0c 40 00 4e | @ N | CMPI.W #0x004e,D0 00020ec4 6f 38 |o8 | BLE 0x20efe 00020ec6 9e fc 00 28 | ( | SUBA.W #0x28,A7 00020eca 20 4f | O | MOVEA.L A7,A0 00020ecc 43 fa f5 2a |C * | LEA.L 0x203f8,A1 00020ed0 70 26 |p& | MOVEQ.L #0x26,D0 00020ed2 10 d9 | | MOVE.B (A1)+,(A0)+ 00020ed4 51 c8 ff fc |Q | DBF D0,0x20ed2 00020ed8 59 4f |YO | SUBQ.L #0x4,A7 00020eda 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020ede 3f 03 |? | MOVE.W D3,-(A7) 00020ee0 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00020ee4 4e 93 |N | JSR (A3) 00020ee6 50 4f |PO | ADDQ.L #0x8,A7 00020ee8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020eee de fc 00 2c | , | ADDA.W #0x2c,A7 00020ef2 48 52 |HR | PEA.L (A2) 00020ef4 4e 94 |N | JSR (A4) 00020ef6 58 4f |XO | ADDQ.L #0x4,A7 00020ef8 7c 00 || | MOVEQ.L #0x00,D6 00020efa 60 00 00 b4 |` | BRA 0x20fb0 00020efe 30 10 |0 | MOVE.W (A0),D0 00020f00 48 c0 |H | EXTW.L D0 00020f02 2f 00 |/ | MOVE.L D0,-(A7) 00020f04 7e 01 |~ | MOVEQ.L #0x01,D7 00020f06 be 97 | | CMP.L (A7),D7 00020f08 6e 30 |n0 | BGT 0x20f3a 00020f0a 70 00 |p | MOVEQ.L #0x00,D0 00020f0c 20 52 | R | MOVEA.L (A2),A0 00020f0e 22 07 |" | MOVE.L D7,D1 00020f10 53 81 |S | SUBQ.L #0x1,D1 00020f12 b2 84 | | CMP.L D4,D1 00020f14 63 02 |c | BLS 0x20f18 00020f16 4e 4f |NO | TRAP #15 00020f18 42 82 |B | CLR.L D2 00020f1a 14 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),D2 00020f1e 0c 82 00 00 00 1f | | CMPI.L #0x0000001f,D2 00020f24 63 0e |c | BLS 0x20f34 00020f26 0c 82 00 00 00 7f | | CMPI.L #0x0000007f,D2 00020f2c 6c 06 |l | BGE 0x20f34 00020f2e 4a 06 |J | TST.B D6 00020f30 67 02 |g | BEQ 0x20f34 00020f32 52 00 |R | ADDQ.B #0x1,D0 00020f34 1c 00 | | MOVE.B D0,D6 00020f36 52 87 |R | ADDQ.L #0x1,D7 00020f38 68 cc |h | BVC 0x20f06 00020f3a 58 4f |XO | ADDQ.L #0x4,A7 00020f3c 4a 06 |J | TST.B D6 00020f3e 67 44 |gD | BEQ 0x20f84 00020f40 2f 12 |/ | MOVE.L (A2),-(A7) 00020f42 42 27 |B' | CLR.B -(A7) 00020f44 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020f4a 5c 4f |\O | ADDQ.L #0x6,A7 00020f4c 20 52 | R | MOVEA.L (A2),A0 00020f4e 30 10 |0 | MOVE.W (A0),D0 00020f50 48 c0 |H | EXTW.L D0 00020f52 2f 00 |/ | MOVE.L D0,-(A7) 00020f54 7e 01 |~ | MOVEQ.L #0x01,D7 00020f56 be 97 | | CMP.L (A7),D7 00020f58 6e 28 |n( | BGT 0x20f82 00020f5a 48 78 01 81 |Hx | PEA.L 0x181 00020f5e df 97 | | ADD.L D7,(A7) 00020f60 53 97 |S | SUBQ.L #0x1,(A7) 00020f62 20 52 | R | MOVEA.L (A2),A0 00020f64 20 07 | | MOVE.L D7,D0 00020f66 53 80 |S | SUBQ.L #0x1,D0 00020f68 b0 84 | | CMP.L D4,D0 00020f6a 63 02 |c | BLS 0x20f6e 00020f6c 4e 4f |NO | TRAP #15 00020f6e 42 81 |B | CLR.L D1 00020f70 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 00020f74 3f 01 |? | MOVE.W D1,-(A7) 00020f76 4e b9 00 01 05 98 |N | JSR WriteConfig(what: Word; where : Long) 00020f7c 5c 4f |\O | ADDQ.L #0x6,A7 00020f7e 52 87 |R | ADDQ.L #0x1,D7 00020f80 68 d4 |h | BVC 0x20f56 00020f82 60 2a |`* | BRA 0x20fae 00020f84 41 fa f4 c4 |A | LEA.L 0x2044a,A0 00020f88 70 14 |p | MOVEQ.L #0x14,D0 00020f8a 3f 20 |? | MOVE.W -(A0),-(A7) 00020f8c 51 c8 ff fc |Q | DBF D0,0x20f8a 00020f90 59 4f |YO | SUBQ.L #0x4,A7 00020f92 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020f96 3f 03 |? | MOVE.W D3,-(A7) 00020f98 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 00020f9c 4e 93 |N | JSR (A3) 00020f9e 50 4f |PO | ADDQ.L #0x8,A7 00020fa0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020fa6 de fc 00 2e | . | ADDA.W #0x2e,A7 00020faa 48 52 |HR | PEA.L (A2) 00020fac 4e 94 |N | JSR (A4) 00020fae 58 4f |XO | ADDQ.L #0x4,A7 00020fb0 4a 06 |J | TST.B D6 00020fb2 67 00 fe 18 |g | BEQ 0x20dcc 00020fb6 48 52 |HR | PEA.L (A2) 00020fb8 4e 94 |N | JSR (A4) 00020fba 58 4f |XO | ADDQ.L #0x4,A7 00020fbc 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020fc0 4e 5e |N^ | UNLK A6 00020fc2 4e 75 |Nu | RTS 00020fc4 ; -------------------------------------------------------------------------------------- 00020fc4 ; OMSI PASCAL Function 00020fc4 ; <LVAR -0x024 @> 00020fc4 ; <LVAR -0x028 @ 4(rw)> 00020fc4 ; -------------------------------------------------------------------------------------- 00020fc4 4e 56 ff 4a |NV J | LINK.W A6,#0xff4a 00020fc8 bf d5 | | CMPA.L (A5),A7 00020fca 62 06 |b | BHI 0x20fd2 00020fcc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020fd0 4e 76 |Nv | TRAPV 00020fd2 de fc 00 8a | | ADDA.W #0x8a,A7 00020fd6 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020fda 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020fe0 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00020fe6 49 ee ff d8 |I | LEA.L (A6-0x28),A4 00020fea 74 01 |t | MOVEQ.L #0x01,D2 00020fec 76 4d |vM | MOVEQ.L #0x4d,D3 00020fee 78 46 |xF | MOVEQ.L #0x46,D4 00020ff0 7a 3a |z: | MOVEQ.L #0x3a,D5 00020ff2 41 ee ff dc |A | LEA.L (A6-0x24),A0 00020ff6 43 fa f6 b4 |C | LEA.L 0x206ac,A1 00020ffa 70 07 |p | MOVEQ.L #0x07,D0 00020ffc 20 d9 | | MOVE.L (A1)+,(A0)+ 00020ffe 51 c8 ff fc |Q | DBF D0,0x20ffc 00021002 9e c5 | | SUBA.W D5,A7 00021004 20 4f | O | MOVEA.L A7,A0 00021006 43 fa f4 42 |C B | LEA.L 0x2044a,A1 0002100a 70 38 |p8 | MOVEQ.L #0x38,D0 0002100c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002100e 51 c8 ff fc |Q | DBF D0,0x2100c 00021012 59 4f |YO | SUBQ.L #0x4,A7 00021014 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021018 3f 02 |? | MOVE.W D2,-(A7) 0002101a 3f 3c 00 39 |?< 9 | MOVE.W #0x39,-(A7) 0002101e 4e 92 |N | JSR (A2) 00021020 50 4f |PO | ADDQ.L #0x8,A7 00021022 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00021028 de fc 00 2a | * | ADDA.W #0x2a,A7 0002102c 20 4f | O | MOVEA.L A7,A0 0002102e 43 fa f4 54 |C T | LEA.L 0x20484,A1 00021032 70 12 |p | MOVEQ.L #0x12,D0 00021034 10 d9 | | MOVE.B (A1)+,(A0)+ 00021036 51 c8 ff fc |Q | DBF D0,0x21034 0002103a 59 4f |YO | SUBQ.L #0x4,A7 0002103c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021040 3f 02 |? | MOVE.W D2,-(A7) 00021042 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00021046 4e 92 |N | JSR (A2) 00021048 50 4f |PO | ADDQ.L #0x8,A7 0002104a 4e 93 |N | JSR (A3) 0002104c de fc 00 16 | | ADDA.W #0x16,A7 00021050 4e b9 00 01 06 10 |N | JSR Is_machine_type_one_or_three() : Bool 00021056 4a 1f |J | TST.B (A7)+ 00021058 66 0e |f | BNE 0x21068 0002105a 55 4f |UO | SUBQ.L #0x2,A7 0002105c 4e b9 00 01 06 16 |N | JSR Is_machine_type_two_or_four() : Bool 00021062 4a 1f |J | TST.B (A7)+ 00021064 67 00 00 b0 |g | BEQ 0x21116 00021068 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002106e 41 fa f4 ee |A | LEA.L 0x2055e,A0 00021072 70 10 |p | MOVEQ.L #0x10,D0 00021074 2f 20 |/ | MOVE.L -(A0),-(A7) 00021076 51 c8 ff fc |Q | DBF D0,0x21074 0002107a 59 4f |YO | SUBQ.L #0x4,A7 0002107c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021080 3f 02 |? | MOVE.W D2,-(A7) 00021082 3f 3c 00 44 |?< D | MOVE.W #0x44,-(A7) 00021086 4e 92 |N | JSR (A2) 00021088 50 4f |PO | ADDQ.L #0x8,A7 0002108a 4e 93 |N | JSR (A3) 0002108c de fc 00 48 | H | ADDA.W #0x48,A7 00021090 41 fa f5 0e |A | LEA.L 0x205a0,A0 00021094 70 20 |p | MOVEQ.L #0x20,D0 00021096 3f 20 |? | MOVE.W -(A0),-(A7) 00021098 51 c8 ff fc |Q | DBF D0,0x21096 0002109c 59 4f |YO | SUBQ.L #0x4,A7 0002109e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000210a2 3f 02 |? | MOVE.W D2,-(A7) 000210a4 3f 3c 00 42 |?< B | MOVE.W #0x42,-(A7) 000210a8 4e 92 |N | JSR (A2) 000210aa 50 4f |PO | ADDQ.L #0x8,A7 000210ac 4e 93 |N | JSR (A3) 000210ae de c4 | | ADDA.W D4,A7 000210b0 41 fa f5 34 |A 4 | LEA.L 0x205e6,A0 000210b4 70 22 |p" | MOVEQ.L #0x22,D0 000210b6 3f 20 |? | MOVE.W -(A0),-(A7) 000210b8 51 c8 ff fc |Q | DBF D0,0x210b6 000210bc 59 4f |YO | SUBQ.L #0x4,A7 000210be 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000210c2 3f 02 |? | MOVE.W D2,-(A7) 000210c4 3f 04 |? | MOVE.W D4,-(A7) 000210c6 4e 92 |N | JSR (A2) 000210c8 50 4f |PO | ADDQ.L #0x8,A7 000210ca 4e 93 |N | JSR (A3) 000210cc de fc 00 4a | J | ADDA.W #0x4a,A7 000210d0 41 fa f5 56 |A V | LEA.L 0x20628,A0 000210d4 70 20 |p | MOVEQ.L #0x20,D0 000210d6 3f 20 |? | MOVE.W -(A0),-(A7) 000210d8 51 c8 ff fc |Q | DBF D0,0x210d6 000210dc 59 4f |YO | SUBQ.L #0x4,A7 000210de 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000210e2 3f 02 |? | MOVE.W D2,-(A7) 000210e4 3f 3c 00 42 |?< B | MOVE.W #0x42,-(A7) 000210e8 4e 92 |N | JSR (A2) 000210ea 50 4f |PO | ADDQ.L #0x8,A7 000210ec 4e 93 |N | JSR (A3) 000210ee de c4 | | ADDA.W D4,A7 000210f0 41 fa f5 6c |A l | LEA.L 0x2065e,A0 000210f4 70 1a |p | MOVEQ.L #0x1a,D0 000210f6 3f 20 |? | MOVE.W -(A0),-(A7) 000210f8 51 c8 ff fc |Q | DBF D0,0x210f6 000210fc 59 4f |YO | SUBQ.L #0x4,A7 000210fe 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021102 3f 02 |? | MOVE.W D2,-(A7) 00021104 3f 3c 00 36 |?< 6 | MOVE.W #0x36,-(A7) 00021108 4e 92 |N | JSR (A2) 0002110a 50 4f |PO | ADDQ.L #0x8,A7 0002110c 4e 93 |N | JSR (A3) 0002110e de c5 | | ADDA.W D5,A7 00021110 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021116 9e fc 00 20 | | SUBA.W #0x20,A7 0002111a 20 4f | O | MOVEA.L A7,A0 0002111c 43 fa f3 7a |C z | LEA.L 0x20498,A1 00021120 70 1e |p | MOVEQ.L #0x1e,D0 00021122 10 d9 | | MOVE.B (A1)+,(A0)+ 00021124 51 c8 ff fc |Q | DBF D0,0x21122 00021128 59 4f |YO | SUBQ.L #0x4,A7 0002112a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002112e 3f 02 |? | MOVE.W D2,-(A7) 00021130 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00021134 4e 92 |N | JSR (A2) 00021136 50 4f |PO | ADDQ.L #0x8,A7 00021138 4e 93 |N | JSR (A3) 0002113a 58 4f |XO | ADDQ.L #0x4,A7 0002113c 20 4f | O | MOVEA.L A7,A0 0002113e 43 fa f3 78 |C x | LEA.L 0x204b8,A1 00021142 70 1e |p | MOVEQ.L #0x1e,D0 00021144 10 d9 | | MOVE.B (A1)+,(A0)+ 00021146 51 c8 ff fc |Q | DBF D0,0x21144 0002114a 59 4f |YO | SUBQ.L #0x4,A7 0002114c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021150 3f 02 |? | MOVE.W D2,-(A7) 00021152 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00021156 4e 92 |N | JSR (A2) 00021158 50 4f |PO | ADDQ.L #0x8,A7 0002115a 4e 93 |N | JSR (A3) 0002115c de fc 00 24 | $ | ADDA.W #0x24,A7 00021160 7e 00 |~ | MOVEQ.L #0x00,D7 00021162 55 4f |UO | SUBQ.L #0x2,A7 00021164 48 78 01 80 |Hx | PEA.L 0x180 00021168 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 0002116e 58 4f |XO | ADDQ.L #0x4,A7 00021170 30 1f |0 | MOVE.W (A7)+,D0 00021172 48 c0 |H | EXTW.L D0 00021174 2c 00 |, | MOVE.L D0,D6 00021176 41 fa f3 7c |A | | LEA.L 0x204f4,A0 0002117a 70 06 |p | MOVEQ.L #0x06,D0 0002117c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002117e 51 c8 ff fc |Q | DBF D0,0x2117c 00021182 59 4f |YO | SUBQ.L #0x4,A7 00021184 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021188 3f 02 |? | MOVE.W D2,-(A7) 0002118a 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 0002118e 4e 92 |N | JSR (A2) 00021190 50 4f |PO | ADDQ.L #0x8,A7 00021192 20 5f | _ | MOVEA.L (A7)+,A0 00021194 28 88 |( | MOVE.L A0,(A4) 00021196 bc 83 | | CMP.L D3,D6 00021198 67 08 |g | BEQ 0x211a2 0002119a 0c 86 00 00 00 58 | X | CMPI.L #0x00000058,D6 000211a0 66 10 |f | BNE 0x211b2 000211a2 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 000211a8 63 02 |c | BLS 0x211ac 000211aa 4e 4f |NO | TRAP #15 000211ac 11 46 00 19 | F | MOVE.B D6,(A0+0x19) 000211b0 60 04 |` | BRA 0x211b6 000211b2 11 43 00 19 | C | MOVE.B D3,(A0+0x19) 000211b6 51 4f |QO | SUBQ.L #0x8,A7 000211b8 2f 08 |/ | MOVE.L A0,-(A7) 000211ba 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 000211c0 58 4f |XO | ADDQ.L #0x4,A7 000211c2 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 000211c8 58 4f |XO | ADDQ.L #0x4,A7 000211ca 28 9f |( | MOVE.L (A7)+,(A4) 000211cc de fc 00 1c | | ADDA.W #0x1c,A7 000211d0 20 54 | T | MOVEA.L (A4),A0 000211d2 4a 50 |JP | TST.W (A0) 000211d4 66 02 |f | BNE 0x211d8 000211d6 60 44 |`D | BRA 0x2121c 000211d8 30 10 |0 | MOVE.W (A0),D0 000211da b0 42 | B | CMP.W D2,D0 000211dc 66 10 |f | BNE 0x211ee 000211de 42 80 |B | CLR.L D0 000211e0 10 28 00 02 | ( | MOVE.B (A0+0x2),D0 000211e4 32 00 |2 | MOVE.W D0,D1 000211e6 e6 49 | I | LSR.W #0x3,D1 000211e8 01 36 10 dc | 6 | BTST.B D0,(A6+D1.W-#0x24) 000211ec 66 2e |f. | BNE 0x2121c 000211ee 41 fa f3 2a |A * | LEA.L 0x2051a,A0 000211f2 70 12 |p | MOVEQ.L #0x12,D0 000211f4 3f 20 |? | MOVE.W -(A0),-(A7) 000211f6 51 c8 ff fc |Q | DBF D0,0x211f4 000211fa 59 4f |YO | SUBQ.L #0x4,A7 000211fc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021200 3f 02 |? | MOVE.W D2,-(A7) 00021202 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 00021206 4e 92 |N | JSR (A2) 00021208 50 4f |PO | ADDQ.L #0x8,A7 0002120a 4e 93 |N | JSR (A3) 0002120c de fc 00 2a | * | ADDA.W #0x2a,A7 00021210 48 54 |HT | PEA.L (A4) 00021212 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021218 58 4f |XO | ADDQ.L #0x4,A7 0002121a 60 02 |` | BRA 0x2121e 0002121c 7e 01 |~ | MOVEQ.L #0x01,D7 0002121e 4a 07 |J | TST.B D7 00021220 67 00 ff 54 |g T | BEQ 0x21176 00021224 20 54 | T | MOVEA.L (A4),A0 00021226 4a 50 |JP | TST.W (A0) 00021228 66 1c |f | BNE 0x21246 0002122a bc 83 | | CMP.L D3,D6 0002122c 67 16 |g | BEQ 0x21244 0002122e 0c 86 00 00 00 58 | X | CMPI.L #0x00000058,D6 00021234 67 0e |g | BEQ 0x21244 00021236 48 78 01 80 |Hx | PEA.L 0x180 0002123a 3f 03 |? | MOVE.W D3,-(A7) 0002123c 4e b9 00 01 05 98 |N | JSR WriteConfig(what: Word; where : Long) 00021242 5c 4f |\O | ADDQ.L #0x6,A7 00021244 60 1a |` | BRA 0x21260 00021246 bc 28 00 02 | ( | CMP.B (A0+0x2),D6 0002124a 67 14 |g | BEQ 0x21260 0002124c 48 78 01 80 |Hx | PEA.L 0x180 00021250 42 80 |B | CLR.L D0 00021252 10 28 00 02 | ( | MOVE.B (A0+0x2),D0 00021256 3f 00 |? | MOVE.W D0,-(A7) 00021258 4e b9 00 01 05 98 |N | JSR WriteConfig(what: Word; where : Long) 0002125e 5c 4f |\O | ADDQ.L #0x6,A7 00021260 48 54 |HT | PEA.L (A4) 00021262 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021268 58 4f |XO | ADDQ.L #0x4,A7 0002126a 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 0002126e 4e 5e |N^ | UNLK A6 00021270 4e 75 |Nu | RTS 00021272 ; -------------------------------------------------------------------------------------- 00021272 ; OMSI PASCAL Function 00021272 ; <LVAR -0x006 @ 4(rw)> 00021272 ; <LVAR -0x00c 4(rw)> 00021272 ; <LVAR -0x00e 2(r)> 00021272 ; <LVAR -0x010 2(r) 4(rw)> 00021272 ; -------------------------------------------------------------------------------------- 00021272 4e 56 ff 7e |NV ~ | LINK.W A6,#0xff7e 00021276 bf d5 | | CMPA.L (A5),A7 00021278 62 06 |b | BHI 0x21280 0002127a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002127e 4e 76 |Nv | TRAPV 00021280 de fc 00 6a | j | ADDA.W #0x6a,A7 00021284 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021288 43 ee ff f0 |C | LEA.L (A6-0x10),A1 0002128c 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00021290 47 ee ff fa |G | LEA.L (A6-0x6),A3 00021294 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 0002129a 72 0c |r | MOVEQ.L #0x0c,D1 0002129c 74 01 |t | MOVEQ.L #0x01,D2 0002129e 76 10 |v | MOVEQ.L #0x10,D3 000212a0 78 03 |x | MOVEQ.L #0x03,D4 000212a2 51 4f |QO | SUBQ.L #0x8,A7 000212a4 48 78 00 00 |Hx | PEA.L 0x0 000212a8 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 000212ae 58 4f |XO | ADDQ.L #0x4,A7 000212b0 22 9f |" | MOVE.L (A7)+,(A1) 000212b2 24 9f |$ | MOVE.L (A7)+,(A2) 000212b4 7e 00 |~ | MOVEQ.L #0x00,D7 000212b6 51 4f |QO | SUBQ.L #0x8,A7 000212b8 2f 12 |/ | MOVE.L (A2),-(A7) 000212ba 2f 11 |/ | MOVE.L (A1),-(A7) 000212bc 48 78 00 08 |Hx | PEA.L 0x8 000212c0 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 000212c6 de c1 | | ADDA.W D1,A7 000212c8 22 9f |" | MOVE.L (A7)+,(A1) 000212ca 24 97 |$ | MOVE.L (A7),(A2) 000212cc 59 4f |YO | SUBQ.L #0x4,A7 000212ce 2f 12 |/ | MOVE.L (A2),-(A7) 000212d0 2f 11 |/ | MOVE.L (A1),-(A7) 000212d2 9e fc 00 0e | | SUBA.W #0xe,A7 000212d6 48 78 00 84 |Hx | PEA.L 0x84 000212da df 97 | | ADD.L D7,(A7) 000212dc 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 000212e2 58 4f |XO | ADDQ.L #0x4,A7 000212e4 30 1f |0 | MOVE.W (A7)+,D0 000212e6 48 c0 |H | EXTW.L D0 000212e8 2e 80 |. | MOVE.L D0,(A7) 000212ea 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 000212f0 58 4f |XO | ADDQ.L #0x4,A7 000212f2 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad 000212f8 de c3 | | ADDA.W D3,A7 000212fa 22 9f |" | MOVE.L (A7)+,(A1) 000212fc 24 9f |$ | MOVE.L (A7)+,(A2) 000212fe 52 87 |R | ADDQ.L #0x1,D7 00021300 be 84 | | CMP.L D4,D7 00021302 6f b2 |o | BLE 0x212b6 00021304 7c 00 || | MOVEQ.L #0x00,D6 00021306 41 fa f3 68 |A h | LEA.L 0x20670,A0 0002130a 70 08 |p | MOVEQ.L #0x08,D0 0002130c 3f 20 |? | MOVE.W -(A0),-(A7) 0002130e 51 c8 ff fc |Q | DBF D0,0x2130c 00021312 2f 3a f3 5c |/: \ | MOVE.L 0x20670,-(A7) 00021316 9e c1 | | SUBA.W D1,A7 00021318 48 6f 00 10 |Ho | PEA.L (A7+0x10) 0002131c 3f 02 |? | MOVE.W D2,-(A7) 0002131e 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00021322 4e 94 |N | JSR (A4) 00021324 2e 92 |. | MOVE.L (A2),(A7) 00021326 2f 11 |/ | MOVE.L (A1),-(A7) 00021328 48 78 00 0a |Hx | PEA.L 0xa 0002132c 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 00021332 50 4f |PO | ADDQ.L #0x8,A7 00021334 48 6f 00 14 |Ho | PEA.L (A7+0x14) 00021338 3f 02 |? | MOVE.W D2,-(A7) 0002133a 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 0002133e 4e 94 |N | JSR (A4) 00021340 50 4f |PO | ADDQ.L #0x8,A7 00021342 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00021348 de c1 | | ADDA.W D1,A7 0002134a 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00021350 58 4f |XO | ADDQ.L #0x4,A7 00021352 26 9f |& | MOVE.L (A7)+,(A3) 00021354 de fc 00 16 | | ADDA.W #0x16,A7 00021358 20 53 | S | MOVEA.L (A3),A0 0002135a 4a 50 |JP | TST.W (A0) 0002135c 66 0e |f | BNE 0x2136c 0002135e 48 53 |HS | PEA.L (A3) 00021360 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021366 58 4f |XO | ADDQ.L #0x4,A7 00021368 60 00 00 98 |` | BRA 0x21402 0002136c 51 4f |QO | SUBQ.L #0x8,A7 0002136e 2f 13 |/ | MOVE.L (A3),-(A7) 00021370 48 78 00 0a |Hx | PEA.L 0xa 00021374 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 0002137a 50 4f |PO | ADDQ.L #0x8,A7 0002137c 22 9f |" | MOVE.L (A7)+,(A1) 0002137e 24 9f |$ | MOVE.L (A7)+,(A2) 00021380 30 11 |0 | MOVE.W (A1),D0 00021382 80 6e ff f2 | n | OR.W (A6-0xe),D0 00021386 66 04 |f | BNE 0x2138c 00021388 7c 01 || | MOVEQ.L #0x01,D6 0002138a 60 26 |`& | BRA 0x213b2 0002138c 41 fa f2 fe |A | LEA.L 0x2068c,A0 00021390 70 05 |p | MOVEQ.L #0x05,D0 00021392 2f 20 |/ | MOVE.L -(A0),-(A7) 00021394 51 c8 ff fc |Q | DBF D0,0x21392 00021398 59 4f |YO | SUBQ.L #0x4,A7 0002139a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002139e 3f 02 |? | MOVE.W D2,-(A7) 000213a0 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 000213a4 4e 94 |N | JSR (A4) 000213a6 50 4f |PO | ADDQ.L #0x8,A7 000213a8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000213ae de fc 00 1c | | ADDA.W #0x1c,A7 000213b2 4a 06 |J | TST.B D6 000213b4 67 00 ff 4e |g N | BEQ 0x21304 000213b8 7e 00 |~ | MOVEQ.L #0x00,D7 000213ba 9e c1 | | SUBA.W D1,A7 000213bc 2f 12 |/ | MOVE.L (A2),-(A7) 000213be 2f 11 |/ | MOVE.L (A1),-(A7) 000213c0 20 07 | | MOVE.L D7,D0 000213c2 e7 80 | | ASL.L #0x3,D0 000213c4 06 80 00 00 00 20 | | ADDI.L #0x00000020,D0 000213ca 2f 00 |/ | MOVE.L D0,-(A7) 000213cc 48 78 00 08 |Hx | PEA.L 0x8 000213d0 4e b9 00 01 03 4c |N L | JSR FSCALL_1034c 000213d6 de c3 | | ADDA.W D3,A7 000213d8 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 000213de 50 4f |PO | ADDQ.L #0x8,A7 000213e0 2a 1f |* | MOVE.L (A7)+,D5 000213e2 48 78 00 84 |Hx | PEA.L 0x84 000213e6 df 97 | | ADD.L D7,(A7) 000213e8 0c 85 00 00 00 ff | | CMPI.L #0x000000ff,D5 000213ee 63 02 |c | BLS 0x213f2 000213f0 4e 4f |NO | TRAP #15 000213f2 3f 05 |? | MOVE.W D5,-(A7) 000213f4 4e b9 00 01 05 98 |N | JSR WriteConfig(what: Word; where : Long) 000213fa 5c 4f |\O | ADDQ.L #0x6,A7 000213fc 52 87 |R | ADDQ.L #0x1,D7 000213fe be 84 | | CMP.L D4,D7 00021400 6f b8 |o | BLE 0x213ba 00021402 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021406 4e 5e |N^ | UNLK A6 00021408 4e 75 |Nu | RTS 0002140a ; -------------------------------------------------------------------------------------- 0002140a ; OMSI PASCAL Function 0002140a ; -------------------------------------------------------------------------------------- 0002140a START: 0002140a 4f fa 00 08 |O | LEA.L MAIN,A7 0002140e 4e f9 00 01 02 80 |N | JMP ?start_program 00021414 MAIN: 00021414 4e b9 00 01 03 98 |N | JSR FSCALL_10398 0002141a 4e ba fe 56 |N V | JSR 0x21272 0002141e 4e ba fb a4 |N | JSR 0x20fc4 00021422 55 4f |UO | SUBQ.L #0x2,A7 00021424 48 78 01 80 |Hx | PEA.L 0x180 00021428 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 0002142e 58 4f |XO | ADDQ.L #0x4,A7 00021430 10 2f 00 01 | / | MOVE.B (A7+0x1),D0 00021434 0c 00 00 58 | X | CMPI.B #0x58,D0 00021438 66 0e |f | BNE 0x21448 0002143a 4e ba f7 b0 |N | JSR 0x20bec 0002143e 4e ba f9 62 |N b | JSR 0x20da2 00021442 4e ba f5 ca |N | JSR 0x20a0e 00021446 60 04 |` | BRA 0x2144c 00021448 4e ba f2 82 |N | JSR 0x206cc 0002144c 42 17 |B | CLR.B (A7) 0002144e 48 78 00 01 |Hx | PEA.L 0x1 00021452 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021458 5c 4f |\O | ADDQ.L #0x6,A7 0002145a 4e b9 00 01 02 84 |N | JSR ?exit 00021460 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 0002146e ; -------------------------------------------------------------------------------------- 0002146e ; OMSI PASCAL Function 0002146e ; <LVAR 0x008 1(r)> 0002146e ; -------------------------------------------------------------------------------------- 0002146e PROG_FAIL: 0002146e 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00021472 bf d5 | | CMPA.L (A5),A7 00021474 62 06 |b | BHI 0x2147c 00021476 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002147a 4e 76 |Nv | TRAPV 0002147c de fc 00 2c | , | ADDA.W #0x2c,A7 00021480 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021484 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00021488 70 06 |p | MOVEQ.L #0x06,D0 0002148a 3f 20 |? | MOVE.W -(A0),-(A7) 0002148c 51 c8 ff fc |Q | DBF D0,0x2148a 00021490 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00021494 51 4f |QO | SUBQ.L #0x8,A7 00021496 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002149a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002149e 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000214a2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000214a8 58 4f |XO | ADDQ.L #0x4,A7 000214aa 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000214ae 48 80 |H | EXTB.W D0 000214b0 48 c0 |H | EXTW.L D0 000214b2 2f 00 |/ | MOVE.L D0,-(A7) 000214b4 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000214ba 58 4f |XO | ADDQ.L #0x4,A7 000214bc 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000214c2 50 4f |PO | ADDQ.L #0x8,A7 000214c4 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000214ca de fc 00 14 | | ADDA.W #0x14,A7 000214ce 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000214d2 4e 5e |N^ | UNLK A6 000214d4 4e 75 |Nu | RTS 000214d6 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 000214e4 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 000214f2 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00021500 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00021512 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 0002152a ; -------------------------------------------------------------------------------------- 0002152a ; OMSI PASCAL Function 0002152a ; <LVAR 0x00e 1(r)> 0002152a ; <LVAR 0x00a 4(r)> 0002152a ; <LVAR 0x008 1(r)> 0002152a ; -------------------------------------------------------------------------------------- 0002152a EXP_FAIL: 0002152a 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 0002152e bf d5 | | CMPA.L (A5),A7 00021530 62 06 |b | BHI 0x21538 00021532 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021536 4e 76 |Nv | TRAPV 00021538 de fc 00 74 | t | ADDA.W #0x74,A7 0002153c 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00021540 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00021546 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 0002154c 72 01 |r | MOVEQ.L #0x01,D1 0002154e 74 0d |t | MOVEQ.L #0x0d,D2 00021550 76 1e |v | MOVEQ.L #0x1e,D3 00021552 78 12 |x | MOVEQ.L #0x12,D4 00021554 7a 0e |z | MOVEQ.L #0x0e,D5 00021556 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002155c 41 fa ff b4 |A | LEA.L 0x21512,A0 00021560 70 08 |p | MOVEQ.L #0x08,D0 00021562 3f 20 |? | MOVE.W -(A0),-(A7) 00021564 51 c8 ff fc |Q | DBF D0,0x21562 00021568 59 4f |YO | SUBQ.L #0x4,A7 0002156a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002156e 3f 01 |? | MOVE.W D1,-(A7) 00021570 3f 04 |? | MOVE.W D4,-(A7) 00021572 4e 93 |N | JSR (A3) 00021574 50 4f |PO | ADDQ.L #0x8,A7 00021576 4e 94 |N | JSR (A4) 00021578 50 4f |PO | ADDQ.L #0x8,A7 0002157a 20 4f | O | MOVEA.L A7,A0 0002157c 43 fa ff 58 |C X | LEA.L 0x214d6,A1 00021580 70 0c |p | MOVEQ.L #0x0c,D0 00021582 10 d9 | | MOVE.B (A1)+,(A0)+ 00021584 51 c8 ff fc |Q | DBF D0,0x21582 00021588 51 4f |QO | SUBQ.L #0x8,A7 0002158a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002158e 3f 01 |? | MOVE.W D1,-(A7) 00021590 3f 02 |? | MOVE.W D2,-(A7) 00021592 4e 93 |N | JSR (A3) 00021594 54 4f |TO | ADDQ.L #0x2,A7 00021596 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 0002159a 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000215a0 54 4f |TO | ADDQ.L #0x2,A7 000215a2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000215a8 50 4f |PO | ADDQ.L #0x8,A7 000215aa 4e 94 |N | JSR (A4) 000215ac de c4 | | ADDA.W D4,A7 000215ae 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000215b2 b0 c1 | | CMPA.W D1,A0 000215b4 67 48 |gH | BEQ 0x215fe 000215b6 9e c5 | | SUBA.W D5,A7 000215b8 22 4f |"O | MOVEA.L A7,A1 000215ba 45 fa ff 28 |E ( | LEA.L 0x214e4,A2 000215be 70 0c |p | MOVEQ.L #0x0c,D0 000215c0 12 da | | MOVE.B (A2)+,(A1)+ 000215c2 51 c8 ff fc |Q | DBF D0,0x215c0 000215c6 9e c3 | | SUBA.W D3,A7 000215c8 22 4f |"O | MOVEA.L A7,A1 000215ca 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000215ce 70 1d |p | MOVEQ.L #0x1d,D0 000215d0 12 d8 | | MOVE.B (A0)+,(A1)+ 000215d2 51 c8 ff fc |Q | DBF D0,0x215d0 000215d6 51 4f |QO | SUBQ.L #0x8,A7 000215d8 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 000215dc 3f 01 |? | MOVE.W D1,-(A7) 000215de 3f 02 |? | MOVE.W D2,-(A7) 000215e0 4e 93 |N | JSR (A3) 000215e2 58 4f |XO | ADDQ.L #0x4,A7 000215e4 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000215e8 3f 01 |? | MOVE.W D1,-(A7) 000215ea 3f 03 |? | MOVE.W D3,-(A7) 000215ec 4e 93 |N | JSR (A3) 000215ee 50 4f |PO | ADDQ.L #0x8,A7 000215f0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000215f6 50 4f |PO | ADDQ.L #0x8,A7 000215f8 4e 94 |N | JSR (A4) 000215fa de fc 00 30 | 0 | ADDA.W #0x30,A7 000215fe 9e c5 | | SUBA.W D5,A7 00021600 20 4f | O | MOVEA.L A7,A0 00021602 43 fa fe ee |C | LEA.L 0x214f2,A1 00021606 70 0c |p | MOVEQ.L #0x0c,D0 00021608 10 d9 | | MOVE.B (A1)+,(A0)+ 0002160a 51 c8 ff fc |Q | DBF D0,0x21608 0002160e 51 4f |QO | SUBQ.L #0x8,A7 00021610 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021614 3f 01 |? | MOVE.W D1,-(A7) 00021616 3f 02 |? | MOVE.W D2,-(A7) 00021618 4e 93 |N | JSR (A3) 0002161a 54 4f |TO | ADDQ.L #0x2,A7 0002161c 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00021620 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00021626 54 4f |TO | ADDQ.L #0x2,A7 00021628 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002162e 50 4f |PO | ADDQ.L #0x8,A7 00021630 4e 94 |N | JSR (A4) 00021632 5d 4f |]O | SUBQ.L #0x6,A7 00021634 20 4f | O | MOVEA.L A7,A0 00021636 43 fa fe da |C | LEA.L 0x21512,A1 0002163a 70 16 |p | MOVEQ.L #0x16,D0 0002163c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002163e 51 c8 ff fc |Q | DBF D0,0x2163c 00021642 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00021646 59 4f |YO | SUBQ.L #0x4,A7 00021648 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002164c 3f 01 |? | MOVE.W D1,-(A7) 0002164e 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00021652 4e 93 |N | JSR (A3) 00021654 50 4f |PO | ADDQ.L #0x8,A7 00021656 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002165c de c3 | | ADDA.W D3,A7 0002165e 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00021662 4e 5e |N^ | UNLK A6 00021664 4e 75 |Nu | RTS