|
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: 17408 (0x4400)
Types: M200
Notes: @(#)KERMIT,1.0,92/09/09,00:00:00, M200_PROGRAM
Names: »KERMIT.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »KERMIT.M200«
@ 21162
<POP 21162-21310 Body>
<POP 21162-21178 Prologue> Σ0 ↓
<POP 21178-21194 RegCacheLoad> Σ0 ↓
<POP 21194-21196 Naked> Σ0 ↓
<MI 21194 MOVEQ.L #0x01,D7> {}
<POP 21196-211a2 Naked> Σ0 ↓ →0x21196 ←0x21196
<Call 0x21196 0x103dc> {}
WriteConsoleCrLf(void)
<MI 21198 ADDQ.L #0x1,D7> {}
<MI 2119a CMPI.L #0x00000004,D7> {}
<MI 211a0 BLE 0x21196> {}
<POP 211a2-211a4 Naked> Σ0 ↓
<MI 211a2 MOVEQ.L #0x01,D7> {}
<POP 211a4-211ba Naked> Σ0 ↓ →0x211a4 ←0x211a4
<Const 0x211a4 0x20.2> Δ-2 {[#32]}
<Call 0x211a8 0x103d0> {[#32]}
WriteConsoleChar(chr : char)
<POP 211ae-211b0 StackAdj> Δ+2 {}
<MI 211b0 ADDQ.L #0x1,D7> {}
<MI 211b2 CMPI.L #0x00000014,D7> {}
<MI 211b8 BLE 0x211a4> {}
<POP 211ba-21308 Naked> Σ0 ↓
<Blob 0x211ba [24] @> Δ-24 {[«24""»]}
<POP 211cc-211ce StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x211ce 23> {[«24""»]|[$$Rational DFS Kermit 1.0]}
<Call 0x211dc 0x103e0> {[«24""»]|[$$Rational DFS Kermit 1.0]}
WriteConsoleStringCrLf(str : String)
<POP 211de-211e2 StackAdj> Δ+28 {}
<Call 0x211e2 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x211e4 [58] @> Δ-58 {[«58""»]}
<POP 211f6-211f8 StackAdj> Δ-4 {[«58""»]|[-4-]}
<Lit 0x211f8 57> {[«58""»]|[$$Welcome to Rational DFS Kermit, a file transfer protocol.]}
<Call 0x21206 0x103e0> {[«58""»]|[$$Welcome to Rational DFS Kermit, a file transfer protocol.]}
WriteConsoleStringCrLf(str : String)
<POP 21208-21209 StackAdj> Δ+62 ↓ {}
<Blob 0x21209 [68] @> Δ-68 {[«68""»]}
<POP 21218-2121a StackAdj> Δ-4 {[«68""»]|[-4-]}
<Lit 0x2121a 67> {[«68""»]|[$$This program transfers files (text, binary, or kernel) between this]}
<Call 0x21226 0x103e0> {[«68""»]|[$$This program transfers files (text, binary, or kernel) between this]}
WriteConsoleStringCrLf(str : String)
<POP 21228-21229 StackAdj> Δ+72 ↓ {}
<Blob 0x21229 [64] @> Δ-64 {[«64""»]}
<POP 21238-2123a StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x2123a 63> {[«64""»]|[$$machine and either another R1000 running the Environment or any]}
<Call 0x21246 0x103e0> {[«64""»]|[$$machine and either another R1000 running the Environment or any]}
WriteConsoleStringCrLf(str : String)
<MI 21248 MOVEA.L A7,A0> {[«64""»]|[$$machine and either another R1000 running the Environment or any]}
<MI 2124a LEA.L 0x2025e,A1> {[«64""»]|[$$machine and either another R1000 running the Environment or any]}
<BlockMove 67,A1,A0> {[«64""»]|[$$machine and either another R1000 running the Environment or any]}
<POP 21256-21258 StackAdj> Δ-4 {[«64""»]|[$$machine and either another R1000 running the Environment or any]|[-4-]}
<Lit 0x21258> {[«64""»]|[$$machine and either another R1000 running the Environment or any]|[$$…]}
<Pointer.sp 0x21258 4> Δ-4
<Const 0x2125c 0x1.2> Δ-2
<Const 0x2125e 0x43.2> Δ-2
<Call 0x21260 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21262-21264 StackAdj> Δ+8
<Call 0x21264 0x103e0> {[«64""»]|[$$machine and either another R1000 running the Environment or any]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 21266-21267 StackAdj> Δ+72 ↓ {}
<Blob 0x21267 [66] @> Δ-66 {[«66""»]}
<POP 21276-21278 StackAdj> Δ-4 {[«66""»]|[-4-]}
<Lit 0x21278 65> {[«66""»]|[$$operations are initiated from the "Environment end" thru a series]}
<Call 0x21284 0x103e0> {[«66""»]|[$$operations are initiated from the "Environment end" thru a series]}
WriteConsoleStringCrLf(str : String)
<POP 21286-21288 StackAdj> Δ+70 {}
<Blob 0x21288 [64] @> Δ-64 {[«64""»]}
<POP 21294-21296 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x21296 64> {[«64""»]|[$$of Kermit.commands while this, the DFS machine, acts solely as a]}
<Call 0x212a4 0x103e0> {[«64""»]|[$$of Kermit.commands while this, the DFS machine, acts solely as a]}
WriteConsoleStringCrLf(str : String)
<POP 212a6-212a7 StackAdj> Δ+68 ↓ {}
<Blob 0x212a7 [64] @> Δ-64 {[«64""»]}
<POP 212b6-212b8 StackAdj> Δ-4 {[«64""»]|[-4-]}
<Lit 0x212b8 63> {[«64""»]|[$$slave. The communications port on this machine is the internal]}
<Call 0x212c4 0x103e0> {[«64""»]|[$$slave. The communications port on this machine is the internal]}
WriteConsoleStringCrLf(str : String)
<MI 212c6 MOVEA.L A7,A0> {[«64""»]|[$$slave. The communications port on this machine is the internal]}
<MI 212c8 LEA.L 0x20364,A1> {[«64""»]|[$$slave. The communications port on this machine is the internal]}
<BlockMove 67,A1,A0> {[«64""»]|[$$slave. The communications port on this machine is the internal]}
<POP 212d4-212d6 StackAdj> Δ-4 {[«64""»]|[$$slave. The communications port on this machine is the internal]|[-4-]}
<Lit 0x212d6> {[«64""»]|[$$slave. The communications port on this machine is the internal]|[$$…]}
<Pointer.sp 0x212d6 4> Δ-4
<Const 0x212da 0x1.2> Δ-2
<Const 0x212dc 0x43.2> Δ-2
<Call 0x212de 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 212e0-212e2 StackAdj> Δ+8
<Call 0x212e2 0x103e0> {[«64""»]|[$$slave. The communications port on this machine is the internal]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 212e4-212e5 StackAdj> Δ+72 ↓ {}
<Blob 0x212e5 [66] @> Δ-66 {[«66""»]}
<POP 212f4-212f6 StackAdj> Δ-4 {[«66""»]|[-4-]}
<Lit 0x212f6 65> {[«66""»]|[$$no capability to dial out and must be called after it is running.]}
<Call 0x21302 0x103e0> {[«66""»]|[$$no capability to dial out and must be called after it is running.]}
WriteConsoleStringCrLf(str : String)
<POP 21304-21306 StackAdj> Δ+70 {}
<Call 0x21306 0x103dc> {}
WriteConsoleCrLf(void)
<POP 21308-21310 Epilogue> Σ0
@ 21310
<POP 21310-21504 Body>
<POP 21310-21326 Prologue> Σ0 ↓
<POP 21326-21344 RegCacheLoad> Σ0 ↓
<POP 21344-214fc Naked> Σ0 ↓
<Call 0x21344 0x103dc> {}
WriteConsoleCrLf(void)
<Call 0x21346 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21348 [28] @> Δ-28 {[«28""»]}
<POP 21358-2135a StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x2135a 27> {[«28""»]|[$$Console (local) commands]}
<Call 0x21366 0x103e0> {[«28""»]|[$$Console (local) commands]}
WriteConsoleStringCrLf(str : String)
<POP 21368-21369 StackAdj> Δ+32 ↓ {}
<Blob 0x21369 [28] @> Δ-28 {[«28""»]}
<POP 21378-2137a StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x2137a 27> {[«28""»]|[$$---------------------------]}
<Call 0x21386 0x103e0> {[«28""»]|[$$---------------------------]}
WriteConsoleStringCrLf(str : String)
<POP 21388-21389 StackAdj> Δ+32 ↓ {}
<Blob 0x21389 [46] @> Δ-46 {[«46""»]}
<POP 2139a-2139c StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x2139c 45> {[«46""»]|[$$Help Display greeting/info message]}
<Call 0x213aa 0x103e0> {[«46""»]|[$$Help Display greeting/info message]}
WriteConsoleStringCrLf(str : String)
<POP 213ac-213ad StackAdj> Δ+50 ↓ {}
<Blob 0x213ad [42] @> Δ-42 {[«42""»]}
<POP 213bc-213be StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x213be 41> {[«42""»]|[$$Show Show parameters in effect]}
<Call 0x213cc 0x103e0> {[«42""»]|[$$Show Show parameters in effect]}
WriteConsoleStringCrLf(str : String)
<POP 213ce-213d0 StackAdj> Δ+46 {}
<Blob 0x213d0 [56] @> Δ-56 {[«56""»]}
<POP 213dc-213de StackAdj> Δ-4 {[«56""»]|[-4-]}
<Lit 0x213de 56> {[«56""»]|[$$Answer Answer phone and allow remote operations]}
<Call 0x213ec 0x103e0> {[«56""»]|[$$Answer Answer phone and allow remote operations]}
WriteConsoleStringCrLf(str : String)
<POP 213ee-213ef StackAdj> Δ+60 ↓ {}
<Blob 0x213ef [30] @> Δ-30 {[«30""»]}
<POP 21400-21402 StackAdj> Δ-4 {[«30""»]|[-4-]}
<Lit 0x21402 29> {[«30""»]|[$$Quit Return to CLI]}
<Call 0x21410 0x103e0> {[«30""»]|[$$Quit Return to CLI]}
WriteConsoleStringCrLf(str : String)
<POP 21412-21416 StackAdj> Δ+34 {}
<Blob 0x21416 [50] @> Δ-50 {[«50""»]}
<POP 21422-21424 StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x21424 50> {[«50""»]|[$$TT / TF Trace program flow - True / False]}
<Call 0x21430 0x103e0> {[«50""»]|[$$TT / TF Trace program flow - True / False]}
WriteConsoleStringCrLf(str : String)
<POP 21432-21434 StackAdj> Δ+54 {}
<Blob 0x21434 [46] @> Δ-46 {[«46""»]}
<POP 21440-21442 StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x21442 46> {[«46""»]|[$$DT / DF Display packets - True / False]}
<Call 0x2144e 0x103e0> {[«46""»]|[$$DT / DF Display packets - True / False]}
WriteConsoleStringCrLf(str : String)
<POP 21450-21452 StackAdj> Δ+50 {}
<Call 0x21452 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21454 [28] @> Δ-28 {[«28""»]}
<POP 21464-21466 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x21466 27> {[«28""»]|[$$Comm line (remote) commands]}
<Call 0x21472 0x103e0> {[«28""»]|[$$Comm line (remote) commands]}
WriteConsoleStringCrLf(str : String)
<POP 21474-21475 StackAdj> Δ+32 ↓ {}
<Blob 0x21475 [28] @> Δ-28 {[«28""»]}
<POP 21484-21486 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x21486 27> {[«28""»]|[$$---------------------------]}
<Call 0x21492 0x103e0> {[«28""»]|[$$---------------------------]}
WriteConsoleStringCrLf(str : String)
<POP 21494-21498 StackAdj> Δ+32 {}
<Blob 0x21498 [50] @> Δ-50 {[«50""»]}
<POP 214a4-214a6 StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x214a6 50> {[«50""»]|[$$Receive Start file transfer to DFS machine]}
<Call 0x214b2 0x103e0> {[«50""»]|[$$Receive Start file transfer to DFS machine]}
WriteConsoleStringCrLf(str : String)
<POP 214b4-214b6 StackAdj> Δ+54 {}
<Blob 0x214b6 [52] @> Δ-52 {[«52""»]}
<POP 214c2-214c4 StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x214c4 52> {[«52""»]|[$$Send Start file transfer from DFS machine]}
<Call 0x214d2 0x103e0> {[«52""»]|[$$Send Start file transfer from DFS machine]}
WriteConsoleStringCrLf(str : String)
<POP 214d4-214d5 StackAdj> Δ+56 ↓ {}
<Blob 0x214d5 [50] @> Δ-50 {[«50""»]}
<POP 214e4-214e6 StackAdj> Δ-4 {[«50""»]|[-4-]}
<Lit 0x214e6 49> {[«50""»]|[$$Quit Hang up and return to DFS control]}
<Call 0x214f4 0x103e0> {[«50""»]|[$$Quit Hang up and return to DFS control]}
WriteConsoleStringCrLf(str : String)
<POP 214f6-214f8 StackAdj> Δ+54 {}
<Call 0x214f8 0x103dc> {}
WriteConsoleCrLf(void)
<Call 0x214fa 0x103dc> {}
WriteConsoleCrLf(void)
<POP 214fc-21504 Epilogue> Σ0
@ 21504
<LVAR -0x004 @ 4(rw)>
<POP 21504-21742 Body>
<POP 21504-2151a Prologue> Σ0 ↓
<POP 2151a-21534 RegCacheLoad> Σ0 ↓
<POP 21534-2166e Naked> Σ0 ↓ →0x21692
<Call 0x21534 0x103dc> {}
WriteConsoleCrLf(void)
<Call 0x2153a 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x21540 [42] @> Δ-42 {[«42""»]}
<POP 2154c-2154e StackAdj> Δ-4 {[«42""»]|[-4-]}
<Lit 0x2154e 42> {[«42""»]|[$$------ Protocol and file parameters ------]}
<Call 0x2155c 0x103e0> {[«42""»]|[$$------ Protocol and file parameters ------]}
WriteConsoleStringCrLf(str : String)
<POP 2155e-21562 StackAdj> Δ+46 {}
<Call 0x21562 0x103dc> {}
WriteConsoleCrLf(void)
<Pointer.fp 0x21568 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x2156a 0x102b8> {[@@-4]}
NewString(VAR a : String)
<POP 21570-21572 StackAdj> Δ+4 {}
<MI 21572 MOVEA.L (A6-0x4),A0> {}
<MI 21574 MOVE.W #0x8,(A0)> {}
<Blob 0x21578 [28] @> Δ-28 {[«28""»]}
<POP 2158a-2158c StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x2158c 27> {[«28""»]|[$$Comm port ...... phone line]}
<Call 0x2159a 0x103e0> {[«28""»]|[$$Comm port ...... phone line]}
WriteConsoleStringCrLf(str : String)
<POP 2159c-2159e StackAdj> Δ+32 {}
<Blob 0x2159e [26] @> Δ-26 {[«26""»]}
<POP 215aa-215ac StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x215ac 26> {[«26""»]|[$$Comm rate ...... 1200 baud]}
<Call 0x215ba 0x103e0> {[«26""»]|[$$Comm rate ...... 1200 baud]}
WriteConsoleStringCrLf(str : String)
<POP 215bc-215bd StackAdj> Δ+30 ↓ {}
<Blob 0x215bd [20] @> Δ-20 {[«20""»]}
<POP 215ce-215d0 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x215d0 19> {[«20""»]|[$$Packet length .. 94]}
<Call 0x215de 0x103e0> {[«20""»]|[$$Packet length .. 94]}
WriteConsoleStringCrLf(str : String)
<MI 215e0 MOVEA.L A7,A0> {[«20""»]|[$$Packet length .. 94]}
<MI 215e2 LEA.L 0x20658,A1> {[«20""»]|[$$Packet length .. 94]}
<BlockMove 23,A1,A0> {[«20""»]|[$$Packet length .. 94]}
<POP 215ee-215f0 StackAdj> Δ-4 {[«20""»]|[$$Packet length .. 94]|[-4-]}
<Lit 0x215f0> {[«20""»]|[$$Packet length .. 94]|[$$…]}
<Pointer.sp 0x215f0 4> Δ-4
<Const 0x215f4 0x1.2> Δ-2
<Const 0x215f6 0x17.2> Δ-2
<Call 0x215f8 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 215fa-215fc StackAdj> Δ+8
<Call 0x215fc 0x103e0> {[«20""»]|[$$Packet length .. 94]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 215fe-215ff StackAdj> Δ+28 ↓ {}
<Blob 0x215ff [24] @> Δ-24 {[«24""»]}
<POP 2160e-21610 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x21610 23> {[«24""»]|[$$User timeout ... 2 min.]}
<Call 0x2161c 0x103e0> {[«24""»]|[$$User timeout ... 2 min.]}
WriteConsoleStringCrLf(str : String)
<POP 2161e-2161f StackAdj> Δ+28 ↓ {}
<Blob 0x2161f [36] @> Δ-36 {[«36""»]}
<POP 2162e-21630 StackAdj> Δ-4 {[«36""»]|[-4-]}
<Lit 0x21630 35> {[«36""»]|[$$Xfer timeout ... 5 trys, 8 sec each]}
<Call 0x2163e 0x103e0> {[«36""»]|[$$Xfer timeout ... 5 trys, 8 sec each]}
WriteConsoleStringCrLf(str : String)
<POP 21640-21641 StackAdj> Δ+40 ↓ {}
<Blob 0x21641 [8] @> Δ-8 {[«8""»]}
<POP 21650-21652 StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x21652 7> {[«8""»]|[$$Unknown]}
<MI 21660 MOVE.L (A7)+,(A6-0x4)> Δ+4 {[«8""»]}
<POP 21662-21664 StackAdj> Δ+8 {}
<MI 21664 MOVE.B 0x24273,D0> {}
<MI 2166a CMP.B #0x01,D0> {}
<MI 2166c BNE 0x21692> {}
<POP 2166e-21692 Naked> Σ0 ↓
<Blob 0x2166e [6] @> Δ-6 {[«6""»]}
<POP 2167e-21680 StackAdj> Δ-4 {[«6""»]|[-4-]}
<Lit 0x21680 5> {[«6""»]|[$$ASCII]}
<MI 2168e MOVE.L (A7)+,(A6-0x4)> Δ+4 {[«6""»]}
<POP 21690-21692 StackAdj> Δ+6 {}
<POP 21692-2169e Naked> Σ0 ↓ →0x216bc ←0x21534
<MI 21692 MOVE.B 0x24273,D0> {}
<MI 21698 CMPI.B #0x02,D0> {}
<MI 2169c BNE 0x216bc> {}
<POP 2169e-216bc Naked> Σ0 ↓
<Blob 0x2169e [2] @> Δ-2 {[«2""»]}
<Blob 0x216a2 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x216a6 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 216aa-216ac StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x216ac 6> {[«2""»]|[«2""»]|[«2""»]|[$$Binary]}
<MI 216b8 MOVE.L (A7)+,(A6-0x4)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 216ba-216bc StackAdj> Δ+6 {}
<POP 216bc-216c8 Naked> Σ0 ↓ →0x216e6 ←0x21692
<MI 216bc MOVE.B 0x24273,D0> {}
<MI 216c2 CMPI.B #0x03,D0> {}
<MI 216c6 BNE 0x216e6> {}
<POP 216c8-216e6 Naked> Σ0 ↓
<Blob 0x216c8 [2] @> Δ-2 {[«2""»]}
<Blob 0x216cc [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x216d0 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 216d4-216d6 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x216d6 6> {[«2""»]|[«2""»]|[«2""»]|[$$Kernel]}
<MI 216e2 MOVE.L (A7)+,(A6-0x4)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 216e4-216e6 StackAdj> Δ+6 {}
<POP 216e6-2173a Naked> Σ0 ↓ ←0x216bc
<Blob 0x216e6 [4] @> Δ-4 {[«4""»]}
<Blob 0x216ea [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x216ee [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x216f2 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<POP 216f6-216f8 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-8-]}
<Lit 0x216f8 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$File type ......]}
<POP 21704-21706 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$File type ......]|[-4-]}
<MI 21706 MOVE.L (A6-0x4),(A7)> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$File type ......]|[4, '(A6-0x4)']}
<Call 0x21708 0x102d0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]|[$$File type ......]|[4, '(A6-0x4)']}
StringCat2(a, b : String) : String
<POP 2170e-21710 StackAdj> Δ+8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Call 0x21710 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 21712-21714 StackAdj> Δ+20 {}
<Blob 0x21714 [20] @> Δ-20 {[«20""»]}
<POP 21720-21722 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21722 20> {[«20""»]|[$$File warning ... off]}
<Call 0x2172e 0x103e0> {[«20""»]|[$$File warning ... off]}
WriteConsoleStringCrLf(str : String)
<POP 21730-21734 StackAdj> Δ+24 {}
<Call 0x21734 0x103dc> {}
WriteConsoleCrLf(void)
<POP 2173a-21742 Epilogue> Σ0
@ 21742
<POP 21742-217bc Body>
<POP 21742-21758 Prologue> Σ0 ↓
<POP 21758-2175e RegCacheLoad> Σ0 ↓
<POP 2175e-21766 Naked> Σ0 ↓ →0x21798
<MI 2175e TST.B 0x24267> {}
<MI 21764 BEQ 0x21798> {}
<POP 21766-21798 Naked> Σ0 ↓
<Blob 0x21766 [16] @> Δ-16 {[«16""»]}
<POP 21778-2177a StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x2177a 15> {[«16""»]|[$$# get_test_byte]}
<Call 0x2178e 0x103e0> {[«16""»]|[$$# get_test_byte]}
WriteConsoleStringCrLf(str : String)
<POP 21794-21798 StackAdj> Δ+20 {}
<POP 21798-217b4 Naked> Σ0 ↓ ←0x2175e
<MI 21798 MOVE.W 0x24290,D0> {}
<MI 2179a ADDQ.W #0x1,D0> {}
<POP 0x2179c LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 217a0 MOVE.W D0,0x24290> {}
<MI 217a2 SUBQ.W #0x1,D0> {}
<POP 0x217a4 LimitCheck 0x0 ≤ D0 ≤ 0x8e> {}
<MI 217a8 LEA.L 0x20de4,A0> {}
<MI 217ac MOVE.B (A0+D0.W),0x24aa0> {}
<POP 217b4-217bc Epilogue> Σ0
@ 217bc
<LVAR 0x00c 1(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x004 @ 2(r)>
<LVAR -0x00e 4(rw)>
<LVAR -0x010 2(rw)>
<LVAR -0x012 1(r)>
<LVAR -0x018 @>
<POP 217bc-21a3c Body> Δ+2
<POP 217bc-217d2 Prologue> Σ0 ↓
<POP 217d2-217ee RegCacheLoad> Σ0 ↓
<POP 217ee-217f6 Naked> Σ0 ↓ →0x21820
<MI 217ee TST.B 0x24267> {}
<MI 217f4 BEQ 0x21820> {}
<POP 217f6-21820 Naked> Σ0 ↓
<Blob 0x217f6 [18] @> Δ-18 {[«18""»]}
<POP 21802-21804 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21804 18> {[«18""»]|[$$<<get_remote_str>>]}
<Call 0x21816 0x103e0> {[«18""»]|[$$<<get_remote_str>>]}
WriteConsoleStringCrLf(str : String)
<POP 2181c-21820 StackAdj> Δ+22 {}
<POP 21820-21828 Naked> Σ0 ↓ →0x2182e ←0x217ee
<MI 21820 TST.B 0x24268> {}
<MI 21826 BEQ 0x2182e> {}
<POP 21828-2182e Naked> Σ0 ↓
<Call 0x21828 0x103dc> {}
WriteConsoleCrLf(void)
<POP 2182e-21850 Naked> Σ0 ↓ ←0x21820
<MI 2182e CLR.L (A6-0xe)> {}
<MI 21832 MOVEQ.L #0x00,D6> {}
<MI 21834 MOVEQ.L #0x01,D7> {}
<MI 21836 MOVEQ.L #0x00,D5> {}
<Pointer.fp 0x21838 <LVAR -0x018 @>> Δ-4 {[@@-24]}
<Call 0x2183c 0x10226> {[@@-24]}
KC13_ReadRtc
<POP 21842-21844 StackAdj> Δ+4 {}
<MI 21844 CLR.L D0> {}
<MI 21846 MOVE.B (A6-0x12),D0> {}
<MI 2184a MOVE.W D0,(A6-0x10)> {}
<MI 2184e CLR.B 0x24265> {}
<POP 21850-21862 Naked> Σ0 ↓ →0x21866 ←0x218c6 ←0x21902 ←0x21918 ←0x219ca ←0x21a30
<Const 0x21850 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x21852 <LVAR -0x002 @ 1(r)>> Δ-4 {[#3]|[@@-2]}
<Call 0x21854 0x10212> {[#3]|[@@-2]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 2185a-2185c StackAdj> Δ+6 {}
<MI 2185c MOVE.B (A6-0x2),D0> {}
<MI 2185e CMP.B #0x01,D0> {}
<MI 21860 BNE 0x21866> {}
<POP 21862-21866 Naked> Σ0 →0x21906
<MI 21862 BRA 0x21906> {}
<POP 21866-2186a Naked> Σ0 ↓ →0x21872 ←0x21850
<MI 21866 TST.B (A6-0x2)> {}
<MI 21868 BEQ 0x21872> {}
<POP 2186a-21872 Naked> Σ0 →0x21a34
<MI 2186a MOVE.B #0x0e,0x24265> {}
<MI 2186e BRA 0x21a34> {}
<POP 21872-21878 Naked> Σ0 ↓ →0x2187c ←0x21866
<MI 21872 TST.L (A6+0x8)> {}
<MI 21876 BNE 0x2187c> {}
<POP 21878-2187c Naked> Σ0 →0x21a34
<MI 21878 BRA 0x21a34> {}
<POP 2187c-2188e Naked> Σ0 ↓ →0x218ae ←0x21872
<Const 0x2187c 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x2187e <LVAR -0x002 @ 1(r)>> Δ-4 {[#1]|[@@-2]}
<Call 0x21880 0x10212> {[#1]|[@@-2]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 21886-21888 StackAdj> Δ+6 {}
<MI 21888 MOVE.B (A6-0x2),D0> {}
<MI 2188a CMP.B #0x01,D0> {}
<MI 2188c BNE 0x218ae> {}
<POP 2188e-218a6 Naked> Σ0 ↓ →0x218ae
<Const 0x2188e 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x21890 <LVAR -0x004 @ 2(r)>> Δ-4 {[#1]|[@@-4]}
<Call 0x21894 0x1020e> {[#1]|[@@-4]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 2189a-2189c StackAdj> Δ+6 {}
<MI 2189c MOVE.W (A6-0x4),D0> {}
<MI 218a0 AND.W #0x7f,D0> {}
<MI 218a2 CMP.W #0x03,D0> {}
<MI 218a4 BNE 0x218ae> {}
<POP 218a6-218ae Naked> Σ0 →0x21a34
<MI 218a6 MOVE.B #0x17,0x24265> {}
<MI 218aa BRA 0x21a34> {}
<POP 218ae-218c6 Naked> Σ0 ↓ →0x218c8 ←0x2187c ←0x2188e
<Pointer.fp 0x218ae <LVAR -0x018 @>> Δ-4 {[@@-24]}
<Call 0x218b2 0x10226> {[@@-24]}
KC13_ReadRtc
<POP 218b8-218ba StackAdj> Δ+4 {}
<MI 218ba CLR.L D0> {}
<MI 218bc MOVE.B (A6-0x12),D0> {}
<MI 218c0 CMP.W (A6-0x10),D0> {}
<MI 218c4 BNE 0x218c8> {}
<POP 218c6-218c8 Naked> Σ0 →0x21850
<MI 218c6 BRA 0x21850> {}
<POP 218c8-218e0 Naked> Σ0 ↓ →0x218e8 ←0x218ae
<MI 218c8 CLR.L D0> {}
<MI 218ca MOVE.B (A6-0x12),D0> {}
<MI 218ce MOVE.W D0,(A6-0x10)> {}
<MI 218d2 ADDQ.L #0x1,(A6-0xe)> {}
<MI 218d6 MOVE.L (A6-0xe),D0> {}
<MI 218da CMP.L (A6+0x8),D0> {}
<MI 218de BNE 0x218e8> {}
<POP 218e0-218e8 Naked> Σ0 →0x21a34
<MI 218e0 MOVE.B #0x10,0x24265> {}
<MI 218e4 BRA 0x21a34> {}
<POP 218e8-218f0 Naked> Σ0 ↓ →0x21900 ←0x218c8
<MI 218e8 CMPI.L #0x00000005,D6> {}
<MI 218ee BNE 0x21900> {}
<POP 218f0-21900 Naked> Σ0 →0x21902
<MI 218f0 MOVEQ.L #0x00,D6> {}
<Const 0x218f2 0x2e.2> Δ-2 {[#46]}
<Call 0x218f6 0x103d0> {[#46]}
WriteConsoleChar(chr : char)
<POP 218fc-218fe StackAdj> Δ+2 {}
<MI 218fe BRA 0x21902> {}
<POP 21900-21902 Naked> Σ0 ↓ ←0x218e8
<MI 21900 ADDQ.L #0x1,D6> {}
<POP 21902-21906 Naked> Σ0 →0x21850 ←0x218f0
<MI 21902 BRA 0x21850> {}
<POP 21906-21918 Naked> Σ0 ↓ →0x2191c ←0x21862
<Const 0x21906 0x3.2> Δ-2 {[#3]}
<Const 0x21908 0x24a9e.4> Δ-4 {[#3]|[##150174]}
<Call 0x2190a 0x1020e> {[#3]|[##150174]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 21910-21912 StackAdj> Δ+6 {}
<MI 21912 TST.L (A6+0x8)> {}
<MI 21916 BNE 0x2191c> {}
<POP 21918-2191c Naked> Σ0 →0x21850
<MI 21918 BRA 0x21850> {}
<POP 2191c-2192c Naked> Σ0 ↓ →0x2195e ←0x21906
<MI 2191c MOVEQ.L #0x00,D6> {}
<MI 2191e MOVE.W 0x24a9e,D0> {}
<MI 21920 AND.W #0x7f,D0> {}
<MI 21922 MOVE.B D0,0x24aa0> {}
<MI 21924 TST.B 0x24268> {}
<MI 2192a BEQ 0x2195e> {}
<POP 2192c-21938 Naked> Σ0 ↓ →0x21954
<MI 2192c CLR.L D1> {}
<MI 2192e MOVE.B D0,D1> {}
<MI 21930 CMPI.L #0x00000020,D1> {}
<MI 21936 BCC 0x21954> {}
<POP 21938-21954 Naked> Σ0 Δ-2 →0x21956
<Const 0x21938 0x5e.2> Δ-2 {[#94]}
<Call 0x2193c 0x103d0> {[#94]}
WriteConsoleChar(chr : char)
<POP 21942-21944 StackAdj> Δ+2 {}
<MI 21944 CLR.L D0> {}
<MI 21946 MOVE.B 0x24aa0,D0> {}
<MI 21948 ADDI.W #0x0040,D0> {}
<POP 0x2194c LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21950 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<MI 21952 BRA 0x21956> {[2, 'D0']}
<POP 21954-21956 Naked> Σ0 Δ-2 ↓ ←0x2192c
<MI 21954 MOVE.B D1,-(A7)> Δ-2 {[2, 'D1']}
<POP 21956-2195e Naked> Σ-2 Δ+2 ↓ ←0x21938
<Call 0x21956 0x103d0> {[-2-]}
WriteConsoleChar(chr : char)
<POP 2195c-2195e StackAdj> Δ+2 {}
<POP 2195e-21966 Naked> Σ0 ↓ →0x219f4 ←0x2191c
<MI 2195e TST.B (A6+0xc)> {}
<MI 21962 BEQ 0x219f4> {}
<POP 21966-2196e Naked> Σ0 ↓ →0x21970
<MI 21966 CLR.L D0> {}
<MI 21968 MOVE.B 0x24aa0,D0> {}
<MI 2196a CMP.L #0x01,D0> {}
<MI 2196c BNE 0x21970> {}
<POP 2196e-21970 Naked> Σ0 ↓
<MI 2196e MOVEQ.L #0x01,D5> {}
<POP 21970-21978 Naked> Σ0 ↓ →0x2197a ←0x21966
<MI 21970 CMPI.L #0x0000000d,D0> {}
<MI 21976 BNE 0x2197a> {}
<POP 21978-2197a Naked> Σ0 ↓
<MI 21978 MOVEQ.L #0x00,D5> {}
<POP 2197a-2197e Naked> Σ0 ↓ →0x21980 ←0x21970
<MI 2197a TST.B D5> {}
<MI 2197c BEQ 0x21980> {}
<POP 2197e-21980 Naked> Σ0 →0x219f4
<MI 2197e BRA 0x219f4> {}
<POP 21980-2198e Naked> Σ0 ↓ →0x21992 ←0x2197a
<MI 21980 AND.W #0x7f,0x24a9e> {}
<MI 21982 CLR.L D0> {}
<MI 21984 MOVE.W 0x24a9e,D0> {}
<MI 21986 CMPI.L #0x00000008,D0> {}
<MI 2198c BEQ 0x21992> {}
<POP 2198e-21992 Naked> Σ0 ↓ →0x219ce
<MI 2198e CMP.L #0x7f,D0> {}
<MI 21990 BNE 0x219ce> {}
<POP 21992-21996 Naked> Σ0 ↓ →0x219ca ←0x21980
<MI 21992 CMP.W #0x01,D7> {}
<MI 21994 BLE 0x219ca> {}
<POP 21996-219ca Naked> Σ0 ↓
<Const 0x21996 0x3.2> Δ-2 {[#3]}
<Const 0x21998 0x8.2> Δ-2 {[#3]|[#8]}
<Call 0x2199c 0x1020c> {[#3]|[#8]}
KC06_PortPutChar(port : Word ; b : char)
<POP 219a2-219a4 StackAdj> Δ+2 {[#3]}
<POP 219a4-219a5 StackAdj> Δ+2 {}
<Const 0x219a5 0x3.2> Δ-2 {[#3]}
<Const 0x219a6 0x20.2> Δ-2 {[#3]|[#32]}
<Call 0x219aa 0x1020c> {[#3]|[#32]}
KC06_PortPutChar(port : Word ; b : char)
<POP 219b0-219b2 StackAdj> Δ+2 {[#3]}
<POP 219b2-219b3 StackAdj> Δ+2 {}
<Const 0x219b3 0x3.2> Δ-2 {[#3]}
<Const 0x219b4 0x8.2> Δ-2 {[#3]|[#8]}
<Call 0x219b8 0x1020c> {[#3]|[#8]}
KC06_PortPutChar(port : Word ; b : char)
<POP 219be-219c0 StackAdj> Δ+4 {}
<MI 219c0 MOVE.W D7,D0> {}
<MI 219c2 SUBQ.W #0x1,D0> {}
<POP 0x219c4 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 219c8 MOVE.W D0,D7> {}
<POP 219ca-219ce Naked> Σ0 →0x21850 ←0x21992
<MI 219ca BRA 0x21850> {}
<POP 219ce-219e6 Naked> Σ0 ↓ →0x219f4 ←0x2198e
<Const 0x219ce 0x3.2> Δ-2 {[#3]}
<Blob 0x219d0 [2] 0x24a9e> Δ-2 {[#3]|[«2»]}
<Call 0x219d2 0x1020c> {[#3]|[«2»]}
KC06_PortPutChar(port : Word ; b : char)
<POP 219d8-219da StackAdj> Δ+4 {}
<MI 219da CLR.L D0> {}
<MI 219dc MOVE.W 0x24a9e,D0> {}
<MI 219de CMPI.L #0x0000000d,D0> {}
<MI 219e4 BNE 0x219f4> {}
<POP 219e6-219f4 Naked> Σ0 ↓
<Const 0x219e6 0x3.2> Δ-2 {[#3]}
<Const 0x219e8 0xa.2> Δ-2 {[#3]|[#10]}
<Call 0x219ec 0x1020c> {[#3]|[#10]}
KC06_PortPutChar(port : Word ; b : char)
<POP 219f2-219f4 StackAdj> Δ+4 {}
<POP 219f4-219fc Naked> Σ0 ↓ →0x219fe ←0x2195e ←0x2197e ←0x219ce
<MI 219f4 CLR.L D0> {}
<MI 219f6 MOVE.B 0x24aa0,D0> {}
<MI 219f8 CMP.L #0x01,D0> {}
<MI 219fa BNE 0x219fe> {}
<POP 219fc-219fe Naked> Σ0 ↓
<MI 219fc MOVEQ.L #0x01,D7> {}
<POP 219fe-21a1c Naked> Σ0 ↓ →0x21a20 ←0x219f4
<MI 219fe MOVEA.L 0x24aa2,A0> {}
<MI 21a04 MOVE.W D7,D0> {}
<MI 21a06 SUBQ.W #0x1,D0> {}
<POP 0x21a08 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 21a0c MOVE.B 0x24aa0,(A0+D0.W+#0x2)> {}
<MI 21a10 CLR.L D0> {}
<MI 21a12 MOVE.B 0x24aa0,D0> {}
<MI 21a14 CMPI.L #0x0000000d,D0> {}
<MI 21a1a BNE 0x21a20> {}
<POP 21a1c-21a20 Naked> Σ0 →0x21a34
<MI 21a1c MOVE.W D7,(A0)> {}
<MI 21a1e BRA 0x21a34> {}
<POP 21a20-21a26 Naked> Σ0 ↓ →0x21a30 ←0x219fe
<MI 21a20 CMPI.W #0x0062,D7> {}
<MI 21a24 BGE 0x21a30> {}
<POP 21a26-21a30 Naked> Σ0 ↓
<MI 21a26 MOVE.W D7,D0> {}
<MI 21a28 ADDQ.W #0x1,D0> {}
<POP 0x21a2a LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21a2e MOVE.W D0,D7> {}
<POP 21a30-21a34 Naked> Σ0 →0x21850 ←0x21a20
<MI 21a30 BRA 0x21850> {}
<POP 21a34-21a3c Epilogue> Σ0 ←0x2186a ←0x21878 ←0x218a6 ←0x218e0 ←0x21a1c
@ 21a3c
<LVAR 0x008 4(r)>
<POP 21a3c-21b62 Body>
<POP 21a3c-21a52 Prologue> Σ0 ↓
<POP 21a52-21a64 RegCacheLoad> Σ0 ↓
<POP 21a64-21a6e Naked> Σ0 ↓ →0x21a9a
<MI 21a64 CLR.B 0x24266> {}
<MI 21a66 TST.B 0x24267> {}
<MI 21a6c BEQ 0x21a9a> {}
<POP 21a6e-21a9a Naked> Σ0 ↓
<Blob 0x21a6e [18] @> Δ-18 {[«18""»]}
<POP 21a7a-21a7c StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21a7c 18> {[«18""»]|[$$<<block_checksum>>]}
<Call 0x21a90 0x103e0> {[«18""»]|[$$<<block_checksum>>]}
WriteConsoleStringCrLf(str : String)
<POP 21a96-21a9a StackAdj> Δ+22 {}
<POP 21a9a-21aaa Naked> Σ0 ↓ →0x21ab2 ←0x21a64
<MI 21a9a MOVEA.L (A6+0x8),A0> {}
<MI 21a9c CLR.L D0> {}
<MI 21a9e MOVE.B (A0+0x3),D0> {}
<MI 21aa2 CMPI.L #0x00000023,D0> {}
<MI 21aa8 BCS 0x21ab2> {}
<POP 21aaa-21ab2 Naked> Σ0 ↓ →0x21aba
<MI 21aaa CMPI.L #0x0000007e,D0> {}
<MI 21ab0 BLE 0x21aba> {}
<POP 21ab2-21aba Naked> Σ0 →0x21b5a ←0x21a9a
<MI 21ab2 MOVE.B #0x01,0x24266> {}
<MI 21ab6 BRA 0x21b5a> {}
<POP 21aba-21ac6 Naked> Σ0 ↓ →0x21ace ←0x21aaa
<MI 21aba MOVEA.L (A6+0x8),A0> {}
<MI 21abc CLR.L D0> {}
<MI 21abe MOVE.B (A0+0x4),D0> {}
<MI 21ac2 CMP.L #0x20,D0> {}
<MI 21ac4 BCS 0x21ace> {}
<POP 21ac6-21ace Naked> Σ0 ↓ →0x21ad6
<MI 21ac6 CMPI.L #0x0000005f,D0> {}
<MI 21acc BLE 0x21ad6> {}
<POP 21ace-21ad6 Naked> Σ0 →0x21b5a ←0x21aba
<MI 21ace MOVE.B #0x02,0x24266> {}
<MI 21ad2 BRA 0x21b5a> {}
<POP 21ad6-21aec Naked> Σ0 Δ-4 ↓ ←0x21ac6
<MI 21ad6 MOVEA.L (A6+0x8),A0> {}
<MI 21ad8 CLR.L D0> {}
<MI 21ada MOVE.B (A0+0x3),D0> {}
<MI 21ade SUB.W #0x20,D0> {}
<MI 21ae0 EXTW.L D0> {}
<MI 21ae2 MOVE.L D0,D5> {}
<MI 21ae4 MOVEQ.L #0x00,D7> {}
<MI 21ae6 MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 21ae8 ADDQ.L #0x1,(A7)> {[-4-]}
<MI 21aea MOVEQ.L #0x02,D6> {[-4-]}
<POP 21aec-21af0 Naked> Σ-4 ↓ →0x21b0c ←0x21af0
<MI 21aec CMP.L (A7),D6> {[-4-]}
<MI 21aee BGT 0x21b0c> {[-4-]}
<POP 21af0-21b0c Naked> Σ-4 ↓ →0x21aec
<MI 21af0 MOVEA.L (A6+0x8),A0> {[-4-]}
<MI 21af2 MOVE.L D6,D0> {[-4-]}
<MI 21af4 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x21af6 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 21b00 CLR.L D1> {[-4-]}
<MI 21b02 MOVE.B (A0+D0.L+#0x2),D1> {[-4-]}
<MI 21b06 ADD.L D1,D7> {[-4-]}
<MI 21b08 ADDQ.L #0x1,D6> {[-4-]}
<MI 21b0a BVC 0x21aec> {[-4-]}
<POP 21b0c-21b56 Naked> Σ-4 Δ+4 ↓ →0x21b5a ←0x21aec
<POP 21b0c-21b0e StackAdj> Δ+4 {}
<MI 21b0e MOVE.L D7,D4> {}
<MI 21b10 MOVE.L #0x100,D3> {}
<Call 0x21b16 0x10294> {}
?divs_d3_d4
<MI 21b18 MOVE.L D3,D7> {}
<MI 21b1a MOVE.L D7,D4> {}
<MI 21b1c MOVEQ.L #0x40,D3> {}
<Call 0x21b1e 0x10294> {}
?divs_d3_d4
<MI 21b20 ADD.L D4,D7> {}
<MI 21b22 MOVE.L D7,D4> {}
<MI 21b24 MOVEQ.L #0x40,D3> {}
<Call 0x21b26 0x10294> {}
?divs_d3_d4
<MI 21b28 MOVE.L D3,D7> {}
<MI 21b2a MOVE.L D7,D0> {}
<MI 21b2c ADD.L #0x20,D0> {}
<POP 0x21b2e LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21b38 MOVE.B D0,0x24289> {}
<MI 21b3e MOVEA.L (A6+0x8),A0> {}
<MI 21b40 MOVE.L D5,D1> {}
<MI 21b42 ADDQ.L #0x2,D1> {}
<MI 21b44 SUBQ.L #0x1,D1> {}
<POP 0x21b46 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 21b50 CMP.B (A0+D1.L+#0x2),D0> {}
<MI 21b54 BEQ 0x21b5a> {}
<POP 21b56-21b5a Naked> Σ0 ↓
<MI 21b56 MOVE.B #0x04,0x24266> {}
<POP 21b5a-21b62 Epilogue> Σ0 ←0x21ab2 ←0x21ace ←0x21b0c
@ 21b62
<LVAR 0x008 4(r)>
<POP 21b62-21c3e Body>
<POP 21b62-21b78 Prologue> Σ0 ↓
<POP 21b78-21b7e RegCacheLoad> Σ0 ↓
<POP 21b7e-21b86 Naked> Σ0 ↓ →0x21bb2
<MI 21b7e TST.B 0x24267> {}
<MI 21b84 BEQ 0x21bb2> {}
<POP 21b86-21bb2 Naked> Σ0 ↓
<Blob 0x21b86 [10] @> Δ-10 {[«10""»]}
<POP 21b92-21b94 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x21b94 10> {[«10""»]|[$$<<encode>>]}
<Call 0x21ba8 0x103e0> {[«10""»]|[$$<<encode>>]}
WriteConsoleStringCrLf(str : String)
<POP 21bae-21bb2 StackAdj> Δ+14 {}
<POP 21bb2-21bdc Naked> Σ0 ↓ →0x21bde ←0x21b7e
<MI 21bb2 MOVEA.L (A6+0x8),A0> {}
<MI 21bb6 CLR.L D0> {}
<MI 21bb8 MOVE.B (A0+0x3),D0> {}
<MI 21bbc ADD.W #0x20,D0> {}
<POP 0x21bbe LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21bc0 MOVE.B D0,(A0+0x3)> {}
<MI 21bc4 CLR.L D0> {}
<MI 21bc6 MOVE.B (A0+0x4),D0> {}
<MI 21bca ADD.W #0x20,D0> {}
<POP 0x21bcc LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21bce MOVE.B D0,(A0+0x4)> {}
<MI 21bd2 MOVE.B (A0+0x5),D0> {}
<MI 21bd6 CMPI.B #0x59,D0> {}
<MI 21bda BNE 0x21bde> {}
<POP 21bdc-21bde Naked> Σ0 →0x21be0
<MI 21bdc BRA 0x21be0> {}
<POP 21bde-21be0 Naked> Σ0 →0x21c36 ←0x21bb2
<MI 21bde BRA 0x21c36> {}
<POP 21be0-21bec Naked> Σ0 ↓ →0x21c36 ←0x21bdc
<MI 21be0 MOVE.B 0x2428e,D0> {}
<MI 21be6 CMPI.B #0x53,D0> {}
<MI 21bea BNE 0x21c36> {}
<POP 21bec-21c36 Naked> Σ0 ↓
<MI 21bec MOVEA.L (A6+0x8),A0> {}
<MI 21bf0 CLR.L D0> {}
<MI 21bf2 MOVE.B (A0+0x6),D0> {}
<MI 21bf6 ADD.W #0x20,D0> {}
<POP 0x21bf8 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21bfa MOVE.B D0,(A0+0x6)> {}
<MI 21bfe CLR.L D0> {}
<MI 21c00 MOVE.B (A0+0x7),D0> {}
<MI 21c04 ADD.W #0x20,D0> {}
<POP 0x21c06 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21c08 MOVE.B D0,(A0+0x7)> {}
<MI 21c0c CLR.L D0> {}
<MI 21c0e MOVE.B (A0+0x8),D0> {}
<MI 21c12 ADD.W #0x20,D0> {}
<POP 0x21c14 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21c16 MOVE.B D0,(A0+0x8)> {}
<MI 21c1a CLR.L D0> {}
<MI 21c1c MOVE.B (A0+0xa),D0> {}
<MI 21c20 ADD.W #0x20,D0> {}
<POP 0x21c22 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21c24 MOVE.B D0,(A0+0xa)> {}
<MI 21c28 CLR.L D0> {}
<MI 21c2a MOVE.B (A0+0xf),D0> {}
<MI 21c2e ADD.W #0x20,D0> {}
<POP 0x21c30 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21c32 MOVE.B D0,(A0+0xf)> {}
<POP 21c36-21c3e Epilogue> Σ0 ←0x21bde ←0x21be0
@ 21c3e
<LVAR 0x008 4(r)>
<LVAR -0x003 1(rw)>
<LVAR -0x008 4(rw)>
<POP 21c3e-21e8e Body>
<POP 21c3e-21c54 Prologue> Σ0 ↓
<POP 21c54-21c70 RegCacheLoad> Σ0 ↓
<POP 21c70-21c7a Naked> Σ0 ↓ →0x21ca6
<MI 21c70 CLR.B 0x24265> {}
<MI 21c72 TST.B 0x24267> {}
<MI 21c78 BEQ 0x21ca6> {}
<POP 21c7a-21ca6 Naked> Σ0 ↓
<Blob 0x21c7a [10] @> Δ-10 {[«10""»]}
<POP 21c86-21c88 StackAdj> Δ-4 {[«10""»]|[-4-]}
<Lit 0x21c88 10> {[«10""»]|[$$<<decode>>]}
<Call 0x21c9c 0x103e0> {[«10""»]|[$$<<decode>>]}
WriteConsoleStringCrLf(str : String)
<POP 21ca2-21ca6 StackAdj> Δ+14 {}
<POP 21ca6-21cd4 Naked> Σ0 ↓ →0x21cec ←0x21c70
<MI 21ca6 MOVEA.L (A6+0x8),A0> {}
<MI 21ca8 CLR.L D0> {}
<MI 21caa MOVE.B (A0+0x3),D0> {}
<MI 21cae SUBI.W #0x0020,D0> {}
<POP 0x21cb2 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21cb4 MOVE.B D0,(A0+0x3)> {}
<MI 21cb8 CLR.L D0> {}
<MI 21cba MOVE.B (A0+0x4),D0> {}
<MI 21cbe SUBI.W #0x0020,D0> {}
<POP 0x21cc2 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21cc4 MOVE.B D0,(A0+0x4)> {}
<MI 21cc8 MOVE.B (A0+0x5),D0> {}
<MI 21ccc MOVE.B D0,(A6-0x3)> {}
<MI 21cce CMPI.B #0x59,D0> {}
<MI 21cd2 BEQ 0x21cec> {}
<POP 21cd4-21cda Naked> Σ0 ↓ →0x21cec
<MI 21cd4 CMPI.B #0x42,D0> {}
<MI 21cd8 BEQ 0x21cec> {}
<POP 21cda-21ce0 Naked> Σ0 ↓ →0x21cec
<MI 21cda CMPI.B #0x4e,D0> {}
<MI 21cde BEQ 0x21cec> {}
<POP 21ce0-21ce6 Naked> Σ0 ↓ →0x21cec
<MI 21ce0 CMPI.B #0x41,D0> {}
<MI 21ce4 BEQ 0x21cec> {}
<POP 21ce6-21cec Naked> Σ0 ↓ →0x21cf0
<MI 21ce6 CMPI.B #0x5a,D0> {}
<MI 21cea BNE 0x21cf0> {}
<POP 21cec-21cf0 Naked> Σ0 →0x21e86 ←0x21ca6 ←0x21cd4 ←0x21cda ←0x21ce0
<MI 21cec BRA 0x21e86> {}
<POP 21cf0-21cf8 Naked> Σ0 ↓ →0x21cfa ←0x21ce6
<MI 21cf0 MOVE.B (A6-0x3),D0> {}
<MI 21cf2 CMPI.B #0x53,D0> {}
<MI 21cf6 BNE 0x21cfa> {}
<POP 21cf8-21cfa Naked> Σ0 →0x21d18
<MI 21cf8 BRA 0x21d18> {}
<POP 21cfa-21d02 Naked> Σ0 ↓ →0x21d0e ←0x21cf0
<MI 21cfa MOVE.B (A6-0x3),D0> {}
<MI 21cfc CMPI.B #0x45,D0> {}
<MI 21d00 BEQ 0x21d0e> {}
<POP 21d02-21d08 Naked> Σ0 ↓ →0x21d0e
<MI 21d02 CMPI.B #0x46,D0> {}
<MI 21d06 BEQ 0x21d0e> {}
<POP 21d08-21d0e Naked> Σ0 ↓ →0x21d10
<MI 21d08 CMPI.B #0x44,D0> {}
<MI 21d0c BNE 0x21d10> {}
<POP 21d0e-21d10 Naked> Σ0 →0x21d6e ←0x21cfa ←0x21d02
<MI 21d0e BRA 0x21d6e> {}
<POP 21d10-21d18 Naked> Σ0 →0x21e86 ←0x21d08
<MI 21d10 MOVE.B #0x16,0x24265> {}
<MI 21d14 BRA 0x21e86> {}
<POP 21d18-21d6e Naked> Σ0 →0x21e86 ←0x21cf8
<MI 21d18 MOVEA.L (A6+0x8),A0> {}
<MI 21d1a CLR.L D0> {}
<MI 21d1c MOVE.B (A0+0x6),D0> {}
<MI 21d20 SUBI.W #0x0020,D0> {}
<POP 0x21d24 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21d26 MOVE.B D0,(A0+0x6)> {}
<MI 21d2a CLR.L D0> {}
<MI 21d2c MOVE.B (A0+0x7),D0> {}
<MI 21d30 SUBI.W #0x0020,D0> {}
<POP 0x21d34 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21d36 MOVE.B D0,(A0+0x7)> {}
<MI 21d3a CLR.L D0> {}
<MI 21d3c MOVE.B (A0+0x8),D0> {}
<MI 21d40 SUBI.W #0x0020,D0> {}
<POP 0x21d44 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21d46 MOVE.B D0,(A0+0x8)> {}
<MI 21d4a CLR.L D0> {}
<MI 21d4c MOVE.B (A0+0xa),D0> {}
<MI 21d50 SUBI.W #0x0020,D0> {}
<POP 0x21d54 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21d56 MOVE.B D0,(A0+0xa)> {}
<MI 21d5a CLR.L D0> {}
<MI 21d5c MOVE.B (A0+0xf),D0> {}
<MI 21d60 SUBI.W #0x0020,D0> {}
<POP 0x21d64 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21d66 MOVE.B D0,(A0+0xf)> {}
<MI 21d6a BRA 0x21e86> {}
<POP 21d6e-21d88 Naked> Σ0 ↓ →0x21d8c ←0x21d0e
<MI 21d6e MOVEQ.L #0x05,D5> {}
<MI 21d70 MOVEQ.L #0x05,D7> {}
<MI 21d72 MOVEQ.L #0x00,D6> {}
<MI 21d74 MOVEA.L (A6+0x8),A0> {}
<MI 21d76 CLR.L D0> {}
<MI 21d78 MOVE.B (A0+0x3),D0> {}
<MI 21d7c MOVE.L D0,(A6-0x8)> {}
<MI 21d80 CMPI.L #0x00000003,D0> {}
<MI 21d86 BNE 0x21d8c> {}
<POP 21d88-21d8c Naked> Σ0 →0x21e86
<MI 21d88 BRA 0x21e86> {}
<POP 21d8c-21d98 Naked> Σ0 ↓ →0x21e76 ←0x21d6e ←0x21e6c
<MI 21d8c MOVE.L (A6-0x8),D0> {}
<MI 21d90 ADDQ.L #0x2,D0> {}
<MI 21d92 CMP.L D0,D7> {}
<MI 21d94 BGE 0x21e76> {}
<POP 21d98-21da6 Naked> Σ0 ↓ →0x21dbc
<MI 21d98 MOVEA.L (A6+0x8),A0> {}
<MI 21d9a MOVE.B 0x24273,D0> {}
<MI 21da0 CMPI.B #0x01,D0> {}
<MI 21da4 BLE 0x21dbc> {}
<POP 21da6-21db8 Naked> Σ0 ↓ →0x21dbc
<MI 21da6 MOVE.L D7,D0> {}
<MI 21da8 SUBQ.L #0x1,D0> {}
<POP 0x21daa LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 21db0 MOVE.B (A0+D0.L+#0x2),D0> {}
<MI 21db4 CMP.B 0x2428b,D0> {}
<MI 21db6 BNE 0x21dbc> {}
<POP 21db8-21dbc Naked> Σ0 ↓
<MI 21db8 MOVEQ.L #0x01,D6> {}
<MI 21dba ADDQ.L #0x1,D7> {}
<POP 21dbc-21dd2 Naked> Σ0 ↓ →0x21dd4 ←0x21d98 ←0x21da6
<MI 21dbc MOVE.L D7,D0> {}
<MI 21dbe SUBQ.L #0x1,D0> {}
<POP 0x21dc0 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 21dc6 MOVE.B (A0+D0.L+#0x2),D0> {}
<MI 21dca CMP.B 0x2428a,D0> {}
<MI 21dd0 BEQ 0x21dd4> {}
<POP 21dd2-21dd4 Naked> Σ0 →0x21e24
<MI 21dd2 BRA 0x21e24> {}
<POP 21dd4-21dee Naked> Σ0 ↓ →0x21df0 ←0x21dbc
<MI 21dd4 ADDQ.L #0x1,D7> {}
<MI 21dd6 MOVEA.L (A6+0x8),A0> {}
<MI 21dd8 MOVE.L D7,D0> {}
<MI 21dda SUBQ.L #0x1,D0> {}
<POP 0x21ddc LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 21de2 MOVE.B (A0+D0.L+#0x2),D0> {}
<MI 21de6 CMP.B 0x2428a,D0> {}
<MI 21dec BNE 0x21df0> {}
<POP 21dee-21df0 Naked> Σ0 →0x21e24
<MI 21dee BRA 0x21e24> {}
<POP 21df0-21e04 Naked> Σ0 ↓ →0x21e06 ←0x21dd4
<MI 21df0 MOVEA.L (A6+0x8),A0> {}
<MI 21df2 MOVE.L D7,D0> {}
<MI 21df4 SUBQ.L #0x1,D0> {}
<POP 0x21df6 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 21dfc MOVE.B (A0+D0.L+#0x2),D0> {}
<MI 21e00 CMP.B 0x2428b,D0> {}
<MI 21e02 BNE 0x21e06> {}
<POP 21e04-21e06 Naked> Σ0 →0x21e24
<MI 21e04 BRA 0x21e24> {}
<POP 21e06-21e24 Naked> Σ0 ↓ ←0x21df0
<MI 21e06 MOVEA.L (A6+0x8),A0> {}
<MI 21e08 MOVE.L D7,D0> {}
<MI 21e0a SUBQ.L #0x1,D0> {}
<POP 0x21e0c LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 21e12 CLR.L D1> {}
<MI 21e14 MOVE.B (A0+D0.L+#0x2),D1> {}
<MI 21e18 SUBI.W #0x0040,D1> {}
<MI 21e1c ANDI.W #0x007f,D1> {}
<MI 21e20 MOVE.B D1,(A0+D0.L+#0x2)> {}
<POP 21e24-21e28 Naked> Σ0 ↓ →0x21e50 ←0x21dd2 ←0x21dee ←0x21e04
<MI 21e24 TST.B D6> {}
<MI 21e26 BEQ 0x21e50> {}
<POP 21e28-21e50 Naked> Σ0 →0x21e6c
<MI 21e28 MOVEA.L (A6+0x8),A0> {}
<MI 21e2a MOVE.L D5,D0> {}
<MI 21e2c SUBQ.L #0x1,D0> {}
<POP 0x21e2e LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 21e34 MOVE.L D7,D1> {}
<MI 21e36 SUBQ.L #0x1,D1> {}
<POP 0x21e38 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 21e3e CLR.L D2> {}
<MI 21e40 MOVE.B (A0+D1.L+#0x2),D2> {}
<MI 21e44 ADDI.W #0x0080,D2> {}
<POP 0x21e48 LimitCheck 0x0 ≤ D2 ≤ 0xff> {}
<MI 21e4a MOVE.B D2,(A0+D0.L+#0x2)> {}
<MI 21e4e BRA 0x21e6c> {}
<POP 21e50-21e6c Naked> Σ0 ↓ ←0x21e24
<MI 21e50 MOVEA.L (A6+0x8),A0> {}
<MI 21e52 MOVE.L D5,D0> {}
<MI 21e54 SUBQ.L #0x1,D0> {}
<POP 0x21e56 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 21e5c MOVE.L D7,D1> {}
<MI 21e5e SUBQ.L #0x1,D1> {}
<POP 0x21e60 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 21e66 MOVE.B (A0+D1.L+#0x2),(A0+D0.L+#0x2)> {}
<POP 21e6c-21e76 Naked> Σ0 →0x21d8c ←0x21e28
<MI 21e6c ADDQ.L #0x1,D5> {}
<MI 21e6e ADDQ.L #0x1,D7> {}
<MI 21e70 MOVEQ.L #0x00,D6> {}
<MI 21e72 BRA 0x21d8c> {}
<POP 21e76-21e86 Naked> Σ0 ↓ ←0x21d8c
<MI 21e76 MOVEA.L (A6+0x8),A0> {}
<MI 21e78 MOVE.L D5,D0> {}
<MI 21e7a SUBQ.L #0x2,D0> {}
<POP 0x21e7c LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 21e82 MOVE.B D0,(A0+0x3)> {}
<POP 21e86-21e8e Epilogue> Σ0 ←0x21cec ←0x21d10 ←0x21d18 ←0x21d88
@ 21e8e
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 21e8e-21f5a Body>
<POP 21e8e-21ea4 Prologue> Σ0 ↓
<POP 21ea4-21eaa RegCacheLoad> Σ0 ↓
<POP 21eaa-21eb2 Naked> Σ0 ↓ →0x21ede
<MI 21eaa TST.B 0x24267> {}
<MI 21eb0 BEQ 0x21ede> {}
<POP 21eb2-21ede Naked> Σ0 ↓
<Blob 0x21eb2 [18] @> Δ-18 {[«18""»]}
<POP 21ebe-21ec0 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x21ec0 18> {[«18""»]|[$$<<console_output>>]}
<Call 0x21ed4 0x103e0> {[«18""»]|[$$<<console_output>>]}
WriteConsoleStringCrLf(str : String)
<POP 21eda-21ede StackAdj> Δ+22 {}
<POP 21ede-21ef8 Naked> Σ0 Δ-2 ↓ ←0x21eaa
<Pointer.fp 0x21ede <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x21ee0 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 21ee6-21ee8 StackAdj> Δ+4 {}
<MI 21ee8 MOVEA.L (A6+0x8),A0> {}
<MI 21eec CLR.L D0> {}
<MI 21eee MOVE.B (A0+0x3),D0> {}
<MI 21ef2 SUBQ.W #0x3,D0> {}
<MI 21ef4 MOVE.W D0,-(A7)> Δ-2 {[2, 'D0']}
<MI 21ef6 MOVEQ.L #0x01,D7> {[2, 'D0']}
<POP 21ef8-21efc Naked> Σ-2 ↓ →0x21f26 ←0x21efc
<MI 21ef8 CMP.W (A7),D7> {[-2-]}
<MI 21efa BGT 0x21f26> {[-2-]}
<POP 21efc-21f26 Naked> Σ-2 ↓ →0x21ef8
<MI 21efc MOVEA.L (A6-0x8),A0> {[-2-]}
<MI 21efe MOVE.W D7,D0> {[-2-]}
<MI 21f00 EXTW.L D0> {[-2-]}
<MI 21f02 SUBQ.L #0x1,D0> {[-2-]}
<POP 0x21f04 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-2-]}
<MI 21f0a MOVEA.L (A6+0x8),A1> {[-2-]}
<MI 21f0e MOVE.W D7,D1> {[-2-]}
<MI 21f10 EXTW.L D1> {[-2-]}
<MI 21f12 ADDQ.L #0x4,D1> {[-2-]}
<MI 21f14 SUBQ.L #0x1,D1> {[-2-]}
<POP 0x21f16 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-2-]}
<MI 21f1c MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2)> {[-2-]}
<MI 21f22 ADDQ.W #0x1,D7> {[-2-]}
<MI 21f24 BVC 0x21ef8> {[-2-]}
<POP 21f26-21f52 Naked> Σ-2 Δ+2 ↓ ←0x21ef8
<POP 21f26-21f28 StackAdj> Δ+2 {}
<MI 21f28 MOVEA.L (A6-0x8),A0> {}
<MI 21f2a MOVE.W D7,D0> {}
<MI 21f2c EXTW.L D0> {}
<MI 21f2e SUBQ.L #0x1,D0> {}
<POP 0x21f30 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {}
<MI 21f46 MOVE.W D0,(A0)> {}
<MI 21f48 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x21f4a 0x103e0> {[4, '(A6-0x8)']}
WriteConsoleStringCrLf(str : String)
<POP 21f50-21f52 StackAdj> Δ+4 {}
<POP 21f52-21f5a Epilogue> Σ0
@ 21f5a
<LVAR 0x008 4(r)>
<POP 21f5a-21ff4 Body>
<POP 21f5a-21f70 Prologue> Σ0 ↓
<POP 21f70-21f78 Naked> Σ0 ↓ →0x21faa
<MI 21f70 TST.B 0x24267> {}
<MI 21f76 BEQ 0x21faa> {}
<POP 21f78-21faa Naked> Σ0 ↓
<Blob 0x21f78 [16] @> Δ-16 {[«16""»]}
<POP 21f8a-21f8c StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x21f8c 15> {[«16""»]|[$$<<s_make_caps>>]}
<Call 0x21fa0 0x103e0> {[«16""»]|[$$<<s_make_caps>>]}
WriteConsoleStringCrLf(str : String)
<POP 21fa6-21faa StackAdj> Δ+20 {}
<POP 21faa-21fb6 Naked> Σ0 Δ-4 ↓ ←0x21f70
<MI 21faa MOVEA.L (A6+0x8),A0> {}
<MI 21fae MOVE.W (A0),D0> {}
<MI 21fb0 EXTW.L D0> {}
<MI 21fb2 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21fb4 MOVEQ.L #0x01,D7> {[4, 'D0']}
<POP 21fb6-21fba Naked> Σ-4 ↓ →0x21fea ←0x21fe6
<MI 21fb6 CMP.L (A7),D7> {[-4-]}
<MI 21fb8 BGT 0x21fea> {[-4-]}
<POP 21fba-21fda Naked> Σ-4 ↓ →0x21fe6
<MI 21fba MOVEA.L (A6+0x8),A0> {[-4-]}
<MI 21fbe MOVE.L D7,D0> {[-4-]}
<MI 21fc0 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x21fc2 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 21fcc CLR.L D1> {[-4-]}
<MI 21fce MOVE.B (A0+D0.L+#0x2),D1> {[-4-]}
<MI 21fd2 CMPI.L #0x00000060,D1> {[-4-]}
<MI 21fd8 BLS 0x21fe6> {[-4-]}
<POP 21fda-21fe6 Naked> Σ-4 ↓
<MI 21fda SUBI.W #0x0020,D1> {[-4-]}
<POP 0x21fde LimitCheck 0x0 ≤ D1 ≤ 0xff> {[-4-]}
<MI 21fe2 MOVE.B D1,(A0+D0.L+#0x2)> {[-4-]}
<POP 21fe6-21fea Naked> Σ-4 ↓ →0x21fb6 ←0x21fba
<MI 21fe6 ADDQ.L #0x1,D7> {[-4-]}
<MI 21fe8 BVC 0x21fb6> {[-4-]}
<POP 21fea-21fec Naked> Σ-4 Δ+4 ↓ ←0x21fb6
<POP 21fea-21fec StackAdj> Δ+4 {}
<POP 21fec-21ff4 Epilogue> Σ0
@ 21ff4
<LVAR 0x008 4(r)>
<POP 21ff4-220da Body>
<POP 21ff4-2200a Prologue> Σ0 ↓
<POP 2200a-2200e RegCacheLoad> Σ0 ↓
<POP 2200e-22016 Naked> Σ0 ↓ →0x22048
<MI 2200e TST.B 0x24267> {}
<MI 22014 BEQ 0x22048> {}
<POP 22016-22048 Naked> Σ0 ↓
<Blob 0x22016 [16] @> Δ-16 {[«16""»]}
<POP 22028-2202a StackAdj> Δ-4 {[«16""»]|[-4-]}
<Lit 0x2202a 15> {[«16""»]|[$$<<xmit_packet>>]}
<Call 0x2203e 0x103e0> {[«16""»]|[$$<<xmit_packet>>]}
WriteConsoleStringCrLf(str : String)
<POP 22044-22048 StackAdj> Δ+20 {}
<POP 22048-22072 Naked> Σ0 ↓ →0x220d2 ←0x2200e
<MI 22048 MOVEA.L (A6+0x8),A0> {}
<MI 2204a CLR.L D0> {}
<MI 2204c MOVE.B (A0+0x3),D0> {}
<MI 22050 SUBI.W #0x001d,D0> {}
<MI 22054 MOVE.W D0,(A0)> {}
<Const 0x22056 0x3.2> Δ-2 {[#3]}
<MI 2205a MOVE.L (A6+0x8),-(A7)> Δ-4 {[#3]|[4, '(A6+0x8)']}
<Call 0x2205c 0x1020a> {[#3]|[4, '(A6+0x8)']}
KC05_PortWriteString(port : Word ; str : String)
<POP 22062-22064 StackAdj> Δ+6 {}
<MI 22064 CLR.B 0x24266> {}
<MI 2206a TST.B 0x24268> {}
<MI 22070 BEQ 0x220d2> {}
<POP 22072-22080 Naked> Σ0 Δ-4 ↓
<Call 0x22072 0x103dc> {}
WriteConsoleCrLf(void)
<MI 22078 MOVE.W (A0),D0> {}
<MI 2207a EXTW.L D0> {}
<MI 2207c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2207e MOVEQ.L #0x01,D7> {[4, 'D0']}
<POP 22080-22084 Naked> Σ-4 ↓ →0x220ca ←0x220bc
<MI 22080 CMP.L (A7),D7> {[-4-]}
<MI 22082 BGT 0x220ca> {[-4-]}
<POP 22084-220a2 Naked> Σ-4 ↓ →0x220bc
<MI 22084 MOVEA.L (A6+0x8),A0> {[-4-]}
<MI 22086 MOVE.L D7,D0> {[-4-]}
<MI 22088 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x2208a LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 22094 CLR.L D1> {[-4-]}
<MI 22096 MOVE.B (A0+D0.L+#0x2),D1> {[-4-]}
<MI 2209a CMPI.L #0x00000020,D1> {[-4-]}
<MI 220a0 BCC 0x220bc> {[-4-]}
<POP 220a2-220bc Naked> Σ-4 ↓
<Const 0x220a2 0x5e.2> Δ-2 {[-4-]|[#94]}
<Call 0x220a6 0x103d0> {[-4-]|[#94]}
WriteConsoleChar(chr : char)
<POP 220ac-220ae StackAdj> Δ+2 {[-4-]}
<MI 220ae CLR.L D1> {[-4-]}
<MI 220b0 MOVE.B (A0+D0.L+#0x2),D1> {[-4-]}
<MI 220b4 ADDI.W #0x0040,D1> {[-4-]}
<POP 0x220b8 LimitCheck 0x0 ≤ D1 ≤ 0xff> {[-4-]}
<POP 220bc-220ca Naked> Σ-4 ↓ →0x22080 ←0x22084
<MI 220bc MOVE.B D1,-(A7)> Δ-2 {[-4-]|[2, 'D1']}
<Call 0x220be 0x103d0> {[-4-]|[2, 'D1']}
WriteConsoleChar(chr : char)
<POP 220c4-220c6 StackAdj> Δ+2 {[-4-]}
<MI 220c6 ADDQ.L #0x1,D7> {[-4-]}
<MI 220c8 BVC 0x22080> {[-4-]}
<POP 220ca-220d2 Naked> Σ-4 Δ+4 ↓ ←0x22080
<POP 220ca-220cc StackAdj> Δ+4 {}
<Call 0x220cc 0x103dc> {}
WriteConsoleCrLf(void)
<POP 220d2-220da Epilogue> Σ0 ←0x22048
@ 220da
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 220da-221e4 Body>
<POP 220da-220f0 Prologue> Σ0 ↓
<POP 220f0-22102 RegCacheLoad> Σ0 ↓
<POP 22102-2210a Naked> Σ0 ↓ →0x22138
<MI 22102 TST.B 0x24267> {}
<MI 22108 BEQ 0x22138> {}
<POP 2210a-22138 Naked> Σ0 ↓
<Blob 0x2210a [20] @> Δ-20 {[«20""»]}
<POP 2211c-2211e StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x2211e 19> {[«20""»]|[$$<<try_xmit_packet>>]}
<Call 0x2212e 0x103e0> {[«20""»]|[$$<<try_xmit_packet>>]}
WriteConsoleStringCrLf(str : String)
<POP 22134-22138 StackAdj> Δ+24 {}
<POP 22138-2213a Naked> Σ0 ↓ ←0x22102
<MI 22138 MOVEQ.L #0x00,D7> {}
<POP 2213a-22140 Naked> Σ0 ↓ →0x2217a ←0x22174 ←0x2218a ←0x2219c ←0x221aa
<MI 2213a CMP.L (A6+0x8),D7> {}
<MI 2213e BGE 0x2217a> {}
<POP 22140-22144 Naked> Σ0 ↓ →0x22150
<MI 22140 TST.L D7> {}
<MI 22142 BLE 0x22150> {}
<POP 22144-22150 Naked> Σ0 ↓
<Const 0x22144 0x2d.2> Δ-2 {[#45]}
<Call 0x22148 0x103d0> {[#45]}
WriteConsoleChar(chr : char)
<POP 2214e-22150 StackAdj> Δ+2 {}
<POP 22150-2216c Naked> Σ0 ↓ →0x2216e ←0x22140
<MI 22150 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x22154 0x21ff4> {[4, '(A6+0xc)']}
<POP 22158-2215a StackAdj> Δ+4 {}
<MI 2215a ADDQ.L #0x1,D7> {}
<MI 2215c CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2215e 0xa.4> Δ-4 {[#0]|[##10]}
<Call 0x22162 0x217bc> {[#0]|[##10]}
<POP 22166-22168 StackAdj> Δ+6 {}
<MI 22168 TST.B 0x24265> {}
<MI 2216a BNE 0x2216e> {}
<POP 2216c-2216e Naked> Σ0 →0x2217e
<MI 2216c BRA 0x2217e> {}
<POP 2216e-22174 Naked> Σ0 ↓ →0x22176 ←0x22150
<MI 2216e MOVE.B 0x24265,D0> {}
<MI 22170 CMP.B #0x10,D0> {}
<MI 22172 BNE 0x22176> {}
<POP 22174-22176 Naked> Σ0 →0x2213a
<MI 22174 BRA 0x2213a> {}
<POP 22176-22178 Naked> Σ0 →0x221dc ←0x2216e
<MI 22176 BRA 0x221dc> {}
<POP 2217a-2217e Naked> Σ0 →0x221dc ←0x2213a
<MI 2217a MOVE.B #0x10,0x24265> {}
<MI 2217c BRA 0x221dc> {}
<POP 2217e-2218a Naked> Σ0 ↓ →0x2218c ←0x2216c
<MI 2217e MOVEA.L 0x24aa2,A0> {}
<MI 22180 CLR.L D0> {}
<MI 22182 MOVE.B (A0+0x2),D0> {}
<MI 22186 CMP.L #0x01,D0> {}
<MI 22188 BEQ 0x2218c> {}
<POP 2218a-2218c Naked> Σ0 →0x2213a
<MI 2218a BRA 0x2213a> {}
<POP 2218c-2219c Naked> Σ0 ↓ →0x2219e ←0x2217e
<Blob 0x2218c [4] 0x24aa2> Δ-4 {[«4»]}
<Call 0x2218e 0x21a3c> {[«4»]}
<POP 22192-22194 StackAdj> Δ+4 {}
<MI 22194 TST.B 0x24266> {}
<MI 2219a BEQ 0x2219e> {}
<POP 2219c-2219e Naked> Σ0 →0x2213a
<MI 2219c BRA 0x2213a> {}
<POP 2219e-221aa Naked> Σ0 ↓ →0x221ac ←0x2218c
<MI 2219e MOVEA.L 0x24aa2,A0> {}
<MI 221a0 MOVE.B (A0+0x5),D0> {}
<MI 221a4 CMPI.B #0x4e,D0> {}
<MI 221a8 BNE 0x221ac> {}
<POP 221aa-221ac Naked> Σ0 →0x2213a
<MI 221aa BRA 0x2213a> {}
<POP 221ac-221bc Naked> Σ0 ↓ →0x221be ←0x2219e
<MI 221ac MOVE.B #0x16,0x24265> {}
<MI 221b0 MOVEA.L 0x24aa2,A0> {}
<MI 221b2 MOVE.B (A0+0x5),D0> {}
<MI 221b6 CMPI.B #0x59,D0> {}
<MI 221ba BNE 0x221be> {}
<POP 221bc-221be Naked> Σ0 ↓
<MI 221bc CLR.B 0x24265> {}
<POP 221be-221ca Naked> Σ0 ↓ →0x221cc ←0x221ac
<MI 221be MOVEA.L 0x24aa2,A0> {}
<MI 221c0 MOVE.B (A0+0x5),D0> {}
<MI 221c4 CMPI.B #0x45,D0> {}
<MI 221c8 BNE 0x221cc> {}
<POP 221ca-221cc Naked> Σ0 ↓
<MI 221ca MOVE.B #0x13,0x24265> {}
<POP 221cc-221d8 Naked> Σ0 ↓ →0x221dc ←0x221be
<MI 221cc MOVEA.L 0x24aa2,A0> {}
<MI 221ce MOVE.B (A0+0x5),D0> {}
<MI 221d2 CMPI.B #0x42,D0> {}
<MI 221d6 BNE 0x221dc> {}
<POP 221d8-221dc Naked> Σ0 ↓
<MI 221d8 MOVE.B #0x12,0x24265> {}
<POP 221dc-221e4 Epilogue> Σ0 ←0x22176 ←0x2217a ←0x221cc
@ 221e4
<LVAR -0x004 @ 4(r)>
<POP 221e4-222a0 Body>
<POP 221e4-221fa Prologue> Σ0 ↓
<POP 221fa-22200 RegCacheLoad> Σ0 ↓
<POP 22200-22208 Naked> Σ0 ↓ →0x22232
<MI 22200 TST.B 0x24267> {}
<MI 22206 BEQ 0x22232> {}
<POP 22208-22232 Naked> Σ0 ↓
<Blob 0x22208 [4] @> Δ-4 {[«4""»]}
<Blob 0x2220c [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x22210 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 22214-22216 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x22216 12> {[«4""»]|[«4""»]|[«4""»]|[$$<<send_ack>>]}
<Call 0x22228 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$<<send_ack>>]}
WriteConsoleStringCrLf(str : String)
<POP 2222e-22232 StackAdj> Δ+16 {}
<POP 22232-22298 Naked> Σ0 ↓ ←0x22200
<Pointer.fp 0x22232 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x22234 0x102b8> {[@@-4]}
NewString(VAR a : String)
<POP 2223a-2223c StackAdj> Δ+4 {}
<MI 2223c MOVEA.L (A6-0x4),A0> {}
<MI 2223e MOVE.B #0x01,(A0+0x2)> {}
<MI 22242 MOVE.B #0x23,(A0+0x3)> {}
<MI 22248 MOVE.W 0x2428c,D0> {}
<MI 2224e EXTW.L D0> {}
<MI 22250 ADDI.L #0x00000020,D0> {}
<POP 0x22256 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22260 MOVE.B D0,(A0+0x4)> {}
<MI 22264 MOVE.B #0x59,(A0+0x5)> {}
<MI 2226a MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Call 0x2226c 0x21a3c> {[4, '(A6-0x4)']}
<POP 22270-22272 StackAdj> Δ+4 {}
<MI 22272 MOVE.B 0x24289,(A0+0x6)> {}
<MI 2227a MOVE.B #0x0d,(A0+0x7)> {}
<MI 22280 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Call 0x22282 0x21ff4> {[4, '(A6-0x4)']}
<POP 22286-22288 StackAdj> Δ+4 {}
<MI 22288 MOVE.B #0x01,0x2428f> {}
<Pointer.fp 0x2228e <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x22290 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 22296-22298 StackAdj> Δ+4 {}
<POP 22298-222a0 Epilogue> Σ0
@ 222a0
<LVAR -0x004 @ 4(r)>
<POP 222a0-22364 Body>
<POP 222a0-222b6 Prologue> Σ0 ↓
<POP 222b6-222be RegCacheLoad> Σ0 ↓
<POP 222be-222c6 Naked> Σ0 ↓ →0x222f0
<MI 222be TST.B 0x24267> {}
<MI 222c4 BEQ 0x222f0> {}
<POP 222c6-222f0 Naked> Σ0 ↓
<Blob 0x222c6 [14] @> Δ-14 {[«14""»]}
<POP 222d2-222d4 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x222d4 14> {[«14""»]|[$$<<send_break>>]}
<Call 0x222e6 0x103e0> {[«14""»]|[$$<<send_break>>]}
WriteConsoleStringCrLf(str : String)
<POP 222ec-222f0 StackAdj> Δ+18 {}
<POP 222f0-2235c Naked> Σ0 ↓ ←0x222be
<Pointer.fp 0x222f0 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x222f2 0x102b8> {[@@-4]}
NewString(VAR a : String)
<POP 222f8-222fa StackAdj> Δ+4 {}
<MI 222fa MOVEA.L (A6-0x4),A0> {}
<MI 222fc MOVE.B #0x01,(A0+0x2)> {}
<MI 22300 MOVE.W 0x2428c,D0> {}
<MI 22306 EXTW.L D0> {}
<MI 22308 ADDI.L #0x00000020,D0> {}
<POP 0x2230e LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22318 MOVE.B D0,(A0+0x4)> {}
<MI 2231c MOVE.B #0x42,(A0+0x5)> {}
<MI 22320 MOVE.B #0x23,(A0+0x3)> {}
<MI 22326 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Call 0x22328 0x21a3c> {[4, '(A6-0x4)']}
<POP 2232c-2232e StackAdj> Δ+4 {}
<MI 2232e MOVE.B 0x24289,(A0+0x6)> {}
<MI 22336 MOVE.B #0x0d,(A0+0x7)> {}
<Const 0x2233c 0x42.2> Δ-2 {[#66]}
<Call 0x2233e 0x103d0> {[#66]}
WriteConsoleChar(chr : char)
<POP 22344-22346 StackAdj> Δ+2 {}
<MI 22346 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Const 0x22348 0x1.4> Δ-4 {[4, '(A6-0x4)']|[##1]}
<Call 0x2234c 0x220da> {[4, '(A6-0x4)']|[##1]}
<POP 22350-22352 StackAdj> Δ+8 {}
<Pointer.fp 0x22352 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x22354 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 2235a-2235c StackAdj> Δ+4 {}
<POP 2235c-22364 Epilogue> Σ0
@ 22364
<LVAR -0x004 @ 4(r)>
<POP 22364-22420 Body>
<POP 22364-2237a Prologue> Σ0 ↓
<POP 2237a-22380 RegCacheLoad> Σ0 ↓
<POP 22380-22388 Naked> Σ0 ↓ →0x223b2
<MI 22380 TST.B 0x24267> {}
<MI 22386 BEQ 0x223b2> {}
<POP 22388-223b2 Naked> Σ0 ↓
<Blob 0x22388 [4] @> Δ-4 {[«4""»]}
<Blob 0x2238c [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x22390 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 22394-22396 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x22396 12> {[«4""»]|[«4""»]|[«4""»]|[$$<<send_nak>>]}
<Call 0x223a8 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$<<send_nak>>]}
WriteConsoleStringCrLf(str : String)
<POP 223ae-223b2 StackAdj> Δ+16 {}
<POP 223b2-22418 Naked> Σ0 ↓ ←0x22380
<Pointer.fp 0x223b2 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x223b4 0x102b8> {[@@-4]}
NewString(VAR a : String)
<POP 223ba-223bc StackAdj> Δ+4 {}
<MI 223bc MOVEA.L (A6-0x4),A0> {}
<MI 223be MOVE.B #0x01,(A0+0x2)> {}
<MI 223c2 MOVE.B #0x23,(A0+0x3)> {}
<MI 223c8 MOVE.W 0x2428c,D0> {}
<MI 223ce EXTW.L D0> {}
<MI 223d0 ADDI.L #0x00000020,D0> {}
<POP 0x223d6 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 223e0 MOVE.B D0,(A0+0x4)> {}
<MI 223e4 MOVE.B #0x4e,(A0+0x5)> {}
<MI 223ea MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Call 0x223ec 0x21a3c> {[4, '(A6-0x4)']}
<POP 223f0-223f2 StackAdj> Δ+4 {}
<MI 223f2 MOVE.B 0x24289,(A0+0x6)> {}
<MI 223fa MOVE.B #0x0d,(A0+0x7)> {}
<MI 22400 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Call 0x22402 0x21ff4> {[4, '(A6-0x4)']}
<POP 22406-22408 StackAdj> Δ+4 {}
<MI 22408 CLR.B 0x2428f> {}
<Pointer.fp 0x2240e <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x22410 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 22416-22418 StackAdj> Δ+4 {}
<POP 22418-22420 Epilogue> Σ0
@ 22420
<LVAR 0x00a 1(r)>
<LVAR 0x008 1(r)>
<LVAR -0x008 @ 4(rw)>
<POP 22420-22648 Body>
<POP 22420-22436 Prologue> Σ0 ↓
<POP 22436-2244a RegCacheLoad> Σ0 ↓
<POP 2244a-22452 Naked> Σ0 ↓ →0x22476
<MI 2244a TST.B 0x24267> {}
<MI 22450 BEQ 0x22476> {}
<POP 22452-22476 Naked> Σ0 ↓
<Blob 0x22452 [22] @> Δ-22 {[«22""»]}
<POP 2245e-22460 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x22460 22> {[«22""»]|[$$<<handle_hard_errors>>]}
<Call 0x2246c 0x103e0> {[«22""»]|[$$<<handle_hard_errors>>]}
WriteConsoleStringCrLf(str : String)
<POP 22472-22476 StackAdj> Δ+26 {}
<POP 22476-2247e Naked> Σ0 ↓ →0x224cc ←0x2244a
<MI 22476 MOVE.B (A6+0xa),D0> {}
<MI 2247a CMP.B #0x01,D0> {}
<MI 2247c BNE 0x224cc> {}
<POP 2247e-224cc Naked> Σ0 →0x22532
<Blob 0x2247e [4] @> Δ-4 {[«4""»]}
<Blob 0x22482 [22] @> Δ-22 {[«4""»]|[«22""»]}
<POP 22492-22494 StackAdj> Δ-8 {[«4""»]|[«22""»]|[-8-]}
<Lit 0x22494 4> {[«4""»]|[«22""»]|[-4-]|[$$MLST]}
<POP 224a0-224a2 StackAdj> Δ-4 {[«4""»]|[«22""»]|[-4-]|[$$MLST]|[-4-]}
<Lit 0x224a2 21> {[«4""»]|[«22""»]|[-4-]|[$$MLST]|[$$Abandoning transfer,_]}
<POP 224ae-224b0 StackAdj> Δ-6 {[«4""»]|[«22""»]|[-4-]|[$$MLST]|[$$Abandoning transfer,_]|[-6-]}
<MI 224b0 MOVE.B (A6+0x8),(A7)> {[«4""»]|[«22""»]|[-4-]|[$$MLST]|[$$Abandoning transfer,_]|[-6-]}
<Call 0x224b4 0x103a0> {[«4""»]|[«22""»]|[-4-]|[$$MLST]|[$$Abandoning transfer,_]|[-6-]}
FsErrMsgStr(err: Byte) : String
<POP 224ba-224bc StackAdj> Δ+2 {[«4""»]|[«22""»]|[-4-]|[$$MLST]|[$$Abandoning transfer,_]|[-4-]}
<Call 0x224bc 0x102d4> {[«4""»]|[«22""»]|[-4-]|[$$MLST]|[$$Abandoning transfer,_]|[-4-]}
StringCat3(a, b, c : String) : String
<POP 224c2-224c4 StackAdj> Δ+12 {[«4""»]|[«22""»]|[-4-]}
<MI 224c4 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«4""»]|[«22""»]}
<POP 224c6-224ca StackAdj> Δ+26 {}
<MI 224ca BRA 0x22532> {}
<POP 224cc-22532 Naked> Σ0 ↓ ←0x22476
<Blob 0x224cc [4] @> Δ-4 {[«4""»]}
<Blob 0x224d0 [22] @> Δ-22 {[«4""»]|[«22""»]}
<MI 224e0 MOVE.B D0,D1> {[«4""»]|[«22""»]}
<MI 224e2 EXTB.W D1> {[«4""»]|[«22""»]}
<MI 224e4 MULS.W #0x1e,D1> {[«4""»]|[«22""»]}
<MI 224e6 LEA.L 0x20e73,A0> {[«4""»]|[«22""»]}
<Blob 0x224ea [30] (A0+D1.W)> Δ-30 {[«4""»]|[«22""»]|[«30»]}
<POP 224fa-224fc StackAdj> Δ-8 {[«4""»]|[«22""»]|[«30»]|[-8-]}
<Lit 0x224fc 4> {[«4""»]|[«22""»]|[«30»]|[-4-]|[$$MLST]}
<POP 22508-2250a StackAdj> Δ-4 {[«4""»]|[«22""»]|[«30»]|[-4-]|[$$MLST]|[-4-]}
<Lit 0x2250a 21> {[«4""»]|[«22""»]|[«30»]|[-4-]|[$$MLST]|[$$Abandoning transfer,_]}
<POP 22516-22518 StackAdj> Δ-4 {[«4""»]|[«22""»]|[«30»]|[-4-]|[$$MLST]|[$$Abandoning transfer,_]|[-4-]}
<Lit 0x22518> {[«4""»]|[«22""»]|[«30»]|[-4-]|[$$MLST]|[$$Abandoning transfer,_]|[$$…]}
<Pointer.sp 0x22518 16> Δ-4
<Const 0x2251c 0x1.2> Δ-2
<Const 0x2251e 0x1e.2> Δ-2
<Call 0x22520 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22522-22524 StackAdj> Δ+8
<Call 0x22524 0x102d4> {[«4""»]|[«22""»]|[«30»]|[-4-]|[$$MLST]|[$$Abandoning transfer,_]|[$$…]}
StringCat3(a, b, c : String) : String
<POP 2252a-2252c StackAdj> Δ+12 {[«4""»]|[«22""»]|[«30»]|[-4-]}
<MI 2252c MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«4""»]|[«22""»]|[«30»]}
<POP 2252e-22532 StackAdj> Δ+56 {}
<POP 22532-225ac Naked> Σ0 ↓ →0x225bc ←0x2247e
<MI 22532 MOVEA.L (A6-0x8),A0> {}
<MI 22534 MOVE.W (A0),D1> {}
<MI 22536 EXTW.L D1> {}
<MI 22538 SUBQ.L #0x4,D1> {}
<MI 2253a MOVE.L D1,D7> {}
<MI 2253c MOVE.B #0x01,(A0+0x2)> {}
<MI 22540 MOVE.L D7,D1> {}
<MI 22542 ADDQ.L #0x3,D1> {}
<MI 22544 ADD.L #0x20,D1> {}
<POP 0x22546 LimitCheck 0x0 ≤ D1 ≤ 0xff> {}
<MI 22550 MOVE.B D1,(A0+0x3)> {}
<MI 22554 MOVE.W 0x2428c,D1> {}
<MI 2255a EXTW.L D1> {}
<MI 2255c ADD.L #0x20,D1> {}
<POP 0x2255e LimitCheck 0x0 ≤ D1 ≤ 0xff> {}
<MI 22568 MOVE.B D1,(A0+0x4)> {}
<MI 2256c MOVE.B #0x45,(A0+0x5)> {}
<MI 22572 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x22574 0x21a3c> {[4, '(A6-0x8)']}
<POP 22578-2257a StackAdj> Δ+4 {}
<MI 2257a MOVE.L D7,D1> {}
<MI 2257c ADDQ.L #0x5,D1> {}
<MI 2257e SUBQ.L #0x1,D1> {}
<POP 0x22580 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 2258a MOVE.B 0x24289,(A0+D1.L+#0x2)> {}
<MI 22592 MOVE.L D7,D1> {}
<MI 22594 ADDQ.L #0x6,D1> {}
<MI 22596 SUBQ.L #0x1,D1> {}
<POP 0x22598 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 225a2 MOVE.B #0x0d,(A0+D1.L+#0x2)> {}
<MI 225a8 CMP.B #0x0c,D0> {}
<MI 225aa BGE 0x225bc> {}
<POP 225ac-225bc Naked> Σ0 ↓
<MI 225ac MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Const 0x225ae 0x1.4> Δ-4 {[4, '(A6-0x8)']|[##1]}
<Call 0x225b2 0x220da> {[4, '(A6-0x8)']|[##1]}
<POP 225b6-225b8 StackAdj> Δ+8 {}
<Call 0x225b8 0x222a0> {}
<POP 225bc-225cc Naked> Σ0 ↓ →0x22618 ←0x22532
<MI 225bc MOVEA.L 0x24aa2,A1> {}
<MI 225c2 MOVE.B (A1+0x5),D0> {}
<MI 225c6 CMPI.B #0x45,D0> {}
<MI 225ca BNE 0x22618> {}
<POP 225cc-225da Naked> Σ0 ↓ →0x22618
<MI 225cc CLR.L D0> {}
<MI 225ce MOVE.B (A1+0x3),D0> {}
<MI 225d2 CMPI.L #0x00000003,D0> {}
<MI 225d8 BLS 0x22618> {}
<POP 225da-22618 Naked> Σ0 ↓
<Call 0x225da 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x225e0 [14] @> Δ-14 {[«14""»]}
<POP 225f2-225f4 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x225f4 13> {[«14""»]|[$$From remote:_]}
<Call 0x22602 0x103d8> {[«14""»]|[$$From remote:_]}
WriteConsoleString(str : String)
<POP 22608-2260c StackAdj> Δ+14 {[-4-]}
<POP 2260c-2260d StackAdj> Δ+4 {}
<Blob 0x2260d [4] 0x24aa2> Δ-4 {[«4»]}
<Call 0x22612 0x21e8e> {[«4»]}
<POP 22616-22618 StackAdj> Δ+4 {}
<POP 22618-22640 Naked> Σ0 ↓ ←0x225bc ←0x225cc
<Call 0x22618 0x103dc> {}
WriteConsoleCrLf(void)
<MI 2261e CLR.L D0> {}
<MI 22620 MOVE.B (A0+0x3),D0> {}
<MI 22624 SUB.W #0x20,D0> {}
<POP 0x22626 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 2262a MOVE.B D0,(A0+0x3)> {}
<MI 2262e MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x22630 0x21e8e> {[4, '(A6-0x8)']}
<POP 22634-22636 StackAdj> Δ+4 {}
<Pointer.fp 0x22636 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22638 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 2263e-22640 StackAdj> Δ+4 {}
<POP 22640-22648 Epilogue> Σ0
@ 22648
<POP 22648-22704 Body>
<POP 22648-2265e Prologue> Σ0 ↓
<POP 2265e-22666 RegCacheLoad> Σ0 ↓
<POP 22666-2266e Naked> Σ0 ↓ →0x22694
<MI 22666 TST.B 0x24267> {}
<MI 2266c BEQ 0x22694> {}
<POP 2266e-22694 Naked> Σ0 ↓
<Blob 0x2266e [14] @> Δ-14 {[«14""»]}
<POP 2267a-2267c StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x2267c 14> {[«14""»]|[$$<<normal_end>>]}
<Call 0x2268a 0x103e0> {[«14""»]|[$$<<normal_end>>]}
WriteConsoleStringCrLf(str : String)
<POP 22690-22694 StackAdj> Δ+18 {}
<POP 22694-226fc Naked> Σ0 ↓ ←0x22666
<Blob 0x22694 [4] @> Δ-4 {[«4""»]}
<Blob 0x22698 [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2269c [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<Blob 0x226a0 [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]}
<Blob 0x226a4 [20] @> Δ-20 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«20""»]}
<POP 226b6-226b8 StackAdj> Δ-8 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«20""»]|[-8-]}
<Lit 0x226b8 16> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«20""»]|[-4-]|[$$transmission of_]}
<POP 226c4-226c6 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«20""»]|[-4-]|[$$transmission of_]|[-4-]}
<POP 226c6-226c7 StackAdj> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«20""»]|[-4-]|[$$transmission of_]}
<Blob 0x226c7 [4] 0x2426a> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«20""»]|[-4-]|[$$transmission of_]|[«4»]}
<POP 226cc-226ce StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«20""»]|[-4-]|[$$transmission of_]|[«4»]|[-4-]}
<Lit 0x226ce 19> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«20""»]|[-4-]|[$$transmission of_]|[«4»]|[$$ completed normally]}
<Call 0x226dc 0x102d4> {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«20""»]|[-4-]|[$$transmission of_]|[«4»]|[$$ completed normally]}
StringCat3(a, b, c : String) : String
<POP 226e2-226e6 StackAdj> Δ+12 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«20""»]|[-4-]}
<MI 226e6 MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]|[«4""»]|[«4""»]|[«20""»]}
<POP 226e8-226ec StackAdj> Δ+36 {}
<Call 0x226ec 0x103dc> {}
WriteConsoleCrLf(void)
<MI 226f2 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Call 0x226f4 0x103e0> {[4, 'A4']}
WriteConsoleStringCrLf(str : String)
<POP 226fa-226fc StackAdj> Δ+4 {}
<POP 226fc-22704 Epilogue> Σ0
@ 22704
<LVAR -0x006 2(rw)>
<LVAR -0x00e @ 4(r)>
<POP 22704-22d66 Body>
<POP 22704-2271a Prologue> Σ0 ↓
<POP 2271a-2272e RegCacheLoad> Σ0 ↓
<POP 2272e-22736 Naked> Σ0 ↓ →0x2275e
<MI 2272e TST.B 0x24267> {}
<MI 22734 BEQ 0x2275e> {}
<POP 22736-2275e Naked> Σ0 ↓
<Blob 0x22736 [4] @> Δ-4 {[«4""»]}
<Blob 0x2273a [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 2273e-22740 StackAdj> Δ-4 {[«4""»]|[«4""»]|[-4-]}
<Lit 0x22740 8> {[«4""»]|[«4""»]|[$$<<send>>]}
<Call 0x22754 0x103e0> {[«4""»]|[«4""»]|[$$<<send>>]}
WriteConsoleStringCrLf(str : String)
<POP 2275a-2275e StackAdj> Δ+12 {}
<POP 2275e-2280c Naked> Σ0 ↓ →0x22810 ←0x2272e
<Call 0x2275e 0x103dc> {}
WriteConsoleCrLf(void)
<MI 22764 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x22766 0x0.4> Δ-4 {[#0]|[##0]}
<Call 0x2276a 0x217bc> {[#0]|[##0]}
<POP 2276e-22770 StackAdj> Δ+6 {}
<Pointer.fp 0x22770 <LVAR -0x00e @ 4(r)>> Δ-4 {[@@-14]}
<Call 0x22772 0x102b8> {[@@-14]}
NewString(VAR a : String)
<POP 22778-2277a StackAdj> Δ+4 {}
<MI 2277a CLR.W 0x2428c> {}
<MI 2277c MOVEA.L (A6-0xe),A0> {}
<MI 2277e MOVE.B #0x01,(A0+0x2)> {}
<MI 22784 MOVE.B #0x2d,(A0+0x3)> {}
<MI 2278a MOVE.W 0x2428c,D0> {}
<MI 2278c EXTW.L D0> {}
<MI 2278e ADD.L #0x20,D0> {}
<POP 0x22790 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22796 MOVE.B D0,(A0+0x4)> {}
<MI 2279a MOVE.B #0x53,(A0+0x5)> {}
<MI 227a0 MOVE.B #0x7e,(A0+0x6)> {}
<MI 227a6 MOVE.B #0x25,(A0+0x7)> {}
<MI 227ac MOVE.B #0x20,(A0+0x8)> {}
<MI 227b0 MOVE.B #0x20,(A0+0x9)> {}
<MI 227b4 MOVE.B #0x2d,(A0+0xa)> {}
<MI 227ba MOVE.B #0x23,(A0+0xb)> {}
<MI 227c0 MOVE.B #0x26,(A0+0xc)> {}
<MI 227c6 MOVE.B #0x31,(A0+0xd)> {}
<MI 227cc MOVE.B #0x20,(A0+0xe)> {}
<MI 227d0 MOVE.B #0x28,(A0+0xf)> {}
<MI 227d6 MOVE.L (A6-0xe),-(A7)> Δ-4 {[4, '(A6-0xe)']}
<Call 0x227d8 0x21a3c> {[4, '(A6-0xe)']}
<POP 227dc-227de StackAdj> Δ+4 {}
<MI 227de MOVE.B 0x24289,(A0+0x10)> {}
<MI 227e6 MOVE.B #0x0d,(A0+0x11)> {}
<Const 0x227ec 0x53.2> Δ-2 {[#83]}
<Call 0x227f0 0x103d0> {[#83]}
WriteConsoleChar(chr : char)
<POP 227f6-227f8 StackAdj> Δ+2 {}
<MI 227f8 MOVE.L (A6-0xe),-(A7)> Δ-4 {[4, '(A6-0xe)']}
<Const 0x227fa 0x5.4> Δ-4 {[4, '(A6-0xe)']|[##5]}
<Call 0x227fe 0x220da> {[4, '(A6-0xe)']|[##5]}
<POP 22802-22804 StackAdj> Δ+8 {}
<MI 22804 TST.B 0x24265> {}
<MI 2280a BEQ 0x22810> {}
<POP 2280c-22810 Naked> Σ0 →0x22d0e
<MI 2280c BRA 0x22d0e> {}
<POP 22810-22818 Naked> Σ0 ↓ →0x22836 ←0x2275e
<MI 22810 MOVE.W 0x2428c,D0> {}
<MI 22812 CMPI.W #0x003f,D0> {}
<MI 22816 BGE 0x22836> {}
<POP 22818-22836 Naked> Σ0 →0x22838
<MI 22818 EXTW.L D0> {}
<MI 2281a ADDQ.L #0x1,D0> {}
<POP 0x2281c LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {}
<MI 22832 MOVE.W D0,0x2428c> {}
<MI 22834 BRA 0x22838> {}
<POP 22836-22838 Naked> Σ0 ↓ ←0x22810
<MI 22836 CLR.W 0x2428c> {}
<POP 22838-22848 Naked> Σ0 ↓ →0x22852 ←0x22818
<MI 22838 MOVEA.L 0x24278,A0> {}
<MI 2283e MOVE.B (A0+0x3f),D0> {}
<MI 22842 LSL.B #0x6,D0> {}
<MI 22844 LSR.B #0x7,D0> {}
<MI 22846 BNE 0x22852> {}
<POP 22848-22852 Naked> Σ0 ↓ →0x2285c
<MI 22848 MOVE.B (A0+0x3f),D0> {}
<MI 2284c LSL.B #0x5,D0> {}
<MI 2284e LSR.B #0x7,D0> {}
<MI 22850 BEQ 0x2285c> {}
<POP 22852-2285c Naked> Σ0 →0x22864 ←0x22838
<MI 22852 MOVE.B #0x02,0x24273> {}
<MI 2285a BRA 0x22864> {}
<POP 2285c-22864 Naked> Σ0 ↓ ←0x22848
<MI 2285c MOVE.B #0x01,0x24273> {}
<POP 22864-2289c Naked> Σ0 Δ-2 ↓ →0x228a4 ←0x22852
<MI 22864 MOVEA.L 0x24278,A0> {}
<MI 2286a MOVE.W (A0+0x20),D0> {}
<MI 2286e EXTW.L D0> {}
<MI 22870 MOVE.L D0,0x2426e> {}
<MI 22876 MOVEA.L (A6-0xe),A0> {}
<MI 22878 MOVE.W 0x2428c,D0> {}
<MI 2287a EXTW.L D0> {}
<MI 2287c ADD.L #0x20,D0> {}
<POP 0x2287e LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22884 MOVE.B D0,(A0+0x4)> {}
<MI 22888 MOVE.B #0x46,(A0+0x5)> {}
<MI 2288e MOVEA.L 0x2426a,A0> {}
<MI 22894 MOVE.W (A0),-(A7)> Δ-2 {[2, '(A0)']}
<MI 22896 MOVEQ.L #0x01,D7> {[2, '(A0)']}
<MI 22898 CMP.W (A7),D7> {[2, '(A0)']}
<MI 2289a BGT 0x228a4> {[2, '(A0)']}
<POP 2289c-228a4 Naked> Σ-2 ↓
<MI 2289c MOVE.W (A7),D0> {[-2-]}
<POP 0x2289e LimitCheck D0 ≤ 0xff> {[-2-]}
<MI 2289e CMP.W #0xff,D0>
<MI 228a0 BLE 0x228a4>
<MI 228a2 TRAP #15>
<POP 228a4-228a8 Naked> Σ-2 ↓ →0x228c8 ←0x22864 ←0x228a8
<MI 228a4 CMP.W (A7),D7> {[-2-]}
<MI 228a6 BGT 0x228c8> {[-2-]}
<POP 228a8-228c8 Naked> Σ-2 ↓ →0x228a4
<MI 228a8 MOVEA.L (A6-0xe),A0> {[-2-]}
<MI 228aa MOVE.W D7,D0> {[-2-]}
<MI 228ac ADDQ.W #0x4,D0> {[-2-]}
<MI 228ae SUBQ.W #0x1,D0> {[-2-]}
<POP 0x228b0 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-2-]}
<MI 228b2 MOVEA.L 0x2426a,A1> {[-2-]}
<MI 228b8 MOVE.W D7,D1> {[-2-]}
<MI 228ba SUBQ.W #0x1,D1> {[-2-]}
<POP 0x228bc LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-2-]}
<MI 228be MOVE.B (A1+D1.W+#0x2),(A0+D0.W+#0x2)> {[-2-]}
<MI 228c4 ADDQ.W #0x1,D7> {[-2-]}
<MI 228c6 BVC 0x228a4> {[-2-]}
<POP 228c8-2291e Naked> Σ-2 Δ+2 ↓ →0x22922 ←0x228a4
<POP 228c8-228ca StackAdj> Δ+2 {}
<MI 228ca MOVEA.L (A6-0xe),A0> {}
<MI 228cc MOVE.W D7,D0> {}
<MI 228ce ADDI.W #0x0022,D0> {}
<POP 0x228d2 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 228d4 MOVE.B D0,(A0+0x3)> {}
<MI 228d8 MOVE.L (A6-0xe),-(A7)> Δ-4 {[4, '(A6-0xe)']}
<Call 0x228da 0x21a3c> {[4, '(A6-0xe)']}
<POP 228de-228e0 StackAdj> Δ+4 {}
<MI 228e0 MOVE.W D7,D0> {}
<MI 228e2 ADDQ.W #0x4,D0> {}
<MI 228e4 SUBQ.W #0x1,D0> {}
<POP 0x228e6 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 228e8 MOVE.B 0x24289,(A0+D0.W+#0x2)> {}
<MI 228f0 MOVE.W D7,D0> {}
<MI 228f2 ADDQ.W #0x5,D0> {}
<MI 228f4 SUBQ.W #0x1,D0> {}
<POP 0x228f6 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 228f8 MOVE.B #0x0d,(A0+D0.W+#0x2)> {}
<Const 0x228fe 0x46.2> Δ-2 {[#70]}
<Call 0x22902 0x103d0> {[#70]}
WriteConsoleChar(chr : char)
<POP 22908-2290a StackAdj> Δ+2 {}
<MI 2290a MOVE.L (A6-0xe),-(A7)> Δ-4 {[4, '(A6-0xe)']}
<Const 0x2290c 0x5.4> Δ-4 {[4, '(A6-0xe)']|[##5]}
<Call 0x22910 0x220da> {[4, '(A6-0xe)']|[##5]}
<POP 22914-22916 StackAdj> Δ+8 {}
<MI 22916 TST.B 0x24265> {}
<MI 2291c BEQ 0x22922> {}
<POP 2291e-22922 Naked> Σ0 →0x22d0e
<MI 2291e BRA 0x22d0e> {}
<POP 22922-2292a Naked> Σ0 ↓ →0x22948 ←0x228c8
<MI 22922 MOVE.W 0x2428c,D0> {}
<MI 22924 CMPI.W #0x003f,D0> {}
<MI 22928 BGE 0x22948> {}
<POP 2292a-22948 Naked> Σ0 →0x2294a
<MI 2292a EXTW.L D0> {}
<MI 2292c ADDQ.L #0x1,D0> {}
<POP 0x2292e LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {}
<MI 22944 MOVE.W D0,0x2428c> {}
<MI 22946 BRA 0x2294a> {}
<POP 22948-2294a Naked> Σ0 ↓ ←0x22922
<MI 22948 CLR.W 0x2428c> {}
<POP 2294a-2299e Naked> Σ0 ↓ →0x229a6 ←0x2292a
<MI 2294a MOVEA.L (A6-0xe),A0> {}
<MI 2294c MOVE.W 0x2428c,D0> {}
<MI 2294e EXTW.L D0> {}
<MI 22950 ADD.L #0x20,D0> {}
<POP 0x22952 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22958 MOVE.B D0,(A0+0x4)> {}
<MI 2295c MOVE.B #0x41,(A0+0x5)> {}
<POP 22962-22964 StackAdj> Δ-4 {[-4-]}
<Blob 0x22964 [4] 0x2426e> Δ-4 {[-4-]|[«4»]}
<Call 0x2296a 0x102e4> {[-4-]|[«4»]}
Long2String(a : Long) : String
<POP 22970-22972 StackAdj> Δ+4 {[-4-]}
<MI 22972 MOVEA.L (A7)+,A4> Δ+4 {}
<MI 22974 MOVE.W (A4),D0> {}
<MI 22976 EXTW.L D0> {}
<MI 22978 ADDQ.L #0x8,D0> {}
<MI 2297a ADD.L #0x20,D0> {}
<POP 0x2297c LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22982 MOVE.B D0,(A0+0x3)> {}
<MI 22986 MOVE.B #0x22,(A0+0x6)> {}
<MI 2298c MOVE.B #0x31,(A0+0x7)> {}
<MI 22992 MOVE.B 0x24273,D0> {}
<MI 22998 CMPI.B #0x01,D0> {}
<MI 2299c BNE 0x229a6> {}
<POP 2299e-229a6 Naked> Σ0 →0x229ac
<MI 2299e MOVE.B #0x41,(A0+0x8)> {}
<MI 229a4 BRA 0x229ac> {}
<POP 229a6-229ac Naked> Σ0 ↓ ←0x2294a
<MI 229a6 MOVE.B #0x42,(A0+0x8)> {}
<POP 229ac-229d0 Naked> Σ0 Δ-2 ↓ →0x229d8 ←0x2299e
<MI 229ac MOVEA.L (A6-0xe),A0> {}
<MI 229ae MOVE.B #0x21,(A0+0x9)> {}
<MI 229b4 MOVE.W (A4),D0> {}
<MI 229b6 EXTW.L D0> {}
<MI 229b8 ADDI.L #0x00000030,D0> {}
<POP 0x229be LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 229c4 MOVE.B D0,(A0+0xa)> {}
<MI 229c8 MOVE.W (A4),-(A7)> Δ-2 {[2, '(A4)']}
<MI 229ca MOVEQ.L #0x01,D7> {[2, '(A4)']}
<MI 229cc CMP.W (A7),D7> {[2, '(A4)']}
<MI 229ce BGT 0x229d8> {[2, '(A4)']}
<POP 229d0-229d8 Naked> Σ-2 ↓
<MI 229d0 MOVE.W (A7),D0> {[-2-]}
<POP 0x229d2 LimitCheck D0 ≤ 0xff> {[-2-]}
<MI 229d2 CMP.W #0xff,D0>
<MI 229d4 BLE 0x229d8>
<MI 229d6 TRAP #15>
<POP 229d8-229dc Naked> Σ-2 ↓ →0x229f6 ←0x229ac ←0x229dc
<MI 229d8 CMP.W (A7),D7> {[-2-]}
<MI 229da BGT 0x229f6> {[-2-]}
<POP 229dc-229f6 Naked> Σ-2 ↓ →0x229d8
<MI 229dc MOVEA.L (A6-0xe),A0> {[-2-]}
<MI 229de MOVEQ.L #0x09,D0> {[-2-]}
<MI 229e0 ADD.W D7,D0> {[-2-]}
<MI 229e2 SUBQ.W #0x1,D0> {[-2-]}
<POP 0x229e4 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-2-]}
<MI 229e6 MOVE.W D7,D1> {[-2-]}
<MI 229e8 SUBQ.W #0x1,D1> {[-2-]}
<POP 0x229ea LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-2-]}
<MI 229ec MOVE.B (A4+D1.W+#0x2),(A0+D0.W+#0x2)> {[-2-]}
<MI 229f2 ADDQ.W #0x1,D7> {[-2-]}
<MI 229f4 BVC 0x229d8> {[-2-]}
<POP 229f6-22a40 Naked> Σ-2 Δ+2 ↓ →0x22a44 ←0x229d8
<POP 229f6-229f8 StackAdj> Δ+2 {}
<MI 229f8 MOVE.L (A6-0xe),-(A7)> Δ-4 {[4, '(A6-0xe)']}
<Call 0x229fa 0x21a3c> {[4, '(A6-0xe)']}
<POP 229fe-22a00 StackAdj> Δ+4 {}
<MI 22a00 MOVEA.L (A6-0xe),A0> {}
<MI 22a02 MOVEQ.L #0x09,D0> {}
<MI 22a04 ADD.W D7,D0> {}
<MI 22a06 SUBQ.W #0x1,D0> {}
<POP 0x22a08 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 22a0a MOVE.B 0x24289,(A0+D0.W+#0x2)> {}
<MI 22a12 MOVEQ.L #0x0a,D0> {}
<MI 22a14 ADD.W D7,D0> {}
<MI 22a16 SUBQ.W #0x1,D0> {}
<POP 0x22a18 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 22a1a MOVE.B #0x0d,(A0+D0.W+#0x2)> {}
<Const 0x22a20 0x41.2> Δ-2 {[#65]}
<Call 0x22a24 0x103d0> {[#65]}
WriteConsoleChar(chr : char)
<POP 22a2a-22a2c StackAdj> Δ+2 {}
<MI 22a2c MOVE.L (A6-0xe),-(A7)> Δ-4 {[4, '(A6-0xe)']}
<Const 0x22a2e 0x5.4> Δ-4 {[4, '(A6-0xe)']|[##5]}
<Call 0x22a32 0x220da> {[4, '(A6-0xe)']|[##5]}
<POP 22a36-22a38 StackAdj> Δ+8 {}
<MI 22a38 TST.B 0x24265> {}
<MI 22a3e BEQ 0x22a44> {}
<POP 22a40-22a44 Naked> Σ0 →0x22d0e
<MI 22a40 BRA 0x22d0e> {}
<POP 22a44-22a4c Naked> Σ0 ↓ →0x22a6a ←0x229f6
<MI 22a44 MOVE.W 0x2428c,D0> {}
<MI 22a46 CMPI.W #0x003f,D0> {}
<MI 22a4a BGE 0x22a6a> {}
<POP 22a4c-22a6a Naked> Σ0 →0x22a6c
<MI 22a4c EXTW.L D0> {}
<MI 22a4e ADDQ.L #0x1,D0> {}
<POP 0x22a50 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {}
<MI 22a66 MOVE.W D0,0x2428c> {}
<MI 22a68 BRA 0x22a6c> {}
<POP 22a6a-22a6c Naked> Σ0 ↓ ←0x22a44
<MI 22a6a CLR.W 0x2428c> {}
<POP 22a6c-22a8e Naked> Σ0 ↓ ←0x22a4c
<MI 22a6c LEA.L 0x24292,A0> {}
<MI 22a72 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22a74 MOVE.L (A7)+,0x24a92> Δ+4 {}
<MI 22a7a MOVEA.L (A6-0xe),A0> {}
<MI 22a7c MOVE.B #0x44,(A0+0x5)> {}
<MI 22a82 MOVE.L #0x400,D5> {}
<MI 22a88 CLR.W 0x24274> {}
<POP 22a8e-22aa2 Naked> Σ0 ↓ ←0x22cb4
<MI 22a8e MOVEA.L (A6-0xe),A0> {}
<MI 22a90 MOVE.W 0x2428c,D0> {}
<MI 22a92 EXTW.L D0> {}
<MI 22a94 ADD.L #0x20,D0> {}
<POP 0x22a96 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22a9c MOVE.B D0,(A0+0x4)> {}
<MI 22aa0 MOVEQ.L #0x05,D6> {}
<POP 22aa2-22aac Naked> Σ0 ↓ →0x22b38 ←0x22ba8 ←0x22c32
<MI 22aa2 CMPI.L #0x00000400,D5> {}
<MI 22aa8 BNE 0x22b38> {}
<POP 22aac-22abc Naked> Σ0 ↓ →0x22acc
<MI 22aac MOVE.W 0x24274,D0> {}
<MI 22ab2 EXTW.L D0> {}
<MI 22ab4 CMP.L 0x2426e,D0> {}
<MI 22aba BNE 0x22acc> {}
<POP 22abc-22ac2 Naked> Σ0 ↓ →0x22ac8
<MI 22abc CMPI.W #0x0005,D6> {}
<MI 22ac0 BNE 0x22ac8> {}
<POP 22ac2-22ac6 Naked> Σ0 →0x22cb8
<MI 22ac2 BRA 0x22cb8> {}
<POP 22ac8-22acc Naked> Σ0 →0x22c36 ←0x22abc
<MI 22ac8 BRA 0x22c36> {}
<POP 22acc-22b04 Naked> Σ0 ↓ →0x22b10 ←0x22aac
<Blob 0x22acc [4] 0x24278> Δ-4 {[«4»]}
<MI 22ad2 MOVE.W 0x24274,D0> {[«4»]}
<POP 0x22ad8 LimitCheck 0x0 ≤ D0 ≤ 0x4000> {[«4»]}
<MI 22adc MOVE.W D0,-(A7)> Δ-2 {[«4»]|[2, 'D0']}
<MI 22ade CLR.W -(A7)> Δ-2 {[«4»]|[2, 'D0']|[#0]}
<Const 0x22ae0 0x200.2> Δ-2 {[«4»]|[2, 'D0']|[#0]|[#512]}
<MI 22ae4 CLR.B -(A7)> Δ-2 {[«4»]|[2, 'D0']|[#0]|[#512]|[#0]}
<Blob 0x22ae6 [4] 0x24a92> Δ-4 {[«4»]|[2, 'D0']|[#0]|[#512]|[#0]|[«4»]}
<Const 0x22aec 0x24276.4> Δ-4 {[«4»]|[2, 'D0']|[#0]|[#512]|[#0]|[«4»]|[##148086]}
<Call 0x22af2 0x10384> {[«4»]|[2, 'D0']|[#0]|[#512]|[#0]|[«4»]|[##148086]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 22af8-22afc StackAdj> Δ+20 {}
<MI 22afc TST.B 0x24276> {}
<MI 22b02 BEQ 0x22b10> {}
<POP 22b04-22b10 Naked> Σ0 →0x22d0e
<MI 22b04 MOVE.B #0x01,0x24265> {}
<MI 22b0c BRA 0x22d0e> {}
<POP 22b10-22b38 Naked> Σ0 ↓ ←0x22acc
<MI 22b10 MOVE.W 0x24274,D0> {}
<MI 22b16 EXTW.L D0> {}
<MI 22b18 ADDQ.L #0x1,D0> {}
<POP 0x22b1a LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {}
<MI 22b30 MOVE.W D0,0x24274> {}
<MI 22b36 MOVEQ.L #0x00,D5> {}
<POP 22b38-22b58 Naked> Σ0 ↓ →0x22b98 ←0x22aa2
<POP 0x22b38 LimitCheck 0x0 ≤ D5 ≤ 0x7ff> {}
<MI 22b42 LEA.L 0x2425c,A0> {}
<MI 22b48 CLR.L D0> {}
<MI 22b4a MOVE.B (A0+D5.L+#0x36),D0> {}
<MI 22b4e MOVE.W D0,(A6-0x6)> {}
<MI 22b52 CMPI.W #0x007f,D0> {}
<MI 22b56 BLE 0x22b98> {}
<POP 22b58-22b64 Naked> Σ0 ↓ →0x22b70
<MI 22b58 MOVE.B 0x24273,D0> {}
<MI 22b5e CMPI.B #0x02,D0> {}
<MI 22b62 BGE 0x22b70> {}
<POP 22b64-22b70 Naked> Σ0 →0x22d0e
<MI 22b64 MOVE.B #0x0c,0x24265> {}
<MI 22b6c BRA 0x22d0e> {}
<POP 22b70-22b98 Naked> Σ0 →0x22bb2 ←0x22b58
<MI 22b70 MOVEA.L (A6-0xe),A0> {}
<MI 22b72 MOVE.W D6,D0> {}
<MI 22b74 SUBQ.W #0x1,D0> {}
<POP 0x22b76 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 22b78 MOVE.B 0x2428b,(A0+D0.W+#0x2)> {}
<MI 22b80 MOVE.W (A6-0x6),D0> {}
<MI 22b84 SUBI.W #0x0080,D0> {}
<POP 0x22b88 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22b8a MOVE.W D0,(A6-0x6)> {}
<MI 22b8e MOVE.W D6,D0> {}
<MI 22b90 ADDQ.W #0x1,D0> {}
<POP 0x22b92 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22b94 MOVE.W D0,D6> {}
<MI 22b96 BRA 0x22bb2> {}
<POP 22b98-22b9c Naked> Σ0 ↓ →0x22bb2 ←0x22b38
<MI 22b98 TST.W D0> {}
<MI 22b9a BNE 0x22bb2> {}
<POP 22b9c-22ba8 Naked> Σ0 ↓ →0x22bb2
<MI 22b9c MOVE.B 0x24273,D0> {}
<MI 22ba2 CMPI.B #0x01,D0> {}
<MI 22ba6 BNE 0x22bb2> {}
<POP 22ba8-22bb2 Naked> Σ0 →0x22aa2
<MI 22ba8 MOVE.L #0x400,D5> {}
<MI 22bae BRA 0x22aa2> {}
<POP 22bb2-22bbc Naked> Σ0 ↓ →0x22bc8 ←0x22b70 ←0x22b98 ←0x22b9c
<MI 22bb2 MOVE.W (A6-0x6),D0> {}
<MI 22bb6 CMPI.W #0x007f,D0> {}
<MI 22bba BNE 0x22bc8> {}
<POP 22bbc-22bc2 Naked> Σ0 ↓
<MI 22bbc SUBI.W #0x0040,D0> {}
<POP 0x22bc0 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<POP 22bc2-22bc8 Naked> Σ0 →0x22bf8 ←0x22bd0
<MI 22bc2 MOVE.W D0,(A6-0x6)> {}
<MI 22bc6 BRA 0x22bf8> {}
<POP 22bc8-22bd0 Naked> Σ0 ↓ →0x22bd8 ←0x22bb2
<MI 22bc8 MOVE.W (A6-0x6),D0> {}
<MI 22bcc CMP.W #0x20,D0> {}
<MI 22bce BGE 0x22bd8> {}
<POP 22bd0-22bd8 Naked> Σ0 →0x22bc2
<MI 22bd0 ADDI.W #0x0040,D0> {}
<POP 0x22bd4 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22bd6 BRA 0x22bc2> {}
<POP 22bd8-22be6 Naked> Σ0 ↓ →0x22be8 ←0x22bc8
<MI 22bd8 CLR.L D0> {}
<MI 22bda MOVE.B 0x2428a,D0> {}
<MI 22be0 CMP.W (A6-0x6),D0> {}
<MI 22be4 BNE 0x22be8> {}
<POP 22be6-22be8 Naked> Σ0 →0x22bf8
<MI 22be6 BRA 0x22bf8> {}
<POP 22be8-22bf6 Naked> Σ0 ↓ →0x22bf8 ←0x22bd8
<MI 22be8 CLR.L D0> {}
<MI 22bea MOVE.B 0x2428b,D0> {}
<MI 22bf0 CMP.W (A6-0x6),D0> {}
<MI 22bf4 BEQ 0x22bf8> {}
<POP 22bf6-22bf8 Naked> Σ0 →0x22c10
<MI 22bf6 BRA 0x22c10> {}
<POP 22bf8-22c10 Naked> Σ0 ↓ ←0x22bc2 ←0x22be6 ←0x22be8
<MI 22bf8 MOVEA.L (A6-0xe),A0> {}
<MI 22bfa MOVE.W D6,D0> {}
<MI 22bfc SUBQ.W #0x1,D0> {}
<POP 0x22bfe LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 22c00 MOVE.B 0x2428a,(A0+D0.W+#0x2)> {}
<MI 22c08 MOVE.W D6,D0> {}
<MI 22c0a ADDQ.W #0x1,D0> {}
<POP 0x22c0c LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22c0e MOVE.W D0,D6> {}
<POP 22c10-22c32 Naked> Σ0 ↓ →0x22c36 ←0x22bf6
<MI 22c10 MOVEA.L (A6-0xe),A0> {}
<MI 22c12 MOVE.W D6,D0> {}
<MI 22c14 SUBQ.W #0x1,D0> {}
<POP 0x22c16 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 22c18 MOVE.W (A6-0x6),D1> {}
<POP 0x22c1c LimitCheck 0x0 ≤ D1 ≤ 0xff> {}
<MI 22c1e MOVE.B D1,(A0+D0.W+#0x2)> {}
<MI 22c22 MOVE.W D6,D0> {}
<MI 22c24 ADDQ.W #0x1,D0> {}
<POP 0x22c26 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22c28 MOVE.W D0,D6> {}
<MI 22c2a ADDQ.L #0x1,D5> {}
<MI 22c2c CMPI.W #0x005e,D6> {}
<MI 22c30 BGE 0x22c36> {}
<POP 22c32-22c36 Naked> Σ0 →0x22aa2
<MI 22c32 BRA 0x22aa2> {}
<POP 22c36-22c88 Naked> Σ0 ↓ →0x22c8c ←0x22ac8 ←0x22c10
<MI 22c36 MOVEA.L (A6-0xe),A0> {}
<MI 22c38 MOVE.W D6,D0> {}
<MI 22c3a SUBQ.W #0x2,D0> {}
<MI 22c3c ADD.W #0x20,D0> {}
<POP 0x22c3e LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22c40 MOVE.B D0,(A0+0x3)> {}
<MI 22c44 MOVE.L (A6-0xe),-(A7)> Δ-4 {[4, '(A6-0xe)']}
<Call 0x22c46 0x21a3c> {[4, '(A6-0xe)']}
<POP 22c4a-22c4c StackAdj> Δ+4 {}
<MI 22c4c MOVE.W D6,D0> {}
<MI 22c4e SUBQ.W #0x1,D0> {}
<POP 0x22c50 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 22c52 MOVE.B 0x24289,(A0+D0.W+#0x2)> {}
<MI 22c5a MOVE.W D6,D0> {}
<POP 0x22c5c LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 22c62 MOVE.B #0x0d,(A0+D0.W+#0x2)> {}
<Const 0x22c68 0x44.2> Δ-2 {[#68]}
<Call 0x22c6c 0x103d0> {[#68]}
WriteConsoleChar(chr : char)
<POP 22c72-22c74 StackAdj> Δ+2 {}
<MI 22c74 MOVE.L (A6-0xe),-(A7)> Δ-4 {[4, '(A6-0xe)']}
<Const 0x22c76 0x5.4> Δ-4 {[4, '(A6-0xe)']|[##5]}
<Call 0x22c7a 0x220da> {[4, '(A6-0xe)']|[##5]}
<POP 22c7e-22c80 StackAdj> Δ+8 {}
<MI 22c80 TST.B 0x24265> {}
<MI 22c86 BEQ 0x22c8c> {}
<POP 22c88-22c8c Naked> Σ0 →0x22d0e
<MI 22c88 BRA 0x22d0e> {}
<POP 22c8c-22c94 Naked> Σ0 ↓ →0x22cb2 ←0x22c36
<MI 22c8c MOVE.W 0x2428c,D0> {}
<MI 22c8e CMPI.W #0x003f,D0> {}
<MI 22c92 BGE 0x22cb2> {}
<POP 22c94-22cb2 Naked> Σ0 →0x22cb4
<MI 22c94 EXTW.L D0> {}
<MI 22c96 ADDQ.L #0x1,D0> {}
<POP 0x22c98 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {}
<MI 22cae MOVE.W D0,0x2428c> {}
<MI 22cb0 BRA 0x22cb4> {}
<POP 22cb2-22cb4 Naked> Σ0 ↓ ←0x22c8c
<MI 22cb2 CLR.W 0x2428c> {}
<POP 22cb4-22cb8 Naked> Σ0 →0x22a8e ←0x22c94
<MI 22cb4 BRA 0x22a8e> {}
<POP 22cb8-22d0e Naked> Σ0 →0x22d28 ←0x22ac2
<MI 22cb8 MOVEA.L (A6-0xe),A0> {}
<MI 22cba MOVE.W 0x2428c,D0> {}
<MI 22cbc EXTW.L D0> {}
<MI 22cbe ADD.L #0x20,D0> {}
<POP 0x22cc0 LimitCheck 0x0 ≤ D0 ≤ 0xff> {}
<MI 22cc6 MOVE.B D0,(A0+0x4)> {}
<MI 22cca MOVE.B #0x5a,(A0+0x5)> {}
<MI 22cd0 MOVE.B #0x23,(A0+0x3)> {}
<MI 22cd6 MOVE.L (A6-0xe),-(A7)> Δ-4 {[4, '(A6-0xe)']}
<Call 0x22cd8 0x21a3c> {[4, '(A6-0xe)']}
<POP 22cdc-22cde StackAdj> Δ+4 {}
<MI 22cde MOVE.B 0x24289,(A0+0x6)> {}
<MI 22ce6 MOVE.B #0x0d,(A0+0x7)> {}
<Const 0x22cec 0x5a.2> Δ-2 {[#90]}
<Call 0x22cf0 0x103d0> {[#90]}
WriteConsoleChar(chr : char)
<POP 22cf6-22cf8 StackAdj> Δ+2 {}
<MI 22cf8 MOVE.L (A6-0xe),-(A7)> Δ-4 {[4, '(A6-0xe)']}
<Const 0x22cfa 0x5.4> Δ-4 {[4, '(A6-0xe)']|[##5]}
<Call 0x22cfe 0x220da> {[4, '(A6-0xe)']|[##5]}
<POP 22d02-22d04 StackAdj> Δ+8 {}
<Call 0x22d04 0x222a0> {}
<Call 0x22d08 0x22648> {}
<MI 22d0c BRA 0x22d28> {}
<POP 22d0e-22d28 Naked> Σ0 ↓ ←0x2280c ←0x2291e ←0x22a40 ←0x22b04 ←0x22b64 ←0x22c88
<Blob 0x22d0e [2] 0x24265> Δ-2 {[«2»]}
<MI 22d14 MOVE.B 0x24276,D0> {[«2»]}
<MI 22d1a EXTB.W D0> {[«2»]}
<POP 0x22d1c LimitCheck 0x0 ≤ D0 ≤ 0xf> {[«2»]}
<MI 22d20 MOVE.B D0,-(A7)> Δ-2 {[«2»]|[2, 'D0']}
<Call 0x22d22 0x22420> {[«2»]|[2, 'D0']}
<POP 22d26-22d28 StackAdj> Δ+4 {}
<POP 22d28-22d3a Naked> Σ0 ↓ →0x22d5e ←0x22cb8
<Pointer.fp 0x22d28 <LVAR -0x00e @ 4(r)>> Δ-4 {[@@-14]}
<Call 0x22d2a 0x102bc> {[@@-14]}
FreeString(VAR a : String)
<POP 22d30-22d32 StackAdj> Δ+4 {}
<MI 22d32 TST.B 0x24272> {}
<MI 22d38 BEQ 0x22d5e> {}
<POP 22d3a-22d5e Naked> Σ0 ↓
<MI 22d3a CLR.B -(A7)> Δ-2 {[#0]}
<MI 22d3c CLR.B -(A7)> Δ-2 {[#0]|[#0]}
<Const 0x22d3e 0x1.4> Δ-4 {[#0]|[#0]|[##1]}
<Const 0x22d42 0x24276.4> Δ-4 {[#0]|[#0]|[##1]|[##148086]}
<Const 0x22d48 0x24278.4> Δ-4 {[#0]|[#0]|[##1]|[##148086]|[##148088]}
<Call 0x22d4e 0x1038c> {[#0]|[#0]|[##1]|[##148086]|[##148088]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 22d54-22d58 StackAdj> Δ+16 {}
<MI 22d58 CLR.B 0x24272> {}
<POP 22d5e-22d66 Epilogue> Σ0 ←0x22d28
@ 22d66
<LVAR -0x004 4(rw)>
<LVAR -0x006 @ 1(r)>
<LVAR -0x014 @ 1(r)>
<LVAR -0x018 @ 4(r)>
<LVAR -0x01c @ 4(r)>
<POP 22d66-235ea Body>
<POP 22d66-22d7c Prologue> Σ0 ↓
<POP 22d7c-22d98 RegCacheLoad> Σ0 ↓
<POP 22d98-22da0 Naked> Σ0 ↓ →0x22dd0
<MI 22d98 TST.B 0x24267> {}
<MI 22d9e BEQ 0x22dd0> {}
<POP 22da0-22dd0 Naked> Σ0 ↓
<Blob 0x22da0 [12] @> Δ-12 {[«12""»]}
<POP 22db2-22db4 StackAdj> Δ-4 {[«12""»]|[-4-]}
<Lit 0x22db4 11> {[«12""»]|[$$<<receive>>]}
<Call 0x22dc6 0x103e0> {[«12""»]|[$$<<receive>>]}
WriteConsoleStringCrLf(str : String)
<POP 22dcc-22dd0 StackAdj> Δ+16 {}
<POP 22dd0-22de6 Naked> Σ0 ↓ ←0x22d98
<MI 22dd0 CLR.B (A6-0x14)> {}
<MI 22dd4 MOVE.W #0xffff,0x2428c> {}
<MI 22ddc MOVE.B #0x42,0x2428e> {}
<MI 22de0 CLR.B 0x24272> {}
<POP 22de6-22dee Naked> Σ0 ↓ →0x22df8 ←0x23006 ←0x23080 ←0x2358e
<MI 22de6 MOVE.B 0x2428e,D0> {}
<MI 22de8 CMPI.B #0x42,D0> {}
<MI 22dec BNE 0x22df8> {}
<POP 22dee-22df8 Naked> Σ0 →0x22e00
<MI 22dee MOVE.L #0x78,(A6-0x4)> {}
<MI 22df6 BRA 0x22e00> {}
<POP 22df8-22e00 Naked> Σ0 ↓ ←0x22de6
<MI 22df8 MOVE.L #0xa,(A6-0x4)> {}
<POP 22e00-22e10 Naked> Σ0 ↓ →0x22e14 ←0x22dee
<MI 22e00 CLR.B -(A7)> Δ-2 {[#0]}
<MI 22e02 MOVE.L (A6-0x4),-(A7)> Δ-4 {[#0]|[4, '(A6-0x4)']}
<Call 0x22e06 0x217bc> {[#0]|[4, '(A6-0x4)']}
<POP 22e0a-22e0c StackAdj> Δ+6 {}
<MI 22e0c TST.B 0x24265> {}
<MI 22e0e BLE 0x22e14> {}
<POP 22e10-22e14 Naked> Σ0 →0x235a6
<MI 22e10 BRA 0x235a6> {}
<POP 22e14-22e20 Naked> Σ0 ↓ →0x22e30 ←0x22e00
<MI 22e14 MOVEA.L 0x24aa2,A0> {}
<MI 22e16 CLR.L D0> {}
<MI 22e18 MOVE.B (A0+0x2),D0> {}
<MI 22e1c CMP.L #0x01,D0> {}
<MI 22e1e BEQ 0x22e30> {}
<POP 22e20-22e28 Naked> Σ0 ↓ →0x22e2c
<MI 22e20 MOVE.B #0x11,0x24265> {}
<MI 22e24 CMP.L #0x0d,D0> {}
<MI 22e26 BNE 0x22e2c> {}
<POP 22e28-22e2c Naked> Σ0 →0x235a6
<MI 22e28 BRA 0x235a6> {}
<POP 22e2c-22e30 Naked> Σ0 →0x2358e ←0x22e20
<MI 22e2c BRA 0x2358e> {}
<POP 22e30-22e40 Naked> Σ0 ↓ →0x22e44 ←0x22e14
<Blob 0x22e30 [4] 0x24aa2> Δ-4 {[«4»]}
<Call 0x22e32 0x21a3c> {[«4»]}
<POP 22e36-22e38 StackAdj> Δ+4 {}
<MI 22e38 TST.B 0x24266> {}
<MI 22e3e BLE 0x22e44> {}
<POP 22e40-22e44 Naked> Σ0 →0x2358e
<MI 22e40 BRA 0x2358e> {}
<POP 22e44-22e58 Naked> Σ0 ↓ →0x22e5e ←0x22e30
<Blob 0x22e44 [4] 0x24aa2> Δ-4 {[«4»]}
<Call 0x22e46 0x21c3e> {[«4»]}
<POP 22e4a-22e4c StackAdj> Δ+4 {}
<MI 22e4c MOVEA.L 0x24aa2,A0> {}
<MI 22e4e MOVE.B (A0+0x5),D0> {}
<MI 22e52 CMPI.B #0x53,D0> {}
<MI 22e56 BNE 0x22e5e> {}
<POP 22e58-22e5e Naked> Σ0 ↓
<Call 0x22e58 0x103dc> {}
WriteConsoleCrLf(void)
<POP 22e5e-22e74 Naked> Σ0 ↓ →0x22e78 ←0x22e44
<MI 22e5e MOVEA.L 0x24aa2,A0> {}
<MI 22e60 MOVE.B (A0+0x5),-(A7)> Δ-2 {[2, '(A0+0x5)']}
<Call 0x22e64 0x103d0> {[2, '(A0+0x5)']}
WriteConsoleChar(chr : char)
<POP 22e6a-22e6c StackAdj> Δ+2 {}
<MI 22e6c MOVE.B 0x24265,D0> {}
<MI 22e6e CMPI.B #0x16,D0> {}
<MI 22e72 BNE 0x22e78> {}
<POP 22e74-22e78 Naked> Σ0 →0x235a6
<MI 22e74 BRA 0x235a6> {}
<POP 22e78-22e88 Naked> Σ0 ↓ →0x22ea8 ←0x22e5e
<MI 22e78 MOVEA.L 0x24aa2,A0> {}
<MI 22e7a CLR.L D0> {}
<MI 22e7c MOVE.B (A0+0x4),D0> {}
<MI 22e80 CMP.W 0x2428c,D0> {}
<MI 22e86 BNE 0x22ea8> {}
<POP 22e88-22e90 Naked> Σ0 ↓ →0x22ea8
<MI 22e88 MOVE.B (A0+0x5),D0> {}
<MI 22e8c CMP.B 0x2428e,D0> {}
<MI 22e8e BNE 0x22ea8> {}
<POP 22e90-22e98 Naked> Σ0 ↓ →0x22ea8
<MI 22e90 TST.B 0x2428f> {}
<MI 22e96 BEQ 0x22ea8> {}
<POP 22e98-22ea0 Naked> Σ0 ↓ →0x22ea4
<MI 22e98 MOVE.B 0x2428e,D0> {}
<MI 22e9a CMPI.B #0x53,D0> {}
<MI 22e9e BNE 0x22ea4> {}
<POP 22ea0-22ea2 Naked> Σ0 →0x22eec
<MI 22ea0 BRA 0x22eec> {}
<POP 22ea4-22ea8 Naked> Σ0 →0x235a2 ←0x22e98
<MI 22ea4 BRA 0x235a2> {}
<POP 22ea8-22eb4 Naked> Σ0 ↓ →0x22ece ←0x22e78 ←0x22e88 ←0x22e90
<MI 22ea8 MOVE.W 0x2428c,D0> {}
<MI 22eae CMPI.W #0x003f,D0> {}
<MI 22eb2 BGE 0x22ece> {}
<POP 22eb4-22ece Naked> Σ0 →0x22ed4
<MI 22eb4 EXTW.L D0> {}
<MI 22eb6 ADDQ.L #0x1,D0> {}
<POP 0x22eb8 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {}
<MI 22ec6 MOVE.W D0,0x2428c> {}
<MI 22ecc BRA 0x22ed4> {}
<POP 22ece-22ed4 Naked> Σ0 ↓ ←0x22ea8
<MI 22ece CLR.W 0x2428c> {}
<POP 22ed4-22ee4 Naked> Σ0 ↓ →0x22eec ←0x22eb4
<MI 22ed4 MOVEA.L 0x24aa2,A0> {}
<MI 22ed6 CLR.L D0> {}
<MI 22ed8 MOVE.B (A0+0x4),D0> {}
<MI 22edc CMP.W 0x2428c,D0> {}
<MI 22ee2 BEQ 0x22eec> {}
<POP 22ee4-22eec Naked> Σ0 →0x235a6 ←0x22f02 ←0x23024 ←0x230a4 ←0x2326e ←0x2342e
<MI 22ee4 MOVE.B #0x02,0x24265> {}
<MI 22ee8 BRA 0x235a6> {}
<POP 22eec-22efa Naked> Σ0 ↓ →0x2300a ←0x22ea0 ←0x22ed4
<MI 22eec MOVEA.L 0x24aa2,A0> {}
<MI 22eee MOVE.B (A0+0x5),D0> {}
<MI 22ef2 CMPI.B #0x53,D0> {}
<MI 22ef6 BNE 0x2300a> {}
<POP 22efa-22f02 Naked> Σ0 ↓ →0x22f04
<MI 22efa MOVE.B 0x2428e,D0> {}
<MI 22efc CMPI.B #0x42,D0> {}
<MI 22f00 BEQ 0x22f04> {}
<POP 22f02-22f04 Naked> Σ0 →0x22ee4
<MI 22f02 BRA 0x22ee4> {}
<POP 22f04-22f14 Naked> Σ0 ↓ →0x22f1c ←0x22efa
<MI 22f04 MOVE.B #0x53,0x2428e> {}
<MI 22f08 MOVEA.L 0x24aa2,A0> {}
<MI 22f0a CLR.L D0> {}
<MI 22f0c MOVE.B (A0+0x3),D0> {}
<MI 22f10 CMP.L #0x0d,D0> {}
<MI 22f12 BCC 0x22f1c> {}
<POP 22f14-22f1c Naked> Σ0 →0x235a6
<MI 22f14 MOVE.B #0x05,0x24265> {}
<MI 22f18 BRA 0x235a6> {}
<POP 22f1c-22f2c Naked> Σ0 ↓ →0x22f34 ←0x22f04
<MI 22f1c MOVEA.L 0x24aa2,A0> {}
<MI 22f1e CLR.L D0> {}
<MI 22f20 MOVE.B (A0+0x6),D0> {}
<MI 22f24 CMPI.L #0x0000005e,D0> {}
<MI 22f2a BCC 0x22f34> {}
<POP 22f2c-22f34 Naked> Σ0 →0x235a6
<MI 22f2c MOVE.B #0x07,0x24265> {}
<MI 22f30 BRA 0x235a6> {}
<POP 22f34-22f3c Naked> Σ0 ↓ →0x22f44 ←0x22f1c
<MI 22f34 MOVEA.L 0x24aa2,A0> {}
<MI 22f36 TST.B (A0+0x8)> {}
<MI 22f3a BEQ 0x22f44> {}
<POP 22f3c-22f44 Naked> Σ0 →0x235a6
<MI 22f3c MOVE.B #0x08,0x24265> {}
<MI 22f40 BRA 0x235a6> {}
<POP 22f44-22f50 Naked> Σ0 ↓ →0x22f58 ←0x22f34
<MI 22f44 MOVEA.L 0x24aa2,A0> {}
<MI 22f46 CLR.L D0> {}
<MI 22f48 MOVE.B (A0+0xa),D0> {}
<MI 22f4c CMP.L #0x0d,D0> {}
<MI 22f4e BEQ 0x22f58> {}
<POP 22f50-22f58 Naked> Σ0 →0x235a6
<MI 22f50 MOVE.B #0x09,0x24265> {}
<MI 22f54 BRA 0x235a6> {}
<POP 22f58-22f6c Naked> Σ0 ↓ →0x22f78 ←0x22f44
<MI 22f58 MOVEA.L 0x24aa2,A0> {}
<MI 22f5a MOVE.B (A0+0xb),0x2428a> {}
<MI 22f62 MOVE.B (A0+0xc),D0> {}
<MI 22f66 CMPI.B #0x4e,D0> {}
<MI 22f6a BEQ 0x22f78> {}
<POP 22f6c-22f78 Naked> Σ0 ↓ →0x22f80
<MI 22f6c CLR.L D1> {}
<MI 22f6e MOVE.B D0,D1> {}
<MI 22f70 CMPI.L #0x00000020,D1> {}
<MI 22f76 BCC 0x22f80> {}
<POP 22f78-22f80 Naked> Σ0 →0x22f86 ←0x22f58
<MI 22f78 CLR.B 0x24288> {}
<MI 22f7e BRA 0x22f86> {}
<POP 22f80-22f86 Naked> Σ0 ↓ ←0x22f6c
<MI 22f80 MOVE.B #0x01,0x24288> {}
<POP 22f86-22f96 Naked> Σ0 ↓ →0x22f9e ←0x22f78
<MI 22f86 MOVEA.L 0x24aa2,A0> {}
<MI 22f88 CLR.L D0> {}
<MI 22f8a MOVE.B (A0+0xf),D0> {}
<MI 22f8e ASR.W #0x3,D0> {}
<MI 22f90 BTST.L #0x0,D0> {}
<MI 22f94 BNE 0x22f9e> {}
<POP 22f96-22f9e Naked> Σ0 →0x235a6
<MI 22f96 MOVE.B #0x0a,0x24265> {}
<MI 22f9a BRA 0x235a6> {}
<POP 22f9e-23000 Naked> Σ0 ↓ →0x23006 ←0x22f86
<MI 22f9e MOVEA.L 0x24aa2,A0> {}
<MI 22fa0 MOVE.B #0x0d,(A0+0x3)> {}
<MI 22fa4 MOVE.B #0x59,(A0+0x5)> {}
<MI 22faa MOVE.B #0x5e,(A0+0x6)> {}
<MI 22fb0 MOVE.B #0x03,(A0+0x7)> {}
<MI 22fb6 MOVE.B #0x31,(A0+0xd)> {}
<MI 22fbc MOVE.B 0x2428b,(A0+0xc)> {}
<MI 22fc4 MOVE.B #0x20,(A0+0xe)> {}
<MI 22fca MOVE.B #0x08,(A0+0xf)> {}
<Blob 0x22fd0 [4] 0x24aa2> Δ-4 {[«4»]}
<Call 0x22fd2 0x21b62> {[«4»]}
<POP 22fd6-22fd7 StackAdj> Δ+4 {}
<Blob 0x22fd7 [4] 0x24aa2> Δ-4 {[«4»]}
<Call 0x22fd8 0x21a3c> {[«4»]}
<POP 22fdc-22fde StackAdj> Δ+4 {}
<MI 22fde MOVEA.L 0x24aa2,A0> {}
<MI 22fe0 MOVE.B 0x24289,(A0+0x10)> {}
<MI 22fe8 MOVE.B #0x0d,(A0+0x11)> {}
<Blob 0x22fec [4] 0x24aa2> Δ-4 {[«4»]}
<Const 0x22fee 0x5.4> Δ-4 {[«4»]|[##5]}
<Call 0x22ff2 0x220da> {[«4»]|[##5]}
<POP 22ff6-22ff8 StackAdj> Δ+8 {}
<MI 22ff8 TST.B 0x24266> {}
<MI 22ffe BEQ 0x23006> {}
<POP 23000-23006 Naked> Σ0 →0x235a6
<MI 23000 MOVE.B #0x0d,0x24265> {}
<MI 23002 BRA 0x235a6> {}
<POP 23006-2300a Naked> Σ0 →0x22de6 ←0x22f9e
<MI 23006 BRA 0x22de6> {}
<POP 2300a-23016 Naked> Σ0 ↓ →0x23088 ←0x22eec
<MI 2300a MOVEA.L 0x24aa2,A0> {}
<MI 2300c MOVE.B (A0+0x5),D0> {}
<MI 23010 CMPI.B #0x46,D0> {}
<MI 23014 BNE 0x23088> {}
<POP 23016-2301e Naked> Σ0 ↓ →0x23028
<MI 23016 MOVE.B 0x2428e,D0> {}
<MI 23018 CMPI.B #0x53,D0> {}
<MI 2301c BEQ 0x23028> {}
<POP 2301e-23024 Naked> Σ0 ↓ →0x23028
<MI 2301e CMPI.B #0x5a,D0> {}
<MI 23022 BEQ 0x23028> {}
<POP 23024-23028 Naked> Σ0 →0x22ee4
<MI 23024 BRA 0x22ee4> {}
<POP 23028-2304a Naked> Σ0 Δ-4 ↓ ←0x23016 ←0x2301e
<MI 23028 MOVE.B #0x46,0x2428e> {}
<MI 2302c CLR.B 0x2427c> {}
<MI 23032 MOVEA.L 0x2426a,A0> {}
<MI 23038 MOVEA.L 0x24aa2,A1> {}
<MI 2303a CLR.L D0> {}
<MI 2303c MOVE.B (A1+0x3),D0> {}
<MI 23040 SUBQ.W #0x3,D0> {}
<MI 23042 MOVE.W D0,(A0)> {}
<MI 23044 EXTW.L D0> {}
<MI 23046 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23048 MOVEQ.L #0x01,D7> {[4, 'D0']}
<POP 2304a-2304e Naked> Σ-4 ↓ →0x2307e ←0x2304e
<MI 2304a CMP.L (A7),D7> {[-4-]}
<MI 2304c BGT 0x2307e> {[-4-]}
<POP 2304e-2307e Naked> Σ-4 ↓ →0x2304a
<MI 2304e MOVEA.L 0x2426a,A0> {[-4-]}
<MI 23054 MOVE.L D7,D0> {[-4-]}
<MI 23056 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x23058 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 23062 MOVEA.L 0x24aa2,A1> {[-4-]}
<MI 23064 MOVE.L D7,D1> {[-4-]}
<MI 23066 ADDQ.L #0x4,D1> {[-4-]}
<MI 23068 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x2306a LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 23074 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2)> {[-4-]}
<MI 2307a ADDQ.L #0x1,D7> {[-4-]}
<MI 2307c BVC 0x2304a> {[-4-]}
<POP 2307e-23080 Naked> Σ-4 Δ+4 ↓ ←0x2304a
<POP 2307e-23080 StackAdj> Δ+4 {}
<POP 23080-23088 Naked> Σ0 →0x22de6 ←0x230be ←0x23414 ←0x23522 ←0x235a2
<Call 0x23080 0x221e4> {}
<MI 23084 BRA 0x22de6> {}
<POP 23088-23096 Naked> Σ0 ↓ →0x23252 ←0x2300a
<MI 23088 MOVEA.L 0x24aa2,A0> {}
<MI 2308a MOVE.B (A0+0x5),D0> {}
<MI 2308e CMPI.B #0x41,D0> {}
<MI 23092 BNE 0x23252> {}
<POP 23096-2309e Naked> Σ0 ↓ →0x230a8
<MI 23096 MOVE.B 0x2428e,D0> {}
<MI 23098 CMPI.B #0x46,D0> {}
<MI 2309c BEQ 0x230a8> {}
<POP 2309e-230a4 Naked> Σ0 ↓ →0x230a8
<MI 2309e CMPI.B #0x41,D0> {}
<MI 230a2 BEQ 0x230a8> {}
<POP 230a4-230a8 Naked> Σ0 →0x22ee4
<MI 230a4 BRA 0x22ee4> {}
<POP 230a8-230ae Naked> Σ0 ↓ ←0x23096 ←0x2309e
<MI 230a8 MOVE.B #0x41,0x2428e> {}
<MI 230ac MOVEQ.L #0x05,D6> {}
<POP 230ae-230be Naked> Σ0 ↓ →0x230c0 ←0x23196
<MI 230ae MOVEA.L 0x24aa2,A0> {}
<MI 230b0 CLR.L D0> {}
<MI 230b2 MOVE.B (A0+0x3),D0> {}
<MI 230b6 ADDQ.W #0x2,D0> {}
<MI 230b8 EXTW.L D0> {}
<MI 230ba CMP.L D0,D6> {}
<MI 230bc BNE 0x230c0> {}
<POP 230be-230c0 Naked> Σ0 →0x23080
<MI 230be BRA 0x23080> {}
<POP 230c0-230e0 Naked> Σ0 ↓ →0x2319e ←0x230ae
<MI 230c0 MOVEA.L 0x24aa2,A0> {}
<MI 230c2 MOVE.L D6,D0> {}
<MI 230c4 SUBQ.L #0x1,D0> {}
<POP 0x230c6 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 230d0 CLR.L D1> {}
<MI 230d2 MOVE.B (A0+D0.L+#0x2),D1> {}
<MI 230d6 CMPI.L #0x00000021,D1> {}
<MI 230dc BNE 0x2319e> {}
<POP 230e0-23106 Naked> Σ0 ↓ →0x2310e
<MI 230e0 MOVE.L D6,D0> {}
<MI 230e2 ADDQ.L #0x1,D0> {}
<MI 230e4 SUBQ.L #0x1,D0> {}
<POP 0x230e6 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 230f0 CLR.L D1> {}
<MI 230f2 MOVE.B (A0+D0.L+#0x2),D1> {}
<MI 230f6 SUBI.W #0x0020,D1> {}
<MI 230fa EXTW.L D1> {}
<MI 230fc MOVE.L D1,D5> {}
<MI 230fe CMPI.L #0x00000004,D5> {}
<MI 23104 BLE 0x2310e> {}
<POP 23106-2310e Naked> Σ0 →0x235a6 ←0x2318c ←0x23288
<MI 23106 MOVE.B #0x0b,0x24265> {}
<MI 2310a BRA 0x235a6> {}
<POP 2310e-23132 Naked> Σ0 Δ-4 ↓ ←0x230e0
<Pointer.fp 0x2310e <LVAR -0x01c @ 4(r)>> Δ-4 {[@@-28]}
<Call 0x23112 0x102b8> {[@@-28]}
NewString(VAR a : String)
<POP 23118-2311a StackAdj> Δ+4 {}
<MI 2311a MOVEA.L (A6-0x1c),A0> {}
<POP 0x2311e LimitCheck -0x8000 ≤ D5 ≤ 0x7fff> {}
<MI 2312c MOVE.W D5,(A0)> {}
<MI 2312e MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 23130 MOVEQ.L #0x01,D7> {[4, 'D5']}
<POP 23132-23136 Naked> Σ-4 ↓ →0x23166 ←0x23136
<MI 23132 CMP.L (A7),D7> {[-4-]}
<MI 23134 BGT 0x23166> {[-4-]}
<POP 23136-23166 Naked> Σ-4 ↓ →0x23132
<MI 23136 MOVEA.L (A6-0x1c),A0> {[-4-]}
<MI 2313a MOVE.L D7,D0> {[-4-]}
<MI 2313c SUBQ.L #0x1,D0> {[-4-]}
<POP 0x2313e LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 23148 MOVEA.L 0x24aa2,A1> {[-4-]}
<MI 2314a MOVE.L D6,D1> {[-4-]}
<MI 2314c ADD.L D7,D1> {[-4-]}
<MI 2314e ADDQ.L #0x1,D1> {[-4-]}
<MI 23150 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x23152 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 2315c MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2)> {[-4-]}
<MI 23162 ADDQ.L #0x1,D7> {[-4-]}
<MI 23164 BVC 0x23132> {[-4-]}
<POP 23166-23184 Naked> Σ-4 Δ+4 ↓ →0x2318c ←0x23132
<MI 23166 MOVE.L (A6-0x1c),(A7)> {[4, '(A6-0x1c)']}
<Pointer.fp 0x2316a <LVAR -0x006 @ 1(r)>> Δ-4 {[4, '(A6-0x1c)']|[@@-6]}
<Const 0x2316e 0x2426e.4> Δ-4 {[4, '(A6-0x1c)']|[@@-6]|[##148078]}
<Call 0x23174 0x102ec> {[4, '(A6-0x1c)']|[@@-6]|[##148078]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 2317a-2317e StackAdj> Δ+12 {}
<MI 2317e TST.B (A6-0x6)> {}
<MI 23182 BEQ 0x2318c> {}
<POP 23184-2318c Naked> Σ0 ↓ →0x23190
<MI 23184 TST.L 0x2426e> {}
<MI 2318a BNE 0x23190> {}
<POP 2318c-23190 Naked> Σ0 →0x23106 ←0x23166
<MI 2318c BRA 0x23106> {}
<POP 23190-23196 Naked> Σ0 ↓ ←0x23184
<MI 23190 MOVE.B #0x01,0x2427c> {}
<POP 23196-2319e Naked> Σ0 →0x230ae ←0x2322a ←0x2322e
<MI 23196 ADD.L D5,D6> {}
<MI 23198 ADDQ.L #0x2,D6> {}
<MI 2319a BRA 0x230ae> {}
<POP 2319e-231bc Naked> Σ0 ↓ →0x2322e ←0x230c0
<MI 2319e MOVEA.L 0x24aa2,A0> {}
<MI 231a0 MOVE.L D6,D0> {}
<MI 231a2 SUBQ.L #0x1,D0> {}
<POP 0x231a4 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 231ae CLR.L D1> {}
<MI 231b0 MOVE.B (A0+D0.L+#0x2),D1> {}
<MI 231b4 CMPI.L #0x00000022,D1> {}
<MI 231ba BNE 0x2322e> {}
<POP 231bc-231e2 Naked> Σ0 ↓ →0x231e4
<MI 231bc MOVE.L D6,D0> {}
<MI 231be ADDQ.L #0x1,D0> {}
<MI 231c0 SUBQ.L #0x1,D0> {}
<POP 0x231c2 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 231cc CLR.L D1> {}
<MI 231ce MOVE.B (A0+D0.L+#0x2),D1> {}
<MI 231d2 SUBI.W #0x0020,D1> {}
<MI 231d6 EXTW.L D1> {}
<MI 231d8 MOVE.L D1,D5> {}
<MI 231da TST.B 0x24273> {}
<MI 231e0 BEQ 0x231e4> {}
<POP 231e2-231e4 Naked> Σ0 →0x2322a
<MI 231e2 BRA 0x2322a> {}
<POP 231e4-23200 Naked> Σ0 ↓ →0x23206 ←0x231bc
<MI 231e4 MOVEA.L 0x24aa2,A0> {}
<MI 231e6 MOVE.L D6,D0> {}
<MI 231e8 ADDQ.L #0x2,D0> {}
<MI 231ea SUBQ.L #0x1,D0> {}
<POP 0x231ec LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 231f6 MOVE.B (A0+D0.L+#0x2),D0> {}
<MI 231fa CMPI.B #0x41,D0> {}
<MI 231fe BNE 0x23206> {}
<POP 23200-23206 Naked> Σ0 ↓
<MI 23200 MOVE.B #0x01,0x24273> {}
<POP 23206-23222 Naked> Σ0 ↓ →0x2322a ←0x231e4
<MI 23206 MOVEA.L 0x24aa2,A0> {}
<MI 23208 MOVE.L D6,D0> {}
<MI 2320a ADDQ.L #0x2,D0> {}
<MI 2320c SUBQ.L #0x1,D0> {}
<POP 0x2320e LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 23218 MOVE.B (A0+D0.L+#0x2),D0> {}
<MI 2321c CMPI.B #0x42,D0> {}
<MI 23220 BNE 0x2322a> {}
<POP 23222-2322a Naked> Σ0 ↓
<MI 23222 MOVE.B #0x02,0x24273> {}
<POP 2322a-2322e Naked> Σ0 →0x23196 ←0x231e2 ←0x23206
<MI 2322a BRA 0x23196> {}
<POP 2322e-23252 Naked> Σ0 →0x23196 ←0x2319e
<MI 2322e MOVEA.L 0x24aa2,A0> {}
<MI 23230 MOVE.L D6,D0> {}
<MI 23232 ADDQ.L #0x1,D0> {}
<MI 23234 SUBQ.L #0x1,D0> {}
<POP 0x23236 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {}
<MI 23240 CLR.L D1> {}
<MI 23242 MOVE.B (A0+D0.L+#0x2),D1> {}
<MI 23246 SUBI.W #0x0020,D1> {}
<MI 2324a EXTW.L D1> {}
<MI 2324c MOVE.L D1,D5> {}
<MI 2324e BRA 0x23196> {}
<POP 23252-23260 Naked> Σ0 ↓ →0x23418 ←0x23088
<MI 23252 MOVEA.L 0x24aa2,A0> {}
<MI 23254 MOVE.B (A0+0x5),D0> {}
<MI 23258 CMPI.B #0x44,D0> {}
<MI 2325c BNE 0x23418> {}
<POP 23260-23268 Naked> Σ0 ↓ →0x23272
<MI 23260 MOVE.B 0x2428e,D0> {}
<MI 23262 CMPI.B #0x41,D0> {}
<MI 23266 BEQ 0x23272> {}
<POP 23268-2326e Naked> Σ0 ↓ →0x23272
<MI 23268 CMPI.B #0x44,D0> {}
<MI 2326c BEQ 0x23272> {}
<POP 2326e-23272 Naked> Σ0 →0x22ee4
<MI 2326e BRA 0x22ee4> {}
<POP 23272-23280 Naked> Σ0 ↓ →0x23300 ←0x23260 ←0x23268
<MI 23272 MOVE.B #0x44,0x2428e> {}
<MI 23276 TST.B 0x24272> {}
<MI 2327c BNE 0x23300> {}
<POP 23280-23288 Naked> Σ0 ↓ →0x2328c
<MI 23280 TST.B 0x2427c> {}
<MI 23286 BNE 0x2328c> {}
<POP 23288-2328c Naked> Σ0 →0x23106
<MI 23288 BRA 0x23106> {}
<POP 2328c-23294 Naked> Σ0 ↓ →0x2329c ←0x23280
<MI 2328c TST.B 0x24273> {}
<MI 23292 BNE 0x2329c> {}
<POP 23294-2329c Naked> Σ0 →0x235a6
<MI 23294 MOVE.B #0x04,0x24265> {}
<MI 23298 BRA 0x235a6> {}
<POP 2329c-232a6 Naked> Σ0 ↓ →0x232ac ←0x2328c
<MI 2329c MOVE.B 0x24273,D0> {}
<MI 232a2 CMP.B #0x01,D0> {}
<MI 232a4 BLE 0x232ac> {}
<POP 232a6-232ac Naked> Σ0 ↓
<MI 232a6 NEG.L 0x2426e> {}
<POP 232ac-232d4 Naked> Σ0 ↓ →0x232da ←0x2329c
<Blob 0x232ac [4] 0x2426a> Δ-4 {[«4»]}
<Const 0x232b2 0x1.2> Δ-2 {[«4»]|[#1]}
<MI 232b4 CLR.B -(A7)> Δ-2 {[«4»]|[#1]|[#0]}
<Blob 0x232b6 [4] 0x2426e> Δ-4 {[«4»]|[#1]|[#0]|[«4»]}
<Pointer.fp 0x232bc <LVAR -0x014 @ 1(r)>> Δ-4 {[«4»]|[#1]|[#0]|[«4»]|[@@-20]}
<Pointer.fp 0x232c0 <LVAR -0x018 @ 4(r)>> Δ-4 {[«4»]|[#1]|[#0]|[«4»]|[@@-20]|[@@-24]}
<Call 0x232c4 0x10380> {[«4»]|[#1]|[#0]|[«4»]|[@@-20]|[@@-24]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 232ca-232ce StackAdj> Δ+20 {}
<MI 232ce TST.B (A6-0x14)> {}
<MI 232d2 BEQ 0x232da> {}
<POP 232d4-232da Naked> Σ0 →0x235a6 ←0x233f2 ←0x234d6 ←0x2351e
<MI 232d4 MOVE.B #0x01,0x24265> {}
<MI 232d6 BRA 0x235a6> {}
<POP 232da-23300 Naked> Σ0 ↓ ←0x232ac
<MI 232da MOVE.B #0x01,0x24272> {}
<MI 232e0 CLR.W 0x24274> {}
<MI 232e6 CLR.B 0x24a98> {}
<MI 232ec CLR.W 0x24a96> {}
<MI 232f2 LEA.L 0x24292,A0> {}
<MI 232f8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 232fa MOVE.L (A7)+,0x24a92> Δ+4 {}
<POP 23300-23310 Naked> Σ0 Δ-4 ↓ ←0x23272
<MI 23300 MOVEA.L 0x24aa2,A0> {}
<MI 23302 CLR.L D0> {}
<MI 23304 MOVE.B (A0+0x3),D0> {}
<MI 23308 SUBQ.W #0x4,D0> {}
<MI 2330a EXTW.L D0> {}
<MI 2330c MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 2330e MOVEQ.L #0x00,D7> {[4, 'D0']}
<POP 23310-23314 Naked> Σ-4 ↓ →0x23382 ←0x2337e
<MI 23310 CMP.L (A7),D7> {[-4-]}
<MI 23312 BGT 0x23382> {[-4-]}
<POP 23314-23360 Naked> Σ-4 ↓ →0x23366
<MI 23314 MOVE.W 0x24a96,D0> {[-4-]}
<POP 0x2331a LimitCheck 0x0 ≤ D0 ≤ 0x7ff> {[-4-]}
<MI 2331e LEA.L 0x2425c,A0> {[-4-]}
<MI 23324 MOVEA.L 0x24aa2,A1> {[-4-]}
<MI 23326 MOVEQ.L #0x05,D1> {[-4-]}
<MI 23328 ADD.L D7,D1> {[-4-]}
<MI 2332a SUBQ.L #0x1,D1> {[-4-]}
<POP 0x2332c LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 23336 MOVE.B (A1+D1.L+#0x2),(A0+D0.W+#0x36)> {[-4-]}
<MI 2333c MOVE.W 0x24a96,D0> {[-4-]}
<MI 23342 EXTW.L D0> {[-4-]}
<MI 23344 ADDQ.L #0x1,D0> {[-4-]}
<POP 0x23346 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {[-4-]}
<MI 23354 MOVE.W D0,0x24a96> {[-4-]}
<MI 2335a CMPI.W #0x0400,D0> {[-4-]}
<MI 2335e BNE 0x23366> {[-4-]}
<POP 23360-23366 Naked> Σ-4 ↓
<MI 23360 MOVE.B #0x01,0x24a98> {[-4-]}
<POP 23366-23372 Naked> Σ-4 ↓ →0x2337e ←0x23314
<MI 23366 MOVE.W 0x24a96,D0> {[-4-]}
<MI 2336c CMPI.W #0x0800,D0> {[-4-]}
<MI 23370 BNE 0x2337e> {[-4-]}
<POP 23372-2337e Naked> Σ-4 ↓
<MI 23372 CLR.W 0x24a96> {[-4-]}
<MI 23378 MOVE.B #0x01,0x24a98> {[-4-]}
<POP 2337e-23382 Naked> Σ-4 ↓ →0x23310 ←0x23366
<MI 2337e ADDQ.L #0x1,D7> {[-4-]}
<MI 23380 BVC 0x23310> {[-4-]}
<POP 23382-2338e Naked> Σ-4 Δ+4 ↓ →0x23414 ←0x23310
<POP 23382-23384 StackAdj> Δ+4 {}
<MI 23384 TST.B 0x24a98> {}
<MI 2338a BEQ 0x23414> {}
<POP 2338e-233a0 Naked> Σ0 ↓ →0x233ac
<MI 2338e CLR.B 0x24a98> {}
<MI 23394 MOVE.W 0x24a96,D0> {}
<MI 2339a CMPI.W #0x03ff,D0> {}
<MI 2339e BLE 0x233ac> {}
<POP 233a0-233ac Naked> Σ0 →0x233c0
<MI 233a0 MOVE.L 0x24a92,0x24a9a> {}
<MI 233aa BRA 0x233c0> {}
<POP 233ac-233c0 Naked> Σ0 ↓ ←0x2338e
<MI 233ac MOVE.L 0x24a92,0x24a9a> {}
<MI 233b6 ADDI.L #0x00000400,0x24a9a> {}
<POP 233c0-233f2 Naked> Σ0 ↓ →0x233f6 ←0x233a0
<MI 233c0 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x18)']}
<MI 233c4 MOVE.W 0x24274,D0> {[4, '(A6-0x18)']}
<POP 0x233ca LimitCheck 0x0 ≤ D0 ≤ 0x4000> {[4, '(A6-0x18)']}
<MI 233ce MOVE.W D0,-(A7)> Δ-2 {[4, '(A6-0x18)']|[2, 'D0']}
<MI 233d0 CLR.W -(A7)> Δ-2 {[4, '(A6-0x18)']|[2, 'D0']|[#0]}
<Const 0x233d2 0x200.2> Δ-2 {[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]}
<MI 233d6 CLR.B -(A7)> Δ-2 {[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]|[#0]}
<Blob 0x233d8 [4] 0x24a9a> Δ-4 {[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]|[#0]|[«4»]}
<Pointer.fp 0x233de <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]|[#0]|[«4»]|[@@-20]}
<Call 0x233e2 0x10388> {[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]|[#0]|[«4»]|[@@-20]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 233e8-233ec StackAdj> Δ+20 {}
<MI 233ec TST.B (A6-0x14)> {}
<MI 233f0 BEQ 0x233f6> {}
<POP 233f2-233f6 Naked> Σ0 →0x232d4
<MI 233f2 BRA 0x232d4> {}
<POP 233f6-23414 Naked> Σ0 ↓ ←0x233c0
<MI 233f6 MOVE.W 0x24274,D0> {}
<MI 233fc EXTW.L D0> {}
<MI 233fe ADDQ.L #0x1,D0> {}
<POP 0x23400 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {}
<MI 2340e MOVE.W D0,0x24274> {}
<POP 23414-23418 Naked> Σ0 →0x23080 ←0x23382
<MI 23414 BRA 0x23080> {}
<POP 23418-23426 Naked> Σ0 ↓ →0x2352c ←0x23252
<MI 23418 MOVEA.L 0x24aa2,A0> {}
<MI 2341a MOVE.B (A0+0x5),D0> {}
<MI 2341e CMPI.B #0x5a,D0> {}
<MI 23422 BNE 0x2352c> {}
<POP 23426-2342e Naked> Σ0 ↓ →0x23432
<MI 23426 MOVE.B 0x2428e,D0> {}
<MI 23428 CMPI.B #0x44,D0> {}
<MI 2342c BEQ 0x23432> {}
<POP 2342e-23432 Naked> Σ0 →0x22ee4
<MI 2342e BRA 0x22ee4> {}
<POP 23432-23440 Naked> Σ0 ↓ →0x234da ←0x23426
<MI 23432 MOVE.B #0x5a,0x2428e> {}
<MI 23436 TST.W 0x24a96> {}
<MI 2343c BEQ 0x234da> {}
<POP 23440-2344e Naked> Σ0 ↓ →0x234da
<MI 23440 MOVE.W 0x24a96,D0> {}
<MI 23446 CMPI.W #0x0400,D0> {}
<MI 2344a BEQ 0x234da> {}
<POP 2344e-23458 Naked> Σ0 ↓
<MI 2344e MOVE.W 0x24a96,D0> {}
<MI 23454 EXTW.L D0> {}
<MI 23456 MOVE.L D0,D7> {}
<POP 23458-23460 Naked> Σ0 ↓ →0x23478 ←0x23460
<MI 23458 CMPI.L #0x000007ff,D7> {}
<MI 2345e BGT 0x23478> {}
<POP 23460-23478 Naked> Σ0 ↓ →0x23458
<POP 0x23460 LimitCheck 0x0 ≤ D7 ≤ 0x7ff> {}
<MI 2346a LEA.L 0x2425c,A0> {}
<MI 23470 CLR.B (A0+D7.L+#0x36)> {}
<MI 23474 ADDQ.L #0x1,D7> {}
<MI 23476 BVC 0x23458> {}
<POP 23478-23484 Naked> Σ0 ↓ →0x2349a ←0x23458
<MI 23478 MOVE.W 0x24a96,D0> {}
<MI 2347e CMPI.W #0x03ff,D0> {}
<MI 23482 BLE 0x2349a> {}
<POP 23484-2349a Naked> Σ0 →0x234a4
<MI 23484 MOVE.L 0x24a92,0x24a9a> {}
<MI 2348e ADDI.L #0x00000400,0x24a9a> {}
<MI 23498 BRA 0x234a4> {}
<POP 2349a-234a4 Naked> Σ0 ↓ ←0x23478
<MI 2349a MOVE.L 0x24a92,0x24a9a> {}
<POP 234a4-234d6 Naked> Σ0 ↓ →0x234da ←0x23484
<MI 234a4 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x18)']}
<MI 234a8 MOVE.W 0x24274,D0> {[4, '(A6-0x18)']}
<POP 0x234ae LimitCheck 0x0 ≤ D0 ≤ 0x4000> {[4, '(A6-0x18)']}
<MI 234b2 MOVE.W D0,-(A7)> Δ-2 {[4, '(A6-0x18)']|[2, 'D0']}
<MI 234b4 CLR.W -(A7)> Δ-2 {[4, '(A6-0x18)']|[2, 'D0']|[#0]}
<Const 0x234b6 0x200.2> Δ-2 {[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]}
<MI 234ba CLR.B -(A7)> Δ-2 {[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]|[#0]}
<Blob 0x234bc [4] 0x24a9a> Δ-4 {[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]|[#0]|[«4»]}
<Pointer.fp 0x234c2 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]|[#0]|[«4»]|[@@-20]}
<Call 0x234c6 0x10388> {[4, '(A6-0x18)']|[2, 'D0']|[#0]|[#512]|[#0]|[«4»]|[@@-20]}
WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L)
<POP 234cc-234d0 StackAdj> Δ+20 {}
<MI 234d0 TST.B (A6-0x14)> {}
<MI 234d4 BEQ 0x234da> {}
<POP 234d6-234da Naked> Σ0 →0x232d4
<MI 234d6 BRA 0x232d4> {}
<POP 234da-234e4 Naked> Σ0 ↓ →0x234fe ←0x23432 ←0x23440 ←0x234a4
<MI 234da MOVE.B 0x24273,D0> {}
<MI 234e0 CMP.B #0x01,D0> {}
<MI 234e2 BLE 0x234fe> {}
<POP 234e4-234f8 Naked> Σ0 ↓ →0x234fe
<MI 234e4 MOVEA.L (A6-0x18),A0> {}
<MI 234e8 MOVE.B #0x01,(A0+0x4c)> {}
<MI 234ec ORI.B #0x02,(A0+0x3f)> {}
<MI 234f2 CMPI.B #0x03,D0> {}
<MI 234f6 BNE 0x234fe> {}
<POP 234f8-234fe Naked> Σ0 ↓
<MI 234f8 ORI.B #0x04,(A0+0x3f)> {}
<POP 234fe-2351e Naked> Σ0 ↓ →0x23522 ←0x234da ←0x234e4
<MI 234fe CLR.B -(A7)> Δ-2 {[#0]}
<MI 23500 CLR.B -(A7)> Δ-2 {[#0]|[#0]}
<Const 0x23502 0x1.4> Δ-4 {[#0]|[#0]|[##1]}
<Pointer.fp 0x23506 <LVAR -0x014 @ 1(r)>> Δ-4 {[#0]|[#0]|[##1]|[@@-20]}
<Pointer.fp 0x2350a <LVAR -0x018 @ 4(r)>> Δ-4 {[#0]|[#0]|[##1]|[@@-20]|[@@-24]}
<Call 0x2350e 0x1038c> {[#0]|[#0]|[##1]|[@@-20]|[@@-24]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 23514-23518 StackAdj> Δ+16 {}
<MI 23518 TST.B (A6-0x14)> {}
<MI 2351c BEQ 0x23522> {}
<POP 2351e-23522 Naked> Σ0 →0x232d4
<MI 2351e BRA 0x232d4> {}
<POP 23522-2352c Naked> Σ0 →0x23080 ←0x234fe
<MI 23522 CLR.B 0x24272> {}
<MI 23528 BRA 0x23080> {}
<POP 2352c-23538 Naked> Σ0 ↓ →0x23552 ←0x23418
<MI 2352c MOVEA.L 0x24aa2,A0> {}
<MI 2352e MOVE.B (A0+0x5),D0> {}
<MI 23532 CMPI.B #0x42,D0> {}
<MI 23536 BNE 0x23552> {}
<POP 23538-23544 Naked> Σ0 ↓ →0x2354c
<Call 0x23538 0x221e4> {}
<MI 2353c MOVE.B 0x2428e,D0> {}
<MI 2353e CMPI.B #0x5a,D0> {}
<MI 23542 BNE 0x2354c> {}
<POP 23544-2354c Naked> Σ0 →0x235e2
<Call 0x23544 0x22648> {}
<MI 23548 BRA 0x235e2> {}
<POP 2354c-23552 Naked> Σ0 →0x235a6 ←0x23538
<MI 2354c MOVE.B #0x12,0x24265> {}
<MI 23550 BRA 0x235a6> {}
<POP 23552-2355e Naked> Σ0 ↓ →0x23564 ←0x2352c
<MI 23552 MOVEA.L 0x24aa2,A0> {}
<MI 23554 MOVE.B (A0+0x5),D0> {}
<MI 23558 CMPI.B #0x45,D0> {}
<MI 2355c BNE 0x23564> {}
<POP 2355e-23564 Naked> Σ0 →0x235a6
<MI 2355e MOVE.B #0x13,0x24265> {}
<MI 23562 BRA 0x235a6> {}
<POP 23564-23570 Naked> Σ0 ↓ →0x23576 ←0x23552
<MI 23564 MOVEA.L 0x24aa2,A0> {}
<MI 23566 MOVE.B (A0+0x5),D0> {}
<MI 2356a CMPI.B #0x4e,D0> {}
<MI 2356e BNE 0x23576> {}
<POP 23570-23576 Naked> Σ0 →0x235a6
<MI 23570 MOVE.B #0x14,0x24265> {}
<MI 23574 BRA 0x235a6> {}
<POP 23576-23582 Naked> Σ0 ↓ →0x23588 ←0x23564
<MI 23576 MOVEA.L 0x24aa2,A0> {}
<MI 23578 MOVE.B (A0+0x5),D0> {}
<MI 2357c CMPI.B #0x59,D0> {}
<MI 23580 BNE 0x23588> {}
<POP 23582-23588 Naked> Σ0 →0x235a6
<MI 23582 MOVE.B #0x15,0x24265> {}
<MI 23586 BRA 0x235a6> {}
<POP 23588-2358e Naked> Σ0 →0x235a6 ←0x23576
<MI 23588 MOVE.B #0x16,0x24265> {}
<MI 2358c BRA 0x235a6> {}
<POP 2358e-235a2 Naked> Σ0 →0x22de6 ←0x22e2c ←0x22e40
<Call 0x2358e 0x22364> {}
<Const 0x23592 0x2d.2> Δ-2 {[#45]}
<Call 0x23596 0x103d0> {[#45]}
WriteConsoleChar(chr : char)
<POP 2359c-2359e StackAdj> Δ+2 {}
<MI 2359e BRA 0x22de6> {}
<POP 235a2-235a6 Naked> Σ0 →0x23080 ←0x22ea4
<MI 235a2 BRA 0x23080> {}
<POP 235a6-235c2 Naked> Σ0 ↓ →0x235e2 ←0x22e10 ←0x22e28 ←0x22e74 ←0x22ee4 ←0x22f14 ←0x22f2c ←0x22f3c ←0x22f50 ←0x22f96 ←0x23000 ←0x23106 ←0x23294 ←0x232d4 ←0x2354c ←0x2355e ←0x23570 ←0x23582 ←0x23588
<Blob 0x235a6 [2] 0x24265> Δ-2 {[«2»]}
<MI 235a8 MOVE.B (A6-0x14),D0> {[«2»]}
<MI 235ac EXTB.W D0> {[«2»]}
<POP 0x235ae LimitCheck 0x0 ≤ D0 ≤ 0xf> {[«2»]}
<MI 235b2 MOVE.B D0,-(A7)> Δ-2 {[«2»]|[2, 'D0']}
<Call 0x235b4 0x22420> {[«2»]|[2, 'D0']}
<POP 235b8-235ba StackAdj> Δ+4 {}
<MI 235ba TST.B 0x24272> {}
<MI 235c0 BEQ 0x235e2> {}
<POP 235c2-235e2 Naked> Σ0 ↓
<MI 235c2 CLR.B -(A7)> Δ-2 {[#0]}
<MI 235c4 CLR.B -(A7)> Δ-2 {[#0]|[#0]}
<Const 0x235c6 0x1.4> Δ-4 {[#0]|[#0]|[##1]}
<Pointer.fp 0x235ca <LVAR -0x014 @ 1(r)>> Δ-4 {[#0]|[#0]|[##1]|[@@-20]}
<Pointer.fp 0x235ce <LVAR -0x018 @ 4(r)>> Δ-4 {[#0]|[#0]|[##1]|[@@-20]|[@@-24]}
<Call 0x235d2 0x1038c> {[#0]|[#0]|[##1]|[@@-20]|[@@-24]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 235d8-235dc StackAdj> Δ+16 {}
<MI 235dc CLR.B 0x24272> {}
<POP 235e2-235ea Epilogue> Σ0 ←0x23544 ←0x235a6
@ 235ea
<LVAR -0x006 @ 2(r)>
<LVAR -0x008 @ 1(r)>
<POP 235ea-237c6 Body>
<POP 235ea-23600 Prologue> Σ0 ↓
<POP 23600-23618 RegCacheLoad> Σ0 ↓
<POP 23618-23620 Naked> Σ0 ↓ →0x2364e
<MI 23618 TST.B 0x24267> {}
<MI 2361e BEQ 0x2364e> {}
<POP 23620-2364e Naked> Σ0 ↓
<Blob 0x23620 [18] @> Δ-18 {[«18""»]}
<POP 23632-23634 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x23634 17> {[«18""»]|[$$<<connect_phone>>]}
<Call 0x23646 0x103e0> {[«18""»]|[$$<<connect_phone>>]}
WriteConsoleStringCrLf(str : String)
<POP 2364c-2364e StackAdj> Δ+22 {}
<POP 2364e-23660 Naked> Σ0 ↓ →0x23668 ←0x23618 ←0x23678
<Const 0x2364e 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x23650 <LVAR -0x008 @ 1(r)>> Δ-4 {[#3]|[@@-8]}
<Call 0x23652 0x10212> {[#3]|[@@-8]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 23658-2365a StackAdj> Δ+6 {}
<MI 2365a MOVE.B (A6-0x8),D0> {}
<MI 2365c CMP.B #0x03,D0> {}
<MI 2365e BNE 0x23668> {}
<POP 23660-23668 Naked> Σ0 →0x237be
<MI 23660 MOVE.B #0x0f,0x24265> {}
<MI 23664 BRA 0x237be> {}
<POP 23668-2366c Naked> Σ0 ↓ →0x23678 ←0x2364e
<MI 23668 TST.B (A6-0x8)> {}
<MI 2366a BEQ 0x23678> {}
<POP 2366c-23678 Naked> Σ0 ↓
<Const 0x2366c 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x2366e <LVAR -0x006 @ 2(r)>> Δ-4 {[#3]|[@@-6]}
<Call 0x23670 0x1020e> {[#3]|[@@-6]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 23676-23678 StackAdj> Δ+6 {}
<POP 23678-2367c Naked> Σ0 ↓ →0x2364e ←0x23668
<MI 23678 TST.B (A6-0x8)> {}
<MI 2367a BNE 0x2364e> {}
<POP 2367c-236ac Naked> Σ0 ↓ ←0x236e2
<Blob 0x2367c [44] @> Δ-44 {[«44""»]}
<POP 2368e-23690 StackAdj> Δ-4 {[«44""»]|[-4-]}
<Lit 0x23690 43> {[«44""»]|[$$Waiting for phone call, type CTL-C to exit]}
<Call 0x236a2 0x103e0> {[«44""»]|[$$Waiting for phone call, type CTL-C to exit]}
WriteConsoleStringCrLf(str : String)
<POP 236a8-236ac StackAdj> Δ+48 {}
<POP 236ac-236be Naked> Σ0 ↓ →0x236e4 ←0x2370e
<Const 0x236ac 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x236ae <LVAR -0x008 @ 1(r)>> Δ-4 {[#1]|[@@-8]}
<Call 0x236b0 0x10212> {[#1]|[@@-8]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 236b6-236b8 StackAdj> Δ+6 {}
<MI 236b8 MOVE.B (A6-0x8),D0> {}
<MI 236ba CMP.B #0x01,D0> {}
<MI 236bc BNE 0x236e4> {}
<POP 236be-236d2 Naked> Σ0 ↓ →0x236da
<Const 0x236be 0x1.2> Δ-2 {[#1]}
<Pointer.fp 0x236c0 <LVAR -0x006 @ 2(r)>> Δ-4 {[#1]|[@@-6]}
<Call 0x236c2 0x1020e> {[#1]|[@@-6]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 236c8-236ca StackAdj> Δ+6 {}
<MI 236ca MOVE.W (A6-0x6),D0> {}
<MI 236cc AND.W #0x7f,D0> {}
<MI 236ce CMP.W #0x03,D0> {}
<MI 236d0 BNE 0x236da> {}
<POP 236d2-236da Naked> Σ0 →0x237be
<MI 236d2 MOVE.B #0x17,0x24265> {}
<MI 236d6 BRA 0x237be> {}
<POP 236da-236e2 Naked> Σ0 ↓ →0x236e4 ←0x236be
<MI 236da MOVE.W (A6-0x6),D0> {}
<MI 236dc AND.W #0x7f,D0> {}
<MI 236de CMP.W #0x0d,D0> {}
<MI 236e0 BNE 0x236e4> {}
<POP 236e2-236e4 Naked> Σ0 →0x2367c
<MI 236e2 BRA 0x2367c> {}
<POP 236e4-23702 Naked> Σ0 ↓ →0x2370e ←0x236ac ←0x236da
<Const 0x236e4 0x9896.4> Δ-4 {[##39062]}
<Call 0x236ea 0x10224> {[##39062]}
KC12_Sleep(dur: Long)
<POP 236f0-236f2 StackAdj> Δ+2 {[-2-]}
<POP 236f2-236f3 StackAdj> Δ+2 {}
<Const 0x236f3 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x236f4 <LVAR -0x008 @ 1(r)>> Δ-4 {[#3]|[@@-8]}
<Call 0x236f6 0x10212> {[#3]|[@@-8]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 236fc-236fe StackAdj> Δ+6 {}
<MI 236fe TST.B (A6-0x8)> {}
<MI 23700 BEQ 0x2370e> {}
<POP 23702-2370e Naked> Σ0 ↓
<Const 0x23702 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x23704 <LVAR -0x006 @ 2(r)>> Δ-4 {[#3]|[@@-6]}
<Call 0x23706 0x1020e> {[#3]|[@@-6]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 2370c-2370e StackAdj> Δ+6 {}
<POP 2370e-23714 Naked> Σ0 ↓ →0x236ac ←0x236e4
<MI 2370e MOVE.B (A6-0x8),D0> {}
<MI 23710 CMP.B #0x03,D0> {}
<MI 23712 BNE 0x236ac> {}
<POP 23714-2371c Naked> Σ0 ↓ →0x23722
<MI 23714 MOVE.W (A6-0x6),D0> {}
<MI 23716 ANDI.W #0x00ff,D0> {}
<MI 2371a BEQ 0x23722> {}
<POP 2371c-23722 Naked> Σ0 →0x237be ←0x237b4
<MI 2371c MOVE.B #0x0d,0x24265> {}
<MI 2371e BRA 0x237be> {}
<POP 23722-23770 Naked> Σ0 ↓ ←0x23714
<Blob 0x23722 [2] @> Δ-2 {[«2""»]}
<Const 0x23726 0x3.2> Δ-2 {[«2""»]|[#3]}
<POP 23728-2372a StackAdj> Δ-4 {[«2""»]|[#3]|[-4-]}
<Lit 0x2372a 2> {[«2""»]|[#3]|[$$~ ]}
<Call 0x2373c 0x10214> {[«2""»]|[#3]|[$$~ ]}
KC0a(a: Word; b: String)
<POP 23742-23744 StackAdj> Δ+8 {}
<Blob 0x23744 [54] @> Δ-54 {[«54""»]}
<POP 23750-23752 StackAdj> Δ-4 {[«54""»]|[-4-]}
<Lit 0x23752 54> {[«54""»]|[$$Call received, waiting 20 seconds for modem handshake ]}
<Call 0x23764 0x103e0> {[«54""»]|[$$Call received, waiting 20 seconds for modem handshake ]}
WriteConsoleStringCrLf(str : String)
<POP 2376a-2376e StackAdj> Δ+58 {}
<MI 2376e MOVEQ.L #0x01,D7> {}
<POP 23770-23790 Naked> Σ0 ↓ →0x23770 ←0x23770
<Const 0x23770 0x9896.4> Δ-4 {[##39062]}
<Call 0x23776 0x10224> {[##39062]}
KC12_Sleep(dur: Long)
<POP 2377c-2377e StackAdj> Δ+2 {[-2-]}
<POP 2377e-2377f StackAdj> Δ+2 {}
<Const 0x2377f 0x2e.2> Δ-2 {[#46]}
<Call 0x23782 0x103d0> {[#46]}
WriteConsoleChar(chr : char)
<POP 23788-2378a StackAdj> Δ+2 {}
<MI 2378a ADDQ.W #0x1,D7> {}
<MI 2378c CMP.W #0x16,D7> {}
<MI 2378e BLE 0x23770> {}
<POP 23790-237a2 Naked> Σ0 ↓ →0x237b0 ←0x237b8
<Const 0x23790 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x23792 <LVAR -0x008 @ 1(r)>> Δ-4 {[#3]|[@@-8]}
<Call 0x23794 0x10212> {[#3]|[@@-8]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 2379a-2379c StackAdj> Δ+6 {}
<MI 2379c MOVE.B (A6-0x8),D0> {}
<MI 2379e CMP.B #0x01,D0> {}
<MI 237a0 BNE 0x237b0> {}
<POP 237a2-237b0 Naked> Σ0 →0x237b8
<Const 0x237a2 0x3.2> Δ-2 {[#3]}
<Pointer.fp 0x237a4 <LVAR -0x006 @ 2(r)>> Δ-4 {[#3]|[@@-6]}
<Call 0x237a6 0x1020e> {[#3]|[@@-6]}
KC07_PortGetChar(port : Word ; VAR ret : Word)
<POP 237ac-237ae StackAdj> Δ+6 {}
<MI 237ae BRA 0x237b8> {}
<POP 237b0-237b4 Naked> Σ0 ↓ →0x237b8 ←0x23790
<MI 237b0 TST.B D0> {}
<MI 237b2 BEQ 0x237b8> {}
<POP 237b4-237b8 Naked> Σ0 →0x2371c
<MI 237b4 BRA 0x2371c> {}
<POP 237b8-237bc Naked> Σ0 ↓ →0x23790 ←0x237a2 ←0x237b0
<MI 237b8 TST.B (A6-0x8)> {}
<MI 237ba BNE 0x23790> {}
<POP 237bc-237be Naked> Σ0 ↓
<MI 237bc CLR.B 0x24265> {}
<POP 237be-237c6 Epilogue> Σ0 ←0x23660 ←0x236d2 ←0x2371c
@ 237c6
<POP 237c6-2383a Body>
<POP 237c6-237dc Prologue> Σ0 ↓
<POP 237dc-237e4 Naked> Σ0 ↓ →0x23810
<MI 237dc TST.B 0x24267> {}
<MI 237e2 BEQ 0x23810> {}
<POP 237e4-23810 Naked> Σ0 ↓
<Blob 0x237e4 [20] @> Δ-20 {[«20""»]}
<POP 237f0-237f2 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x237f2 20> {[«20""»]|[$$<<disconnect_phone>>]}
<Call 0x23806 0x103e0> {[«20""»]|[$$<<disconnect_phone>>]}
WriteConsoleStringCrLf(str : String)
<POP 2380c-23810 StackAdj> Δ+24 {}
<POP 23810-23832 Naked> Σ0 ↓ ←0x237dc
<Const 0x23810 0x9896.4> Δ-4 {[##39062]}
<Call 0x23816 0x10224> {[##39062]}
KC12_Sleep(dur: Long)
<POP 2381c-2381e StackAdj> Δ+4 {}
<Call 0x2381e 0x10216> {}
KC0b
<Const 0x23824 0x1c9c2.4> Δ-4 {[##117186]}
<Call 0x2382a 0x10224> {[##117186]}
KC12_Sleep(dur: Long)
<POP 23830-23832 StackAdj> Δ+4 {}
<POP 23832-2383a Epilogue> Σ0
@ 2383a
<LVAR -0x006 @ 4(rw)>
<LVAR -0x00c @ 1(r)>
<POP 2383a-23de0 Body> Δ+6
<POP 2383a-23850 Prologue> Σ0 ↓
<POP 23850-2386e RegCacheLoad> Σ0 ↓
<POP 2386e-23876 Naked> Σ0 ↓ →0x2389c
<MI 2386e TST.B 0x24267> {}
<MI 23874 BEQ 0x2389c> {}
<POP 23876-2389c Naked> Σ0 ↓
<Blob 0x23876 [4] @> Δ-4 {[«4""»]}
<Blob 0x2387a [4] @> Δ-4 {[«4""»]|[«4""»]}
<Blob 0x2387e [4] @> Δ-4 {[«4""»]|[«4""»]|[«4""»]}
<POP 23882-23884 StackAdj> Δ-4 {[«4""»]|[«4""»]|[«4""»]|[-4-]}
<Lit 0x23884 12> {[«4""»]|[«4""»]|[«4""»]|[$$<<transfer>>]}
<Call 0x23892 0x103e0> {[«4""»]|[«4""»]|[«4""»]|[$$<<transfer>>]}
WriteConsoleStringCrLf(str : String)
<POP 23898-2389c StackAdj> Δ+16 {}
<POP 2389c-238a0 Naked> Σ0 ↓ ←0x2386e
<MI 2389c CLR.B (A6-0xc)> {}
<POP 238a0-238ac Naked> Σ0 ↓ →0x238b0 ←0x238c6 ←0x23dd4
<Call 0x238a0 0x235ea> {}
<MI 238a4 MOVE.B 0x24265,D0> {}
<MI 238a6 CMPI.B #0x17,D0> {}
<MI 238aa BNE 0x238b0> {}
<POP 238ac-238b0 Naked> Σ0 →0x23dba
<MI 238ac BRA 0x23dba> {}
<POP 238b0-238b4 Naked> Σ0 ↓ →0x238b8 ←0x238a0
<MI 238b0 TST.B 0x24265> {}
<MI 238b2 BEQ 0x238b8> {}
<POP 238b4-238b8 Naked> Σ0 →0x23d8a
<MI 238b4 BRA 0x23d8a> {}
<POP 238b8-238c6 Naked> Σ0 ↓ →0x238c8 ←0x238b0 ←0x23a06 ←0x23b60 ←0x23c26 ←0x23d20
<Call 0x238b8 0x103dc> {}
WriteConsoleCrLf(void)
<MI 238be MOVE.B 0x24265,D0> {}
<MI 238c0 CMPI.B #0x0e,D0> {}
<MI 238c4 BNE 0x238c8> {}
<POP 238c6-238c8 Naked> Σ0 →0x238a0
<MI 238c6 BRA 0x238a0> {}
<POP 238c8-23982 Naked> Σ0 ↓ →0x23986 ←0x238b8
<Blob 0x238c8 [46] @> Δ-46 {[«46""»]}
<POP 238d4-238d6 StackAdj> Δ-4 {[«46""»]|[-4-]}
<Lit 0x238d6 46> {[«46""»]|[$$Waiting for remote command, type CTL-C to exit]}
<Call 0x238e4 0x103e0> {[«46""»]|[$$Waiting for remote command, type CTL-C to exit]}
WriteConsoleStringCrLf(str : String)
<POP 238ea-238ee StackAdj> Δ+48 {[-2-]}
<POP 238ee-238ef StackAdj> Δ+2 {}
<Const 0x238ef 0x3.2> Δ-2 {[#3]}
<Const 0x238f0 0xd.2> Δ-2 {[#3]|[#13]}
<Call 0x238f2 0x1020c> {[#3]|[#13]}
KC06_PortPutChar(port : Word ; b : char)
<POP 238f8-238fa StackAdj> Δ+2 {[#3]}
<POP 238fa-238fb StackAdj> Δ+2 {}
<Const 0x238fb 0x3.2> Δ-2 {[#3]}
<Const 0x238fc 0xa.2> Δ-2 {[#3]|[#10]}
<Call 0x238fe 0x1020c> {[#3]|[#10]}
KC06_PortPutChar(port : Word ; b : char)
<POP 23904-23905 StackAdj> Δ+4 ↓ {}
<Blob 0x23905 [24] @> Δ-24 {[«24""»]}
<Const 0x23916 0x3.2> Δ-2 {[«24""»]|[#3]}
<POP 23918-2391a StackAdj> Δ-4 {[«24""»]|[#3]|[-4-]}
<Lit 0x2391a 23> {[«24""»]|[#3]|[$$Rational DFS Kermit 1.0]}
<Call 0x23928 0x1020a> {[«24""»]|[#3]|[$$Rational DFS Kermit 1.0]}
KC05_PortWriteString(port : Word ; str : String)
<POP 2392e-23932 StackAdj> Δ+28 {[-2-]}
<POP 23932-23933 StackAdj> Δ+2 {}
<Const 0x23933 0x3.2> Δ-2 {[#3]}
<Const 0x23934 0xd.2> Δ-2 {[#3]|[#13]}
<Call 0x23936 0x1020c> {[#3]|[#13]}
KC06_PortPutChar(port : Word ; b : char)
<POP 2393c-2393e StackAdj> Δ+2 {[#3]}
<POP 2393e-2393f StackAdj> Δ+2 {}
<Const 0x2393f 0x3.2> Δ-2 {[#3]}
<Const 0x23940 0xa.2> Δ-2 {[#3]|[#10]}
<Call 0x23942 0x1020c> {[#3]|[#10]}
KC06_PortPutChar(port : Word ; b : char)
<POP 23948-2394a StackAdj> Δ+4 {}
<Blob 0x2394a [22] @> Δ-22 {[«22""»]}
<Const 0x23956 0x3.2> Δ-2 {[«22""»]|[#3]}
<POP 23958-2395a StackAdj> Δ-4 {[«22""»]|[#3]|[-4-]}
<Lit 0x2395a 22> {[«22""»]|[#3]|[$$Send, Receive, Quit ? ]}
<Call 0x23966 0x1020a> {[«22""»]|[#3]|[$$Send, Receive, Quit ? ]}
KC05_PortWriteString(port : Word ; str : String)
<POP 2396c-2396e StackAdj> Δ+26 {[-2-]}
<POP 2396e-2396f StackAdj> Δ+2 {}
<Const 0x2396f 0x1.2> Δ-2 {[#1]}
<Const 0x23970 0x12c.4> Δ-4 {[#1]|[##300]}
<Call 0x23974 0x217bc> {[#1]|[##300]}
<POP 23978-2397a StackAdj> Δ+6 {}
<MI 2397a MOVE.B 0x24265,D0> {}
<MI 2397c CMPI.B #0x0e,D0> {}
<MI 23980 BNE 0x23986> {}
<POP 23982-23986 Naked> Σ0 →0x23dba
<MI 23982 BRA 0x23dba> {}
<POP 23986-2398a Naked> Σ0 ↓ →0x2398e ←0x238c8
<MI 23986 TST.B 0x24265> {}
<MI 23988 BEQ 0x2398e> {}
<POP 2398a-2398e Naked> Σ0 →0x23d8a
<MI 2398a BRA 0x23d8a> {}
<POP 2398e-23998 Naked> Σ0 ↓ →0x2399a ←0x23986
<MI 2398e MOVEA.L 0x24aa2,A0> {}
<MI 23990 MOVE.W (A0),D0> {}
<MI 23992 CMPI.W #0x0002,D0> {}
<MI 23996 BGE 0x2399a> {}
<POP 23998-2399a Naked> Σ0 →0x239d4
<MI 23998 BRA 0x239d4> {}
<POP 2399a-239ae Naked> Σ0 ↓ →0x239b0 ←0x2398e
<Blob 0x2399a [4] 0x24aa2> Δ-4 {[«4»]}
<Call 0x2399c 0x21f5a> {[«4»]}
<POP 239a0-239a2 StackAdj> Δ+4 {}
<MI 239a2 MOVEA.L 0x24aa2,A0> {}
<MI 239a4 MOVE.B (A0+0x2),D0> {}
<MI 239a8 CMPI.B #0x52,D0> {}
<MI 239ac BNE 0x239b0> {}
<POP 239ae-239b0 Naked> Σ0 →0x23a26
<MI 239ae BRA 0x23a26> {}
<POP 239b0-239bc Naked> Σ0 ↓ →0x239c0 ←0x2399a
<MI 239b0 MOVEA.L 0x24aa2,A0> {}
<MI 239b2 MOVE.B (A0+0x2),D0> {}
<MI 239b6 CMPI.B #0x53,D0> {}
<MI 239ba BNE 0x239c0> {}
<POP 239bc-239c0 Naked> Σ0 →0x23b90
<MI 239bc BRA 0x23b90> {}
<POP 239c0-239cc Naked> Σ0 ↓ →0x239d4 ←0x239b0
<MI 239c0 MOVEA.L 0x24aa2,A0> {}
<MI 239c2 MOVE.B (A0+0x2),D0> {}
<MI 239c6 CMPI.B #0x51,D0> {}
<MI 239ca BNE 0x239d4> {}
<POP 239cc-239d4 Naked> Σ0 →0x23d8a
<MI 239cc MOVE.B #0x18,0x24265> {}
<MI 239d0 BRA 0x23d8a> {}
<POP 239d4-23a06 Naked> Σ0 Δ-6 ↓ ←0x23998 ←0x239c0
<Blob 0x239d4 [28] @> Δ-28 {[«28""»]}
<POP 239e0-239e2 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x239e2 28> {[«28""»]|[$$Unexpected input from remote]}
<Call 0x239f0 0x103e0> {[«28""»]|[$$Unexpected input from remote]}
WriteConsoleStringCrLf(str : String)
<POP 239f6-239fa StackAdj> Δ+30 {[-2-]}
<POP 239fa-239fb StackAdj> Δ+2 {}
<Blob 0x239fb [2] @> Δ-2 {[«2""»]}
<Blob 0x239fe [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x23a02 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 23a06-23a26 Naked> Σ-6 Δ+6 →0x238b8 ←0x23b50
<Const 0x23a06 0x3.2> Δ-2 {[-6-]|[#3]}
<POP 23a08-23a0a StackAdj> Δ-4 {[-6-]|[#3]|[-4-]}
<Lit 0x23a0a> {[-6-]|[#3]|[$$…]}
<Pointer.sp 0x23a0a 6> Δ-4
<Const 0x23a0e 0x1.2> Δ-2
<Const 0x23a10 0x6.2> Δ-2
<Call 0x23a14 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 23a16-23a18 StackAdj> Δ+8
<Call 0x23a18 0x1020a> {[-6-]|[#3]|[$$…]}
KC05_PortWriteString(port : Word ; str : String)
<POP 23a1e-23a22 StackAdj> Δ+12 {}
<MI 23a22 BRA 0x238b8> {}
<POP 23a26-23ab2 Naked> Σ0 ↓ →0x23ab6 ←0x239ae
<Blob 0x23a26 [22] @> Δ-22 {[«22""»]}
<POP 23a36-23a38 StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x23a38 21> {[«22""»]|[$$Remote sending file/s]}
<Call 0x23a46 0x103e0> {[«22""»]|[$$Remote sending file/s]}
WriteConsoleStringCrLf(str : String)
<POP 23a4c-23a4e StackAdj> Δ+26 {}
<MI 23a4e CLR.B 0x24273> {}
<Blob 0x23a54 [52] @> Δ-52 {[«52""»]}
<POP 23a60-23a62 StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x23a62 52> {[«52""»]|[$$Waiting for filetype from remote, type CTL-C to exit]}
<Call 0x23a70 0x103e0> {[«52""»]|[$$Waiting for filetype from remote, type CTL-C to exit]}
WriteConsoleStringCrLf(str : String)
<POP 23a76-23a77 StackAdj> Δ+56 ↓ {}
<Blob 0x23a77 [30] @> Δ-30 {[«30""»]}
<Const 0x23a86 0x3.2> Δ-2 {[«30""»]|[#3]}
<POP 23a88-23a8a StackAdj> Δ-4 {[«30""»]|[#3]|[-4-]}
<Lit 0x23a8a 29> {[«30""»]|[#3]|[$$Enter DFS filetype [K/P/T] ?_]}
<Call 0x23a98 0x1020a> {[«30""»]|[#3]|[$$Enter DFS filetype [K/P/T] ?_]}
KC05_PortWriteString(port : Word ; str : String)
<POP 23a9e-23aa2 StackAdj> Δ+34 {[-2-]}
<POP 23aa2-23aa3 StackAdj> Δ+2 {}
<Const 0x23aa3 0x1.2> Δ-2 {[#1]}
<Const 0x23aa4 0x12c.4> Δ-4 {[#1]|[##300]}
<Call 0x23aa8 0x217bc> {[#1]|[##300]}
<POP 23aac-23aae StackAdj> Δ+6 {}
<MI 23aae TST.B 0x24265> {}
<MI 23ab0 BEQ 0x23ab6> {}
<POP 23ab2-23ab6 Naked> Σ0 →0x23d8a
<MI 23ab2 BRA 0x23d8a> {}
<POP 23ab6-23aca Naked> Σ0 ↓ →0x23ad0 ←0x23a26
<Blob 0x23ab6 [4] 0x24aa2> Δ-4 {[«4»]}
<Call 0x23ab8 0x21f5a> {[«4»]}
<POP 23abc-23abe StackAdj> Δ+4 {}
<MI 23abe MOVEA.L 0x24aa2,A0> {}
<MI 23ac0 MOVE.B (A0+0x2),D0> {}
<MI 23ac4 CMPI.B #0x4b,D0> {}
<MI 23ac8 BNE 0x23ad0> {}
<POP 23aca-23ad0 Naked> Σ0 ↓
<MI 23aca MOVE.B #0x03,0x24273> {}
<POP 23ad0-23adc Naked> Σ0 ↓ →0x23ae4 ←0x23ab6
<MI 23ad0 MOVEA.L 0x24aa2,A0> {}
<MI 23ad2 MOVE.B (A0+0x2),D0> {}
<MI 23ad6 CMPI.B #0x50,D0> {}
<MI 23ada BNE 0x23ae4> {}
<POP 23adc-23ae4 Naked> Σ0 ↓
<MI 23adc MOVE.B #0x02,0x24273> {}
<POP 23ae4-23af0 Naked> Σ0 ↓ →0x23af6 ←0x23ad0
<MI 23ae4 MOVEA.L 0x24aa2,A0> {}
<MI 23ae6 MOVE.B (A0+0x2),D0> {}
<MI 23aea CMPI.B #0x54,D0> {}
<MI 23aee BNE 0x23af6> {}
<POP 23af0-23af6 Naked> Σ0 ↓
<MI 23af0 MOVE.B #0x01,0x24273> {}
<POP 23af6-23b00 Naked> Σ0 ↓ →0x23b48 ←0x23ae4
<MI 23af6 MOVEA.L 0x24aa2,A0> {}
<MI 23af8 MOVE.W (A0),D0> {}
<MI 23afa CMPI.W #0x0002,D0> {}
<MI 23afe BGE 0x23b48> {}
<POP 23b00-23b48 Naked> Σ0 →0x23b60
<Blob 0x23b00 [36] @> Δ-36 {[«36""»]}
<Const 0x23b12 0x3.2> Δ-2 {[«36""»]|[#3]}
<POP 23b14-23b16 StackAdj> Δ-4 {[«36""»]|[#3]|[-4-]}
<Lit 0x23b16 35> {[«36""»]|[#3]|[$$Sending Kermit must supply filetype]}
<Call 0x23b24 0x1020a> {[«36""»]|[#3]|[$$Sending Kermit must supply filetype]}
KC05_PortWriteString(port : Word ; str : String)
<POP 23b2a-23b2e StackAdj> Δ+40 {[-2-]}
<POP 23b2e-23b2f StackAdj> Δ+2 {}
<Const 0x23b2f 0x3.2> Δ-2 {[#3]}
<Const 0x23b30 0xd.2> Δ-2 {[#3]|[#13]}
<Call 0x23b32 0x1020c> {[#3]|[#13]}
KC06_PortPutChar(port : Word ; b : char)
<POP 23b38-23b3a StackAdj> Δ+2 {[#3]}
<POP 23b3a-23b3b StackAdj> Δ+2 {}
<Const 0x23b3b 0x3.2> Δ-2 {[#3]}
<Const 0x23b3c 0xa.2> Δ-2 {[#3]|[#10]}
<Call 0x23b3e 0x1020c> {[#3]|[#10]}
KC06_PortPutChar(port : Word ; b : char)
<POP 23b44-23b46 StackAdj> Δ+4 {}
<MI 23b46 BRA 0x23b60> {}
<POP 23b48-23b50 Naked> Σ0 ↓ →0x23b60 ←0x23af6
<MI 23b48 TST.B 0x24273> {}
<MI 23b4e BNE 0x23b60> {}
<POP 23b50-23b60 Naked> Σ0 Δ-6 →0x23a06
<Blob 0x23b50 [2] @> Δ-2 {[«2""»]}
<Blob 0x23b54 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x23b58 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<MI 23b5c BRA 0x23a06> {[«2""»]|[«2""»]|[«2""»]}
<POP 23b60-23b90 Naked> Σ0 →0x238b8 ←0x23b00 ←0x23b48
<Blob 0x23b60 [48] @> Δ-48 {[«48""»]}
<Const 0x23b6c 0x3.2> Δ-2 {[«48""»]|[#3]}
<POP 23b6e-23b70 StackAdj> Δ-4 {[«48""»]|[#3]|[-4-]}
<Lit 0x23b70 48> {[«48""»]|[#3]|[$$Escape to local Kermit to start Xfer (type ^C C)]}
<Call 0x23b7e 0x1020a> {[«48""»]|[#3]|[$$Escape to local Kermit to start Xfer (type ^C C)]}
KC05_PortWriteString(port : Word ; str : String)
<POP 23b84-23b88 StackAdj> Δ+54 {}
<Call 0x23b88 0x22d66> {}
<MI 23b8c BRA 0x238b8> {}
<POP 23b90-23bde Naked> Σ0 ↓ ←0x239bc
<Blob 0x23b90 [22] @> Δ-22 {[«22""»]}
<POP 23b9c-23b9e StackAdj> Δ-4 {[«22""»]|[-4-]}
<Lit 0x23b9e 22> {[«22""»]|[$$Remote requesting file]}
<Call 0x23baa 0x103e0> {[«22""»]|[$$Remote requesting file]}
WriteConsoleStringCrLf(str : String)
<POP 23bb0-23bb2 StackAdj> Δ+26 {}
<MI 23bb2 CLR.B 0x24273> {}
<Blob 0x23bb8 [52] @> Δ-52 {[«52""»]}
<POP 23bc4-23bc6 StackAdj> Δ-4 {[«52""»]|[-4-]}
<Lit 0x23bc6 52> {[«52""»]|[$$Waiting for filename from remote, type CTL-C to exit]}
<Call 0x23bd4 0x103e0> {[«52""»]|[$$Waiting for filename from remote, type CTL-C to exit]}
WriteConsoleStringCrLf(str : String)
<POP 23bda-23bde StackAdj> Δ+56 {}
<POP 23bde-23c18 Naked> Σ0 ↓ →0x23c1c ←0x23ca8
<Blob 0x23bde [22] @> Δ-22 {[«22""»]}
<Const 0x23bee 0x3.2> Δ-2 {[«22""»]|[#3]}
<POP 23bf0-23bf2 StackAdj> Δ-4 {[«22""»]|[#3]|[-4-]}
<Lit 0x23bf2 21> {[«22""»]|[#3]|[$$Enter filename.ext ? ]}
<Call 0x23c00 0x1020a> {[«22""»]|[#3]|[$$Enter filename.ext ? ]}
KC05_PortWriteString(port : Word ; str : String)
<POP 23c06-23c08 StackAdj> Δ+26 {[-2-]}
<POP 23c08-23c09 StackAdj> Δ+2 {}
<Const 0x23c09 0x1.2> Δ-2 {[#1]}
<Const 0x23c0a 0x12c.4> Δ-4 {[#1]|[##300]}
<Call 0x23c0e 0x217bc> {[#1]|[##300]}
<POP 23c12-23c14 StackAdj> Δ+6 {}
<MI 23c14 TST.B 0x24265> {}
<MI 23c16 BEQ 0x23c1c> {}
<POP 23c18-23c1c Naked> Σ0 →0x23d8a
<MI 23c18 BRA 0x23d8a> {}
<POP 23c1c-23c26 Naked> Σ0 ↓ →0x23c2a ←0x23bde
<MI 23c1c MOVEA.L 0x24aa2,A0> {}
<MI 23c1e MOVE.W (A0),D0> {}
<MI 23c20 CMPI.W #0x0002,D0> {}
<MI 23c24 BGE 0x23c2a> {}
<POP 23c26-23c2a Naked> Σ0 →0x238b8
<MI 23c26 BRA 0x238b8> {}
<POP 23c2a-23c34 Naked> Σ0 Δ-4 ↓ ←0x23c1c
<MI 23c2a MOVEA.L 0x24aa2,A0> {}
<MI 23c2c MOVE.W (A0),D0> {}
<MI 23c2e EXTW.L D0> {}
<MI 23c30 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23c32 MOVEQ.L #0x01,D7> {[4, 'D0']}
<POP 23c34-23c38 Naked> Σ-4 ↓ →0x23c58 ←0x23c38
<MI 23c34 CMP.L (A7),D7> {[-4-]}
<MI 23c36 BGT 0x23c58> {[-4-]}
<POP 23c38-23c58 Naked> Σ-4 ↓ →0x23c34
<MI 23c38 MOVEA.L 0x2426a,A0> {[-4-]}
<MI 23c3e MOVE.L D7,D0> {[-4-]}
<MI 23c40 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x23c42 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 23c4c MOVEA.L 0x24aa2,A1> {[-4-]}
<MI 23c4e MOVE.B (A1+D0.L+#0x2),(A0+D0.L+#0x2)> {[-4-]}
<MI 23c54 ADDQ.L #0x1,D7> {[-4-]}
<MI 23c56 BVC 0x23c34> {[-4-]}
<POP 23c58-23ca8 Naked> Σ-4 Δ+4 ↓ →0x23d20 ←0x23c34
<POP 23c58-23c5a StackAdj> Δ+4 {}
<MI 23c5a MOVEA.L 0x2426a,A0> {}
<MI 23c60 MOVEA.L 0x24aa2,A1> {}
<MI 23c62 MOVE.W (A1),D0> {}
<MI 23c64 EXTW.L D0> {}
<MI 23c66 SUBQ.L #0x1,D0> {}
<POP 0x23c68 LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {}
<MI 23c7e MOVE.W D0,(A0)> {}
<Blob 0x23c80 [4] 0x2426a> Δ-4 {[«4»]}
<MI 23c86 CLR.B -(A7)> Δ-2 {[«4»]|[#0]}
<MI 23c88 CLR.B -(A7)> Δ-2 {[«4»]|[#0]|[#0]}
<Const 0x23c8a 0x0.4> Δ-4 {[«4»]|[#0]|[#0]|[##0]}
<Pointer.fp 0x23c8e <LVAR -0x00c @ 1(r)>> Δ-4 {[«4»]|[#0]|[#0]|[##0]|[@@-12]}
<Const 0x23c92 0x24278.4> Δ-4 {[«4»]|[#0]|[#0]|[##0]|[@@-12]|[##148088]}
<Call 0x23c98 0x10380> {[«4»]|[#0]|[#0]|[##0]|[@@-12]|[##148088]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 23c9e-23ca2 StackAdj> Δ+20 {}
<MI 23ca2 TST.B (A6-0xc)> {}
<MI 23ca6 BEQ 0x23d20> {}
<POP 23ca8-23d20 Naked> Σ0 →0x23bde
<Pointer.fp 0x23ca8 <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x23cac 0x102b8> {[@@-6]}
NewString(VAR a : String)
<MI 23cb2 MOVE.B (A6-0xc),-(A7)> Δ-2 {[@@-6]|[2, '(A6-0xc)']}
<Call 0x23cb6 0x103a0> {[@@-6]|[2, '(A6-0xc)']}
FsErrMsgStr(err: Byte) : String
<POP 23cbc-23cbe StackAdj> Δ+2 {[@@-6]}
<MI 23cbe MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<Const 0x23cc2 0x3.2> Δ-2 {[#3]}
<Const 0x23cc4 0xa.2> Δ-2 {[#3]|[#10]}
<Call 0x23cc6 0x1020c> {[#3]|[#10]}
KC06_PortPutChar(port : Word ; b : char)
<POP 23ccc-23ccd StackAdj> Δ+4 ↓ {}
<Blob 0x23ccd [8] @> Δ-8 {[«8""»]}
<Const 0x23cdc 0x3.2> Δ-2 {[«8""»]|[#3]}
<POP 23cde-23ce0 StackAdj> Δ-8 {[«8""»]|[#3]|[-8-]}
<Lit 0x23ce0 7> {[«8""»]|[#3]|[-4-]|[$$ERROR:_]}
<POP 23cec-23cee StackAdj> Δ-4 {[«8""»]|[#3]|[-4-]|[$$ERROR:_]|[-4-]}
<MI 23cee MOVE.L (A6-0x6),(A7)> {[«8""»]|[#3]|[-4-]|[$$ERROR:_]|[4, '(A6-0x6)']}
<Call 0x23cf2 0x102d0> {[«8""»]|[#3]|[-4-]|[$$ERROR:_]|[4, '(A6-0x6)']}
StringCat2(a, b : String) : String
<POP 23cf8-23cfa StackAdj> Δ+8 {[«8""»]|[#3]|[-4-]}
<Call 0x23cfa 0x1020a> {[«8""»]|[#3]|[-4-]}
KC05_PortWriteString(port : Word ; str : String)
<POP 23d00-23d04 StackAdj> Δ+12 {[-2-]}
<POP 23d04-23d05 StackAdj> Δ+2 {}
<Const 0x23d05 0x3.2> Δ-2 {[#3]}
<Const 0x23d06 0xa.2> Δ-2 {[#3]|[#10]}
<Call 0x23d08 0x1020c> {[#3]|[#10]}
KC06_PortPutChar(port : Word ; b : char)
<POP 23d0e-23d10 StackAdj> Δ+2 {[#3]}
<POP 23d10-23d11 StackAdj> Δ+2 {}
<Const 0x23d11 0x3.2> Δ-2 {[#3]}
<Const 0x23d12 0xd.2> Δ-2 {[#3]|[#13]}
<Call 0x23d14 0x1020c> {[#3]|[#13]}
KC06_PortPutChar(port : Word ; b : char)
<POP 23d1a-23d1c StackAdj> Δ+4 {}
<MI 23d1c BRA 0x23bde> {}
<POP 23d20-23d8a Naked> Σ0 →0x238b8 ←0x23c58
<MI 23d20 MOVE.B #0x01,0x24272> {}
<Blob 0x23d26 [64] @> Δ-64 {[«64""»]}
<Const 0x23d32 0x3.2> Δ-2 {[«64""»]|[#3]}
<POP 23d34-23d36 StackAdj> Δ-4 {[«64""»]|[#3]|[-4-]}
<Lit 0x23d36 64> {[«64""»]|[#3]|[$$Xfer starts in 10 seconds, escape to local Kermit !! (type ^C C)]}
<Call 0x23d44 0x1020a> {[«64""»]|[#3]|[$$Xfer starts in 10 seconds, escape to local Kermit !! (type ^C C)]}
KC05_PortWriteString(port : Word ; str : String)
<POP 23d4a-23d4e StackAdj> Δ+70 {}
<Blob 0x23d4e [24] @> Δ-24 {[«24""»]}
<POP 23d5a-23d5c StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x23d5c 24> {[«24""»]|[$$xfer starting in 10 sec.]}
<Call 0x23d6a 0x103e0> {[«24""»]|[$$xfer starting in 10 sec.]}
WriteConsoleStringCrLf(str : String)
<POP 23d70-23d74 StackAdj> Δ+24 {[-4-]}
<POP 23d74-23d75 StackAdj> Δ+4 {}
<Const 0x23d75 0x5f5dc.4> Δ-4 {[##390620]}
<Call 0x23d7a 0x10224> {[##390620]}
KC12_Sleep(dur: Long)
<POP 23d80-23d82 StackAdj> Δ+4 {}
<Call 0x23d82 0x22704> {}
<MI 23d86 BRA 0x238b8> {}
<POP 23d8a-23dba Naked> Σ0 ↓ ←0x238b4 ←0x2398a ←0x239cc ←0x23ab2 ←0x23c18
<Blob 0x23d8a [22] @> Δ-22 {[«22""»]}
<Const 0x23d9a 0x3.2> Δ-2 {[«22""»]|[#3]}
<POP 23d9c-23d9e StackAdj> Δ-4 {[«22""»]|[#3]|[-4-]}
<Lit 0x23d9e 21> {[«22""»]|[#3]|[$$/// DISCONNECTING ///]}
<Call 0x23dac 0x1020a> {[«22""»]|[#3]|[$$/// DISCONNECTING ///]}
KC05_PortWriteString(port : Word ; str : String)
<POP 23db2-23db6 StackAdj> Δ+28 {}
<Call 0x23db6 0x237c6> {}
<POP 23dba-23dce Naked> Σ0 ↓ →0x23dd4 ←0x238ac ←0x23982
<Blob 0x23dba [2] 0x24265> Δ-2 {[«2»]}
<MI 23dbc MOVE.B (A6-0xc),-(A7)> Δ-2 {[«2»]|[2, '(A6-0xc)']}
<Call 0x23dc0 0x22420> {[«2»]|[2, '(A6-0xc)']}
<POP 23dc4-23dc6 StackAdj> Δ+4 {}
<MI 23dc6 MOVE.B 0x24265,D0> {}
<MI 23dc8 CMPI.B #0x10,D0> {}
<MI 23dcc BEQ 0x23dd4> {}
<POP 23dce-23dd4 Naked> Σ0 ↓ →0x23dd8
<MI 23dce CMPI.B #0x0e,D0> {}
<MI 23dd2 BNE 0x23dd8> {}
<POP 23dd4-23dd8 Naked> Σ0 →0x238a0 ←0x23dba
<MI 23dd4 BRA 0x238a0> {}
<POP 23dd8-23de0 Epilogue> Σ0 ←0x23dce
@ 23de0
<POP 23de0-23fcc Body> Δ-8
<POP 23de0-23df6 Prologue> Σ0 ↓
<POP 23df6-23e06 RegCacheLoad> Σ0 ↓
<POP 23e06-23e0a Naked> Σ0 ↓ →0x23e36
<MI 23e06 TST.B 0x24267> {}
<MI 23e08 BEQ 0x23e36> {}
<POP 23e0a-23e36 Naked> Σ0 ↓
<Blob 0x23e0a [18] @> Δ-18 {[«18""»]}
<POP 23e1c-23e1e StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x23e1e 17> {[«18""»]|[$$<<console_input>>]}
<Call 0x23e2c 0x103e0> {[«18""»]|[$$<<console_input>>]}
WriteConsoleStringCrLf(str : String)
<POP 23e32-23e36 StackAdj> Δ+22 {}
<POP 23e36-23e42 Naked> Σ0 ↓ →0x23e46 ←0x23e06 ←0x23e84 ←0x23ef2 ←0x23f1c ←0x23f46 ←0x23f74 ←0x23f82 ←0x23fac ←0x23fb4 ←0x23fbc
<MI 23e36 MOVE.B 0x24265,D0> {}
<MI 23e3c CMPI.B #0x18,D0> {}
<MI 23e40 BNE 0x23e46> {}
<POP 23e42-23e46 Naked> Σ0 →0x23fc4
<MI 23e42 BRA 0x23fc4> {}
<POP 23e46-23e52 Naked> Σ0 ↓ →0x23e5c ←0x23e36
<Call 0x23e46 0x21310> {}
<MI 23e4a TST.B 0x24264> {}
<MI 23e50 BEQ 0x23e5c> {}
<POP 23e52-23e5c Naked> Σ0 →0x23fbc
<MI 23e52 CLR.B 0x24264> {}
<MI 23e58 BRA 0x23fbc> {}
<POP 23e5c-23e84 Naked> Σ0 ↓ →0x23e86 ←0x23e46
<Blob 0x23e5c [4] @> Δ-4 {[«4""»]}
<Blob 0x23e60 [4] @> Δ-4 {[«4""»]|[«4""»]}
<POP 23e64-23e66 StackAdj> Δ-8 {[«4""»]|[«4""»]|[-8-]}
<Lit 0x23e66 8> {[«4""»]|[«4""»]|[-4-]|[$$kerm_l> ]}
<Call 0x23e74 0x103e4> {[«4""»]|[«4""»]|[-4-]|[$$kerm_l> ]}
AskConsoleString(prompt : String) : String
<POP 23e7a-23e7c StackAdj> Δ+4 {[«4""»]|[«4""»]|[-4-]}
<MI 23e7c MOVEA.L (A7)+,A4> Δ+4 {[«4""»]|[«4""»]}
<POP 23e7e-23e80 StackAdj> Δ+8 {}
<MI 23e80 TST.W (A4)> {}
<MI 23e82 BNE 0x23e86> {}
<POP 23e84-23e86 Naked> Σ0 →0x23e36
<MI 23e84 BRA 0x23e36> {}
<POP 23e86-23e98 Naked> Σ0 ↓ →0x23e9c ←0x23e5c
<MI 23e86 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Call 0x23e88 0x21f5a> {[4, 'A4']}
<POP 23e8c-23e8e StackAdj> Δ+4 {}
<MI 23e8e MOVE.B (A4+0x2),D0> {}
<MI 23e92 CMPI.B #0x48,D0> {}
<MI 23e96 BNE 0x23e9c> {}
<POP 23e98-23e9c Naked> Σ0 →0x23fac
<MI 23e98 BRA 0x23fac> {}
<POP 23e9c-23ea6 Naked> Σ0 ↓ →0x23eaa ←0x23e86
<MI 23e9c MOVE.B (A4+0x2),D0> {}
<MI 23ea0 CMPI.B #0x51,D0> {}
<MI 23ea4 BNE 0x23eaa> {}
<POP 23ea6-23eaa Naked> Σ0 →0x23fc4
<MI 23ea6 BRA 0x23fc4> {}
<POP 23eaa-23eb4 Naked> Σ0 ↓ →0x23eb8 ←0x23e9c
<MI 23eaa MOVE.B (A4+0x2),D0> {}
<MI 23eae CMPI.B #0x53,D0> {}
<MI 23eb2 BNE 0x23eb8> {}
<POP 23eb4-23eb8 Naked> Σ0 →0x23fb4
<MI 23eb4 BRA 0x23fb4> {}
<POP 23eb8-23ec2 Naked> Σ0 ↓ →0x23ec6 ←0x23eaa
<MI 23eb8 MOVE.B (A4+0x2),D0> {}
<MI 23ebc CMPI.B #0x41,D0> {}
<MI 23ec0 BNE 0x23ec6> {}
<POP 23ec2-23ec6 Naked> Σ0 →0x23fbc
<MI 23ec2 BRA 0x23fbc> {}
<POP 23ec6-23ece Naked> Σ0 ↓ →0x23f82 ←0x23eb8
<MI 23ec6 MOVE.W (A4),D0> {}
<MI 23ec8 CMP.W #0x01,D0> {}
<MI 23eca BLE 0x23f82> {}
<POP 23ece-23ef2 Naked> Σ0 Δ-2 ↓ →0x23efa
<MI 23ece MOVE.W #0x02,(A4)> {}
<Blob 0x23ed0 [2] @> Δ-2 {[«2""»]}
<POP 23ed4-23ed6 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 23ed6 MOVE.L A4,-(A7)> Δ-4 {[«2""»]|[-2-]|[4, 'A4']}
<POP 23ed8-23eda StackAdj> Δ-4 {[«2""»]|[-2-]|[4, 'A4']|[-4-]}
<Lit 0x23eda 2> {[«2""»]|[-2-]|[4, 'A4']|[$$TT]}
<Call 0x23ee6 0x102c8> {[«2""»]|[-2-]|[4, 'A4']|[$$TT]}
StringEqual(a, b : String) : Byte
<POP 23eec-23eee StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 23eee TST.B (A7)+> Δ+2 {[«2""»]}
<MI 23ef0 BEQ 0x23efa> {[«2""»]}
<POP 23ef2-23efa Naked> Σ-2 Δ+2 →0x23e36
<MI 23ef2 MOVE.B #0x01,0x24267> {[-2-]}
<POP 23ef4-23ef6 StackAdj> Δ+2 {}
<MI 23ef6 BRA 0x23e36> {}
<POP 23efa-23f1c Naked> Σ-2 ↓ →0x23f24 ←0x23ece
<POP 23efa-23efb StackAdj> Δ+2 {}
<Blob 0x23efb [2] @> Δ-2 {[«2""»]}
<POP 23efe-23f00 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 23f00 MOVE.L A4,-(A7)> Δ-4 {[«2""»]|[-2-]|[4, 'A4']}
<POP 23f02-23f04 StackAdj> Δ-4 {[«2""»]|[-2-]|[4, 'A4']|[-4-]}
<Lit 0x23f04 2> {[«2""»]|[-2-]|[4, 'A4']|[$$TF]}
<Call 0x23f10 0x102c8> {[«2""»]|[-2-]|[4, 'A4']|[$$TF]}
StringEqual(a, b : String) : Byte
<POP 23f16-23f18 StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 23f18 TST.B (A7)+> Δ+2 {[«2""»]}
<MI 23f1a BEQ 0x23f24> {[«2""»]}
<POP 23f1c-23f24 Naked> Σ-2 Δ+2 →0x23e36
<MI 23f1c CLR.B 0x24267> {[-2-]}
<POP 23f1e-23f20 StackAdj> Δ+2 {}
<MI 23f20 BRA 0x23e36> {}
<POP 23f24-23f46 Naked> Σ-2 ↓ →0x23f52 ←0x23efa
<POP 23f24-23f25 StackAdj> Δ+2 {}
<Blob 0x23f25 [2] @> Δ-2 {[«2""»]}
<POP 23f28-23f2a StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 23f2a MOVE.L A4,-(A7)> Δ-4 {[«2""»]|[-2-]|[4, 'A4']}
<POP 23f2c-23f2e StackAdj> Δ-4 {[«2""»]|[-2-]|[4, 'A4']|[-4-]}
<Lit 0x23f2e 2> {[«2""»]|[-2-]|[4, 'A4']|[$$DT]}
<Call 0x23f3a 0x102c8> {[«2""»]|[-2-]|[4, 'A4']|[$$DT]}
StringEqual(a, b : String) : Byte
<POP 23f40-23f42 StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 23f42 TST.B (A7)+> Δ+2 {[«2""»]}
<MI 23f44 BEQ 0x23f52> {[«2""»]}
<POP 23f46-23f52 Naked> Σ-2 Δ+2 →0x23e36
<MI 23f46 MOVE.B #0x01,0x24268> {[-2-]}
<POP 23f4c-23f4e StackAdj> Δ+2 {}
<MI 23f4e BRA 0x23e36> {}
<POP 23f52-23f74 Naked> Σ-2 ↓ →0x23f80 ←0x23f24
<POP 23f52-23f53 StackAdj> Δ+2 {}
<Blob 0x23f53 [2] @> Δ-2 {[«2""»]}
<POP 23f56-23f58 StackAdj> Δ-2 {[«2""»]|[-2-]}
<MI 23f58 MOVE.L A4,-(A7)> Δ-4 {[«2""»]|[-2-]|[4, 'A4']}
<POP 23f5a-23f5c StackAdj> Δ-4 {[«2""»]|[-2-]|[4, 'A4']|[-4-]}
<Lit 0x23f5c 2> {[«2""»]|[-2-]|[4, 'A4']|[$$DF]}
<Call 0x23f68 0x102c8> {[«2""»]|[-2-]|[4, 'A4']|[$$DF]}
StringEqual(a, b : String) : Byte
<POP 23f6e-23f70 StackAdj> Δ+8 {[«2""»]|[-2-]}
<MI 23f70 TST.B (A7)+> Δ+2 {[«2""»]}
<MI 23f72 BEQ 0x23f80> {[«2""»]}
<POP 23f74-23f80 Naked> Σ-2 Δ+2 →0x23e36
<MI 23f74 CLR.B 0x24268> {[-2-]}
<POP 23f7a-23f7c StackAdj> Δ+2 {}
<MI 23f7c BRA 0x23e36> {}
<POP 23f80-23f82 Naked> Σ-2 Δ+2 ↓ ←0x23f52
<POP 23f80-23f82 StackAdj> Δ+2 {}
<POP 23f82-23fac Naked> Σ0 →0x23e36 ←0x23ec6
<Blob 0x23f82 [38] @> Δ-38 {[«38""»]}
<POP 23f8e-23f90 StackAdj> Δ-4 {[«38""»]|[-4-]}
<Lit 0x23f90 38> {[«38""»]|[$$Unexpected input, Try HELP or re-enter]}
<Call 0x23f9e 0x103e0> {[«38""»]|[$$Unexpected input, Try HELP or re-enter]}
WriteConsoleStringCrLf(str : String)
<POP 23fa4-23fa8 StackAdj> Δ+42 {}
<MI 23fa8 BRA 0x23e36> {}
<POP 23fac-23fb4 Naked> Σ0 →0x23e36 ←0x23e98
<Call 0x23fac 0x21162> {}
<MI 23fb0 BRA 0x23e36> {}
<POP 23fb4-23fbc Naked> Σ0 →0x23e36 ←0x23eb4
<Call 0x23fb4 0x21504> {}
<MI 23fb8 BRA 0x23e36> {}
<POP 23fbc-23fc4 Naked> Σ0 →0x23e36 ←0x23e52 ←0x23ec2
<Call 0x23fbc 0x2383a> {}
<MI 23fc0 BRA 0x23e36> {}
<POP 23fc4-23fcc Epilogue> Σ0 ←0x23e42 ←0x23ea6
@ 23fcc
START
<POP 23fcc--0001 Body>
<POP 23fcc-23fd6 Prologue> Σ0
<POP 23fd6-23fe2 RegCacheLoad> Σ0 ↓
<POP 23fe2-24050 Naked> Σ0 ↓
<MI 23fe2 CLR.B 0x24267> {}
<MI 23fe8 CLR.B 0x24268> {}
<MI 23fee MOVE.B #0x01,0x24264> {}
<MI 23ff6 CLR.B 0x24266> {}
<MI 23ffc MOVE.B #0x23,0x2428a> {}
<MI 24004 MOVE.B #0x26,0x2428b> {}
<Call 0x2400c 0x10398> {}
FSCALL_10398
<Const 0x24012 0x2426a.4> Δ-4 {[##148074]}
<Call 0x24014 0x102b8> {[##148074]}
NewString(VAR a : String)
<POP 2401a-2401c StackAdj> Δ+4 {}
<Const 0x2401c 0x24aa2.4> Δ-4 {[##150178]}
<Call 0x2401e 0x102b8> {[##150178]}
NewString(VAR a : String)
<POP 24024-24026 StackAdj> Δ+4 {}
<Call 0x24026 0x21162> {}
<Call 0x2402a 0x23de0> {}
<Const 0x2402e 0x2426a.4> Δ-4 {[##148074]}
<Call 0x24030 0x102bc> {[##148074]}
FreeString(VAR a : String)
<POP 24036-24038 StackAdj> Δ+4 {}
<Const 0x24038 0x24aa2.4> Δ-4 {[##150178]}
<Call 0x2403a 0x102bc> {[##150178]}
FreeString(VAR a : String)
<POP 24040-24042 StackAdj> Δ+2 {[-2-]}
<MI 24042 CLR.B (A7)> {[-2-]}
<Const 0x24044 0x1.4> Δ-4 {[-2-]|[##1]}
<Call 0x24048 0x103b8> {[-2-]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 2404e-24050 StackAdj> Δ+6 {}
<POP 24050-24056 Naked> Σ0
<Call 0x24050 0x10284> {}
?exit
@ 24064
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 24064-240cc Body>
<POP 24064-2407a Prologue> Σ0 ↓
<POP 2407a-240c4 Naked> Σ0 ↓
<Blob 0x2407a [14] @> Δ-14 {[«14""»]}
<Const 0x24086 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 2408a-2408c StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x2408c 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 2409e-240a0 StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 240a0 MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 240a4 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 240a6 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 240a8 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x240aa 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 240b0-240b2 StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x240b2 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 240b8-240ba StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x240ba 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 240c0-240c4 StackAdj> Δ+20 {}
<POP 240c4-240cc Epilogue> Σ0
@ 24120
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 24120-2425c Body>
<POP 24120-24136 Prologue> Σ0 ↓
<POP 24136-2414c RegCacheLoad> Σ0 ↓
<POP 2414c-241ac Naked> Σ0 ↓ →0x241f4
<Call 0x2414c 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x24152 [18] @> Δ-18 {[«18""»]}
<POP 2415e-24160 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x24160 18> {[«18""»]|[$$Experiment error :]}
<Call 0x2416c 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 2416e-2416f StackAdj> Δ+22 ↓ {}
<Blob 0x2416f [14] @> Δ-14 {[«14""»]}
<POP 2417e-24180 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x24180 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 2418a-2418c StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 2418c MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x24190 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 24196-24198 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x24198 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2419e-241a0 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x241a0 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 241a2-241a4 StackAdj> Δ+18 {}
<MI 241a4 MOVEA.L (A6+0xa),A0> {}
<MI 241a8 CMPA.W #0x01,A0> {}
<MI 241aa BEQ 0x241f4> {}
<POP 241ac-241f4 Naked> Σ0 ↓
<Blob 0x241ac [14] @> Δ-14 {[«14""»]}
<Blob 0x241bc [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 241cc-241ce StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x241ce 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 241d8-241da StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x241da> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x241da 12> Δ-4
<Const 0x241de 0x1.2> Δ-2
<Const 0x241e0 0x1e.2> Δ-2
<Call 0x241e2 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 241e4-241e6 StackAdj> Δ+8
<Call 0x241e6 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 241ec-241ee StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x241ee 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 241f0-241f4 StackAdj> Δ+48 {}
<POP 241f4-24254 Naked> Σ0 ↓ ←0x2414c
<Blob 0x241f4 [14] @> Δ-14 {[«14""»]}
<POP 24204-24206 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x24206 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 24210-24212 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 24212 MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x24216 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 2421c-2421e StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x2421e 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 24224-24226 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x24226 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 24228-24229 StackAdj> Δ+18 ↓ {}
<Blob 0x24229 [24] @> Δ-24 {[«24""»]}
<Const 0x24238 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 2423c-2423e StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x2423e 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x2424c 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 24252-24254 StackAdj> Δ+30 {}
<POP 24254-2425c Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.f37e55988ff93afb 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 3f cc | ? | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 4a b8 | J | .PTR 0x24ab8 00020010 code.end: 00020010 00 02 42 5c | B\ | .PTR 0x2425c 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 40 64 | @d | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 41 20 | A | .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 4b 45 |@(#)KE | .XXX[0x6] 00020110 52 4d 49 54 2c 31 2e 30 |RMIT,1.0| .XXX[0x18] 00020118 2c 39 32 2f 30 39 2f 30 |,92/09/0| 00020120 39 2c 30 30 3a 30 30 3a |9,00:00:| 00020128 30 30 5c 20 |00\ | .XXX[0x4] 0002012c 52 61 74 69 6f 6e 61 6c |Rational| .TXT 'Rational DFS Kermit 1.0 ' 00020144 4c 45 4e 20 |LEN | .XXX[0x4] 00020148 66 69 65 6c 64 20 6f 75 |field ou| .XXX[0x50] 00020150 74 20 6f 66 20 72 61 6e |t of ran| 00020158 67 65 53 45 51 20 66 69 |geSEQ fi| 00020160 65 6c 64 20 6f 75 74 20 |eld out | 00020168 6f 66 20 72 61 6e 67 65 |of range| 00020170 70 61 63 6b 65 74 20 74 |packet t| 00020178 79 70 65 20 75 6e 6b 6e |ype unkn| 00020180 6f 77 6e 20 43 48 4b 20 |own CHK | 00020188 66 69 65 6c 64 20 69 6e |field in| 00020190 63 6f 72 72 65 63 74 20 |correct | 00020198 6b 65 72 6d |kerm | .TXT 'kerm' 0002019c 5f 6c 3e 20 |_l> | .TXT '_l> ' 000201a0 57 65 6c 63 6f 6d 65 20 |Welcome | .TXT 'Welcome to Rational DFS Kermit, a file transfer protocol. ' 000201da 54 68 69 73 20 70 72 6f |This pro| .TXT 'This program transfers files (text, binary, or kernel) between this ' 0002021e 6d 61 63 68 69 6e 65 20 |machine | .TXT 'machine and either another R1000 running the Environment or any ' 0002025e 6f 74 |ot | .XXX[0x2] 00020260 68 65 72 20 6d 61 63 68 |her mach| .XXX[0x40] 00020268 69 6e 65 20 77 68 69 63 |ine whic| 00020270 68 20 68 61 73 20 4b 65 |h has Ke| 00020278 72 6d 69 74 2e 20 20 41 |rmit. A| 00020280 66 74 65 72 20 74 68 69 |fter thi| 00020288 73 20 70 72 6f 67 72 61 |s progra| 00020290 6d 20 69 73 20 72 75 6e |m is run| 00020298 6e 69 6e 67 2c 20 61 6c |ning, al| 000202a0 6c 20 |l | .XXX[0x2] 000202a2 6f 70 65 72 61 74 69 6f |operatio| .TXT 'operations are initiated from the "Environment end" thru a series ' 000202e4 6f 66 20 4b 65 72 6d 69 |of Kermi| .TXT 'of Kermit.commands while this, the DFS machine, acts solely as a' 00020324 73 6c 61 76 65 2e 20 20 |slave. | .TXT 'slave. The communications port on this machine is the internal ' 00020364 70 68 6f 6e |phon | .XXX[0x4] 00020368 65 20 6c 69 6e 65 20 69 |e line i| .XXX[0x40] 00020370 6e 74 65 72 66 61 63 65 |nterface| 00020378 20 77 68 69 63 68 20 6f | which o| 00020380 70 65 72 61 74 65 73 20 |perates | 00020388 61 74 20 31 32 30 30 20 |at 1200 | 00020390 62 61 75 64 2e 20 20 54 |baud. T| 00020398 68 69 73 20 70 72 6f 67 |his prog| 000203a0 72 61 6d 20 68 61 73 20 |ram has | 000203a8 6e 6f 20 63 61 70 61 62 |no capab| .TXT 'no capability to dial out and must be called after it is running. ' 000203ea 43 6f 6e 73 6f 6c 65 20 |Console | .TXT 'Console (local) commands ' 00020406 2d 2d 2d 2d 2d 2d 2d 2d |--------| .TXT '--------------------------- ' 00020422 48 65 6c 70 20 20 20 20 |Help | .TXT 'Help Display greeting/info message ' 00020450 53 68 6f 77 20 20 20 20 |Show | .TXT 'Show Show parameters in effect ' 0002047a 41 6e 73 77 65 72 20 20 |Answer | .TXT 'Answer Answer phone and allow remote operations' 000204b2 51 75 69 74 20 20 20 20 |Quit | .TXT 'Quit Return to CLI ' 000204d0 54 54 20 2f 20 54 46 20 |TT / TF | .TXT 'TT / TF Trace program flow - True / False' 00020502 44 54 20 2f 20 44 46 20 |DT / DF | .TXT 'DT / DF Display packets - True / False' 00020530 43 6f 6d 6d 20 6c 69 6e |Comm lin| .TXT 'Comm line (remote) commands ' 0002054c 52 65 63 65 69 76 65 20 |Receive | .TXT 'Receive Start file transfer to DFS machine' 0002057e 53 65 6e 64 20 20 20 20 |Send | .TXT 'Send Start file transfer from DFS machine' 000205b2 51 75 69 74 20 20 20 20 |Quit | .TXT 'Quit Hang up and return to DFS control ' 000205e4 2d 2d 2d 2d 2d 2d 20 50 |------ P| .TXT '------ Protocol and file parameters ------' 0002060e 43 6f 6d 6d 20 70 6f 72 |Comm por| .TXT 'Comm port ...... phone line ' 0002062a 43 6f 6d 6d 20 72 61 74 |Comm rat| .TXT 'Comm rate ...... 1200 baud' 00020644 50 61 63 6b 65 74 20 6c |Packet l| .TXT 'Packet length .. 94 ' 00020658 43 61 6c 6c 20 74 69 6d |Call tim| .XXX[0x18] 00020660 65 6f 75 74 20 2e 2e 2e |eout ...| 00020668 20 35 20 6d 69 6e 2e 20 | 5 min. | 00020670 55 73 65 72 20 74 69 6d |User tim| .TXT 'User timeout ... 2 min. ' 00020688 58 66 65 72 20 74 69 6d |Xfer tim| .TXT 'Xfer timeout ... 5 trys, 8 sec each ' 000206ac 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown ' 000206b4 41 53 43 49 49 20 |ASCII | .TXT 'ASCII ' 000206ba 42 69 |Bi | .TXT 'Bi' 000206bc 6e 61 |na | .TXT 'na' 000206be 72 79 |ry | .TXT 'ry' 000206c0 4b 65 |Ke | .TXT 'Ke' 000206c2 72 6e |rn | .TXT 'rn' 000206c4 65 6c |el | .TXT 'el' 000206c6 46 69 6c 65 |File | .TXT 'File' 000206ca 20 74 79 70 | typ | .TXT ' typ' 000206ce 65 20 2e 2e |e .. | .TXT 'e ..' 000206d2 2e 2e 2e 2e |.... | .TXT '....' 000206d6 46 69 6c 65 20 77 61 72 |File war| .TXT 'File warning ... off' 000206ea 23 20 67 65 74 5f 74 65 |# get_te| .TXT '# get_test_byte ' 000206fa 3c 3c 67 65 74 5f 72 65 |<<get_re| .TXT '<<get_remote_str>>' 0002070c 3c 3c 62 6c 6f 63 6b 5f |<<block_| .TXT '<<block_checksum>>' 0002071e 3c 3c 65 6e 63 6f 64 65 |<<encode| .TXT '<<encode>>' 00020728 3c 3c 64 65 63 6f 64 65 |<<decode| .TXT '<<decode>>' 00020732 3c 3c 63 6f 6e 73 6f 6c |<<consol| .TXT '<<console_output>>' 00020744 3c 3c 73 5f 6d 61 6b 65 |<<s_make| .TXT '<<s_make_caps>> ' 00020754 3c 3c 78 6d 69 74 5f 70 |<<xmit_p| .TXT '<<xmit_packet>> ' 00020764 3c 3c 74 72 79 5f 78 6d |<<try_xm| .TXT '<<try_xmit_packet>> ' 00020778 3c 3c 73 65 |<<se | .TXT '<<se' 0002077c 6e 64 5f 61 |nd_a | .TXT 'nd_a' 00020780 63 6b 3e 3e |ck>> | .TXT 'ck>>' 00020784 3c 3c 73 65 6e 64 5f 62 |<<send_b| .TXT '<<send_break>>' 00020792 3c 3c 73 65 |<<se | .TXT '<<se' 00020796 6e 64 5f 6e |nd_n | .TXT 'nd_n' 0002079a 61 6b 3e 3e |ak>> | .TXT 'ak>>' 0002079e 75 6e |un | .XXX[0x2] 000207a0 75 73 65 64 20 2d 20 6f |used - o| .XXX[0x18] 000207a8 6b 5f 20 20 20 20 20 20 |k_ | 000207b0 20 20 20 20 20 20 20 20 | | 000207b8 20 20 20 20 | | .XXX[0x4] 000207bc 75 6e 75 73 |unus | .XXX[0x4] 000207c0 65 64 20 2d 20 66 73 20 |ed - fs | .XXX[0x28] 000207c8 65 72 72 6f 72 5f 20 20 |error_ | 000207d0 20 20 20 20 20 20 20 20 | | 000207d8 20 20 73 65 71 75 65 6e | sequen| 000207e0 63 65 20 65 72 72 6f 72 |ce error| 000207e8 5f 5f 5f 5f 5f 5f 5f 5f |________| .BLANK 5f[0x10] 000207f8 78 66 65 72 20 73 74 61 |xfer sta| .XXX[0x180] 00020800 72 74 65 64 20 77 2f 6f |rted w/o| 00020808 20 66 69 6c 65 20 73 69 | file si| 00020810 7a 65 5f 5f 5f 5f 78 66 |ze____xf| 00020818 65 72 20 73 74 61 72 74 |er start| 00020820 65 64 20 77 2f 6f 20 66 |ed w/o f| 00020828 69 6c 65 20 74 79 70 65 |ile type| 00020830 5f 5f 5f 5f 69 6e 69 74 |____init| 00020838 20 70 61 63 6b 65 74 20 | packet | 00020840 74 6f 6f 20 73 68 6f 72 |too shor| 00020848 74 5f 5f 5f 5f 5f 5f 5f |t_______| 00020850 5f 5f 69 6e 69 74 20 51 |__init Q| 00020858 42 49 4e 20 66 69 65 6c |BIN fiel| 00020860 64 20 4e 20 6f 72 20 30 |d N or 0| 00020868 5f 5f 5f 5f 5f 5f 5f 5f |________| 00020870 69 6e 69 74 20 4d 41 58 |init MAX| 00020878 4c 20 66 69 65 6c 64 20 |L field | 00020880 3c 20 39 34 5f 5f 5f 5f |< 94____| 00020888 5f 5f 5f 5f 5f 5f 69 6e |______in| 00020890 69 74 20 4e 50 41 44 20 |it NPAD | 00020898 66 69 65 6c 64 20 6e 6f |field no| 000208a0 74 20 30 5f 5f 5f 5f 5f |t 0_____| 000208a8 5f 5f 5f 5f 69 6e 69 74 |____init| 000208b0 20 45 4f 4c 20 66 69 65 | EOL fie| 000208b8 6c 64 20 6e 6f 74 20 43 |ld not C| 000208c0 52 5f 5f 5f 5f 5f 5f 5f |R_______| 000208c8 5f 5f 43 41 50 41 53 20 |__CAPAS | 000208d0 6d 69 73 73 69 6e 67 20 |missing | 000208d8 61 74 74 72 69 62 75 74 |attribut| 000208e0 65 73 20 62 69 74 5f 5f |es bit__| 000208e8 66 69 6c 65 20 73 69 7a |file siz| 000208f0 65 20 3d 20 30 20 6f 72 |e = 0 or| 000208f8 20 3e 31 30 6b 20 70 61 | >10k pa| 00020900 67 65 73 5f 5f 5f 62 69 |ges___bi| 00020908 6e 61 72 79 20 64 61 74 |nary dat| 00020910 61 20 66 6f 75 6e 64 20 |a found | 00020918 69 6e 20 66 69 6c 65 5f |in file_| 00020920 5f 5f 5f 5f 63 6f 6d 6d |____comm| 00020928 20 6c 69 6e 65 20 66 61 | line fa| 00020930 69 6c 75 72 65 5f 5f 5f |ilure___| 00020938 5f 5f 5f 5f 5f 5f 5f 5f |________| 00020940 5f 5f 63 6f 6d 6d 20 6c |__comm l| 00020948 69 6e 65 20 64 69 73 63 |ine disc| 00020950 6f 6e 6e 65 63 74 65 64 |onnected| 00020958 5f 5f 5f 5f 5f 5f 5f 5f |________| 00020960 63 6f 6d 6d 20 6c 69 6e |comm lin| 00020968 65 20 62 75 73 79 5f 5f |e busy__| 00020970 5f 5f 5f 5f 5f 5f 5f 5f |________| 00020978 5f 5f 5f 5f 5f 5f |______ | .XXX[0x6] 0002097e 74 69 |ti | .XXX[0x2] 00020980 6d 65 6f 75 74 20 77 61 |meout wa| .XXX[0x108] 00020988 69 74 69 6e 67 20 66 6f |iting fo| 00020990 72 20 72 65 6d 6f 74 65 |r remote| 00020998 5f 5f 5f 5f 6d 69 73 73 |____miss| 000209a0 69 6e 67 20 43 74 6c 2d |ing Ctl-| 000209a8 41 20 61 74 20 73 74 61 |A at sta| 000209b0 72 74 5f 5f 5f 5f 5f 5f |rt______| 000209b8 5f 5f 75 6e 65 78 70 65 |__unexpe| 000209c0 63 74 65 64 20 42 52 45 |cted BRE| 000209c8 41 4b 20 70 61 63 6b 65 |AK packe| 000209d0 74 5f 5f 5f 5f 5f 5f 5f |t_______| 000209d8 45 72 72 6f 72 20 70 61 |Error pa| 000209e0 63 6b 65 74 20 72 65 63 |cket rec| 000209e8 65 69 76 65 64 5f 5f 5f |eived___| 000209f0 5f 5f 5f 5f 5f 5f 75 6e |______un| 000209f8 65 78 70 65 63 74 65 64 |expected| 00020a00 20 4e 41 4b 20 70 61 63 | NAK pac| 00020a08 6b 65 74 5f 5f 5f 5f 5f |ket_____| 00020a10 5f 5f 5f 5f 75 6e 65 78 |____unex| 00020a18 70 65 63 74 65 64 20 41 |pected A| 00020a20 43 4b 20 70 61 63 6b 65 |CK packe| 00020a28 74 5f 5f 5f 5f 5f 5f 5f |t_______| 00020a30 5f 5f 75 6e 65 78 70 65 |__unexpe| 00020a38 63 74 65 64 20 70 61 63 |cted pac| 00020a40 6b 65 74 20 74 79 70 65 |ket type| 00020a48 20 72 65 63 76 64 5f 5f | recvd__| 00020a50 63 6f 6e 73 6f 6c 65 20 |console | 00020a58 71 75 69 74 20 72 65 71 |quit req| 00020a60 75 65 73 74 5f 5f 5f 5f |uest____| 00020a68 5f 5f 5f 5f 5f 5f 72 65 |______re| 00020a70 6d 6f 74 65 20 71 75 69 |mote qui| 00020a78 74 20 72 65 71 75 65 73 |t reques| 00020a80 74 5f 5f 5f 5f 5f 5f 5f |t_______| 00020a88 5f 5f 5f 5f |____ | .XXX[0x4] 00020a8c 4d 4c 53 54 |MLST | .TXT 'MLST' 00020a90 41 62 61 6e 64 6f 6e 69 |Abandoni| .TXT 'Abandoning transfer,_ ' 00020aa6 3c 3c 68 61 6e 64 6c 65 |<<handle| .TXT '<<handle_hard_errors>>' 00020abc 46 72 6f 6d 20 72 65 6d |From rem| .TXT 'From remote:_ ' 00020aca 74 72 61 6e |tran | .TXT 'tran' 00020ace 73 6d 69 73 |smis | .TXT 'smis' 00020ad2 73 69 6f 6e |sion | .TXT 'sion' 00020ad6 20 6f 66 5f | of_ | .TXT ' of_' 00020ada 20 63 6f 6d 70 6c 65 74 | complet| .TXT ' completed normally ' 00020aee 3c 3c 6e 6f 72 6d 61 6c |<<normal| .TXT '<<normal_end>>' 00020afc 3c 3c 73 65 |<<se | .TXT '<<se' 00020b00 6e 64 3e 3e |nd>> | .TXT 'nd>>' 00020b04 3c 3c 72 65 63 65 69 76 |<<receiv| .TXT '<<receive>> ' 00020b10 3c 3c 63 6f 6e 6e 65 63 |<<connec| .TXT '<<connect_phone>> ' 00020b22 57 61 69 74 69 6e 67 20 |Waiting | .TXT 'Waiting for phone call, type CTL-C to exit ' 00020b4e 7e 20 |~ | .TXT '~ ' 00020b50 43 61 6c 6c 20 72 65 63 |Call rec| .TXT 'Call received, waiting 20 seconds for modem handshake ' 00020b86 3c 3c 64 69 73 63 6f 6e |<<discon| .TXT '<<disconnect_phone>>' 00020b9a 3c 3c 74 72 |<<tr | .TXT '<<tr' 00020b9e 61 6e 73 66 |ansf | .TXT 'ansf' 00020ba2 65 72 3e 3e |er>> | .TXT 'er>>' 00020ba6 57 61 69 74 69 6e 67 20 |Waiting | .TXT 'Waiting for remote command, type CTL-C to exit' 00020bd4 53 65 6e 64 2c 20 52 65 |Send, Re| .TXT 'Send, Receive, Quit ? ' 00020bea 55 6e 65 78 70 65 63 74 |Unexpect| .TXT 'Unexpected input from remote' 00020c06 57 68 |Wh | .TXT 'Wh' 00020c08 61 74 |at | .TXT 'at' 00020c0a 20 3f | ? | .TXT ' ?' 00020c0c 52 65 6d 6f 74 65 20 73 |Remote s| .TXT 'Remote sending file/s ' 00020c22 57 61 69 74 69 6e 67 20 |Waiting | .TXT 'Waiting for filetype from remote, type CTL-C to exit' 00020c56 45 6e 74 65 72 20 44 46 |Enter DF| .TXT 'Enter DFS filetype [K/P/T] ?_ ' 00020c74 53 65 6e 64 69 6e 67 20 |Sending | .TXT 'Sending Kermit must supply filetype ' 00020c98 57 68 |Wh | .TXT 'Wh' 00020c9a 61 74 |at | .TXT 'at' 00020c9c 20 3f | ? | .TXT ' ?' 00020c9e 45 73 63 61 70 65 20 74 |Escape t| .TXT 'Escape to local Kermit to start Xfer (type ^C C)' 00020cce 52 65 6d 6f 74 65 20 72 |Remote r| .TXT 'Remote requesting file' 00020ce4 57 61 69 74 69 6e 67 20 |Waiting | .TXT 'Waiting for filename from remote, type CTL-C to exit' 00020d18 45 6e 74 65 72 20 66 69 |Enter fi| .TXT 'Enter filename.ext ? ' 00020d2e 45 52 52 4f 52 3a 5f 20 |ERROR:_ | .TXT 'ERROR:_ ' 00020d36 58 66 65 72 20 73 74 61 |Xfer sta| .TXT 'Xfer starts in 10 seconds, escape to local Kermit !! (type ^C C)' 00020d76 78 66 65 72 20 73 74 61 |xfer sta| .TXT 'xfer starting in 10 sec.' 00020d8e 2f 2f 2f 20 44 49 53 43 |/// DISC| .TXT '/// DISCONNECTING /// ' 00020da4 3c 3c 63 6f 6e 73 6f 6c |<<consol| .TXT '<<console_input>> ' 00020db6 54 54 |TT | .TXT 'TT' 00020db8 54 46 |TF | .TXT 'TF' 00020dba 44 54 |DT | .TXT 'DT' 00020dbc 44 46 |DF | .TXT 'DF' 00020dbe 55 6e 65 78 70 65 63 74 |Unexpect| .TXT 'Unexpected input, Try HELP or re-enter' 00020de4 01 2d 20 53 | - S | .XXX[0x4] 00020de8 7e 25 20 20 2d 23 26 21 |~% -#&!| .XXX[0x98] 00020df0 20 28 43 0d 01 2c 21 46 | (C ,!F| 00020df8 54 45 53 54 31 2e 54 58 |TEST1.TX| 00020e00 54 52 0d 01 2b 22 41 21 |TR +"A!| 00020e08 21 31 22 23 41 58 58 57 |!1"#AXXW| 00020e10 0d 01 2d 23 44 54 45 53 | -#DTES| 00020e18 54 31 20 44 41 54 41 5f |T1 DATA_| 00020e20 0d 01 2d 24 44 54 45 53 | -$DTES| 00020e28 54 31 20 37 37 37 37 21 |T1 7777!| 00020e30 0d 01 2d 24 44 54 45 53 | -$DTES| 00020e38 54 31 20 44 41 54 41 21 |T1 DATA!| 00020e40 0d 01 2d 25 44 54 45 53 | -%DTES| 00020e48 54 31 20 44 41 54 41 22 |T1 DATA"| 00020e50 0d 01 23 26 5a 45 0d 01 | #&ZE | 00020e58 23 27 42 2e 0d 01 33 28 |#'B. 3(| 00020e60 45 49 6c 6c 65 67 61 6c |EIllegal| 00020e68 20 66 69 6c 65 6e 61 6d | filenam| 00020e70 65 5d 0d 75 6e 75 73 65 |e] unuse| 00020e78 64 20 2d 20 6f 6b 5f 20 |d - ok_ | 00020e80 20 20 20 20 20 20 20 20 | | .BLANK 20[0x10] 00020e90 20 75 6e 75 73 65 64 20 | unused | .XXX[0x38] 00020e98 2d 20 66 73 20 65 72 72 |- fs err| 00020ea0 6f 72 5f 20 20 20 20 20 |or_ | 00020ea8 20 20 20 20 20 20 20 73 | s| 00020eb0 65 71 75 65 6e 63 65 20 |equence | 00020eb8 65 72 72 6f 72 5f 5f 5f |error___| 00020ec0 5f 5f 5f 5f 5f 5f 5f 5f |________| 00020ec8 5f 5f 5f 5f 5f |_____ | .XXX[0x5] 00020ecd 78 66 65 |xfe | .XXX[0x3] 00020ed0 72 20 73 74 61 72 74 65 |r starte| .XXX[0x180] 00020ed8 64 20 77 2f 6f 20 66 69 |d w/o fi| 00020ee0 6c 65 20 73 69 7a 65 5f |le size_| 00020ee8 5f 5f 5f 78 66 65 72 20 |___xfer | 00020ef0 73 74 61 72 74 65 64 20 |started | 00020ef8 77 2f 6f 20 66 69 6c 65 |w/o file| 00020f00 20 74 79 70 65 5f 5f 5f | type___| 00020f08 5f 69 6e 69 74 20 70 61 |_init pa| 00020f10 63 6b 65 74 20 74 6f 6f |cket too| 00020f18 20 73 68 6f 72 74 5f 5f | short__| 00020f20 5f 5f 5f 5f 5f 5f 5f 69 |_______i| 00020f28 6e 69 74 20 51 42 49 4e |nit QBIN| 00020f30 20 66 69 65 6c 64 20 4e | field N| 00020f38 20 6f 72 20 30 5f 5f 5f | or 0___| 00020f40 5f 5f 5f 5f 5f 69 6e 69 |_____ini| 00020f48 74 20 4d 41 58 4c 20 66 |t MAXL f| 00020f50 69 65 6c 64 20 3c 20 39 |ield < 9| 00020f58 34 5f 5f 5f 5f 5f 5f 5f |4_______| 00020f60 5f 5f 5f 69 6e 69 74 20 |___init | 00020f68 4e 50 41 44 20 66 69 65 |NPAD fie| 00020f70 6c 64 20 6e 6f 74 20 30 |ld not 0| 00020f78 5f 5f 5f 5f 5f 5f 5f 5f |________| 00020f80 5f 69 6e 69 74 20 45 4f |_init EO| 00020f88 4c 20 66 69 65 6c 64 20 |L field | 00020f90 6e 6f 74 20 43 52 5f 5f |not CR__| 00020f98 5f 5f 5f 5f 5f 5f 5f 43 |_______C| 00020fa0 41 50 41 53 20 6d 69 73 |APAS mis| 00020fa8 73 69 6e 67 20 61 74 74 |sing att| 00020fb0 72 69 62 75 74 65 73 20 |ributes | 00020fb8 62 69 74 5f 5f 66 69 6c |bit__fil| 00020fc0 65 20 73 69 7a 65 20 3d |e size =| 00020fc8 20 30 20 6f 72 20 3e 31 | 0 or >1| 00020fd0 30 6b 20 70 61 67 65 73 |0k pages| 00020fd8 5f 5f 5f 62 69 6e 61 72 |___binar| 00020fe0 79 20 64 61 74 61 20 66 |y data f| 00020fe8 6f 75 6e 64 20 69 6e 20 |ound in | 00020ff0 66 69 6c 65 5f 5f 5f 5f |file____| 00020ff8 5f 63 6f 6d 6d 20 6c 69 |_comm li| 00021000 6e 65 20 66 61 69 6c 75 |ne failu| 00021008 72 65 5f 5f 5f 5f 5f 5f |re______| 00021010 5f 5f 5f 5f 5f 5f 5f 63 |_______c| 00021018 6f 6d 6d 20 6c 69 6e 65 |omm line| 00021020 20 64 69 73 63 6f 6e 6e | disconn| 00021028 65 63 74 65 64 5f 5f 5f |ected___| 00021030 5f 5f 5f 5f 5f 63 6f 6d |_____com| 00021038 6d 20 6c 69 6e 65 20 62 |m line b| 00021040 75 73 79 5f 5f 5f 5f 5f |usy_____| 00021048 5f 5f 5f 5f 5f 5f 5f 5f |________| 00021050 5f 5f 5f |___ | .XXX[0x3] 00021053 74 69 6d 65 6f |timeo | .XXX[0x5] 00021058 75 74 20 77 61 69 74 69 |ut waiti| .XXX[0x108] 00021060 6e 67 20 66 6f 72 20 72 |ng for r| 00021068 65 6d 6f 74 65 5f 5f 5f |emote___| 00021070 5f 6d 69 73 73 69 6e 67 |_missing| 00021078 20 43 74 6c 2d 41 20 61 | Ctl-A a| 00021080 74 20 73 74 61 72 74 5f |t start_| 00021088 5f 5f 5f 5f 5f 5f 5f 75 |_______u| 00021090 6e 65 78 70 65 63 74 65 |nexpecte| 00021098 64 20 42 52 45 41 4b 20 |d BREAK | 000210a0 70 61 63 6b 65 74 5f 5f |packet__| 000210a8 5f 5f 5f 5f 5f 45 72 72 |_____Err| 000210b0 6f 72 20 70 61 63 6b 65 |or packe| 000210b8 74 20 72 65 63 65 69 76 |t receiv| 000210c0 65 64 5f 5f 5f 5f 5f 5f |ed______| 000210c8 5f 5f 5f 75 6e 65 78 70 |___unexp| 000210d0 65 63 74 65 64 20 4e 41 |ected NA| 000210d8 4b 20 70 61 63 6b 65 74 |K packet| 000210e0 5f 5f 5f 5f 5f 5f 5f 5f |________| 000210e8 5f 75 6e 65 78 70 65 63 |_unexpec| 000210f0 74 65 64 20 41 43 4b 20 |ted ACK | 000210f8 70 61 63 6b 65 74 5f 5f |packet__| 00021100 5f 5f 5f 5f 5f 5f 5f 75 |_______u| 00021108 6e 65 78 70 65 63 74 65 |nexpecte| 00021110 64 20 70 61 63 6b 65 74 |d packet| 00021118 20 74 79 70 65 20 72 65 | type re| 00021120 63 76 64 5f 5f 63 6f 6e |cvd__con| 00021128 73 6f 6c 65 20 71 75 69 |sole qui| 00021130 74 20 72 65 71 75 65 73 |t reques| 00021138 74 5f 5f 5f 5f 5f 5f 5f |t_______| 00021140 5f 5f 5f 72 65 6d 6f 74 |___remot| 00021148 65 20 71 75 69 74 20 72 |e quit r| 00021150 65 71 75 65 73 74 5f 5f |equest__| 00021158 5f 5f 5f 5f 5f 5f 5f 5f |________| 00021160 5f 00 |_ | .XXX[0x2] 00021162 ; -------------------------------------------------------------------------------------- 00021162 ; OMSI PASCAL Function 00021162 ; -------------------------------------------------------------------------------------- 00021162 4e 56 ff 78 |NV x | LINK.W A6,#0xff78 00021166 bf d5 | | CMPA.L (A5),A7 00021168 62 06 |b | BHI 0x21170 0002116a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002116e 4e 76 |Nv | TRAPV 00021170 de fc 00 84 | | ADDA.W #0x84,A7 00021174 48 e7 fd f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7) 00021178 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 0002117e 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00021184 49 f9 00 01 03 dc |I | LEA.L WriteConsoleCrLf(void),A4 0002118a 72 01 |r | MOVEQ.L #0x01,D1 0002118c 74 43 |tC | MOVEQ.L #0x43,D2 0002118e 76 3f |v? | MOVEQ.L #0x3f,D3 00021190 78 41 |xA | MOVEQ.L #0x41,D4 00021192 7a 46 |zF | MOVEQ.L #0x46,D5 00021194 7e 01 |~ | MOVEQ.L #0x01,D7 00021196 4e 94 |N | JSR (A4) 00021198 52 87 |R | ADDQ.L #0x1,D7 0002119a 0c 87 00 00 00 04 | | CMPI.L #0x00000004,D7 000211a0 6f f4 |o | BLE 0x21196 000211a2 7e 01 |~ | MOVEQ.L #0x01,D7 000211a4 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 000211a8 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 000211ae 54 4f |TO | ADDQ.L #0x2,A7 000211b0 52 87 |R | ADDQ.L #0x1,D7 000211b2 0c 87 00 00 00 14 | | CMPI.L #0x00000014,D7 000211b8 6f ea |o | BLE 0x211a4 000211ba 9e fc 00 18 | | SUBA.W #0x18,A7 000211be 20 4f | O | MOVEA.L A7,A0 000211c0 43 fa ef 6a |C j | LEA.L 0x2012c,A1 000211c4 70 16 |p | MOVEQ.L #0x16,D0 000211c6 10 d9 | | MOVE.B (A1)+,(A0)+ 000211c8 51 c8 ff fc |Q | DBF D0,0x211c6 000211cc 59 4f |YO | SUBQ.L #0x4,A7 000211ce 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000211d2 3f 01 |? | MOVE.W D1,-(A7) 000211d4 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 000211d8 4e 92 |N | JSR (A2) 000211da 50 4f |PO | ADDQ.L #0x8,A7 000211dc 4e 93 |N | JSR (A3) 000211de de fc 00 1c | | ADDA.W #0x1c,A7 000211e2 4e 94 |N | JSR (A4) 000211e4 9e fc 00 3a | : | SUBA.W #0x3a,A7 000211e8 20 4f | O | MOVEA.L A7,A0 000211ea 43 fa ef b4 |C | LEA.L 0x201a0,A1 000211ee 70 38 |p8 | MOVEQ.L #0x38,D0 000211f0 10 d9 | | MOVE.B (A1)+,(A0)+ 000211f2 51 c8 ff fc |Q | DBF D0,0x211f0 000211f6 59 4f |YO | SUBQ.L #0x4,A7 000211f8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000211fc 3f 01 |? | MOVE.W D1,-(A7) 000211fe 3f 3c 00 39 |?< 9 | MOVE.W #0x39,-(A7) 00021202 4e 92 |N | JSR (A2) 00021204 50 4f |PO | ADDQ.L #0x8,A7 00021206 4e 93 |N | JSR (A3) 00021208 5d 4f |]O | SUBQ.L #0x6,A7 0002120a 20 4f | O | MOVEA.L A7,A0 0002120c 43 fa ef cc |C | LEA.L 0x201da,A1 00021210 70 42 |pB | MOVEQ.L #0x42,D0 00021212 10 d9 | | MOVE.B (A1)+,(A0)+ 00021214 51 c8 ff fc |Q | DBF D0,0x21212 00021218 59 4f |YO | SUBQ.L #0x4,A7 0002121a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002121e 3f 01 |? | MOVE.W D1,-(A7) 00021220 3f 02 |? | MOVE.W D2,-(A7) 00021222 4e 92 |N | JSR (A2) 00021224 50 4f |PO | ADDQ.L #0x8,A7 00021226 4e 93 |N | JSR (A3) 00021228 50 4f |PO | ADDQ.L #0x8,A7 0002122a 20 4f | O | MOVEA.L A7,A0 0002122c 43 fa ef f0 |C | LEA.L 0x2021e,A1 00021230 70 3e |p> | MOVEQ.L #0x3e,D0 00021232 10 d9 | | MOVE.B (A1)+,(A0)+ 00021234 51 c8 ff fc |Q | DBF D0,0x21232 00021238 59 4f |YO | SUBQ.L #0x4,A7 0002123a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002123e 3f 01 |? | MOVE.W D1,-(A7) 00021240 3f 03 |? | MOVE.W D3,-(A7) 00021242 4e 92 |N | JSR (A2) 00021244 50 4f |PO | ADDQ.L #0x8,A7 00021246 4e 93 |N | JSR (A3) 00021248 20 4f | O | MOVEA.L A7,A0 0002124a 43 fa f0 12 |C | LEA.L 0x2025e,A1 0002124e 70 42 |pB | MOVEQ.L #0x42,D0 00021250 10 d9 | | MOVE.B (A1)+,(A0)+ 00021252 51 c8 ff fc |Q | DBF D0,0x21250 00021256 59 4f |YO | SUBQ.L #0x4,A7 00021258 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002125c 3f 01 |? | MOVE.W D1,-(A7) 0002125e 3f 02 |? | MOVE.W D2,-(A7) 00021260 4e 92 |N | JSR (A2) 00021262 50 4f |PO | ADDQ.L #0x8,A7 00021264 4e 93 |N | JSR (A3) 00021266 5c 4f |\O | ADDQ.L #0x6,A7 00021268 20 4f | O | MOVEA.L A7,A0 0002126a 43 fa f0 36 |C 6 | LEA.L 0x202a2,A1 0002126e 70 40 |p@ | MOVEQ.L #0x40,D0 00021270 10 d9 | | MOVE.B (A1)+,(A0)+ 00021272 51 c8 ff fc |Q | DBF D0,0x21270 00021276 59 4f |YO | SUBQ.L #0x4,A7 00021278 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002127c 3f 01 |? | MOVE.W D1,-(A7) 0002127e 3f 04 |? | MOVE.W D4,-(A7) 00021280 4e 92 |N | JSR (A2) 00021282 50 4f |PO | ADDQ.L #0x8,A7 00021284 4e 93 |N | JSR (A3) 00021286 de c5 | | ADDA.W D5,A7 00021288 41 fa f0 9a |A | LEA.L 0x20324,A0 0002128c 70 0f |p | MOVEQ.L #0x0f,D0 0002128e 2f 20 |/ | MOVE.L -(A0),-(A7) 00021290 51 c8 ff fc |Q | DBF D0,0x2128e 00021294 59 4f |YO | SUBQ.L #0x4,A7 00021296 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002129a 3f 01 |? | MOVE.W D1,-(A7) 0002129c 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 000212a0 4e 92 |N | JSR (A2) 000212a2 50 4f |PO | ADDQ.L #0x8,A7 000212a4 4e 93 |N | JSR (A3) 000212a6 58 4f |XO | ADDQ.L #0x4,A7 000212a8 20 4f | O | MOVEA.L A7,A0 000212aa 43 fa f0 78 |C x | LEA.L 0x20324,A1 000212ae 70 3e |p> | MOVEQ.L #0x3e,D0 000212b0 10 d9 | | MOVE.B (A1)+,(A0)+ 000212b2 51 c8 ff fc |Q | DBF D0,0x212b0 000212b6 59 4f |YO | SUBQ.L #0x4,A7 000212b8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212bc 3f 01 |? | MOVE.W D1,-(A7) 000212be 3f 03 |? | MOVE.W D3,-(A7) 000212c0 4e 92 |N | JSR (A2) 000212c2 50 4f |PO | ADDQ.L #0x8,A7 000212c4 4e 93 |N | JSR (A3) 000212c6 20 4f | O | MOVEA.L A7,A0 000212c8 43 fa f0 9a |C | LEA.L 0x20364,A1 000212cc 70 42 |pB | MOVEQ.L #0x42,D0 000212ce 10 d9 | | MOVE.B (A1)+,(A0)+ 000212d0 51 c8 ff fc |Q | DBF D0,0x212ce 000212d4 59 4f |YO | SUBQ.L #0x4,A7 000212d6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212da 3f 01 |? | MOVE.W D1,-(A7) 000212dc 3f 02 |? | MOVE.W D2,-(A7) 000212de 4e 92 |N | JSR (A2) 000212e0 50 4f |PO | ADDQ.L #0x8,A7 000212e2 4e 93 |N | JSR (A3) 000212e4 5c 4f |\O | ADDQ.L #0x6,A7 000212e6 20 4f | O | MOVEA.L A7,A0 000212e8 43 fa f0 be |C | LEA.L 0x203a8,A1 000212ec 70 40 |p@ | MOVEQ.L #0x40,D0 000212ee 10 d9 | | MOVE.B (A1)+,(A0)+ 000212f0 51 c8 ff fc |Q | DBF D0,0x212ee 000212f4 59 4f |YO | SUBQ.L #0x4,A7 000212f6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000212fa 3f 01 |? | MOVE.W D1,-(A7) 000212fc 3f 04 |? | MOVE.W D4,-(A7) 000212fe 4e 92 |N | JSR (A2) 00021300 50 4f |PO | ADDQ.L #0x8,A7 00021302 4e 93 |N | JSR (A3) 00021304 de c5 | | ADDA.W D5,A7 00021306 4e 94 |N | JSR (A4) 00021308 4c df 1f bf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3+A4 0002130c 4e 5e |N^ | UNLK A6 0002130e 4e 75 |Nu | RTS 00021310 ; -------------------------------------------------------------------------------------- 00021310 ; OMSI PASCAL Function 00021310 ; -------------------------------------------------------------------------------------- 00021310 4e 56 ff 84 |NV | LINK.W A6,#0xff84 00021314 bf d5 | | CMPA.L (A5),A7 00021316 62 06 |b | BHI 0x2131e 00021318 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002131c 4e 76 |Nv | TRAPV 0002131e de fc 00 78 | x | ADDA.W #0x78,A7 00021322 48 e7 fe f8 |H | MOVEM.L A4+A3+A2+A1+A0+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021326 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 0002132c 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00021332 49 f9 00 01 03 dc |I | LEA.L WriteConsoleCrLf(void),A4 00021338 72 01 |r | MOVEQ.L #0x01,D1 0002133a 74 1b |t | MOVEQ.L #0x1b,D2 0002133c 76 32 |v2 | MOVEQ.L #0x32,D3 0002133e 78 36 |x6 | MOVEQ.L #0x36,D4 00021340 7a 1c |z | MOVEQ.L #0x1c,D5 00021342 7c 2e ||. | MOVEQ.L #0x2e,D6 00021344 4e 94 |N | JSR (A4) 00021346 4e 94 |N | JSR (A4) 00021348 9e c5 | | SUBA.W D5,A7 0002134a 20 4f | O | MOVEA.L A7,A0 0002134c 43 fa f0 9c |C | LEA.L 0x203ea,A1 00021350 70 1a |p | MOVEQ.L #0x1a,D0 00021352 10 d9 | | MOVE.B (A1)+,(A0)+ 00021354 51 c8 ff fc |Q | DBF D0,0x21352 00021358 59 4f |YO | SUBQ.L #0x4,A7 0002135a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002135e 3f 01 |? | MOVE.W D1,-(A7) 00021360 3f 02 |? | MOVE.W D2,-(A7) 00021362 4e 92 |N | JSR (A2) 00021364 50 4f |PO | ADDQ.L #0x8,A7 00021366 4e 93 |N | JSR (A3) 00021368 58 4f |XO | ADDQ.L #0x4,A7 0002136a 20 4f | O | MOVEA.L A7,A0 0002136c 43 fa f0 98 |C | LEA.L 0x20406,A1 00021370 70 1a |p | MOVEQ.L #0x1a,D0 00021372 10 d9 | | MOVE.B (A1)+,(A0)+ 00021374 51 c8 ff fc |Q | DBF D0,0x21372 00021378 59 4f |YO | SUBQ.L #0x4,A7 0002137a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002137e 3f 01 |? | MOVE.W D1,-(A7) 00021380 3f 02 |? | MOVE.W D2,-(A7) 00021382 4e 92 |N | JSR (A2) 00021384 50 4f |PO | ADDQ.L #0x8,A7 00021386 4e 93 |N | JSR (A3) 00021388 9e fc 00 0e | | SUBA.W #0xe,A7 0002138c 20 4f | O | MOVEA.L A7,A0 0002138e 43 fa f0 92 |C | LEA.L 0x20422,A1 00021392 70 2c |p, | MOVEQ.L #0x2c,D0 00021394 10 d9 | | MOVE.B (A1)+,(A0)+ 00021396 51 c8 ff fc |Q | DBF D0,0x21394 0002139a 59 4f |YO | SUBQ.L #0x4,A7 0002139c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000213a0 3f 01 |? | MOVE.W D1,-(A7) 000213a2 3f 3c 00 2d |?< - | MOVE.W #0x2d,-(A7) 000213a6 4e 92 |N | JSR (A2) 000213a8 50 4f |PO | ADDQ.L #0x8,A7 000213aa 4e 93 |N | JSR (A3) 000213ac 50 4f |PO | ADDQ.L #0x8,A7 000213ae 20 4f | O | MOVEA.L A7,A0 000213b0 43 fa f0 9e |C | LEA.L 0x20450,A1 000213b4 70 28 |p( | MOVEQ.L #0x28,D0 000213b6 10 d9 | | MOVE.B (A1)+,(A0)+ 000213b8 51 c8 ff fc |Q | DBF D0,0x213b6 000213bc 59 4f |YO | SUBQ.L #0x4,A7 000213be 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000213c2 3f 01 |? | MOVE.W D1,-(A7) 000213c4 3f 3c 00 29 |?< ) | MOVE.W #0x29,-(A7) 000213c8 4e 92 |N | JSR (A2) 000213ca 50 4f |PO | ADDQ.L #0x8,A7 000213cc 4e 93 |N | JSR (A3) 000213ce de c6 | | ADDA.W D6,A7 000213d0 41 fa f0 e0 |A | LEA.L 0x204b2,A0 000213d4 70 0d |p | MOVEQ.L #0x0d,D0 000213d6 2f 20 |/ | MOVE.L -(A0),-(A7) 000213d8 51 c8 ff fc |Q | DBF D0,0x213d6 000213dc 59 4f |YO | SUBQ.L #0x4,A7 000213de 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000213e2 3f 01 |? | MOVE.W D1,-(A7) 000213e4 3f 3c 00 38 |?< 8 | MOVE.W #0x38,-(A7) 000213e8 4e 92 |N | JSR (A2) 000213ea 50 4f |PO | ADDQ.L #0x8,A7 000213ec 4e 93 |N | JSR (A3) 000213ee de fc 00 1e | | ADDA.W #0x1e,A7 000213f2 20 4f | O | MOVEA.L A7,A0 000213f4 43 fa f0 bc |C | LEA.L 0x204b2,A1 000213f8 70 1c |p | MOVEQ.L #0x1c,D0 000213fa 10 d9 | | MOVE.B (A1)+,(A0)+ 000213fc 51 c8 ff fc |Q | DBF D0,0x213fa 00021400 59 4f |YO | SUBQ.L #0x4,A7 00021402 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021406 3f 01 |? | MOVE.W D1,-(A7) 00021408 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 0002140c 4e 92 |N | JSR (A2) 0002140e 50 4f |PO | ADDQ.L #0x8,A7 00021410 4e 93 |N | JSR (A3) 00021412 de fc 00 22 | " | ADDA.W #0x22,A7 00021416 41 fa f0 ea |A | LEA.L 0x20502,A0 0002141a 70 18 |p | MOVEQ.L #0x18,D0 0002141c 3f 20 |? | MOVE.W -(A0),-(A7) 0002141e 51 c8 ff fc |Q | DBF D0,0x2141c 00021422 59 4f |YO | SUBQ.L #0x4,A7 00021424 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021428 3f 01 |? | MOVE.W D1,-(A7) 0002142a 3f 03 |? | MOVE.W D3,-(A7) 0002142c 4e 92 |N | JSR (A2) 0002142e 50 4f |PO | ADDQ.L #0x8,A7 00021430 4e 93 |N | JSR (A3) 00021432 de c4 | | ADDA.W D4,A7 00021434 41 fa f0 fa |A | LEA.L 0x20530,A0 00021438 70 16 |p | MOVEQ.L #0x16,D0 0002143a 3f 20 |? | MOVE.W -(A0),-(A7) 0002143c 51 c8 ff fc |Q | DBF D0,0x2143a 00021440 59 4f |YO | SUBQ.L #0x4,A7 00021442 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021446 3f 01 |? | MOVE.W D1,-(A7) 00021448 3f 06 |? | MOVE.W D6,-(A7) 0002144a 4e 92 |N | JSR (A2) 0002144c 50 4f |PO | ADDQ.L #0x8,A7 0002144e 4e 93 |N | JSR (A3) 00021450 de c3 | | ADDA.W D3,A7 00021452 4e 94 |N | JSR (A4) 00021454 9e c5 | | SUBA.W D5,A7 00021456 20 4f | O | MOVEA.L A7,A0 00021458 43 fa f0 d6 |C | LEA.L 0x20530,A1 0002145c 70 1a |p | MOVEQ.L #0x1a,D0 0002145e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021460 51 c8 ff fc |Q | DBF D0,0x2145e 00021464 59 4f |YO | SUBQ.L #0x4,A7 00021466 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002146a 3f 01 |? | MOVE.W D1,-(A7) 0002146c 3f 02 |? | MOVE.W D2,-(A7) 0002146e 4e 92 |N | JSR (A2) 00021470 50 4f |PO | ADDQ.L #0x8,A7 00021472 4e 93 |N | JSR (A3) 00021474 58 4f |XO | ADDQ.L #0x4,A7 00021476 20 4f | O | MOVEA.L A7,A0 00021478 43 fa ef 8c |C | LEA.L 0x20406,A1 0002147c 70 1a |p | MOVEQ.L #0x1a,D0 0002147e 10 d9 | | MOVE.B (A1)+,(A0)+ 00021480 51 c8 ff fc |Q | DBF D0,0x2147e 00021484 59 4f |YO | SUBQ.L #0x4,A7 00021486 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002148a 3f 01 |? | MOVE.W D1,-(A7) 0002148c 3f 02 |? | MOVE.W D2,-(A7) 0002148e 4e 92 |N | JSR (A2) 00021490 50 4f |PO | ADDQ.L #0x8,A7 00021492 4e 93 |N | JSR (A3) 00021494 de fc 00 20 | | ADDA.W #0x20,A7 00021498 41 fa f0 e4 |A | LEA.L 0x2057e,A0 0002149c 70 18 |p | MOVEQ.L #0x18,D0 0002149e 3f 20 |? | MOVE.W -(A0),-(A7) 000214a0 51 c8 ff fc |Q | DBF D0,0x2149e 000214a4 59 4f |YO | SUBQ.L #0x4,A7 000214a6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000214aa 3f 01 |? | MOVE.W D1,-(A7) 000214ac 3f 03 |? | MOVE.W D3,-(A7) 000214ae 4e 92 |N | JSR (A2) 000214b0 50 4f |PO | ADDQ.L #0x8,A7 000214b2 4e 93 |N | JSR (A3) 000214b4 de c4 | | ADDA.W D4,A7 000214b6 41 fa f0 fa |A | LEA.L 0x205b2,A0 000214ba 70 0c |p | MOVEQ.L #0x0c,D0 000214bc 2f 20 |/ | MOVE.L -(A0),-(A7) 000214be 51 c8 ff fc |Q | DBF D0,0x214bc 000214c2 59 4f |YO | SUBQ.L #0x4,A7 000214c4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000214c8 3f 01 |? | MOVE.W D1,-(A7) 000214ca 3f 3c 00 34 |?< 4 | MOVE.W #0x34,-(A7) 000214ce 4e 92 |N | JSR (A2) 000214d0 50 4f |PO | ADDQ.L #0x8,A7 000214d2 4e 93 |N | JSR (A3) 000214d4 5c 4f |\O | ADDQ.L #0x6,A7 000214d6 20 4f | O | MOVEA.L A7,A0 000214d8 43 fa f0 d8 |C | LEA.L 0x205b2,A1 000214dc 70 30 |p0 | MOVEQ.L #0x30,D0 000214de 10 d9 | | MOVE.B (A1)+,(A0)+ 000214e0 51 c8 ff fc |Q | DBF D0,0x214de 000214e4 59 4f |YO | SUBQ.L #0x4,A7 000214e6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000214ea 3f 01 |? | MOVE.W D1,-(A7) 000214ec 3f 3c 00 31 |?< 1 | MOVE.W #0x31,-(A7) 000214f0 4e 92 |N | JSR (A2) 000214f2 50 4f |PO | ADDQ.L #0x8,A7 000214f4 4e 93 |N | JSR (A3) 000214f6 de c4 | | ADDA.W D4,A7 000214f8 4e 94 |N | JSR (A4) 000214fa 4e 94 |N | JSR (A4) 000214fc 4c df 1f 7f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+A0+A1+A2+A3+A4 00021500 4e 5e |N^ | UNLK A6 00021502 4e 75 |Nu | RTS 00021504 ; -------------------------------------------------------------------------------------- 00021504 ; OMSI PASCAL Function 00021504 ; <LVAR -0x004 @ 4(rw)> 00021504 ; -------------------------------------------------------------------------------------- 00021504 4e 56 ff 96 |NV | LINK.W A6,#0xff96 00021508 bf d5 | | CMPA.L (A5),A7 0002150a 62 06 |b | BHI 0x21512 0002150c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021510 4e 76 |Nv | TRAPV 00021512 de fc 00 66 | f | ADDA.W #0x66,A7 00021516 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 0002151a 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00021520 47 f9 00 01 03 e0 |G | LEA.L WriteConsoleStringCrLf(str : String),A3 00021526 49 ee ff fc |I | LEA.L (A6-0x4),A4 0002152a 72 01 |r | MOVEQ.L #0x01,D1 0002152c 74 20 |t | MOVEQ.L #0x20,D2 0002152e 76 17 |v | MOVEQ.L #0x17,D3 00021530 78 06 |x | MOVEQ.L #0x06,D4 00021532 7a 14 |z | MOVEQ.L #0x14,D5 00021534 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002153a 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021540 41 fa f0 cc |A | LEA.L 0x2060e,A0 00021544 70 14 |p | MOVEQ.L #0x14,D0 00021546 3f 20 |? | MOVE.W -(A0),-(A7) 00021548 51 c8 ff fc |Q | DBF D0,0x21546 0002154c 59 4f |YO | SUBQ.L #0x4,A7 0002154e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021552 3f 01 |? | MOVE.W D1,-(A7) 00021554 3f 3c 00 2a |?< * | MOVE.W #0x2a,-(A7) 00021558 4e 92 |N | JSR (A2) 0002155a 50 4f |PO | ADDQ.L #0x8,A7 0002155c 4e 93 |N | JSR (A3) 0002155e de fc 00 2e | . | ADDA.W #0x2e,A7 00021562 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00021568 48 54 |HT | PEA.L (A4) 0002156a 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00021570 58 4f |XO | ADDQ.L #0x4,A7 00021572 20 54 | T | MOVEA.L (A4),A0 00021574 30 bc 00 08 |0 | MOVE.W #0x8,(A0) 00021578 9e fc 00 1c | | SUBA.W #0x1c,A7 0002157c 20 4f | O | MOVEA.L A7,A0 0002157e 43 fa f0 8e |C | LEA.L 0x2060e,A1 00021582 70 1a |p | MOVEQ.L #0x1a,D0 00021584 10 d9 | | MOVE.B (A1)+,(A0)+ 00021586 51 c8 ff fc |Q | DBF D0,0x21584 0002158a 59 4f |YO | SUBQ.L #0x4,A7 0002158c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021590 3f 01 |? | MOVE.W D1,-(A7) 00021592 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00021596 4e 92 |N | JSR (A2) 00021598 50 4f |PO | ADDQ.L #0x8,A7 0002159a 4e 93 |N | JSR (A3) 0002159c de c2 | | ADDA.W D2,A7 0002159e 41 fa f0 a4 |A | LEA.L 0x20644,A0 000215a2 70 0c |p | MOVEQ.L #0x0c,D0 000215a4 3f 20 |? | MOVE.W -(A0),-(A7) 000215a6 51 c8 ff fc |Q | DBF D0,0x215a4 000215aa 59 4f |YO | SUBQ.L #0x4,A7 000215ac 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215b0 3f 01 |? | MOVE.W D1,-(A7) 000215b2 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 000215b6 4e 92 |N | JSR (A2) 000215b8 50 4f |PO | ADDQ.L #0x8,A7 000215ba 4e 93 |N | JSR (A3) 000215bc de fc 00 0a | | ADDA.W #0xa,A7 000215c0 20 4f | O | MOVEA.L A7,A0 000215c2 43 fa f0 80 |C | LEA.L 0x20644,A1 000215c6 70 12 |p | MOVEQ.L #0x12,D0 000215c8 10 d9 | | MOVE.B (A1)+,(A0)+ 000215ca 51 c8 ff fc |Q | DBF D0,0x215c8 000215ce 59 4f |YO | SUBQ.L #0x4,A7 000215d0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215d4 3f 01 |? | MOVE.W D1,-(A7) 000215d6 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000215da 4e 92 |N | JSR (A2) 000215dc 50 4f |PO | ADDQ.L #0x8,A7 000215de 4e 93 |N | JSR (A3) 000215e0 20 4f | O | MOVEA.L A7,A0 000215e2 43 fa f0 74 |C t | LEA.L 0x20658,A1 000215e6 70 16 |p | MOVEQ.L #0x16,D0 000215e8 10 d9 | | MOVE.B (A1)+,(A0)+ 000215ea 51 c8 ff fc |Q | DBF D0,0x215e8 000215ee 59 4f |YO | SUBQ.L #0x4,A7 000215f0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000215f4 3f 01 |? | MOVE.W D1,-(A7) 000215f6 3f 03 |? | MOVE.W D3,-(A7) 000215f8 4e 92 |N | JSR (A2) 000215fa 50 4f |PO | ADDQ.L #0x8,A7 000215fc 4e 93 |N | JSR (A3) 000215fe 58 4f |XO | ADDQ.L #0x4,A7 00021600 20 4f | O | MOVEA.L A7,A0 00021602 43 fa f0 6c |C l | LEA.L 0x20670,A1 00021606 70 16 |p | MOVEQ.L #0x16,D0 00021608 10 d9 | | MOVE.B (A1)+,(A0)+ 0002160a 51 c8 ff fc |Q | DBF D0,0x21608 0002160e 59 4f |YO | SUBQ.L #0x4,A7 00021610 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021614 3f 01 |? | MOVE.W D1,-(A7) 00021616 3f 03 |? | MOVE.W D3,-(A7) 00021618 4e 92 |N | JSR (A2) 0002161a 50 4f |PO | ADDQ.L #0x8,A7 0002161c 4e 93 |N | JSR (A3) 0002161e 51 4f |QO | SUBQ.L #0x8,A7 00021620 20 4f | O | MOVEA.L A7,A0 00021622 43 fa f0 64 |C d | LEA.L 0x20688,A1 00021626 70 22 |p" | MOVEQ.L #0x22,D0 00021628 10 d9 | | MOVE.B (A1)+,(A0)+ 0002162a 51 c8 ff fc |Q | DBF D0,0x21628 0002162e 59 4f |YO | SUBQ.L #0x4,A7 00021630 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021634 3f 01 |? | MOVE.W D1,-(A7) 00021636 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 0002163a 4e 92 |N | JSR (A2) 0002163c 50 4f |PO | ADDQ.L #0x8,A7 0002163e 4e 93 |N | JSR (A3) 00021640 de c2 | | ADDA.W D2,A7 00021642 20 4f | O | MOVEA.L A7,A0 00021644 43 fa f0 66 |C f | LEA.L 0x206ac,A1 00021648 70 06 |p | MOVEQ.L #0x06,D0 0002164a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002164c 51 c8 ff fc |Q | DBF D0,0x2164a 00021650 59 4f |YO | SUBQ.L #0x4,A7 00021652 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021656 3f 01 |? | MOVE.W D1,-(A7) 00021658 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 0002165c 4e 92 |N | JSR (A2) 0002165e 50 4f |PO | ADDQ.L #0x8,A7 00021660 28 9f |( | MOVE.L (A7)+,(A4) 00021662 50 4f |PO | ADDQ.L #0x8,A7 00021664 10 39 00 02 42 73 | 9 Bs | MOVE.B 0x24273,D0 0002166a b0 01 | | CMP.B D1,D0 0002166c 66 24 |f$ | BNE 0x21692 0002166e 5d 4f |]O | SUBQ.L #0x6,A7 00021670 20 4f | O | MOVEA.L A7,A0 00021672 43 fa f0 40 |C @ | LEA.L 0x206b4,A1 00021676 70 04 |p | MOVEQ.L #0x04,D0 00021678 10 d9 | | MOVE.B (A1)+,(A0)+ 0002167a 51 c8 ff fc |Q | DBF D0,0x21678 0002167e 59 4f |YO | SUBQ.L #0x4,A7 00021680 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021684 3f 01 |? | MOVE.W D1,-(A7) 00021686 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 0002168a 4e 92 |N | JSR (A2) 0002168c 50 4f |PO | ADDQ.L #0x8,A7 0002168e 28 9f |( | MOVE.L (A7)+,(A4) 00021690 5c 4f |\O | ADDQ.L #0x6,A7 00021692 10 39 00 02 42 73 | 9 Bs | MOVE.B 0x24273,D0 00021698 0c 00 00 02 | | CMPI.B #0x02,D0 0002169c 66 1e |f | BNE 0x216bc 0002169e 3f 3a f0 1e |?: | MOVE.W 0x206be,-(A7) 000216a2 3f 3a f0 18 |?: | MOVE.W 0x206bc,-(A7) 000216a6 3f 3a f0 12 |?: | MOVE.W 0x206ba,-(A7) 000216aa 59 4f |YO | SUBQ.L #0x4,A7 000216ac 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216b0 3f 01 |? | MOVE.W D1,-(A7) 000216b2 3f 04 |? | MOVE.W D4,-(A7) 000216b4 4e 92 |N | JSR (A2) 000216b6 50 4f |PO | ADDQ.L #0x8,A7 000216b8 28 9f |( | MOVE.L (A7)+,(A4) 000216ba 5c 4f |\O | ADDQ.L #0x6,A7 000216bc 10 39 00 02 42 73 | 9 Bs | MOVE.B 0x24273,D0 000216c2 0c 00 00 03 | | CMPI.B #0x03,D0 000216c6 66 1e |f | BNE 0x216e6 000216c8 3f 3a ef fa |?: | MOVE.W 0x206c4,-(A7) 000216cc 3f 3a ef f4 |?: | MOVE.W 0x206c2,-(A7) 000216d0 3f 3a ef ee |?: | MOVE.W 0x206c0,-(A7) 000216d4 59 4f |YO | SUBQ.L #0x4,A7 000216d6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000216da 3f 01 |? | MOVE.W D1,-(A7) 000216dc 3f 04 |? | MOVE.W D4,-(A7) 000216de 4e 92 |N | JSR (A2) 000216e0 50 4f |PO | ADDQ.L #0x8,A7 000216e2 28 9f |( | MOVE.L (A7)+,(A4) 000216e4 5c 4f |\O | ADDQ.L #0x6,A7 000216e6 2f 3a ef ea |/: | MOVE.L 0x206d2,-(A7) 000216ea 2f 3a ef e2 |/: | MOVE.L 0x206ce,-(A7) 000216ee 2f 3a ef da |/: | MOVE.L 0x206ca,-(A7) 000216f2 2f 3a ef d2 |/: | MOVE.L 0x206c6,-(A7) 000216f6 51 4f |QO | SUBQ.L #0x8,A7 000216f8 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000216fc 3f 01 |? | MOVE.W D1,-(A7) 000216fe 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 00021702 4e 92 |N | JSR (A2) 00021704 58 4f |XO | ADDQ.L #0x4,A7 00021706 2e 94 |. | MOVE.L (A4),(A7) 00021708 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002170e 50 4f |PO | ADDQ.L #0x8,A7 00021710 4e 93 |N | JSR (A3) 00021712 de c5 | | ADDA.W D5,A7 00021714 41 fa ef d4 |A | LEA.L 0x206ea,A0 00021718 70 04 |p | MOVEQ.L #0x04,D0 0002171a 2f 20 |/ | MOVE.L -(A0),-(A7) 0002171c 51 c8 ff fc |Q | DBF D0,0x2171a 00021720 59 4f |YO | SUBQ.L #0x4,A7 00021722 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021726 3f 01 |? | MOVE.W D1,-(A7) 00021728 3f 05 |? | MOVE.W D5,-(A7) 0002172a 4e 92 |N | JSR (A2) 0002172c 50 4f |PO | ADDQ.L #0x8,A7 0002172e 4e 93 |N | JSR (A3) 00021730 de fc 00 18 | | ADDA.W #0x18,A7 00021734 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002173a 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 0002173e 4e 5e |N^ | UNLK A6 00021740 4e 75 |Nu | RTS 00021742 ; -------------------------------------------------------------------------------------- 00021742 ; OMSI PASCAL Function 00021742 ; -------------------------------------------------------------------------------------- 00021742 4e 56 ff d0 |NV | LINK.W A6,#0xffd0 ; Spelunked 00021746 bf d5 | | CMPA.L (A5),A7 00021748 62 06 |b | BHI 0x21750 0002174a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002174e 4e 76 |Nv | TRAPV 00021750 de fc 00 30 | 0 | ADDA.W #0x30,A7 00021754 48 e7 80 e0 |H | MOVEM.L A2+A1+A0+D0,-(A7) 00021758 45 f9 00 02 42 90 |E B | LEA.L 0x24290,A2 0002175e 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 00021764 67 32 |g2 | BEQ 0x21798 00021766 9e fc 00 10 | | SUBA.W #0x10,A7 0002176a 20 4f | O | MOVEA.L A7,A0 0002176c 43 fa ef 7c |C | | LEA.L 0x206ea,A1 00021770 70 0e |p | MOVEQ.L #0x0e,D0 00021772 10 d9 | | MOVE.B (A1)+,(A0)+ 00021774 51 c8 ff fc |Q | DBF D0,0x21772 00021778 59 4f |YO | SUBQ.L #0x4,A7 0002177a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002177e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021782 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00021786 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002178c 50 4f |PO | ADDQ.L #0x8,A7 0002178e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021794 de fc 00 14 | | ADDA.W #0x14,A7 00021798 30 12 |0 | MOVE.W (A2),D0 0002179a 52 40 |R@ | ADDQ.W #0x1,D0 0002179c 41 bc 00 ff |A | CHK.W #0xff,D0 000217a0 34 80 |4 | MOVE.W D0,(A2) 000217a2 53 40 |S@ | SUBQ.W #0x1,D0 000217a4 41 bc 00 8e |A | CHK.W #0x8e,D0 000217a8 41 fa f6 3a |A : | LEA.L 0x20de4,A0 000217ac 13 f0 00 00 00 02 4a a0 | J | MOVE.B (A0+D0.W),0x24aa0 000217b4 4c df 07 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2 000217b8 4e 5e |N^ | UNLK A6 000217ba 4e 75 |Nu | RTS 000217bc ; -------------------------------------------------------------------------------------- 000217bc ; OMSI PASCAL Function 000217bc ; <LVAR 0x00c 1(r)> 000217bc ; <LVAR 0x008 4(r)> 000217bc ; <LVAR -0x002 @ 1(r)> 000217bc ; <LVAR -0x004 @ 2(r)> 000217bc ; <LVAR -0x00e 4(rw)> 000217bc ; <LVAR -0x010 2(rw)> 000217bc ; <LVAR -0x012 1(r)> 000217bc ; <LVAR -0x018 @> 000217bc ; -------------------------------------------------------------------------------------- 000217bc 4e 56 ff 90 |NV | LINK.W A6,#0xff90 000217c0 bf d5 | | CMPA.L (A5),A7 000217c2 62 06 |b | BHI 0x217ca 000217c4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000217c8 4e 76 |Nv | TRAPV 000217ca de fc 00 56 | V | ADDA.W #0x56,A7 000217ce 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000217d2 43 f9 00 02 4a 9e |C J | LEA.L 0x24a9e,A1 000217d8 45 f9 00 02 4a a0 |E J | LEA.L 0x24aa0,A2 000217de 47 f9 00 02 42 65 |G Be | LEA.L 0x24265,A3 000217e4 49 ee ff fe |I | LEA.L (A6-0x2),A4 000217e8 74 01 |t | MOVEQ.L #0x01,D2 000217ea 76 03 |v | MOVEQ.L #0x03,D3 000217ec 78 7f |x | MOVEQ.L #0x7f,D4 000217ee 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 000217f4 67 2a |g* | BEQ 0x21820 000217f6 41 fa ef 14 |A | LEA.L 0x2070c,A0 000217fa 70 08 |p | MOVEQ.L #0x08,D0 000217fc 3f 20 |? | MOVE.W -(A0),-(A7) 000217fe 51 c8 ff fc |Q | DBF D0,0x217fc 00021802 59 4f |YO | SUBQ.L #0x4,A7 00021804 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021808 3f 02 |? | MOVE.W D2,-(A7) 0002180a 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 0002180e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021814 50 4f |PO | ADDQ.L #0x8,A7 00021816 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002181c de fc 00 16 | | ADDA.W #0x16,A7 00021820 4a 39 00 02 42 68 |J9 Bh | TST.B 0x24268 00021826 67 06 |g | BEQ 0x2182e 00021828 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002182e 42 ae ff f2 |B | CLR.L (A6-0xe) 00021832 7c 00 || | MOVEQ.L #0x00,D6 00021834 7e 01 |~ | MOVEQ.L #0x01,D7 00021836 7a 00 |z | MOVEQ.L #0x00,D5 00021838 48 6e ff e8 |Hn | PEA.L (A6-0x18) 0002183c 4e b9 00 01 02 26 |N & | JSR KC13_ReadRtc 00021842 58 4f |XO | ADDQ.L #0x4,A7 00021844 42 80 |B | CLR.L D0 00021846 10 2e ff ee | . | MOVE.B (A6-0x12),D0 0002184a 3d 40 ff f0 |=@ | MOVE.W D0,(A6-0x10) 0002184e 42 13 |B | CLR.B (A3) 00021850 3f 03 |? | MOVE.W D3,-(A7) 00021852 48 54 |HT | PEA.L (A4) 00021854 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 0002185a 5c 4f |\O | ADDQ.L #0x6,A7 0002185c 10 14 | | MOVE.B (A4),D0 0002185e b0 02 | | CMP.B D2,D0 00021860 66 04 |f | BNE 0x21866 00021862 60 00 00 a2 |` | BRA 0x21906 00021866 4a 14 |J | TST.B (A4) 00021868 67 08 |g | BEQ 0x21872 0002186a 16 bc 00 0e | | MOVE.B #0x0e,(A3) 0002186e 60 00 01 c4 |` | BRA 0x21a34 00021872 4a ae 00 08 |J | TST.L (A6+0x8) 00021876 66 04 |f | BNE 0x2187c 00021878 60 00 01 ba |` | BRA 0x21a34 0002187c 3f 02 |? | MOVE.W D2,-(A7) 0002187e 48 54 |HT | PEA.L (A4) 00021880 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00021886 5c 4f |\O | ADDQ.L #0x6,A7 00021888 10 14 | | MOVE.B (A4),D0 0002188a b0 02 | | CMP.B D2,D0 0002188c 66 20 |f | BNE 0x218ae 0002188e 3f 02 |? | MOVE.W D2,-(A7) 00021890 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021894 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 0002189a 5c 4f |\O | ADDQ.L #0x6,A7 0002189c 30 2e ff fc |0. | MOVE.W (A6-0x4),D0 000218a0 c0 44 | D | AND.W D4,D0 000218a2 b0 43 | C | CMP.W D3,D0 000218a4 66 08 |f | BNE 0x218ae 000218a6 16 bc 00 17 | | MOVE.B #0x17,(A3) 000218aa 60 00 01 88 |` | BRA 0x21a34 000218ae 48 6e ff e8 |Hn | PEA.L (A6-0x18) 000218b2 4e b9 00 01 02 26 |N & | JSR KC13_ReadRtc 000218b8 58 4f |XO | ADDQ.L #0x4,A7 000218ba 42 80 |B | CLR.L D0 000218bc 10 2e ff ee | . | MOVE.B (A6-0x12),D0 000218c0 b0 6e ff f0 | n | CMP.W (A6-0x10),D0 000218c4 66 02 |f | BNE 0x218c8 000218c6 60 88 |` | BRA 0x21850 000218c8 42 80 |B | CLR.L D0 000218ca 10 2e ff ee | . | MOVE.B (A6-0x12),D0 000218ce 3d 40 ff f0 |=@ | MOVE.W D0,(A6-0x10) 000218d2 52 ae ff f2 |R | ADDQ.L #0x1,(A6-0xe) 000218d6 20 2e ff f2 | . | MOVE.L (A6-0xe),D0 000218da b0 ae 00 08 | | CMP.L (A6+0x8),D0 000218de 66 08 |f | BNE 0x218e8 000218e0 16 bc 00 10 | | MOVE.B #0x10,(A3) 000218e4 60 00 01 4e |` N | BRA 0x21a34 000218e8 0c 86 00 00 00 05 | | CMPI.L #0x00000005,D6 000218ee 66 10 |f | BNE 0x21900 000218f0 7c 00 || | MOVEQ.L #0x00,D6 000218f2 1f 3c 00 2e | < . | MOVE.B #0x2e,-(A7) 000218f6 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 000218fc 54 4f |TO | ADDQ.L #0x2,A7 000218fe 60 02 |` | BRA 0x21902 00021900 52 86 |R | ADDQ.L #0x1,D6 00021902 60 00 ff 4c |` L | BRA 0x21850 00021906 3f 03 |? | MOVE.W D3,-(A7) 00021908 48 51 |HQ | PEA.L (A1) 0002190a 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00021910 5c 4f |\O | ADDQ.L #0x6,A7 00021912 4a ae 00 08 |J | TST.L (A6+0x8) 00021916 66 04 |f | BNE 0x2191c 00021918 60 00 ff 36 |` 6 | BRA 0x21850 0002191c 7c 00 || | MOVEQ.L #0x00,D6 0002191e 30 11 |0 | MOVE.W (A1),D0 00021920 c0 44 | D | AND.W D4,D0 00021922 14 80 | | MOVE.B D0,(A2) 00021924 4a 39 00 02 42 68 |J9 Bh | TST.B 0x24268 0002192a 67 32 |g2 | BEQ 0x2195e 0002192c 42 81 |B | CLR.L D1 0002192e 12 00 | | MOVE.B D0,D1 00021930 0c 81 00 00 00 20 | | CMPI.L #0x00000020,D1 00021936 64 1c |d | BCC 0x21954 00021938 1f 3c 00 5e | < ^ | MOVE.B #0x5e,-(A7) 0002193c 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00021942 54 4f |TO | ADDQ.L #0x2,A7 00021944 42 80 |B | CLR.L D0 00021946 10 12 | | MOVE.B (A2),D0 00021948 06 40 00 40 | @ @ | ADDI.W #0x0040,D0 0002194c 41 bc 00 ff |A | CHK.W #0xff,D0 00021950 1f 00 | | MOVE.B D0,-(A7) 00021952 60 02 |` | BRA 0x21956 00021954 1f 01 | | MOVE.B D1,-(A7) 00021956 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 0002195c 54 4f |TO | ADDQ.L #0x2,A7 0002195e 4a 2e 00 0c |J. | TST.B (A6+0xc) 00021962 67 00 00 90 |g | BEQ 0x219f4 00021966 42 80 |B | CLR.L D0 00021968 10 12 | | MOVE.B (A2),D0 0002196a b0 82 | | CMP.L D2,D0 0002196c 66 02 |f | BNE 0x21970 0002196e 7a 01 |z | MOVEQ.L #0x01,D5 00021970 0c 80 00 00 00 0d | | CMPI.L #0x0000000d,D0 00021976 66 02 |f | BNE 0x2197a 00021978 7a 00 |z | MOVEQ.L #0x00,D5 0002197a 4a 05 |J | TST.B D5 0002197c 67 02 |g | BEQ 0x21980 0002197e 60 74 |`t | BRA 0x219f4 00021980 c9 51 | Q | AND.W D4,(A1) 00021982 42 80 |B | CLR.L D0 00021984 30 11 |0 | MOVE.W (A1),D0 00021986 0c 80 00 00 00 08 | | CMPI.L #0x00000008,D0 0002198c 67 04 |g | BEQ 0x21992 0002198e b0 84 | | CMP.L D4,D0 00021990 66 3c |f< | BNE 0x219ce 00021992 be 42 | B | CMP.W D2,D7 00021994 6f 34 |o4 | BLE 0x219ca 00021996 3f 03 |? | MOVE.W D3,-(A7) 00021998 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 0002199c 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 000219a2 54 4f |TO | ADDQ.L #0x2,A7 000219a4 3e 83 |> | MOVE.W D3,(A7) 000219a6 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 000219aa 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 000219b0 54 4f |TO | ADDQ.L #0x2,A7 000219b2 3e 83 |> | MOVE.W D3,(A7) 000219b4 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 000219b8 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 000219be 58 4f |XO | ADDQ.L #0x4,A7 000219c0 30 07 |0 | MOVE.W D7,D0 000219c2 53 40 |S@ | SUBQ.W #0x1,D0 000219c4 41 bc 00 ff |A | CHK.W #0xff,D0 000219c8 3e 00 |> | MOVE.W D0,D7 000219ca 60 00 fe 84 |` | BRA 0x21850 000219ce 3f 03 |? | MOVE.W D3,-(A7) 000219d0 3f 11 |? | MOVE.W (A1),-(A7) 000219d2 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 000219d8 58 4f |XO | ADDQ.L #0x4,A7 000219da 42 80 |B | CLR.L D0 000219dc 30 11 |0 | MOVE.W (A1),D0 000219de 0c 80 00 00 00 0d | | CMPI.L #0x0000000d,D0 000219e4 66 0e |f | BNE 0x219f4 000219e6 3f 03 |? | MOVE.W D3,-(A7) 000219e8 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000219ec 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 000219f2 58 4f |XO | ADDQ.L #0x4,A7 000219f4 42 80 |B | CLR.L D0 000219f6 10 12 | | MOVE.B (A2),D0 000219f8 b0 82 | | CMP.L D2,D0 000219fa 66 02 |f | BNE 0x219fe 000219fc 7e 01 |~ | MOVEQ.L #0x01,D7 000219fe 20 79 00 02 4a a2 | y J | MOVEA.L 0x24aa2,A0 00021a04 30 07 |0 | MOVE.W D7,D0 00021a06 53 40 |S@ | SUBQ.W #0x1,D0 00021a08 41 bc 00 7d |A } | CHK.W #0x7d,D0 00021a0c 11 92 00 02 | | MOVE.B (A2),(A0+D0.W+#0x2) 00021a10 42 80 |B | CLR.L D0 00021a12 10 12 | | MOVE.B (A2),D0 00021a14 0c 80 00 00 00 0d | | CMPI.L #0x0000000d,D0 00021a1a 66 04 |f | BNE 0x21a20 00021a1c 30 87 |0 | MOVE.W D7,(A0) 00021a1e 60 14 |` | BRA 0x21a34 00021a20 0c 47 00 62 | G b | CMPI.W #0x0062,D7 00021a24 6c 0a |l | BGE 0x21a30 00021a26 30 07 |0 | MOVE.W D7,D0 00021a28 52 40 |R@ | ADDQ.W #0x1,D0 00021a2a 41 bc 00 ff |A | CHK.W #0xff,D0 00021a2e 3e 00 |> | MOVE.W D0,D7 00021a30 60 00 fe 1e |` | BRA 0x21850 00021a34 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021a38 4e 5e |N^ | UNLK A6 00021a3a 4e 75 |Nu | RTS 00021a3c ; -------------------------------------------------------------------------------------- 00021a3c ; OMSI PASCAL Function 00021a3c ; <LVAR 0x008 4(r)> 00021a3c ; -------------------------------------------------------------------------------------- 00021a3c 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 00021a40 bf d5 | | CMPA.L (A5),A7 00021a42 62 06 |b | BHI 0x21a4a 00021a44 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021a48 4e 76 |Nv | TRAPV 00021a4a de fc 00 52 | R | ADDA.W #0x52,A7 00021a4e 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021a52 43 f9 00 02 42 66 |C Bf | LEA.L 0x24266,A1 00021a58 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00021a5c 47 f9 00 01 02 94 |G | LEA.L ?divs_d3_d4,A3 00021a62 74 20 |t | MOVEQ.L #0x20,D2 00021a64 42 11 |B | CLR.B (A1) 00021a66 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 00021a6c 67 2c |g, | BEQ 0x21a9a 00021a6e 41 fa ec ae |A | LEA.L 0x2071e,A0 00021a72 70 08 |p | MOVEQ.L #0x08,D0 00021a74 3f 20 |? | MOVE.W -(A0),-(A7) 00021a76 51 c8 ff fc |Q | DBF D0,0x21a74 00021a7a 59 4f |YO | SUBQ.L #0x4,A7 00021a7c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021a80 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021a84 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00021a88 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021a8e 50 4f |PO | ADDQ.L #0x8,A7 00021a90 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021a96 de fc 00 16 | | ADDA.W #0x16,A7 00021a9a 20 52 | R | MOVEA.L (A2),A0 00021a9c 42 80 |B | CLR.L D0 00021a9e 10 28 00 03 | ( | MOVE.B (A0+0x3),D0 00021aa2 0c 80 00 00 00 23 | # | CMPI.L #0x00000023,D0 00021aa8 65 08 |e | BCS 0x21ab2 00021aaa 0c 80 00 00 00 7e | ~ | CMPI.L #0x0000007e,D0 00021ab0 6f 08 |o | BLE 0x21aba 00021ab2 12 bc 00 01 | | MOVE.B #0x01,(A1) 00021ab6 60 00 00 a2 |` | BRA 0x21b5a 00021aba 20 52 | R | MOVEA.L (A2),A0 00021abc 42 80 |B | CLR.L D0 00021abe 10 28 00 04 | ( | MOVE.B (A0+0x4),D0 00021ac2 b0 82 | | CMP.L D2,D0 00021ac4 65 08 |e | BCS 0x21ace 00021ac6 0c 80 00 00 00 5f | _ | CMPI.L #0x0000005f,D0 00021acc 6f 08 |o | BLE 0x21ad6 00021ace 12 bc 00 02 | | MOVE.B #0x02,(A1) 00021ad2 60 00 00 86 |` | BRA 0x21b5a 00021ad6 20 52 | R | MOVEA.L (A2),A0 00021ad8 42 80 |B | CLR.L D0 00021ada 10 28 00 03 | ( | MOVE.B (A0+0x3),D0 00021ade 90 42 | B | SUB.W D2,D0 00021ae0 48 c0 |H | EXTW.L D0 00021ae2 2a 00 |* | MOVE.L D0,D5 00021ae4 7e 00 |~ | MOVEQ.L #0x00,D7 00021ae6 2f 05 |/ | MOVE.L D5,-(A7) 00021ae8 52 97 |R | ADDQ.L #0x1,(A7) 00021aea 7c 02 || | MOVEQ.L #0x02,D6 00021aec bc 97 | | CMP.L (A7),D6 00021aee 6e 1c |n | BGT 0x21b0c 00021af0 20 52 | R | MOVEA.L (A2),A0 00021af2 20 06 | | MOVE.L D6,D0 00021af4 53 80 |S | SUBQ.L #0x1,D0 00021af6 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00021afc 63 02 |c | BLS 0x21b00 00021afe 4e 4f |NO | TRAP #15 00021b00 42 81 |B | CLR.L D1 00021b02 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 00021b06 de 81 | | ADD.L D1,D7 00021b08 52 86 |R | ADDQ.L #0x1,D6 00021b0a 68 e0 |h | BVC 0x21aec 00021b0c 58 4f |XO | ADDQ.L #0x4,A7 00021b0e 28 07 |( | MOVE.L D7,D4 00021b10 26 3c 00 00 01 00 |&< | MOVE.L #0x100,D3 00021b16 4e 93 |N | JSR (A3) 00021b18 2e 03 |. | MOVE.L D3,D7 00021b1a 28 07 |( | MOVE.L D7,D4 00021b1c 76 40 |v@ | MOVEQ.L #0x40,D3 00021b1e 4e 93 |N | JSR (A3) 00021b20 de 84 | | ADD.L D4,D7 00021b22 28 07 |( | MOVE.L D7,D4 00021b24 76 40 |v@ | MOVEQ.L #0x40,D3 00021b26 4e 93 |N | JSR (A3) 00021b28 2e 03 |. | MOVE.L D3,D7 00021b2a 20 07 | | MOVE.L D7,D0 00021b2c d0 82 | | ADD.L D2,D0 00021b2e 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 00021b34 63 02 |c | BLS 0x21b38 00021b36 4e 4f |NO | TRAP #15 00021b38 13 c0 00 02 42 89 | B | MOVE.B D0,0x24289 00021b3e 20 52 | R | MOVEA.L (A2),A0 00021b40 22 05 |" | MOVE.L D5,D1 00021b42 54 81 |T | ADDQ.L #0x2,D1 00021b44 53 81 |S | SUBQ.L #0x1,D1 00021b46 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00021b4c 63 02 |c | BLS 0x21b50 00021b4e 4e 4f |NO | TRAP #15 00021b50 b0 30 18 02 | 0 | CMP.B (A0+D1.L+#0x2),D0 00021b54 67 04 |g | BEQ 0x21b5a 00021b56 12 bc 00 04 | | MOVE.B #0x04,(A1) 00021b5a 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00021b5e 4e 5e |N^ | UNLK A6 00021b60 4e 75 |Nu | RTS 00021b62 ; -------------------------------------------------------------------------------------- 00021b62 ; OMSI PASCAL Function 00021b62 ; <LVAR 0x008 4(r)> 00021b62 ; -------------------------------------------------------------------------------------- 00021b62 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 00021b66 bf d5 | | CMPA.L (A5),A7 00021b68 62 06 |b | BHI 0x21b70 00021b6a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021b6e 4e 76 |Nv | TRAPV 00021b70 de fc 00 2a | * | ADDA.W #0x2a,A7 00021b74 48 e7 e0 80 |H | MOVEM.L A0+D2+D1+D0,-(A7) 00021b78 72 20 |r | MOVEQ.L #0x20,D1 00021b7a 34 3c 00 ff |4< | MOVE.W #0xff,D2 00021b7e 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 00021b84 67 2c |g, | BEQ 0x21bb2 00021b86 41 fa eb a0 |A | LEA.L 0x20728,A0 00021b8a 70 04 |p | MOVEQ.L #0x04,D0 00021b8c 3f 20 |? | MOVE.W -(A0),-(A7) 00021b8e 51 c8 ff fc |Q | DBF D0,0x21b8c 00021b92 59 4f |YO | SUBQ.L #0x4,A7 00021b94 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021b98 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021b9c 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00021ba0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021ba6 50 4f |PO | ADDQ.L #0x8,A7 00021ba8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021bae de fc 00 0e | | ADDA.W #0xe,A7 00021bb2 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021bb6 42 80 |B | CLR.L D0 00021bb8 10 28 00 03 | ( | MOVE.B (A0+0x3),D0 00021bbc d0 41 | A | ADD.W D1,D0 00021bbe 41 82 |A | CHK.W D2,D0 00021bc0 11 40 00 03 | @ | MOVE.B D0,(A0+0x3) 00021bc4 42 80 |B | CLR.L D0 00021bc6 10 28 00 04 | ( | MOVE.B (A0+0x4),D0 00021bca d0 41 | A | ADD.W D1,D0 00021bcc 41 82 |A | CHK.W D2,D0 00021bce 11 40 00 04 | @ | MOVE.B D0,(A0+0x4) 00021bd2 10 28 00 05 | ( | MOVE.B (A0+0x5),D0 00021bd6 0c 00 00 59 | Y | CMPI.B #0x59,D0 00021bda 66 02 |f | BNE 0x21bde 00021bdc 60 02 |` | BRA 0x21be0 00021bde 60 56 |`V | BRA 0x21c36 00021be0 10 39 00 02 42 8e | 9 B | MOVE.B 0x2428e,D0 00021be6 0c 00 00 53 | S | CMPI.B #0x53,D0 00021bea 66 4a |fJ | BNE 0x21c36 00021bec 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021bf0 42 80 |B | CLR.L D0 00021bf2 10 28 00 06 | ( | MOVE.B (A0+0x6),D0 00021bf6 d0 41 | A | ADD.W D1,D0 00021bf8 41 82 |A | CHK.W D2,D0 00021bfa 11 40 00 06 | @ | MOVE.B D0,(A0+0x6) 00021bfe 42 80 |B | CLR.L D0 00021c00 10 28 00 07 | ( | MOVE.B (A0+0x7),D0 00021c04 d0 41 | A | ADD.W D1,D0 00021c06 41 82 |A | CHK.W D2,D0 00021c08 11 40 00 07 | @ | MOVE.B D0,(A0+0x7) 00021c0c 42 80 |B | CLR.L D0 00021c0e 10 28 00 08 | ( | MOVE.B (A0+0x8),D0 00021c12 d0 41 | A | ADD.W D1,D0 00021c14 41 82 |A | CHK.W D2,D0 00021c16 11 40 00 08 | @ | MOVE.B D0,(A0+0x8) 00021c1a 42 80 |B | CLR.L D0 00021c1c 10 28 00 0a | ( | MOVE.B (A0+0xa),D0 00021c20 d0 41 | A | ADD.W D1,D0 00021c22 41 82 |A | CHK.W D2,D0 00021c24 11 40 00 0a | @ | MOVE.B D0,(A0+0xa) 00021c28 42 80 |B | CLR.L D0 00021c2a 10 28 00 0f | ( | MOVE.B (A0+0xf),D0 00021c2e d0 41 | A | ADD.W D1,D0 00021c30 41 82 |A | CHK.W D2,D0 00021c32 11 40 00 0f | @ | MOVE.B D0,(A0+0xf) 00021c36 4c df 01 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0 00021c3a 4e 5e |N^ | UNLK A6 00021c3c 4e 75 |Nu | RTS 00021c3e ; -------------------------------------------------------------------------------------- 00021c3e ; OMSI PASCAL Function 00021c3e ; <LVAR 0x008 4(r)> 00021c3e ; <LVAR -0x003 1(rw)> 00021c3e ; <LVAR -0x008 4(rw)> 00021c3e ; -------------------------------------------------------------------------------------- 00021c3e 4e 56 ff a2 |NV | LINK.W A6,#0xffa2 00021c42 bf d5 | | CMPA.L (A5),A7 00021c44 62 06 |b | BHI 0x21c4c 00021c46 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021c4a 4e 76 |Nv | TRAPV 00021c4c de fc 00 4e | N | ADDA.W #0x4e,A7 00021c50 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00021c54 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00021c58 45 f9 00 02 42 65 |E Be | LEA.L 0x24265,A2 00021c5e 47 ee ff fd |G | LEA.L (A6-0x3),A3 00021c62 49 f9 00 02 42 8b |I B | LEA.L 0x2428b,A4 00021c68 76 7d |v} | MOVEQ.L #0x7d,D3 00021c6a 28 3c 00 00 00 ff |(< | MOVE.L #0xff,D4 00021c70 42 12 |B | CLR.B (A2) 00021c72 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 00021c78 67 2c |g, | BEQ 0x21ca6 00021c7a 41 fa ea b6 |A | LEA.L 0x20732,A0 00021c7e 70 04 |p | MOVEQ.L #0x04,D0 00021c80 3f 20 |? | MOVE.W -(A0),-(A7) 00021c82 51 c8 ff fc |Q | DBF D0,0x21c80 00021c86 59 4f |YO | SUBQ.L #0x4,A7 00021c88 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021c8c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021c90 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 00021c94 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021c9a 50 4f |PO | ADDQ.L #0x8,A7 00021c9c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021ca2 de fc 00 0e | | ADDA.W #0xe,A7 00021ca6 20 51 | Q | MOVEA.L (A1),A0 00021ca8 42 80 |B | CLR.L D0 00021caa 10 28 00 03 | ( | MOVE.B (A0+0x3),D0 00021cae 04 40 00 20 | @ | SUBI.W #0x0020,D0 00021cb2 41 84 |A | CHK.W D4,D0 00021cb4 11 40 00 03 | @ | MOVE.B D0,(A0+0x3) 00021cb8 42 80 |B | CLR.L D0 00021cba 10 28 00 04 | ( | MOVE.B (A0+0x4),D0 00021cbe 04 40 00 20 | @ | SUBI.W #0x0020,D0 00021cc2 41 84 |A | CHK.W D4,D0 00021cc4 11 40 00 04 | @ | MOVE.B D0,(A0+0x4) 00021cc8 10 28 00 05 | ( | MOVE.B (A0+0x5),D0 00021ccc 16 80 | | MOVE.B D0,(A3) 00021cce 0c 00 00 59 | Y | CMPI.B #0x59,D0 00021cd2 67 18 |g | BEQ 0x21cec 00021cd4 0c 00 00 42 | B | CMPI.B #0x42,D0 00021cd8 67 12 |g | BEQ 0x21cec 00021cda 0c 00 00 4e | N | CMPI.B #0x4e,D0 00021cde 67 0c |g | BEQ 0x21cec 00021ce0 0c 00 00 41 | A | CMPI.B #0x41,D0 00021ce4 67 06 |g | BEQ 0x21cec 00021ce6 0c 00 00 5a | Z | CMPI.B #0x5a,D0 00021cea 66 04 |f | BNE 0x21cf0 00021cec 60 00 01 98 |` | BRA 0x21e86 00021cf0 10 13 | | MOVE.B (A3),D0 00021cf2 0c 00 00 53 | S | CMPI.B #0x53,D0 00021cf6 66 02 |f | BNE 0x21cfa 00021cf8 60 1e |` | BRA 0x21d18 00021cfa 10 13 | | MOVE.B (A3),D0 00021cfc 0c 00 00 45 | E | CMPI.B #0x45,D0 00021d00 67 0c |g | BEQ 0x21d0e 00021d02 0c 00 00 46 | F | CMPI.B #0x46,D0 00021d06 67 06 |g | BEQ 0x21d0e 00021d08 0c 00 00 44 | D | CMPI.B #0x44,D0 00021d0c 66 02 |f | BNE 0x21d10 00021d0e 60 5e |`^ | BRA 0x21d6e 00021d10 14 bc 00 16 | | MOVE.B #0x16,(A2) 00021d14 60 00 01 70 |` p | BRA 0x21e86 00021d18 20 51 | Q | MOVEA.L (A1),A0 00021d1a 42 80 |B | CLR.L D0 00021d1c 10 28 00 06 | ( | MOVE.B (A0+0x6),D0 00021d20 04 40 00 20 | @ | SUBI.W #0x0020,D0 00021d24 41 84 |A | CHK.W D4,D0 00021d26 11 40 00 06 | @ | MOVE.B D0,(A0+0x6) 00021d2a 42 80 |B | CLR.L D0 00021d2c 10 28 00 07 | ( | MOVE.B (A0+0x7),D0 00021d30 04 40 00 20 | @ | SUBI.W #0x0020,D0 00021d34 41 84 |A | CHK.W D4,D0 00021d36 11 40 00 07 | @ | MOVE.B D0,(A0+0x7) 00021d3a 42 80 |B | CLR.L D0 00021d3c 10 28 00 08 | ( | MOVE.B (A0+0x8),D0 00021d40 04 40 00 20 | @ | SUBI.W #0x0020,D0 00021d44 41 84 |A | CHK.W D4,D0 00021d46 11 40 00 08 | @ | MOVE.B D0,(A0+0x8) 00021d4a 42 80 |B | CLR.L D0 00021d4c 10 28 00 0a | ( | MOVE.B (A0+0xa),D0 00021d50 04 40 00 20 | @ | SUBI.W #0x0020,D0 00021d54 41 84 |A | CHK.W D4,D0 00021d56 11 40 00 0a | @ | MOVE.B D0,(A0+0xa) 00021d5a 42 80 |B | CLR.L D0 00021d5c 10 28 00 0f | ( | MOVE.B (A0+0xf),D0 00021d60 04 40 00 20 | @ | SUBI.W #0x0020,D0 00021d64 41 84 |A | CHK.W D4,D0 00021d66 11 40 00 0f | @ | MOVE.B D0,(A0+0xf) 00021d6a 60 00 01 1a |` | BRA 0x21e86 00021d6e 7a 05 |z | MOVEQ.L #0x05,D5 00021d70 7e 05 |~ | MOVEQ.L #0x05,D7 00021d72 7c 00 || | MOVEQ.L #0x00,D6 00021d74 20 51 | Q | MOVEA.L (A1),A0 00021d76 42 80 |B | CLR.L D0 00021d78 10 28 00 03 | ( | MOVE.B (A0+0x3),D0 00021d7c 2d 40 ff f8 |-@ | MOVE.L D0,(A6-0x8) 00021d80 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0 00021d86 66 04 |f | BNE 0x21d8c 00021d88 60 00 00 fc |` | BRA 0x21e86 00021d8c 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 00021d90 54 80 |T | ADDQ.L #0x2,D0 00021d92 be 80 | | CMP.L D0,D7 00021d94 6c 00 00 e0 |l | BGE 0x21e76 00021d98 20 51 | Q | MOVEA.L (A1),A0 00021d9a 10 39 00 02 42 73 | 9 Bs | MOVE.B 0x24273,D0 00021da0 0c 00 00 01 | | CMPI.B #0x01,D0 00021da4 6f 16 |o | BLE 0x21dbc 00021da6 20 07 | | MOVE.L D7,D0 00021da8 53 80 |S | SUBQ.L #0x1,D0 00021daa b0 83 | | CMP.L D3,D0 00021dac 63 02 |c | BLS 0x21db0 00021dae 4e 4f |NO | TRAP #15 00021db0 10 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D0 00021db4 b0 14 | | CMP.B (A4),D0 00021db6 66 04 |f | BNE 0x21dbc 00021db8 7c 01 || | MOVEQ.L #0x01,D6 00021dba 52 87 |R | ADDQ.L #0x1,D7 00021dbc 20 07 | | MOVE.L D7,D0 00021dbe 53 80 |S | SUBQ.L #0x1,D0 00021dc0 b0 83 | | CMP.L D3,D0 00021dc2 63 02 |c | BLS 0x21dc6 00021dc4 4e 4f |NO | TRAP #15 00021dc6 10 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D0 00021dca b0 39 00 02 42 8a | 9 B | CMP.B 0x2428a,D0 00021dd0 67 02 |g | BEQ 0x21dd4 00021dd2 60 50 |`P | BRA 0x21e24 00021dd4 52 87 |R | ADDQ.L #0x1,D7 00021dd6 20 51 | Q | MOVEA.L (A1),A0 00021dd8 20 07 | | MOVE.L D7,D0 00021dda 53 80 |S | SUBQ.L #0x1,D0 00021ddc b0 83 | | CMP.L D3,D0 00021dde 63 02 |c | BLS 0x21de2 00021de0 4e 4f |NO | TRAP #15 00021de2 10 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D0 00021de6 b0 39 00 02 42 8a | 9 B | CMP.B 0x2428a,D0 00021dec 66 02 |f | BNE 0x21df0 00021dee 60 34 |`4 | BRA 0x21e24 00021df0 20 51 | Q | MOVEA.L (A1),A0 00021df2 20 07 | | MOVE.L D7,D0 00021df4 53 80 |S | SUBQ.L #0x1,D0 00021df6 b0 83 | | CMP.L D3,D0 00021df8 63 02 |c | BLS 0x21dfc 00021dfa 4e 4f |NO | TRAP #15 00021dfc 10 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D0 00021e00 b0 14 | | CMP.B (A4),D0 00021e02 66 02 |f | BNE 0x21e06 00021e04 60 1e |` | BRA 0x21e24 00021e06 20 51 | Q | MOVEA.L (A1),A0 00021e08 20 07 | | MOVE.L D7,D0 00021e0a 53 80 |S | SUBQ.L #0x1,D0 00021e0c b0 83 | | CMP.L D3,D0 00021e0e 63 02 |c | BLS 0x21e12 00021e10 4e 4f |NO | TRAP #15 00021e12 42 81 |B | CLR.L D1 00021e14 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 00021e18 04 41 00 40 | A @ | SUBI.W #0x0040,D1 00021e1c 02 41 00 7f | A | ANDI.W #0x007f,D1 00021e20 11 81 08 02 | | MOVE.B D1,(A0+D0.L+#0x2) 00021e24 4a 06 |J | TST.B D6 00021e26 67 28 |g( | BEQ 0x21e50 00021e28 20 51 | Q | MOVEA.L (A1),A0 00021e2a 20 05 | | MOVE.L D5,D0 00021e2c 53 80 |S | SUBQ.L #0x1,D0 00021e2e b0 83 | | CMP.L D3,D0 00021e30 63 02 |c | BLS 0x21e34 00021e32 4e 4f |NO | TRAP #15 00021e34 22 07 |" | MOVE.L D7,D1 00021e36 53 81 |S | SUBQ.L #0x1,D1 00021e38 b2 83 | | CMP.L D3,D1 00021e3a 63 02 |c | BLS 0x21e3e 00021e3c 4e 4f |NO | TRAP #15 00021e3e 42 82 |B | CLR.L D2 00021e40 14 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),D2 00021e44 06 42 00 80 | B | ADDI.W #0x0080,D2 00021e48 45 84 |E | CHK.W D4,D2 00021e4a 11 82 08 02 | | MOVE.B D2,(A0+D0.L+#0x2) 00021e4e 60 1c |` | BRA 0x21e6c 00021e50 20 51 | Q | MOVEA.L (A1),A0 00021e52 20 05 | | MOVE.L D5,D0 00021e54 53 80 |S | SUBQ.L #0x1,D0 00021e56 b0 83 | | CMP.L D3,D0 00021e58 63 02 |c | BLS 0x21e5c 00021e5a 4e 4f |NO | TRAP #15 00021e5c 22 07 |" | MOVE.L D7,D1 00021e5e 53 81 |S | SUBQ.L #0x1,D1 00021e60 b2 83 | | CMP.L D3,D1 00021e62 63 02 |c | BLS 0x21e66 00021e64 4e 4f |NO | TRAP #15 00021e66 11 b0 18 02 08 02 | | MOVE.B (A0+D1.L+#0x2),(A0+D0.L+#0x2) 00021e6c 52 85 |R | ADDQ.L #0x1,D5 00021e6e 52 87 |R | ADDQ.L #0x1,D7 00021e70 7c 00 || | MOVEQ.L #0x00,D6 00021e72 60 00 ff 18 |` | BRA 0x21d8c 00021e76 20 51 | Q | MOVEA.L (A1),A0 00021e78 20 05 | | MOVE.L D5,D0 00021e7a 55 80 |U | SUBQ.L #0x2,D0 00021e7c b0 84 | | CMP.L D4,D0 00021e7e 63 02 |c | BLS 0x21e82 00021e80 4e 4f |NO | TRAP #15 00021e82 11 40 00 03 | @ | MOVE.B D0,(A0+0x3) 00021e86 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00021e8a 4e 5e |N^ | UNLK A6 00021e8c 4e 75 |Nu | RTS 00021e8e ; -------------------------------------------------------------------------------------- 00021e8e ; OMSI PASCAL Function 00021e8e ; <LVAR 0x008 4(r)> 00021e8e ; <LVAR -0x008 @ 4(r)> 00021e8e ; -------------------------------------------------------------------------------------- 00021e8e 4e 56 ff ba |NV | LINK.W A6,#0xffba 00021e92 bf d5 | | CMPA.L (A5),A7 00021e94 62 06 |b | BHI 0x21e9c 00021e96 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021e9a 4e 76 |Nv | TRAPV 00021e9c de fc 00 3e | > | ADDA.W #0x3e,A7 00021ea0 48 e7 e1 e0 |H | MOVEM.L A2+A1+A0+D7+D2+D1+D0,-(A7) 00021ea4 45 ee ff f8 |E | LEA.L (A6-0x8),A2 00021ea8 74 7d |t} | MOVEQ.L #0x7d,D2 00021eaa 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 00021eb0 67 2c |g, | BEQ 0x21ede 00021eb2 41 fa e8 90 |A | LEA.L 0x20744,A0 00021eb6 70 08 |p | MOVEQ.L #0x08,D0 00021eb8 3f 20 |? | MOVE.W -(A0),-(A7) 00021eba 51 c8 ff fc |Q | DBF D0,0x21eb8 00021ebe 59 4f |YO | SUBQ.L #0x4,A7 00021ec0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021ec4 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021ec8 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 00021ecc 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021ed2 50 4f |PO | ADDQ.L #0x8,A7 00021ed4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021eda de fc 00 16 | | ADDA.W #0x16,A7 00021ede 48 52 |HR | PEA.L (A2) 00021ee0 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00021ee6 58 4f |XO | ADDQ.L #0x4,A7 00021ee8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021eec 42 80 |B | CLR.L D0 00021eee 10 28 00 03 | ( | MOVE.B (A0+0x3),D0 00021ef2 57 40 |W@ | SUBQ.W #0x3,D0 00021ef4 3f 00 |? | MOVE.W D0,-(A7) 00021ef6 7e 01 |~ | MOVEQ.L #0x01,D7 00021ef8 be 57 | W | CMP.W (A7),D7 00021efa 6e 2a |n* | BGT 0x21f26 00021efc 20 52 | R | MOVEA.L (A2),A0 00021efe 30 07 |0 | MOVE.W D7,D0 00021f00 48 c0 |H | EXTW.L D0 00021f02 53 80 |S | SUBQ.L #0x1,D0 00021f04 b0 82 | | CMP.L D2,D0 00021f06 63 02 |c | BLS 0x21f0a 00021f08 4e 4f |NO | TRAP #15 00021f0a 22 6e 00 08 |"n | MOVEA.L (A6+0x8),A1 00021f0e 32 07 |2 | MOVE.W D7,D1 00021f10 48 c1 |H | EXTW.L D1 00021f12 58 81 |X | ADDQ.L #0x4,D1 00021f14 53 81 |S | SUBQ.L #0x1,D1 00021f16 b2 82 | | CMP.L D2,D1 00021f18 63 02 |c | BLS 0x21f1c 00021f1a 4e 4f |NO | TRAP #15 00021f1c 11 b1 18 02 08 02 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2) 00021f22 52 47 |RG | ADDQ.W #0x1,D7 00021f24 68 d2 |h | BVC 0x21ef8 00021f26 54 4f |TO | ADDQ.L #0x2,A7 00021f28 20 52 | R | MOVEA.L (A2),A0 00021f2a 30 07 |0 | MOVE.W D7,D0 00021f2c 48 c0 |H | EXTW.L D0 00021f2e 53 80 |S | SUBQ.L #0x1,D0 00021f30 04 80 ff ff 80 00 | | SUBI.L #0xffff8000,D0 00021f36 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00021f3c 63 02 |c | BLS 0x21f40 00021f3e 4e 4f |NO | TRAP #15 00021f40 06 80 ff ff 80 00 | | ADDI.L #0xffff8000,D0 00021f46 30 80 |0 | MOVE.W D0,(A0) 00021f48 2f 12 |/ | MOVE.L (A2),-(A7) 00021f4a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021f50 58 4f |XO | ADDQ.L #0x4,A7 00021f52 4c df 07 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2 00021f56 4e 5e |N^ | UNLK A6 00021f58 4e 75 |Nu | RTS 00021f5a ; -------------------------------------------------------------------------------------- 00021f5a ; OMSI PASCAL Function 00021f5a ; <LVAR 0x008 4(r)> 00021f5a ; -------------------------------------------------------------------------------------- 00021f5a 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 00021f5e bf d5 | | CMPA.L (A5),A7 00021f60 62 06 |b | BHI 0x21f68 00021f62 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021f66 4e 76 |Nv | TRAPV 00021f68 de fc 00 34 | 4 | ADDA.W #0x34,A7 00021f6c 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 00021f70 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 00021f76 67 32 |g2 | BEQ 0x21faa 00021f78 9e fc 00 10 | | SUBA.W #0x10,A7 00021f7c 20 4f | O | MOVEA.L A7,A0 00021f7e 43 fa e7 c4 |C | LEA.L 0x20744,A1 00021f82 70 0e |p | MOVEQ.L #0x0e,D0 00021f84 10 d9 | | MOVE.B (A1)+,(A0)+ 00021f86 51 c8 ff fc |Q | DBF D0,0x21f84 00021f8a 59 4f |YO | SUBQ.L #0x4,A7 00021f8c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021f90 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021f94 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00021f98 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021f9e 50 4f |PO | ADDQ.L #0x8,A7 00021fa0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00021fa6 de fc 00 14 | | ADDA.W #0x14,A7 00021faa 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021fae 30 10 |0 | MOVE.W (A0),D0 00021fb0 48 c0 |H | EXTW.L D0 00021fb2 2f 00 |/ | MOVE.L D0,-(A7) 00021fb4 7e 01 |~ | MOVEQ.L #0x01,D7 00021fb6 be 97 | | CMP.L (A7),D7 00021fb8 6e 30 |n0 | BGT 0x21fea 00021fba 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021fbe 20 07 | | MOVE.L D7,D0 00021fc0 53 80 |S | SUBQ.L #0x1,D0 00021fc2 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00021fc8 63 02 |c | BLS 0x21fcc 00021fca 4e 4f |NO | TRAP #15 00021fcc 42 81 |B | CLR.L D1 00021fce 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 00021fd2 0c 81 00 00 00 60 | ` | CMPI.L #0x00000060,D1 00021fd8 63 0c |c | BLS 0x21fe6 00021fda 04 41 00 20 | A | SUBI.W #0x0020,D1 00021fde 43 bc 00 ff |C | CHK.W #0xff,D1 00021fe2 11 81 08 02 | | MOVE.B D1,(A0+D0.L+#0x2) 00021fe6 52 87 |R | ADDQ.L #0x1,D7 00021fe8 68 cc |h | BVC 0x21fb6 00021fea 58 4f |XO | ADDQ.L #0x4,A7 00021fec 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 00021ff0 4e 5e |N^ | UNLK A6 00021ff2 4e 75 |Nu | RTS 00021ff4 ; -------------------------------------------------------------------------------------- 00021ff4 ; OMSI PASCAL Function 00021ff4 ; <LVAR 0x008 4(r)> 00021ff4 ; -------------------------------------------------------------------------------------- 00021ff4 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 00021ff8 bf d5 | | CMPA.L (A5),A7 00021ffa 62 06 |b | BHI 0x22002 00021ffc 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022000 4e 76 |Nv | TRAPV 00022002 de fc 00 38 | 8 | ADDA.W #0x38,A7 00022006 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 0002200a 45 ee 00 08 |E | LEA.L (A6+0x8),A2 0002200e 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 00022014 67 32 |g2 | BEQ 0x22048 00022016 9e fc 00 10 | | SUBA.W #0x10,A7 0002201a 20 4f | O | MOVEA.L A7,A0 0002201c 43 fa e7 36 |C 6 | LEA.L 0x20754,A1 00022020 70 0e |p | MOVEQ.L #0x0e,D0 00022022 10 d9 | | MOVE.B (A1)+,(A0)+ 00022024 51 c8 ff fc |Q | DBF D0,0x22022 00022028 59 4f |YO | SUBQ.L #0x4,A7 0002202a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002202e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022032 3f 3c 00 0f |?< | MOVE.W #0xf,-(A7) 00022036 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002203c 50 4f |PO | ADDQ.L #0x8,A7 0002203e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022044 de fc 00 14 | | ADDA.W #0x14,A7 00022048 20 52 | R | MOVEA.L (A2),A0 0002204a 42 80 |B | CLR.L D0 0002204c 10 28 00 03 | ( | MOVE.B (A0+0x3),D0 00022050 04 40 00 1d | @ | SUBI.W #0x001d,D0 00022054 30 80 |0 | MOVE.W D0,(A0) 00022056 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 0002205a 2f 12 |/ | MOVE.L (A2),-(A7) 0002205c 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 00022062 5c 4f |\O | ADDQ.L #0x6,A7 00022064 42 39 00 02 42 66 |B9 Bf | CLR.B 0x24266 0002206a 4a 39 00 02 42 68 |J9 Bh | TST.B 0x24268 00022070 67 60 |g` | BEQ 0x220d2 00022072 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00022078 30 10 |0 | MOVE.W (A0),D0 0002207a 48 c0 |H | EXTW.L D0 0002207c 2f 00 |/ | MOVE.L D0,-(A7) 0002207e 7e 01 |~ | MOVEQ.L #0x01,D7 00022080 be 97 | | CMP.L (A7),D7 00022082 6e 46 |nF | BGT 0x220ca 00022084 20 52 | R | MOVEA.L (A2),A0 00022086 20 07 | | MOVE.L D7,D0 00022088 53 80 |S | SUBQ.L #0x1,D0 0002208a 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00022090 63 02 |c | BLS 0x22094 00022092 4e 4f |NO | TRAP #15 00022094 42 81 |B | CLR.L D1 00022096 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 0002209a 0c 81 00 00 00 20 | | CMPI.L #0x00000020,D1 000220a0 64 1a |d | BCC 0x220bc 000220a2 1f 3c 00 5e | < ^ | MOVE.B #0x5e,-(A7) 000220a6 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 000220ac 54 4f |TO | ADDQ.L #0x2,A7 000220ae 42 81 |B | CLR.L D1 000220b0 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 000220b4 06 41 00 40 | A @ | ADDI.W #0x0040,D1 000220b8 43 bc 00 ff |C | CHK.W #0xff,D1 000220bc 1f 01 | | MOVE.B D1,-(A7) 000220be 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 000220c4 54 4f |TO | ADDQ.L #0x2,A7 000220c6 52 87 |R | ADDQ.L #0x1,D7 000220c8 68 b6 |h | BVC 0x22080 000220ca 58 4f |XO | ADDQ.L #0x4,A7 000220cc 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000220d2 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 000220d6 4e 5e |N^ | UNLK A6 000220d8 4e 75 |Nu | RTS 000220da ; -------------------------------------------------------------------------------------- 000220da ; OMSI PASCAL Function 000220da ; <LVAR 0x00c 4(r)> 000220da ; <LVAR 0x008 4(r)> 000220da ; -------------------------------------------------------------------------------------- 000220da 4e 56 ff b4 |NV | LINK.W A6,#0xffb4 000220de bf d5 | | CMPA.L (A5),A7 000220e0 62 06 |b | BHI 0x220e8 000220e2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000220e6 4e 76 |Nv | TRAPV 000220e8 de fc 00 48 | H | ADDA.W #0x48,A7 000220ec 48 e7 f1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D3+D2+D1+D0,-(A7) 000220f0 45 f9 00 02 42 65 |E Be | LEA.L 0x24265,A2 000220f6 47 f9 00 02 4a a2 |G J | LEA.L 0x24aa2,A3 000220fc 72 01 |r | MOVEQ.L #0x01,D1 000220fe 74 13 |t | MOVEQ.L #0x13,D2 00022100 76 10 |v | MOVEQ.L #0x10,D3 00022102 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 00022108 67 2e |g. | BEQ 0x22138 0002210a 9e fc 00 14 | | SUBA.W #0x14,A7 0002210e 20 4f | O | MOVEA.L A7,A0 00022110 43 fa e6 52 |C R | LEA.L 0x20764,A1 00022114 70 12 |p | MOVEQ.L #0x12,D0 00022116 10 d9 | | MOVE.B (A1)+,(A0)+ 00022118 51 c8 ff fc |Q | DBF D0,0x22116 0002211c 59 4f |YO | SUBQ.L #0x4,A7 0002211e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022122 3f 01 |? | MOVE.W D1,-(A7) 00022124 3f 02 |? | MOVE.W D2,-(A7) 00022126 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002212c 50 4f |PO | ADDQ.L #0x8,A7 0002212e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022134 de fc 00 18 | | ADDA.W #0x18,A7 00022138 7e 00 |~ | MOVEQ.L #0x00,D7 0002213a be ae 00 08 | | CMP.L (A6+0x8),D7 0002213e 6c 3a |l: | BGE 0x2217a 00022140 4a 87 |J | TST.L D7 00022142 6f 0c |o | BLE 0x22150 00022144 1f 3c 00 2d | < - | MOVE.B #0x2d,-(A7) 00022148 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 0002214e 54 4f |TO | ADDQ.L #0x2,A7 00022150 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022154 4e ba fe 9e |N | JSR 0x21ff4 00022158 58 4f |XO | ADDQ.L #0x4,A7 0002215a 52 87 |R | ADDQ.L #0x1,D7 0002215c 42 27 |B' | CLR.B -(A7) 0002215e 48 78 00 0a |Hx | PEA.L 0xa 00022162 4e ba f6 58 |N X | JSR 0x217bc 00022166 5c 4f |\O | ADDQ.L #0x6,A7 00022168 4a 12 |J | TST.B (A2) 0002216a 66 02 |f | BNE 0x2216e 0002216c 60 10 |` | BRA 0x2217e 0002216e 10 12 | | MOVE.B (A2),D0 00022170 b0 03 | | CMP.B D3,D0 00022172 66 02 |f | BNE 0x22176 00022174 60 c4 |` | BRA 0x2213a 00022176 60 64 |`d | BRA 0x221dc 00022178 60 c0 |` | .XXX[0x2] 0002217a 14 83 | | MOVE.B D3,(A2) 0002217c 60 5e |`^ | BRA 0x221dc 0002217e 20 53 | S | MOVEA.L (A3),A0 00022180 42 80 |B | CLR.L D0 00022182 10 28 00 02 | ( | MOVE.B (A0+0x2),D0 00022186 b0 81 | | CMP.L D1,D0 00022188 67 02 |g | BEQ 0x2218c 0002218a 60 ae |` | BRA 0x2213a 0002218c 2f 13 |/ | MOVE.L (A3),-(A7) 0002218e 4e ba f8 ac |N | JSR 0x21a3c 00022192 58 4f |XO | ADDQ.L #0x4,A7 00022194 4a 39 00 02 42 66 |J9 Bf | TST.B 0x24266 0002219a 67 02 |g | BEQ 0x2219e 0002219c 60 9c |` | BRA 0x2213a 0002219e 20 53 | S | MOVEA.L (A3),A0 000221a0 10 28 00 05 | ( | MOVE.B (A0+0x5),D0 000221a4 0c 00 00 4e | N | CMPI.B #0x4e,D0 000221a8 66 02 |f | BNE 0x221ac 000221aa 60 8e |` | BRA 0x2213a 000221ac 14 bc 00 16 | | MOVE.B #0x16,(A2) 000221b0 20 53 | S | MOVEA.L (A3),A0 000221b2 10 28 00 05 | ( | MOVE.B (A0+0x5),D0 000221b6 0c 00 00 59 | Y | CMPI.B #0x59,D0 000221ba 66 02 |f | BNE 0x221be 000221bc 42 12 |B | CLR.B (A2) 000221be 20 53 | S | MOVEA.L (A3),A0 000221c0 10 28 00 05 | ( | MOVE.B (A0+0x5),D0 000221c4 0c 00 00 45 | E | CMPI.B #0x45,D0 000221c8 66 02 |f | BNE 0x221cc 000221ca 14 82 | | MOVE.B D2,(A2) 000221cc 20 53 | S | MOVEA.L (A3),A0 000221ce 10 28 00 05 | ( | MOVE.B (A0+0x5),D0 000221d2 0c 00 00 42 | B | CMPI.B #0x42,D0 000221d6 66 04 |f | BNE 0x221dc 000221d8 14 bc 00 12 | | MOVE.B #0x12,(A2) 000221dc 4c df 0f 8f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D7+A0+A1+A2+A3 000221e0 4e 5e |N^ | UNLK A6 000221e2 4e 75 |Nu | RTS 000221e4 ; -------------------------------------------------------------------------------------- 000221e4 ; OMSI PASCAL Function 000221e4 ; <LVAR -0x004 @ 4(r)> 000221e4 ; -------------------------------------------------------------------------------------- 000221e4 4e 56 ff d0 |NV | LINK.W A6,#0xffd0 000221e8 bf d5 | | CMPA.L (A5),A7 000221ea 62 06 |b | BHI 0x221f2 000221ec 44 fc 00 02 |D | MOVE.W #0x2,CCR 000221f0 4e 76 |Nv | TRAPV 000221f2 de fc 00 2c | , | ADDA.W #0x2c,A7 000221f6 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 000221fa 43 ee ff fc |C | LEA.L (A6-0x4),A1 000221fe 72 01 |r | MOVEQ.L #0x01,D1 00022200 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 00022206 67 2a |g* | BEQ 0x22232 00022208 2f 3a e5 76 |/: v | MOVE.L 0x20780,-(A7) 0002220c 2f 3a e5 6e |/: n | MOVE.L 0x2077c,-(A7) 00022210 2f 3a e5 66 |/: f | MOVE.L 0x20778,-(A7) 00022214 59 4f |YO | SUBQ.L #0x4,A7 00022216 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002221a 3f 01 |? | MOVE.W D1,-(A7) 0002221c 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 00022220 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022226 50 4f |PO | ADDQ.L #0x8,A7 00022228 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002222e de fc 00 10 | | ADDA.W #0x10,A7 00022232 48 51 |HQ | PEA.L (A1) 00022234 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002223a 58 4f |XO | ADDQ.L #0x4,A7 0002223c 20 51 | Q | MOVEA.L (A1),A0 0002223e 11 41 00 02 | A | MOVE.B D1,(A0+0x2) 00022242 11 7c 00 23 00 03 | | # | MOVE.B #0x23,(A0+0x3) 00022248 30 39 00 02 42 8c |09 B | MOVE.W 0x2428c,D0 0002224e 48 c0 |H | EXTW.L D0 00022250 06 80 00 00 00 20 | | ADDI.L #0x00000020,D0 00022256 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 0002225c 63 02 |c | BLS 0x22260 0002225e 4e 4f |NO | TRAP #15 00022260 11 40 00 04 | @ | MOVE.B D0,(A0+0x4) 00022264 11 7c 00 59 00 05 | | Y | MOVE.B #0x59,(A0+0x5) 0002226a 2f 11 |/ | MOVE.L (A1),-(A7) 0002226c 4e ba f7 ce |N | JSR 0x21a3c 00022270 58 4f |XO | ADDQ.L #0x4,A7 00022272 11 79 00 02 42 89 00 06 | y B | MOVE.B 0x24289,(A0+0x6) 0002227a 11 7c 00 0d 00 07 | | | MOVE.B #0x0d,(A0+0x7) 00022280 2f 11 |/ | MOVE.L (A1),-(A7) 00022282 4e ba fd 70 |N p | JSR 0x21ff4 00022286 58 4f |XO | ADDQ.L #0x4,A7 00022288 13 c1 00 02 42 8f | B | MOVE.B D1,0x2428f 0002228e 48 51 |HQ | PEA.L (A1) 00022290 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022296 58 4f |XO | ADDQ.L #0x4,A7 00022298 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 0002229c 4e 5e |N^ | UNLK A6 0002229e 4e 75 |Nu | RTS 000222a0 ; -------------------------------------------------------------------------------------- 000222a0 ; OMSI PASCAL Function 000222a0 ; <LVAR -0x004 @ 4(r)> 000222a0 ; -------------------------------------------------------------------------------------- 000222a0 4e 56 ff ca |NV | LINK.W A6,#0xffca 000222a4 bf d5 | | CMPA.L (A5),A7 000222a6 62 06 |b | BHI 0x222ae 000222a8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000222ac 4e 76 |Nv | TRAPV 000222ae de fc 00 32 | 2 | ADDA.W #0x32,A7 000222b2 48 e7 e0 c0 |H | MOVEM.L A1+A0+D2+D1+D0,-(A7) 000222b6 43 ee ff fc |C | LEA.L (A6-0x4),A1 000222ba 72 01 |r | MOVEQ.L #0x01,D1 000222bc 74 42 |tB | MOVEQ.L #0x42,D2 000222be 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 000222c4 67 2a |g* | BEQ 0x222f0 000222c6 41 fa e4 ca |A | LEA.L 0x20792,A0 000222ca 70 06 |p | MOVEQ.L #0x06,D0 000222cc 3f 20 |? | MOVE.W -(A0),-(A7) 000222ce 51 c8 ff fc |Q | DBF D0,0x222cc 000222d2 59 4f |YO | SUBQ.L #0x4,A7 000222d4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000222d8 3f 01 |? | MOVE.W D1,-(A7) 000222da 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 000222de 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000222e4 50 4f |PO | ADDQ.L #0x8,A7 000222e6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000222ec de fc 00 12 | | ADDA.W #0x12,A7 000222f0 48 51 |HQ | PEA.L (A1) 000222f2 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000222f8 58 4f |XO | ADDQ.L #0x4,A7 000222fa 20 51 | Q | MOVEA.L (A1),A0 000222fc 11 41 00 02 | A | MOVE.B D1,(A0+0x2) 00022300 30 39 00 02 42 8c |09 B | MOVE.W 0x2428c,D0 00022306 48 c0 |H | EXTW.L D0 00022308 06 80 00 00 00 20 | | ADDI.L #0x00000020,D0 0002230e 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 00022314 63 02 |c | BLS 0x22318 00022316 4e 4f |NO | TRAP #15 00022318 11 40 00 04 | @ | MOVE.B D0,(A0+0x4) 0002231c 11 42 00 05 | B | MOVE.B D2,(A0+0x5) 00022320 11 7c 00 23 00 03 | | # | MOVE.B #0x23,(A0+0x3) 00022326 2f 11 |/ | MOVE.L (A1),-(A7) 00022328 4e ba f7 12 |N | JSR 0x21a3c 0002232c 58 4f |XO | ADDQ.L #0x4,A7 0002232e 11 79 00 02 42 89 00 06 | y B | MOVE.B 0x24289,(A0+0x6) 00022336 11 7c 00 0d 00 07 | | | MOVE.B #0x0d,(A0+0x7) 0002233c 1f 02 | | MOVE.B D2,-(A7) 0002233e 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00022344 54 4f |TO | ADDQ.L #0x2,A7 00022346 2f 11 |/ | MOVE.L (A1),-(A7) 00022348 48 78 00 01 |Hx | PEA.L 0x1 0002234c 4e ba fd 8c |N | JSR 0x220da 00022350 50 4f |PO | ADDQ.L #0x8,A7 00022352 48 51 |HQ | PEA.L (A1) 00022354 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002235a 58 4f |XO | ADDQ.L #0x4,A7 0002235c 4c df 03 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1 00022360 4e 5e |N^ | UNLK A6 00022362 4e 75 |Nu | RTS 00022364 ; -------------------------------------------------------------------------------------- 00022364 ; OMSI PASCAL Function 00022364 ; <LVAR -0x004 @ 4(r)> 00022364 ; -------------------------------------------------------------------------------------- 00022364 4e 56 ff d0 |NV | LINK.W A6,#0xffd0 00022368 bf d5 | | CMPA.L (A5),A7 0002236a 62 06 |b | BHI 0x22372 0002236c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022370 4e 76 |Nv | TRAPV 00022372 de fc 00 2c | , | ADDA.W #0x2c,A7 00022376 48 e7 c0 c0 |H | MOVEM.L A1+A0+D1+D0,-(A7) 0002237a 43 ee ff fc |C | LEA.L (A6-0x4),A1 0002237e 72 01 |r | MOVEQ.L #0x01,D1 00022380 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 00022386 67 2a |g* | BEQ 0x223b2 00022388 2f 3a e4 10 |/: | MOVE.L 0x2079a,-(A7) 0002238c 2f 3a e4 08 |/: | MOVE.L 0x20796,-(A7) 00022390 2f 3a e4 00 |/: | MOVE.L 0x20792,-(A7) 00022394 59 4f |YO | SUBQ.L #0x4,A7 00022396 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002239a 3f 01 |? | MOVE.W D1,-(A7) 0002239c 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 000223a0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000223a6 50 4f |PO | ADDQ.L #0x8,A7 000223a8 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000223ae de fc 00 10 | | ADDA.W #0x10,A7 000223b2 48 51 |HQ | PEA.L (A1) 000223b4 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000223ba 58 4f |XO | ADDQ.L #0x4,A7 000223bc 20 51 | Q | MOVEA.L (A1),A0 000223be 11 41 00 02 | A | MOVE.B D1,(A0+0x2) 000223c2 11 7c 00 23 00 03 | | # | MOVE.B #0x23,(A0+0x3) 000223c8 30 39 00 02 42 8c |09 B | MOVE.W 0x2428c,D0 000223ce 48 c0 |H | EXTW.L D0 000223d0 06 80 00 00 00 20 | | ADDI.L #0x00000020,D0 000223d6 0c 80 00 00 00 ff | | CMPI.L #0x000000ff,D0 000223dc 63 02 |c | BLS 0x223e0 000223de 4e 4f |NO | TRAP #15 000223e0 11 40 00 04 | @ | MOVE.B D0,(A0+0x4) 000223e4 11 7c 00 4e 00 05 | | N | MOVE.B #0x4e,(A0+0x5) 000223ea 2f 11 |/ | MOVE.L (A1),-(A7) 000223ec 4e ba f6 4e |N N | JSR 0x21a3c 000223f0 58 4f |XO | ADDQ.L #0x4,A7 000223f2 11 79 00 02 42 89 00 06 | y B | MOVE.B 0x24289,(A0+0x6) 000223fa 11 7c 00 0d 00 07 | | | MOVE.B #0x0d,(A0+0x7) 00022400 2f 11 |/ | MOVE.L (A1),-(A7) 00022402 4e ba fb f0 |N | JSR 0x21ff4 00022406 58 4f |XO | ADDQ.L #0x4,A7 00022408 42 39 00 02 42 8f |B9 B | CLR.B 0x2428f 0002240e 48 51 |HQ | PEA.L (A1) 00022410 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022416 58 4f |XO | ADDQ.L #0x4,A7 00022418 4c df 03 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1 0002241c 4e 5e |N^ | UNLK A6 0002241e 4e 75 |Nu | RTS 00022420 ; -------------------------------------------------------------------------------------- 00022420 ; OMSI PASCAL Function 00022420 ; <LVAR 0x00a 1(r)> 00022420 ; <LVAR 0x008 1(r)> 00022420 ; <LVAR -0x008 @ 4(rw)> 00022420 ; -------------------------------------------------------------------------------------- 00022420 4e 56 ff 6e |NV n | LINK.W A6,#0xff6e 00022424 bf d5 | | CMPA.L (A5),A7 00022426 62 06 |b | BHI 0x2242e 00022428 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002242c 4e 76 |Nv | TRAPV 0002242e de fc 00 8a | | ADDA.W #0x8a,A7 00022432 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022436 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 0002243c 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00022440 74 01 |t | MOVEQ.L #0x01,D2 00022442 76 16 |v | MOVEQ.L #0x16,D3 00022444 78 0c |x | MOVEQ.L #0x0c,D4 00022446 7a 1e |z | MOVEQ.L #0x1e,D5 00022448 7c 20 || | MOVEQ.L #0x20,D6 0002244a 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 00022450 67 24 |g$ | BEQ 0x22476 00022452 41 fa e6 68 |A h | LEA.L 0x20abc,A0 00022456 70 0a |p | MOVEQ.L #0x0a,D0 00022458 3f 20 |? | MOVE.W -(A0),-(A7) 0002245a 51 c8 ff fc |Q | DBF D0,0x22458 0002245e 59 4f |YO | SUBQ.L #0x4,A7 00022460 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022464 3f 02 |? | MOVE.W D2,-(A7) 00022466 3f 03 |? | MOVE.W D3,-(A7) 00022468 4e 93 |N | JSR (A3) 0002246a 50 4f |PO | ADDQ.L #0x8,A7 0002246c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022472 de fc 00 1a | | ADDA.W #0x1a,A7 00022476 10 2e 00 0a | . | MOVE.B (A6+0xa),D0 0002247a b0 02 | | CMP.B D2,D0 0002247c 66 4e |fN | BNE 0x224cc 0002247e 2f 3a e6 0c |/: | MOVE.L 0x20a8c,-(A7) 00022482 9e c3 | | SUBA.W D3,A7 00022484 20 4f | O | MOVEA.L A7,A0 00022486 43 fa e6 08 |C | LEA.L 0x20a90,A1 0002248a 72 14 |r | MOVEQ.L #0x14,D1 0002248c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002248e 51 c9 ff fc |Q | DBF D1,0x2248c 00022492 51 4f |QO | SUBQ.L #0x8,A7 00022494 48 6f 00 1e |Ho | PEA.L (A7+0x1e) 00022498 3f 02 |? | MOVE.W D2,-(A7) 0002249a 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 0002249e 4e 93 |N | JSR (A3) 000224a0 58 4f |XO | ADDQ.L #0x4,A7 000224a2 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000224a6 3f 02 |? | MOVE.W D2,-(A7) 000224a8 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 000224ac 4e 93 |N | JSR (A3) 000224ae 54 4f |TO | ADDQ.L #0x2,A7 000224b0 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 000224b4 4e b9 00 01 03 a0 |N | JSR FsErrMsgStr(err: Byte) : String 000224ba 54 4f |TO | ADDQ.L #0x2,A7 000224bc 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000224c2 de c4 | | ADDA.W D4,A7 000224c4 28 9f |( | MOVE.L (A7)+,(A4) 000224c6 de fc 00 1a | | ADDA.W #0x1a,A7 000224ca 60 66 |`f | BRA 0x22532 000224cc 2f 3a e5 be |/: | MOVE.L 0x20a8c,-(A7) 000224d0 9e c3 | | SUBA.W D3,A7 000224d2 20 4f | O | MOVEA.L A7,A0 000224d4 43 fa e5 ba |C | LEA.L 0x20a90,A1 000224d8 72 14 |r | MOVEQ.L #0x14,D1 000224da 10 d9 | | MOVE.B (A1)+,(A0)+ 000224dc 51 c9 ff fc |Q | DBF D1,0x224da 000224e0 12 00 | | MOVE.B D0,D1 000224e2 48 81 |H | EXTB.W D1 000224e4 c3 c5 | | MULS.W D5,D1 000224e6 41 fa e9 8b |A | LEA.L 0x20e73,A0 000224ea 9e c5 | | SUBA.W D5,A7 000224ec 22 4f |"O | MOVEA.L A7,A1 000224ee 41 f0 10 00 |A | LEA.L (A0+D1.W),A0 000224f2 72 1d |r | MOVEQ.L #0x1d,D1 000224f4 12 d8 | | MOVE.B (A0)+,(A1)+ 000224f6 51 c9 ff fc |Q | DBF D1,0x224f4 000224fa 51 4f |QO | SUBQ.L #0x8,A7 000224fc 48 6f 00 3c |Ho < | PEA.L (A7+0x3c) 00022500 3f 02 |? | MOVE.W D2,-(A7) 00022502 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 00022506 4e 93 |N | JSR (A3) 00022508 58 4f |XO | ADDQ.L #0x4,A7 0002250a 48 6f 00 2a |Ho * | PEA.L (A7+0x2a) 0002250e 3f 02 |? | MOVE.W D2,-(A7) 00022510 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 00022514 4e 93 |N | JSR (A3) 00022516 58 4f |XO | ADDQ.L #0x4,A7 00022518 48 6f 00 10 |Ho | PEA.L (A7+0x10) 0002251c 3f 02 |? | MOVE.W D2,-(A7) 0002251e 3f 05 |? | MOVE.W D5,-(A7) 00022520 4e 93 |N | JSR (A3) 00022522 50 4f |PO | ADDQ.L #0x8,A7 00022524 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 0002252a de c4 | | ADDA.W D4,A7 0002252c 28 9f |( | MOVE.L (A7)+,(A4) 0002252e de fc 00 38 | 8 | ADDA.W #0x38,A7 00022532 20 54 | T | MOVEA.L (A4),A0 00022534 32 10 |2 | MOVE.W (A0),D1 00022536 48 c1 |H | EXTW.L D1 00022538 59 81 |Y | SUBQ.L #0x4,D1 0002253a 2e 01 |. | MOVE.L D1,D7 0002253c 11 42 00 02 | B | MOVE.B D2,(A0+0x2) 00022540 22 07 |" | MOVE.L D7,D1 00022542 56 81 |V | ADDQ.L #0x3,D1 00022544 d2 86 | | ADD.L D6,D1 00022546 0c 81 00 00 00 ff | | CMPI.L #0x000000ff,D1 0002254c 63 02 |c | BLS 0x22550 0002254e 4e 4f |NO | TRAP #15 00022550 11 41 00 03 | A | MOVE.B D1,(A0+0x3) 00022554 32 39 00 02 42 8c |29 B | MOVE.W 0x2428c,D1 0002255a 48 c1 |H | EXTW.L D1 0002255c d2 86 | | ADD.L D6,D1 0002255e 0c 81 00 00 00 ff | | CMPI.L #0x000000ff,D1 00022564 63 02 |c | BLS 0x22568 00022566 4e 4f |NO | TRAP #15 00022568 11 41 00 04 | A | MOVE.B D1,(A0+0x4) 0002256c 11 7c 00 45 00 05 | | E | MOVE.B #0x45,(A0+0x5) 00022572 2f 14 |/ | MOVE.L (A4),-(A7) 00022574 4e ba f4 c6 |N | JSR 0x21a3c 00022578 58 4f |XO | ADDQ.L #0x4,A7 0002257a 22 07 |" | MOVE.L D7,D1 0002257c 5a 81 |Z | ADDQ.L #0x5,D1 0002257e 53 81 |S | SUBQ.L #0x1,D1 00022580 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00022586 63 02 |c | BLS 0x2258a 00022588 4e 4f |NO | TRAP #15 0002258a 11 b9 00 02 42 89 18 02 | B | MOVE.B 0x24289,(A0+D1.L+#0x2) 00022592 22 07 |" | MOVE.L D7,D1 00022594 5c 81 |\ | ADDQ.L #0x6,D1 00022596 53 81 |S | SUBQ.L #0x1,D1 00022598 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 0002259e 63 02 |c | BLS 0x225a2 000225a0 4e 4f |NO | TRAP #15 000225a2 11 bc 00 0d 18 02 | | MOVE.B #0x0d,(A0+D1.L+#0x2) 000225a8 b0 04 | | CMP.B D4,D0 000225aa 6c 10 |l | BGE 0x225bc 000225ac 2f 14 |/ | MOVE.L (A4),-(A7) 000225ae 48 78 00 01 |Hx | PEA.L 0x1 000225b2 4e ba fb 26 |N & | JSR 0x220da 000225b6 50 4f |PO | ADDQ.L #0x8,A7 000225b8 4e ba fc e6 |N | JSR 0x222a0 000225bc 22 79 00 02 4a a2 |"y J | MOVEA.L 0x24aa2,A1 000225c2 10 29 00 05 | ) | MOVE.B (A1+0x5),D0 000225c6 0c 00 00 45 | E | CMPI.B #0x45,D0 000225ca 66 4c |fL | BNE 0x22618 000225cc 42 80 |B | CLR.L D0 000225ce 10 29 00 03 | ) | MOVE.B (A1+0x3),D0 000225d2 0c 80 00 00 00 03 | | CMPI.L #0x00000003,D0 000225d8 63 3e |c> | BLS 0x22618 000225da 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000225e0 9e fc 00 0e | | SUBA.W #0xe,A7 000225e4 22 4f |"O | MOVEA.L A7,A1 000225e6 45 fa e4 d4 |E | LEA.L 0x20abc,A2 000225ea 70 0c |p | MOVEQ.L #0x0c,D0 000225ec 12 da | | MOVE.B (A2)+,(A1)+ 000225ee 51 c8 ff fc |Q | DBF D0,0x225ec 000225f2 59 4f |YO | SUBQ.L #0x4,A7 000225f4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000225f8 3f 02 |? | MOVE.W D2,-(A7) 000225fa 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 000225fe 4e 93 |N | JSR (A3) 00022600 50 4f |PO | ADDQ.L #0x8,A7 00022602 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00022608 de fc 00 0e | | ADDA.W #0xe,A7 0002260c 2e b9 00 02 4a a2 |. J | MOVE.L 0x24aa2,(A7) 00022612 4e ba f8 7a |N z | JSR 0x21e8e 00022616 58 4f |XO | ADDQ.L #0x4,A7 00022618 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002261e 42 80 |B | CLR.L D0 00022620 10 28 00 03 | ( | MOVE.B (A0+0x3),D0 00022624 90 46 | F | SUB.W D6,D0 00022626 41 bc 00 ff |A | CHK.W #0xff,D0 0002262a 11 40 00 03 | @ | MOVE.B D0,(A0+0x3) 0002262e 2f 14 |/ | MOVE.L (A4),-(A7) 00022630 4e ba f8 5c |N \ | JSR 0x21e8e 00022634 58 4f |XO | ADDQ.L #0x4,A7 00022636 48 54 |HT | PEA.L (A4) 00022638 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002263e 58 4f |XO | ADDQ.L #0x4,A7 00022640 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022644 4e 5e |N^ | UNLK A6 00022646 4e 75 |Nu | RTS 00022648 ; -------------------------------------------------------------------------------------- 00022648 ; OMSI PASCAL Function 00022648 ; -------------------------------------------------------------------------------------- 00022648 4e 56 ff a4 |NV | LINK.W A6,#0xffa4 0002264c bf d5 | | CMPA.L (A5),A7 0002264e 62 06 |b | BHI 0x22656 00022650 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022654 4e 76 |Nv | TRAPV 00022656 de fc 00 58 | X | ADDA.W #0x58,A7 0002265a 48 e7 c0 e8 |H | MOVEM.L A4+A2+A1+A0+D1+D0,-(A7) 0002265e 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00022664 72 01 |r | MOVEQ.L #0x01,D1 00022666 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 0002266c 67 26 |g& | BEQ 0x22694 0002266e 41 fa e4 8c |A | LEA.L 0x20afc,A0 00022672 70 06 |p | MOVEQ.L #0x06,D0 00022674 3f 20 |? | MOVE.W -(A0),-(A7) 00022676 51 c8 ff fc |Q | DBF D0,0x22674 0002267a 59 4f |YO | SUBQ.L #0x4,A7 0002267c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022680 3f 01 |? | MOVE.W D1,-(A7) 00022682 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00022686 4e 92 |N | JSR (A2) 00022688 50 4f |PO | ADDQ.L #0x8,A7 0002268a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022690 de fc 00 12 | | ADDA.W #0x12,A7 00022694 2f 3a e4 40 |/: @ | MOVE.L 0x20ad6,-(A7) 00022698 2f 3a e4 38 |/: 8 | MOVE.L 0x20ad2,-(A7) 0002269c 2f 3a e4 30 |/: 0 | MOVE.L 0x20ace,-(A7) 000226a0 2f 3a e4 28 |/: ( | MOVE.L 0x20aca,-(A7) 000226a4 9e fc 00 14 | | SUBA.W #0x14,A7 000226a8 20 4f | O | MOVEA.L A7,A0 000226aa 43 fa e4 2e |C . | LEA.L 0x20ada,A1 000226ae 70 12 |p | MOVEQ.L #0x12,D0 000226b0 10 d9 | | MOVE.B (A1)+,(A0)+ 000226b2 51 c8 ff fc |Q | DBF D0,0x226b0 000226b6 51 4f |QO | SUBQ.L #0x8,A7 000226b8 48 6f 00 1c |Ho | PEA.L (A7+0x1c) 000226bc 3f 01 |? | MOVE.W D1,-(A7) 000226be 3f 3c 00 10 |?< | MOVE.W #0x10,-(A7) 000226c2 4e 92 |N | JSR (A2) 000226c4 58 4f |XO | ADDQ.L #0x4,A7 000226c6 2e b9 00 02 42 6a |. Bj | MOVE.L 0x2426a,(A7) 000226cc 59 4f |YO | SUBQ.L #0x4,A7 000226ce 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000226d2 3f 01 |? | MOVE.W D1,-(A7) 000226d4 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 000226d8 4e 92 |N | JSR (A2) 000226da 50 4f |PO | ADDQ.L #0x8,A7 000226dc 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 000226e2 de fc 00 0c | | ADDA.W #0xc,A7 000226e6 28 5f |(_ | MOVEA.L (A7)+,A4 000226e8 de fc 00 24 | $ | ADDA.W #0x24,A7 000226ec 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000226f2 2f 0c |/ | MOVE.L A4,-(A7) 000226f4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000226fa 58 4f |XO | ADDQ.L #0x4,A7 000226fc 4c df 17 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A4 00022700 4e 5e |N^ | UNLK A6 00022702 4e 75 |Nu | RTS 00022704 ; -------------------------------------------------------------------------------------- 00022704 ; OMSI PASCAL Function 00022704 ; <LVAR -0x006 2(rw)> 00022704 ; <LVAR -0x00e @ 4(r)> 00022704 ; -------------------------------------------------------------------------------------- 00022704 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00022708 bf d5 | | CMPA.L (A5),A7 0002270a 62 06 |b | BHI 0x22712 0002270c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022710 4e 76 |Nv | TRAPV 00022712 de fc 00 4c | L | ADDA.W #0x4c,A7 00022716 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 0002271a 45 f9 00 02 42 8c |E B | LEA.L 0x2428c,A2 00022720 47 ee ff f2 |G | LEA.L (A6-0xe),A3 00022724 24 3c 00 00 00 ff |$< | MOVE.L #0xff,D2 0002272a 76 7d |v} | MOVEQ.L #0x7d,D3 0002272c 78 20 |x | MOVEQ.L #0x20,D4 0002272e 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 00022734 67 28 |g( | BEQ 0x2275e 00022736 2f 3a e3 c8 |/: | MOVE.L 0x20b00,-(A7) 0002273a 2f 3a e3 c0 |/: | MOVE.L 0x20afc,-(A7) 0002273e 59 4f |YO | SUBQ.L #0x4,A7 00022740 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022744 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022748 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 0002274c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022752 50 4f |PO | ADDQ.L #0x8,A7 00022754 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002275a de fc 00 0c | | ADDA.W #0xc,A7 0002275e 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00022764 42 27 |B' | CLR.B -(A7) 00022766 48 78 00 00 |Hx | PEA.L 0x0 0002276a 4e ba f0 50 |N P | JSR 0x217bc 0002276e 5c 4f |\O | ADDQ.L #0x6,A7 00022770 48 53 |HS | PEA.L (A3) 00022772 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022778 58 4f |XO | ADDQ.L #0x4,A7 0002277a 42 52 |BR | CLR.W (A2) 0002277c 20 53 | S | MOVEA.L (A3),A0 0002277e 11 7c 00 01 00 02 | | | MOVE.B #0x01,(A0+0x2) 00022784 11 7c 00 2d 00 03 | | - | MOVE.B #0x2d,(A0+0x3) 0002278a 30 12 |0 | MOVE.W (A2),D0 0002278c 48 c0 |H | EXTW.L D0 0002278e d0 84 | | ADD.L D4,D0 00022790 b0 82 | | CMP.L D2,D0 00022792 63 02 |c | BLS 0x22796 00022794 4e 4f |NO | TRAP #15 00022796 11 40 00 04 | @ | MOVE.B D0,(A0+0x4) 0002279a 11 7c 00 53 00 05 | | S | MOVE.B #0x53,(A0+0x5) 000227a0 11 7c 00 7e 00 06 | | ~ | MOVE.B #0x7e,(A0+0x6) 000227a6 11 7c 00 25 00 07 | | % | MOVE.B #0x25,(A0+0x7) 000227ac 11 44 00 08 | D | MOVE.B D4,(A0+0x8) 000227b0 11 44 00 09 | D | MOVE.B D4,(A0+0x9) 000227b4 11 7c 00 2d 00 0a | | - | MOVE.B #0x2d,(A0+0xa) 000227ba 11 7c 00 23 00 0b | | # | MOVE.B #0x23,(A0+0xb) 000227c0 11 7c 00 26 00 0c | | & | MOVE.B #0x26,(A0+0xc) 000227c6 11 7c 00 31 00 0d | | 1 | MOVE.B #0x31,(A0+0xd) 000227cc 11 44 00 0e | D | MOVE.B D4,(A0+0xe) 000227d0 11 7c 00 28 00 0f | | ( | MOVE.B #0x28,(A0+0xf) 000227d6 2f 13 |/ | MOVE.L (A3),-(A7) 000227d8 4e ba f2 62 |N b | JSR 0x21a3c 000227dc 58 4f |XO | ADDQ.L #0x4,A7 000227de 11 79 00 02 42 89 00 10 | y B | MOVE.B 0x24289,(A0+0x10) 000227e6 11 7c 00 0d 00 11 | | | MOVE.B #0x0d,(A0+0x11) 000227ec 1f 3c 00 53 | < S | MOVE.B #0x53,-(A7) 000227f0 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 000227f6 54 4f |TO | ADDQ.L #0x2,A7 000227f8 2f 13 |/ | MOVE.L (A3),-(A7) 000227fa 48 78 00 05 |Hx | PEA.L 0x5 000227fe 4e ba f8 da |N | JSR 0x220da 00022802 50 4f |PO | ADDQ.L #0x8,A7 00022804 4a 39 00 02 42 65 |J9 Be | TST.B 0x24265 0002280a 67 04 |g | BEQ 0x22810 0002280c 60 00 05 00 |` | BRA 0x22d0e 00022810 30 12 |0 | MOVE.W (A2),D0 00022812 0c 40 00 3f | @ ? | CMPI.W #0x003f,D0 00022816 6c 1e |l | BGE 0x22836 00022818 48 c0 |H | EXTW.L D0 0002281a 52 80 |R | ADDQ.L #0x1,D0 0002281c 04 80 ff ff 80 00 | | SUBI.L #0xffff8000,D0 00022822 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022828 63 02 |c | BLS 0x2282c 0002282a 4e 4f |NO | TRAP #15 0002282c 06 80 ff ff 80 00 | | ADDI.L #0xffff8000,D0 00022832 34 80 |4 | MOVE.W D0,(A2) 00022834 60 02 |` | BRA 0x22838 00022836 42 52 |BR | CLR.W (A2) 00022838 20 79 00 02 42 78 | y Bx | MOVEA.L 0x24278,A0 0002283e 10 28 00 3f | ( ? | MOVE.B (A0+0x3f),D0 00022842 ed 08 | | LSL.B #0x6,D0 00022844 ee 08 | | LSR.B #0x7,D0 00022846 66 0a |f | BNE 0x22852 00022848 10 28 00 3f | ( ? | MOVE.B (A0+0x3f),D0 0002284c eb 08 | | LSL.B #0x5,D0 0002284e ee 08 | | LSR.B #0x7,D0 00022850 67 0a |g | BEQ 0x2285c 00022852 13 fc 00 02 00 02 42 73 | Bs| MOVE.B #0x02,0x24273 0002285a 60 08 |` | BRA 0x22864 0002285c 13 fc 00 01 00 02 42 73 | Bs| MOVE.B #0x01,0x24273 00022864 20 79 00 02 42 78 | y Bx | MOVEA.L 0x24278,A0 0002286a 30 28 00 20 |0( | MOVE.W (A0+0x20),D0 0002286e 48 c0 |H | EXTW.L D0 00022870 23 c0 00 02 42 6e |# Bn | MOVE.L D0,0x2426e 00022876 20 53 | S | MOVEA.L (A3),A0 00022878 30 12 |0 | MOVE.W (A2),D0 0002287a 48 c0 |H | EXTW.L D0 0002287c d0 84 | | ADD.L D4,D0 0002287e b0 82 | | CMP.L D2,D0 00022880 63 02 |c | BLS 0x22884 00022882 4e 4f |NO | TRAP #15 00022884 11 40 00 04 | @ | MOVE.B D0,(A0+0x4) 00022888 11 7c 00 46 00 05 | | F | MOVE.B #0x46,(A0+0x5) 0002288e 20 79 00 02 42 6a | y Bj | MOVEA.L 0x2426a,A0 00022894 3f 10 |? | MOVE.W (A0),-(A7) 00022896 7e 01 |~ | MOVEQ.L #0x01,D7 00022898 be 57 | W | CMP.W (A7),D7 0002289a 6e 08 |n | BGT 0x228a4 0002289c 30 17 |0 | MOVE.W (A7),D0 0002289e b0 42 | B | CMP.W D2,D0 000228a0 6f 02 |o | BLE 0x228a4 000228a2 4e 4f |NO | TRAP #15 000228a4 be 57 | W | CMP.W (A7),D7 000228a6 6e 20 |n | BGT 0x228c8 000228a8 20 53 | S | MOVEA.L (A3),A0 000228aa 30 07 |0 | MOVE.W D7,D0 000228ac 58 40 |X@ | ADDQ.W #0x4,D0 000228ae 53 40 |S@ | SUBQ.W #0x1,D0 000228b0 41 83 |A | CHK.W D3,D0 000228b2 22 79 00 02 42 6a |"y Bj | MOVEA.L 0x2426a,A1 000228b8 32 07 |2 | MOVE.W D7,D1 000228ba 53 41 |SA | SUBQ.W #0x1,D1 000228bc 43 83 |C | CHK.W D3,D1 000228be 11 b1 10 02 00 02 | | MOVE.B (A1+D1.W+#0x2),(A0+D0.W+#0x2) 000228c4 52 47 |RG | ADDQ.W #0x1,D7 000228c6 68 dc |h | BVC 0x228a4 000228c8 54 4f |TO | ADDQ.L #0x2,A7 000228ca 20 53 | S | MOVEA.L (A3),A0 000228cc 30 07 |0 | MOVE.W D7,D0 000228ce 06 40 00 22 | @ " | ADDI.W #0x0022,D0 000228d2 41 82 |A | CHK.W D2,D0 000228d4 11 40 00 03 | @ | MOVE.B D0,(A0+0x3) 000228d8 2f 13 |/ | MOVE.L (A3),-(A7) 000228da 4e ba f1 60 |N ` | JSR 0x21a3c 000228de 58 4f |XO | ADDQ.L #0x4,A7 000228e0 30 07 |0 | MOVE.W D7,D0 000228e2 58 40 |X@ | ADDQ.W #0x4,D0 000228e4 53 40 |S@ | SUBQ.W #0x1,D0 000228e6 41 83 |A | CHK.W D3,D0 000228e8 11 b9 00 02 42 89 00 02 | B | MOVE.B 0x24289,(A0+D0.W+#0x2) 000228f0 30 07 |0 | MOVE.W D7,D0 000228f2 5a 40 |Z@ | ADDQ.W #0x5,D0 000228f4 53 40 |S@ | SUBQ.W #0x1,D0 000228f6 41 83 |A | CHK.W D3,D0 000228f8 11 bc 00 0d 00 02 | | MOVE.B #0x0d,(A0+D0.W+#0x2) 000228fe 1f 3c 00 46 | < F | MOVE.B #0x46,-(A7) 00022902 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00022908 54 4f |TO | ADDQ.L #0x2,A7 0002290a 2f 13 |/ | MOVE.L (A3),-(A7) 0002290c 48 78 00 05 |Hx | PEA.L 0x5 00022910 4e ba f7 c8 |N | JSR 0x220da 00022914 50 4f |PO | ADDQ.L #0x8,A7 00022916 4a 39 00 02 42 65 |J9 Be | TST.B 0x24265 0002291c 67 04 |g | BEQ 0x22922 0002291e 60 00 03 ee |` | BRA 0x22d0e 00022922 30 12 |0 | MOVE.W (A2),D0 00022924 0c 40 00 3f | @ ? | CMPI.W #0x003f,D0 00022928 6c 1e |l | BGE 0x22948 0002292a 48 c0 |H | EXTW.L D0 0002292c 52 80 |R | ADDQ.L #0x1,D0 0002292e 04 80 ff ff 80 00 | | SUBI.L #0xffff8000,D0 00022934 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 0002293a 63 02 |c | BLS 0x2293e 0002293c 4e 4f |NO | TRAP #15 0002293e 06 80 ff ff 80 00 | | ADDI.L #0xffff8000,D0 00022944 34 80 |4 | MOVE.W D0,(A2) 00022946 60 02 |` | BRA 0x2294a 00022948 42 52 |BR | CLR.W (A2) 0002294a 20 53 | S | MOVEA.L (A3),A0 0002294c 30 12 |0 | MOVE.W (A2),D0 0002294e 48 c0 |H | EXTW.L D0 00022950 d0 84 | | ADD.L D4,D0 00022952 b0 82 | | CMP.L D2,D0 00022954 63 02 |c | BLS 0x22958 00022956 4e 4f |NO | TRAP #15 00022958 11 40 00 04 | @ | MOVE.B D0,(A0+0x4) 0002295c 11 7c 00 41 00 05 | | A | MOVE.B #0x41,(A0+0x5) 00022962 59 4f |YO | SUBQ.L #0x4,A7 00022964 2f 39 00 02 42 6e |/9 Bn | MOVE.L 0x2426e,-(A7) 0002296a 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022970 58 4f |XO | ADDQ.L #0x4,A7 00022972 28 5f |(_ | MOVEA.L (A7)+,A4 00022974 30 14 |0 | MOVE.W (A4),D0 00022976 48 c0 |H | EXTW.L D0 00022978 50 80 |P | ADDQ.L #0x8,D0 0002297a d0 84 | | ADD.L D4,D0 0002297c b0 82 | | CMP.L D2,D0 0002297e 63 02 |c | BLS 0x22982 00022980 4e 4f |NO | TRAP #15 00022982 11 40 00 03 | @ | MOVE.B D0,(A0+0x3) 00022986 11 7c 00 22 00 06 | | " | MOVE.B #0x22,(A0+0x6) 0002298c 11 7c 00 31 00 07 | | 1 | MOVE.B #0x31,(A0+0x7) 00022992 10 39 00 02 42 73 | 9 Bs | MOVE.B 0x24273,D0 00022998 0c 00 00 01 | | CMPI.B #0x01,D0 0002299c 66 08 |f | BNE 0x229a6 0002299e 11 7c 00 41 00 08 | | A | MOVE.B #0x41,(A0+0x8) 000229a4 60 06 |` | BRA 0x229ac 000229a6 11 7c 00 42 00 08 | | B | MOVE.B #0x42,(A0+0x8) 000229ac 20 53 | S | MOVEA.L (A3),A0 000229ae 11 7c 00 21 00 09 | | ! | MOVE.B #0x21,(A0+0x9) 000229b4 30 14 |0 | MOVE.W (A4),D0 000229b6 48 c0 |H | EXTW.L D0 000229b8 06 80 00 00 00 30 | 0 | ADDI.L #0x00000030,D0 000229be b0 82 | | CMP.L D2,D0 000229c0 63 02 |c | BLS 0x229c4 000229c2 4e 4f |NO | TRAP #15 000229c4 11 40 00 0a | @ | MOVE.B D0,(A0+0xa) 000229c8 3f 14 |? | MOVE.W (A4),-(A7) 000229ca 7e 01 |~ | MOVEQ.L #0x01,D7 000229cc be 57 | W | CMP.W (A7),D7 000229ce 6e 08 |n | BGT 0x229d8 000229d0 30 17 |0 | MOVE.W (A7),D0 000229d2 b0 42 | B | CMP.W D2,D0 000229d4 6f 02 |o | BLE 0x229d8 000229d6 4e 4f |NO | TRAP #15 000229d8 be 57 | W | CMP.W (A7),D7 000229da 6e 1a |n | BGT 0x229f6 000229dc 20 53 | S | MOVEA.L (A3),A0 000229de 70 09 |p | MOVEQ.L #0x09,D0 000229e0 d0 47 | G | ADD.W D7,D0 000229e2 53 40 |S@ | SUBQ.W #0x1,D0 000229e4 41 83 |A | CHK.W D3,D0 000229e6 32 07 |2 | MOVE.W D7,D1 000229e8 53 41 |SA | SUBQ.W #0x1,D1 000229ea 43 83 |C | CHK.W D3,D1 000229ec 11 b4 10 02 00 02 | | MOVE.B (A4+D1.W+#0x2),(A0+D0.W+#0x2) 000229f2 52 47 |RG | ADDQ.W #0x1,D7 000229f4 68 e2 |h | BVC 0x229d8 000229f6 54 4f |TO | ADDQ.L #0x2,A7 000229f8 2f 13 |/ | MOVE.L (A3),-(A7) 000229fa 4e ba f0 40 |N @ | JSR 0x21a3c 000229fe 58 4f |XO | ADDQ.L #0x4,A7 00022a00 20 53 | S | MOVEA.L (A3),A0 00022a02 70 09 |p | MOVEQ.L #0x09,D0 00022a04 d0 47 | G | ADD.W D7,D0 00022a06 53 40 |S@ | SUBQ.W #0x1,D0 00022a08 41 83 |A | CHK.W D3,D0 00022a0a 11 b9 00 02 42 89 00 02 | B | MOVE.B 0x24289,(A0+D0.W+#0x2) 00022a12 70 0a |p | MOVEQ.L #0x0a,D0 00022a14 d0 47 | G | ADD.W D7,D0 00022a16 53 40 |S@ | SUBQ.W #0x1,D0 00022a18 41 83 |A | CHK.W D3,D0 00022a1a 11 bc 00 0d 00 02 | | MOVE.B #0x0d,(A0+D0.W+#0x2) 00022a20 1f 3c 00 41 | < A | MOVE.B #0x41,-(A7) 00022a24 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00022a2a 54 4f |TO | ADDQ.L #0x2,A7 00022a2c 2f 13 |/ | MOVE.L (A3),-(A7) 00022a2e 48 78 00 05 |Hx | PEA.L 0x5 00022a32 4e ba f6 a6 |N | JSR 0x220da 00022a36 50 4f |PO | ADDQ.L #0x8,A7 00022a38 4a 39 00 02 42 65 |J9 Be | TST.B 0x24265 00022a3e 67 04 |g | BEQ 0x22a44 00022a40 60 00 02 cc |` | BRA 0x22d0e 00022a44 30 12 |0 | MOVE.W (A2),D0 00022a46 0c 40 00 3f | @ ? | CMPI.W #0x003f,D0 00022a4a 6c 1e |l | BGE 0x22a6a 00022a4c 48 c0 |H | EXTW.L D0 00022a4e 52 80 |R | ADDQ.L #0x1,D0 00022a50 04 80 ff ff 80 00 | | SUBI.L #0xffff8000,D0 00022a56 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022a5c 63 02 |c | BLS 0x22a60 00022a5e 4e 4f |NO | TRAP #15 00022a60 06 80 ff ff 80 00 | | ADDI.L #0xffff8000,D0 00022a66 34 80 |4 | MOVE.W D0,(A2) 00022a68 60 02 |` | BRA 0x22a6c 00022a6a 42 52 |BR | CLR.W (A2) 00022a6c 41 f9 00 02 42 92 |A B | LEA.L 0x24292,A0 00022a72 2f 08 |/ | MOVE.L A0,-(A7) 00022a74 23 df 00 02 4a 92 |# J | MOVE.L (A7)+,0x24a92 00022a7a 20 53 | S | MOVEA.L (A3),A0 00022a7c 11 7c 00 44 00 05 | | D | MOVE.B #0x44,(A0+0x5) 00022a82 2a 3c 00 00 04 00 |*< | MOVE.L #0x400,D5 00022a88 42 79 00 02 42 74 |By Bt | CLR.W 0x24274 00022a8e 20 53 | S | MOVEA.L (A3),A0 00022a90 30 12 |0 | MOVE.W (A2),D0 00022a92 48 c0 |H | EXTW.L D0 00022a94 d0 84 | | ADD.L D4,D0 00022a96 b0 82 | | CMP.L D2,D0 00022a98 63 02 |c | BLS 0x22a9c 00022a9a 4e 4f |NO | TRAP #15 00022a9c 11 40 00 04 | @ | MOVE.B D0,(A0+0x4) 00022aa0 7c 05 || | MOVEQ.L #0x05,D6 00022aa2 0c 85 00 00 04 00 | | CMPI.L #0x00000400,D5 00022aa8 66 00 00 8e |f | BNE 0x22b38 00022aac 30 39 00 02 42 74 |09 Bt | MOVE.W 0x24274,D0 00022ab2 48 c0 |H | EXTW.L D0 00022ab4 b0 b9 00 02 42 6e | Bn | CMP.L 0x2426e,D0 00022aba 66 10 |f | BNE 0x22acc 00022abc 0c 46 00 05 | F | CMPI.W #0x0005,D6 00022ac0 66 06 |f | BNE 0x22ac8 00022ac2 60 00 01 f4 |` | BRA 0x22cb8 00022ac6 60 04 |` | .XXX[0x2] 00022ac8 60 00 01 6c |` l | BRA 0x22c36 00022acc 2f 39 00 02 42 78 |/9 Bx | MOVE.L 0x24278,-(A7) 00022ad2 30 39 00 02 42 74 |09 Bt | MOVE.W 0x24274,D0 00022ad8 41 bc 40 00 |A @ | CHK.W #0x4000,D0 00022adc 3f 00 |? | MOVE.W D0,-(A7) 00022ade 42 67 |Bg | CLR.W -(A7) 00022ae0 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 00022ae4 42 27 |B' | CLR.B -(A7) 00022ae6 2f 39 00 02 4a 92 |/9 J | MOVE.L 0x24a92,-(A7) 00022aec 48 79 00 02 42 76 |Hy Bv | PEA.L 0x24276 00022af2 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 00022af8 de fc 00 14 | | ADDA.W #0x14,A7 00022afc 4a 39 00 02 42 76 |J9 Bv | TST.B 0x24276 00022b02 67 0c |g | BEQ 0x22b10 00022b04 13 fc 00 01 00 02 42 65 | Be| MOVE.B #0x01,0x24265 00022b0c 60 00 02 00 |` | BRA 0x22d0e 00022b10 30 39 00 02 42 74 |09 Bt | MOVE.W 0x24274,D0 00022b16 48 c0 |H | EXTW.L D0 00022b18 52 80 |R | ADDQ.L #0x1,D0 00022b1a 04 80 ff ff 80 00 | | SUBI.L #0xffff8000,D0 00022b20 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022b26 63 02 |c | BLS 0x22b2a 00022b28 4e 4f |NO | TRAP #15 00022b2a 06 80 ff ff 80 00 | | ADDI.L #0xffff8000,D0 00022b30 33 c0 00 02 42 74 |3 Bt | MOVE.W D0,0x24274 00022b36 7a 00 |z | MOVEQ.L #0x00,D5 00022b38 0c 85 00 00 07 ff | | CMPI.L #0x000007ff,D5 00022b3e 63 02 |c | BLS 0x22b42 00022b40 4e 4f |NO | TRAP #15 00022b42 41 f9 00 02 42 5c |A B\ | LEA.L 0x2425c,A0 00022b48 42 80 |B | CLR.L D0 00022b4a 10 30 58 36 | 0X6 | MOVE.B (A0+D5.L+#0x36),D0 00022b4e 3d 40 ff fa |=@ | MOVE.W D0,(A6-0x6) 00022b52 0c 40 00 7f | @ | CMPI.W #0x007f,D0 00022b56 6f 40 |o@ | BLE 0x22b98 00022b58 10 39 00 02 42 73 | 9 Bs | MOVE.B 0x24273,D0 00022b5e 0c 00 00 02 | | CMPI.B #0x02,D0 00022b62 6c 0c |l | BGE 0x22b70 00022b64 13 fc 00 0c 00 02 42 65 | Be| MOVE.B #0x0c,0x24265 00022b6c 60 00 01 a0 |` | BRA 0x22d0e 00022b70 20 53 | S | MOVEA.L (A3),A0 00022b72 30 06 |0 | MOVE.W D6,D0 00022b74 53 40 |S@ | SUBQ.W #0x1,D0 00022b76 41 83 |A | CHK.W D3,D0 00022b78 11 b9 00 02 42 8b 00 02 | B | MOVE.B 0x2428b,(A0+D0.W+#0x2) 00022b80 30 2e ff fa |0. | MOVE.W (A6-0x6),D0 00022b84 04 40 00 80 | @ | SUBI.W #0x0080,D0 00022b88 41 82 |A | CHK.W D2,D0 00022b8a 3d 40 ff fa |=@ | MOVE.W D0,(A6-0x6) 00022b8e 30 06 |0 | MOVE.W D6,D0 00022b90 52 40 |R@ | ADDQ.W #0x1,D0 00022b92 41 82 |A | CHK.W D2,D0 00022b94 3c 00 |< | MOVE.W D0,D6 00022b96 60 1a |` | BRA 0x22bb2 00022b98 4a 40 |J@ | TST.W D0 00022b9a 66 16 |f | BNE 0x22bb2 00022b9c 10 39 00 02 42 73 | 9 Bs | MOVE.B 0x24273,D0 00022ba2 0c 00 00 01 | | CMPI.B #0x01,D0 00022ba6 66 0a |f | BNE 0x22bb2 00022ba8 2a 3c 00 00 04 00 |*< | MOVE.L #0x400,D5 00022bae 60 00 fe f2 |` | BRA 0x22aa2 00022bb2 30 2e ff fa |0. | MOVE.W (A6-0x6),D0 00022bb6 0c 40 00 7f | @ | CMPI.W #0x007f,D0 00022bba 66 0c |f | BNE 0x22bc8 00022bbc 04 40 00 40 | @ @ | SUBI.W #0x0040,D0 00022bc0 41 82 |A | CHK.W D2,D0 00022bc2 3d 40 ff fa |=@ | MOVE.W D0,(A6-0x6) 00022bc6 60 30 |`0 | BRA 0x22bf8 00022bc8 30 2e ff fa |0. | MOVE.W (A6-0x6),D0 00022bcc b0 44 | D | CMP.W D4,D0 00022bce 6c 08 |l | BGE 0x22bd8 00022bd0 06 40 00 40 | @ @ | ADDI.W #0x0040,D0 00022bd4 41 82 |A | CHK.W D2,D0 00022bd6 60 ea |` | BRA 0x22bc2 00022bd8 42 80 |B | CLR.L D0 00022bda 10 39 00 02 42 8a | 9 B | MOVE.B 0x2428a,D0 00022be0 b0 6e ff fa | n | CMP.W (A6-0x6),D0 00022be4 66 02 |f | BNE 0x22be8 00022be6 60 10 |` | BRA 0x22bf8 00022be8 42 80 |B | CLR.L D0 00022bea 10 39 00 02 42 8b | 9 B | MOVE.B 0x2428b,D0 00022bf0 b0 6e ff fa | n | CMP.W (A6-0x6),D0 00022bf4 67 02 |g | BEQ 0x22bf8 00022bf6 60 18 |` | BRA 0x22c10 00022bf8 20 53 | S | MOVEA.L (A3),A0 00022bfa 30 06 |0 | MOVE.W D6,D0 00022bfc 53 40 |S@ | SUBQ.W #0x1,D0 00022bfe 41 83 |A | CHK.W D3,D0 00022c00 11 b9 00 02 42 8a 00 02 | B | MOVE.B 0x2428a,(A0+D0.W+#0x2) 00022c08 30 06 |0 | MOVE.W D6,D0 00022c0a 52 40 |R@ | ADDQ.W #0x1,D0 00022c0c 41 82 |A | CHK.W D2,D0 00022c0e 3c 00 |< | MOVE.W D0,D6 00022c10 20 53 | S | MOVEA.L (A3),A0 00022c12 30 06 |0 | MOVE.W D6,D0 00022c14 53 40 |S@ | SUBQ.W #0x1,D0 00022c16 41 83 |A | CHK.W D3,D0 00022c18 32 2e ff fa |2. | MOVE.W (A6-0x6),D1 00022c1c 43 82 |C | CHK.W D2,D1 00022c1e 11 81 00 02 | | MOVE.B D1,(A0+D0.W+#0x2) 00022c22 30 06 |0 | MOVE.W D6,D0 00022c24 52 40 |R@ | ADDQ.W #0x1,D0 00022c26 41 82 |A | CHK.W D2,D0 00022c28 3c 00 |< | MOVE.W D0,D6 00022c2a 52 85 |R | ADDQ.L #0x1,D5 00022c2c 0c 46 00 5e | F ^ | CMPI.W #0x005e,D6 00022c30 6c 04 |l | BGE 0x22c36 00022c32 60 00 fe 6e |` n | BRA 0x22aa2 00022c36 20 53 | S | MOVEA.L (A3),A0 00022c38 30 06 |0 | MOVE.W D6,D0 00022c3a 55 40 |U@ | SUBQ.W #0x2,D0 00022c3c d0 44 | D | ADD.W D4,D0 00022c3e 41 82 |A | CHK.W D2,D0 00022c40 11 40 00 03 | @ | MOVE.B D0,(A0+0x3) 00022c44 2f 13 |/ | MOVE.L (A3),-(A7) 00022c46 4e ba ed f4 |N | JSR 0x21a3c 00022c4a 58 4f |XO | ADDQ.L #0x4,A7 00022c4c 30 06 |0 | MOVE.W D6,D0 00022c4e 53 40 |S@ | SUBQ.W #0x1,D0 00022c50 41 83 |A | CHK.W D3,D0 00022c52 11 b9 00 02 42 89 00 02 | B | MOVE.B 0x24289,(A0+D0.W+#0x2) 00022c5a 30 06 |0 | MOVE.W D6,D0 00022c5c 52 40 |R@ | ADDQ.W #0x1,D0 00022c5e 53 40 |S@ | SUBQ.W #0x1,D0 00022c60 41 83 |A | CHK.W D3,D0 00022c62 11 bc 00 0d 00 02 | | MOVE.B #0x0d,(A0+D0.W+#0x2) 00022c68 1f 3c 00 44 | < D | MOVE.B #0x44,-(A7) 00022c6c 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00022c72 54 4f |TO | ADDQ.L #0x2,A7 00022c74 2f 13 |/ | MOVE.L (A3),-(A7) 00022c76 48 78 00 05 |Hx | PEA.L 0x5 00022c7a 4e ba f4 5e |N ^ | JSR 0x220da 00022c7e 50 4f |PO | ADDQ.L #0x8,A7 00022c80 4a 39 00 02 42 65 |J9 Be | TST.B 0x24265 00022c86 67 04 |g | BEQ 0x22c8c 00022c88 60 00 00 84 |` | BRA 0x22d0e 00022c8c 30 12 |0 | MOVE.W (A2),D0 00022c8e 0c 40 00 3f | @ ? | CMPI.W #0x003f,D0 00022c92 6c 1e |l | BGE 0x22cb2 00022c94 48 c0 |H | EXTW.L D0 00022c96 52 80 |R | ADDQ.L #0x1,D0 00022c98 04 80 ff ff 80 00 | | SUBI.L #0xffff8000,D0 00022c9e 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022ca4 63 02 |c | BLS 0x22ca8 00022ca6 4e 4f |NO | TRAP #15 00022ca8 06 80 ff ff 80 00 | | ADDI.L #0xffff8000,D0 00022cae 34 80 |4 | MOVE.W D0,(A2) 00022cb0 60 02 |` | BRA 0x22cb4 00022cb2 42 52 |BR | CLR.W (A2) 00022cb4 60 00 fd d8 |` | BRA 0x22a8e 00022cb8 20 53 | S | MOVEA.L (A3),A0 00022cba 30 12 |0 | MOVE.W (A2),D0 00022cbc 48 c0 |H | EXTW.L D0 00022cbe d0 84 | | ADD.L D4,D0 00022cc0 b0 82 | | CMP.L D2,D0 00022cc2 63 02 |c | BLS 0x22cc6 00022cc4 4e 4f |NO | TRAP #15 00022cc6 11 40 00 04 | @ | MOVE.B D0,(A0+0x4) 00022cca 11 7c 00 5a 00 05 | | Z | MOVE.B #0x5a,(A0+0x5) 00022cd0 11 7c 00 23 00 03 | | # | MOVE.B #0x23,(A0+0x3) 00022cd6 2f 13 |/ | MOVE.L (A3),-(A7) 00022cd8 4e ba ed 62 |N b | JSR 0x21a3c 00022cdc 58 4f |XO | ADDQ.L #0x4,A7 00022cde 11 79 00 02 42 89 00 06 | y B | MOVE.B 0x24289,(A0+0x6) 00022ce6 11 7c 00 0d 00 07 | | | MOVE.B #0x0d,(A0+0x7) 00022cec 1f 3c 00 5a | < Z | MOVE.B #0x5a,-(A7) 00022cf0 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00022cf6 54 4f |TO | ADDQ.L #0x2,A7 00022cf8 2f 13 |/ | MOVE.L (A3),-(A7) 00022cfa 48 78 00 05 |Hx | PEA.L 0x5 00022cfe 4e ba f3 da |N | JSR 0x220da 00022d02 50 4f |PO | ADDQ.L #0x8,A7 00022d04 4e ba f5 9a |N | JSR 0x222a0 00022d08 4e ba f9 3e |N > | JSR 0x22648 00022d0c 60 1a |` | BRA 0x22d28 00022d0e 1f 39 00 02 42 65 | 9 Be | MOVE.B 0x24265,-(A7) 00022d14 10 39 00 02 42 76 | 9 Bv | MOVE.B 0x24276,D0 00022d1a 48 80 |H | EXTB.W D0 00022d1c 41 bc 00 0f |A | CHK.W #0xf,D0 00022d20 1f 00 | | MOVE.B D0,-(A7) 00022d22 4e ba f6 fc |N | JSR 0x22420 00022d26 58 4f |XO | ADDQ.L #0x4,A7 00022d28 48 53 |HS | PEA.L (A3) 00022d2a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022d30 58 4f |XO | ADDQ.L #0x4,A7 00022d32 4a 39 00 02 42 72 |J9 Br | TST.B 0x24272 00022d38 67 24 |g$ | BEQ 0x22d5e 00022d3a 42 27 |B' | CLR.B -(A7) 00022d3c 42 27 |B' | CLR.B -(A7) 00022d3e 48 78 00 01 |Hx | PEA.L 0x1 00022d42 48 79 00 02 42 76 |Hy Bv | PEA.L 0x24276 00022d48 48 79 00 02 42 78 |Hy Bx | PEA.L 0x24278 00022d4e 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00022d54 de fc 00 10 | | ADDA.W #0x10,A7 00022d58 42 39 00 02 42 72 |B9 Br | CLR.B 0x24272 00022d5e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022d62 4e 5e |N^ | UNLK A6 00022d64 4e 75 |Nu | RTS 00022d66 ; -------------------------------------------------------------------------------------- 00022d66 ; OMSI PASCAL Function 00022d66 ; <LVAR -0x004 4(rw)> 00022d66 ; <LVAR -0x006 @ 1(r)> 00022d66 ; <LVAR -0x014 @ 1(r)> 00022d66 ; <LVAR -0x018 @ 4(r)> 00022d66 ; <LVAR -0x01c @ 4(r)> 00022d66 ; -------------------------------------------------------------------------------------- 00022d66 4e 56 ff 90 |NV | LINK.W A6,#0xff90 00022d6a bf d5 | | CMPA.L (A5),A7 00022d6c 62 06 |b | BHI 0x22d74 00022d6e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022d72 4e 76 |Nv | TRAPV 00022d74 de fc 00 50 | P | ADDA.W #0x50,A7 00022d78 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00022d7c 45 f9 00 02 4a a2 |E J | LEA.L 0x24aa2,A2 00022d82 47 f9 00 02 42 65 |G Be | LEA.L 0x24265,A3 00022d88 49 f9 00 02 42 8e |I B | LEA.L 0x2428e,A4 00022d8e 74 01 |t | MOVEQ.L #0x01,D2 00022d90 26 3c ff ff 80 00 |&< | MOVE.L #0xffff8000,D3 00022d96 78 0d |x | MOVEQ.L #0x0d,D4 00022d98 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 00022d9e 67 30 |g0 | BEQ 0x22dd0 00022da0 9e fc 00 0c | | SUBA.W #0xc,A7 00022da4 20 4f | O | MOVEA.L A7,A0 00022da6 43 fa dd 5c |C \ | LEA.L 0x20b04,A1 00022daa 70 0a |p | MOVEQ.L #0x0a,D0 00022dac 10 d9 | | MOVE.B (A1)+,(A0)+ 00022dae 51 c8 ff fc |Q | DBF D0,0x22dac 00022db2 59 4f |YO | SUBQ.L #0x4,A7 00022db4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022db8 3f 02 |? | MOVE.W D2,-(A7) 00022dba 3f 3c 00 0b |?< | MOVE.W #0xb,-(A7) 00022dbe 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022dc4 50 4f |PO | ADDQ.L #0x8,A7 00022dc6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022dcc de fc 00 10 | | ADDA.W #0x10,A7 00022dd0 42 2e ff ec |B. | CLR.B (A6-0x14) 00022dd4 33 fc ff ff 00 02 42 8c |3 B | MOVE.W #0xffff,0x2428c 00022ddc 18 bc 00 42 | B | MOVE.B #0x42,(A4) 00022de0 42 39 00 02 42 72 |B9 Br | CLR.B 0x24272 00022de6 10 14 | | MOVE.B (A4),D0 00022de8 0c 00 00 42 | B | CMPI.B #0x42,D0 00022dec 66 0a |f | BNE 0x22df8 00022dee 2d 7c 00 00 00 78 ff fc |-| x | MOVE.L #0x78,(A6-0x4) 00022df6 60 08 |` | BRA 0x22e00 00022df8 2d 7c 00 00 00 0a ff fc |-| | MOVE.L #0xa,(A6-0x4) 00022e00 42 27 |B' | CLR.B -(A7) 00022e02 2f 2e ff fc |/. | MOVE.L (A6-0x4),-(A7) 00022e06 4e ba e9 b4 |N | JSR 0x217bc 00022e0a 5c 4f |\O | ADDQ.L #0x6,A7 00022e0c 4a 13 |J | TST.B (A3) 00022e0e 6f 04 |o | BLE 0x22e14 00022e10 60 00 07 94 |` | BRA 0x235a6 00022e14 20 52 | R | MOVEA.L (A2),A0 00022e16 42 80 |B | CLR.L D0 00022e18 10 28 00 02 | ( | MOVE.B (A0+0x2),D0 00022e1c b0 82 | | CMP.L D2,D0 00022e1e 67 10 |g | BEQ 0x22e30 00022e20 16 bc 00 11 | | MOVE.B #0x11,(A3) 00022e24 b0 84 | | CMP.L D4,D0 00022e26 66 04 |f | BNE 0x22e2c 00022e28 60 00 07 7c |` | | BRA 0x235a6 00022e2c 60 00 07 60 |` ` | BRA 0x2358e 00022e30 2f 12 |/ | MOVE.L (A2),-(A7) 00022e32 4e ba ec 08 |N | JSR 0x21a3c 00022e36 58 4f |XO | ADDQ.L #0x4,A7 00022e38 4a 39 00 02 42 66 |J9 Bf | TST.B 0x24266 00022e3e 6f 04 |o | BLE 0x22e44 00022e40 60 00 07 4c |` L | BRA 0x2358e 00022e44 2f 12 |/ | MOVE.L (A2),-(A7) 00022e46 4e ba ed f6 |N | JSR 0x21c3e 00022e4a 58 4f |XO | ADDQ.L #0x4,A7 00022e4c 20 52 | R | MOVEA.L (A2),A0 00022e4e 10 28 00 05 | ( | MOVE.B (A0+0x5),D0 00022e52 0c 00 00 53 | S | CMPI.B #0x53,D0 00022e56 66 06 |f | BNE 0x22e5e 00022e58 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00022e5e 20 52 | R | MOVEA.L (A2),A0 00022e60 1f 28 00 05 | ( | MOVE.B (A0+0x5),-(A7) 00022e64 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00022e6a 54 4f |TO | ADDQ.L #0x2,A7 00022e6c 10 13 | | MOVE.B (A3),D0 00022e6e 0c 00 00 16 | | CMPI.B #0x16,D0 00022e72 66 04 |f | BNE 0x22e78 00022e74 60 00 07 30 |` 0 | BRA 0x235a6 00022e78 20 52 | R | MOVEA.L (A2),A0 00022e7a 42 80 |B | CLR.L D0 00022e7c 10 28 00 04 | ( | MOVE.B (A0+0x4),D0 00022e80 b0 79 00 02 42 8c | y B | CMP.W 0x2428c,D0 00022e86 66 20 |f | BNE 0x22ea8 00022e88 10 28 00 05 | ( | MOVE.B (A0+0x5),D0 00022e8c b0 14 | | CMP.B (A4),D0 00022e8e 66 18 |f | BNE 0x22ea8 00022e90 4a 39 00 02 42 8f |J9 B | TST.B 0x2428f 00022e96 67 10 |g | BEQ 0x22ea8 00022e98 10 14 | | MOVE.B (A4),D0 00022e9a 0c 00 00 53 | S | CMPI.B #0x53,D0 00022e9e 66 04 |f | BNE 0x22ea4 00022ea0 60 4a |`J | BRA 0x22eec 00022ea2 60 04 |` | .XXX[0x2] 00022ea4 60 00 06 fc |` | BRA 0x235a2 00022ea8 30 39 00 02 42 8c |09 B | MOVE.W 0x2428c,D0 00022eae 0c 40 00 3f | @ ? | CMPI.W #0x003f,D0 00022eb2 6c 1a |l | BGE 0x22ece 00022eb4 48 c0 |H | EXTW.L D0 00022eb6 52 80 |R | ADDQ.L #0x1,D0 00022eb8 90 83 | | SUB.L D3,D0 00022eba 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022ec0 63 02 |c | BLS 0x22ec4 00022ec2 4e 4f |NO | TRAP #15 00022ec4 d0 83 | | ADD.L D3,D0 00022ec6 33 c0 00 02 42 8c |3 B | MOVE.W D0,0x2428c 00022ecc 60 06 |` | BRA 0x22ed4 00022ece 42 79 00 02 42 8c |By B | CLR.W 0x2428c 00022ed4 20 52 | R | MOVEA.L (A2),A0 00022ed6 42 80 |B | CLR.L D0 00022ed8 10 28 00 04 | ( | MOVE.B (A0+0x4),D0 00022edc b0 79 00 02 42 8c | y B | CMP.W 0x2428c,D0 00022ee2 67 08 |g | BEQ 0x22eec 00022ee4 16 bc 00 02 | | MOVE.B #0x02,(A3) 00022ee8 60 00 06 bc |` | BRA 0x235a6 00022eec 20 52 | R | MOVEA.L (A2),A0 00022eee 10 28 00 05 | ( | MOVE.B (A0+0x5),D0 00022ef2 0c 00 00 53 | S | CMPI.B #0x53,D0 00022ef6 66 00 01 12 |f | BNE 0x2300a 00022efa 10 14 | | MOVE.B (A4),D0 00022efc 0c 00 00 42 | B | CMPI.B #0x42,D0 00022f00 67 02 |g | BEQ 0x22f04 00022f02 60 e0 |` | BRA 0x22ee4 00022f04 18 bc 00 53 | S | MOVE.B #0x53,(A4) 00022f08 20 52 | R | MOVEA.L (A2),A0 00022f0a 42 80 |B | CLR.L D0 00022f0c 10 28 00 03 | ( | MOVE.B (A0+0x3),D0 00022f10 b0 84 | | CMP.L D4,D0 00022f12 64 08 |d | BCC 0x22f1c 00022f14 16 bc 00 05 | | MOVE.B #0x05,(A3) 00022f18 60 00 06 8c |` | BRA 0x235a6 00022f1c 20 52 | R | MOVEA.L (A2),A0 00022f1e 42 80 |B | CLR.L D0 00022f20 10 28 00 06 | ( | MOVE.B (A0+0x6),D0 00022f24 0c 80 00 00 00 5e | ^ | CMPI.L #0x0000005e,D0 00022f2a 64 08 |d | BCC 0x22f34 00022f2c 16 bc 00 07 | | MOVE.B #0x07,(A3) 00022f30 60 00 06 74 |` t | BRA 0x235a6 00022f34 20 52 | R | MOVEA.L (A2),A0 00022f36 4a 28 00 08 |J( | TST.B (A0+0x8) 00022f3a 67 08 |g | BEQ 0x22f44 00022f3c 16 bc 00 08 | | MOVE.B #0x08,(A3) 00022f40 60 00 06 64 |` d | BRA 0x235a6 00022f44 20 52 | R | MOVEA.L (A2),A0 00022f46 42 80 |B | CLR.L D0 00022f48 10 28 00 0a | ( | MOVE.B (A0+0xa),D0 00022f4c b0 84 | | CMP.L D4,D0 00022f4e 67 08 |g | BEQ 0x22f58 00022f50 16 bc 00 09 | | MOVE.B #0x09,(A3) 00022f54 60 00 06 50 |` P | BRA 0x235a6 00022f58 20 52 | R | MOVEA.L (A2),A0 00022f5a 13 e8 00 0b 00 02 42 8a | B | MOVE.B (A0+0xb),0x2428a 00022f62 10 28 00 0c | ( | MOVE.B (A0+0xc),D0 00022f66 0c 00 00 4e | N | CMPI.B #0x4e,D0 00022f6a 67 0c |g | BEQ 0x22f78 00022f6c 42 81 |B | CLR.L D1 00022f6e 12 00 | | MOVE.B D0,D1 00022f70 0c 81 00 00 00 20 | | CMPI.L #0x00000020,D1 00022f76 64 08 |d | BCC 0x22f80 00022f78 42 39 00 02 42 88 |B9 B | CLR.B 0x24288 00022f7e 60 06 |` | BRA 0x22f86 00022f80 13 c2 00 02 42 88 | B | MOVE.B D2,0x24288 00022f86 20 52 | R | MOVEA.L (A2),A0 00022f88 42 80 |B | CLR.L D0 00022f8a 10 28 00 0f | ( | MOVE.B (A0+0xf),D0 00022f8e e6 40 | @ | ASR.W #0x3,D0 00022f90 08 00 00 00 | | BTST.L #0x0,D0 00022f94 66 08 |f | BNE 0x22f9e 00022f96 16 bc 00 0a | | MOVE.B #0x0a,(A3) 00022f9a 60 00 06 0a |` | BRA 0x235a6 00022f9e 20 52 | R | MOVEA.L (A2),A0 00022fa0 11 44 00 03 | D | MOVE.B D4,(A0+0x3) 00022fa4 11 7c 00 59 00 05 | | Y | MOVE.B #0x59,(A0+0x5) 00022faa 11 7c 00 5e 00 06 | | ^ | MOVE.B #0x5e,(A0+0x6) 00022fb0 11 7c 00 03 00 07 | | | MOVE.B #0x03,(A0+0x7) 00022fb6 11 7c 00 31 00 0d | | 1 | MOVE.B #0x31,(A0+0xd) 00022fbc 11 79 00 02 42 8b 00 0c | y B | MOVE.B 0x2428b,(A0+0xc) 00022fc4 11 7c 00 20 00 0e | | | MOVE.B #0x20,(A0+0xe) 00022fca 11 7c 00 08 00 0f | | | MOVE.B #0x08,(A0+0xf) 00022fd0 2f 12 |/ | MOVE.L (A2),-(A7) 00022fd2 4e ba eb 8e |N | JSR 0x21b62 00022fd6 2e 92 |. | MOVE.L (A2),(A7) 00022fd8 4e ba ea 62 |N b | JSR 0x21a3c 00022fdc 58 4f |XO | ADDQ.L #0x4,A7 00022fde 20 52 | R | MOVEA.L (A2),A0 00022fe0 11 79 00 02 42 89 00 10 | y B | MOVE.B 0x24289,(A0+0x10) 00022fe8 11 44 00 11 | D | MOVE.B D4,(A0+0x11) 00022fec 2f 12 |/ | MOVE.L (A2),-(A7) 00022fee 48 78 00 05 |Hx | PEA.L 0x5 00022ff2 4e ba f0 e6 |N | JSR 0x220da 00022ff6 50 4f |PO | ADDQ.L #0x8,A7 00022ff8 4a 39 00 02 42 66 |J9 Bf | TST.B 0x24266 00022ffe 67 06 |g | BEQ 0x23006 00023000 16 84 | | MOVE.B D4,(A3) 00023002 60 00 05 a2 |` | BRA 0x235a6 00023006 60 00 fd de |` | BRA 0x22de6 0002300a 20 52 | R | MOVEA.L (A2),A0 0002300c 10 28 00 05 | ( | MOVE.B (A0+0x5),D0 00023010 0c 00 00 46 | F | CMPI.B #0x46,D0 00023014 66 72 |fr | BNE 0x23088 00023016 10 14 | | MOVE.B (A4),D0 00023018 0c 00 00 53 | S | CMPI.B #0x53,D0 0002301c 67 0a |g | BEQ 0x23028 0002301e 0c 00 00 5a | Z | CMPI.B #0x5a,D0 00023022 67 04 |g | BEQ 0x23028 00023024 60 00 fe be |` | BRA 0x22ee4 00023028 18 bc 00 46 | F | MOVE.B #0x46,(A4) 0002302c 42 39 00 02 42 7c |B9 B| | CLR.B 0x2427c 00023032 20 79 00 02 42 6a | y Bj | MOVEA.L 0x2426a,A0 00023038 22 52 |"R | MOVEA.L (A2),A1 0002303a 42 80 |B | CLR.L D0 0002303c 10 29 00 03 | ) | MOVE.B (A1+0x3),D0 00023040 57 40 |W@ | SUBQ.W #0x3,D0 00023042 30 80 |0 | MOVE.W D0,(A0) 00023044 48 c0 |H | EXTW.L D0 00023046 2f 00 |/ | MOVE.L D0,-(A7) 00023048 7e 01 |~ | MOVEQ.L #0x01,D7 0002304a be 97 | | CMP.L (A7),D7 0002304c 6e 30 |n0 | BGT 0x2307e 0002304e 20 79 00 02 42 6a | y Bj | MOVEA.L 0x2426a,A0 00023054 20 07 | | MOVE.L D7,D0 00023056 53 80 |S | SUBQ.L #0x1,D0 00023058 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 0002305e 63 02 |c | BLS 0x23062 00023060 4e 4f |NO | TRAP #15 00023062 22 52 |"R | MOVEA.L (A2),A1 00023064 22 07 |" | MOVE.L D7,D1 00023066 58 81 |X | ADDQ.L #0x4,D1 00023068 53 81 |S | SUBQ.L #0x1,D1 0002306a 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00023070 63 02 |c | BLS 0x23074 00023072 4e 4f |NO | TRAP #15 00023074 11 b1 18 02 08 02 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2) 0002307a 52 87 |R | ADDQ.L #0x1,D7 0002307c 68 cc |h | BVC 0x2304a 0002307e 58 4f |XO | ADDQ.L #0x4,A7 00023080 4e ba f1 62 |N b | JSR 0x221e4 00023084 60 00 fd 60 |` ` | BRA 0x22de6 00023088 20 52 | R | MOVEA.L (A2),A0 0002308a 10 28 00 05 | ( | MOVE.B (A0+0x5),D0 0002308e 0c 00 00 41 | A | CMPI.B #0x41,D0 00023092 66 00 01 be |f | BNE 0x23252 00023096 10 14 | | MOVE.B (A4),D0 00023098 0c 00 00 46 | F | CMPI.B #0x46,D0 0002309c 67 0a |g | BEQ 0x230a8 0002309e 0c 00 00 41 | A | CMPI.B #0x41,D0 000230a2 67 04 |g | BEQ 0x230a8 000230a4 60 00 fe 3e |` > | BRA 0x22ee4 000230a8 18 bc 00 41 | A | MOVE.B #0x41,(A4) 000230ac 7c 05 || | MOVEQ.L #0x05,D6 000230ae 20 52 | R | MOVEA.L (A2),A0 000230b0 42 80 |B | CLR.L D0 000230b2 10 28 00 03 | ( | MOVE.B (A0+0x3),D0 000230b6 54 40 |T@ | ADDQ.W #0x2,D0 000230b8 48 c0 |H | EXTW.L D0 000230ba bc 80 | | CMP.L D0,D6 000230bc 66 02 |f | BNE 0x230c0 000230be 60 c0 |` | BRA 0x23080 000230c0 20 52 | R | MOVEA.L (A2),A0 000230c2 20 06 | | MOVE.L D6,D0 000230c4 53 80 |S | SUBQ.L #0x1,D0 000230c6 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000230cc 63 02 |c | BLS 0x230d0 000230ce 4e 4f |NO | TRAP #15 000230d0 42 81 |B | CLR.L D1 000230d2 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 000230d6 0c 81 00 00 00 21 | ! | CMPI.L #0x00000021,D1 000230dc 66 00 00 c0 |f | BNE 0x2319e 000230e0 20 06 | | MOVE.L D6,D0 000230e2 52 80 |R | ADDQ.L #0x1,D0 000230e4 53 80 |S | SUBQ.L #0x1,D0 000230e6 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000230ec 63 02 |c | BLS 0x230f0 000230ee 4e 4f |NO | TRAP #15 000230f0 42 81 |B | CLR.L D1 000230f2 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 000230f6 04 41 00 20 | A | SUBI.W #0x0020,D1 000230fa 48 c1 |H | EXTW.L D1 000230fc 2a 01 |* | MOVE.L D1,D5 000230fe 0c 85 00 00 00 04 | | CMPI.L #0x00000004,D5 00023104 6f 08 |o | BLE 0x2310e 00023106 16 bc 00 0b | | MOVE.B #0x0b,(A3) 0002310a 60 00 04 9a |` | BRA 0x235a6 0002310e 48 6e ff e4 |Hn | PEA.L (A6-0x1c) 00023112 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00023118 58 4f |XO | ADDQ.L #0x4,A7 0002311a 20 6e ff e4 | n | MOVEA.L (A6-0x1c),A0 0002311e 9a 83 | | SUB.L D3,D5 00023120 0c 85 00 00 ff ff | | CMPI.L #0x0000ffff,D5 00023126 63 02 |c | BLS 0x2312a 00023128 4e 4f |NO | TRAP #15 0002312a da 83 | | ADD.L D3,D5 0002312c 30 85 |0 | MOVE.W D5,(A0) 0002312e 2f 05 |/ | MOVE.L D5,-(A7) 00023130 7e 01 |~ | MOVEQ.L #0x01,D7 00023132 be 97 | | CMP.L (A7),D7 00023134 6e 30 |n0 | BGT 0x23166 00023136 20 6e ff e4 | n | MOVEA.L (A6-0x1c),A0 0002313a 20 07 | | MOVE.L D7,D0 0002313c 53 80 |S | SUBQ.L #0x1,D0 0002313e 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00023144 63 02 |c | BLS 0x23148 00023146 4e 4f |NO | TRAP #15 00023148 22 52 |"R | MOVEA.L (A2),A1 0002314a 22 06 |" | MOVE.L D6,D1 0002314c d2 87 | | ADD.L D7,D1 0002314e 52 81 |R | ADDQ.L #0x1,D1 00023150 53 81 |S | SUBQ.L #0x1,D1 00023152 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00023158 63 02 |c | BLS 0x2315c 0002315a 4e 4f |NO | TRAP #15 0002315c 11 b1 18 02 08 02 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2) 00023162 52 87 |R | ADDQ.L #0x1,D7 00023164 68 cc |h | BVC 0x23132 00023166 2e ae ff e4 |. | MOVE.L (A6-0x1c),(A7) 0002316a 48 6e ff fa |Hn | PEA.L (A6-0x6) 0002316e 48 79 00 02 42 6e |Hy Bn | PEA.L 0x2426e 00023174 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 0002317a de fc 00 0c | | ADDA.W #0xc,A7 0002317e 4a 2e ff fa |J. | TST.B (A6-0x6) 00023182 67 08 |g | BEQ 0x2318c 00023184 4a b9 00 02 42 6e |J Bn | TST.L 0x2426e 0002318a 66 04 |f | BNE 0x23190 0002318c 60 00 ff 78 |` x | BRA 0x23106 00023190 13 c2 00 02 42 7c | B| | MOVE.B D2,0x2427c 00023196 dc 85 | | ADD.L D5,D6 00023198 54 86 |T | ADDQ.L #0x2,D6 0002319a 60 00 ff 12 |` | BRA 0x230ae 0002319e 20 52 | R | MOVEA.L (A2),A0 000231a0 20 06 | | MOVE.L D6,D0 000231a2 53 80 |S | SUBQ.L #0x1,D0 000231a4 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000231aa 63 02 |c | BLS 0x231ae 000231ac 4e 4f |NO | TRAP #15 000231ae 42 81 |B | CLR.L D1 000231b0 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 000231b4 0c 81 00 00 00 22 | " | CMPI.L #0x00000022,D1 000231ba 66 72 |fr | BNE 0x2322e 000231bc 20 06 | | MOVE.L D6,D0 000231be 52 80 |R | ADDQ.L #0x1,D0 000231c0 53 80 |S | SUBQ.L #0x1,D0 000231c2 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000231c8 63 02 |c | BLS 0x231cc 000231ca 4e 4f |NO | TRAP #15 000231cc 42 81 |B | CLR.L D1 000231ce 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 000231d2 04 41 00 20 | A | SUBI.W #0x0020,D1 000231d6 48 c1 |H | EXTW.L D1 000231d8 2a 01 |* | MOVE.L D1,D5 000231da 4a 39 00 02 42 73 |J9 Bs | TST.B 0x24273 000231e0 67 02 |g | BEQ 0x231e4 000231e2 60 46 |`F | BRA 0x2322a 000231e4 20 52 | R | MOVEA.L (A2),A0 000231e6 20 06 | | MOVE.L D6,D0 000231e8 54 80 |T | ADDQ.L #0x2,D0 000231ea 53 80 |S | SUBQ.L #0x1,D0 000231ec 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000231f2 63 02 |c | BLS 0x231f6 000231f4 4e 4f |NO | TRAP #15 000231f6 10 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D0 000231fa 0c 00 00 41 | A | CMPI.B #0x41,D0 000231fe 66 06 |f | BNE 0x23206 00023200 13 c2 00 02 42 73 | Bs | MOVE.B D2,0x24273 00023206 20 52 | R | MOVEA.L (A2),A0 00023208 20 06 | | MOVE.L D6,D0 0002320a 54 80 |T | ADDQ.L #0x2,D0 0002320c 53 80 |S | SUBQ.L #0x1,D0 0002320e 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00023214 63 02 |c | BLS 0x23218 00023216 4e 4f |NO | TRAP #15 00023218 10 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D0 0002321c 0c 00 00 42 | B | CMPI.B #0x42,D0 00023220 66 08 |f | BNE 0x2322a 00023222 13 fc 00 02 00 02 42 73 | Bs| MOVE.B #0x02,0x24273 0002322a 60 00 ff 6a |` j | BRA 0x23196 0002322e 20 52 | R | MOVEA.L (A2),A0 00023230 20 06 | | MOVE.L D6,D0 00023232 52 80 |R | ADDQ.L #0x1,D0 00023234 53 80 |S | SUBQ.L #0x1,D0 00023236 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 0002323c 63 02 |c | BLS 0x23240 0002323e 4e 4f |NO | TRAP #15 00023240 42 81 |B | CLR.L D1 00023242 12 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D1 00023246 04 41 00 20 | A | SUBI.W #0x0020,D1 0002324a 48 c1 |H | EXTW.L D1 0002324c 2a 01 |* | MOVE.L D1,D5 0002324e 60 00 ff 46 |` F | BRA 0x23196 00023252 20 52 | R | MOVEA.L (A2),A0 00023254 10 28 00 05 | ( | MOVE.B (A0+0x5),D0 00023258 0c 00 00 44 | D | CMPI.B #0x44,D0 0002325c 66 00 01 ba |f | BNE 0x23418 00023260 10 14 | | MOVE.B (A4),D0 00023262 0c 00 00 41 | A | CMPI.B #0x41,D0 00023266 67 0a |g | BEQ 0x23272 00023268 0c 00 00 44 | D | CMPI.B #0x44,D0 0002326c 67 04 |g | BEQ 0x23272 0002326e 60 00 fc 74 |` t | BRA 0x22ee4 00023272 18 bc 00 44 | D | MOVE.B #0x44,(A4) 00023276 4a 39 00 02 42 72 |J9 Br | TST.B 0x24272 0002327c 66 00 00 82 |f | BNE 0x23300 00023280 4a 39 00 02 42 7c |J9 B| | TST.B 0x2427c 00023286 66 04 |f | BNE 0x2328c 00023288 60 00 fe 7c |` | | BRA 0x23106 0002328c 4a 39 00 02 42 73 |J9 Bs | TST.B 0x24273 00023292 66 08 |f | BNE 0x2329c 00023294 16 bc 00 04 | | MOVE.B #0x04,(A3) 00023298 60 00 03 0c |` | BRA 0x235a6 0002329c 10 39 00 02 42 73 | 9 Bs | MOVE.B 0x24273,D0 000232a2 b0 02 | | CMP.B D2,D0 000232a4 6f 06 |o | BLE 0x232ac 000232a6 44 b9 00 02 42 6e |D Bn | NEG.L 0x2426e 000232ac 2f 39 00 02 42 6a |/9 Bj | MOVE.L 0x2426a,-(A7) 000232b2 1f 02 | | MOVE.B D2,-(A7) 000232b4 42 27 |B' | CLR.B -(A7) 000232b6 2f 39 00 02 42 6e |/9 Bn | MOVE.L 0x2426e,-(A7) 000232bc 48 6e ff ec |Hn | PEA.L (A6-0x14) 000232c0 48 6e ff e8 |Hn | PEA.L (A6-0x18) 000232c4 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000232ca de fc 00 14 | | ADDA.W #0x14,A7 000232ce 4a 2e ff ec |J. | TST.B (A6-0x14) 000232d2 67 06 |g | BEQ 0x232da 000232d4 16 82 | | MOVE.B D2,(A3) 000232d6 60 00 02 ce |` | BRA 0x235a6 000232da 13 c2 00 02 42 72 | Br | MOVE.B D2,0x24272 000232e0 42 79 00 02 42 74 |By Bt | CLR.W 0x24274 000232e6 42 39 00 02 4a 98 |B9 J | CLR.B 0x24a98 000232ec 42 79 00 02 4a 96 |By J | CLR.W 0x24a96 000232f2 41 f9 00 02 42 92 |A B | LEA.L 0x24292,A0 000232f8 2f 08 |/ | MOVE.L A0,-(A7) 000232fa 23 df 00 02 4a 92 |# J | MOVE.L (A7)+,0x24a92 00023300 20 52 | R | MOVEA.L (A2),A0 00023302 42 80 |B | CLR.L D0 00023304 10 28 00 03 | ( | MOVE.B (A0+0x3),D0 00023308 59 40 |Y@ | SUBQ.W #0x4,D0 0002330a 48 c0 |H | EXTW.L D0 0002330c 2f 00 |/ | MOVE.L D0,-(A7) 0002330e 7e 00 |~ | MOVEQ.L #0x00,D7 00023310 be 97 | | CMP.L (A7),D7 00023312 6e 6e |nn | BGT 0x23382 00023314 30 39 00 02 4a 96 |09 J | MOVE.W 0x24a96,D0 0002331a 41 bc 07 ff |A | CHK.W #0x7ff,D0 0002331e 41 f9 00 02 42 5c |A B\ | LEA.L 0x2425c,A0 00023324 22 52 |"R | MOVEA.L (A2),A1 00023326 72 05 |r | MOVEQ.L #0x05,D1 00023328 d2 87 | | ADD.L D7,D1 0002332a 53 81 |S | SUBQ.L #0x1,D1 0002332c 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00023332 63 02 |c | BLS 0x23336 00023334 4e 4f |NO | TRAP #15 00023336 11 b1 18 02 00 36 | 6 | MOVE.B (A1+D1.L+#0x2),(A0+D0.W+#0x36) 0002333c 30 39 00 02 4a 96 |09 J | MOVE.W 0x24a96,D0 00023342 48 c0 |H | EXTW.L D0 00023344 52 80 |R | ADDQ.L #0x1,D0 00023346 90 83 | | SUB.L D3,D0 00023348 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 0002334e 63 02 |c | BLS 0x23352 00023350 4e 4f |NO | TRAP #15 00023352 d0 83 | | ADD.L D3,D0 00023354 33 c0 00 02 4a 96 |3 J | MOVE.W D0,0x24a96 0002335a 0c 40 04 00 | @ | CMPI.W #0x0400,D0 0002335e 66 06 |f | BNE 0x23366 00023360 13 c2 00 02 4a 98 | J | MOVE.B D2,0x24a98 00023366 30 39 00 02 4a 96 |09 J | MOVE.W 0x24a96,D0 0002336c 0c 40 08 00 | @ | CMPI.W #0x0800,D0 00023370 66 0c |f | BNE 0x2337e 00023372 42 79 00 02 4a 96 |By J | CLR.W 0x24a96 00023378 13 c2 00 02 4a 98 | J | MOVE.B D2,0x24a98 0002337e 52 87 |R | ADDQ.L #0x1,D7 00023380 68 8e |h | BVC 0x23310 00023382 58 4f |XO | ADDQ.L #0x4,A7 00023384 4a 39 00 02 4a 98 |J9 J | TST.B 0x24a98 0002338a 67 00 00 88 |g | BEQ 0x23414 0002338e 42 39 00 02 4a 98 |B9 J | CLR.B 0x24a98 00023394 30 39 00 02 4a 96 |09 J | MOVE.W 0x24a96,D0 0002339a 0c 40 03 ff | @ | CMPI.W #0x03ff,D0 0002339e 6f 0c |o | BLE 0x233ac 000233a0 23 f9 00 02 4a 92 00 02 |# J | MOVE.L 0x24a92,0x24a9a 000233a8 4a 9a |J | 000233aa 60 14 |` | BRA 0x233c0 000233ac 23 f9 00 02 4a 92 00 02 |# J | MOVE.L 0x24a92,0x24a9a 000233b4 4a 9a |J | 000233b6 06 b9 00 00 04 00 00 02 | | ADDI.L #0x00000400,0x24a9a 000233be 4a 9a |J | 000233c0 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 000233c4 30 39 00 02 42 74 |09 Bt | MOVE.W 0x24274,D0 000233ca 41 bc 40 00 |A @ | CHK.W #0x4000,D0 000233ce 3f 00 |? | MOVE.W D0,-(A7) 000233d0 42 67 |Bg | CLR.W -(A7) 000233d2 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 000233d6 42 27 |B' | CLR.B -(A7) 000233d8 2f 39 00 02 4a 9a |/9 J | MOVE.L 0x24a9a,-(A7) 000233de 48 6e ff ec |Hn | PEA.L (A6-0x14) 000233e2 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 000233e8 de fc 00 14 | | ADDA.W #0x14,A7 000233ec 4a 2e ff ec |J. | TST.B (A6-0x14) 000233f0 67 04 |g | BEQ 0x233f6 000233f2 60 00 fe e0 |` | BRA 0x232d4 000233f6 30 39 00 02 42 74 |09 Bt | MOVE.W 0x24274,D0 000233fc 48 c0 |H | EXTW.L D0 000233fe 52 80 |R | ADDQ.L #0x1,D0 00023400 90 83 | | SUB.L D3,D0 00023402 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00023408 63 02 |c | BLS 0x2340c 0002340a 4e 4f |NO | TRAP #15 0002340c d0 83 | | ADD.L D3,D0 0002340e 33 c0 00 02 42 74 |3 Bt | MOVE.W D0,0x24274 00023414 60 00 fc 6a |` j | BRA 0x23080 00023418 20 52 | R | MOVEA.L (A2),A0 0002341a 10 28 00 05 | ( | MOVE.B (A0+0x5),D0 0002341e 0c 00 00 5a | Z | CMPI.B #0x5a,D0 00023422 66 00 01 08 |f | BNE 0x2352c 00023426 10 14 | | MOVE.B (A4),D0 00023428 0c 00 00 44 | D | CMPI.B #0x44,D0 0002342c 67 04 |g | BEQ 0x23432 0002342e 60 00 fa b4 |` | BRA 0x22ee4 00023432 18 bc 00 5a | Z | MOVE.B #0x5a,(A4) 00023436 4a 79 00 02 4a 96 |Jy J | TST.W 0x24a96 0002343c 67 00 00 9c |g | BEQ 0x234da 00023440 30 39 00 02 4a 96 |09 J | MOVE.W 0x24a96,D0 00023446 0c 40 04 00 | @ | CMPI.W #0x0400,D0 0002344a 67 00 00 8e |g | BEQ 0x234da 0002344e 30 39 00 02 4a 96 |09 J | MOVE.W 0x24a96,D0 00023454 48 c0 |H | EXTW.L D0 00023456 2e 00 |. | MOVE.L D0,D7 00023458 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 0002345e 6e 18 |n | BGT 0x23478 00023460 0c 87 00 00 07 ff | | CMPI.L #0x000007ff,D7 00023466 63 02 |c | BLS 0x2346a 00023468 4e 4f |NO | TRAP #15 0002346a 41 f9 00 02 42 5c |A B\ | LEA.L 0x2425c,A0 00023470 42 30 78 36 |B0x6 | CLR.B (A0+D7.L+#0x36) 00023474 52 87 |R | ADDQ.L #0x1,D7 00023476 68 e0 |h | BVC 0x23458 00023478 30 39 00 02 4a 96 |09 J | MOVE.W 0x24a96,D0 0002347e 0c 40 03 ff | @ | CMPI.W #0x03ff,D0 00023482 6f 16 |o | BLE 0x2349a 00023484 23 f9 00 02 4a 92 00 02 |# J | MOVE.L 0x24a92,0x24a9a 0002348c 4a 9a |J | 0002348e 06 b9 00 00 04 00 00 02 | | ADDI.L #0x00000400,0x24a9a 00023496 4a 9a |J | 00023498 60 0a |` | BRA 0x234a4 0002349a 23 f9 00 02 4a 92 00 02 |# J | MOVE.L 0x24a92,0x24a9a 000234a2 4a 9a |J | 000234a4 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 000234a8 30 39 00 02 42 74 |09 Bt | MOVE.W 0x24274,D0 000234ae 41 bc 40 00 |A @ | CHK.W #0x4000,D0 000234b2 3f 00 |? | MOVE.W D0,-(A7) 000234b4 42 67 |Bg | CLR.W -(A7) 000234b6 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 000234ba 42 27 |B' | CLR.B -(A7) 000234bc 2f 39 00 02 4a 9a |/9 J | MOVE.L 0x24a9a,-(A7) 000234c2 48 6e ff ec |Hn | PEA.L (A6-0x14) 000234c6 4e b9 00 01 03 88 |N | JSR WriteFile(file : File; y : W; x : W; a : W; b: B; c: L; d: L) 000234cc de fc 00 14 | | ADDA.W #0x14,A7 000234d0 4a 2e ff ec |J. | TST.B (A6-0x14) 000234d4 67 04 |g | BEQ 0x234da 000234d6 60 00 fd fc |` | BRA 0x232d4 000234da 10 39 00 02 42 73 | 9 Bs | MOVE.B 0x24273,D0 000234e0 b0 02 | | CMP.B D2,D0 000234e2 6f 1a |o | BLE 0x234fe 000234e4 20 6e ff e8 | n | MOVEA.L (A6-0x18),A0 000234e8 11 42 00 4c | B L | MOVE.B D2,(A0+0x4c) 000234ec 00 28 00 02 00 3f | ( ? | ORI.B #0x02,(A0+0x3f) 000234f2 0c 00 00 03 | | CMPI.B #0x03,D0 000234f6 66 06 |f | BNE 0x234fe 000234f8 00 28 00 04 00 3f | ( ? | ORI.B #0x04,(A0+0x3f) 000234fe 42 27 |B' | CLR.B -(A7) 00023500 42 27 |B' | CLR.B -(A7) 00023502 48 78 00 01 |Hx | PEA.L 0x1 00023506 48 6e ff ec |Hn | PEA.L (A6-0x14) 0002350a 48 6e ff e8 |Hn | PEA.L (A6-0x18) 0002350e 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00023514 de fc 00 10 | | ADDA.W #0x10,A7 00023518 4a 2e ff ec |J. | TST.B (A6-0x14) 0002351c 67 04 |g | BEQ 0x23522 0002351e 60 00 fd b4 |` | BRA 0x232d4 00023522 42 39 00 02 42 72 |B9 Br | CLR.B 0x24272 00023528 60 00 fb 56 |` V | BRA 0x23080 0002352c 20 52 | R | MOVEA.L (A2),A0 0002352e 10 28 00 05 | ( | MOVE.B (A0+0x5),D0 00023532 0c 00 00 42 | B | CMPI.B #0x42,D0 00023536 66 1a |f | BNE 0x23552 00023538 4e ba ec aa |N | JSR 0x221e4 0002353c 10 14 | | MOVE.B (A4),D0 0002353e 0c 00 00 5a | Z | CMPI.B #0x5a,D0 00023542 66 08 |f | BNE 0x2354c 00023544 4e ba f1 02 |N | JSR 0x22648 00023548 60 00 00 98 |` | BRA 0x235e2 0002354c 16 bc 00 12 | | MOVE.B #0x12,(A3) 00023550 60 54 |`T | BRA 0x235a6 00023552 20 52 | R | MOVEA.L (A2),A0 00023554 10 28 00 05 | ( | MOVE.B (A0+0x5),D0 00023558 0c 00 00 45 | E | CMPI.B #0x45,D0 0002355c 66 06 |f | BNE 0x23564 0002355e 16 bc 00 13 | | MOVE.B #0x13,(A3) 00023562 60 42 |`B | BRA 0x235a6 00023564 20 52 | R | MOVEA.L (A2),A0 00023566 10 28 00 05 | ( | MOVE.B (A0+0x5),D0 0002356a 0c 00 00 4e | N | CMPI.B #0x4e,D0 0002356e 66 06 |f | BNE 0x23576 00023570 16 bc 00 14 | | MOVE.B #0x14,(A3) 00023574 60 30 |`0 | BRA 0x235a6 00023576 20 52 | R | MOVEA.L (A2),A0 00023578 10 28 00 05 | ( | MOVE.B (A0+0x5),D0 0002357c 0c 00 00 59 | Y | CMPI.B #0x59,D0 00023580 66 06 |f | BNE 0x23588 00023582 16 bc 00 15 | | MOVE.B #0x15,(A3) 00023586 60 1e |` | BRA 0x235a6 00023588 16 bc 00 16 | | MOVE.B #0x16,(A3) 0002358c 60 18 |` | BRA 0x235a6 0002358e 4e ba ed d4 |N | JSR 0x22364 00023592 1f 3c 00 2d | < - | MOVE.B #0x2d,-(A7) 00023596 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 0002359c 54 4f |TO | ADDQ.L #0x2,A7 0002359e 60 00 f8 46 |` F | BRA 0x22de6 000235a2 60 00 fa dc |` | BRA 0x23080 000235a6 1f 13 | | MOVE.B (A3),-(A7) 000235a8 10 2e ff ec | . | MOVE.B (A6-0x14),D0 000235ac 48 80 |H | EXTB.W D0 000235ae 41 bc 00 0f |A | CHK.W #0xf,D0 000235b2 1f 00 | | MOVE.B D0,-(A7) 000235b4 4e ba ee 6a |N j | JSR 0x22420 000235b8 58 4f |XO | ADDQ.L #0x4,A7 000235ba 4a 39 00 02 42 72 |J9 Br | TST.B 0x24272 000235c0 67 20 |g | BEQ 0x235e2 000235c2 42 27 |B' | CLR.B -(A7) 000235c4 42 27 |B' | CLR.B -(A7) 000235c6 48 78 00 01 |Hx | PEA.L 0x1 000235ca 48 6e ff ec |Hn | PEA.L (A6-0x14) 000235ce 48 6e ff e8 |Hn | PEA.L (A6-0x18) 000235d2 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000235d8 de fc 00 10 | | ADDA.W #0x10,A7 000235dc 42 39 00 02 42 72 |B9 Br | CLR.B 0x24272 000235e2 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000235e6 4e 5e |N^ | UNLK A6 000235e8 4e 75 |Nu | RTS 000235ea ; -------------------------------------------------------------------------------------- 000235ea ; OMSI PASCAL Function 000235ea ; <LVAR -0x006 @ 2(r)> 000235ea ; <LVAR -0x008 @ 1(r)> 000235ea ; -------------------------------------------------------------------------------------- 000235ea 4e 56 ff 82 |NV | LINK.W A6,#0xff82 000235ee bf d5 | | CMPA.L (A5),A7 000235f0 62 06 |b | BHI 0x235f8 000235f2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000235f6 4e 76 |Nv | TRAPV 000235f8 de fc 00 76 | v | ADDA.W #0x76,A7 000235fc 48 e7 fd f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7) 00023600 45 ee ff f8 |E | LEA.L (A6-0x8),A2 00023604 47 f9 00 02 42 65 |G Be | LEA.L 0x24265,A3 0002360a 49 ee ff fa |I | LEA.L (A6-0x6),A4 0002360e 72 03 |r | MOVEQ.L #0x03,D1 00023610 74 01 |t | MOVEQ.L #0x01,D2 00023612 76 16 |v | MOVEQ.L #0x16,D3 00023614 78 7f |x | MOVEQ.L #0x7f,D4 00023616 7a 0d |z | MOVEQ.L #0x0d,D5 00023618 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 0002361e 67 2e |g. | BEQ 0x2364e 00023620 9e fc 00 12 | | SUBA.W #0x12,A7 00023624 20 4f | O | MOVEA.L A7,A0 00023626 43 fa d4 e8 |C | LEA.L 0x20b10,A1 0002362a 70 10 |p | MOVEQ.L #0x10,D0 0002362c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002362e 51 c8 ff fc |Q | DBF D0,0x2362c 00023632 59 4f |YO | SUBQ.L #0x4,A7 00023634 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023638 3f 02 |? | MOVE.W D2,-(A7) 0002363a 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 0002363e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023644 50 4f |PO | ADDQ.L #0x8,A7 00023646 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002364c de c3 | | ADDA.W D3,A7 0002364e 3f 01 |? | MOVE.W D1,-(A7) 00023650 48 52 |HR | PEA.L (A2) 00023652 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 00023658 5c 4f |\O | ADDQ.L #0x6,A7 0002365a 10 12 | | MOVE.B (A2),D0 0002365c b0 01 | | CMP.B D1,D0 0002365e 66 08 |f | BNE 0x23668 00023660 16 bc 00 0f | | MOVE.B #0x0f,(A3) 00023664 60 00 01 58 |` X | BRA 0x237be 00023668 4a 12 |J | TST.B (A2) 0002366a 67 0c |g | BEQ 0x23678 0002366c 3f 01 |? | MOVE.W D1,-(A7) 0002366e 48 54 |HT | PEA.L (A4) 00023670 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 00023676 5c 4f |\O | ADDQ.L #0x6,A7 00023678 4a 12 |J | TST.B (A2) 0002367a 66 d2 |f | BNE 0x2364e 0002367c 9e fc 00 2c | , | SUBA.W #0x2c,A7 00023680 20 4f | O | MOVEA.L A7,A0 00023682 43 fa d4 9e |C | LEA.L 0x20b22,A1 00023686 70 2a |p* | MOVEQ.L #0x2a,D0 00023688 10 d9 | | MOVE.B (A1)+,(A0)+ 0002368a 51 c8 ff fc |Q | DBF D0,0x23688 0002368e 59 4f |YO | SUBQ.L #0x4,A7 00023690 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023694 3f 02 |? | MOVE.W D2,-(A7) 00023696 3f 3c 00 2b |?< + | MOVE.W #0x2b,-(A7) 0002369a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000236a0 50 4f |PO | ADDQ.L #0x8,A7 000236a2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000236a8 de fc 00 30 | 0 | ADDA.W #0x30,A7 000236ac 3f 02 |? | MOVE.W D2,-(A7) 000236ae 48 52 |HR | PEA.L (A2) 000236b0 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 000236b6 5c 4f |\O | ADDQ.L #0x6,A7 000236b8 10 12 | | MOVE.B (A2),D0 000236ba b0 02 | | CMP.B D2,D0 000236bc 66 26 |f& | BNE 0x236e4 000236be 3f 02 |? | MOVE.W D2,-(A7) 000236c0 48 54 |HT | PEA.L (A4) 000236c2 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 000236c8 5c 4f |\O | ADDQ.L #0x6,A7 000236ca 30 14 |0 | MOVE.W (A4),D0 000236cc c0 44 | D | AND.W D4,D0 000236ce b0 41 | A | CMP.W D1,D0 000236d0 66 08 |f | BNE 0x236da 000236d2 16 bc 00 17 | | MOVE.B #0x17,(A3) 000236d6 60 00 00 e6 |` | BRA 0x237be 000236da 30 14 |0 | MOVE.W (A4),D0 000236dc c0 44 | D | AND.W D4,D0 000236de b0 45 | E | CMP.W D5,D0 000236e0 66 02 |f | BNE 0x236e4 000236e2 60 98 |` | BRA 0x2367c 000236e4 2f 3c 00 00 98 96 |/< | MOVE.L #0x9896,-(A7) 000236ea 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 000236f0 54 4f |TO | ADDQ.L #0x2,A7 000236f2 3e 81 |> | MOVE.W D1,(A7) 000236f4 48 52 |HR | PEA.L (A2) 000236f6 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 000236fc 5c 4f |\O | ADDQ.L #0x6,A7 000236fe 4a 12 |J | TST.B (A2) 00023700 67 0c |g | BEQ 0x2370e 00023702 3f 01 |? | MOVE.W D1,-(A7) 00023704 48 54 |HT | PEA.L (A4) 00023706 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 0002370c 5c 4f |\O | ADDQ.L #0x6,A7 0002370e 10 12 | | MOVE.B (A2),D0 00023710 b0 01 | | CMP.B D1,D0 00023712 66 98 |f | BNE 0x236ac 00023714 30 14 |0 | MOVE.W (A4),D0 00023716 02 40 00 ff | @ | ANDI.W #0x00ff,D0 0002371a 67 06 |g | BEQ 0x23722 0002371c 16 85 | | MOVE.B D5,(A3) 0002371e 60 00 00 9e |` | BRA 0x237be 00023722 3f 3a d4 2a |?: * | MOVE.W 0x20b4e,-(A7) 00023726 3f 01 |? | MOVE.W D1,-(A7) 00023728 59 4f |YO | SUBQ.L #0x4,A7 0002372a 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002372e 3f 02 |? | MOVE.W D2,-(A7) 00023730 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00023734 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002373a 50 4f |PO | ADDQ.L #0x8,A7 0002373c 4e b9 00 01 02 14 |N | JSR KC0a(a: Word; b: String) 00023742 50 4f |PO | ADDQ.L #0x8,A7 00023744 41 fa d4 40 |A @ | LEA.L 0x20b86,A0 00023748 70 1a |p | MOVEQ.L #0x1a,D0 0002374a 3f 20 |? | MOVE.W -(A0),-(A7) 0002374c 51 c8 ff fc |Q | DBF D0,0x2374a 00023750 59 4f |YO | SUBQ.L #0x4,A7 00023752 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023756 3f 02 |? | MOVE.W D2,-(A7) 00023758 3f 3c 00 36 |?< 6 | MOVE.W #0x36,-(A7) 0002375c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023762 50 4f |PO | ADDQ.L #0x8,A7 00023764 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002376a de fc 00 3a | : | ADDA.W #0x3a,A7 0002376e 7e 01 |~ | MOVEQ.L #0x01,D7 00023770 2f 3c 00 00 98 96 |/< | MOVE.L #0x9896,-(A7) 00023776 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 0002377c 54 4f |TO | ADDQ.L #0x2,A7 0002377e 1e bc 00 2e | . | MOVE.B #0x2e,(A7) 00023782 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 00023788 54 4f |TO | ADDQ.L #0x2,A7 0002378a 52 47 |RG | ADDQ.W #0x1,D7 0002378c be 43 | C | CMP.W D3,D7 0002378e 6f e0 |o | BLE 0x23770 00023790 3f 01 |? | MOVE.W D1,-(A7) 00023792 48 52 |HR | PEA.L (A2) 00023794 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 0002379a 5c 4f |\O | ADDQ.L #0x6,A7 0002379c 10 12 | | MOVE.B (A2),D0 0002379e b0 02 | | CMP.B D2,D0 000237a0 66 0e |f | BNE 0x237b0 000237a2 3f 01 |? | MOVE.W D1,-(A7) 000237a4 48 54 |HT | PEA.L (A4) 000237a6 4e b9 00 01 02 0e |N | JSR KC07_PortGetChar(port : Word ; VAR ret : Word) 000237ac 5c 4f |\O | ADDQ.L #0x6,A7 000237ae 60 08 |` | BRA 0x237b8 000237b0 4a 00 |J | TST.B D0 000237b2 67 04 |g | BEQ 0x237b8 000237b4 60 00 ff 66 |` f | BRA 0x2371c 000237b8 4a 12 |J | TST.B (A2) 000237ba 66 d4 |f | BNE 0x23790 000237bc 42 13 |B | CLR.B (A3) 000237be 4c df 1f bf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3+A4 000237c2 4e 5e |N^ | UNLK A6 000237c4 4e 75 |Nu | RTS 000237c6 ; -------------------------------------------------------------------------------------- 000237c6 ; OMSI PASCAL Function 000237c6 ; -------------------------------------------------------------------------------------- 000237c6 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 000237ca bf d5 | | CMPA.L (A5),A7 000237cc 62 06 |b | BHI 0x237d4 000237ce 44 fc 00 02 |D | MOVE.W #0x2,CCR 000237d2 4e 76 |Nv | TRAPV 000237d4 de fc 00 2c | , | ADDA.W #0x2c,A7 000237d8 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000237dc 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 000237e2 67 2c |g, | BEQ 0x23810 000237e4 41 fa d3 b4 |A | LEA.L 0x20b9a,A0 000237e8 70 04 |p | MOVEQ.L #0x04,D0 000237ea 2f 20 |/ | MOVE.L -(A0),-(A7) 000237ec 51 c8 ff fc |Q | DBF D0,0x237ea 000237f0 59 4f |YO | SUBQ.L #0x4,A7 000237f2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000237f6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000237fa 3f 3c 00 14 |?< | MOVE.W #0x14,-(A7) 000237fe 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023804 50 4f |PO | ADDQ.L #0x8,A7 00023806 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002380c de fc 00 18 | | ADDA.W #0x18,A7 00023810 2f 3c 00 00 98 96 |/< | MOVE.L #0x9896,-(A7) 00023816 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 0002381c 58 4f |XO | ADDQ.L #0x4,A7 0002381e 4e b9 00 01 02 16 |N | JSR KC0b 00023824 2f 3c 00 01 c9 c2 |/< | MOVE.L #0x1c9c2,-(A7) 0002382a 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00023830 58 4f |XO | ADDQ.L #0x4,A7 00023832 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00023836 4e 5e |N^ | UNLK A6 00023838 4e 75 |Nu | RTS 0002383a ; -------------------------------------------------------------------------------------- 0002383a ; OMSI PASCAL Function 0002383a ; <LVAR -0x006 @ 4(rw)> 0002383a ; <LVAR -0x00c @ 1(r)> 0002383a ; -------------------------------------------------------------------------------------- 0002383a 4e 56 ff 6e |NV n | LINK.W A6,#0xff6e 0002383e bf d5 | | CMPA.L (A5),A7 00023840 62 06 |b | BHI 0x23848 00023842 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023846 4e 76 |Nv | TRAPV 00023848 de fc 00 86 | | ADDA.W #0x86,A7 0002384c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023850 45 f9 00 02 4a a2 |E J | LEA.L 0x24aa2,A2 00023856 47 f9 00 02 42 65 |G Be | LEA.L 0x24265,A3 0002385c 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 00023862 72 01 |r | MOVEQ.L #0x01,D1 00023864 74 03 |t | MOVEQ.L #0x03,D2 00023866 76 0a |v | MOVEQ.L #0x0a,D3 00023868 78 16 |x | MOVEQ.L #0x16,D4 0002386a 7a 1a |z | MOVEQ.L #0x1a,D5 0002386c 7c 0d || | MOVEQ.L #0x0d,D6 0002386e 4a 39 00 02 42 67 |J9 Bg | TST.B 0x24267 00023874 67 26 |g& | BEQ 0x2389c 00023876 2f 3a d3 2a |/: * | MOVE.L 0x20ba2,-(A7) 0002387a 2f 3a d3 22 |/: " | MOVE.L 0x20b9e,-(A7) 0002387e 2f 3a d3 1a |/: | MOVE.L 0x20b9a,-(A7) 00023882 59 4f |YO | SUBQ.L #0x4,A7 00023884 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023888 3f 01 |? | MOVE.W D1,-(A7) 0002388a 3f 3c 00 0c |?< | MOVE.W #0xc,-(A7) 0002388e 4e 94 |N | JSR (A4) 00023890 50 4f |PO | ADDQ.L #0x8,A7 00023892 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023898 de fc 00 10 | | ADDA.W #0x10,A7 0002389c 42 2e ff f4 |B. | CLR.B (A6-0xc) 000238a0 4e ba fd 48 |N H | JSR 0x235ea 000238a4 10 13 | | MOVE.B (A3),D0 000238a6 0c 00 00 17 | | CMPI.B #0x17,D0 000238aa 66 04 |f | BNE 0x238b0 000238ac 60 00 05 0c |` | BRA 0x23dba 000238b0 4a 13 |J | TST.B (A3) 000238b2 67 04 |g | BEQ 0x238b8 000238b4 60 00 04 d4 |` | BRA 0x23d8a 000238b8 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000238be 10 13 | | MOVE.B (A3),D0 000238c0 0c 00 00 0e | | CMPI.B #0x0e,D0 000238c4 66 02 |f | BNE 0x238c8 000238c6 60 d8 |` | BRA 0x238a0 000238c8 41 fa d3 0a |A | LEA.L 0x20bd4,A0 000238cc 70 16 |p | MOVEQ.L #0x16,D0 000238ce 3f 20 |? | MOVE.W -(A0),-(A7) 000238d0 51 c8 ff fc |Q | DBF D0,0x238ce 000238d4 59 4f |YO | SUBQ.L #0x4,A7 000238d6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000238da 3f 01 |? | MOVE.W D1,-(A7) 000238dc 3f 3c 00 2e |?< . | MOVE.W #0x2e,-(A7) 000238e0 4e 94 |N | JSR (A4) 000238e2 50 4f |PO | ADDQ.L #0x8,A7 000238e4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000238ea de fc 00 30 | 0 | ADDA.W #0x30,A7 000238ee 3e 82 |> | MOVE.W D2,(A7) 000238f0 3f 06 |? | MOVE.W D6,-(A7) 000238f2 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 000238f8 54 4f |TO | ADDQ.L #0x2,A7 000238fa 3e 82 |> | MOVE.W D2,(A7) 000238fc 3f 03 |? | MOVE.W D3,-(A7) 000238fe 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00023904 9e fc 00 14 | | SUBA.W #0x14,A7 00023908 20 4f | O | MOVEA.L A7,A0 0002390a 43 fa c8 20 |C | LEA.L 0x2012c,A1 0002390e 70 16 |p | MOVEQ.L #0x16,D0 00023910 10 d9 | | MOVE.B (A1)+,(A0)+ 00023912 51 c8 ff fc |Q | DBF D0,0x23910 00023916 3f 02 |? | MOVE.W D2,-(A7) 00023918 59 4f |YO | SUBQ.L #0x4,A7 0002391a 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002391e 3f 01 |? | MOVE.W D1,-(A7) 00023920 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00023924 4e 94 |N | JSR (A4) 00023926 50 4f |PO | ADDQ.L #0x8,A7 00023928 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 0002392e de fc 00 1c | | ADDA.W #0x1c,A7 00023932 3e 82 |> | MOVE.W D2,(A7) 00023934 3f 06 |? | MOVE.W D6,-(A7) 00023936 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 0002393c 54 4f |TO | ADDQ.L #0x2,A7 0002393e 3e 82 |> | MOVE.W D2,(A7) 00023940 3f 03 |? | MOVE.W D3,-(A7) 00023942 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00023948 58 4f |XO | ADDQ.L #0x4,A7 0002394a 41 fa d2 9e |A | LEA.L 0x20bea,A0 0002394e 70 0a |p | MOVEQ.L #0x0a,D0 00023950 3f 20 |? | MOVE.W -(A0),-(A7) 00023952 51 c8 ff fc |Q | DBF D0,0x23950 00023956 3f 02 |? | MOVE.W D2,-(A7) 00023958 59 4f |YO | SUBQ.L #0x4,A7 0002395a 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002395e 3f 01 |? | MOVE.W D1,-(A7) 00023960 3f 04 |? | MOVE.W D4,-(A7) 00023962 4e 94 |N | JSR (A4) 00023964 50 4f |PO | ADDQ.L #0x8,A7 00023966 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 0002396c de c5 | | ADDA.W D5,A7 0002396e 1e 81 | | MOVE.B D1,(A7) 00023970 48 78 01 2c |Hx , | PEA.L 0x12c 00023974 4e ba de 46 |N F | JSR 0x217bc 00023978 5c 4f |\O | ADDQ.L #0x6,A7 0002397a 10 13 | | MOVE.B (A3),D0 0002397c 0c 00 00 0e | | CMPI.B #0x0e,D0 00023980 66 04 |f | BNE 0x23986 00023982 60 00 04 36 |` 6 | BRA 0x23dba 00023986 4a 13 |J | TST.B (A3) 00023988 67 04 |g | BEQ 0x2398e 0002398a 60 00 03 fe |` | BRA 0x23d8a 0002398e 20 52 | R | MOVEA.L (A2),A0 00023990 30 10 |0 | MOVE.W (A0),D0 00023992 0c 40 00 02 | @ | CMPI.W #0x0002,D0 00023996 6c 02 |l | BGE 0x2399a 00023998 60 3a |`: | BRA 0x239d4 0002399a 2f 12 |/ | MOVE.L (A2),-(A7) 0002399c 4e ba e5 bc |N | JSR 0x21f5a 000239a0 58 4f |XO | ADDQ.L #0x4,A7 000239a2 20 52 | R | MOVEA.L (A2),A0 000239a4 10 28 00 02 | ( | MOVE.B (A0+0x2),D0 000239a8 0c 00 00 52 | R | CMPI.B #0x52,D0 000239ac 66 02 |f | BNE 0x239b0 000239ae 60 76 |`v | BRA 0x23a26 000239b0 20 52 | R | MOVEA.L (A2),A0 000239b2 10 28 00 02 | ( | MOVE.B (A0+0x2),D0 000239b6 0c 00 00 53 | S | CMPI.B #0x53,D0 000239ba 66 04 |f | BNE 0x239c0 000239bc 60 00 01 d2 |` | BRA 0x23b90 000239c0 20 52 | R | MOVEA.L (A2),A0 000239c2 10 28 00 02 | ( | MOVE.B (A0+0x2),D0 000239c6 0c 00 00 51 | Q | CMPI.B #0x51,D0 000239ca 66 08 |f | BNE 0x239d4 000239cc 16 bc 00 18 | | MOVE.B #0x18,(A3) 000239d0 60 00 03 b8 |` | BRA 0x23d8a 000239d4 41 fa d2 30 |A 0 | LEA.L 0x20c06,A0 000239d8 70 06 |p | MOVEQ.L #0x06,D0 000239da 2f 20 |/ | MOVE.L -(A0),-(A7) 000239dc 51 c8 ff fc |Q | DBF D0,0x239da 000239e0 59 4f |YO | SUBQ.L #0x4,A7 000239e2 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000239e6 3f 01 |? | MOVE.W D1,-(A7) 000239e8 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 000239ec 4e 94 |N | JSR (A4) 000239ee 50 4f |PO | ADDQ.L #0x8,A7 000239f0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000239f6 de fc 00 1e | | ADDA.W #0x1e,A7 000239fa 3e ba d2 0e |> | MOVE.W 0x20c0a,(A7) 000239fe 3f 3a d2 08 |?: | MOVE.W 0x20c08,-(A7) 00023a02 3f 3a d2 02 |?: | MOVE.W 0x20c06,-(A7) 00023a06 3f 02 |? | MOVE.W D2,-(A7) 00023a08 59 4f |YO | SUBQ.L #0x4,A7 00023a0a 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00023a0e 3f 01 |? | MOVE.W D1,-(A7) 00023a10 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00023a14 4e 94 |N | JSR (A4) 00023a16 50 4f |PO | ADDQ.L #0x8,A7 00023a18 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 00023a1e de fc 00 0c | | ADDA.W #0xc,A7 00023a22 60 00 fe 94 |` | BRA 0x238b8 00023a26 9e c4 | | SUBA.W D4,A7 00023a28 20 4f | O | MOVEA.L A7,A0 00023a2a 43 fa d1 e0 |C | LEA.L 0x20c0c,A1 00023a2e 70 14 |p | MOVEQ.L #0x14,D0 00023a30 10 d9 | | MOVE.B (A1)+,(A0)+ 00023a32 51 c8 ff fc |Q | DBF D0,0x23a30 00023a36 59 4f |YO | SUBQ.L #0x4,A7 00023a38 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023a3c 3f 01 |? | MOVE.W D1,-(A7) 00023a3e 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 00023a42 4e 94 |N | JSR (A4) 00023a44 50 4f |PO | ADDQ.L #0x8,A7 00023a46 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023a4c de c5 | | ADDA.W D5,A7 00023a4e 42 39 00 02 42 73 |B9 Bs | CLR.B 0x24273 00023a54 41 fa d2 00 |A | LEA.L 0x20c56,A0 00023a58 70 0c |p | MOVEQ.L #0x0c,D0 00023a5a 2f 20 |/ | MOVE.L -(A0),-(A7) 00023a5c 51 c8 ff fc |Q | DBF D0,0x23a5a 00023a60 59 4f |YO | SUBQ.L #0x4,A7 00023a62 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023a66 3f 01 |? | MOVE.W D1,-(A7) 00023a68 3f 3c 00 34 |?< 4 | MOVE.W #0x34,-(A7) 00023a6c 4e 94 |N | JSR (A4) 00023a6e 50 4f |PO | ADDQ.L #0x8,A7 00023a70 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023a76 de c5 | | ADDA.W D5,A7 00023a78 20 4f | O | MOVEA.L A7,A0 00023a7a 43 fa d1 da |C | LEA.L 0x20c56,A1 00023a7e 70 1c |p | MOVEQ.L #0x1c,D0 00023a80 10 d9 | | MOVE.B (A1)+,(A0)+ 00023a82 51 c8 ff fc |Q | DBF D0,0x23a80 00023a86 3f 02 |? | MOVE.W D2,-(A7) 00023a88 59 4f |YO | SUBQ.L #0x4,A7 00023a8a 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00023a8e 3f 01 |? | MOVE.W D1,-(A7) 00023a90 3f 3c 00 1d |?< | MOVE.W #0x1d,-(A7) 00023a94 4e 94 |N | JSR (A4) 00023a96 50 4f |PO | ADDQ.L #0x8,A7 00023a98 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 00023a9e de fc 00 22 | " | ADDA.W #0x22,A7 00023aa2 1e 81 | | MOVE.B D1,(A7) 00023aa4 48 78 01 2c |Hx , | PEA.L 0x12c 00023aa8 4e ba dd 12 |N | JSR 0x217bc 00023aac 5c 4f |\O | ADDQ.L #0x6,A7 00023aae 4a 13 |J | TST.B (A3) 00023ab0 67 04 |g | BEQ 0x23ab6 00023ab2 60 00 02 d6 |` | BRA 0x23d8a 00023ab6 2f 12 |/ | MOVE.L (A2),-(A7) 00023ab8 4e ba e4 a0 |N | JSR 0x21f5a 00023abc 58 4f |XO | ADDQ.L #0x4,A7 00023abe 20 52 | R | MOVEA.L (A2),A0 00023ac0 10 28 00 02 | ( | MOVE.B (A0+0x2),D0 00023ac4 0c 00 00 4b | K | CMPI.B #0x4b,D0 00023ac8 66 06 |f | BNE 0x23ad0 00023aca 13 c2 00 02 42 73 | Bs | MOVE.B D2,0x24273 00023ad0 20 52 | R | MOVEA.L (A2),A0 00023ad2 10 28 00 02 | ( | MOVE.B (A0+0x2),D0 00023ad6 0c 00 00 50 | P | CMPI.B #0x50,D0 00023ada 66 08 |f | BNE 0x23ae4 00023adc 13 fc 00 02 00 02 42 73 | Bs| MOVE.B #0x02,0x24273 00023ae4 20 52 | R | MOVEA.L (A2),A0 00023ae6 10 28 00 02 | ( | MOVE.B (A0+0x2),D0 00023aea 0c 00 00 54 | T | CMPI.B #0x54,D0 00023aee 66 06 |f | BNE 0x23af6 00023af0 13 c1 00 02 42 73 | Bs | MOVE.B D1,0x24273 00023af6 20 52 | R | MOVEA.L (A2),A0 00023af8 30 10 |0 | MOVE.W (A0),D0 00023afa 0c 40 00 02 | @ | CMPI.W #0x0002,D0 00023afe 6c 48 |lH | BGE 0x23b48 00023b00 9e fc 00 24 | $ | SUBA.W #0x24,A7 00023b04 20 4f | O | MOVEA.L A7,A0 00023b06 43 fa d1 6c |C l | LEA.L 0x20c74,A1 00023b0a 70 22 |p" | MOVEQ.L #0x22,D0 00023b0c 10 d9 | | MOVE.B (A1)+,(A0)+ 00023b0e 51 c8 ff fc |Q | DBF D0,0x23b0c 00023b12 3f 02 |? | MOVE.W D2,-(A7) 00023b14 59 4f |YO | SUBQ.L #0x4,A7 00023b16 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00023b1a 3f 01 |? | MOVE.W D1,-(A7) 00023b1c 3f 3c 00 23 |?< # | MOVE.W #0x23,-(A7) 00023b20 4e 94 |N | JSR (A4) 00023b22 50 4f |PO | ADDQ.L #0x8,A7 00023b24 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 00023b2a de fc 00 28 | ( | ADDA.W #0x28,A7 00023b2e 3e 82 |> | MOVE.W D2,(A7) 00023b30 3f 06 |? | MOVE.W D6,-(A7) 00023b32 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00023b38 54 4f |TO | ADDQ.L #0x2,A7 00023b3a 3e 82 |> | MOVE.W D2,(A7) 00023b3c 3f 03 |? | MOVE.W D3,-(A7) 00023b3e 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00023b44 58 4f |XO | ADDQ.L #0x4,A7 00023b46 60 18 |` | BRA 0x23b60 00023b48 4a 39 00 02 42 73 |J9 Bs | TST.B 0x24273 00023b4e 66 10 |f | BNE 0x23b60 00023b50 3f 3a d1 4a |?: J | MOVE.W 0x20c9c,-(A7) 00023b54 3f 3a d1 44 |?: D | MOVE.W 0x20c9a,-(A7) 00023b58 3f 3a d1 3e |?: > | MOVE.W 0x20c98,-(A7) 00023b5c 60 00 fe a8 |` | BRA 0x23a06 00023b60 41 fa d1 6c |A l | LEA.L 0x20cce,A0 00023b64 70 0b |p | MOVEQ.L #0x0b,D0 00023b66 2f 20 |/ | MOVE.L -(A0),-(A7) 00023b68 51 c8 ff fc |Q | DBF D0,0x23b66 00023b6c 3f 02 |? | MOVE.W D2,-(A7) 00023b6e 59 4f |YO | SUBQ.L #0x4,A7 00023b70 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00023b74 3f 01 |? | MOVE.W D1,-(A7) 00023b76 3f 3c 00 30 |?< 0 | MOVE.W #0x30,-(A7) 00023b7a 4e 94 |N | JSR (A4) 00023b7c 50 4f |PO | ADDQ.L #0x8,A7 00023b7e 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 00023b84 de fc 00 36 | 6 | ADDA.W #0x36,A7 00023b88 4e ba f1 dc |N | JSR 0x22d66 00023b8c 60 00 fd 2a |` * | BRA 0x238b8 00023b90 41 fa d1 52 |A R | LEA.L 0x20ce4,A0 00023b94 70 0a |p | MOVEQ.L #0x0a,D0 00023b96 3f 20 |? | MOVE.W -(A0),-(A7) 00023b98 51 c8 ff fc |Q | DBF D0,0x23b96 00023b9c 59 4f |YO | SUBQ.L #0x4,A7 00023b9e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023ba2 3f 01 |? | MOVE.W D1,-(A7) 00023ba4 3f 04 |? | MOVE.W D4,-(A7) 00023ba6 4e 94 |N | JSR (A4) 00023ba8 50 4f |PO | ADDQ.L #0x8,A7 00023baa 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023bb0 de c5 | | ADDA.W D5,A7 00023bb2 42 39 00 02 42 73 |B9 Bs | CLR.B 0x24273 00023bb8 41 fa d1 5e |A ^ | LEA.L 0x20d18,A0 00023bbc 70 0c |p | MOVEQ.L #0x0c,D0 00023bbe 2f 20 |/ | MOVE.L -(A0),-(A7) 00023bc0 51 c8 ff fc |Q | DBF D0,0x23bbe 00023bc4 59 4f |YO | SUBQ.L #0x4,A7 00023bc6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023bca 3f 01 |? | MOVE.W D1,-(A7) 00023bcc 3f 3c 00 34 |?< 4 | MOVE.W #0x34,-(A7) 00023bd0 4e 94 |N | JSR (A4) 00023bd2 50 4f |PO | ADDQ.L #0x8,A7 00023bd4 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023bda de fc 00 38 | 8 | ADDA.W #0x38,A7 00023bde 9e c4 | | SUBA.W D4,A7 00023be0 20 4f | O | MOVEA.L A7,A0 00023be2 43 fa d1 34 |C 4 | LEA.L 0x20d18,A1 00023be6 70 14 |p | MOVEQ.L #0x14,D0 00023be8 10 d9 | | MOVE.B (A1)+,(A0)+ 00023bea 51 c8 ff fc |Q | DBF D0,0x23be8 00023bee 3f 02 |? | MOVE.W D2,-(A7) 00023bf0 59 4f |YO | SUBQ.L #0x4,A7 00023bf2 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00023bf6 3f 01 |? | MOVE.W D1,-(A7) 00023bf8 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 00023bfc 4e 94 |N | JSR (A4) 00023bfe 50 4f |PO | ADDQ.L #0x8,A7 00023c00 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 00023c06 de c5 | | ADDA.W D5,A7 00023c08 1e 81 | | MOVE.B D1,(A7) 00023c0a 48 78 01 2c |Hx , | PEA.L 0x12c 00023c0e 4e ba db ac |N | JSR 0x217bc 00023c12 5c 4f |\O | ADDQ.L #0x6,A7 00023c14 4a 13 |J | TST.B (A3) 00023c16 67 04 |g | BEQ 0x23c1c 00023c18 60 00 01 70 |` p | BRA 0x23d8a 00023c1c 20 52 | R | MOVEA.L (A2),A0 00023c1e 30 10 |0 | MOVE.W (A0),D0 00023c20 0c 40 00 02 | @ | CMPI.W #0x0002,D0 00023c24 6c 04 |l | BGE 0x23c2a 00023c26 60 00 fc 90 |` | BRA 0x238b8 00023c2a 20 52 | R | MOVEA.L (A2),A0 00023c2c 30 10 |0 | MOVE.W (A0),D0 00023c2e 48 c0 |H | EXTW.L D0 00023c30 2f 00 |/ | MOVE.L D0,-(A7) 00023c32 7e 01 |~ | MOVEQ.L #0x01,D7 00023c34 be 97 | | CMP.L (A7),D7 00023c36 6e 20 |n | BGT 0x23c58 00023c38 20 79 00 02 42 6a | y Bj | MOVEA.L 0x2426a,A0 00023c3e 20 07 | | MOVE.L D7,D0 00023c40 53 80 |S | SUBQ.L #0x1,D0 00023c42 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00023c48 63 02 |c | BLS 0x23c4c 00023c4a 4e 4f |NO | TRAP #15 00023c4c 22 52 |"R | MOVEA.L (A2),A1 00023c4e 11 b1 08 02 08 02 | | MOVE.B (A1+D0.L+#0x2),(A0+D0.L+#0x2) 00023c54 52 87 |R | ADDQ.L #0x1,D7 00023c56 68 dc |h | BVC 0x23c34 00023c58 58 4f |XO | ADDQ.L #0x4,A7 00023c5a 20 79 00 02 42 6a | y Bj | MOVEA.L 0x2426a,A0 00023c60 22 52 |"R | MOVEA.L (A2),A1 00023c62 30 11 |0 | MOVE.W (A1),D0 00023c64 48 c0 |H | EXTW.L D0 00023c66 53 80 |S | SUBQ.L #0x1,D0 00023c68 04 80 ff ff 80 00 | | SUBI.L #0xffff8000,D0 00023c6e 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00023c74 63 02 |c | BLS 0x23c78 00023c76 4e 4f |NO | TRAP #15 00023c78 06 80 ff ff 80 00 | | ADDI.L #0xffff8000,D0 00023c7e 30 80 |0 | MOVE.W D0,(A0) 00023c80 2f 39 00 02 42 6a |/9 Bj | MOVE.L 0x2426a,-(A7) 00023c86 42 27 |B' | CLR.B -(A7) 00023c88 42 27 |B' | CLR.B -(A7) 00023c8a 48 78 00 00 |Hx | PEA.L 0x0 00023c8e 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00023c92 48 79 00 02 42 78 |Hy Bx | PEA.L 0x24278 00023c98 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00023c9e de fc 00 14 | | ADDA.W #0x14,A7 00023ca2 4a 2e ff f4 |J. | TST.B (A6-0xc) 00023ca6 67 78 |gx | BEQ 0x23d20 00023ca8 48 6e ff fa |Hn | PEA.L (A6-0x6) 00023cac 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00023cb2 1f 2e ff f4 | . | MOVE.B (A6-0xc),-(A7) 00023cb6 4e b9 00 01 03 a0 |N | JSR FsErrMsgStr(err: Byte) : String 00023cbc 54 4f |TO | ADDQ.L #0x2,A7 00023cbe 2d 5f ff fa |-_ | MOVE.L (A7)+,(A6-0x6) 00023cc2 3f 02 |? | MOVE.W D2,-(A7) 00023cc4 3f 03 |? | MOVE.W D3,-(A7) 00023cc6 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00023ccc 59 4f |YO | SUBQ.L #0x4,A7 00023cce 20 4f | O | MOVEA.L A7,A0 00023cd0 43 fa d0 5c |C \ | LEA.L 0x20d2e,A1 00023cd4 70 06 |p | MOVEQ.L #0x06,D0 00023cd6 10 d9 | | MOVE.B (A1)+,(A0)+ 00023cd8 51 c8 ff fc |Q | DBF D0,0x23cd6 00023cdc 3f 02 |? | MOVE.W D2,-(A7) 00023cde 51 4f |QO | SUBQ.L #0x8,A7 00023ce0 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00023ce4 3f 01 |? | MOVE.W D1,-(A7) 00023ce6 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00023cea 4e 94 |N | JSR (A4) 00023cec 58 4f |XO | ADDQ.L #0x4,A7 00023cee 2e ae ff fa |. | MOVE.L (A6-0x6),(A7) 00023cf2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023cf8 50 4f |PO | ADDQ.L #0x8,A7 00023cfa 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 00023d00 de fc 00 0c | | ADDA.W #0xc,A7 00023d04 3e 82 |> | MOVE.W D2,(A7) 00023d06 3f 03 |? | MOVE.W D3,-(A7) 00023d08 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00023d0e 54 4f |TO | ADDQ.L #0x2,A7 00023d10 3e 82 |> | MOVE.W D2,(A7) 00023d12 3f 06 |? | MOVE.W D6,-(A7) 00023d14 4e b9 00 01 02 0c |N | JSR KC06_PortPutChar(port : Word ; b : char) 00023d1a 58 4f |XO | ADDQ.L #0x4,A7 00023d1c 60 00 fe c0 |` | BRA 0x23bde 00023d20 13 c1 00 02 42 72 | Br | MOVE.B D1,0x24272 00023d26 41 fa d0 4e |A N | LEA.L 0x20d76,A0 00023d2a 70 0f |p | MOVEQ.L #0x0f,D0 00023d2c 2f 20 |/ | MOVE.L -(A0),-(A7) 00023d2e 51 c8 ff fc |Q | DBF D0,0x23d2c 00023d32 3f 02 |? | MOVE.W D2,-(A7) 00023d34 59 4f |YO | SUBQ.L #0x4,A7 00023d36 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00023d3a 3f 01 |? | MOVE.W D1,-(A7) 00023d3c 3f 3c 00 40 |?< @ | MOVE.W #0x40,-(A7) 00023d40 4e 94 |N | JSR (A4) 00023d42 50 4f |PO | ADDQ.L #0x8,A7 00023d44 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 00023d4a de fc 00 46 | F | ADDA.W #0x46,A7 00023d4e 41 fa d0 3e |A > | LEA.L 0x20d8e,A0 00023d52 70 05 |p | MOVEQ.L #0x05,D0 00023d54 2f 20 |/ | MOVE.L -(A0),-(A7) 00023d56 51 c8 ff fc |Q | DBF D0,0x23d54 00023d5a 59 4f |YO | SUBQ.L #0x4,A7 00023d5c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023d60 3f 01 |? | MOVE.W D1,-(A7) 00023d62 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00023d66 4e 94 |N | JSR (A4) 00023d68 50 4f |PO | ADDQ.L #0x8,A7 00023d6a 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023d70 de fc 00 18 | | ADDA.W #0x18,A7 00023d74 2e bc 00 05 f5 dc |. | MOVE.L #0x5f5dc,(A7) 00023d7a 4e b9 00 01 02 24 |N $ | JSR KC12_Sleep(dur: Long) 00023d80 58 4f |XO | ADDQ.L #0x4,A7 00023d82 4e ba e9 80 |N | JSR 0x22704 00023d86 60 00 fb 30 |` 0 | BRA 0x238b8 00023d8a 9e c4 | | SUBA.W D4,A7 00023d8c 20 4f | O | MOVEA.L A7,A0 00023d8e 43 fa cf fe |C | LEA.L 0x20d8e,A1 00023d92 70 14 |p | MOVEQ.L #0x14,D0 00023d94 10 d9 | | MOVE.B (A1)+,(A0)+ 00023d96 51 c8 ff fc |Q | DBF D0,0x23d94 00023d9a 3f 02 |? | MOVE.W D2,-(A7) 00023d9c 59 4f |YO | SUBQ.L #0x4,A7 00023d9e 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00023da2 3f 01 |? | MOVE.W D1,-(A7) 00023da4 3f 3c 00 15 |?< | MOVE.W #0x15,-(A7) 00023da8 4e 94 |N | JSR (A4) 00023daa 50 4f |PO | ADDQ.L #0x8,A7 00023dac 4e b9 00 01 02 0a |N | JSR KC05_PortWriteString(port : Word ; str : String) 00023db2 de fc 00 1c | | ADDA.W #0x1c,A7 00023db6 4e ba fa 0e |N | JSR 0x237c6 00023dba 1f 13 | | MOVE.B (A3),-(A7) 00023dbc 1f 2e ff f4 | . | MOVE.B (A6-0xc),-(A7) 00023dc0 4e ba e6 5e |N ^ | JSR 0x22420 00023dc4 58 4f |XO | ADDQ.L #0x4,A7 00023dc6 10 13 | | MOVE.B (A3),D0 00023dc8 0c 00 00 10 | | CMPI.B #0x10,D0 00023dcc 67 06 |g | BEQ 0x23dd4 00023dce 0c 00 00 0e | | CMPI.B #0x0e,D0 00023dd2 66 04 |f | BNE 0x23dd8 00023dd4 60 00 fa ca |` | BRA 0x238a0 00023dd8 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00023ddc 4e 5e |N^ | UNLK A6 00023dde 4e 75 |Nu | RTS 00023de0 ; -------------------------------------------------------------------------------------- 00023de0 ; OMSI PASCAL Function 00023de0 ; -------------------------------------------------------------------------------------- 00023de0 4e 56 ff a2 |NV | LINK.W A6,#0xffa2 00023de4 bf d5 | | CMPA.L (A5),A7 00023de6 62 06 |b | BHI 0x23dee 00023de8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023dec 4e 76 |Nv | TRAPV 00023dee de fc 00 56 | V | ADDA.W #0x56,A7 00023df2 48 e7 e0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D2+D1+D0,-(A7) 00023df6 45 f9 00 01 02 c4 |E | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A2 00023dfc 47 f9 00 02 42 67 |G Bg | LEA.L 0x24267,A3 00023e02 72 01 |r | MOVEQ.L #0x01,D1 00023e04 74 02 |t | MOVEQ.L #0x02,D2 00023e06 4a 13 |J | TST.B (A3) 00023e08 67 2c |g, | BEQ 0x23e36 00023e0a 9e fc 00 12 | | SUBA.W #0x12,A7 00023e0e 20 4f | O | MOVEA.L A7,A0 00023e10 43 fa cf 92 |C | LEA.L 0x20da4,A1 00023e14 70 10 |p | MOVEQ.L #0x10,D0 00023e16 10 d9 | | MOVE.B (A1)+,(A0)+ 00023e18 51 c8 ff fc |Q | DBF D0,0x23e16 00023e1c 59 4f |YO | SUBQ.L #0x4,A7 00023e1e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023e22 3f 01 |? | MOVE.W D1,-(A7) 00023e24 3f 3c 00 11 |?< | MOVE.W #0x11,-(A7) 00023e28 4e 92 |N | JSR (A2) 00023e2a 50 4f |PO | ADDQ.L #0x8,A7 00023e2c 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023e32 de fc 00 16 | | ADDA.W #0x16,A7 00023e36 10 39 00 02 42 65 | 9 Be | MOVE.B 0x24265,D0 00023e3c 0c 00 00 18 | | CMPI.B #0x18,D0 00023e40 66 04 |f | BNE 0x23e46 00023e42 60 00 01 80 |` | BRA 0x23fc4 00023e46 4e ba d4 c8 |N | JSR 0x21310 00023e4a 4a 39 00 02 42 64 |J9 Bd | TST.B 0x24264 00023e50 67 0a |g | BEQ 0x23e5c 00023e52 42 39 00 02 42 64 |B9 Bd | CLR.B 0x24264 00023e58 60 00 01 62 |` b | BRA 0x23fbc 00023e5c 2f 3a c3 3e |/: > | MOVE.L 0x2019c,-(A7) 00023e60 2f 3a c3 36 |/: 6 | MOVE.L 0x20198,-(A7) 00023e64 51 4f |QO | SUBQ.L #0x8,A7 00023e66 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023e6a 3f 01 |? | MOVE.W D1,-(A7) 00023e6c 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 00023e70 4e 92 |N | JSR (A2) 00023e72 50 4f |PO | ADDQ.L #0x8,A7 00023e74 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00023e7a 58 4f |XO | ADDQ.L #0x4,A7 00023e7c 28 5f |(_ | MOVEA.L (A7)+,A4 00023e7e 50 4f |PO | ADDQ.L #0x8,A7 00023e80 4a 54 |JT | TST.W (A4) 00023e82 66 02 |f | BNE 0x23e86 00023e84 60 b0 |` | BRA 0x23e36 00023e86 2f 0c |/ | MOVE.L A4,-(A7) 00023e88 4e ba e0 d0 |N | JSR 0x21f5a 00023e8c 58 4f |XO | ADDQ.L #0x4,A7 00023e8e 10 2c 00 02 | , | MOVE.B (A4+0x2),D0 00023e92 0c 00 00 48 | H | CMPI.B #0x48,D0 00023e96 66 04 |f | BNE 0x23e9c 00023e98 60 00 01 12 |` | BRA 0x23fac 00023e9c 10 2c 00 02 | , | MOVE.B (A4+0x2),D0 00023ea0 0c 00 00 51 | Q | CMPI.B #0x51,D0 00023ea4 66 04 |f | BNE 0x23eaa 00023ea6 60 00 01 1c |` | BRA 0x23fc4 00023eaa 10 2c 00 02 | , | MOVE.B (A4+0x2),D0 00023eae 0c 00 00 53 | S | CMPI.B #0x53,D0 00023eb2 66 04 |f | BNE 0x23eb8 00023eb4 60 00 00 fe |` | BRA 0x23fb4 00023eb8 10 2c 00 02 | , | MOVE.B (A4+0x2),D0 00023ebc 0c 00 00 41 | A | CMPI.B #0x41,D0 00023ec0 66 04 |f | BNE 0x23ec6 00023ec2 60 00 00 f8 |` | BRA 0x23fbc 00023ec6 30 14 |0 | MOVE.W (A4),D0 00023ec8 b0 41 | A | CMP.W D1,D0 00023eca 6f 00 00 b6 |o | BLE 0x23f82 00023ece 38 82 |8 | MOVE.W D2,(A4) 00023ed0 3f 3a ce e4 |?: | MOVE.W 0x20db6,-(A7) 00023ed4 55 4f |UO | SUBQ.L #0x2,A7 00023ed6 2f 0c |/ | MOVE.L A4,-(A7) 00023ed8 59 4f |YO | SUBQ.L #0x4,A7 00023eda 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00023ede 3f 01 |? | MOVE.W D1,-(A7) 00023ee0 3f 02 |? | MOVE.W D2,-(A7) 00023ee2 4e 92 |N | JSR (A2) 00023ee4 50 4f |PO | ADDQ.L #0x8,A7 00023ee6 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00023eec 50 4f |PO | ADDQ.L #0x8,A7 00023eee 4a 1f |J | TST.B (A7)+ 00023ef0 67 08 |g | BEQ 0x23efa 00023ef2 16 81 | | MOVE.B D1,(A3) 00023ef4 54 4f |TO | ADDQ.L #0x2,A7 00023ef6 60 00 ff 3e |` > | BRA 0x23e36 00023efa 3e ba ce bc |> | MOVE.W 0x20db8,(A7) 00023efe 55 4f |UO | SUBQ.L #0x2,A7 00023f00 2f 0c |/ | MOVE.L A4,-(A7) 00023f02 59 4f |YO | SUBQ.L #0x4,A7 00023f04 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00023f08 3f 01 |? | MOVE.W D1,-(A7) 00023f0a 3f 02 |? | MOVE.W D2,-(A7) 00023f0c 4e 92 |N | JSR (A2) 00023f0e 50 4f |PO | ADDQ.L #0x8,A7 00023f10 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00023f16 50 4f |PO | ADDQ.L #0x8,A7 00023f18 4a 1f |J | TST.B (A7)+ 00023f1a 67 08 |g | BEQ 0x23f24 00023f1c 42 13 |B | CLR.B (A3) 00023f1e 54 4f |TO | ADDQ.L #0x2,A7 00023f20 60 00 ff 14 |` | BRA 0x23e36 00023f24 3e ba ce 94 |> | MOVE.W 0x20dba,(A7) 00023f28 55 4f |UO | SUBQ.L #0x2,A7 00023f2a 2f 0c |/ | MOVE.L A4,-(A7) 00023f2c 59 4f |YO | SUBQ.L #0x4,A7 00023f2e 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00023f32 3f 01 |? | MOVE.W D1,-(A7) 00023f34 3f 02 |? | MOVE.W D2,-(A7) 00023f36 4e 92 |N | JSR (A2) 00023f38 50 4f |PO | ADDQ.L #0x8,A7 00023f3a 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00023f40 50 4f |PO | ADDQ.L #0x8,A7 00023f42 4a 1f |J | TST.B (A7)+ 00023f44 67 0c |g | BEQ 0x23f52 00023f46 13 c1 00 02 42 68 | Bh | MOVE.B D1,0x24268 00023f4c 54 4f |TO | ADDQ.L #0x2,A7 00023f4e 60 00 fe e6 |` | BRA 0x23e36 00023f52 3e ba ce 68 |> h | MOVE.W 0x20dbc,(A7) 00023f56 55 4f |UO | SUBQ.L #0x2,A7 00023f58 2f 0c |/ | MOVE.L A4,-(A7) 00023f5a 59 4f |YO | SUBQ.L #0x4,A7 00023f5c 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00023f60 3f 01 |? | MOVE.W D1,-(A7) 00023f62 3f 02 |? | MOVE.W D2,-(A7) 00023f64 4e 92 |N | JSR (A2) 00023f66 50 4f |PO | ADDQ.L #0x8,A7 00023f68 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00023f6e 50 4f |PO | ADDQ.L #0x8,A7 00023f70 4a 1f |J | TST.B (A7)+ 00023f72 67 0c |g | BEQ 0x23f80 00023f74 42 39 00 02 42 68 |B9 Bh | CLR.B 0x24268 00023f7a 54 4f |TO | ADDQ.L #0x2,A7 00023f7c 60 00 fe b8 |` | BRA 0x23e36 00023f80 54 4f |TO | ADDQ.L #0x2,A7 00023f82 41 fa ce 60 |A ` | LEA.L 0x20de4,A0 00023f86 70 12 |p | MOVEQ.L #0x12,D0 00023f88 3f 20 |? | MOVE.W -(A0),-(A7) 00023f8a 51 c8 ff fc |Q | DBF D0,0x23f88 00023f8e 59 4f |YO | SUBQ.L #0x4,A7 00023f90 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023f94 3f 01 |? | MOVE.W D1,-(A7) 00023f96 3f 3c 00 26 |?< & | MOVE.W #0x26,-(A7) 00023f9a 4e 92 |N | JSR (A2) 00023f9c 50 4f |PO | ADDQ.L #0x8,A7 00023f9e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023fa4 de fc 00 2a | * | ADDA.W #0x2a,A7 00023fa8 60 00 fe 8c |` | BRA 0x23e36 00023fac 4e ba d1 b4 |N | JSR 0x21162 00023fb0 60 00 fe 84 |` | BRA 0x23e36 00023fb4 4e ba d5 4e |N N | JSR 0x21504 00023fb8 60 00 fe 7c |` | | BRA 0x23e36 00023fbc 4e ba f8 7c |N | | JSR 0x2383a 00023fc0 60 00 fe 74 |` t | BRA 0x23e36 00023fc4 4c df 1f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3+A4 00023fc8 4e 5e |N^ | UNLK A6 00023fca 4e 75 |Nu | RTS 00023fcc ; -------------------------------------------------------------------------------------- 00023fcc ; OMSI PASCAL Function 00023fcc ; -------------------------------------------------------------------------------------- 00023fcc START: 00023fcc 4f fa 00 08 |O | LEA.L MAIN,A7 00023fd0 4e f9 00 01 02 80 |N | JMP ?start_program 00023fd6 MAIN: 00023fd6 41 f9 00 02 42 6a |A Bj | LEA.L 0x2426a,A0 00023fdc 43 f9 00 02 4a a2 |C J | LEA.L 0x24aa2,A1 00023fe2 42 39 00 02 42 67 |B9 Bg | CLR.B 0x24267 00023fe8 42 39 00 02 42 68 |B9 Bh | CLR.B 0x24268 00023fee 13 fc 00 01 00 02 42 64 | Bd| MOVE.B #0x01,0x24264 00023ff6 42 39 00 02 42 66 |B9 Bf | CLR.B 0x24266 00023ffc 13 fc 00 23 00 02 42 8a | # B | MOVE.B #0x23,0x2428a 00024004 13 fc 00 26 00 02 42 8b | & B | MOVE.B #0x26,0x2428b 0002400c 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00024012 48 50 |HP | PEA.L (A0) 00024014 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002401a 58 4f |XO | ADDQ.L #0x4,A7 0002401c 48 51 |HQ | PEA.L (A1) 0002401e 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00024024 58 4f |XO | ADDQ.L #0x4,A7 00024026 4e ba d1 3a |N : | JSR 0x21162 0002402a 4e ba fd b4 |N | JSR 0x23de0 0002402e 48 50 |HP | PEA.L (A0) 00024030 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00024036 58 4f |XO | ADDQ.L #0x4,A7 00024038 48 51 |HQ | PEA.L (A1) 0002403a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00024040 54 4f |TO | ADDQ.L #0x2,A7 00024042 42 17 |B | CLR.B (A7) 00024044 48 78 00 01 |Hx | PEA.L 0x1 00024048 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002404e 5c 4f |\O | ADDQ.L #0x6,A7 00024050 4e b9 00 01 02 84 |N | JSR ?exit 00024056 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00024064 ; -------------------------------------------------------------------------------------- 00024064 ; OMSI PASCAL Function 00024064 ; <LVAR 0x008 1(r)> 00024064 ; -------------------------------------------------------------------------------------- 00024064 PROG_FAIL: 00024064 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00024068 bf d5 | | CMPA.L (A5),A7 0002406a 62 06 |b | BHI 0x24072 0002406c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024070 4e 76 |Nv | TRAPV 00024072 de fc 00 2c | , | ADDA.W #0x2c,A7 00024076 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 0002407a 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 0002407e 70 06 |p | MOVEQ.L #0x06,D0 00024080 3f 20 |? | MOVE.W -(A0),-(A7) 00024082 51 c8 ff fc |Q | DBF D0,0x24080 00024086 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 0002408a 51 4f |QO | SUBQ.L #0x8,A7 0002408c 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00024090 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024094 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00024098 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002409e 58 4f |XO | ADDQ.L #0x4,A7 000240a0 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 000240a4 48 80 |H | EXTB.W D0 000240a6 48 c0 |H | EXTW.L D0 000240a8 2f 00 |/ | MOVE.L D0,-(A7) 000240aa 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 000240b0 58 4f |XO | ADDQ.L #0x4,A7 000240b2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000240b8 50 4f |PO | ADDQ.L #0x8,A7 000240ba 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 000240c0 de fc 00 14 | | ADDA.W #0x14,A7 000240c4 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000240c8 4e 5e |N^ | UNLK A6 000240ca 4e 75 |Nu | RTS 000240cc 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 000240da 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 000240e8 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 000240f6 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00024108 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00024120 ; -------------------------------------------------------------------------------------- 00024120 ; OMSI PASCAL Function 00024120 ; <LVAR 0x00e 1(r)> 00024120 ; <LVAR 0x00a 4(r)> 00024120 ; <LVAR 0x008 1(r)> 00024120 ; -------------------------------------------------------------------------------------- 00024120 EXP_FAIL: 00024120 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00024124 bf d5 | | CMPA.L (A5),A7 00024126 62 06 |b | BHI 0x2412e 00024128 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002412c 4e 76 |Nv | TRAPV 0002412e de fc 00 74 | t | ADDA.W #0x74,A7 00024132 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00024136 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 0002413c 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00024142 72 01 |r | MOVEQ.L #0x01,D1 00024144 74 0d |t | MOVEQ.L #0x0d,D2 00024146 76 1e |v | MOVEQ.L #0x1e,D3 00024148 78 12 |x | MOVEQ.L #0x12,D4 0002414a 7a 0e |z | MOVEQ.L #0x0e,D5 0002414c 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00024152 41 fa ff b4 |A | LEA.L 0x24108,A0 00024156 70 08 |p | MOVEQ.L #0x08,D0 00024158 3f 20 |? | MOVE.W -(A0),-(A7) 0002415a 51 c8 ff fc |Q | DBF D0,0x24158 0002415e 59 4f |YO | SUBQ.L #0x4,A7 00024160 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024164 3f 01 |? | MOVE.W D1,-(A7) 00024166 3f 04 |? | MOVE.W D4,-(A7) 00024168 4e 93 |N | JSR (A3) 0002416a 50 4f |PO | ADDQ.L #0x8,A7 0002416c 4e 94 |N | JSR (A4) 0002416e 50 4f |PO | ADDQ.L #0x8,A7 00024170 20 4f | O | MOVEA.L A7,A0 00024172 43 fa ff 58 |C X | LEA.L 0x240cc,A1 00024176 70 0c |p | MOVEQ.L #0x0c,D0 00024178 10 d9 | | MOVE.B (A1)+,(A0)+ 0002417a 51 c8 ff fc |Q | DBF D0,0x24178 0002417e 51 4f |QO | SUBQ.L #0x8,A7 00024180 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00024184 3f 01 |? | MOVE.W D1,-(A7) 00024186 3f 02 |? | MOVE.W D2,-(A7) 00024188 4e 93 |N | JSR (A3) 0002418a 54 4f |TO | ADDQ.L #0x2,A7 0002418c 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00024190 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00024196 54 4f |TO | ADDQ.L #0x2,A7 00024198 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002419e 50 4f |PO | ADDQ.L #0x8,A7 000241a0 4e 94 |N | JSR (A4) 000241a2 de c4 | | ADDA.W D4,A7 000241a4 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000241a8 b0 c1 | | CMPA.W D1,A0 000241aa 67 48 |gH | BEQ 0x241f4 000241ac 9e c5 | | SUBA.W D5,A7 000241ae 22 4f |"O | MOVEA.L A7,A1 000241b0 45 fa ff 28 |E ( | LEA.L 0x240da,A2 000241b4 70 0c |p | MOVEQ.L #0x0c,D0 000241b6 12 da | | MOVE.B (A2)+,(A1)+ 000241b8 51 c8 ff fc |Q | DBF D0,0x241b6 000241bc 9e c3 | | SUBA.W D3,A7 000241be 22 4f |"O | MOVEA.L A7,A1 000241c0 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 000241c4 70 1d |p | MOVEQ.L #0x1d,D0 000241c6 12 d8 | | MOVE.B (A0)+,(A1)+ 000241c8 51 c8 ff fc |Q | DBF D0,0x241c6 000241cc 51 4f |QO | SUBQ.L #0x8,A7 000241ce 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 000241d2 3f 01 |? | MOVE.W D1,-(A7) 000241d4 3f 02 |? | MOVE.W D2,-(A7) 000241d6 4e 93 |N | JSR (A3) 000241d8 58 4f |XO | ADDQ.L #0x4,A7 000241da 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000241de 3f 01 |? | MOVE.W D1,-(A7) 000241e0 3f 03 |? | MOVE.W D3,-(A7) 000241e2 4e 93 |N | JSR (A3) 000241e4 50 4f |PO | ADDQ.L #0x8,A7 000241e6 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000241ec 50 4f |PO | ADDQ.L #0x8,A7 000241ee 4e 94 |N | JSR (A4) 000241f0 de fc 00 30 | 0 | ADDA.W #0x30,A7 000241f4 9e c5 | | SUBA.W D5,A7 000241f6 20 4f | O | MOVEA.L A7,A0 000241f8 43 fa fe ee |C | LEA.L 0x240e8,A1 000241fc 70 0c |p | MOVEQ.L #0x0c,D0 000241fe 10 d9 | | MOVE.B (A1)+,(A0)+ 00024200 51 c8 ff fc |Q | DBF D0,0x241fe 00024204 51 4f |QO | SUBQ.L #0x8,A7 00024206 48 6f 00 08 |Ho | PEA.L (A7+0x8) 0002420a 3f 01 |? | MOVE.W D1,-(A7) 0002420c 3f 02 |? | MOVE.W D2,-(A7) 0002420e 4e 93 |N | JSR (A3) 00024210 54 4f |TO | ADDQ.L #0x2,A7 00024212 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00024216 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 0002421c 54 4f |TO | ADDQ.L #0x2,A7 0002421e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024224 50 4f |PO | ADDQ.L #0x8,A7 00024226 4e 94 |N | JSR (A4) 00024228 5d 4f |]O | SUBQ.L #0x6,A7 0002422a 20 4f | O | MOVEA.L A7,A0 0002422c 43 fa fe da |C | LEA.L 0x24108,A1 00024230 70 16 |p | MOVEQ.L #0x16,D0 00024232 10 d9 | | MOVE.B (A1)+,(A0)+ 00024234 51 c8 ff fc |Q | DBF D0,0x24232 00024238 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002423c 59 4f |YO | SUBQ.L #0x4,A7 0002423e 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00024242 3f 01 |? | MOVE.W D1,-(A7) 00024244 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00024248 4e 93 |N | JSR (A3) 0002424a 50 4f |PO | ADDQ.L #0x8,A7 0002424c 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00024252 de c3 | | ADDA.W D3,A7 00024254 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00024258 4e 5e |N^ | UNLK A6 0002425a 4e 75 |Nu | RTS