|
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 - metrics - download
Length: 3072 (0xc00) Notes: 00_class, 5813_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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02e8 | | .CONST 0x02e8 ; 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 0071 | q | .CONST 0x0071 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0022 | " | .CONST 0x0022 ; Number of locals 000b INIT_0008: 000b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x0 = .DEBUG 0x000b,0x03b2,0x0000,0x0000,0x0057,0x23a5,0x0000,0x0b54 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x0.0x1 = 0xc,0xfffe 000d 0129 | ) | Execute Any,Make_Visible 000e 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xe,0xfffd 0010 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x10,0xfffc 0012 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x12,0xfffb 0014 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x14,0xfffa 0016 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x16,0xfff9 0018 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x18,0xfff8 001a 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1a,0xfff7 001c 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1c,0xfff6 001e 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1e,0xfff5 0020 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x20,0xfff4 0022 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x22,0xfff3 0024 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x24,0xfff2 0026 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x26,0xfff1 0028 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x28,0xfff0 002a 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x2a,0xffef 002c 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x11 = 0x2c,0xffee 002d 4804 |H | Short_Literal 0x4 002e 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 0030 03fd | | Declare_Type Discrete,Defined 0031 625a |bZ | Indirect_Literal Discrete,0x28c,{0x00000000, 0x005723a5} ; Debug Table 0x0.0x12 = 0x31,0xffed 0032 6255 |bU | Indirect_Literal Discrete,0x288,{0x00000000, 0x00000c35} 0033 00da | | Load_Top At_Offset_2 0034 4800 |H | Short_Literal 0x0 0035 4801 |H | Short_Literal 0x1 0036 4804 |H | Short_Literal 0x4 0037 0092 0299 | | Action Push_String_Extended,0x299 ; "primary => Boolean_Valued, others => Unspecified" 0039 00ea | | Load_Encached Null_String_Cache 003a 00ea | | Load_Encached Null_String_Cache 003b 4801 |H | Short_Literal 0x1 003c 4804 |H | Short_Literal 0x4 003d e001 | | Load 0x0,0x1 003e 0387 | | Declare_Variable Package 003f 00d8 | | Load_Top At_Offset_0 0040 020f | | Execute Module,Activate 0041 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x13 = 0x41,0xffec 0042 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0043 e20d | | Load 0x1,0xd 0044 03a2 | | Complete_Type Heap_Access,By_Renaming 0045 00bf | | Action Accept_Activation 0046 4801 |H | Short_Literal 0x1 ; Debug Table 0x1 = .DEBUG 0x0046,0x03dc,0x0000,0x0000,0x0057,0x2805,0x0000,0x0008 ; Debug Table 0x1.0x0 = 0x46,0xffff 0047 4806 |H | Short_Literal 0x6 0048 e002 | | Load 0x0,0x2 0049 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004a 0334 | 4 | Declare_Variable Array,With_Constraint 004b 5244 |RD | Indirect_Literal Any,0x290,{0x7463702f, 0x69702020} 004c e20d | | Load 0x1,0xd ; Debug Table 0x1.0x1 = 0x4c,0xfffe 004d 00ea | | Load_Encached Null_String_Cache 004e 00db | | Load_Top At_Offset_3 004f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0050 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0051 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x2 = 0x51,0xfffd 0052 00c7 | | Action Elaborate_Subprogram 0053 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x3 = 0x53,0xfffc 0054 00c7 | | Action Elaborate_Subprogram 0055 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x4 = 0x55,0xfffb 0056 00c7 | | Action Elaborate_Subprogram 0057 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x5 = 0x57,0xfffa 0058 00c7 | | Action Elaborate_Subprogram 0059 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x6 = 0x59,0xfff9 005a 00c7 | | Action Elaborate_Subprogram 005b 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x7 = 0x5b,0xfff8 005c 00c7 | | Action Elaborate_Subprogram 005d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x8 = 0x5d,0xfff7 005e 00c7 | | Action Elaborate_Subprogram 005f 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x9 = 0x5f,0xfff6 0060 00c7 | | Action Elaborate_Subprogram 0061 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call ; Debug Table 0x1.0xa = 0x61,0xfff5 0063 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xb = 0x63,0xfff4 0064 00c7 | | Action Elaborate_Subprogram 0065 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xc = 0x65,0xfff3 0066 00c7 | | Action Elaborate_Subprogram 0067 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xd = 0x67,0xfff2 0068 00c7 | | Action Elaborate_Subprogram 0069 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0xe = 0x69,0xfff1 006a 00c7 | | Action Elaborate_Subprogram 006b 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xf = 0x6b,0xfff0 006c 00c7 | | Action Elaborate_Subprogram 006d 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0x10 = 0x6d,0xffef 006e 00c7 | | Action Elaborate_Subprogram 006f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x11 = 0x6f,0xffee 0070 00c7 | | Action Elaborate_Subprogram 0071 BODY_0008: 0071 00bc | | Action Signal_Activated 0072 00bb | | Action Signal_Completion 0073 0000 0000 | | .BLANK 0000[0x5] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 007f | | .CONST 0x007f ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b e220 | | Load 0x1,0x20 ; Debug Table 0x2 = .DEBUG 0x007b,0x0402,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b5d ; Debug Table 0x2.0x0 = 0x7b,0x1 007c e003 | | Load 0x0,0x3 007d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 007e 00ca | | Action Exit_Nullary_Function 007f TRAP_0078: 007f e003 | | Load 0x0,0x3 0080 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0081 010f | | Execute Exception,Equal 0082 6802 |h | Jump_Zero 0x85 0083 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x2.0x1 = 0x83,0x2 0084 00ca | | Action Exit_Nullary_Function 0085 0100 | | Execute Exception,Raise 0086 0000 0000 | | .XXX[0x2] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 0092 029a | | Action Push_String_Extended,0x29a ; "State.Compatibility.State" ; Debug Table 0x3 = .DEBUG 0x008b,0x0408,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b62 ; Debug Table 0x3.0x0 = 0x8b,0x1 008d 00ca | | Action Exit_Nullary_Function 008e 0000 0000 | | .XXX[0x2] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 482e |H. | Short_Literal 0x2e ; Debug Table 0x4 = .DEBUG 0x0093,0x040c,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b67 ; Debug Table 0x4.0x0 = 0x93,0x1 0094 00db | | Load_Top At_Offset_3 0095 e004 | | Load 0x0,0x4 0096 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0097 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0098 01cb | | Execute Vector,Append 0099 8210 | | Call 0x1,0x10 009a 01cc | | Execute Vector,Catenate 009b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009c 0000 0000 | | .BLANK 0000[0x4] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a7 | | .CONST 0x00a7 ; Address of begin 00a1 00ac | | .CONST 0x00ac ; Address of exception handler 00a2 0003 | | .CONST 0x0003 ; Number of locals 00a3 INIT_00a0: 00a3 029f 020b | | Declare_Subprogram INIT_0208,For_Call ; Debug Table 0x5 = .DEBUG 0x00a3,0x0410,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b72 ; Debug Table 0x5.0x0 = 0xa3,0xffff 00a5 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call ; Debug Table 0x5.0x1 = 0xa5,0xfffe 00a7 BODY_00a0: 00a7 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x2 = 0xa7,0x1 00a8 8403 | | Call 0x2,0x3 00a9 e21f | | Load 0x1,0x1f 00aa 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ac TRAP_00a0: 00ac 0007 | | Action Break_Optional 00ad e221 | ! | Load 0x1,0x21 ; Debug Table 0x5.0x3 = 0xad,0x2 00ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00af 0000 | | .XXX[0x1] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00ba | | .CONST 0x00ba ; Address of begin 00b1 00cc | | .CONST 0x00cc ; Address of exception handler 00b2 0003 | | .CONST 0x0003 ; Number of locals 00b3 INIT_00b0: 00b3 e005 | | Load 0x0,0x5 ; Debug Table 0x6 = .DEBUG 0x00b3,0x041a,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b7d ; Debug Table 0x6.0x0 = 0xb3,0xffff 00b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b5 02c7 | | Declare_Variable Any 00b6 00d8 | | Load_Top At_Offset_0 00b7 1c00 | | Execute_Immediate Run_Utility,0x0 00b8 e20d | | Load 0x1,0xd ; Debug Table 0x6.0x1 = 0xb8,0xfffe 00b9 0007 | | Action Break_Optional 00ba BODY_00b0: 00ba 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x2 = 0xba,0x1 00bb e5fe | | Load 0x2,-0x2 00bc 00ea | | Load_Encached Null_String_Cache 00bd e5ff | | Load 0x2,-0x1 00be 8211 | | Call 0x1,0x11 00bf 4800 |H | Short_Literal 0x0 00c0 e005 | | Load 0x0,0x5 00c1 1883 | | Execute Package,Field_Execute,Field_Number 0x83 00c2 c402 | | Store 0x2,0x2 00c3 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x3 = 0xc3,0x2 00c4 8212 | | Call 0x1,0x12 00c5 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00c6 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x4 = 0xc6,0x3 00c7 e005 | | Load 0x0,0x5 00c8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00c9 c402 | | Store 0x2,0x2 00ca 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x5 = 0xca,0x4 00cb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00cc TRAP_00b0: 00cc 0007 | | Action Break_Optional 00cd e221 | ! | Load 0x1,0x21 ; Debug Table 0x6.0x6 = 0xcd,0x5 00ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00cf 0000 | | .XXX[0x1] 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 4801 |H | Short_Literal 0x1 ; Debug Table 0x7 = .DEBUG 0x00d3,0x042a,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b91 ; Debug Table 0x7.0x0 = 0xd3,0x1 00d4 4801 |H | Short_Literal 0x1 00d5 e5ff | | Load 0x2,-0x1 00d6 e21f | | Load 0x1,0x1f 00d7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d9 0000 0000 | | .BLANK 0000[0x7] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 00eb | | .CONST 0x00eb ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 0092 029b | | Action Push_String_Extended,0x29b ; "0" ; Debug Table 0x8 = .DEBUG 0x00e3,0x042e,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b9a ; Debug Table 0x8.0x0 = 0xe3,0x1 00e5 4802 |H | Short_Literal 0x2 00e6 e5ff | | Load 0x2,-0x1 00e7 e21f | | Load 0x1,0x1f 00e8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00e9 8222 | " | Call 0x1,0x22 00ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00eb TRAP_00e0: 00eb 010e | | Execute Exception,Is_Constraint_Error 00ec 7002 |p | Jump_Nonzero 0xef 00ed 010d | | Execute Exception,Is_Numeric_Error 00ee 6802 |h | Jump_Zero 0xf1 00ef 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x1 = 0xef,0x2 00f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f1 0100 | | Execute Exception,Raise 00f2 0000 0000 | | .BLANK 0000[0x6] 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 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x9 = .DEBUG 0x00fb,0x0434,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0ba3 ; Debug Table 0x9.0x0 = 0xfb,0x1 00fc 4803 |H | Short_Literal 0x3 00fd e5ff | | Load 0x2,-0x1 00fe e21f | | Load 0x1,0x1f 00ff 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0100 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0101 0000 0000 | | .BLANK 0000[0x7] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00ea | | Load_Encached Null_String_Cache ; Debug Table 0xa = .DEBUG 0x010b,0x0438,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0bac ; Debug Table 0xa.0x0 = 0x10b,0x1 010c 4804 |H | Short_Literal 0x4 010d e5ff | | Load 0x2,-0x1 010e e21f | | Load 0x1,0x1f 010f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0110 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0111 0000 0000 | | .BLANK 0000[0x7] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0124 | $ | .CONST 0x0124 ; Address of begin 0119 012b | + | .CONST 0x012b ; Address of exception handler 011a 0004 | | .CONST 0x0004 ; Number of locals 011b INIT_0118: 011b e005 | | Load 0x0,0x5 ; Debug Table 0xb = .DEBUG 0x011b,0x043c,0x0001,0x0000,0x0057,0x23a5,0x0000,0x0bb5 ; Debug Table 0xb.0x0 = 0x11b,0xffff 011c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011d 02c7 | | Declare_Variable Any 011e 00d8 | | Load_Top At_Offset_0 011f 1c00 | | Execute_Immediate Run_Utility,0x0 0120 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call 0122 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call 0124 BODY_0118: 0124 8403 | | Call 0x2,0x3 ; Debug Table 0xb.0x1 = 0x124,0x1 0125 8404 | | Call 0x2,0x4 ; Debug Table 0xb.0x2 = 0x125,0x2 0126 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x3 = 0x126,0x3 0127 e005 | | Load 0x0,0x5 0128 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0129 c402 | | Store 0x2,0x2 012a 4507 |E | Exit_Suprogram New_Top_Offset 0x7 012b TRAP_0118: 012b 0007 | | Action Break_Optional 012c 4507 |E | Exit_Suprogram New_Top_Offset 0x7 ; Debug Table 0xb.0x4 = 0x12c,0x4 012d 0000 0000 | | .XXX[0x3] 012f 0000 | | 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0135 | 5 | .CONST 0x0135 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0002 | | .CONST 0x0002 ; Number of locals 0133 INIT_0130: 0133 029f 025b | [| Declare_Subprogram INIT_0258,For_Call ; Debug Table 0xc = .DEBUG 0x0133,0x0448,0x0001,0x0000,0x0057,0x23a5,0x0000,0x0bd8 ; Debug Table 0xc.0x0 = 0x133,0xffff 0135 BODY_0130: 0135 e5fe | | Load 0x2,-0x2 ; Debug Table 0xc.0x1 = 0x135,0x1 0136 00e1 | | Load_Encached Boolean_Cache 0137 025e | ^ | Execute Discrete,Convert 0138 1c01 | | Execute_Immediate Run_Utility,0x1 0139 4801 |H | Short_Literal 0x1 013a e5ff | | Load 0x2,-0x1 013b 8402 | | Call 0x2,0x2 013c e5fd | | Load 0x2,-0x3 ; Debug Table 0xc.0x2 = 0x13c,0x2 013d 00e0 | | Load_Encached Standard_Cache 013e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 013f 4802 |H | Short_Literal 0x2 0140 e5ff | | Load 0x2,-0x1 0141 8402 | | Call 0x2,0x2 0142 e5fc | | Load 0x2,-0x4 ; Debug Table 0xc.0x3 = 0x142,0x3 0143 4803 |H | Short_Literal 0x3 0144 e5ff | | Load 0x2,-0x1 0145 8402 | | Call 0x2,0x2 0146 e5fb | | Load 0x2,-0x5 ; Debug Table 0xc.0x4 = 0x146,0x4 0147 4804 |H | Short_Literal 0x4 0148 e5ff | | Load 0x2,-0x1 0149 8402 | | Call 0x2,0x2 014a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 014b 0000 0000 | | .BLANK 0000[0x5] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 015e | ^ | .CONST 0x015e ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0003 | | .CONST 0x0003 ; Number of locals 0153 INIT_0150: 0153 e20d | | Load 0x1,0xd ; Debug Table 0xd = .DEBUG 0x0153,0x0454,0x0001,0x0000,0x0057,0x23a5,0x0000,0x0bf2 ; Debug Table 0xd.0x0 = 0x153,0xffff 0154 e5fe | | Load 0x2,-0x2 0155 e21f | | Load 0x1,0x1f 0156 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0157 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0158 e5fd | | Load 0x2,-0x3 ; Debug Table 0xd.0x1 = 0x158,0xfffe 0159 e5ff | | Load 0x2,-0x1 015a e006 | | Load 0x0,0x6 015b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 015c e20e | | Load 0x1,0xe 015d 03f1 | | Declare_Variable Discrete,With_Value 015e BODY_0150: 015e e5fd | | Load 0x2,-0x3 ; Debug Table 0xd.0x2 = 0x15e,0x1 015f e5ff | | Load 0x2,-0x1 0160 e006 | | Load 0x0,0x6 0161 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0162 680b |h | Jump_Zero 0x16e 0163 e5fd | | Load 0x2,-0x3 ; Debug Table 0xd.0x3 = 0x163,0x2 0164 820f | | Call 0x1,0xf 0165 e5ff | | Load 0x2,-0x1 0166 e004 | | Load 0x0,0x4 0167 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0168 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0169 00db | | Load_Top At_Offset_3 016a 4801 |H | Short_Literal 0x1 016b e5ff | | Load 0x2,-0x1 016c 8218 | | Call 0x1,0x18 016d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 016e e5fd | | Load 0x2,-0x3 ; Debug Table 0xd.0x4 = 0x16e,0x3 016f 00da | | Load_Top At_Offset_2 0170 8217 | | Call 0x1,0x17 0171 00db | | Load_Top At_Offset_3 0172 8216 | | Call 0x1,0x16 0173 00db | | Load_Top At_Offset_3 0174 4800 |H | Short_Literal 0x0 0175 e5ff | | Load 0x2,-0x1 0176 8218 | | Call 0x1,0x18 0177 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b e221 | ! | Load 0x1,0x21 ; Debug Table 0xe = .DEBUG 0x017b,0x0460,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0c09 ; Debug Table 0xe.0x0 = 0x17b,0x1 017c 00ca | | Action Exit_Nullary_Function 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00da | | Load_Top At_Offset_2 ; Debug Table 0xf = .DEBUG 0x0183,0x0464,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0c0e ; Debug Table 0xf.0x0 = 0x183,0x1 0184 e21f | | Load 0x1,0x1f 0185 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0186 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0187 0000 | | .XXX[0x1] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 0194 | | .CONST 0x0194 ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0004 | | .CONST 0x0004 ; Number of locals 018b INIT_0188: 018b e20d | | Load 0x1,0xd ; Debug Table 0x10 = .DEBUG 0x018b,0x0468,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0c17 ; Debug Table 0x10.0x0 = 0x18b,0xffff 018c e5fe | | Load 0x2,-0x2 018d e5ff | | Load 0x2,-0x1 018e 8213 | | Call 0x1,0x13 018f 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0190 0092 029c | | Action Push_String_Extended,0x29c ; ", " ; Debug Table 0x10.0x1 = 0x190,0xfffe 0192 029f 0273 | s| Declare_Subprogram INIT_0270,For_Call ; Debug Table 0x10.0x2 = 0x192,0xfffd 0194 BODY_0188: 0194 00da | | Load_Top At_Offset_2 ; Debug Table 0x10.0x3 = 0x194,0x1 0195 8214 | | Call 0x1,0x14 0196 00e1 | | Load_Encached Boolean_Cache 0197 025e | ^ | Execute Discrete,Convert 0198 1c01 | | Execute_Immediate Run_Utility,0x1 0199 4801 |H | Short_Literal 0x1 019a 8404 | | Call 0x2,0x4 019b 00da | | Load_Top At_Offset_2 019c 01cc | | Execute Vector,Catenate 019d 00db | | Load_Top At_Offset_3 019e 8215 | | Call 0x1,0x15 019f 00e0 | | Load_Encached Standard_Cache 01a0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01a1 4802 |H | Short_Literal 0x2 01a2 8404 | | Call 0x2,0x4 01a3 01cc | | Execute Vector,Catenate 01a4 00da | | Load_Top At_Offset_2 01a5 01cc | | Execute Vector,Catenate 01a6 00db | | Load_Top At_Offset_3 01a7 8216 | | Call 0x1,0x16 01a8 4803 |H | Short_Literal 0x3 01a9 8404 | | Call 0x2,0x4 01aa 01cc | | Execute Vector,Catenate 01ab 00da | | Load_Top At_Offset_2 01ac 01cc | | Execute Vector,Catenate 01ad 00db | | Load_Top At_Offset_3 01ae 8217 | | Call 0x1,0x17 01af 4804 |H | Short_Literal 0x4 01b0 8404 | | Call 0x2,0x4 01b1 01cc | | Execute Vector,Catenate 01b2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01b3 0000 0000 | | .BLANK 0000[0x5] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 4603 |F | Jump_Case 0x4 ; Debug Table 0x11 = .DEBUG 0x01bb,0x0472,0x0005,0x0000,0x0057,0x23a5,0x0000,0x0c2c 01bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01bd 7802 |x | Jump 0x1c0 ; case 0x1 01be 7805 |x | Jump 0x1c4 ; case 0x2 01bf 7809 |x | Jump 0x1c9 ; case 0x3 01c0 00da | | Load_Top At_Offset_2 01c1 0091 0294 | | Action Push_String_Extended_Indexed,0x294 ; "NIL" 01c3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01c4 00db | | Load_Top At_Offset_3 01c5 00db | | Load_Top At_Offset_3 01c6 00e0 | | Load_Encached Standard_Cache 01c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01c9 00da | | Load_Top At_Offset_2 01ca 00e0 | | Load_Encached Standard_Cache 01cb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01cc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01cd 0000 0000 | | .XXX[0x3] 01cf 0000 | | 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d8 | | .CONST 0x01d8 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0003 | | .CONST 0x0003 ; Number of locals 01d3 INIT_01d0: 01d3 0007 | | Action Break_Optional ; Debug Table 0x12 = .DEBUG 0x01d3,0x0474,0x0002,0x0000,0x0057,0x2805,0x0000,0x0178 ; Debug Table 0x12.0x0 = 0x1d3,0xffff 01d4 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x12.0x1 = 0x1d4,0xfffe 01d5 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 01d6 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x12.0x2 = 0x1d6,0xfffd 01d7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01d8 BODY_01d0: 01d8 00cf | | Action Mark_Auxiliary 01d9 e5ff | | Load 0x2,-0x1 ; Debug Table 0x12.0x3 = 0x1d9,0x1 01da 01dc | | Execute Vector,Last 01db e5ff | | Load 0x2,-0x1 01dc 01dd | | Execute Vector,First 01dd 0263 | c | Execute Discrete,Above_Bound 01de 701f |p | Jump_Nonzero 0x1fe 01df 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x12.0x4 = 0x1df,0x2 01e0 e5ff | | Load 0x2,-0x1 01e1 01d7 | | Execute Vector,Field_Read 01e2 0b20 | | Execute_Immediate Case_Compare,0x20 01e3 7017 |p | Jump_Nonzero 0x1fb 01e4 0b5f | _ | Execute_Immediate Case_Compare,0x5f 01e5 7015 |p | Jump_Nonzero 0x1fb 01e6 0b2d | - | Execute_Immediate Case_Compare,0x2d 01e7 7007 |p | Jump_Nonzero 0x1ef 01e8 00d8 | | Load_Top At_Offset_0 01e9 4830 |H0 | Short_Literal 0x30 01ea 4839 |H9 | Short_Literal 0x39 01eb 0262 | b | Execute Discrete,In_Range 01ec 7005 |p | Jump_Nonzero 0x1f2 01ed 48e0 |H | Short_Literal 0xe0 ; Debug Table 0x12.0x5 = 0x1ed,0x6 01ee 0257 | W | Execute Discrete,Raise 01ef 4800 |H | Short_Literal 0x0 ; Debug Table 0x12.0x6 = 0x1ef,0x4 01f0 a402 | | Store_Unchecked 0x2,0x2 01f1 7809 |x | Jump 0x1fb 01f2 e403 | | Load 0x2,0x3 ; Debug Table 0x12.0x7 = 0x1f2,0x5 01f3 480a |H | Short_Literal 0xa 01f4 0271 | q | Execute Discrete,Times 01f5 00da | | Load_Top At_Offset_2 01f6 e5ff | | Load 0x2,-0x1 01f7 01d7 | | Execute Vector,Field_Read 01f8 0ad0 | | Execute_Immediate Plus,-0x30 01f9 0273 | s | Execute Discrete,Plus 01fa a403 | | Store_Unchecked 0x2,0x3 01fb 00d1 | | Pop_Control Pop_Count_1 01fc 00c8 | | Action Pop_Auxiliary_Range 01fd 3fe1 |? | Loop_Increasing 0x1df 01fe 00ce | | Action Pop_Auxiliary 01ff 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0x8 = 0x1ff,0x7 0200 6802 |h | Jump_Zero 0x203 0201 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x12.0x9 = 0x201,0x8 0202 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0203 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x12.0xa = 0x203,0x9 0204 0275 | u | Execute Discrete,Unary_Minus 0205 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0206 0000 0000 | | .XXX[0x2] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020e | | .CONST 0x020e ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0002 | | .CONST 0x0002 ; Number of locals 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 ; Debug Table 0x13 = .DEBUG 0x020b,0x048c,0x0002,0x0000,0x0057,0x2805,0x0000,0x00de ; Debug Table 0x13.0x0 = 0x20b,0xffff 020c e005 | | Load 0x0,0x5 020d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 020e BODY_0208: 020e 00db | | Load_Top At_Offset_3 ; Debug Table 0x13.0x1 = 0x20e,0x1 020f e005 | | Load 0x0,0x5 0210 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0211 6802 |h | Jump_Zero 0x214 0212 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x13.0x2 = 0x212,0x2 0213 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0214 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x13.0x3 = 0x214,0x3 0215 01dc | | Execute Vector,Last 0216 00d9 | | Load_Top At_Offset_1 0217 01d7 | | Execute Vector,Field_Read 0218 0e2c | , | Execute_Immediate Not_Equal,0x2c 0219 6804 |h | Jump_Zero 0x21e 021a 482c |H, | Short_Literal 0x2c ; Debug Table 0x13.0x4 = 0x21a,0x4 021b 00d9 | | Load_Top At_Offset_1 021c 01cb | | Execute Vector,Append 021d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x13.0x5 = 0x21e,0x5 021f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 00da | | Load_Top At_Offset_2 ; Debug Table 0x14 = .DEBUG 0x0223,0x049a,0x0002,0x0000,0x0057,0x2805,0x0000,0x0119 ; Debug Table 0x14.0x0 = 0x223,0x1 0224 e005 | | Load 0x0,0x5 0225 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0226 6802 |h | Jump_Zero 0x229 0227 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x14.0x1 = 0x227,0x2 0228 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0229 00da | | Load_Top At_Offset_2 ; Debug Table 0x14.0x2 = 0x229,0x3 022a 8402 | | Call 0x2,0x2 022b 00db | | Load_Top At_Offset_3 022c 8403 | | Call 0x2,0x3 022d 01cc | | Execute Vector,Catenate 022e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 022f 0000 | | .XXX[0x1] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 023d | = | .CONST 0x023d ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 e402 | | Load 0x2,0x2 ; Debug Table 0x15 = .DEBUG 0x0233,0x04a2,0x0004,0x0000,0x0057,0x2805,0x0000,0x0290 ; Debug Table 0x15.0x0 = 0x233,0x1 0234 e5fa | | Load 0x2,-0x6 0235 00ea | | Load_Encached Null_String_Cache 0236 e5ff | | Load 0x2,-0x1 0237 8211 | | Call 0x1,0x11 0238 4801 |H | Short_Literal 0x1 0239 e005 | | Load 0x0,0x5 023a 1882 | | Execute Package,Field_Execute,Field_Number 0x82 023b c402 | | Store 0x2,0x2 023c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 023d TRAP_0230: 023d 0007 | | Action Break_Optional 023e 00cc | | Action Pop_Block ; Debug Table 0x15.0x1 = 0x23e,0x2 023f 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 024a | J | .CONST 0x024a ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 e5fb | | Load 0x2,-0x5 ; Debug Table 0x16 = .DEBUG 0x0243,0x04a8,0x0004,0x0000,0x0057,0x2805,0x0000,0x02a7 ; Debug Table 0x16.0x0 = 0x243,0x1 0244 e5fc | | Load 0x2,-0x4 0245 e5fd | | Load 0x2,-0x3 0246 e5fe | | Load 0x2,-0x2 0247 e402 | | Load 0x2,0x2 0248 8219 | | Call 0x1,0x19 0249 4501 |E | Exit_Suprogram New_Top_Offset 0x1 024a TRAP_0240: 024a 0007 | | Action Break_Optional 024b e402 | | Load 0x2,0x2 ; Debug Table 0x16.0x1 = 0x24b,0x2 024c e005 | | Load 0x0,0x5 024d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 024e c402 | | Store 0x2,0x2 024f 00cc | | Action Pop_Block ; Debug Table 0x16.0x2 = 0x24f,0x3 0250 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0251 0000 0000 | | .BLANK 0000[0x7] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b e7fd | | Load 0x3,-0x3 ; Debug Table 0x17 = .DEBUG 0x025b,0x04b0,0x0001,0x0000,0x0057,0x2805,0x0000,0x02d0 ; Debug Table 0x17.0x0 = 0x25b,0x1 025c 01db | | Execute Vector,Length 025d 680c |h | Jump_Zero 0x26a 025e 00db | | Load_Top At_Offset_3 ; Debug Table 0x17.0x1 = 0x25e,0x2 025f e21e | | Load 0x1,0x1e 0260 025e | ^ | Execute Discrete,Convert 0261 1c01 | | Execute_Immediate Run_Utility,0x1 0262 0092 029d | | Action Push_String_Extended,0x29d ; " => " 0264 01cc | | Execute Vector,Catenate 0265 e7fd | | Load 0x3,-0x3 0266 01cc | | Execute Vector,Catenate 0267 00db | | Load_Top At_Offset_3 0268 e005 | | Load 0x0,0x5 0269 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 026a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 026b 0000 0000 | | .BLANK 0000[0x5] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 00db | | Load_Top At_Offset_3 ; Debug Table 0x18 = .DEBUG 0x0273,0x04b6,0x0002,0x0000,0x0057,0x2805,0x0000,0x0349 ; Debug Table 0x18.0x0 = 0x273,0x1 0274 01db | | Execute Vector,Length 0275 680a |h | Jump_Zero 0x280 0276 00da | | Load_Top At_Offset_2 ; Debug Table 0x18.0x1 = 0x276,0x2 0277 e21e | | Load 0x1,0x1e 0278 025e | ^ | Execute Discrete,Convert 0279 1c01 | | Execute_Immediate Run_Utility,0x1 027a 0092 029d | | Action Push_String_Extended,0x29d ; " => " 027c 01cc | | Execute Vector,Catenate 027d e7fe | | Load 0x3,-0x2 027e 01cc | | Execute Vector,Catenate 027f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0280 00da | | Load_Top At_Offset_2 ; Debug Table 0x18.0x2 = 0x280,0x3 0281 e21e | | Load 0x1,0x1e 0282 025e | ^ | Execute Discrete,Convert 0283 1c01 | | Execute_Immediate Run_Utility,0x1 0284 0092 029e | | Action Push_String_Extended,0x29e ; " => ()" 0286 01cc | | Execute Vector,Catenate 0287 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0288 0000 0000 | | .LITERAL {0x00000000, 0x00000c35} 028c 0000 0000 | | .LITERAL {0x00000000, 0x005723a5} 0290 7463 702f |tcp/| .LITERAL {0x7463702f, 0x69702020} 0294 ; -------------------------------------------------------------------------------------- 0294 ; STRING TABLE 0294 ; -------------------------------------------------------------------------------------- 0294 0018 | | .STRTAB 0x0018->0x02a0 ; "NIL" 0295 0019 | | .STRTAB 0x0019->0x02a1 ; "PRIMARY" 0296 001e | | .STRTAB 0x001e->0x02a5 ; "SUBSYSTEM" 0297 0025 | % | .STRTAB 0x0025->0x02a9 ; "PRIMARY_NAME" 0298 002f | / | .STRTAB 0x002f->0x02af ; "PRIMARY_MACHINE" 0299 003c | < | .STRTAB 0x003c->0x02b7 ; "primary => Boolean_Valued, others => Unspecified" 029a 006a | j | .STRTAB 0x006a->0x02cf ; "State.Compatibility.State" 029b 0081 | | .STRTAB 0x0081->0x02db ; "0" 029c 0080 | | .STRTAB 0x0080->0x02dc ; ", " 029d 0080 | | .STRTAB 0x0080->0x02dd ; " => " 029e 0082 | | .STRTAB 0x0082->0x02df ; " => ()" 029f 0086 | | .STREND 0x0086->0x02e2 02a0 4e49 4c50 |NILP| .STRTAB_STRINGS 02e2 0000 0000 | | .BLANK 0000[0x6] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; Debug Table 02e8 ; -------------------------------------------------------------------------------------- 02e8 0003 0019 | | .CONST 0x0003,0x0019 02ea 000b 03b2 | | .DEBUG 0x000b,0x03b2,0x0000,0x0000,0x0057,0x23a5,0x0000,0x0b54 02f2 0046 03dc | F | .DEBUG 0x0046,0x03dc,0x0000,0x0000,0x0057,0x2805,0x0000,0x0008 02fa 007b 0402 | { | .DEBUG 0x007b,0x0402,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b5d 0302 008b 0408 | | .DEBUG 0x008b,0x0408,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b62 030a 0093 040c | | .DEBUG 0x0093,0x040c,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b67 0312 00a3 0410 | | .DEBUG 0x00a3,0x0410,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b72 031a 00b3 041a | | .DEBUG 0x00b3,0x041a,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b7d 0322 00d3 042a | *| .DEBUG 0x00d3,0x042a,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b91 032a 00e3 042e | .| .DEBUG 0x00e3,0x042e,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b9a 0332 00fb 0434 | 4| .DEBUG 0x00fb,0x0434,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0ba3 033a 010b 0438 | 8| .DEBUG 0x010b,0x0438,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0bac 0342 011b 043c | <| .DEBUG 0x011b,0x043c,0x0001,0x0000,0x0057,0x23a5,0x0000,0x0bb5 034a 0133 0448 | 3 H| .DEBUG 0x0133,0x0448,0x0001,0x0000,0x0057,0x23a5,0x0000,0x0bd8 0352 0153 0454 | S T| .DEBUG 0x0153,0x0454,0x0001,0x0000,0x0057,0x23a5,0x0000,0x0bf2 035a 017b 0460 | { `| .DEBUG 0x017b,0x0460,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0c09 0362 0183 0464 | d| .DEBUG 0x0183,0x0464,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0c0e 036a 018b 0468 | h| .DEBUG 0x018b,0x0468,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0c17 0372 01bb 0472 | r| .DEBUG 0x01bb,0x0472,0x0005,0x0000,0x0057,0x23a5,0x0000,0x0c2c 037a 01d3 0474 | t| .DEBUG 0x01d3,0x0474,0x0002,0x0000,0x0057,0x2805,0x0000,0x0178 0382 020b 048c | | .DEBUG 0x020b,0x048c,0x0002,0x0000,0x0057,0x2805,0x0000,0x00de 038a 0223 049a | # | .DEBUG 0x0223,0x049a,0x0002,0x0000,0x0057,0x2805,0x0000,0x0119 0392 0233 04a2 | 3 | .DEBUG 0x0233,0x04a2,0x0004,0x0000,0x0057,0x2805,0x0000,0x0290 039a 0243 04a8 | C | .DEBUG 0x0243,0x04a8,0x0004,0x0000,0x0057,0x2805,0x0000,0x02a7 03a2 025b 04b0 | [ | .DEBUG 0x025b,0x04b0,0x0001,0x0000,0x0057,0x2805,0x0000,0x02d0 03aa 0273 04b6 | s | .DEBUG 0x0273,0x04b6,0x0002,0x0000,0x0057,0x2805,0x0000,0x0349 03b2 ; -------------------------------------------------------------------------------------- 03b2 ; Debug3 Subtable 0x0 03b2 ; -------------------------------------------------------------------------------------- 03b2 0014 0000 | | .DBG3TAB 0x0014,0x0000 03b4 000b ffff | | .CONST 0x000b,0xffff 03b6 000c fffe | | .CONST 0x000c,0xfffe 03b8 000e fffd | | .CONST 0x000e,0xfffd 03ba 0010 fffc | | .CONST 0x0010,0xfffc 03bc 0012 fffb | | .CONST 0x0012,0xfffb 03be 0014 fffa | | .CONST 0x0014,0xfffa 03c0 0016 fff9 | | .CONST 0x0016,0xfff9 03c2 0018 fff8 | | .CONST 0x0018,0xfff8 03c4 001a fff7 | | .CONST 0x001a,0xfff7 03c6 001c fff6 | | .CONST 0x001c,0xfff6 03c8 001e fff5 | | .CONST 0x001e,0xfff5 03ca 0020 fff4 | | .CONST 0x0020,0xfff4 03cc 0022 fff3 | " | .CONST 0x0022,0xfff3 03ce 0024 fff2 | $ | .CONST 0x0024,0xfff2 03d0 0026 fff1 | & | .CONST 0x0026,0xfff1 03d2 0028 fff0 | ( | .CONST 0x0028,0xfff0 03d4 002a ffef | * | .CONST 0x002a,0xffef 03d6 002c ffee | , | .CONST 0x002c,0xffee 03d8 0031 ffed | 1 | .CONST 0x0031,0xffed 03da 0041 ffec | A | .CONST 0x0041,0xffec 03dc ; -------------------------------------------------------------------------------------- 03dc ; Debug3 Subtable 0x1 03dc ; -------------------------------------------------------------------------------------- 03dc 0012 0000 | | .DBG3TAB 0x0012,0x0000 03de 0046 ffff | F | .CONST 0x0046,0xffff 03e0 004c fffe | L | .CONST 0x004c,0xfffe 03e2 0051 fffd | Q | .CONST 0x0051,0xfffd 03e4 0053 fffc | S | .CONST 0x0053,0xfffc 03e6 0055 fffb | U | .CONST 0x0055,0xfffb 03e8 0057 fffa | W | .CONST 0x0057,0xfffa 03ea 0059 fff9 | Y | .CONST 0x0059,0xfff9 03ec 005b fff8 | [ | .CONST 0x005b,0xfff8 03ee 005d fff7 | ] | .CONST 0x005d,0xfff7 03f0 005f fff6 | _ | .CONST 0x005f,0xfff6 03f2 0061 fff5 | a | .CONST 0x0061,0xfff5 03f4 0063 fff4 | c | .CONST 0x0063,0xfff4 03f6 0065 fff3 | e | .CONST 0x0065,0xfff3 03f8 0067 fff2 | g | .CONST 0x0067,0xfff2 03fa 0069 fff1 | i | .CONST 0x0069,0xfff1 03fc 006b fff0 | k | .CONST 0x006b,0xfff0 03fe 006d ffef | m | .CONST 0x006d,0xffef 0400 006f ffee | o | .CONST 0x006f,0xffee 0402 ; -------------------------------------------------------------------------------------- 0402 ; Debug3 Subtable 0x2 0402 ; -------------------------------------------------------------------------------------- 0402 0000 0002 | | .DBG3TAB 0x0000,0x0002 0404 007b 0001 | { | .CONST 0x007b,0x0001 0406 0083 0002 | | .CONST 0x0083,0x0002 0408 ; -------------------------------------------------------------------------------------- 0408 ; Debug3 Subtable 0x3 0408 ; -------------------------------------------------------------------------------------- 0408 0000 0001 | | .DBG3TAB 0x0000,0x0001 040a 008b 0001 | | .CONST 0x008b,0x0001 040c ; -------------------------------------------------------------------------------------- 040c ; Debug3 Subtable 0x4 040c ; -------------------------------------------------------------------------------------- 040c 0000 0001 | | .DBG3TAB 0x0000,0x0001 040e 0093 0001 | | .CONST 0x0093,0x0001 0410 ; -------------------------------------------------------------------------------------- 0410 ; Debug3 Subtable 0x5 0410 ; -------------------------------------------------------------------------------------- 0410 0002 0002 | | .DBG3TAB 0x0002,0x0002 0412 00a3 ffff | | .CONST 0x00a3,0xffff 0414 00a5 fffe | | .CONST 0x00a5,0xfffe 0416 00a7 0001 | | .CONST 0x00a7,0x0001 0418 00ad 0002 | | .CONST 0x00ad,0x0002 041a ; -------------------------------------------------------------------------------------- 041a ; Debug3 Subtable 0x6 041a ; -------------------------------------------------------------------------------------- 041a 0002 0005 | | .DBG3TAB 0x0002,0x0005 041c 00b3 ffff | | .CONST 0x00b3,0xffff 041e 00b8 fffe | | .CONST 0x00b8,0xfffe 0420 00ba 0001 | | .CONST 0x00ba,0x0001 0422 00c3 0002 | | .CONST 0x00c3,0x0002 0424 00c6 0003 | | .CONST 0x00c6,0x0003 0426 00ca 0004 | | .CONST 0x00ca,0x0004 0428 00cd 0005 | | .CONST 0x00cd,0x0005 042a ; -------------------------------------------------------------------------------------- 042a ; Debug3 Subtable 0x7 042a ; -------------------------------------------------------------------------------------- 042a 0000 0001 | | .DBG3TAB 0x0000,0x0001 042c 00d3 0001 | | .CONST 0x00d3,0x0001 042e ; -------------------------------------------------------------------------------------- 042e ; Debug3 Subtable 0x8 042e ; -------------------------------------------------------------------------------------- 042e 0000 0002 | | .DBG3TAB 0x0000,0x0002 0430 00e3 0001 | | .CONST 0x00e3,0x0001 0432 00ef 0002 | | .CONST 0x00ef,0x0002 0434 ; -------------------------------------------------------------------------------------- 0434 ; Debug3 Subtable 0x9 0434 ; -------------------------------------------------------------------------------------- 0434 0000 0001 | | .DBG3TAB 0x0000,0x0001 0436 00fb 0001 | | .CONST 0x00fb,0x0001 0438 ; -------------------------------------------------------------------------------------- 0438 ; Debug3 Subtable 0xa 0438 ; -------------------------------------------------------------------------------------- 0438 0000 0001 | | .DBG3TAB 0x0000,0x0001 043a 010b 0001 | | .CONST 0x010b,0x0001 043c ; -------------------------------------------------------------------------------------- 043c ; Debug3 Subtable 0xb 043c ; -------------------------------------------------------------------------------------- 043c 0001 0004 | | .DBG3TAB 0x0001,0x0004 043e 011b ffff | | .CONST 0x011b,0xffff 0440 0124 0001 | $ | .CONST 0x0124,0x0001 0442 0125 0002 | % | .CONST 0x0125,0x0002 0444 0126 0003 | & | .CONST 0x0126,0x0003 0446 012c 0004 | , | .CONST 0x012c,0x0004 0448 ; -------------------------------------------------------------------------------------- 0448 ; Debug3 Subtable 0xc 0448 ; -------------------------------------------------------------------------------------- 0448 0001 0004 | | .DBG3TAB 0x0001,0x0004 044a 0133 ffff | 3 | .CONST 0x0133,0xffff 044c 0135 0001 | 5 | .CONST 0x0135,0x0001 044e 013c 0002 | < | .CONST 0x013c,0x0002 0450 0142 0003 | B | .CONST 0x0142,0x0003 0452 0146 0004 | F | .CONST 0x0146,0x0004 0454 ; -------------------------------------------------------------------------------------- 0454 ; Debug3 Subtable 0xd 0454 ; -------------------------------------------------------------------------------------- 0454 0002 0003 | | .DBG3TAB 0x0002,0x0003 0456 0153 ffff | S | .CONST 0x0153,0xffff 0458 0158 fffe | X | .CONST 0x0158,0xfffe 045a 015e 0001 | ^ | .CONST 0x015e,0x0001 045c 0163 0002 | c | .CONST 0x0163,0x0002 045e 016e 0003 | n | .CONST 0x016e,0x0003 0460 ; -------------------------------------------------------------------------------------- 0460 ; Debug3 Subtable 0xe 0460 ; -------------------------------------------------------------------------------------- 0460 0000 0001 | | .DBG3TAB 0x0000,0x0001 0462 017b 0001 | { | .CONST 0x017b,0x0001 0464 ; -------------------------------------------------------------------------------------- 0464 ; Debug3 Subtable 0xf 0464 ; -------------------------------------------------------------------------------------- 0464 0000 0001 | | .DBG3TAB 0x0000,0x0001 0466 0183 0001 | | .CONST 0x0183,0x0001 0468 ; -------------------------------------------------------------------------------------- 0468 ; Debug3 Subtable 0x10 0468 ; -------------------------------------------------------------------------------------- 0468 0003 0001 | | .DBG3TAB 0x0003,0x0001 046a 018b ffff | | .CONST 0x018b,0xffff 046c 0190 fffe | | .CONST 0x0190,0xfffe 046e 0192 fffd | | .CONST 0x0192,0xfffd 0470 0194 0001 | | .CONST 0x0194,0x0001 0472 ; -------------------------------------------------------------------------------------- 0472 ; Debug3 Subtable 0x11 0472 ; -------------------------------------------------------------------------------------- 0472 0000 0000 | | .DBG3TAB 0x0000,0x0000 0474 ; -------------------------------------------------------------------------------------- 0474 ; Debug3 Subtable 0x12 0474 ; -------------------------------------------------------------------------------------- 0474 0003 0008 | | .DBG3TAB 0x0003,0x0008 0476 01d3 ffff | | .CONST 0x01d3,0xffff 0478 01d4 fffe | | .CONST 0x01d4,0xfffe 047a 01d6 fffd | | .CONST 0x01d6,0xfffd 047c 01d9 0001 | | .CONST 0x01d9,0x0001 047e 01df 0002 | | .CONST 0x01df,0x0002 0480 01ed 0006 | | .CONST 0x01ed,0x0006 0482 01ef 0004 | | .CONST 0x01ef,0x0004 0484 01f2 0005 | | .CONST 0x01f2,0x0005 0486 01ff 0007 | | .CONST 0x01ff,0x0007 0488 0201 0008 | | .CONST 0x0201,0x0008 048a 0203 0009 | | .CONST 0x0203,0x0009 048c ; -------------------------------------------------------------------------------------- 048c ; Debug3 Subtable 0x13 048c ; -------------------------------------------------------------------------------------- 048c 0001 0005 | | .DBG3TAB 0x0001,0x0005 048e 020b ffff | | .CONST 0x020b,0xffff 0490 020e 0001 | | .CONST 0x020e,0x0001 0492 0212 0002 | | .CONST 0x0212,0x0002 0494 0214 0003 | | .CONST 0x0214,0x0003 0496 021a 0004 | | .CONST 0x021a,0x0004 0498 021e 0005 | | .CONST 0x021e,0x0005 049a ; -------------------------------------------------------------------------------------- 049a ; Debug3 Subtable 0x14 049a ; -------------------------------------------------------------------------------------- 049a 0000 0003 | | .DBG3TAB 0x0000,0x0003 049c 0223 0001 | # | .CONST 0x0223,0x0001 049e 0227 0002 | ' | .CONST 0x0227,0x0002 04a0 0229 0003 | ) | .CONST 0x0229,0x0003 04a2 ; -------------------------------------------------------------------------------------- 04a2 ; Debug3 Subtable 0x15 04a2 ; -------------------------------------------------------------------------------------- 04a2 0000 0002 | | .DBG3TAB 0x0000,0x0002 04a4 0233 0001 | 3 | .CONST 0x0233,0x0001 04a6 023e 0002 | > | .CONST 0x023e,0x0002 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; Debug3 Subtable 0x16 04a8 ; -------------------------------------------------------------------------------------- 04a8 0000 0003 | | .DBG3TAB 0x0000,0x0003 04aa 0243 0001 | C | .CONST 0x0243,0x0001 04ac 024b 0002 | K | .CONST 0x024b,0x0002 04ae 024f 0003 | O | .CONST 0x024f,0x0003 04b0 ; -------------------------------------------------------------------------------------- 04b0 ; Debug3 Subtable 0x17 04b0 ; -------------------------------------------------------------------------------------- 04b0 0000 0002 | | .DBG3TAB 0x0000,0x0002 04b2 025b 0001 | [ | .CONST 0x025b,0x0001 04b4 025e 0002 | ^ | .CONST 0x025e,0x0002 04b6 ; -------------------------------------------------------------------------------------- 04b6 ; Debug3 Subtable 0x18 04b6 ; -------------------------------------------------------------------------------------- 04b6 0000 0003 | | .DBG3TAB 0x0000,0x0003 04b8 0273 0001 | s | .CONST 0x0273,0x0001 04ba 0276 0002 | v | .CONST 0x0276,0x0002 04bc 0280 0003 | | .CONST 0x0280,0x0003 04be 0000 0000 | | .BLANK 0000[0x142]