|
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: M200_PROGRAM
Names: »TESTPAD.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »TESTPAD.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »TESTPAD.M200«
└─ ⟦this⟧ »TESTPAD.M200«
@ 203ac
<LVAR 0x008 @ 4(r)>
<POP 203ac-20402 Body>
<POP 203ac-203c2 Prologue> Σ0 ↓
<POP 203c2-203c6 RegCacheLoad> Σ0 ↓
<POP 203c6-203fa Naked> Σ0 ↓
<MI 203c6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Const 0x203c8 0xa.2> Δ-2 {[4, '(A6+0x8)']|[#10]}
<Call 0x203cc 0x102c0> {[4, '(A6+0x8)']|[#10]}
AppendChar(MOD b : String; a : char)
<POP 203d2-203d4 StackAdj> Δ+2 {[4, '(A6+0x8)']}
<MI 203d4 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x203d6 0xd.2> Δ-2 {[4, '(A6+0x8)']|[#13]}
<Call 0x203da 0x102c0> {[4, '(A6+0x8)']|[#13]}
AppendChar(MOD b : String; a : char)
<POP 203e0-203e2 StackAdj> Δ+4 {[-2-]}
<POP 203e2-203e3 StackAdj> Δ+2 {}
<Const 0x203e3 0x1.2> Δ-2 {[#1]}
<MI 203e6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[#1]|[4, '(A6+0x8)']}
<Call 0x203e8 0x1020a> {[#1]|[4, '(A6+0x8)']}
KC05_PortWriteString(port : Word ; str : String)
<POP 203ee-203f0 StackAdj> Δ+6 {}
<Pointer.fp 0x203f0 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x203f2 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 203f8-203fa StackAdj> Δ+4 {}
<POP 203fa-20402 Epilogue> Σ0
@ 20402
<LVAR -0x004 @ 4(r)>
<POP 20402-2042c Body>
<POP 20402-20414 Prologue> Σ0 ↓
<POP 20414-20428 Naked> Σ0 ↓
<Pointer.fp 0x20414 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x20418 0x102b8> {[@@-4]}
NewString(VAR a : String)
<MI 2041e MOVE.L (A6-0x4),(A7)> {[4, '(A6-0x4)']}
<Call 0x20422 0x203ac> {[4, '(A6-0x4)']}
<POP 20426-20428 StackAdj> Δ+4 {}
<POP 20428-2042c Epilogue> Σ0
@ 2042c
<LVAR 0x008 @ 4(r)>
<POP 2042c-20474 Body>
<POP 2042c-20442 Prologue> Σ0 ↓
<POP 20442-20446 RegCacheLoad> Σ0 ↓
<POP 20446-2046c Naked> Σ0 ↓
<MI 20446 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Const 0x20448 0xd.2> Δ-2 {[4, '(A6+0x8)']|[#13]}
<Call 0x2044c 0x102c0> {[4, '(A6+0x8)']|[#13]}
AppendChar(MOD b : String; a : char)
<POP 20452-20454 StackAdj> Δ+4 {[-2-]}
<POP 20454-20455 StackAdj> Δ+2 {}
<Const 0x20455 0x2.2> Δ-2 {[#2]}
<MI 20458 MOVE.L (A6+0x8),-(A7)> Δ-4 {[#2]|[4, '(A6+0x8)']}
<Call 0x2045a 0x1020a> {[#2]|[4, '(A6+0x8)']}
KC05_PortWriteString(port : Word ; str : String)
<POP 20460-20462 StackAdj> Δ+6 {}
<Pointer.fp 0x20462 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x20464 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 2046a-2046c StackAdj> Δ+4 {}
<POP 2046c-20474 Epilogue> Σ0
@ 20474
<LVAR 0x00c 2(w)>
<LVAR 0x008 4(r)>
<POP 20474-204aa Body>
<POP 20474-2048a Prologue> Σ0 ↓
<POP 2048a-204a2 Naked> Σ0 ↓
<POP 2048a-2048c StackAdj> Δ-2 {[-2-]}
<MI 2048c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x8)']}
<Call 0x20490 0x10592> {[-2-]|[4, '(A6+0x8)']}
ReadConfig(where : Long) : Word
<POP 20496-20498 StackAdj> Δ+4 {[-2-]}
<MI 20498 MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x2049a LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 2049e MOVE.W D0,(A6+0xc)> {}
<POP 204a2-204aa Epilogue> Σ0
@ 204aa
<LVAR -0x004 @ 1(r)>
<POP 204aa-20556 Body>
<POP 204aa-204c0 Prologue> Σ0 ↓
<POP 204c0-204ce RegCacheLoad> Σ0 ↓
<POP 204ce-204d2 Naked> Σ0 ↓
<MI 204ce MOVEQ.L #0x00,D7> {}
<MI 204d0 CLR.L 0x21330> {}
<POP 204d2-204da Naked> Σ0 ↓ →0x2054e ←0x2054a
<MI 204d2 CMPI.L #0x00000014,D7> {}
<MI 204d8 BEQ 0x2054e> {}
<POP 204da-204dc Naked> Σ0 ↓
<MI 204da MOVEQ.L #0x01,D6> {}
<POP 204dc-204f4 Naked> Σ0 ↓ →0x20540 ←0x20540
<Const 0x204dc 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x204de <LVAR -0x004 @ 1(r)>> Δ-4 {[#2]|[@@-4]}
<Call 0x204e2 0x10212> {[#2]|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 204e8-204ea StackAdj> Δ+6 {}
<MI 204ea MOVE.B (A6-0x4),D0> {}
<MI 204ee CMPI.B #0x01,D0> {}
<MI 204f2 BNE 0x20540> {}
<POP 204f4-2051a Naked> Σ0 ↓ →0x2053c
<Const 0x204f4 0x2.2> Δ-2 {[#2]}
<MI 204f6 MOVE.L 0x21330,D0> {[#2]}
<POP 0x204f8 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[#2]}
<MI 20502 ASL.L #0x1,D0> {[#2]}
<MI 20504 LEA.L 0x20b22,A0> {[#2]}
<MI 20506 PEA.L (A0+D0.L+#0xe)> Δ-4 {[#2]|[4, '^(A0+D0.L+#0xe)']}
<Call 0x2050a 0x1020e> {[#2]|[4, '^(A0+D0.L+#0xe)']}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20510-20512 StackAdj> Δ+6 {}
<MI 20512 TST.B 0x20b2e> {}
<MI 20518 BEQ 0x2053c> {}
<POP 2051a-2053c Naked> Σ0 ↓
<MI 2051a MOVE.L 0x21330,D0> {}
<POP 0x2051c LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {}
<MI 20526 ASL.L #0x1,D0> {}
<MI 20528 LEA.L 0x20b22,A0> {}
<MI 2052a MOVE.W (A0+D0.L+#0xe),D0> {}
<MI 2052e ANDI.W #0x00ff,D0> {}
<MI 20532 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Call 0x20534 0x103d0> {[2, 'D0']}
WriteConsoleChar(chr : char)
<POP 2053a-2053c StackAdj> Δ+2 {}
<POP 2053c-20540 Naked> Σ0 ↓ ←0x204f4
<MI 2053c MOVEQ.L #0x00,D7> {}
<MI 2053e ADDQ.L #0x1,0x21330> {}
<POP 20540-2054a Naked> Σ0 ↓ →0x204dc ←0x204dc
<MI 20540 ADDQ.L #0x1,D6> {}
<MI 20542 CMPI.L #0x000003e8,D6> {}
<MI 20548 BLE 0x204dc> {}
<POP 2054a-2054e Naked> Σ0 →0x204d2
<MI 2054a ADDQ.L #0x1,D7> {}
<MI 2054c BRA 0x204d2> {}
<POP 2054e-20556 Epilogue> Σ0 ←0x204d2
@ 20556
<POP 20556-2084a Body>
<POP 20556-2056c Prologue> Σ0 ↓
<POP 2056c-2058e RegCacheLoad> Σ0 ↓
<POP 2058e-20604 Naked> Σ0 ↓ →0x20672
<Call 0x2058e 0x10216> {}
KC0b
<Blob 0x20594 [36] @> Δ-36 {[«36""»]}
<POP 205a4-205a6 StackAdj> Δ-6 {[«36""»]|[-6-]}
<Lit 0x205a6 35> {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]}
<POP 205b2-205b4 StackAdj> Δ-2 {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
<MI 205b4 CLR.B (A7)> {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
<Call 0x205b6 0x103f0> {[«36""»]|[-2-]|[$$Do you wish to run in VERBOSE mode_]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 205bc-205be StackAdj> Δ+6 {[«36""»]|[-2-]}
<MI 205be MOVE.B (A7)+,D0> Δ+2 {[«36""»]}
<MI 205c0 EXTB.W D0> {[«36""»]}
<POP 0x205c2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[«36""»]}
<POP 205c4-205c6 StackAdj> Δ+36 {}
<MI 205c6 MOVE.B D0,0x20b2e> {}
<Call 0x205cc 0x204aa> {}
<Blob 0x205d0 [6] @> Δ-6 {[«6""»]}
<POP 205e0-205e2 StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x205e2 5> {[«6""»]|[$$D A P]}
<Call 0x205f0 0x2042c> {[«6""»]|[$$D A P]}
<POP 205f4-205f8 StackAdj> Δ+10 {}
<Call 0x205f8 0x204aa> {}
<MI 205fc TST.L 0x21330> {}
<MI 20602 BNE 0x20672> {}
<POP 20604-20672 Naked> Σ0 →0x20832
<Blob 0x20604 [64] @> Δ-64 {[«64""»]}
<POP 20614-20616 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x20616 63> {[«64""»]|[$$No data is being recieved from the PAD. Check power to the PAD,]}
<Call 0x20624 0x103e0> {[«64""»]|[$$No data is being recieved from the PAD. Check power to the PAD,]}
WriteConsoleStringCrLf(str : String)
<POP 20626-20627 StackAdj> Δ+68 ↓ {}
<Blob 0x20627 [66] @> Δ-66 {[«66""»]}
<POP 20636-20638 StackAdj> Δ-4 {[«66""»]|[-4-]}
<Lit 0x20638 65> {[«66""»]|[$$cables from the back plane to PAD and re-run the test. A terminal]}
<Call 0x20646 0x103e0> {[«66""»]|[$$cables from the back plane to PAD and re-run the test. A terminal]}
WriteConsoleStringCrLf(str : String)
<POP 20648-2064c StackAdj> Δ+70 {}
<Blob 0x2064c [52] @> Δ-52 {[«52""»]}
<POP 20658-2065a StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x2065a 52> {[«52""»]|[$$may be connected to the PAD to verify it is operable]}
<Call 0x20668 0x103e0> {[«52""»]|[$$may be connected to the PAD to verify it is operable]}
WriteConsoleStringCrLf(str : String)
<POP 2066a-2066e StackAdj> Δ+56 {}
<MI 2066e BRA 0x20832> {}
<POP 20672-2067a Naked> Σ0 ↓ →0x2067e ←0x2058e
<MI 20672 TST.B 0x20b2e> {}
<MI 20678 BEQ 0x2067e> {}
<POP 2067a-2067e Naked> Σ0 ↓
<Call 0x2067a 0x20402> {}
<POP 2067e-20680 Naked> Σ0 ↓ ←0x20672
<MI 2067e MOVEQ.L #0x00,D7> {}
<POP 20680-2068a Naked> Σ0 ↓ →0x207f0 ←0x207ea
<MI 20680 CMP.L 0x21330,D7> {}
<MI 20686 BGE 0x207f0> {}
<POP 2068a-206a8 Naked> Σ0 ↓ →0x207ea
<MI 2068a MOVE.L D7,D0> {}
<MI 2068c ADDQ.L #0x1,D0> {}
<POP 0x2068e LimitCheck 0x0 ≤ D7 ≤ 0x3ff> {}
<MI 20694 MOVE.L D7,D1> {}
<MI 20696 ASL.L #0x1,D1> {}
<MI 20698 LEA.L 0x20b22,A0> {}
<MI 2069a MOVE.W (A0+D1.L+#0xe),D1> {}
<MI 2069e AND.W #0xff,D1> {}
<MI 206a0 CMPI.B #0x53,D1> {}
<MI 206a4 BNE 0x207ea> {}
<POP 206a8-206c2 Naked> Σ0 ↓ →0x207ea
<POP 0x206a8 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {}
<MI 206ae MOVE.L D0,D1> {}
<MI 206b0 ASL.L #0x1,D1> {}
<MI 206b2 LEA.L 0x20b22,A0> {}
<MI 206b4 MOVE.W (A0+D1.L+#0xe),D1> {}
<MI 206b8 AND.W #0xff,D1> {}
<MI 206ba CMPI.B #0x45,D1> {}
<MI 206be BNE 0x207ea> {}
<POP 206c2-206de Naked> Σ0 ↓ →0x207ea
<MI 206c2 MOVE.L D7,D1> {}
<MI 206c4 ADDQ.L #0x2,D1> {}
<POP 0x206c6 LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {}
<MI 206cc ASL.L #0x1,D1> {}
<MI 206ce LEA.L 0x20b22,A0> {}
<MI 206d0 MOVE.W (A0+D1.L+#0xe),D1> {}
<MI 206d4 AND.W #0xff,D1> {}
<MI 206d6 CMPI.B #0x52,D1> {}
<MI 206da BNE 0x207ea> {}
<POP 206de-206fa Naked> Σ0 ↓ →0x207ea
<MI 206de MOVE.L D7,D1> {}
<MI 206e0 ADDQ.L #0x3,D1> {}
<POP 0x206e2 LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {}
<MI 206e8 ASL.L #0x1,D1> {}
<MI 206ea LEA.L 0x20b22,A0> {}
<MI 206ec MOVE.W (A0+D1.L+#0xe),D1> {}
<MI 206f0 AND.W #0xff,D1> {}
<MI 206f2 CMPI.B #0x56,D1> {}
<MI 206f6 BNE 0x207ea> {}
<POP 206fa-20716 Naked> Σ0 ↓ →0x207ea
<MI 206fa MOVE.L D7,D1> {}
<MI 206fc ADDQ.L #0x4,D1> {}
<POP 0x206fe LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {}
<MI 20704 ASL.L #0x1,D1> {}
<MI 20706 LEA.L 0x20b22,A0> {}
<MI 20708 MOVE.W (A0+D1.L+#0xe),D1> {}
<MI 2070c AND.W #0xff,D1> {}
<MI 2070e CMPI.B #0x49,D1> {}
<MI 20712 BNE 0x207ea> {}
<POP 20716-20732 Naked> Σ0 ↓ →0x207ea
<MI 20716 MOVE.L D7,D1> {}
<MI 20718 ADDQ.L #0x5,D1> {}
<POP 0x2071a LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {}
<MI 20720 ASL.L #0x1,D1> {}
<MI 20722 LEA.L 0x20b22,A0> {}
<MI 20724 MOVE.W (A0+D1.L+#0xe),D1> {}
<MI 20728 AND.W #0xff,D1> {}
<MI 2072a CMPI.B #0x43,D1> {}
<MI 2072e BNE 0x207ea> {}
<POP 20732-2074e Naked> Σ0 ↓ →0x207ea
<MI 20732 MOVE.L D7,D1> {}
<MI 20734 ADDQ.L #0x6,D1> {}
<POP 0x20736 LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {}
<MI 2073c ASL.L #0x1,D1> {}
<MI 2073e LEA.L 0x20b22,A0> {}
<MI 20740 MOVE.W (A0+D1.L+#0xe),D1> {}
<MI 20744 AND.W #0xff,D1> {}
<MI 20746 CMPI.B #0x45,D1> {}
<MI 2074a BNE 0x207ea> {}
<POP 2074e-207ea Naked> Σ0 ↓
<Blob 0x2074e [66] @> Δ-66 {[«66""»]}
<POP 20760-20762 StackAdj> Δ-4 {[«66""»]|[-4-]}
<Lit 0x20762 65> {[«66""»]|[$$The PAD connection works properly, for complete test to RATIONAL,]}
<Call 0x20770 0x103e0> {[«66""»]|[$$The PAD connection works properly, for complete test to RATIONAL,]}
WriteConsoleStringCrLf(str : String)
<POP 20772-20776 StackAdj> Δ+70 {}
<Blob 0x20776 [64] @> Δ-64 {[«64""»]}
<POP 20782-20784 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x20784 64> {[«64""»]|[$$try REMOTE option at CLI prompt. You should get a response like:]}
<Call 0x20790 0x103e0> {[«64""»]|[$$try REMOTE option at CLI prompt. You should get a response like:]}
WriteConsoleStringCrLf(str : String)
<POP 20792-20796 StackAdj> Δ+68 {}
<Blob 0x20796 [60] @> Δ-60 {[«60""»]}
<POP 207a2-207a4 StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x207a4 60> {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]}
<Call 0x207b2 0x103e0> {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]}
WriteConsoleStringCrLf(str : String)
<POP 207b4-207b5 StackAdj> Δ+64 ↓ {}
<Blob 0x207b5 [14] @> Δ-14 {[«14""»]}
<POP 207c6-207c8 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x207c8 13> {[«14""»]|[$$for call back]}
<Call 0x207d6 0x103e0> {[«14""»]|[$$for call back]}
WriteConsoleStringCrLf(str : String)
<POP 207d8-207dc StackAdj> Δ+16 {[-2-]}
<MI 207dc CLR.B (A7)> {[-2-]}
<Const 0x207de 0x1.4> Δ-4 {[-2-]|[##1]}
<Call 0x207e2 0x103b8> {[-2-]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 207e8-207ea StackAdj> Δ+6 {}
<POP 207ea-207f0 Naked> Σ0 →0x20680 ←0x2068a ←0x206a8 ←0x206c2 ←0x206de ←0x206fa ←0x20716 ←0x20732
<MI 207ea MOVE.L D0,D7> {}
<MI 207ec BRA 0x20680> {}
<POP 207f0-20832 Naked> Σ0 ↓ ←0x20680
<Blob 0x207f0 [58] @> Δ-58 {[«58""»]}
<POP 207fc-207fe StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x207fe 58> {[«58""»]|[$$Data was received from the PAD but could not be recognized]}
<Call 0x2080c 0x103e0> {[«58""»]|[$$Data was received from the PAD but could not be recognized]}
WriteConsoleStringCrLf(str : String)
<MI 2080e MOVEA.L A7,A0> {[«58""»]|[$$Data was received from the PAD but could not be recognized]}
<MI 20810 LEA.L 0x20368,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 2081c-2081e StackAdj> Δ-4 {[«58""»]|[$$Data was received from the PAD but could not be recognized]|[-4-]}
<Lit 0x2081e> {[«58""»]|[$$Data was received from the PAD but could not be recognized]|[$$…]}
<Pointer.sp 0x2081e 4> Δ-4
<Const 0x20822 0x1.2> Δ-2
<Const 0x20824 0x3d.2> Δ-2
<Call 0x20828 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2082a-2082c StackAdj> Δ+8
<Call 0x2082c 0x103e0> {[«58""»]|[$$Data was received from the PAD but could not be recognized]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 2082e-20832 StackAdj> Δ+66 {}
<POP 20832-20842 Naked> Σ0 ↓ ←0x20604
<Const 0x20832 0x2.2> Δ-2 {[#2]}
<Const 0x20836 0x1.4> Δ-4 {[#2]|[##1]}
<Call 0x2083a 0x103b8> {[#2]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20840-20842 StackAdj> Δ+6 {}
<POP 20842-2084a Epilogue> Σ0
@ 2084a
START
<POP 2084a--0001 Body>
<POP 2084a-20854 Prologue> Σ0
<POP 20854-20856 RegCacheLoad> Σ0 ↓
<POP 20856-20882 Naked> Σ0 ↓ →0x208dc
<Call 0x20856 0x10398> {}
FSCALL_10398
<POP 2085c-2085e StackAdj> Δ-2 {[-2-]}
<Const 0x2085e 0x180.4> Δ-4 {[-2-]|[##384]}
<Call 0x20862 0x10592> {[-2-]|[##384]}
ReadConfig(where : Long) : Word
<POP 20868-2086a StackAdj> Δ+4 {[-2-]}
<MI 2086a MOVE.W (A7)+,D0> Δ+2 {}
<MI 2086c EXTW.L D0> {}
<MI 2086e MOVE.L D0,0x20b2a> {}
<MI 20874 SUBI.L #0x0000004d,D0> {}
<MI 2087a CMPI.L #0x0000000b,D0> {}
<MI 20880 BHI 0x208dc> {}
<POP 20882-2088c Naked> Σ0 →0x208a4 →0x208dc →0x208dc →0x208dc →0x208dc →0x208dc →0x208dc →0x208dc →0x208dc →0x208dc →0x208dc →0x208d6
<MI 20882 ADD.W D0,D0> {}
<MI 20884 SWITCH D0.W> {}
<POP 208a4-208d6 Naked> Σ0 →0x20906 ←0x20882
<Blob 0x208a4 [62] @> Δ-62 {[«62""»]}
<POP 208b6-208b8 StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x208b8 61> {[«62""»]|[$$NOVRAM indicates modem attached, run INITIOA to change to PAD]}
<Call 0x208ca 0x103e0> {[«62""»]|[$$NOVRAM indicates modem attached, run INITIOA to change to PAD]}
WriteConsoleStringCrLf(str : String)
<POP 208d0-208d4 StackAdj> Δ+66 {}
<MI 208d4 BRA 0x20906> {}
<POP 208d6-208dc Naked> Σ0 →0x20916 ←0x20882
<Call 0x208d6 0x20556> {}
<MI 208da BRA 0x20916> {}
<POP 208dc-20906 Naked> Σ0 ↓ ←0x20856 ←0x20882 ←0x20882 ←0x20882 ←0x20882 ←0x20882 ←0x20882 ←0x20882 ←0x20882 ←0x20882 ←0x20882
<Blob 0x208dc [46] @> Δ-46 {[«46""»]}
<POP 208e8-208ea StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x208ea 46> {[«46""»]|[$$NOVRAM is not properly configured, run INITIOA]}
<Call 0x208fc 0x103e0> {[«46""»]|[$$NOVRAM is not properly configured, run INITIOA]}
WriteConsoleStringCrLf(str : String)
<POP 20902-20906 StackAdj> Δ+50 {}
<POP 20906-20916 Naked> Σ0 ↓ ←0x208a4
<Const 0x20906 0x2.2> Δ-2 {[#2]}
<Const 0x2090a 0x1.4> Δ-4 {[#2]|[##1]}
<Call 0x2090e 0x103b8> {[#2]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20914-20916 StackAdj> Δ+6 {}
<POP 20916-2091c Naked> Σ0 ←0x208d6
<Call 0x20916 0x10284> {}
?exit
@ 2092a
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 2092a-20992 Body>
<POP 2092a-20940 Prologue> Σ0 ↓
<POP 20940-2098a Naked> Σ0 ↓
<Blob 0x20940 [14] @> Δ-14 {[«14""»]}
<Const 0x2094c 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 20950-20952 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x20952 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 20964-20966 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20966 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2096a EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2096c EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2096e MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x20970 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 20976-20978 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x20978 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2097e-20980 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x20980 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 20986-2098a StackAdj> Δ+20 {}
<POP 2098a-20992 Epilogue> Σ0
@ 209e6
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 209e6-20b22 Body>
<POP 209e6-209fc Prologue> Σ0 ↓
<POP 209fc-20a12 RegCacheLoad> Σ0 ↓
<POP 20a12-20a72 Naked> Σ0 ↓ →0x20aba
<Call 0x20a12 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x20a18 [18] @> Δ-18 {[«18""»]}
<POP 20a24-20a26 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20a26 18> {[«18""»]|[$$Experiment error :]}
<Call 0x20a32 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 20a34-20a35 StackAdj> Δ+22 ↓ {}
<Blob 0x20a35 [14] @> Δ-14 {[«14""»]}
<POP 20a44-20a46 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20a46 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 20a50-20a52 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 20a52 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x20a56 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 20a5c-20a5e StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x20a5e 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20a64-20a66 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20a66 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20a68-20a6a StackAdj> Δ+18 {}
<MI 20a6a MOVEA.L (A6+0xa),A0> {}
<MI 20a6e CMPA.W #0x01,A0> {}
<MI 20a70 BEQ 0x20aba> {}
<POP 20a72-20aba Naked> Σ0 ↓
<Blob 0x20a72 [14] @> Δ-14 {[«14""»]}
<Blob 0x20a82 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 20a92-20a94 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x20a94 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 20a9e-20aa0 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x20aa0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x20aa0 12> Δ-4
<Const 0x20aa4 0x1.2> Δ-2
<Const 0x20aa6 0x1e.2> Δ-2
<Call 0x20aa8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20aaa-20aac StackAdj> Δ+8
<Call 0x20aac 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20ab2-20ab4 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x20ab4 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20ab6-20aba StackAdj> Δ+48 {}
<POP 20aba-20b1a Naked> Σ0 ↓ ←0x20a12
<Blob 0x20aba [14] @> Δ-14 {[«14""»]}
<POP 20aca-20acc StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20acc 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 20ad6-20ad8 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 20ad8 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x20adc 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 20ae2-20ae4 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x20ae4 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20aea-20aec StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20aec 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20aee-20aef StackAdj> Δ+18 ↓ {}
<Blob 0x20aef [24] @> Δ-24 {[«24""»]}
<Const 0x20afe 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 20b02-20b04 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x20b04 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x20b12 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 20b18-20b1a StackAdj> Δ+30 {}
<POP 20b1a-20b22 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.602bc0f9e6e002cb 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 08 4a | J | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 13 46 | F | .PTR 0x21346 00020010 code.end: 00020010 00 02 0b 22 | " | .PTR 0x20b22 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 09 2a | * | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 09 e6 | | .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 4e 4f 56 52 41 4d 20 69 |NOVRAM i| .TXT 'NOVRAM indicates modem attached, run INITIOA to change to PAD ' 00020148 50 41 44 20 74 65 73 74 |PAD test| .XXX[0x10] 00020150 20 63 6f 6d 70 6c 65 74 | complet| 00020158 65 20 |e | .XXX[0x2] 0002015a 4e 4f 56 52 41 4d 20 69 |NOVRAM i| .TXT 'NOVRAM is not properly configured, run INITIOA' 00020188 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you wish to run in VERBOSE mode_ ' 000201ac 4e 6f 20 64 61 74 61 20 |No data | .TXT 'No data is being recieved from the PAD. Check power to the PAD, ' 000201ec 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 ' 0002022e 6d 61 79 20 62 65 20 63 |may be c| .TXT 'may be connected to the PAD to verify it is operable' 00020262 54 68 65 20 50 41 44 20 |The PAD | .TXT 'The PAD connection works properly, for complete test to RATIONAL, ' 000202a4 74 72 79 20 52 45 4d 4f |try REMO| .TXT 'try REMOTE option at CLI prompt. You should get a response like:' 000202e4 52 61 74 69 6f 6e 61 6c |Rational| .TXT 'Rational Response Center has instructed this cluster to wait' 00020320 66 6f 72 20 63 61 6c 6c |for call| .TXT 'for call back ' 0002032e 44 61 74 61 20 77 61 73 |Data was| .TXT 'Data was received from the PAD but could not be recognized' 00020368 55 73 65 20 61 20 74 65 |Use a te| .XXX[0x38] 00020370 72 6d 69 6e 61 6c 20 61 |rminal a| 00020378 6e 64 20 76 65 72 69 66 |nd verif| 00020380 79 20 74 68 61 74 20 74 |y that t| 00020388 68 65 20 50 41 44 20 69 |he PAD i| 00020390 73 20 70 72 6f 70 65 72 |s proper| 00020398 6c 79 20 63 6f 6e 66 69 |ly confi| 000203a0 67 75 72 65 64 20 |gured | .XXX[0x6] 000203a6 44 20 41 20 50 20 |D A P | .TXT 'D A P ' 000203ac ; -------------------------------------------------------------------------------------- 000203ac ; OMSI PASCAL Function 000203ac ; <LVAR 0x008 @ 4(r)> 000203ac ; -------------------------------------------------------------------------------------- 000203ac 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 000203b0 bf d5 | | CMPA.L (A5),A7 000203b2 62 06 |b | BHI 0x203ba 000203b4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000203b8 4e 76 |Nv | TRAPV 000203ba de fc 00 0e | | ADDA.W #0xe,A7 000203be 48 e7 00 80 |H | MOVEM.L A0,-(A7) 000203c2 41 ee 00 08 |A | LEA.L (A6+0x8),A0 000203c6 2f 10 |/ | MOVE.L (A0),-(A7) 000203c8 1f 3c 00 0a | < | MOVE.B #0x0a,-(A7) 000203cc 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000203d2 54 4f |TO | ADDQ.L #0x2,A7 000203d4 2e 90 |. | MOVE.L (A0),(A7) 000203d6 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 000203da 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000203e0 58 4f |XO | ADDQ.L #0x4,A7 000203e2 3e bc 00 01 |> | MOVE.W #0x1,(A7) 000203e6 2f 10 |/ | MOVE.L (A0),-(A7) 000203e8 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 000203ee 5c 4f |\O | ADDQ.L #0x6,A7 000203f0 48 50 |HP | PEA.L (A0) 000203f2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000203f8 58 4f |XO | ADDQ.L #0x4,A7 000203fa 4c df 01 00 |L | MOVEM.L (A7)+,A0 000203fe 4e 5e |N^ | UNLK A6 00020400 4e 75 |Nu | RTS 00020402 ; -------------------------------------------------------------------------------------- 00020402 ; OMSI PASCAL Function 00020402 ; <LVAR -0x004 @ 4(r)> 00020402 ; -------------------------------------------------------------------------------------- 00020402 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 00020406 bf d5 | | CMPA.L (A5),A7 00020408 62 06 |b | BHI 0x20410 0002040a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002040e 4e 76 |Nv | TRAPV 00020410 de fc 00 08 | | ADDA.W #0x8,A7 00020414 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020418 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002041e 2e ae ff fc |. | MOVE.L (A6-0x4),(A7) 00020422 4e ba ff 88 |N | JSR 0x203ac 00020426 58 4f |XO | ADDQ.L #0x4,A7 00020428 4e 5e |N^ | UNLK A6 0002042a 4e 75 |Nu | RTS 0002042c ; -------------------------------------------------------------------------------------- 0002042c ; OMSI PASCAL Function 0002042c ; <LVAR 0x008 @ 4(r)> 0002042c ; -------------------------------------------------------------------------------------- 0002042c 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 00020430 bf d5 | | CMPA.L (A5),A7 00020432 62 06 |b | BHI 0x2043a 00020434 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020438 4e 76 |Nv | TRAPV 0002043a de fc 00 0e | | ADDA.W #0xe,A7 0002043e 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00020442 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00020446 2f 10 |/ | MOVE.L (A0),-(A7) 00020448 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 0002044c 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020452 58 4f |XO | ADDQ.L #0x4,A7 00020454 3e bc 00 02 |> | MOVE.W #0x2,(A7) 00020458 2f 10 |/ | MOVE.L (A0),-(A7) 0002045a 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 00020460 5c 4f |\O | ADDQ.L #0x6,A7 00020462 48 50 |HP | PEA.L (A0) 00020464 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002046a 58 4f |XO | ADDQ.L #0x4,A7 0002046c 4c df 01 00 |L | MOVEM.L (A7)+,A0 00020470 4e 5e |N^ | UNLK A6 00020472 4e 75 |Nu | RTS 00020474 ; -------------------------------------------------------------------------------------- 00020474 ; OMSI PASCAL Function 00020474 ; <LVAR 0x00c 2(w)> 00020474 ; <LVAR 0x008 4(r)> 00020474 ; -------------------------------------------------------------------------------------- 00020474 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 ; Spelunked 00020478 bf d5 | | CMPA.L (A5),A7 0002047a 62 06 |b | BHI 0x20482 0002047c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020480 4e 76 |Nv | TRAPV 00020482 de fc 00 0e | | ADDA.W #0xe,A7 00020486 48 e7 80 00 |H | MOVEM.L D0,-(A7) 0002048a 55 4f |UO | SUBQ.L #0x2,A7 0002048c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020490 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 00020496 58 4f |XO | ADDQ.L #0x4,A7 00020498 30 1f |0 | MOVE.W (A7)+,D0 0002049a 41 bc 00 ff |A | CHK.W #0xff,D0 0002049e 3d 40 00 0c |=@ | MOVE.W D0,(A6+0xc) 000204a2 4c df 00 01 |L | MOVEM.L (A7)+,D0 000204a6 4e 5e |N^ | UNLK A6 000204a8 4e 75 |Nu | RTS 000204aa ; -------------------------------------------------------------------------------------- 000204aa ; OMSI PASCAL Function 000204aa ; <LVAR -0x004 @ 1(r)> 000204aa ; -------------------------------------------------------------------------------------- 000204aa 4e 56 ff ca |NV | LINK.W A6,#0xffca 000204ae bf d5 | | CMPA.L (A5),A7 000204b0 62 06 |b | BHI 0x204b8 000204b2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000204b6 4e 76 |Nv | TRAPV 000204b8 de fc 00 2a | * | ADDA.W #0x2a,A7 000204bc 48 e7 c3 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D1+D0,-(A7) 000204c0 43 f9 00 02 13 30 |C 0 | LEA.L 0x21330,A1 000204c6 45 f9 00 02 0b 22 |E " | LEA.L 0x20b22,A2 000204cc 72 02 |r | MOVEQ.L #0x02,D1 000204ce 7e 00 |~ | MOVEQ.L #0x00,D7 000204d0 42 91 |B | CLR.L (A1) 000204d2 0c 87 00 00 00 14 | | CMPI.L #0x00000014,D7 000204d8 67 74 |gt | BEQ 0x2054e 000204da 7c 01 || | MOVEQ.L #0x01,D6 000204dc 3f 01 |? | MOVE.W D1,-(A7) 000204de 48 6e ff fc |Hn | PEA.L (A6-0x4) 000204e2 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 000204e8 5c 4f |\O | ADDQ.L #0x6,A7 000204ea 10 2e ff fc | . | MOVE.B (A6-0x4),D0 000204ee 0c 00 00 01 | | CMPI.B #0x01,D0 000204f2 66 4c |fL | BNE 0x20540 000204f4 3f 01 |? | MOVE.W D1,-(A7) 000204f6 20 11 | | MOVE.L (A1),D0 000204f8 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 000204fe 63 02 |c | BLS 0x20502 00020500 4e 4f |NO | TRAP #15 00020502 e3 80 | | ASL.L #0x1,D0 00020504 20 4a | J | MOVEA.L A2,A0 00020506 48 70 08 0e |Hp | PEA.L (A0+D0.L+#0xe) 0002050a 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020510 5c 4f |\O | ADDQ.L #0x6,A7 00020512 4a 39 00 02 0b 2e |J9 . | TST.B 0x20b2e 00020518 67 22 |g" | BEQ 0x2053c 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 30 30 08 0e |00 | MOVE.W (A0+D0.L+#0xe),D0 0002052e 02 40 00 ff | @ | ANDI.W #0x00ff,D0 00020532 1f 00 | | MOVE.B D0,-(A7) 00020534 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 0002053a 54 4f |TO | ADDQ.L #0x2,A7 0002053c 7e 00 |~ | MOVEQ.L #0x00,D7 0002053e 52 91 |R | ADDQ.L #0x1,(A1) 00020540 52 86 |R | ADDQ.L #0x1,D6 00020542 0c 86 00 00 03 e8 | | CMPI.L #0x000003e8,D6 00020548 6f 92 |o | BLE 0x204dc 0002054a 52 87 |R | ADDQ.L #0x1,D7 0002054c 60 84 |` | BRA 0x204d2 0002054e 4c df 07 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2 00020552 4e 5e |N^ | UNLK A6 00020554 4e 75 |Nu | RTS 00020556 ; -------------------------------------------------------------------------------------- 00020556 ; OMSI PASCAL Function 00020556 ; -------------------------------------------------------------------------------------- 00020556 4e 56 ff 72 |NV r | LINK.W A6,#0xff72 0002055a bf d5 | | CMPA.L (A5),A7 0002055c 62 06 |b | BHI 0x20564 0002055e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020562 4e 76 |Nv | TRAPV 00020564 de fc 00 8a | | ADDA.W #0x8a,A7 00020568 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002056c 45 f9 00 02 0b 22 |E " | LEA.L 0x20b22,A2 00020572 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020578 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 0002057e 74 01 |t | MOVEQ.L #0x01,D2 00020580 26 3c 00 00 03 ff |&< | MOVE.L #0x3ff,D3 00020586 38 3c 00 ff |8< | MOVE.W #0xff,D4 0002058a 7a 24 |z$ | MOVEQ.L #0x24,D5 0002058c 7c 40 ||@ | MOVEQ.L #0x40,D6 0002058e 4e b9 00 01 02 16 |N | JSR KC0b 00020594 9e c5 | | SUBA.W D5,A7 00020596 20 4f | O | MOVEA.L A7,A0 00020598 43 fa fb ee |C | LEA.L 0x20188,A1 0002059c 70 22 |p" | MOVEQ.L #0x22,D0 0002059e 10 d9 | | MOVE.B (A1)+,(A0)+ 000205a0 51 c8 ff fc |Q | DBF D0,0x2059e 000205a4 5d 4f |]O | SUBQ.L #0x6,A7 000205a6 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000205aa 3f 02 |? | MOVE.W D2,-(A7) 000205ac 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 000205b0 4e 93 |N | JSR (A3) 000205b2 5c 4f |\O | ADDQ.L #0x6,A7 000205b4 42 17 |B | CLR.B (A7) 000205b6 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool 000205bc 5c 4f |\O | ADDQ.L #0x6,A7 000205be 10 1f | | MOVE.B (A7)+,D0 000205c0 48 80 |H | EXTB.W D0 000205c2 41 82 |A | CHK.W D2,D0 000205c4 de c5 | | ADDA.W D5,A7 000205c6 13 c0 00 02 0b 2e | . | MOVE.B D0,0x20b2e 000205cc 4e ba fe dc |N | JSR 0x204aa 000205d0 5d 4f |]O | SUBQ.L #0x6,A7 000205d2 20 4f | O | MOVEA.L A7,A0 000205d4 43 fa fd d0 |C | LEA.L 0x203a6,A1 000205d8 70 04 |p | MOVEQ.L #0x04,D0 000205da 10 d9 | | MOVE.B (A1)+,(A0)+ 000205dc 51 c8 ff fc |Q | DBF D0,0x205da 000205e0 59 4f |YO | SUBQ.L #0x4,A7 000205e2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000205e6 3f 02 |? | MOVE.W D2,-(A7) 000205e8 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 000205ec 4e 93 |N | JSR (A3) 000205ee 50 4f |PO | ADDQ.L #0x8,A7 000205f0 4e ba fe 3a |N : | JSR 0x2042c 000205f4 de fc 00 0a | | ADDA.W #0xa,A7 000205f8 4e ba fe b0 |N | JSR 0x204aa 000205fc 4a b9 00 02 13 30 |J 0 | TST.L 0x21330 00020602 66 6e |fn | BNE 0x20672 00020604 9e c6 | | SUBA.W D6,A7 00020606 20 4f | O | MOVEA.L A7,A0 00020608 43 fa fb a2 |C | LEA.L 0x201ac,A1 0002060c 70 3e |p> | MOVEQ.L #0x3e,D0 0002060e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020610 51 c8 ff fc |Q | DBF D0,0x2060e 00020614 59 4f |YO | SUBQ.L #0x4,A7 00020616 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002061a 3f 02 |? | MOVE.W D2,-(A7) 0002061c 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 00020620 4e 93 |N | JSR (A3) 00020622 50 4f |PO | ADDQ.L #0x8,A7 00020624 4e 94 |N | JSR (A4) 00020626 54 4f |TO | ADDQ.L #0x2,A7 00020628 20 4f | O | MOVEA.L A7,A0 0002062a 43 fa fb c0 |C | LEA.L 0x201ec,A1 0002062e 70 40 |p@ | MOVEQ.L #0x40,D0 00020630 10 d9 | | MOVE.B (A1)+,(A0)+ 00020632 51 c8 ff fc |Q | DBF D0,0x20630 00020636 59 4f |YO | SUBQ.L #0x4,A7 00020638 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002063c 3f 02 |? | MOVE.W D2,-(A7) 0002063e 3f 3c 00 41 |?< A | MOVE.W #0x41,-(A7) 00020642 4e 93 |N | JSR (A3) 00020644 50 4f |PO | ADDQ.L #0x8,A7 00020646 4e 94 |N | JSR (A4) 00020648 de fc 00 46 | F | ADDA.W #0x46,A7 0002064c 41 fa fc 14 |A | LEA.L 0x20262,A0 00020650 70 0c |p | MOVEQ.L #0x0c,D0 00020652 2f 20 |/ | MOVE.L -(A0),-(A7) 00020654 51 c8 ff fc |Q | DBF D0,0x20652 00020658 59 4f |YO | SUBQ.L #0x4,A7 0002065a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002065e 3f 02 |? | MOVE.W D2,-(A7) 00020660 3f 3c 00 34 |?< 4 | MOVE.W #0x34,-(A7) 00020664 4e 93 |N | JSR (A3) 00020666 50 4f |PO | ADDQ.L #0x8,A7 00020668 4e 94 |N | JSR (A4) 0002066a de fc 00 38 | 8 | ADDA.W #0x38,A7 0002066e 60 00 01 c2 |` | BRA 0x20832 00020672 4a 39 00 02 0b 2e |J9 . | TST.B 0x20b2e 00020678 67 04 |g | BEQ 0x2067e 0002067a 4e ba fd 86 |N | JSR 0x20402 0002067e 7e 00 |~ | MOVEQ.L #0x00,D7 00020680 be b9 00 02 13 30 | 0 | CMP.L 0x21330,D7 00020686 6c 00 01 68 |l h | BGE 0x207f0 0002068a 20 07 | | MOVE.L D7,D0 0002068c 52 80 |R | ADDQ.L #0x1,D0 0002068e be 83 | | CMP.L D3,D7 00020690 63 02 |c | BLS 0x20694 00020692 4e 4f |NO | TRAP #15 00020694 22 07 |" | MOVE.L D7,D1 00020696 e3 81 | | ASL.L #0x1,D1 00020698 20 4a | J | MOVEA.L A2,A0 0002069a 32 30 18 0e |20 | MOVE.W (A0+D1.L+#0xe),D1 0002069e c2 44 | D | AND.W D4,D1 000206a0 0c 01 00 53 | S | CMPI.B #0x53,D1 000206a4 66 00 01 44 |f D | BNE 0x207ea 000206a8 b0 83 | | CMP.L D3,D0 000206aa 63 02 |c | BLS 0x206ae 000206ac 4e 4f |NO | TRAP #15 000206ae 22 00 |" | MOVE.L D0,D1 000206b0 e3 81 | | ASL.L #0x1,D1 000206b2 20 4a | J | MOVEA.L A2,A0 000206b4 32 30 18 0e |20 | MOVE.W (A0+D1.L+#0xe),D1 000206b8 c2 44 | D | AND.W D4,D1 000206ba 0c 01 00 45 | E | CMPI.B #0x45,D1 000206be 66 00 01 2a |f * | BNE 0x207ea 000206c2 22 07 |" | MOVE.L D7,D1 000206c4 54 81 |T | ADDQ.L #0x2,D1 000206c6 b2 83 | | CMP.L D3,D1 000206c8 63 02 |c | BLS 0x206cc 000206ca 4e 4f |NO | TRAP #15 000206cc e3 81 | | ASL.L #0x1,D1 000206ce 20 4a | J | MOVEA.L A2,A0 000206d0 32 30 18 0e |20 | MOVE.W (A0+D1.L+#0xe),D1 000206d4 c2 44 | D | AND.W D4,D1 000206d6 0c 01 00 52 | R | CMPI.B #0x52,D1 000206da 66 00 01 0e |f | BNE 0x207ea 000206de 22 07 |" | MOVE.L D7,D1 000206e0 56 81 |V | ADDQ.L #0x3,D1 000206e2 b2 83 | | CMP.L D3,D1 000206e4 63 02 |c | BLS 0x206e8 000206e6 4e 4f |NO | TRAP #15 000206e8 e3 81 | | ASL.L #0x1,D1 000206ea 20 4a | J | MOVEA.L A2,A0 000206ec 32 30 18 0e |20 | MOVE.W (A0+D1.L+#0xe),D1 000206f0 c2 44 | D | AND.W D4,D1 000206f2 0c 01 00 56 | V | CMPI.B #0x56,D1 000206f6 66 00 00 f2 |f | BNE 0x207ea 000206fa 22 07 |" | MOVE.L D7,D1 000206fc 58 81 |X | ADDQ.L #0x4,D1 000206fe b2 83 | | CMP.L D3,D1 00020700 63 02 |c | BLS 0x20704 00020702 4e 4f |NO | TRAP #15 00020704 e3 81 | | ASL.L #0x1,D1 00020706 20 4a | J | MOVEA.L A2,A0 00020708 32 30 18 0e |20 | MOVE.W (A0+D1.L+#0xe),D1 0002070c c2 44 | D | AND.W D4,D1 0002070e 0c 01 00 49 | I | CMPI.B #0x49,D1 00020712 66 00 00 d6 |f | BNE 0x207ea 00020716 22 07 |" | MOVE.L D7,D1 00020718 5a 81 |Z | ADDQ.L #0x5,D1 0002071a b2 83 | | CMP.L D3,D1 0002071c 63 02 |c | BLS 0x20720 0002071e 4e 4f |NO | TRAP #15 00020720 e3 81 | | ASL.L #0x1,D1 00020722 20 4a | J | MOVEA.L A2,A0 00020724 32 30 18 0e |20 | MOVE.W (A0+D1.L+#0xe),D1 00020728 c2 44 | D | AND.W D4,D1 0002072a 0c 01 00 43 | C | CMPI.B #0x43,D1 0002072e 66 00 00 ba |f | BNE 0x207ea 00020732 22 07 |" | MOVE.L D7,D1 00020734 5c 81 |\ | ADDQ.L #0x6,D1 00020736 b2 83 | | CMP.L D3,D1 00020738 63 02 |c | BLS 0x2073c 0002073a 4e 4f |NO | TRAP #15 0002073c e3 81 | | ASL.L #0x1,D1 0002073e 20 4a | J | MOVEA.L A2,A0 00020740 32 30 18 0e |20 | MOVE.W (A0+D1.L+#0xe),D1 00020744 c2 44 | D | AND.W D4,D1 00020746 0c 01 00 45 | E | CMPI.B #0x45,D1 0002074a 66 00 00 9e |f | BNE 0x207ea 0002074e 9e fc 00 42 | B | SUBA.W #0x42,A7 00020752 20 4f | O | MOVEA.L A7,A0 00020754 43 fa fb 0c |C | LEA.L 0x20262,A1 00020758 72 40 |r@ | MOVEQ.L #0x40,D1 0002075a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002075c 51 c9 ff fc |Q | DBF D1,0x2075a 00020760 59 4f |YO | SUBQ.L #0x4,A7 00020762 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020766 3f 02 |? | MOVE.W D2,-(A7) 00020768 3f 3c 00 41 |?< A | MOVE.W #0x41,-(A7) 0002076c 4e 93 |N | JSR (A3) 0002076e 50 4f |PO | ADDQ.L #0x8,A7 00020770 4e 94 |N | JSR (A4) 00020772 de fc 00 46 | F | ADDA.W #0x46,A7 00020776 41 fa fb 6c |A l | LEA.L 0x202e4,A0 0002077a 72 0f |r | MOVEQ.L #0x0f,D1 0002077c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002077e 51 c9 ff fc |Q | DBF D1,0x2077c 00020782 59 4f |YO | SUBQ.L #0x4,A7 00020784 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020788 3f 02 |? | MOVE.W D2,-(A7) 0002078a 3f 06 |? | MOVE.W D6,-(A7) 0002078c 4e 93 |N | JSR (A3) 0002078e 50 4f |PO | ADDQ.L #0x8,A7 00020790 4e 94 |N | JSR (A4) 00020792 de fc 00 44 | D | ADDA.W #0x44,A7 00020796 41 fa fb 88 |A | LEA.L 0x20320,A0 0002079a 72 0e |r | MOVEQ.L #0x0e,D1 0002079c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002079e 51 c9 ff fc |Q | DBF D1,0x2079c 000207a2 59 4f |YO | SUBQ.L #0x4,A7 000207a4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000207a8 3f 02 |? | MOVE.W D2,-(A7) 000207aa 3f 3c 00 3c |?< < | MOVE.W #0x3c,-(A7) 000207ae 4e 93 |N | JSR (A3) 000207b0 50 4f |PO | ADDQ.L #0x8,A7 000207b2 4e 94 |N | JSR (A4) 000207b4 de fc 00 32 | 2 | ADDA.W #0x32,A7 000207b8 20 4f | O | MOVEA.L A7,A0 000207ba 43 fa fb 64 |C d | LEA.L 0x20320,A1 000207be 72 0c |r | MOVEQ.L #0x0c,D1 000207c0 10 d9 | | MOVE.B (A1)+,(A0)+ 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 0d |?< | MOVE.W #0xd,-(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 10 | | ADDA.W #0x10,A7 000207dc 42 17 |B | CLR.B (A7) 000207de 48 78 00 01 |Hx | PEA.L 0x1 000207e2 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000207e8 5c 4f |\O | ADDQ.L #0x6,A7 000207ea 2e 00 |. | MOVE.L D0,D7 000207ec 60 00 fe 92 |` | BRA 0x20680 000207f0 41 fa fb 76 |A v | LEA.L 0x20368,A0 000207f4 70 1c |p | MOVEQ.L #0x1c,D0 000207f6 3f 20 |? | MOVE.W -(A0),-(A7) 000207f8 51 c8 ff fc |Q | DBF D0,0x207f6 000207fc 59 4f |YO | SUBQ.L #0x4,A7 000207fe 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020802 3f 02 |? | MOVE.W D2,-(A7) 00020804 3f 3c 00 3a |?< : | MOVE.W #0x3a,-(A7) 00020808 4e 93 |N | JSR (A3) 0002080a 50 4f |PO | ADDQ.L #0x8,A7 0002080c 4e 94 |N | JSR (A4) 0002080e 20 4f | O | MOVEA.L A7,A0 00020810 43 fa fb 56 |C V | LEA.L 0x20368,A1 00020814 70 3c |p< | MOVEQ.L #0x3c,D0 00020816 10 d9 | | MOVE.B (A1)+,(A0)+ 00020818 51 c8 ff fc |Q | DBF D0,0x20816 0002081c 59 4f |YO | SUBQ.L #0x4,A7 0002081e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020822 3f 02 |? | MOVE.W D2,-(A7) 00020824 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 00020828 4e 93 |N | JSR (A3) 0002082a 50 4f |PO | ADDQ.L #0x8,A7 0002082c 4e 94 |N | JSR (A4) 0002082e de fc 00 42 | B | ADDA.W #0x42,A7 00020832 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020836 48 78 00 01 |Hx | PEA.L 0x1 0002083a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020840 5c 4f |\O | ADDQ.L #0x6,A7 00020842 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020846 4e 5e |N^ | UNLK A6 00020848 4e 75 |Nu | RTS 0002084a ; -------------------------------------------------------------------------------------- 0002084a ; OMSI PASCAL Function 0002084a ; -------------------------------------------------------------------------------------- 0002084a START: 0002084a 4f fa 00 08 |O | LEA.L MAIN,A7 0002084e 4e f9 00 01 02 80 |N | JMP ?start_program 00020854 MAIN: 00020854 72 01 |r | MOVEQ.L #0x01,D1 00020856 4e b9 00 01 03 98 |N | JSR FSCALL_10398 0002085c 55 4f |UO | SUBQ.L #0x2,A7 0002085e 48 78 01 80 |Hx | PEA.L 0x180 00020862 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 00020868 58 4f |XO | ADDQ.L #0x4,A7 0002086a 30 1f |0 | MOVE.W (A7)+,D0 0002086c 48 c0 |H | EXTW.L D0 0002086e 23 c0 00 02 0b 2a |# * | MOVE.L D0,0x20b2a 00020874 04 80 00 00 00 4d | M | SUBI.L #0x0000004d,D0 0002087a 0c 80 00 00 00 0b | | CMPI.L #0x0000000b,D0 00020880 62 5a |bZ | BHI switch@0x20884[0x1] 00020882 d0 40 | @ | ADD.W D0,D0 00020884 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002088c 00 18 | | .CONST 0x18 ; [0x0] -> 0x208a4 0002088e 00 50 | P | .CONST 0x50 ; [0x1] -> 0x208dc 00020890 00 50 | P | .CONST 0x50 ; [0x2] -> 0x208dc 00020892 00 50 | P | .CONST 0x50 ; [0x3] -> 0x208dc 00020894 00 50 | P | .CONST 0x50 ; [0x4] -> 0x208dc 00020896 00 50 | P | .CONST 0x50 ; [0x5] -> 0x208dc 00020898 00 50 | P | .CONST 0x50 ; [0x6] -> 0x208dc 0002089a 00 50 | P | .CONST 0x50 ; [0x7] -> 0x208dc 0002089c 00 50 | P | .CONST 0x50 ; [0x8] -> 0x208dc 0002089e 00 50 | P | .CONST 0x50 ; [0x9] -> 0x208dc 000208a0 00 50 | P | .CONST 0x50 ; [0xa] -> 0x208dc 000208a2 00 4a | J | .CONST 0x4a ; [0xb] -> 0x208d6 000208a4 switch@0x20884[0x0]: 000208a4 9e fc 00 3e | > | SUBA.W #0x3e,A7 000208a8 20 4f | O | MOVEA.L A7,A0 000208aa 43 fa f8 5e |C ^ | LEA.L 0x2010a,A1 000208ae 70 3c |p< | MOVEQ.L #0x3c,D0 000208b0 10 d9 | | MOVE.B (A1)+,(A0)+ 000208b2 51 c8 ff fc |Q | DBF D0,0x208b0 000208b6 59 4f |YO | SUBQ.L #0x4,A7 000208b8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000208bc 3f 01 |? | MOVE.W D1,-(A7) 000208be 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 000208c2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000208c8 50 4f |PO | ADDQ.L #0x8,A7 000208ca 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000208d0 de fc 00 42 | B | ADDA.W #0x42,A7 000208d4 60 30 |`0 | BRA 0x20906 000208d6 switch@0x20884[0xb]: 000208d6 4e ba fc 7e |N ~ | JSR 0x20556 000208da 60 3a |`: | BRA 0x20916 000208dc switch@0x20884[0x1]: 000208dc switch@0x20884[0x2]: 000208dc switch@0x20884[0x3]: 000208dc switch@0x20884[0x4]: 000208dc switch@0x20884[0x5]: 000208dc switch@0x20884[0x6]: 000208dc switch@0x20884[0x7]: 000208dc switch@0x20884[0x8]: 000208dc switch@0x20884[0x9]: 000208dc switch@0x20884[0xa]: 000208dc 41 fa f8 aa |A | LEA.L 0x20188,A0 000208e0 70 16 |p | MOVEQ.L #0x16,D0 000208e2 3f 20 |? | MOVE.W -(A0),-(A7) 000208e4 51 c8 ff fc |Q | DBF D0,0x208e2 000208e8 59 4f |YO | SUBQ.L #0x4,A7 000208ea 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000208ee 3f 01 |? | MOVE.W D1,-(A7) 000208f0 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 000208f4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000208fa 50 4f |PO | ADDQ.L #0x8,A7 000208fc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020902 de fc 00 32 | 2 | ADDA.W #0x32,A7 00020906 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002090a 48 78 00 01 |Hx | PEA.L 0x1 0002090e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020914 5c 4f |\O | ADDQ.L #0x6,A7 00020916 4e b9 00 01 02 84 |N | JSR ?exit 0002091c 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 0002092a ; -------------------------------------------------------------------------------------- 0002092a ; OMSI PASCAL Function 0002092a ; <LVAR 0x008 1(r)> 0002092a ; -------------------------------------------------------------------------------------- 0002092a PROG_FAIL: 0002092a 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 0002092e bf d5 | | CMPA.L (A5),A7 00020930 62 06 |b | BHI 0x20938 00020932 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020936 4e 76 |Nv | TRAPV 00020938 de fc 00 2c | , | ADDA.W #0x2c,A7 0002093c 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020940 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00020944 70 06 |p | MOVEQ.L #0x06,D0 00020946 3f 20 |? | MOVE.W -(A0),-(A7) 00020948 51 c8 ff fc |Q | DBF D0,0x20946 0002094c 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00020950 51 4f |QO | SUBQ.L #0x8,A7 00020952 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020956 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002095a 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 0002095e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020964 58 4f |XO | ADDQ.L #0x4,A7 00020966 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 0002096a 48 80 |H | EXTB.W D0 0002096c 48 c0 |H | EXTW.L D0 0002096e 2f 00 |/ | MOVE.L D0,-(A7) 00020970 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020976 58 4f |XO | ADDQ.L #0x4,A7 00020978 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002097e 50 4f |PO | ADDQ.L #0x8,A7 00020980 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020986 de fc 00 14 | | ADDA.W #0x14,A7 0002098a 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 0002098e 4e 5e |N^ | UNLK A6 00020990 4e 75 |Nu | RTS 00020992 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 000209a0 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 000209ae 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 000209bc 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 000209ce 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 000209e6 ; -------------------------------------------------------------------------------------- 000209e6 ; OMSI PASCAL Function 000209e6 ; <LVAR 0x00e 1(r)> 000209e6 ; <LVAR 0x00a 4(r)> 000209e6 ; <LVAR 0x008 1(r)> 000209e6 ; -------------------------------------------------------------------------------------- 000209e6 EXP_FAIL: 000209e6 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 000209ea bf d5 | | CMPA.L (A5),A7 000209ec 62 06 |b | BHI 0x209f4 000209ee 44 fc 00 02 |D | MOVE.W #0x2,CCR 000209f2 4e 76 |Nv | TRAPV 000209f4 de fc 00 74 | t | ADDA.W #0x74,A7 000209f8 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 000209fc 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020a02 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00020a08 72 01 |r | MOVEQ.L #0x01,D1 00020a0a 74 0d |t | MOVEQ.L #0x0d,D2 00020a0c 76 1e |v | MOVEQ.L #0x1e,D3 00020a0e 78 12 |x | MOVEQ.L #0x12,D4 00020a10 7a 0e |z | MOVEQ.L #0x0e,D5 00020a12 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020a18 41 fa ff b4 |A | LEA.L 0x209ce,A0 00020a1c 70 08 |p | MOVEQ.L #0x08,D0 00020a1e 3f 20 |? | MOVE.W -(A0),-(A7) 00020a20 51 c8 ff fc |Q | DBF D0,0x20a1e 00020a24 59 4f |YO | SUBQ.L #0x4,A7 00020a26 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a2a 3f 01 |? | MOVE.W D1,-(A7) 00020a2c 3f 04 |? | MOVE.W D4,-(A7) 00020a2e 4e 93 |N | JSR (A3) 00020a30 50 4f |PO | ADDQ.L #0x8,A7 00020a32 4e 94 |N | JSR (A4) 00020a34 50 4f |PO | ADDQ.L #0x8,A7 00020a36 20 4f | O | MOVEA.L A7,A0 00020a38 43 fa ff 58 |C X | LEA.L 0x20992,A1 00020a3c 70 0c |p | MOVEQ.L #0x0c,D0 00020a3e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a40 51 c8 ff fc |Q | DBF D0,0x20a3e 00020a44 51 4f |QO | SUBQ.L #0x8,A7 00020a46 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020a4a 3f 01 |? | MOVE.W D1,-(A7) 00020a4c 3f 02 |? | MOVE.W D2,-(A7) 00020a4e 4e 93 |N | JSR (A3) 00020a50 54 4f |TO | ADDQ.L #0x2,A7 00020a52 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00020a56 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00020a5c 54 4f |TO | ADDQ.L #0x2,A7 00020a5e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020a64 50 4f |PO | ADDQ.L #0x8,A7 00020a66 4e 94 |N | JSR (A4) 00020a68 de c4 | | ADDA.W D4,A7 00020a6a 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00020a6e b0 c1 | | CMPA.W D1,A0 00020a70 67 48 |gH | BEQ 0x20aba 00020a72 9e c5 | | SUBA.W D5,A7 00020a74 22 4f |"O | MOVEA.L A7,A1 00020a76 45 fa ff 28 |E ( | LEA.L 0x209a0,A2 00020a7a 70 0c |p | MOVEQ.L #0x0c,D0 00020a7c 12 da | | MOVE.B (A2)+,(A1)+ 00020a7e 51 c8 ff fc |Q | DBF D0,0x20a7c 00020a82 9e c3 | | SUBA.W D3,A7 00020a84 22 4f |"O | MOVEA.L A7,A1 00020a86 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00020a8a 70 1d |p | MOVEQ.L #0x1d,D0 00020a8c 12 d8 | | MOVE.B (A0)+,(A1)+ 00020a8e 51 c8 ff fc |Q | DBF D0,0x20a8c 00020a92 51 4f |QO | SUBQ.L #0x8,A7 00020a94 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020a98 3f 01 |? | MOVE.W D1,-(A7) 00020a9a 3f 02 |? | MOVE.W D2,-(A7) 00020a9c 4e 93 |N | JSR (A3) 00020a9e 58 4f |XO | ADDQ.L #0x4,A7 00020aa0 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020aa4 3f 01 |? | MOVE.W D1,-(A7) 00020aa6 3f 03 |? | MOVE.W D3,-(A7) 00020aa8 4e 93 |N | JSR (A3) 00020aaa 50 4f |PO | ADDQ.L #0x8,A7 00020aac 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020ab2 50 4f |PO | ADDQ.L #0x8,A7 00020ab4 4e 94 |N | JSR (A4) 00020ab6 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020aba 9e c5 | | SUBA.W D5,A7 00020abc 20 4f | O | MOVEA.L A7,A0 00020abe 43 fa fe ee |C | LEA.L 0x209ae,A1 00020ac2 70 0c |p | MOVEQ.L #0x0c,D0 00020ac4 10 d9 | | MOVE.B (A1)+,(A0)+ 00020ac6 51 c8 ff fc |Q | DBF D0,0x20ac4 00020aca 51 4f |QO | SUBQ.L #0x8,A7 00020acc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020ad0 3f 01 |? | MOVE.W D1,-(A7) 00020ad2 3f 02 |? | MOVE.W D2,-(A7) 00020ad4 4e 93 |N | JSR (A3) 00020ad6 54 4f |TO | ADDQ.L #0x2,A7 00020ad8 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00020adc 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00020ae2 54 4f |TO | ADDQ.L #0x2,A7 00020ae4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020aea 50 4f |PO | ADDQ.L #0x8,A7 00020aec 4e 94 |N | JSR (A4) 00020aee 5d 4f |]O | SUBQ.L #0x6,A7 00020af0 20 4f | O | MOVEA.L A7,A0 00020af2 43 fa fe da |C | LEA.L 0x209ce,A1 00020af6 70 16 |p | MOVEQ.L #0x16,D0 00020af8 10 d9 | | MOVE.B (A1)+,(A0)+ 00020afa 51 c8 ff fc |Q | DBF D0,0x20af8 00020afe 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020b02 59 4f |YO | SUBQ.L #0x4,A7 00020b04 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020b08 3f 01 |? | MOVE.W D1,-(A7) 00020b0a 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00020b0e 4e 93 |N | JSR (A3) 00020b10 50 4f |PO | ADDQ.L #0x8,A7 00020b12 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020b18 de c3 | | ADDA.W D3,A7 00020b1a 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00020b1e 4e 5e |N^ | UNLK A6 00020b20 4e 75 |Nu | RTS