|
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: 5632 (0x1600)
Types: M200
Notes: M200_PROGRAM
Names: »FIXMODEM.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »FIXMODEM.M200«
@ 204cc
<LVAR 0x008 @ 4(r)>
<POP 204cc-20522 Body>
<POP 204cc-204e2 Prologue> Σ0 ↓
<POP 204e2-204e6 RegCacheLoad> Σ0 ↓
<POP 204e6-2051a Naked> Σ0 ↓
<MI 204e6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Const 0x204e8 0xa.2> Δ-2 {[4, '(A6+0x8)']|[#10]}
<Call 0x204ec 0x102c0> {[4, '(A6+0x8)']|[#10]}
AppendChar(MOD b : String; a : char)
<POP 204f2-204f4 StackAdj> Δ+2 {[4, '(A6+0x8)']}
<MI 204f4 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x204f6 0xd.2> Δ-2 {[4, '(A6+0x8)']|[#13]}
<Call 0x204fa 0x102c0> {[4, '(A6+0x8)']|[#13]}
AppendChar(MOD b : String; a : char)
<POP 20500-20502 StackAdj> Δ+4 {[-2-]}
<POP 20502-20503 StackAdj> Δ+2 {}
<Const 0x20503 0x1.2> Δ-2 {[#1]}
<MI 20506 MOVE.L (A6+0x8),-(A7)> Δ-4 {[#1]|[4, '(A6+0x8)']}
<Call 0x20508 0x1020a> {[#1]|[4, '(A6+0x8)']}
KC05_Write_Console_String(port : Word ; str : String)
<POP 2050e-20510 StackAdj> Δ+6 {}
<Pointer.fp 0x20510 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x20512 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 20518-2051a StackAdj> Δ+4 {}
<POP 2051a-20522 Epilogue> Σ0
@ 20522
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 20522-20880 Body> Δ+72
<POP 20522-20538 Prologue> Σ0 ↓
<POP 20538-2054c RegCacheLoad> Σ0 ↓
<POP 2054c-2055a Naked> Σ0 ↓ →0x20840
<MI 2054c MOVE.L (A6+0x8),D0> {}
<MI 20550 CMPI.L #0x000000ff,D0> {}
<MI 20556 BHI 0x20840> {}
<POP 2055a-20564 Naked> Σ0 →0x20764 →0x20784 →0x207ac →0x207ce →0x207e0 →0x20806 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x20840 →0x2082c
<MI 2055a ADD.W D0,D0> {}
<MI 2055c SWITCH D0.W> {}
<POP 20764-20774 Naked> Σ0 Δ-20 ↓ ←0x2055a
<Blob 0x20764 [20] @> Δ-20 {[«20""»]}
<POP 20774-20780 Naked> Σ-20 Δ-12 →0x2086e ←0x207ce ←0x2082c
<POP 20774-20776 StackAdj> Δ-4 {[-24-]}
<Lit 0x20776> {[-20-]|[$$…]}
<Pointer.sp 0x20776 4> Δ-4
<Const 0x2077a 0x1.2> Δ-2
<Const 0x2077c 0x13.2> Δ-2
<Call 0x2077e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<MI 20780 BRA 0x2086e> {[-20-]|[$$…]}
<POP 2077e-20780 StackAdj> Δ-8 {[-20-]|[$$…]|[-8-]}
<POP 20784-207ac Naked> Σ0 →0x20874 ←0x2055a
<Blob 0x20784 [14] @> Δ-14 {[«14""»]}
<POP 20794-20796 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x20796 13> {[«14""»]|[$$Phone is busy]}
<MI 207a4 MOVEA.L (A7)+,A4> Δ+4 {[«14""»]}
<POP 207a6-207a8 StackAdj> Δ+14 {}
<MI 207a8 BRA 0x20874> {}
<POP 207ac-207ce Naked> Σ0 →0x20874 ←0x2055a
<Blob 0x207ac [4] @> Δ-4 {[«4""»]}
<Blob 0x207b0 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x207b4 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 207b8-207ba StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x207ba 12> {[«4""»]|[«4""»]|[«4""»]|[$$No dial tone]}
<MI 207c6 MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]|[«4""»]}
<POP 207c8-207ca StackAdj> Δ+12 {}
<MI 207ca BRA 0x20874> {}
<POP 207ce-207e0 Naked> Σ0 Δ-20 →0x20774 ←0x2055a
<Blob 0x207ce [20] @> Δ-20 {[«20""»]}
<MI 207de BRA 0x20774> {[«20""»]}
<POP 207e0-20806 Naked> Σ0 →0x20874 ←0x2055a
<Blob 0x207e0 [18] @> Δ-18 {[«18""»]}
<POP 207f0-207f2 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x207f2 17> {[«18""»]|[$$Already connected]}
<MI 20800 MOVEA.L (A7)+,A4> Δ+4 {[«18""»]}
<POP 20802-20804 StackAdj> Δ+18 {}
<MI 20804 BRA 0x20874> {}
<POP 20806-2082c Naked> Σ0 →0x20874 ←0x2055a
<Blob 0x20806 [30] @> Δ-30 {[«30""»]}
<POP 20816-20818 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x20818 29> {[«30""»]|[$$No modem or dial-out disabled]}
<MI 20826 MOVEA.L (A7)+,A4> Δ+4 {[«30""»]}
<POP 20828-2082a StackAdj> Δ+30 {}
<MI 2082a BRA 0x20874> {}
<POP 2082c-20840 Naked> Σ0 Δ-20 →0x20774 ←0x2055a
<Blob 0x2082c [20] @> Δ-20 {[«20""»]}
<MI 2083c BRA 0x20774> {[«20""»]}
<POP 20840-2086e Naked> Σ0 Δ-32 ↓ ←0x2054c ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a ←0x2055a
<Blob 0x20840 [20] @> Δ-20 {[«20""»]}
<POP 20850-20852 StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x20852 19> {[«20""»]|[-4-]|[$$Unknown encoding =>]}
<MI 2085c MOVE.L (A6+0x8),(A7)> {[«20""»]|[-4-]|[4, '(A6+0x8)']}
<POP 2085a-2085c StackAdj> Δ-8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Call 0x20860 0x102e4> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
Long2String(a : Long) : String
<POP 20866-20868 StackAdj> Δ+4 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x20868 0x102d0> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 2086e-20874 Naked> Σ-32 Δ+32 ↓ ←0x20774
<POP 2086e-20870 StackAdj> Δ+8 {[-24-]}
<MI 20870 MOVEA.L (A7)+,A4> Δ+4 {[-20-]}
<POP 20872-20874 StackAdj> Δ+20 {}
<POP 20874-20878 Naked> Σ0 ↓ ←0x20784 ←0x207ac ←0x207e0 ←0x20806
<MI 20874 MOVE.L A4,(A6+0xc)> {}
<POP 20878-20880 Epilogue> Σ0
@ 20880
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 20880-20a0a Body> Δ+16
<POP 20880-20896 Prologue> Σ0 ↓
<POP 20896-208aa RegCacheLoad> Σ0 ↓
<POP 208aa-208b8 Naked> Σ0 ↓ →0x209c4
<MI 208aa MOVE.L (A6+0x8),D0> {}
<MI 208ae CMPI.L #0x00000006,D0> {}
<MI 208b4 BHI 0x209c4> {}
<POP 208b8-208c2 Naked> Σ0 →0x208d0 →0x208f8 →0x20920 →0x20942 →0x2096a →0x2097e →0x209a4
<MI 208b8 ADD.W D0,D0> {}
<MI 208ba SWITCH D0.W> {}
<POP 208d0-208e0 Naked> Σ0 Δ-16 ↓ ←0x208b8
<Blob 0x208d0 [16] @> Δ-16 {[«16""»]}
<POP 208e0-208f8 Naked> Σ-16 Δ+16 →0x209fe ←0x2096a
<POP 208e0-208e2 StackAdj> Δ-4 {[-20-]}
<Lit 0x208e2> {[-16-]|[$$…]}
<Pointer.sp 0x208e2 4> Δ-4
<Const 0x208e6 0x1.2> Δ-2
<Const 0x208e8 0xf.2> Δ-2
<Call 0x208ec 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 208ee-208f0 StackAdj> Δ+8
<MI 208f0 MOVEA.L (A7)+,A4> Δ+4 {[-16-]}
<POP 208f2-208f4 StackAdj> Δ+16 {}
<MI 208f4 BRA 0x209fe> {}
<POP 208f8-20920 Naked> Σ0 →0x209fe ←0x208b8
<Blob 0x208f8 [18] @> Δ-18 {[«18""»]}
<POP 20908-2090a StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2090a 17> {[«18""»]|[$$Data byte present]}
<MI 20918 MOVEA.L (A7)+,A4> Δ+4 {[«18""»]}
<POP 2091a-2091c StackAdj> Δ+18 {}
<MI 2091c BRA 0x209fe> {}
<POP 20920-20942 Naked> Σ0 →0x209fe ←0x208b8
<Blob 0x20920 [4] @> Δ-4 {[«4""»]}
<Blob 0x20924 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20928 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2092c-2092e StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2092e 12> {[«4""»]|[«4""»]|[«4""»]|[$$Disconnected]}
<MI 2093a MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2093c-2093e StackAdj> Δ+12 {}
<MI 2093e BRA 0x209fe> {}
<POP 20942-2096a Naked> Σ0 →0x209fe ←0x208b8
<Blob 0x20942 [10] @> Δ-10 {[«10""»]}
<POP 20952-20954 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x20954 9> {[«10""»]|[$$Connected]}
<MI 20962 MOVEA.L (A7)+,A4> Δ+4 {[«10""»]}
<POP 20964-20966 StackAdj> Δ+10 {}
<MI 20966 BRA 0x209fe> {}
<POP 2096a-2097e Naked> Σ0 Δ-16 →0x208e0 ←0x208b8
<Blob 0x2096a [16] @> Δ-16 {[«16""»]}
<MI 2097a BRA 0x208e0> {[«16""»]}
<POP 2097e-209a4 Naked> Σ0 →0x209fe ←0x208b8
<Blob 0x2097e [26] @> Δ-26 {[«26""»]}
<POP 2098e-20990 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x20990 25> {[«26""»]|[$$Disconnect packet arrival]}
<MI 2099e MOVEA.L (A7)+,A4> Δ+4 {[«26""»]}
<POP 209a0-209a2 StackAdj> Δ+26 {}
<MI 209a2 BRA 0x209fe> {}
<POP 209a4-209c4 Naked> Σ0 →0x209fe ←0x208b8
<Blob 0x209a4 [22] @> Δ-22 {[«22""»]}
<POP 209b0-209b2 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x209b2 22> {[«22""»]|[$$Connect packet arrival]}
<MI 209be MOVEA.L (A7)+,A4> Δ+4 {[«22""»]}
<POP 209c0-209c2 StackAdj> Δ+22 {}
<MI 209c2 BRA 0x209fe> {}
<POP 209c4-209fe Naked> Σ0 ↓ ←0x208aa
<Blob 0x209c4 [20] @> Δ-20 {[«20""»]}
<POP 209d6-209d8 StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x209d8 19> {[«20""»]|[-4-]|[$$Unknown encoding =>]}
<MI 209e4 MOVE.L (A6+0x8),(A7)> {[«20""»]|[-4-]|[4, '(A6+0x8)']}
<POP 209e2-209e4 StackAdj> Δ-8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Call 0x209e8 0x102e4> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
Long2String(a : Long) : String
<POP 209ee-209f0 StackAdj> Δ+4 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x209f0 0x102d0> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 209f6-209f8 StackAdj> Δ+8 {[«20""»]|[-4-]}
<MI 209f8 MOVEA.L (A7)+,A4> Δ+4 {[«20""»]}
<POP 209fa-209fe StackAdj> Δ+20 {}
<POP 209fe-20a02 Naked> Σ0 ↓ ←0x208e0 ←0x208f8 ←0x20920 ←0x20942 ←0x2097e ←0x209a4
<MI 209fe MOVE.L A4,(A6+0xc)> {}
<POP 20a02-20a0a Epilogue> Σ0
@ 20a0a
<LVAR 0x008 1(w)>
<LVAR -0x004 @ 1(r)>
<POP 20a0a-20a4a Body>
<POP 20a0a-20a20 Prologue> Σ0 ↓
<POP 20a20-20a24 RegCacheLoad> Σ0 ↓
<POP 20a24-20a36 Naked> Σ0 ↓ →0x20a24 ←0x20a24
<Const 0x20a24 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20a28 <LVAR -0x004 @ 1(r)>> Δ-4 {[#3]|[@@-4]}
<Call 0x20a2a 0x10212> {[#3]|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 20a30-20a32 StackAdj> Δ+6 {}
<MI 20a32 TST.B (A6-0x4)> {}
<MI 20a34 BEQ 0x20a24> {}
<POP 20a36-20a42 Naked> Σ0 ↓
<MI 20a36 MOVE.B (A6-0x4),D0> {}
<MI 20a38 EXTB.W D0> {}
<POP 0x20a3a LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 20a3e MOVE.B D0,(A6+0x8)> {}
<POP 20a42-20a4a Epilogue> Σ0
@ 20a4a
<LVAR 0x00c 2(w)>
<LVAR 0x008 4(r)>
<POP 20a4a-20a80 Body>
<POP 20a4a-20a60 Prologue> Σ0 ↓
<POP 20a60-20a78 Naked> Σ0 ↓
<POP 20a60-20a62 StackAdj> Δ-2 {[-2-]}
<MI 20a62 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x8)']}
<Call 0x20a66 0x10592> {[-2-]|[4, '(A6+0x8)']}
ReadConfig(where : Long) : Word
<POP 20a6c-20a6e StackAdj> Δ+4 {[-2-]}
<MI 20a6e MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x20a70 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20a74 MOVE.W D0,(A6+0xc)> {}
<POP 20a78-20a80 Epilogue> Σ0
@ 20a80
<LVAR 0x008 4(r)>
<POP 20a80-20af2 Body>
<POP 20a80-20a96 Prologue> Σ0 ↓
<POP 20a96-20aea Naked> Σ0 ↓
<Const 0x20a96 0x1.4> Δ-4 {[##1]}
<Call 0x20a9a 0x103f4> {[##1]}
SetConsoleConfig(a : Long)
<MI 20aa0 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Call 0x20aa4 0x103e0> {[4, '(A6+0x8)']}
WriteConsoleStringCrLf(str : String)
<POP 20aaa-20aab StackAdj> Δ+4 ↓ {}
<Blob 0x20aab [30] @> Δ-30 {[«30""»]}
<POP 20abc-20abe StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x20abe 29> {[«30""»]|[$$Abandoning remote connection.]}
<Call 0x20ad2 0x103e0> {[«30""»]|[$$Abandoning remote connection.]}
WriteConsoleStringCrLf(str : String)
<POP 20ad8-20adc StackAdj> Δ+32 {[-2-]}
<MI 20adc CLR.B (A7)> {[-2-]}
<Const 0x20ade 0x1.4> Δ-4 {[-2-]|[##1]}
<Call 0x20ae2 0x103b8> {[-2-]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20ae8-20aea StackAdj> Δ+6 {}
<POP 20aea-20af2 Epilogue> Σ0
@ 20af2
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 2(r)>
<LVAR -0x004 @ 1(r)>
<POP 20af2-20b70 Body> Δ-4
<POP 20af2-20b08 Prologue> Σ0 ↓
<POP 20b08-20b0a RegCacheLoad> Σ0 ↓
<POP 20b0a-20b16 Naked> Σ0 Δ-4 ↓
<MI 20b0a MOVEA.L (A6+0x8),A0> {}
<MI 20b0e CLR.B (A0)> {}
<MI 20b10 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 20b14 MOVEQ.L #0x01,D6> {[4, '(A6+0xc)']}
<POP 20b16-20b1a Naked> Σ-4 ↓ →0x20b66 ←0x20b62
<MI 20b16 CMP.L (A7),D6> {[-4-]}
<MI 20b18 BGT 0x20b66> {[-4-]}
<POP 20b1a-20b1c Naked> Σ-4 ↓
<MI 20b1a MOVEQ.L #0x01,D7> {[-4-]}
<POP 20b1c-20b32 Naked> Σ-4 ↓ →0x20b58 ←0x20b58
<Const 0x20b1c 0x1.2> Δ-2 {[-4-]|[#1]}
<Pointer.fp 0x20b1e <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[#1]|[@@-4]}
<Call 0x20b22 0x10212> {[-4-]|[#1]|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 20b28-20b2a StackAdj> Δ+6 {[-4-]}
<MI 20b2a MOVE.B (A6-0x4),D0> {[-4-]}
<MI 20b2e CMP.B #0x01,D0> {[-4-]}
<MI 20b30 BNE 0x20b58> {[-4-]}
<POP 20b32-20b4e Naked> Σ-4 ↓ →0x20b58
<Const 0x20b32 0x1.2> Δ-2 {[-4-]|[#1]}
<Pointer.fp 0x20b34 <LVAR -0x002 @ 2(r)>> Δ-4 {[-4-]|[#1]|[@@-2]}
<Call 0x20b38 0x1020e> {[-4-]|[#1]|[@@-2]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20b3e-20b40 StackAdj> Δ+6 {[-4-]}
<MI 20b40 MOVE.W (A6-0x2),D0> {[-4-]}
<MI 20b44 ANDI.W #0x00ff,D0> {[-4-]}
<MI 20b48 CMPI.W #0x0003,D0> {[-4-]}
<MI 20b4c BNE 0x20b58> {[-4-]}
<POP 20b4e-20b58 Naked> Σ-4 Δ+4 →0x20b68
<MI 20b4e MOVEA.L (A6+0x8),A0> {[-4-]}
<MI 20b52 MOVE.B #0x01,(A0)> {[-4-]}
<POP 20b54-20b56 StackAdj> Δ+4 {}
<MI 20b56 BRA 0x20b68> {}
<POP 20b58-20b62 Naked> Σ-4 ↓ →0x20b1c ←0x20b1c ←0x20b32
<MI 20b58 ADDQ.L #0x1,D7> {[-4-]}
<MI 20b5a CMPI.L #0x000003e8,D7> {[-4-]}
<MI 20b60 BLE 0x20b1c> {[-4-]}
<POP 20b62-20b66 Naked> Σ-4 ↓ →0x20b16
<MI 20b62 ADDQ.L #0x1,D6> {[-4-]}
<MI 20b64 BVC 0x20b16> {[-4-]}
<POP 20b66-20b68 Naked> Σ-4 Δ+4 ↓ ←0x20b16
<POP 20b66-20b68 StackAdj> Δ+4 {}
<POP 20b68-20b70 Epilogue> Σ0 ←0x20b4e
@ 20b70
<LVAR 0x00c 4(rw)>
<LVAR 0x008 4(r)>
<POP 20b70-20bac Body>
<POP 20b70-20b86 Prologue> Σ0 ↓
<POP 20b86-20b9e Naked> Σ0 ↓ →0x20ba4 ←0x20b9e
<MI 20b86 MOVEA.L (A6+0x8),A0> {}
<Const 0x20b8a 0x3c.4> Δ-4 {[##60]}
<MI 20b8e PEA.L (A0)> Δ-4 {[##60]|[4, '^(A0)']}
<Call 0x20b90 0x20af2> {[##60]|[4, '^(A0)']}
<POP 20b94-20b96 StackAdj> Δ+8 {}
<MI 20b96 SUBQ.L #0x1,(A6+0xc)> {}
<MI 20b9a TST.B (A0)> {}
<MI 20b9c BNE 0x20ba4> {}
<POP 20b9e-20ba4 Naked> Σ0 ↓ →0x20b86
<MI 20b9e TST.L (A6+0xc)> {}
<MI 20ba2 BNE 0x20b86> {}
<POP 20ba4-20bac Epilogue> Σ0 ←0x20b86
@ 20bac
<LVAR -0x004 @>
<LVAR -0x006 @>
<LVAR -0x008 @ 1(r)>
<POP 20bac-20c0a Body>
<POP 20bac-20bc2 Prologue> Σ0 ↓
<POP 20bc2-20bc8 RegCacheLoad> Σ0 ↓
<POP 20bc8-20bdc Naked> Σ0 ↓
<Call 0x20bc8 0x10216> {}
KC0b
<Const 0x20bce 0x5.4> Δ-4 {[##5]}
<Pointer.fp 0x20bd2 <LVAR -0x004 @>> Δ-4 {[##5]|[@@-4]}
<Call 0x20bd6 0x20af2> {[##5]|[@@-4]}
<POP 20bda-20bdc StackAdj> Δ+8 {}
<POP 20bdc-20bec Naked> Σ0 ↓ →0x20bfa ←0x20bfa
<Const 0x20bdc 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20bde <LVAR -0x008 @ 1(r)>> Δ-4 {[#3]|[@@-8]}
<Call 0x20be0 0x10212> {[#3]|[@@-8]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 20be6-20be8 StackAdj> Δ+6 {}
<MI 20be8 TST.B (A6-0x8)> {}
<MI 20bea BEQ 0x20bfa> {}
<POP 20bec-20bfa Naked> Σ0 ↓
<Const 0x20bec 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20bee <LVAR -0x006 @>> Δ-4 {[#3]|[@@-6]}
<Call 0x20bf2 0x1020e> {[#3]|[@@-6]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20bf8-20bfa StackAdj> Δ+6 {}
<POP 20bfa-20c02 Naked> Σ0 ↓ →0x20bdc ←0x20bdc
<MI 20bfa MOVE.B (A6-0x8),D0> {}
<MI 20bfc CMPI.B #0x02,D0> {}
<MI 20c00 BNE 0x20bdc> {}
<POP 20c02-20c0a Epilogue> Σ0
@ 20c0a
<LVAR -0x002 @ 1(r)>
<LVAR -0x006 @ 4(r)>
<LVAR -0x008 @ 2(rw)>
<LVAR -0x00a @ 1(rw)>
<LVAR -0x00c @ 2(rw)>
<POP 20c0a-20ffe Body>
<POP 20c0a-20c20 Prologue> Σ0 ↓
<POP 20c20-20c3a RegCacheLoad> Σ0 ↓
<POP 20c3a-20c48 Naked> Σ0 ↓
<Const 0x20c3a 0x1.4> Δ-4 {[##1]}
<Pointer.fp 0x20c3e <LVAR -0x002 @ 1(r)>> Δ-4 {[##1]|[@@-2]}
<Call 0x20c42 0x20af2> {[##1]|[@@-2]}
<POP 20c46-20c48 StackAdj> Δ+8 {}
<POP 20c48-20c58 Naked> Σ0 ↓ →0x20c64 ←0x20c64
<Const 0x20c48 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20c4a <LVAR -0x00a @ 1(rw)>> Δ-4 {[#3]|[@@-10]}
<Call 0x20c4c 0x10212> {[#3]|[@@-10]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 20c52-20c54 StackAdj> Δ+6 {}
<MI 20c54 TST.B (A6-0xa)> {}
<MI 20c56 BEQ 0x20c64> {}
<POP 20c58-20c64 Naked> Σ0 ↓
<Const 0x20c58 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20c5a <LVAR -0x00c @ 2(rw)>> Δ-4 {[#3]|[@@-12]}
<Call 0x20c5c 0x1020e> {[#3]|[@@-12]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20c62-20c64 StackAdj> Δ+6 {}
<POP 20c64-20c68 Naked> Σ0 ↓ →0x20c48 ←0x20c48
<MI 20c64 TST.B (A6-0xa)> {}
<MI 20c66 BNE 0x20c48> {}
<POP 20c68-20d0a Naked> Σ0 ↓ →0x20d44
<Pointer.fp 0x20c68 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x20c6c 0x102b8> {[@@-6]}
NewString(VAR a : String)
<POP 20c72-20c74 StackAdj> Δ+4 {}
<MI 20c74 MOVEA.L (A6-0x6),A0> {}
<MI 20c78 MOVE.W #0x5,(A0)> {}
<POP 20c7c-20c7e StackAdj> Δ-2 {[-2-]}
<Const 0x20c7e 0x84.4> Δ-4 {[-2-]|[##132]}
<Call 0x20c82 0x20a4a> {[-2-]|[##132]}
<POP 20c86-20c88 StackAdj> Δ+4 {[-2-]}
<MI 20c88 MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x20c8a LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20c8c MOVE.B D0,(A0+0x2)> {}
<POP 20c90-20c92 StackAdj> Δ-2 {[-2-]}
<Const 0x20c92 0x85.4> Δ-4 {[-2-]|[##133]}
<Call 0x20c96 0x20a4a> {[-2-]|[##133]}
<POP 20c9a-20c9c StackAdj> Δ+4 {[-2-]}
<MI 20c9c MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x20c9e LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20ca0 MOVE.B D0,(A0+0x3)> {}
<POP 20ca4-20ca6 StackAdj> Δ-2 {[-2-]}
<Const 0x20ca6 0x86.4> Δ-4 {[-2-]|[##134]}
<Call 0x20caa 0x20a4a> {[-2-]|[##134]}
<POP 20cae-20cb0 StackAdj> Δ+4 {[-2-]}
<MI 20cb0 MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x20cb2 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20cb4 MOVE.B D0,(A0+0x4)> {}
<POP 20cb8-20cba StackAdj> Δ-2 {[-2-]}
<Const 0x20cba 0x87.4> Δ-4 {[-2-]|[##135]}
<Call 0x20cbe 0x20a4a> {[-2-]|[##135]}
<POP 20cc2-20cc4 StackAdj> Δ+4 {[-2-]}
<MI 20cc4 MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x20cc6 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20cc8 MOVE.B D0,(A0+0x5)> {}
<MI 20ccc CLR.B (A0+0x6)> {}
<Const 0x20cd0 0x3.2> Δ-2 {[#3]}
<MI 20cd2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[#3]|[4, '(A6-0x6)']}
<Call 0x20cd6 0x10214> {[#3]|[4, '(A6-0x6)']}
KC0a(a: Word; b: String)
<POP 20cdc-20cde StackAdj> Δ+6 {}
<Pointer.fp 0x20cde <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x20ce2 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 20ce8-20cea StackAdj> Δ+2 {[-2-]}
<Call 0x20cea 0x20a0a> {[-2-]}
<MI 20cee MOVE.B (A7)+,D0> Δ+2 {}
<MI 20cf0 EXTB.W D0> {}
<POP 0x20cf2 LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 20cf6 MOVE.B D0,(A6-0xa)> {}
<Const 0x20cf8 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20cfa <LVAR -0x00c @ 2(rw)>> Δ-4 {[#3]|[@@-12]}
<Call 0x20cfc 0x1020e> {[#3]|[@@-12]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20d02-20d04 StackAdj> Δ+6 {}
<MI 20d04 AND.W #0xff,(A6-0xc)> {}
<MI 20d06 CMP.B #0x03,D0> {}
<MI 20d08 BNE 0x20d44> {}
<POP 20d0a-20d44 Naked> Σ0 →0x20ff6
<Blob 0x20d0a [32] @> Δ-32 {[«32""»]}
<POP 20d16-20d18 StackAdj> Δ-8 {[«32""»]|[-8-]}
<Lit 0x20d18 32> {[«32""»]|[-4-]|[$$Cannot connect modem, Status =>_]}
<POP 20d24-20d26 StackAdj> Δ-4 {[«32""»]|[-4-]|[$$Cannot connect modem, Status =>_]|[-4-]}
<MI 20d26 CLR.L D0> {[«32""»]|[-4-]|[$$Cannot connect modem, Status =>_]|[-4-]}
<MI 20d28 MOVE.W (A6-0xc),D0> {[«32""»]|[-4-]|[$$Cannot connect modem, Status =>_]|[-4-]}
<MI 20d2a MOVE.L D0,-(A7)> Δ-4 {[«32""»]|[-4-]|[$$Cannot connect modem, Status =>_]|[-4-]|[4, 'D0']}
<Call 0x20d2c 0x20522> {[«32""»]|[-4-]|[$$Cannot connect modem, Status =>_]|[-4-]|[4, 'D0']}
<POP 20d30-20d32 StackAdj> Δ+4 {[«32""»]|[-4-]|[$$Cannot connect modem, Status =>_]|[-4-]}
<Call 0x20d32 0x102d0> {[«32""»]|[-4-]|[$$Cannot connect modem, Status =>_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20d38-20d3a StackAdj> Δ+8 {[«32""»]|[-4-]}
<Call 0x20d3a 0x20a80> {[«32""»]|[-4-]}
<POP 20d3e-20d40 StackAdj> Δ+36 {}
<MI 20d40 BRA 0x20ff6> {}
<POP 20d44-20d4a Naked> Σ0 ↓ →0x20d8c ←0x20c68
<MI 20d44 CMPI.B #0x06,D0> {}
<MI 20d48 BEQ 0x20d8c> {}
<POP 20d4a-20d8c Naked> Σ0 →0x20ff6
<Blob 0x20d4a [44] @> Δ-44 {[«44""»]}
<POP 20d5c-20d5e StackAdj> Δ-8 {[«44""»]|[-8-]}
<Lit 0x20d5e 43> {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]}
<POP 20d6a-20d6c StackAdj> Δ-4 {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]}
<MI 20d6c EXTB.W D0> {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]}
<MI 20d6e EXTW.L D0> {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]}
<MI 20d70 MOVE.L D0,-(A7)> Δ-4 {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]|[4, 'D0']}
<Call 0x20d72 0x20880> {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]|[4, 'D0']}
<POP 20d76-20d78 StackAdj> Δ+4 {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]}
<Call 0x20d78 0x102d0> {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20d7e-20d80 StackAdj> Δ+8 {[«44""»]|[-4-]}
<Call 0x20d80 0x20a80> {[«44""»]|[-4-]}
<POP 20d84-20d88 StackAdj> Δ+48 {}
<MI 20d88 BRA 0x20ff6> {}
<POP 20d8c-20d94 Naked> Σ0 ↓ →0x20fbe ←0x20d44
<MI 20d8c MOVE.W (A6-0xc),D0> {}
<MI 20d8e CMP.W #0x03,D0> {}
<MI 20d90 BHI 0x20fbe> {}
<POP 20d94-20d9e Naked> Σ0 →0x20da6 →0x20db8 →0x20de0 →0x20f0c
<MI 20d94 ADD.W D0,D0> {}
<MI 20d96 SWITCH D0.W> {}
<POP 20da6-20db8 Naked> Σ0 →0x20ff6 ←0x20d94
<MI 20da6 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x20da8 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x20dac 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20db2-20db4 StackAdj> Δ+6 {}
<MI 20db4 BRA 0x20ff6> {}
<POP 20db8-20de0 Naked> Σ0 →0x20ff6 ←0x20d94
<Blob 0x20db8 [24] @> Δ-24 {[«24""»]}
<POP 20dc4-20dc6 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x20dc6 24> {[«24""»]|[$$Connect attempt refused.]}
<Call 0x20dd4 0x20a80> {[«24""»]|[$$Connect attempt refused.]}
<POP 20dd8-20ddc StackAdj> Δ+28 {}
<MI 20ddc BRA 0x20ff6> {}
<POP 20de0-20ede Naked> Σ0 ↓ →0x20ee4 ←0x20d94
<Call 0x20de0 0x20bac> {}
<Const 0x20de4 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20de6 <LVAR -0x008 @ 2(rw)>> Δ-4 {[#3]|[@@-8]}
<Call 0x20dea 0x1020e> {[#3]|[@@-8]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20df0-20df2 StackAdj> Δ+6 {}
<MI 20df2 AND.W #0xff,(A6-0x8)> {}
<MI 20df6 MOVE.W (A6-0x8),D0> {}
<MI 20dfa ASL.W #0x8,D0> {}
<MI 20dfc MOVE.W D0,(A6-0x8)> {}
<Const 0x20e00 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20e02 <LVAR -0x00c @ 2(rw)>> Δ-4 {[#3]|[@@-12]}
<Call 0x20e04 0x1020e> {[#3]|[@@-12]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20e0a-20e0c StackAdj> Δ+6 {}
<MI 20e0c MOVE.W (A6-0xc),D1> {}
<MI 20e0e AND.W #0xff,D1> {}
<MI 20e10 CLR.L D2> {}
<MI 20e12 MOVE.W D0,D2> {}
<MI 20e14 CLR.L D0> {}
<MI 20e16 MOVE.W D1,D0> {}
<MI 20e18 ADD.L D2,D0> {}
<POP 0x20e1a LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20e24 MOVE.W D0,(A6-0x8)> {}
<Blob 0x20e28 [56] @> Δ-56 {[«56""»]}
<POP 20e3a-20e3c StackAdj> Δ-4 {[«56""»]|[-4-]}
<Lit 0x20e3c 55> {[«56""»]|[$$Rational Response Center is busy and has requested that]}
<Call 0x20e4a 0x204cc> {[«56""»]|[$$Rational Response Center is busy and has requested that]}
<POP 20e4e-20e4f StackAdj> Δ+60 ↓ {}
<Blob 0x20e4f [24] @> Δ-24 {[«24""»]}
<Blob 0x20e5e [18] @> Δ-18 {[«24""»]|[«18""»]}
<POP 20e6a-20e6c StackAdj> Δ-8 {[«24""»]|[«18""»]|[-8-]}
<Lit 0x20e6c 23> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]}
<POP 20e78-20e7a StackAdj> Δ-4 {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]}
<MI 20e7a CLR.L D1> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]}
<MI 20e7c MOVE.W D0,D1> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]}
<MI 20e7e MOVE.L D1,-(A7)> Δ-4 {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]|[4, 'D1']}
<Call 0x20e80 0x102e4> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]|[4, 'D1']}
Long2String(a : Long) : String
<Lit 0x20e86 18> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]|[$$ minutes from now.]}
<Call 0x20e92 0x102d4> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]|[$$ minutes from now.]}
StringCat3(a, b, c : String) : String
<POP 20e98-20e9c StackAdj> Δ+12 {[«24""»]|[«18""»]|[-4-]}
<Call 0x20e9c 0x204cc> {[«24""»]|[«18""»]|[-4-]}
<POP 20ea0-20ea1 StackAdj> Δ+46 ↓ {}
<Blob 0x20ea1 [28] @> Δ-28 {[«28""»]}
<POP 20eb0-20eb2 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x20eb2 27> {[«28""»]|[$$Type ^C to abort this delay]}
<Call 0x20ec0 0x204cc> {[«28""»]|[$$Type ^C to abort this delay]}
<POP 20ec4-20ec8 StackAdj> Δ+32 {}
<MI 20ec8 CLR.L D1> {}
<MI 20eca MOVE.W D0,D1> {}
<MI 20ecc MOVE.L D1,-(A7)> Δ-4 {[4, 'D1']}
<Pointer.fp 0x20ece <LVAR -0x002 @ 1(r)>> Δ-4 {[4, 'D1']|[@@-2]}
<Call 0x20ed2 0x20b70> {[4, 'D1']|[@@-2]}
<POP 20ed6-20ed8 StackAdj> Δ+8 {}
<MI 20ed8 TST.B (A6-0x2)> {}
<MI 20edc BNE 0x20ee4> {}
<POP 20ede-20ee4 Naked> Σ0 →0x20f08
<Call 0x20ede 0x20c0a> {}
<MI 20ee2 BRA 0x20f08> {}
<POP 20ee4-20f08 Naked> Σ0 ↓ ←0x20de0
<Blob 0x20ee4 [22] @> Δ-22 {[«22""»]}
<POP 20ef0-20ef2 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x20ef2 22> {[«22""»]|[$$Terminated by operator]}
<Call 0x20f00 0x20a80> {[«22""»]|[$$Terminated by operator]}
<POP 20f04-20f08 StackAdj> Δ+26 {}
<POP 20f08-20f0c Naked> Σ0 →0x20ff6 ←0x20ede
<MI 20f08 BRA 0x20ff6> {}
<POP 20f0c-20f58 Naked> Σ0 ↓ ←0x20d94
<Call 0x20f0c 0x20bac> {}
<Blob 0x20f10 [60] @> Δ-60 {[«60""»]}
<POP 20f1c-20f1e StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x20f1e 60> {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]}
<Call 0x20f2c 0x204cc> {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]}
<POP 20f30-20f31 StackAdj> Δ+64 ↓ {}
<Blob 0x20f31 [14] @> Δ-14 {[«14""»]}
<POP 20f42-20f44 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x20f44 13> {[«14""»]|[$$for call back]}
<Call 0x20f52 0x204cc> {[«14""»]|[$$for call back]}
<POP 20f56-20f58 StackAdj> Δ+18 {}
<POP 20f58-20f68 Naked> Σ0 ↓ →0x20f74 ←0x20f74
<Const 0x20f58 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20f5a <LVAR -0x00a @ 1(rw)>> Δ-4 {[#3]|[@@-10]}
<Call 0x20f5c 0x10212> {[#3]|[@@-10]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 20f62-20f64 StackAdj> Δ+6 {}
<MI 20f64 TST.B (A6-0xa)> {}
<MI 20f66 BEQ 0x20f74> {}
<POP 20f68-20f74 Naked> Σ0 ↓
<Const 0x20f68 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20f6a <LVAR -0x00c @ 2(rw)>> Δ-4 {[#3]|[@@-12]}
<Call 0x20f6c 0x1020e> {[#3]|[@@-12]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20f72-20f74 StackAdj> Δ+6 {}
<POP 20f74-20f7a Naked> Σ0 ↓ →0x20f58 ←0x20f58
<MI 20f74 MOVE.B (A6-0xa),D0> {}
<MI 20f76 CMP.B #0x03,D0> {}
<MI 20f78 BNE 0x20f58> {}
<POP 20f7a-20f7e Naked> Σ0 ↓ →0x20f84
<MI 20f7a AND.W #0xff,(A6-0xc)> {}
<MI 20f7c BNE 0x20f84> {}
<POP 20f7e-20f84 Naked> Σ0 →0x20fbc
<Call 0x20f7e 0x20c0a> {}
<MI 20f82 BRA 0x20fbc> {}
<POP 20f84-20fbc Naked> Σ0 ↓ ←0x20f7a
<Blob 0x20f84 [54] @> Δ-54 {[«54""»]}
<POP 20f90-20f92 StackAdj> Δ-8 {[«54""»]|[-8-]}
<Lit 0x20f92 54> {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]}
<POP 20f9e-20fa0 StackAdj> Δ-4 {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]}
<MI 20fa0 CLR.L D0> {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]}
<MI 20fa2 MOVE.W (A6-0xc),D0> {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]}
<MI 20fa4 MOVE.L D0,-(A7)> Δ-4 {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]|[4, 'D0']}
<Call 0x20fa6 0x20522> {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]|[4, 'D0']}
<POP 20faa-20fac StackAdj> Δ+4 {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]}
<Call 0x20fac 0x102d0> {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20fb2-20fb4 StackAdj> Δ+8 {[«54""»]|[-4-]}
<Call 0x20fb4 0x20a80> {[«54""»]|[-4-]}
<POP 20fb8-20fbc StackAdj> Δ+58 {}
<POP 20fbc-20fbe Naked> Σ0 →0x20ff6 ←0x20f7e
<MI 20fbc BRA 0x20ff6> {}
<POP 20fbe-20ff6 Naked> Σ0 ↓ ←0x20d8c
<Blob 0x20fbe [36] @> Δ-36 {[«36""»]}
<POP 20fca-20fcc StackAdj> Δ-8 {[«36""»]|[-8-]}
<Lit 0x20fcc 36> {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]}
<POP 20fd6-20fd8 StackAdj> Δ-4 {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]}
<MI 20fd8 CLR.L D0> {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]}
<MI 20fda MOVE.W (A6-0xc),D0> {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]}
<MI 20fdc MOVE.L D0,-(A7)> Δ-4 {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]|[4, 'D0']}
<Call 0x20fde 0x102e4> {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 20fe4-20fe6 StackAdj> Δ+4 {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]}
<Call 0x20fe6 0x102d0> {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20fec-20fee StackAdj> Δ+8 {[«36""»]|[-4-]}
<Call 0x20fee 0x20a80> {[«36""»]|[-4-]}
<POP 20ff2-20ff6 StackAdj> Δ+40 {}
<POP 20ff6-20ffe Epilogue> Σ0 ←0x20d0a ←0x20d4a ←0x20da6 ←0x20db8 ←0x20f08 ←0x20fbc
@ 20ffe
<LVAR -0x004 @>
<POP 20ffe-2105a Body>
<POP 20ffe-21014 Prologue> Σ0 ↓
<POP 21014-21052 Naked> Σ0 ↓
<Blob 0x21014 [50] @> Δ-50 {[«50""»]}
<POP 21020-21022 StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x21022 50> {[«50""»]|[$$Modem connection broken, attempting to re-connect.]}
<Call 0x21036 0x204cc> {[«50""»]|[$$Modem connection broken, attempting to re-connect.]}
<POP 2103a-2103e StackAdj> Δ+52 {[-2-]}
<POP 2103e-2103f StackAdj> Δ+2 {}
<Const 0x2103f 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x21042 <LVAR -0x004 @>> Δ-4 {[#3]|[@@-4]}
<Call 0x21046 0x1020e> {[#3]|[@@-4]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 2104c-2104e StackAdj> Δ+6 {}
<Call 0x2104e 0x20c0a> {}
<POP 21052-2105a Epilogue> Σ0
@ 2105a
<LVAR -0x004 @ 2(w)>
<POP 2105a-210c6 Body>
<POP 2105a-21070 Prologue> Σ0 ↓
<POP 21070-21088 Naked> Σ0 ↓ →0x2108e
<Const 0x21070 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x21074 <LVAR -0x004 @ 2(w)>> Δ-4 {[#3]|[@@-4]}
<Call 0x21078 0x1020e> {[#3]|[@@-4]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 2107e-21080 StackAdj> Δ+6 {}
<MI 21080 ANDI.W #0x00ff,(A6-0x4)> {}
<MI 21086 BNE 0x2108e> {}
<POP 21088-2108e Naked> Σ0 →0x210be
<Call 0x21088 0x20c0a> {}
<MI 2108c BRA 0x210be> {}
<POP 2108e-210be Naked> Σ0 ↓ ←0x21070
<Blob 0x2108e [62] @> Δ-62 {[«62""»]}
<POP 210a0-210a2 StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x210a2 61> {[«62""»]|[$$Unsolicited connect event was not non-autoanswer, status =>_]}
<Call 0x210b6 0x20a80> {[«62""»]|[$$Unsolicited connect event was not non-autoanswer, status =>_]}
<POP 210ba-210be StackAdj> Δ+66 {}
<POP 210be-210c6 Epilogue> Σ0 ←0x21088
@ 210c6
<POP 210c6-2111a Body>
<POP 210c6-210d8 Prologue> Σ0 ↓
<POP 210d8-21116 Naked> Σ0 ↓
<Blob 0x210d8 [4] @> Δ-4 {[«4""»]}
<Blob 0x210dc [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x210e0 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x210e4 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 210e8-210ea StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x210ea 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Connecting modem]}
<Call 0x210fe 0x204cc> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Connecting modem]}
<POP 21102-21106 StackAdj> Δ+20 {}
<Const 0x21106 0x3.4> Δ-4 {[##3]}
<Call 0x2110a 0x103f4> {[##3]}
SetConsoleConfig(a : Long)
<POP 21110-21112 StackAdj> Δ+4 {}
<Call 0x21112 0x20c0a> {}
<POP 21116-2111a Epilogue> Σ0
@ 2111a
<LVAR -0x004 @ 1(r)>
<POP 2111a-211e6 Body> Δ+4
<POP 2111a-21130 Prologue> Σ0 ↓
<POP 21130-21132 RegCacheLoad> Σ0 ↓
<POP 21132-21140 Naked> Σ0 ↓ →0x21148
<POP 21132-21134 StackAdj> Δ-4 {[-4-]}
<Call 0x21134 0x103f8> {[-4-]}
GetConsoleConfig() : Long
<MI 2113a MOVE.L (A7)+,D0> Δ+4 {}
<MI 2113c CMP.L #0x03,D0> {}
<MI 2113e BEQ 0x21148> {}
<POP 21140-21148 Naked> Σ0 →0x211de
<Call 0x21140 0x210c6> {}
<MI 21144 BRA 0x211de> {}
<POP 21148-2116e Naked> Σ0 →0x2117c →0x2118c →0x21194 →0x2118e →0x2119a →0x211a8 →0x211b4 ←0x21132
<Const 0x21148 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x2114a <LVAR -0x004 @ 1(r)>> Δ-4 {[#3]|[@@-4]}
<Call 0x2114e 0x10212> {[#3]|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 21154-21156 StackAdj> Δ+6 {}
<MI 21156 MOVE.B (A6-0x4),D0> {}
<MI 2115a EXTB.W D0> {}
<POP 0x2115c LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 21164 ADD.W D0,D0> {}
<MI 21166 SWITCH D0.W> {}
<POP 2117c-2118c Naked> Σ0 →0x211de ←0x21148 ←0x2118c
<MI 2117c CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2117e 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x21182 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 21188-2118a StackAdj> Δ+6 {}
<MI 2118a BRA 0x211de> {}
<POP 2118c-2118e Naked> Σ0 →0x2117c ←0x21148
<MI 2118c BRA 0x2117c> {}
<POP 2118e-21194 Naked> Σ0 →0x211de ←0x21148
<Call 0x2118e 0x2105a> {}
<MI 21192 BRA 0x211de> {}
<POP 21194-2119a Naked> Σ0 →0x211de ←0x21148
<Call 0x21194 0x20ffe> {}
<MI 21198 BRA 0x211de> {}
<POP 2119a-211a4 Naked> Σ0 Δ-4 ↓ ←0x21148
<Const 0x2119a 0x1c.4> Δ-4 {[##28]}
<Call 0x2119e 0x10220> {[##28]}
KC10_Panic(code : Long)
<POP 211a4-211a8 Naked> Σ-4 Δ+4 →0x211de ←0x211a8
<POP 211a4-211a6 StackAdj> Δ+4 {}
<MI 211a6 BRA 0x211de> {}
<POP 211a8-211b4 Naked> Σ0 Δ-4 →0x211a4 ←0x21148
<Const 0x211a8 0x1.4> Δ-4 {[##1]}
<Call 0x211ac 0x103f4> {[##1]}
SetConsoleConfig(a : Long)
<MI 211b2 BRA 0x211a4> {[##1]}
<POP 211b4-211de Naked> Σ0 ↓ ←0x21148
<Blob 0x211b4 [44] @> Δ-44 {[«44""»]}
<POP 211c0-211c2 StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x211c2 44> {[«44""»]|[$$Modem got connect data with no connect event]}
<Call 0x211d6 0x20a80> {[«44""»]|[$$Modem got connect data with no connect event]}
<POP 211da-211de StackAdj> Δ+48 {}
<POP 211de-211e6 Epilogue> Σ0 ←0x21140 ←0x2117c ←0x2118e ←0x21194 ←0x211a4
@ 211e6
START
<POP 211e6--0001 Body>
<POP 211e6-211f0 Prologue> Σ0
<POP 211f0-211fa Naked> Σ0 ↓
<Call 0x211f0 0x10398> {}
FSCALL_10398
<Call 0x211f6 0x2111a> {}
<POP 211fa-21200 Naked> Σ0
<Call 0x211fa 0x10284> {}
?exit
@ 2120e
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 2120e-21276 Body>
<POP 2120e-21224 Prologue> Σ0 ↓
<POP 21224-2126e Naked> Σ0 ↓
<Blob 0x21224 [14] @> Δ-14 {[«14""»]}
<Const 0x21230 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 21234-21236 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x21236 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 21248-2124a StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2124a MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2124e EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21250 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21252 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x21254 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2125a-2125c StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x2125c 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21262-21264 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x21264 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 2126a-2126e StackAdj> Δ+20 {}
<POP 2126e-21276 Epilogue> Σ0
@ 212ca
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 212ca-21406 Body>
<POP 212ca-212e0 Prologue> Σ0 ↓
<POP 212e0-212f6 RegCacheLoad> Σ0 ↓
<POP 212f6-21356 Naked> Σ0 ↓ →0x2139e
<Call 0x212f6 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x212fc [18] @> Δ-18 {[«18""»]}
<POP 21308-2130a StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2130a 18> {[«18""»]|[$$Experiment error :]}
<Call 0x21316 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 21318-21319 StackAdj> Δ+22 ↓ {}
<Blob 0x21319 [14] @> Δ-14 {[«14""»]}
<POP 21328-2132a StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x2132a 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 21334-21336 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 21336 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x2133a 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 21340-21342 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x21342 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21348-2134a StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2134a 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2134c-2134e StackAdj> Δ+18 {}
<MI 2134e MOVEA.L (A6+0xa),A0> {}
<MI 21352 CMPA.W #0x01,A0> {}
<MI 21354 BEQ 0x2139e> {}
<POP 21356-2139e Naked> Σ0 ↓
<Blob 0x21356 [14] @> Δ-14 {[«14""»]}
<Blob 0x21366 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 21376-21378 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x21378 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 21382-21384 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x21384> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x21384 12> Δ-4
<Const 0x21388 0x1.2> Δ-2
<Const 0x2138a 0x1e.2> Δ-2
<Call 0x2138c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2138e-21390 StackAdj> Δ+8
<Call 0x21390 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 21396-21398 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x21398 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2139a-2139e StackAdj> Δ+48 {}
<POP 2139e-213fe Naked> Σ0 ↓ ←0x212f6
<Blob 0x2139e [14] @> Δ-14 {[«14""»]}
<POP 213ae-213b0 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x213b0 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 213ba-213bc StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 213bc MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x213c0 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 213c6-213c8 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x213c8 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 213ce-213d0 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x213d0 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 213d2-213d3 StackAdj> Δ+18 ↓ {}
<Blob 0x213d3 [24] @> Δ-24 {[«24""»]}
<Const 0x213e2 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 213e6-213e8 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x213e8 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x213f6 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 213fc-213fe StackAdj> Δ+30 {}
<POP 213fe-21406 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.ca34e7f58b2d4b08 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 11 e6 | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 14 1e | | .PTR 0x2141e 00020010 code.end: 00020010 00 02 14 06 | | .PTR 0x21406 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 12 0e | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 12 ca | | .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 43 6f 6e 6e 65 63 74 69 |Connecti| .TXT 'Connection complete ' 0002011e 50 68 6f 6e 65 20 69 73 |Phone is| .TXT 'Phone is busy ' 0002012c 4e 6f 20 64 |No d | .TXT 'No d' 00020130 69 61 6c 20 |ial | .TXT 'ial ' 00020134 74 6f 6e 65 |tone | .TXT 'tone' 00020138 4e 6f 20 61 6e 73 77 65 |No answe| .TXT 'No answer back tone ' 0002014c 41 6c 72 65 61 64 79 20 |Already | .TXT 'Already connected ' 0002015e 4e 6f 20 6d 6f 64 65 6d |No modem| .TXT 'No modem or dial-out disabled ' 0002017c 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown modem error ' 00020190 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown encoding => ' 000201a4 4e 6f 20 64 61 74 61 20 |No data | .TXT 'No data present ' 000201b4 44 61 74 61 20 62 79 74 |Data byt| .TXT 'Data byte present ' 000201c6 44 69 73 63 |Disc | .TXT 'Disc' 000201ca 6f 6e 6e 65 |onne | .TXT 'onne' 000201ce 63 74 65 64 |cted | .TXT 'cted' 000201d2 43 6f 6e 6e 65 63 74 65 |Connecte| .TXT 'Connected ' 000201dc 4f 75 74 70 75 74 20 63 |Output c| .TXT 'Output complete ' 000201ec 44 69 73 63 6f 6e 6e 65 |Disconne| .TXT 'Disconnect packet arrival ' 00020206 43 6f 6e 6e 65 63 74 20 |Connect | .TXT 'Connect packet arrival' 0002021c 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown encoding => ' 00020230 41 62 61 6e 64 6f 6e 69 |Abandoni| .TXT 'Abandoning remote connection. ' 0002024e 43 61 6e 6e 6f 74 20 63 |Cannot c| .TXT 'Cannot connect modem, Status =>_' 0002026e 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal connect request response, Event =>_ ' 0002029a 43 6f 6e 6e 65 63 74 20 |Connect | .TXT 'Connect attempt refused.' 000202b2 55 6e 65 78 70 65 63 74 |Unexpect| .TXT 'Unexpected status while awaiting call-back, Status =>_' 000202e8 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown connect acknowedge, Data =>_' 0002030c 54 65 72 6d 69 6e 61 74 |Terminat| .TXT 'Terminated by operator' 00020322 52 61 74 69 6f 6e 61 6c |Rational| .TXT 'Rational Response Center is busy and has requested that ' 0002035a 74 68 69 73 20 63 6c 75 |this clu| .TXT 'this cluster call back_ ' 00020372 20 6d 69 6e 75 74 65 73 | minutes| .TXT ' minutes from now.' 00020384 54 79 70 65 20 5e 43 20 |Type ^C | .TXT 'Type ^C to abort this delay ' 000203a0 52 61 74 69 6f 6e 61 6c |Rational| .TXT 'Rational Response Center has instructed this cluster to wait' 000203dc 66 6f 72 20 63 61 6c 6c |for call| .TXT 'for call back ' 000203ea 4d 6f 64 65 6d 20 63 6f |Modem co| .TXT 'Modem connection broken, attempting to re-connect.' 0002041c 55 6e 73 6f 6c 69 63 69 |Unsolici| .TXT 'Unsolicited connect event was not non-autoanswer, status =>_ ' 0002045a 43 6f 6e 6e |Conn | .TXT 'Conn' 0002045e 65 63 74 69 |ecti | .TXT 'ecti' 00020462 6e 67 20 6d |ng m | .TXT 'ng m' 00020466 6f 64 65 6d |odem | .TXT 'odem' 0002046a 41 74 74 65 6d 70 |Attemp | .XXX[0x6] 00020470 74 20 74 6f 20 72 65 73 |t to res| .XXX[0x30] 00020478 6f 6c 76 65 20 6d 6f 64 |olve mod| 00020480 65 6d 20 73 74 61 74 75 |em statu| 00020488 73 20 77 69 74 68 20 6e |s with n| 00020490 6f 6e 2d 6d 6f 64 65 6d |on-modem| 00020498 20 64 65 76 69 63 65 2e | device.| 000204a0 4d 6f 64 65 6d 20 67 6f |Modem go| .TXT 'Modem got connect data with no connect event' 000204cc ; -------------------------------------------------------------------------------------- 000204cc ; OMSI PASCAL Function 000204cc ; <LVAR 0x008 @ 4(r)> 000204cc ; -------------------------------------------------------------------------------------- 000204cc 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 000204d0 bf d5 | | CMPA.L (A5),A7 000204d2 62 06 |b | BHI 0x204da 000204d4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000204d8 4e 76 |Nv | TRAPV 000204da de fc 00 0e | | ADDA.W #0xe,A7 000204de 48 e7 00 80 |H | MOVEM.L A0,-(A7) 000204e2 41 ee 00 08 |A | LEA.L (A6+0x8),A0 000204e6 2f 10 |/ | MOVE.L (A0),-(A7) 000204e8 1f 3c 00 0a | < | MOVE.B #0x0a,-(A7) 000204ec 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000204f2 54 4f |TO | ADDQ.L #0x2,A7 000204f4 2e 90 |. | MOVE.L (A0),(A7) 000204f6 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 000204fa 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020500 58 4f |XO | ADDQ.L #0x4,A7 00020502 3e bc 00 01 |> | MOVE.W #0x1,(A7) 00020506 2f 10 |/ | MOVE.L (A0),-(A7) 00020508 4e b9 00 01 02 0a |N | JSR KC05_Write_Console_String(port : Word ; str : String) 0002050e 5c 4f |\O | ADDQ.L #0x6,A7 00020510 48 50 |HP | PEA.L (A0) 00020512 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020518 58 4f |XO | ADDQ.L #0x4,A7 0002051a 4c df 01 00 |L | MOVEM.L (A7)+,A0 0002051e 4e 5e |N^ | UNLK A6 00020520 4e 75 |Nu | RTS 00020522 ; -------------------------------------------------------------------------------------- 00020522 ; OMSI PASCAL Function 00020522 ; <LVAR 0x00c 4(w)> 00020522 ; <LVAR 0x008 4(r)> 00020522 ; -------------------------------------------------------------------------------------- 00020522 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 00020526 bf d5 | | CMPA.L (A5),A7 00020528 62 06 |b | BHI 0x20530 0002052a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002052e 4e 76 |Nv | TRAPV 00020530 de fc 00 5e | ^ | ADDA.W #0x5e,A7 00020534 48 e7 ff e8 |H | MOVEM.L A4+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020538 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 0002053e 72 01 |r | MOVEQ.L #0x01,D1 00020540 74 14 |t | MOVEQ.L #0x14,D2 00020542 76 13 |v | MOVEQ.L #0x13,D3 00020544 78 0e |x | MOVEQ.L #0x0e,D4 00020546 7a 0c |z | MOVEQ.L #0x0c,D5 00020548 7c 12 || | MOVEQ.L #0x12,D6 0002054a 7e 1e |~ | MOVEQ.L #0x1e,D7 0002054c 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 00020550 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 00020556 62 00 02 e8 |b | BHI switch@0x2055c[0x6] 0002055a d0 40 | @ | ADD.W D0,D0 0002055c 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020564 02 00 | | .CONST 0x200 ; [0x0] -> 0x20764 00020566 02 20 | | .CONST 0x220 ; [0x1] -> 0x20784 00020568 02 48 | H | .CONST 0x248 ; [0x2] -> 0x207ac 0002056a 02 6a | j | .CONST 0x26a ; [0x3] -> 0x207ce 0002056c 02 7c | | | .CONST 0x27c ; [0x4] -> 0x207e0 0002056e 02 a2 | | .CONST 0x2a2 ; [0x5] -> 0x20806 00020570 02 dc | | .CONST 0x2dc ; [0x6] -> 0x20840 00020572 02 dc | | .CONST 0x2dc ; [0x7] -> 0x20840 00020574 02 dc | | .CONST 0x2dc ; [0x8] -> 0x20840 00020576 02 dc | | .CONST 0x2dc ; [0x9] -> 0x20840 00020578 02 dc | | .CONST 0x2dc ; [0xa] -> 0x20840 0002057a 02 dc | | .CONST 0x2dc ; [0xb] -> 0x20840 0002057c 02 dc | | .CONST 0x2dc ; [0xc] -> 0x20840 0002057e 02 dc | | .CONST 0x2dc ; [0xd] -> 0x20840 00020580 02 dc | | .CONST 0x2dc ; [0xe] -> 0x20840 00020582 02 dc | | .CONST 0x2dc ; [0xf] -> 0x20840 00020584 02 dc | | .CONST 0x2dc ; [0x10] -> 0x20840 00020586 02 dc | | .CONST 0x2dc ; [0x11] -> 0x20840 00020588 02 dc | | .CONST 0x2dc ; [0x12] -> 0x20840 0002058a 02 dc | | .CONST 0x2dc ; [0x13] -> 0x20840 0002058c 02 dc | | .CONST 0x2dc ; [0x14] -> 0x20840 0002058e 02 dc | | .CONST 0x2dc ; [0x15] -> 0x20840 00020590 02 dc | | .CONST 0x2dc ; [0x16] -> 0x20840 00020592 02 dc | | .CONST 0x2dc ; [0x17] -> 0x20840 00020594 02 dc | | .CONST 0x2dc ; [0x18] -> 0x20840 00020596 02 dc | | .CONST 0x2dc ; [0x19] -> 0x20840 00020598 02 dc | | .CONST 0x2dc ; [0x1a] -> 0x20840 0002059a 02 dc | | .CONST 0x2dc ; [0x1b] -> 0x20840 0002059c 02 dc | | .CONST 0x2dc ; [0x1c] -> 0x20840 0002059e 02 dc | | .CONST 0x2dc ; [0x1d] -> 0x20840 000205a0 02 dc | | .CONST 0x2dc ; [0x1e] -> 0x20840 000205a2 02 dc | | .CONST 0x2dc ; [0x1f] -> 0x20840 000205a4 02 dc | | .CONST 0x2dc ; [0x20] -> 0x20840 000205a6 02 dc | | .CONST 0x2dc ; [0x21] -> 0x20840 000205a8 02 dc | | .CONST 0x2dc ; [0x22] -> 0x20840 000205aa 02 dc | | .CONST 0x2dc ; [0x23] -> 0x20840 000205ac 02 dc | | .CONST 0x2dc ; [0x24] -> 0x20840 000205ae 02 dc | | .CONST 0x2dc ; [0x25] -> 0x20840 000205b0 02 dc | | .CONST 0x2dc ; [0x26] -> 0x20840 000205b2 02 dc | | .CONST 0x2dc ; [0x27] -> 0x20840 000205b4 02 dc | | .CONST 0x2dc ; [0x28] -> 0x20840 000205b6 02 dc | | .CONST 0x2dc ; [0x29] -> 0x20840 000205b8 02 dc | | .CONST 0x2dc ; [0x2a] -> 0x20840 000205ba 02 dc | | .CONST 0x2dc ; [0x2b] -> 0x20840 000205bc 02 dc | | .CONST 0x2dc ; [0x2c] -> 0x20840 000205be 02 dc | | .CONST 0x2dc ; [0x2d] -> 0x20840 000205c0 02 dc | | .CONST 0x2dc ; [0x2e] -> 0x20840 000205c2 02 dc | | .CONST 0x2dc ; [0x2f] -> 0x20840 000205c4 02 dc | | .CONST 0x2dc ; [0x30] -> 0x20840 000205c6 02 dc | | .CONST 0x2dc ; [0x31] -> 0x20840 000205c8 02 dc | | .CONST 0x2dc ; [0x32] -> 0x20840 000205ca 02 dc | | .CONST 0x2dc ; [0x33] -> 0x20840 000205cc 02 dc | | .CONST 0x2dc ; [0x34] -> 0x20840 000205ce 02 dc | | .CONST 0x2dc ; [0x35] -> 0x20840 000205d0 02 dc | | .CONST 0x2dc ; [0x36] -> 0x20840 000205d2 02 dc | | .CONST 0x2dc ; [0x37] -> 0x20840 000205d4 02 dc | | .CONST 0x2dc ; [0x38] -> 0x20840 000205d6 02 dc | | .CONST 0x2dc ; [0x39] -> 0x20840 000205d8 02 dc | | .CONST 0x2dc ; [0x3a] -> 0x20840 000205da 02 dc | | .CONST 0x2dc ; [0x3b] -> 0x20840 000205dc 02 dc | | .CONST 0x2dc ; [0x3c] -> 0x20840 000205de 02 dc | | .CONST 0x2dc ; [0x3d] -> 0x20840 000205e0 02 dc | | .CONST 0x2dc ; [0x3e] -> 0x20840 000205e2 02 dc | | .CONST 0x2dc ; [0x3f] -> 0x20840 000205e4 02 dc | | .CONST 0x2dc ; [0x40] -> 0x20840 000205e6 02 dc | | .CONST 0x2dc ; [0x41] -> 0x20840 000205e8 02 dc | | .CONST 0x2dc ; [0x42] -> 0x20840 000205ea 02 dc | | .CONST 0x2dc ; [0x43] -> 0x20840 000205ec 02 dc | | .CONST 0x2dc ; [0x44] -> 0x20840 000205ee 02 dc | | .CONST 0x2dc ; [0x45] -> 0x20840 000205f0 02 dc | | .CONST 0x2dc ; [0x46] -> 0x20840 000205f2 02 dc | | .CONST 0x2dc ; [0x47] -> 0x20840 000205f4 02 dc | | .CONST 0x2dc ; [0x48] -> 0x20840 000205f6 02 dc | | .CONST 0x2dc ; [0x49] -> 0x20840 000205f8 02 dc | | .CONST 0x2dc ; [0x4a] -> 0x20840 000205fa 02 dc | | .CONST 0x2dc ; [0x4b] -> 0x20840 000205fc 02 dc | | .CONST 0x2dc ; [0x4c] -> 0x20840 000205fe 02 dc | | .CONST 0x2dc ; [0x4d] -> 0x20840 00020600 02 dc | | .CONST 0x2dc ; [0x4e] -> 0x20840 00020602 02 dc | | .CONST 0x2dc ; [0x4f] -> 0x20840 00020604 02 dc | | .CONST 0x2dc ; [0x50] -> 0x20840 00020606 02 dc | | .CONST 0x2dc ; [0x51] -> 0x20840 00020608 02 dc | | .CONST 0x2dc ; [0x52] -> 0x20840 0002060a 02 dc | | .CONST 0x2dc ; [0x53] -> 0x20840 0002060c 02 dc | | .CONST 0x2dc ; [0x54] -> 0x20840 0002060e 02 dc | | .CONST 0x2dc ; [0x55] -> 0x20840 00020610 02 dc | | .CONST 0x2dc ; [0x56] -> 0x20840 00020612 02 dc | | .CONST 0x2dc ; [0x57] -> 0x20840 00020614 02 dc | | .CONST 0x2dc ; [0x58] -> 0x20840 00020616 02 dc | | .CONST 0x2dc ; [0x59] -> 0x20840 00020618 02 dc | | .CONST 0x2dc ; [0x5a] -> 0x20840 0002061a 02 dc | | .CONST 0x2dc ; [0x5b] -> 0x20840 0002061c 02 dc | | .CONST 0x2dc ; [0x5c] -> 0x20840 0002061e 02 dc | | .CONST 0x2dc ; [0x5d] -> 0x20840 00020620 02 dc | | .CONST 0x2dc ; [0x5e] -> 0x20840 00020622 02 dc | | .CONST 0x2dc ; [0x5f] -> 0x20840 00020624 02 dc | | .CONST 0x2dc ; [0x60] -> 0x20840 00020626 02 dc | | .CONST 0x2dc ; [0x61] -> 0x20840 00020628 02 dc | | .CONST 0x2dc ; [0x62] -> 0x20840 0002062a 02 dc | | .CONST 0x2dc ; [0x63] -> 0x20840 0002062c 02 dc | | .CONST 0x2dc ; [0x64] -> 0x20840 0002062e 02 dc | | .CONST 0x2dc ; [0x65] -> 0x20840 00020630 02 dc | | .CONST 0x2dc ; [0x66] -> 0x20840 00020632 02 dc | | .CONST 0x2dc ; [0x67] -> 0x20840 00020634 02 dc | | .CONST 0x2dc ; [0x68] -> 0x20840 00020636 02 dc | | .CONST 0x2dc ; [0x69] -> 0x20840 00020638 02 dc | | .CONST 0x2dc ; [0x6a] -> 0x20840 0002063a 02 dc | | .CONST 0x2dc ; [0x6b] -> 0x20840 0002063c 02 dc | | .CONST 0x2dc ; [0x6c] -> 0x20840 0002063e 02 dc | | .CONST 0x2dc ; [0x6d] -> 0x20840 00020640 02 dc | | .CONST 0x2dc ; [0x6e] -> 0x20840 00020642 02 dc | | .CONST 0x2dc ; [0x6f] -> 0x20840 00020644 02 dc | | .CONST 0x2dc ; [0x70] -> 0x20840 00020646 02 dc | | .CONST 0x2dc ; [0x71] -> 0x20840 00020648 02 dc | | .CONST 0x2dc ; [0x72] -> 0x20840 0002064a 02 dc | | .CONST 0x2dc ; [0x73] -> 0x20840 0002064c 02 dc | | .CONST 0x2dc ; [0x74] -> 0x20840 0002064e 02 dc | | .CONST 0x2dc ; [0x75] -> 0x20840 00020650 02 dc | | .CONST 0x2dc ; [0x76] -> 0x20840 00020652 02 dc | | .CONST 0x2dc ; [0x77] -> 0x20840 00020654 02 dc | | .CONST 0x2dc ; [0x78] -> 0x20840 00020656 02 dc | | .CONST 0x2dc ; [0x79] -> 0x20840 00020658 02 dc | | .CONST 0x2dc ; [0x7a] -> 0x20840 0002065a 02 dc | | .CONST 0x2dc ; [0x7b] -> 0x20840 0002065c 02 dc | | .CONST 0x2dc ; [0x7c] -> 0x20840 0002065e 02 dc | | .CONST 0x2dc ; [0x7d] -> 0x20840 00020660 02 dc | | .CONST 0x2dc ; [0x7e] -> 0x20840 00020662 02 dc | | .CONST 0x2dc ; [0x7f] -> 0x20840 00020664 02 dc | | .CONST 0x2dc ; [0x80] -> 0x20840 00020666 02 dc | | .CONST 0x2dc ; [0x81] -> 0x20840 00020668 02 dc | | .CONST 0x2dc ; [0x82] -> 0x20840 0002066a 02 dc | | .CONST 0x2dc ; [0x83] -> 0x20840 0002066c 02 dc | | .CONST 0x2dc ; [0x84] -> 0x20840 0002066e 02 dc | | .CONST 0x2dc ; [0x85] -> 0x20840 00020670 02 dc | | .CONST 0x2dc ; [0x86] -> 0x20840 00020672 02 dc | | .CONST 0x2dc ; [0x87] -> 0x20840 00020674 02 dc | | .CONST 0x2dc ; [0x88] -> 0x20840 00020676 02 dc | | .CONST 0x2dc ; [0x89] -> 0x20840 00020678 02 dc | | .CONST 0x2dc ; [0x8a] -> 0x20840 0002067a 02 dc | | .CONST 0x2dc ; [0x8b] -> 0x20840 0002067c 02 dc | | .CONST 0x2dc ; [0x8c] -> 0x20840 0002067e 02 dc | | .CONST 0x2dc ; [0x8d] -> 0x20840 00020680 02 dc | | .CONST 0x2dc ; [0x8e] -> 0x20840 00020682 02 dc | | .CONST 0x2dc ; [0x8f] -> 0x20840 00020684 02 dc | | .CONST 0x2dc ; [0x90] -> 0x20840 00020686 02 dc | | .CONST 0x2dc ; [0x91] -> 0x20840 00020688 02 dc | | .CONST 0x2dc ; [0x92] -> 0x20840 0002068a 02 dc | | .CONST 0x2dc ; [0x93] -> 0x20840 0002068c 02 dc | | .CONST 0x2dc ; [0x94] -> 0x20840 0002068e 02 dc | | .CONST 0x2dc ; [0x95] -> 0x20840 00020690 02 dc | | .CONST 0x2dc ; [0x96] -> 0x20840 00020692 02 dc | | .CONST 0x2dc ; [0x97] -> 0x20840 00020694 02 dc | | .CONST 0x2dc ; [0x98] -> 0x20840 00020696 02 dc | | .CONST 0x2dc ; [0x99] -> 0x20840 00020698 02 dc | | .CONST 0x2dc ; [0x9a] -> 0x20840 0002069a 02 dc | | .CONST 0x2dc ; [0x9b] -> 0x20840 0002069c 02 dc | | .CONST 0x2dc ; [0x9c] -> 0x20840 0002069e 02 dc | | .CONST 0x2dc ; [0x9d] -> 0x20840 000206a0 02 dc | | .CONST 0x2dc ; [0x9e] -> 0x20840 000206a2 02 dc | | .CONST 0x2dc ; [0x9f] -> 0x20840 000206a4 02 dc | | .CONST 0x2dc ; [0xa0] -> 0x20840 000206a6 02 dc | | .CONST 0x2dc ; [0xa1] -> 0x20840 000206a8 02 dc | | .CONST 0x2dc ; [0xa2] -> 0x20840 000206aa 02 dc | | .CONST 0x2dc ; [0xa3] -> 0x20840 000206ac 02 dc | | .CONST 0x2dc ; [0xa4] -> 0x20840 000206ae 02 dc | | .CONST 0x2dc ; [0xa5] -> 0x20840 000206b0 02 dc | | .CONST 0x2dc ; [0xa6] -> 0x20840 000206b2 02 dc | | .CONST 0x2dc ; [0xa7] -> 0x20840 000206b4 02 dc | | .CONST 0x2dc ; [0xa8] -> 0x20840 000206b6 02 dc | | .CONST 0x2dc ; [0xa9] -> 0x20840 000206b8 02 dc | | .CONST 0x2dc ; [0xaa] -> 0x20840 000206ba 02 dc | | .CONST 0x2dc ; [0xab] -> 0x20840 000206bc 02 dc | | .CONST 0x2dc ; [0xac] -> 0x20840 000206be 02 dc | | .CONST 0x2dc ; [0xad] -> 0x20840 000206c0 02 dc | | .CONST 0x2dc ; [0xae] -> 0x20840 000206c2 02 dc | | .CONST 0x2dc ; [0xaf] -> 0x20840 000206c4 02 dc | | .CONST 0x2dc ; [0xb0] -> 0x20840 000206c6 02 dc | | .CONST 0x2dc ; [0xb1] -> 0x20840 000206c8 02 dc | | .CONST 0x2dc ; [0xb2] -> 0x20840 000206ca 02 dc | | .CONST 0x2dc ; [0xb3] -> 0x20840 000206cc 02 dc | | .CONST 0x2dc ; [0xb4] -> 0x20840 000206ce 02 dc | | .CONST 0x2dc ; [0xb5] -> 0x20840 000206d0 02 dc | | .CONST 0x2dc ; [0xb6] -> 0x20840 000206d2 02 dc | | .CONST 0x2dc ; [0xb7] -> 0x20840 000206d4 02 dc | | .CONST 0x2dc ; [0xb8] -> 0x20840 000206d6 02 dc | | .CONST 0x2dc ; [0xb9] -> 0x20840 000206d8 02 dc | | .CONST 0x2dc ; [0xba] -> 0x20840 000206da 02 dc | | .CONST 0x2dc ; [0xbb] -> 0x20840 000206dc 02 dc | | .CONST 0x2dc ; [0xbc] -> 0x20840 000206de 02 dc | | .CONST 0x2dc ; [0xbd] -> 0x20840 000206e0 02 dc | | .CONST 0x2dc ; [0xbe] -> 0x20840 000206e2 02 dc | | .CONST 0x2dc ; [0xbf] -> 0x20840 000206e4 02 dc | | .CONST 0x2dc ; [0xc0] -> 0x20840 000206e6 02 dc | | .CONST 0x2dc ; [0xc1] -> 0x20840 000206e8 02 dc | | .CONST 0x2dc ; [0xc2] -> 0x20840 000206ea 02 dc | | .CONST 0x2dc ; [0xc3] -> 0x20840 000206ec 02 dc | | .CONST 0x2dc ; [0xc4] -> 0x20840 000206ee 02 dc | | .CONST 0x2dc ; [0xc5] -> 0x20840 000206f0 02 dc | | .CONST 0x2dc ; [0xc6] -> 0x20840 000206f2 02 dc | | .CONST 0x2dc ; [0xc7] -> 0x20840 000206f4 02 dc | | .CONST 0x2dc ; [0xc8] -> 0x20840 000206f6 02 dc | | .CONST 0x2dc ; [0xc9] -> 0x20840 000206f8 02 dc | | .CONST 0x2dc ; [0xca] -> 0x20840 000206fa 02 dc | | .CONST 0x2dc ; [0xcb] -> 0x20840 000206fc 02 dc | | .CONST 0x2dc ; [0xcc] -> 0x20840 000206fe 02 dc | | .CONST 0x2dc ; [0xcd] -> 0x20840 00020700 02 dc | | .CONST 0x2dc ; [0xce] -> 0x20840 00020702 02 dc | | .CONST 0x2dc ; [0xcf] -> 0x20840 00020704 02 dc | | .CONST 0x2dc ; [0xd0] -> 0x20840 00020706 02 dc | | .CONST 0x2dc ; [0xd1] -> 0x20840 00020708 02 dc | | .CONST 0x2dc ; [0xd2] -> 0x20840 0002070a 02 dc | | .CONST 0x2dc ; [0xd3] -> 0x20840 0002070c 02 dc | | .CONST 0x2dc ; [0xd4] -> 0x20840 0002070e 02 dc | | .CONST 0x2dc ; [0xd5] -> 0x20840 00020710 02 dc | | .CONST 0x2dc ; [0xd6] -> 0x20840 00020712 02 dc | | .CONST 0x2dc ; [0xd7] -> 0x20840 00020714 02 dc | | .CONST 0x2dc ; [0xd8] -> 0x20840 00020716 02 dc | | .CONST 0x2dc ; [0xd9] -> 0x20840 00020718 02 dc | | .CONST 0x2dc ; [0xda] -> 0x20840 0002071a 02 dc | | .CONST 0x2dc ; [0xdb] -> 0x20840 0002071c 02 dc | | .CONST 0x2dc ; [0xdc] -> 0x20840 0002071e 02 dc | | .CONST 0x2dc ; [0xdd] -> 0x20840 00020720 02 dc | | .CONST 0x2dc ; [0xde] -> 0x20840 00020722 02 dc | | .CONST 0x2dc ; [0xdf] -> 0x20840 00020724 02 dc | | .CONST 0x2dc ; [0xe0] -> 0x20840 00020726 02 dc | | .CONST 0x2dc ; [0xe1] -> 0x20840 00020728 02 dc | | .CONST 0x2dc ; [0xe2] -> 0x20840 0002072a 02 dc | | .CONST 0x2dc ; [0xe3] -> 0x20840 0002072c 02 dc | | .CONST 0x2dc ; [0xe4] -> 0x20840 0002072e 02 dc | | .CONST 0x2dc ; [0xe5] -> 0x20840 00020730 02 dc | | .CONST 0x2dc ; [0xe6] -> 0x20840 00020732 02 dc | | .CONST 0x2dc ; [0xe7] -> 0x20840 00020734 02 dc | | .CONST 0x2dc ; [0xe8] -> 0x20840 00020736 02 dc | | .CONST 0x2dc ; [0xe9] -> 0x20840 00020738 02 dc | | .CONST 0x2dc ; [0xea] -> 0x20840 0002073a 02 dc | | .CONST 0x2dc ; [0xeb] -> 0x20840 0002073c 02 dc | | .CONST 0x2dc ; [0xec] -> 0x20840 0002073e 02 dc | | .CONST 0x2dc ; [0xed] -> 0x20840 00020740 02 dc | | .CONST 0x2dc ; [0xee] -> 0x20840 00020742 02 dc | | .CONST 0x2dc ; [0xef] -> 0x20840 00020744 02 dc | | .CONST 0x2dc ; [0xf0] -> 0x20840 00020746 02 dc | | .CONST 0x2dc ; [0xf1] -> 0x20840 00020748 02 dc | | .CONST 0x2dc ; [0xf2] -> 0x20840 0002074a 02 dc | | .CONST 0x2dc ; [0xf3] -> 0x20840 0002074c 02 dc | | .CONST 0x2dc ; [0xf4] -> 0x20840 0002074e 02 dc | | .CONST 0x2dc ; [0xf5] -> 0x20840 00020750 02 dc | | .CONST 0x2dc ; [0xf6] -> 0x20840 00020752 02 dc | | .CONST 0x2dc ; [0xf7] -> 0x20840 00020754 02 dc | | .CONST 0x2dc ; [0xf8] -> 0x20840 00020756 02 dc | | .CONST 0x2dc ; [0xf9] -> 0x20840 00020758 02 dc | | .CONST 0x2dc ; [0xfa] -> 0x20840 0002075a 02 dc | | .CONST 0x2dc ; [0xfb] -> 0x20840 0002075c 02 dc | | .CONST 0x2dc ; [0xfc] -> 0x20840 0002075e 02 dc | | .CONST 0x2dc ; [0xfd] -> 0x20840 00020760 02 dc | | .CONST 0x2dc ; [0xfe] -> 0x20840 00020762 02 c8 | | .CONST 0x2c8 ; [0xff] -> 0x2082c 00020764 switch@0x2055c[0x0]: 00020764 9e c2 | | SUBA.W D2,A7 00020766 20 4f | O | MOVEA.L A7,A0 00020768 43 fa f9 a0 |C | LEA.L 0x2010a,A1 0002076c 70 12 |p | MOVEQ.L #0x12,D0 0002076e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020770 51 c8 ff fc |Q | DBF D0,0x2076e 00020774 59 4f |YO | SUBQ.L #0x4,A7 00020776 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002077a 3f 01 |? | MOVE.W D1,-(A7) 0002077c 3f 03 |? | MOVE.W D3,-(A7) 0002077e 4e 92 |N | JSR (A2) 00020780 60 00 00 ec |` | BRA 0x2086e 00020784 switch@0x2055c[0x1]: 00020784 9e c4 | | SUBA.W D4,A7 00020786 20 4f | O | MOVEA.L A7,A0 00020788 43 fa f9 94 |C | LEA.L 0x2011e,A1 0002078c 70 0c |p | MOVEQ.L #0x0c,D0 0002078e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020790 51 c8 ff fc |Q | DBF D0,0x2078e 00020794 59 4f |YO | SUBQ.L #0x4,A7 00020796 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002079a 3f 01 |? | MOVE.W D1,-(A7) 0002079c 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 000207a0 4e 92 |N | JSR (A2) 000207a2 50 4f |PO | ADDQ.L #0x8,A7 000207a4 28 5f |(_ | MOVEA.L (A7)+,A4 000207a6 de c4 | | ADDA.W D4,A7 000207a8 60 00 00 ca |` | BRA 0x20874 000207ac switch@0x2055c[0x2]: 000207ac 2f 3a f9 86 |/: | MOVE.L 0x20134,-(A7) 000207b0 2f 3a f9 7e |/: ~ | MOVE.L 0x20130,-(A7) 000207b4 2f 3a f9 76 |/: v | MOVE.L 0x2012c,-(A7) 000207b8 59 4f |YO | SUBQ.L #0x4,A7 000207ba 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000207be 3f 01 |? | MOVE.W D1,-(A7) 000207c0 3f 05 |? | MOVE.W D5,-(A7) 000207c2 4e 92 |N | JSR (A2) 000207c4 50 4f |PO | ADDQ.L #0x8,A7 000207c6 28 5f |(_ | MOVEA.L (A7)+,A4 000207c8 de c5 | | ADDA.W D5,A7 000207ca 60 00 00 a8 |` | BRA 0x20874 000207ce switch@0x2055c[0x3]: 000207ce 9e c2 | | SUBA.W D2,A7 000207d0 20 4f | O | MOVEA.L A7,A0 000207d2 43 fa f9 64 |C d | LEA.L 0x20138,A1 000207d6 70 12 |p | MOVEQ.L #0x12,D0 000207d8 10 d9 | | MOVE.B (A1)+,(A0)+ 000207da 51 c8 ff fc |Q | DBF D0,0x207d8 000207de 60 94 |` | BRA 0x20774 000207e0 switch@0x2055c[0x4]: 000207e0 9e c6 | | SUBA.W D6,A7 000207e2 20 4f | O | MOVEA.L A7,A0 000207e4 43 fa f9 66 |C f | LEA.L 0x2014c,A1 000207e8 70 10 |p | MOVEQ.L #0x10,D0 000207ea 10 d9 | | MOVE.B (A1)+,(A0)+ 000207ec 51 c8 ff fc |Q | DBF D0,0x207ea 000207f0 59 4f |YO | SUBQ.L #0x4,A7 000207f2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000207f6 3f 01 |? | MOVE.W D1,-(A7) 000207f8 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 000207fc 4e 92 |N | JSR (A2) 000207fe 50 4f |PO | ADDQ.L #0x8,A7 00020800 28 5f |(_ | MOVEA.L (A7)+,A4 00020802 de c6 | | ADDA.W D6,A7 00020804 60 6e |`n | BRA 0x20874 00020806 switch@0x2055c[0x5]: 00020806 9e c7 | | SUBA.W D7,A7 00020808 20 4f | O | MOVEA.L A7,A0 0002080a 43 fa f9 52 |C R | LEA.L 0x2015e,A1 0002080e 70 1c |p | MOVEQ.L #0x1c,D0 00020810 10 d9 | | MOVE.B (A1)+,(A0)+ 00020812 51 c8 ff fc |Q | DBF D0,0x20810 00020816 59 4f |YO | SUBQ.L #0x4,A7 00020818 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002081c 3f 01 |? | MOVE.W D1,-(A7) 0002081e 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 00020822 4e 92 |N | JSR (A2) 00020824 50 4f |PO | ADDQ.L #0x8,A7 00020826 28 5f |(_ | MOVEA.L (A7)+,A4 00020828 de c7 | | ADDA.W D7,A7 0002082a 60 48 |`H | BRA 0x20874 0002082c switch@0x2055c[0xff]: 0002082c 9e c2 | | SUBA.W D2,A7 0002082e 20 4f | O | MOVEA.L A7,A0 00020830 43 fa f9 4a |C J | LEA.L 0x2017c,A1 00020834 70 12 |p | MOVEQ.L #0x12,D0 00020836 10 d9 | | MOVE.B (A1)+,(A0)+ 00020838 51 c8 ff fc |Q | DBF D0,0x20836 0002083c 60 00 ff 36 |` 6 | BRA 0x20774 00020840 switch@0x2055c[0x10]: 00020840 switch@0x2055c[0x11]: 00020840 switch@0x2055c[0x12]: 00020840 switch@0x2055c[0x13]: 00020840 switch@0x2055c[0x14]: 00020840 switch@0x2055c[0x15]: 00020840 switch@0x2055c[0x16]: 00020840 switch@0x2055c[0x17]: 00020840 switch@0x2055c[0x18]: 00020840 switch@0x2055c[0x19]: 00020840 switch@0x2055c[0x1a]: 00020840 switch@0x2055c[0x1b]: 00020840 switch@0x2055c[0x1c]: 00020840 switch@0x2055c[0x1d]: 00020840 switch@0x2055c[0x1e]: 00020840 switch@0x2055c[0x1f]: 00020840 switch@0x2055c[0x20]: 00020840 switch@0x2055c[0x21]: 00020840 switch@0x2055c[0x22]: 00020840 switch@0x2055c[0x23]: 00020840 switch@0x2055c[0x24]: 00020840 switch@0x2055c[0x25]: 00020840 switch@0x2055c[0x26]: 00020840 switch@0x2055c[0x27]: 00020840 switch@0x2055c[0x28]: 00020840 switch@0x2055c[0x29]: 00020840 switch@0x2055c[0x2a]: 00020840 switch@0x2055c[0x2b]: 00020840 switch@0x2055c[0x2c]: 00020840 switch@0x2055c[0x2d]: 00020840 switch@0x2055c[0x2e]: 00020840 switch@0x2055c[0x2f]: 00020840 switch@0x2055c[0x30]: 00020840 switch@0x2055c[0x31]: 00020840 switch@0x2055c[0x32]: 00020840 switch@0x2055c[0x33]: 00020840 switch@0x2055c[0x34]: 00020840 switch@0x2055c[0x35]: 00020840 switch@0x2055c[0x36]: 00020840 switch@0x2055c[0x37]: 00020840 switch@0x2055c[0x38]: 00020840 switch@0x2055c[0x39]: 00020840 switch@0x2055c[0x3a]: 00020840 switch@0x2055c[0x3b]: 00020840 switch@0x2055c[0x3c]: 00020840 switch@0x2055c[0x3d]: 00020840 switch@0x2055c[0x3e]: 00020840 switch@0x2055c[0x3f]: 00020840 switch@0x2055c[0x40]: 00020840 switch@0x2055c[0x41]: 00020840 switch@0x2055c[0x42]: 00020840 switch@0x2055c[0x43]: 00020840 switch@0x2055c[0x44]: 00020840 switch@0x2055c[0x45]: 00020840 switch@0x2055c[0x46]: 00020840 switch@0x2055c[0x47]: 00020840 switch@0x2055c[0x48]: 00020840 switch@0x2055c[0x49]: 00020840 switch@0x2055c[0x4a]: 00020840 switch@0x2055c[0x4b]: 00020840 switch@0x2055c[0x4c]: 00020840 switch@0x2055c[0x4d]: 00020840 switch@0x2055c[0x4e]: 00020840 switch@0x2055c[0x4f]: 00020840 switch@0x2055c[0x50]: 00020840 switch@0x2055c[0x51]: 00020840 switch@0x2055c[0x52]: 00020840 switch@0x2055c[0x53]: 00020840 switch@0x2055c[0x54]: 00020840 switch@0x2055c[0x55]: 00020840 switch@0x2055c[0x56]: 00020840 switch@0x2055c[0x57]: 00020840 switch@0x2055c[0x58]: 00020840 switch@0x2055c[0x59]: 00020840 switch@0x2055c[0x5a]: 00020840 switch@0x2055c[0x5b]: 00020840 switch@0x2055c[0x5c]: 00020840 switch@0x2055c[0x5d]: 00020840 switch@0x2055c[0x5e]: 00020840 switch@0x2055c[0x5f]: 00020840 switch@0x2055c[0x60]: 00020840 switch@0x2055c[0x61]: 00020840 switch@0x2055c[0x62]: 00020840 switch@0x2055c[0x63]: 00020840 switch@0x2055c[0x64]: 00020840 switch@0x2055c[0x65]: 00020840 switch@0x2055c[0x66]: 00020840 switch@0x2055c[0x67]: 00020840 switch@0x2055c[0x68]: 00020840 switch@0x2055c[0x69]: 00020840 switch@0x2055c[0x6]: 00020840 switch@0x2055c[0x6a]: 00020840 switch@0x2055c[0x6b]: 00020840 switch@0x2055c[0x6c]: 00020840 switch@0x2055c[0x6d]: 00020840 switch@0x2055c[0x6e]: 00020840 switch@0x2055c[0x6f]: 00020840 switch@0x2055c[0x70]: 00020840 switch@0x2055c[0x71]: 00020840 switch@0x2055c[0x72]: 00020840 switch@0x2055c[0x73]: 00020840 switch@0x2055c[0x74]: 00020840 switch@0x2055c[0x75]: 00020840 switch@0x2055c[0x76]: 00020840 switch@0x2055c[0x77]: 00020840 switch@0x2055c[0x78]: 00020840 switch@0x2055c[0x79]: 00020840 switch@0x2055c[0x7]: 00020840 switch@0x2055c[0x7a]: 00020840 switch@0x2055c[0x7b]: 00020840 switch@0x2055c[0x7c]: 00020840 switch@0x2055c[0x7d]: 00020840 switch@0x2055c[0x7e]: 00020840 switch@0x2055c[0x7f]: 00020840 switch@0x2055c[0x80]: 00020840 switch@0x2055c[0x81]: 00020840 switch@0x2055c[0x82]: 00020840 switch@0x2055c[0x83]: 00020840 switch@0x2055c[0x84]: 00020840 switch@0x2055c[0x85]: 00020840 switch@0x2055c[0x86]: 00020840 switch@0x2055c[0x87]: 00020840 switch@0x2055c[0x88]: 00020840 switch@0x2055c[0x89]: 00020840 switch@0x2055c[0x8]: 00020840 switch@0x2055c[0x8a]: 00020840 switch@0x2055c[0x8b]: 00020840 switch@0x2055c[0x8c]: 00020840 switch@0x2055c[0x8d]: 00020840 switch@0x2055c[0x8e]: 00020840 switch@0x2055c[0x8f]: 00020840 switch@0x2055c[0x90]: 00020840 switch@0x2055c[0x91]: 00020840 switch@0x2055c[0x92]: 00020840 switch@0x2055c[0x93]: 00020840 switch@0x2055c[0x94]: 00020840 switch@0x2055c[0x95]: 00020840 switch@0x2055c[0x96]: 00020840 switch@0x2055c[0x97]: 00020840 switch@0x2055c[0x98]: 00020840 switch@0x2055c[0x99]: 00020840 switch@0x2055c[0x9]: 00020840 switch@0x2055c[0x9a]: 00020840 switch@0x2055c[0x9b]: 00020840 switch@0x2055c[0x9c]: 00020840 switch@0x2055c[0x9d]: 00020840 switch@0x2055c[0x9e]: 00020840 switch@0x2055c[0x9f]: 00020840 switch@0x2055c[0xa0]: 00020840 switch@0x2055c[0xa1]: 00020840 switch@0x2055c[0xa2]: 00020840 switch@0x2055c[0xa3]: 00020840 switch@0x2055c[0xa4]: 00020840 switch@0x2055c[0xa5]: 00020840 switch@0x2055c[0xa6]: 00020840 switch@0x2055c[0xa7]: 00020840 switch@0x2055c[0xa8]: 00020840 switch@0x2055c[0xa9]: 00020840 switch@0x2055c[0xa]: 00020840 switch@0x2055c[0xaa]: 00020840 switch@0x2055c[0xab]: 00020840 switch@0x2055c[0xac]: 00020840 switch@0x2055c[0xad]: 00020840 switch@0x2055c[0xae]: 00020840 switch@0x2055c[0xaf]: 00020840 switch@0x2055c[0xb0]: 00020840 switch@0x2055c[0xb1]: 00020840 switch@0x2055c[0xb2]: 00020840 switch@0x2055c[0xb3]: 00020840 switch@0x2055c[0xb4]: 00020840 switch@0x2055c[0xb5]: 00020840 switch@0x2055c[0xb6]: 00020840 switch@0x2055c[0xb7]: 00020840 switch@0x2055c[0xb8]: 00020840 switch@0x2055c[0xb9]: 00020840 switch@0x2055c[0xb]: 00020840 switch@0x2055c[0xba]: 00020840 switch@0x2055c[0xbb]: 00020840 switch@0x2055c[0xbc]: 00020840 switch@0x2055c[0xbd]: 00020840 switch@0x2055c[0xbe]: 00020840 switch@0x2055c[0xbf]: 00020840 switch@0x2055c[0xc0]: 00020840 switch@0x2055c[0xc1]: 00020840 switch@0x2055c[0xc2]: 00020840 switch@0x2055c[0xc3]: 00020840 switch@0x2055c[0xc4]: 00020840 switch@0x2055c[0xc5]: 00020840 switch@0x2055c[0xc6]: 00020840 switch@0x2055c[0xc7]: 00020840 switch@0x2055c[0xc8]: 00020840 switch@0x2055c[0xc9]: 00020840 switch@0x2055c[0xc]: 00020840 switch@0x2055c[0xca]: 00020840 switch@0x2055c[0xcb]: 00020840 switch@0x2055c[0xcc]: 00020840 switch@0x2055c[0xcd]: 00020840 switch@0x2055c[0xce]: 00020840 switch@0x2055c[0xcf]: 00020840 switch@0x2055c[0xd0]: 00020840 switch@0x2055c[0xd1]: 00020840 switch@0x2055c[0xd2]: 00020840 switch@0x2055c[0xd3]: 00020840 switch@0x2055c[0xd4]: 00020840 switch@0x2055c[0xd5]: 00020840 switch@0x2055c[0xd6]: 00020840 switch@0x2055c[0xd7]: 00020840 switch@0x2055c[0xd8]: 00020840 switch@0x2055c[0xd9]: 00020840 switch@0x2055c[0xd]: 00020840 switch@0x2055c[0xda]: 00020840 switch@0x2055c[0xdb]: 00020840 switch@0x2055c[0xdc]: 00020840 switch@0x2055c[0xdd]: 00020840 switch@0x2055c[0xde]: 00020840 switch@0x2055c[0xdf]: 00020840 switch@0x2055c[0xe0]: 00020840 switch@0x2055c[0xe1]: 00020840 switch@0x2055c[0xe2]: 00020840 switch@0x2055c[0xe3]: 00020840 switch@0x2055c[0xe4]: 00020840 switch@0x2055c[0xe5]: 00020840 switch@0x2055c[0xe6]: 00020840 switch@0x2055c[0xe7]: 00020840 switch@0x2055c[0xe8]: 00020840 switch@0x2055c[0xe9]: 00020840 switch@0x2055c[0xe]: 00020840 switch@0x2055c[0xea]: 00020840 switch@0x2055c[0xeb]: 00020840 switch@0x2055c[0xec]: 00020840 switch@0x2055c[0xed]: 00020840 switch@0x2055c[0xee]: 00020840 switch@0x2055c[0xef]: 00020840 switch@0x2055c[0xf0]: 00020840 switch@0x2055c[0xf1]: 00020840 switch@0x2055c[0xf2]: 00020840 switch@0x2055c[0xf3]: 00020840 switch@0x2055c[0xf4]: 00020840 switch@0x2055c[0xf5]: 00020840 switch@0x2055c[0xf6]: 00020840 switch@0x2055c[0xf7]: 00020840 switch@0x2055c[0xf8]: 00020840 switch@0x2055c[0xf9]: 00020840 switch@0x2055c[0xf]: 00020840 switch@0x2055c[0xfa]: 00020840 switch@0x2055c[0xfb]: 00020840 switch@0x2055c[0xfc]: 00020840 switch@0x2055c[0xfd]: 00020840 switch@0x2055c[0xfe]: 00020840 9e c2 | | SUBA.W D2,A7 00020842 20 4f | O | MOVEA.L A7,A0 00020844 43 fa f9 4a |C J | LEA.L 0x20190,A1 00020848 70 12 |p | MOVEQ.L #0x12,D0 0002084a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002084c 51 c8 ff fc |Q | DBF D0,0x2084a 00020850 51 4f |QO | SUBQ.L #0x8,A7 00020852 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020856 3f 01 |? | MOVE.W D1,-(A7) 00020858 3f 03 |? | MOVE.W D3,-(A7) 0002085a 4e 92 |N | JSR (A2) 0002085c 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00020860 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020866 58 4f |XO | ADDQ.L #0x4,A7 00020868 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002086e 50 4f |PO | ADDQ.L #0x8,A7 00020870 28 5f |(_ | MOVEA.L (A7)+,A4 00020872 de c2 | | ADDA.W D2,A7 00020874 2d 4c 00 0c |-L | MOVE.L A4,(A6+0xc) 00020878 4c df 17 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A4 0002087c 4e 5e |N^ | UNLK A6 0002087e 4e 75 |Nu | RTS 00020880 ; -------------------------------------------------------------------------------------- 00020880 ; OMSI PASCAL Function 00020880 ; <LVAR 0x00c 4(w)> 00020880 ; <LVAR 0x008 4(r)> 00020880 ; -------------------------------------------------------------------------------------- 00020880 4e 56 ff a2 |NV | LINK.W A6,#0xffa2 00020884 bf d5 | | CMPA.L (A5),A7 00020886 62 06 |b | BHI 0x2088e 00020888 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002088c 4e 76 |Nv | TRAPV 0002088e de fc 00 5a | Z | ADDA.W #0x5a,A7 00020892 48 e7 ff e8 |H | MOVEM.L A4+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020896 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 0002089c 72 01 |r | MOVEQ.L #0x01,D1 0002089e 74 10 |t | MOVEQ.L #0x10,D2 000208a0 76 12 |v | MOVEQ.L #0x12,D3 000208a2 78 0c |x | MOVEQ.L #0x0c,D4 000208a4 7a 0a |z | MOVEQ.L #0x0a,D5 000208a6 7c 1a || | MOVEQ.L #0x1a,D6 000208a8 7e 16 |~ | MOVEQ.L #0x16,D7 000208aa 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 000208ae 0c 80 00 00 00 06 | | CMPI.L #0x00000006,D0 000208b4 62 00 01 0e |b | BHI 0x209c4 000208b8 d0 40 | @ | ADD.W D0,D0 000208ba 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000208c2 00 0e | | .CONST 0xe ; [0x0] -> 0x208d0 000208c4 00 36 | 6 | .CONST 0x36 ; [0x1] -> 0x208f8 000208c6 00 5e | ^ | .CONST 0x5e ; [0x2] -> 0x20920 000208c8 00 80 | | .CONST 0x80 ; [0x3] -> 0x20942 000208ca 00 a8 | | .CONST 0xa8 ; [0x4] -> 0x2096a 000208cc 00 bc | | .CONST 0xbc ; [0x5] -> 0x2097e 000208ce 00 e2 | | .CONST 0xe2 ; [0x6] -> 0x209a4 000208d0 switch@0x208ba[0x0]: 000208d0 9e c2 | | SUBA.W D2,A7 000208d2 20 4f | O | MOVEA.L A7,A0 000208d4 43 fa f8 ce |C | LEA.L 0x201a4,A1 000208d8 70 0e |p | MOVEQ.L #0x0e,D0 000208da 10 d9 | | MOVE.B (A1)+,(A0)+ 000208dc 51 c8 ff fc |Q | DBF D0,0x208da 000208e0 59 4f |YO | SUBQ.L #0x4,A7 000208e2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000208e6 3f 01 |? | MOVE.W D1,-(A7) 000208e8 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 000208ec 4e 92 |N | JSR (A2) 000208ee 50 4f |PO | ADDQ.L #0x8,A7 000208f0 28 5f |(_ | MOVEA.L (A7)+,A4 000208f2 de c2 | | ADDA.W D2,A7 000208f4 60 00 01 08 |` | BRA 0x209fe 000208f8 switch@0x208ba[0x1]: 000208f8 9e c3 | | SUBA.W D3,A7 000208fa 20 4f | O | MOVEA.L A7,A0 000208fc 43 fa f8 b6 |C | LEA.L 0x201b4,A1 00020900 70 10 |p | MOVEQ.L #0x10,D0 00020902 10 d9 | | MOVE.B (A1)+,(A0)+ 00020904 51 c8 ff fc |Q | DBF D0,0x20902 00020908 59 4f |YO | SUBQ.L #0x4,A7 0002090a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002090e 3f 01 |? | MOVE.W D1,-(A7) 00020910 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00020914 4e 92 |N | JSR (A2) 00020916 50 4f |PO | ADDQ.L #0x8,A7 00020918 28 5f |(_ | MOVEA.L (A7)+,A4 0002091a de c3 | | ADDA.W D3,A7 0002091c 60 00 00 e0 |` | BRA 0x209fe 00020920 switch@0x208ba[0x2]: 00020920 2f 3a f8 ac |/: | MOVE.L 0x201ce,-(A7) 00020924 2f 3a f8 a4 |/: | MOVE.L 0x201ca,-(A7) 00020928 2f 3a f8 9c |/: | MOVE.L 0x201c6,-(A7) 0002092c 59 4f |YO | SUBQ.L #0x4,A7 0002092e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020932 3f 01 |? | MOVE.W D1,-(A7) 00020934 3f 04 |? | MOVE.W D4,-(A7) 00020936 4e 92 |N | JSR (A2) 00020938 50 4f |PO | ADDQ.L #0x8,A7 0002093a 28 5f |(_ | MOVEA.L (A7)+,A4 0002093c de c4 | | ADDA.W D4,A7 0002093e 60 00 00 be |` | BRA 0x209fe 00020942 switch@0x208ba[0x3]: 00020942 9e c5 | | SUBA.W D5,A7 00020944 20 4f | O | MOVEA.L A7,A0 00020946 43 fa f8 8a |C | LEA.L 0x201d2,A1 0002094a 70 08 |p | MOVEQ.L #0x08,D0 0002094c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002094e 51 c8 ff fc |Q | DBF D0,0x2094c 00020952 59 4f |YO | SUBQ.L #0x4,A7 00020954 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020958 3f 01 |? | MOVE.W D1,-(A7) 0002095a 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002095e 4e 92 |N | JSR (A2) 00020960 50 4f |PO | ADDQ.L #0x8,A7 00020962 28 5f |(_ | MOVEA.L (A7)+,A4 00020964 de c5 | | ADDA.W D5,A7 00020966 60 00 00 96 |` | BRA 0x209fe 0002096a switch@0x208ba[0x4]: 0002096a 9e c2 | | SUBA.W D2,A7 0002096c 20 4f | O | MOVEA.L A7,A0 0002096e 43 fa f8 6c |C l | LEA.L 0x201dc,A1 00020972 70 0e |p | MOVEQ.L #0x0e,D0 00020974 10 d9 | | MOVE.B (A1)+,(A0)+ 00020976 51 c8 ff fc |Q | DBF D0,0x20974 0002097a 60 00 ff 64 |` d | BRA 0x208e0 0002097e switch@0x208ba[0x5]: 0002097e 9e c6 | | SUBA.W D6,A7 00020980 20 4f | O | MOVEA.L A7,A0 00020982 43 fa f8 68 |C h | LEA.L 0x201ec,A1 00020986 70 18 |p | MOVEQ.L #0x18,D0 00020988 10 d9 | | MOVE.B (A1)+,(A0)+ 0002098a 51 c8 ff fc |Q | DBF D0,0x20988 0002098e 59 4f |YO | SUBQ.L #0x4,A7 00020990 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020994 3f 01 |? | MOVE.W D1,-(A7) 00020996 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 0002099a 4e 92 |N | JSR (A2) 0002099c 50 4f |PO | ADDQ.L #0x8,A7 0002099e 28 5f |(_ | MOVEA.L (A7)+,A4 000209a0 de c6 | | ADDA.W D6,A7 000209a2 60 5a |`Z | BRA 0x209fe 000209a4 switch@0x208ba[0x6]: 000209a4 41 fa f8 76 |A v | LEA.L 0x2021c,A0 000209a8 70 0a |p | MOVEQ.L #0x0a,D0 000209aa 3f 20 |? | MOVE.W -(A0),-(A7) 000209ac 51 c8 ff fc |Q | DBF D0,0x209aa 000209b0 59 4f |YO | SUBQ.L #0x4,A7 000209b2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000209b6 3f 01 |? | MOVE.W D1,-(A7) 000209b8 3f 07 |? | MOVE.W D7,-(A7) 000209ba 4e 92 |N | JSR (A2) 000209bc 50 4f |PO | ADDQ.L #0x8,A7 000209be 28 5f |(_ | MOVEA.L (A7)+,A4 000209c0 de c7 | | ADDA.W D7,A7 000209c2 60 3a |`: | BRA 0x209fe 000209c4 9e fc 00 14 | | SUBA.W #0x14,A7 000209c8 20 4f | O | MOVEA.L A7,A0 000209ca 43 fa f8 50 |C P | LEA.L 0x2021c,A1 000209ce 70 12 |p | MOVEQ.L #0x12,D0 000209d0 10 d9 | | MOVE.B (A1)+,(A0)+ 000209d2 51 c8 ff fc |Q | DBF D0,0x209d0 000209d6 51 4f |QO | SUBQ.L #0x8,A7 000209d8 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000209dc 3f 01 |? | MOVE.W D1,-(A7) 000209de 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000209e2 4e 92 |N | JSR (A2) 000209e4 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000209e8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000209ee 58 4f |XO | ADDQ.L #0x4,A7 000209f0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000209f6 50 4f |PO | ADDQ.L #0x8,A7 000209f8 28 5f |(_ | MOVEA.L (A7)+,A4 000209fa de fc 00 14 | | ADDA.W #0x14,A7 000209fe 2d 4c 00 0c |-L | MOVE.L A4,(A6+0xc) 00020a02 4c df 17 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A4 00020a06 4e 5e |N^ | UNLK A6 00020a08 4e 75 |Nu | RTS 00020a0a ; -------------------------------------------------------------------------------------- 00020a0a ; OMSI PASCAL Function 00020a0a ; <LVAR 0x008 1(w)> 00020a0a ; <LVAR -0x004 @ 1(r)> 00020a0a ; -------------------------------------------------------------------------------------- 00020a0a 4e 56 ff ea |NV | LINK.W A6,#0xffea 00020a0e bf d5 | | CMPA.L (A5),A7 00020a10 62 06 |b | BHI 0x20a18 00020a12 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a16 4e 76 |Nv | TRAPV 00020a18 de fc 00 12 | | ADDA.W #0x12,A7 00020a1c 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020a20 41 ee ff fc |A | LEA.L (A6-0x4),A0 00020a24 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00020a28 48 50 |HP | PEA.L (A0) 00020a2a 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00020a30 5c 4f |\O | ADDQ.L #0x6,A7 00020a32 4a 10 |J | TST.B (A0) 00020a34 67 ee |g | BEQ 0x20a24 00020a36 10 10 | | MOVE.B (A0),D0 00020a38 48 80 |H | EXTB.W D0 00020a3a 41 bc 00 06 |A | CHK.W #0x6,D0 00020a3e 1d 40 00 08 | @ | MOVE.B D0,(A6+0x8) 00020a42 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020a46 4e 5e |N^ | UNLK A6 00020a48 4e 75 |Nu | RTS 00020a4a ; -------------------------------------------------------------------------------------- 00020a4a ; OMSI PASCAL Function 00020a4a ; <LVAR 0x00c 2(w)> 00020a4a ; <LVAR 0x008 4(r)> 00020a4a ; -------------------------------------------------------------------------------------- 00020a4a 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 00020a4e bf d5 | | CMPA.L (A5),A7 00020a50 62 06 |b | BHI 0x20a58 00020a52 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a56 4e 76 |Nv | TRAPV 00020a58 de fc 00 0e | | ADDA.W #0xe,A7 00020a5c 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00020a60 55 4f |UO | SUBQ.L #0x2,A7 00020a62 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020a66 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 00020a6c 58 4f |XO | ADDQ.L #0x4,A7 00020a6e 30 1f |0 | MOVE.W (A7)+,D0 00020a70 41 bc 00 ff |A | CHK.W #0xff,D0 00020a74 3d 40 00 0c |=@ | MOVE.W D0,(A6+0xc) 00020a78 4c df 00 01 |L | MOVEM.L (A7)+,D0 00020a7c 4e 5e |N^ | UNLK A6 00020a7e 4e 75 |Nu | RTS 00020a80 ; -------------------------------------------------------------------------------------- 00020a80 ; OMSI PASCAL Function 00020a80 ; <LVAR 0x008 4(r)> 00020a80 ; -------------------------------------------------------------------------------------- 00020a80 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00020a84 bf d5 | | CMPA.L (A5),A7 00020a86 62 06 |b | BHI 0x20a8e 00020a88 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a8c 4e 76 |Nv | TRAPV 00020a8e de fc 00 3a | : | ADDA.W #0x3a,A7 00020a92 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020a96 48 78 00 01 |Hx | PEA.L 0x1 00020a9a 4e b9 00 01 03 f4 |N | JSR SetConsoleConfig(a : Long) 00020aa0 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00020aa4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020aaa 9e fc 00 1a | | SUBA.W #0x1a,A7 00020aae 20 4f | O | MOVEA.L A7,A0 00020ab0 43 fa f7 7e |C ~ | LEA.L 0x20230,A1 00020ab4 70 1c |p | MOVEQ.L #0x1c,D0 00020ab6 10 d9 | | MOVE.B (A1)+,(A0)+ 00020ab8 51 c8 ff fc |Q | DBF D0,0x20ab6 00020abc 59 4f |YO | SUBQ.L #0x4,A7 00020abe 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020ac2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020ac6 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 00020aca 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020ad0 50 4f |PO | ADDQ.L #0x8,A7 00020ad2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020ad8 de fc 00 20 | | ADDA.W #0x20,A7 00020adc 42 17 |B | CLR.B (A7) 00020ade 48 78 00 01 |Hx | PEA.L 0x1 00020ae2 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020ae8 5c 4f |\O | ADDQ.L #0x6,A7 00020aea 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020aee 4e 5e |N^ | UNLK A6 00020af0 4e 75 |Nu | RTS 00020af2 ; -------------------------------------------------------------------------------------- 00020af2 ; OMSI PASCAL Function 00020af2 ; <LVAR 0x00c 4(r)> 00020af2 ; <LVAR 0x008 4(r)> 00020af2 ; <LVAR -0x002 @ 2(r)> 00020af2 ; <LVAR -0x004 @ 1(r)> 00020af2 ; -------------------------------------------------------------------------------------- 00020af2 4e 56 ff ca |NV | LINK.W A6,#0xffca 00020af6 bf d5 | | CMPA.L (A5),A7 00020af8 62 06 |b | BHI 0x20b00 00020afa 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020afe 4e 76 |Nv | TRAPV 00020b00 de fc 00 2a | * | ADDA.W #0x2a,A7 00020b04 48 e7 c3 80 |H | MOVEM.L A0+D7+D6+D1+D0,-(A7) 00020b08 72 01 |r | MOVEQ.L #0x01,D1 00020b0a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020b0e 42 10 |B | CLR.B (A0) 00020b10 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00020b14 7c 01 || | MOVEQ.L #0x01,D6 00020b16 bc 97 | | CMP.L (A7),D6 00020b18 6e 4c |nL | BGT 0x20b66 00020b1a 7e 01 |~ | MOVEQ.L #0x01,D7 00020b1c 3f 01 |? | MOVE.W D1,-(A7) 00020b1e 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020b22 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00020b28 5c 4f |\O | ADDQ.L #0x6,A7 00020b2a 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00020b2e b0 01 | | CMP.B D1,D0 00020b30 66 26 |f& | BNE 0x20b58 00020b32 3f 01 |? | MOVE.W D1,-(A7) 00020b34 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020b38 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020b3e 5c 4f |\O | ADDQ.L #0x6,A7 00020b40 30 2e ff fe |0. | MOVE.W (A6-0x2),D0 00020b44 02 40 00 ff | @ | ANDI.W #0x00ff,D0 00020b48 0c 40 00 03 | @ | CMPI.W #0x0003,D0 00020b4c 66 0a |f | BNE 0x20b58 00020b4e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020b52 10 81 | | MOVE.B D1,(A0) 00020b54 58 4f |XO | ADDQ.L #0x4,A7 00020b56 60 10 |` | BRA 0x20b68 00020b58 52 87 |R | ADDQ.L #0x1,D7 00020b5a 0c 87 00 00 03 e8 | | CMPI.L #0x000003e8,D7 00020b60 6f ba |o | BLE 0x20b1c 00020b62 52 86 |R | ADDQ.L #0x1,D6 00020b64 68 b0 |h | BVC 0x20b16 00020b66 58 4f |XO | ADDQ.L #0x4,A7 00020b68 4c df 01 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0 00020b6c 4e 5e |N^ | UNLK A6 00020b6e 4e 75 |Nu | RTS 00020b70 ; -------------------------------------------------------------------------------------- 00020b70 ; OMSI PASCAL Function 00020b70 ; <LVAR 0x00c 4(rw)> 00020b70 ; <LVAR 0x008 4(r)> 00020b70 ; -------------------------------------------------------------------------------------- 00020b70 4e 56 ff ec |NV | LINK.W A6,#0xffec 00020b74 bf d5 | | CMPA.L (A5),A7 00020b76 62 06 |b | BHI 0x20b7e 00020b78 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b7c 4e 76 |Nv | TRAPV 00020b7e de fc 00 14 | | ADDA.W #0x14,A7 00020b82 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00020b86 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020b8a 48 78 00 3c |Hx < | PEA.L 0x3c 00020b8e 48 50 |HP | PEA.L (A0) 00020b90 4e ba ff 60 |N ` | JSR 0x20af2 00020b94 50 4f |PO | ADDQ.L #0x8,A7 00020b96 53 ae 00 0c |S | SUBQ.L #0x1,(A6+0xc) 00020b9a 4a 10 |J | TST.B (A0) 00020b9c 66 06 |f | BNE 0x20ba4 00020b9e 4a ae 00 0c |J | TST.L (A6+0xc) 00020ba2 66 e2 |f | BNE 0x20b86 00020ba4 4c df 01 00 |L | MOVEM.L (A7)+,A0 00020ba8 4e 5e |N^ | UNLK A6 00020baa 4e 75 |Nu | RTS 00020bac ; -------------------------------------------------------------------------------------- 00020bac ; OMSI PASCAL Function 00020bac ; <LVAR -0x004 @> 00020bac ; <LVAR -0x006 @> 00020bac ; <LVAR -0x008 @ 1(r)> 00020bac ; -------------------------------------------------------------------------------------- 00020bac 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00020bb0 bf d5 | | CMPA.L (A5),A7 00020bb2 62 06 |b | BHI 0x20bba 00020bb4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020bb8 4e 76 |Nv | TRAPV 00020bba de fc 00 18 | | ADDA.W #0x18,A7 00020bbe 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00020bc2 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00020bc6 72 03 |r | MOVEQ.L #0x03,D1 00020bc8 4e b9 00 01 02 16 |N | JSR KC0b 00020bce 48 78 00 05 |Hx | PEA.L 0x5 00020bd2 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020bd6 4e ba ff 1a |N | JSR 0x20af2 00020bda 50 4f |PO | ADDQ.L #0x8,A7 00020bdc 3f 01 |? | MOVE.W D1,-(A7) 00020bde 48 50 |HP | PEA.L (A0) 00020be0 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00020be6 5c 4f |\O | ADDQ.L #0x6,A7 00020be8 4a 10 |J | TST.B (A0) 00020bea 67 0e |g | BEQ 0x20bfa 00020bec 3f 01 |? | MOVE.W D1,-(A7) 00020bee 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020bf2 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020bf8 5c 4f |\O | ADDQ.L #0x6,A7 00020bfa 10 10 | | MOVE.B (A0),D0 00020bfc 0c 00 00 02 | | CMPI.B #0x02,D0 00020c00 66 da |f | BNE 0x20bdc 00020c02 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00020c06 4e 5e |N^ | UNLK A6 00020c08 4e 75 |Nu | RTS 00020c0a ; -------------------------------------------------------------------------------------- 00020c0a ; OMSI PASCAL Function 00020c0a ; <LVAR -0x002 @ 1(r)> 00020c0a ; <LVAR -0x006 @ 4(r)> 00020c0a ; <LVAR -0x008 @ 2(rw)> 00020c0a ; <LVAR -0x00a @ 1(rw)> 00020c0a ; <LVAR -0x00c @ 2(rw)> 00020c0a ; -------------------------------------------------------------------------------------- 00020c0a 4e 56 ff 72 |NV r | LINK.W A6,#0xff72 00020c0e bf d5 | | CMPA.L (A5),A7 00020c10 62 06 |b | BHI 0x20c18 00020c12 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020c16 4e 76 |Nv | TRAPV 00020c18 de fc 00 82 | | ADDA.W #0x82,A7 00020c1c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020c20 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00020c26 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00020c2a 49 ee ff f6 |I | LEA.L (A6-0xa),A4 00020c2e 76 01 |v | MOVEQ.L #0x01,D3 00020c30 78 03 |x | MOVEQ.L #0x03,D4 00020c32 3a 3c 00 ff |:< | MOVE.W #0xff,D5 00020c36 7c 24 ||$ | MOVEQ.L #0x24,D6 00020c38 7e 12 |~ | MOVEQ.L #0x12,D7 00020c3a 48 78 00 01 |Hx | PEA.L 0x1 00020c3e 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020c42 4e ba fe ae |N | JSR 0x20af2 00020c46 50 4f |PO | ADDQ.L #0x8,A7 00020c48 3f 04 |? | MOVE.W D4,-(A7) 00020c4a 48 54 |HT | PEA.L (A4) 00020c4c 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00020c52 5c 4f |\O | ADDQ.L #0x6,A7 00020c54 4a 14 |J | TST.B (A4) 00020c56 67 0c |g | BEQ 0x20c64 00020c58 3f 04 |? | MOVE.W D4,-(A7) 00020c5a 48 53 |HS | PEA.L (A3) 00020c5c 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020c62 5c 4f |\O | ADDQ.L #0x6,A7 00020c64 4a 14 |J | TST.B (A4) 00020c66 66 e0 |f | BNE 0x20c48 00020c68 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020c6c 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020c72 58 4f |XO | ADDQ.L #0x4,A7 00020c74 20 6e ff fa | n | MOVEA.L (A6-0x6),A0 00020c78 30 bc 00 05 |0 | MOVE.W #0x5,(A0) 00020c7c 55 4f |UO | SUBQ.L #0x2,A7 00020c7e 48 78 00 84 |Hx | PEA.L 0x84 00020c82 4e ba fd c6 |N | JSR 0x20a4a 00020c86 58 4f |XO | ADDQ.L #0x4,A7 00020c88 30 1f |0 | MOVE.W (A7)+,D0 00020c8a 41 85 |A | CHK.W D5,D0 00020c8c 11 40 00 02 | @ | MOVE.B D0,(A0+0x2) 00020c90 55 4f |UO | SUBQ.L #0x2,A7 00020c92 48 78 00 85 |Hx | PEA.L 0x85 00020c96 4e ba fd b2 |N | JSR 0x20a4a 00020c9a 58 4f |XO | ADDQ.L #0x4,A7 00020c9c 30 1f |0 | MOVE.W (A7)+,D0 00020c9e 41 85 |A | CHK.W D5,D0 00020ca0 11 40 00 03 | @ | MOVE.B D0,(A0+0x3) 00020ca4 55 4f |UO | SUBQ.L #0x2,A7 00020ca6 48 78 00 86 |Hx | PEA.L 0x86 00020caa 4e ba fd 9e |N | JSR 0x20a4a 00020cae 58 4f |XO | ADDQ.L #0x4,A7 00020cb0 30 1f |0 | MOVE.W (A7)+,D0 00020cb2 41 85 |A | CHK.W D5,D0 00020cb4 11 40 00 04 | @ | MOVE.B D0,(A0+0x4) 00020cb8 55 4f |UO | SUBQ.L #0x2,A7 00020cba 48 78 00 87 |Hx | PEA.L 0x87 00020cbe 4e ba fd 8a |N | JSR 0x20a4a 00020cc2 58 4f |XO | ADDQ.L #0x4,A7 00020cc4 30 1f |0 | MOVE.W (A7)+,D0 00020cc6 41 85 |A | CHK.W D5,D0 00020cc8 11 40 00 05 | @ | MOVE.B D0,(A0+0x5) 00020ccc 42 28 00 06 |B( | CLR.B (A0+0x6) 00020cd0 3f 04 |? | MOVE.W D4,-(A7) 00020cd2 2f 2e ff fa |/. | MOVE.L (A6-0x6),-(A7) 00020cd6 4e b9 00 01 02 14 |N | JSR KC0a(a: Word; b: String) 00020cdc 5c 4f |\O | ADDQ.L #0x6,A7 00020cde 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020ce2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020ce8 54 4f |TO | ADDQ.L #0x2,A7 00020cea 4e ba fd 1e |N | JSR 0x20a0a 00020cee 10 1f | | MOVE.B (A7)+,D0 00020cf0 48 80 |H | EXTB.W D0 00020cf2 41 bc 00 06 |A | CHK.W #0x6,D0 00020cf6 18 80 | | MOVE.B D0,(A4) 00020cf8 3f 04 |? | MOVE.W D4,-(A7) 00020cfa 48 53 |HS | PEA.L (A3) 00020cfc 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020d02 5c 4f |\O | ADDQ.L #0x6,A7 00020d04 cb 53 | S | AND.W D5,(A3) 00020d06 b0 04 | | CMP.B D4,D0 00020d08 66 3a |f: | BNE 0x20d44 00020d0a 41 fa f5 62 |A b | LEA.L 0x2026e,A0 00020d0e 70 07 |p | MOVEQ.L #0x07,D0 00020d10 2f 20 |/ | MOVE.L -(A0),-(A7) 00020d12 51 c8 ff fc |Q | DBF D0,0x20d10 00020d16 51 4f |QO | SUBQ.L #0x8,A7 00020d18 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020d1c 3f 03 |? | MOVE.W D3,-(A7) 00020d1e 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00020d22 4e 92 |N | JSR (A2) 00020d24 58 4f |XO | ADDQ.L #0x4,A7 00020d26 42 80 |B | CLR.L D0 00020d28 30 13 |0 | MOVE.W (A3),D0 00020d2a 2f 00 |/ | MOVE.L D0,-(A7) 00020d2c 4e ba f7 f4 |N | JSR 0x20522 00020d30 58 4f |XO | ADDQ.L #0x4,A7 00020d32 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020d38 50 4f |PO | ADDQ.L #0x8,A7 00020d3a 4e ba fd 44 |N D | JSR 0x20a80 00020d3e de c6 | | ADDA.W D6,A7 00020d40 60 00 02 b4 |` | BRA 0x20ff6 00020d44 0c 00 00 06 | | CMPI.B #0x06,D0 00020d48 67 42 |gB | BEQ 0x20d8c 00020d4a 9e fc 00 2c | , | SUBA.W #0x2c,A7 00020d4e 20 4f | O | MOVEA.L A7,A0 00020d50 43 fa f5 1c |C | LEA.L 0x2026e,A1 00020d54 72 2a |r* | MOVEQ.L #0x2a,D1 00020d56 10 d9 | | MOVE.B (A1)+,(A0)+ 00020d58 51 c9 ff fc |Q | DBF D1,0x20d56 00020d5c 51 4f |QO | SUBQ.L #0x8,A7 00020d5e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020d62 3f 03 |? | MOVE.W D3,-(A7) 00020d64 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7) 00020d68 4e 92 |N | JSR (A2) 00020d6a 58 4f |XO | ADDQ.L #0x4,A7 00020d6c 48 80 |H | EXTB.W D0 00020d6e 48 c0 |H | EXTW.L D0 00020d70 2f 00 |/ | MOVE.L D0,-(A7) 00020d72 4e ba fb 0c |N | JSR 0x20880 00020d76 58 4f |XO | ADDQ.L #0x4,A7 00020d78 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020d7e 50 4f |PO | ADDQ.L #0x8,A7 00020d80 4e ba fc fe |N | JSR 0x20a80 00020d84 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020d88 60 00 02 6c |` l | BRA 0x20ff6 00020d8c 30 13 |0 | MOVE.W (A3),D0 00020d8e b0 44 | D | CMP.W D4,D0 00020d90 62 00 02 2c |b , | BHI 0x20fbe 00020d94 d0 40 | @ | ADD.W D0,D0 00020d96 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020d9e 00 08 | | .CONST 0x8 ; [0x0] -> 0x20da6 00020da0 00 1a | | .CONST 0x1a ; [0x1] -> 0x20db8 00020da2 00 42 | B | .CONST 0x42 ; [0x2] -> 0x20de0 00020da4 01 6e | n | .CONST 0x16e ; [0x3] -> 0x20f0c 00020da6 switch@0x20d96[0x0]: 00020da6 42 27 |B' | CLR.B -(A7) 00020da8 48 78 00 01 |Hx | PEA.L 0x1 00020dac 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020db2 5c 4f |\O | ADDQ.L #0x6,A7 00020db4 60 00 02 40 |` @ | BRA 0x20ff6 00020db8 switch@0x20d96[0x1]: 00020db8 41 fa f4 f8 |A | LEA.L 0x202b2,A0 00020dbc 70 05 |p | MOVEQ.L #0x05,D0 00020dbe 2f 20 |/ | MOVE.L -(A0),-(A7) 00020dc0 51 c8 ff fc |Q | DBF D0,0x20dbe 00020dc4 59 4f |YO | SUBQ.L #0x4,A7 00020dc6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020dca 3f 03 |? | MOVE.W D3,-(A7) 00020dcc 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00020dd0 4e 92 |N | JSR (A2) 00020dd2 50 4f |PO | ADDQ.L #0x8,A7 00020dd4 4e ba fc aa |N | JSR 0x20a80 00020dd8 de fc 00 1c | | ADDA.W #0x1c,A7 00020ddc 60 00 02 18 |` | BRA 0x20ff6 00020de0 switch@0x20d96[0x2]: 00020de0 4e ba fd ca |N | JSR 0x20bac 00020de4 3f 04 |? | MOVE.W D4,-(A7) 00020de6 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00020dea 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020df0 5c 4f |\O | ADDQ.L #0x6,A7 00020df2 cb 6e ff f8 | n | AND.W D5,(A6-0x8) 00020df6 30 2e ff f8 |0. | MOVE.W (A6-0x8),D0 00020dfa e1 40 | @ | ASL.W #0x8,D0 00020dfc 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00020e00 3f 04 |? | MOVE.W D4,-(A7) 00020e02 48 53 |HS | PEA.L (A3) 00020e04 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020e0a 5c 4f |\O | ADDQ.L #0x6,A7 00020e0c 32 13 |2 | MOVE.W (A3),D1 00020e0e c2 45 | E | AND.W D5,D1 00020e10 42 82 |B | CLR.L D2 00020e12 34 00 |4 | MOVE.W D0,D2 00020e14 42 80 |B | CLR.L D0 00020e16 30 01 |0 | MOVE.W D1,D0 00020e18 d0 82 | | ADD.L D2,D0 00020e1a 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00020e20 63 02 |c | BLS 0x20e24 00020e22 4e 4f |NO | TRAP #15 00020e24 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00020e28 9e fc 00 38 | 8 | SUBA.W #0x38,A7 00020e2c 20 4f | O | MOVEA.L A7,A0 00020e2e 43 fa f4 f2 |C | LEA.L 0x20322,A1 00020e32 72 36 |r6 | MOVEQ.L #0x36,D1 00020e34 10 d9 | | MOVE.B (A1)+,(A0)+ 00020e36 51 c9 ff fc |Q | DBF D1,0x20e34 00020e3a 59 4f |YO | SUBQ.L #0x4,A7 00020e3c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020e40 3f 03 |? | MOVE.W D3,-(A7) 00020e42 3f 3c 00 37 |?< 7 | MOVE.W #0x37,-(A7) 00020e46 4e 92 |N | JSR (A2) 00020e48 50 4f |PO | ADDQ.L #0x8,A7 00020e4a 4e ba f6 80 |N | JSR 0x204cc 00020e4e de c6 | | ADDA.W D6,A7 00020e50 20 4f | O | MOVEA.L A7,A0 00020e52 43 fa f5 06 |C | LEA.L 0x2035a,A1 00020e56 72 16 |r | MOVEQ.L #0x16,D1 00020e58 10 d9 | | MOVE.B (A1)+,(A0)+ 00020e5a 51 c9 ff fc |Q | DBF D1,0x20e58 00020e5e 41 fa f5 24 |A $ | LEA.L 0x20384,A0 00020e62 72 08 |r | MOVEQ.L #0x08,D1 00020e64 3f 20 |? | MOVE.W -(A0),-(A7) 00020e66 51 c9 ff fc |Q | DBF D1,0x20e64 00020e6a 51 4f |QO | SUBQ.L #0x8,A7 00020e6c 48 6f 00 1a |Ho | PEA.L (A7+0x1a) 00020e70 3f 03 |? | MOVE.W D3,-(A7) 00020e72 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00020e76 4e 92 |N | JSR (A2) 00020e78 58 4f |XO | ADDQ.L #0x4,A7 00020e7a 42 81 |B | CLR.L D1 00020e7c 32 00 |2 | MOVE.W D0,D1 00020e7e 2f 01 |/ | MOVE.L D1,-(A7) 00020e80 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020e86 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00020e8a 3f 03 |? | MOVE.W D3,-(A7) 00020e8c 3f 07 |? | MOVE.W D7,-(A7) 00020e8e 4e 92 |N | JSR (A2) 00020e90 50 4f |PO | ADDQ.L #0x8,A7 00020e92 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020e98 de fc 00 0c | | ADDA.W #0xc,A7 00020e9c 4e ba f6 2e |N . | JSR 0x204cc 00020ea0 de c7 | | ADDA.W D7,A7 00020ea2 20 4f | O | MOVEA.L A7,A0 00020ea4 43 fa f4 de |C | LEA.L 0x20384,A1 00020ea8 72 1a |r | MOVEQ.L #0x1a,D1 00020eaa 10 d9 | | MOVE.B (A1)+,(A0)+ 00020eac 51 c9 ff fc |Q | DBF D1,0x20eaa 00020eb0 59 4f |YO | SUBQ.L #0x4,A7 00020eb2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020eb6 3f 03 |? | MOVE.W D3,-(A7) 00020eb8 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00020ebc 4e 92 |N | JSR (A2) 00020ebe 50 4f |PO | ADDQ.L #0x8,A7 00020ec0 4e ba f6 0a |N | JSR 0x204cc 00020ec4 de fc 00 20 | | ADDA.W #0x20,A7 00020ec8 42 81 |B | CLR.L D1 00020eca 32 00 |2 | MOVE.W D0,D1 00020ecc 2f 01 |/ | MOVE.L D1,-(A7) 00020ece 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020ed2 4e ba fc 9c |N | JSR 0x20b70 00020ed6 50 4f |PO | ADDQ.L #0x8,A7 00020ed8 4a 2e ff fe |J. | TST.B (A6-0x2) 00020edc 66 06 |f | BNE 0x20ee4 00020ede 4e ba fd 2a |N * | JSR 0x20c0a 00020ee2 60 24 |`$ | BRA 0x20f08 00020ee4 41 fa f4 3c |A < | LEA.L 0x20322,A0 00020ee8 70 0a |p | MOVEQ.L #0x0a,D0 00020eea 3f 20 |? | MOVE.W -(A0),-(A7) 00020eec 51 c8 ff fc |Q | DBF D0,0x20eea 00020ef0 59 4f |YO | SUBQ.L #0x4,A7 00020ef2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020ef6 3f 03 |? | MOVE.W D3,-(A7) 00020ef8 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00020efc 4e 92 |N | JSR (A2) 00020efe 50 4f |PO | ADDQ.L #0x8,A7 00020f00 4e ba fb 7e |N ~ | JSR 0x20a80 00020f04 de fc 00 1a | | ADDA.W #0x1a,A7 00020f08 60 00 00 ec |` | BRA 0x20ff6 00020f0c switch@0x20d96[0x3]: 00020f0c 4e ba fc 9e |N | JSR 0x20bac 00020f10 41 fa f4 ca |A | LEA.L 0x203dc,A0 00020f14 70 0e |p | MOVEQ.L #0x0e,D0 00020f16 2f 20 |/ | MOVE.L -(A0),-(A7) 00020f18 51 c8 ff fc |Q | DBF D0,0x20f16 00020f1c 59 4f |YO | SUBQ.L #0x4,A7 00020f1e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020f22 3f 03 |? | MOVE.W D3,-(A7) 00020f24 3f 3c 00 3c |?< < | MOVE.W #0x3c,-(A7) 00020f28 4e 92 |N | JSR (A2) 00020f2a 50 4f |PO | ADDQ.L #0x8,A7 00020f2c 4e ba f5 9e |N | JSR 0x204cc 00020f30 de fc 00 32 | 2 | ADDA.W #0x32,A7 00020f34 20 4f | O | MOVEA.L A7,A0 00020f36 43 fa f4 a4 |C | LEA.L 0x203dc,A1 00020f3a 70 0c |p | MOVEQ.L #0x0c,D0 00020f3c 10 d9 | | MOVE.B (A1)+,(A0)+ 00020f3e 51 c8 ff fc |Q | DBF D0,0x20f3c 00020f42 59 4f |YO | SUBQ.L #0x4,A7 00020f44 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020f48 3f 03 |? | MOVE.W D3,-(A7) 00020f4a 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00020f4e 4e 92 |N | JSR (A2) 00020f50 50 4f |PO | ADDQ.L #0x8,A7 00020f52 4e ba f5 78 |N x | JSR 0x204cc 00020f56 de c7 | | ADDA.W D7,A7 00020f58 3f 04 |? | MOVE.W D4,-(A7) 00020f5a 48 54 |HT | PEA.L (A4) 00020f5c 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00020f62 5c 4f |\O | ADDQ.L #0x6,A7 00020f64 4a 14 |J | TST.B (A4) 00020f66 67 0c |g | BEQ 0x20f74 00020f68 3f 04 |? | MOVE.W D4,-(A7) 00020f6a 48 53 |HS | PEA.L (A3) 00020f6c 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020f72 5c 4f |\O | ADDQ.L #0x6,A7 00020f74 10 14 | | MOVE.B (A4),D0 00020f76 b0 04 | | CMP.B D4,D0 00020f78 66 de |f | BNE 0x20f58 00020f7a cb 53 | S | AND.W D5,(A3) 00020f7c 66 06 |f | BNE 0x20f84 00020f7e 4e ba fc 8a |N | JSR 0x20c0a 00020f82 60 38 |`8 | BRA 0x20fbc 00020f84 41 fa f3 62 |A b | LEA.L 0x202e8,A0 00020f88 70 1a |p | MOVEQ.L #0x1a,D0 00020f8a 3f 20 |? | MOVE.W -(A0),-(A7) 00020f8c 51 c8 ff fc |Q | DBF D0,0x20f8a 00020f90 51 4f |QO | SUBQ.L #0x8,A7 00020f92 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020f96 3f 03 |? | MOVE.W D3,-(A7) 00020f98 3f 3c 00 36 |?< 6 | MOVE.W #0x36,-(A7) 00020f9c 4e 92 |N | JSR (A2) 00020f9e 58 4f |XO | ADDQ.L #0x4,A7 00020fa0 42 80 |B | CLR.L D0 00020fa2 30 13 |0 | MOVE.W (A3),D0 00020fa4 2f 00 |/ | MOVE.L D0,-(A7) 00020fa6 4e ba f5 7a |N z | JSR 0x20522 00020faa 58 4f |XO | ADDQ.L #0x4,A7 00020fac 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020fb2 50 4f |PO | ADDQ.L #0x8,A7 00020fb4 4e ba fa ca |N | JSR 0x20a80 00020fb8 de fc 00 3a | : | ADDA.W #0x3a,A7 00020fbc 60 38 |`8 | BRA 0x20ff6 00020fbe 41 fa f3 4c |A L | LEA.L 0x2030c,A0 00020fc2 70 08 |p | MOVEQ.L #0x08,D0 00020fc4 2f 20 |/ | MOVE.L -(A0),-(A7) 00020fc6 51 c8 ff fc |Q | DBF D0,0x20fc4 00020fca 51 4f |QO | SUBQ.L #0x8,A7 00020fcc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020fd0 3f 03 |? | MOVE.W D3,-(A7) 00020fd2 3f 06 |? | MOVE.W D6,-(A7) 00020fd4 4e 92 |N | JSR (A2) 00020fd6 58 4f |XO | ADDQ.L #0x4,A7 00020fd8 42 80 |B | CLR.L D0 00020fda 30 13 |0 | MOVE.W (A3),D0 00020fdc 2f 00 |/ | MOVE.L D0,-(A7) 00020fde 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020fe4 58 4f |XO | ADDQ.L #0x4,A7 00020fe6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020fec 50 4f |PO | ADDQ.L #0x8,A7 00020fee 4e ba fa 90 |N | JSR 0x20a80 00020ff2 de fc 00 28 | ( | ADDA.W #0x28,A7 00020ff6 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00020ffa 4e 5e |N^ | UNLK A6 00020ffc 4e 75 |Nu | RTS 00020ffe ; -------------------------------------------------------------------------------------- 00020ffe ; OMSI PASCAL Function 00020ffe ; <LVAR -0x004 @> 00020ffe ; -------------------------------------------------------------------------------------- 00020ffe 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 00021002 bf d5 | | CMPA.L (A5),A7 00021004 62 06 |b | BHI 0x2100c 00021006 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002100a 4e 76 |Nv | TRAPV 0002100c de fc 00 4a | J | ADDA.W #0x4a,A7 00021010 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021014 41 fa f4 06 |A | LEA.L 0x2041c,A0 00021018 70 18 |p | MOVEQ.L #0x18,D0 0002101a 3f 20 |? | MOVE.W -(A0),-(A7) 0002101c 51 c8 ff fc |Q | DBF D0,0x2101a 00021020 59 4f |YO | SUBQ.L #0x4,A7 00021022 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021026 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002102a 3f 3c 00 32 |?< 2 | MOVE.W #0x32,-(A7) 0002102e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021034 50 4f |PO | ADDQ.L #0x8,A7 00021036 4e ba f4 94 |N | JSR 0x204cc 0002103a de fc 00 34 | 4 | ADDA.W #0x34,A7 0002103e 3e bc 00 03 |> | MOVE.W #0x3,(A7) 00021042 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021046 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 0002104c 5c 4f |\O | ADDQ.L #0x6,A7 0002104e 4e ba fb ba |N | JSR 0x20c0a 00021052 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00021056 4e 5e |N^ | UNLK A6 00021058 4e 75 |Nu | RTS 0002105a ; -------------------------------------------------------------------------------------- 0002105a ; OMSI PASCAL Function 0002105a ; <LVAR -0x004 @ 2(w)> 0002105a ; -------------------------------------------------------------------------------------- 0002105a 4e 56 ff a2 |NV | LINK.W A6,#0xffa2 0002105e bf d5 | | CMPA.L (A5),A7 00021060 62 06 |b | BHI 0x21068 00021062 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021066 4e 76 |Nv | TRAPV 00021068 de fc 00 5a | Z | ADDA.W #0x5a,A7 0002106c 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00021070 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00021074 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021078 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 0002107e 5c 4f |\O | ADDQ.L #0x6,A7 00021080 02 6e 00 ff ff fc | n | ANDI.W #0x00ff,(A6-0x4) 00021086 66 06 |f | BNE 0x2108e 00021088 4e ba fb 80 |N | JSR 0x20c0a 0002108c 60 30 |`0 | BRA 0x210be 0002108e 9e fc 00 3e | > | SUBA.W #0x3e,A7 00021092 20 4f | O | MOVEA.L A7,A0 00021094 43 fa f3 86 |C | LEA.L 0x2041c,A1 00021098 70 3c |p< | MOVEQ.L #0x3c,D0 0002109a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002109c 51 c8 ff fc |Q | DBF D0,0x2109a 000210a0 59 4f |YO | SUBQ.L #0x4,A7 000210a2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000210a6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000210aa 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 000210ae 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000210b4 50 4f |PO | ADDQ.L #0x8,A7 000210b6 4e ba f9 c8 |N | JSR 0x20a80 000210ba de fc 00 42 | B | ADDA.W #0x42,A7 000210be 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000210c2 4e 5e |N^ | UNLK A6 000210c4 4e 75 |Nu | RTS 000210c6 ; -------------------------------------------------------------------------------------- 000210c6 ; OMSI PASCAL Function 000210c6 ; -------------------------------------------------------------------------------------- 000210c6 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 000210ca bf d5 | | CMPA.L (A5),A7 000210cc 62 06 |b | BHI 0x210d4 000210ce 44 fc 00 02 |D | MOVE.W #0x2,CCR 000210d2 4e 76 |Nv | TRAPV 000210d4 de fc 00 20 | | ADDA.W #0x20,A7 000210d8 2f 3a f3 8c |/: | MOVE.L 0x20466,-(A7) 000210dc 2f 3a f3 84 |/: | MOVE.L 0x20462,-(A7) 000210e0 2f 3a f3 7c |/: | | MOVE.L 0x2045e,-(A7) 000210e4 2f 3a f3 74 |/: t | MOVE.L 0x2045a,-(A7) 000210e8 59 4f |YO | SUBQ.L #0x4,A7 000210ea 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000210ee 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000210f2 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 000210f6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000210fc 50 4f |PO | ADDQ.L #0x8,A7 000210fe 4e ba f3 cc |N | JSR 0x204cc 00021102 de fc 00 14 | | ADDA.W #0x14,A7 00021106 48 78 00 03 |Hx | PEA.L 0x3 0002110a 4e b9 00 01 03 f4 |N | JSR SetConsoleConfig(a : Long) 00021110 58 4f |XO | ADDQ.L #0x4,A7 00021112 4e ba fa f6 |N | JSR 0x20c0a 00021116 4e 5e |N^ | UNLK A6 00021118 4e 75 |Nu | RTS 0002111a ; -------------------------------------------------------------------------------------- 0002111a ; OMSI PASCAL Function 0002111a ; <LVAR -0x004 @ 1(r)> 0002111a ; -------------------------------------------------------------------------------------- 0002111a 4e 56 ff b4 |NV | LINK.W A6,#0xffb4 0002111e bf d5 | | CMPA.L (A5),A7 00021120 62 06 |b | BHI 0x21128 00021122 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021126 4e 76 |Nv | TRAPV 00021128 de fc 00 48 | H | ADDA.W #0x48,A7 0002112c 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00021130 72 03 |r | MOVEQ.L #0x03,D1 00021132 59 4f |YO | SUBQ.L #0x4,A7 00021134 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 0002113a 20 1f | | MOVE.L (A7)+,D0 0002113c b0 81 | | CMP.L D1,D0 0002113e 67 08 |g | BEQ 0x21148 00021140 4e ba ff 84 |N | JSR 0x210c6 00021144 60 00 00 98 |` | BRA 0x211de 00021148 3f 01 |? | MOVE.W D1,-(A7) 0002114a 48 6e ff fc |Hn | PEA.L (A6-0x4) 0002114e 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00021154 5c 4f |\O | ADDQ.L #0x6,A7 00021156 10 2e ff fc | . | MOVE.B (A6-0x4),D0 0002115a 48 80 |H | EXTB.W D0 0002115c 0c 40 00 06 | @ | CMPI.W #0x0006,D0 00021160 63 02 |c | BLS 0x21164 00021162 4e 4e |NN | TRAP #14 00021164 d0 40 | @ | ADD.W D0,D0 00021166 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002116e 00 0e | | .CONST 0xe ; [0x0] -> 0x2117c 00021170 00 1e | | .CONST 0x1e ; [0x1] -> 0x2118c 00021172 00 26 | & | .CONST 0x26 ; [0x2] -> 0x21194 00021174 00 20 | | .CONST 0x20 ; [0x3] -> 0x2118e 00021176 00 2c | , | .CONST 0x2c ; [0x4] -> 0x2119a 00021178 00 3a | : | .CONST 0x3a ; [0x5] -> 0x211a8 0002117a 00 46 | F | .CONST 0x46 ; [0x6] -> 0x211b4 0002117c switch@0x21166[0x0]: 0002117c 42 27 |B' | CLR.B -(A7) 0002117e 48 78 00 01 |Hx | PEA.L 0x1 00021182 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021188 5c 4f |\O | ADDQ.L #0x6,A7 0002118a 60 52 |`R | BRA 0x211de 0002118c switch@0x21166[0x1]: 0002118c 60 ee |` | BRA switch@0x21166[0x0] 0002118e switch@0x21166[0x3]: 0002118e 4e ba fe ca |N | JSR 0x2105a 00021192 60 4a |`J | BRA 0x211de 00021194 switch@0x21166[0x2]: 00021194 4e ba fe 68 |N h | JSR 0x20ffe 00021198 60 44 |`D | BRA 0x211de 0002119a switch@0x21166[0x4]: 0002119a 48 78 00 1c |Hx | PEA.L 0x1c 0002119e 4e b9 00 01 02 20 |N | JSR KC10_Panic(code : Long) 000211a4 58 4f |XO | ADDQ.L #0x4,A7 000211a6 60 36 |`6 | BRA 0x211de 000211a8 switch@0x21166[0x5]: 000211a8 48 78 00 01 |Hx | PEA.L 0x1 000211ac 4e b9 00 01 03 f4 |N | JSR SetConsoleConfig(a : Long) 000211b2 60 f0 |` | BRA 0x211a4 000211b4 switch@0x21166[0x6]: 000211b4 41 fa f3 16 |A | LEA.L 0x204cc,A0 000211b8 70 0a |p | MOVEQ.L #0x0a,D0 000211ba 2f 20 |/ | MOVE.L -(A0),-(A7) 000211bc 51 c8 ff fc |Q | DBF D0,0x211ba 000211c0 59 4f |YO | SUBQ.L #0x4,A7 000211c2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000211c6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000211ca 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7) 000211ce 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000211d4 50 4f |PO | ADDQ.L #0x8,A7 000211d6 4e ba f8 a8 |N | JSR 0x20a80 000211da de fc 00 30 | 0 | ADDA.W #0x30,A7 000211de 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 000211e2 4e 5e |N^ | UNLK A6 000211e4 4e 75 |Nu | RTS 000211e6 ; -------------------------------------------------------------------------------------- 000211e6 ; OMSI PASCAL Function 000211e6 ; -------------------------------------------------------------------------------------- 000211e6 START: 000211e6 4f fa 00 08 |O | LEA.L MAIN,A7 000211ea 4e f9 00 01 02 80 |N | JMP ?start_program 000211f0 MAIN: 000211f0 4e b9 00 01 03 98 |N | JSR FSCALL_10398 000211f6 4e ba ff 22 |N " | JSR 0x2111a 000211fa 4e b9 00 01 02 84 |N | JSR ?exit 00021200 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 0002120e ; -------------------------------------------------------------------------------------- 0002120e ; OMSI PASCAL Function 0002120e ; <LVAR 0x008 1(r)> 0002120e ; -------------------------------------------------------------------------------------- 0002120e PROG_FAIL: 0002120e 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00021212 bf d5 | | CMPA.L (A5),A7 00021214 62 06 |b | BHI 0x2121c 00021216 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002121a 4e 76 |Nv | TRAPV 0002121c de fc 00 2c | , | ADDA.W #0x2c,A7 00021220 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021224 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00021228 70 06 |p | MOVEQ.L #0x06,D0 0002122a 3f 20 |? | MOVE.W -(A0),-(A7) 0002122c 51 c8 ff fc |Q | DBF D0,0x2122a 00021230 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00021234 51 4f |QO | SUBQ.L #0x8,A7 00021236 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002123a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002123e 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00021242 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021248 58 4f |XO | ADDQ.L #0x4,A7 0002124a 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 0002124e 48 80 |H | EXTB.W D0 00021250 48 c0 |H | EXTW.L D0 00021252 2f 00 |/ | MOVE.L D0,-(A7) 00021254 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002125a 58 4f |XO | ADDQ.L #0x4,A7 0002125c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021262 50 4f |PO | ADDQ.L #0x8,A7 00021264 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002126a de fc 00 14 | | ADDA.W #0x14,A7 0002126e 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00021272 4e 5e |N^ | UNLK A6 00021274 4e 75 |Nu | RTS 00021276 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00021284 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00021292 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 000212a0 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 000212b2 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 000212ca ; -------------------------------------------------------------------------------------- 000212ca ; OMSI PASCAL Function 000212ca ; <LVAR 0x00e 1(r)> 000212ca ; <LVAR 0x00a 4(r)> 000212ca ; <LVAR 0x008 1(r)> 000212ca ; -------------------------------------------------------------------------------------- 000212ca EXP_FAIL: 000212ca 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 000212ce bf d5 | | CMPA.L (A5),A7 000212d0 62 06 |b | BHI 0x212d8 000212d2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000212d6 4e 76 |Nv | TRAPV 000212d8 de fc 00 74 | t | ADDA.W #0x74,A7 000212dc 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 000212e0 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000212e6 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 000212ec 72 01 |r | MOVEQ.L #0x01,D1 000212ee 74 0d |t | MOVEQ.L #0x0d,D2 000212f0 76 1e |v | MOVEQ.L #0x1e,D3 000212f2 78 12 |x | MOVEQ.L #0x12,D4 000212f4 7a 0e |z | MOVEQ.L #0x0e,D5 000212f6 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000212fc 41 fa ff b4 |A | LEA.L 0x212b2,A0 00021300 70 08 |p | MOVEQ.L #0x08,D0 00021302 3f 20 |? | MOVE.W -(A0),-(A7) 00021304 51 c8 ff fc |Q | DBF D0,0x21302 00021308 59 4f |YO | SUBQ.L #0x4,A7 0002130a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002130e 3f 01 |? | MOVE.W D1,-(A7) 00021310 3f 04 |? | MOVE.W D4,-(A7) 00021312 4e 93 |N | JSR (A3) 00021314 50 4f |PO | ADDQ.L #0x8,A7 00021316 4e 94 |N | JSR (A4) 00021318 50 4f |PO | ADDQ.L #0x8,A7 0002131a 20 4f | O | MOVEA.L A7,A0 0002131c 43 fa ff 58 |C X | LEA.L 0x21276,A1 00021320 70 0c |p | MOVEQ.L #0x0c,D0 00021322 10 d9 | | MOVE.B (A1)+,(A0)+ 00021324 51 c8 ff fc |Q | DBF D0,0x21322 00021328 51 4f |QO | SUBQ.L #0x8,A7 0002132a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002132e 3f 01 |? | MOVE.W D1,-(A7) 00021330 3f 02 |? | MOVE.W D2,-(A7) 00021332 4e 93 |N | JSR (A3) 00021334 54 4f |TO | ADDQ.L #0x2,A7 00021336 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 0002133a 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00021340 54 4f |TO | ADDQ.L #0x2,A7 00021342 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021348 50 4f |PO | ADDQ.L #0x8,A7 0002134a 4e 94 |N | JSR (A4) 0002134c de c4 | | ADDA.W D4,A7 0002134e 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00021352 b0 c1 | | CMPA.W D1,A0 00021354 67 48 |gH | BEQ 0x2139e 00021356 9e c5 | | SUBA.W D5,A7 00021358 22 4f |"O | MOVEA.L A7,A1 0002135a 45 fa ff 28 |E ( | LEA.L 0x21284,A2 0002135e 70 0c |p | MOVEQ.L #0x0c,D0 00021360 12 da | | MOVE.B (A2)+,(A1)+ 00021362 51 c8 ff fc |Q | DBF D0,0x21360 00021366 9e c3 | | SUBA.W D3,A7 00021368 22 4f |"O | MOVEA.L A7,A1 0002136a 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 0002136e 70 1d |p | MOVEQ.L #0x1d,D0 00021370 12 d8 | | MOVE.B (A0)+,(A1)+ 00021372 51 c8 ff fc |Q | DBF D0,0x21370 00021376 51 4f |QO | SUBQ.L #0x8,A7 00021378 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 0002137c 3f 01 |? | MOVE.W D1,-(A7) 0002137e 3f 02 |? | MOVE.W D2,-(A7) 00021380 4e 93 |N | JSR (A3) 00021382 58 4f |XO | ADDQ.L #0x4,A7 00021384 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021388 3f 01 |? | MOVE.W D1,-(A7) 0002138a 3f 03 |? | MOVE.W D3,-(A7) 0002138c 4e 93 |N | JSR (A3) 0002138e 50 4f |PO | ADDQ.L #0x8,A7 00021390 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021396 50 4f |PO | ADDQ.L #0x8,A7 00021398 4e 94 |N | JSR (A4) 0002139a de fc 00 30 | 0 | ADDA.W #0x30,A7 0002139e 9e c5 | | SUBA.W D5,A7 000213a0 20 4f | O | MOVEA.L A7,A0 000213a2 43 fa fe ee |C | LEA.L 0x21292,A1 000213a6 70 0c |p | MOVEQ.L #0x0c,D0 000213a8 10 d9 | | MOVE.B (A1)+,(A0)+ 000213aa 51 c8 ff fc |Q | DBF D0,0x213a8 000213ae 51 4f |QO | SUBQ.L #0x8,A7 000213b0 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000213b4 3f 01 |? | MOVE.W D1,-(A7) 000213b6 3f 02 |? | MOVE.W D2,-(A7) 000213b8 4e 93 |N | JSR (A3) 000213ba 54 4f |TO | ADDQ.L #0x2,A7 000213bc 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 000213c0 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 000213c6 54 4f |TO | ADDQ.L #0x2,A7 000213c8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000213ce 50 4f |PO | ADDQ.L #0x8,A7 000213d0 4e 94 |N | JSR (A4) 000213d2 5d 4f |]O | SUBQ.L #0x6,A7 000213d4 20 4f | O | MOVEA.L A7,A0 000213d6 43 fa fe da |C | LEA.L 0x212b2,A1 000213da 70 16 |p | MOVEQ.L #0x16,D0 000213dc 10 d9 | | MOVE.B (A1)+,(A0)+ 000213de 51 c8 ff fc |Q | DBF D0,0x213dc 000213e2 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000213e6 59 4f |YO | SUBQ.L #0x4,A7 000213e8 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000213ec 3f 01 |? | MOVE.W D1,-(A7) 000213ee 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000213f2 4e 93 |N | JSR (A3) 000213f4 50 4f |PO | ADDQ.L #0x8,A7 000213f6 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000213fc de c3 | | ADDA.W D3,A7 000213fe 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00021402 4e 5e |N^ | UNLK A6 00021404 4e 75 |Nu | RTS