|
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: @(#)COMMX,1.1,92/07/09,12:00:00, M200_PROGRAM
Names: »COMMX.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »COMMX.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »COMMX.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »COMMX.M200«
@ 20260
<LVAR 0x008 4(r)>
<LVAR -0x00e 2(w)>
<LVAR -0x014 2(w)>
<LVAR -0x018 @>
<LVAR -0x01c 2(w)>
<LVAR -0x03c @>
<LVAR -0x03e @>
<LVAR -0x040 @ 1(r)>
<POP 20260-203b8 Body>
<POP 20260-20276 Prologue> Σ0 ↓
<POP 20276-20282 RegCacheLoad> Σ0 ↓
<POP 20282-20284 Naked> Σ0 ↓
<MI 20282 MOVEQ.L #0x00,D6> {}
<POP 20284-202bc Naked> Σ0 ↓ →0x20284 ←0x20284
<MI 20284 MOVE.B D6,D0> {}
<MI 20286 EXTB.W D0> {}
<MI 20288 MULS.W #0x14,D0> {}
<MI 2028a LEA.L 0x20238,A0> {}
<Blob 0x2028e [20] (A0+D0.W)> Δ-20 {[«20»]}
<POP 2029e-202a0 StackAdj> Δ-4 {[«20»]|[-4-]}
<Lit 0x202a0> {[«20»]|[$$…]}
<Pointer.sp 0x202a0 4> Δ-4
<Const 0x202a4 0x1.2> Δ-2
<Const 0x202a6 0x14.2> Δ-2
<Call 0x202a8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 202aa-202ac StackAdj> Δ+8
<Call 0x202ac 0x103e0> {[«20»]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 202b2-202b6 StackAdj> Δ+24 {}
<MI 202b6 ADDQ.B #0x1,D6> {}
<MI 202b8 CMP.B #0x01,D6> {}
<MI 202ba BLE 0x20284> {}
<POP 202bc-2030a Naked> Σ0 ↓
<Blob 0x202bc [20] @> Δ-20 {[«20""»]}
<POP 202c8-202ca StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x202ca 20> {[«20""»]|[-4-]|[$$Enter test option :_]}
<Const 0x202d6 0x0.4> Δ-4 {[«20""»]|[-4-]|[$$Enter test option :_]|[##0]}
<Const 0x202da 0x1.4> Δ-4 {[«20""»]|[-4-]|[$$Enter test option :_]|[##0]|[##1]}
<Call 0x202de 0x103ec> {[«20""»]|[-4-]|[$$Enter test option :_]|[##0]|[##1]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 202e4-202e8 StackAdj> Δ+12 {[«20""»]|[-4-]}
<MI 202e8 MOVE.L (A7)+,D0> Δ+4 {[«20""»]}
<POP 0x202ea LimitCheck 0x0 ≤ D0 ≤ 0xff> {[«20""»]}
<POP 202f4-202f6 StackAdj> Δ+20 {}
<MI 202f6 MOVE.W D0,(A6-0x1c)> {}
<MI 202fa MOVEA.L (A6+0x8),A0> {}
<MI 202fe MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<MI 20300 MOVE.B (A7)+,D0> Δ+2 {}
<MI 20302 EXTB.W D0> {}
<POP 0x20304 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 20306 MOVE.B D0,(A0)> {}
<MI 20308 MOVEQ.L #0x00,D5> {}
<POP 2030a-2030c Naked> Σ0 ↓ ←0x20338
<MI 2030a MOVEQ.L #0x00,D7> {}
<POP 2030c-20338 Naked> Σ0 ↓ →0x2030c ←0x2030c
<POP 0x2030c LimitCheck 0x0 ≤ D5 ≤ 0xf> {}
<MI 20312 MOVE.L D5,D0> {}
<MI 20314 ASL.L #0x1,D0> {}
<POP 0x20316 LimitCheck 0x0 ≤ D7 ≤ 0xf> {}
<MI 2031c LEA.L (A6+D0.L-#0x3c),A0> {}
<MI 20320 MOVE.L D7,D0> {}
<MI 20322 ROR.L #0x3,D0> {}
<MI 20324 ADDA.W D0,A0> {}
<MI 20326 SWAP.W D0> {}
<MI 20328 ROL.W #0x3,D0> {}
<MI 2032a MOVE.W #0xff7f,D1> {}
<MI 2032e ROR.W D0,D1> {}
<MI 20330 AND.B D1,(A0)> {}
<MI 20332 ADDQ.L #0x1,D7> {}
<MI 20334 CMP.L #0x0f,D7> {}
<MI 20336 BLE 0x2030c> {}
<POP 20338-2033e Naked> Σ0 ↓ →0x2030a
<MI 20338 ADDQ.L #0x1,D5> {}
<MI 2033a CMP.L #0x0f,D5> {}
<MI 2033c BLE 0x2030a> {}
<POP 2033e-20374 Naked> Σ0 ↓ →0x2039e
<MI 2033e MOVE.W #0x01,(A6-0x14)> {}
<MI 20342 MOVE.W #0x2,(A6-0xe)> {}
<Pointer.fp 0x20348 <LVAR -0x018 @>> Δ-4 {[@@-24]}
<MI 2034c LEA.L (A6-0x3e),A0> {[@@-24]}
<MI 20350 MOVE.L A0,-(A7)> Δ-4 {[@@-24]|[4, 'A0']}
<Const 0x20352 0x3.2> Δ-2 {[@@-24]|[4, 'A0']|[#3]}
<Call 0x20356 0x10204> {[@@-24]|[4, 'A0']|[#3]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 2035c-2035e StackAdj> Δ+8 {[-2-]}
<POP 2035e-2035f StackAdj> Δ+2 {}
<Const 0x2035f 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20362 <LVAR -0x040 @ 1(r)>> Δ-4 {[#3]|[@@-64]}
<Call 0x20366 0x10206> {[#3]|[@@-64]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 2036c-2036e StackAdj> Δ+6 {}
<MI 2036e TST.B (A6-0x40)> {}
<MI 20372 BNE 0x2039e> {}
<POP 20374-2039e Naked> Σ0 ↓
<Blob 0x20374 [34] @> Δ-34 {[«34""»]}
<Const 0x20380 0xe.2> Δ-2 {[«34""»]|[#14]}
<POP 20384-20386 StackAdj> Δ-4 {[«34""»]|[#14]|[-4-]}
<Lit 0x20386 34> {[«34""»]|[#14]|[$$DH11 configuration request failed.]}
<Call 0x20394 0x103b8> {[«34""»]|[#14]|[$$DH11 configuration request failed.]}
PopProgram(status : Byte; msg : String)
<POP 2039a-2039e StackAdj> Δ+40 {}
<POP 2039e-203b0 Naked> Σ0 ↓ ←0x2033e
<MI 2039e LEA.L 0x20abe,A0> {}
<MI 203a4 LEA.L (A6-0x3c),A1> {}
<BlockMove 32,A1,A0> {}
<POP 203b0-203b8 Epilogue> Σ0
@ 203b8
<LVAR 0x010 1(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x00a @ 2(r)>
<POP 203b8-20424 Body>
<POP 203b8-203ce Prologue> Σ0 ↓
<POP 203ce-203d2 RegCacheLoad> Σ0 ↓
<POP 203d2-203f6 Naked> Σ0 ↓ →0x203f8 ←0x203f8 ←0x20412
<MI 203d2 MOVE.L (A6+0xc),D0> {}
<POP 0x203d6 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 203e0 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x203e2 <LVAR -0x00a @ 2(r)>> Δ-4 {[2, 'D0']|[@@-10]}
<Call 0x203e4 0x1021c> {[2, 'D0']|[@@-10]}
KERNCALL_0e
<POP 203ea-203ec StackAdj> Δ+6 {}
<MI 203ec MOVEQ.L #0x00,D7> {}
<MI 203ee MOVE.W (A6-0xa),D0> {}
<MI 203f0 ANDI.W #0x8000,D0> {}
<MI 203f4 BEQ 0x203f8> {}
<POP 203f6-203f8 Naked> Σ0 ↓
<MI 203f6 ADDQ.B #0x1,D7> {}
<POP 203f8-20412 Naked> Σ0 ↓ →0x203d2 ←0x203d2
<MI 203f8 MOVE.W (A6-0xa),D0> {}
<MI 203fa ANDI.W #0x0f00,D0> {}
<MI 203fe LSR.W #0x8,D0> {}
<MI 20400 CLR.L D1> {}
<MI 20402 MOVE.W D0,D1> {}
<MI 20404 MOVE.L D1,D6> {}
<MI 20406 MOVE.W (A6-0xa),D0> {}
<MI 20408 ANDI.W #0x00ff,D0> {}
<MI 2040c MOVE.B D0,D5> {}
<MI 2040e TST.B D7> {}
<MI 20410 BEQ 0x203d2> {}
<POP 20412-20418 Naked> Σ0 ↓ →0x203d2
<MI 20412 CMP.L (A6+0x8),D6> {}
<MI 20416 BNE 0x203d2> {}
<POP 20418-2041c Naked> Σ0 ↓
<MI 20418 MOVE.B D5,(A6+0x10)> {}
<POP 2041c-20424 Epilogue> Σ0
@ 20424
<LVAR 0x010 @ 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20424-2049a Body>
<POP 20424-2043a Prologue> Σ0 ↓
<POP 2043a-2043e RegCacheLoad> Σ0 ↓
<POP 2043e-20492 Naked> Σ0 ↓
<MI 2043e MOVE.L (A6+0x10),-(A7)> Δ-4 {[4, '(A6+0x10)']}
<Const 0x20440 0xa.2> Δ-2 {[4, '(A6+0x10)']|[#10]}
<Call 0x20444 0x102c0> {[4, '(A6+0x10)']|[#10]}
AppendChar(MOD b : String; a : char)
<POP 2044a-2044c StackAdj> Δ+2 {[4, '(A6+0x10)']}
<MI 2044c MOVE.L (A6+0x10),(A7)> {[4, '(A6+0x10)']}
<Const 0x2044e 0xd.2> Δ-2 {[4, '(A6+0x10)']|[#13]}
<Call 0x20452 0x102c0> {[4, '(A6+0x10)']|[#13]}
AppendChar(MOD b : String; a : char)
<POP 20458-2045a StackAdj> Δ+6 {}
<MI 2045a MOVE.L (A6+0xc),D0> {}
<POP 0x2045e LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20468 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<MI 2046a MOVE.L (A6+0x8),D0> {[2, 'D0']}
<POP 0x2046e LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[2, 'D0']}
<MI 20478 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']|[2, 'D0']}
<MI 2047a MOVE.L (A6+0x10),-(A7)> Δ-4 {[2, 'D0']|[2, 'D0']|[4, '(A6+0x10)']}
<Call 0x2047c 0x1021a> {[2, 'D0']|[2, 'D0']|[4, '(A6+0x10)']}
KC0d_Write_Modem_String(Word, Word, Char)
<POP 20482-20484 StackAdj> Δ+8 {}
<Pointer.fp 0x20484 <LVAR 0x010 @ 4(r)>> Δ-4 {[@@16]}
<Const 0x20486 0x80.4> Δ-4 {[@@16]|[##128]}
<Call 0x2048a 0x102a8> {[@@16]|[##128]}
Free2(a : Pointer; b : Long)
<POP 20490-20492 StackAdj> Δ+8 {}
<POP 20492-2049a Epilogue> Σ0
@ 2049a
<LVAR -0x00a @ 1(r)>
<LVAR -0x00c @>
<POP 2049a-205e0 Body>
<POP 2049a-204b0 Prologue> Σ0 ↓
<POP 204b0-204c0 RegCacheLoad> Σ0 ↓
<POP 204c0-204e6 Naked> Σ0 ↓
<Blob 0x204c0 [30] @> Δ-30 {[«30""»]}
<POP 204cc-204ce StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x204ce 30> {[«30""»]|[$$Type any character to exit. ]}
<Call 0x204dc 0x103e0> {[«30""»]|[$$Type any character to exit. ]}
WriteConsoleStringCrLf(str : String)
<POP 204e2-204e6 StackAdj> Δ+34 {}
<POP 204e6-204e8 Naked> Σ0 ↓ ←0x205d0
<MI 204e6 MOVEQ.L #0x00,D5> {}
<POP 204e8-204ea Naked> Σ0 ↓ ←0x2058e
<MI 204e8 MOVEQ.L #0x00,D7> {}
<POP 204ea-20518 Naked> Σ0 ↓ →0x20586 ←0x20586
<POP 0x204ea LimitCheck 0x0 ≤ D5 ≤ 0xf> {}
<MI 204f0 MOVE.L D5,D0> {}
<MI 204f2 ASL.L #0x1,D0> {}
<MI 204f4 LEA.L 0x20ab2,A0> {}
<POP 0x204fa LimitCheck 0x0 ≤ D7 ≤ 0xf> {}
<MI 20500 LEA.L (A0+D0.L+#0xc),A0> {}
<MI 20504 MOVE.L D7,D0> {}
<MI 20506 ROR.L #0x3,D0> {}
<MI 20508 ADDA.W D0,A0> {}
<MI 2050a SWAP.W D0> {}
<MI 2050c ROL.W #0x3,D0> {}
<MI 2050e MOVE.B (A0),D1> {}
<MI 20510 LSL.B D0,D1> {}
<MI 20512 LSR.B #0x7,D1> {}
<MI 20514 MOVE.B D1,D6> {}
<MI 20516 BEQ 0x20586> {}
<POP 20518-20586 Naked> Σ0 ↓
<Blob 0x20518 [14] @> Δ-14 {[«14""»]}
<Blob 0x2052a [10] @> Δ-10 {[«14""»]|[«10""»]}
<POP 2053c-2053e StackAdj> Δ-8 {[«14""»]|[«10""»]|[-8-]}
<Lit 0x2053e 13> {[«14""»]|[«10""»]|[-4-]|[$$This is line_]}
<MI 2054a MOVE.L D7,(A7)> {[«14""»]|[«10""»]|[-4-]|[4, 'D7']}
<POP 20548-2054a StackAdj> Δ-8 {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x2054c 0x102e4> {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x20552 9> {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[$$ on unit_]}
<MI 2055e MOVE.L D5,(A7)> {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']}
<POP 2055c-2055e StackAdj> Δ-8 {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-8-]}
<Call 0x20560 0x102e4> {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-8-]}
Long2String(a : Long) : String
<POP 20566-20568 StackAdj> Δ+4 {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-4-]}
<Call 0x20568 0x102d8> {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-4-]}
StringCat4(a, b, c, d : String) : String
<POP 2056e-20572 StackAdj> Δ+16 {[«14""»]|[«10""»]|[-4-]}
<MI 20572 MOVEA.L (A7)+,A4> Δ+4 {[«14""»]|[«10""»]}
<POP 20574-20578 StackAdj> Δ+20 {[-4-]}
<MI 20578 MOVE.L A4,(A7)> {[4, 'A4']}
<MI 2057a MOVE.L D5,-(A7)> Δ-4 {[4, 'A4']|[4, 'D5']}
<MI 2057c MOVE.L D7,-(A7)> Δ-4 {[4, 'A4']|[4, 'D5']|[4, 'D7']}
<Call 0x2057e 0x20424> {[4, 'A4']|[4, 'D5']|[4, 'D7']}
<POP 20582-20586 StackAdj> Δ+12 {}
<POP 20586-2058e Naked> Σ0 ↓ →0x204ea ←0x204ea
<MI 20586 ADDQ.L #0x1,D7> {}
<MI 20588 CMP.L #0x0f,D7> {}
<MI 2058a BLE 0x204ea> {}
<POP 2058e-20596 Naked> Σ0 ↓ →0x204e8
<MI 2058e ADDQ.L #0x1,D5> {}
<MI 20590 CMP.L #0x0f,D5> {}
<MI 20592 BLE 0x204e8> {}
<POP 20596-205b6 Naked> Σ0 ↓ →0x205d0
<MI 20596 MOVE.L 0x20aba,D0> {}
<POP 0x20598 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 205a2 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x205a4 <LVAR -0x00a @ 1(r)>> Δ-4 {[2, 'D0']|[@@-10]}
<Call 0x205a8 0x10212> {[2, 'D0']|[@@-10]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 205ae-205b0 StackAdj> Δ+6 {}
<MI 205b0 TST.B (A6-0xa)> {}
<MI 205b4 BEQ 0x205d0> {}
<POP 205b6-205d0 Naked> Σ0 ↓
<MI 205b6 MOVE.L 0x20aba,D0> {}
<POP 0x205b8 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 205c2 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x205c4 <LVAR -0x00c @>> Δ-4 {[2, 'D0']|[@@-12]}
<Call 0x205c8 0x1020e> {[2, 'D0']|[@@-12]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 205ce-205d0 StackAdj> Δ+6 {}
<POP 205d0-205d8 Naked> Σ0 ↓ →0x204e6 ←0x20596
<MI 205d0 TST.B (A6-0xa)> {}
<MI 205d4 BEQ 0x204e6> {}
<POP 205d8-205e0 Epilogue> Σ0
@ 205e0
<LVAR -0x002 @ 1(r)>
<LVAR -0x010 @ 2(r)>
<POP 205e0-20818 Body>
<POP 205e0-205f6 Prologue> Σ0 ↓
<POP 205f6-20606 RegCacheLoad> Σ0 ↓
<POP 20606-20630 Naked> Σ0 ↓
<Blob 0x20606 [28] @> Δ-28 {[«28""»]}
<POP 20618-2061a StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x2061a 27> {[«28""»]|[$$Type any character to exit.]}
<Call 0x20628 0x103e0> {[«28""»]|[$$Type any character to exit.]}
WriteConsoleStringCrLf(str : String)
<POP 2062e-20630 StackAdj> Δ+32 {}
<POP 20630-20632 Naked> Σ0 ↓ ←0x20808
<MI 20630 MOVEQ.L #0x00,D7> {}
<POP 20632-2064c Naked> Σ0 ↓ →0x207c0 ←0x207c0
<POP 0x20632 LimitCheck 0x0 ≤ D7 ≤ 0xf> {}
<MI 20638 MOVE.L D7,D0> {}
<MI 2063a ASL.L #0x1,D0> {}
<MI 2063c LEA.L 0x20ab2,A0> {}
<MI 20642 MOVE.B (A0+D0.L+#0xc),D1> {}
<MI 20646 LSR.B #0x7,D1> {}
<MI 20648 BEQ 0x207c0> {}
<POP 2064c-2066c Naked> Σ0 ↓ →0x207c0
<POP 0x2064c LimitCheck 0x0 ≤ D7 ≤ 0xffff> {}
<MI 20656 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Pointer.fp 0x20658 <LVAR -0x010 @ 2(r)>> Δ-4 {[2, 'D7']|[@@-16]}
<Call 0x2065a 0x1021c> {[2, 'D7']|[@@-16]}
KERNCALL_0e
<POP 20660-20662 StackAdj> Δ+6 {}
<MI 20662 MOVE.W (A6-0x10),D0> {}
<MI 20664 ANDI.W #0x8000,D0> {}
<MI 20668 BEQ 0x207c0> {}
<POP 2066c-20712 Naked> Σ0 ↓ →0x2073a
<MI 2066c MOVE.W (A6-0x10),D0> {}
<MI 2066e ANDI.W #0x0f00,D0> {}
<MI 20672 LSR.W #0x8,D0> {}
<MI 20674 CLR.L D1> {}
<MI 20676 MOVE.W D0,D1> {}
<MI 20678 MOVE.L D1,D6> {}
<MI 2067a MOVE.W (A6-0x10),D0> {}
<MI 2067c ANDI.W #0x00ff,D0> {}
<MI 20680 CLR.L D1> {}
<MI 20682 MOVE.W D0,D1> {}
<MI 20684 MOVE.L D1,D5> {}
<Blob 0x20686 [6] @> Δ-6 {[«6""»]}
<Blob 0x20696 [10] @> Δ-10 {[«6""»]|[«10""»]}
<Blob 0x206a8 [4] @> Δ-4 {[«6""»]|[«10""»]|[«4""»]}
<Blob 0x206ac [4] @> Δ-4 {[«6""»]|[«10""»]|[«4""»]|[«4""»]}
<Blob 0x206b0 [4] @> Δ-4 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x206b4 [4] @> Δ-4 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 206b8-206ba StackAdj> Δ-8 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x206ba 5> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Line_]}
<MI 206c6 MOVE.L D6,(A7)> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']}
<POP 206c4-206c6 StackAdj> Δ-8 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-8-]}
<Call 0x206c8 0x102e4> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-8-]}
Long2String(a : Long) : String
<Lit 0x206ce 9> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[$$ on unit_]}
<MI 206da MOVE.L D7,(A7)> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']}
<POP 206d8-206da StackAdj> Δ-8 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-8-]}
<Call 0x206dc 0x102e4> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x206e2 16> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[$$ recieved ascii_]}
<MI 206ee MOVE.L D5,(A7)> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']}
<POP 206ec-206ee StackAdj> Δ-8 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-8-]}
<Const 0x206f0 0x2.4> Δ-4 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-8-]|[##2]}
<Call 0x206f4 0x102e8> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-8-]|[##2]}
Long2HexString(val : Long; ndig : Long) : String
<POP 206fa-206fc StackAdj> Δ+8 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-4-]}
<Call 0x206fc 0x102e0> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-4-]}
StringCat6(a, b, c, d, e, f : String) : String
<POP 20702-20706 StackAdj> Δ+24 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 20706 MOVEA.L (A7)+,A4> Δ+4 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 20708-2070a StackAdj> Δ+32 {}
<MI 2070a MOVE.W (A6-0x10),D0> {}
<MI 2070c ANDI.W #0x4000,D0> {}
<MI 20710 BEQ 0x2073a> {}
<POP 20712-2073a Naked> Σ0 ↓
<Blob 0x20712 [4] @> Δ-4 {[«4""»]}
<Blob 0x20716 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 2071a-2071c StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<MI 2071c MOVE.L A4,-(A7)> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, 'A4']}
<POP 2071e-20720 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x20720 8> {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ OVERRUN]}
<Call 0x2072e 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ OVERRUN]}
StringCat2(a, b : String) : String
<POP 20734-20736 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 20736 MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]}
<POP 20738-2073a StackAdj> Δ+8 {}
<POP 2073a-20742 Naked> Σ0 ↓ →0x2076a ←0x2066c
<MI 2073a MOVE.W (A6-0x10),D0> {}
<MI 2073c ANDI.W #0x2000,D0> {}
<MI 20740 BEQ 0x2076a> {}
<POP 20742-2076a Naked> Σ0 ↓
<Blob 0x20742 [4] @> Δ-4 {[«4""»]}
<Blob 0x20746 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 2074a-2074c StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<MI 2074c MOVE.L A4,-(A7)> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, 'A4']}
<POP 2074e-20750 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x20750 8> {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ FRAMING]}
<Call 0x2075e 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ FRAMING]}
StringCat2(a, b : String) : String
<POP 20764-20766 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 20766 MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]}
<POP 20768-2076a StackAdj> Δ+8 {}
<POP 2076a-20772 Naked> Σ0 ↓ →0x207a2 ←0x2073a
<MI 2076a MOVE.W (A6-0x10),D0> {}
<MI 2076c ANDI.W #0x1000,D0> {}
<MI 20770 BEQ 0x207a2> {}
<POP 20772-207a2 Naked> Σ0 ↓
<Blob 0x20772 [8] @> Δ-8 {[«8""»]}
<POP 20782-20784 StackAdj> Δ-4 {[«8""»]|[-4-]}
<MI 20784 MOVE.L A4,-(A7)> Δ-4 {[«8""»]|[-4-]|[4, 'A4']}
<POP 20786-20788 StackAdj> Δ-4 {[«8""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x20788 7> {[«8""»]|[-4-]|[4, 'A4']|[$$ PARITY]}
<Call 0x20796 0x102d0> {[«8""»]|[-4-]|[4, 'A4']|[$$ PARITY]}
StringCat2(a, b : String) : String
<POP 2079c-2079e StackAdj> Δ+8 {[«8""»]|[-4-]}
<MI 2079e MOVEA.L (A7)+,A4> Δ+4 {[«8""»]}
<POP 207a0-207a2 StackAdj> Δ+8 {}
<POP 207a2-207c0 Naked> Σ0 ↓ ←0x2076a
<POP 207a2-207a4 StackAdj> Δ-4 {[-4-]}
<MI 207a4 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'A4']}
<Call 0x207a6 0x102cc> {[-4-]|[4, 'A4']}
StringDup(a : String) : String
<MI 207ac MOVE.L D7,(A7)> {[-4-]|[4, 'D7']}
<MI 207ae MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D7']|[4, 'D6']}
<Call 0x207b0 0x20424> {[-4-]|[4, 'D7']|[4, 'D6']}
<POP 207b4-207b6 StackAdj> Δ+8 {[-4-]}
<MI 207b6 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x207b8 0x103e0> {[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 207be-207c0 StackAdj> Δ+4 {}
<POP 207c0-207c8 Naked> Σ0 ↓ →0x20632 ←0x20632 ←0x2064c
<MI 207c0 ADDQ.L #0x1,D7> {}
<MI 207c2 CMP.L #0x0f,D7> {}
<MI 207c4 BLE 0x20632> {}
<POP 207c8-207ec Naked> Σ0 ↓ →0x20808
<MI 207c8 MOVE.L 0x20aba,D0> {}
<POP 0x207ce LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 207d8 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x207da <LVAR -0x002 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-2]}
<Call 0x207de 0x10212> {[2, 'D0']|[@@-2]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 207e4-207e6 StackAdj> Δ+6 {}
<MI 207e6 TST.B (A6-0x2)> {}
<MI 207ea BEQ 0x20808> {}
<POP 207ec-20808 Naked> Σ0 ↓
<MI 207ec MOVE.L 0x20aba,D0> {}
<POP 0x207f2 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 207fc MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x207fe <LVAR -0x010 @ 2(r)>> Δ-4 {[2, 'D0']|[@@-16]}
<Call 0x20800 0x1020e> {[2, 'D0']|[@@-16]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20806-20808 StackAdj> Δ+6 {}
<POP 20808-20810 Naked> Σ0 ↓ →0x20630 ←0x207c8
<MI 20808 TST.B (A6-0x2)> {}
<MI 2080c BEQ 0x20630> {}
<POP 20810-20818 Epilogue> Σ0
@ 20818
START
<POP 20818--0001 Body>
<POP 20818-20822 Prologue> Σ0
<POP 20822-2082a RegCacheLoad> Σ0 ↓
<POP 2082a-2088a Naked> Σ0 →0x2088e →0x20894
<Call 0x2082a 0x10398> {}
FSCALL_10398
<POP 20830-20832 StackAdj> Δ-4 {[-4-]}
<Call 0x20832 0x103f8> {[-4-]}
GetConsoleConfig() : Long
<MI 20838 MOVE.L (A7),0x20aba> {[-4-]}
<POP 2083e-2083f StackAdj> Δ+4 ↓ {}
<Blob 0x2083f [38] @> Δ-38 {[«38""»]}
<POP 20850-20852 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x20852 37> {[«38""»]|[$$DH11 Communications multiplexer test.]}
<Call 0x20864 0x103e0> {[«38""»]|[$$DH11 Communications multiplexer test.]}
WriteConsoleStringCrLf(str : String)
<POP 2086a-2086e StackAdj> Δ+42 {}
<Const 0x2086e 0x20ade.4> Δ-4 {[##133854]}
<Call 0x20870 0x20260> {[##133854]}
<POP 20874-20876 StackAdj> Δ+4 {}
<MI 20876 MOVE.B 0x20ade,D0> {}
<MI 20878 EXTB.W D0> {}
<POP 0x2087a LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 20880 ADD.W D0,D0> {}
<MI 20882 SWITCH D0.W> {}
<POP 2088e-20894 Naked> Σ0 →0x20898 ←0x2082a
<Call 0x2088e 0x205e0> {}
<MI 20892 BRA 0x20898> {}
<POP 20894-20898 Naked> Σ0 ↓ ←0x2082a
<Call 0x20894 0x2049a> {}
<POP 20898-208a6 Naked> Σ0 ↓ ←0x2088e
<MI 20898 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2089a 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x2089e 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 208a4-208a6 StackAdj> Δ+6 {}
<POP 208a6-208ac Naked> Σ0
<Call 0x208a6 0x10284> {}
?exit
@ 208ba
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 208ba-20922 Body>
<POP 208ba-208d0 Prologue> Σ0 ↓
<POP 208d0-2091a Naked> Σ0 ↓
<Blob 0x208d0 [14] @> Δ-14 {[«14""»]}
<Const 0x208dc 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 208e0-208e2 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x208e2 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 208f4-208f6 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 208f6 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 208fa EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 208fc EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 208fe MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x20900 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 20906-20908 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x20908 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2090e-20910 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x20910 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 20916-2091a StackAdj> Δ+20 {}
<POP 2091a-20922 Epilogue> Σ0
@ 20976
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 20976-20ab2 Body>
<POP 20976-2098c Prologue> Σ0 ↓
<POP 2098c-209a2 RegCacheLoad> Σ0 ↓
<POP 209a2-20a02 Naked> Σ0 ↓ →0x20a4a
<Call 0x209a2 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x209a8 [18] @> Δ-18 {[«18""»]}
<POP 209b4-209b6 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x209b6 18> {[«18""»]|[$$Experiment error :]}
<Call 0x209c2 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 209c4-209c5 StackAdj> Δ+22 ↓ {}
<Blob 0x209c5 [14] @> Δ-14 {[«14""»]}
<POP 209d4-209d6 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x209d6 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 209e0-209e2 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 209e2 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x209e6 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 209ec-209ee StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x209ee 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 209f4-209f6 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x209f6 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 209f8-209fa StackAdj> Δ+18 {}
<MI 209fa MOVEA.L (A6+0xa),A0> {}
<MI 209fe CMPA.W #0x01,A0> {}
<MI 20a00 BEQ 0x20a4a> {}
<POP 20a02-20a4a Naked> Σ0 ↓
<Blob 0x20a02 [14] @> Δ-14 {[«14""»]}
<Blob 0x20a12 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 20a22-20a24 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x20a24 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 20a2e-20a30 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x20a30> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x20a30 12> Δ-4
<Const 0x20a34 0x1.2> Δ-2
<Const 0x20a36 0x1e.2> Δ-2
<Call 0x20a38 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20a3a-20a3c StackAdj> Δ+8
<Call 0x20a3c 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20a42-20a44 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x20a44 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20a46-20a4a StackAdj> Δ+48 {}
<POP 20a4a-20aaa Naked> Σ0 ↓ ←0x209a2
<Blob 0x20a4a [14] @> Δ-14 {[«14""»]}
<POP 20a5a-20a5c StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20a5c 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 20a66-20a68 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 20a68 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x20a6c 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 20a72-20a74 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x20a74 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20a7a-20a7c StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20a7c 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20a7e-20a7f StackAdj> Δ+18 ↓ {}
<Blob 0x20a7f [24] @> Δ-24 {[«24""»]}
<Const 0x20a8e 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 20a92-20a94 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x20a94 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x20aa2 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 20aa8-20aaa StackAdj> Δ+30 {}
<POP 20aaa-20ab2 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.6d8282b7e0b00a0c 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 08 18 | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 0a f2 | | .PTR 0x20af2 00020010 code.end: 00020010 00 02 0a b2 | | .PTR 0x20ab2 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 08 ba | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 09 76 | v | .CODE EXP_FAIL 00020020 00 00 00 00 | | .CONST 0x00000000 00020024 exp_init_done: 00020024 00 | | .CONST 0x00 00020025 00 | | .CONST 0x00 00020026 00 00 | | .CONST 0x0000 00020028 00 00 | | .CONST 0x0000 0002002a 00 00 | | .XXX[0x2] 0002002c 00 00 | | .CONST 0x0000 0002002e 00 00 | | .CONST 0x0000 00020030 00 00 | | .CONST 0x0000 00020032 00 00 00 00 00 00 | | .XXX[0x6] 00020038 00 00 00 00 00 00 00 00 | | .BLANK 00[0xb0] 000200e8 00 00 00 00 | | .XXX[0x4] 000200ec 00 00 00 00 | | .PTR 0x0 000200f0 is_open_ERROR_LOG: 000200f0 00 | | .CONST 0x0 000200f1 write_error_ERROR_LOG: 000200f1 00 | | .CONST 0x0 000200f2 00 00 00 00 | | .CONST 0x00000000 000200f6 00 00 00 00 | | .CONST 0x00000000 000200fa 00 | | .CONST 0x00 000200fb 00 | | .CONST 0x00 000200fc file_ERROR_LOG: 000200fc 00 00 00 00 | | .CONST 0x00000000 00020100 00 00 00 00 | | .CONST 0x00000000 00020104 00 00 | | .CONST 0x0000 00020106 00 00 | | .CONST 0x0000 00020108 somekindoffsflag: 00020108 00 | | .CONST 0x00 00020109 00 | | .CONST 0x00 0002010a 40 28 23 29 43 4f |@(#)CO | .XXX[0x6] 00020110 4d 4d 58 2c 31 2e 31 2c |MMX,1.1,| .XXX[0x40] 00020118 39 32 2f 30 37 2f 30 39 |92/07/09| 00020120 2c 31 32 3a 30 30 3a 30 |,12:00:0| 00020128 30 5c 20 20 20 20 30 20 |0\ 0 | 00020130 2d 20 49 6e 70 75 74 20 |- Input | 00020138 74 65 73 74 20 20 20 20 |test | 00020140 20 20 31 20 2d 20 4f 75 | 1 - Ou| 00020148 74 70 75 74 20 74 65 73 |tput tes| 00020150 74 20 |t | .XXX[0x2] 00020152 45 6e 74 65 72 20 74 65 |Enter te| .TXT 'Enter test option :_' 00020166 44 48 31 31 20 63 6f 6e |DH11 con| .TXT 'DH11 configuration request failed.' 00020188 54 79 70 65 20 61 6e 79 |Type any| .TXT 'Type any character to exit. ' 000201a6 54 68 69 73 20 69 73 20 |This is | .TXT 'This is line_ ' 000201b4 20 6f 6e 20 75 6e 69 74 | on unit| .TXT ' on unit_ ' 000201be 54 79 70 65 20 61 6e 79 |Type any| .TXT 'Type any character to exit. ' 000201da 4c 69 6e 65 5f 20 |Line_ | .TXT 'Line_ ' 000201e0 20 6f 6e 20 75 6e 69 74 | on unit| .TXT ' on unit_ ' 000201ea 20 72 65 63 | rec | .TXT ' rec' 000201ee 69 65 76 65 |ieve | .TXT 'ieve' 000201f2 64 20 61 73 |d as | .TXT 'd as' 000201f6 63 69 69 5f |cii_ | .TXT 'cii_' 000201fa 20 4f 56 45 | OVE | .TXT ' OVE' 000201fe 52 52 55 4e |RRUN | .TXT 'RRUN' 00020202 20 46 52 41 | FRA | .TXT ' FRA' 00020206 4d 49 4e 47 |MING | .TXT 'MING' 0002020a 20 50 41 52 49 54 59 20 | PARITY | .TXT ' PARITY ' 00020212 44 48 31 31 20 43 6f 6d |DH11 Com| .TXT 'DH11 Communications multiplexer test. ' 00020238 20 20 20 20 30 20 2d 20 | 0 - | .XXX[0x28] 00020240 49 6e 70 75 74 20 74 65 |Input te| 00020248 73 74 20 20 20 20 20 20 |st | 00020250 31 20 2d 20 4f 75 74 70 |1 - Outp| 00020258 75 74 20 74 65 73 74 20 |ut test | 00020260 ; -------------------------------------------------------------------------------------- 00020260 ; OMSI PASCAL Function 00020260 ; <LVAR 0x008 4(r)> 00020260 ; <LVAR -0x00e 2(w)> 00020260 ; <LVAR -0x014 2(w)> 00020260 ; <LVAR -0x018 @> 00020260 ; <LVAR -0x01c 2(w)> 00020260 ; <LVAR -0x03c @> 00020260 ; <LVAR -0x03e @> 00020260 ; <LVAR -0x040 @ 1(r)> 00020260 ; -------------------------------------------------------------------------------------- 00020260 4e 56 ff 60 |NV ` | LINK.W A6,#0xff60 00020264 bf d5 | | CMPA.L (A5),A7 00020266 62 06 |b | BHI 0x2026e 00020268 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002026c 4e 76 |Nv | TRAPV 0002026e de fc 00 60 | ` | ADDA.W #0x60,A7 00020272 48 e7 ff e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020276 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 0002027c 74 01 |t | MOVEQ.L #0x01,D2 0002027e 76 14 |v | MOVEQ.L #0x14,D3 00020280 78 0f |x | MOVEQ.L #0x0f,D4 00020282 7c 00 || | MOVEQ.L #0x00,D6 00020284 10 06 | | MOVE.B D6,D0 00020286 48 80 |H | EXTB.W D0 00020288 c1 c3 | | MULS.W D3,D0 0002028a 41 fa ff ac |A | LEA.L 0x20238,A0 0002028e 9e c3 | | SUBA.W D3,A7 00020290 22 4f |"O | MOVEA.L A7,A1 00020292 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00020296 70 13 |p | MOVEQ.L #0x13,D0 00020298 12 d8 | | MOVE.B (A0)+,(A1)+ 0002029a 51 c8 ff fc |Q | DBF D0,0x20298 0002029e 59 4f |YO | SUBQ.L #0x4,A7 000202a0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000202a4 3f 02 |? | MOVE.W D2,-(A7) 000202a6 3f 03 |? | MOVE.W D3,-(A7) 000202a8 4e 92 |N | JSR (A2) 000202aa 50 4f |PO | ADDQ.L #0x8,A7 000202ac 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000202b2 de fc 00 18 | | ADDA.W #0x18,A7 000202b6 52 06 |R | ADDQ.B #0x1,D6 000202b8 bc 02 | | CMP.B D2,D6 000202ba 6f c8 |o | BLE 0x20284 000202bc 41 fa fe a8 |A | LEA.L 0x20166,A0 000202c0 70 04 |p | MOVEQ.L #0x04,D0 000202c2 2f 20 |/ | MOVE.L -(A0),-(A7) 000202c4 51 c8 ff fc |Q | DBF D0,0x202c2 000202c8 51 4f |QO | SUBQ.L #0x8,A7 000202ca 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000202ce 3f 02 |? | MOVE.W D2,-(A7) 000202d0 3f 03 |? | MOVE.W D3,-(A7) 000202d2 4e 92 |N | JSR (A2) 000202d4 50 4f |PO | ADDQ.L #0x8,A7 000202d6 48 78 00 00 |Hx | PEA.L 0x0 000202da 48 78 00 01 |Hx | PEA.L 0x1 000202de 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000202e4 de fc 00 0c | | ADDA.W #0xc,A7 000202e8 20 1f | | MOVE.L (A7)+,D0 000202ea 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 000202f0 63 02 |c | BLS 0x202f4 000202f2 4e 4f |NO | TRAP #15 000202f4 de c3 | | ADDA.W D3,A7 000202f6 3d 40 ff e4 |=@ | MOVE.W D0,(A6-0x1c) 000202fa 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000202fe 1f 00 | | MOVE.B D0,-(A7) 00020300 10 1f | | MOVE.B (A7)+,D0 00020302 48 80 |H | EXTB.W D0 00020304 41 82 |A | CHK.W D2,D0 00020306 10 80 | | MOVE.B D0,(A0) 00020308 7a 00 |z | MOVEQ.L #0x00,D5 0002030a 7e 00 |~ | MOVEQ.L #0x00,D7 0002030c ba 84 | | CMP.L D4,D5 0002030e 63 02 |c | BLS 0x20312 00020310 4e 4f |NO | TRAP #15 00020312 20 05 | | MOVE.L D5,D0 00020314 e3 80 | | ASL.L #0x1,D0 00020316 be 84 | | CMP.L D4,D7 00020318 63 02 |c | BLS 0x2031c 0002031a 4e 4f |NO | TRAP #15 0002031c 41 f6 08 c4 |A | LEA.L (A6+D0.L-#0x3c),A0 00020320 20 07 | | MOVE.L D7,D0 00020322 e6 98 | | ROR.L #0x3,D0 00020324 d0 c0 | | ADDA.W D0,A0 00020326 48 40 |H@ | SWAP.W D0 00020328 e7 58 | X | ROL.W #0x3,D0 0002032a 32 3c ff 7f |2< | MOVE.W #0xff7f,D1 0002032e e0 79 | y | ROR.W D0,D1 00020330 c3 10 | | AND.B D1,(A0) 00020332 52 87 |R | ADDQ.L #0x1,D7 00020334 be 84 | | CMP.L D4,D7 00020336 6f d4 |o | BLE 0x2030c 00020338 52 85 |R | ADDQ.L #0x1,D5 0002033a ba 84 | | CMP.L D4,D5 0002033c 6f cc |o | BLE 0x2030a 0002033e 3d 42 ff ec |=B | MOVE.W D2,(A6-0x14) 00020342 3d 7c 00 02 ff f2 |=| | MOVE.W #0x2,(A6-0xe) 00020348 48 6e ff e8 |Hn | PEA.L (A6-0x18) 0002034c 41 ee ff c2 |A | LEA.L (A6-0x3e),A0 00020350 2f 08 |/ | MOVE.L A0,-(A7) 00020352 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00020356 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 0002035c 50 4f |PO | ADDQ.L #0x8,A7 0002035e 3e bc 00 03 |> | MOVE.W #0x3,(A7) 00020362 48 6e ff c0 |Hn | PEA.L (A6-0x40) 00020366 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 0002036c 5c 4f |\O | ADDQ.L #0x6,A7 0002036e 4a 2e ff c0 |J. | TST.B (A6-0x40) 00020372 66 2a |f* | BNE 0x2039e 00020374 41 fa fe 12 |A | LEA.L 0x20188,A0 00020378 70 10 |p | MOVEQ.L #0x10,D0 0002037a 3f 20 |? | MOVE.W -(A0),-(A7) 0002037c 51 c8 ff fc |Q | DBF D0,0x2037a 00020380 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020384 59 4f |YO | SUBQ.L #0x4,A7 00020386 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002038a 3f 02 |? | MOVE.W D2,-(A7) 0002038c 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00020390 4e 92 |N | JSR (A2) 00020392 50 4f |PO | ADDQ.L #0x8,A7 00020394 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002039a de fc 00 28 | ( | ADDA.W #0x28,A7 0002039e 41 f9 00 02 0a be |A | LEA.L 0x20abe,A0 000203a4 43 ee ff c4 |C | LEA.L (A6-0x3c),A1 000203a8 70 07 |p | MOVEQ.L #0x07,D0 000203aa 20 d9 | | MOVE.L (A1)+,(A0)+ 000203ac 51 c8 ff fc |Q | DBF D0,0x203aa 000203b0 4c df 07 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2 000203b4 4e 5e |N^ | UNLK A6 000203b6 4e 75 |Nu | RTS 000203b8 ; -------------------------------------------------------------------------------------- 000203b8 ; OMSI PASCAL Function 000203b8 ; <LVAR 0x010 1(w)> 000203b8 ; <LVAR 0x00c 4(r)> 000203b8 ; <LVAR 0x008 4(r)> 000203b8 ; <LVAR -0x00a @ 2(r)> 000203b8 ; -------------------------------------------------------------------------------------- 000203b8 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 ; Spelunked 000203bc bf d5 | | CMPA.L (A5),A7 000203be 62 06 |b | BHI 0x203c6 000203c0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000203c4 4e 76 |Nv | TRAPV 000203c6 de fc 00 22 | " | ADDA.W #0x22,A7 000203ca 48 e7 c7 80 |H | MOVEM.L A0+D7+D6+D5+D1+D0,-(A7) 000203ce 41 ee ff f6 |A | LEA.L (A6-0xa),A0 000203d2 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 000203d6 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000203dc 63 02 |c | BLS 0x203e0 000203de 4e 4f |NO | TRAP #15 000203e0 3f 00 |? | MOVE.W D0,-(A7) 000203e2 48 50 |HP | PEA.L (A0) 000203e4 4e b9 00 01 02 1c |N | JSR KERNCALL_0e 000203ea 5c 4f |\O | ADDQ.L #0x6,A7 000203ec 7e 00 |~ | MOVEQ.L #0x00,D7 000203ee 30 10 |0 | MOVE.W (A0),D0 000203f0 02 40 80 00 | @ | ANDI.W #0x8000,D0 000203f4 67 02 |g | BEQ 0x203f8 000203f6 52 07 |R | ADDQ.B #0x1,D7 000203f8 30 10 |0 | MOVE.W (A0),D0 000203fa 02 40 0f 00 | @ | ANDI.W #0x0f00,D0 000203fe e0 48 | H | LSR.W #0x8,D0 00020400 42 81 |B | CLR.L D1 00020402 32 00 |2 | MOVE.W D0,D1 00020404 2c 01 |, | MOVE.L D1,D6 00020406 30 10 |0 | MOVE.W (A0),D0 00020408 02 40 00 ff | @ | ANDI.W #0x00ff,D0 0002040c 1a 00 | | MOVE.B D0,D5 0002040e 4a 07 |J | TST.B D7 00020410 67 c0 |g | BEQ 0x203d2 00020412 bc ae 00 08 | | CMP.L (A6+0x8),D6 00020416 66 ba |f | BNE 0x203d2 00020418 1d 45 00 10 | E | MOVE.B D5,(A6+0x10) 0002041c 4c df 01 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0 00020420 4e 5e |N^ | UNLK A6 00020422 4e 75 |Nu | RTS 00020424 ; -------------------------------------------------------------------------------------- 00020424 ; OMSI PASCAL Function 00020424 ; <LVAR 0x010 @ 4(r)> 00020424 ; <LVAR 0x00c 4(r)> 00020424 ; <LVAR 0x008 4(r)> 00020424 ; -------------------------------------------------------------------------------------- 00020424 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00020428 bf d5 | | CMPA.L (A5),A7 0002042a 62 06 |b | BHI 0x20432 0002042c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020430 4e 76 |Nv | TRAPV 00020432 de fc 00 14 | | ADDA.W #0x14,A7 00020436 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002043a 41 ee 00 10 |A | LEA.L (A6+0x10),A0 0002043e 2f 10 |/ | MOVE.L (A0),-(A7) 00020440 1f 3c 00 0a | < | MOVE.B #0x0a,-(A7) 00020444 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002044a 54 4f |TO | ADDQ.L #0x2,A7 0002044c 2e 90 |. | MOVE.L (A0),(A7) 0002044e 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 00020452 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020458 5c 4f |\O | ADDQ.L #0x6,A7 0002045a 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 0002045e 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00020464 63 02 |c | BLS 0x20468 00020466 4e 4f |NO | TRAP #15 00020468 3f 00 |? | MOVE.W D0,-(A7) 0002046a 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 0002046e 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00020474 63 02 |c | BLS 0x20478 00020476 4e 4f |NO | TRAP #15 00020478 3f 00 |? | MOVE.W D0,-(A7) 0002047a 2f 10 |/ | MOVE.L (A0),-(A7) 0002047c 4e b9 00 01 02 1a |N | JSR KC0d_Write_Modem_String(Word, Word, Char) 00020482 50 4f |PO | ADDQ.L #0x8,A7 00020484 48 50 |HP | PEA.L (A0) 00020486 48 78 00 80 |Hx | PEA.L 0x80 0002048a 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 00020490 50 4f |PO | ADDQ.L #0x8,A7 00020492 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020496 4e 5e |N^ | UNLK A6 00020498 4e 75 |Nu | RTS 0002049a ; -------------------------------------------------------------------------------------- 0002049a ; OMSI PASCAL Function 0002049a ; <LVAR -0x00a @ 1(r)> 0002049a ; <LVAR -0x00c @> 0002049a ; -------------------------------------------------------------------------------------- 0002049a 4e 56 ff 80 |NV | LINK.W A6,#0xff80 0002049e bf d5 | | CMPA.L (A5),A7 000204a0 62 06 |b | BHI 0x204a8 000204a2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000204a6 4e 76 |Nv | TRAPV 000204a8 de fc 00 6c | l | ADDA.W #0x6c,A7 000204ac 48 e7 f7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D3+D2+D1+D0,-(A7) 000204b0 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000204b6 47 f9 00 02 0a ba |G | LEA.L 0x20aba,A3 000204bc 74 0f |t | MOVEQ.L #0x0f,D2 000204be 76 01 |v | MOVEQ.L #0x01,D3 000204c0 41 fa fc e4 |A | LEA.L 0x201a6,A0 000204c4 70 0e |p | MOVEQ.L #0x0e,D0 000204c6 3f 20 |? | MOVE.W -(A0),-(A7) 000204c8 51 c8 ff fc |Q | DBF D0,0x204c6 000204cc 59 4f |YO | SUBQ.L #0x4,A7 000204ce 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000204d2 3f 03 |? | MOVE.W D3,-(A7) 000204d4 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 000204d8 4e 92 |N | JSR (A2) 000204da 50 4f |PO | ADDQ.L #0x8,A7 000204dc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000204e2 de fc 00 22 | " | ADDA.W #0x22,A7 000204e6 7a 00 |z | MOVEQ.L #0x00,D5 000204e8 7e 00 |~ | MOVEQ.L #0x00,D7 000204ea ba 82 | | CMP.L D2,D5 000204ec 63 02 |c | BLS 0x204f0 000204ee 4e 4f |NO | TRAP #15 000204f0 20 05 | | MOVE.L D5,D0 000204f2 e3 80 | | ASL.L #0x1,D0 000204f4 41 f9 00 02 0a b2 |A | LEA.L 0x20ab2,A0 000204fa be 82 | | CMP.L D2,D7 000204fc 63 02 |c | BLS 0x20500 000204fe 4e 4f |NO | TRAP #15 00020500 41 f0 08 0c |A | LEA.L (A0+D0.L+#0xc),A0 00020504 20 07 | | MOVE.L D7,D0 00020506 e6 98 | | ROR.L #0x3,D0 00020508 d0 c0 | | ADDA.W D0,A0 0002050a 48 40 |H@ | SWAP.W D0 0002050c e7 58 | X | ROL.W #0x3,D0 0002050e 12 10 | | MOVE.B (A0),D1 00020510 e1 29 | ) | LSL.B D0,D1 00020512 ee 09 | | LSR.B #0x7,D1 00020514 1c 01 | | MOVE.B D1,D6 00020516 67 6e |gn | BEQ 0x20586 00020518 9e fc 00 0e | | SUBA.W #0xe,A7 0002051c 20 4f | O | MOVEA.L A7,A0 0002051e 43 fa fc 86 |C | LEA.L 0x201a6,A1 00020522 70 0c |p | MOVEQ.L #0x0c,D0 00020524 10 d9 | | MOVE.B (A1)+,(A0)+ 00020526 51 c8 ff fc |Q | DBF D0,0x20524 0002052a 9e fc 00 0a | | SUBA.W #0xa,A7 0002052e 20 4f | O | MOVEA.L A7,A0 00020530 43 fa fc 82 |C | LEA.L 0x201b4,A1 00020534 70 08 |p | MOVEQ.L #0x08,D0 00020536 10 d9 | | MOVE.B (A1)+,(A0)+ 00020538 51 c8 ff fc |Q | DBF D0,0x20536 0002053c 51 4f |QO | SUBQ.L #0x8,A7 0002053e 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00020542 3f 03 |? | MOVE.W D3,-(A7) 00020544 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00020548 4e 92 |N | JSR (A2) 0002054a 2e 87 |. | MOVE.L D7,(A7) 0002054c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020552 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00020556 3f 03 |? | MOVE.W D3,-(A7) 00020558 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002055c 4e 92 |N | JSR (A2) 0002055e 2e 85 |. | MOVE.L D5,(A7) 00020560 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020566 58 4f |XO | ADDQ.L #0x4,A7 00020568 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 0002056e de fc 00 10 | | ADDA.W #0x10,A7 00020572 28 5f |(_ | MOVEA.L (A7)+,A4 00020574 de fc 00 14 | | ADDA.W #0x14,A7 00020578 2e 8c |. | MOVE.L A4,(A7) 0002057a 2f 05 |/ | MOVE.L D5,-(A7) 0002057c 2f 07 |/ | MOVE.L D7,-(A7) 0002057e 4e ba fe a4 |N | JSR 0x20424 00020582 de fc 00 0c | | ADDA.W #0xc,A7 00020586 52 87 |R | ADDQ.L #0x1,D7 00020588 be 82 | | CMP.L D2,D7 0002058a 6f 00 ff 5e |o ^ | BLE 0x204ea 0002058e 52 85 |R | ADDQ.L #0x1,D5 00020590 ba 82 | | CMP.L D2,D5 00020592 6f 00 ff 54 |o T | BLE 0x204e8 00020596 20 13 | | MOVE.L (A3),D0 00020598 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 0002059e 63 02 |c | BLS 0x205a2 000205a0 4e 4f |NO | TRAP #15 000205a2 3f 00 |? | MOVE.W D0,-(A7) 000205a4 48 6e ff f6 |Hn | PEA.L (A6-0xa) 000205a8 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 000205ae 5c 4f |\O | ADDQ.L #0x6,A7 000205b0 4a 2e ff f6 |J. | TST.B (A6-0xa) 000205b4 67 1a |g | BEQ 0x205d0 000205b6 20 13 | | MOVE.L (A3),D0 000205b8 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000205be 63 02 |c | BLS 0x205c2 000205c0 4e 4f |NO | TRAP #15 000205c2 3f 00 |? | MOVE.W D0,-(A7) 000205c4 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000205c8 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 000205ce 5c 4f |\O | ADDQ.L #0x6,A7 000205d0 4a 2e ff f6 |J. | TST.B (A6-0xa) 000205d4 67 00 ff 10 |g | BEQ 0x204e6 000205d8 4c df 1f ef |L | MOVEM.L (A7)+,D0+D1+D2+D3+D5+D6+D7+A0+A1+A2+A3+A4 000205dc 4e 5e |N^ | UNLK A6 000205de 4e 75 |Nu | RTS 000205e0 ; -------------------------------------------------------------------------------------- 000205e0 ; OMSI PASCAL Function 000205e0 ; <LVAR -0x002 @ 1(r)> 000205e0 ; <LVAR -0x010 @ 2(r)> 000205e0 ; -------------------------------------------------------------------------------------- 000205e0 4e 56 ff 6c |NV l | LINK.W A6,#0xff6c 000205e4 bf d5 | | CMPA.L (A5),A7 000205e6 62 06 |b | BHI 0x205ee 000205e8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000205ec 4e 76 |Nv | TRAPV 000205ee de fc 00 80 | | ADDA.W #0x80,A7 000205f2 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000205f6 45 ee ff f0 |E | LEA.L (A6-0x10),A2 000205fa 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020600 74 01 |t | MOVEQ.L #0x01,D2 00020602 76 20 |v | MOVEQ.L #0x20,D3 00020604 78 0f |x | MOVEQ.L #0x0f,D4 00020606 9e fc 00 1c | | SUBA.W #0x1c,A7 0002060a 20 4f | O | MOVEA.L A7,A0 0002060c 43 fa fb b0 |C | LEA.L 0x201be,A1 00020610 70 1a |p | MOVEQ.L #0x1a,D0 00020612 10 d9 | | MOVE.B (A1)+,(A0)+ 00020614 51 c8 ff fc |Q | DBF D0,0x20612 00020618 59 4f |YO | SUBQ.L #0x4,A7 0002061a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002061e 3f 02 |? | MOVE.W D2,-(A7) 00020620 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00020624 4e 93 |N | JSR (A3) 00020626 50 4f |PO | ADDQ.L #0x8,A7 00020628 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002062e de c3 | | ADDA.W D3,A7 00020630 7e 00 |~ | MOVEQ.L #0x00,D7 00020632 be 84 | | CMP.L D4,D7 00020634 63 02 |c | BLS 0x20638 00020636 4e 4f |NO | TRAP #15 00020638 20 07 | | MOVE.L D7,D0 0002063a e3 80 | | ASL.L #0x1,D0 0002063c 41 f9 00 02 0a b2 |A | LEA.L 0x20ab2,A0 00020642 12 30 08 0c | 0 | MOVE.B (A0+D0.L+#0xc),D1 00020646 ee 09 | | LSR.B #0x7,D1 00020648 67 00 01 76 |g v | BEQ 0x207c0 0002064c 0c 87 00 00 ff ff | | CMPI.L #0x0000ffff,D7 00020652 63 02 |c | BLS 0x20656 00020654 4e 4f |NO | TRAP #15 00020656 3f 07 |? | MOVE.W D7,-(A7) 00020658 48 52 |HR | PEA.L (A2) 0002065a 4e b9 00 01 02 1c |N | JSR KERNCALL_0e 00020660 5c 4f |\O | ADDQ.L #0x6,A7 00020662 30 12 |0 | MOVE.W (A2),D0 00020664 02 40 80 00 | @ | ANDI.W #0x8000,D0 00020668 67 00 01 56 |g V | BEQ 0x207c0 0002066c 30 12 |0 | MOVE.W (A2),D0 0002066e 02 40 0f 00 | @ | ANDI.W #0x0f00,D0 00020672 e0 48 | H | LSR.W #0x8,D0 00020674 42 81 |B | CLR.L D1 00020676 32 00 |2 | MOVE.W D0,D1 00020678 2c 01 |, | MOVE.L D1,D6 0002067a 30 12 |0 | MOVE.W (A2),D0 0002067c 02 40 00 ff | @ | ANDI.W #0x00ff,D0 00020680 42 81 |B | CLR.L D1 00020682 32 00 |2 | MOVE.W D0,D1 00020684 2a 01 |* | MOVE.L D1,D5 00020686 5d 4f |]O | SUBQ.L #0x6,A7 00020688 20 4f | O | MOVEA.L A7,A0 0002068a 43 fa fb 4e |C N | LEA.L 0x201da,A1 0002068e 70 04 |p | MOVEQ.L #0x04,D0 00020690 10 d9 | | MOVE.B (A1)+,(A0)+ 00020692 51 c8 ff fc |Q | DBF D0,0x20690 00020696 9e fc 00 0a | | SUBA.W #0xa,A7 0002069a 20 4f | O | MOVEA.L A7,A0 0002069c 43 fa fb 42 |C B | LEA.L 0x201e0,A1 000206a0 70 08 |p | MOVEQ.L #0x08,D0 000206a2 10 d9 | | MOVE.B (A1)+,(A0)+ 000206a4 51 c8 ff fc |Q | DBF D0,0x206a2 000206a8 2f 3a fb 4c |/: L | MOVE.L 0x201f6,-(A7) 000206ac 2f 3a fb 44 |/: D | MOVE.L 0x201f2,-(A7) 000206b0 2f 3a fb 3c |/: < | MOVE.L 0x201ee,-(A7) 000206b4 2f 3a fb 34 |/: 4 | MOVE.L 0x201ea,-(A7) 000206b8 51 4f |QO | SUBQ.L #0x8,A7 000206ba 48 6f 00 22 |Ho " | PEA.L (A7+0x22) 000206be 3f 02 |? | MOVE.W D2,-(A7) 000206c0 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 000206c4 4e 93 |N | JSR (A3) 000206c6 2e 86 |. | MOVE.L D6,(A7) 000206c8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000206ce 48 6f 00 20 |Ho | PEA.L (A7+0x20) 000206d2 3f 02 |? | MOVE.W D2,-(A7) 000206d4 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 000206d8 4e 93 |N | JSR (A3) 000206da 2e 87 |. | MOVE.L D7,(A7) 000206dc 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000206e2 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000206e6 3f 02 |? | MOVE.W D2,-(A7) 000206e8 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 000206ec 4e 93 |N | JSR (A3) 000206ee 2e 85 |. | MOVE.L D5,(A7) 000206f0 48 78 00 02 |Hx | PEA.L 0x2 000206f4 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 000206fa 50 4f |PO | ADDQ.L #0x8,A7 000206fc 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 00020702 de fc 00 18 | | ADDA.W #0x18,A7 00020706 28 5f |(_ | MOVEA.L (A7)+,A4 00020708 de c3 | | ADDA.W D3,A7 0002070a 30 12 |0 | MOVE.W (A2),D0 0002070c 02 40 40 00 | @@ | ANDI.W #0x4000,D0 00020710 67 28 |g( | BEQ 0x2073a 00020712 2f 3a fa ea |/: | MOVE.L 0x201fe,-(A7) 00020716 2f 3a fa e2 |/: | MOVE.L 0x201fa,-(A7) 0002071a 59 4f |YO | SUBQ.L #0x4,A7 0002071c 2f 0c |/ | MOVE.L A4,-(A7) 0002071e 59 4f |YO | SUBQ.L #0x4,A7 00020720 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020724 3f 02 |? | MOVE.W D2,-(A7) 00020726 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 0002072a 4e 93 |N | JSR (A3) 0002072c 50 4f |PO | ADDQ.L #0x8,A7 0002072e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020734 50 4f |PO | ADDQ.L #0x8,A7 00020736 28 5f |(_ | MOVEA.L (A7)+,A4 00020738 50 4f |PO | ADDQ.L #0x8,A7 0002073a 30 12 |0 | MOVE.W (A2),D0 0002073c 02 40 20 00 | @ | ANDI.W #0x2000,D0 00020740 67 28 |g( | BEQ 0x2076a 00020742 2f 3a fa c2 |/: | MOVE.L 0x20206,-(A7) 00020746 2f 3a fa ba |/: | MOVE.L 0x20202,-(A7) 0002074a 59 4f |YO | SUBQ.L #0x4,A7 0002074c 2f 0c |/ | MOVE.L A4,-(A7) 0002074e 59 4f |YO | SUBQ.L #0x4,A7 00020750 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020754 3f 02 |? | MOVE.W D2,-(A7) 00020756 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 0002075a 4e 93 |N | JSR (A3) 0002075c 50 4f |PO | ADDQ.L #0x8,A7 0002075e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020764 50 4f |PO | ADDQ.L #0x8,A7 00020766 28 5f |(_ | MOVEA.L (A7)+,A4 00020768 50 4f |PO | ADDQ.L #0x8,A7 0002076a 30 12 |0 | MOVE.W (A2),D0 0002076c 02 40 10 00 | @ | ANDI.W #0x1000,D0 00020770 67 30 |g0 | BEQ 0x207a2 00020772 51 4f |QO | SUBQ.L #0x8,A7 00020774 20 4f | O | MOVEA.L A7,A0 00020776 43 fa fa 92 |C | LEA.L 0x2020a,A1 0002077a 70 06 |p | MOVEQ.L #0x06,D0 0002077c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002077e 51 c8 ff fc |Q | DBF D0,0x2077c 00020782 59 4f |YO | SUBQ.L #0x4,A7 00020784 2f 0c |/ | MOVE.L A4,-(A7) 00020786 59 4f |YO | SUBQ.L #0x4,A7 00020788 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002078c 3f 02 |? | MOVE.W D2,-(A7) 0002078e 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00020792 4e 93 |N | JSR (A3) 00020794 50 4f |PO | ADDQ.L #0x8,A7 00020796 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002079c 50 4f |PO | ADDQ.L #0x8,A7 0002079e 28 5f |(_ | MOVEA.L (A7)+,A4 000207a0 50 4f |PO | ADDQ.L #0x8,A7 000207a2 59 4f |YO | SUBQ.L #0x4,A7 000207a4 2f 0c |/ | MOVE.L A4,-(A7) 000207a6 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000207ac 2e 87 |. | MOVE.L D7,(A7) 000207ae 2f 06 |/ | MOVE.L D6,-(A7) 000207b0 4e ba fc 72 |N r | JSR 0x20424 000207b4 50 4f |PO | ADDQ.L #0x8,A7 000207b6 2e 8c |. | MOVE.L A4,(A7) 000207b8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000207be 58 4f |XO | ADDQ.L #0x4,A7 000207c0 52 87 |R | ADDQ.L #0x1,D7 000207c2 be 84 | | CMP.L D4,D7 000207c4 6f 00 fe 6c |o l | BLE 0x20632 000207c8 20 39 00 02 0a ba | 9 | MOVE.L 0x20aba,D0 000207ce 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000207d4 63 02 |c | BLS 0x207d8 000207d6 4e 4f |NO | TRAP #15 000207d8 3f 00 |? | MOVE.W D0,-(A7) 000207da 48 6e ff fe |Hn | PEA.L (A6-0x2) 000207de 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 000207e4 5c 4f |\O | ADDQ.L #0x6,A7 000207e6 4a 2e ff fe |J. | TST.B (A6-0x2) 000207ea 67 1c |g | BEQ 0x20808 000207ec 20 39 00 02 0a ba | 9 | MOVE.L 0x20aba,D0 000207f2 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000207f8 63 02 |c | BLS 0x207fc 000207fa 4e 4f |NO | TRAP #15 000207fc 3f 00 |? | MOVE.W D0,-(A7) 000207fe 48 52 |HR | PEA.L (A2) 00020800 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020806 5c 4f |\O | ADDQ.L #0x6,A7 00020808 4a 2e ff fe |J. | TST.B (A6-0x2) 0002080c 67 00 fe 22 |g " | BEQ 0x20630 00020810 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020814 4e 5e |N^ | UNLK A6 00020816 4e 75 |Nu | RTS 00020818 ; -------------------------------------------------------------------------------------- 00020818 ; OMSI PASCAL Function 00020818 ; -------------------------------------------------------------------------------------- 00020818 START: 00020818 4f fa 00 08 |O | LEA.L MAIN,A7 0002081c 4e f9 00 01 02 80 |N | JMP ?start_program 00020822 MAIN: 00020822 45 f9 00 02 0a de |E | LEA.L 0x20ade,A2 00020828 72 01 |r | MOVEQ.L #0x01,D1 0002082a 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020830 59 4f |YO | SUBQ.L #0x4,A7 00020832 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 00020838 23 d7 00 02 0a ba |# | MOVE.L (A7),0x20aba 0002083e 9e fc 00 22 | " | SUBA.W #0x22,A7 00020842 20 4f | O | MOVEA.L A7,A0 00020844 43 fa f9 cc |C | LEA.L 0x20212,A1 00020848 70 24 |p$ | MOVEQ.L #0x24,D0 0002084a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002084c 51 c8 ff fc |Q | DBF D0,0x2084a 00020850 59 4f |YO | SUBQ.L #0x4,A7 00020852 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020856 3f 01 |? | MOVE.W D1,-(A7) 00020858 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7) 0002085c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020862 50 4f |PO | ADDQ.L #0x8,A7 00020864 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002086a de fc 00 2a | * | ADDA.W #0x2a,A7 0002086e 48 52 |HR | PEA.L (A2) 00020870 4e ba f9 ee |N | JSR 0x20260 00020874 58 4f |XO | ADDQ.L #0x4,A7 00020876 10 12 | | MOVE.B (A2),D0 00020878 48 80 |H | EXTB.W D0 0002087a b0 41 | A | CMP.W D1,D0 0002087c 63 02 |c | BLS 0x20880 0002087e 4e 4e |NN | TRAP #14 00020880 d0 40 | @ | ADD.W D0,D0 00020882 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002088a 00 04 | | .CONST 0x4 ; [0x0] -> 0x2088e 0002088c 00 0a | | .CONST 0xa ; [0x1] -> 0x20894 0002088e switch@0x20882[0x0]: 0002088e 4e ba fd 50 |N P | JSR 0x205e0 00020892 60 04 |` | BRA 0x20898 00020894 switch@0x20882[0x1]: 00020894 4e ba fc 04 |N | JSR 0x2049a 00020898 42 27 |B' | CLR.B -(A7) 0002089a 48 78 00 01 |Hx | PEA.L 0x1 0002089e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000208a4 5c 4f |\O | ADDQ.L #0x6,A7 000208a6 4e b9 00 01 02 84 |N | JSR ?exit 000208ac 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 000208ba ; -------------------------------------------------------------------------------------- 000208ba ; OMSI PASCAL Function 000208ba ; <LVAR 0x008 1(r)> 000208ba ; -------------------------------------------------------------------------------------- 000208ba PROG_FAIL: 000208ba 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 000208be bf d5 | | CMPA.L (A5),A7 000208c0 62 06 |b | BHI 0x208c8 000208c2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000208c6 4e 76 |Nv | TRAPV 000208c8 de fc 00 2c | , | ADDA.W #0x2c,A7 000208cc 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000208d0 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 000208d4 70 06 |p | MOVEQ.L #0x06,D0 000208d6 3f 20 |? | MOVE.W -(A0),-(A7) 000208d8 51 c8 ff fc |Q | DBF D0,0x208d6 000208dc 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000208e0 51 4f |QO | SUBQ.L #0x8,A7 000208e2 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000208e6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000208ea 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000208ee 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000208f4 58 4f |XO | ADDQ.L #0x4,A7 000208f6 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000208fa 48 80 |H | EXTB.W D0 000208fc 48 c0 |H | EXTW.L D0 000208fe 2f 00 |/ | MOVE.L D0,-(A7) 00020900 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020906 58 4f |XO | ADDQ.L #0x4,A7 00020908 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002090e 50 4f |PO | ADDQ.L #0x8,A7 00020910 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020916 de fc 00 14 | | ADDA.W #0x14,A7 0002091a 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 0002091e 4e 5e |N^ | UNLK A6 00020920 4e 75 |Nu | RTS 00020922 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00020930 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 0002093e 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 0002094c 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 0002095e 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00020976 ; -------------------------------------------------------------------------------------- 00020976 ; OMSI PASCAL Function 00020976 ; <LVAR 0x00e 1(r)> 00020976 ; <LVAR 0x00a 4(r)> 00020976 ; <LVAR 0x008 1(r)> 00020976 ; -------------------------------------------------------------------------------------- 00020976 EXP_FAIL: 00020976 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 0002097a bf d5 | | CMPA.L (A5),A7 0002097c 62 06 |b | BHI 0x20984 0002097e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020982 4e 76 |Nv | TRAPV 00020984 de fc 00 74 | t | ADDA.W #0x74,A7 00020988 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 0002098c 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020992 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00020998 72 01 |r | MOVEQ.L #0x01,D1 0002099a 74 0d |t | MOVEQ.L #0x0d,D2 0002099c 76 1e |v | MOVEQ.L #0x1e,D3 0002099e 78 12 |x | MOVEQ.L #0x12,D4 000209a0 7a 0e |z | MOVEQ.L #0x0e,D5 000209a2 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000209a8 41 fa ff b4 |A | LEA.L 0x2095e,A0 000209ac 70 08 |p | MOVEQ.L #0x08,D0 000209ae 3f 20 |? | MOVE.W -(A0),-(A7) 000209b0 51 c8 ff fc |Q | DBF D0,0x209ae 000209b4 59 4f |YO | SUBQ.L #0x4,A7 000209b6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000209ba 3f 01 |? | MOVE.W D1,-(A7) 000209bc 3f 04 |? | MOVE.W D4,-(A7) 000209be 4e 93 |N | JSR (A3) 000209c0 50 4f |PO | ADDQ.L #0x8,A7 000209c2 4e 94 |N | JSR (A4) 000209c4 50 4f |PO | ADDQ.L #0x8,A7 000209c6 20 4f | O | MOVEA.L A7,A0 000209c8 43 fa ff 58 |C X | LEA.L 0x20922,A1 000209cc 70 0c |p | MOVEQ.L #0x0c,D0 000209ce 10 d9 | | MOVE.B (A1)+,(A0)+ 000209d0 51 c8 ff fc |Q | DBF D0,0x209ce 000209d4 51 4f |QO | SUBQ.L #0x8,A7 000209d6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000209da 3f 01 |? | MOVE.W D1,-(A7) 000209dc 3f 02 |? | MOVE.W D2,-(A7) 000209de 4e 93 |N | JSR (A3) 000209e0 54 4f |TO | ADDQ.L #0x2,A7 000209e2 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000209e6 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000209ec 54 4f |TO | ADDQ.L #0x2,A7 000209ee 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000209f4 50 4f |PO | ADDQ.L #0x8,A7 000209f6 4e 94 |N | JSR (A4) 000209f8 de c4 | | ADDA.W D4,A7 000209fa 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000209fe b0 c1 | | CMPA.W D1,A0 00020a00 67 48 |gH | BEQ 0x20a4a 00020a02 9e c5 | | SUBA.W D5,A7 00020a04 22 4f |"O | MOVEA.L A7,A1 00020a06 45 fa ff 28 |E ( | LEA.L 0x20930,A2 00020a0a 70 0c |p | MOVEQ.L #0x0c,D0 00020a0c 12 da | | MOVE.B (A2)+,(A1)+ 00020a0e 51 c8 ff fc |Q | DBF D0,0x20a0c 00020a12 9e c3 | | SUBA.W D3,A7 00020a14 22 4f |"O | MOVEA.L A7,A1 00020a16 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00020a1a 70 1d |p | MOVEQ.L #0x1d,D0 00020a1c 12 d8 | | MOVE.B (A0)+,(A1)+ 00020a1e 51 c8 ff fc |Q | DBF D0,0x20a1c 00020a22 51 4f |QO | SUBQ.L #0x8,A7 00020a24 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020a28 3f 01 |? | MOVE.W D1,-(A7) 00020a2a 3f 02 |? | MOVE.W D2,-(A7) 00020a2c 4e 93 |N | JSR (A3) 00020a2e 58 4f |XO | ADDQ.L #0x4,A7 00020a30 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020a34 3f 01 |? | MOVE.W D1,-(A7) 00020a36 3f 03 |? | MOVE.W D3,-(A7) 00020a38 4e 93 |N | JSR (A3) 00020a3a 50 4f |PO | ADDQ.L #0x8,A7 00020a3c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020a42 50 4f |PO | ADDQ.L #0x8,A7 00020a44 4e 94 |N | JSR (A4) 00020a46 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020a4a 9e c5 | | SUBA.W D5,A7 00020a4c 20 4f | O | MOVEA.L A7,A0 00020a4e 43 fa fe ee |C | LEA.L 0x2093e,A1 00020a52 70 0c |p | MOVEQ.L #0x0c,D0 00020a54 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a56 51 c8 ff fc |Q | DBF D0,0x20a54 00020a5a 51 4f |QO | SUBQ.L #0x8,A7 00020a5c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020a60 3f 01 |? | MOVE.W D1,-(A7) 00020a62 3f 02 |? | MOVE.W D2,-(A7) 00020a64 4e 93 |N | JSR (A3) 00020a66 54 4f |TO | ADDQ.L #0x2,A7 00020a68 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00020a6c 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00020a72 54 4f |TO | ADDQ.L #0x2,A7 00020a74 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020a7a 50 4f |PO | ADDQ.L #0x8,A7 00020a7c 4e 94 |N | JSR (A4) 00020a7e 5d 4f |]O | SUBQ.L #0x6,A7 00020a80 20 4f | O | MOVEA.L A7,A0 00020a82 43 fa fe da |C | LEA.L 0x2095e,A1 00020a86 70 16 |p | MOVEQ.L #0x16,D0 00020a88 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a8a 51 c8 ff fc |Q | DBF D0,0x20a88 00020a8e 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020a92 59 4f |YO | SUBQ.L #0x4,A7 00020a94 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020a98 3f 01 |? | MOVE.W D1,-(A7) 00020a9a 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00020a9e 4e 93 |N | JSR (A3) 00020aa0 50 4f |PO | ADDQ.L #0x8,A7 00020aa2 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020aa8 de c3 | | ADDA.W D3,A7 00020aaa 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00020aae 4e 5e |N^ | UNLK A6 00020ab0 4e 75 |Nu | RTS