|
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: 4096 (0x1000)
Types: M200
Notes: M200_PROGRAM
Names: »P1FRU.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »P1FRU.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »P1FRU.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »P1FRU.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »P1FRU.M200«
└─ ⟦this⟧ »P1FRU.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »P1FRU.M200«
@ 20456
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 20456-20592 Body>
<POP 20456-2046c Prologue> Σ0 ↓
<POP 2046c-20482 RegCacheLoad> Σ0 ↓
<POP 20482-204e2 Naked> Σ0 ↓ →0x2052a
<Call 0x20482 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x20488 [18] @> Δ-18 {[«18""»]}
<POP 20494-20496 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20496 18> {[«18""»]|[$$Experiment error :]}
<Call 0x204a2 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 204a4-204a5 StackAdj> Δ+22 ↓ {}
<Blob 0x204a5 [14] @> Δ-14 {[«14""»]}
<POP 204b4-204b6 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x204b6 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 204c0-204c2 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 204c2 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x204c6 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 204cc-204ce StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x204ce 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 204d4-204d6 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x204d6 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 204d8-204da StackAdj> Δ+18 {}
<MI 204da MOVEA.L (A6+0xa),A0> {}
<MI 204de CMPA.W #0x01,A0> {}
<MI 204e0 BEQ 0x2052a> {}
<POP 204e2-2052a Naked> Σ0 ↓
<Blob 0x204e2 [14] @> Δ-14 {[«14""»]}
<Blob 0x204f2 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 20502-20504 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x20504 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 2050e-20510 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x20510> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x20510 12> Δ-4
<Const 0x20514 0x1.2> Δ-2
<Const 0x20516 0x1e.2> Δ-2
<Call 0x20518 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2051a-2051c StackAdj> Δ+8
<Call 0x2051c 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20522-20524 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x20524 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20526-2052a StackAdj> Δ+48 {}
<POP 2052a-2058a Naked> Σ0 ↓ ←0x20482
<Blob 0x2052a [14] @> Δ-14 {[«14""»]}
<POP 2053a-2053c StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x2053c 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 20546-20548 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 20548 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x2054c 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 20552-20554 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x20554 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2055a-2055c StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2055c 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2055e-2055f StackAdj> Δ+18 ↓ {}
<Blob 0x2055f [24] @> Δ-24 {[«24""»]}
<Const 0x2056e 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 20572-20574 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x20574 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x20582 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 20588-2058a StackAdj> Δ+30 {}
<POP 2058a-20592 Epilogue> Σ0
@ 20592
<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 20592-206bc Body>
<POP 20592-205a8 Prologue> Σ0 ↓
<POP 205a8-205b6 RegCacheLoad> Σ0 ↓
<POP 205b6-20656 Naked> Σ0 ↓ →0x206b4
<Blob 0x205b6 [2] @> Δ-2 {[«2""»]}
<POP 205ba-205bc StackAdj> Δ-4 {[«2""»]|[-4-]}
<POP 205bc-205bd StackAdj> Δ+2 {[«2""»]|[-2-]}
<Blob 0x205bd [2] @> Δ-2 {[«2""»]|[-2-]|[«2""»]}
<MI 205c0 MOVE.B 0x2016d,(A7+0x1)> {[«2""»]|[-2-]|[«2""»]}
<MI 205c6 MOVE.B 0x2016e,(A7+0x2)> {[«2""»]|[-2-]|[«2""»]}
<POP 205cc-205ce StackAdj> Δ-8 {[«2""»]|[-2-]|[«2""»]|[-8-]}
<Lit 0x205ce 2> {[«2""»]|[-2-]|[«2""»]|[-4-]|[$$P ]}
<MI 205de MOVE.L (A6+0x2a),(A7)> {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']}
<POP 205d8-205de StackAdj> Δ-8 {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-8-]}
<Call 0x205e2 0x102e4> {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-8-]}
Long2String(a : Long) : String
<Lit 0x205e8> {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-4-]|[$$…]}
<Pointer.sp 0x205e8 16> Δ-4
<Const 0x205ec 0x1.2> Δ-2
<Const 0x205ee 0x3.2> Δ-2
<Call 0x205f2 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 205f8-205fa StackAdj> Δ+8
<Call 0x205fa 0x102d4> {[«2""»]|[-2-]|[«2""»]|[-4-]|[4, '(A6+0x2a)']|[-4-]|[$$…]}
StringCat3(a, b, c : String) : String
<POP 20600-20602 StackAdj> Δ+12 {[«2""»]|[-2-]|[«2""»]|[-4-]}
<MI 20602 MOVEA.L (A7)+,A4> Δ+4 {[«2""»]|[-2-]|[«2""»]}
<POP 20604-20606 StackAdj> Δ+6 {}
<Call 0x20606 0x10538> {}
IPC_Init(void)
<MI 2060c MOVE.B (A6+0x28),-(A7)> Δ-2 {[2, '(A6+0x28)']}
<MI 20610 PEA.L (A7)> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']}
<Const 0x20612 0x0.4> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]}
<Const 0x20614 0x0.4> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
<Call 0x20616 0x104fc> {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
IPC_PutVar(src : Pointer; length : Long ; type : Long)
<POP 2061c-2061e StackAdj> Δ+12 {[2, '(A6+0x28)']}
<MI 2061e MOVE.B (A6+0x26),(A7)> {[-2-]}
<Call 0x20622 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<MI 20628 MOVE.B (A6+0x24),(A7)> {[-2-]}
<Call 0x2062c 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<POP 20632-20634 StackAdj> Δ+2 {}
<Call 0x20634 0x10514> {}
IPC_PutEnd(void)
<MI 2063a MOVEA.L (A6+0x8),A0> {}
<MI 2063e MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Const 0x20640 0x1.4> Δ-4 {[4, 'A4']|[##1]}
<Const 0x20644 0x1.2> Δ-2 {[4, 'A4']|[##1]|[#1]}
<MI 20646 PEA.L (A0)> Δ-4 {[4, 'A4']|[##1]|[#1]|[4, '^(A0)']}
<Call 0x20648 0x103b0> {[4, 'A4']|[##1]|[#1]|[4, '^(A0)']}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 2064e-20652 StackAdj> Δ+14 {}
<MI 20652 TST.B (A0)> {}
<MI 20654 BNE 0x206b4> {}
<POP 20656-206b4 Naked> Σ0 ↓
<Call 0x20656 0x10538> {}
IPC_Init(void)
<MI 2065c MOVEA.L (A6+0x20),A0> {}
<MI 20660 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x20662 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 20668-2066a StackAdj> Δ+4 {}
<MI 2066a MOVEA.L (A6+0x1c),A0> {}
<MI 2066e PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x20670 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 20672-20674 StackAdj> Δ+4 {}
<MI 20674 MOVEA.L (A6+0x18),A0> {}
<MI 20678 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x2067a 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 2067c-2067e StackAdj> Δ+4 {}
<MI 2067e MOVEA.L (A6+0x14),A0> {}
<MI 20682 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x20684 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 20686-20688 StackAdj> Δ+4 {}
<MI 20688 MOVEA.L (A6+0x10),A0> {}
<MI 2068c PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x2068e 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x20690 0x0.4> Δ-4 {[4, '^(A0)']|[##0]|[##0]}
<Call 0x20692 0x10520> {[4, '^(A0)']|[##0]|[##0]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 20698-2069a StackAdj> Δ+12 {}
<MI 2069a MOVEA.L (A6+0xc),A0> {}
<MI 2069e PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x206a0 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x206a2 0x7.4> Δ-4 {[4, '^(A0)']|[##0]|[##7]}
<Call 0x206a6 0x10520> {[4, '^(A0)']|[##0]|[##7]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 206ac-206ae StackAdj> Δ+12 {}
<Call 0x206ae 0x1051a> {}
IPC_GetEnd(void)
<POP 206b4-206bc Epilogue> Σ0 ←0x205b6
@ 206bc
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 206bc-2071a Body>
<POP 206bc-206d2 Prologue> Σ0 ↓
<POP 206d2-20712 Naked> Σ0 ↓
<Call 0x206d2 0x10538> {}
IPC_Init(void)
<MI 206d8 MOVEA.L (A6+0x10),A0> {}
<MI 206dc PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x206de 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x206e2 0x0.4> Δ-4 {[4, '^(A0)']|[##0]|[##0]}
<Call 0x206e6 0x10520> {[4, '^(A0)']|[##0]|[##0]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 206ec-206f0 StackAdj> Δ+12 {}
<MI 206f0 MOVEA.L (A6+0xc),A0> {}
<MI 206f4 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x206f6 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 206fc-206fe StackAdj> Δ+4 {}
<MI 206fe MOVEA.L (A6+0x8),A0> {}
<MI 20702 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x20704 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 2070a-2070c StackAdj> Δ+4 {}
<Call 0x2070c 0x1051a> {}
IPC_GetEnd(void)
<POP 20712-2071a Epilogue> Σ0
@ 2071a
<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 2071a-207aa Body>
<POP 2071a-20730 Prologue> Σ0 ↓
<POP 20730-2073a RegCacheLoad> Σ0 ↓
<POP 2073a-207a2 Naked> Σ0 ↓
<Call 0x2073a 0x10538> {}
IPC_Init(void)
<MI 20740 MOVE.B (A6+0x1e),-(A7)> Δ-2 {[2, '(A6+0x1e)']}
<Call 0x20744 0x10502> {[2, '(A6+0x1e)']}
IPC_PutBool(a : Bool)
<POP 2074a-2074c StackAdj> Δ+2 {}
<MI 2074c MOVE.L (A6+0x1a),-(A7)> Δ-4 {[4, '(A6+0x1a)']}
<Call 0x20750 0x10508> {[4, '(A6+0x1a)']}
IPC_PutString(a : String)
<MI 20752 MOVE.L (A6+0x16),(A7)> {[4, '(A6+0x16)']}
<Call 0x20756 0x10508> {[4, '(A6+0x16)']}
IPC_PutString(a : String)
<MI 20758 MOVE.L (A6+0x12),(A7)> {[4, '(A6+0x12)']}
<Call 0x2075c 0x10508> {[4, '(A6+0x12)']}
IPC_PutString(a : String)
<POP 2075e-20760 StackAdj> Δ+2 {[-2-]}
<MI 20760 MOVE.B (A6+0x10),(A7)> {[-2-]}
<MI 20764 PEA.L (A7)> Δ-4 {[-2-]|[4, '^(A7)']}
<Const 0x20766 0x0.4> Δ-4 {[-2-]|[4, '^(A7)']|[##0]}
<Const 0x20768 0x0.4> Δ-4 {[-2-]|[4, '^(A7)']|[##0]|[##0]}
<Call 0x2076a 0x104fc> {[-2-]|[4, '^(A7)']|[##0]|[##0]}
IPC_PutVar(src : Pointer; length : Long ; type : Long)
<POP 20770-20774 StackAdj> Δ+10 {[-2-]|[-2-]}
<MI 20774 MOVE.L (A6+0xc),(A7)> {[4, '(A6+0xc)']}
<MI 20778 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 2077c PEA.L (A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']}
<Const 0x2077e 0x0.4> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]}
<Const 0x20780 0x7.4> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]|[##7]}
<Call 0x20784 0x104fc> {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '^(A7)']|[##0]|[##7]}
IPC_PutVar(src : Pointer; length : Long ; type : Long)
<POP 2078a-2078e StackAdj> Δ+20 {}
<Call 0x2078e 0x10514> {}
IPC_PutEnd(void)
<MI 20794 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x20796 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x2079a 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 207a0-207a2 StackAdj> Δ+6 {}
<POP 207a2-207aa Epilogue> Σ0
@ 207aa
<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 207aa-208a6 Body>
<POP 207aa-207c0 Prologue> Σ0 ↓
<POP 207c0-207c8 RegCacheLoad> Σ0 ↓
<POP 207c8-20842 Naked> Σ0 ↓ →0x2089e
<Call 0x207c8 0x10538> {}
IPC_Init(void)
<MI 207ce MOVE.B (A6+0x22),-(A7)> Δ-2 {[2, '(A6+0x22)']}
<Call 0x207d2 0x10502> {[2, '(A6+0x22)']}
IPC_PutBool(a : Bool)
<MI 207d8 MOVE.B (A6+0x20),(A7)> {[-2-]}
<Call 0x207dc 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<POP 207e2-207e4 StackAdj> Δ+2 {}
<Call 0x207e4 0x10514> {}
IPC_PutEnd(void)
<Blob 0x207ea [4] @> Δ-4 {[«4""»]}
<Blob 0x207ee [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x207f2 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 207f6-207f8 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x207f8 12> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
<MI 20806 MOVE.L (A6+0x24),(A7)> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']}
<POP 20800-20806 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
<Call 0x2080a 0x102cc> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
StringDup(a : String) : String
<POP 20810-20812 StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
<Call 0x20812 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
StringCat2(a, b : String) : String
<POP 20818-2081a StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x2081a 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20820-20824 StackAdj> Δ+16 {}
<MI 20824 MOVEA.L (A6+0x8),A0> {}
<MI 20828 MOVE.L (A6+0x24),-(A7)> Δ-4 {[4, '(A6+0x24)']}
<Const 0x2082c 0x1.4> Δ-4 {[4, '(A6+0x24)']|[##1]}
<Const 0x20830 0x1.2> Δ-2 {[4, '(A6+0x24)']|[##1]|[#1]}
<MI 20832 PEA.L (A0)> Δ-4 {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
<Call 0x20834 0x103b0> {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 2083a-2083e StackAdj> Δ+14 {}
<MI 2083e TST.B (A0)> {}
<MI 20840 BNE 0x2089e> {}
<POP 20842-2089e Naked> Σ0 ↓
<Call 0x20842 0x10538> {}
IPC_Init(void)
<MI 20848 MOVEA.L (A6+0x1c),A0> {}
<MI 2084c PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x2084e 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 20854-20856 StackAdj> Δ+4 {}
<MI 20856 MOVEA.L (A6+0x18),A0> {}
<MI 2085a PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x2085c 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 20862-20864 StackAdj> Δ+4 {}
<MI 20864 MOVEA.L (A6+0x14),A0> {}
<MI 20868 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x2086a 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 20870-20872 StackAdj> Δ+4 {}
<MI 20872 MOVEA.L (A6+0x10),A0> {}
<MI 20876 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x20878 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x2087a 0x0.4> Δ-4 {[4, '^(A0)']|[##0]|[##0]}
<Call 0x2087c 0x10520> {[4, '^(A0)']|[##0]|[##0]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 20882-20884 StackAdj> Δ+12 {}
<MI 20884 MOVEA.L (A6+0xc),A0> {}
<MI 20888 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x2088a 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x2088c 0x7.4> Δ-4 {[4, '^(A0)']|[##0]|[##7]}
<Call 0x20890 0x10520> {[4, '^(A0)']|[##0]|[##7]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 20896-20898 StackAdj> Δ+12 {}
<Call 0x20898 0x1051a> {}
IPC_GetEnd(void)
<POP 2089e-208a6 Epilogue> Σ0 ←0x207c8
@ 208a6
<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 208a6-209b4 Body>
<POP 208a6-208bc Prologue> Σ0 ↓
<POP 208bc-208c4 RegCacheLoad> Σ0 ↓
<POP 208c4-20950 Naked> Σ0 ↓ →0x209ac
<Call 0x208c4 0x10538> {}
IPC_Init(void)
<MI 208ca MOVE.B (A6+0x28),-(A7)> Δ-2 {[2, '(A6+0x28)']}
<MI 208ce PEA.L (A7)> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']}
<Const 0x208d0 0x0.4> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]}
<Const 0x208d2 0x0.4> Δ-4 {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
<Call 0x208d4 0x104fc> {[2, '(A6+0x28)']|[4, '^(A7)']|[##0]|[##0]}
IPC_PutVar(src : Pointer; length : Long ; type : Long)
<POP 208da-208dc StackAdj> Δ+12 {[2, '(A6+0x28)']}
<MI 208dc MOVE.B (A6+0x22),(A7)> {[-2-]}
<Call 0x208e0 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<MI 208e6 MOVE.B (A6+0x20),(A7)> {[-2-]}
<Call 0x208ea 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<POP 208f0-208f2 StackAdj> Δ+2 {}
<Call 0x208f2 0x10514> {}
IPC_PutEnd(void)
<Blob 0x208f8 [4] @> Δ-4 {[«4""»]}
<Blob 0x208fc [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20900 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 20904-20906 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x20906 12> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
<MI 20914 MOVE.L (A6+0x24),(A7)> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']}
<POP 2090e-20914 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
<Call 0x20918 0x102cc> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-8-]}
StringDup(a : String) : String
<POP 2091e-20920 StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
<Call 0x20920 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x24)']|[-4-]}
StringCat2(a, b : String) : String
<POP 20926-20928 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x20928 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2092e-20932 StackAdj> Δ+16 {}
<MI 20932 MOVEA.L (A6+0x8),A0> {}
<MI 20936 MOVE.L (A6+0x24),-(A7)> Δ-4 {[4, '(A6+0x24)']}
<Const 0x2093a 0x1.4> Δ-4 {[4, '(A6+0x24)']|[##1]}
<Const 0x2093e 0x1.2> Δ-2 {[4, '(A6+0x24)']|[##1]|[#1]}
<MI 20940 PEA.L (A0)> Δ-4 {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
<Call 0x20942 0x103b0> {[4, '(A6+0x24)']|[##1]|[#1]|[4, '^(A0)']}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 20948-2094c StackAdj> Δ+14 {}
<MI 2094c TST.B (A0)> {}
<MI 2094e BNE 0x209ac> {}
<POP 20950-209ac Naked> Σ0 ↓
<Call 0x20950 0x10538> {}
IPC_Init(void)
<MI 20956 MOVEA.L (A6+0x1c),A0> {}
<MI 2095a PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x2095c 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 20962-20964 StackAdj> Δ+4 {}
<MI 20964 MOVEA.L (A6+0x18),A0> {}
<MI 20968 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x2096a 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 20970-20972 StackAdj> Δ+4 {}
<MI 20972 MOVEA.L (A6+0x14),A0> {}
<MI 20976 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x20978 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 2097e-20980 StackAdj> Δ+4 {}
<MI 20980 MOVEA.L (A6+0x10),A0> {}
<MI 20984 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x20986 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x20988 0x0.4> Δ-4 {[4, '^(A0)']|[##0]|[##0]}
<Call 0x2098a 0x10520> {[4, '^(A0)']|[##0]|[##0]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 20990-20992 StackAdj> Δ+12 {}
<MI 20992 MOVEA.L (A6+0xc),A0> {}
<MI 20996 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x20998 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x2099a 0x7.4> Δ-4 {[4, '^(A0)']|[##0]|[##7]}
<Call 0x2099e 0x10520> {[4, '^(A0)']|[##0]|[##7]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 209a4-209a6 StackAdj> Δ+12 {}
<Call 0x209a6 0x1051a> {}
IPC_GetEnd(void)
<POP 209ac-209b4 Epilogue> Σ0 ←0x208c4
@ 209b4
<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 209b4-20acc Body>
<POP 209b4-209ca Prologue> Σ0 ↓
<POP 209ca-209d8 RegCacheLoad> Σ0 ↓
<POP 209d8-20a68 Naked> Σ0 ↓ →0x20ac4
<Call 0x209d8 0x10538> {}
IPC_Init(void)
<MI 209de MOVE.B (A6+0x2c),-(A7)> Δ-2 {[2, '(A6+0x2c)']}
<MI 209e2 PEA.L (A7)> Δ-4 {[2, '(A6+0x2c)']|[4, '^(A7)']}
<Const 0x209e4 0x0.4> Δ-4 {[2, '(A6+0x2c)']|[4, '^(A7)']|[##0]}
<Const 0x209e6 0x0.4> Δ-4 {[2, '(A6+0x2c)']|[4, '^(A7)']|[##0]|[##0]}
<Call 0x209e8 0x104fc> {[2, '(A6+0x2c)']|[4, '^(A7)']|[##0]|[##0]}
IPC_PutVar(src : Pointer; length : Long ; type : Long)
<POP 209ee-209f0 StackAdj> Δ+12 {[2, '(A6+0x2c)']}
<MI 209f0 MOVE.B (A6+0x26),(A7)> {[-2-]}
<Call 0x209f4 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<MI 209f6 MOVE.B (A6+0x24),(A7)> {[-2-]}
<Call 0x209fa 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<MI 209fc MOVE.B (A6+0x22),(A7)> {[-2-]}
<Call 0x20a00 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<MI 20a02 MOVE.B (A6+0x20),(A7)> {[-2-]}
<Call 0x20a06 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<POP 20a08-20a0a StackAdj> Δ+2 {}
<Call 0x20a0a 0x10514> {}
IPC_PutEnd(void)
<Blob 0x20a10 [4] @> Δ-4 {[«4""»]}
<Blob 0x20a14 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20a18 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 20a1c-20a1e StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x20a1e 12> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Running FRU_]}
<MI 20a2c MOVE.L (A6+0x28),(A7)> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']}
<POP 20a26-20a2c StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-8-]}
<Call 0x20a30 0x102cc> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-8-]}
StringDup(a : String) : String
<POP 20a36-20a38 StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-4-]}
<Call 0x20a38 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[-4-]|[4, '(A6+0x28)']|[-4-]}
StringCat2(a, b : String) : String
<POP 20a3e-20a40 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x20a40 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20a46-20a4a StackAdj> Δ+16 {}
<MI 20a4a MOVEA.L (A6+0x8),A0> {}
<MI 20a4e MOVE.L (A6+0x28),-(A7)> Δ-4 {[4, '(A6+0x28)']}
<Const 0x20a52 0x1.4> Δ-4 {[4, '(A6+0x28)']|[##1]}
<Const 0x20a56 0x1.2> Δ-2 {[4, '(A6+0x28)']|[##1]|[#1]}
<MI 20a58 PEA.L (A0)> Δ-4 {[4, '(A6+0x28)']|[##1]|[#1]|[4, '^(A0)']}
<Call 0x20a5a 0x103b0> {[4, '(A6+0x28)']|[##1]|[#1]|[4, '^(A0)']}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 20a60-20a64 StackAdj> Δ+14 {}
<MI 20a64 TST.B (A0)> {}
<MI 20a66 BNE 0x20ac4> {}
<POP 20a68-20ac4 Naked> Σ0 ↓
<Call 0x20a68 0x10538> {}
IPC_Init(void)
<MI 20a6e MOVEA.L (A6+0x1c),A0> {}
<MI 20a72 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x20a74 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 20a7a-20a7c StackAdj> Δ+4 {}
<MI 20a7c MOVEA.L (A6+0x18),A0> {}
<MI 20a80 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x20a82 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 20a88-20a8a StackAdj> Δ+4 {}
<MI 20a8a MOVEA.L (A6+0x14),A0> {}
<MI 20a8e PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x20a90 0x1052c> {[4, '^(A0)']}
IPC_GetString(VAR retval : String)
<POP 20a96-20a98 StackAdj> Δ+4 {}
<MI 20a98 MOVEA.L (A6+0x10),A0> {}
<MI 20a9c PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x20a9e 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x20aa0 0x0.4> Δ-4 {[4, '^(A0)']|[##0]|[##0]}
<Call 0x20aa2 0x10520> {[4, '^(A0)']|[##0]|[##0]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 20aa8-20aaa StackAdj> Δ+12 {}
<MI 20aaa MOVEA.L (A6+0xc),A0> {}
<MI 20aae PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Const 0x20ab0 0x0.4> Δ-4 {[4, '^(A0)']|[##0]}
<Const 0x20ab2 0x7.4> Δ-4 {[4, '^(A0)']|[##0]|[##7]}
<Call 0x20ab6 0x10520> {[4, '^(A0)']|[##0]|[##7]}
IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long)
<POP 20abc-20abe StackAdj> Δ+12 {}
<Call 0x20abe 0x1051a> {}
IPC_GetEnd(void)
<POP 20ac4-20acc Epilogue> Σ0 ←0x209d8
@ 20acc
<POP 20acc-20b88 Body>
<POP 20acc-20ae2 Prologue> Σ0 ↓
<POP 20ae2-20af0 RegCacheLoad> Σ0 ↓
<POP 20af0-20b70 Naked> Σ0 ↓ →0x20b80
<Const 0x20af0 0x20ef4.4> Δ-4 {[##134900]}
<Call 0x20af2 0x102bc> {[##134900]}
FreeString(VAR a : String)
<POP 20af8-20afa StackAdj> Δ+4 {}
<Blob 0x20afa [10] (A6+0x12)> Δ-10 {[«10»]}
<POP 20b06-20b08 StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x20b08> {[«10»]|[$$…]}
<Pointer.sp 0x20b08 4> Δ-4
<Const 0x20b0c 0x1.2> Δ-2
<Const 0x20b0e 0xa.2> Δ-2
<Call 0x20b12 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20b18-20b1a StackAdj> Δ+8
<MI 20b1a MOVE.L (A7)+,0x20ef4> Δ+4 {[«10»]}
<POP 20b1c-20b1e StackAdj> Δ+2 {[-8-]}
<POP 20b1e-20b1f StackAdj> Δ+4 {[-4-]}
<Blob 0x20b1f [4] 0x20ef4> Δ-4 {[-4-]|[«4»]}
<Call 0x20b20 0x102cc> {[-4-]|[«4»]}
StringDup(a : String) : String
<POP 20b26-20b28 StackAdj> Δ+4 {[-4-]}
<MI 20b28 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 20b2a MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<MI 20b2c MOVE.B 0x20ef0,D0> {[4, 'A4']}
<MI 20b32 EXTB.W D0> {[4, 'A4']}
<POP 0x20b34 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[4, 'A4']}
<MI 20b36 MOVE.B D0,-(A7)> Δ-2 {[4, 'A4']|[2, 'D0']}
<MI 20b38 MOVE.B 0x20ef1,D0> {[4, 'A4']|[2, 'D0']}
<MI 20b3e EXTB.W D0> {[4, 'A4']|[2, 'D0']}
<POP 0x20b40 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[4, 'A4']|[2, 'D0']}
<MI 20b42 MOVE.B D0,-(A7)> Δ-2 {[4, 'A4']|[2, 'D0']|[2, 'D0']}
<Const 0x20b44 0x20ef2.4> Δ-4 {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##134898]}
<Const 0x20b4a 0x20ef8.4> Δ-4 {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##134898]|[##134904]}
<Const 0x20b50 0x20efc.4> Δ-4 {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##134898]|[##134904]|[##134908]}
<Const 0x20b56 0x20f00.4> Δ-4 {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##134898]|[##134904]|[##134908]|[##134912]}
<Const 0x20b5c 0x20f01.4> Δ-4 {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##134898]|[##134904]|[##134908]|[##134912]|[##134913]}
<Const 0x20b62 0x20f0e.4> Δ-4 {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##134898]|[##134904]|[##134908]|[##134912]|[##134913]|[##134926]}
<Call 0x20b64 0x207aa> {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##134898]|[##134904]|[##134908]|[##134912]|[##134913]|[##134926]}
<POP 20b68-20b6c StackAdj> Δ+32 {}
<MI 20b6c TST.B 0x20f0e> {}
<MI 20b6e BEQ 0x20b80> {}
<POP 20b70-20b80 Naked> Σ0 ↓
<Const 0x20b70 0x6.2> Δ-2 {[#6]}
<Const 0x20b74 0x1.4> Δ-4 {[#6]|[##1]}
<Call 0x20b78 0x103b8> {[#6]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20b7e-20b80 StackAdj> Δ+6 {}
<POP 20b80-20b88 Epilogue> Σ0 ←0x20af0
@ 20b88
<LVAR 0x012 1(r)>
<LVAR -0x004 1(rw)>
<POP 20b88-20c4e Body>
<POP 20b88-20b9e Prologue> Σ0 ↓
<POP 20b9e-20bac RegCacheLoad> Σ0 ↓
<POP 20bac-20c36 Naked> Σ0 ↓ →0x20c46
<Const 0x20bac 0x20ef4.4> Δ-4 {[##134900]}
<Call 0x20bae 0x102bc> {[##134900]}
FreeString(VAR a : String)
<POP 20bb4-20bb6 StackAdj> Δ+4 {}
<Blob 0x20bb6 [10] (A6+0x12)> Δ-10 {[«10»]}
<POP 20bc2-20bc4 StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x20bc4> {[«10»]|[$$…]}
<Pointer.sp 0x20bc4 4> Δ-4
<Const 0x20bc8 0x1.2> Δ-2
<Const 0x20bca 0xa.2> Δ-2
<Call 0x20bce 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20bd4-20bd6 StackAdj> Δ+8
<MI 20bd6 MOVE.L (A7)+,0x20ef4> Δ+4 {[«10»]}
<POP 20bd8-20bda StackAdj> Δ+2 {[-8-]}
<POP 20bda-20bdb StackAdj> Δ+4 {[-4-]}
<Blob 0x20bdb [4] 0x20ef4> Δ-4 {[-4-]|[«4»]}
<Call 0x20bdc 0x102cc> {[-4-]|[«4»]}
StringDup(a : String) : String
<POP 20be2-20be4 StackAdj> Δ+4 {[-4-]}
<MI 20be4 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 20be6 MOVE.B (A6+0x12),(A6-0x4)> {}
<MI 20bec MOVE.B (A6-0x4),-(A7)> Δ-2 {[2, '(A6-0x4)']}
<MI 20bf0 MOVE.L A4,-(A7)> Δ-4 {[2, '(A6-0x4)']|[4, 'A4']}
<MI 20bf2 MOVE.B 0x20ef0,D0> {[2, '(A6-0x4)']|[4, 'A4']}
<MI 20bf8 EXTB.W D0> {[2, '(A6-0x4)']|[4, 'A4']}
<POP 0x20bfa LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, '(A6-0x4)']|[4, 'A4']}
<MI 20bfc MOVE.B D0,-(A7)> Δ-2 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']}
<MI 20bfe MOVE.B 0x20ef1,D0> {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']}
<MI 20c04 EXTB.W D0> {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']}
<POP 0x20c06 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']}
<MI 20c08 MOVE.B D0,-(A7)> Δ-2 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']}
<Const 0x20c0a 0x20ef2.4> Δ-4 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']|[##134898]}
<Const 0x20c10 0x20ef8.4> Δ-4 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']|[##134898]|[##134904]}
<Const 0x20c16 0x20efc.4> Δ-4 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']|[##134898]|[##134904]|[##134908]}
<Const 0x20c1c 0x20f00.4> Δ-4 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']|[##134898]|[##134904]|[##134908]|[##134912]}
<Const 0x20c22 0x20f01.4> Δ-4 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']|[##134898]|[##134904]|[##134908]|[##134912]|[##134913]}
<Const 0x20c28 0x20f0e.4> Δ-4 {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']|[##134898]|[##134904]|[##134908]|[##134912]|[##134913]|[##134926]}
<Call 0x20c2a 0x208a6> {[2, '(A6-0x4)']|[4, 'A4']|[2, 'D0']|[2, 'D0']|[##134898]|[##134904]|[##134908]|[##134912]|[##134913]|[##134926]}
<POP 20c2e-20c32 StackAdj> Δ+34 {}
<MI 20c32 TST.B 0x20f0e> {}
<MI 20c34 BEQ 0x20c46> {}
<POP 20c36-20c46 Naked> Σ0 ↓
<Const 0x20c36 0x6.2> Δ-2 {[#6]}
<Const 0x20c3a 0x1.4> Δ-4 {[#6]|[##1]}
<Call 0x20c3e 0x103b8> {[#6]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 20c44-20c46 StackAdj> Δ+6 {}
<POP 20c46-20c4e Epilogue> Σ0 ←0x20bac
@ 20c4e
START
<POP 20c4e--0001 Body>
<POP 20c4e-20c58 Prologue> Σ0
<POP 20c58-20c6e RegCacheLoad> Σ0 ↓
<POP 20c6e-20cdc Naked> Σ0 ↓ →0x20e16
<Call 0x20c6e 0x10398> {}
FSCALL_10398
<MI 20c74 LEA.L 0x20f0f,A0> {}
<MI 20c7a LEA.L 0x20424,A1> {}
<BlockMove 50,A1,A0> {}
<MI 20c86 LEA.L 0x20f41,A0> {}
<MI 20c8c LEA.L 0x2037a,A1> {}
<BlockMove 120,A1,A0> {}
<Const 0x20c98 0x20eee.4> Δ-4 {[##134894]}
<Const 0x20c9e 0x20ef0.4> Δ-4 {[##134894]|[##134896]}
<Const 0x20ca4 0x20ef1.4> Δ-4 {[##134894]|[##134896]|[##134897]}
<Call 0x20caa 0x206bc> {[##134894]|[##134896]|[##134897]}
<POP 20cae-20cb0 StackAdj> Δ+12 {}
<Const 0x20cb0 0x20ef4.4> Δ-4 {[##134900]}
<Call 0x20cb6 0x102b8> {[##134900]}
NewString(VAR a : String)
<POP 20cbc-20cbe StackAdj> Δ+4 {}
<MI 20cbe CLR.L D0> {}
<MI 20cc0 MOVE.B 0x20eee,D0> {}
<POP 0x20cc6 LimitCheck 0x0 ≤ D0 ≤ 0xb> {}
<MI 20cca MOVE.B D0,0x20eef> {}
<MI 20cd0 MOVE.B D0,D1> {}
<MI 20cd2 EXTB.W D1> {}
<MI 20cd4 MOVE.W D1,D0> {}
<MI 20cd6 CMP.W #0x0a,D0> {}
<MI 20cd8 BHI 0x20e16> {}
<POP 20cdc-20ce6 Naked> Σ0 →0x20cfc →0x20e16 →0x20d86 →0x20d86 →0x20d86 →0x20d86 →0x20d86 →0x20dca →0x20dca →0x20dca →0x20dca
<MI 20cdc ADD.W D0,D0> {}
<MI 20cde SWITCH D0.W> {}
<POP 20cfc-20d12 Naked> Σ0 ↓ →0x20d54 ←0x20cdc
<Const 0x20cfc 0x5.2> Δ-2 {[#5]}
<Blob 0x20cfe [10] @> Δ-10 {[#5]|[«10""»]}
<Call 0x20d0a 0x20b88> {[#5]|[«10""»]}
<POP 20d0c-20d0e StackAdj> Δ+12 {}
<MI 20d0e TST.B 0x20ef2> {}
<MI 20d10 BEQ 0x20d54> {}
<POP 20d12-20d14 Naked> Σ0 ↓
<MI 20d12 CLR.L 0x20f0a> {}
<POP 20d14-20d50 Naked> Σ0 ↓ →0x20d54 ←0x20d50
<MI 20d14 ADDQ.L #0x1,0x20f0a> {}
<MI 20d16 MOVE.L 0x20f0a,D0> {}
<MI 20d18 SUBQ.L #0x1,D0> {}
<POP 0x20d1a LimitCheck 0x0 ≤ D0 ≤ 0x4> {}
<MI 20d24 MOVE.L D0,D4> {}
<MI 20d26 MOVEQ.L #0x0a,D3> {}
<Call 0x20d28 0x1028c> {}
?muls_d3_d4
<MI 20d2e LEA.L 0x20ee6,A0> {}
<Blob 0x20d34 [10] (A0+D4.L+#0x29)> Δ-10 {[«10»]}
<Call 0x20d44 0x20acc> {[«10»]}
<POP 20d48-20d4a StackAdj> Δ+10 {}
<MI 20d4a MOVE.L 0x20f0a,D0> {}
<MI 20d4c CMP.L #0x05,D0> {}
<MI 20d4e BEQ 0x20d54> {}
<POP 20d50-20d54 Naked> Σ0 ↓ →0x20d14
<MI 20d50 TST.B 0x20ef2> {}
<MI 20d52 BNE 0x20d14> {}
<POP 20d54-20d58 Naked> Σ0 ↓ →0x20d6c ←0x20cfc ←0x20d14
<MI 20d54 TST.B 0x20ef2> {}
<MI 20d56 BEQ 0x20d6c> {}
<POP 20d58-20d6c Naked> Σ0 ↓
<Const 0x20d58 0x8.2> Δ-2 {[#8]}
<Blob 0x20d5c [10] @> Δ-10 {[#8]|[«10""»]}
<Call 0x20d68 0x20b88> {[#8]|[«10""»]}
<POP 20d6a-20d6c StackAdj> Δ+12 {}
<POP 20d6c-20d70 Naked> Σ0 ↓ →0x20d82 ←0x20d54
<MI 20d6c TST.B 0x20ef2> {}
<MI 20d6e BEQ 0x20d82> {}
<POP 20d70-20d82 Naked> Σ0 ↓
<Const 0x20d70 0x5.2> Δ-2 {[#5]}
<Blob 0x20d72 [10] @> Δ-10 {[#5]|[«10""»]}
<Call 0x20d7e 0x20b88> {[#5]|[«10""»]}
<POP 20d80-20d82 StackAdj> Δ+12 {}
<POP 20d82-20d86 Naked> Σ0 →0x20e36 ←0x20d6c
<MI 20d82 BRA 0x20e36> {}
<POP 20d86-20da2 Naked> Σ0 ↓ →0x20dc8 ←0x20cdc ←0x20cdc ←0x20cdc ←0x20cdc ←0x20cdc
<MI 20d86 LEA.L 0x202f6,A0> {}
<MI 20d8a MOVE.B (A0+D1.W),-(A7)> Δ-2 {[2, '(A0+D1.W)']}
<Blob 0x20d8e [10] @> Δ-10 {[2, '(A0+D1.W)']|[«10""»]}
<Call 0x20d9a 0x20b88> {[2, '(A0+D1.W)']|[«10""»]}
<POP 20d9c-20d9e StackAdj> Δ+12 {}
<MI 20d9e TST.B 0x20ef2> {}
<MI 20da0 BEQ 0x20dc8> {}
<POP 20da2-20dc8 Naked> Σ0 ↓
<MI 20da2 MOVE.B 0x20eef,D0> {}
<MI 20da8 EXTB.W D0> {}
<MI 20daa MULS.W #0x0a,D0> {}
<MI 20dac LEA.L 0x20ee6,A0> {}
<Blob 0x20db2 [10] (A0+D0.W+#0x5b)> Δ-10 {[«10»]}
<Call 0x20dc2 0x20acc> {[«10»]}
<POP 20dc6-20dc8 StackAdj> Δ+10 {}
<POP 20dc8-20dca Naked> Σ0 →0x20e36 ←0x20d86
<MI 20dc8 BRA 0x20e36> {}
<POP 20dca-20de6 Naked> Σ0 ↓ →0x20e14 ←0x20cdc ←0x20cdc ←0x20cdc ←0x20cdc
<MI 20dca LEA.L 0x202f6,A0> {}
<MI 20dce MOVE.B (A0+D1.W),-(A7)> Δ-2 {[2, '(A0+D1.W)']}
<Blob 0x20dd2 [10] @> Δ-10 {[2, '(A0+D1.W)']|[«10""»]}
<Call 0x20dde 0x20b88> {[2, '(A0+D1.W)']|[«10""»]}
<POP 20de0-20de2 StackAdj> Δ+12 {}
<MI 20de2 TST.B 0x20ef2> {}
<MI 20de4 BEQ 0x20e14> {}
<POP 20de6-20e14 Naked> Σ0 ↓
<MI 20de6 MOVE.B 0x20eef,D0> {}
<MI 20dec EXTB.W D0> {}
<MI 20dee MOVEQ.L #0x0a,D1> {}
<MI 20df0 MULS.W D0,D1> {}
<MI 20df2 LEA.L 0x202f6,A0> {}
<MI 20df6 MOVE.B (A0+D0.W),-(A7)> Δ-2 {[2, '(A0+D0.W)']}
<MI 20dfa LEA.L 0x20ee6,A0> {[2, '(A0+D0.W)']}
<Blob 0x20e00 [10] (A0+D1.W+#0x5b)> Δ-10 {[2, '(A0+D0.W)']|[«10»]}
<Call 0x20e10 0x20b88> {[2, '(A0+D0.W)']|[«10»]}
<POP 20e12-20e14 StackAdj> Δ+12 {}
<POP 20e14-20e16 Naked> Σ0 →0x20e36 ←0x20dca
<MI 20e14 BRA 0x20e36> {}
<POP 20e16-20e36 Naked> Σ0 ↓ ←0x20c6e ←0x20cdc
<MI 20e16 MOVE.B #0x01,0x20ef2> {}
<Const 0x20e1a 0x20ef8.4> Δ-4 {[##134904]}
<Call 0x20e20 0x102b8> {[##134904]}
NewString(VAR a : String)
<POP 20e26-20e28 StackAdj> Δ+4 {}
<Const 0x20e28 0x20efc.4> Δ-4 {[##134908]}
<Call 0x20e2e 0x102b8> {[##134908]}
NewString(VAR a : String)
<POP 20e34-20e36 StackAdj> Δ+4 {}
<POP 20e36-20e6a Naked> Σ0 ↓ ←0x20d82 ←0x20dc8 ←0x20e14
<Blob 0x20e36 [2] 0x20ef2> Δ-2 {[«2»]}
<Blob 0x20e38 [4] 0x20ef4> Δ-4 {[«2»]|[«4»]}
<Blob 0x20e3e [4] 0x20ef8> Δ-4 {[«2»]|[«4»]|[«4»]}
<Blob 0x20e44 [4] 0x20efc> Δ-4 {[«2»]|[«4»]|[«4»]|[«4»]}
<Blob 0x20e4a [2] 0x20f00> Δ-2 {[«2»]|[«4»]|[«4»]|[«4»]|[«2»]}
<Blob 0x20e50 [8] 0x20f01> Δ-8 {[«2»]|[«4»]|[«4»]|[«4»]|[«2»]|[«8»]}
<Call 0x20e62 0x2071a> {[«2»]|[«4»]|[«4»]|[«4»]|[«2»]|[«8»]}
<POP 20e66-20e6a StackAdj> Δ+24 {}
<POP 20e6a-20e70 Naked> Σ0
<Call 0x20e6a 0x10284> {}
?exit
@ 20e7e
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 20e7e-20ee6 Body>
<POP 20e7e-20e94 Prologue> Σ0 ↓
<POP 20e94-20ede Naked> Σ0 ↓
<Blob 0x20e94 [14] @> Δ-14 {[«14""»]}
<Const 0x20ea0 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 20ea4-20ea6 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x20ea6 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 20eb8-20eba StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20eba MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20ebe EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20ec0 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20ec2 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x20ec4 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 20eca-20ecc StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x20ecc 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20ed2-20ed4 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x20ed4 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 20eda-20ede StackAdj> Δ+20 {}
<POP 20ede-20ee6 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.d172164114c8e992 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 0c 4e | N | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 0f c2 | | .PTR 0x20fc2 00020010 code.end: 00020010 00 02 0e e6 | | .PTR 0x20ee6 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 0e 7e | ~ | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 04 56 | V | .CODE EXP_FAIL 00020020 00 00 00 00 | | .CONST 0x00000000 00020024 exp_init_done: 00020024 00 | | .CONST 0x00 00020025 00 | | .CONST 0x00 00020026 00 00 | | .CONST 0x0000 00020028 00 00 | | .CONST 0x0000 0002002a 00 00 | | .XXX[0x2] 0002002c 00 00 | | .CONST 0x0000 0002002e 00 00 | | .CONST 0x0000 00020030 00 00 | | .CONST 0x0000 00020032 00 00 00 00 00 00 | | .XXX[0x6] 00020038 00 00 00 00 00 00 00 00 | | .BLANK 00[0xb0] 000200e8 00 00 00 00 | | .XXX[0x4] 000200ec 00 00 00 00 | | .PTR 0x0 000200f0 is_open_ERROR_LOG: 000200f0 00 | | .CONST 0x0 000200f1 write_error_ERROR_LOG: 000200f1 00 | | .CONST 0x0 000200f2 00 00 00 00 | | .CONST 0x00000000 000200f6 00 00 00 00 | | .CONST 0x00000000 000200fa 00 | | .CONST 0x00 000200fb 00 | | .CONST 0x00 000200fc file_ERROR_LOG: 000200fc 00 00 00 00 | | .CONST 0x00000000 00020100 00 00 00 00 | | .CONST 0x00000000 00020104 00 00 | | .CONST 0x0000 00020106 00 00 | | .CONST 0x0000 00020108 somekindoffsflag: 00020108 00 | | .CONST 0x00 00020109 00 | | .CONST 0x00 0002010a 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 49 4c 4c 45 47 41 4c 20 |ILLEGAL | .XXX[0x150] 00020178 20 20 49 4c 4c 45 47 41 | ILLEGA| 00020180 4c 20 20 20 50 31 53 59 |L P1SY| 00020188 53 20 20 20 20 20 50 31 |S P1| 00020190 56 41 4c 20 20 20 20 20 |VAL | 00020198 50 31 54 59 50 20 20 20 |P1TYP | 000201a0 20 20 50 31 53 45 51 20 | P1SEQ | 000201a8 20 20 20 20 50 31 46 49 | P1FI| 000201b0 55 20 20 20 20 20 50 31 |U P1| 000201b8 4d 45 4d 20 20 20 20 20 |MEM | 000201c0 50 31 4d 45 4d 20 20 20 |P1MEM | 000201c8 20 20 50 31 4d 45 4d 20 | P1MEM | 000201d0 20 20 20 20 50 31 4d 45 | P1ME| 000201d8 4d 20 20 20 20 20 49 4c |M IL| 000201e0 4c 45 47 41 4c 20 20 20 |LEGAL | 000201e8 49 4c 4c 45 47 41 4c 20 |ILLEGAL | 000201f0 20 20 49 4c 4c 45 47 41 | ILLEGA| 000201f8 4c 20 20 20 50 31 49 4f |L P1IO| 00020200 43 20 20 20 20 20 50 31 |C P1| 00020208 56 41 4c 20 20 20 20 20 |VAL | 00020210 50 31 54 59 50 20 20 20 |P1TYP | 00020218 20 20 50 31 53 45 51 20 | P1SEQ | 00020220 20 20 20 20 50 31 46 49 | P1FI| 00020228 55 20 20 20 20 20 50 31 |U P1| 00020230 4d 45 4d 20 20 20 20 20 |MEM | 00020238 50 31 4d 45 4d 20 20 20 |P1MEM | 00020240 20 20 50 31 4d 45 4d 20 | P1MEM | 00020248 20 20 20 20 50 31 4d 45 | P1ME| 00020250 4d 20 20 20 20 20 49 4c |M IL| 00020258 4c 45 47 41 4c 20 20 20 |LEGAL | 00020260 50 31 53 59 53 20 20 20 |P1SYS | 00020268 20 20 50 31 56 41 4c 20 | P1VAL | 00020270 20 20 20 20 50 31 54 59 | P1TY| 00020278 50 20 20 20 20 20 50 31 |P P1| 00020280 53 45 51 20 20 20 20 20 |SEQ | 00020288 50 31 46 49 55 20 20 20 |P1FIU | 00020290 20 20 50 31 49 4f 43 20 | P1IOC | 00020298 20 20 20 20 50 31 56 41 | P1VA| 000202a0 4c 20 20 20 20 20 50 31 |L P1| 000202a8 54 59 50 20 20 20 20 20 |TYP | 000202b0 50 31 53 45 51 20 20 20 |P1SEQ | 000202b8 20 20 50 31 46 49 55 20 | P1FIU | 000202c0 20 20 20 20 | | .XXX[0x4] 000202c4 50 31 44 43 4f 4d 4d 20 |P1DCOMM | .TXT 'P1DCOMM ' 000202ce 50 31 4d 45 4d 20 20 20 |P1MEM | .TXT 'P1MEM ' 000202d8 50 31 53 46 20 20 20 20 |P1SF | .TXT 'P1SF ' 000202e2 50 31 44 43 4f 4d 4d 20 |P1DCOMM | .TXT 'P1DCOMM ' 000202ec 50 31 44 43 4f 4d 4d 20 |P1DCOMM | .TXT 'P1DCOMM ' 000202f6 01 01 | | .XXX[0x2] 000202f8 04 07 06 02 03 0c 0d 0e | | .XXX[0x158] 00020300 0f 01 49 4c 4c 45 47 41 | ILLEGA| 00020308 4c 20 20 20 49 4c 4c 45 |L ILLE| 00020310 47 41 4c 20 20 20 50 31 |GAL P1| 00020318 53 59 53 20 20 20 20 20 |SYS | 00020320 50 31 56 41 4c 20 20 20 |P1VAL | 00020328 20 20 50 31 54 59 50 20 | P1TYP | 00020330 20 20 20 20 50 31 53 45 | P1SE| 00020338 51 20 20 20 20 20 50 31 |Q P1| 00020340 46 49 55 20 20 20 20 20 |FIU | 00020348 50 31 4d 45 4d 20 20 20 |P1MEM | 00020350 20 20 50 31 4d 45 4d 20 | P1MEM | 00020358 20 20 20 20 50 31 4d 45 | P1ME| 00020360 4d 20 20 20 20 20 50 31 |M P1| 00020368 4d 45 4d 20 20 20 20 20 |MEM | 00020370 49 4c 4c 45 47 41 4c 20 |ILLEGAL | 00020378 20 20 49 4c 4c 45 47 41 | ILLEGA| 00020380 4c 20 20 20 49 4c 4c 45 |L ILLE| 00020388 47 41 4c 20 20 20 50 31 |GAL P1| 00020390 49 4f 43 20 20 20 20 20 |IOC | 00020398 50 31 56 41 4c 20 20 20 |P1VAL | 000203a0 20 20 50 31 54 59 50 20 | P1TYP | 000203a8 20 20 20 20 50 31 53 45 | P1SE| 000203b0 51 20 20 20 20 20 50 31 |Q P1| 000203b8 46 49 55 20 20 20 20 20 |FIU | 000203c0 50 31 4d 45 4d 20 20 20 |P1MEM | 000203c8 20 20 50 31 4d 45 4d 20 | P1MEM | 000203d0 20 20 20 20 50 31 4d 45 | P1ME| 000203d8 4d 20 20 20 20 20 50 31 |M P1| 000203e0 4d 45 4d 20 20 20 20 20 |MEM | 000203e8 49 4c 4c 45 47 41 4c 20 |ILLEGAL | 000203f0 20 20 50 31 53 59 53 20 | P1SYS | 000203f8 20 20 20 20 50 31 56 41 | P1VA| 00020400 4c 20 20 20 20 20 50 31 |L P1| 00020408 54 59 50 20 20 20 20 20 |TYP | 00020410 50 31 53 45 51 20 20 20 |P1SEQ | 00020418 20 20 50 31 46 49 55 20 | P1FIU | 00020420 20 20 20 20 50 31 49 4f | P1IO| 00020428 43 20 20 20 20 20 50 31 |C P1| 00020430 56 41 4c 20 20 20 20 20 |VAL | 00020438 50 31 54 59 50 20 20 20 |P1TYP | 00020440 20 20 50 31 53 45 51 20 | P1SEQ | 00020448 20 20 20 20 50 31 46 49 | P1FI| 00020450 55 20 20 20 20 20 |U | .XXX[0x6] 00020456 ; -------------------------------------------------------------------------------------- 00020456 ; OMSI PASCAL Function 00020456 ; <LVAR 0x00e 1(r)> 00020456 ; <LVAR 0x00a 4(r)> 00020456 ; <LVAR 0x008 1(r)> 00020456 ; -------------------------------------------------------------------------------------- 00020456 EXP_FAIL: 00020456 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 0002045a bf d5 | | CMPA.L (A5),A7 0002045c 62 06 |b | BHI 0x20464 0002045e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020462 4e 76 |Nv | TRAPV 00020464 de fc 00 74 | t | ADDA.W #0x74,A7 00020468 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 0002046c 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020472 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00020478 72 01 |r | MOVEQ.L #0x01,D1 0002047a 74 0d |t | MOVEQ.L #0x0d,D2 0002047c 76 1e |v | MOVEQ.L #0x1e,D3 0002047e 78 12 |x | MOVEQ.L #0x12,D4 00020480 7a 0e |z | MOVEQ.L #0x0e,D5 00020482 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00020488 41 fa fc bc |A | LEA.L 0x20146,A0 0002048c 70 08 |p | MOVEQ.L #0x08,D0 0002048e 3f 20 |? | MOVE.W -(A0),-(A7) 00020490 51 c8 ff fc |Q | DBF D0,0x2048e 00020494 59 4f |YO | SUBQ.L #0x4,A7 00020496 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002049a 3f 01 |? | MOVE.W D1,-(A7) 0002049c 3f 04 |? | MOVE.W D4,-(A7) 0002049e 4e 93 |N | JSR (A3) 000204a0 50 4f |PO | ADDQ.L #0x8,A7 000204a2 4e 94 |N | JSR (A4) 000204a4 50 4f |PO | ADDQ.L #0x8,A7 000204a6 20 4f | O | MOVEA.L A7,A0 000204a8 43 fa fc 60 |C ` | LEA.L 0x2010a,A1 000204ac 70 0c |p | MOVEQ.L #0x0c,D0 000204ae 10 d9 | | MOVE.B (A1)+,(A0)+ 000204b0 51 c8 ff fc |Q | DBF D0,0x204ae 000204b4 51 4f |QO | SUBQ.L #0x8,A7 000204b6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000204ba 3f 01 |? | MOVE.W D1,-(A7) 000204bc 3f 02 |? | MOVE.W D2,-(A7) 000204be 4e 93 |N | JSR (A3) 000204c0 54 4f |TO | ADDQ.L #0x2,A7 000204c2 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000204c6 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000204cc 54 4f |TO | ADDQ.L #0x2,A7 000204ce 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000204d4 50 4f |PO | ADDQ.L #0x8,A7 000204d6 4e 94 |N | JSR (A4) 000204d8 de c4 | | ADDA.W D4,A7 000204da 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000204de b0 c1 | | CMPA.W D1,A0 000204e0 67 48 |gH | BEQ 0x2052a 000204e2 9e c5 | | SUBA.W D5,A7 000204e4 22 4f |"O | MOVEA.L A7,A1 000204e6 45 fa fc 30 |E 0 | LEA.L 0x20118,A2 000204ea 70 0c |p | MOVEQ.L #0x0c,D0 000204ec 12 da | | MOVE.B (A2)+,(A1)+ 000204ee 51 c8 ff fc |Q | DBF D0,0x204ec 000204f2 9e c3 | | SUBA.W D3,A7 000204f4 22 4f |"O | MOVEA.L A7,A1 000204f6 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000204fa 70 1d |p | MOVEQ.L #0x1d,D0 000204fc 12 d8 | | MOVE.B (A0)+,(A1)+ 000204fe 51 c8 ff fc |Q | DBF D0,0x204fc 00020502 51 4f |QO | SUBQ.L #0x8,A7 00020504 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00020508 3f 01 |? | MOVE.W D1,-(A7) 0002050a 3f 02 |? | MOVE.W D2,-(A7) 0002050c 4e 93 |N | JSR (A3) 0002050e 58 4f |XO | ADDQ.L #0x4,A7 00020510 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020514 3f 01 |? | MOVE.W D1,-(A7) 00020516 3f 03 |? | MOVE.W D3,-(A7) 00020518 4e 93 |N | JSR (A3) 0002051a 50 4f |PO | ADDQ.L #0x8,A7 0002051c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020522 50 4f |PO | ADDQ.L #0x8,A7 00020524 4e 94 |N | JSR (A4) 00020526 de fc 00 30 | 0 | ADDA.W #0x30,A7 0002052a 9e c5 | | SUBA.W D5,A7 0002052c 20 4f | O | MOVEA.L A7,A0 0002052e 43 fa fb f6 |C | LEA.L 0x20126,A1 00020532 70 0c |p | MOVEQ.L #0x0c,D0 00020534 10 d9 | | MOVE.B (A1)+,(A0)+ 00020536 51 c8 ff fc |Q | DBF D0,0x20534 0002053a 51 4f |QO | SUBQ.L #0x8,A7 0002053c 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020540 3f 01 |? | MOVE.W D1,-(A7) 00020542 3f 02 |? | MOVE.W D2,-(A7) 00020544 4e 93 |N | JSR (A3) 00020546 54 4f |TO | ADDQ.L #0x2,A7 00020548 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 0002054c 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00020552 54 4f |TO | ADDQ.L #0x2,A7 00020554 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002055a 50 4f |PO | ADDQ.L #0x8,A7 0002055c 4e 94 |N | JSR (A4) 0002055e 5d 4f |]O | SUBQ.L #0x6,A7 00020560 20 4f | O | MOVEA.L A7,A0 00020562 43 fa fb e2 |C | LEA.L 0x20146,A1 00020566 70 16 |p | MOVEQ.L #0x16,D0 00020568 10 d9 | | MOVE.B (A1)+,(A0)+ 0002056a 51 c8 ff fc |Q | DBF D0,0x20568 0002056e 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020572 59 4f |YO | SUBQ.L #0x4,A7 00020574 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020578 3f 01 |? | MOVE.W D1,-(A7) 0002057a 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 0002057e 4e 93 |N | JSR (A3) 00020580 50 4f |PO | ADDQ.L #0x8,A7 00020582 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020588 de c3 | | ADDA.W D3,A7 0002058a 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 0002058e 4e 5e |N^ | UNLK A6 00020590 4e 75 |Nu | RTS 00020592 ; -------------------------------------------------------------------------------------- 00020592 ; OMSI PASCAL Function 00020592 ; <LVAR 0x02a 4(r)> 00020592 ; <LVAR 0x028 1(r)> 00020592 ; <LVAR 0x026 1(r)> 00020592 ; <LVAR 0x024 1(r)> 00020592 ; <LVAR 0x020 4(r)> 00020592 ; <LVAR 0x01c 4(r)> 00020592 ; <LVAR 0x018 4(r)> 00020592 ; <LVAR 0x014 4(r)> 00020592 ; <LVAR 0x010 4(r)> 00020592 ; <LVAR 0x00c 4(r)> 00020592 ; <LVAR 0x008 4(r)> 00020592 ; -------------------------------------------------------------------------------------- 00020592 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 ; Spelunked 00020596 bf d5 | | CMPA.L (A5),A7 00020598 62 06 |b | BHI 0x205a0 0002059a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002059e 4e 76 |Nv | TRAPV 000205a0 de fc 00 3a | : | ADDA.W #0x3a,A7 000205a4 48 e7 c0 e8 |H | MOVEM.L A4+A2+A1+A0+D1+D0,-(A7) 000205a8 43 f8 00 00 |C | LEA.L 0x0,A1 000205ac 45 f9 00 01 05 2c |E , | LEA.L IPC_GetString(VAR retval : String),A2 000205b2 70 0c |p | MOVEQ.L #0x0c,D0 000205b4 72 01 |r | MOVEQ.L #0x01,D1 000205b6 3f 3a fb b2 |?: | MOVE.W 0x2016a,-(A7) 000205ba 59 4f |YO | SUBQ.L #0x4,A7 000205bc 1e ba fb ae | | MOVE.B 0x2016c,(A7) 000205c0 1f 7a fb ab 00 01 | z | MOVE.B 0x2016d,(A7+0x1) 000205c6 1f 7a fb a6 00 02 | z | MOVE.B 0x2016e,(A7+0x2) 000205cc 51 4f |QO | SUBQ.L #0x8,A7 000205ce 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000205d2 3f 01 |? | MOVE.W D1,-(A7) 000205d4 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000205d8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000205de 2e ae 00 2a |. * | MOVE.L (A6+0x2a),(A7) 000205e2 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000205e8 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000205ec 3f 01 |? | MOVE.W D1,-(A7) 000205ee 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 000205f2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000205f8 50 4f |PO | ADDQ.L #0x8,A7 000205fa 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00020600 de c0 | | ADDA.W D0,A7 00020602 28 5f |(_ | MOVEA.L (A7)+,A4 00020604 5c 4f |\O | ADDQ.L #0x6,A7 00020606 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 0002060c 1f 2e 00 28 | . ( | MOVE.B (A6+0x28),-(A7) 00020610 48 57 |HW | PEA.L (A7) 00020612 48 51 |HQ | PEA.L (A1) 00020614 48 51 |HQ | PEA.L (A1) 00020616 4e b9 00 01 04 fc |N | JSR IPC_PutVar(src : Pointer; length : Long ; type : Long) 0002061c de c0 | | ADDA.W D0,A7 0002061e 1e ae 00 26 | & | MOVE.B (A6+0x26),(A7) 00020622 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00020628 1e ae 00 24 | $ | MOVE.B (A6+0x24),(A7) 0002062c 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00020632 54 4f |TO | ADDQ.L #0x2,A7 00020634 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 0002063a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002063e 2f 0c |/ | MOVE.L A4,-(A7) 00020640 48 78 00 01 |Hx | PEA.L 0x1 00020644 1f 01 | | MOVE.B D1,-(A7) 00020646 48 50 |HP | PEA.L (A0) 00020648 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 0002064e de fc 00 0e | | ADDA.W #0xe,A7 00020652 4a 10 |J | TST.B (A0) 00020654 66 5e |f^ | BNE 0x206b4 00020656 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 0002065c 20 6e 00 20 | n | MOVEA.L (A6+0x20),A0 00020660 48 50 |HP | PEA.L (A0) 00020662 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 00020668 58 4f |XO | ADDQ.L #0x4,A7 0002066a 20 6e 00 1c | n | MOVEA.L (A6+0x1c),A0 0002066e 48 50 |HP | PEA.L (A0) 00020670 4e 92 |N | JSR (A2) 00020672 58 4f |XO | ADDQ.L #0x4,A7 00020674 20 6e 00 18 | n | MOVEA.L (A6+0x18),A0 00020678 48 50 |HP | PEA.L (A0) 0002067a 4e 92 |N | JSR (A2) 0002067c 58 4f |XO | ADDQ.L #0x4,A7 0002067e 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0 00020682 48 50 |HP | PEA.L (A0) 00020684 4e 92 |N | JSR (A2) 00020686 58 4f |XO | ADDQ.L #0x4,A7 00020688 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 0002068c 48 50 |HP | PEA.L (A0) 0002068e 48 51 |HQ | PEA.L (A1) 00020690 48 51 |HQ | PEA.L (A1) 00020692 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 00020698 de c0 | | ADDA.W D0,A7 0002069a 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002069e 48 50 |HP | PEA.L (A0) 000206a0 48 51 |HQ | PEA.L (A1) 000206a2 48 78 00 07 |Hx | PEA.L 0x7 000206a6 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 000206ac de c0 | | ADDA.W D0,A7 000206ae 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 000206b4 4c df 17 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A4 000206b8 4e 5e |N^ | UNLK A6 000206ba 4e 75 |Nu | RTS 000206bc ; -------------------------------------------------------------------------------------- 000206bc ; OMSI PASCAL Function 000206bc ; <LVAR 0x010 4(r)> 000206bc ; <LVAR 0x00c 4(r)> 000206bc ; <LVAR 0x008 4(r)> 000206bc ; -------------------------------------------------------------------------------------- 000206bc 4e 56 ff ec |NV | LINK.W A6,#0xffec 000206c0 bf d5 | | CMPA.L (A5),A7 000206c2 62 06 |b | BHI 0x206ca 000206c4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000206c8 4e 76 |Nv | TRAPV 000206ca de fc 00 14 | | ADDA.W #0x14,A7 000206ce 48 e7 00 80 |H | MOVEM.L A0,-(A7) 000206d2 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000206d8 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 000206dc 48 50 |HP | PEA.L (A0) 000206de 48 78 00 00 |Hx | PEA.L 0x0 000206e2 48 78 00 00 |Hx | PEA.L 0x0 000206e6 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 000206ec de fc 00 0c | | ADDA.W #0xc,A7 000206f0 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000206f4 48 50 |HP | PEA.L (A0) 000206f6 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 000206fc 58 4f |XO | ADDQ.L #0x4,A7 000206fe 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020702 48 50 |HP | PEA.L (A0) 00020704 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 0002070a 58 4f |XO | ADDQ.L #0x4,A7 0002070c 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 00020712 4c df 01 00 |L | MOVEM.L (A7)+,A0 00020716 4e 5e |N^ | UNLK A6 00020718 4e 75 |Nu | RTS 0002071a ; -------------------------------------------------------------------------------------- 0002071a ; OMSI PASCAL Function 0002071a ; <LVAR 0x01e 1(r)> 0002071a ; <LVAR 0x01a 4(r)> 0002071a ; <LVAR 0x016 4(r)> 0002071a ; <LVAR 0x012 4(r)> 0002071a ; <LVAR 0x010 1(r)> 0002071a ; <LVAR 0x00c 4(r)> 0002071a ; <LVAR 0x008 4(r)> 0002071a ; -------------------------------------------------------------------------------------- 0002071a 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 0002071e bf d5 | | CMPA.L (A5),A7 00020720 62 06 |b | BHI 0x20728 00020722 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020726 4e 76 |Nv | TRAPV 00020728 de fc 00 20 | | ADDA.W #0x20,A7 0002072c 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 00020730 41 f9 00 01 05 08 |A | LEA.L IPC_PutString(a : String),A0 00020736 43 f8 00 00 |C | LEA.L 0x0,A1 0002073a 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020740 1f 2e 00 1e | . | MOVE.B (A6+0x1e),-(A7) 00020744 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 0002074a 54 4f |TO | ADDQ.L #0x2,A7 0002074c 2f 2e 00 1a |/. | MOVE.L (A6+0x1a),-(A7) 00020750 4e 90 |N | JSR (A0) 00020752 2e ae 00 16 |. | MOVE.L (A6+0x16),(A7) 00020756 4e 90 |N | JSR (A0) 00020758 2e ae 00 12 |. | MOVE.L (A6+0x12),(A7) 0002075c 4e 90 |N | JSR (A0) 0002075e 54 4f |TO | ADDQ.L #0x2,A7 00020760 1e ae 00 10 | | MOVE.B (A6+0x10),(A7) 00020764 48 57 |HW | PEA.L (A7) 00020766 48 51 |HQ | PEA.L (A1) 00020768 48 51 |HQ | PEA.L (A1) 0002076a 4e b9 00 01 04 fc |N | JSR IPC_PutVar(src : Pointer; length : Long ; type : Long) 00020770 de fc 00 0a | | ADDA.W #0xa,A7 00020774 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 00020778 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002077c 48 57 |HW | PEA.L (A7) 0002077e 48 51 |HQ | PEA.L (A1) 00020780 48 78 00 07 |Hx | PEA.L 0x7 00020784 4e b9 00 01 04 fc |N | JSR IPC_PutVar(src : Pointer; length : Long ; type : Long) 0002078a de fc 00 14 | | ADDA.W #0x14,A7 0002078e 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 00020794 42 27 |B' | CLR.B -(A7) 00020796 48 78 00 01 |Hx | PEA.L 0x1 0002079a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000207a0 5c 4f |\O | ADDQ.L #0x6,A7 000207a2 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 000207a6 4e 5e |N^ | UNLK A6 000207a8 4e 75 |Nu | RTS 000207aa ; -------------------------------------------------------------------------------------- 000207aa ; OMSI PASCAL Function 000207aa ; <LVAR 0x024 4(r)> 000207aa ; <LVAR 0x022 1(r)> 000207aa ; <LVAR 0x020 1(r)> 000207aa ; <LVAR 0x01c 4(r)> 000207aa ; <LVAR 0x018 4(r)> 000207aa ; <LVAR 0x014 4(r)> 000207aa ; <LVAR 0x010 4(r)> 000207aa ; <LVAR 0x00c 4(r)> 000207aa ; <LVAR 0x008 4(r)> 000207aa ; -------------------------------------------------------------------------------------- 000207aa 4e 56 ff d0 |NV | LINK.W A6,#0xffd0 000207ae bf d5 | | CMPA.L (A5),A7 000207b0 62 06 |b | BHI 0x207b8 000207b2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000207b6 4e 76 |Nv | TRAPV 000207b8 de fc 00 30 | 0 | ADDA.W #0x30,A7 000207bc 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 000207c0 43 f8 00 00 |C | LEA.L 0x0,A1 000207c4 70 0c |p | MOVEQ.L #0x0c,D0 000207c6 72 01 |r | MOVEQ.L #0x01,D1 000207c8 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000207ce 1f 2e 00 22 | . " | MOVE.B (A6+0x22),-(A7) 000207d2 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 000207d8 1e ae 00 20 | | MOVE.B (A6+0x20),(A7) 000207dc 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 000207e2 54 4f |TO | ADDQ.L #0x2,A7 000207e4 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 000207ea 2f 3a f9 7a |/: z | MOVE.L 0x20166,-(A7) 000207ee 2f 3a f9 72 |/: r | MOVE.L 0x20162,-(A7) 000207f2 2f 3a f9 6a |/: j | MOVE.L 0x2015e,-(A7) 000207f6 51 4f |QO | SUBQ.L #0x8,A7 000207f8 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000207fc 3f 01 |? | MOVE.W D1,-(A7) 000207fe 3f 00 |? | MOVE.W D0,-(A7) 00020800 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020806 2e ae 00 24 |. $ | MOVE.L (A6+0x24),(A7) 0002080a 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020810 58 4f |XO | ADDQ.L #0x4,A7 00020812 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020818 50 4f |PO | ADDQ.L #0x8,A7 0002081a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020820 de fc 00 10 | | ADDA.W #0x10,A7 00020824 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020828 2f 2e 00 24 |/. $ | MOVE.L (A6+0x24),-(A7) 0002082c 48 78 00 01 |Hx | PEA.L 0x1 00020830 1f 01 | | MOVE.B D1,-(A7) 00020832 48 50 |HP | PEA.L (A0) 00020834 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 0002083a de fc 00 0e | | ADDA.W #0xe,A7 0002083e 4a 10 |J | TST.B (A0) 00020840 66 5c |f\ | BNE 0x2089e 00020842 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020848 20 6e 00 1c | n | MOVEA.L (A6+0x1c),A0 0002084c 48 50 |HP | PEA.L (A0) 0002084e 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 00020854 58 4f |XO | ADDQ.L #0x4,A7 00020856 20 6e 00 18 | n | MOVEA.L (A6+0x18),A0 0002085a 48 50 |HP | PEA.L (A0) 0002085c 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 00020862 58 4f |XO | ADDQ.L #0x4,A7 00020864 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0 00020868 48 50 |HP | PEA.L (A0) 0002086a 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 00020870 58 4f |XO | ADDQ.L #0x4,A7 00020872 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00020876 48 50 |HP | PEA.L (A0) 00020878 48 51 |HQ | PEA.L (A1) 0002087a 48 51 |HQ | PEA.L (A1) 0002087c 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 00020882 de c0 | | ADDA.W D0,A7 00020884 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020888 48 50 |HP | PEA.L (A0) 0002088a 48 51 |HQ | PEA.L (A1) 0002088c 48 78 00 07 |Hx | PEA.L 0x7 00020890 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 00020896 de c0 | | ADDA.W D0,A7 00020898 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 0002089e 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 000208a2 4e 5e |N^ | UNLK A6 000208a4 4e 75 |Nu | RTS 000208a6 ; -------------------------------------------------------------------------------------- 000208a6 ; OMSI PASCAL Function 000208a6 ; <LVAR 0x028 1(r)> 000208a6 ; <LVAR 0x024 4(r)> 000208a6 ; <LVAR 0x022 1(r)> 000208a6 ; <LVAR 0x020 1(r)> 000208a6 ; <LVAR 0x01c 4(r)> 000208a6 ; <LVAR 0x018 4(r)> 000208a6 ; <LVAR 0x014 4(r)> 000208a6 ; <LVAR 0x010 4(r)> 000208a6 ; <LVAR 0x00c 4(r)> 000208a6 ; <LVAR 0x008 4(r)> 000208a6 ; -------------------------------------------------------------------------------------- 000208a6 4e 56 ff ce |NV | LINK.W A6,#0xffce ; Spelunked 000208aa bf d5 | | CMPA.L (A5),A7 000208ac 62 06 |b | BHI 0x208b4 000208ae 44 fc 00 02 |D | MOVE.W #0x2,CCR 000208b2 4e 76 |Nv | TRAPV 000208b4 de fc 00 30 | 0 | ADDA.W #0x30,A7 000208b8 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 000208bc 43 f8 00 00 |C | LEA.L 0x0,A1 000208c0 70 0c |p | MOVEQ.L #0x0c,D0 000208c2 72 01 |r | MOVEQ.L #0x01,D1 000208c4 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000208ca 1f 2e 00 28 | . ( | MOVE.B (A6+0x28),-(A7) 000208ce 48 57 |HW | PEA.L (A7) 000208d0 48 51 |HQ | PEA.L (A1) 000208d2 48 51 |HQ | PEA.L (A1) 000208d4 4e b9 00 01 04 fc |N | JSR IPC_PutVar(src : Pointer; length : Long ; type : Long) 000208da de c0 | | ADDA.W D0,A7 000208dc 1e ae 00 22 | " | MOVE.B (A6+0x22),(A7) 000208e0 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 000208e6 1e ae 00 20 | | MOVE.B (A6+0x20),(A7) 000208ea 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 000208f0 54 4f |TO | ADDQ.L #0x2,A7 000208f2 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 000208f8 2f 3a f8 6c |/: l | MOVE.L 0x20166,-(A7) 000208fc 2f 3a f8 64 |/: d | MOVE.L 0x20162,-(A7) 00020900 2f 3a f8 5c |/: \ | MOVE.L 0x2015e,-(A7) 00020904 51 4f |QO | SUBQ.L #0x8,A7 00020906 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002090a 3f 01 |? | MOVE.W D1,-(A7) 0002090c 3f 00 |? | MOVE.W D0,-(A7) 0002090e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020914 2e ae 00 24 |. $ | MOVE.L (A6+0x24),(A7) 00020918 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 0002091e 58 4f |XO | ADDQ.L #0x4,A7 00020920 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020926 50 4f |PO | ADDQ.L #0x8,A7 00020928 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002092e de fc 00 10 | | ADDA.W #0x10,A7 00020932 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020936 2f 2e 00 24 |/. $ | MOVE.L (A6+0x24),-(A7) 0002093a 48 78 00 01 |Hx | PEA.L 0x1 0002093e 1f 01 | | MOVE.B D1,-(A7) 00020940 48 50 |HP | PEA.L (A0) 00020942 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00020948 de fc 00 0e | | ADDA.W #0xe,A7 0002094c 4a 10 |J | TST.B (A0) 0002094e 66 5c |f\ | BNE 0x209ac 00020950 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020956 20 6e 00 1c | n | MOVEA.L (A6+0x1c),A0 0002095a 48 50 |HP | PEA.L (A0) 0002095c 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 00020962 58 4f |XO | ADDQ.L #0x4,A7 00020964 20 6e 00 18 | n | MOVEA.L (A6+0x18),A0 00020968 48 50 |HP | PEA.L (A0) 0002096a 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 00020970 58 4f |XO | ADDQ.L #0x4,A7 00020972 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0 00020976 48 50 |HP | PEA.L (A0) 00020978 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 0002097e 58 4f |XO | ADDQ.L #0x4,A7 00020980 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00020984 48 50 |HP | PEA.L (A0) 00020986 48 51 |HQ | PEA.L (A1) 00020988 48 51 |HQ | PEA.L (A1) 0002098a 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 00020990 de c0 | | ADDA.W D0,A7 00020992 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020996 48 50 |HP | PEA.L (A0) 00020998 48 51 |HQ | PEA.L (A1) 0002099a 48 78 00 07 |Hx | PEA.L 0x7 0002099e 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 000209a4 de c0 | | ADDA.W D0,A7 000209a6 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 000209ac 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 000209b0 4e 5e |N^ | UNLK A6 000209b2 4e 75 |Nu | RTS 000209b4 ; -------------------------------------------------------------------------------------- 000209b4 ; OMSI PASCAL Function 000209b4 ; <LVAR 0x02c 1(r)> 000209b4 ; <LVAR 0x028 4(r)> 000209b4 ; <LVAR 0x026 1(r)> 000209b4 ; <LVAR 0x024 1(r)> 000209b4 ; <LVAR 0x022 1(r)> 000209b4 ; <LVAR 0x020 1(r)> 000209b4 ; <LVAR 0x01c 4(r)> 000209b4 ; <LVAR 0x018 4(r)> 000209b4 ; <LVAR 0x014 4(r)> 000209b4 ; <LVAR 0x010 4(r)> 000209b4 ; <LVAR 0x00c 4(r)> 000209b4 ; <LVAR 0x008 4(r)> 000209b4 ; -------------------------------------------------------------------------------------- 000209b4 4e 56 ff ca |NV | LINK.W A6,#0xffca ; Spelunked 000209b8 bf d5 | | CMPA.L (A5),A7 000209ba 62 06 |b | BHI 0x209c2 000209bc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000209c0 4e 76 |Nv | TRAPV 000209c2 de fc 00 34 | 4 | ADDA.W #0x34,A7 000209c6 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 000209ca 43 f8 00 00 |C | LEA.L 0x0,A1 000209ce 45 f9 00 01 05 02 |E | LEA.L IPC_PutBool(a : Bool),A2 000209d4 70 0c |p | MOVEQ.L #0x0c,D0 000209d6 72 01 |r | MOVEQ.L #0x01,D1 000209d8 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000209de 1f 2e 00 2c | . , | MOVE.B (A6+0x2c),-(A7) 000209e2 48 57 |HW | PEA.L (A7) 000209e4 48 51 |HQ | PEA.L (A1) 000209e6 48 51 |HQ | PEA.L (A1) 000209e8 4e b9 00 01 04 fc |N | JSR IPC_PutVar(src : Pointer; length : Long ; type : Long) 000209ee de c0 | | ADDA.W D0,A7 000209f0 1e ae 00 26 | & | MOVE.B (A6+0x26),(A7) 000209f4 4e 92 |N | JSR (A2) 000209f6 1e ae 00 24 | $ | MOVE.B (A6+0x24),(A7) 000209fa 4e 92 |N | JSR (A2) 000209fc 1e ae 00 22 | " | MOVE.B (A6+0x22),(A7) 00020a00 4e 92 |N | JSR (A2) 00020a02 1e ae 00 20 | | MOVE.B (A6+0x20),(A7) 00020a06 4e 92 |N | JSR (A2) 00020a08 54 4f |TO | ADDQ.L #0x2,A7 00020a0a 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 00020a10 2f 3a f7 54 |/: T | MOVE.L 0x20166,-(A7) 00020a14 2f 3a f7 4c |/: L | MOVE.L 0x20162,-(A7) 00020a18 2f 3a f7 44 |/: D | MOVE.L 0x2015e,-(A7) 00020a1c 51 4f |QO | SUBQ.L #0x8,A7 00020a1e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020a22 3f 01 |? | MOVE.W D1,-(A7) 00020a24 3f 00 |? | MOVE.W D0,-(A7) 00020a26 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020a2c 2e ae 00 28 |. ( | MOVE.L (A6+0x28),(A7) 00020a30 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020a36 58 4f |XO | ADDQ.L #0x4,A7 00020a38 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020a3e 50 4f |PO | ADDQ.L #0x8,A7 00020a40 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020a46 de fc 00 10 | | ADDA.W #0x10,A7 00020a4a 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020a4e 2f 2e 00 28 |/. ( | MOVE.L (A6+0x28),-(A7) 00020a52 48 78 00 01 |Hx | PEA.L 0x1 00020a56 1f 01 | | MOVE.B D1,-(A7) 00020a58 48 50 |HP | PEA.L (A0) 00020a5a 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00020a60 de fc 00 0e | | ADDA.W #0xe,A7 00020a64 4a 10 |J | TST.B (A0) 00020a66 66 5c |f\ | BNE 0x20ac4 00020a68 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020a6e 20 6e 00 1c | n | MOVEA.L (A6+0x1c),A0 00020a72 48 50 |HP | PEA.L (A0) 00020a74 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 00020a7a 58 4f |XO | ADDQ.L #0x4,A7 00020a7c 20 6e 00 18 | n | MOVEA.L (A6+0x18),A0 00020a80 48 50 |HP | PEA.L (A0) 00020a82 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 00020a88 58 4f |XO | ADDQ.L #0x4,A7 00020a8a 20 6e 00 14 | n | MOVEA.L (A6+0x14),A0 00020a8e 48 50 |HP | PEA.L (A0) 00020a90 4e b9 00 01 05 2c |N , | JSR IPC_GetString(VAR retval : String) 00020a96 58 4f |XO | ADDQ.L #0x4,A7 00020a98 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00020a9c 48 50 |HP | PEA.L (A0) 00020a9e 48 51 |HQ | PEA.L (A1) 00020aa0 48 51 |HQ | PEA.L (A1) 00020aa2 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 00020aa8 de c0 | | ADDA.W D0,A7 00020aaa 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020aae 48 50 |HP | PEA.L (A0) 00020ab0 48 51 |HQ | PEA.L (A1) 00020ab2 48 78 00 07 |Hx | PEA.L 0x7 00020ab6 4e b9 00 01 05 20 |N | JSR IPC_GetVar(MOD dst : Pointer; length : Long ; type : Long) 00020abc de c0 | | ADDA.W D0,A7 00020abe 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 00020ac4 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 00020ac8 4e 5e |N^ | UNLK A6 00020aca 4e 75 |Nu | RTS 00020acc ; -------------------------------------------------------------------------------------- 00020acc ; OMSI PASCAL Function 00020acc ; -------------------------------------------------------------------------------------- 00020acc 4e 56 ff be |NV | LINK.W A6,#0xffbe 00020ad0 bf d5 | | CMPA.L (A5),A7 00020ad2 62 06 |b | BHI 0x20ada 00020ad4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020ad8 4e 76 |Nv | TRAPV 00020ada de fc 00 3c | < | ADDA.W #0x3c,A7 00020ade 48 e7 c0 e8 |H | MOVEM.L A4+A2+A1+A0+D1+D0,-(A7) 00020ae2 43 f9 00 02 0e f4 |C | LEA.L 0x20ef4,A1 00020ae8 45 f9 00 02 0f 0e |E | LEA.L 0x20f0e,A2 00020aee 72 01 |r | MOVEQ.L #0x01,D1 00020af0 48 51 |HQ | PEA.L (A1) 00020af2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020af8 58 4f |XO | ADDQ.L #0x4,A7 00020afa 41 ee 00 12 |A | LEA.L (A6+0x12),A0 00020afe 70 04 |p | MOVEQ.L #0x04,D0 00020b00 3f 20 |? | MOVE.W -(A0),-(A7) 00020b02 51 c8 ff fc |Q | DBF D0,0x20b00 00020b06 59 4f |YO | SUBQ.L #0x4,A7 00020b08 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020b0c 3f 01 |? | MOVE.W D1,-(A7) 00020b0e 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00020b12 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020b18 50 4f |PO | ADDQ.L #0x8,A7 00020b1a 22 9f |" | MOVE.L (A7)+,(A1) 00020b1c 54 4f |TO | ADDQ.L #0x2,A7 00020b1e 2e 91 |. | MOVE.L (A1),(A7) 00020b20 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020b26 58 4f |XO | ADDQ.L #0x4,A7 00020b28 28 5f |(_ | MOVEA.L (A7)+,A4 00020b2a 2f 0c |/ | MOVE.L A4,-(A7) 00020b2c 10 39 00 02 0e f0 | 9 | MOVE.B 0x20ef0,D0 00020b32 48 80 |H | EXTB.W D0 00020b34 41 81 |A | CHK.W D1,D0 00020b36 1f 00 | | MOVE.B D0,-(A7) 00020b38 10 39 00 02 0e f1 | 9 | MOVE.B 0x20ef1,D0 00020b3e 48 80 |H | EXTB.W D0 00020b40 41 81 |A | CHK.W D1,D0 00020b42 1f 00 | | MOVE.B D0,-(A7) 00020b44 48 79 00 02 0e f2 |Hy | PEA.L 0x20ef2 00020b4a 48 79 00 02 0e f8 |Hy | PEA.L 0x20ef8 00020b50 48 79 00 02 0e fc |Hy | PEA.L 0x20efc 00020b56 48 79 00 02 0f 00 |Hy | PEA.L 0x20f00 00020b5c 48 79 00 02 0f 01 |Hy | PEA.L 0x20f01 00020b62 48 52 |HR | PEA.L (A2) 00020b64 4e ba fc 44 |N D | JSR 0x207aa 00020b68 de fc 00 20 | | ADDA.W #0x20,A7 00020b6c 4a 12 |J | TST.B (A2) 00020b6e 67 10 |g | BEQ 0x20b80 00020b70 1f 3c 00 06 | < | MOVE.B #0x06,-(A7) 00020b74 48 78 00 01 |Hx | PEA.L 0x1 00020b78 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020b7e 5c 4f |\O | ADDQ.L #0x6,A7 00020b80 4c df 17 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A4 00020b84 4e 5e |N^ | UNLK A6 00020b86 4e 75 |Nu | RTS 00020b88 ; -------------------------------------------------------------------------------------- 00020b88 ; OMSI PASCAL Function 00020b88 ; <LVAR 0x012 1(r)> 00020b88 ; <LVAR -0x004 1(rw)> 00020b88 ; -------------------------------------------------------------------------------------- 00020b88 4e 56 ff ba |NV | LINK.W A6,#0xffba ; Spelunked 00020b8c bf d5 | | CMPA.L (A5),A7 00020b8e 62 06 |b | BHI 0x20b96 00020b90 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b94 4e 76 |Nv | TRAPV 00020b96 de fc 00 3e | > | ADDA.W #0x3e,A7 00020b9a 48 e7 c0 e8 |H | MOVEM.L A4+A2+A1+A0+D1+D0,-(A7) 00020b9e 43 f9 00 02 0e f4 |C | LEA.L 0x20ef4,A1 00020ba4 45 f9 00 02 0f 0e |E | LEA.L 0x20f0e,A2 00020baa 72 01 |r | MOVEQ.L #0x01,D1 00020bac 48 51 |HQ | PEA.L (A1) 00020bae 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020bb4 58 4f |XO | ADDQ.L #0x4,A7 00020bb6 41 ee 00 12 |A | LEA.L (A6+0x12),A0 00020bba 70 04 |p | MOVEQ.L #0x04,D0 00020bbc 3f 20 |? | MOVE.W -(A0),-(A7) 00020bbe 51 c8 ff fc |Q | DBF D0,0x20bbc 00020bc2 59 4f |YO | SUBQ.L #0x4,A7 00020bc4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020bc8 3f 01 |? | MOVE.W D1,-(A7) 00020bca 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00020bce 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020bd4 50 4f |PO | ADDQ.L #0x8,A7 00020bd6 22 9f |" | MOVE.L (A7)+,(A1) 00020bd8 54 4f |TO | ADDQ.L #0x2,A7 00020bda 2e 91 |. | MOVE.L (A1),(A7) 00020bdc 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020be2 58 4f |XO | ADDQ.L #0x4,A7 00020be4 28 5f |(_ | MOVEA.L (A7)+,A4 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 2f 0c |/ | MOVE.L A4,-(A7) 00020bf2 10 39 00 02 0e f0 | 9 | MOVE.B 0x20ef0,D0 00020bf8 48 80 |H | EXTB.W D0 00020bfa 41 81 |A | CHK.W D1,D0 00020bfc 1f 00 | | MOVE.B D0,-(A7) 00020bfe 10 39 00 02 0e f1 | 9 | MOVE.B 0x20ef1,D0 00020c04 48 80 |H | EXTB.W D0 00020c06 41 81 |A | CHK.W D1,D0 00020c08 1f 00 | | MOVE.B D0,-(A7) 00020c0a 48 79 00 02 0e f2 |Hy | PEA.L 0x20ef2 00020c10 48 79 00 02 0e f8 |Hy | PEA.L 0x20ef8 00020c16 48 79 00 02 0e fc |Hy | PEA.L 0x20efc 00020c1c 48 79 00 02 0f 00 |Hy | PEA.L 0x20f00 00020c22 48 79 00 02 0f 01 |Hy | PEA.L 0x20f01 00020c28 48 52 |HR | PEA.L (A2) 00020c2a 4e ba fc 7a |N z | JSR 0x208a6 00020c2e de fc 00 22 | " | ADDA.W #0x22,A7 00020c32 4a 12 |J | TST.B (A2) 00020c34 67 10 |g | BEQ 0x20c46 00020c36 1f 3c 00 06 | < | MOVE.B #0x06,-(A7) 00020c3a 48 78 00 01 |Hx | PEA.L 0x1 00020c3e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020c44 5c 4f |\O | ADDQ.L #0x6,A7 00020c46 4c df 17 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A4 00020c4a 4e 5e |N^ | UNLK A6 00020c4c 4e 75 |Nu | RTS 00020c4e ; -------------------------------------------------------------------------------------- 00020c4e ; OMSI PASCAL Function 00020c4e ; -------------------------------------------------------------------------------------- 00020c4e START: 00020c4e 4f fa 00 08 |O | LEA.L MAIN,A7 00020c52 4e f9 00 01 02 80 |N | JMP ?start_program 00020c58 MAIN: 00020c58 45 f9 00 02 0e f2 |E | LEA.L 0x20ef2,A2 00020c5e 47 f9 00 02 0f 0a |G | LEA.L 0x20f0a,A3 00020c64 49 fa ff 22 |I " | LEA.L 0x20b88,A4 00020c68 74 0c |t | MOVEQ.L #0x0c,D2 00020c6a 7a 0a |z | MOVEQ.L #0x0a,D5 00020c6c 7c 05 || | MOVEQ.L #0x05,D6 00020c6e 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020c74 41 f9 00 02 0f 0f |A | LEA.L 0x20f0f,A0 00020c7a 43 fa f7 a8 |C | LEA.L 0x20424,A1 00020c7e 70 31 |p1 | MOVEQ.L #0x31,D0 00020c80 10 d9 | | MOVE.B (A1)+,(A0)+ 00020c82 51 c8 ff fc |Q | DBF D0,0x20c80 00020c86 41 f9 00 02 0f 41 |A A | LEA.L 0x20f41,A0 00020c8c 43 fa f6 ec |C | LEA.L 0x2037a,A1 00020c90 70 77 |pw | MOVEQ.L #0x77,D0 00020c92 10 d9 | | MOVE.B (A1)+,(A0)+ 00020c94 51 c8 ff fc |Q | DBF D0,0x20c92 00020c98 48 79 00 02 0e ee |Hy | PEA.L 0x20eee 00020c9e 48 79 00 02 0e f0 |Hy | PEA.L 0x20ef0 00020ca4 48 79 00 02 0e f1 |Hy | PEA.L 0x20ef1 00020caa 4e ba fa 10 |N | JSR 0x206bc 00020cae de c2 | | ADDA.W D2,A7 00020cb0 48 79 00 02 0e f4 |Hy | PEA.L 0x20ef4 00020cb6 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020cbc 58 4f |XO | ADDQ.L #0x4,A7 00020cbe 42 80 |B | CLR.L D0 00020cc0 10 39 00 02 0e ee | 9 | MOVE.B 0x20eee,D0 00020cc6 41 bc 00 0b |A | CHK.W #0xb,D0 00020cca 13 c0 00 02 0e ef | | MOVE.B D0,0x20eef 00020cd0 12 00 | | MOVE.B D0,D1 00020cd2 48 81 |H | EXTB.W D1 00020cd4 30 01 |0 | MOVE.W D1,D0 00020cd6 b0 45 | E | CMP.W D5,D0 00020cd8 62 00 01 3c |b < | BHI switch@0x20cde[0x1] 00020cdc d0 40 | @ | ADD.W D0,D0 00020cde 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020ce6 00 16 | | .CONST 0x16 ; [0x0] -> 0x20cfc 00020ce8 01 30 | 0 | .CONST 0x130 ; [0x1] -> 0x20e16 00020cea 00 a0 | | .CONST 0xa0 ; [0x2] -> 0x20d86 00020cec 00 a0 | | .CONST 0xa0 ; [0x3] -> 0x20d86 00020cee 00 a0 | | .CONST 0xa0 ; [0x4] -> 0x20d86 00020cf0 00 a0 | | .CONST 0xa0 ; [0x5] -> 0x20d86 00020cf2 00 a0 | | .CONST 0xa0 ; [0x6] -> 0x20d86 00020cf4 00 e4 | | .CONST 0xe4 ; [0x7] -> 0x20dca 00020cf6 00 e4 | | .CONST 0xe4 ; [0x8] -> 0x20dca 00020cf8 00 e4 | | .CONST 0xe4 ; [0x9] -> 0x20dca 00020cfa 00 e4 | | .CONST 0xe4 ; [0xa] -> 0x20dca 00020cfc switch@0x20cde[0x0]: 00020cfc 1f 06 | | MOVE.B D6,-(A7) 00020cfe 41 fa f5 ce |A | LEA.L 0x202ce,A0 00020d02 70 04 |p | MOVEQ.L #0x04,D0 00020d04 3f 20 |? | MOVE.W -(A0),-(A7) 00020d06 51 c8 ff fc |Q | DBF D0,0x20d04 00020d0a 4e 94 |N | JSR (A4) 00020d0c de c2 | | ADDA.W D2,A7 00020d0e 4a 12 |J | TST.B (A2) 00020d10 67 42 |gB | BEQ 0x20d54 00020d12 42 93 |B | CLR.L (A3) 00020d14 52 93 |R | ADDQ.L #0x1,(A3) 00020d16 20 13 | | MOVE.L (A3),D0 00020d18 53 80 |S | SUBQ.L #0x1,D0 00020d1a 0c 80 00 00 00 04 | | CMPI.L #0x00000004,D0 00020d20 63 02 |c | BLS 0x20d24 00020d22 4e 4f |NO | TRAP #15 00020d24 28 00 |( | MOVE.L D0,D4 00020d26 76 0a |v | MOVEQ.L #0x0a,D3 00020d28 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00020d2e 41 f9 00 02 0e e6 |A | LEA.L 0x20ee6,A0 00020d34 9e c5 | | SUBA.W D5,A7 00020d36 22 4f |"O | MOVEA.L A7,A1 00020d38 41 f0 48 29 |A H) | LEA.L (A0+D4.L+#0x29),A0 00020d3c 70 09 |p | MOVEQ.L #0x09,D0 00020d3e 12 d8 | | MOVE.B (A0)+,(A1)+ 00020d40 51 c8 ff fc |Q | DBF D0,0x20d3e 00020d44 4e ba fd 86 |N | JSR 0x20acc 00020d48 de c5 | | ADDA.W D5,A7 00020d4a 20 13 | | MOVE.L (A3),D0 00020d4c b0 86 | | CMP.L D6,D0 00020d4e 67 04 |g | BEQ 0x20d54 00020d50 4a 12 |J | TST.B (A2) 00020d52 66 c0 |f | BNE 0x20d14 00020d54 4a 12 |J | TST.B (A2) 00020d56 67 14 |g | BEQ 0x20d6c 00020d58 1f 3c 00 08 | < | MOVE.B #0x08,-(A7) 00020d5c 41 fa f5 7a |A z | LEA.L 0x202d8,A0 00020d60 70 04 |p | MOVEQ.L #0x04,D0 00020d62 3f 20 |? | MOVE.W -(A0),-(A7) 00020d64 51 c8 ff fc |Q | DBF D0,0x20d62 00020d68 4e 94 |N | JSR (A4) 00020d6a de c2 | | ADDA.W D2,A7 00020d6c 4a 12 |J | TST.B (A2) 00020d6e 67 12 |g | BEQ 0x20d82 00020d70 1f 06 | | MOVE.B D6,-(A7) 00020d72 41 fa f5 6e |A n | LEA.L 0x202e2,A0 00020d76 70 04 |p | MOVEQ.L #0x04,D0 00020d78 3f 20 |? | MOVE.W -(A0),-(A7) 00020d7a 51 c8 ff fc |Q | DBF D0,0x20d78 00020d7e 4e 94 |N | JSR (A4) 00020d80 de c2 | | ADDA.W D2,A7 00020d82 60 00 00 b2 |` | BRA 0x20e36 00020d86 switch@0x20cde[0x2]: 00020d86 switch@0x20cde[0x3]: 00020d86 switch@0x20cde[0x4]: 00020d86 switch@0x20cde[0x5]: 00020d86 switch@0x20cde[0x6]: 00020d86 41 fa f5 6e |A n | LEA.L 0x202f6,A0 00020d8a 1f 30 10 00 | 0 | MOVE.B (A0+D1.W),-(A7) 00020d8e 41 fa f5 5c |A \ | LEA.L 0x202ec,A0 00020d92 70 04 |p | MOVEQ.L #0x04,D0 00020d94 3f 20 |? | MOVE.W -(A0),-(A7) 00020d96 51 c8 ff fc |Q | DBF D0,0x20d94 00020d9a 4e 94 |N | JSR (A4) 00020d9c de c2 | | ADDA.W D2,A7 00020d9e 4a 12 |J | TST.B (A2) 00020da0 67 26 |g& | BEQ 0x20dc8 00020da2 10 39 00 02 0e ef | 9 | MOVE.B 0x20eef,D0 00020da8 48 80 |H | EXTB.W D0 00020daa c1 c5 | | MULS.W D5,D0 00020dac 41 f9 00 02 0e e6 |A | LEA.L 0x20ee6,A0 00020db2 9e c5 | | SUBA.W D5,A7 00020db4 22 4f |"O | MOVEA.L A7,A1 00020db6 41 f0 00 5b |A [ | LEA.L (A0+D0.W+#0x5b),A0 00020dba 70 09 |p | MOVEQ.L #0x09,D0 00020dbc 12 d8 | | MOVE.B (A0)+,(A1)+ 00020dbe 51 c8 ff fc |Q | DBF D0,0x20dbc 00020dc2 4e ba fd 08 |N | JSR 0x20acc 00020dc6 de c5 | | ADDA.W D5,A7 00020dc8 60 6c |`l | BRA 0x20e36 00020dca switch@0x20cde[0x7]: 00020dca switch@0x20cde[0x8]: 00020dca switch@0x20cde[0x9]: 00020dca switch@0x20cde[0xa]: 00020dca 41 fa f5 2a |A * | LEA.L 0x202f6,A0 00020dce 1f 30 10 00 | 0 | MOVE.B (A0+D1.W),-(A7) 00020dd2 41 fa f5 22 |A " | LEA.L 0x202f6,A0 00020dd6 70 04 |p | MOVEQ.L #0x04,D0 00020dd8 3f 20 |? | MOVE.W -(A0),-(A7) 00020dda 51 c8 ff fc |Q | DBF D0,0x20dd8 00020dde 4e 94 |N | JSR (A4) 00020de0 de c2 | | ADDA.W D2,A7 00020de2 4a 12 |J | TST.B (A2) 00020de4 67 2e |g. | BEQ 0x20e14 00020de6 10 39 00 02 0e ef | 9 | MOVE.B 0x20eef,D0 00020dec 48 80 |H | EXTB.W D0 00020dee 72 0a |r | MOVEQ.L #0x0a,D1 00020df0 c3 c0 | | MULS.W D0,D1 00020df2 41 fa f5 02 |A | LEA.L 0x202f6,A0 00020df6 1f 30 00 00 | 0 | MOVE.B (A0+D0.W),-(A7) 00020dfa 41 f9 00 02 0e e6 |A | LEA.L 0x20ee6,A0 00020e00 9e c5 | | SUBA.W D5,A7 00020e02 22 4f |"O | MOVEA.L A7,A1 00020e04 41 f0 10 5b |A [ | LEA.L (A0+D1.W+#0x5b),A0 00020e08 70 09 |p | MOVEQ.L #0x09,D0 00020e0a 12 d8 | | MOVE.B (A0)+,(A1)+ 00020e0c 51 c8 ff fc |Q | DBF D0,0x20e0a 00020e10 4e 94 |N | JSR (A4) 00020e12 de c2 | | ADDA.W D2,A7 00020e14 60 20 |` | BRA 0x20e36 00020e16 switch@0x20cde[0x1]: 00020e16 14 bc 00 01 | | MOVE.B #0x01,(A2) 00020e1a 48 79 00 02 0e f8 |Hy | PEA.L 0x20ef8 00020e20 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020e26 58 4f |XO | ADDQ.L #0x4,A7 00020e28 48 79 00 02 0e fc |Hy | PEA.L 0x20efc 00020e2e 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020e34 58 4f |XO | ADDQ.L #0x4,A7 00020e36 1f 12 | | MOVE.B (A2),-(A7) 00020e38 2f 39 00 02 0e f4 |/9 | MOVE.L 0x20ef4,-(A7) 00020e3e 2f 39 00 02 0e f8 |/9 | MOVE.L 0x20ef8,-(A7) 00020e44 2f 39 00 02 0e fc |/9 | MOVE.L 0x20efc,-(A7) 00020e4a 1f 39 00 02 0f 00 | 9 | MOVE.B 0x20f00,-(A7) 00020e50 51 4f |QO | SUBQ.L #0x8,A7 00020e52 20 4f | O | MOVEA.L A7,A0 00020e54 43 f9 00 02 0f 01 |C | LEA.L 0x20f01,A1 00020e5a 70 07 |p | MOVEQ.L #0x07,D0 00020e5c 10 d9 | | MOVE.B (A1)+,(A0)+ 00020e5e 51 c8 ff fc |Q | DBF D0,0x20e5c 00020e62 4e ba f8 b6 |N | JSR 0x2071a 00020e66 de fc 00 18 | | ADDA.W #0x18,A7 00020e6a 4e b9 00 01 02 84 |N | JSR ?exit 00020e70 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00020e7e ; -------------------------------------------------------------------------------------- 00020e7e ; OMSI PASCAL Function 00020e7e ; <LVAR 0x008 1(r)> 00020e7e ; -------------------------------------------------------------------------------------- 00020e7e PROG_FAIL: 00020e7e 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00020e82 bf d5 | | CMPA.L (A5),A7 00020e84 62 06 |b | BHI 0x20e8c 00020e86 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020e8a 4e 76 |Nv | TRAPV 00020e8c de fc 00 2c | , | ADDA.W #0x2c,A7 00020e90 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020e94 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00020e98 70 06 |p | MOVEQ.L #0x06,D0 00020e9a 3f 20 |? | MOVE.W -(A0),-(A7) 00020e9c 51 c8 ff fc |Q | DBF D0,0x20e9a 00020ea0 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00020ea4 51 4f |QO | SUBQ.L #0x8,A7 00020ea6 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00020eaa 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00020eae 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00020eb2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020eb8 58 4f |XO | ADDQ.L #0x4,A7 00020eba 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00020ebe 48 80 |H | EXTB.W D0 00020ec0 48 c0 |H | EXTW.L D0 00020ec2 2f 00 |/ | MOVE.L D0,-(A7) 00020ec4 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00020eca 58 4f |XO | ADDQ.L #0x4,A7 00020ecc 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020ed2 50 4f |PO | ADDQ.L #0x8,A7 00020ed4 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020eda de fc 00 14 | | ADDA.W #0x14,A7 00020ede 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020ee2 4e 5e |N^ | UNLK A6 00020ee4 4e 75 |Nu | RTS