|
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: 3072 (0xc00)
Types: M200
Notes: @(#)TEST_PAD,1.1,92/07/09,12:00:00, M200_PROGRAM
Names: »TESTPAD.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »TESTPAD.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »TESTPAD.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »TESTPAD.M200«
@ 203d0
<LVAR 0x008 @ 4(r)>
<POP 203d0-20426 Body>
<POP 203d0-203e6 Prologue> Σ0 ↓
<POP 203e6-203ea RegCacheLoad> Σ0 ↓
<POP 203ea-2041e Naked> Σ0 ↓
<MI 203ea MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Const 0x203ec 0xa.2> Δ-2 {[4, '(A6+0x8)']|[#10]}
<Call 0x203f0 0x102c0> {[4, '(A6+0x8)']|[#10]}
AppendChar(MOD b : String; a : char)
<POP 203f6-203f8 StackAdj> Δ+2 {[4, '(A6+0x8)']}
<MI 203f8 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x203fa 0xd.2> Δ-2 {[4, '(A6+0x8)']|[#13]}
<Call 0x203fe 0x102c0> {[4, '(A6+0x8)']|[#13]}
AppendChar(MOD b : String; a : char)
<POP 20404-20406 StackAdj> Δ+4 {[-2-]}
<POP 20406-20407 StackAdj> Δ+2 {}
<Const 0x20407 0x1.2> Δ-2 {[#1]}
<MI 2040a MOVE.L (A6+0x8),-(A7)> Δ-4 {[#1]|[4, '(A6+0x8)']}
<Call 0x2040c 0x1020a> {[#1]|[4, '(A6+0x8)']}
KC05_PortWriteString(port : Word ; str : String)
<POP 20412-20414 StackAdj> Δ+6 {}
<Pointer.fp 0x20414 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x20416 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 2041c-2041e StackAdj> Δ+4 {}
<POP 2041e-20426 Epilogue> Σ0
@ 20426
<LVAR -0x004 @ 4(r)>
<POP 20426-20450 Body>
<POP 20426-20438 Prologue> Σ0 ↓
<POP 20438-2044c Naked> Σ0 ↓
<Pointer.fp 0x20438 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x2043c 0x102b8> {[@@-4]}
NewString(VAR a : String)
<MI 20442 MOVE.L (A6-0x4),(A7)> {[4, '(A6-0x4)']}
<Call 0x20446 0x203d0> {[4, '(A6-0x4)']}
<POP 2044a-2044c StackAdj> Δ+4 {}
<POP 2044c-20450 Epilogue> Σ0
@ 20450
<LVAR 0x008 @ 4(r)>
<POP 20450-20498 Body>
<POP 20450-20466 Prologue> Σ0 ↓
<POP 20466-2046a RegCacheLoad> Σ0 ↓
<POP 2046a-20490 Naked> Σ0 ↓
<MI 2046a MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Const 0x2046c 0xd.2> Δ-2 {[4, '(A6+0x8)']|[#13]}
<Call 0x20470 0x102c0> {[4, '(A6+0x8)']|[#13]}
AppendChar(MOD b : String; a : char)
<POP 20476-20478 StackAdj> Δ+4 {[-2-]}
<POP 20478-20479 StackAdj> Δ+2 {}
<Const 0x20479 0x2.2> Δ-2 {[#2]}
<MI 2047c MOVE.L (A6+0x8),-(A7)> Δ-4 {[#2]|[4, '(A6+0x8)']}
<Call 0x2047e 0x1020a> {[#2]|[4, '(A6+0x8)']}
KC05_PortWriteString(port : Word ; str : String)
<POP 20484-20486 StackAdj> Δ+6 {}
<Pointer.fp 0x20486 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x20488 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 2048e-20490 StackAdj> Δ+4 {}
<POP 20490-20498 Epilogue> Σ0
@ 20498
<LVAR 0x00c 2(w)>
<LVAR 0x008 4(r)>
<POP 20498-204ce Body>
<POP 20498-204ae Prologue> Σ0 ↓
<POP 204ae-204c6 Naked> Σ0 ↓
<POP 204ae-204b0 StackAdj> Δ-2 {[-2-]}
<MI 204b0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x8)']}
<Call 0x204b4 0x10592> {[-2-]|[4, '(A6+0x8)']}
ReadConfig(where : Long) : Word
<POP 204ba-204bc StackAdj> Δ+4 {[-2-]}
<MI 204bc MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x204be LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 204c2 MOVE.W D0,(A6+0xc)> {}
<POP 204c6-204ce Epilogue> Σ0
@ 204ce
<LVAR -0x004 @ 1(r)>
<POP 204ce-2057a Body>
<POP 204ce-204e4 Prologue> Σ0 ↓
<POP 204e4-204f2 RegCacheLoad> Σ0 ↓
<POP 204f2-204f6 Naked> Σ0 ↓
<MI 204f2 MOVEQ.L #0x00,D7> {}
<MI 204f4 CLR.L 0x21354> {}
<POP 204f6-204fe Naked> Σ0 ↓ →0x20572 ←0x2056e
<MI 204f6 CMPI.L #0x00000014,D7> {}
<MI 204fc BEQ 0x20572> {}
<POP 204fe-20500 Naked> Σ0 ↓
<MI 204fe MOVEQ.L #0x01,D6> {}
<POP 20500-20518 Naked> Σ0 ↓ →0x20564 ←0x20564
<Const 0x20500 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x20502 <LVAR -0x004 @ 1(r)>> Δ-4 {[#2]|[@@-4]}
<Call 0x20506 0x10212> {[#2]|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 2050c-2050e StackAdj> Δ+6 {}
<MI 2050e MOVE.B (A6-0x4),D0> {}
<MI 20512 CMPI.B #0x01,D0> {}
<MI 20516 BNE 0x20564> {}
<POP 20518-2053e Naked> Σ0 ↓ →0x20560
<Const 0x20518 0x2.2> Δ-2 {[#2]}
<MI 2051a MOVE.L 0x21354,D0> {[#2]}
<POP 0x2051c LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[#2]}
<MI 20526 ASL.L #0x1,D0> {[#2]}
<MI 20528 LEA.L 0x20b46,A0> {[#2]}
<MI 2052a PEA.L (A0+D0.L+#0xe)> Δ-4 {[#2]|[4, '^(A0+D0.L+#0xe)']}
<Call 0x2052e 0x1020e> {[#2]|[4, '^(A0+D0.L+#0xe)']}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20534-20536 StackAdj> Δ+6 {}
<MI 20536 TST.B 0x20b52> {}
<MI 2053c BEQ 0x20560> {}
<POP 2053e-20560 Naked> Σ0 ↓
<MI 2053e MOVE.L 0x21354,D0> {}
<POP 0x20540 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {}
<MI 2054a ASL.L #0x1,D0> {}
<MI 2054c LEA.L 0x20b46,A0> {}
<MI 2054e MOVE.W (A0+D0.L+#0xe),D0> {}
<MI 20552 ANDI.W #0x00ff,D0> {}
<MI 20556 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Call 0x20558 0x103d0> {[2, 'D0']}
WriteConsoleChar(chr : char)
<POP 2055e-20560 StackAdj> Δ+2 {}
<POP 20560-20564 Naked> Σ0 ↓ ←0x20518
<MI 20560 MOVEQ.L #0x00,D7> {}
<MI 20562 ADDQ.L #0x1,0x21354> {}
<POP 20564-2056e Naked> Σ0 ↓ →0x20500 ←0x20500
<MI 20564 ADDQ.L #0x1,D6> {}
<MI 20566 CMPI.L #0x000003e8,D6> {}
<MI 2056c BLE 0x20500> {}
<POP 2056e-20572 Naked> Σ0 →0x204f6
<MI 2056e ADDQ.L #0x1,D7> {}
<MI 20570 BRA 0x204f6> {}
<POP 20572-2057a Epilogue> Σ0 ←0x204f6
@ 2057a
<POP 2057a-2086e Body>
<POP 2057a-20590 Prologue> Σ0 ↓
<POP 20590-205b2 RegCacheLoad> Σ0 ↓
<POP 205b2-20628 Naked> Σ0 ↓ →0x20696
<Call 0x205b2 0x10216> {}
KC0b
<Blob 0x205b8 [36] @> Δ-36 {[«36""»]}
<POP 205c8-205ca StackAdj> Δ-6 {[«36""»]|[-6-]}
<Lit 0x205ca 35> {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]}
<POP 205d6-205d8 StackAdj> Δ-2 {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
<MI 205d8 CLR.B (A7)> {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
<Call 0x205da 0x103f0> {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 205e0-205e2 StackAdj> Δ+6 {[«36""»]|[-2-]}
<MI 205e2 MOVE.B (A7)+,D0> Δ+2 {[«36""»]}
<MI 205e4 EXTB.W D0> {[«36""»]}
<POP 0x205e6 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«36""»]}
<POP 205e8-205ea StackAdj> Δ+36 {}
<MI 205ea MOVE.B D0,0x20b52> {}
<Call 0x205f0 0x204ce> {}
<Blob 0x205f4 [6] @> Δ-6 {[«6""»]}
<POP 20604-20606 StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x20606 5> {[«6""»]|[$$D A P]}
<Call 0x20614 0x20450> {[«6""»]|[$$D A P]}
<POP 20618-2061c StackAdj> Δ+10 {}
<Call 0x2061c 0x204ce> {}
<MI 20620 TST.L 0x21354> {}
<MI 20626 BNE 0x20696> {}
<POP 20628-20696 Naked> Σ0 →0x20856
<Blob 0x20628 [64] @> Δ-64 {[«64""»]}
<POP 20638-2063a StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x2063a 63> {[«64""»]|[$$No data is being recieved from the PAD. Check power to the PAD,]}
<Call 0x20648 0x103e0> {[«64""»]|[$$No data is being recieved from the PAD. Check power to the PAD,]}
WriteConsoleStringCrLf(str : String)
<POP 2064a-2064b StackAdj> Δ+68 ↓ {}
<Blob 0x2064b [66] @> Δ-66 {[«66""»]}
<POP 2065a-2065c StackAdj> Δ-4 {[«66""»]|[-4-]}
<Lit 0x2065c 65> {[«66""»]|[$$cables from the back plane to PAD and re-run the test. A terminal]}
<Call 0x2066a 0x103e0> {[«66""»]|[$$cables from the back plane to PAD and re-run the test. A terminal]}
WriteConsoleStringCrLf(str : String)
<POP 2066c-20670 StackAdj> Δ+70 {}
<Blob 0x20670 [52] @> Δ-52 {[«52""»]}
<POP 2067c-2067e StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x2067e 52> {[«52""»]|[$$may be connected to the PAD to verify it is operable]}
<Call 0x2068c 0x103e0> {[«52""»]|[$$may be connected to the PAD to verify it is operable]}
WriteConsoleStringCrLf(str : String)
<POP 2068e-20692 StackAdj> Δ+56 {}
<MI 20692 BRA 0x20856> {}
<POP 20696-2069e Naked> Σ0 ↓ →0x206a2 ←0x205b2
<MI 20696 TST.B 0x20b52> {}
<MI 2069c BEQ 0x206a2> {}
<POP 2069e-206a2 Naked> Σ0 ↓
<Call 0x2069e 0x20426> {}
<POP 206a2-206a4 Naked> Σ0 ↓ ←0x20696
<MI 206a2 MOVEQ.L #0x00,D7> {}
<POP 206a4-206ae Naked> Σ0 ↓ →0x20814 ←0x2080e
<MI 206a4 CMP.L 0x21354,D7> {}
<MI 206aa BGE 0x20814> {}
<POP 206ae-206cc Naked> Σ0 ↓ →0x2080e
<MI 206ae MOVE.L D7,D0> {}
<MI 206b0 ADDQ.L #0x1,D0> {}
<POP 0x206b2 LimitCheck 0x0 ≤ D7 ≤ 0x3ff> {}
<MI 206b8 MOVE.L D7,D1> {}
<MI 206ba ASL.L #0x1,D1> {}
<MI 206bc LEA.L 0x20b46,A0> {}
<MI 206be MOVE.W (A0+D1.L+#0xe),D1> {}
<MI 206c2 AND.W #0xff,D1> {}
<MI 206c4 CMPI.B #0x53,D1> {}
<MI 206c8 BNE 0x2080e> {}
<POP 206cc-206e6 Naked> Σ0 ↓ →0x2080e
<POP 0x206cc LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {}
<MI 206d2 MOVE.L D0,D1> {}
<MI 206d4 ASL.L #0x1,D1> {}
<MI 206d6 LEA.L 0x20b46,A0> {}
<MI 206d8 MOVE.W (A0+D1.L+#0xe),D1> {}
<MI 206dc AND.W #0xff,D1> {}
<MI 206de CMPI.B #0x45,D1> {}
<MI 206e2 BNE 0x2080e> {}
<POP 206e6-20702 Naked> Σ0 ↓ →0x2080e
<MI 206e6 MOVE.L D7,D1> {}
<MI 206e8 ADDQ.L #0x2,D1> {}
<POP 0x206ea LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {}
<MI 206f0 ASL.L #0x1,D1> {}
<MI 206f2 LEA.L 0x20b46,A0> {}
<MI 206f4 MOVE.W (A0+D1.L+#0xe),D1> {}
<MI 206f8 AND.W #0xff,D1> {}
<MI 206fa CMPI.B #0x52,D1> {}
<MI 206fe BNE 0x2080e> {}
<POP 20702-2071e Naked> Σ0 ↓ →0x2080e
<MI 20702 MOVE.L D7,D1> {}
<MI 20704 ADDQ.L #0x3,D1> {}
<POP 0x20706 LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {}
<MI 2070c ASL.L #0x1,D1> {}
<MI 2070e LEA.L 0x20b46,A0> {}
<MI 20710 MOVE.W (A0+D1.L+#0xe),D1> {}
<MI 20714 AND.W #0xff,D1> {}
<MI 20716 CMPI.B #0x56,D1> {}
<MI 2071a BNE 0x2080e> {}
<POP 2071e-2073a Naked> Σ0 ↓ →0x2080e
<MI 2071e MOVE.L D7,D1> {}
<MI 20720 ADDQ.L #0x4,D1> {}
<POP 0x20722 LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {}
<MI 20728 ASL.L #0x1,D1> {}
<MI 2072a LEA.L 0x20b46,A0> {}
<MI 2072c MOVE.W (A0+D1.L+#0xe),D1> {}
<MI 20730 AND.W #0xff,D1> {}
<MI 20732 CMPI.B #0x49,D1> {}
<MI 20736 BNE 0x2080e> {}
<POP 2073a-20756 Naked> Σ0 ↓ →0x2080e
<MI 2073a MOVE.L D7,D1> {}
<MI 2073c ADDQ.L #0x5,D1> {}
<POP 0x2073e LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {}
<MI 20744 ASL.L #0x1,D1> {}
<MI 20746 LEA.L 0x20b46,A0> {}
<MI 20748 MOVE.W (A0+D1.L+#0xe),D1> {}
<MI 2074c AND.W #0xff,D1> {}
<MI 2074e CMPI.B #0x43,D1> {}
<MI 20752 BNE 0x2080e> {}
<POP 20756-20772 Naked> Σ0 ↓ →0x2080e
<MI 20756 MOVE.L D7,D1> {}
<MI 20758 ADDQ.L #0x6,D1> {}
<POP 0x2075a LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {}
<MI 20760 ASL.L #0x1,D1> {}
<MI 20762 LEA.L 0x20b46,A0> {}
<MI 20764 MOVE.W (A0+D1.L+#0xe),D1> {}
<MI 20768 AND.W #0xff,D1> {}
<MI 2076a CMPI.B #0x45,D1> {}
<MI 2076e BNE 0x2080e> {}
<POP 20772-2080e Naked> Σ0 ↓
<Blob 0x20772 [66] @> Δ-66 {[«66""»]}
<POP 20784-20786 StackAdj> Δ-4 {[«66""»]|[-4-]}
<Lit 0x20786 65> {[«66""»]|[$$The PAD connection works properly, for complete test to RATIONAL,]}
<Call 0x20794 0x103e0> {[«66""»]|[$$The PAD connection works properly, for complete test to RATIONAL,]}
WriteConsoleStringCrLf(str : String)
<POP 20796-2079a StackAdj> Δ+70 {}
<Blob 0x2079a [64] @> Δ-64 {[«64""»]}
<POP 207a6-207a8 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x207a8 64> {[«64""»]|[$$try REMOTE option at CLI prompt. You should get a response like:]}
<Call 0x207b4 0x103e0> {[«64""»]|[$$try REMOTE option at CLI prompt. You should get a response like:]}
WriteConsoleStringCrLf(str : String)
<POP 207b6-207ba StackAdj> Δ+68 {}
<Blob 0x207ba [60] @> Δ-60 {[«60""»]}
<POP 207c6-207c8 StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x207c8 60> {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]}
<Call 0x207d6 0x103e0> {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]}
WriteConsoleStringCrLf(str : String)
<POP 207d8-207d9 StackAdj> Δ+64 ↓ {}
<Blob 0x207d9 [14] @> Δ-14 {[«14""»]}
<POP 207ea-207ec StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x207ec 13> {[«14""»]|[$$for call back]}
<Call 0x207fa 0x103e0> {[«14""»]|[$$for call back]}
WriteConsoleStringCrLf(str : String)
<POP 207fc-20800 StackAdj> Δ+16 {[-2-]}
<MI 20800 CLR.B (A7)> {[-2-]}
<Const 0x20802 0x1.4> Δ-4 {[-2-]|[##1]}
<Call 0x20806 0x103b8> {[-2-]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 2080c-2080e StackAdj> Δ+6 {}
<POP 2080e-20814 Naked> Σ0 →0x206a4 ←0x206ae ←0x206cc ←0x206e6 ←0x20702 ←0x2071e ←0x2073a ←0x20756
<MI 2080e MOVE.L D0,D7> {}
<MI 20810 BRA 0x206a4> {}
<POP 20814-20856 Naked> Σ0 ↓ ←0x206a4
<Blob 0x20814 [58] @> Δ-58 {[«58""»]}
<POP 20820-20822 StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x20822 58> {[«58""»]|[$$Data was received from the PAD but could not be recognized]}
<Call 0x20830 0x103e0> {[«58""»]|[$$Data was received from the PAD but could not be recognized]}
WriteConsoleStringCrLf(str : String)
<MI 20832 MOVEA.L A7,A0> {[«58""»]|[$$Data was received from the PAD but could not be recognized]}
<MI 20834 LEA.L 0x2038c,A1> {[«58""»]|[$$Data was received from the PAD but could not be recognized]}
<BlockMove 61,A1,A0> {[«58""»]|[$$Data was received from the PAD but could not be recognized]}
<POP 20840-20842 StackAdj> Δ-4 {[«58""»]|[$$Data was received from the PAD but could not be recognized]|[-4-]}
<Lit 0x20842> {[«58""»]|[$$Data was received from the PAD but could not be recognized]|[$$…]}
<Pointer.sp 0x20842 4> Δ-4
<Const 0x20846 0x1.2> Δ-2
<Const 0x20848 0x3d.2> Δ-2
<Call 0x2084c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2084e-20850 StackAdj> Δ+8
<Call 0x20850 0x103e0> {[«58""»]|[$$Data was received from the PAD but could not be recognized]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 20852-20856 StackAdj> Δ+66 {}
<POP 20856-20866 Naked> Σ0 ↓ ←0x20628
<Const 0x20856 0x2.2> Δ-2 {[#2]}
<Const 0x2085a 0x1.4> Δ-4 {[#2]|[##1]}
<Call 0x2085e 0x103b8> {[#2]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20864-20866 StackAdj> Δ+6 {}
<POP 20866-2086e Epilogue> Σ0
@ 2086e
START
<POP 2086e--0001 Body>
<POP 2086e-20878 Prologue> Σ0
<POP 20878-2087a RegCacheLoad> Σ0 ↓
<POP 2087a-208a6 Naked> Σ0 ↓ →0x20900
<Call 0x2087a 0x10398> {}
FSCALL_10398
<POP 20880-20882 StackAdj> Δ-2 {[-2-]}
<Const 0x20882 0x180.4> Δ-4 {[-2-]|[##384]}
<Call 0x20886 0x10592> {[-2-]|[##384]}
ReadConfig(where : Long) : Word
<POP 2088c-2088e StackAdj> Δ+4 {[-2-]}
<MI 2088e MOVE.W (A7)+,D0> Δ+2 {}
<MI 20890 EXTW.L D0> {}
<MI 20892 MOVE.L D0,0x20b4e> {}
<MI 20898 SUBI.L #0x0000004d,D0> {}
<MI 2089e CMPI.L #0x0000000b,D0> {}
<MI 208a4 BHI 0x20900> {}
<POP 208a6-208b0 Naked> Σ0 →0x208c8 →0x20900 →0x20900 →0x20900 →0x20900 →0x20900 →0x20900 →0x20900 →0x20900 →0x20900 →0x20900 →0x208fa
<MI 208a6 ADD.W D0,D0> {}
<MI 208a8 SWITCH D0.W> {}
<POP 208c8-208fa Naked> Σ0 →0x2092a ←0x208a6
<Blob 0x208c8 [62] @> Δ-62 {[«62""»]}
<POP 208da-208dc StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x208dc 61> {[«62""»]|[$$NOVRAM indicates modem attached, run INITIOA to change to PAD]}
<Call 0x208ee 0x103e0> {[«62""»]|[$$NOVRAM indicates modem attached, run INITIOA to change to PAD]}
WriteConsoleStringCrLf(str : String)
<POP 208f4-208f8 StackAdj> Δ+66 {}
<MI 208f8 BRA 0x2092a> {}
<POP 208fa-20900 Naked> Σ0 →0x2093a ←0x208a6
<Call 0x208fa 0x2057a> {}
<MI 208fe BRA 0x2093a> {}
<POP 20900-2092a Naked> Σ0 ↓ ←0x2087a ←0x208a6 ←0x208a6 ←0x208a6 ←0x208a6 ←0x208a6 ←0x208a6 ←0x208a6 ←0x208a6 ←0x208a6 ←0x208a6
<Blob 0x20900 [46] @> Δ-46 {[«46""»]}
<POP 2090c-2090e StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x2090e 46> {[«46""»]|[$$NOVRAM is not properly configured, run INITIOA]}
<Call 0x20920 0x103e0> {[«46""»]|[$$NOVRAM is not properly configured, run INITIOA]}
WriteConsoleStringCrLf(str : String)
<POP 20926-2092a StackAdj> Δ+50 {}
<POP 2092a-2093a Naked> Σ0 ↓ ←0x208c8
<Const 0x2092a 0x2.2> Δ-2 {[#2]}
<Const 0x2092e 0x1.4> Δ-4 {[#2]|[##1]}
<Call 0x20932 0x103b8> {[#2]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20938-2093a StackAdj> Δ+6 {}
<POP 2093a-20940 Naked> Σ0 ←0x208fa
<Call 0x2093a 0x10284> {}
?exit
@ 2094e
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 2094e-209b6 Body>
<POP 2094e-20964 Prologue> Σ0 ↓
<POP 20964-209ae Naked> Σ0 ↓
<Blob 0x20964 [14] @> Δ-14 {[«14""»]}
<Const 0x20970 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 20974-20976 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x20976 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 20988-2098a StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2098a MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2098e EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20990 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20992 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x20994 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2099a-2099c StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x2099c 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 209a2-209a4 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x209a4 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 209aa-209ae StackAdj> Δ+20 {}
<POP 209ae-209b6 Epilogue> Σ0
@ 20a0a
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 20a0a-20b46 Body>
<POP 20a0a-20a20 Prologue> Σ0 ↓
<POP 20a20-20a36 RegCacheLoad> Σ0 ↓
<POP 20a36-20a96 Naked> Σ0 ↓ →0x20ade
<Call 0x20a36 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x20a3c [18] @> Δ-18 {[«18""»]}
<POP 20a48-20a4a StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20a4a 18> {[«18""»]|[$$Experiment error :]}
<Call 0x20a56 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 20a58-20a59 StackAdj> Δ+22 ↓ {}
<Blob 0x20a59 [14] @> Δ-14 {[«14""»]}
<POP 20a68-20a6a StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20a6a 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 20a74-20a76 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 20a76 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x20a7a 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 20a80-20a82 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x20a82 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20a88-20a8a StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20a8a 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20a8c-20a8e StackAdj> Δ+18 {}
<MI 20a8e MOVEA.L (A6+0xa),A0> {}
<MI 20a92 CMPA.W #0x01,A0> {}
<MI 20a94 BEQ 0x20ade> {}
<POP 20a96-20ade Naked> Σ0 ↓
<Blob 0x20a96 [14] @> Δ-14 {[«14""»]}
<Blob 0x20aa6 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 20ab6-20ab8 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x20ab8 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 20ac2-20ac4 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x20ac4> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x20ac4 12> Δ-4
<Const 0x20ac8 0x1.2> Δ-2
<Const 0x20aca 0x1e.2> Δ-2
<Call 0x20acc 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20ace-20ad0 StackAdj> Δ+8
<Call 0x20ad0 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20ad6-20ad8 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x20ad8 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20ada-20ade StackAdj> Δ+48 {}
<POP 20ade-20b3e Naked> Σ0 ↓ ←0x20a36
<Blob 0x20ade [14] @> Δ-14 {[«14""»]}
<POP 20aee-20af0 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20af0 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 20afa-20afc StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 20afc MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x20b00 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 20b06-20b08 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x20b08 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20b0e-20b10 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20b10 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20b12-20b13 StackAdj> Δ+18 ↓ {}
<Blob 0x20b13 [24] @> Δ-24 {[«24""»]}
<Const 0x20b22 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 20b26-20b28 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x20b28 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x20b36 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 20b3c-20b3e StackAdj> Δ+30 {}
<POP 20b3e-20b46 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.22a139893377a3a8 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 08 6e | n | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 13 6a | j | .PTR 0x2136a 00020010 code.end: 00020010 00 02 0b 46 | F | .PTR 0x20b46 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 09 4e | N | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 0a 0a | | .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 54 45 |@(#)TE | .XXX[0x6] 00020110 53 54 5f 50 41 44 2c 31 |ST_PAD,1| .XXX[0x18] 00020118 2e 31 2c 39 32 2f 30 37 |.1,92/07| 00020120 2f 30 39 2c 31 32 3a 30 |/09,12:0| 00020128 30 3a 30 30 5c 20 |0:00\ | .XXX[0x6] 0002012e 4e 4f 56 52 41 4d 20 69 |NOVRAM i| .TXT 'NOVRAM indicates modem attached, run INITIOA to change to PAD ' 0002016c 50 41 44 20 |PAD | .XXX[0x4] 00020170 74 65 73 74 20 63 6f 6d |test com| .XXX[0x8] 00020178 70 6c 65 74 65 20 |plete | .XXX[0x6] 0002017e 4e 4f 56 52 41 4d 20 69 |NOVRAM i| .TXT 'NOVRAM is not properly configured, run INITIOA' 000201ac 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you wish to run in VERBOSE mode_ ' 000201d0 4e 6f 20 64 61 74 61 20 |No data | .TXT 'No data is being recieved from the PAD. Check power to the PAD, ' 00020210 63 61 62 6c 65 73 20 66 |cables f| .TXT 'cables from the back plane to PAD and re-run the test. A terminal ' 00020252 6d 61 79 20 62 65 20 63 |may be c| .TXT 'may be connected to the PAD to verify it is operable' 00020286 54 68 65 20 50 41 44 20 |The PAD | .TXT 'The PAD connection works properly, for complete test to RATIONAL, ' 000202c8 74 72 79 20 52 45 4d 4f |try REMO| .TXT 'try REMOTE option at CLI prompt. You should get a response like:' 00020308 52 61 74 69 6f 6e 61 6c |Rational| .TXT 'Rational Response Center has instructed this cluster to wait' 00020344 66 6f 72 20 63 61 6c 6c |for call| .TXT 'for call back ' 00020352 44 61 74 61 20 77 61 73 |Data was| .TXT 'Data was received from the PAD but could not be recognized' 0002038c 55 73 65 20 |Use | .XXX[0x4] 00020390 61 20 74 65 72 6d 69 6e |a termin| .XXX[0x38] 00020398 61 6c 20 61 6e 64 20 76 |al and v| 000203a0 65 72 69 66 79 20 74 68 |erify th| 000203a8 61 74 20 74 68 65 20 50 |at the P| 000203b0 41 44 20 69 73 20 70 72 |AD is pr| 000203b8 6f 70 65 72 6c 79 20 63 |operly c| 000203c0 6f 6e 66 69 67 75 72 65 |onfigure| 000203c8 64 20 |d | .XXX[0x2] 000203ca 44 20 41 20 50 20 |D A P | .TXT 'D A P ' 000203d0 ; -------------------------------------------------------------------------------------- 000203d0 ; OMSI PASCAL Function 000203d0 ; <LVAR 0x008 @ 4(r)> 000203d0 ; -------------------------------------------------------------------------------------- 000203d0 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 000203d4 bf d5 | | CMPA.L (A5),A7 000203d6 62 06 |b | BHI 0x203de 000203d8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000203dc 4e 76 |Nv | TRAPV 000203de de fc 00 0e | | ADDA.W #0xe,A7 000203e2 48 e7 00 80 |H | MOVEM.L A0,-(A7) 000203e6 41 ee 00 08 |A | LEA.L (A6+0x8),A0 000203ea 2f 10 |/ | MOVE.L (A0),-(A7) 000203ec 1f 3c 00 0a | < | MOVE.B #0x0a,-(A7) 000203f0 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000203f6 54 4f |TO | ADDQ.L #0x2,A7 000203f8 2e 90 |. | MOVE.L (A0),(A7) 000203fa 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 000203fe 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020404 58 4f |XO | ADDQ.L #0x4,A7 00020406 3e bc 00 01 |> | MOVE.W #0x1,(A7) 0002040a 2f 10 |/ | MOVE.L (A0),-(A7) 0002040c 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 00020412 5c 4f |\O | ADDQ.L #0x6,A7 00020414 48 50 |HP | PEA.L (A0) 00020416 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002041c 58 4f |XO | ADDQ.L #0x4,A7 0002041e 4c df 01 00 |L | MOVEM.L (A7)+,A0 00020422 4e 5e |N^ | UNLK A6 00020424 4e 75 |Nu | RTS 00020426 ; -------------------------------------------------------------------------------------- 00020426 ; OMSI PASCAL Function 00020426 ; <LVAR -0x004 @ 4(r)> 00020426 ; -------------------------------------------------------------------------------------- 00020426 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 0002042a bf d5 | | CMPA.L (A5),A7 0002042c 62 06 |b | BHI 0x20434 0002042e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020432 4e 76 |Nv | TRAPV 00020434 de fc 00 08 | | ADDA.W #0x8,A7 00020438 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002043c 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020442 2e ae ff fc |. | MOVE.L (A6-0x4),(A7) 00020446 4e ba ff 88 |N | JSR 0x203d0 0002044a 58 4f |XO | ADDQ.L #0x4,A7 0002044c 4e 5e |N^ | UNLK A6 0002044e 4e 75 |Nu | RTS 00020450 ; -------------------------------------------------------------------------------------- 00020450 ; OMSI PASCAL Function 00020450 ; <LVAR 0x008 @ 4(r)> 00020450 ; -------------------------------------------------------------------------------------- 00020450 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 00020454 bf d5 | | CMPA.L (A5),A7 00020456 62 06 |b | BHI 0x2045e 00020458 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002045c 4e 76 |Nv | TRAPV 0002045e de fc 00 0e | | ADDA.W #0xe,A7 00020462 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00020466 41 ee 00 08 |A | LEA.L (A6+0x8),A0 0002046a 2f 10 |/ | MOVE.L (A0),-(A7) 0002046c 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 00020470 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020476 58 4f |XO | ADDQ.L #0x4,A7 00020478 3e bc 00 02 |> | MOVE.W #0x2,(A7) 0002047c 2f 10 |/ | MOVE.L (A0),-(A7) 0002047e 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 00020484 5c 4f |\O | ADDQ.L #0x6,A7 00020486 48 50 |HP | PEA.L (A0) 00020488 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002048e 58 4f |XO | ADDQ.L #0x4,A7 00020490 4c df 01 00 |L | MOVEM.L (A7)+,A0 00020494 4e 5e |N^ | UNLK A6 00020496 4e 75 |Nu | RTS 00020498 ; -------------------------------------------------------------------------------------- 00020498 ; OMSI PASCAL Function 00020498 ; <LVAR 0x00c 2(w)> 00020498 ; <LVAR 0x008 4(r)> 00020498 ; -------------------------------------------------------------------------------------- 00020498 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 ; Spelunked 0002049c bf d5 | | CMPA.L (A5),A7 0002049e 62 06 |b | BHI 0x204a6 000204a0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000204a4 4e 76 |Nv | TRAPV 000204a6 de fc 00 0e | | ADDA.W #0xe,A7 000204aa 48 e7 80 00 |H | MOVEM.L D0,-(A7) 000204ae 55 4f |UO | SUBQ.L #0x2,A7 000204b0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000204b4 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 000204ba 58 4f |XO | ADDQ.L #0x4,A7 000204bc 30 1f |0 | MOVE.W (A7)+,D0 000204be 41 bc 00 ff |A | CHK.W #0xff,D0 000204c2 3d 40 00 0c |=@ | MOVE.W D0,(A6+0xc) 000204c6 4c df 00 01 |L | MOVEM.L (A7)+,D0 000204ca 4e 5e |N^ | UNLK A6 000204cc 4e 75 |Nu | RTS 000204ce ; -------------------------------------------------------------------------------------- 000204ce ; OMSI PASCAL Function 000204ce ; <LVAR -0x004 @ 1(r)> 000204ce ; -------------------------------------------------------------------------------------- 000204ce 4e 56 ff ca |NV | LINK.W A6,#0xffca 000204d2 bf d5 | | CMPA.L (A5),A7 000204d4 62 06 |b | BHI 0x204dc 000204d6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000204da 4e 76 |Nv | TRAPV 000204dc de fc 00 2a | * | ADDA.W #0x2a,A7 000204e0 48 e7 c3 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D1+D0,-(A7) 000204e4 43 f9 00 02 13 54 |C T | LEA.L 0x21354,A1 000204ea 45 f9 00 02 0b 46 |E F | LEA.L 0x20b46,A2 000204f0 72 02 |r | MOVEQ.L #0x02,D1 000204f2 7e 00 |~ | MOVEQ.L #0x00,D7 000204f4 42 91 |B | CLR.L (A1) 000204f6 0c 87 00 00 00 14 | | CMPI.L #0x00000014,D7 000204fc 67 74 |gt | BEQ 0x20572 000204fe 7c 01 || | MOVEQ.L #0x01,D6 00020500 3f 01 |? | MOVE.W D1,-(A7) 00020502 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020506 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 0002050c 5c 4f |\O | ADDQ.L #0x6,A7 0002050e 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00020512 0c 00 00 01 | | CMPI.B #0x01,D0 00020516 66 4c |fL | BNE 0x20564 00020518 3f 01 |? | MOVE.W D1,-(A7) 0002051a 20 11 | | MOVE.L (A1),D0 0002051c 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00020522 63 02 |c | BLS 0x20526 00020524 4e 4f |NO | TRAP #15 00020526 e3 80 | | ASL.L #0x1,D0 00020528 20 4a | J | MOVEA.L A2,A0 0002052a 48 70 08 0e |Hp | PEA.L (A0+D0.L+#0xe) 0002052e 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020534 5c 4f |\O | ADDQ.L #0x6,A7 00020536 4a 39 00 02 0b 52 |J9 R | TST.B 0x20b52 0002053c 67 22 |g" | BEQ 0x20560 0002053e 20 11 | | MOVE.L (A1),D0 00020540 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00020546 63 02 |c | BLS 0x2054a 00020548 4e 4f |NO | TRAP #15 0002054a e3 80 | | ASL.L #0x1,D0 0002054c 20 4a | J | MOVEA.L A2,A0 0002054e 30 30 08 0e |00 | MOVE.W (A0+D0.L+#0xe),D0 00020552 02 40 00 ff | @ | ANDI.W #0x00ff,D0 00020556 1f 00 | | MOVE.B D0,-(A7) 00020558 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 0002055e 54 4f |TO | ADDQ.L #0x2,A7 00020560 7e 00 |~ | MOVEQ.L #0x00,D7 00020562 52 91 |R | ADDQ.L #0x1,(A1) 00020564 52 86 |R | ADDQ.L #0x1,D6 00020566 0c 86 00 00 03 e8 | | CMPI.L #0x000003e8,D6 0002056c 6f 92 |o | BLE 0x20500 0002056e 52 87 |R | ADDQ.L #0x1,D7 00020570 60 84 |` | BRA 0x204f6 00020572 4c df 07 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2 00020576 4e 5e |N^ | UNLK A6 00020578 4e 75 |Nu | RTS 0002057a ; -------------------------------------------------------------------------------------- 0002057a ; OMSI PASCAL Function 0002057a ; -------------------------------------------------------------------------------------- 0002057a 4e 56 ff 72 |NV r | LINK.W A6,#0xff72 0002057e bf d5 | | CMPA.L (A5),A7 00020580 62 06 |b | BHI 0x20588 00020582 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020586 4e 76 |Nv | TRAPV 00020588 de fc 00 8a | | ADDA.W #0x8a,A7 0002058c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020590 45 f9 00 02 0b 46 |E F | LEA.L 0x20b46,A2 00020596 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 0002059c 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 000205a2 74 01 |t | MOVEQ.L #0x01,D2 000205a4 26 3c 00 00 03 ff |&< | MOVE.L #0x3ff,D3 000205aa 38 3c 00 ff |8< | MOVE.W #0xff,D4 000205ae 7a 24 |z$ | MOVEQ.L #0x24,D5 000205b0 7c 40 ||@ | MOVEQ.L #0x40,D6 000205b2 4e b9 00 01 02 16 |N | JSR KC0b 000205b8 9e c5 | | SUBA.W D5,A7 000205ba 20 4f | O | MOVEA.L A7,A0 000205bc 43 fa fb ee |C | LEA.L 0x201ac,A1 000205c0 70 22 |p" | MOVEQ.L #0x22,D0 000205c2 10 d9 | | MOVE.B (A1)+,(A0)+ 000205c4 51 c8 ff fc |Q | DBF D0,0x205c2 000205c8 5d 4f |]O | SUBQ.L #0x6,A7 000205ca 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000205ce 3f 02 |? | MOVE.W D2,-(A7) 000205d0 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 000205d4 4e 93 |N | JSR (A3) 000205d6 5c 4f |\O | ADDQ.L #0x6,A7 000205d8 42 17 |B | CLR.B (A7) 000205da 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 000205e0 5c 4f |\O | ADDQ.L #0x6,A7 000205e2 10 1f | | MOVE.B (A7)+,D0 000205e4 48 80 |H | EXTB.W D0 000205e6 41 82 |A | CHK.W D2,D0 000205e8 de c5 | | ADDA.W D5,A7 000205ea 13 c0 00 02 0b 52 | R | MOVE.B D0,0x20b52 000205f0 4e ba fe dc |N | JSR 0x204ce 000205f4 5d 4f |]O | SUBQ.L #0x6,A7 000205f6 20 4f | O | MOVEA.L A7,A0 000205f8 43 fa fd d0 |C | LEA.L 0x203ca,A1 000205fc 70 04 |p | MOVEQ.L #0x04,D0 000205fe 10 d9 | | MOVE.B (A1)+,(A0)+ 00020600 51 c8 ff fc |Q | DBF D0,0x205fe 00020604 59 4f |YO | SUBQ.L #0x4,A7 00020606 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002060a 3f 02 |? | MOVE.W D2,-(A7) 0002060c 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 00020610 4e 93 |N | JSR (A3) 00020612 50 4f |PO | ADDQ.L #0x8,A7 00020614 4e ba fe 3a |N : | JSR 0x20450 00020618 de fc 00 0a | | ADDA.W #0xa,A7 0002061c 4e ba fe b0 |N | JSR 0x204ce 00020620 4a b9 00 02 13 54 |J T | TST.L 0x21354 00020626 66 6e |fn | BNE 0x20696 00020628 9e c6 | | SUBA.W D6,A7 0002062a 20 4f | O | MOVEA.L A7,A0 0002062c 43 fa fb a2 |C | LEA.L 0x201d0,A1 00020630 70 3e |p> | MOVEQ.L #0x3e,D0 00020632 10 d9 | | MOVE.B (A1)+,(A0)+ 00020634 51 c8 ff fc |Q | DBF D0,0x20632 00020638 59 4f |YO | SUBQ.L #0x4,A7 0002063a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002063e 3f 02 |? | MOVE.W D2,-(A7) 00020640 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 00020644 4e 93 |N | JSR (A3) 00020646 50 4f |PO | ADDQ.L #0x8,A7 00020648 4e 94 |N | JSR (A4) 0002064a 54 4f |TO | ADDQ.L #0x2,A7 0002064c 20 4f | O | MOVEA.L A7,A0 0002064e 43 fa fb c0 |C | LEA.L 0x20210,A1 00020652 70 40 |p@ | MOVEQ.L #0x40,D0 00020654 10 d9 | | MOVE.B (A1)+,(A0)+ 00020656 51 c8 ff fc |Q | DBF D0,0x20654 0002065a 59 4f |YO | SUBQ.L #0x4,A7 0002065c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020660 3f 02 |? | MOVE.W D2,-(A7) 00020662 3f 3c 00 41 |?< A | MOVE.W #0x41,-(A7) 00020666 4e 93 |N | JSR (A3) 00020668 50 4f |PO | ADDQ.L #0x8,A7 0002066a 4e 94 |N | JSR (A4) 0002066c de fc 00 46 | F | ADDA.W #0x46,A7 00020670 41 fa fc 14 |A | LEA.L 0x20286,A0 00020674 70 0c |p | MOVEQ.L #0x0c,D0 00020676 2f 20 |/ | MOVE.L -(A0),-(A7) 00020678 51 c8 ff fc |Q | DBF D0,0x20676 0002067c 59 4f |YO | SUBQ.L #0x4,A7 0002067e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020682 3f 02 |? | MOVE.W D2,-(A7) 00020684 3f 3c 00 34 |?< 4 | MOVE.W #0x34,-(A7) 00020688 4e 93 |N | JSR (A3) 0002068a 50 4f |PO | ADDQ.L #0x8,A7 0002068c 4e 94 |N | JSR (A4) 0002068e de fc 00 38 | 8 | ADDA.W #0x38,A7 00020692 60 00 01 c2 |` | BRA 0x20856 00020696 4a 39 00 02 0b 52 |J9 R | TST.B 0x20b52 0002069c 67 04 |g | BEQ 0x206a2 0002069e 4e ba fd 86 |N | JSR 0x20426 000206a2 7e 00 |~ | MOVEQ.L #0x00,D7 000206a4 be b9 00 02 13 54 | T | CMP.L 0x21354,D7 000206aa 6c 00 01 68 |l h | BGE 0x20814 000206ae 20 07 | | MOVE.L D7,D0 000206b0 52 80 |R | ADDQ.L #0x1,D0 000206b2 be 83 | | CMP.L D3,D7 000206b4 63 02 |c | BLS 0x206b8 000206b6 4e 4f |NO | TRAP #15 000206b8 22 07 |" | MOVE.L D7,D1 000206ba e3 81 | | ASL.L #0x1,D1 000206bc 20 4a | J | MOVEA.L A2,A0 000206be 32 30 18 0e |20 | MOVE.W (A0+D1.L+#0xe),D1 000206c2 c2 44 | D | AND.W D4,D1 000206c4 0c 01 00 53 | S | CMPI.B #0x53,D1 000206c8 66 00 01 44 |f D | BNE 0x2080e 000206cc b0 83 | | CMP.L D3,D0 000206ce 63 02 |c | BLS 0x206d2 000206d0 4e 4f |NO | TRAP #15 000206d2 22 00 |" | MOVE.L D0,D1 000206d4 e3 81 | | ASL.L #0x1,D1 000206d6 20 4a | J | MOVEA.L A2,A0 000206d8 32 30 18 0e |20 | MOVE.W (A0+D1.L+#0xe),D1 000206dc c2 44 | D | AND.W D4,D1 000206de 0c 01 00 45 | E | CMPI.B #0x45,D1 000206e2 66 00 01 2a |f * | BNE 0x2080e 000206e6 22 07 |" | MOVE.L D7,D1 000206e8 54 81 |T | ADDQ.L #0x2,D1 000206ea b2 83 | | CMP.L D3,D1 000206ec 63 02 |c | BLS 0x206f0 000206ee 4e 4f |NO | TRAP #15 000206f0 e3 81 | | ASL.L #0x1,D1 000206f2 20 4a | J | MOVEA.L A2,A0 000206f4 32 30 18 0e |20 | MOVE.W (A0+D1.L+#0xe),D1 000206f8 c2 44 | D | AND.W D4,D1 000206fa 0c 01 00 52 | R | CMPI.B #0x52,D1 000206fe 66 00 01 0e |f | BNE 0x2080e 00020702 22 07 |" | MOVE.L D7,D1 00020704 56 81 |V | ADDQ.L #0x3,D1 00020706 b2 83 | | CMP.L D3,D1 00020708 63 02 |c | BLS 0x2070c 0002070a 4e 4f |NO | TRAP #15 0002070c e3 81 | | ASL.L #0x1,D1 0002070e 20 4a | J | MOVEA.L A2,A0 00020710 32 30 18 0e |20 | MOVE.W (A0+D1.L+#0xe),D1 00020714 c2 44 | D | AND.W D4,D1 00020716 0c 01 00 56 | V | CMPI.B #0x56,D1 0002071a 66 00 00 f2 |f | BNE 0x2080e 0002071e 22 07 |" | MOVE.L D7,D1 00020720 58 81 |X | ADDQ.L #0x4,D1 00020722 b2 83 | | CMP.L D3,D1 00020724 63 02 |c | BLS 0x20728 00020726 4e 4f |NO | TRAP #15 00020728 e3 81 | | ASL.L #0x1,D1 0002072a 20 4a | J | MOVEA.L A2,A0 0002072c 32 30 18 0e |20 | MOVE.W (A0+D1.L+#0xe),D1 00020730 c2 44 | D | AND.W D4,D1 00020732 0c 01 00 49 | I | CMPI.B #0x49,D1 00020736 66 00 00 d6 |f | BNE 0x2080e 0002073a 22 07 |" | MOVE.L D7,D1 0002073c 5a 81 |Z | ADDQ.L #0x5,D1 0002073e b2 83 | | CMP.L D3,D1 00020740 63 02 |c | BLS 0x20744 00020742 4e 4f |NO | TRAP #15 00020744 e3 81 | | ASL.L #0x1,D1 00020746 20 4a | J | MOVEA.L A2,A0 00020748 32 30 18 0e |20 | MOVE.W (A0+D1.L+#0xe),D1 0002074c c2 44 | D | AND.W D4,D1 0002074e 0c 01 00 43 | C | CMPI.B #0x43,D1 00020752 66 00 00 ba |f | BNE 0x2080e 00020756 22 07 |" | MOVE.L D7,D1 00020758 5c 81 |\ | ADDQ.L #0x6,D1 0002075a b2 83 | | CMP.L D3,D1 0002075c 63 02 |c | BLS 0x20760 0002075e 4e 4f |NO | TRAP #15 00020760 e3 81 | | ASL.L #0x1,D1 00020762 20 4a | J | MOVEA.L A2,A0 00020764 32 30 18 0e |20 | MOVE.W (A0+D1.L+#0xe),D1 00020768 c2 44 | D | AND.W D4,D1 0002076a 0c 01 00 45 | E | CMPI.B #0x45,D1 0002076e 66 00 00 9e |f | BNE 0x2080e 00020772 9e fc 00 42 | B | SUBA.W #0x42,A7 00020776 20 4f | O | MOVEA.L A7,A0 00020778 43 fa fb 0c |C | LEA.L 0x20286,A1 0002077c 72 40 |r@ | MOVEQ.L #0x40,D1 0002077e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020780 51 c9 ff fc |Q | DBF D1,0x2077e 00020784 59 4f |YO | SUBQ.L #0x4,A7 00020786 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002078a 3f 02 |? | MOVE.W D2,-(A7) 0002078c 3f 3c 00 41 |?< A | MOVE.W #0x41,-(A7) 00020790 4e 93 |N | JSR (A3) 00020792 50 4f |PO | ADDQ.L #0x8,A7 00020794 4e 94 |N | JSR (A4) 00020796 de fc 00 46 | F | ADDA.W #0x46,A7 0002079a 41 fa fb 6c |A l | LEA.L 0x20308,A0 0002079e 72 0f |r | MOVEQ.L #0x0f,D1 000207a0 2f 20 |/ | MOVE.L -(A0),-(A7) 000207a2 51 c9 ff fc |Q | DBF D1,0x207a0 000207a6 59 4f |YO | SUBQ.L #0x4,A7 000207a8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000207ac 3f 02 |? | MOVE.W D2,-(A7) 000207ae 3f 06 |? | MOVE.W D6,-(A7) 000207b0 4e 93 |N | JSR (A3) 000207b2 50 4f |PO | ADDQ.L #0x8,A7 000207b4 4e 94 |N | JSR (A4) 000207b6 de fc 00 44 | D | ADDA.W #0x44,A7 000207ba 41 fa fb 88 |A | LEA.L 0x20344,A0 000207be 72 0e |r | MOVEQ.L #0x0e,D1 000207c0 2f 20 |/ | MOVE.L -(A0),-(A7) 000207c2 51 c9 ff fc |Q | DBF D1,0x207c0 000207c6 59 4f |YO | SUBQ.L #0x4,A7 000207c8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000207cc 3f 02 |? | MOVE.W D2,-(A7) 000207ce 3f 3c 00 3c |?< < | MOVE.W #0x3c,-(A7) 000207d2 4e 93 |N | JSR (A3) 000207d4 50 4f |PO | ADDQ.L #0x8,A7 000207d6 4e 94 |N | JSR (A4) 000207d8 de fc 00 32 | 2 | ADDA.W #0x32,A7 000207dc 20 4f | O | MOVEA.L A7,A0 000207de 43 fa fb 64 |C d | LEA.L 0x20344,A1 000207e2 72 0c |r | MOVEQ.L #0x0c,D1 000207e4 10 d9 | | MOVE.B (A1)+,(A0)+ 000207e6 51 c9 ff fc |Q | DBF D1,0x207e4 000207ea 59 4f |YO | SUBQ.L #0x4,A7 000207ec 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000207f0 3f 02 |? | MOVE.W D2,-(A7) 000207f2 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 000207f6 4e 93 |N | JSR (A3) 000207f8 50 4f |PO | ADDQ.L #0x8,A7 000207fa 4e 94 |N | JSR (A4) 000207fc de fc 00 10 | | ADDA.W #0x10,A7 00020800 42 17 |B | CLR.B (A7) 00020802 48 78 00 01 |Hx | PEA.L 0x1 00020806 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002080c 5c 4f |\O | ADDQ.L #0x6,A7 0002080e 2e 00 |. | MOVE.L D0,D7 00020810 60 00 fe 92 |` | BRA 0x206a4 00020814 41 fa fb 76 |A v | LEA.L 0x2038c,A0 00020818 70 1c |p | MOVEQ.L #0x1c,D0 0002081a 3f 20 |? | MOVE.W -(A0),-(A7) 0002081c 51 c8 ff fc |Q | DBF D0,0x2081a 00020820 59 4f |YO | SUBQ.L #0x4,A7 00020822 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020826 3f 02 |? | MOVE.W D2,-(A7) 00020828 3f 3c 00 3a |?< : | MOVE.W #0x3a,-(A7) 0002082c 4e 93 |N | JSR (A3) 0002082e 50 4f |PO | ADDQ.L #0x8,A7 00020830 4e 94 |N | JSR (A4) 00020832 20 4f | O | MOVEA.L A7,A0 00020834 43 fa fb 56 |C V | LEA.L 0x2038c,A1 00020838 70 3c |p< | MOVEQ.L #0x3c,D0 0002083a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002083c 51 c8 ff fc |Q | DBF D0,0x2083a 00020840 59 4f |YO | SUBQ.L #0x4,A7 00020842 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020846 3f 02 |? | MOVE.W D2,-(A7) 00020848 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 0002084c 4e 93 |N | JSR (A3) 0002084e 50 4f |PO | ADDQ.L #0x8,A7 00020850 4e 94 |N | JSR (A4) 00020852 de fc 00 42 | B | ADDA.W #0x42,A7 00020856 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002085a 48 78 00 01 |Hx | PEA.L 0x1 0002085e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020864 5c 4f |\O | ADDQ.L #0x6,A7 00020866 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 0002086a 4e 5e |N^ | UNLK A6 0002086c 4e 75 |Nu | RTS 0002086e ; -------------------------------------------------------------------------------------- 0002086e ; OMSI PASCAL Function 0002086e ; -------------------------------------------------------------------------------------- 0002086e START: 0002086e 4f fa 00 08 |O | LEA.L MAIN,A7 00020872 4e f9 00 01 02 80 |N | JMP ?start_program 00020878 MAIN: 00020878 72 01 |r | MOVEQ.L #0x01,D1 0002087a 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020880 55 4f |UO | SUBQ.L #0x2,A7 00020882 48 78 01 80 |Hx | PEA.L 0x180 00020886 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 0002088c 58 4f |XO | ADDQ.L #0x4,A7 0002088e 30 1f |0 | MOVE.W (A7)+,D0 00020890 48 c0 |H | EXTW.L D0 00020892 23 c0 00 02 0b 4e |# N | MOVE.L D0,0x20b4e 00020898 04 80 00 00 00 4d | M | SUBI.L #0x0000004d,D0 0002089e 0c 80 00 00 00 0b | | CMPI.L #0x0000000b,D0 000208a4 62 5a |bZ | BHI switch@0x208a8[0x1] 000208a6 d0 40 | @ | ADD.W D0,D0 000208a8 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000208b0 00 18 | | .CONST 0x18 ; [0x0] -> 0x208c8 000208b2 00 50 | P | .CONST 0x50 ; [0x1] -> 0x20900 000208b4 00 50 | P | .CONST 0x50 ; [0x2] -> 0x20900 000208b6 00 50 | P | .CONST 0x50 ; [0x3] -> 0x20900 000208b8 00 50 | P | .CONST 0x50 ; [0x4] -> 0x20900 000208ba 00 50 | P | .CONST 0x50 ; [0x5] -> 0x20900 000208bc 00 50 | P | .CONST 0x50 ; [0x6] -> 0x20900 000208be 00 50 | P | .CONST 0x50 ; [0x7] -> 0x20900 000208c0 00 50 | P | .CONST 0x50 ; [0x8] -> 0x20900 000208c2 00 50 | P | .CONST 0x50 ; [0x9] -> 0x20900 000208c4 00 50 | P | .CONST 0x50 ; [0xa] -> 0x20900 000208c6 00 4a | J | .CONST 0x4a ; [0xb] -> 0x208fa 000208c8 switch@0x208a8[0x0]: 000208c8 9e fc 00 3e | > | SUBA.W #0x3e,A7 000208cc 20 4f | O | MOVEA.L A7,A0 000208ce 43 fa f8 5e |C ^ | LEA.L 0x2012e,A1 000208d2 70 3c |p< | MOVEQ.L #0x3c,D0 000208d4 10 d9 | | MOVE.B (A1)+,(A0)+ 000208d6 51 c8 ff fc |Q | DBF D0,0x208d4 000208da 59 4f |YO | SUBQ.L #0x4,A7 000208dc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000208e0 3f 01 |? | MOVE.W D1,-(A7) 000208e2 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 000208e6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000208ec 50 4f |PO | ADDQ.L #0x8,A7 000208ee 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000208f4 de fc 00 42 | B | ADDA.W #0x42,A7 000208f8 60 30 |`0 | BRA 0x2092a 000208fa switch@0x208a8[0xb]: 000208fa 4e ba fc 7e |N ~ | JSR 0x2057a 000208fe 60 3a |`: | BRA 0x2093a 00020900 switch@0x208a8[0x1]: 00020900 switch@0x208a8[0x2]: 00020900 switch@0x208a8[0x3]: 00020900 switch@0x208a8[0x4]: 00020900 switch@0x208a8[0x5]: 00020900 switch@0x208a8[0x6]: 00020900 switch@0x208a8[0x7]: 00020900 switch@0x208a8[0x8]: 00020900 switch@0x208a8[0x9]: 00020900 switch@0x208a8[0xa]: 00020900 41 fa f8 aa |A | LEA.L 0x201ac,A0 00020904 70 16 |p | MOVEQ.L #0x16,D0 00020906 3f 20 |? | MOVE.W -(A0),-(A7) 00020908 51 c8 ff fc |Q | DBF D0,0x20906 0002090c 59 4f |YO | SUBQ.L #0x4,A7 0002090e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020912 3f 01 |? | MOVE.W D1,-(A7) 00020914 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 00020918 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002091e 50 4f |PO | ADDQ.L #0x8,A7 00020920 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020926 de fc 00 32 | 2 | ADDA.W #0x32,A7 0002092a 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002092e 48 78 00 01 |Hx | PEA.L 0x1 00020932 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020938 5c 4f |\O | ADDQ.L #0x6,A7 0002093a 4e b9 00 01 02 84 |N | JSR ?exit 00020940 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 0002094e ; -------------------------------------------------------------------------------------- 0002094e ; OMSI PASCAL Function 0002094e ; <LVAR 0x008 1(r)> 0002094e ; -------------------------------------------------------------------------------------- 0002094e PROG_FAIL: 0002094e 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00020952 bf d5 | | CMPA.L (A5),A7 00020954 62 06 |b | BHI 0x2095c 00020956 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002095a 4e 76 |Nv | TRAPV 0002095c de fc 00 2c | , | ADDA.W #0x2c,A7 00020960 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020964 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00020968 70 06 |p | MOVEQ.L #0x06,D0 0002096a 3f 20 |? | MOVE.W -(A0),-(A7) 0002096c 51 c8 ff fc |Q | DBF D0,0x2096a 00020970 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00020974 51 4f |QO | SUBQ.L #0x8,A7 00020976 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002097a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002097e 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00020982 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020988 58 4f |XO | ADDQ.L #0x4,A7 0002098a 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 0002098e 48 80 |H | EXTB.W D0 00020990 48 c0 |H | EXTW.L D0 00020992 2f 00 |/ | MOVE.L D0,-(A7) 00020994 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002099a 58 4f |XO | ADDQ.L #0x4,A7 0002099c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000209a2 50 4f |PO | ADDQ.L #0x8,A7 000209a4 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000209aa de fc 00 14 | | ADDA.W #0x14,A7 000209ae 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000209b2 4e 5e |N^ | UNLK A6 000209b4 4e 75 |Nu | RTS 000209b6 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 000209c4 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 000209d2 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 000209e0 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 000209f2 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00020a0a ; -------------------------------------------------------------------------------------- 00020a0a ; OMSI PASCAL Function 00020a0a ; <LVAR 0x00e 1(r)> 00020a0a ; <LVAR 0x00a 4(r)> 00020a0a ; <LVAR 0x008 1(r)> 00020a0a ; -------------------------------------------------------------------------------------- 00020a0a EXP_FAIL: 00020a0a 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00020a0e bf d5 | | CMPA.L (A5),A7 00020a10 62 06 |b | BHI 0x20a18 00020a12 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a16 4e 76 |Nv | TRAPV 00020a18 de fc 00 74 | t | ADDA.W #0x74,A7 00020a1c 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00020a20 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020a26 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00020a2c 72 01 |r | MOVEQ.L #0x01,D1 00020a2e 74 0d |t | MOVEQ.L #0x0d,D2 00020a30 76 1e |v | MOVEQ.L #0x1e,D3 00020a32 78 12 |x | MOVEQ.L #0x12,D4 00020a34 7a 0e |z | MOVEQ.L #0x0e,D5 00020a36 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020a3c 41 fa ff b4 |A | LEA.L 0x209f2,A0 00020a40 70 08 |p | MOVEQ.L #0x08,D0 00020a42 3f 20 |? | MOVE.W -(A0),-(A7) 00020a44 51 c8 ff fc |Q | DBF D0,0x20a42 00020a48 59 4f |YO | SUBQ.L #0x4,A7 00020a4a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a4e 3f 01 |? | MOVE.W D1,-(A7) 00020a50 3f 04 |? | MOVE.W D4,-(A7) 00020a52 4e 93 |N | JSR (A3) 00020a54 50 4f |PO | ADDQ.L #0x8,A7 00020a56 4e 94 |N | JSR (A4) 00020a58 50 4f |PO | ADDQ.L #0x8,A7 00020a5a 20 4f | O | MOVEA.L A7,A0 00020a5c 43 fa ff 58 |C X | LEA.L 0x209b6,A1 00020a60 70 0c |p | MOVEQ.L #0x0c,D0 00020a62 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a64 51 c8 ff fc |Q | DBF D0,0x20a62 00020a68 51 4f |QO | SUBQ.L #0x8,A7 00020a6a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020a6e 3f 01 |? | MOVE.W D1,-(A7) 00020a70 3f 02 |? | MOVE.W D2,-(A7) 00020a72 4e 93 |N | JSR (A3) 00020a74 54 4f |TO | ADDQ.L #0x2,A7 00020a76 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00020a7a 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00020a80 54 4f |TO | ADDQ.L #0x2,A7 00020a82 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020a88 50 4f |PO | ADDQ.L #0x8,A7 00020a8a 4e 94 |N | JSR (A4) 00020a8c de c4 | | ADDA.W D4,A7 00020a8e 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00020a92 b0 c1 | | CMPA.W D1,A0 00020a94 67 48 |gH | BEQ 0x20ade 00020a96 9e c5 | | SUBA.W D5,A7 00020a98 22 4f |"O | MOVEA.L A7,A1 00020a9a 45 fa ff 28 |E ( | LEA.L 0x209c4,A2 00020a9e 70 0c |p | MOVEQ.L #0x0c,D0 00020aa0 12 da | | MOVE.B (A2)+,(A1)+ 00020aa2 51 c8 ff fc |Q | DBF D0,0x20aa0 00020aa6 9e c3 | | SUBA.W D3,A7 00020aa8 22 4f |"O | MOVEA.L A7,A1 00020aaa 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00020aae 70 1d |p | MOVEQ.L #0x1d,D0 00020ab0 12 d8 | | MOVE.B (A0)+,(A1)+ 00020ab2 51 c8 ff fc |Q | DBF D0,0x20ab0 00020ab6 51 4f |QO | SUBQ.L #0x8,A7 00020ab8 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020abc 3f 01 |? | MOVE.W D1,-(A7) 00020abe 3f 02 |? | MOVE.W D2,-(A7) 00020ac0 4e 93 |N | JSR (A3) 00020ac2 58 4f |XO | ADDQ.L #0x4,A7 00020ac4 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020ac8 3f 01 |? | MOVE.W D1,-(A7) 00020aca 3f 03 |? | MOVE.W D3,-(A7) 00020acc 4e 93 |N | JSR (A3) 00020ace 50 4f |PO | ADDQ.L #0x8,A7 00020ad0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020ad6 50 4f |PO | ADDQ.L #0x8,A7 00020ad8 4e 94 |N | JSR (A4) 00020ada de fc 00 30 | 0 | ADDA.W #0x30,A7 00020ade 9e c5 | | SUBA.W D5,A7 00020ae0 20 4f | O | MOVEA.L A7,A0 00020ae2 43 fa fe ee |C | LEA.L 0x209d2,A1 00020ae6 70 0c |p | MOVEQ.L #0x0c,D0 00020ae8 10 d9 | | MOVE.B (A1)+,(A0)+ 00020aea 51 c8 ff fc |Q | DBF D0,0x20ae8 00020aee 51 4f |QO | SUBQ.L #0x8,A7 00020af0 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020af4 3f 01 |? | MOVE.W D1,-(A7) 00020af6 3f 02 |? | MOVE.W D2,-(A7) 00020af8 4e 93 |N | JSR (A3) 00020afa 54 4f |TO | ADDQ.L #0x2,A7 00020afc 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00020b00 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00020b06 54 4f |TO | ADDQ.L #0x2,A7 00020b08 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020b0e 50 4f |PO | ADDQ.L #0x8,A7 00020b10 4e 94 |N | JSR (A4) 00020b12 5d 4f |]O | SUBQ.L #0x6,A7 00020b14 20 4f | O | MOVEA.L A7,A0 00020b16 43 fa fe da |C | LEA.L 0x209f2,A1 00020b1a 70 16 |p | MOVEQ.L #0x16,D0 00020b1c 10 d9 | | MOVE.B (A1)+,(A0)+ 00020b1e 51 c8 ff fc |Q | DBF D0,0x20b1c 00020b22 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020b26 59 4f |YO | SUBQ.L #0x4,A7 00020b28 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020b2c 3f 01 |? | MOVE.W D1,-(A7) 00020b2e 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00020b32 4e 93 |N | JSR (A3) 00020b34 50 4f |PO | ADDQ.L #0x8,A7 00020b36 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020b3c de c3 | | ADDA.W D3,A7 00020b3e 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00020b42 4e 5e |N^ | UNLK A6 00020b44 4e 75 |Nu | RTS