|
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_07b4f8
└─⟦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 0398 | | .CONST 0x0398 ; 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 00cf | | .CONST 0x00cf ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002f | / | .CONST 0x002f ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x042a,0x8000,0x0000,0x0032,0x8d84,0x0000,0x0007 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 0129 | ) | Execute Any,Make_Visible 000e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x1 = 0xe,0xfffe 000f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0010 0129 | ) | Execute Any,Make_Visible 0011 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x2 = 0x11,0xfffd 0012 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0013 0129 | ) | Execute Any,Make_Visible 0014 0007 | | Action Break_Optional ; Debug Table 0x0.0x3 = 0x14,0xfffc 0015 0007 | | Action Break_Optional ; Debug Table 0x0.0x4 = 0x15,0xfffb 0016 0007 | | Action Break_Optional ; Debug Table 0x0.0x5 = 0x16,0xfffa 0017 0007 | | Action Break_Optional ; Debug Table 0x0.0x6 = 0x17,0xfff9 0018 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x7 = 0x18,0xfff8 0019 191c | | Execute Package,Field_Reference,Field_Number 0x1c 001a 0129 | ) | Execute Any,Make_Visible 001b 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1b,0xfff7 001d e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x9 = 0x1d,0xfff6 001e 1910 | | Execute Package,Field_Reference,Field_Number 0x10 001f 0129 | ) | Execute Any,Make_Visible 0020 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xa = 0x20,0xfff5 0021 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0022 0129 | ) | Execute Any,Make_Visible 0023 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xb = 0x23,0xfff4 0024 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0025 0129 | ) | Execute Any,Make_Visible 0026 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xc = 0x26,0xfff3 0027 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0028 0129 | ) | Execute Any,Make_Visible 0029 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x29,0xfff2 002b 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x2b,0xfff1 002d e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xf = 0x2d,0xfff0 002e 1917 | | Execute Package,Field_Reference,Field_Number 0x17 002f 0129 | ) | Execute Any,Make_Visible 0030 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x10 = 0x30,0xffef 0031 191e | | Execute Package,Field_Reference,Field_Number 0x1e 0032 0129 | ) | Execute Any,Make_Visible 0033 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x11 = 0x33,0xffee 0034 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0035 0129 | ) | Execute Any,Make_Visible 0036 0007 | | Action Break_Optional ; Debug Table 0x0.0x12 = 0x36,0xffed 0037 0007 | | Action Break_Optional ; Debug Table 0x0.0x13 = 0x37,0xffec 0038 0007 | | Action Break_Optional ; Debug Table 0x0.0x14 = 0x38,0xffeb 0039 0007 | | Action Break_Optional ; Debug Table 0x0.0x15 = 0x39,0xffea 003a 0007 | | Action Break_Optional ; Debug Table 0x0.0x16 = 0x3a,0xffe9 003b 0007 | | Action Break_Optional ; Debug Table 0x0.0x17 = 0x3b,0xffe8 003c 0007 | | Action Break_Optional ; Debug Table 0x0.0x18 = 0x3c,0xffe7 003d 0007 | | Action Break_Optional ; Debug Table 0x0.0x19 = 0x3d,0xffe6 003e 0007 | | Action Break_Optional ; Debug Table 0x0.0x1a = 0x3e,0xffe5 003f 0007 | | Action Break_Optional ; Debug Table 0x0.0x1b = 0x3f,0xffe4 0040 0007 | | Action Break_Optional ; Debug Table 0x0.0x1c = 0x40,0xffe3 0041 0007 | | Action Break_Optional ; Debug Table 0x0.0x1d = 0x41,0xffe2 0042 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1e = 0x42,0xffe1 0044 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1f = 0x44,0xffe0 0046 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x20 = 0x46,0xffdf 0048 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x21 = 0x48,0xffde 0049 0092 02c3 | | Action Push_String_Extended,0x2c3 ; "NONE" 004b 8210 | | Call 0x1,0x10 004c e20d | | Load 0x1,0xd 004d 011e | | Execute Any,Convert 004e 0129 | ) | Execute Any,Make_Visible 004f 4803 |H | Short_Literal 0x3 ; Debug Table 0x0.0x22 = 0x4f,0xffdd 0050 0092 02c4 | | Action Push_String_Extended,0x2c4 ; "INTERNAL_ERROR" 0052 8210 | | Call 0x1,0x10 0053 e20d | | Load 0x1,0xd 0054 011e | | Execute Any,Convert 0055 0129 | ) | Execute Any,Make_Visible 0056 4803 |H | Short_Literal 0x3 ; Debug Table 0x0.0x23 = 0x56,0xffdc 0057 0092 02c5 | | Action Push_String_Extended,0x2c5 ; "UNKNOWN" 0059 8210 | | Call 0x1,0x10 005a e20d | | Load 0x1,0xd 005b 011e | | Execute Any,Convert 005c 0129 | ) | Execute Any,Make_Visible 005d 4803 |H | Short_Literal 0x3 ; Debug Table 0x0.0x24 = 0x5d,0xffdb 005e 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "UNHANDLED_EXCEPTION" 0060 8210 | | Call 0x1,0x10 0061 e20d | | Load 0x1,0xd 0062 011e | | Execute Any,Convert 0063 0129 | ) | Execute Any,Make_Visible 0064 4803 |H | Short_Literal 0x3 ; Debug Table 0x0.0x25 = 0x64,0xffda 0065 0092 02c7 | | Action Push_String_Extended,0x2c7 ; "UNIMPLEMENTED" 0067 8210 | | Call 0x1,0x10 0068 e20d | | Load 0x1,0xd 0069 011e | | Execute Any,Convert 006a 0129 | ) | Execute Any,Make_Visible 006b 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x26 = 0x6b,0xffd9 006c 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "OPEN_ERROR" 006e 8210 | | Call 0x1,0x10 006f e20d | | Load 0x1,0xd 0070 011e | | Execute Any,Convert 0071 0129 | ) | Execute Any,Make_Visible 0072 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x27 = 0x72,0xffd8 0073 0092 02c9 | | Action Push_String_Extended,0x2c9 ; "CREATE_ERROR" 0075 8210 | | Call 0x1,0x10 0076 e20d | | Load 0x1,0xd 0077 011e | | Execute Any,Convert 0078 0129 | ) | Execute Any,Make_Visible 0079 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x28 = 0x79,0xffd7 007a 0092 02ca | | Action Push_String_Extended,0x2ca ; "ACCESS_ERROR" 007c 8210 | | Call 0x1,0x10 007d e20d | | Load 0x1,0xd 007e 011e | | Execute Any,Convert 007f 0129 | ) | Execute Any,Make_Visible 0080 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x29 = 0x80,0xffd6 0081 0092 02cb | | Action Push_String_Extended,0x2cb ; "LOCK_ERROR" 0083 8210 | | Call 0x1,0x10 0084 e20d | | Load 0x1,0xd 0085 011e | | Execute Any,Convert 0086 0129 | ) | Execute Any,Make_Visible 0087 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x2a = 0x87,0xffd5 0088 0092 02cc | | Action Push_String_Extended,0x2cc ; "MAPPING_ERROR" 008a 8210 | | Call 0x1,0x10 008b e20d | | Load 0x1,0xd 008c 011e | | Execute Any,Convert 008d 0129 | ) | Execute Any,Make_Visible 008e 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x2b = 0x8e,0xffd4 008f 0092 02cd | | Action Push_String_Extended,0x2cd ; "INCONSISTENCY" 0091 8210 | | Call 0x1,0x10 0092 e20d | | Load 0x1,0xd 0093 011e | | Execute Any,Convert 0094 0129 | ) | Execute Any,Make_Visible 0095 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x2c = 0x95,0xffd3 0096 0092 02ce | | Action Push_String_Extended,0x2ce ; "TABLE_OVERFLOW" 0098 8210 | | Call 0x1,0x10 0099 e20d | | Load 0x1,0xd 009a 011e | | Execute Any,Convert 009b 0129 | ) | Execute Any,Make_Visible 009c 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x2d = 0x9c,0xffd2 009d 0092 02cf | | Action Push_String_Extended,0x2cf ; "UNDEFINED" 009f 8210 | | Call 0x1,0x10 00a0 e20d | | Load 0x1,0xd 00a1 011e | | Execute Any,Convert 00a2 0129 | ) | Execute Any,Make_Visible 00a3 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x2e = 0xa3,0xffd1 00a4 0092 02d0 | | Action Push_String_Extended,0x2d0 ; "OBSOLETE" 00a6 8210 | | Call 0x1,0x10 00a7 e20d | | Load 0x1,0xd 00a8 011e | | Execute Any,Convert 00a9 0129 | ) | Execute Any,Make_Visible 00aa 4803 |H | Short_Literal 0x3 ; Debug Table 0x0.0x2f = 0xaa,0xffd0 00ab 0092 02d1 | | Action Push_String_Extended,0x2d1 ; "INVALID_OPTIONS" 00ad 8210 | | Call 0x1,0x10 00ae e20d | | Load 0x1,0xd 00af 011e | | Execute Any,Convert 00b0 0129 | ) | Execute Any,Make_Visible 00b1 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x30 = 0xb1,0xffcf 00b2 0092 02d2 | | Action Push_String_Extended,0x2d2 ; "WARNINGS_GENERATED" 00b4 8210 | | Call 0x1,0x10 00b5 e20d | | Load 0x1,0xd 00b6 011e | | Execute Any,Convert 00b7 0129 | ) | Execute Any,Make_Visible 00b8 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x31 = 0xb8,0xffce 00ba 0007 | | Action Break_Optional ; Debug Table 0x0.0x32 = 0xba,0xffcd 00bb 0007 | | Action Break_Optional ; Debug Table 0x0.0x33 = 0xbb,0xffcc 00bc 00bf | | Action Accept_Activation ; Debug Table 0x0.0x34 = 0xbc,0xffcb 00bd 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x00bd,0x0496,0x8000,0x0000,0x0032,0xcb04,0x0000,0x000f ; Debug Table 0x1.0x0 = 0xbd,0xffff 00be 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0xbe,0xfffe 00bf 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call ; Debug Table 0x1.0x2 = 0xbf,0xfffd 00c1 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x3 = 0xc1,0xfffc 00c2 00c7 | | Action Elaborate_Subprogram 00c3 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x4 = 0xc3,0xfffb 00c4 00c7 | | Action Elaborate_Subprogram 00c5 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x5 = 0xc5,0xfffa 00c6 00c7 | | Action Elaborate_Subprogram 00c7 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x6 = 0xc7,0xfff9 00c8 00c7 | | Action Elaborate_Subprogram 00c9 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x7 = 0xc9,0xfff8 00ca 00c7 | | Action Elaborate_Subprogram 00cb 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0x8 = 0xcb,0xfff7 00cc 00c7 | | Action Elaborate_Subprogram 00cd 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e ; Debug Table 0x1.0x9 = 0xcd,0xfff6 00ce 00c7 | | Action Elaborate_Subprogram 00cf BODY_0008: 00cf 00bc | | Action Signal_Activated 00d0 00bb | | Action Signal_Completion 00d1 0000 0000 | | .BLANK 0000[0x7] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00e1 | | .CONST 0x00e1 ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0004 | | .CONST 0x0004 ; Number of locals 00db INIT_00d8: 00db e5fc | | Load 0x2,-0x4 ; Debug Table 0x2 = .DEBUG 0x00db,0x04ac,0x0001,0x0000,0x0032,0x8d84,0x0000,0x004b ; Debug Table 0x2.0x0 = 0xdb,0xffff 00dc 8216 | | Call 0x1,0x16 00dd 029f 020b | | Declare_Subprogram INIT_0208,For_Call ; Debug Table 0x2.0x1 = 0xdd,0xfffe 00df 029f 021b | | Declare_Subprogram INIT_0218,For_Call ; Debug Table 0x2.0x2 = 0xdf,0xfffd 00e1 BODY_00d8: 00e1 e5fc | | Load 0x2,-0x4 ; Debug Table 0x2.0x3 = 0xe1,0x1 00e2 e001 | | Load 0x0,0x1 00e3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e4 c5fc | | Store 0x2,-0x4 00e5 e5fc | | Load 0x2,-0x4 ; Debug Table 0x2.0x4 = 0xe5,0x2 00e6 8403 | | Call 0x2,0x3 00e7 e5fd | | Load 0x2,-0x3 00e8 01cc | | Execute Vector,Catenate 00e9 8404 | | Call 0x2,0x4 00ea 01cc | | Execute Vector,Catenate 00eb e5fe | | Load 0x2,-0x2 00ec e001 | | Load 0x0,0x1 00ed 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ee c5fc | | Store 0x2,-0x4 00ef 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f9 | | .CONST 0x00f9 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0003 | | .CONST 0x0003 ; Number of locals 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x00f3,0x04b8,0x0002,0x0000,0x0032,0x8d84,0x0000,0x0099 ; Debug Table 0x3.0x0 = 0xf3,0xffff 00f4 e001 | | Load 0x0,0x1 00f5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00f6 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x1 = 0xf6,0xfffe 00f7 e001 | | Load 0x0,0x1 00f8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00f9 BODY_00f0: 00f9 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x2 = 0xf9,0x1 00fa 01db | | Execute Vector,Length 00fb 680a |h | Jump_Zero 0x106 00fc 00d8 | | Load_Top At_Offset_0 00fd 01db | | Execute Vector,Length 00fe 6807 |h | Jump_Zero 0x106 00ff 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x3 = 0xff,0x2 0100 0092 02d3 | | Action Push_String_Extended,0x2d3 ; ", " 0102 01cc | | Execute Vector,Catenate 0103 00d9 | | Load_Top At_Offset_1 0104 01cc | | Execute Vector,Catenate 0105 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0106 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x4 = 0x106,0x3 0107 00d9 | | Load_Top At_Offset_1 0108 01cc | | Execute Vector,Catenate 0109 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010a 0000 0000 | | .BLANK 0000[0x6] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0126 | & | .CONST 0x0126 ; Address of begin 0111 0146 | F | .CONST 0x0146 ; Address of exception handler 0112 0009 | | .CONST 0x0009 ; Number of locals 0113 INIT_0110: 0113 0007 | | Action Break_Optional ; Debug Table 0x4 = .DEBUG 0x0113,0x04c4,0x0002,0x0000,0x0032,0x8d84,0x0000,0x00a2 ; Debug Table 0x4.0x0 = 0x113,0xffff 0114 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x1 = 0x114,0xfffe 0115 4802 |H | Short_Literal 0x2 0116 029f 022b | +| Declare_Subprogram INIT_0228,For_Call 0118 03fd | | Declare_Type Discrete,Defined 0119 e003 | | Load 0x0,0x3 ; Debug Table 0x4.0x2 = 0x119,0xfffd 011a 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 011b e003 | | Load 0x0,0x3 ; Debug Table 0x4.0x3 = 0x11b,0xfffc 011c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011d 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x4 = 0x11d,0xfffb 011e 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x5 = 0x11e,0xfffa 011f 0007 | | Action Break_Optional 0120 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call ; Debug Table 0x4.0x6 = 0x120,0xfff9 0122 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call ; Debug Table 0x4.0x7 = 0x122,0xfff8 0124 029f 0283 | | Declare_Subprogram INIT_0280,For_Call ; Debug Table 0x4.0x8 = 0x124,0xfff7 0126 BODY_0110: 0126 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x9 = 0x126,0x1 0127 e003 | | Load 0x0,0x3 0128 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0129 e003 | | Load 0x0,0x3 012a 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 012b 822f | / | Call 0x1,0x2f 012c c403 | | Store 0x2,0x3 012d c404 | | Store 0x2,0x4 012e c405 | | Store 0x2,0x5 012f e405 | | Load 0x2,0x5 ; Debug Table 0x4.0xa = 0x12f,0x2 0130 6812 |h | Jump_Zero 0x143 0131 8409 | | Call 0x2,0x9 ; Debug Table 0x4.0xb = 0x131,0x3 0132 a406 | | Store_Unchecked 0x2,0x6 0133 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0xc = 0x133,0x4 0134 e402 | | Load 0x2,0x2 0135 025e | ^ | Execute Discrete,Convert 0136 1c01 | | Execute_Immediate Run_Utility,0x1 0137 0092 02d4 | | Action Push_String_Extended,0x2d4 ; " exception - " 0139 01cc | | Execute Vector,Catenate 013a e406 | | Load 0x2,0x6 013b 8408 | | Call 0x2,0x8 013c 01cc | | Execute Vector,Catenate 013d 0092 02d5 | | Action Push_String_Extended,0x2d5 ; ". Raised at - " 013f 01cc | | Execute Vector,Catenate 0140 8407 | | Call 0x2,0x7 0141 01cc | | Execute Vector,Catenate 0142 00ca | | Action Exit_Nullary_Function 0143 0092 02d6 | | Action Push_String_Extended,0x2d6 ; "<Couldn't find any exception>" ; Debug Table 0x4.0xd = 0x143,0x5 0145 00ca | | Action Exit_Nullary_Function 0146 TRAP_0110: 0146 0007 | | Action Break_Optional 0147 0092 02d7 | | Action Push_String_Extended,0x2d7 ; "<Exception while processing exception info>" ; Debug Table 0x4.0xe = 0x147,0x6 0149 00ca | | Action Exit_Nullary_Function 014a 0000 0000 | | .BLANK 0000[0x6] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 e5fb | | Load 0x2,-0x5 ; Debug Table 0x5 = .DEBUG 0x0153,0x04e4,0x0001,0x0000,0x0032,0x8d84,0x0000,0x0132 ; Debug Table 0x5.0x0 = 0x153,0x1 0154 e5fc | | Load 0x2,-0x4 0155 e5fd | | Load 0x2,-0x3 0156 4829 |H) | Short_Literal 0x29 0157 e5fe | | Load 0x2,-0x2 0158 0092 02d8 | | Action Push_String_Extended,0x2d8 ; " (" 015a 01cc | | Execute Vector,Catenate 015b 8217 | | Call 0x1,0x17 015c 01cc | | Execute Vector,Catenate 015d 01cb | | Execute Vector,Append 015e e5ff | | Load 0x2,-0x1 015f 821d | | Call 0x1,0x1d 0160 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0161 0000 0000 | | .BLANK 0000[0x7] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016d | m | .CONST 0x016d ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0002 | | .CONST 0x0002 ; Number of locals 016b INIT_0168: 016b 029f 029b | | Declare_Subprogram INIT_0298,For_Call ; Debug Table 0x6 = .DEBUG 0x016b,0x04e8,0x0001,0x0000,0x0032,0x8d84,0x0000,0x0148 ; Debug Table 0x6.0x0 = 0x16b,0xffff 016d BODY_0168: 016d e5fa | | Load 0x2,-0x6 ; Debug Table 0x6.0x1 = 0x16d,0x1 016e e5fb | | Load 0x2,-0x5 016f e5fc | | Load 0x2,-0x4 0170 e5fe | | Load 0x2,-0x2 0171 8402 | | Call 0x2,0x2 0172 01cc | | Execute Vector,Catenate 0173 e5ff | | Load 0x2,-0x1 0174 821d | | Call 0x1,0x1d 0175 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0176 0000 0000 | | .XXX[0x2] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017d | } | .CONST 0x017d ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0002 | | .CONST 0x0002 ; Number of locals 017b INIT_0178: 017b 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call ; Debug Table 0x7 = .DEBUG 0x017b,0x04ee,0x0001,0x0000,0x0032,0x8d84,0x0000,0x0162 ; Debug Table 0x7.0x0 = 0x17b,0xffff 017d BODY_0178: 017d e5fb | | Load 0x2,-0x5 ; Debug Table 0x7.0x1 = 0x17d,0x1 017e 6803 |h | Jump_Zero 0x182 017f 8402 | | Call 0x2,0x2 ; Debug Table 0x7.0x2 = 0x17f,0x2 0180 e004 | | Load 0x0,0x4 0181 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0182 e5fc | | Load 0x2,-0x4 ; Debug Table 0x7.0x3 = 0x182,0x3 0183 7006 |p | Jump_Nonzero 0x18a 0184 e002 | | Load 0x0,0x2 ; Debug Table 0x7.0x4 = 0x184,0x4 0185 180e | | Execute Package,Field_Execute,Field_Number 0xe 0186 e5fd | | Load 0x2,-0x3 0187 8402 | | Call 0x2,0x2 0188 e005 | | Load 0x0,0x5 0189 1813 | | Execute Package,Field_Execute,Field_Number 0x13 018a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 018b 0000 0000 | | .BLANK 0000[0x5] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 e002 | | Load 0x0,0x2 ; Debug Table 0x8 = .DEBUG 0x0193,0x04fa,0x0001,0x0000,0x0032,0x8d84,0x0000,0x0238 ; Debug Table 0x8.0x0 = 0x193,0x1 0194 180e | | Execute Package,Field_Execute,Field_Number 0xe 0195 00db | | Load_Top At_Offset_3 0196 e005 | | Load 0x0,0x5 0197 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0198 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0199 0000 0000 | | .BLANK 0000[0x7] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01b0 | | .CONST 0x01b0 ; Address of begin 01a1 01fa | | .CONST 0x01fa ; Address of exception handler 01a2 0007 | | .CONST 0x0007 ; Number of locals 01a3 INIT_01a0: 01a3 e006 | | Load 0x0,0x6 ; Debug Table 0x9 = .DEBUG 0x01a3,0x04fe,0x0001,0x0000,0x0032,0xcb04,0x0000,0x0018 ; Debug Table 0x9.0x0 = 0x1a3,0xffff 01a4 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 01a5 e006 | | Load 0x0,0x6 ; Debug Table 0x9.0x1 = 0x1a5,0xfffe 01a6 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 01a7 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x9.0x2 = 0x1a7,0xfffd 01a8 e006 | | Load 0x0,0x6 ; Debug Table 0x9.0x3 = 0x1a8,0xfffc 01a9 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 01aa 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0x4 = 0x1aa,0xfffb 01ab e006 | | Load 0x0,0x6 ; Debug Table 0x9.0x5 = 0x1ab,0xfffa 01ac 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 01ad 0322 | " | Declare_Variable Record 01ae 0007 | | Action Break_Optional ; Debug Table 0x9.0x6 = 0x1ae,0xfff9 01af 0007 | | Action Break_Optional ; Debug Table 0x9.0x7 = 0x1af,0xfff8 01b0 BODY_01a0: 01b0 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x8 = 0x1b0,0x1 01b1 a5fd | | Store_Unchecked 0x2,-0x3 01b2 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x9 = 0x1b2,0x2 01b3 e006 | | Load 0x0,0x6 01b4 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 01b5 e006 | | Load 0x0,0x6 01b6 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 01b7 a402 | | Store_Unchecked 0x2,0x2 01b8 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0xa = 0x1b8,0x3 01b9 e402 | | Load 0x2,0x2 01ba e006 | | Load 0x0,0x6 01bb 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 01bc a403 | | Store_Unchecked 0x2,0x3 01bd e403 | | Load 0x2,0x3 ; Debug Table 0x9.0xb = 0x1bd,0x4 01be e006 | | Load 0x0,0x6 01bf 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 01c0 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 01c1 4fff |O | Short_Literal -0x1 ; Debug Table 0x9.0xc = 0x1c1,0x5 01c2 a404 | | Store_Unchecked 0x2,0x4 01c3 00cf | | Action Mark_Auxiliary 01c4 0007 | | Action Break_Optional ; Debug Table 0x9.0xd = 0x1c4,0x6 01c5 e404 | | Load 0x2,0x4 ; Debug Table 0x9.0xe = 0x1c5,0x7 01c6 e405 | | Load 0x2,0x5 01c7 0275 | u | Execute Discrete,Unary_Minus 01c8 027a | z | Execute Discrete,Less_Equal 01c9 702f |p/ | Jump_Nonzero 0x1f9 01ca 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0xf = 0x1ca,0x8 01cb e404 | | Load 0x2,0x4 01cc 0273 | s | Execute Discrete,Plus 01cd e006 | | Load 0x0,0x6 01ce 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 01cf 025b | [ | Execute Discrete,Check_In_Type 01d0 e402 | | Load 0x2,0x2 01d1 e006 | | Load 0x0,0x6 01d2 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 01d3 00da | | Load_Top At_Offset_2 01d4 017d | } | Execute Record,Structure_Write 01d5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x10 = 0x1d5,0x9 01d6 e006 | | Load 0x0,0x6 01d7 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 01d8 0b7e | ~ | Execute_Immediate Case_Compare,0x7e 01d9 7005 |p | Jump_Nonzero 0x1df 01da e404 | | Load 0x2,0x4 ; Debug Table 0x9.0x11 = 0x1da,0xd 01db 0aff | | Execute_Immediate Plus,-0x1 01dc 0248 | H | Execute Discrete,Check_In_Integer 01dd a404 | | Store_Unchecked 0x2,0x4 01de 7817 |x | Jump 0x1f6 01df 0007 | | Action Break_Optional ; Debug Table 0x9.0x12 = 0x1df,0xa 01e0 e404 | | Load 0x2,0x4 ; Debug Table 0x9.0x13 = 0x1e0,0x401 01e1 0007 | | Action Break_Optional 01e2 4802 |H | Short_Literal 0x2 ; Debug Table 0x9.0x14 = 0x1e2,0x402 01e3 0007 | | Action Break_Optional 01e4 009c | | Action Load_Dynamic ; Debug Table 0x9.0x15 = 0x1e4,0x403 01e5 0007 | | Action Break_Optional 01e6 0107 | | Execute Exception,Get_Name ; Debug Table 0x9.0x16 = 0x1e6,0x404 01e7 0007 | | Action Break_Optional 01e8 c5ff | | Store 0x2,-0x1 ; Debug Table 0x9.0x17 = 0x1e8,0x405 01e9 e404 | | Load 0x2,0x4 ; Debug Table 0x9.0x18 = 0x1e9,0x406 01ea 0007 | | Action Break_Optional 01eb 4802 |H | Short_Literal 0x2 ; Debug Table 0x9.0x19 = 0x1eb,0x407 01ec 0007 | | Action Break_Optional 01ed 009c | | Action Load_Dynamic ; Debug Table 0x9.0x1a = 0x1ed,0x408 01ee 0007 | | Action Break_Optional 01ef 0106 | | Execute Exception,Address ; Debug Table 0x9.0x1b = 0x1ef,0x409 01f0 0007 | | Action Break_Optional 01f1 c5fe | | Store 0x2,-0x2 ; Debug Table 0x9.0x1c = 0x1f1,0x40a 01f2 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x1d = 0x1f2,0xb 01f3 a5fd | | Store_Unchecked 0x2,-0x3 01f4 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x9.0x1e = 0x1f4,0xc 01f5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f6 00d1 | | Pop_Control Pop_Count_1 01f7 00c9 | | Action Pop_Auxiliary_Loop 01f8 7fcc | | Jump 0x1c5 01f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01fa TRAP_01a0: 01fa 0007 | | Action Break_Optional 01fb 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x1f = 0x1fb,0xe 01fc a5fd | | Store_Unchecked 0x2,-0x3 01fd 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x20 = 0x1fd,0xf 01fe a5ff | | Store_Unchecked 0x2,-0x1 01ff 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x21 = 0x1ff,0x10 0200 a5fe | | Store_Unchecked 0x2,-0x2 0201 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0202 0000 0000 | | .BLANK 0000[0x6] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b e5ff | | Load 0x2,-0x1 ; Debug Table 0xa = .DEBUG 0x020b,0x0544,0x0002,0x0000,0x0032,0xcb04,0x0000,0x004b ; Debug Table 0xa.0x0 = 0x20b,0x1 020c 01db | | Execute Vector,Length 020d 7002 |p | Jump_Nonzero 0x210 020e 00ea | | Load_Encached Null_String_Cache ; Debug Table 0xa.0x1 = 0x20e,0x2 020f 00ca | | Action Exit_Nullary_Function 0210 e5ff | | Load 0x2,-0x1 ; Debug Table 0xa.0x2 = 0x210,0x3 0211 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ": " 0213 01cc | | Execute Vector,Catenate 0214 00ca | | Action Exit_Nullary_Function 0215 0000 0000 | | .XXX[0x3] 0217 0000 | | 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b e402 | | Load 0x2,0x2 ; Debug Table 0xb = .DEBUG 0x021b,0x054c,0x0002,0x0000,0x0032,0xcb04,0x0000,0x0068 ; Debug Table 0xb.0x0 = 0x21b,0x1 021c 01db | | Execute Vector,Length 021d 7002 |p | Jump_Nonzero 0x220 021e 00ea | | Load_Encached Null_String_Cache ; Debug Table 0xb.0x1 = 0x21e,0x2 021f 00ca | | Action Exit_Nullary_Function 0220 4829 |H) | Short_Literal 0x29 ; Debug Table 0xb.0x2 = 0x220,0x3 0221 0092 02d8 | | Action Push_String_Extended,0x2d8 ; " (" 0223 e402 | | Load 0x2,0x2 0224 01cc | | Execute Vector,Catenate 0225 01cb | | Execute Vector,Append 0226 00ca | | Action Exit_Nullary_Function 0227 0000 | | .XXX[0x1] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 4603 |F | Jump_Case 0x4 ; Debug Table 0xc = .DEBUG 0x022b,0x0554,0x0005,0x0000,0x0032,0xcbd4,0x0000,0x000e 022c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 022d 7802 |x | Jump 0x230 ; case 0x1 022e 7805 |x | Jump 0x234 ; case 0x2 022f 7809 |x | Jump 0x239 ; case 0x3 0230 00da | | Load_Top At_Offset_2 0231 0091 02c0 | | Action Push_String_Extended_Indexed,0x2c0 ; "ENVIRONMENT" 0233 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0234 00db | | Load_Top At_Offset_3 0235 00db | | Load_Top At_Offset_3 0236 00e0 | | Load_Encached Standard_Cache 0237 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0238 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0239 00da | | Load_Top At_Offset_2 023a 00e0 | | Load_Encached Standard_Cache 023b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 023c 4201 |B | Exit_Subprogram From_Utility,With_Result,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 0092 02da | | Action Push_String_Extended,0x2da ; "<Name = 16#" ; Debug Table 0xd = .DEBUG 0x0243,0x0556,0x0002,0x0000,0x0032,0xcbd4,0x0000,0x002d ; Debug Table 0xd.0x0 = 0x243,0x1 0245 4820 |H | Short_Literal 0x20 0246 4800 |H | Short_Literal 0x0 0247 4810 |H | Short_Literal 0x10 0248 e404 | | Load 0x2,0x4 0249 e003 | | Load 0x0,0x3 024a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 024b e007 | | Load 0x0,0x7 024c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 024d 01cc | | Execute Vector,Catenate 024e 0092 02db | | Action Push_String_Extended,0x2db ; "#, Offset = 16#" 0250 01cc | | Execute Vector,Catenate 0251 4820 |H | Short_Literal 0x20 0252 4800 |H | Short_Literal 0x0 0253 4810 |H | Short_Literal 0x10 0254 e404 | | Load 0x2,0x4 0255 e003 | | Load 0x0,0x3 0256 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0257 e007 | | Load 0x0,0x7 0258 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0259 01cc | | Execute Vector,Catenate 025a 0092 02dc | | Action Push_String_Extended,0x2dc ; "#>" 025c 01cc | | Execute Vector,Catenate 025d 00ca | | Action Exit_Nullary_Function 025e 0000 0000 | | .XXX[0x2] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 00da | | Load_Top At_Offset_2 ; Debug Table 0xe = .DEBUG 0x0263,0x055a,0x0002,0x0000,0x0032,0xcbd4,0x0000,0x0068 ; Debug Table 0xe.0x0 = 0x263,0x1 0264 4602 |F | Jump_Case 0x3 0265 7802 |x | Jump 0x268 ; case 0x0 0266 7801 |x | Jump 0x268 ; case 0x1 0267 7805 |x | Jump 0x26d ; case 0x2 0268 4801 |H | Short_Literal 0x1 ; Debug Table 0xe.0x1 = 0x268,0x2 0269 e403 | | Load 0x2,0x3 026a e008 | | Load 0x0,0x8 026b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 026c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026d 0092 02dd | | Action Push_String_Extended,0x2dd ; "(16#" ; Debug Table 0xe.0x2 = 0x26d,0x3 026f 4820 |H | Short_Literal 0x20 0270 4800 |H | Short_Literal 0x0 0271 4810 |H | Short_Literal 0x10 0272 e403 | | Load 0x2,0x3 0273 e007 | | Load 0x0,0x7 0274 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0275 01cc | | Execute Vector,Catenate 0276 0092 02de | | Action Push_String_Extended,0x2de ; "#)" 0278 01cc | | Execute Vector,Catenate 0279 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 027a 0000 0000 | | .BLANK 0000[0x6] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 e403 | | Load 0x2,0x3 ; Debug Table 0xf = .DEBUG 0x0283,0x0562,0x0002,0x0000,0x0032,0xcbd4,0x0000,0x00a0 ; Debug Table 0xf.0x0 = 0x283,0x1 0284 09f9 | | Execute_Immediate Binary_Scale,-0x7 0285 4801 |H | Short_Literal 0x1 0286 0279 | y | Execute Discrete,And 0287 7002 |p | Jump_Nonzero 0x28a 0288 4800 |H | Short_Literal 0x0 ; Debug Table 0xf.0x1 = 0x288,0x2 0289 00ca | | Action Exit_Nullary_Function 028a e403 | | Load 0x2,0x3 ; Debug Table 0xf.0x2 = 0x28a,0x3 028b 09f8 | | Execute_Immediate Binary_Scale,-0x8 028c 4801 |H | Short_Literal 0x1 028d 0279 | y | Execute Discrete,And 028e 7002 |p | Jump_Nonzero 0x291 028f 4801 |H | Short_Literal 0x1 ; Debug Table 0xf.0x3 = 0x28f,0x4 0290 00ca | | Action Exit_Nullary_Function 0291 4802 |H | Short_Literal 0x2 ; Debug Table 0xf.0x4 = 0x291,0x5 0292 00ca | | Action Exit_Nullary_Function 0293 0000 0000 | | .BLANK 0000[0x5] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029d | | .CONST 0x029d ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0002 | | .CONST 0x0002 ; Number of locals 029b INIT_0298: 029b e5fd | | Load 0x2,-0x3 ; Debug Table 0x10 = .DEBUG 0x029b,0x056e,0x0002,0x0000,0x0032,0xcb04,0x0000,0x0139 ; Debug Table 0x10.0x0 = 0x29b,0xffff 029c 8216 | | Call 0x1,0x16 029d BODY_0298: 029d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0x1 = 0x29d,0x1 029e 01db | | Execute Vector,Length 029f 7002 |p | Jump_Nonzero 0x2a2 02a0 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x10.0x2 = 0x2a0,0x2 02a1 00ca | | Action Exit_Nullary_Function 02a2 e5fe | | Load 0x2,-0x2 ; Debug Table 0x10.0x3 = 0x2a2,0x3 02a3 01db | | Execute Vector,Length 02a4 7002 |p | Jump_Nonzero 0x2a7 02a5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0x4 = 0x2a5,0x4 02a6 00ca | | Action Exit_Nullary_Function 02a7 4829 |H) | Short_Literal 0x29 ; Debug Table 0x10.0x5 = 0x2a7,0x5 02a8 0092 02d8 | | Action Push_String_Extended,0x2d8 ; " (" 02aa 00da | | Load_Top At_Offset_2 02ab 01cc | | Execute Vector,Catenate 02ac 01cb | | Execute Vector,Append 02ad 00ca | | Action Exit_Nullary_Function 02ae 0000 0000 | | .XXX[0x2] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 e5ff | | Load 0x2,-0x1 ; Debug Table 0x11 = .DEBUG 0x02b3,0x057c,0x0002,0x0000,0x0032,0xcb04,0x0000,0x019e ; Debug Table 0x11.0x0 = 0x2b3,0x1 02b4 01db | | Execute Vector,Length 02b5 6807 |h | Jump_Zero 0x2bd 02b6 e5ff | | Load 0x2,-0x1 ; Debug Table 0x11.0x1 = 0x2b6,0x2 02b7 0092 02df | | Action Push_String_Extended,0x2df ; "; " 02b9 01cc | | Execute Vector,Catenate 02ba e5fe | | Load 0x2,-0x2 02bb 01cc | | Execute Vector,Catenate 02bc 00ca | | Action Exit_Nullary_Function 02bd e5fe | | Load 0x2,-0x2 ; Debug Table 0x11.0x2 = 0x2bd,0x3 02be 0335 | 5 | Declare_Variable Array,Duplicate 02bf 00ca | | Action Exit_Nullary_Function 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; STRING TABLE 02c0 ; -------------------------------------------------------------------------------------- 02c0 0042 | B | .STRTAB 0x0042->0x02e1 ; "ENVIRONMENT" 02c1 004b | K | .STRTAB 0x004b->0x02e6 ; "NATIVE" 02c2 004f | O | .STRTAB 0x004f->0x02e9 ; "ARCHIVE" 02c3 0054 | T | .STRTAB 0x0054->0x02ed ; "NONE" 02c4 0056 | V | .STRTAB 0x0056->0x02ef ; "INTERNAL_ERROR" 02c5 0062 | b | .STRTAB 0x0062->0x02f6 ; "UNKNOWN" 02c6 0067 | g | .STRTAB 0x0067->0x02f9 ; "UNHANDLED_EXCEPTION" 02c7 0078 | x | .STRTAB 0x0078->0x0303 ; "UNIMPLEMENTED" 02c8 0083 | | .STRTAB 0x0083->0x0309 ; "OPEN_ERROR" 02c9 008b | | .STRTAB 0x008b->0x030e ; "CREATE_ERROR" 02ca 0095 | | .STRTAB 0x0095->0x0314 ; "ACCESS_ERROR" 02cb 009f | | .STRTAB 0x009f->0x031a ; "LOCK_ERROR" 02cc 00a7 | | .STRTAB 0x00a7->0x031f ; "MAPPING_ERROR" 02cd 00b2 | | .STRTAB 0x00b2->0x0326 ; "INCONSISTENCY" 02ce 00bd | | .STRTAB 0x00bd->0x032c ; "TABLE_OVERFLOW" 02cf 00c9 | | .STRTAB 0x00c9->0x0333 ; "UNDEFINED" 02d0 00d0 | | .STRTAB 0x00d0->0x0338 ; "OBSOLETE" 02d1 00d6 | | .STRTAB 0x00d6->0x033c ; "INVALID_OPTIONS" 02d2 00e3 | | .STRTAB 0x00e3->0x0343 ; "WARNINGS_GENERATED" 02d3 00f3 | | .STRTAB 0x00f3->0x034c ; ", " 02d4 00f3 | | .STRTAB 0x00f3->0x034d ; " exception - " 02d5 00fe | | .STRTAB 0x00fe->0x0354 ; ". Raised at - " 02d6 010a | | .STRTAB 0x010a->0x035b ; "<Couldn't find any exception>" 02d7 0125 | % | .STRTAB 0x0125->0x0369 ; "<Exception while processing exception info>" 02d8 014e | N | .STRTAB 0x014e->0x037f ; " (" 02d9 014e | N | .STRTAB 0x014e->0x0380 ; ": " 02da 014e | N | .STRTAB 0x014e->0x0381 ; "<Name = 16#" 02db 0157 | W | .STRTAB 0x0157->0x0386 ; "#, Offset = 16#" 02dc 0164 | d | .STRTAB 0x0164->0x038e ; "#>" 02dd 0164 | d | .STRTAB 0x0164->0x038f ; "(16#" 02de 0166 | f | .STRTAB 0x0166->0x0391 ; "#)" 02df 0166 | f | .STRTAB 0x0166->0x0392 ; "; " 02e0 0166 | f | .STREND 0x0166->0x0393 02e1 454e 5649 |ENVI| .STRTAB_STRINGS 0393 0000 0000 | | .BLANK 0000[0x5] 0398 ; -------------------------------------------------------------------------------------- 0398 ; Debug Table 0398 ; -------------------------------------------------------------------------------------- 0398 0003 0012 | | .CONST 0x0003,0x0012 039a 000b 042a | *| .DEBUG 0x000b,0x042a,0x8000,0x0000,0x0032,0x8d84,0x0000,0x0007 03a2 00bd 0496 | | .DEBUG 0x00bd,0x0496,0x8000,0x0000,0x0032,0xcb04,0x0000,0x000f 03aa 00db 04ac | | .DEBUG 0x00db,0x04ac,0x0001,0x0000,0x0032,0x8d84,0x0000,0x004b 03b2 00f3 04b8 | | .DEBUG 0x00f3,0x04b8,0x0002,0x0000,0x0032,0x8d84,0x0000,0x0099 03ba 0113 04c4 | | .DEBUG 0x0113,0x04c4,0x0002,0x0000,0x0032,0x8d84,0x0000,0x00a2 03c2 0153 04e4 | S | .DEBUG 0x0153,0x04e4,0x0001,0x0000,0x0032,0x8d84,0x0000,0x0132 03ca 016b 04e8 | k | .DEBUG 0x016b,0x04e8,0x0001,0x0000,0x0032,0x8d84,0x0000,0x0148 03d2 017b 04ee | { | .DEBUG 0x017b,0x04ee,0x0001,0x0000,0x0032,0x8d84,0x0000,0x0162 03da 0193 04fa | | .DEBUG 0x0193,0x04fa,0x0001,0x0000,0x0032,0x8d84,0x0000,0x0238 03e2 01a3 04fe | | .DEBUG 0x01a3,0x04fe,0x0001,0x0000,0x0032,0xcb04,0x0000,0x0018 03ea 020b 0544 | D| .DEBUG 0x020b,0x0544,0x0002,0x0000,0x0032,0xcb04,0x0000,0x004b 03f2 021b 054c | L| .DEBUG 0x021b,0x054c,0x0002,0x0000,0x0032,0xcb04,0x0000,0x0068 03fa 022b 0554 | + T| .DEBUG 0x022b,0x0554,0x0005,0x0000,0x0032,0xcbd4,0x0000,0x000e 0402 0243 0556 | C V| .DEBUG 0x0243,0x0556,0x0002,0x0000,0x0032,0xcbd4,0x0000,0x002d 040a 0263 055a | c Z| .DEBUG 0x0263,0x055a,0x0002,0x0000,0x0032,0xcbd4,0x0000,0x0068 0412 0283 0562 | b| .DEBUG 0x0283,0x0562,0x0002,0x0000,0x0032,0xcbd4,0x0000,0x00a0 041a 029b 056e | n| .DEBUG 0x029b,0x056e,0x0002,0x0000,0x0032,0xcb04,0x0000,0x0139 0422 02b3 057c | || .DEBUG 0x02b3,0x057c,0x0002,0x0000,0x0032,0xcb04,0x0000,0x019e 042a ; -------------------------------------------------------------------------------------- 042a ; Debug3 Subtable 0x0 042a ; -------------------------------------------------------------------------------------- 042a 0035 0000 | 5 | .DBG3TAB 0x0035,0x0000 042c 000b ffff | | .CONST 0x000b,0xffff 042e 000e fffe | | .CONST 0x000e,0xfffe 0430 0011 fffd | | .CONST 0x0011,0xfffd 0432 0014 fffc | | .CONST 0x0014,0xfffc 0434 0015 fffb | | .CONST 0x0015,0xfffb 0436 0016 fffa | | .CONST 0x0016,0xfffa 0438 0017 fff9 | | .CONST 0x0017,0xfff9 043a 0018 fff8 | | .CONST 0x0018,0xfff8 043c 001b fff7 | | .CONST 0x001b,0xfff7 043e 001d fff6 | | .CONST 0x001d,0xfff6 0440 0020 fff5 | | .CONST 0x0020,0xfff5 0442 0023 fff4 | # | .CONST 0x0023,0xfff4 0444 0026 fff3 | & | .CONST 0x0026,0xfff3 0446 0029 fff2 | ) | .CONST 0x0029,0xfff2 0448 002b fff1 | + | .CONST 0x002b,0xfff1 044a 002d fff0 | - | .CONST 0x002d,0xfff0 044c 0030 ffef | 0 | .CONST 0x0030,0xffef 044e 0033 ffee | 3 | .CONST 0x0033,0xffee 0450 0036 ffed | 6 | .CONST 0x0036,0xffed 0452 0037 ffec | 7 | .CONST 0x0037,0xffec 0454 0038 ffeb | 8 | .CONST 0x0038,0xffeb 0456 0039 ffea | 9 | .CONST 0x0039,0xffea 0458 003a ffe9 | : | .CONST 0x003a,0xffe9 045a 003b ffe8 | ; | .CONST 0x003b,0xffe8 045c 003c ffe7 | < | .CONST 0x003c,0xffe7 045e 003d ffe6 | = | .CONST 0x003d,0xffe6 0460 003e ffe5 | > | .CONST 0x003e,0xffe5 0462 003f ffe4 | ? | .CONST 0x003f,0xffe4 0464 0040 ffe3 | @ | .CONST 0x0040,0xffe3 0466 0041 ffe2 | A | .CONST 0x0041,0xffe2 0468 0042 ffe1 | B | .CONST 0x0042,0xffe1 046a 0044 ffe0 | D | .CONST 0x0044,0xffe0 046c 0046 ffdf | F | .CONST 0x0046,0xffdf 046e 0048 ffde | H | .CONST 0x0048,0xffde 0470 004f ffdd | O | .CONST 0x004f,0xffdd 0472 0056 ffdc | V | .CONST 0x0056,0xffdc 0474 005d ffdb | ] | .CONST 0x005d,0xffdb 0476 0064 ffda | d | .CONST 0x0064,0xffda 0478 006b ffd9 | k | .CONST 0x006b,0xffd9 047a 0072 ffd8 | r | .CONST 0x0072,0xffd8 047c 0079 ffd7 | y | .CONST 0x0079,0xffd7 047e 0080 ffd6 | | .CONST 0x0080,0xffd6 0480 0087 ffd5 | | .CONST 0x0087,0xffd5 0482 008e ffd4 | | .CONST 0x008e,0xffd4 0484 0095 ffd3 | | .CONST 0x0095,0xffd3 0486 009c ffd2 | | .CONST 0x009c,0xffd2 0488 00a3 ffd1 | | .CONST 0x00a3,0xffd1 048a 00aa ffd0 | | .CONST 0x00aa,0xffd0 048c 00b1 ffcf | | .CONST 0x00b1,0xffcf 048e 00b8 ffce | | .CONST 0x00b8,0xffce 0490 00ba ffcd | | .CONST 0x00ba,0xffcd 0492 00bb ffcc | | .CONST 0x00bb,0xffcc 0494 00bc ffcb | | .CONST 0x00bc,0xffcb 0496 ; -------------------------------------------------------------------------------------- 0496 ; Debug3 Subtable 0x1 0496 ; -------------------------------------------------------------------------------------- 0496 000a 0000 | | .DBG3TAB 0x000a,0x0000 0498 00bd ffff | | .CONST 0x00bd,0xffff 049a 00be fffe | | .CONST 0x00be,0xfffe 049c 00bf fffd | | .CONST 0x00bf,0xfffd 049e 00c1 fffc | | .CONST 0x00c1,0xfffc 04a0 00c3 fffb | | .CONST 0x00c3,0xfffb 04a2 00c5 fffa | | .CONST 0x00c5,0xfffa 04a4 00c7 fff9 | | .CONST 0x00c7,0xfff9 04a6 00c9 fff8 | | .CONST 0x00c9,0xfff8 04a8 00cb fff7 | | .CONST 0x00cb,0xfff7 04aa 00cd fff6 | | .CONST 0x00cd,0xfff6 04ac ; -------------------------------------------------------------------------------------- 04ac ; Debug3 Subtable 0x2 04ac ; -------------------------------------------------------------------------------------- 04ac 0003 0002 | | .DBG3TAB 0x0003,0x0002 04ae 00db ffff | | .CONST 0x00db,0xffff 04b0 00dd fffe | | .CONST 0x00dd,0xfffe 04b2 00df fffd | | .CONST 0x00df,0xfffd 04b4 00e1 0001 | | .CONST 0x00e1,0x0001 04b6 00e5 0002 | | .CONST 0x00e5,0x0002 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; Debug3 Subtable 0x3 04b8 ; -------------------------------------------------------------------------------------- 04b8 0002 0003 | | .DBG3TAB 0x0002,0x0003 04ba 00f3 ffff | | .CONST 0x00f3,0xffff 04bc 00f6 fffe | | .CONST 0x00f6,0xfffe 04be 00f9 0001 | | .CONST 0x00f9,0x0001 04c0 00ff 0002 | | .CONST 0x00ff,0x0002 04c2 0106 0003 | | .CONST 0x0106,0x0003 04c4 ; -------------------------------------------------------------------------------------- 04c4 ; Debug3 Subtable 0x4 04c4 ; -------------------------------------------------------------------------------------- 04c4 0009 0006 | | .DBG3TAB 0x0009,0x0006 04c6 0113 ffff | | .CONST 0x0113,0xffff 04c8 0114 fffe | | .CONST 0x0114,0xfffe 04ca 0119 fffd | | .CONST 0x0119,0xfffd 04cc 011b fffc | | .CONST 0x011b,0xfffc 04ce 011d fffb | | .CONST 0x011d,0xfffb 04d0 011e fffa | | .CONST 0x011e,0xfffa 04d2 0120 fff9 | | .CONST 0x0120,0xfff9 04d4 0122 fff8 | " | .CONST 0x0122,0xfff8 04d6 0124 fff7 | $ | .CONST 0x0124,0xfff7 04d8 0126 0001 | & | .CONST 0x0126,0x0001 04da 012f 0002 | / | .CONST 0x012f,0x0002 04dc 0131 0003 | 1 | .CONST 0x0131,0x0003 04de 0133 0004 | 3 | .CONST 0x0133,0x0004 04e0 0143 0005 | C | .CONST 0x0143,0x0005 04e2 0147 0006 | G | .CONST 0x0147,0x0006 04e4 ; -------------------------------------------------------------------------------------- 04e4 ; Debug3 Subtable 0x5 04e4 ; -------------------------------------------------------------------------------------- 04e4 0000 0001 | | .DBG3TAB 0x0000,0x0001 04e6 0153 0001 | S | .CONST 0x0153,0x0001 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; Debug3 Subtable 0x6 04e8 ; -------------------------------------------------------------------------------------- 04e8 0001 0001 | | .DBG3TAB 0x0001,0x0001 04ea 016b ffff | k | .CONST 0x016b,0xffff 04ec 016d 0001 | m | .CONST 0x016d,0x0001 04ee ; -------------------------------------------------------------------------------------- 04ee ; Debug3 Subtable 0x7 04ee ; -------------------------------------------------------------------------------------- 04ee 0001 0004 | | .DBG3TAB 0x0001,0x0004 04f0 017b ffff | { | .CONST 0x017b,0xffff 04f2 017d 0001 | } | .CONST 0x017d,0x0001 04f4 017f 0002 | | .CONST 0x017f,0x0002 04f6 0182 0003 | | .CONST 0x0182,0x0003 04f8 0184 0004 | | .CONST 0x0184,0x0004 04fa ; -------------------------------------------------------------------------------------- 04fa ; Debug3 Subtable 0x8 04fa ; -------------------------------------------------------------------------------------- 04fa 0000 0001 | | .DBG3TAB 0x0000,0x0001 04fc 0193 0001 | | .CONST 0x0193,0x0001 04fe ; -------------------------------------------------------------------------------------- 04fe ; Debug3 Subtable 0x9 04fe ; -------------------------------------------------------------------------------------- 04fe 0008 001a | | .DBG3TAB 0x0008,0x001a 0500 01a3 ffff | | .CONST 0x01a3,0xffff 0502 01a5 fffe | | .CONST 0x01a5,0xfffe 0504 01a7 fffd | | .CONST 0x01a7,0xfffd 0506 01a8 fffc | | .CONST 0x01a8,0xfffc 0508 01aa fffb | | .CONST 0x01aa,0xfffb 050a 01ab fffa | | .CONST 0x01ab,0xfffa 050c 01ae fff9 | | .CONST 0x01ae,0xfff9 050e 01af fff8 | | .CONST 0x01af,0xfff8 0510 01b0 0001 | | .CONST 0x01b0,0x0001 0512 01b2 0002 | | .CONST 0x01b2,0x0002 0514 01b8 0003 | | .CONST 0x01b8,0x0003 0516 01bd 0004 | | .CONST 0x01bd,0x0004 0518 01c1 0005 | | .CONST 0x01c1,0x0005 051a 01c4 0006 | | .CONST 0x01c4,0x0006 051c 01c5 0007 | | .CONST 0x01c5,0x0007 051e 01ca 0008 | | .CONST 0x01ca,0x0008 0520 01d5 0009 | | .CONST 0x01d5,0x0009 0522 01da 000d | | .CONST 0x01da,0x000d 0524 01df 000a | | .CONST 0x01df,0x000a 0526 01e0 0401 | | .CONST 0x01e0,0x0401 0528 01e2 0402 | | .CONST 0x01e2,0x0402 052a 01e4 0403 | | .CONST 0x01e4,0x0403 052c 01e6 0404 | | .CONST 0x01e6,0x0404 052e 01e8 0405 | | .CONST 0x01e8,0x0405 0530 01e9 0406 | | .CONST 0x01e9,0x0406 0532 01eb 0407 | | .CONST 0x01eb,0x0407 0534 01ed 0408 | | .CONST 0x01ed,0x0408 0536 01ef 0409 | | .CONST 0x01ef,0x0409 0538 01f1 040a | | .CONST 0x01f1,0x040a 053a 01f2 000b | | .CONST 0x01f2,0x000b 053c 01f4 000c | | .CONST 0x01f4,0x000c 053e 01fb 000e | | .CONST 0x01fb,0x000e 0540 01fd 000f | | .CONST 0x01fd,0x000f 0542 01ff 0010 | | .CONST 0x01ff,0x0010 0544 ; -------------------------------------------------------------------------------------- 0544 ; Debug3 Subtable 0xa 0544 ; -------------------------------------------------------------------------------------- 0544 0000 0003 | | .DBG3TAB 0x0000,0x0003 0546 020b 0001 | | .CONST 0x020b,0x0001 0548 020e 0002 | | .CONST 0x020e,0x0002 054a 0210 0003 | | .CONST 0x0210,0x0003 054c ; -------------------------------------------------------------------------------------- 054c ; Debug3 Subtable 0xb 054c ; -------------------------------------------------------------------------------------- 054c 0000 0003 | | .DBG3TAB 0x0000,0x0003 054e 021b 0001 | | .CONST 0x021b,0x0001 0550 021e 0002 | | .CONST 0x021e,0x0002 0552 0220 0003 | | .CONST 0x0220,0x0003 0554 ; -------------------------------------------------------------------------------------- 0554 ; Debug3 Subtable 0xc 0554 ; -------------------------------------------------------------------------------------- 0554 0000 0000 | | .DBG3TAB 0x0000,0x0000 0556 ; -------------------------------------------------------------------------------------- 0556 ; Debug3 Subtable 0xd 0556 ; -------------------------------------------------------------------------------------- 0556 0000 0001 | | .DBG3TAB 0x0000,0x0001 0558 0243 0001 | C | .CONST 0x0243,0x0001 055a ; -------------------------------------------------------------------------------------- 055a ; Debug3 Subtable 0xe 055a ; -------------------------------------------------------------------------------------- 055a 0000 0003 | | .DBG3TAB 0x0000,0x0003 055c 0263 0001 | c | .CONST 0x0263,0x0001 055e 0268 0002 | h | .CONST 0x0268,0x0002 0560 026d 0003 | m | .CONST 0x026d,0x0003 0562 ; -------------------------------------------------------------------------------------- 0562 ; Debug3 Subtable 0xf 0562 ; -------------------------------------------------------------------------------------- 0562 0000 0005 | | .DBG3TAB 0x0000,0x0005 0564 0283 0001 | | .CONST 0x0283,0x0001 0566 0288 0002 | | .CONST 0x0288,0x0002 0568 028a 0003 | | .CONST 0x028a,0x0003 056a 028f 0004 | | .CONST 0x028f,0x0004 056c 0291 0005 | | .CONST 0x0291,0x0005 056e ; -------------------------------------------------------------------------------------- 056e ; Debug3 Subtable 0x10 056e ; -------------------------------------------------------------------------------------- 056e 0001 0005 | | .DBG3TAB 0x0001,0x0005 0570 029b ffff | | .CONST 0x029b,0xffff 0572 029d 0001 | | .CONST 0x029d,0x0001 0574 02a0 0002 | | .CONST 0x02a0,0x0002 0576 02a2 0003 | | .CONST 0x02a2,0x0003 0578 02a5 0004 | | .CONST 0x02a5,0x0004 057a 02a7 0005 | | .CONST 0x02a7,0x0005 057c ; -------------------------------------------------------------------------------------- 057c ; Debug3 Subtable 0x11 057c ; -------------------------------------------------------------------------------------- 057c 0000 0003 | | .DBG3TAB 0x0000,0x0003 057e 02b3 0001 | | .CONST 0x02b3,0x0001 0580 02b6 0002 | | .CONST 0x02b6,0x0002 0582 02bd 0003 | | .CONST 0x02bd,0x0003 0584 0000 0000 | | .BLANK 0000[0x7c]