|
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_0ea8df
└─⟦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,0x0037,0xd984,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,0x0037,0xdf24,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,0x0037,0xd984,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,0x0037,0xd984,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,0x0037,0xd984,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,0x0037,0xd984,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,0x0037,0xd984,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,0x0037,0xd984,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,0x0037,0xd984,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,0x0037,0xdf24,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,0x0037,0xdf24,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,0x0037,0xdf24,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,0x0037,0xe024,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,0x0037,0xe024,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,0x0037,0xe024,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,0x0037,0xe024,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,0x0037,0xdf24,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,0x0037,0xdf24,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,0x0037,0xd984,0x0000,0x0007
03a2 00bd 0496 | | .DEBUG 0x00bd,0x0496,0x8000,0x0000,0x0037,0xdf24,0x0000,0x000f
03aa 00db 04ac | | .DEBUG 0x00db,0x04ac,0x0001,0x0000,0x0037,0xd984,0x0000,0x004b
03b2 00f3 04b8 | | .DEBUG 0x00f3,0x04b8,0x0002,0x0000,0x0037,0xd984,0x0000,0x0099
03ba 0113 04c4 | | .DEBUG 0x0113,0x04c4,0x0002,0x0000,0x0037,0xd984,0x0000,0x00a2
03c2 0153 04e4 | S | .DEBUG 0x0153,0x04e4,0x0001,0x0000,0x0037,0xd984,0x0000,0x0132
03ca 016b 04e8 | k | .DEBUG 0x016b,0x04e8,0x0001,0x0000,0x0037,0xd984,0x0000,0x0148
03d2 017b 04ee | { | .DEBUG 0x017b,0x04ee,0x0001,0x0000,0x0037,0xd984,0x0000,0x0162
03da 0193 04fa | | .DEBUG 0x0193,0x04fa,0x0001,0x0000,0x0037,0xd984,0x0000,0x0238
03e2 01a3 04fe | | .DEBUG 0x01a3,0x04fe,0x0001,0x0000,0x0037,0xdf24,0x0000,0x0018
03ea 020b 0544 | D| .DEBUG 0x020b,0x0544,0x0002,0x0000,0x0037,0xdf24,0x0000,0x004b
03f2 021b 054c | L| .DEBUG 0x021b,0x054c,0x0002,0x0000,0x0037,0xdf24,0x0000,0x0068
03fa 022b 0554 | + T| .DEBUG 0x022b,0x0554,0x0005,0x0000,0x0037,0xe024,0x0000,0x000e
0402 0243 0556 | C V| .DEBUG 0x0243,0x0556,0x0002,0x0000,0x0037,0xe024,0x0000,0x002d
040a 0263 055a | c Z| .DEBUG 0x0263,0x055a,0x0002,0x0000,0x0037,0xe024,0x0000,0x0068
0412 0283 0562 | b| .DEBUG 0x0283,0x0562,0x0002,0x0000,0x0037,0xe024,0x0000,0x00a0
041a 029b 056e | n| .DEBUG 0x029b,0x056e,0x0002,0x0000,0x0037,0xdf24,0x0000,0x0139
0422 02b3 057c | || .DEBUG 0x02b3,0x057c,0x0002,0x0000,0x0037,0xdf24,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]