|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02d0 | | .CONST 0x02d0 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0099 | | .CONST 0x0099 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002e | . | .CONST 0x002e ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x038a,0x8000,0x0000,0x0036,0x46b4,0x0000,0x0009 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe 000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0xd,0xfffd 000e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x3 = 0xe,0xfffc 000f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0010 0129 | ) | Execute Any,Make_Visible 0011 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x4 = 0x11,0xfffb 0012 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0013 0129 | ) | Execute Any,Make_Visible 0014 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x5 = 0x14,0xfffa 0015 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0016 0129 | ) | Execute Any,Make_Visible 0017 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x6 = 0x17,0xfff9 0018 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0019 0129 | ) | Execute Any,Make_Visible 001a 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1a,0xfff8 001c 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1c,0xfff7 001e 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1e,0xfff6 0020 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x20,0xfff5 0022 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x22,0xfff4 0024 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x24,0xfff3 0026 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x26,0xfff2 0028 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x28,0xfff1 002a 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x2a,0xfff0 002c 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x2c,0xffef 002e 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x11 = 0x2e,0xffee 0030 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x12 = 0x30,0xffed 0032 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x13 = 0x32,0xffec 0034 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x14 = 0x34,0xffeb 0036 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x15 = 0x36,0xffea 0037 1912 | | Execute Package,Field_Reference,Field_Number 0x12 0038 0129 | ) | Execute Any,Make_Visible 0039 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x16 = 0x39,0xffe9 003b 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x17 = 0x3b,0xffe8 003d 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x18 = 0x3d,0xffe7 003f e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x19 = 0x3f,0xffe6 0040 191a | | Execute Package,Field_Reference,Field_Number 0x1a 0041 0129 | ) | Execute Any,Make_Visible 0042 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x1a = 0x42,0xffe5 0043 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0044 0129 | ) | Execute Any,Make_Visible 0045 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x1b = 0x45,0xffe4 0046 191c | | Execute Package,Field_Reference,Field_Number 0x1c 0047 0129 | ) | Execute Any,Make_Visible 0048 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1c = 0x48,0xffe3 004a 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1d = 0x4a,0xffe2 004c 00bf | | Action Accept_Activation 004d e003 | | Load 0x0,0x3 ; Debug Table 0x1 = .DEBUG 0x004d,0x03c8,0x8000,0x0000,0x0036,0x46c4,0x0000,0x000d ; Debug Table 0x1.0x0 = 0x4d,0xffff 004e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 004f e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x1 = 0x4f,0xfffe 0050 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0051 626a |bj | Indirect_Literal Discrete,0x2bc,{0x00000000, 0x003646c4} ; Debug Table 0x1.0x2 = 0x51,0xfffd 0052 481a |H | Short_Literal 0x1a 0053 00e8 | | Load_Encached Character_Cache 0054 e001 | | Load 0x0,0x1 0055 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0056 0387 | | Declare_Variable Package 0057 00d8 | | Load_Top At_Offset_0 0058 020f | | Execute Module,Activate 0059 6262 |bb | Indirect_Literal Discrete,0x2bc,{0x00000000, 0x003646c4} ; Debug Table 0x1.0x3 = 0x59,0xfffc 005a 4822 |H" | Short_Literal 0x22 005b e20f | | Load 0x1,0xf 005c e001 | | Load 0x0,0x1 005d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 005e 0387 | | Declare_Variable Package 005f 00d8 | | Load_Top At_Offset_0 0060 020f | | Execute Module,Activate 0061 625a |bZ | Indirect_Literal Discrete,0x2bc,{0x00000000, 0x003646c4} ; Debug Table 0x1.0x4 = 0x61,0xfffb 0062 482a |H* | Short_Literal 0x2a 0063 e228 | ( | Load 0x1,0x28 0064 e001 | | Load 0x0,0x1 0065 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0066 0387 | | Declare_Variable Package 0067 00d8 | | Load_Top At_Offset_0 0068 020f | | Execute Module,Activate 0069 6252 |bR | Indirect_Literal Discrete,0x2bc,{0x00000000, 0x003646c4} ; Debug Table 0x1.0x5 = 0x69,0xfffa 006a 4832 |H2 | Short_Literal 0x32 006b e229 | ) | Load 0x1,0x29 006c e001 | | Load 0x0,0x1 006d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 006e 0387 | | Declare_Variable Package 006f 00d8 | | Load_Top At_Offset_0 0070 020f | | Execute Module,Activate 0071 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x6 = 0x71,0xfff9 0072 00c7 | | Action Elaborate_Subprogram 0073 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x7 = 0x73,0xfff8 0074 00c7 | | Action Elaborate_Subprogram 0075 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x8 = 0x75,0xfff7 0076 00c7 | | Action Elaborate_Subprogram 0077 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 ; Debug Table 0x1.0x9 = 0x77,0xfff6 0078 00c7 | | Action Elaborate_Subprogram 0079 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xa = 0x79,0xfff5 007a 00c7 | | Action Elaborate_Subprogram 007b 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0xb = 0x7b,0xfff4 007c 00c7 | | Action Elaborate_Subprogram 007d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0xc = 0x7d,0xfff3 007e 00c7 | | Action Elaborate_Subprogram 007f 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0xd = 0x7f,0xfff2 0080 00c7 | | Action Elaborate_Subprogram 0081 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xe = 0x81,0xfff1 0082 00c7 | | Action Elaborate_Subprogram 0083 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0xf = 0x83,0xfff0 0084 00c7 | | Action Elaborate_Subprogram 0085 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x10 = 0x85,0xffef 0086 00c7 | | Action Elaborate_Subprogram 0087 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x11 = 0x87,0xffee 0088 00c7 | | Action Elaborate_Subprogram 0089 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x12 = 0x89,0xffed 008a 00c7 | | Action Elaborate_Subprogram 008b 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call ; Debug Table 0x1.0x13 = 0x8b,0xffec 008d 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0x14 = 0x8d,0xffeb 008e 00c7 | | Action Elaborate_Subprogram 008f 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x15 = 0x8f,0xffea 0090 00c7 | | Action Elaborate_Subprogram 0091 1d20 | | Execute_Immediate Reference_Lex_1,0x20 ; Debug Table 0x1.0x16 = 0x91,0xffe9 0092 00c7 | | Action Elaborate_Subprogram 0093 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 ; Debug Table 0x1.0x17 = 0x93,0xffe8 0094 00c7 | | Action Elaborate_Subprogram 0095 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 ; Debug Table 0x1.0x18 = 0x95,0xffe7 0096 00c7 | | Action Elaborate_Subprogram 0097 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 ; Debug Table 0x1.0x19 = 0x97,0xffe6 0098 00c7 | | Action Elaborate_Subprogram 0099 BODY_0008: 0099 00bc | | Action Signal_Activated 009a 00bb | | Action Signal_Completion 009b 0000 0000 | | .BLANK 0000[0x5] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 00db | | Load_Top At_Offset_3 ; Debug Table 0x2 = .DEBUG 0x00a3,0x03fe,0x0001,0x0000,0x0036,0x46b4,0x0000,0x0033 ; Debug Table 0x2.0x0 = 0xa3,0x1 00a4 4865 |He | Short_Literal 0x65 00a5 e5ff | | Load 0x2,-0x1 00a6 4800 |H | Short_Literal 0x0 00a7 e001 | | Load 0x0,0x1 00a8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a9 c5fe | | Store 0x2,-0x2 00aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ab 0000 0000 | | .BLANK 0000[0x5] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 00db | | Load_Top At_Offset_3 ; Debug Table 0x3 = .DEBUG 0x00b3,0x0402,0x0001,0x0000,0x0036,0x46b4,0x0000,0x003f ; Debug Table 0x3.0x0 = 0xb3,0x1 00b4 4865 |He | Short_Literal 0x65 00b5 e5ff | | Load 0x2,-0x1 00b6 4801 |H | Short_Literal 0x1 00b7 e001 | | Load 0x0,0x1 00b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00b9 c5fe | | Store 0x2,-0x2 00ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00bb 0000 0000 | | .BLANK 0000[0x5] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x00c3,0x0406,0x0001,0x0000,0x0036,0x46b4,0x0000,0x004b ; Debug Table 0x4.0x0 = 0xc3,0x1 00c4 4801 |H | Short_Literal 0x1 00c5 e001 | | Load 0x0,0x1 00c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c7 c5ff | | Store 0x2,-0x1 00c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c9 0000 0000 | | .BLANK 0000[0x7] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00db | | Load_Top At_Offset_3 ; Debug Table 0x5 = .DEBUG 0x00d3,0x040a,0x0001,0x0000,0x0036,0x46b4,0x0000,0x0053 ; Debug Table 0x5.0x0 = 0xd3,0x1 00d4 00db | | Load_Top At_Offset_3 00d5 e22a | * | Load 0x1,0x2a 00d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00db | | Load_Top At_Offset_3 ; Debug Table 0x6 = .DEBUG 0x00db,0x040e,0x0001,0x0000,0x0036,0x46b4,0x0000,0x005f ; Debug Table 0x6.0x0 = 0xdb,0x1 00dc 01dc | | Execute Vector,Last 00dd e5fe | | Load 0x2,-0x2 00de 01dd | | Execute Vector,First 00df 0263 | c | Execute Discrete,Above_Bound 00e0 7007 |p | Jump_Nonzero 0xe8 00e1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x1 = 0xe1,0x2 00e2 e5fe | | Load 0x2,-0x2 00e3 01d7 | | Execute Vector,Field_Read 00e4 e5ff | | Load 0x2,-0x1 00e5 e22a | * | Load 0x1,0x2a 00e6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e7 3ff9 |? | Loop_Increasing 0xe1 00e8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00e9 0000 0000 | | .BLANK 0000[0x7] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 480a |H | Short_Literal 0xa ; Debug Table 0x7 = .DEBUG 0x00f3,0x0414,0x0001,0x0000,0x0036,0x46b4,0x0000,0x006b ; Debug Table 0x7.0x0 = 0xf3,0x1 00f4 00db | | Load_Top At_Offset_3 00f5 e22a | * | Load 0x1,0x2a 00f6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00f7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00db | | Load_Top At_Offset_3 ; Debug Table 0x8 = .DEBUG 0x00fb,0x0418,0x0001,0x0000,0x0036,0x46b4,0x0000,0x0073 ; Debug Table 0x8.0x0 = 0xfb,0x1 00fc 00db | | Load_Top At_Offset_3 00fd e22b | + | Load 0x1,0x2b 00fe 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00db | | Load_Top At_Offset_3 ; Debug Table 0x9 = .DEBUG 0x0103,0x041c,0x0001,0x0000,0x0036,0x46b4,0x0000,0x007f ; Debug Table 0x9.0x0 = 0x103,0x1 0104 01db | | Execute Vector,Length 0105 61b2 |a | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x00000400} 0106 027f | | Execute Discrete,Equal 0107 680c |h | Jump_Zero 0x114 0108 00db | | Load_Top At_Offset_3 0109 01dd | | Execute Vector,First 010a 0f01 | | Execute_Immediate Equal,0x1 010b 6808 |h | Jump_Zero 0x114 010c 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x1 = 0x10c,0x2 010d e003 | | Load 0x0,0x3 010e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 010f 01c3 | | Execute Vector,Check_In_Type 0110 00db | | Load_Top At_Offset_3 0111 e22c | , | Load 0x1,0x2c 0112 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0113 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0114 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x2 = 0x114,0x3 0115 01db | | Execute Vector,Length 0116 0ffb | | Execute_Immediate Equal,-0x5 0117 680c |h | Jump_Zero 0x124 0118 00db | | Load_Top At_Offset_3 0119 01dd | | Execute Vector,First 011a 0f01 | | Execute_Immediate Equal,0x1 011b 6808 |h | Jump_Zero 0x124 011c 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x3 = 0x11c,0x4 011d e004 | | Load 0x0,0x4 011e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011f 01c3 | | Execute Vector,Check_In_Type 0120 00db | | Load_Top At_Offset_3 0121 e22d | - | Load 0x1,0x2d 0122 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0123 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0124 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x4 = 0x124,0x5 0125 01d9 | | Execute Vector,Reverse_Bounds 0126 0263 | c | Execute Discrete,Above_Bound 0127 7007 |p | Jump_Nonzero 0x12f 0128 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x5 = 0x128,0x6 0129 e5fe | | Load 0x2,-0x2 012a 01d7 | | Execute Vector,Field_Read 012b e5ff | | Load 0x2,-0x1 012c e22b | + | Load 0x1,0x2b 012d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 012e 3ff9 |? | Loop_Increasing 0x128 012f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 4800 |H | Short_Literal 0x0 ; Debug Table 0xa = .DEBUG 0x0133,0x042a,0x0001,0x0000,0x0036,0x46b4,0x0000,0x008b ; Debug Table 0xa.0x0 = 0x133,0x1 0134 00db | | Load_Top At_Offset_3 0135 e22a | * | Load 0x1,0x2a 0136 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0137 a5fe | | Store_Unchecked 0x2,-0x2 0138 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0139 0000 0000 | | .BLANK 0000[0x7] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 4800 |H | Short_Literal 0x0 ; Debug Table 0xb = .DEBUG 0x0143,0x042e,0x0001,0x0000,0x0036,0x46b4,0x0000,0x0097 ; Debug Table 0xb.0x0 = 0x143,0x1 0144 00db | | Load_Top At_Offset_3 0145 e22b | + | Load 0x1,0x2b 0146 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0147 a5fe | | Store_Unchecked 0x2,-0x2 0148 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0149 0000 0000 | | .BLANK 0000[0x7] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0158 | X | .CONST 0x0158 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0003 | | .CONST 0x0003 ; Number of locals 0153 INIT_0150: 0153 00db | | Load_Top At_Offset_3 ; Debug Table 0xc = .DEBUG 0x0153,0x0432,0x0001,0x0000,0x0036,0x46b4,0x0000,0x00a3 ; Debug Table 0xc.0x0 = 0x153,0xffff 0154 01dd | | Execute Vector,First 0155 00e3 | | Load_Encached Natural_Cache 0156 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0157 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xc.0x1 = 0x157,0xfffe 0158 BODY_0150: 0158 e5fe | | Load 0x2,-0x2 ; Debug Table 0xc.0x2 = 0x158,0x1 0159 01db | | Execute Vector,Length 015a 615d |a] | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x00000400} 015b 027f | | Execute Discrete,Equal 015c 6807 |h | Jump_Zero 0x164 015d 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0x3 = 0x15d,0x2 015e e5ff | | Load 0x2,-0x1 015f e22c | , | Load 0x1,0x2c 0160 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0161 e5fe | | Load 0x2,-0x2 0162 01d4 | | Execute Vector,Structure_Write 0163 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0164 e5fe | | Load 0x2,-0x2 ; Debug Table 0xc.0x4 = 0x164,0x3 0165 01db | | Execute Vector,Length 0166 0ffb | | Execute_Immediate Equal,-0x5 0167 6807 |h | Jump_Zero 0x16f 0168 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0x5 = 0x168,0x4 0169 e5ff | | Load 0x2,-0x1 016a e22d | - | Load 0x1,0x2d 016b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 016c e5fe | | Load 0x2,-0x2 016d 01d4 | | Execute Vector,Structure_Write 016e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 016f 0007 | | Action Break_Optional ; Debug Table 0xc.0x6 = 0x16f,0x5 0170 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0x7 = 0x170,0x6 0171 6146 |aF | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x00000400} 0172 0273 | s | Execute Discrete,Plus 0173 0248 | H | Execute Discrete,Check_In_Integer 0174 0aff | | Execute_Immediate Plus,-0x1 0175 0059 | Y | Store_Top Discrete,At_Offset_1 0176 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x8 = 0x176,0x7 0177 e5fe | | Load 0x2,-0x2 0178 01dc | | Execute Vector,Last 0179 027d | } | Execute Discrete,Greater 017a 700d |p | Jump_Nonzero 0x188 017b 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0x9 = 0x17b,0x8 017c e5ff | | Load 0x2,-0x1 017d e22c | , | Load 0x1,0x2c 017e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 017f 00da | | Load_Top At_Offset_2 0180 00da | | Load_Top At_Offset_2 0181 e5fe | | Load 0x2,-0x2 0182 01ce | | Execute Vector,Slice_Write 0183 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0xa = 0x183,0x9 0184 6133 |a3 | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x00000400} 0185 0273 | s | Execute Discrete,Plus 0186 005a | Z | Store_Top Discrete,At_Offset_2 0187 7fe8 | | Jump 0x170 0188 0007 | | Action Break_Optional ; Debug Table 0xc.0xb = 0x188,0xa 0189 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0xc = 0x189,0xb 018a 48fb |H | Short_Literal 0xfb 018b 0273 | s | Execute Discrete,Plus 018c 0248 | H | Execute Discrete,Check_In_Integer 018d 0aff | | Execute_Immediate Plus,-0x1 018e 0059 | Y | Store_Top Discrete,At_Offset_1 018f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0xd = 0x18f,0xc 0190 e5fe | | Load 0x2,-0x2 0191 01dc | | Execute Vector,Last 0192 027d | } | Execute Discrete,Greater 0193 700d |p | Jump_Nonzero 0x1a1 0194 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0xe = 0x194,0xd 0195 e5ff | | Load 0x2,-0x1 0196 e22d | - | Load 0x1,0x2d 0197 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0198 00da | | Load_Top At_Offset_2 0199 00da | | Load_Top At_Offset_2 019a e5fe | | Load 0x2,-0x2 019b 01ce | | Execute Vector,Slice_Write 019c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0xf = 0x19c,0xe 019d 48fb |H | Short_Literal 0xfb 019e 0273 | s | Execute Discrete,Plus 019f 005a | Z | Store_Top Discrete,At_Offset_2 01a0 7fe8 | | Jump 0x189 01a1 e5fe | | Load 0x2,-0x2 ; Debug Table 0xc.0x10 = 0x1a1,0xf 01a2 01dc | | Execute Vector,Last 01a3 00da | | Load_Top At_Offset_2 01a4 0263 | c | Execute Discrete,Above_Bound 01a5 7008 |p | Jump_Nonzero 0x1ae 01a6 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0x11 = 0x1a6,0x10 01a7 e5ff | | Load 0x2,-0x1 01a8 e22b | + | Load 0x1,0x2b 01a9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01aa 00d9 | | Load_Top At_Offset_1 01ab e5fe | | Load 0x2,-0x2 01ac 01d6 | | Execute Vector,Field_Write 01ad 3ff8 |? | Loop_Increasing 0x1a6 01ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01af 0000 | | .XXX[0x1] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01c1 | | .CONST 0x01c1 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0003 | | .CONST 0x0003 ; Number of locals 01b3 INIT_01b0: 01b3 e001 | | Load 0x0,0x1 ; Debug Table 0xd = .DEBUG 0x01b3,0x0458,0x0002,0x0000,0x0036,0x46b4,0x0000,0x00af ; Debug Table 0xd.0x0 = 0x1b3,0xffff 01b4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01b5 0248 | H | Execute Discrete,Check_In_Integer 01b6 00e2 | | Load_Encached Integer_Cache 01b7 03f1 | | Declare_Variable Discrete,With_Value 01b8 4800 |H | Short_Literal 0x0 ; Debug Table 0xd.0x1 = 0x1b8,0xfffe 01b9 e5ff | | Load 0x2,-0x1 01ba e001 | | Load 0x0,0x1 01bb 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01bc 0248 | H | Execute Discrete,Check_In_Integer 01bd 0aff | | Execute_Immediate Plus,-0x1 01be 0248 | H | Execute Discrete,Check_In_Integer 01bf 00e2 | | Load_Encached Integer_Cache 01c0 03f1 | | Declare_Variable Discrete,With_Value 01c1 BODY_01b0: 01c1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xd.0x2 = 0x1c1,0x1 01c2 00da | | Load_Top At_Offset_2 01c3 0272 | r | Execute Discrete,Minus 01c4 0a07 | | Execute_Immediate Plus,0x7 01c5 0248 | H | Execute Discrete,Check_In_Integer 01c6 09fd | | Execute_Immediate Binary_Scale,-0x3 01c7 00e3 | | Load_Encached Natural_Cache 01c8 025b | [ | Execute Discrete,Check_In_Type 01c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ca 0000 0000 | | .BLANK 0000[0x6] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 4800 |H | Short_Literal 0x0 ; Debug Table 0xe = .DEBUG 0x01d3,0x0460,0x0002,0x0000,0x0036,0x46b4,0x0000,0x00b8 ; Debug Table 0xe.0x0 = 0x1d3,0x1 01d4 00db | | Load_Top At_Offset_3 01d5 e001 | | Load 0x0,0x1 01d6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01e3 | | .CONST 0x01e3 ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0003 | | .CONST 0x0003 ; Number of locals 01db INIT_01d8: 01db e20d | | Load 0x1,0xd ; Debug Table 0xf = .DEBUG 0x01db,0x0464,0x0001,0x0000,0x0036,0x46b4,0x0000,0x00c1 ; Debug Table 0xf.0x0 = 0x1db,0xffff 01dc 02c7 | | Declare_Variable Any 01dd 00d8 | | Load_Top At_Offset_0 01de 1c00 | | Execute_Immediate Run_Utility,0x0 01df e20d | | Load 0x1,0xd ; Debug Table 0xf.0x1 = 0x1df,0xfffe 01e0 02c7 | | Declare_Variable Any 01e1 00d8 | | Load_Top At_Offset_0 01e2 1c00 | | Execute_Immediate Run_Utility,0x0 01e3 BODY_01d8: 01e3 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xf.0x2 = 0x1e3,0x1 01e4 e5ff | | Load 0x2,-0x1 01e5 8211 | | Call 0x1,0x11 01e6 c402 | | Store 0x2,0x2 01e7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0x3 = 0x1e7,0x2 01e8 e5fe | | Load 0x2,-0x2 01e9 8212 | | Call 0x1,0x12 01ea c403 | | Store 0x2,0x3 01eb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0x4 = 0x1eb,0x3 01ec 00da | | Load_Top At_Offset_2 01ed 822e | . | Call 0x1,0x2e 01ee c402 | | Store 0x2,0x2 01ef c403 | | Store 0x2,0x3 01f0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xf.0x5 = 0x1f0,0x4 01f1 8213 | | Call 0x1,0x13 01f2 c402 | | Store 0x2,0x2 01f3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0x6 = 0x1f3,0x5 01f4 8213 | | Call 0x1,0x13 01f5 c403 | | Store 0x2,0x3 01f6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f7 0000 | | .XXX[0x1] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01ff | | .CONST 0x01ff ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0002 | | .CONST 0x0002 ; Number of locals 01fb INIT_01f8: 01fb e20d | | Load 0x1,0xd ; Debug Table 0x10 = .DEBUG 0x01fb,0x0474,0x0002,0x0000,0x0036,0x46b4,0x0000,0x00d9 ; Debug Table 0x10.0x0 = 0x1fb,0xffff 01fc 02c7 | | Declare_Variable Any 01fd 00d8 | | Load_Top At_Offset_0 01fe 1c00 | | Execute_Immediate Run_Utility,0x0 01ff BODY_01f8: 01ff 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0x1 = 0x1ff,0x1 0200 e5ff | | Load 0x2,-0x1 0201 8211 | | Call 0x1,0x11 0202 c402 | | Store 0x2,0x2 0203 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0x2 = 0x203,0x2 0204 8213 | | Call 0x1,0x13 0205 c402 | | Store 0x2,0x2 0206 00db | | Load_Top At_Offset_3 ; Debug Table 0x10.0x3 = 0x206,0x3 0207 0335 | 5 | Declare_Variable Array,Duplicate 0208 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0209 0000 0000 | | .BLANK 0000[0x7] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 021c | | .CONST 0x021c ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0005 | | .CONST 0x0005 ; Number of locals 0213 INIT_0210: 0213 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x11 = .DEBUG 0x0213,0x047e,0x0002,0x0000,0x0036,0x46b4,0x0000,0x00e2 ; Debug Table 0x11.0x0 = 0x213,0xffff 0214 e20d | | Load 0x1,0xd ; Debug Table 0x11.0x1 = 0x214,0xfffe 0215 02c7 | | Declare_Variable Any 0216 00d8 | | Load_Top At_Offset_0 0217 1c00 | | Execute_Immediate Run_Utility,0x0 0218 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x11.0x2 = 0x218,0xfffd 0219 0007 | | Action Break_Optional ; Debug Table 0x11.0x3 = 0x219,0xfffc 021a 029f 028b | | Declare_Subprogram INIT_0288,For_Call ; Debug Table 0x11.0x4 = 0x21a,0xfffb 021c BODY_0210: 021c 00da | | Load_Top At_Offset_2 ; Debug Table 0x11.0x5 = 0x21c,0x1 021d e5ff | | Load 0x2,-0x1 021e 8211 | | Call 0x1,0x11 021f c403 | | Store 0x2,0x3 0220 4800 |H | Short_Literal 0x0 ; Debug Table 0x11.0x6 = 0x220,0x2 0221 00db | | Load_Top At_Offset_3 0222 e001 | | Load 0x0,0x1 0223 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0224 a402 | | Store_Unchecked 0x2,0x2 0225 4800 |H | Short_Literal 0x0 ; Debug Table 0x11.0x7 = 0x225,0x3 0226 00db | | Load_Top At_Offset_3 0227 e001 | | Load 0x0,0x1 0228 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0229 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 022a 00da | | Load_Top At_Offset_2 ; Debug Table 0x11.0x8 = 0x22a,0x4 022b 8213 | | Call 0x1,0x13 022c c403 | | Store 0x2,0x3 022d 00db | | Load_Top At_Offset_3 ; Debug Table 0x11.0x9 = 0x22d,0x5 022e 8405 | | Call 0x2,0x5 022f 4820 |H | Short_Literal 0x20 0230 480a |H | Short_Literal 0xa 0231 480a |H | Short_Literal 0xa 0232 e404 | | Load 0x2,0x4 0233 0a01 | | Execute_Immediate Plus,0x1 0234 e005 | | Load 0x0,0x5 0235 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0236 01cc | | Execute Vector,Catenate 0237 0092 02c0 | | Action Push_String_Extended,0x2c0 ; " " 0239 01cc | | Execute Vector,Catenate 023a e5ff | | Load 0x2,-0x1 023b 01cc | | Execute Vector,Catenate 023c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 023d 0000 0000 | | .XXX[0x3] 023f 0000 | | 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00da | | Load_Top At_Offset_2 ; Debug Table 0x12 = .DEBUG 0x0243,0x0494,0x0001,0x0000,0x0036,0x46b4,0x0000,0x00eb ; Debug Table 0x12.0x0 = 0x243,0x1 0244 e001 | | Load 0x0,0x1 0245 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0246 c5ff | | Store 0x2,-0x1 0247 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x13 = .DEBUG 0x024b,0x0498,0x0001,0x0000,0x0036,0x46b4,0x0000,0x0119 ; Debug Table 0x13.0x0 = 0x24b,0x1 024c 0000 0000 | | .BLANK 0000[0x4] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x14 = .DEBUG 0x0253,0x049c,0x0002,0x0000,0x0036,0x46b4,0x0000,0x0121 ; Debug Table 0x14.0x0 = 0x253,0x1 0254 00ca | | Action Exit_Nullary_Function 0255 0000 0000 | | .XXX[0x3] 0257 0000 | | 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 0277 | w | .CONST 0x0277 ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0005 | | .CONST 0x0005 ; Number of locals 025b INIT_0258: 025b e001 | | Load 0x0,0x1 ; Debug Table 0x15 = .DEBUG 0x025b,0x04a0,0x0001,0x0000,0x0036,0x46c4,0x0000,0x026e ; Debug Table 0x15.0x0 = 0x25b,0xffff 025c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 025d 0248 | H | Execute Discrete,Check_In_Integer 025e 00e2 | | Load_Encached Integer_Cache 025f 03f1 | | Declare_Variable Discrete,With_Value 0260 4800 |H | Short_Literal 0x0 ; Debug Table 0x15.0x1 = 0x260,0xfffe 0261 e5ff | | Load 0x2,-0x1 0262 e001 | | Load 0x0,0x1 0263 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0264 0248 | H | Execute Discrete,Check_In_Integer 0265 0aff | | Execute_Immediate Plus,-0x1 0266 0248 | H | Execute Discrete,Check_In_Integer 0267 00e2 | | Load_Encached Integer_Cache 0268 03f1 | | Declare_Variable Discrete,With_Value 0269 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x15.0x2 = 0x269,0xfffd 026a 00d9 | | Load_Top At_Offset_1 026b 00e1 | | Load_Encached Boolean_Cache 026c 02a0 | | Declare_Subprogram Null_Subprogram 026d 4801 |H | Short_Literal 0x1 026e 035d | ] | Declare_Type Array,Defined 026f 604c |`L | Indirect_Literal Discrete,0x2bc,{0x00000000, 0x003646c4} ; Debug Table 0x15.0x3 = 0x26f,0xfffc 0270 4aa0 |J | Short_Literal 0x2a0 0271 00da | | Load_Top At_Offset_2 0272 e001 | | Load 0x0,0x1 0273 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0274 0387 | | Declare_Variable Package 0275 00d8 | | Load_Top At_Offset_0 0276 020f | | Execute Module,Activate 0277 BODY_0258: 0277 00da | | Load_Top At_Offset_2 ; Debug Table 0x15.0x4 = 0x277,0x1 0278 e402 | | Load 0x2,0x2 0279 027b | { | Execute Discrete,Greater_Equal 027a 6807 |h | Jump_Zero 0x282 027b 4800 |H | Short_Literal 0x0 ; Debug Table 0x15.0x5 = 0x27b,0x2 027c e5ff | | Load 0x2,-0x1 027d 00da | | Load_Top At_Offset_2 027e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 027f e5fe | | Load 0x2,-0x2 0280 00da | | Load_Top At_Offset_2 0281 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0282 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0283 0000 0000 | | .BLANK 0000[0x5] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028e | | .CONST 0x028e ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0002 | | .CONST 0x0002 ; Number of locals 028b INIT_0288: 028b e006 | | Load 0x0,0x6 ; Debug Table 0x16 = .DEBUG 0x028b,0x04ae,0x0002,0x0000,0x0036,0x46c4,0x0000,0x0361 ; Debug Table 0x16.0x0 = 0x28b,0xffff 028c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 028d 0322 | " | Declare_Variable Record 028e BODY_0288: 028e 00db | | Load_Top At_Offset_3 ; Debug Table 0x16.0x1 = 0x28e,0x1 028f e007 | | Load 0x0,0x7 0290 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0291 00d9 | | Load_Top At_Offset_1 0292 017d | } | Execute Record,Structure_Write 0293 0092 02c1 | | Action Push_String_Extended,0x2c1 ; "[16#" ; Debug Table 0x16.0x2 = 0x293,0x2 0295 4830 |H0 | Short_Literal 0x30 0296 4802 |H | Short_Literal 0x2 0297 4810 |H | Short_Literal 0x10 0298 e602 | | Load 0x3,0x2 0299 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 029a e005 | | Load 0x0,0x5 029b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 029c 01cc | | Execute Vector,Catenate 029d 0092 02c2 | | Action Push_String_Extended,0x2c2 ; "#, " 029f 01cc | | Execute Vector,Catenate 02a0 00d9 | | Load_Top At_Offset_1 02a1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02a2 e006 | | Load 0x0,0x6 02a3 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02a4 025e | ^ | Execute Discrete,Convert 02a5 1c01 | | Execute_Immediate Run_Utility,0x1 02a6 01cc | | Execute Vector,Catenate 02a7 0092 02c3 | | Action Push_String_Extended,0x2c3 ; ", 16#" 02a9 01cc | | Execute Vector,Catenate 02aa 4830 |H0 | Short_Literal 0x30 02ab 4806 |H | Short_Literal 0x6 02ac 4810 |H | Short_Literal 0x10 02ad e602 | | Load 0x3,0x2 02ae 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02af e005 | | Load 0x0,0x5 02b0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02b1 01cc | | Execute Vector,Catenate 02b2 0092 02c4 | | Action Push_String_Extended,0x2c4 ; "#] " 02b4 01cc | | Execute Vector,Catenate 02b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b6 0000 0000 | | .XXX[0x2] 02b8 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 02bc 0000 0000 | | .LITERAL {0x00000000, 0x003646c4} 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; STRING TABLE 02c0 ; -------------------------------------------------------------------------------------- 02c0 000c | | .STRTAB 0x000c->0x02c6 ; " " 02c1 000c | | .STRTAB 0x000c->0x02c7 ; "[16#" 02c2 000e | | .STRTAB 0x000e->0x02c9 ; "#, " 02c3 000f | | .STRTAB 0x000f->0x02ca ; ", 16#" 02c4 0012 | | .STRTAB 0x0012->0x02cd ; "#] " 02c5 0014 | | .STREND 0x0014->0x02cf 02c6 2020 5b31 | [1| .STRTAB_STRINGS 02cf 0000 | | .XXX[0x1] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; Debug Table 02d0 ; -------------------------------------------------------------------------------------- 02d0 0003 0017 | | .CONST 0x0003,0x0017 02d2 000b 038a | | .DEBUG 0x000b,0x038a,0x8000,0x0000,0x0036,0x46b4,0x0000,0x0009 02da 004d 03c8 | M | .DEBUG 0x004d,0x03c8,0x8000,0x0000,0x0036,0x46c4,0x0000,0x000d 02e2 00a3 03fe | | .DEBUG 0x00a3,0x03fe,0x0001,0x0000,0x0036,0x46b4,0x0000,0x0033 02ea 00b3 0402 | | .DEBUG 0x00b3,0x0402,0x0001,0x0000,0x0036,0x46b4,0x0000,0x003f 02f2 00c3 0406 | | .DEBUG 0x00c3,0x0406,0x0001,0x0000,0x0036,0x46b4,0x0000,0x004b 02fa 00d3 040a | | .DEBUG 0x00d3,0x040a,0x0001,0x0000,0x0036,0x46b4,0x0000,0x0053 0302 00db 040e | | .DEBUG 0x00db,0x040e,0x0001,0x0000,0x0036,0x46b4,0x0000,0x005f 030a 00f3 0414 | | .DEBUG 0x00f3,0x0414,0x0001,0x0000,0x0036,0x46b4,0x0000,0x006b 0312 00fb 0418 | | .DEBUG 0x00fb,0x0418,0x0001,0x0000,0x0036,0x46b4,0x0000,0x0073 031a 0103 041c | | .DEBUG 0x0103,0x041c,0x0001,0x0000,0x0036,0x46b4,0x0000,0x007f 0322 0133 042a | 3 *| .DEBUG 0x0133,0x042a,0x0001,0x0000,0x0036,0x46b4,0x0000,0x008b 032a 0143 042e | C .| .DEBUG 0x0143,0x042e,0x0001,0x0000,0x0036,0x46b4,0x0000,0x0097 0332 0153 0432 | S 2| .DEBUG 0x0153,0x0432,0x0001,0x0000,0x0036,0x46b4,0x0000,0x00a3 033a 01b3 0458 | X| .DEBUG 0x01b3,0x0458,0x0002,0x0000,0x0036,0x46b4,0x0000,0x00af 0342 01d3 0460 | `| .DEBUG 0x01d3,0x0460,0x0002,0x0000,0x0036,0x46b4,0x0000,0x00b8 034a 01db 0464 | d| .DEBUG 0x01db,0x0464,0x0001,0x0000,0x0036,0x46b4,0x0000,0x00c1 0352 01fb 0474 | t| .DEBUG 0x01fb,0x0474,0x0002,0x0000,0x0036,0x46b4,0x0000,0x00d9 035a 0213 047e | ~| .DEBUG 0x0213,0x047e,0x0002,0x0000,0x0036,0x46b4,0x0000,0x00e2 0362 0243 0494 | C | .DEBUG 0x0243,0x0494,0x0001,0x0000,0x0036,0x46b4,0x0000,0x00eb 036a 024b 0498 | K | .DEBUG 0x024b,0x0498,0x0001,0x0000,0x0036,0x46b4,0x0000,0x0119 0372 0253 049c | S | .DEBUG 0x0253,0x049c,0x0002,0x0000,0x0036,0x46b4,0x0000,0x0121 037a 025b 04a0 | [ | .DEBUG 0x025b,0x04a0,0x0001,0x0000,0x0036,0x46c4,0x0000,0x026e 0382 028b 04ae | | .DEBUG 0x028b,0x04ae,0x0002,0x0000,0x0036,0x46c4,0x0000,0x0361 038a ; -------------------------------------------------------------------------------------- 038a ; Debug3 Subtable 0x0 038a ; -------------------------------------------------------------------------------------- 038a 001e 0000 | | .DBG3TAB 0x001e,0x0000 038c 000b ffff | | .CONST 0x000b,0xffff 038e 000c fffe | | .CONST 0x000c,0xfffe 0390 000d fffd | | .CONST 0x000d,0xfffd 0392 000e fffc | | .CONST 0x000e,0xfffc 0394 0011 fffb | | .CONST 0x0011,0xfffb 0396 0014 fffa | | .CONST 0x0014,0xfffa 0398 0017 fff9 | | .CONST 0x0017,0xfff9 039a 001a fff8 | | .CONST 0x001a,0xfff8 039c 001c fff7 | | .CONST 0x001c,0xfff7 039e 001e fff6 | | .CONST 0x001e,0xfff6 03a0 0020 fff5 | | .CONST 0x0020,0xfff5 03a2 0022 fff4 | " | .CONST 0x0022,0xfff4 03a4 0024 fff3 | $ | .CONST 0x0024,0xfff3 03a6 0026 fff2 | & | .CONST 0x0026,0xfff2 03a8 0028 fff1 | ( | .CONST 0x0028,0xfff1 03aa 002a fff0 | * | .CONST 0x002a,0xfff0 03ac 002c ffef | , | .CONST 0x002c,0xffef 03ae 002e ffee | . | .CONST 0x002e,0xffee 03b0 0030 ffed | 0 | .CONST 0x0030,0xffed 03b2 0032 ffec | 2 | .CONST 0x0032,0xffec 03b4 0034 ffeb | 4 | .CONST 0x0034,0xffeb 03b6 0036 ffea | 6 | .CONST 0x0036,0xffea 03b8 0039 ffe9 | 9 | .CONST 0x0039,0xffe9 03ba 003b ffe8 | ; | .CONST 0x003b,0xffe8 03bc 003d ffe7 | = | .CONST 0x003d,0xffe7 03be 003f ffe6 | ? | .CONST 0x003f,0xffe6 03c0 0042 ffe5 | B | .CONST 0x0042,0xffe5 03c2 0045 ffe4 | E | .CONST 0x0045,0xffe4 03c4 0048 ffe3 | H | .CONST 0x0048,0xffe3 03c6 004a ffe2 | J | .CONST 0x004a,0xffe2 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; Debug3 Subtable 0x1 03c8 ; -------------------------------------------------------------------------------------- 03c8 001a 0000 | | .DBG3TAB 0x001a,0x0000 03ca 004d ffff | M | .CONST 0x004d,0xffff 03cc 004f fffe | O | .CONST 0x004f,0xfffe 03ce 0051 fffd | Q | .CONST 0x0051,0xfffd 03d0 0059 fffc | Y | .CONST 0x0059,0xfffc 03d2 0061 fffb | a | .CONST 0x0061,0xfffb 03d4 0069 fffa | i | .CONST 0x0069,0xfffa 03d6 0071 fff9 | q | .CONST 0x0071,0xfff9 03d8 0073 fff8 | s | .CONST 0x0073,0xfff8 03da 0075 fff7 | u | .CONST 0x0075,0xfff7 03dc 0077 fff6 | w | .CONST 0x0077,0xfff6 03de 0079 fff5 | y | .CONST 0x0079,0xfff5 03e0 007b fff4 | { | .CONST 0x007b,0xfff4 03e2 007d fff3 | } | .CONST 0x007d,0xfff3 03e4 007f fff2 | | .CONST 0x007f,0xfff2 03e6 0081 fff1 | | .CONST 0x0081,0xfff1 03e8 0083 fff0 | | .CONST 0x0083,0xfff0 03ea 0085 ffef | | .CONST 0x0085,0xffef 03ec 0087 ffee | | .CONST 0x0087,0xffee 03ee 0089 ffed | | .CONST 0x0089,0xffed 03f0 008b ffec | | .CONST 0x008b,0xffec 03f2 008d ffeb | | .CONST 0x008d,0xffeb 03f4 008f ffea | | .CONST 0x008f,0xffea 03f6 0091 ffe9 | | .CONST 0x0091,0xffe9 03f8 0093 ffe8 | | .CONST 0x0093,0xffe8 03fa 0095 ffe7 | | .CONST 0x0095,0xffe7 03fc 0097 ffe6 | | .CONST 0x0097,0xffe6 03fe ; -------------------------------------------------------------------------------------- 03fe ; Debug3 Subtable 0x2 03fe ; -------------------------------------------------------------------------------------- 03fe 0000 0001 | | .DBG3TAB 0x0000,0x0001 0400 00a3 0001 | | .CONST 0x00a3,0x0001 0402 ; -------------------------------------------------------------------------------------- 0402 ; Debug3 Subtable 0x3 0402 ; -------------------------------------------------------------------------------------- 0402 0000 0001 | | .DBG3TAB 0x0000,0x0001 0404 00b3 0001 | | .CONST 0x00b3,0x0001 0406 ; -------------------------------------------------------------------------------------- 0406 ; Debug3 Subtable 0x4 0406 ; -------------------------------------------------------------------------------------- 0406 0000 0001 | | .DBG3TAB 0x0000,0x0001 0408 00c3 0001 | | .CONST 0x00c3,0x0001 040a ; -------------------------------------------------------------------------------------- 040a ; Debug3 Subtable 0x5 040a ; -------------------------------------------------------------------------------------- 040a 0000 0001 | | .DBG3TAB 0x0000,0x0001 040c 00d3 0001 | | .CONST 0x00d3,0x0001 040e ; -------------------------------------------------------------------------------------- 040e ; Debug3 Subtable 0x6 040e ; -------------------------------------------------------------------------------------- 040e 0000 0002 | | .DBG3TAB 0x0000,0x0002 0410 00db 0001 | | .CONST 0x00db,0x0001 0412 00e1 0002 | | .CONST 0x00e1,0x0002 0414 ; -------------------------------------------------------------------------------------- 0414 ; Debug3 Subtable 0x7 0414 ; -------------------------------------------------------------------------------------- 0414 0000 0001 | | .DBG3TAB 0x0000,0x0001 0416 00f3 0001 | | .CONST 0x00f3,0x0001 0418 ; -------------------------------------------------------------------------------------- 0418 ; Debug3 Subtable 0x8 0418 ; -------------------------------------------------------------------------------------- 0418 0000 0001 | | .DBG3TAB 0x0000,0x0001 041a 00fb 0001 | | .CONST 0x00fb,0x0001 041c ; -------------------------------------------------------------------------------------- 041c ; Debug3 Subtable 0x9 041c ; -------------------------------------------------------------------------------------- 041c 0000 0006 | | .DBG3TAB 0x0000,0x0006 041e 0103 0001 | | .CONST 0x0103,0x0001 0420 010c 0002 | | .CONST 0x010c,0x0002 0422 0114 0003 | | .CONST 0x0114,0x0003 0424 011c 0004 | | .CONST 0x011c,0x0004 0426 0124 0005 | $ | .CONST 0x0124,0x0005 0428 0128 0006 | ( | .CONST 0x0128,0x0006 042a ; -------------------------------------------------------------------------------------- 042a ; Debug3 Subtable 0xa 042a ; -------------------------------------------------------------------------------------- 042a 0000 0001 | | .DBG3TAB 0x0000,0x0001 042c 0133 0001 | 3 | .CONST 0x0133,0x0001 042e ; -------------------------------------------------------------------------------------- 042e ; Debug3 Subtable 0xb 042e ; -------------------------------------------------------------------------------------- 042e 0000 0001 | | .DBG3TAB 0x0000,0x0001 0430 0143 0001 | C | .CONST 0x0143,0x0001 0432 ; -------------------------------------------------------------------------------------- 0432 ; Debug3 Subtable 0xc 0432 ; -------------------------------------------------------------------------------------- 0432 0002 0010 | | .DBG3TAB 0x0002,0x0010 0434 0153 ffff | S | .CONST 0x0153,0xffff 0436 0157 fffe | W | .CONST 0x0157,0xfffe 0438 0158 0001 | X | .CONST 0x0158,0x0001 043a 015d 0002 | ] | .CONST 0x015d,0x0002 043c 0164 0003 | d | .CONST 0x0164,0x0003 043e 0168 0004 | h | .CONST 0x0168,0x0004 0440 016f 0005 | o | .CONST 0x016f,0x0005 0442 0170 0006 | p | .CONST 0x0170,0x0006 0444 0176 0007 | v | .CONST 0x0176,0x0007 0446 017b 0008 | { | .CONST 0x017b,0x0008 0448 0183 0009 | | .CONST 0x0183,0x0009 044a 0188 000a | | .CONST 0x0188,0x000a 044c 0189 000b | | .CONST 0x0189,0x000b 044e 018f 000c | | .CONST 0x018f,0x000c 0450 0194 000d | | .CONST 0x0194,0x000d 0452 019c 000e | | .CONST 0x019c,0x000e 0454 01a1 000f | | .CONST 0x01a1,0x000f 0456 01a6 0010 | | .CONST 0x01a6,0x0010 0458 ; -------------------------------------------------------------------------------------- 0458 ; Debug3 Subtable 0xd 0458 ; -------------------------------------------------------------------------------------- 0458 0002 0001 | | .DBG3TAB 0x0002,0x0001 045a 01b3 ffff | | .CONST 0x01b3,0xffff 045c 01b8 fffe | | .CONST 0x01b8,0xfffe 045e 01c1 0001 | | .CONST 0x01c1,0x0001 0460 ; -------------------------------------------------------------------------------------- 0460 ; Debug3 Subtable 0xe 0460 ; -------------------------------------------------------------------------------------- 0460 0000 0001 | | .DBG3TAB 0x0000,0x0001 0462 01d3 0001 | | .CONST 0x01d3,0x0001 0464 ; -------------------------------------------------------------------------------------- 0464 ; Debug3 Subtable 0xf 0464 ; -------------------------------------------------------------------------------------- 0464 0002 0005 | | .DBG3TAB 0x0002,0x0005 0466 01db ffff | | .CONST 0x01db,0xffff 0468 01df fffe | | .CONST 0x01df,0xfffe 046a 01e3 0001 | | .CONST 0x01e3,0x0001 046c 01e7 0002 | | .CONST 0x01e7,0x0002 046e 01eb 0003 | | .CONST 0x01eb,0x0003 0470 01f0 0004 | | .CONST 0x01f0,0x0004 0472 01f3 0005 | | .CONST 0x01f3,0x0005 0474 ; -------------------------------------------------------------------------------------- 0474 ; Debug3 Subtable 0x10 0474 ; -------------------------------------------------------------------------------------- 0474 0001 0003 | | .DBG3TAB 0x0001,0x0003 0476 01fb ffff | | .CONST 0x01fb,0xffff 0478 01ff 0001 | | .CONST 0x01ff,0x0001 047a 0203 0002 | | .CONST 0x0203,0x0002 047c 0206 0003 | | .CONST 0x0206,0x0003 047e ; -------------------------------------------------------------------------------------- 047e ; Debug3 Subtable 0x11 047e ; -------------------------------------------------------------------------------------- 047e 0005 0005 | | .DBG3TAB 0x0005,0x0005 0480 0213 ffff | | .CONST 0x0213,0xffff 0482 0214 fffe | | .CONST 0x0214,0xfffe 0484 0218 fffd | | .CONST 0x0218,0xfffd 0486 0219 fffc | | .CONST 0x0219,0xfffc 0488 021a fffb | | .CONST 0x021a,0xfffb 048a 021c 0001 | | .CONST 0x021c,0x0001 048c 0220 0002 | | .CONST 0x0220,0x0002 048e 0225 0003 | % | .CONST 0x0225,0x0003 0490 022a 0004 | * | .CONST 0x022a,0x0004 0492 022d 0005 | - | .CONST 0x022d,0x0005 0494 ; -------------------------------------------------------------------------------------- 0494 ; Debug3 Subtable 0x12 0494 ; -------------------------------------------------------------------------------------- 0494 0000 0001 | | .DBG3TAB 0x0000,0x0001 0496 0243 0001 | C | .CONST 0x0243,0x0001 0498 ; -------------------------------------------------------------------------------------- 0498 ; Debug3 Subtable 0x13 0498 ; -------------------------------------------------------------------------------------- 0498 0000 0001 | | .DBG3TAB 0x0000,0x0001 049a 024b 0001 | K | .CONST 0x024b,0x0001 049c ; -------------------------------------------------------------------------------------- 049c ; Debug3 Subtable 0x14 049c ; -------------------------------------------------------------------------------------- 049c 0000 0001 | | .DBG3TAB 0x0000,0x0001 049e 0253 0001 | S | .CONST 0x0253,0x0001 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; Debug3 Subtable 0x15 04a0 ; -------------------------------------------------------------------------------------- 04a0 0004 0002 | | .DBG3TAB 0x0004,0x0002 04a2 025b ffff | [ | .CONST 0x025b,0xffff 04a4 0260 fffe | ` | .CONST 0x0260,0xfffe 04a6 0269 fffd | i | .CONST 0x0269,0xfffd 04a8 026f fffc | o | .CONST 0x026f,0xfffc 04aa 0277 0001 | w | .CONST 0x0277,0x0001 04ac 027b 0002 | { | .CONST 0x027b,0x0002 04ae ; -------------------------------------------------------------------------------------- 04ae ; Debug3 Subtable 0x16 04ae ; -------------------------------------------------------------------------------------- 04ae 0001 0002 | | .DBG3TAB 0x0001,0x0002 04b0 028b ffff | | .CONST 0x028b,0xffff 04b2 028e 0001 | | .CONST 0x028e,0x0001 04b4 0293 0002 | | .CONST 0x0293,0x0002 04b6 0000 0000 | | .BLANK 0000[0x14a]