|
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: @(#)FIXMODEM,1.2,92/10/26,12:00:00, M200_PROGRAM
Names: »FIXMODEM.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »FIXMODEM.M200«
@ 2052e
<LVAR 0x008 @ 4(r)>
<POP 2052e-20584 Body>
<POP 2052e-20544 Prologue> Σ0 ↓
<POP 20544-20548 RegCacheLoad> Σ0 ↓
<POP 20548-2057c Naked> Σ0 ↓
<MI 20548 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Const 0x2054a 0xa.2> Δ-2 {[4, '(A6+0x8)']|[#10]}
<Call 0x2054e 0x102c0> {[4, '(A6+0x8)']|[#10]}
AppendChar(MOD b : String; a : char)
<POP 20554-20556 StackAdj> Δ+2 {[4, '(A6+0x8)']}
<MI 20556 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x20558 0xd.2> Δ-2 {[4, '(A6+0x8)']|[#13]}
<Call 0x2055c 0x102c0> {[4, '(A6+0x8)']|[#13]}
AppendChar(MOD b : String; a : char)
<POP 20562-20564 StackAdj> Δ+4 {[-2-]}
<POP 20564-20565 StackAdj> Δ+2 {}
<Const 0x20565 0x1.2> Δ-2 {[#1]}
<MI 20568 MOVE.L (A6+0x8),-(A7)> Δ-4 {[#1]|[4, '(A6+0x8)']}
<Call 0x2056a 0x1020a> {[#1]|[4, '(A6+0x8)']}
KC05_PortWriteString(port : Word ; str : String)
<POP 20570-20572 StackAdj> Δ+6 {}
<Pointer.fp 0x20572 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x20574 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 2057a-2057c StackAdj> Δ+4 {}
<POP 2057c-20584 Epilogue> Σ0
@ 20584
Status2Text(a: Long) : String
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 20584-208e2 Body> Δ+72
<POP 20584-2059a Prologue> Σ0 ↓
<POP 2059a-205ae RegCacheLoad> Σ0 ↓
<POP 205ae-205bc Naked> Σ0 ↓ →0x208a2
<MI 205ae MOVE.L (A6+0x8),D0> {}
<MI 205b2 CMPI.L #0x000000ff,D0> {}
<MI 205b8 BHI 0x208a2> {}
<POP 205bc-205c6 Naked> Σ0 →0x207c6 →0x207e6 →0x2080e →0x20830 →0x20842 →0x20868 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x208a2 →0x2088e
<MI 205bc ADD.W D0,D0> {}
<MI 205be SWITCH D0.W> {}
<POP 207c6-207d6 Naked> Σ0 Δ-20 ↓ ←0x205bc
<Blob 0x207c6 [20] @> Δ-20 {[«20""»]}
<POP 207d6-207e2 Naked> Σ-20 Δ-12 →0x208d0 ←0x20830 ←0x2088e
<POP 207d6-207d8 StackAdj> Δ-4 {[-24-]}
<Lit 0x207d8> {[-20-]|[$$…]}
<Pointer.sp 0x207d8 4> Δ-4
<Const 0x207dc 0x1.2> Δ-2
<Const 0x207de 0x13.2> Δ-2
<Call 0x207e0 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<MI 207e2 BRA 0x208d0> {[-20-]|[$$…]}
<POP 207e0-207e2 StackAdj> Δ-8 {[-20-]|[$$…]|[-8-]}
<POP 207e6-2080e Naked> Σ0 →0x208d6 ←0x205bc
<Blob 0x207e6 [14] @> Δ-14 {[«14""»]}
<POP 207f6-207f8 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x207f8 13> {[«14""»]|[$$Phone is busy]}
<MI 20806 MOVEA.L (A7)+,A4> Δ+4 {[«14""»]}
<POP 20808-2080a StackAdj> Δ+14 {}
<MI 2080a BRA 0x208d6> {}
<POP 2080e-20830 Naked> Σ0 →0x208d6 ←0x205bc
<Blob 0x2080e [4] @> Δ-4 {[«4""»]}
<Blob 0x20812 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20816 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2081a-2081c StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2081c 12> {[«4""»]|[«4""»]|[«4""»]|[$$No dial tone]}
<MI 20828 MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2082a-2082c StackAdj> Δ+12 {}
<MI 2082c BRA 0x208d6> {}
<POP 20830-20842 Naked> Σ0 Δ-20 →0x207d6 ←0x205bc
<Blob 0x20830 [20] @> Δ-20 {[«20""»]}
<MI 20840 BRA 0x207d6> {[«20""»]}
<POP 20842-20868 Naked> Σ0 →0x208d6 ←0x205bc
<Blob 0x20842 [18] @> Δ-18 {[«18""»]}
<POP 20852-20854 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20854 17> {[«18""»]|[$$Already connected]}
<MI 20862 MOVEA.L (A7)+,A4> Δ+4 {[«18""»]}
<POP 20864-20866 StackAdj> Δ+18 {}
<MI 20866 BRA 0x208d6> {}
<POP 20868-2088e Naked> Σ0 →0x208d6 ←0x205bc
<Blob 0x20868 [30] @> Δ-30 {[«30""»]}
<POP 20878-2087a StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x2087a 29> {[«30""»]|[$$No modem or dial-out disabled]}
<MI 20888 MOVEA.L (A7)+,A4> Δ+4 {[«30""»]}
<POP 2088a-2088c StackAdj> Δ+30 {}
<MI 2088c BRA 0x208d6> {}
<POP 2088e-208a2 Naked> Σ0 Δ-20 →0x207d6 ←0x205bc
<Blob 0x2088e [20] @> Δ-20 {[«20""»]}
<MI 2089e BRA 0x207d6> {[«20""»]}
<POP 208a2-208d0 Naked> Σ0 Δ-32 ↓ ←0x205ae ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc ←0x205bc
<Blob 0x208a2 [20] @> Δ-20 {[«20""»]}
<POP 208b2-208b4 StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x208b4 19> {[«20""»]|[-4-]|[$$Unknown encoding =>]}
<MI 208be MOVE.L (A6+0x8),(A7)> {[«20""»]|[-4-]|[4, '(A6+0x8)']}
<POP 208bc-208be StackAdj> Δ-8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Call 0x208c2 0x102e4> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
Long2String(a : Long) : String
<POP 208c8-208ca StackAdj> Δ+4 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x208ca 0x102d0> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 208d0-208d6 Naked> Σ-32 Δ+32 ↓ ←0x207d6
<POP 208d0-208d2 StackAdj> Δ+8 {[-24-]}
<MI 208d2 MOVEA.L (A7)+,A4> Δ+4 {[-20-]}
<POP 208d4-208d6 StackAdj> Δ+20 {}
<POP 208d6-208da Naked> Σ0 ↓ ←0x207e6 ←0x2080e ←0x20842 ←0x20868
<MI 208d6 MOVE.L A4,(A6+0xc)> {}
<POP 208da-208e2 Epilogue> Σ0
@ 208e2
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 208e2-20a6c Body> Δ+16
<POP 208e2-208f8 Prologue> Σ0 ↓
<POP 208f8-2090c RegCacheLoad> Σ0 ↓
<POP 2090c-2091a Naked> Σ0 ↓ →0x20a26
<MI 2090c MOVE.L (A6+0x8),D0> {}
<MI 20910 CMPI.L #0x00000006,D0> {}
<MI 20916 BHI 0x20a26> {}
<POP 2091a-20924 Naked> Σ0 →0x20932 →0x2095a →0x20982 →0x209a4 →0x209cc →0x209e0 →0x20a06
<MI 2091a ADD.W D0,D0> {}
<MI 2091c SWITCH D0.W> {}
<POP 20932-20942 Naked> Σ0 Δ-16 ↓ ←0x2091a
<Blob 0x20932 [16] @> Δ-16 {[«16""»]}
<POP 20942-2095a Naked> Σ-16 Δ+16 →0x20a60 ←0x209cc
<POP 20942-20944 StackAdj> Δ-4 {[-20-]}
<Lit 0x20944> {[-16-]|[$$…]}
<Pointer.sp 0x20944 4> Δ-4
<Const 0x20948 0x1.2> Δ-2
<Const 0x2094a 0xf.2> Δ-2
<Call 0x2094e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20950-20952 StackAdj> Δ+8
<MI 20952 MOVEA.L (A7)+,A4> Δ+4 {[-16-]}
<POP 20954-20956 StackAdj> Δ+16 {}
<MI 20956 BRA 0x20a60> {}
<POP 2095a-20982 Naked> Σ0 →0x20a60 ←0x2091a
<Blob 0x2095a [18] @> Δ-18 {[«18""»]}
<POP 2096a-2096c StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x2096c 17> {[«18""»]|[$$Data byte present]}
<MI 2097a MOVEA.L (A7)+,A4> Δ+4 {[«18""»]}
<POP 2097c-2097e StackAdj> Δ+18 {}
<MI 2097e BRA 0x20a60> {}
<POP 20982-209a4 Naked> Σ0 →0x20a60 ←0x2091a
<Blob 0x20982 [4] @> Δ-4 {[«4""»]}
<Blob 0x20986 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2098a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2098e-20990 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x20990 12> {[«4""»]|[«4""»]|[«4""»]|[$$Disconnected]}
<MI 2099c MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2099e-209a0 StackAdj> Δ+12 {}
<MI 209a0 BRA 0x20a60> {}
<POP 209a4-209cc Naked> Σ0 →0x20a60 ←0x2091a
<Blob 0x209a4 [10] @> Δ-10 {[«10""»]}
<POP 209b4-209b6 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x209b6 9> {[«10""»]|[$$Connected]}
<MI 209c4 MOVEA.L (A7)+,A4> Δ+4 {[«10""»]}
<POP 209c6-209c8 StackAdj> Δ+10 {}
<MI 209c8 BRA 0x20a60> {}
<POP 209cc-209e0 Naked> Σ0 Δ-16 →0x20942 ←0x2091a
<Blob 0x209cc [16] @> Δ-16 {[«16""»]}
<MI 209dc BRA 0x20942> {[«16""»]}
<POP 209e0-20a06 Naked> Σ0 →0x20a60 ←0x2091a
<Blob 0x209e0 [26] @> Δ-26 {[«26""»]}
<POP 209f0-209f2 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x209f2 25> {[«26""»]|[$$Disconnect packet arrival]}
<MI 20a00 MOVEA.L (A7)+,A4> Δ+4 {[«26""»]}
<POP 20a02-20a04 StackAdj> Δ+26 {}
<MI 20a04 BRA 0x20a60> {}
<POP 20a06-20a26 Naked> Σ0 →0x20a60 ←0x2091a
<Blob 0x20a06 [22] @> Δ-22 {[«22""»]}
<POP 20a12-20a14 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x20a14 22> {[«22""»]|[$$Connect packet arrival]}
<MI 20a20 MOVEA.L (A7)+,A4> Δ+4 {[«22""»]}
<POP 20a22-20a24 StackAdj> Δ+22 {}
<MI 20a24 BRA 0x20a60> {}
<POP 20a26-20a60 Naked> Σ0 ↓ ←0x2090c
<Blob 0x20a26 [20] @> Δ-20 {[«20""»]}
<POP 20a38-20a3a StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x20a3a 19> {[«20""»]|[-4-]|[$$Unknown encoding =>]}
<MI 20a46 MOVE.L (A6+0x8),(A7)> {[«20""»]|[-4-]|[4, '(A6+0x8)']}
<POP 20a44-20a46 StackAdj> Δ-8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Call 0x20a4a 0x102e4> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
Long2String(a : Long) : String
<POP 20a50-20a52 StackAdj> Δ+4 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x20a52 0x102d0> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 20a58-20a5a StackAdj> Δ+8 {[«20""»]|[-4-]}
<MI 20a5a MOVEA.L (A7)+,A4> Δ+4 {[«20""»]}
<POP 20a5c-20a60 StackAdj> Δ+20 {}
<POP 20a60-20a64 Naked> Σ0 ↓ ←0x20942 ←0x2095a ←0x20982 ←0x209a4 ←0x209e0 ←0x20a06
<MI 20a60 MOVE.L A4,(A6+0xc)> {}
<POP 20a64-20a6c Epilogue> Σ0
@ 20a6c
<LVAR 0x008 1(w)>
<LVAR -0x004 @ 1(r)>
<POP 20a6c-20aac Body>
<POP 20a6c-20a82 Prologue> Σ0 ↓
<POP 20a82-20a86 RegCacheLoad> Σ0 ↓
<POP 20a86-20a98 Naked> Σ0 ↓ →0x20a86 ←0x20a86
<Const 0x20a86 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20a8a <LVAR -0x004 @ 1(r)>> Δ-4 {[#3]|[@@-4]}
<Call 0x20a8c 0x10212> {[#3]|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 20a92-20a94 StackAdj> Δ+6 {}
<MI 20a94 TST.B (A6-0x4)> {}
<MI 20a96 BEQ 0x20a86> {}
<POP 20a98-20aa4 Naked> Σ0 ↓
<MI 20a98 MOVE.B (A6-0x4),D0> {}
<MI 20a9a EXTB.W D0> {}
<POP 0x20a9c LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 20aa0 MOVE.B D0,(A6+0x8)> {}
<POP 20aa4-20aac Epilogue> Σ0
@ 20aac
ReadConfig(adr: Long) : Byte
<LVAR 0x00c 2(w)>
<LVAR 0x008 4(r)>
<POP 20aac-20ae2 Body>
<POP 20aac-20ac2 Prologue> Σ0 ↓
<POP 20ac2-20ada Naked> Σ0 ↓
<POP 20ac2-20ac4 StackAdj> Δ-2 {[-2-]}
<MI 20ac4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x8)']}
<Call 0x20ac8 0x10592> {[-2-]|[4, '(A6+0x8)']}
ReadConfig(where : Long) : Word
<POP 20ace-20ad0 StackAdj> Δ+4 {[-2-]}
<MI 20ad0 MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x20ad2 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20ad6 MOVE.W D0,(A6+0xc)> {}
<POP 20ada-20ae2 Epilogue> Σ0
@ 20ae2
<LVAR 0x008 4(r)>
<POP 20ae2-20b54 Body>
<POP 20ae2-20af8 Prologue> Σ0 ↓
<POP 20af8-20b4c Naked> Σ0 ↓
<Const 0x20af8 0x1.4> Δ-4 {[##1]}
<Call 0x20afc 0x103f4> {[##1]}
SetConsoleConfig(a : Long)
<MI 20b02 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Call 0x20b06 0x103e0> {[4, '(A6+0x8)']}
WriteConsoleStringCrLf(str : String)
<POP 20b0c-20b0d StackAdj> Δ+4 ↓ {}
<Blob 0x20b0d [30] @> Δ-30 {[«30""»]}
<POP 20b1e-20b20 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x20b20 29> {[«30""»]|[$$Abandoning remote connection.]}
<Call 0x20b34 0x103e0> {[«30""»]|[$$Abandoning remote connection.]}
WriteConsoleStringCrLf(str : String)
<POP 20b3a-20b3e StackAdj> Δ+32 {[-2-]}
<MI 20b3e CLR.B (A7)> {[-2-]}
<Const 0x20b40 0x1.4> Δ-4 {[-2-]|[##1]}
<Call 0x20b44 0x103b8> {[-2-]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20b4a-20b4c StackAdj> Δ+6 {}
<POP 20b4c-20b54 Epilogue> Σ0
@ 20b54
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 2(r)>
<LVAR -0x004 @ 1(r)>
<POP 20b54-20bd2 Body> Δ-4
<POP 20b54-20b6a Prologue> Σ0 ↓
<POP 20b6a-20b6c RegCacheLoad> Σ0 ↓
<POP 20b6c-20b78 Naked> Σ0 Δ-4 ↓
<MI 20b6c MOVEA.L (A6+0x8),A0> {}
<MI 20b70 CLR.B (A0)> {}
<MI 20b72 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 20b76 MOVEQ.L #0x01,D6> {[4, '(A6+0xc)']}
<POP 20b78-20b7c Naked> Σ-4 ↓ →0x20bc8 ←0x20bc4
<MI 20b78 CMP.L (A7),D6> {[-4-]}
<MI 20b7a BGT 0x20bc8> {[-4-]}
<POP 20b7c-20b7e Naked> Σ-4 ↓
<MI 20b7c MOVEQ.L #0x01,D7> {[-4-]}
<POP 20b7e-20b94 Naked> Σ-4 ↓ →0x20bba ←0x20bba
<Const 0x20b7e 0x1.2> Δ-2 {[-4-]|[#1]}
<Pointer.fp 0x20b80 <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[#1]|[@@-4]}
<Call 0x20b84 0x10212> {[-4-]|[#1]|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 20b8a-20b8c StackAdj> Δ+6 {[-4-]}
<MI 20b8c MOVE.B (A6-0x4),D0> {[-4-]}
<MI 20b90 CMP.B #0x01,D0> {[-4-]}
<MI 20b92 BNE 0x20bba> {[-4-]}
<POP 20b94-20bb0 Naked> Σ-4 ↓ →0x20bba
<Const 0x20b94 0x1.2> Δ-2 {[-4-]|[#1]}
<Pointer.fp 0x20b96 <LVAR -0x002 @ 2(r)>> Δ-4 {[-4-]|[#1]|[@@-2]}
<Call 0x20b9a 0x1020e> {[-4-]|[#1]|[@@-2]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20ba0-20ba2 StackAdj> Δ+6 {[-4-]}
<MI 20ba2 MOVE.W (A6-0x2),D0> {[-4-]}
<MI 20ba6 ANDI.W #0x00ff,D0> {[-4-]}
<MI 20baa CMPI.W #0x0003,D0> {[-4-]}
<MI 20bae BNE 0x20bba> {[-4-]}
<POP 20bb0-20bba Naked> Σ-4 Δ+4 →0x20bca
<MI 20bb0 MOVEA.L (A6+0x8),A0> {[-4-]}
<MI 20bb4 MOVE.B #0x01,(A0)> {[-4-]}
<POP 20bb6-20bb8 StackAdj> Δ+4 {}
<MI 20bb8 BRA 0x20bca> {}
<POP 20bba-20bc4 Naked> Σ-4 ↓ →0x20b7e ←0x20b7e ←0x20b94
<MI 20bba ADDQ.L #0x1,D7> {[-4-]}
<MI 20bbc CMPI.L #0x000003e8,D7> {[-4-]}
<MI 20bc2 BLE 0x20b7e> {[-4-]}
<POP 20bc4-20bc8 Naked> Σ-4 ↓ →0x20b78
<MI 20bc4 ADDQ.L #0x1,D6> {[-4-]}
<MI 20bc6 BVC 0x20b78> {[-4-]}
<POP 20bc8-20bca Naked> Σ-4 Δ+4 ↓ ←0x20b78
<POP 20bc8-20bca StackAdj> Δ+4 {}
<POP 20bca-20bd2 Epilogue> Σ0 ←0x20bb0
@ 20bd2
<LVAR 0x00c 4(rw)>
<LVAR 0x008 4(r)>
<POP 20bd2-20c0e Body>
<POP 20bd2-20be8 Prologue> Σ0 ↓
<POP 20be8-20c00 Naked> Σ0 ↓ →0x20c06 ←0x20c00
<MI 20be8 MOVEA.L (A6+0x8),A0> {}
<Const 0x20bec 0x3c.4> Δ-4 {[##60]}
<MI 20bf0 PEA.L (A0)> Δ-4 {[##60]|[4, '^(A0)']}
<Call 0x20bf2 0x20b54> {[##60]|[4, '^(A0)']}
<POP 20bf6-20bf8 StackAdj> Δ+8 {}
<MI 20bf8 SUBQ.L #0x1,(A6+0xc)> {}
<MI 20bfc TST.B (A0)> {}
<MI 20bfe BNE 0x20c06> {}
<POP 20c00-20c06 Naked> Σ0 ↓ →0x20be8
<MI 20c00 TST.L (A6+0xc)> {}
<MI 20c04 BNE 0x20be8> {}
<POP 20c06-20c0e Epilogue> Σ0 ←0x20be8
@ 20c0e
<LVAR -0x004 @>
<LVAR -0x006 @>
<LVAR -0x008 @ 1(r)>
<POP 20c0e-20c6c Body>
<POP 20c0e-20c24 Prologue> Σ0 ↓
<POP 20c24-20c2a RegCacheLoad> Σ0 ↓
<POP 20c2a-20c3e Naked> Σ0 ↓
<Call 0x20c2a 0x10216> {}
KC0b
<Const 0x20c30 0x5.4> Δ-4 {[##5]}
<Pointer.fp 0x20c34 <LVAR -0x004 @>> Δ-4 {[##5]|[@@-4]}
<Call 0x20c38 0x20b54> {[##5]|[@@-4]}
<POP 20c3c-20c3e StackAdj> Δ+8 {}
<POP 20c3e-20c4e Naked> Σ0 ↓ →0x20c5c ←0x20c5c
<Const 0x20c3e 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20c40 <LVAR -0x008 @ 1(r)>> Δ-4 {[#3]|[@@-8]}
<Call 0x20c42 0x10212> {[#3]|[@@-8]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 20c48-20c4a StackAdj> Δ+6 {}
<MI 20c4a TST.B (A6-0x8)> {}
<MI 20c4c BEQ 0x20c5c> {}
<POP 20c4e-20c5c Naked> Σ0 ↓
<Const 0x20c4e 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20c50 <LVAR -0x006 @>> Δ-4 {[#3]|[@@-6]}
<Call 0x20c54 0x1020e> {[#3]|[@@-6]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20c5a-20c5c StackAdj> Δ+6 {}
<POP 20c5c-20c64 Naked> Σ0 ↓ →0x20c3e ←0x20c3e
<MI 20c5c MOVE.B (A6-0x8),D0> {}
<MI 20c5e CMPI.B #0x02,D0> {}
<MI 20c62 BNE 0x20c3e> {}
<POP 20c64-20c6c Epilogue> Σ0
@ 20c6c
<LVAR -0x002 @ 1(r)>
<LVAR -0x006 @ 4(r)>
<LVAR -0x008 @ 2(rw)>
<LVAR -0x00a @ 1(rw)>
<LVAR -0x00c @ 2(rw)>
<POP 20c6c-210a4 Body>
<POP 20c6c-20c82 Prologue> Σ0 ↓
<POP 20c82-20c9c RegCacheLoad> Σ0 ↓
<POP 20c9c-20caa Naked> Σ0 ↓
<Const 0x20c9c 0x1.4> Δ-4 {[##1]}
<Pointer.fp 0x20ca0 <LVAR -0x002 @ 1(r)>> Δ-4 {[##1]|[@@-2]}
<Call 0x20ca4 0x20b54> {[##1]|[@@-2]}
<POP 20ca8-20caa StackAdj> Δ+8 {}
<POP 20caa-20cba Naked> Σ0 ↓ →0x20cc6 ←0x20cc6
<Const 0x20caa 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20cac <LVAR -0x00a @ 1(rw)>> Δ-4 {[#3]|[@@-10]}
<Call 0x20cae 0x10212> {[#3]|[@@-10]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 20cb4-20cb6 StackAdj> Δ+6 {}
<MI 20cb6 TST.B (A6-0xa)> {}
<MI 20cb8 BEQ 0x20cc6> {}
<POP 20cba-20cc6 Naked> Σ0 ↓
<Const 0x20cba 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20cbc <LVAR -0x00c @ 2(rw)>> Δ-4 {[#3]|[@@-12]}
<Call 0x20cbe 0x1020e> {[#3]|[@@-12]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20cc4-20cc6 StackAdj> Δ+6 {}
<POP 20cc6-20cca Naked> Σ0 ↓ →0x20caa ←0x20caa
<MI 20cc6 TST.B (A6-0xa)> {}
<MI 20cc8 BNE 0x20caa> {}
<POP 20cca-20d6a Naked> Σ0 ↓ →0x20da4
<Pointer.fp 0x20cca <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x20cce 0x102b8> {[@@-6]}
NewString(VAR a : String)
<POP 20cd4-20cd6 StackAdj> Δ+4 {}
<MI 20cd6 MOVEA.L (A6-0x6),A0> {}
<MI 20cda MOVE.W #0x5,(A0)> {}
<POP 20cde-20ce0 StackAdj> Δ-2 {[-2-]}
<Const 0x20ce0 0x84.4> Δ-4 {[-2-]|[##132]}
<Call 0x20ce4 0x20aac> {[-2-]|[##132]}
ReadConfig(adr: Long) : Byte
<POP 20ce8-20cea StackAdj> Δ+4 {[-2-]}
<MI 20cea MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x20cec LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20cee MOVE.B D0,(A0+0x2)> {}
<POP 20cf2-20cf4 StackAdj> Δ-2 {[-2-]}
<Const 0x20cf4 0x85.4> Δ-4 {[-2-]|[##133]}
<Call 0x20cf8 0x20aac> {[-2-]|[##133]}
ReadConfig(adr: Long) : Byte
<POP 20cfc-20cfe StackAdj> Δ+4 {[-2-]}
<MI 20cfe MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x20d00 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20d02 MOVE.B D0,(A0+0x3)> {}
<POP 20d06-20d08 StackAdj> Δ-2 {[-2-]}
<Const 0x20d08 0x86.4> Δ-4 {[-2-]|[##134]}
<Call 0x20d0c 0x20aac> {[-2-]|[##134]}
ReadConfig(adr: Long) : Byte
<POP 20d10-20d12 StackAdj> Δ+4 {[-2-]}
<MI 20d12 MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x20d14 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20d16 MOVE.B D0,(A0+0x4)> {}
<POP 20d1a-20d1c StackAdj> Δ-2 {[-2-]}
<Const 0x20d1c 0x87.4> Δ-4 {[-2-]|[##135]}
<Call 0x20d20 0x20aac> {[-2-]|[##135]}
ReadConfig(adr: Long) : Byte
<POP 20d24-20d26 StackAdj> Δ+4 {[-2-]}
<MI 20d26 MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x20d28 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20d2a MOVE.B D0,(A0+0x5)> {}
<MI 20d2e CLR.B (A0+0x6)> {}
<Const 0x20d32 0x3.2> Δ-2 {[#3]}
<MI 20d34 MOVE.L (A6-0x6),-(A7)> Δ-4 {[#3]|[4, '(A6-0x6)']}
<Call 0x20d38 0x10214> {[#3]|[4, '(A6-0x6)']}
KC0a(a: Word; b: String)
<POP 20d3e-20d40 StackAdj> Δ+6 {}
<Pointer.fp 0x20d40 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x20d44 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 20d4a-20d4c StackAdj> Δ+2 {[-2-]}
<Call 0x20d4c 0x20a6c> {[-2-]}
<MI 20d50 MOVE.B (A7)+,D0> Δ+2 {}
<MI 20d52 EXTB.W D0> {}
<POP 0x20d54 LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 20d56 MOVE.B D0,(A6-0xa)> {}
<Const 0x20d58 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20d5a <LVAR -0x00c @ 2(rw)>> Δ-4 {[#3]|[@@-12]}
<Call 0x20d5c 0x1020e> {[#3]|[@@-12]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20d62-20d64 StackAdj> Δ+6 {}
<MI 20d64 AND.W #0xff,(A6-0xc)> {}
<MI 20d66 CMP.B #0x03,D0> {}
<MI 20d68 BNE 0x20da4> {}
<POP 20d6a-20da4 Naked> Σ0 →0x2109c
<Blob 0x20d6a [32] @> Δ-32 {[«32""»]}
<POP 20d76-20d78 StackAdj> Δ-8 {[«32""»]|[-8-]}
<Lit 0x20d78 32> {[«32""»]|[-4-]|[$$Cannot connect modem, Status =>_]}
<POP 20d84-20d86 StackAdj> Δ-4 {[«32""»]|[-4-]|[$$Cannot connect modem, Status =>_]|[-4-]}
<MI 20d86 CLR.L D0> {[«32""»]|[-4-]|[$$Cannot connect modem, Status =>_]|[-4-]}
<MI 20d88 MOVE.W (A6-0xc),D0> {[«32""»]|[-4-]|[$$Cannot connect modem, Status =>_]|[-4-]}
<MI 20d8a MOVE.L D0,-(A7)> Δ-4 {[«32""»]|[-4-]|[$$Cannot connect modem, Status =>_]|[-4-]|[4, 'D0']}
<Call 0x20d8c 0x20584> {[«32""»]|[-4-]|[$$Cannot connect modem, Status =>_]|[-4-]|[4, 'D0']}
Status2Text(a: Long) : String
<POP 20d90-20d92 StackAdj> Δ+4 {[«32""»]|[-4-]|[$$Cannot connect modem, Status =>_]|[-4-]}
<Call 0x20d92 0x102d0> {[«32""»]|[-4-]|[$$Cannot connect modem, Status =>_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20d98-20d9a StackAdj> Δ+8 {[«32""»]|[-4-]}
<Call 0x20d9a 0x20ae2> {[«32""»]|[-4-]}
<POP 20d9e-20da0 StackAdj> Δ+36 {}
<MI 20da0 BRA 0x2109c> {}
<POP 20da4-20da8 Naked> Σ0 ↓ →0x20dea ←0x20cca
<MI 20da4 CMP.B #0x06,D0> {}
<MI 20da6 BEQ 0x20dea> {}
<POP 20da8-20dea Naked> Σ0 →0x2109c
<Blob 0x20da8 [44] @> Δ-44 {[«44""»]}
<POP 20dba-20dbc StackAdj> Δ-8 {[«44""»]|[-8-]}
<Lit 0x20dbc 43> {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]}
<POP 20dc8-20dca StackAdj> Δ-4 {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]}
<MI 20dca EXTB.W D0> {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]}
<MI 20dcc EXTW.L D0> {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]}
<MI 20dce MOVE.L D0,-(A7)> Δ-4 {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]|[4, 'D0']}
<Call 0x20dd0 0x208e2> {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]|[4, 'D0']}
<POP 20dd4-20dd6 StackAdj> Δ+4 {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]}
<Call 0x20dd6 0x102d0> {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20ddc-20dde StackAdj> Δ+8 {[«44""»]|[-4-]}
<Call 0x20dde 0x20ae2> {[«44""»]|[-4-]}
<POP 20de2-20de6 StackAdj> Δ+48 {}
<MI 20de6 BRA 0x2109c> {}
<POP 20dea-20df2 Naked> Σ0 ↓ →0x21064 ←0x20da4
<MI 20dea MOVE.W (A6-0xc),D0> {}
<MI 20dec CMP.W #0x03,D0> {}
<MI 20dee BHI 0x21064> {}
<POP 20df2-20dfc Naked> Σ0 →0x20e04 →0x20e16 →0x20e3e →0x20f6c
<MI 20df2 ADD.W D0,D0> {}
<MI 20df4 SWITCH D0.W> {}
<POP 20e04-20e16 Naked> Σ0 →0x2109c ←0x20df2
<MI 20e04 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x20e06 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x20e0a 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20e10-20e12 StackAdj> Δ+6 {}
<MI 20e12 BRA 0x2109c> {}
<POP 20e16-20e3e Naked> Σ0 →0x2109c ←0x20df2
<Blob 0x20e16 [24] @> Δ-24 {[«24""»]}
<POP 20e22-20e24 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x20e24 24> {[«24""»]|[$$Connect attempt refused.]}
<Call 0x20e32 0x20ae2> {[«24""»]|[$$Connect attempt refused.]}
<POP 20e36-20e3a StackAdj> Δ+28 {}
<MI 20e3a BRA 0x2109c> {}
<POP 20e3e-20f3e Naked> Σ0 ↓ →0x20f44 ←0x20df2
<Call 0x20e3e 0x20c0e> {}
<Const 0x20e42 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20e44 <LVAR -0x008 @ 2(rw)>> Δ-4 {[#3]|[@@-8]}
<Call 0x20e48 0x1020e> {[#3]|[@@-8]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20e4e-20e50 StackAdj> Δ+6 {}
<MI 20e50 AND.W #0xff,(A6-0x8)> {}
<MI 20e54 MOVE.W (A6-0x8),D0> {}
<MI 20e58 ASL.W #0x8,D0> {}
<MI 20e5a MOVE.W D0,(A6-0x8)> {}
<Const 0x20e5e 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20e60 <LVAR -0x00c @ 2(rw)>> Δ-4 {[#3]|[@@-12]}
<Call 0x20e62 0x1020e> {[#3]|[@@-12]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20e68-20e6a StackAdj> Δ+6 {}
<MI 20e6a MOVE.W (A6-0xc),D1> {}
<MI 20e6c AND.W #0xff,D1> {}
<MI 20e6e CLR.L D2> {}
<MI 20e70 MOVE.W D0,D2> {}
<MI 20e72 CLR.L D0> {}
<MI 20e74 MOVE.W D1,D0> {}
<MI 20e76 ADD.L D2,D0> {}
<POP 0x20e78 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 20e82 MOVE.W D0,(A6-0x8)> {}
<Blob 0x20e86 [56] @> Δ-56 {[«56""»]}
<POP 20e98-20e9a StackAdj> Δ-4 {[«56""»]|[-4-]}
<Lit 0x20e9a 55> {[«56""»]|[$$Rational Response Center is busy and has requested that]}
<Call 0x20ea8 0x2052e> {[«56""»]|[$$Rational Response Center is busy and has requested that]}
<POP 20eac-20ead StackAdj> Δ+60 ↓ {}
<Blob 0x20ead [24] @> Δ-24 {[«24""»]}
<Blob 0x20ebc [18] @> Δ-18 {[«24""»]|[«18""»]}
<POP 20ec8-20eca StackAdj> Δ-8 {[«24""»]|[«18""»]|[-8-]}
<Lit 0x20eca 23> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]}
<POP 20ed6-20ed8 StackAdj> Δ-4 {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]}
<MI 20ed8 CLR.L D1> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]}
<MI 20eda MOVE.W D0,D1> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]}
<MI 20edc MOVE.L D1,-(A7)> Δ-4 {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]|[4, 'D1']}
<Call 0x20ede 0x102e4> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]|[4, 'D1']}
Long2String(a : Long) : String
<Lit 0x20ee4 18> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]|[$$ minutes from now.]}
<Call 0x20ef2 0x102d4> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]|[$$ minutes from now.]}
StringCat3(a, b, c : String) : String
<POP 20ef8-20efc StackAdj> Δ+12 {[«24""»]|[«18""»]|[-4-]}
<Call 0x20efc 0x2052e> {[«24""»]|[«18""»]|[-4-]}
<POP 20f00-20f01 StackAdj> Δ+46 ↓ {}
<Blob 0x20f01 [32] @> Δ-32 {[«32""»]}
<POP 20f12-20f14 StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x20f14 31> {[«32""»]|[$$Type CNTL-C to abort this delay]}
<Call 0x20f22 0x2052e> {[«32""»]|[$$Type CNTL-C to abort this delay]}
<POP 20f26-20f28 StackAdj> Δ+36 {}
<MI 20f28 CLR.L D1> {}
<MI 20f2a MOVE.W D0,D1> {}
<MI 20f2c MOVE.L D1,-(A7)> Δ-4 {[4, 'D1']}
<Pointer.fp 0x20f2e <LVAR -0x002 @ 1(r)>> Δ-4 {[4, 'D1']|[@@-2]}
<Call 0x20f32 0x20bd2> {[4, 'D1']|[@@-2]}
<POP 20f36-20f38 StackAdj> Δ+8 {}
<MI 20f38 TST.B (A6-0x2)> {}
<MI 20f3c BNE 0x20f44> {}
<POP 20f3e-20f44 Naked> Σ0 →0x20f68
<Call 0x20f3e 0x20c6c> {}
<MI 20f42 BRA 0x20f68> {}
<POP 20f44-20f68 Naked> Σ0 ↓ ←0x20e3e
<Blob 0x20f44 [22] @> Δ-22 {[«22""»]}
<POP 20f50-20f52 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x20f52 22> {[«22""»]|[$$Terminated by operator]}
<Call 0x20f60 0x20ae2> {[«22""»]|[$$Terminated by operator]}
<POP 20f64-20f68 StackAdj> Δ+26 {}
<POP 20f68-20f6c Naked> Σ0 →0x2109c ←0x20f3e
<MI 20f68 BRA 0x2109c> {}
<POP 20f6c-20fb6 Naked> Σ0 ↓ ←0x20df2
<Call 0x20f6c 0x20c0e> {}
<Blob 0x20f70 [60] @> Δ-60 {[«60""»]}
<POP 20f7c-20f7e StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x20f7e 60> {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]}
<Call 0x20f8c 0x2052e> {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]}
<MI 20f90 MOVEA.L A7,A0> {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]}
<MI 20f92 LEA.L 0x20404,A1> {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]}
<BlockMove 63,A1,A0> {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]}
<POP 20f9e-20fa0 StackAdj> Δ-4 {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]|[-4-]}
<Lit 0x20fa0> {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]|[$$…]}
<Pointer.sp 0x20fa0 4> Δ-4
<Const 0x20fa4 0x1.2> Δ-2
<Const 0x20fa6 0x3f.2> Δ-2
<Call 0x20faa 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20fac-20fae StackAdj> Δ+8
<Call 0x20fae 0x2052e> {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]|[$$…]}
<POP 20fb2-20fb6 StackAdj> Δ+68 {}
<POP 20fb6-20fc6 Naked> Σ0 ↓ →0x20ffe ←0x2101a
<Const 0x20fb6 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x20fb8 <LVAR -0x00a @ 1(rw)>> Δ-4 {[#1]|[@@-10]}
<Call 0x20fba 0x10212> {[#1]|[@@-10]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 20fc0-20fc2 StackAdj> Δ+6 {}
<MI 20fc2 TST.B (A6-0xa)> {}
<MI 20fc4 BEQ 0x20ffe> {}
<POP 20fc6-20fdc Naked> Σ0 ↓ →0x20ffe
<Const 0x20fc6 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x20fc8 <LVAR -0x00c @ 2(rw)>> Δ-4 {[#1]|[@@-12]}
<Call 0x20fca 0x1020e> {[#1]|[@@-12]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20fd0-20fd2 StackAdj> Δ+6 {}
<MI 20fd2 MOVE.W (A6-0xc),D0> {}
<MI 20fd4 ANDI.W #0x007f,D0> {}
<MI 20fd8 CMP.W #0x03,D0> {}
<MI 20fda BNE 0x20ffe> {}
<POP 20fdc-20ffe Naked> Σ0 ↓
<Blob 0x20fdc [32] @> Δ-32 {[«32""»]}
<POP 20fe8-20fea StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x20fea 32> {[«32""»]|[$$user abort of wait for call back]}
<Call 0x20ff8 0x20ae2> {[«32""»]|[$$user abort of wait for call back]}
<POP 20ffc-20ffe StackAdj> Δ+36 {}
<POP 20ffe-2100e Naked> Σ0 ↓ →0x2101a ←0x20fb6 ←0x20fc6
<Const 0x20ffe 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x21000 <LVAR -0x00a @ 1(rw)>> Δ-4 {[#3]|[@@-10]}
<Call 0x21002 0x10212> {[#3]|[@@-10]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 21008-2100a StackAdj> Δ+6 {}
<MI 2100a TST.B (A6-0xa)> {}
<MI 2100c BEQ 0x2101a> {}
<POP 2100e-2101a Naked> Σ0 ↓
<Const 0x2100e 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x21010 <LVAR -0x00c @ 2(rw)>> Δ-4 {[#3]|[@@-12]}
<Call 0x21012 0x1020e> {[#3]|[@@-12]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 21018-2101a StackAdj> Δ+6 {}
<POP 2101a-21020 Naked> Σ0 ↓ →0x20fb6 ←0x20ffe
<MI 2101a MOVE.B (A6-0xa),D0> {}
<MI 2101c CMP.B #0x03,D0> {}
<MI 2101e BNE 0x20fb6> {}
<POP 21020-21024 Naked> Σ0 ↓ →0x2102a
<MI 21020 AND.W #0xff,(A6-0xc)> {}
<MI 21022 BNE 0x2102a> {}
<POP 21024-2102a Naked> Σ0 →0x21062
<Call 0x21024 0x20c6c> {}
<MI 21028 BRA 0x21062> {}
<POP 2102a-21062 Naked> Σ0 ↓ ←0x21020
<Blob 0x2102a [54] @> Δ-54 {[«54""»]}
<POP 21036-21038 StackAdj> Δ-8 {[«54""»]|[-8-]}
<Lit 0x21038 54> {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]}
<POP 21044-21046 StackAdj> Δ-4 {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]}
<MI 21046 CLR.L D0> {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]}
<MI 21048 MOVE.W (A6-0xc),D0> {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]}
<MI 2104a MOVE.L D0,-(A7)> Δ-4 {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]|[4, 'D0']}
<Call 0x2104c 0x20584> {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]|[4, 'D0']}
Status2Text(a: Long) : String
<POP 21050-21052 StackAdj> Δ+4 {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]}
<Call 0x21052 0x102d0> {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21058-2105a StackAdj> Δ+8 {[«54""»]|[-4-]}
<Call 0x2105a 0x20ae2> {[«54""»]|[-4-]}
<POP 2105e-21062 StackAdj> Δ+58 {}
<POP 21062-21064 Naked> Σ0 →0x2109c ←0x21024
<MI 21062 BRA 0x2109c> {}
<POP 21064-2109c Naked> Σ0 ↓ ←0x20dea
<Blob 0x21064 [36] @> Δ-36 {[«36""»]}
<POP 21070-21072 StackAdj> Δ-8 {[«36""»]|[-8-]}
<Lit 0x21072 36> {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]}
<POP 2107c-2107e StackAdj> Δ-4 {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]}
<MI 2107e CLR.L D0> {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]}
<MI 21080 MOVE.W (A6-0xc),D0> {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]}
<MI 21082 MOVE.L D0,-(A7)> Δ-4 {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]|[4, 'D0']}
<Call 0x21084 0x102e4> {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2108a-2108c StackAdj> Δ+4 {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]}
<Call 0x2108c 0x102d0> {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21092-21094 StackAdj> Δ+8 {[«36""»]|[-4-]}
<Call 0x21094 0x20ae2> {[«36""»]|[-4-]}
<POP 21098-2109c StackAdj> Δ+40 {}
<POP 2109c-210a4 Epilogue> Σ0 ←0x20d6a ←0x20da8 ←0x20e04 ←0x20e16 ←0x20f68 ←0x21062
@ 210a4
<LVAR -0x004 @>
<POP 210a4-21100 Body>
<POP 210a4-210ba Prologue> Σ0 ↓
<POP 210ba-210f8 Naked> Σ0 ↓
<Blob 0x210ba [50] @> Δ-50 {[«50""»]}
<POP 210c6-210c8 StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x210c8 50> {[«50""»]|[$$Modem connection broken, attempting to re-connect.]}
<Call 0x210dc 0x2052e> {[«50""»]|[$$Modem connection broken, attempting to re-connect.]}
<POP 210e0-210e4 StackAdj> Δ+52 {[-2-]}
<POP 210e4-210e5 StackAdj> Δ+2 {}
<Const 0x210e5 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x210e8 <LVAR -0x004 @>> Δ-4 {[#3]|[@@-4]}
<Call 0x210ec 0x1020e> {[#3]|[@@-4]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 210f2-210f4 StackAdj> Δ+6 {}
<Call 0x210f4 0x20c6c> {}
<POP 210f8-21100 Epilogue> Σ0
@ 21100
<LVAR -0x004 @ 2(rw)>
<POP 21100-2117a Body>
<POP 21100-21116 Prologue> Σ0 ↓
<POP 21116-2111a RegCacheLoad> Σ0 ↓
<POP 2111a-2112e Naked> Σ0 ↓ →0x21134
<Const 0x2111a 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x2111e <LVAR -0x004 @ 2(rw)>> Δ-4 {[#3]|[@@-4]}
<Call 0x21120 0x1020e> {[#3]|[@@-4]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 21126-21128 StackAdj> Δ+6 {}
<MI 21128 ANDI.W #0x00ff,(A6-0x4)> {}
<MI 2112c BNE 0x21134> {}
<POP 2112e-21134 Naked> Σ0 →0x21172
<Call 0x2112e 0x20c6c> {}
<MI 21132 BRA 0x21172> {}
<POP 21134-21172 Naked> Σ0 ↓ ←0x2111a
<Blob 0x21134 [38] @> Δ-38 {[«38""»]}
<POP 21140-21142 StackAdj> Δ-8 {[«38""»]|[-8-]}
<Lit 0x21142 38> {[«38""»]|[-4-]|[$$Unsolicited connect event, status =>_]}
<POP 21154-21156 StackAdj> Δ-4 {[«38""»]|[-4-]|[$$Unsolicited connect event, status =>_]|[-4-]}
<MI 21156 CLR.L D0> {[«38""»]|[-4-]|[$$Unsolicited connect event, status =>_]|[-4-]}
<MI 21158 MOVE.W (A6-0x4),D0> {[«38""»]|[-4-]|[$$Unsolicited connect event, status =>_]|[-4-]}
<MI 2115a MOVE.L D0,-(A7)> Δ-4 {[«38""»]|[-4-]|[$$Unsolicited connect event, status =>_]|[-4-]|[4, 'D0']}
<Call 0x2115c 0x20584> {[«38""»]|[-4-]|[$$Unsolicited connect event, status =>_]|[-4-]|[4, 'D0']}
Status2Text(a: Long) : String
<POP 21160-21162 StackAdj> Δ+4 {[«38""»]|[-4-]|[$$Unsolicited connect event, status =>_]|[-4-]}
<Call 0x21162 0x102d0> {[«38""»]|[-4-]|[$$Unsolicited connect event, status =>_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21168-2116a StackAdj> Δ+8 {[«38""»]|[-4-]}
<Call 0x2116a 0x20ae2> {[«38""»]|[-4-]}
<POP 2116e-21172 StackAdj> Δ+42 {}
<POP 21172-2117a Epilogue> Σ0 ←0x2112e
@ 2117a
ConnectingModem()
<POP 2117a-211ce Body>
<POP 2117a-2118c Prologue> Σ0 ↓
<POP 2118c-211ca Naked> Σ0 ↓
<Blob 0x2118c [4] @> Δ-4 {[«4""»]}
<Blob 0x21190 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21194 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21198 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 2119c-2119e StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x2119e 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Connecting modem]}
<Call 0x211b2 0x2052e> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Connecting modem]}
<POP 211b6-211ba StackAdj> Δ+20 {}
<Const 0x211ba 0x3.4> Δ-4 {[##3]}
<Call 0x211be 0x103f4> {[##3]}
SetConsoleConfig(a : Long)
<POP 211c4-211c6 StackAdj> Δ+4 {}
<Call 0x211c6 0x20c6c> {}
<POP 211ca-211ce Epilogue> Σ0
@ 211ce
<LVAR -0x004 @ 1(r)>
<POP 211ce-2129a Body> Δ+4
<POP 211ce-211e4 Prologue> Σ0 ↓
<POP 211e4-211e6 RegCacheLoad> Σ0 ↓
<POP 211e6-211f4 Naked> Σ0 ↓ →0x211fc
<POP 211e6-211e8 StackAdj> Δ-4 {[-4-]}
<Call 0x211e8 0x103f8> {[-4-]}
GetConsoleConfig() : Long
<MI 211ee MOVE.L (A7)+,D0> Δ+4 {}
<MI 211f0 CMP.L #0x03,D0> {}
<MI 211f2 BEQ 0x211fc> {}
<POP 211f4-211fc Naked> Σ0 →0x21292
<Call 0x211f4 0x2117a> {}
ConnectingModem()
<MI 211f8 BRA 0x21292> {}
<POP 211fc-21222 Naked> Σ0 →0x21230 →0x21240 →0x21242 →0x21248 →0x2124e →0x2125c →0x21268 ←0x211e6
<Const 0x211fc 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x211fe <LVAR -0x004 @ 1(r)>> Δ-4 {[#3]|[@@-4]}
<Call 0x21202 0x10212> {[#3]|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 21208-2120a StackAdj> Δ+6 {}
<MI 2120a MOVE.B (A6-0x4),D0> {}
<MI 2120e EXTB.W D0> {}
<POP 0x21210 LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 21218 ADD.W D0,D0> {}
<MI 2121a SWITCH D0.W> {}
<POP 21230-21240 Naked> Σ0 →0x21292 ←0x211fc ←0x21240
<MI 21230 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x21232 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x21236 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 2123c-2123e StackAdj> Δ+6 {}
<MI 2123e BRA 0x21292> {}
<POP 21240-21242 Naked> Σ0 →0x21230 ←0x211fc
<MI 21240 BRA 0x21230> {}
<POP 21242-21248 Naked> Σ0 →0x21292 ←0x211fc
<Call 0x21242 0x210a4> {}
<MI 21246 BRA 0x21292> {}
<POP 21248-2124e Naked> Σ0 →0x21292 ←0x211fc
<Call 0x21248 0x21100> {}
<MI 2124c BRA 0x21292> {}
<POP 2124e-21258 Naked> Σ0 Δ-4 ↓ ←0x211fc
<Const 0x2124e 0x1c.4> Δ-4 {[##28]}
<Call 0x21252 0x10220> {[##28]}
KC10_Panic(code : Long)
<POP 21258-2125c Naked> Σ-4 Δ+4 →0x21292 ←0x2125c
<POP 21258-2125a StackAdj> Δ+4 {}
<MI 2125a BRA 0x21292> {}
<POP 2125c-21268 Naked> Σ0 Δ-4 →0x21258 ←0x211fc
<Const 0x2125c 0x1.4> Δ-4 {[##1]}
<Call 0x21260 0x103f4> {[##1]}
SetConsoleConfig(a : Long)
<MI 21266 BRA 0x21258> {[##1]}
<POP 21268-21292 Naked> Σ0 ↓ ←0x211fc
<Blob 0x21268 [44] @> Δ-44 {[«44""»]}
<POP 21274-21276 StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x21276 44> {[«44""»]|[$$Modem got connect data with no connect event]}
<Call 0x2128a 0x20ae2> {[«44""»]|[$$Modem got connect data with no connect event]}
<POP 2128e-21292 StackAdj> Δ+48 {}
<POP 21292-2129a Epilogue> Σ0 ←0x211f4 ←0x21230 ←0x21242 ←0x21248 ←0x21258
@ 2129a
START
<POP 2129a--0001 Body>
<POP 2129a-212a4 Prologue> Σ0
<POP 212a4-212ae Naked> Σ0 ↓
<Call 0x212a4 0x10398> {}
FSCALL_10398
<Call 0x212aa 0x211ce> {}
<POP 212ae-212b4 Naked> Σ0
<Call 0x212ae 0x10284> {}
?exit
@ 212c2
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 212c2-2132a Body>
<POP 212c2-212d8 Prologue> Σ0 ↓
<POP 212d8-21322 Naked> Σ0 ↓
<Blob 0x212d8 [14] @> Δ-14 {[«14""»]}
<Const 0x212e4 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 212e8-212ea StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x212ea 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 212fc-212fe StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 212fe MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21302 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21304 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21306 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x21308 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2130e-21310 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x21310 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21316-21318 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x21318 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 2131e-21322 StackAdj> Δ+20 {}
<POP 21322-2132a Epilogue> Σ0
@ 2137e
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 2137e-214ba Body>
<POP 2137e-21394 Prologue> Σ0 ↓
<POP 21394-213aa RegCacheLoad> Σ0 ↓
<POP 213aa-2140a Naked> Σ0 ↓ →0x21452
<Call 0x213aa 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x213b0 [18] @> Δ-18 {[«18""»]}
<POP 213bc-213be StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x213be 18> {[«18""»]|[$$Experiment error :]}
<Call 0x213ca 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 213cc-213cd StackAdj> Δ+22 ↓ {}
<Blob 0x213cd [14] @> Δ-14 {[«14""»]}
<POP 213dc-213de StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x213de 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 213e8-213ea StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 213ea MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x213ee 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 213f4-213f6 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x213f6 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 213fc-213fe StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x213fe 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21400-21402 StackAdj> Δ+18 {}
<MI 21402 MOVEA.L (A6+0xa),A0> {}
<MI 21406 CMPA.W #0x01,A0> {}
<MI 21408 BEQ 0x21452> {}
<POP 2140a-21452 Naked> Σ0 ↓
<Blob 0x2140a [14] @> Δ-14 {[«14""»]}
<Blob 0x2141a [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 2142a-2142c StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x2142c 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 21436-21438 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x21438> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x21438 12> Δ-4
<Const 0x2143c 0x1.2> Δ-2
<Const 0x2143e 0x1e.2> Δ-2
<Call 0x21440 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21442-21444 StackAdj> Δ+8
<Call 0x21444 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 2144a-2144c StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x2144c 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2144e-21452 StackAdj> Δ+48 {}
<POP 21452-214b2 Naked> Σ0 ↓ ←0x213aa
<Blob 0x21452 [14] @> Δ-14 {[«14""»]}
<POP 21462-21464 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21464 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 2146e-21470 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 21470 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x21474 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 2147a-2147c StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x2147c 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21482-21484 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21484 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21486-21487 StackAdj> Δ+18 ↓ {}
<Blob 0x21487 [24] @> Δ-24 {[«24""»]}
<Const 0x21496 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 2149a-2149c StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x2149c 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x214aa 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 214b0-214b2 StackAdj> Δ+30 {}
<POP 214b2-214ba Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; import ident.4b33e791b23b11a9 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 12 9a | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 14 d2 | | .PTR 0x214d2 00020010 code.end: 00020010 00 02 14 ba | | .PTR 0x214ba 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 12 c2 | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 13 7e | ~ | .CODE EXP_FAIL 00020020 00 00 00 00 | | .CONST 0x00000000 00020024 exp_init_done: 00020024 00 | | .CONST 0x00 00020025 00 | | .CONST 0x00 00020026 00 00 | | .CONST 0x0000 00020028 00 00 | | .CONST 0x0000 0002002a 00 00 | | .XXX[0x2] 0002002c 00 00 | | .CONST 0x0000 0002002e 00 00 | | .CONST 0x0000 00020030 00 00 | | .CONST 0x0000 00020032 00 00 00 00 00 00 | | .XXX[0x6] 00020038 00 00 00 00 00 00 00 00 | | .BLANK 00[0xb0] 000200e8 00 00 00 00 | | .XXX[0x4] 000200ec 00 00 00 00 | | .PTR 0x0 000200f0 is_open_ERROR_LOG: 000200f0 00 | | .CONST 0x0 000200f1 write_error_ERROR_LOG: 000200f1 00 | | .CONST 0x0 000200f2 00 00 00 00 | | .CONST 0x00000000 000200f6 00 00 00 00 | | .CONST 0x00000000 000200fa 00 | | .CONST 0x00 000200fb 00 | | .CONST 0x00 000200fc file_ERROR_LOG: 000200fc 00 00 00 00 | | .CONST 0x00000000 00020100 00 00 00 00 | | .CONST 0x00000000 00020104 00 00 | | .CONST 0x0000 00020106 00 00 | | .CONST 0x0000 00020108 somekindoffsflag: 00020108 00 | | .CONST 0x00 00020109 00 | | .CONST 0x00 0002010a 40 28 23 29 46 49 |@(#)FI | .XXX[0x6] 00020110 58 4d 4f 44 45 4d 2c 31 |XMODEM,1| .XXX[0x18] 00020118 2e 32 2c 39 32 2f 31 30 |.2,92/10| 00020120 2f 32 36 2c 31 32 3a 30 |/26,12:0| 00020128 30 3a 30 30 5c 20 |0:00\ | .XXX[0x6] 0002012e 43 6f 6e 6e 65 63 74 69 |Connecti| .TXT 'Connection complete ' 00020142 50 68 6f 6e 65 20 69 73 |Phone is| .TXT 'Phone is busy ' 00020150 4e 6f 20 64 |No d | .TXT 'No d' 00020154 69 61 6c 20 |ial | .TXT 'ial ' 00020158 74 6f 6e 65 |tone | .TXT 'tone' 0002015c 4e 6f 20 61 6e 73 77 65 |No answe| .TXT 'No answer back tone ' 00020170 41 6c 72 65 61 64 79 20 |Already | .TXT 'Already connected ' 00020182 4e 6f 20 6d 6f 64 65 6d |No modem| .TXT 'No modem or dial-out disabled ' 000201a0 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown modem error ' 000201b4 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown encoding => ' 000201c8 4e 6f 20 64 61 74 61 20 |No data | .TXT 'No data present ' 000201d8 44 61 74 61 20 62 79 74 |Data byt| .TXT 'Data byte present ' 000201ea 44 69 73 63 |Disc | .TXT 'Disc' 000201ee 6f 6e 6e 65 |onne | .TXT 'onne' 000201f2 63 74 65 64 |cted | .TXT 'cted' 000201f6 43 6f 6e 6e 65 63 74 65 |Connecte| .TXT 'Connected ' 00020200 4f 75 74 70 75 74 20 63 |Output c| .TXT 'Output complete ' 00020210 44 69 73 63 6f 6e 6e 65 |Disconne| .TXT 'Disconnect packet arrival ' 0002022a 43 6f 6e 6e 65 63 74 20 |Connect | .TXT 'Connect packet arrival' 00020240 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown encoding => ' 00020254 41 62 61 6e 64 6f 6e 69 |Abandoni| .TXT 'Abandoning remote connection. ' 00020272 43 61 6e 6e 6f 74 20 63 |Cannot c| .TXT 'Cannot connect modem, Status =>_' 00020292 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal connect request response, Event =>_ ' 000202be 43 6f 6e 6e 65 63 74 20 |Connect | .TXT 'Connect attempt refused.' 000202d6 55 6e 65 78 70 65 63 74 |Unexpect| .TXT 'Unexpected status while awaiting call-back, Status =>_' 0002030c 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown connect acknowedge, Data =>_' 00020330 54 65 72 6d 69 6e 61 74 |Terminat| .TXT 'Terminated by operator' 00020346 52 61 74 69 6f 6e 61 6c |Rational| .TXT 'Rational Response Center is busy and has requested that ' 0002037e 74 68 69 73 20 63 6c 75 |this clu| .TXT 'this cluster call back_ ' 00020396 20 6d 69 6e 75 74 65 73 | minutes| .TXT ' minutes from now.' 000203a8 54 79 70 65 20 43 4e 54 |Type CNT| .TXT 'Type CNTL-C to abort this delay ' 000203c8 52 61 74 69 6f 6e 61 6c |Rational| .TXT 'Rational Response Center has instructed this cluster to wait' 00020404 66 6f 72 20 |for | .XXX[0x4] 00020408 63 61 6c 6c 20 62 61 63 |call bac| .XXX[0x38] 00020410 6b 2e 20 54 79 70 65 20 |k. Type | 00020418 43 4e 54 4c 2d 43 20 74 |CNTL-C t| 00020420 6f 20 73 74 6f 70 20 77 |o stop w| 00020428 61 69 74 69 6e 67 20 61 |aiting a| 00020430 6e 64 20 63 6f 6e 74 69 |nd conti| 00020438 6e 75 65 20 62 6f 6f 74 |nue boot| 00020440 69 6e 67 20 |ing | .XXX[0x4] 00020444 75 73 65 72 20 61 62 6f |user abo| .TXT 'user abort of wait for call back' 00020464 4d 6f 64 65 6d 20 63 6f |Modem co| .TXT 'Modem connection broken, attempting to re-connect.' 00020496 55 6e 73 6f 6c 69 63 69 |Unsolici| .TXT 'Unsolicited connect event, status =>_' 000204bc 43 6f 6e 6e |Conn | .TXT 'Conn' 000204c0 65 63 74 69 |ecti | .TXT 'ecti' 000204c4 6e 67 20 6d |ng m | .TXT 'ng m' 000204c8 6f 64 65 6d |odem | .TXT 'odem' 000204cc 41 74 74 65 |Atte | .XXX[0x4] 000204d0 6d 70 74 20 74 6f 20 72 |mpt to r| .XXX[0x30] 000204d8 65 73 6f 6c 76 65 20 6d |esolve m| 000204e0 6f 64 65 6d 20 73 74 61 |odem sta| 000204e8 74 75 73 20 77 69 74 68 |tus with| 000204f0 20 6e 6f 6e 2d 6d 6f 64 | non-mod| 000204f8 65 6d 20 64 65 76 69 63 |em devic| 00020500 65 2e |e. | .XXX[0x2] 00020502 4d 6f 64 65 6d 20 67 6f |Modem go| .TXT 'Modem got connect data with no connect event' 0002052e ; -------------------------------------------------------------------------------------- 0002052e ; OMSI PASCAL Function 0002052e ; <LVAR 0x008 @ 4(r)> 0002052e ; -------------------------------------------------------------------------------------- 0002052e 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 00020532 bf d5 | | CMPA.L (A5),A7 00020534 62 06 |b | BHI 0x2053c 00020536 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002053a 4e 76 |Nv | TRAPV 0002053c de fc 00 0e | | ADDA.W #0xe,A7 00020540 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00020544 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00020548 2f 10 |/ | MOVE.L (A0),-(A7) 0002054a 1f 3c 00 0a | < | MOVE.B #0x0a,-(A7) 0002054e 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020554 54 4f |TO | ADDQ.L #0x2,A7 00020556 2e 90 |. | MOVE.L (A0),(A7) 00020558 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 0002055c 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00020562 58 4f |XO | ADDQ.L #0x4,A7 00020564 3e bc 00 01 |> | MOVE.W #0x1,(A7) 00020568 2f 10 |/ | MOVE.L (A0),-(A7) 0002056a 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 00020570 5c 4f |\O | ADDQ.L #0x6,A7 00020572 48 50 |HP | PEA.L (A0) 00020574 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002057a 58 4f |XO | ADDQ.L #0x4,A7 0002057c 4c df 01 00 |L | MOVEM.L (A7)+,A0 00020580 4e 5e |N^ | UNLK A6 00020582 4e 75 |Nu | RTS 00020584 ; -------------------------------------------------------------------------------------- 00020584 ; OMSI PASCAL Function 00020584 ; <LVAR 0x00c 4(w)> 00020584 ; <LVAR 0x008 4(r)> 00020584 ; -------------------------------------------------------------------------------------- 00020584 Status2Text(a: Long) : String: 00020584 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 00020588 bf d5 | | CMPA.L (A5),A7 0002058a 62 06 |b | BHI 0x20592 0002058c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020590 4e 76 |Nv | TRAPV 00020592 de fc 00 5e | ^ | ADDA.W #0x5e,A7 00020596 48 e7 ff e8 |H | MOVEM.L A4+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002059a 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000205a0 72 01 |r | MOVEQ.L #0x01,D1 000205a2 74 14 |t | MOVEQ.L #0x14,D2 000205a4 76 13 |v | MOVEQ.L #0x13,D3 000205a6 78 0e |x | MOVEQ.L #0x0e,D4 000205a8 7a 0c |z | MOVEQ.L #0x0c,D5 000205aa 7c 12 || | MOVEQ.L #0x12,D6 000205ac 7e 1e |~ | MOVEQ.L #0x1e,D7 000205ae 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 000205b2 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 000205b8 62 00 02 e8 |b | BHI switch@0x205be[0x6] 000205bc d0 40 | @ | ADD.W D0,D0 000205be 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000205c6 02 00 | | .CONST 0x200 ; [0x0] -> 0x207c6 000205c8 02 20 | | .CONST 0x220 ; [0x1] -> 0x207e6 000205ca 02 48 | H | .CONST 0x248 ; [0x2] -> 0x2080e 000205cc 02 6a | j | .CONST 0x26a ; [0x3] -> 0x20830 000205ce 02 7c | | | .CONST 0x27c ; [0x4] -> 0x20842 000205d0 02 a2 | | .CONST 0x2a2 ; [0x5] -> 0x20868 000205d2 02 dc | | .CONST 0x2dc ; [0x6] -> 0x208a2 000205d4 02 dc | | .CONST 0x2dc ; [0x7] -> 0x208a2 000205d6 02 dc | | .CONST 0x2dc ; [0x8] -> 0x208a2 000205d8 02 dc | | .CONST 0x2dc ; [0x9] -> 0x208a2 000205da 02 dc | | .CONST 0x2dc ; [0xa] -> 0x208a2 000205dc 02 dc | | .CONST 0x2dc ; [0xb] -> 0x208a2 000205de 02 dc | | .CONST 0x2dc ; [0xc] -> 0x208a2 000205e0 02 dc | | .CONST 0x2dc ; [0xd] -> 0x208a2 000205e2 02 dc | | .CONST 0x2dc ; [0xe] -> 0x208a2 000205e4 02 dc | | .CONST 0x2dc ; [0xf] -> 0x208a2 000205e6 02 dc | | .CONST 0x2dc ; [0x10] -> 0x208a2 000205e8 02 dc | | .CONST 0x2dc ; [0x11] -> 0x208a2 000205ea 02 dc | | .CONST 0x2dc ; [0x12] -> 0x208a2 000205ec 02 dc | | .CONST 0x2dc ; [0x13] -> 0x208a2 000205ee 02 dc | | .CONST 0x2dc ; [0x14] -> 0x208a2 000205f0 02 dc | | .CONST 0x2dc ; [0x15] -> 0x208a2 000205f2 02 dc | | .CONST 0x2dc ; [0x16] -> 0x208a2 000205f4 02 dc | | .CONST 0x2dc ; [0x17] -> 0x208a2 000205f6 02 dc | | .CONST 0x2dc ; [0x18] -> 0x208a2 000205f8 02 dc | | .CONST 0x2dc ; [0x19] -> 0x208a2 000205fa 02 dc | | .CONST 0x2dc ; [0x1a] -> 0x208a2 000205fc 02 dc | | .CONST 0x2dc ; [0x1b] -> 0x208a2 000205fe 02 dc | | .CONST 0x2dc ; [0x1c] -> 0x208a2 00020600 02 dc | | .CONST 0x2dc ; [0x1d] -> 0x208a2 00020602 02 dc | | .CONST 0x2dc ; [0x1e] -> 0x208a2 00020604 02 dc | | .CONST 0x2dc ; [0x1f] -> 0x208a2 00020606 02 dc | | .CONST 0x2dc ; [0x20] -> 0x208a2 00020608 02 dc | | .CONST 0x2dc ; [0x21] -> 0x208a2 0002060a 02 dc | | .CONST 0x2dc ; [0x22] -> 0x208a2 0002060c 02 dc | | .CONST 0x2dc ; [0x23] -> 0x208a2 0002060e 02 dc | | .CONST 0x2dc ; [0x24] -> 0x208a2 00020610 02 dc | | .CONST 0x2dc ; [0x25] -> 0x208a2 00020612 02 dc | | .CONST 0x2dc ; [0x26] -> 0x208a2 00020614 02 dc | | .CONST 0x2dc ; [0x27] -> 0x208a2 00020616 02 dc | | .CONST 0x2dc ; [0x28] -> 0x208a2 00020618 02 dc | | .CONST 0x2dc ; [0x29] -> 0x208a2 0002061a 02 dc | | .CONST 0x2dc ; [0x2a] -> 0x208a2 0002061c 02 dc | | .CONST 0x2dc ; [0x2b] -> 0x208a2 0002061e 02 dc | | .CONST 0x2dc ; [0x2c] -> 0x208a2 00020620 02 dc | | .CONST 0x2dc ; [0x2d] -> 0x208a2 00020622 02 dc | | .CONST 0x2dc ; [0x2e] -> 0x208a2 00020624 02 dc | | .CONST 0x2dc ; [0x2f] -> 0x208a2 00020626 02 dc | | .CONST 0x2dc ; [0x30] -> 0x208a2 00020628 02 dc | | .CONST 0x2dc ; [0x31] -> 0x208a2 0002062a 02 dc | | .CONST 0x2dc ; [0x32] -> 0x208a2 0002062c 02 dc | | .CONST 0x2dc ; [0x33] -> 0x208a2 0002062e 02 dc | | .CONST 0x2dc ; [0x34] -> 0x208a2 00020630 02 dc | | .CONST 0x2dc ; [0x35] -> 0x208a2 00020632 02 dc | | .CONST 0x2dc ; [0x36] -> 0x208a2 00020634 02 dc | | .CONST 0x2dc ; [0x37] -> 0x208a2 00020636 02 dc | | .CONST 0x2dc ; [0x38] -> 0x208a2 00020638 02 dc | | .CONST 0x2dc ; [0x39] -> 0x208a2 0002063a 02 dc | | .CONST 0x2dc ; [0x3a] -> 0x208a2 0002063c 02 dc | | .CONST 0x2dc ; [0x3b] -> 0x208a2 0002063e 02 dc | | .CONST 0x2dc ; [0x3c] -> 0x208a2 00020640 02 dc | | .CONST 0x2dc ; [0x3d] -> 0x208a2 00020642 02 dc | | .CONST 0x2dc ; [0x3e] -> 0x208a2 00020644 02 dc | | .CONST 0x2dc ; [0x3f] -> 0x208a2 00020646 02 dc | | .CONST 0x2dc ; [0x40] -> 0x208a2 00020648 02 dc | | .CONST 0x2dc ; [0x41] -> 0x208a2 0002064a 02 dc | | .CONST 0x2dc ; [0x42] -> 0x208a2 0002064c 02 dc | | .CONST 0x2dc ; [0x43] -> 0x208a2 0002064e 02 dc | | .CONST 0x2dc ; [0x44] -> 0x208a2 00020650 02 dc | | .CONST 0x2dc ; [0x45] -> 0x208a2 00020652 02 dc | | .CONST 0x2dc ; [0x46] -> 0x208a2 00020654 02 dc | | .CONST 0x2dc ; [0x47] -> 0x208a2 00020656 02 dc | | .CONST 0x2dc ; [0x48] -> 0x208a2 00020658 02 dc | | .CONST 0x2dc ; [0x49] -> 0x208a2 0002065a 02 dc | | .CONST 0x2dc ; [0x4a] -> 0x208a2 0002065c 02 dc | | .CONST 0x2dc ; [0x4b] -> 0x208a2 0002065e 02 dc | | .CONST 0x2dc ; [0x4c] -> 0x208a2 00020660 02 dc | | .CONST 0x2dc ; [0x4d] -> 0x208a2 00020662 02 dc | | .CONST 0x2dc ; [0x4e] -> 0x208a2 00020664 02 dc | | .CONST 0x2dc ; [0x4f] -> 0x208a2 00020666 02 dc | | .CONST 0x2dc ; [0x50] -> 0x208a2 00020668 02 dc | | .CONST 0x2dc ; [0x51] -> 0x208a2 0002066a 02 dc | | .CONST 0x2dc ; [0x52] -> 0x208a2 0002066c 02 dc | | .CONST 0x2dc ; [0x53] -> 0x208a2 0002066e 02 dc | | .CONST 0x2dc ; [0x54] -> 0x208a2 00020670 02 dc | | .CONST 0x2dc ; [0x55] -> 0x208a2 00020672 02 dc | | .CONST 0x2dc ; [0x56] -> 0x208a2 00020674 02 dc | | .CONST 0x2dc ; [0x57] -> 0x208a2 00020676 02 dc | | .CONST 0x2dc ; [0x58] -> 0x208a2 00020678 02 dc | | .CONST 0x2dc ; [0x59] -> 0x208a2 0002067a 02 dc | | .CONST 0x2dc ; [0x5a] -> 0x208a2 0002067c 02 dc | | .CONST 0x2dc ; [0x5b] -> 0x208a2 0002067e 02 dc | | .CONST 0x2dc ; [0x5c] -> 0x208a2 00020680 02 dc | | .CONST 0x2dc ; [0x5d] -> 0x208a2 00020682 02 dc | | .CONST 0x2dc ; [0x5e] -> 0x208a2 00020684 02 dc | | .CONST 0x2dc ; [0x5f] -> 0x208a2 00020686 02 dc | | .CONST 0x2dc ; [0x60] -> 0x208a2 00020688 02 dc | | .CONST 0x2dc ; [0x61] -> 0x208a2 0002068a 02 dc | | .CONST 0x2dc ; [0x62] -> 0x208a2 0002068c 02 dc | | .CONST 0x2dc ; [0x63] -> 0x208a2 0002068e 02 dc | | .CONST 0x2dc ; [0x64] -> 0x208a2 00020690 02 dc | | .CONST 0x2dc ; [0x65] -> 0x208a2 00020692 02 dc | | .CONST 0x2dc ; [0x66] -> 0x208a2 00020694 02 dc | | .CONST 0x2dc ; [0x67] -> 0x208a2 00020696 02 dc | | .CONST 0x2dc ; [0x68] -> 0x208a2 00020698 02 dc | | .CONST 0x2dc ; [0x69] -> 0x208a2 0002069a 02 dc | | .CONST 0x2dc ; [0x6a] -> 0x208a2 0002069c 02 dc | | .CONST 0x2dc ; [0x6b] -> 0x208a2 0002069e 02 dc | | .CONST 0x2dc ; [0x6c] -> 0x208a2 000206a0 02 dc | | .CONST 0x2dc ; [0x6d] -> 0x208a2 000206a2 02 dc | | .CONST 0x2dc ; [0x6e] -> 0x208a2 000206a4 02 dc | | .CONST 0x2dc ; [0x6f] -> 0x208a2 000206a6 02 dc | | .CONST 0x2dc ; [0x70] -> 0x208a2 000206a8 02 dc | | .CONST 0x2dc ; [0x71] -> 0x208a2 000206aa 02 dc | | .CONST 0x2dc ; [0x72] -> 0x208a2 000206ac 02 dc | | .CONST 0x2dc ; [0x73] -> 0x208a2 000206ae 02 dc | | .CONST 0x2dc ; [0x74] -> 0x208a2 000206b0 02 dc | | .CONST 0x2dc ; [0x75] -> 0x208a2 000206b2 02 dc | | .CONST 0x2dc ; [0x76] -> 0x208a2 000206b4 02 dc | | .CONST 0x2dc ; [0x77] -> 0x208a2 000206b6 02 dc | | .CONST 0x2dc ; [0x78] -> 0x208a2 000206b8 02 dc | | .CONST 0x2dc ; [0x79] -> 0x208a2 000206ba 02 dc | | .CONST 0x2dc ; [0x7a] -> 0x208a2 000206bc 02 dc | | .CONST 0x2dc ; [0x7b] -> 0x208a2 000206be 02 dc | | .CONST 0x2dc ; [0x7c] -> 0x208a2 000206c0 02 dc | | .CONST 0x2dc ; [0x7d] -> 0x208a2 000206c2 02 dc | | .CONST 0x2dc ; [0x7e] -> 0x208a2 000206c4 02 dc | | .CONST 0x2dc ; [0x7f] -> 0x208a2 000206c6 02 dc | | .CONST 0x2dc ; [0x80] -> 0x208a2 000206c8 02 dc | | .CONST 0x2dc ; [0x81] -> 0x208a2 000206ca 02 dc | | .CONST 0x2dc ; [0x82] -> 0x208a2 000206cc 02 dc | | .CONST 0x2dc ; [0x83] -> 0x208a2 000206ce 02 dc | | .CONST 0x2dc ; [0x84] -> 0x208a2 000206d0 02 dc | | .CONST 0x2dc ; [0x85] -> 0x208a2 000206d2 02 dc | | .CONST 0x2dc ; [0x86] -> 0x208a2 000206d4 02 dc | | .CONST 0x2dc ; [0x87] -> 0x208a2 000206d6 02 dc | | .CONST 0x2dc ; [0x88] -> 0x208a2 000206d8 02 dc | | .CONST 0x2dc ; [0x89] -> 0x208a2 000206da 02 dc | | .CONST 0x2dc ; [0x8a] -> 0x208a2 000206dc 02 dc | | .CONST 0x2dc ; [0x8b] -> 0x208a2 000206de 02 dc | | .CONST 0x2dc ; [0x8c] -> 0x208a2 000206e0 02 dc | | .CONST 0x2dc ; [0x8d] -> 0x208a2 000206e2 02 dc | | .CONST 0x2dc ; [0x8e] -> 0x208a2 000206e4 02 dc | | .CONST 0x2dc ; [0x8f] -> 0x208a2 000206e6 02 dc | | .CONST 0x2dc ; [0x90] -> 0x208a2 000206e8 02 dc | | .CONST 0x2dc ; [0x91] -> 0x208a2 000206ea 02 dc | | .CONST 0x2dc ; [0x92] -> 0x208a2 000206ec 02 dc | | .CONST 0x2dc ; [0x93] -> 0x208a2 000206ee 02 dc | | .CONST 0x2dc ; [0x94] -> 0x208a2 000206f0 02 dc | | .CONST 0x2dc ; [0x95] -> 0x208a2 000206f2 02 dc | | .CONST 0x2dc ; [0x96] -> 0x208a2 000206f4 02 dc | | .CONST 0x2dc ; [0x97] -> 0x208a2 000206f6 02 dc | | .CONST 0x2dc ; [0x98] -> 0x208a2 000206f8 02 dc | | .CONST 0x2dc ; [0x99] -> 0x208a2 000206fa 02 dc | | .CONST 0x2dc ; [0x9a] -> 0x208a2 000206fc 02 dc | | .CONST 0x2dc ; [0x9b] -> 0x208a2 000206fe 02 dc | | .CONST 0x2dc ; [0x9c] -> 0x208a2 00020700 02 dc | | .CONST 0x2dc ; [0x9d] -> 0x208a2 00020702 02 dc | | .CONST 0x2dc ; [0x9e] -> 0x208a2 00020704 02 dc | | .CONST 0x2dc ; [0x9f] -> 0x208a2 00020706 02 dc | | .CONST 0x2dc ; [0xa0] -> 0x208a2 00020708 02 dc | | .CONST 0x2dc ; [0xa1] -> 0x208a2 0002070a 02 dc | | .CONST 0x2dc ; [0xa2] -> 0x208a2 0002070c 02 dc | | .CONST 0x2dc ; [0xa3] -> 0x208a2 0002070e 02 dc | | .CONST 0x2dc ; [0xa4] -> 0x208a2 00020710 02 dc | | .CONST 0x2dc ; [0xa5] -> 0x208a2 00020712 02 dc | | .CONST 0x2dc ; [0xa6] -> 0x208a2 00020714 02 dc | | .CONST 0x2dc ; [0xa7] -> 0x208a2 00020716 02 dc | | .CONST 0x2dc ; [0xa8] -> 0x208a2 00020718 02 dc | | .CONST 0x2dc ; [0xa9] -> 0x208a2 0002071a 02 dc | | .CONST 0x2dc ; [0xaa] -> 0x208a2 0002071c 02 dc | | .CONST 0x2dc ; [0xab] -> 0x208a2 0002071e 02 dc | | .CONST 0x2dc ; [0xac] -> 0x208a2 00020720 02 dc | | .CONST 0x2dc ; [0xad] -> 0x208a2 00020722 02 dc | | .CONST 0x2dc ; [0xae] -> 0x208a2 00020724 02 dc | | .CONST 0x2dc ; [0xaf] -> 0x208a2 00020726 02 dc | | .CONST 0x2dc ; [0xb0] -> 0x208a2 00020728 02 dc | | .CONST 0x2dc ; [0xb1] -> 0x208a2 0002072a 02 dc | | .CONST 0x2dc ; [0xb2] -> 0x208a2 0002072c 02 dc | | .CONST 0x2dc ; [0xb3] -> 0x208a2 0002072e 02 dc | | .CONST 0x2dc ; [0xb4] -> 0x208a2 00020730 02 dc | | .CONST 0x2dc ; [0xb5] -> 0x208a2 00020732 02 dc | | .CONST 0x2dc ; [0xb6] -> 0x208a2 00020734 02 dc | | .CONST 0x2dc ; [0xb7] -> 0x208a2 00020736 02 dc | | .CONST 0x2dc ; [0xb8] -> 0x208a2 00020738 02 dc | | .CONST 0x2dc ; [0xb9] -> 0x208a2 0002073a 02 dc | | .CONST 0x2dc ; [0xba] -> 0x208a2 0002073c 02 dc | | .CONST 0x2dc ; [0xbb] -> 0x208a2 0002073e 02 dc | | .CONST 0x2dc ; [0xbc] -> 0x208a2 00020740 02 dc | | .CONST 0x2dc ; [0xbd] -> 0x208a2 00020742 02 dc | | .CONST 0x2dc ; [0xbe] -> 0x208a2 00020744 02 dc | | .CONST 0x2dc ; [0xbf] -> 0x208a2 00020746 02 dc | | .CONST 0x2dc ; [0xc0] -> 0x208a2 00020748 02 dc | | .CONST 0x2dc ; [0xc1] -> 0x208a2 0002074a 02 dc | | .CONST 0x2dc ; [0xc2] -> 0x208a2 0002074c 02 dc | | .CONST 0x2dc ; [0xc3] -> 0x208a2 0002074e 02 dc | | .CONST 0x2dc ; [0xc4] -> 0x208a2 00020750 02 dc | | .CONST 0x2dc ; [0xc5] -> 0x208a2 00020752 02 dc | | .CONST 0x2dc ; [0xc6] -> 0x208a2 00020754 02 dc | | .CONST 0x2dc ; [0xc7] -> 0x208a2 00020756 02 dc | | .CONST 0x2dc ; [0xc8] -> 0x208a2 00020758 02 dc | | .CONST 0x2dc ; [0xc9] -> 0x208a2 0002075a 02 dc | | .CONST 0x2dc ; [0xca] -> 0x208a2 0002075c 02 dc | | .CONST 0x2dc ; [0xcb] -> 0x208a2 0002075e 02 dc | | .CONST 0x2dc ; [0xcc] -> 0x208a2 00020760 02 dc | | .CONST 0x2dc ; [0xcd] -> 0x208a2 00020762 02 dc | | .CONST 0x2dc ; [0xce] -> 0x208a2 00020764 02 dc | | .CONST 0x2dc ; [0xcf] -> 0x208a2 00020766 02 dc | | .CONST 0x2dc ; [0xd0] -> 0x208a2 00020768 02 dc | | .CONST 0x2dc ; [0xd1] -> 0x208a2 0002076a 02 dc | | .CONST 0x2dc ; [0xd2] -> 0x208a2 0002076c 02 dc | | .CONST 0x2dc ; [0xd3] -> 0x208a2 0002076e 02 dc | | .CONST 0x2dc ; [0xd4] -> 0x208a2 00020770 02 dc | | .CONST 0x2dc ; [0xd5] -> 0x208a2 00020772 02 dc | | .CONST 0x2dc ; [0xd6] -> 0x208a2 00020774 02 dc | | .CONST 0x2dc ; [0xd7] -> 0x208a2 00020776 02 dc | | .CONST 0x2dc ; [0xd8] -> 0x208a2 00020778 02 dc | | .CONST 0x2dc ; [0xd9] -> 0x208a2 0002077a 02 dc | | .CONST 0x2dc ; [0xda] -> 0x208a2 0002077c 02 dc | | .CONST 0x2dc ; [0xdb] -> 0x208a2 0002077e 02 dc | | .CONST 0x2dc ; [0xdc] -> 0x208a2 00020780 02 dc | | .CONST 0x2dc ; [0xdd] -> 0x208a2 00020782 02 dc | | .CONST 0x2dc ; [0xde] -> 0x208a2 00020784 02 dc | | .CONST 0x2dc ; [0xdf] -> 0x208a2 00020786 02 dc | | .CONST 0x2dc ; [0xe0] -> 0x208a2 00020788 02 dc | | .CONST 0x2dc ; [0xe1] -> 0x208a2 0002078a 02 dc | | .CONST 0x2dc ; [0xe2] -> 0x208a2 0002078c 02 dc | | .CONST 0x2dc ; [0xe3] -> 0x208a2 0002078e 02 dc | | .CONST 0x2dc ; [0xe4] -> 0x208a2 00020790 02 dc | | .CONST 0x2dc ; [0xe5] -> 0x208a2 00020792 02 dc | | .CONST 0x2dc ; [0xe6] -> 0x208a2 00020794 02 dc | | .CONST 0x2dc ; [0xe7] -> 0x208a2 00020796 02 dc | | .CONST 0x2dc ; [0xe8] -> 0x208a2 00020798 02 dc | | .CONST 0x2dc ; [0xe9] -> 0x208a2 0002079a 02 dc | | .CONST 0x2dc ; [0xea] -> 0x208a2 0002079c 02 dc | | .CONST 0x2dc ; [0xeb] -> 0x208a2 0002079e 02 dc | | .CONST 0x2dc ; [0xec] -> 0x208a2 000207a0 02 dc | | .CONST 0x2dc ; [0xed] -> 0x208a2 000207a2 02 dc | | .CONST 0x2dc ; [0xee] -> 0x208a2 000207a4 02 dc | | .CONST 0x2dc ; [0xef] -> 0x208a2 000207a6 02 dc | | .CONST 0x2dc ; [0xf0] -> 0x208a2 000207a8 02 dc | | .CONST 0x2dc ; [0xf1] -> 0x208a2 000207aa 02 dc | | .CONST 0x2dc ; [0xf2] -> 0x208a2 000207ac 02 dc | | .CONST 0x2dc ; [0xf3] -> 0x208a2 000207ae 02 dc | | .CONST 0x2dc ; [0xf4] -> 0x208a2 000207b0 02 dc | | .CONST 0x2dc ; [0xf5] -> 0x208a2 000207b2 02 dc | | .CONST 0x2dc ; [0xf6] -> 0x208a2 000207b4 02 dc | | .CONST 0x2dc ; [0xf7] -> 0x208a2 000207b6 02 dc | | .CONST 0x2dc ; [0xf8] -> 0x208a2 000207b8 02 dc | | .CONST 0x2dc ; [0xf9] -> 0x208a2 000207ba 02 dc | | .CONST 0x2dc ; [0xfa] -> 0x208a2 000207bc 02 dc | | .CONST 0x2dc ; [0xfb] -> 0x208a2 000207be 02 dc | | .CONST 0x2dc ; [0xfc] -> 0x208a2 000207c0 02 dc | | .CONST 0x2dc ; [0xfd] -> 0x208a2 000207c2 02 dc | | .CONST 0x2dc ; [0xfe] -> 0x208a2 000207c4 02 c8 | | .CONST 0x2c8 ; [0xff] -> 0x2088e 000207c6 switch@0x205be[0x0]: 000207c6 9e c2 | | SUBA.W D2,A7 000207c8 20 4f | O | MOVEA.L A7,A0 000207ca 43 fa f9 62 |C b | LEA.L 0x2012e,A1 000207ce 70 12 |p | MOVEQ.L #0x12,D0 000207d0 10 d9 | | MOVE.B (A1)+,(A0)+ 000207d2 51 c8 ff fc |Q | DBF D0,0x207d0 000207d6 59 4f |YO | SUBQ.L #0x4,A7 000207d8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000207dc 3f 01 |? | MOVE.W D1,-(A7) 000207de 3f 03 |? | MOVE.W D3,-(A7) 000207e0 4e 92 |N | JSR (A2) 000207e2 60 00 00 ec |` | BRA 0x208d0 000207e6 switch@0x205be[0x1]: 000207e6 9e c4 | | SUBA.W D4,A7 000207e8 20 4f | O | MOVEA.L A7,A0 000207ea 43 fa f9 56 |C V | LEA.L 0x20142,A1 000207ee 70 0c |p | MOVEQ.L #0x0c,D0 000207f0 10 d9 | | MOVE.B (A1)+,(A0)+ 000207f2 51 c8 ff fc |Q | DBF D0,0x207f0 000207f6 59 4f |YO | SUBQ.L #0x4,A7 000207f8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000207fc 3f 01 |? | MOVE.W D1,-(A7) 000207fe 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00020802 4e 92 |N | JSR (A2) 00020804 50 4f |PO | ADDQ.L #0x8,A7 00020806 28 5f |(_ | MOVEA.L (A7)+,A4 00020808 de c4 | | ADDA.W D4,A7 0002080a 60 00 00 ca |` | BRA 0x208d6 0002080e switch@0x205be[0x2]: 0002080e 2f 3a f9 48 |/: H | MOVE.L 0x20158,-(A7) 00020812 2f 3a f9 40 |/: @ | MOVE.L 0x20154,-(A7) 00020816 2f 3a f9 38 |/: 8 | MOVE.L 0x20150,-(A7) 0002081a 59 4f |YO | SUBQ.L #0x4,A7 0002081c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020820 3f 01 |? | MOVE.W D1,-(A7) 00020822 3f 05 |? | MOVE.W D5,-(A7) 00020824 4e 92 |N | JSR (A2) 00020826 50 4f |PO | ADDQ.L #0x8,A7 00020828 28 5f |(_ | MOVEA.L (A7)+,A4 0002082a de c5 | | ADDA.W D5,A7 0002082c 60 00 00 a8 |` | BRA 0x208d6 00020830 switch@0x205be[0x3]: 00020830 9e c2 | | SUBA.W D2,A7 00020832 20 4f | O | MOVEA.L A7,A0 00020834 43 fa f9 26 |C & | LEA.L 0x2015c,A1 00020838 70 12 |p | MOVEQ.L #0x12,D0 0002083a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002083c 51 c8 ff fc |Q | DBF D0,0x2083a 00020840 60 94 |` | BRA 0x207d6 00020842 switch@0x205be[0x4]: 00020842 9e c6 | | SUBA.W D6,A7 00020844 20 4f | O | MOVEA.L A7,A0 00020846 43 fa f9 28 |C ( | LEA.L 0x20170,A1 0002084a 70 10 |p | MOVEQ.L #0x10,D0 0002084c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002084e 51 c8 ff fc |Q | DBF D0,0x2084c 00020852 59 4f |YO | SUBQ.L #0x4,A7 00020854 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020858 3f 01 |? | MOVE.W D1,-(A7) 0002085a 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 0002085e 4e 92 |N | JSR (A2) 00020860 50 4f |PO | ADDQ.L #0x8,A7 00020862 28 5f |(_ | MOVEA.L (A7)+,A4 00020864 de c6 | | ADDA.W D6,A7 00020866 60 6e |`n | BRA 0x208d6 00020868 switch@0x205be[0x5]: 00020868 9e c7 | | SUBA.W D7,A7 0002086a 20 4f | O | MOVEA.L A7,A0 0002086c 43 fa f9 14 |C | LEA.L 0x20182,A1 00020870 70 1c |p | MOVEQ.L #0x1c,D0 00020872 10 d9 | | MOVE.B (A1)+,(A0)+ 00020874 51 c8 ff fc |Q | DBF D0,0x20872 00020878 59 4f |YO | SUBQ.L #0x4,A7 0002087a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002087e 3f 01 |? | MOVE.W D1,-(A7) 00020880 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 00020884 4e 92 |N | JSR (A2) 00020886 50 4f |PO | ADDQ.L #0x8,A7 00020888 28 5f |(_ | MOVEA.L (A7)+,A4 0002088a de c7 | | ADDA.W D7,A7 0002088c 60 48 |`H | BRA 0x208d6 0002088e switch@0x205be[0xff]: 0002088e 9e c2 | | SUBA.W D2,A7 00020890 20 4f | O | MOVEA.L A7,A0 00020892 43 fa f9 0c |C | LEA.L 0x201a0,A1 00020896 70 12 |p | MOVEQ.L #0x12,D0 00020898 10 d9 | | MOVE.B (A1)+,(A0)+ 0002089a 51 c8 ff fc |Q | DBF D0,0x20898 0002089e 60 00 ff 36 |` 6 | BRA 0x207d6 000208a2 switch@0x205be[0x10]: 000208a2 switch@0x205be[0x11]: 000208a2 switch@0x205be[0x12]: 000208a2 switch@0x205be[0x13]: 000208a2 switch@0x205be[0x14]: 000208a2 switch@0x205be[0x15]: 000208a2 switch@0x205be[0x16]: 000208a2 switch@0x205be[0x17]: 000208a2 switch@0x205be[0x18]: 000208a2 switch@0x205be[0x19]: 000208a2 switch@0x205be[0x1a]: 000208a2 switch@0x205be[0x1b]: 000208a2 switch@0x205be[0x1c]: 000208a2 switch@0x205be[0x1d]: 000208a2 switch@0x205be[0x1e]: 000208a2 switch@0x205be[0x1f]: 000208a2 switch@0x205be[0x20]: 000208a2 switch@0x205be[0x21]: 000208a2 switch@0x205be[0x22]: 000208a2 switch@0x205be[0x23]: 000208a2 switch@0x205be[0x24]: 000208a2 switch@0x205be[0x25]: 000208a2 switch@0x205be[0x26]: 000208a2 switch@0x205be[0x27]: 000208a2 switch@0x205be[0x28]: 000208a2 switch@0x205be[0x29]: 000208a2 switch@0x205be[0x2a]: 000208a2 switch@0x205be[0x2b]: 000208a2 switch@0x205be[0x2c]: 000208a2 switch@0x205be[0x2d]: 000208a2 switch@0x205be[0x2e]: 000208a2 switch@0x205be[0x2f]: 000208a2 switch@0x205be[0x30]: 000208a2 switch@0x205be[0x31]: 000208a2 switch@0x205be[0x32]: 000208a2 switch@0x205be[0x33]: 000208a2 switch@0x205be[0x34]: 000208a2 switch@0x205be[0x35]: 000208a2 switch@0x205be[0x36]: 000208a2 switch@0x205be[0x37]: 000208a2 switch@0x205be[0x38]: 000208a2 switch@0x205be[0x39]: 000208a2 switch@0x205be[0x3a]: 000208a2 switch@0x205be[0x3b]: 000208a2 switch@0x205be[0x3c]: 000208a2 switch@0x205be[0x3d]: 000208a2 switch@0x205be[0x3e]: 000208a2 switch@0x205be[0x3f]: 000208a2 switch@0x205be[0x40]: 000208a2 switch@0x205be[0x41]: 000208a2 switch@0x205be[0x42]: 000208a2 switch@0x205be[0x43]: 000208a2 switch@0x205be[0x44]: 000208a2 switch@0x205be[0x45]: 000208a2 switch@0x205be[0x46]: 000208a2 switch@0x205be[0x47]: 000208a2 switch@0x205be[0x48]: 000208a2 switch@0x205be[0x49]: 000208a2 switch@0x205be[0x4a]: 000208a2 switch@0x205be[0x4b]: 000208a2 switch@0x205be[0x4c]: 000208a2 switch@0x205be[0x4d]: 000208a2 switch@0x205be[0x4e]: 000208a2 switch@0x205be[0x4f]: 000208a2 switch@0x205be[0x50]: 000208a2 switch@0x205be[0x51]: 000208a2 switch@0x205be[0x52]: 000208a2 switch@0x205be[0x53]: 000208a2 switch@0x205be[0x54]: 000208a2 switch@0x205be[0x55]: 000208a2 switch@0x205be[0x56]: 000208a2 switch@0x205be[0x57]: 000208a2 switch@0x205be[0x58]: 000208a2 switch@0x205be[0x59]: 000208a2 switch@0x205be[0x5a]: 000208a2 switch@0x205be[0x5b]: 000208a2 switch@0x205be[0x5c]: 000208a2 switch@0x205be[0x5d]: 000208a2 switch@0x205be[0x5e]: 000208a2 switch@0x205be[0x5f]: 000208a2 switch@0x205be[0x60]: 000208a2 switch@0x205be[0x61]: 000208a2 switch@0x205be[0x62]: 000208a2 switch@0x205be[0x63]: 000208a2 switch@0x205be[0x64]: 000208a2 switch@0x205be[0x65]: 000208a2 switch@0x205be[0x66]: 000208a2 switch@0x205be[0x67]: 000208a2 switch@0x205be[0x68]: 000208a2 switch@0x205be[0x69]: 000208a2 switch@0x205be[0x6]: 000208a2 switch@0x205be[0x6a]: 000208a2 switch@0x205be[0x6b]: 000208a2 switch@0x205be[0x6c]: 000208a2 switch@0x205be[0x6d]: 000208a2 switch@0x205be[0x6e]: 000208a2 switch@0x205be[0x6f]: 000208a2 switch@0x205be[0x70]: 000208a2 switch@0x205be[0x71]: 000208a2 switch@0x205be[0x72]: 000208a2 switch@0x205be[0x73]: 000208a2 switch@0x205be[0x74]: 000208a2 switch@0x205be[0x75]: 000208a2 switch@0x205be[0x76]: 000208a2 switch@0x205be[0x77]: 000208a2 switch@0x205be[0x78]: 000208a2 switch@0x205be[0x79]: 000208a2 switch@0x205be[0x7]: 000208a2 switch@0x205be[0x7a]: 000208a2 switch@0x205be[0x7b]: 000208a2 switch@0x205be[0x7c]: 000208a2 switch@0x205be[0x7d]: 000208a2 switch@0x205be[0x7e]: 000208a2 switch@0x205be[0x7f]: 000208a2 switch@0x205be[0x80]: 000208a2 switch@0x205be[0x81]: 000208a2 switch@0x205be[0x82]: 000208a2 switch@0x205be[0x83]: 000208a2 switch@0x205be[0x84]: 000208a2 switch@0x205be[0x85]: 000208a2 switch@0x205be[0x86]: 000208a2 switch@0x205be[0x87]: 000208a2 switch@0x205be[0x88]: 000208a2 switch@0x205be[0x89]: 000208a2 switch@0x205be[0x8]: 000208a2 switch@0x205be[0x8a]: 000208a2 switch@0x205be[0x8b]: 000208a2 switch@0x205be[0x8c]: 000208a2 switch@0x205be[0x8d]: 000208a2 switch@0x205be[0x8e]: 000208a2 switch@0x205be[0x8f]: 000208a2 switch@0x205be[0x90]: 000208a2 switch@0x205be[0x91]: 000208a2 switch@0x205be[0x92]: 000208a2 switch@0x205be[0x93]: 000208a2 switch@0x205be[0x94]: 000208a2 switch@0x205be[0x95]: 000208a2 switch@0x205be[0x96]: 000208a2 switch@0x205be[0x97]: 000208a2 switch@0x205be[0x98]: 000208a2 switch@0x205be[0x99]: 000208a2 switch@0x205be[0x9]: 000208a2 switch@0x205be[0x9a]: 000208a2 switch@0x205be[0x9b]: 000208a2 switch@0x205be[0x9c]: 000208a2 switch@0x205be[0x9d]: 000208a2 switch@0x205be[0x9e]: 000208a2 switch@0x205be[0x9f]: 000208a2 switch@0x205be[0xa0]: 000208a2 switch@0x205be[0xa1]: 000208a2 switch@0x205be[0xa2]: 000208a2 switch@0x205be[0xa3]: 000208a2 switch@0x205be[0xa4]: 000208a2 switch@0x205be[0xa5]: 000208a2 switch@0x205be[0xa6]: 000208a2 switch@0x205be[0xa7]: 000208a2 switch@0x205be[0xa8]: 000208a2 switch@0x205be[0xa9]: 000208a2 switch@0x205be[0xa]: 000208a2 switch@0x205be[0xaa]: 000208a2 switch@0x205be[0xab]: 000208a2 switch@0x205be[0xac]: 000208a2 switch@0x205be[0xad]: 000208a2 switch@0x205be[0xae]: 000208a2 switch@0x205be[0xaf]: 000208a2 switch@0x205be[0xb0]: 000208a2 switch@0x205be[0xb1]: 000208a2 switch@0x205be[0xb2]: 000208a2 switch@0x205be[0xb3]: 000208a2 switch@0x205be[0xb4]: 000208a2 switch@0x205be[0xb5]: 000208a2 switch@0x205be[0xb6]: 000208a2 switch@0x205be[0xb7]: 000208a2 switch@0x205be[0xb8]: 000208a2 switch@0x205be[0xb9]: 000208a2 switch@0x205be[0xb]: 000208a2 switch@0x205be[0xba]: 000208a2 switch@0x205be[0xbb]: 000208a2 switch@0x205be[0xbc]: 000208a2 switch@0x205be[0xbd]: 000208a2 switch@0x205be[0xbe]: 000208a2 switch@0x205be[0xbf]: 000208a2 switch@0x205be[0xc0]: 000208a2 switch@0x205be[0xc1]: 000208a2 switch@0x205be[0xc2]: 000208a2 switch@0x205be[0xc3]: 000208a2 switch@0x205be[0xc4]: 000208a2 switch@0x205be[0xc5]: 000208a2 switch@0x205be[0xc6]: 000208a2 switch@0x205be[0xc7]: 000208a2 switch@0x205be[0xc8]: 000208a2 switch@0x205be[0xc9]: 000208a2 switch@0x205be[0xc]: 000208a2 switch@0x205be[0xca]: 000208a2 switch@0x205be[0xcb]: 000208a2 switch@0x205be[0xcc]: 000208a2 switch@0x205be[0xcd]: 000208a2 switch@0x205be[0xce]: 000208a2 switch@0x205be[0xcf]: 000208a2 switch@0x205be[0xd0]: 000208a2 switch@0x205be[0xd1]: 000208a2 switch@0x205be[0xd2]: 000208a2 switch@0x205be[0xd3]: 000208a2 switch@0x205be[0xd4]: 000208a2 switch@0x205be[0xd5]: 000208a2 switch@0x205be[0xd6]: 000208a2 switch@0x205be[0xd7]: 000208a2 switch@0x205be[0xd8]: 000208a2 switch@0x205be[0xd9]: 000208a2 switch@0x205be[0xd]: 000208a2 switch@0x205be[0xda]: 000208a2 switch@0x205be[0xdb]: 000208a2 switch@0x205be[0xdc]: 000208a2 switch@0x205be[0xdd]: 000208a2 switch@0x205be[0xde]: 000208a2 switch@0x205be[0xdf]: 000208a2 switch@0x205be[0xe0]: 000208a2 switch@0x205be[0xe1]: 000208a2 switch@0x205be[0xe2]: 000208a2 switch@0x205be[0xe3]: 000208a2 switch@0x205be[0xe4]: 000208a2 switch@0x205be[0xe5]: 000208a2 switch@0x205be[0xe6]: 000208a2 switch@0x205be[0xe7]: 000208a2 switch@0x205be[0xe8]: 000208a2 switch@0x205be[0xe9]: 000208a2 switch@0x205be[0xe]: 000208a2 switch@0x205be[0xea]: 000208a2 switch@0x205be[0xeb]: 000208a2 switch@0x205be[0xec]: 000208a2 switch@0x205be[0xed]: 000208a2 switch@0x205be[0xee]: 000208a2 switch@0x205be[0xef]: 000208a2 switch@0x205be[0xf0]: 000208a2 switch@0x205be[0xf1]: 000208a2 switch@0x205be[0xf2]: 000208a2 switch@0x205be[0xf3]: 000208a2 switch@0x205be[0xf4]: 000208a2 switch@0x205be[0xf5]: 000208a2 switch@0x205be[0xf6]: 000208a2 switch@0x205be[0xf7]: 000208a2 switch@0x205be[0xf8]: 000208a2 switch@0x205be[0xf9]: 000208a2 switch@0x205be[0xf]: 000208a2 switch@0x205be[0xfa]: 000208a2 switch@0x205be[0xfb]: 000208a2 switch@0x205be[0xfc]: 000208a2 switch@0x205be[0xfd]: 000208a2 switch@0x205be[0xfe]: 000208a2 9e c2 | | SUBA.W D2,A7 000208a4 20 4f | O | MOVEA.L A7,A0 000208a6 43 fa f9 0c |C | LEA.L 0x201b4,A1 000208aa 70 12 |p | MOVEQ.L #0x12,D0 000208ac 10 d9 | | MOVE.B (A1)+,(A0)+ 000208ae 51 c8 ff fc |Q | DBF D0,0x208ac 000208b2 51 4f |QO | SUBQ.L #0x8,A7 000208b4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000208b8 3f 01 |? | MOVE.W D1,-(A7) 000208ba 3f 03 |? | MOVE.W D3,-(A7) 000208bc 4e 92 |N | JSR (A2) 000208be 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000208c2 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000208c8 58 4f |XO | ADDQ.L #0x4,A7 000208ca 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000208d0 50 4f |PO | ADDQ.L #0x8,A7 000208d2 28 5f |(_ | MOVEA.L (A7)+,A4 000208d4 de c2 | | ADDA.W D2,A7 000208d6 2d 4c 00 0c |-L | MOVE.L A4,(A6+0xc) 000208da 4c df 17 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A4 000208de 4e 5e |N^ | UNLK A6 000208e0 4e 75 |Nu | RTS 000208e2 ; -------------------------------------------------------------------------------------- 000208e2 ; OMSI PASCAL Function 000208e2 ; <LVAR 0x00c 4(w)> 000208e2 ; <LVAR 0x008 4(r)> 000208e2 ; -------------------------------------------------------------------------------------- 000208e2 4e 56 ff a2 |NV | LINK.W A6,#0xffa2 000208e6 bf d5 | | CMPA.L (A5),A7 000208e8 62 06 |b | BHI 0x208f0 000208ea 44 fc 00 02 |D | MOVE.W #0x2,CCR 000208ee 4e 76 |Nv | TRAPV 000208f0 de fc 00 5a | Z | ADDA.W #0x5a,A7 000208f4 48 e7 ff e8 |H | MOVEM.L A4+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000208f8 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000208fe 72 01 |r | MOVEQ.L #0x01,D1 00020900 74 10 |t | MOVEQ.L #0x10,D2 00020902 76 12 |v | MOVEQ.L #0x12,D3 00020904 78 0c |x | MOVEQ.L #0x0c,D4 00020906 7a 0a |z | MOVEQ.L #0x0a,D5 00020908 7c 1a || | MOVEQ.L #0x1a,D6 0002090a 7e 16 |~ | MOVEQ.L #0x16,D7 0002090c 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 00020910 0c 80 00 00 00 06 | | CMPI.L #0x00000006,D0 00020916 62 00 01 0e |b | BHI 0x20a26 0002091a d0 40 | @ | ADD.W D0,D0 0002091c 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020924 00 0e | | .CONST 0xe ; [0x0] -> 0x20932 00020926 00 36 | 6 | .CONST 0x36 ; [0x1] -> 0x2095a 00020928 00 5e | ^ | .CONST 0x5e ; [0x2] -> 0x20982 0002092a 00 80 | | .CONST 0x80 ; [0x3] -> 0x209a4 0002092c 00 a8 | | .CONST 0xa8 ; [0x4] -> 0x209cc 0002092e 00 bc | | .CONST 0xbc ; [0x5] -> 0x209e0 00020930 00 e2 | | .CONST 0xe2 ; [0x6] -> 0x20a06 00020932 switch@0x2091c[0x0]: 00020932 9e c2 | | SUBA.W D2,A7 00020934 20 4f | O | MOVEA.L A7,A0 00020936 43 fa f8 90 |C | LEA.L 0x201c8,A1 0002093a 70 0e |p | MOVEQ.L #0x0e,D0 0002093c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002093e 51 c8 ff fc |Q | DBF D0,0x2093c 00020942 59 4f |YO | SUBQ.L #0x4,A7 00020944 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020948 3f 01 |? | MOVE.W D1,-(A7) 0002094a 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 0002094e 4e 92 |N | JSR (A2) 00020950 50 4f |PO | ADDQ.L #0x8,A7 00020952 28 5f |(_ | MOVEA.L (A7)+,A4 00020954 de c2 | | ADDA.W D2,A7 00020956 60 00 01 08 |` | BRA 0x20a60 0002095a switch@0x2091c[0x1]: 0002095a 9e c3 | | SUBA.W D3,A7 0002095c 20 4f | O | MOVEA.L A7,A0 0002095e 43 fa f8 78 |C x | LEA.L 0x201d8,A1 00020962 70 10 |p | MOVEQ.L #0x10,D0 00020964 10 d9 | | MOVE.B (A1)+,(A0)+ 00020966 51 c8 ff fc |Q | DBF D0,0x20964 0002096a 59 4f |YO | SUBQ.L #0x4,A7 0002096c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020970 3f 01 |? | MOVE.W D1,-(A7) 00020972 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00020976 4e 92 |N | JSR (A2) 00020978 50 4f |PO | ADDQ.L #0x8,A7 0002097a 28 5f |(_ | MOVEA.L (A7)+,A4 0002097c de c3 | | ADDA.W D3,A7 0002097e 60 00 00 e0 |` | BRA 0x20a60 00020982 switch@0x2091c[0x2]: 00020982 2f 3a f8 6e |/: n | MOVE.L 0x201f2,-(A7) 00020986 2f 3a f8 66 |/: f | MOVE.L 0x201ee,-(A7) 0002098a 2f 3a f8 5e |/: ^ | MOVE.L 0x201ea,-(A7) 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 04 |? | MOVE.W D4,-(A7) 00020998 4e 92 |N | JSR (A2) 0002099a 50 4f |PO | ADDQ.L #0x8,A7 0002099c 28 5f |(_ | MOVEA.L (A7)+,A4 0002099e de c4 | | ADDA.W D4,A7 000209a0 60 00 00 be |` | BRA 0x20a60 000209a4 switch@0x2091c[0x3]: 000209a4 9e c5 | | SUBA.W D5,A7 000209a6 20 4f | O | MOVEA.L A7,A0 000209a8 43 fa f8 4c |C L | LEA.L 0x201f6,A1 000209ac 70 08 |p | MOVEQ.L #0x08,D0 000209ae 10 d9 | | MOVE.B (A1)+,(A0)+ 000209b0 51 c8 ff fc |Q | DBF D0,0x209ae 000209b4 59 4f |YO | SUBQ.L #0x4,A7 000209b6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000209ba 3f 01 |? | MOVE.W D1,-(A7) 000209bc 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 000209c0 4e 92 |N | JSR (A2) 000209c2 50 4f |PO | ADDQ.L #0x8,A7 000209c4 28 5f |(_ | MOVEA.L (A7)+,A4 000209c6 de c5 | | ADDA.W D5,A7 000209c8 60 00 00 96 |` | BRA 0x20a60 000209cc switch@0x2091c[0x4]: 000209cc 9e c2 | | SUBA.W D2,A7 000209ce 20 4f | O | MOVEA.L A7,A0 000209d0 43 fa f8 2e |C . | LEA.L 0x20200,A1 000209d4 70 0e |p | MOVEQ.L #0x0e,D0 000209d6 10 d9 | | MOVE.B (A1)+,(A0)+ 000209d8 51 c8 ff fc |Q | DBF D0,0x209d6 000209dc 60 00 ff 64 |` d | BRA 0x20942 000209e0 switch@0x2091c[0x5]: 000209e0 9e c6 | | SUBA.W D6,A7 000209e2 20 4f | O | MOVEA.L A7,A0 000209e4 43 fa f8 2a |C * | LEA.L 0x20210,A1 000209e8 70 18 |p | MOVEQ.L #0x18,D0 000209ea 10 d9 | | MOVE.B (A1)+,(A0)+ 000209ec 51 c8 ff fc |Q | DBF D0,0x209ea 000209f0 59 4f |YO | SUBQ.L #0x4,A7 000209f2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000209f6 3f 01 |? | MOVE.W D1,-(A7) 000209f8 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 000209fc 4e 92 |N | JSR (A2) 000209fe 50 4f |PO | ADDQ.L #0x8,A7 00020a00 28 5f |(_ | MOVEA.L (A7)+,A4 00020a02 de c6 | | ADDA.W D6,A7 00020a04 60 5a |`Z | BRA 0x20a60 00020a06 switch@0x2091c[0x6]: 00020a06 41 fa f8 38 |A 8 | LEA.L 0x20240,A0 00020a0a 70 0a |p | MOVEQ.L #0x0a,D0 00020a0c 3f 20 |? | MOVE.W -(A0),-(A7) 00020a0e 51 c8 ff fc |Q | DBF D0,0x20a0c 00020a12 59 4f |YO | SUBQ.L #0x4,A7 00020a14 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a18 3f 01 |? | MOVE.W D1,-(A7) 00020a1a 3f 07 |? | MOVE.W D7,-(A7) 00020a1c 4e 92 |N | JSR (A2) 00020a1e 50 4f |PO | ADDQ.L #0x8,A7 00020a20 28 5f |(_ | MOVEA.L (A7)+,A4 00020a22 de c7 | | ADDA.W D7,A7 00020a24 60 3a |`: | BRA 0x20a60 00020a26 9e fc 00 14 | | SUBA.W #0x14,A7 00020a2a 20 4f | O | MOVEA.L A7,A0 00020a2c 43 fa f8 12 |C | LEA.L 0x20240,A1 00020a30 70 12 |p | MOVEQ.L #0x12,D0 00020a32 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a34 51 c8 ff fc |Q | DBF D0,0x20a32 00020a38 51 4f |QO | SUBQ.L #0x8,A7 00020a3a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020a3e 3f 01 |? | MOVE.W D1,-(A7) 00020a40 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00020a44 4e 92 |N | JSR (A2) 00020a46 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00020a4a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020a50 58 4f |XO | ADDQ.L #0x4,A7 00020a52 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020a58 50 4f |PO | ADDQ.L #0x8,A7 00020a5a 28 5f |(_ | MOVEA.L (A7)+,A4 00020a5c de fc 00 14 | | ADDA.W #0x14,A7 00020a60 2d 4c 00 0c |-L | MOVE.L A4,(A6+0xc) 00020a64 4c df 17 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A4 00020a68 4e 5e |N^ | UNLK A6 00020a6a 4e 75 |Nu | RTS 00020a6c ; -------------------------------------------------------------------------------------- 00020a6c ; OMSI PASCAL Function 00020a6c ; <LVAR 0x008 1(w)> 00020a6c ; <LVAR -0x004 @ 1(r)> 00020a6c ; -------------------------------------------------------------------------------------- 00020a6c 4e 56 ff ea |NV | LINK.W A6,#0xffea 00020a70 bf d5 | | CMPA.L (A5),A7 00020a72 62 06 |b | BHI 0x20a7a 00020a74 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a78 4e 76 |Nv | TRAPV 00020a7a de fc 00 12 | | ADDA.W #0x12,A7 00020a7e 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020a82 41 ee ff fc |A | LEA.L (A6-0x4),A0 00020a86 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00020a8a 48 50 |HP | PEA.L (A0) 00020a8c 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00020a92 5c 4f |\O | ADDQ.L #0x6,A7 00020a94 4a 10 |J | TST.B (A0) 00020a96 67 ee |g | BEQ 0x20a86 00020a98 10 10 | | MOVE.B (A0),D0 00020a9a 48 80 |H | EXTB.W D0 00020a9c 41 bc 00 06 |A | CHK.W #0x6,D0 00020aa0 1d 40 00 08 | @ | MOVE.B D0,(A6+0x8) 00020aa4 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020aa8 4e 5e |N^ | UNLK A6 00020aaa 4e 75 |Nu | RTS 00020aac ; -------------------------------------------------------------------------------------- 00020aac ; OMSI PASCAL Function 00020aac ; <LVAR 0x00c 2(w)> 00020aac ; <LVAR 0x008 4(r)> 00020aac ; -------------------------------------------------------------------------------------- 00020aac ReadConfig(adr: Long) : Byte: 00020aac 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 00020ab0 bf d5 | | CMPA.L (A5),A7 00020ab2 62 06 |b | BHI 0x20aba 00020ab4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020ab8 4e 76 |Nv | TRAPV 00020aba de fc 00 0e | | ADDA.W #0xe,A7 00020abe 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00020ac2 55 4f |UO | SUBQ.L #0x2,A7 00020ac4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020ac8 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 00020ace 58 4f |XO | ADDQ.L #0x4,A7 00020ad0 30 1f |0 | MOVE.W (A7)+,D0 00020ad2 41 bc 00 ff |A | CHK.W #0xff,D0 00020ad6 3d 40 00 0c |=@ | MOVE.W D0,(A6+0xc) 00020ada 4c df 00 01 |L | MOVEM.L (A7)+,D0 00020ade 4e 5e |N^ | UNLK A6 00020ae0 4e 75 |Nu | RTS 00020ae2 ; -------------------------------------------------------------------------------------- 00020ae2 ; OMSI PASCAL Function 00020ae2 ; <LVAR 0x008 4(r)> 00020ae2 ; -------------------------------------------------------------------------------------- 00020ae2 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00020ae6 bf d5 | | CMPA.L (A5),A7 00020ae8 62 06 |b | BHI 0x20af0 00020aea 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020aee 4e 76 |Nv | TRAPV 00020af0 de fc 00 3a | : | ADDA.W #0x3a,A7 00020af4 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020af8 48 78 00 01 |Hx | PEA.L 0x1 00020afc 4e b9 00 01 03 f4 |N | JSR SetConsoleConfig(a : Long) 00020b02 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00020b06 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020b0c 9e fc 00 1a | | SUBA.W #0x1a,A7 00020b10 20 4f | O | MOVEA.L A7,A0 00020b12 43 fa f7 40 |C @ | LEA.L 0x20254,A1 00020b16 70 1c |p | MOVEQ.L #0x1c,D0 00020b18 10 d9 | | MOVE.B (A1)+,(A0)+ 00020b1a 51 c8 ff fc |Q | DBF D0,0x20b18 00020b1e 59 4f |YO | SUBQ.L #0x4,A7 00020b20 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020b24 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020b28 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 00020b2c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020b32 50 4f |PO | ADDQ.L #0x8,A7 00020b34 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020b3a de fc 00 20 | | ADDA.W #0x20,A7 00020b3e 42 17 |B | CLR.B (A7) 00020b40 48 78 00 01 |Hx | PEA.L 0x1 00020b44 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020b4a 5c 4f |\O | ADDQ.L #0x6,A7 00020b4c 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020b50 4e 5e |N^ | UNLK A6 00020b52 4e 75 |Nu | RTS 00020b54 ; -------------------------------------------------------------------------------------- 00020b54 ; OMSI PASCAL Function 00020b54 ; <LVAR 0x00c 4(r)> 00020b54 ; <LVAR 0x008 4(r)> 00020b54 ; <LVAR -0x002 @ 2(r)> 00020b54 ; <LVAR -0x004 @ 1(r)> 00020b54 ; -------------------------------------------------------------------------------------- 00020b54 4e 56 ff ca |NV | LINK.W A6,#0xffca 00020b58 bf d5 | | CMPA.L (A5),A7 00020b5a 62 06 |b | BHI 0x20b62 00020b5c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b60 4e 76 |Nv | TRAPV 00020b62 de fc 00 2a | * | ADDA.W #0x2a,A7 00020b66 48 e7 c3 80 |H | MOVEM.L A0+D7+D6+D1+D0,-(A7) 00020b6a 72 01 |r | MOVEQ.L #0x01,D1 00020b6c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020b70 42 10 |B | CLR.B (A0) 00020b72 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00020b76 7c 01 || | MOVEQ.L #0x01,D6 00020b78 bc 97 | | CMP.L (A7),D6 00020b7a 6e 4c |nL | BGT 0x20bc8 00020b7c 7e 01 |~ | MOVEQ.L #0x01,D7 00020b7e 3f 01 |? | MOVE.W D1,-(A7) 00020b80 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020b84 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00020b8a 5c 4f |\O | ADDQ.L #0x6,A7 00020b8c 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00020b90 b0 01 | | CMP.B D1,D0 00020b92 66 26 |f& | BNE 0x20bba 00020b94 3f 01 |? | MOVE.W D1,-(A7) 00020b96 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020b9a 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020ba0 5c 4f |\O | ADDQ.L #0x6,A7 00020ba2 30 2e ff fe |0. | MOVE.W (A6-0x2),D0 00020ba6 02 40 00 ff | @ | ANDI.W #0x00ff,D0 00020baa 0c 40 00 03 | @ | CMPI.W #0x0003,D0 00020bae 66 0a |f | BNE 0x20bba 00020bb0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020bb4 10 81 | | MOVE.B D1,(A0) 00020bb6 58 4f |XO | ADDQ.L #0x4,A7 00020bb8 60 10 |` | BRA 0x20bca 00020bba 52 87 |R | ADDQ.L #0x1,D7 00020bbc 0c 87 00 00 03 e8 | | CMPI.L #0x000003e8,D7 00020bc2 6f ba |o | BLE 0x20b7e 00020bc4 52 86 |R | ADDQ.L #0x1,D6 00020bc6 68 b0 |h | BVC 0x20b78 00020bc8 58 4f |XO | ADDQ.L #0x4,A7 00020bca 4c df 01 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0 00020bce 4e 5e |N^ | UNLK A6 00020bd0 4e 75 |Nu | RTS 00020bd2 ; -------------------------------------------------------------------------------------- 00020bd2 ; OMSI PASCAL Function 00020bd2 ; <LVAR 0x00c 4(rw)> 00020bd2 ; <LVAR 0x008 4(r)> 00020bd2 ; -------------------------------------------------------------------------------------- 00020bd2 4e 56 ff ec |NV | LINK.W A6,#0xffec 00020bd6 bf d5 | | CMPA.L (A5),A7 00020bd8 62 06 |b | BHI 0x20be0 00020bda 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020bde 4e 76 |Nv | TRAPV 00020be0 de fc 00 14 | | ADDA.W #0x14,A7 00020be4 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00020be8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020bec 48 78 00 3c |Hx < | PEA.L 0x3c 00020bf0 48 50 |HP | PEA.L (A0) 00020bf2 4e ba ff 60 |N ` | JSR 0x20b54 00020bf6 50 4f |PO | ADDQ.L #0x8,A7 00020bf8 53 ae 00 0c |S | SUBQ.L #0x1,(A6+0xc) 00020bfc 4a 10 |J | TST.B (A0) 00020bfe 66 06 |f | BNE 0x20c06 00020c00 4a ae 00 0c |J | TST.L (A6+0xc) 00020c04 66 e2 |f | BNE 0x20be8 00020c06 4c df 01 00 |L | MOVEM.L (A7)+,A0 00020c0a 4e 5e |N^ | UNLK A6 00020c0c 4e 75 |Nu | RTS 00020c0e ; -------------------------------------------------------------------------------------- 00020c0e ; OMSI PASCAL Function 00020c0e ; <LVAR -0x004 @> 00020c0e ; <LVAR -0x006 @> 00020c0e ; <LVAR -0x008 @ 1(r)> 00020c0e ; -------------------------------------------------------------------------------------- 00020c0e 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00020c12 bf d5 | | CMPA.L (A5),A7 00020c14 62 06 |b | BHI 0x20c1c 00020c16 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020c1a 4e 76 |Nv | TRAPV 00020c1c de fc 00 18 | | ADDA.W #0x18,A7 00020c20 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00020c24 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00020c28 72 03 |r | MOVEQ.L #0x03,D1 00020c2a 4e b9 00 01 02 16 |N | JSR KC0b 00020c30 48 78 00 05 |Hx | PEA.L 0x5 00020c34 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020c38 4e ba ff 1a |N | JSR 0x20b54 00020c3c 50 4f |PO | ADDQ.L #0x8,A7 00020c3e 3f 01 |? | MOVE.W D1,-(A7) 00020c40 48 50 |HP | PEA.L (A0) 00020c42 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00020c48 5c 4f |\O | ADDQ.L #0x6,A7 00020c4a 4a 10 |J | TST.B (A0) 00020c4c 67 0e |g | BEQ 0x20c5c 00020c4e 3f 01 |? | MOVE.W D1,-(A7) 00020c50 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020c54 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020c5a 5c 4f |\O | ADDQ.L #0x6,A7 00020c5c 10 10 | | MOVE.B (A0),D0 00020c5e 0c 00 00 02 | | CMPI.B #0x02,D0 00020c62 66 da |f | BNE 0x20c3e 00020c64 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00020c68 4e 5e |N^ | UNLK A6 00020c6a 4e 75 |Nu | RTS 00020c6c ; -------------------------------------------------------------------------------------- 00020c6c ; OMSI PASCAL Function 00020c6c ; <LVAR -0x002 @ 1(r)> 00020c6c ; <LVAR -0x006 @ 4(r)> 00020c6c ; <LVAR -0x008 @ 2(rw)> 00020c6c ; <LVAR -0x00a @ 1(rw)> 00020c6c ; <LVAR -0x00c @ 2(rw)> 00020c6c ; -------------------------------------------------------------------------------------- 00020c6c 4e 56 ff 6e |NV n | LINK.W A6,#0xff6e 00020c70 bf d5 | | CMPA.L (A5),A7 00020c72 62 06 |b | BHI 0x20c7a 00020c74 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020c78 4e 76 |Nv | TRAPV 00020c7a de fc 00 86 | | ADDA.W #0x86,A7 00020c7e 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020c82 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00020c86 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020c8c 49 ee ff f6 |I | LEA.L (A6-0xa),A4 00020c90 76 01 |v | MOVEQ.L #0x01,D3 00020c92 78 03 |x | MOVEQ.L #0x03,D4 00020c94 3a 3c 00 ff |:< | MOVE.W #0xff,D5 00020c98 7c 24 ||$ | MOVEQ.L #0x24,D6 00020c9a 7e 06 |~ | MOVEQ.L #0x06,D7 00020c9c 48 78 00 01 |Hx | PEA.L 0x1 00020ca0 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020ca4 4e ba fe ae |N | JSR 0x20b54 00020ca8 50 4f |PO | ADDQ.L #0x8,A7 00020caa 3f 04 |? | MOVE.W D4,-(A7) 00020cac 48 54 |HT | PEA.L (A4) 00020cae 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00020cb4 5c 4f |\O | ADDQ.L #0x6,A7 00020cb6 4a 14 |J | TST.B (A4) 00020cb8 67 0c |g | BEQ 0x20cc6 00020cba 3f 04 |? | MOVE.W D4,-(A7) 00020cbc 48 52 |HR | PEA.L (A2) 00020cbe 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020cc4 5c 4f |\O | ADDQ.L #0x6,A7 00020cc6 4a 14 |J | TST.B (A4) 00020cc8 66 e0 |f | BNE 0x20caa 00020cca 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020cce 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020cd4 58 4f |XO | ADDQ.L #0x4,A7 00020cd6 20 6e ff fa | n | MOVEA.L (A6-0x6),A0 00020cda 30 bc 00 05 |0 | MOVE.W #0x5,(A0) 00020cde 55 4f |UO | SUBQ.L #0x2,A7 ; Read Config.Cluster_Number 00020ce0 48 78 00 84 |Hx | PEA.L 0x84 00020ce4 4e ba fd c6 |N | JSR ReadConfig(adr: Long) : Byte 00020ce8 58 4f |XO | ADDQ.L #0x4,A7 00020cea 30 1f |0 | MOVE.W (A7)+,D0 00020cec 41 85 |A | CHK.W D5,D0 00020cee 11 40 00 02 | @ | MOVE.B D0,(A0+0x2) 00020cf2 55 4f |UO | SUBQ.L #0x2,A7 00020cf4 48 78 00 85 |Hx | PEA.L 0x85 00020cf8 4e ba fd b2 |N | JSR ReadConfig(adr: Long) : Byte 00020cfc 58 4f |XO | ADDQ.L #0x4,A7 00020cfe 30 1f |0 | MOVE.W (A7)+,D0 00020d00 41 85 |A | CHK.W D5,D0 00020d02 11 40 00 03 | @ | MOVE.B D0,(A0+0x3) 00020d06 55 4f |UO | SUBQ.L #0x2,A7 00020d08 48 78 00 86 |Hx | PEA.L 0x86 00020d0c 4e ba fd 9e |N | JSR ReadConfig(adr: Long) : Byte 00020d10 58 4f |XO | ADDQ.L #0x4,A7 00020d12 30 1f |0 | MOVE.W (A7)+,D0 00020d14 41 85 |A | CHK.W D5,D0 00020d16 11 40 00 04 | @ | MOVE.B D0,(A0+0x4) 00020d1a 55 4f |UO | SUBQ.L #0x2,A7 00020d1c 48 78 00 87 |Hx | PEA.L 0x87 00020d20 4e ba fd 8a |N | JSR ReadConfig(adr: Long) : Byte 00020d24 58 4f |XO | ADDQ.L #0x4,A7 00020d26 30 1f |0 | MOVE.W (A7)+,D0 00020d28 41 85 |A | CHK.W D5,D0 00020d2a 11 40 00 05 | @ | MOVE.B D0,(A0+0x5) 00020d2e 42 28 00 06 |B( | CLR.B (A0+0x6) 00020d32 3f 04 |? | MOVE.W D4,-(A7) 00020d34 2f 2e ff fa |/. | MOVE.L (A6-0x6),-(A7) 00020d38 4e b9 00 01 02 14 |N | JSR KC0a(a: Word; b: String) 00020d3e 5c 4f |\O | ADDQ.L #0x6,A7 00020d40 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020d44 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020d4a 54 4f |TO | ADDQ.L #0x2,A7 00020d4c 4e ba fd 1e |N | JSR 0x20a6c 00020d50 10 1f | | MOVE.B (A7)+,D0 00020d52 48 80 |H | EXTB.W D0 00020d54 41 87 |A | CHK.W D7,D0 00020d56 18 80 | | MOVE.B D0,(A4) 00020d58 3f 04 |? | MOVE.W D4,-(A7) 00020d5a 48 52 |HR | PEA.L (A2) 00020d5c 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020d62 5c 4f |\O | ADDQ.L #0x6,A7 00020d64 cb 52 | R | AND.W D5,(A2) 00020d66 b0 04 | | CMP.B D4,D0 00020d68 66 3a |f: | BNE 0x20da4 00020d6a 41 fa f5 26 |A & | LEA.L 0x20292,A0 00020d6e 70 07 |p | MOVEQ.L #0x07,D0 00020d70 2f 20 |/ | MOVE.L -(A0),-(A7) 00020d72 51 c8 ff fc |Q | DBF D0,0x20d70 00020d76 51 4f |QO | SUBQ.L #0x8,A7 00020d78 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020d7c 3f 03 |? | MOVE.W D3,-(A7) 00020d7e 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00020d82 4e 93 |N | JSR (A3) 00020d84 58 4f |XO | ADDQ.L #0x4,A7 00020d86 42 80 |B | CLR.L D0 00020d88 30 12 |0 | MOVE.W (A2),D0 00020d8a 2f 00 |/ | MOVE.L D0,-(A7) 00020d8c 4e ba f7 f6 |N | JSR Status2Text(a: Long) : String 00020d90 58 4f |XO | ADDQ.L #0x4,A7 00020d92 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020d98 50 4f |PO | ADDQ.L #0x8,A7 00020d9a 4e ba fd 46 |N F | JSR 0x20ae2 00020d9e de c6 | | ADDA.W D6,A7 00020da0 60 00 02 fa |` | BRA 0x2109c 00020da4 b0 07 | | CMP.B D7,D0 00020da6 67 42 |gB | BEQ 0x20dea 00020da8 9e fc 00 2c | , | SUBA.W #0x2c,A7 00020dac 20 4f | O | MOVEA.L A7,A0 00020dae 43 fa f4 e2 |C | LEA.L 0x20292,A1 00020db2 72 2a |r* | MOVEQ.L #0x2a,D1 00020db4 10 d9 | | MOVE.B (A1)+,(A0)+ 00020db6 51 c9 ff fc |Q | DBF D1,0x20db4 00020dba 51 4f |QO | SUBQ.L #0x8,A7 00020dbc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020dc0 3f 03 |? | MOVE.W D3,-(A7) 00020dc2 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7) 00020dc6 4e 93 |N | JSR (A3) 00020dc8 58 4f |XO | ADDQ.L #0x4,A7 00020dca 48 80 |H | EXTB.W D0 00020dcc 48 c0 |H | EXTW.L D0 00020dce 2f 00 |/ | MOVE.L D0,-(A7) 00020dd0 4e ba fb 10 |N | JSR 0x208e2 00020dd4 58 4f |XO | ADDQ.L #0x4,A7 00020dd6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020ddc 50 4f |PO | ADDQ.L #0x8,A7 00020dde 4e ba fd 02 |N | JSR 0x20ae2 00020de2 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020de6 60 00 02 b4 |` | BRA 0x2109c 00020dea 30 12 |0 | MOVE.W (A2),D0 00020dec b0 44 | D | CMP.W D4,D0 00020dee 62 00 02 74 |b t | BHI 0x21064 00020df2 d0 40 | @ | ADD.W D0,D0 00020df4 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020dfc 00 08 | | .CONST 0x8 ; [0x0] -> 0x20e04 00020dfe 00 1a | | .CONST 0x1a ; [0x1] -> 0x20e16 00020e00 00 42 | B | .CONST 0x42 ; [0x2] -> 0x20e3e 00020e02 01 70 | p | .CONST 0x170 ; [0x3] -> 0x20f6c 00020e04 switch@0x20df4[0x0]: 00020e04 42 27 |B' | CLR.B -(A7) 00020e06 48 78 00 01 |Hx | PEA.L 0x1 00020e0a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020e10 5c 4f |\O | ADDQ.L #0x6,A7 00020e12 60 00 02 88 |` | BRA 0x2109c 00020e16 switch@0x20df4[0x1]: 00020e16 41 fa f4 be |A | LEA.L 0x202d6,A0 00020e1a 70 05 |p | MOVEQ.L #0x05,D0 00020e1c 2f 20 |/ | MOVE.L -(A0),-(A7) 00020e1e 51 c8 ff fc |Q | DBF D0,0x20e1c 00020e22 59 4f |YO | SUBQ.L #0x4,A7 00020e24 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020e28 3f 03 |? | MOVE.W D3,-(A7) 00020e2a 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00020e2e 4e 93 |N | JSR (A3) 00020e30 50 4f |PO | ADDQ.L #0x8,A7 00020e32 4e ba fc ae |N | JSR 0x20ae2 00020e36 de fc 00 1c | | ADDA.W #0x1c,A7 00020e3a 60 00 02 60 |` ` | BRA 0x2109c 00020e3e switch@0x20df4[0x2]: 00020e3e 4e ba fd ce |N | JSR 0x20c0e 00020e42 3f 04 |? | MOVE.W D4,-(A7) 00020e44 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00020e48 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020e4e 5c 4f |\O | ADDQ.L #0x6,A7 00020e50 cb 6e ff f8 | n | AND.W D5,(A6-0x8) 00020e54 30 2e ff f8 |0. | MOVE.W (A6-0x8),D0 00020e58 e1 40 | @ | ASL.W #0x8,D0 00020e5a 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00020e5e 3f 04 |? | MOVE.W D4,-(A7) 00020e60 48 52 |HR | PEA.L (A2) 00020e62 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020e68 5c 4f |\O | ADDQ.L #0x6,A7 00020e6a 32 12 |2 | MOVE.W (A2),D1 00020e6c c2 45 | E | AND.W D5,D1 00020e6e 42 82 |B | CLR.L D2 00020e70 34 00 |4 | MOVE.W D0,D2 00020e72 42 80 |B | CLR.L D0 00020e74 30 01 |0 | MOVE.W D1,D0 00020e76 d0 82 | | ADD.L D2,D0 00020e78 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00020e7e 63 02 |c | BLS 0x20e82 00020e80 4e 4f |NO | TRAP #15 00020e82 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 00020e86 9e fc 00 38 | 8 | SUBA.W #0x38,A7 00020e8a 20 4f | O | MOVEA.L A7,A0 00020e8c 43 fa f4 b8 |C | LEA.L 0x20346,A1 00020e90 72 36 |r6 | MOVEQ.L #0x36,D1 00020e92 10 d9 | | MOVE.B (A1)+,(A0)+ 00020e94 51 c9 ff fc |Q | DBF D1,0x20e92 00020e98 59 4f |YO | SUBQ.L #0x4,A7 00020e9a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020e9e 3f 03 |? | MOVE.W D3,-(A7) 00020ea0 3f 3c 00 37 |?< 7 | MOVE.W #0x37,-(A7) 00020ea4 4e 93 |N | JSR (A3) 00020ea6 50 4f |PO | ADDQ.L #0x8,A7 00020ea8 4e ba f6 84 |N | JSR 0x2052e 00020eac de c6 | | ADDA.W D6,A7 00020eae 20 4f | O | MOVEA.L A7,A0 00020eb0 43 fa f4 cc |C | LEA.L 0x2037e,A1 00020eb4 72 16 |r | MOVEQ.L #0x16,D1 00020eb6 10 d9 | | MOVE.B (A1)+,(A0)+ 00020eb8 51 c9 ff fc |Q | DBF D1,0x20eb6 00020ebc 41 fa f4 ea |A | LEA.L 0x203a8,A0 00020ec0 72 08 |r | MOVEQ.L #0x08,D1 00020ec2 3f 20 |? | MOVE.W -(A0),-(A7) 00020ec4 51 c9 ff fc |Q | DBF D1,0x20ec2 00020ec8 51 4f |QO | SUBQ.L #0x8,A7 00020eca 48 6f 00 1a |Ho | PEA.L (A7+0x1a) 00020ece 3f 03 |? | MOVE.W D3,-(A7) 00020ed0 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00020ed4 4e 93 |N | JSR (A3) 00020ed6 58 4f |XO | ADDQ.L #0x4,A7 00020ed8 42 81 |B | CLR.L D1 00020eda 32 00 |2 | MOVE.W D0,D1 00020edc 2f 01 |/ | MOVE.L D1,-(A7) 00020ede 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020ee4 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00020ee8 3f 03 |? | MOVE.W D3,-(A7) 00020eea 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00020eee 4e 93 |N | JSR (A3) 00020ef0 50 4f |PO | ADDQ.L #0x8,A7 00020ef2 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020ef8 de fc 00 0c | | ADDA.W #0xc,A7 00020efc 4e ba f6 30 |N 0 | JSR 0x2052e 00020f00 de fc 00 0e | | ADDA.W #0xe,A7 00020f04 20 4f | O | MOVEA.L A7,A0 00020f06 43 fa f4 a0 |C | LEA.L 0x203a8,A1 00020f0a 72 1e |r | MOVEQ.L #0x1e,D1 00020f0c 10 d9 | | MOVE.B (A1)+,(A0)+ 00020f0e 51 c9 ff fc |Q | DBF D1,0x20f0c 00020f12 59 4f |YO | SUBQ.L #0x4,A7 00020f14 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020f18 3f 03 |? | MOVE.W D3,-(A7) 00020f1a 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00020f1e 4e 93 |N | JSR (A3) 00020f20 50 4f |PO | ADDQ.L #0x8,A7 00020f22 4e ba f6 0a |N | JSR 0x2052e 00020f26 de c6 | | ADDA.W D6,A7 00020f28 42 81 |B | CLR.L D1 00020f2a 32 00 |2 | MOVE.W D0,D1 00020f2c 2f 01 |/ | MOVE.L D1,-(A7) 00020f2e 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020f32 4e ba fc 9e |N | JSR 0x20bd2 00020f36 50 4f |PO | ADDQ.L #0x8,A7 00020f38 4a 2e ff fe |J. | TST.B (A6-0x2) 00020f3c 66 06 |f | BNE 0x20f44 00020f3e 4e ba fd 2c |N , | JSR 0x20c6c 00020f42 60 24 |`$ | BRA 0x20f68 00020f44 41 fa f4 00 |A | LEA.L 0x20346,A0 00020f48 70 0a |p | MOVEQ.L #0x0a,D0 00020f4a 3f 20 |? | MOVE.W -(A0),-(A7) 00020f4c 51 c8 ff fc |Q | DBF D0,0x20f4a 00020f50 59 4f |YO | SUBQ.L #0x4,A7 00020f52 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020f56 3f 03 |? | MOVE.W D3,-(A7) 00020f58 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 00020f5c 4e 93 |N | JSR (A3) 00020f5e 50 4f |PO | ADDQ.L #0x8,A7 00020f60 4e ba fb 80 |N | JSR 0x20ae2 00020f64 de fc 00 1a | | ADDA.W #0x1a,A7 00020f68 60 00 01 32 |` 2 | BRA 0x2109c 00020f6c switch@0x20df4[0x3]: 00020f6c 4e ba fc a0 |N | JSR 0x20c0e 00020f70 41 fa f4 92 |A | LEA.L 0x20404,A0 00020f74 70 0e |p | MOVEQ.L #0x0e,D0 00020f76 2f 20 |/ | MOVE.L -(A0),-(A7) 00020f78 51 c8 ff fc |Q | DBF D0,0x20f76 00020f7c 59 4f |YO | SUBQ.L #0x4,A7 00020f7e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020f82 3f 03 |? | MOVE.W D3,-(A7) 00020f84 3f 3c 00 3c |?< < | MOVE.W #0x3c,-(A7) 00020f88 4e 93 |N | JSR (A3) 00020f8a 50 4f |PO | ADDQ.L #0x8,A7 00020f8c 4e ba f5 a0 |N | JSR 0x2052e 00020f90 20 4f | O | MOVEA.L A7,A0 00020f92 43 fa f4 70 |C p | LEA.L 0x20404,A1 00020f96 70 3e |p> | MOVEQ.L #0x3e,D0 00020f98 10 d9 | | MOVE.B (A1)+,(A0)+ 00020f9a 51 c8 ff fc |Q | DBF D0,0x20f98 00020f9e 59 4f |YO | SUBQ.L #0x4,A7 00020fa0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020fa4 3f 03 |? | MOVE.W D3,-(A7) 00020fa6 3f 3c 00 3f |?< ? | MOVE.W #0x3f,-(A7) 00020faa 4e 93 |N | JSR (A3) 00020fac 50 4f |PO | ADDQ.L #0x8,A7 00020fae 4e ba f5 7e |N ~ | JSR 0x2052e 00020fb2 de fc 00 44 | D | ADDA.W #0x44,A7 00020fb6 3f 03 |? | MOVE.W D3,-(A7) 00020fb8 48 54 |HT | PEA.L (A4) 00020fba 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00020fc0 5c 4f |\O | ADDQ.L #0x6,A7 00020fc2 4a 14 |J | TST.B (A4) 00020fc4 67 38 |g8 | BEQ 0x20ffe 00020fc6 3f 03 |? | MOVE.W D3,-(A7) 00020fc8 48 52 |HR | PEA.L (A2) 00020fca 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020fd0 5c 4f |\O | ADDQ.L #0x6,A7 00020fd2 30 12 |0 | MOVE.W (A2),D0 00020fd4 02 40 00 7f | @ | ANDI.W #0x007f,D0 00020fd8 b0 44 | D | CMP.W D4,D0 00020fda 66 22 |f" | BNE 0x20ffe 00020fdc 41 fa f4 86 |A | LEA.L 0x20464,A0 00020fe0 70 07 |p | MOVEQ.L #0x07,D0 00020fe2 2f 20 |/ | MOVE.L -(A0),-(A7) 00020fe4 51 c8 ff fc |Q | DBF D0,0x20fe2 00020fe8 59 4f |YO | SUBQ.L #0x4,A7 00020fea 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020fee 3f 03 |? | MOVE.W D3,-(A7) 00020ff0 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 00020ff4 4e 93 |N | JSR (A3) 00020ff6 50 4f |PO | ADDQ.L #0x8,A7 00020ff8 4e ba fa e8 |N | JSR 0x20ae2 00020ffc de c6 | | ADDA.W D6,A7 00020ffe 3f 04 |? | MOVE.W D4,-(A7) 00021000 48 54 |HT | PEA.L (A4) 00021002 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00021008 5c 4f |\O | ADDQ.L #0x6,A7 0002100a 4a 14 |J | TST.B (A4) 0002100c 67 0c |g | BEQ 0x2101a 0002100e 3f 04 |? | MOVE.W D4,-(A7) 00021010 48 52 |HR | PEA.L (A2) 00021012 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00021018 5c 4f |\O | ADDQ.L #0x6,A7 0002101a 10 14 | | MOVE.B (A4),D0 0002101c b0 04 | | CMP.B D4,D0 0002101e 66 96 |f | BNE 0x20fb6 00021020 cb 52 | R | AND.W D5,(A2) 00021022 66 06 |f | BNE 0x2102a 00021024 4e ba fc 46 |N F | JSR 0x20c6c 00021028 60 38 |`8 | BRA 0x21062 0002102a 41 fa f2 e0 |A | LEA.L 0x2030c,A0 0002102e 70 1a |p | MOVEQ.L #0x1a,D0 00021030 3f 20 |? | MOVE.W -(A0),-(A7) 00021032 51 c8 ff fc |Q | DBF D0,0x21030 00021036 51 4f |QO | SUBQ.L #0x8,A7 00021038 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002103c 3f 03 |? | MOVE.W D3,-(A7) 0002103e 3f 3c 00 36 |?< 6 | MOVE.W #0x36,-(A7) 00021042 4e 93 |N | JSR (A3) 00021044 58 4f |XO | ADDQ.L #0x4,A7 00021046 42 80 |B | CLR.L D0 00021048 30 12 |0 | MOVE.W (A2),D0 0002104a 2f 00 |/ | MOVE.L D0,-(A7) 0002104c 4e ba f5 36 |N 6 | JSR Status2Text(a: Long) : String 00021050 58 4f |XO | ADDQ.L #0x4,A7 00021052 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021058 50 4f |PO | ADDQ.L #0x8,A7 0002105a 4e ba fa 86 |N | JSR 0x20ae2 0002105e de fc 00 3a | : | ADDA.W #0x3a,A7 00021062 60 38 |`8 | BRA 0x2109c 00021064 41 fa f2 ca |A | LEA.L 0x20330,A0 00021068 70 08 |p | MOVEQ.L #0x08,D0 0002106a 2f 20 |/ | MOVE.L -(A0),-(A7) 0002106c 51 c8 ff fc |Q | DBF D0,0x2106a 00021070 51 4f |QO | SUBQ.L #0x8,A7 00021072 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021076 3f 03 |? | MOVE.W D3,-(A7) 00021078 3f 06 |? | MOVE.W D6,-(A7) 0002107a 4e 93 |N | JSR (A3) 0002107c 58 4f |XO | ADDQ.L #0x4,A7 0002107e 42 80 |B | CLR.L D0 00021080 30 12 |0 | MOVE.W (A2),D0 00021082 2f 00 |/ | MOVE.L D0,-(A7) 00021084 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002108a 58 4f |XO | ADDQ.L #0x4,A7 0002108c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021092 50 4f |PO | ADDQ.L #0x8,A7 00021094 4e ba fa 4c |N L | JSR 0x20ae2 00021098 de fc 00 28 | ( | ADDA.W #0x28,A7 0002109c 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000210a0 4e 5e |N^ | UNLK A6 000210a2 4e 75 |Nu | RTS 000210a4 ; -------------------------------------------------------------------------------------- 000210a4 ; OMSI PASCAL Function 000210a4 ; <LVAR -0x004 @> 000210a4 ; -------------------------------------------------------------------------------------- 000210a4 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 000210a8 bf d5 | | CMPA.L (A5),A7 000210aa 62 06 |b | BHI 0x210b2 000210ac 44 fc 00 02 |D | MOVE.W #0x2,CCR 000210b0 4e 76 |Nv | TRAPV 000210b2 de fc 00 4a | J | ADDA.W #0x4a,A7 000210b6 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000210ba 41 fa f3 da |A | LEA.L 0x20496,A0 000210be 70 18 |p | MOVEQ.L #0x18,D0 000210c0 3f 20 |? | MOVE.W -(A0),-(A7) 000210c2 51 c8 ff fc |Q | DBF D0,0x210c0 000210c6 59 4f |YO | SUBQ.L #0x4,A7 000210c8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000210cc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000210d0 3f 3c 00 32 |?< 2 | MOVE.W #0x32,-(A7) 000210d4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000210da 50 4f |PO | ADDQ.L #0x8,A7 000210dc 4e ba f4 50 |N P | JSR 0x2052e 000210e0 de fc 00 34 | 4 | ADDA.W #0x34,A7 000210e4 3e bc 00 03 |> | MOVE.W #0x3,(A7) 000210e8 48 6e ff fc |Hn | PEA.L (A6-0x4) 000210ec 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 000210f2 5c 4f |\O | ADDQ.L #0x6,A7 000210f4 4e ba fb 76 |N v | JSR 0x20c6c 000210f8 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000210fc 4e 5e |N^ | UNLK A6 000210fe 4e 75 |Nu | RTS 00021100 ; -------------------------------------------------------------------------------------- 00021100 ; OMSI PASCAL Function 00021100 ; <LVAR -0x004 @ 2(rw)> 00021100 ; -------------------------------------------------------------------------------------- 00021100 4e 56 ff b6 |NV | LINK.W A6,#0xffb6 00021104 bf d5 | | CMPA.L (A5),A7 00021106 62 06 |b | BHI 0x2110e 00021108 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002110c 4e 76 |Nv | TRAPV 0002110e de fc 00 46 | F | ADDA.W #0x46,A7 00021112 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00021116 43 ee ff fc |C | LEA.L (A6-0x4),A1 0002111a 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 0002111e 48 51 |HQ | PEA.L (A1) 00021120 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00021126 5c 4f |\O | ADDQ.L #0x6,A7 00021128 02 51 00 ff | Q | ANDI.W #0x00ff,(A1) 0002112c 66 06 |f | BNE 0x21134 0002112e 4e ba fb 3c |N < | JSR 0x20c6c 00021132 60 3e |`> | BRA 0x21172 00021134 41 fa f3 86 |A | LEA.L 0x204bc,A0 00021138 70 12 |p | MOVEQ.L #0x12,D0 0002113a 3f 20 |? | MOVE.W -(A0),-(A7) 0002113c 51 c8 ff fc |Q | DBF D0,0x2113a 00021140 51 4f |QO | SUBQ.L #0x8,A7 00021142 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021146 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002114a 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 0002114e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021154 58 4f |XO | ADDQ.L #0x4,A7 00021156 42 80 |B | CLR.L D0 00021158 30 11 |0 | MOVE.W (A1),D0 0002115a 2f 00 |/ | MOVE.L D0,-(A7) 0002115c 4e ba f4 26 |N & | JSR Status2Text(a: Long) : String 00021160 58 4f |XO | ADDQ.L #0x4,A7 00021162 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021168 50 4f |PO | ADDQ.L #0x8,A7 0002116a 4e ba f9 76 |N v | JSR 0x20ae2 0002116e de fc 00 2a | * | ADDA.W #0x2a,A7 00021172 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021176 4e 5e |N^ | UNLK A6 00021178 4e 75 |Nu | RTS 0002117a ; -------------------------------------------------------------------------------------- 0002117a ; OMSI PASCAL Function 0002117a ; -------------------------------------------------------------------------------------- 0002117a ConnectingModem(): 0002117a 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 0002117e bf d5 | | CMPA.L (A5),A7 00021180 62 06 |b | BHI 0x21188 00021182 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021186 4e 76 |Nv | TRAPV 00021188 de fc 00 20 | | ADDA.W #0x20,A7 0002118c 2f 3a f3 3a |/: : | MOVE.L 0x204c8,-(A7) 00021190 2f 3a f3 32 |/: 2 | MOVE.L 0x204c4,-(A7) 00021194 2f 3a f3 2a |/: * | MOVE.L 0x204c0,-(A7) 00021198 2f 3a f3 22 |/: " | MOVE.L 0x204bc,-(A7) 0002119c 59 4f |YO | SUBQ.L #0x4,A7 0002119e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000211a2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000211a6 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 000211aa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000211b0 50 4f |PO | ADDQ.L #0x8,A7 000211b2 4e ba f3 7a |N z | JSR 0x2052e 000211b6 de fc 00 14 | | ADDA.W #0x14,A7 000211ba 48 78 00 03 |Hx | PEA.L 0x3 000211be 4e b9 00 01 03 f4 |N | JSR SetConsoleConfig(a : Long) 000211c4 58 4f |XO | ADDQ.L #0x4,A7 000211c6 4e ba fa a4 |N | JSR 0x20c6c 000211ca 4e 5e |N^ | UNLK A6 000211cc 4e 75 |Nu | RTS 000211ce ; -------------------------------------------------------------------------------------- 000211ce ; OMSI PASCAL Function 000211ce ; <LVAR -0x004 @ 1(r)> 000211ce ; -------------------------------------------------------------------------------------- 000211ce 4e 56 ff b4 |NV | LINK.W A6,#0xffb4 000211d2 bf d5 | | CMPA.L (A5),A7 000211d4 62 06 |b | BHI 0x211dc 000211d6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000211da 4e 76 |Nv | TRAPV 000211dc de fc 00 48 | H | ADDA.W #0x48,A7 000211e0 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 000211e4 72 03 |r | MOVEQ.L #0x03,D1 000211e6 59 4f |YO | SUBQ.L #0x4,A7 000211e8 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 000211ee 20 1f | | MOVE.L (A7)+,D0 000211f0 b0 81 | | CMP.L D1,D0 000211f2 67 08 |g | BEQ 0x211fc 000211f4 4e ba ff 84 |N | JSR ConnectingModem() 000211f8 60 00 00 98 |` | BRA 0x21292 000211fc 3f 01 |? | MOVE.W D1,-(A7) 000211fe 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021202 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00021208 5c 4f |\O | ADDQ.L #0x6,A7 0002120a 10 2e ff fc | . | MOVE.B (A6-0x4),D0 0002120e 48 80 |H | EXTB.W D0 00021210 0c 40 00 06 | @ | CMPI.W #0x0006,D0 00021214 63 02 |c | BLS 0x21218 00021216 4e 4e |NN | TRAP #14 00021218 d0 40 | @ | ADD.W D0,D0 0002121a 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00021222 00 0e | | .CONST 0xe ; [0x0] -> 0x21230 00021224 00 1e | | .CONST 0x1e ; [0x1] -> 0x21240 00021226 00 20 | | .CONST 0x20 ; [0x2] -> 0x21242 00021228 00 26 | & | .CONST 0x26 ; [0x3] -> 0x21248 0002122a 00 2c | , | .CONST 0x2c ; [0x4] -> 0x2124e 0002122c 00 3a | : | .CONST 0x3a ; [0x5] -> 0x2125c 0002122e 00 46 | F | .CONST 0x46 ; [0x6] -> 0x21268 00021230 switch@0x2121a[0x0]: 00021230 42 27 |B' | CLR.B -(A7) 00021232 48 78 00 01 |Hx | PEA.L 0x1 00021236 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002123c 5c 4f |\O | ADDQ.L #0x6,A7 0002123e 60 52 |`R | BRA 0x21292 00021240 switch@0x2121a[0x1]: 00021240 60 ee |` | BRA switch@0x2121a[0x0] 00021242 switch@0x2121a[0x2]: 00021242 4e ba fe 60 |N ` | JSR 0x210a4 00021246 60 4a |`J | BRA 0x21292 00021248 switch@0x2121a[0x3]: 00021248 4e ba fe b6 |N | JSR 0x21100 0002124c 60 44 |`D | BRA 0x21292 0002124e switch@0x2121a[0x4]: 0002124e 48 78 00 1c |Hx | PEA.L 0x1c 00021252 4e b9 00 01 02 20 |N | JSR KC10_Panic(code : Long) 00021258 58 4f |XO | ADDQ.L #0x4,A7 0002125a 60 36 |`6 | BRA 0x21292 0002125c switch@0x2121a[0x5]: 0002125c 48 78 00 01 |Hx | PEA.L 0x1 00021260 4e b9 00 01 03 f4 |N | JSR SetConsoleConfig(a : Long) 00021266 60 f0 |` | BRA 0x21258 00021268 switch@0x2121a[0x6]: 00021268 41 fa f2 c4 |A | LEA.L 0x2052e,A0 0002126c 70 0a |p | MOVEQ.L #0x0a,D0 0002126e 2f 20 |/ | MOVE.L -(A0),-(A7) 00021270 51 c8 ff fc |Q | DBF D0,0x2126e 00021274 59 4f |YO | SUBQ.L #0x4,A7 00021276 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002127a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002127e 3f 3c 00 2c |?< , | MOVE.W #0x2c,-(A7) 00021282 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021288 50 4f |PO | ADDQ.L #0x8,A7 0002128a 4e ba f8 56 |N V | JSR 0x20ae2 0002128e de fc 00 30 | 0 | ADDA.W #0x30,A7 00021292 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00021296 4e 5e |N^ | UNLK A6 00021298 4e 75 |Nu | RTS 0002129a ; -------------------------------------------------------------------------------------- 0002129a ; OMSI PASCAL Function 0002129a ; -------------------------------------------------------------------------------------- 0002129a START: 0002129a 4f fa 00 08 |O | LEA.L MAIN,A7 0002129e 4e f9 00 01 02 80 |N | JMP ?start_program 000212a4 MAIN: 000212a4 4e b9 00 01 03 98 |N | JSR FSCALL_10398 000212aa 4e ba ff 22 |N " | JSR 0x211ce 000212ae 4e b9 00 01 02 84 |N | JSR ?exit 000212b4 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 000212c2 ; -------------------------------------------------------------------------------------- 000212c2 ; OMSI PASCAL Function 000212c2 ; <LVAR 0x008 1(r)> 000212c2 ; -------------------------------------------------------------------------------------- 000212c2 PROG_FAIL: 000212c2 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 000212c6 bf d5 | | CMPA.L (A5),A7 000212c8 62 06 |b | BHI 0x212d0 000212ca 44 fc 00 02 |D | MOVE.W #0x2,CCR 000212ce 4e 76 |Nv | TRAPV 000212d0 de fc 00 2c | , | ADDA.W #0x2c,A7 000212d4 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000212d8 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 000212dc 70 06 |p | MOVEQ.L #0x06,D0 000212de 3f 20 |? | MOVE.W -(A0),-(A7) 000212e0 51 c8 ff fc |Q | DBF D0,0x212de 000212e4 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 000212e8 51 4f |QO | SUBQ.L #0x8,A7 000212ea 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000212ee 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000212f2 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000212f6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000212fc 58 4f |XO | ADDQ.L #0x4,A7 000212fe 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00021302 48 80 |H | EXTB.W D0 00021304 48 c0 |H | EXTW.L D0 00021306 2f 00 |/ | MOVE.L D0,-(A7) 00021308 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002130e 58 4f |XO | ADDQ.L #0x4,A7 00021310 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021316 50 4f |PO | ADDQ.L #0x8,A7 00021318 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002131e de fc 00 14 | | ADDA.W #0x14,A7 00021322 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00021326 4e 5e |N^ | UNLK A6 00021328 4e 75 |Nu | RTS 0002132a 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00021338 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00021346 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00021354 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00021366 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 0002137e ; -------------------------------------------------------------------------------------- 0002137e ; OMSI PASCAL Function 0002137e ; <LVAR 0x00e 1(r)> 0002137e ; <LVAR 0x00a 4(r)> 0002137e ; <LVAR 0x008 1(r)> 0002137e ; -------------------------------------------------------------------------------------- 0002137e EXP_FAIL: 0002137e 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00021382 bf d5 | | CMPA.L (A5),A7 00021384 62 06 |b | BHI 0x2138c 00021386 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002138a 4e 76 |Nv | TRAPV 0002138c de fc 00 74 | t | ADDA.W #0x74,A7 00021390 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00021394 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 0002139a 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 000213a0 72 01 |r | MOVEQ.L #0x01,D1 000213a2 74 0d |t | MOVEQ.L #0x0d,D2 000213a4 76 1e |v | MOVEQ.L #0x1e,D3 000213a6 78 12 |x | MOVEQ.L #0x12,D4 000213a8 7a 0e |z | MOVEQ.L #0x0e,D5 000213aa 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000213b0 41 fa ff b4 |A | LEA.L 0x21366,A0 000213b4 70 08 |p | MOVEQ.L #0x08,D0 000213b6 3f 20 |? | MOVE.W -(A0),-(A7) 000213b8 51 c8 ff fc |Q | DBF D0,0x213b6 000213bc 59 4f |YO | SUBQ.L #0x4,A7 000213be 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000213c2 3f 01 |? | MOVE.W D1,-(A7) 000213c4 3f 04 |? | MOVE.W D4,-(A7) 000213c6 4e 93 |N | JSR (A3) 000213c8 50 4f |PO | ADDQ.L #0x8,A7 000213ca 4e 94 |N | JSR (A4) 000213cc 50 4f |PO | ADDQ.L #0x8,A7 000213ce 20 4f | O | MOVEA.L A7,A0 000213d0 43 fa ff 58 |C X | LEA.L 0x2132a,A1 000213d4 70 0c |p | MOVEQ.L #0x0c,D0 000213d6 10 d9 | | MOVE.B (A1)+,(A0)+ 000213d8 51 c8 ff fc |Q | DBF D0,0x213d6 000213dc 51 4f |QO | SUBQ.L #0x8,A7 000213de 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000213e2 3f 01 |? | MOVE.W D1,-(A7) 000213e4 3f 02 |? | MOVE.W D2,-(A7) 000213e6 4e 93 |N | JSR (A3) 000213e8 54 4f |TO | ADDQ.L #0x2,A7 000213ea 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000213ee 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000213f4 54 4f |TO | ADDQ.L #0x2,A7 000213f6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000213fc 50 4f |PO | ADDQ.L #0x8,A7 000213fe 4e 94 |N | JSR (A4) 00021400 de c4 | | ADDA.W D4,A7 00021402 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00021406 b0 c1 | | CMPA.W D1,A0 00021408 67 48 |gH | BEQ 0x21452 0002140a 9e c5 | | SUBA.W D5,A7 0002140c 22 4f |"O | MOVEA.L A7,A1 0002140e 45 fa ff 28 |E ( | LEA.L 0x21338,A2 00021412 70 0c |p | MOVEQ.L #0x0c,D0 00021414 12 da | | MOVE.B (A2)+,(A1)+ 00021416 51 c8 ff fc |Q | DBF D0,0x21414 0002141a 9e c3 | | SUBA.W D3,A7 0002141c 22 4f |"O | MOVEA.L A7,A1 0002141e 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00021422 70 1d |p | MOVEQ.L #0x1d,D0 00021424 12 d8 | | MOVE.B (A0)+,(A1)+ 00021426 51 c8 ff fc |Q | DBF D0,0x21424 0002142a 51 4f |QO | SUBQ.L #0x8,A7 0002142c 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00021430 3f 01 |? | MOVE.W D1,-(A7) 00021432 3f 02 |? | MOVE.W D2,-(A7) 00021434 4e 93 |N | JSR (A3) 00021436 58 4f |XO | ADDQ.L #0x4,A7 00021438 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002143c 3f 01 |? | MOVE.W D1,-(A7) 0002143e 3f 03 |? | MOVE.W D3,-(A7) 00021440 4e 93 |N | JSR (A3) 00021442 50 4f |PO | ADDQ.L #0x8,A7 00021444 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002144a 50 4f |PO | ADDQ.L #0x8,A7 0002144c 4e 94 |N | JSR (A4) 0002144e de fc 00 30 | 0 | ADDA.W #0x30,A7 00021452 9e c5 | | SUBA.W D5,A7 00021454 20 4f | O | MOVEA.L A7,A0 00021456 43 fa fe ee |C | LEA.L 0x21346,A1 0002145a 70 0c |p | MOVEQ.L #0x0c,D0 0002145c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002145e 51 c8 ff fc |Q | DBF D0,0x2145c 00021462 51 4f |QO | SUBQ.L #0x8,A7 00021464 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021468 3f 01 |? | MOVE.W D1,-(A7) 0002146a 3f 02 |? | MOVE.W D2,-(A7) 0002146c 4e 93 |N | JSR (A3) 0002146e 54 4f |TO | ADDQ.L #0x2,A7 00021470 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00021474 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 0002147a 54 4f |TO | ADDQ.L #0x2,A7 0002147c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021482 50 4f |PO | ADDQ.L #0x8,A7 00021484 4e 94 |N | JSR (A4) 00021486 5d 4f |]O | SUBQ.L #0x6,A7 00021488 20 4f | O | MOVEA.L A7,A0 0002148a 43 fa fe da |C | LEA.L 0x21366,A1 0002148e 70 16 |p | MOVEQ.L #0x16,D0 00021490 10 d9 | | MOVE.B (A1)+,(A0)+ 00021492 51 c8 ff fc |Q | DBF D0,0x21490 00021496 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002149a 59 4f |YO | SUBQ.L #0x4,A7 0002149c 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000214a0 3f 01 |? | MOVE.W D1,-(A7) 000214a2 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000214a6 4e 93 |N | JSR (A3) 000214a8 50 4f |PO | ADDQ.L #0x8,A7 000214aa 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000214b0 de c3 | | ADDA.W D3,A7 000214b2 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 000214b6 4e 5e |N^ | UNLK A6 000214b8 4e 75 |Nu | RTS