|
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: 11264 (0x2c00)
Types: M200
Notes: @(#)CRASHLOAD,2.1,90/12/03,17:18:19, M200_PROGRAM
Names: »CRASHLOAD.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »CRASHLOAD.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »CRASHLOAD.M200«
└─ ⟦this⟧ »CRASHLOAD.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »CRASHLOAD.M200«
@ 20520
<LVAR 0x008 1(r)>
<LVAR -0x001 1(rw)>
<POP 20520-205c8 Body> Δ+6
<POP 20520-20536 Prologue> Σ0 ↓
<POP 20536-2053a RegCacheLoad> Σ0 ↓
<POP 2053a-2053c Naked> Σ0 ↓
<MI 2053a MOVEQ.L #0x0c,D7> {}
<POP 2053c-2054c Naked> Σ0 ↓ →0x205b6 ←0x205b6
<POP 2053c-2053e StackAdj> Δ-2 {[-2-]}
<MI 2053e MOVE.B D7,-(A7)> Δ-2 {[-2-]|[2, 'D7']}
<Call 0x20540 0x104c0> {[-2-]|[2, 'D7']}
HasBoard(diproc_addr: Byte) : Byte
<POP 20546-20548 StackAdj> Δ+2 {[-2-]}
<MI 20548 TST.B (A7)+> Δ+2 {}
<MI 2054a BEQ 0x205b6> {}
<POP 2054c-20558 Naked> Σ0 ↓ →0x205b6
<MI 2054c MOVE.B (A6+0x8),D0> {}
<MI 20550 EXTB.W D0> {}
<MI 20552 CMPI.W #0x0004,D0> {}
<MI 20556 BHI 0x205b6> {}
<POP 20558-20562 Naked> Σ0 →0x2056c →0x20576 →0x20598 →0x205a2 →0x205ac
<MI 20558 ADD.W D0,D0> {}
<MI 2055a SWITCH D0.W> {}
<POP 2056c-20576 Naked> Σ0 Δ-2 →0x205b4 ←0x20558
<MI 2056c MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']}
<Call 0x2056e 0x224b8> {[2, 'D7']}
<MI 20574 BRA 0x205b4> {[2, 'D7']}
<POP 20576-20582 Naked> Σ0 ↓ →0x20586 ←0x20558
<POP 20576-20578 StackAdj> Δ-2 {[-2-]}
<Call 0x20578 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 2057e TST.B (A7)+> Δ+2 {}
<MI 20580 BEQ 0x20586> {}
<POP 20582-20586 Naked> Σ0 →0x2058a
<MI 20582 CLR.B (A6-0x1)> {}
<MI 20584 BRA 0x2058a> {}
<POP 20586-2058a Naked> Σ0 ↓ ←0x20576
<MI 20586 MOVE.B #0xff,(A6-0x1)> {}
<POP 2058a-20598 Naked> Σ0 →0x205b6 ←0x20582
<MI 2058a MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 2058c MOVE.B (A6-0x1),-(A7)> Δ-2 {[2, 'D7']|[2, '(A6-0x1)']}
<Call 0x2058e 0x22358> {[2, 'D7']|[2, '(A6-0x1)']}
<POP 20594-20596 StackAdj> Δ+4 {}
<MI 20596 BRA 0x205b6> {}
<POP 20598-205a2 Naked> Σ0 Δ-2 →0x205b4 ←0x20558
<MI 20598 MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']}
<Call 0x2059a 0x22616> {[2, 'D7']}
<MI 205a0 BRA 0x205b4> {[2, 'D7']}
<POP 205a2-205ac Naked> Σ0 Δ-2 →0x205b4 ←0x20558
<MI 205a2 MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']}
<Call 0x205a4 0x2256c> {[2, 'D7']}
<MI 205aa BRA 0x205b4> {[2, 'D7']}
<POP 205ac-205b4 Naked> Σ0 Δ-2 ↓ ←0x20558
<MI 205ac MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']}
<Call 0x205ae 0x2241e> {[2, 'D7']}
<POP 205b4-205b6 Naked> Σ-2 Δ+2 ↓ ←0x2056c ←0x20598 ←0x205a2
<POP 205b4-205b6 StackAdj> Δ+2 {}
<POP 205b6-205c0 Naked> Σ0 ↓ →0x2053c ←0x2053c ←0x2054c ←0x2058a
<MI 205b6 ADDQ.B #0x1,D7> {}
<MI 205b8 CMPI.B #0x0f,D7> {}
<MI 205bc BLE 0x2053c> {}
<POP 205c0-205c8 Epilogue> Σ0
@ 205c8
<POP 205c8-2060a Body>
<POP 205c8-205da Prologue> Σ0 ↓
<POP 205da-20606 Naked> Σ0 ↓
<Call 0x205da 0x22200> {}
exp_FREEZE_WORLD.FIU()
<Call 0x205e0 0x226ce> {}
exp_MF.IOC()
<Call 0x205e6 0x2232c> {}
exp_MF.VAL()
<Call 0x205ec 0x222c0> {}
exp_MF.TYP()
<Call 0x205f2 0x22240> {}
exp_RESET.SEQ()
<MI 205f8 CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x205fa 0x20520> {[#0]}
<POP 205fe-20600 StackAdj> Δ+2 {}
<Call 0x20600 0x221d2> {}
exp_MF.FIU()
<POP 20606-2060a Epilogue> Σ0
@ 2060a
<POP 2060a-206b4 Body>
<POP 2060a-20620 Prologue> Σ0 ↓
<POP 20620-20628 RegCacheLoad> Σ0 ↓
<POP 20628-206ac Naked> Σ0 ↓
<Call 0x20628 0x2221e> {}
exp_CLEAR_EXCEPTIONS.FIU()
<Call 0x2062e 0x222d4> {}
exp_LOAD_BENIGN_UWORD.TYP()
<Const 0x20634 0x1.2> Δ-2 {[#1]}
<Call 0x20638 0x20520> {[#1]}
<POP 2063a-2063c StackAdj> Δ+2 {}
<Call 0x2063c 0x221e6> {}
exp_INIT_MRU.FIU()
<Const 0x20642 0x2.2> Δ-2 {[#2]}
<Call 0x20646 0x20520> {[#2]}
<POP 20648-2064a StackAdj> Δ+2 {}
<Call 0x2064a 0x105b0> {}
FifoInit(void)
<Const 0x20650 0x145.2> Δ-2 {[#325]}
<Call 0x20652 0x222a6> {[#325]}
exp_PREP_RUN.TYP(Sw_2)
<POP 20658-20659 StackAdj> Δ+2 {}
<Const 0x20659 0x145.2> Δ-2 {[#325]}
<Call 0x2065a 0x22312> {[#325]}
exp_PREP_RUN.VAL(Sw_2)
<POP 20660-20661 StackAdj> Δ+2 {}
<Const 0x20661 0x145.2> Δ-2 {[#325]}
<Call 0x20662 0x226b4> {[#325]}
exp_PREP_RUN.IOC(Sw_2)
<POP 20668-20669 StackAdj> Δ+2 {}
<Const 0x20669 0x145.2> Δ-2 {[#325]}
<Call 0x2066a 0x22270> {[#325]}
exp_PREP_RUN.SEQ(Sw_2)
<POP 20670-20671 StackAdj> Δ+2 {}
<Const 0x20671 0x145.2> Δ-2 {[#325]}
<Call 0x20672 0x221b8> {[#325]}
exp_PREP_RUN.FIU(Sw_2)
<POP 20678-20679 StackAdj> Δ+2 {}
<Const 0x20679 0x3.2> Δ-2 {[#3]}
<Call 0x2067c 0x20520> {[#3]}
<POP 2067e-20680 StackAdj> Δ+2 {}
<Call 0x20680 0x22200> {}
exp_FREEZE_WORLD.FIU()
<Call 0x20686 0x2228a> {}
exp_RUN_NORMAL.TYP()
<Call 0x2068c 0x222f6> {}
exp_RUN_NORMAL.VAL()
<Call 0x20692 0x22256> {}
exp_RUN_CHECK.SEQ()
<Call 0x20698 0x2269a> {}
exp_RUN_CHECK.IOC()
<Const 0x2069e 0x4.2> Δ-2 {[#4]}
<Call 0x206a2 0x20520> {[#4]}
<POP 206a4-206a6 StackAdj> Δ+2 {}
<Call 0x206a6 0x2219c> {}
exp_RUN_NORMAL.FIU()
<POP 206ac-206b4 Epilogue> Σ0
@ 206b4
<POP 206b4-206ea Body>
<POP 206b4-206ca Prologue> Σ0 ↓
<POP 206ca-206d0 RegCacheLoad> Σ0 ↓
<POP 206d0-206d4 Naked> Σ0 ↓ →0x206e2
<MI 206d0 TST.B 0x2294e> {}
<MI 206d2 BEQ 0x206e2> {}
<POP 206d4-206e2 Naked> Σ0 ↓
<Const 0x206d4 0x2.2> Δ-2 {[#2]}
<Const 0x206d8 0x2294e.4> Δ-4 {[#2]|[##141646]}
<Call 0x206da 0x10428> {[#2]|[##141646]}
FSCALL_10428
<POP 206e0-206e2 StackAdj> Δ+6 {}
<POP 206e2-206ea Epilogue> Σ0 ←0x206d0
@ 206ea
<POP 206ea-2075e Body>
<POP 206ea-20700 Prologue> Σ0 ↓
<POP 20700-20706 RegCacheLoad> Σ0 ↓
<POP 20706-20718 Naked> Σ0 ↓ →0x2074e
<Const 0x20706 0x2294e.4> Δ-4 {[##141646]}
<Call 0x20708 0x10408> {[##141646]}
FSCALL_10408
<POP 2070e-20710 StackAdj> Δ+4 {}
<MI 20710 TST.B 0x2294f> {}
<MI 20716 BEQ 0x2074e> {}
<POP 20718-2074e Naked> Σ0 ↓
<Blob 0x20718 [22] @> Δ-22 {[«22""»]}
<Const 0x2072a 0xe.2> Δ-2 {[«22""»]|[#14]}
<POP 2072e-20730 StackAdj> Δ-4 {[«22""»]|[#14]|[-4-]}
<Lit 0x20730 21> {[«22""»]|[#14]|[$$Read past end of tape]}
<Call 0x20744 0x103b8> {[«22""»]|[#14]|[$$Read past end of tape]}
PopProgram(status : Byte; msg : String)
<POP 2074a-2074e StackAdj> Δ+28 {}
<POP 2074e-20752 Naked> Σ0 ↓ →0x20756 ←0x20706
<MI 2074e TST.B 0x2294e> {}
<MI 20750 BEQ 0x20756> {}
<POP 20752-20756 Naked> Σ0 ↓
<Call 0x20752 0x206b4> {}
<POP 20756-2075e Epilogue> Σ0 ←0x2074e
@ 2075e
<LVAR 0x016 1(r)>
<LVAR 0x012 4(r)>
<LVAR 0x010 2(r)>
<LVAR 0x00c 1(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 2(w)>
<LVAR -0x006 2(w)>
<LVAR -0x00c 2(w)>
<LVAR -0x010 @>
<POP 2075e-207c8 Body>
<POP 2075e-20774 Prologue> Σ0 ↓
<POP 20774-20776 RegCacheLoad> Σ0 ↓
<POP 20776-207b0 Naked> Σ0 ↓ →0x207c0
<MI 20776 MOVE.W #0x3,(A6-0xc)> {}
<MI 2077c MOVE.W 0x228f8,D0> {}
<MI 20782 ASL.W #0x8,D0> {}
<MI 20784 MOVE.B (A6+0x16),D1> {}
<MI 20788 EXTB.W D1> {}
<MI 2078a ADD.W D0,D1> {}
<MI 2078c MOVE.W D1,(A6-0x6)> {}
<MI 20790 MOVE.W (A6+0x10),(A6-0x4)> {}
<Pointer.fp 0x20796 <LVAR -0x010 @>> Δ-4 {[@@-16]}
<MI 2079a MOVE.L (A6+0x12),-(A7)> Δ-4 {[@@-16]|[4, '(A6+0x12)']}
<Const 0x2079e 0x1.2> Δ-2 {[@@-16]|[4, '(A6+0x12)']|[#1]}
<Call 0x207a0 0x10204> {[@@-16]|[4, '(A6+0x12)']|[#1]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 207a6-207aa StackAdj> Δ+10 {}
<MI 207aa TST.B (A6+0xc)> {}
<MI 207ae BEQ 0x207c0> {}
<POP 207b0-207c0 Naked> Σ0 ↓
<Const 0x207b0 0x1.2> Δ-2 {[#1]}
<MI 207b2 MOVEA.L (A6+0x8),A0> {[#1]}
<MI 207b6 PEA.L (A0)> Δ-4 {[#1]|[4, '^(A0)']}
<Call 0x207b8 0x10206> {[#1]|[4, '^(A0)']}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 207be-207c0 StackAdj> Δ+6 {}
<POP 207c0-207c8 Epilogue> Σ0 ←0x20776
@ 207c8
<LVAR 0x008 1(rw)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x00c 2(r)>
<LVAR -0x018 @>
<POP 207c8-20826 Body>
<POP 207c8-207de Prologue> Σ0 ↓
<POP 207de-20800 Naked> Σ0 ↓ →0x2080c
<MI 207de CLR.B -(A7)> Δ-2 {[#0]}
<MI 207e0 LEA.L (A6-0x18),A0> {[#0]}
<MI 207e4 MOVE.L A0,-(A7)> Δ-4 {[#0]|[4, 'A0']}
<Const 0x207e6 0x0.4> Δ-4 {[#0]|[4, 'A0']|[##0]}
<Const 0x207ea 0x1.2> Δ-2 {[#0]|[4, 'A0']|[##0]|[#1]}
<Pointer.fp 0x207ee <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[4, 'A0']|[##0]|[#1]|[@@-4]}
<Call 0x207f2 0x2075e> {[#0]|[4, 'A0']|[##0]|[#1]|[@@-4]}
<POP 207f6-207fa StackAdj> Δ+16 {}
<MI 207fa TST.B (A6-0x4)> {}
<MI 207fe BNE 0x2080c> {}
<POP 20800-2080c Naked> Σ0 ↓
<Const 0x20800 0xc.4> Δ-4 {[##12]}
<Call 0x20804 0x10220> {[##12]}
KC10_Panic(code : Long)
<POP 2080a-2080c StackAdj> Δ+4 {}
<POP 2080c-2081a Naked> Σ0 ↓ →0x2081e ←0x207de
<MI 2080c CLR.B (A6+0x8)> {}
<MI 20810 MOVE.W (A6-0xc),D0> {}
<MI 20814 ANDI.W #0x0008,D0> {}
<MI 20818 BEQ 0x2081e> {}
<POP 2081a-2081e Naked> Σ0 ↓
<MI 2081a ADDQ.B #0x1,(A6+0x8)> {}
<POP 2081e-20826 Epilogue> Σ0 ←0x2080c
@ 20826
<LVAR 0x008 4(r)>
<LVAR -0x058 @>
<POP 20826-208f6 Body>
<POP 20826-2083c Prologue> Σ0 ↓
<POP 2083c-20846 RegCacheLoad> Σ0 ↓
<POP 20846-20860 Naked> Σ0 ↓
<MI 20846 LEA.L (A6-0x58),A0> {}
<MI 2084a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x2084c 0x50.2> Δ-2 {[4, 'A0']|[#80]}
<Call 0x20850 0x10418> {[4, 'A0']|[#80]}
FSCALL_10418
<POP 20856-20858 StackAdj> Δ+6 {}
<Call 0x20858 0x206ea> {}
<MI 2085c MOVEQ.L #0x01,D6> {}
<MI 2085e MOVEQ.L #0x01,D7> {}
<POP 20860-2088c Naked> Σ0 ↓ →0x20860 ←0x20860
<MI 20860 LEA.L 0x228e8,A0> {}
<MI 20862 LEA.L (A0+D6.L),A0> {}
<MI 20866 MOVE.L D7,D0> {}
<MI 20868 ASL.L #0x1,D0> {}
<MI 2086a MOVE.W (A6+D0.L-#0x5a),D1> {}
<MI 2086e LSR.W #0x8,D1> {}
<MI 20870 MOVE.B D1,(A0+0x4067)> {}
<MI 20874 MOVE.W (A6+D0.L-#0x5a),D0> {}
<MI 20878 ANDI.W #0x00ff,D0> {}
<MI 2087c MOVE.B D0,(A0+0x4068)> {}
<MI 20880 ADDQ.L #0x2,D6> {}
<MI 20882 ADDQ.L #0x1,D7> {}
<MI 20884 CMPI.L #0x00000028,D7> {}
<MI 2088a BLE 0x20860> {}
<POP 2088c-2088e Naked> Σ0 ↓
<MI 2088c MOVEQ.L #0x01,D7> {}
<POP 2088e-2089e Naked> Σ0 ↓ →0x208e8 ←0x208e8
<MI 2088e LEA.L 0x228e8,A0> {}
<MI 20890 LEA.L (A0+D7.L),A0> {}
<MI 20894 MOVE.B (A6+D7.L+#0x7),D0> {}
<MI 20898 CMP.B (A0+0x4067),D0> {}
<MI 2089c BEQ 0x208e8> {}
<POP 2089e-208e8 Naked> Σ0 ↓
<Blob 0x2089e [22] @> Δ-22 {[«22""»]}
<MI 208aa MOVE.L (A6+0x8),-(A7)> Δ-4 {[«22""»]|[4, '(A6+0x8)']}
<Const 0x208ae 0xe.2> Δ-2 {[«22""»]|[4, '(A6+0x8)']|[#14]}
<POP 208b2-208b4 StackAdj> Δ-8 {[«22""»]|[4, '(A6+0x8)']|[#14]|[-8-]}
<Lit 0x208b4 22> {[«22""»]|[4, '(A6+0x8)']|[#14]|[-4-]|[$$Error in tape label :_]}
<POP 208c4-208c6 StackAdj> Δ-4 {[«22""»]|[4, '(A6+0x8)']|[#14]|[-4-]|[$$Error in tape label :_]|[-4-]}
<Lit 0x208c6> {[«22""»]|[4, '(A6+0x8)']|[#14]|[-4-]|[$$Error in tape label :_]|[$$…]}
<Pointer.sp 0x208c6 14> Δ-4
<Const 0x208ca 0x1.2> Δ-2
<Const 0x208cc 0x4.2> Δ-2
<Call 0x208ce 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 208d4-208d6 StackAdj> Δ+8
<Call 0x208d6 0x102d0> {[«22""»]|[4, '(A6+0x8)']|[#14]|[-4-]|[$$Error in tape label :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 208dc-208de StackAdj> Δ+8 {[«22""»]|[4, '(A6+0x8)']|[#14]|[-4-]}
<Call 0x208de 0x103b8> {[«22""»]|[4, '(A6+0x8)']|[#14]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 208e4-208e8 StackAdj> Δ+32 {}
<POP 208e8-208ee Naked> Σ0 ↓ →0x2088e ←0x2088e
<MI 208e8 ADDQ.L #0x1,D7> {}
<MI 208ea CMP.L #0x04,D7> {}
<MI 208ec BLE 0x2088e> {}
<POP 208ee-208f6 Epilogue> Σ0
@ 208f6
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x00c @ 4(r)>
<POP 208f6-2097c Body> Δ-4
<POP 208f6-2090c Prologue> Σ0 ↓
<POP 2090c-20910 RegCacheLoad> Σ0 ↓
<POP 20910-2092a Naked> Σ0 Δ-8 ↓
<Pointer.fp 0x20910 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x20912 0x102b8> {[@@-12]}
NewString(VAR a : String)
<POP 20918-2091a StackAdj> Δ+4 {}
<MI 2091a MOVE.L (A6+0xc),D6> {}
<MI 2091e SUBQ.L #0x1,D6> {}
<MI 20920 MOVEA.L (A6-0xc),A0> {}
<MI 20922 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20924 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6+0x8)']}
<MI 20928 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, '(A6+0x8)']}
<POP 2092a-2092e Naked> Σ-8 ↓ →0x2094a ←0x2092e
<MI 2092a CMP.L (A7),D7> {[-8-]}
<MI 2092c BGT 0x2094a> {[-8-]}
<POP 2092e-2094a Naked> Σ-8 ↓ →0x2092a
<MI 2092e MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 20932 MOVE.L D7,D0> {[-8-]}
<MI 20934 ADD.L D6,D0> {[-8-]}
<MI 20936 LEA.L 0x228e8,A1> {[-8-]}
<MI 2093c LEA.L (A1+D0.L),A1> {[-8-]}
<MI 20940 MOVE.B (A1+0x4067),(A0+D7.L+#0x1)> {[-8-]}
<MI 20946 ADDQ.L #0x1,D7> {[-8-]}
<MI 20948 BVC 0x2092a> {[-8-]}
<POP 2094a-20950 Naked> Σ-8 Δ+4 ↓ ←0x2092a
<POP 2094a-2094c StackAdj> Δ+4 {[-4-]}
<MI 2094c MOVE.L (A6+0x8),D7> {[-4-]}
<POP 20950-20958 Naked> Σ-4 ↓ →0x2096e ←0x2096a
<MI 20950 CMPI.L #0x00000001,D7> {[-4-]}
<MI 20956 BLT 0x2096e> {[-4-]}
<POP 20958-20964 Naked> Σ-4 ↓ →0x2096a
<MI 20958 MOVEA.L (A7),A0> {[-4-]}
<MI 2095a MOVE.B (A0+D7.L+#0x1),D0> {[-4-]}
<MI 2095e CMPI.B #0x20,D0> {[-4-]}
<MI 20962 BEQ 0x2096a> {[-4-]}
<POP 20964-2096a Naked> Σ-4 Δ+4 →0x20970
<MI 20964 MOVE.W D7,(A0)> {[-4-]}
<POP 20966-20968 StackAdj> Δ+4 {}
<MI 20968 BRA 0x20970> {}
<POP 2096a-2096e Naked> Σ-4 ↓ →0x20950 ←0x20958
<MI 2096a SUBQ.L #0x1,D7> {[-4-]}
<MI 2096c BVC 0x20950> {[-4-]}
<POP 2096e-20970 Naked> Σ-4 Δ+4 ↓ ←0x20950
<POP 2096e-20970 StackAdj> Δ+4 {}
<POP 20970-20974 Naked> Σ0 ↓ ←0x20964
<MI 20970 MOVE.L (A6-0xc),(A6+0x10)> {}
<POP 20974-2097c Epilogue> Σ0
@ 2097c
<LVAR 0x010 2(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2097c-209d6 Body>
<POP 2097c-20992 Prologue> Σ0 ↓
<POP 20992-209a4 Naked> Σ0 Δ-4 ↓
<MI 20992 MOVEQ.L #0x00,D7> {}
<MI 20994 MOVE.L (A6+0xc),D0> {}
<MI 20998 ADD.L (A6+0x8),D0> {}
<MI 2099c SUBQ.L #0x1,D0> {}
<MI 2099e MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 209a0 MOVE.L (A6+0xc),D6> {[4, 'D0']}
<POP 209a4-209a8 Naked> Σ-4 ↓ →0x209c8 ←0x209a8
<MI 209a4 CMP.L (A7),D6> {[-4-]}
<MI 209a6 BGT 0x209c8> {[-4-]}
<POP 209a8-209c8 Naked> Σ-4 ↓ →0x209a4
<MI 209a8 MULU.W #0xa,D7> {[-4-]}
<MI 209ac LEA.L 0x228e8,A0> {[-4-]}
<MI 209b2 LEA.L (A0+D6.L),A0> {[-4-]}
<MI 209b6 CLR.L D0> {[-4-]}
<MI 209b8 MOVE.B (A0+0x4067),D0> {[-4-]}
<MI 209bc SUBI.W #0x0030,D0> {[-4-]}
<MI 209c0 EXTW.L D0> {[-4-]}
<MI 209c2 ADD.L D0,D7> {[-4-]}
<MI 209c4 ADDQ.L #0x1,D6> {[-4-]}
<MI 209c6 BVC 0x209a4> {[-4-]}
<POP 209c8-209ce Naked> Σ-4 Δ+4 ↓ ←0x209a4
<POP 209c8-209ca StackAdj> Δ+4 {}
<MI 209ca MOVE.W D7,(A6+0x10)> {}
<POP 209ce-209d6 Epilogue> Σ0
@ 209d6
<POP 209d6-20b2c Body> Δ+8
<POP 209d6-209ec Prologue> Σ0 ↓
<POP 209ec-20a00 RegCacheLoad> Σ0 ↓
<POP 20a00-20a32 Naked> Σ0 ↓ →0x20a66
<POP 20a00-20a02 StackAdj> Δ-2 {[-2-]}
<Call 0x20a02 0x207c8> {[-2-]}
<MI 20a04 MOVE.B (A7)+,0x228fa> Δ+2 {}
<MI 20a06 NEG.B 0x228fa> {}
<MI 20a08 ADDQ.B #0x1,0x228fa> {}
<Const 0x20a0a 0x7.2> Δ-2 {[#7]}
<Const 0x20a0e 0x2294e.4> Δ-4 {[#7]|[##141646]}
<Call 0x20a14 0x10414> {[#7]|[##141646]}
FSCALL_10414
<POP 20a1a-20a1c StackAdj> Δ+6 {}
<Call 0x20a1c 0x206b4> {}
<Blob 0x20a20 [4] @> Δ-4 {[«4""»]}
<Call 0x20a24 0x20826> {[«4""»]}
<POP 20a28-20a2a StackAdj> Δ+2 {[-2-]}
<Call 0x20a2a 0x207c8> {[-2-]}
<MI 20a2c MOVE.B 0x228fa,D0> {[-2-]}
<MI 20a2e CMP.B (A7)+,D0> Δ+2 {}
<MI 20a30 BNE 0x20a66> {}
<POP 20a32-20a66 Naked> Σ0 ↓
<Blob 0x20a32 [26] @> Δ-26 {[«26""»]}
<POP 20a44-20a46 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x20a46 25> {[«26""»]|[$$Tape density just changed]}
<Call 0x20a54 0x103e0> {[«26""»]|[$$Tape density just changed]}
WriteConsoleStringCrLf(str : String)
<POP 20a5a-20a5e StackAdj> Δ+28 {[-2-]}
<Call 0x20a5e 0x207c8> {[-2-]}
<MI 20a60 MOVE.B (A7)+,0x228fa> Δ+2 {}
<MI 20a62 NEG.B 0x228fa> {}
<MI 20a64 ADDQ.B #0x1,0x228fa> {}
<POP 20a66-20a9a Naked> Σ0 ↓ →0x20aa4 ←0x20a00
<Blob 0x20a66 [4] @> Δ-4 {[«4""»]}
<Blob 0x20a6a [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x20a6e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x20a72 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 20a76-20a78 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x20a78 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Tape density is_]}
<Call 0x20a86 0x103d8> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[$$Tape density is_]}
WriteConsoleString(str : String)
<POP 20a8c-20a90 StackAdj> Δ+18 {[-2-]}
<Call 0x20a90 0x207c8> {[-2-]}
<MI 20a92 MOVE.B (A7)+,0x228fa> Δ+2 {}
<MI 20a94 NEG.B 0x228fa> {}
<MI 20a96 ADDQ.B #0x1,0x228fa> {}
<MI 20a98 BEQ 0x20aa4> {}
<POP 20a9a-20aa4 Naked> Σ0 Δ-8 →0x20aac
<Blob 0x20a9a [4] @> Δ-4 {[«4""»]}
<Blob 0x20a9e [4] @> Δ-4 {[«4""»]|[«4""»]}
<MI 20aa2 BRA 0x20aac> {[«4""»]|[«4""»]}
<POP 20aa4-20aac Naked> Σ0 Δ-8 ↓ ←0x20a66
<Blob 0x20aa4 [4] @> Δ-4 {[«4""»]}
<Blob 0x20aa8 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 20aac-20b24 Naked> Σ-8 Δ+8 ↓ ←0x20a9a
<POP 20aac-20aae StackAdj> Δ-4 {[-12-]}
<Lit 0x20aae> {[-8-]|[$$…]}
<Pointer.sp 0x20aae 4> Δ-4
<Const 0x20ab2 0x1.2> Δ-2
<Const 0x20ab4 0x8.2> Δ-2
<Call 0x20ab8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20aba-20abc StackAdj> Δ+8
<Call 0x20abc 0x103d8> {[-8-]|[$$…]}
WriteConsoleString(str : String)
<POP 20ac2-20ac6 StackAdj> Δ+12 {}
<Blob 0x20ac6 [14] @> Δ-14 {[«14""»]}
<POP 20ad2-20ad4 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20ad4 14> {[«14""»]|[-4-]|[$$, Volume Id -_]}
<POP 20ade-20ae0 StackAdj> Δ-4 {[«14""»]|[-4-]|[$$, Volume Id -_]|[-4-]}
<Const 0x20ae0 0x5.4> Δ-4 {[«14""»]|[-4-]|[$$, Volume Id -_]|[-4-]|[##5]}
<Const 0x20ae4 0x6.4> Δ-4 {[«14""»]|[-4-]|[$$, Volume Id -_]|[-4-]|[##5]|[##6]}
<Call 0x20ae8 0x208f6> {[«14""»]|[-4-]|[$$, Volume Id -_]|[-4-]|[##5]|[##6]}
<POP 20aec-20aee StackAdj> Δ+8 {[«14""»]|[-4-]|[$$, Volume Id -_]|[-4-]}
<Call 0x20aee 0x102d0> {[«14""»]|[-4-]|[$$, Volume Id -_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20af4-20af6 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20af6 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20afc-20afe StackAdj> Δ+14 {[-4-]}
<POP 20afe-20aff StackAdj> Δ+4 {}
<Blob 0x20aff [4] @> Δ-4 {[«4""»]}
<Call 0x20b02 0x20826> {[«4""»]}
<POP 20b06-20b07 StackAdj> Δ+4 {}
<Blob 0x20b07 [4] @> Δ-4 {[«4""»]}
<Call 0x20b0a 0x20826> {[«4""»]}
<Const 0x20b0e 0x5.4> Δ-4 {[«4""»]|[##5]}
<Const 0x20b12 0x37.4> Δ-4 {[«4""»]|[##5]|[##55]}
<Call 0x20b16 0x208f6> {[«4""»]|[##5]|[##55]}
<POP 20b1a-20b1c StackAdj> Δ+8 {[«4""»]}
<Call 0x20b1c 0x103e0> {[«4""»]}
WriteConsoleStringCrLf(str : String)
<POP 20b22-20b24 StackAdj> Δ+4 {}
<POP 20b24-20b2c Epilogue> Σ0
@ 20b2c
<POP 20b2c-20bd0 Body>
<POP 20b2c-20b42 Prologue> Σ0 ↓
<POP 20b42-20b4e RegCacheLoad> Σ0 ↓
<POP 20b4e-20b60 Naked> Σ0 ↓ →0x20b90
<Const 0x20b4e 0x2294e.4> Δ-4 {[##141646]}
<Call 0x20b50 0x10408> {[##141646]}
FSCALL_10408
<POP 20b56-20b58 StackAdj> Δ+4 {}
<MI 20b58 TST.B 0x2294f> {}
<MI 20b5e BEQ 0x20b90> {}
<POP 20b60-20b90 Naked> Σ0 ↓
<Blob 0x20b60 [22] @> Δ-22 {[«22""»]}
<Const 0x20b72 0xe.2> Δ-2 {[«22""»]|[#14]}
<POP 20b74-20b76 StackAdj> Δ-4 {[«22""»]|[#14]|[-4-]}
<Lit 0x20b76 21> {[«22""»]|[#14]|[$$Read past end of tape]}
<Call 0x20b88 0x103b8> {[«22""»]|[#14]|[$$Read past end of tape]}
PopProgram(status : Byte; msg : String)
<POP 20b8e-20b90 StackAdj> Δ+28 {}
<POP 20b90-20b98 Naked> Σ0 ↓ →0x20bc8 ←0x20b4e
<MI 20b90 MOVE.B 0x2294e,D0> {}
<MI 20b92 CMPI.B #0x06,D0> {}
<MI 20b96 BEQ 0x20bc8> {}
<POP 20b98-20bc8 Naked> Σ0 ↓
<Blob 0x20b98 [28] @> Δ-28 {[«28""»]}
<Const 0x20ba8 0xe.2> Δ-2 {[«28""»]|[#14]}
<POP 20baa-20bac StackAdj> Δ-4 {[«28""»]|[#14]|[-4-]}
<Lit 0x20bac 27> {[«28""»]|[#14]|[$$EOF expected, but not found]}
<Call 0x20bbe 0x103b8> {[«28""»]|[#14]|[$$EOF expected, but not found]}
PopProgram(status : Byte; msg : String)
<POP 20bc4-20bc8 StackAdj> Δ+34 {}
<POP 20bc8-20bd0 Epilogue> Σ0 ←0x20b90
@ 20bd0
<POP 20bd0-20c04 Body>
<POP 20bd0-20be6 Prologue> Σ0 ↓
<POP 20be6-20bea RegCacheLoad> Σ0 ↓
<POP 20bea-20bfc Naked> Σ0 ↓
<MI 20bea MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x20bec 0x2.2> Δ-2 {[4, 'A0']|[#2]}
<Call 0x20bf0 0x10418> {[4, 'A0']|[#2]}
FSCALL_10418
<POP 20bf6-20bf8 StackAdj> Δ+6 {}
<Call 0x20bf8 0x20b2c> {}
<POP 20bfc-20c04 Epilogue> Σ0
@ 20c04
<POP 20c04-20cce Body>
<POP 20c04-20c1a Prologue> Σ0 ↓
<POP 20c1a-20c26 RegCacheLoad> Σ0 ↓
<POP 20c26-20cc6 Naked> Σ0 ↓
<Blob 0x20c26 [4] @> Δ-4 {[«4""»]}
<Call 0x20c2a 0x20826> {[«4""»]}
<POP 20c2c-20c2d StackAdj> Δ+4 {}
<Blob 0x20c2d [4] @> Δ-4 {[«4""»]}
<Call 0x20c30 0x20826> {[«4""»]}
<POP 20c32-20c33 StackAdj> Δ+4 {}
<Blob 0x20c33 [4] @> Δ-4 {[«4""»]}
<Call 0x20c36 0x20826> {[«4""»]}
<POP 20c38-20c39 StackAdj> Δ+4 {}
<Blob 0x20c39 [4] @> Δ-4 {[«4""»]}
<Call 0x20c3c 0x20826> {[«4""»]}
<POP 20c3e-20c40 StackAdj> Δ+4 {}
<Call 0x20c40 0x20bd0> {}
<Blob 0x20c44 [4] @> Δ-4 {[«4""»]}
<Blob 0x20c48 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 20c4c-20c4e StackAdj> Δ-8 {[«4""»]|[«4""»]|[-8-]}
<Lit 0x20c4e 8> {[«4""»]|[«4""»]|[-4-]|[$$Reading_]}
<POP 20c5e-20c60 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]|[$$Reading_]|[-4-]}
<Const 0x20c60 0x5.4> Δ-4 {[«4""»]|[«4""»]|[-4-]|[$$Reading_]|[-4-]|[##5]}
<Const 0x20c64 0x1e.4> Δ-4 {[«4""»]|[«4""»]|[-4-]|[$$Reading_]|[-4-]|[##5]|[##30]}
<Call 0x20c68 0x208f6> {[«4""»]|[«4""»]|[-4-]|[$$Reading_]|[-4-]|[##5]|[##30]}
<POP 20c6c-20c6e StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]|[$$Reading_]|[-4-]}
<Call 0x20c6e 0x102d0> {[«4""»]|[«4""»]|[-4-]|[$$Reading_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20c74-20c76 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<Call 0x20c76 0x103d8> {[«4""»]|[«4""»]|[-4-]}
WriteConsoleString(str : String)
<POP 20c7c-20c80 StackAdj> Δ+10 {[-2-]}
<Const 0x20c80 0x2d.4> Δ-4 {[-2-]|[##45]}
<Const 0x20c84 0x2.4> Δ-4 {[-2-]|[##45]|[##2]}
<Call 0x20c88 0x2097c> {[-2-]|[##45]|[##2]}
<POP 20c8c-20c8e StackAdj> Δ+8 {[-2-]}
<MI 20c8e CLR.L D0> {[-2-]}
<MI 20c90 MOVE.W (A7)+,D0> Δ+2 {}
<MI 20c92 MOVE.L D0,0x228fc> {}
<MI 20c94 MOVE.L #0x400,D4> {}
<MI 20c9a MOVE.L D0,D3> {}
<Call 0x20c9c 0x1028c> {}
?muls_d3_d4
<MI 20ca2 MOVE.L D4,0x22900> {}
<MI 20ca8 LEA.L 0x22950,A0> {}
<MI 20cae MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20cb0 MOVE.W D4,-(A7)> Δ-2 {[4, 'A0']|[2, 'D4']}
<Call 0x20cb2 0x10418> {[4, 'A0']|[2, 'D4']}
FSCALL_10418
<POP 20cb8-20cba StackAdj> Δ+6 {}
<MI 20cba MOVE.L #0x01,0x228f0> {}
<MI 20cc0 MOVE.L 0x228fc,0x228f4> {}
<POP 20cc6-20cce Epilogue> Σ0
@ 20cce
<LVAR 0x00c @ 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<POP 20cce-20db2 Body>
<POP 20cce-20ce4 Prologue> Σ0 ↓
<POP 20ce4-20cec RegCacheLoad> Σ0 ↓
<POP 20cec-20d18 Naked> Σ0 ↓ →0x20d2c
<POP 20cec-20cee StackAdj> Δ-4 {[-4-]}
<Const 0x20cee 0x5.4> Δ-4 {[-4-]|[##5]}
<Const 0x20cf2 0x1e.4> Δ-4 {[-4-]|[##5]|[##30]}
<Call 0x20cf6 0x208f6> {[-4-]|[##5]|[##30]}
<POP 20cfa-20cfc StackAdj> Δ+8 {[-4-]}
<MI 20cfc MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 20cfe-20d00 StackAdj> Δ+2 {[-2-]}
<Const 0x20d00 0x23.4> Δ-4 {[-2-]|[##35]}
<Const 0x20d04 0x5.4> Δ-4 {[-2-]|[##35]|[##5]}
<Call 0x20d08 0x2097c> {[-2-]|[##35]|[##5]}
<POP 20d0c-20d0e StackAdj> Δ+8 {[-2-]}
<MI 20d0e CLR.L D0> {[-2-]}
<MI 20d10 MOVE.W (A7)+,D0> Δ+2 {}
<MI 20d12 CMP.L (A6+0x8),D0> {}
<MI 20d16 BNE 0x20d2c> {}
<POP 20d18-20d2c Naked> Σ0 ↓ →0x20d94
<POP 20d18-20d1a StackAdj> Δ-2 {[-2-]}
<MI 20d1a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-2-]|[4, '(A6+0xc)']}
<MI 20d1e MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6+0xc)']|[4, '(A6-0x4)']}
<Call 0x20d20 0x102c8> {[-2-]|[4, '(A6+0xc)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 20d26-20d28 StackAdj> Δ+8 {[-2-]}
<MI 20d28 TST.B (A7)+> Δ+2 {}
<MI 20d2a BNE 0x20d94> {}
<POP 20d2c-20d64 Naked> Σ0 Δ-46 ↓ →0x20d92 ←0x20cec
<Call 0x20d2c 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x20d32 [46] @> Δ-46 {[«46""»]}
<POP 20d42-20d44 StackAdj> Δ-6 {[«46""»]|[-6-]}
<Lit 0x20d44 45> {[«46""»]|[-2-]|[$$Error in tape header, Do you want to continue]}
<POP 20d54-20d56 StackAdj> Δ-2 {[«46""»]|[-2-]|[$$Error in tape header, Do you want to continue]|[-2-]}
<MI 20d56 CLR.B (A7)> {[«46""»]|[-2-]|[$$Error in tape header, Do you want to continue]|[-2-]}
<Call 0x20d58 0x103f0> {[«46""»]|[-2-]|[$$Error in tape header, Do you want to continue]|[-2-]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 20d5e-20d60 StackAdj> Δ+6 {[«46""»]|[-2-]}
<MI 20d60 TST.B (A7)+> Δ+2 {[«46""»]}
<MI 20d62 BNE 0x20d92> {[«46""»]}
<POP 20d64-20d92 Naked> Σ-46 ↓
<Blob 0x20d64 [20] @> Δ-20 {[-46-]|[«20""»]}
<Const 0x20d70 0xe.2> Δ-2 {[-46-]|[«20""»]|[#14]}
<POP 20d74-20d76 StackAdj> Δ-4 {[-46-]|[«20""»]|[#14]|[-4-]}
<Lit 0x20d76 20> {[-46-]|[«20""»]|[#14]|[$$Error in tape header]}
<Call 0x20d88 0x103b8> {[-46-]|[«20""»]|[#14]|[$$Error in tape header]}
PopProgram(status : Byte; msg : String)
<POP 20d8e-20d92 StackAdj> Δ+26 {[-46-]}
<POP 20d92-20d94 Naked> Σ-46 Δ+46 ↓ ←0x20d2c
<POP 20d92-20d94 StackAdj> Δ+46 {}
<POP 20d94-20daa Naked> Σ0 ↓ ←0x20d18
<Pointer.fp 0x20d94 <LVAR 0x00c @ 4(r)>> Δ-4 {[@@12]}
<Call 0x20d98 0x102bc> {[@@12]}
FreeString(VAR a : String)
<POP 20d9e-20da0 StackAdj> Δ+4 {}
<Pointer.fp 0x20da0 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x20da2 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 20da8-20daa StackAdj> Δ+4 {}
<POP 20daa-20db2 Epilogue> Σ0
@ 20db2
<POP 20db2-20e12 Body>
<POP 20db2-20dc8 Prologue> Σ0 ↓
<POP 20dc8-20dd4 RegCacheLoad> Σ0 ↓
<POP 20dd4-20de0 Naked> Σ0 ↓ →0x20e0a
<MI 20dd4 ADDQ.L #0x1,0x228f4> {}
<MI 20dd6 MOVE.L 0x228f4,D0> {}
<MI 20dd8 CMP.L 0x228fc,D0> {}
<MI 20dde BLT 0x20e0a> {}
<POP 20de0-20e0a Naked> Σ0 ↓
<Call 0x20de0 0x206ea> {}
<MI 20de4 MOVE.L 0x228f0,D0> {}
<MI 20de6 ASL.L #0x8,D0> {}
<MI 20de8 ASL.L #0x5,D0> {}
<MI 20dea LEA.L 0x228e8,A0> {}
<MI 20df0 LEA.L (A0+D0.L+#0x68),A0> {}
<MI 20df4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x20df6 [2] 0x22902> Δ-2 {[4, 'A0']|[«2»]}
<Call 0x20dfc 0x10418> {[4, 'A0']|[«2»]}
FSCALL_10418
<POP 20e02-20e04 StackAdj> Δ+6 {}
<MI 20e04 NEG.L 0x228f0> {}
<MI 20e06 ADDQ.L #0x1,0x228f0> {}
<MI 20e08 CLR.L 0x228f4> {}
<POP 20e0a-20e12 Epilogue> Σ0 ←0x20dd4
@ 20e12
<POP 20e12-20e80 Body>
<POP 20e12-20e28 Prologue> Σ0 ↓
<POP 20e28-20e2c RegCacheLoad> Σ0 ↓
<POP 20e2c-20e78 Naked> Σ0 ↓
<Call 0x20e2c 0x20b2c> {}
<Blob 0x20e30 [4] @> Δ-4 {[«4""»]}
<Call 0x20e34 0x20826> {[«4""»]}
<POP 20e36-20e37 StackAdj> Δ+4 {}
<Blob 0x20e37 [4] @> Δ-4 {[«4""»]}
<Call 0x20e3a 0x20826> {[«4""»]}
<POP 20e3c-20e3d StackAdj> Δ+4 {}
<Blob 0x20e3d [4] @> Δ-4 {[«4""»]}
<Call 0x20e40 0x20826> {[«4""»]}
<POP 20e42-20e44 StackAdj> Δ+4 {}
<Call 0x20e44 0x20bd0> {}
<Blob 0x20e48 [6] @> Δ-6 {[«6""»]}
<POP 20e58-20e5a StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x20e5a 5> {[«6""»]|[$$ [OK]]}
<Call 0x20e6e 0x103e0> {[«6""»]|[$$ [OK]]}
WriteConsoleStringCrLf(str : String)
<POP 20e74-20e78 StackAdj> Δ+10 {}
<POP 20e78-20e80 Epilogue> Σ0
@ 20e80
<LVAR 0x00c 4(w)>
<LVAR 0x008 @ 4(rw)>
<LVAR -0x00c @ 4(rw)>
<POP 20e80-20f26 Body>
<POP 20e80-20e96 Prologue> Σ0 ↓
<POP 20e96-20e9e RegCacheLoad> Σ0 ↓
<POP 20e9e-20eae Naked> Σ0 ↓
<POP 20e9e-20ea0 StackAdj> Δ-4 {[-4-]}
<MI 20ea0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x20ea2 0x102f0> {[-4-]|[4, '(A6+0x8)']}
ToUpper(a : String) : String
<POP 20ea8-20eaa StackAdj> Δ+4 {[-4-]}
<MI 20eaa MOVE.L (A7)+,(A6+0x8)> Δ+4 {}
<MI 20eac MOVEQ.L #0x01,D6> {}
<POP 20eae-20f04 Naked> Σ0 ↓ →0x20f0a ←0x20f0a
<MI 20eae MOVE.L D6,D4> {}
<MI 20eb0 MOVEQ.L #0x03,D3> {}
<Call 0x20eb2 0x1028c> {}
?muls_d3_d4
<MI 20eb8 LEA.L 0x204fc,A0> {}
<POP 20ebc-20ebe StackAdj> Δ-4 {[-4-]}
<MI 20ebe MOVE.B (A0+D4.L-#0x3),(A7)> {[-4-]}
<MI 20ec2 MOVE.B (A0+D4.L-#0x2),(A7+0x1)> {[-4-]}
<MI 20ec8 MOVE.B (A0+D4.L-#0x1),(A7+0x2)> {[-4-]}
<POP 20ece-20ed0 StackAdj> Δ-4 {[-8-]}
<Lit 0x20ed0> {[-4-]|[$$…]}
<Pointer.sp 0x20ed0 4> Δ-4
<Const 0x20ed4 0x1.2> Δ-2
<Const 0x20ed8 0x3.2> Δ-2
<Call 0x20edc 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20ee2-20ee4 StackAdj> Δ+8
<MI 20ee4 MOVE.L (A7)+,(A6-0xc)> Δ+4 {[-4-]}
<POP 20ee6-20ee8 StackAdj> Δ+2 {[-2-]}
<MI 20ee8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x8)']}
<MI 20eea MOVE.L (A6-0xc),-(A7)> Δ-4 {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0xc)']}
<Call 0x20eec 0x102c8> {[-2-]|[4, '(A6+0x8)']|[4, '(A6-0xc)']}
StringEqual(a, b : String) : Byte
<POP 20ef2-20ef4 StackAdj> Δ+8 {[-2-]}
<MI 20ef4 MOVE.B (A7)+,D7> Δ+2 {}
<Pointer.fp 0x20ef6 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x20ef8 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 20efe-20f00 StackAdj> Δ+4 {}
<MI 20f00 TST.B D7> {}
<MI 20f02 BEQ 0x20f0a> {}
<POP 20f04-20f0a Naked> Σ0 →0x20f14
<MI 20f04 MOVE.L D6,(A6+0xc)> {}
<MI 20f08 BRA 0x20f14> {}
<POP 20f0a-20f14 Naked> Σ0 ↓ →0x20eae ←0x20eae
<MI 20f0a ADDQ.L #0x1,D6> {}
<MI 20f0c CMPI.L #0x0000000c,D6> {}
<MI 20f12 BLE 0x20eae> {}
<POP 20f14-20f1e Naked> Σ0 ↓ ←0x20f04
<Pointer.fp 0x20f14 <LVAR 0x008 @ 4(rw)>> Δ-4 {[@@8]}
<Call 0x20f16 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 20f1c-20f1e StackAdj> Δ+4 {}
<POP 20f1e-20f26 Epilogue> Σ0
@ 20f26
<LVAR 0x008 4(r)>
<POP 20f26-20fee Body>
<POP 20f26-20f3c Prologue> Σ0 ↓
<POP 20f3c-20f44 RegCacheLoad> Σ0 ↓
<POP 20f44-20fe6 Naked> Σ0 ↓
<MI 20f44 MOVEA.L (A6+0x8),A0> {}
<POP 20f48-20f4a StackAdj> Δ-2 {[-2-]}
<Const 0x20f4a 0x30.4> Δ-4 {[-2-]|[##48]}
<Const 0x20f4e 0x2.4> Δ-4 {[-2-]|[##48]|[##2]}
<Call 0x20f50 0x2097c> {[-2-]|[##48]|[##2]}
<POP 20f52-20f54 StackAdj> Δ+8 {[-2-]}
<MI 20f54 MOVEQ.L #0x3c,D0> {[-2-]}
<MI 20f56 MULU.W (A7)+,D0> Δ+2 {}
<POP 20f58-20f5a StackAdj> Δ-2 {[-2-]}
<Const 0x20f5a 0x33.4> Δ-4 {[-2-]|[##51]}
<Const 0x20f5e 0x2.4> Δ-4 {[-2-]|[##51]|[##2]}
<Call 0x20f60 0x2097c> {[-2-]|[##51]|[##2]}
<POP 20f62-20f64 StackAdj> Δ+8 {[-2-]}
<MI 20f64 CLR.L D1> {[-2-]}
<MI 20f66 MOVE.W (A7)+,D1> Δ+2 {}
<MI 20f68 ADD.L D0,D1> {}
<MI 20f6a MOVE.L D1,D4> {}
<MI 20f6c MOVEQ.L #0x1e,D3> {}
<Call 0x20f6e 0x10290> {}
?mulu_d3_d4
<POP 20f74-20f76 StackAdj> Δ-2 {[-2-]}
<Const 0x20f76 0x36.4> Δ-4 {[-2-]|[##54]}
<Const 0x20f7a 0x2.4> Δ-4 {[-2-]|[##54]|[##2]}
<Call 0x20f7c 0x2097c> {[-2-]|[##54]|[##2]}
<POP 20f7e-20f80 StackAdj> Δ+8 {[-2-]}
<MI 20f80 MOVE.W (A7)+,D0> Δ+2 {}
<MI 20f82 LSR.W #0x1,D0> {}
<MI 20f84 CLR.L D1> {}
<MI 20f86 MOVE.W D0,D1> {}
<MI 20f88 ADD.L D4,D1> {}
<MI 20f8a MOVE.W D1,(A0)> {}
<POP 20f8c-20f8e StackAdj> Δ-2 {[-2-]}
<Const 0x20f8e 0x39.4> Δ-4 {[-2-]|[##57]}
<Const 0x20f92 0x2.4> Δ-4 {[-2-]|[##57]|[##2]}
<Call 0x20f94 0x2097c> {[-2-]|[##57]|[##2]}
<POP 20f96-20f98 StackAdj> Δ+8 {[-2-]}
<MI 20f98 MOVE.W (A7)+,D0> Δ+2 {}
<MI 20f9a ANDI.B #0xe0,(A0+0x3)> {}
<MI 20fa0 OR.B D0,(A0+0x3)> {}
<POP 20fa4-20fa6 StackAdj> Δ-8 {[-8-]}
<Const 0x20fa6 0x3c.4> Δ-4 {[-8-]|[##60]}
<Const 0x20faa 0x3.4> Δ-4 {[-8-]|[##60]|[##3]}
<Call 0x20fae 0x208f6> {[-8-]|[##60]|[##3]}
<POP 20fb2-20fb4 StackAdj> Δ+8 {[-8-]}
<Call 0x20fb4 0x20e80> {[-8-]}
<POP 20fb8-20fba StackAdj> Δ+4 {[-4-]}
<MI 20fba MOVE.L (A7)+,D0> Δ+4 {}
<MI 20fbc ANDI.W #0xfe1f,(A0+0x2)> {}
<MI 20fc2 LSL.W #0x5,D0> {}
<MI 20fc4 OR.W D0,(A0+0x2)> {}
<POP 20fc8-20fca StackAdj> Δ-2 {[-2-]}
<Const 0x20fca 0x40.4> Δ-4 {[-2-]|[##64]}
<Const 0x20fce 0x2.4> Δ-4 {[-2-]|[##64]|[##2]}
<Call 0x20fd0 0x2097c> {[-2-]|[##64]|[##2]}
<POP 20fd2-20fd4 StackAdj> Δ+8 {[-2-]}
<MI 20fd4 CLR.L D0> {[-2-]}
<MI 20fd6 MOVE.W (A7)+,D0> Δ+2 {}
<MI 20fd8 SUBQ.L #0x1,D0> {}
<MI 20fda ANDI.B #0x01,(A0+0x2)> {}
<MI 20fe0 LSL.B #0x1,D0> {}
<MI 20fe2 OR.B D0,(A0+0x2)> {}
<POP 20fe6-20fee Epilogue> Σ0
@ 20fee
<LVAR 0x00a @ 4(r)>
<LVAR 0x008 1(r)>
<LVAR -0x001 1(r)>
<LVAR -0x002 1(r)>
<LVAR -0x003 1(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x00a @>
<LVAR -0x00e @ 4(r)>
<POP 20fee-21144 Body>
<POP 20fee-21004 Prologue> Σ0 ↓
<POP 21004-21016 RegCacheLoad> Σ0 ↓
<POP 21016-2104a Naked> Σ0 ↓ →0x2111e
<Call 0x21016 0x20c04> {}
<POP 2101a-2101c StackAdj> Δ-2 {[-2-]}
<Const 0x2101c 0x23.4> Δ-4 {[-2-]|[##35]}
<Const 0x21020 0x5.4> Δ-4 {[-2-]|[##35]|[##5]}
<Call 0x21024 0x2097c> {[-2-]|[##35]|[##5]}
<POP 21028-2102a StackAdj> Δ+8 {[-2-]}
<MI 2102a CLR.L D0> {[-2-]}
<MI 2102c MOVE.W (A7)+,D0> Δ+2 {}
<MI 2102e MOVE.L D0,D6> {}
<POP 21030-21032 StackAdj> Δ-4 {[-4-]}
<MI 21032 MOVE.L (A6+0xa),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xa)']}
<Call 0x21034 0x102cc> {[-4-]|[4, '(A6+0xa)']}
StringDup(a : String) : String
<MI 2103a MOVE.L D6,(A7)> {[-4-]|[4, 'D6']}
<Call 0x2103c 0x20cce> {[-4-]|[4, 'D6']}
<POP 21040-21042 StackAdj> Δ+8 {}
<MI 21042 TST.B (A6+0x8)> {}
<MI 21046 BEQ 0x2111e> {}
<POP 2104a-2107c Naked> Σ0 ↓ →0x21080
<MI 2104a MOVE.L (A6+0xa),-(A7)> Δ-4 {[4, '(A6+0xa)']}
<Const 0x2104c 0x1.2> Δ-2 {[4, '(A6+0xa)']|[#1]}
<Const 0x2104e 0x2.2> Δ-2 {[4, '(A6+0xa)']|[#1]|[#2]}
<MI 21050 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6+0xa)']|[#1]|[#2]|[4, 'D6']}
<Pointer.fp 0x21052 <LVAR -0x00a @>> Δ-4 {[4, '(A6+0xa)']|[#1]|[#2]|[4, 'D6']|[@@-10]}
<Pointer.fp 0x21054 <LVAR -0x00e @ 4(r)>> Δ-4 {[4, '(A6+0xa)']|[#1]|[#2]|[4, 'D6']|[@@-10]|[@@-14]}
<Call 0x21056 0x10380> {[4, '(A6+0xa)']|[#1]|[#2]|[4, 'D6']|[@@-10]|[@@-14]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 2105c-2105e StackAdj> Δ+20 {}
<Pointer.fp 0x2105e <LVAR 0x00a @ 4(r)>> Δ-4 {[@@10]}
<Call 0x21060 0x102bc> {[@@10]}
FreeString(VAR a : String)
<POP 21066-21068 StackAdj> Δ+4 {}
<MI 21068 MOVEA.L (A6-0xe),A0> {}
<MI 2106a ANDI.B #0xfd,(A0+0x3f)> {}
<MI 21070 MOVE.B 0x2697e,D0> {}
<MI 21076 CMPI.B #0x44,D0> {}
<MI 2107a BEQ 0x21080> {}
<POP 2107c-21080 Naked> Σ0 ↓
<MI 2107c OR.B #0x02,(A0+0x3f)> {}
<POP 21080-2108c Naked> Σ0 ↓ →0x21092 ←0x2104a
<MI 21080 ANDI.B #0xfb,(A0+0x3f)> {}
<MI 21086 CMPI.B #0x4b,D0> {}
<MI 2108a BNE 0x21092> {}
<POP 2108c-21092 Naked> Σ0 ↓
<MI 2108c ORI.B #0x04,(A0+0x3f)> {}
<POP 21092-210be Naked> Σ0 Δ-4 ↓ ←0x21080
<Pointer.fp 0x21092 <LVAR -0x004 @ 1(r)>> Δ-4 {[@@-4]}
<Call 0x21096 0x20f26> {[@@-4]}
<POP 2109a-2109c StackAdj> Δ+4 {}
<MI 2109c MOVE.B (A6-0x4),(A0+0x3a)> {}
<MI 210a2 MOVE.B (A6-0x3),(A0+0x3b)> {}
<MI 210a8 MOVE.B (A6-0x2),(A0+0x3c)> {}
<MI 210ae MOVE.B (A6-0x1),(A0+0x3d)> {}
<MI 210b4 MOVE.B #0x01,(A0+0x4c)> {}
<MI 210b8 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 210ba SUBQ.L #0x1,(A7)> {[-4-]}
<MI 210bc MOVEQ.L #0x00,D7> {[-4-]}
<POP 210be-210c2 Naked> Σ-4 ↓ →0x21104 ←0x210c2
<MI 210be CMP.L (A7),D7> {[-4-]}
<MI 210c0 BGT 0x21104> {[-4-]}
<POP 210c2-21104 Naked> Σ-4 ↓ →0x210be
<Call 0x210c2 0x20db2> {[-4-]}
<MI 210c6 MOVE.L (A6-0xe),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xe)']}
<MI 210c8 MOVE.W D7,-(A7)> Δ-2 {[-4-]|[4, '(A6-0xe)']|[2, 'D7']}
<MI 210ca CLR.W -(A7)> Δ-2 {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]}
<Const 0x210cc 0x200.2> Δ-2 {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]}
<Const 0x210d0 0x2.2> Δ-2 {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 210d2 MOVE.L 0x228f0,D0> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 210d8 ASL.L #0x8,D0> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 210da ASL.L #0x5,D0> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 210dc LEA.L 0x228e8,A0> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 210e2 MOVE.L 0x228f4,D1> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 210e8 ASL.L #0x8,D1> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 210ea ASL.L #0x2,D1> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 210ec LEA.L (A0+D0.L),A0> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 210f0 LEA.L (A0+D1.L+#0x68),A0> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 210f4 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x210f6 <LVAR -0x00a @>> Δ-4 {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-10]}
<Call 0x210f8 0x10388> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-10]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 210fe-21100 StackAdj> Δ+20 {[-4-]}
<MI 21100 ADDQ.L #0x1,D7> {[-4-]}
<MI 21102 BVC 0x210be> {[-4-]}
<POP 21104-2111e Naked> Σ-4 Δ+4 →0x21138 ←0x210be
<POP 21104-21106 StackAdj> Δ+2 {[-2-]}
<MI 21106 CLR.B (A7)> {[-2-]}
<Const 0x21108 0x2.2> Δ-2 {[-2-]|[#2]}
<Const 0x2110a 0x1.4> Δ-4 {[-2-]|[#2]|[##1]}
<Pointer.fp 0x2110e <LVAR -0x00a @>> Δ-4 {[-2-]|[#2]|[##1]|[@@-10]}
<Pointer.fp 0x21110 <LVAR -0x00e @ 4(r)>> Δ-4 {[-2-]|[#2]|[##1]|[@@-10]|[@@-14]}
<Call 0x21112 0x1038c> {[-2-]|[#2]|[##1]|[@@-10]|[@@-14]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 21118-2111c StackAdj> Δ+16 {}
<MI 2111c BRA 0x21138> {}
<POP 2111e-2112a Naked> Σ0 Δ-4 ↓ ←0x21016
<Pointer.fp 0x2111e <LVAR 0x00a @ 4(r)>> Δ-4 {[@@10]}
<Call 0x21120 0x102bc> {[@@10]}
FreeString(VAR a : String)
<MI 21126 MOVE.L D6,(A7)> {[4, 'D6']}
<MI 21128 MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 2112a-2112e Naked> Σ-4 ↓ →0x21136 ←0x2112e
<MI 2112a CMP.L (A7),D7> {[-4-]}
<MI 2112c BGT 0x21136> {[-4-]}
<POP 2112e-21136 Naked> Σ-4 ↓ →0x2112a
<Call 0x2112e 0x20db2> {[-4-]}
<MI 21132 ADDQ.L #0x1,D7> {[-4-]}
<MI 21134 BVC 0x2112a> {[-4-]}
<POP 21136-21138 Naked> Σ-4 Δ+4 ↓ ←0x2112a
<POP 21136-21138 StackAdj> Δ+4 {}
<POP 21138-2113c Naked> Σ0 ↓ ←0x21104
<Call 0x21138 0x20e12> {}
<POP 2113c-21144 Epilogue> Σ0
@ 21144
<LVAR -0x002 @ 1(r)>
<LVAR -0x006 @ 4(r)>
<LVAR -0x008 @>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(rw)>
<POP 21144-211f8 Body> Δ+4
<POP 21144-2115a Prologue> Σ0 ↓
<POP 2115a-21168 RegCacheLoad> Σ0 ↓
<POP 21168-211ba Naked> Σ0 ↓
<Blob 0x21168 [20] @> Δ-20 {[«20""»]}
<POP 21178-2117a StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2117a 19> {[«20""»]|[$$CRASH_DUMP.COMMENTS]}
<MI 2118e MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«20""»]}
<POP 21190-21194 StackAdj> Δ+16 {[-4-]}
<MI 21194 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 21196 CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]}
<Const 0x21198 0x2.2> Δ-2 {[4, '(A6-0x10)']|[#0]|[#2]}
<Const 0x2119c 0x0.4> Δ-4 {[4, '(A6-0x10)']|[#0]|[#2]|[##0]}
<Pointer.fp 0x211a0 <LVAR -0x008 @>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#2]|[##0]|[@@-8]}
<Pointer.fp 0x211a4 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#2]|[##0]|[@@-8]|[@@-12]}
<Call 0x211a8 0x10380> {[4, '(A6-0x10)']|[#0]|[#2]|[##0]|[@@-8]|[@@-12]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 211ae-211b0 StackAdj> Δ+20 {}
<Pointer.fp 0x211b0 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x211b2 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 211b8-211ba StackAdj> Δ+4 {}
<POP 211ba-211d8 Naked> Σ0 ↓ →0x211e2 ←0x211ea
<Pointer.fp 0x211ba <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x211bc 0x102b8> {[@@-6]}
NewString(VAR a : String)
<MI 211c2 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<Pointer.fp 0x211c6 <LVAR -0x006 @ 4(r)>> Δ-4 {[4, '(A6-0xc)']|[@@-6]}
<Pointer.fp 0x211c8 <LVAR -0x002 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[@@-6]|[@@-2]}
<Call 0x211ca 0x1043c> {[4, '(A6-0xc)']|[@@-6]|[@@-2]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 211d0-211d4 StackAdj> Δ+12 {}
<MI 211d4 TST.B (A6-0x2)> {}
<MI 211d6 BNE 0x211e2> {}
<POP 211d8-211e2 Naked> Σ0 Δ-4 →0x211ea
<MI 211d8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x211da 0x103e0> {[4, '(A6-0x6)']}
WriteConsoleStringCrLf(str : String)
<MI 211e0 BRA 0x211ea> {[4, '(A6-0x6)']}
<POP 211e2-211ea Naked> Σ0 Δ-4 ↓ ←0x211ba
<Pointer.fp 0x211e2 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x211e4 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 211ea-211f0 Naked> Σ-4 Δ+4 ↓ →0x211ba ←0x211d8
<POP 211ea-211ec StackAdj> Δ+4 {}
<MI 211ec TST.B (A6-0x2)> {}
<MI 211ee BEQ 0x211ba> {}
<POP 211f0-211f8 Epilogue> Σ0
@ 211f8
<LVAR -0x003 1(r)>
<LVAR -0x004 1(r)>
<LVAR -0x005 1(r)>
<LVAR -0x006 @ 1(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(rw)>
<LVAR -0x012 @>
<LVAR -0x016 @ 4(r)>
<POP 211f8-2164e Body>
<POP 211f8-2120e Prologue> Σ0 ↓
<POP 2120e-21220 RegCacheLoad> Σ0 ↓
<POP 21220-212b0 Naked> Σ0 ↓ →0x212b6
<Call 0x21220 0x20c04> {}
<POP 21224-21226 StackAdj> Δ-4 {[-4-]}
<Const 0x21226 0x5.4> Δ-4 {[-4-]|[##5]}
<Const 0x2122a 0x1e.4> Δ-4 {[-4-]|[##5]|[##30]}
<Call 0x2122e 0x208f6> {[-4-]|[##5]|[##30]}
<POP 21232-21234 StackAdj> Δ+8 {[-4-]}
<MI 21234 MOVE.L (A7),0x2294a> {[-4-]}
<POP 2123a-2123c StackAdj> Δ+2 {[-2-]}
<Const 0x2123c 0x23.4> Δ-4 {[-2-]|[##35]}
<Const 0x21240 0x5.4> Δ-4 {[-2-]|[##35]|[##5]}
<Call 0x21244 0x2097c> {[-2-]|[##35]|[##5]}
<POP 21248-2124a StackAdj> Δ+8 {[-2-]}
<MI 2124a CLR.L D0> {[-2-]}
<MI 2124c MOVE.W (A7)+,D0> Δ+2 {}
<MI 2124e MOVE.L D0,0x22946> {}
<Blob 0x21250 [22] @> Δ-22 {[«22""»]}
<POP 2125c-2125e StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x2125e 22> {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]}
<POP 2126c-2126e StackAdj> Δ-4 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-4-]}
<POP 2126e-2126f StackAdj> Δ+4 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]}
<Blob 0x2126f [4] 0x22946> Δ-4 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[«4»]}
<Call 0x21270 0x20cce> {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[«4»]}
<POP 21274-21278 StackAdj> Δ+26 {[-4-]}
<POP 21278-21279 StackAdj> Δ+4 {}
<Blob 0x21279 [4] 0x2294a> Δ-4 {[«4»]}
<Const 0x2127e 0x1.2> Δ-2 {[«4»]|[#1]}
<Const 0x21282 0x2.2> Δ-2 {[«4»]|[#1]|[#2]}
<Blob 0x21286 [4] 0x22946> Δ-4 {[«4»]|[#1]|[#2]|[«4»]}
<Pointer.fp 0x21288 <LVAR -0x012 @>> Δ-4 {[«4»]|[#1]|[#2]|[«4»]|[@@-18]}
<Pointer.fp 0x2128c <LVAR -0x016 @ 4(r)>> Δ-4 {[«4»]|[#1]|[#2]|[«4»]|[@@-18]|[@@-22]}
<Call 0x21290 0x10380> {[«4»]|[#1]|[#2]|[«4»]|[@@-18]|[@@-22]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 21296-2129a StackAdj> Δ+20 {}
<MI 2129a MOVEA.L (A6-0x16),A0> {}
<MI 2129e ANDI.B #0xfd,(A0+0x3f)> {}
<MI 212a4 MOVE.B 0x2697e,D0> {}
<MI 212aa CMPI.B #0x44,D0> {}
<MI 212ae BEQ 0x212b6> {}
<POP 212b0-212b6 Naked> Σ0 ↓
<MI 212b0 ORI.B #0x02,(A0+0x3f)> {}
<POP 212b6-212c2 Naked> Σ0 ↓ →0x212c8 ←0x21220
<MI 212b6 ANDI.B #0xfb,(A0+0x3f)> {}
<MI 212bc CMPI.B #0x4b,D0> {}
<MI 212c0 BNE 0x212c8> {}
<POP 212c2-212c8 Naked> Σ0 ↓
<MI 212c2 ORI.B #0x04,(A0+0x3f)> {}
<POP 212c8-212f8 Naked> Σ0 Δ-4 ↓ ←0x212b6
<Pointer.fp 0x212c8 <LVAR -0x006 @ 1(r)>> Δ-4 {[@@-6]}
<Call 0x212cc 0x20f26> {[@@-6]}
<POP 212d0-212d2 StackAdj> Δ+4 {}
<MI 212d2 MOVE.B (A6-0x6),(A0+0x3a)> {}
<MI 212d8 MOVE.B (A6-0x5),(A0+0x3b)> {}
<MI 212de MOVE.B (A6-0x4),(A0+0x3c)> {}
<MI 212e4 MOVE.B (A6-0x3),(A0+0x3d)> {}
<MI 212ea MOVE.B #0x01,(A0+0x4c)> {}
<MI 212f0 MOVEQ.L #0x00,D6> {}
<Blob 0x212f2 [4] 0x22946> Δ-4 {[«4»]}
<MI 212f4 SUBQ.L #0x1,(A7)> {[-4-]}
<MI 212f6 MOVEQ.L #0x00,D7> {[-4-]}
<POP 212f8-212fe Naked> Σ-4 ↓ →0x2145e ←0x21458
<MI 212f8 CMP.L (A7),D7> {[-4-]}
<MI 212fa BGT 0x2145e> {[-4-]}
<POP 212fe-21348 Naked> Σ-4 ↓ →0x21394
<Call 0x212fe 0x20db2> {[-4-]}
<MI 21302 MOVE.L (A6-0x16),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x16)']}
<MI 21306 MOVE.W D7,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x16)']|[2, 'D7']}
<MI 21308 CLR.W -(A7)> Δ-2 {[-4-]|[4, '(A6-0x16)']|[2, 'D7']|[#0]}
<Const 0x2130a 0x200.2> Δ-2 {[-4-]|[4, '(A6-0x16)']|[2, 'D7']|[#0]|[#512]}
<Const 0x2130e 0x2.2> Δ-2 {[-4-]|[4, '(A6-0x16)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21312 MOVE.L 0x228f0,D0> {[-4-]|[4, '(A6-0x16)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21318 ASL.L #0x8,D0> {[-4-]|[4, '(A6-0x16)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 2131a ASL.L #0x5,D0> {[-4-]|[4, '(A6-0x16)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 2131c LEA.L 0x228e8,A0> {[-4-]|[4, '(A6-0x16)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 2131e MOVE.L 0x228f4,D1> {[-4-]|[4, '(A6-0x16)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21324 ASL.L #0x8,D1> {[-4-]|[4, '(A6-0x16)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21326 ASL.L #0x2,D1> {[-4-]|[4, '(A6-0x16)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21328 LEA.L (A0+D0.L),A0> {[-4-]|[4, '(A6-0x16)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 2132c LEA.L (A0+D1.L+#0x68),A0> {[-4-]|[4, '(A6-0x16)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21330 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, '(A6-0x16)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x21332 <LVAR -0x012 @>> Δ-4 {[-4-]|[4, '(A6-0x16)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-18]}
<Call 0x21336 0x10388> {[-4-]|[4, '(A6-0x16)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-18]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 2133c-21340 StackAdj> Δ+20 {[-4-]}
<MI 21340 CMPI.L #0x00000003,D7> {[-4-]}
<MI 21346 BGT 0x21394> {[-4-]}
<POP 21348-21376 Naked> Σ-4 ↓ →0x2137a
<MI 21348 MOVEQ.L #0x03,D0> {[-4-]}
<MI 2134a SUB.L D7,D0> {[-4-]}
<MI 2134c LEA.L 0x228e8,A0> {[-4-]}
<MI 2134e CLR.B (A0+D0.L+#0x20)> {[-4-]}
<MI 21352 MOVE.L 0x228f0,D1> {[-4-]}
<MI 21358 ASL.L #0x8,D1> {[-4-]}
<MI 2135a ASL.L #0x5,D1> {[-4-]}
<MI 2135c LEA.L 0x228e8,A1> {[-4-]}
<MI 2135e MOVE.L 0x228f4,D2> {[-4-]}
<MI 21364 ASL.L #0x8,D2> {[-4-]}
<MI 21366 ASL.L #0x2,D2> {[-4-]}
<MI 21368 LEA.L (A1+D1.L),A1> {[-4-]}
<MI 2136c MOVE.W (A1+D2.L+#0x68),D1> {[-4-]}
<MI 21370 ANDI.W #0x00ff,D1> {[-4-]}
<MI 21374 BEQ 0x2137a> {[-4-]}
<POP 21376-2137a Naked> Σ-4 ↓
<MI 21376 ADDQ.B #0x1,(A0+D0.L+#0x20)> {[-4-]}
<POP 2137a-21380 Naked> Σ-4 ↓ →0x21390 ←0x21348
<MI 2137a MOVEQ.L #0x00,D1> {[-4-]}
<MI 2137c TST.B D6> {[-4-]}
<MI 2137e BNE 0x21390> {[-4-]}
<POP 21380-21386 Naked> Σ-4 ↓ →0x21392
<MI 21380 TST.B (A0+D0.L+#0x20)> {[-4-]}
<MI 21384 BEQ 0x21392> {[-4-]}
<POP 21386-21390 Naked> Σ-4 ↓ →0x21392
<MI 21386 MOVE.W (A1+D2.L+#0x70),D0> {[-4-]}
<MI 2138a ANDI.W #0x0100,D0> {[-4-]}
<MI 2138e BEQ 0x21392> {[-4-]}
<POP 21390-21392 Naked> Σ-4 ↓ ←0x2137a
<MI 21390 ADDQ.B #0x1,D1> {[-4-]}
<POP 21392-21394 Naked> Σ-4 ↓ ←0x21380 ←0x21386
<MI 21392 MOVE.B D1,D6> {[-4-]}
<POP 21394-2139e Naked> Σ-4 ↓ →0x21458 ←0x212fe
<MI 21394 CMPI.L #0x0000000d,D7> {[-4-]}
<MI 2139a BNE 0x21458> {[-4-]}
<POP 2139e-21458 Naked> Σ-4 ↓
<Blob 0x2139e [22] @> Δ-22 {[-4-]|[«22""»]}
<POP 213b0-213b2 StackAdj> Δ-4 {[-4-]|[«22""»]|[-4-]}
<Lit 0x213b2 21> {[-4-]|[«22""»]|[$$CURRENT_CONFIGURATION]}
<MI 213c2 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]|[«22""»]}
<POP 213c6-213ca StackAdj> Δ+18 {[-4-]|[-4-]}
<MI 213ca MOVE.L (A6-0x10),(A7)> {[-4-]|[4, '(A6-0x10)']}
<Const 0x213ce 0x1.2> Δ-2 {[-4-]|[4, '(A6-0x10)']|[#1]}
<Const 0x213d2 0x2.2> Δ-2 {[-4-]|[4, '(A6-0x10)']|[#1]|[#2]}
<Const 0x213d6 0x1.4> Δ-4 {[-4-]|[4, '(A6-0x10)']|[#1]|[#2]|[##1]}
<Pointer.fp 0x213da <LVAR -0x012 @>> Δ-4 {[-4-]|[4, '(A6-0x10)']|[#1]|[#2]|[##1]|[@@-18]}
<Pointer.fp 0x213de <LVAR -0x00c @ 4(r)>> Δ-4 {[-4-]|[4, '(A6-0x10)']|[#1]|[#2]|[##1]|[@@-18]|[@@-12]}
<Call 0x213e2 0x10380> {[-4-]|[4, '(A6-0x10)']|[#1]|[#2]|[##1]|[@@-18]|[@@-12]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 213e8-213ec StackAdj> Δ+20 {[-4-]}
<Pointer.fp 0x213ec <LVAR -0x010 @ 4(rw)>> Δ-4 {[-4-]|[@@-16]}
<Call 0x213f0 0x102bc> {[-4-]|[@@-16]}
FreeString(VAR a : String)
<MI 213f6 MOVE.L (A6-0xc),(A7)> {[-4-]|[4, '(A6-0xc)']}
<MI 213fa CLR.W -(A7)> Δ-2 {[-4-]|[4, '(A6-0xc)']|[#0]}
<MI 213fc CLR.W -(A7)> Δ-2 {[-4-]|[4, '(A6-0xc)']|[#0]|[#0]}
<Const 0x213fe 0x200.2> Δ-2 {[-4-]|[4, '(A6-0xc)']|[#0]|[#0]|[#512]}
<Const 0x21402 0x2.2> Δ-2 {[-4-]|[4, '(A6-0xc)']|[#0]|[#0]|[#512]|[#2]}
<MI 21406 MOVE.L 0x228f0,D0> {[-4-]|[4, '(A6-0xc)']|[#0]|[#0]|[#512]|[#2]}
<MI 2140c ASL.L #0x8,D0> {[-4-]|[4, '(A6-0xc)']|[#0]|[#0]|[#512]|[#2]}
<MI 2140e ASL.L #0x5,D0> {[-4-]|[4, '(A6-0xc)']|[#0]|[#0]|[#512]|[#2]}
<MI 21410 LEA.L 0x228e8,A0> {[-4-]|[4, '(A6-0xc)']|[#0]|[#0]|[#512]|[#2]}
<MI 21412 MOVE.L 0x228f4,D1> {[-4-]|[4, '(A6-0xc)']|[#0]|[#0]|[#512]|[#2]}
<MI 21418 ASL.L #0x8,D1> {[-4-]|[4, '(A6-0xc)']|[#0]|[#0]|[#512]|[#2]}
<MI 2141a ASL.L #0x2,D1> {[-4-]|[4, '(A6-0xc)']|[#0]|[#0]|[#512]|[#2]}
<MI 2141c LEA.L (A0+D0.L),A0> {[-4-]|[4, '(A6-0xc)']|[#0]|[#0]|[#512]|[#2]}
<MI 21420 LEA.L (A0+D1.L+#0x68),A0> {[-4-]|[4, '(A6-0xc)']|[#0]|[#0]|[#512]|[#2]}
<MI 21424 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, '(A6-0xc)']|[#0]|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x21426 <LVAR -0x012 @>> Δ-4 {[-4-]|[4, '(A6-0xc)']|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-18]}
<Call 0x2142a 0x10388> {[-4-]|[4, '(A6-0xc)']|[#0]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-18]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 21430-21434 StackAdj> Δ+18 {[-4-]|[-2-]}
<MI 21434 CLR.B (A7)> {[-4-]|[-2-]}
<Const 0x21436 0x2.2> Δ-2 {[-4-]|[-2-]|[#2]}
<Const 0x2143a 0x1.4> Δ-4 {[-4-]|[-2-]|[#2]|[##1]}
<Pointer.fp 0x2143e <LVAR -0x012 @>> Δ-4 {[-4-]|[-2-]|[#2]|[##1]|[@@-18]}
<Pointer.fp 0x21442 <LVAR -0x00c @ 4(r)>> Δ-4 {[-4-]|[-2-]|[#2]|[##1]|[@@-18]|[@@-12]}
<Call 0x21446 0x1038c> {[-4-]|[-2-]|[#2]|[##1]|[@@-18]|[@@-12]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 2144c-21450 StackAdj> Δ+16 {[-4-]}
<MI 21450 MOVE.B #0x01,0x269a1> {[-4-]}
<POP 21458-2145e Naked> Σ-4 ↓ →0x212f8 ←0x21394
<MI 21458 ADDQ.L #0x1,D7> {[-4-]}
<MI 2145a BVC 0x212f8> {[-4-]}
<POP 2145e-2148a Naked> Σ-4 Δ+4 ↓ →0x214e4 ←0x212f8
<POP 2145e-21460 StackAdj> Δ+4 {}
<Call 0x21460 0x20e12> {}
<MI 21464 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x21466 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x2146a 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x2146e <LVAR -0x012 @>> Δ-4 {[#0]|[#2]|[##1]|[@@-18]}
<Pointer.fp 0x21472 <LVAR -0x016 @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-18]|[@@-22]}
<Call 0x21476 0x1038c> {[#0]|[#2]|[##1]|[@@-18]|[@@-22]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 2147c-21480 StackAdj> Δ+14 {[#0]}
<Call 0x21480 0x104cc> {[#0]}
MemOnly2MB() : Bool
<MI 21486 CMP.B (A7)+,D6> Δ+2 {}
<MI 21488 BEQ 0x214e4> {}
<POP 2148a-2148e Naked> Σ0 ↓ →0x214bc
<MI 2148a TST.B D6> {}
<MI 2148c BEQ 0x214bc> {}
<POP 2148e-214bc Naked> Σ0 →0x214e4
<Blob 0x2148e [54] @> Δ-54 {[«54""»]}
<Const 0x2149a 0xe.2> Δ-2 {[«54""»]|[#14]}
<POP 2149e-214a0 StackAdj> Δ-4 {[«54""»]|[#14]|[-4-]}
<Lit 0x214a0 54> {[«54""»]|[#14]|[$$Dumped processor had more lines than current processor]}
<Call 0x214b0 0x103b8> {[«54""»]|[#14]|[$$Dumped processor had more lines than current processor]}
PopProgram(status : Byte; msg : String)
<POP 214b6-214ba StackAdj> Δ+60 {}
<MI 214ba BRA 0x214e4> {}
<POP 214bc-214e4 Naked> Σ0 ↓ ←0x2148a
<Blob 0x214bc [64] @> Δ-64 {[«64""»]}
<POP 214c8-214ca StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x214ca 64> {[«64""»]|[$$Warning: Dumped processor had fewer lines than current processor]}
<Call 0x214da 0x103e0> {[«64""»]|[$$Warning: Dumped processor had fewer lines than current processor]}
WriteConsoleStringCrLf(str : String)
<POP 214e0-214e4 StackAdj> Δ+68 {}
<POP 214e4-214e8 Naked> Σ0 ↓ ←0x2145e ←0x2148e
<MI 214e4 MOVEQ.L #0x00,D7> {}
<MI 214e6 MOVEQ.L #0x0c,D5> {}
<POP 214e8-21500 Naked> Σ0 ↓ →0x215c6 ←0x215c6
<MI 214e8 LEA.L 0x228e8,A0> {}
<POP 214ea-214ec StackAdj> Δ-2 {[-2-]}
<MI 214ec MOVE.B D5,-(A7)> Δ-2 {[-2-]|[2, 'D5']}
<Call 0x214ee 0x104c0> {[-2-]|[2, 'D5']}
HasBoard(diproc_addr: Byte) : Byte
<POP 214f4-214f6 StackAdj> Δ+2 {[-2-]}
<MI 214f6 MOVE.B (A0+D7.L+#0x20),D0> {[-2-]}
<MI 214fa CMP.B (A7)+,D0> Δ+2 {}
<MI 214fc BEQ 0x215c6> {}
<POP 21500-21506 Naked> Σ0 ↓ →0x21566
<MI 21500 TST.B (A0+D7.L+#0x20)> {}
<MI 21504 BEQ 0x21566> {}
<POP 21506-21566 Naked> Σ0 →0x215c6
<Blob 0x21506 [2] @> Δ-2 {[«2""»]}
<Blob 0x2150a [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x2150e [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<Blob 0x21512 [58] @> Δ-58 {[«2""»]|[«2""»]|[«2""»]|[«58""»]}
<Const 0x21524 0xe.2> Δ-2 {[«2""»]|[«2""»]|[«2""»]|[«58""»]|[#14]}
<POP 21528-2152a StackAdj> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[«58""»]|[#14]|[-8-]}
<Lit 0x2152a 6> {[«2""»]|[«2""»]|[«2""»]|[«58""»]|[#14]|[-4-]|[$$Board_]}
<MI 21538 MOVE.L D7,(A7)> {[«2""»]|[«2""»]|[«2""»]|[«58""»]|[#14]|[-4-]|[4, 'D7']}
<POP 21536-21538 StackAdj> Δ-8 {[«2""»]|[«2""»]|[«2""»]|[«58""»]|[#14]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x2153a 0x102e4> {[«2""»]|[«2""»]|[«2""»]|[«58""»]|[#14]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x21540 57> {[«2""»]|[«2""»]|[«2""»]|[«58""»]|[#14]|[-4-]|[4, 'D7']|[-4-]|[$$ exists on dumped processor, but not on current processor]}
<Call 0x21550 0x102d4> {[«2""»]|[«2""»]|[«2""»]|[«58""»]|[#14]|[-4-]|[4, 'D7']|[-4-]|[$$ exists on dumped processor, but not on current processor]}
StringCat3(a, b, c : String) : String
<POP 21556-2155a StackAdj> Δ+12 {[«2""»]|[«2""»]|[«2""»]|[«58""»]|[#14]|[-4-]}
<Call 0x2155a 0x103b8> {[«2""»]|[«2""»]|[«2""»]|[«58""»]|[#14]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 21560-21564 StackAdj> Δ+70 {}
<MI 21564 BRA 0x215c6> {}
<POP 21566-215c6 Naked> Σ0 ↓ ←0x21500
<Blob 0x21566 [16] @> Δ-16 {[«16""»]}
<Blob 0x21578 [58] @> Δ-58 {[«16""»]|[«58""»]}
<POP 2158a-2158c StackAdj> Δ-8 {[«16""»]|[«58""»]|[-8-]}
<Lit 0x2158c 15> {[«16""»]|[«58""»]|[-4-]|[$$Warning: Board_]}
<MI 2159a MOVE.L D7,(A7)> {[«16""»]|[«58""»]|[-4-]|[4, 'D7']}
<POP 21598-2159a StackAdj> Δ-8 {[«16""»]|[«58""»]|[-4-]|[4, 'D7']|[-8-]}
<Call 0x2159c 0x102e4> {[«16""»]|[«58""»]|[-4-]|[4, 'D7']|[-8-]}
Long2String(a : Long) : String
<Lit 0x215a2 57> {[«16""»]|[«58""»]|[-4-]|[4, 'D7']|[-4-]|[$$ exists on current processor, but not on dumped processor]}
<Call 0x215b2 0x102d4> {[«16""»]|[«58""»]|[-4-]|[4, 'D7']|[-4-]|[$$ exists on current processor, but not on dumped processor]}
StringCat3(a, b, c : String) : String
<POP 215b8-215bc StackAdj> Δ+12 {[«16""»]|[«58""»]|[-4-]}
<Call 0x215bc 0x103e0> {[«16""»]|[«58""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 215c2-215c6 StackAdj> Δ+78 {}
<POP 215c6-215d2 Naked> Σ0 ↓ →0x214e8 ←0x214e8 ←0x21506
<MI 215c6 ADDQ.L #0x1,D7> {}
<MI 215c8 ADDQ.B #0x1,D5> {}
<MI 215ca CMPI.B #0x0f,D5> {}
<MI 215ce BLE 0x214e8> {}
<POP 215d2-215d6 Naked> Σ0 ↓ →0x215ec
<MI 215d2 TST.B D6> {}
<MI 215d4 BEQ 0x215ec> {}
<POP 215d6-215ec Naked> Σ0 →0x21600
<MI 215d6 MOVE.L #0x800,0x22910> {}
<MI 215e0 MOVE.L #0x4,0x2290c> {}
<MI 215ea BRA 0x21600> {}
<POP 215ec-21600 Naked> Σ0 ↓ ←0x215d2
<MI 215ec MOVE.L #0x1000,0x22910> {}
<MI 215f6 MOVE.L #0x8,0x2290c> {}
<POP 21600-21608 Naked> Σ0 ↓ ←0x215d6
<MI 21600 CLR.L 0x22914> {}
<MI 21606 MOVEQ.L #0x00,D7> {}
<POP 21608-2162e Naked> Σ0 ↓ →0x21608 ←0x21608
<MI 21608 LEA.L 0x228e8,A0> {}
<MI 2160a MOVE.B (A0+D7.L+#0x20),D4> {}
<MI 2160e EXTB.W D4> {}
<MI 21610 EXTW.L D4> {}
<MI 21612 MOVE.L 0x2290c,D3> {}
<Call 0x21618 0x1028c> {}
?muls_d3_d4
<MI 2161e ADD.L D4,0x22914> {}
<MI 21624 ADDQ.L #0x1,D7> {}
<MI 21626 CMPI.L #0x00000003,D7> {}
<MI 2162c BLE 0x21608> {}
<POP 2162e-21646 Naked> Σ0 ↓
<MI 2162e MOVE.L 0x22910,D4> {}
<MI 21634 MOVE.L 0x22914,D3> {}
<Call 0x2163a 0x1028c> {}
?muls_d3_d4
<MI 21640 MOVE.W D4,0x22918> {}
<POP 21646-2164e Epilogue> Σ0
@ 2164e
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x003 @>
<LVAR -0x004 @ 1(r)>
<POP 2164e-217b2 Body>
<POP 2164e-21664 Prologue> Σ0 ↓
<POP 21664-21680 RegCacheLoad> Σ0 ↓
<POP 21680-21688 Naked> Σ0 Δ-4 ↓
<MI 21680 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 21684 SUBQ.L #0x1,(A7)> {[-4-]}
<MI 21686 MOVEQ.L #0x00,D6> {[-4-]}
<POP 21688-2168e Naked> Σ-4 ↓ →0x217a8 ←0x217a2
<MI 21688 CMP.L (A7),D6> {[-4-]}
<MI 2168a BGT 0x217a8> {[-4-]}
<POP 2168e-2169a Naked> Σ-4 ↓ →0x216ce
<Call 0x2168e 0x20db2> {[-4-]}
<MI 21692 MOVEA.L (A6+0x8),A0> {[-4-]}
<MI 21696 CMPA.W #0x01,A0> {[-4-]}
<MI 21698 BEQ 0x216ce> {[-4-]}
<POP 2169a-216ce Naked> Σ-4 ↓
<MI 2169a MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<MI 2169c MOVE.W D6,-(A7)> Δ-2 {[-4-]|[4, 'A0']|[2, 'D6']}
<MI 2169e CLR.W -(A7)> Δ-2 {[-4-]|[4, 'A0']|[2, 'D6']|[#0]}
<Const 0x216a0 0x200.2> Δ-2 {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]}
<Const 0x216a4 0x2.2> Δ-2 {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 216a8 MOVE.L 0x228f0,D0> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 216aa ASL.L #0x8,D0> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 216ac ASL.L #0x5,D0> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 216ae LEA.L 0x228e8,A0> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 216b0 MOVE.L 0x228f4,D1> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 216b2 ASL.L #0x8,D1> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 216b4 ASL.L #0x2,D1> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 216b6 LEA.L (A0+D0.L),A0> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 216ba LEA.L (A0+D1.L+#0x68),A0> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 216be MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x216c0 <LVAR -0x003 @>> Δ-4 {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-3]}
<Call 0x216c4 0x10388> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-3]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 216ca-216ce StackAdj> Δ+20 {[-4-]}
<POP 216ce-21712 Naked> Σ-4 ↓ →0x21736 ←0x2168e
<MI 216ce MOVE.L 0x228f0,D0> {[-4-]}
<MI 216d0 ASL.L #0x8,D0> {[-4-]}
<MI 216d2 ASL.L #0x5,D0> {[-4-]}
<MI 216d4 LEA.L 0x228e8,A0> {[-4-]}
<MI 216d6 MOVE.L 0x228f4,D1> {[-4-]}
<MI 216d8 ASL.L #0x8,D1> {[-4-]}
<MI 216da ASL.L #0x2,D1> {[-4-]}
<MI 216dc LEA.L (A0+D0.L),A0> {[-4-]}
<MI 216e0 LEA.L (A0+D1.L+#0x68),A0> {[-4-]}
<MI 216e4 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<Blob 0x216e6 [4] 0x269b2> Δ-4 {[-4-]|[4, 'A0']|[«4»]}
<Const 0x216ec 0x400.2> Δ-2 {[-4-]|[4, 'A0']|[«4»]|[#1024]}
<Call 0x216f0 0x10238> {[-4-]|[4, 'A0']|[«4»]|[#1024]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 216f6-216f8 StackAdj> Δ+10 {[-4-]}
<MI 216f8 LEA.L 0x2291e,A0> {[-4-]}
<MI 216fe MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<MI 21700 CLR.W -(A7)> Δ-2 {[-4-]|[4, 'A0']|[#0]}
<Call 0x21702 0x1023c> {[-4-]|[4, 'A0']|[#0]}
KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word)
<POP 21708-2170a StackAdj> Δ+6 {[-4-]}
<MI 2170a TST.W 0x22944> {[-4-]}
<MI 21710 BEQ 0x21736> {[-4-]}
<POP 21712-2172e Naked> Σ-4 ↓ →0x21736
<MI 21712 CLR.L D0> {[-4-]}
<MI 21714 MOVE.W 0x2292c,D0> {[-4-]}
<MI 2171a CLR.L D1> {[-4-]}
<MI 2171c MOVE.W 0x22944,D1> {[-4-]}
<MI 21722 ADD.L D0,D1> {[-4-]}
<MI 21724 MOVE.W D1,0x2292c> {[-4-]}
<MI 2172a TST.W D1> {[-4-]}
<MI 2172c BNE 0x21736> {[-4-]}
<POP 2172e-21736 Naked> Σ-4 ↓
<MI 2172e CLR.L D0> {[-4-]}
<MI 21730 MOVE.W 0x2292a,D0> {[-4-]}
<MI 21732 ADDQ.L #0x1,D0> {[-4-]}
<MI 21734 MOVE.W D0,0x2292a> {[-4-]}
<POP 21736-2174c Naked> Σ-4 ↓ ←0x216ce ←0x21712
<MI 21736 CLR.L D0> {[-4-]}
<MI 21738 MOVE.W 0x2292a,D0> {[-4-]}
<MI 2173a CLR.L D1> {[-4-]}
<MI 2173c MOVE.W 0x22942,D1> {[-4-]}
<MI 21742 ADD.L D0,D1> {[-4-]}
<MI 21744 MOVE.W D1,0x2292a> {[-4-]}
<MI 21746 MOVE.L #0xfffffc18,D7> {[-4-]}
<POP 2174c-2176a Naked> Σ-4 ↓ →0x2176e ←0x2176a
<MI 2174c LEA.L 0x2292e,A0> {[-4-]}
<MI 21752 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<MI 21754 CLR.W -(A7)> Δ-2 {[-4-]|[4, 'A0']|[#0]}
<Pointer.fp 0x21756 <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[4, 'A0']|[#0]|[@@-4]}
<Call 0x2175a 0x1023e> {[-4-]|[4, 'A0']|[#0]|[@@-4]}
KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool)
<POP 21760-21762 StackAdj> Δ+10 {[-4-]}
<MI 21762 ADDQ.L #0x1,D7> {[-4-]}
<MI 21764 TST.B (A6-0x4)> {[-4-]}
<MI 21768 BNE 0x2176e> {[-4-]}
<POP 2176a-2176e Naked> Σ-4 ↓ →0x2174c
<MI 2176a TST.L D7> {[-4-]}
<MI 2176c BNE 0x2174c> {[-4-]}
<POP 2176e-21774 Naked> Σ-4 ↓ →0x217a2 ←0x2174c
<MI 2176e TST.B (A6-0x4)> {[-4-]}
<MI 21772 BNE 0x217a2> {[-4-]}
<POP 21774-217a2 Naked> Σ-4 ↓
<Blob 0x21774 [22] @> Δ-22 {[-4-]|[«22""»]}
<Const 0x21780 0xe.2> Δ-2 {[-4-]|[«22""»]|[#14]}
<POP 21784-21786 StackAdj> Δ-4 {[-4-]|[«22""»]|[#14]|[-4-]}
<Lit 0x21786 22> {[-4-]|[«22""»]|[#14]|[$$No response from R1000]}
<Call 0x21798 0x103b8> {[-4-]|[«22""»]|[#14]|[$$No response from R1000]}
PopProgram(status : Byte; msg : String)
<POP 2179e-217a2 StackAdj> Δ+28 {[-4-]}
<POP 217a2-217a8 Naked> Σ-4 ↓ →0x21688 ←0x2176e
<MI 217a2 ADDQ.L #0x1,D6> {[-4-]}
<MI 217a4 BVC 0x21688> {[-4-]}
<POP 217a8-217aa Naked> Σ-4 Δ+4 ↓ ←0x21688
<POP 217a8-217aa StackAdj> Δ+4 {}
<POP 217aa-217b2 Epilogue> Σ0
@ 217b2
<LVAR 0x00e 4(r)>
<LVAR 0x00c 2(r)>
<LVAR 0x00a 2(r)>
<POP 217b2-2184c Body>
<POP 217b2-217c8 Prologue> Σ0 ↓
<POP 217c8-21844 Naked> Σ0 ↓
<Call 0x217c8 0x20c04> {}
<MI 217cc MOVE.L (A6+0xe),-(A7)> Δ-4 {[4, '(A6+0xe)']}
<MI 217d0 CLR.L D0> {[4, '(A6+0xe)']}
<MI 217d2 MOVE.W (A6+0xc),D0> {[4, '(A6+0xe)']}
<MI 217d6 MOVE.L D0,-(A7)> Δ-4 {[4, '(A6+0xe)']|[4, 'D0']}
<Call 0x217d8 0x20cce> {[4, '(A6+0xe)']|[4, 'D0']}
<POP 217dc-217de StackAdj> Δ+8 {}
<MI 217de MOVE.W 0x22906,D0> {}
<MI 217e4 EXTW.L D0> {}
<MI 217e6 MOVE.L D0,D1> {}
<MI 217e8 ASL.L #0x8,D1> {}
<MI 217ea ASL.L #0x4,D1> {}
<MI 217ec ADDQ.W #0x4,D0> {}
<MI 217ee EXTW.L D0> {}
<MI 217f0 ASL.L #0x8,D0> {}
<MI 217f2 ADD.L D1,D0> {}
<MI 217f4 ADDI.L #0x00000080,D0> {}
<MI 217fa MOVE.W D0,0x2291e> {}
<MI 21800 CLR.W 0x22920> {}
<MI 21806 CLR.W 0x22922> {}
<MI 2180c MOVE.W (A6+0xa),0x22924> {}
<MI 21814 CLR.W 0x22926> {}
<MI 2181a CLR.W 0x22928> {}
<MI 21820 CLR.W 0x2292a> {}
<MI 21826 CLR.W 0x2292c> {}
<MI 2182c CLR.W 0x2293e> {}
<MI 21832 CLR.W 0x22940> {}
<MI 21838 CLR.W 0x22942> {}
<MI 2183e CLR.W 0x22944> {}
<POP 21844-2184c Epilogue> Σ0
@ 2184c
<LVAR -0x003 1(r)>
<LVAR -0x004 1(r)>
<LVAR -0x005 1(r)>
<LVAR -0x006 @ 1(r)>
<LVAR -0x00c @>
<LVAR -0x010 @ 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 2184c-21952 Body>
<POP 2184c-21862 Prologue> Σ0 ↓
<POP 21862-21870 RegCacheLoad> Σ0 ↓
<POP 21870-218d6 Naked> Σ0 ↓ →0x218da
<Blob 0x21870 [20] @> Δ-20 {[«20""»]}
<POP 2187c-2187e StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2187e 20> {[«20""»]|[$$CRASH_DUMP.REGISTERS]}
<MI 2188e MOVE.L (A7)+,(A6-0x14)> Δ+4 {[«20""»]}
<POP 21890-21892 StackAdj> Δ+20 {}
<MI 21892 MOVEQ.L #0x10,D7> {}
<POP 21894-21896 StackAdj> Δ-4 {[-4-]}
<MI 21896 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x14)']}
<Call 0x21898 0x102cc> {[-4-]|[4, '(A6-0x14)']}
StringDup(a : String) : String
<POP 2189e-218a0 StackAdj> Δ+2 {[-4-]|[-2-]}
<MI 218a0 MOVE.W D7,(A7)> {[-4-]|[2, 'D7']}
<Const 0x218a2 0x600.4> Δ-4 {[-4-]|[2, 'D7']|[##1536]}
<Call 0x218a6 0x217b2> {[-4-]|[2, 'D7']|[##1536]}
<POP 218aa-218ac StackAdj> Δ+6 {[-4-]}
<MI 218ac MOVE.L (A6-0x14),(A7)> {[4, '(A6-0x14)']}
<Const 0x218ae 0x1.2> Δ-2 {[4, '(A6-0x14)']|[#1]}
<Const 0x218b0 0x2.2> Δ-2 {[4, '(A6-0x14)']|[#1]|[#2]}
<MI 218b2 MOVE.L D7,-(A7)> Δ-4 {[4, '(A6-0x14)']|[#1]|[#2]|[4, 'D7']}
<Pointer.fp 0x218b4 <LVAR -0x00c @>> Δ-4 {[4, '(A6-0x14)']|[#1]|[#2]|[4, 'D7']|[@@-12]}
<Pointer.fp 0x218b8 <LVAR -0x010 @ 4(r)>> Δ-4 {[4, '(A6-0x14)']|[#1]|[#2]|[4, 'D7']|[@@-12]|[@@-16]}
<Call 0x218ba 0x10380> {[4, '(A6-0x14)']|[#1]|[#2]|[4, 'D7']|[@@-12]|[@@-16]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 218c0-218c2 StackAdj> Δ+20 {}
<MI 218c2 MOVEA.L (A6-0x10),A0> {}
<MI 218c4 ANDI.B #0xfd,(A0+0x3f)> {}
<MI 218ca MOVE.B 0x2697e,D0> {}
<MI 218d0 CMPI.B #0x44,D0> {}
<MI 218d4 BEQ 0x218da> {}
<POP 218d6-218da Naked> Σ0 ↓
<MI 218d6 OR.B #0x02,(A0+0x3f)> {}
<POP 218da-218e6 Naked> Σ0 ↓ →0x218ec ←0x21870
<MI 218da ANDI.B #0xfb,(A0+0x3f)> {}
<MI 218e0 CMPI.B #0x4b,D0> {}
<MI 218e4 BNE 0x218ec> {}
<POP 218e6-218ec Naked> Σ0 ↓
<MI 218e6 ORI.B #0x04,(A0+0x3f)> {}
<POP 218ec-2194a Naked> Σ0 ↓ ←0x218da
<Pointer.fp 0x218ec <LVAR -0x006 @ 1(r)>> Δ-4 {[@@-6]}
<Call 0x218f0 0x20f26> {[@@-6]}
<POP 218f4-218f6 StackAdj> Δ+4 {}
<MI 218f6 MOVE.B (A6-0x6),(A0+0x3a)> {}
<MI 218fc MOVE.B (A6-0x5),(A0+0x3b)> {}
<MI 21902 MOVE.B (A6-0x4),(A0+0x3c)> {}
<MI 21908 MOVE.B (A6-0x3),(A0+0x3d)> {}
<MI 2190e MOVE.B #0x01,(A0+0x4c)> {}
<Pointer.fp 0x21912 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x21914 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 2191a-2191c StackAdj> Δ+4 {}
<MI 2191c MOVE.W #0x40,0x22944> {}
<MI 21924 MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<MI 21926 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, 'D7']|[4, '(A6-0x10)']}
<Call 0x21928 0x2164e> {[4, 'D7']|[4, '(A6-0x10)']}
<POP 2192c-2192e StackAdj> Δ+6 {[-2-]}
<MI 2192e CLR.B (A7)> {[-2-]}
<Const 0x21930 0x2.2> Δ-2 {[-2-]|[#2]}
<Const 0x21932 0x1.4> Δ-4 {[-2-]|[#2]|[##1]}
<Pointer.fp 0x21936 <LVAR -0x00c @>> Δ-4 {[-2-]|[#2]|[##1]|[@@-12]}
<Pointer.fp 0x2193a <LVAR -0x010 @ 4(r)>> Δ-4 {[-2-]|[#2]|[##1]|[@@-12]|[@@-16]}
<Call 0x2193c 0x1038c> {[-2-]|[#2]|[##1]|[@@-12]|[@@-16]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 21942-21946 StackAdj> Δ+16 {}
<Call 0x21946 0x20e12> {}
<POP 2194a-21952 Epilogue> Σ0
@ 21952
<POP 21952-219a2 Body> Δ+2
<POP 21952-21968 Prologue> Σ0 ↓
<POP 21968-21970 Naked> Σ0 ↓ →0x21984
<MI 21968 TST.B 0x228fa> {}
<MI 2196e BEQ 0x21984> {}
<POP 21970-2197e Naked> Σ0 ↓ →0x21984
<MI 21970 MOVE.L 0x228fc,D0> {}
<MI 21976 CMPI.L #0x00000001,D0> {}
<MI 2197c BLE 0x21984> {}
<POP 2197e-21984 Naked> Σ0 Δ-2 →0x21988
<Const 0x2197e 0x7.2> Δ-2 {[#7]}
<MI 21982 BRA 0x21988> {[#7]}
<POP 21984-21988 Naked> Σ0 Δ-2 ↓ ←0x21968 ←0x21970
<Const 0x21984 0x6.2> Δ-2 {[#6]}
<POP 21988-2199a Naked> Σ-2 Δ+2 ↓ ←0x2197e
<Const 0x21988 0x2294e.4> Δ-4 {[-2-]|[##141646]}
<Call 0x2198e 0x10414> {[-2-]|[##141646]}
FSCALL_10414
<POP 21994-21996 StackAdj> Δ+6 {}
<Call 0x21996 0x206b4> {}
<POP 2199a-219a2 Epilogue> Σ0
@ 219a2
<POP 219a2-21a6e Body>
<POP 219a2-219b8 Prologue> Σ0 ↓
<POP 219b8-219fa Naked> Σ0 ↓
<Blob 0x219b8 [20] @> Δ-20 {[«20""»]}
<POP 219c4-219c6 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x219c6 20> {[«20""»]|[$$CRASH_DUMP.TAG_STORE]}
<MI 219da MOVE.W 0x22918,D0> {[«20""»]|[$$CRASH_DUMP.TAG_STORE]}
<MI 219e0 LSR.W #0x7,D0> {[«20""»]|[$$CRASH_DUMP.TAG_STORE]}
<MI 219e2 MOVE.W D0,-(A7)> Δ-2 {[«20""»]|[$$CRASH_DUMP.TAG_STORE]|[2, 'D0']}
<Const 0x219e4 0x700.4> Δ-4 {[«20""»]|[$$CRASH_DUMP.TAG_STORE]|[2, 'D0']|[##1792]}
<Call 0x219e8 0x217b2> {[«20""»]|[$$CRASH_DUMP.TAG_STORE]|[2, 'D0']|[##1792]}
<POP 219ec-219f0 StackAdj> Δ+30 {}
<MI 219f0 MOVE.W #0x10,0x22942> {}
<MI 219f8 MOVEQ.L #0x00,D6> {}
<POP 219fa-21a06 Naked> Σ0 ↓ →0x21a58 ←0x21a58
<MI 219fa LEA.L 0x228e8,A0> {}
<MI 21a00 TST.B (A0+D6.L+#0x20)> {}
<MI 21a04 BEQ 0x21a58> {}
<POP 21a06-21a10 Naked> Σ0 Δ-4 ↓
<Blob 0x21a06 [4] 0x2290c> Δ-4 {[«4»]}
<MI 21a0c SUBQ.L #0x1,(A7)> {[-4-]}
<MI 21a0e MOVEQ.L #0x00,D7> {[-4-]}
<POP 21a10-21a14 Naked> Σ-4 ↓ →0x21a56 ←0x21a14
<MI 21a10 CMP.L (A7),D7> {[-4-]}
<MI 21a12 BGT 0x21a56> {[-4-]}
<POP 21a14-21a56 Naked> Σ-4 ↓ →0x21a10
<MI 21a14 CLR.W 0x22926> {[-4-]}
<MI 21a1a MOVE.L D6,D0> {[-4-]}
<MI 21a1c ASL.L #0x2,D0> {[-4-]}
<MI 21a1e ADD.L D7,D0> {[-4-]}
<MI 21a20 ASL.L #0x4,D0> {[-4-]}
<MI 21a22 MOVE.W D0,0x22928> {[-4-]}
<MI 21a28 CLR.W 0x2292a> {[-4-]}
<MI 21a2e CLR.W 0x2292c> {[-4-]}
<MI 21a34 MOVE.L 0x22910,D4> {[-4-]}
<MI 21a3a MOVE.L #0x80,D3> {[-4-]}
<Call 0x21a40 0x10294> {[-4-]}
?divs_d3_d4
<MI 21a46 MOVE.L D4,-(A7)> Δ-4 {[-4-]|[4, 'D4']}
<Const 0x21a48 0x1.4> Δ-4 {[-4-]|[4, 'D4']|[##1]}
<Call 0x21a4c 0x2164e> {[-4-]|[4, 'D4']|[##1]}
<POP 21a50-21a52 StackAdj> Δ+8 {[-4-]}
<MI 21a52 ADDQ.L #0x1,D7> {[-4-]}
<MI 21a54 BVC 0x21a10> {[-4-]}
<POP 21a56-21a58 Naked> Σ-4 Δ+4 ↓ ←0x21a10
<POP 21a56-21a58 StackAdj> Δ+4 {}
<POP 21a58-21a62 Naked> Σ0 ↓ →0x219fa ←0x219fa
<MI 21a58 ADDQ.L #0x1,D6> {}
<MI 21a5a CMPI.L #0x00000003,D6> {}
<MI 21a60 BLE 0x219fa> {}
<POP 21a62-21a66 Naked> Σ0 ↓
<Call 0x21a62 0x20e12> {}
<POP 21a66-21a6e Epilogue> Σ0
@ 21a6e
<POP 21a6e-21b4a Body>
<POP 21a6e-21a84 Prologue> Σ0 ↓
<POP 21a84-21ad4 Naked> Σ0 ↓
<Blob 0x21a84 [18] @> Δ-18 {[«18""»]}
<POP 21a96-21a98 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21a98 17> {[«18""»]|[$$CRASH_DUMP.MEMORY]}
<POP 21aaa-21aac StackAdj> Δ-2 {[«18""»]|[$$CRASH_DUMP.MEMORY]|[-2-]}
<POP 21aac-21aad StackAdj> Δ+2 {[«18""»]|[$$CRASH_DUMP.MEMORY]}
<Blob 0x21aad [2] 0x22918> Δ-2 {[«18""»]|[$$CRASH_DUMP.MEMORY]|[«2»]}
<Const 0x21ab2 0x800.4> Δ-4 {[«18""»]|[$$CRASH_DUMP.MEMORY]|[«2»]|[##2048]}
<Call 0x21ab6 0x217b2> {[«18""»]|[$$CRASH_DUMP.MEMORY]|[«2»]|[##2048]}
<POP 21aba-21abe StackAdj> Δ+28 {}
<MI 21abe MOVE.W #0x2000,0x22944> {}
<Const 0x21ac6 0x20.2> Δ-2 {[#32]}
<Call 0x21aca 0x103d0> {[#32]}
WriteConsoleChar(chr : char)
<POP 21ad0-21ad2 StackAdj> Δ+2 {}
<MI 21ad2 MOVEQ.L #0x00,D6> {}
<POP 21ad4-21ae0 Naked> Σ0 ↓ →0x21b34 ←0x21b34
<MI 21ad4 LEA.L 0x228e8,A0> {}
<MI 21ada TST.B (A0+D6.L+#0x20)> {}
<MI 21ade BEQ 0x21b34> {}
<POP 21ae0-21aea Naked> Σ0 Δ-4 ↓
<Blob 0x21ae0 [4] 0x2290c> Δ-4 {[«4»]}
<MI 21ae6 SUBQ.L #0x1,(A7)> {[-4-]}
<MI 21ae8 MOVEQ.L #0x00,D7> {[-4-]}
<POP 21aea-21aee Naked> Σ-4 ↓ →0x21b32 ←0x21aee
<MI 21aea CMP.L (A7),D7> {[-4-]}
<MI 21aec BGT 0x21b32> {[-4-]}
<POP 21aee-21b32 Naked> Σ-4 ↓ →0x21aea
<MI 21aee MOVE.L D6,D0> {[-4-]}
<MI 21af0 ASL.L #0x2,D0> {[-4-]}
<MI 21af2 ADD.L D7,D0> {[-4-]}
<MI 21af4 LEA.L 0x203fa,A0> {[-4-]}
<MI 21af8 MOVE.B (A0+D0.L),-(A7)> Δ-2 {[-4-]|[2, '(A0+D0.L)']}
<Call 0x21afc 0x103d0> {[-4-]|[2, '(A0+D0.L)']}
WriteConsoleChar(chr : char)
<POP 21b02-21b04 StackAdj> Δ+2 {[-4-]}
<MI 21b04 CLR.W 0x22926> {[-4-]}
<MI 21b0a ASL.L #0x4,D0> {[-4-]}
<MI 21b0c MOVE.W D0,0x22928> {[-4-]}
<MI 21b12 CLR.W 0x2292a> {[-4-]}
<MI 21b18 CLR.W 0x2292c> {[-4-]}
<Blob 0x21b1e [4] 0x22910> Δ-4 {[-4-]|[«4»]}
<Const 0x21b24 0x1.4> Δ-4 {[-4-]|[«4»]|[##1]}
<Call 0x21b28 0x2164e> {[-4-]|[«4»]|[##1]}
<POP 21b2c-21b2e StackAdj> Δ+8 {[-4-]}
<MI 21b2e ADDQ.L #0x1,D7> {[-4-]}
<MI 21b30 BVC 0x21aea> {[-4-]}
<POP 21b32-21b34 Naked> Σ-4 Δ+4 ↓ ←0x21aea
<POP 21b32-21b34 StackAdj> Δ+4 {}
<POP 21b34-21b3e Naked> Σ0 ↓ →0x21ad4 ←0x21ad4
<MI 21b34 ADDQ.L #0x1,D6> {}
<MI 21b36 CMPI.L #0x00000003,D6> {}
<MI 21b3c BLE 0x21ad4> {}
<POP 21b3e-21b42 Naked> Σ0 ↓
<Call 0x21b3e 0x20e12> {}
<POP 21b42-21b4a Epilogue> Σ0
@ 21b4a
<LVAR -0x002 @ 1(r)>
<LVAR -0x008 @>
<LVAR -0x00c @ 4(r)>
<POP 21b4a-21cac Body>
<POP 21b4a-21b60 Prologue> Σ0 ↓
<POP 21b60-21b7a RegCacheLoad> Σ0 ↓
<POP 21b7a-21bec Naked> Σ0 ↓
<Blob 0x21b7a [4] 0x2294a> Δ-4 {[«4»]}
<MI 21b7c CLR.B -(A7)> Δ-2 {[«4»]|[#0]}
<Const 0x21b7e 0x2.2> Δ-2 {[«4»]|[#0]|[#2]}
<Const 0x21b80 0x0.4> Δ-4 {[«4»]|[#0]|[#2]|[##0]}
<Pointer.fp 0x21b84 <LVAR -0x008 @>> Δ-4 {[«4»]|[#0]|[#2]|[##0]|[@@-8]}
<Pointer.fp 0x21b86 <LVAR -0x00c @ 4(r)>> Δ-4 {[«4»]|[#0]|[#2]|[##0]|[@@-8]|[@@-12]}
<Call 0x21b88 0x10380> {[«4»]|[#0]|[#2]|[##0]|[@@-8]|[@@-12]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 21b8e-21b90 StackAdj> Δ+20 {}
<Const 0x21b90 0x2294a.4> Δ-4 {[##141642]}
<Call 0x21b92 0x102bc> {[##141642]}
FreeString(VAR a : String)
<POP 21b98-21b9a StackAdj> Δ+4 {}
<MI 21b9a MOVE.W #0x900,0x22924> {}
<MI 21ba2 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Const 0x21ba4 0x9.2> Δ-2 {[4, '(A6-0xc)']|[#9]}
<MI 21ba8 CLR.W -(A7)> Δ-2 {[4, '(A6-0xc)']|[#9]|[#0]}
<Const 0x21baa 0x200.2> Δ-2 {[4, '(A6-0xc)']|[#9]|[#0]|[#512]}
<Const 0x21bae 0x2.2> Δ-2 {[4, '(A6-0xc)']|[#9]|[#0]|[#512]|[#2]}
<MI 21bb0 LEA.L 0x22950,A0> {[4, '(A6-0xc)']|[#9]|[#0]|[#512]|[#2]}
<MI 21bb2 MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0xc)']|[#9]|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x21bb4 <LVAR -0x008 @>> Δ-4 {[4, '(A6-0xc)']|[#9]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-8]}
<Call 0x21bb6 0x10384> {[4, '(A6-0xc)']|[#9]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-8]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 21bbc-21bbe StackAdj> Δ+20 {}
<MI 21bbe LEA.L 0x22950,A0> {}
<MI 21bc0 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x21bc2 [4] 0x269b2> Δ-4 {[4, 'A0']|[«4»]}
<Const 0x21bc8 0x400.2> Δ-2 {[4, 'A0']|[«4»]|[#1024]}
<Call 0x21bcc 0x10238> {[4, 'A0']|[«4»]|[#1024]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 21bd2-21bd4 StackAdj> Δ+10 {}
<MI 21bd4 LEA.L 0x2291e,A0> {}
<MI 21bda MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 21bdc CLR.W -(A7)> Δ-2 {[4, 'A0']|[#0]}
<Call 0x21bde 0x1023c> {[4, 'A0']|[#0]}
KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word)
<POP 21be4-21be6 StackAdj> Δ+6 {}
<MI 21be6 MOVE.L #0xfffffc18,D7> {}
<POP 21bec-21c0a Naked> Σ0 ↓ →0x21c0e ←0x21c0a
<MI 21bec LEA.L 0x2292e,A0> {}
<MI 21bf2 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 21bf4 CLR.W -(A7)> Δ-2 {[4, 'A0']|[#0]}
<Pointer.fp 0x21bf6 <LVAR -0x002 @ 1(r)>> Δ-4 {[4, 'A0']|[#0]|[@@-2]}
<Call 0x21bfa 0x1023e> {[4, 'A0']|[#0]|[@@-2]}
KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool)
<POP 21c00-21c02 StackAdj> Δ+10 {}
<MI 21c02 ADDQ.L #0x1,D7> {}
<MI 21c04 TST.B (A6-0x2)> {}
<MI 21c08 BNE 0x21c0e> {}
<POP 21c0a-21c0e Naked> Σ0 ↓ →0x21bec
<MI 21c0a TST.L D7> {}
<MI 21c0c BNE 0x21bec> {}
<POP 21c0e-21c14 Naked> Σ0 ↓ →0x21c44 ←0x21bec
<MI 21c0e TST.B (A6-0x2)> {}
<MI 21c12 BNE 0x21c44> {}
<POP 21c14-21c44 Naked> Σ0 ↓
<Blob 0x21c14 [22] @> Δ-22 {[«22""»]}
<Const 0x21c20 0xe.2> Δ-2 {[«22""»]|[#14]}
<POP 21c24-21c26 StackAdj> Δ-4 {[«22""»]|[#14]|[-4-]}
<Lit 0x21c26 22> {[«22""»]|[#14]|[$$No response from R1000]}
<Call 0x21c3a 0x103b8> {[«22""»]|[#14]|[$$No response from R1000]}
PopProgram(status : Byte; msg : String)
<POP 21c40-21c44 StackAdj> Δ+28 {}
<POP 21c44-21ca4 Naked> Σ0 ↓ ←0x21c0e
<MI 21c44 MOVE.W #0xa00,0x22924> {}
<MI 21c4c MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Const 0x21c4e 0xa.2> Δ-2 {[4, '(A6-0xc)']|[#10]}
<MI 21c50 CLR.W -(A7)> Δ-2 {[4, '(A6-0xc)']|[#10]|[#0]}
<Const 0x21c52 0x200.2> Δ-2 {[4, '(A6-0xc)']|[#10]|[#0]|[#512]}
<Const 0x21c56 0x2.2> Δ-2 {[4, '(A6-0xc)']|[#10]|[#0]|[#512]|[#2]}
<MI 21c58 LEA.L 0x22950,A0> {[4, '(A6-0xc)']|[#10]|[#0]|[#512]|[#2]}
<MI 21c5a MOVE.L A0,-(A7)> Δ-4 {[4, '(A6-0xc)']|[#10]|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x21c5c <LVAR -0x008 @>> Δ-4 {[4, '(A6-0xc)']|[#10]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-8]}
<Call 0x21c5e 0x10384> {[4, '(A6-0xc)']|[#10]|[#0]|[#512]|[#2]|[4, 'A0']|[@@-8]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 21c64-21c66 StackAdj> Δ+20 {}
<MI 21c66 LEA.L 0x22950,A0> {}
<MI 21c68 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x21c6a [4] 0x269b2> Δ-4 {[4, 'A0']|[«4»]}
<Const 0x21c70 0x400.2> Δ-2 {[4, 'A0']|[«4»]|[#1024]}
<Call 0x21c74 0x10238> {[4, 'A0']|[«4»]|[#1024]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 21c7a-21c7c StackAdj> Δ+10 {}
<MI 21c7c LEA.L 0x2291e,A0> {}
<MI 21c82 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 21c84 CLR.W -(A7)> Δ-2 {[4, 'A0']|[#0]}
<Call 0x21c86 0x1023c> {[4, 'A0']|[#0]}
KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word)
<POP 21c8c-21c8e StackAdj> Δ+4 {[-2-]}
<MI 21c8e CLR.B (A7)> {[-2-]}
<Const 0x21c90 0x2.2> Δ-2 {[-2-]|[#2]}
<Const 0x21c92 0x1.4> Δ-4 {[-2-]|[#2]|[##1]}
<Pointer.fp 0x21c96 <LVAR -0x008 @>> Δ-4 {[-2-]|[#2]|[##1]|[@@-8]}
<Pointer.fp 0x21c98 <LVAR -0x00c @ 4(r)>> Δ-4 {[-2-]|[#2]|[##1]|[@@-8]|[@@-12]}
<Call 0x21c9a 0x1038c> {[-2-]|[#2]|[##1]|[@@-8]|[@@-12]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 21ca0-21ca4 StackAdj> Δ+16 {}
<POP 21ca4-21cac Epilogue> Σ0
@ 21cac
<LVAR 0x018 4(w)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(rw)>
<LVAR -0x008 @ 4(rw)>
<LVAR -0x00c @ 4(rw)>
<LVAR -0x010 @ 4(rw)>
<POP 21cac-21e5e Body>
<POP 21cac-21cc2 Prologue> Σ0 ↓
<POP 21cc2-21cd6 RegCacheLoad> Σ0 ↓
<POP 21cd6-21da0 Naked> Σ0 ↓
<Blob 0x21cd6 [2] @> Δ-2 {[«2""»]}
<POP 21cda-21cdc StackAdj> Δ-4 {[«2""»]|[-4-]}
<MI 21cdc MOVE.L (A6+0x14),-(A7)> Δ-4 {[«2""»]|[-4-]|[4, '(A6+0x14)']}
<POP 21ce0-21ce2 StackAdj> Δ-4 {[«2""»]|[-4-]|[4, '(A6+0x14)']|[-4-]}
<Lit 0x21ce2 2> {[«2""»]|[-4-]|[4, '(A6+0x14)']|[$$ (]}
<Call 0x21cee 0x102d0> {[«2""»]|[-4-]|[4, '(A6+0x14)']|[$$ (]}
StringCat2(a, b : String) : String
<POP 21cf0-21cf2 StackAdj> Δ+8 {[«2""»]|[-4-]}
<MI 21cf2 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«2""»]}
<POP 21cf4-21cf6 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 21cf6 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6-0x10)']}
<POP 21cf8-21cfa StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]}
<MI 21cfa MOVE.L (A6+0x10),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]|[4, '(A6+0x10)']}
<Call 0x21cfe 0x102e4> {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]|[4, '(A6+0x10)']}
Long2String(a : Long) : String
<POP 21d04-21d06 StackAdj> Δ+4 {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]}
<Call 0x21d06 0x102d0> {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]}
StringCat2(a, b : String) : String
<POP 21d08-21d0a StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 21d0a MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<Blob 0x21d0c [2] @> Δ-2 {[«2""»]}
<POP 21d10-21d12 StackAdj> Δ-4 {[«2""»]|[-4-]}
<MI 21d12 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«2""»]|[-4-]|[4, '(A6-0x10)']}
<POP 21d14-21d16 StackAdj> Δ-4 {[«2""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x21d16 2> {[«2""»]|[-4-]|[4, '(A6-0x10)']|[$$..]}
<Call 0x21d22 0x102d0> {[«2""»]|[-4-]|[4, '(A6-0x10)']|[$$..]}
StringCat2(a, b : String) : String
<POP 21d24-21d26 StackAdj> Δ+8 {[«2""»]|[-4-]}
<MI 21d26 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«2""»]}
<POP 21d28-21d2a StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 21d2a MOVE.L (A6-0x10),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6-0x10)']}
<POP 21d2c-21d2e StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]}
<MI 21d2e MOVE.L (A6+0xc),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]|[4, '(A6+0xc)']}
<Call 0x21d32 0x102e4> {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]|[4, '(A6+0xc)']}
Long2String(a : Long) : String
<POP 21d38-21d3a StackAdj> Δ+4 {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]}
<Call 0x21d3a 0x102d0> {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]}
StringCat2(a, b : String) : String
<POP 21d3c-21d3e StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 21d3e MOVE.L (A7),(A6-0x10)> {[«2""»]|[-2-]}
<POP 21d40-21d41 StackAdj> Δ+2 {[«2""»]}
<Blob 0x21d41 [2] @> Δ-2 {[«2""»]|[«2""»]}
<MI 21d44 MOVE.B 0x2046b,(A7+0x1)> {[«2""»]|[«2""»]}
<MI 21d4a MOVE.B 0x2046c,(A7+0x2)> {[«2""»]|[«2""»]}
<POP 21d50-21d52 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]}
<MI 21d52 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«2""»]|[«2""»]|[-4-]|[4, '(A6-0x10)']}
<POP 21d54-21d56 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x21d56 3> {[«2""»]|[«2""»]|[-4-]|[4, '(A6-0x10)']|[$$) .]}
<Call 0x21d64 0x102d0> {[«2""»]|[«2""»]|[-4-]|[4, '(A6-0x10)']|[$$) .]}
StringCat2(a, b : String) : String
<POP 21d66-21d68 StackAdj> Δ+8 {[«2""»]|[«2""»]|[-4-]}
<MI 21d68 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«2""»]|[«2""»]}
<MI 21d6a MOVE.L (A6-0x10),-(A7)> Δ-4 {[«2""»]|[«2""»]|[4, '(A6-0x10)']}
<POP 21d6c-21d6e StackAdj> Δ-4 {[«2""»]|[«2""»]|[4, '(A6-0x10)']|[-4-]}
<MI 21d6e MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[«2""»]|[4, '(A6-0x10)']|[-4-]|[4, '(A6+0x8)']}
<Call 0x21d72 0x102e4> {[«2""»]|[«2""»]|[4, '(A6-0x10)']|[-4-]|[4, '(A6+0x8)']}
Long2String(a : Long) : String
<POP 21d78-21d7a StackAdj> Δ+4 {[«2""»]|[«2""»]|[4, '(A6-0x10)']|[-4-]}
<Call 0x21d7a 0x102d0> {[«2""»]|[«2""»]|[4, '(A6-0x10)']|[-4-]}
StringCat2(a, b : String) : String
<POP 21d7c-21d7e StackAdj> Δ+8 {[«2""»]|[«2""»]}
<MI 21d7e MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<Blob 0x21d80 [4] @> Δ-4 {[«4""»]}
<POP 21d84-21d86 StackAdj> Δ-4 {[«4""»]|[-4-]}
<MI 21d86 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«4""»]|[-4-]|[4, '(A6-0x10)']}
<POP 21d88-21d8a StackAdj> Δ-4 {[«4""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x21d8a 4> {[«4""»]|[-4-]|[4, '(A6-0x10)']|[$$] ?_]}
<Call 0x21d98 0x102d0> {[«4""»]|[-4-]|[4, '(A6-0x10)']|[$$] ?_]}
StringCat2(a, b : String) : String
<POP 21d9a-21d9c StackAdj> Δ+8 {[«4""»]|[-4-]}
<MI 21d9c MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«4""»]}
<POP 21d9e-21da0 StackAdj> Δ+4 {}
<POP 21da0-21dc0 Naked> Σ0 ↓ →0x21dd8 ←0x21e40
<POP 21da0-21da2 StackAdj> Δ-8 {[-8-]}
<MI 21da2 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x10)']}
<Call 0x21da4 0x102cc> {[-8-]|[4, '(A6-0x10)']}
StringDup(a : String) : String
<POP 21daa-21dac StackAdj> Δ+4 {[-8-]}
<Call 0x21dac 0x103e4> {[-8-]}
AskConsoleString(prompt : String) : String
<POP 21db2-21db4 StackAdj> Δ+4 {[-4-]}
<MI 21db4 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 21db8 MOVEA.L (A6-0xc),A0> {}
<MI 21dbc TST.W (A0)> {}
<MI 21dbe BEQ 0x21dd8> {}
<POP 21dc0-21dd8 Naked> Σ0 →0x21dee
<MI 21dc0 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Pointer.fp 0x21dc4 <LVAR -0x004 @ 1(rw)>> Δ-4 {[4, '(A6-0xc)']|[@@-4]}
<Pointer.fp 0x21dc8 <LVAR -0x008 @ 4(rw)>> Δ-4 {[4, '(A6-0xc)']|[@@-4]|[@@-8]}
<Call 0x21dcc 0x102ec> {[4, '(A6-0xc)']|[@@-4]|[@@-8]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 21dd2-21dd6 StackAdj> Δ+12 {}
<MI 21dd6 BRA 0x21dee> {}
<POP 21dd8-21dee Naked> Σ0 ↓ ←0x21da0
<MI 21dd8 MOVE.L (A6+0x8),(A6-0x8)> {}
<MI 21dde MOVE.B #0x01,(A6-0x4)> {}
<Pointer.fp 0x21de2 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x21de6 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 21dec-21dee StackAdj> Δ+4 {}
<POP 21dee-21df6 Naked> Σ0 ↓ →0x21e0c ←0x21dc0
<MI 21dee MOVEQ.L #0x00,D0> {}
<MI 21df0 TST.B (A6-0x4)> {}
<MI 21df4 BEQ 0x21e0c> {}
<POP 21df6-21e00 Naked> Σ0 ↓ →0x21e0c
<MI 21df6 MOVE.L (A6-0x8),D1> {}
<MI 21dfa CMP.L (A6+0x10),D1> {}
<MI 21dfe BLT 0x21e0c> {}
<POP 21e00-21e0a Naked> Σ0 ↓ →0x21e0c
<MI 21e00 MOVE.L (A6-0x8),D1> {}
<MI 21e04 CMP.L (A6+0xc),D1> {}
<MI 21e08 BGT 0x21e0c> {}
<POP 21e0a-21e0c Naked> Σ0 ↓
<MI 21e0a ADDQ.B #0x1,D0> {}
<POP 21e0c-21e14 Naked> Σ0 ↓ →0x21e40 ←0x21dee ←0x21df6 ←0x21e00
<MI 21e0c MOVE.B D0,(A6-0x4)> {}
<MI 21e10 TST.B D0> {}
<MI 21e12 BNE 0x21e40> {}
<POP 21e14-21e40 Naked> Σ0 ↓
<Blob 0x21e14 [52] @> Δ-52 {[«52""»]}
<POP 21e26-21e28 StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x21e28 51> {[«52""»]|[$$Decimal input expected: bad syntax, or out of range]}
<Call 0x21e36 0x103e0> {[«52""»]|[$$Decimal input expected: bad syntax, or out of range]}
WriteConsoleStringCrLf(str : String)
<POP 21e3c-21e40 StackAdj> Δ+56 {}
<POP 21e40-21e46 Naked> Σ0 ↓ →0x21da0 ←0x21e0c
<MI 21e40 TST.B D0> {}
<MI 21e42 BEQ 0x21da0> {}
<POP 21e46-21e56 Naked> Σ0 ↓
<Pointer.fp 0x21e46 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x21e48 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 21e4e-21e50 StackAdj> Δ+4 {}
<MI 21e50 MOVE.L (A6-0x8),(A6+0x18)> {}
<POP 21e56-21e5e Epilogue> Σ0
@ 21e5e
<POP 21e5e-21eaa Body>
<POP 21e5e-21e70 Prologue> Σ0 ↓
<POP 21e70-21ea6 Naked> Σ0 ↓
<Const 0x21e70 0xf.4> Δ-4 {[##15]}
<Call 0x21e74 0x104d8> {[##15]}
ExpInit(a : Long)
<POP 21e7a-21e7c StackAdj> Δ+2 {[-2-]}
<MI 21e7c CLR.B (A7)> {[-2-]}
<Call 0x21e7e 0x104d2> {[-2-]}
SetExpInitDone(a : Byte)
<POP 21e84-21e86 StackAdj> Δ+2 {}
<MI 21e86 CLR.W 0x22906> {}
<MI 21e8c CLR.W 0x228f8> {}
<MI 21e92 MOVE.B #0x01,0x22904> {}
<MI 21e9a CLR.B 0x22905> {}
<MI 21ea0 CLR.B 0x269a1> {}
<POP 21ea6-21eaa Epilogue> Σ0
@ 21eaa
<POP 21eaa-21fa0 Body>
<POP 21eaa-21ec0 Prologue> Σ0 ↓
<POP 21ec0-21ee0 RegCacheLoad> Σ0 ↓
<POP 21ee0-21f30 Naked> Σ0 ↓ →0x21f3c ←0x21f3c
<Blob 0x21ee0 [4] @> Δ-4 {[«4""»]}
<Blob 0x21ee4 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21ee8 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21eec [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21ef0-21ef2 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x21ef2 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Tape unit number]}
<Const 0x21efe 0x0.4> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Tape unit number]|[##0]}
<Const 0x21f02 0x3.4> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Tape unit number]|[##0]|[##3]}
<MI 21f06 MOVE.W 0x228f8,D0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Tape unit number]|[##0]|[##3]}
<MI 21f08 EXTW.L D0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Tape unit number]|[##0]|[##3]}
<MI 21f0a MOVE.L D0,-(A7)> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Tape unit number]|[##0]|[##3]|[4, 'D0']}
<Call 0x21f0c 0x21cac> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Tape unit number]|[##0]|[##3]|[4, 'D0']}
<POP 21f10-21f12 StackAdj> Δ+16 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 21f12 MOVE.W (A7+0x2),0x228f8> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<POP 21f16-21f1a StackAdj> Δ+18 {[-2-]}
<POP 21f1a-21f1b StackAdj> Δ+2 {}
<Blob 0x21f1b [2] 0x228f8> Δ-2 {[«2»]}
<MI 21f1c CLR.B -(A7)> Δ-2 {[«2»]|[#0]}
<Const 0x21f1e 0x1.2> Δ-2 {[«2»]|[#0]|[#1]}
<Const 0x21f20 0x2294e.4> Δ-4 {[«2»]|[#0]|[#1]|[##141646]}
<Call 0x21f22 0x1040c> {[«2»]|[#0]|[#1]|[##141646]}
FSCALL_1040c
<POP 21f28-21f2c StackAdj> Δ+10 {}
<MI 21f2c TST.B 0x2294e> {}
<MI 21f2e BEQ 0x21f3c> {}
<POP 21f30-21f3c Naked> Σ0 ↓
<Const 0x21f30 0x1.2> Δ-2 {[#1]}
<Const 0x21f32 0x2294e.4> Δ-4 {[#1]|[##141646]}
<Call 0x21f34 0x10428> {[#1]|[##141646]}
FSCALL_10428
<POP 21f3a-21f3c StackAdj> Δ+6 {}
<POP 21f3c-21f40 Naked> Σ0 ↓ →0x21ee0 ←0x21ee0
<MI 21f3c TST.B 0x2294e> {}
<MI 21f3e BNE 0x21ee0> {}
<POP 21f40-21f98 Naked> Σ0 ↓
<Blob 0x21f40 [32] @> Δ-32 {[«32""»]}
<POP 21f4c-21f4e StackAdj> Δ-6 {[«32""»]|[-6-]}
<Lit 0x21f4e 32> {[«32""»]|[-2-]|[$$Do you want to re-load IOP Dumps]}
<POP 21f58-21f5a StackAdj> Δ-2 {[«32""»]|[-2-]|[$$Do you want to re-load IOP Dumps]|[-2-]}
<POP 21f5a-21f5b StackAdj> Δ+2 {[«32""»]|[-2-]|[$$Do you want to re-load IOP Dumps]}
<Blob 0x21f5b [2] 0x22905> Δ-2 {[«32""»]|[-2-]|[$$Do you want to re-load IOP Dumps]|[«2»]}
<Call 0x21f5c 0x103f0> {[«32""»]|[-2-]|[$$Do you want to re-load IOP Dumps]|[«2»]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 21f62-21f64 StackAdj> Δ+6 {[«32""»]|[-2-]}
<MI 21f64 MOVE.B (A7)+,0x22905> Δ+2 {[«32""»]}
<POP 21f66-21f68 StackAdj> Δ+32 {}
<Blob 0x21f68 [38] @> Δ-38 {[«38""»]}
<POP 21f74-21f76 StackAdj> Δ-6 {[«38""»]|[-6-]}
<Lit 0x21f76 38> {[«38""»]|[-2-]|[$$Do you want to re-load physical memory]}
<POP 21f80-21f82 StackAdj> Δ-2 {[«38""»]|[-2-]|[$$Do you want to re-load physical memory]|[-2-]}
<POP 21f82-21f83 StackAdj> Δ+2 {[«38""»]|[-2-]|[$$Do you want to re-load physical memory]}
<Blob 0x21f83 [2] 0x22904> Δ-2 {[«38""»]|[-2-]|[$$Do you want to re-load physical memory]|[«2»]}
<Call 0x21f88 0x103f0> {[«38""»]|[-2-]|[$$Do you want to re-load physical memory]|[«2»]}
AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
<POP 21f8e-21f90 StackAdj> Δ+6 {[«38""»]|[-2-]}
<MI 21f90 MOVE.B (A7)+,0x22904> Δ+2 {[«38""»]}
<POP 21f96-21f98 StackAdj> Δ+38 {}
<POP 21f98-21fa0 Epilogue> Σ0
@ 21fa0
<POP 21fa0-22038 Body>
<POP 21fa0-21fb6 Prologue> Σ0 ↓
<POP 21fb6-21fce RegCacheLoad> Σ0 ↓
<POP 21fce-22030 Naked> Σ0 ↓
<Const 0x21fce 0x400.4> Δ-4 {[##1024]}
<MI 21fd2 LEA.L 0x269a2,A0> {[##1024]}
<MI 21fd8 MOVE.L A0,-(A7)> Δ-4 {[##1024]|[4, 'A0']}
<Const 0x21fda 0x4.2> Δ-2 {[##1024]|[4, 'A0']|[#4]}
<Call 0x21fdc 0x10238> {[##1024]|[4, 'A0']|[#4]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 21fde-21fe0 StackAdj> Δ+10 {}
<Const 0x21fe0 0x404.4> Δ-4 {[##1028]}
<MI 21fe4 LEA.L 0x269a6,A0> {[##1028]}
<MI 21fe6 MOVE.L A0,-(A7)> Δ-4 {[##1028]|[4, 'A0']}
<Const 0x21fe8 0x2.2> Δ-2 {[##1028]|[4, 'A0']|[#2]}
<Call 0x21fea 0x10238> {[##1028]|[4, 'A0']|[#2]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 21fec-21fee StackAdj> Δ+10 {}
<Const 0x21fee 0x406.4> Δ-4 {[##1030]}
<MI 21ff2 LEA.L 0x269a8,A0> {[##1030]}
<MI 21ff8 MOVE.L A0,-(A7)> Δ-4 {[##1030]|[4, 'A0']}
<Const 0x21ffa 0x2.2> Δ-2 {[##1030]|[4, 'A0']|[#2]}
<Call 0x21ffc 0x10238> {[##1030]|[4, 'A0']|[#2]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 21ffe-22000 StackAdj> Δ+10 {}
<Const 0x22000 0x408.4> Δ-4 {[##1032]}
<MI 22004 LEA.L 0x269aa,A0> {[##1032]}
<MI 2200a MOVE.L A0,-(A7)> Δ-4 {[##1032]|[4, 'A0']}
<Const 0x2200c 0x4.2> Δ-2 {[##1032]|[4, 'A0']|[#4]}
<Call 0x2200e 0x10238> {[##1032]|[4, 'A0']|[#4]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 22010-22012 StackAdj> Δ+10 {}
<Const 0x22012 0x40c.4> Δ-4 {[##1036]}
<MI 22016 LEA.L 0x269ae,A0> {[##1036]}
<MI 22018 MOVE.L A0,-(A7)> Δ-4 {[##1036]|[4, 'A0']}
<Const 0x2201a 0x4.2> Δ-2 {[##1036]|[4, 'A0']|[#4]}
<Call 0x2201c 0x10238> {[##1036]|[4, 'A0']|[#4]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 2201e-22020 StackAdj> Δ+10 {}
<MI 22020 MOVEQ.L #0x00,D0> {}
<MI 22022 MULU.W 0x269a6,D0> {}
<MI 22024 CLR.L D1> {}
<MI 22026 MOVE.W D0,D1> {}
<MI 22028 ADD.L 0x269ae,D1> {}
<MI 2202a MOVE.L D1,0x269b2> {}
<POP 22030-22038 Epilogue> Σ0
@ 22038
START
<POP 22038--0001 Body>
<POP 22038-22042 Prologue> Σ0
<POP 22042-22058 RegCacheLoad> Σ0 ↓
<POP 22058-22104 Naked> Σ0 ↓ →0x22108
<Call 0x22058 0x10398> {}
FSCALL_10398
<Call 0x2205e 0x21fa0> {}
<Call 0x22062 0x21e5e> {}
<Call 0x22066 0x21eaa> {}
<Call 0x2206a 0x205c8> {}
<Call 0x2206e 0x2060a> {}
<Call 0x22072 0x209d6> {}
<Blob 0x22076 [20] @> Δ-20 {[«20""»]}
<POP 22088-2208a StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2208a 19> {[«20""»]|[$$CRASH_DUMP.COMMENTS]}
<POP 22096-22098 StackAdj> Δ-2 {[«20""»]|[$$CRASH_DUMP.COMMENTS]|[-2-]}
<POP 22098-22099 StackAdj> Δ+2 {[«20""»]|[$$CRASH_DUMP.COMMENTS]}
<Const 0x22099 0x1.2> Δ-2 {[«20""»]|[$$CRASH_DUMP.COMMENTS]|[#1]}
<Call 0x2209a 0x20fee> {[«20""»]|[$$CRASH_DUMP.COMMENTS]|[#1]}
<POP 2209c-2209e StackAdj> Δ+26 {}
<Call 0x2209e 0x21144> {}
<Blob 0x220a2 [10] @> Δ-10 {[«10""»]}
<POP 220b4-220b6 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x220b6 9> {[«10""»]|[$$IOP_DUMP1]}
<POP 220c0-220c2 StackAdj> Δ-2 {[«10""»]|[$$IOP_DUMP1]|[-2-]}
<POP 220c2-220c3 StackAdj> Δ+2 {[«10""»]|[$$IOP_DUMP1]}
<Blob 0x220c3 [2] 0x22905> Δ-2 {[«10""»]|[$$IOP_DUMP1]|[«2»]}
<Call 0x220c4 0x20fee> {[«10""»]|[$$IOP_DUMP1]|[«2»]}
<POP 220c6-220c7 StackAdj> Δ+16 ↓ {}
<Blob 0x220c7 [10] @> Δ-10 {[«10""»]}
<POP 220d6-220d8 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x220d8 9> {[«10""»]|[$$IOP_DUMP2]}
<POP 220e2-220e4 StackAdj> Δ-2 {[«10""»]|[$$IOP_DUMP2]|[-2-]}
<POP 220e4-220e5 StackAdj> Δ+2 {[«10""»]|[$$IOP_DUMP2]}
<Blob 0x220e5 [2] 0x22905> Δ-2 {[«10""»]|[$$IOP_DUMP2]|[«2»]}
<Call 0x220e6 0x20fee> {[«10""»]|[$$IOP_DUMP2]|[«2»]}
<POP 220e8-220ec StackAdj> Δ+16 {}
<Call 0x220ec 0x211f8> {}
<Call 0x220f0 0x2184c> {}
<Call 0x220f4 0x21952> {}
<Call 0x220f8 0x219a2> {}
<MI 220fc TST.B 0x22904> {}
<MI 22102 BEQ 0x22108> {}
<POP 22104-22108 Naked> Σ0 ↓
<Call 0x22104 0x21a6e> {}
<POP 22108-2212a Naked> Σ0 ↓ →0x2215a ←0x22058
<Const 0x22108 0x1.2> Δ-2 {[#1]}
<Const 0x2210a 0x2294e.4> Δ-4 {[#1]|[##141646]}
<Call 0x22110 0x10414> {[#1]|[##141646]}
FSCALL_10414
<POP 22116-22118 StackAdj> Δ+6 {}
<Call 0x22118 0x10410> {}
FSCALL_10410
<Call 0x2211e 0x21b4a> {}
<MI 22122 TST.B 0x269a1> {}
<MI 22128 BEQ 0x2215a> {}
<POP 2212a-2215a Naked> Σ0 ↓
<Blob 0x2212a [4] @> Δ-4 {[«4""»]}
<Blob 0x2212e [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 22132-22134 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<Lit 0x22134 8> {[«4""»]|[«4""»]|[$$BOOTINFO]}
<Const 0x22142 0x1.4> Δ-4 {[«4""»]|[«4""»]|[$$BOOTINFO]|[##1]}
<Const 0x22146 0x2.2> Δ-2 {[«4""»]|[«4""»]|[$$BOOTINFO]|[##1]|[#2]}
<Const 0x2214a 0x269a0.4> Δ-4 {[«4""»]|[«4""»]|[$$BOOTINFO]|[##1]|[#2]|[##158112]}
<Call 0x22150 0x103b0> {[«4""»]|[«4""»]|[$$BOOTINFO]|[##1]|[#2]|[##158112]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 22156-2215a StackAdj> Δ+22 {}
<POP 2215a-22196 Naked> Σ0 ↓ ←0x22108
<Call 0x2215a 0x205c8> {}
<Blob 0x2215e [24] @> Δ-24 {[«24""»]}
<POP 22170-22172 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x22172 23> {[«24""»]|[$$Crash Load is complete.]}
<Call 0x22180 0x103e0> {[«24""»]|[$$Crash Load is complete.]}
WriteConsoleStringCrLf(str : String)
<POP 22186-22188 StackAdj> Δ+26 {[-2-]}
<MI 22188 CLR.B (A7)> {[-2-]}
<Const 0x2218a 0x1.4> Δ-4 {[-2-]|[##1]}
<Call 0x2218e 0x103b8> {[-2-]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 22194-22196 StackAdj> Δ+6 {}
<POP 22196-2219c Naked> Σ0
<Call 0x22196 0x10284> {}
?exit
@ 22358
<LVAR 0x00a 1(r)>
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 4(r)>
<POP 22358-22402 Body> Δ+12
<POP 22358-2236e Prologue> Σ0 ↓
<POP 2236e-22374 RegCacheLoad> Σ0 ↓
<POP 22374-22380 Naked> Σ0 ↓ →0x22392
<POP 22374-22376 StackAdj> Δ-2 {[-2-]}
<Call 0x22376 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 2237c TST.B (A7)+> Δ+2 {}
<MI 2237e BEQ 0x22392> {}
<POP 22380-22392 Naked> Σ0 Δ-12 →0x223a2
<Blob 0x22380 [12] @> Δ-12 {[«12""»]}
<MI 22390 BRA 0x223a2> {[«12""»]}
<POP 22392-223a2 Naked> Σ0 Δ-12 ↓ ←0x22374
<Blob 0x22392 [12] @> Δ-12 {[«12""»]}
<POP 223a2-223fa Naked> Σ-12 Δ+12 ↓ ←0x22380
<POP 223a2-223a4 StackAdj> Δ-4 {[-16-]}
<Lit 0x223a4> {[-12-]|[$$…]}
<Pointer.sp 0x223a4 4> Δ-4
<Const 0x223a8 0x1.2> Δ-2
<Const 0x223ac 0xb.2> Δ-2
<Call 0x223b0 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 223b6-223b8 StackAdj> Δ+8
<Pointer.fp 0x223b8 <LVAR -0x004 @ 4(r)>> Δ-4 {[-12-]|[$$…]|[@@-4]}
<Call 0x223ba 0x10460> {[-12-]|[$$…]|[@@-4]}
ExpLoad(a : String; b: Pointer)
<POP 223c0-223c4 StackAdj> Δ+20 {}
<MI 223c4 MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<MI 223c8 MOVE.L (A6-0x4),-(A7)> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']}
<Pointer.sp 0x223ca 4> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]}
<Const 0x223ce 0x0.4> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]}
<Const 0x223d2 0x0.4> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
<Call 0x223d6 0x10466> {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
<POP 223dc-223e0 StackAdj> Δ+16 {[2, '(A6+0x8)']}
<MI 223e0 CLR.B (A7)> {[2, '(A6+0x8)']}
<MI 223e2 MOVE.B (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0x8)']|[2, '(A6+0xa)']}
<MI 223e6 MOVE.L (A6-0x4),-(A7)> Δ-4 {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
<Call 0x223e8 0x104ba> {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 223ee-223f0 StackAdj> Δ+8 {}
<Pointer.fp 0x223f0 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x223f2 0x10496> {[@@-4]}
ExpClose(exp : Pointer)
<POP 223f8-223fa StackAdj> Δ+4 {}
<POP 223fa-22402 Epilogue> Σ0
@ 2241e
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 2241e-224ac Body> Δ+14
<POP 2241e-22434 Prologue> Σ0 ↓
<POP 22434-2243a RegCacheLoad> Σ0 ↓
<POP 2243a-22446 Naked> Σ0 ↓ →0x22458
<POP 2243a-2243c StackAdj> Δ-2 {[-2-]}
<Call 0x2243c 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 22442 TST.B (A7)+> Δ+2 {}
<MI 22444 BEQ 0x22458> {}
<POP 22446-22458 Naked> Σ0 Δ-14 →0x22468
<Blob 0x22446 [14] @> Δ-14 {[«14""»]}
<MI 22456 BRA 0x22468> {[«14""»]}
<POP 22458-22468 Naked> Σ0 Δ-14 ↓ ←0x2243a
<Blob 0x22458 [14] @> Δ-14 {[«14""»]}
<POP 22468-224a4 Naked> Σ-14 Δ+14 ↓ ←0x22446
<POP 22468-2246a StackAdj> Δ-4 {[-18-]}
<Lit 0x2246a> {[-14-]|[$$…]}
<Pointer.sp 0x2246a 4> Δ-4
<Const 0x2246e 0x1.2> Δ-2
<Const 0x22472 0xd.2> Δ-2
<Call 0x22476 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2247c-2247e StackAdj> Δ+8
<Pointer.fp 0x2247e <LVAR -0x006 @ 4(r)>> Δ-4 {[-14-]|[$$…]|[@@-6]}
<Call 0x22480 0x10460> {[-14-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 22486-2248a StackAdj> Δ+22 {}
<MI 2248a CLR.B -(A7)> Δ-2 {[#0]}
<MI 2248c MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 22490 MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x22492 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 22498-2249a StackAdj> Δ+8 {}
<Pointer.fp 0x2249a <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x2249c 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 224a2-224a4 StackAdj> Δ+4 {}
<POP 224a4-224ac Epilogue> Σ0
@ 224b8
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 224b8-2253c Body> Δ+6
<POP 224b8-224ce Prologue> Σ0 ↓
<POP 224ce-224d2 RegCacheLoad> Σ0 ↓
<POP 224d2-224de Naked> Σ0 ↓ →0x224ec
<POP 224d2-224d4 StackAdj> Δ-2 {[-2-]}
<Call 0x224d4 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 224da TST.B (A7)+> Δ+2 {}
<MI 224dc BEQ 0x224ec> {}
<POP 224de-224ec Naked> Σ0 Δ-6 →0x224f8
<Blob 0x224de [2] @> Δ-2 {[«2""»]}
<Blob 0x224e2 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x224e6 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<MI 224ea BRA 0x224f8> {[«2""»]|[«2""»]|[«2""»]}
<POP 224ec-224f8 Naked> Σ0 Δ-6 ↓ ←0x224d2
<Blob 0x224ec [2] @> Δ-2 {[«2""»]}
<Blob 0x224f0 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x224f4 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 224f8-22534 Naked> Σ-6 Δ+6 ↓ ←0x224de
<POP 224f8-224fa StackAdj> Δ-4 {[-10-]}
<Lit 0x224fa> {[-6-]|[$$…]}
<Pointer.sp 0x224fa 4> Δ-4
<Const 0x224fe 0x1.2> Δ-2
<Const 0x22502 0x6.2> Δ-2
<Call 0x22506 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2250c-2250e StackAdj> Δ+8
<Pointer.fp 0x2250e <LVAR -0x006 @ 4(r)>> Δ-4 {[-6-]|[$$…]|[@@-6]}
<Call 0x22510 0x10460> {[-6-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 22516-2251a StackAdj> Δ+14 {}
<MI 2251a CLR.B -(A7)> Δ-2 {[#0]}
<MI 2251c MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 22520 MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x22522 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 22528-2252a StackAdj> Δ+8 {}
<Pointer.fp 0x2252a <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x2252c 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 22532-22534 StackAdj> Δ+4 {}
<POP 22534-2253c Epilogue> Σ0
@ 2256c
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 2256c-225fa Body> Δ+24
<POP 2256c-22582 Prologue> Σ0 ↓
<POP 22582-22588 RegCacheLoad> Σ0 ↓
<POP 22588-22594 Naked> Σ0 ↓ →0x225a6
<POP 22588-2258a StackAdj> Δ-2 {[-2-]}
<Call 0x2258a 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 22590 TST.B (A7)+> Δ+2 {}
<MI 22592 BEQ 0x225a6> {}
<POP 22594-225a6 Naked> Σ0 Δ-24 →0x225b6
<Blob 0x22594 [24] @> Δ-24 {[«24""»]}
<MI 225a4 BRA 0x225b6> {[«24""»]}
<POP 225a6-225b6 Naked> Σ0 Δ-24 ↓ ←0x22588
<Blob 0x225a6 [24] @> Δ-24 {[«24""»]}
<POP 225b6-225f2 Naked> Σ-24 Δ+24 ↓ ←0x22594
<POP 225b6-225b8 StackAdj> Δ-4 {[-28-]}
<Lit 0x225b8> {[-24-]|[$$…]}
<Pointer.sp 0x225b8 4> Δ-4
<Const 0x225bc 0x1.2> Δ-2
<Const 0x225c0 0x17.2> Δ-2
<Call 0x225c4 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 225ca-225cc StackAdj> Δ+8
<Pointer.fp 0x225cc <LVAR -0x006 @ 4(r)>> Δ-4 {[-24-]|[$$…]|[@@-6]}
<Call 0x225ce 0x10460> {[-24-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 225d4-225d8 StackAdj> Δ+32 {}
<MI 225d8 CLR.B -(A7)> Δ-2 {[#0]}
<MI 225da MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 225de MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x225e0 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 225e6-225e8 StackAdj> Δ+8 {}
<Pointer.fp 0x225e8 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x225ea 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 225f0-225f2 StackAdj> Δ+4 {}
<POP 225f2-225fa Epilogue> Σ0
@ 22616
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 22616-2269a Body> Δ+14
<POP 22616-2262c Prologue> Σ0 ↓
<POP 2262c-22630 RegCacheLoad> Σ0 ↓
<POP 22630-2263c Naked> Σ0 ↓ →0x2264a
<POP 22630-22632 StackAdj> Δ-2 {[-2-]}
<Call 0x22632 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 22638 TST.B (A7)+> Δ+2 {}
<MI 2263a BEQ 0x2264a> {}
<POP 2263c-2264a Naked> Σ0 Δ-14 →0x22656
<Blob 0x2263c [14] @> Δ-14 {[«14""»]}
<MI 22648 BRA 0x22656> {[«14""»]}
<POP 2264a-22656 Naked> Σ0 Δ-14 ↓ ←0x22630
<Blob 0x2264a [14] @> Δ-14 {[«14""»]}
<POP 22656-22692 Naked> Σ-14 Δ+14 ↓ ←0x2263c
<POP 22656-22658 StackAdj> Δ-4 {[-18-]}
<Lit 0x22658> {[-14-]|[$$…]}
<Pointer.sp 0x22658 4> Δ-4
<Const 0x2265c 0x1.2> Δ-2
<Const 0x22660 0xe.2> Δ-2
<Call 0x22664 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2266a-2266c StackAdj> Δ+8
<Pointer.fp 0x2266c <LVAR -0x006 @ 4(r)>> Δ-4 {[-14-]|[$$…]|[@@-6]}
<Call 0x2266e 0x10460> {[-14-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 22674-22678 StackAdj> Δ+22 {}
<MI 22678 CLR.B -(A7)> Δ-2 {[#0]}
<MI 2267a MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 2267e MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x22680 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 22686-22688 StackAdj> Δ+8 {}
<Pointer.fp 0x22688 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x2268a 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 22690-22692 StackAdj> Δ+4 {}
<POP 22692-2269a Epilogue> Σ0
@ 226f0
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 226f0-22758 Body>
<POP 226f0-22706 Prologue> Σ0 ↓
<POP 22706-22750 Naked> Σ0 ↓
<Blob 0x22706 [14] @> Δ-14 {[«14""»]}
<Const 0x22712 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 22716-22718 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x22718 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 2272a-2272c StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2272c MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 22730 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 22732 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 22734 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x22736 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2273c-2273e StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x2273e 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 22744-22746 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x22746 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 2274c-22750 StackAdj> Δ+20 {}
<POP 22750-22758 Epilogue> Σ0
@ 227ac
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 227ac-228e8 Body>
<POP 227ac-227c2 Prologue> Σ0 ↓
<POP 227c2-227d8 RegCacheLoad> Σ0 ↓
<POP 227d8-22838 Naked> Σ0 ↓ →0x22880
<Call 0x227d8 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x227de [18] @> Δ-18 {[«18""»]}
<POP 227ea-227ec StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x227ec 18> {[«18""»]|[$$Experiment error :]}
<Call 0x227f8 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 227fa-227fb StackAdj> Δ+22 ↓ {}
<Blob 0x227fb [14] @> Δ-14 {[«14""»]}
<POP 2280a-2280c StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x2280c 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 22816-22818 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 22818 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x2281c 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 22822-22824 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x22824 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2282a-2282c StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x2282c 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2282e-22830 StackAdj> Δ+18 {}
<MI 22830 MOVEA.L (A6+0xa),A0> {}
<MI 22834 CMPA.W #0x01,A0> {}
<MI 22836 BEQ 0x22880> {}
<POP 22838-22880 Naked> Σ0 ↓
<Blob 0x22838 [14] @> Δ-14 {[«14""»]}
<Blob 0x22848 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 22858-2285a StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x2285a 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 22864-22866 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x22866> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x22866 12> Δ-4
<Const 0x2286a 0x1.2> Δ-2
<Const 0x2286c 0x1e.2> Δ-2
<Call 0x2286e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22870-22872 StackAdj> Δ+8
<Call 0x22872 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 22878-2287a StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x2287a 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2287c-22880 StackAdj> Δ+48 {}
<POP 22880-228e0 Naked> Σ0 ↓ ←0x227d8
<Blob 0x22880 [14] @> Δ-14 {[«14""»]}
<POP 22890-22892 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x22892 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 2289c-2289e StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 2289e MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x228a2 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 228a8-228aa StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x228aa 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 228b0-228b2 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x228b2 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 228b4-228b5 StackAdj> Δ+18 ↓ {}
<Blob 0x228b5 [24] @> Δ-24 {[«24""»]}
<Const 0x228c4 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 228c8-228ca StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x228ca 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x228d8 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 228de-228e0 StackAdj> Δ+30 {}
<POP 228e0-228e8 Epilogue> Σ0
00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ; import all
00020000 ; import kind.program
00020000 ; no ident.bef63344066df2ad
00020000 ; --------------------------------------------------------------------------------------
00020000 stack.top:
00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END
00020004 00 02 20 38 | 8 | .CODE START
00020008 00 01 02 88 | | .CODE FSCALL_10288
0002000c heap.top:
0002000c 00 02 69 f0 | i | .PTR 0x269f0
00020010 code.end:
00020010 00 02 28 e8 | ( | .PTR 0x228e8
00020014 00 00 00 00 | | .CONST 0x00000000
00020018 programfailurehandler:
00020018 00 02 26 f0 | & | .CODE PROG_FAIL
0002001c experimentfailurehandler:
0002001c 00 02 27 ac | ' | .CODE EXP_FAIL
00020020 00 00 00 00 | | .CONST 0x00000000
00020024 exp_init_done:
00020024 00 | | .CONST 0x00
00020025 00 | | .CONST 0x00
00020026 00 00 | | .CONST 0x0000
00020028 00 00 | | .CONST 0x0000
0002002a 00 00 | | .XXX[0x2]
0002002c 00 00 | | .CONST 0x0000
0002002e 00 00 | | .CONST 0x0000
00020030 00 00 | | .CONST 0x0000
00020032 00 00 00 00 00 00 | | .XXX[0x6]
00020038 00 00 00 00 00 00 00 00 | | .BLANK 00[0xb0]
000200e8 00 00 00 00 | | .XXX[0x4]
000200ec 00 00 00 00 | | .PTR 0x0
000200f0 is_open_ERROR_LOG:
000200f0 00 | | .CONST 0x0
000200f1 write_error_ERROR_LOG:
000200f1 00 | | .CONST 0x0
000200f2 00 00 00 00 | | .CONST 0x00000000
000200f6 00 00 00 00 | | .CONST 0x00000000
000200fa 00 | | .CONST 0x00
000200fb 00 | | .CONST 0x00
000200fc file_ERROR_LOG:
000200fc 00 00 00 00 | | .CONST 0x00000000
00020100 00 00 00 00 | | .CONST 0x00000000
00020104 00 00 | | .CONST 0x0000
00020106 00 00 | | .CONST 0x0000
00020108 somekindoffsflag:
00020108 00 | | .CONST 0x00
00020109 00 | | .CONST 0x00
0002010a 40 28 23 29 43 52 |@(#)CR | .XXX[0x6]
00020110 41 53 48 4c 4f 41 44 2c |ASHLOAD,| .XXX[0x18]
00020118 32 2e 31 2c 39 30 2f 31 |2.1,90/1|
00020120 32 2f 30 33 2c 31 37 3a |2/03,17:|
00020128 31 38 3a 31 39 5c |18:19\ | .XXX[0x6]
0002012e 43 52 41 53 48 5f 44 55 |CRASH_DU| .TXT 'CRASH_DUMP.COMMENTS '
00020142 52 65 61 64 20 70 61 73 |Read pas| .TXT 'Read past end of tape '
00020158 45 72 72 6f 72 20 69 6e |Error in| .TXT 'Error in tape label :_'
0002016e 56 4f 4c 31 |VOL1 | .TXT 'VOL1'
00020172 54 61 70 65 20 64 65 6e |Tape den| .TXT 'Tape density just changed '
0002018c 54 61 70 65 |Tape | .TXT 'Tape'
00020190 20 64 65 6e | den | .TXT ' den'
00020194 73 69 74 79 |sity | .TXT 'sity'
00020198 20 69 73 5f | is_ | .TXT ' is_'
0002019c 36 32 35 30 |6250 | .TXT '6250'
000201a0 20 42 50 49 | BPI | .TXT ' BPI'
000201a4 31 36 30 30 |1600 | .TXT '1600'
000201a8 20 42 50 49 | BPI | .TXT ' BPI'
000201ac 2c 20 56 6f 6c 75 6d 65 |, Volume| .TXT ', Volume Id -_'
000201ba 55 56 4c 31 |UVL1 | .TXT 'UVL1'
000201be 55 56 4c 32 |UVL2 | .TXT 'UVL2'
000201c2 52 65 61 64 20 70 61 73 |Read pas| .TXT 'Read past end of tape '
000201d8 45 4f 46 20 65 78 70 65 |EOF expe| .TXT 'EOF expected, but not found '
000201f4 48 44 52 31 |HDR1 | .TXT 'HDR1'
000201f8 48 44 52 32 |HDR2 | .TXT 'HDR2'
000201fc 48 44 52 33 |HDR3 | .TXT 'HDR3'
00020200 55 48 4c 31 |UHL1 | .TXT 'UHL1'
00020204 52 65 61 64 |Read | .TXT 'Read'
00020208 69 6e 67 5f |ing_ | .TXT 'ing_'
0002020c 45 72 72 6f 72 20 69 6e |Error in| .TXT 'Error in tape header, Do you want to continue '
0002023a 45 72 72 6f 72 20 69 6e |Error in| .TXT 'Error in tape header'
0002024e 45 4f 46 31 |EOF1 | .TXT 'EOF1'
00020252 45 4f 46 32 |EOF2 | .TXT 'EOF2'
00020256 45 4f 46 33 |EOF3 | .TXT 'EOF3'
0002025a 20 5b 4f 4b 5d 20 | [OK] | .TXT ' [OK] '
00020260 4a 41 4e 20 46 45 42 20 |JAN FEB | .XXX[0x30]
00020268 4d 41 52 20 41 50 52 20 |MAR APR |
00020270 4d 41 59 20 4a 55 4e 20 |MAY JUN |
00020278 4a 55 4c 20 41 55 47 20 |JUL AUG |
00020280 53 45 50 20 4f 43 54 20 |SEP OCT |
00020288 4e 4f 56 20 44 45 43 20 |NOV DEC |
00020290 44 75 6d 70 65 64 20 70 |Dumped p| .TXT 'Dumped processor had more lines than current processor'
000202c6 57 61 72 6e 69 6e 67 3a |Warning:| .TXT 'Warning: Dumped processor had fewer lines than current processor'
00020306 20 65 78 69 73 74 73 20 | exists | .TXT ' exists on dumped processor, but not on current processor '
00020340 20 65 78 69 73 74 73 20 | exists | .TXT ' exists on current processor, but not on dumped processor '
0002037a 43 52 41 53 48 5f 44 55 |CRASH_DU| .TXT 'CRASH_DUMP.SAVED_STATE'
00020390 43 55 52 52 45 4e 54 5f |CURRENT_| .TXT 'CURRENT_CONFIGURATION '
000203a6 42 6f |Bo | .TXT 'Bo'
000203a8 61 72 |ar | .TXT 'ar'
000203aa 64 5f |d_ | .TXT 'd_'
000203ac 57 61 72 6e 69 6e 67 3a |Warning:| .TXT 'Warning: Board_ '
000203bc 4e 6f 20 72 65 73 70 6f |No respo| .TXT 'No response from R1000'
000203d2 43 52 41 53 48 5f 44 55 |CRASH_DU| .TXT 'CRASH_DUMP.REGISTERS'
000203e6 43 52 41 53 48 5f 44 55 |CRASH_DU| .TXT 'CRASH_DUMP.TAG_STORE'
000203fa 30 31 32 33 34 35 |012345 | .XXX[0x6]
00020400 36 37 38 39 41 42 43 44 |6789ABCD| .XXX[0x8]
00020408 45 46 |EF | .XXX[0x2]
0002040a 43 52 41 53 48 5f 44 55 |CRASH_DU| .TXT 'CRASH_DUMP.MEMORY '
0002041c 4e 6f 20 72 65 73 70 6f |No respo| .TXT 'No response from R1000'
00020432 44 65 63 69 6d 61 6c 20 |Decimal | .TXT 'Decimal input expected: bad syntax, or out of range '
00020466 20 28 | ( | .TXT ' ('
00020468 2e 2e |.. | .TXT '..'
0002046a 29 20 |) | .TXT ') '
0002046c 5b 20 |[ | .XXX[0x2]
0002046e 5d 20 3f 5f |] ?_ | .TXT '] ?_'
00020472 54 61 70 65 |Tape | .TXT 'Tape'
00020476 20 75 6e 69 | uni | .TXT ' uni'
0002047a 74 20 6e 75 |t nu | .TXT 't nu'
0002047e 6d 62 65 72 |mber | .TXT 'mber'
00020482 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want to re-load IOP Dumps'
000204a2 44 6f 20 79 6f 75 20 77 |Do you w| .TXT 'Do you want to re-load physical memory'
000204c8 49 4f 50 5f 44 55 4d 50 |IOP_DUMP| .TXT 'IOP_DUMP1 '
000204d2 49 4f 50 5f 44 55 4d 50 |IOP_DUMP| .TXT 'IOP_DUMP2 '
000204dc 42 4f 4f 54 |BOOT | .TXT 'BOOT'
000204e0 49 4e 46 4f |INFO | .TXT 'INFO'
000204e4 43 72 61 73 68 20 4c 6f |Crash Lo| .TXT 'Crash Load is complete. '
000204fc 4a 41 4e 46 |JANF | .XXX[0x4]
00020500 45 42 4d 41 52 41 50 52 |EBMARAPR| .XXX[0x20]
00020508 4d 41 59 4a 55 4e 4a 55 |MAYJUNJU|
00020510 4c 41 55 47 53 45 50 4f |LAUGSEPO|
00020518 43 54 4e 4f 56 44 45 43 |CTNOVDEC|
00020520 ; --------------------------------------------------------------------------------------
00020520 ; OMSI PASCAL Function
00020520 ; <LVAR 0x008 1(r)>
00020520 ; <LVAR -0x001 1(rw)>
00020520 ; --------------------------------------------------------------------------------------
00020520 4e 56 ff e6 |NV | LINK.W A6,#0xffe6
00020524 bf d5 | | CMPA.L (A5),A7
00020526 62 06 |b | BHI 0x2052e
00020528 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002052c 4e 76 |Nv | TRAPV
0002052e de fc 00 18 | | ADDA.W #0x18,A7
00020532 48 e7 81 80 |H | MOVEM.L A0+D7+D0,-(A7)
00020536 41 ee ff ff |A | LEA.L (A6-0x1),A0
0002053a 7e 0c |~ | MOVEQ.L #0x0c,D7
0002053c 55 4f |UO | SUBQ.L #0x2,A7
0002053e 1f 07 | | MOVE.B D7,-(A7)
00020540 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte
00020546 54 4f |TO | ADDQ.L #0x2,A7
00020548 4a 1f |J | TST.B (A7)+
0002054a 67 6a |gj | BEQ 0x205b6
0002054c 10 2e 00 08 | . | MOVE.B (A6+0x8),D0
00020550 48 80 |H | EXTB.W D0
00020552 0c 40 00 04 | @ | CMPI.W #0x0004,D0
00020556 62 5e |b^ | BHI 0x205b6
00020558 d0 40 | @ | ADD.W D0,D0
0002055a 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
00020562 00 0a | | .CONST 0xa ; [0x0] -> 0x2056c
00020564 00 14 | | .CONST 0x14 ; [0x1] -> 0x20576
00020566 00 36 | 6 | .CONST 0x36 ; [0x2] -> 0x20598
00020568 00 40 | @ | .CONST 0x40 ; [0x3] -> 0x205a2
0002056a 00 4a | J | .CONST 0x4a ; [0x4] -> 0x205ac
0002056c switch@0x2055a[0x0]:
0002056c 1f 07 | | MOVE.B D7,-(A7)
0002056e 4e b9 00 02 24 b8 |N $ | JSR 0x224b8
00020574 60 3e |`> | BRA 0x205b4
00020576 switch@0x2055a[0x1]:
00020576 55 4f |UO | SUBQ.L #0x2,A7
00020578 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool
0002057e 4a 1f |J | TST.B (A7)+
00020580 67 04 |g | BEQ 0x20586
00020582 42 10 |B | CLR.B (A0)
00020584 60 04 |` | BRA 0x2058a
00020586 10 bc 00 ff | | MOVE.B #0xff,(A0)
0002058a 1f 07 | | MOVE.B D7,-(A7)
0002058c 1f 10 | | MOVE.B (A0),-(A7)
0002058e 4e b9 00 02 23 58 |N #X | JSR 0x22358
00020594 58 4f |XO | ADDQ.L #0x4,A7
00020596 60 1e |` | BRA 0x205b6
00020598 switch@0x2055a[0x2]:
00020598 1f 07 | | MOVE.B D7,-(A7)
0002059a 4e b9 00 02 26 16 |N & | JSR 0x22616
000205a0 60 12 |` | BRA 0x205b4
000205a2 switch@0x2055a[0x3]:
000205a2 1f 07 | | MOVE.B D7,-(A7)
000205a4 4e b9 00 02 25 6c |N %l | JSR 0x2256c
000205aa 60 08 |` | BRA 0x205b4
000205ac switch@0x2055a[0x4]:
000205ac 1f 07 | | MOVE.B D7,-(A7)
000205ae 4e b9 00 02 24 1e |N $ | JSR 0x2241e
000205b4 54 4f |TO | ADDQ.L #0x2,A7
000205b6 52 07 |R | ADDQ.B #0x1,D7
000205b8 0c 07 00 0f | | CMPI.B #0x0f,D7
000205bc 6f 00 ff 7e |o ~ | BLE 0x2053c
000205c0 4c df 01 81 |L | MOVEM.L (A7)+,D0+D7+A0
000205c4 4e 5e |N^ | UNLK A6
000205c6 4e 75 |Nu | RTS
000205c8 ; --------------------------------------------------------------------------------------
000205c8 ; OMSI PASCAL Function
000205c8 ; --------------------------------------------------------------------------------------
000205c8 4e 56 ff f6 |NV | LINK.W A6,#0xfff6
000205cc bf d5 | | CMPA.L (A5),A7
000205ce 62 06 |b | BHI 0x205d6
000205d0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000205d4 4e 76 |Nv | TRAPV
000205d6 de fc 00 06 | | ADDA.W #0x6,A7
000205da 4e b9 00 02 22 00 |N " | JSR exp_FREEZE_WORLD.FIU()
000205e0 4e b9 00 02 26 ce |N & | JSR exp_MF.IOC()
000205e6 4e b9 00 02 23 2c |N #, | JSR exp_MF.VAL()
000205ec 4e b9 00 02 22 c0 |N " | JSR exp_MF.TYP()
000205f2 4e b9 00 02 22 40 |N "@ | JSR exp_RESET.SEQ()
000205f8 42 27 |B' | CLR.B -(A7)
000205fa 4e ba ff 24 |N $ | JSR 0x20520
000205fe 54 4f |TO | ADDQ.L #0x2,A7
00020600 4e b9 00 02 21 d2 |N ! | JSR exp_MF.FIU()
00020606 4e 5e |N^ | UNLK A6
00020608 4e 75 |Nu | RTS
0002060a ; --------------------------------------------------------------------------------------
0002060a ; OMSI PASCAL Function
0002060a ; --------------------------------------------------------------------------------------
0002060a 4e 56 ff ee |NV | LINK.W A6,#0xffee
0002060e bf d5 | | CMPA.L (A5),A7
00020610 62 06 |b | BHI 0x20618
00020612 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020616 4e 76 |Nv | TRAPV
00020618 de fc 00 0e | | ADDA.W #0xe,A7
0002061c 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
00020620 41 fa fe fe |A | LEA.L 0x20520,A0
00020624 30 3c 01 45 |0< E | MOVE.W #0x145,D0
00020628 4e b9 00 02 22 1e |N " | JSR exp_CLEAR_EXCEPTIONS.FIU()
0002062e 4e b9 00 02 22 d4 |N " | JSR exp_LOAD_BENIGN_UWORD.TYP()
00020634 1f 3c 00 01 | < | MOVE.B #0x01,-(A7)
00020638 4e 90 |N | JSR (A0)
0002063a 54 4f |TO | ADDQ.L #0x2,A7
0002063c 4e b9 00 02 21 e6 |N ! | JSR exp_INIT_MRU.FIU()
00020642 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00020646 4e 90 |N | JSR (A0)
00020648 54 4f |TO | ADDQ.L #0x2,A7
0002064a 4e b9 00 01 05 b0 |N | JSR FifoInit(void)
00020650 3f 00 |? | MOVE.W D0,-(A7)
00020652 4e b9 00 02 22 a6 |N " | JSR exp_PREP_RUN.TYP(Sw_2)
00020658 3e 80 |> | MOVE.W D0,(A7)
0002065a 4e b9 00 02 23 12 |N # | JSR exp_PREP_RUN.VAL(Sw_2)
00020660 3e 80 |> | MOVE.W D0,(A7)
00020662 4e b9 00 02 26 b4 |N & | JSR exp_PREP_RUN.IOC(Sw_2)
00020668 3e 80 |> | MOVE.W D0,(A7)
0002066a 4e b9 00 02 22 70 |N "p | JSR exp_PREP_RUN.SEQ(Sw_2)
00020670 3e 80 |> | MOVE.W D0,(A7)
00020672 4e b9 00 02 21 b8 |N ! | JSR exp_PREP_RUN.FIU(Sw_2)
00020678 1e bc 00 03 | | MOVE.B #0x03,(A7)
0002067c 4e 90 |N | JSR (A0)
0002067e 54 4f |TO | ADDQ.L #0x2,A7
00020680 4e b9 00 02 22 00 |N " | JSR exp_FREEZE_WORLD.FIU()
00020686 4e b9 00 02 22 8a |N " | JSR exp_RUN_NORMAL.TYP()
0002068c 4e b9 00 02 22 f6 |N " | JSR exp_RUN_NORMAL.VAL()
00020692 4e b9 00 02 22 56 |N "V | JSR exp_RUN_CHECK.SEQ()
00020698 4e b9 00 02 26 9a |N & | JSR exp_RUN_CHECK.IOC()
0002069e 1f 3c 00 04 | < | MOVE.B #0x04,-(A7)
000206a2 4e 90 |N | JSR (A0)
000206a4 54 4f |TO | ADDQ.L #0x2,A7
000206a6 4e b9 00 02 21 9c |N ! | JSR exp_RUN_NORMAL.FIU()
000206ac 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
000206b0 4e 5e |N^ | UNLK A6
000206b2 4e 75 |Nu | RTS
000206b4 ; --------------------------------------------------------------------------------------
000206b4 ; OMSI PASCAL Function
000206b4 ; --------------------------------------------------------------------------------------
000206b4 4e 56 ff f2 |NV | LINK.W A6,#0xfff2
000206b8 bf d5 | | CMPA.L (A5),A7
000206ba 62 06 |b | BHI 0x206c2
000206bc 44 fc 00 02 |D | MOVE.W #0x2,CCR
000206c0 4e 76 |Nv | TRAPV
000206c2 de fc 00 0e | | ADDA.W #0xe,A7
000206c6 48 e7 00 80 |H | MOVEM.L A0,-(A7)
000206ca 41 f9 00 02 29 4e |A )N | LEA.L 0x2294e,A0
000206d0 4a 10 |J | TST.B (A0)
000206d2 67 0e |g | BEQ 0x206e2
000206d4 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
000206d8 48 50 |HP | PEA.L (A0)
000206da 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428
000206e0 5c 4f |\O | ADDQ.L #0x6,A7
000206e2 4c df 01 00 |L | MOVEM.L (A7)+,A0
000206e6 4e 5e |N^ | UNLK A6
000206e8 4e 75 |Nu | RTS
000206ea ; --------------------------------------------------------------------------------------
000206ea ; OMSI PASCAL Function
000206ea ; --------------------------------------------------------------------------------------
000206ea 4e 56 ff c8 |NV | LINK.W A6,#0xffc8
000206ee bf d5 | | CMPA.L (A5),A7
000206f0 62 06 |b | BHI 0x206f8
000206f2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000206f6 4e 76 |Nv | TRAPV
000206f8 de fc 00 38 | 8 | ADDA.W #0x38,A7
000206fc 48 e7 80 e0 |H | MOVEM.L A2+A1+A0+D0,-(A7)
00020700 45 f9 00 02 29 4e |E )N | LEA.L 0x2294e,A2
00020706 48 52 |HR | PEA.L (A2)
00020708 4e b9 00 01 04 08 |N | JSR FSCALL_10408
0002070e 58 4f |XO | ADDQ.L #0x4,A7
00020710 4a 39 00 02 29 4f |J9 )O | TST.B 0x2294f
00020716 67 36 |g6 | BEQ 0x2074e
00020718 9e fc 00 16 | | SUBA.W #0x16,A7
0002071c 20 4f | O | MOVEA.L A7,A0
0002071e 43 fa fa 22 |C " | LEA.L 0x20142,A1
00020722 70 14 |p | MOVEQ.L #0x14,D0
00020724 10 d9 | | MOVE.B (A1)+,(A0)+
00020726 51 c8 ff fc |Q | DBF D0,0x20724
0002072a 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7)
0002072e 59 4f |YO | SUBQ.L #0x4,A7
00020730 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00020734 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00020738 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
0002073c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020742 50 4f |PO | ADDQ.L #0x8,A7
00020744 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
0002074a de fc 00 1c | | ADDA.W #0x1c,A7
0002074e 4a 12 |J | TST.B (A2)
00020750 67 04 |g | BEQ 0x20756
00020752 4e ba ff 60 |N ` | JSR 0x206b4
00020756 4c df 07 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2
0002075a 4e 5e |N^ | UNLK A6
0002075c 4e 75 |Nu | RTS
0002075e ; --------------------------------------------------------------------------------------
0002075e ; OMSI PASCAL Function
0002075e ; <LVAR 0x016 1(r)>
0002075e ; <LVAR 0x012 4(r)>
0002075e ; <LVAR 0x010 2(r)>
0002075e ; <LVAR 0x00c 1(r)>
0002075e ; <LVAR 0x008 4(r)>
0002075e ; <LVAR -0x004 2(w)>
0002075e ; <LVAR -0x006 2(w)>
0002075e ; <LVAR -0x00c 2(w)>
0002075e ; <LVAR -0x010 @>
0002075e ; --------------------------------------------------------------------------------------
0002075e 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 ; Spelunked
00020762 bf d5 | | CMPA.L (A5),A7
00020764 62 06 |b | BHI 0x2076c
00020766 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002076a 4e 76 |Nv | TRAPV
0002076c de fc 00 1e | | ADDA.W #0x1e,A7
00020770 48 e7 e0 80 |H | MOVEM.L A0+D2+D1+D0,-(A7)
00020774 74 01 |t | MOVEQ.L #0x01,D2
00020776 3d 7c 00 03 ff f4 |=| | MOVE.W #0x3,(A6-0xc)
0002077c 30 39 00 02 28 f8 |09 ( | MOVE.W 0x228f8,D0
00020782 e1 40 | @ | ASL.W #0x8,D0
00020784 12 2e 00 16 | . | MOVE.B (A6+0x16),D1
00020788 48 81 |H | EXTB.W D1
0002078a d2 40 | @ | ADD.W D0,D1
0002078c 3d 41 ff fa |=A | MOVE.W D1,(A6-0x6)
00020790 3d 6e 00 10 ff fc |=n | MOVE.W (A6+0x10),(A6-0x4)
00020796 48 6e ff f0 |Hn | PEA.L (A6-0x10)
0002079a 2f 2e 00 12 |/. | MOVE.L (A6+0x12),-(A7)
0002079e 3f 02 |? | MOVE.W D2,-(A7)
000207a0 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
000207a6 de fc 00 0a | | ADDA.W #0xa,A7
000207aa 4a 2e 00 0c |J. | TST.B (A6+0xc)
000207ae 67 10 |g | BEQ 0x207c0
000207b0 3f 02 |? | MOVE.W D2,-(A7)
000207b2 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
000207b6 48 50 |HP | PEA.L (A0)
000207b8 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
000207be 5c 4f |\O | ADDQ.L #0x6,A7
000207c0 4c df 01 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0
000207c4 4e 5e |N^ | UNLK A6
000207c6 4e 75 |Nu | RTS
000207c8 ; --------------------------------------------------------------------------------------
000207c8 ; OMSI PASCAL Function
000207c8 ; <LVAR 0x008 1(rw)>
000207c8 ; <LVAR -0x004 @ 1(r)>
000207c8 ; <LVAR -0x00c 2(r)>
000207c8 ; <LVAR -0x018 @>
000207c8 ; --------------------------------------------------------------------------------------
000207c8 4e 56 ff cc |NV | LINK.W A6,#0xffcc ; Spelunked
000207cc bf d5 | | CMPA.L (A5),A7
000207ce 62 06 |b | BHI 0x207d6
000207d0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000207d4 4e 76 |Nv | TRAPV
000207d6 de fc 00 1c | | ADDA.W #0x1c,A7
000207da 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
000207de 42 27 |B' | CLR.B -(A7)
000207e0 41 ee ff e8 |A | LEA.L (A6-0x18),A0
000207e4 2f 08 |/ | MOVE.L A0,-(A7)
000207e6 48 78 00 00 |Hx | PEA.L 0x0
000207ea 1f 3c 00 01 | < | MOVE.B #0x01,-(A7)
000207ee 48 6e ff fc |Hn | PEA.L (A6-0x4)
000207f2 4e ba ff 6a |N j | JSR 0x2075e
000207f6 de fc 00 10 | | ADDA.W #0x10,A7
000207fa 4a 2e ff fc |J. | TST.B (A6-0x4)
000207fe 66 0c |f | BNE 0x2080c
00020800 48 78 00 0c |Hx | PEA.L 0xc
00020804 4e b9 00 01 02 20 |N | JSR KC10_Panic(code : Long)
0002080a 58 4f |XO | ADDQ.L #0x4,A7
0002080c 42 2e 00 08 |B. | CLR.B (A6+0x8)
00020810 30 2e ff f4 |0. | MOVE.W (A6-0xc),D0
00020814 02 40 00 08 | @ | ANDI.W #0x0008,D0
00020818 67 04 |g | BEQ 0x2081e
0002081a 52 2e 00 08 |R. | ADDQ.B #0x1,(A6+0x8)
0002081e 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
00020822 4e 5e |N^ | UNLK A6
00020824 4e 75 |Nu | RTS
00020826 ; --------------------------------------------------------------------------------------
00020826 ; OMSI PASCAL Function
00020826 ; <LVAR 0x008 4(r)>
00020826 ; <LVAR -0x058 @>
00020826 ; --------------------------------------------------------------------------------------
00020826 4e 56 ff 50 |NV P | LINK.W A6,#0xff50
0002082a bf d5 | | CMPA.L (A5),A7
0002082c 62 06 |b | BHI 0x20834
0002082e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020832 4e 76 |Nv | TRAPV
00020834 de fc 00 58 | X | ADDA.W #0x58,A7
00020838 48 e7 f3 c0 |H | MOVEM.L A1+A0+D7+D6+D3+D2+D1+D0,-(A7)
0002083c 43 f9 00 02 28 e8 |C ( | LEA.L 0x228e8,A1
00020842 74 01 |t | MOVEQ.L #0x01,D2
00020844 76 04 |v | MOVEQ.L #0x04,D3
00020846 41 ee ff a8 |A | LEA.L (A6-0x58),A0
0002084a 2f 08 |/ | MOVE.L A0,-(A7)
0002084c 3f 3c 00 50 |?< P | MOVE.W #0x50,-(A7)
00020850 4e b9 00 01 04 18 |N | JSR FSCALL_10418
00020856 5c 4f |\O | ADDQ.L #0x6,A7
00020858 4e ba fe 90 |N | JSR 0x206ea
0002085c 7c 01 || | MOVEQ.L #0x01,D6
0002085e 7e 01 |~ | MOVEQ.L #0x01,D7
00020860 20 49 | I | MOVEA.L A1,A0
00020862 41 f0 68 00 |A h | LEA.L (A0+D6.L),A0
00020866 20 07 | | MOVE.L D7,D0
00020868 e3 80 | | ASL.L #0x1,D0
0002086a 32 36 08 a6 |26 | MOVE.W (A6+D0.L-#0x5a),D1
0002086e e0 49 | I | LSR.W #0x8,D1
00020870 11 41 40 67 | A@g | MOVE.B D1,(A0+0x4067)
00020874 30 36 08 a6 |06 | MOVE.W (A6+D0.L-#0x5a),D0
00020878 02 40 00 ff | @ | ANDI.W #0x00ff,D0
0002087c 11 40 40 68 | @@h | MOVE.B D0,(A0+0x4068)
00020880 54 86 |T | ADDQ.L #0x2,D6
00020882 52 87 |R | ADDQ.L #0x1,D7
00020884 0c 87 00 00 00 28 | ( | CMPI.L #0x00000028,D7
0002088a 6f d4 |o | BLE 0x20860
0002088c 7e 01 |~ | MOVEQ.L #0x01,D7
0002088e 20 49 | I | MOVEA.L A1,A0
00020890 41 f0 78 00 |A x | LEA.L (A0+D7.L),A0
00020894 10 36 78 07 | 6x | MOVE.B (A6+D7.L+#0x7),D0
00020898 b0 28 40 67 | (@g | CMP.B (A0+0x4067),D0
0002089c 67 4a |gJ | BEQ 0x208e8
0002089e 41 fa f8 ce |A | LEA.L 0x2016e,A0
000208a2 70 0a |p | MOVEQ.L #0x0a,D0
000208a4 3f 20 |? | MOVE.W -(A0),-(A7)
000208a6 51 c8 ff fc |Q | DBF D0,0x208a4
000208aa 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000208ae 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7)
000208b2 51 4f |QO | SUBQ.L #0x8,A7
000208b4 48 6f 00 0e |Ho | PEA.L (A7+0xe)
000208b8 3f 02 |? | MOVE.W D2,-(A7)
000208ba 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
000208be 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000208c4 58 4f |XO | ADDQ.L #0x4,A7
000208c6 48 6f 00 0e |Ho | PEA.L (A7+0xe)
000208ca 3f 02 |? | MOVE.W D2,-(A7)
000208cc 3f 03 |? | MOVE.W D3,-(A7)
000208ce 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000208d4 50 4f |PO | ADDQ.L #0x8,A7
000208d6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000208dc 50 4f |PO | ADDQ.L #0x8,A7
000208de 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
000208e4 de fc 00 20 | | ADDA.W #0x20,A7
000208e8 52 87 |R | ADDQ.L #0x1,D7
000208ea be 83 | | CMP.L D3,D7
000208ec 6f a0 |o | BLE 0x2088e
000208ee 4c df 03 cf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D6+D7+A0+A1
000208f2 4e 5e |N^ | UNLK A6
000208f4 4e 75 |Nu | RTS
000208f6 ; --------------------------------------------------------------------------------------
000208f6 ; OMSI PASCAL Function
000208f6 ; <LVAR 0x010 4(w)>
000208f6 ; <LVAR 0x00c 4(r)>
000208f6 ; <LVAR 0x008 4(r)>
000208f6 ; <LVAR -0x00c @ 4(r)>
000208f6 ; --------------------------------------------------------------------------------------
000208f6 4e 56 ff cc |NV | LINK.W A6,#0xffcc
000208fa bf d5 | | CMPA.L (A5),A7
000208fc 62 06 |b | BHI 0x20904
000208fe 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020902 4e 76 |Nv | TRAPV
00020904 de fc 00 28 | ( | ADDA.W #0x28,A7
00020908 48 e7 83 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D0,-(A7)
0002090c 45 ee ff f4 |E | LEA.L (A6-0xc),A2
00020910 48 52 |HR | PEA.L (A2)
00020912 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00020918 58 4f |XO | ADDQ.L #0x4,A7
0002091a 2c 2e 00 0c |,. | MOVE.L (A6+0xc),D6
0002091e 53 86 |S | SUBQ.L #0x1,D6
00020920 20 52 | R | MOVEA.L (A2),A0
00020922 2f 08 |/ | MOVE.L A0,-(A7)
00020924 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00020928 7e 01 |~ | MOVEQ.L #0x01,D7
0002092a be 97 | | CMP.L (A7),D7
0002092c 6e 1c |n | BGT 0x2094a
0002092e 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0
00020932 20 07 | | MOVE.L D7,D0
00020934 d0 86 | | ADD.L D6,D0
00020936 43 f9 00 02 28 e8 |C ( | LEA.L 0x228e8,A1
0002093c 43 f1 08 00 |C | LEA.L (A1+D0.L),A1
00020940 11 a9 40 67 78 01 | @gx | MOVE.B (A1+0x4067),(A0+D7.L+#0x1)
00020946 52 87 |R | ADDQ.L #0x1,D7
00020948 68 e0 |h | BVC 0x2092a
0002094a 58 4f |XO | ADDQ.L #0x4,A7
0002094c 2e 2e 00 08 |.. | MOVE.L (A6+0x8),D7
00020950 0c 87 00 00 00 01 | | CMPI.L #0x00000001,D7
00020956 6d 16 |m | BLT 0x2096e
00020958 20 57 | W | MOVEA.L (A7),A0
0002095a 10 30 78 01 | 0x | MOVE.B (A0+D7.L+#0x1),D0
0002095e 0c 00 00 20 | | CMPI.B #0x20,D0
00020962 67 06 |g | BEQ 0x2096a
00020964 30 87 |0 | MOVE.W D7,(A0)
00020966 58 4f |XO | ADDQ.L #0x4,A7
00020968 60 06 |` | BRA 0x20970
0002096a 53 87 |S | SUBQ.L #0x1,D7
0002096c 68 e2 |h | BVC 0x20950
0002096e 58 4f |XO | ADDQ.L #0x4,A7
00020970 2d 52 00 10 |-R | MOVE.L (A2),(A6+0x10)
00020974 4c df 07 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1+A2
00020978 4e 5e |N^ | UNLK A6
0002097a 4e 75 |Nu | RTS
0002097c ; --------------------------------------------------------------------------------------
0002097c ; OMSI PASCAL Function
0002097c ; <LVAR 0x010 2(w)>
0002097c ; <LVAR 0x00c 4(r)>
0002097c ; <LVAR 0x008 4(r)>
0002097c ; --------------------------------------------------------------------------------------
0002097c 4e 56 ff dc |NV | LINK.W A6,#0xffdc
00020980 bf d5 | | CMPA.L (A5),A7
00020982 62 06 |b | BHI 0x2098a
00020984 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020988 4e 76 |Nv | TRAPV
0002098a de fc 00 1c | | ADDA.W #0x1c,A7
0002098e 48 e7 83 80 |H | MOVEM.L A0+D7+D6+D0,-(A7)
00020992 7e 00 |~ | MOVEQ.L #0x00,D7
00020994 20 2e 00 0c | . | MOVE.L (A6+0xc),D0
00020998 d0 ae 00 08 | | ADD.L (A6+0x8),D0
0002099c 53 80 |S | SUBQ.L #0x1,D0
0002099e 2f 00 |/ | MOVE.L D0,-(A7)
000209a0 2c 2e 00 0c |,. | MOVE.L (A6+0xc),D6
000209a4 bc 97 | | CMP.L (A7),D6
000209a6 6e 20 |n | BGT 0x209c8
000209a8 ce fc 00 0a | | MULU.W #0xa,D7
000209ac 41 f9 00 02 28 e8 |A ( | LEA.L 0x228e8,A0
000209b2 41 f0 68 00 |A h | LEA.L (A0+D6.L),A0
000209b6 42 80 |B | CLR.L D0
000209b8 10 28 40 67 | (@g | MOVE.B (A0+0x4067),D0
000209bc 04 40 00 30 | @ 0 | SUBI.W #0x0030,D0
000209c0 48 c0 |H | EXTW.L D0
000209c2 de 80 | | ADD.L D0,D7
000209c4 52 86 |R | ADDQ.L #0x1,D6
000209c6 68 dc |h | BVC 0x209a4
000209c8 58 4f |XO | ADDQ.L #0x4,A7
000209ca 3d 47 00 10 |=G | MOVE.W D7,(A6+0x10)
000209ce 4c df 01 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0
000209d2 4e 5e |N^ | UNLK A6
000209d4 4e 75 |Nu | RTS
000209d6 ; --------------------------------------------------------------------------------------
000209d6 ; OMSI PASCAL Function
000209d6 ; --------------------------------------------------------------------------------------
000209d6 4e 56 ff b6 |NV | LINK.W A6,#0xffb6
000209da bf d5 | | CMPA.L (A5),A7
000209dc 62 06 |b | BHI 0x209e4
000209de 44 fc 00 02 |D | MOVE.W #0x2,CCR
000209e2 4e 76 |Nv | TRAPV
000209e4 de fc 00 4a | J | ADDA.W #0x4a,A7
000209e8 48 e7 e0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D2+D1+D0,-(A7)
000209ec 45 f9 00 02 28 fa |E ( | LEA.L 0x228fa,A2
000209f2 47 fa fd d4 |G | LEA.L 0x207c8,A3
000209f6 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
000209fc 72 01 |r | MOVEQ.L #0x01,D1
000209fe 74 0e |t | MOVEQ.L #0x0e,D2
00020a00 55 4f |UO | SUBQ.L #0x2,A7
00020a02 4e 93 |N | JSR (A3)
00020a04 14 9f | | MOVE.B (A7)+,(A2)
00020a06 44 12 |D | NEG.B (A2)
00020a08 52 12 |R | ADDQ.B #0x1,(A2)
00020a0a 1f 3c 00 07 | < | MOVE.B #0x07,-(A7)
00020a0e 48 79 00 02 29 4e |Hy )N | PEA.L 0x2294e
00020a14 4e b9 00 01 04 14 |N | JSR FSCALL_10414
00020a1a 5c 4f |\O | ADDQ.L #0x6,A7
00020a1c 4e ba fc 96 |N | JSR 0x206b4
00020a20 2f 3a f7 4c |/: L | MOVE.L 0x2016e,-(A7)
00020a24 4e ba fe 00 |N | JSR 0x20826
00020a28 54 4f |TO | ADDQ.L #0x2,A7
00020a2a 4e 93 |N | JSR (A3)
00020a2c 10 12 | | MOVE.B (A2),D0
00020a2e b0 1f | | CMP.B (A7)+,D0
00020a30 66 34 |f4 | BNE 0x20a66
00020a32 9e fc 00 1a | | SUBA.W #0x1a,A7
00020a36 20 4f | O | MOVEA.L A7,A0
00020a38 43 fa f7 38 |C 8 | LEA.L 0x20172,A1
00020a3c 70 18 |p | MOVEQ.L #0x18,D0
00020a3e 10 d9 | | MOVE.B (A1)+,(A0)+
00020a40 51 c8 ff fc |Q | DBF D0,0x20a3e
00020a44 59 4f |YO | SUBQ.L #0x4,A7
00020a46 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020a4a 3f 01 |? | MOVE.W D1,-(A7)
00020a4c 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
00020a50 4e 94 |N | JSR (A4)
00020a52 50 4f |PO | ADDQ.L #0x8,A7
00020a54 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020a5a de fc 00 1c | | ADDA.W #0x1c,A7
00020a5e 4e 93 |N | JSR (A3)
00020a60 14 9f | | MOVE.B (A7)+,(A2)
00020a62 44 12 |D | NEG.B (A2)
00020a64 52 12 |R | ADDQ.B #0x1,(A2)
00020a66 2f 3a f7 30 |/: 0 | MOVE.L 0x20198,-(A7)
00020a6a 2f 3a f7 28 |/: ( | MOVE.L 0x20194,-(A7)
00020a6e 2f 3a f7 20 |/: | MOVE.L 0x20190,-(A7)
00020a72 2f 3a f7 18 |/: | MOVE.L 0x2018c,-(A7)
00020a76 59 4f |YO | SUBQ.L #0x4,A7
00020a78 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020a7c 3f 01 |? | MOVE.W D1,-(A7)
00020a7e 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7)
00020a82 4e 94 |N | JSR (A4)
00020a84 50 4f |PO | ADDQ.L #0x8,A7
00020a86 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00020a8c de fc 00 12 | | ADDA.W #0x12,A7
00020a90 4e 93 |N | JSR (A3)
00020a92 14 9f | | MOVE.B (A7)+,(A2)
00020a94 44 12 |D | NEG.B (A2)
00020a96 52 12 |R | ADDQ.B #0x1,(A2)
00020a98 67 0a |g | BEQ 0x20aa4
00020a9a 2f 3a f7 04 |/: | MOVE.L 0x201a0,-(A7)
00020a9e 2f 3a f6 fc |/: | MOVE.L 0x2019c,-(A7)
00020aa2 60 08 |` | BRA 0x20aac
00020aa4 2f 3a f7 02 |/: | MOVE.L 0x201a8,-(A7)
00020aa8 2f 3a f6 fa |/: | MOVE.L 0x201a4,-(A7)
00020aac 59 4f |YO | SUBQ.L #0x4,A7
00020aae 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020ab2 3f 01 |? | MOVE.W D1,-(A7)
00020ab4 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7)
00020ab8 4e 94 |N | JSR (A4)
00020aba 50 4f |PO | ADDQ.L #0x8,A7
00020abc 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00020ac2 de fc 00 0c | | ADDA.W #0xc,A7
00020ac6 41 fa f6 f2 |A | LEA.L 0x201ba,A0
00020aca 70 06 |p | MOVEQ.L #0x06,D0
00020acc 3f 20 |? | MOVE.W -(A0),-(A7)
00020ace 51 c8 ff fc |Q | DBF D0,0x20acc
00020ad2 51 4f |QO | SUBQ.L #0x8,A7
00020ad4 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020ad8 3f 01 |? | MOVE.W D1,-(A7)
00020ada 3f 02 |? | MOVE.W D2,-(A7)
00020adc 4e 94 |N | JSR (A4)
00020ade 58 4f |XO | ADDQ.L #0x4,A7
00020ae0 48 78 00 05 |Hx | PEA.L 0x5
00020ae4 48 78 00 06 |Hx | PEA.L 0x6
00020ae8 4e ba fe 0c |N | JSR 0x208f6
00020aec 50 4f |PO | ADDQ.L #0x8,A7
00020aee 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020af4 50 4f |PO | ADDQ.L #0x8,A7
00020af6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020afc de c2 | | ADDA.W D2,A7
00020afe 2e ba f6 ba |. | MOVE.L 0x201ba,(A7)
00020b02 4e ba fd 22 |N " | JSR 0x20826
00020b06 2e ba f6 b6 |. | MOVE.L 0x201be,(A7)
00020b0a 4e ba fd 1a |N | JSR 0x20826
00020b0e 48 78 00 05 |Hx | PEA.L 0x5
00020b12 48 78 00 37 |Hx 7 | PEA.L 0x37
00020b16 4e ba fd de |N | JSR 0x208f6
00020b1a 50 4f |PO | ADDQ.L #0x8,A7
00020b1c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020b22 58 4f |XO | ADDQ.L #0x4,A7
00020b24 4c df 1f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3+A4
00020b28 4e 5e |N^ | UNLK A6
00020b2a 4e 75 |Nu | RTS
00020b2c ; --------------------------------------------------------------------------------------
00020b2c ; OMSI PASCAL Function
00020b2c ; --------------------------------------------------------------------------------------
00020b2c 4e 56 ff b6 |NV | LINK.W A6,#0xffb6
00020b30 bf d5 | | CMPA.L (A5),A7
00020b32 62 06 |b | BHI 0x20b3a
00020b34 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020b38 4e 76 |Nv | TRAPV
00020b3a de fc 00 4a | J | ADDA.W #0x4a,A7
00020b3e 48 e7 f0 e0 |H | MOVEM.L A2+A1+A0+D3+D2+D1+D0,-(A7)
00020b42 45 f9 00 02 29 4e |E )N | LEA.L 0x2294e,A2
00020b48 72 0e |r | MOVEQ.L #0x0e,D1
00020b4a 74 01 |t | MOVEQ.L #0x01,D2
00020b4c 76 1c |v | MOVEQ.L #0x1c,D3
00020b4e 48 52 |HR | PEA.L (A2)
00020b50 4e b9 00 01 04 08 |N | JSR FSCALL_10408
00020b56 58 4f |XO | ADDQ.L #0x4,A7
00020b58 4a 39 00 02 29 4f |J9 )O | TST.B 0x2294f
00020b5e 67 30 |g0 | BEQ 0x20b90
00020b60 9e fc 00 16 | | SUBA.W #0x16,A7
00020b64 20 4f | O | MOVEA.L A7,A0
00020b66 43 fa f6 5a |C Z | LEA.L 0x201c2,A1
00020b6a 70 14 |p | MOVEQ.L #0x14,D0
00020b6c 10 d9 | | MOVE.B (A1)+,(A0)+
00020b6e 51 c8 ff fc |Q | DBF D0,0x20b6c
00020b72 1f 01 | | MOVE.B D1,-(A7)
00020b74 59 4f |YO | SUBQ.L #0x4,A7
00020b76 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00020b7a 3f 02 |? | MOVE.W D2,-(A7)
00020b7c 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
00020b80 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020b86 50 4f |PO | ADDQ.L #0x8,A7
00020b88 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00020b8e de c3 | | ADDA.W D3,A7
00020b90 10 12 | | MOVE.B (A2),D0
00020b92 0c 00 00 06 | | CMPI.B #0x06,D0
00020b96 67 30 |g0 | BEQ 0x20bc8
00020b98 9e c3 | | SUBA.W D3,A7
00020b9a 20 4f | O | MOVEA.L A7,A0
00020b9c 43 fa f6 3a |C : | LEA.L 0x201d8,A1
00020ba0 70 1a |p | MOVEQ.L #0x1a,D0
00020ba2 10 d9 | | MOVE.B (A1)+,(A0)+
00020ba4 51 c8 ff fc |Q | DBF D0,0x20ba2
00020ba8 1f 01 | | MOVE.B D1,-(A7)
00020baa 59 4f |YO | SUBQ.L #0x4,A7
00020bac 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00020bb0 3f 02 |? | MOVE.W D2,-(A7)
00020bb2 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7)
00020bb6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020bbc 50 4f |PO | ADDQ.L #0x8,A7
00020bbe 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00020bc4 de fc 00 22 | " | ADDA.W #0x22,A7
00020bc8 4c df 07 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2
00020bcc 4e 5e |N^ | UNLK A6
00020bce 4e 75 |Nu | RTS
00020bd0 ; --------------------------------------------------------------------------------------
00020bd0 ; OMSI PASCAL Function
00020bd0 ; --------------------------------------------------------------------------------------
00020bd0 4e 56 ff ee |NV | LINK.W A6,#0xffee
00020bd4 bf d5 | | CMPA.L (A5),A7
00020bd6 62 06 |b | BHI 0x20bde
00020bd8 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020bdc 4e 76 |Nv | TRAPV
00020bde de fc 00 0e | | ADDA.W #0xe,A7
00020be2 48 e7 00 80 |H | MOVEM.L A0,-(A7)
00020be6 41 ee ff fc |A | LEA.L (A6-0x4),A0
00020bea 2f 08 |/ | MOVE.L A0,-(A7)
00020bec 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00020bf0 4e b9 00 01 04 18 |N | JSR FSCALL_10418
00020bf6 5c 4f |\O | ADDQ.L #0x6,A7
00020bf8 4e ba ff 32 |N 2 | JSR 0x20b2c
00020bfc 4c df 01 00 |L | MOVEM.L (A7)+,A0
00020c00 4e 5e |N^ | UNLK A6
00020c02 4e 75 |Nu | RTS
00020c04 ; --------------------------------------------------------------------------------------
00020c04 ; OMSI PASCAL Function
00020c04 ; --------------------------------------------------------------------------------------
00020c04 4e 56 ff bc |NV | LINK.W A6,#0xffbc
00020c08 bf d5 | | CMPA.L (A5),A7
00020c0a 62 06 |b | BHI 0x20c12
00020c0c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020c10 4e 76 |Nv | TRAPV
00020c12 de fc 00 3c | < | ADDA.W #0x3c,A7
00020c16 48 e7 d8 e0 |H | MOVEM.L A2+A1+A0+D4+D3+D1+D0,-(A7)
00020c1a 43 fa fc 0a |C | LEA.L 0x20826,A1
00020c1e 45 f9 00 02 28 fc |E ( | LEA.L 0x228fc,A2
00020c24 72 01 |r | MOVEQ.L #0x01,D1
00020c26 2f 3a f5 cc |/: | MOVE.L 0x201f4,-(A7)
00020c2a 4e 91 |N | JSR (A1)
00020c2c 2e ba f5 ca |. | MOVE.L 0x201f8,(A7)
00020c30 4e 91 |N | JSR (A1)
00020c32 2e ba f5 c8 |. | MOVE.L 0x201fc,(A7)
00020c36 4e 91 |N | JSR (A1)
00020c38 2e ba f5 c6 |. | MOVE.L 0x20200,(A7)
00020c3c 4e 91 |N | JSR (A1)
00020c3e 58 4f |XO | ADDQ.L #0x4,A7
00020c40 4e ba ff 8e |N | JSR 0x20bd0
00020c44 2f 3a f5 c2 |/: | MOVE.L 0x20208,-(A7)
00020c48 2f 3a f5 ba |/: | MOVE.L 0x20204,-(A7)
00020c4c 51 4f |QO | SUBQ.L #0x8,A7
00020c4e 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020c52 3f 01 |? | MOVE.W D1,-(A7)
00020c54 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7)
00020c58 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020c5e 58 4f |XO | ADDQ.L #0x4,A7
00020c60 48 78 00 05 |Hx | PEA.L 0x5
00020c64 48 78 00 1e |Hx | PEA.L 0x1e
00020c68 4e ba fc 8c |N | JSR 0x208f6
00020c6c 50 4f |PO | ADDQ.L #0x8,A7
00020c6e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00020c74 50 4f |PO | ADDQ.L #0x8,A7
00020c76 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00020c7c de fc 00 0a | | ADDA.W #0xa,A7
00020c80 48 78 00 2d |Hx - | PEA.L 0x2d
00020c84 48 78 00 02 |Hx | PEA.L 0x2
00020c88 4e ba fc f2 |N | JSR 0x2097c
00020c8c 50 4f |PO | ADDQ.L #0x8,A7
00020c8e 42 80 |B | CLR.L D0
00020c90 30 1f |0 | MOVE.W (A7)+,D0
00020c92 24 80 |$ | MOVE.L D0,(A2)
00020c94 28 3c 00 00 04 00 |(< | MOVE.L #0x400,D4
00020c9a 26 00 |& | MOVE.L D0,D3
00020c9c 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
00020ca2 23 c4 00 02 29 00 |# ) | MOVE.L D4,0x22900
00020ca8 41 f9 00 02 29 50 |A )P | LEA.L 0x22950,A0
00020cae 2f 08 |/ | MOVE.L A0,-(A7)
00020cb0 3f 04 |? | MOVE.W D4,-(A7)
00020cb2 4e b9 00 01 04 18 |N | JSR FSCALL_10418
00020cb8 5c 4f |\O | ADDQ.L #0x6,A7
00020cba 23 c1 00 02 28 f0 |# ( | MOVE.L D1,0x228f0
00020cc0 23 d2 00 02 28 f4 |# ( | MOVE.L (A2),0x228f4
00020cc6 4c df 07 1b |L | MOVEM.L (A7)+,D0+D1+D3+D4+A0+A1+A2
00020cca 4e 5e |N^ | UNLK A6
00020ccc 4e 75 |Nu | RTS
00020cce ; --------------------------------------------------------------------------------------
00020cce ; OMSI PASCAL Function
00020cce ; <LVAR 0x00c @ 4(r)>
00020cce ; <LVAR 0x008 4(r)>
00020cce ; <LVAR -0x004 @ 4(rw)>
00020cce ; --------------------------------------------------------------------------------------
00020cce 4e 56 ff 90 |NV | LINK.W A6,#0xff90
00020cd2 bf d5 | | CMPA.L (A5),A7
00020cd4 62 06 |b | BHI 0x20cdc
00020cd6 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020cda 4e 76 |Nv | TRAPV
00020cdc de fc 00 6c | l | ADDA.W #0x6c,A7
00020ce0 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7)
00020ce4 45 ee ff fc |E | LEA.L (A6-0x4),A2
00020ce8 72 2e |r. | MOVEQ.L #0x2e,D1
00020cea 74 01 |t | MOVEQ.L #0x01,D2
00020cec 59 4f |YO | SUBQ.L #0x4,A7
00020cee 48 78 00 05 |Hx | PEA.L 0x5
00020cf2 48 78 00 1e |Hx | PEA.L 0x1e
00020cf6 4e ba fb fe |N | JSR 0x208f6
00020cfa 50 4f |PO | ADDQ.L #0x8,A7
00020cfc 24 97 |$ | MOVE.L (A7),(A2)
00020cfe 54 4f |TO | ADDQ.L #0x2,A7
00020d00 48 78 00 23 |Hx # | PEA.L 0x23
00020d04 48 78 00 05 |Hx | PEA.L 0x5
00020d08 4e ba fc 72 |N r | JSR 0x2097c
00020d0c 50 4f |PO | ADDQ.L #0x8,A7
00020d0e 42 80 |B | CLR.L D0
00020d10 30 1f |0 | MOVE.W (A7)+,D0
00020d12 b0 ae 00 08 | | CMP.L (A6+0x8),D0
00020d16 66 14 |f | BNE 0x20d2c
00020d18 55 4f |UO | SUBQ.L #0x2,A7
00020d1a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00020d1e 2f 12 |/ | MOVE.L (A2),-(A7)
00020d20 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte
00020d26 50 4f |PO | ADDQ.L #0x8,A7
00020d28 4a 1f |J | TST.B (A7)+
00020d2a 66 68 |fh | BNE 0x20d94
00020d2c 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00020d32 9e c1 | | SUBA.W D1,A7
00020d34 20 4f | O | MOVEA.L A7,A0
00020d36 43 fa f4 d4 |C | LEA.L 0x2020c,A1
00020d3a 70 2c |p, | MOVEQ.L #0x2c,D0
00020d3c 10 d9 | | MOVE.B (A1)+,(A0)+
00020d3e 51 c8 ff fc |Q | DBF D0,0x20d3c
00020d42 5d 4f |]O | SUBQ.L #0x6,A7
00020d44 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00020d48 3f 02 |? | MOVE.W D2,-(A7)
00020d4a 3f 3c 00 2d |?< - | MOVE.W #0x2d,-(A7)
00020d4e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020d54 5c 4f |\O | ADDQ.L #0x6,A7
00020d56 42 17 |B | CLR.B (A7)
00020d58 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00020d5e 5c 4f |\O | ADDQ.L #0x6,A7
00020d60 4a 1f |J | TST.B (A7)+
00020d62 66 2e |f. | BNE 0x20d92
00020d64 41 fa f4 e8 |A | LEA.L 0x2024e,A0
00020d68 70 04 |p | MOVEQ.L #0x04,D0
00020d6a 2f 20 |/ | MOVE.L -(A0),-(A7)
00020d6c 51 c8 ff fc |Q | DBF D0,0x20d6a
00020d70 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7)
00020d74 59 4f |YO | SUBQ.L #0x4,A7
00020d76 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00020d7a 3f 02 |? | MOVE.W D2,-(A7)
00020d7c 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7)
00020d80 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020d86 50 4f |PO | ADDQ.L #0x8,A7
00020d88 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00020d8e de fc 00 1a | | ADDA.W #0x1a,A7
00020d92 de c1 | | ADDA.W D1,A7
00020d94 48 6e 00 0c |Hn | PEA.L (A6+0xc)
00020d98 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00020d9e 58 4f |XO | ADDQ.L #0x4,A7
00020da0 48 52 |HR | PEA.L (A2)
00020da2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00020da8 58 4f |XO | ADDQ.L #0x4,A7
00020daa 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2
00020dae 4e 5e |N^ | UNLK A6
00020db0 4e 75 |Nu | RTS
00020db2 ; --------------------------------------------------------------------------------------
00020db2 ; OMSI PASCAL Function
00020db2 ; --------------------------------------------------------------------------------------
00020db2 4e 56 ff e6 |NV | LINK.W A6,#0xffe6
00020db6 bf d5 | | CMPA.L (A5),A7
00020db8 62 06 |b | BHI 0x20dc0
00020dba 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020dbe 4e 76 |Nv | TRAPV
00020dc0 de fc 00 1a | | ADDA.W #0x1a,A7
00020dc4 48 e7 80 e0 |H | MOVEM.L A2+A1+A0+D0,-(A7)
00020dc8 43 f9 00 02 28 f4 |C ( | LEA.L 0x228f4,A1
00020dce 45 f9 00 02 28 f0 |E ( | LEA.L 0x228f0,A2
00020dd4 52 91 |R | ADDQ.L #0x1,(A1)
00020dd6 20 11 | | MOVE.L (A1),D0
00020dd8 b0 b9 00 02 28 fc | ( | CMP.L 0x228fc,D0
00020dde 6d 2a |m* | BLT 0x20e0a
00020de0 4e ba f9 08 |N | JSR 0x206ea
00020de4 20 12 | | MOVE.L (A2),D0
00020de6 e1 80 | | ASL.L #0x8,D0
00020de8 eb 80 | | ASL.L #0x5,D0
00020dea 41 f9 00 02 28 e8 |A ( | LEA.L 0x228e8,A0
00020df0 41 f0 08 68 |A h | LEA.L (A0+D0.L+#0x68),A0
00020df4 2f 08 |/ | MOVE.L A0,-(A7)
00020df6 3f 39 00 02 29 02 |?9 ) | MOVE.W 0x22902,-(A7)
00020dfc 4e b9 00 01 04 18 |N | JSR FSCALL_10418
00020e02 5c 4f |\O | ADDQ.L #0x6,A7
00020e04 44 92 |D | NEG.L (A2)
00020e06 52 92 |R | ADDQ.L #0x1,(A2)
00020e08 42 91 |B | CLR.L (A1)
00020e0a 4c df 07 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2
00020e0e 4e 5e |N^ | UNLK A6
00020e10 4e 75 |Nu | RTS
00020e12 ; --------------------------------------------------------------------------------------
00020e12 ; OMSI PASCAL Function
00020e12 ; --------------------------------------------------------------------------------------
00020e12 4e 56 ff da |NV | LINK.W A6,#0xffda
00020e16 bf d5 | | CMPA.L (A5),A7
00020e18 62 06 |b | BHI 0x20e20
00020e1a 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020e1e 4e 76 |Nv | TRAPV
00020e20 de fc 00 26 | & | ADDA.W #0x26,A7
00020e24 48 e7 80 e0 |H | MOVEM.L A2+A1+A0+D0,-(A7)
00020e28 45 fa f9 fc |E | LEA.L 0x20826,A2
00020e2c 4e ba fc fe |N | JSR 0x20b2c
00020e30 2f 3a f4 1c |/: | MOVE.L 0x2024e,-(A7)
00020e34 4e 92 |N | JSR (A2)
00020e36 2e ba f4 1a |. | MOVE.L 0x20252,(A7)
00020e3a 4e 92 |N | JSR (A2)
00020e3c 2e ba f4 18 |. | MOVE.L 0x20256,(A7)
00020e40 4e 92 |N | JSR (A2)
00020e42 58 4f |XO | ADDQ.L #0x4,A7
00020e44 4e ba fd 8a |N | JSR 0x20bd0
00020e48 5d 4f |]O | SUBQ.L #0x6,A7
00020e4a 20 4f | O | MOVEA.L A7,A0
00020e4c 43 fa f4 0c |C | LEA.L 0x2025a,A1
00020e50 70 04 |p | MOVEQ.L #0x04,D0
00020e52 10 d9 | | MOVE.B (A1)+,(A0)+
00020e54 51 c8 ff fc |Q | DBF D0,0x20e52
00020e58 59 4f |YO | SUBQ.L #0x4,A7
00020e5a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020e5e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00020e62 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00020e66 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020e6c 50 4f |PO | ADDQ.L #0x8,A7
00020e6e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020e74 de fc 00 0a | | ADDA.W #0xa,A7
00020e78 4c df 07 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2
00020e7c 4e 5e |N^ | UNLK A6
00020e7e 4e 75 |Nu | RTS
00020e80 ; --------------------------------------------------------------------------------------
00020e80 ; OMSI PASCAL Function
00020e80 ; <LVAR 0x00c 4(w)>
00020e80 ; <LVAR 0x008 @ 4(rw)>
00020e80 ; <LVAR -0x00c @ 4(rw)>
00020e80 ; --------------------------------------------------------------------------------------
00020e80 4e 56 ff c0 |NV | LINK.W A6,#0xffc0
00020e84 bf d5 | | CMPA.L (A5),A7
00020e86 62 06 |b | BHI 0x20e8e
00020e88 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020e8c 4e 76 |Nv | TRAPV
00020e8e de fc 00 34 | 4 | ADDA.W #0x34,A7
00020e92 48 e7 1b e0 |H | MOVEM.L A2+A1+A0+D7+D6+D4+D3,-(A7)
00020e96 43 ee 00 08 |C | LEA.L (A6+0x8),A1
00020e9a 45 ee ff f4 |E | LEA.L (A6-0xc),A2
00020e9e 59 4f |YO | SUBQ.L #0x4,A7
00020ea0 2f 11 |/ | MOVE.L (A1),-(A7)
00020ea2 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String
00020ea8 58 4f |XO | ADDQ.L #0x4,A7
00020eaa 22 9f |" | MOVE.L (A7)+,(A1)
00020eac 7c 01 || | MOVEQ.L #0x01,D6
00020eae 28 06 |( | MOVE.L D6,D4
00020eb0 76 03 |v | MOVEQ.L #0x03,D3
00020eb2 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
00020eb8 41 fa f6 42 |A B | LEA.L 0x204fc,A0
00020ebc 59 4f |YO | SUBQ.L #0x4,A7
00020ebe 1e b0 48 fd | H | MOVE.B (A0+D4.L-#0x3),(A7)
00020ec2 1f 70 48 fe 00 01 | pH | MOVE.B (A0+D4.L-#0x2),(A7+0x1)
00020ec8 1f 70 48 ff 00 02 | pH | MOVE.B (A0+D4.L-#0x1),(A7+0x2)
00020ece 59 4f |YO | SUBQ.L #0x4,A7
00020ed0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020ed4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00020ed8 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7)
00020edc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020ee2 50 4f |PO | ADDQ.L #0x8,A7
00020ee4 24 9f |$ | MOVE.L (A7)+,(A2)
00020ee6 54 4f |TO | ADDQ.L #0x2,A7
00020ee8 2f 11 |/ | MOVE.L (A1),-(A7)
00020eea 2f 12 |/ | MOVE.L (A2),-(A7)
00020eec 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte
00020ef2 50 4f |PO | ADDQ.L #0x8,A7
00020ef4 1e 1f | | MOVE.B (A7)+,D7
00020ef6 48 52 |HR | PEA.L (A2)
00020ef8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00020efe 58 4f |XO | ADDQ.L #0x4,A7
00020f00 4a 07 |J | TST.B D7
00020f02 67 06 |g | BEQ 0x20f0a
00020f04 2d 46 00 0c |-F | MOVE.L D6,(A6+0xc)
00020f08 60 0a |` | BRA 0x20f14
00020f0a 52 86 |R | ADDQ.L #0x1,D6
00020f0c 0c 86 00 00 00 0c | | CMPI.L #0x0000000c,D6
00020f12 6f 9a |o | BLE 0x20eae
00020f14 48 51 |HQ | PEA.L (A1)
00020f16 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00020f1c 58 4f |XO | ADDQ.L #0x4,A7
00020f1e 4c df 07 d8 |L | MOVEM.L (A7)+,D3+D4+D6+D7+A0+A1+A2
00020f22 4e 5e |N^ | UNLK A6
00020f24 4e 75 |Nu | RTS
00020f26 ; --------------------------------------------------------------------------------------
00020f26 ; OMSI PASCAL Function
00020f26 ; <LVAR 0x008 4(r)>
00020f26 ; --------------------------------------------------------------------------------------
00020f26 4e 56 ff cc |NV | LINK.W A6,#0xffcc
00020f2a bf d5 | | CMPA.L (A5),A7
00020f2c 62 06 |b | BHI 0x20f34
00020f2e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020f32 4e 76 |Nv | TRAPV
00020f34 de fc 00 34 | 4 | ADDA.W #0x34,A7
00020f38 48 e7 d8 e0 |H | MOVEM.L A2+A1+A0+D4+D3+D1+D0,-(A7)
00020f3c 43 f8 00 02 |C | LEA.L 0x2,A1
00020f40 45 fa fa 3a |E : | LEA.L 0x2097c,A2
00020f44 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00020f48 55 4f |UO | SUBQ.L #0x2,A7
00020f4a 48 78 00 30 |Hx 0 | PEA.L 0x30
00020f4e 48 51 |HQ | PEA.L (A1)
00020f50 4e 92 |N | JSR (A2)
00020f52 50 4f |PO | ADDQ.L #0x8,A7
00020f54 70 3c |p< | MOVEQ.L #0x3c,D0
00020f56 c0 df | | MULU.W (A7)+,D0
00020f58 55 4f |UO | SUBQ.L #0x2,A7
00020f5a 48 78 00 33 |Hx 3 | PEA.L 0x33
00020f5e 48 51 |HQ | PEA.L (A1)
00020f60 4e 92 |N | JSR (A2)
00020f62 50 4f |PO | ADDQ.L #0x8,A7
00020f64 42 81 |B | CLR.L D1
00020f66 32 1f |2 | MOVE.W (A7)+,D1
00020f68 d2 80 | | ADD.L D0,D1
00020f6a 28 01 |( | MOVE.L D1,D4
00020f6c 76 1e |v | MOVEQ.L #0x1e,D3
00020f6e 4e b9 00 01 02 90 |N | JSR ?mulu_d3_d4
00020f74 55 4f |UO | SUBQ.L #0x2,A7
00020f76 48 78 00 36 |Hx 6 | PEA.L 0x36
00020f7a 48 51 |HQ | PEA.L (A1)
00020f7c 4e 92 |N | JSR (A2)
00020f7e 50 4f |PO | ADDQ.L #0x8,A7
00020f80 30 1f |0 | MOVE.W (A7)+,D0
00020f82 e2 48 | H | LSR.W #0x1,D0
00020f84 42 81 |B | CLR.L D1
00020f86 32 00 |2 | MOVE.W D0,D1
00020f88 d2 84 | | ADD.L D4,D1
00020f8a 30 81 |0 | MOVE.W D1,(A0)
00020f8c 55 4f |UO | SUBQ.L #0x2,A7
00020f8e 48 78 00 39 |Hx 9 | PEA.L 0x39
00020f92 48 51 |HQ | PEA.L (A1)
00020f94 4e 92 |N | JSR (A2)
00020f96 50 4f |PO | ADDQ.L #0x8,A7
00020f98 30 1f |0 | MOVE.W (A7)+,D0
00020f9a 02 28 00 e0 00 03 | ( | ANDI.B #0xe0,(A0+0x3)
00020fa0 81 28 00 03 | ( | OR.B D0,(A0+0x3)
00020fa4 51 4f |QO | SUBQ.L #0x8,A7
00020fa6 48 78 00 3c |Hx < | PEA.L 0x3c
00020faa 48 78 00 03 |Hx | PEA.L 0x3
00020fae 4e ba f9 46 |N F | JSR 0x208f6
00020fb2 50 4f |PO | ADDQ.L #0x8,A7
00020fb4 4e ba fe ca |N | JSR 0x20e80
00020fb8 58 4f |XO | ADDQ.L #0x4,A7
00020fba 20 1f | | MOVE.L (A7)+,D0
00020fbc 02 68 fe 1f 00 02 | h | ANDI.W #0xfe1f,(A0+0x2)
00020fc2 eb 48 | H | LSL.W #0x5,D0
00020fc4 81 68 00 02 | h | OR.W D0,(A0+0x2)
00020fc8 55 4f |UO | SUBQ.L #0x2,A7
00020fca 48 78 00 40 |Hx @ | PEA.L 0x40
00020fce 48 51 |HQ | PEA.L (A1)
00020fd0 4e 92 |N | JSR (A2)
00020fd2 50 4f |PO | ADDQ.L #0x8,A7
00020fd4 42 80 |B | CLR.L D0
00020fd6 30 1f |0 | MOVE.W (A7)+,D0
00020fd8 53 80 |S | SUBQ.L #0x1,D0
00020fda 02 28 00 01 00 02 | ( | ANDI.B #0x01,(A0+0x2)
00020fe0 e3 08 | | LSL.B #0x1,D0
00020fe2 81 28 00 02 | ( | OR.B D0,(A0+0x2)
00020fe6 4c df 07 1b |L | MOVEM.L (A7)+,D0+D1+D3+D4+A0+A1+A2
00020fea 4e 5e |N^ | UNLK A6
00020fec 4e 75 |Nu | RTS
00020fee ; --------------------------------------------------------------------------------------
00020fee ; OMSI PASCAL Function
00020fee ; <LVAR 0x00a @ 4(r)>
00020fee ; <LVAR 0x008 1(r)>
00020fee ; <LVAR -0x001 1(r)>
00020fee ; <LVAR -0x002 1(r)>
00020fee ; <LVAR -0x003 1(r)>
00020fee ; <LVAR -0x004 @ 1(r)>
00020fee ; <LVAR -0x00a @>
00020fee ; <LVAR -0x00e @ 4(r)>
00020fee ; --------------------------------------------------------------------------------------
00020fee 4e 56 ff a2 |NV | LINK.W A6,#0xffa2 ; Spelunked
00020ff2 bf d5 | | CMPA.L (A5),A7
00020ff4 62 06 |b | BHI 0x20ffc
00020ff6 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020ffa 4e 76 |Nv | TRAPV
00020ffc de fc 00 4c | L | ADDA.W #0x4c,A7
00021000 48 e7 fb f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D4+D3+D2+D1+D0,-(A7)
00021004 43 ee 00 0a |C | LEA.L (A6+0xa),A1
00021008 45 ee ff f2 |E | LEA.L (A6-0xe),A2
0002100c 47 ee ff f6 |G | LEA.L (A6-0xa),A3
00021010 74 02 |t | MOVEQ.L #0x02,D2
00021012 76 01 |v | MOVEQ.L #0x01,D3
00021014 78 14 |x | MOVEQ.L #0x14,D4
00021016 4e ba fb ec |N | JSR 0x20c04
0002101a 55 4f |UO | SUBQ.L #0x2,A7
0002101c 48 78 00 23 |Hx # | PEA.L 0x23
00021020 48 78 00 05 |Hx | PEA.L 0x5
00021024 4e ba f9 56 |N V | JSR 0x2097c
00021028 50 4f |PO | ADDQ.L #0x8,A7
0002102a 42 80 |B | CLR.L D0
0002102c 30 1f |0 | MOVE.W (A7)+,D0
0002102e 2c 00 |, | MOVE.L D0,D6
00021030 59 4f |YO | SUBQ.L #0x4,A7
00021032 2f 11 |/ | MOVE.L (A1),-(A7)
00021034 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
0002103a 2e 86 |. | MOVE.L D6,(A7)
0002103c 4e ba fc 90 |N | JSR 0x20cce
00021040 50 4f |PO | ADDQ.L #0x8,A7
00021042 4a 2e 00 08 |J. | TST.B (A6+0x8)
00021046 67 00 00 d6 |g | BEQ 0x2111e
0002104a 2f 11 |/ | MOVE.L (A1),-(A7)
0002104c 1f 03 | | MOVE.B D3,-(A7)
0002104e 1f 02 | | MOVE.B D2,-(A7)
00021050 2f 06 |/ | MOVE.L D6,-(A7)
00021052 48 53 |HS | PEA.L (A3)
00021054 48 52 |HR | PEA.L (A2)
00021056 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0002105c de c4 | | ADDA.W D4,A7
0002105e 48 51 |HQ | PEA.L (A1)
00021060 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00021066 58 4f |XO | ADDQ.L #0x4,A7
00021068 20 52 | R | MOVEA.L (A2),A0
0002106a 02 28 00 fd 00 3f | ( ? | ANDI.B #0xfd,(A0+0x3f)
00021070 10 39 00 02 69 7e | 9 i~ | MOVE.B 0x2697e,D0
00021076 0c 00 00 44 | D | CMPI.B #0x44,D0
0002107a 67 04 |g | BEQ 0x21080
0002107c 85 28 00 3f | ( ? | OR.B D2,(A0+0x3f)
00021080 02 28 00 fb 00 3f | ( ? | ANDI.B #0xfb,(A0+0x3f)
00021086 0c 00 00 4b | K | CMPI.B #0x4b,D0
0002108a 66 06 |f | BNE 0x21092
0002108c 00 28 00 04 00 3f | ( ? | ORI.B #0x04,(A0+0x3f)
00021092 48 6e ff fc |Hn | PEA.L (A6-0x4)
00021096 4e ba fe 8e |N | JSR 0x20f26
0002109a 58 4f |XO | ADDQ.L #0x4,A7
0002109c 11 6e ff fc 00 3a | n : | MOVE.B (A6-0x4),(A0+0x3a)
000210a2 11 6e ff fd 00 3b | n ; | MOVE.B (A6-0x3),(A0+0x3b)
000210a8 11 6e ff fe 00 3c | n < | MOVE.B (A6-0x2),(A0+0x3c)
000210ae 11 6e ff ff 00 3d | n = | MOVE.B (A6-0x1),(A0+0x3d)
000210b4 11 43 00 4c | C L | MOVE.B D3,(A0+0x4c)
000210b8 2f 06 |/ | MOVE.L D6,-(A7)
000210ba 53 97 |S | SUBQ.L #0x1,(A7)
000210bc 7e 00 |~ | MOVEQ.L #0x00,D7
000210be be 97 | | CMP.L (A7),D7
000210c0 6e 42 |nB | BGT 0x21104
000210c2 4e ba fc ee |N | JSR 0x20db2
000210c6 2f 12 |/ | MOVE.L (A2),-(A7)
000210c8 3f 07 |? | MOVE.W D7,-(A7)
000210ca 42 67 |Bg | CLR.W -(A7)
000210cc 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7)
000210d0 1f 02 | | MOVE.B D2,-(A7)
000210d2 20 39 00 02 28 f0 | 9 ( | MOVE.L 0x228f0,D0
000210d8 e1 80 | | ASL.L #0x8,D0
000210da eb 80 | | ASL.L #0x5,D0
000210dc 41 f9 00 02 28 e8 |A ( | LEA.L 0x228e8,A0
000210e2 22 39 00 02 28 f4 |"9 ( | MOVE.L 0x228f4,D1
000210e8 e1 81 | | ASL.L #0x8,D1
000210ea e5 81 | | ASL.L #0x2,D1
000210ec 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
000210f0 41 f0 18 68 |A h | LEA.L (A0+D1.L+#0x68),A0
000210f4 2f 08 |/ | MOVE.L A0,-(A7)
000210f6 48 53 |HS | PEA.L (A3)
000210f8 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
000210fe de c4 | | ADDA.W D4,A7
00021100 52 87 |R | ADDQ.L #0x1,D7
00021102 68 ba |h | BVC 0x210be
00021104 54 4f |TO | ADDQ.L #0x2,A7
00021106 42 17 |B | CLR.B (A7)
00021108 1f 02 | | MOVE.B D2,-(A7)
0002110a 48 78 00 01 |Hx | PEA.L 0x1
0002110e 48 53 |HS | PEA.L (A3)
00021110 48 52 |HR | PEA.L (A2)
00021112 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
00021118 de fc 00 10 | | ADDA.W #0x10,A7
0002111c 60 1a |` | BRA 0x21138
0002111e 48 51 |HQ | PEA.L (A1)
00021120 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00021126 2e 86 |. | MOVE.L D6,(A7)
00021128 7e 01 |~ | MOVEQ.L #0x01,D7
0002112a be 97 | | CMP.L (A7),D7
0002112c 6e 08 |n | BGT 0x21136
0002112e 4e ba fc 82 |N | JSR 0x20db2
00021132 52 87 |R | ADDQ.L #0x1,D7
00021134 68 f4 |h | BVC 0x2112a
00021136 58 4f |XO | ADDQ.L #0x4,A7
00021138 4e ba fc d8 |N | JSR 0x20e12
0002113c 4c df 0f df |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D6+D7+A0+A1+A2+A3
00021140 4e 5e |N^ | UNLK A6
00021142 4e 75 |Nu | RTS
00021144 ; --------------------------------------------------------------------------------------
00021144 ; OMSI PASCAL Function
00021144 ; <LVAR -0x002 @ 1(r)>
00021144 ; <LVAR -0x006 @ 4(r)>
00021144 ; <LVAR -0x008 @>
00021144 ; <LVAR -0x00c @ 4(r)>
00021144 ; <LVAR -0x010 @ 4(rw)>
00021144 ; --------------------------------------------------------------------------------------
00021144 4e 56 ff b0 |NV | LINK.W A6,#0xffb0
00021148 bf d5 | | CMPA.L (A5),A7
0002114a 62 06 |b | BHI 0x21152
0002114c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021150 4e 76 |Nv | TRAPV
00021152 de fc 00 40 | @ | ADDA.W #0x40,A7
00021156 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7)
0002115a 45 ee ff fa |E | LEA.L (A6-0x6),A2
0002115e 47 ee ff f0 |G | LEA.L (A6-0x10),A3
00021162 49 ee ff fe |I | LEA.L (A6-0x2),A4
00021166 72 14 |r | MOVEQ.L #0x14,D1
00021168 9e c1 | | SUBA.W D1,A7
0002116a 20 4f | O | MOVEA.L A7,A0
0002116c 43 fa ef c0 |C | LEA.L 0x2012e,A1
00021170 70 12 |p | MOVEQ.L #0x12,D0
00021172 10 d9 | | MOVE.B (A1)+,(A0)+
00021174 51 c8 ff fc |Q | DBF D0,0x21172
00021178 59 4f |YO | SUBQ.L #0x4,A7
0002117a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002117e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021182 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
00021186 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002118c 50 4f |PO | ADDQ.L #0x8,A7
0002118e 26 9f |& | MOVE.L (A7)+,(A3)
00021190 de fc 00 10 | | ADDA.W #0x10,A7
00021194 2e 93 |. | MOVE.L (A3),(A7)
00021196 42 27 |B' | CLR.B -(A7)
00021198 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
0002119c 48 78 00 00 |Hx | PEA.L 0x0
000211a0 48 6e ff f8 |Hn | PEA.L (A6-0x8)
000211a4 48 6e ff f4 |Hn | PEA.L (A6-0xc)
000211a8 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000211ae de c1 | | ADDA.W D1,A7
000211b0 48 53 |HS | PEA.L (A3)
000211b2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
000211b8 58 4f |XO | ADDQ.L #0x4,A7
000211ba 48 52 |HR | PEA.L (A2)
000211bc 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
000211c2 2e ae ff f4 |. | MOVE.L (A6-0xc),(A7)
000211c6 48 52 |HR | PEA.L (A2)
000211c8 48 54 |HT | PEA.L (A4)
000211ca 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte)
000211d0 de fc 00 0c | | ADDA.W #0xc,A7
000211d4 4a 14 |J | TST.B (A4)
000211d6 66 0a |f | BNE 0x211e2
000211d8 2f 12 |/ | MOVE.L (A2),-(A7)
000211da 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000211e0 60 08 |` | BRA 0x211ea
000211e2 48 52 |HR | PEA.L (A2)
000211e4 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
000211ea 58 4f |XO | ADDQ.L #0x4,A7
000211ec 4a 14 |J | TST.B (A4)
000211ee 67 ca |g | BEQ 0x211ba
000211f0 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4
000211f4 4e 5e |N^ | UNLK A6
000211f6 4e 75 |Nu | RTS
000211f8 ; --------------------------------------------------------------------------------------
000211f8 ; OMSI PASCAL Function
000211f8 ; <LVAR -0x003 1(r)>
000211f8 ; <LVAR -0x004 1(r)>
000211f8 ; <LVAR -0x005 1(r)>
000211f8 ; <LVAR -0x006 @ 1(r)>
000211f8 ; <LVAR -0x00c @ 4(r)>
000211f8 ; <LVAR -0x010 @ 4(rw)>
000211f8 ; <LVAR -0x012 @>
000211f8 ; <LVAR -0x016 @ 4(r)>
000211f8 ; --------------------------------------------------------------------------------------
000211f8 4e 56 ff 42 |NV B | LINK.W A6,#0xff42
000211fc bf d5 | | CMPA.L (A5),A7
000211fe 62 06 |b | BHI 0x21206
00021200 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021204 4e 76 |Nv | TRAPV
00021206 de fc 00 a2 | | ADDA.W #0xa2,A7
0002120a 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
0002120e 45 f9 00 02 28 e8 |E ( | LEA.L 0x228e8,A2
00021214 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
0002121a 49 f9 00 02 29 46 |I )F | LEA.L 0x22946,A4
00021220 4e ba f9 e2 |N | JSR 0x20c04
00021224 59 4f |YO | SUBQ.L #0x4,A7
00021226 48 78 00 05 |Hx | PEA.L 0x5
0002122a 48 78 00 1e |Hx | PEA.L 0x1e
0002122e 4e ba f6 c6 |N | JSR 0x208f6
00021232 50 4f |PO | ADDQ.L #0x8,A7
00021234 23 d7 00 02 29 4a |# )J | MOVE.L (A7),0x2294a
0002123a 54 4f |TO | ADDQ.L #0x2,A7
0002123c 48 78 00 23 |Hx # | PEA.L 0x23
00021240 48 78 00 05 |Hx | PEA.L 0x5
00021244 4e ba f7 36 |N 6 | JSR 0x2097c
00021248 50 4f |PO | ADDQ.L #0x8,A7
0002124a 42 80 |B | CLR.L D0
0002124c 30 1f |0 | MOVE.W (A7)+,D0
0002124e 28 80 |( | MOVE.L D0,(A4)
00021250 41 fa f1 3e |A > | LEA.L 0x20390,A0
00021254 70 0a |p | MOVEQ.L #0x0a,D0
00021256 3f 20 |? | MOVE.W -(A0),-(A7)
00021258 51 c8 ff fc |Q | DBF D0,0x21256
0002125c 59 4f |YO | SUBQ.L #0x4,A7
0002125e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021262 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021266 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
0002126a 4e 93 |N | JSR (A3)
0002126c 58 4f |XO | ADDQ.L #0x4,A7
0002126e 2e 94 |. | MOVE.L (A4),(A7)
00021270 4e ba fa 5c |N \ | JSR 0x20cce
00021274 de fc 00 1a | | ADDA.W #0x1a,A7
00021278 2e b9 00 02 29 4a |. )J | MOVE.L 0x2294a,(A7)
0002127e 1f 3c 00 01 | < | MOVE.B #0x01,-(A7)
00021282 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00021286 2f 14 |/ | MOVE.L (A4),-(A7)
00021288 48 6e ff ee |Hn | PEA.L (A6-0x12)
0002128c 48 6e ff ea |Hn | PEA.L (A6-0x16)
00021290 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00021296 de fc 00 14 | | ADDA.W #0x14,A7
0002129a 20 6e ff ea | n | MOVEA.L (A6-0x16),A0
0002129e 02 28 00 fd 00 3f | ( ? | ANDI.B #0xfd,(A0+0x3f)
000212a4 10 39 00 02 69 7e | 9 i~ | MOVE.B 0x2697e,D0
000212aa 0c 00 00 44 | D | CMPI.B #0x44,D0
000212ae 67 06 |g | BEQ 0x212b6
000212b0 00 28 00 02 00 3f | ( ? | ORI.B #0x02,(A0+0x3f)
000212b6 02 28 00 fb 00 3f | ( ? | ANDI.B #0xfb,(A0+0x3f)
000212bc 0c 00 00 4b | K | CMPI.B #0x4b,D0
000212c0 66 06 |f | BNE 0x212c8
000212c2 00 28 00 04 00 3f | ( ? | ORI.B #0x04,(A0+0x3f)
000212c8 48 6e ff fa |Hn | PEA.L (A6-0x6)
000212cc 4e ba fc 58 |N X | JSR 0x20f26
000212d0 58 4f |XO | ADDQ.L #0x4,A7
000212d2 11 6e ff fa 00 3a | n : | MOVE.B (A6-0x6),(A0+0x3a)
000212d8 11 6e ff fb 00 3b | n ; | MOVE.B (A6-0x5),(A0+0x3b)
000212de 11 6e ff fc 00 3c | n < | MOVE.B (A6-0x4),(A0+0x3c)
000212e4 11 6e ff fd 00 3d | n = | MOVE.B (A6-0x3),(A0+0x3d)
000212ea 11 7c 00 01 00 4c | | L | MOVE.B #0x01,(A0+0x4c)
000212f0 7c 00 || | MOVEQ.L #0x00,D6
000212f2 2f 14 |/ | MOVE.L (A4),-(A7)
000212f4 53 97 |S | SUBQ.L #0x1,(A7)
000212f6 7e 00 |~ | MOVEQ.L #0x00,D7
000212f8 be 97 | | CMP.L (A7),D7
000212fa 6e 00 01 62 |n b | BGT 0x2145e
000212fe 4e ba fa b2 |N | JSR 0x20db2
00021302 2f 2e ff ea |/. | MOVE.L (A6-0x16),-(A7)
00021306 3f 07 |? | MOVE.W D7,-(A7)
00021308 42 67 |Bg | CLR.W -(A7)
0002130a 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7)
0002130e 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00021312 20 39 00 02 28 f0 | 9 ( | MOVE.L 0x228f0,D0
00021318 e1 80 | | ASL.L #0x8,D0
0002131a eb 80 | | ASL.L #0x5,D0
0002131c 20 4a | J | MOVEA.L A2,A0
0002131e 22 39 00 02 28 f4 |"9 ( | MOVE.L 0x228f4,D1
00021324 e1 81 | | ASL.L #0x8,D1
00021326 e5 81 | | ASL.L #0x2,D1
00021328 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
0002132c 41 f0 18 68 |A h | LEA.L (A0+D1.L+#0x68),A0
00021330 2f 08 |/ | MOVE.L A0,-(A7)
00021332 48 6e ff ee |Hn | PEA.L (A6-0x12)
00021336 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
0002133c de fc 00 14 | | ADDA.W #0x14,A7
00021340 0c 87 00 00 00 03 | | CMPI.L #0x00000003,D7
00021346 6e 4c |nL | BGT 0x21394
00021348 70 03 |p | MOVEQ.L #0x03,D0
0002134a 90 87 | | SUB.L D7,D0
0002134c 20 4a | J | MOVEA.L A2,A0
0002134e 42 30 08 20 |B0 | CLR.B (A0+D0.L+#0x20)
00021352 22 39 00 02 28 f0 |"9 ( | MOVE.L 0x228f0,D1
00021358 e1 81 | | ASL.L #0x8,D1
0002135a eb 81 | | ASL.L #0x5,D1
0002135c 22 4a |"J | MOVEA.L A2,A1
0002135e 24 39 00 02 28 f4 |$9 ( | MOVE.L 0x228f4,D2
00021364 e1 82 | | ASL.L #0x8,D2
00021366 e5 82 | | ASL.L #0x2,D2
00021368 43 f1 18 00 |C | LEA.L (A1+D1.L),A1
0002136c 32 31 28 68 |21(h | MOVE.W (A1+D2.L+#0x68),D1
00021370 02 41 00 ff | A | ANDI.W #0x00ff,D1
00021374 67 04 |g | BEQ 0x2137a
00021376 52 30 08 20 |R0 | ADDQ.B #0x1,(A0+D0.L+#0x20)
0002137a 72 00 |r | MOVEQ.L #0x00,D1
0002137c 4a 06 |J | TST.B D6
0002137e 66 10 |f | BNE 0x21390
00021380 4a 30 08 20 |J0 | TST.B (A0+D0.L+#0x20)
00021384 67 0c |g | BEQ 0x21392
00021386 30 31 28 70 |01(p | MOVE.W (A1+D2.L+#0x70),D0
0002138a 02 40 01 00 | @ | ANDI.W #0x0100,D0
0002138e 67 02 |g | BEQ 0x21392
00021390 52 01 |R | ADDQ.B #0x1,D1
00021392 1c 01 | | MOVE.B D1,D6
00021394 0c 87 00 00 00 0d | | CMPI.L #0x0000000d,D7
0002139a 66 00 00 bc |f | BNE 0x21458
0002139e 9e fc 00 16 | | SUBA.W #0x16,A7
000213a2 20 4f | O | MOVEA.L A7,A0
000213a4 43 fa ef ea |C | LEA.L 0x20390,A1
000213a8 70 14 |p | MOVEQ.L #0x14,D0
000213aa 10 d9 | | MOVE.B (A1)+,(A0)+
000213ac 51 c8 ff fc |Q | DBF D0,0x213aa
000213b0 59 4f |YO | SUBQ.L #0x4,A7
000213b2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000213b6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000213ba 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7)
000213be 4e 93 |N | JSR (A3)
000213c0 50 4f |PO | ADDQ.L #0x8,A7
000213c2 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10)
000213c6 de fc 00 12 | | ADDA.W #0x12,A7
000213ca 2e ae ff f0 |. | MOVE.L (A6-0x10),(A7)
000213ce 1f 3c 00 01 | < | MOVE.B #0x01,-(A7)
000213d2 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
000213d6 48 78 00 01 |Hx | PEA.L 0x1
000213da 48 6e ff ee |Hn | PEA.L (A6-0x12)
000213de 48 6e ff f4 |Hn | PEA.L (A6-0xc)
000213e2 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000213e8 de fc 00 14 | | ADDA.W #0x14,A7
000213ec 48 6e ff f0 |Hn | PEA.L (A6-0x10)
000213f0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
000213f6 2e ae ff f4 |. | MOVE.L (A6-0xc),(A7)
000213fa 42 67 |Bg | CLR.W -(A7)
000213fc 42 67 |Bg | CLR.W -(A7)
000213fe 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7)
00021402 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00021406 20 39 00 02 28 f0 | 9 ( | MOVE.L 0x228f0,D0
0002140c e1 80 | | ASL.L #0x8,D0
0002140e eb 80 | | ASL.L #0x5,D0
00021410 20 4a | J | MOVEA.L A2,A0
00021412 22 39 00 02 28 f4 |"9 ( | MOVE.L 0x228f4,D1
00021418 e1 81 | | ASL.L #0x8,D1
0002141a e5 81 | | ASL.L #0x2,D1
0002141c 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
00021420 41 f0 18 68 |A h | LEA.L (A0+D1.L+#0x68),A0
00021424 2f 08 |/ | MOVE.L A0,-(A7)
00021426 48 6e ff ee |Hn | PEA.L (A6-0x12)
0002142a 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
00021430 de fc 00 12 | | ADDA.W #0x12,A7
00021434 42 17 |B | CLR.B (A7)
00021436 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
0002143a 48 78 00 01 |Hx | PEA.L 0x1
0002143e 48 6e ff ee |Hn | PEA.L (A6-0x12)
00021442 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00021446 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
0002144c de fc 00 10 | | ADDA.W #0x10,A7
00021450 13 fc 00 01 00 02 69 a1 | i | MOVE.B #0x01,0x269a1
00021458 52 87 |R | ADDQ.L #0x1,D7
0002145a 68 00 fe 9c |h | BVC 0x212f8
0002145e 58 4f |XO | ADDQ.L #0x4,A7
00021460 4e ba f9 b0 |N | JSR 0x20e12
00021464 42 27 |B' | CLR.B -(A7)
00021466 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
0002146a 48 78 00 01 |Hx | PEA.L 0x1
0002146e 48 6e ff ee |Hn | PEA.L (A6-0x12)
00021472 48 6e ff ea |Hn | PEA.L (A6-0x16)
00021476 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
0002147c de fc 00 0e | | ADDA.W #0xe,A7
00021480 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool
00021486 bc 1f | | CMP.B (A7)+,D6
00021488 67 5a |gZ | BEQ 0x214e4
0002148a 4a 06 |J | TST.B D6
0002148c 67 2e |g. | BEQ 0x214bc
0002148e 41 fa ee 36 |A 6 | LEA.L 0x202c6,A0
00021492 70 1a |p | MOVEQ.L #0x1a,D0
00021494 3f 20 |? | MOVE.W -(A0),-(A7)
00021496 51 c8 ff fc |Q | DBF D0,0x21494
0002149a 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7)
0002149e 59 4f |YO | SUBQ.L #0x4,A7
000214a0 48 6f 00 06 |Ho | PEA.L (A7+0x6)
000214a4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000214a8 3f 3c 00 36 |?< 6 | MOVE.W #0x36,-(A7)
000214ac 4e 93 |N | JSR (A3)
000214ae 50 4f |PO | ADDQ.L #0x8,A7
000214b0 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
000214b6 de fc 00 3c | < | ADDA.W #0x3c,A7
000214ba 60 28 |`( | BRA 0x214e4
000214bc 41 fa ee 48 |A H | LEA.L 0x20306,A0
000214c0 70 0f |p | MOVEQ.L #0x0f,D0
000214c2 2f 20 |/ | MOVE.L -(A0),-(A7)
000214c4 51 c8 ff fc |Q | DBF D0,0x214c2
000214c8 59 4f |YO | SUBQ.L #0x4,A7
000214ca 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000214ce 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000214d2 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7)
000214d6 4e 93 |N | JSR (A3)
000214d8 50 4f |PO | ADDQ.L #0x8,A7
000214da 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000214e0 de fc 00 44 | D | ADDA.W #0x44,A7
000214e4 7e 00 |~ | MOVEQ.L #0x00,D7
000214e6 7a 0c |z | MOVEQ.L #0x0c,D5
000214e8 20 4a | J | MOVEA.L A2,A0
000214ea 55 4f |UO | SUBQ.L #0x2,A7
000214ec 1f 05 | | MOVE.B D5,-(A7)
000214ee 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte
000214f4 54 4f |TO | ADDQ.L #0x2,A7
000214f6 10 30 78 20 | 0x | MOVE.B (A0+D7.L+#0x20),D0
000214fa b0 1f | | CMP.B (A7)+,D0
000214fc 67 00 00 c8 |g | BEQ 0x215c6
00021500 4a 30 78 20 |J0x | TST.B (A0+D7.L+#0x20)
00021504 67 60 |g` | BEQ 0x21566
00021506 3f 3a ee a2 |?: | MOVE.W 0x203aa,-(A7)
0002150a 3f 3a ee 9c |?: | MOVE.W 0x203a8,-(A7)
0002150e 3f 3a ee 96 |?: | MOVE.W 0x203a6,-(A7)
00021512 9e fc 00 3a | : | SUBA.W #0x3a,A7
00021516 20 4f | O | MOVEA.L A7,A0
00021518 43 fa ed ec |C | LEA.L 0x20306,A1
0002151c 70 38 |p8 | MOVEQ.L #0x38,D0
0002151e 10 d9 | | MOVE.B (A1)+,(A0)+
00021520 51 c8 ff fc |Q | DBF D0,0x2151e
00021524 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7)
00021528 51 4f |QO | SUBQ.L #0x8,A7
0002152a 48 6f 00 44 |Ho D | PEA.L (A7+0x44)
0002152e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021532 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7)
00021536 4e 93 |N | JSR (A3)
00021538 2e 87 |. | MOVE.L D7,(A7)
0002153a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021540 48 6f 00 12 |Ho | PEA.L (A7+0x12)
00021544 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021548 3f 3c 00 39 |?< 9 | MOVE.W #0x39,-(A7)
0002154c 4e 93 |N | JSR (A3)
0002154e 50 4f |PO | ADDQ.L #0x8,A7
00021550 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
00021556 de fc 00 0c | | ADDA.W #0xc,A7
0002155a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00021560 de fc 00 46 | F | ADDA.W #0x46,A7
00021564 60 60 |`` | BRA 0x215c6
00021566 9e fc 00 10 | | SUBA.W #0x10,A7
0002156a 20 4f | O | MOVEA.L A7,A0
0002156c 43 fa ee 3e |C > | LEA.L 0x203ac,A1
00021570 70 0e |p | MOVEQ.L #0x0e,D0
00021572 10 d9 | | MOVE.B (A1)+,(A0)+
00021574 51 c8 ff fc |Q | DBF D0,0x21572
00021578 9e fc 00 3a | : | SUBA.W #0x3a,A7
0002157c 20 4f | O | MOVEA.L A7,A0
0002157e 43 fa ed c0 |C | LEA.L 0x20340,A1
00021582 70 38 |p8 | MOVEQ.L #0x38,D0
00021584 10 d9 | | MOVE.B (A1)+,(A0)+
00021586 51 c8 ff fc |Q | DBF D0,0x21584
0002158a 51 4f |QO | SUBQ.L #0x8,A7
0002158c 48 6f 00 42 |Ho B | PEA.L (A7+0x42)
00021590 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021594 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7)
00021598 4e 93 |N | JSR (A3)
0002159a 2e 87 |. | MOVE.L D7,(A7)
0002159c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
000215a2 48 6f 00 10 |Ho | PEA.L (A7+0x10)
000215a6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000215aa 3f 3c 00 39 |?< 9 | MOVE.W #0x39,-(A7)
000215ae 4e 93 |N | JSR (A3)
000215b0 50 4f |PO | ADDQ.L #0x8,A7
000215b2 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String
000215b8 de fc 00 0c | | ADDA.W #0xc,A7
000215bc 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000215c2 de fc 00 4e | N | ADDA.W #0x4e,A7
000215c6 52 87 |R | ADDQ.L #0x1,D7
000215c8 52 05 |R | ADDQ.B #0x1,D5
000215ca 0c 05 00 0f | | CMPI.B #0x0f,D5
000215ce 6f 00 ff 18 |o | BLE 0x214e8
000215d2 4a 06 |J | TST.B D6
000215d4 67 16 |g | BEQ 0x215ec
000215d6 23 fc 00 00 08 00 00 02 |# | MOVE.L #0x800,0x22910
000215de 29 10 |) |
000215e0 23 fc 00 00 00 04 00 02 |# | MOVE.L #0x4,0x2290c
000215e8 29 0c |) |
000215ea 60 14 |` | BRA 0x21600
000215ec 23 fc 00 00 10 00 00 02 |# | MOVE.L #0x1000,0x22910
000215f4 29 10 |) |
000215f6 23 fc 00 00 00 08 00 02 |# | MOVE.L #0x8,0x2290c
000215fe 29 0c |) |
00021600 42 b9 00 02 29 14 |B ) | CLR.L 0x22914
00021606 7e 00 |~ | MOVEQ.L #0x00,D7
00021608 20 4a | J | MOVEA.L A2,A0
0002160a 18 30 78 20 | 0x | MOVE.B (A0+D7.L+#0x20),D4
0002160e 48 84 |H | EXTB.W D4
00021610 48 c4 |H | EXTW.L D4
00021612 26 39 00 02 29 0c |&9 ) | MOVE.L 0x2290c,D3
00021618 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
0002161e d9 b9 00 02 29 14 | ) | ADD.L D4,0x22914
00021624 52 87 |R | ADDQ.L #0x1,D7
00021626 0c 87 00 00 00 03 | | CMPI.L #0x00000003,D7
0002162c 6f da |o | BLE 0x21608
0002162e 28 39 00 02 29 10 |(9 ) | MOVE.L 0x22910,D4
00021634 26 39 00 02 29 14 |&9 ) | MOVE.L 0x22914,D3
0002163a 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
00021640 33 c4 00 02 29 18 |3 ) | MOVE.W D4,0x22918
00021646 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002164a 4e 5e |N^ | UNLK A6
0002164c 4e 75 |Nu | RTS
0002164e ; --------------------------------------------------------------------------------------
0002164e ; OMSI PASCAL Function
0002164e ; <LVAR 0x00c 4(r)>
0002164e ; <LVAR 0x008 4(r)>
0002164e ; <LVAR -0x003 @>
0002164e ; <LVAR -0x004 @ 1(r)>
0002164e ; --------------------------------------------------------------------------------------
0002164e 4e 56 ff 98 |NV | LINK.W A6,#0xff98
00021652 bf d5 | | CMPA.L (A5),A7
00021654 62 06 |b | BHI 0x2165c
00021656 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002165a 4e 76 |Nv | TRAPV
0002165c de fc 00 5c | \ | ADDA.W #0x5c,A7
00021660 48 e7 f3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7)
00021664 43 f9 00 02 29 2a |C )* | LEA.L 0x2292a,A1
0002166a 45 f9 00 02 28 f0 |E ( | LEA.L 0x228f0,A2
00021670 47 f9 00 02 28 e8 |G ( | LEA.L 0x228e8,A3
00021676 49 f9 00 02 28 f4 |I ( | LEA.L 0x228f4,A4
0002167c 74 01 |t | MOVEQ.L #0x01,D2
0002167e 76 0a |v | MOVEQ.L #0x0a,D3
00021680 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00021684 53 97 |S | SUBQ.L #0x1,(A7)
00021686 7c 00 || | MOVEQ.L #0x00,D6
00021688 bc 97 | | CMP.L (A7),D6
0002168a 6e 00 01 1c |n | BGT 0x217a8
0002168e 4e ba f7 22 |N " | JSR 0x20db2
00021692 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00021696 b0 c2 | | CMPA.W D2,A0
00021698 67 34 |g4 | BEQ 0x216ce
0002169a 2f 08 |/ | MOVE.L A0,-(A7)
0002169c 3f 06 |? | MOVE.W D6,-(A7)
0002169e 42 67 |Bg | CLR.W -(A7)
000216a0 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7)
000216a4 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
000216a8 20 12 | | MOVE.L (A2),D0
000216aa e1 80 | | ASL.L #0x8,D0
000216ac eb 80 | | ASL.L #0x5,D0
000216ae 20 4b | K | MOVEA.L A3,A0
000216b0 22 14 |" | MOVE.L (A4),D1
000216b2 e1 81 | | ASL.L #0x8,D1
000216b4 e5 81 | | ASL.L #0x2,D1
000216b6 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
000216ba 41 f0 18 68 |A h | LEA.L (A0+D1.L+#0x68),A0
000216be 2f 08 |/ | MOVE.L A0,-(A7)
000216c0 48 6e ff fd |Hn | PEA.L (A6-0x3)
000216c4 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
000216ca de fc 00 14 | | ADDA.W #0x14,A7
000216ce 20 12 | | MOVE.L (A2),D0
000216d0 e1 80 | | ASL.L #0x8,D0
000216d2 eb 80 | | ASL.L #0x5,D0
000216d4 20 4b | K | MOVEA.L A3,A0
000216d6 22 14 |" | MOVE.L (A4),D1
000216d8 e1 81 | | ASL.L #0x8,D1
000216da e5 81 | | ASL.L #0x2,D1
000216dc 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
000216e0 41 f0 18 68 |A h | LEA.L (A0+D1.L+#0x68),A0
000216e4 2f 08 |/ | MOVE.L A0,-(A7)
000216e6 2f 39 00 02 69 b2 |/9 i | MOVE.L 0x269b2,-(A7)
000216ec 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7)
000216f0 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
000216f6 de c3 | | ADDA.W D3,A7
000216f8 41 f9 00 02 29 1e |A ) | LEA.L 0x2291e,A0
000216fe 2f 08 |/ | MOVE.L A0,-(A7)
00021700 42 67 |Bg | CLR.W -(A7)
00021702 4e b9 00 01 02 3c |N < | JSR KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word)
00021708 5c 4f |\O | ADDQ.L #0x6,A7
0002170a 4a 79 00 02 29 44 |Jy )D | TST.W 0x22944
00021710 67 24 |g$ | BEQ 0x21736
00021712 42 80 |B | CLR.L D0
00021714 30 39 00 02 29 2c |09 ), | MOVE.W 0x2292c,D0
0002171a 42 81 |B | CLR.L D1
0002171c 32 39 00 02 29 44 |29 )D | MOVE.W 0x22944,D1
00021722 d2 80 | | ADD.L D0,D1
00021724 33 c1 00 02 29 2c |3 ), | MOVE.W D1,0x2292c
0002172a 4a 41 |JA | TST.W D1
0002172c 66 08 |f | BNE 0x21736
0002172e 42 80 |B | CLR.L D0
00021730 30 11 |0 | MOVE.W (A1),D0
00021732 52 80 |R | ADDQ.L #0x1,D0
00021734 32 80 |2 | MOVE.W D0,(A1)
00021736 42 80 |B | CLR.L D0
00021738 30 11 |0 | MOVE.W (A1),D0
0002173a 42 81 |B | CLR.L D1
0002173c 32 39 00 02 29 42 |29 )B | MOVE.W 0x22942,D1
00021742 d2 80 | | ADD.L D0,D1
00021744 32 81 |2 | MOVE.W D1,(A1)
00021746 2e 3c ff ff fc 18 |.< | MOVE.L #0xfffffc18,D7
0002174c 41 f9 00 02 29 2e |A ). | LEA.L 0x2292e,A0
00021752 2f 08 |/ | MOVE.L A0,-(A7)
00021754 42 67 |Bg | CLR.W -(A7)
00021756 48 6e ff fc |Hn | PEA.L (A6-0x4)
0002175a 4e b9 00 01 02 3e |N > | JSR KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool)
00021760 de c3 | | ADDA.W D3,A7
00021762 52 87 |R | ADDQ.L #0x1,D7
00021764 4a 2e ff fc |J. | TST.B (A6-0x4)
00021768 66 04 |f | BNE 0x2176e
0002176a 4a 87 |J | TST.L D7
0002176c 66 de |f | BNE 0x2174c
0002176e 4a 2e ff fc |J. | TST.B (A6-0x4)
00021772 66 2e |f. | BNE 0x217a2
00021774 41 fa ec 5c |A \ | LEA.L 0x203d2,A0
00021778 70 0a |p | MOVEQ.L #0x0a,D0
0002177a 3f 20 |? | MOVE.W -(A0),-(A7)
0002177c 51 c8 ff fc |Q | DBF D0,0x2177a
00021780 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7)
00021784 59 4f |YO | SUBQ.L #0x4,A7
00021786 48 6f 00 06 |Ho | PEA.L (A7+0x6)
0002178a 3f 02 |? | MOVE.W D2,-(A7)
0002178c 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
00021790 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021796 50 4f |PO | ADDQ.L #0x8,A7
00021798 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
0002179e de fc 00 1c | | ADDA.W #0x1c,A7
000217a2 52 86 |R | ADDQ.L #0x1,D6
000217a4 68 00 fe e2 |h | BVC 0x21688
000217a8 58 4f |XO | ADDQ.L #0x4,A7
000217aa 4c df 1f cf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2+A3+A4
000217ae 4e 5e |N^ | UNLK A6
000217b0 4e 75 |Nu | RTS
000217b2 ; --------------------------------------------------------------------------------------
000217b2 ; OMSI PASCAL Function
000217b2 ; <LVAR 0x00e 4(r)>
000217b2 ; <LVAR 0x00c 2(r)>
000217b2 ; <LVAR 0x00a 2(r)>
000217b2 ; --------------------------------------------------------------------------------------
000217b2 4e 56 ff ea |NV | LINK.W A6,#0xffea
000217b6 bf d5 | | CMPA.L (A5),A7
000217b8 62 06 |b | BHI 0x217c0
000217ba 44 fc 00 02 |D | MOVE.W #0x2,CCR
000217be 4e 76 |Nv | TRAPV
000217c0 de fc 00 14 | | ADDA.W #0x14,A7
000217c4 48 e7 c0 00 |H | MOVEM.L D1+D0,-(A7)
000217c8 4e ba f4 3a |N : | JSR 0x20c04
000217cc 2f 2e 00 0e |/. | MOVE.L (A6+0xe),-(A7)
000217d0 42 80 |B | CLR.L D0
000217d2 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0
000217d6 2f 00 |/ | MOVE.L D0,-(A7)
000217d8 4e ba f4 f4 |N | JSR 0x20cce
000217dc 50 4f |PO | ADDQ.L #0x8,A7
000217de 30 39 00 02 29 06 |09 ) | MOVE.W 0x22906,D0
000217e4 48 c0 |H | EXTW.L D0
000217e6 22 00 |" | MOVE.L D0,D1
000217e8 e1 81 | | ASL.L #0x8,D1
000217ea e9 81 | | ASL.L #0x4,D1
000217ec 58 40 |X@ | ADDQ.W #0x4,D0
000217ee 48 c0 |H | EXTW.L D0
000217f0 e1 80 | | ASL.L #0x8,D0
000217f2 d0 81 | | ADD.L D1,D0
000217f4 06 80 00 00 00 80 | | ADDI.L #0x00000080,D0
000217fa 33 c0 00 02 29 1e |3 ) | MOVE.W D0,0x2291e
00021800 42 79 00 02 29 20 |By ) | CLR.W 0x22920
00021806 42 79 00 02 29 22 |By )" | CLR.W 0x22922
0002180c 33 ee 00 0a 00 02 29 24 |3 )$| MOVE.W (A6+0xa),0x22924
00021814 42 79 00 02 29 26 |By )& | CLR.W 0x22926
0002181a 42 79 00 02 29 28 |By )( | CLR.W 0x22928
00021820 42 79 00 02 29 2a |By )* | CLR.W 0x2292a
00021826 42 79 00 02 29 2c |By ), | CLR.W 0x2292c
0002182c 42 79 00 02 29 3e |By )> | CLR.W 0x2293e
00021832 42 79 00 02 29 40 |By )@ | CLR.W 0x22940
00021838 42 79 00 02 29 42 |By )B | CLR.W 0x22942
0002183e 42 79 00 02 29 44 |By )D | CLR.W 0x22944
00021844 4c df 00 03 |L | MOVEM.L (A7)+,D0+D1
00021848 4e 5e |N^ | UNLK A6
0002184a 4e 75 |Nu | RTS
0002184c ; --------------------------------------------------------------------------------------
0002184c ; OMSI PASCAL Function
0002184c ; <LVAR -0x003 1(r)>
0002184c ; <LVAR -0x004 1(r)>
0002184c ; <LVAR -0x005 1(r)>
0002184c ; <LVAR -0x006 @ 1(r)>
0002184c ; <LVAR -0x00c @>
0002184c ; <LVAR -0x010 @ 4(r)>
0002184c ; <LVAR -0x014 @ 4(rw)>
0002184c ; --------------------------------------------------------------------------------------
0002184c 4e 56 ff a8 |NV | LINK.W A6,#0xffa8
00021850 bf d5 | | CMPA.L (A5),A7
00021852 62 06 |b | BHI 0x2185a
00021854 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021858 4e 76 |Nv | TRAPV
0002185a de fc 00 44 | D | ADDA.W #0x44,A7
0002185e 48 e7 f1 e0 |H | MOVEM.L A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
00021862 43 ee ff ec |C | LEA.L (A6-0x14),A1
00021866 45 ee ff f0 |E | LEA.L (A6-0x10),A2
0002186a 72 01 |r | MOVEQ.L #0x01,D1
0002186c 74 14 |t | MOVEQ.L #0x14,D2
0002186e 76 02 |v | MOVEQ.L #0x02,D3
00021870 41 fa eb 74 |A t | LEA.L 0x203e6,A0
00021874 70 04 |p | MOVEQ.L #0x04,D0
00021876 2f 20 |/ | MOVE.L -(A0),-(A7)
00021878 51 c8 ff fc |Q | DBF D0,0x21876
0002187c 59 4f |YO | SUBQ.L #0x4,A7
0002187e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021882 3f 01 |? | MOVE.W D1,-(A7)
00021884 3f 02 |? | MOVE.W D2,-(A7)
00021886 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002188c 50 4f |PO | ADDQ.L #0x8,A7
0002188e 22 9f |" | MOVE.L (A7)+,(A1)
00021890 de c2 | | ADDA.W D2,A7
00021892 7e 10 |~ | MOVEQ.L #0x10,D7
00021894 59 4f |YO | SUBQ.L #0x4,A7
00021896 2f 11 |/ | MOVE.L (A1),-(A7)
00021898 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
0002189e 54 4f |TO | ADDQ.L #0x2,A7
000218a0 3e 87 |> | MOVE.W D7,(A7)
000218a2 48 78 06 00 |Hx | PEA.L 0x600
000218a6 4e ba ff 0a |N | JSR 0x217b2
000218aa 5c 4f |\O | ADDQ.L #0x6,A7
000218ac 2e 91 |. | MOVE.L (A1),(A7)
000218ae 1f 01 | | MOVE.B D1,-(A7)
000218b0 1f 03 | | MOVE.B D3,-(A7)
000218b2 2f 07 |/ | MOVE.L D7,-(A7)
000218b4 48 6e ff f4 |Hn | PEA.L (A6-0xc)
000218b8 48 52 |HR | PEA.L (A2)
000218ba 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000218c0 de c2 | | ADDA.W D2,A7
000218c2 20 52 | R | MOVEA.L (A2),A0
000218c4 02 28 00 fd 00 3f | ( ? | ANDI.B #0xfd,(A0+0x3f)
000218ca 10 39 00 02 69 7e | 9 i~ | MOVE.B 0x2697e,D0
000218d0 0c 00 00 44 | D | CMPI.B #0x44,D0
000218d4 67 04 |g | BEQ 0x218da
000218d6 87 28 00 3f | ( ? | OR.B D3,(A0+0x3f)
000218da 02 28 00 fb 00 3f | ( ? | ANDI.B #0xfb,(A0+0x3f)
000218e0 0c 00 00 4b | K | CMPI.B #0x4b,D0
000218e4 66 06 |f | BNE 0x218ec
000218e6 00 28 00 04 00 3f | ( ? | ORI.B #0x04,(A0+0x3f)
000218ec 48 6e ff fa |Hn | PEA.L (A6-0x6)
000218f0 4e ba f6 34 |N 4 | JSR 0x20f26
000218f4 58 4f |XO | ADDQ.L #0x4,A7
000218f6 11 6e ff fa 00 3a | n : | MOVE.B (A6-0x6),(A0+0x3a)
000218fc 11 6e ff fb 00 3b | n ; | MOVE.B (A6-0x5),(A0+0x3b)
00021902 11 6e ff fc 00 3c | n < | MOVE.B (A6-0x4),(A0+0x3c)
00021908 11 6e ff fd 00 3d | n = | MOVE.B (A6-0x3),(A0+0x3d)
0002190e 11 41 00 4c | A L | MOVE.B D1,(A0+0x4c)
00021912 48 51 |HQ | PEA.L (A1)
00021914 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
0002191a 58 4f |XO | ADDQ.L #0x4,A7
0002191c 33 fc 00 40 00 02 29 44 |3 @ )D| MOVE.W #0x40,0x22944
00021924 2f 07 |/ | MOVE.L D7,-(A7)
00021926 2f 12 |/ | MOVE.L (A2),-(A7)
00021928 4e ba fd 24 |N $ | JSR 0x2164e
0002192c 5c 4f |\O | ADDQ.L #0x6,A7
0002192e 42 17 |B | CLR.B (A7)
00021930 1f 03 | | MOVE.B D3,-(A7)
00021932 48 78 00 01 |Hx | PEA.L 0x1
00021936 48 6e ff f4 |Hn | PEA.L (A6-0xc)
0002193a 48 52 |HR | PEA.L (A2)
0002193c 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
00021942 de fc 00 10 | | ADDA.W #0x10,A7
00021946 4e ba f4 ca |N | JSR 0x20e12
0002194a 4c df 07 8f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D7+A0+A1+A2
0002194e 4e 5e |N^ | UNLK A6
00021950 4e 75 |Nu | RTS
00021952 ; --------------------------------------------------------------------------------------
00021952 ; OMSI PASCAL Function
00021952 ; --------------------------------------------------------------------------------------
00021952 4e 56 ff f2 |NV | LINK.W A6,#0xfff2
00021956 bf d5 | | CMPA.L (A5),A7
00021958 62 06 |b | BHI 0x21960
0002195a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002195e 4e 76 |Nv | TRAPV
00021960 de fc 00 0e | | ADDA.W #0xe,A7
00021964 48 e7 80 00 |H | MOVEM.L D0,-(A7)
00021968 4a 39 00 02 28 fa |J9 ( | TST.B 0x228fa
0002196e 67 14 |g | BEQ 0x21984
00021970 20 39 00 02 28 fc | 9 ( | MOVE.L 0x228fc,D0
00021976 0c 80 00 00 00 01 | | CMPI.L #0x00000001,D0
0002197c 6f 06 |o | BLE 0x21984
0002197e 1f 3c 00 07 | < | MOVE.B #0x07,-(A7)
00021982 60 04 |` | BRA 0x21988
00021984 1f 3c 00 06 | < | MOVE.B #0x06,-(A7)
00021988 48 79 00 02 29 4e |Hy )N | PEA.L 0x2294e
0002198e 4e b9 00 01 04 14 |N | JSR FSCALL_10414
00021994 5c 4f |\O | ADDQ.L #0x6,A7
00021996 4e ba ed 1c |N | JSR 0x206b4
0002199a 4c df 00 01 |L | MOVEM.L (A7)+,D0
0002199e 4e 5e |N^ | UNLK A6
000219a0 4e 75 |Nu | RTS
000219a2 ; --------------------------------------------------------------------------------------
000219a2 ; OMSI PASCAL Function
000219a2 ; --------------------------------------------------------------------------------------
000219a2 4e 56 ff bc |NV | LINK.W A6,#0xffbc
000219a6 bf d5 | | CMPA.L (A5),A7
000219a8 62 06 |b | BHI 0x219b0
000219aa 44 fc 00 02 |D | MOVE.W #0x2,CCR
000219ae 4e 76 |Nv | TRAPV
000219b0 de fc 00 3c | < | ADDA.W #0x3c,A7
000219b4 48 e7 9b 80 |H | MOVEM.L A0+D7+D6+D4+D3+D0,-(A7)
000219b8 41 fa ea 40 |A @ | LEA.L 0x203fa,A0
000219bc 70 04 |p | MOVEQ.L #0x04,D0
000219be 2f 20 |/ | MOVE.L -(A0),-(A7)
000219c0 51 c8 ff fc |Q | DBF D0,0x219be
000219c4 59 4f |YO | SUBQ.L #0x4,A7
000219c6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000219ca 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000219ce 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7)
000219d2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000219d8 50 4f |PO | ADDQ.L #0x8,A7
000219da 30 39 00 02 29 18 |09 ) | MOVE.W 0x22918,D0
000219e0 ee 48 | H | LSR.W #0x7,D0
000219e2 3f 00 |? | MOVE.W D0,-(A7)
000219e4 48 78 07 00 |Hx | PEA.L 0x700
000219e8 4e ba fd c8 |N | JSR 0x217b2
000219ec de fc 00 1e | | ADDA.W #0x1e,A7
000219f0 33 fc 00 10 00 02 29 42 |3 )B| MOVE.W #0x10,0x22942
000219f8 7c 00 || | MOVEQ.L #0x00,D6
000219fa 41 f9 00 02 28 e8 |A ( | LEA.L 0x228e8,A0
00021a00 4a 30 68 20 |J0h | TST.B (A0+D6.L+#0x20)
00021a04 67 52 |gR | BEQ 0x21a58
00021a06 2f 39 00 02 29 0c |/9 ) | MOVE.L 0x2290c,-(A7)
00021a0c 53 97 |S | SUBQ.L #0x1,(A7)
00021a0e 7e 00 |~ | MOVEQ.L #0x00,D7
00021a10 be 97 | | CMP.L (A7),D7
00021a12 6e 42 |nB | BGT 0x21a56
00021a14 42 79 00 02 29 26 |By )& | CLR.W 0x22926
00021a1a 20 06 | | MOVE.L D6,D0
00021a1c e5 80 | | ASL.L #0x2,D0
00021a1e d0 87 | | ADD.L D7,D0
00021a20 e9 80 | | ASL.L #0x4,D0
00021a22 33 c0 00 02 29 28 |3 )( | MOVE.W D0,0x22928
00021a28 42 79 00 02 29 2a |By )* | CLR.W 0x2292a
00021a2e 42 79 00 02 29 2c |By ), | CLR.W 0x2292c
00021a34 28 39 00 02 29 10 |(9 ) | MOVE.L 0x22910,D4
00021a3a 26 3c 00 00 00 80 |&< | MOVE.L #0x80,D3
00021a40 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
00021a46 2f 04 |/ | MOVE.L D4,-(A7)
00021a48 48 78 00 01 |Hx | PEA.L 0x1
00021a4c 4e ba fc 00 |N | JSR 0x2164e
00021a50 50 4f |PO | ADDQ.L #0x8,A7
00021a52 52 87 |R | ADDQ.L #0x1,D7
00021a54 68 ba |h | BVC 0x21a10
00021a56 58 4f |XO | ADDQ.L #0x4,A7
00021a58 52 86 |R | ADDQ.L #0x1,D6
00021a5a 0c 86 00 00 00 03 | | CMPI.L #0x00000003,D6
00021a60 6f 98 |o | BLE 0x219fa
00021a62 4e ba f3 ae |N | JSR 0x20e12
00021a66 4c df 01 d9 |L | MOVEM.L (A7)+,D0+D3+D4+D6+D7+A0
00021a6a 4e 5e |N^ | UNLK A6
00021a6c 4e 75 |Nu | RTS
00021a6e ; --------------------------------------------------------------------------------------
00021a6e ; OMSI PASCAL Function
00021a6e ; --------------------------------------------------------------------------------------
00021a6e 4e 56 ff c2 |NV | LINK.W A6,#0xffc2
00021a72 bf d5 | | CMPA.L (A5),A7
00021a74 62 06 |b | BHI 0x21a7c
00021a76 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021a7a 4e 76 |Nv | TRAPV
00021a7c de fc 00 36 | 6 | ADDA.W #0x36,A7
00021a80 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7)
00021a84 9e fc 00 12 | | SUBA.W #0x12,A7
00021a88 20 4f | O | MOVEA.L A7,A0
00021a8a 43 fa e9 7e |C ~ | LEA.L 0x2040a,A1
00021a8e 70 10 |p | MOVEQ.L #0x10,D0
00021a90 10 d9 | | MOVE.B (A1)+,(A0)+
00021a92 51 c8 ff fc |Q | DBF D0,0x21a90
00021a96 59 4f |YO | SUBQ.L #0x4,A7
00021a98 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021a9c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021aa0 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00021aa4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021aaa 5c 4f |\O | ADDQ.L #0x6,A7
00021aac 3e b9 00 02 29 18 |> ) | MOVE.W 0x22918,(A7)
00021ab2 48 78 08 00 |Hx | PEA.L 0x800
00021ab6 4e ba fc fa |N | JSR 0x217b2
00021aba de fc 00 1c | | ADDA.W #0x1c,A7
00021abe 33 fc 20 00 00 02 29 44 |3 )D| MOVE.W #0x2000,0x22944
00021ac6 1f 3c 00 20 | < | MOVE.B #0x20,-(A7)
00021aca 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char)
00021ad0 54 4f |TO | ADDQ.L #0x2,A7
00021ad2 7c 00 || | MOVEQ.L #0x00,D6
00021ad4 41 f9 00 02 28 e8 |A ( | LEA.L 0x228e8,A0
00021ada 4a 30 68 20 |J0h | TST.B (A0+D6.L+#0x20)
00021ade 67 54 |gT | BEQ 0x21b34
00021ae0 2f 39 00 02 29 0c |/9 ) | MOVE.L 0x2290c,-(A7)
00021ae6 53 97 |S | SUBQ.L #0x1,(A7)
00021ae8 7e 00 |~ | MOVEQ.L #0x00,D7
00021aea be 97 | | CMP.L (A7),D7
00021aec 6e 44 |nD | BGT 0x21b32
00021aee 20 06 | | MOVE.L D6,D0
00021af0 e5 80 | | ASL.L #0x2,D0
00021af2 d0 87 | | ADD.L D7,D0
00021af4 41 fa e9 04 |A | LEA.L 0x203fa,A0
00021af8 1f 30 08 00 | 0 | MOVE.B (A0+D0.L),-(A7)
00021afc 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char)
00021b02 54 4f |TO | ADDQ.L #0x2,A7
00021b04 42 79 00 02 29 26 |By )& | CLR.W 0x22926
00021b0a e9 80 | | ASL.L #0x4,D0
00021b0c 33 c0 00 02 29 28 |3 )( | MOVE.W D0,0x22928
00021b12 42 79 00 02 29 2a |By )* | CLR.W 0x2292a
00021b18 42 79 00 02 29 2c |By ), | CLR.W 0x2292c
00021b1e 2f 39 00 02 29 10 |/9 ) | MOVE.L 0x22910,-(A7)
00021b24 48 78 00 01 |Hx | PEA.L 0x1
00021b28 4e ba fb 24 |N $ | JSR 0x2164e
00021b2c 50 4f |PO | ADDQ.L #0x8,A7
00021b2e 52 87 |R | ADDQ.L #0x1,D7
00021b30 68 b8 |h | BVC 0x21aea
00021b32 58 4f |XO | ADDQ.L #0x4,A7
00021b34 52 86 |R | ADDQ.L #0x1,D6
00021b36 0c 86 00 00 00 03 | | CMPI.L #0x00000003,D6
00021b3c 6f 96 |o | BLE 0x21ad4
00021b3e 4e ba f2 d2 |N | JSR 0x20e12
00021b42 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1
00021b46 4e 5e |N^ | UNLK A6
00021b48 4e 75 |Nu | RTS
00021b4a ; --------------------------------------------------------------------------------------
00021b4a ; OMSI PASCAL Function
00021b4a ; <LVAR -0x002 @ 1(r)>
00021b4a ; <LVAR -0x008 @>
00021b4a ; <LVAR -0x00c @ 4(r)>
00021b4a ; --------------------------------------------------------------------------------------
00021b4a 4e 56 ff a0 |NV | LINK.W A6,#0xffa0
00021b4e bf d5 | | CMPA.L (A5),A7
00021b50 62 06 |b | BHI 0x21b58
00021b52 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021b56 4e 76 |Nv | TRAPV
00021b58 de fc 00 50 | P | ADDA.W #0x50,A7
00021b5c 48 e7 f1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7)
00021b60 43 f9 00 02 29 50 |C )P | LEA.L 0x22950,A1
00021b66 45 ee ff f8 |E | LEA.L (A6-0x8),A2
00021b6a 47 ee ff f4 |G | LEA.L (A6-0xc),A3
00021b6e 49 f9 00 02 29 4a |I )J | LEA.L 0x2294a,A4
00021b74 72 02 |r | MOVEQ.L #0x02,D1
00021b76 74 0a |t | MOVEQ.L #0x0a,D2
00021b78 76 14 |v | MOVEQ.L #0x14,D3
00021b7a 2f 14 |/ | MOVE.L (A4),-(A7)
00021b7c 42 27 |B' | CLR.B -(A7)
00021b7e 1f 01 | | MOVE.B D1,-(A7)
00021b80 48 78 00 00 |Hx | PEA.L 0x0
00021b84 48 52 |HR | PEA.L (A2)
00021b86 48 53 |HS | PEA.L (A3)
00021b88 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
00021b8e de c3 | | ADDA.W D3,A7
00021b90 48 54 |HT | PEA.L (A4)
00021b92 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00021b98 58 4f |XO | ADDQ.L #0x4,A7
00021b9a 33 fc 09 00 00 02 29 24 |3 )$| MOVE.W #0x900,0x22924
00021ba2 2f 13 |/ | MOVE.L (A3),-(A7)
00021ba4 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
00021ba8 42 67 |Bg | CLR.W -(A7)
00021baa 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7)
00021bae 1f 01 | | MOVE.B D1,-(A7)
00021bb0 20 49 | I | MOVEA.L A1,A0
00021bb2 2f 08 |/ | MOVE.L A0,-(A7)
00021bb4 48 52 |HR | PEA.L (A2)
00021bb6 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00021bbc de c3 | | ADDA.W D3,A7
00021bbe 20 49 | I | MOVEA.L A1,A0
00021bc0 2f 08 |/ | MOVE.L A0,-(A7)
00021bc2 2f 39 00 02 69 b2 |/9 i | MOVE.L 0x269b2,-(A7)
00021bc8 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7)
00021bcc 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00021bd2 de c2 | | ADDA.W D2,A7
00021bd4 41 f9 00 02 29 1e |A ) | LEA.L 0x2291e,A0
00021bda 2f 08 |/ | MOVE.L A0,-(A7)
00021bdc 42 67 |Bg | CLR.W -(A7)
00021bde 4e b9 00 01 02 3c |N < | JSR KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word)
00021be4 5c 4f |\O | ADDQ.L #0x6,A7
00021be6 2e 3c ff ff fc 18 |.< | MOVE.L #0xfffffc18,D7
00021bec 41 f9 00 02 29 2e |A ). | LEA.L 0x2292e,A0
00021bf2 2f 08 |/ | MOVE.L A0,-(A7)
00021bf4 42 67 |Bg | CLR.W -(A7)
00021bf6 48 6e ff fe |Hn | PEA.L (A6-0x2)
00021bfa 4e b9 00 01 02 3e |N > | JSR KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool)
00021c00 de c2 | | ADDA.W D2,A7
00021c02 52 87 |R | ADDQ.L #0x1,D7
00021c04 4a 2e ff fe |J. | TST.B (A6-0x2)
00021c08 66 04 |f | BNE 0x21c0e
00021c0a 4a 87 |J | TST.L D7
00021c0c 66 de |f | BNE 0x21bec
00021c0e 4a 2e ff fe |J. | TST.B (A6-0x2)
00021c12 66 30 |f0 | BNE 0x21c44
00021c14 41 fa e8 1c |A | LEA.L 0x20432,A0
00021c18 70 0a |p | MOVEQ.L #0x0a,D0
00021c1a 3f 20 |? | MOVE.W -(A0),-(A7)
00021c1c 51 c8 ff fc |Q | DBF D0,0x21c1a
00021c20 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7)
00021c24 59 4f |YO | SUBQ.L #0x4,A7
00021c26 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00021c2a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021c2e 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
00021c32 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021c38 50 4f |PO | ADDQ.L #0x8,A7
00021c3a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00021c40 de fc 00 1c | | ADDA.W #0x1c,A7
00021c44 33 fc 0a 00 00 02 29 24 |3 )$| MOVE.W #0xa00,0x22924
00021c4c 2f 13 |/ | MOVE.L (A3),-(A7)
00021c4e 3f 02 |? | MOVE.W D2,-(A7)
00021c50 42 67 |Bg | CLR.W -(A7)
00021c52 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7)
00021c56 1f 01 | | MOVE.B D1,-(A7)
00021c58 20 49 | I | MOVEA.L A1,A0
00021c5a 2f 08 |/ | MOVE.L A0,-(A7)
00021c5c 48 52 |HR | PEA.L (A2)
00021c5e 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00021c64 de c3 | | ADDA.W D3,A7
00021c66 20 49 | I | MOVEA.L A1,A0
00021c68 2f 08 |/ | MOVE.L A0,-(A7)
00021c6a 2f 39 00 02 69 b2 |/9 i | MOVE.L 0x269b2,-(A7)
00021c70 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7)
00021c74 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
00021c7a de c2 | | ADDA.W D2,A7
00021c7c 41 f9 00 02 29 1e |A ) | LEA.L 0x2291e,A0
00021c82 2f 08 |/ | MOVE.L A0,-(A7)
00021c84 42 67 |Bg | CLR.W -(A7)
00021c86 4e b9 00 01 02 3c |N < | JSR KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word)
00021c8c 58 4f |XO | ADDQ.L #0x4,A7
00021c8e 42 17 |B | CLR.B (A7)
00021c90 1f 01 | | MOVE.B D1,-(A7)
00021c92 48 78 00 01 |Hx | PEA.L 0x1
00021c96 48 52 |HR | PEA.L (A2)
00021c98 48 53 |HS | PEA.L (A3)
00021c9a 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
00021ca0 de fc 00 10 | | ADDA.W #0x10,A7
00021ca4 4c df 1f 8f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3+A4
00021ca8 4e 5e |N^ | UNLK A6
00021caa 4e 75 |Nu | RTS
00021cac ; --------------------------------------------------------------------------------------
00021cac ; OMSI PASCAL Function
00021cac ; <LVAR 0x018 4(w)>
00021cac ; <LVAR 0x014 4(r)>
00021cac ; <LVAR 0x010 4(r)>
00021cac ; <LVAR 0x00c 4(r)>
00021cac ; <LVAR 0x008 4(r)>
00021cac ; <LVAR -0x004 @ 1(rw)>
00021cac ; <LVAR -0x008 @ 4(rw)>
00021cac ; <LVAR -0x00c @ 4(rw)>
00021cac ; <LVAR -0x010 @ 4(rw)>
00021cac ; --------------------------------------------------------------------------------------
00021cac 4e 56 ff 86 |NV | LINK.W A6,#0xff86
00021cb0 bf d5 | | CMPA.L (A5),A7
00021cb2 62 06 |b | BHI 0x21cba
00021cb4 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021cb8 4e 76 |Nv | TRAPV
00021cba de fc 00 6a | j | ADDA.W #0x6a,A7
00021cbe 48 e7 f0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
00021cc2 45 ee ff f0 |E | LEA.L (A6-0x10),A2
00021cc6 47 f9 00 01 02 d0 |G | LEA.L StringCat2(a, b : String) : String,A3
00021ccc 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00021cd2 74 01 |t | MOVEQ.L #0x01,D2
00021cd4 76 02 |v | MOVEQ.L #0x02,D3
00021cd6 3f 3a e7 8e |?: | MOVE.W 0x20466,-(A7)
00021cda 59 4f |YO | SUBQ.L #0x4,A7
00021cdc 2f 2e 00 14 |/. | MOVE.L (A6+0x14),-(A7)
00021ce0 59 4f |YO | SUBQ.L #0x4,A7
00021ce2 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021ce6 3f 02 |? | MOVE.W D2,-(A7)
00021ce8 3f 03 |? | MOVE.W D3,-(A7)
00021cea 4e 94 |N | JSR (A4)
00021cec 50 4f |PO | ADDQ.L #0x8,A7
00021cee 4e 93 |N | JSR (A3)
00021cf0 50 4f |PO | ADDQ.L #0x8,A7
00021cf2 24 9f |$ | MOVE.L (A7)+,(A2)
00021cf4 55 4f |UO | SUBQ.L #0x2,A7
00021cf6 2f 12 |/ | MOVE.L (A2),-(A7)
00021cf8 59 4f |YO | SUBQ.L #0x4,A7
00021cfa 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7)
00021cfe 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021d04 58 4f |XO | ADDQ.L #0x4,A7
00021d06 4e 93 |N | JSR (A3)
00021d08 50 4f |PO | ADDQ.L #0x8,A7
00021d0a 24 9f |$ | MOVE.L (A7)+,(A2)
00021d0c 3f 3a e7 5a |?: Z | MOVE.W 0x20468,-(A7)
00021d10 59 4f |YO | SUBQ.L #0x4,A7
00021d12 2f 12 |/ | MOVE.L (A2),-(A7)
00021d14 59 4f |YO | SUBQ.L #0x4,A7
00021d16 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021d1a 3f 02 |? | MOVE.W D2,-(A7)
00021d1c 3f 03 |? | MOVE.W D3,-(A7)
00021d1e 4e 94 |N | JSR (A4)
00021d20 50 4f |PO | ADDQ.L #0x8,A7
00021d22 4e 93 |N | JSR (A3)
00021d24 50 4f |PO | ADDQ.L #0x8,A7
00021d26 24 9f |$ | MOVE.L (A7)+,(A2)
00021d28 55 4f |UO | SUBQ.L #0x2,A7
00021d2a 2f 12 |/ | MOVE.L (A2),-(A7)
00021d2c 59 4f |YO | SUBQ.L #0x4,A7
00021d2e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00021d32 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021d38 58 4f |XO | ADDQ.L #0x4,A7
00021d3a 4e 93 |N | JSR (A3)
00021d3c 50 4f |PO | ADDQ.L #0x8,A7
00021d3e 24 97 |$ | MOVE.L (A7),(A2)
00021d40 1e ba e7 28 | ( | MOVE.B 0x2046a,(A7)
00021d44 1f 7a e7 25 00 01 | z % | MOVE.B 0x2046b,(A7+0x1)
00021d4a 1f 7a e7 20 00 02 | z | MOVE.B 0x2046c,(A7+0x2)
00021d50 59 4f |YO | SUBQ.L #0x4,A7
00021d52 2f 12 |/ | MOVE.L (A2),-(A7)
00021d54 59 4f |YO | SUBQ.L #0x4,A7
00021d56 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021d5a 3f 02 |? | MOVE.W D2,-(A7)
00021d5c 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7)
00021d60 4e 94 |N | JSR (A4)
00021d62 50 4f |PO | ADDQ.L #0x8,A7
00021d64 4e 93 |N | JSR (A3)
00021d66 50 4f |PO | ADDQ.L #0x8,A7
00021d68 24 9f |$ | MOVE.L (A7)+,(A2)
00021d6a 2f 12 |/ | MOVE.L (A2),-(A7)
00021d6c 59 4f |YO | SUBQ.L #0x4,A7
00021d6e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00021d72 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021d78 58 4f |XO | ADDQ.L #0x4,A7
00021d7a 4e 93 |N | JSR (A3)
00021d7c 50 4f |PO | ADDQ.L #0x8,A7
00021d7e 24 9f |$ | MOVE.L (A7)+,(A2)
00021d80 2f 3a e6 ec |/: | MOVE.L 0x2046e,-(A7)
00021d84 59 4f |YO | SUBQ.L #0x4,A7
00021d86 2f 12 |/ | MOVE.L (A2),-(A7)
00021d88 59 4f |YO | SUBQ.L #0x4,A7
00021d8a 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021d8e 3f 02 |? | MOVE.W D2,-(A7)
00021d90 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
00021d94 4e 94 |N | JSR (A4)
00021d96 50 4f |PO | ADDQ.L #0x8,A7
00021d98 4e 93 |N | JSR (A3)
00021d9a 50 4f |PO | ADDQ.L #0x8,A7
00021d9c 24 9f |$ | MOVE.L (A7)+,(A2)
00021d9e 58 4f |XO | ADDQ.L #0x4,A7
00021da0 51 4f |QO | SUBQ.L #0x8,A7
00021da2 2f 12 |/ | MOVE.L (A2),-(A7)
00021da4 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
00021daa 58 4f |XO | ADDQ.L #0x4,A7
00021dac 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String
00021db2 58 4f |XO | ADDQ.L #0x4,A7
00021db4 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc)
00021db8 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0
00021dbc 4a 50 |JP | TST.W (A0)
00021dbe 67 18 |g | BEQ 0x21dd8
00021dc0 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7)
00021dc4 48 6e ff fc |Hn | PEA.L (A6-0x4)
00021dc8 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00021dcc 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long)
00021dd2 de fc 00 0c | | ADDA.W #0xc,A7
00021dd6 60 16 |` | BRA 0x21dee
00021dd8 2d 6e 00 08 ff f8 |-n | MOVE.L (A6+0x8),(A6-0x8)
00021dde 1d 42 ff fc | B | MOVE.B D2,(A6-0x4)
00021de2 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00021de6 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00021dec 58 4f |XO | ADDQ.L #0x4,A7
00021dee 70 00 |p | MOVEQ.L #0x00,D0
00021df0 4a 2e ff fc |J. | TST.B (A6-0x4)
00021df4 67 16 |g | BEQ 0x21e0c
00021df6 22 2e ff f8 |". | MOVE.L (A6-0x8),D1
00021dfa b2 ae 00 10 | | CMP.L (A6+0x10),D1
00021dfe 6d 0c |m | BLT 0x21e0c
00021e00 22 2e ff f8 |". | MOVE.L (A6-0x8),D1
00021e04 b2 ae 00 0c | | CMP.L (A6+0xc),D1
00021e08 6e 02 |n | BGT 0x21e0c
00021e0a 52 00 |R | ADDQ.B #0x1,D0
00021e0c 1d 40 ff fc | @ | MOVE.B D0,(A6-0x4)
00021e10 4a 00 |J | TST.B D0
00021e12 66 2c |f, | BNE 0x21e40
00021e14 9e fc 00 34 | 4 | SUBA.W #0x34,A7
00021e18 20 4f | O | MOVEA.L A7,A0
00021e1a 43 fa e6 16 |C | LEA.L 0x20432,A1
00021e1e 72 32 |r2 | MOVEQ.L #0x32,D1
00021e20 10 d9 | | MOVE.B (A1)+,(A0)+
00021e22 51 c9 ff fc |Q | DBF D1,0x21e20
00021e26 59 4f |YO | SUBQ.L #0x4,A7
00021e28 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021e2c 3f 02 |? | MOVE.W D2,-(A7)
00021e2e 3f 3c 00 33 |?< 3 | MOVE.W #0x33,-(A7)
00021e32 4e 94 |N | JSR (A4)
00021e34 50 4f |PO | ADDQ.L #0x8,A7
00021e36 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00021e3c de fc 00 38 | 8 | ADDA.W #0x38,A7
00021e40 4a 00 |J | TST.B D0
00021e42 67 00 ff 5c |g \ | BEQ 0x21da0
00021e46 48 52 |HR | PEA.L (A2)
00021e48 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00021e4e 58 4f |XO | ADDQ.L #0x4,A7
00021e50 2d 6e ff f8 00 18 |-n | MOVE.L (A6-0x8),(A6+0x18)
00021e56 4c df 1f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
00021e5a 4e 5e |N^ | UNLK A6
00021e5c 4e 75 |Nu | RTS
00021e5e ; --------------------------------------------------------------------------------------
00021e5e ; OMSI PASCAL Function
00021e5e ; --------------------------------------------------------------------------------------
00021e5e 4e 56 ff f8 |NV | LINK.W A6,#0xfff8
00021e62 bf d5 | | CMPA.L (A5),A7
00021e64 62 06 |b | BHI 0x21e6c
00021e66 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021e6a 4e 76 |Nv | TRAPV
00021e6c de fc 00 08 | | ADDA.W #0x8,A7
00021e70 48 78 00 0f |Hx | PEA.L 0xf
00021e74 4e b9 00 01 04 d8 |N | JSR ExpInit(a : Long)
00021e7a 54 4f |TO | ADDQ.L #0x2,A7
00021e7c 42 17 |B | CLR.B (A7)
00021e7e 4e b9 00 01 04 d2 |N | JSR SetExpInitDone(a : Byte)
00021e84 54 4f |TO | ADDQ.L #0x2,A7
00021e86 42 79 00 02 29 06 |By ) | CLR.W 0x22906
00021e8c 42 79 00 02 28 f8 |By ( | CLR.W 0x228f8
00021e92 13 fc 00 01 00 02 29 04 | ) | MOVE.B #0x01,0x22904
00021e9a 42 39 00 02 29 05 |B9 ) | CLR.B 0x22905
00021ea0 42 39 00 02 69 a1 |B9 i | CLR.B 0x269a1
00021ea6 4e 5e |N^ | UNLK A6
00021ea8 4e 75 |Nu | RTS
00021eaa ; --------------------------------------------------------------------------------------
00021eaa ; OMSI PASCAL Function
00021eaa ; --------------------------------------------------------------------------------------
00021eaa 4e 56 ff a0 |NV | LINK.W A6,#0xffa0
00021eae bf d5 | | CMPA.L (A5),A7
00021eb0 62 06 |b | BHI 0x21eb8
00021eb2 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021eb6 4e 76 |Nv | TRAPV
00021eb8 de fc 00 60 | ` | ADDA.W #0x60,A7
00021ebc 48 e7 f8 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7)
00021ec0 43 f9 00 02 29 4e |C )N | LEA.L 0x2294e,A1
00021ec6 45 f9 00 02 28 f8 |E ( | LEA.L 0x228f8,A2
00021ecc 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
00021ed2 49 f9 00 02 29 05 |I ) | LEA.L 0x22905,A4
00021ed8 72 01 |r | MOVEQ.L #0x01,D1
00021eda 74 10 |t | MOVEQ.L #0x10,D2
00021edc 76 20 |v | MOVEQ.L #0x20,D3
00021ede 78 26 |x& | MOVEQ.L #0x26,D4
00021ee0 2f 3a e5 9c |/: | MOVE.L 0x2047e,-(A7)
00021ee4 2f 3a e5 94 |/: | MOVE.L 0x2047a,-(A7)
00021ee8 2f 3a e5 8c |/: | MOVE.L 0x20476,-(A7)
00021eec 2f 3a e5 84 |/: | MOVE.L 0x20472,-(A7)
00021ef0 51 4f |QO | SUBQ.L #0x8,A7
00021ef2 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021ef6 3f 01 |? | MOVE.W D1,-(A7)
00021ef8 3f 02 |? | MOVE.W D2,-(A7)
00021efa 4e 93 |N | JSR (A3)
00021efc 50 4f |PO | ADDQ.L #0x8,A7
00021efe 48 78 00 00 |Hx | PEA.L 0x0
00021f02 48 78 00 03 |Hx | PEA.L 0x3
00021f06 30 12 |0 | MOVE.W (A2),D0
00021f08 48 c0 |H | EXTW.L D0
00021f0a 2f 00 |/ | MOVE.L D0,-(A7)
00021f0c 4e ba fd 9e |N | JSR 0x21cac
00021f10 de c2 | | ADDA.W D2,A7
00021f12 34 af 00 02 |4 | MOVE.W (A7+0x2),(A2)
00021f16 de fc 00 12 | | ADDA.W #0x12,A7
00021f1a 3e 92 |> | MOVE.W (A2),(A7)
00021f1c 42 27 |B' | CLR.B -(A7)
00021f1e 1f 01 | | MOVE.B D1,-(A7)
00021f20 48 51 |HQ | PEA.L (A1)
00021f22 4e b9 00 01 04 0c |N | JSR FSCALL_1040c
00021f28 de fc 00 0a | | ADDA.W #0xa,A7
00021f2c 4a 11 |J | TST.B (A1)
00021f2e 67 0c |g | BEQ 0x21f3c
00021f30 1f 01 | | MOVE.B D1,-(A7)
00021f32 48 51 |HQ | PEA.L (A1)
00021f34 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428
00021f3a 5c 4f |\O | ADDQ.L #0x6,A7
00021f3c 4a 11 |J | TST.B (A1)
00021f3e 66 a0 |f | BNE 0x21ee0
00021f40 41 fa e5 60 |A ` | LEA.L 0x204a2,A0
00021f44 70 07 |p | MOVEQ.L #0x07,D0
00021f46 2f 20 |/ | MOVE.L -(A0),-(A7)
00021f48 51 c8 ff fc |Q | DBF D0,0x21f46
00021f4c 5d 4f |]O | SUBQ.L #0x6,A7
00021f4e 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00021f52 3f 01 |? | MOVE.W D1,-(A7)
00021f54 3f 03 |? | MOVE.W D3,-(A7)
00021f56 4e 93 |N | JSR (A3)
00021f58 5c 4f |\O | ADDQ.L #0x6,A7
00021f5a 1e 94 | | MOVE.B (A4),(A7)
00021f5c 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00021f62 5c 4f |\O | ADDQ.L #0x6,A7
00021f64 18 9f | | MOVE.B (A7)+,(A4)
00021f66 de c3 | | ADDA.W D3,A7
00021f68 41 fa e5 5e |A ^ | LEA.L 0x204c8,A0
00021f6c 70 12 |p | MOVEQ.L #0x12,D0
00021f6e 3f 20 |? | MOVE.W -(A0),-(A7)
00021f70 51 c8 ff fc |Q | DBF D0,0x21f6e
00021f74 5d 4f |]O | SUBQ.L #0x6,A7
00021f76 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00021f7a 3f 01 |? | MOVE.W D1,-(A7)
00021f7c 3f 04 |? | MOVE.W D4,-(A7)
00021f7e 4e 93 |N | JSR (A3)
00021f80 5c 4f |\O | ADDQ.L #0x6,A7
00021f82 1e b9 00 02 29 04 | ) | MOVE.B 0x22904,(A7)
00021f88 4e b9 00 01 03 f0 |N | JSR AskOnConsoleYesNo(prompt : String; default : Bool) : Bool
00021f8e 5c 4f |\O | ADDQ.L #0x6,A7
00021f90 13 df 00 02 29 04 | ) | MOVE.B (A7)+,0x22904
00021f96 de c4 | | ADDA.W D4,A7
00021f98 4c df 1f 1f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3+A4
00021f9c 4e 5e |N^ | UNLK A6
00021f9e 4e 75 |Nu | RTS
00021fa0 ; --------------------------------------------------------------------------------------
00021fa0 ; OMSI PASCAL Function
00021fa0 ; --------------------------------------------------------------------------------------
00021fa0 4e 56 ff ce |NV | LINK.W A6,#0xffce
00021fa4 bf d5 | | CMPA.L (A5),A7
00021fa6 62 06 |b | BHI 0x21fae
00021fa8 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021fac 4e 76 |Nv | TRAPV
00021fae de fc 00 32 | 2 | ADDA.W #0x32,A7
00021fb2 48 e7 f8 f0 |H | MOVEM.L A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7)
00021fb6 43 f9 00 01 02 38 |C 8 | LEA.L KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word),A1
00021fbc 45 f9 00 02 69 a6 |E i | LEA.L 0x269a6,A2
00021fc2 47 f9 00 02 69 ae |G i | LEA.L 0x269ae,A3
00021fc8 74 0a |t | MOVEQ.L #0x0a,D2
00021fca 76 04 |v | MOVEQ.L #0x04,D3
00021fcc 78 02 |x | MOVEQ.L #0x02,D4
00021fce 48 78 04 00 |Hx | PEA.L 0x400
00021fd2 41 f9 00 02 69 a2 |A i | LEA.L 0x269a2,A0
00021fd8 2f 08 |/ | MOVE.L A0,-(A7)
00021fda 3f 03 |? | MOVE.W D3,-(A7)
00021fdc 4e 91 |N | JSR (A1)
00021fde de c2 | | ADDA.W D2,A7
00021fe0 48 78 04 04 |Hx | PEA.L 0x404
00021fe4 20 4a | J | MOVEA.L A2,A0
00021fe6 2f 08 |/ | MOVE.L A0,-(A7)
00021fe8 3f 04 |? | MOVE.W D4,-(A7)
00021fea 4e 91 |N | JSR (A1)
00021fec de c2 | | ADDA.W D2,A7
00021fee 48 78 04 06 |Hx | PEA.L 0x406
00021ff2 41 f9 00 02 69 a8 |A i | LEA.L 0x269a8,A0
00021ff8 2f 08 |/ | MOVE.L A0,-(A7)
00021ffa 3f 04 |? | MOVE.W D4,-(A7)
00021ffc 4e 91 |N | JSR (A1)
00021ffe de c2 | | ADDA.W D2,A7
00022000 48 78 04 08 |Hx | PEA.L 0x408
00022004 41 f9 00 02 69 aa |A i | LEA.L 0x269aa,A0
0002200a 2f 08 |/ | MOVE.L A0,-(A7)
0002200c 3f 03 |? | MOVE.W D3,-(A7)
0002200e 4e 91 |N | JSR (A1)
00022010 de c2 | | ADDA.W D2,A7
00022012 48 78 04 0c |Hx | PEA.L 0x40c
00022016 20 4b | K | MOVEA.L A3,A0
00022018 2f 08 |/ | MOVE.L A0,-(A7)
0002201a 3f 03 |? | MOVE.W D3,-(A7)
0002201c 4e 91 |N | JSR (A1)
0002201e de c2 | | ADDA.W D2,A7
00022020 70 00 |p | MOVEQ.L #0x00,D0
00022022 c0 d2 | | MULU.W (A2),D0
00022024 42 81 |B | CLR.L D1
00022026 32 00 |2 | MOVE.W D0,D1
00022028 d2 93 | | ADD.L (A3),D1
0002202a 23 c1 00 02 69 b2 |# i | MOVE.L D1,0x269b2
00022030 4c df 0f 1f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3
00022034 4e 5e |N^ | UNLK A6
00022036 4e 75 |Nu | RTS
00022038 ; --------------------------------------------------------------------------------------
00022038 ; OMSI PASCAL Function
00022038 ; --------------------------------------------------------------------------------------
00022038 START:
00022038 4f fa 00 08 |O | LEA.L MAIN,A7
0002203c 4e f9 00 01 02 80 |N | JMP ?start_program
00022042 MAIN:
00022042 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00022048 47 fa ef a4 |G | LEA.L 0x20fee,A3
0002204c 49 f9 00 02 29 05 |I ) | LEA.L 0x22905,A4
00022052 72 01 |r | MOVEQ.L #0x01,D1
00022054 74 1a |t | MOVEQ.L #0x1a,D2
00022056 76 09 |v | MOVEQ.L #0x09,D3
00022058 4e b9 00 01 03 98 |N | JSR FSCALL_10398
0002205e 4e ba ff 40 |N @ | JSR 0x21fa0
00022062 4e ba fd fa |N | JSR 0x21e5e
00022066 4e ba fe 42 |N B | JSR 0x21eaa
0002206a 4e ba e5 5c |N \ | JSR 0x205c8
0002206e 4e ba e5 9a |N | JSR 0x2060a
00022072 4e ba e9 62 |N b | JSR 0x209d6
00022076 9e fc 00 14 | | SUBA.W #0x14,A7
0002207a 20 4f | O | MOVEA.L A7,A0
0002207c 43 fa e0 b0 |C | LEA.L 0x2012e,A1
00022080 70 12 |p | MOVEQ.L #0x12,D0
00022082 10 d9 | | MOVE.B (A1)+,(A0)+
00022084 51 c8 ff fc |Q | DBF D0,0x22082
00022088 59 4f |YO | SUBQ.L #0x4,A7
0002208a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002208e 3f 01 |? | MOVE.W D1,-(A7)
00022090 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
00022094 4e 92 |N | JSR (A2)
00022096 5c 4f |\O | ADDQ.L #0x6,A7
00022098 1e 81 | | MOVE.B D1,(A7)
0002209a 4e 93 |N | JSR (A3)
0002209c de c2 | | ADDA.W D2,A7
0002209e 4e ba f0 a4 |N | JSR 0x21144
000220a2 9e fc 00 0a | | SUBA.W #0xa,A7
000220a6 20 4f | O | MOVEA.L A7,A0
000220a8 43 fa e4 1e |C | LEA.L 0x204c8,A1
000220ac 70 08 |p | MOVEQ.L #0x08,D0
000220ae 10 d9 | | MOVE.B (A1)+,(A0)+
000220b0 51 c8 ff fc |Q | DBF D0,0x220ae
000220b4 59 4f |YO | SUBQ.L #0x4,A7
000220b6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000220ba 3f 01 |? | MOVE.W D1,-(A7)
000220bc 3f 03 |? | MOVE.W D3,-(A7)
000220be 4e 92 |N | JSR (A2)
000220c0 5c 4f |\O | ADDQ.L #0x6,A7
000220c2 1e 94 | | MOVE.B (A4),(A7)
000220c4 4e 93 |N | JSR (A3)
000220c6 5c 4f |\O | ADDQ.L #0x6,A7
000220c8 20 4f | O | MOVEA.L A7,A0
000220ca 43 fa e4 06 |C | LEA.L 0x204d2,A1
000220ce 70 08 |p | MOVEQ.L #0x08,D0
000220d0 10 d9 | | MOVE.B (A1)+,(A0)+
000220d2 51 c8 ff fc |Q | DBF D0,0x220d0
000220d6 59 4f |YO | SUBQ.L #0x4,A7
000220d8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000220dc 3f 01 |? | MOVE.W D1,-(A7)
000220de 3f 03 |? | MOVE.W D3,-(A7)
000220e0 4e 92 |N | JSR (A2)
000220e2 5c 4f |\O | ADDQ.L #0x6,A7
000220e4 1e 94 | | MOVE.B (A4),(A7)
000220e6 4e 93 |N | JSR (A3)
000220e8 de fc 00 10 | | ADDA.W #0x10,A7
000220ec 4e ba f1 0a |N | JSR 0x211f8
000220f0 4e ba f7 5a |N Z | JSR 0x2184c
000220f4 4e ba f8 5c |N \ | JSR 0x21952
000220f8 4e ba f8 a8 |N | JSR 0x219a2
000220fc 4a 39 00 02 29 04 |J9 ) | TST.B 0x22904
00022102 67 04 |g | BEQ 0x22108
00022104 4e ba f9 68 |N h | JSR 0x21a6e
00022108 1f 01 | | MOVE.B D1,-(A7)
0002210a 48 79 00 02 29 4e |Hy )N | PEA.L 0x2294e
00022110 4e b9 00 01 04 14 |N | JSR FSCALL_10414
00022116 5c 4f |\O | ADDQ.L #0x6,A7
00022118 4e b9 00 01 04 10 |N | JSR FSCALL_10410
0002211e 4e ba fa 2a |N * | JSR 0x21b4a
00022122 4a 39 00 02 69 a1 |J9 i | TST.B 0x269a1
00022128 67 30 |g0 | BEQ 0x2215a
0002212a 2f 3a e3 b4 |/: | MOVE.L 0x204e0,-(A7)
0002212e 2f 3a e3 ac |/: | MOVE.L 0x204dc,-(A7)
00022132 59 4f |YO | SUBQ.L #0x4,A7
00022134 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022138 3f 01 |? | MOVE.W D1,-(A7)
0002213a 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7)
0002213e 4e 92 |N | JSR (A2)
00022140 50 4f |PO | ADDQ.L #0x8,A7
00022142 48 78 00 01 |Hx | PEA.L 0x1
00022146 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
0002214a 48 79 00 02 69 a0 |Hy i | PEA.L 0x269a0
00022150 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00022156 de fc 00 16 | | ADDA.W #0x16,A7
0002215a 4e ba e4 6c |N l | JSR 0x205c8
0002215e 9e fc 00 18 | | SUBA.W #0x18,A7
00022162 20 4f | O | MOVEA.L A7,A0
00022164 43 fa e3 7e |C ~ | LEA.L 0x204e4,A1
00022168 70 16 |p | MOVEQ.L #0x16,D0
0002216a 10 d9 | | MOVE.B (A1)+,(A0)+
0002216c 51 c8 ff fc |Q | DBF D0,0x2216a
00022170 59 4f |YO | SUBQ.L #0x4,A7
00022172 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022176 3f 01 |? | MOVE.W D1,-(A7)
00022178 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
0002217c 4e 92 |N | JSR (A2)
0002217e 50 4f |PO | ADDQ.L #0x8,A7
00022180 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022186 de c2 | | ADDA.W D2,A7
00022188 42 17 |B | CLR.B (A7)
0002218a 48 78 00 01 |Hx | PEA.L 0x1
0002218e 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00022194 5c 4f |\O | ADDQ.L #0x6,A7
00022196 4e b9 00 01 02 84 |N | JSR ?exit
0002219c exp_RUN_NORMAL.FIU():
0002219c 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000221a2 00 08 | | .CONST 0x0008 ; Stack-delta
000221a4 0e 52 55 4e 5f 4e 4f 52 | RUN_NOR| .TXT 14,'RUN_NORMAL.FIU'
000221b3 00 | | .CONST 0x0
000221b4 03 | | .CONST 0x3 ; DIPROC address
000221b5 00 | | .CONST 0x0 ; Output Parameters
000221b6 00 | | .CONST 0x0 ; Input Parameters
000221b7 00 | | .PAD 0x0
000221b8 exp_PREP_RUN.FIU(Sw_2):
000221b8 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000221be 00 0a | | .CONST 0x000a ; Stack-delta
000221c0 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.FIU'
000221cd 00 | | .CONST 0x0
000221ce 03 | | .CONST 0x3 ; DIPROC address
000221cf 00 | | .CONST 0x0 ; Output Parameters
000221d0 01 | | .CONST 0x1 ; Input Parameters
000221d1 01 | | .CONST 0x1 ; In arg [2]
000221d2 exp_MF.FIU():
000221d2 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000221d8 00 08 | | .CONST 0x0008 ; Stack-delta
000221da 06 4d 46 2e 46 49 55 | MF.FIU | .TXT 6,'MF.FIU'
000221e1 00 | | .CONST 0x0
000221e2 03 | | .CONST 0x3 ; DIPROC address
000221e3 00 | | .CONST 0x0 ; Output Parameters
000221e4 00 | | .CONST 0x0 ; Input Parameters
000221e5 00 | | .PAD 0x0
000221e6 exp_INIT_MRU.FIU():
000221e6 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000221ec 00 08 | | .CONST 0x0008 ; Stack-delta
000221ee 0c 49 4e 49 54 5f 4d 52 | INIT_MR| .TXT 12,'INIT_MRU.FIU'
000221fb 00 | | .CONST 0x0
000221fc 03 | | .CONST 0x3 ; DIPROC address
000221fd 00 | | .CONST 0x0 ; Output Parameters
000221fe 00 | | .CONST 0x0 ; Input Parameters
000221ff 00 | | .PAD 0x0
00022200 exp_FREEZE_WORLD.FIU():
00022200 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
00022206 00 08 | | .CONST 0x0008 ; Stack-delta
00022208 10 46 52 45 45 5a 45 5f | FREEZE_| .TXT 16,'FREEZE_WORLD.FIU'
00022219 00 | | .CONST 0x0
0002221a 03 | | .CONST 0x3 ; DIPROC address
0002221b 00 | | .CONST 0x0 ; Output Parameters
0002221c 00 | | .CONST 0x0 ; Input Parameters
0002221d 00 | | .PAD 0x0
0002221e exp_CLEAR_EXCEPTIONS.FIU():
0002221e 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
00022224 00 08 | | .CONST 0x0008 ; Stack-delta
00022226 14 43 4c 45 41 52 5f 45 | CLEAR_E| .TXT 20,'CLEAR_EXCEPTIONS.FIU'
0002223b 00 | | .CONST 0x0
0002223c 03 | | .CONST 0x3 ; DIPROC address
0002223d 00 | | .CONST 0x0 ; Output Parameters
0002223e 00 | | .CONST 0x0 ; Input Parameters
0002223f 00 | | .PAD 0x0
00022240 exp_RESET.SEQ():
00022240 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
00022246 00 08 | | .CONST 0x0008 ; Stack-delta
00022248 09 52 45 53 45 54 2e 53 | RESET.S| .TXT 9,'RESET.SEQ'
00022252 00 | | .CONST 0x0
00022253 02 | | .CONST 0x2 ; DIPROC address
00022254 00 | | .CONST 0x0 ; Output Parameters
00022255 00 | | .CONST 0x0 ; Input Parameters
00022256 exp_RUN_CHECK.SEQ():
00022256 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
0002225c 00 08 | | .CONST 0x0008 ; Stack-delta
0002225e 0d 52 55 4e 5f 43 48 45 | RUN_CHE| .TXT 13,'RUN_CHECK.SEQ'
0002226c 00 | | .CONST 0x0
0002226d 02 | | .CONST 0x2 ; DIPROC address
0002226e 00 | | .CONST 0x0 ; Output Parameters
0002226f 00 | | .CONST 0x0 ; Input Parameters
00022270 exp_PREP_RUN.SEQ(Sw_2):
00022270 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
00022276 00 0a | | .CONST 0x000a ; Stack-delta
00022278 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.SEQ'
00022285 00 | | .CONST 0x0
00022286 02 | | .CONST 0x2 ; DIPROC address
00022287 00 | | .CONST 0x0 ; Output Parameters
00022288 01 | | .CONST 0x1 ; Input Parameters
00022289 01 | | .CONST 0x1 ; In arg [2]
0002228a exp_RUN_NORMAL.TYP():
0002228a 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
00022290 00 08 | | .CONST 0x0008 ; Stack-delta
00022292 0e 52 55 4e 5f 4e 4f 52 | RUN_NOR| .TXT 14,'RUN_NORMAL.TYP'
000222a1 00 | | .CONST 0x0
000222a2 06 | | .CONST 0x6 ; DIPROC address
000222a3 00 | | .CONST 0x0 ; Output Parameters
000222a4 00 | | .CONST 0x0 ; Input Parameters
000222a5 00 | | .PAD 0x0
000222a6 exp_PREP_RUN.TYP(Sw_2):
000222a6 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000222ac 00 0a | | .CONST 0x000a ; Stack-delta
000222ae 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.TYP'
000222bb 00 | | .CONST 0x0
000222bc 06 | | .CONST 0x6 ; DIPROC address
000222bd 00 | | .CONST 0x0 ; Output Parameters
000222be 01 | | .CONST 0x1 ; Input Parameters
000222bf 01 | | .CONST 0x1 ; In arg [2]
000222c0 exp_MF.TYP():
000222c0 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000222c6 00 08 | | .CONST 0x0008 ; Stack-delta
000222c8 06 4d 46 2e 54 59 50 | MF.TYP | .TXT 6,'MF.TYP'
000222cf 00 | | .CONST 0x0
000222d0 06 | | .CONST 0x6 ; DIPROC address
000222d1 00 | | .CONST 0x0 ; Output Parameters
000222d2 00 | | .CONST 0x0 ; Input Parameters
000222d3 00 | | .PAD 0x0
000222d4 exp_LOAD_BENIGN_UWORD.TYP():
000222d4 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000222da 00 08 | | .CONST 0x0008 ; Stack-delta
000222dc 15 4c 4f 41 44 5f 42 45 | LOAD_BE| .TXT 21,'LOAD_BENIGN_UWORD.TYP'
000222f2 00 | | .CONST 0x0
000222f3 06 | | .CONST 0x6 ; DIPROC address
000222f4 00 | | .CONST 0x0 ; Output Parameters
000222f5 00 | | .CONST 0x0 ; Input Parameters
000222f6 exp_RUN_NORMAL.VAL():
000222f6 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000222fc 00 08 | | .CONST 0x0008 ; Stack-delta
000222fe 0e 52 55 4e 5f 4e 4f 52 | RUN_NOR| .TXT 14,'RUN_NORMAL.VAL'
0002230d 00 | | .CONST 0x0
0002230e 07 | | .CONST 0x7 ; DIPROC address
0002230f 00 | | .CONST 0x0 ; Output Parameters
00022310 00 | | .CONST 0x0 ; Input Parameters
00022311 00 | | .PAD 0x0
00022312 exp_PREP_RUN.VAL(Sw_2):
00022312 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
00022318 00 0a | | .CONST 0x000a ; Stack-delta
0002231a 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.VAL'
00022327 00 | | .CONST 0x0
00022328 07 | | .CONST 0x7 ; DIPROC address
00022329 00 | | .CONST 0x0 ; Output Parameters
0002232a 01 | | .CONST 0x1 ; Input Parameters
0002232b 01 | | .CONST 0x1 ; In arg [2]
0002232c exp_MF.VAL():
0002232c 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
00022332 00 08 | | .CONST 0x0008 ; Stack-delta
00022334 06 4d 46 2e 56 41 4c | MF.VAL | .TXT 6,'MF.VAL'
0002233b 00 | | .CONST 0x0
0002233c 07 | | .CONST 0x7 ; DIPROC address
0002233d 00 | | .CONST 0x0 ; Output Parameters
0002233e 00 | | .CONST 0x0 ; Input Parameters
0002233f 00 | | .PAD 0x0
00022340 53 45 54 5f 48 49 54 2e |SET_HIT.| .TXT 'SET_HIT.MEM '
0002234c 53 45 54 5f 48 49 54 2e |SET_HIT.| .TXT 'SET_HIT.M32 '
00022358 ; --------------------------------------------------------------------------------------
00022358 ; OMSI PASCAL Function
00022358 ; <LVAR 0x00a 1(r)>
00022358 ; <LVAR 0x008 1(r)>
00022358 ; <LVAR -0x004 @ 4(r)>
00022358 ; --------------------------------------------------------------------------------------
00022358 4e 56 ff cc |NV | LINK.W A6,#0xffcc
0002235c bf d5 | | CMPA.L (A5),A7
0002235e 62 06 |b | BHI 0x22366
00022360 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022364 4e 76 |Nv | TRAPV
00022366 de fc 00 30 | 0 | ADDA.W #0x30,A7
0002236a 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7)
0002236e 45 ee ff fc |E | LEA.L (A6-0x4),A2
00022372 72 0c |r | MOVEQ.L #0x0c,D1
00022374 55 4f |UO | SUBQ.L #0x2,A7
00022376 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool
0002237c 4a 1f |J | TST.B (A7)+
0002237e 67 12 |g | BEQ 0x22392
00022380 9e c1 | | SUBA.W D1,A7
00022382 20 4f | O | MOVEA.L A7,A0
00022384 43 fa ff ba |C | LEA.L 0x22340,A1
00022388 70 0a |p | MOVEQ.L #0x0a,D0
0002238a 10 d9 | | MOVE.B (A1)+,(A0)+
0002238c 51 c8 ff fc |Q | DBF D0,0x2238a
00022390 60 10 |` | BRA 0x223a2
00022392 9e c1 | | SUBA.W D1,A7
00022394 20 4f | O | MOVEA.L A7,A0
00022396 43 fa ff b4 |C | LEA.L 0x2234c,A1
0002239a 70 0a |p | MOVEQ.L #0x0a,D0
0002239c 10 d9 | | MOVE.B (A1)+,(A0)+
0002239e 51 c8 ff fc |Q | DBF D0,0x2239c
000223a2 59 4f |YO | SUBQ.L #0x4,A7
000223a4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000223a8 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000223ac 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7)
000223b0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000223b6 50 4f |PO | ADDQ.L #0x8,A7
000223b8 48 52 |HR | PEA.L (A2)
000223ba 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer)
000223c0 de fc 00 14 | | ADDA.W #0x14,A7
000223c4 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7)
000223c8 2f 12 |/ | MOVE.L (A2),-(A7)
000223ca 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000223ce 48 78 00 00 |Hx | PEA.L 0x0
000223d2 48 78 00 00 |Hx | PEA.L 0x0
000223d6 4e b9 00 01 04 66 |N f | JSR ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
000223dc de fc 00 10 | | ADDA.W #0x10,A7
000223e0 42 17 |B | CLR.B (A7)
000223e2 1f 2e 00 0a | . | MOVE.B (A6+0xa),-(A7)
000223e6 2f 12 |/ | MOVE.L (A2),-(A7)
000223e8 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer)
000223ee 50 4f |PO | ADDQ.L #0x8,A7
000223f0 48 52 |HR | PEA.L (A2)
000223f2 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer)
000223f8 58 4f |XO | ADDQ.L #0x4,A7
000223fa 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2
000223fe 4e 5e |N^ | UNLK A6
00022400 4e 75 |Nu | RTS
00022402 52 55 4e 5f 43 48 45 43 |RUN_CHEC| .TXT 'RUN_CHECK.MEM '
00022410 52 55 4e 5f 43 48 45 43 |RUN_CHEC| .TXT 'RUN_CHECK.M32 '
0002241e ; --------------------------------------------------------------------------------------
0002241e ; OMSI PASCAL Function
0002241e ; <LVAR 0x008 1(r)>
0002241e ; <LVAR -0x006 @ 4(r)>
0002241e ; --------------------------------------------------------------------------------------
0002241e 4e 56 ff c8 |NV | LINK.W A6,#0xffc8
00022422 bf d5 | | CMPA.L (A5),A7
00022424 62 06 |b | BHI 0x2242c
00022426 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002242a 4e 76 |Nv | TRAPV
0002242c de fc 00 32 | 2 | ADDA.W #0x32,A7
00022430 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7)
00022434 45 ee ff fa |E | LEA.L (A6-0x6),A2
00022438 72 0e |r | MOVEQ.L #0x0e,D1
0002243a 55 4f |UO | SUBQ.L #0x2,A7
0002243c 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool
00022442 4a 1f |J | TST.B (A7)+
00022444 67 12 |g | BEQ 0x22458
00022446 9e c1 | | SUBA.W D1,A7
00022448 20 4f | O | MOVEA.L A7,A0
0002244a 43 fa ff b6 |C | LEA.L 0x22402,A1
0002244e 70 0c |p | MOVEQ.L #0x0c,D0
00022450 10 d9 | | MOVE.B (A1)+,(A0)+
00022452 51 c8 ff fc |Q | DBF D0,0x22450
00022456 60 10 |` | BRA 0x22468
00022458 9e c1 | | SUBA.W D1,A7
0002245a 20 4f | O | MOVEA.L A7,A0
0002245c 43 fa ff b2 |C | LEA.L 0x22410,A1
00022460 70 0c |p | MOVEQ.L #0x0c,D0
00022462 10 d9 | | MOVE.B (A1)+,(A0)+
00022464 51 c8 ff fc |Q | DBF D0,0x22462
00022468 59 4f |YO | SUBQ.L #0x4,A7
0002246a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002246e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00022472 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7)
00022476 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002247c 50 4f |PO | ADDQ.L #0x8,A7
0002247e 48 52 |HR | PEA.L (A2)
00022480 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer)
00022486 de fc 00 16 | | ADDA.W #0x16,A7
0002248a 42 27 |B' | CLR.B -(A7)
0002248c 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7)
00022490 2f 12 |/ | MOVE.L (A2),-(A7)
00022492 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer)
00022498 50 4f |PO | ADDQ.L #0x8,A7
0002249a 48 52 |HR | PEA.L (A2)
0002249c 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer)
000224a2 58 4f |XO | ADDQ.L #0x4,A7
000224a4 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2
000224a8 4e 5e |N^ | UNLK A6
000224aa 4e 75 |Nu | RTS
000224ac 4d 46 |MF | .TXT 'MF'
000224ae 2e 4d |.M | .TXT '.M'
000224b0 45 4d |EM | .TXT 'EM'
000224b2 4d 46 |MF | .TXT 'MF'
000224b4 2e 4d |.M | .TXT '.M'
000224b6 33 32 |32 | .TXT '32'
000224b8 ; --------------------------------------------------------------------------------------
000224b8 ; OMSI PASCAL Function
000224b8 ; <LVAR 0x008 1(r)>
000224b8 ; <LVAR -0x006 @ 4(r)>
000224b8 ; --------------------------------------------------------------------------------------
000224b8 4e 56 ff e0 |NV | LINK.W A6,#0xffe0
000224bc bf d5 | | CMPA.L (A5),A7
000224be 62 06 |b | BHI 0x224c6
000224c0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000224c4 4e 76 |Nv | TRAPV
000224c6 de fc 00 1a | | ADDA.W #0x1a,A7
000224ca 48 e7 00 80 |H | MOVEM.L A0,-(A7)
000224ce 41 ee ff fa |A | LEA.L (A6-0x6),A0
000224d2 55 4f |UO | SUBQ.L #0x2,A7
000224d4 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool
000224da 4a 1f |J | TST.B (A7)+
000224dc 67 0e |g | BEQ 0x224ec
000224de 3f 3a ff d0 |?: | MOVE.W 0x224b0,-(A7)
000224e2 3f 3a ff ca |?: | MOVE.W 0x224ae,-(A7)
000224e6 3f 3a ff c4 |?: | MOVE.W 0x224ac,-(A7)
000224ea 60 0c |` | BRA 0x224f8
000224ec 3f 3a ff c8 |?: | MOVE.W 0x224b6,-(A7)
000224f0 3f 3a ff c2 |?: | MOVE.W 0x224b4,-(A7)
000224f4 3f 3a ff bc |?: | MOVE.W 0x224b2,-(A7)
000224f8 59 4f |YO | SUBQ.L #0x4,A7
000224fa 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000224fe 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00022502 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7)
00022506 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002250c 50 4f |PO | ADDQ.L #0x8,A7
0002250e 48 50 |HP | PEA.L (A0)
00022510 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer)
00022516 de fc 00 0e | | ADDA.W #0xe,A7
0002251a 42 27 |B' | CLR.B -(A7)
0002251c 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7)
00022520 2f 10 |/ | MOVE.L (A0),-(A7)
00022522 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer)
00022528 50 4f |PO | ADDQ.L #0x8,A7
0002252a 48 50 |HP | PEA.L (A0)
0002252c 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer)
00022532 58 4f |XO | ADDQ.L #0x4,A7
00022534 4c df 01 00 |L | MOVEM.L (A7)+,A0
00022538 4e 5e |N^ | UNLK A6
0002253a 4e 75 |Nu | RTS
0002253c 43 4c 45 41 52 5f 50 41 |CLEAR_PA| .TXT 'CLEAR_PARITY_ERRORS.MEM '
00022554 43 4c 45 41 52 5f 50 41 |CLEAR_PA| .TXT 'CLEAR_PARITY_ERRORS.M32 '
0002256c ; --------------------------------------------------------------------------------------
0002256c ; OMSI PASCAL Function
0002256c ; <LVAR 0x008 1(r)>
0002256c ; <LVAR -0x006 @ 4(r)>
0002256c ; --------------------------------------------------------------------------------------
0002256c 4e 56 ff be |NV | LINK.W A6,#0xffbe
00022570 bf d5 | | CMPA.L (A5),A7
00022572 62 06 |b | BHI 0x2257a
00022574 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022578 4e 76 |Nv | TRAPV
0002257a de fc 00 3c | < | ADDA.W #0x3c,A7
0002257e 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7)
00022582 45 ee ff fa |E | LEA.L (A6-0x6),A2
00022586 72 18 |r | MOVEQ.L #0x18,D1
00022588 55 4f |UO | SUBQ.L #0x2,A7
0002258a 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool
00022590 4a 1f |J | TST.B (A7)+
00022592 67 12 |g | BEQ 0x225a6
00022594 9e c1 | | SUBA.W D1,A7
00022596 20 4f | O | MOVEA.L A7,A0
00022598 43 fa ff a2 |C | LEA.L 0x2253c,A1
0002259c 70 16 |p | MOVEQ.L #0x16,D0
0002259e 10 d9 | | MOVE.B (A1)+,(A0)+
000225a0 51 c8 ff fc |Q | DBF D0,0x2259e
000225a4 60 10 |` | BRA 0x225b6
000225a6 9e c1 | | SUBA.W D1,A7
000225a8 20 4f | O | MOVEA.L A7,A0
000225aa 43 fa ff a8 |C | LEA.L 0x22554,A1
000225ae 70 16 |p | MOVEQ.L #0x16,D0
000225b0 10 d9 | | MOVE.B (A1)+,(A0)+
000225b2 51 c8 ff fc |Q | DBF D0,0x225b0
000225b6 59 4f |YO | SUBQ.L #0x4,A7
000225b8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000225bc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000225c0 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
000225c4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000225ca 50 4f |PO | ADDQ.L #0x8,A7
000225cc 48 52 |HR | PEA.L (A2)
000225ce 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer)
000225d4 de fc 00 20 | | ADDA.W #0x20,A7
000225d8 42 27 |B' | CLR.B -(A7)
000225da 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7)
000225de 2f 12 |/ | MOVE.L (A2),-(A7)
000225e0 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer)
000225e6 50 4f |PO | ADDQ.L #0x8,A7
000225e8 48 52 |HR | PEA.L (A2)
000225ea 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer)
000225f0 58 4f |XO | ADDQ.L #0x4,A7
000225f2 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2
000225f6 4e 5e |N^ | UNLK A6
000225f8 4e 75 |Nu | RTS
000225fa 43 4c 45 41 52 5f 48 49 |CLEAR_HI| .TXT 'CLEAR_HITS.MEM'
00022608 43 4c 45 41 52 5f 48 49 |CLEAR_HI| .TXT 'CLEAR_HITS.M32'
00022616 ; --------------------------------------------------------------------------------------
00022616 ; OMSI PASCAL Function
00022616 ; <LVAR 0x008 1(r)>
00022616 ; <LVAR -0x006 @ 4(r)>
00022616 ; --------------------------------------------------------------------------------------
00022616 4e 56 ff d0 |NV | LINK.W A6,#0xffd0
0002261a bf d5 | | CMPA.L (A5),A7
0002261c 62 06 |b | BHI 0x22624
0002261e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022622 4e 76 |Nv | TRAPV
00022624 de fc 00 2a | * | ADDA.W #0x2a,A7
00022628 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
0002262c 43 ee ff fa |C | LEA.L (A6-0x6),A1
00022630 55 4f |UO | SUBQ.L #0x2,A7
00022632 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool
00022638 4a 1f |J | TST.B (A7)+
0002263a 67 0e |g | BEQ 0x2264a
0002263c 41 fa ff ca |A | LEA.L 0x22608,A0
00022640 70 06 |p | MOVEQ.L #0x06,D0
00022642 3f 20 |? | MOVE.W -(A0),-(A7)
00022644 51 c8 ff fc |Q | DBF D0,0x22642
00022648 60 0c |` | BRA 0x22656
0002264a 41 fa ff ca |A | LEA.L 0x22616,A0
0002264e 70 06 |p | MOVEQ.L #0x06,D0
00022650 3f 20 |? | MOVE.W -(A0),-(A7)
00022652 51 c8 ff fc |Q | DBF D0,0x22650
00022656 59 4f |YO | SUBQ.L #0x4,A7
00022658 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002265c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00022660 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00022664 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002266a 50 4f |PO | ADDQ.L #0x8,A7
0002266c 48 51 |HQ | PEA.L (A1)
0002266e 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer)
00022674 de fc 00 16 | | ADDA.W #0x16,A7
00022678 42 27 |B' | CLR.B -(A7)
0002267a 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7)
0002267e 2f 11 |/ | MOVE.L (A1),-(A7)
00022680 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer)
00022686 50 4f |PO | ADDQ.L #0x8,A7
00022688 48 51 |HQ | PEA.L (A1)
0002268a 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer)
00022690 58 4f |XO | ADDQ.L #0x4,A7
00022692 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
00022696 4e 5e |N^ | UNLK A6
00022698 4e 75 |Nu | RTS
0002269a exp_RUN_CHECK.IOC():
0002269a 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000226a0 00 08 | | .CONST 0x0008 ; Stack-delta
000226a2 0d 52 55 4e 5f 43 48 45 | RUN_CHE| .TXT 13,'RUN_CHECK.IOC'
000226b0 00 | | .CONST 0x0
000226b1 04 | | .CONST 0x4 ; DIPROC address
000226b2 00 | | .CONST 0x0 ; Output Parameters
000226b3 00 | | .CONST 0x0 ; Input Parameters
000226b4 exp_PREP_RUN.IOC(Sw_2):
000226b4 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000226ba 00 0a | | .CONST 0x000a ; Stack-delta
000226bc 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.IOC'
000226c9 00 | | .CONST 0x0
000226ca 04 | | .CONST 0x4 ; DIPROC address
000226cb 00 | | .CONST 0x0 ; Output Parameters
000226cc 01 | | .CONST 0x1 ; Input Parameters
000226cd 01 | | .CONST 0x1 ; In arg [2]
000226ce exp_MF.IOC():
000226ce 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000226d4 00 08 | | .CONST 0x0008 ; Stack-delta
000226d6 06 4d 46 2e 49 4f 43 | MF.IOC | .TXT 6,'MF.IOC'
000226dd 00 | | .CONST 0x0
000226de 04 | | .CONST 0x4 ; DIPROC address
000226df 00 | | .CONST 0x0 ; Output Parameters
000226e0 00 | | .CONST 0x0 ; Input Parameters
000226e1 00 | | .PAD 0x0
000226e2 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_'
000226f0 ; --------------------------------------------------------------------------------------
000226f0 ; OMSI PASCAL Function
000226f0 ; <LVAR 0x008 1(r)>
000226f0 ; --------------------------------------------------------------------------------------
000226f0 PROG_FAIL:
000226f0 4e 56 ff d2 |NV | LINK.W A6,#0xffd2
000226f4 bf d5 | | CMPA.L (A5),A7
000226f6 62 06 |b | BHI 0x226fe
000226f8 44 fc 00 02 |D | MOVE.W #0x2,CCR
000226fc 4e 76 |Nv | TRAPV
000226fe de fc 00 2c | , | ADDA.W #0x2c,A7
00022702 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
00022706 41 fa ff e8 |A | LEA.L PROG_FAIL,A0
0002270a 70 06 |p | MOVEQ.L #0x06,D0
0002270c 3f 20 |? | MOVE.W -(A0),-(A7)
0002270e 51 c8 ff fc |Q | DBF D0,0x2270c
00022712 1f 3c 00 03 | < | MOVE.B #0x03,-(A7)
00022716 51 4f |QO | SUBQ.L #0x8,A7
00022718 48 6f 00 0a |Ho | PEA.L (A7+0xa)
0002271c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00022720 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00022724 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002272a 58 4f |XO | ADDQ.L #0x4,A7
0002272c 10 2e 00 08 | . | MOVE.B (A6+0x8),D0
00022730 48 80 |H | EXTB.W D0
00022732 48 c0 |H | EXTW.L D0
00022734 2f 00 |/ | MOVE.L D0,-(A7)
00022736 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
0002273c 58 4f |XO | ADDQ.L #0x4,A7
0002273e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022744 50 4f |PO | ADDQ.L #0x8,A7
00022746 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
0002274c de fc 00 14 | | ADDA.W #0x14,A7
00022750 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
00022754 4e 5e |N^ | UNLK A6
00022756 4e 75 |Nu | RTS
00022758 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ '
00022766 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ '
00022774 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ '
00022782 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :'
00022794 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. '
000227ac ; --------------------------------------------------------------------------------------
000227ac ; OMSI PASCAL Function
000227ac ; <LVAR 0x00e 1(r)>
000227ac ; <LVAR 0x00a 4(r)>
000227ac ; <LVAR 0x008 1(r)>
000227ac ; --------------------------------------------------------------------------------------
000227ac EXP_FAIL:
000227ac 4e 56 ff 8c |NV | LINK.W A6,#0xff8c
000227b0 bf d5 | | CMPA.L (A5),A7
000227b2 62 06 |b | BHI 0x227ba
000227b4 44 fc 00 02 |D | MOVE.W #0x2,CCR
000227b8 4e 76 |Nv | TRAPV
000227ba de fc 00 74 | t | ADDA.W #0x74,A7
000227be 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000227c2 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000227c8 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4
000227ce 72 01 |r | MOVEQ.L #0x01,D1
000227d0 74 0d |t | MOVEQ.L #0x0d,D2
000227d2 76 1e |v | MOVEQ.L #0x1e,D3
000227d4 78 12 |x | MOVEQ.L #0x12,D4
000227d6 7a 0e |z | MOVEQ.L #0x0e,D5
000227d8 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
000227de 41 fa ff b4 |A | LEA.L 0x22794,A0
000227e2 70 08 |p | MOVEQ.L #0x08,D0
000227e4 3f 20 |? | MOVE.W -(A0),-(A7)
000227e6 51 c8 ff fc |Q | DBF D0,0x227e4
000227ea 59 4f |YO | SUBQ.L #0x4,A7
000227ec 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000227f0 3f 01 |? | MOVE.W D1,-(A7)
000227f2 3f 04 |? | MOVE.W D4,-(A7)
000227f4 4e 93 |N | JSR (A3)
000227f6 50 4f |PO | ADDQ.L #0x8,A7
000227f8 4e 94 |N | JSR (A4)
000227fa 50 4f |PO | ADDQ.L #0x8,A7
000227fc 20 4f | O | MOVEA.L A7,A0
000227fe 43 fa ff 58 |C X | LEA.L 0x22758,A1
00022802 70 0c |p | MOVEQ.L #0x0c,D0
00022804 10 d9 | | MOVE.B (A1)+,(A0)+
00022806 51 c8 ff fc |Q | DBF D0,0x22804
0002280a 51 4f |QO | SUBQ.L #0x8,A7
0002280c 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00022810 3f 01 |? | MOVE.W D1,-(A7)
00022812 3f 02 |? | MOVE.W D2,-(A7)
00022814 4e 93 |N | JSR (A3)
00022816 54 4f |TO | ADDQ.L #0x2,A7
00022818 1e ae 00 0e | | MOVE.B (A6+0xe),(A7)
0002281c 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String
00022822 54 4f |TO | ADDQ.L #0x2,A7
00022824 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
0002282a 50 4f |PO | ADDQ.L #0x8,A7
0002282c 4e 94 |N | JSR (A4)
0002282e de c4 | | ADDA.W D4,A7
00022830 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0
00022834 b0 c1 | | CMPA.W D1,A0
00022836 67 48 |gH | BEQ 0x22880
00022838 9e c5 | | SUBA.W D5,A7
0002283a 22 4f |"O | MOVEA.L A7,A1
0002283c 45 fa ff 28 |E ( | LEA.L 0x22766,A2
00022840 70 0c |p | MOVEQ.L #0x0c,D0
00022842 12 da | | MOVE.B (A2)+,(A1)+
00022844 51 c8 ff fc |Q | DBF D0,0x22842
00022848 9e c3 | | SUBA.W D3,A7
0002284a 22 4f |"O | MOVEA.L A7,A1
0002284c 41 e8 00 fc |A | LEA.L (A0+0xfc),A0
00022850 70 1d |p | MOVEQ.L #0x1d,D0
00022852 12 d8 | | MOVE.B (A0)+,(A1)+
00022854 51 c8 ff fc |Q | DBF D0,0x22852
00022858 51 4f |QO | SUBQ.L #0x8,A7
0002285a 48 6f 00 26 |Ho & | PEA.L (A7+0x26)
0002285e 3f 01 |? | MOVE.W D1,-(A7)
00022860 3f 02 |? | MOVE.W D2,-(A7)
00022862 4e 93 |N | JSR (A3)
00022864 58 4f |XO | ADDQ.L #0x4,A7
00022866 48 6f 00 0c |Ho | PEA.L (A7+0xc)
0002286a 3f 01 |? | MOVE.W D1,-(A7)
0002286c 3f 03 |? | MOVE.W D3,-(A7)
0002286e 4e 93 |N | JSR (A3)
00022870 50 4f |PO | ADDQ.L #0x8,A7
00022872 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022878 50 4f |PO | ADDQ.L #0x8,A7
0002287a 4e 94 |N | JSR (A4)
0002287c de fc 00 30 | 0 | ADDA.W #0x30,A7
00022880 9e c5 | | SUBA.W D5,A7
00022882 20 4f | O | MOVEA.L A7,A0
00022884 43 fa fe ee |C | LEA.L 0x22774,A1
00022888 70 0c |p | MOVEQ.L #0x0c,D0
0002288a 10 d9 | | MOVE.B (A1)+,(A0)+
0002288c 51 c8 ff fc |Q | DBF D0,0x2288a
00022890 51 4f |QO | SUBQ.L #0x8,A7
00022892 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00022896 3f 01 |? | MOVE.W D1,-(A7)
00022898 3f 02 |? | MOVE.W D2,-(A7)
0002289a 4e 93 |N | JSR (A3)
0002289c 54 4f |TO | ADDQ.L #0x2,A7
0002289e 1e ae 00 08 | | MOVE.B (A6+0x8),(A7)
000228a2 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String)
000228a8 54 4f |TO | ADDQ.L #0x2,A7
000228aa 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000228b0 50 4f |PO | ADDQ.L #0x8,A7
000228b2 4e 94 |N | JSR (A4)
000228b4 5d 4f |]O | SUBQ.L #0x6,A7
000228b6 20 4f | O | MOVEA.L A7,A0
000228b8 43 fa fe da |C | LEA.L 0x22794,A1
000228bc 70 16 |p | MOVEQ.L #0x16,D0
000228be 10 d9 | | MOVE.B (A1)+,(A0)+
000228c0 51 c8 ff fc |Q | DBF D0,0x228be
000228c4 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
000228c8 59 4f |YO | SUBQ.L #0x4,A7
000228ca 48 6f 00 06 |Ho | PEA.L (A7+0x6)
000228ce 3f 01 |? | MOVE.W D1,-(A7)
000228d0 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
000228d4 4e 93 |N | JSR (A3)
000228d6 50 4f |PO | ADDQ.L #0x8,A7
000228d8 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
000228de de c3 | | ADDA.W D3,A7
000228e0 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
000228e4 4e 5e |N^ | UNLK A6
000228e6 4e 75 |Nu | RTS