|
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: 19968 (0x4e00)
Types: M200
Notes: @(#)WHAT,1.7,90/12/05,13:08:00, M200_PROGRAM
Names: »WHAT.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »WHAT.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »WHAT.M200«
@ 20260
<LVAR 0x016 4(r)>
<LVAR 0x012 @ 4(r)>
<LVAR 0x010 1(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 20260-202c0 Body>
<POP 20260-20276 Prologue> Σ0 ↓
<POP 20276-202a8 Naked> Σ0 ↓ →0x202b8
<MI 20276 MOVEA.L (A6+0x8),A0> {}
<MI 2027a MOVEA.L (A6+0xc),A1> {}
<MI 2027e MOVE.L (A6+0x16),-(A7)> Δ-4 {[4, '(A6+0x16)']}
<Const 0x20282 0x0.4> Δ-4 {[4, '(A6+0x16)']|[##0]}
<MI 20286 MOVE.L (A6+0x12),-(A7)> Δ-4 {[4, '(A6+0x16)']|[##0]|[4, '(A6+0x12)']}
<MI 2028a PEA.L (A0)> Δ-4 {[4, '(A6+0x16)']|[##0]|[4, '(A6+0x12)']|[4, '^(A0)']}
<MI 2028c PEA.L (A1)> Δ-4 {[4, '(A6+0x16)']|[##0]|[4, '(A6+0x12)']|[4, '^(A0)']|[4, '^(A1)']}
<Call 0x2028e 0x2441e> {[4, '(A6+0x16)']|[##0]|[4, '(A6+0x12)']|[4, '^(A0)']|[4, '^(A1)']}
<POP 20294-20298 StackAdj> Δ+20 {}
<Pointer.fp 0x20298 <LVAR 0x012 @ 4(r)>> Δ-4 {[@@18]}
<Call 0x2029c 0x102bc> {[@@18]}
FreeString(VAR a : String)
<POP 202a2-202a4 StackAdj> Δ+4 {}
<MI 202a4 TST.B (A1)> {}
<MI 202a6 BEQ 0x202b8> {}
<POP 202a8-202ae Naked> Σ0 ↓ →0x202b8
<MI 202a8 TST.B (A6+0x10)> {}
<MI 202ac BNE 0x202b8> {}
<POP 202ae-202b8 Naked> Σ0 ↓
<MI 202ae PEA.L (A0)> Δ-4 {[4, '^(A0)']}
<Call 0x202b0 0x102bc> {[4, '^(A0)']}
FreeString(VAR a : String)
<POP 202b6-202b8 StackAdj> Δ+4 {}
<POP 202b8-202c0 Epilogue> Σ0 ←0x20276 ←0x202a8
@ 202c0
<LVAR 0x00a 1(rw)>
<LVAR 0x008 1(r)>
<POP 202c0-20360 Body>
<POP 202c0-202d6 Prologue> Σ0 ↓
<POP 202d6-202e8 RegCacheLoad> Σ0 ↓
<POP 202e8-202f0 Naked> Σ0 ↓ →0x20326
<MI 202e8 MOVE.L 0x24ccc,D0> {}
<MI 202ea BTST.L #0x0,D0> {}
<MI 202ee BEQ 0x20326> {}
<POP 202f0-2031e Naked> Σ0 ↓ →0x20322
<MI 202f0 MOVE.L 0x24ccc,D0> {}
<MI 202f2 SUBQ.L #0x1,D0> {}
<MI 202f4 MOVE.L D0,D4> {}
<MI 202f6 MOVEQ.L #0x02,D3> {}
<Call 0x202f8 0x10294> {}
?divs_d3_d4
<POP 0x202fe LimitCheck 0x0 ≤ D4 ≤ 0x1ff> {}
<MI 20308 ASL.L #0x1,D4> {}
<MI 2030a LEA.L 0x24cb8,A0> {}
<MI 2030c MOVE.W (A0+D4.L+#0x1a),D0> {}
<MI 20310 ANDI.W #0x00ff,D0> {}
<MI 20314 CLR.L D1> {}
<MI 20316 MOVE.B (A6+0x8),D1> {}
<MI 2031a CMP.W D1,D0> {}
<MI 2031c BNE 0x20322> {}
<POP 2031e-20322 Naked> Σ0 →0x20324
<MI 2031e MOVE.B #0x01,(A6+0xa)> {}
<MI 20320 BRA 0x20324> {}
<POP 20322-20324 Naked> Σ0 ↓ ←0x202f0
<MI 20322 CLR.B (A6+0xa)> {}
<POP 20324-20326 Naked> Σ0 →0x20358 ←0x2031e
<MI 20324 BRA 0x20358> {}
<POP 20326-20352 Naked> Σ0 ↓ →0x20356 ←0x202e8
<MI 20326 MOVE.L 0x24ccc,D4> {}
<MI 20328 MOVEQ.L #0x02,D3> {}
<Call 0x2032a 0x10294> {}
?divs_d3_d4
<POP 0x20330 LimitCheck 0x0 ≤ D4 ≤ 0x1ff> {}
<MI 2033a ASL.L #0x1,D4> {}
<MI 2033c LEA.L 0x24cb8,A0> {}
<MI 2033e MOVE.W (A0+D4.L+#0x1a),D0> {}
<MI 20342 ANDI.W #0xff00,D0> {}
<MI 20346 CLR.L D1> {}
<MI 20348 MOVE.B (A6+0x8),D1> {}
<MI 2034c ASL.W #0x8,D1> {}
<MI 2034e CMP.W D1,D0> {}
<MI 20350 BNE 0x20356> {}
<POP 20352-20356 Naked> Σ0 →0x20358
<MI 20352 MOVE.B #0x01,(A6+0xa)> {}
<MI 20354 BRA 0x20358> {}
<POP 20356-20358 Naked> Σ0 ↓ ←0x20326
<MI 20356 CLR.B (A6+0xa)> {}
<POP 20358-20360 Epilogue> Σ0 ←0x20324 ←0x20352
@ 20360
<POP 20360-203e4 Body> Δ+2
<POP 20360-20376 Prologue> Σ0 ↓
<POP 20376-20382 RegCacheLoad> Σ0 ↓
<POP 20382-2038a Naked> Σ0 ↓ →0x203b2
<MI 20382 MOVE.L 0x24ccc,D0> {}
<MI 20384 BTST.L #0x0,D0> {}
<MI 20388 BEQ 0x203b2> {}
<POP 2038a-203b2 Naked> Σ0 Δ-2 →0x203d2
<MI 2038a MOVE.L 0x24ccc,D0> {}
<MI 2038c SUBQ.L #0x1,D0> {}
<MI 2038e MOVE.L D0,D4> {}
<MI 20390 MOVEQ.L #0x02,D3> {}
<Call 0x20392 0x10294> {}
?divs_d3_d4
<POP 20398-2039a StackAdj> Δ-2 {[-2-]}
<POP 0x2039a LimitCheck 0x0 ≤ D4 ≤ 0x1ff> {[-2-]}
<MI 203a4 ASL.L #0x1,D4> {[-2-]}
<MI 203a6 LEA.L 0x24cb8,A0> {[-2-]}
<MI 203a8 MOVE.W (A0+D4.L+#0x1a),D0> {[-2-]}
<MI 203ac ANDI.W #0x00ff,D0> {[-2-]}
<MI 203b0 BRA 0x203d2> {[-2-]}
<POP 203b2-203d2 Naked> Σ0 Δ-2 ↓ ←0x20382
<MI 203b2 MOVE.L 0x24ccc,D4> {}
<MI 203b4 MOVEQ.L #0x02,D3> {}
<Call 0x203b6 0x10294> {}
?divs_d3_d4
<POP 203bc-203be StackAdj> Δ-2 {[-2-]}
<POP 0x203be LimitCheck 0x0 ≤ D4 ≤ 0x1ff> {[-2-]}
<MI 203c8 ASL.L #0x1,D4> {[-2-]}
<MI 203ca LEA.L 0x24cb8,A0> {[-2-]}
<MI 203cc MOVE.W (A0+D4.L+#0x1a),D0> {[-2-]}
<MI 203d0 LSR.W #0x8,D0> {[-2-]}
<POP 203d2-203dc Naked> Σ-2 Δ+2 ↓ ←0x2038a
<MI 203d2 MOVE.B D0,(A7)> {[-2-]}
<Call 0x203d4 0x103d0> {[-2-]}
WriteConsoleChar(chr : char)
<POP 203da-203dc StackAdj> Δ+2 {}
<POP 203dc-203e4 Epilogue> Σ0
@ 203e4
<POP 203e4-204c4 Body>
<POP 203e4-203fa Prologue> Σ0 ↓
<POP 203fa-20408 RegCacheLoad> Σ0 ↓
<POP 20408-2041c Naked> Σ0 →0x20426 →0x2043a →0x20452 →0x2046a →0x2048c
<MI 20408 MOVE.B 0x24cca,D0> {}
<MI 2040a EXTB.W D0> {}
<POP 0x2040c LimitCheck 0x0 ≤ D0 ≤ 0x4> {}
<MI 20412 ADD.W D0,D0> {}
<MI 20414 SWITCH D0.W> {}
<POP 20426-20434 Naked> Σ0 ↓ →0x20436 ←0x20408
<POP 20426-20428 StackAdj> Δ-2 {[-2-]}
<Const 0x20428 0x40.2> Δ-2 {[-2-]|[#64]}
<Call 0x2042c 0x202c0> {[-2-]|[#64]}
<POP 2042e-20430 StackAdj> Δ+2 {[-2-]}
<MI 20430 TST.B (A7)+> Δ+2 {}
<MI 20432 BEQ 0x20436> {}
<POP 20434-20436 Naked> Σ0 ↓
<MI 20434 MOVE.B #0x01,0x24cca> {}
<POP 20436-2043a Naked> Σ0 →0x204bc ←0x20426
<MI 20436 BRA 0x204bc> {}
<POP 2043a-20448 Naked> Σ0 ↓ →0x2044e ←0x20408
<POP 2043a-2043c StackAdj> Δ-2 {[-2-]}
<Const 0x2043c 0x28.2> Δ-2 {[-2-]|[#40]}
<Call 0x20440 0x202c0> {[-2-]|[#40]}
<POP 20442-20444 StackAdj> Δ+2 {[-2-]}
<MI 20444 TST.B (A7)+> Δ+2 {}
<MI 20446 BEQ 0x2044e> {}
<POP 20448-2044e Naked> Σ0 →0x20450
<MI 20448 MOVE.B #0x02,0x24cca> {}
<MI 2044c BRA 0x20450> {}
<POP 2044e-20450 Naked> Σ0 ↓ ←0x2043a
<MI 2044e CLR.B 0x24cca> {}
<POP 20450-20452 Naked> Σ0 →0x204bc ←0x20448
<MI 20450 BRA 0x204bc> {}
<POP 20452-20460 Naked> Σ0 ↓ →0x20466 ←0x20408
<POP 20452-20454 StackAdj> Δ-2 {[-2-]}
<Const 0x20454 0x23.2> Δ-2 {[-2-]|[#35]}
<Call 0x20458 0x202c0> {[-2-]|[#35]}
<POP 2045a-2045c StackAdj> Δ+2 {[-2-]}
<MI 2045c TST.B (A7)+> Δ+2 {}
<MI 2045e BEQ 0x20466> {}
<POP 20460-20466 Naked> Σ0 →0x20468
<MI 20460 MOVE.B #0x03,0x24cca> {}
<MI 20464 BRA 0x20468> {}
<POP 20466-20468 Naked> Σ0 ↓ ←0x20452
<MI 20466 CLR.B 0x24cca> {}
<POP 20468-2046a Naked> Σ0 →0x204bc ←0x20460
<MI 20468 BRA 0x204bc> {}
<POP 2046a-20478 Naked> Σ0 ↓ →0x20488 ←0x20408
<POP 2046a-2046c StackAdj> Δ-2 {[-2-]}
<Const 0x2046c 0x29.2> Δ-2 {[-2-]|[#41]}
<Call 0x20470 0x202c0> {[-2-]|[#41]}
<POP 20472-20474 StackAdj> Δ+2 {[-2-]}
<MI 20474 TST.B (A7)+> Δ+2 {}
<MI 20476 BEQ 0x20488> {}
<POP 20478-20488 Naked> Σ0 →0x2048a
<MI 20478 MOVE.B #0x04,0x24cca> {}
<MI 2047a MOVE.B #0x01,0x24cc9> {}
<MI 20480 MOVE.B #0x01,0x24cd0> {}
<MI 20486 BRA 0x2048a> {}
<POP 20488-2048a Naked> Σ0 ↓ ←0x2046a
<MI 20488 CLR.B 0x24cca> {}
<POP 2048a-2048c Naked> Σ0 →0x204bc ←0x20478
<MI 2048a BRA 0x204bc> {}
<POP 2048c-204bc Naked> Σ0 ↓ ←0x20408
<Blob 0x2048c [14] @> Δ-14 {[«14""»]}
<POP 2049e-204a0 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x204a0 13> {[«14""»]|[$$program error]}
<Call 0x204b2 0x103e0> {[«14""»]|[$$program error]}
WriteConsoleStringCrLf(str : String)
<POP 204b8-204bc StackAdj> Δ+18 {}
<POP 204bc-204c4 Epilogue> Σ0 ←0x20436 ←0x20450 ←0x20468 ←0x2048a
@ 204c4
<LVAR 0x008 1(r)>
<POP 204c4-2058a Body>
<POP 204c4-204da Prologue> Σ0 ↓
<POP 204da-204e8 RegCacheLoad> Σ0 ↓
<POP 204e8-204fc Naked> Σ0 →0x20506 →0x20512 →0x20524 →0x20536 →0x20552
<MI 204e8 MOVE.B 0x24cca,D0> {}
<MI 204ea EXTB.W D0> {}
<POP 0x204ec LimitCheck 0x0 ≤ D0 ≤ 0x4> {}
<MI 204f2 ADD.W D0,D0> {}
<MI 204f4 SWITCH D0.W> {}
<POP 20506-2050e Naked> Σ0 ↓ →0x20510 ←0x204e8
<MI 20506 MOVE.B (A6+0x8),D0> {}
<MI 20508 CMPI.B #0x40,D0> {}
<MI 2050c BNE 0x20510> {}
<POP 2050e-20510 Naked> Σ0 ↓
<MI 2050e MOVE.B #0x01,0x24cca> {}
<POP 20510-20512 Naked> Σ0 →0x20582 ←0x20506
<MI 20510 BRA 0x20582> {}
<POP 20512-2051a Naked> Σ0 ↓ →0x20520 ←0x204e8
<MI 20512 MOVE.B (A6+0x8),D0> {}
<MI 20514 CMPI.B #0x28,D0> {}
<MI 20518 BNE 0x20520> {}
<POP 2051a-20520 Naked> Σ0 →0x20522
<MI 2051a MOVE.B #0x02,0x24cca> {}
<MI 2051e BRA 0x20522> {}
<POP 20520-20522 Naked> Σ0 ↓ ←0x20512
<MI 20520 CLR.B 0x24cca> {}
<POP 20522-20524 Naked> Σ0 →0x20582 ←0x2051a
<MI 20522 BRA 0x20582> {}
<POP 20524-2052c Naked> Σ0 ↓ →0x20532 ←0x204e8
<MI 20524 MOVE.B (A6+0x8),D0> {}
<MI 20526 CMPI.B #0x23,D0> {}
<MI 2052a BNE 0x20532> {}
<POP 2052c-20532 Naked> Σ0 →0x20534
<MI 2052c MOVE.B #0x03,0x24cca> {}
<MI 20530 BRA 0x20534> {}
<POP 20532-20534 Naked> Σ0 ↓ ←0x20524
<MI 20532 CLR.B 0x24cca> {}
<POP 20534-20536 Naked> Σ0 →0x20582 ←0x2052c
<MI 20534 BRA 0x20582> {}
<POP 20536-2053e Naked> Σ0 ↓ →0x2054e ←0x204e8
<MI 20536 MOVE.B (A6+0x8),D0> {}
<MI 20538 CMPI.B #0x29,D0> {}
<MI 2053c BNE 0x2054e> {}
<POP 2053e-2054e Naked> Σ0 →0x20550
<MI 2053e MOVE.B #0x04,0x24cca> {}
<MI 20540 MOVE.B #0x01,0x24cc9> {}
<MI 20546 MOVE.B #0x01,0x24cd0> {}
<MI 2054c BRA 0x20550> {}
<POP 2054e-20550 Naked> Σ0 ↓ ←0x20536
<MI 2054e CLR.B 0x24cca> {}
<POP 20550-20552 Naked> Σ0 →0x20582 ←0x2053e
<MI 20550 BRA 0x20582> {}
<POP 20552-20582 Naked> Σ0 ↓ ←0x204e8
<Blob 0x20552 [14] @> Δ-14 {[«14""»]}
<POP 20564-20566 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x20566 13> {[«14""»]|[$$program error]}
<Call 0x20578 0x103e0> {[«14""»]|[$$program error]}
WriteConsoleStringCrLf(str : String)
<POP 2057e-20582 StackAdj> Δ+18 {}
<POP 20582-2058a Epilogue> Σ0 ←0x20510 ←0x20522 ←0x20534 ←0x20550
@ 2058a
<LVAR 0x008 4(r)>
<POP 2058a-2083e Body>
<POP 2058a-205a0 Prologue> Σ0 ↓
<POP 205a0-205bc RegCacheLoad> Σ0 ↓
<POP 205bc-205f6 Naked> Σ0 ↓ →0x20620
<Blob 0x205bc [4] @> Δ-4 {[«4""»]}
<Blob 0x205c0 [4] @> Δ-4 {[«4""»]|[«4""»]}
<MI 205c4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[«4""»]|[4, '(A6+0x8)']}
<POP 205c8-205ca StackAdj> Δ-4 {[«4""»]|[«4""»]|[4, '(A6+0x8)']|[-4-]}
<Lit 0x205ca 8> {[«4""»]|[«4""»]|[4, '(A6+0x8)']|[$$FILENAME]}
<POP 205d6-205d8 StackAdj> Δ-2 {[«4""»]|[«4""»]|[4, '(A6+0x8)']|[$$FILENAME]|[-2-]}
<POP 205d8-205d9 StackAdj> Δ+2 {[«4""»]|[«4""»]|[4, '(A6+0x8)']|[$$FILENAME]}
<Const 0x205d9 0x1.2> Δ-2 {[«4""»]|[«4""»]|[4, '(A6+0x8)']|[$$FILENAME]|[#1]}
<Const 0x205da 0x250da.4> Δ-4 {[«4""»]|[«4""»]|[4, '(A6+0x8)']|[$$FILENAME]|[#1]|[##151770]}
<Const 0x205e0 0x24cc4.4> Δ-4 {[«4""»]|[«4""»]|[4, '(A6+0x8)']|[$$FILENAME]|[#1]|[##151770]|[##150724]}
<Call 0x205e6 0x20260> {[«4""»]|[«4""»]|[4, '(A6+0x8)']|[$$FILENAME]|[#1]|[##151770]|[##150724]}
<POP 205ea-205ee StackAdj> Δ+26 {}
<MI 205ee TST.B 0x250da> {}
<MI 205f4 BNE 0x20620> {}
<POP 205f6-20620 Naked> Σ0 ↓
<Blob 0x205f6 [28] @> Δ-28 {[«28""»]}
<POP 20602-20604 StackAdj> Δ-8 {[«28""»]|[-8-]}
<Lit 0x20604 28> {[«28""»]|[-4-]|[$$Please enter DFS filename :_]}
<Call 0x20610 0x103e4> {[«28""»]|[-4-]|[$$Please enter DFS filename :_]}
AskConsoleString(prompt : String) : String
<POP 20616-20618 StackAdj> Δ+4 {[«28""»]|[-4-]}
<MI 20618 MOVE.L (A7)+,0x24cc4> Δ+4 {[«28""»]}
<POP 2061e-20620 StackAdj> Δ+28 {}
<POP 20620-20644 Naked> Σ0 ↓ →0x2066c ←0x205bc
<Blob 0x20620 [4] 0x24cc4> Δ-4 {[«4»]}
<MI 20626 CLR.B -(A7)> Δ-2 {[«4»]|[#0]}
<Const 0x20628 0x1.2> Δ-2 {[«4»]|[#0]|[#1]}
<Const 0x2062a 0x0.4> Δ-4 {[«4»]|[#0]|[#1]|[##0]}
<Const 0x2062e 0x24cd1.4> Δ-4 {[«4»]|[#0]|[#1]|[##0]|[##150737]}
<Const 0x20630 0x24cc0.4> Δ-4 {[«4»]|[#0]|[#1]|[##0]|[##150737]|[##150720]}
<Call 0x20636 0x10380> {[«4»]|[#0]|[#1]|[##0]|[##150737]|[##150720]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 2063c-20640 StackAdj> Δ+20 {}
<MI 20640 TST.B 0x24cd1> {}
<MI 20642 BEQ 0x2066c> {}
<POP 20644-2066c Naked> Σ0 →0x20836
<Blob 0x20644 [18] @> Δ-18 {[«18""»]}
<POP 20650-20652 StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x20652 18> {[«18""»]|[$$Cant find the file]}
<Call 0x2065e 0x103e0> {[«18""»]|[$$Cant find the file]}
WriteConsoleStringCrLf(str : String)
<POP 20664-20668 StackAdj> Δ+22 {}
<MI 20668 BRA 0x20836> {}
<POP 2066c-2067a Naked> Σ0 ↓ ←0x20620
<MI 2066c CLR.B 0x24cc9> {}
<MI 20672 CLR.L 0x250d2> {}
<MI 20678 CLR.L 0x24ccc> {}
<POP 2067a-2067e Naked> Σ0 ↓ →0x206c0 ←0x207ee ←0x20816
<MI 2067a TST.L 0x24ccc> {}
<MI 2067c BNE 0x206c0> {}
<POP 2067e-206b6 Naked> Σ0 ↓ →0x206ba
<Blob 0x2067e [4] 0x24cc0> Δ-4 {[«4»]}
<MI 20684 MOVE.L 0x250d2,D0> {[«4»]}
<POP 0x2068a LimitCheck 0x0 ≤ D0 ≤ 0x4000> {[«4»]}
<MI 20694 MOVE.W D0,-(A7)> Δ-2 {[«4»]|[2, 'D0']}
<MI 20696 CLR.W -(A7)> Δ-2 {[«4»]|[2, 'D0']|[#0]}
<Const 0x20698 0x200.2> Δ-2 {[«4»]|[2, 'D0']|[#0]|[#512]}
<Const 0x2069c 0x1.2> Δ-2 {[«4»]|[2, 'D0']|[#0]|[#512]|[#1]}
<MI 2069e LEA.L 0x24cd2,A0> {[«4»]|[2, 'D0']|[#0]|[#512]|[#1]}
<MI 206a4 MOVE.L A0,-(A7)> Δ-4 {[«4»]|[2, 'D0']|[#0]|[#512]|[#1]|[4, 'A0']}
<Const 0x206a6 0x24cd1.4> Δ-4 {[«4»]|[2, 'D0']|[#0]|[#512]|[#1]|[4, 'A0']|[##150737]}
<Call 0x206a8 0x10384> {[«4»]|[2, 'D0']|[#0]|[#512]|[#1]|[4, 'A0']|[##150737]}
ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L)
<POP 206ae-206b2 StackAdj> Δ+20 {}
<MI 206b2 TST.B 0x24cd1> {}
<MI 206b4 BEQ 0x206ba> {}
<POP 206b6-206ba Naked> Σ0 →0x2081c
<MI 206b6 BRA 0x2081c> {}
<POP 206ba-206c0 Naked> Σ0 ↓ ←0x2067e
<MI 206ba ADDQ.L #0x1,0x250d2> {}
<POP 206c0-206ca Naked> Σ0 ↓ →0x207b6 ←0x2067a
<MI 206c0 TST.B 0x24cc9> {}
<MI 206c6 BEQ 0x207b6> {}
<POP 206ca-206dc Naked> Σ0 ↓ →0x2078c
<POP 206ca-206cc StackAdj> Δ-2 {[-2-]}
<Const 0x206cc 0x2c.2> Δ-2 {[-2-]|[#44]}
<Call 0x206d0 0x202c0> {[-2-]|[#44]}
<POP 206d4-206d6 StackAdj> Δ+2 {[-2-]}
<MI 206d6 TST.B (A7)+> Δ+2 {}
<MI 206d8 BEQ 0x2078c> {}
<POP 206dc-206fe Naked> Σ0 →0x20704 →0x20734 →0x20764
<Call 0x206dc 0x103dc> {}
WriteConsoleCrLf(void)
<MI 206e2 MOVE.B 0x24cd0,D0> {}
<MI 206e8 EXTB.W D0> {}
<MI 206ea SUBQ.W #0x1,D0> {}
<POP 0x206ec LimitCheck 0x0 ≤ D0 ≤ 0x2> {}
<MI 206f4 ADD.W D0,D0> {}
<MI 206f6 SWITCH D0.W> {}
<POP 20704-20734 Naked> Σ0 →0x2078a ←0x206dc
<Blob 0x20704 [14] @> Δ-14 {[«14""»]}
<POP 20714-20716 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x20716 13> {[«14""»]|[$$ Version =_]}
<Call 0x20722 0x103d8> {[«14""»]|[$$ Version =_]}
WriteConsoleString(str : String)
<POP 20728-2072a StackAdj> Δ+18 {}
<MI 2072a MOVE.B #0x02,0x24cd0> {}
<MI 20732 BRA 0x2078a> {}
<POP 20734-20764 Naked> Σ0 →0x2078a ←0x206dc
<Blob 0x20734 [14] @> Δ-14 {[«14""»]}
<POP 20744-20746 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x20746 13> {[«14""»]|[$$ Date =_]}
<Call 0x20752 0x103d8> {[«14""»]|[$$ Date =_]}
WriteConsoleString(str : String)
<POP 20758-2075a StackAdj> Δ+18 {}
<MI 2075a MOVE.B #0x03,0x24cd0> {}
<MI 20762 BRA 0x2078a> {}
<POP 20764-2078a Naked> Σ0 ↓ ←0x206dc
<Blob 0x20764 [14] @> Δ-14 {[«14""»]}
<POP 20774-20776 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x20776 13> {[«14""»]|[$$ Time =_]}
<Call 0x20782 0x103d8> {[«14""»]|[$$ Time =_]}
WriteConsoleString(str : String)
<POP 20788-2078a StackAdj> Δ+18 {}
<POP 2078a-2078c Naked> Σ0 →0x207b4 ←0x20704 ←0x20734
<MI 2078a BRA 0x207b4> {}
<POP 2078c-2079c Naked> Σ0 ↓ →0x207b0 ←0x206ca
<POP 2078c-2078e StackAdj> Δ-2 {[-2-]}
<Const 0x2078e 0x5c.2> Δ-2 {[-2-]|[#92]}
<Call 0x20792 0x202c0> {[-2-]|[#92]}
<POP 20796-20798 StackAdj> Δ+2 {[-2-]}
<MI 20798 TST.B (A7)+> Δ+2 {}
<MI 2079a BEQ 0x207b0> {}
<POP 2079c-207b0 Naked> Σ0 →0x207b4
<Call 0x2079c 0x103dc> {}
WriteConsoleCrLf(void)
<MI 207a2 CLR.B 0x24cc9> {}
<MI 207a8 CLR.B 0x24cca> {}
<MI 207ae BRA 0x207b4> {}
<POP 207b0-207b4 Naked> Σ0 ↓ ←0x2078c
<Call 0x207b0 0x20360> {}
<POP 207b4-207b6 Naked> Σ0 →0x207ee ←0x2078a ←0x2079c
<MI 207b4 BRA 0x207ee> {}
<POP 207b6-207c2 Naked> Σ0 ↓ →0x207ee ←0x206c0
<Call 0x207b6 0x203e4> {}
<MI 207ba TST.B 0x24cc9> {}
<MI 207c0 BEQ 0x207ee> {}
<POP 207c2-207ee Naked> Σ0 ↓
<Call 0x207c2 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x207c8 [14] @> Δ-14 {[«14""»]}
<POP 207d8-207da StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x207da 13> {[«14""»]|[$$Module =_]}
<Call 0x207e6 0x103d8> {[«14""»]|[$$Module =_]}
WriteConsoleString(str : String)
<POP 207ec-207ee StackAdj> Δ+18 {}
<POP 207ee-20816 Naked> Σ0 ↓ →0x2067a ←0x207b4 ←0x207b6
<MI 207ee ADDQ.L #0x1,0x24ccc> {}
<MI 207f0 MOVE.L 0x24ccc,D4> {}
<MI 207f2 MOVE.L #0x400,D3> {}
<Call 0x207f8 0x10294> {}
?divs_d3_d4
<MI 207fe MOVE.L D3,0x24ccc> {}
<MI 20800 MOVEA.L 0x24cc0,A0> {}
<MI 20806 MOVE.W (A0+0x20),D0> {}
<MI 2080a EXTW.L D0> {}
<MI 2080c CMP.L 0x250d2,D0> {}
<MI 20812 BNE 0x2067a> {}
<POP 20816-2081c Naked> Σ0 ↓ →0x2067a
<MI 20816 TST.L D3> {}
<MI 20818 BNE 0x2067a> {}
<POP 2081c-20836 Naked> Σ0 ↓ ←0x206b6
<MI 2081c CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2081e 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x20820 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Const 0x20824 0x24cd1.4> Δ-4 {[#0]|[#1]|[##1]|[##150737]}
<Const 0x20826 0x24cc0.4> Δ-4 {[#0]|[#1]|[##1]|[##150737]|[##150720]}
<Call 0x2082c 0x1038c> {[#0]|[#1]|[##1]|[##150737]|[##150720]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 20832-20836 StackAdj> Δ+16 {}
<POP 20836-2083e Epilogue> Σ0 ←0x20644
@ 2083e
<LVAR -0x008 @ 2(r)>
<POP 2083e-209b6 Body>
<POP 2083e-20854 Prologue> Σ0 ↓
<POP 20854-20870 RegCacheLoad> Σ0 ↓
<POP 20870-20874 Naked> Σ0 ↓
<MI 20870 CLR.B 0x24cc9> {}
<MI 20872 MOVEQ.L #0x00,D7> {}
<POP 20874-20890 Naked> Σ0 ↓ →0x20962 ←0x209a2
<MI 20874 MOVE.L D7,-(A7)> Δ-4 {[4, 'D7']}
<MI 20876 LEA.L (A6-0x8),A0> {[4, 'D7']}
<MI 2087a MOVE.L A0,-(A7)> Δ-4 {[4, 'D7']|[4, 'A0']}
<MI 2087c ADDQ.L #0x1,(A7)> {[4, 'D7']|[-4-]}
<Const 0x2087e 0x1.2> Δ-2 {[4, 'D7']|[-4-]|[#1]}
<Call 0x20880 0x10238> {[4, 'D7']|[-4-]|[#1]}
KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word)
<POP 20886-2088a StackAdj> Δ+10 {}
<MI 2088a TST.B 0x24cc9> {}
<MI 2088c BEQ 0x20962> {}
<POP 20890-208a0 Naked> Σ0 ↓ →0x20940
<MI 20890 MOVE.W (A6-0x8),D0> {}
<MI 20894 ANDI.W #0x00ff,D0> {}
<MI 20898 CMPI.W #0x002c,D0> {}
<MI 2089c BNE 0x20940> {}
<POP 208a0-208bc Naked> Σ0 →0x208c2 →0x208ec →0x20918
<Call 0x208a0 0x103dc> {}
WriteConsoleCrLf(void)
<MI 208a6 MOVE.B 0x24cd0,D0> {}
<MI 208a8 EXTB.W D0> {}
<MI 208aa SUBQ.W #0x1,D0> {}
<POP 0x208ac LimitCheck 0x0 ≤ D0 ≤ 0x2> {}
<MI 208b2 ADD.W D0,D0> {}
<MI 208b4 SWITCH D0.W> {}
<POP 208c2-208ec Naked> Σ0 →0x2093e ←0x208a0
<Blob 0x208c2 [14] @> Δ-14 {[«14""»]}
<POP 208d2-208d4 StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x208d4 13> {[«14""»]|[$$ Version =_]}
<Call 0x208e0 0x103d8> {[«14""»]|[$$ Version =_]}
WriteConsoleString(str : String)
<POP 208e6-208e8 StackAdj> Δ+18 {}
<MI 208e8 MOVE.B #0x02,0x24cd0> {}
<MI 208ea BRA 0x2093e> {}
<POP 208ec-20918 Naked> Σ0 →0x2093e ←0x208a0
<Blob 0x208ec [14] @> Δ-14 {[«14""»]}
<POP 208fc-208fe StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x208fe 13> {[«14""»]|[$$ Date =_]}
<Call 0x2090a 0x103d8> {[«14""»]|[$$ Date =_]}
WriteConsoleString(str : String)
<POP 20910-20912 StackAdj> Δ+18 {}
<MI 20912 MOVE.B #0x03,0x24cd0> {}
<MI 20916 BRA 0x2093e> {}
<POP 20918-2093e Naked> Σ0 ↓ ←0x208a0
<Blob 0x20918 [14] @> Δ-14 {[«14""»]}
<POP 20928-2092a StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x2092a 13> {[«14""»]|[$$ Time =_]}
<Call 0x20936 0x103d8> {[«14""»]|[$$ Time =_]}
WriteConsoleString(str : String)
<POP 2093c-2093e StackAdj> Δ+18 {}
<POP 2093e-20940 Naked> Σ0 →0x20960 ←0x208c2 ←0x208ec
<MI 2093e BRA 0x20960> {}
<POP 20940-20946 Naked> Σ0 ↓ →0x20956 ←0x20890
<MI 20940 CMPI.W #0x005c,D0> {}
<MI 20944 BNE 0x20956> {}
<POP 20946-20956 Naked> Σ0 →0x20960
<Call 0x20946 0x103dc> {}
WriteConsoleCrLf(void)
<MI 2094c CLR.B 0x24cc9> {}
<MI 2094e CLR.B 0x24cca> {}
<MI 20954 BRA 0x20960> {}
<POP 20956-20960 Naked> Σ0 ↓ ←0x20940
<MI 20956 MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Call 0x20958 0x103d0> {[2, 'D0']}
WriteConsoleChar(chr : char)
<POP 2095e-20960 StackAdj> Δ+2 {}
<POP 20960-20962 Naked> Σ0 →0x209a2 ←0x2093e ←0x20946
<MI 20960 BRA 0x209a2> {}
<POP 20962-20976 Naked> Σ0 ↓ →0x209a2 ←0x20874
<MI 20962 MOVE.W (A6-0x8),D0> {}
<MI 20966 ANDI.W #0x00ff,D0> {}
<MI 2096a MOVE.B D0,-(A7)> Δ-2 {[2, 'D0']}
<Call 0x2096c 0x204c4> {[2, 'D0']}
<POP 20970-20972 StackAdj> Δ+2 {}
<MI 20972 TST.B 0x24cc9> {}
<MI 20974 BEQ 0x209a2> {}
<POP 20976-209a2 Naked> Σ0 ↓
<Call 0x20976 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2097c [14] @> Δ-14 {[«14""»]}
<POP 2098c-2098e StackAdj> Δ-4 {[«14""»]|[-4-]}
<Lit 0x2098e 13> {[«14""»]|[$$Module =_]}
<Call 0x2099a 0x103d8> {[«14""»]|[$$Module =_]}
WriteConsoleString(str : String)
<POP 209a0-209a2 StackAdj> Δ+18 {}
<POP 209a2-209ae Naked> Σ0 ↓ →0x20874 ←0x20960 ←0x20962
<MI 209a2 ADDQ.L #0x1,D7> {}
<MI 209a4 CMPI.L #0x00020000,D7> {}
<MI 209aa BNE 0x20874> {}
<POP 209ae-209b6 Epilogue> Σ0
@ 209b6
<POP 209b6-20a00 Body>
<POP 209b6-209cc Prologue> Σ0 ↓
<POP 209cc-209f8 Naked> Σ0 ↓
<Blob 0x209cc [26] @> Δ-26 {[«26""»]}
<POP 209d8-209da StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x209da 26> {[«26""»]|[$$x what rev/filename=mumble]}
<Call 0x209ee 0x103e0> {[«26""»]|[$$x what rev/filename=mumble]}
WriteConsoleStringCrLf(str : String)
<POP 209f4-209f8 StackAdj> Δ+30 {}
<POP 209f8-20a00 Epilogue> Σ0
@ 20a00
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<POP 20a00-20acc Body> Δ+4
<POP 20a00-20a16 Prologue> Σ0 ↓
<POP 20a16-20a20 RegCacheLoad> Σ0 ↓
<POP 20a20-20a28 Naked> Σ0 ↓
<MI 20a20 MOVEA.L (A6+0x8),A0> {}
<MI 20a24 CLR.B (A0)> {}
<MI 20a26 MOVEQ.L #0x00,D7> {}
<POP 20a28-20a7c Naked> Σ0 ↓ →0x20abc ←0x20abc
<MI 20a28 MOVE.B D7,D0> {}
<MI 20a2a EXTB.W D0> {}
<MI 20a2c MULS.W #0x0a,D0> {}
<MI 20a2e LEA.L 0x20238,A0> {}
<Blob 0x20a32 [10] (A0+D0.W)> Δ-10 {[«10»]}
<POP 20a42-20a44 StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x20a44> {[«10»]|[$$…]}
<Pointer.sp 0x20a44 4> Δ-4
<Const 0x20a48 0x1.2> Δ-2
<Const 0x20a4a 0xa.2> Δ-2
<Call 0x20a4c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 20a52-20a54 StackAdj> Δ+8
<MI 20a54 MOVE.L (A7)+,(A6-0x6)> Δ+4 {[«10»]}
<POP 20a56-20a58 StackAdj> Δ+4 {[-6-]}
<MI 20a58 MOVE.L (A6-0x6),(A7)> {[-2-]|[4, '(A6-0x6)']}
<MI 20a5a MOVE.L (A6+0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x6)']|[4, '(A6+0x10)']}
<Call 0x20a5e 0x102c8> {[-2-]|[4, '(A6-0x6)']|[4, '(A6+0x10)']}
StringEqual(a, b : String) : Byte
<POP 20a64-20a66 StackAdj> Δ+8 {[-2-]}
<MI 20a66 MOVE.B (A7)+,D0> Δ+2 {}
<MI 20a68 EXTB.W D0> {}
<POP 0x20a6a LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 20a6c MOVE.B D0,D6> {}
<Pointer.fp 0x20a6e <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Call 0x20a70 0x102bc> {[@@-6]}
FreeString(VAR a : String)
<POP 20a76-20a78 StackAdj> Δ+4 {}
<MI 20a78 TST.B D6> {}
<MI 20a7a BEQ 0x20abc> {}
<POP 20a7c-20a90 Naked> Σ0 →0x20a98 →0x20aa4 →0x20aa6 →0x20ab0
<MI 20a7c MOVE.B D7,D0> {}
<MI 20a7e EXTB.W D0> {}
<POP 0x20a80 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 20a86 ADD.W D0,D0> {}
<MI 20a88 SWITCH D0.W> {}
<POP 20a98-20aa0 Naked> Σ0 Δ-4 ↓ ←0x20a7c
<MI 20a98 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x20a9c 0x2058a> {[4, '(A6+0xc)']}
<POP 20aa0-20aa4 Naked> Σ-4 Δ+4 →0x20ab4 ←0x20aa6
<POP 20aa0-20aa2 StackAdj> Δ+4 {}
<MI 20aa2 BRA 0x20ab4> {}
<POP 20aa4-20aa6 Naked> Σ0 →0x20ab0 ←0x20a7c
<MI 20aa4 BRA 0x20ab0> {}
<POP 20aa6-20ab0 Naked> Σ0 Δ-4 →0x20aa0 ←0x20a7c
<MI 20aa6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x20aaa 0x2083e> {[4, '(A6+0xc)']}
<MI 20aae BRA 0x20aa0> {[4, '(A6+0xc)']}
<POP 20ab0-20ab4 Naked> Σ0 ↓ ←0x20a7c ←0x20aa4
<Call 0x20ab0 0x209b6> {}
<POP 20ab4-20abc Naked> Σ0 →0x20ac4 ←0x20aa0
<MI 20ab4 MOVEA.L (A6+0x8),A0> {}
<MI 20ab8 MOVE.B #0x01,(A0)> {}
<MI 20aba BRA 0x20ac4> {}
<POP 20abc-20ac4 Naked> Σ0 ↓ →0x20a28 ←0x20a28
<MI 20abc ADDQ.B #0x1,D7> {}
<MI 20abe CMP.B #0x03,D7> {}
<MI 20ac0 BLE 0x20a28> {}
<POP 20ac4-20acc Epilogue> Σ0 ←0x20ab4
@ 20acc
<LVAR 0x008 4(r)>
<POP 20acc-20b00 Body>
<POP 20acc-20ae2 Prologue> Σ0 ↓
<POP 20ae2-20af8 Naked> Σ0 ↓
<Call 0x20ae2 0x10398> {}
FSCALL_10398
<MI 20ae8 MOVEA.L (A6+0x8),A0> {}
<MI 20aec LEA.L 0x2022e,A1> {}
<BlockMove 10,A1,A0> {}
<POP 20af8-20b00 Epilogue> Σ0
@ 2117c
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(w)>
<POP 2117c-211be Body>
<POP 2117c-21192 Prologue> Σ0 ↓
<POP 21192-21196 Naked> Σ0 ↓
<MI 21192 MOVEA.L (A6+0x8),A4> {}
<POP 21196-2119c Naked> Σ0 ↓ →0x211b6 ←0x2119c
<MI 21196 CMPA.W #0x1,A4> {}
<MI 2119a BEQ 0x211b6> {}
<POP 2119c-211b6 Naked> Σ0 →0x21196
<MI 2119c MOVE.L A4,(A6-0x4)> {}
<MI 211a0 MOVEA.L (A4+0x8),A4> {}
<Pointer.fp 0x211a4 <LVAR -0x004 @ 4(w)>> Δ-4 {[@@-4]}
<Const 0x211a8 0xc.4> Δ-4 {[@@-4]|[##12]}
<Call 0x211ac 0x102a8> {[@@-4]|[##12]}
Free2(a : Pointer; b : Long)
<POP 211b2-211b4 StackAdj> Δ+8 {}
<MI 211b4 BRA 0x21196> {}
<POP 211b6-211be Epilogue> Σ0 ←0x21196
@ 211be
<LVAR 0x008 4(r)>
<POP 211be--0001 Body>
<POP 211be-211d4 Prologue> Σ0 ↓
<POP 211d4-211de Naked> Σ0 ↓ →0x211e8
<MI 211d4 MOVEA.L (A6+0x8),A0> {}
<MI 211d8 CMPA.W #0x1,A0> {}
<MI 211dc BEQ 0x211e8> {}
<POP 211de-211e8 Naked> Σ0 ↓
<MI 211de MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Call 0x211e0 0x103e0> {[4, 'A0']}
WriteConsoleStringCrLf(str : String)
<POP 211e6-211e8 StackAdj> Δ+4 {}
<POP 211e8-211f6 Naked> Σ0 ←0x211d4
<POP 211e8-211f6 Bailout> {}
<MI 211e8 MOVEA.L (A5+0x8),A7>
<MI 211ec MOVEA.W #0x0,A6>
<MI 211f0 JMP 0x24a9a>
@ 2121c
<LVAR 0x008 1(rw)>
<POP 2121c-2125a Body>
<POP 2121c-21232 Prologue> Σ0 ↓
<POP 21232-21240 Naked> Σ0 ↓ →0x21246
<MI 21232 MOVE.L 0x260e4,D0> {}
<MI 21238 CMP.L 0x260e8,D0> {}
<MI 2123e BLE 0x21246> {}
<POP 21240-21246 Naked> Σ0 →0x21252
<MI 21240 CLR.B (A6+0x8)> {}
<MI 21244 BRA 0x21252> {}
<POP 21246-21252 Naked> Σ0 ↓ ←0x21232
<MI 21246 LEA.L 0x250dc,A0> {}
<MI 2124c MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 21252-2125a Epilogue> Σ0 ←0x21240
@ 2125a
<LVAR 0x008 1(rw)>
<POP 2125a-2129e Body>
<POP 2125a-21270 Prologue> Σ0 ↓
<POP 21270-21276 RegCacheLoad> Σ0 ↓
<POP 21276-21280 Naked> Σ0 ↓ →0x21286
<MI 21276 MOVE.L 0x260e4,D0> {}
<MI 21278 CMP.L 0x260e8,D0> {}
<MI 2127e BLE 0x21286> {}
<POP 21280-21286 Naked> Σ0 →0x21292
<MI 21280 CLR.B (A6+0x8)> {}
<MI 21284 BRA 0x21292> {}
<POP 21286-21292 Naked> Σ0 ↓ ←0x21276
<MI 21286 LEA.L 0x250dc,A0> {}
<MI 2128c MOVE.B (A0+D0.L+#0x7),(A6+0x8)> {}
<POP 21292-21296 Naked> Σ0 ↓ ←0x21280
<MI 21292 ADDQ.L #0x1,D0> {}
<MI 21294 MOVE.L D0,0x260e4> {}
<POP 21296-2129e Epilogue> Σ0
@ 2129e
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2129e-21378 Body>
<POP 2129e-212b4 Prologue> Σ0 ↓
<POP 212b4-212c6 RegCacheLoad> Σ0 ↓
<POP 212c6-212d2 Naked> Σ0 ↓ →0x212dc ←0x2136c
<POP 212c6-212c8 StackAdj> Δ-2 {[-2-]}
<Call 0x212c8 0x2121c> {[-2-]}
<MI 212cc MOVE.B (A7)+,D0> Δ+2 {}
<MI 212ce CMP.B #0x5b,D0> {}
<MI 212d0 BNE 0x212dc> {}
<POP 212d2-212dc Naked> Σ0 →0x2136c
<Call 0x212d2 0x245a4> {}
<MI 212d8 BRA 0x2136c> {}
<POP 212dc-212e8 Naked> Σ0 ↓ →0x21300 ←0x212c6
<MI 212dc MOVE.L 0x260e4,D6> {}
<POP 212de-212e0 StackAdj> Δ-2 {[-2-]}
<Call 0x212e0 0x2125a> {[-2-]}
<MI 212e4 MOVE.B (A7)+,D5> Δ+2 {}
<MI 212e6 BNE 0x21300> {}
<POP 212e8-212fe Naked> Σ0 →0x21370
<MI 212e8 MOVEA.L (A6+0xc),A0> {}
<MI 212ec LEA.L 0x210d6,A1> {}
<BlockMove 8,A1,A0> {}
<MI 212f8 MOVEA.L (A6+0x8),A0> {}
<MI 212fa MOVE.B #0x02,(A0)> {}
<MI 212fc BRA 0x21370> {}
<POP 21300-21304 Naked> Σ0 ↓ →0x2130c ←0x212dc
<MI 21300 CMP.B #0x2c,D5> {}
<MI 21302 BNE 0x2130c> {}
<POP 21304-2130c Naked> Σ0 →0x2135c
<MI 21304 MOVEA.L (A6+0x8),A0> {}
<MI 21306 MOVE.B #0x03,(A0)> {}
<MI 2130a BRA 0x2135c> {}
<POP 2130c-21310 Naked> Σ0 ↓ →0x21318 ←0x21300
<MI 2130c CMP.B #0x3b,D5> {}
<MI 2130e BNE 0x21318> {}
<POP 21310-21318 Naked> Σ0 →0x2135c
<MI 21310 MOVEA.L (A6+0x8),A0> {}
<MI 21312 MOVE.B #0x01,(A0)> {}
<MI 21316 BRA 0x2135c> {}
<POP 21318-2131e Naked> Σ0 ↓ →0x21324 ←0x2130c
<MI 21318 CMPI.B #0x5d,D5> {}
<MI 2131c BNE 0x21324> {}
<POP 2131e-21324 Naked> Σ0 →0x2135c
<MI 2131e MOVEA.L (A6+0x8),A0> {}
<MI 21320 MOVE.B #0x02,(A0)> {}
<MI 21322 BRA 0x2135c> {}
<POP 21324-21328 Naked> Σ0 ↓ ←0x21318
<MI 21324 MOVEA.L (A6+0x8),A0> {}
<MI 21326 CLR.B (A0)> {}
<POP 21328-21334 Naked> Σ0 ↓ →0x2133c ←0x2135a
<POP 21328-2132a StackAdj> Δ-2 {[-2-]}
<Call 0x2132a 0x2121c> {[-2-]}
<MI 2132e MOVE.B (A7)+,D7> Δ+2 {}
<MI 21330 CMP.B #0x5b,D7> {}
<MI 21332 BNE 0x2133c> {}
<POP 21334-2133c Naked> Σ0 →0x2135a
<Call 0x21334 0x245a4> {}
<MI 2133a BRA 0x2135a> {}
<POP 2133c-21340 Naked> Σ0 ↓ →0x2134e ←0x21328
<MI 2133c CMP.B #0x3b,D7> {}
<MI 2133e BEQ 0x2134e> {}
<POP 21340-21344 Naked> Σ0 ↓ →0x2134e
<MI 21340 CMP.B #0x2c,D7> {}
<MI 21342 BEQ 0x2134e> {}
<POP 21344-2134a Naked> Σ0 ↓ →0x2134e
<MI 21344 CMPI.B #0x5d,D7> {}
<MI 21348 BEQ 0x2134e> {}
<POP 2134a-2134e Naked> Σ0 ↓ →0x21352
<MI 2134a TST.B D7> {}
<MI 2134c BNE 0x21352> {}
<POP 2134e-21350 Naked> Σ0 →0x2135c ←0x2133c ←0x21340 ←0x21344
<MI 2134e BRA 0x2135c> {}
<POP 21352-2135a Naked> Σ0 ↓ ←0x2134a
<POP 21352-21354 StackAdj> Δ-2 {[-2-]}
<Call 0x21354 0x2125a> {[-2-]}
<MI 21358 MOVE.B (A7)+,D7> Δ+2 {}
<POP 2135a-2135c Naked> Σ0 →0x21328 ←0x21334
<MI 2135a BRA 0x21328> {}
<POP 2135c-2136c Naked> Σ0 →0x21370 ←0x21304 ←0x21310 ←0x2131e ←0x2134e
<MI 2135c MOVEA.L (A6+0xc),A0> {}
<MI 21360 MOVE.L D6,(A0)> {}
<MI 21362 MOVE.L 0x260e4,(A0+0x4)> {}
<MI 21366 SUBQ.L #0x1,(A0+0x4)> {}
<MI 2136a BRA 0x21370> {}
<POP 2136c-21370 Naked> Σ0 →0x212c6 ←0x212d2
<MI 2136c BRA 0x212c6> {}
<POP 21370-21378 Epilogue> Σ0 ←0x212e8 ←0x2135c
@ 21378
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(rw)>
<LVAR -0x008 4(w)>
<LVAR -0x00c @ 4(w)>
<POP 21378-21416 Body>
<POP 21378-2138e Prologue> Σ0 ↓
<POP 2138e-21398 RegCacheLoad> Σ0 ↓
<POP 21398-213a4 Naked> Σ0 ↓ →0x213aa
<MI 21398 MOVEA.L (A6+0x8),A0> {}
<MI 2139c MOVE.B (A0),D0> {}
<MI 2139e CMPI.B #0x01,D0> {}
<MI 213a2 BEQ 0x213aa> {}
<POP 213a4-213aa Naked> Σ0 ↓ →0x213b8
<MI 213a4 CMPI.B #0x02,D0> {}
<MI 213a8 BNE 0x213b8> {}
<POP 213aa-213b8 Naked> Σ0 →0x213f4 ←0x21398
<MI 213aa MOVE.L 0x210d6,(A6-0xc)> {}
<MI 213ae MOVE.L 0x210da,(A6-0x8)> {}
<MI 213b4 MOVE.B D0,(A6-0x4)> {}
<MI 213b6 BRA 0x213f4> {}
<POP 213b8-213ca Naked> Σ0 ↓ →0x213e6 ←0x213a4 ←0x213ee
<Pointer.fp 0x213b8 <LVAR -0x00c @ 4(w)>> Δ-4 {[@@-12]}
<Pointer.fp 0x213ba <LVAR -0x004 @ 1(rw)>> Δ-4 {[@@-12]|[@@-4]}
<Call 0x213bc 0x2129e> {[@@-12]|[@@-4]}
<POP 213c0-213c2 StackAdj> Δ+8 {}
<MI 213c2 MOVEA.L (A6+0x8),A0> {}
<MI 213c6 TST.B (A6-0x4)> {}
<MI 213c8 BEQ 0x213e6> {}
<POP 213ca-213d0 Naked> Σ0 ↓ →0x213e6
<MI 213ca MOVE.B (A0),D0> {}
<MI 213cc CMP.B #0x03,D0> {}
<MI 213ce BNE 0x213e6> {}
<POP 213d0-213e6 Naked> Σ0 →0x213ee
<MI 213d0 MOVE.B (A6-0x4),D0> {}
<MI 213d2 EXTB.W D0> {}
<POP 0x213d4 LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 213d6 MOVE.B D0,(A0)> {}
<MI 213d8 MOVE.L 0x210d6,(A6-0xc)> {}
<MI 213dc MOVE.L 0x210da,(A6-0x8)> {}
<MI 213e2 CLR.B (A6-0x4)> {}
<MI 213e4 BRA 0x213ee> {}
<POP 213e6-213ee Naked> Σ0 ↓ ←0x213b8 ←0x213ca
<MI 213e6 MOVE.B (A6-0x4),D0> {}
<MI 213e8 EXTB.W D0> {}
<POP 0x213ea LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 213ec MOVE.B D0,(A0)> {}
<POP 213ee-213f4 Naked> Σ0 ↓ →0x213b8 ←0x213d0
<MI 213ee MOVE.B (A6-0x4),D0> {}
<MI 213f0 CMP.B #0x03,D0> {}
<MI 213f2 BEQ 0x213b8> {}
<POP 213f4-2140e Naked> Σ0 ↓ ←0x213aa
<MI 213f4 MOVEA.L (A6+0x10),A0> {}
<MI 213f8 LEA.L (A6-0xc),A1> {}
<BlockMove 8,A1,A0> {}
<MI 21402 MOVEA.L (A6+0xc),A0> {}
<MI 21406 MOVE.B (A6-0x4),D0> {}
<MI 21408 EXTB.W D0> {}
<POP 0x2140a LimitCheck 0x0 ≤ D0 ≤ 0x3> {}
<MI 2140c MOVE.B D0,(A0)> {}
<POP 2140e-21416 Epilogue> Σ0
@ 21416
<LVAR 0x008 4(rw)>
<LVAR -0x004 1(rw)>
<LVAR -0x010 2(rw)>
<POP 21416-2151e Body>
<POP 21416-2142c Prologue> Σ0 ↓
<POP 2142c-2143a RegCacheLoad> Σ0 ↓
<POP 2143a-21452 Naked> Σ0 Δ-4 ↓
<MI 2143a MOVEQ.L #0x01,D6> {}
<MI 2143c CLR.W (A6-0x10)> {}
<MI 2143e MOVEQ.L #0x01,D5> {}
<POP 21440-21442 StackAdj> Δ-4 {[-4-]}
<MI 21442 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x21444 0x102f0> {[-4-]|[4, '(A6+0x8)']}
ToUpper(a : String) : String
<POP 2144a-2144c StackAdj> Δ+4 {[-4-]}
<MI 2144c MOVE.L (A7)+,(A6+0x8)> Δ+4 {}
<MI 2144e MOVEA.L (A6+0x8),A0> {}
<MI 21450 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<POP 21452-2145e Naked> Σ-4 ↓ →0x2150c ←0x214f2
<MI 21452 MOVEA.L (A7),A0> {[-4-]}
<MI 21454 MOVE.W (A0),D0> {[-4-]}
<MI 21456 EXTW.L D0> {[-4-]}
<MI 21458 CMP.L D0,D6> {[-4-]}
<MI 2145a BGT 0x2150c> {[-4-]}
<POP 2145e-21470 Naked> Σ-4 ↓ →0x21472
<MI 2145e CLR.L D0> {[-4-]}
<MI 21460 MOVE.B (A0+D6.L+#0x1),D0> {[-4-]}
<MI 21464 ANDI.W #0x007f,D0> {[-4-]}
<MI 21468 MOVE.B D0,(A6-0x4)> {[-4-]}
<MI 2146a CMPI.B #0x09,D0> {[-4-]}
<MI 2146e BNE 0x21472> {[-4-]}
<POP 21470-21472 Naked> Σ-4 ↓
<MI 21470 MOVE.B #0x20,(A6-0x4)> {[-4-]}
<POP 21472-2147e Naked> Σ-4 ↓ →0x214ae ←0x2145e
<MI 21472 CLR.L D0> {[-4-]}
<MI 21474 MOVE.B (A6-0x4),D0> {[-4-]}
<MI 21476 SUB.W #0x20,D0> {[-4-]}
<MI 21478 CMPI.W #0x000c,D0> {[-4-]}
<MI 2147c BHI 0x214ae> {[-4-]}
<POP 2147e-21488 Naked> Σ-4 →0x214a6 →0x214a2 →0x214ae →0x214ae →0x214ae →0x214ae →0x214ae →0x214ae →0x214ae →0x214ae →0x214ae →0x214ae →0x214aa
<MI 2147e ADD.W D0,D0> {[-4-]}
<MI 21480 SWITCH D0.W> {[-4-]}
<POP 214a2-214a4 Naked> Σ-4 →0x2150c ←0x2147e
<MI 214a2 BRA 0x2150c> {[-4-]}
<POP 214a6-214aa Naked> Σ-4 →0x214b0 ←0x2147e
<MI 214a6 MOVEQ.L #0x00,D7> {[-4-]}
<MI 214a8 BRA 0x214b0> {[-4-]}
<POP 214aa-214ae Naked> Σ-4 →0x214b0 ←0x2147e
<MI 214aa MOVEQ.L #0x01,D7> {[-4-]}
<MI 214ac BRA 0x214b0> {[-4-]}
<POP 214ae-214b0 Naked> Σ-4 ↓ ←0x21472 ←0x2147e ←0x2147e ←0x2147e ←0x2147e ←0x2147e ←0x2147e ←0x2147e ←0x2147e ←0x2147e ←0x2147e
<MI 214ae MOVEQ.L #0x02,D7> {[-4-]}
<POP 214b0-214d4 Naked> Σ-4 →0x214da →0x214dc →0x214e6 ←0x214a6 ←0x214aa
<MI 214b0 MOVEQ.L #0x03,D0> {[-4-]}
<MI 214b2 MULS.W (A6-0x10),D0> {[-4-]}
<MI 214b4 LEA.L 0x210de,A0> {[-4-]}
<MI 214b8 LEA.L (A0+D0.W),A0> {[-4-]}
<MI 214bc CLR.L D0> {[-4-]}
<MI 214be MOVE.B (A0+D7.W),D0> {[-4-]}
<POP 0x214c2 LimitCheck 0x0 ≤ D0 ≤ 0x2> {[-4-]}
<MI 214ca ADD.W D0,D0> {[-4-]}
<MI 214cc SWITCH D0.W> {[-4-]}
<POP 214da-214dc Naked> Σ-4 →0x214f2 ←0x214b0
<MI 214da BRA 0x214f2> {[-4-]}
<POP 214dc-214e6 Naked> Σ-4 →0x214f2 ←0x214b0
<MI 214dc MOVEA.L (A7),A0> {[-4-]}
<MI 214de MOVE.B (A6-0x4),(A0+D5.L+#0x1)> {[-4-]}
<MI 214e2 ADDQ.L #0x1,D5> {[-4-]}
<MI 214e4 BRA 0x214f2> {[-4-]}
<POP 214e6-214f2 Naked> Σ-4 ↓ ←0x214b0
<MI 214e6 MOVEA.L (A7),A0> {[-4-]}
<MI 214e8 MOVE.B #0x2c,(A0+D5.L+#0x1)> {[-4-]}
<MI 214ee ADDQ.L #0x1,D5> {[-4-]}
<MI 214f0 SUBQ.L #0x1,D6> {[-4-]}
<POP 214f2-2150c Naked> Σ-4 →0x21452 ←0x214da ←0x214dc
<MI 214f2 MOVEQ.L #0x03,D0> {[-4-]}
<MI 214f4 MULS.W (A6-0x10),D0> {[-4-]}
<MI 214f6 LEA.L 0x210e7,A0> {[-4-]}
<MI 214fa LEA.L (A0+D0.W),A0> {[-4-]}
<MI 214fe CLR.L D0> {[-4-]}
<MI 21500 MOVE.B (A0+D7.W),D0> {[-4-]}
<MI 21504 MOVE.W D0,(A6-0x10)> {[-4-]}
<MI 21506 ADDQ.L #0x1,D6> {[-4-]}
<MI 21508 BRA 0x21452> {[-4-]}
<POP 2150c-21516 Naked> Σ-4 Δ+4 ↓ ←0x21452 ←0x214a2
<MI 2150c MOVEA.L (A7),A0> {[-4-]}
<MI 2150e MOVE.L D5,D0> {[-4-]}
<MI 21510 SUBQ.L #0x1,D0> {[-4-]}
<MI 21512 MOVE.W D0,(A0)> {[-4-]}
<POP 21514-21516 StackAdj> Δ+4 {}
<POP 21516-2151e Epilogue> Σ0
@ 2151e
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x00a @>
<LVAR -0x00e @ 4(r)>
<LVAR -0x014 @ 1(r)>
<POP 2151e-215ca Body>
<POP 2151e-21534 Prologue> Σ0 ↓
<POP 21534-2153a RegCacheLoad> Σ0 ↓
<POP 2153a-21548 Naked> Σ0 ↓ →0x21550
<POP 2153a-2153c StackAdj> Δ-2 {[-2-]}
<Call 0x2153c 0x2121c> {[-2-]}
<MI 21540 MOVE.B (A7)+,D0> Δ+2 {}
<MI 21542 CMPI.B #0x5b,D0> {}
<MI 21546 BNE 0x21550> {}
<POP 21548-21550 Naked> Σ0 ↓
<POP 21548-2154a StackAdj> Δ-2 {[-2-]}
<Call 0x2154a 0x2125a> {[-2-]}
<MI 2154e MOVE.B (A7)+,D7> Δ+2 {}
<POP 21550-2155a Naked> Σ0 ↓ ←0x2153a
<MI 21550 MOVEA.L (A6+0xc),A0> {}
<MI 21554 MOVE.L #0x01,(A0)> {}
<MI 21556 CLR.B (A6-0x14)> {}
<POP 2155a-21574 Naked> Σ0 ↓ →0x215aa ←0x215aa
<Pointer.fp 0x2155a <LVAR -0x00a @>> Δ-4 {[@@-10]}
<Pointer.fp 0x2155e <LVAR -0x002 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]}
<Pointer.fp 0x21562 <LVAR -0x014 @ 1(r)>> Δ-4 {[@@-10]|[@@-2]|[@@-20]}
<Call 0x21566 0x21378> {[@@-10]|[@@-2]|[@@-20]}
<POP 2156a-2156e StackAdj> Δ+12 {}
<MI 2156e TST.B (A6-0x2)> {}
<MI 21572 BNE 0x215aa> {}
<POP 21574-215a0 Naked> Σ0 ↓ →0x215a4
<Pointer.fp 0x21574 <LVAR -0x00e @ 4(r)>> Δ-4 {[@@-14]}
<Const 0x21576 0xc.4> Δ-4 {[@@-14]|[##12]}
<Call 0x2157a 0x1029c> {[@@-14]|[##12]}
Malloc1(length : Long) : Pointer
<POP 21580-21582 StackAdj> Δ+8 {}
<MI 21582 MOVEA.L (A6-0xe),A0> {}
<MI 21584 MOVEA.L A0,A1> {}
<MI 21586 LEA.L (A6-0xa),A2> {}
<BlockMove 8,A2,A1> {}
<MI 21592 MOVE.L #0x01,(A0+0x8)> {}
<MI 21596 MOVEA.L (A6+0xc),A0> {}
<MI 2159a MOVEA.L (A0),A1> {}
<MI 2159c CMPA.W #0x01,A1> {}
<MI 2159e BNE 0x215a4> {}
<POP 215a0-215a4 Naked> Σ0 →0x215a8
<MI 215a0 MOVE.L (A6-0xe),(A0)> {}
<MI 215a2 BRA 0x215a8> {}
<POP 215a4-215a8 Naked> Σ0 ↓ ←0x21574
<MI 215a4 MOVE.L (A6-0xe),(A4+0x8)> {}
<POP 215a8-215aa Naked> Σ0 ↓ ←0x215a0
<MI 215a8 MOVEA.L (A6-0xe),A4> {}
<POP 215aa-215b0 Naked> Σ0 ↓ →0x2155a ←0x2155a
<MI 215aa TST.B (A6-0x2)> {}
<MI 215ae BEQ 0x2155a> {}
<POP 215b0-215c0 Naked> Σ0 ↓ →0x215c2
<MI 215b0 MOVEA.L (A6+0x8),A0> {}
<MI 215b4 CLR.B (A0)> {}
<MI 215b6 MOVE.B (A6-0x2),D0> {}
<MI 215ba CMPI.B #0x02,D0> {}
<MI 215be BNE 0x215c2> {}
<POP 215c0-215c2 Naked> Σ0 ↓
<MI 215c0 ADDQ.B #0x1,(A0)> {}
<POP 215c2-215ca Epilogue> Σ0 ←0x215b0
@ 215ca
<LVAR 0x00c 4(w)>
<LVAR 0x008 4(r)>
<POP 215ca-21600 Body>
<POP 215ca-215e0 Prologue> Σ0 ↓
<POP 215e0-215e6 Naked> Σ0 ↓
<MI 215e0 MOVEQ.L #-0x01,D7> {}
<MI 215e2 MOVEA.L (A6+0x8),A4> {}
<POP 215e6-215ec Naked> Σ0 ↓ →0x215f4 ←0x215ec
<MI 215e6 CMPA.W #0x1,A4> {}
<MI 215ea BEQ 0x215f4> {}
<POP 215ec-215f4 Naked> Σ0 →0x215e6
<MI 215ec ADDQ.L #0x1,D7> {}
<MI 215ee MOVEA.L (A4+0x8),A4> {}
<MI 215f2 BRA 0x215e6> {}
<POP 215f4-215f8 Naked> Σ0 ↓ ←0x215e6
<MI 215f4 MOVE.L D7,(A6+0xc)> {}
<POP 215f8-21600 Epilogue> Σ0
@ 21600
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21600-2168c Body>
<POP 21600-21616 Prologue> Σ0 ↓
<POP 21616-21618 RegCacheLoad> Σ0 ↓
<POP 21618-2162c Naked> Σ0 ↓ →0x21684
<POP 21618-2161a StackAdj> Δ-4 {[-4-]}
<MI 2161a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x2161e 0x215ca> {[-4-]|[4, '(A6+0xc)']}
<POP 21622-21624 StackAdj> Δ+4 {[-4-]}
<MI 21624 MOVE.L (A7)+,D0> Δ+4 {}
<MI 21626 CMP.L (A6+0x8),D0> {}
<MI 2162a BEQ 0x21684> {}
<POP 2162c-21684 Naked> Σ0 ↓
<MI 2162c MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<Call 0x21630 0x2117c> {[4, '(A6+0xc)']}
<POP 21634-21636 StackAdj> Δ+4 {}
<Blob 0x21636 [32] @> Δ-32 {[«32""»]}
<Blob 0x21642 [10] (A6+0x1a)> Δ-10 {[«32""»]|[«10»]}
<POP 2164e-21650 StackAdj> Δ-8 {[«32""»]|[«10»]|[-8-]}
<Lit 0x21650 32> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]}
<POP 21660-21662 StackAdj> Δ-4 {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[-4-]}
<Lit 0x21662> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
<Pointer.sp 0x21662 12> Δ-4
<Const 0x21666 0x1.2> Δ-2
<Const 0x21668 0xa.2> Δ-2
<Call 0x2166c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 21672-21674 StackAdj> Δ+8
<Call 0x21674 0x102d0> {[«32""»]|[«10»]|[-4-]|[$$Wrong number of arguments for :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 2167a-2167c StackAdj> Δ+8 {[«32""»]|[«10»]|[-4-]}
<Call 0x2167c 0x211be> {[«32""»]|[«10»]|[-4-]}
<POP 21680-21684 StackAdj> Δ+46 {}
<POP 21684-2168c Epilogue> Σ0 ←0x21618
@ 2168c
<LVAR 0x014 1(rw)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2168c-21712 Body> Δ-4
<POP 2168c-216a2 Prologue> Σ0 ↓
<POP 216a2-216b6 Naked> Σ0 ↓ →0x21704
<MI 216a2 CLR.B (A6+0x14)> {}
<MI 216a6 MOVE.L (A6+0x10),D0> {}
<MI 216aa ADD.L (A6+0x8),D0> {}
<MI 216ae CMP.L 0x260e8,D0> {}
<MI 216b4 BGT 0x21704> {}
<POP 216b6-216bc Naked> Σ0 Δ-4 ↓
<MI 216b6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 216ba MOVEQ.L #0x01,D7> {[4, '(A6+0x8)']}
<POP 216bc-216c0 Naked> Σ-4 ↓ →0x21702 ←0x216fe
<MI 216bc CMP.L (A7),D7> {[-4-]}
<MI 216be BGT 0x21702> {[-4-]}
<POP 216c0-216fa Naked> Σ-4 ↓ →0x216fe
<MI 216c0 MOVE.L (A6+0x10),D0> {[-4-]}
<MI 216c4 ADD.L D7,D0> {[-4-]}
<MI 216c6 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x216c8 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-4-]}
<MI 216d2 LEA.L 0x250dc,A0> {[-4-]}
<MI 216d8 MOVE.L (A6+0xc),D1> {[-4-]}
<MI 216dc ADD.L D7,D1> {[-4-]}
<MI 216de SUBQ.L #0x1,D1> {[-4-]}
<MI 216e0 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x216e2 LimitCheck 0x0 ≤ D1 ≤ 0x3e> {[-4-]}
<MI 216ec LEA.L 0x20cd8,A1> {[-4-]}
<MI 216f0 MOVE.B (A0+D0.L+#0x8),D0> {[-4-]}
<MI 216f4 CMP.B (A1+D1.L),D0> {[-4-]}
<MI 216f8 BEQ 0x216fe> {[-4-]}
<POP 216fa-216fe Naked> Σ-4 Δ+4 →0x2170a
<POP 216fa-216fc StackAdj> Δ+4 {}
<MI 216fc BRA 0x2170a> {}
<POP 216fe-21702 Naked> Σ-4 ↓ →0x216bc ←0x216c0
<MI 216fe ADDQ.L #0x1,D7> {[-4-]}
<MI 21700 BVC 0x216bc> {[-4-]}
<POP 21702-21704 Naked> Σ-4 Δ+4 ↓ ←0x216bc
<POP 21702-21704 StackAdj> Δ+4 {}
<POP 21704-2170a Naked> Σ0 ↓ ←0x216a2
<MI 21704 MOVE.B #0x01,(A6+0x14)> {}
<POP 2170a-21712 Epilogue> Σ0 ←0x216fa
@ 21712
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21712-2179c Body>
<POP 21712-21728 Prologue> Σ0 ↓
<POP 21728-21732 RegCacheLoad> Σ0 ↓
<POP 21732-21736 Naked> Σ0 ↓ →0x21774
<MI 21732 TST.L (A6+0x8)> {}
<MI 21734 BGE 0x21774> {}
<POP 21736-21744 Naked> Σ0 ↓ →0x21774
<MI 21736 MOVE.L (A6+0x8),D0> {}
<MI 21738 NEG.L D0> {}
<MI 2173a ADD.L 0x260e8,D0> {}
<MI 2173c CMPI.L #0x00001000,D0> {}
<MI 21742 BLE 0x21774> {}
<POP 21744-21774 Naked> Σ0 ↓
<Blob 0x21744 [28] @> Δ-28 {[«28""»]}
<POP 21756-21758 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x21758 27> {[«28""»]|[$$Evaluation buffer overflow.]}
<Call 0x2176c 0x211be> {[«28""»]|[$$Evaluation buffer overflow.]}
<POP 21770-21774 StackAdj> Δ+32 {}
<POP 21774-21794 Naked> Σ0 ↓ ←0x21732 ←0x21736
<MI 21774 LEA.L 0x250e4,A0> {}
<MI 2177a MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x2177c [4] 0x260e8> Δ-4 {[4, 'A0']|[«4»]}
<MI 2177e MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']}
<MI 21782 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21784 0x10364> {[4, 'A0']|[«4»]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
MovStringTail(Base, Len, Ptr, Delta)
<POP 2178a-2178e StackAdj> Δ+16 {}
<MI 2178e MOVE.L 0x260e8,D0> {}
<MI 21790 SUB.L (A6+0x8),D0> {}
<MI 21792 MOVE.L D0,0x260e8> {}
<POP 21794-2179c Epilogue> Σ0
@ 2179c
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 2179c-21826 Body>
<POP 2179c-217b2 Prologue> Σ0 ↓
<POP 217b2-217b6 RegCacheLoad> Σ0 ↓
<POP 217b6-217d6 Naked> Σ0 Δ-8 ↓
<MI 217b6 MOVEA.L (A6+0x8),A0> {}
<MI 217ba MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 217bc MOVEA.L (A6+0xc),A1> {[4, 'A0']}
<MI 217be MOVE.L (A1),-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']}
<MI 217c0 MOVE.W (A0),D0> {[4, 'A0']|[4, '(A1)']}
<MI 217c2 EXTW.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 217c4 NEG.L D0> {[4, 'A0']|[4, '(A1)']}
<MI 217c6 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<Call 0x217c8 0x21712> {[4, 'A0']|[4, '(A1)']|[4, 'D0']}
<POP 217cc-217ce StackAdj> Δ+8 {[4, 'A0']}
<MI 217ce MOVE.W (A0),D0> {[4, 'A0']}
<MI 217d0 EXTW.L D0> {[4, 'A0']}
<MI 217d2 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 217d4 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 217d6-217da Naked> Σ-8 ↓ →0x21810 ←0x217da
<MI 217d6 CMP.L (A7),D7> {[-8-]}
<MI 217d8 BGT 0x21810> {[-8-]}
<POP 217da-21810 Naked> Σ-8 ↓ →0x217d6
<MI 217da MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 217dc MOVE.L D7,D0> {[-8-]}
<MI 217de ADD.L (A0),D0> {[-8-]}
<MI 217e0 SUBQ.L #0x1,D0> {[-8-]}
<MI 217e2 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x217e4 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-8-]}
<MI 217ee LEA.L 0x250dc,A0> {[-8-]}
<MI 217f4 MOVE.L D7,D1> {[-8-]}
<MI 217f6 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x217f8 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 21802 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 21806 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 2180c ADDQ.L #0x1,D7> {[-8-]}
<MI 2180e BVC 0x217d6> {[-8-]}
<POP 21810-2181e Naked> Σ-8 Δ+8 ↓ ←0x217d6
<POP 21810-21812 StackAdj> Δ+4 {[-4-]}
<MI 21812 MOVEA.L (A6+0xc),A0> {[-4-]}
<MI 21814 MOVEA.L (A7),A1> {[-4-]}
<MI 21816 MOVE.W (A1),D0> {[-4-]}
<MI 21818 EXTW.L D0> {[-4-]}
<MI 2181a ADD.L D0,(A0)> {[-4-]}
<POP 2181c-2181e StackAdj> Δ+4 {}
<POP 2181e-21826 Epilogue> Σ0
@ 21826
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21826-219a6 Body>
<POP 21826-2183c Prologue> Σ0 ↓
<POP 2183c-2184a RegCacheLoad> Σ0 ↓
<POP 2184a-2185c Naked> Σ0 ↓
<MI 2184a MOVEQ.L #0x00,D7> {}
<MI 2184c MOVEA.L (A6+0xc),A0> {}
<MI 21850 CLR.L (A0)> {}
<MI 21852 MOVEA.L (A6+0x8),A0> {}
<MI 21854 CLR.L (A0)> {}
<MI 21856 MOVE.L 0x260e4,D6> {}
<POP 2185c-2187c Naked> Σ0 ↓ →0x2194e ←0x21958 ←0x2195e
<MI 2185c MOVE.L D6,D0> {}
<MI 2185e SUBQ.L #0x1,D0> {}
<POP 0x21860 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {}
<MI 2186a LEA.L 0x250dc,A0> {}
<MI 21870 MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 21874 CMPI.B #0x5b,D0> {}
<MI 21878 BNE 0x2194e> {}
<POP 2187c-21890 Naked> Σ0 ↓ →0x2190e
<POP 2187c-2187e StackAdj> Δ-2 {[-2-]}
<MI 2187e MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21880 0x1.4> Δ-4 {[-2-]|[4, 'D6']|[##1]}
<Const 0x21884 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##1]|[##3]}
<Call 0x21888 0x2168c> {[-2-]|[4, 'D6']|[##1]|[##3]}
<POP 2188a-2188c StackAdj> Δ+12 {[-2-]}
<MI 2188c TST.B (A7)+> Δ+2 {}
<MI 2188e BNE 0x2190e> {}
<POP 21890-218a2 Naked> Σ0 ↓ →0x2190e
<POP 21890-21892 StackAdj> Δ-2 {[-2-]}
<MI 21892 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21894 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##4]}
<Const 0x21896 0x3.4> Δ-4 {[-2-]|[4, 'D6']|[##4]|[##3]}
<Call 0x2189a 0x2168c> {[-2-]|[4, 'D6']|[##4]|[##3]}
<POP 2189c-2189e StackAdj> Δ+12 {[-2-]}
<MI 2189e TST.B (A7)+> Δ+2 {}
<MI 218a0 BNE 0x2190e> {}
<POP 218a2-218b4 Naked> Σ0 ↓ →0x2190e
<POP 218a2-218a4 StackAdj> Δ-2 {[-2-]}
<MI 218a4 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x218a6 0x7.4> Δ-4 {[-2-]|[4, 'D6']|[##7]}
<Const 0x218aa 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##7]|[##4]}
<Call 0x218ac 0x2168c> {[-2-]|[4, 'D6']|[##7]|[##4]}
<POP 218ae-218b0 StackAdj> Δ+12 {[-2-]}
<MI 218b0 TST.B (A7)+> Δ+2 {}
<MI 218b2 BNE 0x2190e> {}
<POP 218b4-218c6 Naked> Σ0 ↓ →0x2190e
<POP 218b4-218b6 StackAdj> Δ-2 {[-2-]}
<MI 218b6 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x218b8 0xb.4> Δ-4 {[-2-]|[4, 'D6']|[##11]}
<Const 0x218bc 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##11]|[##4]}
<Call 0x218be 0x2168c> {[-2-]|[4, 'D6']|[##11]|[##4]}
<POP 218c0-218c2 StackAdj> Δ+12 {[-2-]}
<MI 218c2 TST.B (A7)+> Δ+2 {}
<MI 218c4 BNE 0x2190e> {}
<POP 218c6-218d8 Naked> Σ0 ↓ →0x2190e
<POP 218c6-218c8 StackAdj> Δ-2 {[-2-]}
<MI 218c8 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x218ca 0xf.4> Δ-4 {[-2-]|[4, 'D6']|[##15]}
<Const 0x218ce 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##15]|[##4]}
<Call 0x218d0 0x2168c> {[-2-]|[4, 'D6']|[##15]|[##4]}
<POP 218d2-218d4 StackAdj> Δ+12 {[-2-]}
<MI 218d4 TST.B (A7)+> Δ+2 {}
<MI 218d6 BNE 0x2190e> {}
<POP 218d8-218ea Naked> Σ0 ↓ →0x2190e
<POP 218d8-218da StackAdj> Δ-2 {[-2-]}
<MI 218da MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x218dc 0x13.4> Δ-4 {[-2-]|[4, 'D6']|[##19]}
<Const 0x218e0 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##19]|[##4]}
<Call 0x218e2 0x2168c> {[-2-]|[4, 'D6']|[##19]|[##4]}
<POP 218e4-218e6 StackAdj> Δ+12 {[-2-]}
<MI 218e6 TST.B (A7)+> Δ+2 {}
<MI 218e8 BNE 0x2190e> {}
<POP 218ea-218fc Naked> Σ0 ↓ →0x2190e
<POP 218ea-218ec StackAdj> Δ-2 {[-2-]}
<MI 218ec MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x218ee 0x17.4> Δ-4 {[-2-]|[4, 'D6']|[##23]}
<Const 0x218f2 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##23]|[##4]}
<Call 0x218f4 0x2168c> {[-2-]|[4, 'D6']|[##23]|[##4]}
<POP 218f6-218f8 StackAdj> Δ+12 {[-2-]}
<MI 218f8 TST.B (A7)+> Δ+2 {}
<MI 218fa BNE 0x2190e> {}
<POP 218fc-2190e Naked> Σ0 ↓ →0x21912
<POP 218fc-218fe StackAdj> Δ-2 {[-2-]}
<MI 218fe MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21900 0x1b.4> Δ-4 {[-2-]|[4, 'D6']|[##27]}
<Const 0x21904 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##27]|[##4]}
<Call 0x21906 0x2168c> {[-2-]|[4, 'D6']|[##27]|[##4]}
<POP 21908-2190a StackAdj> Δ+12 {[-2-]}
<MI 2190a TST.B (A7)+> Δ+2 {}
<MI 2190c BEQ 0x21912> {}
<POP 2190e-21912 Naked> Σ0 →0x2194e ←0x2187c ←0x21890 ←0x218a2 ←0x218b4 ←0x218c6 ←0x218d8 ←0x218ea
<MI 2190e ADDQ.L #0x1,D7> {}
<MI 21910 BRA 0x2194e> {}
<POP 21912-21916 Naked> Σ0 ↓ →0x21932 ←0x218fc
<MI 21912 TST.L D7> {}
<MI 21914 BNE 0x21932> {}
<POP 21916-2192a Naked> Σ0 ↓ →0x21932
<POP 21916-21918 StackAdj> Δ-2 {[-2-]}
<MI 21918 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x2191a 0x1f.4> Δ-4 {[-2-]|[4, 'D6']|[##31]}
<Const 0x2191e 0x5.4> Δ-4 {[-2-]|[4, 'D6']|[##31]|[##5]}
<Call 0x21922 0x2168c> {[-2-]|[4, 'D6']|[##31]|[##5]}
<POP 21924-21926 StackAdj> Δ+12 {[-2-]}
<MI 21926 TST.B (A7)+> Δ+2 {}
<MI 21928 BEQ 0x21932> {}
<POP 2192a-2192e Naked> Σ0 ↓
<MI 2192a MOVEA.L (A6+0xc),A0> {}
<POP 2192e-21932 Naked> Σ0 →0x2194e ←0x21948
<MI 2192e MOVE.L D6,(A0)> {}
<MI 21930 BRA 0x2194e> {}
<POP 21932-21944 Naked> Σ0 ↓ →0x2194e ←0x21912 ←0x21916
<POP 21932-21934 StackAdj> Δ-2 {[-2-]}
<MI 21934 MOVE.L D6,-(A7)> Δ-4 {[-2-]|[4, 'D6']}
<Const 0x21936 0x24.4> Δ-4 {[-2-]|[4, 'D6']|[##36]}
<Const 0x2193a 0x4.4> Δ-4 {[-2-]|[4, 'D6']|[##36]|[##4]}
<Call 0x2193c 0x2168c> {[-2-]|[4, 'D6']|[##36]|[##4]}
<POP 2193e-21940 StackAdj> Δ+12 {[-2-]}
<MI 21940 TST.B (A7)+> Δ+2 {}
<MI 21942 BEQ 0x2194e> {}
<POP 21944-21948 Naked> Σ0 ↓ →0x2194c
<MI 21944 TST.L D7> {}
<MI 21946 BNE 0x2194c> {}
<POP 21948-2194c Naked> Σ0 →0x2192e
<MI 21948 MOVEA.L (A6+0x8),A0> {}
<MI 2194a BRA 0x2192e> {}
<POP 2194c-2194e Naked> Σ0 ↓ ←0x21944
<MI 2194c SUBQ.L #0x1,D7> {}
<POP 2194e-21958 Naked> Σ0 ↓ →0x21966 ←0x2185c ←0x2190e ←0x2192e ←0x21932
<MI 2194e ADDQ.L #0x1,D6> {}
<MI 21950 CMP.L 0x260e8,D6> {}
<MI 21956 BGT 0x21966> {}
<POP 21958-2195e Naked> Σ0 ↓ →0x2185c
<MI 21958 TST.L D7> {}
<MI 2195a BNE 0x2185c> {}
<POP 2195e-21966 Naked> Σ0 ↓ →0x2185c
<MI 2195e MOVEA.L (A6+0x8),A0> {}
<MI 21960 TST.L (A0)> {}
<MI 21962 BEQ 0x2185c> {}
<POP 21966-2196e Naked> Σ0 ↓ →0x2199e ←0x2194e
<MI 21966 CMP.L 0x260e8,D6> {}
<MI 2196c BLE 0x2199e> {}
<POP 2196e-2199e Naked> Σ0 ↓
<Blob 0x2196e [28] @> Δ-28 {[«28""»]}
<POP 21980-21982 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x21982 27> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<Call 0x21996 0x211be> {[«28""»]|[$$Unbalanced [ELSE] or [END]!]}
<POP 2199a-2199e StackAdj> Δ+32 {}
<POP 2199e-219a6 Epilogue> Σ0 ←0x21966
@ 219a6
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(rw)>
<POP 219a6-219ec Body>
<POP 219a6-219bc Prologue> Σ0 ↓
<POP 219bc-219c4 RegCacheLoad> Σ0 ↓
<POP 219c4-219d2 Naked> Σ0 ↓ →0x219d4
<Pointer.fp 0x219c4 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Pointer.fp 0x219c6 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x219c8 0x21826> {[@@-8]|[@@-4]}
<POP 219cc-219ce StackAdj> Δ+8 {}
<MI 219ce TST.L (A6-0x8)> {}
<MI 219d0 BNE 0x219d4> {}
<POP 219d2-219d4 Naked> Σ0 ↓
<MI 219d2 MOVE.L (A6-0x4),(A6-0x8)> {}
<POP 219d4-219e4 Naked> Σ0 ↓ ←0x219c4
<MI 219d4 MOVE.L (A6-0x4),D0> {}
<MI 219d6 ADDQ.L #0x5,D0> {}
<MI 219d8 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 219da SUB.L (A6-0x8),D0> {[4, 'D0']}
<MI 219dc MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x219de 0x21712> {[4, 'D0']|[4, 'D0']}
<POP 219e2-219e4 StackAdj> Δ+8 {}
<POP 219e4-219ec Epilogue> Σ0
@ 219ec
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 219ec-21a48 Body>
<POP 219ec-21a02 Prologue> Σ0 ↓
<POP 21a02-21a0a RegCacheLoad> Σ0 ↓
<POP 21a0a-21a18 Naked> Σ0 ↓ →0x21a1e
<Pointer.fp 0x21a0a <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x21a0c <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x21a0e 0x21826> {[@@-8]|[@@-4]}
<POP 21a12-21a14 StackAdj> Δ+8 {}
<MI 21a14 TST.L (A6-0x8)> {}
<MI 21a16 BNE 0x21a1e> {}
<POP 21a18-21a1e Naked> Σ0 →0x21a30
<MI 21a18 MOVE.L (A6-0x4),D0> {}
<MI 21a1a ADDQ.L #0x5,D0> {}
<MI 21a1c BRA 0x21a30> {}
<POP 21a1e-21a30 Naked> Σ0 ↓ ←0x21a0a
<MI 21a1e MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<MI 21a20 ADDQ.L #0x5,(A7)> {[-4-]}
<Const 0x21a22 0x5.4> Δ-4 {[-4-]|[##5]}
<Call 0x21a26 0x21712> {[-4-]|[##5]}
<POP 21a2a-21a2c StackAdj> Δ+8 {}
<MI 21a2c MOVE.L (A6-0x8),D0> {}
<MI 21a2e ADDQ.L #0x6,D0> {}
<POP 21a30-21a40 Naked> Σ0 ↓ ←0x21a18
<MI 21a30 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21a32 SUB.L 0x260e4,D0> {[4, 'D0']}
<MI 21a38 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x21a3a 0x21712> {[4, 'D0']|[4, 'D0']}
<POP 21a3e-21a40 StackAdj> Δ+8 {}
<POP 21a40-21a48 Epilogue> Σ0
@ 21a48
<LVAR 0x008 4(r)>
<LVAR -0x004 @>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<POP 21a48-21b5c Body>
<POP 21a48-21a5e Prologue> Σ0 ↓
<POP 21a5e-21a76 RegCacheLoad> Σ0 ↓
<POP 21a76-21a7a Naked> Σ0 ↓ →0x21a84
<MI 21a76 TST.B 0x260f6> {}
<MI 21a78 BEQ 0x21a84> {}
<POP 21a7a-21a7e Naked> Σ0 ↓ →0x21a84
<MI 21a7a TST.L 0x260fc> {}
<MI 21a7c BNE 0x21a84> {}
<POP 21a7e-21a84 Naked> Σ0 ↓
<MI 21a7e MOVE.L (A6+0x8),0x260fc> {}
<MI 21a82 SUBQ.L #0x1,0x260fc> {}
<POP 21a84-21a8a Naked> Σ0 ↓ →0x21b54 ←0x21a76 ←0x21a7a
<MI 21a84 TST.B 0x260f6> {}
<MI 21a86 BNE 0x21b54> {}
<POP 21a8a-21abe Naked> Σ0 ↓ →0x21ad8
<MI 21a8a MOVE.L (A6+0x8),0x260e4> {}
<MI 21a8e ADDQ.L #0x6,0x260e4> {}
<Pointer.fp 0x21a90 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Pointer.fp 0x21a92 <LVAR -0x004 @>> Δ-4 {[@@-8]|[@@-4]}
<Call 0x21a96 0x2151e> {[@@-8]|[@@-4]}
<POP 21a9a-21a9c StackAdj> Δ+8 {}
<Blob 0x21a9c [10] @> Δ-10 {[«10""»]}
<MI 21aa8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[«10""»]|[4, '(A6-0x8)']}
<Const 0x21aaa 0x0.4> Δ-4 {[«10""»]|[4, '(A6-0x8)']|[##0]}
<Call 0x21aae 0x21600> {[«10""»]|[4, '(A6-0x8)']|[##0]}
<POP 21ab2-21ab6 StackAdj> Δ+18 {}
<MI 21ab6 TST.B 0x26100> {}
<MI 21abc BEQ 0x21ad8> {}
<POP 21abe-21ad8 Naked> Σ0 →0x21aec
<POP 21abe-21ac0 StackAdj> Δ-8 {[-8-]}
<MI 21ac0 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x8)']}
<Const 0x21ac2 0x0.4> Δ-4 {[-8-]|[4, '(A6-0x8)']|[##0]}
<Call 0x21ac6 0x21f18> {[-8-]|[4, '(A6-0x8)']|[##0]}
<POP 21acc-21ace StackAdj> Δ+8 {[-8-]}
<MI 21ace MOVE.L (A7)+,(A6-0x14)> Δ+4 {[-4-]}
<MI 21ad2 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 21ad6 BRA 0x21aec> {}
<POP 21ad8-21aec Naked> Σ0 ↓ ←0x21a8a
<POP 21ad8-21ada StackAdj> Δ-4 {[-4-]}
<MI 21ada MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<Const 0x21adc 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x8)']|[##0]}
<Call 0x21ae0 0x21ee6> {[-4-]|[4, '(A6-0x8)']|[##0]}
<POP 21ae6-21ae8 StackAdj> Δ+8 {[-4-]}
<MI 21ae8 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<POP 21aec-21b02 Naked> Σ0 ↓ →0x21b2c ←0x21abe
<MI 21aec MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Call 0x21aee 0x2117c> {[4, '(A6-0x8)']}
<POP 21af2-21af4 StackAdj> Δ+4 {}
<MI 21af4 MOVE.L 0x260e4,0x260f8> {}
<MI 21afa TST.B 0x26100> {}
<MI 21b00 BEQ 0x21b2c> {}
<POP 21b02-21b2c Naked> Σ0 →0x21b54
<POP 21b02-21b04 StackAdj> Δ-2 {[-2-]}
<MI 21b04 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']}
<MI 21b08 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Blob 0x21b0c [4] 0x2610a> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]}
<Blob 0x21b12 [4] 0x26106> Δ-4 {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
<Call 0x21b18 0x1032c> {[-2-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']|[«4»]|[«4»]}
IsEqual(a, b : Quad) : Bool
<POP 21b1e-21b22 StackAdj> Δ+16 {[-2-]}
<MI 21b22 MOVE.B (A7)+,D0> Δ+2 {}
<MI 21b24 EXTB.W D0> {}
<POP 0x21b26 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21b28 MOVE.B D0,0x260f6> {}
<MI 21b2a BRA 0x21b54> {}
<POP 21b2c-21b54 Naked> Σ0 ↓ ←0x21aec
<POP 21b2c-21b2e StackAdj> Δ-2 {[-2-]}
<MI 21b2e MOVE.L (A6-0xc),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xc)']}
<Blob 0x21b32 [4] 0x26102> Δ-4 {[-2-]|[4, '(A6-0xc)']|[«4»]}
<Call 0x21b38 0x102c8> {[-2-]|[4, '(A6-0xc)']|[«4»]}
StringEqual(a, b : String) : Byte
<POP 21b3e-21b40 StackAdj> Δ+8 {[-2-]}
<MI 21b40 MOVE.B (A7)+,D0> Δ+2 {}
<MI 21b42 EXTB.W D0> {}
<POP 0x21b44 LimitCheck 0x0 ≤ D0 ≤ 0x1> {}
<MI 21b46 MOVE.B D0,0x260f6> {}
<Pointer.fp 0x21b48 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x21b4c 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 21b52-21b54 StackAdj> Δ+4 {}
<POP 21b54-21b5c Epilogue> Σ0 ←0x21a84 ←0x21b02
@ 21b5c
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21b5c-21cde Body>
<POP 21b5c-21b72 Prologue> Σ0 ↓
<POP 21b72-21b86 RegCacheLoad> Σ0 ↓
<POP 21b86-21b9a Naked> Σ0 ↓
<MI 21b86 CLR.B 0x260f6> {}
<MI 21b88 CLR.L 0x260f8> {}
<MI 21b8e CLR.L 0x260fc> {}
<MI 21b90 MOVEQ.L #0x00,D7> {}
<MI 21b92 MOVEQ.L #0x00,D6> {}
<MI 21b94 MOVE.L 0x260e4,D5> {}
<POP 21b9a-21ba0 Naked> Σ0 ↓ →0x21c3e ←0x21c3a
<MI 21b9a TST.L D6> {}
<MI 21b9c BNE 0x21c3e> {}
<POP 21ba0-21baa Naked> Σ0 ↓ →0x21c3e
<MI 21ba0 CMP.L 0x260e8,D5> {}
<MI 21ba6 BGT 0x21c3e> {}
<POP 21baa-21bc8 Naked> Σ0 ↓ →0x21c34
<MI 21baa MOVE.L D5,D0> {}
<MI 21bac SUBQ.L #0x1,D0> {}
<POP 0x21bae LimitCheck 0x0 ≤ D0 ≤ 0xfff> {}
<MI 21bb8 LEA.L 0x250dc,A0> {}
<MI 21bbe MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 21bc2 CMPI.B #0x5b,D0> {}
<MI 21bc6 BNE 0x21c34> {}
<POP 21bc8-21bdc Naked> Σ0 ↓ →0x21bf0
<POP 21bc8-21bca StackAdj> Δ-2 {[-2-]}
<MI 21bca MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21bcc 0x28.4> Δ-4 {[-2-]|[4, 'D5']|[##40]}
<Const 0x21bd0 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##40]|[##5]}
<Call 0x21bd4 0x2168c> {[-2-]|[4, 'D5']|[##40]|[##5]}
<POP 21bd6-21bd8 StackAdj> Δ+12 {[-2-]}
<MI 21bd8 TST.B (A7)+> Δ+2 {}
<MI 21bda BNE 0x21bf0> {}
<POP 21bdc-21bf0 Naked> Σ0 ↓ →0x21bf4
<POP 21bdc-21bde StackAdj> Δ-2 {[-2-]}
<MI 21bde MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21be0 0x2d.4> Δ-4 {[-2-]|[4, 'D5']|[##45]}
<Const 0x21be4 0x6.4> Δ-4 {[-2-]|[4, 'D5']|[##45]|[##6]}
<Call 0x21be8 0x2168c> {[-2-]|[4, 'D5']|[##45]|[##6]}
<POP 21bea-21bec StackAdj> Δ+12 {[-2-]}
<MI 21bec TST.B (A7)+> Δ+2 {}
<MI 21bee BEQ 0x21bf4> {}
<POP 21bf0-21bf4 Naked> Σ0 →0x21c34 ←0x21bc8
<MI 21bf0 ADDQ.L #0x1,D7> {}
<MI 21bf2 BRA 0x21c34> {}
<POP 21bf4-21bf8 Naked> Σ0 ↓ →0x21c16 ←0x21bdc
<MI 21bf4 TST.L D7> {}
<MI 21bf6 BNE 0x21c16> {}
<POP 21bf8-21c0c Naked> Σ0 ↓ →0x21c16
<POP 21bf8-21bfa StackAdj> Δ-2 {[-2-]}
<MI 21bfa MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21bfc 0x33.4> Δ-4 {[-2-]|[4, 'D5']|[##51]}
<Const 0x21c00 0x5.4> Δ-4 {[-2-]|[4, 'D5']|[##51]|[##5]}
<Call 0x21c04 0x2168c> {[-2-]|[4, 'D5']|[##51]|[##5]}
<POP 21c06-21c08 StackAdj> Δ+12 {[-2-]}
<MI 21c08 TST.B (A7)+> Δ+2 {}
<MI 21c0a BEQ 0x21c16> {}
<POP 21c0c-21c16 Naked> Σ0 →0x21c34
<MI 21c0c MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<Call 0x21c0e 0x21a48> {[4, 'D5']}
<POP 21c12-21c14 StackAdj> Δ+4 {}
<MI 21c14 BRA 0x21c34> {}
<POP 21c16-21c2a Naked> Σ0 ↓ →0x21c34 ←0x21bf4 ←0x21bf8
<POP 21c16-21c18 StackAdj> Δ-2 {[-2-]}
<MI 21c18 MOVE.L D5,-(A7)> Δ-4 {[-2-]|[4, 'D5']}
<Const 0x21c1a 0x38.4> Δ-4 {[-2-]|[4, 'D5']|[##56]}
<Const 0x21c1e 0x8.4> Δ-4 {[-2-]|[4, 'D5']|[##56]|[##8]}
<Call 0x21c22 0x2168c> {[-2-]|[4, 'D5']|[##56]|[##8]}
<POP 21c24-21c26 StackAdj> Δ+12 {[-2-]}
<MI 21c26 TST.B (A7)+> Δ+2 {}
<MI 21c28 BEQ 0x21c34> {}
<POP 21c2a-21c2e Naked> Σ0 ↓ →0x21c32
<MI 21c2a TST.L D7> {}
<MI 21c2c BNE 0x21c32> {}
<POP 21c2e-21c32 Naked> Σ0 →0x21c34
<MI 21c2e MOVE.L D5,D6> {}
<MI 21c30 BRA 0x21c34> {}
<POP 21c32-21c34 Naked> Σ0 ↓ ←0x21c2a
<MI 21c32 SUBQ.L #0x1,D7> {}
<POP 21c34-21c38 Naked> Σ0 ↓ →0x21c3a ←0x21baa ←0x21bf0 ←0x21c0c ←0x21c16 ←0x21c2e
<MI 21c34 TST.L D6> {}
<MI 21c36 BNE 0x21c3a> {}
<POP 21c38-21c3a Naked> Σ0 ↓
<MI 21c38 ADDQ.L #0x1,D5> {}
<POP 21c3a-21c3e Naked> Σ0 →0x21b9a ←0x21c34
<MI 21c3a BRA 0x21b9a> {}
<POP 21c3e-21c46 Naked> Σ0 ↓ →0x21c54 ←0x21b9a ←0x21ba0
<MI 21c3e TST.B 0x26100> {}
<MI 21c44 BNE 0x21c54> {}
<POP 21c46-21c54 Naked> Σ0 ↓
<Const 0x21c46 0x26102.4> Δ-4 {[##155906]}
<Call 0x21c4c 0x102bc> {[##155906]}
FreeString(VAR a : String)
<POP 21c52-21c54 StackAdj> Δ+4 {}
<POP 21c54-21c58 Naked> Σ0 ↓ →0x21c80 ←0x21c3e
<MI 21c54 TST.B 0x260f6> {}
<MI 21c56 BNE 0x21c80> {}
<POP 21c58-21c80 Naked> Σ0 ↓
<Blob 0x21c58 [26] @> Δ-26 {[«26""»]}
<POP 21c64-21c66 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x21c66 26> {[«26""»]|[$$No case alternative found!]}
<Call 0x21c78 0x211be> {[«26""»]|[$$No case alternative found!]}
<POP 21c7c-21c80 StackAdj> Δ+30 {}
<POP 21c80-21c84 Naked> Σ0 ↓ →0x21cb2 ←0x21c54
<MI 21c80 TST.L D6> {}
<MI 21c82 BNE 0x21cb2> {}
<POP 21c84-21cb2 Naked> Σ0 ↓
<Blob 0x21c84 [20] @> Δ-20 {[«20""»]}
<POP 21c96-21c98 StackAdj> Δ-4 {[«20""»]|[-4-]}
<Lit 0x21c98 19> {[«20""»]|[$$No [ENDCASE] found!]}
<Call 0x21caa 0x211be> {[«20""»]|[$$No [ENDCASE] found!]}
<POP 21cae-21cb2 StackAdj> Δ+24 {}
<POP 21cb2-21cc6 Naked> Σ0 ↓ →0x21cd0 ←0x21c80
<MI 21cb2 MOVEA.L (A6+0x8),A0> {}
<MI 21cb6 MOVE.L D6,(A0)> {}
<MI 21cb8 MOVEA.L (A6+0x10),A0> {}
<MI 21cbc MOVE.L 0x260f8,(A0)> {}
<MI 21cc2 TST.L 0x260fc> {}
<MI 21cc4 BNE 0x21cd0> {}
<POP 21cc6-21cd0 Naked> Σ0 →0x21cd6
<MI 21cc6 MOVEA.L (A6+0xc),A0> {}
<MI 21cca MOVE.L D6,(A0)> {}
<MI 21ccc SUBQ.L #0x1,(A0)> {}
<MI 21cce BRA 0x21cd6> {}
<POP 21cd0-21cd6 Naked> Σ0 ↓ ←0x21cb2
<MI 21cd0 MOVEA.L (A6+0xc),A0> {}
<MI 21cd4 MOVE.L 0x260fc,(A0)> {}
<POP 21cd6-21cde Epilogue> Σ0 ←0x21cc6
@ 21cde
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 21cde-21d52 Body>
<POP 21cde-21cf4 Prologue> Σ0 ↓
<POP 21cf4-21cfe RegCacheLoad> Σ0 ↓
<POP 21cfe-21d4a Naked> Σ0 ↓
<MI 21cfe MOVE.L 0x260e4,D6> {}
<MI 21d00 CLR.B 0x26100> {}
<MI 21d06 MOVE.L (A6+0x8),0x26102> {}
<MI 21d0e MOVE.L 0x260e4,D7> {}
<Pointer.fp 0x21d10 <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x21d12 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x21d16 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x21d1a 0x21b5c> {[@@-16]|[@@-12]|[@@-8]}
<POP 21d1e-21d22 StackAdj> Δ+12 {}
<MI 21d22 MOVE.L D6,0x260e4> {}
<MI 21d24 MOVE.L (A6-0x8),D0> {}
<MI 21d28 ADDI.L #0x00000009,D0> {}
<MI 21d2e MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21d30 SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 21d34 SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 21d36 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x21d38 0x21712> {[4, 'D0']|[4, 'D0']}
<POP 21d3c-21d3e StackAdj> Δ+4 {[4, 'D0']}
<MI 21d3e MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 21d40 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 21d42 SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x21d44 0x21712> {[4, '(A6-0x10)']|[-4-]}
<POP 21d48-21d4a StackAdj> Δ+8 {}
<POP 21d4a-21d52 Epilogue> Σ0
@ 21d52
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<POP 21d52-21dd0 Body>
<POP 21d52-21d68 Prologue> Σ0 ↓
<POP 21d68-21d72 RegCacheLoad> Σ0 ↓
<POP 21d72-21dc8 Naked> Σ0 ↓
<MI 21d72 MOVE.L 0x260e4,D6> {}
<MI 21d74 MOVE.B #0x01,0x26100> {}
<MI 21d7c MOVE.L (A6+0x8),0x26106> {}
<MI 21d84 MOVE.L (A6+0xc),0x2610a> {}
<MI 21d8c MOVE.L 0x260e4,D7> {}
<Pointer.fp 0x21d8e <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Pointer.fp 0x21d90 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-16]|[@@-12]}
<Pointer.fp 0x21d94 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-16]|[@@-12]|[@@-8]}
<Call 0x21d98 0x21b5c> {[@@-16]|[@@-12]|[@@-8]}
<POP 21d9c-21da0 StackAdj> Δ+12 {}
<MI 21da0 MOVE.L D6,0x260e4> {}
<MI 21da2 MOVE.L (A6-0x8),D0> {}
<MI 21da6 ADDI.L #0x00000009,D0> {}
<MI 21dac MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 21dae SUB.L (A6-0xc),D0> {[4, 'D0']}
<MI 21db2 SUBQ.L #0x1,D0> {[4, 'D0']}
<MI 21db4 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']|[4, 'D0']}
<Call 0x21db6 0x21712> {[4, 'D0']|[4, 'D0']}
<POP 21dba-21dbc StackAdj> Δ+4 {[4, 'D0']}
<MI 21dbc MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 21dbe MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']|[4, '(A6-0x10)']}
<MI 21dc0 SUB.L D7,(A7)> {[4, '(A6-0x10)']|[-4-]}
<Call 0x21dc2 0x21712> {[4, '(A6-0x10)']|[-4-]}
<POP 21dc6-21dc8 StackAdj> Δ+8 {}
<POP 21dc8-21dd0 Epilogue> Σ0
@ 21dd0
<LVAR 0x010 4(rw)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21dd0-21e08 Body>
<POP 21dd0-21de6 Prologue> Σ0 ↓
<POP 21de6-21dec Naked> Σ0 ↓ →0x21df2
<MI 21de6 TST.L (A6+0x8)> {}
<MI 21dea BNE 0x21df2> {}
<POP 21dec-21df2 Naked> Σ0 →0x21e00
<MI 21dec CLR.L (A6+0x10)> {}
<MI 21df0 BRA 0x21e00> {}
<POP 21df2-21e00 Naked> Σ0 ↓ ←0x21de6
<MI 21df2 MOVE.L (A6+0xc),D0> {}
<MI 21df6 SUB.L (A6+0x8),D0> {}
<MI 21dfa ADDQ.L #0x1,D0> {}
<MI 21dfc MOVE.L D0,(A6+0x10)> {}
<POP 21e00-21e08 Epilogue> Σ0 ←0x21dec
@ 21e08
<LVAR 0x014 4(w)>
<LVAR 0x010 @ 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21e08-21e6a Body> Δ-4
<POP 21e08-21e1e Prologue> Σ0 ↓
<POP 21e1e-21e34 Naked> Σ0 Δ-4 ↓
<MI 21e1e MOVEA.L (A6+0xc),A4> {}
<MI 21e22 MOVE.L 0x210d6,(A6+0x10)> {}
<MI 21e28 MOVE.L 0x210da,(A6+0x14)> {}
<MI 21e2e MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 21e32 MOVEQ.L #0x00,D7> {[4, '(A6+0x8)']}
<POP 21e34-21e38 Naked> Σ-4 ↓ →0x21e60 ←0x21e5c
<MI 21e34 CMP.L (A7),D7> {[-4-]}
<MI 21e36 BGT 0x21e60> {[-4-]}
<POP 21e38-21e3e Naked> Σ-4 ↓ →0x21e42
<MI 21e38 CMPA.W #0x1,A4> {[-4-]}
<MI 21e3c BNE 0x21e42> {[-4-]}
<POP 21e3e-21e42 Naked> Σ-4 Δ+4 →0x21e62
<POP 21e3e-21e40 StackAdj> Δ+4 {}
<MI 21e40 BRA 0x21e62> {}
<POP 21e42-21e48 Naked> Σ-4 ↓ →0x21e58 ←0x21e38
<MI 21e42 CMP.L (A6+0x8),D7> {[-4-]}
<MI 21e46 BNE 0x21e58> {[-4-]}
<POP 21e48-21e58 Naked> Σ-4 →0x21e5c
<MI 21e48 LEA.L (A6+0x10),A0> {[-4-]}
<MI 21e4c MOVEA.L A4,A1> {[-4-]}
<BlockMove 8,A1,A0> {[-4-]}
<MI 21e56 BRA 0x21e5c> {[-4-]}
<POP 21e58-21e5c Naked> Σ-4 ↓ ←0x21e42
<MI 21e58 MOVEA.L (A4+0x8),A4> {[-4-]}
<POP 21e5c-21e60 Naked> Σ-4 ↓ →0x21e34 ←0x21e48
<MI 21e5c ADDQ.L #0x1,D7> {[-4-]}
<MI 21e5e BVC 0x21e34> {[-4-]}
<POP 21e60-21e62 Naked> Σ-4 Δ+4 ↓ ←0x21e34
<POP 21e60-21e62 StackAdj> Δ+4 {}
<POP 21e62-21e6a Epilogue> Σ0 ←0x21e3e
@ 21e6a
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<POP 21e6a-21ee6 Body> Δ-4
<POP 21e6a-21e80 Prologue> Σ0 ↓
<POP 21e80-21e84 RegCacheLoad> Σ0 ↓
<POP 21e84-21e9c Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x21e84 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x21e86 0x102b8> {[@@-8]}
NewString(VAR a : String)
<MI 21e8c MOVE.L (A6+0xc),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']}
<MI 21e90 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21e94 0x21dd0> {[@@-8]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 21e98-21e9a StackAdj> Δ+8 {[@@-8]}
<MI 21e9a MOVEQ.L #0x01,D7> {[@@-8]}
<POP 21e9c-21ea0 Naked> Σ-4 ↓ →0x21ed8 ←0x21ec8
<MI 21e9c CMP.L (A7),D7> {[-4-]}
<MI 21e9e BGT 0x21ed8> {[-4-]}
<POP 21ea0-21ec4 Naked> Σ-4 ↓ →0x21ec8
<MI 21ea0 MOVE.L D7,D0> {[-4-]}
<MI 21ea2 ADD.L (A6+0x8),D0> {[-4-]}
<MI 21ea6 SUBQ.L #0x1,D0> {[-4-]}
<MI 21ea8 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x21eaa LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-4-]}
<MI 21eb4 LEA.L 0x250dc,A0> {[-4-]}
<MI 21eba MOVE.B (A0+D0.L+#0x8),D6> {[-4-]}
<MI 21ebe CMPI.B #0x2f,D6> {[-4-]}
<MI 21ec2 BNE 0x21ec8> {[-4-]}
<POP 21ec4-21ec8 Naked> Σ-4 Δ+4 →0x21eda
<POP 21ec4-21ec6 StackAdj> Δ+4 {}
<MI 21ec6 BRA 0x21eda> {}
<POP 21ec8-21ed8 Naked> Σ-4 ↓ →0x21e9c ←0x21ea0
<MI 21ec8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 21eca MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
<Call 0x21ecc 0x102c0> {[-4-]|[4, '(A6-0x8)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 21ed2-21ed4 StackAdj> Δ+6 {[-4-]}
<MI 21ed4 ADDQ.L #0x1,D7> {[-4-]}
<MI 21ed6 BVC 0x21e9c> {[-4-]}
<POP 21ed8-21eda Naked> Σ-4 Δ+4 ↓ ←0x21e9c
<POP 21ed8-21eda StackAdj> Δ+4 {}
<POP 21eda-21ede Naked> Σ0 ↓ ←0x21ec4
<MI 21eda MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 21ede-21ee6 Epilogue> Σ0
@ 21ee6
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21ee6-21f18 Body>
<POP 21ee6-21ef8 Prologue> Σ0 ↓
<POP 21ef8-21f14 Naked> Σ0 ↓
<POP 21ef8-21efc StackAdj> Δ-12 {[-12-]}
<MI 21efc MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 21f00 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21f04 0x21e08> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 21f08-21f0a StackAdj> Δ+8 {[-12-]}
<Call 0x21f0a 0x21e6a> {[-12-]}
<POP 21f0e-21f10 StackAdj> Δ+8 {[-4-]}
<MI 21f10 MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 21f14-21f18 Epilogue> Σ0
@ 21f18
<LVAR 0x014 4(w)>
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21f18-21f54 Body>
<POP 21f18-21f2a Prologue> Σ0 ↓
<POP 21f2a-21f50 Naked> Σ0 ↓
<POP 21f2a-21f2e StackAdj> Δ-12 {[-12-]}
<MI 21f2e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 21f32 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21f36 0x21ee6> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 21f3a-21f3c StackAdj> Δ+8 {[-12-]}
<Const 0x21f3c 0x10.4> Δ-4 {[-12-]|[##16]}
<Call 0x21f40 0x10360> {[-12-]|[##16]}
?StringToInt64()
<POP 21f46-21f48 StackAdj> Δ+8 {[-8-]}
<MI 21f48 MOVE.L (A7)+,(A6+0x10)> Δ+4 {[-4-]}
<MI 21f4c MOVE.L (A7)+,(A6+0x14)> Δ+4 {}
<POP 21f50-21f54 Epilogue> Σ0
@ 21f54
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 21f54-21f88 Body>
<POP 21f54-21f66 Prologue> Σ0 ↓
<POP 21f66-21f84 Naked> Σ0 ↓
<POP 21f66-21f6a StackAdj> Δ-12 {[-12-]}
<MI 21f6a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<MI 21f6e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x21f72 0x21f18> {[-12-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 21f76-21f78 StackAdj> Δ+8 {[-12-]}
<Call 0x21f78 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 21f7e-21f80 StackAdj> Δ+8 {[-4-]}
<MI 21f80 MOVE.L (A7)+,(A6+0x10)> Δ+4 {}
<POP 21f84-21f88 Epilogue> Σ0
@ 21f88
<LVAR 0x008 @ 4(r)>
<POP 21f88-22010 Body>
<POP 21f88-21f9e Prologue> Σ0 ↓
<POP 21f9e-21fa4 RegCacheLoad> Σ0 ↓
<POP 21fa4-21fc2 Naked> Σ0 Δ-8 ↓
<MI 21fa4 MOVEA.L (A6+0x8),A0> {}
<MI 21fa8 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x21faa [4] 0x260e4> Δ-4 {[4, 'A0']|[«4»]}
<MI 21fac MOVE.W (A0),D0> {[4, 'A0']|[«4»]}
<MI 21fae EXTW.L D0> {[4, 'A0']|[«4»]}
<MI 21fb0 NEG.L D0> {[4, 'A0']|[«4»]}
<MI 21fb2 MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, 'D0']}
<Call 0x21fb4 0x21712> {[4, 'A0']|[«4»]|[4, 'D0']}
<POP 21fb8-21fba StackAdj> Δ+8 {[4, 'A0']}
<MI 21fba MOVE.W (A0),D0> {[4, 'A0']}
<MI 21fbc EXTW.L D0> {[4, 'A0']}
<MI 21fbe MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 21fc0 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 21fc2-21fc6 Naked> Σ-8 ↓ →0x21ffa ←0x21fc6
<MI 21fc2 CMP.L (A7),D7> {[-8-]}
<MI 21fc4 BGT 0x21ffa> {[-8-]}
<POP 21fc6-21ffa Naked> Σ-8 ↓ →0x21fc2
<MI 21fc6 MOVE.L D7,D0> {[-8-]}
<MI 21fc8 ADD.L 0x260e4,D0> {[-8-]}
<MI 21fca SUBQ.L #0x1,D0> {[-8-]}
<MI 21fcc SUBQ.L #0x1,D0> {[-8-]}
<POP 0x21fce LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-8-]}
<MI 21fd8 LEA.L 0x250dc,A0> {[-8-]}
<MI 21fde MOVE.L D7,D1> {[-8-]}
<MI 21fe0 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x21fe2 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 21fec MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 21ff0 MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 21ff6 ADDQ.L #0x1,D7> {[-8-]}
<MI 21ff8 BVC 0x21fc2> {[-8-]}
<POP 21ffa-22008 Naked> Σ-8 Δ+8 ↓ ←0x21fc2
<POP 21ffa-21ffc StackAdj> Δ+8 {}
<Pointer.fp 0x21ffc <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x22000 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 22006-22008 StackAdj> Δ+4 {}
<POP 22008-22010 Epilogue> Σ0
@ 22010
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 22010-22044 Body>
<POP 22010-22022 Prologue> Σ0 ↓
<POP 22022-22040 Naked> Σ0 ↓
<POP 22022-22024 StackAdj> Δ-4 {[-4-]}
<MI 22024 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 22028 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Const 0x2202c 0x10.4> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
<Call 0x22030 0x1035c> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[##16]}
Quad2String(a : Quad; radix : Long ) : String
<POP 22036-2203a StackAdj> Δ+12 {[-4-]}
<Call 0x2203a 0x21f88> {[-4-]}
<POP 2203e-22040 StackAdj> Δ+4 {}
<POP 22040-22044 Epilogue> Σ0
@ 22044
<LVAR 0x008 4(r)>
<POP 22044-2206e Body>
<POP 22044-22056 Prologue> Σ0 ↓
<POP 22056-2206a Naked> Σ0 ↓
<POP 22056-22058 StackAdj> Δ-4 {[-4-]}
<MI 22058 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x2205c 0x102e4> {[-4-]|[4, '(A6+0x8)']}
Long2String(a : Long) : String
<POP 22062-22064 StackAdj> Δ+4 {[-4-]}
<Call 0x22064 0x21f88> {[-4-]}
<POP 22068-2206a StackAdj> Δ+4 {}
<POP 2206a-2206e Epilogue> Σ0
@ 2206e
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 2206e-2213e Body>
<POP 2206e-22084 Prologue> Σ0 ↓
<POP 22084-2208c RegCacheLoad> Σ0 ↓
<POP 2208c-2209e Naked> Σ0 ↓
<MI 2208c MOVEA.L (A6+0x8),A0> {}
<MI 22090 MOVE.L (A0+0x8),(A6-0x8)> {}
<Pointer.fp 0x22094 <LVAR -0x004 @ 4(r)>> Δ-4 {[@@-4]}
<Call 0x22096 0x102b8> {[@@-4]}
NewString(VAR a : String)
<POP 2209c-2209e StackAdj> Δ+4 {}
<POP 2209e-220a8 Naked> Σ0 ↓ →0x2212c ←0x22114
<MI 2209e MOVEA.L (A6-0x8),A0> {}
<MI 220a0 CMPA.W #0x1,A0> {}
<MI 220a4 BEQ 0x2212c> {}
<POP 220a8-220ac Naked> Σ0 ↓ →0x22114
<MI 220a8 TST.L (A0)> {}
<MI 220aa BEQ 0x22114> {}
<POP 220ac-220b6 Naked> Σ0 Δ-4 ↓ →0x220ca
<MI 220ac MOVE.L (A0+0x4),-(A7)> Δ-4 {[4, '(A0+0x4)']}
<MI 220b0 MOVE.L (A0),D7> {[4, '(A0+0x4)']}
<MI 220b2 CMP.L (A7),D7> {[4, '(A0+0x4)']}
<MI 220b4 BGT 0x220ca> {[4, '(A0+0x4)']}
<POP 220b6-220ca Naked> Σ-4 ↓
<MI 220b6 MOVE.L (A7),D0> {[-4-]}
<POP 0x220b8 LimitCheck -0x7fffffff ≤ D7> {[-4-]}
<MI 220b8 CMPI.L #0x80000001,D7>
<MI 220be BLT 0x220c8>
<POP 0x220c0 LimitCheck D0 ≤ 0x7fffffff> {[-4-]}
<MI 220c0 CMPI.L #0x7fffffff,D0>
<MI 220c6 BLE 0x220ca>
<MI 220c8 TRAP #15>
<POP 220ca-220ce Naked> Σ-4 ↓ →0x22112 ←0x220ac ←0x2210e
<MI 220ca CMP.L (A7),D7> {[-4-]}
<MI 220cc BGT 0x22112> {[-4-]}
<POP 220ce-220fa Naked> Σ-4 ↓ →0x2210e
<MI 220ce MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<MI 220d0 MOVE.L D7,D0> {[-4-]|[4, '(A6-0x4)']}
<MI 220d2 SUBQ.L #0x1,D0> {[-4-]|[4, '(A6-0x4)']}
<POP 0x220d4 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-4-]|[4, '(A6-0x4)']}
<MI 220de LEA.L 0x250dc,A0> {[-4-]|[4, '(A6-0x4)']}
<MI 220e4 MOVE.B (A0+D0.L+#0x8),-(A7)> Δ-2 {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
<Call 0x220e8 0x102c0> {[-4-]|[4, '(A6-0x4)']|[2, '(A0+D0.L+#0x8)']}
AppendChar(MOD b : String; a : char)
<POP 220ee-220f0 StackAdj> Δ+6 {[-4-]}
<MI 220f0 MOVEA.L (A6-0x4),A0> {[-4-]}
<MI 220f2 MOVE.W (A0),D0> {[-4-]}
<MI 220f4 CMPI.W #0x007a,D0> {[-4-]}
<MI 220f8 BLT 0x2210e> {[-4-]}
<POP 220fa-2210e Naked> Σ-4 ↓
<MI 220fa MOVE.L (A6-0x4),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x4)']}
<Call 0x220fc 0x103d8> {[-4-]|[4, '(A6-0x4)']}
WriteConsoleString(str : String)
<POP 22102-22104 StackAdj> Δ+4 {[-4-]}
<Pointer.fp 0x22104 <LVAR -0x004 @ 4(r)>> Δ-4 {[-4-]|[@@-4]}
<Call 0x22106 0x102b8> {[-4-]|[@@-4]}
NewString(VAR a : String)
<POP 2210c-2210e StackAdj> Δ+4 {[-4-]}
<POP 2210e-22112 Naked> Σ-4 ↓ →0x220ca ←0x220ce
<MI 2210e ADDQ.L #0x1,D7> {[-4-]}
<MI 22110 BVC 0x220ca> {[-4-]}
<POP 22112-22114 Naked> Σ-4 Δ+4 ↓ ←0x220ca
<POP 22112-22114 StackAdj> Δ+4 {}
<POP 22114-2212c Naked> Σ0 →0x2209e ←0x220a8
<MI 22114 MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Const 0x22116 0x20.2> Δ-2 {[4, '(A6-0x4)']|[#32]}
<Call 0x2211a 0x102c0> {[4, '(A6-0x4)']|[#32]}
AppendChar(MOD b : String; a : char)
<POP 22120-22122 StackAdj> Δ+6 {}
<MI 22122 MOVEA.L (A6-0x8),A0> {}
<MI 22124 MOVE.L (A0+0x8),(A6-0x8)> {}
<MI 22128 BRA 0x2209e> {}
<POP 2212c-22136 Naked> Σ0 ↓ ←0x2209e
<MI 2212c MOVE.L (A6-0x4),-(A7)> Δ-4 {[4, '(A6-0x4)']}
<Call 0x2212e 0x103e0> {[4, '(A6-0x4)']}
WriteConsoleStringCrLf(str : String)
<POP 22134-22136 StackAdj> Δ+4 {}
<POP 22136-2213e Epilogue> Σ0
@ 2213e
<LVAR 0x008 @ 4(r)>
<LVAR -0x003 @ 1(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(rw)>
<POP 2213e-22248 Body>
<POP 2213e-22154 Prologue> Σ0 ↓
<POP 22154-22166 RegCacheLoad> Σ0 ↓
<POP 22166-221ac Naked> Σ0 ↓ →0x221e2
<Blob 0x22166 [4] @> Δ-4 {[«4""»]}
<POP 2216a-2216c StackAdj> Δ-8 {[«4""»]|[-8-]}
<MI 2216c MOVE.L (A6+0x8),-(A7)> Δ-4 {[«4""»]|[-8-]|[4, '(A6+0x8)']}
<Call 0x2216e 0x102cc> {[«4""»]|[-8-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<Lit 0x22174 4> {[«4""»]|[-8-]|[$$.HLP]}
<Call 0x22186 0x102d0> {[«4""»]|[-8-]|[$$.HLP]}
StringCat2(a, b : String) : String
<POP 2218c-2218e StackAdj> Δ+8 {[«4""»]|[-4-]}
<MI 2218e MOVE.L (A7)+,(A6-0xc)> Δ+4 {[«4""»]}
<MI 22190 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<MI 22192 CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]}
<MI 22194 CLR.B -(A7)> Δ-2 {[4, '(A6-0xc)']|[#0]|[#0]}
<Const 0x22196 0x0.4> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]}
<Pointer.fp 0x2219a <LVAR -0x004 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]}
<Pointer.fp 0x2219c <LVAR -0x008 @ 4(r)>> Δ-4 {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
<Call 0x2219e 0x10380> {[4, '(A6-0xc)']|[#0]|[#0]|[##0]|[@@-4]|[@@-8]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 221a4-221a8 StackAdj> Δ+20 {}
<MI 221a8 TST.B (A6-0x4)> {}
<MI 221aa BEQ 0x221e2> {}
<POP 221ac-221e2 Naked> Σ0 →0x22236
<Blob 0x221ac [22] @> Δ-22 {[«22""»]}
<POP 221b8-221ba StackAdj> Δ-8 {[«22""»]|[-8-]}
<Lit 0x221ba 22> {[«22""»]|[-4-]|[$$No help available for_]}
<POP 221ca-221cc StackAdj> Δ-4 {[«22""»]|[-4-]|[$$No help available for_]|[-4-]}
<MI 221cc MOVE.L (A6+0x8),(A7)> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
<Call 0x221ce 0x102d0> {[«22""»]|[-4-]|[$$No help available for_]|[4, '(A6+0x8)']}
StringCat2(a, b : String) : String
<POP 221d4-221d6 StackAdj> Δ+8 {[«22""»]|[-4-]}
<Call 0x221d6 0x103e0> {[«22""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 221dc-221e0 StackAdj> Δ+26 {}
<MI 221e0 BRA 0x22236> {}
<POP 221e2-221fa Naked> Σ0 ↓ →0x2220e ←0x22166 ←0x2220e
<MI 221e2 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<Pointer.fp 0x221e4 <LVAR 0x008 @ 4(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]}
<Pointer.fp 0x221e6 <LVAR -0x003 @ 1(r)>> Δ-4 {[4, '(A6-0x8)']|[@@8]|[@@-3]}
<Call 0x221ea 0x1043c> {[4, '(A6-0x8)']|[@@8]|[@@-3]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 221f0-221f4 StackAdj> Δ+12 {}
<MI 221f4 TST.B (A6-0x3)> {}
<MI 221f8 BNE 0x2220e> {}
<POP 221fa-2220e Naked> Σ0 ↓
<POP 221fa-221fc StackAdj> Δ-4 {[-4-]}
<MI 221fc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x221fe 0x102cc> {[-4-]|[4, '(A6+0x8)']}
StringDup(a : String) : String
<POP 22204-22206 StackAdj> Δ+4 {[-4-]}
<Call 0x22206 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2220c-2220e StackAdj> Δ+4 {}
<POP 2220e-22214 Naked> Σ0 ↓ →0x221e2 ←0x221e2
<MI 2220e TST.B (A6-0x3)> {}
<MI 22212 BEQ 0x221e2> {}
<POP 22214-22236 Naked> Σ0 ↓
<MI 22214 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x22216 0x2.2> Δ-2 {[#0]|[#2]}
<Const 0x2221a 0x1.4> Δ-4 {[#0]|[#2]|[##1]}
<Pointer.fp 0x2221e <LVAR -0x004 @ 1(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]}
<Pointer.fp 0x22220 <LVAR -0x008 @ 4(r)>> Δ-4 {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
<Call 0x22222 0x1038c> {[#0]|[#2]|[##1]|[@@-4]|[@@-8]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 22228-2222c StackAdj> Δ+16 {}
<Pointer.fp 0x2222c <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x2222e 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 22234-22236 StackAdj> Δ+4 {}
<POP 22236-22240 Naked> Σ0 ↓ ←0x221ac
<Pointer.fp 0x22236 <LVAR -0x00c @ 4(rw)>> Δ-4 {[@@-12]}
<Call 0x22238 0x102bc> {[@@-12]}
FreeString(VAR a : String)
<POP 2223e-22240 StackAdj> Δ+4 {}
<POP 22240-22248 Epilogue> Σ0
@ 22248
<LVAR 0x008 4(r)>
<POP 22248-222ca Body>
<POP 22248-2225e Prologue> Σ0 ↓
<POP 2225e-2226e Naked> Σ0 ↓ →0x2229c
<POP 2225e-22260 StackAdj> Δ-4 {[-4-]}
<MI 22260 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x22264 0x215ca> {[-4-]|[4, '(A6+0x8)']}
<POP 22268-2226a StackAdj> Δ+4 {[-4-]}
<MI 2226a MOVE.L (A7)+,D6> Δ+4 {}
<MI 2226c BNE 0x2229c> {}
<POP 2226e-2229c Naked> Σ0 →0x222c2
<Blob 0x2226e [10] 0x260f6> Δ-10 {[«10»]}
<POP 2227c-2227e StackAdj> Δ-4 {[«10»]|[-4-]}
<Lit 0x2227e> {[«10»]|[$$…]}
<Pointer.sp 0x2227e 4> Δ-4
<Const 0x22282 0x1.2> Δ-2
<Const 0x22286 0xa.2> Δ-2
<Call 0x2228a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22290-22292 StackAdj> Δ+8
<Call 0x22292 0x2213e> {[«10»]|[$$…]}
<POP 22296-2229a StackAdj> Δ+14 {}
<MI 2229a BRA 0x222c2> {}
<POP 2229c-222a0 Naked> Σ0 Δ-4 ↓ ←0x2225e
<MI 2229c MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 2229e MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 222a0-222a4 Naked> Σ-4 ↓ →0x222c0 ←0x222a4
<MI 222a0 CMP.L (A7),D7> {[-4-]}
<MI 222a2 BGT 0x222c0> {[-4-]}
<POP 222a4-222c0 Naked> Σ-4 ↓ →0x222a0
<POP 222a4-222a6 StackAdj> Δ-4 {[-8-]}
<MI 222a6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 222aa MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x222ac 0x21ee6> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 222b0-222b2 StackAdj> Δ+8 {[-8-]}
<MI 222b2 MOVEA.L (A7)+,A4> Δ+4 {[-4-]}
<MI 222b4 MOVE.L A4,-(A7)> Δ-4 {[-4-]|[4, 'A4']}
<Call 0x222b6 0x2213e> {[-4-]|[4, 'A4']}
<POP 222ba-222bc StackAdj> Δ+4 {[-4-]}
<MI 222bc ADDQ.L #0x1,D7> {[-4-]}
<MI 222be BVC 0x222a0> {[-4-]}
<POP 222c0-222c2 Naked> Σ-4 Δ+4 ↓ ←0x222a0
<POP 222c0-222c2 StackAdj> Δ+4 {}
<POP 222c2-222ca Epilogue> Σ0 ←0x2226e
@ 222ca
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x020 @>
<POP 222ca-2234c Body>
<POP 222ca-222e0 Prologue> Σ0 ↓
<POP 222e0-222e2 RegCacheLoad> Σ0 ↓
<POP 222e2-222e4 Naked> Σ0 ↓
<MI 222e2 MOVEQ.L #0x01,D7> {}
<POP 222e4-222f0 Naked> Σ0 ↓ →0x22300 ←0x2231e
<MI 222e4 MOVEA.L (A6+0x8),A0> {}
<MI 222e8 MOVE.W (A0),D0> {}
<MI 222ea EXTW.L D0> {}
<MI 222ec CMP.L D0,D7> {}
<MI 222ee BLE 0x22300> {}
<POP 222f0-22300 Naked> Σ0 →0x2231e
<MI 222f0 MOVE.L D7,D0> {}
<MI 222f2 SUBQ.L #0x1,D0> {}
<POP 0x222f4 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 222fa CLR.B (A6+D0.L-#0x20)> {}
<MI 222fe BRA 0x2231e> {}
<POP 22300-2231e Naked> Σ0 ↓ ←0x222e4
<MI 22300 MOVE.L D7,D0> {}
<MI 22302 SUBQ.L #0x1,D0> {}
<POP 0x22304 LimitCheck 0x0 ≤ D0 ≤ 0x1d> {}
<MI 2230a MOVE.L D7,D1> {}
<MI 2230c SUBQ.L #0x1,D1> {}
<POP 0x2230e LimitCheck 0x0 ≤ D1 ≤ 0x7d> {}
<MI 22318 MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20)> {}
<POP 2231e-22328 Naked> Σ0 ↓ →0x222e4 ←0x222f0
<MI 2231e ADDQ.L #0x1,D7> {}
<MI 22320 CMPI.L #0x0000001e,D7> {}
<MI 22326 BLE 0x222e4> {}
<POP 22328-22344 Naked> Σ0 ↓
<Pointer.fp 0x22328 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x2232c 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 22332-22334 StackAdj> Δ+4 {}
<MI 22334 LEA.L (A6+0xc),A0> {}
<MI 22338 LEA.L (A6-0x20),A1> {}
<BlockMove 30,A1,A0> {}
<POP 22344-2234c Epilogue> Σ0
@ 2234c
<LVAR 0x026 4(w)>
<LVAR 0x008 @>
<LVAR -0x006 4(rw)>
<POP 2234c-223a0 Body>
<POP 2234c-22362 Prologue> Σ0 ↓
<POP 22362-22366 RegCacheLoad> Σ0 ↓
<POP 22366-2236e Naked> Σ0 ↓
<MI 22366 MOVEQ.L #0x00,D7> {}
<MI 22368 MOVE.L 0x2610e,(A6-0x6)> {}
<POP 2236e-22376 Naked> Σ0 ↓ →0x22394 ←0x22392
<MI 2236e MOVEA.L (A6-0x6),A0> {}
<MI 22370 CMPA.W #0x1,A0> {}
<MI 22374 BEQ 0x22394> {}
<POP 22376-2237a Naked> Σ0 ↓ →0x22394
<MI 22376 TST.B D7> {}
<MI 22378 BNE 0x22394> {}
<POP 2237a-22382 Naked> Σ0 ↓
<MI 2237a MOVEA.L A0,A1> {}
<MI 2237c LEA.L (A6+0x8),A2> {}
<MI 22380 MOVEQ.L #0x1d,D0> {}
<POP 22382-22388 Naked> Σ0 ↓ →0x22382 ←0x22382
<MI 22382 CMPM.B (A1)+,(A2)+> {}
<MI 22384 DBNE D0,0x22382> {}
<POP 22388-2238a Naked> Σ0 ↓ →0x2238e
<MI 22388 BNE 0x2238e> {}
<POP 2238a-2238e Naked> Σ0 →0x22392
<MI 2238a MOVEQ.L #0x01,D7> {}
<MI 2238c BRA 0x22392> {}
<POP 2238e-22392 Naked> Σ0 ↓ ←0x22388
<MI 2238e MOVE.L (A0+0x26),(A6-0x6)> {}
<POP 22392-22394 Naked> Σ0 →0x2236e ←0x2238a
<MI 22392 BRA 0x2236e> {}
<POP 22394-22398 Naked> Σ0 ↓ ←0x2236e ←0x22376
<MI 22394 MOVE.L A0,(A6+0x26)> {}
<POP 22398-223a0 Epilogue> Σ0
@ 223a0
<LVAR 0x008 @ 4(r)>
<POP 223a0-22426 Body>
<POP 223a0-223b6 Prologue> Σ0 ↓
<POP 223b6-223c2 RegCacheLoad> Σ0 ↓
<POP 223c2-223c8 Naked> Σ0 ↓ →0x2241e
<MI 223c2 MOVEA.L (A6+0x8),A0> {}
<MI 223c4 CMPA.W #0x01,A0> {}
<MI 223c6 BEQ 0x2241e> {}
<POP 223c8-223ce Naked> Σ0 ↓ →0x223de
<MI 223c8 TST.L (A0+0x1e)> {}
<MI 223cc BEQ 0x223de> {}
<POP 223ce-223de Naked> Σ0 ↓
<MI 223ce MOVE.L (A0+0x22),-(A7)> Δ-4 {[4, '(A0+0x22)']}
<MI 223d2 MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
<Call 0x223d6 0x102a4> {[4, '(A0+0x22)']|[4, '(A0+0x1e)']}
Free1(a : Pointer; b : Long)
<POP 223dc-223de StackAdj> Δ+8 {}
<POP 223de-223e4 Naked> Σ0 ↓ ←0x223c8
<MI 223de MOVEQ.L #0x00,D7> {}
<MI 223e0 MOVEA.W #0x01,A4> {}
<MI 223e2 MOVEA.L 0x2610e,A3> {}
<POP 223e4-223e8 Naked> Σ0 ↓ →0x223fc ←0x223fa
<MI 223e4 CMPA.W #0x01,A3> {}
<MI 223e6 BEQ 0x223fc> {}
<POP 223e8-223ec Naked> Σ0 ↓ →0x223fc
<MI 223e8 TST.B D7> {}
<MI 223ea BNE 0x223fc> {}
<POP 223ec-223f0 Naked> Σ0 ↓ →0x223f4
<MI 223ec CMPA.L (A6+0x8),A3> {}
<MI 223ee BNE 0x223f4> {}
<POP 223f0-223f4 Naked> Σ0 →0x223fa
<MI 223f0 MOVEQ.L #0x01,D7> {}
<MI 223f2 BRA 0x223fa> {}
<POP 223f4-223fa Naked> Σ0 ↓ ←0x223ec
<MI 223f4 MOVEA.L A3,A4> {}
<MI 223f6 MOVEA.L (A3+0x26),A3> {}
<POP 223fa-223fc Naked> Σ0 →0x223e4 ←0x223f0
<MI 223fa BRA 0x223e4> {}
<POP 223fc-22400 Naked> Σ0 ↓ →0x2241e ←0x223e4 ←0x223e8
<MI 223fc TST.B D7> {}
<MI 223fe BEQ 0x2241e> {}
<POP 22400-22404 Naked> Σ0 ↓ →0x2240a
<MI 22400 CMPA.W #0x01,A4> {}
<MI 22402 BNE 0x2240a> {}
<POP 22404-2240a Naked> Σ0 →0x22410
<MI 22404 MOVE.L (A3+0x26),0x2610e> {}
<MI 22408 BRA 0x22410> {}
<POP 2240a-22410 Naked> Σ0 ↓ ←0x22400
<MI 2240a MOVE.L (A3+0x26),(A4+0x26)> {}
<POP 22410-2241e Naked> Σ0 ↓ ←0x22404
<Pointer.fp 0x22410 <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Const 0x22412 0x2a.4> Δ-4 {[@@8]|[##42]}
<Call 0x22416 0x102a8> {[@@8]|[##42]}
Free2(a : Pointer; b : Long)
<POP 2241c-2241e StackAdj> Δ+8 {}
<POP 2241e-22426 Epilogue> Σ0 ←0x223c2 ←0x223fc
@ 22426
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 @ 4(rw)>
<LVAR -0x024 @>
<POP 22426-224e4 Body>
<POP 22426-2243c Prologue> Σ0 ↓
<POP 2243c-22446 RegCacheLoad> Σ0 ↓
<POP 22446-22464 Naked> Σ0 ↓ →0x22466
<POP 22446-22448 StackAdj> Δ-30 {[-30-]}
<MI 22448 MOVEA.L (A6+0xc),A0> {[-30-]}
<MI 2244c MOVE.L (A0),-(A7)> Δ-4 {[-30-]|[4, '(A0)']}
<Call 0x2244e 0x222ca> {[-30-]|[4, '(A0)']}
<POP 22452-22454 StackAdj> Δ+4 {[-30-]}
<MI 22454 LEA.L (A6-0x24),A0> {[-30-]}
<POP 22458-22460 StackPop> Δ+30 {[-30-]}
<BlockMove 30,A7,A0> Δ+30
<MI 22460 TST.L (A6+0x8)> {[-30-]}
<MI 22462 BGE 0x22466> {[-30-]}
<POP 22464-22466 Naked> Σ0 ↓
<MI 22464 CLR.L (A6+0x8)> {}
<POP 22466-22482 Naked> Σ0 ↓ →0x22494 ←0x22446
<POP 22466-22468 StackAdj> Δ-4 {[-4-]}
<Blob 0x22468 [30] (A6-0x6)> Δ-30 {[-4-]|[«30»]}
<Call 0x22472 0x2234c> {[-4-]|[«30»]}
<POP 22476-22478 StackAdj> Δ+30 {[-4-]}
<MI 22478 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 2247a MOVEA.L (A6-0x6),A0> {}
<MI 2247c CMPA.W #0x1,A0> {}
<MI 22480 BEQ 0x22494> {}
<POP 22482-2248a Naked> Σ0 ↓ →0x2248c
<MI 22482 MOVE.L (A0+0x1e),D0> {}
<MI 22486 CMP.L (A6+0x8),D0> {}
<MI 22488 BNE 0x2248c> {}
<POP 2248a-2248c Naked> Σ0 →0x224d8
<MI 2248a BRA 0x224d8> {}
<POP 2248c-22494 Naked> Σ0 ↓ ←0x22482
<MI 2248c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2248e 0x223a0> {[4, '(A6-0x6)']}
<POP 22492-22494 StackAdj> Δ+4 {}
<POP 22494-224c8 Naked> Σ0 ↓ →0x224d8 ←0x22466
<Pointer.fp 0x22494 <LVAR -0x006 @ 4(rw)>> Δ-4 {[@@-6]}
<Const 0x22496 0x2a.4> Δ-4 {[@@-6]|[##42]}
<Call 0x2249a 0x1029c> {[@@-6]|[##42]}
Malloc1(length : Long) : Pointer
<POP 224a0-224a2 StackAdj> Δ+8 {}
<MI 224a2 MOVEA.L (A6-0x6),A0> {}
<MI 224a4 MOVE.L 0x2610e,(A0+0x26)> {}
<MI 224ac MOVE.L (A6-0x6),0x2610e> {}
<MI 224b2 MOVEA.L A0,A1> {}
<MI 224b4 LEA.L (A6-0x24),A2> {}
<BlockMove 30,A2,A1> {}
<MI 224c0 MOVE.L (A6+0x8),(A0+0x1e)> {}
<MI 224c4 TST.L (A6+0x8)> {}
<MI 224c6 BEQ 0x224d8> {}
<POP 224c8-224d8 Naked> Σ0 ↓
<POP 224c8-224ca StackAdj> Δ-4 {[-4-]}
<MI 224ca MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x224cc 0x102a0> {[-4-]|[4, '(A6+0x8)']}
Malloc2(VAR dst : Pointer; length : Word)
<POP 224d2-224d4 StackAdj> Δ+4 {[-4-]}
<MI 224d4 MOVE.L (A7)+,(A0+0x22)> Δ+4 {}
<POP 224d8-224dc Naked> Σ0 ↓ ←0x2248a ←0x22494
<MI 224d8 MOVE.L (A6-0x6),(A6+0x10)> {}
<POP 224dc-224e4 Epilogue> Σ0
@ 224e4
<LVAR 0x00c @>
<LVAR 0x008 @ 4(r)>
<LVAR -0x008 4(rw)>
<POP 224e4-2256e Body>
<POP 224e4-224fa Prologue> Σ0 ↓
<POP 224fa-224fe RegCacheLoad> Σ0 ↓
<POP 224fe-2251c Naked> Σ0 ↓ →0x2255c
<MI 224fe MOVEA.L (A6+0x8),A0> {}
<MI 22500 MOVE.W (A0),D0> {}
<MI 22502 EXTW.L D0> {}
<MI 22504 MOVE.L D0,D6> {}
<POP 22506-22508 StackAdj> Δ-4 {[-4-]}
<Pointer.fp 0x22508 <LVAR 0x00c @>> Δ-4 {[-4-]|[@@12]}
<MI 2250c MOVE.L D6,-(A7)> Δ-4 {[-4-]|[@@12]|[4, 'D6']}
<Call 0x2250e 0x22426> {[-4-]|[@@12]|[4, 'D6']}
<POP 22512-22514 StackAdj> Δ+8 {[-4-]}
<MI 22514 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 22518 TST.L D6> {}
<MI 2251a BEQ 0x2255c> {}
<POP 2251c-2252a Naked> Σ0 Δ-8 ↓
<MI 2251c MOVEA.L (A6-0x8),A0> {}
<MI 22520 MOVEA.L (A0+0x22),A0> {}
<MI 22524 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22526 MOVE.L D6,-(A7)> Δ-4 {[4, 'A0']|[4, 'D6']}
<MI 22528 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D6']}
<POP 2252a-2252e Naked> Σ-8 ↓ →0x2255a ←0x2252e
<MI 2252a CMP.L (A7),D7> {[-8-]}
<MI 2252c BGT 0x2255a> {[-8-]}
<POP 2252e-2255a Naked> Σ-8 ↓ →0x2252a
<MI 2252e MOVE.L D7,D0> {[-8-]}
<MI 22530 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x22532 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 2253c MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 22540 MOVEA.L (A6+0x8),A1> {[-8-]}
<MI 22542 MOVE.L D7,D1> {[-8-]}
<MI 22544 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x22546 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 22550 MOVE.B (A1+D1.L+#0x2),(A0+D0.L)> {[-8-]}
<MI 22556 ADDQ.L #0x1,D7> {[-8-]}
<MI 22558 BVC 0x2252a> {[-8-]}
<POP 2255a-2255c Naked> Σ-8 Δ+8 ↓ ←0x2252a
<POP 2255a-2255c StackAdj> Δ+8 {}
<POP 2255c-22566 Naked> Σ0 ↓ ←0x224fe
<Pointer.fp 0x2255c <LVAR 0x008 @ 4(r)>> Δ-4 {[@@8]}
<Call 0x2255e 0x102bc> {[@@8]}
FreeString(VAR a : String)
<POP 22564-22566 StackAdj> Δ+4 {}
<POP 22566-2256e Epilogue> Σ0
@ 2256e
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(w)>
<LVAR -0x008 4(rw)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x01c 4(rw)>
<LVAR -0x020 4(rw)>
<POP 2256e-226da Body>
<POP 2256e-22584 Prologue> Σ0 ↓
<POP 22584-22592 RegCacheLoad> Σ0 ↓
<POP 22592-225a4 Naked> Σ0 ↓ →0x225d2
<POP 22592-22594 StackAdj> Δ-4 {[-4-]}
<MI 22594 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x22596 0x215ca> {[-4-]|[4, '(A6+0x8)']}
<POP 2259a-2259c StackAdj> Δ+4 {[-4-]}
<MI 2259c MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 2259e MOVE.L (A6-0x10),D0> {}
<MI 225a0 CMP.L #0x01,D0> {}
<MI 225a2 BGE 0x225d2> {}
<POP 225a4-225d2 Naked> Σ0 ↓
<Blob 0x225a4 [26] @> Δ-26 {[«26""»]}
<POP 225b6-225b8 StackAdj> Δ-4 {[«26""»]|[-4-]}
<Lit 0x225b8 25> {[«26""»]|[$$Too few arguments for SET]}
<Call 0x225ca 0x211be> {[«26""»]|[$$Too few arguments for SET]}
<POP 225ce-225d2 StackAdj> Δ+30 {}
<POP 225d2-225d8 Naked> Σ0 Δ-4 ↓ ←0x22592
<MI 225d2 CLR.L (A6-0xc)> {}
<MI 225d4 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 225d6 MOVEQ.L #0x02,D6> {[4, 'D0']}
<POP 225d8-225dc Naked> Σ-4 ↓ →0x225fa ←0x225dc
<MI 225d8 CMP.L (A7),D6> {[-4-]}
<MI 225da BGT 0x225fa> {[-4-]}
<POP 225dc-225fa Naked> Σ-4 ↓ →0x225d8
<POP 225dc-225e0 StackAdj> Δ-12 {[-16-]}
<MI 225e0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 225e2 MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x225e4 0x21e08> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 225e8-225ea StackAdj> Δ+8 {[-16-]}
<Call 0x225ea 0x21dd0> {[-16-]}
<POP 225ee-225f0 StackAdj> Δ+8 {[-8-]}
<MI 225f0 MOVE.L (A6-0xc),D0> {[-8-]}
<MI 225f2 ADD.L (A7)+,D0> Δ+4 {[-4-]}
<MI 225f4 MOVE.L D0,(A6-0xc)> {[-4-]}
<MI 225f6 ADDQ.L #0x1,D6> {[-4-]}
<MI 225f8 BVC 0x225d8> {[-4-]}
<POP 225fa-2262a Naked> Σ-4 Δ+4 ↓ →0x226d2 ←0x225d8
<POP 225fa-225fc StackAdj> Δ+4 {}
<MI 225fc MOVE.L (A6-0x10),D0> {}
<MI 225fe SUBQ.L #0x2,D0> {}
<MI 22600 ADD.L D0,(A6-0xc)> {}
<POP 22602-22604 StackAdj> Δ-4 {[-4-]}
<MI 22604 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22606 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2260a 0x21ee6> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2260e-22610 StackAdj> Δ+8 {[-4-]}
<MI 22610 MOVE.L (A7),(A6-0x4)> {[-4-]}
<Pointer.fp 0x22614 <LVAR -0x004 @ 4(w)>> Δ-4 {[-4-]|[@@-4]}
<MI 22618 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<Call 0x2261a 0x22426> {[-4-]|[@@-4]|[4, '(A6-0xc)']}
<POP 2261e-22620 StackAdj> Δ+8 {[-4-]}
<MI 22620 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 22624 TST.L (A6-0xc)> {}
<MI 22626 BLE 0x226d2> {}
<POP 2262a-2263a Naked> Σ0 Δ-8 ↓
<MI 2262a MOVEA.L (A6-0x8),A0> {}
<MI 2262e MOVEA.L (A0+0x22),A0> {}
<MI 22632 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22634 MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 22636 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x10)']}
<MI 22638 MOVEQ.L #0x02,D6> {[4, 'A0']|[4, '(A6-0x10)']}
<POP 2263a-22640 Naked> Σ-8 ↓ →0x226d0 ←0x226ca
<MI 2263a CMP.L (A7),D6> {[-8-]}
<MI 2263c BGT 0x226d0> {[-8-]}
<POP 22640-22660 Naked> Σ-8 Δ-4 ↓ →0x22674
<POP 22640-22642 StackAdj> Δ-8 {[-16-]}
<MI 22642 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 22644 MOVE.L D6,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x22646 0x21e08> {[-16-]|[4, '(A6+0x8)']|[4, 'D6']}
<POP 2264a-2264c StackAdj> Δ+8 {[-16-]}
<MI 2264c MOVE.L (A7)+,(A6-0x20)> Δ+4 {[-12-]}
<MI 22650 MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-8-]}
<MI 22654 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x1c)']}
<MI 22658 MOVE.L (A6-0x20),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 2265c CMP.L (A7),D5> {[-8-]|[4, '(A6-0x1c)']}
<MI 2265e BGT 0x22674> {[-8-]|[4, '(A6-0x1c)']}
<POP 22660-22674 Naked> Σ-12 ↓
<MI 22660 MOVE.L (A7),D0> {[-12-]}
<POP 0x22662 LimitCheck -0x7fffffff ≤ D5> {[-12-]}
<MI 22662 CMPI.L #0x80000001,D5>
<MI 22668 BLT 0x22672>
<POP 0x2266a LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 2266a CMPI.L #0x7fffffff,D0>
<MI 22670 BLE 0x22674>
<MI 22672 TRAP #15>
<POP 22674-22678 Naked> Σ-12 ↓ →0x226aa ←0x22640 ←0x22678
<MI 22674 CMP.L (A7),D5> {[-12-]}
<MI 22676 BGT 0x226aa> {[-12-]}
<POP 22678-226aa Naked> Σ-12 ↓ →0x22674
<MI 22678 MOVE.L D7,D0> {[-12-]}
<MI 2267a SUBQ.L #0x1,D0> {[-12-]}
<POP 0x2267c LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-12-]}
<MI 22686 MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 2268a MOVE.L D5,D1> {[-12-]}
<MI 2268c SUBQ.L #0x1,D1> {[-12-]}
<POP 0x2268e LimitCheck 0x0 ≤ D1 ≤ 0xfff> {[-12-]}
<MI 22698 LEA.L 0x250dc,A1> {[-12-]}
<MI 2269e MOVE.B (A1+D1.L+#0x8),(A0+D0.L)> {[-12-]}
<MI 226a4 ADDQ.L #0x1,D7> {[-12-]}
<MI 226a6 ADDQ.L #0x1,D5> {[-12-]}
<MI 226a8 BVC 0x22674> {[-12-]}
<POP 226aa-226b0 Naked> Σ-12 Δ+4 ↓ →0x226ca ←0x22674
<POP 226aa-226ac StackAdj> Δ+4 {[-8-]}
<MI 226ac CMP.L (A6-0x10),D6> {[-8-]}
<MI 226ae BEQ 0x226ca> {[-8-]}
<POP 226b0-226ca Naked> Σ-8 ↓
<MI 226b0 MOVE.L D7,D0> {[-8-]}
<MI 226b2 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x226b4 LimitCheck 0x0 ≤ D0 ≤ 0x3ff> {[-8-]}
<MI 226be MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 226c2 MOVE.B #0x2c,(A0+D0.L)> {[-8-]}
<MI 226c8 ADDQ.L #0x1,D7> {[-8-]}
<POP 226ca-226d0 Naked> Σ-8 ↓ →0x2263a ←0x226aa
<MI 226ca ADDQ.L #0x1,D6> {[-8-]}
<MI 226cc BVC 0x2263a> {[-8-]}
<POP 226d0-226d2 Naked> Σ-8 Δ+8 ↓ ←0x2263a
<POP 226d0-226d2 StackAdj> Δ+8 {}
<POP 226d2-226da Epilogue> Σ0 ←0x225fa
@ 226da
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<POP 226da-227c8 Body>
<POP 226da-226f0 Prologue> Σ0 ↓
<POP 226f0-226f8 RegCacheLoad> Σ0 ↓
<POP 226f8-2272a Naked> Σ0 ↓ →0x2276c
<POP 226f8-226fa StackAdj> Δ-4 {[-4-]}
<MI 226fa MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x226fe 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22702 0x21ee6> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22706-22708 StackAdj> Δ+8 {[-4-]}
<MI 22708 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 2270a-2270e StackAdj> Δ-34 {[-34-]}
<MI 2270e MOVE.L A4,-(A7)> Δ-4 {[-34-]|[4, 'A4']}
<Call 0x22710 0x222ca> {[-34-]|[4, 'A4']}
<POP 22714-22716 StackAdj> Δ+4 {[-34-]}
<Call 0x22716 0x2234c> {[-34-]}
<POP 2271a-2271e StackAdj> Δ+30 {[-4-]}
<MI 2271e MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 22722 MOVEA.L (A6-0xc),A0> {}
<MI 22726 CMPA.W #0x01,A0> {}
<MI 22728 BNE 0x2276c> {}
<POP 2272a-2276c Naked> Σ0 ↓
<Blob 0x2272a [20] @> Δ-20 {[«20""»]}
<POP 2273c-2273e StackAdj> Δ-8 {[«20""»]|[-8-]}
<Lit 0x2273e 19> {[«20""»]|[-4-]|[$$Unknown variable :_]}
<MI 2274e MOVE.L (A6+0x8),(A7)> {[«20""»]|[-4-]|[4, '(A6+0x8)']}
<POP 22748-2274e StackAdj> Δ-8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]}
<Const 0x22752 0x1.4> Δ-4 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<Call 0x22756 0x21ee6> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-8-]|[##1]}
<POP 2275a-2275c StackAdj> Δ+8 {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
<Call 0x2275c 0x102d0> {[«20""»]|[-4-]|[4, '(A6+0x8)']|[-4-]}
StringCat2(a, b : String) : String
<POP 22762-22764 StackAdj> Δ+8 {[«20""»]|[-4-]}
<Call 0x22764 0x211be> {[«20""»]|[-4-]}
<POP 22768-2276c StackAdj> Δ+24 {}
<POP 2276c-22782 Naked> Σ0 Δ-8 ↓ ←0x226f8
<MI 2276c MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<Blob 0x2276e [4] 0x260e4> Δ-4 {[4, 'A0']|[«4»]}
<MI 22770 MOVE.L (A0+0x1e),-(A7)> Δ-4 {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<MI 22774 NEG.L (A7)> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<Call 0x22776 0x21712> {[4, 'A0']|[«4»]|[4, '(A0+0x1e)']}
<POP 2277a-2277c StackAdj> Δ+4 {[4, 'A0']|[«4»]}
<MI 2277c MOVE.L (A0+0x1e),(A7)> {[4, 'A0']|[4, '(A0+0x1e)']}
<MI 22780 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, '(A0+0x1e)']}
<POP 22782-22786 Naked> Σ-8 ↓ →0x227be ←0x22786
<MI 22782 CMP.L (A7),D7> {[-8-]}
<MI 22784 BGT 0x227be> {[-8-]}
<POP 22786-227be Naked> Σ-8 ↓ →0x22782
<MI 22786 MOVE.L D7,D0> {[-8-]}
<MI 22788 ADD.L 0x260e4,D0> {[-8-]}
<MI 2278a SUBQ.L #0x1,D0> {[-8-]}
<MI 2278c SUBQ.L #0x1,D0> {[-8-]}
<POP 0x2278e LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-8-]}
<MI 22798 LEA.L 0x250dc,A0> {[-8-]}
<MI 2279e MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 227a2 MOVEA.L (A1+0x22),A1> {[-8-]}
<MI 227a6 MOVE.L D7,D1> {[-8-]}
<MI 227a8 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x227aa LimitCheck 0x0 ≤ D1 ≤ 0x3ff> {[-8-]}
<MI 227b4 MOVE.B (A1+D1.L),(A0+D0.L+#0x8)> {[-8-]}
<MI 227ba ADDQ.L #0x1,D7> {[-8-]}
<MI 227bc BVC 0x22782> {[-8-]}
<POP 227be-227c0 Naked> Σ-8 Δ+8 ↓ ←0x22782
<POP 227be-227c0 StackAdj> Δ+8 {}
<POP 227c0-227c8 Epilogue> Σ0
@ 227c8
<LVAR -0x004 4(rw)>
<POP 227c8-2282a Body>
<POP 227c8-227de Prologue> Σ0 ↓
<POP 227de-227e6 RegCacheLoad> Σ0 ↓
<POP 227e6-227ec Naked> Σ0 ↓
<MI 227e6 MOVE.L 0x2610e,(A6-0x4)> {}
<POP 227ec-227f2 Naked> Σ0 ↓ →0x22822 ←0x227f2
<MI 227ec MOVEA.L (A6-0x4),A0> {}
<MI 227ee CMPA.W #0x01,A0> {}
<MI 227f0 BEQ 0x22822> {}
<POP 227f2-22822 Naked> Σ0 →0x227ec
<POP 227f2-227f4 StackAdj> Δ-30 {[-30-]}
<MI 227f4 MOVEA.L A7,A1> {[-30-]}
<MI 227f6 MOVEA.L A0,A2> {[-30-]}
<BlockMove 30,A2,A1> {[-30-]}
<POP 22800-22802 StackAdj> Δ-4 {[-34-]}
<Lit 0x22802> {[-30-]|[$$…]}
<Pointer.sp 0x22802 4> Δ-4
<Const 0x22806 0x1.2> Δ-2
<Const 0x22808 0x1e.2> Δ-2
<Call 0x2280a 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 22810-22812 StackAdj> Δ+8
<Call 0x22812 0x103e0> {[-30-]|[$$…]}
WriteConsoleStringCrLf(str : String)
<POP 22818-2281c StackAdj> Δ+34 {}
<MI 2281c MOVE.L (A0+0x26),(A6-0x4)> {}
<MI 22820 BRA 0x227ec> {}
<POP 22822-2282a Epilogue> Σ0 ←0x227ec
@ 2282a
<LVAR 0x008 4(r)>
<POP 2282a-22866 Body>
<POP 2282a-2283c Prologue> Σ0 ↓
<POP 2283c-22862 Naked> Σ0 ↓
<POP 2283c-22840 StackAdj> Δ-38 {[-38-]}
<MI 22840 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-38-]|[4, '(A6+0x8)']}
<Const 0x22844 0x1.4> Δ-4 {[-38-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22848 0x21ee6> {[-38-]|[4, '(A6+0x8)']|[##1]}
<POP 2284c-2284e StackAdj> Δ+8 {[-38-]}
<Call 0x2284e 0x222ca> {[-38-]}
<POP 22852-22854 StackAdj> Δ+4 {[-34-]}
<Call 0x22854 0x2234c> {[-34-]}
<POP 22858-2285c StackAdj> Δ+30 {[-4-]}
<Call 0x2285c 0x223a0> {[-4-]}
<POP 22860-22862 StackAdj> Δ+4 {}
<POP 22862-22866 Epilogue> Σ0
@ 22866
<POP 22866-22894 Body>
<POP 22866-22878 Prologue> Σ0 ↓
<POP 22878-22890 Naked> Σ0 ↓
<POP 22878-2287a StackAdj> Δ-8 {[-8-]}
<Call 0x2287a 0x103cc> {[-8-]}
GetPushLevel() : Long
<Call 0x22880 0x102e4> {[-8-]}
Long2String(a : Long) : String
<POP 22886-22888 StackAdj> Δ+4 {[-4-]}
<Call 0x22888 0x103e0> {[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2288e-22890 StackAdj> Δ+4 {}
<POP 22890-22894 Epilogue> Σ0
@ 22894
<LVAR 0x008 4(r)>
<LVAR -0x004 1(rw)>
<LVAR -0x008 @ 4(rw)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(r)>
<LVAR -0x012 @ 1(r)>
<LVAR -0x013 @ 1(r)>
<LVAR -0x014 @ 1(r)>
<LVAR -0x024 4(rw)>
<LVAR -0x028 4(rw)>
<LVAR -0x02c 4(rw)>
<LVAR -0x030 @ 4(r)>
<LVAR -0x032 1(w)>
<LVAR -0x036 @ 4(r)>
<LVAR -0x038 @ 1(r)>
<LVAR -0x03c @ 4(rw)>
<POP 22894-22bbc Body>
<POP 22894-228aa Prologue> Σ0 ↓
<POP 228aa-228c2 RegCacheLoad> Σ0 ↓
<POP 228c2-228d2 Naked> Σ0 ↓ →0x228fa
<POP 228c2-228c4 StackAdj> Δ-4 {[-4-]}
<MI 228c4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x228c6 0x215ca> {[-4-]|[4, '(A6+0x8)']}
<POP 228ca-228cc StackAdj> Δ+4 {[-4-]}
<MI 228cc MOVE.L (A7)+,(A6-0x2c)> Δ+4 {}
<MI 228d0 BNE 0x228fa> {}
<POP 228d2-228fa Naked> Σ0 →0x2290a
<POP 228d2-228d4 StackAdj> Δ-4 {[-4-]}
<POP 228d4-228d5 StackAdj> Δ+2 {[-2-]}
<Blob 0x228d5 [2] @> Δ-2 {[-2-]|[«2""»]}
<MI 228d8 MOVE.B 0x20de3,(A7+0x1)> {[-2-]|[«2""»]}
<MI 228de MOVE.B 0x20de4,(A7+0x2)> {[-2-]|[«2""»]}
<POP 228e4-228e6 StackAdj> Δ-4 {[-2-]|[«2""»]|[-4-]}
<Lit 0x228e6> {[-2-]|[«2""»]|[$$…]}
<Pointer.sp 0x228e6 4> Δ-4
<Const 0x228ea 0x1.2> Δ-2
<Const 0x228ec 0x3.2> Δ-2
<Call 0x228f0 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 228f2-228f4 StackAdj> Δ+8
<MI 228f4 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[-2-]|[«2""»]}
<POP 228f6-228f8 StackAdj> Δ+4 {}
<MI 228f8 BRA 0x2290a> {}
<POP 228fa-2290a Naked> Σ0 ↓ ←0x228c2
<POP 228fa-228fc StackAdj> Δ-4 {[-4-]}
<MI 228fc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x228fe 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22902 0x21ee6> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22906-22908 StackAdj> Δ+8 {[-4-]}
<MI 22908 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {}
<POP 2290a-2295a Naked> Σ0 ↓ →0x22968 ←0x228d2
<Blob 0x2290a [6] @> Δ-6 {[«6""»]}
<POP 2291a-2291c StackAdj> Δ-4 {[«6""»]|[-4-]}
<MI 2291c MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 2291e-22920 StackAdj> Δ-4 {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x22920 5> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
<Call 0x2292e 0x102d0> {[«6""»]|[-4-]|[4, '(A6-0x3c)']|[$$.M200]}
StringCat2(a, b : String) : String
<POP 22934-22936 StackAdj> Δ+8 {[«6""»]|[-4-]}
<MI 22936 MOVE.L (A7)+,(A6-0x3c)> Δ+4 {[«6""»]}
<POP 22938-2293a StackAdj> Δ+2 {[-4-]}
<MI 2293a MOVE.L (A6-0x3c),(A7)> {[4, '(A6-0x3c)']}
<MI 2293c CLR.B -(A7)> Δ-2 {[4, '(A6-0x3c)']|[#0]}
<Const 0x2293e 0x1.2> Δ-2 {[4, '(A6-0x3c)']|[#0]|[#1]}
<Const 0x22940 0x0.4> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x22944 <LVAR -0x038 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]}
<Pointer.fp 0x22948 <LVAR -0x036 @ 4(r)>> Δ-4 {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
<Call 0x2294c 0x10380> {[4, '(A6-0x3c)']|[#0]|[#1]|[##0]|[@@-56]|[@@-54]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 22952-22954 StackAdj> Δ+20 {}
<MI 22954 TST.B (A6-0x38)> {}
<MI 22958 BEQ 0x22968> {}
<POP 2295a-22968 Naked> Σ0 →0x22bb4
<Pointer.fp 0x2295a <LVAR -0x03c @ 4(rw)>> Δ-4 {[@@-60]}
<Call 0x2295c 0x102bc> {[@@-60]}
FreeString(VAR a : String)
<POP 22962-22964 StackAdj> Δ+4 {}
<MI 22964 BRA 0x22bb4> {}
<POP 22968-229ae Naked> Σ0 ↓ →0x229e4 ←0x2290a
<MI 22968 MOVEA.L (A6-0x36),A0> {}
<MI 2296c MOVE.B (A0+0x3f),D0> {}
<MI 22970 LSL.B #0x6,D0> {}
<MI 22972 LSR.B #0x7,D0> {}
<MI 22974 MOVE.B D0,(A6-0x32)> {}
<MI 22978 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x2297a 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x2297c 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x22980 <LVAR -0x038 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]}
<Pointer.fp 0x22984 <LVAR -0x036 @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
<Call 0x22988 0x1038c> {[#0]|[#1]|[##1]|[@@-56]|[@@-54]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 2298e-22992 StackAdj> Δ+16 {}
<MI 22992 MOVEA.L (A6-0x3c),A0> {}
<MI 22994 MOVE.W (A0),D1> {}
<MI 22996 EXTW.L D1> {}
<MI 22998 SUBQ.L #0x5,D1> {}
<POP 0x2299a LimitCheck -0x8000 ≤ D1 ≤ 0x7fff> {}
<MI 229a8 MOVE.W D1,(A0)> {}
<MI 229aa TST.B D0> {}
<MI 229ac BNE 0x229e4> {}
<POP 229ae-229e4 Naked> Σ0 →0x22bb4
<Blob 0x229ae [18] @> Δ-18 {[«18""»]}
<POP 229ba-229bc StackAdj> Δ-4 {[«18""»]|[-4-]}
<MI 229bc MOVE.L (A6-0x3c),-(A7)> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']}
<POP 229be-229c0 StackAdj> Δ-4 {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[-4-]}
<Lit 0x229c0 18> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
<Call 0x229ce 0x102d0> {[«18""»]|[-4-]|[4, '(A6-0x3c)']|[$$ is not a program.]}
StringCat2(a, b : String) : String
<POP 229d4-229d6 StackAdj> Δ+8 {[«18""»]|[-4-]}
<Call 0x229d6 0x103e0> {[«18""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 229dc-229e0 StackAdj> Δ+22 {}
<MI 229e0 BRA 0x22bb4> {}
<POP 229e4-229fe Naked> Σ0 Δ-8 ↓ ←0x22968
<Pointer.fp 0x229e4 <LVAR -0x030 @ 4(r)>> Δ-4 {[@@-48]}
<Call 0x229e8 0x102b8> {[@@-48]}
NewString(VAR a : String)
<POP 229ee-229f0 StackAdj> Δ+4 {}
<MI 229f0 MOVEA.L (A6-0x30),A0> {}
<MI 229f4 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 229f6 MOVEQ.L #0x01,D7> {[4, 'A0']}
<MI 229f8 MOVE.L (A6-0x2c),-(A7)> Δ-4 {[4, 'A0']|[4, '(A6-0x2c)']}
<MI 229fc MOVEQ.L #0x02,D5> {[4, 'A0']|[4, '(A6-0x2c)']}
<POP 229fe-22a04 Naked> Σ-8 ↓ →0x22a96 ←0x22a90
<MI 229fe CMP.L (A7),D5> {[-8-]}
<MI 22a00 BGT 0x22a96> {[-8-]}
<POP 22a04-22a24 Naked> Σ-8 Δ-4 ↓ →0x22a38
<POP 22a04-22a06 StackAdj> Δ-8 {[-16-]}
<MI 22a06 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<MI 22a08 MOVE.L D5,-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x22a0a 0x21e08> {[-16-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 22a0e-22a10 StackAdj> Δ+8 {[-16-]}
<MI 22a10 MOVE.L (A7)+,(A6-0x28)> Δ+4 {[-12-]}
<MI 22a14 MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-8-]}
<MI 22a18 MOVE.L (A6-0x24),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x24)']}
<MI 22a1c MOVE.L (A6-0x28),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 22a20 CMP.L (A7),D6> {[-8-]|[4, '(A6-0x24)']}
<MI 22a22 BGT 0x22a38> {[-8-]|[4, '(A6-0x24)']}
<POP 22a24-22a38 Naked> Σ-12 ↓
<MI 22a24 MOVE.L (A7),D0> {[-12-]}
<POP 0x22a26 LimitCheck -0x7fffffff ≤ D6> {[-12-]}
<MI 22a26 CMPI.L #0x80000001,D6>
<MI 22a2c BLT 0x22a36>
<POP 0x22a2e LimitCheck D0 ≤ 0x7fffffff> {[-12-]}
<MI 22a2e CMPI.L #0x7fffffff,D0>
<MI 22a34 BLE 0x22a38>
<MI 22a36 TRAP #15>
<POP 22a38-22a3c Naked> Σ-12 ↓ →0x22a6e ←0x22a04 ←0x22a3c
<MI 22a38 CMP.L (A7),D6> {[-12-]}
<MI 22a3a BGT 0x22a6e> {[-12-]}
<POP 22a3c-22a6e Naked> Σ-12 ↓ →0x22a38
<MI 22a3c MOVE.L D7,D0> {[-12-]}
<MI 22a3e SUBQ.L #0x1,D0> {[-12-]}
<POP 0x22a40 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 22a4a MOVEA.L (A7+0x8),A0> {[-12-]}
<MI 22a4e MOVE.L D6,D1> {[-12-]}
<MI 22a50 SUBQ.L #0x1,D1> {[-12-]}
<POP 0x22a52 LimitCheck 0x0 ≤ D1 ≤ 0xfff> {[-12-]}
<MI 22a5c LEA.L 0x250dc,A1> {[-12-]}
<MI 22a62 MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2)> {[-12-]}
<MI 22a68 ADDQ.L #0x1,D7> {[-12-]}
<MI 22a6a ADDQ.L #0x1,D6> {[-12-]}
<MI 22a6c BVC 0x22a38> {[-12-]}
<POP 22a6e-22a76 Naked> Σ-12 Δ+4 ↓ →0x22a90 ←0x22a38
<POP 22a6e-22a70 StackAdj> Δ+4 {[-8-]}
<MI 22a70 CMP.L (A6-0x2c),D5> {[-8-]}
<MI 22a74 BEQ 0x22a90> {[-8-]}
<POP 22a76-22a90 Naked> Σ-8 ↓
<MI 22a76 MOVE.L D7,D0> {[-8-]}
<MI 22a78 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x22a7a LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 22a84 MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 22a88 MOVE.B #0x2c,(A0+D0.L+#0x2)> {[-8-]}
<MI 22a8e ADDQ.L #0x1,D7> {[-8-]}
<POP 22a90-22a96 Naked> Σ-8 ↓ →0x229fe ←0x22a6e
<MI 22a90 ADDQ.L #0x1,D5> {[-8-]}
<MI 22a92 BVC 0x229fe> {[-8-]}
<POP 22a96-22b46 Naked> Σ-8 Δ+8 ↓ →0x22b4c ←0x229fe
<POP 22a96-22a98 StackAdj> Δ+4 {[-4-]}
<MI 22a98 MOVEA.L (A7),A0> {[-4-]}
<MI 22a9a MOVE.L D7,D0> {[-4-]}
<MI 22a9c SUBQ.L #0x1,D0> {[-4-]}
<POP 0x22a9e LimitCheck -0x8000 ≤ D0 ≤ 0x7fff> {[-4-]}
<MI 22aac MOVE.W D0,(A0)> {[-4-]}
<POP 22aae-22ab0 StackAdj> Δ+2 {[-2-]}
<POP 22ab0-22ab1 StackAdj> Δ+2 {}
<Blob 0x22ab1 [2] @> Δ-2 {[«2""»]}
<Blob 0x22ab4 [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x22ab8 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 22abc-22abe StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x22abe 6> {[«2""»]|[«2""»]|[«2""»]|[$$STATUS]}
<MI 22acc MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 22ad0-22ad2 StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 22ad2 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x22ad4 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 22ad8 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x22adc <LVAR -0x010 @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]}
<Pointer.fp 0x22ae0 <LVAR -0x013 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<Call 0x22ae4 0x2441e> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-16]|[@@-19]}
<POP 22aea-22aec StackAdj> Δ+20 {}
<Pointer.fp 0x22aec <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22af0 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22af6-22af8 StackAdj> Δ+2 {[-2-]}
<POP 22af8-22af9 StackAdj> Δ+2 {}
<Blob 0x22af9 [2] @> Δ-2 {[«2""»]}
<Blob 0x22afc [2] @> Δ-2 {[«2""»]|[«2""»]}
<Blob 0x22b00 [2] @> Δ-2 {[«2""»]|[«2""»]|[«2""»]}
<POP 22b04-22b06 StackAdj> Δ-4 {[«2""»]|[«2""»]|[«2""»]|[-4-]}
<Lit 0x22b06 6> {[«2""»]|[«2""»]|[«2""»]|[$$RESULT]}
<MI 22b14 MOVE.L (A7)+,(A6-0x8)> Δ+4 {[«2""»]|[«2""»]|[«2""»]}
<POP 22b18-22b1a StackAdj> Δ+2 {[«2""»]|[«2""»]}
<MI 22b1a MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Const 0x22b1c 0x0.4> Δ-4 {[4, '(A6+0x8)']|[##0]}
<MI 22b20 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']}
<Pointer.fp 0x22b24 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]}
<Pointer.fp 0x22b28 <LVAR -0x012 @ 1(r)>> Δ-4 {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<Call 0x22b2c 0x2441e> {[4, '(A6+0x8)']|[##0]|[4, '(A6-0x8)']|[@@-12]|[@@-18]}
<POP 22b32-22b34 StackAdj> Δ+20 {}
<Pointer.fp 0x22b34 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22b38 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22b3e-22b40 StackAdj> Δ+4 {}
<MI 22b40 TST.B (A6-0x13)> {}
<MI 22b44 BNE 0x22b4c> {}
<POP 22b46-22b4c Naked> Σ0 ↓ →0x22b52
<MI 22b46 TST.B (A6-0x12)> {}
<MI 22b4a BEQ 0x22b52> {}
<POP 22b4c-22b52 Naked> Σ0 →0x22b56 ←0x22a96
<MI 22b4c CLR.B (A6-0x4)> {}
<MI 22b50 BRA 0x22b56> {}
<POP 22b52-22b56 Naked> Σ0 ↓ ←0x22b46
<MI 22b52 MOVE.B #0x01,(A6-0x4)> {}
<POP 22b56-22b7c Naked> Σ0 ↓ →0x22b9c ←0x22b4c
<MI 22b56 MOVE.L (A6-0x3c),-(A7)> Δ-4 {[4, '(A6-0x3c)']}
<MI 22b58 MOVE.L (A6-0x30),-(A7)> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 22b5c MOVE.B (A6-0x4),D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 22b60 EXTB.W D0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<POP 0x22b62 LimitCheck 0x0 ≤ D0 ≤ 0x2> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']}
<MI 22b66 MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']}
<Pointer.fp 0x22b68 <LVAR -0x014 @ 1(r)>> Δ-4 {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
<Call 0x22b6c 0x103b0> {[4, '(A6-0x3c)']|[4, '(A6-0x30)']|[2, 'D0']|[@@-20]}
PushProgram(a : String; b : String; MOD c : B; VAR d : Bool)
<POP 22b72-22b76 StackAdj> Δ+14 {}
<MI 22b76 TST.B (A6-0x13)> {}
<MI 22b7a BEQ 0x22b9c> {}
<POP 22b7c-22b9c Naked> Σ0 ↓
<MI 22b7c MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<POP 22b80-22b82 StackAdj> Δ-4 {[4, '(A6-0x10)']|[-4-]}
<MI 22b82 MOVE.B (A6-0x14),D0> {[4, '(A6-0x10)']|[-4-]}
<MI 22b86 EXTB.W D0> {[4, '(A6-0x10)']|[-4-]}
<POP 0x22b88 LimitCheck 0x0 ≤ D0 ≤ 0xe> {[4, '(A6-0x10)']|[-4-]}
<MI 22b8c MOVE.B D0,-(A7)> Δ-2 {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
<Call 0x22b8e 0x103c0> {[4, '(A6-0x10)']|[-4-]|[2, 'D0']}
ExpErrMsg(a: Byte) : String
<POP 22b94-22b96 StackAdj> Δ+2 {[4, '(A6-0x10)']|[-4-]}
<Call 0x22b96 0x224e4> {[4, '(A6-0x10)']|[-4-]}
<POP 22b9a-22b9c StackAdj> Δ+8 {}
<POP 22b9c-22ba2 Naked> Σ0 ↓ →0x22bb4 ←0x22b56
<MI 22b9c TST.B (A6-0x12)> {}
<MI 22ba0 BEQ 0x22bb4> {}
<POP 22ba2-22bb4 Naked> Σ0 ↓
<MI 22ba2 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<POP 22ba6-22ba8 StackAdj> Δ-4 {[4, '(A6-0xc)']|[-4-]}
<Call 0x22ba8 0x103c8> {[4, '(A6-0xc)']|[-4-]}
FSCALL_103c8
<Call 0x22bae 0x224e4> {[4, '(A6-0xc)']|[-4-]}
<POP 22bb2-22bb4 StackAdj> Δ+8 {}
<POP 22bb4-22bbc Epilogue> Σ0 ←0x2295a ←0x229ae ←0x22b9c
@ 22bbc
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 22bbc-22c34 Body>
<POP 22bbc-22bd2 Prologue> Σ0 ↓
<POP 22bd2-22bda RegCacheLoad> Σ0 ↓
<POP 22bda-22c0e Naked> Σ0 ↓ →0x22c14
<POP 22bda-22bdc StackAdj> Δ-4 {[-4-]}
<MI 22bdc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22be0 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22be4 0x21ee6> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22be8-22bea StackAdj> Δ+8 {[-4-]}
<MI 22bea MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 22bec MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22bf0 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22bf4 0x21ee6> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 22bf8-22bfa StackAdj> Δ+8 {[-4-]}
<MI 22bfa MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 22bfc-22bfe StackAdj> Δ+2 {[-2-]}
<MI 22bfe MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 22c00 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x22c02 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 22c08-22c0a StackAdj> Δ+8 {[-2-]}
<MI 22c0a TST.B (A7)+> Δ+2 {}
<MI 22c0c BEQ 0x22c14> {}
<POP 22c0e-22c14 Naked> Σ0 →0x22c18
<Call 0x22c0e 0x219a6> {}
<MI 22c12 BRA 0x22c18> {}
<POP 22c14-22c18 Naked> Σ0 ↓ ←0x22bda
<Call 0x22c14 0x219ec> {}
<POP 22c18-22c2c Naked> Σ0 ↓ ←0x22c0e
<Pointer.fp 0x22c18 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x22c1a 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 22c20-22c22 StackAdj> Δ+4 {}
<Pointer.fp 0x22c22 <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22c24 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22c2a-22c2c StackAdj> Δ+4 {}
<POP 22c2c-22c34 Epilogue> Σ0
@ 22c34
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 4(rw)>
<LVAR -0x008 @ 4(rw)>
<POP 22c34-22cac Body>
<POP 22c34-22c4a Prologue> Σ0 ↓
<POP 22c4a-22c52 RegCacheLoad> Σ0 ↓
<POP 22c52-22c86 Naked> Σ0 ↓ →0x22c8c
<POP 22c52-22c54 StackAdj> Δ-4 {[-4-]}
<MI 22c54 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22c58 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22c5c 0x21ee6> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22c60-22c62 StackAdj> Δ+8 {[-4-]}
<MI 22c62 MOVE.L (A7),(A6-0x8)> {[-4-]}
<MI 22c64 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22c68 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22c6c 0x21ee6> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 22c70-22c72 StackAdj> Δ+8 {[-4-]}
<MI 22c72 MOVE.L (A7),(A6-0x4)> {[-4-]}
<POP 22c74-22c76 StackAdj> Δ+2 {[-2-]}
<MI 22c76 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']}
<MI 22c78 MOVE.L (A6-0x4),-(A7)> Δ-4 {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
<Call 0x22c7a 0x102c8> {[-2-]|[4, '(A6-0x8)']|[4, '(A6-0x4)']}
StringEqual(a, b : String) : Byte
<POP 22c80-22c82 StackAdj> Δ+8 {[-2-]}
<MI 22c82 TST.B (A7)+> Δ+2 {}
<MI 22c84 BNE 0x22c8c> {}
<POP 22c86-22c8c Naked> Σ0 →0x22c90
<Call 0x22c86 0x219a6> {}
<MI 22c8a BRA 0x22c90> {}
<POP 22c8c-22c90 Naked> Σ0 ↓ ←0x22c52
<Call 0x22c8c 0x219ec> {}
<POP 22c90-22ca4 Naked> Σ0 ↓ ←0x22c86
<Pointer.fp 0x22c90 <LVAR -0x004 @ 4(rw)>> Δ-4 {[@@-4]}
<Call 0x22c92 0x102bc> {[@@-4]}
FreeString(VAR a : String)
<POP 22c98-22c9a StackAdj> Δ+4 {}
<Pointer.fp 0x22c9a <LVAR -0x008 @ 4(rw)>> Δ-4 {[@@-8]}
<Call 0x22c9c 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 22ca2-22ca4 StackAdj> Δ+4 {}
<POP 22ca4-22cac Epilogue> Σ0
@ 22cac
<LVAR 0x008 4(r)>
<POP 22cac-22cd8 Body>
<POP 22cac-22cbe Prologue> Σ0 ↓
<POP 22cbe-22cd4 Naked> Σ0 ↓
<POP 22cbe-22cc0 StackAdj> Δ-4 {[-4-]}
<MI 22cc0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22cc4 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22cc8 0x21ee6> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22ccc-22cce StackAdj> Δ+8 {[-4-]}
<Call 0x22cce 0x21cde> {[-4-]}
<POP 22cd2-22cd4 StackAdj> Δ+4 {}
<POP 22cd4-22cd8 Epilogue> Σ0
@ 22cd8
<LVAR 0x008 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 22cd8-22dd8 Body>
<POP 22cd8-22cee Prologue> Σ0 ↓
<POP 22cee-22cf8 RegCacheLoad> Σ0 ↓
<POP 22cf8-22d56 Naked> Σ0 ↓ →0x22d86
<POP 22cf8-22cfa StackAdj> Δ-4 {[-4-]}
<MI 22cfa MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22cfc 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22d00 0x21ee6> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22d04-22d06 StackAdj> Δ+8 {[-4-]}
<MI 22d06 MOVE.L (A7),(A6-0x14)> {[-4-]}
<MI 22d08 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22d0a 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22d0e 0x21ee6> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 22d12-22d14 StackAdj> Δ+8 {[-4-]}
<MI 22d14 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 22d16-22d1a StackAdj> Δ-12 {[-12-]}
<MI 22d1a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x22d1c 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x22d20 0x21f18> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 22d24-22d26 StackAdj> Δ+8 {[-12-]}
<Call 0x22d26 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 22d2c-22d2e StackAdj> Δ+8 {[-4-]}
<MI 22d2e MOVE.L (A7),D6> {[-4-]}
<POP 22d30-22d32 StackAdj> Δ-8 {[-12-]}
<MI 22d32 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x22d34 0x4.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##4]}
<Call 0x22d38 0x21f18> {[-12-]|[4, '(A6+0x8)']|[##4]}
<POP 22d3c-22d3e StackAdj> Δ+8 {[-12-]}
<Call 0x22d3e 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 22d44-22d46 StackAdj> Δ+8 {[-4-]}
<MI 22d46 MOVE.L (A7)+,D5> Δ+4 {}
<MI 22d48 MOVE.L D6,D0> {}
<MI 22d4a ADD.L D5,D0> {}
<MI 22d4c SUBQ.L #0x1,D0> {}
<MI 22d4e MOVE.W (A4),D1> {}
<MI 22d50 EXTW.L D1> {}
<MI 22d52 CMP.L D1,D0> {}
<MI 22d54 BLE 0x22d86> {}
<POP 22d56-22d86 Naked> Σ0 ↓
<Blob 0x22d56 [32] @> Δ-32 {[«32""»]}
<POP 22d68-22d6a StackAdj> Δ-4 {[«32""»]|[-4-]}
<Lit 0x22d6a 31> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<Call 0x22d7e 0x211be> {[«32""»]|[$$Offset/Length error in [INSERT]]}
<POP 22d82-22d86 StackAdj> Δ+36 {}
<POP 22d86-22d92 Naked> Σ0 Δ-8 ↓ ←0x22cf8
<MI 22d86 MOVEA.L (A6-0x14),A0> {}
<MI 22d88 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 22d8a MOVE.W (A0),D0> {[4, 'A0']}
<MI 22d8c EXTW.L D0> {[4, 'A0']}
<MI 22d8e MOVE.L D0,-(A7)> Δ-4 {[4, 'A0']|[4, 'D0']}
<MI 22d90 MOVEQ.L #0x01,D7> {[4, 'A0']|[4, 'D0']}
<POP 22d92-22d96 Naked> Σ-8 ↓ →0x22dbc ←0x22d96
<MI 22d92 CMP.L (A7),D7> {[-8-]}
<MI 22d94 BGT 0x22dbc> {[-8-]}
<POP 22d96-22dbc Naked> Σ-8 ↓ →0x22d92
<MI 22d96 MOVE.L D6,D0> {[-8-]}
<MI 22d98 ADD.L D7,D0> {[-8-]}
<MI 22d9a SUBQ.L #0x1,D0> {[-8-]}
<MI 22d9c SUBQ.L #0x1,D0> {[-8-]}
<POP 0x22d9e LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-8-]}
<MI 22da4 MOVE.L D7,D1> {[-8-]}
<MI 22da6 SUBQ.L #0x1,D1> {[-8-]}
<POP 0x22da8 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 22dae MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 22db2 MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2)> {[-8-]}
<MI 22db8 ADDQ.L #0x1,D7> {[-8-]}
<MI 22dba BVC 0x22d92> {[-8-]}
<POP 22dbc-22dd0 Naked> Σ-8 Δ+8 ↓ ←0x22d92
<POP 22dbc-22dbe StackAdj> Δ+4 {[-4-]}
<MI 22dbe MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x22dc0 0x21f88> {[4, 'A4']}
<POP 22dc4-22dc6 StackAdj> Δ+4 {}
<Pointer.fp 0x22dc6 <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x22dc8 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 22dce-22dd0 StackAdj> Δ+4 {}
<POP 22dd0-22dd8 Epilogue> Σ0
@ 22dd8
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 4(r)>
<LVAR -0x014 @ 4(rw)>
<POP 22dd8-22ebe Body>
<POP 22dd8-22dee Prologue> Σ0 ↓
<POP 22dee-22dfc RegCacheLoad> Σ0 ↓
<POP 22dfc-22e54 Naked> Σ0 ↓ →0x22e5a
<POP 22dfc-22dfe StackAdj> Δ-4 {[-4-]}
<MI 22dfe MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x22e00 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22e04 0x21ee6> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 22e08-22e0a StackAdj> Δ+8 {[-4-]}
<MI 22e0a MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<Pointer.fp 0x22e0c <LVAR -0x010 @ 4(r)>> Δ-4 {[@@-16]}
<Call 0x22e0e 0x102b8> {[@@-16]}
NewString(VAR a : String)
<POP 22e14-22e16 StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 22e16 MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x22e18 0x2.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x22e1c 0x21f18> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 22e20-22e22 StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x22e22 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 22e28-22e2a StackAdj> Δ+8 {[@@-16]}
<MI 22e2a MOVE.L (A7),D5> {[@@-16]}
<POP 22e2c-22e2e StackAdj> Δ-8 {[@@-16]|[-8-]}
<MI 22e2e MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']}
<Const 0x22e30 0x3.4> Δ-4 {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<Call 0x22e34 0x21f18> {[@@-16]|[-8-]|[4, '(A6+0x8)']|[##3]}
<POP 22e38-22e3a StackAdj> Δ+8 {[@@-16]|[-8-]}
<Call 0x22e3a 0x10350> {[@@-16]|[-8-]}
Quad2Long(a : Quad) : Long
<POP 22e40-22e42 StackAdj> Δ+8 {[@@-16]}
<MI 22e42 MOVE.L (A7)+,D6> Δ+4 {}
<MI 22e44 MOVEA.L (A6-0x14),A0> {}
<MI 22e46 MOVE.L D5,D0> {}
<MI 22e48 ADD.L D6,D0> {}
<MI 22e4a SUBQ.L #0x1,D0> {}
<MI 22e4c MOVE.W (A0),D1> {}
<MI 22e4e EXTW.L D1> {}
<MI 22e50 CMP.L D1,D0> {}
<MI 22e52 BLE 0x22e5a> {}
<POP 22e54-22e5a Naked> Σ0 ↓
<MI 22e54 ADDQ.L #0x1,D1> {}
<MI 22e56 SUB.L D5,D1> {}
<MI 22e58 MOVE.L D1,D6> {}
<POP 22e5a-22e5e Naked> Σ0 Δ-4 ↓ ←0x22dfc
<MI 22e5a MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 22e5c MOVEQ.L #0x01,D7> {[4, 'D6']}
<POP 22e5e-22e62 Naked> Σ-4 ↓ →0x22e88 ←0x22e62
<MI 22e5e CMP.L (A7),D7> {[-4-]}
<MI 22e60 BGT 0x22e88> {[-4-]}
<POP 22e62-22e88 Naked> Σ-4 ↓ →0x22e5e
<MI 22e62 MOVEA.L (A6-0x10),A0> {[-4-]}
<MI 22e64 MOVE.L D7,D0> {[-4-]}
<MI 22e66 SUBQ.L #0x1,D0> {[-4-]}
<POP 0x22e68 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-4-]}
<MI 22e6e MOVEA.L (A6-0x14),A1> {[-4-]}
<MI 22e70 MOVE.L D7,D1> {[-4-]}
<MI 22e72 ADD.L D5,D1> {[-4-]}
<MI 22e74 SUBQ.L #0x1,D1> {[-4-]}
<MI 22e76 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x22e78 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-4-]}
<MI 22e7e MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2)> {[-4-]}
<MI 22e84 ADDQ.L #0x1,D7> {[-4-]}
<MI 22e86 BVC 0x22e5e> {[-4-]}
<POP 22e88-22eb6 Naked> Σ-4 Δ+4 ↓ ←0x22e5e
<POP 22e88-22e8a StackAdj> Δ+4 {}
<MI 22e8a MOVEA.L (A6-0x10),A0> {}
<POP 0x22e8c LimitCheck -0x8000 ≤ D6 ≤ 0x7fff> {}
<MI 22ea2 MOVE.W D6,(A0)> {}
<MI 22ea4 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x22ea6 0x21f88> {[4, '(A6-0x10)']}
<POP 22eaa-22eac StackAdj> Δ+4 {}
<Pointer.fp 0x22eac <LVAR -0x014 @ 4(rw)>> Δ-4 {[@@-20]}
<Call 0x22eae 0x102bc> {[@@-20]}
FreeString(VAR a : String)
<POP 22eb4-22eb6 StackAdj> Δ+4 {}
<POP 22eb6-22ebe Epilogue> Σ0
@ 22ebe
<LVAR 0x008 4(r)>
<POP 22ebe-22eea Body>
<POP 22ebe-22ed0 Prologue> Σ0 ↓
<POP 22ed0-22ee6 Naked> Σ0 ↓
<POP 22ed0-22ed2 StackAdj> Δ-8 {[-8-]}
<MI 22ed2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x22ed6 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22eda 0x21f18> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 22ede-22ee0 StackAdj> Δ+8 {[-8-]}
<Call 0x22ee0 0x21d52> {[-8-]}
<POP 22ee4-22ee6 StackAdj> Δ+8 {}
<POP 22ee6-22eea Epilogue> Σ0
@ 22eea
<LVAR 0x008 4(r)>
<POP 22eea-22f36 Body>
<POP 22eea-22efc Prologue> Σ0 ↓
<POP 22efc-22f28 Naked> Σ0 ↓ →0x22f2e
<POP 22efc-22f00 StackAdj> Δ-10 {[-10-]}
<MI 22f00 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22f04 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22f08 0x21f18> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22f0c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22f10 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22f14 0x21f18> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22f18-22f1a StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22f1a 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 22f20-22f24 StackAdj> Δ+16 {[-2-]}
<MI 22f24 TST.B (A7)+> Δ+2 {}
<MI 22f26 BEQ 0x22f2e> {}
<POP 22f28-22f2e Naked> Σ0 →0x22f32
<Call 0x22f28 0x219a6> {}
<MI 22f2c BRA 0x22f32> {}
<POP 22f2e-22f32 Naked> Σ0 ↓ ←0x22efc
<Call 0x22f2e 0x219ec> {}
<POP 22f32-22f36 Epilogue> Σ0 ←0x22f28
@ 22f36
<LVAR 0x008 4(r)>
<POP 22f36-22f82 Body>
<POP 22f36-22f48 Prologue> Σ0 ↓
<POP 22f48-22f74 Naked> Σ0 ↓ →0x22f7a
<POP 22f48-22f4c StackAdj> Δ-10 {[-10-]}
<MI 22f4c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22f50 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22f54 0x21f18> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22f58 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22f5c 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22f60 0x21f18> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22f64-22f66 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22f66 0x1032c> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsEqual(a, b : Quad) : Bool
<POP 22f6c-22f70 StackAdj> Δ+16 {[-2-]}
<MI 22f70 TST.B (A7)+> Δ+2 {}
<MI 22f72 BNE 0x22f7a> {}
<POP 22f74-22f7a Naked> Σ0 →0x22f7e
<Call 0x22f74 0x219a6> {}
<MI 22f78 BRA 0x22f7e> {}
<POP 22f7a-22f7e Naked> Σ0 ↓ ←0x22f48
<Call 0x22f7a 0x219ec> {}
<POP 22f7e-22f82 Epilogue> Σ0 ←0x22f74
@ 22f82
<LVAR 0x008 4(r)>
<POP 22f82-22fce Body>
<POP 22f82-22f94 Prologue> Σ0 ↓
<POP 22f94-22fc0 Naked> Σ0 ↓ →0x22fc6
<POP 22f94-22f98 StackAdj> Δ-10 {[-10-]}
<MI 22f98 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22f9c 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22fa0 0x21f18> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22fa4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22fa8 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22fac 0x21f18> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22fb0-22fb2 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22fb2 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 22fb8-22fbc StackAdj> Δ+16 {[-2-]}
<MI 22fbc TST.B (A7)+> Δ+2 {}
<MI 22fbe BEQ 0x22fc6> {}
<POP 22fc0-22fc6 Naked> Σ0 →0x22fca
<Call 0x22fc0 0x219a6> {}
<MI 22fc4 BRA 0x22fca> {}
<POP 22fc6-22fca Naked> Σ0 ↓ ←0x22f94
<Call 0x22fc6 0x219ec> {}
<POP 22fca-22fce Epilogue> Σ0 ←0x22fc0
@ 22fce
<LVAR 0x008 4(r)>
<POP 22fce-2301a Body>
<POP 22fce-22fe0 Prologue> Σ0 ↓
<POP 22fe0-2300c Naked> Σ0 ↓ →0x23012
<POP 22fe0-22fe4 StackAdj> Δ-10 {[-10-]}
<MI 22fe4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x22fe8 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22fec 0x21f18> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 22ff0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x22ff4 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x22ff8 0x21f18> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 22ffc-22ffe StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x22ffe 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 23004-23008 StackAdj> Δ+16 {[-2-]}
<MI 23008 TST.B (A7)+> Δ+2 {}
<MI 2300a BEQ 0x23012> {}
<POP 2300c-23012 Naked> Σ0 →0x23016
<Call 0x2300c 0x219a6> {}
<MI 23010 BRA 0x23016> {}
<POP 23012-23016 Naked> Σ0 ↓ ←0x22fe0
<Call 0x23012 0x219ec> {}
<POP 23016-2301a Epilogue> Σ0 ←0x2300c
@ 2301a
<LVAR 0x008 4(r)>
<POP 2301a-23066 Body>
<POP 2301a-2302c Prologue> Σ0 ↓
<POP 2302c-23058 Naked> Σ0 ↓ →0x2305e
<POP 2302c-23030 StackAdj> Δ-10 {[-10-]}
<MI 23030 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23034 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23038 0x21f18> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 2303c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23040 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23044 0x21f18> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23048-2304a StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2304a 0x10324> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsGreater(a, b : Quad) : Bool
<POP 23050-23054 StackAdj> Δ+16 {[-2-]}
<MI 23054 TST.B (A7)+> Δ+2 {}
<MI 23056 BNE 0x2305e> {}
<POP 23058-2305e Naked> Σ0 →0x23062
<Call 0x23058 0x219a6> {}
<MI 2305c BRA 0x23062> {}
<POP 2305e-23062 Naked> Σ0 ↓ ←0x2302c
<Call 0x2305e 0x219ec> {}
<POP 23062-23066 Epilogue> Σ0 ←0x23058
@ 23066
<LVAR 0x008 4(r)>
<POP 23066-230b2 Body>
<POP 23066-23078 Prologue> Σ0 ↓
<POP 23078-230a4 Naked> Σ0 ↓ →0x230aa
<POP 23078-2307c StackAdj> Δ-10 {[-10-]}
<MI 2307c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']}
<Const 0x23080 0x1.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23084 0x21f18> {[-10-]|[4, '(A6+0x8)']|[##1]}
<MI 23088 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x2308c 0x2.4> Δ-4 {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23090 0x21f18> {[-10-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23094-23096 StackAdj> Δ+8 {[-10-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23096 0x10328> {[-10-]|[4, '(A6+0x8)']|[##1]}
IsSmaller(a, b : Quad) : Bool
<POP 2309c-230a0 StackAdj> Δ+16 {[-2-]}
<MI 230a0 TST.B (A7)+> Δ+2 {}
<MI 230a2 BNE 0x230aa> {}
<POP 230a4-230aa Naked> Σ0 →0x230ae
<Call 0x230a4 0x219a6> {}
<MI 230a8 BRA 0x230ae> {}
<POP 230aa-230ae Naked> Σ0 ↓ ←0x23078
<Call 0x230aa 0x219ec> {}
<POP 230ae-230b2 Epilogue> Σ0 ←0x230a4
@ 230b2
<LVAR 0x008 4(r)>
<POP 230b2-230fc Body>
<POP 230b2-230c8 Prologue> Σ0 ↓
<POP 230c8-230ca RegCacheLoad> Σ0 ↓
<POP 230ca-230f4 Naked> Σ0 ↓
<POP 230ca-230cc StackAdj> Δ-16 {[-16-]}
<MI 230cc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x230d0 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x230d4 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 230d8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x230dc 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x230e0 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 230e4-230e6 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x230e6 0x10314> {[-16-]|[4, '(A6+0x8)']|[##1]}
Add(a, b : Quad) : Quad
<POP 230ec-230ee StackAdj> Δ+16 {[-8-]}
<Call 0x230ee 0x22010> {[-8-]}
<POP 230f2-230f4 StackAdj> Δ+8 {}
<POP 230f4-230fc Epilogue> Σ0
@ 230fc
<LVAR 0x008 4(r)>
<POP 230fc-23146 Body>
<POP 230fc-23112 Prologue> Σ0 ↓
<POP 23112-23114 RegCacheLoad> Σ0 ↓
<POP 23114-2313e Naked> Σ0 ↓
<POP 23114-23116 StackAdj> Δ-16 {[-16-]}
<MI 23116 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x2311a 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2311e 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23122 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23126 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x2312a 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 2312e-23130 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23130 0x10318> {[-16-]|[4, '(A6+0x8)']|[##1]}
Subtract(a, b : Quad) : Quad
<POP 23136-23138 StackAdj> Δ+16 {[-8-]}
<Call 0x23138 0x22010> {[-8-]}
<POP 2313c-2313e StackAdj> Δ+8 {}
<POP 2313e-23146 Epilogue> Σ0
@ 23146
<LVAR 0x008 4(r)>
<POP 23146-23190 Body>
<POP 23146-2315c Prologue> Σ0 ↓
<POP 2315c-2315e RegCacheLoad> Σ0 ↓
<POP 2315e-23188 Naked> Σ0 ↓
<POP 2315e-23160 StackAdj> Δ-16 {[-16-]}
<MI 23160 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23164 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23168 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 2316c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23170 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23174 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23178-2317a StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2317a 0x1031c> {[-16-]|[4, '(A6+0x8)']|[##1]}
Multiply(a, b : Quad) : Quad
<POP 23180-23182 StackAdj> Δ+16 {[-8-]}
<Call 0x23182 0x22010> {[-8-]}
<POP 23186-23188 StackAdj> Δ+8 {}
<POP 23188-23190 Epilogue> Σ0
@ 23190
<LVAR 0x008 4(r)>
<POP 23190-231da Body>
<POP 23190-231a6 Prologue> Σ0 ↓
<POP 231a6-231a8 RegCacheLoad> Σ0 ↓
<POP 231a8-231d2 Naked> Σ0 ↓
<POP 231a8-231aa StackAdj> Δ-16 {[-16-]}
<MI 231aa MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x231ae 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x231b2 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 231b6 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x231ba 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x231be 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 231c2-231c4 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x231c4 0x10320> {[-16-]|[4, '(A6+0x8)']|[##1]}
Divide(a, b : Quad) : Quad
<POP 231ca-231cc StackAdj> Δ+16 {[-8-]}
<Call 0x231cc 0x22010> {[-8-]}
<POP 231d0-231d2 StackAdj> Δ+8 {}
<POP 231d2-231da Epilogue> Σ0
@ 231da
<LVAR 0x008 4(r)>
<POP 231da-23224 Body>
<POP 231da-231f0 Prologue> Σ0 ↓
<POP 231f0-231f2 RegCacheLoad> Σ0 ↓
<POP 231f2-2321c Naked> Σ0 ↓
<POP 231f2-231f4 StackAdj> Δ-16 {[-16-]}
<MI 231f4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x231f8 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x231fc 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23200 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23204 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23208 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 2320c-2320e StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2320e 0x10358> {[-16-]|[4, '(A6+0x8)']|[##1]}
Modulus(a, b : Quad) : Quad
<POP 23214-23216 StackAdj> Δ+16 {[-8-]}
<Call 0x23216 0x22010> {[-8-]}
<POP 2321a-2321c StackAdj> Δ+8 {}
<POP 2321c-23224 Epilogue> Σ0
@ 23224
<LVAR 0x008 4(r)>
<POP 23224-2326e Body>
<POP 23224-2323a Prologue> Σ0 ↓
<POP 2323a-2323c RegCacheLoad> Σ0 ↓
<POP 2323c-23266 Naked> Σ0 ↓
<POP 2323c-2323e StackAdj> Δ-16 {[-16-]}
<MI 2323e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23242 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23246 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 2324a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x2324e 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x23252 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 23256-23258 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23258 0x10334> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitOr(a, b : Quad) : Quad
<POP 2325e-23260 StackAdj> Δ+16 {[-8-]}
<Call 0x23260 0x22010> {[-8-]}
<POP 23264-23266 StackAdj> Δ+8 {}
<POP 23266-2326e Epilogue> Σ0
@ 2326e
<LVAR 0x008 4(r)>
<POP 2326e-232b8 Body>
<POP 2326e-23284 Prologue> Σ0 ↓
<POP 23284-23286 RegCacheLoad> Σ0 ↓
<POP 23286-232b0 Naked> Σ0 ↓
<POP 23286-23288 StackAdj> Δ-16 {[-16-]}
<MI 23288 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x2328c 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23290 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23294 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x23298 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x2329c 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 232a0-232a2 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x232a2 0x10330> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitAnd(a, b : Quad) : Quad
<POP 232a8-232aa StackAdj> Δ+16 {[-8-]}
<Call 0x232aa 0x22010> {[-8-]}
<POP 232ae-232b0 StackAdj> Δ+8 {}
<POP 232b0-232b8 Epilogue> Σ0
@ 232b8
<LVAR 0x008 4(r)>
<POP 232b8-23302 Body>
<POP 232b8-232ce Prologue> Σ0 ↓
<POP 232ce-232d0 RegCacheLoad> Σ0 ↓
<POP 232d0-232fa Naked> Σ0 ↓
<POP 232d0-232d2 StackAdj> Δ-16 {[-16-]}
<MI 232d2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x232d6 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x232da 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 232de MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']}
<Const 0x232e2 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<Call 0x232e6 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]|[4, '(A6+0x8)']|[##2]}
<POP 232ea-232ec StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x232ec 0x10340> {[-16-]|[4, '(A6+0x8)']|[##1]}
BitXor(a, b : Quad) : Quad
<POP 232f2-232f4 StackAdj> Δ+16 {[-8-]}
<Call 0x232f4 0x22010> {[-8-]}
<POP 232f8-232fa StackAdj> Δ+8 {}
<POP 232fa-23302 Epilogue> Σ0
@ 23302
<LVAR 0x008 4(r)>
<POP 23302-23346 Body>
<POP 23302-23314 Prologue> Σ0 ↓
<POP 23314-23342 Naked> Σ0 ↓
<POP 23314-23318 StackAdj> Δ-16 {[-16-]}
<MI 23318 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x2331c 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23320 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23324 MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x23328 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x2332c 0x21f54> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 23330-23332 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<Call 0x23332 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 23338-2333c StackAdj> Δ+12 {[-8-]}
<Call 0x2333c 0x22010> {[-8-]}
<POP 23340-23342 StackAdj> Δ+8 {}
<POP 23342-23346 Epilogue> Σ0
@ 23346
<LVAR 0x008 4(r)>
<POP 23346-2338c Body>
<POP 23346-23358 Prologue> Σ0 ↓
<POP 23358-23388 Naked> Σ0 ↓
<POP 23358-2335c StackAdj> Δ-16 {[-16-]}
<MI 2335c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x23360 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23364 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]}
<MI 23368 MOVE.L (A6+0x8),(A7)> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']}
<Const 0x2336c 0x2.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<Call 0x23370 0x21f54> {[-16-]|[4, '(A6+0x8)']|[4, '(A6+0x8)']|[##2]}
<POP 23374-23376 StackAdj> Δ+8 {[-16-]|[4, '(A6+0x8)']}
<MI 23376 NEG.L (A7)> {[-16-]|[4, '(A6+0x8)']}
<Call 0x23378 0x10344> {[-16-]|[4, '(A6+0x8)']}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 2337e-23382 StackAdj> Δ+12 {[-8-]}
<Call 0x23382 0x22010> {[-8-]}
<POP 23386-23388 StackAdj> Δ+8 {}
<POP 23388-2338c Epilogue> Σ0
@ 2338c
<LVAR 0x008 4(r)>
<POP 2338c-233c2 Body>
<POP 2338c-2339e Prologue> Σ0 ↓
<POP 2339e-233be Naked> Σ0 ↓
<POP 2339e-233a2 StackAdj> Δ-16 {[-16-]}
<MI 233a2 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-16-]|[4, '(A6+0x8)']}
<Const 0x233a6 0x1.4> Δ-4 {[-16-]|[4, '(A6+0x8)']|[##1]}
<Call 0x233aa 0x21f18> {[-16-]|[4, '(A6+0x8)']|[##1]}
<POP 233ae-233b0 StackAdj> Δ+8 {[-16-]}
<Call 0x233b0 0x10338> {[-16-]}
BitNot(a : Quad) : Quad
<POP 233b6-233b8 StackAdj> Δ+8 {[-8-]}
<Call 0x233b8 0x22010> {[-8-]}
<POP 233bc-233be StackAdj> Δ+8 {}
<POP 233be-233c2 Epilogue> Σ0
@ 233c2
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(rw)>
<POP 233c2-23452 Body>
<POP 233c2-233d8 Prologue> Σ0 ↓
<POP 233d8-233dc RegCacheLoad> Σ0 ↓
<POP 233dc-2344a Naked> Σ0 ↓
<POP 233dc-233de StackAdj> Δ-8 {[-8-]}
<MI 233de MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x233e0 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x233e4 0x21f18> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 233e8-233ea StackAdj> Δ+8 {[-8-]}
<MI 233ea MOVE.L (A7)+,(A6-0x18)> Δ+4 {[-4-]}
<MI 233ee MOVE.L (A7),(A6-0x14)> {[-4-]}
<POP 233f2-233f4 StackAdj> Δ-4 {[-8-]}
<MI 233f4 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x233f6 0x2.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##2]}
<Call 0x233fa 0x21f18> {[-8-]|[4, '(A6+0x8)']|[##2]}
<POP 233fe-23400 StackAdj> Δ+8 {[-8-]}
<MI 23400 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 23404 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 23408 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x2340a 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x2340e 0x21f54> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 23412-23414 StackAdj> Δ+8 {[-4-]}
<MI 23414 MOVE.L (A7),D7> {[-4-]}
<MI 23416 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23418 0x4.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##4]}
<Call 0x2341c 0x21f54> {[-4-]|[4, '(A6+0x8)']|[##4]}
<POP 23420-23422 StackAdj> Δ+8 {[-4-]}
<MI 23422 MOVE.L (A7),D6> {[-4-]}
<POP 23424-23426 StackAdj> Δ-4 {[-8-]}
<MI 23426 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']}
<MI 2342a MOVE.L (A6-0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']}
<MI 2342e MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']}
<MI 23432 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 23436 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 23438 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x2343a 0x10348> {[-8-]|[4, '(A6-0x14)']|[4, '(A6-0x18)']|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
?BitField_something_()
<POP 23440-23444 StackAdj> Δ+24 {[-8-]}
<Call 0x23444 0x22010> {[-8-]}
<POP 23448-2344a StackAdj> Δ+8 {}
<POP 2344a-23452 Epilogue> Σ0
@ 23452
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 23452-234c4 Body>
<POP 23452-23468 Prologue> Σ0 ↓
<POP 23468-2346c RegCacheLoad> Σ0 ↓
<POP 2346c-234bc Naked> Σ0 ↓
<POP 2346c-2346e StackAdj> Δ-8 {[-8-]}
<MI 2346e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x23470 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x23474 0x21f18> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 23478-2347a StackAdj> Δ+8 {[-8-]}
<MI 2347a MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 2347e MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 23482 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23484 0x2.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##2]}
<Call 0x23488 0x21f54> {[-4-]|[4, '(A6+0x8)']|[##2]}
<POP 2348c-2348e StackAdj> Δ+8 {[-4-]}
<MI 2348e MOVE.L (A7),D7> {[-4-]}
<MI 23490 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23492 0x3.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##3]}
<Call 0x23496 0x21f54> {[-4-]|[4, '(A6+0x8)']|[##3]}
<POP 2349a-2349c StackAdj> Δ+8 {[-4-]}
<MI 2349c MOVE.L (A7),D6> {[-4-]}
<POP 2349e-234a0 StackAdj> Δ-4 {[-8-]}
<MI 234a0 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 234a4 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 234a8 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']}
<MI 234aa MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
<Call 0x234ac 0x1034c> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D7']|[4, 'D6']}
FSCALL_1034c
<POP 234b2-234b6 StackAdj> Δ+16 {[-8-]}
<Call 0x234b6 0x22010> {[-8-]}
<POP 234ba-234bc StackAdj> Δ+8 {}
<POP 234bc-234c4 Epilogue> Σ0
@ 234c4
<LVAR 0x008 4(r)>
<POP 234c4-23536 Body>
<POP 234c4-234da Prologue> Σ0 ↓
<POP 234da-234e8 Naked> Σ0 Δ-4 ↓
<POP 234da-234dc StackAdj> Δ-4 {[-4-]}
<MI 234dc MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x234e0 0x215ca> {[-4-]|[4, '(A6+0x8)']}
<POP 234e4-234e6 StackAdj> Δ+4 {[-4-]}
<MI 234e6 MOVEQ.L #0x01,D7> {[-4-]}
<POP 234e8-234ec Naked> Σ-4 ↓ →0x23512 ←0x234ec
<MI 234e8 CMP.L (A7),D7> {[-4-]}
<MI 234ea BGT 0x23512> {[-4-]}
<POP 234ec-23512 Naked> Σ-4 ↓ →0x234e8
<POP 234ec-234ee StackAdj> Δ-4 {[-8-]}
<MI 234ee MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 234f2 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x234f4 0x21ee6> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 234f8-234fa StackAdj> Δ+8 {[-8-]}
<Call 0x234fa 0x103d8> {[-8-]}
WriteConsoleString(str : String)
<POP 23500-23502 StackAdj> Δ+2 {[-6-]}
<POP 23502-23503 StackAdj> Δ+2 {[-4-]}
<Const 0x23503 0x20.2> Δ-2 {[-4-]|[#32]}
<Call 0x23506 0x103d0> {[-4-]|[#32]}
WriteConsoleChar(chr : char)
<POP 2350c-2350e StackAdj> Δ+2 {[-4-]}
<MI 2350e ADDQ.L #0x1,D7> {[-4-]}
<MI 23510 BVC 0x234e8> {[-4-]}
<POP 23512-2352e Naked> Σ-4 Δ+4 ↓ ←0x234e8
<Const 0x23512 0x1.4> Δ-4 {[-4-]|[##1]}
<Call 0x23516 0x103e4> {[-4-]|[##1]}
AskConsoleString(prompt : String) : String
<POP 2351c-2351e StackAdj> Δ+4 {[-4-]}
<MI 2351e MOVEA.L (A7)+,A4> Δ+4 {}
<MI 23520 MOVE.L A4,-(A7)> Δ-4 {[4, 'A4']}
<Call 0x23522 0x21416> {[4, 'A4']}
<MI 23526 MOVE.L A4,(A7)> {[4, 'A4']}
<Call 0x23528 0x21f88> {[4, 'A4']}
<POP 2352c-2352e StackAdj> Δ+4 {}
<POP 2352e-23536 Epilogue> Σ0
@ 23536
<LVAR 0x008 4(r)>
<POP 23536-235b8 Body>
<POP 23536-2354c Prologue> Σ0 ↓
<POP 2354c-23552 RegCacheLoad> Σ0 ↓
<POP 23552-235b0 Naked> Σ0 ↓
<POP 23552-23554 StackAdj> Δ-4 {[-4-]}
<MI 23554 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Const 0x23556 0x1.4> Δ-4 {[-4-]|[4, '(A6+0x8)']|[##1]}
<Call 0x2355a 0x21ee6> {[-4-]|[4, '(A6+0x8)']|[##1]}
<POP 2355e-23560 StackAdj> Δ+8 {[-4-]}
<MI 23560 MOVEA.L (A7)+,A4> Δ+4 {}
<POP 23562-23564 StackAdj> Δ-12 {[-12-]}
<MI 23564 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x23566 0x2.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##2]}
<Call 0x2356a 0x21f18> {[-12-]|[4, '(A6+0x8)']|[##2]}
<POP 2356e-23570 StackAdj> Δ+8 {[-12-]}
<Call 0x23570 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 23576-23578 StackAdj> Δ+8 {[-4-]}
<MI 23578 MOVE.L (A7),D7> {[-4-]}
<POP 2357a-2357c StackAdj> Δ-8 {[-12-]}
<MI 2357c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<Const 0x2357e 0x3.4> Δ-4 {[-12-]|[4, '(A6+0x8)']|[##3]}
<Call 0x23582 0x21f18> {[-12-]|[4, '(A6+0x8)']|[##3]}
<POP 23586-23588 StackAdj> Δ+8 {[-12-]}
<Call 0x23588 0x10350> {[-12-]}
Quad2Long(a : Quad) : Long
<POP 2358e-23590 StackAdj> Δ+8 {[-4-]}
<MI 23590 MOVE.L (A7),D6> {[-4-]}
<POP 23592-23594 StackAdj> Δ-8 {[-12-]}
<MI 23594 MOVE.L A4,-(A7)> Δ-4 {[-12-]|[4, 'A4']}
<MI 23596 MOVE.L D7,-(A7)> Δ-4 {[-12-]|[4, 'A4']|[4, 'D7']}
<Call 0x23598 0x10360> {[-12-]|[4, 'A4']|[4, 'D7']}
?StringToInt64()
<POP 2359e-235a0 StackAdj> Δ+4 {[-12-]|[4, 'A4']}
<MI 235a0 MOVE.L D6,(A7)> {[-12-]|[4, 'D6']}
<Call 0x235a2 0x1035c> {[-12-]|[4, 'D6']}
Quad2String(a : Quad; radix : Long ) : String
<POP 235a8-235aa StackAdj> Δ+12 {[-4-]}
<Call 0x235aa 0x21f88> {[-4-]}
<POP 235ae-235b0 StackAdj> Δ+4 {}
<POP 235b0-235b8 Epilogue> Σ0
@ 235b8
<LVAR 0x008 4(r)>
<LVAR -0x00a 2(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<POP 235b8-23638 Body>
<POP 235b8-235ce Prologue> Σ0 ↓
<POP 235ce-235d6 RegCacheLoad> Σ0 ↓
<POP 235d6-235ee Naked> Σ0 ↓
<POP 235d6-235d8 StackAdj> Δ-8 {[-8-]}
<MI 235d8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<Const 0x235dc 0x1.4> Δ-4 {[-8-]|[4, '(A6+0x8)']|[##1]}
<Call 0x235e0 0x21f18> {[-8-]|[4, '(A6+0x8)']|[##1]}
<POP 235e4-235e6 StackAdj> Δ+8 {[-8-]}
<MI 235e6 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 235e8 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 235ea MOVEQ.L #0x00,D7> {}
<MI 235ec MOVEQ.L #0x00,D6> {}
<POP 235ee-2361e Naked> Σ0 ↓ →0x235ee ←0x235ee
<MI 235ee MOVE.W (A6-0xa),D0> {}
<MI 235f2 ANDI.W #0x0001,D0> {}
<MI 235f6 CLR.L D1> {}
<MI 235f8 MOVE.W D0,D1> {}
<MI 235fa ADD.L D1,D7> {}
<POP 235fc-235fe StackAdj> Δ-8 {[-8-]}
<MI 235fe MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 23600 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Const 0x23602 0xffffffff.4> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
<Call 0x23606 0x10344> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[##4294967295]}
BitShift(a : Quad ; howmuch : integer) : Quad
<POP 2360c-23610 StackAdj> Δ+12 {[-8-]}
<MI 23610 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-4-]}
<MI 23612 MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 23614 ADDQ.L #0x1,D6> {}
<MI 23616 CMPI.L #0x0000003f,D6> {}
<MI 2361c BLE 0x235ee> {}
<POP 2361e-23630 Naked> Σ0 ↓
<POP 2361e-23620 StackAdj> Δ-8 {[-8-]}
<MI 23620 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, 'D7']}
<Call 0x23622 0x10354> {[-8-]|[4, 'D7']}
Long2Quad(a : Long) : Quad
<POP 23628-2362a StackAdj> Δ+4 {[-8-]}
<Call 0x2362a 0x22010> {[-8-]}
<POP 2362e-23630 StackAdj> Δ+8 {}
<POP 23630-23638 Epilogue> Σ0
@ 23638
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<POP 23638-236fc Body>
<POP 23638-2364e Prologue> Σ0 ↓
<POP 2364e-23658 RegCacheLoad> Σ0 ↓
<POP 23658-2365c Naked> Σ0 ↓ →0x2368e
<MI 23658 TST.B 0x26116> {}
<MI 2365a BNE 0x2368e> {}
<POP 2365c-2368e Naked> Σ0 ↓
<Blob 0x2365c [28] @> Δ-28 {[«28""»]}
<POP 2366e-23670 StackAdj> Δ-4 {[«28""»]|[-4-]}
<Lit 0x23670 27> {[«28""»]|[$$REPEATing, type ^G to exit.]}
<Call 0x23682 0x103e0> {[«28""»]|[$$REPEATing, type ^G to exit.]}
WriteConsoleStringCrLf(str : String)
<POP 23688-2368c StackAdj> Δ+32 {}
<MI 2368c MOVE.B #0x01,0x26116> {}
<POP 2368e-236b8 Naked> Σ0 ↓ →0x236ce ←0x23658
<POP 2368e-23690 StackAdj> Δ-6 {[-6-]}
<Call 0x23690 0x103f8> {[-6-]}
GetConsoleConfig() : Long
<MI 23696 MOVE.L (A7)+,D0> Δ+4 {[-2-]}
<POP 0x23698 LimitCheck 0x0 ≤ D0 ≤ 0xffff> {[-2-]}
<MI 236a2 MOVE.W D0,(A7)> {[2, 'D0']}
<Pointer.fp 0x236a4 <LVAR -0x004 @ 1(r)>> Δ-4 {[2, 'D0']|[@@-4]}
<Call 0x236a8 0x10212> {[2, 'D0']|[@@-4]}
KC09_PortStatus(Port : Word; VAR b: Byte)
<POP 236ae-236b0 StackAdj> Δ+6 {}
<MI 236b0 MOVE.B (A6-0x4),D0> {}
<MI 236b4 CMP.B #0x01,D0> {}
<MI 236b6 BEQ 0x236ce> {}
<POP 236b8-236ce Naked> Σ0
<MI 236b8 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x236bc 0x2117c> {[4, '(A6+0x8)']}
<POP 236c0-236c2 StackAdj> Δ+4 {}
<POP 236c2-236ce Bailout> {}
<MI 236c2 MOVEA.L (A5+0x8),A7>
<MI 236c6 MOVEA.W #0x00,A6>
<MI 236c8 JMP 0x24a60>
<POP 236ce-236de Naked> Σ0 ↓ →0x236f4 ←0x2368e
<POP 236ce-236d0 StackAdj> Δ-2 {[-2-]}
<Call 0x236d0 0x103d4> {[-2-]}
ReadChar() : Byte
<MI 236d6 MOVE.B (A7)+,D0> Δ+2 {}
<MI 236d8 CMPI.B #0x07,D0> {}
<MI 236dc BEQ 0x236f4> {}
<POP 236de-236f4 Naked> Σ0
<MI 236de MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<Call 0x236e2 0x2117c> {[4, '(A6+0x8)']}
<POP 236e6-236e8 StackAdj> Δ+4 {}
<POP 236e8-236f4 Bailout> {}
<MI 236e8 MOVEA.L (A5+0x8),A7>
<MI 236ec MOVEA.W #0x00,A6>
<MI 236ee JMP 0x24a60>
<POP 236f4-236fc Epilogue> Σ0 ←0x236ce
@ 236fc
<POP 236fc-2371c Body>
<POP 236fc-2370e Prologue> Σ0 ↓
<POP 2370e-23718 Naked> Σ0 ↓
<Const 0x2370e 0xc8.4> Δ-4 {[##200]}
<Call 0x23712 0x22044> {[##200]}
<POP 23716-23718 StackAdj> Δ+4 {}
<POP 23718-2371c Epilogue> Σ0
@ 2371c
<LVAR 0x008 4(r)>
<LVAR -0x00c @ 4(r)>
<POP 2371c-237c8 Body>
<POP 2371c-23732 Prologue> Σ0 ↓
<POP 23732-23736 RegCacheLoad> Σ0 ↓
<POP 23736-2374a Naked> Σ0 Δ-4 ↓
<Pointer.fp 0x23736 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Call 0x23738 0x102b8> {[@@-12]}
NewString(VAR a : String)
<MI 2373e MOVE.L (A6+0x8),-(A7)> Δ-4 {[@@-12]|[4, '(A6+0x8)']}
<Call 0x23742 0x215ca> {[@@-12]|[4, '(A6+0x8)']}
<POP 23746-23748 StackAdj> Δ+4 {[@@-12]}
<MI 23748 MOVEQ.L #0x01,D7> {[@@-12]}
<POP 2374a-2374e Naked> Σ-4 ↓ →0x237b8 ←0x237b4
<MI 2374a CMP.L (A7),D7> {[-4-]}
<MI 2374c BGT 0x237b8> {[-4-]}
<POP 2374e-23760 Naked> Σ-4 ↓ →0x23780
<POP 2374e-23750 StackAdj> Δ-4 {[-8-]}
<MI 23750 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']}
<MI 23754 MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x23756 0x21f54> {[-8-]|[4, '(A6+0x8)']|[4, 'D7']}
<POP 2375a-2375c StackAdj> Δ+8 {[-8-]}
<MI 2375c MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 2375e BLT 0x23780> {[-4-]}
<POP 23760-23768 Naked> Σ-4 ↓ →0x23780
<MI 23760 CMPI.L #0x000000ff,D6> {[-4-]}
<MI 23766 BGT 0x23780> {[-4-]}
<POP 23768-23780 Naked> Σ-4 →0x237b4
<MI 23768 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6-0xc)']}
<POP 0x2376a LimitCheck 0x0 ≤ D6 ≤ 0xff> {[-4-]|[4, '(A6-0xc)']}
<MI 23774 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
<Call 0x23776 0x102c0> {[-4-]|[4, '(A6-0xc)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 2377c-2377e StackAdj> Δ+6 {[-4-]}
<MI 2377e BRA 0x237b4> {[-4-]}
<POP 23780-237b4 Naked> Σ-4 ↓ ←0x2374e ←0x23760
<Pointer.fp 0x23780 <LVAR -0x00c @ 4(r)>> Δ-4 {[-4-]|[@@-12]}
<Call 0x23782 0x102bc> {[-4-]|[@@-12]}
FreeString(VAR a : String)
<POP 23788-2378a StackAdj> Δ+4 {[-4-]}
<Blob 0x2378a [28] @> Δ-28 {[-4-]|[«28""»]}
<POP 23796-23798 StackAdj> Δ-4 {[-4-]|[«28""»]|[-4-]}
<Lit 0x23798 28> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<Call 0x237ac 0x211be> {[-4-]|[«28""»]|[$$ASCII argument out of range.]}
<POP 237b0-237b4 StackAdj> Δ+32 {[-4-]}
<POP 237b4-237b8 Naked> Σ-4 ↓ →0x2374a ←0x23768
<MI 237b4 ADDQ.L #0x1,D7> {[-4-]}
<MI 237b6 BVC 0x2374a> {[-4-]}
<POP 237b8-237c0 Naked> Σ-4 Δ+4 ↓ ←0x2374a
<MI 237b8 MOVE.L (A6-0xc),(A7)> {[4, '(A6-0xc)']}
<Call 0x237ba 0x21f88> {[4, '(A6-0xc)']}
<POP 237be-237c0 StackAdj> Δ+4 {}
<POP 237c0-237c8 Epilogue> Σ0
@ 237c8
<LVAR 0x00c 1(rw)>
<LVAR 0x008 4(r)>
<POP 237c8-23880 Body> Δ-8
<POP 237c8-237de Prologue> Σ0 ↓
<POP 237de-237ee Naked> Σ0 Δ-4 ↓
<MI 237de CLR.B (A6+0xc)> {}
<MI 237e2 MOVEA.L (A6+0x8),A0> {}
<MI 237e6 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 237e8 MOVEQ.L #0x00,D0> {[4, 'A0']}
<MI 237ea ADDQ.W #0x1,D0> {[4, 'A0']}
<MI 237ec MOVE.B D0,D6> {[4, 'A0']}
<POP 237ee-237f6 Naked> Σ-4 ↓ →0x23876 ←0x23870
<MI 237ee CMPI.B #0x2b,D6> {[-4-]}
<MI 237f2 BGT 0x23876> {[-4-]}
<POP 237f6-2381c Naked> Σ-4 ↓ →0x23870
<MI 237f6 LEA.L 0x210aa,A0> {[-4-]}
<MI 237fa MOVE.B D6,D0> {[-4-]}
<MI 237fc EXTB.W D0> {[-4-]}
<MI 237fe EXTW.L D0> {[-4-]}
<MI 23800 ROR.L #0x1,D0> {[-4-]}
<MI 23802 ADDA.W D0,A0> {[-4-]}
<MI 23804 SWAP.W D0> {[-4-]}
<MI 23806 ROL.W #0x3,D0> {[-4-]}
<MI 23808 CLR.L D1> {[-4-]}
<MI 2380a MOVE.B (A0),D1> {[-4-]}
<MI 2380c LSL.B D0,D1> {[-4-]}
<MI 2380e LSR.B #0x4,D1> {[-4-]}
<MI 23810 MOVE.L D1,D5> {[-4-]}
<MI 23812 MOVEA.L (A7),A0> {[-4-]}
<MI 23814 MOVE.W (A0),D0> {[-4-]}
<MI 23816 EXTW.L D0> {[-4-]}
<MI 23818 CMP.L D0,D5> {[-4-]}
<MI 2381a BNE 0x23870> {[-4-]}
<POP 2381c-23820 Naked> Σ-4 Δ-4 ↓
<MI 2381c MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 2381e MOVEQ.L #0x01,D7> {[-4-]|[4, 'D5']}
<POP 23820-23824 Naked> Σ-8 ↓ →0x23866 ←0x23862
<MI 23820 CMP.L (A7),D7> {[-8-]}
<MI 23822 BGT 0x23866> {[-8-]}
<POP 23824-2385e Naked> Σ-8 ↓ →0x23862
<MI 23824 MOVE.B D6,D0> {[-8-]}
<MI 23826 EXTB.W D0> {[-8-]}
<MI 23828 MULS.W #0xa,D0> {[-8-]}
<MI 2382c MOVE.L D7,D1> {[-8-]}
<MI 2382e SUBQ.L #0x1,D1> {[-8-]}
<POP 0x23830 LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 2383a MOVEA.L (A7+0x4),A0> {[-8-]}
<MI 2383e LEA.L 0x20ef2,A1> {[-8-]}
<MI 23842 MOVE.L D7,D2> {[-8-]}
<MI 23844 SUBQ.L #0x1,D2> {[-8-]}
<POP 0x23846 LimitCheck 0x0 ≤ D2 ≤ 0x9> {[-8-]}
<MI 23850 LEA.L (A1+D0.W),A1> {[-8-]}
<MI 23854 MOVE.B (A0+D1.L+#0x2),D0> {[-8-]}
<MI 23858 CMP.B (A1+D2.L),D0> {[-8-]}
<MI 2385c BEQ 0x23862> {[-8-]}
<POP 2385e-23862 Naked> Σ-8 Δ+4 →0x23870
<POP 2385e-23860 StackAdj> Δ+4 {[-4-]}
<MI 23860 BRA 0x23870> {[-4-]}
<POP 23862-23866 Naked> Σ-8 ↓ →0x23820 ←0x23824
<MI 23862 ADDQ.L #0x1,D7> {[-8-]}
<MI 23864 BVC 0x23820> {[-8-]}
<POP 23866-23870 Naked> Σ-8 Δ+8 →0x23878 ←0x23820
<POP 23866-23868 StackAdj> Δ+4 {[-4-]}
<MI 23868 MOVE.B D6,(A6+0xc)> {[-4-]}
<POP 2386c-2386e StackAdj> Δ+4 {}
<MI 2386e BRA 0x23878> {}
<POP 23870-23876 Naked> Σ-4 ↓ →0x237ee ←0x237f6 ←0x2385e
<MI 23870 ADDQ.B #0x1,D6> {[-4-]}
<MI 23872 BVC 0x237ee> {[-4-]}
<POP 23876-23878 Naked> Σ-4 Δ+4 ↓ ←0x237ee
<POP 23876-23878 StackAdj> Δ+4 {}
<POP 23878-23880 Epilogue> Σ0 ←0x23866
@ 23880
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x002 @ 1(r)>
<LVAR -0x006 @ 4(w)>
<LVAR -0x008 @ 1(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 @ 4(rw)>
<POP 23880-239bc Body>
<POP 23880-23896 Prologue> Σ0 ↓
<POP 23896-238a4 RegCacheLoad> Σ0 ↓
<POP 238a4-23910 Naked> Σ0 ↓ →0x2395a
<POP 238a4-238a6 StackAdj> Δ-4 {[-4-]}
<MI 238a6 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<Call 0x238aa 0x102cc> {[-4-]|[4, '(A6+0xc)']}
StringDup(a : String) : String
<POP 238b0-238b2 StackAdj> Δ+4 {[-4-]}
<MI 238b2 MOVE.L (A7)+,(A6-0x10)> Δ+4 {}
<MI 238b4 MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Const 0x238b6 0x2e.2> Δ-2 {[4, '(A6-0x10)']|[#46]}
<Call 0x238ba 0x102c0> {[4, '(A6-0x10)']|[#46]}
AppendChar(MOD b : String; a : char)
<POP 238c0-238c2 StackAdj> Δ+6 {}
<Blob 0x238c2 [10] 0x260f6> Δ-10 {[«10»]}
<POP 238d0-238d2 StackAdj> Δ-4 {[«10»]|[-4-]}
<MI 238d2 MOVE.L (A6-0x10),-(A7)> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']}
<POP 238d4-238d6 StackAdj> Δ-4 {[«10»]|[-4-]|[4, '(A6-0x10)']|[-4-]}
<Lit 0x238d6> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
<Pointer.sp 0x238d6 12> Δ-4
<Const 0x238da 0x1.2> Δ-2
<Const 0x238dc 0xa.2> Δ-2
<Call 0x238e0 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 238e6-238e8 StackAdj> Δ+8
<Call 0x238e8 0x102d0> {[«10»]|[-4-]|[4, '(A6-0x10)']|[$$…]}
StringCat2(a, b : String) : String
<POP 238ee-238f0 StackAdj> Δ+8 {[«10»]|[-4-]}
<MI 238f0 MOVE.L (A7)+,(A6-0x10)> Δ+4 {[«10»]}
<POP 238f2-238f4 StackAdj> Δ+6 {[-4-]}
<MI 238f4 MOVE.L (A6-0x10),(A7)> {[4, '(A6-0x10)']}
<MI 238f6 CLR.B -(A7)> Δ-2 {[4, '(A6-0x10)']|[#0]}
<Const 0x238f8 0x1.2> Δ-2 {[4, '(A6-0x10)']|[#0]|[#1]}
<Const 0x238fa 0x0.4> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]}
<Pointer.fp 0x238fe <LVAR -0x002 @ 1(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]}
<Pointer.fp 0x23900 <LVAR -0x00c @ 4(r)>> Δ-4 {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
<Call 0x23902 0x10380> {[4, '(A6-0x10)']|[#0]|[#1]|[##0]|[@@-2]|[@@-12]}
OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File)
<POP 23908-2390c StackAdj> Δ+20 {}
<MI 2390c TST.B (A6-0x2)> {}
<MI 2390e BEQ 0x2395a> {}
<POP 23910-2395a Naked> Σ0 ↓
<Pointer.fp 0x23910 <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x23912 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<MI 23918 MOVE.L (A6+0x8),(A7)> {[4, '(A6+0x8)']}
<Call 0x2391c 0x2117c> {[4, '(A6+0x8)']}
<POP 23920-23921 StackAdj> Δ+4 ↓ {}
<Blob 0x23921 [26] @> Δ-26 {[«26""»]}
<POP 23932-23934 StackAdj> Δ-8 {[«26""»]|[-8-]}
<Lit 0x23934 25> {[«26""»]|[-4-]|[$$Not a command or macro :_]}
<POP 23944-23946 StackAdj> Δ-4 {[«26""»]|[-4-]|[$$Not a command or macro :_]|[-4-]}
<MI 23946 MOVE.L (A6+0xc),(A7)> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
<Call 0x2394a 0x102d0> {[«26""»]|[-4-]|[$$Not a command or macro :_]|[4, '(A6+0xc)']}
StringCat2(a, b : String) : String
<POP 23950-23952 StackAdj> Δ+8 {[«26""»]|[-4-]}
<Call 0x23952 0x211be> {[«26""»]|[-4-]}
<POP 23956-2395a StackAdj> Δ+30 {}
<POP 2395a-23962 Naked> Σ0 ↓ ←0x238a4
<MI 2395a MOVE.L 0x260e4,(A6-0x6)> {}
<POP 23962-2397a Naked> Σ0 ↓ →0x2398e ←0x2398e
<MI 23962 MOVE.L (A6-0xc),-(A7)> Δ-4 {[4, '(A6-0xc)']}
<Pointer.fp 0x23964 <LVAR -0x010 @ 4(rw)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]}
<Pointer.fp 0x23966 <LVAR -0x008 @ 1(r)>> Δ-4 {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
<Call 0x2396a 0x1043c> {[4, '(A6-0xc)']|[@@-16]|[@@-8]}
FileReadLine(file : File; VAR a : String; VAR b : Byte)
<POP 23970-23974 StackAdj> Δ+12 {}
<MI 23974 MOVEA.L (A6-0x10),A0> {}
<MI 23976 TST.W (A0)> {}
<MI 23978 BEQ 0x2398e> {}
<POP 2397a-2398e Naked> Σ0 ↓
<MI 2397a MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x10)']}
<Call 0x2397c 0x21416> {[4, '(A6-0x10)']}
<POP 23980-23982 StackAdj> Δ+4 {}
<Pointer.fp 0x23982 <LVAR -0x006 @ 4(w)>> Δ-4 {[@@-6]}
<MI 23986 MOVE.L (A6-0x10),-(A7)> Δ-4 {[@@-6]|[4, '(A6-0x10)']}
<Call 0x23988 0x2179c> {[@@-6]|[4, '(A6-0x10)']}
<POP 2398c-2398e StackAdj> Δ+8 {}
<POP 2398e-23994 Naked> Σ0 ↓ →0x23962 ←0x23962
<MI 2398e TST.B (A6-0x8)> {}
<MI 23992 BEQ 0x23962> {}
<POP 23994-239b4 Naked> Σ0 ↓
<MI 23994 CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x23996 0x1.2> Δ-2 {[#0]|[#1]}
<Const 0x23998 0x1.4> Δ-4 {[#0]|[#1]|[##1]}
<Pointer.fp 0x2399c <LVAR -0x002 @ 1(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]}
<Pointer.fp 0x2399e <LVAR -0x00c @ 4(r)>> Δ-4 {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
<Call 0x239a0 0x1038c> {[#0]|[#1]|[##1]|[@@-2]|[@@-12]}
CloseFile(a : L; VAR status : B; VAR file : File)
<POP 239a6-239aa StackAdj> Δ+16 {}
<Pointer.fp 0x239aa <LVAR -0x010 @ 4(rw)>> Δ-4 {[@@-16]}
<Call 0x239ac 0x102bc> {[@@-16]}
FreeString(VAR a : String)
<POP 239b2-239b4 StackAdj> Δ+4 {}
<POP 239b4-239bc Epilogue> Σ0
@ 239bc
<LVAR 0x014 1(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 239bc-239fc Body>
<POP 239bc-239d2 Prologue> Σ0 ↓
<POP 239d2-239f4 Naked> Σ0 ↓
<MI 239d2 MOVE.L (A6+0xc),D0> {}
<MI 239d6 ADD.L (A6+0x8),D0> {}
<MI 239da SUBQ.L #0x1,D0> {}
<MI 239dc SUBQ.L #0x1,D0> {}
<POP 0x239de LimitCheck 0x0 ≤ D0 ≤ 0xfff> {}
<MI 239e8 LEA.L 0x250dc,A0> {}
<MI 239ee MOVE.B (A0+D0.L+#0x8),(A6+0x14)> {}
<POP 239f4-239fc Epilogue> Σ0
@ 239fc
<LVAR 0x010 4(w)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x004 @ 1(r)>
<LVAR -0x008 @ 4(r)>
<POP 239fc-23a78 Body>
<POP 239fc-23a12 Prologue> Σ0 ↓
<POP 23a12-23a3a Naked> Σ0 ↓ →0x23a6a
<POP 23a12-23a14 StackAdj> Δ-4 {[-4-]}
<MI 23a14 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 23a18 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23a1c 0x21e6a> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23a20-23a22 StackAdj> Δ+8 {[-4-]}
<Pointer.fp 0x23a22 <LVAR -0x004 @ 1(r)>> Δ-4 {[-4-]|[@@-4]}
<Pointer.fp 0x23a26 <LVAR -0x008 @ 4(r)>> Δ-4 {[-4-]|[@@-4]|[@@-8]}
<Call 0x23a2a 0x102ec> {[-4-]|[@@-4]|[@@-8]}
String2Long(src : String; VAR status : Bool; VAR retval : Long)
<POP 23a30-23a34 StackAdj> Δ+12 {}
<MI 23a34 TST.B (A6-0x4)> {}
<MI 23a38 BNE 0x23a6a> {}
<POP 23a3a-23a6a Naked> Σ0 ↓
<Blob 0x23a3a [24] @> Δ-24 {[«24""»]}
<POP 23a4c-23a4e StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x23a4e 23> {[«24""»]|[$$Illegal marker argument]}
<Call 0x23a62 0x211be> {[«24""»]|[$$Illegal marker argument]}
<POP 23a66-23a6a StackAdj> Δ+28 {}
<POP 23a6a-23a70 Naked> Σ0 ↓ ←0x23a12
<MI 23a6a MOVE.L (A6-0x8),(A6+0x10)> {}
<POP 23a70-23a78 Epilogue> Σ0
@ 23a78
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x00c 4(rw)>
<LVAR -0x010 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(w)>
<LVAR -0x020 4(rw)>
<POP 23a78-23ba0 Body>
<POP 23a78-23a8e Prologue> Σ0 ↓
<POP 23a8e-23a9e RegCacheLoad> Σ0 ↓
<POP 23a9e-23ab8 Naked> Σ0 Δ-4 ↓
<MI 23a9e MOVEQ.L #0x00,D7> {}
<MI 23aa0 MOVE.L (A6+0x14),(A6-0x20)> {}
<MI 23aa4 MOVE.L 0x260e4,D0> {}
<MI 23aaa SUB.L (A6+0x14),D0> {}
<MI 23aae MOVE.L D0,(A6-0x14)> {}
<MI 23ab0 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 23ab4 MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 23ab8-23abc Naked> Σ-4 ↓ →0x23ae8 ←0x23ae4
<MI 23ab8 CMP.L (A7),D5> {[-4-]}
<MI 23aba BGT 0x23ae8> {[-4-]}
<POP 23abc-23ae2 Naked> Σ-4 ↓ →0x23ae4
<POP 23abc-23abe StackAdj> Δ-8 {[-12-]}
<MI 23abe MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 23ac2 MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x23ac4 0x21e08> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 23ac8-23aca StackAdj> Δ+8 {[-12-]}
<MI 23aca MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 23acc MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 23ace MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 23ad0 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x23ad2 0x21dd0> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 23ad6-23ad8 StackAdj> Δ+8 {[-8-]}
<MI 23ad8 MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 23ada ADD.L D6,D7> {[-4-]}
<MI 23adc CMP.L (A6+0xc),D5> {[-4-]}
<MI 23ae0 BGE 0x23ae4> {[-4-]}
<POP 23ae2-23ae4 Naked> Σ-4 ↓
<MI 23ae2 ADDQ.L #0x1,D7> {[-4-]}
<POP 23ae4-23ae8 Naked> Σ-4 ↓ →0x23ab8 ←0x23abc
<MI 23ae4 ADDQ.L #0x1,D5> {[-4-]}
<MI 23ae6 BVC 0x23ab8> {[-4-]}
<POP 23ae8-23af6 Naked> Σ-4 Δ+4 ↓ →0x23b02 ←0x23ab8
<POP 23ae8-23aea StackAdj> Δ+4 {}
<MI 23aea MOVE.L (A6-0x20),D0> {}
<MI 23aec ADD.L (A6-0x14),D0> {}
<MI 23aee MOVE.L D0,(A6-0x18)> {}
<MI 23af2 CMP.L (A6-0x14),D7> {}
<MI 23af4 BEQ 0x23b02> {}
<POP 23af6-23b02 Naked> Σ0 ↓
<MI 23af6 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23af8 MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, 'D0']|[4, '(A6-0x14)']}
<MI 23afa SUB.L D7,(A7)> {[4, 'D0']|[-4-]}
<Call 0x23afc 0x21712> {[4, 'D0']|[-4-]}
<POP 23b00-23b02 StackAdj> Δ+8 {}
<POP 23b02-23b0a Naked> Σ0 Δ-4 ↓ ←0x23ae8
<MI 23b02 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 23b06 MOVE.L (A6+0x10),D5> {[4, '(A6+0xc)']}
<POP 23b0a-23b10 Naked> Σ-4 ↓ →0x23b96 ←0x23b90
<MI 23b0a CMP.L (A7),D5> {[-4-]}
<MI 23b0c BGT 0x23b96> {[-4-]}
<POP 23b10-23b32 Naked> Σ-4 Δ-4 ↓
<POP 23b10-23b12 StackAdj> Δ-8 {[-12-]}
<MI 23b12 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']}
<MI 23b16 MOVE.L D5,-(A7)> Δ-4 {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<Call 0x23b18 0x21e08> {[-12-]|[4, '(A6+0x8)']|[4, 'D5']}
<POP 23b1c-23b1e StackAdj> Δ+8 {[-12-]}
<MI 23b1e MOVE.L (A7)+,(A6-0x10)> Δ+4 {[-8-]}
<MI 23b20 MOVE.L (A7),(A6-0xc)> {[-8-]}
<MI 23b22 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']}
<MI 23b24 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<Call 0x23b26 0x21dd0> {[-8-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<POP 23b2a-23b2c StackAdj> Δ+8 {[-8-]}
<MI 23b2c MOVE.L (A7)+,D6> Δ+4 {[-4-]}
<MI 23b2e MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D6']}
<MI 23b30 MOVEQ.L #0x01,D0> {[-4-]|[4, 'D6']}
<POP 23b32-23b36 Naked> Σ-8 ↓ →0x23b66 ←0x23b36
<MI 23b32 CMP.L (A7),D0> {[-8-]}
<MI 23b34 BGT 0x23b66> {[-8-]}
<POP 23b36-23b66 Naked> Σ-8 ↓ →0x23b32
<MI 23b36 MOVE.L (A6-0x20),D1> {[-8-]}
<MI 23b38 ADD.L D0,D1> {[-8-]}
<MI 23b3a SUBQ.L #0x1,D1> {[-8-]}
<MI 23b3c SUBQ.L #0x1,D1> {[-8-]}
<POP 0x23b3e LimitCheck 0x0 ≤ D1 ≤ 0xfff> {[-8-]}
<MI 23b48 LEA.L 0x250dc,A0> {[-8-]}
<POP 23b4e-23b50 StackAdj> Δ-2 {[-10-]}
<MI 23b50 MOVE.L (A6-0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']}
<MI 23b52 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']}
<MI 23b54 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<Call 0x23b56 0x239bc> {[-10-]|[4, '(A6-0xc)']|[4, '(A6-0x10)']|[4, 'D0']}
<POP 23b5a-23b5e StackAdj> Δ+12 {[-10-]}
<MI 23b5e MOVE.B (A7)+,(A0+D1.L+#0x8)> Δ+2 {[-8-]}
<MI 23b62 ADDQ.L #0x1,D0> {[-8-]}
<MI 23b64 BVC 0x23b32> {[-8-]}
<POP 23b66-23b6e Naked> Σ-8 Δ+4 ↓ →0x23b90 ←0x23b32
<POP 23b66-23b68 StackAdj> Δ+4 {[-4-]}
<MI 23b68 CMP.L (A6+0xc),D5> {[-4-]}
<MI 23b6c BGE 0x23b90> {[-4-]}
<POP 23b6e-23b90 Naked> Σ-4 ↓
<MI 23b6e MOVE.L (A6-0x20),D0> {[-4-]}
<MI 23b70 ADD.L D6,D0> {[-4-]}
<MI 23b72 MOVE.L D0,D1> {[-4-]}
<MI 23b74 SUBQ.L #0x1,D1> {[-4-]}
<POP 0x23b76 LimitCheck 0x0 ≤ D1 ≤ 0xfff> {[-4-]}
<MI 23b80 LEA.L 0x250dc,A0> {[-4-]}
<MI 23b86 MOVE.B #0x2c,(A0+D1.L+#0x8)> {[-4-]}
<MI 23b8c ADDQ.L #0x1,D0> {[-4-]}
<MI 23b8e MOVE.L D0,(A6-0x20)> {[-4-]}
<POP 23b90-23b96 Naked> Σ-4 ↓ →0x23b0a ←0x23b66
<MI 23b90 ADDQ.L #0x1,D5> {[-4-]}
<MI 23b92 BVC 0x23b0a> {[-4-]}
<POP 23b96-23b98 Naked> Σ-4 Δ+4 ↓ ←0x23b0a
<POP 23b96-23b98 StackAdj> Δ+4 {}
<POP 23b98-23ba0 Epilogue> Σ0
@ 23ba0
<LVAR 0x018 4(rw)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 4(rw)>
<LVAR -0x00c 4(rw)>
<LVAR -0x018 4(w)>
<POP 23ba0-23c96 Body> Δ-12
<POP 23ba0-23bb6 Prologue> Σ0 ↓
<POP 23bb6-23bcc RegCacheLoad> Σ0 ↓
<POP 23bcc-23bf6 Naked> Σ0 Δ-4 ↓
<POP 23bcc-23bce StackAdj> Δ-4 {[-4-]}
<MI 23bce MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23bd0 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x23bd2 0x21dd0> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 23bd6-23bd8 StackAdj> Δ+8 {[-4-]}
<MI 23bd8 MOVE.L (A7),(A6-0xc)> {[-4-]}
<MI 23bda MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 23bde MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23be2 0x21dd0> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23be6-23be8 StackAdj> Δ+8 {[-4-]}
<MI 23be8 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 23bea ADDQ.L #0x1,(A6-0x8)> {}
<MI 23bec MOVE.L (A6-0xc),D0> {}
<MI 23bee SUB.L (A6-0x8),D0> {}
<MI 23bf0 ADDQ.L #0x1,D0> {}
<MI 23bf2 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 23bf4 MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 23bf6-23bfc Naked> Σ-4 ↓ →0x23c88 ←0x23c80
<MI 23bf6 CMP.L (A7),D0> {[-4-]}
<MI 23bf8 BGT 0x23c88> {[-4-]}
<POP 23bfc-23c08 Naked> Σ-4 Δ-8 ↓
<MI 23bfc MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 23c00 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 23c02 MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 23c04 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 23c06 MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 23c08-23c0c Naked> Σ-12 ↓ →0x23c4e ←0x23c48
<MI 23c08 CMP.L (A7),D5> {[-12-]}
<MI 23c0a BGT 0x23c4e> {[-12-]}
<POP 23c0c-23c14 Naked> Σ-12 ↓ →0x23c18
<MI 23c0c CMPI.L #0x00000001,D5> {[-12-]}
<MI 23c12 BNE 0x23c18> {[-12-]}
<POP 23c14-23c18 Naked> Σ-12 →0x23c2c
<MI 23c14 MOVEQ.L #0x2f,D7> {[-12-]}
<MI 23c16 BRA 0x23c2c> {[-12-]}
<POP 23c18-23c2c Naked> Σ-12 ↓ ←0x23c0c
<POP 23c18-23c1a StackAdj> Δ-2 {[-14-]}
<MI 23c1a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']}
<MI 23c1e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 23c22 MOVE.L D5,-(A7)> Δ-4 {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D5']}
<MI 23c24 SUBQ.L #0x1,(A7)> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<Call 0x23c26 0x239bc> {[-14-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[-4-]}
<POP 23c28-23c2a StackAdj> Δ+12 {[-14-]}
<MI 23c2a MOVE.B (A7)+,D7> Δ+2 {[-12-]}
<POP 23c2c-23c44 Naked> Σ-12 ↓ →0x23c48 ←0x23c14
<POP 23c2c-23c2e StackAdj> Δ-2 {[-14-]}
<MI 23c2e MOVE.L (A6+0x14),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']}
<MI 23c30 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23c32 MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23c36 ADD.L D5,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23c38 SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23c3a MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x23c3c 0x239bc> {[-14-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 23c3e-23c40 StackAdj> Δ+12 {[-14-]}
<MI 23c40 CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 23c42 BEQ 0x23c48> {[-12-]}
<POP 23c44-23c48 Naked> Σ-12 Δ+4 →0x23c50
<POP 23c44-23c46 StackAdj> Δ+4 {[-8-]}
<MI 23c46 BRA 0x23c50> {[-8-]}
<POP 23c48-23c4e Naked> Σ-12 ↓ →0x23c08 ←0x23c2c
<MI 23c48 MOVE.L D5,D6> {[-12-]}
<MI 23c4a ADDQ.L #0x1,D5> {[-12-]}
<MI 23c4c BVC 0x23c08> {[-12-]}
<POP 23c4e-23c50 Naked> Σ-12 Δ+4 ↓ ←0x23c08
<POP 23c4e-23c50 StackAdj> Δ+4 {[-8-]}
<POP 23c50-23c54 Naked> Σ-8 ↓ →0x23c80 ←0x23c44
<MI 23c50 CMP.L (A6-0x8),D6> {[-8-]}
<MI 23c52 BNE 0x23c80> {[-8-]}
<POP 23c54-23c60 Naked> Σ-8 ↓ →0x23c62
<MI 23c54 MOVE.L (A7),D0> {[-8-]}
<MI 23c56 MOVE.L D0,(A6+0x18)> {[-8-]}
<MI 23c5a ADD.L (A6-0x8),D0> {[-8-]}
<MI 23c5c CMP.L (A6-0xc),D0> {[-8-]}
<MI 23c5e BLT 0x23c62> {[-8-]}
<POP 23c60-23c62 Naked> Σ-8 →0x23c7c
<MI 23c60 BRA 0x23c7c> {[-8-]}
<POP 23c62-23c76 Naked> Σ-8 ↓ →0x23c7c ←0x23c54
<POP 23c62-23c64 StackAdj> Δ-2 {[-10-]}
<MI 23c64 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 23c66 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23c68 MOVE.L D0,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<Call 0x23c6a 0x239bc> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D0']}
<POP 23c6c-23c6e StackAdj> Δ+12 {[-10-]}
<MI 23c6e MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 23c70 CMPI.B #0x2f,D7> {[-8-]}
<MI 23c74 BEQ 0x23c7c> {[-8-]}
<POP 23c76-23c7c Naked> Σ-8 ↓ →0x23c80
<MI 23c76 CMPI.B #0x3d,D7> {[-8-]}
<MI 23c7a BNE 0x23c80> {[-8-]}
<POP 23c7c-23c80 Naked> Σ-8 Δ+8 →0x23c8e ←0x23c60 ←0x23c62
<POP 23c7c-23c7e StackAdj> Δ+8 {}
<MI 23c7e BRA 0x23c8e> {}
<POP 23c80-23c88 Naked> Σ-8 Δ+4 ↓ →0x23bf6 ←0x23c50 ←0x23c76
<MI 23c80 MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 23c82 ADDQ.L #0x1,D0> {[-4-]}
<MI 23c84 BVC 0x23bf6> {[-4-]}
<POP 23c88-23c8e Naked> Σ-4 Δ+4 ↓ ←0x23bf6
<POP 23c88-23c8a StackAdj> Δ+4 {}
<MI 23c8a CLR.L (A6+0x18)> {}
<POP 23c8e-23c96 Epilogue> Σ0 ←0x23c7c
@ 23c96
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23c96-23d2a Body> Δ-4
<POP 23c96-23cac Prologue> Σ0 ↓
<POP 23cac-23cb6 RegCacheLoad> Σ0 ↓
<POP 23cb6-23cd0 Naked> Σ0 ↓ →0x23d22
<POP 23cb6-23cb8 StackAdj> Δ-4 {[-4-]}
<MI 23cb8 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23cba MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23cbc MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23cc0 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23cc4 0x23ba0> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23cc8-23ccc StackAdj> Δ+16 {[-4-]}
<MI 23ccc MOVE.L (A7)+,D5> Δ+4 {}
<MI 23cce BLE 0x23d22> {}
<POP 23cd0-23cf0 Naked> Σ0 Δ-4 ↓
<MI 23cd0 MOVE.L (A6+0x18),-(A7)> Δ-4 {[4, '(A6+0x18)']}
<Const 0x23cd4 0x2f.2> Δ-2 {[4, '(A6+0x18)']|[#47]}
<Call 0x23cd6 0x102c0> {[4, '(A6+0x18)']|[#47]}
AppendChar(MOD b : String; a : char)
<POP 23cdc-23cde StackAdj> Δ+6 {}
<MI 23cde MOVE.L D5,D0> {}
<MI 23ce0 ADDQ.L #0x1,D0> {}
<POP 23ce2-23ce4 StackAdj> Δ-4 {[-4-]}
<MI 23ce4 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23ce6 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x23ce8 0x21dd0> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 23cec-23cee StackAdj> Δ+8 {[-4-]}
<MI 23cee MOVE.L D0,D6> {[-4-]}
<POP 23cf0-23cf4 Naked> Σ-4 ↓ →0x23d20 ←0x23d0e
<MI 23cf0 CMP.L (A7),D6> {[-4-]}
<MI 23cf2 BGT 0x23d20> {[-4-]}
<POP 23cf4-23d0a Naked> Σ-4 ↓ →0x23d0e
<POP 23cf4-23cf6 StackAdj> Δ-2 {[-6-]}
<MI 23cf6 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 23cf8 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23cfa MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x23cfc 0x239bc> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 23d00-23d04 StackAdj> Δ+12 {[-6-]}
<MI 23d04 MOVE.B (A7)+,D7> Δ+2 {[-4-]}
<MI 23d06 CMP.B #0x2f,D7> {[-4-]}
<MI 23d08 BNE 0x23d0e> {[-4-]}
<POP 23d0a-23d0e Naked> Σ-4 Δ+4 →0x23d22
<POP 23d0a-23d0c StackAdj> Δ+4 {}
<MI 23d0c BRA 0x23d22> {}
<POP 23d0e-23d20 Naked> Σ-4 ↓ →0x23cf0 ←0x23cf4
<MI 23d0e MOVE.L (A6+0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x18)']}
<MI 23d12 MOVE.B D7,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x23d14 0x102c0> {[-4-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 23d1a-23d1c StackAdj> Δ+6 {[-4-]}
<MI 23d1c ADDQ.L #0x1,D6> {[-4-]}
<MI 23d1e BVC 0x23cf0> {[-4-]}
<POP 23d20-23d22 Naked> Σ-4 Δ+4 ↓ ←0x23cf0
<POP 23d20-23d22 StackAdj> Δ+4 {}
<POP 23d22-23d2a Epilogue> Σ0 ←0x23cb6 ←0x23d0a
@ 23d2a
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(rw)>
<LVAR -0x014 4(rw)>
<POP 23d2a-23de0 Body> Δ-8
<POP 23d2a-23d40 Prologue> Σ0 ↓
<POP 23d40-23d4e RegCacheLoad> Σ0 ↓
<POP 23d4e-23d6a Naked> Σ0 ↓ →0x23dd8
<POP 23d4e-23d50 StackAdj> Δ-4 {[-4-]}
<MI 23d50 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23d52 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23d54 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 23d58 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23d5c 0x23ba0> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23d60-23d64 StackAdj> Δ+16 {[-4-]}
<MI 23d64 MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 23d68 BLE 0x23dd8> {}
<POP 23d6a-23d7e Naked> Σ0 Δ-4 ↓
<POP 23d6a-23d6c StackAdj> Δ-4 {[-4-]}
<MI 23d6c MOVE.L (A6+0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']}
<MI 23d6e MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<Call 0x23d70 0x21dd0> {[-4-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<POP 23d74-23d76 StackAdj> Δ+8 {[-4-]}
<MI 23d76 MOVE.L (A7)+,(A6-0x6)> Δ+4 {}
<MI 23d78 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<MI 23d7a MOVE.L (A6-0x14),D5> {[4, '(A6-0x6)']}
<POP 23d7e-23d82 Naked> Σ-4 ↓ →0x23dd6 ←0x23dd2
<MI 23d7e CMP.L (A7),D5> {[-4-]}
<MI 23d80 BGT 0x23dd6> {[-4-]}
<POP 23d82-23d98 Naked> Σ-4 ↓ →0x23dd2
<POP 23d82-23d84 StackAdj> Δ-2 {[-6-]}
<MI 23d84 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']}
<MI 23d86 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23d88 MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<Call 0x23d8a 0x239bc> {[-6-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D5']}
<POP 23d8e-23d90 StackAdj> Δ+12 {[-6-]}
<MI 23d90 MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 23d92 CMPI.B #0x3d,D0> {[-4-]}
<MI 23d96 BNE 0x23dd2> {[-4-]}
<POP 23d98-23da0 Naked> Σ-4 Δ-4 ↓
<MI 23d98 MOVE.L D5,D0> {[-4-]}
<MI 23d9a ADDQ.L #0x1,D0> {[-4-]}
<MI 23d9c MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<MI 23d9e MOVE.L D0,D6> {[-4-]|[4, '(A6-0x6)']}
<POP 23da0-23da4 Naked> Σ-8 ↓ →0x23dd0 ←0x23dbe
<MI 23da0 CMP.L (A7),D6> {[-8-]}
<MI 23da2 BGT 0x23dd0> {[-8-]}
<POP 23da4-23dba Naked> Σ-8 ↓ →0x23dbe
<POP 23da4-23da6 StackAdj> Δ-2 {[-10-]}
<MI 23da6 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']}
<MI 23da8 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']}
<MI 23daa MOVE.L D6,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<Call 0x23dac 0x239bc> {[-10-]|[4, '(A6+0x14)']|[4, '(A6+0x10)']|[4, 'D6']}
<POP 23db0-23db2 StackAdj> Δ+12 {[-10-]}
<MI 23db2 MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 23db4 CMPI.B #0x2f,D7> {[-8-]}
<MI 23db8 BNE 0x23dbe> {[-8-]}
<POP 23dba-23dbe Naked> Σ-8 Δ+8 →0x23dd8
<POP 23dba-23dbc StackAdj> Δ+8 {}
<MI 23dbc BRA 0x23dd8> {}
<POP 23dbe-23dd0 Naked> Σ-8 ↓ →0x23da0 ←0x23da4
<MI 23dbe MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 23dc2 MOVE.B D7,-(A7)> Δ-2 {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
<Call 0x23dc4 0x102c0> {[-8-]|[4, '(A6+0x18)']|[2, 'D7']}
AppendChar(MOD b : String; a : char)
<POP 23dca-23dcc StackAdj> Δ+6 {[-8-]}
<MI 23dcc ADDQ.L #0x1,D6> {[-8-]}
<MI 23dce BVC 0x23da0> {[-8-]}
<POP 23dd0-23dd2 Naked> Σ-8 Δ+4 ↓ ←0x23da0
<POP 23dd0-23dd2 StackAdj> Δ+4 {[-4-]}
<POP 23dd2-23dd6 Naked> Σ-4 ↓ →0x23d7e ←0x23d82
<MI 23dd2 ADDQ.L #0x1,D5> {[-4-]}
<MI 23dd4 BVC 0x23d7e> {[-4-]}
<POP 23dd6-23dd8 Naked> Σ-4 Δ+4 ↓ ←0x23d7e
<POP 23dd6-23dd8 StackAdj> Δ+4 {}
<POP 23dd8-23de0 Epilogue> Σ0 ←0x23d4e ←0x23dba
@ 23de0
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23de0-23e66 Body> Δ-4
<POP 23de0-23df6 Prologue> Σ0 ↓
<POP 23df6-23e00 RegCacheLoad> Σ0 ↓
<POP 23e00-23e12 Naked> Σ0 Δ-4 ↓
<POP 23e00-23e02 StackAdj> Δ-4 {[-4-]}
<MI 23e02 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 23e04 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23e06 0x21dd0> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23e0a-23e0c StackAdj> Δ+8 {[-4-]}
<MI 23e0c MOVE.L (A7)+,D5> Δ+4 {}
<MI 23e0e MOVE.L D5,-(A7)> Δ-4 {[4, 'D5']}
<MI 23e10 MOVEQ.L #0x01,D6> {[4, 'D5']}
<POP 23e12-23e16 Naked> Σ-4 ↓ →0x23e5c ←0x23e58
<MI 23e12 CMP.L (A7),D6> {[-4-]}
<MI 23e14 BGT 0x23e5c> {[-4-]}
<POP 23e16-23e2c Naked> Σ-4 ↓ →0x23e58
<POP 23e16-23e18 StackAdj> Δ-2 {[-6-]}
<MI 23e18 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 23e1a MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 23e1c MOVE.L D6,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x23e1e 0x239bc> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D6']}
<POP 23e22-23e24 StackAdj> Δ+12 {[-6-]}
<MI 23e24 MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 23e26 CMPI.B #0x2f,D0> {[-4-]}
<MI 23e2a BNE 0x23e58> {[-4-]}
<POP 23e2c-23e30 Naked> Σ-4 Δ-4 ↓
<MI 23e2c MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 23e2e MOVE.L D6,D7> {[-4-]|[4, 'D5']}
<POP 23e30-23e34 Naked> Σ-8 ↓ →0x23e52 ←0x23e34
<MI 23e30 CMP.L (A7),D7> {[-8-]}
<MI 23e32 BGT 0x23e52> {[-8-]}
<POP 23e34-23e52 Naked> Σ-8 ↓ →0x23e30
<MI 23e34 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']}
<POP 23e38-23e3a StackAdj> Δ-2 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<MI 23e3a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']}
<MI 23e3c MOVE.L (A6+0x8),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 23e3e MOVE.L D7,-(A7)> Δ-4 {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x23e40 0x239bc> {[-8-]|[4, '(A6+0x10)']|[-2-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 23e44-23e46 StackAdj> Δ+12 {[-8-]|[4, '(A6+0x10)']|[-2-]}
<Call 0x23e46 0x102c0> {[-8-]|[4, '(A6+0x10)']|[-2-]}
AppendChar(MOD b : String; a : char)
<POP 23e4c-23e4e StackAdj> Δ+6 {[-8-]}
<MI 23e4e ADDQ.L #0x1,D7> {[-8-]}
<MI 23e50 BVC 0x23e30> {[-8-]}
<POP 23e52-23e58 Naked> Σ-8 Δ+8 →0x23e5e ←0x23e30
<POP 23e52-23e54 StackAdj> Δ+4 {[-4-]}
<POP 23e54-23e56 StackAdj> Δ+4 {}
<MI 23e56 BRA 0x23e5e> {}
<POP 23e58-23e5c Naked> Σ-4 ↓ →0x23e12 ←0x23e16
<MI 23e58 ADDQ.L #0x1,D6> {[-4-]}
<MI 23e5a BVC 0x23e12> {[-4-]}
<POP 23e5c-23e5e Naked> Σ-4 Δ+4 ↓ ←0x23e12
<POP 23e5c-23e5e StackAdj> Δ+4 {}
<POP 23e5e-23e66 Epilogue> Σ0 ←0x23e52
@ 23e66
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 23e66-23ed6 Body> Δ-4
<POP 23e66-23e7c Prologue> Σ0 ↓
<POP 23e7c-23e94 Naked> Σ0 Δ-4 ↓
<MI 23e7c MOVEA.L (A6+0x10),A0> {}
<MI 23e80 CLR.W (A0)> {}
<POP 23e82-23e84 StackAdj> Δ-4 {[-4-]}
<MI 23e84 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']}
<MI 23e88 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x23e8c 0x21dd0> {[-4-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 23e90-23e92 StackAdj> Δ+8 {[-4-]}
<MI 23e92 MOVEQ.L #0x01,D7> {[-4-]}
<POP 23e94-23e98 Naked> Σ-4 ↓ →0x23ecc ←0x23ec8
<MI 23e94 CMP.L (A7),D7> {[-4-]}
<MI 23e96 BGT 0x23ecc> {[-4-]}
<POP 23e98-23eb4 Naked> Σ-4 ↓ →0x23ec4
<POP 23e98-23e9a StackAdj> Δ-2 {[-6-]}
<MI 23e9a MOVE.L (A6+0xc),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']}
<MI 23e9e MOVE.L (A6+0x8),-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<MI 23ea2 MOVE.L D7,-(A7)> Δ-4 {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<Call 0x23ea4 0x239bc> {[-6-]|[4, '(A6+0xc)']|[4, '(A6+0x8)']|[4, 'D7']}
<POP 23ea8-23eac StackAdj> Δ+12 {[-6-]}
<MI 23eac MOVE.B (A7)+,D6> Δ+2 {[-4-]}
<MI 23eae CMPI.B #0x2f,D6> {[-4-]}
<MI 23eb2 BEQ 0x23ec4> {[-4-]}
<POP 23eb4-23ec4 Naked> Σ-4 →0x23ec8
<MI 23eb4 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 23eb8 MOVE.B D6,-(A7)> Δ-2 {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
<Call 0x23eba 0x102c0> {[-4-]|[4, '(A6+0x10)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 23ec0-23ec2 StackAdj> Δ+6 {[-4-]}
<MI 23ec2 BRA 0x23ec8> {[-4-]}
<POP 23ec4-23ec8 Naked> Σ-4 Δ+4 →0x23ece ←0x23e98
<POP 23ec4-23ec6 StackAdj> Δ+4 {}
<MI 23ec6 BRA 0x23ece> {}
<POP 23ec8-23ecc Naked> Σ-4 ↓ →0x23e94 ←0x23eb4
<MI 23ec8 ADDQ.L #0x1,D7> {[-4-]}
<MI 23eca BVC 0x23e94> {[-4-]}
<POP 23ecc-23ece Naked> Σ-4 Δ+4 ↓ ←0x23e94
<POP 23ecc-23ece StackAdj> Δ+4 {}
<POP 23ece-23ed6 Epilogue> Σ0 ←0x23ec4
@ 23ed6
<POP 23ed6-23f1e Body>
<POP 23ed6-23eec Prologue> Σ0 ↓
<POP 23eec-23f16 Naked> Σ0 ↓
<Blob 0x23eec [34] @> Δ-34 {[«34""»]}
<POP 23ef8-23efa StackAdj> Δ-4 {[«34""»]|[-4-]}
<Lit 0x23efa 34> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<Call 0x23f0e 0x211be> {[«34""»]|[$$Switch exclusion is unimplemented.]}
<POP 23f12-23f16 StackAdj> Δ+38 {}
<POP 23f16-23f1e Epilogue> Σ0
@ 23f1e
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x006 4(rw)>
<POP 23f1e-24058 Body>
<POP 23f1e-23f34 Prologue> Σ0 ↓
<POP 23f34-23f4a RegCacheLoad> Σ0 ↓
<POP 23f4a-23f58 Naked> Σ0 ↓ →0x23f60
<MI 23f4a MOVE.L 0x260e4,(A6-0x6)> {}
<POP 23f4e-23f50 StackAdj> Δ-2 {[-2-]}
<Call 0x23f50 0x2125a> {[-2-]}
<MI 23f52 MOVE.B (A7)+,D7> Δ+2 {}
<MI 23f54 CMP.B #0x25,D7> {}
<MI 23f56 BNE 0x23f60> {}
<POP 23f58-23f60 Naked> Σ0 →0x24040
<MI 23f58 MOVEA.L (A6+0xc),A0> {}
<MI 23f5a CLR.L (A0)> {}
<MI 23f5c BRA 0x24040> {}
<POP 23f60-23f64 Naked> Σ0 ↓ →0x23f70 ←0x23f4a
<MI 23f60 CMP.B #0x2d,D7> {}
<MI 23f62 BNE 0x23f70> {}
<POP 23f64-23f70 Naked> Σ0 →0x24040
<MI 23f64 MOVEA.L (A6+0xc),A0> {}
<MI 23f66 MOVE.L #0x1,(A0)> {}
<MI 23f6c BRA 0x24040> {}
<POP 23f70-23f76 Naked> Σ0 ↓ →0x23f82 ←0x23f60
<MI 23f70 CMPI.B #0x2f,D7> {}
<MI 23f74 BNE 0x23f82> {}
<POP 23f76-23f82 Naked> Σ0 →0x24040
<MI 23f76 MOVEA.L (A6+0xc),A0> {}
<MI 23f78 MOVE.L #0x4,(A0)> {}
<MI 23f7e BRA 0x24040> {}
<POP 23f82-23f88 Naked> Σ0 ↓ →0x23f94 ←0x23f70
<MI 23f82 CMPI.B #0x3d,D7> {}
<MI 23f86 BNE 0x23f94> {}
<POP 23f88-23f94 Naked> Σ0 →0x24040
<MI 23f88 MOVEA.L (A6+0xc),A0> {}
<MI 23f8a MOVE.L #0x5,(A0)> {}
<MI 23f90 BRA 0x24040> {}
<POP 23f94-23f9a Naked> Σ0 ↓ →0x23fa6 ←0x23f82
<MI 23f94 CMPI.B #0x5c,D7> {}
<MI 23f98 BNE 0x23fa6> {}
<POP 23f9a-23fa6 Naked> Σ0 →0x24040
<MI 23f9a MOVEA.L (A6+0xc),A0> {}
<MI 23f9c MOVE.L #0x6,(A0)> {}
<MI 23fa2 BRA 0x24040> {}
<POP 23fa6-23faa Naked> Σ0 ↓ →0x23fd6 ←0x23f94
<MI 23fa6 TST.B D7> {}
<MI 23fa8 BNE 0x23fd6> {}
<POP 23faa-23fd6 Naked> Σ0 →0x24040
<Blob 0x23faa [24] @> Δ-24 {[«24""»]}
<POP 23fb6-23fb8 StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x23fb8 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x23fcc 0x211be> {[«24""»]|[$$Illegal argument marker.]}
<POP 23fd0-23fd4 StackAdj> Δ+28 {}
<MI 23fd4 BRA 0x24040> {}
<POP 23fd6-23fda Naked> Σ0 ↓ →0x24006 ←0x23fa6
<MI 23fd6 CMP.B #0x30,D7> {}
<MI 23fd8 BCS 0x24006> {}
<POP 23fda-23fde Naked> Σ0 ↓ →0x24006
<MI 23fda CMP.B #0x39,D7> {}
<MI 23fdc BHI 0x24006> {}
<POP 23fde-23fe6 Naked> Σ0 ↓
<MI 23fde MOVEA.L (A6+0xc),A0> {}
<MI 23fe0 MOVE.L #0x2,(A0)> {}
<POP 23fe6-23ff2 Naked> Σ0 ↓ →0x23ffc ←0x24000
<POP 23fe6-23fe8 StackAdj> Δ-2 {[-2-]}
<Call 0x23fe8 0x2121c> {[-2-]}
<MI 23fec MOVE.B (A7)+,D7> Δ+2 {}
<MI 23fee CMP.B #0x30,D7> {}
<MI 23ff0 BCS 0x23ffc> {}
<POP 23ff2-23ff6 Naked> Σ0 ↓ →0x23ffc
<MI 23ff2 CMP.B #0x39,D7> {}
<MI 23ff4 BHI 0x23ffc> {}
<POP 23ff6-23ffc Naked> Σ0 ↓
<POP 23ff6-23ff8 StackAdj> Δ-2 {[-2-]}
<Call 0x23ff8 0x2125a> {[-2-]}
<MI 23ffa MOVE.B (A7)+,D6> Δ+2 {}
<POP 23ffc-24000 Naked> Σ0 ↓ →0x24004 ←0x23fe6 ←0x23ff2
<MI 23ffc CMP.B #0x30,D7> {}
<MI 23ffe BCS 0x24004> {}
<POP 24000-24004 Naked> Σ0 ↓ →0x23fe6
<MI 24000 CMP.B #0x39,D7> {}
<MI 24002 BLS 0x23fe6> {}
<POP 24004-24006 Naked> Σ0 →0x24040 ←0x23ffc
<MI 24004 BRA 0x24040> {}
<POP 24006-24010 Naked> Σ0 ↓ ←0x23fd6 ←0x23fda
<MI 24006 MOVEA.L (A6+0xc),A0> {}
<MI 24008 MOVE.L #0x3,(A0)> {}
<MI 2400e MOVEQ.L #0x00,D5> {}
<POP 24010-2401c Naked> Σ0 ↓ →0x24032 ←0x2403c
<POP 24010-24012 StackAdj> Δ-2 {[-2-]}
<Call 0x24012 0x2121c> {[-2-]}
<MI 24016 MOVE.B (A7)+,D7> Δ+2 {}
<MI 24018 CMP.B #0x25,D7> {}
<MI 2401a BEQ 0x24032> {}
<POP 2401c-24020 Naked> Σ0 ↓ →0x24032
<MI 2401c CMP.B #0x2d,D7> {}
<MI 2401e BEQ 0x24032> {}
<POP 24020-24026 Naked> Σ0 ↓ →0x24032
<MI 24020 CMPI.B #0x2f,D7> {}
<MI 24024 BEQ 0x24032> {}
<POP 24026-2402c Naked> Σ0 ↓ →0x24032
<MI 24026 CMPI.B #0x3d,D7> {}
<MI 2402a BEQ 0x24032> {}
<POP 2402c-24032 Naked> Σ0 ↓ →0x24036
<MI 2402c CMPI.B #0x5c,D7> {}
<MI 24030 BNE 0x24036> {}
<POP 24032-24036 Naked> Σ0 →0x2403c ←0x24010 ←0x2401c ←0x24020 ←0x24026
<MI 24032 MOVEQ.L #0x01,D5> {}
<MI 24034 BRA 0x2403c> {}
<POP 24036-2403c Naked> Σ0 ↓ ←0x2402c
<POP 24036-24038 StackAdj> Δ-2 {[-2-]}
<Call 0x24038 0x2125a> {[-2-]}
<MI 2403a MOVE.B (A7)+,D6> Δ+2 {}
<POP 2403c-24040 Naked> Σ0 ↓ →0x24010 ←0x24032
<MI 2403c TST.B D5> {}
<MI 2403e BEQ 0x24010> {}
<POP 24040-24050 Naked> Σ0 ↓ ←0x23f58 ←0x23f64 ←0x23f76 ←0x23f88 ←0x23f9a ←0x23faa ←0x24004
<MI 24040 MOVEA.L (A6+0x8),A0> {}
<MI 24044 MOVE.L (A6-0x6),(A0)> {}
<MI 24048 MOVE.L 0x260e4,(A0+0x4)> {}
<MI 2404c SUBQ.L #0x1,(A0+0x4)> {}
<POP 24050-24058 Epilogue> Σ0
@ 24058
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<POP 24058-240de Body>
<POP 24058-2406e Prologue> Σ0 ↓
<POP 2406e-24072 RegCacheLoad> Σ0 ↓
<POP 24072-2408c Naked> Σ0 Δ-4 ↓ →0x24098
<MI 24072 MOVEA.L (A6+0x8),A0> {}
<MI 24076 MOVE.L A0,-(A7)> Δ-4 {[4, 'A0']}
<MI 24078 MOVE.L 0x260e4,D6> {[4, 'A0']}
<MI 2407e SUB.L (A6+0xc),D6> {[4, 'A0']}
<MI 24080 MOVE.L (A6+0xc),D5> {[4, 'A0']}
<MI 24082 ADD.L D6,D5> {[4, 'A0']}
<MI 24084 MOVE.W (A0),D0> {[4, 'A0']}
<MI 24086 EXTW.L D0> {[4, 'A0']}
<MI 24088 CMP.L D6,D0> {[4, 'A0']}
<MI 2408a BEQ 0x24098> {[4, 'A0']}
<POP 2408c-24098 Naked> Σ-4 ↓
<MI 2408c MOVE.L D5,-(A7)> Δ-4 {[-4-]|[4, 'D5']}
<MI 2408e MOVE.L D6,-(A7)> Δ-4 {[-4-]|[4, 'D5']|[4, 'D6']}
<MI 24090 SUB.L D0,(A7)> {[-4-]|[4, 'D5']|[-4-]}
<Call 0x24092 0x21712> {[-4-]|[4, 'D5']|[-4-]}
<POP 24096-24098 StackAdj> Δ+8 {[-4-]}
<POP 24098-2409c Naked> Σ-4 Δ-4 ↓ ←0x24072
<MI 24098 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 2409a MOVEQ.L #0x01,D7> {[-4-]|[4, 'D0']}
<POP 2409c-240a0 Naked> Σ-8 ↓ →0x240d4 ←0x240a0
<MI 2409c CMP.L (A7),D7> {[-8-]}
<MI 2409e BGT 0x240d4> {[-8-]}
<POP 240a0-240d4 Naked> Σ-8 ↓ →0x2409c
<MI 240a0 MOVE.L (A6+0xc),D0> {[-8-]}
<MI 240a2 ADD.L D7,D0> {[-8-]}
<MI 240a4 SUBQ.L #0x1,D0> {[-8-]}
<MI 240a6 SUBQ.L #0x1,D0> {[-8-]}
<POP 0x240a8 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {[-8-]}
<MI 240b2 LEA.L 0x250dc,A0> {[-8-]}
<MI 240b8 MOVE.L D7,D1> {[-8-]}
<MI 240ba SUBQ.L #0x1,D1> {[-8-]}
<POP 0x240bc LimitCheck 0x0 ≤ D1 ≤ 0x7d> {[-8-]}
<MI 240c6 MOVEA.L (A7+0x4),A1> {[-8-]}
<MI 240ca MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8)> {[-8-]}
<MI 240d0 ADDQ.L #0x1,D7> {[-8-]}
<MI 240d2 BVC 0x2409c> {[-8-]}
<POP 240d4-240d6 Naked> Σ-8 Δ+8 ↓ ←0x2409c
<POP 240d4-240d6 StackAdj> Δ+8 {}
<POP 240d6-240de Epilogue> Σ0
@ 240de
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 @ 4(r)>
<LVAR -0x00c @ 4(r)>
<LVAR -0x010 4(r)>
<LVAR -0x014 @ 4(r)>
<LVAR -0x018 4(rw)>
<LVAR -0x01c 4(rw)>
<LVAR -0x020 4(rw)>
<LVAR -0x024 4(rw)>
<LVAR -0x028 4(rw)>
<LVAR -0x034 4(rw)>
<POP 240de-24326 Body> Δ+56
<POP 240de-240f4 Prologue> Σ0 ↓
<POP 240f4-24106 RegCacheLoad> Σ0 ↓
<POP 24106-2412a Naked> Σ0 ↓
<MI 24106 MOVE.L 0x260e4,(A6-0x28)> {}
<Pointer.fp 0x2410e <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x24110 0x102b8> {[@@-8]}
NewString(VAR a : String)
<POP 24116-24118 StackAdj> Δ+4 {}
<Pointer.fp 0x24118 <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x2411c <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x2411e 0x23f1e> {[@@-12]|[@@-20]}
<POP 24122-24124 StackAdj> Δ+8 {}
<MI 24124 CLR.L (A6-0x34)> {}
<MI 24128 MOVEQ.L #0x00,D7> {}
<POP 2412a-2413e Naked> Σ0 →0x24168 →0x24172 →0x24186 →0x241a2 →0x241a6 →0x241b4 →0x241c8 →0x241ce →0x241d0 →0x241e6 →0x241f4 →0x2420c →0x24220 →0x24234 →0x2424a →0x2424c →0x24266 →0x2427c →0x2428a →0x2428c →0x2428e ←0x24302
<MI 2412a MOVE.L (A6-0x34),D0> {}
<POP 0x2412e LimitCheck 0x0 ≤ D0 ≤ 0x14> {}
<MI 24134 ADD.W D0,D0> {}
<MI 24136 SWITCH D0.W> {}
<POP 24168-24172 Naked> Σ0 →0x242b8 ←0x2412a
<MI 24168 MOVEQ.L #0x00,D6> {}
<MI 2416a MOVE.L (A6+0x8),D5> {}
<MI 2416e BRA 0x242b8> {}
<POP 24172-24186 Naked> Σ0 →0x242b8 ←0x2412a
<POP 24172-24174 StackAdj> Δ-4 {[-4-]}
<MI 24174 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 24178 MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x2417a 0x239fc> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 2417e-24180 StackAdj> Δ+8 {[-4-]}
<MI 24180 MOVE.L (A7)+,D6> Δ+4 {}
<MI 24182 BRA 0x242b8> {}
<POP 24186-2418e Naked> Σ0 Δ-12 ↓ ←0x2412a
<MI 24186 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 2418a MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 2418c MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D6']}
<POP 2418e-2419e Naked> Σ-12 Δ+12 →0x24314 ←0x241a6
<MI 2418e MOVE.L (A6+0xc),-(A7)> Δ-4 {[-12-]|[4, '(A6+0xc)']}
<Call 0x24192 0x23a78> {[-12-]|[4, '(A6+0xc)']}
<POP 24196-2419a StackAdj> Δ+16 {}
<MI 2419a BRA 0x24314> {}
<POP 241a2-241a6 Naked> Σ0 →0x242b8 ←0x2412a
<MI 241a2 BRA 0x242b8> {}
<POP 241a6-241b0 Naked> Σ0 Δ-12 →0x2418e ←0x2412a
<MI 241a6 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 241aa MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']}
<MI 241ac MOVE.L D5,-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<MI 241ae BRA 0x2418e> {[4, '(A6-0x28)']|[4, 'D6']|[4, 'D5']}
<POP 241b4-241c8 Naked> Σ0 →0x242b8 ←0x2412a ←0x241ce
<POP 241b4-241b6 StackAdj> Δ-4 {[-4-]}
<MI 241b6 MOVE.L (A6-0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']}
<MI 241ba MOVE.L (A6-0x14),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x241bc 0x239fc> {[-4-]|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 241c0-241c2 StackAdj> Δ+8 {[-4-]}
<MI 241c2 MOVE.L (A7)+,D5> Δ+4 {}
<MI 241c4 BRA 0x242b8> {}
<POP 241c8-241ce Naked> Σ0 →0x242b8 ←0x2412a
<MI 241c8 MOVEQ.L #0x01,D6> {}
<MI 241ca BRA 0x242b8> {}
<POP 241ce-241d0 Naked> Σ0 →0x241b4 ←0x2412a
<MI 241ce BRA 0x241b4> {}
<POP 241d0-241e6 Naked> Σ0 →0x242b8 ←0x2412a
<POP 241d0-241d2 StackAdj> Δ-8 {[-8-]}
<MI 241d2 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']}
<MI 241d6 MOVE.L D6,-(A7)> Δ-4 {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x241d8 0x21e08> {[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 241dc-241de StackAdj> Δ+8 {[-8-]}
<MI 241de MOVE.L (A7)+,(A6-0x24)> Δ+4 {[-4-]}
<MI 241e0 MOVE.L (A7)+,(A6-0x20)> Δ+4 {}
<MI 241e2 BRA 0x242b8> {}
<POP 241e6-241f4 Naked> Σ0 →0x242b8 ←0x2412a
<MI 241e6 MOVE.L (A6-0x14),(A6-0x1c)> {}
<MI 241ea MOVE.L (A6-0x10),(A6-0x18)> {}
<MI 241f0 BRA 0x242b8> {}
<POP 241f4-24206 Naked> Σ0 Δ-20 ↓ ←0x2412a
<MI 241f4 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 241f6 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 241f8 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 241fa MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 241fe MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x24202 0x23d2a> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24206-2420c Naked> Σ-20 Δ+20 →0x242b8 ←0x2420c
<POP 24206-24208 StackAdj> Δ+20 {}
<MI 24208 BRA 0x242b8> {}
<POP 2420c-24220 Naked> Σ0 Δ-20 →0x24206 ←0x2412a
<MI 2420c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 2420e MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24210 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 24212 MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 24216 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x2421a 0x23c96> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 2421e BRA 0x24206> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24220-2422a Naked> Σ0 Δ-12 ↓ ←0x2412a
<MI 24220 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24222 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24224 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<Call 0x24226 0x23de0> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<POP 2422a-2422e Naked> Σ-12 Δ+12 ↓ ←0x24266
<POP 2422a-2422e StackAdj> Δ+12 {}
<POP 2422e-24234 Naked> Σ0 →0x242b8 ←0x24234 ←0x2424a ←0x2428c
<MI 2422e MOVEQ.L #0x01,D7> {}
<MI 24230 BRA 0x242b8> {}
<POP 24234-2424a Naked> Σ0 →0x2422e ←0x2412a
<MI 24234 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 24236 MOVE.L (A6-0x20),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']}
<MI 24238 MOVE.L (A6-0x24),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']}
<MI 2423a MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']}
<MI 2423e MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x24242 0x23c96> {[4, '(A6-0x8)']|[4, '(A6-0x20)']|[4, '(A6-0x24)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24246-24248 StackAdj> Δ+20 {}
<MI 24248 BRA 0x2422e> {}
<POP 2424a-2424c Naked> Σ0 →0x2422e ←0x2412a
<MI 2424a BRA 0x2422e> {}
<POP 2424c-24260 Naked> Σ0 Δ-12 ↓ ←0x2412a
<MI 2424c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 2424e-24250 StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 24250 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 24254 MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x24256 0x21e08> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 2425a-2425c StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x2425c 0x23de0> {[4, '(A6-0x8)']|[-8-]}
<POP 24260-24266 Naked> Σ-12 Δ+12 →0x242b8 ←0x2427c
<POP 24260-24264 StackAdj> Δ+12 {}
<MI 24264 BRA 0x242b8> {}
<POP 24266-2427c Naked> Σ0 Δ-12 →0x2422a ←0x2412a
<MI 24266 MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<POP 24268-2426a StackAdj> Δ-8 {[4, '(A6-0x8)']|[-8-]}
<MI 2426a MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']}
<MI 2426e MOVE.L D6,-(A7)> Δ-4 {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<Call 0x24270 0x21e08> {[4, '(A6-0x8)']|[-8-]|[4, '(A6+0xc)']|[4, 'D6']}
<POP 24274-24276 StackAdj> Δ+8 {[4, '(A6-0x8)']|[-8-]}
<Call 0x24276 0x23e66> {[4, '(A6-0x8)']|[-8-]}
<MI 2427a BRA 0x2422a> {[4, '(A6-0x8)']|[-8-]}
<POP 2427c-2428a Naked> Σ0 Δ-12 →0x24260 ←0x2412a
<MI 2427c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 2427e MOVE.L (A6-0x10),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']}
<MI 24282 MOVE.L (A6-0x14),-(A7)> Δ-4 {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<Call 0x24284 0x23ed6> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<MI 24288 BRA 0x24260> {[4, '(A6-0x8)']|[4, '(A6-0x10)']|[4, '(A6-0x14)']}
<POP 2428a-2428c Naked> Σ0 →0x242b8 ←0x2412a
<MI 2428a BRA 0x242b8> {}
<POP 2428c-2428e Naked> Σ0 →0x2422e ←0x2412a
<MI 2428c BRA 0x2422e> {}
<POP 2428e-242b8 Naked> Σ0 ↓ ←0x2412a
<Blob 0x2428e [24] @> Δ-24 {[«24""»]}
<POP 2429a-2429c StackAdj> Δ-4 {[«24""»]|[-4-]}
<Lit 0x2429c 24> {[«24""»]|[$$Illegal argument marker.]}
<Call 0x242b0 0x211be> {[«24""»]|[$$Illegal argument marker.]}
<POP 242b4-242b8 StackAdj> Δ+28 {}
<POP 242b8-242bc Naked> Σ0 ↓ →0x24302 ←0x24168 ←0x24172 ←0x241a2 ←0x241b4 ←0x241c8 ←0x241d0 ←0x241e6 ←0x24206 ←0x2422e ←0x24260 ←0x2428a
<MI 242b8 TST.B D7> {}
<MI 242ba BNE 0x24302> {}
<POP 242bc-24302 Naked> Σ0 ↓
<Pointer.fp 0x242bc <LVAR -0x00c @ 4(r)>> Δ-4 {[@@-12]}
<Pointer.fp 0x242c0 <LVAR -0x014 @ 4(r)>> Δ-4 {[@@-12]|[@@-20]}
<Call 0x242c2 0x23f1e> {[@@-12]|[@@-20]}
<POP 242c6-242c8 StackAdj> Δ+8 {}
<MI 242c8 MOVE.L (A6-0x34),D0> {}
<POP 0x242cc LimitCheck 0x0 ≤ D0 ≤ 0x13> {}
<MI 242d6 MOVE.L D0,D4> {}
<MI 242d8 MOVEQ.L #0x07,D3> {}
<Call 0x242da 0x1028c> {}
?muls_d3_d4
<MI 242e0 LEA.L 0x210f0,A0> {}
<MI 242e4 MOVE.L (A6-0xc),D0> {}
<POP 0x242e8 LimitCheck 0x0 ≤ D0 ≤ 0x6> {}
<MI 242f2 LEA.L (A0+D4.L),A0> {}
<MI 242f6 MOVE.B (A0+D0.L),D1> {}
<MI 242fa EXTB.W D1> {}
<MI 242fc EXTW.L D1> {}
<MI 242fe MOVE.L D1,(A6-0x34)> {}
<POP 24302-24308 Naked> Σ0 ↓ →0x2412a ←0x242b8
<MI 24302 TST.B D7> {}
<MI 24304 BEQ 0x2412a> {}
<POP 24308-24314 Naked> Σ0 ↓
<MI 24308 MOVE.L (A6-0x28),-(A7)> Δ-4 {[4, '(A6-0x28)']}
<MI 2430c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<Call 0x2430e 0x24058> {[4, '(A6-0x28)']|[4, '(A6-0x8)']}
<POP 24312-24314 StackAdj> Δ+8 {}
<POP 24314-2431e Naked> Σ0 ↓ ←0x2418e
<Pointer.fp 0x24314 <LVAR -0x008 @ 4(r)>> Δ-4 {[@@-8]}
<Call 0x24316 0x102bc> {[@@-8]}
FreeString(VAR a : String)
<POP 2431c-2431e StackAdj> Δ+4 {}
<POP 2431e-24326 Epilogue> Σ0
@ 24326
<LVAR 0x014 4(rw)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 4(rw)>
<LVAR -0x00c 4(rw)>
<LVAR -0x018 4(w)>
<POP 24326-2441e Body> Δ-12
<POP 24326-2433c Prologue> Σ0 ↓
<POP 2433c-2434e RegCacheLoad> Σ0 ↓
<POP 2434e-24376 Naked> Σ0 Δ-4 ↓
<MI 2434e CLR.L (A6+0x14)> {}
<POP 24352-24354 StackAdj> Δ-4 {[-4-]}
<MI 24354 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']}
<MI 24356 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<Call 0x24358 0x21dd0> {[-4-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<POP 2435c-2435e StackAdj> Δ+8 {[-4-]}
<MI 2435e MOVE.L (A7)+,(A6-0xc)> Δ+4 {}
<MI 24360 MOVEA.L (A6+0x8),A0> {}
<MI 24364 MOVE.W (A0),D0> {}
<MI 24366 EXTW.L D0> {}
<MI 24368 ADDQ.L #0x1,D0> {}
<MI 2436a MOVE.L D0,(A6-0x8)> {}
<MI 2436c NEG.L D0> {}
<MI 2436e ADD.L (A6-0xc),D0> {}
<MI 24370 ADDQ.L #0x1,D0> {}
<MI 24372 MOVE.L D0,-(A7)> Δ-4 {[4, 'D0']}
<MI 24374 MOVEQ.L #0x01,D0> {[4, 'D0']}
<POP 24376-2437c Naked> Σ-4 ↓ →0x24414 ←0x2440c
<MI 24376 CMP.L (A7),D0> {[-4-]}
<MI 24378 BGT 0x24414> {[-4-]}
<POP 2437c-24388 Naked> Σ-4 Δ-8 ↓
<MI 2437c MOVE.L D0,(A6-0x18)> {[-4-]}
<MI 24380 MOVE.L D0,-(A7)> Δ-4 {[-4-]|[4, 'D0']}
<MI 24382 MOVEQ.L #0x00,D6> {[-4-]|[4, 'D0']}
<MI 24384 MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<MI 24386 MOVEQ.L #0x01,D5> {[-4-]|[4, 'D0']|[4, '(A6-0x8)']}
<POP 24388-2438c Naked> Σ-12 ↓ →0x243d4 ←0x243ce
<MI 24388 CMP.L (A7),D5> {[-12-]}
<MI 2438a BGT 0x243d4> {[-12-]}
<POP 2438c-24394 Naked> Σ-12 ↓ →0x24398
<MI 2438c CMPI.L #0x00000001,D5> {[-12-]}
<MI 24392 BNE 0x24398> {[-12-]}
<POP 24394-24398 Naked> Σ-12 →0x243b0
<MI 24394 MOVEQ.L #0x2f,D7> {[-12-]}
<MI 24396 BRA 0x243b0> {[-12-]}
<POP 24398-243b0 Naked> Σ-12 ↓ ←0x2438c
<MI 24398 MOVEA.L (A6+0x8),A0> {[-12-]}
<MI 2439c MOVE.L D5,D0> {[-12-]}
<MI 2439e SUBQ.L #0x1,D0> {[-12-]}
<MI 243a0 SUBQ.L #0x1,D0> {[-12-]}
<POP 0x243a2 LimitCheck 0x0 ≤ D0 ≤ 0x7d> {[-12-]}
<MI 243ac MOVE.B (A0+D0.L+#0x2),D7> {[-12-]}
<POP 243b0-243ca Naked> Σ-12 ↓ →0x243ce ←0x24394
<POP 243b0-243b2 StackAdj> Δ-2 {[-14-]}
<MI 243b2 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']}
<MI 243b4 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 243b6 MOVE.L (A7+0xe),D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 243ba ADD.L D5,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 243bc SUBQ.L #0x1,D0> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 243be MOVE.L D0,-(A7)> Δ-4 {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<Call 0x243c0 0x239bc> {[-14-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D0']}
<POP 243c4-243c6 StackAdj> Δ+12 {[-14-]}
<MI 243c6 CMP.B (A7)+,D7> Δ+2 {[-12-]}
<MI 243c8 BEQ 0x243ce> {[-12-]}
<POP 243ca-243ce Naked> Σ-12 Δ+4 →0x243d6
<POP 243ca-243cc StackAdj> Δ+4 {[-8-]}
<MI 243cc BRA 0x243d6> {[-8-]}
<POP 243ce-243d4 Naked> Σ-12 ↓ →0x24388 ←0x243b0
<MI 243ce MOVE.L D5,D6> {[-12-]}
<MI 243d0 ADDQ.L #0x1,D5> {[-12-]}
<MI 243d2 BVC 0x24388> {[-12-]}
<POP 243d4-243d6 Naked> Σ-12 Δ+4 ↓ ←0x24388
<POP 243d4-243d6 StackAdj> Δ+4 {[-8-]}
<POP 243d6-243da Naked> Σ-8 ↓ →0x2440c ←0x243ca
<MI 243d6 CMP.L (A6-0x8),D6> {[-8-]}
<MI 243d8 BNE 0x2440c> {[-8-]}
<POP 243da-243e4 Naked> Σ-8 ↓ →0x2440a
<MI 243da MOVE.L (A7),D0> {[-8-]}
<MI 243dc MOVE.L D0,D1> {[-8-]}
<MI 243de ADD.L (A6-0x8),D1> {[-8-]}
<MI 243e0 CMP.L (A6-0xc),D1> {[-8-]}
<MI 243e2 BGE 0x2440a> {[-8-]}
<POP 243e4-243fa Naked> Σ-8 ↓ →0x24400
<POP 243e4-243e6 StackAdj> Δ-2 {[-10-]}
<MI 243e6 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']}
<MI 243e8 MOVE.L (A6+0xc),-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']}
<MI 243ea MOVE.L D1,-(A7)> Δ-4 {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<Call 0x243ec 0x239bc> {[-10-]|[4, '(A6+0x10)']|[4, '(A6+0xc)']|[4, 'D1']}
<POP 243f0-243f2 StackAdj> Δ+12 {[-10-]}
<MI 243f2 MOVE.B (A7)+,D7> Δ+2 {[-8-]}
<MI 243f4 CMPI.B #0x2f,D7> {[-8-]}
<MI 243f8 BEQ 0x24400> {[-8-]}
<POP 243fa-24400 Naked> Σ-8 ↓ →0x24408
<MI 243fa CMPI.B #0x3d,D7> {[-8-]}
<MI 243fe BNE 0x24408> {[-8-]}
<POP 24400-24408 Naked> Σ-8 Δ+8 →0x24416 ←0x243e4 ←0x2440a
<MI 24400 MOVE.L D0,(A6+0x14)> {[-8-]}
<POP 24404-24406 StackAdj> Δ+8 {}
<MI 24406 BRA 0x24416> {}
<POP 24408-2440a Naked> Σ-8 →0x2440c ←0x243fa
<MI 24408 BRA 0x2440c> {[-8-]}
<POP 2440a-2440c Naked> Σ-8 →0x24400 ←0x243da
<MI 2440a BRA 0x24400> {[-8-]}
<POP 2440c-24414 Naked> Σ-8 Δ+4 ↓ →0x24376 ←0x243d6 ←0x24408
<MI 2440c MOVE.L (A7)+,D0> Δ+4 {[-4-]}
<MI 2440e ADDQ.L #0x1,D0> {[-4-]}
<MI 24410 BVC 0x24376> {[-4-]}
<POP 24414-24416 Naked> Σ-4 Δ+4 ↓ ←0x24376
<POP 24414-24416 StackAdj> Δ+4 {}
<POP 24416-2441e Epilogue> Σ0 ←0x24400
@ 2441e
<LVAR 0x018 4(r)>
<LVAR 0x014 4(r)>
<LVAR 0x010 4(r)>
<LVAR 0x00c 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x008 4(rw)>
<LVAR -0x014 4(rw)>
<LVAR -0x018 4(rw)>
<LVAR -0x01c 4(rw)>
<POP 2441e-24506 Body> Δ-12
<POP 2441e-24434 Prologue> Σ0 ↓
<POP 24434-24444 RegCacheLoad> Σ0 ↓
<POP 24444-2446a Naked> Σ0 ↓ →0x244fe
<MI 24444 MOVEA.L (A6+0x8),A0> {}
<MI 24448 CLR.B (A0)> {}
<MI 2444a MOVEA.L (A6+0xc),A1> {}
<MI 2444e MOVE.L #0x01,(A1)> {}
<POP 24450-24452 StackAdj> Δ-8 {[-8-]}
<MI 24452 MOVE.L (A6+0x18),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']}
<MI 24456 MOVE.L (A6+0x14),-(A7)> Δ-4 {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<Call 0x2445a 0x21e08> {[-8-]|[4, '(A6+0x18)']|[4, '(A6+0x14)']}
<POP 2445e-24460 StackAdj> Δ+8 {[-8-]}
<MI 24460 MOVE.L (A7)+,(A6-0x1c)> Δ+4 {[-4-]}
<MI 24462 MOVE.L (A7)+,(A6-0x18)> Δ+4 {}
<MI 24464 TST.L (A6-0x1c)> {}
<MI 24466 BEQ 0x244fe> {}
<POP 2446a-24480 Naked> Σ0 ↓ →0x244fe
<POP 2446a-2446c StackAdj> Δ-4 {[-4-]}
<MI 2446c MOVE.L (A6-0x18),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']}
<MI 2446e MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 24470 MOVE.L (A6+0x10),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<Call 0x24474 0x24326> {[-4-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, '(A6+0x10)']}
<POP 24478-2447a StackAdj> Δ+12 {[-4-]}
<MI 2447a MOVE.L (A7)+,(A6-0x14)> Δ+4 {}
<MI 2447e BEQ 0x244fe> {}
<POP 24480-244a0 Naked> Σ0 Δ-4 ↓
<MI 24480 MOVE.B #0x01,(A0)> {}
<MI 24482 PEA.L (A1)> Δ-4 {[4, '^(A1)']}
<Call 0x24484 0x102b8> {[4, '^(A1)']}
NewString(VAR a : String)
<MI 2448a MOVE.L (A6-0x18),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']}
<MI 2448c MOVE.L (A6-0x1c),-(A7)> Δ-4 {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<Call 0x2448e 0x21dd0> {[4, '^(A1)']|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<POP 24492-24494 StackAdj> Δ+8 {[4, '^(A1)']}
<MI 24494 MOVE.L (A7)+,(A6-0x8)> Δ+4 {}
<MI 24496 MOVE.L (A6-0x14),D0> {}
<MI 2449a ADDQ.L #0x1,D0> {}
<MI 2449c MOVE.L (A6-0x8),-(A7)> Δ-4 {[4, '(A6-0x8)']}
<MI 2449e MOVE.L D0,D5> {[4, '(A6-0x8)']}
<POP 244a0-244a4 Naked> Σ-4 ↓ →0x244fc ←0x244f8
<MI 244a0 CMP.L (A7),D5> {[-4-]}
<MI 244a2 BGT 0x244fc> {[-4-]}
<POP 244a4-244ba Naked> Σ-4 ↓ →0x244f8
<POP 244a4-244a6 StackAdj> Δ-2 {[-6-]}
<MI 244a6 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']}
<MI 244a8 MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 244aa MOVE.L D5,-(A7)> Δ-4 {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<Call 0x244ac 0x239bc> {[-6-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D5']}
<POP 244b0-244b2 StackAdj> Δ+12 {[-6-]}
<MI 244b2 MOVE.B (A7)+,D0> Δ+2 {[-4-]}
<MI 244b4 CMPI.B #0x3d,D0> {[-4-]}
<MI 244b8 BNE 0x244f8> {[-4-]}
<POP 244ba-244c2 Naked> Σ-4 Δ-4 ↓
<MI 244ba MOVE.L D5,D0> {[-4-]}
<MI 244bc ADDQ.L #0x1,D0> {[-4-]}
<MI 244be MOVE.L (A6-0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x8)']}
<MI 244c0 MOVE.L D0,D7> {[-4-]|[4, '(A6-0x8)']}
<POP 244c2-244c6 Naked> Σ-8 ↓ →0x244f4 ←0x244e0
<MI 244c2 CMP.L (A7),D7> {[-8-]}
<MI 244c4 BGT 0x244f4> {[-8-]}
<POP 244c6-244dc Naked> Σ-8 ↓ →0x244e0
<POP 244c6-244c8 StackAdj> Δ-2 {[-10-]}
<MI 244c8 MOVE.L (A6-0x18),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']}
<MI 244ca MOVE.L (A6-0x1c),-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']}
<MI 244cc MOVE.L D7,-(A7)> Δ-4 {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<Call 0x244ce 0x239bc> {[-10-]|[4, '(A6-0x18)']|[4, '(A6-0x1c)']|[4, 'D7']}
<POP 244d2-244d4 StackAdj> Δ+12 {[-10-]}
<MI 244d4 MOVE.B (A7)+,D6> Δ+2 {[-8-]}
<MI 244d6 CMPI.B #0x2f,D6> {[-8-]}
<MI 244da BNE 0x244e0> {[-8-]}
<POP 244dc-244e0 Naked> Σ-8 Δ+8 →0x244fe
<POP 244dc-244de StackAdj> Δ+8 {}
<MI 244de BRA 0x244fe> {}
<POP 244e0-244f4 Naked> Σ-8 ↓ →0x244c2 ←0x244c6
<MI 244e0 MOVEA.L (A6+0xc),A0> {[-8-]}
<MI 244e4 MOVE.L (A0),-(A7)> Δ-4 {[-8-]|[4, '(A0)']}
<MI 244e6 MOVE.B D6,-(A7)> Δ-2 {[-8-]|[4, '(A0)']|[2, 'D6']}
<Call 0x244e8 0x102c0> {[-8-]|[4, '(A0)']|[2, 'D6']}
AppendChar(MOD b : String; a : char)
<POP 244ee-244f0 StackAdj> Δ+6 {[-8-]}
<MI 244f0 ADDQ.L #0x1,D7> {[-8-]}
<MI 244f2 BVC 0x244c2> {[-8-]}
<POP 244f4-244f8 Naked> Σ-8 Δ+8 →0x244fe ←0x244c2
<POP 244f4-244f6 StackAdj> Δ+8 {}
<MI 244f6 BRA 0x244fe> {}
<POP 244f8-244fc Naked> Σ-4 ↓ →0x244a0 ←0x244a4
<MI 244f8 ADDQ.L #0x1,D5> {[-4-]}
<MI 244fa BVC 0x244a0> {[-4-]}
<POP 244fc-244fe Naked> Σ-4 Δ+4 ↓ ←0x244a0
<POP 244fc-244fe StackAdj> Δ+4 {}
<POP 244fe-24506 Epilogue> Σ0 ←0x24444 ←0x2446a ←0x244dc ←0x244f4
@ 24506
<LVAR 0x00c @ 4(r)>
<LVAR 0x008 4(r)>
<LVAR -0x010 @ 1(r)>
<POP 24506-245a4 Body>
<POP 24506-2451c Prologue> Σ0 ↓
<POP 2451c-2452a RegCacheLoad> Σ0 ↓
<POP 2452a-24542 Naked> Σ0 ↓ →0x24592
<MI 2452a MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 2452c MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Pointer.fp 0x2452e <LVAR -0x010 @ 1(r)>> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<Call 0x24532 0x20a00> {[4, '(A6+0xc)']|[4, '(A6+0x8)']|[@@-16]}
<POP 24538-2453c StackAdj> Δ+12 {}
<MI 2453c TST.B (A6-0x10)> {}
<MI 24540 BNE 0x24592> {}
<POP 24542-2455c Naked> Σ0 ↓
<MI 24542 MOVE.L 0x260e4,D7> {}
<POP 24544-24546 StackAdj> Δ-4 {[-4-]}
<MI 24546 MOVE.L (A6+0x8),-(A7)> Δ-4 {[-4-]|[4, '(A6+0x8)']}
<Call 0x24548 0x215ca> {[-4-]|[4, '(A6+0x8)']}
<POP 2454c-2454e StackAdj> Δ+4 {[-4-]}
<MI 2454e MOVE.L (A7)+,D6> Δ+4 {}
<MI 24550 MOVE.L (A6+0xc),-(A7)> Δ-4 {[4, '(A6+0xc)']}
<MI 24552 MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<Call 0x24554 0x23880> {[4, '(A6+0xc)']|[4, '(A6+0x8)']}
<POP 24558-2455a StackAdj> Δ+8 {}
<MI 2455a MOVE.L 0x260e4,D5> {}
<POP 2455c-2457a Naked> Σ0 ↓ →0x24586 ←0x24586
<MI 2455c MOVE.L D7,D0> {}
<MI 2455e SUBQ.L #0x1,D0> {}
<POP 0x24560 LimitCheck 0x0 ≤ D0 ≤ 0xfff> {}
<MI 2456a LEA.L 0x250dc,A0> {}
<MI 24570 MOVE.B (A0+D0.L+#0x8),D0> {}
<MI 24574 CMPI.B #0x25,D0> {}
<MI 24578 BNE 0x24586> {}
<POP 2457a-24586 Naked> Σ0 ↓
<MI 2457a MOVE.L D7,0x260e4> {}
<MI 2457c MOVE.L (A6+0x8),-(A7)> Δ-4 {[4, '(A6+0x8)']}
<MI 2457e MOVE.L D6,-(A7)> Δ-4 {[4, '(A6+0x8)']|[4, 'D6']}
<Call 0x24580 0x240de> {[4, '(A6+0x8)']|[4, 'D6']}
<POP 24584-24586 StackAdj> Δ+8 {}
<POP 24586-24590 Naked> Σ0 ↓ →0x2455c ←0x2455c
<MI 24586 ADDQ.L #0x1,D7> {}
<MI 24588 CMP.L 0x260e8,D7> {}
<MI 2458e BLE 0x2455c> {}
<POP 24590-24592 Naked> Σ0 ↓
<MI 24590 MOVE.L D5,0x260e4> {}
<POP 24592-2459c Naked> Σ0 ↓ ←0x2452a
<Pointer.fp 0x24592 <LVAR 0x00c @ 4(r)>> Δ-4 {[@@12]}
<Call 0x24594 0x102bc> {[@@12]}
FreeString(VAR a : String)
<POP 2459a-2459c StackAdj> Δ+4 {}
<POP 2459c-245a4 Epilogue> Σ0
@ 245a4
<LVAR -0x006 @ 4(r)>
<LVAR -0x00a @ 4(rw)>
<LVAR -0x00b 1(w)>
<LVAR -0x00c @ 1(r)>
<POP 245a4-248b6 Body> Δ+148
<POP 245a4-245ba Prologue> Σ0 ↓
<POP 245ba-245c8 RegCacheLoad> Σ0 ↓
<POP 245c8-245ee Naked> Σ0 ↓ →0x24898 ←0x24898
<MI 245c8 MOVE.L 0x260e4,D7> {}
<Pointer.fp 0x245ca <LVAR -0x006 @ 4(r)>> Δ-4 {[@@-6]}
<Pointer.fp 0x245cc <LVAR -0x00c @ 1(r)>> Δ-4 {[@@-6]|[@@-12]}
<Call 0x245d0 0x2151e> {[@@-6]|[@@-12]}
<POP 245d4-245d6 StackAdj> Δ+8 {}
<MI 245d6 MOVE.L 0x260e4,D6> {}
<POP 245d8-245da StackAdj> Δ-4 {[-4-]}
<MI 245da MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Call 0x245dc 0x215ca> {[-4-]|[4, '(A6-0x6)']}
<POP 245e0-245e2 StackAdj> Δ+4 {[-4-]}
<MI 245e2 MOVE.L (A7)+,D0> Δ+4 {}
<MI 245e4 CMPI.L #0xffffffff,D0> {}
<MI 245ea BEQ 0x24898> {}
<POP 245ee-24618 Naked> Σ0 ↓ →0x24626
<POP 245ee-245f0 StackAdj> Δ-4 {[-4-]}
<MI 245f0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[-4-]|[4, '(A6-0x6)']}
<Const 0x245f2 0x0.4> Δ-4 {[-4-]|[4, '(A6-0x6)']|[##0]}
<Call 0x245f6 0x21ee6> {[-4-]|[4, '(A6-0x6)']|[##0]}
<POP 245fa-245fc StackAdj> Δ+8 {[-4-]}
<MI 245fc MOVE.L (A7),(A6-0xa)> {[-4-]}
<POP 245fe-24600 StackAdj> Δ+2 {[-2-]}
<MI 24600 MOVE.L (A6-0xa),-(A7)> Δ-4 {[-2-]|[4, '(A6-0xa)']}
<Call 0x24602 0x237c8> {[-2-]|[4, '(A6-0xa)']}
<POP 24606-24608 StackAdj> Δ+4 {[-2-]}
<MI 24608 MOVE.B (A7)+,D0> Δ+2 {}
<MI 2460a EXTB.W D0> {}
<POP 0x2460c LimitCheck 0x0 ≤ D0 ≤ 0x2b> {}
<MI 24610 MOVE.B D0,(A6-0xb)> {}
<MI 24614 TST.B D0> {}
<MI 24616 BNE 0x24626> {}
<POP 24618-24626 Naked> Σ0 →0x24890
<MI 24618 MOVE.L (A6-0xa),-(A7)> Δ-4 {[4, '(A6-0xa)']}
<MI 2461a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<Call 0x2461c 0x24506> {[4, '(A6-0xa)']|[4, '(A6-0x6)']}
<POP 24620-24622 StackAdj> Δ+8 {}
<MI 24622 BRA 0x24890> {}
<POP 24626-2465c Naked> Σ0 ↓ →0x24688 ←0x245ee
<Pointer.fp 0x24626 <LVAR -0x00a @ 4(rw)>> Δ-4 {[@@-10]}
<Call 0x24628 0x102bc> {[@@-10]}
FreeString(VAR a : String)
<POP 2462e-24630 StackAdj> Δ+4 {}
<MI 24630 MOVE.B D0,D1> {}
<MI 24632 EXTB.W D1> {}
<POP 0x24634 LimitCheck 0x0 ≤ D1 ≤ 0x2b> {}
<MI 24638 LEA.L 0x210c0,A0> {}
<MI 2463c MOVE.W D1,D0> {}
<MI 2463e EXTW.L D0> {}
<MI 24640 MOVE.L D0,D2> {}
<MI 24642 ROR.L #0x1,D2> {}
<MI 24644 ADDA.W D2,A0> {}
<MI 24646 SWAP.W D2> {}
<MI 24648 ROL.W #0x3,D2> {}
<MI 2464a CLR.L D3> {}
<MI 2464c MOVE.B (A0),D3> {}
<MI 2464e LSL.B D2,D3> {}
<MI 24650 LSR.B #0x4,D3> {}
<MI 24652 MOVE.L D3,D5> {}
<MI 24654 CMPI.L #0x0000000f,D5> {}
<MI 2465a BEQ 0x24688> {}
<POP 2465c-24688 Naked> Σ0 ↓
<MI 2465c MOVE.L D0,D4> {}
<MI 2465e MOVEQ.L #0x0a,D3> {}
<Call 0x24660 0x1028c> {}
?muls_d3_d4
<MI 24666 LEA.L 0x20ef2,A0> {}
<Blob 0x2466a [10] (A0+D4.W)> Δ-10 {[«10»]}
<MI 2467c MOVE.L (A6-0x6),-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']}
<MI 2467e MOVE.L D5,-(A7)> Δ-4 {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<Call 0x24680 0x21600> {[«10»]|[4, '(A6-0x6)']|[4, 'D5']}
<POP 24684-24688 StackAdj> Δ+18 {}
<POP 24688-2469c Naked> Σ0 →0x246f2 →0x246fe →0x24710 →0x2471e →0x24882 →0x24726 →0x2472a →0x24732 →0x2473a →0x24742 →0x2474a →0x24752 →0x2475a →0x24762 →0x2476a →0x24772 →0x2477c →0x24786 →0x24790 →0x2479a →0x247a4 →0x247ae →0x247b8 →0x247c2 →0x247cc →0x247d6 →0x247e0 →0x247ea →0x247f4 →0x247fe →0x24808 →0x24812 →0x2481c →0x24826 →0x24830 →0x2483a →0x24844 →0x2484e →0x24854 →0x2485e →0x24868 →0x24872 →0x24878 ←0x24626
<MI 24688 SUBQ.W #0x1,D1> {}
<POP 0x2468a LimitCheck 0x0 ≤ D1 ≤ 0x2a> {}
<MI 24692 ADD.W D1,D1> {}
<MI 24694 SWITCH D1.W> {}
<POP 246f2-246f8 Naked> Σ0 Δ-4 ↓ ←0x24688
<MI 246f2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x246f4 0x2206e> {[4, '(A6-0x6)']}
<POP 246f8-246fe Naked> Σ-4 Δ+4 →0x24890 ←0x24710 ←0x2471e ←0x2472a ←0x24732 ←0x2473a ←0x24742 ←0x2474a ←0x24752 ←0x2475a ←0x24762 ←0x2476a ←0x24772 ←0x2477c ←0x24786 ←0x24790 ←0x2479a ←0x247a4 ←0x247ae ←0x247b8 ←0x247c2 ←0x247cc ←0x247d6 ←0x247e0 ←0x247ea ←0x247f4 ←0x247fe ←0x24808 ←0x24812 ←0x2481c ←0x24826 ←0x24830 ←0x2483a ←0x24844 ←0x24854 ←0x2485e ←0x24868 ←0x24878
<POP 246f8-246fa StackAdj> Δ+4 {}
<MI 246fa BRA 0x24890> {}
<POP 246fe-24710 Naked> Σ0 →0x24890 ←0x24688
<MI 246fe CLR.B -(A7)> Δ-2 {[#0]}
<Const 0x24700 0x1.4> Δ-4 {[#0]|[##1]}
<Call 0x24704 0x103b8> {[#0]|[##1]}
PopProgram(status : Byte; msg : String)
<POP 2470a-2470c StackAdj> Δ+6 {}
<MI 2470c BRA 0x24890> {}
<POP 24710-2471e Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<POP 24710-24712 StackAdj> Δ-4 {[-4-]}
<Call 0x24712 0x102ac> {[-4-]}
FSCALL_102ac
<Call 0x24718 0x22044> {[-4-]}
<MI 2471c BRA 0x246f8> {[-4-]}
<POP 2471e-24726 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 2471e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24720 0x22248> {[4, '(A6-0x6)']}
<MI 24724 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 24726-2472a Naked> Σ0 →0x24890 ←0x24688
<MI 24726 BRA 0x24890> {}
<POP 2472a-24732 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 2472a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2472c 0x2256e> {[4, '(A6-0x6)']}
<MI 24730 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 24732-2473a Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 24732 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24734 0x226da> {[4, '(A6-0x6)']}
<MI 24738 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 2473a-24742 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 2473a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2473c 0x227c8> {[4, '(A6-0x6)']}
<MI 24740 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 24742-2474a Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 24742 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24744 0x22bbc> {[4, '(A6-0x6)']}
<MI 24748 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 2474a-24752 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 2474a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2474c 0x22c34> {[4, '(A6-0x6)']}
<MI 24750 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 24752-2475a Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 24752 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24754 0x22cac> {[4, '(A6-0x6)']}
<MI 24758 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 2475a-24762 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 2475a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2475c 0x22cd8> {[4, '(A6-0x6)']}
<MI 24760 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 24762-2476a Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 24762 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24764 0x22dd8> {[4, '(A6-0x6)']}
<MI 24768 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 2476a-24772 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 2476a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2476c 0x22ebe> {[4, '(A6-0x6)']}
<MI 24770 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 24772-2477c Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 24772 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24774 0x22eea> {[4, '(A6-0x6)']}
<MI 24778 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 2477c-24786 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 2477c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2477e 0x22f36> {[4, '(A6-0x6)']}
<MI 24782 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 24786-24790 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 24786 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24788 0x22f82> {[4, '(A6-0x6)']}
<MI 2478c BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 24790-2479a Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 24790 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24792 0x22fce> {[4, '(A6-0x6)']}
<MI 24796 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 2479a-247a4 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 2479a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2479c 0x2301a> {[4, '(A6-0x6)']}
<MI 247a0 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 247a4-247ae Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 247a4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x247a6 0x23066> {[4, '(A6-0x6)']}
<MI 247aa BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 247ae-247b8 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 247ae MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x247b0 0x230b2> {[4, '(A6-0x6)']}
<MI 247b4 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 247b8-247c2 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 247b8 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x247ba 0x230fc> {[4, '(A6-0x6)']}
<MI 247be BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 247c2-247cc Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 247c2 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x247c4 0x23146> {[4, '(A6-0x6)']}
<MI 247c8 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 247cc-247d6 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 247cc MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x247ce 0x23190> {[4, '(A6-0x6)']}
<MI 247d2 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 247d6-247e0 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 247d6 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x247d8 0x231da> {[4, '(A6-0x6)']}
<MI 247dc BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 247e0-247ea Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 247e0 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x247e2 0x23224> {[4, '(A6-0x6)']}
<MI 247e6 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 247ea-247f4 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 247ea MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x247ec 0x2326e> {[4, '(A6-0x6)']}
<MI 247f0 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 247f4-247fe Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 247f4 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x247f6 0x232b8> {[4, '(A6-0x6)']}
<MI 247fa BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 247fe-24808 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 247fe MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24800 0x23302> {[4, '(A6-0x6)']}
<MI 24804 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 24808-24812 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 24808 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2480a 0x23346> {[4, '(A6-0x6)']}
<MI 2480e BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 24812-2481c Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 24812 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24814 0x2338c> {[4, '(A6-0x6)']}
<MI 24818 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 2481c-24826 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 2481c MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2481e 0x233c2> {[4, '(A6-0x6)']}
<MI 24822 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 24826-24830 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 24826 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24828 0x23452> {[4, '(A6-0x6)']}
<MI 2482c BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 24830-2483a Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 24830 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24832 0x234c4> {[4, '(A6-0x6)']}
<MI 24836 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 2483a-24844 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 2483a MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2483c 0x2282a> {[4, '(A6-0x6)']}
<MI 24840 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 24844-2484e Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 24844 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24846 0x22894> {[4, '(A6-0x6)']}
<MI 2484a BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 2484e-24854 Naked> Σ0 →0x24890 ←0x24688
<Call 0x2484e 0x22866> {}
<MI 24852 BRA 0x24890> {}
<POP 24854-2485e Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 24854 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24856 0x23536> {[4, '(A6-0x6)']}
<MI 2485a BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 2485e-24868 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 2485e MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24860 0x235b8> {[4, '(A6-0x6)']}
<MI 24864 BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 24868-24872 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 24868 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2486a 0x23638> {[4, '(A6-0x6)']}
<MI 2486e BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 24872-24878 Naked> Σ0 →0x24890 ←0x24688
<Call 0x24872 0x236fc> {}
<MI 24876 BRA 0x24890> {}
<POP 24878-24882 Naked> Σ0 Δ-4 →0x246f8 ←0x24688
<MI 24878 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x2487a 0x2371c> {[4, '(A6-0x6)']}
<MI 2487e BRA 0x246f8> {[4, '(A6-0x6)']}
<POP 24882-24890 Naked> Σ0 ←0x24688
<POP 24882-24890 Bailout> {}
<MI 24882 MOVEA.L (A5+0x8),A7>
<MI 24886 MOVEA.W #0x0,A6>
<MI 2488a JMP 0x24a9a>
<POP 24890-24898 Naked> Σ0 ↓ ←0x24618 ←0x246f8 ←0x246fe ←0x24726 ←0x2484e ←0x24872
<MI 24890 MOVE.L (A6-0x6),-(A7)> Δ-4 {[4, '(A6-0x6)']}
<Call 0x24892 0x2117c> {[4, '(A6-0x6)']}
<POP 24896-24898 StackAdj> Δ+4 {}
<POP 24898-248ae Naked> Σ0 ↓ →0x245c8 ←0x245c8
<MI 24898 MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']}
<MI 2489a MOVE.L D6,-(A7)> Δ-4 {[4, 'D6']|[4, 'D6']}
<MI 2489c SUB.L D7,(A7)> {[4, 'D6']|[-4-]}
<Call 0x2489e 0x21712> {[4, 'D6']|[-4-]}
<POP 248a2-248a4 StackAdj> Δ+8 {}
<MI 248a4 MOVE.L D7,0x260e4> {}
<MI 248a6 TST.B (A6-0xc)> {}
<MI 248aa BEQ 0x245c8> {}
<POP 248ae-248b6 Epilogue> Σ0
@ 248b6
START
<POP 248b6--0001 Body>
<POP 248b6-248c0 Prologue> Σ0
<POP 248c0-248f0 Naked> Σ0 ↓ →0x24958
<MI 248c0 MOVE.L #0x1,0x2610e> {}
<POP 248ca-248cc StackAdj> Δ-4 {[-4-]}
<Call 0x248cc 0x103c4> {[-4-]}
GetArgv() : String
<MI 248d2 MOVE.L (A7)+,0x26112> Δ+4 {}
<Const 0x248d8 0x260ec.4> Δ-4 {[##155884]}
<Call 0x248de 0x20acc> {[##155884]}
<POP 248e4-248e6 StackAdj> Δ+4 {}
<MI 248e6 MOVEA.L 0x26112,A0> {}
<MI 248ec TST.W (A0)> {}
<MI 248ee BLE 0x24958> {}
<POP 248f0-24958 Naked> Σ0 →0x24992
<Blob 0x248f0 [8] @> Δ-8 {[«8""»]}
<Blob 0x24900 [8] @> Δ-8 {[«8""»]|[«8""»]}
<POP 24910-24912 StackAdj> Δ-8 {[«8""»]|[«8""»]|[-8-]}
<Lit 0x24912 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<POP 24924-24926 StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[-4-]}
<POP 24926-24927 StackAdj> Δ+4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]}
<Blob 0x24927 [4] 0x26112> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]}
<POP 2492c-2492e StackAdj> Δ-4 {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[-4-]}
<Lit 0x2492e 7> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
<Call 0x24942 0x102d4> {[«8""»]|[«8""»]|[-4-]|[$$[INIT][]|[«4»]|[$$][BYE];]}
StringCat3(a, b, c : String) : String
<POP 24948-2494c StackAdj> Δ+12 {[«8""»]|[«8""»]|[-4-]}
<MI 2494c MOVE.L (A7)+,0x26112> Δ+4 {[«8""»]|[«8""»]}
<POP 24952-24956 StackAdj> Δ+16 {}
<MI 24956 BRA 0x24992> {}
<POP 24958-24992 Naked> Σ0 ↓ ←0x248c0
<Const 0x24958 0x26112.4> Δ-4 {[##155922]}
<Call 0x2495e 0x102bc> {[##155922]}
FreeString(VAR a : String)
<POP 24964-24965 StackAdj> Δ+4 ↓ {}
<Blob 0x24965 [8] @> Δ-8 {[«8""»]}
<POP 24974-24976 StackAdj> Δ-4 {[«8""»]|[-4-]}
<Lit 0x24976 7> {[«8""»]|[$$[INIT];]}
<MI 2498a MOVE.L (A7)+,0x26112> Δ+4 {[«8""»]}
<POP 24990-24992 StackAdj> Δ+8 {}
<POP 24992-2499a Naked> Σ0 ↓ ←0x248f0
<MI 24992 MOVE.B #0x01,0x2611c> {}
<POP 2499a-249a2 Naked> Σ0 ↓ →0x249ac ←0x24aa8
<MI 2499a TST.B 0x2611c> {}
<MI 249a0 BEQ 0x249ac> {}
<POP 249a2-249ac Naked> Σ0 →0x24a5a
<MI 249a2 CLR.B 0x2611c> {}
<MI 249a8 BRA 0x24a5a> {}
<POP 249ac-24a5a Naked> Σ0 ↓ ←0x2499a
<Blob 0x249ac [10] 0x260f6> Δ-10 {[«10»]}
<Blob 0x249ba [2] @> Δ-2 {[«10»]|[«2""»]}
<POP 249be-249c2 StackAdj> Δ-12 {[«10»]|[«2""»]|[-12-]}
<Lit 0x249c2> {[«10»]|[«2""»]|[-8-]|[$$…]}
<Pointer.sp 0x249c2 14> Δ-4
<Const 0x249c6 0x1.2> Δ-2
<Const 0x249ca 0xa.2> Δ-2
<Call 0x249ce 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 249d4-249d6 StackAdj> Δ+8
<POP 249d4-249d6 StackAdj> Δ-4 {[«10»]|[«2""»]|[-8-]|[$$…]|[-4-]}
<Lit 0x249d6 2> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
<Call 0x249ea 0x102d0> {[«10»]|[«2""»]|[-8-]|[$$…]|[$$>_]}
StringCat2(a, b : String) : String
<POP 249f0-249f2 StackAdj> Δ+8 {[«10»]|[«2""»]|[-8-]}
<Call 0x249f2 0x103e4> {[«10»]|[«2""»]|[-8-]}
AskConsoleString(prompt : String) : String
<POP 249f8-249fa StackAdj> Δ+4 {[«10»]|[«2""»]|[-4-]}
<MI 249fa MOVE.L (A7)+,0x26118> Δ+4 {[«10»]|[«2""»]}
<POP 24a00-24a02 StackAdj> Δ+8 {[-4-]}
<POP 24a02-24a03 StackAdj> Δ+4 {}
<Blob 0x24a03 [4] 0x26118> Δ-4 {[«4»]}
<Call 0x24a08 0x21416> {[«4»]}
<POP 24a0c-24a0e StackAdj> Δ+2 {[-2-]}
<POP 24a0e-24a0f StackAdj> Δ+2 {}
<Blob 0x24a0f [2] @> Δ-2 {[«2""»]}
<Blob 0x24a12 [2] @> Δ-2 {[«2""»]|[«2""»]}
<POP 24a16-24a18 StackAdj> Δ-8 {[«2""»]|[«2""»]|[-8-]}
<Lit 0x24a18 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<POP 24a2a-24a2c StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[-4-]}
<POP 24a2c-24a2d StackAdj> Δ+4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]}
<Blob 0x24a2d [4] 0x26118> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]}
<POP 24a32-24a34 StackAdj> Δ-4 {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[-4-]}
<Lit 0x24a34 2> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
<Call 0x24a48 0x102d4> {[«2""»]|[«2""»]|[-4-]|[$$[ ]|[«4»]|[$$];]}
StringCat3(a, b, c : String) : String
<POP 24a4e-24a52 StackAdj> Δ+12 {[«2""»]|[«2""»]|[-4-]}
<MI 24a52 MOVE.L (A7)+,0x26112> Δ+4 {[«2""»]|[«2""»]}
<POP 24a58-24a5a StackAdj> Δ+4 {}
<POP 24a5a-24a86 Naked> Σ0 ↓ ←0x249a2
<MI 24a5a CLR.B 0x26116> {}
<MI 24a60 MOVE.L #0x1,0x260e4> {}
<MI 24a6a CLR.L 0x260e8> {}
<POP 24a70-24a72 StackAdj> Δ-4 {[-4-]}
<Blob 0x24a72 [4] 0x26112> Δ-4 {[-4-]|[«4»]}
<Call 0x24a78 0x102cc> {[-4-]|[«4»]}
StringDup(a : String) : String
<POP 24a7e-24a80 StackAdj> Δ+4 {[-4-]}
<Call 0x24a80 0x21f88> {[-4-]}
<POP 24a84-24a86 StackAdj> Δ+4 {}
<POP 24a86-24a94 Naked> Σ0 ↓ →0x24a9a ←0x24a94
<MI 24a86 MOVE.L 0x260e4,D0> {}
<MI 24a8c CMP.L 0x260e8,D0> {}
<MI 24a92 BGT 0x24a9a> {}
<POP 24a94-24a9a Naked> Σ0 →0x24a86
<Call 0x24a94 0x245a4> {}
<MI 24a98 BRA 0x24a86> {}
<POP 24a9a-24aa8 Naked> Σ0 ↓ ←0x24a86
<Const 0x24a9a 0x26112.4> Δ-4 {[##155922]}
<Call 0x24aa0 0x102bc> {[##155922]}
FreeString(VAR a : String)
<POP 24aa6-24aa8 StackAdj> Δ+4 {}
<POP 24aa8-24aac Naked> Σ0 →0x2499a
<MI 24aa8 BRA 0x2499a> {}
@ 24ac0
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 24ac0-24b28 Body>
<POP 24ac0-24ad6 Prologue> Σ0 ↓
<POP 24ad6-24b20 Naked> Σ0 ↓
<Blob 0x24ad6 [14] @> Δ-14 {[«14""»]}
<Const 0x24ae2 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 24ae6-24ae8 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x24ae8 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 24afa-24afc StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 24afc MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 24b00 EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 24b02 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 24b04 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x24b06 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 24b0c-24b0e StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x24b0e 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 24b14-24b16 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x24b16 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 24b1c-24b20 StackAdj> Δ+20 {}
<POP 24b20-24b28 Epilogue> Σ0
@ 24b7c
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 24b7c-24cb8 Body>
<POP 24b7c-24b92 Prologue> Σ0 ↓
<POP 24b92-24ba8 RegCacheLoad> Σ0 ↓
<POP 24ba8-24c08 Naked> Σ0 ↓ →0x24c50
<Call 0x24ba8 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x24bae [18] @> Δ-18 {[«18""»]}
<POP 24bba-24bbc StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x24bbc 18> {[«18""»]|[$$Experiment error :]}
<Call 0x24bc8 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 24bca-24bcb StackAdj> Δ+22 ↓ {}
<Blob 0x24bcb [14] @> Δ-14 {[«14""»]}
<POP 24bda-24bdc StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x24bdc 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 24be6-24be8 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 24be8 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x24bec 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 24bf2-24bf4 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x24bf4 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 24bfa-24bfc StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x24bfc 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 24bfe-24c00 StackAdj> Δ+18 {}
<MI 24c00 MOVEA.L (A6+0xa),A0> {}
<MI 24c04 CMPA.W #0x01,A0> {}
<MI 24c06 BEQ 0x24c50> {}
<POP 24c08-24c50 Naked> Σ0 ↓
<Blob 0x24c08 [14] @> Δ-14 {[«14""»]}
<Blob 0x24c18 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 24c28-24c2a StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x24c2a 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 24c34-24c36 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x24c36> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x24c36 12> Δ-4
<Const 0x24c3a 0x1.2> Δ-2
<Const 0x24c3c 0x1e.2> Δ-2
<Call 0x24c3e 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 24c40-24c42 StackAdj> Δ+8
<Call 0x24c42 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 24c48-24c4a StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x24c4a 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 24c4c-24c50 StackAdj> Δ+48 {}
<POP 24c50-24cb0 Naked> Σ0 ↓ ←0x24ba8
<Blob 0x24c50 [14] @> Δ-14 {[«14""»]}
<POP 24c60-24c62 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x24c62 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 24c6c-24c6e StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 24c6e MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x24c72 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 24c78-24c7a StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x24c7a 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 24c80-24c82 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x24c82 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 24c84-24c85 StackAdj> Δ+18 ↓ {}
<Blob 0x24c85 [24] @> Δ-24 {[«24""»]}
<Const 0x24c94 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 24c98-24c9a StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x24c9a 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x24ca8 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 24cae-24cb0 StackAdj> Δ+30 {}
<POP 24cb0-24cb8 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.c50948875870442c 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 48 b6 | H | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 61 30 | a0 | .PTR 0x26130 00020010 code.end: 00020010 00 02 4c b8 | L | .PTR 0x24cb8 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 4a c0 | J | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 4b 7c | K| | .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 57 48 |@(#)WH | .XXX[0x6] 00020110 41 54 2c 31 2e 37 2c 39 |AT,1.7,9| .XXX[0x18] 00020118 30 2f 31 32 2f 30 35 2c |0/12/05,| 00020120 31 33 3a 30 38 3a 30 30 |13:08:00| 00020128 5c 20 |\ | .XXX[0x2] 0002012a 70 72 6f 67 72 61 6d 20 |program | .TXT 'program error ' 00020138 70 72 6f 67 72 61 6d 20 |program | .TXT 'program error ' 00020146 46 49 4c 45 |FILE | .TXT 'FILE' 0002014a 4e 41 4d 45 |NAME | .TXT 'NAME' 0002014e 50 6c 65 61 73 65 20 65 |Please e| .TXT 'Please enter DFS filename :_' 0002016a 43 61 6e 74 20 66 69 6e |Cant fin| .TXT 'Cant find the file' 0002017c 20 20 20 56 65 72 73 69 | Versi| .TXT ' Version =_ ' 0002018a 20 20 20 44 61 74 65 20 | Date | .TXT ' Date =_ ' 00020198 20 20 20 54 69 6d 65 20 | Time | .TXT ' Time =_ ' 000201a6 4d 6f 64 75 6c 65 20 20 |Module | .TXT 'Module =_ ' 000201b4 20 20 20 56 65 72 73 69 | Versi| .TXT ' Version =_ ' 000201c2 20 20 20 44 61 74 65 20 | Date | .TXT ' Date =_ ' 000201d0 20 20 20 54 69 6d 65 20 | Time | .TXT ' Time =_ ' 000201de 4d 6f 64 75 6c 65 20 20 |Module | .TXT 'Module =_ ' 000201ec 78 20 77 68 61 74 20 72 |x what r| .TXT 'x what rev/filename=mumble' 00020206 52 45 |RE | .XXX[0x2] 00020208 56 20 20 20 20 20 20 20 |V | .XXX[0x58] 00020210 48 45 4c 50 20 20 20 20 |HELP | 00020218 20 20 52 55 4e 4e 49 4e | RUNNIN| 00020220 47 20 20 20 3f 20 20 20 |G ? | 00020228 20 20 20 20 20 20 57 48 | WH| 00020230 41 54 20 20 20 20 20 20 |AT | 00020238 52 45 56 20 20 20 20 20 |REV | 00020240 20 20 48 45 4c 50 20 20 | HELP | 00020248 20 20 20 20 52 55 4e 4e | RUNN| 00020250 49 4e 47 20 20 20 3f 20 |ING ? | 00020258 20 20 20 20 20 20 20 20 | | 00020260 ; -------------------------------------------------------------------------------------- 00020260 ; OMSI PASCAL Function 00020260 ; <LVAR 0x016 4(r)> 00020260 ; <LVAR 0x012 @ 4(r)> 00020260 ; <LVAR 0x010 1(r)> 00020260 ; <LVAR 0x00c 4(r)> 00020260 ; <LVAR 0x008 4(r)> 00020260 ; -------------------------------------------------------------------------------------- 00020260 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 00020264 bf d5 | | CMPA.L (A5),A7 00020266 62 06 |b | BHI 0x2026e 00020268 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002026c 4e 76 |Nv | TRAPV 0002026e de fc 00 28 | ( | ADDA.W #0x28,A7 00020272 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 00020276 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002027a 22 6e 00 0c |"n | MOVEA.L (A6+0xc),A1 0002027e 2f 2e 00 16 |/. | MOVE.L (A6+0x16),-(A7) 00020282 48 78 00 00 |Hx | PEA.L 0x0 00020286 2f 2e 00 12 |/. | MOVE.L (A6+0x12),-(A7) 0002028a 48 50 |HP | PEA.L (A0) 0002028c 48 51 |HQ | PEA.L (A1) 0002028e 4e b9 00 02 44 1e |N D | JSR 0x2441e 00020294 de fc 00 14 | | ADDA.W #0x14,A7 00020298 48 6e 00 12 |Hn | PEA.L (A6+0x12) 0002029c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000202a2 58 4f |XO | ADDQ.L #0x4,A7 000202a4 4a 11 |J | TST.B (A1) 000202a6 67 10 |g | BEQ 0x202b8 000202a8 4a 2e 00 10 |J. | TST.B (A6+0x10) 000202ac 66 0a |f | BNE 0x202b8 000202ae 48 50 |HP | PEA.L (A0) 000202b0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000202b6 58 4f |XO | ADDQ.L #0x4,A7 000202b8 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 000202bc 4e 5e |N^ | UNLK A6 000202be 4e 75 |Nu | RTS 000202c0 ; -------------------------------------------------------------------------------------- 000202c0 ; OMSI PASCAL Function 000202c0 ; <LVAR 0x00a 1(rw)> 000202c0 ; <LVAR 0x008 1(r)> 000202c0 ; -------------------------------------------------------------------------------------- 000202c0 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 000202c4 bf d5 | | CMPA.L (A5),A7 000202c6 62 06 |b | BHI 0x202ce 000202c8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000202cc 4e 76 |Nv | TRAPV 000202ce de fc 00 2c | , | ADDA.W #0x2c,A7 000202d2 48 e7 f8 f0 |H | MOVEM.L A3+A2+A1+A0+D4+D3+D2+D1+D0,-(A7) 000202d6 43 f9 00 02 4c cc |C L | LEA.L 0x24ccc,A1 000202dc 45 ee 00 0a |E | LEA.L (A6+0xa),A2 000202e0 47 f9 00 02 4c b8 |G L | LEA.L 0x24cb8,A3 000202e6 74 01 |t | MOVEQ.L #0x01,D2 000202e8 20 11 | | MOVE.L (A1),D0 000202ea 08 00 00 00 | | BTST.L #0x0,D0 000202ee 67 36 |g6 | BEQ 0x20326 000202f0 20 11 | | MOVE.L (A1),D0 000202f2 53 80 |S | SUBQ.L #0x1,D0 000202f4 28 00 |( | MOVE.L D0,D4 000202f6 76 02 |v | MOVEQ.L #0x02,D3 000202f8 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 000202fe 0c 84 00 00 01 ff | | CMPI.L #0x000001ff,D4 00020304 63 02 |c | BLS 0x20308 00020306 4e 4f |NO | TRAP #15 00020308 e3 84 | | ASL.L #0x1,D4 0002030a 20 4b | K | MOVEA.L A3,A0 0002030c 30 30 48 1a |00H | MOVE.W (A0+D4.L+#0x1a),D0 00020310 02 40 00 ff | @ | ANDI.W #0x00ff,D0 00020314 42 81 |B | CLR.L D1 00020316 12 2e 00 08 | . | MOVE.B (A6+0x8),D1 0002031a b0 41 | A | CMP.W D1,D0 0002031c 66 04 |f | BNE 0x20322 0002031e 14 82 | | MOVE.B D2,(A2) 00020320 60 02 |` | BRA 0x20324 00020322 42 12 |B | CLR.B (A2) 00020324 60 32 |`2 | BRA 0x20358 00020326 28 11 |( | MOVE.L (A1),D4 00020328 76 02 |v | MOVEQ.L #0x02,D3 0002032a 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00020330 0c 84 00 00 01 ff | | CMPI.L #0x000001ff,D4 00020336 63 02 |c | BLS 0x2033a 00020338 4e 4f |NO | TRAP #15 0002033a e3 84 | | ASL.L #0x1,D4 0002033c 20 4b | K | MOVEA.L A3,A0 0002033e 30 30 48 1a |00H | MOVE.W (A0+D4.L+#0x1a),D0 00020342 02 40 ff 00 | @ | ANDI.W #0xff00,D0 00020346 42 81 |B | CLR.L D1 00020348 12 2e 00 08 | . | MOVE.B (A6+0x8),D1 0002034c e1 41 | A | ASL.W #0x8,D1 0002034e b0 41 | A | CMP.W D1,D0 00020350 66 04 |f | BNE 0x20356 00020352 14 82 | | MOVE.B D2,(A2) 00020354 60 02 |` | BRA 0x20358 00020356 42 12 |B | CLR.B (A2) 00020358 4c df 0f 1f |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+A0+A1+A2+A3 0002035c 4e 5e |N^ | UNLK A6 0002035e 4e 75 |Nu | RTS 00020360 ; -------------------------------------------------------------------------------------- 00020360 ; OMSI PASCAL Function 00020360 ; -------------------------------------------------------------------------------------- 00020360 4e 56 ff de |NV | LINK.W A6,#0xffde 00020364 bf d5 | | CMPA.L (A5),A7 00020366 62 06 |b | BHI 0x2036e 00020368 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002036c 4e 76 |Nv | TRAPV 0002036e de fc 00 22 | " | ADDA.W #0x22,A7 00020372 48 e7 98 e0 |H | MOVEM.L A2+A1+A0+D4+D3+D0,-(A7) 00020376 43 f9 00 02 4c cc |C L | LEA.L 0x24ccc,A1 0002037c 45 f9 00 02 4c b8 |E L | LEA.L 0x24cb8,A2 00020382 20 11 | | MOVE.L (A1),D0 00020384 08 00 00 00 | | BTST.L #0x0,D0 00020388 67 28 |g( | BEQ 0x203b2 0002038a 20 11 | | MOVE.L (A1),D0 0002038c 53 80 |S | SUBQ.L #0x1,D0 0002038e 28 00 |( | MOVE.L D0,D4 00020390 76 02 |v | MOVEQ.L #0x02,D3 00020392 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 00020398 55 4f |UO | SUBQ.L #0x2,A7 0002039a 0c 84 00 00 01 ff | | CMPI.L #0x000001ff,D4 000203a0 63 02 |c | BLS 0x203a4 000203a2 4e 4f |NO | TRAP #15 000203a4 e3 84 | | ASL.L #0x1,D4 000203a6 20 4a | J | MOVEA.L A2,A0 000203a8 30 30 48 1a |00H | MOVE.W (A0+D4.L+#0x1a),D0 000203ac 02 40 00 ff | @ | ANDI.W #0x00ff,D0 000203b0 60 20 |` | BRA 0x203d2 000203b2 28 11 |( | MOVE.L (A1),D4 000203b4 76 02 |v | MOVEQ.L #0x02,D3 000203b6 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 000203bc 55 4f |UO | SUBQ.L #0x2,A7 000203be 0c 84 00 00 01 ff | | CMPI.L #0x000001ff,D4 000203c4 63 02 |c | BLS 0x203c8 000203c6 4e 4f |NO | TRAP #15 000203c8 e3 84 | | ASL.L #0x1,D4 000203ca 20 4a | J | MOVEA.L A2,A0 000203cc 30 30 48 1a |00H | MOVE.W (A0+D4.L+#0x1a),D0 000203d0 e0 48 | H | LSR.W #0x8,D0 000203d2 1e 80 | | MOVE.B D0,(A7) 000203d4 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 000203da 54 4f |TO | ADDQ.L #0x2,A7 000203dc 4c df 07 19 |L | MOVEM.L (A7)+,D0+D3+D4+A0+A1+A2 000203e0 4e 5e |N^ | UNLK A6 000203e2 4e 75 |Nu | RTS 000203e4 ; -------------------------------------------------------------------------------------- 000203e4 ; OMSI PASCAL Function 000203e4 ; -------------------------------------------------------------------------------------- 000203e4 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 000203e8 bf d5 | | CMPA.L (A5),A7 000203ea 62 06 |b | BHI 0x203f2 000203ec 44 fc 00 02 |D | MOVE.W #0x2,CCR 000203f0 4e 76 |Nv | TRAPV 000203f2 de fc 00 3a | : | ADDA.W #0x3a,A7 000203f6 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7) 000203fa 45 f9 00 02 4c ca |E L | LEA.L 0x24cca,A2 00020400 47 fa fe be |G | LEA.L 0x202c0,A3 00020404 72 01 |r | MOVEQ.L #0x01,D1 00020406 74 04 |t | MOVEQ.L #0x04,D2 00020408 10 12 | | MOVE.B (A2),D0 0002040a 48 80 |H | EXTB.W D0 0002040c b0 42 | B | CMP.W D2,D0 0002040e 63 02 |c | BLS 0x20412 00020410 4e 4e |NN | TRAP #14 00020412 d0 40 | @ | ADD.W D0,D0 00020414 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002041c 00 0a | | .CONST 0xa ; [0x0] -> 0x20426 0002041e 00 1e | | .CONST 0x1e ; [0x1] -> 0x2043a 00020420 00 36 | 6 | .CONST 0x36 ; [0x2] -> 0x20452 00020422 00 4e | N | .CONST 0x4e ; [0x3] -> 0x2046a 00020424 00 70 | p | .CONST 0x70 ; [0x4] -> 0x2048c 00020426 switch@0x20414[0x0]: 00020426 55 4f |UO | SUBQ.L #0x2,A7 00020428 1f 3c 00 40 | < @ | MOVE.B #0x40,-(A7) 0002042c 4e 93 |N | JSR (A3) 0002042e 54 4f |TO | ADDQ.L #0x2,A7 00020430 4a 1f |J | TST.B (A7)+ 00020432 67 02 |g | BEQ 0x20436 00020434 14 81 | | MOVE.B D1,(A2) 00020436 60 00 00 84 |` | BRA 0x204bc 0002043a switch@0x20414[0x1]: 0002043a 55 4f |UO | SUBQ.L #0x2,A7 0002043c 1f 3c 00 28 | < ( | MOVE.B #0x28,-(A7) 00020440 4e 93 |N | JSR (A3) 00020442 54 4f |TO | ADDQ.L #0x2,A7 00020444 4a 1f |J | TST.B (A7)+ 00020446 67 06 |g | BEQ 0x2044e 00020448 14 bc 00 02 | | MOVE.B #0x02,(A2) 0002044c 60 02 |` | BRA 0x20450 0002044e 42 12 |B | CLR.B (A2) 00020450 60 6a |`j | BRA 0x204bc 00020452 switch@0x20414[0x2]: 00020452 55 4f |UO | SUBQ.L #0x2,A7 00020454 1f 3c 00 23 | < # | MOVE.B #0x23,-(A7) 00020458 4e 93 |N | JSR (A3) 0002045a 54 4f |TO | ADDQ.L #0x2,A7 0002045c 4a 1f |J | TST.B (A7)+ 0002045e 67 06 |g | BEQ 0x20466 00020460 14 bc 00 03 | | MOVE.B #0x03,(A2) 00020464 60 02 |` | BRA 0x20468 00020466 42 12 |B | CLR.B (A2) 00020468 60 52 |`R | BRA 0x204bc 0002046a switch@0x20414[0x3]: 0002046a 55 4f |UO | SUBQ.L #0x2,A7 0002046c 1f 3c 00 29 | < ) | MOVE.B #0x29,-(A7) 00020470 4e 93 |N | JSR (A3) 00020472 54 4f |TO | ADDQ.L #0x2,A7 00020474 4a 1f |J | TST.B (A7)+ 00020476 67 10 |g | BEQ 0x20488 00020478 14 82 | | MOVE.B D2,(A2) 0002047a 13 c1 00 02 4c c9 | L | MOVE.B D1,0x24cc9 00020480 13 c1 00 02 4c d0 | L | MOVE.B D1,0x24cd0 00020486 60 02 |` | BRA 0x2048a 00020488 42 12 |B | CLR.B (A2) 0002048a 60 30 |`0 | BRA 0x204bc 0002048c switch@0x20414[0x4]: 0002048c 9e fc 00 0e | | SUBA.W #0xe,A7 00020490 20 4f | O | MOVEA.L A7,A0 00020492 43 fa fc 96 |C | LEA.L 0x2012a,A1 00020496 70 0c |p | MOVEQ.L #0x0c,D0 00020498 10 d9 | | MOVE.B (A1)+,(A0)+ 0002049a 51 c8 ff fc |Q | DBF D0,0x20498 0002049e 59 4f |YO | SUBQ.L #0x4,A7 000204a0 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000204a4 3f 01 |? | MOVE.W D1,-(A7) 000204a6 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 000204aa 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000204b0 50 4f |PO | ADDQ.L #0x8,A7 000204b2 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000204b8 de fc 00 12 | | ADDA.W #0x12,A7 000204bc 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3 000204c0 4e 5e |N^ | UNLK A6 000204c2 4e 75 |Nu | RTS 000204c4 ; -------------------------------------------------------------------------------------- 000204c4 ; OMSI PASCAL Function 000204c4 ; <LVAR 0x008 1(r)> 000204c4 ; -------------------------------------------------------------------------------------- 000204c4 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 000204c8 bf d5 | | CMPA.L (A5),A7 000204ca 62 06 |b | BHI 0x204d2 000204cc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000204d0 4e 76 |Nv | TRAPV 000204d2 de fc 00 3a | : | ADDA.W #0x3a,A7 000204d6 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7) 000204da 45 f9 00 02 4c ca |E L | LEA.L 0x24cca,A2 000204e0 47 ee 00 08 |G | LEA.L (A6+0x8),A3 000204e4 72 01 |r | MOVEQ.L #0x01,D1 000204e6 74 04 |t | MOVEQ.L #0x04,D2 000204e8 10 12 | | MOVE.B (A2),D0 000204ea 48 80 |H | EXTB.W D0 000204ec b0 42 | B | CMP.W D2,D0 000204ee 63 02 |c | BLS 0x204f2 000204f0 4e 4e |NN | TRAP #14 000204f2 d0 40 | @ | ADD.W D0,D0 000204f4 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000204fc 00 0a | | .CONST 0xa ; [0x0] -> 0x20506 000204fe 00 16 | | .CONST 0x16 ; [0x1] -> 0x20512 00020500 00 28 | ( | .CONST 0x28 ; [0x2] -> 0x20524 00020502 00 3a | : | .CONST 0x3a ; [0x3] -> 0x20536 00020504 00 56 | V | .CONST 0x56 ; [0x4] -> 0x20552 00020506 switch@0x204f4[0x0]: 00020506 10 13 | | MOVE.B (A3),D0 00020508 0c 00 00 40 | @ | CMPI.B #0x40,D0 0002050c 66 02 |f | BNE 0x20510 0002050e 14 81 | | MOVE.B D1,(A2) 00020510 60 70 |`p | BRA 0x20582 00020512 switch@0x204f4[0x1]: 00020512 10 13 | | MOVE.B (A3),D0 00020514 0c 00 00 28 | ( | CMPI.B #0x28,D0 00020518 66 06 |f | BNE 0x20520 0002051a 14 bc 00 02 | | MOVE.B #0x02,(A2) 0002051e 60 02 |` | BRA 0x20522 00020520 42 12 |B | CLR.B (A2) 00020522 60 5e |`^ | BRA 0x20582 00020524 switch@0x204f4[0x2]: 00020524 10 13 | | MOVE.B (A3),D0 00020526 0c 00 00 23 | # | CMPI.B #0x23,D0 0002052a 66 06 |f | BNE 0x20532 0002052c 14 bc 00 03 | | MOVE.B #0x03,(A2) 00020530 60 02 |` | BRA 0x20534 00020532 42 12 |B | CLR.B (A2) 00020534 60 4c |`L | BRA 0x20582 00020536 switch@0x204f4[0x3]: 00020536 10 13 | | MOVE.B (A3),D0 00020538 0c 00 00 29 | ) | CMPI.B #0x29,D0 0002053c 66 10 |f | BNE 0x2054e 0002053e 14 82 | | MOVE.B D2,(A2) 00020540 13 c1 00 02 4c c9 | L | MOVE.B D1,0x24cc9 00020546 13 c1 00 02 4c d0 | L | MOVE.B D1,0x24cd0 0002054c 60 02 |` | BRA 0x20550 0002054e 42 12 |B | CLR.B (A2) 00020550 60 30 |`0 | BRA 0x20582 00020552 switch@0x204f4[0x4]: 00020552 9e fc 00 0e | | SUBA.W #0xe,A7 00020556 20 4f | O | MOVEA.L A7,A0 00020558 43 fa fb de |C | LEA.L 0x20138,A1 0002055c 70 0c |p | MOVEQ.L #0x0c,D0 0002055e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020560 51 c8 ff fc |Q | DBF D0,0x2055e 00020564 59 4f |YO | SUBQ.L #0x4,A7 00020566 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002056a 3f 01 |? | MOVE.W D1,-(A7) 0002056c 3f 3c 00 0d |?< | MOVE.W #0xd,-(A7) 00020570 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020576 50 4f |PO | ADDQ.L #0x8,A7 00020578 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002057e de fc 00 12 | | ADDA.W #0x12,A7 00020582 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3 00020586 4e 5e |N^ | UNLK A6 00020588 4e 75 |Nu | RTS 0002058a ; -------------------------------------------------------------------------------------- 0002058a ; OMSI PASCAL Function 0002058a ; <LVAR 0x008 4(r)> 0002058a ; -------------------------------------------------------------------------------------- 0002058a 4e 56 ff 9c |NV | LINK.W A6,#0xff9c 0002058e bf d5 | | CMPA.L (A5),A7 00020590 62 06 |b | BHI 0x20598 00020592 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020596 4e 76 |Nv | TRAPV 00020598 de fc 00 64 | d | ADDA.W #0x64,A7 0002059c 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000205a0 45 f9 00 02 4c d1 |E L | LEA.L 0x24cd1,A2 000205a6 47 f9 00 02 4c cc |G L | LEA.L 0x24ccc,A3 000205ac 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 000205b2 72 01 |r | MOVEQ.L #0x01,D1 000205b4 74 12 |t | MOVEQ.L #0x12,D2 000205b6 7a 0e |z | MOVEQ.L #0x0e,D5 000205b8 7c 0d || | MOVEQ.L #0x0d,D6 000205ba 7e 1c |~ | MOVEQ.L #0x1c,D7 000205bc 2f 3a fb 8c |/: | MOVE.L 0x2014a,-(A7) 000205c0 2f 3a fb 84 |/: | MOVE.L 0x20146,-(A7) 000205c4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000205c8 59 4f |YO | SUBQ.L #0x4,A7 000205ca 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000205ce 3f 01 |? | MOVE.W D1,-(A7) 000205d0 3f 3c 00 08 |?< | MOVE.W #0x8,-(A7) 000205d4 4e 94 |N | JSR (A4) 000205d6 5c 4f |\O | ADDQ.L #0x6,A7 000205d8 1e 81 | | MOVE.B D1,(A7) 000205da 48 79 00 02 50 da |Hy P | PEA.L 0x250da 000205e0 48 79 00 02 4c c4 |Hy L | PEA.L 0x24cc4 000205e6 4e ba fc 78 |N x | JSR 0x20260 000205ea de fc 00 1a | | ADDA.W #0x1a,A7 000205ee 4a 39 00 02 50 da |J9 P | TST.B 0x250da 000205f4 66 2a |f* | BNE 0x20620 000205f6 41 fa fb 72 |A r | LEA.L 0x2016a,A0 000205fa 70 06 |p | MOVEQ.L #0x06,D0 000205fc 2f 20 |/ | MOVE.L -(A0),-(A7) 000205fe 51 c8 ff fc |Q | DBF D0,0x205fc 00020602 51 4f |QO | SUBQ.L #0x8,A7 00020604 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020608 3f 01 |? | MOVE.W D1,-(A7) 0002060a 3f 07 |? | MOVE.W D7,-(A7) 0002060c 4e 94 |N | JSR (A4) 0002060e 50 4f |PO | ADDQ.L #0x8,A7 00020610 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 00020616 58 4f |XO | ADDQ.L #0x4,A7 00020618 23 df 00 02 4c c4 |# L | MOVE.L (A7)+,0x24cc4 0002061e de c7 | | ADDA.W D7,A7 00020620 2f 39 00 02 4c c4 |/9 L | MOVE.L 0x24cc4,-(A7) 00020626 42 27 |B' | CLR.B -(A7) 00020628 1f 01 | | MOVE.B D1,-(A7) 0002062a 48 78 00 00 |Hx | PEA.L 0x0 0002062e 48 52 |HR | PEA.L (A2) 00020630 48 79 00 02 4c c0 |Hy L | PEA.L 0x24cc0 00020636 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 0002063c de fc 00 14 | | ADDA.W #0x14,A7 00020640 4a 12 |J | TST.B (A2) 00020642 67 28 |g( | BEQ 0x2066c 00020644 41 fa fb 36 |A 6 | LEA.L 0x2017c,A0 00020648 70 08 |p | MOVEQ.L #0x08,D0 0002064a 3f 20 |? | MOVE.W -(A0),-(A7) 0002064c 51 c8 ff fc |Q | DBF D0,0x2064a 00020650 59 4f |YO | SUBQ.L #0x4,A7 00020652 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020656 3f 01 |? | MOVE.W D1,-(A7) 00020658 3f 02 |? | MOVE.W D2,-(A7) 0002065a 4e 94 |N | JSR (A4) 0002065c 50 4f |PO | ADDQ.L #0x8,A7 0002065e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00020664 de fc 00 16 | | ADDA.W #0x16,A7 00020668 60 00 01 cc |` | BRA 0x20836 0002066c 42 39 00 02 4c c9 |B9 L | CLR.B 0x24cc9 00020672 42 b9 00 02 50 d2 |B P | CLR.L 0x250d2 00020678 42 93 |B | CLR.L (A3) 0002067a 4a 93 |J | TST.L (A3) 0002067c 66 42 |fB | BNE 0x206c0 0002067e 2f 39 00 02 4c c0 |/9 L | MOVE.L 0x24cc0,-(A7) 00020684 20 39 00 02 50 d2 | 9 P | MOVE.L 0x250d2,D0 0002068a 0c 80 00 00 40 00 | @ | CMPI.L #0x00004000,D0 00020690 63 02 |c | BLS 0x20694 00020692 4e 4f |NO | TRAP #15 00020694 3f 00 |? | MOVE.W D0,-(A7) 00020696 42 67 |Bg | CLR.W -(A7) 00020698 3f 3c 02 00 |?< | MOVE.W #0x200,-(A7) 0002069c 1f 01 | | MOVE.B D1,-(A7) 0002069e 41 f9 00 02 4c d2 |A L | LEA.L 0x24cd2,A0 000206a4 2f 08 |/ | MOVE.L A0,-(A7) 000206a6 48 52 |HR | PEA.L (A2) 000206a8 4e b9 00 01 03 84 |N | JSR ReadFile(file : File; w : W; x : W; a : W; b: B; c : L; d : L) 000206ae de fc 00 14 | | ADDA.W #0x14,A7 000206b2 4a 12 |J | TST.B (A2) 000206b4 67 04 |g | BEQ 0x206ba 000206b6 60 00 01 64 |` d | BRA 0x2081c 000206ba 52 b9 00 02 50 d2 |R P | ADDQ.L #0x1,0x250d2 000206c0 4a 39 00 02 4c c9 |J9 L | TST.B 0x24cc9 000206c6 67 00 00 ee |g | BEQ 0x207b6 000206ca 55 4f |UO | SUBQ.L #0x2,A7 000206cc 1f 3c 00 2c | < , | MOVE.B #0x2c,-(A7) 000206d0 4e ba fb ee |N | JSR 0x202c0 000206d4 54 4f |TO | ADDQ.L #0x2,A7 000206d6 4a 1f |J | TST.B (A7)+ 000206d8 67 00 00 b2 |g | BEQ 0x2078c 000206dc 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000206e2 10 39 00 02 4c d0 | 9 L | MOVE.B 0x24cd0,D0 000206e8 48 80 |H | EXTB.W D0 000206ea 53 40 |S@ | SUBQ.W #0x1,D0 000206ec 0c 40 00 02 | @ | CMPI.W #0x0002,D0 000206f0 63 02 |c | BLS 0x206f4 000206f2 4e 4e |NN | TRAP #14 000206f4 d0 40 | @ | ADD.W D0,D0 000206f6 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000206fe 00 06 | | .CONST 0x6 ; [0x0] -> 0x20704 00020700 00 36 | 6 | .CONST 0x36 ; [0x1] -> 0x20734 00020702 00 66 | f | .CONST 0x66 ; [0x2] -> 0x20764 00020704 switch@0x206f6[0x0]: 00020704 9e c5 | | SUBA.W D5,A7 00020706 20 4f | O | MOVEA.L A7,A0 00020708 43 fa fa 72 |C r | LEA.L 0x2017c,A1 0002070c 70 0c |p | MOVEQ.L #0x0c,D0 0002070e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020710 51 c8 ff fc |Q | DBF D0,0x2070e 00020714 59 4f |YO | SUBQ.L #0x4,A7 00020716 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002071a 3f 01 |? | MOVE.W D1,-(A7) 0002071c 3f 06 |? | MOVE.W D6,-(A7) 0002071e 4e 94 |N | JSR (A4) 00020720 50 4f |PO | ADDQ.L #0x8,A7 00020722 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00020728 de c2 | | ADDA.W D2,A7 0002072a 13 fc 00 02 00 02 4c d0 | L | MOVE.B #0x02,0x24cd0 00020732 60 56 |`V | BRA 0x2078a 00020734 switch@0x206f6[0x1]: 00020734 9e c5 | | SUBA.W D5,A7 00020736 20 4f | O | MOVEA.L A7,A0 00020738 43 fa fa 50 |C P | LEA.L 0x2018a,A1 0002073c 70 0c |p | MOVEQ.L #0x0c,D0 0002073e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020740 51 c8 ff fc |Q | DBF D0,0x2073e 00020744 59 4f |YO | SUBQ.L #0x4,A7 00020746 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002074a 3f 01 |? | MOVE.W D1,-(A7) 0002074c 3f 06 |? | MOVE.W D6,-(A7) 0002074e 4e 94 |N | JSR (A4) 00020750 50 4f |PO | ADDQ.L #0x8,A7 00020752 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00020758 de c2 | | ADDA.W D2,A7 0002075a 13 fc 00 03 00 02 4c d0 | L | MOVE.B #0x03,0x24cd0 00020762 60 26 |`& | BRA 0x2078a 00020764 switch@0x206f6[0x2]: 00020764 9e c5 | | SUBA.W D5,A7 00020766 20 4f | O | MOVEA.L A7,A0 00020768 43 fa fa 2e |C . | LEA.L 0x20198,A1 0002076c 70 0c |p | MOVEQ.L #0x0c,D0 0002076e 10 d9 | | MOVE.B (A1)+,(A0)+ 00020770 51 c8 ff fc |Q | DBF D0,0x2076e 00020774 59 4f |YO | SUBQ.L #0x4,A7 00020776 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002077a 3f 01 |? | MOVE.W D1,-(A7) 0002077c 3f 06 |? | MOVE.W D6,-(A7) 0002077e 4e 94 |N | JSR (A4) 00020780 50 4f |PO | ADDQ.L #0x8,A7 00020782 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00020788 de c2 | | ADDA.W D2,A7 0002078a 60 28 |`( | BRA 0x207b4 0002078c 55 4f |UO | SUBQ.L #0x2,A7 0002078e 1f 3c 00 5c | < \ | MOVE.B #0x5c,-(A7) 00020792 4e ba fb 2c |N , | JSR 0x202c0 00020796 54 4f |TO | ADDQ.L #0x2,A7 00020798 4a 1f |J | TST.B (A7)+ 0002079a 67 14 |g | BEQ 0x207b0 0002079c 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000207a2 42 39 00 02 4c c9 |B9 L | CLR.B 0x24cc9 000207a8 42 39 00 02 4c ca |B9 L | CLR.B 0x24cca 000207ae 60 04 |` | BRA 0x207b4 000207b0 4e ba fb ae |N | JSR 0x20360 000207b4 60 38 |`8 | BRA 0x207ee 000207b6 4e ba fc 2c |N , | JSR 0x203e4 000207ba 4a 39 00 02 4c c9 |J9 L | TST.B 0x24cc9 000207c0 67 2c |g, | BEQ 0x207ee 000207c2 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000207c8 9e c5 | | SUBA.W D5,A7 000207ca 20 4f | O | MOVEA.L A7,A0 000207cc 43 fa f9 d8 |C | LEA.L 0x201a6,A1 000207d0 70 0c |p | MOVEQ.L #0x0c,D0 000207d2 10 d9 | | MOVE.B (A1)+,(A0)+ 000207d4 51 c8 ff fc |Q | DBF D0,0x207d2 000207d8 59 4f |YO | SUBQ.L #0x4,A7 000207da 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000207de 3f 01 |? | MOVE.W D1,-(A7) 000207e0 3f 06 |? | MOVE.W D6,-(A7) 000207e2 4e 94 |N | JSR (A4) 000207e4 50 4f |PO | ADDQ.L #0x8,A7 000207e6 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000207ec de c2 | | ADDA.W D2,A7 000207ee 52 93 |R | ADDQ.L #0x1,(A3) 000207f0 28 13 |( | MOVE.L (A3),D4 000207f2 26 3c 00 00 04 00 |&< | MOVE.L #0x400,D3 000207f8 4e b9 00 01 02 94 |N | JSR ?divs_d3_d4 000207fe 26 83 |& | MOVE.L D3,(A3) 00020800 20 79 00 02 4c c0 | y L | MOVEA.L 0x24cc0,A0 00020806 30 28 00 20 |0( | MOVE.W (A0+0x20),D0 0002080a 48 c0 |H | EXTW.L D0 0002080c b0 b9 00 02 50 d2 | P | CMP.L 0x250d2,D0 00020812 66 00 fe 66 |f f | BNE 0x2067a 00020816 4a 83 |J | TST.L D3 00020818 66 00 fe 60 |f ` | BNE 0x2067a 0002081c 42 27 |B' | CLR.B -(A7) 0002081e 1f 01 | | MOVE.B D1,-(A7) 00020820 48 78 00 01 |Hx | PEA.L 0x1 00020824 48 52 |HR | PEA.L (A2) 00020826 48 79 00 02 4c c0 |Hy L | PEA.L 0x24cc0 0002082c 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00020832 de fc 00 10 | | ADDA.W #0x10,A7 00020836 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 0002083a 4e 5e |N^ | UNLK A6 0002083c 4e 75 |Nu | RTS 0002083e ; -------------------------------------------------------------------------------------- 0002083e ; OMSI PASCAL Function 0002083e ; <LVAR -0x008 @ 2(r)> 0002083e ; -------------------------------------------------------------------------------------- 0002083e 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00020842 bf d5 | | CMPA.L (A5),A7 00020844 62 06 |b | BHI 0x2084c 00020846 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002084a 4e 76 |Nv | TRAPV 0002084c de fc 00 50 | P | ADDA.W #0x50,A7 00020850 48 e7 fd f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D5+D4+D3+D2+D1+D0,-(A7) 00020854 45 f9 00 02 4c c9 |E L | LEA.L 0x24cc9,A2 0002085a 47 f9 00 02 4c d0 |G L | LEA.L 0x24cd0,A3 00020860 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 00020866 72 01 |r | MOVEQ.L #0x01,D1 00020868 74 0e |t | MOVEQ.L #0x0e,D2 0002086a 76 0d |v | MOVEQ.L #0x0d,D3 0002086c 78 12 |x | MOVEQ.L #0x12,D4 0002086e 7a 02 |z | MOVEQ.L #0x02,D5 00020870 42 12 |B | CLR.B (A2) 00020872 7e 00 |~ | MOVEQ.L #0x00,D7 00020874 2f 07 |/ | MOVE.L D7,-(A7) 00020876 41 ee ff f8 |A | LEA.L (A6-0x8),A0 0002087a 2f 08 |/ | MOVE.L A0,-(A7) 0002087c 52 97 |R | ADDQ.L #0x1,(A7) 0002087e 3f 01 |? | MOVE.W D1,-(A7) 00020880 4e b9 00 01 02 38 |N 8 | JSR KC1c_ProtCopy(src : Pointer; dst : Pointer; len : Word) 00020886 de fc 00 0a | | ADDA.W #0xa,A7 0002088a 4a 12 |J | TST.B (A2) 0002088c 67 00 00 d4 |g | BEQ 0x20962 00020890 30 2e ff f8 |0. | MOVE.W (A6-0x8),D0 00020894 02 40 00 ff | @ | ANDI.W #0x00ff,D0 00020898 0c 40 00 2c | @ , | CMPI.W #0x002c,D0 0002089c 66 00 00 a2 |f | BNE 0x20940 000208a0 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 000208a6 10 13 | | MOVE.B (A3),D0 000208a8 48 80 |H | EXTB.W D0 000208aa 53 40 |S@ | SUBQ.W #0x1,D0 000208ac b0 45 | E | CMP.W D5,D0 000208ae 63 02 |c | BLS 0x208b2 000208b0 4e 4e |NN | TRAP #14 000208b2 d0 40 | @ | ADD.W D0,D0 000208b4 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000208bc 00 06 | | .CONST 0x6 ; [0x0] -> 0x208c2 000208be 00 30 | 0 | .CONST 0x30 ; [0x1] -> 0x208ec 000208c0 00 5c | \ | .CONST 0x5c ; [0x2] -> 0x20918 000208c2 switch@0x208b4[0x0]: 000208c2 9e c2 | | SUBA.W D2,A7 000208c4 20 4f | O | MOVEA.L A7,A0 000208c6 43 fa f8 ec |C | LEA.L 0x201b4,A1 000208ca 70 0c |p | MOVEQ.L #0x0c,D0 000208cc 10 d9 | | MOVE.B (A1)+,(A0)+ 000208ce 51 c8 ff fc |Q | DBF D0,0x208cc 000208d2 59 4f |YO | SUBQ.L #0x4,A7 000208d4 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000208d8 3f 01 |? | MOVE.W D1,-(A7) 000208da 3f 03 |? | MOVE.W D3,-(A7) 000208dc 4e 94 |N | JSR (A4) 000208de 50 4f |PO | ADDQ.L #0x8,A7 000208e0 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000208e6 de c4 | | ADDA.W D4,A7 000208e8 16 85 | | MOVE.B D5,(A3) 000208ea 60 52 |`R | BRA 0x2093e 000208ec switch@0x208b4[0x1]: 000208ec 9e c2 | | SUBA.W D2,A7 000208ee 20 4f | O | MOVEA.L A7,A0 000208f0 43 fa f8 d0 |C | LEA.L 0x201c2,A1 000208f4 70 0c |p | MOVEQ.L #0x0c,D0 000208f6 10 d9 | | MOVE.B (A1)+,(A0)+ 000208f8 51 c8 ff fc |Q | DBF D0,0x208f6 000208fc 59 4f |YO | SUBQ.L #0x4,A7 000208fe 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020902 3f 01 |? | MOVE.W D1,-(A7) 00020904 3f 03 |? | MOVE.W D3,-(A7) 00020906 4e 94 |N | JSR (A4) 00020908 50 4f |PO | ADDQ.L #0x8,A7 0002090a 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00020910 de c4 | | ADDA.W D4,A7 00020912 16 bc 00 03 | | MOVE.B #0x03,(A3) 00020916 60 26 |`& | BRA 0x2093e 00020918 switch@0x208b4[0x2]: 00020918 9e c2 | | SUBA.W D2,A7 0002091a 20 4f | O | MOVEA.L A7,A0 0002091c 43 fa f8 b2 |C | LEA.L 0x201d0,A1 00020920 70 0c |p | MOVEQ.L #0x0c,D0 00020922 10 d9 | | MOVE.B (A1)+,(A0)+ 00020924 51 c8 ff fc |Q | DBF D0,0x20922 00020928 59 4f |YO | SUBQ.L #0x4,A7 0002092a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002092e 3f 01 |? | MOVE.W D1,-(A7) 00020930 3f 03 |? | MOVE.W D3,-(A7) 00020932 4e 94 |N | JSR (A4) 00020934 50 4f |PO | ADDQ.L #0x8,A7 00020936 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 0002093c de c4 | | ADDA.W D4,A7 0002093e 60 20 |` | BRA 0x20960 00020940 0c 40 00 5c | @ \ | CMPI.W #0x005c,D0 00020944 66 10 |f | BNE 0x20956 00020946 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002094c 42 12 |B | CLR.B (A2) 0002094e 42 39 00 02 4c ca |B9 L | CLR.B 0x24cca 00020954 60 0a |` | BRA 0x20960 00020956 1f 00 | | MOVE.B D0,-(A7) 00020958 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 0002095e 54 4f |TO | ADDQ.L #0x2,A7 00020960 60 40 |`@ | BRA 0x209a2 00020962 30 2e ff f8 |0. | MOVE.W (A6-0x8),D0 00020966 02 40 00 ff | @ | ANDI.W #0x00ff,D0 0002096a 1f 00 | | MOVE.B D0,-(A7) 0002096c 4e ba fb 56 |N V | JSR 0x204c4 00020970 54 4f |TO | ADDQ.L #0x2,A7 00020972 4a 12 |J | TST.B (A2) 00020974 67 2c |g, | BEQ 0x209a2 00020976 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002097c 9e c2 | | SUBA.W D2,A7 0002097e 20 4f | O | MOVEA.L A7,A0 00020980 43 fa f8 5c |C \ | LEA.L 0x201de,A1 00020984 70 0c |p | MOVEQ.L #0x0c,D0 00020986 10 d9 | | MOVE.B (A1)+,(A0)+ 00020988 51 c8 ff fc |Q | DBF D0,0x20986 0002098c 59 4f |YO | SUBQ.L #0x4,A7 0002098e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020992 3f 01 |? | MOVE.W D1,-(A7) 00020994 3f 03 |? | MOVE.W D3,-(A7) 00020996 4e 94 |N | JSR (A4) 00020998 50 4f |PO | ADDQ.L #0x8,A7 0002099a 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 000209a0 de c4 | | ADDA.W D4,A7 000209a2 52 87 |R | ADDQ.L #0x1,D7 000209a4 0c 87 00 02 00 00 | | CMPI.L #0x00020000,D7 000209aa 66 00 fe c8 |f | BNE 0x20874 000209ae 4c df 1f bf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D7+A0+A1+A2+A3+A4 000209b2 4e 5e |N^ | UNLK A6 000209b4 4e 75 |Nu | RTS 000209b6 ; -------------------------------------------------------------------------------------- 000209b6 ; OMSI PASCAL Function 000209b6 ; -------------------------------------------------------------------------------------- 000209b6 4e 56 ff ce |NV | LINK.W A6,#0xffce 000209ba bf d5 | | CMPA.L (A5),A7 000209bc 62 06 |b | BHI 0x209c4 000209be 44 fc 00 02 |D | MOVE.W #0x2,CCR 000209c2 4e 76 |Nv | TRAPV 000209c4 de fc 00 32 | 2 | ADDA.W #0x32,A7 000209c8 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000209cc 41 fa f8 38 |A 8 | LEA.L 0x20206,A0 000209d0 70 0c |p | MOVEQ.L #0x0c,D0 000209d2 3f 20 |? | MOVE.W -(A0),-(A7) 000209d4 51 c8 ff fc |Q | DBF D0,0x209d2 000209d8 59 4f |YO | SUBQ.L #0x4,A7 000209da 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000209de 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000209e2 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 000209e6 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000209ec 50 4f |PO | ADDQ.L #0x8,A7 000209ee 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000209f4 de fc 00 1e | | ADDA.W #0x1e,A7 000209f8 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000209fc 4e 5e |N^ | UNLK A6 000209fe 4e 75 |Nu | RTS 00020a00 ; -------------------------------------------------------------------------------------- 00020a00 ; OMSI PASCAL Function 00020a00 ; <LVAR 0x010 4(r)> 00020a00 ; <LVAR 0x00c 4(r)> 00020a00 ; <LVAR 0x008 4(r)> 00020a00 ; <LVAR -0x006 @ 4(rw)> 00020a00 ; -------------------------------------------------------------------------------------- 00020a00 4e 56 ff b6 |NV | LINK.W A6,#0xffb6 00020a04 bf d5 | | CMPA.L (A5),A7 00020a06 62 06 |b | BHI 0x20a0e 00020a08 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020a0c 4e 76 |Nv | TRAPV 00020a0e de fc 00 42 | B | ADDA.W #0x42,A7 00020a12 48 e7 f3 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D3+D2+D1+D0,-(A7) 00020a16 45 ee ff fa |E | LEA.L (A6-0x6),A2 00020a1a 72 0a |r | MOVEQ.L #0x0a,D1 00020a1c 74 01 |t | MOVEQ.L #0x01,D2 00020a1e 76 03 |v | MOVEQ.L #0x03,D3 00020a20 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020a24 42 10 |B | CLR.B (A0) 00020a26 7e 00 |~ | MOVEQ.L #0x00,D7 00020a28 10 07 | | MOVE.B D7,D0 00020a2a 48 80 |H | EXTB.W D0 00020a2c c1 c1 | | MULS.W D1,D0 00020a2e 41 fa f8 08 |A | LEA.L 0x20238,A0 00020a32 9e c1 | | SUBA.W D1,A7 00020a34 22 4f |"O | MOVEA.L A7,A1 00020a36 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 00020a3a 70 09 |p | MOVEQ.L #0x09,D0 00020a3c 12 d8 | | MOVE.B (A0)+,(A1)+ 00020a3e 51 c8 ff fc |Q | DBF D0,0x20a3c 00020a42 59 4f |YO | SUBQ.L #0x4,A7 00020a44 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00020a48 3f 02 |? | MOVE.W D2,-(A7) 00020a4a 3f 01 |? | MOVE.W D1,-(A7) 00020a4c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020a52 50 4f |PO | ADDQ.L #0x8,A7 00020a54 24 9f |$ | MOVE.L (A7)+,(A2) 00020a56 58 4f |XO | ADDQ.L #0x4,A7 00020a58 2e 92 |. | MOVE.L (A2),(A7) 00020a5a 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00020a5e 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00020a64 50 4f |PO | ADDQ.L #0x8,A7 00020a66 10 1f | | MOVE.B (A7)+,D0 00020a68 48 80 |H | EXTB.W D0 00020a6a 41 82 |A | CHK.W D2,D0 00020a6c 1c 00 | | MOVE.B D0,D6 00020a6e 48 52 |HR | PEA.L (A2) 00020a70 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00020a76 58 4f |XO | ADDQ.L #0x4,A7 00020a78 4a 06 |J | TST.B D6 00020a7a 67 40 |g@ | BEQ 0x20abc 00020a7c 10 07 | | MOVE.B D7,D0 00020a7e 48 80 |H | EXTB.W D0 00020a80 b0 43 | C | CMP.W D3,D0 00020a82 63 02 |c | BLS 0x20a86 00020a84 4e 4e |NN | TRAP #14 00020a86 d0 40 | @ | ADD.W D0,D0 00020a88 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00020a90 00 08 | | .CONST 0x8 ; [0x0] -> 0x20a98 00020a92 00 14 | | .CONST 0x14 ; [0x1] -> 0x20aa4 00020a94 00 16 | | .CONST 0x16 ; [0x2] -> 0x20aa6 00020a96 00 20 | | .CONST 0x20 ; [0x3] -> 0x20ab0 00020a98 switch@0x20a88[0x0]: 00020a98 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00020a9c 4e ba fa ec |N | JSR 0x2058a 00020aa0 58 4f |XO | ADDQ.L #0x4,A7 00020aa2 60 10 |` | BRA 0x20ab4 00020aa4 switch@0x20a88[0x1]: 00020aa4 60 0a |` | BRA switch@0x20a88[0x3] 00020aa6 switch@0x20a88[0x2]: 00020aa6 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00020aaa 4e ba fd 92 |N | JSR 0x2083e 00020aae 60 f0 |` | BRA 0x20aa0 00020ab0 switch@0x20a88[0x3]: 00020ab0 4e ba ff 04 |N | JSR 0x209b6 00020ab4 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020ab8 10 82 | | MOVE.B D2,(A0) 00020aba 60 08 |` | BRA 0x20ac4 00020abc 52 07 |R | ADDQ.B #0x1,D7 00020abe be 03 | | CMP.B D3,D7 00020ac0 6f 00 ff 66 |o f | BLE 0x20a28 00020ac4 4c df 07 cf |L | MOVEM.L (A7)+,D0+D1+D2+D3+D6+D7+A0+A1+A2 00020ac8 4e 5e |N^ | UNLK A6 00020aca 4e 75 |Nu | RTS 00020acc ; -------------------------------------------------------------------------------------- 00020acc ; OMSI PASCAL Function 00020acc ; <LVAR 0x008 4(r)> 00020acc ; -------------------------------------------------------------------------------------- 00020acc 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00020ad0 bf d5 | | CMPA.L (A5),A7 00020ad2 62 06 |b | BHI 0x20ada 00020ad4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020ad8 4e 76 |Nv | TRAPV 00020ada de fc 00 10 | | ADDA.W #0x10,A7 00020ade 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00020ae2 4e b9 00 01 03 98 |N | JSR FSCALL_10398 00020ae8 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00020aec 43 fa f7 40 |C @ | LEA.L 0x2022e,A1 00020af0 70 09 |p | MOVEQ.L #0x09,D0 00020af2 10 d9 | | MOVE.B (A1)+,(A0)+ 00020af4 51 c8 ff fc |Q | DBF D0,0x20af2 00020af8 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00020afc 4e 5e |N^ | UNLK A6 00020afe 4e 75 |Nu | RTS 00020b00 ; -------------------------------------------------------------------------------------- 00020b00 ; COMMAND TABLE 00020b00 ; -------------------------------------------------------------------------------------- 00020b00 COMMAND_TABLE_20b00: 00020b00 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 00020b0a 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 00020b14 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 00020b1e 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 00020b28 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 00020b32 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 00020b3c 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 00020b46 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 00020b50 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 00020b5a 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 00020b64 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 00020b6e 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 00020b78 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 00020b82 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 00020b8c 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 00020b96 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 00020ba0 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 00020baa 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 00020bb4 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 00020bbe 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 00020bc8 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 00020bd2 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 00020bdc 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 00020be6 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 00020bf0 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 00020bfa 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 00020c04 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 00020c0e 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 00020c18 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 00020c22 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 00020c2c 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 00020c36 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 00020c40 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 00020c4a 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 00020c54 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 00020c5e 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 00020c68 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 00020c72 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 00020c7c 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 00020c86 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 00020c90 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 00020c9a 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 00020ca4 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 00020cae 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 00020cb8 57 72 6f 6e 67 20 6e 75 |Wrong nu| .TXT 'Wrong number of arguments for :_' 00020cd8 45 51 2c 4e 45 2c 23 45 |EQ,NE,#E| .XXX[0x40] 00020ce0 51 2c 23 4e 45 2c 23 4c |Q,#NE,#L| 00020ce8 54 2c 23 47 54 2c 23 4c |T,#GT,#L| 00020cf0 45 2c 23 47 45 2c 45 4c |E,#GE,EL| 00020cf8 53 45 5d 45 4e 44 5d 43 |SE]END]C| 00020d00 41 53 45 2c 23 43 41 53 |ASE,#CAS| 00020d08 45 2c 57 48 45 4e 2c 45 |E,WHEN,E| 00020d10 4e 44 43 41 53 45 5d 20 |NDCASE] | 00020d18 45 76 61 6c 75 61 74 69 |Evaluati| .TXT 'Evaluation buffer overflow. ' 00020d34 55 6e 62 61 6c 61 6e 63 |Unbalanc| .TXT 'Unbalanced [ELSE] or [END]! ' 00020d50 5b 57 48 45 4e 20 5d 20 |[WHEN ] | .TXT '[WHEN ] ' 00020d5a 4e 6f 20 63 61 73 65 20 |No case | .TXT 'No case alternative found!' 00020d74 4e 6f 20 5b 45 4e 44 43 |No [ENDC| .TXT 'No [ENDCASE] found! ' 00020d88 4e 6f 20 68 65 6c 70 20 |No help | .TXT 'No help available for_' 00020d9e 2e 48 4c 50 |.HLP | .TXT '.HLP' 00020da2 54 6f 6f 20 66 65 77 20 |Too few | .TXT 'Too few arguments for SET ' 00020dbc 55 6e 6b 6e 6f 77 6e 20 |Unknown | .TXT 'Unknown variable :_ ' 00020dd0 20 69 73 20 6e 6f 74 20 | is not | .TXT ' is not a program.' 00020de2 43 4c |CL | .TXT 'CL' 00020de4 49 20 |I | .XXX[0x2] 00020de6 2e 4d 32 30 30 20 |.M200 | .TXT '.M200 ' 00020dec 53 54 |ST | .TXT 'ST' 00020dee 41 54 |AT | .TXT 'AT' 00020df0 55 53 |US | .TXT 'US' 00020df2 52 45 |RE | .TXT 'RE' 00020df4 53 55 |SU | .TXT 'SU' 00020df6 4c 54 |LT | .TXT 'LT' 00020df8 4f 66 66 73 65 74 2f 4c |Offset/L| .TXT 'Offset/Length error in [INSERT] ' 00020e18 52 45 50 45 41 54 69 6e |REPEATin| .TXT 'REPEATing, type ^G to exit. ' 00020e34 41 53 43 49 49 20 61 72 |ASCII ar| .TXT 'ASCII argument out of range.' 00020e50 4e 6f 74 20 61 20 63 6f |Not a co| .TXT 'Not a command or macro :_ ' 00020e6a 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal marker argument ' 00020e82 53 77 69 74 63 68 20 65 |Switch e| .TXT 'Switch exclusion is unimplemented.' 00020ea4 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 00020ebc 49 6c 6c 65 67 61 6c 20 |Illegal | .TXT 'Illegal argument marker.' 00020ed4 5b 49 4e 49 54 5d 5b 20 |[INIT][ | .TXT '[INIT][ ' 00020edc 5d 5b 42 59 45 5d 3b 20 |][BYE]; | .TXT '][BYE]; ' 00020ee4 5b 49 4e 49 54 5d 3b 20 |[INIT]; | .TXT '[INIT]; ' 00020eec 3e 5f |>_ | .TXT '>_' 00020eee 5b 20 |[ | .TXT '[ ' 00020ef0 5d 3b |]; | .TXT '];' 00020ef2 ; -------------------------------------------------------------------------------------- 00020ef2 ; COMMAND TABLE 00020ef2 ; -------------------------------------------------------------------------------------- 00020ef2 COMMAND_TABLE_20ef2: 00020ef2 21 40 23 24 25 5e 26 2a |!@#$%^&*| .TXT '!@#$%^&*()' 00020efc 57 52 49 54 45 20 20 20 |WRITE | .TXT 'WRITE ' 00020f06 42 59 45 20 20 20 20 20 |BYE | .TXT 'BYE ' 00020f10 48 45 41 50 20 20 20 20 |HEAP | .TXT 'HEAP ' 00020f1a 48 45 4c 50 20 20 20 20 |HELP | .TXT 'HELP ' 00020f24 41 42 4f 52 54 20 20 20 |ABORT | .TXT 'ABORT ' 00020f2e 43 4f 4d 4d 45 4e 54 20 |COMMENT | .TXT 'COMMENT ' 00020f38 53 45 54 20 20 20 20 20 |SET | .TXT 'SET ' 00020f42 56 41 52 20 20 20 20 20 |VAR | .TXT 'VAR ' 00020f4c 56 41 52 53 20 20 20 20 |VARS | .TXT 'VARS ' 00020f56 45 51 20 20 20 20 20 20 |EQ | .TXT 'EQ ' 00020f60 4e 45 20 20 20 20 20 20 |NE | .TXT 'NE ' 00020f6a 43 41 53 45 20 20 20 20 |CASE | .TXT 'CASE ' 00020f74 49 4e 53 45 52 54 20 20 |INSERT | .TXT 'INSERT ' 00020f7e 45 58 54 52 41 43 54 20 |EXTRACT | .TXT 'EXTRACT ' 00020f88 23 43 41 53 45 20 20 20 |#CASE | .TXT '#CASE ' 00020f92 23 45 51 20 20 20 20 20 |#EQ | .TXT '#EQ ' 00020f9c 23 4e 45 20 20 20 20 20 |#NE | .TXT '#NE ' 00020fa6 23 4c 54 20 20 20 20 20 |#LT | .TXT '#LT ' 00020fb0 23 47 54 20 20 20 20 20 |#GT | .TXT '#GT ' 00020fba 23 4c 45 20 20 20 20 20 |#LE | .TXT '#LE ' 00020fc4 23 47 45 20 20 20 20 20 |#GE | .TXT '#GE ' 00020fce 41 44 44 20 20 20 20 20 |ADD | .TXT 'ADD ' 00020fd8 53 55 42 20 20 20 20 20 |SUB | .TXT 'SUB ' 00020fe2 4d 55 4c 20 20 20 20 20 |MUL | .TXT 'MUL ' 00020fec 44 49 56 20 20 20 20 20 |DIV | .TXT 'DIV ' 00020ff6 4d 4f 44 20 20 20 20 20 |MOD | .TXT 'MOD ' 00021000 4f 52 20 20 20 20 20 20 |OR | .TXT 'OR ' 0002100a 41 4e 44 20 20 20 20 20 |AND | .TXT 'AND ' 00021014 58 4f 52 20 20 20 20 20 |XOR | .TXT 'XOR ' 0002101e 4c 53 48 49 46 54 20 20 |LSHIFT | .TXT 'LSHIFT ' 00021028 52 53 48 49 46 54 20 20 |RSHIFT | .TXT 'RSHIFT ' 00021032 4e 4f 54 20 20 20 20 20 |NOT | .TXT 'NOT ' 0002103c 23 49 4e 53 45 52 54 20 |#INSERT | .TXT '#INSERT ' 00021046 23 45 58 54 52 41 43 54 |#EXTRACT| .TXT '#EXTRACT ' 00021050 52 45 41 44 20 20 20 20 |READ | .TXT 'READ ' 0002105a 4b 49 4c 4c 20 20 20 20 |KILL | .TXT 'KILL ' 00021064 50 55 53 48 20 20 20 20 |PUSH | .TXT 'PUSH ' 0002106e 4c 45 56 45 4c 20 20 20 |LEVEL | .TXT 'LEVEL ' 00021078 43 4f 4e 56 45 52 54 20 |CONVERT | .TXT 'CONVERT ' 00021082 43 4f 55 4e 54 5f 4f 4e |COUNT_ON| .TXT 'COUNT_ONES' 0002108c 52 45 50 45 41 54 20 20 |REPEAT | .TXT 'REPEAT ' 00021096 4d 4f 44 45 4c 20 20 20 |MODEL | .TXT 'MODEL ' 000210a0 41 53 43 49 49 20 20 20 |ASCII | .TXT 'ASCII ' 000210aa a5 34 45 73 34 22 | 4Es4" | .XXX[0x6] 000210b0 46 75 33 33 33 33 33 32 |Fu333332| .XXX[0x98] 000210b8 33 66 37 84 44 57 a6 55 |3f7 DW U| 000210c0 0f 00 f0 ff 10 22 14 31 | " 1| 000210c8 22 22 22 22 22 22 22 22 |""""""""| 000210d0 14 3f 1f 03 10 0f 00 00 | ? | 000210d8 00 00 ff ff ff ff 00 01 | | 000210e0 01 00 01 01 00 01 02 00 | | 000210e8 00 01 02 00 01 02 00 01 | | 000210f0 14 06 01 14 08 14 0f 02 | | 000210f8 03 14 14 08 14 0f 14 14 | | 00021100 14 14 14 14 14 04 14 05 | | 00021108 14 14 14 14 14 14 14 14 | | 00021110 14 14 14 04 14 14 14 14 | | 00021118 14 14 04 14 07 14 14 14 | | 00021120 14 04 14 14 14 14 14 14 | | 00021128 0c 14 14 09 14 14 14 0d | | 00021130 14 14 14 0b 0a 14 0e 14 | | 00021138 14 14 08 14 14 0c 14 14 | | 00021140 09 14 14 14 14 14 14 14 | | 00021148 14 14 14 14 14 14 14 14 | | .BLANK 14[0x10] 00021158 14 10 14 14 11 14 14 14 | | .XXX[0x20] 00021160 14 14 14 14 14 14 14 13 | | 00021168 14 14 14 14 14 12 14 14 | | 00021170 14 11 14 14 14 14 14 14 | | 00021178 14 14 14 14 | | .XXX[0x4] 0002117c ; -------------------------------------------------------------------------------------- 0002117c ; OMSI PASCAL Function 0002117c ; <LVAR 0x008 4(r)> 0002117c ; <LVAR -0x004 @ 4(w)> 0002117c ; -------------------------------------------------------------------------------------- 0002117c 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00021180 bf d5 | | CMPA.L (A5),A7 00021182 62 06 |b | BHI 0x2118a 00021184 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021188 4e 76 |Nv | TRAPV 0002118a de fc 00 10 | | ADDA.W #0x10,A7 0002118e 48 e7 00 08 |H | MOVEM.L A4,-(A7) 00021192 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 00021196 b8 fc 00 01 | | CMPA.W #0x1,A4 0002119a 67 1a |g | BEQ 0x211b6 0002119c 2d 4c ff fc |-L | MOVE.L A4,(A6-0x4) 000211a0 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 000211a4 48 6e ff fc |Hn | PEA.L (A6-0x4) 000211a8 48 78 00 0c |Hx | PEA.L 0xc 000211ac 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 000211b2 50 4f |PO | ADDQ.L #0x8,A7 000211b4 60 e0 |` | BRA 0x21196 000211b6 4c df 10 00 |L | MOVEM.L (A7)+,A4 000211ba 4e 5e |N^ | UNLK A6 000211bc 4e 75 |Nu | RTS 000211be ; -------------------------------------------------------------------------------------- 000211be ; OMSI PASCAL Function 000211be ; <LVAR 0x008 4(r)> 000211be ; -------------------------------------------------------------------------------------- 000211be 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 000211c2 bf d5 | | CMPA.L (A5),A7 000211c4 62 06 |b | BHI 0x211cc 000211c6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000211ca 4e 76 |Nv | TRAPV 000211cc de fc 00 10 | | ADDA.W #0x10,A7 000211d0 48 e7 00 80 |H | MOVEM.L A0,-(A7) 000211d4 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000211d8 b0 fc 00 01 | | CMPA.W #0x1,A0 000211dc 67 0a |g | BEQ 0x211e8 000211de 2f 08 |/ | MOVE.L A0,-(A7) 000211e0 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000211e6 58 4f |XO | ADDQ.L #0x4,A7 000211e8 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 000211ec 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 000211f0 4e f9 00 02 4a 9a |N J | JMP 0x24a9a 000211f6 4c df |L | .XXX[0x2] 000211f8 01 00 4e 5e 4e 75 4e 56 | N^NuNV| .XXX[0x20] 00021200 ff fc bf d5 62 06 44 fc | b D | 00021208 00 02 4e 76 de fc 00 04 | Nv | 00021210 2d 79 00 02 60 e4 00 08 |-y ` | 00021218 4e 5e 4e 75 |N^Nu | .XXX[0x4] 0002121c ; -------------------------------------------------------------------------------------- 0002121c ; OMSI PASCAL Function 0002121c ; <LVAR 0x008 1(rw)> 0002121c ; -------------------------------------------------------------------------------------- 0002121c 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00021220 bf d5 | | CMPA.L (A5),A7 00021222 62 06 |b | BHI 0x2122a 00021224 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021228 4e 76 |Nv | TRAPV 0002122a de fc 00 10 | | ADDA.W #0x10,A7 0002122e 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00021232 20 39 00 02 60 e4 | 9 ` | MOVE.L 0x260e4,D0 00021238 b0 b9 00 02 60 e8 | ` | CMP.L 0x260e8,D0 0002123e 6f 06 |o | BLE 0x21246 00021240 42 2e 00 08 |B. | CLR.B (A6+0x8) 00021244 60 0c |` | BRA 0x21252 00021246 41 f9 00 02 50 dc |A P | LEA.L 0x250dc,A0 0002124c 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 00021252 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00021256 4e 5e |N^ | UNLK A6 00021258 4e 75 |Nu | RTS 0002125a ; -------------------------------------------------------------------------------------- 0002125a ; OMSI PASCAL Function 0002125a ; <LVAR 0x008 1(rw)> 0002125a ; -------------------------------------------------------------------------------------- 0002125a 4e 56 ff ec |NV | LINK.W A6,#0xffec 0002125e bf d5 | | CMPA.L (A5),A7 00021260 62 06 |b | BHI 0x21268 00021262 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021266 4e 76 |Nv | TRAPV 00021268 de fc 00 14 | | ADDA.W #0x14,A7 0002126c 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00021270 43 f9 00 02 60 e4 |C ` | LEA.L 0x260e4,A1 00021276 20 11 | | MOVE.L (A1),D0 00021278 b0 b9 00 02 60 e8 | ` | CMP.L 0x260e8,D0 0002127e 6f 06 |o | BLE 0x21286 00021280 42 2e 00 08 |B. | CLR.B (A6+0x8) 00021284 60 0c |` | BRA 0x21292 00021286 41 f9 00 02 50 dc |A P | LEA.L 0x250dc,A0 0002128c 1d 70 08 07 00 08 | p | MOVE.B (A0+D0.L+#0x7),(A6+0x8) 00021292 52 80 |R | ADDQ.L #0x1,D0 00021294 22 80 |" | MOVE.L D0,(A1) 00021296 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 0002129a 4e 5e |N^ | UNLK A6 0002129c 4e 75 |Nu | RTS 0002129e ; -------------------------------------------------------------------------------------- 0002129e ; OMSI PASCAL Function 0002129e ; <LVAR 0x00c 4(r)> 0002129e ; <LVAR 0x008 4(r)> 0002129e ; -------------------------------------------------------------------------------------- 0002129e 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 000212a2 bf d5 | | CMPA.L (A5),A7 000212a4 62 06 |b | BHI 0x212ac 000212a6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000212aa 4e 76 |Nv | TRAPV 000212ac de fc 00 38 | 8 | ADDA.W #0x38,A7 000212b0 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000212b4 45 ee 00 08 |E | LEA.L (A6+0x8),A2 000212b8 47 f9 00 02 60 e4 |G ` | LEA.L 0x260e4,A3 000212be 72 5b |r[ | MOVEQ.L #0x5b,D1 000212c0 74 02 |t | MOVEQ.L #0x02,D2 000212c2 76 2c |v, | MOVEQ.L #0x2c,D3 000212c4 78 3b |x; | MOVEQ.L #0x3b,D4 000212c6 55 4f |UO | SUBQ.L #0x2,A7 000212c8 4e ba ff 52 |N R | JSR 0x2121c 000212cc 10 1f | | MOVE.B (A7)+,D0 000212ce b0 01 | | CMP.B D1,D0 000212d0 66 0a |f | BNE 0x212dc 000212d2 4e b9 00 02 45 a4 |N E | JSR 0x245a4 000212d8 60 00 00 92 |` | BRA 0x2136c 000212dc 2c 13 |, | MOVE.L (A3),D6 000212de 55 4f |UO | SUBQ.L #0x2,A7 000212e0 4e ba ff 78 |N x | JSR 0x2125a 000212e4 1a 1f | | MOVE.B (A7)+,D5 000212e6 66 18 |f | BNE 0x21300 000212e8 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000212ec 43 fa fd e8 |C | LEA.L 0x210d6,A1 000212f0 70 07 |p | MOVEQ.L #0x07,D0 000212f2 10 d9 | | MOVE.B (A1)+,(A0)+ 000212f4 51 c8 ff fc |Q | DBF D0,0x212f2 000212f8 20 52 | R | MOVEA.L (A2),A0 000212fa 10 82 | | MOVE.B D2,(A0) 000212fc 60 72 |`r | BRA 0x21370 000212fe 60 5c |`\ | .XXX[0x2] 00021300 ba 03 | | CMP.B D3,D5 00021302 66 08 |f | BNE 0x2130c 00021304 20 52 | R | MOVEA.L (A2),A0 00021306 10 bc 00 03 | | MOVE.B #0x03,(A0) 0002130a 60 50 |`P | BRA 0x2135c 0002130c ba 04 | | CMP.B D4,D5 0002130e 66 08 |f | BNE 0x21318 00021310 20 52 | R | MOVEA.L (A2),A0 00021312 10 bc 00 01 | | MOVE.B #0x01,(A0) 00021316 60 44 |`D | BRA 0x2135c 00021318 0c 05 00 5d | ] | CMPI.B #0x5d,D5 0002131c 66 06 |f | BNE 0x21324 0002131e 20 52 | R | MOVEA.L (A2),A0 00021320 10 82 | | MOVE.B D2,(A0) 00021322 60 38 |`8 | BRA 0x2135c 00021324 20 52 | R | MOVEA.L (A2),A0 00021326 42 10 |B | CLR.B (A0) 00021328 55 4f |UO | SUBQ.L #0x2,A7 0002132a 4e ba fe f0 |N | JSR 0x2121c 0002132e 1e 1f | | MOVE.B (A7)+,D7 00021330 be 01 | | CMP.B D1,D7 00021332 66 08 |f | BNE 0x2133c 00021334 4e b9 00 02 45 a4 |N E | JSR 0x245a4 0002133a 60 1e |` | BRA 0x2135a 0002133c be 04 | | CMP.B D4,D7 0002133e 67 0e |g | BEQ 0x2134e 00021340 be 03 | | CMP.B D3,D7 00021342 67 0a |g | BEQ 0x2134e 00021344 0c 07 00 5d | ] | CMPI.B #0x5d,D7 00021348 67 04 |g | BEQ 0x2134e 0002134a 4a 07 |J | TST.B D7 0002134c 66 04 |f | BNE 0x21352 0002134e 60 0c |` | BRA 0x2135c 00021350 60 08 |` | .XXX[0x2] 00021352 55 4f |UO | SUBQ.L #0x2,A7 00021354 4e ba ff 04 |N | JSR 0x2125a 00021358 1e 1f | | MOVE.B (A7)+,D7 0002135a 60 cc |` | BRA 0x21328 0002135c 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021360 20 86 | | MOVE.L D6,(A0) 00021362 21 53 00 04 |!S | MOVE.L (A3),(A0+0x4) 00021366 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 0002136a 60 04 |` | BRA 0x21370 0002136c 60 00 ff 58 |` X | BRA 0x212c6 00021370 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00021374 4e 5e |N^ | UNLK A6 00021376 4e 75 |Nu | RTS 00021378 ; -------------------------------------------------------------------------------------- 00021378 ; OMSI PASCAL Function 00021378 ; <LVAR 0x010 4(r)> 00021378 ; <LVAR 0x00c 4(r)> 00021378 ; <LVAR 0x008 4(r)> 00021378 ; <LVAR -0x004 @ 1(rw)> 00021378 ; <LVAR -0x008 4(w)> 00021378 ; <LVAR -0x00c @ 4(w)> 00021378 ; -------------------------------------------------------------------------------------- 00021378 4e 56 ff ca |NV | LINK.W A6,#0xffca 0002137c bf d5 | | CMPA.L (A5),A7 0002137e 62 06 |b | BHI 0x21386 00021380 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021384 4e 76 |Nv | TRAPV 00021386 de fc 00 2a | * | ADDA.W #0x2a,A7 0002138a 48 e7 c0 f0 |H | MOVEM.L A3+A2+A1+A0+D1+D0,-(A7) 0002138e 45 ee ff fc |E | LEA.L (A6-0x4),A2 00021392 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00021396 72 03 |r | MOVEQ.L #0x03,D1 00021398 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002139c 10 10 | | MOVE.B (A0),D0 0002139e 0c 00 00 01 | | CMPI.B #0x01,D0 000213a2 67 06 |g | BEQ 0x213aa 000213a4 0c 00 00 02 | | CMPI.B #0x02,D0 000213a8 66 0e |f | BNE 0x213b8 000213aa 26 ba fd 2a |& * | MOVE.L 0x210d6,(A3) 000213ae 2d 7a fd 2a ff f8 |-z * | MOVE.L 0x210da,(A6-0x8) 000213b4 14 80 | | MOVE.B D0,(A2) 000213b6 60 3c |`< | BRA 0x213f4 000213b8 48 53 |HS | PEA.L (A3) 000213ba 48 52 |HR | PEA.L (A2) 000213bc 4e ba fe e0 |N | JSR 0x2129e 000213c0 50 4f |PO | ADDQ.L #0x8,A7 000213c2 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000213c6 4a 12 |J | TST.B (A2) 000213c8 67 1c |g | BEQ 0x213e6 000213ca 10 10 | | MOVE.B (A0),D0 000213cc b0 01 | | CMP.B D1,D0 000213ce 66 16 |f | BNE 0x213e6 000213d0 10 12 | | MOVE.B (A2),D0 000213d2 48 80 |H | EXTB.W D0 000213d4 41 81 |A | CHK.W D1,D0 000213d6 10 80 | | MOVE.B D0,(A0) 000213d8 26 ba fc fc |& | MOVE.L 0x210d6,(A3) 000213dc 2d 7a fc fc ff f8 |-z | MOVE.L 0x210da,(A6-0x8) 000213e2 42 12 |B | CLR.B (A2) 000213e4 60 08 |` | BRA 0x213ee 000213e6 10 12 | | MOVE.B (A2),D0 000213e8 48 80 |H | EXTB.W D0 000213ea 41 81 |A | CHK.W D1,D0 000213ec 10 80 | | MOVE.B D0,(A0) 000213ee 10 12 | | MOVE.B (A2),D0 000213f0 b0 01 | | CMP.B D1,D0 000213f2 67 c4 |g | BEQ 0x213b8 000213f4 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 000213f8 22 4b |"K | MOVEA.L A3,A1 000213fa 70 07 |p | MOVEQ.L #0x07,D0 000213fc 10 d9 | | MOVE.B (A1)+,(A0)+ 000213fe 51 c8 ff fc |Q | DBF D0,0x213fc 00021402 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021406 10 12 | | MOVE.B (A2),D0 00021408 48 80 |H | EXTB.W D0 0002140a 41 81 |A | CHK.W D1,D0 0002140c 10 80 | | MOVE.B D0,(A0) 0002140e 4c df 0f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3 00021412 4e 5e |N^ | UNLK A6 00021414 4e 75 |Nu | RTS 00021416 ; -------------------------------------------------------------------------------------- 00021416 ; OMSI PASCAL Function 00021416 ; <LVAR 0x008 4(rw)> 00021416 ; <LVAR -0x004 1(rw)> 00021416 ; <LVAR -0x010 2(rw)> 00021416 ; -------------------------------------------------------------------------------------- 00021416 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 0002141a bf d5 | | CMPA.L (A5),A7 0002141c 62 06 |b | BHI 0x21424 0002141e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021422 4e 76 |Nv | TRAPV 00021424 de fc 00 30 | 0 | ADDA.W #0x30,A7 00021428 48 e7 c7 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 0002142c 43 ee ff f0 |C | LEA.L (A6-0x10),A1 00021430 45 ee ff fc |E | LEA.L (A6-0x4),A2 00021434 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00021438 72 20 |r | MOVEQ.L #0x20,D1 0002143a 7c 01 || | MOVEQ.L #0x01,D6 0002143c 42 51 |BQ | CLR.W (A1) 0002143e 7a 01 |z | MOVEQ.L #0x01,D5 00021440 59 4f |YO | SUBQ.L #0x4,A7 00021442 2f 13 |/ | MOVE.L (A3),-(A7) 00021444 4e b9 00 01 02 f0 |N | JSR ToUpper(a : String) : String 0002144a 58 4f |XO | ADDQ.L #0x4,A7 0002144c 26 9f |& | MOVE.L (A7)+,(A3) 0002144e 20 53 | S | MOVEA.L (A3),A0 00021450 2f 08 |/ | MOVE.L A0,-(A7) 00021452 20 57 | W | MOVEA.L (A7),A0 00021454 30 10 |0 | MOVE.W (A0),D0 00021456 48 c0 |H | EXTW.L D0 00021458 bc 80 | | CMP.L D0,D6 0002145a 6e 00 00 b0 |n | BGT 0x2150c 0002145e 42 80 |B | CLR.L D0 00021460 10 30 68 01 | 0h | MOVE.B (A0+D6.L+#0x1),D0 00021464 02 40 00 7f | @ | ANDI.W #0x007f,D0 00021468 14 80 | | MOVE.B D0,(A2) 0002146a 0c 00 00 09 | | CMPI.B #0x09,D0 0002146e 66 02 |f | BNE 0x21472 00021470 14 81 | | MOVE.B D1,(A2) 00021472 42 80 |B | CLR.L D0 00021474 10 12 | | MOVE.B (A2),D0 00021476 90 41 | A | SUB.W D1,D0 00021478 0c 40 00 0c | @ | CMPI.W #0x000c,D0 0002147c 62 30 |b0 | BHI switch@0x21480[0x2] 0002147e d0 40 | @ | ADD.W D0,D0 00021480 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 00021488 00 1e | | .CONST 0x1e ; [0x0] -> 0x214a6 0002148a 00 1a | | .CONST 0x1a ; [0x1] -> 0x214a2 0002148c 00 26 | & | .CONST 0x26 ; [0x2] -> 0x214ae 0002148e 00 26 | & | .CONST 0x26 ; [0x3] -> 0x214ae 00021490 00 26 | & | .CONST 0x26 ; [0x4] -> 0x214ae 00021492 00 26 | & | .CONST 0x26 ; [0x5] -> 0x214ae 00021494 00 26 | & | .CONST 0x26 ; [0x6] -> 0x214ae 00021496 00 26 | & | .CONST 0x26 ; [0x7] -> 0x214ae 00021498 00 26 | & | .CONST 0x26 ; [0x8] -> 0x214ae 0002149a 00 26 | & | .CONST 0x26 ; [0x9] -> 0x214ae 0002149c 00 26 | & | .CONST 0x26 ; [0xa] -> 0x214ae 0002149e 00 26 | & | .CONST 0x26 ; [0xb] -> 0x214ae 000214a0 00 22 | " | .CONST 0x22 ; [0xc] -> 0x214aa 000214a2 switch@0x21480[0x1]: 000214a2 60 68 |`h | BRA 0x2150c 000214a4 60 0a |` | .XXX[0x2] 000214a6 switch@0x21480[0x0]: 000214a6 7e 00 |~ | MOVEQ.L #0x00,D7 000214a8 60 06 |` | BRA 0x214b0 000214aa switch@0x21480[0xc]: 000214aa 7e 01 |~ | MOVEQ.L #0x01,D7 000214ac 60 02 |` | BRA 0x214b0 000214ae switch@0x21480[0x2]: 000214ae switch@0x21480[0x3]: 000214ae switch@0x21480[0x4]: 000214ae switch@0x21480[0x5]: 000214ae switch@0x21480[0x6]: 000214ae switch@0x21480[0x7]: 000214ae switch@0x21480[0x8]: 000214ae switch@0x21480[0x9]: 000214ae switch@0x21480[0xa]: 000214ae switch@0x21480[0xb]: 000214ae 7e 02 |~ | MOVEQ.L #0x02,D7 000214b0 70 03 |p | MOVEQ.L #0x03,D0 000214b2 c1 d1 | | MULS.W (A1),D0 000214b4 41 fa fc 28 |A ( | LEA.L 0x210de,A0 000214b8 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 000214bc 42 80 |B | CLR.L D0 000214be 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 000214c2 0c 40 00 02 | @ | CMPI.W #0x0002,D0 000214c6 63 02 |c | BLS 0x214ca 000214c8 4e 4e |NN | TRAP #14 000214ca d0 40 | @ | ADD.W D0,D0 000214cc 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 000214d4 00 06 | | .CONST 0x6 ; [0x0] -> 0x214da 000214d6 00 08 | | .CONST 0x8 ; [0x1] -> 0x214dc 000214d8 00 12 | | .CONST 0x12 ; [0x2] -> 0x214e6 000214da switch@0x214cc[0x0]: 000214da 60 16 |` | BRA 0x214f2 000214dc switch@0x214cc[0x1]: 000214dc 20 57 | W | MOVEA.L (A7),A0 000214de 11 92 58 01 | X | MOVE.B (A2),(A0+D5.L+#0x1) 000214e2 52 85 |R | ADDQ.L #0x1,D5 000214e4 60 0c |` | BRA 0x214f2 000214e6 switch@0x214cc[0x2]: 000214e6 20 57 | W | MOVEA.L (A7),A0 000214e8 11 bc 00 2c 58 01 | ,X | MOVE.B #0x2c,(A0+D5.L+#0x1) 000214ee 52 85 |R | ADDQ.L #0x1,D5 000214f0 53 86 |S | SUBQ.L #0x1,D6 000214f2 70 03 |p | MOVEQ.L #0x03,D0 000214f4 c1 d1 | | MULS.W (A1),D0 000214f6 41 fa fb ef |A | LEA.L 0x210e7,A0 000214fa 41 f0 00 00 |A | LEA.L (A0+D0.W),A0 000214fe 42 80 |B | CLR.L D0 00021500 10 30 70 00 | 0p | MOVE.B (A0+D7.W),D0 00021504 32 80 |2 | MOVE.W D0,(A1) 00021506 52 86 |R | ADDQ.L #0x1,D6 00021508 60 00 ff 48 |` H | BRA 0x21452 0002150c 20 57 | W | MOVEA.L (A7),A0 0002150e 20 05 | | MOVE.L D5,D0 00021510 53 80 |S | SUBQ.L #0x1,D0 00021512 30 80 |0 | MOVE.W D0,(A0) 00021514 58 4f |XO | ADDQ.L #0x4,A7 00021516 4c df 0f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3 0002151a 4e 5e |N^ | UNLK A6 0002151c 4e 75 |Nu | RTS 0002151e ; -------------------------------------------------------------------------------------- 0002151e ; OMSI PASCAL Function 0002151e ; <LVAR 0x00c 4(r)> 0002151e ; <LVAR 0x008 4(r)> 0002151e ; <LVAR -0x002 @ 1(r)> 0002151e ; <LVAR -0x00a @> 0002151e ; <LVAR -0x00e @ 4(r)> 0002151e ; <LVAR -0x014 @ 1(r)> 0002151e ; -------------------------------------------------------------------------------------- 0002151e 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00021522 bf d5 | | CMPA.L (A5),A7 00021524 62 06 |b | BHI 0x2152c 00021526 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002152a 4e 76 |Nv | TRAPV 0002152c de fc 00 30 | 0 | ADDA.W #0x30,A7 00021530 48 e7 c1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D1+D0,-(A7) 00021534 47 ee ff f2 |G | LEA.L (A6-0xe),A3 00021538 72 01 |r | MOVEQ.L #0x01,D1 0002153a 55 4f |UO | SUBQ.L #0x2,A7 0002153c 4e ba fc de |N | JSR 0x2121c 00021540 10 1f | | MOVE.B (A7)+,D0 00021542 0c 00 00 5b | [ | CMPI.B #0x5b,D0 00021546 66 08 |f | BNE 0x21550 00021548 55 4f |UO | SUBQ.L #0x2,A7 0002154a 4e ba fd 0e |N | JSR 0x2125a 0002154e 1e 1f | | MOVE.B (A7)+,D7 00021550 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021554 20 81 | | MOVE.L D1,(A0) 00021556 42 2e ff ec |B. | CLR.B (A6-0x14) 0002155a 48 6e ff f6 |Hn | PEA.L (A6-0xa) 0002155e 48 6e ff fe |Hn | PEA.L (A6-0x2) 00021562 48 6e ff ec |Hn | PEA.L (A6-0x14) 00021566 4e ba fe 10 |N | JSR 0x21378 0002156a de fc 00 0c | | ADDA.W #0xc,A7 0002156e 4a 2e ff fe |J. | TST.B (A6-0x2) 00021572 66 36 |f6 | BNE 0x215aa 00021574 48 53 |HS | PEA.L (A3) 00021576 48 78 00 0c |Hx | PEA.L 0xc 0002157a 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 00021580 50 4f |PO | ADDQ.L #0x8,A7 00021582 20 53 | S | MOVEA.L (A3),A0 00021584 22 48 |"H | MOVEA.L A0,A1 00021586 45 ee ff f6 |E | LEA.L (A6-0xa),A2 0002158a 70 07 |p | MOVEQ.L #0x07,D0 0002158c 12 da | | MOVE.B (A2)+,(A1)+ 0002158e 51 c8 ff fc |Q | DBF D0,0x2158c 00021592 21 41 00 08 |!A | MOVE.L D1,(A0+0x8) 00021596 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002159a 22 50 |"P | MOVEA.L (A0),A1 0002159c b2 c1 | | CMPA.W D1,A1 0002159e 66 04 |f | BNE 0x215a4 000215a0 20 93 | | MOVE.L (A3),(A0) 000215a2 60 04 |` | BRA 0x215a8 000215a4 29 53 00 08 |)S | MOVE.L (A3),(A4+0x8) 000215a8 28 53 |(S | MOVEA.L (A3),A4 000215aa 4a 2e ff fe |J. | TST.B (A6-0x2) 000215ae 67 aa |g | BEQ 0x2155a 000215b0 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000215b4 42 10 |B | CLR.B (A0) 000215b6 10 2e ff fe | . | MOVE.B (A6-0x2),D0 000215ba 0c 00 00 02 | | CMPI.B #0x02,D0 000215be 66 02 |f | BNE 0x215c2 000215c0 52 10 |R | ADDQ.B #0x1,(A0) 000215c2 4c df 1f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3+A4 000215c6 4e 5e |N^ | UNLK A6 000215c8 4e 75 |Nu | RTS 000215ca ; -------------------------------------------------------------------------------------- 000215ca ; OMSI PASCAL Function 000215ca ; <LVAR 0x00c 4(w)> 000215ca ; <LVAR 0x008 4(r)> 000215ca ; -------------------------------------------------------------------------------------- 000215ca 4e 56 ff ec |NV | LINK.W A6,#0xffec 000215ce bf d5 | | CMPA.L (A5),A7 000215d0 62 06 |b | BHI 0x215d8 000215d2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000215d6 4e 76 |Nv | TRAPV 000215d8 de fc 00 0c | | ADDA.W #0xc,A7 000215dc 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 000215e0 7e ff |~ | MOVEQ.L #-0x01,D7 000215e2 28 6e 00 08 |(n | MOVEA.L (A6+0x8),A4 000215e6 b8 fc 00 01 | | CMPA.W #0x1,A4 000215ea 67 08 |g | BEQ 0x215f4 000215ec 52 87 |R | ADDQ.L #0x1,D7 000215ee 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 000215f2 60 f2 |` | BRA 0x215e6 000215f4 2d 47 00 0c |-G | MOVE.L D7,(A6+0xc) 000215f8 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 000215fc 4e 5e |N^ | UNLK A6 000215fe 4e 75 |Nu | RTS 00021600 ; -------------------------------------------------------------------------------------- 00021600 ; OMSI PASCAL Function 00021600 ; <LVAR 0x00c 4(r)> 00021600 ; <LVAR 0x008 4(r)> 00021600 ; -------------------------------------------------------------------------------------- 00021600 4e 56 ff b0 |NV | LINK.W A6,#0xffb0 00021604 bf d5 | | CMPA.L (A5),A7 00021606 62 06 |b | BHI 0x2160e 00021608 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002160c 4e 76 |Nv | TRAPV 0002160e de fc 00 4e | N | ADDA.W #0x4e,A7 00021612 48 e7 c0 80 |H | MOVEM.L A0+D1+D0,-(A7) 00021616 72 01 |r | MOVEQ.L #0x01,D1 00021618 59 4f |YO | SUBQ.L #0x4,A7 0002161a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002161e 4e ba ff aa |N | JSR 0x215ca 00021622 58 4f |XO | ADDQ.L #0x4,A7 00021624 20 1f | | MOVE.L (A7)+,D0 00021626 b0 ae 00 08 | | CMP.L (A6+0x8),D0 0002162a 67 58 |gX | BEQ 0x21684 0002162c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00021630 4e ba fb 4a |N J | JSR 0x2117c 00021634 58 4f |XO | ADDQ.L #0x4,A7 00021636 41 fa f6 a0 |A | LEA.L 0x20cd8,A0 0002163a 70 07 |p | MOVEQ.L #0x07,D0 0002163c 2f 20 |/ | MOVE.L -(A0),-(A7) 0002163e 51 c8 ff fc |Q | DBF D0,0x2163c 00021642 41 ee 00 1a |A | LEA.L (A6+0x1a),A0 00021646 70 04 |p | MOVEQ.L #0x04,D0 00021648 3f 20 |? | MOVE.W -(A0),-(A7) 0002164a 51 c8 ff fc |Q | DBF D0,0x21648 0002164e 51 4f |QO | SUBQ.L #0x8,A7 00021650 48 6f 00 12 |Ho | PEA.L (A7+0x12) 00021654 3f 01 |? | MOVE.W D1,-(A7) 00021656 3f 3c 00 20 |?< | MOVE.W #0x20,-(A7) 0002165a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021660 58 4f |XO | ADDQ.L #0x4,A7 00021662 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00021666 3f 01 |? | MOVE.W D1,-(A7) 00021668 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 0002166c 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021672 50 4f |PO | ADDQ.L #0x8,A7 00021674 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002167a 50 4f |PO | ADDQ.L #0x8,A7 0002167c 4e ba fb 40 |N @ | JSR 0x211be 00021680 de fc 00 2e | . | ADDA.W #0x2e,A7 00021684 4c df 01 03 |L | MOVEM.L (A7)+,D0+D1+A0 00021688 4e 5e |N^ | UNLK A6 0002168a 4e 75 |Nu | RTS 0002168c ; -------------------------------------------------------------------------------------- 0002168c ; OMSI PASCAL Function 0002168c ; <LVAR 0x014 1(rw)> 0002168c ; <LVAR 0x010 4(r)> 0002168c ; <LVAR 0x00c 4(r)> 0002168c ; <LVAR 0x008 4(r)> 0002168c ; -------------------------------------------------------------------------------------- 0002168c 4e 56 ff dc |NV | LINK.W A6,#0xffdc ; Spelunked 00021690 bf d5 | | CMPA.L (A5),A7 00021692 62 06 |b | BHI 0x2169a 00021694 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021698 4e 76 |Nv | TRAPV 0002169a de fc 00 20 | | ADDA.W #0x20,A7 0002169e 48 e7 c1 c0 |H | MOVEM.L A1+A0+D7+D1+D0,-(A7) 000216a2 42 2e 00 14 |B. | CLR.B (A6+0x14) 000216a6 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 000216aa d0 ae 00 08 | | ADD.L (A6+0x8),D0 000216ae b0 b9 00 02 60 e8 | ` | CMP.L 0x260e8,D0 000216b4 6e 4e |nN | BGT 0x21704 000216b6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000216ba 7e 01 |~ | MOVEQ.L #0x01,D7 000216bc be 97 | | CMP.L (A7),D7 000216be 6e 42 |nB | BGT 0x21702 000216c0 20 2e 00 10 | . | MOVE.L (A6+0x10),D0 000216c4 d0 87 | | ADD.L D7,D0 000216c6 53 80 |S | SUBQ.L #0x1,D0 000216c8 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 000216ce 63 02 |c | BLS 0x216d2 000216d0 4e 4f |NO | TRAP #15 000216d2 41 f9 00 02 50 dc |A P | LEA.L 0x250dc,A0 000216d8 22 2e 00 0c |". | MOVE.L (A6+0xc),D1 000216dc d2 87 | | ADD.L D7,D1 000216de 53 81 |S | SUBQ.L #0x1,D1 000216e0 53 81 |S | SUBQ.L #0x1,D1 000216e2 0c 81 00 00 00 3e | > | CMPI.L #0x0000003e,D1 000216e8 63 02 |c | BLS 0x216ec 000216ea 4e 4f |NO | TRAP #15 000216ec 43 fa f5 ea |C | LEA.L 0x20cd8,A1 000216f0 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 000216f4 b0 31 18 00 | 1 | CMP.B (A1+D1.L),D0 000216f8 67 04 |g | BEQ 0x216fe 000216fa 58 4f |XO | ADDQ.L #0x4,A7 000216fc 60 0c |` | BRA 0x2170a 000216fe 52 87 |R | ADDQ.L #0x1,D7 00021700 68 ba |h | BVC 0x216bc 00021702 58 4f |XO | ADDQ.L #0x4,A7 00021704 1d 7c 00 01 00 14 | | | MOVE.B #0x01,(A6+0x14) 0002170a 4c df 03 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1 0002170e 4e 5e |N^ | UNLK A6 00021710 4e 75 |Nu | RTS 00021712 ; -------------------------------------------------------------------------------------- 00021712 ; OMSI PASCAL Function 00021712 ; <LVAR 0x00c 4(r)> 00021712 ; <LVAR 0x008 4(r)> 00021712 ; -------------------------------------------------------------------------------------- 00021712 4e 56 ff bc |NV | LINK.W A6,#0xffbc 00021716 bf d5 | | CMPA.L (A5),A7 00021718 62 06 |b | BHI 0x21720 0002171a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002171e 4e 76 |Nv | TRAPV 00021720 de fc 00 40 | @ | ADDA.W #0x40,A7 00021724 48 e7 80 f0 |H | MOVEM.L A3+A2+A1+A0+D0,-(A7) 00021728 45 f9 00 02 60 e8 |E ` | LEA.L 0x260e8,A2 0002172e 47 ee 00 08 |G | LEA.L (A6+0x8),A3 00021732 4a 93 |J | TST.L (A3) 00021734 6c 3e |l> | BGE 0x21774 00021736 20 13 | | MOVE.L (A3),D0 00021738 44 80 |D | NEG.L D0 0002173a d0 92 | | ADD.L (A2),D0 0002173c 0c 80 00 00 10 00 | | CMPI.L #0x00001000,D0 00021742 6f 30 |o0 | BLE 0x21774 00021744 9e fc 00 1c | | SUBA.W #0x1c,A7 00021748 20 4f | O | MOVEA.L A7,A0 0002174a 43 fa f5 cc |C | LEA.L 0x20d18,A1 0002174e 70 1a |p | MOVEQ.L #0x1a,D0 00021750 10 d9 | | MOVE.B (A1)+,(A0)+ 00021752 51 c8 ff fc |Q | DBF D0,0x21750 00021756 59 4f |YO | SUBQ.L #0x4,A7 00021758 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002175c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00021760 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 00021764 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002176a 50 4f |PO | ADDQ.L #0x8,A7 0002176c 4e ba fa 50 |N P | JSR 0x211be 00021770 de fc 00 20 | | ADDA.W #0x20,A7 00021774 41 f9 00 02 50 e4 |A P | LEA.L 0x250e4,A0 0002177a 2f 08 |/ | MOVE.L A0,-(A7) 0002177c 2f 12 |/ | MOVE.L (A2),-(A7) 0002177e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00021782 2f 13 |/ | MOVE.L (A3),-(A7) 00021784 4e b9 00 01 03 64 |N d | JSR MovStringTail(Base, Len, Ptr, Delta) 0002178a de fc 00 10 | | ADDA.W #0x10,A7 0002178e 20 12 | | MOVE.L (A2),D0 00021790 90 93 | | SUB.L (A3),D0 00021792 24 80 |$ | MOVE.L D0,(A2) 00021794 4c df 0f 01 |L | MOVEM.L (A7)+,D0+A0+A1+A2+A3 00021798 4e 5e |N^ | UNLK A6 0002179a 4e 75 |Nu | RTS 0002179c ; -------------------------------------------------------------------------------------- 0002179c ; OMSI PASCAL Function 0002179c ; <LVAR 0x00c 4(r)> 0002179c ; <LVAR 0x008 4(r)> 0002179c ; -------------------------------------------------------------------------------------- 0002179c 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 000217a0 bf d5 | | CMPA.L (A5),A7 000217a2 62 06 |b | BHI 0x217aa 000217a4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000217a8 4e 76 |Nv | TRAPV 000217aa de fc 00 28 | ( | ADDA.W #0x28,A7 000217ae 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 000217b2 45 ee 00 0c |E | LEA.L (A6+0xc),A2 000217b6 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000217ba 2f 08 |/ | MOVE.L A0,-(A7) 000217bc 22 52 |"R | MOVEA.L (A2),A1 000217be 2f 11 |/ | MOVE.L (A1),-(A7) 000217c0 30 10 |0 | MOVE.W (A0),D0 000217c2 48 c0 |H | EXTW.L D0 000217c4 44 80 |D | NEG.L D0 000217c6 2f 00 |/ | MOVE.L D0,-(A7) 000217c8 4e ba ff 48 |N H | JSR 0x21712 000217cc 50 4f |PO | ADDQ.L #0x8,A7 000217ce 30 10 |0 | MOVE.W (A0),D0 000217d0 48 c0 |H | EXTW.L D0 000217d2 2f 00 |/ | MOVE.L D0,-(A7) 000217d4 7e 01 |~ | MOVEQ.L #0x01,D7 000217d6 be 97 | | CMP.L (A7),D7 000217d8 6e 36 |n6 | BGT 0x21810 000217da 20 52 | R | MOVEA.L (A2),A0 000217dc 20 07 | | MOVE.L D7,D0 000217de d0 90 | | ADD.L (A0),D0 000217e0 53 80 |S | SUBQ.L #0x1,D0 000217e2 53 80 |S | SUBQ.L #0x1,D0 000217e4 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 000217ea 63 02 |c | BLS 0x217ee 000217ec 4e 4f |NO | TRAP #15 000217ee 41 f9 00 02 50 dc |A P | LEA.L 0x250dc,A0 000217f4 22 07 |" | MOVE.L D7,D1 000217f6 53 81 |S | SUBQ.L #0x1,D1 000217f8 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 000217fe 63 02 |c | BLS 0x21802 00021800 4e 4f |NO | TRAP #15 00021802 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00021806 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 0002180c 52 87 |R | ADDQ.L #0x1,D7 0002180e 68 c6 |h | BVC 0x217d6 00021810 58 4f |XO | ADDQ.L #0x4,A7 00021812 20 52 | R | MOVEA.L (A2),A0 00021814 22 57 |"W | MOVEA.L (A7),A1 00021816 30 11 |0 | MOVE.W (A1),D0 00021818 48 c0 |H | EXTW.L D0 0002181a d1 90 | | ADD.L D0,(A0) 0002181c 58 4f |XO | ADDQ.L #0x4,A7 0002181e 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 00021822 4e 5e |N^ | UNLK A6 00021824 4e 75 |Nu | RTS 00021826 ; -------------------------------------------------------------------------------------- 00021826 ; OMSI PASCAL Function 00021826 ; <LVAR 0x00c 4(r)> 00021826 ; <LVAR 0x008 4(r)> 00021826 ; -------------------------------------------------------------------------------------- 00021826 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 0002182a bf d5 | | CMPA.L (A5),A7 0002182c 62 06 |b | BHI 0x21834 0002182e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021832 4e 76 |Nv | TRAPV 00021834 de fc 00 50 | P | ADDA.W #0x50,A7 00021838 48 e7 c3 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D1+D0,-(A7) 0002183c 45 fa fe 4e |E N | LEA.L 0x2168c,A2 00021840 47 f8 00 04 |G | LEA.L 0x4,A3 00021844 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00021848 72 0c |r | MOVEQ.L #0x0c,D1 0002184a 7e 00 |~ | MOVEQ.L #0x00,D7 0002184c 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021850 42 90 |B | CLR.L (A0) 00021852 20 54 | T | MOVEA.L (A4),A0 00021854 42 90 |B | CLR.L (A0) 00021856 2c 39 00 02 60 e4 |,9 ` | MOVE.L 0x260e4,D6 0002185c 20 06 | | MOVE.L D6,D0 0002185e 53 80 |S | SUBQ.L #0x1,D0 00021860 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00021866 63 02 |c | BLS 0x2186a 00021868 4e 4f |NO | TRAP #15 0002186a 41 f9 00 02 50 dc |A P | LEA.L 0x250dc,A0 00021870 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 00021874 0c 00 00 5b | [ | CMPI.B #0x5b,D0 00021878 66 00 00 d4 |f | BNE 0x2194e 0002187c 55 4f |UO | SUBQ.L #0x2,A7 0002187e 2f 06 |/ | MOVE.L D6,-(A7) 00021880 48 78 00 01 |Hx | PEA.L 0x1 00021884 48 78 00 03 |Hx | PEA.L 0x3 00021888 4e 92 |N | JSR (A2) 0002188a de c1 | | ADDA.W D1,A7 0002188c 4a 1f |J | TST.B (A7)+ 0002188e 66 7e |f~ | BNE 0x2190e 00021890 55 4f |UO | SUBQ.L #0x2,A7 00021892 2f 06 |/ | MOVE.L D6,-(A7) 00021894 48 53 |HS | PEA.L (A3) 00021896 48 78 00 03 |Hx | PEA.L 0x3 0002189a 4e 92 |N | JSR (A2) 0002189c de c1 | | ADDA.W D1,A7 0002189e 4a 1f |J | TST.B (A7)+ 000218a0 66 6c |fl | BNE 0x2190e 000218a2 55 4f |UO | SUBQ.L #0x2,A7 000218a4 2f 06 |/ | MOVE.L D6,-(A7) 000218a6 48 78 00 07 |Hx | PEA.L 0x7 000218aa 48 53 |HS | PEA.L (A3) 000218ac 4e 92 |N | JSR (A2) 000218ae de c1 | | ADDA.W D1,A7 000218b0 4a 1f |J | TST.B (A7)+ 000218b2 66 5a |fZ | BNE 0x2190e 000218b4 55 4f |UO | SUBQ.L #0x2,A7 000218b6 2f 06 |/ | MOVE.L D6,-(A7) 000218b8 48 78 00 0b |Hx | PEA.L 0xb 000218bc 48 53 |HS | PEA.L (A3) 000218be 4e 92 |N | JSR (A2) 000218c0 de c1 | | ADDA.W D1,A7 000218c2 4a 1f |J | TST.B (A7)+ 000218c4 66 48 |fH | BNE 0x2190e 000218c6 55 4f |UO | SUBQ.L #0x2,A7 000218c8 2f 06 |/ | MOVE.L D6,-(A7) 000218ca 48 78 00 0f |Hx | PEA.L 0xf 000218ce 48 53 |HS | PEA.L (A3) 000218d0 4e 92 |N | JSR (A2) 000218d2 de c1 | | ADDA.W D1,A7 000218d4 4a 1f |J | TST.B (A7)+ 000218d6 66 36 |f6 | BNE 0x2190e 000218d8 55 4f |UO | SUBQ.L #0x2,A7 000218da 2f 06 |/ | MOVE.L D6,-(A7) 000218dc 48 78 00 13 |Hx | PEA.L 0x13 000218e0 48 53 |HS | PEA.L (A3) 000218e2 4e 92 |N | JSR (A2) 000218e4 de c1 | | ADDA.W D1,A7 000218e6 4a 1f |J | TST.B (A7)+ 000218e8 66 24 |f$ | BNE 0x2190e 000218ea 55 4f |UO | SUBQ.L #0x2,A7 000218ec 2f 06 |/ | MOVE.L D6,-(A7) 000218ee 48 78 00 17 |Hx | PEA.L 0x17 000218f2 48 53 |HS | PEA.L (A3) 000218f4 4e 92 |N | JSR (A2) 000218f6 de c1 | | ADDA.W D1,A7 000218f8 4a 1f |J | TST.B (A7)+ 000218fa 66 12 |f | BNE 0x2190e 000218fc 55 4f |UO | SUBQ.L #0x2,A7 000218fe 2f 06 |/ | MOVE.L D6,-(A7) 00021900 48 78 00 1b |Hx | PEA.L 0x1b 00021904 48 53 |HS | PEA.L (A3) 00021906 4e 92 |N | JSR (A2) 00021908 de c1 | | ADDA.W D1,A7 0002190a 4a 1f |J | TST.B (A7)+ 0002190c 67 04 |g | BEQ 0x21912 0002190e 52 87 |R | ADDQ.L #0x1,D7 00021910 60 3c |`< | BRA 0x2194e 00021912 4a 87 |J | TST.L D7 00021914 66 1c |f | BNE 0x21932 00021916 55 4f |UO | SUBQ.L #0x2,A7 00021918 2f 06 |/ | MOVE.L D6,-(A7) 0002191a 48 78 00 1f |Hx | PEA.L 0x1f 0002191e 48 78 00 05 |Hx | PEA.L 0x5 00021922 4e 92 |N | JSR (A2) 00021924 de c1 | | ADDA.W D1,A7 00021926 4a 1f |J | TST.B (A7)+ 00021928 67 08 |g | BEQ 0x21932 0002192a 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002192e 20 86 | | MOVE.L D6,(A0) 00021930 60 1c |` | BRA 0x2194e 00021932 55 4f |UO | SUBQ.L #0x2,A7 00021934 2f 06 |/ | MOVE.L D6,-(A7) 00021936 48 78 00 24 |Hx $ | PEA.L 0x24 0002193a 48 53 |HS | PEA.L (A3) 0002193c 4e 92 |N | JSR (A2) 0002193e de c1 | | ADDA.W D1,A7 00021940 4a 1f |J | TST.B (A7)+ 00021942 67 0a |g | BEQ 0x2194e 00021944 4a 87 |J | TST.L D7 00021946 66 04 |f | BNE 0x2194c 00021948 20 54 | T | MOVEA.L (A4),A0 0002194a 60 e2 |` | BRA 0x2192e 0002194c 53 87 |S | SUBQ.L #0x1,D7 0002194e 52 86 |R | ADDQ.L #0x1,D6 00021950 bc b9 00 02 60 e8 | ` | CMP.L 0x260e8,D6 00021956 6e 0e |n | BGT 0x21966 00021958 4a 87 |J | TST.L D7 0002195a 66 00 ff 00 |f | BNE 0x2185c 0002195e 20 54 | T | MOVEA.L (A4),A0 00021960 4a 90 |J | TST.L (A0) 00021962 67 00 fe f8 |g | BEQ 0x2185c 00021966 bc b9 00 02 60 e8 | ` | CMP.L 0x260e8,D6 0002196c 6f 30 |o0 | BLE 0x2199e 0002196e 9e fc 00 1c | | SUBA.W #0x1c,A7 00021972 20 4f | O | MOVEA.L A7,A0 00021974 43 fa f3 be |C | LEA.L 0x20d34,A1 00021978 70 1a |p | MOVEQ.L #0x1a,D0 0002197a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002197c 51 c8 ff fc |Q | DBF D0,0x2197a 00021980 59 4f |YO | SUBQ.L #0x4,A7 00021982 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021986 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002198a 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 0002198e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021994 50 4f |PO | ADDQ.L #0x8,A7 00021996 4e ba f8 26 |N & | JSR 0x211be 0002199a de fc 00 20 | | ADDA.W #0x20,A7 0002199e 4c df 1f c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2+A3+A4 000219a2 4e 5e |N^ | UNLK A6 000219a4 4e 75 |Nu | RTS 000219a6 ; -------------------------------------------------------------------------------------- 000219a6 ; OMSI PASCAL Function 000219a6 ; <LVAR -0x004 @ 4(r)> 000219a6 ; <LVAR -0x008 @ 4(rw)> 000219a6 ; -------------------------------------------------------------------------------------- 000219a6 4e 56 ff dc |NV | LINK.W A6,#0xffdc 000219aa bf d5 | | CMPA.L (A5),A7 000219ac 62 06 |b | BHI 0x219b4 000219ae 44 fc 00 02 |D | MOVE.W #0x2,CCR 000219b2 4e 76 |Nv | TRAPV 000219b4 de fc 00 1c | | ADDA.W #0x1c,A7 000219b8 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 000219bc 41 ee ff f8 |A | LEA.L (A6-0x8),A0 000219c0 43 ee ff fc |C | LEA.L (A6-0x4),A1 000219c4 48 50 |HP | PEA.L (A0) 000219c6 48 51 |HQ | PEA.L (A1) 000219c8 4e ba fe 5c |N \ | JSR 0x21826 000219cc 50 4f |PO | ADDQ.L #0x8,A7 000219ce 4a 90 |J | TST.L (A0) 000219d0 66 02 |f | BNE 0x219d4 000219d2 20 91 | | MOVE.L (A1),(A0) 000219d4 20 11 | | MOVE.L (A1),D0 000219d6 5a 80 |Z | ADDQ.L #0x5,D0 000219d8 2f 00 |/ | MOVE.L D0,-(A7) 000219da 90 90 | | SUB.L (A0),D0 000219dc 2f 00 |/ | MOVE.L D0,-(A7) 000219de 4e ba fd 32 |N 2 | JSR 0x21712 000219e2 50 4f |PO | ADDQ.L #0x8,A7 000219e4 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 000219e8 4e 5e |N^ | UNLK A6 000219ea 4e 75 |Nu | RTS 000219ec ; -------------------------------------------------------------------------------------- 000219ec ; OMSI PASCAL Function 000219ec ; <LVAR -0x004 @ 4(r)> 000219ec ; <LVAR -0x008 @ 4(r)> 000219ec ; -------------------------------------------------------------------------------------- 000219ec 4e 56 ff dc |NV | LINK.W A6,#0xffdc 000219f0 bf d5 | | CMPA.L (A5),A7 000219f2 62 06 |b | BHI 0x219fa 000219f4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000219f8 4e 76 |Nv | TRAPV 000219fa de fc 00 1c | | ADDA.W #0x1c,A7 000219fe 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00021a02 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00021a06 43 ee ff fc |C | LEA.L (A6-0x4),A1 00021a0a 48 50 |HP | PEA.L (A0) 00021a0c 48 51 |HQ | PEA.L (A1) 00021a0e 4e ba fe 16 |N | JSR 0x21826 00021a12 50 4f |PO | ADDQ.L #0x8,A7 00021a14 4a 90 |J | TST.L (A0) 00021a16 66 06 |f | BNE 0x21a1e 00021a18 20 11 | | MOVE.L (A1),D0 00021a1a 5a 80 |Z | ADDQ.L #0x5,D0 00021a1c 60 12 |` | BRA 0x21a30 00021a1e 2f 11 |/ | MOVE.L (A1),-(A7) 00021a20 5a 97 |Z | ADDQ.L #0x5,(A7) 00021a22 48 78 00 05 |Hx | PEA.L 0x5 00021a26 4e ba fc ea |N | JSR 0x21712 00021a2a 50 4f |PO | ADDQ.L #0x8,A7 00021a2c 20 10 | | MOVE.L (A0),D0 00021a2e 5c 80 |\ | ADDQ.L #0x6,D0 00021a30 2f 00 |/ | MOVE.L D0,-(A7) 00021a32 90 b9 00 02 60 e4 | ` | SUB.L 0x260e4,D0 00021a38 2f 00 |/ | MOVE.L D0,-(A7) 00021a3a 4e ba fc d6 |N | JSR 0x21712 00021a3e 50 4f |PO | ADDQ.L #0x8,A7 00021a40 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00021a44 4e 5e |N^ | UNLK A6 00021a46 4e 75 |Nu | RTS 00021a48 ; -------------------------------------------------------------------------------------- 00021a48 ; OMSI PASCAL Function 00021a48 ; <LVAR 0x008 4(r)> 00021a48 ; <LVAR -0x004 @> 00021a48 ; <LVAR -0x008 @ 4(r)> 00021a48 ; <LVAR -0x00c @ 4(rw)> 00021a48 ; <LVAR -0x010 4(rw)> 00021a48 ; <LVAR -0x014 4(rw)> 00021a48 ; -------------------------------------------------------------------------------------- 00021a48 4e 56 ff ba |NV | LINK.W A6,#0xffba 00021a4c bf d5 | | CMPA.L (A5),A7 00021a4e 62 06 |b | BHI 0x21a56 00021a50 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021a54 4e 76 |Nv | TRAPV 00021a56 de fc 00 32 | 2 | ADDA.W #0x32,A7 00021a5a 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00021a5e 43 f9 00 02 60 f6 |C ` | LEA.L 0x260f6,A1 00021a64 45 f9 00 02 60 fc |E ` | LEA.L 0x260fc,A2 00021a6a 47 f9 00 02 60 e4 |G ` | LEA.L 0x260e4,A3 00021a70 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00021a74 72 01 |r | MOVEQ.L #0x01,D1 00021a76 4a 11 |J | TST.B (A1) 00021a78 67 0a |g | BEQ 0x21a84 00021a7a 4a 92 |J | TST.L (A2) 00021a7c 66 06 |f | BNE 0x21a84 00021a7e 24 ae 00 08 |$ | MOVE.L (A6+0x8),(A2) 00021a82 53 92 |S | SUBQ.L #0x1,(A2) 00021a84 4a 11 |J | TST.B (A1) 00021a86 66 00 00 cc |f | BNE 0x21b54 00021a8a 26 ae 00 08 |& | MOVE.L (A6+0x8),(A3) 00021a8e 5c 93 |\ | ADDQ.L #0x6,(A3) 00021a90 48 54 |HT | PEA.L (A4) 00021a92 48 6e ff fc |Hn | PEA.L (A6-0x4) 00021a96 4e ba fa 86 |N | JSR 0x2151e 00021a9a 50 4f |PO | ADDQ.L #0x8,A7 00021a9c 41 fa f2 bc |A | LEA.L 0x20d5a,A0 00021aa0 70 04 |p | MOVEQ.L #0x04,D0 00021aa2 3f 20 |? | MOVE.W -(A0),-(A7) 00021aa4 51 c8 ff fc |Q | DBF D0,0x21aa2 00021aa8 2f 14 |/ | MOVE.L (A4),-(A7) 00021aaa 48 78 00 00 |Hx | PEA.L 0x0 00021aae 4e ba fb 50 |N P | JSR 0x21600 00021ab2 de fc 00 12 | | ADDA.W #0x12,A7 00021ab6 4a 39 00 02 61 00 |J9 a | TST.B 0x26100 00021abc 67 1a |g | BEQ 0x21ad8 00021abe 51 4f |QO | SUBQ.L #0x8,A7 00021ac0 2f 14 |/ | MOVE.L (A4),-(A7) 00021ac2 48 78 00 00 |Hx | PEA.L 0x0 00021ac6 4e b9 00 02 1f 18 |N | JSR 0x21f18 00021acc 50 4f |PO | ADDQ.L #0x8,A7 00021ace 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00021ad2 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00021ad6 60 14 |` | BRA 0x21aec 00021ad8 59 4f |YO | SUBQ.L #0x4,A7 00021ada 2f 14 |/ | MOVE.L (A4),-(A7) 00021adc 48 78 00 00 |Hx | PEA.L 0x0 00021ae0 4e b9 00 02 1e e6 |N | JSR 0x21ee6 00021ae6 50 4f |PO | ADDQ.L #0x8,A7 00021ae8 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 00021aec 2f 14 |/ | MOVE.L (A4),-(A7) 00021aee 4e ba f6 8c |N | JSR 0x2117c 00021af2 58 4f |XO | ADDQ.L #0x4,A7 00021af4 23 d3 00 02 60 f8 |# ` | MOVE.L (A3),0x260f8 00021afa 4a 39 00 02 61 00 |J9 a | TST.B 0x26100 00021b00 67 2a |g* | BEQ 0x21b2c 00021b02 55 4f |UO | SUBQ.L #0x2,A7 00021b04 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00021b08 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 00021b0c 2f 39 00 02 61 0a |/9 a | MOVE.L 0x2610a,-(A7) 00021b12 2f 39 00 02 61 06 |/9 a | MOVE.L 0x26106,-(A7) 00021b18 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 00021b1e de fc 00 10 | | ADDA.W #0x10,A7 00021b22 10 1f | | MOVE.B (A7)+,D0 00021b24 48 80 |H | EXTB.W D0 00021b26 41 81 |A | CHK.W D1,D0 00021b28 12 80 | | MOVE.B D0,(A1) 00021b2a 60 28 |`( | BRA 0x21b54 00021b2c 55 4f |UO | SUBQ.L #0x2,A7 00021b2e 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00021b32 2f 39 00 02 61 02 |/9 a | MOVE.L 0x26102,-(A7) 00021b38 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00021b3e 50 4f |PO | ADDQ.L #0x8,A7 00021b40 10 1f | | MOVE.B (A7)+,D0 00021b42 48 80 |H | EXTB.W D0 00021b44 41 81 |A | CHK.W D1,D0 00021b46 12 80 | | MOVE.B D0,(A1) 00021b48 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00021b4c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021b52 58 4f |XO | ADDQ.L #0x4,A7 00021b54 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00021b58 4e 5e |N^ | UNLK A6 00021b5a 4e 75 |Nu | RTS 00021b5c ; -------------------------------------------------------------------------------------- 00021b5c ; OMSI PASCAL Function 00021b5c ; <LVAR 0x010 4(r)> 00021b5c ; <LVAR 0x00c 4(r)> 00021b5c ; <LVAR 0x008 4(r)> 00021b5c ; -------------------------------------------------------------------------------------- 00021b5c 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 00021b60 bf d5 | | CMPA.L (A5),A7 00021b62 62 06 |b | BHI 0x21b6a 00021b64 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021b68 4e 76 |Nv | TRAPV 00021b6a de fc 00 56 | V | ADDA.W #0x56,A7 00021b6e 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00021b72 45 f9 00 02 60 fc |E ` | LEA.L 0x260fc,A2 00021b78 47 fa fb 12 |G | LEA.L 0x2168c,A3 00021b7c 49 f9 00 02 60 f6 |I ` | LEA.L 0x260f6,A4 00021b82 72 0c |r | MOVEQ.L #0x0c,D1 00021b84 74 01 |t | MOVEQ.L #0x01,D2 00021b86 42 14 |B | CLR.B (A4) 00021b88 42 b9 00 02 60 f8 |B ` | CLR.L 0x260f8 00021b8e 42 92 |B | CLR.L (A2) 00021b90 7e 00 |~ | MOVEQ.L #0x00,D7 00021b92 7c 00 || | MOVEQ.L #0x00,D6 00021b94 2a 39 00 02 60 e4 |*9 ` | MOVE.L 0x260e4,D5 00021b9a 4a 86 |J | TST.L D6 00021b9c 66 00 00 a0 |f | BNE 0x21c3e 00021ba0 ba b9 00 02 60 e8 | ` | CMP.L 0x260e8,D5 00021ba6 6e 00 00 96 |n | BGT 0x21c3e 00021baa 20 05 | | MOVE.L D5,D0 00021bac 53 80 |S | SUBQ.L #0x1,D0 00021bae 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00021bb4 63 02 |c | BLS 0x21bb8 00021bb6 4e 4f |NO | TRAP #15 00021bb8 41 f9 00 02 50 dc |A P | LEA.L 0x250dc,A0 00021bbe 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 00021bc2 0c 00 00 5b | [ | CMPI.B #0x5b,D0 00021bc6 66 6c |fl | BNE 0x21c34 00021bc8 55 4f |UO | SUBQ.L #0x2,A7 00021bca 2f 05 |/ | MOVE.L D5,-(A7) 00021bcc 48 78 00 28 |Hx ( | PEA.L 0x28 00021bd0 48 78 00 05 |Hx | PEA.L 0x5 00021bd4 4e 93 |N | JSR (A3) 00021bd6 de c1 | | ADDA.W D1,A7 00021bd8 4a 1f |J | TST.B (A7)+ 00021bda 66 14 |f | BNE 0x21bf0 00021bdc 55 4f |UO | SUBQ.L #0x2,A7 00021bde 2f 05 |/ | MOVE.L D5,-(A7) 00021be0 48 78 00 2d |Hx - | PEA.L 0x2d 00021be4 48 78 00 06 |Hx | PEA.L 0x6 00021be8 4e 93 |N | JSR (A3) 00021bea de c1 | | ADDA.W D1,A7 00021bec 4a 1f |J | TST.B (A7)+ 00021bee 67 04 |g | BEQ 0x21bf4 00021bf0 52 87 |R | ADDQ.L #0x1,D7 00021bf2 60 40 |`@ | BRA 0x21c34 00021bf4 4a 87 |J | TST.L D7 00021bf6 66 1e |f | BNE 0x21c16 00021bf8 55 4f |UO | SUBQ.L #0x2,A7 00021bfa 2f 05 |/ | MOVE.L D5,-(A7) 00021bfc 48 78 00 33 |Hx 3 | PEA.L 0x33 00021c00 48 78 00 05 |Hx | PEA.L 0x5 00021c04 4e 93 |N | JSR (A3) 00021c06 de c1 | | ADDA.W D1,A7 00021c08 4a 1f |J | TST.B (A7)+ 00021c0a 67 0a |g | BEQ 0x21c16 00021c0c 2f 05 |/ | MOVE.L D5,-(A7) 00021c0e 4e ba fe 38 |N 8 | JSR 0x21a48 00021c12 58 4f |XO | ADDQ.L #0x4,A7 00021c14 60 1e |` | BRA 0x21c34 00021c16 55 4f |UO | SUBQ.L #0x2,A7 00021c18 2f 05 |/ | MOVE.L D5,-(A7) 00021c1a 48 78 00 38 |Hx 8 | PEA.L 0x38 00021c1e 48 78 00 08 |Hx | PEA.L 0x8 00021c22 4e 93 |N | JSR (A3) 00021c24 de c1 | | ADDA.W D1,A7 00021c26 4a 1f |J | TST.B (A7)+ 00021c28 67 0a |g | BEQ 0x21c34 00021c2a 4a 87 |J | TST.L D7 00021c2c 66 04 |f | BNE 0x21c32 00021c2e 2c 05 |, | MOVE.L D5,D6 00021c30 60 02 |` | BRA 0x21c34 00021c32 53 87 |S | SUBQ.L #0x1,D7 00021c34 4a 86 |J | TST.L D6 00021c36 66 02 |f | BNE 0x21c3a 00021c38 52 85 |R | ADDQ.L #0x1,D5 00021c3a 60 00 ff 5e |` ^ | BRA 0x21b9a 00021c3e 4a 39 00 02 61 00 |J9 a | TST.B 0x26100 00021c44 66 0e |f | BNE 0x21c54 00021c46 48 79 00 02 61 02 |Hy a | PEA.L 0x26102 00021c4c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00021c52 58 4f |XO | ADDQ.L #0x4,A7 00021c54 4a 14 |J | TST.B (A4) 00021c56 66 28 |f( | BNE 0x21c80 00021c58 41 fa f1 1a |A | LEA.L 0x20d74,A0 00021c5c 70 0c |p | MOVEQ.L #0x0c,D0 00021c5e 3f 20 |? | MOVE.W -(A0),-(A7) 00021c60 51 c8 ff fc |Q | DBF D0,0x21c5e 00021c64 59 4f |YO | SUBQ.L #0x4,A7 00021c66 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021c6a 3f 02 |? | MOVE.W D2,-(A7) 00021c6c 3f 3c 00 1a |?< | MOVE.W #0x1a,-(A7) 00021c70 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021c76 50 4f |PO | ADDQ.L #0x8,A7 00021c78 4e ba f5 44 |N D | JSR 0x211be 00021c7c de fc 00 1e | | ADDA.W #0x1e,A7 00021c80 4a 86 |J | TST.L D6 00021c82 66 2e |f. | BNE 0x21cb2 00021c84 9e fc 00 14 | | SUBA.W #0x14,A7 00021c88 20 4f | O | MOVEA.L A7,A0 00021c8a 43 fa f0 e8 |C | LEA.L 0x20d74,A1 00021c8e 70 12 |p | MOVEQ.L #0x12,D0 00021c90 10 d9 | | MOVE.B (A1)+,(A0)+ 00021c92 51 c8 ff fc |Q | DBF D0,0x21c90 00021c96 59 4f |YO | SUBQ.L #0x4,A7 00021c98 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00021c9c 3f 02 |? | MOVE.W D2,-(A7) 00021c9e 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00021ca2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00021ca8 50 4f |PO | ADDQ.L #0x8,A7 00021caa 4e ba f5 12 |N | JSR 0x211be 00021cae de fc 00 18 | | ADDA.W #0x18,A7 00021cb2 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021cb6 20 86 | | MOVE.L D6,(A0) 00021cb8 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00021cbc 20 b9 00 02 60 f8 | ` | MOVE.L 0x260f8,(A0) 00021cc2 4a 92 |J | TST.L (A2) 00021cc4 66 0a |f | BNE 0x21cd0 00021cc6 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021cca 20 86 | | MOVE.L D6,(A0) 00021ccc 53 90 |S | SUBQ.L #0x1,(A0) 00021cce 60 06 |` | BRA 0x21cd6 00021cd0 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 00021cd4 20 92 | | MOVE.L (A2),(A0) 00021cd6 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00021cda 4e 5e |N^ | UNLK A6 00021cdc 4e 75 |Nu | RTS 00021cde ; -------------------------------------------------------------------------------------- 00021cde ; OMSI PASCAL Function 00021cde ; <LVAR 0x008 4(r)> 00021cde ; <LVAR -0x008 @ 4(r)> 00021cde ; <LVAR -0x00c @ 4(r)> 00021cde ; <LVAR -0x010 @ 4(r)> 00021cde ; -------------------------------------------------------------------------------------- 00021cde 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00021ce2 bf d5 | | CMPA.L (A5),A7 00021ce4 62 06 |b | BHI 0x21cec 00021ce6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021cea 4e 76 |Nv | TRAPV 00021cec de fc 00 24 | $ | ADDA.W #0x24,A7 00021cf0 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00021cf4 41 f9 00 02 60 e4 |A ` | LEA.L 0x260e4,A0 00021cfa 43 ee ff f0 |C | LEA.L (A6-0x10),A1 00021cfe 2c 10 |, | MOVE.L (A0),D6 00021d00 42 39 00 02 61 00 |B9 a | CLR.B 0x26100 00021d06 23 ee 00 08 00 02 61 02 |# a | MOVE.L (A6+0x8),0x26102 00021d0e 2e 10 |. | MOVE.L (A0),D7 00021d10 48 51 |HQ | PEA.L (A1) 00021d12 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00021d16 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021d1a 4e ba fe 40 |N @ | JSR 0x21b5c 00021d1e de fc 00 0c | | ADDA.W #0xc,A7 00021d22 20 86 | | MOVE.L D6,(A0) 00021d24 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 00021d28 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 00021d2e 2f 00 |/ | MOVE.L D0,-(A7) 00021d30 90 ae ff f4 | | SUB.L (A6-0xc),D0 00021d34 53 80 |S | SUBQ.L #0x1,D0 00021d36 2f 00 |/ | MOVE.L D0,-(A7) 00021d38 4e ba f9 d8 |N | JSR 0x21712 00021d3c 58 4f |XO | ADDQ.L #0x4,A7 00021d3e 2e 91 |. | MOVE.L (A1),(A7) 00021d40 2f 11 |/ | MOVE.L (A1),-(A7) 00021d42 9f 97 | | SUB.L D7,(A7) 00021d44 4e ba f9 cc |N | JSR 0x21712 00021d48 50 4f |PO | ADDQ.L #0x8,A7 00021d4a 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00021d4e 4e 5e |N^ | UNLK A6 00021d50 4e 75 |Nu | RTS 00021d52 ; -------------------------------------------------------------------------------------- 00021d52 ; OMSI PASCAL Function 00021d52 ; <LVAR 0x00c 4(r)> 00021d52 ; <LVAR 0x008 4(r)> 00021d52 ; <LVAR -0x008 @ 4(r)> 00021d52 ; <LVAR -0x00c @ 4(r)> 00021d52 ; <LVAR -0x010 @ 4(r)> 00021d52 ; -------------------------------------------------------------------------------------- 00021d52 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00021d56 bf d5 | | CMPA.L (A5),A7 00021d58 62 06 |b | BHI 0x21d60 00021d5a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021d5e 4e 76 |Nv | TRAPV 00021d60 de fc 00 24 | $ | ADDA.W #0x24,A7 00021d64 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00021d68 41 f9 00 02 60 e4 |A ` | LEA.L 0x260e4,A0 00021d6e 43 ee ff f0 |C | LEA.L (A6-0x10),A1 00021d72 2c 10 |, | MOVE.L (A0),D6 00021d74 13 fc 00 01 00 02 61 00 | a | MOVE.B #0x01,0x26100 00021d7c 23 ee 00 08 00 02 61 06 |# a | MOVE.L (A6+0x8),0x26106 00021d84 23 ee 00 0c 00 02 61 0a |# a | MOVE.L (A6+0xc),0x2610a 00021d8c 2e 10 |. | MOVE.L (A0),D7 00021d8e 48 51 |HQ | PEA.L (A1) 00021d90 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00021d94 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00021d98 4e ba fd c2 |N | JSR 0x21b5c 00021d9c de fc 00 0c | | ADDA.W #0xc,A7 00021da0 20 86 | | MOVE.L D6,(A0) 00021da2 20 2e ff f8 | . | MOVE.L (A6-0x8),D0 00021da6 06 80 00 00 00 09 | | ADDI.L #0x00000009,D0 00021dac 2f 00 |/ | MOVE.L D0,-(A7) 00021dae 90 ae ff f4 | | SUB.L (A6-0xc),D0 00021db2 53 80 |S | SUBQ.L #0x1,D0 00021db4 2f 00 |/ | MOVE.L D0,-(A7) 00021db6 4e ba f9 5a |N Z | JSR 0x21712 00021dba 58 4f |XO | ADDQ.L #0x4,A7 00021dbc 2e 91 |. | MOVE.L (A1),(A7) 00021dbe 2f 11 |/ | MOVE.L (A1),-(A7) 00021dc0 9f 97 | | SUB.L D7,(A7) 00021dc2 4e ba f9 4e |N N | JSR 0x21712 00021dc6 50 4f |PO | ADDQ.L #0x8,A7 00021dc8 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00021dcc 4e 5e |N^ | UNLK A6 00021dce 4e 75 |Nu | RTS 00021dd0 ; -------------------------------------------------------------------------------------- 00021dd0 ; OMSI PASCAL Function 00021dd0 ; <LVAR 0x010 4(rw)> 00021dd0 ; <LVAR 0x00c 4(r)> 00021dd0 ; <LVAR 0x008 4(r)> 00021dd0 ; -------------------------------------------------------------------------------------- 00021dd0 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 00021dd4 bf d5 | | CMPA.L (A5),A7 00021dd6 62 06 |b | BHI 0x21dde 00021dd8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021ddc 4e 76 |Nv | TRAPV 00021dde de fc 00 08 | | ADDA.W #0x8,A7 00021de2 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00021de6 4a ae 00 08 |J | TST.L (A6+0x8) 00021dea 66 06 |f | BNE 0x21df2 00021dec 42 ae 00 10 |B | CLR.L (A6+0x10) 00021df0 60 0e |` | BRA 0x21e00 00021df2 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 00021df6 90 ae 00 08 | | SUB.L (A6+0x8),D0 00021dfa 52 80 |R | ADDQ.L #0x1,D0 00021dfc 2d 40 00 10 |-@ | MOVE.L D0,(A6+0x10) 00021e00 4c df 00 01 |L | MOVEM.L (A7)+,D0 00021e04 4e 5e |N^ | UNLK A6 00021e06 4e 75 |Nu | RTS 00021e08 ; -------------------------------------------------------------------------------------- 00021e08 ; OMSI PASCAL Function 00021e08 ; <LVAR 0x014 4(w)> 00021e08 ; <LVAR 0x010 @ 4(w)> 00021e08 ; <LVAR 0x00c 4(r)> 00021e08 ; <LVAR 0x008 4(r)> 00021e08 ; -------------------------------------------------------------------------------------- 00021e08 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00021e0c bf d5 | | CMPA.L (A5),A7 00021e0e 62 06 |b | BHI 0x21e16 00021e10 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021e14 4e 76 |Nv | TRAPV 00021e16 de fc 00 20 | | ADDA.W #0x20,A7 00021e1a 48 e7 81 c8 |H | MOVEM.L A4+A1+A0+D7+D0,-(A7) 00021e1e 28 6e 00 0c |(n | MOVEA.L (A6+0xc),A4 00021e22 2d 7a f2 b2 00 10 |-z | MOVE.L 0x210d6,(A6+0x10) 00021e28 2d 7a f2 b0 00 14 |-z | MOVE.L 0x210da,(A6+0x14) 00021e2e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021e32 7e 00 |~ | MOVEQ.L #0x00,D7 00021e34 be 97 | | CMP.L (A7),D7 00021e36 6e 28 |n( | BGT 0x21e60 00021e38 b8 fc 00 01 | | CMPA.W #0x1,A4 00021e3c 66 04 |f | BNE 0x21e42 00021e3e 58 4f |XO | ADDQ.L #0x4,A7 00021e40 60 20 |` | BRA 0x21e62 00021e42 be ae 00 08 | | CMP.L (A6+0x8),D7 00021e46 66 10 |f | BNE 0x21e58 00021e48 41 ee 00 10 |A | LEA.L (A6+0x10),A0 00021e4c 22 4c |"L | MOVEA.L A4,A1 00021e4e 70 07 |p | MOVEQ.L #0x07,D0 00021e50 10 d9 | | MOVE.B (A1)+,(A0)+ 00021e52 51 c8 ff fc |Q | DBF D0,0x21e50 00021e56 60 04 |` | BRA 0x21e5c 00021e58 28 6c 00 08 |(l | MOVEA.L (A4+0x8),A4 00021e5c 52 87 |R | ADDQ.L #0x1,D7 00021e5e 68 d4 |h | BVC 0x21e34 00021e60 58 4f |XO | ADDQ.L #0x4,A7 00021e62 4c df 13 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A4 00021e66 4e 5e |N^ | UNLK A6 00021e68 4e 75 |Nu | RTS 00021e6a ; -------------------------------------------------------------------------------------- 00021e6a ; OMSI PASCAL Function 00021e6a ; <LVAR 0x010 4(w)> 00021e6a ; <LVAR 0x00c 4(r)> 00021e6a ; <LVAR 0x008 4(r)> 00021e6a ; <LVAR -0x008 @ 4(r)> 00021e6a ; -------------------------------------------------------------------------------------- 00021e6a 4e 56 ff ce |NV | LINK.W A6,#0xffce 00021e6e bf d5 | | CMPA.L (A5),A7 00021e70 62 06 |b | BHI 0x21e78 00021e72 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021e76 4e 76 |Nv | TRAPV 00021e78 de fc 00 26 | & | ADDA.W #0x26,A7 00021e7c 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00021e80 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00021e84 48 51 |HQ | PEA.L (A1) 00021e86 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00021e8c 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00021e90 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021e94 4e ba ff 3a |N : | JSR 0x21dd0 00021e98 50 4f |PO | ADDQ.L #0x8,A7 00021e9a 7e 01 |~ | MOVEQ.L #0x01,D7 00021e9c be 97 | | CMP.L (A7),D7 00021e9e 6e 38 |n8 | BGT 0x21ed8 00021ea0 20 07 | | MOVE.L D7,D0 00021ea2 d0 ae 00 08 | | ADD.L (A6+0x8),D0 00021ea6 53 80 |S | SUBQ.L #0x1,D0 00021ea8 53 80 |S | SUBQ.L #0x1,D0 00021eaa 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00021eb0 63 02 |c | BLS 0x21eb4 00021eb2 4e 4f |NO | TRAP #15 00021eb4 41 f9 00 02 50 dc |A P | LEA.L 0x250dc,A0 00021eba 1c 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D6 00021ebe 0c 06 00 2f | / | CMPI.B #0x2f,D6 00021ec2 66 04 |f | BNE 0x21ec8 00021ec4 58 4f |XO | ADDQ.L #0x4,A7 00021ec6 60 12 |` | BRA 0x21eda 00021ec8 2f 11 |/ | MOVE.L (A1),-(A7) 00021eca 1f 06 | | MOVE.B D6,-(A7) 00021ecc 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00021ed2 5c 4f |\O | ADDQ.L #0x6,A7 00021ed4 52 87 |R | ADDQ.L #0x1,D7 00021ed6 68 c4 |h | BVC 0x21e9c 00021ed8 58 4f |XO | ADDQ.L #0x4,A7 00021eda 2d 51 00 10 |-Q | MOVE.L (A1),(A6+0x10) 00021ede 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 00021ee2 4e 5e |N^ | UNLK A6 00021ee4 4e 75 |Nu | RTS 00021ee6 ; -------------------------------------------------------------------------------------- 00021ee6 ; OMSI PASCAL Function 00021ee6 ; <LVAR 0x010 4(w)> 00021ee6 ; <LVAR 0x00c 4(r)> 00021ee6 ; <LVAR 0x008 4(r)> 00021ee6 ; -------------------------------------------------------------------------------------- 00021ee6 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00021eea bf d5 | | CMPA.L (A5),A7 00021eec 62 06 |b | BHI 0x21ef4 00021eee 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021ef2 4e 76 |Nv | TRAPV 00021ef4 de fc 00 18 | | ADDA.W #0x18,A7 00021ef8 9e fc 00 0c | | SUBA.W #0xc,A7 00021efc 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00021f00 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021f04 4e ba ff 02 |N | JSR 0x21e08 00021f08 50 4f |PO | ADDQ.L #0x8,A7 00021f0a 4e ba ff 5e |N ^ | JSR 0x21e6a 00021f0e 50 4f |PO | ADDQ.L #0x8,A7 00021f10 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00021f14 4e 5e |N^ | UNLK A6 00021f16 4e 75 |Nu | RTS 00021f18 ; -------------------------------------------------------------------------------------- 00021f18 ; OMSI PASCAL Function 00021f18 ; <LVAR 0x014 4(w)> 00021f18 ; <LVAR 0x010 4(w)> 00021f18 ; <LVAR 0x00c 4(r)> 00021f18 ; <LVAR 0x008 4(r)> 00021f18 ; -------------------------------------------------------------------------------------- 00021f18 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00021f1c bf d5 | | CMPA.L (A5),A7 00021f1e 62 06 |b | BHI 0x21f26 00021f20 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021f24 4e 76 |Nv | TRAPV 00021f26 de fc 00 18 | | ADDA.W #0x18,A7 00021f2a 9e fc 00 0c | | SUBA.W #0xc,A7 00021f2e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00021f32 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021f36 4e ba ff ae |N | JSR 0x21ee6 00021f3a 50 4f |PO | ADDQ.L #0x8,A7 00021f3c 48 78 00 10 |Hx | PEA.L 0x10 00021f40 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 00021f46 50 4f |PO | ADDQ.L #0x8,A7 00021f48 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00021f4c 2d 5f 00 14 |-_ | MOVE.L (A7)+,(A6+0x14) 00021f50 4e 5e |N^ | UNLK A6 00021f52 4e 75 |Nu | RTS 00021f54 ; -------------------------------------------------------------------------------------- 00021f54 ; OMSI PASCAL Function 00021f54 ; <LVAR 0x010 4(w)> 00021f54 ; <LVAR 0x00c 4(r)> 00021f54 ; <LVAR 0x008 4(r)> 00021f54 ; -------------------------------------------------------------------------------------- 00021f54 4e 56 ff e8 |NV | LINK.W A6,#0xffe8 00021f58 bf d5 | | CMPA.L (A5),A7 00021f5a 62 06 |b | BHI 0x21f62 00021f5c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021f60 4e 76 |Nv | TRAPV 00021f62 de fc 00 18 | | ADDA.W #0x18,A7 00021f66 9e fc 00 0c | | SUBA.W #0xc,A7 00021f6a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00021f6e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00021f72 4e ba ff a4 |N | JSR 0x21f18 00021f76 50 4f |PO | ADDQ.L #0x8,A7 00021f78 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00021f7e 50 4f |PO | ADDQ.L #0x8,A7 00021f80 2d 5f 00 10 |-_ | MOVE.L (A7)+,(A6+0x10) 00021f84 4e 5e |N^ | UNLK A6 00021f86 4e 75 |Nu | RTS 00021f88 ; -------------------------------------------------------------------------------------- 00021f88 ; OMSI PASCAL Function 00021f88 ; <LVAR 0x008 @ 4(r)> 00021f88 ; -------------------------------------------------------------------------------------- 00021f88 4e 56 ff d4 |NV | LINK.W A6,#0xffd4 00021f8c bf d5 | | CMPA.L (A5),A7 00021f8e 62 06 |b | BHI 0x21f96 00021f90 44 fc 00 02 |D | MOVE.W #0x2,CCR 00021f94 4e 76 |Nv | TRAPV 00021f96 de fc 00 28 | ( | ADDA.W #0x28,A7 00021f9a 48 e7 c1 e0 |H | MOVEM.L A2+A1+A0+D7+D1+D0,-(A7) 00021f9e 45 f9 00 02 60 e4 |E ` | LEA.L 0x260e4,A2 00021fa4 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00021fa8 2f 08 |/ | MOVE.L A0,-(A7) 00021faa 2f 12 |/ | MOVE.L (A2),-(A7) 00021fac 30 10 |0 | MOVE.W (A0),D0 00021fae 48 c0 |H | EXTW.L D0 00021fb0 44 80 |D | NEG.L D0 00021fb2 2f 00 |/ | MOVE.L D0,-(A7) 00021fb4 4e ba f7 5c |N \ | JSR 0x21712 00021fb8 50 4f |PO | ADDQ.L #0x8,A7 00021fba 30 10 |0 | MOVE.W (A0),D0 00021fbc 48 c0 |H | EXTW.L D0 00021fbe 2f 00 |/ | MOVE.L D0,-(A7) 00021fc0 7e 01 |~ | MOVEQ.L #0x01,D7 00021fc2 be 97 | | CMP.L (A7),D7 00021fc4 6e 34 |n4 | BGT 0x21ffa 00021fc6 20 07 | | MOVE.L D7,D0 00021fc8 d0 92 | | ADD.L (A2),D0 00021fca 53 80 |S | SUBQ.L #0x1,D0 00021fcc 53 80 |S | SUBQ.L #0x1,D0 00021fce 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00021fd4 63 02 |c | BLS 0x21fd8 00021fd6 4e 4f |NO | TRAP #15 00021fd8 41 f9 00 02 50 dc |A P | LEA.L 0x250dc,A0 00021fde 22 07 |" | MOVE.L D7,D1 00021fe0 53 81 |S | SUBQ.L #0x1,D1 00021fe2 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00021fe8 63 02 |c | BLS 0x21fec 00021fea 4e 4f |NO | TRAP #15 00021fec 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 00021ff0 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 00021ff6 52 87 |R | ADDQ.L #0x1,D7 00021ff8 68 c8 |h | BVC 0x21fc2 00021ffa 50 4f |PO | ADDQ.L #0x8,A7 00021ffc 48 6e 00 08 |Hn | PEA.L (A6+0x8) 00022000 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022006 58 4f |XO | ADDQ.L #0x4,A7 00022008 4c df 07 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2 0002200c 4e 5e |N^ | UNLK A6 0002200e 4e 75 |Nu | RTS 00022010 ; -------------------------------------------------------------------------------------- 00022010 ; OMSI PASCAL Function 00022010 ; <LVAR 0x00c 4(r)> 00022010 ; <LVAR 0x008 4(r)> 00022010 ; -------------------------------------------------------------------------------------- 00022010 4e 56 ff ec |NV | LINK.W A6,#0xffec 00022014 bf d5 | | CMPA.L (A5),A7 00022016 62 06 |b | BHI 0x2201e 00022018 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002201c 4e 76 |Nv | TRAPV 0002201e de fc 00 14 | | ADDA.W #0x14,A7 00022022 59 4f |YO | SUBQ.L #0x4,A7 00022024 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00022028 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002202c 48 78 00 10 |Hx | PEA.L 0x10 00022030 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 00022036 de fc 00 0c | | ADDA.W #0xc,A7 0002203a 4e ba ff 4c |N L | JSR 0x21f88 0002203e 58 4f |XO | ADDQ.L #0x4,A7 00022040 4e 5e |N^ | UNLK A6 00022042 4e 75 |Nu | RTS 00022044 ; -------------------------------------------------------------------------------------- 00022044 ; OMSI PASCAL Function 00022044 ; <LVAR 0x008 4(r)> 00022044 ; -------------------------------------------------------------------------------------- 00022044 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 00022048 bf d5 | | CMPA.L (A5),A7 0002204a 62 06 |b | BHI 0x22052 0002204c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022050 4e 76 |Nv | TRAPV 00022052 de fc 00 0c | | ADDA.W #0xc,A7 00022056 59 4f |YO | SUBQ.L #0x4,A7 00022058 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002205c 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022062 58 4f |XO | ADDQ.L #0x4,A7 00022064 4e ba ff 22 |N " | JSR 0x21f88 00022068 58 4f |XO | ADDQ.L #0x4,A7 0002206a 4e 5e |N^ | UNLK A6 0002206c 4e 75 |Nu | RTS 0002206e ; -------------------------------------------------------------------------------------- 0002206e ; OMSI PASCAL Function 0002206e ; <LVAR 0x008 4(r)> 0002206e ; <LVAR -0x004 @ 4(r)> 0002206e ; <LVAR -0x008 4(rw)> 0002206e ; -------------------------------------------------------------------------------------- 0002206e 4e 56 ff ca |NV | LINK.W A6,#0xffca 00022072 bf d5 | | CMPA.L (A5),A7 00022074 62 06 |b | BHI 0x2207c 00022076 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002207a 4e 76 |Nv | TRAPV 0002207c de fc 00 2a | * | ADDA.W #0x2a,A7 00022080 48 e7 81 e0 |H | MOVEM.L A2+A1+A0+D7+D0,-(A7) 00022084 43 ee ff fc |C | LEA.L (A6-0x4),A1 00022088 45 ee ff f8 |E | LEA.L (A6-0x8),A2 0002208c 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00022090 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 00022094 48 51 |HQ | PEA.L (A1) 00022096 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002209c 58 4f |XO | ADDQ.L #0x4,A7 0002209e 20 52 | R | MOVEA.L (A2),A0 000220a0 b0 fc 00 01 | | CMPA.W #0x1,A0 000220a4 67 00 00 86 |g | BEQ 0x2212c 000220a8 4a 90 |J | TST.L (A0) 000220aa 67 68 |gh | BEQ 0x22114 000220ac 2f 28 00 04 |/( | MOVE.L (A0+0x4),-(A7) 000220b0 2e 10 |. | MOVE.L (A0),D7 000220b2 be 97 | | CMP.L (A7),D7 000220b4 6e 14 |n | BGT 0x220ca 000220b6 20 17 | | MOVE.L (A7),D0 000220b8 0c 87 80 00 00 01 | | CMPI.L #0x80000001,D7 000220be 6d 08 |m | BLT 0x220c8 000220c0 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 000220c6 6f 02 |o | BLE 0x220ca 000220c8 4e 4f |NO | TRAP #15 000220ca be 97 | | CMP.L (A7),D7 000220cc 6e 44 |nD | BGT 0x22112 000220ce 2f 11 |/ | MOVE.L (A1),-(A7) 000220d0 20 07 | | MOVE.L D7,D0 000220d2 53 80 |S | SUBQ.L #0x1,D0 000220d4 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 000220da 63 02 |c | BLS 0x220de 000220dc 4e 4f |NO | TRAP #15 000220de 41 f9 00 02 50 dc |A P | LEA.L 0x250dc,A0 000220e4 1f 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),-(A7) 000220e8 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000220ee 5c 4f |\O | ADDQ.L #0x6,A7 000220f0 20 51 | Q | MOVEA.L (A1),A0 000220f2 30 10 |0 | MOVE.W (A0),D0 000220f4 0c 40 00 7a | @ z | CMPI.W #0x007a,D0 000220f8 6d 14 |m | BLT 0x2210e 000220fa 2f 11 |/ | MOVE.L (A1),-(A7) 000220fc 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00022102 58 4f |XO | ADDQ.L #0x4,A7 00022104 48 51 |HQ | PEA.L (A1) 00022106 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002210c 58 4f |XO | ADDQ.L #0x4,A7 0002210e 52 87 |R | ADDQ.L #0x1,D7 00022110 68 b8 |h | BVC 0x220ca 00022112 58 4f |XO | ADDQ.L #0x4,A7 00022114 2f 11 |/ | MOVE.L (A1),-(A7) 00022116 1f 3c 00 20 | < | MOVE.B #0x20,-(A7) 0002211a 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00022120 5c 4f |\O | ADDQ.L #0x6,A7 00022122 20 52 | R | MOVEA.L (A2),A0 00022124 24 a8 00 08 |$ | MOVE.L (A0+0x8),(A2) 00022128 60 00 ff 74 |` t | BRA 0x2209e 0002212c 2f 11 |/ | MOVE.L (A1),-(A7) 0002212e 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022134 58 4f |XO | ADDQ.L #0x4,A7 00022136 4c df 07 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2 0002213a 4e 5e |N^ | UNLK A6 0002213c 4e 75 |Nu | RTS 0002213e ; -------------------------------------------------------------------------------------- 0002213e ; OMSI PASCAL Function 0002213e ; <LVAR 0x008 @ 4(r)> 0002213e ; <LVAR -0x003 @ 1(r)> 0002213e ; <LVAR -0x004 @ 1(r)> 0002213e ; <LVAR -0x008 @ 4(r)> 0002213e ; <LVAR -0x00c @ 4(rw)> 0002213e ; -------------------------------------------------------------------------------------- 0002213e 4e 56 ff ae |NV | LINK.W A6,#0xffae 00022142 bf d5 | | CMPA.L (A5),A7 00022144 62 06 |b | BHI 0x2214c 00022146 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002214a 4e 76 |Nv | TRAPV 0002214c de fc 00 46 | F | ADDA.W #0x46,A7 00022150 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00022154 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00022158 45 ee ff f4 |E | LEA.L (A6-0xc),A2 0002215c 47 ee ff fc |G | LEA.L (A6-0x4),A3 00022160 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00022164 72 01 |r | MOVEQ.L #0x01,D1 00022166 2f 3a ec 36 |/: 6 | MOVE.L 0x20d9e,-(A7) 0002216a 51 4f |QO | SUBQ.L #0x8,A7 0002216c 2f 11 |/ | MOVE.L (A1),-(A7) 0002216e 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022174 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00022178 3f 01 |? | MOVE.W D1,-(A7) 0002217a 3f 3c 00 04 |?< | MOVE.W #0x4,-(A7) 0002217e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022184 50 4f |PO | ADDQ.L #0x8,A7 00022186 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002218c 50 4f |PO | ADDQ.L #0x8,A7 0002218e 24 9f |$ | MOVE.L (A7)+,(A2) 00022190 2e 92 |. | MOVE.L (A2),(A7) 00022192 42 27 |B' | CLR.B -(A7) 00022194 42 27 |B' | CLR.B -(A7) 00022196 48 78 00 00 |Hx | PEA.L 0x0 0002219a 48 53 |HS | PEA.L (A3) 0002219c 48 54 |HT | PEA.L (A4) 0002219e 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 000221a4 de fc 00 14 | | ADDA.W #0x14,A7 000221a8 4a 13 |J | TST.B (A3) 000221aa 67 36 |g6 | BEQ 0x221e2 000221ac 41 fa eb f0 |A | LEA.L 0x20d9e,A0 000221b0 70 0a |p | MOVEQ.L #0x0a,D0 000221b2 3f 20 |? | MOVE.W -(A0),-(A7) 000221b4 51 c8 ff fc |Q | DBF D0,0x221b2 000221b8 51 4f |QO | SUBQ.L #0x8,A7 000221ba 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000221be 3f 01 |? | MOVE.W D1,-(A7) 000221c0 3f 3c 00 16 |?< | MOVE.W #0x16,-(A7) 000221c4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000221ca 58 4f |XO | ADDQ.L #0x4,A7 000221cc 2e 91 |. | MOVE.L (A1),(A7) 000221ce 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000221d4 50 4f |PO | ADDQ.L #0x8,A7 000221d6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000221dc de fc 00 1a | | ADDA.W #0x1a,A7 000221e0 60 54 |`T | BRA 0x22236 000221e2 2f 14 |/ | MOVE.L (A4),-(A7) 000221e4 48 51 |HQ | PEA.L (A1) 000221e6 48 6e ff fd |Hn | PEA.L (A6-0x3) 000221ea 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 000221f0 de fc 00 0c | | ADDA.W #0xc,A7 000221f4 4a 2e ff fd |J. | TST.B (A6-0x3) 000221f8 66 14 |f | BNE 0x2220e 000221fa 59 4f |YO | SUBQ.L #0x4,A7 000221fc 2f 11 |/ | MOVE.L (A1),-(A7) 000221fe 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00022204 58 4f |XO | ADDQ.L #0x4,A7 00022206 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002220c 58 4f |XO | ADDQ.L #0x4,A7 0002220e 4a 2e ff fd |J. | TST.B (A6-0x3) 00022212 67 ce |g | BEQ 0x221e2 00022214 42 27 |B' | CLR.B -(A7) 00022216 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 0002221a 48 78 00 01 |Hx | PEA.L 0x1 0002221e 48 53 |HS | PEA.L (A3) 00022220 48 54 |HT | PEA.L (A4) 00022222 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 00022228 de fc 00 10 | | ADDA.W #0x10,A7 0002222c 48 51 |HQ | PEA.L (A1) 0002222e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022234 58 4f |XO | ADDQ.L #0x4,A7 00022236 48 52 |HR | PEA.L (A2) 00022238 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002223e 58 4f |XO | ADDQ.L #0x4,A7 00022240 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 00022244 4e 5e |N^ | UNLK A6 00022246 4e 75 |Nu | RTS 00022248 ; -------------------------------------------------------------------------------------- 00022248 ; OMSI PASCAL Function 00022248 ; <LVAR 0x008 4(r)> 00022248 ; -------------------------------------------------------------------------------------- 00022248 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 0002224c bf d5 | | CMPA.L (A5),A7 0002224e 62 06 |b | BHI 0x22256 00022250 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022254 4e 76 |Nv | TRAPV 00022256 de fc 00 2e | . | ADDA.W #0x2e,A7 0002225a 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 0002225e 59 4f |YO | SUBQ.L #0x4,A7 00022260 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022264 4e ba f3 64 |N d | JSR 0x215ca 00022268 58 4f |XO | ADDQ.L #0x4,A7 0002226a 2c 1f |, | MOVE.L (A7)+,D6 0002226c 66 2e |f. | BNE 0x2229c 0002226e 41 f9 00 02 60 f6 |A ` | LEA.L 0x260f6,A0 00022274 70 04 |p | MOVEQ.L #0x04,D0 00022276 3f 20 |? | MOVE.W -(A0),-(A7) 00022278 51 c8 ff fc |Q | DBF D0,0x22276 0002227c 59 4f |YO | SUBQ.L #0x4,A7 0002227e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022282 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022286 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 0002228a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022290 50 4f |PO | ADDQ.L #0x8,A7 00022292 4e ba fe aa |N | JSR 0x2213e 00022296 de fc 00 0e | | ADDA.W #0xe,A7 0002229a 60 26 |`& | BRA 0x222c2 0002229c 2f 06 |/ | MOVE.L D6,-(A7) 0002229e 7e 01 |~ | MOVEQ.L #0x01,D7 000222a0 be 97 | | CMP.L (A7),D7 000222a2 6e 1c |n | BGT 0x222c0 000222a4 59 4f |YO | SUBQ.L #0x4,A7 000222a6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000222aa 2f 07 |/ | MOVE.L D7,-(A7) 000222ac 4e ba fc 38 |N 8 | JSR 0x21ee6 000222b0 50 4f |PO | ADDQ.L #0x8,A7 000222b2 28 5f |(_ | MOVEA.L (A7)+,A4 000222b4 2f 0c |/ | MOVE.L A4,-(A7) 000222b6 4e ba fe 86 |N | JSR 0x2213e 000222ba 58 4f |XO | ADDQ.L #0x4,A7 000222bc 52 87 |R | ADDQ.L #0x1,D7 000222be 68 e0 |h | BVC 0x222a0 000222c0 58 4f |XO | ADDQ.L #0x4,A7 000222c2 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 000222c6 4e 5e |N^ | UNLK A6 000222c8 4e 75 |Nu | RTS 000222ca ; -------------------------------------------------------------------------------------- 000222ca ; OMSI PASCAL Function 000222ca ; <LVAR 0x00c @> 000222ca ; <LVAR 0x008 @ 4(r)> 000222ca ; <LVAR -0x020 @> 000222ca ; -------------------------------------------------------------------------------------- 000222ca 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 000222ce bf d5 | | CMPA.L (A5),A7 000222d0 62 06 |b | BHI 0x222d8 000222d2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000222d6 4e 76 |Nv | TRAPV 000222d8 de fc 00 24 | $ | ADDA.W #0x24,A7 000222dc 48 e7 e1 c0 |H | MOVEM.L A1+A0+D7+D2+D1+D0,-(A7) 000222e0 74 1d |t | MOVEQ.L #0x1d,D2 000222e2 7e 01 |~ | MOVEQ.L #0x01,D7 000222e4 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000222e8 30 10 |0 | MOVE.W (A0),D0 000222ea 48 c0 |H | EXTW.L D0 000222ec be 80 | | CMP.L D0,D7 000222ee 6f 10 |o | BLE 0x22300 000222f0 20 07 | | MOVE.L D7,D0 000222f2 53 80 |S | SUBQ.L #0x1,D0 000222f4 b0 82 | | CMP.L D2,D0 000222f6 63 02 |c | BLS 0x222fa 000222f8 4e 4f |NO | TRAP #15 000222fa 42 36 08 e0 |B6 | CLR.B (A6+D0.L-#0x20) 000222fe 60 1e |` | BRA 0x2231e 00022300 20 07 | | MOVE.L D7,D0 00022302 53 80 |S | SUBQ.L #0x1,D0 00022304 b0 82 | | CMP.L D2,D0 00022306 63 02 |c | BLS 0x2230a 00022308 4e 4f |NO | TRAP #15 0002230a 22 07 |" | MOVE.L D7,D1 0002230c 53 81 |S | SUBQ.L #0x1,D1 0002230e 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00022314 63 02 |c | BLS 0x22318 00022316 4e 4f |NO | TRAP #15 00022318 1d b0 18 02 08 e0 | | MOVE.B (A0+D1.L+#0x2),(A6+D0.L-#0x20) 0002231e 52 87 |R | ADDQ.L #0x1,D7 00022320 0c 87 00 00 00 1e | | CMPI.L #0x0000001e,D7 00022326 6f bc |o | BLE 0x222e4 00022328 48 6e 00 08 |Hn | PEA.L (A6+0x8) 0002232c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022332 58 4f |XO | ADDQ.L #0x4,A7 00022334 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00022338 43 ee ff e0 |C | LEA.L (A6-0x20),A1 0002233c 70 0e |p | MOVEQ.L #0x0e,D0 0002233e 30 d9 |0 | MOVE.W (A1)+,(A0)+ 00022340 51 c8 ff fc |Q | DBF D0,0x2233e 00022344 4c df 03 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1 00022348 4e 5e |N^ | UNLK A6 0002234a 4e 75 |Nu | RTS 0002234c ; -------------------------------------------------------------------------------------- 0002234c ; OMSI PASCAL Function 0002234c ; <LVAR 0x026 4(w)> 0002234c ; <LVAR 0x008 @> 0002234c ; <LVAR -0x006 4(rw)> 0002234c ; -------------------------------------------------------------------------------------- 0002234c 4e 56 ff d6 |NV | LINK.W A6,#0xffd6 00022350 bf d5 | | CMPA.L (A5),A7 00022352 62 06 |b | BHI 0x2235a 00022354 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022358 4e 76 |Nv | TRAPV 0002235a de fc 00 24 | $ | ADDA.W #0x24,A7 0002235e 48 e7 c1 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D1+D0,-(A7) 00022362 47 ee ff fa |G | LEA.L (A6-0x6),A3 00022366 7e 00 |~ | MOVEQ.L #0x00,D7 00022368 26 b9 00 02 61 0e |& a | MOVE.L 0x2610e,(A3) 0002236e 20 53 | S | MOVEA.L (A3),A0 00022370 b0 fc 00 01 | | CMPA.W #0x1,A0 00022374 67 1e |g | BEQ 0x22394 00022376 4a 07 |J | TST.B D7 00022378 66 1a |f | BNE 0x22394 0002237a 22 48 |"H | MOVEA.L A0,A1 0002237c 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00022380 70 1d |p | MOVEQ.L #0x1d,D0 00022382 b5 09 | | CMPM.B (A1)+,(A2)+ 00022384 56 c8 ff fc |V | DBNE D0,0x22382 00022388 66 04 |f | BNE 0x2238e 0002238a 7e 01 |~ | MOVEQ.L #0x01,D7 0002238c 60 04 |` | BRA 0x22392 0002238e 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 00022392 60 da |` | BRA 0x2236e 00022394 2d 48 00 26 |-H & | MOVE.L A0,(A6+0x26) 00022398 4c df 0f 83 |L | MOVEM.L (A7)+,D0+D1+D7+A0+A1+A2+A3 0002239c 4e 5e |N^ | UNLK A6 0002239e 4e 75 |Nu | RTS 000223a0 ; -------------------------------------------------------------------------------------- 000223a0 ; OMSI PASCAL Function 000223a0 ; <LVAR 0x008 @ 4(r)> 000223a0 ; -------------------------------------------------------------------------------------- 000223a0 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 000223a4 bf d5 | | CMPA.L (A5),A7 000223a6 62 06 |b | BHI 0x223ae 000223a8 44 fc 00 02 |D | MOVE.W #0x2,CCR 000223ac 4e 76 |Nv | TRAPV 000223ae de fc 00 2c | , | ADDA.W #0x2c,A7 000223b2 48 e7 81 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D0,-(A7) 000223b6 43 ee 00 08 |C | LEA.L (A6+0x8),A1 000223ba 45 f9 00 02 61 0e |E a | LEA.L 0x2610e,A2 000223c0 70 01 |p | MOVEQ.L #0x01,D0 000223c2 20 51 | Q | MOVEA.L (A1),A0 000223c4 b0 c0 | | CMPA.W D0,A0 000223c6 67 56 |gV | BEQ 0x2241e 000223c8 4a a8 00 1e |J | TST.L (A0+0x1e) 000223cc 67 10 |g | BEQ 0x223de 000223ce 2f 28 00 22 |/( " | MOVE.L (A0+0x22),-(A7) 000223d2 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 000223d6 4e b9 00 01 02 a4 |N | JSR Free1(a : Pointer; b : Long) 000223dc 50 4f |PO | ADDQ.L #0x8,A7 000223de 7e 00 |~ | MOVEQ.L #0x00,D7 000223e0 38 40 |8@ | MOVEA.W D0,A4 000223e2 26 52 |&R | MOVEA.L (A2),A3 000223e4 b6 c0 | | CMPA.W D0,A3 000223e6 67 14 |g | BEQ 0x223fc 000223e8 4a 07 |J | TST.B D7 000223ea 66 10 |f | BNE 0x223fc 000223ec b7 d1 | | CMPA.L (A1),A3 000223ee 66 04 |f | BNE 0x223f4 000223f0 7e 01 |~ | MOVEQ.L #0x01,D7 000223f2 60 06 |` | BRA 0x223fa 000223f4 28 4b |(K | MOVEA.L A3,A4 000223f6 26 6b 00 26 |&k & | MOVEA.L (A3+0x26),A3 000223fa 60 e8 |` | BRA 0x223e4 000223fc 4a 07 |J | TST.B D7 000223fe 67 1e |g | BEQ 0x2241e 00022400 b8 c0 | | CMPA.W D0,A4 00022402 66 06 |f | BNE 0x2240a 00022404 24 ab 00 26 |$ & | MOVE.L (A3+0x26),(A2) 00022408 60 06 |` | BRA 0x22410 0002240a 29 6b 00 26 00 26 |)k & & | MOVE.L (A3+0x26),(A4+0x26) 00022410 48 51 |HQ | PEA.L (A1) 00022412 48 78 00 2a |Hx * | PEA.L 0x2a 00022416 4e b9 00 01 02 a8 |N | JSR Free2(a : Pointer; b : Long) 0002241c 50 4f |PO | ADDQ.L #0x8,A7 0002241e 4c df 1f 81 |L | MOVEM.L (A7)+,D0+D7+A0+A1+A2+A3+A4 00022422 4e 5e |N^ | UNLK A6 00022424 4e 75 |Nu | RTS 00022426 ; -------------------------------------------------------------------------------------- 00022426 ; OMSI PASCAL Function 00022426 ; <LVAR 0x010 4(w)> 00022426 ; <LVAR 0x00c 4(r)> 00022426 ; <LVAR 0x008 4(r)> 00022426 ; <LVAR -0x006 @ 4(rw)> 00022426 ; <LVAR -0x024 @> 00022426 ; -------------------------------------------------------------------------------------- 00022426 4e 56 ff 9a |NV | LINK.W A6,#0xff9a 0002242a bf d5 | | CMPA.L (A5),A7 0002242c 62 06 |b | BHI 0x22434 0002242e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022432 4e 76 |Nv | TRAPV 00022434 de fc 00 42 | B | ADDA.W #0x42,A7 00022438 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 0002243c 47 ee ff fa |G | LEA.L (A6-0x6),A3 00022440 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00022444 72 1e |r | MOVEQ.L #0x1e,D1 00022446 9e c1 | | SUBA.W D1,A7 00022448 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 0002244c 2f 10 |/ | MOVE.L (A0),-(A7) 0002244e 4e ba fe 7a |N z | JSR 0x222ca 00022452 58 4f |XO | ADDQ.L #0x4,A7 00022454 41 ee ff dc |A | LEA.L (A6-0x24),A0 00022458 70 0e |p | MOVEQ.L #0x0e,D0 0002245a 30 df |0 | MOVE.W (A7)+,(A0)+ 0002245c 51 c8 ff fc |Q | DBF D0,0x2245a 00022460 4a 94 |J | TST.L (A4) 00022462 6c 02 |l | BGE 0x22466 00022464 42 94 |B | CLR.L (A4) 00022466 59 4f |YO | SUBQ.L #0x4,A7 00022468 20 4b | K | MOVEA.L A3,A0 0002246a 70 0e |p | MOVEQ.L #0x0e,D0 0002246c 3f 20 |? | MOVE.W -(A0),-(A7) 0002246e 51 c8 ff fc |Q | DBF D0,0x2246c 00022472 4e ba fe d8 |N | JSR 0x2234c 00022476 de c1 | | ADDA.W D1,A7 00022478 26 9f |& | MOVE.L (A7)+,(A3) 0002247a 20 53 | S | MOVEA.L (A3),A0 0002247c b0 fc 00 01 | | CMPA.W #0x1,A0 00022480 67 12 |g | BEQ 0x22494 00022482 20 28 00 1e | ( | MOVE.L (A0+0x1e),D0 00022486 b0 94 | | CMP.L (A4),D0 00022488 66 02 |f | BNE 0x2248c 0002248a 60 4c |`L | BRA 0x224d8 0002248c 2f 13 |/ | MOVE.L (A3),-(A7) 0002248e 4e ba ff 10 |N | JSR 0x223a0 00022492 58 4f |XO | ADDQ.L #0x4,A7 00022494 48 53 |HS | PEA.L (A3) 00022496 48 78 00 2a |Hx * | PEA.L 0x2a 0002249a 4e b9 00 01 02 9c |N | JSR Malloc1(length : Long) : Pointer 000224a0 50 4f |PO | ADDQ.L #0x8,A7 000224a2 20 53 | S | MOVEA.L (A3),A0 000224a4 21 79 00 02 61 0e 00 26 |!y a &| MOVE.L 0x2610e,(A0+0x26) 000224ac 23 d3 00 02 61 0e |# a | MOVE.L (A3),0x2610e 000224b2 22 48 |"H | MOVEA.L A0,A1 000224b4 45 ee ff dc |E | LEA.L (A6-0x24),A2 000224b8 70 1d |p | MOVEQ.L #0x1d,D0 000224ba 12 da | | MOVE.B (A2)+,(A1)+ 000224bc 51 c8 ff fc |Q | DBF D0,0x224ba 000224c0 21 54 00 1e |!T | MOVE.L (A4),(A0+0x1e) 000224c4 4a 94 |J | TST.L (A4) 000224c6 67 10 |g | BEQ 0x224d8 000224c8 59 4f |YO | SUBQ.L #0x4,A7 000224ca 2f 14 |/ | MOVE.L (A4),-(A7) 000224cc 4e b9 00 01 02 a0 |N | JSR Malloc2(VAR dst : Pointer; length : Word) 000224d2 58 4f |XO | ADDQ.L #0x4,A7 000224d4 21 5f 00 22 |!_ " | MOVE.L (A7)+,(A0+0x22) 000224d8 2d 53 00 10 |-S | MOVE.L (A3),(A6+0x10) 000224dc 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 000224e0 4e 5e |N^ | UNLK A6 000224e2 4e 75 |Nu | RTS 000224e4 ; -------------------------------------------------------------------------------------- 000224e4 ; OMSI PASCAL Function 000224e4 ; <LVAR 0x00c @> 000224e4 ; <LVAR 0x008 @ 4(r)> 000224e4 ; <LVAR -0x008 4(rw)> 000224e4 ; -------------------------------------------------------------------------------------- 000224e4 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 000224e8 bf d5 | | CMPA.L (A5),A7 000224ea 62 06 |b | BHI 0x224f2 000224ec 44 fc 00 02 |D | MOVE.W #0x2,CCR 000224f0 4e 76 |Nv | TRAPV 000224f2 de fc 00 2c | , | ADDA.W #0x2c,A7 000224f6 48 e7 c3 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D1+D0,-(A7) 000224fa 45 ee 00 08 |E | LEA.L (A6+0x8),A2 000224fe 20 52 | R | MOVEA.L (A2),A0 00022500 30 10 |0 | MOVE.W (A0),D0 00022502 48 c0 |H | EXTW.L D0 00022504 2c 00 |, | MOVE.L D0,D6 00022506 59 4f |YO | SUBQ.L #0x4,A7 00022508 48 6e 00 0c |Hn | PEA.L (A6+0xc) 0002250c 2f 06 |/ | MOVE.L D6,-(A7) 0002250e 4e ba ff 16 |N | JSR 0x22426 00022512 50 4f |PO | ADDQ.L #0x8,A7 00022514 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00022518 4a 86 |J | TST.L D6 0002251a 67 40 |g@ | BEQ 0x2255c 0002251c 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 00022520 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 00022524 2f 08 |/ | MOVE.L A0,-(A7) 00022526 2f 06 |/ | MOVE.L D6,-(A7) 00022528 7e 01 |~ | MOVEQ.L #0x01,D7 0002252a be 97 | | CMP.L (A7),D7 0002252c 6e 2c |n, | BGT 0x2255a 0002252e 20 07 | | MOVE.L D7,D0 00022530 53 80 |S | SUBQ.L #0x1,D0 00022532 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00022538 63 02 |c | BLS 0x2253c 0002253a 4e 4f |NO | TRAP #15 0002253c 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00022540 22 52 |"R | MOVEA.L (A2),A1 00022542 22 07 |" | MOVE.L D7,D1 00022544 53 81 |S | SUBQ.L #0x1,D1 00022546 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 0002254c 63 02 |c | BLS 0x22550 0002254e 4e 4f |NO | TRAP #15 00022550 11 b1 18 02 08 00 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L) 00022556 52 87 |R | ADDQ.L #0x1,D7 00022558 68 d0 |h | BVC 0x2252a 0002255a 50 4f |PO | ADDQ.L #0x8,A7 0002255c 48 52 |HR | PEA.L (A2) 0002255e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022564 58 4f |XO | ADDQ.L #0x4,A7 00022566 4c df 07 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1+A2 0002256a 4e 5e |N^ | UNLK A6 0002256c 4e 75 |Nu | RTS 0002256e ; -------------------------------------------------------------------------------------- 0002256e ; OMSI PASCAL Function 0002256e ; <LVAR 0x008 4(r)> 0002256e ; <LVAR -0x004 @ 4(w)> 0002256e ; <LVAR -0x008 4(rw)> 0002256e ; <LVAR -0x00c 4(rw)> 0002256e ; <LVAR -0x010 4(rw)> 0002256e ; <LVAR -0x01c 4(rw)> 0002256e ; <LVAR -0x020 4(rw)> 0002256e ; -------------------------------------------------------------------------------------- 0002256e 4e 56 ff 82 |NV | LINK.W A6,#0xff82 00022572 bf d5 | | CMPA.L (A5),A7 00022574 62 06 |b | BHI 0x2257c 00022576 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002257a 4e 76 |Nv | TRAPV 0002257c de fc 00 5a | Z | ADDA.W #0x5a,A7 00022580 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00022584 45 ee ff f4 |E | LEA.L (A6-0xc),A2 00022588 47 ee ff f0 |G | LEA.L (A6-0x10),A3 0002258c 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00022590 74 01 |t | MOVEQ.L #0x01,D2 00022592 59 4f |YO | SUBQ.L #0x4,A7 00022594 2f 14 |/ | MOVE.L (A4),-(A7) 00022596 4e ba f0 32 |N 2 | JSR 0x215ca 0002259a 58 4f |XO | ADDQ.L #0x4,A7 0002259c 26 9f |& | MOVE.L (A7)+,(A3) 0002259e 20 13 | | MOVE.L (A3),D0 000225a0 b0 82 | | CMP.L D2,D0 000225a2 6c 2e |l. | BGE 0x225d2 000225a4 9e fc 00 1a | | SUBA.W #0x1a,A7 000225a8 20 4f | O | MOVEA.L A7,A0 000225aa 43 fa e7 f6 |C | LEA.L 0x20da2,A1 000225ae 72 18 |r | MOVEQ.L #0x18,D1 000225b0 10 d9 | | MOVE.B (A1)+,(A0)+ 000225b2 51 c9 ff fc |Q | DBF D1,0x225b0 000225b6 59 4f |YO | SUBQ.L #0x4,A7 000225b8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000225bc 3f 02 |? | MOVE.W D2,-(A7) 000225be 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 000225c2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000225c8 50 4f |PO | ADDQ.L #0x8,A7 000225ca 4e ba eb f2 |N | JSR 0x211be 000225ce de fc 00 1e | | ADDA.W #0x1e,A7 000225d2 42 92 |B | CLR.L (A2) 000225d4 2f 00 |/ | MOVE.L D0,-(A7) 000225d6 7c 02 || | MOVEQ.L #0x02,D6 000225d8 bc 97 | | CMP.L (A7),D6 000225da 6e 1e |n | BGT 0x225fa 000225dc 9e fc 00 0c | | SUBA.W #0xc,A7 000225e0 2f 14 |/ | MOVE.L (A4),-(A7) 000225e2 2f 06 |/ | MOVE.L D6,-(A7) 000225e4 4e ba f8 22 |N " | JSR 0x21e08 000225e8 50 4f |PO | ADDQ.L #0x8,A7 000225ea 4e ba f7 e4 |N | JSR 0x21dd0 000225ee 50 4f |PO | ADDQ.L #0x8,A7 000225f0 20 12 | | MOVE.L (A2),D0 000225f2 d0 9f | | ADD.L (A7)+,D0 000225f4 24 80 |$ | MOVE.L D0,(A2) 000225f6 52 86 |R | ADDQ.L #0x1,D6 000225f8 68 de |h | BVC 0x225d8 000225fa 58 4f |XO | ADDQ.L #0x4,A7 000225fc 20 13 | | MOVE.L (A3),D0 000225fe 55 80 |U | SUBQ.L #0x2,D0 00022600 d1 92 | | ADD.L D0,(A2) 00022602 59 4f |YO | SUBQ.L #0x4,A7 00022604 2f 14 |/ | MOVE.L (A4),-(A7) 00022606 48 78 00 01 |Hx | PEA.L 0x1 0002260a 4e ba f8 da |N | JSR 0x21ee6 0002260e 50 4f |PO | ADDQ.L #0x8,A7 00022610 2d 57 ff fc |-W | MOVE.L (A7),(A6-0x4) 00022614 48 6e ff fc |Hn | PEA.L (A6-0x4) 00022618 2f 12 |/ | MOVE.L (A2),-(A7) 0002261a 4e ba fe 0a |N | JSR 0x22426 0002261e 50 4f |PO | ADDQ.L #0x8,A7 00022620 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00022624 4a 92 |J | TST.L (A2) 00022626 6f 00 00 aa |o | BLE 0x226d2 0002262a 20 6e ff f8 | n | MOVEA.L (A6-0x8),A0 0002262e 20 68 00 22 | h " | MOVEA.L (A0+0x22),A0 00022632 2f 08 |/ | MOVE.L A0,-(A7) 00022634 7e 01 |~ | MOVEQ.L #0x01,D7 00022636 2f 13 |/ | MOVE.L (A3),-(A7) 00022638 7c 02 || | MOVEQ.L #0x02,D6 0002263a bc 97 | | CMP.L (A7),D6 0002263c 6e 00 00 92 |n | BGT 0x226d0 00022640 51 4f |QO | SUBQ.L #0x8,A7 00022642 2f 14 |/ | MOVE.L (A4),-(A7) 00022644 2f 06 |/ | MOVE.L D6,-(A7) 00022646 4e ba f7 c0 |N | JSR 0x21e08 0002264a 50 4f |PO | ADDQ.L #0x8,A7 0002264c 2d 5f ff e0 |-_ | MOVE.L (A7)+,(A6-0x20) 00022650 2d 5f ff e4 |-_ | MOVE.L (A7)+,(A6-0x1c) 00022654 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00022658 2a 2e ff e0 |*. | MOVE.L (A6-0x20),D5 0002265c ba 97 | | CMP.L (A7),D5 0002265e 6e 14 |n | BGT 0x22674 00022660 20 17 | | MOVE.L (A7),D0 00022662 0c 85 80 00 00 01 | | CMPI.L #0x80000001,D5 00022668 6d 08 |m | BLT 0x22672 0002266a 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 00022670 6f 02 |o | BLE 0x22674 00022672 4e 4f |NO | TRAP #15 00022674 ba 97 | | CMP.L (A7),D5 00022676 6e 32 |n2 | BGT 0x226aa 00022678 20 07 | | MOVE.L D7,D0 0002267a 53 80 |S | SUBQ.L #0x1,D0 0002267c 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 00022682 63 02 |c | BLS 0x22686 00022684 4e 4f |NO | TRAP #15 00022686 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 0002268a 22 05 |" | MOVE.L D5,D1 0002268c 53 81 |S | SUBQ.L #0x1,D1 0002268e 0c 81 00 00 0f ff | | CMPI.L #0x00000fff,D1 00022694 63 02 |c | BLS 0x22698 00022696 4e 4f |NO | TRAP #15 00022698 43 f9 00 02 50 dc |C P | LEA.L 0x250dc,A1 0002269e 11 b1 18 08 08 00 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L) 000226a4 52 87 |R | ADDQ.L #0x1,D7 000226a6 52 85 |R | ADDQ.L #0x1,D5 000226a8 68 ca |h | BVC 0x22674 000226aa 58 4f |XO | ADDQ.L #0x4,A7 000226ac bc 93 | | CMP.L (A3),D6 000226ae 67 1a |g | BEQ 0x226ca 000226b0 20 07 | | MOVE.L D7,D0 000226b2 53 80 |S | SUBQ.L #0x1,D0 000226b4 0c 80 00 00 03 ff | | CMPI.L #0x000003ff,D0 000226ba 63 02 |c | BLS 0x226be 000226bc 4e 4f |NO | TRAP #15 000226be 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 000226c2 11 bc 00 2c 08 00 | , | MOVE.B #0x2c,(A0+D0.L) 000226c8 52 87 |R | ADDQ.L #0x1,D7 000226ca 52 86 |R | ADDQ.L #0x1,D6 000226cc 68 00 ff 6c |h l | BVC 0x2263a 000226d0 50 4f |PO | ADDQ.L #0x8,A7 000226d2 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 000226d6 4e 5e |N^ | UNLK A6 000226d8 4e 75 |Nu | RTS 000226da ; -------------------------------------------------------------------------------------- 000226da ; OMSI PASCAL Function 000226da ; <LVAR 0x008 4(r)> 000226da ; <LVAR -0x00c 4(rw)> 000226da ; -------------------------------------------------------------------------------------- 000226da 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 000226de bf d5 | | CMPA.L (A5),A7 000226e0 62 06 |b | BHI 0x226e8 000226e2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000226e6 4e 76 |Nv | TRAPV 000226e8 de fc 00 54 | T | ADDA.W #0x54,A7 000226ec 48 e7 e1 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D2+D1+D0,-(A7) 000226f0 47 f9 00 02 60 e4 |G ` | LEA.L 0x260e4,A3 000226f6 74 01 |t | MOVEQ.L #0x01,D2 000226f8 59 4f |YO | SUBQ.L #0x4,A7 000226fa 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000226fe 48 78 00 01 |Hx | PEA.L 0x1 00022702 4e ba f7 e2 |N | JSR 0x21ee6 00022706 50 4f |PO | ADDQ.L #0x8,A7 00022708 28 5f |(_ | MOVEA.L (A7)+,A4 0002270a 9e fc 00 22 | " | SUBA.W #0x22,A7 0002270e 2f 0c |/ | MOVE.L A4,-(A7) 00022710 4e ba fb b8 |N | JSR 0x222ca 00022714 58 4f |XO | ADDQ.L #0x4,A7 00022716 4e ba fc 34 |N 4 | JSR 0x2234c 0002271a de fc 00 1e | | ADDA.W #0x1e,A7 0002271e 2d 5f ff f4 |-_ | MOVE.L (A7)+,(A6-0xc) 00022722 20 6e ff f4 | n | MOVEA.L (A6-0xc),A0 00022726 b0 c2 | | CMPA.W D2,A0 00022728 66 42 |fB | BNE 0x2276c 0002272a 9e fc 00 14 | | SUBA.W #0x14,A7 0002272e 22 4f |"O | MOVEA.L A7,A1 00022730 45 fa e6 8a |E | LEA.L 0x20dbc,A2 00022734 70 12 |p | MOVEQ.L #0x12,D0 00022736 12 da | | MOVE.B (A2)+,(A1)+ 00022738 51 c8 ff fc |Q | DBF D0,0x22736 0002273c 51 4f |QO | SUBQ.L #0x8,A7 0002273e 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00022742 3f 02 |? | MOVE.W D2,-(A7) 00022744 3f 3c 00 13 |?< | MOVE.W #0x13,-(A7) 00022748 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 0002274e 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00022752 48 78 00 01 |Hx | PEA.L 0x1 00022756 4e ba f7 8e |N | JSR 0x21ee6 0002275a 50 4f |PO | ADDQ.L #0x8,A7 0002275c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022762 50 4f |PO | ADDQ.L #0x8,A7 00022764 4e ba ea 58 |N X | JSR 0x211be 00022768 de fc 00 18 | | ADDA.W #0x18,A7 0002276c 2f 08 |/ | MOVE.L A0,-(A7) 0002276e 2f 13 |/ | MOVE.L (A3),-(A7) 00022770 2f 28 00 1e |/( | MOVE.L (A0+0x1e),-(A7) 00022774 44 97 |D | NEG.L (A7) 00022776 4e ba ef 9a |N | JSR 0x21712 0002277a 58 4f |XO | ADDQ.L #0x4,A7 0002277c 2e a8 00 1e |. | MOVE.L (A0+0x1e),(A7) 00022780 7e 01 |~ | MOVEQ.L #0x01,D7 00022782 be 97 | | CMP.L (A7),D7 00022784 6e 38 |n8 | BGT 0x227be 00022786 20 07 | | MOVE.L D7,D0 00022788 d0 93 | | ADD.L (A3),D0 0002278a 53 80 |S | SUBQ.L #0x1,D0 0002278c 53 80 |S | SUBQ.L #0x1,D0 0002278e 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00022794 63 02 |c | BLS 0x22798 00022796 4e 4f |NO | TRAP #15 00022798 41 f9 00 02 50 dc |A P | LEA.L 0x250dc,A0 0002279e 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 000227a2 22 69 00 22 |"i " | MOVEA.L (A1+0x22),A1 000227a6 22 07 |" | MOVE.L D7,D1 000227a8 53 81 |S | SUBQ.L #0x1,D1 000227aa 0c 81 00 00 03 ff | | CMPI.L #0x000003ff,D1 000227b0 63 02 |c | BLS 0x227b4 000227b2 4e 4f |NO | TRAP #15 000227b4 11 b1 18 00 08 08 | | MOVE.B (A1+D1.L),(A0+D0.L+#0x8) 000227ba 52 87 |R | ADDQ.L #0x1,D7 000227bc 68 c4 |h | BVC 0x22782 000227be 50 4f |PO | ADDQ.L #0x8,A7 000227c0 4c df 1f 87 |L | MOVEM.L (A7)+,D0+D1+D2+D7+A0+A1+A2+A3+A4 000227c4 4e 5e |N^ | UNLK A6 000227c6 4e 75 |Nu | RTS 000227c8 ; -------------------------------------------------------------------------------------- 000227c8 ; OMSI PASCAL Function 000227c8 ; <LVAR -0x004 4(rw)> 000227c8 ; -------------------------------------------------------------------------------------- 000227c8 4e 56 ff ae |NV | LINK.W A6,#0xffae 000227cc bf d5 | | CMPA.L (A5),A7 000227ce 62 06 |b | BHI 0x227d6 000227d0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000227d4 4e 76 |Nv | TRAPV 000227d6 de fc 00 4e | N | ADDA.W #0x4e,A7 000227da 48 e7 e0 f0 |H | MOVEM.L A3+A2+A1+A0+D2+D1+D0,-(A7) 000227de 47 ee ff fc |G | LEA.L (A6-0x4),A3 000227e2 72 01 |r | MOVEQ.L #0x01,D1 000227e4 74 1e |t | MOVEQ.L #0x1e,D2 000227e6 26 b9 00 02 61 0e |& a | MOVE.L 0x2610e,(A3) 000227ec 20 53 | S | MOVEA.L (A3),A0 000227ee b0 c1 | | CMPA.W D1,A0 000227f0 67 30 |g0 | BEQ 0x22822 000227f2 9e c2 | | SUBA.W D2,A7 000227f4 22 4f |"O | MOVEA.L A7,A1 000227f6 24 48 |$H | MOVEA.L A0,A2 000227f8 70 1d |p | MOVEQ.L #0x1d,D0 000227fa 12 da | | MOVE.B (A2)+,(A1)+ 000227fc 51 c8 ff fc |Q | DBF D0,0x227fa 00022800 59 4f |YO | SUBQ.L #0x4,A7 00022802 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022806 3f 01 |? | MOVE.W D1,-(A7) 00022808 3f 02 |? | MOVE.W D2,-(A7) 0002280a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022810 50 4f |PO | ADDQ.L #0x8,A7 00022812 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00022818 de fc 00 22 | " | ADDA.W #0x22,A7 0002281c 26 a8 00 26 |& & | MOVE.L (A0+0x26),(A3) 00022820 60 ca |` | BRA 0x227ec 00022822 4c df 0f 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2+A3 00022826 4e 5e |N^ | UNLK A6 00022828 4e 75 |Nu | RTS 0002282a ; -------------------------------------------------------------------------------------- 0002282a ; OMSI PASCAL Function 0002282a ; <LVAR 0x008 4(r)> 0002282a ; -------------------------------------------------------------------------------------- 0002282a 4e 56 ff ce |NV | LINK.W A6,#0xffce 0002282e bf d5 | | CMPA.L (A5),A7 00022830 62 06 |b | BHI 0x22838 00022832 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022836 4e 76 |Nv | TRAPV 00022838 de fc 00 32 | 2 | ADDA.W #0x32,A7 0002283c 9e fc 00 26 | & | SUBA.W #0x26,A7 00022840 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022844 48 78 00 01 |Hx | PEA.L 0x1 00022848 4e ba f6 9c |N | JSR 0x21ee6 0002284c 50 4f |PO | ADDQ.L #0x8,A7 0002284e 4e ba fa 7a |N z | JSR 0x222ca 00022852 58 4f |XO | ADDQ.L #0x4,A7 00022854 4e ba fa f6 |N | JSR 0x2234c 00022858 de fc 00 1e | | ADDA.W #0x1e,A7 0002285c 4e ba fb 42 |N B | JSR 0x223a0 00022860 58 4f |XO | ADDQ.L #0x4,A7 00022862 4e 5e |N^ | UNLK A6 00022864 4e 75 |Nu | RTS 00022866 ; -------------------------------------------------------------------------------------- 00022866 ; OMSI PASCAL Function 00022866 ; -------------------------------------------------------------------------------------- 00022866 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 0002286a bf d5 | | CMPA.L (A5),A7 0002286c 62 06 |b | BHI 0x22874 0002286e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022872 4e 76 |Nv | TRAPV 00022874 de fc 00 0c | | ADDA.W #0xc,A7 00022878 51 4f |QO | SUBQ.L #0x8,A7 0002287a 4e b9 00 01 03 cc |N | JSR GetPushLevel() : Long 00022880 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00022886 58 4f |XO | ADDQ.L #0x4,A7 00022888 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 0002288e 58 4f |XO | ADDQ.L #0x4,A7 00022890 4e 5e |N^ | UNLK A6 00022892 4e 75 |Nu | RTS 00022894 ; -------------------------------------------------------------------------------------- 00022894 ; OMSI PASCAL Function 00022894 ; <LVAR 0x008 4(r)> 00022894 ; <LVAR -0x004 1(rw)> 00022894 ; <LVAR -0x008 @ 4(rw)> 00022894 ; <LVAR -0x00c @ 4(r)> 00022894 ; <LVAR -0x010 @ 4(r)> 00022894 ; <LVAR -0x012 @ 1(r)> 00022894 ; <LVAR -0x013 @ 1(r)> 00022894 ; <LVAR -0x014 @ 1(r)> 00022894 ; <LVAR -0x024 4(rw)> 00022894 ; <LVAR -0x028 4(rw)> 00022894 ; <LVAR -0x02c 4(rw)> 00022894 ; <LVAR -0x030 @ 4(r)> 00022894 ; <LVAR -0x032 1(w)> 00022894 ; <LVAR -0x036 @ 4(r)> 00022894 ; <LVAR -0x038 @ 1(r)> 00022894 ; <LVAR -0x03c @ 4(rw)> 00022894 ; -------------------------------------------------------------------------------------- 00022894 4e 56 ff 64 |NV d | LINK.W A6,#0xff64 00022898 bf d5 | | CMPA.L (A5),A7 0002289a 62 06 |b | BHI 0x228a2 0002289c 44 fc 00 02 |D | MOVE.W #0x2,CCR 000228a0 4e 76 |Nv | TRAPV 000228a2 de fc 00 60 | ` | ADDA.W #0x60,A7 000228a6 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000228aa 45 ee ff c4 |E | LEA.L (A6-0x3c),A2 000228ae 47 ee 00 08 |G | LEA.L (A6+0x8),A3 000228b2 49 f9 00 01 02 c4 |I | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A4 000228b8 74 01 |t | MOVEQ.L #0x01,D2 000228ba 76 14 |v | MOVEQ.L #0x14,D3 000228bc 28 3c ff ff 80 00 |(< | MOVE.L #0xffff8000,D4 000228c2 59 4f |YO | SUBQ.L #0x4,A7 000228c4 2f 13 |/ | MOVE.L (A3),-(A7) 000228c6 4e ba ed 02 |N | JSR 0x215ca 000228ca 58 4f |XO | ADDQ.L #0x4,A7 000228cc 2d 5f ff d4 |-_ | MOVE.L (A7)+,(A6-0x2c) 000228d0 66 28 |f( | BNE 0x228fa 000228d2 59 4f |YO | SUBQ.L #0x4,A7 000228d4 1e ba e5 0c | | MOVE.B 0x20de2,(A7) 000228d8 1f 7a e5 09 00 01 | z | MOVE.B 0x20de3,(A7+0x1) 000228de 1f 7a e5 04 00 02 | z | MOVE.B 0x20de4,(A7+0x2) 000228e4 59 4f |YO | SUBQ.L #0x4,A7 000228e6 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000228ea 3f 02 |? | MOVE.W D2,-(A7) 000228ec 3f 3c 00 03 |?< | MOVE.W #0x3,-(A7) 000228f0 4e 94 |N | JSR (A4) 000228f2 50 4f |PO | ADDQ.L #0x8,A7 000228f4 24 9f |$ | MOVE.L (A7)+,(A2) 000228f6 58 4f |XO | ADDQ.L #0x4,A7 000228f8 60 10 |` | BRA 0x2290a 000228fa 59 4f |YO | SUBQ.L #0x4,A7 000228fc 2f 13 |/ | MOVE.L (A3),-(A7) 000228fe 48 78 00 01 |Hx | PEA.L 0x1 00022902 4e ba f5 e2 |N | JSR 0x21ee6 00022906 50 4f |PO | ADDQ.L #0x8,A7 00022908 24 9f |$ | MOVE.L (A7)+,(A2) 0002290a 5d 4f |]O | SUBQ.L #0x6,A7 0002290c 20 4f | O | MOVEA.L A7,A0 0002290e 43 fa e4 d6 |C | LEA.L 0x20de6,A1 00022912 70 04 |p | MOVEQ.L #0x04,D0 00022914 10 d9 | | MOVE.B (A1)+,(A0)+ 00022916 51 c8 ff fc |Q | DBF D0,0x22914 0002291a 59 4f |YO | SUBQ.L #0x4,A7 0002291c 2f 12 |/ | MOVE.L (A2),-(A7) 0002291e 59 4f |YO | SUBQ.L #0x4,A7 00022920 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00022924 3f 02 |? | MOVE.W D2,-(A7) 00022926 3f 3c 00 05 |?< | MOVE.W #0x5,-(A7) 0002292a 4e 94 |N | JSR (A4) 0002292c 50 4f |PO | ADDQ.L #0x8,A7 0002292e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00022934 50 4f |PO | ADDQ.L #0x8,A7 00022936 24 9f |$ | MOVE.L (A7)+,(A2) 00022938 54 4f |TO | ADDQ.L #0x2,A7 0002293a 2e 92 |. | MOVE.L (A2),(A7) 0002293c 42 27 |B' | CLR.B -(A7) 0002293e 1f 02 | | MOVE.B D2,-(A7) 00022940 48 78 00 00 |Hx | PEA.L 0x0 00022944 48 6e ff c8 |Hn | PEA.L (A6-0x38) 00022948 48 6e ff ca |Hn | PEA.L (A6-0x36) 0002294c 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00022952 de c3 | | ADDA.W D3,A7 00022954 4a 2e ff c8 |J. | TST.B (A6-0x38) 00022958 67 0e |g | BEQ 0x22968 0002295a 48 52 |HR | PEA.L (A2) 0002295c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022962 58 4f |XO | ADDQ.L #0x4,A7 00022964 60 00 02 4e |` N | BRA 0x22bb4 00022968 20 6e ff ca | n | MOVEA.L (A6-0x36),A0 0002296c 10 28 00 3f | ( ? | MOVE.B (A0+0x3f),D0 00022970 ed 08 | | LSL.B #0x6,D0 00022972 ee 08 | | LSR.B #0x7,D0 00022974 1d 40 ff ce | @ | MOVE.B D0,(A6-0x32) 00022978 42 27 |B' | CLR.B -(A7) 0002297a 1f 02 | | MOVE.B D2,-(A7) 0002297c 48 78 00 01 |Hx | PEA.L 0x1 00022980 48 6e ff c8 |Hn | PEA.L (A6-0x38) 00022984 48 6e ff ca |Hn | PEA.L (A6-0x36) 00022988 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 0002298e de fc 00 10 | | ADDA.W #0x10,A7 00022992 20 52 | R | MOVEA.L (A2),A0 00022994 32 10 |2 | MOVE.W (A0),D1 00022996 48 c1 |H | EXTW.L D1 00022998 5b 81 |[ | SUBQ.L #0x5,D1 0002299a 92 84 | | SUB.L D4,D1 0002299c 0c 81 00 00 ff ff | | CMPI.L #0x0000ffff,D1 000229a2 63 02 |c | BLS 0x229a6 000229a4 4e 4f |NO | TRAP #15 000229a6 d2 84 | | ADD.L D4,D1 000229a8 30 81 |0 | MOVE.W D1,(A0) 000229aa 4a 00 |J | TST.B D0 000229ac 66 36 |f6 | BNE 0x229e4 000229ae 41 fa e4 32 |A 2 | LEA.L 0x20de2,A0 000229b2 70 08 |p | MOVEQ.L #0x08,D0 000229b4 3f 20 |? | MOVE.W -(A0),-(A7) 000229b6 51 c8 ff fc |Q | DBF D0,0x229b4 000229ba 59 4f |YO | SUBQ.L #0x4,A7 000229bc 2f 12 |/ | MOVE.L (A2),-(A7) 000229be 59 4f |YO | SUBQ.L #0x4,A7 000229c0 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000229c4 3f 02 |? | MOVE.W D2,-(A7) 000229c6 3f 3c 00 12 |?< | MOVE.W #0x12,-(A7) 000229ca 4e 94 |N | JSR (A4) 000229cc 50 4f |PO | ADDQ.L #0x8,A7 000229ce 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000229d4 50 4f |PO | ADDQ.L #0x8,A7 000229d6 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 000229dc de fc 00 16 | | ADDA.W #0x16,A7 000229e0 60 00 01 d2 |` | BRA 0x22bb4 000229e4 48 6e ff d0 |Hn | PEA.L (A6-0x30) 000229e8 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 000229ee 58 4f |XO | ADDQ.L #0x4,A7 000229f0 20 6e ff d0 | n | MOVEA.L (A6-0x30),A0 000229f4 2f 08 |/ | MOVE.L A0,-(A7) 000229f6 7e 01 |~ | MOVEQ.L #0x01,D7 000229f8 2f 2e ff d4 |/. | MOVE.L (A6-0x2c),-(A7) 000229fc 7a 02 |z | MOVEQ.L #0x02,D5 000229fe ba 97 | | CMP.L (A7),D5 00022a00 6e 00 00 94 |n | BGT 0x22a96 00022a04 51 4f |QO | SUBQ.L #0x8,A7 00022a06 2f 13 |/ | MOVE.L (A3),-(A7) 00022a08 2f 05 |/ | MOVE.L D5,-(A7) 00022a0a 4e ba f3 fc |N | JSR 0x21e08 00022a0e 50 4f |PO | ADDQ.L #0x8,A7 00022a10 2d 5f ff d8 |-_ | MOVE.L (A7)+,(A6-0x28) 00022a14 2d 5f ff dc |-_ | MOVE.L (A7)+,(A6-0x24) 00022a18 2f 2e ff dc |/. | MOVE.L (A6-0x24),-(A7) 00022a1c 2c 2e ff d8 |,. | MOVE.L (A6-0x28),D6 00022a20 bc 97 | | CMP.L (A7),D6 00022a22 6e 14 |n | BGT 0x22a38 00022a24 20 17 | | MOVE.L (A7),D0 00022a26 0c 86 80 00 00 01 | | CMPI.L #0x80000001,D6 00022a2c 6d 08 |m | BLT 0x22a36 00022a2e 0c 80 7f ff ff ff | | CMPI.L #0x7fffffff,D0 00022a34 6f 02 |o | BLE 0x22a38 00022a36 4e 4f |NO | TRAP #15 00022a38 bc 97 | | CMP.L (A7),D6 00022a3a 6e 32 |n2 | BGT 0x22a6e 00022a3c 20 07 | | MOVE.L D7,D0 00022a3e 53 80 |S | SUBQ.L #0x1,D0 00022a40 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00022a46 63 02 |c | BLS 0x22a4a 00022a48 4e 4f |NO | TRAP #15 00022a4a 20 6f 00 08 | o | MOVEA.L (A7+0x8),A0 00022a4e 22 06 |" | MOVE.L D6,D1 00022a50 53 81 |S | SUBQ.L #0x1,D1 00022a52 0c 81 00 00 0f ff | | CMPI.L #0x00000fff,D1 00022a58 63 02 |c | BLS 0x22a5c 00022a5a 4e 4f |NO | TRAP #15 00022a5c 43 f9 00 02 50 dc |C P | LEA.L 0x250dc,A1 00022a62 11 b1 18 08 08 02 | | MOVE.B (A1+D1.L+#0x8),(A0+D0.L+#0x2) 00022a68 52 87 |R | ADDQ.L #0x1,D7 00022a6a 52 86 |R | ADDQ.L #0x1,D6 00022a6c 68 ca |h | BVC 0x22a38 00022a6e 58 4f |XO | ADDQ.L #0x4,A7 00022a70 ba ae ff d4 | | CMP.L (A6-0x2c),D5 00022a74 67 1a |g | BEQ 0x22a90 00022a76 20 07 | | MOVE.L D7,D0 00022a78 53 80 |S | SUBQ.L #0x1,D0 00022a7a 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 00022a80 63 02 |c | BLS 0x22a84 00022a82 4e 4f |NO | TRAP #15 00022a84 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00022a88 11 bc 00 2c 08 02 | , | MOVE.B #0x2c,(A0+D0.L+#0x2) 00022a8e 52 87 |R | ADDQ.L #0x1,D7 00022a90 52 85 |R | ADDQ.L #0x1,D5 00022a92 68 00 ff 6a |h j | BVC 0x229fe 00022a96 58 4f |XO | ADDQ.L #0x4,A7 00022a98 20 57 | W | MOVEA.L (A7),A0 00022a9a 20 07 | | MOVE.L D7,D0 00022a9c 53 80 |S | SUBQ.L #0x1,D0 00022a9e 90 84 | | SUB.L D4,D0 00022aa0 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 00022aa6 63 02 |c | BLS 0x22aaa 00022aa8 4e 4f |NO | TRAP #15 00022aaa d0 84 | | ADD.L D4,D0 00022aac 30 80 |0 | MOVE.W D0,(A0) 00022aae 54 4f |TO | ADDQ.L #0x2,A7 00022ab0 3e ba e3 3e |> > | MOVE.W 0x20df0,(A7) 00022ab4 3f 3a e3 38 |?: 8 | MOVE.W 0x20dee,-(A7) 00022ab8 3f 3a e3 32 |?: 2 | MOVE.W 0x20dec,-(A7) 00022abc 59 4f |YO | SUBQ.L #0x4,A7 00022abe 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022ac2 3f 02 |? | MOVE.W D2,-(A7) 00022ac4 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00022ac8 4e 94 |N | JSR (A4) 00022aca 50 4f |PO | ADDQ.L #0x8,A7 00022acc 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00022ad0 54 4f |TO | ADDQ.L #0x2,A7 00022ad2 2e 93 |. | MOVE.L (A3),(A7) 00022ad4 48 78 00 00 |Hx | PEA.L 0x0 00022ad8 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00022adc 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00022ae0 48 6e ff ed |Hn | PEA.L (A6-0x13) 00022ae4 4e b9 00 02 44 1e |N D | JSR 0x2441e 00022aea de c3 | | ADDA.W D3,A7 00022aec 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00022af0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022af6 54 4f |TO | ADDQ.L #0x2,A7 00022af8 3e ba e2 fc |> | MOVE.W 0x20df6,(A7) 00022afc 3f 3a e2 f6 |?: | MOVE.W 0x20df4,-(A7) 00022b00 3f 3a e2 f0 |?: | MOVE.W 0x20df2,-(A7) 00022b04 59 4f |YO | SUBQ.L #0x4,A7 00022b06 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022b0a 3f 02 |? | MOVE.W D2,-(A7) 00022b0c 3f 3c 00 06 |?< | MOVE.W #0x6,-(A7) 00022b10 4e 94 |N | JSR (A4) 00022b12 50 4f |PO | ADDQ.L #0x8,A7 00022b14 2d 5f ff f8 |-_ | MOVE.L (A7)+,(A6-0x8) 00022b18 54 4f |TO | ADDQ.L #0x2,A7 00022b1a 2e 93 |. | MOVE.L (A3),(A7) 00022b1c 48 78 00 00 |Hx | PEA.L 0x0 00022b20 2f 2e ff f8 |/. | MOVE.L (A6-0x8),-(A7) 00022b24 48 6e ff f4 |Hn | PEA.L (A6-0xc) 00022b28 48 6e ff ee |Hn | PEA.L (A6-0x12) 00022b2c 4e b9 00 02 44 1e |N D | JSR 0x2441e 00022b32 de c3 | | ADDA.W D3,A7 00022b34 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00022b38 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022b3e 58 4f |XO | ADDQ.L #0x4,A7 00022b40 4a 2e ff ed |J. | TST.B (A6-0x13) 00022b44 66 06 |f | BNE 0x22b4c 00022b46 4a 2e ff ee |J. | TST.B (A6-0x12) 00022b4a 67 06 |g | BEQ 0x22b52 00022b4c 42 2e ff fc |B. | CLR.B (A6-0x4) 00022b50 60 04 |` | BRA 0x22b56 00022b52 1d 42 ff fc | B | MOVE.B D2,(A6-0x4) 00022b56 2f 12 |/ | MOVE.L (A2),-(A7) 00022b58 2f 2e ff d0 |/. | MOVE.L (A6-0x30),-(A7) 00022b5c 10 2e ff fc | . | MOVE.B (A6-0x4),D0 00022b60 48 80 |H | EXTB.W D0 00022b62 41 bc 00 02 |A | CHK.W #0x2,D0 00022b66 1f 00 | | MOVE.B D0,-(A7) 00022b68 48 6e ff ec |Hn | PEA.L (A6-0x14) 00022b6c 4e b9 00 01 03 b0 |N | JSR PushProgram(a : String; b : String; MOD c : B; VAR d : Bool) 00022b72 de fc 00 0e | | ADDA.W #0xe,A7 00022b76 4a 2e ff ed |J. | TST.B (A6-0x13) 00022b7a 67 20 |g | BEQ 0x22b9c 00022b7c 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00022b80 59 4f |YO | SUBQ.L #0x4,A7 00022b82 10 2e ff ec | . | MOVE.B (A6-0x14),D0 00022b86 48 80 |H | EXTB.W D0 00022b88 41 bc 00 0e |A | CHK.W #0xe,D0 00022b8c 1f 00 | | MOVE.B D0,-(A7) 00022b8e 4e b9 00 01 03 c0 |N | JSR ExpErrMsg(a: Byte) : String 00022b94 54 4f |TO | ADDQ.L #0x2,A7 00022b96 4e ba f9 4c |N L | JSR 0x224e4 00022b9a 50 4f |PO | ADDQ.L #0x8,A7 00022b9c 4a 2e ff ee |J. | TST.B (A6-0x12) 00022ba0 67 12 |g | BEQ 0x22bb4 00022ba2 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00022ba6 59 4f |YO | SUBQ.L #0x4,A7 00022ba8 4e b9 00 01 03 c8 |N | JSR FSCALL_103c8 00022bae 4e ba f9 34 |N 4 | JSR 0x224e4 00022bb2 50 4f |PO | ADDQ.L #0x8,A7 00022bb4 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00022bb8 4e 5e |N^ | UNLK A6 00022bba 4e 75 |Nu | RTS 00022bbc ; -------------------------------------------------------------------------------------- 00022bbc ; OMSI PASCAL Function 00022bbc ; <LVAR 0x008 4(r)> 00022bbc ; <LVAR -0x004 @ 4(rw)> 00022bbc ; <LVAR -0x008 @ 4(rw)> 00022bbc ; -------------------------------------------------------------------------------------- 00022bbc 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00022bc0 bf d5 | | CMPA.L (A5),A7 00022bc2 62 06 |b | BHI 0x22bca 00022bc4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022bc8 4e 76 |Nv | TRAPV 00022bca de fc 00 18 | | ADDA.W #0x18,A7 00022bce 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 00022bd2 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00022bd6 43 ee ff fc |C | LEA.L (A6-0x4),A1 00022bda 59 4f |YO | SUBQ.L #0x4,A7 00022bdc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022be0 48 78 00 01 |Hx | PEA.L 0x1 00022be4 4e ba f3 00 |N | JSR 0x21ee6 00022be8 50 4f |PO | ADDQ.L #0x8,A7 00022bea 20 97 | | MOVE.L (A7),(A0) 00022bec 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022bf0 48 78 00 02 |Hx | PEA.L 0x2 00022bf4 4e ba f2 f0 |N | JSR 0x21ee6 00022bf8 50 4f |PO | ADDQ.L #0x8,A7 00022bfa 22 97 |" | MOVE.L (A7),(A1) 00022bfc 54 4f |TO | ADDQ.L #0x2,A7 00022bfe 2f 10 |/ | MOVE.L (A0),-(A7) 00022c00 2f 11 |/ | MOVE.L (A1),-(A7) 00022c02 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00022c08 50 4f |PO | ADDQ.L #0x8,A7 00022c0a 4a 1f |J | TST.B (A7)+ 00022c0c 67 06 |g | BEQ 0x22c14 00022c0e 4e ba ed 96 |N | JSR 0x219a6 00022c12 60 04 |` | BRA 0x22c18 00022c14 4e ba ed d6 |N | JSR 0x219ec 00022c18 48 51 |HQ | PEA.L (A1) 00022c1a 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022c20 58 4f |XO | ADDQ.L #0x4,A7 00022c22 48 50 |HP | PEA.L (A0) 00022c24 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022c2a 58 4f |XO | ADDQ.L #0x4,A7 00022c2c 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 00022c30 4e 5e |N^ | UNLK A6 00022c32 4e 75 |Nu | RTS 00022c34 ; -------------------------------------------------------------------------------------- 00022c34 ; OMSI PASCAL Function 00022c34 ; <LVAR 0x008 4(r)> 00022c34 ; <LVAR -0x004 @ 4(rw)> 00022c34 ; <LVAR -0x008 @ 4(rw)> 00022c34 ; -------------------------------------------------------------------------------------- 00022c34 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00022c38 bf d5 | | CMPA.L (A5),A7 00022c3a 62 06 |b | BHI 0x22c42 00022c3c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022c40 4e 76 |Nv | TRAPV 00022c42 de fc 00 18 | | ADDA.W #0x18,A7 00022c46 48 e7 00 c0 |H | MOVEM.L A1+A0,-(A7) 00022c4a 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00022c4e 43 ee ff fc |C | LEA.L (A6-0x4),A1 00022c52 59 4f |YO | SUBQ.L #0x4,A7 00022c54 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022c58 48 78 00 01 |Hx | PEA.L 0x1 00022c5c 4e ba f2 88 |N | JSR 0x21ee6 00022c60 50 4f |PO | ADDQ.L #0x8,A7 00022c62 20 97 | | MOVE.L (A7),(A0) 00022c64 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022c68 48 78 00 02 |Hx | PEA.L 0x2 00022c6c 4e ba f2 78 |N x | JSR 0x21ee6 00022c70 50 4f |PO | ADDQ.L #0x8,A7 00022c72 22 97 |" | MOVE.L (A7),(A1) 00022c74 54 4f |TO | ADDQ.L #0x2,A7 00022c76 2f 10 |/ | MOVE.L (A0),-(A7) 00022c78 2f 11 |/ | MOVE.L (A1),-(A7) 00022c7a 4e b9 00 01 02 c8 |N | JSR StringEqual(a, b : String) : Byte 00022c80 50 4f |PO | ADDQ.L #0x8,A7 00022c82 4a 1f |J | TST.B (A7)+ 00022c84 66 06 |f | BNE 0x22c8c 00022c86 4e ba ed 1e |N | JSR 0x219a6 00022c8a 60 04 |` | BRA 0x22c90 00022c8c 4e ba ed 5e |N ^ | JSR 0x219ec 00022c90 48 51 |HQ | PEA.L (A1) 00022c92 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022c98 58 4f |XO | ADDQ.L #0x4,A7 00022c9a 48 50 |HP | PEA.L (A0) 00022c9c 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022ca2 58 4f |XO | ADDQ.L #0x4,A7 00022ca4 4c df 03 00 |L | MOVEM.L (A7)+,A0+A1 00022ca8 4e 5e |N^ | UNLK A6 00022caa 4e 75 |Nu | RTS 00022cac ; -------------------------------------------------------------------------------------- 00022cac ; OMSI PASCAL Function 00022cac ; <LVAR 0x008 4(r)> 00022cac ; -------------------------------------------------------------------------------------- 00022cac 4e 56 ff f0 |NV | LINK.W A6,#0xfff0 00022cb0 bf d5 | | CMPA.L (A5),A7 00022cb2 62 06 |b | BHI 0x22cba 00022cb4 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022cb8 4e 76 |Nv | TRAPV 00022cba de fc 00 10 | | ADDA.W #0x10,A7 00022cbe 59 4f |YO | SUBQ.L #0x4,A7 00022cc0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022cc4 48 78 00 01 |Hx | PEA.L 0x1 00022cc8 4e ba f2 1c |N | JSR 0x21ee6 00022ccc 50 4f |PO | ADDQ.L #0x8,A7 00022cce 4e ba f0 0e |N | JSR 0x21cde 00022cd2 58 4f |XO | ADDQ.L #0x4,A7 00022cd4 4e 5e |N^ | UNLK A6 00022cd6 4e 75 |Nu | RTS 00022cd8 ; -------------------------------------------------------------------------------------- 00022cd8 ; OMSI PASCAL Function 00022cd8 ; <LVAR 0x008 4(r)> 00022cd8 ; <LVAR -0x014 @ 4(rw)> 00022cd8 ; -------------------------------------------------------------------------------------- 00022cd8 4e 56 ff 90 |NV | LINK.W A6,#0xff90 00022cdc bf d5 | | CMPA.L (A5),A7 00022cde 62 06 |b | BHI 0x22ce6 00022ce0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ce4 4e 76 |Nv | TRAPV 00022ce6 de fc 00 5c | \ | ADDA.W #0x5c,A7 00022cea 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00022cee 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00022cf2 47 ee ff ec |G | LEA.L (A6-0x14),A3 00022cf6 74 7d |t} | MOVEQ.L #0x7d,D2 00022cf8 59 4f |YO | SUBQ.L #0x4,A7 00022cfa 2f 12 |/ | MOVE.L (A2),-(A7) 00022cfc 48 78 00 01 |Hx | PEA.L 0x1 00022d00 4e ba f1 e4 |N | JSR 0x21ee6 00022d04 50 4f |PO | ADDQ.L #0x8,A7 00022d06 26 97 |& | MOVE.L (A7),(A3) 00022d08 2f 12 |/ | MOVE.L (A2),-(A7) 00022d0a 48 78 00 02 |Hx | PEA.L 0x2 00022d0e 4e ba f1 d6 |N | JSR 0x21ee6 00022d12 50 4f |PO | ADDQ.L #0x8,A7 00022d14 28 5f |(_ | MOVEA.L (A7)+,A4 00022d16 9e fc 00 0c | | SUBA.W #0xc,A7 00022d1a 2f 12 |/ | MOVE.L (A2),-(A7) 00022d1c 48 78 00 03 |Hx | PEA.L 0x3 00022d20 4e ba f1 f6 |N | JSR 0x21f18 00022d24 50 4f |PO | ADDQ.L #0x8,A7 00022d26 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022d2c 50 4f |PO | ADDQ.L #0x8,A7 00022d2e 2c 17 |, | MOVE.L (A7),D6 00022d30 51 4f |QO | SUBQ.L #0x8,A7 00022d32 2f 12 |/ | MOVE.L (A2),-(A7) 00022d34 48 78 00 04 |Hx | PEA.L 0x4 00022d38 4e ba f1 de |N | JSR 0x21f18 00022d3c 50 4f |PO | ADDQ.L #0x8,A7 00022d3e 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022d44 50 4f |PO | ADDQ.L #0x8,A7 00022d46 2a 1f |* | MOVE.L (A7)+,D5 00022d48 20 06 | | MOVE.L D6,D0 00022d4a d0 85 | | ADD.L D5,D0 00022d4c 53 80 |S | SUBQ.L #0x1,D0 00022d4e 32 14 |2 | MOVE.W (A4),D1 00022d50 48 c1 |H | EXTW.L D1 00022d52 b0 81 | | CMP.L D1,D0 00022d54 6f 30 |o0 | BLE 0x22d86 00022d56 9e fc 00 20 | | SUBA.W #0x20,A7 00022d5a 20 4f | O | MOVEA.L A7,A0 00022d5c 43 fa e0 9a |C | LEA.L 0x20df8,A1 00022d60 70 1e |p | MOVEQ.L #0x1e,D0 00022d62 10 d9 | | MOVE.B (A1)+,(A0)+ 00022d64 51 c8 ff fc |Q | DBF D0,0x22d62 00022d68 59 4f |YO | SUBQ.L #0x4,A7 00022d6a 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00022d6e 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00022d72 3f 3c 00 1f |?< | MOVE.W #0x1f,-(A7) 00022d76 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00022d7c 50 4f |PO | ADDQ.L #0x8,A7 00022d7e 4e ba e4 3e |N > | JSR 0x211be 00022d82 de fc 00 24 | $ | ADDA.W #0x24,A7 00022d86 20 53 | S | MOVEA.L (A3),A0 00022d88 2f 08 |/ | MOVE.L A0,-(A7) 00022d8a 30 10 |0 | MOVE.W (A0),D0 00022d8c 48 c0 |H | EXTW.L D0 00022d8e 2f 00 |/ | MOVE.L D0,-(A7) 00022d90 7e 01 |~ | MOVEQ.L #0x01,D7 00022d92 be 97 | | CMP.L (A7),D7 00022d94 6e 26 |n& | BGT 0x22dbc 00022d96 20 06 | | MOVE.L D6,D0 00022d98 d0 87 | | ADD.L D7,D0 00022d9a 53 80 |S | SUBQ.L #0x1,D0 00022d9c 53 80 |S | SUBQ.L #0x1,D0 00022d9e b0 82 | | CMP.L D2,D0 00022da0 63 02 |c | BLS 0x22da4 00022da2 4e 4f |NO | TRAP #15 00022da4 22 07 |" | MOVE.L D7,D1 00022da6 53 81 |S | SUBQ.L #0x1,D1 00022da8 b2 82 | | CMP.L D2,D1 00022daa 63 02 |c | BLS 0x22dae 00022dac 4e 4f |NO | TRAP #15 00022dae 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 00022db2 19 b0 18 02 08 02 | | MOVE.B (A0+D1.L+#0x2),(A4+D0.L+#0x2) 00022db8 52 87 |R | ADDQ.L #0x1,D7 00022dba 68 d6 |h | BVC 0x22d92 00022dbc 58 4f |XO | ADDQ.L #0x4,A7 00022dbe 2e 8c |. | MOVE.L A4,(A7) 00022dc0 4e ba f1 c6 |N | JSR 0x21f88 00022dc4 58 4f |XO | ADDQ.L #0x4,A7 00022dc6 48 53 |HS | PEA.L (A3) 00022dc8 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022dce 58 4f |XO | ADDQ.L #0x4,A7 00022dd0 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00022dd4 4e 5e |N^ | UNLK A6 00022dd6 4e 75 |Nu | RTS 00022dd8 ; -------------------------------------------------------------------------------------- 00022dd8 ; OMSI PASCAL Function 00022dd8 ; <LVAR 0x008 4(r)> 00022dd8 ; <LVAR -0x010 @ 4(r)> 00022dd8 ; <LVAR -0x014 @ 4(rw)> 00022dd8 ; -------------------------------------------------------------------------------------- 00022dd8 4e 56 ff a8 |NV | LINK.W A6,#0xffa8 00022ddc bf d5 | | CMPA.L (A5),A7 00022dde 62 06 |b | BHI 0x22de6 00022de0 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022de4 4e 76 |Nv | TRAPV 00022de6 de fc 00 44 | D | ADDA.W #0x44,A7 00022dea 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00022dee 45 ee ff ec |E | LEA.L (A6-0x14),A2 00022df2 47 ee ff f0 |G | LEA.L (A6-0x10),A3 00022df6 49 ee 00 08 |I | LEA.L (A6+0x8),A4 00022dfa 74 7d |t} | MOVEQ.L #0x7d,D2 00022dfc 59 4f |YO | SUBQ.L #0x4,A7 00022dfe 2f 14 |/ | MOVE.L (A4),-(A7) 00022e00 48 78 00 01 |Hx | PEA.L 0x1 00022e04 4e ba f0 e0 |N | JSR 0x21ee6 00022e08 50 4f |PO | ADDQ.L #0x8,A7 00022e0a 24 9f |$ | MOVE.L (A7)+,(A2) 00022e0c 48 53 |HS | PEA.L (A3) 00022e0e 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00022e14 51 4f |QO | SUBQ.L #0x8,A7 00022e16 2f 14 |/ | MOVE.L (A4),-(A7) 00022e18 48 78 00 02 |Hx | PEA.L 0x2 00022e1c 4e ba f0 fa |N | JSR 0x21f18 00022e20 50 4f |PO | ADDQ.L #0x8,A7 00022e22 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022e28 50 4f |PO | ADDQ.L #0x8,A7 00022e2a 2a 17 |* | MOVE.L (A7),D5 00022e2c 51 4f |QO | SUBQ.L #0x8,A7 00022e2e 2f 14 |/ | MOVE.L (A4),-(A7) 00022e30 48 78 00 03 |Hx | PEA.L 0x3 00022e34 4e ba f0 e2 |N | JSR 0x21f18 00022e38 50 4f |PO | ADDQ.L #0x8,A7 00022e3a 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00022e40 50 4f |PO | ADDQ.L #0x8,A7 00022e42 2c 1f |, | MOVE.L (A7)+,D6 00022e44 20 52 | R | MOVEA.L (A2),A0 00022e46 20 05 | | MOVE.L D5,D0 00022e48 d0 86 | | ADD.L D6,D0 00022e4a 53 80 |S | SUBQ.L #0x1,D0 00022e4c 32 10 |2 | MOVE.W (A0),D1 00022e4e 48 c1 |H | EXTW.L D1 00022e50 b0 81 | | CMP.L D1,D0 00022e52 6f 06 |o | BLE 0x22e5a 00022e54 52 81 |R | ADDQ.L #0x1,D1 00022e56 92 85 | | SUB.L D5,D1 00022e58 2c 01 |, | MOVE.L D1,D6 00022e5a 2f 06 |/ | MOVE.L D6,-(A7) 00022e5c 7e 01 |~ | MOVEQ.L #0x01,D7 00022e5e be 97 | | CMP.L (A7),D7 00022e60 6e 26 |n& | BGT 0x22e88 00022e62 20 53 | S | MOVEA.L (A3),A0 00022e64 20 07 | | MOVE.L D7,D0 00022e66 53 80 |S | SUBQ.L #0x1,D0 00022e68 b0 82 | | CMP.L D2,D0 00022e6a 63 02 |c | BLS 0x22e6e 00022e6c 4e 4f |NO | TRAP #15 00022e6e 22 52 |"R | MOVEA.L (A2),A1 00022e70 22 07 |" | MOVE.L D7,D1 00022e72 d2 85 | | ADD.L D5,D1 00022e74 53 81 |S | SUBQ.L #0x1,D1 00022e76 53 81 |S | SUBQ.L #0x1,D1 00022e78 b2 82 | | CMP.L D2,D1 00022e7a 63 02 |c | BLS 0x22e7e 00022e7c 4e 4f |NO | TRAP #15 00022e7e 11 b1 18 02 08 02 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x2) 00022e84 52 87 |R | ADDQ.L #0x1,D7 00022e86 68 d6 |h | BVC 0x22e5e 00022e88 58 4f |XO | ADDQ.L #0x4,A7 00022e8a 20 53 | S | MOVEA.L (A3),A0 00022e8c 04 86 ff ff 80 00 | | SUBI.L #0xffff8000,D6 00022e92 0c 86 00 00 ff ff | | CMPI.L #0x0000ffff,D6 00022e98 63 02 |c | BLS 0x22e9c 00022e9a 4e 4f |NO | TRAP #15 00022e9c 06 86 ff ff 80 00 | | ADDI.L #0xffff8000,D6 00022ea2 30 86 |0 | MOVE.W D6,(A0) 00022ea4 2f 13 |/ | MOVE.L (A3),-(A7) 00022ea6 4e ba f0 e0 |N | JSR 0x21f88 00022eaa 58 4f |XO | ADDQ.L #0x4,A7 00022eac 48 52 |HR | PEA.L (A2) 00022eae 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00022eb4 58 4f |XO | ADDQ.L #0x4,A7 00022eb6 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00022eba 4e 5e |N^ | UNLK A6 00022ebc 4e 75 |Nu | RTS 00022ebe ; -------------------------------------------------------------------------------------- 00022ebe ; OMSI PASCAL Function 00022ebe ; <LVAR 0x008 4(r)> 00022ebe ; -------------------------------------------------------------------------------------- 00022ebe 4e 56 ff ec |NV | LINK.W A6,#0xffec 00022ec2 bf d5 | | CMPA.L (A5),A7 00022ec4 62 06 |b | BHI 0x22ecc 00022ec6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022eca 4e 76 |Nv | TRAPV 00022ecc de fc 00 14 | | ADDA.W #0x14,A7 00022ed0 51 4f |QO | SUBQ.L #0x8,A7 00022ed2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022ed6 48 78 00 01 |Hx | PEA.L 0x1 00022eda 4e ba f0 3c |N < | JSR 0x21f18 00022ede 50 4f |PO | ADDQ.L #0x8,A7 00022ee0 4e ba ee 70 |N p | JSR 0x21d52 00022ee4 50 4f |PO | ADDQ.L #0x8,A7 00022ee6 4e 5e |N^ | UNLK A6 00022ee8 4e 75 |Nu | RTS 00022eea ; -------------------------------------------------------------------------------------- 00022eea ; OMSI PASCAL Function 00022eea ; <LVAR 0x008 4(r)> 00022eea ; -------------------------------------------------------------------------------------- 00022eea 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00022eee bf d5 | | CMPA.L (A5),A7 00022ef0 62 06 |b | BHI 0x22ef8 00022ef2 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022ef6 4e 76 |Nv | TRAPV 00022ef8 de fc 00 1e | | ADDA.W #0x1e,A7 00022efc 9e fc 00 0a | | SUBA.W #0xa,A7 00022f00 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022f04 48 78 00 01 |Hx | PEA.L 0x1 00022f08 4e ba f0 0e |N | JSR 0x21f18 00022f0c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022f10 48 78 00 02 |Hx | PEA.L 0x2 00022f14 4e ba f0 02 |N | JSR 0x21f18 00022f18 50 4f |PO | ADDQ.L #0x8,A7 00022f1a 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 00022f20 de fc 00 10 | | ADDA.W #0x10,A7 00022f24 4a 1f |J | TST.B (A7)+ 00022f26 67 06 |g | BEQ 0x22f2e 00022f28 4e ba ea 7c |N | | JSR 0x219a6 00022f2c 60 04 |` | BRA 0x22f32 00022f2e 4e ba ea bc |N | JSR 0x219ec 00022f32 4e 5e |N^ | UNLK A6 00022f34 4e 75 |Nu | RTS 00022f36 ; -------------------------------------------------------------------------------------- 00022f36 ; OMSI PASCAL Function 00022f36 ; <LVAR 0x008 4(r)> 00022f36 ; -------------------------------------------------------------------------------------- 00022f36 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00022f3a bf d5 | | CMPA.L (A5),A7 00022f3c 62 06 |b | BHI 0x22f44 00022f3e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022f42 4e 76 |Nv | TRAPV 00022f44 de fc 00 1e | | ADDA.W #0x1e,A7 00022f48 9e fc 00 0a | | SUBA.W #0xa,A7 00022f4c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022f50 48 78 00 01 |Hx | PEA.L 0x1 00022f54 4e ba ef c2 |N | JSR 0x21f18 00022f58 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022f5c 48 78 00 02 |Hx | PEA.L 0x2 00022f60 4e ba ef b6 |N | JSR 0x21f18 00022f64 50 4f |PO | ADDQ.L #0x8,A7 00022f66 4e b9 00 01 03 2c |N , | JSR IsEqual(a, b : Quad) : Bool 00022f6c de fc 00 10 | | ADDA.W #0x10,A7 00022f70 4a 1f |J | TST.B (A7)+ 00022f72 66 06 |f | BNE 0x22f7a 00022f74 4e ba ea 30 |N 0 | JSR 0x219a6 00022f78 60 04 |` | BRA 0x22f7e 00022f7a 4e ba ea 70 |N p | JSR 0x219ec 00022f7e 4e 5e |N^ | UNLK A6 00022f80 4e 75 |Nu | RTS 00022f82 ; -------------------------------------------------------------------------------------- 00022f82 ; OMSI PASCAL Function 00022f82 ; <LVAR 0x008 4(r)> 00022f82 ; -------------------------------------------------------------------------------------- 00022f82 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00022f86 bf d5 | | CMPA.L (A5),A7 00022f88 62 06 |b | BHI 0x22f90 00022f8a 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022f8e 4e 76 |Nv | TRAPV 00022f90 de fc 00 1e | | ADDA.W #0x1e,A7 00022f94 9e fc 00 0a | | SUBA.W #0xa,A7 00022f98 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022f9c 48 78 00 01 |Hx | PEA.L 0x1 00022fa0 4e ba ef 76 |N v | JSR 0x21f18 00022fa4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022fa8 48 78 00 02 |Hx | PEA.L 0x2 00022fac 4e ba ef 6a |N j | JSR 0x21f18 00022fb0 50 4f |PO | ADDQ.L #0x8,A7 00022fb2 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 00022fb8 de fc 00 10 | | ADDA.W #0x10,A7 00022fbc 4a 1f |J | TST.B (A7)+ 00022fbe 67 06 |g | BEQ 0x22fc6 00022fc0 4e ba e9 e4 |N | JSR 0x219a6 00022fc4 60 04 |` | BRA 0x22fca 00022fc6 4e ba ea 24 |N $ | JSR 0x219ec 00022fca 4e 5e |N^ | UNLK A6 00022fcc 4e 75 |Nu | RTS 00022fce ; -------------------------------------------------------------------------------------- 00022fce ; OMSI PASCAL Function 00022fce ; <LVAR 0x008 4(r)> 00022fce ; -------------------------------------------------------------------------------------- 00022fce 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 00022fd2 bf d5 | | CMPA.L (A5),A7 00022fd4 62 06 |b | BHI 0x22fdc 00022fd6 44 fc 00 02 |D | MOVE.W #0x2,CCR 00022fda 4e 76 |Nv | TRAPV 00022fdc de fc 00 1e | | ADDA.W #0x1e,A7 00022fe0 9e fc 00 0a | | SUBA.W #0xa,A7 00022fe4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022fe8 48 78 00 01 |Hx | PEA.L 0x1 00022fec 4e ba ef 2a |N * | JSR 0x21f18 00022ff0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00022ff4 48 78 00 02 |Hx | PEA.L 0x2 00022ff8 4e ba ef 1e |N | JSR 0x21f18 00022ffc 50 4f |PO | ADDQ.L #0x8,A7 00022ffe 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 00023004 de fc 00 10 | | ADDA.W #0x10,A7 00023008 4a 1f |J | TST.B (A7)+ 0002300a 67 06 |g | BEQ 0x23012 0002300c 4e ba e9 98 |N | JSR 0x219a6 00023010 60 04 |` | BRA 0x23016 00023012 4e ba e9 d8 |N | JSR 0x219ec 00023016 4e 5e |N^ | UNLK A6 00023018 4e 75 |Nu | RTS 0002301a ; -------------------------------------------------------------------------------------- 0002301a ; OMSI PASCAL Function 0002301a ; <LVAR 0x008 4(r)> 0002301a ; -------------------------------------------------------------------------------------- 0002301a 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 0002301e bf d5 | | CMPA.L (A5),A7 00023020 62 06 |b | BHI 0x23028 00023022 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023026 4e 76 |Nv | TRAPV 00023028 de fc 00 1e | | ADDA.W #0x1e,A7 0002302c 9e fc 00 0a | | SUBA.W #0xa,A7 00023030 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023034 48 78 00 01 |Hx | PEA.L 0x1 00023038 4e ba ee de |N | JSR 0x21f18 0002303c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023040 48 78 00 02 |Hx | PEA.L 0x2 00023044 4e ba ee d2 |N | JSR 0x21f18 00023048 50 4f |PO | ADDQ.L #0x8,A7 0002304a 4e b9 00 01 03 24 |N $ | JSR IsGreater(a, b : Quad) : Bool 00023050 de fc 00 10 | | ADDA.W #0x10,A7 00023054 4a 1f |J | TST.B (A7)+ 00023056 66 06 |f | BNE 0x2305e 00023058 4e ba e9 4c |N L | JSR 0x219a6 0002305c 60 04 |` | BRA 0x23062 0002305e 4e ba e9 8c |N | JSR 0x219ec 00023062 4e 5e |N^ | UNLK A6 00023064 4e 75 |Nu | RTS 00023066 ; -------------------------------------------------------------------------------------- 00023066 ; OMSI PASCAL Function 00023066 ; <LVAR 0x008 4(r)> 00023066 ; -------------------------------------------------------------------------------------- 00023066 4e 56 ff e2 |NV | LINK.W A6,#0xffe2 0002306a bf d5 | | CMPA.L (A5),A7 0002306c 62 06 |b | BHI 0x23074 0002306e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023072 4e 76 |Nv | TRAPV 00023074 de fc 00 1e | | ADDA.W #0x1e,A7 00023078 9e fc 00 0a | | SUBA.W #0xa,A7 0002307c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023080 48 78 00 01 |Hx | PEA.L 0x1 00023084 4e ba ee 92 |N | JSR 0x21f18 00023088 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002308c 48 78 00 02 |Hx | PEA.L 0x2 00023090 4e ba ee 86 |N | JSR 0x21f18 00023094 50 4f |PO | ADDQ.L #0x8,A7 00023096 4e b9 00 01 03 28 |N ( | JSR IsSmaller(a, b : Quad) : Bool 0002309c de fc 00 10 | | ADDA.W #0x10,A7 000230a0 4a 1f |J | TST.B (A7)+ 000230a2 66 06 |f | BNE 0x230aa 000230a4 4e ba e9 00 |N | JSR 0x219a6 000230a8 60 04 |` | BRA 0x230ae 000230aa 4e ba e9 40 |N @ | JSR 0x219ec 000230ae 4e 5e |N^ | UNLK A6 000230b0 4e 75 |Nu | RTS 000230b2 ; -------------------------------------------------------------------------------------- 000230b2 ; OMSI PASCAL Function 000230b2 ; <LVAR 0x008 4(r)> 000230b2 ; -------------------------------------------------------------------------------------- 000230b2 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000230b6 bf d5 | | CMPA.L (A5),A7 000230b8 62 06 |b | BHI 0x230c0 000230ba 44 fc 00 02 |D | MOVE.W #0x2,CCR 000230be 4e 76 |Nv | TRAPV 000230c0 de fc 00 28 | ( | ADDA.W #0x28,A7 000230c4 48 e7 80 00 |H | MOVEM.L D0,-(A7) 000230c8 70 10 |p | MOVEQ.L #0x10,D0 000230ca 9e c0 | | SUBA.W D0,A7 000230cc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000230d0 48 78 00 01 |Hx | PEA.L 0x1 000230d4 4e ba ee 42 |N B | JSR 0x21f18 000230d8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000230dc 48 78 00 02 |Hx | PEA.L 0x2 000230e0 4e ba ee 36 |N 6 | JSR 0x21f18 000230e4 50 4f |PO | ADDQ.L #0x8,A7 000230e6 4e b9 00 01 03 14 |N | JSR Add(a, b : Quad) : Quad 000230ec de c0 | | ADDA.W D0,A7 000230ee 4e ba ef 20 |N | JSR 0x22010 000230f2 50 4f |PO | ADDQ.L #0x8,A7 000230f4 4c df 00 01 |L | MOVEM.L (A7)+,D0 000230f8 4e 5e |N^ | UNLK A6 000230fa 4e 75 |Nu | RTS 000230fc ; -------------------------------------------------------------------------------------- 000230fc ; OMSI PASCAL Function 000230fc ; <LVAR 0x008 4(r)> 000230fc ; -------------------------------------------------------------------------------------- 000230fc 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023100 bf d5 | | CMPA.L (A5),A7 00023102 62 06 |b | BHI 0x2310a 00023104 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023108 4e 76 |Nv | TRAPV 0002310a de fc 00 28 | ( | ADDA.W #0x28,A7 0002310e 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023112 70 10 |p | MOVEQ.L #0x10,D0 00023114 9e c0 | | SUBA.W D0,A7 00023116 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002311a 48 78 00 01 |Hx | PEA.L 0x1 0002311e 4e ba ed f8 |N | JSR 0x21f18 00023122 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023126 48 78 00 02 |Hx | PEA.L 0x2 0002312a 4e ba ed ec |N | JSR 0x21f18 0002312e 50 4f |PO | ADDQ.L #0x8,A7 00023130 4e b9 00 01 03 18 |N | JSR Subtract(a, b : Quad) : Quad 00023136 de c0 | | ADDA.W D0,A7 00023138 4e ba ee d6 |N | JSR 0x22010 0002313c 50 4f |PO | ADDQ.L #0x8,A7 0002313e 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023142 4e 5e |N^ | UNLK A6 00023144 4e 75 |Nu | RTS 00023146 ; -------------------------------------------------------------------------------------- 00023146 ; OMSI PASCAL Function 00023146 ; <LVAR 0x008 4(r)> 00023146 ; -------------------------------------------------------------------------------------- 00023146 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 0002314a bf d5 | | CMPA.L (A5),A7 0002314c 62 06 |b | BHI 0x23154 0002314e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023152 4e 76 |Nv | TRAPV 00023154 de fc 00 28 | ( | ADDA.W #0x28,A7 00023158 48 e7 80 00 |H | MOVEM.L D0,-(A7) 0002315c 70 10 |p | MOVEQ.L #0x10,D0 0002315e 9e c0 | | SUBA.W D0,A7 00023160 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023164 48 78 00 01 |Hx | PEA.L 0x1 00023168 4e ba ed ae |N | JSR 0x21f18 0002316c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023170 48 78 00 02 |Hx | PEA.L 0x2 00023174 4e ba ed a2 |N | JSR 0x21f18 00023178 50 4f |PO | ADDQ.L #0x8,A7 0002317a 4e b9 00 01 03 1c |N | JSR Multiply(a, b : Quad) : Quad 00023180 de c0 | | ADDA.W D0,A7 00023182 4e ba ee 8c |N | JSR 0x22010 00023186 50 4f |PO | ADDQ.L #0x8,A7 00023188 4c df 00 01 |L | MOVEM.L (A7)+,D0 0002318c 4e 5e |N^ | UNLK A6 0002318e 4e 75 |Nu | RTS 00023190 ; -------------------------------------------------------------------------------------- 00023190 ; OMSI PASCAL Function 00023190 ; <LVAR 0x008 4(r)> 00023190 ; -------------------------------------------------------------------------------------- 00023190 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023194 bf d5 | | CMPA.L (A5),A7 00023196 62 06 |b | BHI 0x2319e 00023198 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002319c 4e 76 |Nv | TRAPV 0002319e de fc 00 28 | ( | ADDA.W #0x28,A7 000231a2 48 e7 80 00 |H | MOVEM.L D0,-(A7) 000231a6 70 10 |p | MOVEQ.L #0x10,D0 000231a8 9e c0 | | SUBA.W D0,A7 000231aa 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000231ae 48 78 00 01 |Hx | PEA.L 0x1 000231b2 4e ba ed 64 |N d | JSR 0x21f18 000231b6 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000231ba 48 78 00 02 |Hx | PEA.L 0x2 000231be 4e ba ed 58 |N X | JSR 0x21f18 000231c2 50 4f |PO | ADDQ.L #0x8,A7 000231c4 4e b9 00 01 03 20 |N | JSR Divide(a, b : Quad) : Quad 000231ca de c0 | | ADDA.W D0,A7 000231cc 4e ba ee 42 |N B | JSR 0x22010 000231d0 50 4f |PO | ADDQ.L #0x8,A7 000231d2 4c df 00 01 |L | MOVEM.L (A7)+,D0 000231d6 4e 5e |N^ | UNLK A6 000231d8 4e 75 |Nu | RTS 000231da ; -------------------------------------------------------------------------------------- 000231da ; OMSI PASCAL Function 000231da ; <LVAR 0x008 4(r)> 000231da ; -------------------------------------------------------------------------------------- 000231da 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000231de bf d5 | | CMPA.L (A5),A7 000231e0 62 06 |b | BHI 0x231e8 000231e2 44 fc 00 02 |D | MOVE.W #0x2,CCR 000231e6 4e 76 |Nv | TRAPV 000231e8 de fc 00 28 | ( | ADDA.W #0x28,A7 000231ec 48 e7 80 00 |H | MOVEM.L D0,-(A7) 000231f0 70 10 |p | MOVEQ.L #0x10,D0 000231f2 9e c0 | | SUBA.W D0,A7 000231f4 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000231f8 48 78 00 01 |Hx | PEA.L 0x1 000231fc 4e ba ed 1a |N | JSR 0x21f18 00023200 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023204 48 78 00 02 |Hx | PEA.L 0x2 00023208 4e ba ed 0e |N | JSR 0x21f18 0002320c 50 4f |PO | ADDQ.L #0x8,A7 0002320e 4e b9 00 01 03 58 |N X | JSR Modulus(a, b : Quad) : Quad 00023214 de c0 | | ADDA.W D0,A7 00023216 4e ba ed f8 |N | JSR 0x22010 0002321a 50 4f |PO | ADDQ.L #0x8,A7 0002321c 4c df 00 01 |L | MOVEM.L (A7)+,D0 00023220 4e 5e |N^ | UNLK A6 00023222 4e 75 |Nu | RTS 00023224 ; -------------------------------------------------------------------------------------- 00023224 ; OMSI PASCAL Function 00023224 ; <LVAR 0x008 4(r)> 00023224 ; -------------------------------------------------------------------------------------- 00023224 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023228 bf d5 | | CMPA.L (A5),A7 0002322a 62 06 |b | BHI 0x23232 0002322c 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023230 4e 76 |Nv | TRAPV 00023232 de fc 00 28 | ( | ADDA.W #0x28,A7 00023236 48 e7 80 00 |H | MOVEM.L D0,-(A7) 0002323a 70 10 |p | MOVEQ.L #0x10,D0 0002323c 9e c0 | | SUBA.W D0,A7 0002323e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023242 48 78 00 01 |Hx | PEA.L 0x1 00023246 4e ba ec d0 |N | JSR 0x21f18 0002324a 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002324e 48 78 00 02 |Hx | PEA.L 0x2 00023252 4e ba ec c4 |N | JSR 0x21f18 00023256 50 4f |PO | ADDQ.L #0x8,A7 00023258 4e b9 00 01 03 34 |N 4 | JSR BitOr(a, b : Quad) : Quad 0002325e de c0 | | ADDA.W D0,A7 00023260 4e ba ed ae |N | JSR 0x22010 00023264 50 4f |PO | ADDQ.L #0x8,A7 00023266 4c df 00 01 |L | MOVEM.L (A7)+,D0 0002326a 4e 5e |N^ | UNLK A6 0002326c 4e 75 |Nu | RTS 0002326e ; -------------------------------------------------------------------------------------- 0002326e ; OMSI PASCAL Function 0002326e ; <LVAR 0x008 4(r)> 0002326e ; -------------------------------------------------------------------------------------- 0002326e 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 00023272 bf d5 | | CMPA.L (A5),A7 00023274 62 06 |b | BHI 0x2327c 00023276 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002327a 4e 76 |Nv | TRAPV 0002327c de fc 00 28 | ( | ADDA.W #0x28,A7 00023280 48 e7 80 00 |H | MOVEM.L D0,-(A7) 00023284 70 10 |p | MOVEQ.L #0x10,D0 00023286 9e c0 | | SUBA.W D0,A7 00023288 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002328c 48 78 00 01 |Hx | PEA.L 0x1 00023290 4e ba ec 86 |N | JSR 0x21f18 00023294 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023298 48 78 00 02 |Hx | PEA.L 0x2 0002329c 4e ba ec 7a |N z | JSR 0x21f18 000232a0 50 4f |PO | ADDQ.L #0x8,A7 000232a2 4e b9 00 01 03 30 |N 0 | JSR BitAnd(a, b : Quad) : Quad 000232a8 de c0 | | ADDA.W D0,A7 000232aa 4e ba ed 64 |N d | JSR 0x22010 000232ae 50 4f |PO | ADDQ.L #0x8,A7 000232b0 4c df 00 01 |L | MOVEM.L (A7)+,D0 000232b4 4e 5e |N^ | UNLK A6 000232b6 4e 75 |Nu | RTS 000232b8 ; -------------------------------------------------------------------------------------- 000232b8 ; OMSI PASCAL Function 000232b8 ; <LVAR 0x008 4(r)> 000232b8 ; -------------------------------------------------------------------------------------- 000232b8 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000232bc bf d5 | | CMPA.L (A5),A7 000232be 62 06 |b | BHI 0x232c6 000232c0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000232c4 4e 76 |Nv | TRAPV 000232c6 de fc 00 28 | ( | ADDA.W #0x28,A7 000232ca 48 e7 80 00 |H | MOVEM.L D0,-(A7) 000232ce 70 10 |p | MOVEQ.L #0x10,D0 000232d0 9e c0 | | SUBA.W D0,A7 000232d2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000232d6 48 78 00 01 |Hx | PEA.L 0x1 000232da 4e ba ec 3c |N < | JSR 0x21f18 000232de 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000232e2 48 78 00 02 |Hx | PEA.L 0x2 000232e6 4e ba ec 30 |N 0 | JSR 0x21f18 000232ea 50 4f |PO | ADDQ.L #0x8,A7 000232ec 4e b9 00 01 03 40 |N @ | JSR BitXor(a, b : Quad) : Quad 000232f2 de c0 | | ADDA.W D0,A7 000232f4 4e ba ed 1a |N | JSR 0x22010 000232f8 50 4f |PO | ADDQ.L #0x8,A7 000232fa 4c df 00 01 |L | MOVEM.L (A7)+,D0 000232fe 4e 5e |N^ | UNLK A6 00023300 4e 75 |Nu | RTS 00023302 ; -------------------------------------------------------------------------------------- 00023302 ; OMSI PASCAL Function 00023302 ; <LVAR 0x008 4(r)> 00023302 ; -------------------------------------------------------------------------------------- 00023302 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 00023306 bf d5 | | CMPA.L (A5),A7 00023308 62 06 |b | BHI 0x23310 0002330a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002330e 4e 76 |Nv | TRAPV 00023310 de fc 00 20 | | ADDA.W #0x20,A7 00023314 9e fc 00 10 | | SUBA.W #0x10,A7 00023318 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 0002331c 48 78 00 01 |Hx | PEA.L 0x1 00023320 4e ba eb f6 |N | JSR 0x21f18 00023324 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 00023328 48 78 00 02 |Hx | PEA.L 0x2 0002332c 4e ba ec 26 |N & | JSR 0x21f54 00023330 50 4f |PO | ADDQ.L #0x8,A7 00023332 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 00023338 de fc 00 0c | | ADDA.W #0xc,A7 0002333c 4e ba ec d2 |N | JSR 0x22010 00023340 50 4f |PO | ADDQ.L #0x8,A7 00023342 4e 5e |N^ | UNLK A6 00023344 4e 75 |Nu | RTS 00023346 ; -------------------------------------------------------------------------------------- 00023346 ; OMSI PASCAL Function 00023346 ; <LVAR 0x008 4(r)> 00023346 ; -------------------------------------------------------------------------------------- 00023346 4e 56 ff e0 |NV | LINK.W A6,#0xffe0 0002334a bf d5 | | CMPA.L (A5),A7 0002334c 62 06 |b | BHI 0x23354 0002334e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023352 4e 76 |Nv | TRAPV 00023354 de fc 00 20 | | ADDA.W #0x20,A7 00023358 9e fc 00 10 | | SUBA.W #0x10,A7 0002335c 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023360 48 78 00 01 |Hx | PEA.L 0x1 00023364 4e ba eb b2 |N | JSR 0x21f18 00023368 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 0002336c 48 78 00 02 |Hx | PEA.L 0x2 00023370 4e ba eb e2 |N | JSR 0x21f54 00023374 50 4f |PO | ADDQ.L #0x8,A7 00023376 44 97 |D | NEG.L (A7) 00023378 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 0002337e de fc 00 0c | | ADDA.W #0xc,A7 00023382 4e ba ec 8c |N | JSR 0x22010 00023386 50 4f |PO | ADDQ.L #0x8,A7 00023388 4e 5e |N^ | UNLK A6 0002338a 4e 75 |Nu | RTS 0002338c ; -------------------------------------------------------------------------------------- 0002338c ; OMSI PASCAL Function 0002338c ; <LVAR 0x008 4(r)> 0002338c ; -------------------------------------------------------------------------------------- 0002338c 4e 56 ff e4 |NV | LINK.W A6,#0xffe4 00023390 bf d5 | | CMPA.L (A5),A7 00023392 62 06 |b | BHI 0x2339a 00023394 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023398 4e 76 |Nv | TRAPV 0002339a de fc 00 1c | | ADDA.W #0x1c,A7 0002339e 9e fc 00 10 | | SUBA.W #0x10,A7 000233a2 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000233a6 48 78 00 01 |Hx | PEA.L 0x1 000233aa 4e ba eb 6c |N l | JSR 0x21f18 000233ae 50 4f |PO | ADDQ.L #0x8,A7 000233b0 4e b9 00 01 03 38 |N 8 | JSR BitNot(a : Quad) : Quad 000233b6 50 4f |PO | ADDQ.L #0x8,A7 000233b8 4e ba ec 56 |N V | JSR 0x22010 000233bc 50 4f |PO | ADDQ.L #0x8,A7 000233be 4e 5e |N^ | UNLK A6 000233c0 4e 75 |Nu | RTS 000233c2 ; -------------------------------------------------------------------------------------- 000233c2 ; OMSI PASCAL Function 000233c2 ; <LVAR 0x008 4(r)> 000233c2 ; <LVAR -0x00c 4(rw)> 000233c2 ; <LVAR -0x010 4(rw)> 000233c2 ; <LVAR -0x014 4(rw)> 000233c2 ; <LVAR -0x018 4(rw)> 000233c2 ; -------------------------------------------------------------------------------------- 000233c2 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 000233c6 bf d5 | | CMPA.L (A5),A7 000233c8 62 06 |b | BHI 0x233d0 000233ca 44 fc 00 02 |D | MOVE.W #0x2,CCR 000233ce 4e 76 |Nv | TRAPV 000233d0 de fc 00 30 | 0 | ADDA.W #0x30,A7 000233d4 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 000233d8 41 ee 00 08 |A | LEA.L (A6+0x8),A0 000233dc 51 4f |QO | SUBQ.L #0x8,A7 000233de 2f 10 |/ | MOVE.L (A0),-(A7) 000233e0 48 78 00 01 |Hx | PEA.L 0x1 000233e4 4e ba eb 32 |N 2 | JSR 0x21f18 000233e8 50 4f |PO | ADDQ.L #0x8,A7 000233ea 2d 5f ff e8 |-_ | MOVE.L (A7)+,(A6-0x18) 000233ee 2d 57 ff ec |-W | MOVE.L (A7),(A6-0x14) 000233f2 59 4f |YO | SUBQ.L #0x4,A7 000233f4 2f 10 |/ | MOVE.L (A0),-(A7) 000233f6 48 78 00 02 |Hx | PEA.L 0x2 000233fa 4e ba eb 1c |N | JSR 0x21f18 000233fe 50 4f |PO | ADDQ.L #0x8,A7 00023400 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 00023404 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 00023408 2f 10 |/ | MOVE.L (A0),-(A7) 0002340a 48 78 00 03 |Hx | PEA.L 0x3 0002340e 4e ba eb 44 |N D | JSR 0x21f54 00023412 50 4f |PO | ADDQ.L #0x8,A7 00023414 2e 17 |. | MOVE.L (A7),D7 00023416 2f 10 |/ | MOVE.L (A0),-(A7) 00023418 48 78 00 04 |Hx | PEA.L 0x4 0002341c 4e ba eb 36 |N 6 | JSR 0x21f54 00023420 50 4f |PO | ADDQ.L #0x8,A7 00023422 2c 17 |, | MOVE.L (A7),D6 00023424 59 4f |YO | SUBQ.L #0x4,A7 00023426 2f 2e ff ec |/. | MOVE.L (A6-0x14),-(A7) 0002342a 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 0002342e 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 00023432 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00023436 2f 07 |/ | MOVE.L D7,-(A7) 00023438 2f 06 |/ | MOVE.L D6,-(A7) 0002343a 4e b9 00 01 03 48 |N H | JSR ?BitField_something_() 00023440 de fc 00 18 | | ADDA.W #0x18,A7 00023444 4e ba eb ca |N | JSR 0x22010 00023448 50 4f |PO | ADDQ.L #0x8,A7 0002344a 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 0002344e 4e 5e |N^ | UNLK A6 00023450 4e 75 |Nu | RTS 00023452 ; -------------------------------------------------------------------------------------- 00023452 ; OMSI PASCAL Function 00023452 ; <LVAR 0x008 4(r)> 00023452 ; <LVAR -0x00c 4(rw)> 00023452 ; <LVAR -0x010 4(rw)> 00023452 ; -------------------------------------------------------------------------------------- 00023452 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 00023456 bf d5 | | CMPA.L (A5),A7 00023458 62 06 |b | BHI 0x23460 0002345a 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002345e 4e 76 |Nv | TRAPV 00023460 de fc 00 28 | ( | ADDA.W #0x28,A7 00023464 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 00023468 41 ee 00 08 |A | LEA.L (A6+0x8),A0 0002346c 51 4f |QO | SUBQ.L #0x8,A7 0002346e 2f 10 |/ | MOVE.L (A0),-(A7) 00023470 48 78 00 01 |Hx | PEA.L 0x1 00023474 4e ba ea a2 |N | JSR 0x21f18 00023478 50 4f |PO | ADDQ.L #0x8,A7 0002347a 2d 5f ff f0 |-_ | MOVE.L (A7)+,(A6-0x10) 0002347e 2d 57 ff f4 |-W | MOVE.L (A7),(A6-0xc) 00023482 2f 10 |/ | MOVE.L (A0),-(A7) 00023484 48 78 00 02 |Hx | PEA.L 0x2 00023488 4e ba ea ca |N | JSR 0x21f54 0002348c 50 4f |PO | ADDQ.L #0x8,A7 0002348e 2e 17 |. | MOVE.L (A7),D7 00023490 2f 10 |/ | MOVE.L (A0),-(A7) 00023492 48 78 00 03 |Hx | PEA.L 0x3 00023496 4e ba ea bc |N | JSR 0x21f54 0002349a 50 4f |PO | ADDQ.L #0x8,A7 0002349c 2c 17 |, | MOVE.L (A7),D6 0002349e 59 4f |YO | SUBQ.L #0x4,A7 000234a0 2f 2e ff f4 |/. | MOVE.L (A6-0xc),-(A7) 000234a4 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 000234a8 2f 07 |/ | MOVE.L D7,-(A7) 000234aa 2f 06 |/ | MOVE.L D6,-(A7) 000234ac 4e b9 00 01 03 4c |N L | JSR FSCALL_1034c 000234b2 de fc 00 10 | | ADDA.W #0x10,A7 000234b6 4e ba eb 58 |N X | JSR 0x22010 000234ba 50 4f |PO | ADDQ.L #0x8,A7 000234bc 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 000234c0 4e 5e |N^ | UNLK A6 000234c2 4e 75 |Nu | RTS 000234c4 ; -------------------------------------------------------------------------------------- 000234c4 ; OMSI PASCAL Function 000234c4 ; <LVAR 0x008 4(r)> 000234c4 ; -------------------------------------------------------------------------------------- 000234c4 4e 56 ff d8 |NV | LINK.W A6,#0xffd8 000234c8 bf d5 | | CMPA.L (A5),A7 000234ca 62 06 |b | BHI 0x234d2 000234cc 44 fc 00 02 |D | MOVE.W #0x2,CCR 000234d0 4e 76 |Nv | TRAPV 000234d2 de fc 00 20 | | ADDA.W #0x20,A7 000234d6 48 e7 01 08 |H | MOVEM.L A4+D7,-(A7) 000234da 59 4f |YO | SUBQ.L #0x4,A7 000234dc 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000234e0 4e ba e0 e8 |N | JSR 0x215ca 000234e4 58 4f |XO | ADDQ.L #0x4,A7 000234e6 7e 01 |~ | MOVEQ.L #0x01,D7 000234e8 be 97 | | CMP.L (A7),D7 000234ea 6e 26 |n& | BGT 0x23512 000234ec 59 4f |YO | SUBQ.L #0x4,A7 000234ee 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000234f2 2f 07 |/ | MOVE.L D7,-(A7) 000234f4 4e ba e9 f0 |N | JSR 0x21ee6 000234f8 50 4f |PO | ADDQ.L #0x8,A7 000234fa 4e b9 00 01 03 d8 |N | JSR WriteConsoleString(str : String) 00023500 54 4f |TO | ADDQ.L #0x2,A7 00023502 1e bc 00 20 | | MOVE.B #0x20,(A7) 00023506 4e b9 00 01 03 d0 |N | JSR WriteConsoleChar(chr : char) 0002350c 54 4f |TO | ADDQ.L #0x2,A7 0002350e 52 87 |R | ADDQ.L #0x1,D7 00023510 68 d6 |h | BVC 0x234e8 00023512 48 78 00 01 |Hx | PEA.L 0x1 00023516 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 0002351c 58 4f |XO | ADDQ.L #0x4,A7 0002351e 28 5f |(_ | MOVEA.L (A7)+,A4 00023520 2f 0c |/ | MOVE.L A4,-(A7) 00023522 4e ba de f2 |N | JSR 0x21416 00023526 2e 8c |. | MOVE.L A4,(A7) 00023528 4e ba ea 5e |N ^ | JSR 0x21f88 0002352c 58 4f |XO | ADDQ.L #0x4,A7 0002352e 4c df 10 80 |L | MOVEM.L (A7)+,D7+A4 00023532 4e 5e |N^ | UNLK A6 00023534 4e 75 |Nu | RTS 00023536 ; -------------------------------------------------------------------------------------- 00023536 ; OMSI PASCAL Function 00023536 ; <LVAR 0x008 4(r)> 00023536 ; -------------------------------------------------------------------------------------- 00023536 4e 56 ff c8 |NV | LINK.W A6,#0xffc8 0002353a bf d5 | | CMPA.L (A5),A7 0002353c 62 06 |b | BHI 0x23544 0002353e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023542 4e 76 |Nv | TRAPV 00023544 de fc 00 2c | , | ADDA.W #0x2c,A7 00023548 48 e7 83 88 |H | MOVEM.L A4+A0+D7+D6+D0,-(A7) 0002354c 41 ee 00 08 |A | LEA.L (A6+0x8),A0 00023550 70 0c |p | MOVEQ.L #0x0c,D0 00023552 59 4f |YO | SUBQ.L #0x4,A7 00023554 2f 10 |/ | MOVE.L (A0),-(A7) 00023556 48 78 00 01 |Hx | PEA.L 0x1 0002355a 4e ba e9 8a |N | JSR 0x21ee6 0002355e 50 4f |PO | ADDQ.L #0x8,A7 00023560 28 5f |(_ | MOVEA.L (A7)+,A4 00023562 9e c0 | | SUBA.W D0,A7 00023564 2f 10 |/ | MOVE.L (A0),-(A7) 00023566 48 78 00 02 |Hx | PEA.L 0x2 0002356a 4e ba e9 ac |N | JSR 0x21f18 0002356e 50 4f |PO | ADDQ.L #0x8,A7 00023570 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 00023576 50 4f |PO | ADDQ.L #0x8,A7 00023578 2e 17 |. | MOVE.L (A7),D7 0002357a 51 4f |QO | SUBQ.L #0x8,A7 0002357c 2f 10 |/ | MOVE.L (A0),-(A7) 0002357e 48 78 00 03 |Hx | PEA.L 0x3 00023582 4e ba e9 94 |N | JSR 0x21f18 00023586 50 4f |PO | ADDQ.L #0x8,A7 00023588 4e b9 00 01 03 50 |N P | JSR Quad2Long(a : Quad) : Long 0002358e 50 4f |PO | ADDQ.L #0x8,A7 00023590 2c 17 |, | MOVE.L (A7),D6 00023592 51 4f |QO | SUBQ.L #0x8,A7 00023594 2f 0c |/ | MOVE.L A4,-(A7) 00023596 2f 07 |/ | MOVE.L D7,-(A7) 00023598 4e b9 00 01 03 60 |N ` | JSR ?StringToInt64() 0002359e 58 4f |XO | ADDQ.L #0x4,A7 000235a0 2e 86 |. | MOVE.L D6,(A7) 000235a2 4e b9 00 01 03 5c |N \ | JSR Quad2String(a : Quad; radix : Long ) : String 000235a8 de c0 | | ADDA.W D0,A7 000235aa 4e ba e9 dc |N | JSR 0x21f88 000235ae 58 4f |XO | ADDQ.L #0x4,A7 000235b0 4c df 11 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A4 000235b4 4e 5e |N^ | UNLK A6 000235b6 4e 75 |Nu | RTS 000235b8 ; -------------------------------------------------------------------------------------- 000235b8 ; OMSI PASCAL Function 000235b8 ; <LVAR 0x008 4(r)> 000235b8 ; <LVAR -0x00a 2(r)> 000235b8 ; <LVAR -0x00c 4(rw)> 000235b8 ; <LVAR -0x010 4(rw)> 000235b8 ; -------------------------------------------------------------------------------------- 000235b8 4e 56 ff bc |NV | LINK.W A6,#0xffbc 000235bc bf d5 | | CMPA.L (A5),A7 000235be 62 06 |b | BHI 0x235c6 000235c0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000235c4 4e 76 |Nv | TRAPV 000235c6 de fc 00 34 | 4 | ADDA.W #0x34,A7 000235ca 48 e7 c3 c0 |H | MOVEM.L A1+A0+D7+D6+D1+D0,-(A7) 000235ce 41 ee ff f0 |A | LEA.L (A6-0x10),A0 000235d2 43 ee ff f4 |C | LEA.L (A6-0xc),A1 000235d6 51 4f |QO | SUBQ.L #0x8,A7 000235d8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000235dc 48 78 00 01 |Hx | PEA.L 0x1 000235e0 4e ba e9 36 |N 6 | JSR 0x21f18 000235e4 50 4f |PO | ADDQ.L #0x8,A7 000235e6 20 9f | | MOVE.L (A7)+,(A0) 000235e8 22 9f |" | MOVE.L (A7)+,(A1) 000235ea 7e 00 |~ | MOVEQ.L #0x00,D7 000235ec 7c 00 || | MOVEQ.L #0x00,D6 000235ee 30 2e ff f6 |0. | MOVE.W (A6-0xa),D0 000235f2 02 40 00 01 | @ | ANDI.W #0x0001,D0 000235f6 42 81 |B | CLR.L D1 000235f8 32 00 |2 | MOVE.W D0,D1 000235fa de 81 | | ADD.L D1,D7 000235fc 51 4f |QO | SUBQ.L #0x8,A7 000235fe 2f 11 |/ | MOVE.L (A1),-(A7) 00023600 2f 10 |/ | MOVE.L (A0),-(A7) 00023602 48 78 ff ff |Hx | PEA.L 0xffffffff 00023606 4e b9 00 01 03 44 |N D | JSR BitShift(a : Quad ; howmuch : integer) : Quad 0002360c de fc 00 0c | | ADDA.W #0xc,A7 00023610 20 9f | | MOVE.L (A7)+,(A0) 00023612 22 9f |" | MOVE.L (A7)+,(A1) 00023614 52 86 |R | ADDQ.L #0x1,D6 00023616 0c 86 00 00 00 3f | ? | CMPI.L #0x0000003f,D6 0002361c 6f d0 |o | BLE 0x235ee 0002361e 51 4f |QO | SUBQ.L #0x8,A7 00023620 2f 07 |/ | MOVE.L D7,-(A7) 00023622 4e b9 00 01 03 54 |N T | JSR Long2Quad(a : Long) : Quad 00023628 58 4f |XO | ADDQ.L #0x4,A7 0002362a 4e ba e9 e4 |N | JSR 0x22010 0002362e 50 4f |PO | ADDQ.L #0x8,A7 00023630 4c df 03 c3 |L | MOVEM.L (A7)+,D0+D1+D6+D7+A0+A1 00023634 4e 5e |N^ | UNLK A6 00023636 4e 75 |Nu | RTS 00023638 ; -------------------------------------------------------------------------------------- 00023638 ; OMSI PASCAL Function 00023638 ; <LVAR 0x008 4(r)> 00023638 ; <LVAR -0x004 @ 1(r)> 00023638 ; -------------------------------------------------------------------------------------- 00023638 4e 56 ff b8 |NV | LINK.W A6,#0xffb8 0002363c bf d5 | | CMPA.L (A5),A7 0002363e 62 06 |b | BHI 0x23646 00023640 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023644 4e 76 |Nv | TRAPV 00023646 de fc 00 44 | D | ADDA.W #0x44,A7 0002364a 48 e7 e0 e0 |H | MOVEM.L A2+A1+A0+D2+D1+D0,-(A7) 0002364e 45 f9 00 02 61 16 |E a | LEA.L 0x26116,A2 00023654 72 01 |r | MOVEQ.L #0x01,D1 00023656 74 00 |t | MOVEQ.L #0x00,D2 00023658 4a 12 |J | TST.B (A2) 0002365a 66 32 |f2 | BNE 0x2368e 0002365c 9e fc 00 1c | | SUBA.W #0x1c,A7 00023660 20 4f | O | MOVEA.L A7,A0 00023662 43 fa d7 b4 |C | LEA.L 0x20e18,A1 00023666 70 1a |p | MOVEQ.L #0x1a,D0 00023668 10 d9 | | MOVE.B (A1)+,(A0)+ 0002366a 51 c8 ff fc |Q | DBF D0,0x23668 0002366e 59 4f |YO | SUBQ.L #0x4,A7 00023670 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023674 3f 01 |? | MOVE.W D1,-(A7) 00023676 3f 3c 00 1b |?< | MOVE.W #0x1b,-(A7) 0002367a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023680 50 4f |PO | ADDQ.L #0x8,A7 00023682 4e b9 00 01 03 e0 |N | JSR WriteConsoleStringCrLf(str : String) 00023688 de fc 00 20 | | ADDA.W #0x20,A7 0002368c 14 81 | | MOVE.B D1,(A2) 0002368e 5d 4f |]O | SUBQ.L #0x6,A7 00023690 4e b9 00 01 03 f8 |N | JSR GetConsoleConfig() : Long 00023696 20 1f | | MOVE.L (A7)+,D0 00023698 0c 80 00 00 ff ff | | CMPI.L #0x0000ffff,D0 0002369e 63 02 |c | BLS 0x236a2 000236a0 4e 4f |NO | TRAP #15 000236a2 3e 80 |> | MOVE.W D0,(A7) 000236a4 48 6e ff fc |Hn | PEA.L (A6-0x4) 000236a8 4e b9 00 01 02 12 |N | JSR KC09_PortStatus(Port : Word; VAR b: Byte) 000236ae 5c 4f |\O | ADDQ.L #0x6,A7 000236b0 10 2e ff fc | . | MOVE.B (A6-0x4),D0 000236b4 b0 01 | | CMP.B D1,D0 000236b6 67 16 |g | BEQ 0x236ce 000236b8 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000236bc 4e ba da be |N | JSR 0x2117c 000236c0 58 4f |XO | ADDQ.L #0x4,A7 000236c2 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 000236c6 3c 42 |<B | MOVEA.W D2,A6 000236c8 4e f9 00 02 4a 60 |N J` | JMP 0x24a60 000236ce 55 4f |UO | SUBQ.L #0x2,A7 000236d0 4e b9 00 01 03 d4 |N | JSR ReadChar() : Byte 000236d6 10 1f | | MOVE.B (A7)+,D0 000236d8 0c 00 00 07 | | CMPI.B #0x07,D0 000236dc 67 16 |g | BEQ 0x236f4 000236de 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 000236e2 4e ba da 98 |N | JSR 0x2117c 000236e6 58 4f |XO | ADDQ.L #0x4,A7 000236e8 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 000236ec 3c 42 |<B | MOVEA.W D2,A6 000236ee 4e f9 00 02 4a 60 |N J` | JMP 0x24a60 000236f4 4c df 07 07 |L | MOVEM.L (A7)+,D0+D1+D2+A0+A1+A2 000236f8 4e 5e |N^ | UNLK A6 000236fa 4e 75 |Nu | RTS 000236fc ; -------------------------------------------------------------------------------------- 000236fc ; OMSI PASCAL Function 000236fc ; -------------------------------------------------------------------------------------- 000236fc 4e 56 ff f8 |NV | LINK.W A6,#0xfff8 00023700 bf d5 | | CMPA.L (A5),A7 00023702 62 06 |b | BHI 0x2370a 00023704 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023708 4e 76 |Nv | TRAPV 0002370a de fc 00 08 | | ADDA.W #0x8,A7 0002370e 48 78 00 c8 |Hx | PEA.L 0xc8 00023712 4e ba e9 30 |N 0 | JSR 0x22044 00023716 58 4f |XO | ADDQ.L #0x4,A7 00023718 4e 5e |N^ | UNLK A6 0002371a 4e 75 |Nu | RTS 0002371c ; -------------------------------------------------------------------------------------- 0002371c ; OMSI PASCAL Function 0002371c ; <LVAR 0x008 4(r)> 0002371c ; <LVAR -0x00c @ 4(r)> 0002371c ; -------------------------------------------------------------------------------------- 0002371c 4e 56 ff ac |NV | LINK.W A6,#0xffac 00023720 bf d5 | | CMPA.L (A5),A7 00023722 62 06 |b | BHI 0x2372a 00023724 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023728 4e 76 |Nv | TRAPV 0002372a de fc 00 48 | H | ADDA.W #0x48,A7 0002372e 48 e7 83 c0 |H | MOVEM.L A1+A0+D7+D6+D0,-(A7) 00023732 43 ee ff f4 |C | LEA.L (A6-0xc),A1 00023736 48 51 |HQ | PEA.L (A1) 00023738 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002373e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023742 4e ba de 86 |N | JSR 0x215ca 00023746 58 4f |XO | ADDQ.L #0x4,A7 00023748 7e 01 |~ | MOVEQ.L #0x01,D7 0002374a be 97 | | CMP.L (A7),D7 0002374c 6e 6a |nj | BGT 0x237b8 0002374e 59 4f |YO | SUBQ.L #0x4,A7 00023750 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023754 2f 07 |/ | MOVE.L D7,-(A7) 00023756 4e ba e7 fc |N | JSR 0x21f54 0002375a 50 4f |PO | ADDQ.L #0x8,A7 0002375c 2c 1f |, | MOVE.L (A7)+,D6 0002375e 6d 20 |m | BLT 0x23780 00023760 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 00023766 6e 18 |n | BGT 0x23780 00023768 2f 11 |/ | MOVE.L (A1),-(A7) 0002376a 0c 86 00 00 00 ff | | CMPI.L #0x000000ff,D6 00023770 63 02 |c | BLS 0x23774 00023772 4e 4f |NO | TRAP #15 00023774 1f 06 | | MOVE.B D6,-(A7) 00023776 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 0002377c 5c 4f |\O | ADDQ.L #0x6,A7 0002377e 60 34 |`4 | BRA 0x237b4 00023780 48 51 |HQ | PEA.L (A1) 00023782 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023788 58 4f |XO | ADDQ.L #0x4,A7 0002378a 41 fa d6 c4 |A | LEA.L 0x20e50,A0 0002378e 70 06 |p | MOVEQ.L #0x06,D0 00023790 2f 20 |/ | MOVE.L -(A0),-(A7) 00023792 51 c8 ff fc |Q | DBF D0,0x23790 00023796 59 4f |YO | SUBQ.L #0x4,A7 00023798 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002379c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000237a0 3f 3c 00 1c |?< | MOVE.W #0x1c,-(A7) 000237a4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000237aa 50 4f |PO | ADDQ.L #0x8,A7 000237ac 4e ba da 10 |N | JSR 0x211be 000237b0 de fc 00 20 | | ADDA.W #0x20,A7 000237b4 52 87 |R | ADDQ.L #0x1,D7 000237b6 68 92 |h | BVC 0x2374a 000237b8 2e 91 |. | MOVE.L (A1),(A7) 000237ba 4e ba e7 cc |N | JSR 0x21f88 000237be 58 4f |XO | ADDQ.L #0x4,A7 000237c0 4c df 03 c1 |L | MOVEM.L (A7)+,D0+D6+D7+A0+A1 000237c4 4e 5e |N^ | UNLK A6 000237c6 4e 75 |Nu | RTS 000237c8 ; -------------------------------------------------------------------------------------- 000237c8 ; OMSI PASCAL Function 000237c8 ; <LVAR 0x00c 1(rw)> 000237c8 ; <LVAR 0x008 4(r)> 000237c8 ; -------------------------------------------------------------------------------------- 000237c8 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 000237cc bf d5 | | CMPA.L (A5),A7 000237ce 62 06 |b | BHI 0x237d6 000237d0 44 fc 00 02 |D | MOVE.W #0x2,CCR 000237d4 4e 76 |Nv | TRAPV 000237d6 de fc 00 34 | 4 | ADDA.W #0x34,A7 000237da 48 e7 e7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 000237de 42 2e 00 0c |B. | CLR.B (A6+0xc) 000237e2 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 000237e6 2f 08 |/ | MOVE.L A0,-(A7) 000237e8 70 00 |p | MOVEQ.L #0x00,D0 000237ea 52 40 |R@ | ADDQ.W #0x1,D0 000237ec 1c 00 | | MOVE.B D0,D6 000237ee 0c 06 00 2b | + | CMPI.B #0x2b,D6 000237f2 6e 00 00 82 |n | BGT 0x23876 000237f6 41 fa d8 b2 |A | LEA.L 0x210aa,A0 000237fa 10 06 | | MOVE.B D6,D0 000237fc 48 80 |H | EXTB.W D0 000237fe 48 c0 |H | EXTW.L D0 00023800 e2 98 | | ROR.L #0x1,D0 00023802 d0 c0 | | ADDA.W D0,A0 00023804 48 40 |H@ | SWAP.W D0 00023806 e7 58 | X | ROL.W #0x3,D0 00023808 42 81 |B | CLR.L D1 0002380a 12 10 | | MOVE.B (A0),D1 0002380c e1 29 | ) | LSL.B D0,D1 0002380e e8 09 | | LSR.B #0x4,D1 00023810 2a 01 |* | MOVE.L D1,D5 00023812 20 57 | W | MOVEA.L (A7),A0 00023814 30 10 |0 | MOVE.W (A0),D0 00023816 48 c0 |H | EXTW.L D0 00023818 ba 80 | | CMP.L D0,D5 0002381a 66 54 |fT | BNE 0x23870 0002381c 2f 05 |/ | MOVE.L D5,-(A7) 0002381e 7e 01 |~ | MOVEQ.L #0x01,D7 00023820 be 97 | | CMP.L (A7),D7 00023822 6e 42 |nB | BGT 0x23866 00023824 10 06 | | MOVE.B D6,D0 00023826 48 80 |H | EXTB.W D0 00023828 c1 fc 00 0a | | MULS.W #0xa,D0 0002382c 22 07 |" | MOVE.L D7,D1 0002382e 53 81 |S | SUBQ.L #0x1,D1 00023830 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 00023836 63 02 |c | BLS 0x2383a 00023838 4e 4f |NO | TRAP #15 0002383a 20 6f 00 04 | o | MOVEA.L (A7+0x4),A0 0002383e 43 fa d6 b2 |C | LEA.L COMMAND_TABLE_20ef2,A1 00023842 24 07 |$ | MOVE.L D7,D2 00023844 53 82 |S | SUBQ.L #0x1,D2 00023846 0c 82 00 00 00 09 | | CMPI.L #0x00000009,D2 0002384c 63 02 |c | BLS 0x23850 0002384e 4e 4f |NO | TRAP #15 00023850 43 f1 00 00 |C | LEA.L (A1+D0.W),A1 00023854 10 30 18 02 | 0 | MOVE.B (A0+D1.L+#0x2),D0 00023858 b0 31 28 00 | 1( | CMP.B (A1+D2.L),D0 0002385c 67 04 |g | BEQ 0x23862 0002385e 58 4f |XO | ADDQ.L #0x4,A7 00023860 60 0e |` | BRA 0x23870 00023862 52 87 |R | ADDQ.L #0x1,D7 00023864 68 ba |h | BVC 0x23820 00023866 58 4f |XO | ADDQ.L #0x4,A7 00023868 1d 46 00 0c | F | MOVE.B D6,(A6+0xc) 0002386c 58 4f |XO | ADDQ.L #0x4,A7 0002386e 60 08 |` | BRA 0x23878 00023870 52 06 |R | ADDQ.B #0x1,D6 00023872 68 00 ff 7a |h z | BVC 0x237ee 00023876 58 4f |XO | ADDQ.L #0x4,A7 00023878 4c df 03 e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1 0002387c 4e 5e |N^ | UNLK A6 0002387e 4e 75 |Nu | RTS 00023880 ; -------------------------------------------------------------------------------------- 00023880 ; OMSI PASCAL Function 00023880 ; <LVAR 0x00c 4(r)> 00023880 ; <LVAR 0x008 4(r)> 00023880 ; <LVAR -0x002 @ 1(r)> 00023880 ; <LVAR -0x006 @ 4(w)> 00023880 ; <LVAR -0x008 @ 1(r)> 00023880 ; <LVAR -0x00c @ 4(r)> 00023880 ; <LVAR -0x010 @ 4(rw)> 00023880 ; -------------------------------------------------------------------------------------- 00023880 4e 56 ff a6 |NV | LINK.W A6,#0xffa6 00023884 bf d5 | | CMPA.L (A5),A7 00023886 62 06 |b | BHI 0x2388e 00023888 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002388c 4e 76 |Nv | TRAPV 0002388e de fc 00 4a | J | ADDA.W #0x4a,A7 00023892 48 e7 c0 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D1+D0,-(A7) 00023896 45 ee ff f0 |E | LEA.L (A6-0x10),A2 0002389a 47 ee ff fe |G | LEA.L (A6-0x2),A3 0002389e 49 ee ff f4 |I | LEA.L (A6-0xc),A4 000238a2 72 01 |r | MOVEQ.L #0x01,D1 000238a4 59 4f |YO | SUBQ.L #0x4,A7 000238a6 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000238aa 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 000238b0 58 4f |XO | ADDQ.L #0x4,A7 000238b2 24 9f |$ | MOVE.L (A7)+,(A2) 000238b4 2f 12 |/ | MOVE.L (A2),-(A7) 000238b6 1f 3c 00 2e | < . | MOVE.B #0x2e,-(A7) 000238ba 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000238c0 5c 4f |\O | ADDQ.L #0x6,A7 000238c2 41 f9 00 02 60 f6 |A ` | LEA.L 0x260f6,A0 000238c8 70 04 |p | MOVEQ.L #0x04,D0 000238ca 3f 20 |? | MOVE.W -(A0),-(A7) 000238cc 51 c8 ff fc |Q | DBF D0,0x238ca 000238d0 59 4f |YO | SUBQ.L #0x4,A7 000238d2 2f 12 |/ | MOVE.L (A2),-(A7) 000238d4 59 4f |YO | SUBQ.L #0x4,A7 000238d6 48 6f 00 0c |Ho | PEA.L (A7+0xc) 000238da 3f 01 |? | MOVE.W D1,-(A7) 000238dc 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000238e0 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000238e6 50 4f |PO | ADDQ.L #0x8,A7 000238e8 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000238ee 50 4f |PO | ADDQ.L #0x8,A7 000238f0 24 9f |$ | MOVE.L (A7)+,(A2) 000238f2 5c 4f |\O | ADDQ.L #0x6,A7 000238f4 2e 92 |. | MOVE.L (A2),(A7) 000238f6 42 27 |B' | CLR.B -(A7) 000238f8 1f 01 | | MOVE.B D1,-(A7) 000238fa 48 78 00 00 |Hx | PEA.L 0x0 000238fe 48 53 |HS | PEA.L (A3) 00023900 48 54 |HT | PEA.L (A4) 00023902 4e b9 00 01 03 80 |N | JSR OpenFile(name : String; a : W; b: B; c : L; VAR status : B; VAR file : File) 00023908 de fc 00 14 | | ADDA.W #0x14,A7 0002390c 4a 13 |J | TST.B (A3) 0002390e 67 4a |gJ | BEQ 0x2395a 00023910 48 52 |HR | PEA.L (A2) 00023912 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00023918 2e ae 00 08 |. | MOVE.L (A6+0x8),(A7) 0002391c 4e ba d8 5e |N ^ | JSR 0x2117c 00023920 9e fc 00 16 | | SUBA.W #0x16,A7 00023924 20 4f | O | MOVEA.L A7,A0 00023926 43 fa d5 28 |C ( | LEA.L 0x20e50,A1 0002392a 70 18 |p | MOVEQ.L #0x18,D0 0002392c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002392e 51 c8 ff fc |Q | DBF D0,0x2392c 00023932 51 4f |QO | SUBQ.L #0x8,A7 00023934 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00023938 3f 01 |? | MOVE.W D1,-(A7) 0002393a 3f 3c 00 19 |?< | MOVE.W #0x19,-(A7) 0002393e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023944 58 4f |XO | ADDQ.L #0x4,A7 00023946 2e ae 00 0c |. | MOVE.L (A6+0xc),(A7) 0002394a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00023950 50 4f |PO | ADDQ.L #0x8,A7 00023952 4e ba d8 6a |N j | JSR 0x211be 00023956 de fc 00 1e | | ADDA.W #0x1e,A7 0002395a 2d 79 00 02 60 e4 ff fa |-y ` | MOVE.L 0x260e4,(A6-0x6) 00023962 2f 14 |/ | MOVE.L (A4),-(A7) 00023964 48 52 |HR | PEA.L (A2) 00023966 48 6e ff f8 |Hn | PEA.L (A6-0x8) 0002396a 4e b9 00 01 04 3c |N < | JSR FileReadLine(file : File; VAR a : String; VAR b : Byte) 00023970 de fc 00 0c | | ADDA.W #0xc,A7 00023974 20 52 | R | MOVEA.L (A2),A0 00023976 4a 50 |JP | TST.W (A0) 00023978 67 14 |g | BEQ 0x2398e 0002397a 2f 12 |/ | MOVE.L (A2),-(A7) 0002397c 4e ba da 98 |N | JSR 0x21416 00023980 58 4f |XO | ADDQ.L #0x4,A7 00023982 48 6e ff fa |Hn | PEA.L (A6-0x6) 00023986 2f 12 |/ | MOVE.L (A2),-(A7) 00023988 4e ba de 12 |N | JSR 0x2179c 0002398c 50 4f |PO | ADDQ.L #0x8,A7 0002398e 4a 2e ff f8 |J. | TST.B (A6-0x8) 00023992 67 ce |g | BEQ 0x23962 00023994 42 27 |B' | CLR.B -(A7) 00023996 1f 01 | | MOVE.B D1,-(A7) 00023998 48 78 00 01 |Hx | PEA.L 0x1 0002399c 48 53 |HS | PEA.L (A3) 0002399e 48 54 |HT | PEA.L (A4) 000239a0 4e b9 00 01 03 8c |N | JSR CloseFile(a : L; VAR status : B; VAR file : File) 000239a6 de fc 00 10 | | ADDA.W #0x10,A7 000239aa 48 52 |HR | PEA.L (A2) 000239ac 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 000239b2 58 4f |XO | ADDQ.L #0x4,A7 000239b4 4c df 1f 03 |L | MOVEM.L (A7)+,D0+D1+A0+A1+A2+A3+A4 000239b8 4e 5e |N^ | UNLK A6 000239ba 4e 75 |Nu | RTS 000239bc ; -------------------------------------------------------------------------------------- 000239bc ; OMSI PASCAL Function 000239bc ; <LVAR 0x014 1(w)> 000239bc ; <LVAR 0x00c 4(r)> 000239bc ; <LVAR 0x008 4(r)> 000239bc ; -------------------------------------------------------------------------------------- 000239bc 4e 56 ff f4 |NV | LINK.W A6,#0xfff4 000239c0 bf d5 | | CMPA.L (A5),A7 000239c2 62 06 |b | BHI 0x239ca 000239c4 44 fc 00 02 |D | MOVE.W #0x2,CCR 000239c8 4e 76 |Nv | TRAPV 000239ca de fc 00 0c | | ADDA.W #0xc,A7 000239ce 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 000239d2 20 2e 00 0c | . | MOVE.L (A6+0xc),D0 000239d6 d0 ae 00 08 | | ADD.L (A6+0x8),D0 000239da 53 80 |S | SUBQ.L #0x1,D0 000239dc 53 80 |S | SUBQ.L #0x1,D0 000239de 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 000239e4 63 02 |c | BLS 0x239e8 000239e6 4e 4f |NO | TRAP #15 000239e8 41 f9 00 02 50 dc |A P | LEA.L 0x250dc,A0 000239ee 1d 70 08 08 00 14 | p | MOVE.B (A0+D0.L+#0x8),(A6+0x14) 000239f4 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 000239f8 4e 5e |N^ | UNLK A6 000239fa 4e 75 |Nu | RTS 000239fc ; -------------------------------------------------------------------------------------- 000239fc ; OMSI PASCAL Function 000239fc ; <LVAR 0x010 4(w)> 000239fc ; <LVAR 0x00c 4(r)> 000239fc ; <LVAR 0x008 4(r)> 000239fc ; <LVAR -0x004 @ 1(r)> 000239fc ; <LVAR -0x008 @ 4(r)> 000239fc ; -------------------------------------------------------------------------------------- 000239fc 4e 56 ff c4 |NV | LINK.W A6,#0xffc4 00023a00 bf d5 | | CMPA.L (A5),A7 00023a02 62 06 |b | BHI 0x23a0a 00023a04 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023a08 4e 76 |Nv | TRAPV 00023a0a de fc 00 34 | 4 | ADDA.W #0x34,A7 00023a0e 48 e7 80 c0 |H | MOVEM.L A1+A0+D0,-(A7) 00023a12 59 4f |YO | SUBQ.L #0x4,A7 00023a14 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023a18 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023a1c 4e ba e4 4c |N L | JSR 0x21e6a 00023a20 50 4f |PO | ADDQ.L #0x8,A7 00023a22 48 6e ff fc |Hn | PEA.L (A6-0x4) 00023a26 48 6e ff f8 |Hn | PEA.L (A6-0x8) 00023a2a 4e b9 00 01 02 ec |N | JSR String2Long(src : String; VAR status : Bool; VAR retval : Long) 00023a30 de fc 00 0c | | ADDA.W #0xc,A7 00023a34 4a 2e ff fc |J. | TST.B (A6-0x4) 00023a38 66 30 |f0 | BNE 0x23a6a 00023a3a 9e fc 00 18 | | SUBA.W #0x18,A7 00023a3e 20 4f | O | MOVEA.L A7,A0 00023a40 43 fa d4 28 |C ( | LEA.L 0x20e6a,A1 00023a44 70 16 |p | MOVEQ.L #0x16,D0 00023a46 10 d9 | | MOVE.B (A1)+,(A0)+ 00023a48 51 c8 ff fc |Q | DBF D0,0x23a46 00023a4c 59 4f |YO | SUBQ.L #0x4,A7 00023a4e 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023a52 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00023a56 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00023a5a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023a60 50 4f |PO | ADDQ.L #0x8,A7 00023a62 4e ba d7 5a |N Z | JSR 0x211be 00023a66 de fc 00 1c | | ADDA.W #0x1c,A7 00023a6a 2d 6e ff f8 00 10 |-n | MOVE.L (A6-0x8),(A6+0x10) 00023a70 4c df 03 01 |L | MOVEM.L (A7)+,D0+A0+A1 00023a74 4e 5e |N^ | UNLK A6 00023a76 4e 75 |Nu | RTS 00023a78 ; -------------------------------------------------------------------------------------- 00023a78 ; OMSI PASCAL Function 00023a78 ; <LVAR 0x014 4(r)> 00023a78 ; <LVAR 0x010 4(r)> 00023a78 ; <LVAR 0x00c 4(r)> 00023a78 ; <LVAR 0x008 4(r)> 00023a78 ; <LVAR -0x00c 4(rw)> 00023a78 ; <LVAR -0x010 4(rw)> 00023a78 ; <LVAR -0x014 4(rw)> 00023a78 ; <LVAR -0x018 4(w)> 00023a78 ; <LVAR -0x020 4(rw)> 00023a78 ; -------------------------------------------------------------------------------------- 00023a78 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 00023a7c bf d5 | | CMPA.L (A5),A7 00023a7e 62 06 |b | BHI 0x23a86 00023a80 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023a84 4e 76 |Nv | TRAPV 00023a86 de fc 00 4e | N | ADDA.W #0x4e,A7 00023a8a 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00023a8e 43 ee ff e0 |C | LEA.L (A6-0x20),A1 00023a92 45 ee ff f0 |E | LEA.L (A6-0x10),A2 00023a96 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00023a9a 49 ee ff ec |I | LEA.L (A6-0x14),A4 00023a9e 7e 00 |~ | MOVEQ.L #0x00,D7 00023aa0 22 ae 00 14 |" | MOVE.L (A6+0x14),(A1) 00023aa4 20 39 00 02 60 e4 | 9 ` | MOVE.L 0x260e4,D0 00023aaa 90 ae 00 14 | | SUB.L (A6+0x14),D0 00023aae 28 80 |( | MOVE.L D0,(A4) 00023ab0 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023ab4 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 00023ab8 ba 97 | | CMP.L (A7),D5 00023aba 6e 2c |n, | BGT 0x23ae8 00023abc 51 4f |QO | SUBQ.L #0x8,A7 00023abe 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023ac2 2f 05 |/ | MOVE.L D5,-(A7) 00023ac4 4e ba e3 42 |N B | JSR 0x21e08 00023ac8 50 4f |PO | ADDQ.L #0x8,A7 00023aca 24 9f |$ | MOVE.L (A7)+,(A2) 00023acc 26 97 |& | MOVE.L (A7),(A3) 00023ace 2f 13 |/ | MOVE.L (A3),-(A7) 00023ad0 2f 12 |/ | MOVE.L (A2),-(A7) 00023ad2 4e ba e2 fc |N | JSR 0x21dd0 00023ad6 50 4f |PO | ADDQ.L #0x8,A7 00023ad8 2c 1f |, | MOVE.L (A7)+,D6 00023ada de 86 | | ADD.L D6,D7 00023adc ba ae 00 0c | | CMP.L (A6+0xc),D5 00023ae0 6c 02 |l | BGE 0x23ae4 00023ae2 52 87 |R | ADDQ.L #0x1,D7 00023ae4 52 85 |R | ADDQ.L #0x1,D5 00023ae6 68 d0 |h | BVC 0x23ab8 00023ae8 58 4f |XO | ADDQ.L #0x4,A7 00023aea 20 11 | | MOVE.L (A1),D0 00023aec d0 94 | | ADD.L (A4),D0 00023aee 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 00023af2 be 94 | | CMP.L (A4),D7 00023af4 67 0c |g | BEQ 0x23b02 00023af6 2f 00 |/ | MOVE.L D0,-(A7) 00023af8 2f 14 |/ | MOVE.L (A4),-(A7) 00023afa 9f 97 | | SUB.L D7,(A7) 00023afc 4e ba dc 14 |N | JSR 0x21712 00023b00 50 4f |PO | ADDQ.L #0x8,A7 00023b02 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023b06 2a 2e 00 10 |*. | MOVE.L (A6+0x10),D5 00023b0a ba 97 | | CMP.L (A7),D5 00023b0c 6e 00 00 88 |n | BGT 0x23b96 00023b10 51 4f |QO | SUBQ.L #0x8,A7 00023b12 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023b16 2f 05 |/ | MOVE.L D5,-(A7) 00023b18 4e ba e2 ee |N | JSR 0x21e08 00023b1c 50 4f |PO | ADDQ.L #0x8,A7 00023b1e 24 9f |$ | MOVE.L (A7)+,(A2) 00023b20 26 97 |& | MOVE.L (A7),(A3) 00023b22 2f 13 |/ | MOVE.L (A3),-(A7) 00023b24 2f 12 |/ | MOVE.L (A2),-(A7) 00023b26 4e ba e2 a8 |N | JSR 0x21dd0 00023b2a 50 4f |PO | ADDQ.L #0x8,A7 00023b2c 2c 1f |, | MOVE.L (A7)+,D6 00023b2e 2f 06 |/ | MOVE.L D6,-(A7) 00023b30 70 01 |p | MOVEQ.L #0x01,D0 00023b32 b0 97 | | CMP.L (A7),D0 00023b34 6e 30 |n0 | BGT 0x23b66 00023b36 22 11 |" | MOVE.L (A1),D1 00023b38 d2 80 | | ADD.L D0,D1 00023b3a 53 81 |S | SUBQ.L #0x1,D1 00023b3c 53 81 |S | SUBQ.L #0x1,D1 00023b3e 0c 81 00 00 0f ff | | CMPI.L #0x00000fff,D1 00023b44 63 02 |c | BLS 0x23b48 00023b46 4e 4f |NO | TRAP #15 00023b48 41 f9 00 02 50 dc |A P | LEA.L 0x250dc,A0 00023b4e 55 4f |UO | SUBQ.L #0x2,A7 00023b50 2f 13 |/ | MOVE.L (A3),-(A7) 00023b52 2f 12 |/ | MOVE.L (A2),-(A7) 00023b54 2f 00 |/ | MOVE.L D0,-(A7) 00023b56 4e ba fe 64 |N d | JSR 0x239bc 00023b5a de fc 00 0c | | ADDA.W #0xc,A7 00023b5e 11 9f 18 08 | | MOVE.B (A7)+,(A0+D1.L+#0x8) 00023b62 52 80 |R | ADDQ.L #0x1,D0 00023b64 68 cc |h | BVC 0x23b32 00023b66 58 4f |XO | ADDQ.L #0x4,A7 00023b68 ba ae 00 0c | | CMP.L (A6+0xc),D5 00023b6c 6c 22 |l" | BGE 0x23b90 00023b6e 20 11 | | MOVE.L (A1),D0 00023b70 d0 86 | | ADD.L D6,D0 00023b72 22 00 |" | MOVE.L D0,D1 00023b74 53 81 |S | SUBQ.L #0x1,D1 00023b76 0c 81 00 00 0f ff | | CMPI.L #0x00000fff,D1 00023b7c 63 02 |c | BLS 0x23b80 00023b7e 4e 4f |NO | TRAP #15 00023b80 41 f9 00 02 50 dc |A P | LEA.L 0x250dc,A0 00023b86 11 bc 00 2c 18 08 | , | MOVE.B #0x2c,(A0+D1.L+#0x8) 00023b8c 52 80 |R | ADDQ.L #0x1,D0 00023b8e 22 80 |" | MOVE.L D0,(A1) 00023b90 52 85 |R | ADDQ.L #0x1,D5 00023b92 68 00 ff 76 |h v | BVC 0x23b0a 00023b96 58 4f |XO | ADDQ.L #0x4,A7 00023b98 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 00023b9c 4e 5e |N^ | UNLK A6 00023b9e 4e 75 |Nu | RTS 00023ba0 ; -------------------------------------------------------------------------------------- 00023ba0 ; OMSI PASCAL Function 00023ba0 ; <LVAR 0x018 4(rw)> 00023ba0 ; <LVAR 0x014 4(r)> 00023ba0 ; <LVAR 0x010 4(r)> 00023ba0 ; <LVAR 0x00c 4(r)> 00023ba0 ; <LVAR 0x008 4(r)> 00023ba0 ; <LVAR -0x008 4(rw)> 00023ba0 ; <LVAR -0x00c 4(rw)> 00023ba0 ; <LVAR -0x018 4(w)> 00023ba0 ; -------------------------------------------------------------------------------------- 00023ba0 4e 56 ff 9e |NV | LINK.W A6,#0xff9e 00023ba4 bf d5 | | CMPA.L (A5),A7 00023ba6 62 06 |b | BHI 0x23bae 00023ba8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023bac 4e 76 |Nv | TRAPV 00023bae de fc 00 4a | J | ADDA.W #0x4a,A7 00023bb2 48 e7 c7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00023bb6 41 ee ff f8 |A | LEA.L (A6-0x8),A0 00023bba 43 ee 00 14 |C | LEA.L (A6+0x14),A1 00023bbe 45 ee 00 10 |E | LEA.L (A6+0x10),A2 00023bc2 47 ee ff f4 |G | LEA.L (A6-0xc),A3 00023bc6 49 fa fd f4 |I | LEA.L 0x239bc,A4 00023bca 72 0c |r | MOVEQ.L #0x0c,D1 00023bcc 59 4f |YO | SUBQ.L #0x4,A7 00023bce 2f 11 |/ | MOVE.L (A1),-(A7) 00023bd0 2f 12 |/ | MOVE.L (A2),-(A7) 00023bd2 4e ba e1 fc |N | JSR 0x21dd0 00023bd6 50 4f |PO | ADDQ.L #0x8,A7 00023bd8 26 97 |& | MOVE.L (A7),(A3) 00023bda 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023bde 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023be2 4e ba e1 ec |N | JSR 0x21dd0 00023be6 50 4f |PO | ADDQ.L #0x8,A7 00023be8 20 9f | | MOVE.L (A7)+,(A0) 00023bea 52 90 |R | ADDQ.L #0x1,(A0) 00023bec 20 13 | | MOVE.L (A3),D0 00023bee 90 90 | | SUB.L (A0),D0 00023bf0 52 80 |R | ADDQ.L #0x1,D0 00023bf2 2f 00 |/ | MOVE.L D0,-(A7) 00023bf4 70 01 |p | MOVEQ.L #0x01,D0 00023bf6 b0 97 | | CMP.L (A7),D0 00023bf8 6e 00 00 8e |n | BGT 0x23c88 00023bfc 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 00023c00 2f 00 |/ | MOVE.L D0,-(A7) 00023c02 7c 00 || | MOVEQ.L #0x00,D6 00023c04 2f 10 |/ | MOVE.L (A0),-(A7) 00023c06 7a 01 |z | MOVEQ.L #0x01,D5 00023c08 ba 97 | | CMP.L (A7),D5 00023c0a 6e 42 |nB | BGT 0x23c4e 00023c0c 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 00023c12 66 04 |f | BNE 0x23c18 00023c14 7e 2f |~/ | MOVEQ.L #0x2f,D7 00023c16 60 14 |` | BRA 0x23c2c 00023c18 55 4f |UO | SUBQ.L #0x2,A7 00023c1a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023c1e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023c22 2f 05 |/ | MOVE.L D5,-(A7) 00023c24 53 97 |S | SUBQ.L #0x1,(A7) 00023c26 4e 94 |N | JSR (A4) 00023c28 de c1 | | ADDA.W D1,A7 00023c2a 1e 1f | | MOVE.B (A7)+,D7 00023c2c 55 4f |UO | SUBQ.L #0x2,A7 00023c2e 2f 11 |/ | MOVE.L (A1),-(A7) 00023c30 2f 12 |/ | MOVE.L (A2),-(A7) 00023c32 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 00023c36 d0 85 | | ADD.L D5,D0 00023c38 53 80 |S | SUBQ.L #0x1,D0 00023c3a 2f 00 |/ | MOVE.L D0,-(A7) 00023c3c 4e 94 |N | JSR (A4) 00023c3e de c1 | | ADDA.W D1,A7 00023c40 be 1f | | CMP.B (A7)+,D7 00023c42 67 04 |g | BEQ 0x23c48 00023c44 58 4f |XO | ADDQ.L #0x4,A7 00023c46 60 08 |` | BRA 0x23c50 00023c48 2c 05 |, | MOVE.L D5,D6 00023c4a 52 85 |R | ADDQ.L #0x1,D5 00023c4c 68 ba |h | BVC 0x23c08 00023c4e 58 4f |XO | ADDQ.L #0x4,A7 00023c50 bc 90 | | CMP.L (A0),D6 00023c52 66 2c |f, | BNE 0x23c80 00023c54 20 17 | | MOVE.L (A7),D0 00023c56 2d 40 00 18 |-@ | MOVE.L D0,(A6+0x18) 00023c5a d0 90 | | ADD.L (A0),D0 00023c5c b0 93 | | CMP.L (A3),D0 00023c5e 6d 02 |m | BLT 0x23c62 00023c60 60 1a |` | BRA 0x23c7c 00023c62 55 4f |UO | SUBQ.L #0x2,A7 00023c64 2f 11 |/ | MOVE.L (A1),-(A7) 00023c66 2f 12 |/ | MOVE.L (A2),-(A7) 00023c68 2f 00 |/ | MOVE.L D0,-(A7) 00023c6a 4e 94 |N | JSR (A4) 00023c6c de c1 | | ADDA.W D1,A7 00023c6e 1e 1f | | MOVE.B (A7)+,D7 00023c70 0c 07 00 2f | / | CMPI.B #0x2f,D7 00023c74 67 06 |g | BEQ 0x23c7c 00023c76 0c 07 00 3d | = | CMPI.B #0x3d,D7 00023c7a 66 04 |f | BNE 0x23c80 00023c7c 50 4f |PO | ADDQ.L #0x8,A7 00023c7e 60 0e |` | BRA 0x23c8e 00023c80 20 1f | | MOVE.L (A7)+,D0 00023c82 52 80 |R | ADDQ.L #0x1,D0 00023c84 68 00 ff 70 |h p | BVC 0x23bf6 00023c88 58 4f |XO | ADDQ.L #0x4,A7 00023c8a 42 ae 00 18 |B | CLR.L (A6+0x18) 00023c8e 4c df 1f e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2+A3+A4 00023c92 4e 5e |N^ | UNLK A6 00023c94 4e 75 |Nu | RTS 00023c96 ; -------------------------------------------------------------------------------------- 00023c96 ; OMSI PASCAL Function 00023c96 ; <LVAR 0x018 4(r)> 00023c96 ; <LVAR 0x014 4(r)> 00023c96 ; <LVAR 0x010 4(r)> 00023c96 ; <LVAR 0x00c 4(r)> 00023c96 ; <LVAR 0x008 4(r)> 00023c96 ; -------------------------------------------------------------------------------------- 00023c96 4e 56 ff be |NV | LINK.W A6,#0xffbe 00023c9a bf d5 | | CMPA.L (A5),A7 00023c9c 62 06 |b | BHI 0x23ca4 00023c9e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023ca2 4e 76 |Nv | TRAPV 00023ca4 de fc 00 36 | 6 | ADDA.W #0x36,A7 00023ca8 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 00023cac 41 ee 00 14 |A | LEA.L (A6+0x14),A0 00023cb0 43 ee 00 10 |C | LEA.L (A6+0x10),A1 00023cb4 72 2f |r/ | MOVEQ.L #0x2f,D1 00023cb6 59 4f |YO | SUBQ.L #0x4,A7 00023cb8 2f 10 |/ | MOVE.L (A0),-(A7) 00023cba 2f 11 |/ | MOVE.L (A1),-(A7) 00023cbc 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023cc0 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023cc4 4e ba fe da |N | JSR 0x23ba0 00023cc8 de fc 00 10 | | ADDA.W #0x10,A7 00023ccc 2a 1f |* | MOVE.L (A7)+,D5 00023cce 6f 52 |oR | BLE 0x23d22 00023cd0 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00023cd4 1f 01 | | MOVE.B D1,-(A7) 00023cd6 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023cdc 5c 4f |\O | ADDQ.L #0x6,A7 00023cde 20 05 | | MOVE.L D5,D0 00023ce0 52 80 |R | ADDQ.L #0x1,D0 00023ce2 59 4f |YO | SUBQ.L #0x4,A7 00023ce4 2f 10 |/ | MOVE.L (A0),-(A7) 00023ce6 2f 11 |/ | MOVE.L (A1),-(A7) 00023ce8 4e ba e0 e6 |N | JSR 0x21dd0 00023cec 50 4f |PO | ADDQ.L #0x8,A7 00023cee 2c 00 |, | MOVE.L D0,D6 00023cf0 bc 97 | | CMP.L (A7),D6 00023cf2 6e 2c |n, | BGT 0x23d20 00023cf4 55 4f |UO | SUBQ.L #0x2,A7 00023cf6 2f 10 |/ | MOVE.L (A0),-(A7) 00023cf8 2f 11 |/ | MOVE.L (A1),-(A7) 00023cfa 2f 06 |/ | MOVE.L D6,-(A7) 00023cfc 4e ba fc be |N | JSR 0x239bc 00023d00 de fc 00 0c | | ADDA.W #0xc,A7 00023d04 1e 1f | | MOVE.B (A7)+,D7 00023d06 be 01 | | CMP.B D1,D7 00023d08 66 04 |f | BNE 0x23d0e 00023d0a 58 4f |XO | ADDQ.L #0x4,A7 00023d0c 60 14 |` | BRA 0x23d22 00023d0e 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00023d12 1f 07 | | MOVE.B D7,-(A7) 00023d14 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023d1a 5c 4f |\O | ADDQ.L #0x6,A7 00023d1c 52 86 |R | ADDQ.L #0x1,D6 00023d1e 68 d0 |h | BVC 0x23cf0 00023d20 58 4f |XO | ADDQ.L #0x4,A7 00023d22 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 00023d26 4e 5e |N^ | UNLK A6 00023d28 4e 75 |Nu | RTS 00023d2a ; -------------------------------------------------------------------------------------- 00023d2a ; OMSI PASCAL Function 00023d2a ; <LVAR 0x018 4(r)> 00023d2a ; <LVAR 0x014 4(r)> 00023d2a ; <LVAR 0x010 4(r)> 00023d2a ; <LVAR 0x00c 4(r)> 00023d2a ; <LVAR 0x008 4(r)> 00023d2a ; <LVAR -0x006 4(rw)> 00023d2a ; <LVAR -0x014 4(rw)> 00023d2a ; -------------------------------------------------------------------------------------- 00023d2a 4e 56 ff aa |NV | LINK.W A6,#0xffaa 00023d2e bf d5 | | CMPA.L (A5),A7 00023d30 62 06 |b | BHI 0x23d38 00023d32 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023d36 4e 76 |Nv | TRAPV 00023d38 de fc 00 42 | B | ADDA.W #0x42,A7 00023d3c 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 00023d40 41 ee 00 14 |A | LEA.L (A6+0x14),A0 00023d44 43 ee 00 10 |C | LEA.L (A6+0x10),A1 00023d48 45 ee ff fa |E | LEA.L (A6-0x6),A2 00023d4c 72 0c |r | MOVEQ.L #0x0c,D1 00023d4e 59 4f |YO | SUBQ.L #0x4,A7 00023d50 2f 10 |/ | MOVE.L (A0),-(A7) 00023d52 2f 11 |/ | MOVE.L (A1),-(A7) 00023d54 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023d58 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023d5c 4e ba fe 42 |N B | JSR 0x23ba0 00023d60 de fc 00 10 | | ADDA.W #0x10,A7 00023d64 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 00023d68 6f 6e |on | BLE 0x23dd8 00023d6a 59 4f |YO | SUBQ.L #0x4,A7 00023d6c 2f 10 |/ | MOVE.L (A0),-(A7) 00023d6e 2f 11 |/ | MOVE.L (A1),-(A7) 00023d70 4e ba e0 5e |N ^ | JSR 0x21dd0 00023d74 50 4f |PO | ADDQ.L #0x8,A7 00023d76 24 9f |$ | MOVE.L (A7)+,(A2) 00023d78 2f 12 |/ | MOVE.L (A2),-(A7) 00023d7a 2a 2e ff ec |*. | MOVE.L (A6-0x14),D5 00023d7e ba 97 | | CMP.L (A7),D5 00023d80 6e 54 |nT | BGT 0x23dd6 00023d82 55 4f |UO | SUBQ.L #0x2,A7 00023d84 2f 10 |/ | MOVE.L (A0),-(A7) 00023d86 2f 11 |/ | MOVE.L (A1),-(A7) 00023d88 2f 05 |/ | MOVE.L D5,-(A7) 00023d8a 4e ba fc 30 |N 0 | JSR 0x239bc 00023d8e de c1 | | ADDA.W D1,A7 00023d90 10 1f | | MOVE.B (A7)+,D0 00023d92 0c 00 00 3d | = | CMPI.B #0x3d,D0 00023d96 66 3a |f: | BNE 0x23dd2 00023d98 20 05 | | MOVE.L D5,D0 00023d9a 52 80 |R | ADDQ.L #0x1,D0 00023d9c 2f 12 |/ | MOVE.L (A2),-(A7) 00023d9e 2c 00 |, | MOVE.L D0,D6 00023da0 bc 97 | | CMP.L (A7),D6 00023da2 6e 2c |n, | BGT 0x23dd0 00023da4 55 4f |UO | SUBQ.L #0x2,A7 00023da6 2f 10 |/ | MOVE.L (A0),-(A7) 00023da8 2f 11 |/ | MOVE.L (A1),-(A7) 00023daa 2f 06 |/ | MOVE.L D6,-(A7) 00023dac 4e ba fc 0e |N | JSR 0x239bc 00023db0 de c1 | | ADDA.W D1,A7 00023db2 1e 1f | | MOVE.B (A7)+,D7 00023db4 0c 07 00 2f | / | CMPI.B #0x2f,D7 00023db8 66 04 |f | BNE 0x23dbe 00023dba 50 4f |PO | ADDQ.L #0x8,A7 00023dbc 60 1a |` | BRA 0x23dd8 00023dbe 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00023dc2 1f 07 | | MOVE.B D7,-(A7) 00023dc4 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023dca 5c 4f |\O | ADDQ.L #0x6,A7 00023dcc 52 86 |R | ADDQ.L #0x1,D6 00023dce 68 d0 |h | BVC 0x23da0 00023dd0 58 4f |XO | ADDQ.L #0x4,A7 00023dd2 52 85 |R | ADDQ.L #0x1,D5 00023dd4 68 a8 |h | BVC 0x23d7e 00023dd6 58 4f |XO | ADDQ.L #0x4,A7 00023dd8 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 00023ddc 4e 5e |N^ | UNLK A6 00023dde 4e 75 |Nu | RTS 00023de0 ; -------------------------------------------------------------------------------------- 00023de0 ; OMSI PASCAL Function 00023de0 ; <LVAR 0x010 4(r)> 00023de0 ; <LVAR 0x00c 4(r)> 00023de0 ; <LVAR 0x008 4(r)> 00023de0 ; -------------------------------------------------------------------------------------- 00023de0 4e 56 ff b2 |NV | LINK.W A6,#0xffb2 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 42 | B | ADDA.W #0x42,A7 00023df2 48 e7 c7 c0 |H | MOVEM.L A1+A0+D7+D6+D5+D1+D0,-(A7) 00023df6 41 ee 00 0c |A | LEA.L (A6+0xc),A0 00023dfa 43 ee 00 08 |C | LEA.L (A6+0x8),A1 00023dfe 72 0c |r | MOVEQ.L #0x0c,D1 00023e00 59 4f |YO | SUBQ.L #0x4,A7 00023e02 2f 10 |/ | MOVE.L (A0),-(A7) 00023e04 2f 11 |/ | MOVE.L (A1),-(A7) 00023e06 4e ba df c8 |N | JSR 0x21dd0 00023e0a 50 4f |PO | ADDQ.L #0x8,A7 00023e0c 2a 1f |* | MOVE.L (A7)+,D5 00023e0e 2f 05 |/ | MOVE.L D5,-(A7) 00023e10 7c 01 || | MOVEQ.L #0x01,D6 00023e12 bc 97 | | CMP.L (A7),D6 00023e14 6e 46 |nF | BGT 0x23e5c 00023e16 55 4f |UO | SUBQ.L #0x2,A7 00023e18 2f 10 |/ | MOVE.L (A0),-(A7) 00023e1a 2f 11 |/ | MOVE.L (A1),-(A7) 00023e1c 2f 06 |/ | MOVE.L D6,-(A7) 00023e1e 4e ba fb 9c |N | JSR 0x239bc 00023e22 de c1 | | ADDA.W D1,A7 00023e24 10 1f | | MOVE.B (A7)+,D0 00023e26 0c 00 00 2f | / | CMPI.B #0x2f,D0 00023e2a 66 2c |f, | BNE 0x23e58 00023e2c 2f 05 |/ | MOVE.L D5,-(A7) 00023e2e 2e 06 |. | MOVE.L D6,D7 00023e30 be 97 | | CMP.L (A7),D7 00023e32 6e 1e |n | BGT 0x23e52 00023e34 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00023e38 55 4f |UO | SUBQ.L #0x2,A7 00023e3a 2f 10 |/ | MOVE.L (A0),-(A7) 00023e3c 2f 11 |/ | MOVE.L (A1),-(A7) 00023e3e 2f 07 |/ | MOVE.L D7,-(A7) 00023e40 4e ba fb 7a |N z | JSR 0x239bc 00023e44 de c1 | | ADDA.W D1,A7 00023e46 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023e4c 5c 4f |\O | ADDQ.L #0x6,A7 00023e4e 52 87 |R | ADDQ.L #0x1,D7 00023e50 68 de |h | BVC 0x23e30 00023e52 58 4f |XO | ADDQ.L #0x4,A7 00023e54 58 4f |XO | ADDQ.L #0x4,A7 00023e56 60 06 |` | BRA 0x23e5e 00023e58 52 86 |R | ADDQ.L #0x1,D6 00023e5a 68 b6 |h | BVC 0x23e12 00023e5c 58 4f |XO | ADDQ.L #0x4,A7 00023e5e 4c df 03 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1 00023e62 4e 5e |N^ | UNLK A6 00023e64 4e 75 |Nu | RTS 00023e66 ; -------------------------------------------------------------------------------------- 00023e66 ; OMSI PASCAL Function 00023e66 ; <LVAR 0x010 4(r)> 00023e66 ; <LVAR 0x00c 4(r)> 00023e66 ; <LVAR 0x008 4(r)> 00023e66 ; -------------------------------------------------------------------------------------- 00023e66 4e 56 ff ce |NV | LINK.W A6,#0xffce 00023e6a bf d5 | | CMPA.L (A5),A7 00023e6c 62 06 |b | BHI 0x23e74 00023e6e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023e72 4e 76 |Nv | TRAPV 00023e74 de fc 00 2a | * | ADDA.W #0x2a,A7 00023e78 48 e7 03 80 |H | MOVEM.L A0+D7+D6,-(A7) 00023e7c 20 6e 00 10 | n | MOVEA.L (A6+0x10),A0 00023e80 42 50 |BP | CLR.W (A0) 00023e82 59 4f |YO | SUBQ.L #0x4,A7 00023e84 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023e88 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023e8c 4e ba df 42 |N B | JSR 0x21dd0 00023e90 50 4f |PO | ADDQ.L #0x8,A7 00023e92 7e 01 |~ | MOVEQ.L #0x01,D7 00023e94 be 97 | | CMP.L (A7),D7 00023e96 6e 34 |n4 | BGT 0x23ecc 00023e98 55 4f |UO | SUBQ.L #0x2,A7 00023e9a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00023e9e 2f 2e 00 08 |/. | MOVE.L (A6+0x8),-(A7) 00023ea2 2f 07 |/ | MOVE.L D7,-(A7) 00023ea4 4e ba fb 16 |N | JSR 0x239bc 00023ea8 de fc 00 0c | | ADDA.W #0xc,A7 00023eac 1c 1f | | MOVE.B (A7)+,D6 00023eae 0c 06 00 2f | / | CMPI.B #0x2f,D6 00023eb2 67 10 |g | BEQ 0x23ec4 00023eb4 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00023eb8 1f 06 | | MOVE.B D6,-(A7) 00023eba 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 00023ec0 5c 4f |\O | ADDQ.L #0x6,A7 00023ec2 60 04 |` | BRA 0x23ec8 00023ec4 58 4f |XO | ADDQ.L #0x4,A7 00023ec6 60 06 |` | BRA 0x23ece 00023ec8 52 87 |R | ADDQ.L #0x1,D7 00023eca 68 c8 |h | BVC 0x23e94 00023ecc 58 4f |XO | ADDQ.L #0x4,A7 00023ece 4c df 01 c0 |L | MOVEM.L (A7)+,D6+D7+A0 00023ed2 4e 5e |N^ | UNLK A6 00023ed4 4e 75 |Nu | RTS 00023ed6 ; -------------------------------------------------------------------------------------- 00023ed6 ; OMSI PASCAL Function 00023ed6 ; -------------------------------------------------------------------------------------- 00023ed6 4e 56 ff c6 |NV | LINK.W A6,#0xffc6 00023eda bf d5 | | CMPA.L (A5),A7 00023edc 62 06 |b | BHI 0x23ee4 00023ede 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023ee2 4e 76 |Nv | TRAPV 00023ee4 de fc 00 3a | : | ADDA.W #0x3a,A7 00023ee8 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00023eec 41 fa cf b6 |A | LEA.L 0x20ea4,A0 00023ef0 70 10 |p | MOVEQ.L #0x10,D0 00023ef2 3f 20 |? | MOVE.W -(A0),-(A7) 00023ef4 51 c8 ff fc |Q | DBF D0,0x23ef2 00023ef8 59 4f |YO | SUBQ.L #0x4,A7 00023efa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023efe 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00023f02 3f 3c 00 22 |?< " | MOVE.W #0x22,-(A7) 00023f06 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023f0c 50 4f |PO | ADDQ.L #0x8,A7 00023f0e 4e ba d2 ae |N | JSR 0x211be 00023f12 de fc 00 26 | & | ADDA.W #0x26,A7 00023f16 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00023f1a 4e 5e |N^ | UNLK A6 00023f1c 4e 75 |Nu | RTS 00023f1e ; -------------------------------------------------------------------------------------- 00023f1e ; OMSI PASCAL Function 00023f1e ; <LVAR 0x00c 4(r)> 00023f1e ; <LVAR 0x008 4(r)> 00023f1e ; <LVAR -0x006 4(rw)> 00023f1e ; -------------------------------------------------------------------------------------- 00023f1e 4e 56 ff a0 |NV | LINK.W A6,#0xffa0 00023f22 bf d5 | | CMPA.L (A5),A7 00023f24 62 06 |b | BHI 0x23f2c 00023f26 44 fc 00 02 |D | MOVE.W #0x2,CCR 00023f2a 4e 76 |Nv | TRAPV 00023f2c de fc 00 58 | X | ADDA.W #0x58,A7 00023f30 48 e7 ff f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 00023f34 43 ee 00 0c |C | LEA.L (A6+0xc),A1 00023f38 45 f9 00 02 60 e4 |E ` | LEA.L 0x260e4,A2 00023f3e 47 fa d3 1a |G | LEA.L 0x2125a,A3 00023f42 72 30 |r0 | MOVEQ.L #0x30,D1 00023f44 74 39 |t9 | MOVEQ.L #0x39,D2 00023f46 76 25 |v% | MOVEQ.L #0x25,D3 00023f48 78 2d |x- | MOVEQ.L #0x2d,D4 00023f4a 2d 52 ff fa |-R | MOVE.L (A2),(A6-0x6) 00023f4e 55 4f |UO | SUBQ.L #0x2,A7 00023f50 4e 93 |N | JSR (A3) 00023f52 1e 1f | | MOVE.B (A7)+,D7 00023f54 be 03 | | CMP.B D3,D7 00023f56 66 08 |f | BNE 0x23f60 00023f58 20 51 | Q | MOVEA.L (A1),A0 00023f5a 42 90 |B | CLR.L (A0) 00023f5c 60 00 00 e2 |` | BRA 0x24040 00023f60 be 04 | | CMP.B D4,D7 00023f62 66 0c |f | BNE 0x23f70 00023f64 20 51 | Q | MOVEA.L (A1),A0 00023f66 20 bc 00 00 00 01 | | MOVE.L #0x1,(A0) 00023f6c 60 00 00 d2 |` | BRA 0x24040 00023f70 0c 07 00 2f | / | CMPI.B #0x2f,D7 00023f74 66 0c |f | BNE 0x23f82 00023f76 20 51 | Q | MOVEA.L (A1),A0 00023f78 20 bc 00 00 00 04 | | MOVE.L #0x4,(A0) 00023f7e 60 00 00 c0 |` | BRA 0x24040 00023f82 0c 07 00 3d | = | CMPI.B #0x3d,D7 00023f86 66 0c |f | BNE 0x23f94 00023f88 20 51 | Q | MOVEA.L (A1),A0 00023f8a 20 bc 00 00 00 05 | | MOVE.L #0x5,(A0) 00023f90 60 00 00 ae |` | BRA 0x24040 00023f94 0c 07 00 5c | \ | CMPI.B #0x5c,D7 00023f98 66 0c |f | BNE 0x23fa6 00023f9a 20 51 | Q | MOVEA.L (A1),A0 00023f9c 20 bc 00 00 00 06 | | MOVE.L #0x6,(A0) 00023fa2 60 00 00 9c |` | BRA 0x24040 00023fa6 4a 07 |J | TST.B D7 00023fa8 66 2c |f, | BNE 0x23fd6 00023faa 41 fa cf 10 |A | LEA.L 0x20ebc,A0 00023fae 70 05 |p | MOVEQ.L #0x05,D0 00023fb0 2f 20 |/ | MOVE.L -(A0),-(A7) 00023fb2 51 c8 ff fc |Q | DBF D0,0x23fb0 00023fb6 59 4f |YO | SUBQ.L #0x4,A7 00023fb8 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00023fbc 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00023fc0 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 00023fc4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00023fca 50 4f |PO | ADDQ.L #0x8,A7 00023fcc 4e ba d1 f0 |N | JSR 0x211be 00023fd0 de fc 00 1c | | ADDA.W #0x1c,A7 00023fd4 60 6a |`j | BRA 0x24040 00023fd6 be 01 | | CMP.B D1,D7 00023fd8 65 2c |e, | BCS 0x24006 00023fda be 02 | | CMP.B D2,D7 00023fdc 62 28 |b( | BHI 0x24006 00023fde 20 51 | Q | MOVEA.L (A1),A0 00023fe0 20 bc 00 00 00 02 | | MOVE.L #0x2,(A0) 00023fe6 55 4f |UO | SUBQ.L #0x2,A7 00023fe8 4e ba d2 32 |N 2 | JSR 0x2121c 00023fec 1e 1f | | MOVE.B (A7)+,D7 00023fee be 01 | | CMP.B D1,D7 00023ff0 65 0a |e | BCS 0x23ffc 00023ff2 be 02 | | CMP.B D2,D7 00023ff4 62 06 |b | BHI 0x23ffc 00023ff6 55 4f |UO | SUBQ.L #0x2,A7 00023ff8 4e 93 |N | JSR (A3) 00023ffa 1c 1f | | MOVE.B (A7)+,D6 00023ffc be 01 | | CMP.B D1,D7 00023ffe 65 04 |e | BCS 0x24004 00024000 be 02 | | CMP.B D2,D7 00024002 63 e2 |c | BLS 0x23fe6 00024004 60 3a |`: | BRA 0x24040 00024006 20 51 | Q | MOVEA.L (A1),A0 00024008 20 bc 00 00 00 03 | | MOVE.L #0x3,(A0) 0002400e 7a 00 |z | MOVEQ.L #0x00,D5 00024010 55 4f |UO | SUBQ.L #0x2,A7 00024012 4e ba d2 08 |N | JSR 0x2121c 00024016 1e 1f | | MOVE.B (A7)+,D7 00024018 be 03 | | CMP.B D3,D7 0002401a 67 16 |g | BEQ 0x24032 0002401c be 04 | | CMP.B D4,D7 0002401e 67 12 |g | BEQ 0x24032 00024020 0c 07 00 2f | / | CMPI.B #0x2f,D7 00024024 67 0c |g | BEQ 0x24032 00024026 0c 07 00 3d | = | CMPI.B #0x3d,D7 0002402a 67 06 |g | BEQ 0x24032 0002402c 0c 07 00 5c | \ | CMPI.B #0x5c,D7 00024030 66 04 |f | BNE 0x24036 00024032 7a 01 |z | MOVEQ.L #0x01,D5 00024034 60 06 |` | BRA 0x2403c 00024036 55 4f |UO | SUBQ.L #0x2,A7 00024038 4e 93 |N | JSR (A3) 0002403a 1c 1f | | MOVE.B (A7)+,D6 0002403c 4a 05 |J | TST.B D5 0002403e 67 d0 |g | BEQ 0x24010 00024040 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024044 20 ae ff fa | | MOVE.L (A6-0x6),(A0) 00024048 21 52 00 04 |!R | MOVE.L (A2),(A0+0x4) 0002404c 53 a8 00 04 |S | SUBQ.L #0x1,(A0+0x4) 00024050 4c df 0f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3 00024054 4e 5e |N^ | UNLK A6 00024056 4e 75 |Nu | RTS 00024058 ; -------------------------------------------------------------------------------------- 00024058 ; OMSI PASCAL Function 00024058 ; <LVAR 0x00c 4(r)> 00024058 ; <LVAR 0x008 4(r)> 00024058 ; -------------------------------------------------------------------------------------- 00024058 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 0002405c bf d5 | | CMPA.L (A5),A7 0002405e 62 06 |b | BHI 0x24066 00024060 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024064 4e 76 |Nv | TRAPV 00024066 de fc 00 34 | 4 | ADDA.W #0x34,A7 0002406a 48 e7 c7 e0 |H | MOVEM.L A2+A1+A0+D7+D6+D5+D1+D0,-(A7) 0002406e 45 ee 00 0c |E | LEA.L (A6+0xc),A2 00024072 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024076 2f 08 |/ | MOVE.L A0,-(A7) 00024078 2c 39 00 02 60 e4 |,9 ` | MOVE.L 0x260e4,D6 0002407e 9c 92 | | SUB.L (A2),D6 00024080 2a 12 |* | MOVE.L (A2),D5 00024082 da 86 | | ADD.L D6,D5 00024084 30 10 |0 | MOVE.W (A0),D0 00024086 48 c0 |H | EXTW.L D0 00024088 b0 86 | | CMP.L D6,D0 0002408a 67 0c |g | BEQ 0x24098 0002408c 2f 05 |/ | MOVE.L D5,-(A7) 0002408e 2f 06 |/ | MOVE.L D6,-(A7) 00024090 91 97 | | SUB.L D0,(A7) 00024092 4e ba d6 7e |N ~ | JSR 0x21712 00024096 50 4f |PO | ADDQ.L #0x8,A7 00024098 2f 00 |/ | MOVE.L D0,-(A7) 0002409a 7e 01 |~ | MOVEQ.L #0x01,D7 0002409c be 97 | | CMP.L (A7),D7 0002409e 6e 34 |n4 | BGT 0x240d4 000240a0 20 12 | | MOVE.L (A2),D0 000240a2 d0 87 | | ADD.L D7,D0 000240a4 53 80 |S | SUBQ.L #0x1,D0 000240a6 53 80 |S | SUBQ.L #0x1,D0 000240a8 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 000240ae 63 02 |c | BLS 0x240b2 000240b0 4e 4f |NO | TRAP #15 000240b2 41 f9 00 02 50 dc |A P | LEA.L 0x250dc,A0 000240b8 22 07 |" | MOVE.L D7,D1 000240ba 53 81 |S | SUBQ.L #0x1,D1 000240bc 0c 81 00 00 00 7d | } | CMPI.L #0x0000007d,D1 000240c2 63 02 |c | BLS 0x240c6 000240c4 4e 4f |NO | TRAP #15 000240c6 22 6f 00 04 |"o | MOVEA.L (A7+0x4),A1 000240ca 11 b1 18 02 08 08 | | MOVE.B (A1+D1.L+#0x2),(A0+D0.L+#0x8) 000240d0 52 87 |R | ADDQ.L #0x1,D7 000240d2 68 c8 |h | BVC 0x2409c 000240d4 50 4f |PO | ADDQ.L #0x8,A7 000240d6 4c df 07 e3 |L | MOVEM.L (A7)+,D0+D1+D5+D6+D7+A0+A1+A2 000240da 4e 5e |N^ | UNLK A6 000240dc 4e 75 |Nu | RTS 000240de ; -------------------------------------------------------------------------------------- 000240de ; OMSI PASCAL Function 000240de ; <LVAR 0x00c 4(r)> 000240de ; <LVAR 0x008 4(r)> 000240de ; <LVAR -0x008 @ 4(r)> 000240de ; <LVAR -0x00c @ 4(r)> 000240de ; <LVAR -0x010 4(r)> 000240de ; <LVAR -0x014 @ 4(r)> 000240de ; <LVAR -0x018 4(rw)> 000240de ; <LVAR -0x01c 4(rw)> 000240de ; <LVAR -0x020 4(rw)> 000240de ; <LVAR -0x024 4(rw)> 000240de ; <LVAR -0x028 4(rw)> 000240de ; <LVAR -0x034 4(rw)> 000240de ; -------------------------------------------------------------------------------------- 000240de 4e 56 ff 70 |NV p | LINK.W A6,#0xff70 000240e2 bf d5 | | CMPA.L (A5),A7 000240e4 62 06 |b | BHI 0x240ec 000240e6 44 fc 00 02 |D | MOVE.W #0x2,CCR 000240ea 4e 76 |Nv | TRAPV 000240ec de fc 00 5c | \ | ADDA.W #0x5c,A7 000240f0 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000240f4 43 ee ff f8 |C | LEA.L (A6-0x8),A1 000240f8 45 ee ff ec |E | LEA.L (A6-0x14),A2 000240fc 47 ee ff dc |G | LEA.L (A6-0x24),A3 00024100 49 ee ff e0 |I | LEA.L (A6-0x20),A4 00024104 74 14 |t | MOVEQ.L #0x14,D2 00024106 2d 79 00 02 60 e4 ff d8 |-y ` | MOVE.L 0x260e4,(A6-0x28) 0002410e 48 51 |HQ | PEA.L (A1) 00024110 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 00024116 58 4f |XO | ADDQ.L #0x4,A7 00024118 48 6e ff f4 |Hn | PEA.L (A6-0xc) 0002411c 48 52 |HR | PEA.L (A2) 0002411e 4e ba fd fe |N | JSR 0x23f1e 00024122 50 4f |PO | ADDQ.L #0x8,A7 00024124 42 ae ff cc |B | CLR.L (A6-0x34) 00024128 7e 00 |~ | MOVEQ.L #0x00,D7 0002412a 20 2e ff cc | . | MOVE.L (A6-0x34),D0 0002412e b0 82 | | CMP.L D2,D0 00024130 63 02 |c | BLS 0x24134 00024132 4e 4e |NN | TRAP #14 00024134 d0 40 | @ | ADD.W D0,D0 00024136 30 3b 00 06 4e fb 00 02 |0; N | SWITCH D0.W 0002413e 00 2a | * | .CONST 0x2a ; [0x0] -> 0x24168 00024140 00 34 | 4 | .CONST 0x34 ; [0x1] -> 0x24172 00024142 00 48 | H | .CONST 0x48 ; [0x2] -> 0x24186 00024144 00 64 | d | .CONST 0x64 ; [0x3] -> 0x241a2 00024146 00 68 | h | .CONST 0x68 ; [0x4] -> 0x241a6 00024148 00 76 | v | .CONST 0x76 ; [0x5] -> 0x241b4 0002414a 00 8a | | .CONST 0x8a ; [0x6] -> 0x241c8 0002414c 00 90 | | .CONST 0x90 ; [0x7] -> 0x241ce 0002414e 00 92 | | .CONST 0x92 ; [0x8] -> 0x241d0 00024150 00 a8 | | .CONST 0xa8 ; [0x9] -> 0x241e6 00024152 00 b6 | | .CONST 0xb6 ; [0xa] -> 0x241f4 00024154 00 ce | | .CONST 0xce ; [0xb] -> 0x2420c 00024156 00 e2 | | .CONST 0xe2 ; [0xc] -> 0x24220 00024158 00 f6 | | .CONST 0xf6 ; [0xd] -> 0x24234 0002415a 01 0c | | .CONST 0x10c ; [0xe] -> 0x2424a 0002415c 01 0e | | .CONST 0x10e ; [0xf] -> 0x2424c 0002415e 01 28 | ( | .CONST 0x128 ; [0x10] -> 0x24266 00024160 01 3e | > | .CONST 0x13e ; [0x11] -> 0x2427c 00024162 01 4c | L | .CONST 0x14c ; [0x12] -> 0x2428a 00024164 01 4e | N | .CONST 0x14e ; [0x13] -> 0x2428c 00024166 01 50 | P | .CONST 0x150 ; [0x14] -> 0x2428e 00024168 switch@0x24136[0x0]: 00024168 7c 00 || | MOVEQ.L #0x00,D6 0002416a 2a 2e 00 08 |*. | MOVE.L (A6+0x8),D5 0002416e 60 00 01 48 |` H | BRA 0x242b8 00024172 switch@0x24136[0x1]: 00024172 59 4f |YO | SUBQ.L #0x4,A7 00024174 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00024178 2f 12 |/ | MOVE.L (A2),-(A7) 0002417a 4e ba f8 80 |N | JSR 0x239fc 0002417e 50 4f |PO | ADDQ.L #0x8,A7 00024180 2c 1f |, | MOVE.L (A7)+,D6 00024182 60 00 01 34 |` 4 | BRA 0x242b8 00024186 switch@0x24136[0x2]: 00024186 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 0002418a 2f 06 |/ | MOVE.L D6,-(A7) 0002418c 2f 06 |/ | MOVE.L D6,-(A7) 0002418e 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024192 4e ba f8 e4 |N | JSR 0x23a78 00024196 de fc 00 10 | | ADDA.W #0x10,A7 0002419a 60 00 01 78 |` x | BRA 0x24314 0002419e 60 00 |` | .XXX[0x2] 000241a0 01 18 | | .XXX[0x2] 000241a2 switch@0x24136[0x3]: 000241a2 60 00 01 14 |` | BRA 0x242b8 000241a6 switch@0x24136[0x4]: 000241a6 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 000241aa 2f 06 |/ | MOVE.L D6,-(A7) 000241ac 2f 05 |/ | MOVE.L D5,-(A7) 000241ae 60 de |` | BRA 0x2418e 000241b0 60 00 01 06 |` | .XXX[0x4] 000241b4 switch@0x24136[0x5]: 000241b4 59 4f |YO | SUBQ.L #0x4,A7 000241b6 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 000241ba 2f 12 |/ | MOVE.L (A2),-(A7) 000241bc 4e ba f8 3e |N > | JSR 0x239fc 000241c0 50 4f |PO | ADDQ.L #0x8,A7 000241c2 2a 1f |* | MOVE.L (A7)+,D5 000241c4 60 00 00 f2 |` | BRA 0x242b8 000241c8 switch@0x24136[0x6]: 000241c8 7c 01 || | MOVEQ.L #0x01,D6 000241ca 60 00 00 ec |` | BRA 0x242b8 000241ce switch@0x24136[0x7]: 000241ce 60 e4 |` | BRA switch@0x24136[0x5] 000241d0 switch@0x24136[0x8]: 000241d0 51 4f |QO | SUBQ.L #0x8,A7 000241d2 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 000241d6 2f 06 |/ | MOVE.L D6,-(A7) 000241d8 4e ba dc 2e |N . | JSR 0x21e08 000241dc 50 4f |PO | ADDQ.L #0x8,A7 000241de 26 9f |& | MOVE.L (A7)+,(A3) 000241e0 28 9f |( | MOVE.L (A7)+,(A4) 000241e2 60 00 00 d4 |` | BRA 0x242b8 000241e6 switch@0x24136[0x9]: 000241e6 2d 52 ff e4 |-R | MOVE.L (A2),(A6-0x1c) 000241ea 2d 6e ff f0 ff e8 |-n | MOVE.L (A6-0x10),(A6-0x18) 000241f0 60 00 00 c6 |` | BRA 0x242b8 000241f4 switch@0x24136[0xa]: 000241f4 2f 11 |/ | MOVE.L (A1),-(A7) 000241f6 2f 14 |/ | MOVE.L (A4),-(A7) 000241f8 2f 13 |/ | MOVE.L (A3),-(A7) 000241fa 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 000241fe 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00024202 4e ba fb 26 |N & | JSR 0x23d2a 00024206 de c2 | | ADDA.W D2,A7 00024208 60 00 00 ae |` | BRA 0x242b8 0002420c switch@0x24136[0xb]: 0002420c 2f 11 |/ | MOVE.L (A1),-(A7) 0002420e 2f 14 |/ | MOVE.L (A4),-(A7) 00024210 2f 13 |/ | MOVE.L (A3),-(A7) 00024212 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 00024216 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 0002421a 4e ba fa 7a |N z | JSR 0x23c96 0002421e 60 e6 |` | BRA 0x24206 00024220 switch@0x24136[0xc]: 00024220 2f 11 |/ | MOVE.L (A1),-(A7) 00024222 2f 14 |/ | MOVE.L (A4),-(A7) 00024224 2f 13 |/ | MOVE.L (A3),-(A7) 00024226 4e ba fb b8 |N | JSR 0x23de0 0002422a de fc 00 0c | | ADDA.W #0xc,A7 0002422e 7e 01 |~ | MOVEQ.L #0x01,D7 00024230 60 00 00 86 |` | BRA 0x242b8 00024234 switch@0x24136[0xd]: 00024234 2f 11 |/ | MOVE.L (A1),-(A7) 00024236 2f 14 |/ | MOVE.L (A4),-(A7) 00024238 2f 13 |/ | MOVE.L (A3),-(A7) 0002423a 2f 2e ff e8 |/. | MOVE.L (A6-0x18),-(A7) 0002423e 2f 2e ff e4 |/. | MOVE.L (A6-0x1c),-(A7) 00024242 4e ba fa 52 |N R | JSR 0x23c96 00024246 de c2 | | ADDA.W D2,A7 00024248 60 e4 |` | BRA 0x2422e 0002424a switch@0x24136[0xe]: 0002424a 60 e2 |` | BRA 0x2422e 0002424c switch@0x24136[0xf]: 0002424c 2f 11 |/ | MOVE.L (A1),-(A7) 0002424e 51 4f |QO | SUBQ.L #0x8,A7 00024250 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 00024254 2f 06 |/ | MOVE.L D6,-(A7) 00024256 4e ba db b0 |N | JSR 0x21e08 0002425a 50 4f |PO | ADDQ.L #0x8,A7 0002425c 4e ba fb 82 |N | JSR 0x23de0 00024260 de fc 00 0c | | ADDA.W #0xc,A7 00024264 60 52 |`R | BRA 0x242b8 00024266 switch@0x24136[0x10]: 00024266 2f 11 |/ | MOVE.L (A1),-(A7) 00024268 51 4f |QO | SUBQ.L #0x8,A7 0002426a 2f 2e 00 0c |/. | MOVE.L (A6+0xc),-(A7) 0002426e 2f 06 |/ | MOVE.L D6,-(A7) 00024270 4e ba db 96 |N | JSR 0x21e08 00024274 50 4f |PO | ADDQ.L #0x8,A7 00024276 4e ba fb ee |N | JSR 0x23e66 0002427a 60 ae |` | BRA 0x2422a 0002427c switch@0x24136[0x11]: 0002427c 2f 11 |/ | MOVE.L (A1),-(A7) 0002427e 2f 2e ff f0 |/. | MOVE.L (A6-0x10),-(A7) 00024282 2f 12 |/ | MOVE.L (A2),-(A7) 00024284 4e ba fc 50 |N P | JSR 0x23ed6 00024288 60 d6 |` | BRA 0x24260 0002428a switch@0x24136[0x12]: 0002428a 60 2c |`, | BRA 0x242b8 0002428c switch@0x24136[0x13]: 0002428c 60 a0 |` | BRA 0x2422e 0002428e switch@0x24136[0x14]: 0002428e 41 fa cc 44 |A D | LEA.L 0x20ed4,A0 00024292 70 05 |p | MOVEQ.L #0x05,D0 00024294 2f 20 |/ | MOVE.L -(A0),-(A7) 00024296 51 c8 ff fc |Q | DBF D0,0x24294 0002429a 59 4f |YO | SUBQ.L #0x4,A7 0002429c 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000242a0 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000242a4 3f 3c 00 18 |?< | MOVE.W #0x18,-(A7) 000242a8 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000242ae 50 4f |PO | ADDQ.L #0x8,A7 000242b0 4e ba cf 0c |N | JSR 0x211be 000242b4 de fc 00 1c | | ADDA.W #0x1c,A7 000242b8 4a 07 |J | TST.B D7 000242ba 66 46 |fF | BNE 0x24302 000242bc 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000242c0 48 52 |HR | PEA.L (A2) 000242c2 4e ba fc 5a |N Z | JSR 0x23f1e 000242c6 50 4f |PO | ADDQ.L #0x8,A7 000242c8 20 2e ff cc | . | MOVE.L (A6-0x34),D0 000242cc 0c 80 00 00 00 13 | | CMPI.L #0x00000013,D0 000242d2 63 02 |c | BLS 0x242d6 000242d4 4e 4f |NO | TRAP #15 000242d6 28 00 |( | MOVE.L D0,D4 000242d8 76 07 |v | MOVEQ.L #0x07,D3 000242da 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 000242e0 41 fa ce 0e |A | LEA.L 0x210f0,A0 000242e4 20 2e ff f4 | . | MOVE.L (A6-0xc),D0 000242e8 0c 80 00 00 00 06 | | CMPI.L #0x00000006,D0 000242ee 63 02 |c | BLS 0x242f2 000242f0 4e 4f |NO | TRAP #15 000242f2 41 f0 48 00 |A H | LEA.L (A0+D4.L),A0 000242f6 12 30 08 00 | 0 | MOVE.B (A0+D0.L),D1 000242fa 48 81 |H | EXTB.W D1 000242fc 48 c1 |H | EXTW.L D1 000242fe 2d 41 ff cc |-A | MOVE.L D1,(A6-0x34) 00024302 4a 07 |J | TST.B D7 00024304 67 00 fe 24 |g $ | BEQ 0x2412a 00024308 2f 2e ff d8 |/. | MOVE.L (A6-0x28),-(A7) 0002430c 2f 11 |/ | MOVE.L (A1),-(A7) 0002430e 4e ba fd 48 |N H | JSR 0x24058 00024312 50 4f |PO | ADDQ.L #0x8,A7 00024314 48 51 |HQ | PEA.L (A1) 00024316 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002431c 58 4f |XO | ADDQ.L #0x4,A7 0002431e 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 00024322 4e 5e |N^ | UNLK A6 00024324 4e 75 |Nu | RTS 00024326 ; -------------------------------------------------------------------------------------- 00024326 ; OMSI PASCAL Function 00024326 ; <LVAR 0x014 4(rw)> 00024326 ; <LVAR 0x010 4(r)> 00024326 ; <LVAR 0x00c 4(r)> 00024326 ; <LVAR 0x008 4(r)> 00024326 ; <LVAR -0x008 4(rw)> 00024326 ; <LVAR -0x00c 4(rw)> 00024326 ; <LVAR -0x018 4(w)> 00024326 ; -------------------------------------------------------------------------------------- 00024326 4e 56 ff 96 |NV | LINK.W A6,#0xff96 0002432a bf d5 | | CMPA.L (A5),A7 0002432c 62 06 |b | BHI 0x24334 0002432e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024332 4e 76 |Nv | TRAPV 00024334 de fc 00 52 | R | ADDA.W #0x52,A7 00024338 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 0002433c 43 ee ff f8 |C | LEA.L (A6-0x8),A1 00024340 45 ee 00 10 |E | LEA.L (A6+0x10),A2 00024344 47 ee 00 0c |G | LEA.L (A6+0xc),A3 00024348 49 ee ff f4 |I | LEA.L (A6-0xc),A4 0002434c 74 0c |t | MOVEQ.L #0x0c,D2 0002434e 42 ae 00 14 |B | CLR.L (A6+0x14) 00024352 59 4f |YO | SUBQ.L #0x4,A7 00024354 2f 12 |/ | MOVE.L (A2),-(A7) 00024356 2f 13 |/ | MOVE.L (A3),-(A7) 00024358 4e ba da 76 |N v | JSR 0x21dd0 0002435c 50 4f |PO | ADDQ.L #0x8,A7 0002435e 28 9f |( | MOVE.L (A7)+,(A4) 00024360 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024364 30 10 |0 | MOVE.W (A0),D0 00024366 48 c0 |H | EXTW.L D0 00024368 52 80 |R | ADDQ.L #0x1,D0 0002436a 22 80 |" | MOVE.L D0,(A1) 0002436c 44 80 |D | NEG.L D0 0002436e d0 94 | | ADD.L (A4),D0 00024370 52 80 |R | ADDQ.L #0x1,D0 00024372 2f 00 |/ | MOVE.L D0,-(A7) 00024374 70 01 |p | MOVEQ.L #0x01,D0 00024376 b0 97 | | CMP.L (A7),D0 00024378 6e 00 00 9a |n | BGT 0x24414 0002437c 2d 40 ff e8 |-@ | MOVE.L D0,(A6-0x18) 00024380 2f 00 |/ | MOVE.L D0,-(A7) 00024382 7c 00 || | MOVEQ.L #0x00,D6 00024384 2f 11 |/ | MOVE.L (A1),-(A7) 00024386 7a 01 |z | MOVEQ.L #0x01,D5 00024388 ba 97 | | CMP.L (A7),D5 0002438a 6e 48 |nH | BGT 0x243d4 0002438c 0c 85 00 00 00 01 | | CMPI.L #0x00000001,D5 00024392 66 04 |f | BNE 0x24398 00024394 7e 2f |~/ | MOVEQ.L #0x2f,D7 00024396 60 18 |` | BRA 0x243b0 00024398 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 0002439c 20 05 | | MOVE.L D5,D0 0002439e 53 80 |S | SUBQ.L #0x1,D0 000243a0 53 80 |S | SUBQ.L #0x1,D0 000243a2 0c 80 00 00 00 7d | } | CMPI.L #0x0000007d,D0 000243a8 63 02 |c | BLS 0x243ac 000243aa 4e 4f |NO | TRAP #15 000243ac 1e 30 08 02 | 0 | MOVE.B (A0+D0.L+#0x2),D7 000243b0 55 4f |UO | SUBQ.L #0x2,A7 000243b2 2f 12 |/ | MOVE.L (A2),-(A7) 000243b4 2f 13 |/ | MOVE.L (A3),-(A7) 000243b6 20 2f 00 0e | / | MOVE.L (A7+0xe),D0 000243ba d0 85 | | ADD.L D5,D0 000243bc 53 80 |S | SUBQ.L #0x1,D0 000243be 2f 00 |/ | MOVE.L D0,-(A7) 000243c0 4e ba f5 fa |N | JSR 0x239bc 000243c4 de c2 | | ADDA.W D2,A7 000243c6 be 1f | | CMP.B (A7)+,D7 000243c8 67 04 |g | BEQ 0x243ce 000243ca 58 4f |XO | ADDQ.L #0x4,A7 000243cc 60 08 |` | BRA 0x243d6 000243ce 2c 05 |, | MOVE.L D5,D6 000243d0 52 85 |R | ADDQ.L #0x1,D5 000243d2 68 b4 |h | BVC 0x24388 000243d4 58 4f |XO | ADDQ.L #0x4,A7 000243d6 bc 91 | | CMP.L (A1),D6 000243d8 66 32 |f2 | BNE 0x2440c 000243da 20 17 | | MOVE.L (A7),D0 000243dc 22 00 |" | MOVE.L D0,D1 000243de d2 91 | | ADD.L (A1),D1 000243e0 b2 94 | | CMP.L (A4),D1 000243e2 6c 26 |l& | BGE 0x2440a 000243e4 55 4f |UO | SUBQ.L #0x2,A7 000243e6 2f 12 |/ | MOVE.L (A2),-(A7) 000243e8 2f 13 |/ | MOVE.L (A3),-(A7) 000243ea 2f 01 |/ | MOVE.L D1,-(A7) 000243ec 4e ba f5 ce |N | JSR 0x239bc 000243f0 de c2 | | ADDA.W D2,A7 000243f2 1e 1f | | MOVE.B (A7)+,D7 000243f4 0c 07 00 2f | / | CMPI.B #0x2f,D7 000243f8 67 06 |g | BEQ 0x24400 000243fa 0c 07 00 3d | = | CMPI.B #0x3d,D7 000243fe 66 08 |f | BNE 0x24408 00024400 2d 40 00 14 |-@ | MOVE.L D0,(A6+0x14) 00024404 50 4f |PO | ADDQ.L #0x8,A7 00024406 60 0e |` | BRA 0x24416 00024408 60 02 |` | BRA 0x2440c 0002440a 60 f4 |` | BRA 0x24400 0002440c 20 1f | | MOVE.L (A7)+,D0 0002440e 52 80 |R | ADDQ.L #0x1,D0 00024410 68 00 ff 64 |h d | BVC 0x24376 00024414 58 4f |XO | ADDQ.L #0x4,A7 00024416 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 0002441a 4e 5e |N^ | UNLK A6 0002441c 4e 75 |Nu | RTS 0002441e ; -------------------------------------------------------------------------------------- 0002441e ; OMSI PASCAL Function 0002441e ; <LVAR 0x018 4(r)> 0002441e ; <LVAR 0x014 4(r)> 0002441e ; <LVAR 0x010 4(r)> 0002441e ; <LVAR 0x00c 4(r)> 0002441e ; <LVAR 0x008 4(r)> 0002441e ; <LVAR -0x008 4(rw)> 0002441e ; <LVAR -0x014 4(rw)> 0002441e ; <LVAR -0x018 4(rw)> 0002441e ; <LVAR -0x01c 4(rw)> 0002441e ; -------------------------------------------------------------------------------------- 0002441e 4e 56 ff 8e |NV | LINK.W A6,#0xff8e 00024422 bf d5 | | CMPA.L (A5),A7 00024424 62 06 |b | BHI 0x2442c 00024426 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002442a 4e 76 |Nv | TRAPV 0002442c de fc 00 56 | V | ADDA.W #0x56,A7 00024430 48 e7 e7 f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D2+D1+D0,-(A7) 00024434 45 ee ff e4 |E | LEA.L (A6-0x1c),A2 00024438 47 ee ff e8 |G | LEA.L (A6-0x18),A3 0002443c 49 ee ff f8 |I | LEA.L (A6-0x8),A4 00024440 72 0c |r | MOVEQ.L #0x0c,D1 00024442 74 01 |t | MOVEQ.L #0x01,D2 00024444 20 6e 00 08 | n | MOVEA.L (A6+0x8),A0 00024448 42 10 |B | CLR.B (A0) 0002444a 22 6e 00 0c |"n | MOVEA.L (A6+0xc),A1 0002444e 22 82 |" | MOVE.L D2,(A1) 00024450 51 4f |QO | SUBQ.L #0x8,A7 00024452 2f 2e 00 18 |/. | MOVE.L (A6+0x18),-(A7) 00024456 2f 2e 00 14 |/. | MOVE.L (A6+0x14),-(A7) 0002445a 4e ba d9 ac |N | JSR 0x21e08 0002445e 50 4f |PO | ADDQ.L #0x8,A7 00024460 24 9f |$ | MOVE.L (A7)+,(A2) 00024462 26 9f |& | MOVE.L (A7)+,(A3) 00024464 4a 92 |J | TST.L (A2) 00024466 67 00 00 96 |g | BEQ 0x244fe 0002446a 59 4f |YO | SUBQ.L #0x4,A7 0002446c 2f 13 |/ | MOVE.L (A3),-(A7) 0002446e 2f 12 |/ | MOVE.L (A2),-(A7) 00024470 2f 2e 00 10 |/. | MOVE.L (A6+0x10),-(A7) 00024474 4e ba fe b0 |N | JSR 0x24326 00024478 de c1 | | ADDA.W D1,A7 0002447a 2d 5f ff ec |-_ | MOVE.L (A7)+,(A6-0x14) 0002447e 67 7e |g~ | BEQ 0x244fe 00024480 10 82 | | MOVE.B D2,(A0) 00024482 48 51 |HQ | PEA.L (A1) 00024484 4e b9 00 01 02 b8 |N | JSR NewString(VAR a : String) 0002448a 2f 13 |/ | MOVE.L (A3),-(A7) 0002448c 2f 12 |/ | MOVE.L (A2),-(A7) 0002448e 4e ba d9 40 |N @ | JSR 0x21dd0 00024492 50 4f |PO | ADDQ.L #0x8,A7 00024494 28 9f |( | MOVE.L (A7)+,(A4) 00024496 20 2e ff ec | . | MOVE.L (A6-0x14),D0 0002449a 52 80 |R | ADDQ.L #0x1,D0 0002449c 2f 14 |/ | MOVE.L (A4),-(A7) 0002449e 2a 00 |* | MOVE.L D0,D5 000244a0 ba 97 | | CMP.L (A7),D5 000244a2 6e 58 |nX | BGT 0x244fc 000244a4 55 4f |UO | SUBQ.L #0x2,A7 000244a6 2f 13 |/ | MOVE.L (A3),-(A7) 000244a8 2f 12 |/ | MOVE.L (A2),-(A7) 000244aa 2f 05 |/ | MOVE.L D5,-(A7) 000244ac 4e ba f5 0e |N | JSR 0x239bc 000244b0 de c1 | | ADDA.W D1,A7 000244b2 10 1f | | MOVE.B (A7)+,D0 000244b4 0c 00 00 3d | = | CMPI.B #0x3d,D0 000244b8 66 3e |f> | BNE 0x244f8 000244ba 20 05 | | MOVE.L D5,D0 000244bc 52 80 |R | ADDQ.L #0x1,D0 000244be 2f 14 |/ | MOVE.L (A4),-(A7) 000244c0 2e 00 |. | MOVE.L D0,D7 000244c2 be 97 | | CMP.L (A7),D7 000244c4 6e 2e |n. | BGT 0x244f4 000244c6 55 4f |UO | SUBQ.L #0x2,A7 000244c8 2f 13 |/ | MOVE.L (A3),-(A7) 000244ca 2f 12 |/ | MOVE.L (A2),-(A7) 000244cc 2f 07 |/ | MOVE.L D7,-(A7) 000244ce 4e ba f4 ec |N | JSR 0x239bc 000244d2 de c1 | | ADDA.W D1,A7 000244d4 1c 1f | | MOVE.B (A7)+,D6 000244d6 0c 06 00 2f | / | CMPI.B #0x2f,D6 000244da 66 04 |f | BNE 0x244e0 000244dc 50 4f |PO | ADDQ.L #0x8,A7 000244de 60 1e |` | BRA 0x244fe 000244e0 20 6e 00 0c | n | MOVEA.L (A6+0xc),A0 000244e4 2f 10 |/ | MOVE.L (A0),-(A7) 000244e6 1f 06 | | MOVE.B D6,-(A7) 000244e8 4e b9 00 01 02 c0 |N | JSR AppendChar(MOD b : String; a : char) 000244ee 5c 4f |\O | ADDQ.L #0x6,A7 000244f0 52 87 |R | ADDQ.L #0x1,D7 000244f2 68 ce |h | BVC 0x244c2 000244f4 50 4f |PO | ADDQ.L #0x8,A7 000244f6 60 06 |` | BRA 0x244fe 000244f8 52 85 |R | ADDQ.L #0x1,D5 000244fa 68 a4 |h | BVC 0x244a0 000244fc 58 4f |XO | ADDQ.L #0x4,A7 000244fe 4c df 1f e7 |L | MOVEM.L (A7)+,D0+D1+D2+D5+D6+D7+A0+A1+A2+A3+A4 00024502 4e 5e |N^ | UNLK A6 00024504 4e 75 |Nu | RTS 00024506 ; -------------------------------------------------------------------------------------- 00024506 ; OMSI PASCAL Function 00024506 ; <LVAR 0x00c @ 4(r)> 00024506 ; <LVAR 0x008 4(r)> 00024506 ; <LVAR -0x010 @ 1(r)> 00024506 ; -------------------------------------------------------------------------------------- 00024506 4e 56 ff c0 |NV | LINK.W A6,#0xffc0 0002450a bf d5 | | CMPA.L (A5),A7 0002450c 62 06 |b | BHI 0x24514 0002450e 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024512 4e 76 |Nv | TRAPV 00024514 de fc 00 30 | 0 | ADDA.W #0x30,A7 00024518 48 e7 87 f0 |H | MOVEM.L A3+A2+A1+A0+D7+D6+D5+D0,-(A7) 0002451c 43 f9 00 02 60 e4 |C ` | LEA.L 0x260e4,A1 00024522 45 ee 00 08 |E | LEA.L (A6+0x8),A2 00024526 47 ee 00 0c |G | LEA.L (A6+0xc),A3 0002452a 2f 13 |/ | MOVE.L (A3),-(A7) 0002452c 2f 12 |/ | MOVE.L (A2),-(A7) 0002452e 48 6e ff f0 |Hn | PEA.L (A6-0x10) 00024532 4e b9 00 02 0a 00 |N | JSR 0x20a00 00024538 de fc 00 0c | | ADDA.W #0xc,A7 0002453c 4a 2e ff f0 |J. | TST.B (A6-0x10) 00024540 66 50 |fP | BNE 0x24592 00024542 2e 11 |. | MOVE.L (A1),D7 00024544 59 4f |YO | SUBQ.L #0x4,A7 00024546 2f 12 |/ | MOVE.L (A2),-(A7) 00024548 4e ba d0 80 |N | JSR 0x215ca 0002454c 58 4f |XO | ADDQ.L #0x4,A7 0002454e 2c 1f |, | MOVE.L (A7)+,D6 00024550 2f 13 |/ | MOVE.L (A3),-(A7) 00024552 2f 12 |/ | MOVE.L (A2),-(A7) 00024554 4e ba f3 2a |N * | JSR 0x23880 00024558 50 4f |PO | ADDQ.L #0x8,A7 0002455a 2a 11 |* | MOVE.L (A1),D5 0002455c 20 07 | | MOVE.L D7,D0 0002455e 53 80 |S | SUBQ.L #0x1,D0 00024560 0c 80 00 00 0f ff | | CMPI.L #0x00000fff,D0 00024566 63 02 |c | BLS 0x2456a 00024568 4e 4f |NO | TRAP #15 0002456a 41 f9 00 02 50 dc |A P | LEA.L 0x250dc,A0 00024570 10 30 08 08 | 0 | MOVE.B (A0+D0.L+#0x8),D0 00024574 0c 00 00 25 | % | CMPI.B #0x25,D0 00024578 66 0c |f | BNE 0x24586 0002457a 22 87 |" | MOVE.L D7,(A1) 0002457c 2f 12 |/ | MOVE.L (A2),-(A7) 0002457e 2f 06 |/ | MOVE.L D6,-(A7) 00024580 4e ba fb 5c |N \ | JSR 0x240de 00024584 50 4f |PO | ADDQ.L #0x8,A7 00024586 52 87 |R | ADDQ.L #0x1,D7 00024588 be b9 00 02 60 e8 | ` | CMP.L 0x260e8,D7 0002458e 6f cc |o | BLE 0x2455c 00024590 22 85 |" | MOVE.L D5,(A1) 00024592 48 53 |HS | PEA.L (A3) 00024594 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002459a 58 4f |XO | ADDQ.L #0x4,A7 0002459c 4c df 0f e1 |L | MOVEM.L (A7)+,D0+D5+D6+D7+A0+A1+A2+A3 000245a0 4e 5e |N^ | UNLK A6 000245a2 4e 75 |Nu | RTS 000245a4 ; -------------------------------------------------------------------------------------- 000245a4 ; OMSI PASCAL Function 000245a4 ; <LVAR -0x006 @ 4(r)> 000245a4 ; <LVAR -0x00a @ 4(rw)> 000245a4 ; <LVAR -0x00b 1(w)> 000245a4 ; <LVAR -0x00c @ 1(r)> 000245a4 ; -------------------------------------------------------------------------------------- 000245a4 4e 56 ff 94 |NV | LINK.W A6,#0xff94 000245a8 bf d5 | | CMPA.L (A5),A7 000245aa 62 06 |b | BHI 0x245b2 000245ac 44 fc 00 02 |D | MOVE.W #0x2,CCR 000245b0 4e 76 |Nv | TRAPV 000245b2 de fc 00 54 | T | ADDA.W #0x54,A7 000245b6 48 e7 ff f8 |H | MOVEM.L A4+A3+A2+A1+A0+D7+D6+D5+D4+D3+D2+D1+D0,-(A7) 000245ba 45 ee ff fa |E | LEA.L (A6-0x6),A2 000245be 47 f9 00 02 60 e4 |G ` | LEA.L 0x260e4,A3 000245c4 49 ee ff f6 |I | LEA.L (A6-0xa),A4 000245c8 2e 13 |. | MOVE.L (A3),D7 000245ca 48 52 |HR | PEA.L (A2) 000245cc 48 6e ff f4 |Hn | PEA.L (A6-0xc) 000245d0 4e ba cf 4c |N L | JSR 0x2151e 000245d4 50 4f |PO | ADDQ.L #0x8,A7 000245d6 2c 13 |, | MOVE.L (A3),D6 000245d8 59 4f |YO | SUBQ.L #0x4,A7 000245da 2f 12 |/ | MOVE.L (A2),-(A7) 000245dc 4e ba cf ec |N | JSR 0x215ca 000245e0 58 4f |XO | ADDQ.L #0x4,A7 000245e2 20 1f | | MOVE.L (A7)+,D0 000245e4 0c 80 ff ff ff ff | | CMPI.L #0xffffffff,D0 000245ea 67 00 02 ac |g | BEQ 0x24898 000245ee 59 4f |YO | SUBQ.L #0x4,A7 000245f0 2f 12 |/ | MOVE.L (A2),-(A7) 000245f2 48 78 00 00 |Hx | PEA.L 0x0 000245f6 4e ba d8 ee |N | JSR 0x21ee6 000245fa 50 4f |PO | ADDQ.L #0x8,A7 000245fc 28 97 |( | MOVE.L (A7),(A4) 000245fe 54 4f |TO | ADDQ.L #0x2,A7 00024600 2f 14 |/ | MOVE.L (A4),-(A7) 00024602 4e ba f1 c4 |N | JSR 0x237c8 00024606 58 4f |XO | ADDQ.L #0x4,A7 00024608 10 1f | | MOVE.B (A7)+,D0 0002460a 48 80 |H | EXTB.W D0 0002460c 41 bc 00 2b |A + | CHK.W #0x2b,D0 00024610 1d 40 ff f5 | @ | MOVE.B D0,(A6-0xb) 00024614 4a 00 |J | TST.B D0 00024616 66 0e |f | BNE 0x24626 00024618 2f 14 |/ | MOVE.L (A4),-(A7) 0002461a 2f 12 |/ | MOVE.L (A2),-(A7) 0002461c 4e ba fe e8 |N | JSR 0x24506 00024620 50 4f |PO | ADDQ.L #0x8,A7 00024622 60 00 02 6c |` l | BRA 0x24890 00024626 48 54 |HT | PEA.L (A4) 00024628 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 0002462e 58 4f |XO | ADDQ.L #0x4,A7 00024630 12 00 | | MOVE.B D0,D1 00024632 48 81 |H | EXTB.W D1 00024634 43 bc 00 2b |C + | CHK.W #0x2b,D1 00024638 41 fa ca 86 |A | LEA.L 0x210c0,A0 0002463c 30 01 |0 | MOVE.W D1,D0 0002463e 48 c0 |H | EXTW.L D0 00024640 24 00 |$ | MOVE.L D0,D2 00024642 e2 9a | | ROR.L #0x1,D2 00024644 d0 c2 | | ADDA.W D2,A0 00024646 48 42 |HB | SWAP.W D2 00024648 e7 5a | Z | ROL.W #0x3,D2 0002464a 42 83 |B | CLR.L D3 0002464c 16 10 | | MOVE.B (A0),D3 0002464e e5 2b | + | LSL.B D2,D3 00024650 e8 0b | | LSR.B #0x4,D3 00024652 2a 03 |* | MOVE.L D3,D5 00024654 0c 85 00 00 00 0f | | CMPI.L #0x0000000f,D5 0002465a 67 2c |g, | BEQ 0x24688 0002465c 28 00 |( | MOVE.L D0,D4 0002465e 76 0a |v | MOVEQ.L #0x0a,D3 00024660 4e b9 00 01 02 8c |N | JSR ?muls_d3_d4 00024666 41 fa c8 8a |A | LEA.L COMMAND_TABLE_20ef2,A0 0002466a 9e fc 00 0a | | SUBA.W #0xa,A7 0002466e 22 4f |"O | MOVEA.L A7,A1 00024670 41 f0 40 00 |A @ | LEA.L (A0+D4.W),A0 00024674 70 09 |p | MOVEQ.L #0x09,D0 00024676 12 d8 | | MOVE.B (A0)+,(A1)+ 00024678 51 c8 ff fc |Q | DBF D0,0x24676 0002467c 2f 12 |/ | MOVE.L (A2),-(A7) 0002467e 2f 05 |/ | MOVE.L D5,-(A7) 00024680 4e ba cf 7e |N ~ | JSR 0x21600 00024684 de fc 00 12 | | ADDA.W #0x12,A7 00024688 53 41 |SA | SUBQ.W #0x1,D1 0002468a 0c 41 00 2a | A * | CMPI.W #0x002a,D1 0002468e 63 02 |c | BLS 0x24692 00024690 4e 4e |NN | TRAP #14 00024692 d2 41 | A | ADD.W D1,D1 00024694 32 3b 10 06 4e fb 10 02 |2; N | SWITCH D1.W 0002469c 00 56 | V | .CONST 0x56 ; [0x0] -> 0x246f2 0002469e 00 62 | b | .CONST 0x62 ; [0x1] -> 0x246fe 000246a0 00 74 | t | .CONST 0x74 ; [0x2] -> 0x24710 000246a2 00 82 | | .CONST 0x82 ; [0x3] -> 0x2471e 000246a4 01 e6 | | .CONST 0x1e6 ; [0x4] -> 0x24882 000246a6 00 8a | | .CONST 0x8a ; [0x5] -> 0x24726 000246a8 00 8e | | .CONST 0x8e ; [0x6] -> 0x2472a 000246aa 00 96 | | .CONST 0x96 ; [0x7] -> 0x24732 000246ac 00 9e | | .CONST 0x9e ; [0x8] -> 0x2473a 000246ae 00 a6 | | .CONST 0xa6 ; [0x9] -> 0x24742 000246b0 00 ae | | .CONST 0xae ; [0xa] -> 0x2474a 000246b2 00 b6 | | .CONST 0xb6 ; [0xb] -> 0x24752 000246b4 00 be | | .CONST 0xbe ; [0xc] -> 0x2475a 000246b6 00 c6 | | .CONST 0xc6 ; [0xd] -> 0x24762 000246b8 00 ce | | .CONST 0xce ; [0xe] -> 0x2476a 000246ba 00 d6 | | .CONST 0xd6 ; [0xf] -> 0x24772 000246bc 00 e0 | | .CONST 0xe0 ; [0x10] -> 0x2477c 000246be 00 ea | | .CONST 0xea ; [0x11] -> 0x24786 000246c0 00 f4 | | .CONST 0xf4 ; [0x12] -> 0x24790 000246c2 00 fe | | .CONST 0xfe ; [0x13] -> 0x2479a 000246c4 01 08 | | .CONST 0x108 ; [0x14] -> 0x247a4 000246c6 01 12 | | .CONST 0x112 ; [0x15] -> 0x247ae 000246c8 01 1c | | .CONST 0x11c ; [0x16] -> 0x247b8 000246ca 01 26 | & | .CONST 0x126 ; [0x17] -> 0x247c2 000246cc 01 30 | 0 | .CONST 0x130 ; [0x18] -> 0x247cc 000246ce 01 3a | : | .CONST 0x13a ; [0x19] -> 0x247d6 000246d0 01 44 | D | .CONST 0x144 ; [0x1a] -> 0x247e0 000246d2 01 4e | N | .CONST 0x14e ; [0x1b] -> 0x247ea 000246d4 01 58 | X | .CONST 0x158 ; [0x1c] -> 0x247f4 000246d6 01 62 | b | .CONST 0x162 ; [0x1d] -> 0x247fe 000246d8 01 6c | l | .CONST 0x16c ; [0x1e] -> 0x24808 000246da 01 76 | v | .CONST 0x176 ; [0x1f] -> 0x24812 000246dc 01 80 | | .CONST 0x180 ; [0x20] -> 0x2481c 000246de 01 8a | | .CONST 0x18a ; [0x21] -> 0x24826 000246e0 01 94 | | .CONST 0x194 ; [0x22] -> 0x24830 000246e2 01 9e | | .CONST 0x19e ; [0x23] -> 0x2483a 000246e4 01 a8 | | .CONST 0x1a8 ; [0x24] -> 0x24844 000246e6 01 b2 | | .CONST 0x1b2 ; [0x25] -> 0x2484e 000246e8 01 b8 | | .CONST 0x1b8 ; [0x26] -> 0x24854 000246ea 01 c2 | | .CONST 0x1c2 ; [0x27] -> 0x2485e 000246ec 01 cc | | .CONST 0x1cc ; [0x28] -> 0x24868 000246ee 01 d6 | | .CONST 0x1d6 ; [0x29] -> 0x24872 000246f0 01 dc | | .CONST 0x1dc ; [0x2a] -> 0x24878 000246f2 switch@0x24694[0x0]: 000246f2 2f 12 |/ | MOVE.L (A2),-(A7) 000246f4 4e ba d9 78 |N x | JSR 0x2206e 000246f8 58 4f |XO | ADDQ.L #0x4,A7 000246fa 60 00 01 94 |` | BRA 0x24890 000246fe switch@0x24694[0x1]: 000246fe 42 27 |B' | CLR.B -(A7) 00024700 48 78 00 01 |Hx | PEA.L 0x1 00024704 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002470a 5c 4f |\O | ADDQ.L #0x6,A7 0002470c 60 00 01 82 |` | BRA 0x24890 00024710 switch@0x24694[0x2]: 00024710 59 4f |YO | SUBQ.L #0x4,A7 00024712 4e b9 00 01 02 ac |N | JSR FSCALL_102ac 00024718 4e ba d9 2a |N * | JSR 0x22044 0002471c 60 da |` | BRA 0x246f8 0002471e switch@0x24694[0x3]: 0002471e 2f 12 |/ | MOVE.L (A2),-(A7) 00024720 4e ba db 26 |N & | JSR 0x22248 00024724 60 d2 |` | BRA 0x246f8 00024726 switch@0x24694[0x5]: 00024726 60 00 01 68 |` h | BRA 0x24890 0002472a switch@0x24694[0x6]: 0002472a 2f 12 |/ | MOVE.L (A2),-(A7) 0002472c 4e ba de 40 |N @ | JSR 0x2256e 00024730 60 c6 |` | BRA 0x246f8 00024732 switch@0x24694[0x7]: 00024732 2f 12 |/ | MOVE.L (A2),-(A7) 00024734 4e ba df a4 |N | JSR 0x226da 00024738 60 be |` | BRA 0x246f8 0002473a switch@0x24694[0x8]: 0002473a 2f 12 |/ | MOVE.L (A2),-(A7) 0002473c 4e ba e0 8a |N | JSR 0x227c8 00024740 60 b6 |` | BRA 0x246f8 00024742 switch@0x24694[0x9]: 00024742 2f 12 |/ | MOVE.L (A2),-(A7) 00024744 4e ba e4 76 |N v | JSR 0x22bbc 00024748 60 ae |` | BRA 0x246f8 0002474a switch@0x24694[0xa]: 0002474a 2f 12 |/ | MOVE.L (A2),-(A7) 0002474c 4e ba e4 e6 |N | JSR 0x22c34 00024750 60 a6 |` | BRA 0x246f8 00024752 switch@0x24694[0xb]: 00024752 2f 12 |/ | MOVE.L (A2),-(A7) 00024754 4e ba e5 56 |N V | JSR 0x22cac 00024758 60 9e |` | BRA 0x246f8 0002475a switch@0x24694[0xc]: 0002475a 2f 12 |/ | MOVE.L (A2),-(A7) 0002475c 4e ba e5 7a |N z | JSR 0x22cd8 00024760 60 96 |` | BRA 0x246f8 00024762 switch@0x24694[0xd]: 00024762 2f 12 |/ | MOVE.L (A2),-(A7) 00024764 4e ba e6 72 |N r | JSR 0x22dd8 00024768 60 8e |` | BRA 0x246f8 0002476a switch@0x24694[0xe]: 0002476a 2f 12 |/ | MOVE.L (A2),-(A7) 0002476c 4e ba e7 50 |N P | JSR 0x22ebe 00024770 60 86 |` | BRA 0x246f8 00024772 switch@0x24694[0xf]: 00024772 2f 12 |/ | MOVE.L (A2),-(A7) 00024774 4e ba e7 74 |N t | JSR 0x22eea 00024778 60 00 ff 7e |` ~ | BRA 0x246f8 0002477c switch@0x24694[0x10]: 0002477c 2f 12 |/ | MOVE.L (A2),-(A7) 0002477e 4e ba e7 b6 |N | JSR 0x22f36 00024782 60 00 ff 74 |` t | BRA 0x246f8 00024786 switch@0x24694[0x11]: 00024786 2f 12 |/ | MOVE.L (A2),-(A7) 00024788 4e ba e7 f8 |N | JSR 0x22f82 0002478c 60 00 ff 6a |` j | BRA 0x246f8 00024790 switch@0x24694[0x12]: 00024790 2f 12 |/ | MOVE.L (A2),-(A7) 00024792 4e ba e8 3a |N : | JSR 0x22fce 00024796 60 00 ff 60 |` ` | BRA 0x246f8 0002479a switch@0x24694[0x13]: 0002479a 2f 12 |/ | MOVE.L (A2),-(A7) 0002479c 4e ba e8 7c |N | | JSR 0x2301a 000247a0 60 00 ff 56 |` V | BRA 0x246f8 000247a4 switch@0x24694[0x14]: 000247a4 2f 12 |/ | MOVE.L (A2),-(A7) 000247a6 4e ba e8 be |N | JSR 0x23066 000247aa 60 00 ff 4c |` L | BRA 0x246f8 000247ae switch@0x24694[0x15]: 000247ae 2f 12 |/ | MOVE.L (A2),-(A7) 000247b0 4e ba e9 00 |N | JSR 0x230b2 000247b4 60 00 ff 42 |` B | BRA 0x246f8 000247b8 switch@0x24694[0x16]: 000247b8 2f 12 |/ | MOVE.L (A2),-(A7) 000247ba 4e ba e9 40 |N @ | JSR 0x230fc 000247be 60 00 ff 38 |` 8 | BRA 0x246f8 000247c2 switch@0x24694[0x17]: 000247c2 2f 12 |/ | MOVE.L (A2),-(A7) 000247c4 4e ba e9 80 |N | JSR 0x23146 000247c8 60 00 ff 2e |` . | BRA 0x246f8 000247cc switch@0x24694[0x18]: 000247cc 2f 12 |/ | MOVE.L (A2),-(A7) 000247ce 4e ba e9 c0 |N | JSR 0x23190 000247d2 60 00 ff 24 |` $ | BRA 0x246f8 000247d6 switch@0x24694[0x19]: 000247d6 2f 12 |/ | MOVE.L (A2),-(A7) 000247d8 4e ba ea 00 |N | JSR 0x231da 000247dc 60 00 ff 1a |` | BRA 0x246f8 000247e0 switch@0x24694[0x1a]: 000247e0 2f 12 |/ | MOVE.L (A2),-(A7) 000247e2 4e ba ea 40 |N @ | JSR 0x23224 000247e6 60 00 ff 10 |` | BRA 0x246f8 000247ea switch@0x24694[0x1b]: 000247ea 2f 12 |/ | MOVE.L (A2),-(A7) 000247ec 4e ba ea 80 |N | JSR 0x2326e 000247f0 60 00 ff 06 |` | BRA 0x246f8 000247f4 switch@0x24694[0x1c]: 000247f4 2f 12 |/ | MOVE.L (A2),-(A7) 000247f6 4e ba ea c0 |N | JSR 0x232b8 000247fa 60 00 fe fc |` | BRA 0x246f8 000247fe switch@0x24694[0x1d]: 000247fe 2f 12 |/ | MOVE.L (A2),-(A7) 00024800 4e ba eb 00 |N | JSR 0x23302 00024804 60 00 fe f2 |` | BRA 0x246f8 00024808 switch@0x24694[0x1e]: 00024808 2f 12 |/ | MOVE.L (A2),-(A7) 0002480a 4e ba eb 3a |N : | JSR 0x23346 0002480e 60 00 fe e8 |` | BRA 0x246f8 00024812 switch@0x24694[0x1f]: 00024812 2f 12 |/ | MOVE.L (A2),-(A7) 00024814 4e ba eb 76 |N v | JSR 0x2338c 00024818 60 00 fe de |` | BRA 0x246f8 0002481c switch@0x24694[0x20]: 0002481c 2f 12 |/ | MOVE.L (A2),-(A7) 0002481e 4e ba eb a2 |N | JSR 0x233c2 00024822 60 00 fe d4 |` | BRA 0x246f8 00024826 switch@0x24694[0x21]: 00024826 2f 12 |/ | MOVE.L (A2),-(A7) 00024828 4e ba ec 28 |N ( | JSR 0x23452 0002482c 60 00 fe ca |` | BRA 0x246f8 00024830 switch@0x24694[0x22]: 00024830 2f 12 |/ | MOVE.L (A2),-(A7) 00024832 4e ba ec 90 |N | JSR 0x234c4 00024836 60 00 fe c0 |` | BRA 0x246f8 0002483a switch@0x24694[0x23]: 0002483a 2f 12 |/ | MOVE.L (A2),-(A7) 0002483c 4e ba df ec |N | JSR 0x2282a 00024840 60 00 fe b6 |` | BRA 0x246f8 00024844 switch@0x24694[0x24]: 00024844 2f 12 |/ | MOVE.L (A2),-(A7) 00024846 4e ba e0 4c |N L | JSR 0x22894 0002484a 60 00 fe ac |` | BRA 0x246f8 0002484e switch@0x24694[0x25]: 0002484e 4e ba e0 16 |N | JSR 0x22866 00024852 60 3c |`< | BRA 0x24890 00024854 switch@0x24694[0x26]: 00024854 2f 12 |/ | MOVE.L (A2),-(A7) 00024856 4e ba ec de |N | JSR 0x23536 0002485a 60 00 fe 9c |` | BRA 0x246f8 0002485e switch@0x24694[0x27]: 0002485e 2f 12 |/ | MOVE.L (A2),-(A7) 00024860 4e ba ed 56 |N V | JSR 0x235b8 00024864 60 00 fe 92 |` | BRA 0x246f8 00024868 switch@0x24694[0x28]: 00024868 2f 12 |/ | MOVE.L (A2),-(A7) 0002486a 4e ba ed cc |N | JSR 0x23638 0002486e 60 00 fe 88 |` | BRA 0x246f8 00024872 switch@0x24694[0x29]: 00024872 4e ba ee 88 |N | JSR 0x236fc 00024876 60 18 |` | BRA 0x24890 00024878 switch@0x24694[0x2a]: 00024878 2f 12 |/ | MOVE.L (A2),-(A7) 0002487a 4e ba ee a0 |N | JSR 0x2371c 0002487e 60 00 fe 78 |` x | BRA 0x246f8 00024882 switch@0x24694[0x4]: 00024882 2e 6d 00 08 |.m | MOVEA.L (A5+0x8),A7 00024886 3c 7c 00 00 |<| | MOVEA.W #0x0,A6 0002488a 4e f9 00 02 4a 9a |N J | JMP 0x24a9a 00024890 2f 12 |/ | MOVE.L (A2),-(A7) 00024892 4e ba c8 e8 |N | JSR 0x2117c 00024896 58 4f |XO | ADDQ.L #0x4,A7 00024898 2f 06 |/ | MOVE.L D6,-(A7) 0002489a 2f 06 |/ | MOVE.L D6,-(A7) 0002489c 9f 97 | | SUB.L D7,(A7) 0002489e 4e ba ce 72 |N r | JSR 0x21712 000248a2 50 4f |PO | ADDQ.L #0x8,A7 000248a4 26 87 |& | MOVE.L D7,(A3) 000248a6 4a 2e ff f4 |J. | TST.B (A6-0xc) 000248aa 67 00 fd 1c |g | BEQ 0x245c8 000248ae 4c df 1f ff |L | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+D6+D7+A0+A1+A2+A3+A4 000248b2 4e 5e |N^ | UNLK A6 000248b4 4e 75 |Nu | RTS 000248b6 ; -------------------------------------------------------------------------------------- 000248b6 ; OMSI PASCAL Function 000248b6 ; -------------------------------------------------------------------------------------- 000248b6 START: 000248b6 4f fa 00 08 |O | LEA.L MAIN,A7 000248ba 4e f9 00 01 02 80 |N | JMP ?start_program 000248c0 MAIN: 000248c0 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x2610e 000248c8 61 0e |a | 000248ca 59 4f |YO | SUBQ.L #0x4,A7 000248cc 4e b9 00 01 03 c4 |N | JSR GetArgv() : String 000248d2 23 df 00 02 61 12 |# a | MOVE.L (A7)+,0x26112 000248d8 48 79 00 02 60 ec |Hy ` | PEA.L 0x260ec 000248de 4e b9 00 02 0a cc |N | JSR 0x20acc 000248e4 58 4f |XO | ADDQ.L #0x4,A7 000248e6 20 79 00 02 61 12 | y a | MOVEA.L 0x26112,A0 000248ec 4a 50 |JP | TST.W (A0) 000248ee 6f 68 |oh | BLE 0x24958 000248f0 51 4f |QO | SUBQ.L #0x8,A7 000248f2 20 4f | O | MOVEA.L A7,A0 000248f4 43 fa c5 de |C | LEA.L 0x20ed4,A1 000248f8 70 06 |p | MOVEQ.L #0x06,D0 000248fa 10 d9 | | MOVE.B (A1)+,(A0)+ 000248fc 51 c8 ff fc |Q | DBF D0,0x248fa 00024900 51 4f |QO | SUBQ.L #0x8,A7 00024902 20 4f | O | MOVEA.L A7,A0 00024904 43 fa c5 d6 |C | LEA.L 0x20edc,A1 00024908 70 06 |p | MOVEQ.L #0x06,D0 0002490a 10 d9 | | MOVE.B (A1)+,(A0)+ 0002490c 51 c8 ff fc |Q | DBF D0,0x2490a 00024910 51 4f |QO | SUBQ.L #0x8,A7 00024912 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00024916 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002491a 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 0002491e 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024924 58 4f |XO | ADDQ.L #0x4,A7 00024926 2e b9 00 02 61 12 |. a | MOVE.L 0x26112,(A7) 0002492c 59 4f |YO | SUBQ.L #0x4,A7 0002492e 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00024932 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024936 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 0002493a 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024940 50 4f |PO | ADDQ.L #0x8,A7 00024942 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00024948 de fc 00 0c | | ADDA.W #0xc,A7 0002494c 23 df 00 02 61 12 |# a | MOVE.L (A7)+,0x26112 00024952 de fc 00 10 | | ADDA.W #0x10,A7 00024956 60 3a |`: | BRA 0x24992 00024958 48 79 00 02 61 12 |Hy a | PEA.L 0x26112 0002495e 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00024964 59 4f |YO | SUBQ.L #0x4,A7 00024966 20 4f | O | MOVEA.L A7,A0 00024968 43 fa c5 7a |C z | LEA.L 0x20ee4,A1 0002496c 70 06 |p | MOVEQ.L #0x06,D0 0002496e 10 d9 | | MOVE.B (A1)+,(A0)+ 00024970 51 c8 ff fc |Q | DBF D0,0x2496e 00024974 59 4f |YO | SUBQ.L #0x4,A7 00024976 48 6f 00 04 |Ho | PEA.L (A7+0x4) 0002497a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002497e 3f 3c 00 07 |?< | MOVE.W #0x7,-(A7) 00024982 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024988 50 4f |PO | ADDQ.L #0x8,A7 0002498a 23 df 00 02 61 12 |# a | MOVE.L (A7)+,0x26112 00024990 50 4f |PO | ADDQ.L #0x8,A7 00024992 13 fc 00 01 00 02 61 1c | a | MOVE.B #0x01,0x2611c 0002499a 4a 39 00 02 61 1c |J9 a | TST.B 0x2611c 000249a0 67 0a |g | BEQ 0x249ac 000249a2 42 39 00 02 61 1c |B9 a | CLR.B 0x2611c 000249a8 60 00 00 b0 |` | BRA 0x24a5a 000249ac 41 f9 00 02 60 f6 |A ` | LEA.L 0x260f6,A0 000249b2 70 04 |p | MOVEQ.L #0x04,D0 000249b4 3f 20 |? | MOVE.W -(A0),-(A7) 000249b6 51 c8 ff fc |Q | DBF D0,0x249b4 000249ba 3f 3a c5 30 |?: 0 | MOVE.W 0x20eec,-(A7) 000249be 9e fc 00 0c | | SUBA.W #0xc,A7 000249c2 48 6f 00 0e |Ho | PEA.L (A7+0xe) 000249c6 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000249ca 3f 3c 00 0a |?< | MOVE.W #0xa,-(A7) 000249ce 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000249d4 58 4f |XO | ADDQ.L #0x4,A7 000249d6 48 6f 00 10 |Ho | PEA.L (A7+0x10) 000249da 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 000249de 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 000249e2 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000249e8 50 4f |PO | ADDQ.L #0x8,A7 000249ea 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000249f0 50 4f |PO | ADDQ.L #0x8,A7 000249f2 4e b9 00 01 03 e4 |N | JSR AskConsoleString(prompt : String) : String 000249f8 58 4f |XO | ADDQ.L #0x4,A7 000249fa 23 df 00 02 61 18 |# a | MOVE.L (A7)+,0x26118 00024a00 50 4f |PO | ADDQ.L #0x8,A7 00024a02 2e b9 00 02 61 18 |. a | MOVE.L 0x26118,(A7) 00024a08 4e ba ca 0c |N | JSR 0x21416 00024a0c 54 4f |TO | ADDQ.L #0x2,A7 00024a0e 3e ba c4 de |> | MOVE.W 0x20eee,(A7) 00024a12 3f 3a c4 dc |?: | MOVE.W 0x20ef0,-(A7) 00024a16 51 4f |QO | SUBQ.L #0x8,A7 00024a18 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00024a1c 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024a20 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00024a24 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024a2a 58 4f |XO | ADDQ.L #0x4,A7 00024a2c 2e b9 00 02 61 18 |. a | MOVE.L 0x26118,(A7) 00024a32 59 4f |YO | SUBQ.L #0x4,A7 00024a34 48 6f 00 10 |Ho | PEA.L (A7+0x10) 00024a38 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024a3c 3f 3c 00 02 |?< | MOVE.W #0x2,-(A7) 00024a40 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024a46 50 4f |PO | ADDQ.L #0x8,A7 00024a48 4e b9 00 01 02 d4 |N | JSR StringCat3(a, b, c : String) : String 00024a4e de fc 00 0c | | ADDA.W #0xc,A7 00024a52 23 df 00 02 61 12 |# a | MOVE.L (A7)+,0x26112 00024a58 58 4f |XO | ADDQ.L #0x4,A7 00024a5a 42 39 00 02 61 16 |B9 a | CLR.B 0x26116 00024a60 23 fc 00 00 00 01 00 02 |# | MOVE.L #0x1,0x260e4 00024a68 60 e4 |` | 00024a6a 42 b9 00 02 60 e8 |B ` | CLR.L 0x260e8 00024a70 59 4f |YO | SUBQ.L #0x4,A7 00024a72 2f 39 00 02 61 12 |/9 a | MOVE.L 0x26112,-(A7) 00024a78 4e b9 00 01 02 cc |N | JSR StringDup(a : String) : String 00024a7e 58 4f |XO | ADDQ.L #0x4,A7 00024a80 4e ba d5 06 |N | JSR 0x21f88 00024a84 58 4f |XO | ADDQ.L #0x4,A7 00024a86 20 39 00 02 60 e4 | 9 ` | MOVE.L 0x260e4,D0 00024a8c b0 b9 00 02 60 e8 | ` | CMP.L 0x260e8,D0 00024a92 6e 06 |n | BGT 0x24a9a 00024a94 4e ba fb 0e |N | JSR 0x245a4 00024a98 60 ec |` | BRA 0x24a86 00024a9a 48 79 00 02 61 12 |Hy a | PEA.L 0x26112 00024aa0 4e b9 00 01 02 bc |N | JSR FreeString(VAR a : String) 00024aa6 58 4f |XO | ADDQ.L #0x4,A7 00024aa8 60 00 fe f0 |` | BRA 0x2499a 00024aac 4e b9 00 01 |N | .XXX[0x4] 00024ab0 02 84 | | .XXX[0x2] 00024ab2 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 00024ac0 ; -------------------------------------------------------------------------------------- 00024ac0 ; OMSI PASCAL Function 00024ac0 ; <LVAR 0x008 1(r)> 00024ac0 ; -------------------------------------------------------------------------------------- 00024ac0 PROG_FAIL: 00024ac0 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00024ac4 bf d5 | | CMPA.L (A5),A7 00024ac6 62 06 |b | BHI 0x24ace 00024ac8 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024acc 4e 76 |Nv | TRAPV 00024ace de fc 00 2c | , | ADDA.W #0x2c,A7 00024ad2 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00024ad6 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00024ada 70 06 |p | MOVEQ.L #0x06,D0 00024adc 3f 20 |? | MOVE.W -(A0),-(A7) 00024ade 51 c8 ff fc |Q | DBF D0,0x24adc 00024ae2 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00024ae6 51 4f |QO | SUBQ.L #0x8,A7 00024ae8 48 6f 00 0a |Ho | PEA.L (A7+0xa) 00024aec 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 00024af0 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00024af4 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00024afa 58 4f |XO | ADDQ.L #0x4,A7 00024afc 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 00024b00 48 80 |H | EXTB.W D0 00024b02 48 c0 |H | EXTW.L D0 00024b04 2f 00 |/ | MOVE.L D0,-(A7) 00024b06 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 00024b0c 58 4f |XO | ADDQ.L #0x4,A7 00024b0e 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024b14 50 4f |PO | ADDQ.L #0x8,A7 00024b16 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00024b1c de fc 00 14 | | ADDA.W #0x14,A7 00024b20 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00024b24 4e 5e |N^ | UNLK A6 00024b26 4e 75 |Nu | RTS 00024b28 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00024b36 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00024b44 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00024b52 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00024b64 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 00024b7c ; -------------------------------------------------------------------------------------- 00024b7c ; OMSI PASCAL Function 00024b7c ; <LVAR 0x00e 1(r)> 00024b7c ; <LVAR 0x00a 4(r)> 00024b7c ; <LVAR 0x008 1(r)> 00024b7c ; -------------------------------------------------------------------------------------- 00024b7c EXP_FAIL: 00024b7c 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 00024b80 bf d5 | | CMPA.L (A5),A7 00024b82 62 06 |b | BHI 0x24b8a 00024b84 44 fc 00 02 |D | MOVE.W #0x2,CCR 00024b88 4e 76 |Nv | TRAPV 00024b8a de fc 00 74 | t | ADDA.W #0x74,A7 00024b8e 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00024b92 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00024b98 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 00024b9e 72 01 |r | MOVEQ.L #0x01,D1 00024ba0 74 0d |t | MOVEQ.L #0x0d,D2 00024ba2 76 1e |v | MOVEQ.L #0x1e,D3 00024ba4 78 12 |x | MOVEQ.L #0x12,D4 00024ba6 7a 0e |z | MOVEQ.L #0x0e,D5 00024ba8 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 00024bae 41 fa ff b4 |A | LEA.L 0x24b64,A0 00024bb2 70 08 |p | MOVEQ.L #0x08,D0 00024bb4 3f 20 |? | MOVE.W -(A0),-(A7) 00024bb6 51 c8 ff fc |Q | DBF D0,0x24bb4 00024bba 59 4f |YO | SUBQ.L #0x4,A7 00024bbc 48 6f 00 04 |Ho | PEA.L (A7+0x4) 00024bc0 3f 01 |? | MOVE.W D1,-(A7) 00024bc2 3f 04 |? | MOVE.W D4,-(A7) 00024bc4 4e 93 |N | JSR (A3) 00024bc6 50 4f |PO | ADDQ.L #0x8,A7 00024bc8 4e 94 |N | JSR (A4) 00024bca 50 4f |PO | ADDQ.L #0x8,A7 00024bcc 20 4f | O | MOVEA.L A7,A0 00024bce 43 fa ff 58 |C X | LEA.L 0x24b28,A1 00024bd2 70 0c |p | MOVEQ.L #0x0c,D0 00024bd4 10 d9 | | MOVE.B (A1)+,(A0)+ 00024bd6 51 c8 ff fc |Q | DBF D0,0x24bd4 00024bda 51 4f |QO | SUBQ.L #0x8,A7 00024bdc 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00024be0 3f 01 |? | MOVE.W D1,-(A7) 00024be2 3f 02 |? | MOVE.W D2,-(A7) 00024be4 4e 93 |N | JSR (A3) 00024be6 54 4f |TO | ADDQ.L #0x2,A7 00024be8 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 00024bec 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 00024bf2 54 4f |TO | ADDQ.L #0x2,A7 00024bf4 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024bfa 50 4f |PO | ADDQ.L #0x8,A7 00024bfc 4e 94 |N | JSR (A4) 00024bfe de c4 | | ADDA.W D4,A7 00024c00 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 00024c04 b0 c1 | | CMPA.W D1,A0 00024c06 67 48 |gH | BEQ 0x24c50 00024c08 9e c5 | | SUBA.W D5,A7 00024c0a 22 4f |"O | MOVEA.L A7,A1 00024c0c 45 fa ff 28 |E ( | LEA.L 0x24b36,A2 00024c10 70 0c |p | MOVEQ.L #0x0c,D0 00024c12 12 da | | MOVE.B (A2)+,(A1)+ 00024c14 51 c8 ff fc |Q | DBF D0,0x24c12 00024c18 9e c3 | | SUBA.W D3,A7 00024c1a 22 4f |"O | MOVEA.L A7,A1 00024c1c 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 00024c20 70 1d |p | MOVEQ.L #0x1d,D0 00024c22 12 d8 | | MOVE.B (A0)+,(A1)+ 00024c24 51 c8 ff fc |Q | DBF D0,0x24c22 00024c28 51 4f |QO | SUBQ.L #0x8,A7 00024c2a 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 00024c2e 3f 01 |? | MOVE.W D1,-(A7) 00024c30 3f 02 |? | MOVE.W D2,-(A7) 00024c32 4e 93 |N | JSR (A3) 00024c34 58 4f |XO | ADDQ.L #0x4,A7 00024c36 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00024c3a 3f 01 |? | MOVE.W D1,-(A7) 00024c3c 3f 03 |? | MOVE.W D3,-(A7) 00024c3e 4e 93 |N | JSR (A3) 00024c40 50 4f |PO | ADDQ.L #0x8,A7 00024c42 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024c48 50 4f |PO | ADDQ.L #0x8,A7 00024c4a 4e 94 |N | JSR (A4) 00024c4c de fc 00 30 | 0 | ADDA.W #0x30,A7 00024c50 9e c5 | | SUBA.W D5,A7 00024c52 20 4f | O | MOVEA.L A7,A0 00024c54 43 fa fe ee |C | LEA.L 0x24b44,A1 00024c58 70 0c |p | MOVEQ.L #0x0c,D0 00024c5a 10 d9 | | MOVE.B (A1)+,(A0)+ 00024c5c 51 c8 ff fc |Q | DBF D0,0x24c5a 00024c60 51 4f |QO | SUBQ.L #0x8,A7 00024c62 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00024c66 3f 01 |? | MOVE.W D1,-(A7) 00024c68 3f 02 |? | MOVE.W D2,-(A7) 00024c6a 4e 93 |N | JSR (A3) 00024c6c 54 4f |TO | ADDQ.L #0x2,A7 00024c6e 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00024c72 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00024c78 54 4f |TO | ADDQ.L #0x2,A7 00024c7a 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00024c80 50 4f |PO | ADDQ.L #0x8,A7 00024c82 4e 94 |N | JSR (A4) 00024c84 5d 4f |]O | SUBQ.L #0x6,A7 00024c86 20 4f | O | MOVEA.L A7,A0 00024c88 43 fa fe da |C | LEA.L 0x24b64,A1 00024c8c 70 16 |p | MOVEQ.L #0x16,D0 00024c8e 10 d9 | | MOVE.B (A1)+,(A0)+ 00024c90 51 c8 ff fc |Q | DBF D0,0x24c8e 00024c94 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00024c98 59 4f |YO | SUBQ.L #0x4,A7 00024c9a 48 6f 00 06 |Ho | PEA.L (A7+0x6) 00024c9e 3f 01 |? | MOVE.W D1,-(A7) 00024ca0 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00024ca4 4e 93 |N | JSR (A3) 00024ca6 50 4f |PO | ADDQ.L #0x8,A7 00024ca8 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 00024cae de c3 | | ADDA.W D3,A7 00024cb0 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 00024cb4 4e 5e |N^ | UNLK A6 00024cb6 4e 75 |Nu | RTS