|
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: 8192 (0x2000)
Types: M200
Notes: @(#)P2UCODE,2.0,89/10/03,17:18:19, M200_PROGRAM
Names: »P2UCODE.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »P2UCODE.M200«
└─ ⟦this⟧ »P2UCODE.M200«
@ 20430
<LVAR 0x00c 1(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @>
<POP 20430-204be Body>
<POP 20430-20446 Prologue> Σ0 ↓
<POP 20446-204b6 Naked> Σ0 ↓
<Call 0x20446 0x10538> {}
IPC_Init(void)
<MI 2044c MOVE.B (A6+0xc),-(A7)> Δ-2 {[2, '(A6+0xc)']}
<Call 0x20450 0x10502> {[2, '(A6+0xc)']}
IPC_PutBool(a : Bool)
<POP 20456-20458 StackAdj> Δ+2 {}
<Call 0x20458 0x10514> {}
IPC_PutEnd(void)
<Blob 0x2045e [10] @> Δ-10 {[«10""»]}
<POP 20470-20472 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x20472 9> {[«10""»]|[$$INITSTATE]}
<Const 0x20486 0x1.4> Δ-4 {[«10""»]|[$$INITSTATE]|[##1]}
<Const 0x2048a 0x2.2> Δ-2 {[«10""»]|[$$INITSTATE]|[##1]|[#2]}
<Pointer.fp 0x2048e <LVAR -0x002 @>> Δ-4 {[«10""»]|[$$INITSTATE]|[##1]|[#2]|[@@-2]}
<Call 0x20492 0x103b0> {[«10""»]|[$$INITSTATE]|[##1]|[#2]|[@@-2]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 20498-2049c StackAdj> Δ+24 {}
<Call 0x2049c 0x10538> {}
IPC_Init(void)
<MI 204a2 MOVEA.L (A6+0x8),A0> {}
<MI 204a6 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x204a8 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 204ae-204b0 StackAdj> Δ+4 {}
<Call 0x204b0 0x1051a> {}
IPC_GetEnd(void)
<POP 204b6-204be Epilogue> Σ0
@ 204be
<LVAR 0x008 4(r)>
<POP 204be-204f6 Body>
<POP 204be-204d4 Prologue> Σ0 ↓
<POP 204d4-204ee Naked> Σ0 ↓
<Call 0x204d4 0x10538> {}
IPC_Init(void)
<MI 204da MOVEA.L (A6+0x8),A0> {}
<MI 204de PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x204e0 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 204e6-204e8 StackAdj> Δ+4 {}
<Call 0x204e8 0x1051a> {}
IPC_GetEnd(void)
<POP 204ee-204f6 Epilogue> Σ0
@ 204f6
<LVAR 0x008 1(r)>
<POP 204f6-20532 Body>
<POP 204f6-20508 Prologue> Σ0 ↓
<POP 20508-2052e Naked> Σ0 ↓
<Call 0x20508 0x10538> {}
IPC_Init(void)
<MI 2050e MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x20512 0x10502> {[2, '(A6+0x8)']}
IPC_PutBool(a : Bool)
<POP 20518-2051a StackAdj> Δ+2 {}
<Call 0x2051a 0x10514> {}
IPC_PutEnd(void)
<MI 20520 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x20522 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x20526 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 2052c-2052e StackAdj> Δ+6 {}
<POP 2052e-20532 Epilogue> Σ0
@ 20532
<LVAR 0x016 1(r)>
<LVAR 0x012 4(r)>
<LVAR 0x010 1(r)>
<LVAR 0x00e 1(r)>
<LVAR 0x00c 1(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @>
<POP 20532-205fa Body> Δ+10
<POP 20532-20548 Prologue> Σ0 ↓
<POP 20548-20550 RegCacheLoad> Σ0 ↓
<POP 20550-20570 Naked> Σ0 ↓ →0x2057e
<Call 0x20550 0x10538> {}
IPC_Init(void)
<MI 20556 MOVE.L (A6+0x12),-(A7)> Δ-4 {[4, '(A6+0x12)']}
<Call 0x2055a 0x10508> {[4, '(A6+0x12)']}
IPC_PutString(a : String)
<POP 20560-20562 StackAdj> Δ+2 {[-2-]}
<MI 20562 MOVE.B (A6+0x10),(A7)> {[-2-]}
<Call 0x20566 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<POP 20568-2056a StackAdj> Δ+2 {}
<MI 2056a TST.B (A6+0x16)> {}
<MI 2056e BNE 0x2057e> {}
<POP 20570-2057e Naked> Σ0 ↓
<MI 20570 MOVE.B (A6+0xe),-(A7)> Δ-2 {[2, '(A6+0xe)']}
<Call 0x20574 0x10502> {[2, '(A6+0xe)']}
IPC_PutBool(a : Bool)
<MI 20576 MOVE.B (A6+0xc),(A7)> {[-2-]}
<Call 0x2057a 0x10502> {[-2-]}
IPC_PutBool(a : Bool)
<POP 2057c-2057e StackAdj> Δ+2 {}
<POP 2057e-2058a Naked> Σ0 ↓ →0x2059c ←0x20550
<Call 0x2057e 0x10514> {}
IPC_PutEnd(void)
<MI 20584 TST.B (A6+0x16)> {}
<MI 20588 BEQ 0x2059c> {}
<POP 2058a-2059c Naked> Σ0 Δ-10 →0x205ac
<Blob 0x2058a [10] @> Δ-10 {[«10""»]}
<MI 2059a BRA 0x205ac> {[«10""»]}
<POP 2059c-205ac Naked> Σ0 Δ-10 ↓ ←0x2057e
<Blob 0x2059c [10] @> Δ-10 {[«10""»]}
<POP 205ac-205f2 Naked> Σ-10 Δ+10 ↓ ←0x2058a
<POP 205ac-205ae StackAdj> Δ-4 {[-14-]}
<Lit 0x205ae> {[-10-]|[$$…]}
<Pointer.sp 0x205ae 4> Δ-4
<Const 0x205b2 0x1.2> Δ-2
<Const 0x205b6 0x9.2> Δ-2
<Call 0x205ba 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 205c0-205c2 StackAdj> Δ+8
<Const 0x205c2 0x1.4> Δ-4 {[-10-]|[$$…]|[##1]}
<Const 0x205c6 0x2.2> Δ-2 {[-10-]|[$$…]|[##1]|[#2]}
<Pointer.fp 0x205ca <LVAR -0x004 @>> Δ-4 {[-10-]|[$$…]|[##1]|[#2]|[@@-4]}
<Call 0x205ce 0x103b0> {[-10-]|[$$…]|[##1]|[#2]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 205d4-205d8 StackAdj> Δ+24 {}
<Call 0x205d8 0x10538> {}
IPC_Init(void)
<MI 205de MOVEA.L (A6+0x8),A0> {}
<MI 205e2 PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x205e4 0x10526> {[4, '^(A0)']}
IPC_GetBool() : Bool
<POP 205ea-205ec StackAdj> Δ+4 {}
<Call 0x205ec 0x1051a> {}
IPC_GetEnd(void)
<POP 205f2-205fa Epilogue> Σ0
@ 205fa
<LVAR -0x004 1(rw)>
<POP 205fa-206da Body>
<POP 205fa-20610 Prologue> Σ0 ↓
<POP 20610-20618 RegCacheLoad> Σ0 ↓
<POP 20618-20624 Naked> Σ0 ↓ →0x2062c
<POP 20618-2061a StackAdj> Δ-2 {[-2-]}
<Call 0x2061a 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 20620 TST.B (A7)+> Δ+2 {}
<MI 20622 BEQ 0x2062c> {}
<POP 20624-2062c Naked> Σ0 →0x20632
<Call 0x20624 0x210f0> {}
exp_LOAD_HRAM_8_0.FIU()
<MI 2062a BRA 0x20632> {}
<POP 2062c-20632 Naked> Σ0 ↓ ←0x20618
<Call 0x2062c 0x2110e> {}
exp_LOAD_HRAM_32_0.FIU()
<POP 20632-20648 Naked> Σ0 ↓ ←0x20624
<Call 0x20632 0x211bc> {}
exp_LOAD_HRAM_1.FIU()
<Call 0x20638 0x213bc> {}
exp_ALIGN_CSA.VAL()
<Call 0x2063e 0x2131c> {}
exp_ALIGN_CSA.TYP()
<MI 20644 CLR.B (A6-0x4)> {}
<MI 20646 MOVEQ.L #0x0c,D7> {}
<POP 20648-20658 Naked> Σ0 ↓ →0x20664 ←0x20664
<POP 20648-2064a StackAdj> Δ-2 {[-2-]}
<MI 2064a MOVE.B D7,-(A7)> Δ-2 {[-2-]|[2, 'D7']}
<Call 0x2064c 0x104c0> {[-2-]|[2, 'D7']}
HasBoard(diproc_addr: Byte) : Byte
<POP 20652-20654 StackAdj> Δ+2 {[-2-]}
<MI 20654 TST.B (A7)+> Δ+2 {}
<MI 20656 BEQ 0x20664> {}
<POP 20658-20664 Naked> Σ0 ↓
<MI 20658 CLR.L D0> {}
<MI 2065a MOVE.B (A6-0x4),D0> {}
<MI 2065c ADDQ.W #0x1,D0> {}
<POP 0x2065e LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 20662 MOVE.B D0,(A6-0x4)> {}
<POP 20664-2066a Naked> Σ0 ↓ →0x20648 ←0x20648
<MI 20664 ADDQ.B #0x1,D7> {}
<MI 20666 CMP.B #0x0f,D7> {}
<MI 20668 BLE 0x20648> {}
<POP 2066a-2066c Naked> Σ0 ↓
<MI 2066a MOVEQ.L #0x0c,D7> {}
<POP 2066c-2067c Naked> Σ0 ↓ →0x206b6 ←0x206b6
<POP 2066c-2066e StackAdj> Δ-2 {[-2-]}
<MI 2066e MOVE.B D7,-(A7)> Δ-2 {[-2-]|[2, 'D7']}
<Call 0x20670 0x104c0> {[-2-]|[2, 'D7']}
HasBoard(diproc_addr: Byte) : Byte
<POP 20676-20678 StackAdj> Δ+2 {[-2-]}
<MI 20678 TST.B (A7)+> Δ+2 {}
<MI 2067a BEQ 0x206b6> {}
<POP 2067c-206b6 Naked> Σ0 ↓
<MI 2067c MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']}
<POP 2067e-20680 StackAdj> Δ-2 {[2, 'D7']|[-2-]}
<MI 20680 MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']|[-2-]|[2, 'D7']}
<Call 0x20682 0x104c6> {[2, 'D7']|[-2-]|[2, 'D7']}
EQ_1c218(a : Byte) : Bool
<POP 20688-2068a StackAdj> Δ+2 {[2, 'D7']|[-2-]}
<MI 2068a MOVE.B (A7),D0> {[2, 'D7']|[-2-]}
<MI 2068c EXTB.W D0> {[2, 'D7']|[-2-]}
<POP 0x2068e LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, 'D7']|[-2-]}
<MI 20690 MOVE.B D0,(A7)> {[2, 'D7']|[-2-]}
<POP 20692-20694 StackAdj> Δ-2 {[2, 'D7']|[-4-]}
<Call 0x20694 0x104cc> {[2, 'D7']|[-4-]}
MemOnly2MB() : Bool
<MI 2069a MOVE.B (A7),D0> {[2, 'D7']|[-4-]}
<MI 2069c EXTB.W D0> {[2, 'D7']|[-4-]}
<POP 0x2069e LimitCheck 0x0 ≤ D0 ≤ 0x1> {[2, 'D7']|[-4-]}
<MI 206a0 MOVE.B D0,(A7)> {[2, 'D7']|[-4-]}
<MI 206a2 MOVE.B (A6-0x4),-(A7)> Δ-2 {[2, 'D7']|[-4-]|[2, '(A6-0x4)']}
<Call 0x206a4 0x21604> {[2, 'D7']|[-4-]|[2, '(A6-0x4)']}
<POP 206aa-206ac StackAdj> Δ+6 {[2, 'D7']}
<MI 206ac MOVE.B D7,(A7)> {[-2-]}
<Call 0x206ae 0x21804> {[-2-]}
<POP 206b4-206b6 StackAdj> Δ+2 {}
<POP 206b6-206bc Naked> Σ0 ↓ →0x2066c ←0x2066c
<MI 206b6 ADDQ.B #0x1,D7> {}
<MI 206b8 CMP.B #0x0f,D7> {}
<MI 206ba BLE 0x2066c> {}
<POP 206bc-206d2 Naked> Σ0 ↓
<Call 0x206bc 0x105b0> {}
FifoInit(void)
<Const 0x206c2 0xffff.2> Δ-2 {[#65535]}
<Const 0x206c6 0xffff.2> Δ-2 {[#65535]|[#65535]}
<Call 0x206ca 0x21198> {[#65535]|[#65535]}
exp_LOAD_REFRESH_REGS.FIU(Sw_2, Sw_2)
<POP 206d0-206d2 StackAdj> Δ+4 {}
<POP 206d2-206da Epilogue> Σ0
@ 206da
<LVAR 0x008 2(r)>
<LVAR -0x002 1(rw)>
<POP 206da-20850 Body>
<POP 206da-206f0 Prologue> Σ0 ↓
<POP 206f0-20712 RegCacheLoad> Σ0 ↓
<POP 20712-20724 Naked> Σ0 ↓ →0x20728
<Call 0x20712 0x212fa> {}
exp_LOAD_BENIGN_UWORD.TYP()
<POP 20718-2071a StackAdj> Δ-2 {[-2-]}
<Call 0x2071a 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 20720 TST.B (A7)+> Δ+2 {}
<MI 20722 BEQ 0x20728> {}
<POP 20724-20728 Naked> Σ0 →0x2072c
<MI 20724 CLR.B (A6-0x2)> {}
<MI 20726 BRA 0x2072c> {}
<POP 20728-2072c Naked> Σ0 ↓ ←0x20712
<MI 20728 MOVE.B #0xff,(A6-0x2)> {}
<POP 2072c-20738 Naked> Σ0 ↓ →0x20740 ←0x20724
<POP 2072c-2072e StackAdj> Δ-2 {[-2-]}
<Const 0x2072e 0xc.2> Δ-2 {[-2-]|[#12]}
<Call 0x20730 0x104c0> {[-2-]|[#12]}
HasBoard(diproc_addr: Byte) : Byte
<POP 20732-20734 StackAdj> Δ+2 {[-2-]}
<MI 20734 TST.B (A7)+> Δ+2 {}
<MI 20736 BEQ 0x20740> {}
<POP 20738-20740 Naked> Σ0 ↓
<Const 0x20738 0xc.2> Δ-2 {[#12]}
<MI 2073a MOVE.B (A6-0x2),-(A7)> Δ-2 {[#12]|[2, '(A6-0x2)']}
<Call 0x2073c 0x213ee> {[#12]|[2, '(A6-0x2)']}
<POP 2073e-20740 StackAdj> Δ+4 {}
<POP 20740-2074c Naked> Σ0 ↓ →0x20754 ←0x2072c
<POP 20740-20742 StackAdj> Δ-2 {[-2-]}
<Const 0x20742 0xd.2> Δ-2 {[-2-]|[#13]}
<Call 0x20744 0x104c0> {[-2-]|[#13]}
HasBoard(diproc_addr: Byte) : Byte
<POP 20746-20748 StackAdj> Δ+2 {[-2-]}
<MI 20748 TST.B (A7)+> Δ+2 {}
<MI 2074a BEQ 0x20754> {}
<POP 2074c-20754 Naked> Σ0 ↓
<Const 0x2074c 0xd.2> Δ-2 {[#13]}
<MI 2074e MOVE.B (A6-0x2),-(A7)> Δ-2 {[#13]|[2, '(A6-0x2)']}
<Call 0x20750 0x213ee> {[#13]|[2, '(A6-0x2)']}
<POP 20752-20754 StackAdj> Δ+4 {}
<POP 20754-20760 Naked> Σ0 ↓ →0x20768 ←0x20740
<POP 20754-20756 StackAdj> Δ-2 {[-2-]}
<Const 0x20756 0xe.2> Δ-2 {[-2-]|[#14]}
<Call 0x20758 0x104c0> {[-2-]|[#14]}
HasBoard(diproc_addr: Byte) : Byte
<POP 2075a-2075c StackAdj> Δ+2 {[-2-]}
<MI 2075c TST.B (A7)+> Δ+2 {}
<MI 2075e BEQ 0x20768> {}
<POP 20760-20768 Naked> Σ0 ↓
<Const 0x20760 0xe.2> Δ-2 {[#14]}
<MI 20762 MOVE.B (A6-0x2),-(A7)> Δ-2 {[#14]|[2, '(A6-0x2)']}
<Call 0x20764 0x213ee> {[#14]|[2, '(A6-0x2)']}
<POP 20766-20768 StackAdj> Δ+4 {}
<POP 20768-20774 Naked> Σ0 ↓ →0x2077c ←0x20754
<POP 20768-2076a StackAdj> Δ-2 {[-2-]}
<Const 0x2076a 0xf.2> Δ-2 {[-2-]|[#15]}
<Call 0x2076c 0x104c0> {[-2-]|[#15]}
HasBoard(diproc_addr: Byte) : Byte
<POP 2076e-20770 StackAdj> Δ+2 {[-2-]}
<MI 20770 TST.B (A7)+> Δ+2 {}
<MI 20772 BEQ 0x2077c> {}
<POP 20774-2077c Naked> Σ0 ↓
<Const 0x20774 0xf.2> Δ-2 {[#15]}
<MI 20776 MOVE.B (A6-0x2),-(A7)> Δ-2 {[#15]|[2, '(A6-0x2)']}
<Call 0x20778 0x213ee> {[#15]|[2, '(A6-0x2)']}
<POP 2077a-2077c StackAdj> Δ+4 {}
<POP 2077c-2078e Naked> Σ0 ↓ →0x20794 ←0x20768
<Call 0x2077c 0x211d8> {}
exp_INIT_MRU.FIU()
<POP 20782-20784 StackAdj> Δ-2 {[-2-]}
<Const 0x20784 0xc.2> Δ-2 {[-2-]|[#12]}
<Call 0x20786 0x104c0> {[-2-]|[#12]}
HasBoard(diproc_addr: Byte) : Byte
<POP 20788-2078a StackAdj> Δ+2 {[-2-]}
<MI 2078a TST.B (A7)+> Δ+2 {}
<MI 2078c BEQ 0x20794> {}
<POP 2078e-20794 Naked> Σ0 ↓
<Const 0x2078e 0xc.2> Δ-2 {[#12]}
<Call 0x20790 0x21962> {[#12]}
<POP 20792-20794 StackAdj> Δ+2 {}
<POP 20794-207a0 Naked> Σ0 ↓ →0x207a6 ←0x2077c
<POP 20794-20796 StackAdj> Δ-2 {[-2-]}
<Const 0x20796 0xd.2> Δ-2 {[-2-]|[#13]}
<Call 0x20798 0x104c0> {[-2-]|[#13]}
HasBoard(diproc_addr: Byte) : Byte
<POP 2079a-2079c StackAdj> Δ+2 {[-2-]}
<MI 2079c TST.B (A7)+> Δ+2 {}
<MI 2079e BEQ 0x207a6> {}
<POP 207a0-207a6 Naked> Σ0 ↓
<Const 0x207a0 0xd.2> Δ-2 {[#13]}
<Call 0x207a2 0x21962> {[#13]}
<POP 207a4-207a6 StackAdj> Δ+2 {}
<POP 207a6-207b2 Naked> Σ0 ↓ →0x207b8 ←0x20794
<POP 207a6-207a8 StackAdj> Δ-2 {[-2-]}
<Const 0x207a8 0xe.2> Δ-2 {[-2-]|[#14]}
<Call 0x207aa 0x104c0> {[-2-]|[#14]}
HasBoard(diproc_addr: Byte) : Byte
<POP 207ac-207ae StackAdj> Δ+2 {[-2-]}
<MI 207ae TST.B (A7)+> Δ+2 {}
<MI 207b0 BEQ 0x207b8> {}
<POP 207b2-207b8 Naked> Σ0 ↓
<Const 0x207b2 0xe.2> Δ-2 {[#14]}
<Call 0x207b4 0x21962> {[#14]}
<POP 207b6-207b8 StackAdj> Δ+2 {}
<POP 207b8-207c4 Naked> Σ0 ↓ →0x207ca ←0x207a6
<POP 207b8-207ba StackAdj> Δ-2 {[-2-]}
<Const 0x207ba 0xf.2> Δ-2 {[-2-]|[#15]}
<Call 0x207bc 0x104c0> {[-2-]|[#15]}
HasBoard(diproc_addr: Byte) : Byte
<POP 207be-207c0 StackAdj> Δ+2 {[-2-]}
<MI 207c0 TST.B (A7)+> Δ+2 {}
<MI 207c2 BEQ 0x207ca> {}
<POP 207c4-207ca Naked> Σ0 ↓
<Const 0x207c4 0xf.2> Δ-2 {[#15]}
<Call 0x207c6 0x21962> {[#15]}
<POP 207c8-207ca StackAdj> Δ+2 {}
<POP 207ca-207fc Naked> Σ0 ↓ →0x20806 ←0x207b8
<MI 207ca MOVE.W (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<Call 0x207cc 0x212c4> {[2, '(A6+0x8)']}
exp_PREP_RUN.TYP(Sw_2)
<MI 207d2 MOVE.W (A6+0x8),(A7)> {[2, '(A6+0x8)']}
<Call 0x207d4 0x21386> {[2, '(A6+0x8)']}
exp_PREP_RUN.VAL(Sw_2)
<MI 207da MOVE.W (A6+0x8),(A7)> {[2, '(A6+0x8)']}
<Call 0x207dc 0x21a16> {[2, '(A6+0x8)']}
exp_PREP_RUN.IOC(Sw_2)
<MI 207e2 MOVE.W (A6+0x8),(A7)> {[2, '(A6+0x8)']}
<Call 0x207e4 0x21240> {[2, '(A6+0x8)']}
exp_PREP_RUN.SEQ(Sw_2)
<MI 207ea MOVE.W (A6+0x8),(A7)> {[2, '(A6+0x8)']}
<Call 0x207ec 0x2117e> {[2, '(A6+0x8)']}
exp_PREP_RUN.FIU(Sw_2)
<Const 0x207f2 0xc.2> Δ-2 {[2, '(A6+0x8)']|[#12]}
<Call 0x207f4 0x104c0> {[2, '(A6+0x8)']|[#12]}
HasBoard(diproc_addr: Byte) : Byte
<POP 207f6-207f8 StackAdj> Δ+2 {[2, '(A6+0x8)']}
<MI 207f8 TST.B (A7)+> Δ+2 {}
<MI 207fa BEQ 0x20806> {}
<POP 207fc-20806 Naked> Σ0 ↓
<Const 0x207fc 0xc.2> Δ-2 {[#12]}
<Call 0x207fe 0x218b8> {[#12]}
<POP 20804-20806 StackAdj> Δ+2 {}
<POP 20806-20812 Naked> Σ0 ↓ →0x2081c ←0x207ca
<POP 20806-20808 StackAdj> Δ-2 {[-2-]}
<Const 0x20808 0xd.2> Δ-2 {[-2-]|[#13]}
<Call 0x2080a 0x104c0> {[-2-]|[#13]}
HasBoard(diproc_addr: Byte) : Byte
<POP 2080c-2080e StackAdj> Δ+2 {[-2-]}
<MI 2080e TST.B (A7)+> Δ+2 {}
<MI 20810 BEQ 0x2081c> {}
<POP 20812-2081c Naked> Σ0 ↓
<Const 0x20812 0xd.2> Δ-2 {[#13]}
<Call 0x20814 0x218b8> {[#13]}
<POP 2081a-2081c StackAdj> Δ+2 {}
<POP 2081c-20828 Naked> Σ0 ↓ →0x20832 ←0x20806
<POP 2081c-2081e StackAdj> Δ-2 {[-2-]}
<Const 0x2081e 0xe.2> Δ-2 {[-2-]|[#14]}
<Call 0x20820 0x104c0> {[-2-]|[#14]}
HasBoard(diproc_addr: Byte) : Byte
<POP 20822-20824 StackAdj> Δ+2 {[-2-]}
<MI 20824 TST.B (A7)+> Δ+2 {}
<MI 20826 BEQ 0x20832> {}
<POP 20828-20832 Naked> Σ0 ↓
<Const 0x20828 0xe.2> Δ-2 {[#14]}
<Call 0x2082a 0x218b8> {[#14]}
<POP 20830-20832 StackAdj> Δ+2 {}
<POP 20832-2083e Naked> Σ0 ↓ →0x20848 ←0x2081c
<POP 20832-20834 StackAdj> Δ-2 {[-2-]}
<Const 0x20834 0xf.2> Δ-2 {[-2-]|[#15]}
<Call 0x20836 0x104c0> {[-2-]|[#15]}
HasBoard(diproc_addr: Byte) : Byte
<POP 20838-2083a StackAdj> Δ+2 {[-2-]}
<MI 2083a TST.B (A7)+> Δ+2 {}
<MI 2083c BEQ 0x20848> {}
<POP 2083e-20848 Naked> Σ0 ↓
<Const 0x2083e 0xf.2> Δ-2 {[#15]}
<Call 0x20840 0x218b8> {[#15]}
<POP 20846-20848 StackAdj> Δ+2 {}
<POP 20848-20850 Epilogue> Σ0 ←0x20832
@ 20850
<POP 20850-208ee Body>
<POP 20850-20866 Prologue> Σ0 ↓
<POP 20866-2087a RegCacheLoad> Σ0 ↓
<POP 2087a-208a4 Naked> Σ0 ↓ →0x208aa
<Call 0x2087a 0x211f2> {}
exp_FREEZE_WORLD.FIU()
<Call 0x20880 0x21292> {}
exp_RUN_NORMAL.TYP()
<Call 0x20886 0x21354> {}
exp_RUN_NORMAL.VAL()
<Call 0x2088c 0x21226> {}
exp_RUN_CHECK.SEQ()
<Call 0x20892 0x219fc> {}
exp_RUN_CHECK.IOC()
<POP 20898-2089a StackAdj> Δ-2 {[-2-]}
<Const 0x2089a 0xc.2> Δ-2 {[-2-]|[#12]}
<Call 0x2089c 0x104c0> {[-2-]|[#12]}
HasBoard(diproc_addr: Byte) : Byte
<POP 2089e-208a0 StackAdj> Δ+2 {[-2-]}
<MI 208a0 TST.B (A7)+> Δ+2 {}
<MI 208a2 BEQ 0x208aa> {}
<POP 208a4-208aa Naked> Σ0 ↓
<Const 0x208a4 0xc.2> Δ-2 {[#12]}
<Call 0x208a6 0x21556> {[#12]}
<POP 208a8-208aa StackAdj> Δ+2 {}
<POP 208aa-208b6 Naked> Σ0 ↓ →0x208bc ←0x2087a
<POP 208aa-208ac StackAdj> Δ-2 {[-2-]}
<Const 0x208ac 0xd.2> Δ-2 {[-2-]|[#13]}
<Call 0x208ae 0x104c0> {[-2-]|[#13]}
HasBoard(diproc_addr: Byte) : Byte
<POP 208b0-208b2 StackAdj> Δ+2 {[-2-]}
<MI 208b2 TST.B (A7)+> Δ+2 {}
<MI 208b4 BEQ 0x208bc> {}
<POP 208b6-208bc Naked> Σ0 ↓
<Const 0x208b6 0xd.2> Δ-2 {[#13]}
<Call 0x208b8 0x21556> {[#13]}
<POP 208ba-208bc StackAdj> Δ+2 {}
<POP 208bc-208c8 Naked> Σ0 ↓ →0x208ce ←0x208aa
<POP 208bc-208be StackAdj> Δ-2 {[-2-]}
<Const 0x208be 0xe.2> Δ-2 {[-2-]|[#14]}
<Call 0x208c0 0x104c0> {[-2-]|[#14]}
HasBoard(diproc_addr: Byte) : Byte
<POP 208c2-208c4 StackAdj> Δ+2 {[-2-]}
<MI 208c4 TST.B (A7)+> Δ+2 {}
<MI 208c6 BEQ 0x208ce> {}
<POP 208c8-208ce Naked> Σ0 ↓
<Const 0x208c8 0xe.2> Δ-2 {[#14]}
<Call 0x208ca 0x21556> {[#14]}
<POP 208cc-208ce StackAdj> Δ+2 {}
<POP 208ce-208da Naked> Σ0 ↓ →0x208e0 ←0x208bc
<POP 208ce-208d0 StackAdj> Δ-2 {[-2-]}
<Const 0x208d0 0xf.2> Δ-2 {[-2-]|[#15]}
<Call 0x208d2 0x104c0> {[-2-]|[#15]}
HasBoard(diproc_addr: Byte) : Byte
<POP 208d4-208d6 StackAdj> Δ+2 {[-2-]}
<MI 208d6 TST.B (A7)+> Δ+2 {}
<MI 208d8 BEQ 0x208e0> {}
<POP 208da-208e0 Naked> Σ0 ↓
<Const 0x208da 0xf.2> Δ-2 {[#15]}
<Call 0x208dc 0x21556> {[#15]}
<POP 208de-208e0 StackAdj> Δ+2 {}
<POP 208e0-208e6 Naked> Σ0 ↓ ←0x208ce
<Call 0x208e0 0x2114c> {}
exp_RUN_NORMAL.FIU()
<POP 208e6-208ee Epilogue> Σ0
@ 208ee
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @>
<LVAR -0x005 @ 1(rw)>
<LVAR -0x006 @>
<LVAR -0x007 @ 1(r)>
<POP 208ee-20a1e Body>
<POP 208ee-20904 Prologue> Σ0 ↓
<POP 20904-2091e RegCacheLoad> Σ0 ↓
<POP 2091e-20948 Naked> Σ0 ↓ →0x2094e
<Call 0x2091e 0x211f2> {}
exp_FREEZE_WORLD.FIU()
<Call 0x20924 0x219e6> {}
exp_RESET.IOC()
<Call 0x2092a 0x21370> {}
exp_RESET.VAL()
<Call 0x20930 0x212ae> {}
exp_RESET.TYP()
<Call 0x20936 0x21210> {}
exp_RESET.SEQ()
<POP 2093c-2093e StackAdj> Δ-2 {[-2-]}
<Const 0x2093e 0xc.2> Δ-2 {[-2-]|[#12]}
<Call 0x20940 0x104c0> {[-2-]|[#12]}
HasBoard(diproc_addr: Byte) : Byte
<POP 20942-20944 StackAdj> Δ+2 {[-2-]}
<MI 20944 TST.B (A7)+> Δ+2 {}
<MI 20946 BEQ 0x2094e> {}
<POP 20948-2094e Naked> Σ0 ↓
<Const 0x20948 0xc.2> Δ-2 {[#12]}
<Call 0x2094a 0x214ac> {[#12]}
<POP 2094c-2094e StackAdj> Δ+2 {}
<POP 2094e-2095a Naked> Σ0 ↓ →0x20960 ←0x2091e
<POP 2094e-20950 StackAdj> Δ-2 {[-2-]}
<Const 0x20950 0xd.2> Δ-2 {[-2-]|[#13]}
<Call 0x20952 0x104c0> {[-2-]|[#13]}
HasBoard(diproc_addr: Byte) : Byte
<POP 20954-20956 StackAdj> Δ+2 {[-2-]}
<MI 20956 TST.B (A7)+> Δ+2 {}
<MI 20958 BEQ 0x20960> {}
<POP 2095a-20960 Naked> Σ0 ↓
<Const 0x2095a 0xd.2> Δ-2 {[#13]}
<Call 0x2095c 0x214ac> {[#13]}
<POP 2095e-20960 StackAdj> Δ+2 {}
<POP 20960-2096c Naked> Σ0 ↓ →0x20972 ←0x2094e
<POP 20960-20962 StackAdj> Δ-2 {[-2-]}
<Const 0x20962 0xe.2> Δ-2 {[-2-]|[#14]}
<Call 0x20964 0x104c0> {[-2-]|[#14]}
HasBoard(diproc_addr: Byte) : Byte
<POP 20966-20968 StackAdj> Δ+2 {[-2-]}
<MI 20968 TST.B (A7)+> Δ+2 {}
<MI 2096a BEQ 0x20972> {}
<POP 2096c-20972 Naked> Σ0 ↓
<Const 0x2096c 0xe.2> Δ-2 {[#14]}
<Call 0x2096e 0x214ac> {[#14]}
<POP 20970-20972 StackAdj> Δ+2 {}
<POP 20972-2097e Naked> Σ0 ↓ →0x20984 ←0x20960
<POP 20972-20974 StackAdj> Δ-2 {[-2-]}
<Const 0x20974 0xf.2> Δ-2 {[-2-]|[#15]}
<Call 0x20976 0x104c0> {[-2-]|[#15]}
HasBoard(diproc_addr: Byte) : Byte
<POP 20978-2097a StackAdj> Δ+2 {[-2-]}
<MI 2097a TST.B (A7)+> Δ+2 {}
<MI 2097c BEQ 0x20984> {}
<POP 2097e-20984 Naked> Σ0 ↓
<Const 0x2097e 0xf.2> Δ-2 {[#15]}
<Call 0x20980 0x214ac> {[#15]}
<POP 20982-20984 StackAdj> Δ+2 {}
<POP 20984-209ae Naked> Σ0 ↓ ←0x20972
<Call 0x20984 0x21168> {}
exp_RESET.FIU()
<MI 2098a MOVEA.L (A6+0x10),A0> {}
<MI 2098e PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x20990 0x2125a> {[4, '^(A0)']}
exp_HALT.SEQ(&Fr)
<POP 20996-20998 StackAdj> Δ+4 {}
<MI 20998 MOVEA.L (A6+0xc),A0> {}
<MI 2099c CLR.B (A0)> {}
<MI 2099e MOVEA.L (A6+0x8),A0> {}
<MI 209a2 CLR.B (A0)> {}
<MI 209a4 CLR.B (A0+0xb)> {}
<MI 209a8 CLR.B (A0+0x1)> {}
<MI 209ac MOVEQ.L #0x02,D7> {}
<POP 209ae-209b4 Naked> Σ0 ↓ →0x209d4 ←0x20a0c
<MI 209ae CMPI.B #0x05,D7> {}
<MI 209b2 BEQ 0x209d4> {}
<POP 209b4-209d4 Naked> Σ0 →0x209ee
<MI 209b4 MOVE.B D7,D0> {}
<MI 209b6 EXTB.W D0> {}
<MI 209b8 LEA.L 0x20410,A0> {}
<MI 209bc MOVE.B (A0+D0.W),-(A7)> Δ-2 {[2, '(A0+D0.W)']}
<Pointer.fp 0x209c0 <LVAR -0x006 @>> Δ-4 {[2, '(A0+D0.W)']|[@@-6]}
<Pointer.fp 0x209c4 <LVAR -0x005 @ 1(rw)>> Δ-4 {[2, '(A0+D0.W)']|[@@-6]|[@@-5]}
<Pointer.fp 0x209c6 <LVAR -0x004 @>> Δ-4 {[2, '(A0+D0.W)']|[@@-6]|[@@-5]|[@@-4]}
<Call 0x209ca 0x10484> {[2, '(A0+D0.W)']|[@@-6]|[@@-5]|[@@-4]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 209d0-209d2 StackAdj> Δ+14 {}
<MI 209d2 BRA 0x209ee> {}
<POP 209d4-209ec Naked> Σ0 ↓ →0x209ee ←0x209ae
<Pointer.fp 0x209d4 <LVAR -0x007 @ 1(r)>> Δ-4 {[@@-7]}
<Call 0x209d8 0x21270> {[@@-7]}
exp_GET_MISC_ERRORS.SEQ(&Sr_1)
<POP 209de-209e0 StackAdj> Δ+4 {}
<MI 209e0 CLR.L D0> {}
<MI 209e2 MOVE.B (A6-0x7),D0> {}
<MI 209e6 CMPI.W #0x001f,D0> {}
<MI 209ea BEQ 0x209ee> {}
<POP 209ec-209ee Naked> Σ0 ↓
<MI 209ec MOVE.B #0x01,(A6-0x5)> {}
<POP 209ee-20a06 Naked> Σ0 Δ-2 ↓ →0x20a0c ←0x209b4 ←0x209d4
<MI 209ee MOVEA.L (A6+0x8),A0> {}
<MI 209f2 MOVE.B D7,D0> {}
<MI 209f4 EXTB.W D0> {}
<MI 209f6 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<MI 209f8 MOVE.B (A6-0x5),D1> {[2, 'D0']}
<MI 209fa EXTB.W D1> {[2, 'D0']}
<POP 0x209fc LimitCheck 0x0 ≤ D1 ≤ 0x1> {[2, 'D0']}
<MI 209fe MOVE.B D1,(A0+D0.W)> {[2, 'D0']}
<MI 20a02 TST.W D1> {[2, 'D0']}
<MI 20a04 BEQ 0x20a0c> {[2, 'D0']}
<POP 20a06-20a0c Naked> Σ-2 ↓
<MI 20a06 MOVEA.L (A6+0xc),A0> {[-2-]}
<MI 20a0a MOVE.B #0x01,(A0)> {[-2-]}
<POP 20a0c-20a16 Naked> Σ-2 Δ+2 ↓ →0x209ae ←0x209ee
<MI 20a0c MOVE.W (A7)+,D7> Δ+2 {}
<MI 20a0e ADDQ.W #0x1,D7> {}
<MI 20a10 CMPI.W #0x000a,D7> {}
<MI 20a14 BLE 0x209ae> {}
<POP 20a16-20a1e Epilogue> Σ0
@ 20a1e
<LVAR 0x008 2(r)>
<POP 20a1e-20ace Body>
<POP 20a1e-20a34 Prologue> Σ0 ↓
<POP 20a34-20a3e RegCacheLoad> Σ0 ↓
<POP 20a3e-20ac6 Naked> Σ0 ↓
<Const 0x20a3e 0x21c4a.4> Δ-4 {[##138314]}
<Call 0x20a40 0x102bc> {[##138314]}
FreeString(VAR a : String)
<POP 20a46-20a48 StackAdj> Δ+4 {}
<MI 20a48 MOVE.W (A6+0x8),D0> {}
<POP 0x20a4c LimitCheck 0x0 ≤ D0 ≤ 0x1f> {}
<MI 20a50 MULS.W #0x0a,D0> {}
<MI 20a52 LEA.L 0x202c8,A0> {}
<Blob 0x20a56 [10] (A0+D0.W+#0xa)> Δ-10 {[«10»]}
<POP 20a62-20a64 StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x20a64> {[«10»]|[$$…]}
<Pointer.sp 0x20a64 4> Δ-4
<Const 0x20a68 0x1.2> Δ-2
<Const 0x20a6a 0xa.2> Δ-2
<Call 0x20a6c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20a72-20a74 StackAdj> Δ+8
<MI 20a74 MOVE.L (A7)+,0x21c4a> Δ+4 {[«10»]}
<POP 20a76-20a78 StackAdj> Δ+2 {[-8-]}
<POP 20a78-20a79 StackAdj> Δ+4 {[-4-]}
<Blob 0x20a79 [4] 0x21c4a> Δ-4 {[-4-]|[«4»]}
<Call 0x20a7a 0x102cc> {[-4-]|[«4»]}
StringDup(a : String) : String
<POP 20a80-20a82 StackAdj> Δ+4 {[-4-]}
<MI 20a82 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 20a84 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<MI 20a86 MOVE.B 0x21c44,D0> {[4, 'A4']}
<MI 20a8c EXTB.W D0> {[4, 'A4']}
<POP 0x20a8e LimitCheck 0x0 ≤ D0 ≤ 0x1> {[4, 'A4']}
<MI 20a90 MOVE.B D0,-(A7)> Δ-2 {[4, 'A4']|[2, 'D0']}
<MI 20a92 MOVE.B 0x21c45,D0> {[4, 'A4']|[2, 'D0']}
<MI 20a98 EXTB.W D0> {[4, 'A4']|[2, 'D0']}
<POP 0x20a9a LimitCheck 0x0 ≤ D0 ≤ 0x1> {[4, 'A4']|[2, 'D0']}
<MI 20a9c MOVE.B D0,-(A7)> Δ-2 {[4, 'A4']|[2, 'D0']|[2, 'D0']}
<Const 0x20a9e 0x21c46.4> Δ-4 {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]}
<Const 0x20aa4 0x21c4e.4> Δ-4 {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[##138318]}
<Const 0x20aaa 0x21c52.4> Δ-4 {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[##138318]|[##138322]}
<Const 0x20ab0 0x21c56.4> Δ-4 {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[##138318]|[##138322]|[##138326]}
<Const 0x20ab6 0x21c57.4> Δ-4 {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[##138318]|[##138322]|[##138326]|[##138327]}
<Call 0x20abc 0x1053e> {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[##138318]|[##138322]|[##138326]|[##138327]}
FSCALL_1053e
<POP 20ac2-20ac6 StackAdj> Δ+28 {}
<POP 20ac6-20ace Epilogue> Σ0
@ 20ace
<LVAR 0x008 1(r)>
<POP 20ace-20b32 Body>
<POP 20ace-20ae4 Prologue> Σ0 ↓
<POP 20ae4-20af0 RegCacheLoad> Σ0 ↓
<POP 20af0-20afe Naked> Σ0 ↓ →0x20b02
<MI 20af0 MOVE.B (A6+0x8),0x21c56> {}
<MI 20af4 MOVE.B (A6+0x8),D0> {}
<MI 20af8 CMPI.B #0x03,D0> {}
<MI 20afc BEQ 0x20b02> {}
<POP 20afe-20b02 Naked> Σ0 ↓
<MI 20afe MOVE.B #0x29,0x21c57> {}
<POP 20b02-20b2a Naked> Σ0 ↓ ←0x20af0
<MI 20b02 CLR.B -(A7)> Δ-2 {[#0]}
<Blob 0x20b04 [4] 0x21c4e> Δ-4 {[#0]|[«4»]}
<Blob 0x20b0a [4] 0x21c52> Δ-4 {[#0]|[«4»]|[«4»]}
<Blob 0x20b10 [2] 0x21c56> Δ-2 {[#0]|[«4»]|[«4»]|[«2»]}
<Blob 0x20b12 [8] 0x21c57> Δ-8 {[#0]|[«4»]|[«4»]|[«2»]|[«8»]}
<Call 0x20b20 0x1054a> {[#0]|[«4»]|[«4»]|[«2»]|[«8»]}
?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
<POP 20b26-20b2a StackAdj> Δ+20 {}
<POP 20b2a-20b32 Epilogue> Σ0
@ 20b32
<LVAR 0x008 1(rw)>
<LVAR -0x004 @ 1(rw)>
<POP 20b32-20b76 Body>
<POP 20b32-20b48 Prologue> Σ0 ↓
<POP 20b48-20b4c RegCacheLoad> Σ0 ↓
<POP 20b4c-20b6a Naked> Σ0 ↓ →0x20b6e
<MI 20b4c CLR.B -(A7)> Δ-2 {[#0]}
<Pointer.fp 0x20b4e <LVAR -0x004 @ 1(rw)>> Δ-4 {[#0]|[@@-4]}
<Call 0x20b50 0x2112e> {[#0]|[@@-4]}
exp_READ_PAREG.FIU(Sw_1, &Sr_1)
<POP 20b56-20b58 StackAdj> Δ+6 {}
<MI 20b58 CLR.L D0> {}
<MI 20b5a MOVE.B (A6-0x4),D0> {}
<MI 20b5c ANDI.W #0x0008,D0> {}
<MI 20b60 MOVE.B D0,(A6-0x4)> {}
<MI 20b62 CLR.B (A6+0x8)> {}
<MI 20b66 TST.B D0> {}
<MI 20b68 BNE 0x20b6e> {}
<POP 20b6a-20b6e Naked> Σ0 ↓
<MI 20b6a ADDQ.B #0x1,(A6+0x8)> {}
<POP 20b6e-20b76 Epilogue> Σ0 ←0x20b4c
@ 20b76
<LVAR 0x008 1(r)>
<LVAR -0x00b @>
<LVAR -0x00c @ 1(r)>
<LVAR -0x010 @ 4(r)>
<LVAR -0x014 @ 4(r)>
<LVAR -0x019 1(r)>
<LVAR -0x020 @>
<LVAR -0x02c @>
<LVAR -0x02d @ 1(r)>
<LVAR -0x02e @ 1(r)>
<POP 20b76-20cde Body> Δ+6
<POP 20b76-20b8c Prologue> Σ0 ↓
<POP 20b8c-20b9c RegCacheLoad> Σ0 ↓
<POP 20b9c-20bb8 Naked> Σ0 ↓ →0x20c8c
<Pointer.fp 0x20b9c <LVAR -0x02e @ 1(r)>> Δ-4 {[@@-46]}
<Pointer.fp 0x20ba0 <LVAR -0x02d @ 1(r)>> Δ-4 {[@@-46]|[@@-45]}
<Pointer.fp 0x20ba4 <LVAR -0x02c @>> Δ-4 {[@@-46]|[@@-45]|[@@-44]}
<Call 0x20ba8 0x208ee> {[@@-46]|[@@-45]|[@@-44]}
<POP 20bac-20bb0 StackAdj> Δ+12 {}
<MI 20bb0 TST.B (A6-0x2d)> {}
<MI 20bb4 BEQ 0x20c8c> {}
<POP 20bb8-20bc2 Naked> Σ0 ↓ →0x20be4
<POP 20bb8-20bba StackAdj> Δ-2 {[-2-]}
<Call 0x20bba 0x20b32> {[-2-]}
<MI 20bbe TST.B (A7)+> Δ+2 {}
<MI 20bc0 BEQ 0x20be4> {}
<POP 20bc2-20bde Naked> Σ0 ↓ →0x20be4
<Const 0x20bc2 0xffcf.2> Δ-2 {[#65487]}
<MI 20bc6 CLR.B -(A7)> Δ-2 {[#65487]|[#0]}
<Pointer.fp 0x20bc8 <LVAR -0x020 @>> Δ-4 {[#65487]|[#0]|[@@-32]}
<Call 0x20bcc 0x21336> {[#65487]|[#0]|[@@-32]}
exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8)
<POP 20bd2-20bd4 StackAdj> Δ+8 {}
<MI 20bd4 CLR.L D0> {}
<MI 20bd6 MOVE.B (A6-0x19),D0> {}
<MI 20bda CMP.W #0x18,D0> {}
<MI 20bdc BNE 0x20be4> {}
<POP 20bde-20be4 Naked> Σ0 Δ-2 →0x20cd0
<Const 0x20bde 0x18.2> Δ-2 {[#24]}
<MI 20be0 BRA 0x20cd0> {[#24]}
<POP 20be4-20c58 Naked> Σ0 ↓ →0x20c82 ←0x20bb8 ←0x20bc2
<Const 0x20be4 0x21c4a.4> Δ-4 {[##138314]}
<Call 0x20be6 0x102bc> {[##138314]}
FreeString(VAR a : String)
<POP 20bec-20bee StackAdj> Δ+2 {[-2-]}
<POP 20bee-20bef StackAdj> Δ+2 {}
<Blob 0x20bef [2] @> Δ-2 {[«2""»]}
<Blob 0x20bf2 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x20bf6 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 20bfa-20bfc StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x20bfc 6> {[«2""»]|[«2""»]|[«2""»]|[$$EMBALM]}
<MI 20c0e MOVE.L (A7)+,0x21c4a> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 20c10-20c12 StackAdj> Δ+2 {[«2""»]|[«2""»]}
<Blob 0x20c12 [4] 0x21c4a> Δ-4 {[«2""»]|[«2""»]|[«4»]}
<Call 0x20c14 0x102cc> {[«2""»]|[«2""»]|[«4»]}
StringDup(a : String) : String
<POP 20c1a-20c1c StackAdj> Δ+4 {[«2""»]|[«2""»]}
<MI 20c1c MOVEA.L (A7)+,A4> Δ+4 {}
<MI 20c1e MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<MI 20c20 MOVE.B 0x21c44,D0> {[4, 'A4']}
<MI 20c26 EXTB.W D0> {[4, 'A4']}
<POP 0x20c28 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[4, 'A4']}
<MI 20c2a MOVE.B D0,-(A7)> Δ-2 {[4, 'A4']|[2, 'D0']}
<MI 20c2c MOVE.B 0x21c45,D0> {[4, 'A4']|[2, 'D0']}
<MI 20c32 EXTB.W D0> {[4, 'A4']|[2, 'D0']}
<POP 0x20c34 LimitCheck 0x0 ≤ D0 ≤ 0x1> {[4, 'A4']|[2, 'D0']}
<MI 20c36 MOVE.B D0,-(A7)> Δ-2 {[4, 'A4']|[2, 'D0']|[2, 'D0']}
<Const 0x20c38 0x21c46.4> Δ-4 {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]}
<Pointer.fp 0x20c3a <LVAR -0x014 @ 4(r)>> Δ-4 {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[@@-20]}
<Pointer.fp 0x20c3e <LVAR -0x010 @ 4(r)>> Δ-4 {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[@@-20]|[@@-16]}
<Pointer.fp 0x20c42 <LVAR -0x00c @ 1(r)>> Δ-4 {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[@@-20]|[@@-16]|[@@-12]}
<Pointer.fp 0x20c46 <LVAR -0x00b @>> Δ-4 {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[@@-20]|[@@-16]|[@@-12]|[@@-11]}
<Call 0x20c4a 0x1053e> {[4, 'A4']|[2, 'D0']|[2, 'D0']|[##138310]|[@@-20]|[@@-16]|[@@-12]|[@@-11]}
FSCALL_1053e
<POP 20c50-20c54 StackAdj> Δ+28 {}
<MI 20c54 TST.B 0x21c46> {}
<MI 20c56 BEQ 0x20c82> {}
<POP 20c58-20c82 Naked> Σ0 →0x20c8a
<MI 20c58 CLR.B -(A7)> Δ-2 {[#0]}
<MI 20c5a MOVE.L (A6-0x14),-(A7)> Δ-4 {[#0]|[4, '(A6-0x14)']}
<MI 20c5e MOVE.L (A6-0x10),-(A7)> Δ-4 {[#0]|[4, '(A6-0x14)']|[4, '(A6-0x10)']}
<MI 20c62 MOVE.B (A6-0xc),-(A7)> Δ-2 {[#0]|[4, '(A6-0x14)']|[4, '(A6-0x10)']|[2, '(A6-0xc)']}
<Blob 0x20c66 [8] (A6-0xb)> Δ-8 {[#0]|[4, '(A6-0x14)']|[4, '(A6-0x10)']|[2, '(A6-0xc)']|[«8»]}
<Call 0x20c76 0x1054a> {[#0]|[4, '(A6-0x14)']|[4, '(A6-0x10)']|[2, '(A6-0xc)']|[«8»]}
?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
<POP 20c7c-20c80 StackAdj> Δ+20 {}
<MI 20c80 BRA 0x20c8a> {}
<POP 20c82-20c84 Naked> Σ0 Δ-2 ↓ ←0x20be4 ←0x20ccc
<Const 0x20c82 0x1.2> Δ-2 {[#1]}
<POP 20c84-20c8a Naked> Σ-2 Δ+2 ↓ ←0x20c92 ←0x20c9e
<Call 0x20c84 0x20ace> {[-2-]}
<POP 20c88-20c8a StackAdj> Δ+2 {}
<POP 20c8a-20c8c Naked> Σ0 →0x20cd6 ←0x20c58
<MI 20c8a BRA 0x20cd6> {}
<POP 20c8c-20c92 Naked> Σ0 ↓ →0x20c98 ←0x20b9c
<MI 20c8c TST.B (A6+0x8)> {}
<MI 20c90 BEQ 0x20c98> {}
<POP 20c92-20c98 Naked> Σ0 Δ-2 →0x20c84
<Const 0x20c92 0x2.2> Δ-2 {[#2]}
<MI 20c96 BRA 0x20c84> {[#2]}
<POP 20c98-20c9e Naked> Σ0 ↓ →0x20ca4 ←0x20c8c
<MI 20c98 TST.B (A6-0x2e)> {}
<MI 20c9c BNE 0x20ca4> {}
<POP 20c9e-20ca4 Naked> Σ0 Δ-2 →0x20c84
<Const 0x20c9e 0x3.2> Δ-2 {[#3]}
<MI 20ca2 BRA 0x20c84> {[#3]}
<POP 20ca4-20cc2 Naked> Σ0 ↓ →0x20cd6 ←0x20c98
<Const 0x20ca4 0xffcf.2> Δ-2 {[#65487]}
<MI 20ca8 CLR.B -(A7)> Δ-2 {[#65487]|[#0]}
<Pointer.fp 0x20caa <LVAR -0x020 @>> Δ-4 {[#65487]|[#0]|[@@-32]}
<Call 0x20cae 0x21336> {[#65487]|[#0]|[@@-32]}
exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8)
<POP 20cb4-20cb6 StackAdj> Δ+8 {}
<MI 20cb6 CLR.L D0> {}
<MI 20cb8 MOVE.B (A6-0x19),D0> {}
<MI 20cbc CMPI.W #0x00ff,D0> {}
<MI 20cc0 BEQ 0x20cd6> {}
<POP 20cc2-20cc6 Naked> Σ0 ↓ →0x20ccc
<MI 20cc2 TST.W D0> {}
<MI 20cc4 BLT 0x20ccc> {}
<POP 20cc6-20ccc Naked> Σ0 ↓ →0x20cce
<MI 20cc6 CMPI.W #0x001f,D0> {}
<MI 20cca BLE 0x20cce> {}
<POP 20ccc-20cce Naked> Σ0 →0x20c82 ←0x20cc2
<MI 20ccc BRA 0x20c82> {}
<POP 20cce-20cd0 Naked> Σ0 Δ-2 ↓ ←0x20cc6
<MI 20cce MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<POP 20cd0-20cd6 Naked> Σ-2 Δ+2 ↓ ←0x20bde
<Call 0x20cd0 0x20a1e> {[-2-]}
<POP 20cd4-20cd6 StackAdj> Δ+2 {}
<POP 20cd6-20cde Epilogue> Σ0 ←0x20c8a ←0x20ca4
@ 20cde
<LVAR 0x008 4(r)>
<LVAR -0x00a @>
<LVAR -0x00b @ 1(r)>
<LVAR -0x00c @>
<POP 20cde-20dea Body>
<POP 20cde-20cf4 Prologue> Σ0 ↓
<POP 20cf4-20d0a RegCacheLoad> Σ0 ↓
<POP 20d0a-20d18 Naked> Σ0 ↓
<MI 20d0a MOVE.L #0x258,D5> {}
<MI 20d10 MOVEQ.L #0x00,D7> {}
<MI 20d12 MOVEA.L (A6+0x8),A0> {}
<MI 20d16 CLR.B (A0)> {}
<POP 20d18-20da0 Naked> Σ0 ↓ ←0x20dd2
<Const 0x20d18 0x9896.4> Δ-4 {[##39062]}
<Call 0x20d1e 0x10224> {[##39062]}
KC12_Sleep(dur: Long)
<POP 20d24-20d26 StackAdj> Δ+2 {[-2-]}
<POP 20d26-20d27 StackAdj> Δ+2 {}
<Const 0x20d27 0x4.2> Δ-2 {[#4]}
<Pointer.fp 0x20d2a <LVAR -0x00c @>> Δ-4 {[#4]|[@@-12]}
<Pointer.fp 0x20d2c <LVAR -0x00b @ 1(r)>> Δ-4 {[#4]|[@@-12]|[@@-11]}
<Pointer.fp 0x20d2e <LVAR -0x00a @>> Δ-4 {[#4]|[@@-12]|[@@-11]|[@@-10]}
<Call 0x20d30 0x10484> {[#4]|[@@-12]|[@@-11]|[@@-10]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 20d32-20d34 StackAdj> Δ+14 {}
<MI 20d34 MOVE.B D7,D0> {}
<MI 20d36 OR.B (A6-0xb),D0> {}
<MI 20d38 EXTB.W D0> {}
<POP 0x20d3a LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 20d3c MOVE.B D0,D7> {}
<Const 0x20d3e 0x7.2> Δ-2 {[#7]}
<Pointer.fp 0x20d42 <LVAR -0x00c @>> Δ-4 {[#7]|[@@-12]}
<Pointer.fp 0x20d44 <LVAR -0x00b @ 1(r)>> Δ-4 {[#7]|[@@-12]|[@@-11]}
<Pointer.fp 0x20d46 <LVAR -0x00a @>> Δ-4 {[#7]|[@@-12]|[@@-11]|[@@-10]}
<Call 0x20d48 0x10484> {[#7]|[@@-12]|[@@-11]|[@@-10]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 20d4a-20d4c StackAdj> Δ+14 {}
<MI 20d4c MOVE.B D7,D0> {}
<MI 20d4e OR.B (A6-0xb),D0> {}
<MI 20d50 EXTB.W D0> {}
<POP 0x20d52 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 20d54 MOVE.B D0,D7> {}
<Const 0x20d56 0x6.2> Δ-2 {[#6]}
<Pointer.fp 0x20d5a <LVAR -0x00c @>> Δ-4 {[#6]|[@@-12]}
<Pointer.fp 0x20d5c <LVAR -0x00b @ 1(r)>> Δ-4 {[#6]|[@@-12]|[@@-11]}
<Pointer.fp 0x20d5e <LVAR -0x00a @>> Δ-4 {[#6]|[@@-12]|[@@-11]|[@@-10]}
<Call 0x20d60 0x10484> {[#6]|[@@-12]|[@@-11]|[@@-10]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 20d62-20d64 StackAdj> Δ+14 {}
<MI 20d64 MOVE.B D7,D0> {}
<MI 20d66 OR.B (A6-0xb),D0> {}
<MI 20d68 EXTB.W D0> {}
<POP 0x20d6a LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 20d6c MOVE.B D0,D7> {}
<Const 0x20d6e 0x2.2> Δ-2 {[#2]}
<Pointer.fp 0x20d72 <LVAR -0x00c @>> Δ-4 {[#2]|[@@-12]}
<Pointer.fp 0x20d74 <LVAR -0x00b @ 1(r)>> Δ-4 {[#2]|[@@-12]|[@@-11]}
<Pointer.fp 0x20d76 <LVAR -0x00a @>> Δ-4 {[#2]|[@@-12]|[@@-11]|[@@-10]}
<Call 0x20d78 0x10484> {[#2]|[@@-12]|[@@-11]|[@@-10]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 20d7a-20d7c StackAdj> Δ+14 {}
<MI 20d7c MOVE.B D7,D0> {}
<MI 20d7e OR.B (A6-0xb),D0> {}
<MI 20d80 EXTB.W D0> {}
<POP 0x20d82 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 20d84 MOVE.B D0,D7> {}
<Const 0x20d86 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x20d8a <LVAR -0x00c @>> Δ-4 {[#3]|[@@-12]}
<Pointer.fp 0x20d8c <LVAR -0x00b @ 1(r)>> Δ-4 {[#3]|[@@-12]|[@@-11]}
<Pointer.fp 0x20d8e <LVAR -0x00a @>> Δ-4 {[#3]|[@@-12]|[@@-11]|[@@-10]}
<Call 0x20d90 0x10484> {[#3]|[@@-12]|[@@-11]|[@@-10]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 20d92-20d94 StackAdj> Δ+14 {}
<MI 20d94 MOVE.B D7,D0> {}
<MI 20d96 OR.B (A6-0xb),D0> {}
<MI 20d98 EXTB.W D0> {}
<POP 0x20d9a LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 20d9c MOVE.B D0,D7> {}
<MI 20d9e MOVEQ.L #0x0c,D6> {}
<POP 20da0-20db0 Naked> Σ0 ↓ →0x20dc6 ←0x20dc6
<POP 20da0-20da2 StackAdj> Δ-2 {[-2-]}
<MI 20da2 MOVE.B D6,-(A7)> Δ-2 {[-2-]|[2, 'D6']}
<Call 0x20da4 0x104c0> {[-2-]|[2, 'D6']}
HasBoard(diproc_addr: Byte) : Byte
<POP 20daa-20dac StackAdj> Δ+2 {[-2-]}
<MI 20dac TST.B (A7)+> Δ+2 {}
<MI 20dae BEQ 0x20dc6> {}
<POP 20db0-20dc6 Naked> Σ0 ↓
<MI 20db0 MOVE.B D6,-(A7)> Δ-2 {[2, 'D6']}
<Pointer.fp 0x20db2 <LVAR -0x00c @>> Δ-4 {[2, 'D6']|[@@-12]}
<Pointer.fp 0x20db4 <LVAR -0x00b @ 1(r)>> Δ-4 {[2, 'D6']|[@@-12]|[@@-11]}
<Pointer.fp 0x20db6 <LVAR -0x00a @>> Δ-4 {[2, 'D6']|[@@-12]|[@@-11]|[@@-10]}
<Call 0x20db8 0x10484> {[2, 'D6']|[@@-12]|[@@-11]|[@@-10]}
DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool)
<POP 20dba-20dbc StackAdj> Δ+14 {}
<MI 20dbc MOVE.B D7,D0> {}
<MI 20dbe OR.B (A6-0xb),D0> {}
<MI 20dc0 EXTB.W D0> {}
<POP 0x20dc2 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 20dc4 MOVE.B D0,D7> {}
<POP 20dc6-20dce Naked> Σ0 ↓ →0x20da0 ←0x20da0
<MI 20dc6 ADDQ.B #0x1,D6> {}
<MI 20dc8 CMPI.B #0x0f,D6> {}
<MI 20dcc BLE 0x20da0> {}
<POP 20dce-20dd2 Naked> Σ0 ↓ →0x20dd8
<MI 20dce SUBQ.L #0x1,D5> {}
<MI 20dd0 BEQ 0x20dd8> {}
<POP 20dd2-20dd8 Naked> Σ0 ↓ →0x20d18
<MI 20dd2 TST.B D7> {}
<MI 20dd4 BEQ 0x20d18> {}
<POP 20dd8-20de2 Naked> Σ0 ↓ ←0x20dce
<MI 20dd8 MOVEA.L (A6+0x8),A0> {}
<MI 20ddc MOVE.B D7,(A0)> {}
<MI 20dde NEG.B (A0)> {}
<MI 20de0 ADDQ.B #0x1,(A0)> {}
<POP 20de2-20dea Epilogue> Σ0
@ 20dea
<LVAR -0x004 @>
<POP 20dea-20e3e Body>
<POP 20dea-20e00 Prologue> Σ0 ↓
<POP 20e00-20e02 RegCacheLoad> Σ0 ↓
<POP 20e02-20e36 Naked> Σ0 ↓
<Blob 0x20e02 [18] @> Δ-18 {[«18""»]}
<MI 20e0e CLR.B -(A7)> Δ-2 {[«18""»]|[#0]}
<POP 20e10-20e12 StackAdj> Δ-4 {[«18""»]|[#0]|[-4-]}
<Lit 0x20e12 18> {[«18""»]|[#0]|[$$P2UCODE.M200_UCODE]}
<POP 20e22-20e24 StackAdj> Δ-2 {[«18""»]|[#0]|[$$P2UCODE.M200_UCODE]|[-2-]}
<POP 20e24-20e25 StackAdj> Δ+2 {[«18""»]|[#0]|[$$P2UCODE.M200_UCODE]}
<Const 0x20e25 0x1.2> Δ-2 {[«18""»]|[#0]|[$$P2UCODE.M200_UCODE]|[#1]}
<Const 0x20e26 0x1.2> Δ-2 {[«18""»]|[#0]|[$$P2UCODE.M200_UCODE]|[#1]|[#1]}
<Const 0x20e28 0x1.2> Δ-2 {[«18""»]|[#0]|[$$P2UCODE.M200_UCODE]|[#1]|[#1]|[#1]}
<Pointer.fp 0x20e2a <LVAR -0x004 @>> Δ-4 {[«18""»]|[#0]|[$$P2UCODE.M200_UCODE]|[#1]|[#1]|[#1]|[@@-4]}
<Call 0x20e2e 0x20532> {[«18""»]|[#0]|[$$P2UCODE.M200_UCODE]|[#1]|[#1]|[#1]|[@@-4]}
<POP 20e32-20e36 StackAdj> Δ+34 {}
<POP 20e36-20e3e Epilogue> Σ0
@ 20e3e
<POP 20e3e-20ef8 Body>
<POP 20e3e-20e54 Prologue> Σ0 ↓
<POP 20e54-20e70 RegCacheLoad> Σ0 ↓
<POP 20e70-20e7c Naked> Σ0 ↓ →0x20e90
<POP 20e70-20e72 StackAdj> Δ-2 {[-2-]}
<Const 0x20e72 0xc.2> Δ-2 {[-2-]|[#12]}
<Call 0x20e74 0x104c0> {[-2-]|[#12]}
HasBoard(diproc_addr: Byte) : Byte
<POP 20e76-20e78 StackAdj> Δ+2 {[-2-]}
<MI 20e78 TST.B (A7)+> Δ+2 {}
<MI 20e7a BEQ 0x20e90> {}
<POP 20e7c-20e90 Naked> Σ0 ↓
<Const 0x20e7c 0xc.2> Δ-2 {[#12]}
<Blob 0x20e7e [20] @> Δ-20 {[#12]|[«20""»]}
<Call 0x20e8c 0x216e8> {[#12]|[«20""»]}
<POP 20e8e-20e90 StackAdj> Δ+22 {}
<POP 20e90-20e9c Naked> Σ0 ↓ →0x20eb0 ←0x20e70
<POP 20e90-20e92 StackAdj> Δ-2 {[-2-]}
<Const 0x20e92 0xd.2> Δ-2 {[-2-]|[#13]}
<Call 0x20e94 0x104c0> {[-2-]|[#13]}
HasBoard(diproc_addr: Byte) : Byte
<POP 20e96-20e98 StackAdj> Δ+2 {[-2-]}
<MI 20e98 TST.B (A7)+> Δ+2 {}
<MI 20e9a BEQ 0x20eb0> {}
<POP 20e9c-20eb0 Naked> Σ0 ↓
<Const 0x20e9c 0xd.2> Δ-2 {[#13]}
<Blob 0x20e9e [20] @> Δ-20 {[#13]|[«20""»]}
<Call 0x20eac 0x216e8> {[#13]|[«20""»]}
<POP 20eae-20eb0 StackAdj> Δ+22 {}
<POP 20eb0-20ebc Naked> Σ0 ↓ →0x20ed0 ←0x20e90
<POP 20eb0-20eb2 StackAdj> Δ-2 {[-2-]}
<Const 0x20eb2 0xe.2> Δ-2 {[-2-]|[#14]}
<Call 0x20eb4 0x104c0> {[-2-]|[#14]}
HasBoard(diproc_addr: Byte) : Byte
<POP 20eb6-20eb8 StackAdj> Δ+2 {[-2-]}
<MI 20eb8 TST.B (A7)+> Δ+2 {}
<MI 20eba BEQ 0x20ed0> {}
<POP 20ebc-20ed0 Naked> Σ0 ↓
<Const 0x20ebc 0xe.2> Δ-2 {[#14]}
<Blob 0x20ebe [20] @> Δ-20 {[#14]|[«20""»]}
<Call 0x20ecc 0x216e8> {[#14]|[«20""»]}
<POP 20ece-20ed0 StackAdj> Δ+22 {}
<POP 20ed0-20edc Naked> Σ0 ↓ →0x20ef0 ←0x20eb0
<POP 20ed0-20ed2 StackAdj> Δ-2 {[-2-]}
<Const 0x20ed2 0xf.2> Δ-2 {[-2-]|[#15]}
<Call 0x20ed4 0x104c0> {[-2-]|[#15]}
HasBoard(diproc_addr: Byte) : Byte
<POP 20ed6-20ed8 StackAdj> Δ+2 {[-2-]}
<MI 20ed8 TST.B (A7)+> Δ+2 {}
<MI 20eda BEQ 0x20ef0> {}
<POP 20edc-20ef0 Naked> Σ0 ↓
<Const 0x20edc 0xf.2> Δ-2 {[#15]}
<Blob 0x20ede [20] @> Δ-20 {[#15]|[«20""»]}
<Call 0x20eec 0x216e8> {[#15]|[«20""»]}
<POP 20eee-20ef0 StackAdj> Δ+22 {}
<POP 20ef0-20ef8 Epilogue> Σ0 ←0x20ed0
@ 20ef8
START
<POP 20ef8--0001 Body>
<POP 20ef8-20f02 Prologue> Σ0
<POP 20f02-20f1a RegCacheLoad> Σ0 ↓
<POP 20f1a-20f9e Naked> Σ0 ↓
<Call 0x20f1a 0x10398> {}
FSCALL_10398
<Const 0x20f20 0x0.4> Δ-4 {[##0]}
<Call 0x20f24 0x104d8> {[##0]}
ExpInit(a : Long)
<POP 20f2a-20f2c StackAdj> Δ+4 {}
<Const 0x20f2c 0x21c40.4> Δ-4 {[##138304]}
<Const 0x20f2e 0x21c44.4> Δ-4 {[##138304]|[##138308]}
<Const 0x20f34 0x21c45.4> Δ-4 {[##138304]|[##138308]|[##138309]}
<Const 0x20f36 0x21c47.4> Δ-4 {[##138304]|[##138308]|[##138309]|[##138311]}
<Const 0x20f38 0x21c48.4> Δ-4 {[##138304]|[##138308]|[##138309]|[##138311]|[##138312]}
<Call 0x20f3e 0x10562> {[##138304]|[##138308]|[##138309]|[##138311]|[##138312]}
?IPC_GetVar4xBool(VAR a : Pointer; VAR b : Bool ; VAR c : Bool; VAR d: Bool; VAR e: Bool)
<POP 20f44-20f48 StackAdj> Δ+18 {[-2-]}
<POP 20f48-20f49 StackAdj> Δ+2 {}
<Blob 0x20f49 [2] 0x21c45> Δ-2 {[«2»]}
<Call 0x20f4a 0x104d2> {[«2»]}
SetExpInitDone(a : Byte)
<POP 20f50-20f51 StackAdj> Δ+2 ↓ {}
<Blob 0x20f51 [8] @> Δ-8 {[«8""»]}
<POP 20f60-20f62 StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x20f62 7> {[«8""»]|[$$P2UCODE]}
<MI 20f72 MOVE.L (A7)+,0x21c4e> Δ+4 {[«8""»]}
<POP 20f78-20f7a StackAdj> Δ+8 {}
<Const 0x20f7a 0x21c52.4> Δ-4 {[##138322]}
<Call 0x20f80 0x102b8> {[##138322]}
NewString(VAR a : String)
<POP 20f86-20f88 StackAdj> Δ+4 {}
<Const 0x20f88 0x21c4a.4> Δ-4 {[##138314]}
<Call 0x20f8e 0x102b8> {[##138314]}
NewString(VAR a : String)
<POP 20f94-20f96 StackAdj> Δ+4 {}
<MI 20f96 CLR.B 0x21c56> {}
<MI 20f9c MOVEQ.L #0x00,D0> {}
<POP 20f9e-20fba Naked> Σ0 ↓ →0x20f9e ←0x20f9e
<MI 20f9e MOVE.L D0,0x21c60> {}
<POP 0x20fa4 LimitCheck 0x0 ≤ D0 ≤ 0x7> {}
<MI 20faa LEA.L 0x21c36,A0> {}
<MI 20fb0 CLR.B (A0+D0.L+#0x21)> {}
<MI 20fb4 ADDQ.L #0x1,D0> {}
<MI 20fb6 CMP.L #0x07,D0> {}
<MI 20fb8 BLE 0x20f9e> {}
<POP 20fba-20fca Naked> Σ0 ↓ →0x20ff6
<MI 20fba MOVE.B #0x01,0x21c46> {}
<MI 20fc0 CLR.L D0> {}
<MI 20fc2 MOVE.B 0x21c40,D0> {}
<MI 20fc4 CMPI.W #0x0020,D0> {}
<MI 20fc8 BLS 0x20ff6> {}
<POP 20fca-20ff6 Naked> Σ0 ↓
<Blob 0x20fca [30] @> Δ-30 {[«30""»]}
<Const 0x20fd6 0xe.2> Δ-2 {[«30""»]|[#14]}
<POP 20fd8-20fda StackAdj> Δ-4 {[«30""»]|[#14]|[-4-]}
<Lit 0x20fda 30> {[«30""»]|[#14]|[$$Illegal test name for P2UCODE.]}
<Call 0x20fec 0x103b8> {[«30""»]|[#14]|[$$Illegal test name for P2UCODE.]}
PopProgram(status : Byte; msg : String)
<POP 20ff2-20ff6 StackAdj> Δ+36 {}
<POP 20ff6-20ffe Naked> Σ0 ↓ →0x21002 ←0x20fba
<MI 20ff6 TST.B 0x21c48> {}
<MI 20ffc BEQ 0x21002> {}
<POP 20ffe-21002 Naked> Σ0 ↓
<Call 0x20ffe 0x205fa> {}
<POP 21002-21006 Naked> Σ0 ↓ →0x21030 ←0x20ff6
<MI 21002 TST.B 0x21c47> {}
<MI 21004 BEQ 0x21030> {}
<POP 21006-21030 Naked> Σ0 ↓
<Call 0x21006 0x20dea> {}
<Blob 0x2100a [4] @> Δ-4 {[«4""»]}
<Blob 0x2100e [4] @> Δ-4 {[«4""»]|[«4""»]}
<MI 21012 CLR.B -(A7)> Δ-2 {[«4""»]|[«4""»]|[#0]}
<Call 0x21014 0x213a0> {[«4""»]|[«4""»]|[#0]}
exp_LOAD_WDR.VAL(Sw_8, Sw_1)
<POP 2101a-2101c StackAdj> Δ+6 {[«4""»]}
<POP 2101c-2101d StackAdj> Δ+4 {}
<Blob 0x2101d [4] @> Δ-4 {[«4""»]}
<Blob 0x21020 [4] @> Δ-4 {[«4""»]|[«4""»]}
<MI 21024 CLR.B -(A7)> Δ-2 {[«4""»]|[«4""»]|[#0]}
<Call 0x21026 0x212de> {[«4""»]|[«4""»]|[#0]}
exp_LOAD_WDR.TYP(Sw_8, Sw_1)
<POP 2102c-21030 StackAdj> Δ+10 {}
<POP 21030-21060 Naked> Σ0 ↓ →0x21082 ←0x21002
<Call 0x21030 0x20e3e> {}
<MI 21034 MOVE.B #0x0e,0x21c3e> {}
<MI 2103a MOVE.B 0x21c40,0x21c3f> {}
<Blob 0x21040 [2] 0x21c3e> Δ-2 {[«2»]}
<Call 0x21046 0x206da> {[«2»]}
<POP 2104a-2104c StackAdj> Δ+2 {}
<MI 2104c CLR.B 0x21c41> {}
<MI 21052 CLR.B 0x21c42> {}
<MI 21058 CLR.L D0> {}
<MI 2105a MOVE.B 0x21c40,D0> {}
<MI 2105c CMP.W #0x01,D0> {}
<MI 2105e BNE 0x21082> {}
<POP 21060-21082 Naked> Σ0 →0x2108e
<MI 21060 MOVE.B #0x01,0x21c41> {}
<MI 21066 MOVE.B #0x01,0x21c42> {}
<MI 2106c CLR.L D0> {}
<MI 2106e MOVE.B 0x21c3f,D0> {}
<MI 21074 SUBQ.W #0x1,D0> {}
<POP 0x21076 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 2107a MOVE.B D0,0x21c3f> {}
<MI 21080 BRA 0x2108e> {}
<POP 21082-21088 Naked> Σ0 ↓ →0x2108e ←0x21030
<MI 21082 CMPI.W #0x0002,D0> {}
<MI 21086 BNE 0x2108e> {}
<POP 21088-2108e Naked> Σ0 ↓
<MI 21088 MOVE.B #0x01,0x21c41> {}
<POP 2108e-210ea Naked> Σ0 ↓ ←0x21060 ←0x21082
<Call 0x2108e 0x20850> {}
<Const 0x21092 0x21c43.4> Δ-4 {[##138307]}
<Call 0x21098 0x20cde> {[##138307]}
<POP 2109c-2109e StackAdj> Δ+2 {[-2-]}
<POP 2109e-2109f StackAdj> Δ+2 {}
<Blob 0x2109f [2] 0x21c43> Δ-2 {[«2»]}
<Call 0x210a4 0x20b76> {[«2»]}
<POP 210a8-210a9 StackAdj> Δ+2 {}
<Blob 0x210a9 [2] 0x21c45> Δ-2 {[«2»]}
<Const 0x210aa 0x21c49.4> Δ-4 {[«2»]|[##138313]}
<Call 0x210b0 0x20430> {[«2»]|[##138313]}
<POP 210b4-210b6 StackAdj> Δ+4 {[«2»]}
<POP 210b6-210b7 StackAdj> Δ+2 {}
<Blob 0x210b7 [2] 0x21c46> Δ-2 {[«2»]}
<Blob 0x210bc [4] 0x21c4e> Δ-4 {[«2»]|[«4»]}
<Blob 0x210c2 [4] 0x21c52> Δ-4 {[«2»]|[«4»]|[«4»]}
<Blob 0x210c8 [2] 0x21c56> Δ-2 {[«2»]|[«4»]|[«4»]|[«2»]}
<Blob 0x210ce [8] 0x21c57> Δ-8 {[«2»]|[«4»]|[«4»]|[«2»]|[«8»]}
<Call 0x210e0 0x1054a> {[«2»]|[«4»]|[«4»]|[«2»]|[«8»]}
?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
<POP 210e6-210ea StackAdj> Δ+20 {}
<POP 210ea-210f0 Naked> Σ0
<Call 0x210ea 0x10284> {}
?exit
@ 213ee
<LVAR 0x00a 1(r)>
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 4(r)>
<POP 213ee-21498 Body> Δ+12
<POP 213ee-21404 Prologue> Σ0 ↓
<POP 21404-2140a RegCacheLoad> Σ0 ↓
<POP 2140a-21416 Naked> Σ0 ↓ →0x21428
<POP 2140a-2140c StackAdj> Δ-2 {[-2-]}
<Call 0x2140c 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 21412 TST.B (A7)+> Δ+2 {}
<MI 21414 BEQ 0x21428> {}
<POP 21416-21428 Naked> Σ0 Δ-12 →0x21438
<Blob 0x21416 [12] @> Δ-12 {[«12""»]}
<MI 21426 BRA 0x21438> {[«12""»]}
<POP 21428-21438 Naked> Σ0 Δ-12 ↓ ←0x2140a
<Blob 0x21428 [12] @> Δ-12 {[«12""»]}
<POP 21438-21490 Naked> Σ-12 Δ+12 ↓ ←0x21416
<POP 21438-2143a StackAdj> Δ-4 {[-16-]}
<Lit 0x2143a> {[-12-]|[$$…]}
<Pointer.sp 0x2143a 4> Δ-4
<Const 0x2143e 0x1.2> Δ-2
<Const 0x21442 0xb.2> Δ-2
<Call 0x21446 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2144c-2144e StackAdj> Δ+8
<Pointer.fp 0x2144e <LVAR -0x004 @ 4(r)>> Δ-4 {[-12-]|[$$…]|[@@-4]}
<Call 0x21450 0x10460> {[-12-]|[$$…]|[@@-4]}
ExpLoad(a : String; b: Pointer)
<POP 21456-2145a StackAdj> Δ+20 {}
<MI 2145a MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<MI 2145e MOVE.L (A6-0x4),-(A7)> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']}
<Pointer.sp 0x21460 4> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]}
<Const 0x21464 0x0.4> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]}
<Const 0x21468 0x0.4> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
<Call 0x2146c 0x10466> {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
<POP 21472-21476 StackAdj> Δ+16 {[2, '(A6+0x8)']}
<MI 21476 CLR.B (A7)> {[2, '(A6+0x8)']}
<MI 21478 MOVE.B (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0x8)']|[2, '(A6+0xa)']}
<MI 2147c MOVE.L (A6-0x4),-(A7)> Δ-4 {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
<Call 0x2147e 0x104ba> {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 21484-21486 StackAdj> Δ+8 {}
<Pointer.fp 0x21486 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x21488 0x10496> {[@@-4]}
ExpClose(exp : Pointer)
<POP 2148e-21490 StackAdj> Δ+4 {}
<POP 21490-21498 Epilogue> Σ0
@ 214ac
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 214ac-2153a Body> Δ+10
<POP 214ac-214c2 Prologue> Σ0 ↓
<POP 214c2-214c8 RegCacheLoad> Σ0 ↓
<POP 214c8-214d4 Naked> Σ0 ↓ →0x214e6
<POP 214c8-214ca StackAdj> Δ-2 {[-2-]}
<Call 0x214ca 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 214d0 TST.B (A7)+> Δ+2 {}
<MI 214d2 BEQ 0x214e6> {}
<POP 214d4-214e6 Naked> Σ0 Δ-10 →0x214f6
<Blob 0x214d4 [10] @> Δ-10 {[«10""»]}
<MI 214e4 BRA 0x214f6> {[«10""»]}
<POP 214e6-214f6 Naked> Σ0 Δ-10 ↓ ←0x214c8
<Blob 0x214e6 [10] @> Δ-10 {[«10""»]}
<POP 214f6-21532 Naked> Σ-10 Δ+10 ↓ ←0x214d4
<POP 214f6-214f8 StackAdj> Δ-4 {[-14-]}
<Lit 0x214f8> {[-10-]|[$$…]}
<Pointer.sp 0x214f8 4> Δ-4
<Const 0x214fc 0x1.2> Δ-2
<Const 0x21500 0x9.2> Δ-2
<Call 0x21504 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2150a-2150c StackAdj> Δ+8
<Pointer.fp 0x2150c <LVAR -0x006 @ 4(r)>> Δ-4 {[-10-]|[$$…]|[@@-6]}
<Call 0x2150e 0x10460> {[-10-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 21514-21518 StackAdj> Δ+18 {}
<MI 21518 CLR.B -(A7)> Δ-2 {[#0]}
<MI 2151a MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 2151e MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x21520 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 21526-21528 StackAdj> Δ+8 {}
<Pointer.fp 0x21528 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x2152a 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 21530-21532 StackAdj> Δ+4 {}
<POP 21532-2153a Epilogue> Σ0
@ 21556
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 21556-215e4 Body> Δ+14
<POP 21556-2156c Prologue> Σ0 ↓
<POP 2156c-21572 RegCacheLoad> Σ0 ↓
<POP 21572-2157e Naked> Σ0 ↓ →0x21590
<POP 21572-21574 StackAdj> Δ-2 {[-2-]}
<Call 0x21574 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 2157a TST.B (A7)+> Δ+2 {}
<MI 2157c BEQ 0x21590> {}
<POP 2157e-21590 Naked> Σ0 Δ-14 →0x215a0
<Blob 0x2157e [14] @> Δ-14 {[«14""»]}
<MI 2158e BRA 0x215a0> {[«14""»]}
<POP 21590-215a0 Naked> Σ0 Δ-14 ↓ ←0x21572
<Blob 0x21590 [14] @> Δ-14 {[«14""»]}
<POP 215a0-215dc Naked> Σ-14 Δ+14 ↓ ←0x2157e
<POP 215a0-215a2 StackAdj> Δ-4 {[-18-]}
<Lit 0x215a2> {[-14-]|[$$…]}
<Pointer.sp 0x215a2 4> Δ-4
<Const 0x215a6 0x1.2> Δ-2
<Const 0x215aa 0xd.2> Δ-2
<Call 0x215ae 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 215b4-215b6 StackAdj> Δ+8
<Pointer.fp 0x215b6 <LVAR -0x006 @ 4(r)>> Δ-4 {[-14-]|[$$…]|[@@-6]}
<Call 0x215b8 0x10460> {[-14-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 215be-215c2 StackAdj> Δ+22 {}
<MI 215c2 CLR.B -(A7)> Δ-2 {[#0]}
<MI 215c4 MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 215c8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x215ca 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 215d0-215d2 StackAdj> Δ+8 {}
<Pointer.fp 0x215d2 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x215d4 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 215da-215dc StackAdj> Δ+4 {}
<POP 215dc-215e4 Epilogue> Σ0
@ 21604
<LVAR 0x00e 1(r)>
<LVAR 0x00c 1(r)>
<LVAR 0x00a 1(r)>
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 4(r)>
<POP 21604-216c8 Body> Δ+16
<POP 21604-2161a Prologue> Σ0 ↓
<POP 2161a-21620 RegCacheLoad> Σ0 ↓
<POP 21620-2162c Naked> Σ0 ↓ →0x2163e
<POP 21620-21622 StackAdj> Δ-2 {[-2-]}
<Call 0x21622 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 21628 TST.B (A7)+> Δ+2 {}
<MI 2162a BEQ 0x2163e> {}
<POP 2162c-2163e Naked> Σ0 Δ-16 →0x2164e
<Blob 0x2162c [16] @> Δ-16 {[«16""»]}
<MI 2163c BRA 0x2164e> {[«16""»]}
<POP 2163e-2164e Naked> Σ0 Δ-16 ↓ ←0x21620
<Blob 0x2163e [16] @> Δ-16 {[«16""»]}
<POP 2164e-216c0 Naked> Σ-16 Δ+16 ↓ ←0x2162c
<POP 2164e-21650 StackAdj> Δ-4 {[-20-]}
<Lit 0x21650> {[-16-]|[$$…]}
<Pointer.sp 0x21650 4> Δ-4
<Const 0x21654 0x1.2> Δ-2
<Const 0x21658 0xf.2> Δ-2
<Call 0x2165c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21662-21664 StackAdj> Δ+8
<Pointer.fp 0x21664 <LVAR -0x004 @ 4(r)>> Δ-4 {[-16-]|[$$…]|[@@-4]}
<Call 0x21666 0x10460> {[-16-]|[$$…]|[@@-4]}
ExpLoad(a : String; b: Pointer)
<POP 2166c-21670 StackAdj> Δ+24 {}
<MI 21670 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<MI 21672 MOVE.B (A6+0xc),-(A7)> Δ-2 {[4, '(A6-0x4)']|[2, '(A6+0xc)']}
<Call 0x21676 0x1046c> {[4, '(A6-0x4)']|[2, '(A6+0xc)']}
ExpInputFlag(exp : Pointer; val : Word)
<POP 2167c-2167e StackAdj> Δ+2 {[4, '(A6-0x4)']}
<MI 2167e MOVE.L (A6-0x4),(A7)> {[4, '(A6-0x4)']}
<MI 21680 MOVE.B (A6+0xa),-(A7)> Δ-2 {[4, '(A6-0x4)']|[2, '(A6+0xa)']}
<Call 0x21684 0x1046c> {[4, '(A6-0x4)']|[2, '(A6+0xa)']}
ExpInputFlag(exp : Pointer; val : Word)
<POP 2168a-2168c StackAdj> Δ+4 {[-2-]}
<MI 2168c MOVE.B (A6+0x8),(A7)> {[-2-]}
<MI 21690 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x4)']}
<Pointer.sp 0x21692 4> Δ-4 {[-2-]|[4, '(A6-0x4)']|[^^4]}
<Const 0x21696 0x0.4> Δ-4 {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]}
<Const 0x2169a 0x0.4> Δ-4 {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
<Call 0x2169e 0x10466> {[-2-]|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
<POP 216a4-216a6 StackAdj> Δ+16 {[-2-]}
<MI 216a6 CLR.B (A7)> {[-2-]}
<MI 216a8 MOVE.B (A6+0xe),-(A7)> Δ-2 {[-2-]|[2, '(A6+0xe)']}
<MI 216ac MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[2, '(A6+0xe)']|[4, '(A6-0x4)']}
<Call 0x216ae 0x104ba> {[-2-]|[2, '(A6+0xe)']|[4, '(A6-0x4)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 216b4-216b6 StackAdj> Δ+8 {}
<Pointer.fp 0x216b6 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x216b8 0x10496> {[@@-4]}
ExpClose(exp : Pointer)
<POP 216be-216c0 StackAdj> Δ+4 {}
<POP 216c0-216c8 Epilogue> Σ0
@ 216e8
<LVAR 0x01c 1(r)>
<LVAR 0x01a 1(r)>
<LVAR 0x019 1(r)>
<LVAR 0x018 1(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(r)>
<POP 216e8-217e0 Body> Δ+16
<POP 216e8-216fe Prologue> Σ0 ↓
<POP 216fe-2170e RegCacheLoad> Σ0 ↓
<POP 2170e-2171a Naked> Σ0 ↓ →0x2172c
<POP 2170e-21710 StackAdj> Δ-2 {[-2-]}
<Call 0x21710 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 21716 TST.B (A7)+> Δ+2 {}
<MI 21718 BEQ 0x2172c> {}
<POP 2171a-2172c Naked> Σ0 Δ-16 →0x2173c
<Blob 0x2171a [16] @> Δ-16 {[«16""»]}
<MI 2172a BRA 0x2173c> {[«16""»]}
<POP 2172c-2173c Naked> Σ0 Δ-16 ↓ ←0x2170e
<Blob 0x2172c [16] @> Δ-16 {[«16""»]}
<POP 2173c-217d8 Naked> Σ-16 Δ+16 ↓ ←0x2171a
<POP 2173c-2173e StackAdj> Δ-4 {[-20-]}
<Lit 0x2173e> {[-16-]|[$$…]}
<Pointer.sp 0x2173e 4> Δ-4
<Const 0x21742 0x1.2> Δ-2
<Const 0x21746 0xf.2> Δ-2
<Call 0x2174a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21750-21752 StackAdj> Δ+8
<Pointer.fp 0x21752 <LVAR -0x006 @ 4(r)>> Δ-4 {[-16-]|[$$…]|[@@-6]}
<Call 0x21754 0x10460> {[-16-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 2175a-2175e StackAdj> Δ+24 {}
<MI 2175e MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 21762 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 21766 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']}
<Pointer.sp 0x21768 4> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]}
<Const 0x2176c 0x0.4> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]|[##0]}
<Const 0x2176e 0x7.4> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##7]}
<Call 0x21772 0x10466> {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##7]}
ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
<POP 21774-21778 StackAdj> Δ+20 {[4, '(A6+0xc)']}
<MI 21778 MOVE.L (A6+0x14),(A7)> {[4, '(A6+0x14)']}
<MI 2177c MOVE.L (A6+0x10),-(A7)> Δ-4 {[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 21780 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']}
<Pointer.sp 0x21782 4> Δ-4 {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]}
<Const 0x21786 0x0.4> Δ-4 {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]|[##0]}
<Const 0x21788 0x7.4> Δ-4 {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##7]}
<Call 0x2178c 0x10466> {[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6-0x6)']|[^^4]|[##0]|[##7]}
ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
<POP 2178e-21792 StackAdj> Δ+22 {[-2-]}
<MI 21792 MOVE.B (A6+0x18),(A7)> {[-2-]}
<MI 21796 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x6)']}
<Pointer.sp 0x21798 4> Δ-4 {[-2-]|[4, '(A6-0x6)']|[^^4]}
<Const 0x2179c 0x0.4> Δ-4 {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]}
<Const 0x2179e 0x0.4> Δ-4 {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
<Call 0x217a0 0x10466> {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##0]}
ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
<POP 217a2-217a4 StackAdj> Δ+16 {[-2-]}
<MI 217a4 MOVE.B (A6+0x19),(A7)> {[-2-]}
<MI 217a8 MOVE.B (A6+0x1a),(A7+0x1)> {[-2-]}
<MI 217ae MOVE.L (A6-0x6),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x6)']}
<Pointer.sp 0x217b0 4> Δ-4 {[-2-]|[4, '(A6-0x6)']|[^^4]}
<Const 0x217b4 0x0.4> Δ-4 {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]}
<Const 0x217b6 0x1.4> Δ-4 {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##1]}
<Call 0x217ba 0x10466> {[-2-]|[4, '(A6-0x6)']|[^^4]|[##0]|[##1]}
ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
<POP 217bc-217be StackAdj> Δ+16 {[-2-]}
<MI 217be CLR.B (A7)> {[-2-]}
<MI 217c0 MOVE.B (A6+0x1c),-(A7)> Δ-2 {[-2-]|[2, '(A6+0x1c)']}
<MI 217c4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-2-]|[2, '(A6+0x1c)']|[4, '(A6-0x6)']}
<Call 0x217c6 0x104ba> {[-2-]|[2, '(A6+0x1c)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 217cc-217ce StackAdj> Δ+8 {}
<Pointer.fp 0x217ce <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x217d0 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 217d6-217d8 StackAdj> Δ+4 {}
<POP 217d8-217e0 Epilogue> Σ0
@ 21804
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 21804-21888 Body> Δ+18
<POP 21804-2181a Prologue> Σ0 ↓
<POP 2181a-2181e RegCacheLoad> Σ0 ↓
<POP 2181e-2182a Naked> Σ0 ↓ →0x21838
<POP 2181e-21820 StackAdj> Δ-2 {[-2-]}
<Call 0x21820 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 21826 TST.B (A7)+> Δ+2 {}
<MI 21828 BEQ 0x21838> {}
<POP 2182a-21838 Naked> Σ0 Δ-18 →0x21844
<Blob 0x2182a [18] @> Δ-18 {[«18""»]}
<MI 21836 BRA 0x21844> {[«18""»]}
<POP 21838-21844 Naked> Σ0 Δ-18 ↓ ←0x2181e
<Blob 0x21838 [18] @> Δ-18 {[«18""»]}
<POP 21844-21880 Naked> Σ-18 Δ+18 ↓ ←0x2182a
<POP 21844-21846 StackAdj> Δ-4 {[-22-]}
<Lit 0x21846> {[-18-]|[$$…]}
<Pointer.sp 0x21846 4> Δ-4
<Const 0x2184a 0x1.2> Δ-2
<Const 0x2184e 0x12.2> Δ-2
<Call 0x21852 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21858-2185a StackAdj> Δ+8
<Pointer.fp 0x2185a <LVAR -0x006 @ 4(r)>> Δ-4 {[-18-]|[$$…]|[@@-6]}
<Call 0x2185c 0x10460> {[-18-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 21862-21866 StackAdj> Δ+26 {}
<MI 21866 CLR.B -(A7)> Δ-2 {[#0]}
<MI 21868 MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 2186c MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x2186e 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 21874-21876 StackAdj> Δ+8 {}
<Pointer.fp 0x21876 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x21878 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 2187e-21880 StackAdj> Δ+4 {}
<POP 21880-21888 Epilogue> Σ0
@ 218b8
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 218b8-21946 Body> Δ+24
<POP 218b8-218ce Prologue> Σ0 ↓
<POP 218ce-218d4 RegCacheLoad> Σ0 ↓
<POP 218d4-218e0 Naked> Σ0 ↓ →0x218f2
<POP 218d4-218d6 StackAdj> Δ-2 {[-2-]}
<Call 0x218d6 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 218dc TST.B (A7)+> Δ+2 {}
<MI 218de BEQ 0x218f2> {}
<POP 218e0-218f2 Naked> Σ0 Δ-24 →0x21902
<Blob 0x218e0 [24] @> Δ-24 {[«24""»]}
<MI 218f0 BRA 0x21902> {[«24""»]}
<POP 218f2-21902 Naked> Σ0 Δ-24 ↓ ←0x218d4
<Blob 0x218f2 [24] @> Δ-24 {[«24""»]}
<POP 21902-2193e Naked> Σ-24 Δ+24 ↓ ←0x218e0
<POP 21902-21904 StackAdj> Δ-4 {[-28-]}
<Lit 0x21904> {[-24-]|[$$…]}
<Pointer.sp 0x21904 4> Δ-4
<Const 0x21908 0x1.2> Δ-2
<Const 0x2190c 0x17.2> Δ-2
<Call 0x21910 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21916-21918 StackAdj> Δ+8
<Pointer.fp 0x21918 <LVAR -0x006 @ 4(r)>> Δ-4 {[-24-]|[$$…]|[@@-6]}
<Call 0x2191a 0x10460> {[-24-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 21920-21924 StackAdj> Δ+32 {}
<MI 21924 CLR.B -(A7)> Δ-2 {[#0]}
<MI 21926 MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 2192a MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x2192c 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 21932-21934 StackAdj> Δ+8 {}
<Pointer.fp 0x21934 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x21936 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 2193c-2193e StackAdj> Δ+4 {}
<POP 2193e-21946 Epilogue> Σ0
@ 21962
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 21962-219e6 Body> Δ+14
<POP 21962-21978 Prologue> Σ0 ↓
<POP 21978-2197c RegCacheLoad> Σ0 ↓
<POP 2197c-21988 Naked> Σ0 ↓ →0x21996
<POP 2197c-2197e StackAdj> Δ-2 {[-2-]}
<Call 0x2197e 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 21984 TST.B (A7)+> Δ+2 {}
<MI 21986 BEQ 0x21996> {}
<POP 21988-21996 Naked> Σ0 Δ-14 →0x219a2
<Blob 0x21988 [14] @> Δ-14 {[«14""»]}
<MI 21994 BRA 0x219a2> {[«14""»]}
<POP 21996-219a2 Naked> Σ0 Δ-14 ↓ ←0x2197c
<Blob 0x21996 [14] @> Δ-14 {[«14""»]}
<POP 219a2-219de Naked> Σ-14 Δ+14 ↓ ←0x21988
<POP 219a2-219a4 StackAdj> Δ-4 {[-18-]}
<Lit 0x219a4> {[-14-]|[$$…]}
<Pointer.sp 0x219a4 4> Δ-4
<Const 0x219a8 0x1.2> Δ-2
<Const 0x219ac 0xe.2> Δ-2
<Call 0x219b0 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 219b6-219b8 StackAdj> Δ+8
<Pointer.fp 0x219b8 <LVAR -0x006 @ 4(r)>> Δ-4 {[-14-]|[$$…]|[@@-6]}
<Call 0x219ba 0x10460> {[-14-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 219c0-219c4 StackAdj> Δ+22 {}
<MI 219c4 CLR.B -(A7)> Δ-2 {[#0]}
<MI 219c6 MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 219ca MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x219cc 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 219d2-219d4 StackAdj> Δ+8 {}
<Pointer.fp 0x219d4 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x219d6 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 219dc-219de StackAdj> Δ+4 {}
<POP 219de-219e6 Epilogue> Σ0
@ 21a3e
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 21a3e-21aa6 Body>
<POP 21a3e-21a54 Prologue> Σ0 ↓
<POP 21a54-21a9e Naked> Σ0 ↓
<Blob 0x21a54 [14] @> Δ-14 {[«14""»]}
<Const 0x21a60 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 21a64-21a66 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x21a66 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 21a78-21a7a StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21a7a MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21a7e EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21a80 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 21a82 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x21a84 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 21a8a-21a8c StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x21a8c 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21a92-21a94 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x21a94 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 21a9a-21a9e StackAdj> Δ+20 {}
<POP 21a9e-21aa6 Epilogue> Σ0
@ 21afa
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 21afa-21c36 Body>
<POP 21afa-21b10 Prologue> Σ0 ↓
<POP 21b10-21b26 RegCacheLoad> Σ0 ↓
<POP 21b26-21b86 Naked> Σ0 ↓ →0x21bce
<Call 0x21b26 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21b2c [18] @> Δ-18 {[«18""»]}
<POP 21b38-21b3a StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21b3a 18> {[«18""»]|[$$Experiment error :]}
<Call 0x21b46 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 21b48-21b49 StackAdj> Δ+22 ↓ {}
<Blob 0x21b49 [14] @> Δ-14 {[«14""»]}
<POP 21b58-21b5a StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21b5a 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 21b64-21b66 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 21b66 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x21b6a 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 21b70-21b72 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x21b72 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21b78-21b7a StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21b7a 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21b7c-21b7e StackAdj> Δ+18 {}
<MI 21b7e MOVEA.L (A6+0xa),A0> {}
<MI 21b82 CMPA.W #0x01,A0> {}
<MI 21b84 BEQ 0x21bce> {}
<POP 21b86-21bce Naked> Σ0 ↓
<Blob 0x21b86 [14] @> Δ-14 {[«14""»]}
<Blob 0x21b96 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 21ba6-21ba8 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x21ba8 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 21bb2-21bb4 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x21bb4> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x21bb4 12> Δ-4
<Const 0x21bb8 0x1.2> Δ-2
<Const 0x21bba 0x1e.2> Δ-2
<Call 0x21bbc 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21bbe-21bc0 StackAdj> Δ+8
<Call 0x21bc0 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 21bc6-21bc8 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x21bc8 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21bca-21bce StackAdj> Δ+48 {}
<POP 21bce-21c2e Naked> Σ0 ↓ ←0x21b26
<Blob 0x21bce [14] @> Δ-14 {[«14""»]}
<POP 21bde-21be0 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x21be0 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 21bea-21bec StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 21bec MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x21bf0 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 21bf6-21bf8 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x21bf8 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 21bfe-21c00 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x21c00 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21c02-21c03 StackAdj> Δ+18 ↓ {}
<Blob 0x21c03 [24] @> Δ-24 {[«24""»]}
<Const 0x21c12 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 21c16-21c18 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x21c18 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x21c26 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 21c2c-21c2e StackAdj> Δ+30 {}
<POP 21c2e-21c36 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.3f9bbecd288906d9 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 0e f8 | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 1c b6 | | .PTR 0x21cb6 00020010 code.end: 00020010 00 02 1c 36 | 6 | .PTR 0x21c36 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 1a 3e | > | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 1a fa | | .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 49 4e 49 54 53 54 41 54 |INITSTAT| .TXT 'INITSTATE ' 00020114 53 42 55 53 55 4c 4f 41 |SBUSULOA| .TXT 'SBUSULOAD ' 0002011e 44 42 55 53 55 4c 4f 41 |DBUSULOA| .TXT 'DBUSULOAD ' 00020128 40 28 23 29 50 32 55 43 |@(#)P2UC| .XXX[0x160] 00020130 4f 44 45 2c 32 2e 30 2c |ODE,2.0,| 00020138 38 39 2f 31 30 2f 30 33 |89/10/03| 00020140 2c 31 37 3a 31 38 3a 31 |,17:18:1| 00020148 39 5c 50 32 55 41 4c 4c |9\P2UALL| 00020150 20 20 20 20 50 32 55 43 | P2UC| 00020158 4f 4e 44 20 20 20 50 32 |OND P2| 00020160 55 53 59 53 20 20 20 20 |USYS | 00020168 50 32 55 56 41 4c 20 20 |P2UVAL | 00020170 20 20 50 32 55 54 59 50 | P2UTYP| 00020178 20 20 20 20 50 32 55 53 | P2US| 00020180 45 51 20 20 20 20 50 32 |EQ P2| 00020188 55 46 49 55 20 20 20 20 |UFIU | 00020190 50 32 55 4d 45 4d 20 20 |P2UMEM | 00020198 20 20 50 32 55 43 53 41 | P2UCSA| 000201a0 20 20 20 20 50 32 55 4d | P2UM| 000201a8 4d 20 20 20 20 20 50 32 |M P2| 000201b0 55 50 52 49 56 20 20 20 |UPRIV | 000201b8 50 32 55 43 4c 41 53 53 |P2UCLASS| 000201c0 20 20 50 32 55 57 43 53 | P2UWCS| 000201c8 20 20 20 20 50 32 55 53 | P2US| 000201d0 57 43 53 20 20 20 50 32 |WCS P2| 000201d8 55 56 57 43 53 20 20 20 |UVWCS | 000201e0 50 32 55 54 57 43 53 20 |P2UTWCS | 000201e8 20 20 50 32 55 51 57 43 | P2UQWC| 000201f0 53 20 20 20 50 32 55 46 |S P2UF| 000201f8 57 43 53 20 20 20 50 32 |WCS P2| 00020200 55 54 41 47 53 20 20 20 |UTAGS | 00020208 50 32 55 44 52 41 4d 20 |P2UDRAM | 00020210 20 20 50 32 55 56 52 46 | P2UVRF| 00020218 20 20 20 20 50 32 55 54 | P2UT| 00020220 52 46 20 20 20 20 50 32 |RF P2| 00020228 55 53 59 53 42 55 46 46 |USYSBUFF| 00020230 50 32 55 44 49 53 50 20 |P2UDISP | 00020238 20 20 50 32 55 45 43 43 | P2UECC| 00020240 20 20 20 20 50 32 55 54 | P2UT| 00020248 49 4d 45 52 53 20 50 32 |IMERS P2| 00020250 55 50 41 54 48 53 20 20 |UPATHS | 00020258 50 32 55 53 50 41 52 45 |P2USPARE| 00020260 30 20 50 32 55 53 50 41 |0 P2USPA| 00020268 52 45 31 20 50 32 55 53 |RE1 P2US| 00020270 50 41 52 45 32 20 50 32 |PARE2 P2| 00020278 55 53 50 41 52 45 33 20 |USPARE3 | 00020280 50 32 55 53 50 41 52 45 |P2USPARE| 00020288 34 20 |4 | .XXX[0x2] 0002028a 45 4d |EM | .TXT 'EM' 0002028c 42 41 |BA | .TXT 'BA' 0002028e 4c 4d |LM | .TXT 'LM' 00020290 50 32 55 43 4f 44 45 2e |P2UCODE.| .TXT 'P2UCODE.M200_UCODE' 000202a2 50 32 55 43 4f 44 45 20 |P2UCODE | .TXT 'P2UCODE ' 000202aa 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal test name for P2UCODE.' 000202c8 50 32 55 41 4c 4c 20 20 |P2UALL | .XXX[0x140] 000202d0 20 20 50 32 55 43 4f 4e | P2UCON| 000202d8 44 20 20 20 50 32 55 53 |D P2US| 000202e0 59 53 20 20 20 20 50 32 |YS P2| 000202e8 55 56 41 4c 20 20 20 20 |UVAL | 000202f0 50 32 55 54 59 50 20 20 |P2UTYP | 000202f8 20 20 50 32 55 53 45 51 | P2USEQ| 00020300 20 20 20 20 50 32 55 46 | P2UF| 00020308 49 55 20 20 20 20 50 32 |IU P2| 00020310 55 4d 45 4d 20 20 20 20 |UMEM | 00020318 50 32 55 43 53 41 20 20 |P2UCSA | 00020320 20 20 50 32 55 4d 4d 20 | P2UMM | 00020328 20 20 20 20 50 32 55 50 | P2UP| 00020330 52 49 56 20 20 20 50 32 |RIV P2| 00020338 55 43 4c 41 53 53 20 20 |UCLASS | 00020340 50 32 55 57 43 53 20 20 |P2UWCS | 00020348 20 20 50 32 55 53 57 43 | P2USWC| 00020350 53 20 20 20 50 32 55 56 |S P2UV| 00020358 57 43 53 20 20 20 50 32 |WCS P2| 00020360 55 54 57 43 53 20 20 20 |UTWCS | 00020368 50 32 55 51 57 43 53 20 |P2UQWCS | 00020370 20 20 50 32 55 46 57 43 | P2UFWC| 00020378 53 20 20 20 50 32 55 54 |S P2UT| 00020380 41 47 53 20 20 20 50 32 |AGS P2| 00020388 55 44 52 41 4d 20 20 20 |UDRAM | 00020390 50 32 55 56 52 46 20 20 |P2UVRF | 00020398 20 20 50 32 55 54 52 46 | P2UTRF| 000203a0 20 20 20 20 50 32 55 53 | P2US| 000203a8 59 53 42 55 46 46 50 32 |YSBUFFP2| 000203b0 55 44 49 53 50 20 20 20 |UDISP | 000203b8 50 32 55 45 43 43 20 20 |P2UECC | 000203c0 20 20 50 32 55 54 49 4d | P2UTIM| 000203c8 45 52 53 20 50 32 55 50 |ERS P2UP| 000203d0 41 54 48 53 20 20 50 32 |ATHS P2| 000203d8 55 53 50 41 52 45 30 20 |USPARE0 | 000203e0 50 32 55 53 50 41 52 45 |P2USPARE| 000203e8 31 20 50 32 55 53 50 41 |1 P2USPA| 000203f0 52 45 32 20 50 32 55 53 |RE2 P2US| 000203f8 50 41 52 45 33 20 50 32 |PARE3 P2| 00020400 55 53 50 41 52 45 34 20 |USPARE4 | 00020408 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0 0002040c 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0 00020410 05 01 04 07 06 02 03 0c | | .XXX[0x8] 00020418 0d 0e 0f 01 | | .XXX[0x4] 0002041c 00 00 00 00 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x0,0x1c,0x0 00020430 ; -------------------------------------------------------------------------------------- 00020430 ; OMSI PASCAL Function 00020430 ; <LVAR 0x00c 1(r)> 00020430 ; <LVAR 0x008 4(r)> 00020430 ; <LVAR -0x002 @> 00020430 ; -------------------------------------------------------------------------------------- 00020430 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 00020434 bf d5 | | CMPA.L (A5),A7 00020436 62 06 |b | BHI 0x2043e 00020438 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002043c 4e 76 |Nv | TRAPV 0002043e de fc 00 28 | ( | ADDA.W #0x28,A7 00020442 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020446 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 0002044c 1f 2e 00 0c | . | MOVE.B (A6+0xc),-(A7) 00020450 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00020456 54 4f |TO | ADDQ.L #0x2,A7 00020458 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 0002045e 9e fc 00 0a | | SUBA.W #0xa,A7 00020462 20 4f | O | MOVEA.L A7,A0 00020464 43 fa fc a4 |C | LEA.L 0x2010a,A1 00020468 70 08 |p | MOVEQ.L #0x08,D0 0002046a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002046c 51 c8 ff fc |Q | DBF D0,0x2046a 00020470 59 4f |YO | SUBQ.L #0x4,A7 00020472 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020476 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002047a 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 0002047e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020484 50 4f |PO | ADDQ.L #0x8,A7 00020486 48 78 00 01 |Hx | PEA.L 0x1 0002048a 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002048e 48 6e ff fe |Hn | PEA.L (A6-0x2) 00020492 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00020498 de fc 00 18 | | ADDA.W #0x18,A7 0002049c 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000204a2 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000204a6 48 50 |HP | PEA.L (A0) 000204a8 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 000204ae 58 4f |XO | ADDQ.L #0x4,A7 000204b0 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 000204b6 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000204ba 4e 5e |N^ | UNLK A6 000204bc 4e 75 |Nu | RTS 000204be ; -------------------------------------------------------------------------------------- 000204be ; OMSI PASCAL Function 000204be ; <LVAR 0x008 4(r)> 000204be ; -------------------------------------------------------------------------------------- 000204be 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 ; Spelunked 000204c2 bf d5 | | CMPA.L (A5),A7 000204c4 62 06 |b | BHI 0x204cc 000204c6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000204ca 4e 76 |Nv | TRAPV 000204cc de fc 00 0c | | ADDA.W #0xc,A7 000204d0 48 e7 00 80 |H | MOVEM.L A0,-(A7) 000204d4 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000204da 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000204de 48 50 |HP | PEA.L (A0) 000204e0 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 000204e6 58 4f |XO | ADDQ.L #0x4,A7 000204e8 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 000204ee 4c df 01 00 |L | MOVEM.L (A7)+,A0 000204f2 4e 5e |N^ | UNLK A6 000204f4 4e 75 |Nu | RTS 000204f6 ; -------------------------------------------------------------------------------------- 000204f6 ; OMSI PASCAL Function 000204f6 ; <LVAR 0x008 1(r)> 000204f6 ; -------------------------------------------------------------------------------------- 000204f6 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 ; Spelunked 000204fa bf d5 | | CMPA.L (A5),A7 000204fc 62 06 |b | BHI 0x20504 000204fe 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020502 4e 76 |Nv | TRAPV 00020504 de fc 00 0a | | ADDA.W #0xa,A7 00020508 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 0002050e 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 00020512 4e b9 00 01 05 02 |N | JSR IPC_PutBool(a : Bool) 00020518 54 4f |TO | ADDQ.L #0x2,A7 0002051a 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 00020520 42 27 |B' | CLR.B -(A7) 00020522 48 78 00 01 |Hx | PEA.L 0x1 00020526 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002052c 5c 4f |\O | ADDQ.L #0x6,A7 0002052e 4e 5e |N^ | UNLK A6 00020530 4e 75 |Nu | RTS 00020532 ; -------------------------------------------------------------------------------------- 00020532 ; OMSI PASCAL Function 00020532 ; <LVAR 0x016 1(r)> 00020532 ; <LVAR 0x012 4(r)> 00020532 ; <LVAR 0x010 1(r)> 00020532 ; <LVAR 0x00e 1(r)> 00020532 ; <LVAR 0x00c 1(r)> 00020532 ; <LVAR 0x008 4(r)> 00020532 ; <LVAR -0x004 @> 00020532 ; -------------------------------------------------------------------------------------- 00020532 4e 56 ff cc |NV | LINK.W A6,#0xffcc 00020536 bf d5 | | CMPA.L (A5),A7 00020538 62 06 |b | BHI 0x20540 0002053a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002053e 4e 76 |Nv | TRAPV 00020540 de fc 00 30 | 0 | ADDA.W #0x30,A7 00020544 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 00020548 45 f9 00 01 05 02 |E | LEA.L IPC_PutBool(a : Bool),A2 0002054e 72 0a |r | MOVEQ.L #0x0a,D1 00020550 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 00020556 2f 2e 00 12 |/. | MOVE.L (A6+0x12),-(A7) 0002055a 4e b9 00 01 05 08 |N | JSR IPC_PutString(a : String) 00020560 54 4f |TO | ADDQ.L #0x2,A7 00020562 1e ae 00 10 | | MOVE.B (A6+0x10),(A7) 00020566 4e 92 |N | JSR (A2) 00020568 54 4f |TO | ADDQ.L #0x2,A7 0002056a 4a 2e 00 16 |J. | TST.B (A6+0x16) 0002056e 66 0e |f | BNE 0x2057e 00020570 1f 2e 00 0e | . | MOVE.B (A6+0xe),-(A7) 00020574 4e 92 |N | JSR (A2) 00020576 1e ae 00 0c | | MOVE.B (A6+0xc),(A7) 0002057a 4e 92 |N | JSR (A2) 0002057c 54 4f |TO | ADDQ.L #0x2,A7 0002057e 4e b9 00 01 05 14 |N | JSR IPC_PutEnd(void) 00020584 4a 2e 00 16 |J. | TST.B (A6+0x16) 00020588 67 12 |g | BEQ 0x2059c 0002058a 9e c1 | | SUBA.W D1,A7 0002058c 20 4f | O | MOVEA.L A7,A0 0002058e 43 fa fb 84 |C | LEA.L 0x20114,A1 00020592 70 08 |p | MOVEQ.L #0x08,D0 00020594 10 d9 | | MOVE.B (A1)+,(A0)+ 00020596 51 c8 ff fc |Q | DBF D0,0x20594 0002059a 60 10 |` | BRA 0x205ac 0002059c 9e c1 | | SUBA.W D1,A7 0002059e 20 4f | O | MOVEA.L A7,A0 000205a0 43 fa fb 7c |C | | LEA.L 0x2011e,A1 000205a4 70 08 |p | MOVEQ.L #0x08,D0 000205a6 10 d9 | | MOVE.B (A1)+,(A0)+ 000205a8 51 c8 ff fc |Q | DBF D0,0x205a6 000205ac 59 4f |YO | SUBQ.L #0x4,A7 000205ae 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000205b2 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000205b6 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 000205ba 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000205c0 50 4f |PO | ADDQ.L #0x8,A7 000205c2 48 78 00 01 |Hx | PEA.L 0x1 000205c6 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 000205ca 48 6e ff fc |Hn | PEA.L (A6-0x4) 000205ce 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 000205d4 de fc 00 18 | | ADDA.W #0x18,A7 000205d8 4e b9 00 01 05 38 |N 8 | JSR IPC_Init(void) 000205de 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000205e2 48 50 |HP | PEA.L (A0) 000205e4 4e b9 00 01 05 26 |N & | JSR IPC_GetBool() : Bool 000205ea 58 4f |XO | ADDQ.L #0x4,A7 000205ec 4e b9 00 01 05 1a |N | JSR IPC_GetEnd(void) 000205f2 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 000205f6 4e 5e |N^ | UNLK A6 000205f8 4e 75 |Nu | RTS 000205fa ; -------------------------------------------------------------------------------------- 000205fa ; OMSI PASCAL Function 000205fa ; <LVAR -0x004 1(rw)> 000205fa ; -------------------------------------------------------------------------------------- 000205fa 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000205fe bf d5 | | CMPA.L (A5),A7 00020600 62 06 |b | BHI 0x20608 00020602 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020606 4e 76 |Nv | TRAPV 00020608 de fc 00 24 | $ | ADDA.W #0x24,A7 0002060c 48 e7 e1 80 |H | MOVEM.L A0+D7+D2+D1+D0,-(A7) 00020610 41 ee ff fc |A | LEA.L (A6-0x4),A0 00020614 72 0f |r | MOVEQ.L #0x0f,D1 00020616 74 01 |t | MOVEQ.L #0x01,D2 00020618 55 4f |UO | SUBQ.L #0x2,A7 0002061a 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 00020620 4a 1f |J | TST.B (A7)+ 00020622 67 08 |g | BEQ 0x2062c 00020624 4e b9 00 02 10 f0 |N | JSR exp_LOAD_HRAM_8_0.FIU() 0002062a 60 06 |` | BRA 0x20632 0002062c 4e b9 00 02 11 0e |N | JSR exp_LOAD_HRAM_32_0.FIU() 00020632 4e b9 00 02 11 bc |N | JSR exp_LOAD_HRAM_1.FIU() 00020638 4e b9 00 02 13 bc |N | JSR exp_ALIGN_CSA.VAL() 0002063e 4e b9 00 02 13 1c |N | JSR exp_ALIGN_CSA.TYP() 00020644 42 10 |B | CLR.B (A0) 00020646 7e 0c |~ | MOVEQ.L #0x0c,D7 00020648 55 4f |UO | SUBQ.L #0x2,A7 0002064a 1f 07 | | MOVE.B D7,-(A7) 0002064c 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte 00020652 54 4f |TO | ADDQ.L #0x2,A7 00020654 4a 1f |J | TST.B (A7)+ 00020656 67 0c |g | BEQ 0x20664 00020658 42 80 |B | CLR.L D0 0002065a 10 10 | | MOVE.B (A0),D0 0002065c 52 40 |R@ | ADDQ.W #0x1,D0 0002065e 41 bc 00 ff |A | CHK.W #0xff,D0 00020662 10 80 | | MOVE.B D0,(A0) 00020664 52 07 |R | ADDQ.B #0x1,D7 00020666 be 01 | | CMP.B D1,D7 00020668 6f de |o | BLE 0x20648 0002066a 7e 0c |~ | MOVEQ.L #0x0c,D7 0002066c 55 4f |UO | SUBQ.L #0x2,A7 0002066e 1f 07 | | MOVE.B D7,-(A7) 00020670 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte 00020676 54 4f |TO | ADDQ.L #0x2,A7 00020678 4a 1f |J | TST.B (A7)+ 0002067a 67 3a |g: | BEQ 0x206b6 0002067c 1f 07 | | MOVE.B D7,-(A7) 0002067e 55 4f |UO | SUBQ.L #0x2,A7 00020680 1f 07 | | MOVE.B D7,-(A7) 00020682 4e b9 00 01 04 c6 |N | JSR EQ_1c218(a : Byte) : Bool 00020688 54 4f |TO | ADDQ.L #0x2,A7 0002068a 10 17 | | MOVE.B (A7),D0 0002068c 48 80 |H | EXTB.W D0 0002068e 41 82 |A | CHK.W D2,D0 00020690 1e 80 | | MOVE.B D0,(A7) 00020692 55 4f |UO | SUBQ.L #0x2,A7 00020694 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 0002069a 10 17 | | MOVE.B (A7),D0 0002069c 48 80 |H | EXTB.W D0 0002069e 41 82 |A | CHK.W D2,D0 000206a0 1e 80 | | MOVE.B D0,(A7) 000206a2 1f 10 | | MOVE.B (A0),-(A7) 000206a4 4e b9 00 02 16 04 |N | JSR 0x21604 000206aa 5c 4f |\O | ADDQ.L #0x6,A7 000206ac 1e 87 | | MOVE.B D7,(A7) 000206ae 4e b9 00 02 18 04 |N | JSR 0x21804 000206b4 54 4f |TO | ADDQ.L #0x2,A7 000206b6 52 07 |R | ADDQ.B #0x1,D7 000206b8 be 01 | | CMP.B D1,D7 000206ba 6f b0 |o | BLE 0x2066c 000206bc 4e b9 00 01 05 b0 |N | JSR FifoInit(void) 000206c2 3f 3c ff ff |?< | MOVE.W #0xffff,-(A7) 000206c6 3f 3c ff ff |?< | MOVE.W #0xffff,-(A7) 000206ca 4e b9 00 02 11 98 |N | JSR exp_LOAD_REFRESH_REGS.FIU(Sw_2, Sw_2) 000206d0 58 4f |XO | ADDQ.L #0x4,A7 000206d2 4c df 01 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0 000206d6 4e 5e |N^ | UNLK A6 000206d8 4e 75 |Nu | RTS 000206da ; -------------------------------------------------------------------------------------- 000206da ; OMSI PASCAL Function 000206da ; <LVAR 0x008 2(r)> 000206da ; <LVAR -0x002 1(rw)> 000206da ; -------------------------------------------------------------------------------------- 000206da 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 000206de bf d5 | | CMPA.L (A5),A7 000206e0 62 06 |b | BHI 0x206e8 000206e2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000206e6 4e 76 |Nv | TRAPV 000206e8 de fc 00 2c | , | ADDA.W #0x2c,A7 000206ec 48 e7 f0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7) 000206f0 41 f9 00 01 04 c0 |A | LEA.L HasBoard(diproc_addr: Byte) : Byte,A0 000206f6 43 ee ff fe |C | LEA.L (A6-0x2),A1 000206fa 45 ee 00 08 |E | LEA.L (A6+0x8),A2 000206fe 47 f9 00 02 13 ee |G | LEA.L 0x213ee,A3 00020704 49 f9 00 02 19 62 |I b | LEA.L 0x21962,A4 0002070a 70 0c |p | MOVEQ.L #0x0c,D0 0002070c 72 0d |r | MOVEQ.L #0x0d,D1 0002070e 74 0e |t | MOVEQ.L #0x0e,D2 00020710 76 0f |v | MOVEQ.L #0x0f,D3 00020712 4e b9 00 02 12 fa |N | JSR exp_LOAD_BENIGN_UWORD.TYP() 00020718 55 4f |UO | SUBQ.L #0x2,A7 0002071a 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 00020720 4a 1f |J | TST.B (A7)+ 00020722 67 04 |g | BEQ 0x20728 00020724 42 11 |B | CLR.B (A1) 00020726 60 04 |` | BRA 0x2072c 00020728 12 bc 00 ff | | MOVE.B #0xff,(A1) 0002072c 55 4f |UO | SUBQ.L #0x2,A7 0002072e 1f 00 | | MOVE.B D0,-(A7) 00020730 4e 90 |N | JSR (A0) 00020732 54 4f |TO | ADDQ.L #0x2,A7 00020734 4a 1f |J | TST.B (A7)+ 00020736 67 08 |g | BEQ 0x20740 00020738 1f 00 | | MOVE.B D0,-(A7) 0002073a 1f 11 | | MOVE.B (A1),-(A7) 0002073c 4e 93 |N | JSR (A3) 0002073e 58 4f |XO | ADDQ.L #0x4,A7 00020740 55 4f |UO | SUBQ.L #0x2,A7 00020742 1f 01 | | MOVE.B D1,-(A7) 00020744 4e 90 |N | JSR (A0) 00020746 54 4f |TO | ADDQ.L #0x2,A7 00020748 4a 1f |J | TST.B (A7)+ 0002074a 67 08 |g | BEQ 0x20754 0002074c 1f 01 | | MOVE.B D1,-(A7) 0002074e 1f 11 | | MOVE.B (A1),-(A7) 00020750 4e 93 |N | JSR (A3) 00020752 58 4f |XO | ADDQ.L #0x4,A7 00020754 55 4f |UO | SUBQ.L #0x2,A7 00020756 1f 02 | | MOVE.B D2,-(A7) 00020758 4e 90 |N | JSR (A0) 0002075a 54 4f |TO | ADDQ.L #0x2,A7 0002075c 4a 1f |J | TST.B (A7)+ 0002075e 67 08 |g | BEQ 0x20768 00020760 1f 02 | | MOVE.B D2,-(A7) 00020762 1f 11 | | MOVE.B (A1),-(A7) 00020764 4e 93 |N | JSR (A3) 00020766 58 4f |XO | ADDQ.L #0x4,A7 00020768 55 4f |UO | SUBQ.L #0x2,A7 0002076a 1f 03 | | MOVE.B D3,-(A7) 0002076c 4e 90 |N | JSR (A0) 0002076e 54 4f |TO | ADDQ.L #0x2,A7 00020770 4a 1f |J | TST.B (A7)+ 00020772 67 08 |g | BEQ 0x2077c 00020774 1f 03 | | MOVE.B D3,-(A7) 00020776 1f 11 | | MOVE.B (A1),-(A7) 00020778 4e 93 |N | JSR (A3) 0002077a 58 4f |XO | ADDQ.L #0x4,A7 0002077c 4e b9 00 02 11 d8 |N | JSR exp_INIT_MRU.FIU() 00020782 55 4f |UO | SUBQ.L #0x2,A7 00020784 1f 00 | | MOVE.B D0,-(A7) 00020786 4e 90 |N | JSR (A0) 00020788 54 4f |TO | ADDQ.L #0x2,A7 0002078a 4a 1f |J | TST.B (A7)+ 0002078c 67 06 |g | BEQ 0x20794 0002078e 1f 00 | | MOVE.B D0,-(A7) 00020790 4e 94 |N | JSR (A4) 00020792 54 4f |TO | ADDQ.L #0x2,A7 00020794 55 4f |UO | SUBQ.L #0x2,A7 00020796 1f 01 | | MOVE.B D1,-(A7) 00020798 4e 90 |N | JSR (A0) 0002079a 54 4f |TO | ADDQ.L #0x2,A7 0002079c 4a 1f |J | TST.B (A7)+ 0002079e 67 06 |g | BEQ 0x207a6 000207a0 1f 01 | | MOVE.B D1,-(A7) 000207a2 4e 94 |N | JSR (A4) 000207a4 54 4f |TO | ADDQ.L #0x2,A7 000207a6 55 4f |UO | SUBQ.L #0x2,A7 000207a8 1f 02 | | MOVE.B D2,-(A7) 000207aa 4e 90 |N | JSR (A0) 000207ac 54 4f |TO | ADDQ.L #0x2,A7 000207ae 4a 1f |J | TST.B (A7)+ 000207b0 67 06 |g | BEQ 0x207b8 000207b2 1f 02 | | MOVE.B D2,-(A7) 000207b4 4e 94 |N | JSR (A4) 000207b6 54 4f |TO | ADDQ.L #0x2,A7 000207b8 55 4f |UO | SUBQ.L #0x2,A7 000207ba 1f 03 | | MOVE.B D3,-(A7) 000207bc 4e 90 |N | JSR (A0) 000207be 54 4f |TO | ADDQ.L #0x2,A7 000207c0 4a 1f |J | TST.B (A7)+ 000207c2 67 06 |g | BEQ 0x207ca 000207c4 1f 03 | | MOVE.B D3,-(A7) 000207c6 4e 94 |N | JSR (A4) 000207c8 54 4f |TO | ADDQ.L #0x2,A7 000207ca 3f 12 |? | MOVE.W (A2),-(A7) 000207cc 4e b9 00 02 12 c4 |N | JSR exp_PREP_RUN.TYP(Sw_2) 000207d2 3e 92 |> | MOVE.W (A2),(A7) 000207d4 4e b9 00 02 13 86 |N | JSR exp_PREP_RUN.VAL(Sw_2) 000207da 3e 92 |> | MOVE.W (A2),(A7) 000207dc 4e b9 00 02 1a 16 |N | JSR exp_PREP_RUN.IOC(Sw_2) 000207e2 3e 92 |> | MOVE.W (A2),(A7) 000207e4 4e b9 00 02 12 40 |N @ | JSR exp_PREP_RUN.SEQ(Sw_2) 000207ea 3e 92 |> | MOVE.W (A2),(A7) 000207ec 4e b9 00 02 11 7e |N ~ | JSR exp_PREP_RUN.FIU(Sw_2) 000207f2 1f 00 | | MOVE.B D0,-(A7) 000207f4 4e 90 |N | JSR (A0) 000207f6 54 4f |TO | ADDQ.L #0x2,A7 000207f8 4a 1f |J | TST.B (A7)+ 000207fa 67 0a |g | BEQ 0x20806 000207fc 1f 00 | | MOVE.B D0,-(A7) 000207fe 4e b9 00 02 18 b8 |N | JSR 0x218b8 00020804 54 4f |TO | ADDQ.L #0x2,A7 00020806 55 4f |UO | SUBQ.L #0x2,A7 00020808 1f 01 | | MOVE.B D1,-(A7) 0002080a 4e 90 |N | JSR (A0) 0002080c 54 4f |TO | ADDQ.L #0x2,A7 0002080e 4a 1f |J | TST.B (A7)+ 00020810 67 0a |g | BEQ 0x2081c 00020812 1f 01 | | MOVE.B D1,-(A7) 00020814 4e b9 00 02 18 b8 |N | JSR 0x218b8 0002081a 54 4f |TO | ADDQ.L #0x2,A7 0002081c 55 4f |UO | SUBQ.L #0x2,A7 0002081e 1f 02 | | MOVE.B D2,-(A7) 00020820 4e 90 |N | JSR (A0) 00020822 54 4f |TO | ADDQ.L #0x2,A7 00020824 4a 1f |J | TST.B (A7)+ 00020826 67 0a |g | BEQ 0x20832 00020828 1f 02 | | MOVE.B D2,-(A7) 0002082a 4e b9 00 02 18 b8 |N | JSR 0x218b8 00020830 54 4f |TO | ADDQ.L #0x2,A7 00020832 55 4f |UO | SUBQ.L #0x2,A7 00020834 1f 03 | | MOVE.B D3,-(A7) 00020836 4e 90 |N | JSR (A0) 00020838 54 4f |TO | ADDQ.L #0x2,A7 0002083a 4a 1f |J | TST.B (A7)+ 0002083c 67 0a |g | BEQ 0x20848 0002083e 1f 03 | | MOVE.B D3,-(A7) 00020840 4e b9 00 02 18 b8 |N | JSR 0x218b8 00020846 54 4f |TO | ADDQ.L #0x2,A7 00020848 4c df 1f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4 0002084c 4e 5e |N^ | UNLK A6 0002084e 4e 75 |Nu | RTS 00020850 ; -------------------------------------------------------------------------------------- 00020850 ; OMSI PASCAL Function 00020850 ; -------------------------------------------------------------------------------------- 00020850 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00020854 bf d5 | | CMPA.L (A5),A7 00020856 62 06 |b | BHI 0x2085e 00020858 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002085c 4e 76 |Nv | TRAPV 0002085e de fc 00 20 | | ADDA.W #0x20,A7 00020862 48 e7 f0 c0 |H | MOVEM.L A1+A0+D3+D2+D1+D0,-(A7) 00020866 41 f9 00 01 04 c0 |A | LEA.L HasBoard(diproc_addr: Byte) : Byte,A0 0002086c 43 f9 00 02 15 56 |C V | LEA.L 0x21556,A1 00020872 70 0c |p | MOVEQ.L #0x0c,D0 00020874 72 0d |r | MOVEQ.L #0x0d,D1 00020876 74 0e |t | MOVEQ.L #0x0e,D2 00020878 76 0f |v | MOVEQ.L #0x0f,D3 0002087a 4e b9 00 02 11 f2 |N | JSR exp_FREEZE_WORLD.FIU() 00020880 4e b9 00 02 12 92 |N | JSR exp_RUN_NORMAL.TYP() 00020886 4e b9 00 02 13 54 |N T | JSR exp_RUN_NORMAL.VAL() 0002088c 4e b9 00 02 12 26 |N & | JSR exp_RUN_CHECK.SEQ() 00020892 4e b9 00 02 19 fc |N | JSR exp_RUN_CHECK.IOC() 00020898 55 4f |UO | SUBQ.L #0x2,A7 0002089a 1f 00 | | MOVE.B D0,-(A7) 0002089c 4e 90 |N | JSR (A0) 0002089e 54 4f |TO | ADDQ.L #0x2,A7 000208a0 4a 1f |J | TST.B (A7)+ 000208a2 67 06 |g | BEQ 0x208aa 000208a4 1f 00 | | MOVE.B D0,-(A7) 000208a6 4e 91 |N | JSR (A1) 000208a8 54 4f |TO | ADDQ.L #0x2,A7 000208aa 55 4f |UO | SUBQ.L #0x2,A7 000208ac 1f 01 | | MOVE.B D1,-(A7) 000208ae 4e 90 |N | JSR (A0) 000208b0 54 4f |TO | ADDQ.L #0x2,A7 000208b2 4a 1f |J | TST.B (A7)+ 000208b4 67 06 |g | BEQ 0x208bc 000208b6 1f 01 | | MOVE.B D1,-(A7) 000208b8 4e 91 |N | JSR (A1) 000208ba 54 4f |TO | ADDQ.L #0x2,A7 000208bc 55 4f |UO | SUBQ.L #0x2,A7 000208be 1f 02 | | MOVE.B D2,-(A7) 000208c0 4e 90 |N | JSR (A0) 000208c2 54 4f |TO | ADDQ.L #0x2,A7 000208c4 4a 1f |J | TST.B (A7)+ 000208c6 67 06 |g | BEQ 0x208ce 000208c8 1f 02 | | MOVE.B D2,-(A7) 000208ca 4e 91 |N | JSR (A1) 000208cc 54 4f |TO | ADDQ.L #0x2,A7 000208ce 55 4f |UO | SUBQ.L #0x2,A7 000208d0 1f 03 | | MOVE.B D3,-(A7) 000208d2 4e 90 |N | JSR (A0) 000208d4 54 4f |TO | ADDQ.L #0x2,A7 000208d6 4a 1f |J | TST.B (A7)+ 000208d8 67 06 |g | BEQ 0x208e0 000208da 1f 03 | | MOVE.B D3,-(A7) 000208dc 4e 91 |N | JSR (A1) 000208de 54 4f |TO | ADDQ.L #0x2,A7 000208e0 4e b9 00 02 11 4c |N L | JSR exp_RUN_NORMAL.FIU() 000208e6 4c df 03 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1 000208ea 4e 5e |N^ | UNLK A6 000208ec 4e 75 |Nu | RTS 000208ee ; -------------------------------------------------------------------------------------- 000208ee ; OMSI PASCAL Function 000208ee ; <LVAR 0x010 4(r)> 000208ee ; <LVAR 0x00c 4(r)> 000208ee ; <LVAR 0x008 4(r)> 000208ee ; <LVAR -0x004 @> 000208ee ; <LVAR -0x005 @ 1(rw)> 000208ee ; <LVAR -0x006 @> 000208ee ; <LVAR -0x007 @ 1(r)> 000208ee ; -------------------------------------------------------------------------------------- 000208ee 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 000208f2 bf d5 | | CMPA.L (A5),A7 000208f4 62 06 |b | BHI 0x208fc 000208f6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000208fa 4e 76 |Nv | TRAPV 000208fc de fc 00 46 | F | ADDA.W #0x46,A7 00020900 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020904 43 f9 00 01 04 c0 |C | LEA.L HasBoard(diproc_addr: Byte) : Byte,A1 0002090a 45 f9 00 02 14 ac |E | LEA.L 0x214ac,A2 00020910 47 ee ff fb |G | LEA.L (A6-0x5),A3 00020914 74 0e |t | MOVEQ.L #0x0e,D2 00020916 76 01 |v | MOVEQ.L #0x01,D3 00020918 78 0c |x | MOVEQ.L #0x0c,D4 0002091a 7a 0d |z | MOVEQ.L #0x0d,D5 0002091c 7c 0f || | MOVEQ.L #0x0f,D6 0002091e 4e b9 00 02 11 f2 |N | JSR exp_FREEZE_WORLD.FIU() 00020924 4e b9 00 02 19 e6 |N | JSR exp_RESET.IOC() 0002092a 4e b9 00 02 13 70 |N p | JSR exp_RESET.VAL() 00020930 4e b9 00 02 12 ae |N | JSR exp_RESET.TYP() 00020936 4e b9 00 02 12 10 |N | JSR exp_RESET.SEQ() 0002093c 55 4f |UO | SUBQ.L #0x2,A7 0002093e 1f 04 | | MOVE.B D4,-(A7) 00020940 4e 91 |N | JSR (A1) 00020942 54 4f |TO | ADDQ.L #0x2,A7 00020944 4a 1f |J | TST.B (A7)+ 00020946 67 06 |g | BEQ 0x2094e 00020948 1f 04 | | MOVE.B D4,-(A7) 0002094a 4e 92 |N | JSR (A2) 0002094c 54 4f |TO | ADDQ.L #0x2,A7 0002094e 55 4f |UO | SUBQ.L #0x2,A7 00020950 1f 05 | | MOVE.B D5,-(A7) 00020952 4e 91 |N | JSR (A1) 00020954 54 4f |TO | ADDQ.L #0x2,A7 00020956 4a 1f |J | TST.B (A7)+ 00020958 67 06 |g | BEQ 0x20960 0002095a 1f 05 | | MOVE.B D5,-(A7) 0002095c 4e 92 |N | JSR (A2) 0002095e 54 4f |TO | ADDQ.L #0x2,A7 00020960 55 4f |UO | SUBQ.L #0x2,A7 00020962 1f 02 | | MOVE.B D2,-(A7) 00020964 4e 91 |N | JSR (A1) 00020966 54 4f |TO | ADDQ.L #0x2,A7 00020968 4a 1f |J | TST.B (A7)+ 0002096a 67 06 |g | BEQ 0x20972 0002096c 1f 02 | | MOVE.B D2,-(A7) 0002096e 4e 92 |N | JSR (A2) 00020970 54 4f |TO | ADDQ.L #0x2,A7 00020972 55 4f |UO | SUBQ.L #0x2,A7 00020974 1f 06 | | MOVE.B D6,-(A7) 00020976 4e 91 |N | JSR (A1) 00020978 54 4f |TO | ADDQ.L #0x2,A7 0002097a 4a 1f |J | TST.B (A7)+ 0002097c 67 06 |g | BEQ 0x20984 0002097e 1f 06 | | MOVE.B D6,-(A7) 00020980 4e 92 |N | JSR (A2) 00020982 54 4f |TO | ADDQ.L #0x2,A7 00020984 4e b9 00 02 11 68 |N h | JSR exp_RESET.FIU() 0002098a 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 0002098e 48 50 |HP | PEA.L (A0) 00020990 4e b9 00 02 12 5a |N Z | JSR exp_HALT.SEQ(&Fr) 00020996 58 4f |XO | ADDQ.L #0x4,A7 00020998 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002099c 42 10 |B | CLR.B (A0) 0002099e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000209a2 42 10 |B | CLR.B (A0) 000209a4 42 28 00 0b |B( | CLR.B (A0+0xb) 000209a8 42 28 00 01 |B( | CLR.B (A0+0x1) 000209ac 7e 02 |~ | MOVEQ.L #0x02,D7 000209ae 0c 07 00 05 | | CMPI.B #0x05,D7 000209b2 67 20 |g | BEQ 0x209d4 000209b4 10 07 | | MOVE.B D7,D0 000209b6 48 80 |H | EXTB.W D0 000209b8 41 fa fa 56 |A V | LEA.L 0x20410,A0 000209bc 1f 30 00 00 | 0 | MOVE.B (A0+D0.W),-(A7) 000209c0 48 6e ff fa |Hn | PEA.L (A6-0x6) 000209c4 48 53 |HS | PEA.L (A3) 000209c6 48 6e ff fc |Hn | PEA.L (A6-0x4) 000209ca 4e b9 00 01 04 84 |N | JSR DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool) 000209d0 de c2 | | ADDA.W D2,A7 000209d2 60 1a |` | BRA 0x209ee 000209d4 48 6e ff f9 |Hn | PEA.L (A6-0x7) 000209d8 4e b9 00 02 12 70 |N p | JSR exp_GET_MISC_ERRORS.SEQ(&Sr_1) 000209de 58 4f |XO | ADDQ.L #0x4,A7 000209e0 42 80 |B | CLR.L D0 000209e2 10 2e ff f9 | . | MOVE.B (A6-0x7),D0 000209e6 0c 40 00 1f | @ | CMPI.W #0x001f,D0 000209ea 67 02 |g | BEQ 0x209ee 000209ec 16 83 | | MOVE.B D3,(A3) 000209ee 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000209f2 10 07 | | MOVE.B D7,D0 000209f4 48 80 |H | EXTB.W D0 000209f6 3f 00 |? | MOVE.W D0,-(A7) 000209f8 12 13 | | MOVE.B (A3),D1 000209fa 48 81 |H | EXTB.W D1 000209fc 43 83 |C | CHK.W D3,D1 000209fe 11 81 00 00 | | MOVE.B D1,(A0+D0.W) 00020a02 4a 41 |JA | TST.W D1 00020a04 67 06 |g | BEQ 0x20a0c 00020a06 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00020a0a 10 83 | | MOVE.B D3,(A0) 00020a0c 3e 1f |> | MOVE.W (A7)+,D7 00020a0e 52 47 |RG | ADDQ.W #0x1,D7 00020a10 0c 47 00 0a | G | CMPI.W #0x000a,D7 00020a14 6f 98 |o | BLE 0x209ae 00020a16 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00020a1a 4e 5e |N^ | UNLK A6 00020a1c 4e 75 |Nu | RTS 00020a1e ; -------------------------------------------------------------------------------------- 00020a1e ; OMSI PASCAL Function 00020a1e ; <LVAR 0x008 2(r)> 00020a1e ; -------------------------------------------------------------------------------------- 00020a1e 4e 56 ff c2 |NV | LINK.W A6,#0xffc2 00020a22 bf d5 | | CMPA.L (A5),A7 00020a24 62 06 |b | BHI 0x20a2c 00020a26 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a2a 4e 76 |Nv | TRAPV 00020a2c de fc 00 38 | 8 | ADDA.W #0x38,A7 00020a30 48 e7 e0 c8 |H | MOVEM.L A4+A1+A0+D2+D1+D0,-(A7) 00020a34 43 f9 00 02 1c 4a |C J | LEA.L 0x21c4a,A1 00020a3a 72 01 |r | MOVEQ.L #0x01,D1 00020a3c 74 0a |t | MOVEQ.L #0x0a,D2 00020a3e 48 51 |HQ | PEA.L (A1) 00020a40 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020a46 58 4f |XO | ADDQ.L #0x4,A7 00020a48 30 2e 00 08 |0. | MOVE.W (A6+0x8),D0 00020a4c 41 bc 00 1f |A | CHK.W #0x1f,D0 00020a50 c1 c2 | | MULS.W D2,D0 00020a52 41 fa f8 74 |A t | LEA.L 0x202c8,A0 00020a56 41 f0 00 0a |A | LEA.L (A0+D0.W+#0xa),A0 00020a5a 70 04 |p | MOVEQ.L #0x04,D0 00020a5c 3f 20 |? | MOVE.W -(A0),-(A7) 00020a5e 51 c8 ff fc |Q | DBF D0,0x20a5c 00020a62 59 4f |YO | SUBQ.L #0x4,A7 00020a64 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a68 3f 01 |? | MOVE.W D1,-(A7) 00020a6a 3f 02 |? | MOVE.W D2,-(A7) 00020a6c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020a72 50 4f |PO | ADDQ.L #0x8,A7 00020a74 22 9f |" | MOVE.L (A7)+,(A1) 00020a76 54 4f |TO | ADDQ.L #0x2,A7 00020a78 2e 91 |. | MOVE.L (A1),(A7) 00020a7a 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020a80 58 4f |XO | ADDQ.L #0x4,A7 00020a82 28 5f |(_ | MOVEA.L (A7)+,A4 00020a84 2f 0c |/ | MOVE.L A4,-(A7) 00020a86 10 39 00 02 1c 44 | 9 D | MOVE.B 0x21c44,D0 00020a8c 48 80 |H | EXTB.W D0 00020a8e 41 81 |A | CHK.W D1,D0 00020a90 1f 00 | | MOVE.B D0,-(A7) 00020a92 10 39 00 02 1c 45 | 9 E | MOVE.B 0x21c45,D0 00020a98 48 80 |H | EXTB.W D0 00020a9a 41 81 |A | CHK.W D1,D0 00020a9c 1f 00 | | MOVE.B D0,-(A7) 00020a9e 48 79 00 02 1c 46 |Hy F | PEA.L 0x21c46 00020aa4 48 79 00 02 1c 4e |Hy N | PEA.L 0x21c4e 00020aaa 48 79 00 02 1c 52 |Hy R | PEA.L 0x21c52 00020ab0 48 79 00 02 1c 56 |Hy V | PEA.L 0x21c56 00020ab6 48 79 00 02 1c 57 |Hy W | PEA.L 0x21c57 00020abc 4e b9 00 01 05 3e |N > | JSR FSCALL_1053e 00020ac2 de fc 00 1c | | ADDA.W #0x1c,A7 00020ac6 4c df 13 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A4 00020aca 4e 5e |N^ | UNLK A6 00020acc 4e 75 |Nu | RTS 00020ace ; -------------------------------------------------------------------------------------- 00020ace ; OMSI PASCAL Function 00020ace ; <LVAR 0x008 1(r)> 00020ace ; -------------------------------------------------------------------------------------- 00020ace 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00020ad2 bf d5 | | CMPA.L (A5),A7 00020ad4 62 06 |b | BHI 0x20adc 00020ad6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020ada 4e 76 |Nv | TRAPV 00020adc de fc 00 2c | , | ADDA.W #0x2c,A7 00020ae0 48 e7 80 f0 |H | MOVEM.L A3+A2+A1+A0+D0,-(A7) 00020ae4 45 f9 00 02 1c 56 |E V | LEA.L 0x21c56,A2 00020aea 47 f9 00 02 1c 57 |G W | LEA.L 0x21c57,A3 00020af0 14 ae 00 08 | | MOVE.B (A6+0x8),(A2) 00020af4 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00020af8 0c 00 00 03 | | CMPI.B #0x03,D0 00020afc 67 04 |g | BEQ 0x20b02 00020afe 16 bc 00 29 | ) | MOVE.B #0x29,(A3) 00020b02 42 27 |B' | CLR.B -(A7) 00020b04 2f 39 00 02 1c 4e |/9 N | MOVE.L 0x21c4e,-(A7) 00020b0a 2f 39 00 02 1c 52 |/9 R | MOVE.L 0x21c52,-(A7) 00020b10 1f 12 | | MOVE.B (A2),-(A7) 00020b12 51 4f |QO | SUBQ.L #0x8,A7 00020b14 20 4f | O | MOVEA.L A7,A0 00020b16 22 4b |"K | MOVEA.L A3,A1 00020b18 70 07 |p | MOVEQ.L #0x07,D0 00020b1a 10 d9 | | MOVE.B (A1)+,(A0)+ 00020b1c 51 c8 ff fc |Q | DBF D0,0x20b1a 00020b20 4e b9 00 01 05 4a |N J | JSR ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long) 00020b26 de fc 00 14 | | ADDA.W #0x14,A7 00020b2a 4c df 0f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3 00020b2e 4e 5e |N^ | UNLK A6 00020b30 4e 75 |Nu | RTS 00020b32 ; -------------------------------------------------------------------------------------- 00020b32 ; OMSI PASCAL Function 00020b32 ; <LVAR 0x008 1(rw)> 00020b32 ; <LVAR -0x004 @ 1(rw)> 00020b32 ; -------------------------------------------------------------------------------------- 00020b32 4e 56 ff ea |NV | LINK.W A6,#0xffea 00020b36 bf d5 | | CMPA.L (A5),A7 00020b38 62 06 |b | BHI 0x20b40 00020b3a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b3e 4e 76 |Nv | TRAPV 00020b40 de fc 00 12 | | ADDA.W #0x12,A7 00020b44 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020b48 41 ee ff fc |A | LEA.L (A6-0x4),A0 00020b4c 42 27 |B' | CLR.B -(A7) 00020b4e 48 50 |HP | PEA.L (A0) 00020b50 4e b9 00 02 11 2e |N . | JSR exp_READ_PAREG.FIU(Sw_1, &Sr_1) 00020b56 5c 4f |\O | ADDQ.L #0x6,A7 00020b58 42 80 |B | CLR.L D0 00020b5a 10 10 | | MOVE.B (A0),D0 00020b5c 02 40 00 08 | @ | ANDI.W #0x0008,D0 00020b60 10 80 | | MOVE.B D0,(A0) 00020b62 42 2e 00 08 |B. | CLR.B (A6+0x8) 00020b66 4a 00 |J | TST.B D0 00020b68 66 04 |f | BNE 0x20b6e 00020b6a 52 2e 00 08 |R. | ADDQ.B #0x1,(A6+0x8) 00020b6e 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020b72 4e 5e |N^ | UNLK A6 00020b74 4e 75 |Nu | RTS 00020b76 ; -------------------------------------------------------------------------------------- 00020b76 ; OMSI PASCAL Function 00020b76 ; <LVAR 0x008 1(r)> 00020b76 ; <LVAR -0x00b @> 00020b76 ; <LVAR -0x00c @ 1(r)> 00020b76 ; <LVAR -0x010 @ 4(r)> 00020b76 ; <LVAR -0x014 @ 4(r)> 00020b76 ; <LVAR -0x019 1(r)> 00020b76 ; <LVAR -0x020 @> 00020b76 ; <LVAR -0x02c @> 00020b76 ; <LVAR -0x02d @ 1(r)> 00020b76 ; <LVAR -0x02e @ 1(r)> 00020b76 ; -------------------------------------------------------------------------------------- 00020b76 4e 56 ff 92 |NV | LINK.W A6,#0xff92 00020b7a bf d5 | | CMPA.L (A5),A7 00020b7c 62 06 |b | BHI 0x20b84 00020b7e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020b82 4e 76 |Nv | TRAPV 00020b84 de fc 00 40 | @ | ADDA.W #0x40,A7 00020b88 48 e7 e0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D2+D1+D0,-(A7) 00020b8c 45 f9 00 02 1c 4a |E J | LEA.L 0x21c4a,A2 00020b92 47 f9 00 02 1c 46 |G F | LEA.L 0x21c46,A3 00020b98 72 01 |r | MOVEQ.L #0x01,D1 00020b9a 74 18 |t | MOVEQ.L #0x18,D2 00020b9c 48 6e ff d2 |Hn | PEA.L (A6-0x2e) 00020ba0 48 6e ff d3 |Hn | PEA.L (A6-0x2d) 00020ba4 48 6e ff d4 |Hn | PEA.L (A6-0x2c) 00020ba8 4e ba fd 44 |N D | JSR 0x208ee 00020bac de fc 00 0c | | ADDA.W #0xc,A7 00020bb0 4a 2e ff d3 |J. | TST.B (A6-0x2d) 00020bb4 67 00 00 d6 |g | BEQ 0x20c8c 00020bb8 55 4f |UO | SUBQ.L #0x2,A7 00020bba 4e ba ff 76 |N v | JSR 0x20b32 00020bbe 4a 1f |J | TST.B (A7)+ 00020bc0 67 22 |g" | BEQ 0x20be4 00020bc2 3f 3c ff cf |?< | MOVE.W #0xffcf,-(A7) 00020bc6 42 27 |B' | CLR.B -(A7) 00020bc8 48 6e ff e0 |Hn | PEA.L (A6-0x20) 00020bcc 4e b9 00 02 13 36 |N 6 | JSR exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8) 00020bd2 50 4f |PO | ADDQ.L #0x8,A7 00020bd4 42 80 |B | CLR.L D0 00020bd6 10 2e ff e7 | . | MOVE.B (A6-0x19),D0 00020bda b0 42 | B | CMP.W D2,D0 00020bdc 66 06 |f | BNE 0x20be4 00020bde 3f 02 |? | MOVE.W D2,-(A7) 00020be0 60 00 00 ee |` | BRA 0x20cd0 00020be4 48 52 |HR | PEA.L (A2) 00020be6 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020bec 54 4f |TO | ADDQ.L #0x2,A7 00020bee 3e ba f6 9e |> | MOVE.W 0x2028e,(A7) 00020bf2 3f 3a f6 98 |?: | MOVE.W 0x2028c,-(A7) 00020bf6 3f 3a f6 92 |?: | MOVE.W 0x2028a,-(A7) 00020bfa 59 4f |YO | SUBQ.L #0x4,A7 00020bfc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020c00 3f 01 |? | MOVE.W D1,-(A7) 00020c02 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00020c06 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020c0c 50 4f |PO | ADDQ.L #0x8,A7 00020c0e 24 9f |$ | MOVE.L (A7)+,(A2) 00020c10 54 4f |TO | ADDQ.L #0x2,A7 00020c12 2f 12 |/ | MOVE.L (A2),-(A7) 00020c14 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00020c1a 58 4f |XO | ADDQ.L #0x4,A7 00020c1c 28 5f |(_ | MOVEA.L (A7)+,A4 00020c1e 2f 0c |/ | MOVE.L A4,-(A7) 00020c20 10 39 00 02 1c 44 | 9 D | MOVE.B 0x21c44,D0 00020c26 48 80 |H | EXTB.W D0 00020c28 41 81 |A | CHK.W D1,D0 00020c2a 1f 00 | | MOVE.B D0,-(A7) 00020c2c 10 39 00 02 1c 45 | 9 E | MOVE.B 0x21c45,D0 00020c32 48 80 |H | EXTB.W D0 00020c34 41 81 |A | CHK.W D1,D0 00020c36 1f 00 | | MOVE.B D0,-(A7) 00020c38 48 53 |HS | PEA.L (A3) 00020c3a 48 6e ff ec |Hn | PEA.L (A6-0x14) 00020c3e 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00020c42 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00020c46 48 6e ff f5 |Hn | PEA.L (A6-0xb) 00020c4a 4e b9 00 01 05 3e |N > | JSR FSCALL_1053e 00020c50 de fc 00 1c | | ADDA.W #0x1c,A7 00020c54 4a 13 |J | TST.B (A3) 00020c56 67 2a |g* | BEQ 0x20c82 00020c58 42 27 |B' | CLR.B -(A7) 00020c5a 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00020c5e 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00020c62 1f 2e ff f4 | . | MOVE.B (A6-0xc),-(A7) 00020c66 51 4f |QO | SUBQ.L #0x8,A7 00020c68 20 4f | O | MOVEA.L A7,A0 00020c6a 43 ee ff f5 |C | LEA.L (A6-0xb),A1 00020c6e 70 07 |p | MOVEQ.L #0x07,D0 00020c70 10 d9 | | MOVE.B (A1)+,(A0)+ 00020c72 51 c8 ff fc |Q | DBF D0,0x20c70 00020c76 4e b9 00 01 05 4a |N J | JSR ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long) 00020c7c de fc 00 14 | | ADDA.W #0x14,A7 00020c80 60 08 |` | BRA 0x20c8a 00020c82 1f 01 | | MOVE.B D1,-(A7) 00020c84 4e ba fe 48 |N H | JSR 0x20ace 00020c88 54 4f |TO | ADDQ.L #0x2,A7 00020c8a 60 4a |`J | BRA 0x20cd6 00020c8c 4a 2e 00 08 |J. | TST.B (A6+0x8) 00020c90 67 06 |g | BEQ 0x20c98 00020c92 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020c96 60 ec |` | BRA 0x20c84 00020c98 4a 2e ff d2 |J. | TST.B (A6-0x2e) 00020c9c 66 06 |f | BNE 0x20ca4 00020c9e 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00020ca2 60 e0 |` | BRA 0x20c84 00020ca4 3f 3c ff cf |?< | MOVE.W #0xffcf,-(A7) 00020ca8 42 27 |B' | CLR.B -(A7) 00020caa 48 6e ff e0 |Hn | PEA.L (A6-0x20) 00020cae 4e b9 00 02 13 36 |N 6 | JSR exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8) 00020cb4 50 4f |PO | ADDQ.L #0x8,A7 00020cb6 42 80 |B | CLR.L D0 00020cb8 10 2e ff e7 | . | MOVE.B (A6-0x19),D0 00020cbc 0c 40 00 ff | @ | CMPI.W #0x00ff,D0 00020cc0 67 14 |g | BEQ 0x20cd6 00020cc2 4a 40 |J@ | TST.W D0 00020cc4 6d 06 |m | BLT 0x20ccc 00020cc6 0c 40 00 1f | @ | CMPI.W #0x001f,D0 00020cca 6f 02 |o | BLE 0x20cce 00020ccc 60 b4 |` | BRA 0x20c82 00020cce 3f 00 |? | MOVE.W D0,-(A7) 00020cd0 4e ba fd 4c |N L | JSR 0x20a1e 00020cd4 54 4f |TO | ADDQ.L #0x2,A7 00020cd6 4c df 1f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3+A4 00020cda 4e 5e |N^ | UNLK A6 00020cdc 4e 75 |Nu | RTS 00020cde ; -------------------------------------------------------------------------------------- 00020cde ; OMSI PASCAL Function 00020cde ; <LVAR 0x008 4(r)> 00020cde ; <LVAR -0x00a @> 00020cde ; <LVAR -0x00b @ 1(r)> 00020cde ; <LVAR -0x00c @> 00020cde ; -------------------------------------------------------------------------------------- 00020cde 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 00020ce2 bf d5 | | CMPA.L (A5),A7 00020ce4 62 06 |b | BHI 0x20cec 00020ce6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020cea 4e 76 |Nv | TRAPV 00020cec de fc 00 42 | B | ADDA.W #0x42,A7 00020cf0 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00020cf4 43 ee ff f5 |C | LEA.L (A6-0xb),A1 00020cf8 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00020cfc 47 ee ff f6 |G | LEA.L (A6-0xa),A3 00020d00 49 f9 00 01 04 84 |I | LEA.L DiProcPing(adr : Byte; VAR status : Byte; VAR b80 : Bool; VAR b40 : Bool),A4 00020d06 72 0e |r | MOVEQ.L #0x0e,D1 00020d08 74 01 |t | MOVEQ.L #0x01,D2 00020d0a 2a 3c 00 00 02 58 |*< X | MOVE.L #0x258,D5 00020d10 7e 00 |~ | MOVEQ.L #0x00,D7 00020d12 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020d16 42 10 |B | CLR.B (A0) 00020d18 2f 3c 00 00 98 96 |/< | MOVE.L #0x9896,-(A7) 00020d1e 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00020d24 54 4f |TO | ADDQ.L #0x2,A7 00020d26 1e bc 00 04 | | MOVE.B #0x04,(A7) 00020d2a 48 52 |HR | PEA.L (A2) 00020d2c 48 51 |HQ | PEA.L (A1) 00020d2e 48 53 |HS | PEA.L (A3) 00020d30 4e 94 |N | JSR (A4) 00020d32 de c1 | | ADDA.W D1,A7 00020d34 10 07 | | MOVE.B D7,D0 00020d36 80 11 | | OR.B (A1),D0 00020d38 48 80 |H | EXTB.W D0 00020d3a 41 82 |A | CHK.W D2,D0 00020d3c 1e 00 | | MOVE.B D0,D7 00020d3e 1f 3c 00 07 | < | MOVE.B #0x07,-(A7) 00020d42 48 52 |HR | PEA.L (A2) 00020d44 48 51 |HQ | PEA.L (A1) 00020d46 48 53 |HS | PEA.L (A3) 00020d48 4e 94 |N | JSR (A4) 00020d4a de c1 | | ADDA.W D1,A7 00020d4c 10 07 | | MOVE.B D7,D0 00020d4e 80 11 | | OR.B (A1),D0 00020d50 48 80 |H | EXTB.W D0 00020d52 41 82 |A | CHK.W D2,D0 00020d54 1e 00 | | MOVE.B D0,D7 00020d56 1f 3c 00 06 | < | MOVE.B #0x06,-(A7) 00020d5a 48 52 |HR | PEA.L (A2) 00020d5c 48 51 |HQ | PEA.L (A1) 00020d5e 48 53 |HS | PEA.L (A3) 00020d60 4e 94 |N | JSR (A4) 00020d62 de c1 | | ADDA.W D1,A7 00020d64 10 07 | | MOVE.B D7,D0 00020d66 80 11 | | OR.B (A1),D0 00020d68 48 80 |H | EXTB.W D0 00020d6a 41 82 |A | CHK.W D2,D0 00020d6c 1e 00 | | MOVE.B D0,D7 00020d6e 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020d72 48 52 |HR | PEA.L (A2) 00020d74 48 51 |HQ | PEA.L (A1) 00020d76 48 53 |HS | PEA.L (A3) 00020d78 4e 94 |N | JSR (A4) 00020d7a de c1 | | ADDA.W D1,A7 00020d7c 10 07 | | MOVE.B D7,D0 00020d7e 80 11 | | OR.B (A1),D0 00020d80 48 80 |H | EXTB.W D0 00020d82 41 82 |A | CHK.W D2,D0 00020d84 1e 00 | | MOVE.B D0,D7 00020d86 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00020d8a 48 52 |HR | PEA.L (A2) 00020d8c 48 51 |HQ | PEA.L (A1) 00020d8e 48 53 |HS | PEA.L (A3) 00020d90 4e 94 |N | JSR (A4) 00020d92 de c1 | | ADDA.W D1,A7 00020d94 10 07 | | MOVE.B D7,D0 00020d96 80 11 | | OR.B (A1),D0 00020d98 48 80 |H | EXTB.W D0 00020d9a 41 82 |A | CHK.W D2,D0 00020d9c 1e 00 | | MOVE.B D0,D7 00020d9e 7c 0c || | MOVEQ.L #0x0c,D6 00020da0 55 4f |UO | SUBQ.L #0x2,A7 00020da2 1f 06 | | MOVE.B D6,-(A7) 00020da4 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte 00020daa 54 4f |TO | ADDQ.L #0x2,A7 00020dac 4a 1f |J | TST.B (A7)+ 00020dae 67 16 |g | BEQ 0x20dc6 00020db0 1f 06 | | MOVE.B D6,-(A7) 00020db2 48 52 |HR | PEA.L (A2) 00020db4 48 51 |HQ | PEA.L (A1) 00020db6 48 53 |HS | PEA.L (A3) 00020db8 4e 94 |N | JSR (A4) 00020dba de c1 | | ADDA.W D1,A7 00020dbc 10 07 | | MOVE.B D7,D0 00020dbe 80 11 | | OR.B (A1),D0 00020dc0 48 80 |H | EXTB.W D0 00020dc2 41 82 |A | CHK.W D2,D0 00020dc4 1e 00 | | MOVE.B D0,D7 00020dc6 52 06 |R | ADDQ.B #0x1,D6 00020dc8 0c 06 00 0f | | CMPI.B #0x0f,D6 00020dcc 6f d2 |o | BLE 0x20da0 00020dce 53 85 |S | SUBQ.L #0x1,D5 00020dd0 67 06 |g | BEQ 0x20dd8 00020dd2 4a 07 |J | TST.B D7 00020dd4 67 00 ff 42 |g B | BEQ 0x20d18 00020dd8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020ddc 10 87 | | MOVE.B D7,(A0) 00020dde 44 10 |D | NEG.B (A0) 00020de0 52 10 |R | ADDQ.B #0x1,(A0) 00020de2 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00020de6 4e 5e |N^ | UNLK A6 00020de8 4e 75 |Nu | RTS 00020dea ; -------------------------------------------------------------------------------------- 00020dea ; OMSI PASCAL Function 00020dea ; <LVAR -0x004 @> 00020dea ; -------------------------------------------------------------------------------------- 00020dea 4e 56 ff ca |NV | LINK.W A6,#0xffca 00020dee bf d5 | | CMPA.L (A5),A7 00020df0 62 06 |b | BHI 0x20df8 00020df2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020df6 4e 76 |Nv | TRAPV 00020df8 de fc 00 32 | 2 | ADDA.W #0x32,A7 00020dfc 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00020e00 72 01 |r | MOVEQ.L #0x01,D1 00020e02 41 fa f4 9e |A | LEA.L 0x202a2,A0 00020e06 70 08 |p | MOVEQ.L #0x08,D0 00020e08 3f 20 |? | MOVE.W -(A0),-(A7) 00020e0a 51 c8 ff fc |Q | DBF D0,0x20e08 00020e0e 42 27 |B' | CLR.B -(A7) 00020e10 59 4f |YO | SUBQ.L #0x4,A7 00020e12 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020e16 3f 01 |? | MOVE.W D1,-(A7) 00020e18 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00020e1c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020e22 5c 4f |\O | ADDQ.L #0x6,A7 00020e24 1e 81 | | MOVE.B D1,(A7) 00020e26 1f 01 | | MOVE.B D1,-(A7) 00020e28 1f 01 | | MOVE.B D1,-(A7) 00020e2a 48 6e ff fc |Hn | PEA.L (A6-0x4) 00020e2e 4e ba f7 02 |N | JSR 0x20532 00020e32 de fc 00 22 | " | ADDA.W #0x22,A7 00020e36 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00020e3a 4e 5e |N^ | UNLK A6 00020e3c 4e 75 |Nu | RTS 00020e3e ; -------------------------------------------------------------------------------------- 00020e3e ; OMSI PASCAL Function 00020e3e ; -------------------------------------------------------------------------------------- 00020e3e 4e 56 ff b6 |NV | LINK.W A6,#0xffb6 00020e42 bf d5 | | CMPA.L (A5),A7 00020e44 62 06 |b | BHI 0x20e4c 00020e46 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020e4a 4e 76 |Nv | TRAPV 00020e4c de fc 00 4a | J | ADDA.W #0x4a,A7 00020e50 48 e7 fe f8 |H | MOVEM.L A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7) 00020e54 45 f9 00 01 04 c0 |E | LEA.L HasBoard(diproc_addr: Byte) : Byte,A2 00020e5a 47 fa f5 c0 |G | LEA.L 0x2041c,A3 00020e5e 49 f9 00 02 16 e8 |I | LEA.L 0x216e8,A4 00020e64 72 14 |r | MOVEQ.L #0x14,D1 00020e66 74 16 |t | MOVEQ.L #0x16,D2 00020e68 76 0c |v | MOVEQ.L #0x0c,D3 00020e6a 78 0d |x | MOVEQ.L #0x0d,D4 00020e6c 7a 0e |z | MOVEQ.L #0x0e,D5 00020e6e 7c 0f || | MOVEQ.L #0x0f,D6 00020e70 55 4f |UO | SUBQ.L #0x2,A7 00020e72 1f 03 | | MOVE.B D3,-(A7) 00020e74 4e 92 |N | JSR (A2) 00020e76 54 4f |TO | ADDQ.L #0x2,A7 00020e78 4a 1f |J | TST.B (A7)+ 00020e7a 67 14 |g | BEQ 0x20e90 00020e7c 1f 03 | | MOVE.B D3,-(A7) 00020e7e 9e c1 | | SUBA.W D1,A7 00020e80 20 4f | O | MOVEA.L A7,A0 00020e82 22 4b |"K | MOVEA.L A3,A1 00020e84 70 12 |p | MOVEQ.L #0x12,D0 00020e86 10 d9 | | MOVE.B (A1)+,(A0)+ 00020e88 51 c8 ff fc |Q | DBF D0,0x20e86 00020e8c 4e 94 |N | JSR (A4) 00020e8e de c2 | | ADDA.W D2,A7 00020e90 55 4f |UO | SUBQ.L #0x2,A7 00020e92 1f 04 | | MOVE.B D4,-(A7) 00020e94 4e 92 |N | JSR (A2) 00020e96 54 4f |TO | ADDQ.L #0x2,A7 00020e98 4a 1f |J | TST.B (A7)+ 00020e9a 67 14 |g | BEQ 0x20eb0 00020e9c 1f 04 | | MOVE.B D4,-(A7) 00020e9e 9e c1 | | SUBA.W D1,A7 00020ea0 20 4f | O | MOVEA.L A7,A0 00020ea2 22 4b |"K | MOVEA.L A3,A1 00020ea4 70 12 |p | MOVEQ.L #0x12,D0 00020ea6 10 d9 | | MOVE.B (A1)+,(A0)+ 00020ea8 51 c8 ff fc |Q | DBF D0,0x20ea6 00020eac 4e 94 |N | JSR (A4) 00020eae de c2 | | ADDA.W D2,A7 00020eb0 55 4f |UO | SUBQ.L #0x2,A7 00020eb2 1f 05 | | MOVE.B D5,-(A7) 00020eb4 4e 92 |N | JSR (A2) 00020eb6 54 4f |TO | ADDQ.L #0x2,A7 00020eb8 4a 1f |J | TST.B (A7)+ 00020eba 67 14 |g | BEQ 0x20ed0 00020ebc 1f 05 | | MOVE.B D5,-(A7) 00020ebe 9e c1 | | SUBA.W D1,A7 00020ec0 20 4f | O | MOVEA.L A7,A0 00020ec2 22 4b |"K | MOVEA.L A3,A1 00020ec4 70 12 |p | MOVEQ.L #0x12,D0 00020ec6 10 d9 | | MOVE.B (A1)+,(A0)+ 00020ec8 51 c8 ff fc |Q | DBF D0,0x20ec6 00020ecc 4e 94 |N | JSR (A4) 00020ece de c2 | | ADDA.W D2,A7 00020ed0 55 4f |UO | SUBQ.L #0x2,A7 00020ed2 1f 06 | | MOVE.B D6,-(A7) 00020ed4 4e 92 |N | JSR (A2) 00020ed6 54 4f |TO | ADDQ.L #0x2,A7 00020ed8 4a 1f |J | TST.B (A7)+ 00020eda 67 14 |g | BEQ 0x20ef0 00020edc 1f 06 | | MOVE.B D6,-(A7) 00020ede 9e c1 | | SUBA.W D1,A7 00020ee0 20 4f | O | MOVEA.L A7,A0 00020ee2 22 4b |"K | MOVEA.L A3,A1 00020ee4 70 12 |p | MOVEQ.L #0x12,D0 00020ee6 10 d9 | | MOVE.B (A1)+,(A0)+ 00020ee8 51 c8 ff fc |Q | DBF D0,0x20ee6 00020eec 4e 94 |N | JSR (A4) 00020eee de c2 | | ADDA.W D2,A7 00020ef0 4c df 1f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4 00020ef4 4e 5e |N^ | UNLK A6 00020ef6 4e 75 |Nu | RTS 00020ef8 ; -------------------------------------------------------------------------------------- 00020ef8 ; OMSI PASCAL Function 00020ef8 ; -------------------------------------------------------------------------------------- 00020ef8 START: 00020ef8 4f fa 00 08 |O | LEA.L MAIN,A7 00020efc 4e f9 00 01 02 80 |N | JMP ?start_program 00020f02 MAIN: 00020f02 45 f9 00 02 1c 40 |E @ | LEA.L 0x21c40,A2 00020f08 47 f9 00 02 1c 45 |G E | LEA.L 0x21c45,A3 00020f0e 49 f9 00 02 1c 47 |I G | LEA.L 0x21c47,A4 00020f14 72 01 |r | MOVEQ.L #0x01,D1 00020f16 74 07 |t | MOVEQ.L #0x07,D2 00020f18 76 0e |v | MOVEQ.L #0x0e,D3 00020f1a 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020f20 48 78 00 00 |Hx | PEA.L 0x0 00020f24 4e b9 00 01 04 d8 |N | JSR ExpInit(a : Long) 00020f2a 58 4f |XO | ADDQ.L #0x4,A7 00020f2c 48 52 |HR | PEA.L (A2) 00020f2e 48 79 00 02 1c 44 |Hy D | PEA.L 0x21c44 00020f34 48 53 |HS | PEA.L (A3) 00020f36 48 54 |HT | PEA.L (A4) 00020f38 48 79 00 02 1c 48 |Hy H | PEA.L 0x21c48 00020f3e 4e b9 00 01 05 62 |N b | JSR ?IPC_GetVar4xBool(VAR a : Pointer; VAR b : Bool ; VAR c : Bool; VAR d: Bool; VAR e: Bool) 00020f44 de fc 00 12 | | ADDA.W #0x12,A7 00020f48 1e 93 | | MOVE.B (A3),(A7) 00020f4a 4e b9 00 01 04 d2 |N | JSR SetExpInitDone(a : Byte) 00020f50 5d 4f |]O | SUBQ.L #0x6,A7 00020f52 20 4f | O | MOVEA.L A7,A0 00020f54 43 fa f3 4c |C L | LEA.L 0x202a2,A1 00020f58 70 06 |p | MOVEQ.L #0x06,D0 00020f5a 10 d9 | | MOVE.B (A1)+,(A0)+ 00020f5c 51 c8 ff fc |Q | DBF D0,0x20f5a 00020f60 59 4f |YO | SUBQ.L #0x4,A7 00020f62 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020f66 3f 01 |? | MOVE.W D1,-(A7) 00020f68 3f 02 |? | MOVE.W D2,-(A7) 00020f6a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020f70 50 4f |PO | ADDQ.L #0x8,A7 00020f72 23 df 00 02 1c 4e |# N | MOVE.L (A7)+,0x21c4e 00020f78 50 4f |PO | ADDQ.L #0x8,A7 00020f7a 48 79 00 02 1c 52 |Hy R | PEA.L 0x21c52 00020f80 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020f86 58 4f |XO | ADDQ.L #0x4,A7 00020f88 48 79 00 02 1c 4a |Hy J | PEA.L 0x21c4a 00020f8e 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00020f94 58 4f |XO | ADDQ.L #0x4,A7 00020f96 42 39 00 02 1c 56 |B9 V | CLR.B 0x21c56 00020f9c 70 00 |p | MOVEQ.L #0x00,D0 00020f9e 23 c0 00 02 1c 60 |# ` | MOVE.L D0,0x21c60 00020fa4 b0 82 | | CMP.L D2,D0 00020fa6 63 02 |c | BLS 0x20faa 00020fa8 4e 4f |NO | TRAP #15 00020faa 41 f9 00 02 1c 36 |A 6 | LEA.L 0x21c36,A0 00020fb0 42 30 08 21 |B0 ! | CLR.B (A0+D0.L+#0x21) 00020fb4 52 80 |R | ADDQ.L #0x1,D0 00020fb6 b0 82 | | CMP.L D2,D0 00020fb8 6f e4 |o | BLE 0x20f9e 00020fba 13 c1 00 02 1c 46 | F | MOVE.B D1,0x21c46 00020fc0 42 80 |B | CLR.L D0 00020fc2 10 12 | | MOVE.B (A2),D0 00020fc4 0c 40 00 20 | @ | CMPI.W #0x0020,D0 00020fc8 63 2c |c, | BLS 0x20ff6 00020fca 41 fa f2 fc |A | LEA.L 0x202c8,A0 00020fce 70 0e |p | MOVEQ.L #0x0e,D0 00020fd0 3f 20 |? | MOVE.W -(A0),-(A7) 00020fd2 51 c8 ff fc |Q | DBF D0,0x20fd0 00020fd6 1f 03 | | MOVE.B D3,-(A7) 00020fd8 59 4f |YO | SUBQ.L #0x4,A7 00020fda 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00020fde 3f 01 |? | MOVE.W D1,-(A7) 00020fe0 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7) 00020fe4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020fea 50 4f |PO | ADDQ.L #0x8,A7 00020fec 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00020ff2 de fc 00 24 | $ | ADDA.W #0x24,A7 00020ff6 4a 39 00 02 1c 48 |J9 H | TST.B 0x21c48 00020ffc 67 04 |g | BEQ 0x21002 00020ffe 4e ba f5 fa |N | JSR 0x205fa 00021002 4a 14 |J | TST.B (A4) 00021004 67 2a |g* | BEQ 0x21030 00021006 4e ba fd e2 |N | JSR 0x20dea 0002100a 2f 3a f4 00 |/: | MOVE.L 0x2040c,-(A7) 0002100e 2f 3a f3 f8 |/: | MOVE.L 0x20408,-(A7) 00021012 42 27 |B' | CLR.B -(A7) 00021014 4e b9 00 02 13 a0 |N | JSR exp_LOAD_WDR.VAL(Sw_8, Sw_1) 0002101a 5c 4f |\O | ADDQ.L #0x6,A7 0002101c 2e ba f3 ee |. | MOVE.L 0x2040c,(A7) 00021020 2f 3a f3 e6 |/: | MOVE.L 0x20408,-(A7) 00021024 42 27 |B' | CLR.B -(A7) 00021026 4e b9 00 02 12 de |N | JSR exp_LOAD_WDR.TYP(Sw_8, Sw_1) 0002102c de fc 00 0a | | ADDA.W #0xa,A7 00021030 4e ba fe 0c |N | JSR 0x20e3e 00021034 13 c3 00 02 1c 3e | > | MOVE.B D3,0x21c3e 0002103a 13 d2 00 02 1c 3f | ? | MOVE.B (A2),0x21c3f 00021040 3f 39 00 02 1c 3e |?9 > | MOVE.W 0x21c3e,-(A7) 00021046 4e ba f6 92 |N | JSR 0x206da 0002104a 54 4f |TO | ADDQ.L #0x2,A7 0002104c 42 39 00 02 1c 41 |B9 A | CLR.B 0x21c41 00021052 42 39 00 02 1c 42 |B9 B | CLR.B 0x21c42 00021058 42 80 |B | CLR.L D0 0002105a 10 12 | | MOVE.B (A2),D0 0002105c b0 41 | A | CMP.W D1,D0 0002105e 66 22 |f" | BNE 0x21082 00021060 13 c1 00 02 1c 41 | A | MOVE.B D1,0x21c41 00021066 13 c1 00 02 1c 42 | B | MOVE.B D1,0x21c42 0002106c 42 80 |B | CLR.L D0 0002106e 10 39 00 02 1c 3f | 9 ? | MOVE.B 0x21c3f,D0 00021074 53 40 |S@ | SUBQ.W #0x1,D0 00021076 41 bc 00 ff |A | CHK.W #0xff,D0 0002107a 13 c0 00 02 1c 3f | ? | MOVE.B D0,0x21c3f 00021080 60 0c |` | BRA 0x2108e 00021082 0c 40 00 02 | @ | CMPI.W #0x0002,D0 00021086 66 06 |f | BNE 0x2108e 00021088 13 c1 00 02 1c 41 | A | MOVE.B D1,0x21c41 0002108e 4e ba f7 c0 |N | JSR 0x20850 00021092 48 79 00 02 1c 43 |Hy C | PEA.L 0x21c43 00021098 4e ba fc 44 |N D | JSR 0x20cde 0002109c 54 4f |TO | ADDQ.L #0x2,A7 0002109e 1e b9 00 02 1c 43 | C | MOVE.B 0x21c43,(A7) 000210a4 4e ba fa d0 |N | JSR 0x20b76 000210a8 1e 93 | | MOVE.B (A3),(A7) 000210aa 48 79 00 02 1c 49 |Hy I | PEA.L 0x21c49 000210b0 4e ba f3 7e |N ~ | JSR 0x20430 000210b4 58 4f |XO | ADDQ.L #0x4,A7 000210b6 1e b9 00 02 1c 46 | F | MOVE.B 0x21c46,(A7) 000210bc 2f 39 00 02 1c 4e |/9 N | MOVE.L 0x21c4e,-(A7) 000210c2 2f 39 00 02 1c 52 |/9 R | MOVE.L 0x21c52,-(A7) 000210c8 1f 39 00 02 1c 56 | 9 V | MOVE.B 0x21c56,-(A7) 000210ce 51 4f |QO | SUBQ.L #0x8,A7 000210d0 20 4f | O | MOVEA.L A7,A0 000210d2 43 f9 00 02 1c 57 |C W | LEA.L 0x21c57,A1 000210d8 70 07 |p | MOVEQ.L #0x07,D0 000210da 10 d9 | | MOVE.B (A1)+,(A0)+ 000210dc 51 c8 ff fc |Q | DBF D0,0x210da 000210e0 4e b9 00 01 05 4a |N J | JSR ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long) 000210e6 de fc 00 14 | | ADDA.W #0x14,A7 000210ea 4e b9 00 01 02 84 |N | JSR ?exit 000210f0 exp_LOAD_HRAM_8_0.FIU(): 000210f0 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000210f6 00 08 | | .CONST 0x0008 ; Stack-delta 000210f8 11 4c 4f 41 44 5f 48 52 | LOAD_HR| .TXT 17,'LOAD_HRAM_8_0.FIU' 0002110a 00 | | .CONST 0x0 0002110b 03 | | .CONST 0x3 ; DIPROC address 0002110c 00 | | .CONST 0x0 ; Output Parameters 0002110d 00 | | .CONST 0x0 ; Input Parameters 0002110e exp_LOAD_HRAM_32_0.FIU(): 0002110e 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021114 00 08 | | .CONST 0x0008 ; Stack-delta 00021116 12 4c 4f 41 44 5f 48 52 | LOAD_HR| .TXT 18,'LOAD_HRAM_32_0.FIU' 00021129 00 | | .CONST 0x0 0002112a 03 | | .CONST 0x3 ; DIPROC address 0002112b 00 | | .CONST 0x0 ; Output Parameters 0002112c 00 | | .CONST 0x0 ; Input Parameters 0002112d 00 | | .PAD 0x0 0002112e exp_READ_PAREG.FIU(Sw_1, &Sr_1): 0002112e 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021134 00 0e | | .CONST 0x000e ; Stack-delta 00021136 0e 52 45 41 44 5f 50 41 | READ_PA| .TXT 14,'READ_PAREG.FIU' 00021145 00 | | .CONST 0x0 00021146 03 | | .CONST 0x3 ; DIPROC address 00021147 01 | | .CONST 0x1 ; Output Parameters 00021148 01 | | .CONST 0x1 ; Input Parameters 00021149 00 | | .CONST 0x0 ; In arg [1] 0002114a 00 | | .CONST 0x0 ; Out arg [1] 0002114b 00 | | .PAD 0x0 0002114c exp_RUN_NORMAL.FIU(): 0002114c 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021152 00 08 | | .CONST 0x0008 ; Stack-delta 00021154 0e 52 55 4e 5f 4e 4f 52 | RUN_NOR| .TXT 14,'RUN_NORMAL.FIU' 00021163 00 | | .CONST 0x0 00021164 03 | | .CONST 0x3 ; DIPROC address 00021165 00 | | .CONST 0x0 ; Output Parameters 00021166 00 | | .CONST 0x0 ; Input Parameters 00021167 00 | | .PAD 0x0 00021168 exp_RESET.FIU(): 00021168 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002116e 00 08 | | .CONST 0x0008 ; Stack-delta 00021170 09 52 45 53 45 54 2e 46 | RESET.F| .TXT 9,'RESET.FIU' 0002117a 00 | | .CONST 0x0 0002117b 03 | | .CONST 0x3 ; DIPROC address 0002117c 00 | | .CONST 0x0 ; Output Parameters 0002117d 00 | | .CONST 0x0 ; Input Parameters 0002117e exp_PREP_RUN.FIU(Sw_2): 0002117e 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021184 00 0a | | .CONST 0x000a ; Stack-delta 00021186 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.FIU' 00021193 00 | | .CONST 0x0 00021194 03 | | .CONST 0x3 ; DIPROC address 00021195 00 | | .CONST 0x0 ; Output Parameters 00021196 01 | | .CONST 0x1 ; Input Parameters 00021197 01 | | .CONST 0x1 ; In arg [2] 00021198 exp_LOAD_REFRESH_REGS.FIU(Sw_2, Sw_2): 00021198 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002119e 00 0c | | .CONST 0x000c ; Stack-delta 000211a0 15 4c 4f 41 44 5f 52 45 | LOAD_RE| .TXT 21,'LOAD_REFRESH_REGS.FIU' 000211b6 00 | | .CONST 0x0 000211b7 03 | | .CONST 0x3 ; DIPROC address 000211b8 00 | | .CONST 0x0 ; Output Parameters 000211b9 02 | | .CONST 0x2 ; Input Parameters 000211ba 01 | | .CONST 0x1 ; In arg [2] 000211bb 01 | | .CONST 0x1 ; In arg [2] 000211bc exp_LOAD_HRAM_1.FIU(): 000211bc 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000211c2 00 08 | | .CONST 0x0008 ; Stack-delta 000211c4 0f 4c 4f 41 44 5f 48 52 | LOAD_HR| .TXT 15,'LOAD_HRAM_1.FIU' 000211d4 00 | | .CONST 0x0 000211d5 03 | | .CONST 0x3 ; DIPROC address 000211d6 00 | | .CONST 0x0 ; Output Parameters 000211d7 00 | | .CONST 0x0 ; Input Parameters 000211d8 exp_INIT_MRU.FIU(): 000211d8 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000211de 00 08 | | .CONST 0x0008 ; Stack-delta 000211e0 0c 49 4e 49 54 5f 4d 52 | INIT_MR| .TXT 12,'INIT_MRU.FIU' 000211ed 00 | | .CONST 0x0 000211ee 03 | | .CONST 0x3 ; DIPROC address 000211ef 00 | | .CONST 0x0 ; Output Parameters 000211f0 00 | | .CONST 0x0 ; Input Parameters 000211f1 00 | | .PAD 0x0 000211f2 exp_FREEZE_WORLD.FIU(): 000211f2 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000211f8 00 08 | | .CONST 0x0008 ; Stack-delta 000211fa 10 46 52 45 45 5a 45 5f | FREEZE_| .TXT 16,'FREEZE_WORLD.FIU' 0002120b 00 | | .CONST 0x0 0002120c 03 | | .CONST 0x3 ; DIPROC address 0002120d 00 | | .CONST 0x0 ; Output Parameters 0002120e 00 | | .CONST 0x0 ; Input Parameters 0002120f 00 | | .PAD 0x0 00021210 exp_RESET.SEQ(): 00021210 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021216 00 08 | | .CONST 0x0008 ; Stack-delta 00021218 09 52 45 53 45 54 2e 53 | RESET.S| .TXT 9,'RESET.SEQ' 00021222 00 | | .CONST 0x0 00021223 02 | | .CONST 0x2 ; DIPROC address 00021224 00 | | .CONST 0x0 ; Output Parameters 00021225 00 | | .CONST 0x0 ; Input Parameters 00021226 exp_RUN_CHECK.SEQ(): 00021226 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002122c 00 08 | | .CONST 0x0008 ; Stack-delta 0002122e 0d 52 55 4e 5f 43 48 45 | RUN_CHE| .TXT 13,'RUN_CHECK.SEQ' 0002123c 00 | | .CONST 0x0 0002123d 02 | | .CONST 0x2 ; DIPROC address 0002123e 00 | | .CONST 0x0 ; Output Parameters 0002123f 00 | | .CONST 0x0 ; Input Parameters 00021240 exp_PREP_RUN.SEQ(Sw_2): 00021240 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021246 00 0a | | .CONST 0x000a ; Stack-delta 00021248 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.SEQ' 00021255 00 | | .CONST 0x0 00021256 02 | | .CONST 0x2 ; DIPROC address 00021257 00 | | .CONST 0x0 ; Output Parameters 00021258 01 | | .CONST 0x1 ; Input Parameters 00021259 01 | | .CONST 0x1 ; In arg [2] 0002125a exp_HALT.SEQ(&Fr): 0002125a 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021260 00 0c | | .CONST 0x000c ; Stack-delta 00021262 08 48 41 4c 54 2e 53 45 | HALT.SE| .TXT 8,'HALT.SEQ' 0002126b 00 | | .CONST 0x0 0002126c 02 | | .CONST 0x2 ; DIPROC address 0002126d 01 | | .CONST 0x1 ; Output Parameters 0002126e 00 | | .CONST 0x0 ; Input Parameters 0002126f 08 | | .CONST 0x8 ; Out arg flag 00021270 exp_GET_MISC_ERRORS.SEQ(&Sr_1): 00021270 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021276 00 0c | | .CONST 0x000c ; Stack-delta 00021278 13 47 45 54 5f 4d 49 53 | GET_MIS| .TXT 19,'GET_MISC_ERRORS.SEQ' 0002128c 00 | | .CONST 0x0 0002128d 02 | | .CONST 0x2 ; DIPROC address 0002128e 01 | | .CONST 0x1 ; Output Parameters 0002128f 00 | | .CONST 0x0 ; Input Parameters 00021290 00 | | .CONST 0x0 ; Out arg [1] 00021291 00 | | .PAD 0x0 00021292 exp_RUN_NORMAL.TYP(): 00021292 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021298 00 08 | | .CONST 0x0008 ; Stack-delta 0002129a 0e 52 55 4e 5f 4e 4f 52 | RUN_NOR| .TXT 14,'RUN_NORMAL.TYP' 000212a9 00 | | .CONST 0x0 000212aa 06 | | .CONST 0x6 ; DIPROC address 000212ab 00 | | .CONST 0x0 ; Output Parameters 000212ac 00 | | .CONST 0x0 ; Input Parameters 000212ad 00 | | .PAD 0x0 000212ae exp_RESET.TYP(): 000212ae 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000212b4 00 08 | | .CONST 0x0008 ; Stack-delta 000212b6 09 52 45 53 45 54 2e 54 | RESET.T| .TXT 9,'RESET.TYP' 000212c0 00 | | .CONST 0x0 000212c1 06 | | .CONST 0x6 ; DIPROC address 000212c2 00 | | .CONST 0x0 ; Output Parameters 000212c3 00 | | .CONST 0x0 ; Input Parameters 000212c4 exp_PREP_RUN.TYP(Sw_2): 000212c4 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000212ca 00 0a | | .CONST 0x000a ; Stack-delta 000212cc 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.TYP' 000212d9 00 | | .CONST 0x0 000212da 06 | | .CONST 0x6 ; DIPROC address 000212db 00 | | .CONST 0x0 ; Output Parameters 000212dc 01 | | .CONST 0x1 ; Input Parameters 000212dd 01 | | .CONST 0x1 ; In arg [2] 000212de exp_LOAD_WDR.TYP(Sw_8, Sw_1): 000212de 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000212e4 00 12 | | .CONST 0x0012 ; Stack-delta 000212e6 0c 4c 4f 41 44 5f 57 44 | LOAD_WD| .TXT 12,'LOAD_WDR.TYP' 000212f3 00 | | .CONST 0x0 000212f4 06 | | .CONST 0x6 ; DIPROC address 000212f5 00 | | .CONST 0x0 ; Output Parameters 000212f6 02 | | .CONST 0x2 ; Input Parameters 000212f7 07 | | .CONST 0x7 ; In arg [8] 000212f8 00 | | .CONST 0x0 ; In arg [1] 000212f9 00 | | .PAD 0x0 000212fa exp_LOAD_BENIGN_UWORD.TYP(): 000212fa 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021300 00 08 | | .CONST 0x0008 ; Stack-delta 00021302 15 4c 4f 41 44 5f 42 45 | LOAD_BE| .TXT 21,'LOAD_BENIGN_UWORD.TYP' 00021318 00 | | .CONST 0x0 00021319 06 | | .CONST 0x6 ; DIPROC address 0002131a 00 | | .CONST 0x0 ; Output Parameters 0002131b 00 | | .CONST 0x0 ; Input Parameters 0002131c exp_ALIGN_CSA.TYP(): 0002131c 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021322 00 08 | | .CONST 0x0008 ; Stack-delta 00021324 0d 41 4c 49 47 4e 5f 43 | ALIGN_C| .TXT 13,'ALIGN_CSA.TYP' 00021332 00 | | .CONST 0x0 00021333 06 | | .CONST 0x6 ; DIPROC address 00021334 00 | | .CONST 0x0 ; Output Parameters 00021335 00 | | .CONST 0x0 ; Input Parameters 00021336 exp_READ_RF_B.VAL(Sw_2, Sw_1, &Sr_8): 00021336 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002133c 00 10 | | .CONST 0x0010 ; Stack-delta 0002133e 0d 52 45 41 44 5f 52 46 | READ_RF| .TXT 13,'READ_RF_B.VAL' 0002134c 00 | | .CONST 0x0 0002134d 07 | | .CONST 0x7 ; DIPROC address 0002134e 01 | | .CONST 0x1 ; Output Parameters 0002134f 02 | | .CONST 0x2 ; Input Parameters 00021350 01 | | .CONST 0x1 ; In arg [2] 00021351 00 | | .CONST 0x0 ; In arg [1] 00021352 07 | | .CONST 0x7 ; Out arg [8] 00021353 00 | | .PAD 0x0 00021354 exp_RUN_NORMAL.VAL(): 00021354 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002135a 00 08 | | .CONST 0x0008 ; Stack-delta 0002135c 0e 52 55 4e 5f 4e 4f 52 | RUN_NOR| .TXT 14,'RUN_NORMAL.VAL' 0002136b 00 | | .CONST 0x0 0002136c 07 | | .CONST 0x7 ; DIPROC address 0002136d 00 | | .CONST 0x0 ; Output Parameters 0002136e 00 | | .CONST 0x0 ; Input Parameters 0002136f 00 | | .PAD 0x0 00021370 exp_RESET.VAL(): 00021370 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021376 00 08 | | .CONST 0x0008 ; Stack-delta 00021378 09 52 45 53 45 54 2e 56 | RESET.V| .TXT 9,'RESET.VAL' 00021382 00 | | .CONST 0x0 00021383 07 | | .CONST 0x7 ; DIPROC address 00021384 00 | | .CONST 0x0 ; Output Parameters 00021385 00 | | .CONST 0x0 ; Input Parameters 00021386 exp_PREP_RUN.VAL(Sw_2): 00021386 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 0002138c 00 0a | | .CONST 0x000a ; Stack-delta 0002138e 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.VAL' 0002139b 00 | | .CONST 0x0 0002139c 07 | | .CONST 0x7 ; DIPROC address 0002139d 00 | | .CONST 0x0 ; Output Parameters 0002139e 01 | | .CONST 0x1 ; Input Parameters 0002139f 01 | | .CONST 0x1 ; In arg [2] 000213a0 exp_LOAD_WDR.VAL(Sw_8, Sw_1): 000213a0 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000213a6 00 12 | | .CONST 0x0012 ; Stack-delta 000213a8 0c 4c 4f 41 44 5f 57 44 | LOAD_WD| .TXT 12,'LOAD_WDR.VAL' 000213b5 00 | | .CONST 0x0 000213b6 07 | | .CONST 0x7 ; DIPROC address 000213b7 00 | | .CONST 0x0 ; Output Parameters 000213b8 02 | | .CONST 0x2 ; Input Parameters 000213b9 07 | | .CONST 0x7 ; In arg [8] 000213ba 00 | | .CONST 0x0 ; In arg [1] 000213bb 00 | | .PAD 0x0 000213bc exp_ALIGN_CSA.VAL(): 000213bc 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000213c2 00 08 | | .CONST 0x0008 ; Stack-delta 000213c4 0d 41 4c 49 47 4e 5f 43 | ALIGN_C| .TXT 13,'ALIGN_CSA.VAL' 000213d2 00 | | .CONST 0x0 000213d3 07 | | .CONST 0x7 ; DIPROC address 000213d4 00 | | .CONST 0x0 ; Output Parameters 000213d5 00 | | .CONST 0x0 ; Input Parameters 000213d6 53 45 54 5f 48 49 54 2e |SET_HIT.| .TXT 'SET_HIT.MEM ' 000213e2 53 45 54 5f 48 49 54 2e |SET_HIT.| .TXT 'SET_HIT.M32 ' 000213ee ; -------------------------------------------------------------------------------------- 000213ee ; OMSI PASCAL Function 000213ee ; <LVAR 0x00a 1(r)> 000213ee ; <LVAR 0x008 1(r)> 000213ee ; <LVAR -0x004 @ 4(r)> 000213ee ; -------------------------------------------------------------------------------------- 000213ee 4e 56 ff cc |NV | LINK.W A6,#0xffcc 000213f2 bf d5 | | CMPA.L (A5),A7 000213f4 62 06 |b | BHI 0x213fc 000213f6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000213fa 4e 76 |Nv | TRAPV 000213fc de fc 00 30 | 0 | ADDA.W #0x30,A7 00021400 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 00021404 45 ee ff fc |E | LEA.L (A6-0x4),A2 00021408 72 0c |r | MOVEQ.L #0x0c,D1 0002140a 55 4f |UO | SUBQ.L #0x2,A7 0002140c 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 00021412 4a 1f |J | TST.B (A7)+ 00021414 67 12 |g | BEQ 0x21428 00021416 9e c1 | | SUBA.W D1,A7 00021418 20 4f | O | MOVEA.L A7,A0 0002141a 43 fa ff ba |C | LEA.L 0x213d6,A1 0002141e 70 0a |p | MOVEQ.L #0x0a,D0 00021420 10 d9 | | MOVE.B (A1)+,(A0)+ 00021422 51 c8 ff fc |Q | DBF D0,0x21420 00021426 60 10 |` | BRA 0x21438 00021428 9e c1 | | SUBA.W D1,A7 0002142a 20 4f | O | MOVEA.L A7,A0 0002142c 43 fa ff b4 |C | LEA.L 0x213e2,A1 00021430 70 0a |p | MOVEQ.L #0x0a,D0 00021432 10 d9 | | MOVE.B (A1)+,(A0)+ 00021434 51 c8 ff fc |Q | DBF D0,0x21432 00021438 59 4f |YO | SUBQ.L #0x4,A7 0002143a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002143e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021442 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00021446 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002144c 50 4f |PO | ADDQ.L #0x8,A7 0002144e 48 52 |HR | PEA.L (A2) 00021450 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 00021456 de fc 00 14 | | ADDA.W #0x14,A7 0002145a 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 0002145e 2f 12 |/ | MOVE.L (A2),-(A7) 00021460 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021464 48 78 00 00 |Hx | PEA.L 0x0 00021468 48 78 00 00 |Hx | PEA.L 0x0 0002146c 4e b9 00 01 04 66 |N f | JSR ExpInputParam(exp : Pointer; ptr : Pointer; len : L) 00021472 de fc 00 10 | | ADDA.W #0x10,A7 00021476 42 17 |B | CLR.B (A7) 00021478 1f 2e 00 0a | . | MOVE.B (A6+0xa),-(A7) 0002147c 2f 12 |/ | MOVE.L (A2),-(A7) 0002147e 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 00021484 50 4f |PO | ADDQ.L #0x8,A7 00021486 48 52 |HR | PEA.L (A2) 00021488 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 0002148e 58 4f |XO | ADDQ.L #0x4,A7 00021490 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 00021494 4e 5e |N^ | UNLK A6 00021496 4e 75 |Nu | RTS 00021498 52 45 53 45 54 2e 4d 45 |RESET.ME| .TXT 'RESET.MEM ' 000214a2 52 45 53 45 54 2e 4d 33 |RESET.M3| .TXT 'RESET.M32 ' 000214ac ; -------------------------------------------------------------------------------------- 000214ac ; OMSI PASCAL Function 000214ac ; <LVAR 0x008 1(r)> 000214ac ; <LVAR -0x006 @ 4(r)> 000214ac ; -------------------------------------------------------------------------------------- 000214ac 4e 56 ff cc |NV | LINK.W A6,#0xffcc 000214b0 bf d5 | | CMPA.L (A5),A7 000214b2 62 06 |b | BHI 0x214ba 000214b4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000214b8 4e 76 |Nv | TRAPV 000214ba de fc 00 2e | . | ADDA.W #0x2e,A7 000214be 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 000214c2 45 ee ff fa |E | LEA.L (A6-0x6),A2 000214c6 72 0a |r | MOVEQ.L #0x0a,D1 000214c8 55 4f |UO | SUBQ.L #0x2,A7 000214ca 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 000214d0 4a 1f |J | TST.B (A7)+ 000214d2 67 12 |g | BEQ 0x214e6 000214d4 9e c1 | | SUBA.W D1,A7 000214d6 20 4f | O | MOVEA.L A7,A0 000214d8 43 fa ff be |C | LEA.L 0x21498,A1 000214dc 70 08 |p | MOVEQ.L #0x08,D0 000214de 10 d9 | | MOVE.B (A1)+,(A0)+ 000214e0 51 c8 ff fc |Q | DBF D0,0x214de 000214e4 60 10 |` | BRA 0x214f6 000214e6 9e c1 | | SUBA.W D1,A7 000214e8 20 4f | O | MOVEA.L A7,A0 000214ea 43 fa ff b6 |C | LEA.L 0x214a2,A1 000214ee 70 08 |p | MOVEQ.L #0x08,D0 000214f0 10 d9 | | MOVE.B (A1)+,(A0)+ 000214f2 51 c8 ff fc |Q | DBF D0,0x214f0 000214f6 59 4f |YO | SUBQ.L #0x4,A7 000214f8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000214fc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021500 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7) 00021504 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002150a 50 4f |PO | ADDQ.L #0x8,A7 0002150c 48 52 |HR | PEA.L (A2) 0002150e 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 00021514 de fc 00 12 | | ADDA.W #0x12,A7 00021518 42 27 |B' | CLR.B -(A7) 0002151a 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 0002151e 2f 12 |/ | MOVE.L (A2),-(A7) 00021520 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 00021526 50 4f |PO | ADDQ.L #0x8,A7 00021528 48 52 |HR | PEA.L (A2) 0002152a 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 00021530 58 4f |XO | ADDQ.L #0x4,A7 00021532 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 00021536 4e 5e |N^ | UNLK A6 00021538 4e 75 |Nu | RTS 0002153a 52 55 4e 5f 43 48 45 43 |RUN_CHEC| .TXT 'RUN_CHECK.MEM ' 00021548 52 55 4e 5f 43 48 45 43 |RUN_CHEC| .TXT 'RUN_CHECK.M32 ' 00021556 ; -------------------------------------------------------------------------------------- 00021556 ; OMSI PASCAL Function 00021556 ; <LVAR 0x008 1(r)> 00021556 ; <LVAR -0x006 @ 4(r)> 00021556 ; -------------------------------------------------------------------------------------- 00021556 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 0002155a bf d5 | | CMPA.L (A5),A7 0002155c 62 06 |b | BHI 0x21564 0002155e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021562 4e 76 |Nv | TRAPV 00021564 de fc 00 32 | 2 | ADDA.W #0x32,A7 00021568 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 0002156c 45 ee ff fa |E | LEA.L (A6-0x6),A2 00021570 72 0e |r | MOVEQ.L #0x0e,D1 00021572 55 4f |UO | SUBQ.L #0x2,A7 00021574 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 0002157a 4a 1f |J | TST.B (A7)+ 0002157c 67 12 |g | BEQ 0x21590 0002157e 9e c1 | | SUBA.W D1,A7 00021580 20 4f | O | MOVEA.L A7,A0 00021582 43 fa ff b6 |C | LEA.L 0x2153a,A1 00021586 70 0c |p | MOVEQ.L #0x0c,D0 00021588 10 d9 | | MOVE.B (A1)+,(A0)+ 0002158a 51 c8 ff fc |Q | DBF D0,0x21588 0002158e 60 10 |` | BRA 0x215a0 00021590 9e c1 | | SUBA.W D1,A7 00021592 20 4f | O | MOVEA.L A7,A0 00021594 43 fa ff b2 |C | LEA.L 0x21548,A1 00021598 70 0c |p | MOVEQ.L #0x0c,D0 0002159a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002159c 51 c8 ff fc |Q | DBF D0,0x2159a 000215a0 59 4f |YO | SUBQ.L #0x4,A7 000215a2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215a6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000215aa 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 000215ae 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000215b4 50 4f |PO | ADDQ.L #0x8,A7 000215b6 48 52 |HR | PEA.L (A2) 000215b8 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 000215be de fc 00 16 | | ADDA.W #0x16,A7 000215c2 42 27 |B' | CLR.B -(A7) 000215c4 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 000215c8 2f 12 |/ | MOVE.L (A2),-(A7) 000215ca 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 000215d0 50 4f |PO | ADDQ.L #0x8,A7 000215d2 48 52 |HR | PEA.L (A2) 000215d4 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 000215da 58 4f |XO | ADDQ.L #0x4,A7 000215dc 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 000215e0 4e 5e |N^ | UNLK A6 000215e2 4e 75 |Nu | RTS 000215e4 4c 4f 41 44 5f 43 4f 4e |LOAD_CON| .TXT 'LOAD_CONFIG.MEM ' 000215f4 4c 4f 41 44 5f 43 4f 4e |LOAD_CON| .TXT 'LOAD_CONFIG.M32 ' 00021604 ; -------------------------------------------------------------------------------------- 00021604 ; OMSI PASCAL Function 00021604 ; <LVAR 0x00e 1(r)> 00021604 ; <LVAR 0x00c 1(r)> 00021604 ; <LVAR 0x00a 1(r)> 00021604 ; <LVAR 0x008 1(r)> 00021604 ; <LVAR -0x004 @ 4(r)> 00021604 ; -------------------------------------------------------------------------------------- 00021604 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00021608 bf d5 | | CMPA.L (A5),A7 0002160a 62 06 |b | BHI 0x21612 0002160c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021610 4e 76 |Nv | TRAPV 00021612 de fc 00 34 | 4 | ADDA.W #0x34,A7 00021616 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 0002161a 45 ee ff fc |E | LEA.L (A6-0x4),A2 0002161e 72 10 |r | MOVEQ.L #0x10,D1 00021620 55 4f |UO | SUBQ.L #0x2,A7 00021622 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 00021628 4a 1f |J | TST.B (A7)+ 0002162a 67 12 |g | BEQ 0x2163e 0002162c 9e c1 | | SUBA.W D1,A7 0002162e 20 4f | O | MOVEA.L A7,A0 00021630 43 fa ff b2 |C | LEA.L 0x215e4,A1 00021634 70 0e |p | MOVEQ.L #0x0e,D0 00021636 10 d9 | | MOVE.B (A1)+,(A0)+ 00021638 51 c8 ff fc |Q | DBF D0,0x21636 0002163c 60 10 |` | BRA 0x2164e 0002163e 9e c1 | | SUBA.W D1,A7 00021640 20 4f | O | MOVEA.L A7,A0 00021642 43 fa ff b0 |C | LEA.L 0x215f4,A1 00021646 70 0e |p | MOVEQ.L #0x0e,D0 00021648 10 d9 | | MOVE.B (A1)+,(A0)+ 0002164a 51 c8 ff fc |Q | DBF D0,0x21648 0002164e 59 4f |YO | SUBQ.L #0x4,A7 00021650 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021654 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021658 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 0002165c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021662 50 4f |PO | ADDQ.L #0x8,A7 00021664 48 52 |HR | PEA.L (A2) 00021666 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 0002166c de fc 00 18 | | ADDA.W #0x18,A7 00021670 2f 12 |/ | MOVE.L (A2),-(A7) 00021672 1f 2e 00 0c | . | MOVE.B (A6+0xc),-(A7) 00021676 4e b9 00 01 04 6c |N l | JSR ExpInputFlag(exp : Pointer; val : Word) 0002167c 54 4f |TO | ADDQ.L #0x2,A7 0002167e 2e 92 |. | MOVE.L (A2),(A7) 00021680 1f 2e 00 0a | . | MOVE.B (A6+0xa),-(A7) 00021684 4e b9 00 01 04 6c |N l | JSR ExpInputFlag(exp : Pointer; val : Word) 0002168a 58 4f |XO | ADDQ.L #0x4,A7 0002168c 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00021690 2f 12 |/ | MOVE.L (A2),-(A7) 00021692 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021696 48 78 00 00 |Hx | PEA.L 0x0 0002169a 48 78 00 00 |Hx | PEA.L 0x0 0002169e 4e b9 00 01 04 66 |N f | JSR ExpInputParam(exp : Pointer; ptr : Pointer; len : L) 000216a4 de c1 | | ADDA.W D1,A7 000216a6 42 17 |B | CLR.B (A7) 000216a8 1f 2e 00 0e | . | MOVE.B (A6+0xe),-(A7) 000216ac 2f 12 |/ | MOVE.L (A2),-(A7) 000216ae 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 000216b4 50 4f |PO | ADDQ.L #0x8,A7 000216b6 48 52 |HR | PEA.L (A2) 000216b8 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 000216be 58 4f |XO | ADDQ.L #0x4,A7 000216c0 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 000216c4 4e 5e |N^ | UNLK A6 000216c6 4e 75 |Nu | RTS 000216c8 46 49 4c 4c 5f 4d 45 4d |FILL_MEM| .TXT 'FILL_MEMORY.MEM ' 000216d8 46 49 4c 4c 5f 4d 45 4d |FILL_MEM| .TXT 'FILL_MEMORY.M32 ' 000216e8 ; -------------------------------------------------------------------------------------- 000216e8 ; OMSI PASCAL Function 000216e8 ; <LVAR 0x01c 1(r)> 000216e8 ; <LVAR 0x01a 1(r)> 000216e8 ; <LVAR 0x019 1(r)> 000216e8 ; <LVAR 0x018 1(r)> 000216e8 ; <LVAR 0x014 4(r)> 000216e8 ; <LVAR 0x010 4(r)> 000216e8 ; <LVAR 0x00c 4(r)> 000216e8 ; <LVAR 0x008 4(r)> 000216e8 ; <LVAR -0x006 @ 4(r)> 000216e8 ; -------------------------------------------------------------------------------------- 000216e8 4e 56 ff be |NV | LINK.W A6,#0xffbe 000216ec bf d5 | | CMPA.L (A5),A7 000216ee 62 06 |b | BHI 0x216f6 000216f0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000216f4 4e 76 |Nv | TRAPV 000216f6 de fc 00 3c | < | ADDA.W #0x3c,A7 000216fa 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 000216fe 45 ee ff fa |E | LEA.L (A6-0x6),A2 00021702 47 f8 00 00 |G | LEA.L 0x0,A3 00021706 49 f9 00 01 04 66 |I f | LEA.L ExpInputParam(exp : Pointer; ptr : Pointer; len : L),A4 0002170c 72 10 |r | MOVEQ.L #0x10,D1 0002170e 55 4f |UO | SUBQ.L #0x2,A7 00021710 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 00021716 4a 1f |J | TST.B (A7)+ 00021718 67 12 |g | BEQ 0x2172c 0002171a 9e c1 | | SUBA.W D1,A7 0002171c 20 4f | O | MOVEA.L A7,A0 0002171e 43 fa ff a8 |C | LEA.L 0x216c8,A1 00021722 70 0e |p | MOVEQ.L #0x0e,D0 00021724 10 d9 | | MOVE.B (A1)+,(A0)+ 00021726 51 c8 ff fc |Q | DBF D0,0x21724 0002172a 60 10 |` | BRA 0x2173c 0002172c 9e c1 | | SUBA.W D1,A7 0002172e 20 4f | O | MOVEA.L A7,A0 00021730 43 fa ff a6 |C | LEA.L 0x216d8,A1 00021734 70 0e |p | MOVEQ.L #0x0e,D0 00021736 10 d9 | | MOVE.B (A1)+,(A0)+ 00021738 51 c8 ff fc |Q | DBF D0,0x21736 0002173c 59 4f |YO | SUBQ.L #0x4,A7 0002173e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021742 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021746 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 0002174a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021750 50 4f |PO | ADDQ.L #0x8,A7 00021752 48 52 |HR | PEA.L (A2) 00021754 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 0002175a de fc 00 18 | | ADDA.W #0x18,A7 0002175e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00021762 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021766 2f 12 |/ | MOVE.L (A2),-(A7) 00021768 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002176c 48 53 |HS | PEA.L (A3) 0002176e 48 78 00 07 |Hx | PEA.L 0x7 00021772 4e 94 |N | JSR (A4) 00021774 de fc 00 14 | | ADDA.W #0x14,A7 00021778 2e ae 00 14 |. | MOVE.L (A6+0x14),(A7) 0002177c 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00021780 2f 12 |/ | MOVE.L (A2),-(A7) 00021782 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021786 48 53 |HS | PEA.L (A3) 00021788 48 78 00 07 |Hx | PEA.L 0x7 0002178c 4e 94 |N | JSR (A4) 0002178e de fc 00 16 | | ADDA.W #0x16,A7 00021792 1e ae 00 18 | | MOVE.B (A6+0x18),(A7) 00021796 2f 12 |/ | MOVE.L (A2),-(A7) 00021798 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002179c 48 53 |HS | PEA.L (A3) 0002179e 48 53 |HS | PEA.L (A3) 000217a0 4e 94 |N | JSR (A4) 000217a2 de c1 | | ADDA.W D1,A7 000217a4 1e ae 00 19 | | MOVE.B (A6+0x19),(A7) 000217a8 1f 6e 00 1a 00 01 | n | MOVE.B (A6+0x1a),(A7+0x1) 000217ae 2f 12 |/ | MOVE.L (A2),-(A7) 000217b0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000217b4 48 53 |HS | PEA.L (A3) 000217b6 48 78 00 01 |Hx | PEA.L 0x1 000217ba 4e 94 |N | JSR (A4) 000217bc de c1 | | ADDA.W D1,A7 000217be 42 17 |B | CLR.B (A7) 000217c0 1f 2e 00 1c | . | MOVE.B (A6+0x1c),-(A7) 000217c4 2f 12 |/ | MOVE.L (A2),-(A7) 000217c6 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 000217cc 50 4f |PO | ADDQ.L #0x8,A7 000217ce 48 52 |HR | PEA.L (A2) 000217d0 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 000217d6 58 4f |XO | ADDQ.L #0x4,A7 000217d8 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 000217dc 4e 5e |N^ | UNLK A6 000217de 4e 75 |Nu | RTS 000217e0 43 4c 45 41 52 5f 54 41 |CLEAR_TA| .TXT 'CLEAR_TAGSTORE.MEM' 000217f2 43 4c 45 41 52 5f 54 41 |CLEAR_TA| .TXT 'CLEAR_TAGSTORE.M32' 00021804 ; -------------------------------------------------------------------------------------- 00021804 ; OMSI PASCAL Function 00021804 ; <LVAR 0x008 1(r)> 00021804 ; <LVAR -0x006 @ 4(r)> 00021804 ; -------------------------------------------------------------------------------------- 00021804 4e 56 ff cc |NV | LINK.W A6,#0xffcc 00021808 bf d5 | | CMPA.L (A5),A7 0002180a 62 06 |b | BHI 0x21812 0002180c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021810 4e 76 |Nv | TRAPV 00021812 de fc 00 2e | . | ADDA.W #0x2e,A7 00021816 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 0002181a 43 ee ff fa |C | LEA.L (A6-0x6),A1 0002181e 55 4f |UO | SUBQ.L #0x2,A7 00021820 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 00021826 4a 1f |J | TST.B (A7)+ 00021828 67 0e |g | BEQ 0x21838 0002182a 41 fa ff c6 |A | LEA.L 0x217f2,A0 0002182e 70 08 |p | MOVEQ.L #0x08,D0 00021830 3f 20 |? | MOVE.W -(A0),-(A7) 00021832 51 c8 ff fc |Q | DBF D0,0x21830 00021836 60 0c |` | BRA 0x21844 00021838 41 fa ff ca |A | LEA.L 0x21804,A0 0002183c 70 08 |p | MOVEQ.L #0x08,D0 0002183e 3f 20 |? | MOVE.W -(A0),-(A7) 00021840 51 c8 ff fc |Q | DBF D0,0x2183e 00021844 59 4f |YO | SUBQ.L #0x4,A7 00021846 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002184a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002184e 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00021852 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021858 50 4f |PO | ADDQ.L #0x8,A7 0002185a 48 51 |HQ | PEA.L (A1) 0002185c 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 00021862 de fc 00 1a | | ADDA.W #0x1a,A7 00021866 42 27 |B' | CLR.B -(A7) 00021868 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 0002186c 2f 11 |/ | MOVE.L (A1),-(A7) 0002186e 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 00021874 50 4f |PO | ADDQ.L #0x8,A7 00021876 48 51 |HQ | PEA.L (A1) 00021878 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 0002187e 58 4f |XO | ADDQ.L #0x4,A7 00021880 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021884 4e 5e |N^ | UNLK A6 00021886 4e 75 |Nu | RTS 00021888 43 4c 45 41 52 5f 50 41 |CLEAR_PA| .TXT 'CLEAR_PARITY_ERRORS.MEM ' 000218a0 43 4c 45 41 52 5f 50 41 |CLEAR_PA| .TXT 'CLEAR_PARITY_ERRORS.M32 ' 000218b8 ; -------------------------------------------------------------------------------------- 000218b8 ; OMSI PASCAL Function 000218b8 ; <LVAR 0x008 1(r)> 000218b8 ; <LVAR -0x006 @ 4(r)> 000218b8 ; -------------------------------------------------------------------------------------- 000218b8 4e 56 ff be |NV | LINK.W A6,#0xffbe 000218bc bf d5 | | CMPA.L (A5),A7 000218be 62 06 |b | BHI 0x218c6 000218c0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000218c4 4e 76 |Nv | TRAPV 000218c6 de fc 00 3c | < | ADDA.W #0x3c,A7 000218ca 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7) 000218ce 45 ee ff fa |E | LEA.L (A6-0x6),A2 000218d2 72 18 |r | MOVEQ.L #0x18,D1 000218d4 55 4f |UO | SUBQ.L #0x2,A7 000218d6 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 000218dc 4a 1f |J | TST.B (A7)+ 000218de 67 12 |g | BEQ 0x218f2 000218e0 9e c1 | | SUBA.W D1,A7 000218e2 20 4f | O | MOVEA.L A7,A0 000218e4 43 fa ff a2 |C | LEA.L 0x21888,A1 000218e8 70 16 |p | MOVEQ.L #0x16,D0 000218ea 10 d9 | | MOVE.B (A1)+,(A0)+ 000218ec 51 c8 ff fc |Q | DBF D0,0x218ea 000218f0 60 10 |` | BRA 0x21902 000218f2 9e c1 | | SUBA.W D1,A7 000218f4 20 4f | O | MOVEA.L A7,A0 000218f6 43 fa ff a8 |C | LEA.L 0x218a0,A1 000218fa 70 16 |p | MOVEQ.L #0x16,D0 000218fc 10 d9 | | MOVE.B (A1)+,(A0)+ 000218fe 51 c8 ff fc |Q | DBF D0,0x218fc 00021902 59 4f |YO | SUBQ.L #0x4,A7 00021904 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021908 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002190c 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00021910 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021916 50 4f |PO | ADDQ.L #0x8,A7 00021918 48 52 |HR | PEA.L (A2) 0002191a 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 00021920 de fc 00 20 | | ADDA.W #0x20,A7 00021924 42 27 |B' | CLR.B -(A7) 00021926 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 0002192a 2f 12 |/ | MOVE.L (A2),-(A7) 0002192c 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 00021932 50 4f |PO | ADDQ.L #0x8,A7 00021934 48 52 |HR | PEA.L (A2) 00021936 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 0002193c 58 4f |XO | ADDQ.L #0x4,A7 0002193e 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2 00021942 4e 5e |N^ | UNLK A6 00021944 4e 75 |Nu | RTS 00021946 43 4c 45 41 52 5f 48 49 |CLEAR_HI| .TXT 'CLEAR_HITS.MEM' 00021954 43 4c 45 41 52 5f 48 49 |CLEAR_HI| .TXT 'CLEAR_HITS.M32' 00021962 ; -------------------------------------------------------------------------------------- 00021962 ; OMSI PASCAL Function 00021962 ; <LVAR 0x008 1(r)> 00021962 ; <LVAR -0x006 @ 4(r)> 00021962 ; -------------------------------------------------------------------------------------- 00021962 4e 56 ff d0 |NV | LINK.W A6,#0xffd0 00021966 bf d5 | | CMPA.L (A5),A7 00021968 62 06 |b | BHI 0x21970 0002196a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002196e 4e 76 |Nv | TRAPV 00021970 de fc 00 2a | * | ADDA.W #0x2a,A7 00021974 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00021978 43 ee ff fa |C | LEA.L (A6-0x6),A1 0002197c 55 4f |UO | SUBQ.L #0x2,A7 0002197e 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool 00021984 4a 1f |J | TST.B (A7)+ 00021986 67 0e |g | BEQ 0x21996 00021988 41 fa ff ca |A | LEA.L 0x21954,A0 0002198c 70 06 |p | MOVEQ.L #0x06,D0 0002198e 3f 20 |? | MOVE.W -(A0),-(A7) 00021990 51 c8 ff fc |Q | DBF D0,0x2198e 00021994 60 0c |` | BRA 0x219a2 00021996 41 fa ff ca |A | LEA.L 0x21962,A0 0002199a 70 06 |p | MOVEQ.L #0x06,D0 0002199c 3f 20 |? | MOVE.W -(A0),-(A7) 0002199e 51 c8 ff fc |Q | DBF D0,0x2199c 000219a2 59 4f |YO | SUBQ.L #0x4,A7 000219a4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000219a8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000219ac 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000219b0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000219b6 50 4f |PO | ADDQ.L #0x8,A7 000219b8 48 51 |HQ | PEA.L (A1) 000219ba 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer) 000219c0 de fc 00 16 | | ADDA.W #0x16,A7 000219c4 42 27 |B' | CLR.B -(A7) 000219c6 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7) 000219ca 2f 11 |/ | MOVE.L (A1),-(A7) 000219cc 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer) 000219d2 50 4f |PO | ADDQ.L #0x8,A7 000219d4 48 51 |HQ | PEA.L (A1) 000219d6 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer) 000219dc 58 4f |XO | ADDQ.L #0x4,A7 000219de 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000219e2 4e 5e |N^ | UNLK A6 000219e4 4e 75 |Nu | RTS 000219e6 exp_RESET.IOC(): 000219e6 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 000219ec 00 08 | | .CONST 0x0008 ; Stack-delta 000219ee 09 52 45 53 45 54 2e 49 | RESET.I| .TXT 9,'RESET.IOC' 000219f8 00 | | .CONST 0x0 000219f9 04 | | .CONST 0x4 ; DIPROC address 000219fa 00 | | .CONST 0x0 ; Output Parameters 000219fb 00 | | .CONST 0x0 ; Input Parameters 000219fc exp_RUN_CHECK.IOC(): 000219fc 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021a02 00 08 | | .CONST 0x0008 ; Stack-delta 00021a04 0d 52 55 4e 5f 43 48 45 | RUN_CHE| .TXT 13,'RUN_CHECK.IOC' 00021a12 00 | | .CONST 0x0 00021a13 04 | | .CONST 0x4 ; DIPROC address 00021a14 00 | | .CONST 0x0 ; Output Parameters 00021a15 00 | | .CONST 0x0 ; Input Parameters 00021a16 exp_PREP_RUN.IOC(Sw_2): 00021a16 4e b9 00 01 05 68 |N h | JSR Run_Experiment() 00021a1c 00 0a | | .CONST 0x000a ; Stack-delta 00021a1e 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.IOC' 00021a2b 00 | | .CONST 0x0 00021a2c 04 | | .CONST 0x4 ; DIPROC address 00021a2d 00 | | .CONST 0x0 ; Output Parameters 00021a2e 01 | | .CONST 0x1 ; Input Parameters 00021a2f 01 | | .CONST 0x1 ; In arg [2] 00021a30 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00021a3e ; -------------------------------------------------------------------------------------- 00021a3e ; OMSI PASCAL Function 00021a3e ; <LVAR 0x008 1(r)> 00021a3e ; -------------------------------------------------------------------------------------- 00021a3e PROG_FAIL: 00021a3e 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00021a42 bf d5 | | CMPA.L (A5),A7 00021a44 62 06 |b | BHI 0x21a4c 00021a46 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021a4a 4e 76 |Nv | TRAPV 00021a4c de fc 00 2c | , | ADDA.W #0x2c,A7 00021a50 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021a54 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00021a58 70 06 |p | MOVEQ.L #0x06,D0 00021a5a 3f 20 |? | MOVE.W -(A0),-(A7) 00021a5c 51 c8 ff fc |Q | DBF D0,0x21a5a 00021a60 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00021a64 51 4f |QO | SUBQ.L #0x8,A7 00021a66 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00021a6a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021a6e 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00021a72 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021a78 58 4f |XO | ADDQ.L #0x4,A7 00021a7a 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00021a7e 48 80 |H | EXTB.W D0 00021a80 48 c0 |H | EXTW.L D0 00021a82 2f 00 |/ | MOVE.L D0,-(A7) 00021a84 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00021a8a 58 4f |XO | ADDQ.L #0x4,A7 00021a8c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021a92 50 4f |PO | ADDQ.L #0x8,A7 00021a94 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021a9a de fc 00 14 | | ADDA.W #0x14,A7 00021a9e 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00021aa2 4e 5e |N^ | UNLK A6 00021aa4 4e 75 |Nu | RTS 00021aa6 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00021ab4 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00021ac2 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00021ad0 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00021ae2 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00021afa ; -------------------------------------------------------------------------------------- 00021afa ; OMSI PASCAL Function 00021afa ; <LVAR 0x00e 1(r)> 00021afa ; <LVAR 0x00a 4(r)> 00021afa ; <LVAR 0x008 1(r)> 00021afa ; -------------------------------------------------------------------------------------- 00021afa EXP_FAIL: 00021afa 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00021afe bf d5 | | CMPA.L (A5),A7 00021b00 62 06 |b | BHI 0x21b08 00021b02 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021b06 4e 76 |Nv | TRAPV 00021b08 de fc 00 74 | t | ADDA.W #0x74,A7 00021b0c 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00021b10 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00021b16 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00021b1c 72 01 |r | MOVEQ.L #0x01,D1 00021b1e 74 0d |t | MOVEQ.L #0x0d,D2 00021b20 76 1e |v | MOVEQ.L #0x1e,D3 00021b22 78 12 |x | MOVEQ.L #0x12,D4 00021b24 7a 0e |z | MOVEQ.L #0x0e,D5 00021b26 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021b2c 41 fa ff b4 |A | LEA.L 0x21ae2,A0 00021b30 70 08 |p | MOVEQ.L #0x08,D0 00021b32 3f 20 |? | MOVE.W -(A0),-(A7) 00021b34 51 c8 ff fc |Q | DBF D0,0x21b32 00021b38 59 4f |YO | SUBQ.L #0x4,A7 00021b3a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021b3e 3f 01 |? | MOVE.W D1,-(A7) 00021b40 3f 04 |? | MOVE.W D4,-(A7) 00021b42 4e 93 |N | JSR (A3) 00021b44 50 4f |PO | ADDQ.L #0x8,A7 00021b46 4e 94 |N | JSR (A4) 00021b48 50 4f |PO | ADDQ.L #0x8,A7 00021b4a 20 4f | O | MOVEA.L A7,A0 00021b4c 43 fa ff 58 |C X | LEA.L 0x21aa6,A1 00021b50 70 0c |p | MOVEQ.L #0x0c,D0 00021b52 10 d9 | | MOVE.B (A1)+,(A0)+ 00021b54 51 c8 ff fc |Q | DBF D0,0x21b52 00021b58 51 4f |QO | SUBQ.L #0x8,A7 00021b5a 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021b5e 3f 01 |? | MOVE.W D1,-(A7) 00021b60 3f 02 |? | MOVE.W D2,-(A7) 00021b62 4e 93 |N | JSR (A3) 00021b64 54 4f |TO | ADDQ.L #0x2,A7 00021b66 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00021b6a 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00021b70 54 4f |TO | ADDQ.L #0x2,A7 00021b72 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021b78 50 4f |PO | ADDQ.L #0x8,A7 00021b7a 4e 94 |N | JSR (A4) 00021b7c de c4 | | ADDA.W D4,A7 00021b7e 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00021b82 b0 c1 | | CMPA.W D1,A0 00021b84 67 48 |gH | BEQ 0x21bce 00021b86 9e c5 | | SUBA.W D5,A7 00021b88 22 4f |"O | MOVEA.L A7,A1 00021b8a 45 fa ff 28 |E ( | LEA.L 0x21ab4,A2 00021b8e 70 0c |p | MOVEQ.L #0x0c,D0 00021b90 12 da | | MOVE.B (A2)+,(A1)+ 00021b92 51 c8 ff fc |Q | DBF D0,0x21b90 00021b96 9e c3 | | SUBA.W D3,A7 00021b98 22 4f |"O | MOVEA.L A7,A1 00021b9a 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00021b9e 70 1d |p | MOVEQ.L #0x1d,D0 00021ba0 12 d8 | | MOVE.B (A0)+,(A1)+ 00021ba2 51 c8 ff fc |Q | DBF D0,0x21ba0 00021ba6 51 4f |QO | SUBQ.L #0x8,A7 00021ba8 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00021bac 3f 01 |? | MOVE.W D1,-(A7) 00021bae 3f 02 |? | MOVE.W D2,-(A7) 00021bb0 4e 93 |N | JSR (A3) 00021bb2 58 4f |XO | ADDQ.L #0x4,A7 00021bb4 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021bb8 3f 01 |? | MOVE.W D1,-(A7) 00021bba 3f 03 |? | MOVE.W D3,-(A7) 00021bbc 4e 93 |N | JSR (A3) 00021bbe 50 4f |PO | ADDQ.L #0x8,A7 00021bc0 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021bc6 50 4f |PO | ADDQ.L #0x8,A7 00021bc8 4e 94 |N | JSR (A4) 00021bca de fc 00 30 | 0 | ADDA.W #0x30,A7 00021bce 9e c5 | | SUBA.W D5,A7 00021bd0 20 4f | O | MOVEA.L A7,A0 00021bd2 43 fa fe ee |C | LEA.L 0x21ac2,A1 00021bd6 70 0c |p | MOVEQ.L #0x0c,D0 00021bd8 10 d9 | | MOVE.B (A1)+,(A0)+ 00021bda 51 c8 ff fc |Q | DBF D0,0x21bd8 00021bde 51 4f |QO | SUBQ.L #0x8,A7 00021be0 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00021be4 3f 01 |? | MOVE.W D1,-(A7) 00021be6 3f 02 |? | MOVE.W D2,-(A7) 00021be8 4e 93 |N | JSR (A3) 00021bea 54 4f |TO | ADDQ.L #0x2,A7 00021bec 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00021bf0 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00021bf6 54 4f |TO | ADDQ.L #0x2,A7 00021bf8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00021bfe 50 4f |PO | ADDQ.L #0x8,A7 00021c00 4e 94 |N | JSR (A4) 00021c02 5d 4f |]O | SUBQ.L #0x6,A7 00021c04 20 4f | O | MOVEA.L A7,A0 00021c06 43 fa fe da |C | LEA.L 0x21ae2,A1 00021c0a 70 16 |p | MOVEQ.L #0x16,D0 00021c0c 10 d9 | | MOVE.B (A1)+,(A0)+ 00021c0e 51 c8 ff fc |Q | DBF D0,0x21c0c 00021c12 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00021c16 59 4f |YO | SUBQ.L #0x4,A7 00021c18 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00021c1c 3f 01 |? | MOVE.W D1,-(A7) 00021c1e 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00021c22 4e 93 |N | JSR (A3) 00021c24 50 4f |PO | ADDQ.L #0x8,A7 00021c26 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00021c2c de c3 | | ADDA.W D3,A7 00021c2e 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00021c32 4e 5e |N^ | UNLK A6 00021c34 4e 75 |Nu | RTS