|
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: 5120 (0x1400)
Types: M200
Notes: M200_PROGRAM
Names: »P2FRU.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »P2FRU.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »P2FRU.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »P2FRU.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »P2FRU.M200«
└─ ⟦this⟧ »P2FRU.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »P2FRU.M200«
@ 2039e
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 2039e-204da Body>
<POP 2039e-203b4 Prologue> Σ0 ↓
<POP 203b4-203ca RegCacheLoad> Σ0 ↓
<POP 203ca-2042a Naked> Σ0 ↓ →0x20472
<Call 0x203ca 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x203d0 [18] @> Δ-18 {[«18""»]}
<POP 203dc-203de StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x203de 18> {[«18""»]|[$$Experiment error :]}
<Call 0x203ea 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 203ec-203ed StackAdj> Δ+22 ↓ {}
<Blob 0x203ed [14] @> Δ-14 {[«14""»]}
<POP 203fc-203fe StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x203fe 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 20408-2040a StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 2040a MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x2040e 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 20414-20416 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x20416 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2041c-2041e StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2041e 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20420-20422 StackAdj> Δ+18 {}
<MI 20422 MOVEA.L (A6+0xa),A0> {}
<MI 20426 CMPA.W #0x01,A0> {}
<MI 20428 BEQ 0x20472> {}
<POP 2042a-20472 Naked> Σ0 ↓
<Blob 0x2042a [14] @> Δ-14 {[«14""»]}
<Blob 0x2043a [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 2044a-2044c StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x2044c 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 20456-20458 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x20458> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x20458 12> Δ-4
<Const 0x2045c 0x1.2> Δ-2
<Const 0x2045e 0x1e.2> Δ-2
<Call 0x20460 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20462-20464 StackAdj> Δ+8
<Call 0x20464 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 2046a-2046c StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x2046c 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2046e-20472 StackAdj> Δ+48 {}
<POP 20472-204d2 Naked> Σ0 ↓ ←0x203ca
<Blob 0x20472 [14] @> Δ-14 {[«14""»]}
<POP 20482-20484 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20484 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 2048e-20490 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 20490 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x20494 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 2049a-2049c StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x2049c 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 204a2-204a4 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x204a4 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 204a6-204a7 StackAdj> Δ+18 ↓ {}
<Blob 0x204a7 [24] @> Δ-24 {[«24""»]}
<Const 0x204b6 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 204ba-204bc StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x204bc 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x204ca 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 204d0-204d2 StackAdj> Δ+30 {}
<POP 204d2-204da Epilogue> Σ0
@ 204da
<LVAR 0x02a 4(r)>
<LVAR 0x028 1(r)>
<LVAR 0x026 1(r)>
<LVAR 0x024 1(r)>
<LVAR 0x020 4(r)>
<LVAR 0x01c 4(r)>
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 204da-20604 Body>
<POP 204da-204f0 Prologue> Σ0 ↓
<POP 204f0-204fe RegCacheLoad> Σ0 ↓
<POP 204fe-2059e Naked> Σ0 ↓ →0x205fc
<Blob 0x204fe [2] @> Δ-2 {[«2""»]}
<POP 20502-20504 StackAdj> Δ-4 {[«2""»]|[-4-]}
<POP 20504-20505 StackAdj> Δ+2 {[«2""»]|[-2-]}
<Blob 0x20505 [2] @> Δ-2 {[«2""»]|[-2-]|[«2""»]}
<MI 20508 MOVE.B 0x2016d,(A7+0x1)> {[«2""»]|[-2-]|[«2""»]}
<MI 2050e MOVE.B 0x2016e,(A7+0x2)> {[«2""»]|[-2-]|[«2""»]}
<POP 20514-20516 StackAdj> Δ-8 {[«2""»]|[-2-]|[«2""»]|[-8-]}
<Lit 0x20516 2> {[«2""»]|[-2-]|[«2""»]|[-4-]|[$$P ]}
<MI 20526 MOVE.L (A6+0x2a),(A7)> {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']}
<POP 20520-20526 StackAdj> Δ-8 {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-8-]}
<Call 0x2052a 0x102e4> {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x20530> {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-4-]|[$$…]}
<Pointer.sp 0x20530 16> Δ-4
<Const 0x20534 0x1.2> Δ-2
<Const 0x20536 0x3.2> Δ-2
<Call 0x2053a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20540-20542 StackAdj> Δ+8
<Call 0x20542 0x102d4> {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-4-]|[$$…]}
StringCat3(a, b, c : String) : String
<POP 20548-2054a StackAdj> Δ+12 {[«2""»]|[-2-]|[«2""»]|[-4-]}
<MI 2054a MOVEA.L (A7)+,A4> Δ+4 {[«2""»]|[-2-]|[«2""»]}
<POP 2054c-2054e StackAdj> Δ+6 {}
<Call 0x2054e 0x10538> {}
IPC_Init(void)
<MI 20554 MOVE.B (A6+0x28),-(A7)> Δ-2 {[2, '(A6+0x28)']}
<MI 20558 PEA.L (A7)> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']}
<Const 0x2055a 0x0.4> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]}
<Const 0x2055c 0x0.4> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
<Call 0x2055e 0x104fc> {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
IPC_PutVar(src : Pointer; length : Long ; type : Long)
<POP 20564-20566 StackAdj> Δ+12 {[2, '(A6+0x28)']}
<MI 20566 MOVE.B (A6+0x26),(A7)> {[-2-]}
<Call 0x2056a 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<MI 20570 MOVE.B (A6+0x24),(A7)> {[-2-]}
<Call 0x20574 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<POP 2057a-2057c StackAdj> Δ+2 {}
<Call 0x2057c 0x10514> {}
IPC_PutEnd(void)
<MI 20582 MOVEA.L (A6+0x8),A0> {}
<MI 20586 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Const 0x20588 0x1.4> Δ-4 {[4, 'A4']|[##1]}
<Const 0x2058c 0x1.2> Δ-2 {[4, 'A4']|[##1]|[#1]}
<MI 2058e PEA.L (A0)> Δ-4 {[4, 'A4']|[##1]|[#1]|[4, '^(A0)']}
<Call 0x20590 0x103b0> {[4, 'A4']|[##1]|[#1]|[4, '^(A0)']}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 20596-2059a StackAdj> Δ+14 {}
<MI 2059a TST.B (A0)> {}
<MI 2059c BNE 0x205fc> {}
<POP 2059e-205fc Naked> Σ0 ↓
<Call 0x2059e 0x10538> {}
IPC_Init(void)
<MI 205a4 MOVEA.L (A6+0x20),A0> {}
<MI 205a8 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x205aa 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 205b0-205b2 StackAdj> Δ+4 {}
<MI 205b2 MOVEA.L (A6+0x1c),A0> {}
<MI 205b6 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x205b8 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 205ba-205bc StackAdj> Δ+4 {}
<MI 205bc MOVEA.L (A6+0x18),A0> {}
<MI 205c0 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x205c2 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 205c4-205c6 StackAdj> Δ+4 {}
<MI 205c6 MOVEA.L (A6+0x14),A0> {}
<MI 205ca PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x205cc 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 205ce-205d0 StackAdj> Δ+4 {}
<MI 205d0 MOVEA.L (A6+0x10),A0> {}
<MI 205d4 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x205d6 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x205d8 0x0.4> Δ-4 {[4, '^(A0)']|[##0]|[##0]}
<Call 0x205da 0x10520> {[4, '^(A0)']|[##0]|[##0]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 205e0-205e2 StackAdj> Δ+12 {}
<MI 205e2 MOVEA.L (A6+0xc),A0> {}
<MI 205e6 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x205e8 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x205ea 0x7.4> Δ-4 {[4, '^(A0)']|[##0]|[##7]}
<Call 0x205ee 0x10520> {[4, '^(A0)']|[##0]|[##7]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 205f4-205f6 StackAdj> Δ+12 {}
<Call 0x205f6 0x1051a> {}
IPC_GetEnd(void)
<POP 205fc-20604 Epilogue> Σ0 ←0x204fe
@ 20604
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20604-20662 Body>
<POP 20604-2061a Prologue> Σ0 ↓
<POP 2061a-2065a Naked> Σ0 ↓
<Call 0x2061a 0x10538> {}
IPC_Init(void)
<MI 20620 MOVEA.L (A6+0x10),A0> {}
<MI 20624 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x20626 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x2062a 0x0.4> Δ-4 {[4, '^(A0)']|[##0]|[##0]}
<Call 0x2062e 0x10520> {[4, '^(A0)']|[##0]|[##0]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 20634-20638 StackAdj> Δ+12 {}
<MI 20638 MOVEA.L (A6+0xc),A0> {}
<MI 2063c PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x2063e 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 20644-20646 StackAdj> Δ+4 {}
<MI 20646 MOVEA.L (A6+0x8),A0> {}
<MI 2064a PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x2064c 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 20652-20654 StackAdj> Δ+4 {}
<Call 0x20654 0x1051a> {}
IPC_GetEnd(void)
<POP 2065a-20662 Epilogue> Σ0
@ 20662
<LVAR 0x01e 1(r)>
<LVAR 0x01a 4(r)>
<LVAR 0x016 4(r)>
<LVAR 0x012 4(r)>
<LVAR 0x010 1(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20662-206f2 Body>
<POP 20662-20678 Prologue> Σ0 ↓
<POP 20678-20682 RegCacheLoad> Σ0 ↓
<POP 20682-206ea Naked> Σ0 ↓
<Call 0x20682 0x10538> {}
IPC_Init(void)
<MI 20688 MOVE.B (A6+0x1e),-(A7)> Δ-2 {[2, '(A6+0x1e)']}
<Call 0x2068c 0x10502> {[2, '(A6+0x1e)']}
IPC_PutBool(a : Bool)
<POP 20692-20694 StackAdj> Δ+2 {}
<MI 20694 MOVE.L (A6+0x1a),-(A7)> Δ-4 {[4, '(A6+0x1a)']}
<Call 0x20698 0x10508> {[4, '(A6+0x1a)']}
IPC_PutString(a : String)
<MI 2069a MOVE.L (A6+0x16),(A7)> {[4, '(A6+0x16)']}
<Call 0x2069e 0x10508> {[4, '(A6+0x16)']}
IPC_PutString(a : String)
<MI 206a0 MOVE.L (A6+0x12),(A7)> {[4, '(A6+0x12)']}
<Call 0x206a4 0x10508> {[4, '(A6+0x12)']}
IPC_PutString(a : String)
<POP 206a6-206a8 StackAdj> Δ+2 {[-2-]}
<MI 206a8 MOVE.B (A6+0x10),(A7)> {[-2-]}
<MI 206ac PEA.L (A7)> Δ-4 {[-2-]|[4, '^(A7)']}
<Const 0x206ae 0x0.4> Δ-4 {[-2-]|[4, '^(A7)']|[##0]}
<Const 0x206b0 0x0.4> Δ-4 {[-2-]|[4, '^(A7)']|[##0]|[##0]}
<Call 0x206b2 0x104fc> {[-2-]|[4, '^(A7)']|[##0]|[##0]}
IPC_PutVar(src : Pointer; length : Long ; type : Long)
<POP 206b8-206bc StackAdj> Δ+10 {[-2-]|[-2-]}
<MI 206bc MOVE.L (A6+0xc),(A7)> {[4, '(A6+0xc)']}
<MI 206c0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 206c4 PEA.L (A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']}
<Const 0x206c6 0x0.4> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]}
<Const 0x206c8 0x7.4> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]|[##7]}
<Call 0x206cc 0x104fc> {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]|[##7]}
IPC_PutVar(src : Pointer; length : Long ; type : Long)
<POP 206d2-206d6 StackAdj> Δ+20 {}
<Call 0x206d6 0x10514> {}
IPC_PutEnd(void)
<MI 206dc CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x206de 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x206e2 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 206e8-206ea StackAdj> Δ+6 {}
<POP 206ea-206f2 Epilogue> Σ0
@ 206f2
<LVAR 0x024 4(r)>
<LVAR 0x022 1(r)>
<LVAR 0x020 1(r)>
<LVAR 0x01c 4(r)>
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 206f2-207ee Body>
<POP 206f2-20708 Prologue> Σ0 ↓
<POP 20708-20710 RegCacheLoad> Σ0 ↓
<POP 20710-2078a Naked> Σ0 ↓ →0x207e6
<Call 0x20710 0x10538> {}
IPC_Init(void)
<MI 20716 MOVE.B (A6+0x22),-(A7)> Δ-2 {[2, '(A6+0x22)']}
<Call 0x2071a 0x10502> {[2, '(A6+0x22)']}
IPC_PutBool(a : Bool)
<MI 20720 MOVE.B (A6+0x20),(A7)> {[-2-]}
<Call 0x20724 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<POP 2072a-2072c StackAdj> Δ+2 {}
<Call 0x2072c 0x10514> {}
IPC_PutEnd(void)
<Blob 0x20732 [4] @> Δ-4 {[«4""»]}
<Blob 0x20736 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2073a [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2073e-20740 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x20740 12> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
<MI 2074e MOVE.L (A6+0x24),(A7)> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']}
<POP 20748-2074e StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
<Call 0x20752 0x102cc> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
StringDup(a : String) : String
<POP 20758-2075a StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
<Call 0x2075a 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
StringCat2(a, b : String) : String
<POP 20760-20762 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x20762 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20768-2076c StackAdj> Δ+16 {}
<MI 2076c MOVEA.L (A6+0x8),A0> {}
<MI 20770 MOVE.L (A6+0x24),-(A7)> Δ-4 {[4, '(A6+0x24)']}
<Const 0x20774 0x1.4> Δ-4 {[4, '(A6+0x24)']|[##1]}
<Const 0x20778 0x1.2> Δ-2 {[4, '(A6+0x24)']|[##1]|[#1]}
<MI 2077a PEA.L (A0)> Δ-4 {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
<Call 0x2077c 0x103b0> {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 20782-20786 StackAdj> Δ+14 {}
<MI 20786 TST.B (A0)> {}
<MI 20788 BNE 0x207e6> {}
<POP 2078a-207e6 Naked> Σ0 ↓
<Call 0x2078a 0x10538> {}
IPC_Init(void)
<MI 20790 MOVEA.L (A6+0x1c),A0> {}
<MI 20794 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x20796 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 2079c-2079e StackAdj> Δ+4 {}
<MI 2079e MOVEA.L (A6+0x18),A0> {}
<MI 207a2 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x207a4 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 207aa-207ac StackAdj> Δ+4 {}
<MI 207ac MOVEA.L (A6+0x14),A0> {}
<MI 207b0 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x207b2 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 207b8-207ba StackAdj> Δ+4 {}
<MI 207ba MOVEA.L (A6+0x10),A0> {}
<MI 207be PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x207c0 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x207c2 0x0.4> Δ-4 {[4, '^(A0)']|[##0]|[##0]}
<Call 0x207c4 0x10520> {[4, '^(A0)']|[##0]|[##0]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 207ca-207cc StackAdj> Δ+12 {}
<MI 207cc MOVEA.L (A6+0xc),A0> {}
<MI 207d0 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x207d2 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x207d4 0x7.4> Δ-4 {[4, '^(A0)']|[##0]|[##7]}
<Call 0x207d8 0x10520> {[4, '^(A0)']|[##0]|[##7]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 207de-207e0 StackAdj> Δ+12 {}
<Call 0x207e0 0x1051a> {}
IPC_GetEnd(void)
<POP 207e6-207ee Epilogue> Σ0 ←0x20710
@ 207ee
<LVAR 0x028 1(r)>
<LVAR 0x024 4(r)>
<LVAR 0x022 1(r)>
<LVAR 0x020 1(r)>
<LVAR 0x01c 4(r)>
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 207ee-208fc Body>
<POP 207ee-20804 Prologue> Σ0 ↓
<POP 20804-2080c RegCacheLoad> Σ0 ↓
<POP 2080c-20898 Naked> Σ0 ↓ →0x208f4
<Call 0x2080c 0x10538> {}
IPC_Init(void)
<MI 20812 MOVE.B (A6+0x28),-(A7)> Δ-2 {[2, '(A6+0x28)']}
<MI 20816 PEA.L (A7)> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']}
<Const 0x20818 0x0.4> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]}
<Const 0x2081a 0x0.4> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
<Call 0x2081c 0x104fc> {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
IPC_PutVar(src : Pointer; length : Long ; type : Long)
<POP 20822-20824 StackAdj> Δ+12 {[2, '(A6+0x28)']}
<MI 20824 MOVE.B (A6+0x22),(A7)> {[-2-]}
<Call 0x20828 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<MI 2082e MOVE.B (A6+0x20),(A7)> {[-2-]}
<Call 0x20832 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<POP 20838-2083a StackAdj> Δ+2 {}
<Call 0x2083a 0x10514> {}
IPC_PutEnd(void)
<Blob 0x20840 [4] @> Δ-4 {[«4""»]}
<Blob 0x20844 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20848 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 2084c-2084e StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x2084e 12> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
<MI 2085c MOVE.L (A6+0x24),(A7)> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']}
<POP 20856-2085c StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
<Call 0x20860 0x102cc> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
StringDup(a : String) : String
<POP 20866-20868 StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
<Call 0x20868 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
StringCat2(a, b : String) : String
<POP 2086e-20870 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x20870 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20876-2087a StackAdj> Δ+16 {}
<MI 2087a MOVEA.L (A6+0x8),A0> {}
<MI 2087e MOVE.L (A6+0x24),-(A7)> Δ-4 {[4, '(A6+0x24)']}
<Const 0x20882 0x1.4> Δ-4 {[4, '(A6+0x24)']|[##1]}
<Const 0x20886 0x1.2> Δ-2 {[4, '(A6+0x24)']|[##1]|[#1]}
<MI 20888 PEA.L (A0)> Δ-4 {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
<Call 0x2088a 0x103b0> {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 20890-20894 StackAdj> Δ+14 {}
<MI 20894 TST.B (A0)> {}
<MI 20896 BNE 0x208f4> {}
<POP 20898-208f4 Naked> Σ0 ↓
<Call 0x20898 0x10538> {}
IPC_Init(void)
<MI 2089e MOVEA.L (A6+0x1c),A0> {}
<MI 208a2 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x208a4 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 208aa-208ac StackAdj> Δ+4 {}
<MI 208ac MOVEA.L (A6+0x18),A0> {}
<MI 208b0 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x208b2 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 208b8-208ba StackAdj> Δ+4 {}
<MI 208ba MOVEA.L (A6+0x14),A0> {}
<MI 208be PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x208c0 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 208c6-208c8 StackAdj> Δ+4 {}
<MI 208c8 MOVEA.L (A6+0x10),A0> {}
<MI 208cc PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x208ce 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x208d0 0x0.4> Δ-4 {[4, '^(A0)']|[##0]|[##0]}
<Call 0x208d2 0x10520> {[4, '^(A0)']|[##0]|[##0]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 208d8-208da StackAdj> Δ+12 {}
<MI 208da MOVEA.L (A6+0xc),A0> {}
<MI 208de PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x208e0 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x208e2 0x7.4> Δ-4 {[4, '^(A0)']|[##0]|[##7]}
<Call 0x208e6 0x10520> {[4, '^(A0)']|[##0]|[##7]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 208ec-208ee StackAdj> Δ+12 {}
<Call 0x208ee 0x1051a> {}
IPC_GetEnd(void)
<POP 208f4-208fc Epilogue> Σ0 ←0x2080c
@ 208fc
<LVAR 0x02c 1(r)>
<LVAR 0x028 4(r)>
<LVAR 0x026 1(r)>
<LVAR 0x024 1(r)>
<LVAR 0x022 1(r)>
<LVAR 0x020 1(r)>
<LVAR 0x01c 4(r)>
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 208fc-20a14 Body>
<POP 208fc-20912 Prologue> Σ0 ↓
<POP 20912-20920 RegCacheLoad> Σ0 ↓
<POP 20920-209b0 Naked> Σ0 ↓ →0x20a0c
<Call 0x20920 0x10538> {}
IPC_Init(void)
<MI 20926 MOVE.B (A6+0x2c),-(A7)> Δ-2 {[2, '(A6+0x2c)']}
<MI 2092a PEA.L (A7)> Δ-4 {[2, '(A6+0x2c)']|[4, '^(A7)']}
<Const 0x2092c 0x0.4> Δ-4 {[2, '(A6+0x2c)']|[4, '^(A7)']|[##0]}
<Const 0x2092e 0x0.4> Δ-4 {[2, '(A6+0x2c)']|[4, '^(A7)']|[##0]|[##0]}
<Call 0x20930 0x104fc> {[2, '(A6+0x2c)']|[4, '^(A7)']|[##0]|[##0]}
IPC_PutVar(src : Pointer; length : Long ; type : Long)
<POP 20936-20938 StackAdj> Δ+12 {[2, '(A6+0x2c)']}
<MI 20938 MOVE.B (A6+0x26),(A7)> {[-2-]}
<Call 0x2093c 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<MI 2093e MOVE.B (A6+0x24),(A7)> {[-2-]}
<Call 0x20942 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<MI 20944 MOVE.B (A6+0x22),(A7)> {[-2-]}
<Call 0x20948 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<MI 2094a MOVE.B (A6+0x20),(A7)> {[-2-]}
<Call 0x2094e 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<POP 20950-20952 StackAdj> Δ+2 {}
<Call 0x20952 0x10514> {}
IPC_PutEnd(void)
<Blob 0x20958 [4] @> Δ-4 {[«4""»]}
<Blob 0x2095c [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20960 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 20964-20966 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x20966 12> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
<MI 20974 MOVE.L (A6+0x28),(A7)> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']}
<POP 2096e-20974 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-8-]}
<Call 0x20978 0x102cc> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-8-]}
StringDup(a : String) : String
<POP 2097e-20980 StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-4-]}
<Call 0x20980 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-4-]}
StringCat2(a, b : String) : String
<POP 20986-20988 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x20988 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2098e-20992 StackAdj> Δ+16 {}
<MI 20992 MOVEA.L (A6+0x8),A0> {}
<MI 20996 MOVE.L (A6+0x28),-(A7)> Δ-4 {[4, '(A6+0x28)']}
<Const 0x2099a 0x1.4> Δ-4 {[4, '(A6+0x28)']|[##1]}
<Const 0x2099e 0x1.2> Δ-2 {[4, '(A6+0x28)']|[##1]|[#1]}
<MI 209a0 PEA.L (A0)> Δ-4 {[4, '(A6+0x28)']|[##1]|[#1]|[4, '^(A0)']}
<Call 0x209a2 0x103b0> {[4, '(A6+0x28)']|[##1]|[#1]|[4, '^(A0)']}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 209a8-209ac StackAdj> Δ+14 {}
<MI 209ac TST.B (A0)> {}
<MI 209ae BNE 0x20a0c> {}
<POP 209b0-20a0c Naked> Σ0 ↓
<Call 0x209b0 0x10538> {}
IPC_Init(void)
<MI 209b6 MOVEA.L (A6+0x1c),A0> {}
<MI 209ba PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x209bc 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 209c2-209c4 StackAdj> Δ+4 {}
<MI 209c4 MOVEA.L (A6+0x18),A0> {}
<MI 209c8 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x209ca 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 209d0-209d2 StackAdj> Δ+4 {}
<MI 209d2 MOVEA.L (A6+0x14),A0> {}
<MI 209d6 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x209d8 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 209de-209e0 StackAdj> Δ+4 {}
<MI 209e0 MOVEA.L (A6+0x10),A0> {}
<MI 209e4 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x209e6 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x209e8 0x0.4> Δ-4 {[4, '^(A0)']|[##0]|[##0]}
<Call 0x209ea 0x10520> {[4, '^(A0)']|[##0]|[##0]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 209f0-209f2 StackAdj> Δ+12 {}
<MI 209f2 MOVEA.L (A6+0xc),A0> {}
<MI 209f6 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x209f8 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x209fa 0x7.4> Δ-4 {[4, '^(A0)']|[##0]|[##7]}
<Call 0x209fe 0x10520> {[4, '^(A0)']|[##0]|[##7]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 20a04-20a06 StackAdj> Δ+12 {}
<Call 0x20a06 0x1051a> {}
IPC_GetEnd(void)
<POP 20a0c-20a14 Epilogue> Σ0 ←0x20920
@ 20a14
<LVAR -0x004 1(rw)>
<POP 20a14-20adc Body>
<POP 20a14-20a2a Prologue> Σ0 ↓
<POP 20a2a-20a38 RegCacheLoad> Σ0 ↓
<POP 20a38-20ac4 Naked> Σ0 ↓ →0x20ad4
<Const 0x20a38 0x212ce.4> Δ-4 {[##135886]}
<Call 0x20a3a 0x102bc> {[##135886]}
FreeString(VAR a : String)
<POP 20a40-20a41 StackAdj> Δ+4 ↓ {}
<Blob 0x20a41 [8] @> Δ-8 {[«8""»]}
<POP 20a50-20a52 StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x20a52 7> {[«8""»]|[$$P2UCODE]}
<MI 20a64 MOVE.L (A7)+,0x212ce> Δ+4 {[«8""»]}
<POP 20a66-20a67 StackAdj> Δ+4 {[-4-]}
<Blob 0x20a67 [4] 0x212ce> Δ-4 {[-4-]|[«4»]}
<Call 0x20a68 0x102cc> {[-4-]|[«4»]}
StringDup(a : String) : String
<POP 20a6e-20a70 StackAdj> Δ+4 {[-4-]}
<MI 20a70 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 20a72 MOVE.B #0x01,(A6-0x4)> {}
<MI 20a76 MOVE.B (A6-0x4),-(A7)> Δ-2 {[2, '(A6-0x4)']}
<MI 20a7a MOVE.L A4,-(A7)> Δ-4 {[2, '(A6-0x4)']|[4, 'A4']}
<MI 20a7c MOVE.B 0x212ca,D0> {[2, '(A6-0x4)']|[4, 'A4']}
<MI 20a82 EXTB.W D0> {[2, '(A6-0x4)']|[4, 'A4']}
<POP 0x20a84 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, '(A6-0x4)']|[4, 'A4']}
<MI 20a86 MOVE.B D0,-(A7)> Δ-2 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']}
<MI 20a88 MOVE.B 0x212cb,D0> {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']}
<MI 20a8e EXTB.W D0> {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']}
<POP 0x20a90 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']}
<MI 20a92 MOVE.B D0,-(A7)> Δ-2 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']}
<Const 0x20a94 0x1.2> Δ-2 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']|[#1]}
<Const 0x20a96 0x1.2> Δ-2 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']|[#1]|[#1]}
<Const 0x20a98 0x212cc.4> Δ-4 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##135884]}
<Const 0x20a9e 0x212d2.4> Δ-4 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##135884]|[##135890]}
<Const 0x20aa4 0x212d6.4> Δ-4 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##135884]|[##135890]|[##135894]}
<Const 0x20aaa 0x212da.4> Δ-4 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##135884]|[##135890]|[##135894]|[##135898]}
<Const 0x20ab0 0x212db.4> Δ-4 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##135884]|[##135890]|[##135894]|[##135898]|[##135899]}
<Const 0x20ab6 0x212e9.4> Δ-4 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##135884]|[##135890]|[##135894]|[##135898]|[##135899]|[##135913]}
<Call 0x20ab8 0x208fc> {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']|[#1]|[#1]|[##135884]|[##135890]|[##135894]|[##135898]|[##135899]|[##135913]}
<POP 20abc-20ac0 StackAdj> Δ+38 {}
<MI 20ac0 TST.B 0x212e9> {}
<MI 20ac2 BEQ 0x20ad4> {}
<POP 20ac4-20ad4 Naked> Σ0 ↓
<Const 0x20ac4 0x6.2> Δ-2 {[#6]}
<Const 0x20ac8 0x1.4> Δ-4 {[#6]|[##1]}
<Call 0x20acc 0x103b8> {[#6]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20ad2-20ad4 StackAdj> Δ+6 {}
<POP 20ad4-20adc Epilogue> Σ0 ←0x20a38
@ 20adc
<POP 20adc-20b94 Body>
<POP 20adc-20af2 Prologue> Σ0 ↓
<POP 20af2-20b00 RegCacheLoad> Σ0 ↓
<POP 20b00-20b7c Naked> Σ0 ↓ →0x20b8c
<Const 0x20b00 0x212ce.4> Δ-4 {[##135886]}
<Call 0x20b02 0x102bc> {[##135886]}
FreeString(VAR a : String)
<POP 20b08-20b0a StackAdj> Δ+4 {}
<Blob 0x20b0a [10] (A6+0x12)> Δ-10 {[«10»]}
<POP 20b16-20b18 StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x20b18> {[«10»]|[$$…]}
<Pointer.sp 0x20b18 4> Δ-4
<Const 0x20b1c 0x1.2> Δ-2
<Const 0x20b1e 0xa.2> Δ-2
<Call 0x20b22 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20b28-20b2a StackAdj> Δ+8
<MI 20b2a MOVE.L (A7)+,0x212ce> Δ+4 {[«10»]}
<POP 20b2c-20b2e StackAdj> Δ+2 {[-8-]}
<POP 20b2e-20b2f StackAdj> Δ+4 {[-4-]}
<Blob 0x20b2f [4] 0x212ce> Δ-4 {[-4-]|[«4»]}
<Call 0x20b30 0x102cc> {[-4-]|[«4»]}
StringDup(a : String) : String
<POP 20b36-20b38 StackAdj> Δ+4 {[-4-]}
<MI 20b38 MOVE.B 0x212ca,D0> {[-4-]}
<MI 20b3e EXTB.W D0> {[-4-]}
<POP 0x20b40 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-4-]}
<MI 20b42 MOVE.B D0,-(A7)> Δ-2 {[-4-]|[2, 'D0']}
<MI 20b44 MOVE.B 0x212cb,D0> {[-4-]|[2, 'D0']}
<MI 20b4a EXTB.W D0> {[-4-]|[2, 'D0']}
<POP 0x20b4c LimitCheck 0x0 ≤ D0 ≤ 0x1> {[-4-]|[2, 'D0']}
<MI 20b4e MOVE.B D0,-(A7)> Δ-2 {[-4-]|[2, 'D0']|[2, 'D0']}
<Const 0x20b50 0x212cc.4> Δ-4 {[-4-]|[2, 'D0']|[2, 'D0']|[##135884]}
<Const 0x20b56 0x212d2.4> Δ-4 {[-4-]|[2, 'D0']|[2, 'D0']|[##135884]|[##135890]}
<Const 0x20b5c 0x212d6.4> Δ-4 {[-4-]|[2, 'D0']|[2, 'D0']|[##135884]|[##135890]|[##135894]}
<Const 0x20b62 0x212da.4> Δ-4 {[-4-]|[2, 'D0']|[2, 'D0']|[##135884]|[##135890]|[##135894]|[##135898]}
<Const 0x20b68 0x212db.4> Δ-4 {[-4-]|[2, 'D0']|[2, 'D0']|[##135884]|[##135890]|[##135894]|[##135898]|[##135899]}
<Const 0x20b6e 0x212e9.4> Δ-4 {[-4-]|[2, 'D0']|[2, 'D0']|[##135884]|[##135890]|[##135894]|[##135898]|[##135899]|[##135913]}
<Call 0x20b70 0x206f2> {[-4-]|[2, 'D0']|[2, 'D0']|[##135884]|[##135890]|[##135894]|[##135898]|[##135899]|[##135913]}
<POP 20b74-20b78 StackAdj> Δ+32 {}
<MI 20b78 TST.B 0x212e9> {}
<MI 20b7a BEQ 0x20b8c> {}
<POP 20b7c-20b8c Naked> Σ0 ↓
<Const 0x20b7c 0x6.2> Δ-2 {[#6]}
<Const 0x20b80 0x1.4> Δ-4 {[#6]|[##1]}
<Call 0x20b84 0x103b8> {[#6]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20b8a-20b8c StackAdj> Δ+6 {}
<POP 20b8c-20b94 Epilogue> Σ0 ←0x20b00
@ 20b94
<LVAR 0x012 1(r)>
<LVAR -0x004 1(rw)>
<POP 20b94-20c58 Body>
<POP 20b94-20baa Prologue> Σ0 ↓
<POP 20baa-20bba RegCacheLoad> Σ0 ↓
<POP 20bba-20c40 Naked> Σ0 ↓ →0x20c50
<Const 0x20bba 0x212ce.4> Δ-4 {[##135886]}
<Call 0x20bbc 0x102bc> {[##135886]}
FreeString(VAR a : String)
<POP 20bc2-20bc4 StackAdj> Δ+4 {}
<Blob 0x20bc4 [10] (A6+0x12)> Δ-10 {[«10»]}
<POP 20bd0-20bd2 StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x20bd2> {[«10»]|[$$…]}
<Pointer.sp 0x20bd2 4> Δ-4
<Const 0x20bd6 0x1.2> Δ-2
<Const 0x20bd8 0xa.2> Δ-2
<Call 0x20bda 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20be0-20be2 StackAdj> Δ+8
<MI 20be2 MOVE.L (A7)+,0x212ce> Δ+4 {[«10»]}
<POP 20be4-20be6 StackAdj> Δ+10 {}
<MI 20be6 MOVE.B (A6+0x12),(A6-0x4)> {}
<MI 20bec MOVE.B (A6-0x4),-(A7)> Δ-2 {[2, '(A6-0x4)']}
<POP 20bf0-20bf2 StackAdj> Δ-4 {[2, '(A6-0x4)']|[-4-]}
<Blob 0x20bf2 [4] 0x212ce> Δ-4 {[2, '(A6-0x4)']|[-4-]|[«4»]}
<Call 0x20bf4 0x102cc> {[2, '(A6-0x4)']|[-4-]|[«4»]}
StringDup(a : String) : String
<POP 20bfa-20bfc StackAdj> Δ+4 {[2, '(A6-0x4)']|[-4-]}
<MI 20bfc MOVE.B 0x212ca,D0> {[2, '(A6-0x4)']|[-4-]}
<MI 20c02 EXTB.W D0> {[2, '(A6-0x4)']|[-4-]}
<POP 0x20c04 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, '(A6-0x4)']|[-4-]}
<MI 20c06 MOVE.B D0,-(A7)> Δ-2 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
<MI 20c08 MOVE.B 0x212cb,D0> {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
<MI 20c0e EXTB.W D0> {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
<POP 0x20c10 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, '(A6-0x4)']|[-4-]|[2, 'D0']}
<MI 20c12 MOVE.B D0,-(A7)> Δ-2 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']}
<Const 0x20c14 0x212cc.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##135884]}
<Const 0x20c1a 0x212d2.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##135884]|[##135890]}
<Const 0x20c20 0x212d6.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##135884]|[##135890]|[##135894]}
<Const 0x20c26 0x212da.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##135884]|[##135890]|[##135894]|[##135898]}
<Const 0x20c2c 0x212db.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##135884]|[##135890]|[##135894]|[##135898]|[##135899]}
<Const 0x20c32 0x212e9.4> Δ-4 {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##135884]|[##135890]|[##135894]|[##135898]|[##135899]|[##135913]}
<Call 0x20c34 0x207ee> {[2, '(A6-0x4)']|[-4-]|[2, 'D0']|[2, 'D0']|[##135884]|[##135890]|[##135894]|[##135898]|[##135899]|[##135913]}
<POP 20c38-20c3c StackAdj> Δ+34 {}
<MI 20c3c TST.B 0x212e9> {}
<MI 20c3e BEQ 0x20c50> {}
<POP 20c40-20c50 Naked> Σ0 ↓
<Const 0x20c40 0x6.2> Δ-2 {[#6]}
<Const 0x20c44 0x1.4> Δ-4 {[#6]|[##1]}
<Call 0x20c48 0x103b8> {[#6]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20c4e-20c50 StackAdj> Δ+6 {}
<POP 20c50-20c58 Epilogue> Σ0 ←0x20bba
@ 20c58
<POP 20c58-20d46 Body>
<POP 20c58-20c6e Prologue> Σ0 ↓
<POP 20c6e-20c7a RegCacheLoad> Σ0 ↓
<POP 20c7a-20c8e Naked> Σ0 ↓ →0x20c9e
<Blob 0x20c7a [10] @> Δ-10 {[«10""»]}
<Call 0x20c86 0x20adc> {[«10""»]}
<POP 20c88-20c8a StackAdj> Δ+10 {}
<MI 20c8a TST.B 0x212cc> {}
<MI 20c8c BEQ 0x20c9e> {}
<POP 20c8e-20c9e Naked> Σ0 ↓
<Blob 0x20c8e [10] @> Δ-10 {[«10""»]}
<Call 0x20c9a 0x20adc> {[«10""»]}
<POP 20c9c-20c9e StackAdj> Δ+10 {}
<POP 20c9e-20ca2 Naked> Σ0 ↓ →0x20cb2 ←0x20c7a
<MI 20c9e TST.B 0x212cc> {}
<MI 20ca0 BEQ 0x20cb2> {}
<POP 20ca2-20cb2 Naked> Σ0 ↓
<Blob 0x20ca2 [10] @> Δ-10 {[«10""»]}
<Call 0x20cae 0x20adc> {[«10""»]}
<POP 20cb0-20cb2 StackAdj> Δ+10 {}
<POP 20cb2-20cb6 Naked> Σ0 ↓ →0x20cc6 ←0x20c9e
<MI 20cb2 TST.B 0x212cc> {}
<MI 20cb4 BEQ 0x20cc6> {}
<POP 20cb6-20cc6 Naked> Σ0 ↓
<Blob 0x20cb6 [10] @> Δ-10 {[«10""»]}
<Call 0x20cc2 0x20adc> {[«10""»]}
<POP 20cc4-20cc6 StackAdj> Δ+10 {}
<POP 20cc6-20cca Naked> Σ0 ↓ →0x20cda ←0x20cb2
<MI 20cc6 TST.B 0x212cc> {}
<MI 20cc8 BEQ 0x20cda> {}
<POP 20cca-20cda Naked> Σ0 ↓
<Blob 0x20cca [10] @> Δ-10 {[«10""»]}
<Call 0x20cd6 0x20adc> {[«10""»]}
<POP 20cd8-20cda StackAdj> Δ+10 {}
<POP 20cda-20cde Naked> Σ0 ↓ →0x20cee ←0x20cc6
<MI 20cda TST.B 0x212cc> {}
<MI 20cdc BEQ 0x20cee> {}
<POP 20cde-20cee Naked> Σ0 ↓
<Blob 0x20cde [10] @> Δ-10 {[«10""»]}
<Call 0x20cea 0x20adc> {[«10""»]}
<POP 20cec-20cee StackAdj> Δ+10 {}
<POP 20cee-20cf2 Naked> Σ0 ↓ →0x20d02 ←0x20cda
<MI 20cee TST.B 0x212cc> {}
<MI 20cf0 BEQ 0x20d02> {}
<POP 20cf2-20d02 Naked> Σ0 ↓
<Blob 0x20cf2 [10] @> Δ-10 {[«10""»]}
<Call 0x20cfe 0x20adc> {[«10""»]}
<POP 20d00-20d02 StackAdj> Δ+10 {}
<POP 20d02-20d06 Naked> Σ0 ↓ →0x20d16 ←0x20cee
<MI 20d02 TST.B 0x212cc> {}
<MI 20d04 BEQ 0x20d16> {}
<POP 20d06-20d16 Naked> Σ0 ↓
<Blob 0x20d06 [10] @> Δ-10 {[«10""»]}
<Call 0x20d12 0x20adc> {[«10""»]}
<POP 20d14-20d16 StackAdj> Δ+10 {}
<POP 20d16-20d1a Naked> Σ0 ↓ →0x20d2a ←0x20d02
<MI 20d16 TST.B 0x212cc> {}
<MI 20d18 BEQ 0x20d2a> {}
<POP 20d1a-20d2a Naked> Σ0 ↓
<Blob 0x20d1a [10] @> Δ-10 {[«10""»]}
<Call 0x20d26 0x20adc> {[«10""»]}
<POP 20d28-20d2a StackAdj> Δ+10 {}
<POP 20d2a-20d2e Naked> Σ0 ↓ →0x20d3e ←0x20d16
<MI 20d2a TST.B 0x212cc> {}
<MI 20d2c BEQ 0x20d3e> {}
<POP 20d2e-20d3e Naked> Σ0 ↓
<Blob 0x20d2e [10] @> Δ-10 {[«10""»]}
<Call 0x20d3a 0x20adc> {[«10""»]}
<POP 20d3c-20d3e StackAdj> Δ+10 {}
<POP 20d3e-20d46 Epilogue> Σ0 ←0x20d2a
@ 20d46
<POP 20d46-20e20 Body>
<POP 20d46-20d5c Prologue> Σ0 ↓
<POP 20d5c-20d68 RegCacheLoad> Σ0 ↓
<POP 20d68-20d7c Naked> Σ0 ↓ →0x20d8c
<Blob 0x20d68 [10] @> Δ-10 {[«10""»]}
<Call 0x20d74 0x20adc> {[«10""»]}
<POP 20d76-20d78 StackAdj> Δ+10 {}
<MI 20d78 TST.B 0x212cc> {}
<MI 20d7a BEQ 0x20d8c> {}
<POP 20d7c-20d8c Naked> Σ0 ↓
<Blob 0x20d7c [10] @> Δ-10 {[«10""»]}
<Call 0x20d88 0x20adc> {[«10""»]}
<POP 20d8a-20d8c StackAdj> Δ+10 {}
<POP 20d8c-20d90 Naked> Σ0 ↓ →0x20da0 ←0x20d68
<MI 20d8c TST.B 0x212cc> {}
<MI 20d8e BEQ 0x20da0> {}
<POP 20d90-20da0 Naked> Σ0 ↓
<Blob 0x20d90 [10] @> Δ-10 {[«10""»]}
<Call 0x20d9c 0x20adc> {[«10""»]}
<POP 20d9e-20da0 StackAdj> Δ+10 {}
<POP 20da0-20da4 Naked> Σ0 ↓ →0x20db4 ←0x20d8c
<MI 20da0 TST.B 0x212cc> {}
<MI 20da2 BEQ 0x20db4> {}
<POP 20da4-20db4 Naked> Σ0 ↓
<Blob 0x20da4 [10] @> Δ-10 {[«10""»]}
<Call 0x20db0 0x20adc> {[«10""»]}
<POP 20db2-20db4 StackAdj> Δ+10 {}
<POP 20db4-20db8 Naked> Σ0 ↓ →0x20dc8 ←0x20da0
<MI 20db4 TST.B 0x212cc> {}
<MI 20db6 BEQ 0x20dc8> {}
<POP 20db8-20dc8 Naked> Σ0 ↓
<Blob 0x20db8 [10] @> Δ-10 {[«10""»]}
<Call 0x20dc4 0x20adc> {[«10""»]}
<POP 20dc6-20dc8 StackAdj> Δ+10 {}
<POP 20dc8-20dcc Naked> Σ0 ↓ →0x20ddc ←0x20db4
<MI 20dc8 TST.B 0x212cc> {}
<MI 20dca BEQ 0x20ddc> {}
<POP 20dcc-20ddc Naked> Σ0 ↓
<Blob 0x20dcc [10] @> Δ-10 {[«10""»]}
<Call 0x20dd8 0x20adc> {[«10""»]}
<POP 20dda-20ddc StackAdj> Δ+10 {}
<POP 20ddc-20de0 Naked> Σ0 ↓ →0x20df0 ←0x20dc8
<MI 20ddc TST.B 0x212cc> {}
<MI 20dde BEQ 0x20df0> {}
<POP 20de0-20df0 Naked> Σ0 ↓
<Blob 0x20de0 [10] @> Δ-10 {[«10""»]}
<Call 0x20dec 0x20adc> {[«10""»]}
<POP 20dee-20df0 StackAdj> Δ+10 {}
<POP 20df0-20df4 Naked> Σ0 ↓ →0x20e04 ←0x20ddc
<MI 20df0 TST.B 0x212cc> {}
<MI 20df2 BEQ 0x20e04> {}
<POP 20df4-20e04 Naked> Σ0 ↓
<Blob 0x20df4 [10] @> Δ-10 {[«10""»]}
<Call 0x20e00 0x20adc> {[«10""»]}
<POP 20e02-20e04 StackAdj> Δ+10 {}
<POP 20e04-20e08 Naked> Σ0 ↓ →0x20e18 ←0x20df0
<MI 20e04 TST.B 0x212cc> {}
<MI 20e06 BEQ 0x20e18> {}
<POP 20e08-20e18 Naked> Σ0 ↓
<Blob 0x20e08 [10] @> Δ-10 {[«10""»]}
<Call 0x20e14 0x20adc> {[«10""»]}
<POP 20e16-20e18 StackAdj> Δ+10 {}
<POP 20e18-20e20 Epilogue> Σ0 ←0x20e04
@ 20e20
<LVAR 0x008 1(r)>
<POP 20e20-20ee0 Body>
<POP 20e20-20e36 Prologue> Σ0 ↓
<POP 20e36-20e42 RegCacheLoad> Σ0 ↓
<POP 20e42-20e4c Naked> Σ0 ↓ →0x20e50
<MI 20e42 MOVE.B (A6+0x8),D0> {}
<MI 20e46 CMPI.B #0x07,D0> {}
<MI 20e4a BNE 0x20e50> {}
<POP 20e4c-20e50 Naked> Σ0 →0x20e6a
<MI 20e4c MOVEQ.L #0x0c,D7> {}
<MI 20e4e BRA 0x20e6a> {}
<POP 20e50-20e56 Naked> Σ0 ↓ →0x20e5a ←0x20e42
<MI 20e50 CMPI.B #0x08,D0> {}
<MI 20e54 BNE 0x20e5a> {}
<POP 20e56-20e5a Naked> Σ0 →0x20e6a
<MI 20e56 MOVEQ.L #0x0d,D7> {}
<MI 20e58 BRA 0x20e6a> {}
<POP 20e5a-20e60 Naked> Σ0 ↓ →0x20e64 ←0x20e50
<MI 20e5a CMPI.B #0x09,D0> {}
<MI 20e5e BNE 0x20e64> {}
<POP 20e60-20e64 Naked> Σ0 →0x20e6a
<MI 20e60 MOVEQ.L #0x0e,D7> {}
<MI 20e62 BRA 0x20e6a> {}
<POP 20e64-20e68 Naked> Σ0 ↓ →0x20e6a ←0x20e5a
<MI 20e64 CMP.B #0x0a,D0> {}
<MI 20e66 BNE 0x20e6a> {}
<POP 20e68-20e6a Naked> Σ0 ↓
<MI 20e68 MOVEQ.L #0x0f,D7> {}
<POP 20e6a-20e8c Naked> Σ0 ↓ →0x20e9c ←0x20e4c ←0x20e56 ←0x20e60 ←0x20e64
<MI 20e6a MOVE.B D7,D0> {}
<MI 20e6c EXTB.W D0> {}
<POP 0x20e6e LimitCheck 0x0 ≤ D0 ≤ 0xf> {}
<MI 20e72 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Blob 0x20e74 [10] @> Δ-10 {[2, 'D0']|[«10""»]}
<Call 0x20e80 0x20b94> {[2, 'D0']|[«10""»]}
<POP 20e84-20e88 StackAdj> Δ+12 {}
<MI 20e88 TST.B 0x212cc> {}
<MI 20e8a BEQ 0x20e9c> {}
<POP 20e8c-20e9c Naked> Σ0 ↓
<Blob 0x20e8c [10] @> Δ-10 {[«10""»]}
<Call 0x20e98 0x20adc> {[«10""»]}
<POP 20e9a-20e9c StackAdj> Δ+10 {}
<POP 20e9c-20ea0 Naked> Σ0 ↓ →0x20eb0 ←0x20e6a
<MI 20e9c TST.B 0x212cc> {}
<MI 20e9e BEQ 0x20eb0> {}
<POP 20ea0-20eb0 Naked> Σ0 ↓
<Blob 0x20ea0 [10] @> Δ-10 {[«10""»]}
<Call 0x20eac 0x20adc> {[«10""»]}
<POP 20eae-20eb0 StackAdj> Δ+10 {}
<POP 20eb0-20eb4 Naked> Σ0 ↓ →0x20ec4 ←0x20e9c
<MI 20eb0 TST.B 0x212cc> {}
<MI 20eb2 BEQ 0x20ec4> {}
<POP 20eb4-20ec4 Naked> Σ0 ↓
<Blob 0x20eb4 [10] @> Δ-10 {[«10""»]}
<Call 0x20ec0 0x20adc> {[«10""»]}
<POP 20ec2-20ec4 StackAdj> Δ+10 {}
<POP 20ec4-20ec8 Naked> Σ0 ↓ →0x20ed8 ←0x20eb0
<MI 20ec4 TST.B 0x212cc> {}
<MI 20ec6 BEQ 0x20ed8> {}
<POP 20ec8-20ed8 Naked> Σ0 ↓
<Blob 0x20ec8 [10] @> Δ-10 {[«10""»]}
<Call 0x20ed4 0x20adc> {[«10""»]}
<POP 20ed6-20ed8 StackAdj> Δ+10 {}
<POP 20ed8-20ee0 Epilogue> Σ0 ←0x20ec4
@ 20ee0
<LVAR 0x008 1(r)>
<LVAR -0x00a @>
<POP 20ee0-21002 Body>
<POP 20ee0-20ef6 Prologue> Σ0 ↓
<POP 20ef6-20f06 RegCacheLoad> Σ0 ↓
<POP 20f06-20f10 Naked> Σ0 ↓ →0x20f20
<MI 20f06 MOVE.B (A6+0x8),D0> {}
<MI 20f0a CMPI.B #0x03,D0> {}
<MI 20f0e BNE 0x20f20> {}
<POP 20f10-20f20 Naked> Σ0 →0x20f60
<MI 20f10 LEA.L (A6-0xa),A0> {}
<MI 20f12 LEA.L 0x20268,A1> {}
<BlockMove 10,A1,A0> {}
<MI 20f1e BRA 0x20f60> {}
<POP 20f20-20f26 Naked> Σ0 ↓ →0x20f36 ←0x20f06
<MI 20f20 CMPI.B #0x04,D0> {}
<MI 20f24 BNE 0x20f36> {}
<POP 20f26-20f36 Naked> Σ0 →0x20f60
<MI 20f26 LEA.L (A6-0xa),A0> {}
<MI 20f28 LEA.L 0x20272,A1> {}
<BlockMove 10,A1,A0> {}
<MI 20f34 BRA 0x20f60> {}
<POP 20f36-20f3c Naked> Σ0 ↓ →0x20f4c ←0x20f20
<MI 20f36 CMPI.B #0x05,D0> {}
<MI 20f3a BNE 0x20f4c> {}
<POP 20f3c-20f4c Naked> Σ0 →0x20f60
<MI 20f3c LEA.L (A6-0xa),A0> {}
<MI 20f3e LEA.L 0x2027c,A1> {}
<BlockMove 10,A1,A0> {}
<MI 20f4a BRA 0x20f60> {}
<POP 20f4c-20f52 Naked> Σ0 ↓ →0x20f60 ←0x20f36
<MI 20f4c CMPI.B #0x06,D0> {}
<MI 20f50 BNE 0x20f60> {}
<POP 20f52-20f60 Naked> Σ0 ↓
<MI 20f52 LEA.L (A6-0xa),A0> {}
<MI 20f54 LEA.L 0x20286,A1> {}
<BlockMove 10,A1,A0> {}
<POP 20f60-20f72 Naked> Σ0 ↓ →0x20f82 ←0x20f10 ←0x20f26 ←0x20f3c ←0x20f4c
<MI 20f60 MOVEA.L A6,A0> {}
<BlockMove -10,A0,A7> Δ-10 {[«10»]}
<Call 0x20f6a 0x20adc> {[«10»]}
<POP 20f6c-20f6e StackAdj> Δ+10 {}
<MI 20f6e TST.B 0x212cc> {}
<MI 20f70 BEQ 0x20f82> {}
<POP 20f72-20f82 Naked> Σ0 ↓
<Blob 0x20f72 [10] @> Δ-10 {[«10""»]}
<Call 0x20f7e 0x20adc> {[«10""»]}
<POP 20f80-20f82 StackAdj> Δ+10 {}
<POP 20f82-20f86 Naked> Σ0 ↓ →0x20f96 ←0x20f60
<MI 20f82 TST.B 0x212cc> {}
<MI 20f84 BEQ 0x20f96> {}
<POP 20f86-20f96 Naked> Σ0 ↓
<Blob 0x20f86 [10] @> Δ-10 {[«10""»]}
<Call 0x20f92 0x20adc> {[«10""»]}
<POP 20f94-20f96 StackAdj> Δ+10 {}
<POP 20f96-20f9a Naked> Σ0 ↓ →0x20faa ←0x20f82
<MI 20f96 TST.B 0x212cc> {}
<MI 20f98 BEQ 0x20faa> {}
<POP 20f9a-20faa Naked> Σ0 ↓
<Blob 0x20f9a [10] @> Δ-10 {[«10""»]}
<Call 0x20fa6 0x20adc> {[«10""»]}
<POP 20fa8-20faa StackAdj> Δ+10 {}
<POP 20faa-20fae Naked> Σ0 ↓ →0x20fbe ←0x20f96
<MI 20faa TST.B 0x212cc> {}
<MI 20fac BEQ 0x20fbe> {}
<POP 20fae-20fbe Naked> Σ0 ↓
<Blob 0x20fae [10] @> Δ-10 {[«10""»]}
<Call 0x20fba 0x20adc> {[«10""»]}
<POP 20fbc-20fbe StackAdj> Δ+10 {}
<POP 20fbe-20fc2 Naked> Σ0 ↓ →0x20fd2 ←0x20faa
<MI 20fbe TST.B 0x212cc> {}
<MI 20fc0 BEQ 0x20fd2> {}
<POP 20fc2-20fd2 Naked> Σ0 ↓
<Blob 0x20fc2 [10] @> Δ-10 {[«10""»]}
<Call 0x20fce 0x20adc> {[«10""»]}
<POP 20fd0-20fd2 StackAdj> Δ+10 {}
<POP 20fd2-20fd6 Naked> Σ0 ↓ →0x20fe6 ←0x20fbe
<MI 20fd2 TST.B 0x212cc> {}
<MI 20fd4 BEQ 0x20fe6> {}
<POP 20fd6-20fe6 Naked> Σ0 ↓
<Blob 0x20fd6 [10] @> Δ-10 {[«10""»]}
<Call 0x20fe2 0x20adc> {[«10""»]}
<POP 20fe4-20fe6 StackAdj> Δ+10 {}
<POP 20fe6-20fea Naked> Σ0 ↓ →0x20ffa ←0x20fd2
<MI 20fe6 TST.B 0x212cc> {}
<MI 20fe8 BEQ 0x20ffa> {}
<POP 20fea-20ffa Naked> Σ0 ↓
<Blob 0x20fea [10] @> Δ-10 {[«10""»]}
<Call 0x20ff6 0x20adc> {[«10""»]}
<POP 20ff8-20ffa StackAdj> Δ+10 {}
<POP 20ffa-21002 Epilogue> Σ0 ←0x20fe6
@ 21002
<POP 21002-21148 Body>
<POP 21002-21018 Prologue> Σ0 ↓
<POP 21018-21024 RegCacheLoad> Σ0 ↓
<POP 21024-21038 Naked> Σ0 ↓ →0x21048
<Blob 0x21024 [10] @> Δ-10 {[«10""»]}
<Call 0x21030 0x20adc> {[«10""»]}
<POP 21032-21034 StackAdj> Δ+10 {}
<MI 21034 TST.B 0x212cc> {}
<MI 21036 BEQ 0x21048> {}
<POP 21038-21048 Naked> Σ0 ↓
<Blob 0x21038 [10] @> Δ-10 {[«10""»]}
<Call 0x21044 0x20adc> {[«10""»]}
<POP 21046-21048 StackAdj> Δ+10 {}
<POP 21048-2104c Naked> Σ0 ↓ →0x2105c ←0x21024
<MI 21048 TST.B 0x212cc> {}
<MI 2104a BEQ 0x2105c> {}
<POP 2104c-2105c Naked> Σ0 ↓
<Blob 0x2104c [10] @> Δ-10 {[«10""»]}
<Call 0x21058 0x20adc> {[«10""»]}
<POP 2105a-2105c StackAdj> Δ+10 {}
<POP 2105c-21060 Naked> Σ0 ↓ →0x21070 ←0x21048
<MI 2105c TST.B 0x212cc> {}
<MI 2105e BEQ 0x21070> {}
<POP 21060-21070 Naked> Σ0 ↓
<Blob 0x21060 [10] @> Δ-10 {[«10""»]}
<Call 0x2106c 0x20adc> {[«10""»]}
<POP 2106e-21070 StackAdj> Δ+10 {}
<POP 21070-21074 Naked> Σ0 ↓ →0x21084 ←0x2105c
<MI 21070 TST.B 0x212cc> {}
<MI 21072 BEQ 0x21084> {}
<POP 21074-21084 Naked> Σ0 ↓
<Blob 0x21074 [10] @> Δ-10 {[«10""»]}
<Call 0x21080 0x20adc> {[«10""»]}
<POP 21082-21084 StackAdj> Δ+10 {}
<POP 21084-21088 Naked> Σ0 ↓ →0x210a0 ←0x21070
<MI 21084 TST.B 0x212cc> {}
<MI 21086 BEQ 0x210a0> {}
<POP 21088-210a0 Naked> Σ0 ↓
<Const 0x21088 0x8.2> Δ-2 {[#8]}
<Blob 0x2108c [10] @> Δ-10 {[#8]|[«10""»]}
<Call 0x21098 0x20b94> {[#8]|[«10""»]}
<POP 2109c-210a0 StackAdj> Δ+12 {}
<POP 210a0-210a4 Naked> Σ0 ↓ →0x210b4 ←0x21084
<MI 210a0 TST.B 0x212cc> {}
<MI 210a2 BEQ 0x210b4> {}
<POP 210a4-210b4 Naked> Σ0 ↓
<Blob 0x210a4 [10] @> Δ-10 {[«10""»]}
<Call 0x210b0 0x20adc> {[«10""»]}
<POP 210b2-210b4 StackAdj> Δ+10 {}
<POP 210b4-210b8 Naked> Σ0 ↓ →0x210c8 ←0x210a0
<MI 210b4 TST.B 0x212cc> {}
<MI 210b6 BEQ 0x210c8> {}
<POP 210b8-210c8 Naked> Σ0 ↓
<Blob 0x210b8 [10] @> Δ-10 {[«10""»]}
<Call 0x210c4 0x20adc> {[«10""»]}
<POP 210c6-210c8 StackAdj> Δ+10 {}
<POP 210c8-210cc Naked> Σ0 ↓ →0x210dc ←0x210b4
<MI 210c8 TST.B 0x212cc> {}
<MI 210ca BEQ 0x210dc> {}
<POP 210cc-210dc Naked> Σ0 ↓
<Blob 0x210cc [10] @> Δ-10 {[«10""»]}
<Call 0x210d8 0x20adc> {[«10""»]}
<POP 210da-210dc StackAdj> Δ+10 {}
<POP 210dc-210e0 Naked> Σ0 ↓ →0x210f0 ←0x210c8
<MI 210dc TST.B 0x212cc> {}
<MI 210de BEQ 0x210f0> {}
<POP 210e0-210f0 Naked> Σ0 ↓
<Blob 0x210e0 [10] @> Δ-10 {[«10""»]}
<Call 0x210ec 0x20adc> {[«10""»]}
<POP 210ee-210f0 StackAdj> Δ+10 {}
<POP 210f0-210f4 Naked> Σ0 ↓ →0x21104 ←0x210dc
<MI 210f0 TST.B 0x212cc> {}
<MI 210f2 BEQ 0x21104> {}
<POP 210f4-21104 Naked> Σ0 ↓
<Blob 0x210f4 [10] @> Δ-10 {[«10""»]}
<Call 0x21100 0x20adc> {[«10""»]}
<POP 21102-21104 StackAdj> Δ+10 {}
<POP 21104-21108 Naked> Σ0 ↓ →0x21118 ←0x210f0
<MI 21104 TST.B 0x212cc> {}
<MI 21106 BEQ 0x21118> {}
<POP 21108-21118 Naked> Σ0 ↓
<Blob 0x21108 [10] @> Δ-10 {[«10""»]}
<Call 0x21114 0x20adc> {[«10""»]}
<POP 21116-21118 StackAdj> Δ+10 {}
<POP 21118-2111c Naked> Σ0 ↓ →0x2112c ←0x21104
<MI 21118 TST.B 0x212cc> {}
<MI 2111a BEQ 0x2112c> {}
<POP 2111c-2112c Naked> Σ0 ↓
<Blob 0x2111c [10] @> Δ-10 {[«10""»]}
<Call 0x21128 0x20adc> {[«10""»]}
<POP 2112a-2112c StackAdj> Δ+10 {}
<POP 2112c-21130 Naked> Σ0 ↓ →0x21140 ←0x21118
<MI 2112c TST.B 0x212cc> {}
<MI 2112e BEQ 0x21140> {}
<POP 21130-21140 Naked> Σ0 ↓
<Blob 0x21130 [10] @> Δ-10 {[«10""»]}
<Call 0x2113c 0x20adc> {[«10""»]}
<POP 2113e-21140 StackAdj> Δ+10 {}
<POP 21140-21148 Epilogue> Σ0 ←0x2112c
@ 21148
START
<POP 21148--0001 Body> Δ+2
<POP 21148-21152 Prologue> Σ0
<POP 21152-21166 RegCacheLoad> Σ0 ↓
<POP 21166-211b2 Naked> Σ0 →0x211ca →0x211d0 →0x211d2 →0x211d8 →0x211d8 →0x211d8 →0x211d8 →0x211e2 →0x211e2 →0x211e2 →0x211e2 →0x211ea
<Call 0x21166 0x10398> {}
FSCALL_10398
<Const 0x2116c 0x212c8.4> Δ-4 {[##135880]}
<Const 0x2116e 0x212ca.4> Δ-4 {[##135880]|[##135882]}
<Const 0x21174 0x212cb.4> Δ-4 {[##135880]|[##135882]|[##135883]}
<Call 0x2117a 0x20604> {[##135880]|[##135882]|[##135883]}
<POP 2117e-21182 StackAdj> Δ+12 {}
<Const 0x21182 0x212ce.4> Δ-4 {[##135886]}
<Call 0x21184 0x102b8> {[##135886]}
NewString(VAR a : String)
<POP 2118a-2118c StackAdj> Δ+4 {}
<MI 2118c CLR.L D0> {}
<MI 2118e MOVE.B 0x212c8,D0> {}
<POP 0x21190 LimitCheck 0x0 ≤ D0 ≤ 0xb> {}
<MI 21192 MOVE.B D0,0x212c9> {}
<MI 21198 MOVE.B #0x01,0x212e8> {}
<MI 2119c MOVE.B D0,D1> {}
<MI 2119e EXTB.W D1> {}
<MI 211a0 MOVE.W D1,D0> {}
<POP 0x211a2 LimitCheck 0x0 ≤ D0 ≤ 0xb> {}
<MI 211a8 ADD.W D0,D0> {}
<MI 211aa SWITCH D0.W> {}
<POP 211ca-211d0 Naked> Σ0 →0x21200 ←0x21166
<Call 0x211ca 0x21002> {}
<MI 211ce BRA 0x21200> {}
<POP 211d0-211d2 Naked> Σ0 →0x21200 ←0x21166
<MI 211d0 BRA 0x21200> {}
<POP 211d2-211d8 Naked> Σ0 →0x21200 ←0x21166
<Call 0x211d2 0x20d46> {}
<MI 211d6 BRA 0x21200> {}
<POP 211d8-211de Naked> Σ0 Δ-2 ↓ ←0x21166 ←0x21166 ←0x21166 ←0x21166
<MI 211d8 MOVE.B D1,-(A7)> Δ-2 {[2, 'D1']}
<Call 0x211da 0x20ee0> {[2, 'D1']}
<POP 211de-211e2 Naked> Σ-2 Δ+2 →0x21200 ←0x211e2
<POP 211de-211e0 StackAdj> Δ+2 {}
<MI 211e0 BRA 0x21200> {}
<POP 211e2-211ea Naked> Σ0 Δ-2 →0x211de ←0x21166 ←0x21166 ←0x21166 ←0x21166
<MI 211e2 MOVE.B D1,-(A7)> Δ-2 {[2, 'D1']}
<Call 0x211e4 0x20e20> {[2, 'D1']}
<MI 211e8 BRA 0x211de> {[2, 'D1']}
<POP 211ea-21200 Naked> Σ0 ↓ ←0x21166
<MI 211ea CLR.B 0x212e8> {}
<Blob 0x211ec [10] @> Δ-10 {[«10""»]}
<Call 0x211f8 0x20adc> {[«10""»]}
<POP 211fc-21200 StackAdj> Δ+10 {}
<POP 21200-21208 Naked> Σ0 ↓ →0x21210 ←0x211ca ←0x211d0 ←0x211d2 ←0x211de
<MI 21200 TST.B 0x212cc> {}
<MI 21206 BEQ 0x21210> {}
<POP 21208-2120c Naked> Σ0 ↓ →0x21210
<MI 21208 TST.B 0x212e8> {}
<MI 2120a BEQ 0x21210> {}
<POP 2120c-21210 Naked> Σ0 ↓
<Call 0x2120c 0x20a14> {}
<POP 21210-21244 Naked> Σ0 ↓ ←0x21200 ←0x21208
<Blob 0x21210 [2] 0x212cc> Δ-2 {[«2»]}
<Blob 0x21216 [4] 0x212ce> Δ-4 {[«2»]|[«4»]}
<Blob 0x21218 [4] 0x212d2> Δ-4 {[«2»]|[«4»]|[«4»]}
<Blob 0x2121e [4] 0x212d6> Δ-4 {[«2»]|[«4»]|[«4»]|[«4»]}
<Blob 0x21224 [2] 0x212da> Δ-2 {[«2»]|[«4»]|[«4»]|[«4»]|[«2»]}
<Blob 0x2122a [8] 0x212db> Δ-8 {[«2»]|[«4»]|[«4»]|[«4»]|[«2»]|[«8»]}
<Call 0x2123c 0x20662> {[«2»]|[«4»]|[«4»]|[«4»]|[«2»]|[«8»]}
<POP 21240-21244 StackAdj> Δ+24 {}
<POP 21244-2124a Naked> Σ0
<Call 0x21244 0x10284> {}
?exit
@ 21258
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 21258-212c0 Body>
<POP 21258-2126e Prologue> Σ0 ↓
<POP 2126e-212b8 Naked> Σ0 ↓
<Blob 0x2126e [14] @> Δ-14 {[«14""»]}
<Const 0x2127a 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 2127e-21280 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x21280 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 21292-21294 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21294 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21298 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2129a EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2129c MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x2129e 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 212a4-212a6 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x212a6 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 212ac-212ae StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x212ae 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 212b4-212b8 StackAdj> Δ+20 {}
<POP 212b8-212c0 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.3d6d9287ee33d921 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 11 48 | H | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 12 f4 | | .PTR 0x212f4 00020010 code.end: 00020010 00 02 12 c0 | | .PTR 0x212c0 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 12 58 | X | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 03 9e | | .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 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00020118 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00020126 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00020134 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00020146 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 0002015e 52 75 6e 6e |Runn | .TXT 'Runn' 00020162 69 6e 67 20 |ing | .TXT 'ing ' 00020166 46 52 55 5f |FRU_ | .TXT 'FRU_' 0002016a 50 20 |P | .TXT 'P ' 0002016c 46 52 |FR | .TXT 'FR' 0002016e 55 20 |U | .XXX[0x2] 00020170 50 32 55 43 4f 44 45 20 |P2UCODE | .TXT 'P2UCODE ' 00020178 50 32 53 59 53 20 20 20 |P2SYS | .TXT 'P2SYS ' 00020182 50 32 46 50 20 20 20 20 |P2FP | .TXT 'P2FP ' 0002018c 50 32 55 41 44 52 20 20 |P2UADR | .TXT 'P2UADR ' 00020196 50 32 45 56 4e 54 20 20 |P2EVNT | .TXT 'P2EVNT ' 000201a0 50 32 53 54 4f 50 20 20 |P2STOP | .TXT 'P2STOP ' 000201aa 50 32 41 42 55 53 20 20 |P2ABUS | .TXT 'P2ABUS ' 000201b4 50 32 43 53 41 20 20 20 |P2CSA | .TXT 'P2CSA ' 000201be 50 32 4d 4d 20 20 20 20 |P2MM | .TXT 'P2MM ' 000201c8 50 32 53 42 55 53 20 20 |P2SBUS | .TXT 'P2SBUS ' 000201d2 50 32 43 4f 4e 44 20 20 |P2COND | .TXT 'P2COND ' 000201dc 50 32 49 4f 43 20 20 20 |P2IOC | .TXT 'P2IOC ' 000201e6 50 32 46 50 20 20 20 20 |P2FP | .TXT 'P2FP ' 000201f0 50 32 55 41 44 52 20 20 |P2UADR | .TXT 'P2UADR ' 000201fa 50 32 45 56 4e 54 20 20 |P2EVNT | .TXT 'P2EVNT ' 00020204 50 32 53 54 4f 50 20 20 |P2STOP | .TXT 'P2STOP ' 0002020e 50 32 41 42 55 53 20 20 |P2ABUS | .TXT 'P2ABUS ' 00020218 50 32 43 53 41 20 20 20 |P2CSA | .TXT 'P2CSA ' 00020222 50 32 4d 4d 20 20 20 20 |P2MM | .TXT 'P2MM ' 0002022c 50 32 43 4f 4e 44 20 20 |P2COND | .TXT 'P2COND ' 00020236 50 32 4d 45 4d 20 20 20 |P2MEM | .TXT 'P2MEM ' 00020240 50 32 46 50 20 20 20 20 |P2FP | .TXT 'P2FP ' 0002024a 50 32 41 42 55 53 20 20 |P2ABUS | .TXT 'P2ABUS ' 00020254 50 32 43 53 41 20 20 20 |P2CSA | .TXT 'P2CSA ' 0002025e 50 32 4d 4d 20 20 20 20 |P2MM | .TXT 'P2MM ' 00020268 50 32 56 41 4c 20 20 20 |P2VAL | .XXX[0x28] 00020270 20 20 50 32 54 59 50 20 | P2TYP | 00020278 20 20 20 20 50 32 53 45 | P2SE| 00020280 51 20 20 20 20 20 50 32 |Q P2| 00020288 46 49 55 20 20 20 20 20 |FIU | 00020290 50 32 46 50 20 20 20 20 |P2FP | .TXT 'P2FP ' 0002029a 50 32 55 41 44 52 20 20 |P2UADR | .TXT 'P2UADR ' 000202a4 50 32 45 56 4e 54 20 20 |P2EVNT | .TXT 'P2EVNT ' 000202ae 50 32 53 54 4f 50 20 20 |P2STOP | .TXT 'P2STOP ' 000202b8 50 32 41 42 55 53 20 20 |P2ABUS | .TXT 'P2ABUS ' 000202c2 50 32 43 53 41 20 20 20 |P2CSA | .TXT 'P2CSA ' 000202cc 50 32 43 4f 4e 44 20 20 |P2COND | .TXT 'P2COND ' 000202d6 50 32 |P2 | .XXX[0x2] 000202d8 49 4f 41 20 20 20 20 20 |IOA | .XXX[0x10] 000202e0 50 32 53 59 53 20 20 20 |P2SYS | 000202e8 20 20 | | .XXX[0x2] 000202ea 50 32 49 4f 43 20 20 20 |P2IOC | .TXT 'P2IOC ' 000202f4 50 32 56 41 4c 20 20 20 |P2VAL | .TXT 'P2VAL ' 000202fe 50 32 54 59 50 20 20 20 |P2TYP | .TXT 'P2TYP ' 00020308 50 32 53 45 51 20 20 20 |P2SEQ | .TXT 'P2SEQ ' 00020312 50 32 46 49 55 20 20 20 |P2FIU | .TXT 'P2FIU ' 0002031c 50 32 4d 45 4d 20 20 20 |P2MEM | .TXT 'P2MEM ' 00020326 50 32 55 41 44 52 20 20 |P2UADR | .TXT 'P2UADR ' 00020330 50 32 46 50 20 20 20 20 |P2FP | .TXT 'P2FP ' 0002033a 50 32 45 56 4e 54 20 20 |P2EVNT | .TXT 'P2EVNT ' 00020344 50 32 53 54 4f 50 20 20 |P2STOP | .TXT 'P2STOP ' 0002034e 50 32 41 42 55 53 20 20 |P2ABUS | .TXT 'P2ABUS ' 00020358 50 32 43 53 41 20 20 20 |P2CSA | .TXT 'P2CSA ' 00020362 50 32 4d 4d 20 20 20 20 |P2MM | .TXT 'P2MM ' 0002036c 50 32 53 42 |P2SB | .XXX[0x4] 00020370 55 53 20 20 20 20 |US | .XXX[0x6] 00020376 50 32 43 4f 4e 44 20 20 |P2COND | .TXT 'P2COND ' 00020380 50 32 49 4f 41 20 20 20 |P2IOA | .XXX[0x10] 00020388 20 20 50 32 53 42 55 53 | P2SBUS| 00020390 20 20 20 20 | | .XXX[0x4] 00020394 50 32 46 50 20 20 20 20 |P2FP | .TXT 'P2FP ' 0002039e ; -------------------------------------------------------------------------------------- 0002039e ; OMSI PASCAL Function 0002039e ; <LVAR 0x00e 1(r)> 0002039e ; <LVAR 0x00a 4(r)> 0002039e ; <LVAR 0x008 1(r)> 0002039e ; -------------------------------------------------------------------------------------- 0002039e EXP_FAIL: 0002039e 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 000203a2 bf d5 | | CMPA.L (A5),A7 000203a4 62 06 |b | BHI 0x203ac 000203a6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000203aa 4e 76 |Nv | TRAPV 000203ac de fc 00 74 | t | ADDA.W #0x74,A7 000203b0 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 000203b4 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 000203ba 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 000203c0 72 01 |r | MOVEQ.L #0x01,D1 000203c2 74 0d |t | MOVEQ.L #0x0d,D2 000203c4 76 1e |v | MOVEQ.L #0x1e,D3 000203c6 78 12 |x | MOVEQ.L #0x12,D4 000203c8 7a 0e |z | MOVEQ.L #0x0e,D5 000203ca 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000203d0 41 fa fd 74 |A t | LEA.L 0x20146,A0 000203d4 70 08 |p | MOVEQ.L #0x08,D0 000203d6 3f 20 |? | MOVE.W -(A0),-(A7) 000203d8 51 c8 ff fc |Q | DBF D0,0x203d6 000203dc 59 4f |YO | SUBQ.L #0x4,A7 000203de 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000203e2 3f 01 |? | MOVE.W D1,-(A7) 000203e4 3f 04 |? | MOVE.W D4,-(A7) 000203e6 4e 93 |N | JSR (A3) 000203e8 50 4f |PO | ADDQ.L #0x8,A7 000203ea 4e 94 |N | JSR (A4) 000203ec 50 4f |PO | ADDQ.L #0x8,A7 000203ee 20 4f | O | MOVEA.L A7,A0 000203f0 43 fa fd 18 |C | LEA.L 0x2010a,A1 000203f4 70 0c |p | MOVEQ.L #0x0c,D0 000203f6 10 d9 | | MOVE.B (A1)+,(A0)+ 000203f8 51 c8 ff fc |Q | DBF D0,0x203f6 000203fc 51 4f |QO | SUBQ.L #0x8,A7 000203fe 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020402 3f 01 |? | MOVE.W D1,-(A7) 00020404 3f 02 |? | MOVE.W D2,-(A7) 00020406 4e 93 |N | JSR (A3) 00020408 54 4f |TO | ADDQ.L #0x2,A7 0002040a 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 0002040e 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00020414 54 4f |TO | ADDQ.L #0x2,A7 00020416 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002041c 50 4f |PO | ADDQ.L #0x8,A7 0002041e 4e 94 |N | JSR (A4) 00020420 de c4 | | ADDA.W D4,A7 00020422 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00020426 b0 c1 | | CMPA.W D1,A0 00020428 67 48 |gH | BEQ 0x20472 0002042a 9e c5 | | SUBA.W D5,A7 0002042c 22 4f |"O | MOVEA.L A7,A1 0002042e 45 fa fc e8 |E | LEA.L 0x20118,A2 00020432 70 0c |p | MOVEQ.L #0x0c,D0 00020434 12 da | | MOVE.B (A2)+,(A1)+ 00020436 51 c8 ff fc |Q | DBF D0,0x20434 0002043a 9e c3 | | SUBA.W D3,A7 0002043c 22 4f |"O | MOVEA.L A7,A1 0002043e 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00020442 70 1d |p | MOVEQ.L #0x1d,D0 00020444 12 d8 | | MOVE.B (A0)+,(A1)+ 00020446 51 c8 ff fc |Q | DBF D0,0x20444 0002044a 51 4f |QO | SUBQ.L #0x8,A7 0002044c 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020450 3f 01 |? | MOVE.W D1,-(A7) 00020452 3f 02 |? | MOVE.W D2,-(A7) 00020454 4e 93 |N | JSR (A3) 00020456 58 4f |XO | ADDQ.L #0x4,A7 00020458 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002045c 3f 01 |? | MOVE.W D1,-(A7) 0002045e 3f 03 |? | MOVE.W D3,-(A7) 00020460 4e 93 |N | JSR (A3) 00020462 50 4f |PO | ADDQ.L #0x8,A7 00020464 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002046a 50 4f |PO | ADDQ.L #0x8,A7 0002046c 4e 94 |N | JSR (A4) 0002046e de fc 00 30 | 0 | ADDA.W #0x30,A7 00020472 9e c5 | | SUBA.W D5,A7 00020474 20 4f | O | MOVEA.L A7,A0 00020476 43 fa fc ae |C | LEA.L 0x20126,A1 0002047a 70 0c |p | MOVEQ.L #0x0c,D0 0002047c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002047e 51 c8 ff fc |Q | DBF D0,0x2047c 00020482 51 4f |QO | SUBQ.L #0x8,A7 00020484 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020488 3f 01 |? | MOVE.W D1,-(A7) 0002048a 3f 02 |? | MOVE.W D2,-(A7) 0002048c 4e 93 |N | JSR (A3) 0002048e 54 4f |TO | ADDQ.L #0x2,A7 00020490 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00020494 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 0002049a 54 4f |TO | ADDQ.L #0x2,A7 0002049c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000204a2 50 4f |PO | ADDQ.L #0x8,A7 000204a4 4e 94 |N | JSR (A4) 000204a6 5d 4f |]O | SUBQ.L #0x6,A7 000204a8 20 4f | O | MOVEA.L A7,A0 000204aa 43 fa fc 9a |C | LEA.L 0x20146,A1 000204ae 70 16 |p | MOVEQ.L #0x16,D0 000204b0 10 d9 | | MOVE.B (A1)+,(A0)+ 000204b2 51 c8 ff fc |Q | DBF D0,0x204b0 000204b6 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000204ba 59 4f |YO | SUBQ.L #0x4,A7 000204bc 48 6f 00 06 |Ho | PEA.L (A7+0x6) 000204c0 3f 01 |? | MOVE.W D1,-(A7) 000204c2 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000204c6 4e 93 |N | JSR (A3) 000204c8 50 4f |PO | ADDQ.L #0x8,A7 000204ca 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000204d0 de c3 | | ADDA.W D3,A7 000204d2 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 000204d6 4e 5e |N^ | UNLK A6 000204d8 4e 75 |Nu | RTS 000204da ; -------------------------------------------------------------------------------------- 000204da ; OMSI PASCAL Function 000204da ; <LVAR 0x02a 4(r)> 000204da ; <LVAR 0x028 1(r)> 000204da ; <LVAR 0x026 1(r)> 000204da ; <LVAR 0x024 1(r)> 000204da ; <LVAR 0x020 4(r)> 000204da ; <LVAR 0x01c 4(r)> 000204da ; <LVAR 0x018 4(r)> 000204da ; <LVAR 0x014 4(r)> 000204da ; <LVAR 0x010 4(r)> 000204da ; <LVAR 0x00c 4(r)> 000204da ; <LVAR 0x008 4(r)> 000204da ; -------------------------------------------------------------------------------------- 000204da 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 ; Spelunked 000204de bf d5 | | CMPA.L (A5),A7 000204e0 62 06 |b | BHI 0x204e8 000204e2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000204e6 4e 76 |Nv | TRAPV 000204e8 de fc 00 3a | : | ADDA.W #0x3a,A7 000204ec 48 e7 c0 e8 |H | MOVEM.L A4+A2+A1+A0+D1+D0,-(A7) 000204f0 43 f8 00 00 |C | LEA.L 0x0,A1 000204f4 45 f9 00 01 05 2c |E , | LEA.L IPC_GetString(VAR retval : String),A2 000204fa 70 0c |p | MOVEQ.L #0x0c,D0 000204fc 72 01 |r | MOVEQ.L #0x01,D1 000204fe 3f 3a fc 6a |?: j | MOVE.W 0x2016a,-(A7) 00020502 59 4f |YO | SUBQ.L #0x4,A7 00020504 1e ba fc 66 | f | MOVE.B 0x2016c,(A7) 00020508 1f 7a fc 63 00 01 | z c | MOVE.B 0x2016d,(A7+0x1) 0002050e 1f 7a fc 5e 00 02 | z ^ | MOVE.B 0x2016e,(A7+0x2) 00020514 51 4f |QO | SUBQ.L #0x8,A7 00020516 48 6f 00 0c |Ho | PEA.L (A7+0xc) 0002051a 3f 01 |? | MOVE.W D1,-(A7) 0002051c 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00020520 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020526 2e ae 00 2a |. * | MOVE.L (A6+0x2a),(A7) 0002052a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020530 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00020534 3f 01 |? | MOVE.W D1,-(A7) 00020536 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 0002053a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020540 50 4f |PO | ADDQ.L #0x8,A7 00020542 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020548 de c0 | | ADDA.W D0,A7 0002054a 28 5f |(_ | MOVEA.L (A7)+,A4 0002054c 5c 4f |\O | ADDQ.L #0x6,A7 0002054e 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020554 1f 2e 00 28 | . ( | MOVE.B (A6+0x28),-(A7) 00020558 48 57 |HW | PEA.L (A7) 0002055a 48 51 |HQ | PEA.L (A1) 0002055c 48 51 |HQ | PEA.L (A1) 0002055e 4e b9 00 01 04 fc |N | JSR IPC_PutVar(src : Pointer; length : Long ; type : Long) 00020564 de c0 | | ADDA.W D0,A7 00020566 1e ae 00 26 | & | MOVE.B (A6+0x26),(A7) 0002056a 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00020570 1e ae 00 24 | $ | MOVE.B (A6+0x24),(A7) 00020574 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 0002057a 54 4f |TO | ADDQ.L #0x2,A7 0002057c 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 00020582 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020586 2f 0c |/ | MOVE.L A4,-(A7) 00020588 48 78 00 01 |Hx | PEA.L 0x1 0002058c 1f 01 | | MOVE.B D1,-(A7) 0002058e 48 50 |HP | PEA.L (A0) 00020590 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00020596 de fc 00 0e | | ADDA.W #0xe,A7 0002059a 4a 10 |J | TST.B (A0) 0002059c 66 5e |f^ | BNE 0x205fc 0002059e 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000205a4 20 6e 00 20 | n | MOVEA.L (A6+0x20),A0 000205a8 48 50 |HP | PEA.L (A0) 000205aa 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 000205b0 58 4f |XO | ADDQ.L #0x4,A7 000205b2 20 6e 00 1c | n | MOVEA.L (A6+0x1c),A0 000205b6 48 50 |HP | PEA.L (A0) 000205b8 4e 92 |N | JSR (A2) 000205ba 58 4f |XO | ADDQ.L #0x4,A7 000205bc 20 6e 00 18 | n | MOVEA.L (A6+0x18),A0 000205c0 48 50 |HP | PEA.L (A0) 000205c2 4e 92 |N | JSR (A2) 000205c4 58 4f |XO | ADDQ.L #0x4,A7 000205c6 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0 000205ca 48 50 |HP | PEA.L (A0) 000205cc 4e 92 |N | JSR (A2) 000205ce 58 4f |XO | ADDQ.L #0x4,A7 000205d0 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 000205d4 48 50 |HP | PEA.L (A0) 000205d6 48 51 |HQ | PEA.L (A1) 000205d8 48 51 |HQ | PEA.L (A1) 000205da 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 000205e0 de c0 | | ADDA.W D0,A7 000205e2 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000205e6 48 50 |HP | PEA.L (A0) 000205e8 48 51 |HQ | PEA.L (A1) 000205ea 48 78 00 07 |Hx | PEA.L 0x7 000205ee 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 000205f4 de c0 | | ADDA.W D0,A7 000205f6 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 000205fc 4c df 17 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A4 00020600 4e 5e |N^ | UNLK A6 00020602 4e 75 |Nu | RTS 00020604 ; -------------------------------------------------------------------------------------- 00020604 ; OMSI PASCAL Function 00020604 ; <LVAR 0x010 4(r)> 00020604 ; <LVAR 0x00c 4(r)> 00020604 ; <LVAR 0x008 4(r)> 00020604 ; -------------------------------------------------------------------------------------- 00020604 4e 56 ff ec |NV | LINK.W A6,#0xffec 00020608 bf d5 | | CMPA.L (A5),A7 0002060a 62 06 |b | BHI 0x20612 0002060c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020610 4e 76 |Nv | TRAPV 00020612 de fc 00 14 | | ADDA.W #0x14,A7 00020616 48 e7 00 80 |H | MOVEM.L A0,-(A7) 0002061a 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020620 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00020624 48 50 |HP | PEA.L (A0) 00020626 48 78 00 00 |Hx | PEA.L 0x0 0002062a 48 78 00 00 |Hx | PEA.L 0x0 0002062e 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 00020634 de fc 00 0c | | ADDA.W #0xc,A7 00020638 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002063c 48 50 |HP | PEA.L (A0) 0002063e 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 00020644 58 4f |XO | ADDQ.L #0x4,A7 00020646 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002064a 48 50 |HP | PEA.L (A0) 0002064c 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 00020652 58 4f |XO | ADDQ.L #0x4,A7 00020654 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 0002065a 4c df 01 00 |L | MOVEM.L (A7)+,A0 0002065e 4e 5e |N^ | UNLK A6 00020660 4e 75 |Nu | RTS 00020662 ; -------------------------------------------------------------------------------------- 00020662 ; OMSI PASCAL Function 00020662 ; <LVAR 0x01e 1(r)> 00020662 ; <LVAR 0x01a 4(r)> 00020662 ; <LVAR 0x016 4(r)> 00020662 ; <LVAR 0x012 4(r)> 00020662 ; <LVAR 0x010 1(r)> 00020662 ; <LVAR 0x00c 4(r)> 00020662 ; <LVAR 0x008 4(r)> 00020662 ; -------------------------------------------------------------------------------------- 00020662 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00020666 bf d5 | | CMPA.L (A5),A7 00020668 62 06 |b | BHI 0x20670 0002066a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002066e 4e 76 |Nv | TRAPV 00020670 de fc 00 20 | | ADDA.W #0x20,A7 00020674 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 00020678 41 f9 00 01 05 08 |A | LEA.L IPC_PutString(a : String),A0 0002067e 43 f8 00 00 |C | LEA.L 0x0,A1 00020682 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020688 1f 2e 00 1e | . | MOVE.B (A6+0x1e),-(A7) 0002068c 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00020692 54 4f |TO | ADDQ.L #0x2,A7 00020694 2f 2e 00 1a |/. | MOVE.L (A6+0x1a),-(A7) 00020698 4e 90 |N | JSR (A0) 0002069a 2e ae 00 16 |. | MOVE.L (A6+0x16),(A7) 0002069e 4e 90 |N | JSR (A0) 000206a0 2e ae 00 12 |. | MOVE.L (A6+0x12),(A7) 000206a4 4e 90 |N | JSR (A0) 000206a6 54 4f |TO | ADDQ.L #0x2,A7 000206a8 1e ae 00 10 | | MOVE.B (A6+0x10),(A7) 000206ac 48 57 |HW | PEA.L (A7) 000206ae 48 51 |HQ | PEA.L (A1) 000206b0 48 51 |HQ | PEA.L (A1) 000206b2 4e b9 00 01 04 fc |N | JSR IPC_PutVar(src : Pointer; length : Long ; type : Long) 000206b8 de fc 00 0a | | ADDA.W #0xa,A7 000206bc 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 000206c0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000206c4 48 57 |HW | PEA.L (A7) 000206c6 48 51 |HQ | PEA.L (A1) 000206c8 48 78 00 07 |Hx | PEA.L 0x7 000206cc 4e b9 00 01 04 fc |N | JSR IPC_PutVar(src : Pointer; length : Long ; type : Long) 000206d2 de fc 00 14 | | ADDA.W #0x14,A7 000206d6 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 000206dc 42 27 |B' | CLR.B -(A7) 000206de 48 78 00 01 |Hx | PEA.L 0x1 000206e2 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000206e8 5c 4f |\O | ADDQ.L #0x6,A7 000206ea 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 000206ee 4e 5e |N^ | UNLK A6 000206f0 4e 75 |Nu | RTS 000206f2 ; -------------------------------------------------------------------------------------- 000206f2 ; OMSI PASCAL Function 000206f2 ; <LVAR 0x024 4(r)> 000206f2 ; <LVAR 0x022 1(r)> 000206f2 ; <LVAR 0x020 1(r)> 000206f2 ; <LVAR 0x01c 4(r)> 000206f2 ; <LVAR 0x018 4(r)> 000206f2 ; <LVAR 0x014 4(r)> 000206f2 ; <LVAR 0x010 4(r)> 000206f2 ; <LVAR 0x00c 4(r)> 000206f2 ; <LVAR 0x008 4(r)> 000206f2 ; -------------------------------------------------------------------------------------- 000206f2 4e 56 ff d0 |NV | LINK.W A6,#0xffd0 000206f6 bf d5 | | CMPA.L (A5),A7 000206f8 62 06 |b | BHI 0x20700 000206fa 44 fc 00 02 |D | MOVE.W #0x2,CCR 000206fe 4e 76 |Nv | TRAPV 00020700 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020704 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 00020708 43 f8 00 00 |C | LEA.L 0x0,A1 0002070c 70 0c |p | MOVEQ.L #0x0c,D0 0002070e 72 01 |r | MOVEQ.L #0x01,D1 00020710 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020716 1f 2e 00 22 | . " | MOVE.B (A6+0x22),-(A7) 0002071a 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00020720 1e ae 00 20 | | MOVE.B (A6+0x20),(A7) 00020724 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 0002072a 54 4f |TO | ADDQ.L #0x2,A7 0002072c 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 00020732 2f 3a fa 32 |/: 2 | MOVE.L 0x20166,-(A7) 00020736 2f 3a fa 2a |/: * | MOVE.L 0x20162,-(A7) 0002073a 2f 3a fa 22 |/: " | MOVE.L 0x2015e,-(A7) 0002073e 51 4f |QO | SUBQ.L #0x8,A7 00020740 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020744 3f 01 |? | MOVE.W D1,-(A7) 00020746 3f 00 |? | MOVE.W D0,-(A7) 00020748 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002074e 2e ae 00 24 |. $ | MOVE.L (A6+0x24),(A7) 00020752 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020758 58 4f |XO | ADDQ.L #0x4,A7 0002075a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020760 50 4f |PO | ADDQ.L #0x8,A7 00020762 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020768 de fc 00 10 | | ADDA.W #0x10,A7 0002076c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020770 2f 2e 00 24 |/. $ | MOVE.L (A6+0x24),-(A7) 00020774 48 78 00 01 |Hx | PEA.L 0x1 00020778 1f 01 | | MOVE.B D1,-(A7) 0002077a 48 50 |HP | PEA.L (A0) 0002077c 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00020782 de fc 00 0e | | ADDA.W #0xe,A7 00020786 4a 10 |J | TST.B (A0) 00020788 66 5c |f\ | BNE 0x207e6 0002078a 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020790 20 6e 00 1c | n | MOVEA.L (A6+0x1c),A0 00020794 48 50 |HP | PEA.L (A0) 00020796 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 0002079c 58 4f |XO | ADDQ.L #0x4,A7 0002079e 20 6e 00 18 | n | MOVEA.L (A6+0x18),A0 000207a2 48 50 |HP | PEA.L (A0) 000207a4 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 000207aa 58 4f |XO | ADDQ.L #0x4,A7 000207ac 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0 000207b0 48 50 |HP | PEA.L (A0) 000207b2 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 000207b8 58 4f |XO | ADDQ.L #0x4,A7 000207ba 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 000207be 48 50 |HP | PEA.L (A0) 000207c0 48 51 |HQ | PEA.L (A1) 000207c2 48 51 |HQ | PEA.L (A1) 000207c4 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 000207ca de c0 | | ADDA.W D0,A7 000207cc 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000207d0 48 50 |HP | PEA.L (A0) 000207d2 48 51 |HQ | PEA.L (A1) 000207d4 48 78 00 07 |Hx | PEA.L 0x7 000207d8 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 000207de de c0 | | ADDA.W D0,A7 000207e0 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 000207e6 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 000207ea 4e 5e |N^ | UNLK A6 000207ec 4e 75 |Nu | RTS 000207ee ; -------------------------------------------------------------------------------------- 000207ee ; OMSI PASCAL Function 000207ee ; <LVAR 0x028 1(r)> 000207ee ; <LVAR 0x024 4(r)> 000207ee ; <LVAR 0x022 1(r)> 000207ee ; <LVAR 0x020 1(r)> 000207ee ; <LVAR 0x01c 4(r)> 000207ee ; <LVAR 0x018 4(r)> 000207ee ; <LVAR 0x014 4(r)> 000207ee ; <LVAR 0x010 4(r)> 000207ee ; <LVAR 0x00c 4(r)> 000207ee ; <LVAR 0x008 4(r)> 000207ee ; -------------------------------------------------------------------------------------- 000207ee 4e 56 ff ce |NV | LINK.W A6,#0xffce 000207f2 bf d5 | | CMPA.L (A5),A7 000207f4 62 06 |b | BHI 0x207fc 000207f6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000207fa 4e 76 |Nv | TRAPV 000207fc de fc 00 30 | 0 | ADDA.W #0x30,A7 00020800 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 00020804 43 f8 00 00 |C | LEA.L 0x0,A1 00020808 70 0c |p | MOVEQ.L #0x0c,D0 0002080a 72 01 |r | MOVEQ.L #0x01,D1 0002080c 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020812 1f 2e 00 28 | . ( | MOVE.B (A6+0x28),-(A7) 00020816 48 57 |HW | PEA.L (A7) 00020818 48 51 |HQ | PEA.L (A1) 0002081a 48 51 |HQ | PEA.L (A1) 0002081c 4e b9 00 01 04 fc |N | JSR IPC_PutVar(src : Pointer; length : Long ; type : Long) 00020822 de c0 | | ADDA.W D0,A7 00020824 1e ae 00 22 | " | MOVE.B (A6+0x22),(A7) 00020828 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 0002082e 1e ae 00 20 | | MOVE.B (A6+0x20),(A7) 00020832 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00020838 54 4f |TO | ADDQ.L #0x2,A7 0002083a 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 00020840 2f 3a f9 24 |/: $ | MOVE.L 0x20166,-(A7) 00020844 2f 3a f9 1c |/: | MOVE.L 0x20162,-(A7) 00020848 2f 3a f9 14 |/: | MOVE.L 0x2015e,-(A7) 0002084c 51 4f |QO | SUBQ.L #0x8,A7 0002084e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020852 3f 01 |? | MOVE.W D1,-(A7) 00020854 3f 00 |? | MOVE.W D0,-(A7) 00020856 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002085c 2e ae 00 24 |. $ | MOVE.L (A6+0x24),(A7) 00020860 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020866 58 4f |XO | ADDQ.L #0x4,A7 00020868 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002086e 50 4f |PO | ADDQ.L #0x8,A7 00020870 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020876 de fc 00 10 | | ADDA.W #0x10,A7 0002087a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002087e 2f 2e 00 24 |/. $ | MOVE.L (A6+0x24),-(A7) 00020882 48 78 00 01 |Hx | PEA.L 0x1 00020886 1f 01 | | MOVE.B D1,-(A7) 00020888 48 50 |HP | PEA.L (A0) 0002088a 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00020890 de fc 00 0e | | ADDA.W #0xe,A7 00020894 4a 10 |J | TST.B (A0) 00020896 66 5c |f\ | BNE 0x208f4 00020898 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 0002089e 20 6e 00 1c | n | MOVEA.L (A6+0x1c),A0 000208a2 48 50 |HP | PEA.L (A0) 000208a4 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 000208aa 58 4f |XO | ADDQ.L #0x4,A7 000208ac 20 6e 00 18 | n | MOVEA.L (A6+0x18),A0 000208b0 48 50 |HP | PEA.L (A0) 000208b2 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 000208b8 58 4f |XO | ADDQ.L #0x4,A7 000208ba 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0 000208be 48 50 |HP | PEA.L (A0) 000208c0 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 000208c6 58 4f |XO | ADDQ.L #0x4,A7 000208c8 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 000208cc 48 50 |HP | PEA.L (A0) 000208ce 48 51 |HQ | PEA.L (A1) 000208d0 48 51 |HQ | PEA.L (A1) 000208d2 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 000208d8 de c0 | | ADDA.W D0,A7 000208da 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000208de 48 50 |HP | PEA.L (A0) 000208e0 48 51 |HQ | PEA.L (A1) 000208e2 48 78 00 07 |Hx | PEA.L 0x7 000208e6 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 000208ec de c0 | | ADDA.W D0,A7 000208ee 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 000208f4 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 000208f8 4e 5e |N^ | UNLK A6 000208fa 4e 75 |Nu | RTS 000208fc ; -------------------------------------------------------------------------------------- 000208fc ; OMSI PASCAL Function 000208fc ; <LVAR 0x02c 1(r)> 000208fc ; <LVAR 0x028 4(r)> 000208fc ; <LVAR 0x026 1(r)> 000208fc ; <LVAR 0x024 1(r)> 000208fc ; <LVAR 0x022 1(r)> 000208fc ; <LVAR 0x020 1(r)> 000208fc ; <LVAR 0x01c 4(r)> 000208fc ; <LVAR 0x018 4(r)> 000208fc ; <LVAR 0x014 4(r)> 000208fc ; <LVAR 0x010 4(r)> 000208fc ; <LVAR 0x00c 4(r)> 000208fc ; <LVAR 0x008 4(r)> 000208fc ; -------------------------------------------------------------------------------------- 000208fc 4e 56 ff ca |NV | LINK.W A6,#0xffca 00020900 bf d5 | | CMPA.L (A5),A7 00020902 62 06 |b | BHI 0x2090a 00020904 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020908 4e 76 |Nv | TRAPV 0002090a de fc 00 34 | 4 | ADDA.W #0x34,A7 0002090e 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 00020912 43 f8 00 00 |C | LEA.L 0x0,A1 00020916 45 f9 00 01 05 02 |E | LEA.L IPC_PutBool(a : Bool),A2 0002091c 70 0c |p | MOVEQ.L #0x0c,D0 0002091e 72 01 |r | MOVEQ.L #0x01,D1 00020920 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020926 1f 2e 00 2c | . , | MOVE.B (A6+0x2c),-(A7) 0002092a 48 57 |HW | PEA.L (A7) 0002092c 48 51 |HQ | PEA.L (A1) 0002092e 48 51 |HQ | PEA.L (A1) 00020930 4e b9 00 01 04 fc |N | JSR IPC_PutVar(src : Pointer; length : Long ; type : Long) 00020936 de c0 | | ADDA.W D0,A7 00020938 1e ae 00 26 | & | MOVE.B (A6+0x26),(A7) 0002093c 4e 92 |N | JSR (A2) 0002093e 1e ae 00 24 | $ | MOVE.B (A6+0x24),(A7) 00020942 4e 92 |N | JSR (A2) 00020944 1e ae 00 22 | " | MOVE.B (A6+0x22),(A7) 00020948 4e 92 |N | JSR (A2) 0002094a 1e ae 00 20 | | MOVE.B (A6+0x20),(A7) 0002094e 4e 92 |N | JSR (A2) 00020950 54 4f |TO | ADDQ.L #0x2,A7 00020952 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 00020958 2f 3a f8 0c |/: | MOVE.L 0x20166,-(A7) 0002095c 2f 3a f8 04 |/: | MOVE.L 0x20162,-(A7) 00020960 2f 3a f7 fc |/: | MOVE.L 0x2015e,-(A7) 00020964 51 4f |QO | SUBQ.L #0x8,A7 00020966 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002096a 3f 01 |? | MOVE.W D1,-(A7) 0002096c 3f 00 |? | MOVE.W D0,-(A7) 0002096e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020974 2e ae 00 28 |. ( | MOVE.L (A6+0x28),(A7) 00020978 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 0002097e 58 4f |XO | ADDQ.L #0x4,A7 00020980 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020986 50 4f |PO | ADDQ.L #0x8,A7 00020988 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002098e de fc 00 10 | | ADDA.W #0x10,A7 00020992 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020996 2f 2e 00 28 |/. ( | MOVE.L (A6+0x28),-(A7) 0002099a 48 78 00 01 |Hx | PEA.L 0x1 0002099e 1f 01 | | MOVE.B D1,-(A7) 000209a0 48 50 |HP | PEA.L (A0) 000209a2 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 000209a8 de fc 00 0e | | ADDA.W #0xe,A7 000209ac 4a 10 |J | TST.B (A0) 000209ae 66 5c |f\ | BNE 0x20a0c 000209b0 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000209b6 20 6e 00 1c | n | MOVEA.L (A6+0x1c),A0 000209ba 48 50 |HP | PEA.L (A0) 000209bc 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 000209c2 58 4f |XO | ADDQ.L #0x4,A7 000209c4 20 6e 00 18 | n | MOVEA.L (A6+0x18),A0 000209c8 48 50 |HP | PEA.L (A0) 000209ca 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 000209d0 58 4f |XO | ADDQ.L #0x4,A7 000209d2 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0 000209d6 48 50 |HP | PEA.L (A0) 000209d8 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 000209de 58 4f |XO | ADDQ.L #0x4,A7 000209e0 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 000209e4 48 50 |HP | PEA.L (A0) 000209e6 48 51 |HQ | PEA.L (A1) 000209e8 48 51 |HQ | PEA.L (A1) 000209ea 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 000209f0 de c0 | | ADDA.W D0,A7 000209f2 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000209f6 48 50 |HP | PEA.L (A0) 000209f8 48 51 |HQ | PEA.L (A1) 000209fa 48 78 00 07 |Hx | PEA.L 0x7 000209fe 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 00020a04 de c0 | | ADDA.W D0,A7 00020a06 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 00020a0c 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 00020a10 4e 5e |N^ | UNLK A6 00020a12 4e 75 |Nu | RTS 00020a14 ; -------------------------------------------------------------------------------------- 00020a14 ; OMSI PASCAL Function 00020a14 ; <LVAR -0x004 1(rw)> 00020a14 ; -------------------------------------------------------------------------------------- 00020a14 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 00020a18 bf d5 | | CMPA.L (A5),A7 00020a1a 62 06 |b | BHI 0x20a22 00020a1c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a20 4e 76 |Nv | TRAPV 00020a22 de fc 00 46 | F | ADDA.W #0x46,A7 00020a26 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00020a2a 45 f9 00 02 12 ce |E | LEA.L 0x212ce,A2 00020a30 47 f9 00 02 12 e9 |G | LEA.L 0x212e9,A3 00020a36 72 01 |r | MOVEQ.L #0x01,D1 00020a38 48 52 |HR | PEA.L (A2) 00020a3a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020a40 59 4f |YO | SUBQ.L #0x4,A7 00020a42 20 4f | O | MOVEA.L A7,A0 00020a44 43 fa f7 2a |C * | LEA.L 0x20170,A1 00020a48 70 06 |p | MOVEQ.L #0x06,D0 00020a4a 10 d9 | | MOVE.B (A1)+,(A0)+ 00020a4c 51 c8 ff fc |Q | DBF D0,0x20a4a 00020a50 59 4f |YO | SUBQ.L #0x4,A7 00020a52 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a56 3f 01 |? | MOVE.W D1,-(A7) 00020a58 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00020a5c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020a62 50 4f |PO | ADDQ.L #0x8,A7 00020a64 24 9f |$ | MOVE.L (A7)+,(A2) 00020a66 2e 92 |. | MOVE.L (A2),(A7) 00020a68 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020a6e 58 4f |XO | ADDQ.L #0x4,A7 00020a70 28 5f |(_ | MOVEA.L (A7)+,A4 00020a72 1d 41 ff fc | A | MOVE.B D1,(A6-0x4) 00020a76 1f 2e ff fc | . | MOVE.B (A6-0x4),-(A7) 00020a7a 2f 0c |/ | MOVE.L A4,-(A7) 00020a7c 10 39 00 02 12 ca | 9 | MOVE.B 0x212ca,D0 00020a82 48 80 |H | EXTB.W D0 00020a84 41 81 |A | CHK.W D1,D0 00020a86 1f 00 | | MOVE.B D0,-(A7) 00020a88 10 39 00 02 12 cb | 9 | MOVE.B 0x212cb,D0 00020a8e 48 80 |H | EXTB.W D0 00020a90 41 81 |A | CHK.W D1,D0 00020a92 1f 00 | | MOVE.B D0,-(A7) 00020a94 1f 01 | | MOVE.B D1,-(A7) 00020a96 1f 01 | | MOVE.B D1,-(A7) 00020a98 48 79 00 02 12 cc |Hy | PEA.L 0x212cc 00020a9e 48 79 00 02 12 d2 |Hy | PEA.L 0x212d2 00020aa4 48 79 00 02 12 d6 |Hy | PEA.L 0x212d6 00020aaa 48 79 00 02 12 da |Hy | PEA.L 0x212da 00020ab0 48 79 00 02 12 db |Hy | PEA.L 0x212db 00020ab6 48 53 |HS | PEA.L (A3) 00020ab8 4e ba fe 42 |N B | JSR 0x208fc 00020abc de fc 00 26 | & | ADDA.W #0x26,A7 00020ac0 4a 13 |J | TST.B (A3) 00020ac2 67 10 |g | BEQ 0x20ad4 00020ac4 1f 3c 00 06 | < | MOVE.B #0x06,-(A7) 00020ac8 48 78 00 01 |Hx | PEA.L 0x1 00020acc 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020ad2 5c 4f |\O | ADDQ.L #0x6,A7 00020ad4 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00020ad8 4e 5e |N^ | UNLK A6 00020ada 4e 75 |Nu | RTS 00020adc ; -------------------------------------------------------------------------------------- 00020adc ; OMSI PASCAL Function 00020adc ; -------------------------------------------------------------------------------------- 00020adc 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00020ae0 bf d5 | | CMPA.L (A5),A7 00020ae2 62 06 |b | BHI 0x20aea 00020ae4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020ae8 4e 76 |Nv | TRAPV 00020aea de fc 00 38 | 8 | ADDA.W #0x38,A7 00020aee 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 00020af2 43 f9 00 02 12 ce |C | LEA.L 0x212ce,A1 00020af8 45 f9 00 02 12 e9 |E | LEA.L 0x212e9,A2 00020afe 72 01 |r | MOVEQ.L #0x01,D1 00020b00 48 51 |HQ | PEA.L (A1) 00020b02 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020b08 58 4f |XO | ADDQ.L #0x4,A7 00020b0a 41 ee 00 12 |A | LEA.L (A6+0x12),A0 00020b0e 70 04 |p | MOVEQ.L #0x04,D0 00020b10 3f 20 |? | MOVE.W -(A0),-(A7) 00020b12 51 c8 ff fc |Q | DBF D0,0x20b10 00020b16 59 4f |YO | SUBQ.L #0x4,A7 00020b18 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020b1c 3f 01 |? | MOVE.W D1,-(A7) 00020b1e 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00020b22 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020b28 50 4f |PO | ADDQ.L #0x8,A7 00020b2a 22 9f |" | MOVE.L (A7)+,(A1) 00020b2c 54 4f |TO | ADDQ.L #0x2,A7 00020b2e 2e 91 |. | MOVE.L (A1),(A7) 00020b30 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020b36 58 4f |XO | ADDQ.L #0x4,A7 00020b38 10 39 00 02 12 ca | 9 | MOVE.B 0x212ca,D0 00020b3e 48 80 |H | EXTB.W D0 00020b40 41 81 |A | CHK.W D1,D0 00020b42 1f 00 | | MOVE.B D0,-(A7) 00020b44 10 39 00 02 12 cb | 9 | MOVE.B 0x212cb,D0 00020b4a 48 80 |H | EXTB.W D0 00020b4c 41 81 |A | CHK.W D1,D0 00020b4e 1f 00 | | MOVE.B D0,-(A7) 00020b50 48 79 00 02 12 cc |Hy | PEA.L 0x212cc 00020b56 48 79 00 02 12 d2 |Hy | PEA.L 0x212d2 00020b5c 48 79 00 02 12 d6 |Hy | PEA.L 0x212d6 00020b62 48 79 00 02 12 da |Hy | PEA.L 0x212da 00020b68 48 79 00 02 12 db |Hy | PEA.L 0x212db 00020b6e 48 52 |HR | PEA.L (A2) 00020b70 4e ba fb 80 |N | JSR 0x206f2 00020b74 de fc 00 20 | | ADDA.W #0x20,A7 00020b78 4a 12 |J | TST.B (A2) 00020b7a 67 10 |g | BEQ 0x20b8c 00020b7c 1f 3c 00 06 | < | MOVE.B #0x06,-(A7) 00020b80 48 78 00 01 |Hx | PEA.L 0x1 00020b84 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020b8a 5c 4f |\O | ADDQ.L #0x6,A7 00020b8c 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 00020b90 4e 5e |N^ | UNLK A6 00020b92 4e 75 |Nu | RTS 00020b94 ; -------------------------------------------------------------------------------------- 00020b94 ; OMSI PASCAL Function 00020b94 ; <LVAR 0x012 1(r)> 00020b94 ; <LVAR -0x004 1(rw)> 00020b94 ; -------------------------------------------------------------------------------------- 00020b94 4e 56 ff be |NV | LINK.W A6,#0xffbe 00020b98 bf d5 | | CMPA.L (A5),A7 00020b9a 62 06 |b | BHI 0x20ba2 00020b9c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020ba0 4e 76 |Nv | TRAPV 00020ba2 de fc 00 3e | > | ADDA.W #0x3e,A7 00020ba6 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7) 00020baa 43 f9 00 02 12 ce |C | LEA.L 0x212ce,A1 00020bb0 45 f9 00 02 12 e9 |E | LEA.L 0x212e9,A2 00020bb6 72 01 |r | MOVEQ.L #0x01,D1 00020bb8 74 0a |t | MOVEQ.L #0x0a,D2 00020bba 48 51 |HQ | PEA.L (A1) 00020bbc 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020bc2 58 4f |XO | ADDQ.L #0x4,A7 00020bc4 41 ee 00 12 |A | LEA.L (A6+0x12),A0 00020bc8 70 04 |p | MOVEQ.L #0x04,D0 00020bca 3f 20 |? | MOVE.W -(A0),-(A7) 00020bcc 51 c8 ff fc |Q | DBF D0,0x20bca 00020bd0 59 4f |YO | SUBQ.L #0x4,A7 00020bd2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020bd6 3f 01 |? | MOVE.W D1,-(A7) 00020bd8 3f 02 |? | MOVE.W D2,-(A7) 00020bda 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020be0 50 4f |PO | ADDQ.L #0x8,A7 00020be2 22 9f |" | MOVE.L (A7)+,(A1) 00020be4 de c2 | | ADDA.W D2,A7 00020be6 1d 6e 00 12 ff fc | n | MOVE.B (A6+0x12),(A6-0x4) 00020bec 1f 2e ff fc | . | MOVE.B (A6-0x4),-(A7) 00020bf0 59 4f |YO | SUBQ.L #0x4,A7 00020bf2 2f 11 |/ | MOVE.L (A1),-(A7) 00020bf4 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020bfa 58 4f |XO | ADDQ.L #0x4,A7 00020bfc 10 39 00 02 12 ca | 9 | MOVE.B 0x212ca,D0 00020c02 48 80 |H | EXTB.W D0 00020c04 41 81 |A | CHK.W D1,D0 00020c06 1f 00 | | MOVE.B D0,-(A7) 00020c08 10 39 00 02 12 cb | 9 | MOVE.B 0x212cb,D0 00020c0e 48 80 |H | EXTB.W D0 00020c10 41 81 |A | CHK.W D1,D0 00020c12 1f 00 | | MOVE.B D0,-(A7) 00020c14 48 79 00 02 12 cc |Hy | PEA.L 0x212cc 00020c1a 48 79 00 02 12 d2 |Hy | PEA.L 0x212d2 00020c20 48 79 00 02 12 d6 |Hy | PEA.L 0x212d6 00020c26 48 79 00 02 12 da |Hy | PEA.L 0x212da 00020c2c 48 79 00 02 12 db |Hy | PEA.L 0x212db 00020c32 48 52 |HR | PEA.L (A2) 00020c34 4e ba fb b8 |N | JSR 0x207ee 00020c38 de fc 00 22 | " | ADDA.W #0x22,A7 00020c3c 4a 12 |J | TST.B (A2) 00020c3e 67 10 |g | BEQ 0x20c50 00020c40 1f 3c 00 06 | < | MOVE.B #0x06,-(A7) 00020c44 48 78 00 01 |Hx | PEA.L 0x1 00020c48 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020c4e 5c 4f |\O | ADDQ.L #0x6,A7 00020c50 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2 00020c54 4e 5e |N^ | UNLK A6 00020c56 4e 75 |Nu | RTS 00020c58 ; -------------------------------------------------------------------------------------- 00020c58 ; OMSI PASCAL Function 00020c58 ; -------------------------------------------------------------------------------------- 00020c58 4e 56 ff de |NV | LINK.W A6,#0xffde ; Spelunked 00020c5c bf d5 | | CMPA.L (A5),A7 00020c5e 62 06 |b | BHI 0x20c66 00020c60 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020c64 4e 76 |Nv | TRAPV 00020c66 de fc 00 22 | " | ADDA.W #0x22,A7 00020c6a 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 00020c6e 43 f9 00 02 12 cc |C | LEA.L 0x212cc,A1 00020c74 45 fa fe 66 |E f | LEA.L 0x20adc,A2 00020c78 72 0a |r | MOVEQ.L #0x0a,D1 00020c7a 41 fa f5 06 |A | LEA.L 0x20182,A0 00020c7e 70 04 |p | MOVEQ.L #0x04,D0 00020c80 3f 20 |? | MOVE.W -(A0),-(A7) 00020c82 51 c8 ff fc |Q | DBF D0,0x20c80 00020c86 4e 92 |N | JSR (A2) 00020c88 de c1 | | ADDA.W D1,A7 00020c8a 4a 11 |J | TST.B (A1) 00020c8c 67 10 |g | BEQ 0x20c9e 00020c8e 41 fa f4 fc |A | LEA.L 0x2018c,A0 00020c92 70 04 |p | MOVEQ.L #0x04,D0 00020c94 3f 20 |? | MOVE.W -(A0),-(A7) 00020c96 51 c8 ff fc |Q | DBF D0,0x20c94 00020c9a 4e 92 |N | JSR (A2) 00020c9c de c1 | | ADDA.W D1,A7 00020c9e 4a 11 |J | TST.B (A1) 00020ca0 67 10 |g | BEQ 0x20cb2 00020ca2 41 fa f4 f2 |A | LEA.L 0x20196,A0 00020ca6 70 04 |p | MOVEQ.L #0x04,D0 00020ca8 3f 20 |? | MOVE.W -(A0),-(A7) 00020caa 51 c8 ff fc |Q | DBF D0,0x20ca8 00020cae 4e 92 |N | JSR (A2) 00020cb0 de c1 | | ADDA.W D1,A7 00020cb2 4a 11 |J | TST.B (A1) 00020cb4 67 10 |g | BEQ 0x20cc6 00020cb6 41 fa f4 e8 |A | LEA.L 0x201a0,A0 00020cba 70 04 |p | MOVEQ.L #0x04,D0 00020cbc 3f 20 |? | MOVE.W -(A0),-(A7) 00020cbe 51 c8 ff fc |Q | DBF D0,0x20cbc 00020cc2 4e 92 |N | JSR (A2) 00020cc4 de c1 | | ADDA.W D1,A7 00020cc6 4a 11 |J | TST.B (A1) 00020cc8 67 10 |g | BEQ 0x20cda 00020cca 41 fa f4 de |A | LEA.L 0x201aa,A0 00020cce 70 04 |p | MOVEQ.L #0x04,D0 00020cd0 3f 20 |? | MOVE.W -(A0),-(A7) 00020cd2 51 c8 ff fc |Q | DBF D0,0x20cd0 00020cd6 4e 92 |N | JSR (A2) 00020cd8 de c1 | | ADDA.W D1,A7 00020cda 4a 11 |J | TST.B (A1) 00020cdc 67 10 |g | BEQ 0x20cee 00020cde 41 fa f4 d4 |A | LEA.L 0x201b4,A0 00020ce2 70 04 |p | MOVEQ.L #0x04,D0 00020ce4 3f 20 |? | MOVE.W -(A0),-(A7) 00020ce6 51 c8 ff fc |Q | DBF D0,0x20ce4 00020cea 4e 92 |N | JSR (A2) 00020cec de c1 | | ADDA.W D1,A7 00020cee 4a 11 |J | TST.B (A1) 00020cf0 67 10 |g | BEQ 0x20d02 00020cf2 41 fa f4 ca |A | LEA.L 0x201be,A0 00020cf6 70 04 |p | MOVEQ.L #0x04,D0 00020cf8 3f 20 |? | MOVE.W -(A0),-(A7) 00020cfa 51 c8 ff fc |Q | DBF D0,0x20cf8 00020cfe 4e 92 |N | JSR (A2) 00020d00 de c1 | | ADDA.W D1,A7 00020d02 4a 11 |J | TST.B (A1) 00020d04 67 10 |g | BEQ 0x20d16 00020d06 41 fa f4 c0 |A | LEA.L 0x201c8,A0 00020d0a 70 04 |p | MOVEQ.L #0x04,D0 00020d0c 3f 20 |? | MOVE.W -(A0),-(A7) 00020d0e 51 c8 ff fc |Q | DBF D0,0x20d0c 00020d12 4e 92 |N | JSR (A2) 00020d14 de c1 | | ADDA.W D1,A7 00020d16 4a 11 |J | TST.B (A1) 00020d18 67 10 |g | BEQ 0x20d2a 00020d1a 41 fa f4 b6 |A | LEA.L 0x201d2,A0 00020d1e 70 04 |p | MOVEQ.L #0x04,D0 00020d20 3f 20 |? | MOVE.W -(A0),-(A7) 00020d22 51 c8 ff fc |Q | DBF D0,0x20d20 00020d26 4e 92 |N | JSR (A2) 00020d28 de c1 | | ADDA.W D1,A7 00020d2a 4a 11 |J | TST.B (A1) 00020d2c 67 10 |g | BEQ 0x20d3e 00020d2e 41 fa f4 ac |A | LEA.L 0x201dc,A0 00020d32 70 04 |p | MOVEQ.L #0x04,D0 00020d34 3f 20 |? | MOVE.W -(A0),-(A7) 00020d36 51 c8 ff fc |Q | DBF D0,0x20d34 00020d3a 4e 92 |N | JSR (A2) 00020d3c de c1 | | ADDA.W D1,A7 00020d3e 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 00020d42 4e 5e |N^ | UNLK A6 00020d44 4e 75 |Nu | RTS 00020d46 ; -------------------------------------------------------------------------------------- 00020d46 ; OMSI PASCAL Function 00020d46 ; -------------------------------------------------------------------------------------- 00020d46 4e 56 ff de |NV | LINK.W A6,#0xffde 00020d4a bf d5 | | CMPA.L (A5),A7 00020d4c 62 06 |b | BHI 0x20d54 00020d4e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020d52 4e 76 |Nv | TRAPV 00020d54 de fc 00 22 | " | ADDA.W #0x22,A7 00020d58 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 00020d5c 43 f9 00 02 12 cc |C | LEA.L 0x212cc,A1 00020d62 45 fa fd 78 |E x | LEA.L 0x20adc,A2 00020d66 72 0a |r | MOVEQ.L #0x0a,D1 00020d68 41 fa f4 7c |A | | LEA.L 0x201e6,A0 00020d6c 70 04 |p | MOVEQ.L #0x04,D0 00020d6e 3f 20 |? | MOVE.W -(A0),-(A7) 00020d70 51 c8 ff fc |Q | DBF D0,0x20d6e 00020d74 4e 92 |N | JSR (A2) 00020d76 de c1 | | ADDA.W D1,A7 00020d78 4a 11 |J | TST.B (A1) 00020d7a 67 10 |g | BEQ 0x20d8c 00020d7c 41 fa f4 72 |A r | LEA.L 0x201f0,A0 00020d80 70 04 |p | MOVEQ.L #0x04,D0 00020d82 3f 20 |? | MOVE.W -(A0),-(A7) 00020d84 51 c8 ff fc |Q | DBF D0,0x20d82 00020d88 4e 92 |N | JSR (A2) 00020d8a de c1 | | ADDA.W D1,A7 00020d8c 4a 11 |J | TST.B (A1) 00020d8e 67 10 |g | BEQ 0x20da0 00020d90 41 fa f4 68 |A h | LEA.L 0x201fa,A0 00020d94 70 04 |p | MOVEQ.L #0x04,D0 00020d96 3f 20 |? | MOVE.W -(A0),-(A7) 00020d98 51 c8 ff fc |Q | DBF D0,0x20d96 00020d9c 4e 92 |N | JSR (A2) 00020d9e de c1 | | ADDA.W D1,A7 00020da0 4a 11 |J | TST.B (A1) 00020da2 67 10 |g | BEQ 0x20db4 00020da4 41 fa f4 5e |A ^ | LEA.L 0x20204,A0 00020da8 70 04 |p | MOVEQ.L #0x04,D0 00020daa 3f 20 |? | MOVE.W -(A0),-(A7) 00020dac 51 c8 ff fc |Q | DBF D0,0x20daa 00020db0 4e 92 |N | JSR (A2) 00020db2 de c1 | | ADDA.W D1,A7 00020db4 4a 11 |J | TST.B (A1) 00020db6 67 10 |g | BEQ 0x20dc8 00020db8 41 fa f4 54 |A T | LEA.L 0x2020e,A0 00020dbc 70 04 |p | MOVEQ.L #0x04,D0 00020dbe 3f 20 |? | MOVE.W -(A0),-(A7) 00020dc0 51 c8 ff fc |Q | DBF D0,0x20dbe 00020dc4 4e 92 |N | JSR (A2) 00020dc6 de c1 | | ADDA.W D1,A7 00020dc8 4a 11 |J | TST.B (A1) 00020dca 67 10 |g | BEQ 0x20ddc 00020dcc 41 fa f4 4a |A J | LEA.L 0x20218,A0 00020dd0 70 04 |p | MOVEQ.L #0x04,D0 00020dd2 3f 20 |? | MOVE.W -(A0),-(A7) 00020dd4 51 c8 ff fc |Q | DBF D0,0x20dd2 00020dd8 4e 92 |N | JSR (A2) 00020dda de c1 | | ADDA.W D1,A7 00020ddc 4a 11 |J | TST.B (A1) 00020dde 67 10 |g | BEQ 0x20df0 00020de0 41 fa f4 40 |A @ | LEA.L 0x20222,A0 00020de4 70 04 |p | MOVEQ.L #0x04,D0 00020de6 3f 20 |? | MOVE.W -(A0),-(A7) 00020de8 51 c8 ff fc |Q | DBF D0,0x20de6 00020dec 4e 92 |N | JSR (A2) 00020dee de c1 | | ADDA.W D1,A7 00020df0 4a 11 |J | TST.B (A1) 00020df2 67 10 |g | BEQ 0x20e04 00020df4 41 fa f4 36 |A 6 | LEA.L 0x2022c,A0 00020df8 70 04 |p | MOVEQ.L #0x04,D0 00020dfa 3f 20 |? | MOVE.W -(A0),-(A7) 00020dfc 51 c8 ff fc |Q | DBF D0,0x20dfa 00020e00 4e 92 |N | JSR (A2) 00020e02 de c1 | | ADDA.W D1,A7 00020e04 4a 11 |J | TST.B (A1) 00020e06 67 10 |g | BEQ 0x20e18 00020e08 41 fa f4 2c |A , | LEA.L 0x20236,A0 00020e0c 70 04 |p | MOVEQ.L #0x04,D0 00020e0e 3f 20 |? | MOVE.W -(A0),-(A7) 00020e10 51 c8 ff fc |Q | DBF D0,0x20e0e 00020e14 4e 92 |N | JSR (A2) 00020e16 de c1 | | ADDA.W D1,A7 00020e18 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 00020e1c 4e 5e |N^ | UNLK A6 00020e1e 4e 75 |Nu | RTS 00020e20 ; -------------------------------------------------------------------------------------- 00020e20 ; OMSI PASCAL Function 00020e20 ; <LVAR 0x008 1(r)> 00020e20 ; -------------------------------------------------------------------------------------- 00020e20 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 00020e24 bf d5 | | CMPA.L (A5),A7 00020e26 62 06 |b | BHI 0x20e2e 00020e28 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020e2c 4e 76 |Nv | TRAPV 00020e2e de fc 00 28 | ( | ADDA.W #0x28,A7 00020e32 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 00020e36 43 f9 00 02 12 cc |C | LEA.L 0x212cc,A1 00020e3c 45 fa fc 9e |E | LEA.L 0x20adc,A2 00020e40 72 0a |r | MOVEQ.L #0x0a,D1 00020e42 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00020e46 0c 00 00 07 | | CMPI.B #0x07,D0 00020e4a 66 04 |f | BNE 0x20e50 00020e4c 7e 0c |~ | MOVEQ.L #0x0c,D7 00020e4e 60 1a |` | BRA 0x20e6a 00020e50 0c 00 00 08 | | CMPI.B #0x08,D0 00020e54 66 04 |f | BNE 0x20e5a 00020e56 7e 0d |~ | MOVEQ.L #0x0d,D7 00020e58 60 10 |` | BRA 0x20e6a 00020e5a 0c 00 00 09 | | CMPI.B #0x09,D0 00020e5e 66 04 |f | BNE 0x20e64 00020e60 7e 0e |~ | MOVEQ.L #0x0e,D7 00020e62 60 06 |` | BRA 0x20e6a 00020e64 b0 01 | | CMP.B D1,D0 00020e66 66 02 |f | BNE 0x20e6a 00020e68 7e 0f |~ | MOVEQ.L #0x0f,D7 00020e6a 10 07 | | MOVE.B D7,D0 00020e6c 48 80 |H | EXTB.W D0 00020e6e 41 bc 00 0f |A | CHK.W #0xf,D0 00020e72 1f 00 | | MOVE.B D0,-(A7) 00020e74 41 fa f3 ca |A | LEA.L 0x20240,A0 00020e78 70 04 |p | MOVEQ.L #0x04,D0 00020e7a 3f 20 |? | MOVE.W -(A0),-(A7) 00020e7c 51 c8 ff fc |Q | DBF D0,0x20e7a 00020e80 4e ba fd 12 |N | JSR 0x20b94 00020e84 de fc 00 0c | | ADDA.W #0xc,A7 00020e88 4a 11 |J | TST.B (A1) 00020e8a 67 10 |g | BEQ 0x20e9c 00020e8c 41 fa f3 bc |A | LEA.L 0x2024a,A0 00020e90 70 04 |p | MOVEQ.L #0x04,D0 00020e92 3f 20 |? | MOVE.W -(A0),-(A7) 00020e94 51 c8 ff fc |Q | DBF D0,0x20e92 00020e98 4e 92 |N | JSR (A2) 00020e9a de c1 | | ADDA.W D1,A7 00020e9c 4a 11 |J | TST.B (A1) 00020e9e 67 10 |g | BEQ 0x20eb0 00020ea0 41 fa f3 b2 |A | LEA.L 0x20254,A0 00020ea4 70 04 |p | MOVEQ.L #0x04,D0 00020ea6 3f 20 |? | MOVE.W -(A0),-(A7) 00020ea8 51 c8 ff fc |Q | DBF D0,0x20ea6 00020eac 4e 92 |N | JSR (A2) 00020eae de c1 | | ADDA.W D1,A7 00020eb0 4a 11 |J | TST.B (A1) 00020eb2 67 10 |g | BEQ 0x20ec4 00020eb4 41 fa f3 a8 |A | LEA.L 0x2025e,A0 00020eb8 70 04 |p | MOVEQ.L #0x04,D0 00020eba 3f 20 |? | MOVE.W -(A0),-(A7) 00020ebc 51 c8 ff fc |Q | DBF D0,0x20eba 00020ec0 4e 92 |N | JSR (A2) 00020ec2 de c1 | | ADDA.W D1,A7 00020ec4 4a 11 |J | TST.B (A1) 00020ec6 67 10 |g | BEQ 0x20ed8 00020ec8 41 fa f3 9e |A | LEA.L 0x20268,A0 00020ecc 70 04 |p | MOVEQ.L #0x04,D0 00020ece 3f 20 |? | MOVE.W -(A0),-(A7) 00020ed0 51 c8 ff fc |Q | DBF D0,0x20ece 00020ed4 4e 92 |N | JSR (A2) 00020ed6 de c1 | | ADDA.W D1,A7 00020ed8 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 00020edc 4e 5e |N^ | UNLK A6 00020ede 4e 75 |Nu | RTS 00020ee0 ; -------------------------------------------------------------------------------------- 00020ee0 ; OMSI PASCAL Function 00020ee0 ; <LVAR 0x008 1(r)> 00020ee0 ; <LVAR -0x00a @> 00020ee0 ; -------------------------------------------------------------------------------------- 00020ee0 4e 56 ff cc |NV | LINK.W A6,#0xffcc 00020ee4 bf d5 | | CMPA.L (A5),A7 00020ee6 62 06 |b | BHI 0x20eee 00020ee8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020eec 4e 76 |Nv | TRAPV 00020eee de fc 00 2a | * | ADDA.W #0x2a,A7 00020ef2 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00020ef6 45 f9 00 02 12 cc |E | LEA.L 0x212cc,A2 00020efc 47 fa fb de |G | LEA.L 0x20adc,A3 00020f00 49 ee ff f6 |I | LEA.L (A6-0xa),A4 00020f04 72 0a |r | MOVEQ.L #0x0a,D1 00020f06 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00020f0a 0c 00 00 03 | | CMPI.B #0x03,D0 00020f0e 66 10 |f | BNE 0x20f20 00020f10 20 4c | L | MOVEA.L A4,A0 00020f12 43 fa f3 54 |C T | LEA.L 0x20268,A1 00020f16 70 04 |p | MOVEQ.L #0x04,D0 00020f18 30 d9 |0 | MOVE.W (A1)+,(A0)+ 00020f1a 51 c8 ff fc |Q | DBF D0,0x20f18 00020f1e 60 40 |`@ | BRA 0x20f60 00020f20 0c 00 00 04 | | CMPI.B #0x04,D0 00020f24 66 10 |f | BNE 0x20f36 00020f26 20 4c | L | MOVEA.L A4,A0 00020f28 43 fa f3 48 |C H | LEA.L 0x20272,A1 00020f2c 70 04 |p | MOVEQ.L #0x04,D0 00020f2e 30 d9 |0 | MOVE.W (A1)+,(A0)+ 00020f30 51 c8 ff fc |Q | DBF D0,0x20f2e 00020f34 60 2a |`* | BRA 0x20f60 00020f36 0c 00 00 05 | | CMPI.B #0x05,D0 00020f3a 66 10 |f | BNE 0x20f4c 00020f3c 20 4c | L | MOVEA.L A4,A0 00020f3e 43 fa f3 3c |C < | LEA.L 0x2027c,A1 00020f42 70 04 |p | MOVEQ.L #0x04,D0 00020f44 30 d9 |0 | MOVE.W (A1)+,(A0)+ 00020f46 51 c8 ff fc |Q | DBF D0,0x20f44 00020f4a 60 14 |` | BRA 0x20f60 00020f4c 0c 00 00 06 | | CMPI.B #0x06,D0 00020f50 66 0e |f | BNE 0x20f60 00020f52 20 4c | L | MOVEA.L A4,A0 00020f54 43 fa f3 30 |C 0 | LEA.L 0x20286,A1 00020f58 70 04 |p | MOVEQ.L #0x04,D0 00020f5a 30 d9 |0 | MOVE.W (A1)+,(A0)+ 00020f5c 51 c8 ff fc |Q | DBF D0,0x20f5a 00020f60 20 4e | N | MOVEA.L A6,A0 00020f62 70 04 |p | MOVEQ.L #0x04,D0 00020f64 3f 20 |? | MOVE.W -(A0),-(A7) 00020f66 51 c8 ff fc |Q | DBF D0,0x20f64 00020f6a 4e 93 |N | JSR (A3) 00020f6c de c1 | | ADDA.W D1,A7 00020f6e 4a 12 |J | TST.B (A2) 00020f70 67 10 |g | BEQ 0x20f82 00020f72 41 fa f3 26 |A & | LEA.L 0x2029a,A0 00020f76 70 04 |p | MOVEQ.L #0x04,D0 00020f78 3f 20 |? | MOVE.W -(A0),-(A7) 00020f7a 51 c8 ff fc |Q | DBF D0,0x20f78 00020f7e 4e 93 |N | JSR (A3) 00020f80 de c1 | | ADDA.W D1,A7 00020f82 4a 12 |J | TST.B (A2) 00020f84 67 10 |g | BEQ 0x20f96 00020f86 41 fa f3 1c |A | LEA.L 0x202a4,A0 00020f8a 70 04 |p | MOVEQ.L #0x04,D0 00020f8c 3f 20 |? | MOVE.W -(A0),-(A7) 00020f8e 51 c8 ff fc |Q | DBF D0,0x20f8c 00020f92 4e 93 |N | JSR (A3) 00020f94 de c1 | | ADDA.W D1,A7 00020f96 4a 12 |J | TST.B (A2) 00020f98 67 10 |g | BEQ 0x20faa 00020f9a 41 fa f3 12 |A | LEA.L 0x202ae,A0 00020f9e 70 04 |p | MOVEQ.L #0x04,D0 00020fa0 3f 20 |? | MOVE.W -(A0),-(A7) 00020fa2 51 c8 ff fc |Q | DBF D0,0x20fa0 00020fa6 4e 93 |N | JSR (A3) 00020fa8 de c1 | | ADDA.W D1,A7 00020faa 4a 12 |J | TST.B (A2) 00020fac 67 10 |g | BEQ 0x20fbe 00020fae 41 fa f3 08 |A | LEA.L 0x202b8,A0 00020fb2 70 04 |p | MOVEQ.L #0x04,D0 00020fb4 3f 20 |? | MOVE.W -(A0),-(A7) 00020fb6 51 c8 ff fc |Q | DBF D0,0x20fb4 00020fba 4e 93 |N | JSR (A3) 00020fbc de c1 | | ADDA.W D1,A7 00020fbe 4a 12 |J | TST.B (A2) 00020fc0 67 10 |g | BEQ 0x20fd2 00020fc2 41 fa f2 fe |A | LEA.L 0x202c2,A0 00020fc6 70 04 |p | MOVEQ.L #0x04,D0 00020fc8 3f 20 |? | MOVE.W -(A0),-(A7) 00020fca 51 c8 ff fc |Q | DBF D0,0x20fc8 00020fce 4e 93 |N | JSR (A3) 00020fd0 de c1 | | ADDA.W D1,A7 00020fd2 4a 12 |J | TST.B (A2) 00020fd4 67 10 |g | BEQ 0x20fe6 00020fd6 41 fa f2 f4 |A | LEA.L 0x202cc,A0 00020fda 70 04 |p | MOVEQ.L #0x04,D0 00020fdc 3f 20 |? | MOVE.W -(A0),-(A7) 00020fde 51 c8 ff fc |Q | DBF D0,0x20fdc 00020fe2 4e 93 |N | JSR (A3) 00020fe4 de c1 | | ADDA.W D1,A7 00020fe6 4a 12 |J | TST.B (A2) 00020fe8 67 10 |g | BEQ 0x20ffa 00020fea 41 fa f2 ea |A | LEA.L 0x202d6,A0 00020fee 70 04 |p | MOVEQ.L #0x04,D0 00020ff0 3f 20 |? | MOVE.W -(A0),-(A7) 00020ff2 51 c8 ff fc |Q | DBF D0,0x20ff0 00020ff6 4e 93 |N | JSR (A3) 00020ff8 de c1 | | ADDA.W D1,A7 00020ffa 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00020ffe 4e 5e |N^ | UNLK A6 00021000 4e 75 |Nu | RTS 00021002 ; -------------------------------------------------------------------------------------- 00021002 ; OMSI PASCAL Function 00021002 ; -------------------------------------------------------------------------------------- 00021002 4e 56 ff dc |NV | LINK.W A6,#0xffdc 00021006 bf d5 | | CMPA.L (A5),A7 00021008 62 06 |b | BHI 0x21010 0002100a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002100e 4e 76 |Nv | TRAPV 00021010 de fc 00 24 | $ | ADDA.W #0x24,A7 00021014 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 00021018 43 f9 00 02 12 cc |C | LEA.L 0x212cc,A1 0002101e 45 fa fa bc |E | LEA.L 0x20adc,A2 00021022 72 0a |r | MOVEQ.L #0x0a,D1 00021024 41 fa f2 ce |A | LEA.L 0x202f4,A0 00021028 70 04 |p | MOVEQ.L #0x04,D0 0002102a 3f 20 |? | MOVE.W -(A0),-(A7) 0002102c 51 c8 ff fc |Q | DBF D0,0x2102a 00021030 4e 92 |N | JSR (A2) 00021032 de c1 | | ADDA.W D1,A7 00021034 4a 11 |J | TST.B (A1) 00021036 67 10 |g | BEQ 0x21048 00021038 41 fa f2 c4 |A | LEA.L 0x202fe,A0 0002103c 70 04 |p | MOVEQ.L #0x04,D0 0002103e 3f 20 |? | MOVE.W -(A0),-(A7) 00021040 51 c8 ff fc |Q | DBF D0,0x2103e 00021044 4e 92 |N | JSR (A2) 00021046 de c1 | | ADDA.W D1,A7 00021048 4a 11 |J | TST.B (A1) 0002104a 67 10 |g | BEQ 0x2105c 0002104c 41 fa f2 ba |A | LEA.L 0x20308,A0 00021050 70 04 |p | MOVEQ.L #0x04,D0 00021052 3f 20 |? | MOVE.W -(A0),-(A7) 00021054 51 c8 ff fc |Q | DBF D0,0x21052 00021058 4e 92 |N | JSR (A2) 0002105a de c1 | | ADDA.W D1,A7 0002105c 4a 11 |J | TST.B (A1) 0002105e 67 10 |g | BEQ 0x21070 00021060 41 fa f2 b0 |A | LEA.L 0x20312,A0 00021064 70 04 |p | MOVEQ.L #0x04,D0 00021066 3f 20 |? | MOVE.W -(A0),-(A7) 00021068 51 c8 ff fc |Q | DBF D0,0x21066 0002106c 4e 92 |N | JSR (A2) 0002106e de c1 | | ADDA.W D1,A7 00021070 4a 11 |J | TST.B (A1) 00021072 67 10 |g | BEQ 0x21084 00021074 41 fa f2 a6 |A | LEA.L 0x2031c,A0 00021078 70 04 |p | MOVEQ.L #0x04,D0 0002107a 3f 20 |? | MOVE.W -(A0),-(A7) 0002107c 51 c8 ff fc |Q | DBF D0,0x2107a 00021080 4e 92 |N | JSR (A2) 00021082 de c1 | | ADDA.W D1,A7 00021084 4a 11 |J | TST.B (A1) 00021086 67 18 |g | BEQ 0x210a0 00021088 1f 3c 00 08 | < | MOVE.B #0x08,-(A7) 0002108c 41 fa f2 98 |A | LEA.L 0x20326,A0 00021090 70 04 |p | MOVEQ.L #0x04,D0 00021092 3f 20 |? | MOVE.W -(A0),-(A7) 00021094 51 c8 ff fc |Q | DBF D0,0x21092 00021098 4e ba fa fa |N | JSR 0x20b94 0002109c de fc 00 0c | | ADDA.W #0xc,A7 000210a0 4a 11 |J | TST.B (A1) 000210a2 67 10 |g | BEQ 0x210b4 000210a4 41 fa f2 8a |A | LEA.L 0x20330,A0 000210a8 70 04 |p | MOVEQ.L #0x04,D0 000210aa 3f 20 |? | MOVE.W -(A0),-(A7) 000210ac 51 c8 ff fc |Q | DBF D0,0x210aa 000210b0 4e 92 |N | JSR (A2) 000210b2 de c1 | | ADDA.W D1,A7 000210b4 4a 11 |J | TST.B (A1) 000210b6 67 10 |g | BEQ 0x210c8 000210b8 41 fa f2 80 |A | LEA.L 0x2033a,A0 000210bc 70 04 |p | MOVEQ.L #0x04,D0 000210be 3f 20 |? | MOVE.W -(A0),-(A7) 000210c0 51 c8 ff fc |Q | DBF D0,0x210be 000210c4 4e 92 |N | JSR (A2) 000210c6 de c1 | | ADDA.W D1,A7 000210c8 4a 11 |J | TST.B (A1) 000210ca 67 10 |g | BEQ 0x210dc 000210cc 41 fa f2 76 |A v | LEA.L 0x20344,A0 000210d0 70 04 |p | MOVEQ.L #0x04,D0 000210d2 3f 20 |? | MOVE.W -(A0),-(A7) 000210d4 51 c8 ff fc |Q | DBF D0,0x210d2 000210d8 4e 92 |N | JSR (A2) 000210da de c1 | | ADDA.W D1,A7 000210dc 4a 11 |J | TST.B (A1) 000210de 67 10 |g | BEQ 0x210f0 000210e0 41 fa f2 6c |A l | LEA.L 0x2034e,A0 000210e4 70 04 |p | MOVEQ.L #0x04,D0 000210e6 3f 20 |? | MOVE.W -(A0),-(A7) 000210e8 51 c8 ff fc |Q | DBF D0,0x210e6 000210ec 4e 92 |N | JSR (A2) 000210ee de c1 | | ADDA.W D1,A7 000210f0 4a 11 |J | TST.B (A1) 000210f2 67 10 |g | BEQ 0x21104 000210f4 41 fa f2 62 |A b | LEA.L 0x20358,A0 000210f8 70 04 |p | MOVEQ.L #0x04,D0 000210fa 3f 20 |? | MOVE.W -(A0),-(A7) 000210fc 51 c8 ff fc |Q | DBF D0,0x210fa 00021100 4e 92 |N | JSR (A2) 00021102 de c1 | | ADDA.W D1,A7 00021104 4a 11 |J | TST.B (A1) 00021106 67 10 |g | BEQ 0x21118 00021108 41 fa f2 58 |A X | LEA.L 0x20362,A0 0002110c 70 04 |p | MOVEQ.L #0x04,D0 0002110e 3f 20 |? | MOVE.W -(A0),-(A7) 00021110 51 c8 ff fc |Q | DBF D0,0x2110e 00021114 4e 92 |N | JSR (A2) 00021116 de c1 | | ADDA.W D1,A7 00021118 4a 11 |J | TST.B (A1) 0002111a 67 10 |g | BEQ 0x2112c 0002111c 41 fa f2 4e |A N | LEA.L 0x2036c,A0 00021120 70 04 |p | MOVEQ.L #0x04,D0 00021122 3f 20 |? | MOVE.W -(A0),-(A7) 00021124 51 c8 ff fc |Q | DBF D0,0x21122 00021128 4e 92 |N | JSR (A2) 0002112a de c1 | | ADDA.W D1,A7 0002112c 4a 11 |J | TST.B (A1) 0002112e 67 10 |g | BEQ 0x21140 00021130 41 fa f2 4e |A N | LEA.L 0x20380,A0 00021134 70 04 |p | MOVEQ.L #0x04,D0 00021136 3f 20 |? | MOVE.W -(A0),-(A7) 00021138 51 c8 ff fc |Q | DBF D0,0x21136 0002113c 4e 92 |N | JSR (A2) 0002113e de c1 | | ADDA.W D1,A7 00021140 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 00021144 4e 5e |N^ | UNLK A6 00021146 4e 75 |Nu | RTS 00021148 ; -------------------------------------------------------------------------------------- 00021148 ; OMSI PASCAL Function 00021148 ; -------------------------------------------------------------------------------------- 00021148 START: 00021148 4f fa 00 08 |O | LEA.L MAIN,A7 0002114c 4e f9 00 01 02 80 |N | JMP ?start_program 00021152 MAIN: 00021152 45 f9 00 02 12 e8 |E | LEA.L 0x212e8,A2 00021158 47 f9 00 02 12 c8 |G | LEA.L 0x212c8,A3 0002115e 49 f9 00 02 12 ce |I | LEA.L 0x212ce,A4 00021164 74 0b |t | MOVEQ.L #0x0b,D2 00021166 4e b9 00 01 03 98 |N | JSR FSCALL_10398 0002116c 48 53 |HS | PEA.L (A3) 0002116e 48 79 00 02 12 ca |Hy | PEA.L 0x212ca 00021174 48 79 00 02 12 cb |Hy | PEA.L 0x212cb 0002117a 4e ba f4 88 |N | JSR 0x20604 0002117e de fc 00 0c | | ADDA.W #0xc,A7 00021182 48 54 |HT | PEA.L (A4) 00021184 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002118a 58 4f |XO | ADDQ.L #0x4,A7 0002118c 42 80 |B | CLR.L D0 0002118e 10 13 | | MOVE.B (A3),D0 00021190 41 82 |A | CHK.W D2,D0 00021192 13 c0 00 02 12 c9 | | MOVE.B D0,0x212c9 00021198 14 bc 00 01 | | MOVE.B #0x01,(A2) 0002119c 12 00 | | MOVE.B D0,D1 0002119e 48 81 |H | EXTB.W D1 000211a0 30 01 |0 | MOVE.W D1,D0 000211a2 b0 42 | B | CMP.W D2,D0 000211a4 63 02 |c | BLS 0x211a8 000211a6 4e 4e |NN | TRAP #14 000211a8 d0 40 | @ | ADD.W D0,D0 000211aa 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000211b2 00 18 | | .CONST 0x18 ; [0x0] -> 0x211ca 000211b4 00 1e | | .CONST 0x1e ; [0x1] -> 0x211d0 000211b6 00 20 | | .CONST 0x20 ; [0x2] -> 0x211d2 000211b8 00 26 | & | .CONST 0x26 ; [0x3] -> 0x211d8 000211ba 00 26 | & | .CONST 0x26 ; [0x4] -> 0x211d8 000211bc 00 26 | & | .CONST 0x26 ; [0x5] -> 0x211d8 000211be 00 26 | & | .CONST 0x26 ; [0x6] -> 0x211d8 000211c0 00 30 | 0 | .CONST 0x30 ; [0x7] -> 0x211e2 000211c2 00 30 | 0 | .CONST 0x30 ; [0x8] -> 0x211e2 000211c4 00 30 | 0 | .CONST 0x30 ; [0x9] -> 0x211e2 000211c6 00 30 | 0 | .CONST 0x30 ; [0xa] -> 0x211e2 000211c8 00 38 | 8 | .CONST 0x38 ; [0xb] -> 0x211ea 000211ca switch@0x211aa[0x0]: 000211ca 4e ba fe 36 |N 6 | JSR 0x21002 000211ce 60 30 |`0 | BRA 0x21200 000211d0 switch@0x211aa[0x1]: 000211d0 60 2e |`. | BRA 0x21200 000211d2 switch@0x211aa[0x2]: 000211d2 4e ba fb 72 |N r | JSR 0x20d46 000211d6 60 28 |`( | BRA 0x21200 000211d8 switch@0x211aa[0x3]: 000211d8 switch@0x211aa[0x4]: 000211d8 switch@0x211aa[0x5]: 000211d8 switch@0x211aa[0x6]: 000211d8 1f 01 | | MOVE.B D1,-(A7) 000211da 4e ba fd 04 |N | JSR 0x20ee0 000211de 54 4f |TO | ADDQ.L #0x2,A7 000211e0 60 1e |` | BRA 0x21200 000211e2 switch@0x211aa[0x7]: 000211e2 switch@0x211aa[0x8]: 000211e2 switch@0x211aa[0x9]: 000211e2 switch@0x211aa[0xa]: 000211e2 1f 01 | | MOVE.B D1,-(A7) 000211e4 4e ba fc 3a |N : | JSR 0x20e20 000211e8 60 f4 |` | BRA 0x211de 000211ea switch@0x211aa[0xb]: 000211ea 42 12 |B | CLR.B (A2) 000211ec 41 fa f1 b0 |A | LEA.L EXP_FAIL,A0 000211f0 70 04 |p | MOVEQ.L #0x04,D0 000211f2 3f 20 |? | MOVE.W -(A0),-(A7) 000211f4 51 c8 ff fc |Q | DBF D0,0x211f2 000211f8 4e ba f8 e2 |N | JSR 0x20adc 000211fc de fc 00 0a | | ADDA.W #0xa,A7 00021200 4a 39 00 02 12 cc |J9 | TST.B 0x212cc 00021206 67 08 |g | BEQ 0x21210 00021208 4a 12 |J | TST.B (A2) 0002120a 67 04 |g | BEQ 0x21210 0002120c 4e ba f8 06 |N | JSR 0x20a14 00021210 1f 39 00 02 12 cc | 9 | MOVE.B 0x212cc,-(A7) 00021216 2f 14 |/ | MOVE.L (A4),-(A7) 00021218 2f 39 00 02 12 d2 |/9 | MOVE.L 0x212d2,-(A7) 0002121e 2f 39 00 02 12 d6 |/9 | MOVE.L 0x212d6,-(A7) 00021224 1f 39 00 02 12 da | 9 | MOVE.B 0x212da,-(A7) 0002122a 51 4f |QO | SUBQ.L #0x8,A7 0002122c 20 4f | O | MOVEA.L A7,A0 0002122e 43 f9 00 02 12 db |C | LEA.L 0x212db,A1 00021234 70 07 |p | MOVEQ.L #0x07,D0 00021236 10 d9 | | MOVE.B (A1)+,(A0)+ 00021238 51 c8 ff fc |Q | DBF D0,0x21236 0002123c 4e ba f4 24 |N $ | JSR 0x20662 00021240 de fc 00 18 | | ADDA.W #0x18,A7 00021244 4e b9 00 01 02 84 |N | JSR ?exit 0002124a 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00021258 ; -------------------------------------------------------------------------------------- 00021258 ; OMSI PASCAL Function 00021258 ; <LVAR 0x008 1(r)> 00021258 ; -------------------------------------------------------------------------------------- 00021258 PROG_FAIL: 00021258 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 0002125c bf d5 | | CMPA.L (A5),A7 0002125e 62 06 |b | BHI 0x21266 00021260 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021264 4e 76 |Nv | TRAPV 00021266 de fc 00 2c | , | ADDA.W #0x2c,A7 0002126a 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002126e 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00021272 70 06 |p | MOVEQ.L #0x06,D0 00021274 3f 20 |? | MOVE.W -(A0),-(A7) 00021276 51 c8 ff fc |Q | DBF D0,0x21274 0002127a 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 0002127e 51 4f |QO | SUBQ.L #0x8,A7 00021280 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00021284 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021288 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 0002128c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021292 58 4f |XO | ADDQ.L #0x4,A7 00021294 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00021298 48 80 |H | EXTB.W D0 0002129a 48 c0 |H | EXTW.L D0 0002129c 2f 00 |/ | MOVE.L D0,-(A7) 0002129e 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000212a4 58 4f |XO | ADDQ.L #0x4,A7 000212a6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000212ac 50 4f |PO | ADDQ.L #0x8,A7 000212ae 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000212b4 de fc 00 14 | | ADDA.W #0x14,A7 000212b8 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000212bc 4e 5e |N^ | UNLK A6 000212be 4e 75 |Nu | RTS