|
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: 6144 (0x1800)
Types: M200
Notes: M200_PROGRAM
Names: »FIXPAD.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »FIXPAD.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »FIXPAD.M200«
└─ ⟦this⟧ »FIXPAD.M200«
@ 20538
<LVAR 0x008 @ 4(r)>
<POP 20538-2058e Body>
<POP 20538-2054e Prologue> Σ0 ↓
<POP 2054e-20552 RegCacheLoad> Σ0 ↓
<POP 20552-20586 Naked> Σ0 ↓
<MI 20552 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Const 0x20554 0xa.2> Δ-2 {[4, '(A6+0x8)']|[#10]}
<Call 0x20558 0x102c0> {[4, '(A6+0x8)']|[#10]}
AppendChar(MOD b : String; a : char)
<POP 2055e-20560 StackAdj> Δ+2 {[4, '(A6+0x8)']}
<MI 20560 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x20562 0xd.2> Δ-2 {[4, '(A6+0x8)']|[#13]}
<Call 0x20566 0x102c0> {[4, '(A6+0x8)']|[#13]}
AppendChar(MOD b : String; a : char)
<POP 2056c-2056e StackAdj> Δ+4 {[-2-]}
<POP 2056e-2056f StackAdj> Δ+2 {}
<Const 0x2056f 0x1.2> Δ-2 {[#1]}
<MI 20572 MOVE.L (A6+0x8),-(A7)> Δ-4 {[#1]|[4, '(A6+0x8)']}
<Call 0x20574 0x1020a> {[#1]|[4, '(A6+0x8)']}
KC05_Write_Console_String(port : Word ; str : String)
<POP 2057a-2057c StackAdj> Δ+6 {}
<Pointer.fp 0x2057c <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x2057e 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 20584-20586 StackAdj> Δ+4 {}
<POP 20586-2058e Epilogue> Σ0
@ 2058e
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 2058e-208fe Body> Δ+50
<POP 2058e-205a4 Prologue> Σ0 ↓
<POP 205a4-205b8 RegCacheLoad> Σ0 ↓
<POP 205b8-205c6 Naked> Σ0 ↓ →0x208be
<MI 205b8 MOVE.L (A6+0x8),D0> {}
<MI 205bc CMPI.L #0x000000ff,D0> {}
<MI 205c2 BHI 0x208be> {}
<POP 205c6-205d0 Naked> Σ0 →0x207d0 →0x207f0 →0x20818 →0x2083a →0x2085c →0x20882 →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208be →0x208ac
<MI 205c6 ADD.W D0,D0> {}
<MI 205c8 SWITCH D0.W> {}
<POP 207d0-207ec Naked> Σ0 Δ-32 →0x208ec ←0x205c6
<Blob 0x207d0 [20] @> Δ-20 {[«20""»]}
<POP 207e0-207e2 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x207e2 19> {[«20""»]|[$$Connection complete]}
<MI 207ec BRA 0x208ec> {[«20""»]|[$$Connection complete]}
<POP 207ea-207ec StackAdj> Δ-8 {[«20""»]|[$$Connection complete]|[-8-]}
<POP 207f0-20818 Naked> Σ0 →0x208f2 ←0x205c6
<Blob 0x207f0 [30] @> Δ-30 {[«30""»]}
<POP 20800-20802 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x20802 29> {[«30""»]|[$$Auto-Dialer call to MV failed]}
<MI 20810 MOVEA.L (A7)+,A4> Δ+4 {[«30""»]}
<POP 20812-20814 StackAdj> Δ+30 {}
<MI 20814 BRA 0x208f2> {}
<POP 20818-2083a Naked> Σ0 →0x208f2 ←0x205c6
<Blob 0x20818 [34] @> Δ-34 {[«34""»]}
<POP 20824-20826 StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x20826 34> {[«34""»]|[$$PAD is disconnected or powered off]}
<MI 20832 MOVEA.L (A7)+,A4> Δ+4 {[«34""»]}
<POP 20834-20836 StackAdj> Δ+34 {}
<MI 20836 BRA 0x208f2> {}
<POP 2083a-2085c Naked> Σ0 →0x208f2 ←0x205c6
<Blob 0x2083a [36] @> Δ-36 {[«36""»]}
<POP 20846-20848 StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x20848 36> {[«36""»]|[$$PAD connection to Auto-Dialer failed]}
<MI 20854 MOVEA.L (A7)+,A4> Δ+4 {[«36""»]}
<POP 20856-20858 StackAdj> Δ+36 {}
<MI 20858 BRA 0x208f2> {}
<POP 2085c-2086c Naked> Σ0 Δ-18 ↓ ←0x205c6
<Blob 0x2085c [18] @> Δ-18 {[«18""»]}
<POP 2086c-20882 Naked> Σ-18 Δ+18 →0x208f2 ←0x208ac
<POP 2086c-2086e StackAdj> Δ-4 {[-22-]}
<Lit 0x2086e> {[-18-]|[$$…]}
<Pointer.sp 0x2086e 4> Δ-4
<Const 0x20872 0x1.2> Δ-2
<Const 0x20874 0x11.2> Δ-2
<Call 0x20878 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2087a-2087c StackAdj> Δ+8
<MI 2087c MOVEA.L (A7)+,A4> Δ+4 {[-18-]}
<POP 2087e-20880 StackAdj> Δ+18 {}
<MI 20880 BRA 0x208f2> {}
<POP 20882-208ac Naked> Σ0 →0x208f2 ←0x205c6
<Blob 0x20882 [28] @> Δ-28 {[«28""»]}
<POP 20894-20896 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x20896 27> {[«28""»]|[$$No PAD or dial-out disabled]}
<MI 208a4 MOVEA.L (A7)+,A4> Δ+4 {[«28""»]}
<POP 208a6-208aa StackAdj> Δ+28 {}
<MI 208aa BRA 0x208f2> {}
<POP 208ac-208be Naked> Σ0 Δ-18 →0x2086c ←0x205c6
<Blob 0x208ac [18] @> Δ-18 {[«18""»]}
<MI 208bc BRA 0x2086c> {[«18""»]}
<POP 208be-208ec Naked> Σ0 Δ-32 ↓ ←0x205b8 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6 ←0x205c6
<Blob 0x208be [20] @> Δ-20 {[«20""»]}
<POP 208ce-208d0 StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x208d0 19> {[«20""»]|[-4-]|[$$Unknown encoding =>]}
<MI 208da MOVE.L (A6+0x8),(A7)> {[«20""»]|[-4-]|[4, '(A6+0x8)']}
<POP 208d8-208da StackAdj> Δ-8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Call 0x208de 0x102e4> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
Long2String(a : Long) : String
<POP 208e4-208e6 StackAdj> Δ+4 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x208e6 0x102d0> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 208ec-208f2 Naked> Σ-32 Δ+32 ↓ ←0x207d0
<POP 208ec-208ee StackAdj> Δ+8 {[-24-]}
<MI 208ee MOVEA.L (A7)+,A4> Δ+4 {[-20-]}
<POP 208f0-208f2 StackAdj> Δ+20 {}
<POP 208f2-208f6 Naked> Σ0 ↓ ←0x207f0 ←0x20818 ←0x2083a ←0x2086c ←0x20882
<MI 208f2 MOVE.L A4,(A6+0xc)> {}
<POP 208f6-208fe Epilogue> Σ0
@ 208fe
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 208fe-20a88 Body> Δ+16
<POP 208fe-20914 Prologue> Σ0 ↓
<POP 20914-20928 RegCacheLoad> Σ0 ↓
<POP 20928-20936 Naked> Σ0 ↓ →0x20a42
<MI 20928 MOVE.L (A6+0x8),D0> {}
<MI 2092c CMPI.L #0x00000006,D0> {}
<MI 20932 BHI 0x20a42> {}
<POP 20936-20940 Naked> Σ0 →0x2094e →0x20976 →0x2099e →0x209c0 →0x209e8 →0x209fc →0x20a22
<MI 20936 ADD.W D0,D0> {}
<MI 20938 SWITCH D0.W> {}
<POP 2094e-2095e Naked> Σ0 Δ-16 ↓ ←0x20936
<Blob 0x2094e [16] @> Δ-16 {[«16""»]}
<POP 2095e-20976 Naked> Σ-16 Δ+16 →0x20a7c ←0x209e8
<POP 2095e-20960 StackAdj> Δ-4 {[-20-]}
<Lit 0x20960> {[-16-]|[$$…]}
<Pointer.sp 0x20960 4> Δ-4
<Const 0x20964 0x1.2> Δ-2
<Const 0x20966 0xf.2> Δ-2
<Call 0x2096a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2096c-2096e StackAdj> Δ+8
<MI 2096e MOVEA.L (A7)+,A4> Δ+4 {[-16-]}
<POP 20970-20972 StackAdj> Δ+16 {}
<MI 20972 BRA 0x20a7c> {}
<POP 20976-2099e Naked> Σ0 →0x20a7c ←0x20936
<Blob 0x20976 [18] @> Δ-18 {[«18""»]}
<POP 20986-20988 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20988 17> {[«18""»]|[$$Data byte present]}
<MI 20996 MOVEA.L (A7)+,A4> Δ+4 {[«18""»]}
<POP 20998-2099a StackAdj> Δ+18 {}
<MI 2099a BRA 0x20a7c> {}
<POP 2099e-209c0 Naked> Σ0 →0x20a7c ←0x20936
<Blob 0x2099e [4] @> Δ-4 {[«4""»]}
<Blob 0x209a2 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x209a6 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 209aa-209ac StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x209ac 12> {[«4""»]|[«4""»]|[«4""»]|[$$Disconnected]}
<MI 209b8 MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]|[«4""»]}
<POP 209ba-209bc StackAdj> Δ+12 {}
<MI 209bc BRA 0x20a7c> {}
<POP 209c0-209e8 Naked> Σ0 →0x20a7c ←0x20936
<Blob 0x209c0 [10] @> Δ-10 {[«10""»]}
<POP 209d0-209d2 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x209d2 9> {[«10""»]|[$$Connected]}
<MI 209e0 MOVEA.L (A7)+,A4> Δ+4 {[«10""»]}
<POP 209e2-209e4 StackAdj> Δ+10 {}
<MI 209e4 BRA 0x20a7c> {}
<POP 209e8-209fc Naked> Σ0 Δ-16 →0x2095e ←0x20936
<Blob 0x209e8 [16] @> Δ-16 {[«16""»]}
<MI 209f8 BRA 0x2095e> {[«16""»]}
<POP 209fc-20a22 Naked> Σ0 →0x20a7c ←0x20936
<Blob 0x209fc [26] @> Δ-26 {[«26""»]}
<POP 20a0c-20a0e StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x20a0e 25> {[«26""»]|[$$Disconnect packet arrival]}
<MI 20a1c MOVEA.L (A7)+,A4> Δ+4 {[«26""»]}
<POP 20a1e-20a20 StackAdj> Δ+26 {}
<MI 20a20 BRA 0x20a7c> {}
<POP 20a22-20a42 Naked> Σ0 →0x20a7c ←0x20936
<Blob 0x20a22 [22] @> Δ-22 {[«22""»]}
<POP 20a2e-20a30 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x20a30 22> {[«22""»]|[$$Connect packet arrival]}
<MI 20a3c MOVEA.L (A7)+,A4> Δ+4 {[«22""»]}
<POP 20a3e-20a40 StackAdj> Δ+22 {}
<MI 20a40 BRA 0x20a7c> {}
<POP 20a42-20a7c Naked> Σ0 ↓ ←0x20928
<Blob 0x20a42 [20] @> Δ-20 {[«20""»]}
<POP 20a54-20a56 StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x20a56 19> {[«20""»]|[-4-]|[$$Unknown encoding =>]}
<MI 20a62 MOVE.L (A6+0x8),(A7)> {[«20""»]|[-4-]|[4, '(A6+0x8)']}
<POP 20a60-20a62 StackAdj> Δ-8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Call 0x20a66 0x102e4> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
Long2String(a : Long) : String
<POP 20a6c-20a6e StackAdj> Δ+4 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x20a6e 0x102d0> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 20a74-20a76 StackAdj> Δ+8 {[«20""»]|[-4-]}
<MI 20a76 MOVEA.L (A7)+,A4> Δ+4 {[«20""»]}
<POP 20a78-20a7c StackAdj> Δ+20 {}
<POP 20a7c-20a80 Naked> Σ0 ↓ ←0x2095e ←0x20976 ←0x2099e ←0x209c0 ←0x209fc ←0x20a22
<MI 20a7c MOVE.L A4,(A6+0xc)> {}
<POP 20a80-20a88 Epilogue> Σ0
@ 20a88
<LVAR 0x008 1(w)>
<LVAR -0x004 @ 1(r)>
<POP 20a88-20ac8 Body>
<POP 20a88-20a9e Prologue> Σ0 ↓
<POP 20a9e-20aa2 RegCacheLoad> Σ0 ↓
<POP 20aa2-20ab4 Naked> Σ0 ↓ →0x20aa2 ←0x20aa2
<Const 0x20aa2 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20aa6 <LVAR -0x004 @ 1(r)>> Δ-4 {[#3]|[@@-4]}
<Call 0x20aa8 0x10212> {[#3]|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 20aae-20ab0 StackAdj> Δ+6 {}
<MI 20ab0 TST.B (A6-0x4)> {}
<MI 20ab2 BEQ 0x20aa2> {}
<POP 20ab4-20ac0 Naked> Σ0 ↓
<MI 20ab4 MOVE.B (A6-0x4),D0> {}
<MI 20ab6 EXTB.W D0> {}
<POP 0x20ab8 LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 20abc MOVE.B D0,(A6+0x8)> {}
<POP 20ac0-20ac8 Epilogue> Σ0
@ 20ac8
<LVAR 0x00c 2(w)>
<LVAR 0x008 4(r)>
<POP 20ac8-20afe Body>
<POP 20ac8-20ade Prologue> Σ0 ↓
<POP 20ade-20af6 Naked> Σ0 ↓
<POP 20ade-20ae0 StackAdj> Δ-2 {[-2-]}
<MI 20ae0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x8)']}
<Call 0x20ae4 0x10592> {[-2-]|[4, '(A6+0x8)']}
ReadConfig(where : Long) : Word
<POP 20aea-20aec StackAdj> Δ+4 {[-2-]}
<MI 20aec MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x20aee LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20af2 MOVE.W D0,(A6+0xc)> {}
<POP 20af6-20afe Epilogue> Σ0
@ 20afe
<LVAR 0x008 4(r)>
<POP 20afe-20b70 Body>
<POP 20afe-20b14 Prologue> Σ0 ↓
<POP 20b14-20b68 Naked> Σ0 ↓
<Const 0x20b14 0x1.4> Δ-4 {[##1]}
<Call 0x20b18 0x103f4> {[##1]}
SetConsoleConfig(a : Long)
<MI 20b1e MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Call 0x20b22 0x103e0> {[4, '(A6+0x8)']}
WriteConsoleStringCrLf(str : String)
<POP 20b28-20b29 StackAdj> Δ+4 ↓ {}
<Blob 0x20b29 [30] @> Δ-30 {[«30""»]}
<POP 20b3a-20b3c StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x20b3c 29> {[«30""»]|[$$Abandoning remote connection.]}
<Call 0x20b50 0x103e0> {[«30""»]|[$$Abandoning remote connection.]}
WriteConsoleStringCrLf(str : String)
<POP 20b56-20b5a StackAdj> Δ+32 {[-2-]}
<MI 20b5a CLR.B (A7)> {[-2-]}
<Const 0x20b5c 0x1.4> Δ-4 {[-2-]|[##1]}
<Call 0x20b60 0x103b8> {[-2-]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20b66-20b68 StackAdj> Δ+6 {}
<POP 20b68-20b70 Epilogue> Σ0
@ 20b70
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 2(r)>
<LVAR -0x004 @ 1(r)>
<POP 20b70-20bee Body> Δ-4
<POP 20b70-20b86 Prologue> Σ0 ↓
<POP 20b86-20b88 RegCacheLoad> Σ0 ↓
<POP 20b88-20b94 Naked> Σ0 Δ-4 ↓
<MI 20b88 MOVEA.L (A6+0x8),A0> {}
<MI 20b8c CLR.B (A0)> {}
<MI 20b8e MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 20b92 MOVEQ.L #0x01,D6> {[4, '(A6+0xc)']}
<POP 20b94-20b98 Naked> Σ-4 ↓ →0x20be4 ←0x20be0
<MI 20b94 CMP.L (A7),D6> {[-4-]}
<MI 20b96 BGT 0x20be4> {[-4-]}
<POP 20b98-20b9a Naked> Σ-4 ↓
<MI 20b98 MOVEQ.L #0x01,D7> {[-4-]}
<POP 20b9a-20bb0 Naked> Σ-4 ↓ →0x20bd6 ←0x20bd6
<Const 0x20b9a 0x1.2> Δ-2 {[-4-]|[#1]}
<Pointer.fp 0x20b9c <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[#1]|[@@-4]}
<Call 0x20ba0 0x10212> {[-4-]|[#1]|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 20ba6-20ba8 StackAdj> Δ+6 {[-4-]}
<MI 20ba8 MOVE.B (A6-0x4),D0> {[-4-]}
<MI 20bac CMP.B #0x01,D0> {[-4-]}
<MI 20bae BNE 0x20bd6> {[-4-]}
<POP 20bb0-20bcc Naked> Σ-4 ↓ →0x20bd6
<Const 0x20bb0 0x1.2> Δ-2 {[-4-]|[#1]}
<Pointer.fp 0x20bb2 <LVAR -0x002 @ 2(r)>> Δ-4 {[-4-]|[#1]|[@@-2]}
<Call 0x20bb6 0x1020e> {[-4-]|[#1]|[@@-2]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20bbc-20bbe StackAdj> Δ+6 {[-4-]}
<MI 20bbe MOVE.W (A6-0x2),D0> {[-4-]}
<MI 20bc2 ANDI.W #0x00ff,D0> {[-4-]}
<MI 20bc6 CMPI.W #0x0003,D0> {[-4-]}
<MI 20bca BNE 0x20bd6> {[-4-]}
<POP 20bcc-20bd6 Naked> Σ-4 Δ+4 →0x20be6
<MI 20bcc MOVEA.L (A6+0x8),A0> {[-4-]}
<MI 20bd0 MOVE.B #0x01,(A0)> {[-4-]}
<POP 20bd2-20bd4 StackAdj> Δ+4 {}
<MI 20bd4 BRA 0x20be6> {}
<POP 20bd6-20be0 Naked> Σ-4 ↓ →0x20b9a ←0x20b9a ←0x20bb0
<MI 20bd6 ADDQ.L #0x1,D7> {[-4-]}
<MI 20bd8 CMPI.L #0x000003e8,D7> {[-4-]}
<MI 20bde BLE 0x20b9a> {[-4-]}
<POP 20be0-20be4 Naked> Σ-4 ↓ →0x20b94
<MI 20be0 ADDQ.L #0x1,D6> {[-4-]}
<MI 20be2 BVC 0x20b94> {[-4-]}
<POP 20be4-20be6 Naked> Σ-4 Δ+4 ↓ ←0x20b94
<POP 20be4-20be6 StackAdj> Δ+4 {}
<POP 20be6-20bee Epilogue> Σ0 ←0x20bcc
@ 20bee
<LVAR 0x00c 4(rw)>
<LVAR 0x008 4(r)>
<POP 20bee-20c2a Body>
<POP 20bee-20c04 Prologue> Σ0 ↓
<POP 20c04-20c1c Naked> Σ0 ↓ →0x20c22 ←0x20c1c
<MI 20c04 MOVEA.L (A6+0x8),A0> {}
<Const 0x20c08 0x3c.4> Δ-4 {[##60]}
<MI 20c0c PEA.L (A0)> Δ-4 {[##60]|[4, '^(A0)']}
<Call 0x20c0e 0x20b70> {[##60]|[4, '^(A0)']}
<POP 20c12-20c14 StackAdj> Δ+8 {}
<MI 20c14 SUBQ.L #0x1,(A6+0xc)> {}
<MI 20c18 TST.B (A0)> {}
<MI 20c1a BNE 0x20c22> {}
<POP 20c1c-20c22 Naked> Σ0 ↓ →0x20c04
<MI 20c1c TST.L (A6+0xc)> {}
<MI 20c20 BNE 0x20c04> {}
<POP 20c22-20c2a Epilogue> Σ0 ←0x20c04
@ 20c2a
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 20c2a-20d16 Body>
<POP 20c2a-20c40 Prologue> Σ0 ↓
<POP 20c40-20c4c RegCacheLoad> Σ0 ↓
<POP 20c4c-20cd0 Naked> Σ0 ↓ →0x20cde
<Const 0x20c4c 0x1.4> Δ-4 {[##1]}
<Call 0x20c50 0x103f4> {[##1]}
SetConsoleConfig(a : Long)
<POP 20c56-20c58 StackAdj> Δ+4 {}
<Blob 0x20c58 [30] @> Δ-30 {[«30""»]}
<POP 20c64-20c66 StackAdj> Δ-8 {[«30""»]|[-8-]}
<Lit 0x20c66 30> {[«30""»]|[-4-]|[$$Cannot connect PAD, Status =>_]}
<MI 20c76 MOVE.L (A6+0x8),(A7)> {[«30""»]|[-4-]|[4, '(A6+0x8)']}
<POP 20c70-20c76 StackAdj> Δ-8 {[«30""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Call 0x20c7a 0x2058e> {[«30""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<POP 20c7e-20c80 StackAdj> Δ+4 {[«30""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x20c80 0x102d0> {[«30""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 20c86-20c88 StackAdj> Δ+8 {[«30""»]|[-4-]}
<Call 0x20c88 0x103e0> {[«30""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20c8e-20c8f StackAdj> Δ+34 ↓ {}
<Blob 0x20c8f [40] @> Δ-40 {[«40""»]}
<POP 20c9e-20ca0 StackAdj> Δ-4 {[«40""»]|[-4-]}
<Lit 0x20ca0 39> {[«40""»]|[$$Retrying remote connection in 1 minute.]}
<Call 0x20cb2 0x103e0> {[«40""»]|[$$Retrying remote connection in 1 minute.]}
WriteConsoleStringCrLf(str : String)
<POP 20cb8-20cbc StackAdj> Δ+44 {}
<Const 0x20cbc 0x25.4> Δ-4 {[##37]}
<Pointer.fp 0x20cc0 <LVAR -0x004 @ 1(r)>> Δ-4 {[##37]|[@@-4]}
<Call 0x20cc4 0x20bee> {[##37]|[@@-4]}
<POP 20cc8-20cca StackAdj> Δ+8 {}
<MI 20cca TST.B (A6-0x4)> {}
<MI 20cce BEQ 0x20cde> {}
<POP 20cd0-20cde Naked> Σ0 ↓
<MI 20cd0 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x20cd2 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x20cd6 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20cdc-20cde StackAdj> Δ+6 {}
<POP 20cde-20ce0 Naked> Σ0 ↓ ←0x20c4c
<MI 20cde MOVEQ.L #0x01,D7> {}
<POP 20ce0-20d0e Naked> Σ0 ↓ →0x20ce0 ←0x20ce0
<Const 0x20ce0 0x1b.2> Δ-2 {[#27]}
<Call 0x20ce2 0x103d0> {[#27]}
WriteConsoleChar(chr : char)
<POP 20ce4-20ce5 StackAdj> Δ+2 {}
<Const 0x20ce5 0x5b.2> Δ-2 {[#91]}
<Call 0x20ce6 0x103d0> {[#91]}
WriteConsoleChar(chr : char)
<POP 20ce8-20ce9 StackAdj> Δ+2 {}
<Const 0x20ce9 0x31.2> Δ-2 {[#49]}
<Call 0x20cec 0x103d0> {[#49]}
WriteConsoleChar(chr : char)
<POP 20cee-20cef StackAdj> Δ+2 {}
<Const 0x20cef 0x41.2> Δ-2 {[#65]}
<Call 0x20cf2 0x103d0> {[#65]}
WriteConsoleChar(chr : char)
<POP 20cf4-20cf5 StackAdj> Δ+2 {}
<Const 0x20cf5 0x1b.2> Δ-2 {[#27]}
<Call 0x20cf6 0x103d0> {[#27]}
WriteConsoleChar(chr : char)
<POP 20cf8-20cf9 StackAdj> Δ+2 {}
<Const 0x20cf9 0x5b.2> Δ-2 {[#91]}
<Call 0x20cfa 0x103d0> {[#91]}
WriteConsoleChar(chr : char)
<POP 20cfc-20cfd StackAdj> Δ+2 {}
<Const 0x20cfd 0x4b.2> Δ-2 {[#75]}
<Call 0x20d00 0x103d0> {[#75]}
WriteConsoleChar(chr : char)
<POP 20d02-20d04 StackAdj> Δ+2 {}
<MI 20d04 ADDQ.L #0x1,D7> {}
<MI 20d06 CMPI.L #0x00000003,D7> {}
<MI 20d0c BLE 0x20ce0> {}
<POP 20d0e-20d16 Epilogue> Σ0
@ 20d16
<LVAR -0x004 @>
<LVAR -0x006 @>
<LVAR -0x008 @ 1(r)>
<POP 20d16-20d74 Body>
<POP 20d16-20d2c Prologue> Σ0 ↓
<POP 20d2c-20d32 RegCacheLoad> Σ0 ↓
<POP 20d32-20d46 Naked> Σ0 ↓
<Call 0x20d32 0x10216> {}
KC0b
<Const 0x20d38 0x5.4> Δ-4 {[##5]}
<Pointer.fp 0x20d3c <LVAR -0x004 @>> Δ-4 {[##5]|[@@-4]}
<Call 0x20d40 0x20b70> {[##5]|[@@-4]}
<POP 20d44-20d46 StackAdj> Δ+8 {}
<POP 20d46-20d56 Naked> Σ0 ↓ →0x20d64 ←0x20d64
<Const 0x20d46 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20d48 <LVAR -0x008 @ 1(r)>> Δ-4 {[#3]|[@@-8]}
<Call 0x20d4a 0x10212> {[#3]|[@@-8]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 20d50-20d52 StackAdj> Δ+6 {}
<MI 20d52 TST.B (A6-0x8)> {}
<MI 20d54 BEQ 0x20d64> {}
<POP 20d56-20d64 Naked> Σ0 ↓
<Const 0x20d56 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20d58 <LVAR -0x006 @>> Δ-4 {[#3]|[@@-6]}
<Call 0x20d5c 0x1020e> {[#3]|[@@-6]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20d62-20d64 StackAdj> Δ+6 {}
<POP 20d64-20d6c Naked> Σ0 ↓ →0x20d46 ←0x20d46
<MI 20d64 MOVE.B (A6-0x8),D0> {}
<MI 20d66 CMPI.B #0x02,D0> {}
<MI 20d6a BNE 0x20d46> {}
<POP 20d6c-20d74 Epilogue> Σ0
@ 20d74
<LVAR -0x002 @ 1(r)>
<LVAR -0x006 @ 4(r)>
<LVAR -0x008 @ 2(rw)>
<LVAR -0x00a @ 1(rw)>
<LVAR -0x00c @ 2(rw)>
<POP 20d74-213ce Body> Δ+120
<POP 20d74-20d8a Prologue> Σ0 ↓
<POP 20d8a-20da4 RegCacheLoad> Σ0 ↓
<POP 20da4-20db2 Naked> Σ0 ↓
<Const 0x20da4 0x1.4> Δ-4 {[##1]}
<Pointer.fp 0x20da8 <LVAR -0x002 @ 1(r)>> Δ-4 {[##1]|[@@-2]}
<Call 0x20dac 0x20b70> {[##1]|[@@-2]}
<POP 20db0-20db2 StackAdj> Δ+8 {}
<POP 20db2-20dc2 Naked> Σ0 ↓ →0x20dce ←0x20dce
<Const 0x20db2 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20db4 <LVAR -0x00a @ 1(rw)>> Δ-4 {[#3]|[@@-10]}
<Call 0x20db6 0x10212> {[#3]|[@@-10]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 20dbc-20dbe StackAdj> Δ+6 {}
<MI 20dbe TST.B (A6-0xa)> {}
<MI 20dc0 BEQ 0x20dce> {}
<POP 20dc2-20dce Naked> Σ0 ↓
<Const 0x20dc2 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20dc4 <LVAR -0x00c @ 2(rw)>> Δ-4 {[#3]|[@@-12]}
<Call 0x20dc6 0x1020e> {[#3]|[@@-12]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20dcc-20dce StackAdj> Δ+6 {}
<POP 20dce-20dd2 Naked> Σ0 ↓ →0x20db2 ←0x20db2
<MI 20dce TST.B (A6-0xa)> {}
<MI 20dd0 BNE 0x20db2> {}
<POP 20dd2-20e74 Naked> Σ0 ↓ →0x21112
<Pointer.fp 0x20dd2 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x20dd6 0x102b8> {[@@-6]}
NewString(VAR a : String)
<POP 20ddc-20dde StackAdj> Δ+4 {}
<MI 20dde MOVEA.L (A6-0x6),A0> {}
<MI 20de2 MOVE.W #0x5,(A0)> {}
<POP 20de6-20de8 StackAdj> Δ-2 {[-2-]}
<Const 0x20de8 0x84.4> Δ-4 {[-2-]|[##132]}
<Call 0x20dec 0x20ac8> {[-2-]|[##132]}
<POP 20df0-20df2 StackAdj> Δ+4 {[-2-]}
<MI 20df2 MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x20df4 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20df6 MOVE.B D0,(A0+0x2)> {}
<POP 20dfa-20dfc StackAdj> Δ-2 {[-2-]}
<Const 0x20dfc 0x85.4> Δ-4 {[-2-]|[##133]}
<Call 0x20e00 0x20ac8> {[-2-]|[##133]}
<POP 20e04-20e06 StackAdj> Δ+4 {[-2-]}
<MI 20e06 MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x20e08 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20e0a MOVE.B D0,(A0+0x3)> {}
<POP 20e0e-20e10 StackAdj> Δ-2 {[-2-]}
<Const 0x20e10 0x86.4> Δ-4 {[-2-]|[##134]}
<Call 0x20e14 0x20ac8> {[-2-]|[##134]}
<POP 20e18-20e1a StackAdj> Δ+4 {[-2-]}
<MI 20e1a MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x20e1c LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20e1e MOVE.B D0,(A0+0x4)> {}
<POP 20e22-20e24 StackAdj> Δ-2 {[-2-]}
<Const 0x20e24 0x87.4> Δ-4 {[-2-]|[##135]}
<Call 0x20e28 0x20ac8> {[-2-]|[##135]}
<POP 20e2c-20e2e StackAdj> Δ+4 {[-2-]}
<MI 20e2e MOVE.W (A7)+,D0> Δ+2 {}
<POP 0x20e30 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20e32 MOVE.B D0,(A0+0x5)> {}
<MI 20e36 CLR.B (A0+0x6)> {}
<Const 0x20e3a 0x3.2> Δ-2 {[#3]}
<MI 20e3c MOVE.L (A6-0x6),-(A7)> Δ-4 {[#3]|[4, '(A6-0x6)']}
<Call 0x20e40 0x10214> {[#3]|[4, '(A6-0x6)']}
KC0a(a: Word; b: String)
<POP 20e46-20e48 StackAdj> Δ+6 {}
<Pointer.fp 0x20e48 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x20e4c 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 20e52-20e54 StackAdj> Δ+2 {[-2-]}
<Call 0x20e54 0x20a88> {[-2-]}
<MI 20e58 MOVE.B (A7)+,D0> Δ+2 {}
<MI 20e5a EXTB.W D0> {}
<POP 0x20e5c LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 20e5e MOVE.B D0,(A6-0xa)> {}
<Const 0x20e60 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20e62 <LVAR -0x00c @ 2(rw)>> Δ-4 {[#3]|[@@-12]}
<Call 0x20e64 0x1020e> {[#3]|[@@-12]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 20e6a-20e6c StackAdj> Δ+6 {}
<MI 20e6c AND.W #0xff,(A6-0xc)> {}
<MI 20e6e CMP.B #0x03,D0> {}
<MI 20e70 BNE 0x21112> {}
<POP 20e74-20e7c Naked> Σ0 ↓ →0x210d6
<MI 20e74 MOVE.W (A6-0xc),D0> {}
<MI 20e76 CMP.W #0xff,D0> {}
<MI 20e78 BHI 0x210d6> {}
<POP 20e7c-20e86 Naked> Σ0 →0x21086 →0x21094 →0x210a6 →0x210aa →0x210ac →0x210ba →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210d6 →0x210c8
<MI 20e7c ADD.W D0,D0> {}
<MI 20e7e SWITCH D0.W> {}
<POP 21086-21094 Naked> Σ0 Δ-30 →0x210e2 ←0x20e7c
<Blob 0x21086 [30] @> Δ-30 {[«30""»]}
<MI 21092 BRA 0x210e2> {[«30""»]}
<POP 21094-210a4 Naked> Σ0 →0x213c6 ←0x20e7c ←0x210a6
<MI 21094 CLR.L D0> {}
<MI 21096 MOVE.W (A6-0xc),D0> {}
<MI 21098 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<Call 0x2109a 0x20c2a> {[4, 'D0']}
<POP 2109e-210a0 StackAdj> Δ+4 {}
<MI 210a0 BRA 0x213c6> {}
<POP 210a6-210a8 Naked> Σ0 →0x21094 ←0x20e7c ←0x210aa
<MI 210a6 BRA 0x21094> {}
<POP 210aa-210ac Naked> Σ0 →0x210a6 ←0x20e7c
<MI 210aa BRA 0x210a6> {}
<POP 210ac-210ba Naked> Σ0 Δ-30 →0x210e2 ←0x20e7c
<Blob 0x210ac [30] @> Δ-30 {[«30""»]}
<MI 210b8 BRA 0x210e2> {[«30""»]}
<POP 210ba-210c8 Naked> Σ0 Δ-30 →0x210e2 ←0x20e7c
<Blob 0x210ba [30] @> Δ-30 {[«30""»]}
<MI 210c6 BRA 0x210e2> {[«30""»]}
<POP 210c8-210d6 Naked> Σ0 Δ-30 →0x210e2 ←0x20e7c
<Blob 0x210c8 [30] @> Δ-30 {[«30""»]}
<MI 210d4 BRA 0x210e2> {[«30""»]}
<POP 210d6-210e2 Naked> Σ0 Δ-30 ↓ ←0x20e74 ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c ←0x20e7c
<Blob 0x210d6 [30] @> Δ-30 {[«30""»]}
<POP 210e2-21112 Naked> Σ-30 Δ+30 →0x213c6 ←0x21086 ←0x210ac ←0x210ba ←0x210c8
<POP 210e2-210e4 StackAdj> Δ-8 {[-38-]}
<Lit 0x210e4> {[-34-]|[$$…]}
<Pointer.sp 0x210e4 8> Δ-4
<Const 0x210e8 0x1.2> Δ-2
<Const 0x210ea 0x1e.2> Δ-2
<Call 0x210ee 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 210f0-210f2 StackAdj> Δ+8
<POP 210f0-210f2 StackAdj> Δ-4 {[-34-]|[$$…]|[-4-]}
<MI 210f2 CLR.L D0> {[-34-]|[$$…]|[-4-]}
<MI 210f4 MOVE.W (A6-0xc),D0> {[-34-]|[$$…]|[-4-]}
<MI 210f6 MOVE.L D0,-(A7)> Δ-4 {[-34-]|[$$…]|[-4-]|[4, 'D0']}
<Call 0x210f8 0x2058e> {[-34-]|[$$…]|[-4-]|[4, 'D0']}
<POP 210fc-210fe StackAdj> Δ+4 {[-34-]|[$$…]|[-4-]}
<Call 0x210fe 0x102d0> {[-34-]|[$$…]|[-4-]}
StringCat2(a, b : String) : String
<POP 21104-21106 StackAdj> Δ+8 {[-34-]}
<Call 0x21106 0x20afe> {[-34-]}
<POP 2110a-2110e StackAdj> Δ+34 {}
<MI 2110e BRA 0x213c6> {}
<POP 21112-21116 Naked> Σ0 ↓ →0x21158 ←0x20dd2
<MI 21112 CMP.B #0x06,D0> {}
<MI 21114 BEQ 0x21158> {}
<POP 21116-21158 Naked> Σ0 →0x213c6
<Blob 0x21116 [44] @> Δ-44 {[«44""»]}
<POP 21128-2112a StackAdj> Δ-8 {[«44""»]|[-8-]}
<Lit 0x2112a 43> {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]}
<POP 21136-21138 StackAdj> Δ-4 {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]}
<MI 21138 EXTB.W D0> {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]}
<MI 2113a EXTW.L D0> {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]}
<MI 2113c MOVE.L D0,-(A7)> Δ-4 {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]|[4, 'D0']}
<Call 0x2113e 0x208fe> {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]|[4, 'D0']}
<POP 21142-21144 StackAdj> Δ+4 {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]}
<Call 0x21144 0x102d0> {[«44""»]|[-4-]|[$$Illegal connect request response, Event =>_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2114a-2114c StackAdj> Δ+8 {[«44""»]|[-4-]}
<Call 0x2114c 0x20afe> {[«44""»]|[-4-]}
<POP 21150-21154 StackAdj> Δ+48 {}
<MI 21154 BRA 0x213c6> {}
<POP 21158-21160 Naked> Σ0 ↓ →0x2138c ←0x21112
<MI 21158 MOVE.W (A6-0xc),D0> {}
<MI 2115a CMP.W #0x03,D0> {}
<MI 2115c BHI 0x2138c> {}
<POP 21160-2116a Naked> Σ0 →0x21172 →0x21184 →0x211ac →0x212da
<MI 21160 ADD.W D0,D0> {}
<MI 21162 SWITCH D0.W> {}
<POP 21172-21184 Naked> Σ0 →0x213c6 ←0x21160
<MI 21172 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x21174 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x21178 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 2117e-21180 StackAdj> Δ+6 {}
<MI 21180 BRA 0x213c6> {}
<POP 21184-211ac Naked> Σ0 →0x213c6 ←0x21160
<Blob 0x21184 [24] @> Δ-24 {[«24""»]}
<POP 21190-21192 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x21192 24> {[«24""»]|[$$Connect attempt refused.]}
<Call 0x211a0 0x20afe> {[«24""»]|[$$Connect attempt refused.]}
<POP 211a4-211a8 StackAdj> Δ+28 {}
<MI 211a8 BRA 0x213c6> {}
<POP 211ac-212ac Naked> Σ0 ↓ →0x212b2 ←0x21160
<Call 0x211ac 0x20d16> {}
<Const 0x211b0 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x211b2 <LVAR -0x008 @ 2(rw)>> Δ-4 {[#3]|[@@-8]}
<Call 0x211b6 0x1020e> {[#3]|[@@-8]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 211bc-211be StackAdj> Δ+6 {}
<MI 211be AND.W #0xff,(A6-0x8)> {}
<MI 211c2 MOVE.W (A6-0x8),D0> {}
<MI 211c6 ASL.W #0x8,D0> {}
<MI 211c8 MOVE.W D0,(A6-0x8)> {}
<Const 0x211cc 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x211ce <LVAR -0x00c @ 2(rw)>> Δ-4 {[#3]|[@@-12]}
<Call 0x211d0 0x1020e> {[#3]|[@@-12]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 211d6-211d8 StackAdj> Δ+6 {}
<MI 211d8 MOVE.W (A6-0xc),D1> {}
<MI 211da AND.W #0xff,D1> {}
<MI 211dc CLR.L D2> {}
<MI 211de MOVE.W D0,D2> {}
<MI 211e0 CLR.L D0> {}
<MI 211e2 MOVE.W D1,D0> {}
<MI 211e4 ADD.L D2,D0> {}
<POP 0x211e6 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {}
<MI 211f0 MOVE.W D0,(A6-0x8)> {}
<Blob 0x211f4 [56] @> Δ-56 {[«56""»]}
<POP 21206-21208 StackAdj> Δ-4 {[«56""»]|[-4-]}
<Lit 0x21208 55> {[«56""»]|[$$Rational Response Center is busy and has requested that]}
<Call 0x21216 0x20538> {[«56""»]|[$$Rational Response Center is busy and has requested that]}
<POP 2121a-2121b StackAdj> Δ+60 ↓ {}
<Blob 0x2121b [24] @> Δ-24 {[«24""»]}
<Blob 0x2122c [18] @> Δ-18 {[«24""»]|[«18""»]}
<POP 21238-2123a StackAdj> Δ-8 {[«24""»]|[«18""»]|[-8-]}
<Lit 0x2123a 23> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]}
<POP 21246-21248 StackAdj> Δ-4 {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]}
<MI 21248 CLR.L D1> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]}
<MI 2124a MOVE.W D0,D1> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]}
<MI 2124c MOVE.L D1,-(A7)> Δ-4 {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]|[4, 'D1']}
<Call 0x2124e 0x102e4> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]|[4, 'D1']}
Long2String(a : Long) : String
<Lit 0x21254 18> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]|[$$ minutes from now.]}
<Call 0x21260 0x102d4> {[«24""»]|[«18""»]|[-4-]|[$$this cluster call back_]|[-4-]|[$$ minutes from now.]}
StringCat3(a, b, c : String) : String
<POP 21266-2126a StackAdj> Δ+12 {[«24""»]|[«18""»]|[-4-]}
<Call 0x2126a 0x20538> {[«24""»]|[«18""»]|[-4-]}
<POP 2126e-2126f StackAdj> Δ+46 ↓ {}
<Blob 0x2126f [28] @> Δ-28 {[«28""»]}
<POP 2127e-21280 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x21280 27> {[«28""»]|[$$Type ^C to abort this delay]}
<Call 0x2128e 0x20538> {[«28""»]|[$$Type ^C to abort this delay]}
<POP 21292-21296 StackAdj> Δ+32 {}
<MI 21296 CLR.L D1> {}
<MI 21298 MOVE.W D0,D1> {}
<MI 2129a MOVE.L D1,-(A7)> Δ-4 {[4, 'D1']}
<Pointer.fp 0x2129c <LVAR -0x002 @ 1(r)>> Δ-4 {[4, 'D1']|[@@-2]}
<Call 0x212a0 0x20bee> {[4, 'D1']|[@@-2]}
<POP 212a4-212a6 StackAdj> Δ+8 {}
<MI 212a6 TST.B (A6-0x2)> {}
<MI 212aa BNE 0x212b2> {}
<POP 212ac-212b2 Naked> Σ0 →0x212d6
<Call 0x212ac 0x20d74> {}
<MI 212b0 BRA 0x212d6> {}
<POP 212b2-212d6 Naked> Σ0 ↓ ←0x211ac
<Blob 0x212b2 [22] @> Δ-22 {[«22""»]}
<POP 212be-212c0 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x212c0 22> {[«22""»]|[$$Terminated by operator]}
<Call 0x212ce 0x20afe> {[«22""»]|[$$Terminated by operator]}
<POP 212d2-212d6 StackAdj> Δ+26 {}
<POP 212d6-212da Naked> Σ0 →0x213c6 ←0x212ac
<MI 212d6 BRA 0x213c6> {}
<POP 212da-21326 Naked> Σ0 ↓ ←0x21160
<Call 0x212da 0x20d16> {}
<Blob 0x212de [60] @> Δ-60 {[«60""»]}
<POP 212ea-212ec StackAdj> Δ-4 {[«60""»]|[-4-]}
<Lit 0x212ec 60> {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]}
<Call 0x212fa 0x20538> {[«60""»]|[$$Rational Response Center has instructed this cluster to wait]}
<POP 212fe-212ff StackAdj> Δ+64 ↓ {}
<Blob 0x212ff [14] @> Δ-14 {[«14""»]}
<POP 21310-21312 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x21312 13> {[«14""»]|[$$for call back]}
<Call 0x21320 0x20538> {[«14""»]|[$$for call back]}
<POP 21324-21326 StackAdj> Δ+18 {}
<POP 21326-21336 Naked> Σ0 ↓ →0x21342 ←0x21342
<Const 0x21326 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x21328 <LVAR -0x00a @ 1(rw)>> Δ-4 {[#3]|[@@-10]}
<Call 0x2132a 0x10212> {[#3]|[@@-10]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 21330-21332 StackAdj> Δ+6 {}
<MI 21332 TST.B (A6-0xa)> {}
<MI 21334 BEQ 0x21342> {}
<POP 21336-21342 Naked> Σ0 ↓
<Const 0x21336 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x21338 <LVAR -0x00c @ 2(rw)>> Δ-4 {[#3]|[@@-12]}
<Call 0x2133a 0x1020e> {[#3]|[@@-12]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 21340-21342 StackAdj> Δ+6 {}
<POP 21342-21348 Naked> Σ0 ↓ →0x21326 ←0x21326
<MI 21342 MOVE.B (A6-0xa),D0> {}
<MI 21344 CMP.B #0x03,D0> {}
<MI 21346 BNE 0x21326> {}
<POP 21348-2134c Naked> Σ0 ↓ →0x21352
<MI 21348 AND.W #0xff,(A6-0xc)> {}
<MI 2134a BNE 0x21352> {}
<POP 2134c-21352 Naked> Σ0 →0x2138a
<Call 0x2134c 0x20d74> {}
<MI 21350 BRA 0x2138a> {}
<POP 21352-2138a Naked> Σ0 ↓ ←0x21348
<Blob 0x21352 [54] @> Δ-54 {[«54""»]}
<POP 2135e-21360 StackAdj> Δ-8 {[«54""»]|[-8-]}
<Lit 0x21360 54> {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]}
<POP 2136c-2136e StackAdj> Δ-4 {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]}
<MI 2136e CLR.L D0> {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]}
<MI 21370 MOVE.W (A6-0xc),D0> {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]}
<MI 21372 MOVE.L D0,-(A7)> Δ-4 {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]|[4, 'D0']}
<Call 0x21374 0x2058e> {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]|[4, 'D0']}
<POP 21378-2137a StackAdj> Δ+4 {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]}
<Call 0x2137a 0x102d0> {[«54""»]|[-4-]|[$$Unexpected status while awaiting call-back, Status =>_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21380-21382 StackAdj> Δ+8 {[«54""»]|[-4-]}
<Call 0x21382 0x20afe> {[«54""»]|[-4-]}
<POP 21386-2138a StackAdj> Δ+58 {}
<POP 2138a-2138c Naked> Σ0 →0x213c6 ←0x2134c
<MI 2138a BRA 0x213c6> {}
<POP 2138c-213c6 Naked> Σ0 ↓ ←0x21158
<Blob 0x2138c [36] @> Δ-36 {[«36""»]}
<POP 21398-2139a StackAdj> Δ-8 {[«36""»]|[-8-]}
<Lit 0x2139a 36> {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]}
<POP 213a6-213a8 StackAdj> Δ-4 {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]}
<MI 213a8 CLR.L D0> {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]}
<MI 213aa MOVE.W (A6-0xc),D0> {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]}
<MI 213ac MOVE.L D0,-(A7)> Δ-4 {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]|[4, 'D0']}
<Call 0x213ae 0x102e4> {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 213b4-213b6 StackAdj> Δ+4 {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]}
<Call 0x213b6 0x102d0> {[«36""»]|[-4-]|[$$Unknown connect acknowedge, Data =>_]|[-4-]}
StringCat2(a, b : String) : String
<POP 213bc-213be StackAdj> Δ+8 {[«36""»]|[-4-]}
<Call 0x213be 0x20afe> {[«36""»]|[-4-]}
<POP 213c2-213c6 StackAdj> Δ+40 {}
<POP 213c6-213ce Epilogue> Σ0 ←0x21094 ←0x210e2 ←0x21116 ←0x21172 ←0x21184 ←0x212d6 ←0x2138a
@ 213ce
<LVAR -0x004 @>
<POP 213ce-2142a Body>
<POP 213ce-213e4 Prologue> Σ0 ↓
<POP 213e4-21422 Naked> Σ0 ↓
<Blob 0x213e4 [48] @> Δ-48 {[«48""»]}
<POP 213f0-213f2 StackAdj> Δ-4 {[«48""»]|[-4-]}
<Lit 0x213f2 48> {[«48""»]|[$$PAD connection broken, attempting to re-connect.]}
<Call 0x21406 0x20538> {[«48""»]|[$$PAD connection broken, attempting to re-connect.]}
<POP 2140a-2140e StackAdj> Δ+50 {[-2-]}
<POP 2140e-2140f StackAdj> Δ+2 {}
<Const 0x2140f 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x21412 <LVAR -0x004 @>> Δ-4 {[#3]|[@@-4]}
<Call 0x21416 0x1020e> {[#3]|[@@-4]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 2141c-2141e StackAdj> Δ+6 {}
<Call 0x2141e 0x20d74> {}
<POP 21422-2142a Epilogue> Σ0
@ 2142a
<LVAR -0x004 @ 2(w)>
<POP 2142a-21496 Body>
<POP 2142a-21440 Prologue> Σ0 ↓
<POP 21440-21458 Naked> Σ0 ↓ →0x2145e
<Const 0x21440 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x21444 <LVAR -0x004 @ 2(w)>> Δ-4 {[#3]|[@@-4]}
<Call 0x21448 0x1020e> {[#3]|[@@-4]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 2144e-21450 StackAdj> Δ+6 {}
<MI 21450 ANDI.W #0x00ff,(A6-0x4)> {}
<MI 21456 BNE 0x2145e> {}
<POP 21458-2145e Naked> Σ0 →0x2148e
<Call 0x21458 0x20d74> {}
<MI 2145c BRA 0x2148e> {}
<POP 2145e-2148e Naked> Σ0 ↓ ←0x21440
<Blob 0x2145e [62] @> Δ-62 {[«62""»]}
<POP 21470-21472 StackAdj> Δ-4 {[«62""»]|[-4-]}
<Lit 0x21472 61> {[«62""»]|[$$Unsolicited connect event was not non-autoanswer, status =>_]}
<Call 0x21486 0x20afe> {[«62""»]|[$$Unsolicited connect event was not non-autoanswer, status =>_]}
<POP 2148a-2148e StackAdj> Δ+66 {}
<POP 2148e-21496 Epilogue> Σ0 ←0x21458
@ 21496
<POP 21496--0001 Body>
<POP 21496-214ac Prologue> Σ0 ↓
<POP 214ac-214e6 Naked> Σ0 ↓ ←0x214e6
<Blob 0x214ac [14] @> Δ-14 {[«14""»]}
<POP 214b8-214ba StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x214ba 14> {[«14""»]|[$$Connecting PAD]}
<Call 0x214ce 0x20538> {[«14""»]|[$$Connecting PAD]}
<POP 214d2-214d6 StackAdj> Δ+18 {}
<Const 0x214d6 0x3.4> Δ-4 {[##3]}
<Call 0x214da 0x103f4> {[##3]}
SetConsoleConfig(a : Long)
<POP 214e0-214e2 StackAdj> Δ+4 {}
<Call 0x214e2 0x20d74> {}
<POP 214e6-214e8 Naked> Σ0 →0x214ac
<MI 214e6 BRA 0x214ac> {}
@ 214f0
<LVAR -0x004 @ 1(r)>
<POP 214f0-215bc Body> Δ+4
<POP 214f0-21506 Prologue> Σ0 ↓
<POP 21506-21508 RegCacheLoad> Σ0 ↓
<POP 21508-21516 Naked> Σ0 ↓ →0x2151e
<POP 21508-2150a StackAdj> Δ-4 {[-4-]}
<Call 0x2150a 0x103f8> {[-4-]}
GetConsoleConfig() : Long
<MI 21510 MOVE.L (A7)+,D0> Δ+4 {}
<MI 21512 CMP.L #0x03,D0> {}
<MI 21514 BEQ 0x2151e> {}
<POP 21516-2151e Naked> Σ0 →0x215b4
<Call 0x21516 0x21496> {}
<MI 2151a BRA 0x215b4> {}
<POP 2151e-21544 Naked> Σ0 →0x21552 →0x21562 →0x2156a →0x21564 →0x21570 →0x2157e →0x2158a ←0x21508
<Const 0x2151e 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x21520 <LVAR -0x004 @ 1(r)>> Δ-4 {[#3]|[@@-4]}
<Call 0x21524 0x10212> {[#3]|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 2152a-2152c StackAdj> Δ+6 {}
<MI 2152c MOVE.B (A6-0x4),D0> {}
<MI 21530 EXTB.W D0> {}
<POP 0x21532 LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 2153a ADD.W D0,D0> {}
<MI 2153c SWITCH D0.W> {}
<POP 21552-21562 Naked> Σ0 →0x215b4 ←0x2151e ←0x21562
<MI 21552 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x21554 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x21558 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 2155e-21560 StackAdj> Δ+6 {}
<MI 21560 BRA 0x215b4> {}
<POP 21562-21564 Naked> Σ0 →0x21552 ←0x2151e
<MI 21562 BRA 0x21552> {}
<POP 21564-2156a Naked> Σ0 →0x215b4 ←0x2151e
<Call 0x21564 0x2142a> {}
<MI 21568 BRA 0x215b4> {}
<POP 2156a-21570 Naked> Σ0 →0x215b4 ←0x2151e
<Call 0x2156a 0x213ce> {}
<MI 2156e BRA 0x215b4> {}
<POP 21570-2157a Naked> Σ0 Δ-4 ↓ ←0x2151e
<Const 0x21570 0x1c.4> Δ-4 {[##28]}
<Call 0x21574 0x10220> {[##28]}
KC10_Panic(code : Long)
<POP 2157a-2157e Naked> Σ-4 Δ+4 →0x215b4 ←0x2157e
<POP 2157a-2157c StackAdj> Δ+4 {}
<MI 2157c BRA 0x215b4> {}
<POP 2157e-2158a Naked> Σ0 Δ-4 →0x2157a ←0x2151e
<Const 0x2157e 0x1.4> Δ-4 {[##1]}
<Call 0x21582 0x103f4> {[##1]}
SetConsoleConfig(a : Long)
<MI 21588 BRA 0x2157a> {[##1]}
<POP 2158a-215b4 Naked> Σ0 ↓ ←0x2151e
<Blob 0x2158a [42] @> Δ-42 {[«42""»]}
<POP 21596-21598 StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x21598 42> {[«42""»]|[$$PAD got connect data with no connect event]}
<Call 0x215ac 0x20afe> {[«42""»]|[$$PAD got connect data with no connect event]}
<POP 215b0-215b4 StackAdj> Δ+46 {}
<POP 215b4-215bc Epilogue> Σ0 ←0x21516 ←0x21552 ←0x21564 ←0x2156a ←0x2157a
@ 215bc
START
<POP 215bc--0001 Body>
<POP 215bc-215c6 Prologue> Σ0
<POP 215c6-215d0 Naked> Σ0 ↓
<Call 0x215c6 0x10398> {}
FSCALL_10398
<Call 0x215cc 0x214f0> {}
<POP 215d0-215d6 Naked> Σ0
<Call 0x215d0 0x10284> {}
?exit
@ 215e4
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 215e4-2164c Body>
<POP 215e4-215fa Prologue> Σ0 ↓
<POP 215fa-21644 Naked> Σ0 ↓
<Blob 0x215fa [14] @> Δ-14 {[«14""»]}
<Const 0x21606 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 2160a-2160c StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x2160c 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 2161e-21620 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21620 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21624 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21626 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21628 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x2162a 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21630-21632 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x21632 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21638-2163a StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x2163a 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 21640-21644 StackAdj> Δ+20 {}
<POP 21644-2164c Epilogue> Σ0
@ 216a0
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 216a0-217dc Body>
<POP 216a0-216b6 Prologue> Σ0 ↓
<POP 216b6-216cc RegCacheLoad> Σ0 ↓
<POP 216cc-2172c Naked> Σ0 ↓ →0x21774
<Call 0x216cc 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x216d2 [18] @> Δ-18 {[«18""»]}
<POP 216de-216e0 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x216e0 18> {[«18""»]|[$$Experiment error :]}
<Call 0x216ec 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 216ee-216ef StackAdj> Δ+22 ↓ {}
<Blob 0x216ef [14] @> Δ-14 {[«14""»]}
<POP 216fe-21700 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21700 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 2170a-2170c StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 2170c MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x21710 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 21716-21718 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x21718 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2171e-21720 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21720 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21722-21724 StackAdj> Δ+18 {}
<MI 21724 MOVEA.L (A6+0xa),A0> {}
<MI 21728 CMPA.W #0x01,A0> {}
<MI 2172a BEQ 0x21774> {}
<POP 2172c-21774 Naked> Σ0 ↓
<Blob 0x2172c [14] @> Δ-14 {[«14""»]}
<Blob 0x2173c [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 2174c-2174e StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x2174e 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 21758-2175a StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x2175a> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x2175a 12> Δ-4
<Const 0x2175e 0x1.2> Δ-2
<Const 0x21760 0x1e.2> Δ-2
<Call 0x21762 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21764-21766 StackAdj> Δ+8
<Call 0x21766 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 2176c-2176e StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x2176e 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21770-21774 StackAdj> Δ+48 {}
<POP 21774-217d4 Naked> Σ0 ↓ ←0x216cc
<Blob 0x21774 [14] @> Δ-14 {[«14""»]}
<POP 21784-21786 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21786 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 21790-21792 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 21792 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x21796 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 2179c-2179e StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x2179e 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 217a4-217a6 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x217a6 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 217a8-217a9 StackAdj> Δ+18 ↓ {}
<Blob 0x217a9 [24] @> Δ-24 {[«24""»]}
<Const 0x217b8 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 217bc-217be StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x217be 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x217cc 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 217d2-217d4 StackAdj> Δ+30 {}
<POP 217d4-217dc Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.6859b6e9b4babd30 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 15 bc | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 17 f4 | | .PTR 0x217f4 00020010 code.end: 00020010 00 02 17 dc | | .PTR 0x217dc 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 15 e4 | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 16 a0 | | .CODE EXP_FAIL 00020020 00 00 00 00 | | .CONST 0x00000000 00020024 exp_init_done: 00020024 00 | | .CONST 0x00 00020025 00 | | .CONST 0x00 00020026 00 00 | | .CONST 0x0000 00020028 00 00 | | .CONST 0x0000 0002002a 00 00 | | .XXX[0x2] 0002002c 00 00 | | .CONST 0x0000 0002002e 00 00 | | .CONST 0x0000 00020030 00 00 | | .CONST 0x0000 00020032 00 00 00 00 00 00 | | .XXX[0x6] 00020038 00 00 00 00 00 00 00 00 | | .BLANK 00[0xb0] 000200e8 00 00 00 00 | | .XXX[0x4] 000200ec 00 00 00 00 | | .PTR 0x0 000200f0 is_open_ERROR_LOG: 000200f0 00 | | .CONST 0x0 000200f1 write_error_ERROR_LOG: 000200f1 00 | | .CONST 0x0 000200f2 00 00 00 00 | | .CONST 0x00000000 000200f6 00 00 00 00 | | .CONST 0x00000000 000200fa 00 | | .CONST 0x00 000200fb 00 | | .CONST 0x00 000200fc file_ERROR_LOG: 000200fc 00 00 00 00 | | .CONST 0x00000000 00020100 00 00 00 00 | | .CONST 0x00000000 00020104 00 00 | | .CONST 0x0000 00020106 00 00 | | .CONST 0x0000 00020108 somekindoffsflag: 00020108 00 | | .CONST 0x00 00020109 00 | | .CONST 0x00 0002010a 43 6f 6e 6e 65 63 74 69 |Connecti| .TXT 'Connection complete ' 0002011e 41 75 74 6f 2d 44 69 61 |Auto-Dia| .TXT 'Auto-Dialer call to MV failed ' 0002013c 50 41 44 20 69 73 20 64 |PAD is d| .TXT 'PAD is disconnected or powered off' 0002015e 50 41 44 20 63 6f 6e 6e |PAD conn| .TXT 'PAD connection to Auto-Dialer failed' 00020182 41 6c 72 65 61 64 79 20 |Already | .TXT 'Already connected ' 00020194 4e 6f 20 50 41 44 20 6f |No PAD o| .TXT 'No PAD or dial-out disabled ' 000201b0 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown PAD error ' 000201c2 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown encoding => ' 000201d6 4e 6f 20 64 61 74 61 20 |No data | .TXT 'No data present ' 000201e6 44 61 74 61 20 62 79 74 |Data byt| .TXT 'Data byte present ' 000201f8 44 69 73 63 |Disc | .TXT 'Disc' 000201fc 6f 6e 6e 65 |onne | .TXT 'onne' 00020200 63 74 65 64 |cted | .TXT 'cted' 00020204 43 6f 6e 6e 65 63 74 65 |Connecte| .TXT 'Connected ' 0002020e 4f 75 74 70 75 74 20 63 |Output c| .TXT 'Output complete ' 0002021e 44 69 73 63 6f 6e 6e 65 |Disconne| .TXT 'Disconnect packet arrival ' 00020238 43 6f 6e 6e 65 63 74 20 |Connect | .TXT 'Connect packet arrival' 0002024e 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown encoding => ' 00020262 41 62 61 6e 64 6f 6e 69 |Abandoni| .TXT 'Abandoning remote connection. ' 00020280 43 61 6e 6e 6f 74 20 63 |Cannot c| .TXT 'Cannot connect PAD, Status =>_' 0002029e 52 65 74 72 79 69 6e 67 |Retrying| .TXT 'Retrying remote connection in 1 minute. ' 000202c6 43 61 6e 6e 6f 74 20 63 |Cannot c| .TXT 'Cannot connect PAD, Status =>_' 000202e4 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal connect request response, Event =>_ ' 00020310 43 6f 6e 6e 65 63 74 20 |Connect | .TXT 'Connect attempt refused.' 00020328 55 6e 65 78 70 65 63 74 |Unexpect| .TXT 'Unexpected status while awaiting call-back, Status =>_' 0002035e 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown connect acknowedge, Data =>_' 00020382 54 65 72 6d 69 6e 61 74 |Terminat| .TXT 'Terminated by operator' 00020398 52 61 74 69 6f 6e 61 6c |Rational| .TXT 'Rational Response Center is busy and has requested that ' 000203d0 74 68 69 73 20 63 6c 75 |this clu| .TXT 'this cluster call back_ ' 000203e8 20 6d 69 6e 75 74 65 73 | minutes| .TXT ' minutes from now.' 000203fa 54 79 70 65 20 5e 43 20 |Type ^C | .TXT 'Type ^C to abort this delay ' 00020416 52 61 74 69 6f 6e 61 6c |Rational| .TXT 'Rational Response Center has instructed this cluster to wait' 00020452 66 6f 72 20 63 61 6c 6c |for call| .TXT 'for call back ' 00020460 50 41 44 20 63 6f 6e 6e |PAD conn| .TXT 'PAD connection broken, attempting to re-connect.' 00020490 55 6e 73 6f 6c 69 63 69 |Unsolici| .TXT 'Unsolicited connect event was not non-autoanswer, status =>_ ' 000204ce 43 6f 6e 6e 65 63 74 69 |Connecti| .TXT 'Connecting PAD' 000204dc 41 74 74 65 |Atte | .XXX[0x4] 000204e0 6d 70 74 20 74 6f 20 72 |mpt to r| .XXX[0x28] 000204e8 65 73 6f 6c 76 65 20 50 |esolve P| 000204f0 41 44 20 73 74 61 74 75 |AD statu| 000204f8 73 20 77 69 74 68 20 6e |s with n| 00020500 6f 6e 2d 50 41 44 20 64 |on-PAD d| 00020508 65 76 69 63 65 2e |evice. | .XXX[0x6] 0002050e 50 41 44 20 67 6f 74 20 |PAD got | .TXT 'PAD got connect data with no connect event' 00020538 ; -------------------------------------------------------------------------------------- 00020538 ; OMSI PASCAL Function 00020538 ; <LVAR 0x008 @ 4(r)> 00020538 ; -------------------------------------------------------------------------------------- 00020538 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 0002053c bf d5 | | CMPA.L (A5),A7 0002053e 62 06 |b | BHI 0x20546 00020540 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020544 4e 76 |Nv | TRAPV 00020546 de fc 00 0e | | ADDA.W #0xe,A7 0002054a 48 e7 00 80 |H | MOVEM.L A0,-(A7) 0002054e 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00020552 2f 10 |/ | MOVE.L (A0),-(A7) 00020554 1f 3c 00 0a | < | MOVE.B #0x0a,-(A7) 00020558 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002055e 54 4f |TO | ADDQ.L #0x2,A7 00020560 2e 90 |. | MOVE.L (A0),(A7) 00020562 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7) 00020566 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002056c 58 4f |XO | ADDQ.L #0x4,A7 0002056e 3e bc 00 01 |> | MOVE.W #0x1,(A7) 00020572 2f 10 |/ | MOVE.L (A0),-(A7) 00020574 4e b9 00 01 02 0a |N | JSR KC05_Write_Console_String(port : Word ; str : String) 0002057a 5c 4f |\O | ADDQ.L #0x6,A7 0002057c 48 50 |HP | PEA.L (A0) 0002057e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020584 58 4f |XO | ADDQ.L #0x4,A7 00020586 4c df 01 00 |L | MOVEM.L (A7)+,A0 0002058a 4e 5e |N^ | UNLK A6 0002058c 4e 75 |Nu | RTS 0002058e ; -------------------------------------------------------------------------------------- 0002058e ; OMSI PASCAL Function 0002058e ; <LVAR 0x00c 4(w)> 0002058e ; <LVAR 0x008 4(r)> 0002058e ; -------------------------------------------------------------------------------------- 0002058e 4e 56 ff 98 |NV | LINK.W A6,#0xff98 00020592 bf d5 | | CMPA.L (A5),A7 00020594 62 06 |b | BHI 0x2059c 00020596 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002059a 4e 76 |Nv | TRAPV 0002059c de fc 00 64 | d | ADDA.W #0x64,A7 000205a0 48 e7 ff e8 |H | MOVEM.L A4+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000205a4 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 000205aa 72 01 |r | MOVEQ.L #0x01,D1 000205ac 74 14 |t | MOVEQ.L #0x14,D2 000205ae 76 12 |v | MOVEQ.L #0x12,D3 000205b0 78 13 |x | MOVEQ.L #0x13,D4 000205b2 7a 1e |z | MOVEQ.L #0x1e,D5 000205b4 7c 22 ||" | MOVEQ.L #0x22,D6 000205b6 7e 24 |~$ | MOVEQ.L #0x24,D7 000205b8 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 000205bc 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 000205c2 62 00 02 fa |b | BHI switch@0x205c8[0x6] 000205c6 d0 40 | @ | ADD.W D0,D0 000205c8 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000205d0 02 00 | | .CONST 0x200 ; [0x0] -> 0x207d0 000205d2 02 20 | | .CONST 0x220 ; [0x1] -> 0x207f0 000205d4 02 48 | H | .CONST 0x248 ; [0x2] -> 0x20818 000205d6 02 6a | j | .CONST 0x26a ; [0x3] -> 0x2083a 000205d8 02 8c | | .CONST 0x28c ; [0x4] -> 0x2085c 000205da 02 b2 | | .CONST 0x2b2 ; [0x5] -> 0x20882 000205dc 02 ee | | .CONST 0x2ee ; [0x6] -> 0x208be 000205de 02 ee | | .CONST 0x2ee ; [0x7] -> 0x208be 000205e0 02 ee | | .CONST 0x2ee ; [0x8] -> 0x208be 000205e2 02 ee | | .CONST 0x2ee ; [0x9] -> 0x208be 000205e4 02 ee | | .CONST 0x2ee ; [0xa] -> 0x208be 000205e6 02 ee | | .CONST 0x2ee ; [0xb] -> 0x208be 000205e8 02 ee | | .CONST 0x2ee ; [0xc] -> 0x208be 000205ea 02 ee | | .CONST 0x2ee ; [0xd] -> 0x208be 000205ec 02 ee | | .CONST 0x2ee ; [0xe] -> 0x208be 000205ee 02 ee | | .CONST 0x2ee ; [0xf] -> 0x208be 000205f0 02 ee | | .CONST 0x2ee ; [0x10] -> 0x208be 000205f2 02 ee | | .CONST 0x2ee ; [0x11] -> 0x208be 000205f4 02 ee | | .CONST 0x2ee ; [0x12] -> 0x208be 000205f6 02 ee | | .CONST 0x2ee ; [0x13] -> 0x208be 000205f8 02 ee | | .CONST 0x2ee ; [0x14] -> 0x208be 000205fa 02 ee | | .CONST 0x2ee ; [0x15] -> 0x208be 000205fc 02 ee | | .CONST 0x2ee ; [0x16] -> 0x208be 000205fe 02 ee | | .CONST 0x2ee ; [0x17] -> 0x208be 00020600 02 ee | | .CONST 0x2ee ; [0x18] -> 0x208be 00020602 02 ee | | .CONST 0x2ee ; [0x19] -> 0x208be 00020604 02 ee | | .CONST 0x2ee ; [0x1a] -> 0x208be 00020606 02 ee | | .CONST 0x2ee ; [0x1b] -> 0x208be 00020608 02 ee | | .CONST 0x2ee ; [0x1c] -> 0x208be 0002060a 02 ee | | .CONST 0x2ee ; [0x1d] -> 0x208be 0002060c 02 ee | | .CONST 0x2ee ; [0x1e] -> 0x208be 0002060e 02 ee | | .CONST 0x2ee ; [0x1f] -> 0x208be 00020610 02 ee | | .CONST 0x2ee ; [0x20] -> 0x208be 00020612 02 ee | | .CONST 0x2ee ; [0x21] -> 0x208be 00020614 02 ee | | .CONST 0x2ee ; [0x22] -> 0x208be 00020616 02 ee | | .CONST 0x2ee ; [0x23] -> 0x208be 00020618 02 ee | | .CONST 0x2ee ; [0x24] -> 0x208be 0002061a 02 ee | | .CONST 0x2ee ; [0x25] -> 0x208be 0002061c 02 ee | | .CONST 0x2ee ; [0x26] -> 0x208be 0002061e 02 ee | | .CONST 0x2ee ; [0x27] -> 0x208be 00020620 02 ee | | .CONST 0x2ee ; [0x28] -> 0x208be 00020622 02 ee | | .CONST 0x2ee ; [0x29] -> 0x208be 00020624 02 ee | | .CONST 0x2ee ; [0x2a] -> 0x208be 00020626 02 ee | | .CONST 0x2ee ; [0x2b] -> 0x208be 00020628 02 ee | | .CONST 0x2ee ; [0x2c] -> 0x208be 0002062a 02 ee | | .CONST 0x2ee ; [0x2d] -> 0x208be 0002062c 02 ee | | .CONST 0x2ee ; [0x2e] -> 0x208be 0002062e 02 ee | | .CONST 0x2ee ; [0x2f] -> 0x208be 00020630 02 ee | | .CONST 0x2ee ; [0x30] -> 0x208be 00020632 02 ee | | .CONST 0x2ee ; [0x31] -> 0x208be 00020634 02 ee | | .CONST 0x2ee ; [0x32] -> 0x208be 00020636 02 ee | | .CONST 0x2ee ; [0x33] -> 0x208be 00020638 02 ee | | .CONST 0x2ee ; [0x34] -> 0x208be 0002063a 02 ee | | .CONST 0x2ee ; [0x35] -> 0x208be 0002063c 02 ee | | .CONST 0x2ee ; [0x36] -> 0x208be 0002063e 02 ee | | .CONST 0x2ee ; [0x37] -> 0x208be 00020640 02 ee | | .CONST 0x2ee ; [0x38] -> 0x208be 00020642 02 ee | | .CONST 0x2ee ; [0x39] -> 0x208be 00020644 02 ee | | .CONST 0x2ee ; [0x3a] -> 0x208be 00020646 02 ee | | .CONST 0x2ee ; [0x3b] -> 0x208be 00020648 02 ee | | .CONST 0x2ee ; [0x3c] -> 0x208be 0002064a 02 ee | | .CONST 0x2ee ; [0x3d] -> 0x208be 0002064c 02 ee | | .CONST 0x2ee ; [0x3e] -> 0x208be 0002064e 02 ee | | .CONST 0x2ee ; [0x3f] -> 0x208be 00020650 02 ee | | .CONST 0x2ee ; [0x40] -> 0x208be 00020652 02 ee | | .CONST 0x2ee ; [0x41] -> 0x208be 00020654 02 ee | | .CONST 0x2ee ; [0x42] -> 0x208be 00020656 02 ee | | .CONST 0x2ee ; [0x43] -> 0x208be 00020658 02 ee | | .CONST 0x2ee ; [0x44] -> 0x208be 0002065a 02 ee | | .CONST 0x2ee ; [0x45] -> 0x208be 0002065c 02 ee | | .CONST 0x2ee ; [0x46] -> 0x208be 0002065e 02 ee | | .CONST 0x2ee ; [0x47] -> 0x208be 00020660 02 ee | | .CONST 0x2ee ; [0x48] -> 0x208be 00020662 02 ee | | .CONST 0x2ee ; [0x49] -> 0x208be 00020664 02 ee | | .CONST 0x2ee ; [0x4a] -> 0x208be 00020666 02 ee | | .CONST 0x2ee ; [0x4b] -> 0x208be 00020668 02 ee | | .CONST 0x2ee ; [0x4c] -> 0x208be 0002066a 02 ee | | .CONST 0x2ee ; [0x4d] -> 0x208be 0002066c 02 ee | | .CONST 0x2ee ; [0x4e] -> 0x208be 0002066e 02 ee | | .CONST 0x2ee ; [0x4f] -> 0x208be 00020670 02 ee | | .CONST 0x2ee ; [0x50] -> 0x208be 00020672 02 ee | | .CONST 0x2ee ; [0x51] -> 0x208be 00020674 02 ee | | .CONST 0x2ee ; [0x52] -> 0x208be 00020676 02 ee | | .CONST 0x2ee ; [0x53] -> 0x208be 00020678 02 ee | | .CONST 0x2ee ; [0x54] -> 0x208be 0002067a 02 ee | | .CONST 0x2ee ; [0x55] -> 0x208be 0002067c 02 ee | | .CONST 0x2ee ; [0x56] -> 0x208be 0002067e 02 ee | | .CONST 0x2ee ; [0x57] -> 0x208be 00020680 02 ee | | .CONST 0x2ee ; [0x58] -> 0x208be 00020682 02 ee | | .CONST 0x2ee ; [0x59] -> 0x208be 00020684 02 ee | | .CONST 0x2ee ; [0x5a] -> 0x208be 00020686 02 ee | | .CONST 0x2ee ; [0x5b] -> 0x208be 00020688 02 ee | | .CONST 0x2ee ; [0x5c] -> 0x208be 0002068a 02 ee | | .CONST 0x2ee ; [0x5d] -> 0x208be 0002068c 02 ee | | .CONST 0x2ee ; [0x5e] -> 0x208be 0002068e 02 ee | | .CONST 0x2ee ; [0x5f] -> 0x208be 00020690 02 ee | | .CONST 0x2ee ; [0x60] -> 0x208be 00020692 02 ee | | .CONST 0x2ee ; [0x61] -> 0x208be 00020694 02 ee | | .CONST 0x2ee ; [0x62] -> 0x208be 00020696 02 ee | | .CONST 0x2ee ; [0x63] -> 0x208be 00020698 02 ee | | .CONST 0x2ee ; [0x64] -> 0x208be 0002069a 02 ee | | .CONST 0x2ee ; [0x65] -> 0x208be 0002069c 02 ee | | .CONST 0x2ee ; [0x66] -> 0x208be 0002069e 02 ee | | .CONST 0x2ee ; [0x67] -> 0x208be 000206a0 02 ee | | .CONST 0x2ee ; [0x68] -> 0x208be 000206a2 02 ee | | .CONST 0x2ee ; [0x69] -> 0x208be 000206a4 02 ee | | .CONST 0x2ee ; [0x6a] -> 0x208be 000206a6 02 ee | | .CONST 0x2ee ; [0x6b] -> 0x208be 000206a8 02 ee | | .CONST 0x2ee ; [0x6c] -> 0x208be 000206aa 02 ee | | .CONST 0x2ee ; [0x6d] -> 0x208be 000206ac 02 ee | | .CONST 0x2ee ; [0x6e] -> 0x208be 000206ae 02 ee | | .CONST 0x2ee ; [0x6f] -> 0x208be 000206b0 02 ee | | .CONST 0x2ee ; [0x70] -> 0x208be 000206b2 02 ee | | .CONST 0x2ee ; [0x71] -> 0x208be 000206b4 02 ee | | .CONST 0x2ee ; [0x72] -> 0x208be 000206b6 02 ee | | .CONST 0x2ee ; [0x73] -> 0x208be 000206b8 02 ee | | .CONST 0x2ee ; [0x74] -> 0x208be 000206ba 02 ee | | .CONST 0x2ee ; [0x75] -> 0x208be 000206bc 02 ee | | .CONST 0x2ee ; [0x76] -> 0x208be 000206be 02 ee | | .CONST 0x2ee ; [0x77] -> 0x208be 000206c0 02 ee | | .CONST 0x2ee ; [0x78] -> 0x208be 000206c2 02 ee | | .CONST 0x2ee ; [0x79] -> 0x208be 000206c4 02 ee | | .CONST 0x2ee ; [0x7a] -> 0x208be 000206c6 02 ee | | .CONST 0x2ee ; [0x7b] -> 0x208be 000206c8 02 ee | | .CONST 0x2ee ; [0x7c] -> 0x208be 000206ca 02 ee | | .CONST 0x2ee ; [0x7d] -> 0x208be 000206cc 02 ee | | .CONST 0x2ee ; [0x7e] -> 0x208be 000206ce 02 ee | | .CONST 0x2ee ; [0x7f] -> 0x208be 000206d0 02 ee | | .CONST 0x2ee ; [0x80] -> 0x208be 000206d2 02 ee | | .CONST 0x2ee ; [0x81] -> 0x208be 000206d4 02 ee | | .CONST 0x2ee ; [0x82] -> 0x208be 000206d6 02 ee | | .CONST 0x2ee ; [0x83] -> 0x208be 000206d8 02 ee | | .CONST 0x2ee ; [0x84] -> 0x208be 000206da 02 ee | | .CONST 0x2ee ; [0x85] -> 0x208be 000206dc 02 ee | | .CONST 0x2ee ; [0x86] -> 0x208be 000206de 02 ee | | .CONST 0x2ee ; [0x87] -> 0x208be 000206e0 02 ee | | .CONST 0x2ee ; [0x88] -> 0x208be 000206e2 02 ee | | .CONST 0x2ee ; [0x89] -> 0x208be 000206e4 02 ee | | .CONST 0x2ee ; [0x8a] -> 0x208be 000206e6 02 ee | | .CONST 0x2ee ; [0x8b] -> 0x208be 000206e8 02 ee | | .CONST 0x2ee ; [0x8c] -> 0x208be 000206ea 02 ee | | .CONST 0x2ee ; [0x8d] -> 0x208be 000206ec 02 ee | | .CONST 0x2ee ; [0x8e] -> 0x208be 000206ee 02 ee | | .CONST 0x2ee ; [0x8f] -> 0x208be 000206f0 02 ee | | .CONST 0x2ee ; [0x90] -> 0x208be 000206f2 02 ee | | .CONST 0x2ee ; [0x91] -> 0x208be 000206f4 02 ee | | .CONST 0x2ee ; [0x92] -> 0x208be 000206f6 02 ee | | .CONST 0x2ee ; [0x93] -> 0x208be 000206f8 02 ee | | .CONST 0x2ee ; [0x94] -> 0x208be 000206fa 02 ee | | .CONST 0x2ee ; [0x95] -> 0x208be 000206fc 02 ee | | .CONST 0x2ee ; [0x96] -> 0x208be 000206fe 02 ee | | .CONST 0x2ee ; [0x97] -> 0x208be 00020700 02 ee | | .CONST 0x2ee ; [0x98] -> 0x208be 00020702 02 ee | | .CONST 0x2ee ; [0x99] -> 0x208be 00020704 02 ee | | .CONST 0x2ee ; [0x9a] -> 0x208be 00020706 02 ee | | .CONST 0x2ee ; [0x9b] -> 0x208be 00020708 02 ee | | .CONST 0x2ee ; [0x9c] -> 0x208be 0002070a 02 ee | | .CONST 0x2ee ; [0x9d] -> 0x208be 0002070c 02 ee | | .CONST 0x2ee ; [0x9e] -> 0x208be 0002070e 02 ee | | .CONST 0x2ee ; [0x9f] -> 0x208be 00020710 02 ee | | .CONST 0x2ee ; [0xa0] -> 0x208be 00020712 02 ee | | .CONST 0x2ee ; [0xa1] -> 0x208be 00020714 02 ee | | .CONST 0x2ee ; [0xa2] -> 0x208be 00020716 02 ee | | .CONST 0x2ee ; [0xa3] -> 0x208be 00020718 02 ee | | .CONST 0x2ee ; [0xa4] -> 0x208be 0002071a 02 ee | | .CONST 0x2ee ; [0xa5] -> 0x208be 0002071c 02 ee | | .CONST 0x2ee ; [0xa6] -> 0x208be 0002071e 02 ee | | .CONST 0x2ee ; [0xa7] -> 0x208be 00020720 02 ee | | .CONST 0x2ee ; [0xa8] -> 0x208be 00020722 02 ee | | .CONST 0x2ee ; [0xa9] -> 0x208be 00020724 02 ee | | .CONST 0x2ee ; [0xaa] -> 0x208be 00020726 02 ee | | .CONST 0x2ee ; [0xab] -> 0x208be 00020728 02 ee | | .CONST 0x2ee ; [0xac] -> 0x208be 0002072a 02 ee | | .CONST 0x2ee ; [0xad] -> 0x208be 0002072c 02 ee | | .CONST 0x2ee ; [0xae] -> 0x208be 0002072e 02 ee | | .CONST 0x2ee ; [0xaf] -> 0x208be 00020730 02 ee | | .CONST 0x2ee ; [0xb0] -> 0x208be 00020732 02 ee | | .CONST 0x2ee ; [0xb1] -> 0x208be 00020734 02 ee | | .CONST 0x2ee ; [0xb2] -> 0x208be 00020736 02 ee | | .CONST 0x2ee ; [0xb3] -> 0x208be 00020738 02 ee | | .CONST 0x2ee ; [0xb4] -> 0x208be 0002073a 02 ee | | .CONST 0x2ee ; [0xb5] -> 0x208be 0002073c 02 ee | | .CONST 0x2ee ; [0xb6] -> 0x208be 0002073e 02 ee | | .CONST 0x2ee ; [0xb7] -> 0x208be 00020740 02 ee | | .CONST 0x2ee ; [0xb8] -> 0x208be 00020742 02 ee | | .CONST 0x2ee ; [0xb9] -> 0x208be 00020744 02 ee | | .CONST 0x2ee ; [0xba] -> 0x208be 00020746 02 ee | | .CONST 0x2ee ; [0xbb] -> 0x208be 00020748 02 ee | | .CONST 0x2ee ; [0xbc] -> 0x208be 0002074a 02 ee | | .CONST 0x2ee ; [0xbd] -> 0x208be 0002074c 02 ee | | .CONST 0x2ee ; [0xbe] -> 0x208be 0002074e 02 ee | | .CONST 0x2ee ; [0xbf] -> 0x208be 00020750 02 ee | | .CONST 0x2ee ; [0xc0] -> 0x208be 00020752 02 ee | | .CONST 0x2ee ; [0xc1] -> 0x208be 00020754 02 ee | | .CONST 0x2ee ; [0xc2] -> 0x208be 00020756 02 ee | | .CONST 0x2ee ; [0xc3] -> 0x208be 00020758 02 ee | | .CONST 0x2ee ; [0xc4] -> 0x208be 0002075a 02 ee | | .CONST 0x2ee ; [0xc5] -> 0x208be 0002075c 02 ee | | .CONST 0x2ee ; [0xc6] -> 0x208be 0002075e 02 ee | | .CONST 0x2ee ; [0xc7] -> 0x208be 00020760 02 ee | | .CONST 0x2ee ; [0xc8] -> 0x208be 00020762 02 ee | | .CONST 0x2ee ; [0xc9] -> 0x208be 00020764 02 ee | | .CONST 0x2ee ; [0xca] -> 0x208be 00020766 02 ee | | .CONST 0x2ee ; [0xcb] -> 0x208be 00020768 02 ee | | .CONST 0x2ee ; [0xcc] -> 0x208be 0002076a 02 ee | | .CONST 0x2ee ; [0xcd] -> 0x208be 0002076c 02 ee | | .CONST 0x2ee ; [0xce] -> 0x208be 0002076e 02 ee | | .CONST 0x2ee ; [0xcf] -> 0x208be 00020770 02 ee | | .CONST 0x2ee ; [0xd0] -> 0x208be 00020772 02 ee | | .CONST 0x2ee ; [0xd1] -> 0x208be 00020774 02 ee | | .CONST 0x2ee ; [0xd2] -> 0x208be 00020776 02 ee | | .CONST 0x2ee ; [0xd3] -> 0x208be 00020778 02 ee | | .CONST 0x2ee ; [0xd4] -> 0x208be 0002077a 02 ee | | .CONST 0x2ee ; [0xd5] -> 0x208be 0002077c 02 ee | | .CONST 0x2ee ; [0xd6] -> 0x208be 0002077e 02 ee | | .CONST 0x2ee ; [0xd7] -> 0x208be 00020780 02 ee | | .CONST 0x2ee ; [0xd8] -> 0x208be 00020782 02 ee | | .CONST 0x2ee ; [0xd9] -> 0x208be 00020784 02 ee | | .CONST 0x2ee ; [0xda] -> 0x208be 00020786 02 ee | | .CONST 0x2ee ; [0xdb] -> 0x208be 00020788 02 ee | | .CONST 0x2ee ; [0xdc] -> 0x208be 0002078a 02 ee | | .CONST 0x2ee ; [0xdd] -> 0x208be 0002078c 02 ee | | .CONST 0x2ee ; [0xde] -> 0x208be 0002078e 02 ee | | .CONST 0x2ee ; [0xdf] -> 0x208be 00020790 02 ee | | .CONST 0x2ee ; [0xe0] -> 0x208be 00020792 02 ee | | .CONST 0x2ee ; [0xe1] -> 0x208be 00020794 02 ee | | .CONST 0x2ee ; [0xe2] -> 0x208be 00020796 02 ee | | .CONST 0x2ee ; [0xe3] -> 0x208be 00020798 02 ee | | .CONST 0x2ee ; [0xe4] -> 0x208be 0002079a 02 ee | | .CONST 0x2ee ; [0xe5] -> 0x208be 0002079c 02 ee | | .CONST 0x2ee ; [0xe6] -> 0x208be 0002079e 02 ee | | .CONST 0x2ee ; [0xe7] -> 0x208be 000207a0 02 ee | | .CONST 0x2ee ; [0xe8] -> 0x208be 000207a2 02 ee | | .CONST 0x2ee ; [0xe9] -> 0x208be 000207a4 02 ee | | .CONST 0x2ee ; [0xea] -> 0x208be 000207a6 02 ee | | .CONST 0x2ee ; [0xeb] -> 0x208be 000207a8 02 ee | | .CONST 0x2ee ; [0xec] -> 0x208be 000207aa 02 ee | | .CONST 0x2ee ; [0xed] -> 0x208be 000207ac 02 ee | | .CONST 0x2ee ; [0xee] -> 0x208be 000207ae 02 ee | | .CONST 0x2ee ; [0xef] -> 0x208be 000207b0 02 ee | | .CONST 0x2ee ; [0xf0] -> 0x208be 000207b2 02 ee | | .CONST 0x2ee ; [0xf1] -> 0x208be 000207b4 02 ee | | .CONST 0x2ee ; [0xf2] -> 0x208be 000207b6 02 ee | | .CONST 0x2ee ; [0xf3] -> 0x208be 000207b8 02 ee | | .CONST 0x2ee ; [0xf4] -> 0x208be 000207ba 02 ee | | .CONST 0x2ee ; [0xf5] -> 0x208be 000207bc 02 ee | | .CONST 0x2ee ; [0xf6] -> 0x208be 000207be 02 ee | | .CONST 0x2ee ; [0xf7] -> 0x208be 000207c0 02 ee | | .CONST 0x2ee ; [0xf8] -> 0x208be 000207c2 02 ee | | .CONST 0x2ee ; [0xf9] -> 0x208be 000207c4 02 ee | | .CONST 0x2ee ; [0xfa] -> 0x208be 000207c6 02 ee | | .CONST 0x2ee ; [0xfb] -> 0x208be 000207c8 02 ee | | .CONST 0x2ee ; [0xfc] -> 0x208be 000207ca 02 ee | | .CONST 0x2ee ; [0xfd] -> 0x208be 000207cc 02 ee | | .CONST 0x2ee ; [0xfe] -> 0x208be 000207ce 02 dc | | .CONST 0x2dc ; [0xff] -> 0x208ac 000207d0 switch@0x205c8[0x0]: 000207d0 9e c2 | | SUBA.W D2,A7 000207d2 20 4f | O | MOVEA.L A7,A0 000207d4 43 fa f9 34 |C 4 | LEA.L 0x2010a,A1 000207d8 70 12 |p | MOVEQ.L #0x12,D0 000207da 10 d9 | | MOVE.B (A1)+,(A0)+ 000207dc 51 c8 ff fc |Q | DBF D0,0x207da 000207e0 59 4f |YO | SUBQ.L #0x4,A7 000207e2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000207e6 3f 01 |? | MOVE.W D1,-(A7) 000207e8 3f 04 |? | MOVE.W D4,-(A7) 000207ea 4e 92 |N | JSR (A2) 000207ec 60 00 00 fe |` | BRA 0x208ec 000207f0 switch@0x205c8[0x1]: 000207f0 9e c5 | | SUBA.W D5,A7 000207f2 20 4f | O | MOVEA.L A7,A0 000207f4 43 fa f9 28 |C ( | LEA.L 0x2011e,A1 000207f8 70 1c |p | MOVEQ.L #0x1c,D0 000207fa 10 d9 | | MOVE.B (A1)+,(A0)+ 000207fc 51 c8 ff fc |Q | DBF D0,0x207fa 00020800 59 4f |YO | SUBQ.L #0x4,A7 00020802 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020806 3f 01 |? | MOVE.W D1,-(A7) 00020808 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 0002080c 4e 92 |N | JSR (A2) 0002080e 50 4f |PO | ADDQ.L #0x8,A7 00020810 28 5f |(_ | MOVEA.L (A7)+,A4 00020812 de c5 | | ADDA.W D5,A7 00020814 60 00 00 dc |` | BRA 0x208f2 00020818 switch@0x205c8[0x2]: 00020818 41 fa f9 44 |A D | LEA.L 0x2015e,A0 0002081c 70 10 |p | MOVEQ.L #0x10,D0 0002081e 3f 20 |? | MOVE.W -(A0),-(A7) 00020820 51 c8 ff fc |Q | DBF D0,0x2081e 00020824 59 4f |YO | SUBQ.L #0x4,A7 00020826 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002082a 3f 01 |? | MOVE.W D1,-(A7) 0002082c 3f 06 |? | MOVE.W D6,-(A7) 0002082e 4e 92 |N | JSR (A2) 00020830 50 4f |PO | ADDQ.L #0x8,A7 00020832 28 5f |(_ | MOVEA.L (A7)+,A4 00020834 de c6 | | ADDA.W D6,A7 00020836 60 00 00 ba |` | BRA 0x208f2 0002083a switch@0x205c8[0x3]: 0002083a 41 fa f9 46 |A F | LEA.L 0x20182,A0 0002083e 70 08 |p | MOVEQ.L #0x08,D0 00020840 2f 20 |/ | MOVE.L -(A0),-(A7) 00020842 51 c8 ff fc |Q | DBF D0,0x20840 00020846 59 4f |YO | SUBQ.L #0x4,A7 00020848 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002084c 3f 01 |? | MOVE.W D1,-(A7) 0002084e 3f 07 |? | MOVE.W D7,-(A7) 00020850 4e 92 |N | JSR (A2) 00020852 50 4f |PO | ADDQ.L #0x8,A7 00020854 28 5f |(_ | MOVEA.L (A7)+,A4 00020856 de c7 | | ADDA.W D7,A7 00020858 60 00 00 98 |` | BRA 0x208f2 0002085c switch@0x205c8[0x4]: 0002085c 9e c3 | | SUBA.W D3,A7 0002085e 20 4f | O | MOVEA.L A7,A0 00020860 43 fa f9 20 |C | LEA.L 0x20182,A1 00020864 70 10 |p | MOVEQ.L #0x10,D0 00020866 10 d9 | | MOVE.B (A1)+,(A0)+ 00020868 51 c8 ff fc |Q | DBF D0,0x20866 0002086c 59 4f |YO | SUBQ.L #0x4,A7 0002086e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020872 3f 01 |? | MOVE.W D1,-(A7) 00020874 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00020878 4e 92 |N | JSR (A2) 0002087a 50 4f |PO | ADDQ.L #0x8,A7 0002087c 28 5f |(_ | MOVEA.L (A7)+,A4 0002087e de c3 | | ADDA.W D3,A7 00020880 60 70 |`p | BRA 0x208f2 00020882 switch@0x205c8[0x5]: 00020882 9e fc 00 1c | | SUBA.W #0x1c,A7 00020886 20 4f | O | MOVEA.L A7,A0 00020888 43 fa f9 0a |C | LEA.L 0x20194,A1 0002088c 70 1a |p | MOVEQ.L #0x1a,D0 0002088e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020890 51 c8 ff fc |Q | DBF D0,0x2088e 00020894 59 4f |YO | SUBQ.L #0x4,A7 00020896 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002089a 3f 01 |? | MOVE.W D1,-(A7) 0002089c 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 000208a0 4e 92 |N | JSR (A2) 000208a2 50 4f |PO | ADDQ.L #0x8,A7 000208a4 28 5f |(_ | MOVEA.L (A7)+,A4 000208a6 de fc 00 1c | | ADDA.W #0x1c,A7 000208aa 60 46 |`F | BRA 0x208f2 000208ac switch@0x205c8[0xff]: 000208ac 9e c3 | | SUBA.W D3,A7 000208ae 20 4f | O | MOVEA.L A7,A0 000208b0 43 fa f8 fe |C | LEA.L 0x201b0,A1 000208b4 70 10 |p | MOVEQ.L #0x10,D0 000208b6 10 d9 | | MOVE.B (A1)+,(A0)+ 000208b8 51 c8 ff fc |Q | DBF D0,0x208b6 000208bc 60 ae |` | BRA 0x2086c 000208be switch@0x205c8[0x10]: 000208be switch@0x205c8[0x11]: 000208be switch@0x205c8[0x12]: 000208be switch@0x205c8[0x13]: 000208be switch@0x205c8[0x14]: 000208be switch@0x205c8[0x15]: 000208be switch@0x205c8[0x16]: 000208be switch@0x205c8[0x17]: 000208be switch@0x205c8[0x18]: 000208be switch@0x205c8[0x19]: 000208be switch@0x205c8[0x1a]: 000208be switch@0x205c8[0x1b]: 000208be switch@0x205c8[0x1c]: 000208be switch@0x205c8[0x1d]: 000208be switch@0x205c8[0x1e]: 000208be switch@0x205c8[0x1f]: 000208be switch@0x205c8[0x20]: 000208be switch@0x205c8[0x21]: 000208be switch@0x205c8[0x22]: 000208be switch@0x205c8[0x23]: 000208be switch@0x205c8[0x24]: 000208be switch@0x205c8[0x25]: 000208be switch@0x205c8[0x26]: 000208be switch@0x205c8[0x27]: 000208be switch@0x205c8[0x28]: 000208be switch@0x205c8[0x29]: 000208be switch@0x205c8[0x2a]: 000208be switch@0x205c8[0x2b]: 000208be switch@0x205c8[0x2c]: 000208be switch@0x205c8[0x2d]: 000208be switch@0x205c8[0x2e]: 000208be switch@0x205c8[0x2f]: 000208be switch@0x205c8[0x30]: 000208be switch@0x205c8[0x31]: 000208be switch@0x205c8[0x32]: 000208be switch@0x205c8[0x33]: 000208be switch@0x205c8[0x34]: 000208be switch@0x205c8[0x35]: 000208be switch@0x205c8[0x36]: 000208be switch@0x205c8[0x37]: 000208be switch@0x205c8[0x38]: 000208be switch@0x205c8[0x39]: 000208be switch@0x205c8[0x3a]: 000208be switch@0x205c8[0x3b]: 000208be switch@0x205c8[0x3c]: 000208be switch@0x205c8[0x3d]: 000208be switch@0x205c8[0x3e]: 000208be switch@0x205c8[0x3f]: 000208be switch@0x205c8[0x40]: 000208be switch@0x205c8[0x41]: 000208be switch@0x205c8[0x42]: 000208be switch@0x205c8[0x43]: 000208be switch@0x205c8[0x44]: 000208be switch@0x205c8[0x45]: 000208be switch@0x205c8[0x46]: 000208be switch@0x205c8[0x47]: 000208be switch@0x205c8[0x48]: 000208be switch@0x205c8[0x49]: 000208be switch@0x205c8[0x4a]: 000208be switch@0x205c8[0x4b]: 000208be switch@0x205c8[0x4c]: 000208be switch@0x205c8[0x4d]: 000208be switch@0x205c8[0x4e]: 000208be switch@0x205c8[0x4f]: 000208be switch@0x205c8[0x50]: 000208be switch@0x205c8[0x51]: 000208be switch@0x205c8[0x52]: 000208be switch@0x205c8[0x53]: 000208be switch@0x205c8[0x54]: 000208be switch@0x205c8[0x55]: 000208be switch@0x205c8[0x56]: 000208be switch@0x205c8[0x57]: 000208be switch@0x205c8[0x58]: 000208be switch@0x205c8[0x59]: 000208be switch@0x205c8[0x5a]: 000208be switch@0x205c8[0x5b]: 000208be switch@0x205c8[0x5c]: 000208be switch@0x205c8[0x5d]: 000208be switch@0x205c8[0x5e]: 000208be switch@0x205c8[0x5f]: 000208be switch@0x205c8[0x60]: 000208be switch@0x205c8[0x61]: 000208be switch@0x205c8[0x62]: 000208be switch@0x205c8[0x63]: 000208be switch@0x205c8[0x64]: 000208be switch@0x205c8[0x65]: 000208be switch@0x205c8[0x66]: 000208be switch@0x205c8[0x67]: 000208be switch@0x205c8[0x68]: 000208be switch@0x205c8[0x69]: 000208be switch@0x205c8[0x6]: 000208be switch@0x205c8[0x6a]: 000208be switch@0x205c8[0x6b]: 000208be switch@0x205c8[0x6c]: 000208be switch@0x205c8[0x6d]: 000208be switch@0x205c8[0x6e]: 000208be switch@0x205c8[0x6f]: 000208be switch@0x205c8[0x70]: 000208be switch@0x205c8[0x71]: 000208be switch@0x205c8[0x72]: 000208be switch@0x205c8[0x73]: 000208be switch@0x205c8[0x74]: 000208be switch@0x205c8[0x75]: 000208be switch@0x205c8[0x76]: 000208be switch@0x205c8[0x77]: 000208be switch@0x205c8[0x78]: 000208be switch@0x205c8[0x79]: 000208be switch@0x205c8[0x7]: 000208be switch@0x205c8[0x7a]: 000208be switch@0x205c8[0x7b]: 000208be switch@0x205c8[0x7c]: 000208be switch@0x205c8[0x7d]: 000208be switch@0x205c8[0x7e]: 000208be switch@0x205c8[0x7f]: 000208be switch@0x205c8[0x80]: 000208be switch@0x205c8[0x81]: 000208be switch@0x205c8[0x82]: 000208be switch@0x205c8[0x83]: 000208be switch@0x205c8[0x84]: 000208be switch@0x205c8[0x85]: 000208be switch@0x205c8[0x86]: 000208be switch@0x205c8[0x87]: 000208be switch@0x205c8[0x88]: 000208be switch@0x205c8[0x89]: 000208be switch@0x205c8[0x8]: 000208be switch@0x205c8[0x8a]: 000208be switch@0x205c8[0x8b]: 000208be switch@0x205c8[0x8c]: 000208be switch@0x205c8[0x8d]: 000208be switch@0x205c8[0x8e]: 000208be switch@0x205c8[0x8f]: 000208be switch@0x205c8[0x90]: 000208be switch@0x205c8[0x91]: 000208be switch@0x205c8[0x92]: 000208be switch@0x205c8[0x93]: 000208be switch@0x205c8[0x94]: 000208be switch@0x205c8[0x95]: 000208be switch@0x205c8[0x96]: 000208be switch@0x205c8[0x97]: 000208be switch@0x205c8[0x98]: 000208be switch@0x205c8[0x99]: 000208be switch@0x205c8[0x9]: 000208be switch@0x205c8[0x9a]: 000208be switch@0x205c8[0x9b]: 000208be switch@0x205c8[0x9c]: 000208be switch@0x205c8[0x9d]: 000208be switch@0x205c8[0x9e]: 000208be switch@0x205c8[0x9f]: 000208be switch@0x205c8[0xa0]: 000208be switch@0x205c8[0xa1]: 000208be switch@0x205c8[0xa2]: 000208be switch@0x205c8[0xa3]: 000208be switch@0x205c8[0xa4]: 000208be switch@0x205c8[0xa5]: 000208be switch@0x205c8[0xa6]: 000208be switch@0x205c8[0xa7]: 000208be switch@0x205c8[0xa8]: 000208be switch@0x205c8[0xa9]: 000208be switch@0x205c8[0xa]: 000208be switch@0x205c8[0xaa]: 000208be switch@0x205c8[0xab]: 000208be switch@0x205c8[0xac]: 000208be switch@0x205c8[0xad]: 000208be switch@0x205c8[0xae]: 000208be switch@0x205c8[0xaf]: 000208be switch@0x205c8[0xb0]: 000208be switch@0x205c8[0xb1]: 000208be switch@0x205c8[0xb2]: 000208be switch@0x205c8[0xb3]: 000208be switch@0x205c8[0xb4]: 000208be switch@0x205c8[0xb5]: 000208be switch@0x205c8[0xb6]: 000208be switch@0x205c8[0xb7]: 000208be switch@0x205c8[0xb8]: 000208be switch@0x205c8[0xb9]: 000208be switch@0x205c8[0xb]: 000208be switch@0x205c8[0xba]: 000208be switch@0x205c8[0xbb]: 000208be switch@0x205c8[0xbc]: 000208be switch@0x205c8[0xbd]: 000208be switch@0x205c8[0xbe]: 000208be switch@0x205c8[0xbf]: 000208be switch@0x205c8[0xc0]: 000208be switch@0x205c8[0xc1]: 000208be switch@0x205c8[0xc2]: 000208be switch@0x205c8[0xc3]: 000208be switch@0x205c8[0xc4]: 000208be switch@0x205c8[0xc5]: 000208be switch@0x205c8[0xc6]: 000208be switch@0x205c8[0xc7]: 000208be switch@0x205c8[0xc8]: 000208be switch@0x205c8[0xc9]: 000208be switch@0x205c8[0xc]: 000208be switch@0x205c8[0xca]: 000208be switch@0x205c8[0xcb]: 000208be switch@0x205c8[0xcc]: 000208be switch@0x205c8[0xcd]: 000208be switch@0x205c8[0xce]: 000208be switch@0x205c8[0xcf]: 000208be switch@0x205c8[0xd0]: 000208be switch@0x205c8[0xd1]: 000208be switch@0x205c8[0xd2]: 000208be switch@0x205c8[0xd3]: 000208be switch@0x205c8[0xd4]: 000208be switch@0x205c8[0xd5]: 000208be switch@0x205c8[0xd6]: 000208be switch@0x205c8[0xd7]: 000208be switch@0x205c8[0xd8]: 000208be switch@0x205c8[0xd9]: 000208be switch@0x205c8[0xd]: 000208be switch@0x205c8[0xda]: 000208be switch@0x205c8[0xdb]: 000208be switch@0x205c8[0xdc]: 000208be switch@0x205c8[0xdd]: 000208be switch@0x205c8[0xde]: 000208be switch@0x205c8[0xdf]: 000208be switch@0x205c8[0xe0]: 000208be switch@0x205c8[0xe1]: 000208be switch@0x205c8[0xe2]: 000208be switch@0x205c8[0xe3]: 000208be switch@0x205c8[0xe4]: 000208be switch@0x205c8[0xe5]: 000208be switch@0x205c8[0xe6]: 000208be switch@0x205c8[0xe7]: 000208be switch@0x205c8[0xe8]: 000208be switch@0x205c8[0xe9]: 000208be switch@0x205c8[0xe]: 000208be switch@0x205c8[0xea]: 000208be switch@0x205c8[0xeb]: 000208be switch@0x205c8[0xec]: 000208be switch@0x205c8[0xed]: 000208be switch@0x205c8[0xee]: 000208be switch@0x205c8[0xef]: 000208be switch@0x205c8[0xf0]: 000208be switch@0x205c8[0xf1]: 000208be switch@0x205c8[0xf2]: 000208be switch@0x205c8[0xf3]: 000208be switch@0x205c8[0xf4]: 000208be switch@0x205c8[0xf5]: 000208be switch@0x205c8[0xf6]: 000208be switch@0x205c8[0xf7]: 000208be switch@0x205c8[0xf8]: 000208be switch@0x205c8[0xf9]: 000208be switch@0x205c8[0xf]: 000208be switch@0x205c8[0xfa]: 000208be switch@0x205c8[0xfb]: 000208be switch@0x205c8[0xfc]: 000208be switch@0x205c8[0xfd]: 000208be switch@0x205c8[0xfe]: 000208be 9e c2 | | SUBA.W D2,A7 000208c0 20 4f | O | MOVEA.L A7,A0 000208c2 43 fa f8 fe |C | LEA.L 0x201c2,A1 000208c6 70 12 |p | MOVEQ.L #0x12,D0 000208c8 10 d9 | | MOVE.B (A1)+,(A0)+ 000208ca 51 c8 ff fc |Q | DBF D0,0x208c8 000208ce 51 4f |QO | SUBQ.L #0x8,A7 000208d0 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000208d4 3f 01 |? | MOVE.W D1,-(A7) 000208d6 3f 04 |? | MOVE.W D4,-(A7) 000208d8 4e 92 |N | JSR (A2) 000208da 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 000208de 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000208e4 58 4f |XO | ADDQ.L #0x4,A7 000208e6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000208ec 50 4f |PO | ADDQ.L #0x8,A7 000208ee 28 5f |(_ | MOVEA.L (A7)+,A4 000208f0 de c2 | | ADDA.W D2,A7 000208f2 2d 4c 00 0c |-L | MOVE.L A4,(A6+0xc) 000208f6 4c df 17 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A4 000208fa 4e 5e |N^ | UNLK A6 000208fc 4e 75 |Nu | RTS 000208fe ; -------------------------------------------------------------------------------------- 000208fe ; OMSI PASCAL Function 000208fe ; <LVAR 0x00c 4(w)> 000208fe ; <LVAR 0x008 4(r)> 000208fe ; -------------------------------------------------------------------------------------- 000208fe 4e 56 ff a2 |NV | LINK.W A6,#0xffa2 00020902 bf d5 | | CMPA.L (A5),A7 00020904 62 06 |b | BHI 0x2090c 00020906 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002090a 4e 76 |Nv | TRAPV 0002090c de fc 00 5a | Z | ADDA.W #0x5a,A7 00020910 48 e7 ff e8 |H | MOVEM.L A4+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020914 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 0002091a 72 01 |r | MOVEQ.L #0x01,D1 0002091c 74 10 |t | MOVEQ.L #0x10,D2 0002091e 76 12 |v | MOVEQ.L #0x12,D3 00020920 78 0c |x | MOVEQ.L #0x0c,D4 00020922 7a 0a |z | MOVEQ.L #0x0a,D5 00020924 7c 1a || | MOVEQ.L #0x1a,D6 00020926 7e 16 |~ | MOVEQ.L #0x16,D7 00020928 20 2e 00 08 | . | MOVE.L (A6+0x8),D0 0002092c 0c 80 00 00 00 06 | | CMPI.L #0x00000006,D0 00020932 62 00 01 0e |b | BHI 0x20a42 00020936 d0 40 | @ | ADD.W D0,D0 00020938 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020940 00 0e | | .CONST 0xe ; [0x0] -> 0x2094e 00020942 00 36 | 6 | .CONST 0x36 ; [0x1] -> 0x20976 00020944 00 5e | ^ | .CONST 0x5e ; [0x2] -> 0x2099e 00020946 00 80 | | .CONST 0x80 ; [0x3] -> 0x209c0 00020948 00 a8 | | .CONST 0xa8 ; [0x4] -> 0x209e8 0002094a 00 bc | | .CONST 0xbc ; [0x5] -> 0x209fc 0002094c 00 e2 | | .CONST 0xe2 ; [0x6] -> 0x20a22 0002094e switch@0x20938[0x0]: 0002094e 9e c2 | | SUBA.W D2,A7 00020950 20 4f | O | MOVEA.L A7,A0 00020952 43 fa f8 82 |C | LEA.L 0x201d6,A1 00020956 70 0e |p | MOVEQ.L #0x0e,D0 00020958 10 d9 | | MOVE.B (A1)+,(A0)+ 0002095a 51 c8 ff fc |Q | DBF D0,0x20958 0002095e 59 4f |YO | SUBQ.L #0x4,A7 00020960 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020964 3f 01 |? | MOVE.W D1,-(A7) 00020966 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 0002096a 4e 92 |N | JSR (A2) 0002096c 50 4f |PO | ADDQ.L #0x8,A7 0002096e 28 5f |(_ | MOVEA.L (A7)+,A4 00020970 de c2 | | ADDA.W D2,A7 00020972 60 00 01 08 |` | BRA 0x20a7c 00020976 switch@0x20938[0x1]: 00020976 9e c3 | | SUBA.W D3,A7 00020978 20 4f | O | MOVEA.L A7,A0 0002097a 43 fa f8 6a |C j | LEA.L 0x201e6,A1 0002097e 70 10 |p | MOVEQ.L #0x10,D0 00020980 10 d9 | | MOVE.B (A1)+,(A0)+ 00020982 51 c8 ff fc |Q | DBF D0,0x20980 00020986 59 4f |YO | SUBQ.L #0x4,A7 00020988 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002098c 3f 01 |? | MOVE.W D1,-(A7) 0002098e 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00020992 4e 92 |N | JSR (A2) 00020994 50 4f |PO | ADDQ.L #0x8,A7 00020996 28 5f |(_ | MOVEA.L (A7)+,A4 00020998 de c3 | | ADDA.W D3,A7 0002099a 60 00 00 e0 |` | BRA 0x20a7c 0002099e switch@0x20938[0x2]: 0002099e 2f 3a f8 60 |/: ` | MOVE.L 0x20200,-(A7) 000209a2 2f 3a f8 58 |/: X | MOVE.L 0x201fc,-(A7) 000209a6 2f 3a f8 50 |/: P | MOVE.L 0x201f8,-(A7) 000209aa 59 4f |YO | SUBQ.L #0x4,A7 000209ac 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000209b0 3f 01 |? | MOVE.W D1,-(A7) 000209b2 3f 04 |? | MOVE.W D4,-(A7) 000209b4 4e 92 |N | JSR (A2) 000209b6 50 4f |PO | ADDQ.L #0x8,A7 000209b8 28 5f |(_ | MOVEA.L (A7)+,A4 000209ba de c4 | | ADDA.W D4,A7 000209bc 60 00 00 be |` | BRA 0x20a7c 000209c0 switch@0x20938[0x3]: 000209c0 9e c5 | | SUBA.W D5,A7 000209c2 20 4f | O | MOVEA.L A7,A0 000209c4 43 fa f8 3e |C > | LEA.L 0x20204,A1 000209c8 70 08 |p | MOVEQ.L #0x08,D0 000209ca 10 d9 | | MOVE.B (A1)+,(A0)+ 000209cc 51 c8 ff fc |Q | DBF D0,0x209ca 000209d0 59 4f |YO | SUBQ.L #0x4,A7 000209d2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000209d6 3f 01 |? | MOVE.W D1,-(A7) 000209d8 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 000209dc 4e 92 |N | JSR (A2) 000209de 50 4f |PO | ADDQ.L #0x8,A7 000209e0 28 5f |(_ | MOVEA.L (A7)+,A4 000209e2 de c5 | | ADDA.W D5,A7 000209e4 60 00 00 96 |` | BRA 0x20a7c 000209e8 switch@0x20938[0x4]: 000209e8 9e c2 | | SUBA.W D2,A7 000209ea 20 4f | O | MOVEA.L A7,A0 000209ec 43 fa f8 20 |C | LEA.L 0x2020e,A1 000209f0 70 0e |p | MOVEQ.L #0x0e,D0 000209f2 10 d9 | | MOVE.B (A1)+,(A0)+ 000209f4 51 c8 ff fc |Q | DBF D0,0x209f2 000209f8 60 00 ff 64 |` d | BRA 0x2095e 000209fc switch@0x20938[0x5]: 000209fc 9e c6 | | SUBA.W D6,A7 000209fe 20 4f | O | MOVEA.L A7,A0 00020a00 43 fa f8 1c |C | LEA.L 0x2021e,A1 00020a04 70 18 |p | MOVEQ.L #0x18,D0 00020a06 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a08 51 c8 ff fc |Q | DBF D0,0x20a06 00020a0c 59 4f |YO | SUBQ.L #0x4,A7 00020a0e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a12 3f 01 |? | MOVE.W D1,-(A7) 00020a14 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 00020a18 4e 92 |N | JSR (A2) 00020a1a 50 4f |PO | ADDQ.L #0x8,A7 00020a1c 28 5f |(_ | MOVEA.L (A7)+,A4 00020a1e de c6 | | ADDA.W D6,A7 00020a20 60 5a |`Z | BRA 0x20a7c 00020a22 switch@0x20938[0x6]: 00020a22 41 fa f8 2a |A * | LEA.L 0x2024e,A0 00020a26 70 0a |p | MOVEQ.L #0x0a,D0 00020a28 3f 20 |? | MOVE.W -(A0),-(A7) 00020a2a 51 c8 ff fc |Q | DBF D0,0x20a28 00020a2e 59 4f |YO | SUBQ.L #0x4,A7 00020a30 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a34 3f 01 |? | MOVE.W D1,-(A7) 00020a36 3f 07 |? | MOVE.W D7,-(A7) 00020a38 4e 92 |N | JSR (A2) 00020a3a 50 4f |PO | ADDQ.L #0x8,A7 00020a3c 28 5f |(_ | MOVEA.L (A7)+,A4 00020a3e de c7 | | ADDA.W D7,A7 00020a40 60 3a |`: | BRA 0x20a7c 00020a42 9e fc 00 14 | | SUBA.W #0x14,A7 00020a46 20 4f | O | MOVEA.L A7,A0 00020a48 43 fa f8 04 |C | LEA.L 0x2024e,A1 00020a4c 70 12 |p | MOVEQ.L #0x12,D0 00020a4e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a50 51 c8 ff fc |Q | DBF D0,0x20a4e 00020a54 51 4f |QO | SUBQ.L #0x8,A7 00020a56 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020a5a 3f 01 |? | MOVE.W D1,-(A7) 00020a5c 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00020a60 4e 92 |N | JSR (A2) 00020a62 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00020a66 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020a6c 58 4f |XO | ADDQ.L #0x4,A7 00020a6e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020a74 50 4f |PO | ADDQ.L #0x8,A7 00020a76 28 5f |(_ | MOVEA.L (A7)+,A4 00020a78 de fc 00 14 | | ADDA.W #0x14,A7 00020a7c 2d 4c 00 0c |-L | MOVE.L A4,(A6+0xc) 00020a80 4c df 17 ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A4 00020a84 4e 5e |N^ | UNLK A6 00020a86 4e 75 |Nu | RTS 00020a88 ; -------------------------------------------------------------------------------------- 00020a88 ; OMSI PASCAL Function 00020a88 ; <LVAR 0x008 1(w)> 00020a88 ; <LVAR -0x004 @ 1(r)> 00020a88 ; -------------------------------------------------------------------------------------- 00020a88 4e 56 ff ea |NV | LINK.W A6,#0xffea 00020a8c bf d5 | | CMPA.L (A5),A7 00020a8e 62 06 |b | BHI 0x20a96 00020a90 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a94 4e 76 |Nv | TRAPV 00020a96 de fc 00 12 | | ADDA.W #0x12,A7 00020a9a 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020a9e 41 ee ff fc |A | LEA.L (A6-0x4),A0 00020aa2 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00020aa6 48 50 |HP | PEA.L (A0) 00020aa8 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00020aae 5c 4f |\O | ADDQ.L #0x6,A7 00020ab0 4a 10 |J | TST.B (A0) 00020ab2 67 ee |g | BEQ 0x20aa2 00020ab4 10 10 | | MOVE.B (A0),D0 00020ab6 48 80 |H | EXTB.W D0 00020ab8 41 bc 00 06 |A | CHK.W #0x6,D0 00020abc 1d 40 00 08 | @ | MOVE.B D0,(A6+0x8) 00020ac0 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020ac4 4e 5e |N^ | UNLK A6 00020ac6 4e 75 |Nu | RTS 00020ac8 ; -------------------------------------------------------------------------------------- 00020ac8 ; OMSI PASCAL Function 00020ac8 ; <LVAR 0x00c 2(w)> 00020ac8 ; <LVAR 0x008 4(r)> 00020ac8 ; -------------------------------------------------------------------------------------- 00020ac8 4e 56 ff f2 |NV | LINK.W A6,#0xfff2 00020acc bf d5 | | CMPA.L (A5),A7 00020ace 62 06 |b | BHI 0x20ad6 00020ad0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020ad4 4e 76 |Nv | TRAPV 00020ad6 de fc 00 0e | | ADDA.W #0xe,A7 00020ada 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00020ade 55 4f |UO | SUBQ.L #0x2,A7 00020ae0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00020ae4 4e b9 00 01 05 92 |N | JSR ReadConfig(where : Long) : Word 00020aea 58 4f |XO | ADDQ.L #0x4,A7 00020aec 30 1f |0 | MOVE.W (A7)+,D0 00020aee 41 bc 00 ff |A | CHK.W #0xff,D0 00020af2 3d 40 00 0c |=@ | MOVE.W D0,(A6+0xc) 00020af6 4c df 00 01 |L | MOVEM.L (A7)+,D0 00020afa 4e 5e |N^ | UNLK A6 00020afc 4e 75 |Nu | RTS 00020afe ; -------------------------------------------------------------------------------------- 00020afe ; OMSI PASCAL Function 00020afe ; <LVAR 0x008 4(r)> 00020afe ; -------------------------------------------------------------------------------------- 00020afe 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00020b02 bf d5 | | CMPA.L (A5),A7 00020b04 62 06 |b | BHI 0x20b0c 00020b06 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b0a 4e 76 |Nv | TRAPV 00020b0c de fc 00 3a | : | ADDA.W #0x3a,A7 00020b10 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020b14 48 78 00 01 |Hx | PEA.L 0x1 00020b18 4e b9 00 01 03 f4 |N | JSR SetConsoleConfig(a : Long) 00020b1e 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00020b22 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020b28 9e fc 00 1a | | SUBA.W #0x1a,A7 00020b2c 20 4f | O | MOVEA.L A7,A0 00020b2e 43 fa f7 32 |C 2 | LEA.L 0x20262,A1 00020b32 70 1c |p | MOVEQ.L #0x1c,D0 00020b34 10 d9 | | MOVE.B (A1)+,(A0)+ 00020b36 51 c8 ff fc |Q | DBF D0,0x20b34 00020b3a 59 4f |YO | SUBQ.L #0x4,A7 00020b3c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020b40 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020b44 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 00020b48 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020b4e 50 4f |PO | ADDQ.L #0x8,A7 00020b50 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020b56 de fc 00 20 | | ADDA.W #0x20,A7 00020b5a 42 17 |B | CLR.B (A7) 00020b5c 48 78 00 01 |Hx | PEA.L 0x1 00020b60 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020b66 5c 4f |\O | ADDQ.L #0x6,A7 00020b68 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020b6c 4e 5e |N^ | UNLK A6 00020b6e 4e 75 |Nu | RTS 00020b70 ; -------------------------------------------------------------------------------------- 00020b70 ; OMSI PASCAL Function 00020b70 ; <LVAR 0x00c 4(r)> 00020b70 ; <LVAR 0x008 4(r)> 00020b70 ; <LVAR -0x002 @ 2(r)> 00020b70 ; <LVAR -0x004 @ 1(r)> 00020b70 ; -------------------------------------------------------------------------------------- 00020b70 4e 56 ff ca |NV | LINK.W A6,#0xffca 00020b74 bf d5 | | CMPA.L (A5),A7 00020b76 62 06 |b | BHI 0x20b7e 00020b78 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b7c 4e 76 |Nv | TRAPV 00020b7e de fc 00 2a | * | ADDA.W #0x2a,A7 00020b82 48 e7 c3 80 |H | MOVEM.L A0+D7+D6+D1+D0,-(A7) 00020b86 72 01 |r | MOVEQ.L #0x01,D1 00020b88 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020b8c 42 10 |B | CLR.B (A0) 00020b8e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00020b92 7c 01 || | MOVEQ.L #0x01,D6 00020b94 bc 97 | | CMP.L (A7),D6 00020b96 6e 4c |nL | BGT 0x20be4 00020b98 7e 01 |~ | MOVEQ.L #0x01,D7 00020b9a 3f 01 |? | MOVE.W D1,-(A7) 00020b9c 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020ba0 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00020ba6 5c 4f |\O | ADDQ.L #0x6,A7 00020ba8 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00020bac b0 01 | | CMP.B D1,D0 00020bae 66 26 |f& | BNE 0x20bd6 00020bb0 3f 01 |? | MOVE.W D1,-(A7) 00020bb2 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020bb6 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020bbc 5c 4f |\O | ADDQ.L #0x6,A7 00020bbe 30 2e ff fe |0. | MOVE.W (A6-0x2),D0 00020bc2 02 40 00 ff | @ | ANDI.W #0x00ff,D0 00020bc6 0c 40 00 03 | @ | CMPI.W #0x0003,D0 00020bca 66 0a |f | BNE 0x20bd6 00020bcc 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020bd0 10 81 | | MOVE.B D1,(A0) 00020bd2 58 4f |XO | ADDQ.L #0x4,A7 00020bd4 60 10 |` | BRA 0x20be6 00020bd6 52 87 |R | ADDQ.L #0x1,D7 00020bd8 0c 87 00 00 03 e8 | | CMPI.L #0x000003e8,D7 00020bde 6f ba |o | BLE 0x20b9a 00020be0 52 86 |R | ADDQ.L #0x1,D6 00020be2 68 b0 |h | BVC 0x20b94 00020be4 58 4f |XO | ADDQ.L #0x4,A7 00020be6 4c df 01 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0 00020bea 4e 5e |N^ | UNLK A6 00020bec 4e 75 |Nu | RTS 00020bee ; -------------------------------------------------------------------------------------- 00020bee ; OMSI PASCAL Function 00020bee ; <LVAR 0x00c 4(rw)> 00020bee ; <LVAR 0x008 4(r)> 00020bee ; -------------------------------------------------------------------------------------- 00020bee 4e 56 ff ec |NV | LINK.W A6,#0xffec 00020bf2 bf d5 | | CMPA.L (A5),A7 00020bf4 62 06 |b | BHI 0x20bfc 00020bf6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020bfa 4e 76 |Nv | TRAPV 00020bfc de fc 00 14 | | ADDA.W #0x14,A7 00020c00 48 e7 00 80 |H | MOVEM.L A0,-(A7) 00020c04 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020c08 48 78 00 3c |Hx < | PEA.L 0x3c 00020c0c 48 50 |HP | PEA.L (A0) 00020c0e 4e ba ff 60 |N ` | JSR 0x20b70 00020c12 50 4f |PO | ADDQ.L #0x8,A7 00020c14 53 ae 00 0c |S | SUBQ.L #0x1,(A6+0xc) 00020c18 4a 10 |J | TST.B (A0) 00020c1a 66 06 |f | BNE 0x20c22 00020c1c 4a ae 00 0c |J | TST.L (A6+0xc) 00020c20 66 e2 |f | BNE 0x20c04 00020c22 4c df 01 00 |L | MOVEM.L (A7)+,A0 00020c26 4e 5e |N^ | UNLK A6 00020c28 4e 75 |Nu | RTS 00020c2a ; -------------------------------------------------------------------------------------- 00020c2a ; OMSI PASCAL Function 00020c2a ; <LVAR 0x008 4(r)> 00020c2a ; <LVAR -0x004 @ 1(r)> 00020c2a ; -------------------------------------------------------------------------------------- 00020c2a 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00020c2e bf d5 | | CMPA.L (A5),A7 00020c30 62 06 |b | BHI 0x20c38 00020c32 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020c36 4e 76 |Nv | TRAPV 00020c38 de fc 00 58 | X | ADDA.W #0x58,A7 00020c3c 48 e7 f1 e0 |H | MOVEM.L A2+A1+A0+D7+D3+D2+D1+D0,-(A7) 00020c40 45 f9 00 01 03 d0 |E | LEA.L WriteConsoleChar(chr : char),A2 00020c46 72 01 |r | MOVEQ.L #0x01,D1 00020c48 74 1b |t | MOVEQ.L #0x1b,D2 00020c4a 76 5b |v[ | MOVEQ.L #0x5b,D3 00020c4c 48 78 00 01 |Hx | PEA.L 0x1 00020c50 4e b9 00 01 03 f4 |N | JSR SetConsoleConfig(a : Long) 00020c56 58 4f |XO | ADDQ.L #0x4,A7 00020c58 41 fa f6 44 |A D | LEA.L 0x2029e,A0 00020c5c 70 0e |p | MOVEQ.L #0x0e,D0 00020c5e 3f 20 |? | MOVE.W -(A0),-(A7) 00020c60 51 c8 ff fc |Q | DBF D0,0x20c5e 00020c64 51 4f |QO | SUBQ.L #0x8,A7 00020c66 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020c6a 3f 01 |? | MOVE.W D1,-(A7) 00020c6c 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 00020c70 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020c76 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00020c7a 4e ba f9 12 |N | JSR 0x2058e 00020c7e 58 4f |XO | ADDQ.L #0x4,A7 00020c80 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020c86 50 4f |PO | ADDQ.L #0x8,A7 00020c88 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020c8e 5d 4f |]O | SUBQ.L #0x6,A7 00020c90 20 4f | O | MOVEA.L A7,A0 00020c92 43 fa f6 0a |C | LEA.L 0x2029e,A1 00020c96 70 26 |p& | MOVEQ.L #0x26,D0 00020c98 10 d9 | | MOVE.B (A1)+,(A0)+ 00020c9a 51 c8 ff fc |Q | DBF D0,0x20c98 00020c9e 59 4f |YO | SUBQ.L #0x4,A7 00020ca0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020ca4 3f 01 |? | MOVE.W D1,-(A7) 00020ca6 3f 3c 00 27 |?< ' | MOVE.W #0x27,-(A7) 00020caa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020cb0 50 4f |PO | ADDQ.L #0x8,A7 00020cb2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020cb8 de fc 00 2c | , | ADDA.W #0x2c,A7 00020cbc 48 78 00 25 |Hx % | PEA.L 0x25 00020cc0 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020cc4 4e ba ff 28 |N ( | JSR 0x20bee 00020cc8 50 4f |PO | ADDQ.L #0x8,A7 00020cca 4a 2e ff fc |J. | TST.B (A6-0x4) 00020cce 67 0e |g | BEQ 0x20cde 00020cd0 42 27 |B' | CLR.B -(A7) 00020cd2 48 78 00 01 |Hx | PEA.L 0x1 00020cd6 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020cdc 5c 4f |\O | ADDQ.L #0x6,A7 00020cde 7e 01 |~ | MOVEQ.L #0x01,D7 00020ce0 1f 02 | | MOVE.B D2,-(A7) 00020ce2 4e 92 |N | JSR (A2) 00020ce4 1e 83 | | MOVE.B D3,(A7) 00020ce6 4e 92 |N | JSR (A2) 00020ce8 1e bc 00 31 | 1 | MOVE.B #0x31,(A7) 00020cec 4e 92 |N | JSR (A2) 00020cee 1e bc 00 41 | A | MOVE.B #0x41,(A7) 00020cf2 4e 92 |N | JSR (A2) 00020cf4 1e 82 | | MOVE.B D2,(A7) 00020cf6 4e 92 |N | JSR (A2) 00020cf8 1e 83 | | MOVE.B D3,(A7) 00020cfa 4e 92 |N | JSR (A2) 00020cfc 1e bc 00 4b | K | MOVE.B #0x4b,(A7) 00020d00 4e 92 |N | JSR (A2) 00020d02 54 4f |TO | ADDQ.L #0x2,A7 00020d04 52 87 |R | ADDQ.L #0x1,D7 00020d06 0c 87 00 00 00 03 | | CMPI.L #0x00000003,D7 00020d0c 6f d2 |o | BLE 0x20ce0 00020d0e 4c df 07 8f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D7+A0+A1+A2 00020d12 4e 5e |N^ | UNLK A6 00020d14 4e 75 |Nu | RTS 00020d16 ; -------------------------------------------------------------------------------------- 00020d16 ; OMSI PASCAL Function 00020d16 ; <LVAR -0x004 @> 00020d16 ; <LVAR -0x006 @> 00020d16 ; <LVAR -0x008 @ 1(r)> 00020d16 ; -------------------------------------------------------------------------------------- 00020d16 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00020d1a bf d5 | | CMPA.L (A5),A7 00020d1c 62 06 |b | BHI 0x20d24 00020d1e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020d22 4e 76 |Nv | TRAPV 00020d24 de fc 00 18 | | ADDA.W #0x18,A7 00020d28 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00020d2c 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00020d30 72 03 |r | MOVEQ.L #0x03,D1 00020d32 4e b9 00 01 02 16 |N | JSR KC0b 00020d38 48 78 00 05 |Hx | PEA.L 0x5 00020d3c 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020d40 4e ba fe 2e |N . | JSR 0x20b70 00020d44 50 4f |PO | ADDQ.L #0x8,A7 00020d46 3f 01 |? | MOVE.W D1,-(A7) 00020d48 48 50 |HP | PEA.L (A0) 00020d4a 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00020d50 5c 4f |\O | ADDQ.L #0x6,A7 00020d52 4a 10 |J | TST.B (A0) 00020d54 67 0e |g | BEQ 0x20d64 00020d56 3f 01 |? | MOVE.W D1,-(A7) 00020d58 48 6e ff fa |Hn | PEA.L (A6-0x6) 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 10 10 | | MOVE.B (A0),D0 00020d66 0c 00 00 02 | | CMPI.B #0x02,D0 00020d6a 66 da |f | BNE 0x20d46 00020d6c 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00020d70 4e 5e |N^ | UNLK A6 00020d72 4e 75 |Nu | RTS 00020d74 ; -------------------------------------------------------------------------------------- 00020d74 ; OMSI PASCAL Function 00020d74 ; <LVAR -0x002 @ 1(r)> 00020d74 ; <LVAR -0x006 @ 4(r)> 00020d74 ; <LVAR -0x008 @ 2(rw)> 00020d74 ; <LVAR -0x00a @ 1(rw)> 00020d74 ; <LVAR -0x00c @ 2(rw)> 00020d74 ; -------------------------------------------------------------------------------------- 00020d74 4e 56 ff 72 |NV r | LINK.W A6,#0xff72 00020d78 bf d5 | | CMPA.L (A5),A7 00020d7a 62 06 |b | BHI 0x20d82 00020d7c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020d80 4e 76 |Nv | TRAPV 00020d82 de fc 00 82 | | ADDA.W #0x82,A7 00020d86 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020d8a 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00020d8e 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020d94 49 ee ff f6 |I | LEA.L (A6-0xa),A4 00020d98 76 01 |v | MOVEQ.L #0x01,D3 00020d9a 78 03 |x | MOVEQ.L #0x03,D4 00020d9c 3a 3c 00 ff |:< | MOVE.W #0xff,D5 00020da0 7c 12 || | MOVEQ.L #0x12,D6 00020da2 7e 06 |~ | MOVEQ.L #0x06,D7 00020da4 48 78 00 01 |Hx | PEA.L 0x1 00020da8 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020dac 4e ba fd c2 |N | JSR 0x20b70 00020db0 50 4f |PO | ADDQ.L #0x8,A7 00020db2 3f 04 |? | MOVE.W D4,-(A7) 00020db4 48 54 |HT | PEA.L (A4) 00020db6 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00020dbc 5c 4f |\O | ADDQ.L #0x6,A7 00020dbe 4a 14 |J | TST.B (A4) 00020dc0 67 0c |g | BEQ 0x20dce 00020dc2 3f 04 |? | MOVE.W D4,-(A7) 00020dc4 48 52 |HR | PEA.L (A2) 00020dc6 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020dcc 5c 4f |\O | ADDQ.L #0x6,A7 00020dce 4a 14 |J | TST.B (A4) 00020dd0 66 e0 |f | BNE 0x20db2 00020dd2 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020dd6 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020ddc 58 4f |XO | ADDQ.L #0x4,A7 00020dde 20 6e ff fa | n | MOVEA.L (A6-0x6),A0 00020de2 30 bc 00 05 |0 | MOVE.W #0x5,(A0) 00020de6 55 4f |UO | SUBQ.L #0x2,A7 00020de8 48 78 00 84 |Hx | PEA.L 0x84 00020dec 4e ba fc da |N | JSR 0x20ac8 00020df0 58 4f |XO | ADDQ.L #0x4,A7 00020df2 30 1f |0 | MOVE.W (A7)+,D0 00020df4 41 85 |A | CHK.W D5,D0 00020df6 11 40 00 02 | @ | MOVE.B D0,(A0+0x2) 00020dfa 55 4f |UO | SUBQ.L #0x2,A7 00020dfc 48 78 00 85 |Hx | PEA.L 0x85 00020e00 4e ba fc c6 |N | JSR 0x20ac8 00020e04 58 4f |XO | ADDQ.L #0x4,A7 00020e06 30 1f |0 | MOVE.W (A7)+,D0 00020e08 41 85 |A | CHK.W D5,D0 00020e0a 11 40 00 03 | @ | MOVE.B D0,(A0+0x3) 00020e0e 55 4f |UO | SUBQ.L #0x2,A7 00020e10 48 78 00 86 |Hx | PEA.L 0x86 00020e14 4e ba fc b2 |N | JSR 0x20ac8 00020e18 58 4f |XO | ADDQ.L #0x4,A7 00020e1a 30 1f |0 | MOVE.W (A7)+,D0 00020e1c 41 85 |A | CHK.W D5,D0 00020e1e 11 40 00 04 | @ | MOVE.B D0,(A0+0x4) 00020e22 55 4f |UO | SUBQ.L #0x2,A7 00020e24 48 78 00 87 |Hx | PEA.L 0x87 00020e28 4e ba fc 9e |N | JSR 0x20ac8 00020e2c 58 4f |XO | ADDQ.L #0x4,A7 00020e2e 30 1f |0 | MOVE.W (A7)+,D0 00020e30 41 85 |A | CHK.W D5,D0 00020e32 11 40 00 05 | @ | MOVE.B D0,(A0+0x5) 00020e36 42 28 00 06 |B( | CLR.B (A0+0x6) 00020e3a 3f 04 |? | MOVE.W D4,-(A7) 00020e3c 2f 2e ff fa |/. | MOVE.L (A6-0x6),-(A7) 00020e40 4e b9 00 01 02 14 |N | JSR KC0a(a: Word; b: String) 00020e46 5c 4f |\O | ADDQ.L #0x6,A7 00020e48 48 6e ff fa |Hn | PEA.L (A6-0x6) 00020e4c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020e52 54 4f |TO | ADDQ.L #0x2,A7 00020e54 4e ba fc 32 |N 2 | JSR 0x20a88 00020e58 10 1f | | MOVE.B (A7)+,D0 00020e5a 48 80 |H | EXTB.W D0 00020e5c 41 87 |A | CHK.W D7,D0 00020e5e 18 80 | | MOVE.B D0,(A4) 00020e60 3f 04 |? | MOVE.W D4,-(A7) 00020e62 48 52 |HR | PEA.L (A2) 00020e64 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00020e6a 5c 4f |\O | ADDQ.L #0x6,A7 00020e6c cb 52 | R | AND.W D5,(A2) 00020e6e b0 04 | | CMP.B D4,D0 00020e70 66 00 02 a0 |f | BNE 0x21112 00020e74 30 12 |0 | MOVE.W (A2),D0 00020e76 b0 45 | E | CMP.W D5,D0 00020e78 62 00 02 5c |b \ | BHI switch@0x20e7e[0x6] 00020e7c d0 40 | @ | ADD.W D0,D0 00020e7e 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020e86 02 00 | | .CONST 0x200 ; [0x0] -> 0x21086 00020e88 02 0e | | .CONST 0x20e ; [0x1] -> 0x21094 00020e8a 02 20 | | .CONST 0x220 ; [0x2] -> 0x210a6 00020e8c 02 24 | $ | .CONST 0x224 ; [0x3] -> 0x210aa 00020e8e 02 26 | & | .CONST 0x226 ; [0x4] -> 0x210ac 00020e90 02 34 | 4 | .CONST 0x234 ; [0x5] -> 0x210ba 00020e92 02 50 | P | .CONST 0x250 ; [0x6] -> 0x210d6 00020e94 02 50 | P | .CONST 0x250 ; [0x7] -> 0x210d6 00020e96 02 50 | P | .CONST 0x250 ; [0x8] -> 0x210d6 00020e98 02 50 | P | .CONST 0x250 ; [0x9] -> 0x210d6 00020e9a 02 50 | P | .CONST 0x250 ; [0xa] -> 0x210d6 00020e9c 02 50 | P | .CONST 0x250 ; [0xb] -> 0x210d6 00020e9e 02 50 | P | .CONST 0x250 ; [0xc] -> 0x210d6 00020ea0 02 50 | P | .CONST 0x250 ; [0xd] -> 0x210d6 00020ea2 02 50 | P | .CONST 0x250 ; [0xe] -> 0x210d6 00020ea4 02 50 | P | .CONST 0x250 ; [0xf] -> 0x210d6 00020ea6 02 50 | P | .CONST 0x250 ; [0x10] -> 0x210d6 00020ea8 02 50 | P | .CONST 0x250 ; [0x11] -> 0x210d6 00020eaa 02 50 | P | .CONST 0x250 ; [0x12] -> 0x210d6 00020eac 02 50 | P | .CONST 0x250 ; [0x13] -> 0x210d6 00020eae 02 50 | P | .CONST 0x250 ; [0x14] -> 0x210d6 00020eb0 02 50 | P | .CONST 0x250 ; [0x15] -> 0x210d6 00020eb2 02 50 | P | .CONST 0x250 ; [0x16] -> 0x210d6 00020eb4 02 50 | P | .CONST 0x250 ; [0x17] -> 0x210d6 00020eb6 02 50 | P | .CONST 0x250 ; [0x18] -> 0x210d6 00020eb8 02 50 | P | .CONST 0x250 ; [0x19] -> 0x210d6 00020eba 02 50 | P | .CONST 0x250 ; [0x1a] -> 0x210d6 00020ebc 02 50 | P | .CONST 0x250 ; [0x1b] -> 0x210d6 00020ebe 02 50 | P | .CONST 0x250 ; [0x1c] -> 0x210d6 00020ec0 02 50 | P | .CONST 0x250 ; [0x1d] -> 0x210d6 00020ec2 02 50 | P | .CONST 0x250 ; [0x1e] -> 0x210d6 00020ec4 02 50 | P | .CONST 0x250 ; [0x1f] -> 0x210d6 00020ec6 02 50 | P | .CONST 0x250 ; [0x20] -> 0x210d6 00020ec8 02 50 | P | .CONST 0x250 ; [0x21] -> 0x210d6 00020eca 02 50 | P | .CONST 0x250 ; [0x22] -> 0x210d6 00020ecc 02 50 | P | .CONST 0x250 ; [0x23] -> 0x210d6 00020ece 02 50 | P | .CONST 0x250 ; [0x24] -> 0x210d6 00020ed0 02 50 | P | .CONST 0x250 ; [0x25] -> 0x210d6 00020ed2 02 50 | P | .CONST 0x250 ; [0x26] -> 0x210d6 00020ed4 02 50 | P | .CONST 0x250 ; [0x27] -> 0x210d6 00020ed6 02 50 | P | .CONST 0x250 ; [0x28] -> 0x210d6 00020ed8 02 50 | P | .CONST 0x250 ; [0x29] -> 0x210d6 00020eda 02 50 | P | .CONST 0x250 ; [0x2a] -> 0x210d6 00020edc 02 50 | P | .CONST 0x250 ; [0x2b] -> 0x210d6 00020ede 02 50 | P | .CONST 0x250 ; [0x2c] -> 0x210d6 00020ee0 02 50 | P | .CONST 0x250 ; [0x2d] -> 0x210d6 00020ee2 02 50 | P | .CONST 0x250 ; [0x2e] -> 0x210d6 00020ee4 02 50 | P | .CONST 0x250 ; [0x2f] -> 0x210d6 00020ee6 02 50 | P | .CONST 0x250 ; [0x30] -> 0x210d6 00020ee8 02 50 | P | .CONST 0x250 ; [0x31] -> 0x210d6 00020eea 02 50 | P | .CONST 0x250 ; [0x32] -> 0x210d6 00020eec 02 50 | P | .CONST 0x250 ; [0x33] -> 0x210d6 00020eee 02 50 | P | .CONST 0x250 ; [0x34] -> 0x210d6 00020ef0 02 50 | P | .CONST 0x250 ; [0x35] -> 0x210d6 00020ef2 02 50 | P | .CONST 0x250 ; [0x36] -> 0x210d6 00020ef4 02 50 | P | .CONST 0x250 ; [0x37] -> 0x210d6 00020ef6 02 50 | P | .CONST 0x250 ; [0x38] -> 0x210d6 00020ef8 02 50 | P | .CONST 0x250 ; [0x39] -> 0x210d6 00020efa 02 50 | P | .CONST 0x250 ; [0x3a] -> 0x210d6 00020efc 02 50 | P | .CONST 0x250 ; [0x3b] -> 0x210d6 00020efe 02 50 | P | .CONST 0x250 ; [0x3c] -> 0x210d6 00020f00 02 50 | P | .CONST 0x250 ; [0x3d] -> 0x210d6 00020f02 02 50 | P | .CONST 0x250 ; [0x3e] -> 0x210d6 00020f04 02 50 | P | .CONST 0x250 ; [0x3f] -> 0x210d6 00020f06 02 50 | P | .CONST 0x250 ; [0x40] -> 0x210d6 00020f08 02 50 | P | .CONST 0x250 ; [0x41] -> 0x210d6 00020f0a 02 50 | P | .CONST 0x250 ; [0x42] -> 0x210d6 00020f0c 02 50 | P | .CONST 0x250 ; [0x43] -> 0x210d6 00020f0e 02 50 | P | .CONST 0x250 ; [0x44] -> 0x210d6 00020f10 02 50 | P | .CONST 0x250 ; [0x45] -> 0x210d6 00020f12 02 50 | P | .CONST 0x250 ; [0x46] -> 0x210d6 00020f14 02 50 | P | .CONST 0x250 ; [0x47] -> 0x210d6 00020f16 02 50 | P | .CONST 0x250 ; [0x48] -> 0x210d6 00020f18 02 50 | P | .CONST 0x250 ; [0x49] -> 0x210d6 00020f1a 02 50 | P | .CONST 0x250 ; [0x4a] -> 0x210d6 00020f1c 02 50 | P | .CONST 0x250 ; [0x4b] -> 0x210d6 00020f1e 02 50 | P | .CONST 0x250 ; [0x4c] -> 0x210d6 00020f20 02 50 | P | .CONST 0x250 ; [0x4d] -> 0x210d6 00020f22 02 50 | P | .CONST 0x250 ; [0x4e] -> 0x210d6 00020f24 02 50 | P | .CONST 0x250 ; [0x4f] -> 0x210d6 00020f26 02 50 | P | .CONST 0x250 ; [0x50] -> 0x210d6 00020f28 02 50 | P | .CONST 0x250 ; [0x51] -> 0x210d6 00020f2a 02 50 | P | .CONST 0x250 ; [0x52] -> 0x210d6 00020f2c 02 50 | P | .CONST 0x250 ; [0x53] -> 0x210d6 00020f2e 02 50 | P | .CONST 0x250 ; [0x54] -> 0x210d6 00020f30 02 50 | P | .CONST 0x250 ; [0x55] -> 0x210d6 00020f32 02 50 | P | .CONST 0x250 ; [0x56] -> 0x210d6 00020f34 02 50 | P | .CONST 0x250 ; [0x57] -> 0x210d6 00020f36 02 50 | P | .CONST 0x250 ; [0x58] -> 0x210d6 00020f38 02 50 | P | .CONST 0x250 ; [0x59] -> 0x210d6 00020f3a 02 50 | P | .CONST 0x250 ; [0x5a] -> 0x210d6 00020f3c 02 50 | P | .CONST 0x250 ; [0x5b] -> 0x210d6 00020f3e 02 50 | P | .CONST 0x250 ; [0x5c] -> 0x210d6 00020f40 02 50 | P | .CONST 0x250 ; [0x5d] -> 0x210d6 00020f42 02 50 | P | .CONST 0x250 ; [0x5e] -> 0x210d6 00020f44 02 50 | P | .CONST 0x250 ; [0x5f] -> 0x210d6 00020f46 02 50 | P | .CONST 0x250 ; [0x60] -> 0x210d6 00020f48 02 50 | P | .CONST 0x250 ; [0x61] -> 0x210d6 00020f4a 02 50 | P | .CONST 0x250 ; [0x62] -> 0x210d6 00020f4c 02 50 | P | .CONST 0x250 ; [0x63] -> 0x210d6 00020f4e 02 50 | P | .CONST 0x250 ; [0x64] -> 0x210d6 00020f50 02 50 | P | .CONST 0x250 ; [0x65] -> 0x210d6 00020f52 02 50 | P | .CONST 0x250 ; [0x66] -> 0x210d6 00020f54 02 50 | P | .CONST 0x250 ; [0x67] -> 0x210d6 00020f56 02 50 | P | .CONST 0x250 ; [0x68] -> 0x210d6 00020f58 02 50 | P | .CONST 0x250 ; [0x69] -> 0x210d6 00020f5a 02 50 | P | .CONST 0x250 ; [0x6a] -> 0x210d6 00020f5c 02 50 | P | .CONST 0x250 ; [0x6b] -> 0x210d6 00020f5e 02 50 | P | .CONST 0x250 ; [0x6c] -> 0x210d6 00020f60 02 50 | P | .CONST 0x250 ; [0x6d] -> 0x210d6 00020f62 02 50 | P | .CONST 0x250 ; [0x6e] -> 0x210d6 00020f64 02 50 | P | .CONST 0x250 ; [0x6f] -> 0x210d6 00020f66 02 50 | P | .CONST 0x250 ; [0x70] -> 0x210d6 00020f68 02 50 | P | .CONST 0x250 ; [0x71] -> 0x210d6 00020f6a 02 50 | P | .CONST 0x250 ; [0x72] -> 0x210d6 00020f6c 02 50 | P | .CONST 0x250 ; [0x73] -> 0x210d6 00020f6e 02 50 | P | .CONST 0x250 ; [0x74] -> 0x210d6 00020f70 02 50 | P | .CONST 0x250 ; [0x75] -> 0x210d6 00020f72 02 50 | P | .CONST 0x250 ; [0x76] -> 0x210d6 00020f74 02 50 | P | .CONST 0x250 ; [0x77] -> 0x210d6 00020f76 02 50 | P | .CONST 0x250 ; [0x78] -> 0x210d6 00020f78 02 50 | P | .CONST 0x250 ; [0x79] -> 0x210d6 00020f7a 02 50 | P | .CONST 0x250 ; [0x7a] -> 0x210d6 00020f7c 02 50 | P | .CONST 0x250 ; [0x7b] -> 0x210d6 00020f7e 02 50 | P | .CONST 0x250 ; [0x7c] -> 0x210d6 00020f80 02 50 | P | .CONST 0x250 ; [0x7d] -> 0x210d6 00020f82 02 50 | P | .CONST 0x250 ; [0x7e] -> 0x210d6 00020f84 02 50 | P | .CONST 0x250 ; [0x7f] -> 0x210d6 00020f86 02 50 | P | .CONST 0x250 ; [0x80] -> 0x210d6 00020f88 02 50 | P | .CONST 0x250 ; [0x81] -> 0x210d6 00020f8a 02 50 | P | .CONST 0x250 ; [0x82] -> 0x210d6 00020f8c 02 50 | P | .CONST 0x250 ; [0x83] -> 0x210d6 00020f8e 02 50 | P | .CONST 0x250 ; [0x84] -> 0x210d6 00020f90 02 50 | P | .CONST 0x250 ; [0x85] -> 0x210d6 00020f92 02 50 | P | .CONST 0x250 ; [0x86] -> 0x210d6 00020f94 02 50 | P | .CONST 0x250 ; [0x87] -> 0x210d6 00020f96 02 50 | P | .CONST 0x250 ; [0x88] -> 0x210d6 00020f98 02 50 | P | .CONST 0x250 ; [0x89] -> 0x210d6 00020f9a 02 50 | P | .CONST 0x250 ; [0x8a] -> 0x210d6 00020f9c 02 50 | P | .CONST 0x250 ; [0x8b] -> 0x210d6 00020f9e 02 50 | P | .CONST 0x250 ; [0x8c] -> 0x210d6 00020fa0 02 50 | P | .CONST 0x250 ; [0x8d] -> 0x210d6 00020fa2 02 50 | P | .CONST 0x250 ; [0x8e] -> 0x210d6 00020fa4 02 50 | P | .CONST 0x250 ; [0x8f] -> 0x210d6 00020fa6 02 50 | P | .CONST 0x250 ; [0x90] -> 0x210d6 00020fa8 02 50 | P | .CONST 0x250 ; [0x91] -> 0x210d6 00020faa 02 50 | P | .CONST 0x250 ; [0x92] -> 0x210d6 00020fac 02 50 | P | .CONST 0x250 ; [0x93] -> 0x210d6 00020fae 02 50 | P | .CONST 0x250 ; [0x94] -> 0x210d6 00020fb0 02 50 | P | .CONST 0x250 ; [0x95] -> 0x210d6 00020fb2 02 50 | P | .CONST 0x250 ; [0x96] -> 0x210d6 00020fb4 02 50 | P | .CONST 0x250 ; [0x97] -> 0x210d6 00020fb6 02 50 | P | .CONST 0x250 ; [0x98] -> 0x210d6 00020fb8 02 50 | P | .CONST 0x250 ; [0x99] -> 0x210d6 00020fba 02 50 | P | .CONST 0x250 ; [0x9a] -> 0x210d6 00020fbc 02 50 | P | .CONST 0x250 ; [0x9b] -> 0x210d6 00020fbe 02 50 | P | .CONST 0x250 ; [0x9c] -> 0x210d6 00020fc0 02 50 | P | .CONST 0x250 ; [0x9d] -> 0x210d6 00020fc2 02 50 | P | .CONST 0x250 ; [0x9e] -> 0x210d6 00020fc4 02 50 | P | .CONST 0x250 ; [0x9f] -> 0x210d6 00020fc6 02 50 | P | .CONST 0x250 ; [0xa0] -> 0x210d6 00020fc8 02 50 | P | .CONST 0x250 ; [0xa1] -> 0x210d6 00020fca 02 50 | P | .CONST 0x250 ; [0xa2] -> 0x210d6 00020fcc 02 50 | P | .CONST 0x250 ; [0xa3] -> 0x210d6 00020fce 02 50 | P | .CONST 0x250 ; [0xa4] -> 0x210d6 00020fd0 02 50 | P | .CONST 0x250 ; [0xa5] -> 0x210d6 00020fd2 02 50 | P | .CONST 0x250 ; [0xa6] -> 0x210d6 00020fd4 02 50 | P | .CONST 0x250 ; [0xa7] -> 0x210d6 00020fd6 02 50 | P | .CONST 0x250 ; [0xa8] -> 0x210d6 00020fd8 02 50 | P | .CONST 0x250 ; [0xa9] -> 0x210d6 00020fda 02 50 | P | .CONST 0x250 ; [0xaa] -> 0x210d6 00020fdc 02 50 | P | .CONST 0x250 ; [0xab] -> 0x210d6 00020fde 02 50 | P | .CONST 0x250 ; [0xac] -> 0x210d6 00020fe0 02 50 | P | .CONST 0x250 ; [0xad] -> 0x210d6 00020fe2 02 50 | P | .CONST 0x250 ; [0xae] -> 0x210d6 00020fe4 02 50 | P | .CONST 0x250 ; [0xaf] -> 0x210d6 00020fe6 02 50 | P | .CONST 0x250 ; [0xb0] -> 0x210d6 00020fe8 02 50 | P | .CONST 0x250 ; [0xb1] -> 0x210d6 00020fea 02 50 | P | .CONST 0x250 ; [0xb2] -> 0x210d6 00020fec 02 50 | P | .CONST 0x250 ; [0xb3] -> 0x210d6 00020fee 02 50 | P | .CONST 0x250 ; [0xb4] -> 0x210d6 00020ff0 02 50 | P | .CONST 0x250 ; [0xb5] -> 0x210d6 00020ff2 02 50 | P | .CONST 0x250 ; [0xb6] -> 0x210d6 00020ff4 02 50 | P | .CONST 0x250 ; [0xb7] -> 0x210d6 00020ff6 02 50 | P | .CONST 0x250 ; [0xb8] -> 0x210d6 00020ff8 02 50 | P | .CONST 0x250 ; [0xb9] -> 0x210d6 00020ffa 02 50 | P | .CONST 0x250 ; [0xba] -> 0x210d6 00020ffc 02 50 | P | .CONST 0x250 ; [0xbb] -> 0x210d6 00020ffe 02 50 | P | .CONST 0x250 ; [0xbc] -> 0x210d6 00021000 02 50 | P | .CONST 0x250 ; [0xbd] -> 0x210d6 00021002 02 50 | P | .CONST 0x250 ; [0xbe] -> 0x210d6 00021004 02 50 | P | .CONST 0x250 ; [0xbf] -> 0x210d6 00021006 02 50 | P | .CONST 0x250 ; [0xc0] -> 0x210d6 00021008 02 50 | P | .CONST 0x250 ; [0xc1] -> 0x210d6 0002100a 02 50 | P | .CONST 0x250 ; [0xc2] -> 0x210d6 0002100c 02 50 | P | .CONST 0x250 ; [0xc3] -> 0x210d6 0002100e 02 50 | P | .CONST 0x250 ; [0xc4] -> 0x210d6 00021010 02 50 | P | .CONST 0x250 ; [0xc5] -> 0x210d6 00021012 02 50 | P | .CONST 0x250 ; [0xc6] -> 0x210d6 00021014 02 50 | P | .CONST 0x250 ; [0xc7] -> 0x210d6 00021016 02 50 | P | .CONST 0x250 ; [0xc8] -> 0x210d6 00021018 02 50 | P | .CONST 0x250 ; [0xc9] -> 0x210d6 0002101a 02 50 | P | .CONST 0x250 ; [0xca] -> 0x210d6 0002101c 02 50 | P | .CONST 0x250 ; [0xcb] -> 0x210d6 0002101e 02 50 | P | .CONST 0x250 ; [0xcc] -> 0x210d6 00021020 02 50 | P | .CONST 0x250 ; [0xcd] -> 0x210d6 00021022 02 50 | P | .CONST 0x250 ; [0xce] -> 0x210d6 00021024 02 50 | P | .CONST 0x250 ; [0xcf] -> 0x210d6 00021026 02 50 | P | .CONST 0x250 ; [0xd0] -> 0x210d6 00021028 02 50 | P | .CONST 0x250 ; [0xd1] -> 0x210d6 0002102a 02 50 | P | .CONST 0x250 ; [0xd2] -> 0x210d6 0002102c 02 50 | P | .CONST 0x250 ; [0xd3] -> 0x210d6 0002102e 02 50 | P | .CONST 0x250 ; [0xd4] -> 0x210d6 00021030 02 50 | P | .CONST 0x250 ; [0xd5] -> 0x210d6 00021032 02 50 | P | .CONST 0x250 ; [0xd6] -> 0x210d6 00021034 02 50 | P | .CONST 0x250 ; [0xd7] -> 0x210d6 00021036 02 50 | P | .CONST 0x250 ; [0xd8] -> 0x210d6 00021038 02 50 | P | .CONST 0x250 ; [0xd9] -> 0x210d6 0002103a 02 50 | P | .CONST 0x250 ; [0xda] -> 0x210d6 0002103c 02 50 | P | .CONST 0x250 ; [0xdb] -> 0x210d6 0002103e 02 50 | P | .CONST 0x250 ; [0xdc] -> 0x210d6 00021040 02 50 | P | .CONST 0x250 ; [0xdd] -> 0x210d6 00021042 02 50 | P | .CONST 0x250 ; [0xde] -> 0x210d6 00021044 02 50 | P | .CONST 0x250 ; [0xdf] -> 0x210d6 00021046 02 50 | P | .CONST 0x250 ; [0xe0] -> 0x210d6 00021048 02 50 | P | .CONST 0x250 ; [0xe1] -> 0x210d6 0002104a 02 50 | P | .CONST 0x250 ; [0xe2] -> 0x210d6 0002104c 02 50 | P | .CONST 0x250 ; [0xe3] -> 0x210d6 0002104e 02 50 | P | .CONST 0x250 ; [0xe4] -> 0x210d6 00021050 02 50 | P | .CONST 0x250 ; [0xe5] -> 0x210d6 00021052 02 50 | P | .CONST 0x250 ; [0xe6] -> 0x210d6 00021054 02 50 | P | .CONST 0x250 ; [0xe7] -> 0x210d6 00021056 02 50 | P | .CONST 0x250 ; [0xe8] -> 0x210d6 00021058 02 50 | P | .CONST 0x250 ; [0xe9] -> 0x210d6 0002105a 02 50 | P | .CONST 0x250 ; [0xea] -> 0x210d6 0002105c 02 50 | P | .CONST 0x250 ; [0xeb] -> 0x210d6 0002105e 02 50 | P | .CONST 0x250 ; [0xec] -> 0x210d6 00021060 02 50 | P | .CONST 0x250 ; [0xed] -> 0x210d6 00021062 02 50 | P | .CONST 0x250 ; [0xee] -> 0x210d6 00021064 02 50 | P | .CONST 0x250 ; [0xef] -> 0x210d6 00021066 02 50 | P | .CONST 0x250 ; [0xf0] -> 0x210d6 00021068 02 50 | P | .CONST 0x250 ; [0xf1] -> 0x210d6 0002106a 02 50 | P | .CONST 0x250 ; [0xf2] -> 0x210d6 0002106c 02 50 | P | .CONST 0x250 ; [0xf3] -> 0x210d6 0002106e 02 50 | P | .CONST 0x250 ; [0xf4] -> 0x210d6 00021070 02 50 | P | .CONST 0x250 ; [0xf5] -> 0x210d6 00021072 02 50 | P | .CONST 0x250 ; [0xf6] -> 0x210d6 00021074 02 50 | P | .CONST 0x250 ; [0xf7] -> 0x210d6 00021076 02 50 | P | .CONST 0x250 ; [0xf8] -> 0x210d6 00021078 02 50 | P | .CONST 0x250 ; [0xf9] -> 0x210d6 0002107a 02 50 | P | .CONST 0x250 ; [0xfa] -> 0x210d6 0002107c 02 50 | P | .CONST 0x250 ; [0xfb] -> 0x210d6 0002107e 02 50 | P | .CONST 0x250 ; [0xfc] -> 0x210d6 00021080 02 50 | P | .CONST 0x250 ; [0xfd] -> 0x210d6 00021082 02 50 | P | .CONST 0x250 ; [0xfe] -> 0x210d6 00021084 02 42 | B | .CONST 0x242 ; [0xff] -> 0x210c8 00021086 switch@0x20e7e[0x0]: 00021086 41 fa f2 5c |A \ | LEA.L 0x202e4,A0 0002108a 70 0e |p | MOVEQ.L #0x0e,D0 0002108c 3f 20 |? | MOVE.W -(A0),-(A7) 0002108e 51 c8 ff fc |Q | DBF D0,0x2108c 00021092 60 4e |`N | BRA 0x210e2 00021094 switch@0x20e7e[0x1]: 00021094 42 80 |B | CLR.L D0 00021096 30 12 |0 | MOVE.W (A2),D0 00021098 2f 00 |/ | MOVE.L D0,-(A7) 0002109a 4e ba fb 8e |N | JSR 0x20c2a 0002109e 58 4f |XO | ADDQ.L #0x4,A7 000210a0 60 00 03 24 |` $ | BRA 0x213c6 000210a4 60 68 |`h | .XXX[0x2] 000210a6 switch@0x20e7e[0x2]: 000210a6 60 ec |` | BRA switch@0x20e7e[0x1] 000210a8 60 64 |`d | .XXX[0x2] 000210aa switch@0x20e7e[0x3]: 000210aa 60 fa |` | BRA switch@0x20e7e[0x2] 000210ac switch@0x20e7e[0x4]: 000210ac 41 fa f2 36 |A 6 | LEA.L 0x202e4,A0 000210b0 70 0e |p | MOVEQ.L #0x0e,D0 000210b2 3f 20 |? | MOVE.W -(A0),-(A7) 000210b4 51 c8 ff fc |Q | DBF D0,0x210b2 000210b8 60 28 |`( | BRA 0x210e2 000210ba switch@0x20e7e[0x5]: 000210ba 41 fa f2 28 |A ( | LEA.L 0x202e4,A0 000210be 70 0e |p | MOVEQ.L #0x0e,D0 000210c0 3f 20 |? | MOVE.W -(A0),-(A7) 000210c2 51 c8 ff fc |Q | DBF D0,0x210c0 000210c6 60 1a |` | BRA 0x210e2 000210c8 switch@0x20e7e[0xff]: 000210c8 41 fa f2 1a |A | LEA.L 0x202e4,A0 000210cc 70 0e |p | MOVEQ.L #0x0e,D0 000210ce 3f 20 |? | MOVE.W -(A0),-(A7) 000210d0 51 c8 ff fc |Q | DBF D0,0x210ce 000210d4 60 0c |` | BRA 0x210e2 000210d6 switch@0x20e7e[0x10]: 000210d6 switch@0x20e7e[0x11]: 000210d6 switch@0x20e7e[0x12]: 000210d6 switch@0x20e7e[0x13]: 000210d6 switch@0x20e7e[0x14]: 000210d6 switch@0x20e7e[0x15]: 000210d6 switch@0x20e7e[0x16]: 000210d6 switch@0x20e7e[0x17]: 000210d6 switch@0x20e7e[0x18]: 000210d6 switch@0x20e7e[0x19]: 000210d6 switch@0x20e7e[0x1a]: 000210d6 switch@0x20e7e[0x1b]: 000210d6 switch@0x20e7e[0x1c]: 000210d6 switch@0x20e7e[0x1d]: 000210d6 switch@0x20e7e[0x1e]: 000210d6 switch@0x20e7e[0x1f]: 000210d6 switch@0x20e7e[0x20]: 000210d6 switch@0x20e7e[0x21]: 000210d6 switch@0x20e7e[0x22]: 000210d6 switch@0x20e7e[0x23]: 000210d6 switch@0x20e7e[0x24]: 000210d6 switch@0x20e7e[0x25]: 000210d6 switch@0x20e7e[0x26]: 000210d6 switch@0x20e7e[0x27]: 000210d6 switch@0x20e7e[0x28]: 000210d6 switch@0x20e7e[0x29]: 000210d6 switch@0x20e7e[0x2a]: 000210d6 switch@0x20e7e[0x2b]: 000210d6 switch@0x20e7e[0x2c]: 000210d6 switch@0x20e7e[0x2d]: 000210d6 switch@0x20e7e[0x2e]: 000210d6 switch@0x20e7e[0x2f]: 000210d6 switch@0x20e7e[0x30]: 000210d6 switch@0x20e7e[0x31]: 000210d6 switch@0x20e7e[0x32]: 000210d6 switch@0x20e7e[0x33]: 000210d6 switch@0x20e7e[0x34]: 000210d6 switch@0x20e7e[0x35]: 000210d6 switch@0x20e7e[0x36]: 000210d6 switch@0x20e7e[0x37]: 000210d6 switch@0x20e7e[0x38]: 000210d6 switch@0x20e7e[0x39]: 000210d6 switch@0x20e7e[0x3a]: 000210d6 switch@0x20e7e[0x3b]: 000210d6 switch@0x20e7e[0x3c]: 000210d6 switch@0x20e7e[0x3d]: 000210d6 switch@0x20e7e[0x3e]: 000210d6 switch@0x20e7e[0x3f]: 000210d6 switch@0x20e7e[0x40]: 000210d6 switch@0x20e7e[0x41]: 000210d6 switch@0x20e7e[0x42]: 000210d6 switch@0x20e7e[0x43]: 000210d6 switch@0x20e7e[0x44]: 000210d6 switch@0x20e7e[0x45]: 000210d6 switch@0x20e7e[0x46]: 000210d6 switch@0x20e7e[0x47]: 000210d6 switch@0x20e7e[0x48]: 000210d6 switch@0x20e7e[0x49]: 000210d6 switch@0x20e7e[0x4a]: 000210d6 switch@0x20e7e[0x4b]: 000210d6 switch@0x20e7e[0x4c]: 000210d6 switch@0x20e7e[0x4d]: 000210d6 switch@0x20e7e[0x4e]: 000210d6 switch@0x20e7e[0x4f]: 000210d6 switch@0x20e7e[0x50]: 000210d6 switch@0x20e7e[0x51]: 000210d6 switch@0x20e7e[0x52]: 000210d6 switch@0x20e7e[0x53]: 000210d6 switch@0x20e7e[0x54]: 000210d6 switch@0x20e7e[0x55]: 000210d6 switch@0x20e7e[0x56]: 000210d6 switch@0x20e7e[0x57]: 000210d6 switch@0x20e7e[0x58]: 000210d6 switch@0x20e7e[0x59]: 000210d6 switch@0x20e7e[0x5a]: 000210d6 switch@0x20e7e[0x5b]: 000210d6 switch@0x20e7e[0x5c]: 000210d6 switch@0x20e7e[0x5d]: 000210d6 switch@0x20e7e[0x5e]: 000210d6 switch@0x20e7e[0x5f]: 000210d6 switch@0x20e7e[0x60]: 000210d6 switch@0x20e7e[0x61]: 000210d6 switch@0x20e7e[0x62]: 000210d6 switch@0x20e7e[0x63]: 000210d6 switch@0x20e7e[0x64]: 000210d6 switch@0x20e7e[0x65]: 000210d6 switch@0x20e7e[0x66]: 000210d6 switch@0x20e7e[0x67]: 000210d6 switch@0x20e7e[0x68]: 000210d6 switch@0x20e7e[0x69]: 000210d6 switch@0x20e7e[0x6]: 000210d6 switch@0x20e7e[0x6a]: 000210d6 switch@0x20e7e[0x6b]: 000210d6 switch@0x20e7e[0x6c]: 000210d6 switch@0x20e7e[0x6d]: 000210d6 switch@0x20e7e[0x6e]: 000210d6 switch@0x20e7e[0x6f]: 000210d6 switch@0x20e7e[0x70]: 000210d6 switch@0x20e7e[0x71]: 000210d6 switch@0x20e7e[0x72]: 000210d6 switch@0x20e7e[0x73]: 000210d6 switch@0x20e7e[0x74]: 000210d6 switch@0x20e7e[0x75]: 000210d6 switch@0x20e7e[0x76]: 000210d6 switch@0x20e7e[0x77]: 000210d6 switch@0x20e7e[0x78]: 000210d6 switch@0x20e7e[0x79]: 000210d6 switch@0x20e7e[0x7]: 000210d6 switch@0x20e7e[0x7a]: 000210d6 switch@0x20e7e[0x7b]: 000210d6 switch@0x20e7e[0x7c]: 000210d6 switch@0x20e7e[0x7d]: 000210d6 switch@0x20e7e[0x7e]: 000210d6 switch@0x20e7e[0x7f]: 000210d6 switch@0x20e7e[0x80]: 000210d6 switch@0x20e7e[0x81]: 000210d6 switch@0x20e7e[0x82]: 000210d6 switch@0x20e7e[0x83]: 000210d6 switch@0x20e7e[0x84]: 000210d6 switch@0x20e7e[0x85]: 000210d6 switch@0x20e7e[0x86]: 000210d6 switch@0x20e7e[0x87]: 000210d6 switch@0x20e7e[0x88]: 000210d6 switch@0x20e7e[0x89]: 000210d6 switch@0x20e7e[0x8]: 000210d6 switch@0x20e7e[0x8a]: 000210d6 switch@0x20e7e[0x8b]: 000210d6 switch@0x20e7e[0x8c]: 000210d6 switch@0x20e7e[0x8d]: 000210d6 switch@0x20e7e[0x8e]: 000210d6 switch@0x20e7e[0x8f]: 000210d6 switch@0x20e7e[0x90]: 000210d6 switch@0x20e7e[0x91]: 000210d6 switch@0x20e7e[0x92]: 000210d6 switch@0x20e7e[0x93]: 000210d6 switch@0x20e7e[0x94]: 000210d6 switch@0x20e7e[0x95]: 000210d6 switch@0x20e7e[0x96]: 000210d6 switch@0x20e7e[0x97]: 000210d6 switch@0x20e7e[0x98]: 000210d6 switch@0x20e7e[0x99]: 000210d6 switch@0x20e7e[0x9]: 000210d6 switch@0x20e7e[0x9a]: 000210d6 switch@0x20e7e[0x9b]: 000210d6 switch@0x20e7e[0x9c]: 000210d6 switch@0x20e7e[0x9d]: 000210d6 switch@0x20e7e[0x9e]: 000210d6 switch@0x20e7e[0x9f]: 000210d6 switch@0x20e7e[0xa0]: 000210d6 switch@0x20e7e[0xa1]: 000210d6 switch@0x20e7e[0xa2]: 000210d6 switch@0x20e7e[0xa3]: 000210d6 switch@0x20e7e[0xa4]: 000210d6 switch@0x20e7e[0xa5]: 000210d6 switch@0x20e7e[0xa6]: 000210d6 switch@0x20e7e[0xa7]: 000210d6 switch@0x20e7e[0xa8]: 000210d6 switch@0x20e7e[0xa9]: 000210d6 switch@0x20e7e[0xa]: 000210d6 switch@0x20e7e[0xaa]: 000210d6 switch@0x20e7e[0xab]: 000210d6 switch@0x20e7e[0xac]: 000210d6 switch@0x20e7e[0xad]: 000210d6 switch@0x20e7e[0xae]: 000210d6 switch@0x20e7e[0xaf]: 000210d6 switch@0x20e7e[0xb0]: 000210d6 switch@0x20e7e[0xb1]: 000210d6 switch@0x20e7e[0xb2]: 000210d6 switch@0x20e7e[0xb3]: 000210d6 switch@0x20e7e[0xb4]: 000210d6 switch@0x20e7e[0xb5]: 000210d6 switch@0x20e7e[0xb6]: 000210d6 switch@0x20e7e[0xb7]: 000210d6 switch@0x20e7e[0xb8]: 000210d6 switch@0x20e7e[0xb9]: 000210d6 switch@0x20e7e[0xb]: 000210d6 switch@0x20e7e[0xba]: 000210d6 switch@0x20e7e[0xbb]: 000210d6 switch@0x20e7e[0xbc]: 000210d6 switch@0x20e7e[0xbd]: 000210d6 switch@0x20e7e[0xbe]: 000210d6 switch@0x20e7e[0xbf]: 000210d6 switch@0x20e7e[0xc0]: 000210d6 switch@0x20e7e[0xc1]: 000210d6 switch@0x20e7e[0xc2]: 000210d6 switch@0x20e7e[0xc3]: 000210d6 switch@0x20e7e[0xc4]: 000210d6 switch@0x20e7e[0xc5]: 000210d6 switch@0x20e7e[0xc6]: 000210d6 switch@0x20e7e[0xc7]: 000210d6 switch@0x20e7e[0xc8]: 000210d6 switch@0x20e7e[0xc9]: 000210d6 switch@0x20e7e[0xc]: 000210d6 switch@0x20e7e[0xca]: 000210d6 switch@0x20e7e[0xcb]: 000210d6 switch@0x20e7e[0xcc]: 000210d6 switch@0x20e7e[0xcd]: 000210d6 switch@0x20e7e[0xce]: 000210d6 switch@0x20e7e[0xcf]: 000210d6 switch@0x20e7e[0xd0]: 000210d6 switch@0x20e7e[0xd1]: 000210d6 switch@0x20e7e[0xd2]: 000210d6 switch@0x20e7e[0xd3]: 000210d6 switch@0x20e7e[0xd4]: 000210d6 switch@0x20e7e[0xd5]: 000210d6 switch@0x20e7e[0xd6]: 000210d6 switch@0x20e7e[0xd7]: 000210d6 switch@0x20e7e[0xd8]: 000210d6 switch@0x20e7e[0xd9]: 000210d6 switch@0x20e7e[0xd]: 000210d6 switch@0x20e7e[0xda]: 000210d6 switch@0x20e7e[0xdb]: 000210d6 switch@0x20e7e[0xdc]: 000210d6 switch@0x20e7e[0xdd]: 000210d6 switch@0x20e7e[0xde]: 000210d6 switch@0x20e7e[0xdf]: 000210d6 switch@0x20e7e[0xe0]: 000210d6 switch@0x20e7e[0xe1]: 000210d6 switch@0x20e7e[0xe2]: 000210d6 switch@0x20e7e[0xe3]: 000210d6 switch@0x20e7e[0xe4]: 000210d6 switch@0x20e7e[0xe5]: 000210d6 switch@0x20e7e[0xe6]: 000210d6 switch@0x20e7e[0xe7]: 000210d6 switch@0x20e7e[0xe8]: 000210d6 switch@0x20e7e[0xe9]: 000210d6 switch@0x20e7e[0xe]: 000210d6 switch@0x20e7e[0xea]: 000210d6 switch@0x20e7e[0xeb]: 000210d6 switch@0x20e7e[0xec]: 000210d6 switch@0x20e7e[0xed]: 000210d6 switch@0x20e7e[0xee]: 000210d6 switch@0x20e7e[0xef]: 000210d6 switch@0x20e7e[0xf0]: 000210d6 switch@0x20e7e[0xf1]: 000210d6 switch@0x20e7e[0xf2]: 000210d6 switch@0x20e7e[0xf3]: 000210d6 switch@0x20e7e[0xf4]: 000210d6 switch@0x20e7e[0xf5]: 000210d6 switch@0x20e7e[0xf6]: 000210d6 switch@0x20e7e[0xf7]: 000210d6 switch@0x20e7e[0xf8]: 000210d6 switch@0x20e7e[0xf9]: 000210d6 switch@0x20e7e[0xf]: 000210d6 switch@0x20e7e[0xfa]: 000210d6 switch@0x20e7e[0xfb]: 000210d6 switch@0x20e7e[0xfc]: 000210d6 switch@0x20e7e[0xfd]: 000210d6 switch@0x20e7e[0xfe]: 000210d6 41 fa f2 0c |A | LEA.L 0x202e4,A0 000210da 70 0e |p | MOVEQ.L #0x0e,D0 000210dc 3f 20 |? | MOVE.W -(A0),-(A7) 000210de 51 c8 ff fc |Q | DBF D0,0x210dc 000210e2 51 4f |QO | SUBQ.L #0x8,A7 000210e4 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000210e8 3f 03 |? | MOVE.W D3,-(A7) 000210ea 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 000210ee 4e 93 |N | JSR (A3) 000210f0 58 4f |XO | ADDQ.L #0x4,A7 000210f2 42 80 |B | CLR.L D0 000210f4 30 12 |0 | MOVE.W (A2),D0 000210f6 2f 00 |/ | MOVE.L D0,-(A7) 000210f8 4e ba f4 94 |N | JSR 0x2058e 000210fc 58 4f |XO | ADDQ.L #0x4,A7 000210fe 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021104 50 4f |PO | ADDQ.L #0x8,A7 00021106 4e ba f9 f6 |N | JSR 0x20afe 0002110a de fc 00 22 | " | ADDA.W #0x22,A7 0002110e 60 00 02 b6 |` | BRA 0x213c6 00021112 b0 07 | | CMP.B D7,D0 00021114 67 42 |gB | BEQ 0x21158 00021116 9e fc 00 2c | , | SUBA.W #0x2c,A7 0002111a 20 4f | O | MOVEA.L A7,A0 0002111c 43 fa f1 c6 |C | LEA.L 0x202e4,A1 00021120 72 2a |r* | MOVEQ.L #0x2a,D1 00021122 10 d9 | | MOVE.B (A1)+,(A0)+ 00021124 51 c9 ff fc |Q | DBF D1,0x21122 00021128 51 4f |QO | SUBQ.L #0x8,A7 0002112a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002112e 3f 03 |? | MOVE.W D3,-(A7) 00021130 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7) 00021134 4e 93 |N | JSR (A3) 00021136 58 4f |XO | ADDQ.L #0x4,A7 00021138 48 80 |H | EXTB.W D0 0002113a 48 c0 |H | EXTW.L D0 0002113c 2f 00 |/ | MOVE.L D0,-(A7) 0002113e 4e ba f7 be |N | JSR 0x208fe 00021142 58 4f |XO | ADDQ.L #0x4,A7 00021144 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002114a 50 4f |PO | ADDQ.L #0x8,A7 0002114c 4e ba f9 b0 |N | JSR 0x20afe 00021150 de fc 00 30 | 0 | ADDA.W #0x30,A7 00021154 60 00 02 70 |` p | BRA 0x213c6 00021158 30 12 |0 | MOVE.W (A2),D0 0002115a b0 44 | D | CMP.W D4,D0 0002115c 62 00 02 2e |b . | BHI 0x2138c 00021160 d0 40 | @ | ADD.W D0,D0 00021162 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002116a 00 08 | | .CONST 0x8 ; [0x0] -> 0x21172 0002116c 00 1a | | .CONST 0x1a ; [0x1] -> 0x21184 0002116e 00 42 | B | .CONST 0x42 ; [0x2] -> 0x211ac 00021170 01 70 | p | .CONST 0x170 ; [0x3] -> 0x212da 00021172 switch@0x21162[0x0]: 00021172 42 27 |B' | CLR.B -(A7) 00021174 48 78 00 01 |Hx | PEA.L 0x1 00021178 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002117e 5c 4f |\O | ADDQ.L #0x6,A7 00021180 60 00 02 44 |` D | BRA 0x213c6 00021184 switch@0x21162[0x1]: 00021184 41 fa f1 a2 |A | LEA.L 0x20328,A0 00021188 70 05 |p | MOVEQ.L #0x05,D0 0002118a 2f 20 |/ | MOVE.L -(A0),-(A7) 0002118c 51 c8 ff fc |Q | DBF D0,0x2118a 00021190 59 4f |YO | SUBQ.L #0x4,A7 00021192 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021196 3f 03 |? | MOVE.W D3,-(A7) 00021198 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 0002119c 4e 93 |N | JSR (A3) 0002119e 50 4f |PO | ADDQ.L #0x8,A7 000211a0 4e ba f9 5c |N \ | JSR 0x20afe 000211a4 de fc 00 1c | | ADDA.W #0x1c,A7 000211a8 60 00 02 1c |` | BRA 0x213c6 000211ac switch@0x21162[0x2]: 000211ac 4e ba fb 68 |N h | JSR 0x20d16 000211b0 3f 04 |? | MOVE.W D4,-(A7) 000211b2 48 6e ff f8 |Hn | PEA.L (A6-0x8) 000211b6 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 000211bc 5c 4f |\O | ADDQ.L #0x6,A7 000211be cb 6e ff f8 | n | AND.W D5,(A6-0x8) 000211c2 30 2e ff f8 |0. | MOVE.W (A6-0x8),D0 000211c6 e1 40 | @ | ASL.W #0x8,D0 000211c8 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 000211cc 3f 04 |? | MOVE.W D4,-(A7) 000211ce 48 52 |HR | PEA.L (A2) 000211d0 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 000211d6 5c 4f |\O | ADDQ.L #0x6,A7 000211d8 32 12 |2 | MOVE.W (A2),D1 000211da c2 45 | E | AND.W D5,D1 000211dc 42 82 |B | CLR.L D2 000211de 34 00 |4 | MOVE.W D0,D2 000211e0 42 80 |B | CLR.L D0 000211e2 30 01 |0 | MOVE.W D1,D0 000211e4 d0 82 | | ADD.L D2,D0 000211e6 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 000211ec 63 02 |c | BLS 0x211f0 000211ee 4e 4f |NO | TRAP #15 000211f0 3d 40 ff f8 |=@ | MOVE.W D0,(A6-0x8) 000211f4 9e fc 00 38 | 8 | SUBA.W #0x38,A7 000211f8 20 4f | O | MOVEA.L A7,A0 000211fa 43 fa f1 9c |C | LEA.L 0x20398,A1 000211fe 72 36 |r6 | MOVEQ.L #0x36,D1 00021200 10 d9 | | MOVE.B (A1)+,(A0)+ 00021202 51 c9 ff fc |Q | DBF D1,0x21200 00021206 59 4f |YO | SUBQ.L #0x4,A7 00021208 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002120c 3f 03 |? | MOVE.W D3,-(A7) 0002120e 3f 3c 00 37 |?< 7 | MOVE.W #0x37,-(A7) 00021212 4e 93 |N | JSR (A3) 00021214 50 4f |PO | ADDQ.L #0x8,A7 00021216 4e ba f3 20 |N | JSR 0x20538 0002121a de fc 00 24 | $ | ADDA.W #0x24,A7 0002121e 20 4f | O | MOVEA.L A7,A0 00021220 43 fa f1 ae |C | LEA.L 0x203d0,A1 00021224 72 16 |r | MOVEQ.L #0x16,D1 00021226 10 d9 | | MOVE.B (A1)+,(A0)+ 00021228 51 c9 ff fc |Q | DBF D1,0x21226 0002122c 41 fa f1 cc |A | LEA.L 0x203fa,A0 00021230 72 08 |r | MOVEQ.L #0x08,D1 00021232 3f 20 |? | MOVE.W -(A0),-(A7) 00021234 51 c9 ff fc |Q | DBF D1,0x21232 00021238 51 4f |QO | SUBQ.L #0x8,A7 0002123a 48 6f 00 1a |Ho | PEA.L (A7+0x1a) 0002123e 3f 03 |? | MOVE.W D3,-(A7) 00021240 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00021244 4e 93 |N | JSR (A3) 00021246 58 4f |XO | ADDQ.L #0x4,A7 00021248 42 81 |B | CLR.L D1 0002124a 32 00 |2 | MOVE.W D0,D1 0002124c 2f 01 |/ | MOVE.L D1,-(A7) 0002124e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021254 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00021258 3f 03 |? | MOVE.W D3,-(A7) 0002125a 3f 06 |? | MOVE.W D6,-(A7) 0002125c 4e 93 |N | JSR (A3) 0002125e 50 4f |PO | ADDQ.L #0x8,A7 00021260 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00021266 de fc 00 0c | | ADDA.W #0xc,A7 0002126a 4e ba f2 cc |N | JSR 0x20538 0002126e de c6 | | ADDA.W D6,A7 00021270 20 4f | O | MOVEA.L A7,A0 00021272 43 fa f1 86 |C | LEA.L 0x203fa,A1 00021276 72 1a |r | MOVEQ.L #0x1a,D1 00021278 10 d9 | | MOVE.B (A1)+,(A0)+ 0002127a 51 c9 ff fc |Q | DBF D1,0x21278 0002127e 59 4f |YO | SUBQ.L #0x4,A7 00021280 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021284 3f 03 |? | MOVE.W D3,-(A7) 00021286 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 0002128a 4e 93 |N | JSR (A3) 0002128c 50 4f |PO | ADDQ.L #0x8,A7 0002128e 4e ba f2 a8 |N | JSR 0x20538 00021292 de fc 00 20 | | ADDA.W #0x20,A7 00021296 42 81 |B | CLR.L D1 00021298 32 00 |2 | MOVE.W D0,D1 0002129a 2f 01 |/ | MOVE.L D1,-(A7) 0002129c 48 6e ff fe |Hn | PEA.L (A6-0x2) 000212a0 4e ba f9 4c |N L | JSR 0x20bee 000212a4 50 4f |PO | ADDQ.L #0x8,A7 000212a6 4a 2e ff fe |J. | TST.B (A6-0x2) 000212aa 66 06 |f | BNE 0x212b2 000212ac 4e ba fa c6 |N | JSR 0x20d74 000212b0 60 24 |`$ | BRA 0x212d6 000212b2 41 fa f0 e4 |A | LEA.L 0x20398,A0 000212b6 70 0a |p | MOVEQ.L #0x0a,D0 000212b8 3f 20 |? | MOVE.W -(A0),-(A7) 000212ba 51 c8 ff fc |Q | DBF D0,0x212b8 000212be 59 4f |YO | SUBQ.L #0x4,A7 000212c0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212c4 3f 03 |? | MOVE.W D3,-(A7) 000212c6 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 000212ca 4e 93 |N | JSR (A3) 000212cc 50 4f |PO | ADDQ.L #0x8,A7 000212ce 4e ba f8 2e |N . | JSR 0x20afe 000212d2 de fc 00 1a | | ADDA.W #0x1a,A7 000212d6 60 00 00 ee |` | BRA 0x213c6 000212da switch@0x21162[0x3]: 000212da 4e ba fa 3a |N : | JSR 0x20d16 000212de 41 fa f1 72 |A r | LEA.L 0x20452,A0 000212e2 70 0e |p | MOVEQ.L #0x0e,D0 000212e4 2f 20 |/ | MOVE.L -(A0),-(A7) 000212e6 51 c8 ff fc |Q | DBF D0,0x212e4 000212ea 59 4f |YO | SUBQ.L #0x4,A7 000212ec 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212f0 3f 03 |? | MOVE.W D3,-(A7) 000212f2 3f 3c 00 3c |?< < | MOVE.W #0x3c,-(A7) 000212f6 4e 93 |N | JSR (A3) 000212f8 50 4f |PO | ADDQ.L #0x8,A7 000212fa 4e ba f2 3c |N < | JSR 0x20538 000212fe de fc 00 32 | 2 | ADDA.W #0x32,A7 00021302 20 4f | O | MOVEA.L A7,A0 00021304 43 fa f1 4c |C L | LEA.L 0x20452,A1 00021308 70 0c |p | MOVEQ.L #0x0c,D0 0002130a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002130c 51 c8 ff fc |Q | DBF D0,0x2130a 00021310 59 4f |YO | SUBQ.L #0x4,A7 00021312 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021316 3f 03 |? | MOVE.W D3,-(A7) 00021318 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 0002131c 4e 93 |N | JSR (A3) 0002131e 50 4f |PO | ADDQ.L #0x8,A7 00021320 4e ba f2 16 |N | JSR 0x20538 00021324 de c6 | | ADDA.W D6,A7 00021326 3f 04 |? | MOVE.W D4,-(A7) 00021328 48 54 |HT | PEA.L (A4) 0002132a 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00021330 5c 4f |\O | ADDQ.L #0x6,A7 00021332 4a 14 |J | TST.B (A4) 00021334 67 0c |g | BEQ 0x21342 00021336 3f 04 |? | MOVE.W D4,-(A7) 00021338 48 52 |HR | PEA.L (A2) 0002133a 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00021340 5c 4f |\O | ADDQ.L #0x6,A7 00021342 10 14 | | MOVE.B (A4),D0 00021344 b0 04 | | CMP.B D4,D0 00021346 66 de |f | BNE 0x21326 00021348 cb 52 | R | AND.W D5,(A2) 0002134a 66 06 |f | BNE 0x21352 0002134c 4e ba fa 26 |N & | JSR 0x20d74 00021350 60 38 |`8 | BRA 0x2138a 00021352 41 fa f0 0a |A | LEA.L 0x2035e,A0 00021356 70 1a |p | MOVEQ.L #0x1a,D0 00021358 3f 20 |? | MOVE.W -(A0),-(A7) 0002135a 51 c8 ff fc |Q | DBF D0,0x21358 0002135e 51 4f |QO | SUBQ.L #0x8,A7 00021360 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021364 3f 03 |? | MOVE.W D3,-(A7) 00021366 3f 3c 00 36 |?< 6 | MOVE.W #0x36,-(A7) 0002136a 4e 93 |N | JSR (A3) 0002136c 58 4f |XO | ADDQ.L #0x4,A7 0002136e 42 80 |B | CLR.L D0 00021370 30 12 |0 | MOVE.W (A2),D0 00021372 2f 00 |/ | MOVE.L D0,-(A7) 00021374 4e ba f2 18 |N | JSR 0x2058e 00021378 58 4f |XO | ADDQ.L #0x4,A7 0002137a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021380 50 4f |PO | ADDQ.L #0x8,A7 00021382 4e ba f7 7a |N z | JSR 0x20afe 00021386 de fc 00 3a | : | ADDA.W #0x3a,A7 0002138a 60 3a |`: | BRA 0x213c6 0002138c 41 fa ef f4 |A | LEA.L 0x20382,A0 00021390 70 08 |p | MOVEQ.L #0x08,D0 00021392 2f 20 |/ | MOVE.L -(A0),-(A7) 00021394 51 c8 ff fc |Q | DBF D0,0x21392 00021398 51 4f |QO | SUBQ.L #0x8,A7 0002139a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002139e 3f 03 |? | MOVE.W D3,-(A7) 000213a0 3f 3c 00 24 |?< $ | MOVE.W #0x24,-(A7) 000213a4 4e 93 |N | JSR (A3) 000213a6 58 4f |XO | ADDQ.L #0x4,A7 000213a8 42 80 |B | CLR.L D0 000213aa 30 12 |0 | MOVE.W (A2),D0 000213ac 2f 00 |/ | MOVE.L D0,-(A7) 000213ae 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000213b4 58 4f |XO | ADDQ.L #0x4,A7 000213b6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000213bc 50 4f |PO | ADDQ.L #0x8,A7 000213be 4e ba f7 3e |N > | JSR 0x20afe 000213c2 de fc 00 28 | ( | ADDA.W #0x28,A7 000213c6 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000213ca 4e 5e |N^ | UNLK A6 000213cc 4e 75 |Nu | RTS 000213ce ; -------------------------------------------------------------------------------------- 000213ce ; OMSI PASCAL Function 000213ce ; <LVAR -0x004 @> 000213ce ; -------------------------------------------------------------------------------------- 000213ce 4e 56 ff b4 |NV | LINK.W A6,#0xffb4 000213d2 bf d5 | | CMPA.L (A5),A7 000213d4 62 06 |b | BHI 0x213dc 000213d6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000213da 4e 76 |Nv | TRAPV 000213dc de fc 00 48 | H | ADDA.W #0x48,A7 000213e0 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000213e4 41 fa f0 aa |A | LEA.L 0x20490,A0 000213e8 70 0b |p | MOVEQ.L #0x0b,D0 000213ea 2f 20 |/ | MOVE.L -(A0),-(A7) 000213ec 51 c8 ff fc |Q | DBF D0,0x213ea 000213f0 59 4f |YO | SUBQ.L #0x4,A7 000213f2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000213f6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000213fa 3f 3c 00 30 |?< 0 | MOVE.W #0x30,-(A7) 000213fe 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021404 50 4f |PO | ADDQ.L #0x8,A7 00021406 4e ba f1 30 |N 0 | JSR 0x20538 0002140a de fc 00 32 | 2 | ADDA.W #0x32,A7 0002140e 3e bc 00 03 |> | MOVE.W #0x3,(A7) 00021412 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021416 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 0002141c 5c 4f |\O | ADDQ.L #0x6,A7 0002141e 4e ba f9 54 |N T | JSR 0x20d74 00021422 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00021426 4e 5e |N^ | UNLK A6 00021428 4e 75 |Nu | RTS 0002142a ; -------------------------------------------------------------------------------------- 0002142a ; OMSI PASCAL Function 0002142a ; <LVAR -0x004 @ 2(w)> 0002142a ; -------------------------------------------------------------------------------------- 0002142a 4e 56 ff a2 |NV | LINK.W A6,#0xffa2 0002142e bf d5 | | CMPA.L (A5),A7 00021430 62 06 |b | BHI 0x21438 00021432 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021436 4e 76 |Nv | TRAPV 00021438 de fc 00 5a | Z | ADDA.W #0x5a,A7 0002143c 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00021440 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 00021444 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021448 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 0002144e 5c 4f |\O | ADDQ.L #0x6,A7 00021450 02 6e 00 ff ff fc | n | ANDI.W #0x00ff,(A6-0x4) 00021456 66 06 |f | BNE 0x2145e 00021458 4e ba f9 1a |N | JSR 0x20d74 0002145c 60 30 |`0 | BRA 0x2148e 0002145e 9e fc 00 3e | > | SUBA.W #0x3e,A7 00021462 20 4f | O | MOVEA.L A7,A0 00021464 43 fa f0 2a |C * | LEA.L 0x20490,A1 00021468 70 3c |p< | MOVEQ.L #0x3c,D0 0002146a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002146c 51 c8 ff fc |Q | DBF D0,0x2146a 00021470 59 4f |YO | SUBQ.L #0x4,A7 00021472 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021476 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002147a 3f 3c 00 3d |?< = | MOVE.W #0x3d,-(A7) 0002147e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021484 50 4f |PO | ADDQ.L #0x8,A7 00021486 4e ba f6 76 |N v | JSR 0x20afe 0002148a de fc 00 42 | B | ADDA.W #0x42,A7 0002148e 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021492 4e 5e |N^ | UNLK A6 00021494 4e 75 |Nu | RTS 00021496 ; -------------------------------------------------------------------------------------- 00021496 ; OMSI PASCAL Function 00021496 ; -------------------------------------------------------------------------------------- 00021496 4e 56 ff da |NV | LINK.W A6,#0xffda 0002149a bf d5 | | CMPA.L (A5),A7 0002149c 62 06 |b | BHI 0x214a4 0002149e 44 fc 00 02 |D | MOVE.W #0x2,CCR 000214a2 4e 76 |Nv | TRAPV 000214a4 de fc 00 26 | & | ADDA.W #0x26,A7 000214a8 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000214ac 41 fa f0 2e |A . | LEA.L 0x204dc,A0 000214b0 70 06 |p | MOVEQ.L #0x06,D0 000214b2 3f 20 |? | MOVE.W -(A0),-(A7) 000214b4 51 c8 ff fc |Q | DBF D0,0x214b2 000214b8 59 4f |YO | SUBQ.L #0x4,A7 000214ba 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000214be 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000214c2 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000214c6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000214cc 50 4f |PO | ADDQ.L #0x8,A7 000214ce 4e ba f0 68 |N h | JSR 0x20538 000214d2 de fc 00 12 | | ADDA.W #0x12,A7 000214d6 48 78 00 03 |Hx | PEA.L 0x3 000214da 4e b9 00 01 03 f4 |N | JSR SetConsoleConfig(a : Long) 000214e0 58 4f |XO | ADDQ.L #0x4,A7 000214e2 4e ba f8 90 |N | JSR 0x20d74 000214e6 60 c4 |` | BRA 0x214ac 000214e8 4c df 01 01 4e 5e 4e 75 |L N^Nu| .XXX[0x8] 000214f0 ; -------------------------------------------------------------------------------------- 000214f0 ; OMSI PASCAL Function 000214f0 ; <LVAR -0x004 @ 1(r)> 000214f0 ; -------------------------------------------------------------------------------------- 000214f0 4e 56 ff b6 |NV | LINK.W A6,#0xffb6 000214f4 bf d5 | | CMPA.L (A5),A7 000214f6 62 06 |b | BHI 0x214fe 000214f8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000214fc 4e 76 |Nv | TRAPV 000214fe de fc 00 46 | F | ADDA.W #0x46,A7 00021502 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00021506 72 03 |r | MOVEQ.L #0x03,D1 00021508 59 4f |YO | SUBQ.L #0x4,A7 0002150a 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 00021510 20 1f | | MOVE.L (A7)+,D0 00021512 b0 81 | | CMP.L D1,D0 00021514 67 08 |g | BEQ 0x2151e 00021516 4e ba ff 7e |N ~ | JSR 0x21496 0002151a 60 00 00 98 |` | BRA 0x215b4 0002151e 3f 01 |? | MOVE.W D1,-(A7) 00021520 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021524 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 0002152a 5c 4f |\O | ADDQ.L #0x6,A7 0002152c 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00021530 48 80 |H | EXTB.W D0 00021532 0c 40 00 06 | @ | CMPI.W #0x0006,D0 00021536 63 02 |c | BLS 0x2153a 00021538 4e 4e |NN | TRAP #14 0002153a d0 40 | @ | ADD.W D0,D0 0002153c 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00021544 00 0e | | .CONST 0xe ; [0x0] -> 0x21552 00021546 00 1e | | .CONST 0x1e ; [0x1] -> 0x21562 00021548 00 26 | & | .CONST 0x26 ; [0x2] -> 0x2156a 0002154a 00 20 | | .CONST 0x20 ; [0x3] -> 0x21564 0002154c 00 2c | , | .CONST 0x2c ; [0x4] -> 0x21570 0002154e 00 3a | : | .CONST 0x3a ; [0x5] -> 0x2157e 00021550 00 46 | F | .CONST 0x46 ; [0x6] -> 0x2158a 00021552 switch@0x2153c[0x0]: 00021552 42 27 |B' | CLR.B -(A7) 00021554 48 78 00 01 |Hx | PEA.L 0x1 00021558 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002155e 5c 4f |\O | ADDQ.L #0x6,A7 00021560 60 52 |`R | BRA 0x215b4 00021562 switch@0x2153c[0x1]: 00021562 60 ee |` | BRA switch@0x2153c[0x0] 00021564 switch@0x2153c[0x3]: 00021564 4e ba fe c4 |N | JSR 0x2142a 00021568 60 4a |`J | BRA 0x215b4 0002156a switch@0x2153c[0x2]: 0002156a 4e ba fe 62 |N b | JSR 0x213ce 0002156e 60 44 |`D | BRA 0x215b4 00021570 switch@0x2153c[0x4]: 00021570 48 78 00 1c |Hx | PEA.L 0x1c 00021574 4e b9 00 01 02 20 |N | JSR KC10_Panic(code : Long) 0002157a 58 4f |XO | ADDQ.L #0x4,A7 0002157c 60 36 |`6 | BRA 0x215b4 0002157e switch@0x2153c[0x5]: 0002157e 48 78 00 01 |Hx | PEA.L 0x1 00021582 4e b9 00 01 03 f4 |N | JSR SetConsoleConfig(a : Long) 00021588 60 f0 |` | BRA 0x2157a 0002158a switch@0x2153c[0x6]: 0002158a 41 fa ef ac |A | LEA.L 0x20538,A0 0002158e 70 14 |p | MOVEQ.L #0x14,D0 00021590 3f 20 |? | MOVE.W -(A0),-(A7) 00021592 51 c8 ff fc |Q | DBF D0,0x21590 00021596 59 4f |YO | SUBQ.L #0x4,A7 00021598 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002159c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000215a0 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 000215a4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000215aa 50 4f |PO | ADDQ.L #0x8,A7 000215ac 4e ba f5 50 |N P | JSR 0x20afe 000215b0 de fc 00 2e | . | ADDA.W #0x2e,A7 000215b4 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 000215b8 4e 5e |N^ | UNLK A6 000215ba 4e 75 |Nu | RTS 000215bc ; -------------------------------------------------------------------------------------- 000215bc ; OMSI PASCAL Function 000215bc ; -------------------------------------------------------------------------------------- 000215bc START: 000215bc 4f fa 00 08 |O | LEA.L MAIN,A7 000215c0 4e f9 00 01 02 80 |N | JMP ?start_program 000215c6 MAIN: 000215c6 4e b9 00 01 03 98 |N | JSR FSCALL_10398 000215cc 4e ba ff 22 |N " | JSR 0x214f0 000215d0 4e b9 00 01 02 84 |N | JSR ?exit 000215d6 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 000215e4 ; -------------------------------------------------------------------------------------- 000215e4 ; OMSI PASCAL Function 000215e4 ; <LVAR 0x008 1(r)> 000215e4 ; -------------------------------------------------------------------------------------- 000215e4 PROG_FAIL: 000215e4 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 000215e8 bf d5 | | CMPA.L (A5),A7 000215ea 62 06 |b | BHI 0x215f2 000215ec 44 fc 00 02 |D | MOVE.W #0x2,CCR 000215f0 4e 76 |Nv | TRAPV 000215f2 de fc 00 2c | , | ADDA.W #0x2c,A7 000215f6 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000215fa 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 000215fe 70 06 |p | MOVEQ.L #0x06,D0 00021600 3f 20 |? | MOVE.W -(A0),-(A7) 00021602 51 c8 ff fc |Q | DBF D0,0x21600 00021606 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 0002160a 51 4f |QO | SUBQ.L #0x8,A7 0002160c 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00021610 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021614 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00021618 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002161e 58 4f |XO | ADDQ.L #0x4,A7 00021620 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00021624 48 80 |H | EXTB.W D0 00021626 48 c0 |H | EXTW.L D0 00021628 2f 00 |/ | MOVE.L D0,-(A7) 0002162a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021630 58 4f |XO | ADDQ.L #0x4,A7 00021632 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021638 50 4f |PO | ADDQ.L #0x8,A7 0002163a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021640 de fc 00 14 | | ADDA.W #0x14,A7 00021644 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00021648 4e 5e |N^ | UNLK A6 0002164a 4e 75 |Nu | RTS 0002164c 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 0002165a 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00021668 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00021676 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00021688 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 000216a0 ; -------------------------------------------------------------------------------------- 000216a0 ; OMSI PASCAL Function 000216a0 ; <LVAR 0x00e 1(r)> 000216a0 ; <LVAR 0x00a 4(r)> 000216a0 ; <LVAR 0x008 1(r)> 000216a0 ; -------------------------------------------------------------------------------------- 000216a0 EXP_FAIL: 000216a0 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 000216a4 bf d5 | | CMPA.L (A5),A7 000216a6 62 06 |b | BHI 0x216ae 000216a8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000216ac 4e 76 |Nv | TRAPV 000216ae de fc 00 74 | t | ADDA.W #0x74,A7 000216b2 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 000216b6 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000216bc 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 000216c2 72 01 |r | MOVEQ.L #0x01,D1 000216c4 74 0d |t | MOVEQ.L #0x0d,D2 000216c6 76 1e |v | MOVEQ.L #0x1e,D3 000216c8 78 12 |x | MOVEQ.L #0x12,D4 000216ca 7a 0e |z | MOVEQ.L #0x0e,D5 000216cc 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000216d2 41 fa ff b4 |A | LEA.L 0x21688,A0 000216d6 70 08 |p | MOVEQ.L #0x08,D0 000216d8 3f 20 |? | MOVE.W -(A0),-(A7) 000216da 51 c8 ff fc |Q | DBF D0,0x216d8 000216de 59 4f |YO | SUBQ.L #0x4,A7 000216e0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216e4 3f 01 |? | MOVE.W D1,-(A7) 000216e6 3f 04 |? | MOVE.W D4,-(A7) 000216e8 4e 93 |N | JSR (A3) 000216ea 50 4f |PO | ADDQ.L #0x8,A7 000216ec 4e 94 |N | JSR (A4) 000216ee 50 4f |PO | ADDQ.L #0x8,A7 000216f0 20 4f | O | MOVEA.L A7,A0 000216f2 43 fa ff 58 |C X | LEA.L 0x2164c,A1 000216f6 70 0c |p | MOVEQ.L #0x0c,D0 000216f8 10 d9 | | MOVE.B (A1)+,(A0)+ 000216fa 51 c8 ff fc |Q | DBF D0,0x216f8 000216fe 51 4f |QO | SUBQ.L #0x8,A7 00021700 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021704 3f 01 |? | MOVE.W D1,-(A7) 00021706 3f 02 |? | MOVE.W D2,-(A7) 00021708 4e 93 |N | JSR (A3) 0002170a 54 4f |TO | ADDQ.L #0x2,A7 0002170c 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00021710 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00021716 54 4f |TO | ADDQ.L #0x2,A7 00021718 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002171e 50 4f |PO | ADDQ.L #0x8,A7 00021720 4e 94 |N | JSR (A4) 00021722 de c4 | | ADDA.W D4,A7 00021724 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00021728 b0 c1 | | CMPA.W D1,A0 0002172a 67 48 |gH | BEQ 0x21774 0002172c 9e c5 | | SUBA.W D5,A7 0002172e 22 4f |"O | MOVEA.L A7,A1 00021730 45 fa ff 28 |E ( | LEA.L 0x2165a,A2 00021734 70 0c |p | MOVEQ.L #0x0c,D0 00021736 12 da | | MOVE.B (A2)+,(A1)+ 00021738 51 c8 ff fc |Q | DBF D0,0x21736 0002173c 9e c3 | | SUBA.W D3,A7 0002173e 22 4f |"O | MOVEA.L A7,A1 00021740 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00021744 70 1d |p | MOVEQ.L #0x1d,D0 00021746 12 d8 | | MOVE.B (A0)+,(A1)+ 00021748 51 c8 ff fc |Q | DBF D0,0x21746 0002174c 51 4f |QO | SUBQ.L #0x8,A7 0002174e 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00021752 3f 01 |? | MOVE.W D1,-(A7) 00021754 3f 02 |? | MOVE.W D2,-(A7) 00021756 4e 93 |N | JSR (A3) 00021758 58 4f |XO | ADDQ.L #0x4,A7 0002175a 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002175e 3f 01 |? | MOVE.W D1,-(A7) 00021760 3f 03 |? | MOVE.W D3,-(A7) 00021762 4e 93 |N | JSR (A3) 00021764 50 4f |PO | ADDQ.L #0x8,A7 00021766 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002176c 50 4f |PO | ADDQ.L #0x8,A7 0002176e 4e 94 |N | JSR (A4) 00021770 de fc 00 30 | 0 | ADDA.W #0x30,A7 00021774 9e c5 | | SUBA.W D5,A7 00021776 20 4f | O | MOVEA.L A7,A0 00021778 43 fa fe ee |C | LEA.L 0x21668,A1 0002177c 70 0c |p | MOVEQ.L #0x0c,D0 0002177e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021780 51 c8 ff fc |Q | DBF D0,0x2177e 00021784 51 4f |QO | SUBQ.L #0x8,A7 00021786 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002178a 3f 01 |? | MOVE.W D1,-(A7) 0002178c 3f 02 |? | MOVE.W D2,-(A7) 0002178e 4e 93 |N | JSR (A3) 00021790 54 4f |TO | ADDQ.L #0x2,A7 00021792 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00021796 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 0002179c 54 4f |TO | ADDQ.L #0x2,A7 0002179e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000217a4 50 4f |PO | ADDQ.L #0x8,A7 000217a6 4e 94 |N | JSR (A4) 000217a8 5d 4f |]O | SUBQ.L #0x6,A7 000217aa 20 4f | O | MOVEA.L A7,A0 000217ac 43 fa fe da |C | LEA.L 0x21688,A1 000217b0 70 16 |p | MOVEQ.L #0x16,D0 000217b2 10 d9 | | MOVE.B (A1)+,(A0)+ 000217b4 51 c8 ff fc |Q | DBF D0,0x217b2 000217b8 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000217bc 59 4f |YO | SUBQ.L #0x4,A7 000217be 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000217c2 3f 01 |? | MOVE.W D1,-(A7) 000217c4 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000217c8 4e 93 |N | JSR (A3) 000217ca 50 4f |PO | ADDQ.L #0x8,A7 000217cc 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000217d2 de c3 | | ADDA.W D3,A7 000217d4 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 000217d8 4e 5e |N^ | UNLK A6 000217da 4e 75 |Nu | RTS