|
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: »COMMX.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »COMMX.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »COMMX.M200«
└─ ⟦this⟧ »COMMX.M200«
@ 20240
<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 20240-20398 Body>
<POP 20240-20256 Prologue> Σ0 ↓
<POP 20256-20262 RegCacheLoad> Σ0 ↓
<POP 20262-20264 Naked> Σ0 ↓
<MI 20262 MOVEQ.L #0x00,D6> {}
<POP 20264-2029c Naked> Σ0 ↓ →0x20264 ←0x20264
<MI 20264 MOVE.B D6,D0> {}
<MI 20266 EXTB.W D0> {}
<MI 20268 MULS.W #0x14,D0> {}
<MI 2026a LEA.L 0x20218,A0> {}
<Blob 0x2026e [20] (A0+D0.W)> Δ-20 {[«20»]}
<POP 2027e-20280 StackAdj> Δ-4 {[«20»]|[-4-]}
<Lit 0x20280> {[«20»]|[$$…]}
<Pointer.sp 0x20280 4> Δ-4
<Const 0x20284 0x1.2> Δ-2
<Const 0x20286 0x14.2> Δ-2
<Call 0x20288 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2028a-2028c StackAdj> Δ+8
<Call 0x2028c 0x103e0> {[«20»]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 20292-20296 StackAdj> Δ+24 {}
<MI 20296 ADDQ.B #0x1,D6> {}
<MI 20298 CMP.B #0x01,D6> {}
<MI 2029a BLE 0x20264> {}
<POP 2029c-202ea Naked> Σ0 ↓
<Blob 0x2029c [20] @> Δ-20 {[«20""»]}
<POP 202a8-202aa StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x202aa 20> {[«20""»]|[-4-]|[$$Enter test option :_]}
<Const 0x202b6 0x0.4> Δ-4 {[«20""»]|[-4-]|[$$Enter test option :_]|[##0]}
<Const 0x202ba 0x1.4> Δ-4 {[«20""»]|[-4-]|[$$Enter test option :_]|[##0]|[##1]}
<Call 0x202be 0x103ec> {[«20""»]|[-4-]|[$$Enter test option :_]|[##0]|[##1]}
AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long
<POP 202c4-202c8 StackAdj> Δ+12 {[«20""»]|[-4-]}
<MI 202c8 MOVE.L (A7)+,D0> Δ+4 {[«20""»]}
<POP 0x202ca LimitCheck 0x0 ≤ D0 ≤ 0xff> {[«20""»]}
<POP 202d4-202d6 StackAdj> Δ+20 {}
<MI 202d6 MOVE.W D0,(A6-0x1c)> {}
<MI 202da MOVEA.L (A6+0x8),A0> {}
<MI 202de MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<MI 202e0 MOVE.B (A7)+,D0> Δ+2 {}
<MI 202e2 EXTB.W D0> {}
<POP 0x202e4 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 202e6 MOVE.B D0,(A0)> {}
<MI 202e8 MOVEQ.L #0x00,D5> {}
<POP 202ea-202ec Naked> Σ0 ↓ ←0x20318
<MI 202ea MOVEQ.L #0x00,D7> {}
<POP 202ec-20318 Naked> Σ0 ↓ →0x202ec ←0x202ec
<POP 0x202ec LimitCheck 0x0 ≤ D5 ≤ 0xf> {}
<MI 202f2 MOVE.L D5,D0> {}
<MI 202f4 ASL.L #0x1,D0> {}
<POP 0x202f6 LimitCheck 0x0 ≤ D7 ≤ 0xf> {}
<MI 202fc LEA.L (A6+D0.L-#0x3c),A0> {}
<MI 20300 MOVE.L D7,D0> {}
<MI 20302 ROR.L #0x3,D0> {}
<MI 20304 ADDA.W D0,A0> {}
<MI 20306 SWAP.W D0> {}
<MI 20308 ROL.W #0x3,D0> {}
<MI 2030a MOVE.W #0xff7f,D1> {}
<MI 2030e ROR.W D0,D1> {}
<MI 20310 AND.B D1,(A0)> {}
<MI 20312 ADDQ.L #0x1,D7> {}
<MI 20314 CMP.L #0x0f,D7> {}
<MI 20316 BLE 0x202ec> {}
<POP 20318-2031e Naked> Σ0 ↓ →0x202ea
<MI 20318 ADDQ.L #0x1,D5> {}
<MI 2031a CMP.L #0x0f,D5> {}
<MI 2031c BLE 0x202ea> {}
<POP 2031e-20354 Naked> Σ0 ↓ →0x2037e
<MI 2031e MOVE.W #0x01,(A6-0x14)> {}
<MI 20322 MOVE.W #0x2,(A6-0xe)> {}
<Pointer.fp 0x20328 <LVAR -0x018 @>> Δ-4 {[@@-24]}
<MI 2032c LEA.L (A6-0x3e),A0> {[@@-24]}
<MI 20330 MOVE.L A0,-(A7)> Δ-4 {[@@-24]|[4, 'A0']}
<Const 0x20332 0x3.2> Δ-2 {[@@-24]|[4, 'A0']|[#3]}
<Call 0x20336 0x10204> {[@@-24]|[4, 'A0']|[#3]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 2033c-2033e StackAdj> Δ+8 {[-2-]}
<POP 2033e-2033f StackAdj> Δ+2 {}
<Const 0x2033f 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20342 <LVAR -0x040 @ 1(r)>> Δ-4 {[#3]|[@@-64]}
<Call 0x20346 0x10206> {[#3]|[@@-64]}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 2034c-2034e StackAdj> Δ+6 {}
<MI 2034e TST.B (A6-0x40)> {}
<MI 20352 BNE 0x2037e> {}
<POP 20354-2037e Naked> Σ0 ↓
<Blob 0x20354 [34] @> Δ-34 {[«34""»]}
<Const 0x20360 0xe.2> Δ-2 {[«34""»]|[#14]}
<POP 20364-20366 StackAdj> Δ-4 {[«34""»]|[#14]|[-4-]}
<Lit 0x20366 34> {[«34""»]|[#14]|[$$DH11 configuration request failed.]}
<Call 0x20374 0x103b8> {[«34""»]|[#14]|[$$DH11 configuration request failed.]}
PopProgram(status : Byte; msg : String)
<POP 2037a-2037e StackAdj> Δ+40 {}
<POP 2037e-20390 Naked> Σ0 ↓ ←0x2031e
<MI 2037e LEA.L 0x20a9e,A0> {}
<MI 20384 LEA.L (A6-0x3c),A1> {}
<BlockMove 32,A1,A0> {}
<POP 20390-20398 Epilogue> Σ0
@ 20398
<LVAR 0x010 1(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x00a @ 2(r)>
<POP 20398-20404 Body>
<POP 20398-203ae Prologue> Σ0 ↓
<POP 203ae-203b2 RegCacheLoad> Σ0 ↓
<POP 203b2-203d6 Naked> Σ0 ↓ →0x203d8 ←0x203d8 ←0x203f2
<MI 203b2 MOVE.L (A6+0xc),D0> {}
<POP 0x203b6 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 203c0 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x203c2 <LVAR -0x00a @ 2(r)>> Δ-4 {[2, 'D0']|[@@-10]}
<Call 0x203c4 0x1021c> {[2, 'D0']|[@@-10]}
KERNCALL_0e
<POP 203ca-203cc StackAdj> Δ+6 {}
<MI 203cc MOVEQ.L #0x00,D7> {}
<MI 203ce MOVE.W (A6-0xa),D0> {}
<MI 203d0 ANDI.W #0x8000,D0> {}
<MI 203d4 BEQ 0x203d8> {}
<POP 203d6-203d8 Naked> Σ0 ↓
<MI 203d6 ADDQ.B #0x1,D7> {}
<POP 203d8-203f2 Naked> Σ0 ↓ →0x203b2 ←0x203b2
<MI 203d8 MOVE.W (A6-0xa),D0> {}
<MI 203da ANDI.W #0x0f00,D0> {}
<MI 203de LSR.W #0x8,D0> {}
<MI 203e0 CLR.L D1> {}
<MI 203e2 MOVE.W D0,D1> {}
<MI 203e4 MOVE.L D1,D6> {}
<MI 203e6 MOVE.W (A6-0xa),D0> {}
<MI 203e8 ANDI.W #0x00ff,D0> {}
<MI 203ec MOVE.B D0,D5> {}
<MI 203ee TST.B D7> {}
<MI 203f0 BEQ 0x203b2> {}
<POP 203f2-203f8 Naked> Σ0 ↓ →0x203b2
<MI 203f2 CMP.L (A6+0x8),D6> {}
<MI 203f6 BNE 0x203b2> {}
<POP 203f8-203fc Naked> Σ0 ↓
<MI 203f8 MOVE.B D5,(A6+0x10)> {}
<POP 203fc-20404 Epilogue> Σ0
@ 20404
<LVAR 0x010 @ 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20404-2047a Body>
<POP 20404-2041a Prologue> Σ0 ↓
<POP 2041a-2041e RegCacheLoad> Σ0 ↓
<POP 2041e-20472 Naked> Σ0 ↓
<MI 2041e MOVE.L (A6+0x10),-(A7)> Δ-4 {[4, '(A6+0x10)']}
<Const 0x20420 0xa.2> Δ-2 {[4, '(A6+0x10)']|[#10]}
<Call 0x20424 0x102c0> {[4, '(A6+0x10)']|[#10]}
AppendChar(MOD b : String; a : char)
<POP 2042a-2042c StackAdj> Δ+2 {[4, '(A6+0x10)']}
<MI 2042c MOVE.L (A6+0x10),(A7)> {[4, '(A6+0x10)']}
<Const 0x2042e 0xd.2> Δ-2 {[4, '(A6+0x10)']|[#13]}
<Call 0x20432 0x102c0> {[4, '(A6+0x10)']|[#13]}
AppendChar(MOD b : String; a : char)
<POP 20438-2043a StackAdj> Δ+6 {}
<MI 2043a MOVE.L (A6+0xc),D0> {}
<POP 0x2043e LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20448 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<MI 2044a MOVE.L (A6+0x8),D0> {[2, 'D0']}
<POP 0x2044e LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[2, 'D0']}
<MI 20458 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']|[2, 'D0']}
<MI 2045a MOVE.L (A6+0x10),-(A7)> Δ-4 {[2, 'D0']|[2, 'D0']|[4, '(A6+0x10)']}
<Call 0x2045c 0x1021a> {[2, 'D0']|[2, 'D0']|[4, '(A6+0x10)']}
KC0d_Write_Modem_String(Word, Word, Char)
<POP 20462-20464 StackAdj> Δ+8 {}
<Pointer.fp 0x20464 <LVAR 0x010 @ 4(r)>> Δ-4 {[@@16]}
<Const 0x20466 0x80.4> Δ-4 {[@@16]|[##128]}
<Call 0x2046a 0x102a8> {[@@16]|[##128]}
Free2(a : Pointer; b : Long)
<POP 20470-20472 StackAdj> Δ+8 {}
<POP 20472-2047a Epilogue> Σ0
@ 2047a
<LVAR -0x00a @ 1(r)>
<LVAR -0x00c @>
<POP 2047a-205c0 Body>
<POP 2047a-20490 Prologue> Σ0 ↓
<POP 20490-204a0 RegCacheLoad> Σ0 ↓
<POP 204a0-204c6 Naked> Σ0 ↓
<Blob 0x204a0 [30] @> Δ-30 {[«30""»]}
<POP 204ac-204ae StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x204ae 30> {[«30""»]|[$$Type any character to exit. ]}
<Call 0x204bc 0x103e0> {[«30""»]|[$$Type any character to exit. ]}
WriteConsoleStringCrLf(str : String)
<POP 204c2-204c6 StackAdj> Δ+34 {}
<POP 204c6-204c8 Naked> Σ0 ↓ ←0x205b0
<MI 204c6 MOVEQ.L #0x00,D5> {}
<POP 204c8-204ca Naked> Σ0 ↓ ←0x2056e
<MI 204c8 MOVEQ.L #0x00,D7> {}
<POP 204ca-204f8 Naked> Σ0 ↓ →0x20566 ←0x20566
<POP 0x204ca LimitCheck 0x0 ≤ D5 ≤ 0xf> {}
<MI 204d0 MOVE.L D5,D0> {}
<MI 204d2 ASL.L #0x1,D0> {}
<MI 204d4 LEA.L 0x20a92,A0> {}
<POP 0x204da LimitCheck 0x0 ≤ D7 ≤ 0xf> {}
<MI 204e0 LEA.L (A0+D0.L+#0xc),A0> {}
<MI 204e4 MOVE.L D7,D0> {}
<MI 204e6 ROR.L #0x3,D0> {}
<MI 204e8 ADDA.W D0,A0> {}
<MI 204ea SWAP.W D0> {}
<MI 204ec ROL.W #0x3,D0> {}
<MI 204ee MOVE.B (A0),D1> {}
<MI 204f0 LSL.B D0,D1> {}
<MI 204f2 LSR.B #0x7,D1> {}
<MI 204f4 MOVE.B D1,D6> {}
<MI 204f6 BEQ 0x20566> {}
<POP 204f8-20566 Naked> Σ0 ↓
<Blob 0x204f8 [14] @> Δ-14 {[«14""»]}
<Blob 0x2050a [10] @> Δ-10 {[«14""»]|[«10""»]}
<POP 2051c-2051e StackAdj> Δ-8 {[«14""»]|[«10""»]|[-8-]}
<Lit 0x2051e 13> {[«14""»]|[«10""»]|[-4-]|[$$This is line_]}
<MI 2052a MOVE.L D7,(A7)> {[«14""»]|[«10""»]|[-4-]|[4, 'D7']}
<POP 20528-2052a StackAdj> Δ-8 {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x2052c 0x102e4> {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x20532 9> {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[$$ on unit_]}
<MI 2053e MOVE.L D5,(A7)> {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']}
<POP 2053c-2053e StackAdj> Δ-8 {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-8-]}
<Call 0x20540 0x102e4> {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-8-]}
Long2String(a : Long) : String
<POP 20546-20548 StackAdj> Δ+4 {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-4-]}
<Call 0x20548 0x102d8> {[«14""»]|[«10""»]|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-4-]}
StringCat4(a, b, c, d : String) : String
<POP 2054e-20552 StackAdj> Δ+16 {[«14""»]|[«10""»]|[-4-]}
<MI 20552 MOVEA.L (A7)+,A4> Δ+4 {[«14""»]|[«10""»]}
<POP 20554-20558 StackAdj> Δ+20 {[-4-]}
<MI 20558 MOVE.L A4,(A7)> {[4, 'A4']}
<MI 2055a MOVE.L D5,-(A7)> Δ-4 {[4, 'A4']|[4, 'D5']}
<MI 2055c MOVE.L D7,-(A7)> Δ-4 {[4, 'A4']|[4, 'D5']|[4, 'D7']}
<Call 0x2055e 0x20404> {[4, 'A4']|[4, 'D5']|[4, 'D7']}
<POP 20562-20566 StackAdj> Δ+12 {}
<POP 20566-2056e Naked> Σ0 ↓ →0x204ca ←0x204ca
<MI 20566 ADDQ.L #0x1,D7> {}
<MI 20568 CMP.L #0x0f,D7> {}
<MI 2056a BLE 0x204ca> {}
<POP 2056e-20576 Naked> Σ0 ↓ →0x204c8
<MI 2056e ADDQ.L #0x1,D5> {}
<MI 20570 CMP.L #0x0f,D5> {}
<MI 20572 BLE 0x204c8> {}
<POP 20576-20596 Naked> Σ0 ↓ →0x205b0
<MI 20576 MOVE.L 0x20a9a,D0> {}
<POP 0x20578 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20582 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x20584 <LVAR -0x00a @ 1(r)>> Δ-4 {[2, 'D0']|[@@-10]}
<Call 0x20588 0x10212> {[2, 'D0']|[@@-10]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 2058e-20590 StackAdj> Δ+6 {}
<MI 20590 TST.B (A6-0xa)> {}
<MI 20594 BEQ 0x205b0> {}
<POP 20596-205b0 Naked> Σ0 ↓
<MI 20596 MOVE.L 0x20a9a,D0> {}
<POP 0x20598 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 205a2 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x205a4 <LVAR -0x00c @>> Δ-4 {[2, 'D0']|[@@-12]}
<Call 0x205a8 0x1020e> {[2, 'D0']|[@@-12]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 205ae-205b0 StackAdj> Δ+6 {}
<POP 205b0-205b8 Naked> Σ0 ↓ →0x204c6 ←0x20576
<MI 205b0 TST.B (A6-0xa)> {}
<MI 205b4 BEQ 0x204c6> {}
<POP 205b8-205c0 Epilogue> Σ0
@ 205c0
<LVAR -0x002 @ 1(r)>
<LVAR -0x010 @ 2(r)>
<POP 205c0-207f8 Body>
<POP 205c0-205d6 Prologue> Σ0 ↓
<POP 205d6-205e6 RegCacheLoad> Σ0 ↓
<POP 205e6-20610 Naked> Σ0 ↓
<Blob 0x205e6 [28] @> Δ-28 {[«28""»]}
<POP 205f8-205fa StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x205fa 27> {[«28""»]|[$$Type any character to exit.]}
<Call 0x20608 0x103e0> {[«28""»]|[$$Type any character to exit.]}
WriteConsoleStringCrLf(str : String)
<POP 2060e-20610 StackAdj> Δ+32 {}
<POP 20610-20612 Naked> Σ0 ↓ ←0x207e8
<MI 20610 MOVEQ.L #0x00,D7> {}
<POP 20612-2062c Naked> Σ0 ↓ →0x207a0 ←0x207a0
<POP 0x20612 LimitCheck 0x0 ≤ D7 ≤ 0xf> {}
<MI 20618 MOVE.L D7,D0> {}
<MI 2061a ASL.L #0x1,D0> {}
<MI 2061c LEA.L 0x20a92,A0> {}
<MI 20622 MOVE.B (A0+D0.L+#0xc),D1> {}
<MI 20626 LSR.B #0x7,D1> {}
<MI 20628 BEQ 0x207a0> {}
<POP 2062c-2064c Naked> Σ0 ↓ →0x207a0
<POP 0x2062c LimitCheck 0x0 ≤ D7 ≤ 0xffff> {}
<MI 20636 MOVE.W D7,-(A7)> Δ-2 {[2, 'D7']}
<Pointer.fp 0x20638 <LVAR -0x010 @ 2(r)>> Δ-4 {[2, 'D7']|[@@-16]}
<Call 0x2063a 0x1021c> {[2, 'D7']|[@@-16]}
KERNCALL_0e
<POP 20640-20642 StackAdj> Δ+6 {}
<MI 20642 MOVE.W (A6-0x10),D0> {}
<MI 20644 ANDI.W #0x8000,D0> {}
<MI 20648 BEQ 0x207a0> {}
<POP 2064c-206f2 Naked> Σ0 ↓ →0x2071a
<MI 2064c MOVE.W (A6-0x10),D0> {}
<MI 2064e ANDI.W #0x0f00,D0> {}
<MI 20652 LSR.W #0x8,D0> {}
<MI 20654 CLR.L D1> {}
<MI 20656 MOVE.W D0,D1> {}
<MI 20658 MOVE.L D1,D6> {}
<MI 2065a MOVE.W (A6-0x10),D0> {}
<MI 2065c ANDI.W #0x00ff,D0> {}
<MI 20660 CLR.L D1> {}
<MI 20662 MOVE.W D0,D1> {}
<MI 20664 MOVE.L D1,D5> {}
<Blob 0x20666 [6] @> Δ-6 {[«6""»]}
<Blob 0x20676 [10] @> Δ-10 {[«6""»]|[«10""»]}
<Blob 0x20688 [4] @> Δ-4 {[«6""»]|[«10""»]|[«4""»]}
<Blob 0x2068c [4] @> Δ-4 {[«6""»]|[«10""»]|[«4""»]|[«4""»]}
<Blob 0x20690 [4] @> Δ-4 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20694 [4] @> Δ-4 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 20698-2069a StackAdj> Δ-8 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x2069a 5> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Line_]}
<MI 206a6 MOVE.L D6,(A7)> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']}
<POP 206a4-206a6 StackAdj> Δ-8 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-8-]}
<Call 0x206a8 0x102e4> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-8-]}
Long2String(a : Long) : String
<Lit 0x206ae 9> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[$$ on unit_]}
<MI 206ba MOVE.L D7,(A7)> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']}
<POP 206b8-206ba StackAdj> Δ-8 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-8-]}
<Call 0x206bc 0x102e4> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x206c2 16> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[$$ recieved ascii_]}
<MI 206ce MOVE.L D5,(A7)> {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']}
<POP 206cc-206ce StackAdj> Δ-8 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-8-]}
<Const 0x206d0 0x2.4> Δ-4 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-8-]|[##2]}
<Call 0x206d4 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 206da-206dc StackAdj> Δ+8 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, 'D6']|[-4-]|[4, 'D7']|[-4-]|[4, 'D5']|[-4-]}
<Call 0x206dc 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 206e2-206e6 StackAdj> Δ+24 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 206e6 MOVEA.L (A7)+,A4> Δ+4 {[«6""»]|[«10""»]|[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 206e8-206ea StackAdj> Δ+32 {}
<MI 206ea MOVE.W (A6-0x10),D0> {}
<MI 206ec ANDI.W #0x4000,D0> {}
<MI 206f0 BEQ 0x2071a> {}
<POP 206f2-2071a Naked> Σ0 ↓
<Blob 0x206f2 [4] @> Δ-4 {[«4""»]}
<Blob 0x206f6 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 206fa-206fc StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<MI 206fc MOVE.L A4,-(A7)> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, 'A4']}
<POP 206fe-20700 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x20700 8> {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ OVERRUN]}
<Call 0x2070e 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ OVERRUN]}
StringCat2(a, b : String) : String
<POP 20714-20716 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 20716 MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]}
<POP 20718-2071a StackAdj> Δ+8 {}
<POP 2071a-20722 Naked> Σ0 ↓ →0x2074a ←0x2064c
<MI 2071a MOVE.W (A6-0x10),D0> {}
<MI 2071c ANDI.W #0x2000,D0> {}
<MI 20720 BEQ 0x2074a> {}
<POP 20722-2074a Naked> Σ0 ↓
<Blob 0x20722 [4] @> Δ-4 {[«4""»]}
<Blob 0x20726 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 2072a-2072c StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<MI 2072c MOVE.L A4,-(A7)> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, 'A4']}
<POP 2072e-20730 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x20730 8> {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ FRAMING]}
<Call 0x2073e 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, 'A4']|[$$ FRAMING]}
StringCat2(a, b : String) : String
<POP 20744-20746 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<MI 20746 MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]}
<POP 20748-2074a StackAdj> Δ+8 {}
<POP 2074a-20752 Naked> Σ0 ↓ →0x20782 ←0x2071a
<MI 2074a MOVE.W (A6-0x10),D0> {}
<MI 2074c ANDI.W #0x1000,D0> {}
<MI 20750 BEQ 0x20782> {}
<POP 20752-20782 Naked> Σ0 ↓
<Blob 0x20752 [8] @> Δ-8 {[«8""»]}
<POP 20762-20764 StackAdj> Δ-4 {[«8""»]|[-4-]}
<MI 20764 MOVE.L A4,-(A7)> Δ-4 {[«8""»]|[-4-]|[4, 'A4']}
<POP 20766-20768 StackAdj> Δ-4 {[«8""»]|[-4-]|[4, 'A4']|[-4-]}
<Lit 0x20768 7> {[«8""»]|[-4-]|[4, 'A4']|[$$ PARITY]}
<Call 0x20776 0x102d0> {[«8""»]|[-4-]|[4, 'A4']|[$$ PARITY]}
StringCat2(a, b : String) : String
<POP 2077c-2077e StackAdj> Δ+8 {[«8""»]|[-4-]}
<MI 2077e MOVEA.L (A7)+,A4> Δ+4 {[«8""»]}
<POP 20780-20782 StackAdj> Δ+8 {}
<POP 20782-207a0 Naked> Σ0 ↓ ←0x2074a
<POP 20782-20784 StackAdj> Δ-4 {[-4-]}
<MI 20784 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'A4']}
<Call 0x20786 0x102cc> {[-4-]|[4, 'A4']}
StringDup(a : String) : String
<MI 2078c MOVE.L D7,(A7)> {[-4-]|[4, 'D7']}
<MI 2078e MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D7']|[4, 'D6']}
<Call 0x20790 0x20404> {[-4-]|[4, 'D7']|[4, 'D6']}
<POP 20794-20796 StackAdj> Δ+8 {[-4-]}
<MI 20796 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x20798 0x103e0> {[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 2079e-207a0 StackAdj> Δ+4 {}
<POP 207a0-207a8 Naked> Σ0 ↓ →0x20612 ←0x20612 ←0x2062c
<MI 207a0 ADDQ.L #0x1,D7> {}
<MI 207a2 CMP.L #0x0f,D7> {}
<MI 207a4 BLE 0x20612> {}
<POP 207a8-207cc Naked> Σ0 ↓ →0x207e8
<MI 207a8 MOVE.L 0x20a9a,D0> {}
<POP 0x207ae LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 207b8 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x207ba <LVAR -0x002 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-2]}
<Call 0x207be 0x10212> {[2, 'D0']|[@@-2]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 207c4-207c6 StackAdj> Δ+6 {}
<MI 207c6 TST.B (A6-0x2)> {}
<MI 207ca BEQ 0x207e8> {}
<POP 207cc-207e8 Naked> Σ0 ↓
<MI 207cc MOVE.L 0x20a9a,D0> {}
<POP 0x207d2 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 207dc MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<Pointer.fp 0x207de <LVAR -0x010 @ 2(r)>> Δ-4 {[2, 'D0']|[@@-16]}
<Call 0x207e0 0x1020e> {[2, 'D0']|[@@-16]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 207e6-207e8 StackAdj> Δ+6 {}
<POP 207e8-207f0 Naked> Σ0 ↓ →0x20610 ←0x207a8
<MI 207e8 TST.B (A6-0x2)> {}
<MI 207ec BEQ 0x20610> {}
<POP 207f0-207f8 Epilogue> Σ0
@ 207f8
START
<POP 207f8--0001 Body>
<POP 207f8-20802 Prologue> Σ0
<POP 20802-2080a RegCacheLoad> Σ0 ↓
<POP 2080a-2086a Naked> Σ0 →0x2086e →0x20874
<Call 0x2080a 0x10398> {}
FSCALL_10398
<POP 20810-20812 StackAdj> Δ-4 {[-4-]}
<Call 0x20812 0x103f8> {[-4-]}
GetConsoleConfig() : Long
<MI 20818 MOVE.L (A7),0x20a9a> {[-4-]}
<POP 2081e-2081f StackAdj> Δ+4 ↓ {}
<Blob 0x2081f [38] @> Δ-38 {[«38""»]}
<POP 20830-20832 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x20832 37> {[«38""»]|[$$DH11 Communications multiplexer test.]}
<Call 0x20844 0x103e0> {[«38""»]|[$$DH11 Communications multiplexer test.]}
WriteConsoleStringCrLf(str : String)
<POP 2084a-2084e StackAdj> Δ+42 {}
<Const 0x2084e 0x20abe.4> Δ-4 {[##133822]}
<Call 0x20850 0x20240> {[##133822]}
<POP 20854-20856 StackAdj> Δ+4 {}
<MI 20856 MOVE.B 0x20abe,D0> {}
<MI 20858 EXTB.W D0> {}
<POP 0x2085a LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 20860 ADD.W D0,D0> {}
<MI 20862 SWITCH D0.W> {}
<POP 2086e-20874 Naked> Σ0 →0x20878 ←0x2080a
<Call 0x2086e 0x205c0> {}
<MI 20872 BRA 0x20878> {}
<POP 20874-20878 Naked> Σ0 ↓ ←0x2080a
<Call 0x20874 0x2047a> {}
<POP 20878-20886 Naked> Σ0 ↓ ←0x2086e
<MI 20878 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2087a 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x2087e 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20884-20886 StackAdj> Δ+6 {}
<POP 20886-2088c Naked> Σ0
<Call 0x20886 0x10284> {}
?exit
@ 2089a
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 2089a-20902 Body>
<POP 2089a-208b0 Prologue> Σ0 ↓
<POP 208b0-208fa Naked> Σ0 ↓
<Blob 0x208b0 [14] @> Δ-14 {[«14""»]}
<Const 0x208bc 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 208c0-208c2 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x208c2 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 208d4-208d6 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 208d6 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 208da EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 208dc EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 208de MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x208e0 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 208e6-208e8 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x208e8 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 208ee-208f0 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x208f0 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 208f6-208fa StackAdj> Δ+20 {}
<POP 208fa-20902 Epilogue> Σ0
@ 20956
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 20956-20a92 Body>
<POP 20956-2096c Prologue> Σ0 ↓
<POP 2096c-20982 RegCacheLoad> Σ0 ↓
<POP 20982-209e2 Naked> Σ0 ↓ →0x20a2a
<Call 0x20982 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x20988 [18] @> Δ-18 {[«18""»]}
<POP 20994-20996 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20996 18> {[«18""»]|[$$Experiment error :]}
<Call 0x209a2 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 209a4-209a5 StackAdj> Δ+22 ↓ {}
<Blob 0x209a5 [14] @> Δ-14 {[«14""»]}
<POP 209b4-209b6 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x209b6 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 209c0-209c2 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 209c2 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x209c6 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 209cc-209ce StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x209ce 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 209d4-209d6 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x209d6 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 209d8-209da StackAdj> Δ+18 {}
<MI 209da MOVEA.L (A6+0xa),A0> {}
<MI 209de CMPA.W #0x01,A0> {}
<MI 209e0 BEQ 0x20a2a> {}
<POP 209e2-20a2a Naked> Σ0 ↓
<Blob 0x209e2 [14] @> Δ-14 {[«14""»]}
<Blob 0x209f2 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 20a02-20a04 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x20a04 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 20a0e-20a10 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x20a10> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x20a10 12> Δ-4
<Const 0x20a14 0x1.2> Δ-2
<Const 0x20a16 0x1e.2> Δ-2
<Call 0x20a18 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20a1a-20a1c StackAdj> Δ+8
<Call 0x20a1c 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20a22-20a24 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x20a24 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20a26-20a2a StackAdj> Δ+48 {}
<POP 20a2a-20a8a Naked> Σ0 ↓ ←0x20982
<Blob 0x20a2a [14] @> Δ-14 {[«14""»]}
<POP 20a3a-20a3c StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20a3c 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 20a46-20a48 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 20a48 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x20a4c 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 20a52-20a54 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x20a54 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20a5a-20a5c StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20a5c 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20a5e-20a5f StackAdj> Δ+18 ↓ {}
<Blob 0x20a5f [24] @> Δ-24 {[«24""»]}
<Const 0x20a6e 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 20a72-20a74 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x20a74 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x20a82 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 20a88-20a8a StackAdj> Δ+30 {}
<POP 20a8a-20a92 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.4ebf4b6aabde6737 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 07 f8 | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 0a d2 | | .PTR 0x20ad2 00020010 code.end: 00020010 00 02 0a 92 | | .PTR 0x20a92 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 08 9a | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 09 56 | V | .CODE EXP_FAIL 00020020 00 00 00 00 | | .CONST 0x00000000 00020024 exp_init_done: 00020024 00 | | .CONST 0x00 00020025 00 | | .CONST 0x00 00020026 00 00 | | .CONST 0x0000 00020028 00 00 | | .CONST 0x0000 0002002a 00 00 | | .XXX[0x2] 0002002c 00 00 | | .CONST 0x0000 0002002e 00 00 | | .CONST 0x0000 00020030 00 00 | | .CONST 0x0000 00020032 00 00 00 00 00 00 | | .XXX[0x6] 00020038 00 00 00 00 00 00 00 00 | | .BLANK 00[0xb0] 000200e8 00 00 00 00 | | .XXX[0x4] 000200ec 00 00 00 00 | | .PTR 0x0 000200f0 is_open_ERROR_LOG: 000200f0 00 | | .CONST 0x0 000200f1 write_error_ERROR_LOG: 000200f1 00 | | .CONST 0x0 000200f2 00 00 00 00 | | .CONST 0x00000000 000200f6 00 00 00 00 | | .CONST 0x00000000 000200fa 00 | | .CONST 0x00 000200fb 00 | | .CONST 0x00 000200fc file_ERROR_LOG: 000200fc 00 00 00 00 | | .CONST 0x00000000 00020100 00 00 00 00 | | .CONST 0x00000000 00020104 00 00 | | .CONST 0x0000 00020106 00 00 | | .CONST 0x0000 00020108 somekindoffsflag: 00020108 00 | | .CONST 0x00 00020109 00 | | .CONST 0x00 0002010a 20 20 20 20 30 20 | 0 | .XXX[0x6] 00020110 2d 20 49 6e 70 75 74 20 |- Input | .XXX[0x20] 00020118 74 65 73 74 20 20 20 20 |test | 00020120 20 20 31 20 2d 20 4f 75 | 1 - Ou| 00020128 74 70 75 74 20 74 65 73 |tput tes| 00020130 74 20 |t | .XXX[0x2] 00020132 45 6e 74 65 72 20 74 65 |Enter te| .TXT 'Enter test option :_' 00020146 44 48 31 31 20 63 6f 6e |DH11 con| .TXT 'DH11 configuration request failed.' 00020168 54 79 70 65 20 61 6e 79 |Type any| .TXT 'Type any character to exit. ' 00020186 54 68 69 73 20 69 73 20 |This is | .TXT 'This is line_ ' 00020194 20 6f 6e 20 75 6e 69 74 | on unit| .TXT ' on unit_ ' 0002019e 54 79 70 65 20 61 6e 79 |Type any| .TXT 'Type any character to exit. ' 000201ba 4c 69 6e 65 5f 20 |Line_ | .TXT 'Line_ ' 000201c0 20 6f 6e 20 75 6e 69 74 | on unit| .TXT ' on unit_ ' 000201ca 20 72 65 63 | rec | .TXT ' rec' 000201ce 69 65 76 65 |ieve | .TXT 'ieve' 000201d2 64 20 61 73 |d as | .TXT 'd as' 000201d6 63 69 69 5f |cii_ | .TXT 'cii_' 000201da 20 4f 56 45 | OVE | .TXT ' OVE' 000201de 52 52 55 4e |RRUN | .TXT 'RRUN' 000201e2 20 46 52 41 | FRA | .TXT ' FRA' 000201e6 4d 49 4e 47 |MING | .TXT 'MING' 000201ea 20 50 41 52 49 54 59 20 | PARITY | .TXT ' PARITY ' 000201f2 44 48 31 31 20 43 6f 6d |DH11 Com| .TXT 'DH11 Communications multiplexer test. ' 00020218 20 20 20 20 30 20 2d 20 | 0 - | .XXX[0x28] 00020220 49 6e 70 75 74 20 74 65 |Input te| 00020228 73 74 20 20 20 20 20 20 |st | 00020230 31 20 2d 20 4f 75 74 70 |1 - Outp| 00020238 75 74 20 74 65 73 74 20 |ut test | 00020240 ; -------------------------------------------------------------------------------------- 00020240 ; OMSI PASCAL Function 00020240 ; <LVAR 0x008 4(r)> 00020240 ; <LVAR -0x00e 2(w)> 00020240 ; <LVAR -0x014 2(w)> 00020240 ; <LVAR -0x018 @> 00020240 ; <LVAR -0x01c 2(w)> 00020240 ; <LVAR -0x03c @> 00020240 ; <LVAR -0x03e @> 00020240 ; <LVAR -0x040 @ 1(r)> 00020240 ; -------------------------------------------------------------------------------------- 00020240 4e 56 ff 60 |NV ` | LINK.W A6,#0xff60 00020244 bf d5 | | CMPA.L (A5),A7 00020246 62 06 |b | BHI 0x2024e 00020248 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002024c 4e 76 |Nv | TRAPV 0002024e de fc 00 60 | ` | ADDA.W #0x60,A7 00020252 48 e7 ff e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020256 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 0002025c 74 01 |t | MOVEQ.L #0x01,D2 0002025e 76 14 |v | MOVEQ.L #0x14,D3 00020260 78 0f |x | MOVEQ.L #0x0f,D4 00020262 7c 00 || | MOVEQ.L #0x00,D6 00020264 10 06 | | MOVE.B D6,D0 00020266 48 80 |H | EXTB.W D0 00020268 c1 c3 | | MULS.W D3,D0 0002026a 41 fa ff ac |A | LEA.L 0x20218,A0 0002026e 9e c3 | | SUBA.W D3,A7 00020270 22 4f |"O | MOVEA.L A7,A1 00020272 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00020276 70 13 |p | MOVEQ.L #0x13,D0 00020278 12 d8 | | MOVE.B (A0)+,(A1)+ 0002027a 51 c8 ff fc |Q | DBF D0,0x20278 0002027e 59 4f |YO | SUBQ.L #0x4,A7 00020280 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020284 3f 02 |? | MOVE.W D2,-(A7) 00020286 3f 03 |? | MOVE.W D3,-(A7) 00020288 4e 92 |N | JSR (A2) 0002028a 50 4f |PO | ADDQ.L #0x8,A7 0002028c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020292 de fc 00 18 | | ADDA.W #0x18,A7 00020296 52 06 |R | ADDQ.B #0x1,D6 00020298 bc 02 | | CMP.B D2,D6 0002029a 6f c8 |o | BLE 0x20264 0002029c 41 fa fe a8 |A | LEA.L 0x20146,A0 000202a0 70 04 |p | MOVEQ.L #0x04,D0 000202a2 2f 20 |/ | MOVE.L -(A0),-(A7) 000202a4 51 c8 ff fc |Q | DBF D0,0x202a2 000202a8 51 4f |QO | SUBQ.L #0x8,A7 000202aa 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000202ae 3f 02 |? | MOVE.W D2,-(A7) 000202b0 3f 03 |? | MOVE.W D3,-(A7) 000202b2 4e 92 |N | JSR (A2) 000202b4 50 4f |PO | ADDQ.L #0x8,A7 000202b6 48 78 00 00 |Hx | PEA.L 0x0 000202ba 48 78 00 01 |Hx | PEA.L 0x1 000202be 4e b9 00 01 03 ec |N | JSR AskOnConsoleIntRange(prompt: String; low : Long; High : Long) : Long 000202c4 de fc 00 0c | | ADDA.W #0xc,A7 000202c8 20 1f | | MOVE.L (A7)+,D0 000202ca 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 000202d0 63 02 |c | BLS 0x202d4 000202d2 4e 4f |NO | TRAP #15 000202d4 de c3 | | ADDA.W D3,A7 000202d6 3d 40 ff e4 |=@ | MOVE.W D0,(A6-0x1c) 000202da 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000202de 1f 00 | | MOVE.B D0,-(A7) 000202e0 10 1f | | MOVE.B (A7)+,D0 000202e2 48 80 |H | EXTB.W D0 000202e4 41 82 |A | CHK.W D2,D0 000202e6 10 80 | | MOVE.B D0,(A0) 000202e8 7a 00 |z | MOVEQ.L #0x00,D5 000202ea 7e 00 |~ | MOVEQ.L #0x00,D7 000202ec ba 84 | | CMP.L D4,D5 000202ee 63 02 |c | BLS 0x202f2 000202f0 4e 4f |NO | TRAP #15 000202f2 20 05 | | MOVE.L D5,D0 000202f4 e3 80 | | ASL.L #0x1,D0 000202f6 be 84 | | CMP.L D4,D7 000202f8 63 02 |c | BLS 0x202fc 000202fa 4e 4f |NO | TRAP #15 000202fc 41 f6 08 c4 |A | LEA.L (A6+D0.L-#0x3c),A0 00020300 20 07 | | MOVE.L D7,D0 00020302 e6 98 | | ROR.L #0x3,D0 00020304 d0 c0 | | ADDA.W D0,A0 00020306 48 40 |H@ | SWAP.W D0 00020308 e7 58 | X | ROL.W #0x3,D0 0002030a 32 3c ff 7f |2< | MOVE.W #0xff7f,D1 0002030e e0 79 | y | ROR.W D0,D1 00020310 c3 10 | | AND.B D1,(A0) 00020312 52 87 |R | ADDQ.L #0x1,D7 00020314 be 84 | | CMP.L D4,D7 00020316 6f d4 |o | BLE 0x202ec 00020318 52 85 |R | ADDQ.L #0x1,D5 0002031a ba 84 | | CMP.L D4,D5 0002031c 6f cc |o | BLE 0x202ea 0002031e 3d 42 ff ec |=B | MOVE.W D2,(A6-0x14) 00020322 3d 7c 00 02 ff f2 |=| | MOVE.W #0x2,(A6-0xe) 00020328 48 6e ff e8 |Hn | PEA.L (A6-0x18) 0002032c 41 ee ff c2 |A | LEA.L (A6-0x3e),A0 00020330 2f 08 |/ | MOVE.L A0,-(A7) 00020332 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00020336 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W) 0002033c 50 4f |PO | ADDQ.L #0x8,A7 0002033e 3e bc 00 03 |> | MOVE.W #0x3,(A7) 00020342 48 6e ff c0 |Hn | PEA.L (A6-0x40) 00020346 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte) 0002034c 5c 4f |\O | ADDQ.L #0x6,A7 0002034e 4a 2e ff c0 |J. | TST.B (A6-0x40) 00020352 66 2a |f* | BNE 0x2037e 00020354 41 fa fe 12 |A | LEA.L 0x20168,A0 00020358 70 10 |p | MOVEQ.L #0x10,D0 0002035a 3f 20 |? | MOVE.W -(A0),-(A7) 0002035c 51 c8 ff fc |Q | DBF D0,0x2035a 00020360 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7) 00020364 59 4f |YO | SUBQ.L #0x4,A7 00020366 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002036a 3f 02 |? | MOVE.W D2,-(A7) 0002036c 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00020370 4e 92 |N | JSR (A2) 00020372 50 4f |PO | ADDQ.L #0x8,A7 00020374 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002037a de fc 00 28 | ( | ADDA.W #0x28,A7 0002037e 41 f9 00 02 0a 9e |A | LEA.L 0x20a9e,A0 00020384 43 ee ff c4 |C | LEA.L (A6-0x3c),A1 00020388 70 07 |p | MOVEQ.L #0x07,D0 0002038a 20 d9 | | MOVE.L (A1)+,(A0)+ 0002038c 51 c8 ff fc |Q | DBF D0,0x2038a 00020390 4c df 07 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2 00020394 4e 5e |N^ | UNLK A6 00020396 4e 75 |Nu | RTS 00020398 ; -------------------------------------------------------------------------------------- 00020398 ; OMSI PASCAL Function 00020398 ; <LVAR 0x010 1(w)> 00020398 ; <LVAR 0x00c 4(r)> 00020398 ; <LVAR 0x008 4(r)> 00020398 ; <LVAR -0x00a @ 2(r)> 00020398 ; -------------------------------------------------------------------------------------- 00020398 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 ; Spelunked 0002039c bf d5 | | CMPA.L (A5),A7 0002039e 62 06 |b | BHI 0x203a6 000203a0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000203a4 4e 76 |Nv | TRAPV 000203a6 de fc 00 22 | " | ADDA.W #0x22,A7 000203aa 48 e7 c7 80 |H | MOVEM.L A0+D7+D6+D5+D1+D0,-(A7) 000203ae 41 ee ff f6 |A | LEA.L (A6-0xa),A0 000203b2 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 000203b6 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000203bc 63 02 |c | BLS 0x203c0 000203be 4e 4f |NO | TRAP #15 000203c0 3f 00 |? | MOVE.W D0,-(A7) 000203c2 48 50 |HP | PEA.L (A0) 000203c4 4e b9 00 01 02 1c |N | JSR KERNCALL_0e 000203ca 5c 4f |\O | ADDQ.L #0x6,A7 000203cc 7e 00 |~ | MOVEQ.L #0x00,D7 000203ce 30 10 |0 | MOVE.W (A0),D0 000203d0 02 40 80 00 | @ | ANDI.W #0x8000,D0 000203d4 67 02 |g | BEQ 0x203d8 000203d6 52 07 |R | ADDQ.B #0x1,D7 000203d8 30 10 |0 | MOVE.W (A0),D0 000203da 02 40 0f 00 | @ | ANDI.W #0x0f00,D0 000203de e0 48 | H | LSR.W #0x8,D0 000203e0 42 81 |B | CLR.L D1 000203e2 32 00 |2 | MOVE.W D0,D1 000203e4 2c 01 |, | MOVE.L D1,D6 000203e6 30 10 |0 | MOVE.W (A0),D0 000203e8 02 40 00 ff | @ | ANDI.W #0x00ff,D0 000203ec 1a 00 | | MOVE.B D0,D5 000203ee 4a 07 |J | TST.B D7 000203f0 67 c0 |g | BEQ 0x203b2 000203f2 bc ae 00 08 | | CMP.L (A6+0x8),D6 000203f6 66 ba |f | BNE 0x203b2 000203f8 1d 45 00 10 | E | MOVE.B D5,(A6+0x10) 000203fc 4c df 01 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0 00020400 4e 5e |N^ | UNLK A6 00020402 4e 75 |Nu | RTS 00020404 ; -------------------------------------------------------------------------------------- 00020404 ; OMSI PASCAL Function 00020404 ; <LVAR 0x010 @ 4(r)> 00020404 ; <LVAR 0x00c 4(r)> 00020404 ; <LVAR 0x008 4(r)> 00020404 ; -------------------------------------------------------------------------------------- 00020404 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00020408 bf d5 | | CMPA.L (A5),A7 0002040a 62 06 |b | BHI 0x20412 0002040c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020410 4e 76 |Nv | TRAPV 00020412 de fc 00 14 | | ADDA.W #0x14,A7 00020416 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002041a 41 ee 00 10 |A | LEA.L (A6+0x10),A0 0002041e 2f 10 |/ | MOVE.L (A0),-(A7) 00020420 1f 3c 00 0a | < | MOVE.B #0x0a,-(A7) 00020424 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002042a 54 4f |TO | ADDQ.L #0x2,A7 0002042c 2e 90 |. | MOVE.L (A0),(A7) 0002042e 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 00020432 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020438 5c 4f |\O | ADDQ.L #0x6,A7 0002043a 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 0002043e 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00020444 63 02 |c | BLS 0x20448 00020446 4e 4f |NO | TRAP #15 00020448 3f 00 |? | MOVE.W D0,-(A7) 0002044a 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 0002044e 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00020454 63 02 |c | BLS 0x20458 00020456 4e 4f |NO | TRAP #15 00020458 3f 00 |? | MOVE.W D0,-(A7) 0002045a 2f 10 |/ | MOVE.L (A0),-(A7) 0002045c 4e b9 00 01 02 1a |N | JSR KC0d_Write_Modem_String(Word, Word, Char) 00020462 50 4f |PO | ADDQ.L #0x8,A7 00020464 48 50 |HP | PEA.L (A0) 00020466 48 78 00 80 |Hx | PEA.L 0x80 0002046a 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 00020470 50 4f |PO | ADDQ.L #0x8,A7 00020472 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020476 4e 5e |N^ | UNLK A6 00020478 4e 75 |Nu | RTS 0002047a ; -------------------------------------------------------------------------------------- 0002047a ; OMSI PASCAL Function 0002047a ; <LVAR -0x00a @ 1(r)> 0002047a ; <LVAR -0x00c @> 0002047a ; -------------------------------------------------------------------------------------- 0002047a 4e 56 ff 80 |NV | LINK.W A6,#0xff80 0002047e bf d5 | | CMPA.L (A5),A7 00020480 62 06 |b | BHI 0x20488 00020482 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020486 4e 76 |Nv | TRAPV 00020488 de fc 00 6c | l | ADDA.W #0x6c,A7 0002048c 48 e7 f7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D3+D2+D1+D0,-(A7) 00020490 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020496 47 f9 00 02 0a 9a |G | LEA.L 0x20a9a,A3 0002049c 74 0f |t | MOVEQ.L #0x0f,D2 0002049e 76 01 |v | MOVEQ.L #0x01,D3 000204a0 41 fa fc e4 |A | LEA.L 0x20186,A0 000204a4 70 0e |p | MOVEQ.L #0x0e,D0 000204a6 3f 20 |? | MOVE.W -(A0),-(A7) 000204a8 51 c8 ff fc |Q | DBF D0,0x204a6 000204ac 59 4f |YO | SUBQ.L #0x4,A7 000204ae 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000204b2 3f 03 |? | MOVE.W D3,-(A7) 000204b4 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 000204b8 4e 92 |N | JSR (A2) 000204ba 50 4f |PO | ADDQ.L #0x8,A7 000204bc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000204c2 de fc 00 22 | " | ADDA.W #0x22,A7 000204c6 7a 00 |z | MOVEQ.L #0x00,D5 000204c8 7e 00 |~ | MOVEQ.L #0x00,D7 000204ca ba 82 | | CMP.L D2,D5 000204cc 63 02 |c | BLS 0x204d0 000204ce 4e 4f |NO | TRAP #15 000204d0 20 05 | | MOVE.L D5,D0 000204d2 e3 80 | | ASL.L #0x1,D0 000204d4 41 f9 00 02 0a 92 |A | LEA.L 0x20a92,A0 000204da be 82 | | CMP.L D2,D7 000204dc 63 02 |c | BLS 0x204e0 000204de 4e 4f |NO | TRAP #15 000204e0 41 f0 08 0c |A | LEA.L (A0+D0.L+#0xc),A0 000204e4 20 07 | | MOVE.L D7,D0 000204e6 e6 98 | | ROR.L #0x3,D0 000204e8 d0 c0 | | ADDA.W D0,A0 000204ea 48 40 |H@ | SWAP.W D0 000204ec e7 58 | X | ROL.W #0x3,D0 000204ee 12 10 | | MOVE.B (A0),D1 000204f0 e1 29 | ) | LSL.B D0,D1 000204f2 ee 09 | | LSR.B #0x7,D1 000204f4 1c 01 | | MOVE.B D1,D6 000204f6 67 6e |gn | BEQ 0x20566 000204f8 9e fc 00 0e | | SUBA.W #0xe,A7 000204fc 20 4f | O | MOVEA.L A7,A0 000204fe 43 fa fc 86 |C | LEA.L 0x20186,A1 00020502 70 0c |p | MOVEQ.L #0x0c,D0 00020504 10 d9 | | MOVE.B (A1)+,(A0)+ 00020506 51 c8 ff fc |Q | DBF D0,0x20504 0002050a 9e fc 00 0a | | SUBA.W #0xa,A7 0002050e 20 4f | O | MOVEA.L A7,A0 00020510 43 fa fc 82 |C | LEA.L 0x20194,A1 00020514 70 08 |p | MOVEQ.L #0x08,D0 00020516 10 d9 | | MOVE.B (A1)+,(A0)+ 00020518 51 c8 ff fc |Q | DBF D0,0x20516 0002051c 51 4f |QO | SUBQ.L #0x8,A7 0002051e 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00020522 3f 03 |? | MOVE.W D3,-(A7) 00020524 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00020528 4e 92 |N | JSR (A2) 0002052a 2e 87 |. | MOVE.L D7,(A7) 0002052c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020532 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00020536 3f 03 |? | MOVE.W D3,-(A7) 00020538 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002053c 4e 92 |N | JSR (A2) 0002053e 2e 85 |. | MOVE.L D5,(A7) 00020540 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020546 58 4f |XO | ADDQ.L #0x4,A7 00020548 4e b9 00 01 02 d8 |N | JSR StringCat4(a, b, c, d : String) : String 0002054e de fc 00 10 | | ADDA.W #0x10,A7 00020552 28 5f |(_ | MOVEA.L (A7)+,A4 00020554 de fc 00 14 | | ADDA.W #0x14,A7 00020558 2e 8c |. | MOVE.L A4,(A7) 0002055a 2f 05 |/ | MOVE.L D5,-(A7) 0002055c 2f 07 |/ | MOVE.L D7,-(A7) 0002055e 4e ba fe a4 |N | JSR 0x20404 00020562 de fc 00 0c | | ADDA.W #0xc,A7 00020566 52 87 |R | ADDQ.L #0x1,D7 00020568 be 82 | | CMP.L D2,D7 0002056a 6f 00 ff 5e |o ^ | BLE 0x204ca 0002056e 52 85 |R | ADDQ.L #0x1,D5 00020570 ba 82 | | CMP.L D2,D5 00020572 6f 00 ff 54 |o T | BLE 0x204c8 00020576 20 13 | | MOVE.L (A3),D0 00020578 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 0002057e 63 02 |c | BLS 0x20582 00020580 4e 4f |NO | TRAP #15 00020582 3f 00 |? | MOVE.W D0,-(A7) 00020584 48 6e ff f6 |Hn | PEA.L (A6-0xa) 00020588 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 0002058e 5c 4f |\O | ADDQ.L #0x6,A7 00020590 4a 2e ff f6 |J. | TST.B (A6-0xa) 00020594 67 1a |g | BEQ 0x205b0 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 f4 |Hn | PEA.L (A6-0xc) 000205a8 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 000205ae 5c 4f |\O | ADDQ.L #0x6,A7 000205b0 4a 2e ff f6 |J. | TST.B (A6-0xa) 000205b4 67 00 ff 10 |g | BEQ 0x204c6 000205b8 4c df 1f ef |L | MOVEM.L (A7)+,D0+D1+D2+D3+D5+D6+D7+A0+A1+A2+A3+A4 000205bc 4e 5e |N^ | UNLK A6 000205be 4e 75 |Nu | RTS 000205c0 ; -------------------------------------------------------------------------------------- 000205c0 ; OMSI PASCAL Function 000205c0 ; <LVAR -0x002 @ 1(r)> 000205c0 ; <LVAR -0x010 @ 2(r)> 000205c0 ; -------------------------------------------------------------------------------------- 000205c0 4e 56 ff 6c |NV l | LINK.W A6,#0xff6c 000205c4 bf d5 | | CMPA.L (A5),A7 000205c6 62 06 |b | BHI 0x205ce 000205c8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000205cc 4e 76 |Nv | TRAPV 000205ce de fc 00 80 | | ADDA.W #0x80,A7 000205d2 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000205d6 45 ee ff f0 |E | LEA.L (A6-0x10),A2 000205da 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000205e0 74 01 |t | MOVEQ.L #0x01,D2 000205e2 76 20 |v | MOVEQ.L #0x20,D3 000205e4 78 0f |x | MOVEQ.L #0x0f,D4 000205e6 9e fc 00 1c | | SUBA.W #0x1c,A7 000205ea 20 4f | O | MOVEA.L A7,A0 000205ec 43 fa fb b0 |C | LEA.L 0x2019e,A1 000205f0 70 1a |p | MOVEQ.L #0x1a,D0 000205f2 10 d9 | | MOVE.B (A1)+,(A0)+ 000205f4 51 c8 ff fc |Q | DBF D0,0x205f2 000205f8 59 4f |YO | SUBQ.L #0x4,A7 000205fa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000205fe 3f 02 |? | MOVE.W D2,-(A7) 00020600 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00020604 4e 93 |N | JSR (A3) 00020606 50 4f |PO | ADDQ.L #0x8,A7 00020608 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002060e de c3 | | ADDA.W D3,A7 00020610 7e 00 |~ | MOVEQ.L #0x00,D7 00020612 be 84 | | CMP.L D4,D7 00020614 63 02 |c | BLS 0x20618 00020616 4e 4f |NO | TRAP #15 00020618 20 07 | | MOVE.L D7,D0 0002061a e3 80 | | ASL.L #0x1,D0 0002061c 41 f9 00 02 0a 92 |A | LEA.L 0x20a92,A0 00020622 12 30 08 0c | 0 | MOVE.B (A0+D0.L+#0xc),D1 00020626 ee 09 | | LSR.B #0x7,D1 00020628 67 00 01 76 |g v | BEQ 0x207a0 0002062c 0c 87 00 00 ff ff | | CMPI.L #0x0000ffff,D7 00020632 63 02 |c | BLS 0x20636 00020634 4e 4f |NO | TRAP #15 00020636 3f 07 |? | MOVE.W D7,-(A7) 00020638 48 52 |HR | PEA.L (A2) 0002063a 4e b9 00 01 02 1c |N | JSR KERNCALL_0e 00020640 5c 4f |\O | ADDQ.L #0x6,A7 00020642 30 12 |0 | MOVE.W (A2),D0 00020644 02 40 80 00 | @ | ANDI.W #0x8000,D0 00020648 67 00 01 56 |g V | BEQ 0x207a0 0002064c 30 12 |0 | MOVE.W (A2),D0 0002064e 02 40 0f 00 | @ | ANDI.W #0x0f00,D0 00020652 e0 48 | H | LSR.W #0x8,D0 00020654 42 81 |B | CLR.L D1 00020656 32 00 |2 | MOVE.W D0,D1 00020658 2c 01 |, | MOVE.L D1,D6 0002065a 30 12 |0 | MOVE.W (A2),D0 0002065c 02 40 00 ff | @ | ANDI.W #0x00ff,D0 00020660 42 81 |B | CLR.L D1 00020662 32 00 |2 | MOVE.W D0,D1 00020664 2a 01 |* | MOVE.L D1,D5 00020666 5d 4f |]O | SUBQ.L #0x6,A7 00020668 20 4f | O | MOVEA.L A7,A0 0002066a 43 fa fb 4e |C N | LEA.L 0x201ba,A1 0002066e 70 04 |p | MOVEQ.L #0x04,D0 00020670 10 d9 | | MOVE.B (A1)+,(A0)+ 00020672 51 c8 ff fc |Q | DBF D0,0x20670 00020676 9e fc 00 0a | | SUBA.W #0xa,A7 0002067a 20 4f | O | MOVEA.L A7,A0 0002067c 43 fa fb 42 |C B | LEA.L 0x201c0,A1 00020680 70 08 |p | MOVEQ.L #0x08,D0 00020682 10 d9 | | MOVE.B (A1)+,(A0)+ 00020684 51 c8 ff fc |Q | DBF D0,0x20682 00020688 2f 3a fb 4c |/: L | MOVE.L 0x201d6,-(A7) 0002068c 2f 3a fb 44 |/: D | MOVE.L 0x201d2,-(A7) 00020690 2f 3a fb 3c |/: < | MOVE.L 0x201ce,-(A7) 00020694 2f 3a fb 34 |/: 4 | MOVE.L 0x201ca,-(A7) 00020698 51 4f |QO | SUBQ.L #0x8,A7 0002069a 48 6f 00 22 |Ho " | PEA.L (A7+0x22) 0002069e 3f 02 |? | MOVE.W D2,-(A7) 000206a0 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 000206a4 4e 93 |N | JSR (A3) 000206a6 2e 86 |. | MOVE.L D6,(A7) 000206a8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000206ae 48 6f 00 20 |Ho | PEA.L (A7+0x20) 000206b2 3f 02 |? | MOVE.W D2,-(A7) 000206b4 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 000206b8 4e 93 |N | JSR (A3) 000206ba 2e 87 |. | MOVE.L D7,(A7) 000206bc 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000206c2 48 6f 00 18 |Ho | PEA.L (A7+0x18) 000206c6 3f 02 |? | MOVE.W D2,-(A7) 000206c8 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 000206cc 4e 93 |N | JSR (A3) 000206ce 2e 85 |. | MOVE.L D5,(A7) 000206d0 48 78 00 02 |Hx | PEA.L 0x2 000206d4 4e b9 00 01 02 e8 |N | JSR Long2HexString(val : Long; ndig : Long) : String 000206da 50 4f |PO | ADDQ.L #0x8,A7 000206dc 4e b9 00 01 02 e0 |N | JSR StringCat6(a, b, c, d, e, f : String) : String 000206e2 de fc 00 18 | | ADDA.W #0x18,A7 000206e6 28 5f |(_ | MOVEA.L (A7)+,A4 000206e8 de c3 | | ADDA.W D3,A7 000206ea 30 12 |0 | MOVE.W (A2),D0 000206ec 02 40 40 00 | @@ | ANDI.W #0x4000,D0 000206f0 67 28 |g( | BEQ 0x2071a 000206f2 2f 3a fa ea |/: | MOVE.L 0x201de,-(A7) 000206f6 2f 3a fa e2 |/: | MOVE.L 0x201da,-(A7) 000206fa 59 4f |YO | SUBQ.L #0x4,A7 000206fc 2f 0c |/ | MOVE.L A4,-(A7) 000206fe 59 4f |YO | SUBQ.L #0x4,A7 00020700 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020704 3f 02 |? | MOVE.W D2,-(A7) 00020706 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 0002070a 4e 93 |N | JSR (A3) 0002070c 50 4f |PO | ADDQ.L #0x8,A7 0002070e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020714 50 4f |PO | ADDQ.L #0x8,A7 00020716 28 5f |(_ | MOVEA.L (A7)+,A4 00020718 50 4f |PO | ADDQ.L #0x8,A7 0002071a 30 12 |0 | MOVE.W (A2),D0 0002071c 02 40 20 00 | @ | ANDI.W #0x2000,D0 00020720 67 28 |g( | BEQ 0x2074a 00020722 2f 3a fa c2 |/: | MOVE.L 0x201e6,-(A7) 00020726 2f 3a fa ba |/: | MOVE.L 0x201e2,-(A7) 0002072a 59 4f |YO | SUBQ.L #0x4,A7 0002072c 2f 0c |/ | MOVE.L A4,-(A7) 0002072e 59 4f |YO | SUBQ.L #0x4,A7 00020730 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020734 3f 02 |? | MOVE.W D2,-(A7) 00020736 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 0002073a 4e 93 |N | JSR (A3) 0002073c 50 4f |PO | ADDQ.L #0x8,A7 0002073e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020744 50 4f |PO | ADDQ.L #0x8,A7 00020746 28 5f |(_ | MOVEA.L (A7)+,A4 00020748 50 4f |PO | ADDQ.L #0x8,A7 0002074a 30 12 |0 | MOVE.W (A2),D0 0002074c 02 40 10 00 | @ | ANDI.W #0x1000,D0 00020750 67 30 |g0 | BEQ 0x20782 00020752 51 4f |QO | SUBQ.L #0x8,A7 00020754 20 4f | O | MOVEA.L A7,A0 00020756 43 fa fa 92 |C | LEA.L 0x201ea,A1 0002075a 70 06 |p | MOVEQ.L #0x06,D0 0002075c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002075e 51 c8 ff fc |Q | DBF D0,0x2075c 00020762 59 4f |YO | SUBQ.L #0x4,A7 00020764 2f 0c |/ | MOVE.L A4,-(A7) 00020766 59 4f |YO | SUBQ.L #0x4,A7 00020768 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002076c 3f 02 |? | MOVE.W D2,-(A7) 0002076e 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00020772 4e 93 |N | JSR (A3) 00020774 50 4f |PO | ADDQ.L #0x8,A7 00020776 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002077c 50 4f |PO | ADDQ.L #0x8,A7 0002077e 28 5f |(_ | MOVEA.L (A7)+,A4 00020780 50 4f |PO | ADDQ.L #0x8,A7 00020782 59 4f |YO | SUBQ.L #0x4,A7 00020784 2f 0c |/ | MOVE.L A4,-(A7) 00020786 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 0002078c 2e 87 |. | MOVE.L D7,(A7) 0002078e 2f 06 |/ | MOVE.L D6,-(A7) 00020790 4e ba fc 72 |N r | JSR 0x20404 00020794 50 4f |PO | ADDQ.L #0x8,A7 00020796 2e 8c |. | MOVE.L A4,(A7) 00020798 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002079e 58 4f |XO | ADDQ.L #0x4,A7 000207a0 52 87 |R | ADDQ.L #0x1,D7 000207a2 be 84 | | CMP.L D4,D7 000207a4 6f 00 fe 6c |o l | BLE 0x20612 000207a8 20 39 00 02 0a 9a | 9 | MOVE.L 0x20a9a,D0 000207ae 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000207b4 63 02 |c | BLS 0x207b8 000207b6 4e 4f |NO | TRAP #15 000207b8 3f 00 |? | MOVE.W D0,-(A7) 000207ba 48 6e ff fe |Hn | PEA.L (A6-0x2) 000207be 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 000207c4 5c 4f |\O | ADDQ.L #0x6,A7 000207c6 4a 2e ff fe |J. | TST.B (A6-0x2) 000207ca 67 1c |g | BEQ 0x207e8 000207cc 20 39 00 02 0a 9a | 9 | MOVE.L 0x20a9a,D0 000207d2 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000207d8 63 02 |c | BLS 0x207dc 000207da 4e 4f |NO | TRAP #15 000207dc 3f 00 |? | MOVE.W D0,-(A7) 000207de 48 52 |HR | PEA.L (A2) 000207e0 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 000207e6 5c 4f |\O | ADDQ.L #0x6,A7 000207e8 4a 2e ff fe |J. | TST.B (A6-0x2) 000207ec 67 00 fe 22 |g " | BEQ 0x20610 000207f0 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000207f4 4e 5e |N^ | UNLK A6 000207f6 4e 75 |Nu | RTS 000207f8 ; -------------------------------------------------------------------------------------- 000207f8 ; OMSI PASCAL Function 000207f8 ; -------------------------------------------------------------------------------------- 000207f8 START: 000207f8 4f fa 00 08 |O | LEA.L MAIN,A7 000207fc 4e f9 00 01 02 80 |N | JMP ?start_program 00020802 MAIN: 00020802 45 f9 00 02 0a be |E | LEA.L 0x20abe,A2 00020808 72 01 |r | MOVEQ.L #0x01,D1 0002080a 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020810 59 4f |YO | SUBQ.L #0x4,A7 00020812 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 00020818 23 d7 00 02 0a 9a |# | MOVE.L (A7),0x20a9a 0002081e 9e fc 00 22 | " | SUBA.W #0x22,A7 00020822 20 4f | O | MOVEA.L A7,A0 00020824 43 fa f9 cc |C | LEA.L 0x201f2,A1 00020828 70 24 |p$ | MOVEQ.L #0x24,D0 0002082a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002082c 51 c8 ff fc |Q | DBF D0,0x2082a 00020830 59 4f |YO | SUBQ.L #0x4,A7 00020832 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020836 3f 01 |? | MOVE.W D1,-(A7) 00020838 3f 3c 00 25 |?< % | MOVE.W #0x25,-(A7) 0002083c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020842 50 4f |PO | ADDQ.L #0x8,A7 00020844 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002084a de fc 00 2a | * | ADDA.W #0x2a,A7 0002084e 48 52 |HR | PEA.L (A2) 00020850 4e ba f9 ee |N | JSR 0x20240 00020854 58 4f |XO | ADDQ.L #0x4,A7 00020856 10 12 | | MOVE.B (A2),D0 00020858 48 80 |H | EXTB.W D0 0002085a b0 41 | A | CMP.W D1,D0 0002085c 63 02 |c | BLS 0x20860 0002085e 4e 4e |NN | TRAP #14 00020860 d0 40 | @ | ADD.W D0,D0 00020862 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002086a 00 04 | | .CONST 0x4 ; [0x0] -> 0x2086e 0002086c 00 0a | | .CONST 0xa ; [0x1] -> 0x20874 0002086e switch@0x20862[0x0]: 0002086e 4e ba fd 50 |N P | JSR 0x205c0 00020872 60 04 |` | BRA 0x20878 00020874 switch@0x20862[0x1]: 00020874 4e ba fc 04 |N | JSR 0x2047a 00020878 42 27 |B' | CLR.B -(A7) 0002087a 48 78 00 01 |Hx | PEA.L 0x1 0002087e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020884 5c 4f |\O | ADDQ.L #0x6,A7 00020886 4e b9 00 01 02 84 |N | JSR ?exit 0002088c 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 0002089a ; -------------------------------------------------------------------------------------- 0002089a ; OMSI PASCAL Function 0002089a ; <LVAR 0x008 1(r)> 0002089a ; -------------------------------------------------------------------------------------- 0002089a PROG_FAIL: 0002089a 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 0002089e bf d5 | | CMPA.L (A5),A7 000208a0 62 06 |b | BHI 0x208a8 000208a2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000208a6 4e 76 |Nv | TRAPV 000208a8 de fc 00 2c | , | ADDA.W #0x2c,A7 000208ac 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000208b0 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 000208b4 70 06 |p | MOVEQ.L #0x06,D0 000208b6 3f 20 |? | MOVE.W -(A0),-(A7) 000208b8 51 c8 ff fc |Q | DBF D0,0x208b6 000208bc 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000208c0 51 4f |QO | SUBQ.L #0x8,A7 000208c2 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000208c6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000208ca 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000208ce 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000208d4 58 4f |XO | ADDQ.L #0x4,A7 000208d6 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000208da 48 80 |H | EXTB.W D0 000208dc 48 c0 |H | EXTW.L D0 000208de 2f 00 |/ | MOVE.L D0,-(A7) 000208e0 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000208e6 58 4f |XO | ADDQ.L #0x4,A7 000208e8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000208ee 50 4f |PO | ADDQ.L #0x8,A7 000208f0 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000208f6 de fc 00 14 | | ADDA.W #0x14,A7 000208fa 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000208fe 4e 5e |N^ | UNLK A6 00020900 4e 75 |Nu | RTS 00020902 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00020910 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 0002091e 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 0002092c 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 0002093e 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00020956 ; -------------------------------------------------------------------------------------- 00020956 ; OMSI PASCAL Function 00020956 ; <LVAR 0x00e 1(r)> 00020956 ; <LVAR 0x00a 4(r)> 00020956 ; <LVAR 0x008 1(r)> 00020956 ; -------------------------------------------------------------------------------------- 00020956 EXP_FAIL: 00020956 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 0002095a bf d5 | | CMPA.L (A5),A7 0002095c 62 06 |b | BHI 0x20964 0002095e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020962 4e 76 |Nv | TRAPV 00020964 de fc 00 74 | t | ADDA.W #0x74,A7 00020968 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 0002096c 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020972 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00020978 72 01 |r | MOVEQ.L #0x01,D1 0002097a 74 0d |t | MOVEQ.L #0x0d,D2 0002097c 76 1e |v | MOVEQ.L #0x1e,D3 0002097e 78 12 |x | MOVEQ.L #0x12,D4 00020980 7a 0e |z | MOVEQ.L #0x0e,D5 00020982 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020988 41 fa ff b4 |A | LEA.L 0x2093e,A0 0002098c 70 08 |p | MOVEQ.L #0x08,D0 0002098e 3f 20 |? | MOVE.W -(A0),-(A7) 00020990 51 c8 ff fc |Q | DBF D0,0x2098e 00020994 59 4f |YO | SUBQ.L #0x4,A7 00020996 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002099a 3f 01 |? | MOVE.W D1,-(A7) 0002099c 3f 04 |? | MOVE.W D4,-(A7) 0002099e 4e 93 |N | JSR (A3) 000209a0 50 4f |PO | ADDQ.L #0x8,A7 000209a2 4e 94 |N | JSR (A4) 000209a4 50 4f |PO | ADDQ.L #0x8,A7 000209a6 20 4f | O | MOVEA.L A7,A0 000209a8 43 fa ff 58 |C X | LEA.L 0x20902,A1 000209ac 70 0c |p | MOVEQ.L #0x0c,D0 000209ae 10 d9 | | MOVE.B (A1)+,(A0)+ 000209b0 51 c8 ff fc |Q | DBF D0,0x209ae 000209b4 51 4f |QO | SUBQ.L #0x8,A7 000209b6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000209ba 3f 01 |? | MOVE.W D1,-(A7) 000209bc 3f 02 |? | MOVE.W D2,-(A7) 000209be 4e 93 |N | JSR (A3) 000209c0 54 4f |TO | ADDQ.L #0x2,A7 000209c2 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000209c6 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000209cc 54 4f |TO | ADDQ.L #0x2,A7 000209ce 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000209d4 50 4f |PO | ADDQ.L #0x8,A7 000209d6 4e 94 |N | JSR (A4) 000209d8 de c4 | | ADDA.W D4,A7 000209da 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000209de b0 c1 | | CMPA.W D1,A0 000209e0 67 48 |gH | BEQ 0x20a2a 000209e2 9e c5 | | SUBA.W D5,A7 000209e4 22 4f |"O | MOVEA.L A7,A1 000209e6 45 fa ff 28 |E ( | LEA.L 0x20910,A2 000209ea 70 0c |p | MOVEQ.L #0x0c,D0 000209ec 12 da | | MOVE.B (A2)+,(A1)+ 000209ee 51 c8 ff fc |Q | DBF D0,0x209ec 000209f2 9e c3 | | SUBA.W D3,A7 000209f4 22 4f |"O | MOVEA.L A7,A1 000209f6 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000209fa 70 1d |p | MOVEQ.L #0x1d,D0 000209fc 12 d8 | | MOVE.B (A0)+,(A1)+ 000209fe 51 c8 ff fc |Q | DBF D0,0x209fc 00020a02 51 4f |QO | SUBQ.L #0x8,A7 00020a04 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020a08 3f 01 |? | MOVE.W D1,-(A7) 00020a0a 3f 02 |? | MOVE.W D2,-(A7) 00020a0c 4e 93 |N | JSR (A3) 00020a0e 58 4f |XO | ADDQ.L #0x4,A7 00020a10 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020a14 3f 01 |? | MOVE.W D1,-(A7) 00020a16 3f 03 |? | MOVE.W D3,-(A7) 00020a18 4e 93 |N | JSR (A3) 00020a1a 50 4f |PO | ADDQ.L #0x8,A7 00020a1c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020a22 50 4f |PO | ADDQ.L #0x8,A7 00020a24 4e 94 |N | JSR (A4) 00020a26 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020a2a 9e c5 | | SUBA.W D5,A7 00020a2c 20 4f | O | MOVEA.L A7,A0 00020a2e 43 fa fe ee |C | LEA.L 0x2091e,A1 00020a32 70 0c |p | MOVEQ.L #0x0c,D0 00020a34 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a36 51 c8 ff fc |Q | DBF D0,0x20a34 00020a3a 51 4f |QO | SUBQ.L #0x8,A7 00020a3c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020a40 3f 01 |? | MOVE.W D1,-(A7) 00020a42 3f 02 |? | MOVE.W D2,-(A7) 00020a44 4e 93 |N | JSR (A3) 00020a46 54 4f |TO | ADDQ.L #0x2,A7 00020a48 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00020a4c 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00020a52 54 4f |TO | ADDQ.L #0x2,A7 00020a54 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020a5a 50 4f |PO | ADDQ.L #0x8,A7 00020a5c 4e 94 |N | JSR (A4) 00020a5e 5d 4f |]O | SUBQ.L #0x6,A7 00020a60 20 4f | O | MOVEA.L A7,A0 00020a62 43 fa fe da |C | LEA.L 0x2093e,A1 00020a66 70 16 |p | MOVEQ.L #0x16,D0 00020a68 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a6a 51 c8 ff fc |Q | DBF D0,0x20a68 00020a6e 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020a72 59 4f |YO | SUBQ.L #0x4,A7 00020a74 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020a78 3f 01 |? | MOVE.W D1,-(A7) 00020a7a 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00020a7e 4e 93 |N | JSR (A3) 00020a80 50 4f |PO | ADDQ.L #0x8,A7 00020a82 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020a88 de c3 | | ADDA.W D3,A7 00020a8a 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00020a8e 4e 5e |N^ | UNLK A6 00020a90 4e 75 |Nu | RTS