|
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: 1024 (0x400)
Types: M200
Notes: M200_PROGRAM
Names: »P2COND.M200«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »P2COND.M200«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »P2COND.M200«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »P2COND.M200«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »P2COND.M200«
└─ ⟦this⟧ »P2COND.M200«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »P2COND.M200«
@ 2016a
EXP_FAIL
<LVAR 0x00e 1(r)>
<LVAR 0x00a 4(r)>
<LVAR 0x008 1(r)>
<POP 2016a-202a6 Body>
<POP 2016a-20180 Prologue> Σ0 ↓
<POP 20180-20196 RegCacheLoad> Σ0 ↓
<POP 20196-201f6 Naked> Σ0 ↓ →0x2023e
<Call 0x20196 0x103dc> {}
WriteConsoleCrLf(void)
<Blob 0x2019c [18] @> Δ-18 {[«18""»]}
<POP 201a8-201aa StackAdj> Δ-4 {[«18""»]|[-4-]}
<Lit 0x201aa 18> {[«18""»]|[$$Experiment error :]}
<Call 0x201b6 0x103e0> {[«18""»]|[$$Experiment error :]}
WriteConsoleStringCrLf(str : String)
<POP 201b8-201b9 StackAdj> Δ+22 ↓ {}
<Blob 0x201b9 [14] @> Δ-14 {[«14""»]}
<POP 201c8-201ca StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x201ca 13> {[«14""»]|[-4-]|[$$Board :_]}
<POP 201d4-201d6 StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<MI 201d6 MOVE.B (A6+0xe),(A7)> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
<Call 0x201da 0x1049c> {[«14""»]|[-4-]|[$$Board :_]|[-6-]}
BoardName(address : B) : String
<POP 201e0-201e2 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
<Call 0x201e2 0x102d0> {[«14""»]|[-4-]|[$$Board :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 201e8-201ea StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x201ea 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 201ec-201ee StackAdj> Δ+18 {}
<MI 201ee MOVEA.L (A6+0xa),A0> {}
<MI 201f2 CMPA.W #0x01,A0> {}
<MI 201f4 BEQ 0x2023e> {}
<POP 201f6-2023e Naked> Σ0 ↓
<Blob 0x201f6 [14] @> Δ-14 {[«14""»]}
<Blob 0x20206 [30] (A0+0xfc)> Δ-30 {[«14""»]|[«30»]}
<POP 20216-20218 StackAdj> Δ-8 {[«14""»]|[«30»]|[-8-]}
<Lit 0x20218 13> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]}
<POP 20222-20224 StackAdj> Δ-4 {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[-4-]}
<Lit 0x20224> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
<Pointer.sp 0x20224 12> Δ-4
<Const 0x20228 0x1.2> Δ-2
<Const 0x2022a 0x1e.2> Δ-2
<Call 0x2022c 0x102c4>
StringLit(Src : Pointer; Offset: W; Len : W) : String
<POP 2022e-20230 StackAdj> Δ+8
<Call 0x20230 0x102d0> {[«14""»]|[«30»]|[-4-]|[$$Experiment :_]|[$$…]}
StringCat2(a, b : String) : String
<POP 20236-20238 StackAdj> Δ+8 {[«14""»]|[«30»]|[-4-]}
<Call 0x20238 0x103e0> {[«14""»]|[«30»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 2023a-2023e StackAdj> Δ+48 {}
<POP 2023e-2029e Naked> Σ0 ↓ ←0x20196
<Blob 0x2023e [14] @> Δ-14 {[«14""»]}
<POP 2024e-20250 StackAdj> Δ-8 {[«14""»]|[-8-]}
<Lit 0x20250 13> {[«14""»]|[-4-]|[$$Status :_]}
<POP 2025a-2025c StackAdj> Δ-6 {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<MI 2025c MOVE.B (A6+0x8),(A7)> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
<Call 0x20260 0x104a2> {[«14""»]|[-4-]|[$$Status :_]|[-6-]}
ExpStatus2Text(status.B, &String)
<POP 20266-20268 StackAdj> Δ+2 {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
<Call 0x20268 0x102d0> {[«14""»]|[-4-]|[$$Status :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 2026e-20270 StackAdj> Δ+8 {[«14""»]|[-4-]}
<Call 0x20270 0x103e0> {[«14""»]|[-4-]}
WriteConsoleStringCrLf(str : String)
<POP 20272-20273 StackAdj> Δ+18 ↓ {}
<Blob 0x20273 [24] @> Δ-24 {[«24""»]}
<Const 0x20282 0x2.2> Δ-2 {[«24""»]|[#2]}
<POP 20286-20288 StackAdj> Δ-4 {[«24""»]|[#2]|[-4-]}
<Lit 0x20288 23> {[«24""»]|[#2]|[$$Fatal experiment error.]}
<Call 0x20296 0x103b8> {[«24""»]|[#2]|[$$Fatal experiment error.]}
PopProgram(status : Byte; msg : String)
<POP 2029c-2029e StackAdj> Δ+30 {}
<POP 2029e-202a6 Epilogue> Σ0
@ 202a6
START
<POP 202a6--0001 Body>
<POP 202a6-202b0 Prologue> Σ0
<POP 202b0-202b4 RegCacheLoad> Σ0 ↓
<POP 202b4-202fa Naked> Σ0 ↓
<Call 0x202b4 0x10398> {}
FSCALL_10398
<Blob 0x202ba [2] @> Δ-2 {[«2""»]}
<Blob 0x202be [2] @> Δ-2 {[«2""»]|[«2""»]}
<Const 0x202c2 0x1.2> Δ-2 {[«2""»]|[«2""»]|[#1]}
<POP 202c4-202c6 StackAdj> Δ-4 {[«2""»]|[«2""»]|[#1]|[-4-]}
<Lit 0x202c6 2> {[«2""»]|[«2""»]|[#1]|[$$ ]}
<POP 202d4-202d6 StackAdj> Δ-4 {[«2""»]|[«2""»]|[#1]|[$$ ]|[-4-]}
<Lit 0x202d6 2> {[«2""»]|[«2""»]|[#1]|[$$ ]|[$$ ]}
<POP 202e4-202e6 StackAdj> Δ-2 {[«2""»]|[«2""»]|[#1]|[$$ ]|[$$ ]|[-2-]}
<MI 202e6 CLR.B (A7)> {[«2""»]|[«2""»]|[#1]|[$$ ]|[$$ ]|[-2-]}
<Blob 0x202e8 [4] @> Δ-4 {[«2""»]|[«2""»]|[#1]|[$$ ]|[$$ ]|[-2-]|[«4""»]}
<Blob 0x202ec [4] @> Δ-4 {[«2""»]|[«2""»]|[#1]|[$$ ]|[$$ ]|[-2-]|[«4""»]|[«4""»]}
<Call 0x202f0 0x1054a> {[«2""»]|[«2""»]|[#1]|[$$ ]|[$$ ]|[-2-]|[«4""»]|[«4""»]}
?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long)
<POP 202f6-202fa StackAdj> Δ+24 {}
<POP 202fa-20300 Naked> Σ0
<Call 0x202fa 0x10284> {}
?exit
@ 2030e
PROG_FAIL
<LVAR 0x008 1(r)>
<POP 2030e-20376 Body>
<POP 2030e-20324 Prologue> Σ0 ↓
<POP 20324-2036e Naked> Σ0 ↓
<Blob 0x20324 [14] @> Δ-14 {[«14""»]}
<Const 0x20330 0x3.2> Δ-2 {[«14""»]|[#3]}
<POP 20334-20336 StackAdj> Δ-8 {[«14""»]|[#3]|[-8-]}
<Lit 0x20336 14> {[«14""»]|[#3]|[-4-]|[$$Words error :_]}
<POP 20348-2034a StackAdj> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2034a MOVE.B (A6+0x8),D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 2034e EXTB.W D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20350 EXTW.L D0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<MI 20352 MOVE.L D0,-(A7)> Δ-4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
<Call 0x20354 0x102e4> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]|[4, 'D0']}
Long2String(a : Long) : String
<POP 2035a-2035c StackAdj> Δ+4 {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
<Call 0x2035c 0x102d0> {[«14""»]|[#3]|[-4-]|[$$Words error :_]|[-4-]}
StringCat2(a, b : String) : String
<POP 20362-20364 StackAdj> Δ+8 {[«14""»]|[#3]|[-4-]}
<Call 0x20364 0x103b8> {[«14""»]|[#3]|[-4-]}
PopProgram(status : Byte; msg : String)
<POP 2036a-2036e StackAdj> Δ+20 {}
<POP 2036e-20376 Epilogue> Σ0
00020000 ; -------------------------------------------------------------------------------------- 00020000 ; R1000.Disassembly modules: 00020000 ; import all 00020000 ; import kind.program 00020000 ; no ident.3c41aff33981fd18 00020000 ; -------------------------------------------------------------------------------------- 00020000 stack.top: 00020000 00 04 00 00 | | .CODE 0x40000 ; STACK.END 00020004 00 02 02 a6 | | .CODE START 00020008 00 01 02 88 | | .CODE FSCALL_10288 0002000c heap.top: 0002000c 00 02 03 86 | | .PTR 0x20386 00020010 code.end: 00020010 00 02 03 76 | v | .PTR 0x20376 00020014 00 00 00 00 | | .CONST 0x00000000 00020018 programfailurehandler: 00020018 00 02 03 0e | | .CODE PROG_FAIL 0002001c experimentfailurehandler: 0002001c 00 02 01 6a | j | .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 42 6f 61 72 64 20 20 20 |Board | .TXT 'Board :_ ' 00020118 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment :_ ' 00020126 53 74 61 74 75 73 20 20 |Status | .TXT 'Status :_ ' 00020134 45 78 70 65 72 69 6d 65 |Experime| .TXT 'Experiment error :' 00020146 46 61 74 61 6c 20 65 78 |Fatal ex| .TXT 'Fatal experiment error. ' 0002015e 20 20 | | .TXT ' ' 00020160 20 20 | | .TXT ' ' 00020162 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0 00020166 00 00 00 00 | | .CONST 0x0,0x0,0x0,0x0 0002016a ; -------------------------------------------------------------------------------------- 0002016a ; OMSI PASCAL Function 0002016a ; <LVAR 0x00e 1(r)> 0002016a ; <LVAR 0x00a 4(r)> 0002016a ; <LVAR 0x008 1(r)> 0002016a ; -------------------------------------------------------------------------------------- 0002016a EXP_FAIL: 0002016a 4e 56 ff 8c |NV | LINK.W A6,#0xff8c 0002016e bf d5 | | CMPA.L (A5),A7 00020170 62 06 |b | BHI 0x20178 00020172 44 fc 00 02 |D | MOVE.W #0x2,CCR 00020176 4e 76 |Nv | TRAPV 00020178 de fc 00 74 | t | ADDA.W #0x74,A7 0002017c 48 e7 fc f8 |H | MOVEM.L A4+A3+A2+A1+A0+D5+D4+D3+D2+D1+D0,-(A7) 00020180 47 f9 00 01 02 c4 |G | LEA.L StringLit(Src : Pointer; Offset: W; Len : W) : String,A3 00020186 49 f9 00 01 03 e0 |I | LEA.L WriteConsoleStringCrLf(str : String),A4 0002018c 72 01 |r | MOVEQ.L #0x01,D1 0002018e 74 0d |t | MOVEQ.L #0x0d,D2 00020190 76 1e |v | MOVEQ.L #0x1e,D3 00020192 78 12 |x | MOVEQ.L #0x12,D4 00020194 7a 0e |z | MOVEQ.L #0x0e,D5 00020196 4e b9 00 01 03 dc |N | JSR WriteConsoleCrLf(void) 0002019c 41 fa ff a8 |A | LEA.L 0x20146,A0 000201a0 70 08 |p | MOVEQ.L #0x08,D0 000201a2 3f 20 |? | MOVE.W -(A0),-(A7) 000201a4 51 c8 ff fc |Q | DBF D0,0x201a2 000201a8 59 4f |YO | SUBQ.L #0x4,A7 000201aa 48 6f 00 04 |Ho | PEA.L (A7+0x4) 000201ae 3f 01 |? | MOVE.W D1,-(A7) 000201b0 3f 04 |? | MOVE.W D4,-(A7) 000201b2 4e 93 |N | JSR (A3) 000201b4 50 4f |PO | ADDQ.L #0x8,A7 000201b6 4e 94 |N | JSR (A4) 000201b8 50 4f |PO | ADDQ.L #0x8,A7 000201ba 20 4f | O | MOVEA.L A7,A0 000201bc 43 fa ff 4c |C L | LEA.L 0x2010a,A1 000201c0 70 0c |p | MOVEQ.L #0x0c,D0 000201c2 10 d9 | | MOVE.B (A1)+,(A0)+ 000201c4 51 c8 ff fc |Q | DBF D0,0x201c2 000201c8 51 4f |QO | SUBQ.L #0x8,A7 000201ca 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000201ce 3f 01 |? | MOVE.W D1,-(A7) 000201d0 3f 02 |? | MOVE.W D2,-(A7) 000201d2 4e 93 |N | JSR (A3) 000201d4 54 4f |TO | ADDQ.L #0x2,A7 000201d6 1e ae 00 0e | | MOVE.B (A6+0xe),(A7) 000201da 4e b9 00 01 04 9c |N | JSR BoardName(address : B) : String 000201e0 54 4f |TO | ADDQ.L #0x2,A7 000201e2 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 000201e8 50 4f |PO | ADDQ.L #0x8,A7 000201ea 4e 94 |N | JSR (A4) 000201ec de c4 | | ADDA.W D4,A7 000201ee 20 6e 00 0a | n | MOVEA.L (A6+0xa),A0 000201f2 b0 c1 | | CMPA.W D1,A0 000201f4 67 48 |gH | BEQ 0x2023e 000201f6 9e c5 | | SUBA.W D5,A7 000201f8 22 4f |"O | MOVEA.L A7,A1 000201fa 45 fa ff 1c |E | LEA.L 0x20118,A2 000201fe 70 0c |p | MOVEQ.L #0x0c,D0 00020200 12 da | | MOVE.B (A2)+,(A1)+ 00020202 51 c8 ff fc |Q | DBF D0,0x20200 00020206 9e c3 | | SUBA.W D3,A7 00020208 22 4f |"O | MOVEA.L A7,A1 0002020a 41 e8 00 fc |A | LEA.L (A0+0xfc),A0 0002020e 70 1d |p | MOVEQ.L #0x1d,D0 00020210 12 d8 | | MOVE.B (A0)+,(A1)+ 00020212 51 c8 ff fc |Q | DBF D0,0x20210 00020216 51 4f |QO | SUBQ.L #0x8,A7 00020218 48 6f 00 26 |Ho & | PEA.L (A7+0x26) 0002021c 3f 01 |? | MOVE.W D1,-(A7) 0002021e 3f 02 |? | MOVE.W D2,-(A7) 00020220 4e 93 |N | JSR (A3) 00020222 58 4f |XO | ADDQ.L #0x4,A7 00020224 48 6f 00 0c |Ho | PEA.L (A7+0xc) 00020228 3f 01 |? | MOVE.W D1,-(A7) 0002022a 3f 03 |? | MOVE.W D3,-(A7) 0002022c 4e 93 |N | JSR (A3) 0002022e 50 4f |PO | ADDQ.L #0x8,A7 00020230 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020236 50 4f |PO | ADDQ.L #0x8,A7 00020238 4e 94 |N | JSR (A4) 0002023a de fc 00 30 | 0 | ADDA.W #0x30,A7 0002023e 9e c5 | | SUBA.W D5,A7 00020240 20 4f | O | MOVEA.L A7,A0 00020242 43 fa fe e2 |C | LEA.L 0x20126,A1 00020246 70 0c |p | MOVEQ.L #0x0c,D0 00020248 10 d9 | | MOVE.B (A1)+,(A0)+ 0002024a 51 c8 ff fc |Q | DBF D0,0x20248 0002024e 51 4f |QO | SUBQ.L #0x8,A7 00020250 48 6f 00 08 |Ho | PEA.L (A7+0x8) 00020254 3f 01 |? | MOVE.W D1,-(A7) 00020256 3f 02 |? | MOVE.W D2,-(A7) 00020258 4e 93 |N | JSR (A3) 0002025a 54 4f |TO | ADDQ.L #0x2,A7 0002025c 1e ae 00 08 | | MOVE.B (A6+0x8),(A7) 00020260 4e b9 00 01 04 a2 |N | JSR ExpStatus2Text(status.B, &String) 00020266 54 4f |TO | ADDQ.L #0x2,A7 00020268 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 0002026e 50 4f |PO | ADDQ.L #0x8,A7 00020270 4e 94 |N | JSR (A4) 00020272 5d 4f |]O | SUBQ.L #0x6,A7 00020274 20 4f | O | MOVEA.L A7,A0 00020276 43 fa fe ce |C | LEA.L 0x20146,A1 0002027a 70 16 |p | MOVEQ.L #0x16,D0 0002027c 10 d9 | | MOVE.B (A1)+,(A0)+ 0002027e 51 c8 ff fc |Q | DBF D0,0x2027c 00020282 1f 3c 00 02 | < | MOVE.B #0x02,-(A7) 00020286 59 4f |YO | SUBQ.L #0x4,A7 00020288 48 6f 00 06 |Ho | PEA.L (A7+0x6) 0002028c 3f 01 |? | MOVE.W D1,-(A7) 0002028e 3f 3c 00 17 |?< | MOVE.W #0x17,-(A7) 00020292 4e 93 |N | JSR (A3) 00020294 50 4f |PO | ADDQ.L #0x8,A7 00020296 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002029c de c3 | | ADDA.W D3,A7 0002029e 4c df 1f 3f |L ? | MOVEM.L (A7)+,D0+D1+D2+D3+D4+D5+A0+A1+A2+A3+A4 000202a2 4e 5e |N^ | UNLK A6 000202a4 4e 75 |Nu | RTS 000202a6 ; -------------------------------------------------------------------------------------- 000202a6 ; OMSI PASCAL Function 000202a6 ; -------------------------------------------------------------------------------------- 000202a6 START: 000202a6 4f fa 00 08 |O | LEA.L MAIN,A7 000202aa 4e f9 00 01 02 80 |N | JMP ?start_program 000202b0 MAIN: 000202b0 70 01 |p | MOVEQ.L #0x01,D0 000202b2 72 02 |r | MOVEQ.L #0x02,D1 000202b4 4e b9 00 01 03 98 |N | JSR FSCALL_10398 000202ba 3f 3a fe a2 |?: | MOVE.W 0x2015e,-(A7) 000202be 3f 3a fe a0 |?: | MOVE.W 0x20160,-(A7) 000202c2 1f 00 | | MOVE.B D0,-(A7) 000202c4 59 4f |YO | SUBQ.L #0x4,A7 000202c6 48 6f 00 08 |Ho | PEA.L (A7+0x8) 000202ca 3f 00 |? | MOVE.W D0,-(A7) 000202cc 3f 01 |? | MOVE.W D1,-(A7) 000202ce 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000202d4 58 4f |XO | ADDQ.L #0x4,A7 000202d6 48 6f 00 0a |Ho | PEA.L (A7+0xa) 000202da 3f 00 |? | MOVE.W D0,-(A7) 000202dc 3f 01 |? | MOVE.W D1,-(A7) 000202de 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 000202e4 5c 4f |\O | ADDQ.L #0x6,A7 000202e6 42 17 |B | CLR.B (A7) 000202e8 2f 3a fe 7c |/: | | MOVE.L 0x20166,-(A7) 000202ec 2f 3a fe 74 |/: t | MOVE.L 0x20162,-(A7) 000202f0 4e b9 00 01 05 4a |N J | JSR ?IPC_Puts(a : Bool; b : String; c : String; d: Bool; e : Long; f : Long) 000202f6 de fc 00 18 | | ADDA.W #0x18,A7 000202fa 4e b9 00 01 02 84 |N | JSR ?exit 00020300 57 6f 72 64 73 20 65 72 |Words er| .TXT 'Words error :_' 0002030e ; -------------------------------------------------------------------------------------- 0002030e ; OMSI PASCAL Function 0002030e ; <LVAR 0x008 1(r)> 0002030e ; -------------------------------------------------------------------------------------- 0002030e PROG_FAIL: 0002030e 4e 56 ff d2 |NV | LINK.W A6,#0xffd2 00020312 bf d5 | | CMPA.L (A5),A7 00020314 62 06 |b | BHI 0x2031c 00020316 44 fc 00 02 |D | MOVE.W #0x2,CCR 0002031a 4e 76 |Nv | TRAPV 0002031c de fc 00 2c | , | ADDA.W #0x2c,A7 00020320 48 e7 80 80 |H | MOVEM.L A0+D0,-(A7) 00020324 41 fa ff e8 |A | LEA.L PROG_FAIL,A0 00020328 70 06 |p | MOVEQ.L #0x06,D0 0002032a 3f 20 |? | MOVE.W -(A0),-(A7) 0002032c 51 c8 ff fc |Q | DBF D0,0x2032a 00020330 1f 3c 00 03 | < | MOVE.B #0x03,-(A7) 00020334 51 4f |QO | SUBQ.L #0x8,A7 00020336 48 6f 00 0a |Ho | PEA.L (A7+0xa) 0002033a 3f 3c 00 01 |?< | MOVE.W #0x1,-(A7) 0002033e 3f 3c 00 0e |?< | MOVE.W #0xe,-(A7) 00020342 4e b9 00 01 02 c4 |N | JSR StringLit(Src : Pointer; Offset: W; Len : W) : String 00020348 58 4f |XO | ADDQ.L #0x4,A7 0002034a 10 2e 00 08 | . | MOVE.B (A6+0x8),D0 0002034e 48 80 |H | EXTB.W D0 00020350 48 c0 |H | EXTW.L D0 00020352 2f 00 |/ | MOVE.L D0,-(A7) 00020354 4e b9 00 01 02 e4 |N | JSR Long2String(a : Long) : String 0002035a 58 4f |XO | ADDQ.L #0x4,A7 0002035c 4e b9 00 01 02 d0 |N | JSR StringCat2(a, b : String) : String 00020362 50 4f |PO | ADDQ.L #0x8,A7 00020364 4e b9 00 01 03 b8 |N | JSR PopProgram(status : Byte; msg : String) 0002036a de fc 00 14 | | ADDA.W #0x14,A7 0002036e 4c df 01 01 |L | MOVEM.L (A7)+,D0+A0 00020372 4e 5e |N^ | UNLK A6 00020374 4e 75 |Nu | RTS