|
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: @(#)CRASHDUMP,2.5,92/02/03,17:18:19, M200_PROGRAM
Names: »CRASHDUMP.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »CRASHDUMP.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »CRASHDUMP.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »CRASHDUMP.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »CRASHDUMP.M200«
└─ ⟦this⟧ »CRASHDUMP.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »CRASHDUMP.M200«
@ 20540
<LVAR 0x008 1(r)>
<LVAR -0x001 1(rw)>
<POP 20540-205da Body> Δ+4
<POP 20540-20556 Prologue> Σ0 ↓
<POP 20556-2055a RegCacheLoad> Σ0 ↓
<POP 2055a-2055c Naked> Σ0 ↓
<MI 2055a MOVEQ.L #0x0c,D7> {}
<POP 2055c-2056c Naked> Σ0 ↓ →0x205ca ←0x205ca
<POP 2055c-2055e StackAdj> Δ-2 {[-2-]}
<MI 2055e MOVE.B D7,-(A7)> Δ-2 {[-2-]|[2, 'D7']}
<Call 0x20560 0x104c0> {[-2-]|[2, 'D7']}
HasBoard(diproc_addr: Byte) : Byte
<POP 20566-20568 StackAdj> Δ+2 {[-2-]}
<MI 20568 TST.B (A7)+> Δ+2 {}
<MI 2056a BEQ 0x205ca> {}
<POP 2056c-20578 Naked> Σ0 ↓ →0x205ca
<MI 2056c MOVE.B (A6+0x8),D0> {}
<MI 20570 EXTB.W D0> {}
<MI 20572 CMPI.W #0x0003,D0> {}
<MI 20576 BHI 0x205ca> {}
<POP 20578-20582 Naked> Σ0 →0x2058a →0x205ac →0x205b6 →0x205c0
<MI 20578 ADD.W D0,D0> {}
<MI 2057a SWITCH D0.W> {}
<POP 2058a-20596 Naked> Σ0 ↓ →0x2059a ←0x20578
<POP 2058a-2058c StackAdj> Δ-2 {[-2-]}
<Call 0x2058c 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 20592 TST.B (A7)+> Δ+2 {}
<MI 20594 BEQ 0x2059a> {}
<POP 20596-2059a Naked> Σ0 →0x2059e
<MI 20596 CLR.B (A6-0x1)> {}
<MI 20598 BRA 0x2059e> {}
<POP 2059a-2059e Naked> Σ0 ↓ ←0x2058a
<MI 2059a MOVE.B #0xff,(A6-0x1)> {}
<POP 2059e-205ac Naked> Σ0 →0x205ca ←0x20596
<MI 2059e MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']}
<MI 205a0 MOVE.B (A6-0x1),-(A7)> Δ-2 {[2, 'D7']|[2, '(A6-0x1)']}
<Call 0x205a2 0x225f8> {[2, 'D7']|[2, '(A6-0x1)']}
<POP 205a8-205aa StackAdj> Δ+4 {}
<MI 205aa BRA 0x205ca> {}
<POP 205ac-205b6 Naked> Σ0 Δ-2 →0x205c8 ←0x20578
<MI 205ac MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']}
<Call 0x205ae 0x22826> {[2, 'D7']}
<MI 205b4 BRA 0x205c8> {[2, 'D7']}
<POP 205b6-205c0 Naked> Σ0 Δ-2 →0x205c8 ←0x20578
<MI 205b6 MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']}
<Call 0x205b8 0x2277c> {[2, 'D7']}
<MI 205be BRA 0x205c8> {[2, 'D7']}
<POP 205c0-205c8 Naked> Σ0 Δ-2 ↓ ←0x20578
<MI 205c0 MOVE.B D7,-(A7)> Δ-2 {[2, 'D7']}
<Call 0x205c2 0x226be> {[2, 'D7']}
<POP 205c8-205ca Naked> Σ-2 Δ+2 ↓ ←0x205ac ←0x205b6
<POP 205c8-205ca StackAdj> Δ+2 {}
<POP 205ca-205d2 Naked> Σ0 ↓ →0x2055c ←0x2055c ←0x2056c ←0x2059e
<MI 205ca ADDQ.B #0x1,D7> {}
<MI 205cc CMPI.B #0x0f,D7> {}
<MI 205d0 BLE 0x2055c> {}
<POP 205d2-205da Epilogue> Σ0
@ 205da
<LVAR -0x001 1(w)>
<LVAR -0x002 1(w) 2(r)>
<LVAR -0x00b @>
<POP 205da-206de Body>
<POP 205da-205f0 Prologue> Σ0 ↓
<POP 205f0-20604 RegCacheLoad> Σ0 ↓
<POP 20604-2060a Naked> Σ0 ↓ →0x206d6
<MI 20604 TST.B 0x22aed> {}
<MI 20606 BNE 0x206d6> {}
<POP 2060a-206d6 Naked> Σ0 ↓
<Const 0x2060a 0x5.2> Δ-2 {[#5]}
<Const 0x2060e 0x2.2> Δ-2 {[#5]|[#2]}
<Call 0x20610 0x1048a> {[#5]|[#2]}
DiProcCmd(board : Byte; cmd : Byte)
<POP 20616-20618 StackAdj> Δ+4 {}
<Call 0x20618 0x224bc> {}
exp_CLEAR_EXCEPTIONS.FIU()
<MI 2061e MOVE.B #0x01,(A6-0x2)> {}
<MI 20622 MOVE.B #0xb4,(A6-0x1)> {}
<Blob 0x20628 [4] @> Δ-4 {[«4""»]}
<Blob 0x2062c [4] @> Δ-4 {[«4""»]|[«4""»]}
<Pointer.fp 0x20630 <LVAR -0x00b @>> Δ-4 {[«4""»]|[«4""»]|[@@-11]}
<Call 0x20634 0x2254c> {[«4""»]|[«4""»]|[@@-11]}
exp_PREP_WRITE_REG.TYP(Sw_8, &Sr_8_1)
<POP 2063a-2063c StackAdj> Δ+10 {[-2-]}
<MI 2063c MOVE.W (A6-0x2),(A7)> {[2, '(A6-0x2)']}
<Blob 0x20640 [10] (A6-0xb)> Δ-10 {[2, '(A6-0x2)']|[«10»]}
<MI 20650 CLR.B -(A7)> Δ-2 {[2, '(A6-0x2)']|[«10»]|[#0]}
<Call 0x20652 0x22512> {[2, '(A6-0x2)']|[«10»]|[#0]}
exp_WRITE_REG.TYP(Sw_2, Sw_8_1, Sw_1)
<POP 20658-2065c StackAdj> Δ+14 {}
<Call 0x2065c 0x22588> {}
exp_LOAD_BENIGN_UWORD.TYP()
<MI 20662 CLR.B -(A7)> Δ-2 {[#0]}
<Call 0x20664 0x20540> {[#0]}
<POP 20666-20668 StackAdj> Δ+2 {}
<Call 0x20668 0x22484> {}
exp_INIT_MRU.FIU()
<Const 0x2066e 0x1.2> Δ-2 {[#1]}
<Call 0x20670 0x20540> {[#1]}
<POP 20672-20674 StackAdj> Δ+2 {}
<Call 0x20674 0x105b0> {}
FifoInit(void)
<Const 0x2067a 0x127.2> Δ-2 {[#295]}
<Call 0x2067c 0x2256e> {[#295]}
exp_PREP_RUN.TYP(Sw_2)
<POP 20682-20683 StackAdj> Δ+2 {}
<Const 0x20683 0x127.2> Δ-2 {[#295]}
<Call 0x20684 0x225c6> {[#295]}
exp_PREP_RUN.VAL(Sw_2)
<POP 2068a-2068b StackAdj> Δ+2 {}
<Const 0x2068b 0x127.2> Δ-2 {[#295]}
<Call 0x2068c 0x228c4> {[#295]}
exp_PREP_RUN.IOC(Sw_2)
<POP 20692-20693 StackAdj> Δ+2 {}
<Const 0x20693 0x127.2> Δ-2 {[#295]}
<Call 0x20694 0x224f8> {[#295]}
exp_PREP_RUN.SEQ(Sw_2)
<POP 2069a-2069b StackAdj> Δ+2 {}
<Const 0x2069b 0x127.2> Δ-2 {[#295]}
<Call 0x2069c 0x2246a> {[#295]}
exp_PREP_RUN.FIU(Sw_2)
<POP 206a2-206a3 StackAdj> Δ+2 {}
<Const 0x206a3 0x2.2> Δ-2 {[#2]}
<Call 0x206a4 0x20540> {[#2]}
<POP 206a6-206a8 StackAdj> Δ+2 {}
<Call 0x206a8 0x2249e> {}
exp_FREEZE_WORLD.FIU()
<Call 0x206ae 0x22530> {}
exp_RUN_NORMAL.TYP()
<Call 0x206b4 0x225aa> {}
exp_RUN_NORMAL.VAL()
<Call 0x206ba 0x224de> {}
exp_RUN_CHECK.SEQ()
<Call 0x206c0 0x228aa> {}
exp_RUN_CHECK.IOC()
<Const 0x206c6 0x3.2> Δ-2 {[#3]}
<Call 0x206ca 0x20540> {[#3]}
<POP 206cc-206ce StackAdj> Δ+2 {}
<Call 0x206ce 0x2244e> {}
exp_RUN_NORMAL.FIU()
<MI 206d4 MOVE.B #0x01,0x22aed> {}
<POP 206d6-206de Epilogue> Σ0 ←0x20604
@ 206de
<POP 206de-207ca Body>
<POP 206de-206f4 Prologue> Σ0 ↓
<POP 206f4-20708 RegCacheLoad> Σ0 ↓
<POP 20708-20718 Naked> Σ0 ↓ →0x2071e
<Const 0x20708 0x22b54.4> Δ-4 {[##142164]}
<Call 0x2070a 0x10408> {[##142164]}
FSCALL_10408
<POP 2070c-2070e StackAdj> Δ+4 {}
<MI 2070e CLR.B 0x22b03> {}
<MI 20714 TST.B 0x22b54> {}
<MI 20716 BNE 0x2071e> {}
<POP 20718-2071e Naked> Σ0 ↓ →0x207c2
<MI 20718 TST.B 0x22b55> {}
<MI 2071a BEQ 0x207c2> {}
<POP 2071e-20728 Naked> Σ0 ↓ →0x2076c ←0x20708
<Call 0x2071e 0x103dc> {}
WriteConsoleCrLf(void)
<MI 20724 TST.B 0x22b55> {}
<MI 20726 BEQ 0x2076c> {}
<POP 20728-2076c Naked> Σ0 →0x20778
<Call 0x20728 0x10420> {}
FSCALL_10420
<Const 0x2072e 0x22b54.4> Δ-4 {[##142164]}
<Call 0x20730 0x10408> {[##142164]}
FSCALL_10408
<POP 20732-20734 StackAdj> Δ+4 {}
<Call 0x20734 0x10420> {}
FSCALL_10420
<Const 0x2073a 0x22b54.4> Δ-4 {[##142164]}
<Call 0x2073c 0x10408> {[##142164]}
FSCALL_10408
<POP 2073e-20740 StackAdj> Δ+4 {}
<Blob 0x20740 [50] @> Δ-50 {[«50""»]}
<POP 2074c-2074e StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x2074e 50> {[«50""»]|[$$End of tape encountered, Please use a longer tape.]}
<Call 0x20760 0x103e0> {[«50""»]|[$$End of tape encountered, Please use a longer tape.]}
WriteConsoleStringCrLf(str : String)
<POP 20766-2076a StackAdj> Δ+54 {}
<MI 2076a BRA 0x20778> {}
<POP 2076c-20778 Naked> Σ0 ↓ ←0x2071e
<Const 0x2076c 0x1.2> Δ-2 {[#1]}
<Const 0x2076e 0x22b54.4> Δ-4 {[#1]|[##142164]}
<Call 0x20770 0x10428> {[#1]|[##142164]}
FSCALL_10428
<POP 20776-20778 StackAdj> Δ+6 {}
<POP 20778-207c2 Naked> Σ0 ←0x20728
<Blob 0x20778 [14] @> Δ-14 {[«14""»]}
<POP 20784-20786 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x20786 14> {[«14""»]|[$$Restarting ...]}
<Call 0x20798 0x103e0> {[«14""»]|[$$Restarting ...]}
WriteConsoleStringCrLf(str : String)
<POP 2079e-207a2 StackAdj> Δ+16 {[-2-]}
<POP 207a2-207a3 StackAdj> Δ+2 {}
<Const 0x207a3 0x1.2> Δ-2 {[#1]}
<Const 0x207a4 0x22b54.4> Δ-4 {[#1]|[##142164]}
<Call 0x207a6 0x10414> {[#1]|[##142164]}
FSCALL_10414
<POP 207ac-207ae StackAdj> Δ+6 {}
<Call 0x207ae 0x10410> {}
FSCALL_10410
<POP 207b4-207c2 Bailout> {}
<MI 207b4 MOVEA.L (A5+0x8),A7>
<MI 207b8 MOVEA.W #0x0,A6>
<MI 207bc JMP 0x221c6>
<POP 207c2-207ca Epilogue> Σ0 ←0x20718
@ 207ca
<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 207ca-20834 Body>
<POP 207ca-207e0 Prologue> Σ0 ↓
<POP 207e0-207e2 RegCacheLoad> Σ0 ↓
<POP 207e2-2081c Naked> Σ0 ↓ →0x2082c
<MI 207e2 MOVE.W #0x3,(A6-0xc)> {}
<MI 207e8 MOVE.W 0x22b00,D0> {}
<MI 207ee ASL.W #0x8,D0> {}
<MI 207f0 MOVE.B (A6+0x16),D1> {}
<MI 207f4 EXTB.W D1> {}
<MI 207f6 ADD.W D0,D1> {}
<MI 207f8 MOVE.W D1,(A6-0x6)> {}
<MI 207fc MOVE.W (A6+0x10),(A6-0x4)> {}
<Pointer.fp 0x20802 <LVAR -0x010 @>> Δ-4 {[@@-16]}
<MI 20806 MOVE.L (A6+0x12),-(A7)> Δ-4 {[@@-16]|[4, '(A6+0x12)']}
<Const 0x2080a 0x1.2> Δ-2 {[@@-16]|[4, '(A6+0x12)']|[#1]}
<Call 0x2080c 0x10204> {[@@-16]|[4, '(A6+0x12)']|[#1]}
KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
<POP 20812-20816 StackAdj> Δ+10 {}
<MI 20816 TST.B (A6+0xc)> {}
<MI 2081a BEQ 0x2082c> {}
<POP 2081c-2082c Naked> Σ0 ↓
<Const 0x2081c 0x1.2> Δ-2 {[#1]}
<MI 2081e MOVEA.L (A6+0x8),A0> {[#1]}
<MI 20822 PEA.L (A0)> Δ-4 {[#1]|[4, '^(A0)']}
<Call 0x20824 0x10206> {[#1]|[4, '^(A0)']}
KC03_Wait_Disk_IO(a : W; VAR status : Byte)
<POP 2082a-2082c StackAdj> Δ+6 {}
<POP 2082c-20834 Epilogue> Σ0 ←0x207e2
@ 20834
<LVAR 0x008 1(rw)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x00c 2(r)>
<LVAR -0x018 @>
<POP 20834-20892 Body>
<POP 20834-2084a Prologue> Σ0 ↓
<POP 2084a-2086c Naked> Σ0 ↓ →0x20878
<MI 2084a CLR.B -(A7)> Δ-2 {[#0]}
<MI 2084c LEA.L (A6-0x18),A0> {[#0]}
<MI 20850 MOVE.L A0,-(A7)> Δ-4 {[#0]|[4, 'A0']}
<Const 0x20852 0x0.4> Δ-4 {[#0]|[4, 'A0']|[##0]}
<Const 0x20856 0x1.2> Δ-2 {[#0]|[4, 'A0']|[##0]|[#1]}
<Pointer.fp 0x2085a <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[4, 'A0']|[##0]|[#1]|[@@-4]}
<Call 0x2085e 0x207ca> {[#0]|[4, 'A0']|[##0]|[#1]|[@@-4]}
<POP 20862-20866 StackAdj> Δ+16 {}
<MI 20866 TST.B (A6-0x4)> {}
<MI 2086a BNE 0x20878> {}
<POP 2086c-20878 Naked> Σ0 ↓
<Const 0x2086c 0xc.4> Δ-4 {[##12]}
<Call 0x20870 0x10220> {[##12]}
KC10_Panic(code : Long)
<POP 20876-20878 StackAdj> Δ+4 {}
<POP 20878-20886 Naked> Σ0 ↓ →0x2088a ←0x2084a
<MI 20878 CLR.B (A6+0x8)> {}
<MI 2087c MOVE.W (A6-0xc),D0> {}
<MI 20880 ANDI.W #0x0008,D0> {}
<MI 20884 BEQ 0x2088a> {}
<POP 20886-2088a Naked> Σ0 ↓
<MI 20886 ADDQ.B #0x1,(A6+0x8)> {}
<POP 2088a-20892 Epilogue> Σ0 ←0x20878
@ 20892
<POP 20892-208c8 Body>
<POP 20892-208a8 Prologue> Σ0 ↓
<POP 208a8-208ae RegCacheLoad> Σ0 ↓
<POP 208ae-208b2 Naked> Σ0 ↓ →0x208c0
<MI 208ae TST.B 0x22b54> {}
<MI 208b0 BEQ 0x208c0> {}
<POP 208b2-208c0 Naked> Σ0 ↓
<Const 0x208b2 0x2.2> Δ-2 {[#2]}
<Const 0x208b6 0x22b54.4> Δ-4 {[#2]|[##142164]}
<Call 0x208b8 0x10428> {[#2]|[##142164]}
FSCALL_10428
<POP 208be-208c0 StackAdj> Δ+6 {}
<POP 208c0-208c8 Epilogue> Σ0 ←0x208ae
@ 208c8
<POP 208c8-20932 Body>
<POP 208c8-208de Prologue> Σ0 ↓
<POP 208de-208f2 RegCacheLoad> Σ0 ↓
<POP 208f2-208f6 Naked> Σ0 ↓ →0x2090e
<MI 208f2 TST.B 0x22b02> {}
<MI 208f4 BEQ 0x2090e> {}
<POP 208f6-208fc Naked> Σ0 ↓ →0x2090e
<MI 208f6 MOVE.L 0x22b04,D0> {}
<MI 208f8 CMP.L #0x01,D0> {}
<MI 208fa BGT 0x2090e> {}
<POP 208fc-2090e Naked> Σ0 ↓
<Const 0x208fc 0xa.2> Δ-2 {[#10]}
<Const 0x20900 0x22b54.4> Δ-4 {[#10]|[##142164]}
<Call 0x20902 0x10414> {[#10]|[##142164]}
FSCALL_10414
<POP 20908-2090a StackAdj> Δ+6 {}
<Call 0x2090a 0x20892> {}
<POP 2090e-20912 Naked> Σ0 ↓ →0x20918 ←0x208f2 ←0x208f6
<MI 2090e TST.B 0x22b02> {}
<MI 20910 BEQ 0x20918> {}
<POP 20912-20918 Naked> Σ0 ↓ →0x2092a
<MI 20912 MOVE.L 0x22b04,D0> {}
<MI 20914 CMP.L #0x01,D0> {}
<MI 20916 BGT 0x2092a> {}
<POP 20918-2092a Naked> Σ0 ↓ ←0x2090e
<Const 0x20918 0x6.2> Δ-2 {[#6]}
<Const 0x2091c 0x22b54.4> Δ-4 {[#6]|[##142164]}
<Call 0x2091e 0x10414> {[#6]|[##142164]}
FSCALL_10414
<POP 20924-20926 StackAdj> Δ+6 {}
<Call 0x20926 0x20892> {}
<POP 2092a-20932 Epilogue> Σ0 ←0x20912
@ 20932
<LVAR 0x008 1(w)>
<POP 20932-20998 Body> Δ+2
<POP 20932-20948 Prologue> Σ0 ↓
<POP 20948-2094c Naked> Σ0 ↓
<MI 20948 MOVEQ.L #0x00,D7> {}
<MI 2094a MOVEQ.L #0x00,D6> {}
<POP 2094c-20956 Naked> Σ0 ↓ →0x2095c ←0x20980
<POP 2094c-2094e StackAdj> Δ-2 {[-2-]}
<Call 0x2094e 0x20834> {[-2-]}
<MI 20952 TST.B (A7)+> Δ+2 {}
<MI 20954 BEQ 0x2095c> {}
<POP 20956-2095c Naked> Σ0 Δ-2 →0x20960
<Const 0x20956 0x9.2> Δ-2 {[#9]}
<MI 2095a BRA 0x20960> {[#9]}
<POP 2095c-20960 Naked> Σ0 Δ-2 ↓ ←0x2094c
<Const 0x2095c 0x8.2> Δ-2 {[#8]}
<POP 20960-2097e Naked> Σ-2 Δ+2 ↓ →0x20980 ←0x20956
<Const 0x20960 0x22b54.4> Δ-4 {[-2-]|[##142164]}
<Call 0x20966 0x10414> {[-2-]|[##142164]}
FSCALL_10414
<POP 2096c-2096e StackAdj> Δ+6 {}
<Call 0x2096e 0x20892> {}
<MI 20972 MOVEQ.L #0x00,D0> {}
<POP 20974-20976 StackAdj> Δ-2 {[-2-]}
<Call 0x20976 0x20834> {[-2-]}
<MI 2097a CMP.B (A7)+,D7> Δ+2 {}
<MI 2097c BEQ 0x20980> {}
<POP 2097e-20980 Naked> Σ0 ↓
<MI 2097e ADDQ.B #0x1,D0> {}
<POP 20980-2098c Naked> Σ0 ↓ →0x2094c ←0x20960
<MI 20980 MOVE.B D0,D7> {}
<MI 20982 ADDQ.L #0x1,D6> {}
<MI 20984 CMPI.L #0x00000001,D6> {}
<MI 2098a BLE 0x2094c> {}
<POP 2098c-20990 Naked> Σ0 ↓
<MI 2098c MOVE.B D7,(A6+0x8)> {}
<POP 20990-20998 Epilogue> Σ0
@ 20998
<LVAR 0x00e 4(w)>
<LVAR 0x00c 2(rw)>
<LVAR 0x00a 2(r)>
<LVAR 0x008 4(r)>
<LVAR -0x00a @ 4(r)>
<POP 20998-209fe Body>
<POP 20998-209ae Prologue> Σ0 ↓
<POP 209ae-209b2 RegCacheLoad> Σ0 ↓
<POP 209b2-209c8 Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x209b2 <LVAR -0x00a @ 4(r)>> Δ-4 {[@@-10]}
<Call 0x209b4 0x102b8> {[@@-10]}
NewString(VAR a : String)
<POP 209ba-209bc StackAdj> Δ+4 {}
<MI 209bc MOVEA.L (A6-0xa),A0> {}
<MI 209be MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 209c0 MOVE.W (A6+0xa),(A0)> {[4, 'A0']}
<MI 209c4 MOVE.L (A6+0x8),D7> {[4, 'A0']}
<POP 209c8-209d0 Naked> Σ-4 ↓ →0x209f0 ←0x209d0
<MI 209c8 CMPI.L #0x00000001,D7> {[-4-]}
<MI 209ce BLT 0x209f0> {[-4-]}
<POP 209d0-209f0 Naked> Σ-4 ↓ →0x209c8
<MI 209d0 MOVEA.L (A7),A0> {[-4-]}
<MI 209d2 CLR.L D0> {[-4-]}
<MI 209d4 MOVE.W (A6+0xc),D0> {[-4-]}
<MI 209d8 DIVU.W #0xa,D0> {[-4-]}
<MI 209dc MOVE.L D0,D1> {[-4-]}
<MI 209de SWAP.W D1> {[-4-]}
<MI 209e0 ADDI.W #0x0030,D1> {[-4-]}
<MI 209e4 MOVE.B D1,(A0+D7.L+#0x1)> {[-4-]}
<MI 209e8 MOVE.W D0,(A6+0xc)> {[-4-]}
<MI 209ec SUBQ.L #0x1,D7> {[-4-]}
<MI 209ee BVC 0x209c8> {[-4-]}
<POP 209f0-209f6 Naked> Σ-4 Δ+4 ↓ ←0x209c8
<POP 209f0-209f2 StackAdj> Δ+4 {}
<MI 209f2 MOVE.L (A6-0xa),(A6+0xe)> {}
<POP 209f6-209fe Epilogue> Σ0
@ 209fe
<LVAR 0x010 4(r)>
<LVAR 0x00c @ 4(r)>
<LVAR 0x008 4(r)>
<POP 209fe-20a58 Body>
<POP 209fe-20a14 Prologue> Σ0 ↓
<POP 20a14-20a28 Naked> Σ0 Δ-8 ↓
<MI 20a14 MOVE.L (A6+0x8),D6> {}
<MI 20a18 SUBQ.L #0x1,D6> {}
<MI 20a1a MOVEA.L (A6+0xc),A0> {}
<MI 20a1e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 20a20 MOVE.W (A0),D0> {[4, 'A0']}
<MI 20a22 EXTW.L D0> {[4, 'A0']}
<MI 20a24 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 20a26 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 20a28-20a2c Naked> Σ-8 ↓ →0x20a42 ←0x20a2c
<MI 20a28 CMP.L (A7),D7> {[-8-]}
<MI 20a2a BGT 0x20a42> {[-8-]}
<POP 20a2c-20a42 Naked> Σ-8 ↓ →0x20a28
<MI 20a2c MOVEA.L (A6+0x10),A0> {[-8-]}
<MI 20a30 MOVE.L D7,D0> {[-8-]}
<MI 20a32 ADD.L D6,D0> {[-8-]}
<MI 20a34 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 20a38 MOVE.B (A1+D7.L+#0x1),(A0+D0.L-#0x1)> {[-8-]}
<MI 20a3e ADDQ.L #0x1,D7> {[-8-]}
<MI 20a40 BVC 0x20a28> {[-8-]}
<POP 20a42-20a50 Naked> Σ-8 Δ+8 ↓ ←0x20a28
<POP 20a42-20a44 StackAdj> Δ+8 {}
<Pointer.fp 0x20a44 <LVAR 0x00c @ 4(r)>> Δ-4 {[@@12]}
<Call 0x20a48 0x102bc> {[@@12]}
FreeString(VAR a : String)
<POP 20a4e-20a50 StackAdj> Δ+4 {}
<POP 20a50-20a58 Epilogue> Σ0
@ 20a58
<LVAR 0x008 4(r)>
<LVAR -0x058 @>
<POP 20a58-20ab8 Body>
<POP 20a58-20a6e Prologue> Σ0 ↓
<POP 20a6e-20a72 Naked> Σ0 ↓
<MI 20a6e MOVEQ.L #0x01,D7> {}
<MI 20a70 MOVEQ.L #0x01,D6> {}
<POP 20a72-20a9a Naked> Σ0 ↓ →0x20a72 ←0x20a72
<MI 20a72 MOVE.L D6,D0> {}
<MI 20a74 ASL.L #0x1,D0> {}
<MI 20a76 MOVEA.L (A6+0x8),A0> {}
<MI 20a7a CLR.L D1> {}
<MI 20a7c MOVE.B (A0+D7.L-#0x1),D1> {}
<MI 20a80 ASL.W #0x8,D1> {}
<MI 20a82 CLR.L D2> {}
<MI 20a84 MOVE.B (A0+D7.L),D2> {}
<MI 20a88 ADD.W D1,D2> {}
<MI 20a8a MOVE.W D2,(A6+D0.L-#0x5a)> {}
<MI 20a8e ADDQ.L #0x2,D7> {}
<MI 20a90 ADDQ.L #0x1,D6> {}
<MI 20a92 CMPI.L #0x00000028,D6> {}
<MI 20a98 BLE 0x20a72> {}
<POP 20a9a-20ab0 Naked> Σ0 ↓
<MI 20a9a LEA.L (A6-0x58),A0> {}
<MI 20a9e MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Const 0x20aa0 0x50.2> Δ-2 {[4, 'A0']|[#80]}
<Call 0x20aa4 0x1041c> {[4, 'A0']|[#80]}
FSCALL_1041c
<POP 20aaa-20aac StackAdj> Δ+6 {}
<Call 0x20aac 0x206de> {}
<POP 20ab0-20ab8 Epilogue> Σ0
@ 20ab8
<POP 20ab8-20af2 Body>
<POP 20ab8-20ace Prologue> Σ0 ↓
<POP 20ace-20ad0 Naked> Σ0 ↓
<MI 20ace MOVEQ.L #0x01,D7> {}
<POP 20ad0-20aea Naked> Σ0 ↓ →0x20ad0 ←0x20ad0
<MI 20ad0 LEA.L 0x22ae4,A0> {}
<MI 20ad6 LEA.L (A0+D7.L),A0> {}
<MI 20ada MOVE.B #0x20,(A0+0x4161)> {}
<MI 20ae0 ADDQ.L #0x1,D7> {}
<MI 20ae2 CMPI.L #0x00000050,D7> {}
<MI 20ae8 BLE 0x20ad0> {}
<POP 20aea-20af2 Epilogue> Σ0
@ 20af2
<LVAR 0x008 4(w)>
<LVAR -0x004 @>
<LVAR -0x00c @ 4(r)>
<POP 20af2-20b70 Body>
<POP 20af2-20b08 Prologue> Σ0 ↓
<POP 20b08-20b0c RegCacheLoad> Σ0 ↓
<POP 20b0c-20b24 Naked> Σ0 ↓
<Pointer.fp 0x20b0c <LVAR -0x004 @>> Δ-4 {[@@-4]}
<Call 0x20b10 0x1059e> {[@@-4]}
ReadClusterNo(VAR a : Long)
<POP 20b16-20b18 StackAdj> Δ+4 {}
<Pointer.fp 0x20b18 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x20b1a 0x102b8> {[@@-12]}
NewString(VAR a : String)
<POP 20b20-20b22 StackAdj> Δ+4 {}
<MI 20b22 MOVEQ.L #0x00,D7> {}
<POP 20b24-20b64 Naked> Σ0 ↓ →0x20b24 ←0x20b24
<MI 20b24 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<MI 20b26 CLR.L D0> {[4, '(A6-0xc)']}
<MI 20b28 MOVE.B (A6+D7.L-#0x4),D0> {[4, '(A6-0xc)']}
<MI 20b2c ASR.W #0x4,D0> {[4, '(A6-0xc)']}
<MI 20b2e LEA.L 0x2015a,A0> {[4, '(A6-0xc)']}
<MI 20b32 MOVE.B (A0+D0.W),-(A7)> Δ-2 {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
<Call 0x20b36 0x102c0> {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
AppendChar(MOD b : String; a : char)
<POP 20b3c-20b3e StackAdj> Δ+2 {[4, '(A6-0xc)']}
<MI 20b3e MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<MI 20b40 CLR.L D0> {[4, '(A6-0xc)']}
<MI 20b42 MOVE.B (A6+D7.L-#0x4),D0> {[4, '(A6-0xc)']}
<MI 20b46 ANDI.W #0x000f,D0> {[4, '(A6-0xc)']}
<MI 20b4a LEA.L 0x2015a,A0> {[4, '(A6-0xc)']}
<MI 20b4e MOVE.B (A0+D0.W),-(A7)> Δ-2 {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
<Call 0x20b52 0x102c0> {[4, '(A6-0xc)']|[2, '(A0+D0.W)']}
AppendChar(MOD b : String; a : char)
<POP 20b58-20b5a StackAdj> Δ+6 {}
<MI 20b5a ADDQ.L #0x1,D7> {}
<MI 20b5c CMPI.L #0x00000003,D7> {}
<MI 20b62 BLE 0x20b24> {}
<POP 20b64-20b68 Naked> Σ0 ↓
<MI 20b64 MOVE.L (A6-0xc),(A6+0x8)> {}
<POP 20b68-20b70 Epilogue> Σ0
@ 20b70
<POP 20b70-2109e Body> Δ+18
<POP 20b70-20b86 Prologue> Σ0 ↓
<POP 20b86-20b9c RegCacheLoad> Σ0 ↓
<POP 20b9c-20c76 Naked> Σ0 ↓ →0x20cb0
<POP 20b9c-20b9e StackAdj> Δ-2 {[-2-]}
<Call 0x20b9e 0x20834> {[-2-]}
<MI 20ba2 MOVE.B (A7)+,0x22b02> Δ+2 {}
<MI 20ba4 NEG.B 0x22b02> {}
<MI 20ba6 ADDQ.B #0x1,0x22b02> {}
<Const 0x20ba8 0xb.2> Δ-2 {[#11]}
<Const 0x20bac 0x22b54.4> Δ-4 {[#11]|[##142164]}
<Call 0x20bb2 0x10414> {[#11]|[##142164]}
FSCALL_10414
<POP 20bb8-20bba StackAdj> Δ+6 {}
<Call 0x20bba 0x20892> {}
<Const 0x20bbe 0x7.2> Δ-2 {[#7]}
<Const 0x20bc2 0x22b54.4> Δ-4 {[#7]|[##142164]}
<Call 0x20bc8 0x10414> {[#7]|[##142164]}
FSCALL_10414
<POP 20bce-20bd0 StackAdj> Δ+6 {}
<Call 0x20bd0 0x20892> {}
<Call 0x20bd4 0x20ab8> {}
<Blob 0x20bd8 [4] @> Δ-4 {[«4""»]}
<Const 0x20bdc 0x26c46.4> Δ-4 {[«4""»]|[##158790]}
<POP 20bde-20be0 StackAdj> Δ-4 {[«4""»]|[##158790]|[-4-]}
<Lit 0x20be0 4> {[«4""»]|[##158790]|[$$VOL1]}
<Const 0x20bf2 0x1.4> Δ-4 {[«4""»]|[##158790]|[$$VOL1]|[##1]}
<Call 0x20bf6 0x209fe> {[«4""»]|[##158790]|[$$VOL1]|[##1]}
<POP 20bf8-20bfa StackAdj> Δ+14 {[-2-]}
<POP 20bfa-20bfb StackAdj> Δ+2 {}
<Blob 0x20bfb [2] 0x26c9a> Δ-2 {[«2»]}
<Blob 0x20c00 [2] 0x26c98> Δ-2 {[«2»]|[«2»]}
<Blob 0x20c06 [2] 0x26c96> Δ-2 {[«2»]|[«2»]|[«2»]}
<Const 0x20c0c 0x26c46.4> Δ-4 {[«2»]|[«2»]|[«2»]|[##158790]}
<POP 20c0e-20c10 StackAdj> Δ-4 {[«2»]|[«2»]|[«2»]|[##158790]|[-4-]}
<Lit 0x20c10> {[«2»]|[«2»]|[«2»]|[##158790]|[$$…]}
<Pointer.sp 0x20c10 8> Δ-4
<Const 0x20c14 0x1.2> Δ-2
<Const 0x20c16 0x6.2> Δ-2
<Call 0x20c1a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20c20-20c22 StackAdj> Δ+8
<Const 0x20c22 0x5.4> Δ-4 {[«2»]|[«2»]|[«2»]|[##158790]|[$$…]|[##5]}
<Call 0x20c26 0x209fe> {[«2»]|[«2»]|[«2»]|[##158790]|[$$…]|[##5]}
<POP 20c28-20c2a StackAdj> Δ+18 {}
<MI 20c2a CLR.B 0x26c6b> {}
<Blob 0x20c30 [10] @> Δ-10 {[«10""»]}
<Const 0x20c3c 0x26c46.4> Δ-4 {[«10""»]|[##158790]}
<POP 20c3e-20c40 StackAdj> Δ-4 {[«10""»]|[##158790]|[-4-]}
<Lit 0x20c40 10> {[«10""»]|[##158790]|[$$CRASH_DUMP]}
<Const 0x20c52 0x27.4> Δ-4 {[«10""»]|[##158790]|[$$CRASH_DUMP]|[##39]}
<Call 0x20c56 0x209fe> {[«10""»]|[##158790]|[$$CRASH_DUMP]|[##39]}
<POP 20c58-20c5c StackAdj> Δ+22 {}
<MI 20c5c MOVE.B #0x33,0x26c95> {}
<Const 0x20c64 0x26c46.4> Δ-4 {[##158790]}
<Call 0x20c66 0x20a58> {[##158790]}
<POP 20c6a-20c6c StackAdj> Δ+2 {[-2-]}
<Call 0x20c6c 0x20834> {[-2-]}
<MI 20c70 MOVE.B 0x22b02,D0> {[-2-]}
<MI 20c72 CMP.B (A7)+,D0> Δ+2 {}
<MI 20c74 BNE 0x20cb0> {}
<POP 20c76-20cb0 Naked> Σ0 ↓
<Blob 0x20c76 [26] @> Δ-26 {[«26""»]}
<POP 20c88-20c8a StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x20c8a 25> {[«26""»]|[$$Tape density just changed]}
<Call 0x20c9c 0x103e0> {[«26""»]|[$$Tape density just changed]}
WriteConsoleStringCrLf(str : String)
<POP 20ca2-20ca6 StackAdj> Δ+28 {[-2-]}
<Call 0x20ca6 0x20834> {[-2-]}
<MI 20caa MOVE.B (A7)+,0x22b02> Δ+2 {}
<MI 20cac NEG.B 0x22b02> {}
<MI 20cae ADDQ.B #0x1,0x22b02> {}
<POP 20cb0-20d72 Naked> Σ0 ↓ →0x20d7c ←0x20b9c
<Call 0x20cb0 0x20ab8> {}
<Blob 0x20cb4 [40] @> Δ-40 {[«40""»]}
<Const 0x20cc0 0x26c46.4> Δ-4 {[«40""»]|[##158790]}
<POP 20cc2-20cc4 StackAdj> Δ-4 {[«40""»]|[##158790]|[-4-]}
<Lit 0x20cc4 40> {[«40""»]|[##158790]|[$$UVL1RATIONAL CHAINED TAPES, PRED VOL ID:]}
<Const 0x20cd6 0x1.4> Δ-4 {[«40""»]|[##158790]|[$$UVL1RATIONAL CHAINED TAPES, PRED VOL ID:]|[##1]}
<Call 0x20cda 0x209fe> {[«40""»]|[##158790]|[$$UVL1RATIONAL CHAINED TAPES, PRED VOL ID:]|[##1]}
<POP 20cdc-20ce0 StackAdj> Δ+52 {}
<Const 0x20ce0 0x26c46.4> Δ-4 {[##158790]}
<Call 0x20ce2 0x20a58> {[##158790]}
<POP 20ce6-20ce8 StackAdj> Δ+4 {}
<Call 0x20ce8 0x20ab8> {}
<Blob 0x20cec [14] @> Δ-14 {[«14""»]}
<Const 0x20cf8 0x26c46.4> Δ-4 {[«14""»]|[##158790]}
<POP 20cfa-20cfc StackAdj> Δ-4 {[«14""»]|[##158790]|[-4-]}
<Lit 0x20cfc 14> {[«14""»]|[##158790]|[$$UVL2CLUSTER-ID]}
<Const 0x20d0c 0x1.4> Δ-4 {[«14""»]|[##158790]|[$$UVL2CLUSTER-ID]|[##1]}
<Call 0x20d10 0x209fe> {[«14""»]|[##158790]|[$$UVL2CLUSTER-ID]|[##1]}
<POP 20d12-20d16 StackAdj> Δ+26 {}
<Const 0x20d16 0x26c46.4> Δ-4 {[##158790]}
<POP 20d18-20d1a StackAdj> Δ-4 {[##158790]|[-4-]}
<Call 0x20d1a 0x20af2> {[##158790]|[-4-]}
<Const 0x20d1e 0x10.4> Δ-4 {[##158790]|[-4-]|[##16]}
<Call 0x20d22 0x209fe> {[##158790]|[-4-]|[##16]}
<MI 20d24 MOVEA.L A7,A0> {[##158790]|[-4-]|[##16]}
<MI 20d26 LEA.L 0x20208,A1> {[##158790]|[-4-]|[##16]}
<BlockMove 11,A1,A0> {[##158790]|[-4-]|[##16]}
<Const 0x20d32 0x26c46.4> Δ-4 {[##158790]|[-4-]|[##16]|[##158790]}
<POP 20d34-20d36 StackAdj> Δ-4 {[##158790]|[-4-]|[##16]|[##158790]|[-4-]}
<Lit 0x20d36> {[##158790]|[-4-]|[##16]|[##158790]|[$$…]}
<Pointer.sp 0x20d36 8> Δ-4
<Const 0x20d3a 0x1.2> Δ-2
<Const 0x20d3c 0xb.2> Δ-2
<Call 0x20d40 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20d46-20d48 StackAdj> Δ+8
<Const 0x20d48 0x1a.4> Δ-4 {[##158790]|[-4-]|[##16]|[##158790]|[$$…]|[##26]}
<Call 0x20d4c 0x209fe> {[##158790]|[-4-]|[##16]|[##158790]|[$$…]|[##26]}
<POP 20d4e-20d52 StackAdj> Δ+24 {}
<Const 0x20d52 0x26c46.4> Δ-4 {[##158790]}
<POP 20d54-20d56 StackAdj> Δ-4 {[##158790]|[-4-]}
<Blob 0x20d56 [4] 0x22b50> Δ-4 {[##158790]|[-4-]|[«4»]}
<Call 0x20d5c 0x10308> {[##158790]|[-4-]|[«4»]}
TimeToText()
<POP 20d62-20d64 StackAdj> Δ+4 {[##158790]|[-4-]}
<Const 0x20d64 0x26.4> Δ-4 {[##158790]|[-4-]|[##38]}
<Call 0x20d68 0x209fe> {[##158790]|[-4-]|[##38]}
<POP 20d6a-20d6e StackAdj> Δ+12 {}
<MI 20d6e TST.B 0x22b02> {}
<MI 20d70 BEQ 0x20d7c> {}
<POP 20d72-20d7c Naked> Σ0 →0x20d84
<MI 20d72 MOVE.B #0x47,0x26c93> {}
<MI 20d7a BRA 0x20d84> {}
<POP 20d7c-20d84 Naked> Σ0 ↓ ←0x20cb0
<MI 20d7c MOVE.B #0x50,0x26c93> {}
<POP 20d84-20db2 Naked> Σ0 ↓ →0x20dbe ←0x20d72
<Blob 0x20d84 [2] @> Δ-2 {[«2""»]}
<Const 0x20d88 0x26c46.4> Δ-4 {[«2""»]|[##158790]}
<POP 20d8a-20d8c StackAdj> Δ-4 {[«2""»]|[##158790]|[-4-]}
<Lit 0x20d8c 2> {[«2""»]|[##158790]|[$$02]}
<Const 0x20d9e 0x4f.4> Δ-4 {[«2""»]|[##158790]|[$$02]|[##79]}
<Call 0x20da2 0x209fe> {[«2""»]|[##158790]|[$$02]|[##79]}
<POP 20da4-20da8 StackAdj> Δ+12 {[«2""»]}
<Call 0x20da8 0x10604> {[«2""»]}
Is_machine_type_three() : Bool
<MI 20dae TST.B (A7)+> Δ+2 {}
<MI 20db0 BNE 0x20dbe> {}
<POP 20db2-20dbe Naked> Σ0 ↓ →0x20dd0
<POP 20db2-20db4 StackAdj> Δ-2 {[-2-]}
<Call 0x20db4 0x1060a> {[-2-]}
Is_machine_type_four() : Bool
<MI 20dba TST.B (A7)+> Δ+2 {}
<MI 20dbc BEQ 0x20dd0> {}
<POP 20dbe-20dd0 Naked> Σ0 Δ-6 →0x20e0a ←0x20d84
<Blob 0x20dbe [6] @> Δ-6 {[«6""»]}
<MI 20dce BRA 0x20e0a> {[«6""»]}
<POP 20dd0-20ddc Naked> Σ0 ↓ →0x20de8 ←0x20db2
<POP 20dd0-20dd2 StackAdj> Δ-2 {[-2-]}
<Call 0x20dd2 0x105f8> {[-2-]}
Is_machine_type_one() : Bool
<MI 20dd8 TST.B (A7)+> Δ+2 {}
<MI 20dda BNE 0x20de8> {}
<POP 20ddc-20de8 Naked> Σ0 ↓ →0x20dfa
<POP 20ddc-20dde StackAdj> Δ-2 {[-2-]}
<Call 0x20dde 0x105fe> {[-2-]}
Is_machine_type_two() : Bool
<MI 20de4 TST.B (A7)+> Δ+2 {}
<MI 20de6 BEQ 0x20dfa> {}
<POP 20de8-20dfa Naked> Σ0 Δ-6 →0x20e0a ←0x20dd0
<Blob 0x20de8 [6] @> Δ-6 {[«6""»]}
<MI 20df8 BRA 0x20e0a> {[«6""»]}
<POP 20dfa-20e0a Naked> Σ0 Δ-6 ↓ ←0x20ddc
<Blob 0x20dfa [6] @> Δ-6 {[«6""»]}
<POP 20e0a-20e50 Naked> Σ-6 Δ+6 ↓ →0x20e62 ←0x20dbe ←0x20de8
<Const 0x20e0a 0x26c46.4> Δ-4 {[-6-]|[##158790]}
<POP 20e0c-20e0e StackAdj> Δ-4 {[-6-]|[##158790]|[-4-]}
<Lit 0x20e0e> {[-6-]|[##158790]|[$$…]}
<Pointer.sp 0x20e0e 8> Δ-4
<Const 0x20e12 0x1.2> Δ-2
<Const 0x20e14 0x5.2> Δ-2
<Call 0x20e18 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20e1e-20e20 StackAdj> Δ+8
<Const 0x20e20 0x3a.4> Δ-4 {[-6-]|[##158790]|[$$…]|[##58]}
<Call 0x20e24 0x209fe> {[-6-]|[##158790]|[$$…]|[##58]}
<POP 20e26-20e28 StackAdj> Δ+18 {}
<Const 0x20e28 0x26c46.4> Δ-4 {[##158790]}
<POP 20e2a-20e2c StackAdj> Δ-4 {[##158790]|[-4-]}
<Blob 0x20e2c [2] 0x22b1e> Δ-2 {[##158790]|[-4-]|[«2»]}
<Const 0x20e32 0x1.4> Δ-4 {[##158790]|[-4-]|[«2»]|[##1]}
<Call 0x20e36 0x20998> {[##158790]|[-4-]|[«2»]|[##1]}
<POP 20e3a-20e3c StackAdj> Δ+6 {[##158790]|[-4-]}
<Const 0x20e3c 0x40.4> Δ-4 {[##158790]|[-4-]|[##64]}
<Call 0x20e40 0x209fe> {[##158790]|[-4-]|[##64]}
<POP 20e42-20e46 StackAdj> Δ+10 {[-2-]}
<Call 0x20e46 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 20e4c TST.B (A7)+> Δ+2 {}
<MI 20e4e BEQ 0x20e62> {}
<POP 20e50-20e62 Naked> Σ0 Δ-6 →0x20e72
<Blob 0x20e50 [6] @> Δ-6 {[«6""»]}
<MI 20e60 BRA 0x20e72> {[«6""»]}
<POP 20e62-20e72 Naked> Σ0 Δ-6 ↓ ←0x20e0a
<Blob 0x20e62 [6] @> Δ-6 {[«6""»]}
<POP 20e72-20ec4 Naked> Σ-6 Δ+6 ↓ →0x20ee0 ←0x20e50
<Const 0x20e72 0x26c46.4> Δ-4 {[-6-]|[##158790]}
<POP 20e74-20e76 StackAdj> Δ-4 {[-6-]|[##158790]|[-4-]}
<Lit 0x20e76> {[-6-]|[##158790]|[$$…]}
<Pointer.sp 0x20e76 8> Δ-4
<Const 0x20e7a 0x1.2> Δ-2
<Const 0x20e7c 0x5.2> Δ-2
<Call 0x20e80 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20e86-20e88 StackAdj> Δ+8
<Const 0x20e88 0x42.4> Δ-4 {[-6-]|[##158790]|[$$…]|[##66]}
<Call 0x20e8c 0x209fe> {[-6-]|[##158790]|[$$…]|[##66]}
<POP 20e8e-20e90 StackAdj> Δ+18 {}
<Const 0x20e90 0x26c46.4> Δ-4 {[##158790]}
<Call 0x20e92 0x20a58> {[##158790]}
<POP 20e96-20e98 StackAdj> Δ+4 {}
<MI 20e98 MOVE.W 0x22b52,D0> {}
<MI 20e9e LSL.W #0x7,D0> {}
<MI 20ea0 LSR.W #0x8,D0> {}
<MI 20ea2 LSR.W #0x4,D0> {}
<MI 20ea4 MOVE.W D0,D1> {}
<MI 20ea6 ASL.W #0x2,D1> {}
<MI 20ea8 LEA.L 0x20510,A0> {}
<MI 20eac CLR.L D2> {}
<MI 20eae MOVE.B 0x22b53,D2> {}
<MI 20eb4 LSL.B #0x3,D2> {}
<MI 20eb6 LSR.B #0x3,D2> {}
<MI 20eb8 ADD.L (A0+D1.W-#0x4),D2> {}
<MI 20ebc MOVE.W D2,D6> {}
<MI 20ebe CMPI.W #0x0002,D0> {}
<MI 20ec2 BLE 0x20ee0> {}
<POP 20ec4-20ed8 Naked> Σ0 ↓ →0x20ee0
<MI 20ec4 CLR.L D0> {}
<MI 20ec6 MOVE.B 0x22b52,D0> {}
<MI 20ecc LSR.B #0x1,D0> {}
<MI 20ece ANDI.W #0x0003,D0> {}
<MI 20ed2 CMPI.W #0x0003,D0> {}
<MI 20ed6 BNE 0x20ee0> {}
<POP 20ed8-20ee0 Naked> Σ0 ↓
<MI 20ed8 CLR.L D0> {}
<MI 20eda MOVE.W D6,D0> {}
<MI 20edc ADDQ.L #0x1,D0> {}
<MI 20ede MOVE.W D0,D6> {}
<POP 20ee0-2105e Naked> Σ0 ↓ ←0x20e72 ←0x20ec4
<Call 0x20ee0 0x20ab8> {}
<MI 20ee4 LEA.L 0x26b56,A0> {}
<MI 20eea LEA.L 0x26c46,A1> {}
<BlockMove 80,A1,A0> {}
<MI 20ef4 MOVE.B #0x31,0x26b59> {}
<Blob 0x20efc [2] 0x26c9a> Δ-2 {[«2»]}
<Blob 0x20f02 [2] 0x26c98> Δ-2 {[«2»]|[«2»]}
<Blob 0x20f08 [2] 0x26c96> Δ-2 {[«2»]|[«2»]|[«2»]}
<Const 0x20f0e 0x26b56.4> Δ-4 {[«2»]|[«2»]|[«2»]|[##158550]}
<POP 20f14-20f16 StackAdj> Δ-4 {[«2»]|[«2»]|[«2»]|[##158550]|[-4-]}
<Lit 0x20f16> {[«2»]|[«2»]|[«2»]|[##158550]|[$$…]}
<Pointer.sp 0x20f16 8> Δ-4
<Const 0x20f1a 0x1.2> Δ-2
<Const 0x20f1c 0x6.2> Δ-2
<Call 0x20f20 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20f26-20f28 StackAdj> Δ+8
<Const 0x20f28 0x16.4> Δ-4 {[«2»]|[«2»]|[«2»]|[##158550]|[$$…]|[##22]}
<Call 0x20f2c 0x209fe> {[«2»]|[«2»]|[«2»]|[##158550]|[$$…]|[##22]}
<POP 20f2e-20f30 StackAdj> Δ+18 {}
<Blob 0x20f30 [14] @> Δ-14 {[«14""»]}
<Const 0x20f3c 0x26b56.4> Δ-4 {[«14""»]|[##158550]}
<POP 20f42-20f44 StackAdj> Δ-4 {[«14""»]|[##158550]|[-4-]}
<Lit 0x20f44 14> {[«14""»]|[##158550]|[$$00010001000100]}
<Const 0x20f54 0x1c.4> Δ-4 {[«14""»]|[##158550]|[$$00010001000100]|[##28]}
<Call 0x20f58 0x209fe> {[«14""»]|[##158550]|[$$00010001000100]|[##28]}
<POP 20f5a-20f5e StackAdj> Δ+26 {}
<Const 0x20f5e 0x26b56.4> Δ-4 {[##158550]}
<POP 20f64-20f66 StackAdj> Δ-4 {[##158550]|[-4-]}
<MI 20f66 CLR.L D0> {[##158550]|[-4-]}
<MI 20f68 MOVE.B 0x22b52,D0> {[##158550]|[-4-]}
<MI 20f6e LSR.B #0x1,D0> {[##158550]|[-4-]}
<MI 20f70 ADDQ.W #0x1,D0> {[##158550]|[-4-]}
<MI 20f72 MOVE.W D0,-(A7)> Δ-2 {[##158550]|[-4-]|[2, 'D0']}
<Const 0x20f74 0x2.4> Δ-4 {[##158550]|[-4-]|[2, 'D0']|[##2]}
<Call 0x20f78 0x20998> {[##158550]|[-4-]|[2, 'D0']|[##2]}
<POP 20f7c-20f7e StackAdj> Δ+6 {[##158550]|[-4-]}
<Const 0x20f7e 0x2b.4> Δ-4 {[##158550]|[-4-]|[##43]}
<Call 0x20f82 0x209fe> {[##158550]|[-4-]|[##43]}
<POP 20f84-20f88 StackAdj> Δ+12 {}
<Const 0x20f88 0x26b56.4> Δ-4 {[##158550]}
<POP 20f8e-20f90 StackAdj> Δ-4 {[##158550]|[-4-]}
<MI 20f90 MOVE.W D6,-(A7)> Δ-2 {[##158550]|[-4-]|[2, 'D6']}
<Const 0x20f92 0x3.4> Δ-4 {[##158550]|[-4-]|[2, 'D6']|[##3]}
<Call 0x20f96 0x20998> {[##158550]|[-4-]|[2, 'D6']|[##3]}
<POP 20f9a-20f9c StackAdj> Δ+6 {[##158550]|[-4-]}
<Const 0x20f9c 0x2d.4> Δ-4 {[##158550]|[-4-]|[##45]}
<Call 0x20fa0 0x209fe> {[##158550]|[-4-]|[##45]}
<POP 20fa2-20fa3 StackAdj> Δ+12 ↓ {}
<Blob 0x20fa3 [26] @> Δ-26 {[«26""»]}
<Const 0x20fb2 0x26b56.4> Δ-4 {[«26""»]|[##158550]}
<POP 20fb8-20fba StackAdj> Δ-4 {[«26""»]|[##158550]|[-4-]}
<Lit 0x20fba 25> {[«26""»]|[##158550]|[$$00000 000000R1000:V001.00]}
<Const 0x20fcc 0x31.4> Δ-4 {[«26""»]|[##158550]|[$$00000 000000R1000:V001.00]|[##49]}
<Call 0x20fd0 0x209fe> {[«26""»]|[##158550]|[$$00000 000000R1000:V001.00]|[##49]}
<POP 20fd2-20fd6 StackAdj> Δ+38 {}
<MI 20fd6 LEA.L 0x26ba6,A0> {}
<MI 20fdc LEA.L 0x26c46,A1> {}
<BlockMove 80,A1,A0> {}
<Blob 0x20fe6 [2] @> Δ-2 {[«2""»]}
<Const 0x20fea 0x26ba6.4> Δ-4 {[«2""»]|[##158630]}
<POP 20ff0-20ff2 StackAdj> Δ-4 {[«2""»]|[##158630]|[-4-]}
<Lit 0x20ff2 2> {[«2""»]|[##158630]|[$$2F]}
<Const 0x21004 0x4.4> Δ-4 {[«2""»]|[##158630]|[$$2F]|[##4]}
<Call 0x21008 0x209fe> {[«2""»]|[##158630]|[$$2F]|[##4]}
<POP 2100a-2100c StackAdj> Δ+14 {}
<Const 0x2100c 0x26ba6.4> Δ-4 {[##158630]}
<POP 21012-21014 StackAdj> Δ-4 {[##158630]|[-4-]}
<Blob 0x21014 [2] 0x22b0a> Δ-2 {[##158630]|[-4-]|[«2»]}
<Const 0x2101a 0x5.4> Δ-4 {[##158630]|[-4-]|[«2»]|[##5]}
<Call 0x2101e 0x20998> {[##158630]|[-4-]|[«2»]|[##5]}
<POP 21022-21024 StackAdj> Δ+6 {[##158630]|[-4-]}
<Const 0x21024 0x6.4> Δ-4 {[##158630]|[-4-]|[##6]}
<Call 0x21028 0x209fe> {[##158630]|[-4-]|[##6]}
<POP 2102a-2102b StackAdj> Δ+12 ↓ {}
<Blob 0x2102b [6] @> Δ-6 {[«6""»]}
<Const 0x2103a 0x26ba6.4> Δ-4 {[«6""»]|[##158630]}
<POP 21040-21042 StackAdj> Δ-4 {[«6""»]|[##158630]|[-4-]}
<Lit 0x21042 5> {[«6""»]|[##158630]|[$$01024]}
<Const 0x21054 0xb.4> Δ-4 {[«6""»]|[##158630]|[$$01024]|[##11]}
<Call 0x21058 0x209fe> {[«6""»]|[##158630]|[$$01024]|[##11]}
<POP 2105a-2105c StackAdj> Δ+18 {}
<MI 2105c MOVEQ.L #0x10,D7> {}
<POP 2105e-21078 Naked> Σ0 ↓ →0x2105e ←0x2105e
<MI 2105e LEA.L 0x22ae4,A0> {}
<MI 21064 LEA.L (A0+D7.L),A0> {}
<MI 21068 MOVE.B #0x30,(A0+0x40c1)> {}
<MI 2106e ADDQ.L #0x1,D7> {}
<MI 21070 CMPI.L #0x00000034,D7> {}
<MI 21076 BLE 0x2105e> {}
<POP 21078-21096 Naked> Σ0 ↓
<MI 21078 LEA.L 0x26bf6,A0> {}
<MI 2107e LEA.L 0x26c46,A1> {}
<BlockMove 80,A1,A0> {}
<MI 21088 MOVE.B #0x33,0x26bf9> {}
<MI 21090 CLR.L 0x22af8> {}
<POP 21096-2109e Epilogue> Σ0
@ 2109e
<LVAR 0x00e 4(r)>
<LVAR 0x00c 2(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(rw)>
<POP 2109e-21300 Body>
<POP 2109e-210b4 Prologue> Σ0 ↓
<POP 210b4-210c6 RegCacheLoad> Σ0 ↓
<POP 210c6-21134 Naked> Σ0 ↓ →0x21138
<Blob 0x210c6 [4] @> Δ-4 {[«4""»]}
<Blob 0x210ca [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 210ce-210d0 StackAdj> Δ-8 {[«4""»]|[«4""»]|[-8-]}
<Lit 0x210d0 8> {[«4""»]|[«4""»]|[-4-]|[$$Dumping_]}
<MI 210dc MOVE.L (A6+0xe),(A7)> {[«4""»]|[«4""»]|[-4-]|[4, '(A6+0xe)']}
<POP 210da-210dc StackAdj> Δ-8 {[«4""»]|[«4""»]|[-4-]|[4, '(A6+0xe)']|[-8-]}
<Call 0x210e0 0x102cc> {[«4""»]|[«4""»]|[-4-]|[4, '(A6+0xe)']|[-8-]}
StringDup(a : String) : String
<POP 210e6-210e8 StackAdj> Δ+4 {[«4""»]|[«4""»]|[-4-]|[4, '(A6+0xe)']|[-4-]}
<Call 0x210e8 0x102d0> {[«4""»]|[«4""»]|[-4-]|[4, '(A6+0xe)']|[-4-]}
StringCat2(a, b : String) : String
<POP 210ee-210f0 StackAdj> Δ+8 {[«4""»]|[«4""»]|[-4-]}
<Call 0x210f0 0x103d8> {[«4""»]|[«4""»]|[-4-]}
WriteConsoleString(str : String)
<POP 210f6-210f8 StackAdj> Δ+12 {}
<MI 210f8 ADDQ.L #0x1,0x22af8> {}
<MI 210fe CLR.L 0x22af0> {}
<MI 21104 CLR.L 0x22af4> {}
<MI 2110a CLR.L 0x22afc> {}
<POP 21110-21112 StackAdj> Δ-4 {[-4-]}
<MI 21112 MOVE.L (A6+0xe),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xe)']}
<Const 0x21116 0x1e.4> Δ-4 {[-4-]|[4, '(A6+0xe)']|[##30]}
<Call 0x2111a 0x102f8> {[-4-]|[4, '(A6+0xe)']|[##30]}
LeftPad(a : String; b : Long) : String
<POP 21120-21122 StackAdj> Δ+8 {[-4-]}
<MI 21122 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 21126 MOVEA.L (A6-0x6),A0> {}
<MI 2112a MOVE.B (A0+0xc),D0> {}
<MI 2112e CMPI.B #0x2e,D0> {}
<MI 21132 BNE 0x21138> {}
<POP 21134-21138 Naked> Σ0 →0x2113a
<MI 21134 MOVEQ.L #0x0c,D5> {}
<MI 21136 BRA 0x2113a> {}
<POP 21138-2113a Naked> Σ0 ↓ ←0x210c6
<MI 21138 MOVEQ.L #0x01,D5> {}
<POP 2113a-21146 Naked> Σ0 Δ-4 ↓ ←0x21134
<MI 2113a MOVEQ.L #0x05,D6> {}
<MI 2113c MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 2113e ADDI.L #0x00000010,(A7)> {[-4-]}
<MI 21144 MOVE.L D5,D7> {[-4-]}
<POP 21146-2114a Naked> Σ-4 ↓ →0x2116a ←0x2114a
<MI 21146 CMP.L (A7),D7> {[-4-]}
<MI 21148 BGT 0x2116a> {[-4-]}
<POP 2114a-2116a Naked> Σ-4 ↓ →0x21146
<MI 2114a MOVEA.L (A6-0x6),A0> {[-4-]}
<MI 2114e LEA.L 0x22ae4,A1> {[-4-]}
<MI 21154 LEA.L (A1+D6.L),A1> {[-4-]}
<MI 21158 MOVE.B (A0+D7.L+#0x1),(A1+0x4071)> {[-4-]}
<MI 2115e MOVE.B (A0+D7.L+#0x1),(A1+0x4111)> {[-4-]}
<MI 21164 ADDQ.L #0x1,D6> {[-4-]}
<MI 21166 ADDQ.L #0x1,D7> {[-4-]}
<MI 21168 BVC 0x21146> {[-4-]}
<POP 2116a-211ba Naked> Σ-4 Δ+4 ↓ ←0x21146
<POP 2116a-2116c StackAdj> Δ+4 {}
<Const 0x2116c 0x26b56.4> Δ-4 {[##158550]}
<POP 21172-21174 StackAdj> Δ-4 {[##158550]|[-4-]}
<Blob 0x21174 [2] 0x22afa> Δ-2 {[##158550]|[-4-]|[«2»]}
<Const 0x2117a 0x4.4> Δ-4 {[##158550]|[-4-]|[«2»]|[##4]}
<Call 0x2117e 0x20998> {[##158550]|[-4-]|[«2»]|[##4]}
<POP 21180-21182 StackAdj> Δ+6 {[##158550]|[-4-]}
<Const 0x21182 0x20.4> Δ-4 {[##158550]|[-4-]|[##32]}
<Call 0x21186 0x209fe> {[##158550]|[-4-]|[##32]}
<POP 21188-2118c StackAdj> Δ+10 {[-2-]}
<POP 2118c-2118d StackAdj> Δ+2 {}
<Blob 0x2118d [2] @> Δ-2 {[«2""»]}
<Blob 0x21190 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x21194 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<Const 0x21198 0x26b56.4> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[##158550]}
<POP 2119e-211a0 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[##158550]|[-4-]}
<Lit 0x211a0 6> {[«2""»]|[«2""»]|[«2""»]|[##158550]|[$$000000]}
<Const 0x211ae 0x37.4> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[##158550]|[$$000000]|[##55]}
<Call 0x211b2 0x209fe> {[«2""»]|[«2""»]|[«2""»]|[##158550]|[$$000000]|[##55]}
<POP 211b4-211b8 StackAdj> Δ+18 {}
<MI 211b8 MOVEQ.L #0x01,D7> {}
<POP 211ba-21212 Naked> Σ0 ↓ →0x211ba ←0x211ba
<MI 211ba MOVE.L D7,D4> {}
<MI 211bc MOVEQ.L #0x50,D3> {}
<Call 0x211be 0x1028c> {}
?muls_d3_d4
<MI 211c4 LEA.L 0x22ae4,A0> {}
<MI 211ca LEA.L (A0+D4.L),A0> {}
<POP 211ce-211d0 StackAdj> Δ-4 {[-4-]}
<POP 211d0-211d1 StackAdj> Δ+2 {[-2-]}
<Blob 0x211d1 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 211d4 MOVE.B 0x20271,(A7+0x1)> {[-2-]|[«2""»]}
<MI 211da MOVE.B 0x20272,(A7+0x2)> {[-2-]|[«2""»]}
<MI 211e0 PEA.L (A0+0x4022)> Δ-4 {[-2-]|[«2""»]|[4, '^(A0+0x4022)']}
<POP 211e4-211e6 StackAdj> Δ-4 {[-2-]|[«2""»]|[4, '^(A0+0x4022)']|[-4-]}
<Lit 0x211e6> {[-2-]|[«2""»]|[4, '^(A0+0x4022)']|[$$…]}
<Pointer.sp 0x211e6 8> Δ-4
<Const 0x211ea 0x1.2> Δ-2
<Const 0x211ec 0x3.2> Δ-2
<Call 0x211f0 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 211f2-211f4 StackAdj> Δ+8
<Const 0x211f4 0x1.4> Δ-4 {[-2-]|[«2""»]|[4, '^(A0+0x4022)']|[$$…]|[##1]}
<Call 0x211f8 0x209fe> {[-2-]|[«2""»]|[4, '^(A0+0x4022)']|[$$…]|[##1]}
<POP 211fa-211fe StackAdj> Δ+16 {}
<MI 211fe PEA.L (A0+0x4022)> Δ-4 {[4, '^(A0+0x4022)']}
<Call 0x21202 0x20a58> {[4, '^(A0+0x4022)']}
<POP 21206-21208 StackAdj> Δ+4 {}
<MI 21208 ADDQ.L #0x1,D7> {}
<MI 2120a CMPI.L #0x00000003,D7> {}
<MI 21210 BLE 0x211ba> {}
<POP 21212-212f8 Naked> Σ0 ↓
<Call 0x21212 0x20ab8> {}
<Blob 0x21216 [4] @> Δ-4 {[«4""»]}
<Const 0x2121a 0x26c46.4> Δ-4 {[«4""»]|[##158790]}
<POP 21220-21222 StackAdj> Δ-4 {[«4""»]|[##158790]|[-4-]}
<Lit 0x21222 4> {[«4""»]|[##158790]|[$$UHL1]}
<Const 0x21230 0x1.4> Δ-4 {[«4""»]|[##158790]|[$$UHL1]|[##1]}
<Call 0x21234 0x209fe> {[«4""»]|[##158790]|[$$UHL1]|[##1]}
<POP 21236-2123a StackAdj> Δ+16 {}
<Const 0x2123a 0x26c46.4> Δ-4 {[##158790]}
<MI 21240 MOVE.L (A6-0x6),-(A7)> Δ-4 {[##158790]|[4, '(A6-0x6)']}
<Const 0x21244 0x5.4> Δ-4 {[##158790]|[4, '(A6-0x6)']|[##5]}
<Call 0x21248 0x209fe> {[##158790]|[4, '(A6-0x6)']|[##5]}
<POP 2124a-2124c StackAdj> Δ+12 {}
<Const 0x2124c 0x26c46.4> Δ-4 {[##158790]}
<POP 21252-21254 StackAdj> Δ-4 {[##158790]|[-4-]}
<MI 21254 MOVE.W (A6+0xc),-(A7)> Δ-2 {[##158790]|[-4-]|[2, '(A6+0xc)']}
<Const 0x21258 0x5.4> Δ-4 {[##158790]|[-4-]|[2, '(A6+0xc)']|[##5]}
<Call 0x2125c 0x20998> {[##158790]|[-4-]|[2, '(A6+0xc)']|[##5]}
<POP 2125e-21260 StackAdj> Δ+6 {[##158790]|[-4-]}
<Const 0x21260 0x23.4> Δ-4 {[##158790]|[-4-]|[##35]}
<Call 0x21264 0x209fe> {[##158790]|[-4-]|[##35]}
<POP 21266-21268 StackAdj> Δ+12 {}
<Const 0x21268 0x26c46.4> Δ-4 {[##158790]}
<POP 2126e-21270 StackAdj> Δ-4 {[##158790]|[-4-]}
<Const 0x21270 0x400.2> Δ-2 {[##158790]|[-4-]|[#1024]}
<Const 0x21274 0x5.4> Δ-4 {[##158790]|[-4-]|[#1024]|[##5]}
<Call 0x21278 0x20998> {[##158790]|[-4-]|[#1024]|[##5]}
<POP 2127a-2127c StackAdj> Δ+6 {[##158790]|[-4-]}
<Const 0x2127c 0x28.4> Δ-4 {[##158790]|[-4-]|[##40]}
<Call 0x21280 0x209fe> {[##158790]|[-4-]|[##40]}
<POP 21282-21284 StackAdj> Δ+12 {}
<Const 0x21284 0x26c46.4> Δ-4 {[##158790]}
<POP 2128a-2128c StackAdj> Δ-4 {[##158790]|[-4-]}
<Blob 0x2128c [2] 0x22b06> Δ-2 {[##158790]|[-4-]|[«2»]}
<Const 0x21292 0x2.4> Δ-4 {[##158790]|[-4-]|[«2»]|[##2]}
<Call 0x21296 0x20998> {[##158790]|[-4-]|[«2»]|[##2]}
<POP 21298-2129a StackAdj> Δ+6 {[##158790]|[-4-]}
<Const 0x2129a 0x2d.4> Δ-4 {[##158790]|[-4-]|[##45]}
<Call 0x2129e 0x209fe> {[##158790]|[-4-]|[##45]}
<POP 212a0-212a2 StackAdj> Δ+12 {}
<MI 212a2 MOVE.B #0x44,0x26c74> {}
<Const 0x212aa 0x26c46.4> Δ-4 {[##158790]}
<POP 212b0-212b2 StackAdj> Δ-4 {[##158790]|[-4-]}
<MI 212b2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[##158790]|[-4-]|[4, '(A6+0x8)']}
<Call 0x212b6 0x10308> {[##158790]|[-4-]|[4, '(A6+0x8)']}
TimeToText()
<POP 212bc-212be StackAdj> Δ+4 {[##158790]|[-4-]}
<Const 0x212be 0x30.4> Δ-4 {[##158790]|[-4-]|[##48]}
<Call 0x212c2 0x209fe> {[##158790]|[-4-]|[##48]}
<POP 212c4-212c6 StackAdj> Δ+12 {}
<Const 0x212c6 0x26c46.4> Δ-4 {[##158790]}
<POP 212cc-212ce StackAdj> Δ-4 {[##158790]|[-4-]}
<Const 0x212ce 0x1.2> Δ-2 {[##158790]|[-4-]|[#1]}
<Const 0x212d0 0x2.4> Δ-4 {[##158790]|[-4-]|[#1]|[##2]}
<Call 0x212d4 0x20998> {[##158790]|[-4-]|[#1]|[##2]}
<POP 212d6-212d8 StackAdj> Δ+6 {[##158790]|[-4-]}
<Const 0x212d8 0x4f.4> Δ-4 {[##158790]|[-4-]|[##79]}
<Call 0x212dc 0x209fe> {[##158790]|[-4-]|[##79]}
<POP 212de-212e0 StackAdj> Δ+12 {}
<Const 0x212e0 0x26c46.4> Δ-4 {[##158790]}
<Call 0x212e6 0x20a58> {[##158790]}
<POP 212ea-212ec StackAdj> Δ+4 {}
<Call 0x212ec 0x10420> {}
FSCALL_10420
<MI 212f2 MOVE.B #0x01,0x22b03> {}
<POP 212f8-21300 Epilogue> Σ0
@ 21300
<POP 21300-2136e Body>
<POP 21300-21316 Prologue> Σ0 ↓
<POP 21316-21322 RegCacheLoad> Σ0 ↓
<POP 21322-2132e Naked> Σ0 ↓ →0x21366
<MI 21322 ADDQ.L #0x1,0x22afc> {}
<MI 21324 MOVE.L 0x22afc,D0> {}
<MI 21326 CMP.L 0x22b04,D0> {}
<MI 2132c BNE 0x21366> {}
<POP 2132e-21366 Naked> Σ0 ↓
<Call 0x2132e 0x206de> {}
<MI 21332 MOVE.L 0x22af4,D0> {}
<MI 21334 ASL.L #0x8,D0> {}
<MI 21336 ASL.L #0x5,D0> {}
<MI 21338 LEA.L 0x22ae4,A0> {}
<MI 2133e LEA.L (A0+D0.L+#0x72),A0> {}
<MI 21342 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x21344 [2] 0x22b0a> Δ-2 {[4, 'A0']|[«2»]}
<Call 0x2134a 0x1041c> {[4, 'A0']|[«2»]}
FSCALL_1041c
<POP 21350-21352 StackAdj> Δ+6 {}
<MI 21352 MOVE.B #0x01,0x22b03> {}
<MI 2135a ADDQ.L #0x1,0x22af0> {}
<MI 21360 NEG.L 0x22af4> {}
<MI 21362 ADDQ.L #0x1,0x22af4> {}
<MI 21364 CLR.L 0x22afc> {}
<POP 21366-2136e Epilogue> Σ0 ←0x21322
@ 2136e
<POP 2136e-214c8 Body>
<POP 2136e-21384 Prologue> Σ0 ↓
<POP 21384-21398 RegCacheLoad> Σ0 ↓
<POP 21398-2139c Naked> Σ0 ↓ →0x21406
<MI 21398 TST.L 0x22afc> {}
<MI 2139a BEQ 0x21406> {}
<POP 2139c-2139e Naked> Σ0 ↓ ←0x213cc
<MI 2139c MOVEQ.L #0x00,D7> {}
<POP 2139e-213cc Naked> Σ0 ↓ →0x2139e ←0x2139e
<MI 2139e MOVE.L 0x22af4,D0> {}
<MI 213a4 ASL.L #0x8,D0> {}
<MI 213a6 ASL.L #0x5,D0> {}
<MI 213a8 LEA.L 0x22ae4,A0> {}
<MI 213aa MOVE.L 0x22afc,D1> {}
<MI 213ac ASL.L #0x8,D1> {}
<MI 213ae ASL.L #0x2,D1> {}
<MI 213b0 LEA.L (A0+D0.L),A0> {}
<MI 213b4 MOVE.L D7,D0> {}
<MI 213b6 ASL.L #0x1,D0> {}
<MI 213b8 LEA.L (A0+D1.L),A0> {}
<MI 213bc MOVE.W #0x5e5e,(A0+D0.L+#0x72)> {}
<MI 213c2 ADDQ.L #0x1,D7> {}
<MI 213c4 CMPI.L #0x000001ff,D7> {}
<MI 213ca BLE 0x2139e> {}
<POP 213cc-213d8 Naked> Σ0 ↓ →0x2139c
<MI 213cc ADDQ.L #0x1,0x22afc> {}
<MI 213ce MOVE.L 0x22afc,D0> {}
<MI 213d0 CMP.L 0x22b04,D0> {}
<MI 213d6 BLT 0x2139c> {}
<POP 213d8-21406 Naked> Σ0 ↓
<Call 0x213d8 0x206de> {}
<MI 213da MOVE.L 0x22af4,D0> {}
<MI 213e0 ASL.L #0x8,D0> {}
<MI 213e2 ASL.L #0x5,D0> {}
<MI 213e4 LEA.L 0x22ae4,A0> {}
<MI 213e6 LEA.L (A0+D0.L+#0x72),A0> {}
<MI 213ea MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x213ec [2] 0x22b0a> Δ-2 {[4, 'A0']|[«2»]}
<Call 0x213f2 0x1041c> {[4, 'A0']|[«2»]}
FSCALL_1041c
<POP 213f8-213fa StackAdj> Δ+6 {}
<MI 213fa MOVE.B #0x01,0x22b03> {}
<MI 21400 ADDQ.L #0x1,0x22af0> {}
<POP 21406-21436 Naked> Σ0 ↓ ←0x21398
<Call 0x21406 0x206de> {}
<Call 0x21408 0x10420> {}
FSCALL_10420
<Call 0x2140e 0x206de> {}
<Const 0x21410 0x26b56.4> Δ-4 {[##158550]}
<POP 21416-21418 StackAdj> Δ-4 {[##158550]|[-4-]}
<Blob 0x21418 [2] 0x22af2> Δ-2 {[##158550]|[-4-]|[«2»]}
<Const 0x2141e 0x6.4> Δ-4 {[##158550]|[-4-]|[«2»]|[##6]}
<Call 0x21422 0x20998> {[##158550]|[-4-]|[«2»]|[##6]}
<POP 21426-21428 StackAdj> Δ+6 {[##158550]|[-4-]}
<Const 0x21428 0x37.4> Δ-4 {[##158550]|[-4-]|[##55]}
<Call 0x2142c 0x209fe> {[##158550]|[-4-]|[##55]}
<POP 21430-21434 StackAdj> Δ+12 {}
<MI 21434 MOVEQ.L #0x01,D7> {}
<POP 21436-2148a Naked> Σ0 ↓ →0x21436 ←0x21436
<MI 21436 MOVE.L D7,D4> {}
<MI 21438 MOVEQ.L #0x50,D3> {}
<Call 0x2143a 0x1028c> {}
?muls_d3_d4
<MI 21440 LEA.L 0x22ae4,A0> {}
<MI 21442 LEA.L (A0+D4.L),A0> {}
<POP 21446-21448 StackAdj> Δ-4 {[-4-]}
<POP 21448-21449 StackAdj> Δ+2 {[-2-]}
<Blob 0x21449 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 2144c MOVE.B 0x20279,(A7+0x1)> {[-2-]|[«2""»]}
<MI 21452 MOVE.B 0x2027a,(A7+0x2)> {[-2-]|[«2""»]}
<MI 21458 PEA.L (A0+0x4022)> Δ-4 {[-2-]|[«2""»]|[4, '^(A0+0x4022)']}
<POP 2145c-2145e StackAdj> Δ-4 {[-2-]|[«2""»]|[4, '^(A0+0x4022)']|[-4-]}
<Lit 0x2145e> {[-2-]|[«2""»]|[4, '^(A0+0x4022)']|[$$…]}
<Pointer.sp 0x2145e 8> Δ-4
<Const 0x21462 0x1.2> Δ-2
<Const 0x21464 0x3.2> Δ-2
<Call 0x21466 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2146c-2146e StackAdj> Δ+8
<Const 0x2146e 0x1.4> Δ-4 {[-2-]|[«2""»]|[4, '^(A0+0x4022)']|[$$…]|[##1]}
<Call 0x21472 0x209fe> {[-2-]|[«2""»]|[4, '^(A0+0x4022)']|[$$…]|[##1]}
<POP 21476-2147a StackAdj> Δ+16 {}
<MI 2147a PEA.L (A0+0x4022)> Δ-4 {[4, '^(A0+0x4022)']}
<Call 0x2147e 0x20a58> {[4, '^(A0+0x4022)']}
<POP 21482-21484 StackAdj> Δ+4 {}
<MI 21484 ADDQ.L #0x1,D7> {}
<MI 21486 CMP.L #0x03,D7> {}
<MI 21488 BLE 0x21436> {}
<POP 2148a-214c0 Naked> Σ0 ↓
<Call 0x2148a 0x10420> {}
FSCALL_10420
<Call 0x21490 0x206de> {}
<Blob 0x21492 [6] @> Δ-6 {[«6""»]}
<POP 214a2-214a4 StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x214a4 5> {[«6""»]|[$$ [OK]]}
<Call 0x214b6 0x103e0> {[«6""»]|[$$ [OK]]}
WriteConsoleStringCrLf(str : String)
<POP 214bc-214c0 StackAdj> Δ+10 {}
<POP 214c0-214c8 Epilogue> Σ0
@ 214c8
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @>
<POP 214c8-21526 Body>
<POP 214c8-214de Prologue> Σ0 ↓
<POP 214de-214e2 RegCacheLoad> Σ0 ↓
<POP 214e2-21502 Naked> Σ0 ↓ →0x2151e
<MI 214e2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 214e6 CLR.B -(A7)> Δ-2 {[4, '(A6+0x8)']|[#0]}
<MI 214e8 CLR.B -(A7)> Δ-2 {[4, '(A6+0x8)']|[#0]|[#0]}
<Const 0x214ea 0x0.4> Δ-4 {[4, '(A6+0x8)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x214ee <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[#0]|[#0]|[##0]|[@@-4]}
<Pointer.fp 0x214f0 <LVAR -0x008 @>> Δ-4 {[4, '(A6+0x8)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
<Call 0x214f4 0x10380> {[4, '(A6+0x8)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 214fa-214fe StackAdj> Δ+20 {}
<MI 214fe TST.B (A6-0x4)> {}
<MI 21500 BNE 0x2151e> {}
<POP 21502-2151e Naked> Σ0 ↓
<Const 0x21502 0x2.2> Δ-2 {[#2]}
<Const 0x21506 0x1.2> Δ-2 {[#2]|[#1]}
<Const 0x2150a 0x1.4> Δ-4 {[#2]|[#1]|[##1]}
<Pointer.fp 0x2150e <LVAR -0x004 @ 1(r)>> Δ-4 {[#2]|[#1]|[##1]|[@@-4]}
<Pointer.fp 0x21510 <LVAR -0x008 @>> Δ-4 {[#2]|[#1]|[##1]|[@@-4]|[@@-8]}
<Call 0x21514 0x1038c> {[#2]|[#1]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 2151a-2151e StackAdj> Δ+16 {}
<POP 2151e-21526 Epilogue> Σ0 ←0x214e2
@ 21526
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 4(r)>
<LVAR -0x00a @ 1(r)>
<LVAR -0x00e @ 4(r)>
<POP 21526-216aa Body> Δ+8
<POP 21526-2153c Prologue> Σ0 ↓
<POP 2153c-2154c RegCacheLoad> Σ0 ↓
<POP 2154c-21552 Naked> Σ0 ↓ →0x2155a
<MI 2154c TST.B (A6+0x8)> {}
<MI 21550 BEQ 0x2155a> {}
<POP 21552-2155a Naked> Σ0 Δ-8 →0x21560
<MI 21552 MOVE.L (A6+0xa),-(A7)> Δ-4 {[4, '(A6+0xa)']}
<MI 21554 CLR.B -(A7)> Δ-2 {[4, '(A6+0xa)']|[#0]}
<Const 0x21556 0x2.2> Δ-2 {[4, '(A6+0xa)']|[#0]|[#2]}
<MI 21558 BRA 0x21560> {[4, '(A6+0xa)']|[#0]|[#2]}
<POP 2155a-21560 Naked> Σ0 Δ-8 ↓ ←0x2154c
<MI 2155a MOVE.L (A6+0xa),-(A7)> Δ-4 {[4, '(A6+0xa)']}
<MI 2155c CLR.B -(A7)> Δ-2 {[4, '(A6+0xa)']|[#0]}
<MI 2155e CLR.B -(A7)> Δ-2 {[4, '(A6+0xa)']|[#0]|[#0]}
<POP 21560-21576 Naked> Σ-8 Δ+8 ↓ →0x215d4 ←0x21552
<Const 0x21560 0x0.4> Δ-4 {[-8-]|[##0]}
<Pointer.fp 0x21564 <LVAR -0x00a @ 1(r)>> Δ-4 {[-8-]|[##0]|[@@-10]}
<Pointer.fp 0x21566 <LVAR -0x00e @ 4(r)>> Δ-4 {[-8-]|[##0]|[@@-10]|[@@-14]}
<Call 0x21568 0x10380> {[-8-]|[##0]|[@@-10]|[@@-14]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 2156e-21570 StackAdj> Δ+20 {}
<MI 21570 MOVE.B (A6-0xa),D0> {}
<MI 21572 CMP.B #0x02,D0> {}
<MI 21574 BNE 0x215d4> {}
<POP 21576-21594 Naked> Σ0 ↓
<MI 21576 MOVEQ.L #0x01,D6> {}
<Pointer.fp 0x21578 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x2157c 0x10304> {[@@-4]}
GetRtc() : TimeStamp
<MI 21582 MOVE.L (A6+0xa),(A7)> {[4, '(A6+0xa)']}
<MI 21584 MOVE.W D6,-(A7)> Δ-2 {[4, '(A6+0xa)']|[2, 'D6']}
<MI 21586 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6+0xa)']|[2, 'D6']|[4, '(A6-0x4)']}
<Call 0x2158a 0x2109e> {[4, '(A6+0xa)']|[2, 'D6']|[4, '(A6-0x4)']}
<POP 2158e-21592 StackAdj> Δ+10 {}
<MI 21592 MOVEQ.L #0x00,D7> {}
<POP 21594-215c8 Naked> Σ0 ↓ →0x21594 ←0x21594
<MI 21594 MOVE.L 0x22af4,D0> {}
<MI 2159a ASL.L #0x8,D0> {}
<MI 2159c ASL.L #0x5,D0> {}
<MI 2159e LEA.L 0x22ae4,A0> {}
<MI 215a4 MOVE.L 0x22afc,D1> {}
<MI 215aa ASL.L #0x8,D1> {}
<MI 215ac ASL.L #0x2,D1> {}
<MI 215ae LEA.L (A0+D0.L),A0> {}
<MI 215b2 MOVE.L D7,D0> {}
<MI 215b4 ASL.L #0x1,D0> {}
<MI 215b6 LEA.L (A0+D1.L),A0> {}
<MI 215ba CLR.W (A0+D0.L+#0x72)> {}
<MI 215be ADDQ.L #0x1,D7> {}
<MI 215c0 CMPI.L #0x000001ff,D7> {}
<MI 215c6 BLE 0x21594> {}
<POP 215c8-215d4 Naked> Σ0 →0x216a2
<Call 0x215c8 0x21300> {}
<Call 0x215cc 0x2136e> {}
<MI 215d0 BRA 0x216a2> {}
<POP 215d4-215da Naked> Σ0 ↓ →0x21670 ←0x21560
<MI 215d4 TST.B D0> {}
<MI 215d6 BNE 0x21670> {}
<POP 215da-2160c Naked> Σ0 Δ-4 ↓
<MI 215da MOVEA.L (A6-0xe),A0> {}
<MI 215dc MOVE.W (A0+0x20),D0> {}
<MI 215e0 EXTW.L D0> {}
<MI 215e2 MOVE.L D0,D6> {}
<MI 215e4 MOVE.L (A6+0xa),-(A7)> Δ-4 {[4, '(A6+0xa)']}
<MI 215e6 MOVE.W D6,-(A7)> Δ-2 {[4, '(A6+0xa)']|[2, 'D6']}
<POP 215e8-215ea StackAdj> Δ-4 {[4, '(A6+0xa)']|[2, 'D6']|[-4-]}
<MI 215ea MOVE.B (A0+0x3a),(A7)> {[4, '(A6+0xa)']|[2, 'D6']|[-4-]}
<MI 215ee MOVE.B (A0+0x3b),(A7+0x1)> {[4, '(A6+0xa)']|[2, 'D6']|[-4-]}
<MI 215f4 MOVE.B (A0+0x3c),(A7+0x2)> {[4, '(A6+0xa)']|[2, 'D6']|[-4-]}
<MI 215fa MOVE.B (A0+0x3d),(A7+0x3)> {[4, '(A6+0xa)']|[2, 'D6']|[-4-]}
<Call 0x21600 0x2109e> {[4, '(A6+0xa)']|[2, 'D6']|[-4-]}
<POP 21604-21606 StackAdj> Δ+6 {[4, '(A6+0xa)']}
<MI 21606 MOVE.L D6,(A7)> {[4, 'D6']}
<MI 21608 SUBQ.L #0x1,(A7)> {[-4-]}
<MI 2160a MOVEQ.L #0x00,D7> {[-4-]}
<POP 2160c-21610 Naked> Σ-4 ↓ →0x21652 ←0x21610
<MI 2160c CMP.L (A7),D7> {[-4-]}
<MI 2160e BGT 0x21652> {[-4-]}
<POP 21610-21652 Naked> Σ-4 ↓ →0x2160c
<MI 21610 MOVE.L (A6-0xe),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xe)']}
<MI 21612 MOVE.W D7,-(A7)> Δ-2 {[-4-]|[4, '(A6-0xe)']|[2, 'D7']}
<MI 21614 CLR.W -(A7)> Δ-2 {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]}
<Const 0x21616 0x200.2> Δ-2 {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]}
<Const 0x2161a 0x2.2> Δ-2 {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 2161c MOVE.L 0x22af4,D0> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21622 ASL.L #0x8,D0> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21624 ASL.L #0x5,D0> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21626 LEA.L 0x22ae4,A0> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 2162c MOVE.L 0x22afc,D1> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21632 ASL.L #0x8,D1> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21634 ASL.L #0x2,D1> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 21636 LEA.L (A0+D0.L),A0> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 2163a LEA.L (A0+D1.L+#0x72),A0> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]}
<MI 2163e MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x21640 <LVAR -0x00a @ 1(r)>> Δ-4 {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-10]}
<Call 0x21642 0x10384> {[-4-]|[4, '(A6-0xe)']|[2, 'D7']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-10]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 21648-2164a StackAdj> Δ+20 {[-4-]}
<Call 0x2164a 0x21300> {[-4-]}
<MI 2164e ADDQ.L #0x1,D7> {[-4-]}
<MI 21650 BVC 0x2160c> {[-4-]}
<POP 21652-21670 Naked> Σ-4 Δ+4 →0x216a2 ←0x2160c
<POP 21652-21654 StackAdj> Δ+4 {}
<Call 0x21654 0x2136e> {}
<MI 21658 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2165a 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x2165c 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x21660 <LVAR -0x00a @ 1(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-10]}
<Pointer.fp 0x21662 <LVAR -0x00e @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-10]|[@@-14]}
<Call 0x21664 0x1038c> {[#0]|[#2]|[##1]|[@@-10]|[@@-14]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 2166a-2166e StackAdj> Δ+16 {}
<MI 2166e BRA 0x216a2> {}
<POP 21670-21690 Naked> Σ0 ↓ →0x21694 ←0x215d4
<POP 21670-21672 StackAdj> Δ-8 {[-8-]}
<MI 21672 MOVE.B D0,-(A7)> Δ-2 {[-8-]|[2, 'D0']}
<Call 0x21674 0x103a0> {[-8-]|[2, 'D0']}
FsErrMsgStr(err: Byte) : String
<POP 2167a-2167c StackAdj> Δ+2 {[-8-]}
<MI 2167c MOVE.L (A6+0xa),-(A7)> Δ-4 {[-8-]|[4, '(A6+0xa)']}
<Call 0x2167e 0x102d0> {[-8-]|[4, '(A6+0xa)']}
StringCat2(a, b : String) : String
<POP 21684-21686 StackAdj> Δ+8 {[-4-]}
<MI 21686 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 21688 TST.B 0x22b03> {}
<MI 2168e BEQ 0x21694> {}
<POP 21690-21694 Naked> Σ0 ↓
<Call 0x21690 0x206de> {}
<POP 21694-216a2 Naked> Σ0 ↓ ←0x21670
<Const 0x21694 0x1.2> Δ-2 {[#1]}
<MI 21698 MOVE.L A4,-(A7)> Δ-4 {[#1]|[4, 'A4']}
<Call 0x2169a 0x103b8> {[#1]|[4, 'A4']}
PopProgram(status : Byte; msg : String)
<POP 216a0-216a2 StackAdj> Δ+6 {}
<POP 216a2-216aa Epilogue> Σ0 ←0x215c8 ←0x21652
@ 216aa
<LVAR 0x008 4(r)>
<POP 216aa-216dc Body>
<POP 216aa-216bc Prologue> Σ0 ↓
<POP 216bc-216c4 Naked> Σ0 ↓ →0x216c8
<MI 216bc TST.B 0x22b03> {}
<MI 216c2 BEQ 0x216c8> {}
<POP 216c4-216c8 Naked> Σ0 ↓
<Call 0x216c4 0x206de> {}
<POP 216c8-216d8 Naked> Σ0 ↓ ←0x216bc
<Const 0x216c8 0xe.2> Δ-2 {[#14]}
<MI 216cc MOVE.L (A6+0x8),-(A7)> Δ-4 {[#14]|[4, '(A6+0x8)']}
<Call 0x216d0 0x103b8> {[#14]|[4, '(A6+0x8)']}
PopProgram(status : Byte; msg : String)
<POP 216d6-216d8 StackAdj> Δ+6 {}
<POP 216d8-216dc Epilogue> Σ0
@ 216dc
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x003 @>
<LVAR -0x004 @ 1(r)>
<POP 216dc-21842 Body>
<POP 216dc-216f2 Prologue> Σ0 ↓
<POP 216f2-21708 RegCacheLoad> Σ0 ↓
<POP 21708-21710 Naked> Σ0 Δ-4 ↓
<MI 21708 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 2170c SUBQ.L #0x1,(A7)> {[-4-]}
<MI 2170e MOVEQ.L #0x00,D6> {[-4-]}
<POP 21710-21716 Naked> Σ-4 ↓ →0x21838 ←0x2182e
<MI 21710 CMP.L (A7),D6> {[-4-]}
<MI 21712 BGT 0x21838> {[-4-]}
<POP 21716-2172c Naked> Σ-4 ↓ →0x21744
<MI 21716 LEA.L 0x22b28,A0> {[-4-]}
<MI 2171c MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<MI 2171e CLR.W -(A7)> Δ-2 {[-4-]|[4, 'A0']|[#0]}
<Call 0x21720 0x1023c> {[-4-]|[4, 'A0']|[#0]}
KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word)
<POP 21726-21728 StackAdj> Δ+6 {[-4-]}
<MI 21728 TST.W 0x22b4e> {[-4-]}
<MI 2172a BEQ 0x21744> {[-4-]}
<POP 2172c-2173c Naked> Σ-4 ↓ →0x21744
<MI 2172c CLR.L D0> {[-4-]}
<MI 2172e MOVE.W 0x22b36,D0> {[-4-]}
<MI 21730 CLR.L D1> {[-4-]}
<MI 21732 MOVE.W 0x22b4e,D1> {[-4-]}
<MI 21734 ADD.L D0,D1> {[-4-]}
<MI 21736 MOVE.W D1,0x22b36> {[-4-]}
<MI 21738 TST.W D1> {[-4-]}
<MI 2173a BNE 0x21744> {[-4-]}
<POP 2173c-21744 Naked> Σ-4 ↓
<MI 2173c CLR.L D0> {[-4-]}
<MI 2173e MOVE.W 0x22b34,D0> {[-4-]}
<MI 21740 ADDQ.L #0x1,D0> {[-4-]}
<MI 21742 MOVE.W D0,0x22b34> {[-4-]}
<POP 21744-2175a Naked> Σ-4 ↓ ←0x21716 ←0x2172c
<MI 21744 CLR.L D0> {[-4-]}
<MI 21746 MOVE.W 0x22b34,D0> {[-4-]}
<MI 21748 CLR.L D1> {[-4-]}
<MI 2174a MOVE.W 0x22b4c,D1> {[-4-]}
<MI 21750 ADD.L D0,D1> {[-4-]}
<MI 21752 MOVE.W D1,0x22b34> {[-4-]}
<MI 21754 MOVE.L #0xfffffc18,D7> {[-4-]}
<POP 2175a-21778 Naked> Σ-4 ↓ →0x2177c ←0x21778
<MI 2175a LEA.L 0x22b38,A0> {[-4-]}
<MI 21760 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<MI 21762 CLR.W -(A7)> Δ-2 {[-4-]|[4, 'A0']|[#0]}
<Pointer.fp 0x21764 <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[4, 'A0']|[#0]|[@@-4]}
<Call 0x21768 0x1023e> {[-4-]|[4, 'A0']|[#0]|[@@-4]}
KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool)
<POP 2176e-21770 StackAdj> Δ+10 {[-4-]}
<MI 21770 ADDQ.L #0x1,D7> {[-4-]}
<MI 21772 TST.B (A6-0x4)> {[-4-]}
<MI 21776 BNE 0x2177c> {[-4-]}
<POP 21778-2177c Naked> Σ-4 ↓ →0x2175a
<MI 21778 TST.L D7> {[-4-]}
<MI 2177a BNE 0x2175a> {[-4-]}
<POP 2177c-21782 Naked> Σ-4 ↓ →0x217b0 ←0x2175a
<MI 2177c TST.B (A6-0x4)> {[-4-]}
<MI 21780 BNE 0x217b0> {[-4-]}
<POP 21782-217b0 Naked> Σ-4 ↓
<Blob 0x21782 [58] @> Δ-58 {[-4-]|[«58""»]}
<POP 21794-21796 StackAdj> Δ-4 {[-4-]|[«58""»]|[-4-]}
<Lit 0x21796 57> {[-4-]|[«58""»]|[$$No response from R1000. Probably due to a hardware error.]}
<Call 0x217a8 0x216aa> {[-4-]|[«58""»]|[$$No response from R1000. Probably due to a hardware error.]}
<POP 217ac-217b0 StackAdj> Δ+62 {[-4-]}
<POP 217b0-217ee Naked> Σ-4 ↓ →0x2182e ←0x2177c
<Blob 0x217b0 [4] 0x26cac> Δ-4 {[-4-]|[«4»]}
<MI 217b6 MOVE.L 0x22af4,D0> {[-4-]|[«4»]}
<MI 217bc ASL.L #0x8,D0> {[-4-]|[«4»]}
<MI 217be ASL.L #0x5,D0> {[-4-]|[«4»]}
<MI 217c0 LEA.L 0x22ae4,A0> {[-4-]|[«4»]}
<MI 217c6 MOVE.L 0x22afc,D1> {[-4-]|[«4»]}
<MI 217cc ASL.L #0x8,D1> {[-4-]|[«4»]}
<MI 217ce ASL.L #0x2,D1> {[-4-]|[«4»]}
<MI 217d0 LEA.L (A0+D0.L),A0> {[-4-]|[«4»]}
<MI 217d4 LEA.L (A0+D1.L+#0x72),A0> {[-4-]|[«4»]}
<MI 217d8 MOVE.L A0,-(A7)> Δ-4 {[-4-]|[«4»]|[4, 'A0']}
<Const 0x217da 0x400.2> Δ-2 {[-4-]|[«4»]|[4, 'A0']|[#1024]}
<Call 0x217de 0x10238> {[-4-]|[«4»]|[4, 'A0']|[#1024]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 217e4-217e6 StackAdj> Δ+10 {[-4-]}
<MI 217e6 MOVEA.L (A6+0x8),A0> {[-4-]}
<MI 217ea CMPA.W #0x01,A0> {[-4-]}
<MI 217ec BEQ 0x2182e> {[-4-]}
<POP 217ee-2182e Naked> Σ-4 ↓
<MI 217ee MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']}
<MI 217f0 MOVE.W D6,-(A7)> Δ-2 {[-4-]|[4, 'A0']|[2, 'D6']}
<MI 217f2 CLR.W -(A7)> Δ-2 {[-4-]|[4, 'A0']|[2, 'D6']|[#0]}
<Const 0x217f4 0x200.2> Δ-2 {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]}
<Const 0x217f8 0x2.2> Δ-2 {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 217fc MOVE.L 0x22af4,D0> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 21802 ASL.L #0x8,D0> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 21804 ASL.L #0x5,D0> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 21806 LEA.L 0x22ae4,A0> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 2180c MOVE.L 0x22afc,D1> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 21812 ASL.L #0x8,D1> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 21814 ASL.L #0x2,D1> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 21816 LEA.L (A0+D0.L),A0> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 2181a LEA.L (A0+D1.L+#0x72),A0> {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]}
<MI 2181e MOVE.L A0,-(A7)> Δ-4 {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]|[4, 'A0']}
<Pointer.fp 0x21820 <LVAR -0x003 @>> Δ-4 {[-4-]|[4, 'A0']|[2, 'D6']|[#0]|[#512]|[#2]|[4, 'A0']|[@@-3]}
<Call 0x21824 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 2182a-2182e StackAdj> Δ+20 {[-4-]}
<POP 2182e-21838 Naked> Σ-4 ↓ →0x21710 ←0x217b0
<Call 0x2182e 0x21300> {[-4-]}
<MI 21832 ADDQ.L #0x1,D6> {[-4-]}
<MI 21834 BVC 0x21710> {[-4-]}
<POP 21838-2183a Naked> Σ-4 Δ+4 ↓ ←0x21710
<POP 21838-2183a StackAdj> Δ+4 {}
<POP 2183a-21842 Epilogue> Σ0
@ 21842
<LVAR 0x00e 4(r)>
<LVAR 0x00c 2(r)>
<LVAR 0x00a 2(r)>
<POP 21842-218d6 Body>
<POP 21842-21858 Prologue> Σ0 ↓
<POP 21858-218ce Naked> Σ0 ↓
<MI 21858 MOVE.L (A6+0xe),-(A7)> Δ-4 {[4, '(A6+0xe)']}
<MI 2185c MOVE.W (A6+0xc),-(A7)> Δ-2 {[4, '(A6+0xe)']|[2, '(A6+0xc)']}
<Blob 0x21860 [4] 0x22b50> Δ-4 {[4, '(A6+0xe)']|[2, '(A6+0xc)']|[«4»]}
<Call 0x21866 0x2109e> {[4, '(A6+0xe)']|[2, '(A6+0xc)']|[«4»]}
<POP 2186a-2186e StackAdj> Δ+10 {}
<MI 2186e MOVE.W 0x22b0c,D0> {}
<MI 21874 EXTW.L D0> {}
<MI 21876 MOVE.L D0,D1> {}
<MI 21878 ASL.L #0x8,D1> {}
<MI 2187a ASL.L #0x4,D1> {}
<MI 2187c ADDQ.W #0x4,D0> {}
<MI 2187e EXTW.L D0> {}
<MI 21880 ASL.L #0x8,D0> {}
<MI 21882 ADD.L D1,D0> {}
<MI 21884 MOVE.W D0,0x22b28> {}
<MI 2188a CLR.W 0x22b2a> {}
<MI 21890 CLR.W 0x22b2c> {}
<MI 21896 MOVE.W (A6+0xa),0x22b2e> {}
<MI 2189e CLR.W 0x22b30> {}
<MI 218a4 CLR.W 0x22b32> {}
<MI 218aa CLR.W 0x22b34> {}
<MI 218b0 CLR.W 0x22b36> {}
<MI 218b6 CLR.W 0x22b48> {}
<MI 218bc CLR.W 0x22b4a> {}
<MI 218c2 CLR.W 0x22b4c> {}
<MI 218c8 CLR.W 0x22b4e> {}
<POP 218ce-218d6 Epilogue> Σ0
@ 218d6
<POP 218d6-2193e Body>
<POP 218d6-218ec Prologue> Σ0 ↓
<POP 218ec-218ee RegCacheLoad> Σ0 ↓
<POP 218ee-21936 Naked> Σ0 ↓
<Blob 0x218ee [20] @> Δ-20 {[«20""»]}
<POP 218fa-218fc StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x218fc 20> {[«20""»]|[$$CRASH_DUMP.REGISTERS]}
<POP 2190e-21910 StackAdj> Δ-2 {[«20""»]|[$$CRASH_DUMP.REGISTERS]|[-2-]}
<POP 21910-21911 StackAdj> Δ+2 {[«20""»]|[$$CRASH_DUMP.REGISTERS]}
<Const 0x21911 0x10.2> Δ-2 {[«20""»]|[$$CRASH_DUMP.REGISTERS]|[#16]}
<Const 0x21912 0x300.4> Δ-4 {[«20""»]|[$$CRASH_DUMP.REGISTERS]|[#16]|[##768]}
<Call 0x21916 0x21842> {[«20""»]|[$$CRASH_DUMP.REGISTERS]|[#16]|[##768]}
<POP 2191a-2191e StackAdj> Δ+30 {}
<MI 2191e MOVE.W #0x40,0x22b4e> {}
<Const 0x21926 0x10.4> Δ-4 {[##16]}
<Const 0x21928 0x1.4> Δ-4 {[##16]|[##1]}
<Call 0x2192c 0x216dc> {[##16]|[##1]}
<POP 21930-21932 StackAdj> Δ+8 {}
<Call 0x21932 0x2136e> {}
<POP 21936-2193e Epilogue> Σ0
@ 2193e
<POP 2193e-21a0a Body>
<POP 2193e-21954 Prologue> Σ0 ↓
<POP 21954-21996 Naked> Σ0 ↓
<Blob 0x21954 [20] @> Δ-20 {[«20""»]}
<POP 21960-21962 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21962 20> {[«20""»]|[$$CRASH_DUMP.TAG_STORE]}
<MI 21976 MOVE.W 0x22b1c,D0> {[«20""»]|[$$CRASH_DUMP.TAG_STORE]}
<MI 2197c LSR.W #0x7,D0> {[«20""»]|[$$CRASH_DUMP.TAG_STORE]}
<MI 2197e MOVE.W D0,-(A7)> Δ-2 {[«20""»]|[$$CRASH_DUMP.TAG_STORE]|[2, 'D0']}
<Const 0x21980 0x400.4> Δ-4 {[«20""»]|[$$CRASH_DUMP.TAG_STORE]|[2, 'D0']|[##1024]}
<Call 0x21984 0x21842> {[«20""»]|[$$CRASH_DUMP.TAG_STORE]|[2, 'D0']|[##1024]}
<POP 21988-2198c StackAdj> Δ+30 {}
<MI 2198c MOVE.W #0x10,0x22b4c> {}
<MI 21994 MOVEQ.L #0x00,D6> {}
<POP 21996-219a2 Naked> Σ0 ↓ →0x219f4 ←0x219f4
<MI 21996 LEA.L 0x22ae4,A0> {}
<MI 2199c TST.B (A0+D6.L+#0x2b)> {}
<MI 219a0 BEQ 0x219f4> {}
<POP 219a2-219ac Naked> Σ0 Δ-4 ↓
<Blob 0x219a2 [4] 0x22b20> Δ-4 {[«4»]}
<MI 219a8 SUBQ.L #0x1,(A7)> {[-4-]}
<MI 219aa MOVEQ.L #0x00,D7> {[-4-]}
<POP 219ac-219b0 Naked> Σ-4 ↓ →0x219f2 ←0x219b0
<MI 219ac CMP.L (A7),D7> {[-4-]}
<MI 219ae BGT 0x219f2> {[-4-]}
<POP 219b0-219f2 Naked> Σ-4 ↓ →0x219ac
<MI 219b0 CLR.W 0x22b30> {[-4-]}
<MI 219b6 MOVE.L D6,D0> {[-4-]}
<MI 219b8 ASL.L #0x2,D0> {[-4-]}
<MI 219ba ADD.L D7,D0> {[-4-]}
<MI 219bc ASL.L #0x4,D0> {[-4-]}
<MI 219be MOVE.W D0,0x22b32> {[-4-]}
<MI 219c4 CLR.W 0x22b34> {[-4-]}
<MI 219ca CLR.W 0x22b36> {[-4-]}
<MI 219d0 MOVE.L 0x22b14,D4> {[-4-]}
<MI 219d6 MOVE.L #0x80,D3> {[-4-]}
<Call 0x219dc 0x10294> {[-4-]}
?divs_d3_d4
<MI 219e2 MOVE.L D4,-(A7)> Δ-4 {[-4-]|[4, 'D4']}
<Const 0x219e4 0x1.4> Δ-4 {[-4-]|[4, 'D4']|[##1]}
<Call 0x219e8 0x216dc> {[-4-]|[4, 'D4']|[##1]}
<POP 219ec-219ee StackAdj> Δ+8 {[-4-]}
<MI 219ee ADDQ.L #0x1,D7> {[-4-]}
<MI 219f0 BVC 0x219ac> {[-4-]}
<POP 219f2-219f4 Naked> Σ-4 Δ+4 ↓ ←0x219ac
<POP 219f2-219f4 StackAdj> Δ+4 {}
<POP 219f4-219fe Naked> Σ0 ↓ →0x21996 ←0x21996
<MI 219f4 ADDQ.L #0x1,D6> {}
<MI 219f6 CMPI.L #0x00000003,D6> {}
<MI 219fc BLE 0x21996> {}
<POP 219fe-21a02 Naked> Σ0 ↓
<Call 0x219fe 0x2136e> {}
<POP 21a02-21a0a Epilogue> Σ0
@ 21a0a
<POP 21a0a-21af2 Body> Δ-4
<POP 21a0a-21a20 Prologue> Σ0 ↓
<POP 21a20-21a70 Naked> Σ0 ↓
<Blob 0x21a20 [18] @> Δ-18 {[«18""»]}
<POP 21a32-21a34 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21a34 17> {[«18""»]|[$$CRASH_DUMP.MEMORY]}
<POP 21a46-21a48 StackAdj> Δ-2 {[«18""»]|[$$CRASH_DUMP.MEMORY]|[-2-]}
<POP 21a48-21a49 StackAdj> Δ+2 {[«18""»]|[$$CRASH_DUMP.MEMORY]}
<Blob 0x21a49 [2] 0x22b1c> Δ-2 {[«18""»]|[$$CRASH_DUMP.MEMORY]|[«2»]}
<Const 0x21a4e 0x500.4> Δ-4 {[«18""»]|[$$CRASH_DUMP.MEMORY]|[«2»]|[##1280]}
<Call 0x21a52 0x21842> {[«18""»]|[$$CRASH_DUMP.MEMORY]|[«2»]|[##1280]}
<POP 21a56-21a5a StackAdj> Δ+28 {}
<MI 21a5a MOVE.W #0x2000,0x22b4e> {}
<Const 0x21a62 0x20.2> Δ-2 {[#32]}
<Call 0x21a66 0x103d0> {[#32]}
WriteConsoleChar(chr : char)
<POP 21a6c-21a6e StackAdj> Δ+2 {}
<MI 21a6e MOVEQ.L #0x00,D6> {}
<POP 21a70-21a7c Naked> Σ0 ↓ →0x21adc ←0x21adc
<MI 21a70 LEA.L 0x22ae4,A0> {}
<MI 21a76 TST.B (A0+D6.L+#0x2b)> {}
<MI 21a7a BEQ 0x21adc> {}
<POP 21a7c-21a86 Naked> Σ0 Δ-4 ↓
<Blob 0x21a7c [4] 0x22b20> Δ-4 {[«4»]}
<MI 21a82 SUBQ.L #0x1,(A7)> {[-4-]}
<MI 21a84 MOVEQ.L #0x00,D7> {[-4-]}
<POP 21a86-21a8a Naked> Σ-4 ↓ →0x21ada ←0x21ad6
<MI 21a86 CMP.L (A7),D7> {[-4-]}
<MI 21a88 BGT 0x21ada> {[-4-]}
<POP 21a8a-21ad2 Naked> Σ-4 ↓ →0x21ad6
<MI 21a8a MOVE.L D6,D0> {[-4-]}
<MI 21a8c ASL.L #0x2,D0> {[-4-]}
<MI 21a8e ADD.L D7,D0> {[-4-]}
<MI 21a90 LEA.L 0x2015a,A0> {[-4-]}
<MI 21a94 MOVE.B (A0+D0.L),-(A7)> Δ-2 {[-4-]|[2, '(A0+D0.L)']}
<Call 0x21a98 0x103d0> {[-4-]|[2, '(A0+D0.L)']}
WriteConsoleChar(chr : char)
<POP 21a9e-21aa0 StackAdj> Δ+2 {[-4-]}
<MI 21aa0 CLR.W 0x22b30> {[-4-]}
<MI 21aa6 ASL.L #0x4,D0> {[-4-]}
<MI 21aa8 MOVE.W D0,0x22b32> {[-4-]}
<MI 21aae CLR.W 0x22b34> {[-4-]}
<MI 21ab4 CLR.W 0x22b36> {[-4-]}
<Blob 0x21aba [4] 0x22b14> Δ-4 {[-4-]|[«4»]}
<Const 0x21ac0 0x1.4> Δ-4 {[-4-]|[«4»]|[##1]}
<Call 0x21ac4 0x216dc> {[-4-]|[«4»]|[##1]}
<POP 21ac8-21aca StackAdj> Δ+8 {[-4-]}
<MI 21aca TST.B 0x22aec> {[-4-]}
<MI 21ad0 BEQ 0x21ad6> {[-4-]}
<POP 21ad2-21ad6 Naked> Σ-4 Δ+4 →0x21ae6
<POP 21ad2-21ad4 StackAdj> Δ+4 {}
<MI 21ad4 BRA 0x21ae6> {}
<POP 21ad6-21ada Naked> Σ-4 ↓ →0x21a86 ←0x21a8a
<MI 21ad6 ADDQ.L #0x1,D7> {[-4-]}
<MI 21ad8 BVC 0x21a86> {[-4-]}
<POP 21ada-21adc Naked> Σ-4 Δ+4 ↓ ←0x21a86
<POP 21ada-21adc StackAdj> Δ+4 {}
<POP 21adc-21ae6 Naked> Σ0 ↓ →0x21a70 ←0x21a70
<MI 21adc ADDQ.L #0x1,D6> {}
<MI 21ade CMPI.L #0x00000003,D6> {}
<MI 21ae4 BLE 0x21a70> {}
<POP 21ae6-21aea Naked> Σ0 ↓ ←0x21ad2
<Call 0x21ae6 0x2136e> {}
<POP 21aea-21af2 Epilogue> Σ0
@ 21af2
<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 21af2-21ca4 Body>
<POP 21af2-21b08 Prologue> Σ0 ↓
<POP 21b08-21b1c RegCacheLoad> Σ0 ↓
<POP 21b1c-21be6 Naked> Σ0 ↓
<Blob 0x21b1c [2] @> Δ-2 {[«2""»]}
<POP 21b20-21b22 StackAdj> Δ-4 {[«2""»]|[-4-]}
<MI 21b22 MOVE.L (A6+0x14),-(A7)> Δ-4 {[«2""»]|[-4-]|[4, '(A6+0x14)']}
<POP 21b26-21b28 StackAdj> Δ-4 {[«2""»]|[-4-]|[4, '(A6+0x14)']|[-4-]}
<Lit 0x21b28 2> {[«2""»]|[-4-]|[4, '(A6+0x14)']|[$$ (]}
<Call 0x21b34 0x102d0> {[«2""»]|[-4-]|[4, '(A6+0x14)']|[$$ (]}
StringCat2(a, b : String) : String
<POP 21b36-21b38 StackAdj> Δ+8 {[«2""»]|[-4-]}
<MI 21b38 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«2""»]}
<POP 21b3a-21b3c StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 21b3c MOVE.L (A6-0x10),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6-0x10)']}
<POP 21b3e-21b40 StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]}
<MI 21b40 MOVE.L (A6+0x10),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]|[4, '(A6+0x10)']}
<Call 0x21b44 0x102e4> {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]|[4, '(A6+0x10)']}
Long2String(a : Long) : String
<POP 21b4a-21b4c StackAdj> Δ+4 {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]}
<Call 0x21b4c 0x102d0> {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]}
StringCat2(a, b : String) : String
<POP 21b4e-21b50 StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 21b50 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<Blob 0x21b52 [2] @> Δ-2 {[«2""»]}
<POP 21b56-21b58 StackAdj> Δ-4 {[«2""»]|[-4-]}
<MI 21b58 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«2""»]|[-4-]|[4, '(A6-0x10)']}
<POP 21b5a-21b5c StackAdj> Δ-4 {[«2""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x21b5c 2> {[«2""»]|[-4-]|[4, '(A6-0x10)']|[$$..]}
<Call 0x21b68 0x102d0> {[«2""»]|[-4-]|[4, '(A6-0x10)']|[$$..]}
StringCat2(a, b : String) : String
<POP 21b6a-21b6c StackAdj> Δ+8 {[«2""»]|[-4-]}
<MI 21b6c MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«2""»]}
<POP 21b6e-21b70 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 21b70 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6-0x10)']}
<POP 21b72-21b74 StackAdj> Δ-4 {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]}
<MI 21b74 MOVE.L (A6+0xc),-(A7)> Δ-4 {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]|[4, '(A6+0xc)']}
<Call 0x21b78 0x102e4> {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]|[4, '(A6+0xc)']}
Long2String(a : Long) : String
<POP 21b7e-21b80 StackAdj> Δ+4 {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]}
<Call 0x21b80 0x102d0> {[«2""»]|[-2-]|[4, '(A6-0x10)']|[-4-]}
StringCat2(a, b : String) : String
<POP 21b82-21b84 StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 21b84 MOVE.L (A7),(A6-0x10)> {[«2""»]|[-2-]}
<POP 21b86-21b87 StackAdj> Δ+2 {[«2""»]}
<Blob 0x21b87 [2] @> Δ-2 {[«2""»]|[«2""»]}
<MI 21b8a MOVE.B 0x2032f,(A7+0x1)> {[«2""»]|[«2""»]}
<MI 21b90 MOVE.B 0x20330,(A7+0x2)> {[«2""»]|[«2""»]}
<POP 21b96-21b98 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]}
<MI 21b98 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«2""»]|[«2""»]|[-4-]|[4, '(A6-0x10)']}
<POP 21b9a-21b9c StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x21b9c 3> {[«2""»]|[«2""»]|[-4-]|[4, '(A6-0x10)']|[$$) .]}
<Call 0x21baa 0x102d0> {[«2""»]|[«2""»]|[-4-]|[4, '(A6-0x10)']|[$$) .]}
StringCat2(a, b : String) : String
<POP 21bac-21bae StackAdj> Δ+8 {[«2""»]|[«2""»]|[-4-]}
<MI 21bae MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«2""»]|[«2""»]}
<MI 21bb0 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«2""»]|[«2""»]|[4, '(A6-0x10)']}
<POP 21bb2-21bb4 StackAdj> Δ-4 {[«2""»]|[«2""»]|[4, '(A6-0x10)']|[-4-]}
<MI 21bb4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«2""»]|[«2""»]|[4, '(A6-0x10)']|[-4-]|[4, '(A6+0x8)']}
<Call 0x21bb8 0x102e4> {[«2""»]|[«2""»]|[4, '(A6-0x10)']|[-4-]|[4, '(A6+0x8)']}
Long2String(a : Long) : String
<POP 21bbe-21bc0 StackAdj> Δ+4 {[«2""»]|[«2""»]|[4, '(A6-0x10)']|[-4-]}
<Call 0x21bc0 0x102d0> {[«2""»]|[«2""»]|[4, '(A6-0x10)']|[-4-]}
StringCat2(a, b : String) : String
<POP 21bc2-21bc4 StackAdj> Δ+8 {[«2""»]|[«2""»]}
<MI 21bc4 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<Blob 0x21bc6 [4] @> Δ-4 {[«4""»]}
<POP 21bca-21bcc StackAdj> Δ-4 {[«4""»]|[-4-]}
<MI 21bcc MOVE.L (A6-0x10),-(A7)> Δ-4 {[«4""»]|[-4-]|[4, '(A6-0x10)']}
<POP 21bce-21bd0 StackAdj> Δ-4 {[«4""»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x21bd0 4> {[«4""»]|[-4-]|[4, '(A6-0x10)']|[$$] ?_]}
<Call 0x21bde 0x102d0> {[«4""»]|[-4-]|[4, '(A6-0x10)']|[$$] ?_]}
StringCat2(a, b : String) : String
<POP 21be0-21be2 StackAdj> Δ+8 {[«4""»]|[-4-]}
<MI 21be2 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«4""»]}
<POP 21be4-21be6 StackAdj> Δ+4 {}
<POP 21be6-21c06 Naked> Σ0 ↓ →0x21c1e ←0x21c86
<POP 21be6-21be8 StackAdj> Δ-8 {[-8-]}
<MI 21be8 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x10)']}
<Call 0x21bea 0x102cc> {[-8-]|[4, '(A6-0x10)']}
StringDup(a : String) : String
<POP 21bf0-21bf2 StackAdj> Δ+4 {[-8-]}
<Call 0x21bf2 0x103e4> {[-8-]}
AskConsoleString(prompt : String) : String
<POP 21bf8-21bfa StackAdj> Δ+4 {[-4-]}
<MI 21bfa MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 21bfe MOVEA.L (A6-0xc),A0> {}
<MI 21c02 TST.W (A0)> {}
<MI 21c04 BEQ 0x21c1e> {}
<POP 21c06-21c1e Naked> Σ0 →0x21c34
<MI 21c06 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Pointer.fp 0x21c0a <LVAR -0x004 @ 1(rw)>> Δ-4 {[4, '(A6-0xc)']|[@@-4]}
<Pointer.fp 0x21c0e <LVAR -0x008 @ 4(rw)>> Δ-4 {[4, '(A6-0xc)']|[@@-4]|[@@-8]}
<Call 0x21c12 0x102ec> {[4, '(A6-0xc)']|[@@-4]|[@@-8]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 21c18-21c1c StackAdj> Δ+12 {}
<MI 21c1c BRA 0x21c34> {}
<POP 21c1e-21c34 Naked> Σ0 ↓ ←0x21be6
<MI 21c1e MOVE.L (A6+0x8),(A6-0x8)> {}
<MI 21c24 MOVE.B #0x01,(A6-0x4)> {}
<Pointer.fp 0x21c28 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x21c2c 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 21c32-21c34 StackAdj> Δ+4 {}
<POP 21c34-21c3c Naked> Σ0 ↓ →0x21c52 ←0x21c06
<MI 21c34 MOVEQ.L #0x00,D0> {}
<MI 21c36 TST.B (A6-0x4)> {}
<MI 21c3a BEQ 0x21c52> {}
<POP 21c3c-21c46 Naked> Σ0 ↓ →0x21c52
<MI 21c3c MOVE.L (A6-0x8),D1> {}
<MI 21c40 CMP.L (A6+0x10),D1> {}
<MI 21c44 BLT 0x21c52> {}
<POP 21c46-21c50 Naked> Σ0 ↓ →0x21c52
<MI 21c46 MOVE.L (A6-0x8),D1> {}
<MI 21c4a CMP.L (A6+0xc),D1> {}
<MI 21c4e BGT 0x21c52> {}
<POP 21c50-21c52 Naked> Σ0 ↓
<MI 21c50 ADDQ.B #0x1,D0> {}
<POP 21c52-21c5a Naked> Σ0 ↓ →0x21c86 ←0x21c34 ←0x21c3c ←0x21c46
<MI 21c52 MOVE.B D0,(A6-0x4)> {}
<MI 21c56 TST.B D0> {}
<MI 21c58 BNE 0x21c86> {}
<POP 21c5a-21c86 Naked> Σ0 ↓
<Blob 0x21c5a [52] @> Δ-52 {[«52""»]}
<POP 21c6c-21c6e StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x21c6e 51> {[«52""»]|[$$Decimal input expected: bad syntax, or out of range]}
<Call 0x21c7c 0x103e0> {[«52""»]|[$$Decimal input expected: bad syntax, or out of range]}
WriteConsoleStringCrLf(str : String)
<POP 21c82-21c86 StackAdj> Δ+56 {}
<POP 21c86-21c8c Naked> Σ0 ↓ →0x21be6 ←0x21c52
<MI 21c86 TST.B D0> {}
<MI 21c88 BEQ 0x21be6> {}
<POP 21c8c-21c9c Naked> Σ0 ↓
<Pointer.fp 0x21c8c <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x21c8e 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 21c94-21c96 StackAdj> Δ+4 {}
<MI 21c96 MOVE.L (A6-0x8),(A6+0x18)> {}
<POP 21c9c-21ca4 Epilogue> Σ0
@ 21ca4
<POP 21ca4-21dd4 Body>
<POP 21ca4-21cba Prologue> Σ0 ↓
<POP 21cba-21cd4 RegCacheLoad> Σ0 ↓
<POP 21cd4-21d7c Naked> Σ0 ↓ →0x21d86
<MI 21cd4 CLR.B 0x22aed> {}
<MI 21cda CLR.B 0x22aee> {}
<Const 0x21ce0 0x22b50.4> Δ-4 {[##142160]}
<Call 0x21ce6 0x10304> {[##142160]}
GetRtc() : TimeStamp
<POP 21cec-21cee StackAdj> Δ+4 {}
<MI 21cee CLR.B 0x22b0e> {}
<MI 21cf4 CLR.W 0x22b00> {}
<MI 21cfa CLR.B 0x22b03> {}
<MI 21d00 CLR.B 0x22b02> {}
<MI 21d06 MOVE.L #0x04,0x22b04> {}
<Const 0x21d0c 0x1.4> Δ-4 {[##1]}
<Call 0x21d10 0x104d8> {[##1]}
ExpInit(a : Long)
<POP 21d16-21d18 StackAdj> Δ+2 {[-2-]}
<MI 21d18 CLR.B (A7)> {[-2-]}
<Call 0x21d1a 0x104d2> {[-2-]}
SetExpInitDone(a : Byte)
<POP 21d20-21d22 StackAdj> Δ+2 {}
<MI 21d22 CLR.W 0x22b0c> {}
<POP 21d28-21d2a StackAdj> Δ-2 {[-2-]}
<Const 0x21d2a 0xc.2> Δ-2 {[-2-]|[#12]}
<Call 0x21d2e 0x104c0> {[-2-]|[#12]}
HasBoard(diproc_addr: Byte) : Byte
<POP 21d34-21d36 StackAdj> Δ+2 {[-2-]}
<MI 21d36 MOVE.B (A7),0x22b0f> {[-2-]}
<Const 0x21d3c 0xd.2> Δ-2 {[-2-]|[#13]}
<Call 0x21d40 0x104c0> {[-2-]|[#13]}
HasBoard(diproc_addr: Byte) : Byte
<POP 21d46-21d48 StackAdj> Δ+2 {[-2-]}
<MI 21d48 MOVE.B (A7),0x22b10> {[-2-]}
<Const 0x21d4e 0xe.2> Δ-2 {[-2-]|[#14]}
<Call 0x21d52 0x104c0> {[-2-]|[#14]}
HasBoard(diproc_addr: Byte) : Byte
<POP 21d58-21d5a StackAdj> Δ+2 {[-2-]}
<MI 21d5a MOVE.B (A7),0x22b11> {[-2-]}
<Const 0x21d60 0xf.2> Δ-2 {[-2-]|[#15]}
<Call 0x21d64 0x104c0> {[-2-]|[#15]}
HasBoard(diproc_addr: Byte) : Byte
<POP 21d6a-21d6c StackAdj> Δ+2 {[-2-]}
<MI 21d6c MOVE.B (A7),0x22b12> {[-2-]}
<Call 0x21d72 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 21d78 TST.B (A7)+> Δ+2 {}
<MI 21d7a BEQ 0x21d86> {}
<POP 21d7c-21d86 Naked> Σ0 →0x21d92
<MI 21d7c MOVE.L #0x800,0x22b14> {}
<MI 21d82 MOVE.L #0x04,0x22b20> {}
<MI 21d84 BRA 0x21d92> {}
<POP 21d86-21d92 Naked> Σ0 ↓ ←0x21cd4
<MI 21d86 MOVE.L #0x1000,0x22b14> {}
<MI 21d8c MOVE.L #0x8,0x22b20> {}
<POP 21d92-21d98 Naked> Σ0 ↓ ←0x21d7c
<MI 21d92 CLR.L 0x22b18> {}
<MI 21d94 CLR.W 0x22b1e> {}
<MI 21d96 MOVEQ.L #0x00,D7> {}
<POP 21d98-21da4 Naked> Σ0 ↓ →0x21db2 ←0x21db2
<MI 21d98 LEA.L 0x22ae4,A0> {}
<MI 21d9e TST.B (A0+D7.L+#0x2b)> {}
<MI 21da2 BEQ 0x21db2> {}
<POP 21da4-21db2 Naked> Σ0 ↓
<MI 21da4 MOVE.L 0x22b18,D0> {}
<MI 21da6 ADD.L 0x22b20,D0> {}
<MI 21da8 MOVE.L D0,0x22b18> {}
<MI 21daa CLR.L D0> {}
<MI 21dac MOVE.W 0x22b1e,D0> {}
<MI 21dae ADDQ.L #0x1,D0> {}
<MI 21db0 MOVE.W D0,0x22b1e> {}
<POP 21db2-21dbc Naked> Σ0 ↓ →0x21d98 ←0x21d98
<MI 21db2 ADDQ.L #0x1,D7> {}
<MI 21db4 CMPI.L #0x00000003,D7> {}
<MI 21dba BLE 0x21d98> {}
<POP 21dbc-21dcc Naked> Σ0 ↓
<MI 21dbc MOVE.L 0x22b14,D4> {}
<MI 21dbe MOVE.L 0x22b18,D3> {}
<Call 0x21dc0 0x1028c> {}
?muls_d3_d4
<MI 21dc6 MOVE.W D4,0x22b1c> {}
<POP 21dcc-21dd4 Epilogue> Σ0
@ 21dd4
<LVAR -0x004 @>
<LVAR -0x00c @ 4(rw)>
<POP 21dd4-22116 Body> Δ+8
<POP 21dd4-21dea Prologue> Σ0 ↓
<POP 21dea-21dfc RegCacheLoad> Σ0 ↓
<POP 21dfc-21e58 Naked> Σ0 ↓ →0x21e64 ←0x21e64
<Blob 0x21dfc [4] @> Δ-4 {[«4""»]}
<Blob 0x21e00 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x21e04 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x21e08 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 21e0c-21e0e StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x21e0e 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Tape unit number]}
<Const 0x21e1a 0x0.4> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Tape unit number]|[##0]}
<Const 0x21e1e 0x3.4> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Tape unit number]|[##0]|[##3]}
<MI 21e22 MOVE.W 0x22b00,D0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Tape unit number]|[##0]|[##3]}
<MI 21e28 EXTW.L D0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Tape unit number]|[##0]|[##3]}
<MI 21e2a MOVE.L D0,-(A7)> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Tape unit number]|[##0]|[##3]|[4, 'D0']}
<Call 0x21e2c 0x21af2> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$Tape unit number]|[##0]|[##3]|[4, 'D0']}
<POP 21e30-21e32 StackAdj> Δ+16 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 21e32 MOVE.W (A7+0x2),0x22b00> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<POP 21e3a-21e3e StackAdj> Δ+18 {[-2-]}
<POP 21e3e-21e3f StackAdj> Δ+2 {}
<Blob 0x21e3f [2] 0x22b00> Δ-2 {[«2»]}
<Const 0x21e44 0x1.2> Δ-2 {[«2»]|[#1]}
<Const 0x21e46 0x1.2> Δ-2 {[«2»]|[#1]|[#1]}
<Const 0x21e48 0x22b54.4> Δ-4 {[«2»]|[#1]|[#1]|[##142164]}
<Call 0x21e4a 0x1040c> {[«2»]|[#1]|[#1]|[##142164]}
FSCALL_1040c
<POP 21e50-21e54 StackAdj> Δ+10 {}
<MI 21e54 TST.B 0x22b54> {}
<MI 21e56 BEQ 0x21e64> {}
<POP 21e58-21e64 Naked> Σ0 ↓
<Const 0x21e58 0x1.2> Δ-2 {[#1]}
<Const 0x21e5a 0x22b54.4> Δ-4 {[#1]|[##142164]}
<Call 0x21e5c 0x10428> {[#1]|[##142164]}
FSCALL_10428
<POP 21e62-21e64 StackAdj> Δ+6 {}
<POP 21e64-21e68 Naked> Σ0 ↓ →0x21dfc ←0x21dfc
<MI 21e64 TST.B 0x22b54> {}
<MI 21e66 BNE 0x21dfc> {}
<POP 21e68-21eac Naked> Σ0 ↓ →0x21eb6
<Blob 0x21e68 [34] @> Δ-34 {[«34""»]}
<POP 21e7a-21e7c StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x21e7c 33> {[«34""»]|[$$Tape drive density appears to be_]}
<Call 0x21e8a 0x103d8> {[«34""»]|[$$Tape drive density appears to be_]}
WriteConsoleString(str : String)
<POP 21e90-21e94 StackAdj> Δ+36 {[-2-]}
<Call 0x21e94 0x20834> {[-2-]}
<MI 21e98 MOVE.B (A7)+,0x22b02> Δ+2 {}
<MI 21e9e NEG.B 0x22b02> {}
<MI 21ea4 ADDQ.B #0x1,0x22b02> {}
<MI 21eaa BEQ 0x21eb6> {}
<POP 21eac-21eb6 Naked> Σ0 Δ-8 →0x21ebe
<Blob 0x21eac [4] @> Δ-4 {[«4""»]}
<Blob 0x21eb0 [4] @> Δ-4 {[«4""»]|[«4""»]}
<MI 21eb4 BRA 0x21ebe> {[«4""»]|[«4""»]}
<POP 21eb6-21ebe Naked> Σ0 Δ-8 ↓ ←0x21e68
<Blob 0x21eb6 [4] @> Δ-4 {[«4""»]}
<Blob 0x21eba [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 21ebe-21f0e Naked> Σ-8 Δ+8 ↓ ←0x21eac
<POP 21ebe-21ec0 StackAdj> Δ-4 {[-12-]}
<Lit 0x21ec0> {[-8-]|[$$…]}
<Pointer.sp 0x21ec0 4> Δ-4
<Const 0x21ec4 0x1.2> Δ-2
<Const 0x21ec6 0x8.2> Δ-2
<Call 0x21eca 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21ecc-21ece StackAdj> Δ+8
<Call 0x21ece 0x103d8> {[-8-]|[$$…]}
WriteConsoleString(str : String)
<POP 21ed4-21ed6 StackAdj> Δ+12 {}
<Blob 0x21ed6 [34] @> Δ-34 {[«34""»]}
<POP 21ee8-21eea StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x21eea 33> {[«34""»]|[$$, you can manually change it now.]}
<Call 0x21ef8 0x103e0> {[«34""»]|[$$, you can manually change it now.]}
WriteConsoleStringCrLf(str : String)
<POP 21efe-21f02 StackAdj> Δ+38 {}
<Pointer.fp 0x21f02 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x21f06 0x102b8> {[@@-12]}
NewString(VAR a : String)
<POP 21f0c-21f0e StackAdj> Δ+4 {}
<POP 21f0e-21f5a Naked> Σ0 ↓ →0x21f0e ←0x21f0e ←0x21f5a
<Pointer.fp 0x21f0e <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x21f12 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 21f18-21f19 StackAdj> Δ+4 ↓ {}
<Blob 0x21f19 [32] @> Δ-32 {[«32""»]}
<POP 21f2a-21f2c StackAdj> Δ-12 {[«32""»]|[-12-]}
<Lit 0x21f2c 31> {[«32""»]|[-8-]|[$$Volume Id, (1..6 characters) ?_]}
<Call 0x21f3a 0x103e4> {[«32""»]|[-8-]|[$$Volume Id, (1..6 characters) ?_]}
AskConsoleString(prompt : String) : String
<POP 21f40-21f42 StackAdj> Δ+4 {[«32""»]|[-8-]}
<Call 0x21f42 0x102f0> {[«32""»]|[-8-]}
ToUpper(a : String) : String
<POP 21f48-21f4a StackAdj> Δ+4 {[«32""»]|[-4-]}
<MI 21f4a MOVE.L (A7)+,(A6-0xc)> Δ+4 {[«32""»]}
<POP 21f4e-21f52 StackAdj> Δ+32 {}
<MI 21f52 MOVEA.L (A6-0xc),A0> {}
<MI 21f56 TST.W (A0)> {}
<MI 21f58 BLE 0x21f0e> {}
<POP 21f5a-21f62 Naked> Σ0 ↓ →0x21f0e
<MI 21f5a MOVE.W (A0),D0> {}
<MI 21f5c CMPI.W #0x0006,D0> {}
<MI 21f60 BGT 0x21f0e> {}
<POP 21f62-21f80 Naked> Σ0 Δ-4 ↓
<MI 21f62 MOVE.W 0x203ba,0x26c96> {}
<MI 21f6a MOVE.W 0x203bc,0x26c98> {}
<MI 21f72 MOVE.W 0x203be,0x26c9a> {}
<MI 21f7a EXTW.L D0> {}
<MI 21f7c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21f7e MOVEQ.L #0x01,D7> {[4, 'D0']}
<POP 21f80-21f84 Naked> Σ-4 ↓ →0x21f9c ←0x21f84
<MI 21f80 CMP.L (A7),D7> {[-4-]}
<MI 21f82 BGT 0x21f9c> {[-4-]}
<POP 21f84-21f9c Naked> Σ-4 ↓ →0x21f80
<MI 21f84 LEA.L 0x22ae4,A0> {[-4-]}
<MI 21f8a LEA.L (A0+D7.L),A0> {[-4-]}
<MI 21f8e MOVEA.L (A6-0xc),A1> {[-4-]}
<MI 21f92 MOVE.B (A1+D7.L+#0x1),(A0+0x41b1)> {[-4-]}
<MI 21f98 ADDQ.L #0x1,D7> {[-4-]}
<MI 21f9a BVC 0x21f80> {[-4-]}
<POP 21f9c-21fbc Naked> Σ-4 Δ+4 ↓ ←0x21f80
<POP 21f9c-21f9e StackAdj> Δ+4 {}
<Pointer.fp 0x21f9e <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x21fa2 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 21fa8-21faa StackAdj> Δ+4 {}
<MI 21faa CLR.B 0x22aec> {}
<MI 21fb0 LEA.L 0x203c0,A0> {}
<MI 21fb4 LEA.L 0x26c96,A1> {}
<MI 21fba MOVEQ.L #0x02,D0> {}
<POP 21fbc-21fc2 Naked> Σ0 ↓ →0x21fbc ←0x21fbc
<MI 21fbc CMPM.W (A0)+,(A1)+> {}
<MI 21fbe DBNE D0,0x21fbc> {}
<POP 21fc2-21fc4 Naked> Σ0 ↓ →0x21fca
<MI 21fc2 BNE 0x21fca> {}
<POP 21fc4-21fca Naked> Σ0 ↓
<MI 21fc4 ADDQ.B #0x1,0x22aec> {}
<POP 21fca-21fd2 Naked> Σ0 ↓ →0x2200c ←0x21fc2
<MI 21fca TST.B 0x22b0e> {}
<MI 21fd0 BEQ 0x2200c> {}
<POP 21fd2-2200c Naked> Σ0 ↓
<Blob 0x21fd2 [30] @> Δ-30 {[«30""»]}
<POP 21fde-21fe0 StackAdj> Δ-8 {[«30""»]|[-8-]}
<Lit 0x21fe0 30> {[«30""»]|[-4-]|[$$Number of pages per tape block]}
<Const 0x21fee 0x1.4> Δ-4 {[«30""»]|[-4-]|[$$Number of pages per tape block]|[##1]}
<Const 0x21ff2 0x8.4> Δ-4 {[«30""»]|[-4-]|[$$Number of pages per tape block]|[##1]|[##8]}
<Blob 0x21ff6 [4] 0x22b04> Δ-4 {[«30""»]|[-4-]|[$$Number of pages per tape block]|[##1]|[##8]|[«4»]}
<Call 0x21ffc 0x21af2> {[«30""»]|[-4-]|[$$Number of pages per tape block]|[##1]|[##8]|[«4»]}
<POP 22000-22002 StackAdj> Δ+16 {[«30""»]|[-4-]}
<MI 22002 MOVE.L (A7)+,0x22b04> Δ+4 {[«30""»]}
<POP 22008-2200c StackAdj> Δ+30 {}
<POP 2200c-2202e Naked> Σ0 ↓ →0x2210e ←0x21fca
<MI 2200c MOVE.L #0x400,D4> {}
<MI 22012 MOVE.L 0x22b04,D3> {}
<Call 0x22018 0x1028c> {}
?muls_d3_d4
<MI 2201e MOVE.L D4,0x22b08> {}
<MI 22024 TST.B 0x22aee> {}
<MI 2202a BNE 0x2210e> {}
<POP 2202e-2210e Naked> Σ0 ↓
<Blob 0x2202e [76] @> Δ-76 {[«76""»]}
<POP 22040-22042 StackAdj> Δ-4 {[«76""»]|[-4-]}
<Lit 0x22042 75> {[«76""»]|[$$Please enter any comments or information that may help isolate or reproduce]}
<Call 0x22050 0x103e0> {[«76""»]|[$$Please enter any comments or information that may help isolate or reproduce]}
WriteConsoleStringCrLf(str : String)
<POP 22056-22057 StackAdj> Δ+80 ↓ {}
<Blob 0x22057 [74] @> Δ-74 {[«74""»]}
<POP 22066-22068 StackAdj> Δ-4 {[«74""»]|[-4-]}
<Lit 0x22068 73> {[«74""»]|[$$this problem. To terminate the comment, enter a ")" on a line by itself.]}
<Call 0x22076 0x103e0> {[«74""»]|[$$this problem. To terminate the comment, enter a ")" on a line by itself.]}
WriteConsoleStringCrLf(str : String)
<POP 2207c-2207d StackAdj> Δ+78 ↓ {}
<Blob 0x2207d [20] @> Δ-20 {[«20""»]}
<POP 2208e-22090 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x22090 19> {[«20""»]|[$$CRASH_DUMP.COMMENTS]}
<MI 2209e MOVEA.L (A7)+,A4> Δ+4 {[«20""»]}
<POP 220a0-220a2 StackAdj> Δ+16 {[-4-]}
<MI 220a2 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x220a4 0x214c8> {[4, 'A4']}
<POP 220a8-220a9 StackAdj> Δ+4 {}
<Blob 0x220a9 [4] @> Δ-4 {[«4""»]}
<Blob 0x220ac [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x220b0 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x220b4 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 220b8-220ba StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x220ba 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$CREATE/SIZE=4/I,]}
<POP 220c4-220c6 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$CREATE/SIZE=4/I,]|[-4-]}
<MI 220c6 MOVE.L A4,(A7)> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$CREATE/SIZE=4/I,]|[4, 'A4']}
<Call 0x220c8 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$CREATE/SIZE=4/I,]|[4, 'A4']}
StringCat2(a, b : String) : String
<POP 220ce-220d0 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<MI 220d0 MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 220d2-220d4 StackAdj> Δ+12 {[«4""»]}
<POP 220d4-220d5 StackAdj> Δ+2 {[-2-]}
<Blob 0x220d5 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 220d8 MOVE.B 0x2048b,(A7+0x1)> {[-2-]|[«2""»]}
<MI 220de MOVE.B 0x2048c,(A7+0x2)> {[-2-]|[«2""»]}
<POP 220e4-220e6 StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x220e6> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x220e6 4> Δ-4
<Const 0x220ea 0x1.2> Δ-2
<Const 0x220ec 0x3.2> Δ-2
<Call 0x220f0 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 220f2-220f4 StackAdj> Δ+8
<POP 220f2-220f4 StackAdj> Δ-4 {[-2-]|[«2""»]|[$$…]|[-4-]}
<MI 220f4 MOVE.L A4,(A7)> {[-2-]|[«2""»]|[$$…]|[4, 'A4']}
<Const 0x220f6 0x2.2> Δ-2 {[-2-]|[«2""»]|[$$…]|[4, 'A4']|[#2]}
<Pointer.fp 0x220fa <LVAR -0x004 @>> Δ-4 {[-2-]|[«2""»]|[$$…]|[4, 'A4']|[#2]|[@@-4]}
<Call 0x220fe 0x103b0> {[-2-]|[«2""»]|[$$…]|[4, 'A4']|[#2]|[@@-4]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 22104-22108 StackAdj> Δ+18 {}
<MI 22108 MOVE.B #0x01,0x22aee> {}
<POP 2210e-22116 Epilogue> Σ0 ←0x2200c
@ 22116
<POP 22116-221ae Body>
<POP 22116-2212c Prologue> Σ0 ↓
<POP 2212c-22144 RegCacheLoad> Σ0 ↓
<POP 22144-221a6 Naked> Σ0 ↓
<Const 0x22144 0x400.4> Δ-4 {[##1024]}
<MI 22148 LEA.L 0x26c9c,A0> {[##1024]}
<MI 2214e MOVE.L A0,-(A7)> Δ-4 {[##1024]|[4, 'A0']}
<Const 0x22150 0x4.2> Δ-2 {[##1024]|[4, 'A0']|[#4]}
<Call 0x22152 0x10238> {[##1024]|[4, 'A0']|[#4]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 22154-22156 StackAdj> Δ+10 {}
<Const 0x22156 0x404.4> Δ-4 {[##1028]}
<MI 2215a LEA.L 0x26ca0,A0> {[##1028]}
<MI 2215c MOVE.L A0,-(A7)> Δ-4 {[##1028]|[4, 'A0']}
<Const 0x2215e 0x2.2> Δ-2 {[##1028]|[4, 'A0']|[#2]}
<Call 0x22160 0x10238> {[##1028]|[4, 'A0']|[#2]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 22162-22164 StackAdj> Δ+10 {}
<Const 0x22164 0x406.4> Δ-4 {[##1030]}
<MI 22168 LEA.L 0x26ca2,A0> {[##1030]}
<MI 2216e MOVE.L A0,-(A7)> Δ-4 {[##1030]|[4, 'A0']}
<Const 0x22170 0x2.2> Δ-2 {[##1030]|[4, 'A0']|[#2]}
<Call 0x22172 0x10238> {[##1030]|[4, 'A0']|[#2]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 22174-22176 StackAdj> Δ+10 {}
<Const 0x22176 0x408.4> Δ-4 {[##1032]}
<MI 2217a LEA.L 0x26ca4,A0> {[##1032]}
<MI 22180 MOVE.L A0,-(A7)> Δ-4 {[##1032]|[4, 'A0']}
<Const 0x22182 0x4.2> Δ-2 {[##1032]|[4, 'A0']|[#4]}
<Call 0x22184 0x10238> {[##1032]|[4, 'A0']|[#4]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 22186-22188 StackAdj> Δ+10 {}
<Const 0x22188 0x40c.4> Δ-4 {[##1036]}
<MI 2218c LEA.L 0x26ca8,A0> {[##1036]}
<MI 2218e MOVE.L A0,-(A7)> Δ-4 {[##1036]|[4, 'A0']}
<Const 0x22190 0x4.2> Δ-2 {[##1036]|[4, 'A0']|[#4]}
<Call 0x22192 0x10238> {[##1036]|[4, 'A0']|[#4]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 22194-22196 StackAdj> Δ+10 {}
<MI 22196 MOVEQ.L #0x00,D0> {}
<MI 22198 MULU.W 0x26ca0,D0> {}
<MI 2219a CLR.L D1> {}
<MI 2219c MOVE.W D0,D1> {}
<MI 2219e ADD.L 0x26ca8,D1> {}
<MI 221a0 MOVE.L D1,0x26cac> {}
<POP 221a6-221ae Epilogue> Σ0
@ 221ae
START
<POP 221ae--0001 Body>
<POP 221ae-221b8 Prologue> Σ0
<POP 221b8-22448 Naked> Σ0 ↓
<Call 0x221b8 0x10398> {}
FSCALL_10398
<Call 0x221be 0x22116> {}
<Call 0x221c2 0x21ca4> {}
<Call 0x221c6 0x21dd4> {}
<Call 0x221ca 0x205da> {}
<Call 0x221ce 0x20b70> {}
<Blob 0x221d2 [20] @> Δ-20 {[«20""»]}
<POP 221e4-221e6 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x221e6 19> {[«20""»]|[$$CRASH_DUMP.COMMENTS]}
<POP 221f8-221fa StackAdj> Δ-2 {[«20""»]|[$$CRASH_DUMP.COMMENTS]|[-2-]}
<POP 221fa-221fb StackAdj> Δ+2 {[«20""»]|[$$CRASH_DUMP.COMMENTS]}
<Const 0x221fb 0x1.2> Δ-2 {[«20""»]|[$$CRASH_DUMP.COMMENTS]|[#1]}
<Call 0x221fe 0x21526> {[«20""»]|[$$CRASH_DUMP.COMMENTS]|[#1]}
<POP 22202-22203 StackAdj> Δ+26 ↓ {}
<Blob 0x22203 [10] @> Δ-10 {[«10""»]}
<POP 22214-22216 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x22216 9> {[«10""»]|[$$IOP_DUMP0]}
<POP 22228-2222a StackAdj> Δ-2 {[«10""»]|[$$IOP_DUMP0]|[-2-]}
<MI 2222a CLR.B (A7)> {[«10""»]|[$$IOP_DUMP0]|[-2-]}
<Call 0x2222c 0x21526> {[«10""»]|[$$IOP_DUMP0]|[-2-]}
<POP 22230-22231 StackAdj> Δ+16 ↓ {}
<Blob 0x22231 [10] @> Δ-10 {[«10""»]}
<POP 22240-22242 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x22242 9> {[«10""»]|[$$IOP_DUMP1]}
<POP 22254-22256 StackAdj> Δ-2 {[«10""»]|[$$IOP_DUMP1]|[-2-]}
<MI 22256 CLR.B (A7)> {[«10""»]|[$$IOP_DUMP1]|[-2-]}
<Call 0x22258 0x21526> {[«10""»]|[$$IOP_DUMP1]|[-2-]}
<POP 2225c-2225d StackAdj> Δ+16 ↓ {}
<Blob 0x2225d [10] @> Δ-10 {[«10""»]}
<POP 2226c-2226e StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x2226e 9> {[«10""»]|[$$IOP_DUMP2]}
<POP 22280-22282 StackAdj> Δ-2 {[«10""»]|[$$IOP_DUMP2]|[-2-]}
<MI 22282 CLR.B (A7)> {[«10""»]|[$$IOP_DUMP2]|[-2-]}
<Call 0x22284 0x21526> {[«10""»]|[$$IOP_DUMP2]|[-2-]}
<POP 22288-22289 StackAdj> Δ+16 ↓ {}
<Blob 0x22289 [10] @> Δ-10 {[«10""»]}
<POP 22298-2229a StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x2229a 9> {[«10""»]|[$$IOP_DUMP3]}
<POP 222ac-222ae StackAdj> Δ-2 {[«10""»]|[$$IOP_DUMP3]|[-2-]}
<MI 222ae CLR.B (A7)> {[«10""»]|[$$IOP_DUMP3]|[-2-]}
<Call 0x222b0 0x21526> {[«10""»]|[$$IOP_DUMP3]|[-2-]}
<POP 222b4-222b5 StackAdj> Δ+16 ↓ {}
<Blob 0x222b5 [10] @> Δ-10 {[«10""»]}
<POP 222c4-222c6 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x222c6 9> {[«10""»]|[$$IOP_DUMP4]}
<POP 222d8-222da StackAdj> Δ-2 {[«10""»]|[$$IOP_DUMP4]|[-2-]}
<MI 222da CLR.B (A7)> {[«10""»]|[$$IOP_DUMP4]|[-2-]}
<Call 0x222dc 0x21526> {[«10""»]|[$$IOP_DUMP4]|[-2-]}
<POP 222e0-222e4 StackAdj> Δ+16 {}
<Blob 0x222e4 [22] @> Δ-22 {[«22""»]}
<POP 222f0-222f2 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x222f2 22> {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]}
<POP 22304-22306 StackAdj> Δ-2 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[-2-]}
<POP 22306-22307 StackAdj> Δ+2 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]}
<Const 0x22307 0x1.2> Δ-2 {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[#1]}
<Call 0x2230a 0x21526> {[«22""»]|[$$CRASH_DUMP.SAVED_STATE]|[#1]}
<POP 2230e-22312 StackAdj> Δ+28 {}
<Call 0x22312 0x218d6> {}
<Call 0x22316 0x208c8> {}
<Call 0x2231a 0x2193e> {}
<Call 0x2231e 0x21a0a> {}
<Blob 0x22322 [12] @> Δ-12 {[«12""»]}
<POP 22334-22336 StackAdj> Δ-4 {[«12""»]|[-4-]}
<Lit 0x22336 11> {[«12""»]|[$$R1000_DUMP1]}
<POP 22348-2234a StackAdj> Δ-2 {[«12""»]|[$$R1000_DUMP1]|[-2-]}
<MI 2234a CLR.B (A7)> {[«12""»]|[$$R1000_DUMP1]|[-2-]}
<Call 0x2234c 0x21526> {[«12""»]|[$$R1000_DUMP1]|[-2-]}
<POP 22350-22351 StackAdj> Δ+18 ↓ {}
<Blob 0x22351 [12] @> Δ-12 {[«12""»]}
<POP 22360-22362 StackAdj> Δ-4 {[«12""»]|[-4-]}
<Lit 0x22362 11> {[«12""»]|[$$R1000_DUMP2]}
<POP 22374-22376 StackAdj> Δ-2 {[«12""»]|[$$R1000_DUMP2]|[-2-]}
<MI 22376 CLR.B (A7)> {[«12""»]|[$$R1000_DUMP2]|[-2-]}
<Call 0x22378 0x21526> {[«12""»]|[$$R1000_DUMP2]|[-2-]}
<POP 2237c-2237d StackAdj> Δ+18 ↓ {}
<Blob 0x2237d [12] @> Δ-12 {[«12""»]}
<POP 2238c-2238e StackAdj> Δ-4 {[«12""»]|[-4-]}
<Lit 0x2238e 11> {[«12""»]|[$$R1000_DUMP3]}
<POP 223a0-223a2 StackAdj> Δ-2 {[«12""»]|[$$R1000_DUMP3]|[-2-]}
<MI 223a2 CLR.B (A7)> {[«12""»]|[$$R1000_DUMP3]|[-2-]}
<Call 0x223a4 0x21526> {[«12""»]|[$$R1000_DUMP3]|[-2-]}
<POP 223a8-223a9 StackAdj> Δ+18 ↓ {}
<Blob 0x223a9 [12] @> Δ-12 {[«12""»]}
<POP 223b8-223ba StackAdj> Δ-4 {[«12""»]|[-4-]}
<Lit 0x223ba 11> {[«12""»]|[$$R1000_DUMP4]}
<POP 223cc-223ce StackAdj> Δ-2 {[«12""»]|[$$R1000_DUMP4]|[-2-]}
<MI 223ce CLR.B (A7)> {[«12""»]|[$$R1000_DUMP4]|[-2-]}
<Call 0x223d0 0x21526> {[«12""»]|[$$R1000_DUMP4]|[-2-]}
<POP 223d4-223d8 StackAdj> Δ+18 {}
<Call 0x223d8 0x10420> {}
FSCALL_10420
<Call 0x223de 0x206de> {}
<Const 0x223e2 0x1.2> Δ-2 {[#1]}
<Const 0x223e6 0x22b54.4> Δ-4 {[#1]|[##142164]}
<Call 0x223ec 0x10414> {[#1]|[##142164]}
FSCALL_10414
<POP 223f2-223f4 StackAdj> Δ+6 {}
<Call 0x223f4 0x10410> {}
FSCALL_10410
<Const 0x223fa 0x5.2> Δ-2 {[#5]}
<Const 0x223fe 0x2.2> Δ-2 {[#5]|[#2]}
<Call 0x22402 0x1048a> {[#5]|[#2]}
DiProcCmd(board : Byte; cmd : Byte)
<POP 22408-22409 StackAdj> Δ+4 ↓ {}
<Blob 0x22409 [24] @> Δ-24 {[«24""»]}
<POP 2241a-2241c StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x2241c 23> {[«24""»]|[$$Crash Dump is complete.]}
<Call 0x22430 0x103e0> {[«24""»]|[$$Crash Dump is complete.]}
WriteConsoleStringCrLf(str : String)
<POP 22436-2243a StackAdj> Δ+26 {[-2-]}
<MI 2243a CLR.B (A7)> {[-2-]}
<Const 0x2243c 0x1.4> Δ-4 {[-2-]|[##1]}
<Call 0x22440 0x103b8> {[-2-]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 22446-22448 StackAdj> Δ+6 {}
<POP 22448-2244e Naked> Σ0
<Call 0x22448 0x10284> {}
?exit
@ 225f8
<LVAR 0x00a 1(r)>
<LVAR 0x008 1(r)>
<LVAR -0x004 @ 4(r)>
<POP 225f8-226a2 Body> Δ+12
<POP 225f8-2260e Prologue> Σ0 ↓
<POP 2260e-22614 RegCacheLoad> Σ0 ↓
<POP 22614-22620 Naked> Σ0 ↓ →0x22632
<POP 22614-22616 StackAdj> Δ-2 {[-2-]}
<Call 0x22616 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 2261c TST.B (A7)+> Δ+2 {}
<MI 2261e BEQ 0x22632> {}
<POP 22620-22632 Naked> Σ0 Δ-12 →0x22642
<Blob 0x22620 [12] @> Δ-12 {[«12""»]}
<MI 22630 BRA 0x22642> {[«12""»]}
<POP 22632-22642 Naked> Σ0 Δ-12 ↓ ←0x22614
<Blob 0x22632 [12] @> Δ-12 {[«12""»]}
<POP 22642-2269a Naked> Σ-12 Δ+12 ↓ ←0x22620
<POP 22642-22644 StackAdj> Δ-4 {[-16-]}
<Lit 0x22644> {[-12-]|[$$…]}
<Pointer.sp 0x22644 4> Δ-4
<Const 0x22648 0x1.2> Δ-2
<Const 0x2264c 0xb.2> Δ-2
<Call 0x22650 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22656-22658 StackAdj> Δ+8
<Pointer.fp 0x22658 <LVAR -0x004 @ 4(r)>> Δ-4 {[-12-]|[$$…]|[@@-4]}
<Call 0x2265a 0x10460> {[-12-]|[$$…]|[@@-4]}
ExpLoad(a : String; b: Pointer)
<POP 22660-22664 StackAdj> Δ+20 {}
<MI 22664 MOVE.B (A6+0x8),-(A7)> Δ-2 {[2, '(A6+0x8)']}
<MI 22668 MOVE.L (A6-0x4),-(A7)> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']}
<Pointer.sp 0x2266a 4> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]}
<Const 0x2266e 0x0.4> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]}
<Const 0x22672 0x0.4> Δ-4 {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
<Call 0x22676 0x10466> {[2, '(A6+0x8)']|[4, '(A6-0x4)']|[^^4]|[##0]|[##0]}
ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
<POP 2267c-22680 StackAdj> Δ+16 {[2, '(A6+0x8)']}
<MI 22680 CLR.B (A7)> {[2, '(A6+0x8)']}
<MI 22682 MOVE.B (A6+0xa),-(A7)> Δ-2 {[2, '(A6+0x8)']|[2, '(A6+0xa)']}
<MI 22686 MOVE.L (A6-0x4),-(A7)> Δ-4 {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
<Call 0x22688 0x104ba> {[2, '(A6+0x8)']|[2, '(A6+0xa)']|[4, '(A6-0x4)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 2268e-22690 StackAdj> Δ+8 {}
<Pointer.fp 0x22690 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x22692 0x10496> {[@@-4]}
ExpClose(exp : Pointer)
<POP 22698-2269a StackAdj> Δ+4 {}
<POP 2269a-226a2 Epilogue> Σ0
@ 226be
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 226be-2274c Body> Δ+14
<POP 226be-226d4 Prologue> Σ0 ↓
<POP 226d4-226da RegCacheLoad> Σ0 ↓
<POP 226da-226e6 Naked> Σ0 ↓ →0x226f8
<POP 226da-226dc StackAdj> Δ-2 {[-2-]}
<Call 0x226dc 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 226e2 TST.B (A7)+> Δ+2 {}
<MI 226e4 BEQ 0x226f8> {}
<POP 226e6-226f8 Naked> Σ0 Δ-14 →0x22708
<Blob 0x226e6 [14] @> Δ-14 {[«14""»]}
<MI 226f6 BRA 0x22708> {[«14""»]}
<POP 226f8-22708 Naked> Σ0 Δ-14 ↓ ←0x226da
<Blob 0x226f8 [14] @> Δ-14 {[«14""»]}
<POP 22708-22744 Naked> Σ-14 Δ+14 ↓ ←0x226e6
<POP 22708-2270a StackAdj> Δ-4 {[-18-]}
<Lit 0x2270a> {[-14-]|[$$…]}
<Pointer.sp 0x2270a 4> Δ-4
<Const 0x2270e 0x1.2> Δ-2
<Const 0x22712 0xd.2> Δ-2
<Call 0x22716 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2271c-2271e StackAdj> Δ+8
<Pointer.fp 0x2271e <LVAR -0x006 @ 4(r)>> Δ-4 {[-14-]|[$$…]|[@@-6]}
<Call 0x22720 0x10460> {[-14-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 22726-2272a StackAdj> Δ+22 {}
<MI 2272a CLR.B -(A7)> Δ-2 {[#0]}
<MI 2272c MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 22730 MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x22732 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 22738-2273a StackAdj> Δ+8 {}
<Pointer.fp 0x2273a <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x2273c 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 22742-22744 StackAdj> Δ+4 {}
<POP 22744-2274c Epilogue> Σ0
@ 2277c
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 2277c-2280a Body> Δ+24
<POP 2277c-22792 Prologue> Σ0 ↓
<POP 22792-22798 RegCacheLoad> Σ0 ↓
<POP 22798-227a4 Naked> Σ0 ↓ →0x227b6
<POP 22798-2279a StackAdj> Δ-2 {[-2-]}
<Call 0x2279a 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 227a0 TST.B (A7)+> Δ+2 {}
<MI 227a2 BEQ 0x227b6> {}
<POP 227a4-227b6 Naked> Σ0 Δ-24 →0x227c6
<Blob 0x227a4 [24] @> Δ-24 {[«24""»]}
<MI 227b4 BRA 0x227c6> {[«24""»]}
<POP 227b6-227c6 Naked> Σ0 Δ-24 ↓ ←0x22798
<Blob 0x227b6 [24] @> Δ-24 {[«24""»]}
<POP 227c6-22802 Naked> Σ-24 Δ+24 ↓ ←0x227a4
<POP 227c6-227c8 StackAdj> Δ-4 {[-28-]}
<Lit 0x227c8> {[-24-]|[$$…]}
<Pointer.sp 0x227c8 4> Δ-4
<Const 0x227cc 0x1.2> Δ-2
<Const 0x227d0 0x17.2> Δ-2
<Call 0x227d4 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 227da-227dc StackAdj> Δ+8
<Pointer.fp 0x227dc <LVAR -0x006 @ 4(r)>> Δ-4 {[-24-]|[$$…]|[@@-6]}
<Call 0x227de 0x10460> {[-24-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 227e4-227e8 StackAdj> Δ+32 {}
<MI 227e8 CLR.B -(A7)> Δ-2 {[#0]}
<MI 227ea MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 227ee MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x227f0 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 227f6-227f8 StackAdj> Δ+8 {}
<Pointer.fp 0x227f8 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x227fa 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 22800-22802 StackAdj> Δ+4 {}
<POP 22802-2280a Epilogue> Σ0
@ 22826
<LVAR 0x008 1(r)>
<LVAR -0x006 @ 4(r)>
<POP 22826-228aa Body> Δ+14
<POP 22826-2283c Prologue> Σ0 ↓
<POP 2283c-22840 RegCacheLoad> Σ0 ↓
<POP 22840-2284c Naked> Σ0 ↓ →0x2285a
<POP 22840-22842 StackAdj> Δ-2 {[-2-]}
<Call 0x22842 0x104cc> {[-2-]}
MemOnly2MB() : Bool
<MI 22848 TST.B (A7)+> Δ+2 {}
<MI 2284a BEQ 0x2285a> {}
<POP 2284c-2285a Naked> Σ0 Δ-14 →0x22866
<Blob 0x2284c [14] @> Δ-14 {[«14""»]}
<MI 22858 BRA 0x22866> {[«14""»]}
<POP 2285a-22866 Naked> Σ0 Δ-14 ↓ ←0x22840
<Blob 0x2285a [14] @> Δ-14 {[«14""»]}
<POP 22866-228a2 Naked> Σ-14 Δ+14 ↓ ←0x2284c
<POP 22866-22868 StackAdj> Δ-4 {[-18-]}
<Lit 0x22868> {[-14-]|[$$…]}
<Pointer.sp 0x22868 4> Δ-4
<Const 0x2286c 0x1.2> Δ-2
<Const 0x22870 0xe.2> Δ-2
<Call 0x22874 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2287a-2287c StackAdj> Δ+8
<Pointer.fp 0x2287c <LVAR -0x006 @ 4(r)>> Δ-4 {[-14-]|[$$…]|[@@-6]}
<Call 0x2287e 0x10460> {[-14-]|[$$…]|[@@-6]}
ExpLoad(a : String; b: Pointer)
<POP 22884-22888 StackAdj> Δ+22 {}
<MI 22888 CLR.B -(A7)> Δ-2 {[#0]}
<MI 2288a MOVE.B (A6+0x8),-(A7)> Δ-2 {[#0]|[2, '(A6+0x8)']}
<MI 2288e MOVE.L (A6-0x6),-(A7)> Δ-4 {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
<Call 0x22890 0x104ba> {[#0]|[2, '(A6+0x8)']|[4, '(A6-0x6)']}
ExpRun(a: Bool; adr: Byte; b: Pointer)
<POP 22896-22898 StackAdj> Δ+8 {}
<Pointer.fp 0x22898 <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Call 0x2289a 0x10496> {[@@-6]}
ExpClose(exp : Pointer)
<POP 228a0-228a2 StackAdj> Δ+4 {}
<POP 228a2-228aa Epilogue> Σ0
@ 228ec
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 228ec-22954 Body>
<POP 228ec-22902 Prologue> Σ0 ↓
<POP 22902-2294c Naked> Σ0 ↓
<Blob 0x22902 [14] @> Δ-14 {[«14""»]}
<Const 0x2290e 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 22912-22914 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x22914 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 22926-22928 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 22928 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2292c EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2292e EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 22930 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x22932 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 22938-2293a StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x2293a 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 22940-22942 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x22942 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 22948-2294c StackAdj> Δ+20 {}
<POP 2294c-22954 Epilogue> Σ0
@ 229a8
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 229a8-22ae4 Body>
<POP 229a8-229be Prologue> Σ0 ↓
<POP 229be-229d4 RegCacheLoad> Σ0 ↓
<POP 229d4-22a34 Naked> Σ0 ↓ →0x22a7c
<Call 0x229d4 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x229da [18] @> Δ-18 {[«18""»]}
<POP 229e6-229e8 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x229e8 18> {[«18""»]|[$$Experiment error :]}
<Call 0x229f4 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 229f6-229f7 StackAdj> Δ+22 ↓ {}
<Blob 0x229f7 [14] @> Δ-14 {[«14""»]}
<POP 22a06-22a08 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x22a08 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 22a12-22a14 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 22a14 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x22a18 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 22a1e-22a20 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x22a20 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 22a26-22a28 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x22a28 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22a2a-22a2c StackAdj> Δ+18 {}
<MI 22a2c MOVEA.L (A6+0xa),A0> {}
<MI 22a30 CMPA.W #0x01,A0> {}
<MI 22a32 BEQ 0x22a7c> {}
<POP 22a34-22a7c Naked> Σ0 ↓
<Blob 0x22a34 [14] @> Δ-14 {[«14""»]}
<Blob 0x22a44 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 22a54-22a56 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x22a56 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 22a60-22a62 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x22a62> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x22a62 12> Δ-4
<Const 0x22a66 0x1.2> Δ-2
<Const 0x22a68 0x1e.2> Δ-2
<Call 0x22a6a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22a6c-22a6e StackAdj> Δ+8
<Call 0x22a6e 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 22a74-22a76 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x22a76 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22a78-22a7c StackAdj> Δ+48 {}
<POP 22a7c-22adc Naked> Σ0 ↓ ←0x229d4
<Blob 0x22a7c [14] @> Δ-14 {[«14""»]}
<POP 22a8c-22a8e StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x22a8e 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 22a98-22a9a StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 22a9a MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x22a9e 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 22aa4-22aa6 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x22aa6 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 22aac-22aae StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x22aae 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 22ab0-22ab1 StackAdj> Δ+18 ↓ {}
<Blob 0x22ab1 [24] @> Δ-24 {[«24""»]}
<Const 0x22ac0 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 22ac4-22ac6 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x22ac6 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x22ad4 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 22ada-22adc StackAdj> Δ+30 {}
<POP 22adc-22ae4 Epilogue> Σ0
00020000 ; --------------------------------------------------------------------------------------
00020000 ; R1000.Disassembly modules:
00020000 ; import all
00020000 ; import kind.program
00020000 ; no ident.0c9acc302dcc302a
00020000 ; --------------------------------------------------------------------------------------
00020000 stack.top:
00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END
00020004 00 02 21 ae | ! | .CODE START
00020008 00 01 02 88 | | .CODE FSCALL_10288
0002000c heap.top:
0002000c 00 02 6c e0 | l | .PTR 0x26ce0
00020010 code.end:
00020010 00 02 2a e4 | * | .PTR 0x22ae4
00020014 00 00 00 00 | | .CONST 0x00000000
00020018 programfailurehandler:
00020018 00 02 28 ec | ( | .CODE PROG_FAIL
0002001c experimentfailurehandler:
0002001c 00 02 29 a8 | ) | .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 44 55 4d 50 2c |ASHDUMP,| .XXX[0x18]
00020118 32 2e 35 2c 39 32 2f 30 |2.5,92/0|
00020120 32 2f 30 33 2c 31 37 3a |2/03,17:|
00020128 31 38 3a 31 39 5c |18:19\ | .XXX[0x6]
0002012e 30 32 |02 | .TXT '02'
00020130 43 52 41 53 48 5f 44 55 |CRASH_DU| .TXT 'CRASH_DUMP.SAVED_STATE'
00020146 43 52 41 53 48 5f 44 55 |CRASH_DU| .TXT 'CRASH_DUMP.COMMENTS '
0002015a 30 31 32 33 34 35 |012345 | .XXX[0x6]
00020160 36 37 38 39 41 42 43 44 |6789ABCD| .XXX[0x8]
00020168 45 46 |EF | .XXX[0x2]
0002016a 45 6e 64 20 6f 66 20 74 |End of t| .TXT 'End of tape encountered, Please use a longer tape.'
0002019c 52 65 73 74 61 72 74 69 |Restarti| .TXT 'Restarting ...'
000201aa 56 4f 4c 31 |VOL1 | .TXT 'VOL1'
000201ae 43 52 41 53 48 5f 44 55 |CRASH_DU| .TXT 'CRASH_DUMP'
000201b8 54 61 70 65 20 64 65 6e |Tape den| .TXT 'Tape density just changed '
000201d2 55 56 4c 31 52 41 54 49 |UVL1RATI| .TXT 'UVL1RATIONAL CHAINED TAPES, PRED VOL ID:'
000201fa 55 56 4c 32 43 4c 55 53 |UVL2CLUS| .TXT 'UVL2CLUSTER-ID'
00020208 43 52 41 53 48 5f 44 55 |CRASH_DU| .XXX[0x8]
00020210 4d 50 2c 20 |MP, | .XXX[0x4]
00020214 4d 34 30 30 2c 20 |M400, | .TXT 'M400, '
0002021a 4d 33 30 30 2c 20 |M300, | .TXT 'M300, '
00020220 4d 32 30 30 2c 20 |M200, | .TXT 'M200, '
00020226 20 20 38 4d 42 20 | 8MB | .TXT ' 8MB '
0002022c 20 33 32 4d 42 20 | 32MB | .TXT ' 32MB '
00020232 30 30 30 31 30 30 30 31 |00010001| .TXT '00010001000100'
00020240 30 30 30 30 30 20 30 30 |00000 00| .TXT '00000 000000R1000:V001.00 '
0002025a 32 46 |2F | .TXT '2F'
0002025c 30 31 30 32 34 20 |01024 | .TXT '01024 '
00020262 44 75 6d 70 |Dump | .TXT 'Dump'
00020266 69 6e 67 5f |ing_ | .TXT 'ing_'
0002026a 30 30 |00 | .TXT '00'
0002026c 30 30 |00 | .TXT '00'
0002026e 30 30 |00 | .TXT '00'
00020270 48 44 |HD | .TXT 'HD'
00020272 52 20 |R | .XXX[0x2]
00020274 55 48 4c 31 |UHL1 | .TXT 'UHL1'
00020278 45 4f |EO | .TXT 'EO'
0002027a 46 20 |F | .XXX[0x2]
0002027c 20 5b 4f 4b 5d 20 | [OK] | .TXT ' [OK] '
00020282 4e 6f 20 72 65 73 70 6f |No respo| .TXT 'No response from R1000. Probably due to a hardware error. '
000202bc 43 52 41 53 48 5f 44 55 |CRASH_DU| .TXT 'CRASH_DUMP.REGISTERS'
000202d0 43 52 41 53 48 5f 44 55 |CRASH_DU| .TXT 'CRASH_DUMP.TAG_STORE'
000202e4 43 52 41 53 48 5f 44 55 |CRASH_DU| .TXT 'CRASH_DUMP.MEMORY '
000202f6 44 65 63 69 6d 61 6c 20 |Decimal | .TXT 'Decimal input expected: bad syntax, or out of range '
0002032a 20 28 | ( | .TXT ' ('
0002032c 2e 2e |.. | .TXT '..'
0002032e 29 20 |) | .TXT ') '
00020330 5b 20 |[ | .XXX[0x2]
00020332 5d 20 3f 5f |] ?_ | .TXT '] ?_'
00020336 54 61 70 65 |Tape | .TXT 'Tape'
0002033a 20 75 6e 69 | uni | .TXT ' uni'
0002033e 74 20 6e 75 |t nu | .TXT 't nu'
00020342 6d 62 65 72 |mber | .TXT 'mber'
00020346 54 61 70 65 20 64 72 69 |Tape dri| .TXT 'Tape drive density appears to be_ '
00020368 36 32 35 30 |6250 | .TXT '6250'
0002036c 20 42 50 49 | BPI | .TXT ' BPI'
00020370 31 36 30 30 |1600 | .TXT '1600'
00020374 20 42 50 49 | BPI | .TXT ' BPI'
00020378 2c 20 79 6f 75 20 63 61 |, you ca| .TXT ', you can manually change it now. '
0002039a 56 6f 6c 75 6d 65 20 49 |Volume I| .TXT 'Volume Id, (1..6 characters) ?_ '
000203ba 20 20 20 20 20 20 | | .XXX[0x6]
000203c0 24 54 45 53 54 24 |$TEST$ | .XXX[0x6]
000203c6 4e 75 6d 62 65 72 20 6f |Number o| .TXT 'Number of pages per tape block'
000203e4 50 6c 65 61 73 65 20 65 |Please e| .TXT 'Please enter any comments or information that may help isolate or reproduce '
00020430 74 68 69 73 20 70 72 6f |this pro| .TXT 'this problem. To terminate the comment, enter a ")" on a line by itself. '
0002047a 43 52 45 41 |CREA | .TXT 'CREA'
0002047e 54 45 2f 53 |TE/S | .TXT 'TE/S'
00020482 49 5a 45 3d |IZE= | .TXT 'IZE='
00020486 34 2f 49 2c |4/I, | .TXT '4/I,'
0002048a 43 4c |CL | .TXT 'CL'
0002048c 49 20 |I | .XXX[0x2]
0002048e 49 4f 50 5f 44 55 4d 50 |IOP_DUMP| .TXT 'IOP_DUMP0 '
00020498 49 4f 50 5f 44 55 4d 50 |IOP_DUMP| .TXT 'IOP_DUMP1 '
000204a2 49 4f 50 5f 44 55 4d 50 |IOP_DUMP| .TXT 'IOP_DUMP2 '
000204ac 49 4f 50 5f 44 55 4d 50 |IOP_DUMP| .TXT 'IOP_DUMP3 '
000204b6 49 4f 50 5f 44 55 4d 50 |IOP_DUMP| .TXT 'IOP_DUMP4 '
000204c0 52 31 30 30 30 5f 44 55 |R1000_DU| .TXT 'R1000_DUMP1 '
000204cc 52 31 30 30 30 5f 44 55 |R1000_DU| .TXT 'R1000_DUMP2 '
000204d8 52 31 30 30 30 5f 44 55 |R1000_DU| .TXT 'R1000_DUMP3 '
000204e4 52 31 30 30 30 5f 44 55 |R1000_DU| .TXT 'R1000_DUMP4 '
000204f0 43 72 61 73 68 20 44 75 |Crash Du| .TXT 'Crash Dump is complete. '
00020508 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0
0002050c 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0
00020510 00 00 00 00 00 00 00 1f | | .XXX[0x30]
00020518 00 00 00 3b 00 00 00 5a | ; Z|
00020520 00 00 00 78 00 00 00 97 | x |
00020528 00 00 00 b5 00 00 00 d4 | |
00020530 00 00 00 f3 00 00 01 11 | |
00020538 00 00 01 30 00 00 01 4e | 0 N|
00020540 ; --------------------------------------------------------------------------------------
00020540 ; OMSI PASCAL Function
00020540 ; <LVAR 0x008 1(r)>
00020540 ; <LVAR -0x001 1(rw)>
00020540 ; --------------------------------------------------------------------------------------
00020540 4e 56 ff e6 |NV | LINK.W A6,#0xffe6
00020544 bf d5 | | CMPA.L (A5),A7
00020546 62 06 |b | BHI 0x2054e
00020548 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002054c 4e 76 |Nv | TRAPV
0002054e de fc 00 18 | | ADDA.W #0x18,A7
00020552 48 e7 81 80 |H | MOVEM.L A0+D7+D0,-(A7)
00020556 41 ee ff ff |A | LEA.L (A6-0x1),A0
0002055a 7e 0c |~ | MOVEQ.L #0x0c,D7
0002055c 55 4f |UO | SUBQ.L #0x2,A7
0002055e 1f 07 | | MOVE.B D7,-(A7)
00020560 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte
00020566 54 4f |TO | ADDQ.L #0x2,A7
00020568 4a 1f |J | TST.B (A7)+
0002056a 67 5e |g^ | BEQ 0x205ca
0002056c 10 2e 00 08 | . | MOVE.B (A6+0x8),D0
00020570 48 80 |H | EXTB.W D0
00020572 0c 40 00 03 | @ | CMPI.W #0x0003,D0
00020576 62 52 |bR | BHI 0x205ca
00020578 d0 40 | @ | ADD.W D0,D0
0002057a 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W
00020582 00 08 | | .CONST 0x8 ; [0x0] -> 0x2058a
00020584 00 2a | * | .CONST 0x2a ; [0x1] -> 0x205ac
00020586 00 34 | 4 | .CONST 0x34 ; [0x2] -> 0x205b6
00020588 00 3e | > | .CONST 0x3e ; [0x3] -> 0x205c0
0002058a switch@0x2057a[0x0]:
0002058a 55 4f |UO | SUBQ.L #0x2,A7
0002058c 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool
00020592 4a 1f |J | TST.B (A7)+
00020594 67 04 |g | BEQ 0x2059a
00020596 42 10 |B | CLR.B (A0)
00020598 60 04 |` | BRA 0x2059e
0002059a 10 bc 00 ff | | MOVE.B #0xff,(A0)
0002059e 1f 07 | | MOVE.B D7,-(A7)
000205a0 1f 10 | | MOVE.B (A0),-(A7)
000205a2 4e b9 00 02 25 f8 |N % | JSR 0x225f8
000205a8 58 4f |XO | ADDQ.L #0x4,A7
000205aa 60 1e |` | BRA 0x205ca
000205ac switch@0x2057a[0x1]:
000205ac 1f 07 | | MOVE.B D7,-(A7)
000205ae 4e b9 00 02 28 26 |N (& | JSR 0x22826
000205b4 60 12 |` | BRA 0x205c8
000205b6 switch@0x2057a[0x2]:
000205b6 1f 07 | | MOVE.B D7,-(A7)
000205b8 4e b9 00 02 27 7c |N '| | JSR 0x2277c
000205be 60 08 |` | BRA 0x205c8
000205c0 switch@0x2057a[0x3]:
000205c0 1f 07 | | MOVE.B D7,-(A7)
000205c2 4e b9 00 02 26 be |N & | JSR 0x226be
000205c8 54 4f |TO | ADDQ.L #0x2,A7
000205ca 52 07 |R | ADDQ.B #0x1,D7
000205cc 0c 07 00 0f | | CMPI.B #0x0f,D7
000205d0 6f 8a |o | BLE 0x2055c
000205d2 4c df 01 81 |L | MOVEM.L (A7)+,D0+D7+A0
000205d6 4e 5e |N^ | UNLK A6
000205d8 4e 75 |Nu | RTS
000205da ; --------------------------------------------------------------------------------------
000205da ; OMSI PASCAL Function
000205da ; <LVAR -0x001 1(w)>
000205da ; <LVAR -0x002 1(w) 2(r)>
000205da ; <LVAR -0x00b @>
000205da ; --------------------------------------------------------------------------------------
000205da 4e 56 ff be |NV | LINK.W A6,#0xffbe
000205de bf d5 | | CMPA.L (A5),A7
000205e0 62 06 |b | BHI 0x205e8
000205e2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000205e6 4e 76 |Nv | TRAPV
000205e8 de fc 00 36 | 6 | ADDA.W #0x36,A7
000205ec 48 e7 f8 f0 |H | MOVEM.L A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7)
000205f0 45 fa ff 4e |E N | LEA.L 0x20540,A2
000205f4 47 f9 00 02 2a ed |G * | LEA.L 0x22aed,A3
000205fa 32 3c 01 27 |2< ' | MOVE.W #0x127,D1
000205fe 74 01 |t | MOVEQ.L #0x01,D2
00020600 76 02 |v | MOVEQ.L #0x02,D3
00020602 78 0a |x | MOVEQ.L #0x0a,D4
00020604 4a 13 |J | TST.B (A3)
00020606 66 00 00 ce |f | BNE 0x206d6
0002060a 1f 3c 00 05 | < | MOVE.B #0x05,-(A7)
0002060e 1f 03 | | MOVE.B D3,-(A7)
00020610 4e b9 00 01 04 8a |N | JSR DiProcCmd(board : Byte; cmd : Byte)
00020616 58 4f |XO | ADDQ.L #0x4,A7
00020618 4e b9 00 02 24 bc |N $ | JSR exp_CLEAR_EXCEPTIONS.FIU()
0002061e 1d 42 ff fe | B | MOVE.B D2,(A6-0x2)
00020622 1d 7c 00 b4 ff ff | | | MOVE.B #0xb4,(A6-0x1)
00020628 2f 3a fe e2 |/: | MOVE.L 0x2050c,-(A7)
0002062c 2f 3a fe da |/: | MOVE.L 0x20508,-(A7)
00020630 48 6e ff f5 |Hn | PEA.L (A6-0xb)
00020634 4e b9 00 02 25 4c |N %L | JSR exp_PREP_WRITE_REG.TYP(Sw_8, &Sr_8_1)
0002063a de c4 | | ADDA.W D4,A7
0002063c 3e ae ff fe |> | MOVE.W (A6-0x2),(A7)
00020640 9e c4 | | SUBA.W D4,A7
00020642 20 4f | O | MOVEA.L A7,A0
00020644 43 ee ff f5 |C | LEA.L (A6-0xb),A1
00020648 70 08 |p | MOVEQ.L #0x08,D0
0002064a 10 d9 | | MOVE.B (A1)+,(A0)+
0002064c 51 c8 ff fc |Q | DBF D0,0x2064a
00020650 42 27 |B' | CLR.B -(A7)
00020652 4e b9 00 02 25 12 |N % | JSR exp_WRITE_REG.TYP(Sw_2, Sw_8_1, Sw_1)
00020658 de fc 00 0e | | ADDA.W #0xe,A7
0002065c 4e b9 00 02 25 88 |N % | JSR exp_LOAD_BENIGN_UWORD.TYP()
00020662 42 27 |B' | CLR.B -(A7)
00020664 4e 92 |N | JSR (A2)
00020666 54 4f |TO | ADDQ.L #0x2,A7
00020668 4e b9 00 02 24 84 |N $ | JSR exp_INIT_MRU.FIU()
0002066e 1f 02 | | MOVE.B D2,-(A7)
00020670 4e 92 |N | JSR (A2)
00020672 54 4f |TO | ADDQ.L #0x2,A7
00020674 4e b9 00 01 05 b0 |N | JSR FifoInit(void)
0002067a 3f 01 |? | MOVE.W D1,-(A7)
0002067c 4e b9 00 02 25 6e |N %n | JSR exp_PREP_RUN.TYP(Sw_2)
00020682 3e 81 |> | MOVE.W D1,(A7)
00020684 4e b9 00 02 25 c6 |N % | JSR exp_PREP_RUN.VAL(Sw_2)
0002068a 3e 81 |> | MOVE.W D1,(A7)
0002068c 4e b9 00 02 28 c4 |N ( | JSR exp_PREP_RUN.IOC(Sw_2)
00020692 3e 81 |> | MOVE.W D1,(A7)
00020694 4e b9 00 02 24 f8 |N $ | JSR exp_PREP_RUN.SEQ(Sw_2)
0002069a 3e 81 |> | MOVE.W D1,(A7)
0002069c 4e b9 00 02 24 6a |N $j | JSR exp_PREP_RUN.FIU(Sw_2)
000206a2 1e 83 | | MOVE.B D3,(A7)
000206a4 4e 92 |N | JSR (A2)
000206a6 54 4f |TO | ADDQ.L #0x2,A7
000206a8 4e b9 00 02 24 9e |N $ | JSR exp_FREEZE_WORLD.FIU()
000206ae 4e b9 00 02 25 30 |N %0 | JSR exp_RUN_NORMAL.TYP()
000206b4 4e b9 00 02 25 aa |N % | JSR exp_RUN_NORMAL.VAL()
000206ba 4e b9 00 02 24 de |N $ | JSR exp_RUN_CHECK.SEQ()
000206c0 4e b9 00 02 28 aa |N ( | JSR exp_RUN_CHECK.IOC()
000206c6 1f 3c 00 03 | < | MOVE.B #0x03,-(A7)
000206ca 4e 92 |N | JSR (A2)
000206cc 54 4f |TO | ADDQ.L #0x2,A7
000206ce 4e b9 00 02 24 4e |N $N | JSR exp_RUN_NORMAL.FIU()
000206d4 16 82 | | MOVE.B D2,(A3)
000206d6 4c df 0f 1f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3
000206da 4e 5e |N^ | UNLK A6
000206dc 4e 75 |Nu | RTS
000206de ; --------------------------------------------------------------------------------------
000206de ; OMSI PASCAL Function
000206de ; --------------------------------------------------------------------------------------
000206de 4e 56 ff a6 |NV | LINK.W A6,#0xffa6
000206e2 bf d5 | | CMPA.L (A5),A7
000206e4 62 06 |b | BHI 0x206ec
000206e6 44 fc 00 02 |D | MOVE.W #0x2,CCR
000206ea 4e 76 |Nv | TRAPV
000206ec de fc 00 5a | Z | ADDA.W #0x5a,A7
000206f0 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7)
000206f4 43 f9 00 02 2b 54 |C +T | LEA.L 0x22b54,A1
000206fa 45 f9 00 01 04 08 |E | LEA.L FSCALL_10408,A2
00020700 47 f9 00 02 2b 55 |G +U | LEA.L 0x22b55,A3
00020706 72 01 |r | MOVEQ.L #0x01,D1
00020708 48 51 |HQ | PEA.L (A1)
0002070a 4e 92 |N | JSR (A2)
0002070c 58 4f |XO | ADDQ.L #0x4,A7
0002070e 42 39 00 02 2b 03 |B9 + | CLR.B 0x22b03
00020714 4a 11 |J | TST.B (A1)
00020716 66 06 |f | BNE 0x2071e
00020718 4a 13 |J | TST.B (A3)
0002071a 67 00 00 a6 |g | BEQ 0x207c2
0002071e 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
00020724 4a 13 |J | TST.B (A3)
00020726 67 44 |gD | BEQ 0x2076c
00020728 4e b9 00 01 04 20 |N | JSR FSCALL_10420
0002072e 48 51 |HQ | PEA.L (A1)
00020730 4e 92 |N | JSR (A2)
00020732 58 4f |XO | ADDQ.L #0x4,A7
00020734 4e b9 00 01 04 20 |N | JSR FSCALL_10420
0002073a 48 51 |HQ | PEA.L (A1)
0002073c 4e 92 |N | JSR (A2)
0002073e 58 4f |XO | ADDQ.L #0x4,A7
00020740 41 fa fa 5a |A Z | LEA.L 0x2019c,A0
00020744 70 18 |p | MOVEQ.L #0x18,D0
00020746 3f 20 |? | MOVE.W -(A0),-(A7)
00020748 51 c8 ff fc |Q | DBF D0,0x20746
0002074c 59 4f |YO | SUBQ.L #0x4,A7
0002074e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020752 3f 01 |? | MOVE.W D1,-(A7)
00020754 3f 3c 00 32 |?< 2 | MOVE.W #0x32,-(A7)
00020758 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002075e 50 4f |PO | ADDQ.L #0x8,A7
00020760 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020766 de fc 00 36 | 6 | ADDA.W #0x36,A7
0002076a 60 0c |` | BRA 0x20778
0002076c 1f 01 | | MOVE.B D1,-(A7)
0002076e 48 51 |HQ | PEA.L (A1)
00020770 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428
00020776 5c 4f |\O | ADDQ.L #0x6,A7
00020778 41 fa fa 30 |A 0 | LEA.L 0x201aa,A0
0002077c 70 06 |p | MOVEQ.L #0x06,D0
0002077e 3f 20 |? | MOVE.W -(A0),-(A7)
00020780 51 c8 ff fc |Q | DBF D0,0x2077e
00020784 59 4f |YO | SUBQ.L #0x4,A7
00020786 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002078a 3f 01 |? | MOVE.W D1,-(A7)
0002078c 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00020790 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020796 50 4f |PO | ADDQ.L #0x8,A7
00020798 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002079e de fc 00 10 | | ADDA.W #0x10,A7
000207a2 1e 81 | | MOVE.B D1,(A7)
000207a4 48 51 |HQ | PEA.L (A1)
000207a6 4e b9 00 01 04 14 |N | JSR FSCALL_10414
000207ac 5c 4f |\O | ADDQ.L #0x6,A7
000207ae 4e b9 00 01 04 10 |N | JSR FSCALL_10410
000207b4 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7
000207b8 3c 7c 00 00 |<| | MOVEA.W #0x0,A6
000207bc 4e f9 00 02 21 c6 |N ! | JMP 0x221c6
000207c2 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3
000207c6 4e 5e |N^ | UNLK A6
000207c8 4e 75 |Nu | RTS
000207ca ; --------------------------------------------------------------------------------------
000207ca ; OMSI PASCAL Function
000207ca ; <LVAR 0x016 1(r)>
000207ca ; <LVAR 0x012 4(r)>
000207ca ; <LVAR 0x010 2(r)>
000207ca ; <LVAR 0x00c 1(r)>
000207ca ; <LVAR 0x008 4(r)>
000207ca ; <LVAR -0x004 2(w)>
000207ca ; <LVAR -0x006 2(w)>
000207ca ; <LVAR -0x00c 2(w)>
000207ca ; <LVAR -0x010 @>
000207ca ; --------------------------------------------------------------------------------------
000207ca 4e 56 ff d2 |NV | LINK.W A6,#0xffd2
000207ce bf d5 | | CMPA.L (A5),A7
000207d0 62 06 |b | BHI 0x207d8
000207d2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000207d6 4e 76 |Nv | TRAPV
000207d8 de fc 00 1e | | ADDA.W #0x1e,A7
000207dc 48 e7 e0 80 |H | MOVEM.L A0+D2+D1+D0,-(A7)
000207e0 74 01 |t | MOVEQ.L #0x01,D2
000207e2 3d 7c 00 03 ff f4 |=| | MOVE.W #0x3,(A6-0xc)
000207e8 30 39 00 02 2b 00 |09 + | MOVE.W 0x22b00,D0
000207ee e1 40 | @ | ASL.W #0x8,D0
000207f0 12 2e 00 16 | . | MOVE.B (A6+0x16),D1
000207f4 48 81 |H | EXTB.W D1
000207f6 d2 40 | @ | ADD.W D0,D1
000207f8 3d 41 ff fa |=A | MOVE.W D1,(A6-0x6)
000207fc 3d 6e 00 10 ff fc |=n | MOVE.W (A6+0x10),(A6-0x4)
00020802 48 6e ff f0 |Hn | PEA.L (A6-0x10)
00020806 2f 2e 00 12 |/. | MOVE.L (A6+0x12),-(A7)
0002080a 3f 02 |? | MOVE.W D2,-(A7)
0002080c 4e b9 00 01 02 04 |N | JSR KC02_Start_Disk_IO(desc : Pointer; dst : Pointer ; c : W)
00020812 de fc 00 0a | | ADDA.W #0xa,A7
00020816 4a 2e 00 0c |J. | TST.B (A6+0xc)
0002081a 67 10 |g | BEQ 0x2082c
0002081c 3f 02 |? | MOVE.W D2,-(A7)
0002081e 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00020822 48 50 |HP | PEA.L (A0)
00020824 4e b9 00 01 02 06 |N | JSR KC03_Wait_Disk_IO(a : W; VAR status : Byte)
0002082a 5c 4f |\O | ADDQ.L #0x6,A7
0002082c 4c df 01 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0
00020830 4e 5e |N^ | UNLK A6
00020832 4e 75 |Nu | RTS
00020834 ; --------------------------------------------------------------------------------------
00020834 ; OMSI PASCAL Function
00020834 ; <LVAR 0x008 1(rw)>
00020834 ; <LVAR -0x004 @ 1(r)>
00020834 ; <LVAR -0x00c 2(r)>
00020834 ; <LVAR -0x018 @>
00020834 ; --------------------------------------------------------------------------------------
00020834 4e 56 ff cc |NV | LINK.W A6,#0xffcc
00020838 bf d5 | | CMPA.L (A5),A7
0002083a 62 06 |b | BHI 0x20842
0002083c 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020840 4e 76 |Nv | TRAPV
00020842 de fc 00 1c | | ADDA.W #0x1c,A7
00020846 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
0002084a 42 27 |B' | CLR.B -(A7)
0002084c 41 ee ff e8 |A | LEA.L (A6-0x18),A0
00020850 2f 08 |/ | MOVE.L A0,-(A7)
00020852 48 78 00 00 |Hx | PEA.L 0x0
00020856 1f 3c 00 01 | < | MOVE.B #0x01,-(A7)
0002085a 48 6e ff fc |Hn | PEA.L (A6-0x4)
0002085e 4e ba ff 6a |N j | JSR 0x207ca
00020862 de fc 00 10 | | ADDA.W #0x10,A7
00020866 4a 2e ff fc |J. | TST.B (A6-0x4)
0002086a 66 0c |f | BNE 0x20878
0002086c 48 78 00 0c |Hx | PEA.L 0xc
00020870 4e b9 00 01 02 20 |N | JSR KC10_Panic(code : Long)
00020876 58 4f |XO | ADDQ.L #0x4,A7
00020878 42 2e 00 08 |B. | CLR.B (A6+0x8)
0002087c 30 2e ff f4 |0. | MOVE.W (A6-0xc),D0
00020880 02 40 00 08 | @ | ANDI.W #0x0008,D0
00020884 67 04 |g | BEQ 0x2088a
00020886 52 2e 00 08 |R. | ADDQ.B #0x1,(A6+0x8)
0002088a 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
0002088e 4e 5e |N^ | UNLK A6
00020890 4e 75 |Nu | RTS
00020892 ; --------------------------------------------------------------------------------------
00020892 ; OMSI PASCAL Function
00020892 ; --------------------------------------------------------------------------------------
00020892 4e 56 ff f2 |NV | LINK.W A6,#0xfff2
00020896 bf d5 | | CMPA.L (A5),A7
00020898 62 06 |b | BHI 0x208a0
0002089a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002089e 4e 76 |Nv | TRAPV
000208a0 de fc 00 0e | | ADDA.W #0xe,A7
000208a4 48 e7 00 80 |H | MOVEM.L A0,-(A7)
000208a8 41 f9 00 02 2b 54 |A +T | LEA.L 0x22b54,A0
000208ae 4a 10 |J | TST.B (A0)
000208b0 67 0e |g | BEQ 0x208c0
000208b2 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
000208b6 48 50 |HP | PEA.L (A0)
000208b8 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428
000208be 5c 4f |\O | ADDQ.L #0x6,A7
000208c0 4c df 01 00 |L | MOVEM.L (A7)+,A0
000208c4 4e 5e |N^ | UNLK A6
000208c6 4e 75 |Nu | RTS
000208c8 ; --------------------------------------------------------------------------------------
000208c8 ; OMSI PASCAL Function
000208c8 ; --------------------------------------------------------------------------------------
000208c8 4e 56 ff e2 |NV | LINK.W A6,#0xffe2
000208cc bf d5 | | CMPA.L (A5),A7
000208ce 62 06 |b | BHI 0x208d6
000208d0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000208d4 4e 76 |Nv | TRAPV
000208d6 de fc 00 1e | | ADDA.W #0x1e,A7
000208da 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7)
000208de 41 f9 00 02 2b 02 |A + | LEA.L 0x22b02,A0
000208e4 43 f9 00 02 2b 04 |C + | LEA.L 0x22b04,A1
000208ea 45 f9 00 02 2b 54 |E +T | LEA.L 0x22b54,A2
000208f0 72 01 |r | MOVEQ.L #0x01,D1
000208f2 4a 10 |J | TST.B (A0)
000208f4 67 18 |g | BEQ 0x2090e
000208f6 20 11 | | MOVE.L (A1),D0
000208f8 b0 81 | | CMP.L D1,D0
000208fa 6e 12 |n | BGT 0x2090e
000208fc 1f 3c 00 0a | < | MOVE.B #0x0a,-(A7)
00020900 48 52 |HR | PEA.L (A2)
00020902 4e b9 00 01 04 14 |N | JSR FSCALL_10414
00020908 5c 4f |\O | ADDQ.L #0x6,A7
0002090a 4e ba ff 86 |N | JSR 0x20892
0002090e 4a 10 |J | TST.B (A0)
00020910 67 06 |g | BEQ 0x20918
00020912 20 11 | | MOVE.L (A1),D0
00020914 b0 81 | | CMP.L D1,D0
00020916 6e 12 |n | BGT 0x2092a
00020918 1f 3c 00 06 | < | MOVE.B #0x06,-(A7)
0002091c 48 52 |HR | PEA.L (A2)
0002091e 4e b9 00 01 04 14 |N | JSR FSCALL_10414
00020924 5c 4f |\O | ADDQ.L #0x6,A7
00020926 4e ba ff 6a |N j | JSR 0x20892
0002092a 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2
0002092e 4e 5e |N^ | UNLK A6
00020930 4e 75 |Nu | RTS
00020932 ; --------------------------------------------------------------------------------------
00020932 ; OMSI PASCAL Function
00020932 ; <LVAR 0x008 1(w)>
00020932 ; --------------------------------------------------------------------------------------
00020932 4e 56 ff de |NV | LINK.W A6,#0xffde ; Spelunked
00020936 bf d5 | | CMPA.L (A5),A7
00020938 62 06 |b | BHI 0x20940
0002093a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002093e 4e 76 |Nv | TRAPV
00020940 de fc 00 1a | | ADDA.W #0x1a,A7
00020944 48 e7 83 00 |H | MOVEM.L D7+D6+D0,-(A7)
00020948 7e 00 |~ | MOVEQ.L #0x00,D7
0002094a 7c 00 || | MOVEQ.L #0x00,D6
0002094c 55 4f |UO | SUBQ.L #0x2,A7
0002094e 4e ba fe e4 |N | JSR 0x20834
00020952 4a 1f |J | TST.B (A7)+
00020954 67 06 |g | BEQ 0x2095c
00020956 1f 3c 00 09 | < | MOVE.B #0x09,-(A7)
0002095a 60 04 |` | BRA 0x20960
0002095c 1f 3c 00 08 | < | MOVE.B #0x08,-(A7)
00020960 48 79 00 02 2b 54 |Hy +T | PEA.L 0x22b54
00020966 4e b9 00 01 04 14 |N | JSR FSCALL_10414
0002096c 5c 4f |\O | ADDQ.L #0x6,A7
0002096e 4e ba ff 22 |N " | JSR 0x20892
00020972 70 00 |p | MOVEQ.L #0x00,D0
00020974 55 4f |UO | SUBQ.L #0x2,A7
00020976 4e ba fe bc |N | JSR 0x20834
0002097a be 1f | | CMP.B (A7)+,D7
0002097c 67 02 |g | BEQ 0x20980
0002097e 52 00 |R | ADDQ.B #0x1,D0
00020980 1e 00 | | MOVE.B D0,D7
00020982 52 86 |R | ADDQ.L #0x1,D6
00020984 0c 86 00 00 00 01 | | CMPI.L #0x00000001,D6
0002098a 6f c0 |o | BLE 0x2094c
0002098c 1d 47 00 08 | G | MOVE.B D7,(A6+0x8)
00020990 4c df 00 c1 |L | MOVEM.L (A7)+,D0+D6+D7
00020994 4e 5e |N^ | UNLK A6
00020996 4e 75 |Nu | RTS
00020998 ; --------------------------------------------------------------------------------------
00020998 ; OMSI PASCAL Function
00020998 ; <LVAR 0x00e 4(w)>
00020998 ; <LVAR 0x00c 2(rw)>
00020998 ; <LVAR 0x00a 2(r)>
00020998 ; <LVAR 0x008 4(r)>
00020998 ; <LVAR -0x00a @ 4(r)>
00020998 ; --------------------------------------------------------------------------------------
00020998 4e 56 ff d0 |NV | LINK.W A6,#0xffd0
0002099c bf d5 | | CMPA.L (A5),A7
0002099e 62 06 |b | BHI 0x209a6
000209a0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000209a4 4e 76 |Nv | TRAPV
000209a6 de fc 00 26 | & | ADDA.W #0x26,A7
000209aa 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7)
000209ae 43 ee ff f6 |C | LEA.L (A6-0xa),A1
000209b2 48 51 |HQ | PEA.L (A1)
000209b4 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
000209ba 58 4f |XO | ADDQ.L #0x4,A7
000209bc 20 51 | Q | MOVEA.L (A1),A0
000209be 2f 08 |/ | MOVE.L A0,-(A7)
000209c0 30 ae 00 0a |0 | MOVE.W (A6+0xa),(A0)
000209c4 2e 2e 00 08 |.. | MOVE.L (A6+0x8),D7
000209c8 0c 87 00 00 00 01 | | CMPI.L #0x00000001,D7
000209ce 6d 20 |m | BLT 0x209f0
000209d0 20 57 | W | MOVEA.L (A7),A0
000209d2 42 80 |B | CLR.L D0
000209d4 30 2e 00 0c |0. | MOVE.W (A6+0xc),D0
000209d8 80 fc 00 0a | | DIVU.W #0xa,D0
000209dc 22 00 |" | MOVE.L D0,D1
000209de 48 41 |HA | SWAP.W D1
000209e0 06 41 00 30 | A 0 | ADDI.W #0x0030,D1
000209e4 11 81 78 01 | x | MOVE.B D1,(A0+D7.L+#0x1)
000209e8 3d 40 00 0c |=@ | MOVE.W D0,(A6+0xc)
000209ec 53 87 |S | SUBQ.L #0x1,D7
000209ee 68 d8 |h | BVC 0x209c8
000209f0 58 4f |XO | ADDQ.L #0x4,A7
000209f2 2d 51 00 0e |-Q | MOVE.L (A1),(A6+0xe)
000209f6 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1
000209fa 4e 5e |N^ | UNLK A6
000209fc 4e 75 |Nu | RTS
000209fe ; --------------------------------------------------------------------------------------
000209fe ; OMSI PASCAL Function
000209fe ; <LVAR 0x010 4(r)>
000209fe ; <LVAR 0x00c @ 4(r)>
000209fe ; <LVAR 0x008 4(r)>
000209fe ; --------------------------------------------------------------------------------------
000209fe 4e 56 ff d4 |NV | LINK.W A6,#0xffd4
00020a02 bf d5 | | CMPA.L (A5),A7
00020a04 62 06 |b | BHI 0x20a0c
00020a06 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020a0a 4e 76 |Nv | TRAPV
00020a0c de fc 00 24 | $ | ADDA.W #0x24,A7
00020a10 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7)
00020a14 2c 2e 00 08 |,. | MOVE.L (A6+0x8),D6
00020a18 53 86 |S | SUBQ.L #0x1,D6
00020a1a 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0
00020a1e 2f 08 |/ | MOVE.L A0,-(A7)
00020a20 30 10 |0 | MOVE.W (A0),D0
00020a22 48 c0 |H | EXTW.L D0
00020a24 2f 00 |/ | MOVE.L D0,-(A7)
00020a26 7e 01 |~ | MOVEQ.L #0x01,D7
00020a28 be 97 | | CMP.L (A7),D7
00020a2a 6e 16 |n | BGT 0x20a42
00020a2c 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0
00020a30 20 07 | | MOVE.L D7,D0
00020a32 d0 86 | | ADD.L D6,D0
00020a34 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1
00020a38 11 b1 78 01 08 ff | x | MOVE.B (A1+D7.L+#0x1),(A0+D0.L-#0x1)
00020a3e 52 87 |R | ADDQ.L #0x1,D7
00020a40 68 e6 |h | BVC 0x20a28
00020a42 50 4f |PO | ADDQ.L #0x8,A7
00020a44 48 6e 00 0c |Hn | PEA.L (A6+0xc)
00020a48 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00020a4e 58 4f |XO | ADDQ.L #0x4,A7
00020a50 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1
00020a54 4e 5e |N^ | UNLK A6
00020a56 4e 75 |Nu | RTS
00020a58 ; --------------------------------------------------------------------------------------
00020a58 ; OMSI PASCAL Function
00020a58 ; <LVAR 0x008 4(r)>
00020a58 ; <LVAR -0x058 @>
00020a58 ; --------------------------------------------------------------------------------------
00020a58 4e 56 ff 84 |NV | LINK.W A6,#0xff84
00020a5c bf d5 | | CMPA.L (A5),A7
00020a5e 62 06 |b | BHI 0x20a66
00020a60 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020a64 4e 76 |Nv | TRAPV
00020a66 de fc 00 24 | $ | ADDA.W #0x24,A7
00020a6a 48 e7 e3 80 |H | MOVEM.L A0+D7+D6+D2+D1+D0,-(A7)
00020a6e 7e 01 |~ | MOVEQ.L #0x01,D7
00020a70 7c 01 || | MOVEQ.L #0x01,D6
00020a72 20 06 | | MOVE.L D6,D0
00020a74 e3 80 | | ASL.L #0x1,D0
00020a76 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
00020a7a 42 81 |B | CLR.L D1
00020a7c 12 30 78 ff | 0x | MOVE.B (A0+D7.L-#0x1),D1
00020a80 e1 41 | A | ASL.W #0x8,D1
00020a82 42 82 |B | CLR.L D2
00020a84 14 30 78 00 | 0x | MOVE.B (A0+D7.L),D2
00020a88 d4 41 | A | ADD.W D1,D2
00020a8a 3d 82 08 a6 |= | MOVE.W D2,(A6+D0.L-#0x5a)
00020a8e 54 87 |T | ADDQ.L #0x2,D7
00020a90 52 86 |R | ADDQ.L #0x1,D6
00020a92 0c 86 00 00 00 28 | ( | CMPI.L #0x00000028,D6
00020a98 6f d8 |o | BLE 0x20a72
00020a9a 41 ee ff a8 |A | LEA.L (A6-0x58),A0
00020a9e 2f 08 |/ | MOVE.L A0,-(A7)
00020aa0 3f 3c 00 50 |?< P | MOVE.W #0x50,-(A7)
00020aa4 4e b9 00 01 04 1c |N | JSR FSCALL_1041c
00020aaa 5c 4f |\O | ADDQ.L #0x6,A7
00020aac 4e ba fc 30 |N 0 | JSR 0x206de
00020ab0 4c df 01 c7 |L | MOVEM.L (A7)+,D0+D1+D2+D6+D7+A0
00020ab4 4e 5e |N^ | UNLK A6
00020ab6 4e 75 |Nu | RTS
00020ab8 ; --------------------------------------------------------------------------------------
00020ab8 ; OMSI PASCAL Function
00020ab8 ; --------------------------------------------------------------------------------------
00020ab8 4e 56 ff ec |NV | LINK.W A6,#0xffec
00020abc bf d5 | | CMPA.L (A5),A7
00020abe 62 06 |b | BHI 0x20ac6
00020ac0 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020ac4 4e 76 |Nv | TRAPV
00020ac6 de fc 00 10 | | ADDA.W #0x10,A7
00020aca 48 e7 01 80 |H | MOVEM.L A0+D7,-(A7)
00020ace 7e 01 |~ | MOVEQ.L #0x01,D7
00020ad0 41 f9 00 02 2a e4 |A * | LEA.L 0x22ae4,A0
00020ad6 41 f0 78 00 |A x | LEA.L (A0+D7.L),A0
00020ada 11 7c 00 20 41 61 | | Aa | MOVE.B #0x20,(A0+0x4161)
00020ae0 52 87 |R | ADDQ.L #0x1,D7
00020ae2 0c 87 00 00 00 50 | P | CMPI.L #0x00000050,D7
00020ae8 6f e6 |o | BLE 0x20ad0
00020aea 4c df 01 80 |L | MOVEM.L (A7)+,D7+A0
00020aee 4e 5e |N^ | UNLK A6
00020af0 4e 75 |Nu | RTS
00020af2 ; --------------------------------------------------------------------------------------
00020af2 ; OMSI PASCAL Function
00020af2 ; <LVAR 0x008 4(w)>
00020af2 ; <LVAR -0x004 @>
00020af2 ; <LVAR -0x00c @ 4(r)>
00020af2 ; --------------------------------------------------------------------------------------
00020af2 4e 56 ff d6 |NV | LINK.W A6,#0xffd6
00020af6 bf d5 | | CMPA.L (A5),A7
00020af8 62 06 |b | BHI 0x20b00
00020afa 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020afe 4e 76 |Nv | TRAPV
00020b00 de fc 00 1e | | ADDA.W #0x1e,A7
00020b04 48 e7 81 c0 |H | MOVEM.L A1+A0+D7+D0,-(A7)
00020b08 43 ee ff f4 |C | LEA.L (A6-0xc),A1
00020b0c 48 6e ff fc |Hn | PEA.L (A6-0x4)
00020b10 4e b9 00 01 05 9e |N | JSR ReadClusterNo(VAR a : Long)
00020b16 58 4f |XO | ADDQ.L #0x4,A7
00020b18 48 51 |HQ | PEA.L (A1)
00020b1a 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00020b20 58 4f |XO | ADDQ.L #0x4,A7
00020b22 7e 00 |~ | MOVEQ.L #0x00,D7
00020b24 2f 11 |/ | MOVE.L (A1),-(A7)
00020b26 42 80 |B | CLR.L D0
00020b28 10 36 78 fc | 6x | MOVE.B (A6+D7.L-#0x4),D0
00020b2c e8 40 | @ | ASR.W #0x4,D0
00020b2e 41 fa f6 2a |A * | LEA.L 0x2015a,A0
00020b32 1f 30 00 00 | 0 | MOVE.B (A0+D0.W),-(A7)
00020b36 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00020b3c 54 4f |TO | ADDQ.L #0x2,A7
00020b3e 2e 91 |. | MOVE.L (A1),(A7)
00020b40 42 80 |B | CLR.L D0
00020b42 10 36 78 fc | 6x | MOVE.B (A6+D7.L-#0x4),D0
00020b46 02 40 00 0f | @ | ANDI.W #0x000f,D0
00020b4a 41 fa f6 0e |A | LEA.L 0x2015a,A0
00020b4e 1f 30 00 00 | 0 | MOVE.B (A0+D0.W),-(A7)
00020b52 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char)
00020b58 5c 4f |\O | ADDQ.L #0x6,A7
00020b5a 52 87 |R | ADDQ.L #0x1,D7
00020b5c 0c 87 00 00 00 03 | | CMPI.L #0x00000003,D7
00020b62 6f c0 |o | BLE 0x20b24
00020b64 2d 51 00 08 |-Q | MOVE.L (A1),(A6+0x8)
00020b68 4c df 03 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1
00020b6c 4e 5e |N^ | UNLK A6
00020b6e 4e 75 |Nu | RTS
00020b70 ; --------------------------------------------------------------------------------------
00020b70 ; OMSI PASCAL Function
00020b70 ; --------------------------------------------------------------------------------------
00020b70 4e 56 ff 88 |NV | LINK.W A6,#0xff88
00020b74 bf d5 | | CMPA.L (A5),A7
00020b76 62 06 |b | BHI 0x20b7e
00020b78 44 fc 00 02 |D | MOVE.W #0x2,CCR
00020b7c 4e 76 |Nv | TRAPV
00020b7e de fc 00 70 | p | ADDA.W #0x70,A7
00020b82 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00020b86 45 f9 00 02 6c 46 |E lF | LEA.L 0x26c46,A2
00020b8c 47 fa fe 70 |G p | LEA.L 0x209fe,A3
00020b90 49 f9 00 02 2b 02 |I + | LEA.L 0x22b02,A4
00020b96 76 01 |v | MOVEQ.L #0x01,D3
00020b98 78 0e |x | MOVEQ.L #0x0e,D4
00020b9a 7a 12 |z | MOVEQ.L #0x12,D5
00020b9c 55 4f |UO | SUBQ.L #0x2,A7
00020b9e 4e ba fc 94 |N | JSR 0x20834
00020ba2 18 9f | | MOVE.B (A7)+,(A4)
00020ba4 44 14 |D | NEG.B (A4)
00020ba6 52 14 |R | ADDQ.B #0x1,(A4)
00020ba8 1f 3c 00 0b | < | MOVE.B #0x0b,-(A7)
00020bac 48 79 00 02 2b 54 |Hy +T | PEA.L 0x22b54
00020bb2 4e b9 00 01 04 14 |N | JSR FSCALL_10414
00020bb8 5c 4f |\O | ADDQ.L #0x6,A7
00020bba 4e ba fc d6 |N | JSR 0x20892
00020bbe 1f 3c 00 07 | < | MOVE.B #0x07,-(A7)
00020bc2 48 79 00 02 2b 54 |Hy +T | PEA.L 0x22b54
00020bc8 4e b9 00 01 04 14 |N | JSR FSCALL_10414
00020bce 5c 4f |\O | ADDQ.L #0x6,A7
00020bd0 4e ba fc c0 |N | JSR 0x20892
00020bd4 4e ba fe e2 |N | JSR 0x20ab8
00020bd8 2f 3a f5 d0 |/: | MOVE.L 0x201aa,-(A7)
00020bdc 48 52 |HR | PEA.L (A2)
00020bde 59 4f |YO | SUBQ.L #0x4,A7
00020be0 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020be4 3f 03 |? | MOVE.W D3,-(A7)
00020be6 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
00020bea 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020bf0 50 4f |PO | ADDQ.L #0x8,A7
00020bf2 48 78 00 01 |Hx | PEA.L 0x1
00020bf6 4e 93 |N | JSR (A3)
00020bf8 de c4 | | ADDA.W D4,A7
00020bfa 3e b9 00 02 6c 9a |> l | MOVE.W 0x26c9a,(A7)
00020c00 3f 39 00 02 6c 98 |?9 l | MOVE.W 0x26c98,-(A7)
00020c06 3f 39 00 02 6c 96 |?9 l | MOVE.W 0x26c96,-(A7)
00020c0c 48 52 |HR | PEA.L (A2)
00020c0e 59 4f |YO | SUBQ.L #0x4,A7
00020c10 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020c14 3f 03 |? | MOVE.W D3,-(A7)
00020c16 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7)
00020c1a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020c20 50 4f |PO | ADDQ.L #0x8,A7
00020c22 48 78 00 05 |Hx | PEA.L 0x5
00020c26 4e 93 |N | JSR (A3)
00020c28 de c5 | | ADDA.W D5,A7
00020c2a 42 39 00 02 6c 6b |B9 lk | CLR.B 0x26c6b
00020c30 41 fa f5 86 |A | LEA.L 0x201b8,A0
00020c34 70 04 |p | MOVEQ.L #0x04,D0
00020c36 3f 20 |? | MOVE.W -(A0),-(A7)
00020c38 51 c8 ff fc |Q | DBF D0,0x20c36
00020c3c 48 52 |HR | PEA.L (A2)
00020c3e 59 4f |YO | SUBQ.L #0x4,A7
00020c40 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020c44 3f 03 |? | MOVE.W D3,-(A7)
00020c46 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7)
00020c4a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020c50 50 4f |PO | ADDQ.L #0x8,A7
00020c52 48 78 00 27 |Hx ' | PEA.L 0x27
00020c56 4e 93 |N | JSR (A3)
00020c58 de fc 00 16 | | ADDA.W #0x16,A7
00020c5c 13 fc 00 33 00 02 6c 95 | 3 l | MOVE.B #0x33,0x26c95
00020c64 48 52 |HR | PEA.L (A2)
00020c66 4e ba fd f0 |N | JSR 0x20a58
00020c6a 54 4f |TO | ADDQ.L #0x2,A7
00020c6c 4e ba fb c6 |N | JSR 0x20834
00020c70 10 14 | | MOVE.B (A4),D0
00020c72 b0 1f | | CMP.B (A7)+,D0
00020c74 66 3a |f: | BNE 0x20cb0
00020c76 9e fc 00 1a | | SUBA.W #0x1a,A7
00020c7a 20 4f | O | MOVEA.L A7,A0
00020c7c 43 fa f5 3a |C : | LEA.L 0x201b8,A1
00020c80 70 18 |p | MOVEQ.L #0x18,D0
00020c82 10 d9 | | MOVE.B (A1)+,(A0)+
00020c84 51 c8 ff fc |Q | DBF D0,0x20c82
00020c88 59 4f |YO | SUBQ.L #0x4,A7
00020c8a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00020c8e 3f 03 |? | MOVE.W D3,-(A7)
00020c90 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
00020c94 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020c9a 50 4f |PO | ADDQ.L #0x8,A7
00020c9c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00020ca2 de fc 00 1c | | ADDA.W #0x1c,A7
00020ca6 4e ba fb 8c |N | JSR 0x20834
00020caa 18 9f | | MOVE.B (A7)+,(A4)
00020cac 44 14 |D | NEG.B (A4)
00020cae 52 14 |R | ADDQ.B #0x1,(A4)
00020cb0 4e ba fe 06 |N | JSR 0x20ab8
00020cb4 41 fa f5 44 |A D | LEA.L 0x201fa,A0
00020cb8 70 09 |p | MOVEQ.L #0x09,D0
00020cba 2f 20 |/ | MOVE.L -(A0),-(A7)
00020cbc 51 c8 ff fc |Q | DBF D0,0x20cba
00020cc0 48 52 |HR | PEA.L (A2)
00020cc2 59 4f |YO | SUBQ.L #0x4,A7
00020cc4 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020cc8 3f 03 |? | MOVE.W D3,-(A7)
00020cca 3f 3c 00 28 |?< ( | MOVE.W #0x28,-(A7)
00020cce 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020cd4 50 4f |PO | ADDQ.L #0x8,A7
00020cd6 48 78 00 01 |Hx | PEA.L 0x1
00020cda 4e 93 |N | JSR (A3)
00020cdc de fc 00 34 | 4 | ADDA.W #0x34,A7
00020ce0 48 52 |HR | PEA.L (A2)
00020ce2 4e ba fd 74 |N t | JSR 0x20a58
00020ce6 58 4f |XO | ADDQ.L #0x4,A7
00020ce8 4e ba fd ce |N | JSR 0x20ab8
00020cec 41 fa f5 1a |A | LEA.L 0x20208,A0
00020cf0 70 06 |p | MOVEQ.L #0x06,D0
00020cf2 3f 20 |? | MOVE.W -(A0),-(A7)
00020cf4 51 c8 ff fc |Q | DBF D0,0x20cf2
00020cf8 48 52 |HR | PEA.L (A2)
00020cfa 59 4f |YO | SUBQ.L #0x4,A7
00020cfc 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020d00 3f 03 |? | MOVE.W D3,-(A7)
00020d02 3f 04 |? | MOVE.W D4,-(A7)
00020d04 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020d0a 50 4f |PO | ADDQ.L #0x8,A7
00020d0c 48 78 00 01 |Hx | PEA.L 0x1
00020d10 4e 93 |N | JSR (A3)
00020d12 de fc 00 1a | | ADDA.W #0x1a,A7
00020d16 48 52 |HR | PEA.L (A2)
00020d18 59 4f |YO | SUBQ.L #0x4,A7
00020d1a 4e ba fd d6 |N | JSR 0x20af2
00020d1e 48 78 00 10 |Hx | PEA.L 0x10
00020d22 4e 93 |N | JSR (A3)
00020d24 20 4f | O | MOVEA.L A7,A0
00020d26 43 fa f4 e0 |C | LEA.L 0x20208,A1
00020d2a 70 0a |p | MOVEQ.L #0x0a,D0
00020d2c 10 d9 | | MOVE.B (A1)+,(A0)+
00020d2e 51 c8 ff fc |Q | DBF D0,0x20d2c
00020d32 48 52 |HR | PEA.L (A2)
00020d34 59 4f |YO | SUBQ.L #0x4,A7
00020d36 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020d3a 3f 03 |? | MOVE.W D3,-(A7)
00020d3c 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7)
00020d40 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020d46 50 4f |PO | ADDQ.L #0x8,A7
00020d48 48 78 00 1a |Hx | PEA.L 0x1a
00020d4c 4e 93 |N | JSR (A3)
00020d4e de fc 00 18 | | ADDA.W #0x18,A7
00020d52 48 52 |HR | PEA.L (A2)
00020d54 59 4f |YO | SUBQ.L #0x4,A7
00020d56 2f 39 00 02 2b 50 |/9 +P | MOVE.L 0x22b50,-(A7)
00020d5c 4e b9 00 01 03 08 |N | JSR TimeToText()
00020d62 58 4f |XO | ADDQ.L #0x4,A7
00020d64 48 78 00 26 |Hx & | PEA.L 0x26
00020d68 4e 93 |N | JSR (A3)
00020d6a de fc 00 0c | | ADDA.W #0xc,A7
00020d6e 4a 14 |J | TST.B (A4)
00020d70 67 0a |g | BEQ 0x20d7c
00020d72 13 fc 00 47 00 02 6c 93 | G l | MOVE.B #0x47,0x26c93
00020d7a 60 08 |` | BRA 0x20d84
00020d7c 13 fc 00 50 00 02 6c 93 | P l | MOVE.B #0x50,0x26c93
00020d84 3f 3a f3 a8 |?: | MOVE.W 0x2012e,-(A7)
00020d88 48 52 |HR | PEA.L (A2)
00020d8a 59 4f |YO | SUBQ.L #0x4,A7
00020d8c 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020d90 3f 03 |? | MOVE.W D3,-(A7)
00020d92 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00020d96 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020d9c 50 4f |PO | ADDQ.L #0x8,A7
00020d9e 48 78 00 4f |Hx O | PEA.L 0x4f
00020da2 4e 93 |N | JSR (A3)
00020da4 de fc 00 0c | | ADDA.W #0xc,A7
00020da8 4e b9 00 01 06 04 |N | JSR Is_machine_type_three() : Bool
00020dae 4a 1f |J | TST.B (A7)+
00020db0 66 0c |f | BNE 0x20dbe
00020db2 55 4f |UO | SUBQ.L #0x2,A7
00020db4 4e b9 00 01 06 0a |N | JSR Is_machine_type_four() : Bool
00020dba 4a 1f |J | TST.B (A7)+
00020dbc 67 12 |g | BEQ 0x20dd0
00020dbe 5d 4f |]O | SUBQ.L #0x6,A7
00020dc0 20 4f | O | MOVEA.L A7,A0
00020dc2 43 fa f4 50 |C P | LEA.L 0x20214,A1
00020dc6 70 04 |p | MOVEQ.L #0x04,D0
00020dc8 10 d9 | | MOVE.B (A1)+,(A0)+
00020dca 51 c8 ff fc |Q | DBF D0,0x20dc8
00020dce 60 3a |`: | BRA 0x20e0a
00020dd0 55 4f |UO | SUBQ.L #0x2,A7
00020dd2 4e b9 00 01 05 f8 |N | JSR Is_machine_type_one() : Bool
00020dd8 4a 1f |J | TST.B (A7)+
00020dda 66 0c |f | BNE 0x20de8
00020ddc 55 4f |UO | SUBQ.L #0x2,A7
00020dde 4e b9 00 01 05 fe |N | JSR Is_machine_type_two() : Bool
00020de4 4a 1f |J | TST.B (A7)+
00020de6 67 12 |g | BEQ 0x20dfa
00020de8 5d 4f |]O | SUBQ.L #0x6,A7
00020dea 20 4f | O | MOVEA.L A7,A0
00020dec 43 fa f4 2c |C , | LEA.L 0x2021a,A1
00020df0 70 04 |p | MOVEQ.L #0x04,D0
00020df2 10 d9 | | MOVE.B (A1)+,(A0)+
00020df4 51 c8 ff fc |Q | DBF D0,0x20df2
00020df8 60 10 |` | BRA 0x20e0a
00020dfa 5d 4f |]O | SUBQ.L #0x6,A7
00020dfc 20 4f | O | MOVEA.L A7,A0
00020dfe 43 fa f4 20 |C | LEA.L 0x20220,A1
00020e02 70 04 |p | MOVEQ.L #0x04,D0
00020e04 10 d9 | | MOVE.B (A1)+,(A0)+
00020e06 51 c8 ff fc |Q | DBF D0,0x20e04
00020e0a 48 52 |HR | PEA.L (A2)
00020e0c 59 4f |YO | SUBQ.L #0x4,A7
00020e0e 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020e12 3f 03 |? | MOVE.W D3,-(A7)
00020e14 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00020e18 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020e1e 50 4f |PO | ADDQ.L #0x8,A7
00020e20 48 78 00 3a |Hx : | PEA.L 0x3a
00020e24 4e 93 |N | JSR (A3)
00020e26 de c5 | | ADDA.W D5,A7
00020e28 48 52 |HR | PEA.L (A2)
00020e2a 59 4f |YO | SUBQ.L #0x4,A7
00020e2c 3f 39 00 02 2b 1e |?9 + | MOVE.W 0x22b1e,-(A7)
00020e32 48 78 00 01 |Hx | PEA.L 0x1
00020e36 4e ba fb 60 |N ` | JSR 0x20998
00020e3a 5c 4f |\O | ADDQ.L #0x6,A7
00020e3c 48 78 00 40 |Hx @ | PEA.L 0x40
00020e40 4e 93 |N | JSR (A3)
00020e42 de fc 00 0a | | ADDA.W #0xa,A7
00020e46 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool
00020e4c 4a 1f |J | TST.B (A7)+
00020e4e 67 12 |g | BEQ 0x20e62
00020e50 5d 4f |]O | SUBQ.L #0x6,A7
00020e52 20 4f | O | MOVEA.L A7,A0
00020e54 43 fa f3 d0 |C | LEA.L 0x20226,A1
00020e58 70 04 |p | MOVEQ.L #0x04,D0
00020e5a 10 d9 | | MOVE.B (A1)+,(A0)+
00020e5c 51 c8 ff fc |Q | DBF D0,0x20e5a
00020e60 60 10 |` | BRA 0x20e72
00020e62 5d 4f |]O | SUBQ.L #0x6,A7
00020e64 20 4f | O | MOVEA.L A7,A0
00020e66 43 fa f3 c4 |C | LEA.L 0x2022c,A1
00020e6a 70 04 |p | MOVEQ.L #0x04,D0
00020e6c 10 d9 | | MOVE.B (A1)+,(A0)+
00020e6e 51 c8 ff fc |Q | DBF D0,0x20e6c
00020e72 48 52 |HR | PEA.L (A2)
00020e74 59 4f |YO | SUBQ.L #0x4,A7
00020e76 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020e7a 3f 03 |? | MOVE.W D3,-(A7)
00020e7c 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
00020e80 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020e86 50 4f |PO | ADDQ.L #0x8,A7
00020e88 48 78 00 42 |Hx B | PEA.L 0x42
00020e8c 4e 93 |N | JSR (A3)
00020e8e de c5 | | ADDA.W D5,A7
00020e90 48 52 |HR | PEA.L (A2)
00020e92 4e ba fb c4 |N | JSR 0x20a58
00020e96 58 4f |XO | ADDQ.L #0x4,A7
00020e98 30 39 00 02 2b 52 |09 +R | MOVE.W 0x22b52,D0
00020e9e ef 48 | H | LSL.W #0x7,D0
00020ea0 e0 48 | H | LSR.W #0x8,D0
00020ea2 e8 48 | H | LSR.W #0x4,D0
00020ea4 32 00 |2 | MOVE.W D0,D1
00020ea6 e5 41 | A | ASL.W #0x2,D1
00020ea8 41 fa f6 66 |A f | LEA.L 0x20510,A0
00020eac 42 82 |B | CLR.L D2
00020eae 14 39 00 02 2b 53 | 9 +S | MOVE.B 0x22b53,D2
00020eb4 e7 0a | | LSL.B #0x3,D2
00020eb6 e6 0a | | LSR.B #0x3,D2
00020eb8 d4 b0 10 fc | | ADD.L (A0+D1.W-#0x4),D2
00020ebc 3c 02 |< | MOVE.W D2,D6
00020ebe 0c 40 00 02 | @ | CMPI.W #0x0002,D0
00020ec2 6f 1c |o | BLE 0x20ee0
00020ec4 42 80 |B | CLR.L D0
00020ec6 10 39 00 02 2b 52 | 9 +R | MOVE.B 0x22b52,D0
00020ecc e2 08 | | LSR.B #0x1,D0
00020ece 02 40 00 03 | @ | ANDI.W #0x0003,D0
00020ed2 0c 40 00 03 | @ | CMPI.W #0x0003,D0
00020ed6 66 08 |f | BNE 0x20ee0
00020ed8 42 80 |B | CLR.L D0
00020eda 30 06 |0 | MOVE.W D6,D0
00020edc 52 80 |R | ADDQ.L #0x1,D0
00020ede 3c 00 |< | MOVE.W D0,D6
00020ee0 4e ba fb d6 |N | JSR 0x20ab8
00020ee4 41 f9 00 02 6b 56 |A kV | LEA.L 0x26b56,A0
00020eea 22 4a |"J | MOVEA.L A2,A1
00020eec 70 13 |p | MOVEQ.L #0x13,D0
00020eee 20 d9 | | MOVE.L (A1)+,(A0)+
00020ef0 51 c8 ff fc |Q | DBF D0,0x20eee
00020ef4 13 fc 00 31 00 02 6b 59 | 1 kY| MOVE.B #0x31,0x26b59
00020efc 3f 39 00 02 6c 9a |?9 l | MOVE.W 0x26c9a,-(A7)
00020f02 3f 39 00 02 6c 98 |?9 l | MOVE.W 0x26c98,-(A7)
00020f08 3f 39 00 02 6c 96 |?9 l | MOVE.W 0x26c96,-(A7)
00020f0e 48 79 00 02 6b 56 |Hy kV | PEA.L 0x26b56
00020f14 59 4f |YO | SUBQ.L #0x4,A7
00020f16 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020f1a 3f 03 |? | MOVE.W D3,-(A7)
00020f1c 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7)
00020f20 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020f26 50 4f |PO | ADDQ.L #0x8,A7
00020f28 48 78 00 16 |Hx | PEA.L 0x16
00020f2c 4e 93 |N | JSR (A3)
00020f2e de c5 | | ADDA.W D5,A7
00020f30 41 fa f3 0e |A | LEA.L 0x20240,A0
00020f34 70 06 |p | MOVEQ.L #0x06,D0
00020f36 3f 20 |? | MOVE.W -(A0),-(A7)
00020f38 51 c8 ff fc |Q | DBF D0,0x20f36
00020f3c 48 79 00 02 6b 56 |Hy kV | PEA.L 0x26b56
00020f42 59 4f |YO | SUBQ.L #0x4,A7
00020f44 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020f48 3f 03 |? | MOVE.W D3,-(A7)
00020f4a 3f 04 |? | MOVE.W D4,-(A7)
00020f4c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020f52 50 4f |PO | ADDQ.L #0x8,A7
00020f54 48 78 00 1c |Hx | PEA.L 0x1c
00020f58 4e 93 |N | JSR (A3)
00020f5a de fc 00 1a | | ADDA.W #0x1a,A7
00020f5e 48 79 00 02 6b 56 |Hy kV | PEA.L 0x26b56
00020f64 59 4f |YO | SUBQ.L #0x4,A7
00020f66 42 80 |B | CLR.L D0
00020f68 10 39 00 02 2b 52 | 9 +R | MOVE.B 0x22b52,D0
00020f6e e2 08 | | LSR.B #0x1,D0
00020f70 52 40 |R@ | ADDQ.W #0x1,D0
00020f72 3f 00 |? | MOVE.W D0,-(A7)
00020f74 48 78 00 02 |Hx | PEA.L 0x2
00020f78 4e ba fa 1e |N | JSR 0x20998
00020f7c 5c 4f |\O | ADDQ.L #0x6,A7
00020f7e 48 78 00 2b |Hx + | PEA.L 0x2b
00020f82 4e 93 |N | JSR (A3)
00020f84 de fc 00 0c | | ADDA.W #0xc,A7
00020f88 48 79 00 02 6b 56 |Hy kV | PEA.L 0x26b56
00020f8e 59 4f |YO | SUBQ.L #0x4,A7
00020f90 3f 06 |? | MOVE.W D6,-(A7)
00020f92 48 78 00 03 |Hx | PEA.L 0x3
00020f96 4e ba fa 00 |N | JSR 0x20998
00020f9a 5c 4f |\O | ADDQ.L #0x6,A7
00020f9c 48 78 00 2d |Hx - | PEA.L 0x2d
00020fa0 4e 93 |N | JSR (A3)
00020fa2 9e c4 | | SUBA.W D4,A7
00020fa4 20 4f | O | MOVEA.L A7,A0
00020fa6 43 fa f2 98 |C | LEA.L 0x20240,A1
00020faa 70 18 |p | MOVEQ.L #0x18,D0
00020fac 10 d9 | | MOVE.B (A1)+,(A0)+
00020fae 51 c8 ff fc |Q | DBF D0,0x20fac
00020fb2 48 79 00 02 6b 56 |Hy kV | PEA.L 0x26b56
00020fb8 59 4f |YO | SUBQ.L #0x4,A7
00020fba 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020fbe 3f 03 |? | MOVE.W D3,-(A7)
00020fc0 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7)
00020fc4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00020fca 50 4f |PO | ADDQ.L #0x8,A7
00020fcc 48 78 00 31 |Hx 1 | PEA.L 0x31
00020fd0 4e 93 |N | JSR (A3)
00020fd2 de fc 00 26 | & | ADDA.W #0x26,A7
00020fd6 41 f9 00 02 6b a6 |A k | LEA.L 0x26ba6,A0
00020fdc 22 4a |"J | MOVEA.L A2,A1
00020fde 70 13 |p | MOVEQ.L #0x13,D0
00020fe0 20 d9 | | MOVE.L (A1)+,(A0)+
00020fe2 51 c8 ff fc |Q | DBF D0,0x20fe0
00020fe6 3f 3a f2 72 |?: r | MOVE.W 0x2025a,-(A7)
00020fea 48 79 00 02 6b a6 |Hy k | PEA.L 0x26ba6
00020ff0 59 4f |YO | SUBQ.L #0x4,A7
00020ff2 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00020ff6 3f 03 |? | MOVE.W D3,-(A7)
00020ff8 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7)
00020ffc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021002 50 4f |PO | ADDQ.L #0x8,A7
00021004 48 78 00 04 |Hx | PEA.L 0x4
00021008 4e 93 |N | JSR (A3)
0002100a de c4 | | ADDA.W D4,A7
0002100c 48 79 00 02 6b a6 |Hy k | PEA.L 0x26ba6
00021012 59 4f |YO | SUBQ.L #0x4,A7
00021014 3f 39 00 02 2b 0a |?9 + | MOVE.W 0x22b0a,-(A7)
0002101a 48 78 00 05 |Hx | PEA.L 0x5
0002101e 4e ba f9 78 |N x | JSR 0x20998
00021022 5c 4f |\O | ADDQ.L #0x6,A7
00021024 48 78 00 06 |Hx | PEA.L 0x6
00021028 4e 93 |N | JSR (A3)
0002102a 5c 4f |\O | ADDQ.L #0x6,A7
0002102c 20 4f | O | MOVEA.L A7,A0
0002102e 43 fa f2 2c |C , | LEA.L 0x2025c,A1
00021032 70 04 |p | MOVEQ.L #0x04,D0
00021034 10 d9 | | MOVE.B (A1)+,(A0)+
00021036 51 c8 ff fc |Q | DBF D0,0x21034
0002103a 48 79 00 02 6b a6 |Hy k | PEA.L 0x26ba6
00021040 59 4f |YO | SUBQ.L #0x4,A7
00021042 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021046 3f 03 |? | MOVE.W D3,-(A7)
00021048 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
0002104c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021052 50 4f |PO | ADDQ.L #0x8,A7
00021054 48 78 00 0b |Hx | PEA.L 0xb
00021058 4e 93 |N | JSR (A3)
0002105a de c5 | | ADDA.W D5,A7
0002105c 7e 10 |~ | MOVEQ.L #0x10,D7
0002105e 41 f9 00 02 2a e4 |A * | LEA.L 0x22ae4,A0
00021064 41 f0 78 00 |A x | LEA.L (A0+D7.L),A0
00021068 11 7c 00 30 40 c1 | | 0@ | MOVE.B #0x30,(A0+0x40c1)
0002106e 52 87 |R | ADDQ.L #0x1,D7
00021070 0c 87 00 00 00 34 | 4 | CMPI.L #0x00000034,D7
00021076 6f e6 |o | BLE 0x2105e
00021078 41 f9 00 02 6b f6 |A k | LEA.L 0x26bf6,A0
0002107e 22 4a |"J | MOVEA.L A2,A1
00021080 70 13 |p | MOVEQ.L #0x13,D0
00021082 20 d9 | | MOVE.L (A1)+,(A0)+
00021084 51 c8 ff fc |Q | DBF D0,0x21082
00021088 13 fc 00 33 00 02 6b f9 | 3 k | MOVE.B #0x33,0x26bf9
00021090 42 b9 00 02 2a f8 |B * | CLR.L 0x22af8
00021096 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
0002109a 4e 5e |N^ | UNLK A6
0002109c 4e 75 |Nu | RTS
0002109e ; --------------------------------------------------------------------------------------
0002109e ; OMSI PASCAL Function
0002109e ; <LVAR 0x00e 4(r)>
0002109e ; <LVAR 0x00c 2(r)>
0002109e ; <LVAR 0x008 4(r)>
0002109e ; <LVAR -0x006 4(rw)>
0002109e ; --------------------------------------------------------------------------------------
0002109e 4e 56 ff 9a |NV | LINK.W A6,#0xff9a
000210a2 bf d5 | | CMPA.L (A5),A7
000210a4 62 06 |b | BHI 0x210ac
000210a6 44 fc 00 02 |D | MOVE.W #0x2,CCR
000210aa 4e 76 |Nv | TRAPV
000210ac de fc 00 54 | T | ADDA.W #0x54,A7
000210b0 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
000210b4 45 fa f9 48 |E H | LEA.L 0x209fe,A2
000210b8 47 fa f8 de |G | LEA.L 0x20998,A3
000210bc 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
000210c2 72 0c |r | MOVEQ.L #0x0c,D1
000210c4 74 01 |t | MOVEQ.L #0x01,D2
000210c6 2f 3a f1 9e |/: | MOVE.L 0x20266,-(A7)
000210ca 2f 3a f1 96 |/: | MOVE.L 0x20262,-(A7)
000210ce 51 4f |QO | SUBQ.L #0x8,A7
000210d0 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000210d4 3f 02 |? | MOVE.W D2,-(A7)
000210d6 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7)
000210da 4e 94 |N | JSR (A4)
000210dc 2e ae 00 0e |. | MOVE.L (A6+0xe),(A7)
000210e0 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
000210e6 58 4f |XO | ADDQ.L #0x4,A7
000210e8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000210ee 50 4f |PO | ADDQ.L #0x8,A7
000210f0 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
000210f6 de c1 | | ADDA.W D1,A7
000210f8 52 b9 00 02 2a f8 |R * | ADDQ.L #0x1,0x22af8
000210fe 42 b9 00 02 2a f0 |B * | CLR.L 0x22af0
00021104 42 b9 00 02 2a f4 |B * | CLR.L 0x22af4
0002110a 42 b9 00 02 2a fc |B * | CLR.L 0x22afc
00021110 59 4f |YO | SUBQ.L #0x4,A7
00021112 2f 2e 00 0e |/. | MOVE.L (A6+0xe),-(A7)
00021116 48 78 00 1e |Hx | PEA.L 0x1e
0002111a 4e b9 00 01 02 f8 |N | JSR LeftPad(a : String; b : Long) : String
00021120 50 4f |PO | ADDQ.L #0x8,A7
00021122 2d 5f ff fa |-_ | MOVE.L (A7)+,(A6-0x6)
00021126 20 6e ff fa | n | MOVEA.L (A6-0x6),A0
0002112a 10 28 00 0c | ( | MOVE.B (A0+0xc),D0
0002112e 0c 00 00 2e | . | CMPI.B #0x2e,D0
00021132 66 04 |f | BNE 0x21138
00021134 7a 0c |z | MOVEQ.L #0x0c,D5
00021136 60 02 |` | BRA 0x2113a
00021138 7a 01 |z | MOVEQ.L #0x01,D5
0002113a 7c 05 || | MOVEQ.L #0x05,D6
0002113c 2f 05 |/ | MOVE.L D5,-(A7)
0002113e 06 97 00 00 00 10 | | ADDI.L #0x00000010,(A7)
00021144 2e 05 |. | MOVE.L D5,D7
00021146 be 97 | | CMP.L (A7),D7
00021148 6e 20 |n | BGT 0x2116a
0002114a 20 6e ff fa | n | MOVEA.L (A6-0x6),A0
0002114e 43 f9 00 02 2a e4 |C * | LEA.L 0x22ae4,A1
00021154 43 f1 68 00 |C h | LEA.L (A1+D6.L),A1
00021158 13 70 78 01 40 71 | px @q | MOVE.B (A0+D7.L+#0x1),(A1+0x4071)
0002115e 13 70 78 01 41 11 | px A | MOVE.B (A0+D7.L+#0x1),(A1+0x4111)
00021164 52 86 |R | ADDQ.L #0x1,D6
00021166 52 87 |R | ADDQ.L #0x1,D7
00021168 68 dc |h | BVC 0x21146
0002116a 58 4f |XO | ADDQ.L #0x4,A7
0002116c 48 79 00 02 6b 56 |Hy kV | PEA.L 0x26b56
00021172 59 4f |YO | SUBQ.L #0x4,A7
00021174 3f 39 00 02 2a fa |?9 * | MOVE.W 0x22afa,-(A7)
0002117a 48 78 00 04 |Hx | PEA.L 0x4
0002117e 4e 93 |N | JSR (A3)
00021180 5c 4f |\O | ADDQ.L #0x6,A7
00021182 48 78 00 20 |Hx | PEA.L 0x20
00021186 4e 92 |N | JSR (A2)
00021188 de fc 00 0a | | ADDA.W #0xa,A7
0002118c 3e ba f0 e0 |> | MOVE.W 0x2026e,(A7)
00021190 3f 3a f0 da |?: | MOVE.W 0x2026c,-(A7)
00021194 3f 3a f0 d4 |?: | MOVE.W 0x2026a,-(A7)
00021198 48 79 00 02 6b 56 |Hy kV | PEA.L 0x26b56
0002119e 59 4f |YO | SUBQ.L #0x4,A7
000211a0 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000211a4 3f 02 |? | MOVE.W D2,-(A7)
000211a6 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7)
000211aa 4e 94 |N | JSR (A4)
000211ac 50 4f |PO | ADDQ.L #0x8,A7
000211ae 48 78 00 37 |Hx 7 | PEA.L 0x37
000211b2 4e 92 |N | JSR (A2)
000211b4 de fc 00 12 | | ADDA.W #0x12,A7
000211b8 7e 01 |~ | MOVEQ.L #0x01,D7
000211ba 28 07 |( | MOVE.L D7,D4
000211bc 76 50 |vP | MOVEQ.L #0x50,D3
000211be 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
000211c4 41 f9 00 02 2a e4 |A * | LEA.L 0x22ae4,A0
000211ca 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0
000211ce 59 4f |YO | SUBQ.L #0x4,A7
000211d0 1e ba f0 9e | | MOVE.B 0x20270,(A7)
000211d4 1f 7a f0 9b 00 01 | z | MOVE.B 0x20271,(A7+0x1)
000211da 1f 7a f0 96 00 02 | z | MOVE.B 0x20272,(A7+0x2)
000211e0 48 68 40 22 |Hh@" | PEA.L (A0+0x4022)
000211e4 59 4f |YO | SUBQ.L #0x4,A7
000211e6 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000211ea 3f 02 |? | MOVE.W D2,-(A7)
000211ec 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7)
000211f0 4e 94 |N | JSR (A4)
000211f2 50 4f |PO | ADDQ.L #0x8,A7
000211f4 48 78 00 01 |Hx | PEA.L 0x1
000211f8 4e 92 |N | JSR (A2)
000211fa de fc 00 10 | | ADDA.W #0x10,A7
000211fe 48 68 40 22 |Hh@" | PEA.L (A0+0x4022)
00021202 4e ba f8 54 |N T | JSR 0x20a58
00021206 58 4f |XO | ADDQ.L #0x4,A7
00021208 52 87 |R | ADDQ.L #0x1,D7
0002120a 0c 87 00 00 00 03 | | CMPI.L #0x00000003,D7
00021210 6f a8 |o | BLE 0x211ba
00021212 4e ba f8 a4 |N | JSR 0x20ab8
00021216 2f 3a f0 5c |/: \ | MOVE.L 0x20274,-(A7)
0002121a 48 79 00 02 6c 46 |Hy lF | PEA.L 0x26c46
00021220 59 4f |YO | SUBQ.L #0x4,A7
00021222 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021226 3f 02 |? | MOVE.W D2,-(A7)
00021228 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
0002122c 4e 94 |N | JSR (A4)
0002122e 50 4f |PO | ADDQ.L #0x8,A7
00021230 48 78 00 01 |Hx | PEA.L 0x1
00021234 4e 92 |N | JSR (A2)
00021236 de fc 00 10 | | ADDA.W #0x10,A7
0002123a 48 79 00 02 6c 46 |Hy lF | PEA.L 0x26c46
00021240 2f 2e ff fa |/. | MOVE.L (A6-0x6),-(A7)
00021244 48 78 00 05 |Hx | PEA.L 0x5
00021248 4e 92 |N | JSR (A2)
0002124a de c1 | | ADDA.W D1,A7
0002124c 48 79 00 02 6c 46 |Hy lF | PEA.L 0x26c46
00021252 59 4f |YO | SUBQ.L #0x4,A7
00021254 3f 2e 00 0c |?. | MOVE.W (A6+0xc),-(A7)
00021258 48 78 00 05 |Hx | PEA.L 0x5
0002125c 4e 93 |N | JSR (A3)
0002125e 5c 4f |\O | ADDQ.L #0x6,A7
00021260 48 78 00 23 |Hx # | PEA.L 0x23
00021264 4e 92 |N | JSR (A2)
00021266 de c1 | | ADDA.W D1,A7
00021268 48 79 00 02 6c 46 |Hy lF | PEA.L 0x26c46
0002126e 59 4f |YO | SUBQ.L #0x4,A7
00021270 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7)
00021274 48 78 00 05 |Hx | PEA.L 0x5
00021278 4e 93 |N | JSR (A3)
0002127a 5c 4f |\O | ADDQ.L #0x6,A7
0002127c 48 78 00 28 |Hx ( | PEA.L 0x28
00021280 4e 92 |N | JSR (A2)
00021282 de c1 | | ADDA.W D1,A7
00021284 48 79 00 02 6c 46 |Hy lF | PEA.L 0x26c46
0002128a 59 4f |YO | SUBQ.L #0x4,A7
0002128c 3f 39 00 02 2b 06 |?9 + | MOVE.W 0x22b06,-(A7)
00021292 48 78 00 02 |Hx | PEA.L 0x2
00021296 4e 93 |N | JSR (A3)
00021298 5c 4f |\O | ADDQ.L #0x6,A7
0002129a 48 78 00 2d |Hx - | PEA.L 0x2d
0002129e 4e 92 |N | JSR (A2)
000212a0 de c1 | | ADDA.W D1,A7
000212a2 13 fc 00 44 00 02 6c 74 | D lt| MOVE.B #0x44,0x26c74
000212aa 48 79 00 02 6c 46 |Hy lF | PEA.L 0x26c46
000212b0 59 4f |YO | SUBQ.L #0x4,A7
000212b2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000212b6 4e b9 00 01 03 08 |N | JSR TimeToText()
000212bc 58 4f |XO | ADDQ.L #0x4,A7
000212be 48 78 00 30 |Hx 0 | PEA.L 0x30
000212c2 4e 92 |N | JSR (A2)
000212c4 de c1 | | ADDA.W D1,A7
000212c6 48 79 00 02 6c 46 |Hy lF | PEA.L 0x26c46
000212cc 59 4f |YO | SUBQ.L #0x4,A7
000212ce 3f 02 |? | MOVE.W D2,-(A7)
000212d0 48 78 00 02 |Hx | PEA.L 0x2
000212d4 4e 93 |N | JSR (A3)
000212d6 5c 4f |\O | ADDQ.L #0x6,A7
000212d8 48 78 00 4f |Hx O | PEA.L 0x4f
000212dc 4e 92 |N | JSR (A2)
000212de de c1 | | ADDA.W D1,A7
000212e0 48 79 00 02 6c 46 |Hy lF | PEA.L 0x26c46
000212e6 4e ba f7 70 |N p | JSR 0x20a58
000212ea 58 4f |XO | ADDQ.L #0x4,A7
000212ec 4e b9 00 01 04 20 |N | JSR FSCALL_10420
000212f2 13 c2 00 02 2b 03 | + | MOVE.B D2,0x22b03
000212f8 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
000212fc 4e 5e |N^ | UNLK A6
000212fe 4e 75 |Nu | RTS
00021300 ; --------------------------------------------------------------------------------------
00021300 ; OMSI PASCAL Function
00021300 ; --------------------------------------------------------------------------------------
00021300 4e 56 ff e6 |NV | LINK.W A6,#0xffe6
00021304 bf d5 | | CMPA.L (A5),A7
00021306 62 06 |b | BHI 0x2130e
00021308 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002130c 4e 76 |Nv | TRAPV
0002130e de fc 00 1a | | ADDA.W #0x1a,A7
00021312 48 e7 80 e0 |H | MOVEM.L A2+A1+A0+D0,-(A7)
00021316 43 f9 00 02 2a fc |C * | LEA.L 0x22afc,A1
0002131c 45 f9 00 02 2a f4 |E * | LEA.L 0x22af4,A2
00021322 52 91 |R | ADDQ.L #0x1,(A1)
00021324 20 11 | | MOVE.L (A1),D0
00021326 b0 b9 00 02 2b 04 | + | CMP.L 0x22b04,D0
0002132c 66 38 |f8 | BNE 0x21366
0002132e 4e ba f3 ae |N | JSR 0x206de
00021332 20 12 | | MOVE.L (A2),D0
00021334 e1 80 | | ASL.L #0x8,D0
00021336 eb 80 | | ASL.L #0x5,D0
00021338 41 f9 00 02 2a e4 |A * | LEA.L 0x22ae4,A0
0002133e 41 f0 08 72 |A r | LEA.L (A0+D0.L+#0x72),A0
00021342 2f 08 |/ | MOVE.L A0,-(A7)
00021344 3f 39 00 02 2b 0a |?9 + | MOVE.W 0x22b0a,-(A7)
0002134a 4e b9 00 01 04 1c |N | JSR FSCALL_1041c
00021350 5c 4f |\O | ADDQ.L #0x6,A7
00021352 13 fc 00 01 00 02 2b 03 | + | MOVE.B #0x01,0x22b03
0002135a 52 b9 00 02 2a f0 |R * | ADDQ.L #0x1,0x22af0
00021360 44 92 |D | NEG.L (A2)
00021362 52 92 |R | ADDQ.L #0x1,(A2)
00021364 42 91 |B | CLR.L (A1)
00021366 4c df 07 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2
0002136a 4e 5e |N^ | UNLK A6
0002136c 4e 75 |Nu | RTS
0002136e ; --------------------------------------------------------------------------------------
0002136e ; OMSI PASCAL Function
0002136e ; --------------------------------------------------------------------------------------
0002136e 4e 56 ff ac |NV | LINK.W A6,#0xffac
00021372 bf d5 | | CMPA.L (A5),A7
00021374 62 06 |b | BHI 0x2137c
00021376 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002137a 4e 76 |Nv | TRAPV
0002137c de fc 00 50 | P | ADDA.W #0x50,A7
00021380 48 e7 fd f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7)
00021384 45 f9 00 02 2a fc |E * | LEA.L 0x22afc,A2
0002138a 47 f9 00 02 2a e4 |G * | LEA.L 0x22ae4,A3
00021390 49 fa f3 4c |I L | LEA.L 0x206de,A4
00021394 74 01 |t | MOVEQ.L #0x01,D2
00021396 7a 03 |z | MOVEQ.L #0x03,D5
00021398 4a 92 |J | TST.L (A2)
0002139a 67 6a |gj | BEQ 0x21406
0002139c 7e 00 |~ | MOVEQ.L #0x00,D7
0002139e 20 39 00 02 2a f4 | 9 * | MOVE.L 0x22af4,D0
000213a4 e1 80 | | ASL.L #0x8,D0
000213a6 eb 80 | | ASL.L #0x5,D0
000213a8 20 4b | K | MOVEA.L A3,A0
000213aa 22 12 |" | MOVE.L (A2),D1
000213ac e1 81 | | ASL.L #0x8,D1
000213ae e5 81 | | ASL.L #0x2,D1
000213b0 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
000213b4 20 07 | | MOVE.L D7,D0
000213b6 e3 80 | | ASL.L #0x1,D0
000213b8 41 f0 18 00 |A | LEA.L (A0+D1.L),A0
000213bc 31 bc 5e 5e 08 72 |1 ^^ r | MOVE.W #0x5e5e,(A0+D0.L+#0x72)
000213c2 52 87 |R | ADDQ.L #0x1,D7
000213c4 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7
000213ca 6f d2 |o | BLE 0x2139e
000213cc 52 92 |R | ADDQ.L #0x1,(A2)
000213ce 20 12 | | MOVE.L (A2),D0
000213d0 b0 b9 00 02 2b 04 | + | CMP.L 0x22b04,D0
000213d6 6d c4 |m | BLT 0x2139c
000213d8 4e 94 |N | JSR (A4)
000213da 20 39 00 02 2a f4 | 9 * | MOVE.L 0x22af4,D0
000213e0 e1 80 | | ASL.L #0x8,D0
000213e2 eb 80 | | ASL.L #0x5,D0
000213e4 20 4b | K | MOVEA.L A3,A0
000213e6 41 f0 08 72 |A r | LEA.L (A0+D0.L+#0x72),A0
000213ea 2f 08 |/ | MOVE.L A0,-(A7)
000213ec 3f 39 00 02 2b 0a |?9 + | MOVE.W 0x22b0a,-(A7)
000213f2 4e b9 00 01 04 1c |N | JSR FSCALL_1041c
000213f8 5c 4f |\O | ADDQ.L #0x6,A7
000213fa 13 c2 00 02 2b 03 | + | MOVE.B D2,0x22b03
00021400 52 b9 00 02 2a f0 |R * | ADDQ.L #0x1,0x22af0
00021406 4e 94 |N | JSR (A4)
00021408 4e b9 00 01 04 20 |N | JSR FSCALL_10420
0002140e 4e 94 |N | JSR (A4)
00021410 48 79 00 02 6b 56 |Hy kV | PEA.L 0x26b56
00021416 59 4f |YO | SUBQ.L #0x4,A7
00021418 3f 39 00 02 2a f2 |?9 * | MOVE.W 0x22af2,-(A7)
0002141e 48 78 00 06 |Hx | PEA.L 0x6
00021422 4e ba f5 74 |N t | JSR 0x20998
00021426 5c 4f |\O | ADDQ.L #0x6,A7
00021428 48 78 00 37 |Hx 7 | PEA.L 0x37
0002142c 4e ba f5 d0 |N | JSR 0x209fe
00021430 de fc 00 0c | | ADDA.W #0xc,A7
00021434 7e 01 |~ | MOVEQ.L #0x01,D7
00021436 28 07 |( | MOVE.L D7,D4
00021438 76 50 |vP | MOVEQ.L #0x50,D3
0002143a 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
00021440 20 4b | K | MOVEA.L A3,A0
00021442 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0
00021446 59 4f |YO | SUBQ.L #0x4,A7
00021448 1e ba ee 2e | . | MOVE.B 0x20278,(A7)
0002144c 1f 7a ee 2b 00 01 | z + | MOVE.B 0x20279,(A7+0x1)
00021452 1f 7a ee 26 00 02 | z & | MOVE.B 0x2027a,(A7+0x2)
00021458 48 68 40 22 |Hh@" | PEA.L (A0+0x4022)
0002145c 59 4f |YO | SUBQ.L #0x4,A7
0002145e 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021462 3f 02 |? | MOVE.W D2,-(A7)
00021464 3f 05 |? | MOVE.W D5,-(A7)
00021466 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002146c 50 4f |PO | ADDQ.L #0x8,A7
0002146e 48 78 00 01 |Hx | PEA.L 0x1
00021472 4e ba f5 8a |N | JSR 0x209fe
00021476 de fc 00 10 | | ADDA.W #0x10,A7
0002147a 48 68 40 22 |Hh@" | PEA.L (A0+0x4022)
0002147e 4e ba f5 d8 |N | JSR 0x20a58
00021482 58 4f |XO | ADDQ.L #0x4,A7
00021484 52 87 |R | ADDQ.L #0x1,D7
00021486 be 85 | | CMP.L D5,D7
00021488 6f ac |o | BLE 0x21436
0002148a 4e b9 00 01 04 20 |N | JSR FSCALL_10420
00021490 4e 94 |N | JSR (A4)
00021492 5d 4f |]O | SUBQ.L #0x6,A7
00021494 20 4f | O | MOVEA.L A7,A0
00021496 43 fa ed e4 |C | LEA.L 0x2027c,A1
0002149a 70 04 |p | MOVEQ.L #0x04,D0
0002149c 10 d9 | | MOVE.B (A1)+,(A0)+
0002149e 51 c8 ff fc |Q | DBF D0,0x2149c
000214a2 59 4f |YO | SUBQ.L #0x4,A7
000214a4 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000214a8 3f 02 |? | MOVE.W D2,-(A7)
000214aa 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7)
000214ae 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000214b4 50 4f |PO | ADDQ.L #0x8,A7
000214b6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
000214bc de fc 00 0a | | ADDA.W #0xa,A7
000214c0 4c df 1f bf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3+A4
000214c4 4e 5e |N^ | UNLK A6
000214c6 4e 75 |Nu | RTS
000214c8 ; --------------------------------------------------------------------------------------
000214c8 ; OMSI PASCAL Function
000214c8 ; <LVAR 0x008 4(r)>
000214c8 ; <LVAR -0x004 @ 1(r)>
000214c8 ; <LVAR -0x008 @>
000214c8 ; --------------------------------------------------------------------------------------
000214c8 4e 56 ff dc |NV | LINK.W A6,#0xffdc
000214cc bf d5 | | CMPA.L (A5),A7
000214ce 62 06 |b | BHI 0x214d6
000214d0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000214d4 4e 76 |Nv | TRAPV
000214d6 de fc 00 1c | | ADDA.W #0x1c,A7
000214da 48 e7 00 80 |H | MOVEM.L A0,-(A7)
000214de 41 ee ff fc |A | LEA.L (A6-0x4),A0
000214e2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000214e6 42 27 |B' | CLR.B -(A7)
000214e8 42 27 |B' | CLR.B -(A7)
000214ea 48 78 00 00 |Hx | PEA.L 0x0
000214ee 48 50 |HP | PEA.L (A0)
000214f0 48 6e ff f8 |Hn | PEA.L (A6-0x8)
000214f4 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
000214fa de fc 00 14 | | ADDA.W #0x14,A7
000214fe 4a 10 |J | TST.B (A0)
00021500 66 1c |f | BNE 0x2151e
00021502 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00021506 1f 3c 00 01 | < | MOVE.B #0x01,-(A7)
0002150a 48 78 00 01 |Hx | PEA.L 0x1
0002150e 48 50 |HP | PEA.L (A0)
00021510 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00021514 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
0002151a de fc 00 10 | | ADDA.W #0x10,A7
0002151e 4c df 01 00 |L | MOVEM.L (A7)+,A0
00021522 4e 5e |N^ | UNLK A6
00021524 4e 75 |Nu | RTS
00021526 ; --------------------------------------------------------------------------------------
00021526 ; OMSI PASCAL Function
00021526 ; <LVAR 0x00a 4(r)>
00021526 ; <LVAR 0x008 1(r)>
00021526 ; <LVAR -0x004 @ 4(r)>
00021526 ; <LVAR -0x00a @ 1(r)>
00021526 ; <LVAR -0x00e @ 4(r)>
00021526 ; --------------------------------------------------------------------------------------
00021526 4e 56 ff 9c |NV | LINK.W A6,#0xff9c
0002152a bf d5 | | CMPA.L (A5),A7
0002152c 62 06 |b | BHI 0x21534
0002152e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021532 4e 76 |Nv | TRAPV
00021534 de fc 00 4e | N | ADDA.W #0x4e,A7
00021538 48 e7 f3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7)
0002153c 43 ee 00 0a |C | LEA.L (A6+0xa),A1
00021540 45 ee ff f6 |E | LEA.L (A6-0xa),A2
00021544 47 ee ff f2 |G | LEA.L (A6-0xe),A3
00021548 74 02 |t | MOVEQ.L #0x02,D2
0002154a 76 14 |v | MOVEQ.L #0x14,D3
0002154c 4a 2e 00 08 |J. | TST.B (A6+0x8)
00021550 67 08 |g | BEQ 0x2155a
00021552 2f 11 |/ | MOVE.L (A1),-(A7)
00021554 42 27 |B' | CLR.B -(A7)
00021556 1f 02 | | MOVE.B D2,-(A7)
00021558 60 06 |` | BRA 0x21560
0002155a 2f 11 |/ | MOVE.L (A1),-(A7)
0002155c 42 27 |B' | CLR.B -(A7)
0002155e 42 27 |B' | CLR.B -(A7)
00021560 48 78 00 00 |Hx | PEA.L 0x0
00021564 48 52 |HR | PEA.L (A2)
00021566 48 53 |HS | PEA.L (A3)
00021568 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
0002156e de c3 | | ADDA.W D3,A7
00021570 10 12 | | MOVE.B (A2),D0
00021572 b0 02 | | CMP.B D2,D0
00021574 66 5e |f^ | BNE 0x215d4
00021576 7c 01 || | MOVEQ.L #0x01,D6
00021578 48 6e ff fc |Hn | PEA.L (A6-0x4)
0002157c 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp
00021582 2e 91 |. | MOVE.L (A1),(A7)
00021584 3f 06 |? | MOVE.W D6,-(A7)
00021586 2f 2e ff fc |/. | MOVE.L (A6-0x4),-(A7)
0002158a 4e ba fb 12 |N | JSR 0x2109e
0002158e de fc 00 0a | | ADDA.W #0xa,A7
00021592 7e 00 |~ | MOVEQ.L #0x00,D7
00021594 20 39 00 02 2a f4 | 9 * | MOVE.L 0x22af4,D0
0002159a e1 80 | | ASL.L #0x8,D0
0002159c eb 80 | | ASL.L #0x5,D0
0002159e 41 f9 00 02 2a e4 |A * | LEA.L 0x22ae4,A0
000215a4 22 39 00 02 2a fc |"9 * | MOVE.L 0x22afc,D1
000215aa e1 81 | | ASL.L #0x8,D1
000215ac e5 81 | | ASL.L #0x2,D1
000215ae 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
000215b2 20 07 | | MOVE.L D7,D0
000215b4 e3 80 | | ASL.L #0x1,D0
000215b6 41 f0 18 00 |A | LEA.L (A0+D1.L),A0
000215ba 42 70 08 72 |Bp r | CLR.W (A0+D0.L+#0x72)
000215be 52 87 |R | ADDQ.L #0x1,D7
000215c0 0c 87 00 00 01 ff | | CMPI.L #0x000001ff,D7
000215c6 6f cc |o | BLE 0x21594
000215c8 4e ba fd 36 |N 6 | JSR 0x21300
000215cc 4e ba fd a0 |N | JSR 0x2136e
000215d0 60 00 00 d0 |` | BRA 0x216a2
000215d4 4a 00 |J | TST.B D0
000215d6 66 00 00 98 |f | BNE 0x21670
000215da 20 53 | S | MOVEA.L (A3),A0
000215dc 30 28 00 20 |0( | MOVE.W (A0+0x20),D0
000215e0 48 c0 |H | EXTW.L D0
000215e2 2c 00 |, | MOVE.L D0,D6
000215e4 2f 11 |/ | MOVE.L (A1),-(A7)
000215e6 3f 06 |? | MOVE.W D6,-(A7)
000215e8 59 4f |YO | SUBQ.L #0x4,A7
000215ea 1e a8 00 3a | : | MOVE.B (A0+0x3a),(A7)
000215ee 1f 68 00 3b 00 01 | h ; | MOVE.B (A0+0x3b),(A7+0x1)
000215f4 1f 68 00 3c 00 02 | h < | MOVE.B (A0+0x3c),(A7+0x2)
000215fa 1f 68 00 3d 00 03 | h = | MOVE.B (A0+0x3d),(A7+0x3)
00021600 4e ba fa 9c |N | JSR 0x2109e
00021604 5c 4f |\O | ADDQ.L #0x6,A7
00021606 2e 86 |. | MOVE.L D6,(A7)
00021608 53 97 |S | SUBQ.L #0x1,(A7)
0002160a 7e 00 |~ | MOVEQ.L #0x00,D7
0002160c be 97 | | CMP.L (A7),D7
0002160e 6e 42 |nB | BGT 0x21652
00021610 2f 13 |/ | MOVE.L (A3),-(A7)
00021612 3f 07 |? | MOVE.W D7,-(A7)
00021614 42 67 |Bg | CLR.W -(A7)
00021616 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7)
0002161a 1f 02 | | MOVE.B D2,-(A7)
0002161c 20 39 00 02 2a f4 | 9 * | MOVE.L 0x22af4,D0
00021622 e1 80 | | ASL.L #0x8,D0
00021624 eb 80 | | ASL.L #0x5,D0
00021626 41 f9 00 02 2a e4 |A * | LEA.L 0x22ae4,A0
0002162c 22 39 00 02 2a fc |"9 * | MOVE.L 0x22afc,D1
00021632 e1 81 | | ASL.L #0x8,D1
00021634 e5 81 | | ASL.L #0x2,D1
00021636 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
0002163a 41 f0 18 72 |A r | LEA.L (A0+D1.L+#0x72),A0
0002163e 2f 08 |/ | MOVE.L A0,-(A7)
00021640 48 52 |HR | PEA.L (A2)
00021642 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
00021648 de c3 | | ADDA.W D3,A7
0002164a 4e ba fc b4 |N | JSR 0x21300
0002164e 52 87 |R | ADDQ.L #0x1,D7
00021650 68 ba |h | BVC 0x2160c
00021652 58 4f |XO | ADDQ.L #0x4,A7
00021654 4e ba fd 18 |N | JSR 0x2136e
00021658 42 27 |B' | CLR.B -(A7)
0002165a 1f 02 | | MOVE.B D2,-(A7)
0002165c 48 78 00 01 |Hx | PEA.L 0x1
00021660 48 52 |HR | PEA.L (A2)
00021662 48 53 |HS | PEA.L (A3)
00021664 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File)
0002166a de fc 00 10 | | ADDA.W #0x10,A7
0002166e 60 32 |`2 | BRA 0x216a2
00021670 51 4f |QO | SUBQ.L #0x8,A7
00021672 1f 00 | | MOVE.B D0,-(A7)
00021674 4e b9 00 01 03 a0 |N | JSR FsErrMsgStr(err: Byte) : String
0002167a 54 4f |TO | ADDQ.L #0x2,A7
0002167c 2f 11 |/ | MOVE.L (A1),-(A7)
0002167e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00021684 50 4f |PO | ADDQ.L #0x8,A7
00021686 28 5f |(_ | MOVEA.L (A7)+,A4
00021688 4a 39 00 02 2b 03 |J9 + | TST.B 0x22b03
0002168e 67 04 |g | BEQ 0x21694
00021690 4e ba f0 4c |N L | JSR 0x206de
00021694 1f 3c 00 01 | < | MOVE.B #0x01,-(A7)
00021698 2f 0c |/ | MOVE.L A4,-(A7)
0002169a 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
000216a0 5c 4f |\O | ADDQ.L #0x6,A7
000216a2 4c df 1f cf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2+A3+A4
000216a6 4e 5e |N^ | UNLK A6
000216a8 4e 75 |Nu | RTS
000216aa ; --------------------------------------------------------------------------------------
000216aa ; OMSI PASCAL Function
000216aa ; <LVAR 0x008 4(r)>
000216aa ; --------------------------------------------------------------------------------------
000216aa 4e 56 ff f6 |NV | LINK.W A6,#0xfff6
000216ae bf d5 | | CMPA.L (A5),A7
000216b0 62 06 |b | BHI 0x216b8
000216b2 44 fc 00 02 |D | MOVE.W #0x2,CCR
000216b6 4e 76 |Nv | TRAPV
000216b8 de fc 00 0a | | ADDA.W #0xa,A7
000216bc 4a 39 00 02 2b 03 |J9 + | TST.B 0x22b03
000216c2 67 04 |g | BEQ 0x216c8
000216c4 4e ba f0 18 |N | JSR 0x206de
000216c8 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7)
000216cc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
000216d0 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
000216d6 5c 4f |\O | ADDQ.L #0x6,A7
000216d8 4e 5e |N^ | UNLK A6
000216da 4e 75 |Nu | RTS
000216dc ; --------------------------------------------------------------------------------------
000216dc ; OMSI PASCAL Function
000216dc ; <LVAR 0x00c 4(r)>
000216dc ; <LVAR 0x008 4(r)>
000216dc ; <LVAR -0x003 @>
000216dc ; <LVAR -0x004 @ 1(r)>
000216dc ; --------------------------------------------------------------------------------------
000216dc 4e 56 ff 76 |NV v | LINK.W A6,#0xff76
000216e0 bf d5 | | CMPA.L (A5),A7
000216e2 62 06 |b | BHI 0x216ea
000216e4 44 fc 00 02 |D | MOVE.W #0x2,CCR
000216e8 4e 76 |Nv | TRAPV
000216ea de fc 00 7e | ~ | ADDA.W #0x7e,A7
000216ee 48 e7 f3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7)
000216f2 45 f9 00 02 2b 34 |E +4 | LEA.L 0x22b34,A2
000216f8 47 f9 00 02 2b 4e |G +N | LEA.L 0x22b4e,A3
000216fe 49 f9 00 02 2b 36 |I +6 | LEA.L 0x22b36,A4
00021704 74 0a |t | MOVEQ.L #0x0a,D2
00021706 76 01 |v | MOVEQ.L #0x01,D3
00021708 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
0002170c 53 97 |S | SUBQ.L #0x1,(A7)
0002170e 7c 00 || | MOVEQ.L #0x00,D6
00021710 bc 97 | | CMP.L (A7),D6
00021712 6e 00 01 24 |n $ | BGT 0x21838
00021716 41 f9 00 02 2b 28 |A +( | LEA.L 0x22b28,A0
0002171c 2f 08 |/ | MOVE.L A0,-(A7)
0002171e 42 67 |Bg | CLR.W -(A7)
00021720 4e b9 00 01 02 3c |N < | JSR KC1e_Fifo_Tx_Response(ptr : Pointer; chan : Word)
00021726 5c 4f |\O | ADDQ.L #0x6,A7
00021728 4a 53 |JS | TST.W (A3)
0002172a 67 18 |g | BEQ 0x21744
0002172c 42 80 |B | CLR.L D0
0002172e 30 14 |0 | MOVE.W (A4),D0
00021730 42 81 |B | CLR.L D1
00021732 32 13 |2 | MOVE.W (A3),D1
00021734 d2 80 | | ADD.L D0,D1
00021736 38 81 |8 | MOVE.W D1,(A4)
00021738 4a 41 |JA | TST.W D1
0002173a 66 08 |f | BNE 0x21744
0002173c 42 80 |B | CLR.L D0
0002173e 30 12 |0 | MOVE.W (A2),D0
00021740 52 80 |R | ADDQ.L #0x1,D0
00021742 34 80 |4 | MOVE.W D0,(A2)
00021744 42 80 |B | CLR.L D0
00021746 30 12 |0 | MOVE.W (A2),D0
00021748 42 81 |B | CLR.L D1
0002174a 32 39 00 02 2b 4c |29 +L | MOVE.W 0x22b4c,D1
00021750 d2 80 | | ADD.L D0,D1
00021752 34 81 |4 | MOVE.W D1,(A2)
00021754 2e 3c ff ff fc 18 |.< | MOVE.L #0xfffffc18,D7
0002175a 41 f9 00 02 2b 38 |A +8 | LEA.L 0x22b38,A0
00021760 2f 08 |/ | MOVE.L A0,-(A7)
00021762 42 67 |Bg | CLR.W -(A7)
00021764 48 6e ff fc |Hn | PEA.L (A6-0x4)
00021768 4e b9 00 01 02 3e |N > | JSR KC1f_Fifo_Rx_Request(ptr : Pointer; chan : Word; VAR flag : Bool)
0002176e de c2 | | ADDA.W D2,A7
00021770 52 87 |R | ADDQ.L #0x1,D7
00021772 4a 2e ff fc |J. | TST.B (A6-0x4)
00021776 66 04 |f | BNE 0x2177c
00021778 4a 87 |J | TST.L D7
0002177a 66 de |f | BNE 0x2175a
0002177c 4a 2e ff fc |J. | TST.B (A6-0x4)
00021780 66 2e |f. | BNE 0x217b0
00021782 9e fc 00 3a | : | SUBA.W #0x3a,A7
00021786 20 4f | O | MOVEA.L A7,A0
00021788 43 fa ea f8 |C | LEA.L 0x20282,A1
0002178c 70 38 |p8 | MOVEQ.L #0x38,D0
0002178e 10 d9 | | MOVE.B (A1)+,(A0)+
00021790 51 c8 ff fc |Q | DBF D0,0x2178e
00021794 59 4f |YO | SUBQ.L #0x4,A7
00021796 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002179a 3f 03 |? | MOVE.W D3,-(A7)
0002179c 3f 3c 00 39 |?< 9 | MOVE.W #0x39,-(A7)
000217a0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000217a6 50 4f |PO | ADDQ.L #0x8,A7
000217a8 4e ba ff 00 |N | JSR 0x216aa
000217ac de fc 00 3e | > | ADDA.W #0x3e,A7
000217b0 2f 39 00 02 6c ac |/9 l | MOVE.L 0x26cac,-(A7)
000217b6 20 39 00 02 2a f4 | 9 * | MOVE.L 0x22af4,D0
000217bc e1 80 | | ASL.L #0x8,D0
000217be eb 80 | | ASL.L #0x5,D0
000217c0 41 f9 00 02 2a e4 |A * | LEA.L 0x22ae4,A0
000217c6 22 39 00 02 2a fc |"9 * | MOVE.L 0x22afc,D1
000217cc e1 81 | | ASL.L #0x8,D1
000217ce e5 81 | | ASL.L #0x2,D1
000217d0 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
000217d4 41 f0 18 72 |A r | LEA.L (A0+D1.L+#0x72),A0
000217d8 2f 08 |/ | MOVE.L A0,-(A7)
000217da 3f 3c 04 00 |?< | MOVE.W #0x400,-(A7)
000217de 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
000217e4 de c2 | | ADDA.W D2,A7
000217e6 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0
000217ea b0 c3 | | CMPA.W D3,A0
000217ec 67 40 |g@ | BEQ 0x2182e
000217ee 2f 08 |/ | MOVE.L A0,-(A7)
000217f0 3f 06 |? | MOVE.W D6,-(A7)
000217f2 42 67 |Bg | CLR.W -(A7)
000217f4 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7)
000217f8 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
000217fc 20 39 00 02 2a f4 | 9 * | MOVE.L 0x22af4,D0
00021802 e1 80 | | ASL.L #0x8,D0
00021804 eb 80 | | ASL.L #0x5,D0
00021806 41 f9 00 02 2a e4 |A * | LEA.L 0x22ae4,A0
0002180c 22 39 00 02 2a fc |"9 * | MOVE.L 0x22afc,D1
00021812 e1 81 | | ASL.L #0x8,D1
00021814 e5 81 | | ASL.L #0x2,D1
00021816 41 f0 08 00 |A | LEA.L (A0+D0.L),A0
0002181a 41 f0 18 72 |A r | LEA.L (A0+D1.L+#0x72),A0
0002181e 2f 08 |/ | MOVE.L A0,-(A7)
00021820 48 6e ff fd |Hn | PEA.L (A6-0x3)
00021824 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
0002182a de fc 00 14 | | ADDA.W #0x14,A7
0002182e 4e ba fa d0 |N | JSR 0x21300
00021832 52 86 |R | ADDQ.L #0x1,D6
00021834 68 00 fe da |h | BVC 0x21710
00021838 58 4f |XO | ADDQ.L #0x4,A7
0002183a 4c df 1f cf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2+A3+A4
0002183e 4e 5e |N^ | UNLK A6
00021840 4e 75 |Nu | RTS
00021842 ; --------------------------------------------------------------------------------------
00021842 ; OMSI PASCAL Function
00021842 ; <LVAR 0x00e 4(r)>
00021842 ; <LVAR 0x00c 2(r)>
00021842 ; <LVAR 0x00a 2(r)>
00021842 ; --------------------------------------------------------------------------------------
00021842 4e 56 ff e8 |NV | LINK.W A6,#0xffe8
00021846 bf d5 | | CMPA.L (A5),A7
00021848 62 06 |b | BHI 0x21850
0002184a 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002184e 4e 76 |Nv | TRAPV
00021850 de fc 00 16 | | ADDA.W #0x16,A7
00021854 48 e7 c0 00 |H | MOVEM.L D1+D0,-(A7)
00021858 2f 2e 00 0e |/. | MOVE.L (A6+0xe),-(A7)
0002185c 3f 2e 00 0c |?. | MOVE.W (A6+0xc),-(A7)
00021860 2f 39 00 02 2b 50 |/9 +P | MOVE.L 0x22b50,-(A7)
00021866 4e ba f8 36 |N 6 | JSR 0x2109e
0002186a de fc 00 0a | | ADDA.W #0xa,A7
0002186e 30 39 00 02 2b 0c |09 + | MOVE.W 0x22b0c,D0
00021874 48 c0 |H | EXTW.L D0
00021876 22 00 |" | MOVE.L D0,D1
00021878 e1 81 | | ASL.L #0x8,D1
0002187a e9 81 | | ASL.L #0x4,D1
0002187c 58 40 |X@ | ADDQ.W #0x4,D0
0002187e 48 c0 |H | EXTW.L D0
00021880 e1 80 | | ASL.L #0x8,D0
00021882 d0 81 | | ADD.L D1,D0
00021884 33 c0 00 02 2b 28 |3 +( | MOVE.W D0,0x22b28
0002188a 42 79 00 02 2b 2a |By +* | CLR.W 0x22b2a
00021890 42 79 00 02 2b 2c |By +, | CLR.W 0x22b2c
00021896 33 ee 00 0a 00 02 2b 2e |3 +.| MOVE.W (A6+0xa),0x22b2e
0002189e 42 79 00 02 2b 30 |By +0 | CLR.W 0x22b30
000218a4 42 79 00 02 2b 32 |By +2 | CLR.W 0x22b32
000218aa 42 79 00 02 2b 34 |By +4 | CLR.W 0x22b34
000218b0 42 79 00 02 2b 36 |By +6 | CLR.W 0x22b36
000218b6 42 79 00 02 2b 48 |By +H | CLR.W 0x22b48
000218bc 42 79 00 02 2b 4a |By +J | CLR.W 0x22b4a
000218c2 42 79 00 02 2b 4c |By +L | CLR.W 0x22b4c
000218c8 42 79 00 02 2b 4e |By +N | CLR.W 0x22b4e
000218ce 4c df 00 03 |L | MOVEM.L (A7)+,D0+D1
000218d2 4e 5e |N^ | UNLK A6
000218d4 4e 75 |Nu | RTS
000218d6 ; --------------------------------------------------------------------------------------
000218d6 ; OMSI PASCAL Function
000218d6 ; --------------------------------------------------------------------------------------
000218d6 4e 56 ff cc |NV | LINK.W A6,#0xffcc
000218da bf d5 | | CMPA.L (A5),A7
000218dc 62 06 |b | BHI 0x218e4
000218de 44 fc 00 02 |D | MOVE.W #0x2,CCR
000218e2 4e 76 |Nv | TRAPV
000218e4 de fc 00 30 | 0 | ADDA.W #0x30,A7
000218e8 48 e7 81 80 |H | MOVEM.L A0+D7+D0,-(A7)
000218ec 7e 10 |~ | MOVEQ.L #0x10,D7
000218ee 41 fa e9 e0 |A | LEA.L 0x202d0,A0
000218f2 70 04 |p | MOVEQ.L #0x04,D0
000218f4 2f 20 |/ | MOVE.L -(A0),-(A7)
000218f6 51 c8 ff fc |Q | DBF D0,0x218f4
000218fa 59 4f |YO | SUBQ.L #0x4,A7
000218fc 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021900 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021904 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7)
00021908 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002190e 5c 4f |\O | ADDQ.L #0x6,A7
00021910 3e 87 |> | MOVE.W D7,(A7)
00021912 48 78 03 00 |Hx | PEA.L 0x300
00021916 4e ba ff 2a |N * | JSR 0x21842
0002191a de fc 00 1e | | ADDA.W #0x1e,A7
0002191e 33 fc 00 40 00 02 2b 4e |3 @ +N| MOVE.W #0x40,0x22b4e
00021926 2f 07 |/ | MOVE.L D7,-(A7)
00021928 48 78 00 01 |Hx | PEA.L 0x1
0002192c 4e ba fd ae |N | JSR 0x216dc
00021930 50 4f |PO | ADDQ.L #0x8,A7
00021932 4e ba fa 3a |N : | JSR 0x2136e
00021936 4c df 01 81 |L | MOVEM.L (A7)+,D0+D7+A0
0002193a 4e 5e |N^ | UNLK A6
0002193c 4e 75 |Nu | RTS
0002193e ; --------------------------------------------------------------------------------------
0002193e ; OMSI PASCAL Function
0002193e ; --------------------------------------------------------------------------------------
0002193e 4e 56 ff bc |NV | LINK.W A6,#0xffbc
00021942 bf d5 | | CMPA.L (A5),A7
00021944 62 06 |b | BHI 0x2194c
00021946 44 fc 00 02 |D | MOVE.W #0x2,CCR
0002194a 4e 76 |Nv | TRAPV
0002194c de fc 00 3c | < | ADDA.W #0x3c,A7
00021950 48 e7 9b 80 |H | MOVEM.L A0+D7+D6+D4+D3+D0,-(A7)
00021954 41 fa e9 8e |A | LEA.L 0x202e4,A0
00021958 70 04 |p | MOVEQ.L #0x04,D0
0002195a 2f 20 |/ | MOVE.L -(A0),-(A7)
0002195c 51 c8 ff fc |Q | DBF D0,0x2195a
00021960 59 4f |YO | SUBQ.L #0x4,A7
00021962 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021966 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002196a 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7)
0002196e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021974 50 4f |PO | ADDQ.L #0x8,A7
00021976 30 39 00 02 2b 1c |09 + | MOVE.W 0x22b1c,D0
0002197c ee 48 | H | LSR.W #0x7,D0
0002197e 3f 00 |? | MOVE.W D0,-(A7)
00021980 48 78 04 00 |Hx | PEA.L 0x400
00021984 4e ba fe bc |N | JSR 0x21842
00021988 de fc 00 1e | | ADDA.W #0x1e,A7
0002198c 33 fc 00 10 00 02 2b 4c |3 +L| MOVE.W #0x10,0x22b4c
00021994 7c 00 || | MOVEQ.L #0x00,D6
00021996 41 f9 00 02 2a e4 |A * | LEA.L 0x22ae4,A0
0002199c 4a 30 68 2b |J0h+ | TST.B (A0+D6.L+#0x2b)
000219a0 67 52 |gR | BEQ 0x219f4
000219a2 2f 39 00 02 2b 20 |/9 + | MOVE.L 0x22b20,-(A7)
000219a8 53 97 |S | SUBQ.L #0x1,(A7)
000219aa 7e 00 |~ | MOVEQ.L #0x00,D7
000219ac be 97 | | CMP.L (A7),D7
000219ae 6e 42 |nB | BGT 0x219f2
000219b0 42 79 00 02 2b 30 |By +0 | CLR.W 0x22b30
000219b6 20 06 | | MOVE.L D6,D0
000219b8 e5 80 | | ASL.L #0x2,D0
000219ba d0 87 | | ADD.L D7,D0
000219bc e9 80 | | ASL.L #0x4,D0
000219be 33 c0 00 02 2b 32 |3 +2 | MOVE.W D0,0x22b32
000219c4 42 79 00 02 2b 34 |By +4 | CLR.W 0x22b34
000219ca 42 79 00 02 2b 36 |By +6 | CLR.W 0x22b36
000219d0 28 39 00 02 2b 14 |(9 + | MOVE.L 0x22b14,D4
000219d6 26 3c 00 00 00 80 |&< | MOVE.L #0x80,D3
000219dc 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4
000219e2 2f 04 |/ | MOVE.L D4,-(A7)
000219e4 48 78 00 01 |Hx | PEA.L 0x1
000219e8 4e ba fc f2 |N | JSR 0x216dc
000219ec 50 4f |PO | ADDQ.L #0x8,A7
000219ee 52 87 |R | ADDQ.L #0x1,D7
000219f0 68 ba |h | BVC 0x219ac
000219f2 58 4f |XO | ADDQ.L #0x4,A7
000219f4 52 86 |R | ADDQ.L #0x1,D6
000219f6 0c 86 00 00 00 03 | | CMPI.L #0x00000003,D6
000219fc 6f 98 |o | BLE 0x21996
000219fe 4e ba f9 6e |N n | JSR 0x2136e
00021a02 4c df 01 d9 |L | MOVEM.L (A7)+,D0+D3+D4+D6+D7+A0
00021a06 4e 5e |N^ | UNLK A6
00021a08 4e 75 |Nu | RTS
00021a0a ; --------------------------------------------------------------------------------------
00021a0a ; OMSI PASCAL Function
00021a0a ; --------------------------------------------------------------------------------------
00021a0a 4e 56 ff c2 |NV | LINK.W A6,#0xffc2
00021a0e bf d5 | | CMPA.L (A5),A7
00021a10 62 06 |b | BHI 0x21a18
00021a12 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021a16 4e 76 |Nv | TRAPV
00021a18 de fc 00 36 | 6 | ADDA.W #0x36,A7
00021a1c 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7)
00021a20 9e fc 00 12 | | SUBA.W #0x12,A7
00021a24 20 4f | O | MOVEA.L A7,A0
00021a26 43 fa e8 bc |C | LEA.L 0x202e4,A1
00021a2a 70 10 |p | MOVEQ.L #0x10,D0
00021a2c 10 d9 | | MOVE.B (A1)+,(A0)+
00021a2e 51 c8 ff fc |Q | DBF D0,0x21a2c
00021a32 59 4f |YO | SUBQ.L #0x4,A7
00021a34 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021a38 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00021a3c 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7)
00021a40 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00021a46 5c 4f |\O | ADDQ.L #0x6,A7
00021a48 3e b9 00 02 2b 1c |> + | MOVE.W 0x22b1c,(A7)
00021a4e 48 78 05 00 |Hx | PEA.L 0x500
00021a52 4e ba fd ee |N | JSR 0x21842
00021a56 de fc 00 1c | | ADDA.W #0x1c,A7
00021a5a 33 fc 20 00 00 02 2b 4e |3 +N| MOVE.W #0x2000,0x22b4e
00021a62 1f 3c 00 20 | < | MOVE.B #0x20,-(A7)
00021a66 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char)
00021a6c 54 4f |TO | ADDQ.L #0x2,A7
00021a6e 7c 00 || | MOVEQ.L #0x00,D6
00021a70 41 f9 00 02 2a e4 |A * | LEA.L 0x22ae4,A0
00021a76 4a 30 68 2b |J0h+ | TST.B (A0+D6.L+#0x2b)
00021a7a 67 60 |g` | BEQ 0x21adc
00021a7c 2f 39 00 02 2b 20 |/9 + | MOVE.L 0x22b20,-(A7)
00021a82 53 97 |S | SUBQ.L #0x1,(A7)
00021a84 7e 00 |~ | MOVEQ.L #0x00,D7
00021a86 be 97 | | CMP.L (A7),D7
00021a88 6e 50 |nP | BGT 0x21ada
00021a8a 20 06 | | MOVE.L D6,D0
00021a8c e5 80 | | ASL.L #0x2,D0
00021a8e d0 87 | | ADD.L D7,D0
00021a90 41 fa e6 c8 |A | LEA.L 0x2015a,A0
00021a94 1f 30 08 00 | 0 | MOVE.B (A0+D0.L),-(A7)
00021a98 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char)
00021a9e 54 4f |TO | ADDQ.L #0x2,A7
00021aa0 42 79 00 02 2b 30 |By +0 | CLR.W 0x22b30
00021aa6 e9 80 | | ASL.L #0x4,D0
00021aa8 33 c0 00 02 2b 32 |3 +2 | MOVE.W D0,0x22b32
00021aae 42 79 00 02 2b 34 |By +4 | CLR.W 0x22b34
00021ab4 42 79 00 02 2b 36 |By +6 | CLR.W 0x22b36
00021aba 2f 39 00 02 2b 14 |/9 + | MOVE.L 0x22b14,-(A7)
00021ac0 48 78 00 01 |Hx | PEA.L 0x1
00021ac4 4e ba fc 16 |N | JSR 0x216dc
00021ac8 50 4f |PO | ADDQ.L #0x8,A7
00021aca 4a 39 00 02 2a ec |J9 * | TST.B 0x22aec
00021ad0 67 04 |g | BEQ 0x21ad6
00021ad2 58 4f |XO | ADDQ.L #0x4,A7
00021ad4 60 10 |` | BRA 0x21ae6
00021ad6 52 87 |R | ADDQ.L #0x1,D7
00021ad8 68 ac |h | BVC 0x21a86
00021ada 58 4f |XO | ADDQ.L #0x4,A7
00021adc 52 86 |R | ADDQ.L #0x1,D6
00021ade 0c 86 00 00 00 03 | | CMPI.L #0x00000003,D6
00021ae4 6f 8a |o | BLE 0x21a70
00021ae6 4e ba f8 86 |N | JSR 0x2136e
00021aea 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1
00021aee 4e 5e |N^ | UNLK A6
00021af0 4e 75 |Nu | RTS
00021af2 ; --------------------------------------------------------------------------------------
00021af2 ; OMSI PASCAL Function
00021af2 ; <LVAR 0x018 4(w)>
00021af2 ; <LVAR 0x014 4(r)>
00021af2 ; <LVAR 0x010 4(r)>
00021af2 ; <LVAR 0x00c 4(r)>
00021af2 ; <LVAR 0x008 4(r)>
00021af2 ; <LVAR -0x004 @ 1(rw)>
00021af2 ; <LVAR -0x008 @ 4(rw)>
00021af2 ; <LVAR -0x00c @ 4(rw)>
00021af2 ; <LVAR -0x010 @ 4(rw)>
00021af2 ; --------------------------------------------------------------------------------------
00021af2 4e 56 ff 86 |NV | LINK.W A6,#0xff86
00021af6 bf d5 | | CMPA.L (A5),A7
00021af8 62 06 |b | BHI 0x21b00
00021afa 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021afe 4e 76 |Nv | TRAPV
00021b00 de fc 00 6a | j | ADDA.W #0x6a,A7
00021b04 48 e7 f0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D3+D2+D1+D0,-(A7)
00021b08 45 ee ff f0 |E | LEA.L (A6-0x10),A2
00021b0c 47 f9 00 01 02 d0 |G | LEA.L StringCat2(a, b : String) : String,A3
00021b12 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4
00021b18 74 01 |t | MOVEQ.L #0x01,D2
00021b1a 76 02 |v | MOVEQ.L #0x02,D3
00021b1c 3f 3a e8 0c |?: | MOVE.W 0x2032a,-(A7)
00021b20 59 4f |YO | SUBQ.L #0x4,A7
00021b22 2f 2e 00 14 |/. | MOVE.L (A6+0x14),-(A7)
00021b26 59 4f |YO | SUBQ.L #0x4,A7
00021b28 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021b2c 3f 02 |? | MOVE.W D2,-(A7)
00021b2e 3f 03 |? | MOVE.W D3,-(A7)
00021b30 4e 94 |N | JSR (A4)
00021b32 50 4f |PO | ADDQ.L #0x8,A7
00021b34 4e 93 |N | JSR (A3)
00021b36 50 4f |PO | ADDQ.L #0x8,A7
00021b38 24 9f |$ | MOVE.L (A7)+,(A2)
00021b3a 55 4f |UO | SUBQ.L #0x2,A7
00021b3c 2f 12 |/ | MOVE.L (A2),-(A7)
00021b3e 59 4f |YO | SUBQ.L #0x4,A7
00021b40 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7)
00021b44 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021b4a 58 4f |XO | ADDQ.L #0x4,A7
00021b4c 4e 93 |N | JSR (A3)
00021b4e 50 4f |PO | ADDQ.L #0x8,A7
00021b50 24 9f |$ | MOVE.L (A7)+,(A2)
00021b52 3f 3a e7 d8 |?: | MOVE.W 0x2032c,-(A7)
00021b56 59 4f |YO | SUBQ.L #0x4,A7
00021b58 2f 12 |/ | MOVE.L (A2),-(A7)
00021b5a 59 4f |YO | SUBQ.L #0x4,A7
00021b5c 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021b60 3f 02 |? | MOVE.W D2,-(A7)
00021b62 3f 03 |? | MOVE.W D3,-(A7)
00021b64 4e 94 |N | JSR (A4)
00021b66 50 4f |PO | ADDQ.L #0x8,A7
00021b68 4e 93 |N | JSR (A3)
00021b6a 50 4f |PO | ADDQ.L #0x8,A7
00021b6c 24 9f |$ | MOVE.L (A7)+,(A2)
00021b6e 55 4f |UO | SUBQ.L #0x2,A7
00021b70 2f 12 |/ | MOVE.L (A2),-(A7)
00021b72 59 4f |YO | SUBQ.L #0x4,A7
00021b74 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7)
00021b78 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021b7e 58 4f |XO | ADDQ.L #0x4,A7
00021b80 4e 93 |N | JSR (A3)
00021b82 50 4f |PO | ADDQ.L #0x8,A7
00021b84 24 97 |$ | MOVE.L (A7),(A2)
00021b86 1e ba e7 a6 | | MOVE.B 0x2032e,(A7)
00021b8a 1f 7a e7 a3 00 01 | z | MOVE.B 0x2032f,(A7+0x1)
00021b90 1f 7a e7 9e 00 02 | z | MOVE.B 0x20330,(A7+0x2)
00021b96 59 4f |YO | SUBQ.L #0x4,A7
00021b98 2f 12 |/ | MOVE.L (A2),-(A7)
00021b9a 59 4f |YO | SUBQ.L #0x4,A7
00021b9c 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021ba0 3f 02 |? | MOVE.W D2,-(A7)
00021ba2 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7)
00021ba6 4e 94 |N | JSR (A4)
00021ba8 50 4f |PO | ADDQ.L #0x8,A7
00021baa 4e 93 |N | JSR (A3)
00021bac 50 4f |PO | ADDQ.L #0x8,A7
00021bae 24 9f |$ | MOVE.L (A7)+,(A2)
00021bb0 2f 12 |/ | MOVE.L (A2),-(A7)
00021bb2 59 4f |YO | SUBQ.L #0x4,A7
00021bb4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7)
00021bb8 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00021bbe 58 4f |XO | ADDQ.L #0x4,A7
00021bc0 4e 93 |N | JSR (A3)
00021bc2 50 4f |PO | ADDQ.L #0x8,A7
00021bc4 24 9f |$ | MOVE.L (A7)+,(A2)
00021bc6 2f 3a e7 6a |/: j | MOVE.L 0x20332,-(A7)
00021bca 59 4f |YO | SUBQ.L #0x4,A7
00021bcc 2f 12 |/ | MOVE.L (A2),-(A7)
00021bce 59 4f |YO | SUBQ.L #0x4,A7
00021bd0 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021bd4 3f 02 |? | MOVE.W D2,-(A7)
00021bd6 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7)
00021bda 4e 94 |N | JSR (A4)
00021bdc 50 4f |PO | ADDQ.L #0x8,A7
00021bde 4e 93 |N | JSR (A3)
00021be0 50 4f |PO | ADDQ.L #0x8,A7
00021be2 24 9f |$ | MOVE.L (A7)+,(A2)
00021be4 58 4f |XO | ADDQ.L #0x4,A7
00021be6 51 4f |QO | SUBQ.L #0x8,A7
00021be8 2f 12 |/ | MOVE.L (A2),-(A7)
00021bea 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String
00021bf0 58 4f |XO | ADDQ.L #0x4,A7
00021bf2 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String
00021bf8 58 4f |XO | ADDQ.L #0x4,A7
00021bfa 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc)
00021bfe 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0
00021c02 4a 50 |JP | TST.W (A0)
00021c04 67 18 |g | BEQ 0x21c1e
00021c06 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7)
00021c0a 48 6e ff fc |Hn | PEA.L (A6-0x4)
00021c0e 48 6e ff f8 |Hn | PEA.L (A6-0x8)
00021c12 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long)
00021c18 de fc 00 0c | | ADDA.W #0xc,A7
00021c1c 60 16 |` | BRA 0x21c34
00021c1e 2d 6e 00 08 ff f8 |-n | MOVE.L (A6+0x8),(A6-0x8)
00021c24 1d 42 ff fc | B | MOVE.B D2,(A6-0x4)
00021c28 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00021c2c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00021c32 58 4f |XO | ADDQ.L #0x4,A7
00021c34 70 00 |p | MOVEQ.L #0x00,D0
00021c36 4a 2e ff fc |J. | TST.B (A6-0x4)
00021c3a 67 16 |g | BEQ 0x21c52
00021c3c 22 2e ff f8 |". | MOVE.L (A6-0x8),D1
00021c40 b2 ae 00 10 | | CMP.L (A6+0x10),D1
00021c44 6d 0c |m | BLT 0x21c52
00021c46 22 2e ff f8 |". | MOVE.L (A6-0x8),D1
00021c4a b2 ae 00 0c | | CMP.L (A6+0xc),D1
00021c4e 6e 02 |n | BGT 0x21c52
00021c50 52 00 |R | ADDQ.B #0x1,D0
00021c52 1d 40 ff fc | @ | MOVE.B D0,(A6-0x4)
00021c56 4a 00 |J | TST.B D0
00021c58 66 2c |f, | BNE 0x21c86
00021c5a 9e fc 00 34 | 4 | SUBA.W #0x34,A7
00021c5e 20 4f | O | MOVEA.L A7,A0
00021c60 43 fa e6 94 |C | LEA.L 0x202f6,A1
00021c64 72 32 |r2 | MOVEQ.L #0x32,D1
00021c66 10 d9 | | MOVE.B (A1)+,(A0)+
00021c68 51 c9 ff fc |Q | DBF D1,0x21c66
00021c6c 59 4f |YO | SUBQ.L #0x4,A7
00021c6e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021c72 3f 02 |? | MOVE.W D2,-(A7)
00021c74 3f 3c 00 33 |?< 3 | MOVE.W #0x33,-(A7)
00021c78 4e 94 |N | JSR (A4)
00021c7a 50 4f |PO | ADDQ.L #0x8,A7
00021c7c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00021c82 de fc 00 38 | 8 | ADDA.W #0x38,A7
00021c86 4a 00 |J | TST.B D0
00021c88 67 00 ff 5c |g \ | BEQ 0x21be6
00021c8c 48 52 |HR | PEA.L (A2)
00021c8e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00021c94 58 4f |XO | ADDQ.L #0x4,A7
00021c96 2d 6e ff f8 00 18 |-n | MOVE.L (A6-0x8),(A6+0x18)
00021c9c 4c df 1f 0f |L | MOVEM.L (A7)+,D0+D1+D2+D3+A0+A1+A2+A3+A4
00021ca0 4e 5e |N^ | UNLK A6
00021ca2 4e 75 |Nu | RTS
00021ca4 ; --------------------------------------------------------------------------------------
00021ca4 ; OMSI PASCAL Function
00021ca4 ; --------------------------------------------------------------------------------------
00021ca4 4e 56 ff cc |NV | LINK.W A6,#0xffcc
00021ca8 bf d5 | | CMPA.L (A5),A7
00021caa 62 06 |b | BHI 0x21cb2
00021cac 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021cb0 4e 76 |Nv | TRAPV
00021cb2 de fc 00 30 | 0 | ADDA.W #0x30,A7
00021cb6 48 e7 d9 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D4+D3+D1+D0,-(A7)
00021cba 43 f9 00 02 2b 18 |C + | LEA.L 0x22b18,A1
00021cc0 45 f9 00 02 2b 14 |E + | LEA.L 0x22b14,A2
00021cc6 47 f9 00 02 2b 20 |G + | LEA.L 0x22b20,A3
00021ccc 49 f9 00 02 2b 1e |I + | LEA.L 0x22b1e,A4
00021cd2 72 04 |r | MOVEQ.L #0x04,D1
00021cd4 42 39 00 02 2a ed |B9 * | CLR.B 0x22aed
00021cda 42 39 00 02 2a ee |B9 * | CLR.B 0x22aee
00021ce0 48 79 00 02 2b 50 |Hy +P | PEA.L 0x22b50
00021ce6 4e b9 00 01 03 04 |N | JSR GetRtc() : TimeStamp
00021cec 58 4f |XO | ADDQ.L #0x4,A7
00021cee 42 39 00 02 2b 0e |B9 + | CLR.B 0x22b0e
00021cf4 42 79 00 02 2b 00 |By + | CLR.W 0x22b00
00021cfa 42 39 00 02 2b 03 |B9 + | CLR.B 0x22b03
00021d00 42 39 00 02 2b 02 |B9 + | CLR.B 0x22b02
00021d06 23 c1 00 02 2b 04 |# + | MOVE.L D1,0x22b04
00021d0c 48 78 00 01 |Hx | PEA.L 0x1
00021d10 4e b9 00 01 04 d8 |N | JSR ExpInit(a : Long)
00021d16 54 4f |TO | ADDQ.L #0x2,A7
00021d18 42 17 |B | CLR.B (A7)
00021d1a 4e b9 00 01 04 d2 |N | JSR SetExpInitDone(a : Byte)
00021d20 54 4f |TO | ADDQ.L #0x2,A7
00021d22 42 79 00 02 2b 0c |By + | CLR.W 0x22b0c
00021d28 55 4f |UO | SUBQ.L #0x2,A7
00021d2a 1f 3c 00 0c | < | MOVE.B #0x0c,-(A7)
00021d2e 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte
00021d34 54 4f |TO | ADDQ.L #0x2,A7
00021d36 13 d7 00 02 2b 0f | + | MOVE.B (A7),0x22b0f
00021d3c 1f 3c 00 0d | < | MOVE.B #0x0d,-(A7)
00021d40 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte
00021d46 54 4f |TO | ADDQ.L #0x2,A7
00021d48 13 d7 00 02 2b 10 | + | MOVE.B (A7),0x22b10
00021d4e 1f 3c 00 0e | < | MOVE.B #0x0e,-(A7)
00021d52 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte
00021d58 54 4f |TO | ADDQ.L #0x2,A7
00021d5a 13 d7 00 02 2b 11 | + | MOVE.B (A7),0x22b11
00021d60 1f 3c 00 0f | < | MOVE.B #0x0f,-(A7)
00021d64 4e b9 00 01 04 c0 |N | JSR HasBoard(diproc_addr: Byte) : Byte
00021d6a 54 4f |TO | ADDQ.L #0x2,A7
00021d6c 13 d7 00 02 2b 12 | + | MOVE.B (A7),0x22b12
00021d72 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool
00021d78 4a 1f |J | TST.B (A7)+
00021d7a 67 0a |g | BEQ 0x21d86
00021d7c 24 bc 00 00 08 00 |$ | MOVE.L #0x800,(A2)
00021d82 26 81 |& | MOVE.L D1,(A3)
00021d84 60 0c |` | BRA 0x21d92
00021d86 24 bc 00 00 10 00 |$ | MOVE.L #0x1000,(A2)
00021d8c 26 bc 00 00 00 08 |& | MOVE.L #0x8,(A3)
00021d92 42 91 |B | CLR.L (A1)
00021d94 42 54 |BT | CLR.W (A4)
00021d96 7e 00 |~ | MOVEQ.L #0x00,D7
00021d98 41 f9 00 02 2a e4 |A * | LEA.L 0x22ae4,A0
00021d9e 4a 30 78 2b |J0x+ | TST.B (A0+D7.L+#0x2b)
00021da2 67 0e |g | BEQ 0x21db2
00021da4 20 11 | | MOVE.L (A1),D0
00021da6 d0 93 | | ADD.L (A3),D0
00021da8 22 80 |" | MOVE.L D0,(A1)
00021daa 42 80 |B | CLR.L D0
00021dac 30 14 |0 | MOVE.W (A4),D0
00021dae 52 80 |R | ADDQ.L #0x1,D0
00021db0 38 80 |8 | MOVE.W D0,(A4)
00021db2 52 87 |R | ADDQ.L #0x1,D7
00021db4 0c 87 00 00 00 03 | | CMPI.L #0x00000003,D7
00021dba 6f dc |o | BLE 0x21d98
00021dbc 28 12 |( | MOVE.L (A2),D4
00021dbe 26 11 |& | MOVE.L (A1),D3
00021dc0 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
00021dc6 33 c4 00 02 2b 1c |3 + | MOVE.W D4,0x22b1c
00021dcc 4c df 1f 9b |L | MOVEM.L (A7)+,D0+D1+D3+D4+D7+A0+A1+A2+A3+A4
00021dd0 4e 5e |N^ | UNLK A6
00021dd2 4e 75 |Nu | RTS
00021dd4 ; --------------------------------------------------------------------------------------
00021dd4 ; OMSI PASCAL Function
00021dd4 ; <LVAR -0x004 @>
00021dd4 ; <LVAR -0x00c @ 4(rw)>
00021dd4 ; --------------------------------------------------------------------------------------
00021dd4 4e 56 ff 60 |NV ` | LINK.W A6,#0xff60
00021dd8 bf d5 | | CMPA.L (A5),A7
00021dda 62 06 |b | BHI 0x21de2
00021ddc 44 fc 00 02 |D | MOVE.W #0x2,CCR
00021de0 4e 76 |Nv | TRAPV
00021de2 de fc 00 90 | | ADDA.W #0x90,A7
00021de6 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7)
00021dea 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2
00021df0 47 f9 00 02 2b 54 |G +T | LEA.L 0x22b54,A3
00021df6 74 01 |t | MOVEQ.L #0x01,D2
00021df8 7a 10 |z | MOVEQ.L #0x10,D5
00021dfa 7c 0c || | MOVEQ.L #0x0c,D6
00021dfc 2f 3a e5 44 |/: D | MOVE.L 0x20342,-(A7)
00021e00 2f 3a e5 3c |/: < | MOVE.L 0x2033e,-(A7)
00021e04 2f 3a e5 34 |/: 4 | MOVE.L 0x2033a,-(A7)
00021e08 2f 3a e5 2c |/: , | MOVE.L 0x20336,-(A7)
00021e0c 51 4f |QO | SUBQ.L #0x8,A7
00021e0e 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021e12 3f 02 |? | MOVE.W D2,-(A7)
00021e14 3f 05 |? | MOVE.W D5,-(A7)
00021e16 4e 92 |N | JSR (A2)
00021e18 50 4f |PO | ADDQ.L #0x8,A7
00021e1a 48 78 00 00 |Hx | PEA.L 0x0
00021e1e 48 78 00 03 |Hx | PEA.L 0x3
00021e22 30 39 00 02 2b 00 |09 + | MOVE.W 0x22b00,D0
00021e28 48 c0 |H | EXTW.L D0
00021e2a 2f 00 |/ | MOVE.L D0,-(A7)
00021e2c 4e ba fc c4 |N | JSR 0x21af2
00021e30 de c5 | | ADDA.W D5,A7
00021e32 33 ef 00 02 00 02 2b 00 |3 + | MOVE.W (A7+0x2),0x22b00
00021e3a de fc 00 12 | | ADDA.W #0x12,A7
00021e3e 3e b9 00 02 2b 00 |> + | MOVE.W 0x22b00,(A7)
00021e44 1f 02 | | MOVE.B D2,-(A7)
00021e46 1f 02 | | MOVE.B D2,-(A7)
00021e48 48 53 |HS | PEA.L (A3)
00021e4a 4e b9 00 01 04 0c |N | JSR FSCALL_1040c
00021e50 de fc 00 0a | | ADDA.W #0xa,A7
00021e54 4a 13 |J | TST.B (A3)
00021e56 67 0c |g | BEQ 0x21e64
00021e58 1f 02 | | MOVE.B D2,-(A7)
00021e5a 48 53 |HS | PEA.L (A3)
00021e5c 4e b9 00 01 04 28 |N ( | JSR FSCALL_10428
00021e62 5c 4f |\O | ADDQ.L #0x6,A7
00021e64 4a 13 |J | TST.B (A3)
00021e66 66 94 |f | BNE 0x21dfc
00021e68 9e fc 00 22 | " | SUBA.W #0x22,A7
00021e6c 20 4f | O | MOVEA.L A7,A0
00021e6e 43 fa e4 d6 |C | LEA.L 0x20346,A1
00021e72 70 20 |p | MOVEQ.L #0x20,D0
00021e74 10 d9 | | MOVE.B (A1)+,(A0)+
00021e76 51 c8 ff fc |Q | DBF D0,0x21e74
00021e7a 59 4f |YO | SUBQ.L #0x4,A7
00021e7c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021e80 3f 02 |? | MOVE.W D2,-(A7)
00021e82 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7)
00021e86 4e 92 |N | JSR (A2)
00021e88 50 4f |PO | ADDQ.L #0x8,A7
00021e8a 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00021e90 de fc 00 24 | $ | ADDA.W #0x24,A7
00021e94 4e ba e9 9e |N | JSR 0x20834
00021e98 13 df 00 02 2b 02 | + | MOVE.B (A7)+,0x22b02
00021e9e 44 39 00 02 2b 02 |D9 + | NEG.B 0x22b02
00021ea4 52 39 00 02 2b 02 |R9 + | ADDQ.B #0x1,0x22b02
00021eaa 67 0a |g | BEQ 0x21eb6
00021eac 2f 3a e4 be |/: | MOVE.L 0x2036c,-(A7)
00021eb0 2f 3a e4 b6 |/: | MOVE.L 0x20368,-(A7)
00021eb4 60 08 |` | BRA 0x21ebe
00021eb6 2f 3a e4 bc |/: | MOVE.L 0x20374,-(A7)
00021eba 2f 3a e4 b4 |/: | MOVE.L 0x20370,-(A7)
00021ebe 59 4f |YO | SUBQ.L #0x4,A7
00021ec0 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021ec4 3f 02 |? | MOVE.W D2,-(A7)
00021ec6 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7)
00021eca 4e 92 |N | JSR (A2)
00021ecc 50 4f |PO | ADDQ.L #0x8,A7
00021ece 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String)
00021ed4 de c6 | | ADDA.W D6,A7
00021ed6 9e fc 00 22 | " | SUBA.W #0x22,A7
00021eda 20 4f | O | MOVEA.L A7,A0
00021edc 43 fa e4 9a |C | LEA.L 0x20378,A1
00021ee0 70 20 |p | MOVEQ.L #0x20,D0
00021ee2 10 d9 | | MOVE.B (A1)+,(A0)+
00021ee4 51 c8 ff fc |Q | DBF D0,0x21ee2
00021ee8 59 4f |YO | SUBQ.L #0x4,A7
00021eea 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00021eee 3f 02 |? | MOVE.W D2,-(A7)
00021ef0 3f 3c 00 21 |?< ! | MOVE.W #0x21,-(A7)
00021ef4 4e 92 |N | JSR (A2)
00021ef6 50 4f |PO | ADDQ.L #0x8,A7
00021ef8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00021efe de fc 00 26 | & | ADDA.W #0x26,A7
00021f02 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00021f06 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String)
00021f0c 58 4f |XO | ADDQ.L #0x4,A7
00021f0e 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00021f12 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00021f18 9e fc 00 1c | | SUBA.W #0x1c,A7
00021f1c 20 4f | O | MOVEA.L A7,A0
00021f1e 43 fa e4 7a |C z | LEA.L 0x2039a,A1
00021f22 70 1e |p | MOVEQ.L #0x1e,D0
00021f24 10 d9 | | MOVE.B (A1)+,(A0)+
00021f26 51 c8 ff fc |Q | DBF D0,0x21f24
00021f2a 9e c6 | | SUBA.W D6,A7
00021f2c 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00021f30 3f 02 |? | MOVE.W D2,-(A7)
00021f32 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7)
00021f36 4e 92 |N | JSR (A2)
00021f38 50 4f |PO | ADDQ.L #0x8,A7
00021f3a 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String
00021f40 58 4f |XO | ADDQ.L #0x4,A7
00021f42 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String
00021f48 58 4f |XO | ADDQ.L #0x4,A7
00021f4a 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc)
00021f4e de fc 00 20 | | ADDA.W #0x20,A7
00021f52 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0
00021f56 4a 50 |JP | TST.W (A0)
00021f58 6f b4 |o | BLE 0x21f0e
00021f5a 30 10 |0 | MOVE.W (A0),D0
00021f5c 0c 40 00 06 | @ | CMPI.W #0x0006,D0
00021f60 6e ac |n | BGT 0x21f0e
00021f62 33 fa e4 56 00 02 6c 96 |3 V l | MOVE.W 0x203ba,0x26c96
00021f6a 33 fa e4 50 00 02 6c 98 |3 P l | MOVE.W 0x203bc,0x26c98
00021f72 33 fa e4 4a 00 02 6c 9a |3 J l | MOVE.W 0x203be,0x26c9a
00021f7a 48 c0 |H | EXTW.L D0
00021f7c 2f 00 |/ | MOVE.L D0,-(A7)
00021f7e 7e 01 |~ | MOVEQ.L #0x01,D7
00021f80 be 97 | | CMP.L (A7),D7
00021f82 6e 18 |n | BGT 0x21f9c
00021f84 41 f9 00 02 2a e4 |A * | LEA.L 0x22ae4,A0
00021f8a 41 f0 78 00 |A x | LEA.L (A0+D7.L),A0
00021f8e 22 6e ff f4 |"n | MOVEA.L (A6-0xc),A1
00021f92 11 71 78 01 41 b1 | qx A | MOVE.B (A1+D7.L+#0x1),(A0+0x41b1)
00021f98 52 87 |R | ADDQ.L #0x1,D7
00021f9a 68 e4 |h | BVC 0x21f80
00021f9c 58 4f |XO | ADDQ.L #0x4,A7
00021f9e 48 6e ff f4 |Hn | PEA.L (A6-0xc)
00021fa2 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String)
00021fa8 58 4f |XO | ADDQ.L #0x4,A7
00021faa 42 39 00 02 2a ec |B9 * | CLR.B 0x22aec
00021fb0 41 fa e4 0e |A | LEA.L 0x203c0,A0
00021fb4 43 f9 00 02 6c 96 |C l | LEA.L 0x26c96,A1
00021fba 70 02 |p | MOVEQ.L #0x02,D0
00021fbc b3 48 | H | CMPM.W (A0)+,(A1)+
00021fbe 56 c8 ff fc |V | DBNE D0,0x21fbc
00021fc2 66 06 |f | BNE 0x21fca
00021fc4 52 39 00 02 2a ec |R9 * | ADDQ.B #0x1,0x22aec
00021fca 4a 39 00 02 2b 0e |J9 + | TST.B 0x22b0e
00021fd0 67 3a |g: | BEQ 0x2200c
00021fd2 41 fa e4 10 |A | LEA.L 0x203e4,A0
00021fd6 70 0e |p | MOVEQ.L #0x0e,D0
00021fd8 3f 20 |? | MOVE.W -(A0),-(A7)
00021fda 51 c8 ff fc |Q | DBF D0,0x21fd8
00021fde 51 4f |QO | SUBQ.L #0x8,A7
00021fe0 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00021fe4 3f 02 |? | MOVE.W D2,-(A7)
00021fe6 3f 3c 00 1e |?< | MOVE.W #0x1e,-(A7)
00021fea 4e 92 |N | JSR (A2)
00021fec 50 4f |PO | ADDQ.L #0x8,A7
00021fee 48 78 00 01 |Hx | PEA.L 0x1
00021ff2 48 78 00 08 |Hx | PEA.L 0x8
00021ff6 2f 39 00 02 2b 04 |/9 + | MOVE.L 0x22b04,-(A7)
00021ffc 4e ba fa f4 |N | JSR 0x21af2
00022000 de c5 | | ADDA.W D5,A7
00022002 23 df 00 02 2b 04 |# + | MOVE.L (A7)+,0x22b04
00022008 de fc 00 1e | | ADDA.W #0x1e,A7
0002200c 28 3c 00 00 04 00 |(< | MOVE.L #0x400,D4
00022012 26 39 00 02 2b 04 |&9 + | MOVE.L 0x22b04,D3
00022018 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4
0002201e 23 c4 00 02 2b 08 |# + | MOVE.L D4,0x22b08
00022024 4a 39 00 02 2a ee |J9 * | TST.B 0x22aee
0002202a 66 00 00 e2 |f | BNE 0x2210e
0002202e 9e fc 00 4c | L | SUBA.W #0x4c,A7
00022032 20 4f | O | MOVEA.L A7,A0
00022034 43 fa e3 ae |C | LEA.L 0x203e4,A1
00022038 70 4a |pJ | MOVEQ.L #0x4a,D0
0002203a 10 d9 | | MOVE.B (A1)+,(A0)+
0002203c 51 c8 ff fc |Q | DBF D0,0x2203a
00022040 59 4f |YO | SUBQ.L #0x4,A7
00022042 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022046 3f 02 |? | MOVE.W D2,-(A7)
00022048 3f 3c 00 4b |?< K | MOVE.W #0x4b,-(A7)
0002204c 4e 92 |N | JSR (A2)
0002204e 50 4f |PO | ADDQ.L #0x8,A7
00022050 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022056 5c 4f |\O | ADDQ.L #0x6,A7
00022058 20 4f | O | MOVEA.L A7,A0
0002205a 43 fa e3 d4 |C | LEA.L 0x20430,A1
0002205e 70 48 |pH | MOVEQ.L #0x48,D0
00022060 10 d9 | | MOVE.B (A1)+,(A0)+
00022062 51 c8 ff fc |Q | DBF D0,0x22060
00022066 59 4f |YO | SUBQ.L #0x4,A7
00022068 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002206c 3f 02 |? | MOVE.W D2,-(A7)
0002206e 3f 3c 00 49 |?< I | MOVE.W #0x49,-(A7)
00022072 4e 92 |N | JSR (A2)
00022074 50 4f |PO | ADDQ.L #0x8,A7
00022076 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
0002207c de fc 00 3a | : | ADDA.W #0x3a,A7
00022080 20 4f | O | MOVEA.L A7,A0
00022082 43 fa e0 c2 |C | LEA.L 0x20146,A1
00022086 70 12 |p | MOVEQ.L #0x12,D0
00022088 10 d9 | | MOVE.B (A1)+,(A0)+
0002208a 51 c8 ff fc |Q | DBF D0,0x22088
0002208e 59 4f |YO | SUBQ.L #0x4,A7
00022090 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022094 3f 02 |? | MOVE.W D2,-(A7)
00022096 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
0002209a 4e 92 |N | JSR (A2)
0002209c 50 4f |PO | ADDQ.L #0x8,A7
0002209e 28 5f |(_ | MOVEA.L (A7)+,A4
000220a0 de c5 | | ADDA.W D5,A7
000220a2 2e 8c |. | MOVE.L A4,(A7)
000220a4 4e ba f4 22 |N " | JSR 0x214c8
000220a8 2e ba e3 dc |. | MOVE.L 0x20486,(A7)
000220ac 2f 3a e3 d4 |/: | MOVE.L 0x20482,-(A7)
000220b0 2f 3a e3 cc |/: | MOVE.L 0x2047e,-(A7)
000220b4 2f 3a e3 c4 |/: | MOVE.L 0x2047a,-(A7)
000220b8 51 4f |QO | SUBQ.L #0x8,A7
000220ba 48 6f 00 08 |Ho | PEA.L (A7+0x8)
000220be 3f 02 |? | MOVE.W D2,-(A7)
000220c0 3f 05 |? | MOVE.W D5,-(A7)
000220c2 4e 92 |N | JSR (A2)
000220c4 58 4f |XO | ADDQ.L #0x4,A7
000220c6 2e 8c |. | MOVE.L A4,(A7)
000220c8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
000220ce 50 4f |PO | ADDQ.L #0x8,A7
000220d0 28 5f |(_ | MOVEA.L (A7)+,A4
000220d2 de c6 | | ADDA.W D6,A7
000220d4 1e ba e3 b4 | | MOVE.B 0x2048a,(A7)
000220d8 1f 7a e3 b1 00 01 | z | MOVE.B 0x2048b,(A7+0x1)
000220de 1f 7a e3 ac 00 02 | z | MOVE.B 0x2048c,(A7+0x2)
000220e4 59 4f |YO | SUBQ.L #0x4,A7
000220e6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000220ea 3f 02 |? | MOVE.W D2,-(A7)
000220ec 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7)
000220f0 4e 92 |N | JSR (A2)
000220f2 58 4f |XO | ADDQ.L #0x4,A7
000220f4 2e 8c |. | MOVE.L A4,(A7)
000220f6 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
000220fa 48 6e ff fc |Hn | PEA.L (A6-0x4)
000220fe 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
00022104 de fc 00 12 | | ADDA.W #0x12,A7
00022108 13 c2 00 02 2a ee | * | MOVE.B D2,0x22aee
0002210e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4
00022112 4e 5e |N^ | UNLK A6
00022114 4e 75 |Nu | RTS
00022116 ; --------------------------------------------------------------------------------------
00022116 ; OMSI PASCAL Function
00022116 ; --------------------------------------------------------------------------------------
00022116 4e 56 ff ce |NV | LINK.W A6,#0xffce
0002211a bf d5 | | CMPA.L (A5),A7
0002211c 62 06 |b | BHI 0x22124
0002211e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022122 4e 76 |Nv | TRAPV
00022124 de fc 00 32 | 2 | ADDA.W #0x32,A7
00022128 48 e7 f8 f0 |H | MOVEM.L A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7)
0002212c 43 f9 00 01 02 38 |C 8 | LEA.L KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word),A1
00022132 45 f9 00 02 6c a0 |E l | LEA.L 0x26ca0,A2
00022138 47 f9 00 02 6c a8 |G l | LEA.L 0x26ca8,A3
0002213e 74 0a |t | MOVEQ.L #0x0a,D2
00022140 76 04 |v | MOVEQ.L #0x04,D3
00022142 78 02 |x | MOVEQ.L #0x02,D4
00022144 48 78 04 00 |Hx | PEA.L 0x400
00022148 41 f9 00 02 6c 9c |A l | LEA.L 0x26c9c,A0
0002214e 2f 08 |/ | MOVE.L A0,-(A7)
00022150 3f 03 |? | MOVE.W D3,-(A7)
00022152 4e 91 |N | JSR (A1)
00022154 de c2 | | ADDA.W D2,A7
00022156 48 78 04 04 |Hx | PEA.L 0x404
0002215a 20 4a | J | MOVEA.L A2,A0
0002215c 2f 08 |/ | MOVE.L A0,-(A7)
0002215e 3f 04 |? | MOVE.W D4,-(A7)
00022160 4e 91 |N | JSR (A1)
00022162 de c2 | | ADDA.W D2,A7
00022164 48 78 04 06 |Hx | PEA.L 0x406
00022168 41 f9 00 02 6c a2 |A l | LEA.L 0x26ca2,A0
0002216e 2f 08 |/ | MOVE.L A0,-(A7)
00022170 3f 04 |? | MOVE.W D4,-(A7)
00022172 4e 91 |N | JSR (A1)
00022174 de c2 | | ADDA.W D2,A7
00022176 48 78 04 08 |Hx | PEA.L 0x408
0002217a 41 f9 00 02 6c a4 |A l | LEA.L 0x26ca4,A0
00022180 2f 08 |/ | MOVE.L A0,-(A7)
00022182 3f 03 |? | MOVE.W D3,-(A7)
00022184 4e 91 |N | JSR (A1)
00022186 de c2 | | ADDA.W D2,A7
00022188 48 78 04 0c |Hx | PEA.L 0x40c
0002218c 20 4b | K | MOVEA.L A3,A0
0002218e 2f 08 |/ | MOVE.L A0,-(A7)
00022190 3f 03 |? | MOVE.W D3,-(A7)
00022192 4e 91 |N | JSR (A1)
00022194 de c2 | | ADDA.W D2,A7
00022196 70 00 |p | MOVEQ.L #0x00,D0
00022198 c0 d2 | | MULU.W (A2),D0
0002219a 42 81 |B | CLR.L D1
0002219c 32 00 |2 | MOVE.W D0,D1
0002219e d2 93 | | ADD.L (A3),D1
000221a0 23 c1 00 02 6c ac |# l | MOVE.L D1,0x26cac
000221a6 4c df 0f 1f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3
000221aa 4e 5e |N^ | UNLK A6
000221ac 4e 75 |Nu | RTS
000221ae ; --------------------------------------------------------------------------------------
000221ae ; OMSI PASCAL Function
000221ae ; --------------------------------------------------------------------------------------
000221ae START:
000221ae 4f fa 00 08 |O | LEA.L MAIN,A7
000221b2 4e f9 00 01 02 80 |N | JMP ?start_program
000221b8 MAIN:
000221b8 4e b9 00 01 03 98 |N | JSR FSCALL_10398
000221be 4e ba ff 56 |N V | JSR 0x22116
000221c2 4e ba fa e0 |N | JSR 0x21ca4
000221c6 4e ba fc 0c |N | JSR 0x21dd4
000221ca 4e ba e4 0e |N | JSR 0x205da
000221ce 4e ba e9 a0 |N | JSR 0x20b70
000221d2 9e fc 00 14 | | SUBA.W #0x14,A7
000221d6 20 4f | O | MOVEA.L A7,A0
000221d8 43 fa df 6c |C l | LEA.L 0x20146,A1
000221dc 70 12 |p | MOVEQ.L #0x12,D0
000221de 10 d9 | | MOVE.B (A1)+,(A0)+
000221e0 51 c8 ff fc |Q | DBF D0,0x221de
000221e4 59 4f |YO | SUBQ.L #0x4,A7
000221e6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000221ea 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000221ee 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7)
000221f2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000221f8 5c 4f |\O | ADDQ.L #0x6,A7
000221fa 1e bc 00 01 | | MOVE.B #0x01,(A7)
000221fe 4e ba f3 26 |N & | JSR 0x21526
00022202 de fc 00 10 | | ADDA.W #0x10,A7
00022206 20 4f | O | MOVEA.L A7,A0
00022208 43 fa e2 84 |C | LEA.L 0x2048e,A1
0002220c 70 08 |p | MOVEQ.L #0x08,D0
0002220e 10 d9 | | MOVE.B (A1)+,(A0)+
00022210 51 c8 ff fc |Q | DBF D0,0x2220e
00022214 59 4f |YO | SUBQ.L #0x4,A7
00022216 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002221a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002221e 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
00022222 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022228 5c 4f |\O | ADDQ.L #0x6,A7
0002222a 42 17 |B | CLR.B (A7)
0002222c 4e ba f2 f8 |N | JSR 0x21526
00022230 5c 4f |\O | ADDQ.L #0x6,A7
00022232 20 4f | O | MOVEA.L A7,A0
00022234 43 fa e2 62 |C b | LEA.L 0x20498,A1
00022238 70 08 |p | MOVEQ.L #0x08,D0
0002223a 10 d9 | | MOVE.B (A1)+,(A0)+
0002223c 51 c8 ff fc |Q | DBF D0,0x2223a
00022240 59 4f |YO | SUBQ.L #0x4,A7
00022242 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022246 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002224a 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
0002224e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022254 5c 4f |\O | ADDQ.L #0x6,A7
00022256 42 17 |B | CLR.B (A7)
00022258 4e ba f2 cc |N | JSR 0x21526
0002225c 5c 4f |\O | ADDQ.L #0x6,A7
0002225e 20 4f | O | MOVEA.L A7,A0
00022260 43 fa e2 40 |C @ | LEA.L 0x204a2,A1
00022264 70 08 |p | MOVEQ.L #0x08,D0
00022266 10 d9 | | MOVE.B (A1)+,(A0)+
00022268 51 c8 ff fc |Q | DBF D0,0x22266
0002226c 59 4f |YO | SUBQ.L #0x4,A7
0002226e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022272 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00022276 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
0002227a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022280 5c 4f |\O | ADDQ.L #0x6,A7
00022282 42 17 |B | CLR.B (A7)
00022284 4e ba f2 a0 |N | JSR 0x21526
00022288 5c 4f |\O | ADDQ.L #0x6,A7
0002228a 20 4f | O | MOVEA.L A7,A0
0002228c 43 fa e2 1e |C | LEA.L 0x204ac,A1
00022290 70 08 |p | MOVEQ.L #0x08,D0
00022292 10 d9 | | MOVE.B (A1)+,(A0)+
00022294 51 c8 ff fc |Q | DBF D0,0x22292
00022298 59 4f |YO | SUBQ.L #0x4,A7
0002229a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002229e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000222a2 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
000222a6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000222ac 5c 4f |\O | ADDQ.L #0x6,A7
000222ae 42 17 |B | CLR.B (A7)
000222b0 4e ba f2 74 |N t | JSR 0x21526
000222b4 5c 4f |\O | ADDQ.L #0x6,A7
000222b6 20 4f | O | MOVEA.L A7,A0
000222b8 43 fa e1 fc |C | LEA.L 0x204b6,A1
000222bc 70 08 |p | MOVEQ.L #0x08,D0
000222be 10 d9 | | MOVE.B (A1)+,(A0)+
000222c0 51 c8 ff fc |Q | DBF D0,0x222be
000222c4 59 4f |YO | SUBQ.L #0x4,A7
000222c6 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000222ca 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000222ce 3f 3c 00 09 |?< | MOVE.W #0x9,-(A7)
000222d2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000222d8 5c 4f |\O | ADDQ.L #0x6,A7
000222da 42 17 |B | CLR.B (A7)
000222dc 4e ba f2 48 |N H | JSR 0x21526
000222e0 de fc 00 10 | | ADDA.W #0x10,A7
000222e4 41 fa de 60 |A ` | LEA.L 0x20146,A0
000222e8 70 0a |p | MOVEQ.L #0x0a,D0
000222ea 3f 20 |? | MOVE.W -(A0),-(A7)
000222ec 51 c8 ff fc |Q | DBF D0,0x222ea
000222f0 59 4f |YO | SUBQ.L #0x4,A7
000222f2 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000222f6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000222fa 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7)
000222fe 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022304 5c 4f |\O | ADDQ.L #0x6,A7
00022306 1e bc 00 01 | | MOVE.B #0x01,(A7)
0002230a 4e ba f2 1a |N | JSR 0x21526
0002230e de fc 00 1c | | ADDA.W #0x1c,A7
00022312 4e ba f5 c2 |N | JSR 0x218d6
00022316 4e ba e5 b0 |N | JSR 0x208c8
0002231a 4e ba f6 22 |N " | JSR 0x2193e
0002231e 4e ba f6 ea |N | JSR 0x21a0a
00022322 9e fc 00 0c | | SUBA.W #0xc,A7
00022326 20 4f | O | MOVEA.L A7,A0
00022328 43 fa e1 96 |C | LEA.L 0x204c0,A1
0002232c 70 0a |p | MOVEQ.L #0x0a,D0
0002232e 10 d9 | | MOVE.B (A1)+,(A0)+
00022330 51 c8 ff fc |Q | DBF D0,0x2232e
00022334 59 4f |YO | SUBQ.L #0x4,A7
00022336 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002233a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002233e 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7)
00022342 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022348 5c 4f |\O | ADDQ.L #0x6,A7
0002234a 42 17 |B | CLR.B (A7)
0002234c 4e ba f1 d8 |N | JSR 0x21526
00022350 5c 4f |\O | ADDQ.L #0x6,A7
00022352 20 4f | O | MOVEA.L A7,A0
00022354 43 fa e1 76 |C v | LEA.L 0x204cc,A1
00022358 70 0a |p | MOVEQ.L #0x0a,D0
0002235a 10 d9 | | MOVE.B (A1)+,(A0)+
0002235c 51 c8 ff fc |Q | DBF D0,0x2235a
00022360 59 4f |YO | SUBQ.L #0x4,A7
00022362 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022366 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002236a 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7)
0002236e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022374 5c 4f |\O | ADDQ.L #0x6,A7
00022376 42 17 |B | CLR.B (A7)
00022378 4e ba f1 ac |N | JSR 0x21526
0002237c 5c 4f |\O | ADDQ.L #0x6,A7
0002237e 20 4f | O | MOVEA.L A7,A0
00022380 43 fa e1 56 |C V | LEA.L 0x204d8,A1
00022384 70 0a |p | MOVEQ.L #0x0a,D0
00022386 10 d9 | | MOVE.B (A1)+,(A0)+
00022388 51 c8 ff fc |Q | DBF D0,0x22386
0002238c 59 4f |YO | SUBQ.L #0x4,A7
0002238e 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022392 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00022396 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7)
0002239a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000223a0 5c 4f |\O | ADDQ.L #0x6,A7
000223a2 42 17 |B | CLR.B (A7)
000223a4 4e ba f1 80 |N | JSR 0x21526
000223a8 5c 4f |\O | ADDQ.L #0x6,A7
000223aa 20 4f | O | MOVEA.L A7,A0
000223ac 43 fa e1 36 |C 6 | LEA.L 0x204e4,A1
000223b0 70 0a |p | MOVEQ.L #0x0a,D0
000223b2 10 d9 | | MOVE.B (A1)+,(A0)+
000223b4 51 c8 ff fc |Q | DBF D0,0x223b2
000223b8 59 4f |YO | SUBQ.L #0x4,A7
000223ba 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000223be 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000223c2 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7)
000223c6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000223cc 5c 4f |\O | ADDQ.L #0x6,A7
000223ce 42 17 |B | CLR.B (A7)
000223d0 4e ba f1 54 |N T | JSR 0x21526
000223d4 de fc 00 12 | | ADDA.W #0x12,A7
000223d8 4e b9 00 01 04 20 |N | JSR FSCALL_10420
000223de 4e ba e2 fe |N | JSR 0x206de
000223e2 1f 3c 00 01 | < | MOVE.B #0x01,-(A7)
000223e6 48 79 00 02 2b 54 |Hy +T | PEA.L 0x22b54
000223ec 4e b9 00 01 04 14 |N | JSR FSCALL_10414
000223f2 5c 4f |\O | ADDQ.L #0x6,A7
000223f4 4e b9 00 01 04 10 |N | JSR FSCALL_10410
000223fa 1f 3c 00 05 | < | MOVE.B #0x05,-(A7)
000223fe 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00022402 4e b9 00 01 04 8a |N | JSR DiProcCmd(board : Byte; cmd : Byte)
00022408 9e fc 00 14 | | SUBA.W #0x14,A7
0002240c 20 4f | O | MOVEA.L A7,A0
0002240e 43 fa e0 e0 |C | LEA.L 0x204f0,A1
00022412 70 16 |p | MOVEQ.L #0x16,D0
00022414 10 d9 | | MOVE.B (A1)+,(A0)+
00022416 51 c8 ff fc |Q | DBF D0,0x22414
0002241a 59 4f |YO | SUBQ.L #0x4,A7
0002241c 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022420 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00022424 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00022428 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002242e 50 4f |PO | ADDQ.L #0x8,A7
00022430 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String)
00022436 de fc 00 1a | | ADDA.W #0x1a,A7
0002243a 42 17 |B | CLR.B (A7)
0002243c 48 78 00 01 |Hx | PEA.L 0x1
00022440 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00022446 5c 4f |\O | ADDQ.L #0x6,A7
00022448 4e b9 00 01 02 84 |N | JSR ?exit
0002244e exp_RUN_NORMAL.FIU():
0002244e 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
00022454 00 08 | | .CONST 0x0008 ; Stack-delta
00022456 0e 52 55 4e 5f 4e 4f 52 | RUN_NOR| .TXT 14,'RUN_NORMAL.FIU'
00022465 00 | | .CONST 0x0
00022466 03 | | .CONST 0x3 ; DIPROC address
00022467 00 | | .CONST 0x0 ; Output Parameters
00022468 00 | | .CONST 0x0 ; Input Parameters
00022469 00 | | .PAD 0x0
0002246a exp_PREP_RUN.FIU(Sw_2):
0002246a 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
00022470 00 0a | | .CONST 0x000a ; Stack-delta
00022472 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.FIU'
0002247f 00 | | .CONST 0x0
00022480 03 | | .CONST 0x3 ; DIPROC address
00022481 00 | | .CONST 0x0 ; Output Parameters
00022482 01 | | .CONST 0x1 ; Input Parameters
00022483 01 | | .CONST 0x1 ; In arg [2]
00022484 exp_INIT_MRU.FIU():
00022484 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
0002248a 00 08 | | .CONST 0x0008 ; Stack-delta
0002248c 0c 49 4e 49 54 5f 4d 52 | INIT_MR| .TXT 12,'INIT_MRU.FIU'
00022499 00 | | .CONST 0x0
0002249a 03 | | .CONST 0x3 ; DIPROC address
0002249b 00 | | .CONST 0x0 ; Output Parameters
0002249c 00 | | .CONST 0x0 ; Input Parameters
0002249d 00 | | .PAD 0x0
0002249e exp_FREEZE_WORLD.FIU():
0002249e 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000224a4 00 08 | | .CONST 0x0008 ; Stack-delta
000224a6 10 46 52 45 45 5a 45 5f | FREEZE_| .TXT 16,'FREEZE_WORLD.FIU'
000224b7 00 | | .CONST 0x0
000224b8 03 | | .CONST 0x3 ; DIPROC address
000224b9 00 | | .CONST 0x0 ; Output Parameters
000224ba 00 | | .CONST 0x0 ; Input Parameters
000224bb 00 | | .PAD 0x0
000224bc exp_CLEAR_EXCEPTIONS.FIU():
000224bc 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000224c2 00 08 | | .CONST 0x0008 ; Stack-delta
000224c4 14 43 4c 45 41 52 5f 45 | CLEAR_E| .TXT 20,'CLEAR_EXCEPTIONS.FIU'
000224d9 00 | | .CONST 0x0
000224da 03 | | .CONST 0x3 ; DIPROC address
000224db 00 | | .CONST 0x0 ; Output Parameters
000224dc 00 | | .CONST 0x0 ; Input Parameters
000224dd 00 | | .PAD 0x0
000224de exp_RUN_CHECK.SEQ():
000224de 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000224e4 00 08 | | .CONST 0x0008 ; Stack-delta
000224e6 0d 52 55 4e 5f 43 48 45 | RUN_CHE| .TXT 13,'RUN_CHECK.SEQ'
000224f4 00 | | .CONST 0x0
000224f5 02 | | .CONST 0x2 ; DIPROC address
000224f6 00 | | .CONST 0x0 ; Output Parameters
000224f7 00 | | .CONST 0x0 ; Input Parameters
000224f8 exp_PREP_RUN.SEQ(Sw_2):
000224f8 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000224fe 00 0a | | .CONST 0x000a ; Stack-delta
00022500 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.SEQ'
0002250d 00 | | .CONST 0x0
0002250e 02 | | .CONST 0x2 ; DIPROC address
0002250f 00 | | .CONST 0x0 ; Output Parameters
00022510 01 | | .CONST 0x1 ; Input Parameters
00022511 01 | | .CONST 0x1 ; In arg [2]
00022512 exp_WRITE_REG.TYP(Sw_2, Sw_8_1, Sw_1):
00022512 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
00022518 00 16 | | .CONST 0x0016 ; Stack-delta
0002251a 0d 57 52 49 54 45 5f 52 | WRITE_R| .TXT 13,'WRITE_REG.TYP'
00022528 00 | | .CONST 0x0
00022529 06 | | .CONST 0x6 ; DIPROC address
0002252a 00 | | .CONST 0x0 ; Output Parameters
0002252b 03 | | .CONST 0x3 ; Input Parameters
0002252c 01 | | .CONST 0x1 ; In arg [2]
0002252d 0d | | .CONST 0xd ; In arg [8, 1]
0002252e 00 | | .CONST 0x0 ; In arg [1]
0002252f 00 | | .PAD 0x0
00022530 exp_RUN_NORMAL.TYP():
00022530 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
00022536 00 08 | | .CONST 0x0008 ; Stack-delta
00022538 0e 52 55 4e 5f 4e 4f 52 | RUN_NOR| .TXT 14,'RUN_NORMAL.TYP'
00022547 00 | | .CONST 0x0
00022548 06 | | .CONST 0x6 ; DIPROC address
00022549 00 | | .CONST 0x0 ; Output Parameters
0002254a 00 | | .CONST 0x0 ; Input Parameters
0002254b 00 | | .PAD 0x0
0002254c exp_PREP_WRITE_REG.TYP(Sw_8, &Sr_8_1):
0002254c 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
00022552 00 14 | | .CONST 0x0014 ; Stack-delta
00022554 12 50 52 45 50 5f 57 52 | PREP_WR| .TXT 18,'PREP_WRITE_REG.TYP'
00022567 00 | | .CONST 0x0
00022568 06 | | .CONST 0x6 ; DIPROC address
00022569 01 | | .CONST 0x1 ; Output Parameters
0002256a 01 | | .CONST 0x1 ; Input Parameters
0002256b 07 | | .CONST 0x7 ; In arg [8]
0002256c 0d | | .CONST 0xd ; Out arg [8, 1]
0002256d 00 | | .PAD 0x0
0002256e exp_PREP_RUN.TYP(Sw_2):
0002256e 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
00022574 00 0a | | .CONST 0x000a ; Stack-delta
00022576 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.TYP'
00022583 00 | | .CONST 0x0
00022584 06 | | .CONST 0x6 ; DIPROC address
00022585 00 | | .CONST 0x0 ; Output Parameters
00022586 01 | | .CONST 0x1 ; Input Parameters
00022587 01 | | .CONST 0x1 ; In arg [2]
00022588 exp_LOAD_BENIGN_UWORD.TYP():
00022588 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
0002258e 00 08 | | .CONST 0x0008 ; Stack-delta
00022590 15 4c 4f 41 44 5f 42 45 | LOAD_BE| .TXT 21,'LOAD_BENIGN_UWORD.TYP'
000225a6 00 | | .CONST 0x0
000225a7 06 | | .CONST 0x6 ; DIPROC address
000225a8 00 | | .CONST 0x0 ; Output Parameters
000225a9 00 | | .CONST 0x0 ; Input Parameters
000225aa exp_RUN_NORMAL.VAL():
000225aa 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000225b0 00 08 | | .CONST 0x0008 ; Stack-delta
000225b2 0e 52 55 4e 5f 4e 4f 52 | RUN_NOR| .TXT 14,'RUN_NORMAL.VAL'
000225c1 00 | | .CONST 0x0
000225c2 07 | | .CONST 0x7 ; DIPROC address
000225c3 00 | | .CONST 0x0 ; Output Parameters
000225c4 00 | | .CONST 0x0 ; Input Parameters
000225c5 00 | | .PAD 0x0
000225c6 exp_PREP_RUN.VAL(Sw_2):
000225c6 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000225cc 00 0a | | .CONST 0x000a ; Stack-delta
000225ce 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.VAL'
000225db 00 | | .CONST 0x0
000225dc 07 | | .CONST 0x7 ; DIPROC address
000225dd 00 | | .CONST 0x0 ; Output Parameters
000225de 01 | | .CONST 0x1 ; Input Parameters
000225df 01 | | .CONST 0x1 ; In arg [2]
000225e0 53 45 54 5f 48 49 54 2e |SET_HIT.| .TXT 'SET_HIT.MEM '
000225ec 53 45 54 5f 48 49 54 2e |SET_HIT.| .TXT 'SET_HIT.M32 '
000225f8 ; --------------------------------------------------------------------------------------
000225f8 ; OMSI PASCAL Function
000225f8 ; <LVAR 0x00a 1(r)>
000225f8 ; <LVAR 0x008 1(r)>
000225f8 ; <LVAR -0x004 @ 4(r)>
000225f8 ; --------------------------------------------------------------------------------------
000225f8 4e 56 ff cc |NV | LINK.W A6,#0xffcc
000225fc bf d5 | | CMPA.L (A5),A7
000225fe 62 06 |b | BHI 0x22606
00022600 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022604 4e 76 |Nv | TRAPV
00022606 de fc 00 30 | 0 | ADDA.W #0x30,A7
0002260a 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7)
0002260e 45 ee ff fc |E | LEA.L (A6-0x4),A2
00022612 72 0c |r | MOVEQ.L #0x0c,D1
00022614 55 4f |UO | SUBQ.L #0x2,A7
00022616 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool
0002261c 4a 1f |J | TST.B (A7)+
0002261e 67 12 |g | BEQ 0x22632
00022620 9e c1 | | SUBA.W D1,A7
00022622 20 4f | O | MOVEA.L A7,A0
00022624 43 fa ff ba |C | LEA.L 0x225e0,A1
00022628 70 0a |p | MOVEQ.L #0x0a,D0
0002262a 10 d9 | | MOVE.B (A1)+,(A0)+
0002262c 51 c8 ff fc |Q | DBF D0,0x2262a
00022630 60 10 |` | BRA 0x22642
00022632 9e c1 | | SUBA.W D1,A7
00022634 20 4f | O | MOVEA.L A7,A0
00022636 43 fa ff b4 |C | LEA.L 0x225ec,A1
0002263a 70 0a |p | MOVEQ.L #0x0a,D0
0002263c 10 d9 | | MOVE.B (A1)+,(A0)+
0002263e 51 c8 ff fc |Q | DBF D0,0x2263c
00022642 59 4f |YO | SUBQ.L #0x4,A7
00022644 48 6f 00 04 |Ho | PEA.L (A7+0x4)
00022648 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002264c 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7)
00022650 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022656 50 4f |PO | ADDQ.L #0x8,A7
00022658 48 52 |HR | PEA.L (A2)
0002265a 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer)
00022660 de fc 00 14 | | ADDA.W #0x14,A7
00022664 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7)
00022668 2f 12 |/ | MOVE.L (A2),-(A7)
0002266a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002266e 48 78 00 00 |Hx | PEA.L 0x0
00022672 48 78 00 00 |Hx | PEA.L 0x0
00022676 4e b9 00 01 04 66 |N f | JSR ExpInputParam(exp : Pointer; ptr : Pointer; len : L)
0002267c de fc 00 10 | | ADDA.W #0x10,A7
00022680 42 17 |B | CLR.B (A7)
00022682 1f 2e 00 0a | . | MOVE.B (A6+0xa),-(A7)
00022686 2f 12 |/ | MOVE.L (A2),-(A7)
00022688 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer)
0002268e 50 4f |PO | ADDQ.L #0x8,A7
00022690 48 52 |HR | PEA.L (A2)
00022692 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer)
00022698 58 4f |XO | ADDQ.L #0x4,A7
0002269a 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2
0002269e 4e 5e |N^ | UNLK A6
000226a0 4e 75 |Nu | RTS
000226a2 52 55 4e 5f 43 48 45 43 |RUN_CHEC| .TXT 'RUN_CHECK.MEM '
000226b0 52 55 4e 5f 43 48 45 43 |RUN_CHEC| .TXT 'RUN_CHECK.M32 '
000226be ; --------------------------------------------------------------------------------------
000226be ; OMSI PASCAL Function
000226be ; <LVAR 0x008 1(r)>
000226be ; <LVAR -0x006 @ 4(r)>
000226be ; --------------------------------------------------------------------------------------
000226be 4e 56 ff c8 |NV | LINK.W A6,#0xffc8
000226c2 bf d5 | | CMPA.L (A5),A7
000226c4 62 06 |b | BHI 0x226cc
000226c6 44 fc 00 02 |D | MOVE.W #0x2,CCR
000226ca 4e 76 |Nv | TRAPV
000226cc de fc 00 32 | 2 | ADDA.W #0x32,A7
000226d0 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7)
000226d4 45 ee ff fa |E | LEA.L (A6-0x6),A2
000226d8 72 0e |r | MOVEQ.L #0x0e,D1
000226da 55 4f |UO | SUBQ.L #0x2,A7
000226dc 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool
000226e2 4a 1f |J | TST.B (A7)+
000226e4 67 12 |g | BEQ 0x226f8
000226e6 9e c1 | | SUBA.W D1,A7
000226e8 20 4f | O | MOVEA.L A7,A0
000226ea 43 fa ff b6 |C | LEA.L 0x226a2,A1
000226ee 70 0c |p | MOVEQ.L #0x0c,D0
000226f0 10 d9 | | MOVE.B (A1)+,(A0)+
000226f2 51 c8 ff fc |Q | DBF D0,0x226f0
000226f6 60 10 |` | BRA 0x22708
000226f8 9e c1 | | SUBA.W D1,A7
000226fa 20 4f | O | MOVEA.L A7,A0
000226fc 43 fa ff b2 |C | LEA.L 0x226b0,A1
00022700 70 0c |p | MOVEQ.L #0x0c,D0
00022702 10 d9 | | MOVE.B (A1)+,(A0)+
00022704 51 c8 ff fc |Q | DBF D0,0x22702
00022708 59 4f |YO | SUBQ.L #0x4,A7
0002270a 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002270e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00022712 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7)
00022716 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002271c 50 4f |PO | ADDQ.L #0x8,A7
0002271e 48 52 |HR | PEA.L (A2)
00022720 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer)
00022726 de fc 00 16 | | ADDA.W #0x16,A7
0002272a 42 27 |B' | CLR.B -(A7)
0002272c 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7)
00022730 2f 12 |/ | MOVE.L (A2),-(A7)
00022732 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer)
00022738 50 4f |PO | ADDQ.L #0x8,A7
0002273a 48 52 |HR | PEA.L (A2)
0002273c 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer)
00022742 58 4f |XO | ADDQ.L #0x4,A7
00022744 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2
00022748 4e 5e |N^ | UNLK A6
0002274a 4e 75 |Nu | RTS
0002274c 43 4c 45 41 52 5f 50 41 |CLEAR_PA| .TXT 'CLEAR_PARITY_ERRORS.MEM '
00022764 43 4c 45 41 52 5f 50 41 |CLEAR_PA| .TXT 'CLEAR_PARITY_ERRORS.M32 '
0002277c ; --------------------------------------------------------------------------------------
0002277c ; OMSI PASCAL Function
0002277c ; <LVAR 0x008 1(r)>
0002277c ; <LVAR -0x006 @ 4(r)>
0002277c ; --------------------------------------------------------------------------------------
0002277c 4e 56 ff be |NV | LINK.W A6,#0xffbe
00022780 bf d5 | | CMPA.L (A5),A7
00022782 62 06 |b | BHI 0x2278a
00022784 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022788 4e 76 |Nv | TRAPV
0002278a de fc 00 3c | < | ADDA.W #0x3c,A7
0002278e 48 e7 c0 e0 |H | MOVEM.L A2+A1+A0+D1+D0,-(A7)
00022792 45 ee ff fa |E | LEA.L (A6-0x6),A2
00022796 72 18 |r | MOVEQ.L #0x18,D1
00022798 55 4f |UO | SUBQ.L #0x2,A7
0002279a 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool
000227a0 4a 1f |J | TST.B (A7)+
000227a2 67 12 |g | BEQ 0x227b6
000227a4 9e c1 | | SUBA.W D1,A7
000227a6 20 4f | O | MOVEA.L A7,A0
000227a8 43 fa ff a2 |C | LEA.L 0x2274c,A1
000227ac 70 16 |p | MOVEQ.L #0x16,D0
000227ae 10 d9 | | MOVE.B (A1)+,(A0)+
000227b0 51 c8 ff fc |Q | DBF D0,0x227ae
000227b4 60 10 |` | BRA 0x227c6
000227b6 9e c1 | | SUBA.W D1,A7
000227b8 20 4f | O | MOVEA.L A7,A0
000227ba 43 fa ff a8 |C | LEA.L 0x22764,A1
000227be 70 16 |p | MOVEQ.L #0x16,D0
000227c0 10 d9 | | MOVE.B (A1)+,(A0)+
000227c2 51 c8 ff fc |Q | DBF D0,0x227c0
000227c6 59 4f |YO | SUBQ.L #0x4,A7
000227c8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000227cc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
000227d0 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
000227d4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
000227da 50 4f |PO | ADDQ.L #0x8,A7
000227dc 48 52 |HR | PEA.L (A2)
000227de 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer)
000227e4 de fc 00 20 | | ADDA.W #0x20,A7
000227e8 42 27 |B' | CLR.B -(A7)
000227ea 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7)
000227ee 2f 12 |/ | MOVE.L (A2),-(A7)
000227f0 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer)
000227f6 50 4f |PO | ADDQ.L #0x8,A7
000227f8 48 52 |HR | PEA.L (A2)
000227fa 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer)
00022800 58 4f |XO | ADDQ.L #0x4,A7
00022802 4c df 07 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2
00022806 4e 5e |N^ | UNLK A6
00022808 4e 75 |Nu | RTS
0002280a 43 4c 45 41 52 5f 48 49 |CLEAR_HI| .TXT 'CLEAR_HITS.MEM'
00022818 43 4c 45 41 52 5f 48 49 |CLEAR_HI| .TXT 'CLEAR_HITS.M32'
00022826 ; --------------------------------------------------------------------------------------
00022826 ; OMSI PASCAL Function
00022826 ; <LVAR 0x008 1(r)>
00022826 ; <LVAR -0x006 @ 4(r)>
00022826 ; --------------------------------------------------------------------------------------
00022826 4e 56 ff d0 |NV | LINK.W A6,#0xffd0
0002282a bf d5 | | CMPA.L (A5),A7
0002282c 62 06 |b | BHI 0x22834
0002282e 44 fc 00 02 |D | MOVE.W #0x2,CCR
00022832 4e 76 |Nv | TRAPV
00022834 de fc 00 2a | * | ADDA.W #0x2a,A7
00022838 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7)
0002283c 43 ee ff fa |C | LEA.L (A6-0x6),A1
00022840 55 4f |UO | SUBQ.L #0x2,A7
00022842 4e b9 00 01 04 cc |N | JSR MemOnly2MB() : Bool
00022848 4a 1f |J | TST.B (A7)+
0002284a 67 0e |g | BEQ 0x2285a
0002284c 41 fa ff ca |A | LEA.L 0x22818,A0
00022850 70 06 |p | MOVEQ.L #0x06,D0
00022852 3f 20 |? | MOVE.W -(A0),-(A7)
00022854 51 c8 ff fc |Q | DBF D0,0x22852
00022858 60 0c |` | BRA 0x22866
0002285a 41 fa ff ca |A | LEA.L 0x22826,A0
0002285e 70 06 |p | MOVEQ.L #0x06,D0
00022860 3f 20 |? | MOVE.W -(A0),-(A7)
00022862 51 c8 ff fc |Q | DBF D0,0x22860
00022866 59 4f |YO | SUBQ.L #0x4,A7
00022868 48 6f 00 04 |Ho | PEA.L (A7+0x4)
0002286c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
00022870 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00022874 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
0002287a 50 4f |PO | ADDQ.L #0x8,A7
0002287c 48 51 |HQ | PEA.L (A1)
0002287e 4e b9 00 01 04 60 |N ` | JSR ExpLoad(a : String; b: Pointer)
00022884 de fc 00 16 | | ADDA.W #0x16,A7
00022888 42 27 |B' | CLR.B -(A7)
0002288a 1f 2e 00 08 | . | MOVE.B (A6+0x8),-(A7)
0002288e 2f 11 |/ | MOVE.L (A1),-(A7)
00022890 4e b9 00 01 04 ba |N | JSR ExpRun(a: Bool; adr: Byte; b: Pointer)
00022896 50 4f |PO | ADDQ.L #0x8,A7
00022898 48 51 |HQ | PEA.L (A1)
0002289a 4e b9 00 01 04 96 |N | JSR ExpClose(exp : Pointer)
000228a0 58 4f |XO | ADDQ.L #0x4,A7
000228a2 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1
000228a6 4e 5e |N^ | UNLK A6
000228a8 4e 75 |Nu | RTS
000228aa exp_RUN_CHECK.IOC():
000228aa 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000228b0 00 08 | | .CONST 0x0008 ; Stack-delta
000228b2 0d 52 55 4e 5f 43 48 45 | RUN_CHE| .TXT 13,'RUN_CHECK.IOC'
000228c0 00 | | .CONST 0x0
000228c1 04 | | .CONST 0x4 ; DIPROC address
000228c2 00 | | .CONST 0x0 ; Output Parameters
000228c3 00 | | .CONST 0x0 ; Input Parameters
000228c4 exp_PREP_RUN.IOC(Sw_2):
000228c4 4e b9 00 01 05 68 |N h | JSR Run_Experiment()
000228ca 00 0a | | .CONST 0x000a ; Stack-delta
000228cc 0c 50 52 45 50 5f 52 55 | PREP_RU| .TXT 12,'PREP_RUN.IOC'
000228d9 00 | | .CONST 0x0
000228da 04 | | .CONST 0x4 ; DIPROC address
000228db 00 | | .CONST 0x0 ; Output Parameters
000228dc 01 | | .CONST 0x1 ; Input Parameters
000228dd 01 | | .CONST 0x1 ; In arg [2]
000228de 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_'
000228ec ; --------------------------------------------------------------------------------------
000228ec ; OMSI PASCAL Function
000228ec ; <LVAR 0x008 1(r)>
000228ec ; --------------------------------------------------------------------------------------
000228ec PROG_FAIL:
000228ec 4e 56 ff d2 |NV | LINK.W A6,#0xffd2
000228f0 bf d5 | | CMPA.L (A5),A7
000228f2 62 06 |b | BHI 0x228fa
000228f4 44 fc 00 02 |D | MOVE.W #0x2,CCR
000228f8 4e 76 |Nv | TRAPV
000228fa de fc 00 2c | , | ADDA.W #0x2c,A7
000228fe 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7)
00022902 41 fa ff e8 |A | LEA.L PROG_FAIL,A0
00022906 70 06 |p | MOVEQ.L #0x06,D0
00022908 3f 20 |? | MOVE.W -(A0),-(A7)
0002290a 51 c8 ff fc |Q | DBF D0,0x22908
0002290e 1f 3c 00 03 | < | MOVE.B #0x03,-(A7)
00022912 51 4f |QO | SUBQ.L #0x8,A7
00022914 48 6f 00 0a |Ho | PEA.L (A7+0xa)
00022918 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7)
0002291c 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7)
00022920 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String
00022926 58 4f |XO | ADDQ.L #0x4,A7
00022928 10 2e 00 08 | . | MOVE.B (A6+0x8),D0
0002292c 48 80 |H | EXTB.W D0
0002292e 48 c0 |H | EXTW.L D0
00022930 2f 00 |/ | MOVE.L D0,-(A7)
00022932 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String
00022938 58 4f |XO | ADDQ.L #0x4,A7
0002293a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022940 50 4f |PO | ADDQ.L #0x8,A7
00022942 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00022948 de fc 00 14 | | ADDA.W #0x14,A7
0002294c 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0
00022950 4e 5e |N^ | UNLK A6
00022952 4e 75 |Nu | RTS
00022954 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ '
00022962 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ '
00022970 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ '
0002297e 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :'
00022990 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. '
000229a8 ; --------------------------------------------------------------------------------------
000229a8 ; OMSI PASCAL Function
000229a8 ; <LVAR 0x00e 1(r)>
000229a8 ; <LVAR 0x00a 4(r)>
000229a8 ; <LVAR 0x008 1(r)>
000229a8 ; --------------------------------------------------------------------------------------
000229a8 EXP_FAIL:
000229a8 4e 56 ff 8c |NV | LINK.W A6,#0xff8c
000229ac bf d5 | | CMPA.L (A5),A7
000229ae 62 06 |b | BHI 0x229b6
000229b0 44 fc 00 02 |D | MOVE.W #0x2,CCR
000229b4 4e 76 |Nv | TRAPV
000229b6 de fc 00 74 | t | ADDA.W #0x74,A7
000229ba 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7)
000229be 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3
000229c4 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4
000229ca 72 01 |r | MOVEQ.L #0x01,D1
000229cc 74 0d |t | MOVEQ.L #0x0d,D2
000229ce 76 1e |v | MOVEQ.L #0x1e,D3
000229d0 78 12 |x | MOVEQ.L #0x12,D4
000229d2 7a 0e |z | MOVEQ.L #0x0e,D5
000229d4 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void)
000229da 41 fa ff b4 |A | LEA.L 0x22990,A0
000229de 70 08 |p | MOVEQ.L #0x08,D0
000229e0 3f 20 |? | MOVE.W -(A0),-(A7)
000229e2 51 c8 ff fc |Q | DBF D0,0x229e0
000229e6 59 4f |YO | SUBQ.L #0x4,A7
000229e8 48 6f 00 04 |Ho | PEA.L (A7+0x4)
000229ec 3f 01 |? | MOVE.W D1,-(A7)
000229ee 3f 04 |? | MOVE.W D4,-(A7)
000229f0 4e 93 |N | JSR (A3)
000229f2 50 4f |PO | ADDQ.L #0x8,A7
000229f4 4e 94 |N | JSR (A4)
000229f6 50 4f |PO | ADDQ.L #0x8,A7
000229f8 20 4f | O | MOVEA.L A7,A0
000229fa 43 fa ff 58 |C X | LEA.L 0x22954,A1
000229fe 70 0c |p | MOVEQ.L #0x0c,D0
00022a00 10 d9 | | MOVE.B (A1)+,(A0)+
00022a02 51 c8 ff fc |Q | DBF D0,0x22a00
00022a06 51 4f |QO | SUBQ.L #0x8,A7
00022a08 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00022a0c 3f 01 |? | MOVE.W D1,-(A7)
00022a0e 3f 02 |? | MOVE.W D2,-(A7)
00022a10 4e 93 |N | JSR (A3)
00022a12 54 4f |TO | ADDQ.L #0x2,A7
00022a14 1e ae 00 0e | | MOVE.B (A6+0xe),(A7)
00022a18 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String
00022a1e 54 4f |TO | ADDQ.L #0x2,A7
00022a20 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022a26 50 4f |PO | ADDQ.L #0x8,A7
00022a28 4e 94 |N | JSR (A4)
00022a2a de c4 | | ADDA.W D4,A7
00022a2c 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0
00022a30 b0 c1 | | CMPA.W D1,A0
00022a32 67 48 |gH | BEQ 0x22a7c
00022a34 9e c5 | | SUBA.W D5,A7
00022a36 22 4f |"O | MOVEA.L A7,A1
00022a38 45 fa ff 28 |E ( | LEA.L 0x22962,A2
00022a3c 70 0c |p | MOVEQ.L #0x0c,D0
00022a3e 12 da | | MOVE.B (A2)+,(A1)+
00022a40 51 c8 ff fc |Q | DBF D0,0x22a3e
00022a44 9e c3 | | SUBA.W D3,A7
00022a46 22 4f |"O | MOVEA.L A7,A1
00022a48 41 e8 00 fc |A | LEA.L (A0+0xfc),A0
00022a4c 70 1d |p | MOVEQ.L #0x1d,D0
00022a4e 12 d8 | | MOVE.B (A0)+,(A1)+
00022a50 51 c8 ff fc |Q | DBF D0,0x22a4e
00022a54 51 4f |QO | SUBQ.L #0x8,A7
00022a56 48 6f 00 26 |Ho & | PEA.L (A7+0x26)
00022a5a 3f 01 |? | MOVE.W D1,-(A7)
00022a5c 3f 02 |? | MOVE.W D2,-(A7)
00022a5e 4e 93 |N | JSR (A3)
00022a60 58 4f |XO | ADDQ.L #0x4,A7
00022a62 48 6f 00 0c |Ho | PEA.L (A7+0xc)
00022a66 3f 01 |? | MOVE.W D1,-(A7)
00022a68 3f 03 |? | MOVE.W D3,-(A7)
00022a6a 4e 93 |N | JSR (A3)
00022a6c 50 4f |PO | ADDQ.L #0x8,A7
00022a6e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022a74 50 4f |PO | ADDQ.L #0x8,A7
00022a76 4e 94 |N | JSR (A4)
00022a78 de fc 00 30 | 0 | ADDA.W #0x30,A7
00022a7c 9e c5 | | SUBA.W D5,A7
00022a7e 20 4f | O | MOVEA.L A7,A0
00022a80 43 fa fe ee |C | LEA.L 0x22970,A1
00022a84 70 0c |p | MOVEQ.L #0x0c,D0
00022a86 10 d9 | | MOVE.B (A1)+,(A0)+
00022a88 51 c8 ff fc |Q | DBF D0,0x22a86
00022a8c 51 4f |QO | SUBQ.L #0x8,A7
00022a8e 48 6f 00 08 |Ho | PEA.L (A7+0x8)
00022a92 3f 01 |? | MOVE.W D1,-(A7)
00022a94 3f 02 |? | MOVE.W D2,-(A7)
00022a96 4e 93 |N | JSR (A3)
00022a98 54 4f |TO | ADDQ.L #0x2,A7
00022a9a 1e ae 00 08 | | MOVE.B (A6+0x8),(A7)
00022a9e 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String)
00022aa4 54 4f |TO | ADDQ.L #0x2,A7
00022aa6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String
00022aac 50 4f |PO | ADDQ.L #0x8,A7
00022aae 4e 94 |N | JSR (A4)
00022ab0 5d 4f |]O | SUBQ.L #0x6,A7
00022ab2 20 4f | O | MOVEA.L A7,A0
00022ab4 43 fa fe da |C | LEA.L 0x22990,A1
00022ab8 70 16 |p | MOVEQ.L #0x16,D0
00022aba 10 d9 | | MOVE.B (A1)+,(A0)+
00022abc 51 c8 ff fc |Q | DBF D0,0x22aba
00022ac0 1f 3c 00 02 | < | MOVE.B #0x02,-(A7)
00022ac4 59 4f |YO | SUBQ.L #0x4,A7
00022ac6 48 6f 00 06 |Ho | PEA.L (A7+0x6)
00022aca 3f 01 |? | MOVE.W D1,-(A7)
00022acc 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7)
00022ad0 4e 93 |N | JSR (A3)
00022ad2 50 4f |PO | ADDQ.L #0x8,A7
00022ad4 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String)
00022ada de c3 | | ADDA.W D3,A7
00022adc 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4
00022ae0 4e 5e |N^ | UNLK A6
00022ae2 4e 75 |Nu | RTS