|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02e0 | | .CONST 0x02e0 ; 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 0055 | U | .CONST 0x0055 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0019 | | .CONST 0x0019 ; Number of locals 000b INIT_0008: 000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x034a,0x0000,0x0000,0x0057,0x79c5,0x0000,0x00ba ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd 0011 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc 0013 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb 0015 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa 0017 00bf | | Action Accept_Activation 0018 4800 |H | Short_Literal 0x0 ; Debug Table 0x1 = .DEBUG 0x0018,0x0358,0x0000,0x0000,0x0057,0x7f55,0x0000,0x0008 ; Debug Table 0x1.0x0 = 0x18,0xffff 0019 4800 |H | Short_Literal 0x0 001a 029f 029b | | Declare_Subprogram INIT_0298,For_Call 001c 03fd | | Declare_Type Discrete,Defined 001d 029b 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Unelaborated ; Debug Table 0x1.0x1 = 0x1d,0xfffe 001f 029b 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Unelaborated ; Debug Table 0x1.0x2 = 0x1f,0xfffd 0021 029b 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Unelaborated ; Debug Table 0x1.0x3 = 0x21,0xfffc 0023 029b 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Unelaborated ; Debug Table 0x1.0x4 = 0x23,0xfffb 0025 62ae |b | Indirect_Literal Discrete,0x2d4,{0x00000000, 0x00577f55} ; Debug Table 0x1.0x5 = 0x25,0xfffa 0026 4842 |HB | Short_Literal 0x42 0027 e001 | | Load 0x0,0x1 0028 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0029 00e5 | | Load_Encached Long_Integer_Cache 002a e213 | | Load 0x1,0x13 002b e002 | | Load 0x0,0x2 002c 192f | / | Execute Package,Field_Reference,Field_Number 0x2f 002d 1d14 | | Execute_Immediate Reference_Lex_1,0x14 002e 1d16 | | Execute_Immediate Reference_Lex_1,0x16 002f e003 | | Load 0x0,0x3 0030 0387 | | Declare_Variable Package 0031 00d8 | | Load_Top At_Offset_0 0032 020f | | Execute Module,Activate 0033 62a0 |b | Indirect_Literal Discrete,0x2d4,{0x00000000, 0x00577f55} ; Debug Table 0x1.0x6 = 0x33,0xfff9 0034 4851 |HQ | Short_Literal 0x51 0035 e001 | | Load 0x0,0x1 0036 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0037 00e5 | | Load_Encached Long_Integer_Cache 0038 e213 | | Load 0x1,0x13 0039 e002 | | Load 0x0,0x2 003a 192f | / | Execute Package,Field_Reference,Field_Number 0x2f 003b 1d15 | | Execute_Immediate Reference_Lex_1,0x15 003c 1d17 | | Execute_Immediate Reference_Lex_1,0x17 003d e003 | | Load 0x0,0x3 003e 0387 | | Declare_Variable Package 003f 00d8 | | Load_Top At_Offset_0 0040 020f | | Execute Module,Activate 0041 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x7 = 0x41,0xfff8 0042 00c7 | | Action Elaborate_Subprogram 0043 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x8 = 0x43,0xfff7 0044 00c7 | | Action Elaborate_Subprogram 0045 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x9 = 0x45,0xfff6 0046 00c7 | | Action Elaborate_Subprogram 0047 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xa = 0x47,0xfff5 0048 00c7 | | Action Elaborate_Subprogram 0049 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0xb = 0x49,0xfff4 004a 00c7 | | Action Elaborate_Subprogram 004b 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0xc = 0x4b,0xfff3 004c 00c7 | | Action Elaborate_Subprogram 004d 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0xd = 0x4d,0xfff2 004e 00c7 | | Action Elaborate_Subprogram 004f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0xe = 0x4f,0xfff1 0050 00c7 | | Action Elaborate_Subprogram 0051 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0xf = 0x51,0xfff0 0052 00c7 | | Action Elaborate_Subprogram 0053 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x10 = 0x53,0xffef 0054 00c7 | | Action Elaborate_Subprogram 0055 BODY_0008: 0055 00bc | | Action Signal_Activated 0056 00bb | | Action Signal_Completion 0057 0000 | | .XXX[0x1] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0064 | d | .CONST 0x0064 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x005b,0x037c,0x0002,0x0000,0x0057,0x79c5,0x0000,0x00bb ; Debug Table 0x2.0x0 = 0x5b,0x1 005c 0217 | | Execute Heap_Access,All_Reference 005d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 005e 0217 | | Execute Heap_Access,All_Reference 005f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0060 e004 | | Load 0x0,0x4 0061 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0062 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0063 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0064 TRAP_0058: 0064 0007 | | Action Break_Optional 0065 e005 | | Load 0x0,0x5 ; Debug Table 0x2.0x1 = 0x65,0x2 0066 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0067 0257 | W | Execute Discrete,Raise 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0087 | | .CONST 0x0087 ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0002 | | .CONST 0x0002 ; Number of locals 006b INIT_0068: 006b e005 | | Load 0x0,0x5 ; Debug Table 0x3 = .DEBUG 0x006b,0x0382,0x0001,0x0000,0x0057,0x79c5,0x0000,0x00c4 ; Debug Table 0x3.0x0 = 0x6b,0xffff 006c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 006d e006 | | Load 0x0,0x6 006e 0322 | " | Declare_Variable Record 006f e007 | | Load 0x0,0x7 0070 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0071 00d9 | | Load_Top At_Offset_1 0072 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0073 e005 | | Load 0x0,0x5 0074 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0075 00d9 | | Load_Top At_Offset_1 0076 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0077 e005 | | Load 0x0,0x5 0078 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0079 00d9 | | Load_Top At_Offset_1 007a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 007b e005 | | Load 0x0,0x5 007c 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 007d 00d9 | | Load_Top At_Offset_1 007e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 007f e005 | | Load 0x0,0x5 0080 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0081 e008 | | Load 0x0,0x8 0082 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0083 e009 | | Load 0x0,0x9 0084 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0085 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0086 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0087 BODY_0068: 0087 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1 = 0x87,0xfffe ; Debug Table 0x3.0x2 = 0x87,0x1 0088 0219 | | Execute Heap_Access,All_Read 0089 e00a | | Load 0x0,0xa 008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008b e007 | | Load 0x0,0x7 008c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 008d e5fe | | Load 0x2,-0x2 008e e5ff | | Load 0x2,-0x1 008f e00b | | Load 0x0,0xb 0090 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0091 e007 | | Load 0x0,0x7 0092 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0093 00da | | Load_Top At_Offset_2 0094 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0095 c5fc | | Store 0x2,-0x4 0096 00d1 | | Pop_Control Pop_Count_1 0097 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x3 = 0x97,0x2 0098 a5fd | | Store_Unchecked 0x2,-0x3 0099 4503 |E | Exit_Suprogram New_Top_Offset 0x3 009a 0000 0000 | | .BLANK 0000[0x6] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00bf | | .CONST 0x00bf ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 e005 | | Load 0x0,0x5 ; Debug Table 0x4 = .DEBUG 0x00a3,0x038c,0x0001,0x0000,0x0057,0x79c5,0x0000,0x00da ; Debug Table 0x4.0x0 = 0xa3,0xffff 00a4 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00a5 e006 | | Load 0x0,0x6 00a6 0322 | " | Declare_Variable Record 00a7 e007 | | Load 0x0,0x7 00a8 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00a9 00d9 | | Load_Top At_Offset_1 00aa 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ab e005 | | Load 0x0,0x5 00ac 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00ad 00d9 | | Load_Top At_Offset_1 00ae 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00af e005 | | Load 0x0,0x5 00b0 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00b1 00d9 | | Load_Top At_Offset_1 00b2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00b3 e005 | | Load 0x0,0x5 00b4 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 00b5 00d9 | | Load_Top At_Offset_1 00b6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00b7 e005 | | Load 0x0,0x5 00b8 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00b9 e008 | | Load 0x0,0x8 00ba 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00bb e009 | | Load 0x0,0x9 00bc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00bd 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 00be 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00bf BODY_00a0: 00bf 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x1 = 0xbf,0xfffe ; Debug Table 0x4.0x2 = 0xbf,0x1 00c0 0219 | | Execute Heap_Access,All_Read 00c1 e00a | | Load 0x0,0xa 00c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c3 e007 | | Load 0x0,0x7 00c4 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00c5 e5fe | | Load 0x2,-0x2 00c6 e5ff | | Load 0x2,-0x1 00c7 e007 | | Load 0x0,0x7 00c8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00c9 00da | | Load_Top At_Offset_2 00ca 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00cb c5fc | | Store 0x2,-0x4 00cc 00d1 | | Pop_Control Pop_Count_1 00cd 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x3 = 0xcd,0x2 00ce a5fd | | Store_Unchecked 0x2,-0x3 00cf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d8 | | .CONST 0x00d8 ; Address of begin 00d1 0123 | # | .CONST 0x0123 ; Address of exception handler 00d2 0004 | | .CONST 0x0004 ; Number of locals 00d3 INIT_00d0: 00d3 e007 | | Load 0x0,0x7 ; Debug Table 0x5 = .DEBUG 0x00d3,0x0396,0x0001,0x0000,0x0057,0x79c5,0x0000,0x00f2 ; Debug Table 0x5.0x0 = 0xd3,0xffff 00d4 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00d5 e00a | | Load 0x0,0xa ; Debug Table 0x5.0x1 = 0xd5,0xfffe 00d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d7 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x5.0x2 = 0xd7,0xfffd 00d8 BODY_00d0: 00d8 e005 | | Load 0x0,0x5 ; Debug Table 0x5.0x3 = 0xd8,0xfffc ; Debug Table 0x5.0x4 = 0xd8,0x1 00d9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00da a5fc | | Store_Unchecked 0x2,-0x4 00db e00a | | Load 0x0,0xa ; Debug Table 0x5.0x5 = 0xdb,0x2 00dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00dd e007 | | Load 0x0,0x7 00de 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00df e5fe | | Load 0x2,-0x2 00e0 e5fd | | Load 0x2,-0x3 00e1 e5ff | | Load 0x2,-0x1 00e2 e00b | | Load 0x0,0xb 00e3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e4 e007 | | Load 0x0,0x7 00e5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e6 c402 | | Store 0x2,0x2 00e7 005a | Z | Store_Top Discrete,At_Offset_2 00e8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x6 = 0xe8,0x3 00e9 e005 | | Load 0x0,0x5 00ea 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00eb 6803 |h | Jump_Zero 0xef 00ec 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x7 = 0xec,0x4 00ed a5fb | | Store_Unchecked 0x2,-0x5 00ee 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x5.0x8 = 0xee,0x5 00ef e00a | | Load 0x0,0xa ; Debug Table 0x5.0x9 = 0xef,0x6 00f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f1 00db | | Load_Top At_Offset_3 00f2 e00c | | Load 0x0,0xc 00f3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00f4 005a | Z | Store_Top Discrete,At_Offset_2 00f5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0xa = 0xf5,0x7 00f6 e005 | | Load 0x0,0x5 00f7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00f8 6802 |h | Jump_Zero 0xfb 00f9 61d6 |a | Indirect_Literal Discrete,0x2d0,{0x00000000, 0x577f5501} ; Debug Table 0x5.0xb = 0xf9,0x8 00fa 0257 | W | Execute Discrete,Raise 00fb e00a | | Load 0x0,0xa ; Debug Table 0x5.0xc = 0xfb,0x9 00fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00fd 00db | | Load_Top At_Offset_3 00fe e001 | | Load 0x0,0x1 00ff 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0100 005a | Z | Store_Top Discrete,At_Offset_2 0101 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0xd = 0x101,0xa 0102 e005 | | Load 0x0,0x5 0103 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0104 6802 |h | Jump_Zero 0x107 0105 61ca |a | Indirect_Literal Discrete,0x2d0,{0x00000000, 0x577f5501} ; Debug Table 0x5.0xe = 0x105,0xb 0106 0257 | W | Execute Discrete,Raise 0107 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0xf = 0x107,0xc 0108 a5fb | | Store_Unchecked 0x2,-0x5 0109 e006 | | Load 0x0,0x6 ; Debug Table 0x5.0x10 = 0x109,0xd 010a 0322 | " | Declare_Variable Record 010b 00db | | Load_Top At_Offset_3 010c 00d9 | | Load_Top At_Offset_1 010d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 010e e005 | | Load 0x0,0x5 010f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0110 00d9 | | Load_Top At_Offset_1 0111 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0112 e005 | | Load 0x0,0x5 0113 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0114 00d9 | | Load_Top At_Offset_1 0115 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0116 e005 | | Load 0x0,0x5 0117 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0118 00d9 | | Load_Top At_Offset_1 0119 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 011a e005 | | Load 0x0,0x5 011b 1b18 | | Execute Package,Field_Read,Field_Number 0x18 011c e008 | | Load 0x0,0x8 011d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 011e e009 | | Load 0x0,0x9 011f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0120 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0121 a5fc | | Store_Unchecked 0x2,-0x4 0122 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x5.0x11 = 0x122,0xe 0123 TRAP_00d0: 0123 61ac |a | Indirect_Literal Discrete,0x2d0,{0x00000000, 0x577f5501} 0124 010f | | Execute Exception,Equal 0125 680a |h | Jump_Zero 0x130 0126 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x12 = 0x126,0xf 0127 a5fb | | Store_Unchecked 0x2,-0x5 0128 e00a | | Load 0x0,0xa ; Debug Table 0x5.0x13 = 0x128,0x10 0129 1b0d | | Execute Package,Field_Read,Field_Number 0xd 012a 4801 |H | Short_Literal 0x1 012b e402 | | Load 0x2,0x2 012c e007 | | Load 0x0,0x7 012d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 012e 005b | [ | Store_Top Discrete,At_Offset_3 012f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0130 e00a | | Load 0x0,0xa ; Debug Table 0x5.0x14 = 0x130,0x11 0131 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0132 4801 |H | Short_Literal 0x1 0133 e402 | | Load 0x2,0x2 0134 e007 | | Load 0x0,0x7 0135 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0136 005b | [ | Store_Top Discrete,At_Offset_3 0137 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x15 = 0x137,0x12 0138 0101 | | Execute Exception,Reraise 0139 0000 0000 | | .BLANK 0000[0x7] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x0143,0x03c4,0x0001,0x0000,0x0057,0x79c5,0x0000,0x010d ; Debug Table 0x6.0x0 = 0x143,0x1 0144 7003 |p | Jump_Nonzero 0x148 0145 4809 |H | Short_Literal 0x9 ; Debug Table 0x6.0x1 = 0x145,0x2 0146 a5fd | | Store_Unchecked 0x2,-0x3 0147 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x6.0x2 = 0x147,0x3 0148 e00a | | Load 0x0,0xa ; Debug Table 0x6.0x3 = 0x148,0x4 0149 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014a e5fe | | Load 0x2,-0x2 014b e5ff | | Load 0x2,-0x1 014c 0217 | | Execute Heap_Access,All_Reference 014d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 014e e007 | | Load 0x0,0x7 014f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0150 c5fd | | Store 0x2,-0x3 0151 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0152 0000 0000 | | .BLANK 0000[0x6] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0194 | | .CONST 0x0194 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0011 | | .CONST 0x0011 ; Number of locals 015b INIT_0158: 015b e218 | | Load 0x1,0x18 ; Debug Table 0x7 = .DEBUG 0x015b,0x03ce,0x0001,0x0000,0x0057,0x79c5,0x0000,0x011e ; Debug Table 0x7.0x0 = 0x15b,0xffff 015c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 015d e218 | | Load 0x1,0x18 ; Debug Table 0x7.0x1 = 0x15d,0xfffe 015e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 015f e219 | | Load 0x1,0x19 ; Debug Table 0x7.0x2 = 0x15f,0xfffd 0160 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0161 e219 | | Load 0x1,0x19 ; Debug Table 0x7.0x3 = 0x161,0xfffc 0162 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0163 e218 | | Load 0x1,0x18 ; Debug Table 0x7.0x4 = 0x163,0xfffb 0164 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0165 e219 | | Load 0x1,0x19 ; Debug Table 0x7.0x5 = 0x165,0xfffa 0166 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0167 e00c | | Load 0x0,0xc ; Debug Table 0x7.0x6 = 0x167,0xfff9 0168 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0169 02c7 | | Declare_Variable Any 016a 00d8 | | Load_Top At_Offset_0 016b 1c00 | | Execute_Immediate Run_Utility,0x0 016c e00c | | Load 0x0,0xc ; Debug Table 0x7.0x7 = 0x16c,0xfff8 016d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 016e 0322 | " | Declare_Variable Record 016f 00d8 | | Load_Top At_Offset_0 0170 1c00 | | Execute_Immediate Run_Utility,0x0 0171 e00c | | Load 0x0,0xc ; Debug Table 0x7.0x8 = 0x171,0xfff7 0172 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0173 02c7 | | Declare_Variable Any 0174 00d8 | | Load_Top At_Offset_0 0175 1c00 | | Execute_Immediate Run_Utility,0x0 0176 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x9 = 0x176,0xfff6 0177 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0178 02c7 | | Declare_Variable Any 0179 00d8 | | Load_Top At_Offset_0 017a 1c00 | | Execute_Immediate Run_Utility,0x0 017b e001 | | Load 0x0,0x1 ; Debug Table 0x7.0xa = 0x17b,0xfff5 017c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 017d 0322 | " | Declare_Variable Record 017e 00d8 | | Load_Top At_Offset_0 017f 1c00 | | Execute_Immediate Run_Utility,0x0 0180 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0xb = 0x180,0xfff4 0181 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0182 02c7 | | Declare_Variable Any 0183 00d8 | | Load_Top At_Offset_0 0184 1c00 | | Execute_Immediate Run_Utility,0x0 0185 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0xc = 0x185,0xfff3 0186 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0187 0322 | " | Declare_Variable Record 0188 00d8 | | Load_Top At_Offset_0 0189 1c00 | | Execute_Immediate Run_Utility,0x0 018a e007 | | Load 0x0,0x7 ; Debug Table 0x7.0xd = 0x18a,0xfff2 018b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 018c 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x7.0xe = 0x18c,0xfff1 018d e008 | | Load 0x0,0x8 018e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 018f e009 | | Load 0x0,0x9 0190 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0191 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0192 e005 | | Load 0x0,0x5 ; Debug Table 0x7.0xf = 0x192,0xfff0 0193 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0194 BODY_0158: 0194 e5ff | | Load 0x2,-0x1 ; Debug Table 0x7.0x10 = 0x194,0x1 0195 7003 |p | Jump_Nonzero 0x199 0196 4809 |H | Short_Literal 0x9 ; Debug Table 0x7.0x11 = 0x196,0x2 0197 a5fe | | Store_Unchecked 0x2,-0x2 0198 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x7.0x12 = 0x198,0x3 0199 e5ff | | Load 0x2,-0x1 ; Debug Table 0x7.0x13 = 0x199,0x4 019a 0217 | | Execute Heap_Access,All_Reference 019b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 019c 0033 | 3 | Store_Top Heap_Access,At_Offset_3 019d e218 | | Load 0x1,0x18 ; Debug Table 0x7.0x14 = 0x19d,0x5 019e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 019f 00da | | Load_Top At_Offset_2 01a0 e218 | | Load 0x1,0x18 01a1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01a2 c402 | | Store 0x2,0x2 01a3 e219 | | Load 0x1,0x19 ; Debug Table 0x7.0x15 = 0x1a3,0x6 01a4 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01a5 00da | | Load_Top At_Offset_2 01a6 e219 | | Load 0x1,0x19 01a7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01a8 c404 | | Store 0x2,0x4 01a9 e218 | | Load 0x1,0x18 ; Debug Table 0x7.0x16 = 0x1a9,0x7 01aa 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01ab 00da | | Load_Top At_Offset_2 01ac e218 | | Load 0x1,0x18 01ad 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01ae c403 | | Store 0x2,0x3 01af e219 | | Load 0x1,0x19 ; Debug Table 0x7.0x17 = 0x1af,0x8 01b0 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01b1 00da | | Load_Top At_Offset_2 01b2 e219 | | Load 0x1,0x19 01b3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01b4 c405 | | Store 0x2,0x5 01b5 4802 |H | Short_Literal 0x2 ; Debug Table 0x7.0x18 = 0x1b5,0x9 01b6 e5ff | | Load 0x2,-0x1 01b7 0217 | | Execute Heap_Access,All_Reference 01b8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01b9 0217 | | Execute Heap_Access,All_Reference 01ba 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01bb 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01bc 01d7 | | Execute Vector,Field_Read 01bd c408 | | Store 0x2,0x8 01be 00cf | | Action Mark_Auxiliary 01bf 782a |x* | Jump 0x1ea 01c0 e409 | | Load 0x2,0x9 ; Debug Table 0x7.0x19 = 0x1c0,0xb 01c1 e408 | | Load 0x2,0x8 01c2 e40f | | Load 0x2,0xf 01c3 e00c | | Load 0x0,0xc 01c4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01c5 00d1 | | Pop_Control Pop_Count_1 01c6 e408 | | Load 0x2,0x8 ; Debug Table 0x7.0x1a = 0x1c6,0xc 01c7 e40f | | Load 0x2,0xf 01c8 e00c | | Load 0x0,0xc 01c9 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01ca c40a | | Store 0x2,0xa 01cb 00cf | | Action Mark_Auxiliary 01cc 7814 |x | Jump 0x1e1 01cd e40a | | Load 0x2,0xa ; Debug Table 0x7.0x1b = 0x1cd,0xe 01ce e40f | | Load 0x2,0xf 01cf e00c | | Load 0x0,0xc 01d0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01d1 e402 | | Load 0x2,0x2 01d2 e218 | | Load 0x1,0x18 01d3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01d4 e40a | | Load 0x2,0xa ; Debug Table 0x7.0x1c = 0x1d4,0xf 01d5 e40f | | Load 0x2,0xf 01d6 e00c | | Load 0x0,0xc 01d7 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01d8 e404 | | Load 0x2,0x4 01d9 e219 | | Load 0x1,0x19 01da 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01db e40a | | Load 0x2,0xa ; Debug Table 0x7.0x1d = 0x1db,0x10 01dc e40f | | Load 0x2,0xf 01dd e00c | | Load 0x0,0xc 01de 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01df c40a | | Store 0x2,0xa 01e0 00c9 | | Action Pop_Auxiliary_Loop 01e1 e40a | | Load 0x2,0xa ; Debug Table 0x7.0x1e = 0x1e1,0xd 01e2 e00c | | Load 0x0,0xc 01e3 180f | | Execute Package,Field_Execute,Field_Number 0xf 01e4 6fe8 |o | Jump_Zero 0x1cd 01e5 00ce | | Action Pop_Auxiliary 01e6 e409 | | Load 0x2,0x9 ; Debug Table 0x7.0x1f = 0x1e6,0x11 01e7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 01e8 c408 | | Store 0x2,0x8 01e9 00c9 | | Action Pop_Auxiliary_Loop 01ea e408 | | Load 0x2,0x8 ; Debug Table 0x7.0x20 = 0x1ea,0xa 01eb e00c | | Load 0x0,0xc 01ec 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01ed 6fd2 |o | Jump_Zero 0x1c0 01ee 00ce | | Action Pop_Auxiliary 01ef 4803 |H | Short_Literal 0x3 ; Debug Table 0x7.0x21 = 0x1ef,0x12 01f0 e5ff | | Load 0x2,-0x1 01f1 0217 | | Execute Heap_Access,All_Reference 01f2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01f3 0217 | | Execute Heap_Access,All_Reference 01f4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01f5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01f6 01d7 | | Execute Vector,Field_Read 01f7 c40b | | Store 0x2,0xb 01f8 00cf | | Action Mark_Auxiliary 01f9 7831 |x1 | Jump 0x22b 01fa e40c | | Load 0x2,0xc ; Debug Table 0x7.0x22 = 0x1fa,0x14 01fb e40b | | Load 0x2,0xb 01fc e40f | | Load 0x2,0xf 01fd e001 | | Load 0x0,0x1 01fe 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 01ff 00d1 | | Pop_Control Pop_Count_1 0200 e40b | | Load 0x2,0xb ; Debug Table 0x7.0x23 = 0x200,0x15 0201 e402 | | Load 0x2,0x2 0202 e218 | | Load 0x1,0x18 0203 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0204 7005 |p | Jump_Nonzero 0x20a 0205 e40b | | Load 0x2,0xb ; Debug Table 0x7.0x24 = 0x205,0x16 0206 e403 | | Load 0x2,0x3 0207 e218 | | Load 0x1,0x18 0208 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0209 781d |x | Jump 0x227 020a e40c | | Load 0x2,0xc ; Debug Table 0x7.0x25 = 0x20a,0x17 020b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 020c c40d | | Store 0x2,0xd 020d 00cf | | Action Mark_Auxiliary 020e 7813 |x | Jump 0x222 020f e40e | | Load 0x2,0xe ; Debug Table 0x7.0x26 = 0x20f,0x19 0210 e40d | | Load 0x2,0xd 0211 e40f | | Load 0x2,0xf 0212 e001 | | Load 0x0,0x1 0213 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0214 00d1 | | Pop_Control Pop_Count_1 0215 e40d | | Load 0x2,0xd ; Debug Table 0x7.0x27 = 0x215,0x1a 0216 e404 | | Load 0x2,0x4 0217 e219 | | Load 0x1,0x19 0218 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0219 7004 |p | Jump_Nonzero 0x21e 021a e40d | | Load 0x2,0xd ; Debug Table 0x7.0x28 = 0x21a,0x1b 021b e405 | | Load 0x2,0x5 021c e219 | | Load 0x1,0x19 021d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 021e e40e | | Load 0x2,0xe ; Debug Table 0x7.0x29 = 0x21e,0x1c 021f 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0220 c40d | | Store 0x2,0xd 0221 00c9 | | Action Pop_Auxiliary_Loop 0222 e40d | | Load 0x2,0xd ; Debug Table 0x7.0x2a = 0x222,0x18 0223 e001 | | Load 0x0,0x1 0224 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0225 6fe9 |o | Jump_Zero 0x20f 0226 00ce | | Action Pop_Auxiliary 0227 e40c | | Load 0x2,0xc ; Debug Table 0x7.0x2b = 0x227,0x1d 0228 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0229 c40b | | Store 0x2,0xb 022a 00c9 | | Action Pop_Auxiliary_Loop 022b e40b | | Load 0x2,0xb ; Debug Table 0x7.0x2c = 0x22b,0x13 022c e001 | | Load 0x0,0x1 022d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 022e 6fcb |o | Jump_Zero 0x1fa 022f 00ce | | Action Pop_Auxiliary 0230 e219 | | Load 0x1,0x19 ; Debug Table 0x7.0x2d = 0x230,0x1e 0231 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0232 00da | | Load_Top At_Offset_2 0233 e405 | | Load 0x2,0x5 0234 e219 | | Load 0x1,0x19 0235 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0236 c407 | | Store 0x2,0x7 0237 00cf | | Action Mark_Auxiliary 0238 7826 |x& | Jump 0x25f 0239 e407 | | Load 0x2,0x7 ; Debug Table 0x7.0x2e = 0x239,0x20 023a e219 | | Load 0x1,0x19 023b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 023c c40d | | Store 0x2,0xd 023d e40e | | Load 0x2,0xe ; Debug Table 0x7.0x2f = 0x23d,0x21 023e e40d | | Load 0x2,0xd 023f e40f | | Load 0x2,0xf 0240 e001 | | Load 0x0,0x1 0241 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0242 00d1 | | Pop_Control Pop_Count_1 0243 e00a | | Load 0x0,0xa ; Debug Table 0x7.0x30 = 0x243,0x22 0244 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0245 e40e | | Load 0x2,0xe 0246 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0247 e40d | | Load 0x2,0xd 0248 e40f | | Load 0x2,0xf 0249 e001 | | Load 0x0,0x1 024a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 024b 005a | Z | Store_Top Discrete,At_Offset_2 024c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x31 = 0x24c,0x23 024d e005 | | Load 0x0,0x5 024e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 024f 680a |h | Jump_Zero 0x25a 0250 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x32 = 0x250,0x24 0251 a5fe | | Store_Unchecked 0x2,-0x2 0252 e00a | | Load 0x0,0xa ; Debug Table 0x7.0x33 = 0x252,0x25 0253 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0254 4801 |H | Short_Literal 0x1 0255 e40f | | Load 0x2,0xf 0256 e007 | | Load 0x0,0x7 0257 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0258 005a | Z | Store_Top Discrete,At_Offset_2 0259 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x7.0x34 = 0x259,0x26 025a e407 | | Load 0x2,0x7 ; Debug Table 0x7.0x35 = 0x25a,0x27 025b e219 | | Load 0x1,0x19 025c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 025d c407 | | Store 0x2,0x7 025e 00c9 | | Action Pop_Auxiliary_Loop 025f e407 | | Load 0x2,0x7 ; Debug Table 0x7.0x36 = 0x25f,0x1f 0260 e219 | | Load 0x1,0x19 0261 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0262 6fd6 |o | Jump_Zero 0x239 0263 00ce | | Action Pop_Auxiliary 0264 e218 | | Load 0x1,0x18 ; Debug Table 0x7.0x37 = 0x264,0x28 0265 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0266 00da | | Load_Top At_Offset_2 0267 e403 | | Load 0x2,0x3 0268 e218 | | Load 0x1,0x18 0269 181f | | Execute Package,Field_Execute,Field_Number 0x1f 026a c406 | | Store 0x2,0x6 026b 00cf | | Action Mark_Auxiliary 026c 781e |x | Jump 0x28b 026d e406 | | Load 0x2,0x6 ; Debug Table 0x7.0x38 = 0x26d,0x2a 026e e218 | | Load 0x1,0x18 026f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0270 c40b | | Store 0x2,0xb 0271 e00a | | Load 0x0,0xa ; Debug Table 0x7.0x39 = 0x271,0x2b 0272 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0273 e40b | | Load 0x2,0xb 0274 e40f | | Load 0x2,0xf 0275 e001 | | Load 0x0,0x1 0276 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0277 005a | Z | Store_Top Discrete,At_Offset_2 0278 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x3a = 0x278,0x2c 0279 e005 | | Load 0x0,0x5 027a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 027b 680a |h | Jump_Zero 0x286 027c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x3b = 0x27c,0x2d 027d a5fe | | Store_Unchecked 0x2,-0x2 027e e00a | | Load 0x0,0xa ; Debug Table 0x7.0x3c = 0x27e,0x2e 027f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0280 4801 |H | Short_Literal 0x1 0281 e40f | | Load 0x2,0xf 0282 e007 | | Load 0x0,0x7 0283 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0284 005a | Z | Store_Top Discrete,At_Offset_2 0285 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x7.0x3d = 0x285,0x2f 0286 e406 | | Load 0x2,0x6 ; Debug Table 0x7.0x3e = 0x286,0x30 0287 e218 | | Load 0x1,0x18 0288 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0289 c406 | | Store 0x2,0x6 028a 00c9 | | Action Pop_Auxiliary_Loop 028b e406 | | Load 0x2,0x6 ; Debug Table 0x7.0x3f = 0x28b,0x29 028c e218 | | Load 0x1,0x18 028d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 028e 6fde |o | Jump_Zero 0x26d 028f 00ce | | Action Pop_Auxiliary 0290 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x40 = 0x290,0x31 0291 a5fe | | Store_Unchecked 0x2,-0x2 0292 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0293 0000 0000 | | .BLANK 0000[0x5] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 4603 |F | Jump_Case 0x4 ; Debug Table 0x8 = .DEBUG 0x029b,0x0452,0x0005,0x0000,0x0057,0x7f55,0x0000,0x0009 029c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 029d 7802 |x | Jump 0x2a0 ; case 0x1 029e 7805 |x | Jump 0x2a4 ; case 0x2 029f 7809 |x | Jump 0x2a9 ; case 0x3 02a0 00da | | Load_Top At_Offset_2 02a1 0091 02d8 | | Action Push_String_Extended_Indexed,0x2d8 ; "EMPTY" 02a3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02a4 00db | | Load_Top At_Offset_3 02a5 00db | | Load_Top At_Offset_3 02a6 00e0 | | Load_Encached Standard_Cache 02a7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02a8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02a9 00da | | Load_Top At_Offset_2 02aa 00e0 | | Load_Encached Standard_Cache 02ab 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02ac 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02ad 0000 0000 | | .XXX[0x3] 02af 0000 | | 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 4800 |H | Short_Literal 0x0 ; Debug Table 0x9 = .DEBUG 0x02b3,0x0454,0x0002,0x0000,0x0057,0x7f55,0x0000,0x000e ; Debug Table 0x9.0x0 = 0x2b3,0x1 02b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b5 0000 0000 | | .XXX[0x3] 02b7 0000 | | 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 4800 |H | Short_Literal 0x0 ; Debug Table 0xa = .DEBUG 0x02bb,0x0458,0x0002,0x0000,0x0057,0x7f55,0x0000,0x0019 ; Debug Table 0xa.0x0 = 0x2bb,0x1 02bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02bd 0000 0000 | | .XXX[0x3] 02bf 0000 | | 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x02c3,0x045c,0x0002,0x0000,0x0057,0x7f55,0x0000,0x0024 ; Debug Table 0xb.0x0 = 0x2c3,0x1 02c4 e002 | | Load 0x0,0x2 02c5 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 02c6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02c7 0000 | | .XXX[0x1] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x02cb,0x0460,0x0002,0x0000,0x0057,0x7f55,0x0000,0x0033 ; Debug Table 0xc.0x0 = 0x2cb,0x1 02cc e002 | | Load 0x0,0x2 02cd 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 02ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02cf 0000 | | .XXX[0x1] 02d0 0000 0000 | | .LITERAL {0x00000000, 0x577f5501} 02d4 0000 0000 | | .LITERAL {0x00000000, 0x00577f55} 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; STRING TABLE 02d8 ; -------------------------------------------------------------------------------------- 02d8 0004 | | .STRTAB 0x0004->0x02da ; "EMPTY" 02d9 0007 | | .STREND 0x0007->0x02dc 02da 454d 5054 |EMPT| .STRTAB_STRINGS 02dd 0000 0000 | | .XXX[0x3] 02df 0000 | | 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; Debug Table 02e0 ; -------------------------------------------------------------------------------------- 02e0 0003 000d | | .CONST 0x0003,0x000d 02e2 000b 034a | J| .DEBUG 0x000b,0x034a,0x0000,0x0000,0x0057,0x79c5,0x0000,0x00ba 02ea 0018 0358 | X| .DEBUG 0x0018,0x0358,0x0000,0x0000,0x0057,0x7f55,0x0000,0x0008 02f2 005b 037c | [ || .DEBUG 0x005b,0x037c,0x0002,0x0000,0x0057,0x79c5,0x0000,0x00bb 02fa 006b 0382 | k | .DEBUG 0x006b,0x0382,0x0001,0x0000,0x0057,0x79c5,0x0000,0x00c4 0302 00a3 038c | | .DEBUG 0x00a3,0x038c,0x0001,0x0000,0x0057,0x79c5,0x0000,0x00da 030a 00d3 0396 | | .DEBUG 0x00d3,0x0396,0x0001,0x0000,0x0057,0x79c5,0x0000,0x00f2 0312 0143 03c4 | C | .DEBUG 0x0143,0x03c4,0x0001,0x0000,0x0057,0x79c5,0x0000,0x010d 031a 015b 03ce | [ | .DEBUG 0x015b,0x03ce,0x0001,0x0000,0x0057,0x79c5,0x0000,0x011e 0322 029b 0452 | R| .DEBUG 0x029b,0x0452,0x0005,0x0000,0x0057,0x7f55,0x0000,0x0009 032a 02b3 0454 | T| .DEBUG 0x02b3,0x0454,0x0002,0x0000,0x0057,0x7f55,0x0000,0x000e 0332 02bb 0458 | X| .DEBUG 0x02bb,0x0458,0x0002,0x0000,0x0057,0x7f55,0x0000,0x0019 033a 02c3 045c | \| .DEBUG 0x02c3,0x045c,0x0002,0x0000,0x0057,0x7f55,0x0000,0x0024 0342 02cb 0460 | `| .DEBUG 0x02cb,0x0460,0x0002,0x0000,0x0057,0x7f55,0x0000,0x0033 034a ; -------------------------------------------------------------------------------------- 034a ; Debug3 Subtable 0x0 034a ; -------------------------------------------------------------------------------------- 034a 0006 0000 | | .DBG3TAB 0x0006,0x0000 034c 000b ffff | | .CONST 0x000b,0xffff 034e 000d fffe | | .CONST 0x000d,0xfffe 0350 000f fffd | | .CONST 0x000f,0xfffd 0352 0011 fffc | | .CONST 0x0011,0xfffc 0354 0013 fffb | | .CONST 0x0013,0xfffb 0356 0015 fffa | | .CONST 0x0015,0xfffa 0358 ; -------------------------------------------------------------------------------------- 0358 ; Debug3 Subtable 0x1 0358 ; -------------------------------------------------------------------------------------- 0358 0011 0000 | | .DBG3TAB 0x0011,0x0000 035a 0018 ffff | | .CONST 0x0018,0xffff 035c 001d fffe | | .CONST 0x001d,0xfffe 035e 001f fffd | | .CONST 0x001f,0xfffd 0360 0021 fffc | ! | .CONST 0x0021,0xfffc 0362 0023 fffb | # | .CONST 0x0023,0xfffb 0364 0025 fffa | % | .CONST 0x0025,0xfffa 0366 0033 fff9 | 3 | .CONST 0x0033,0xfff9 0368 0041 fff8 | A | .CONST 0x0041,0xfff8 036a 0043 fff7 | C | .CONST 0x0043,0xfff7 036c 0045 fff6 | E | .CONST 0x0045,0xfff6 036e 0047 fff5 | G | .CONST 0x0047,0xfff5 0370 0049 fff4 | I | .CONST 0x0049,0xfff4 0372 004b fff3 | K | .CONST 0x004b,0xfff3 0374 004d fff2 | M | .CONST 0x004d,0xfff2 0376 004f fff1 | O | .CONST 0x004f,0xfff1 0378 0051 fff0 | Q | .CONST 0x0051,0xfff0 037a 0053 ffef | S | .CONST 0x0053,0xffef 037c ; -------------------------------------------------------------------------------------- 037c ; Debug3 Subtable 0x2 037c ; -------------------------------------------------------------------------------------- 037c 0000 0002 | | .DBG3TAB 0x0000,0x0002 037e 005b 0001 | [ | .CONST 0x005b,0x0001 0380 0065 0002 | e | .CONST 0x0065,0x0002 0382 ; -------------------------------------------------------------------------------------- 0382 ; Debug3 Subtable 0x3 0382 ; -------------------------------------------------------------------------------------- 0382 0002 0002 | | .DBG3TAB 0x0002,0x0002 0384 006b ffff | k | .CONST 0x006b,0xffff 0386 0087 fffe | | .CONST 0x0087,0xfffe 0388 0087 0001 | | .CONST 0x0087,0x0001 038a 0097 0002 | | .CONST 0x0097,0x0002 038c ; -------------------------------------------------------------------------------------- 038c ; Debug3 Subtable 0x4 038c ; -------------------------------------------------------------------------------------- 038c 0002 0002 | | .DBG3TAB 0x0002,0x0002 038e 00a3 ffff | | .CONST 0x00a3,0xffff 0390 00bf fffe | | .CONST 0x00bf,0xfffe 0392 00bf 0001 | | .CONST 0x00bf,0x0001 0394 00cd 0002 | | .CONST 0x00cd,0x0002 0396 ; -------------------------------------------------------------------------------------- 0396 ; Debug3 Subtable 0x5 0396 ; -------------------------------------------------------------------------------------- 0396 0004 0012 | | .DBG3TAB 0x0004,0x0012 0398 00d3 ffff | | .CONST 0x00d3,0xffff 039a 00d5 fffe | | .CONST 0x00d5,0xfffe 039c 00d7 fffd | | .CONST 0x00d7,0xfffd 039e 00d8 fffc | | .CONST 0x00d8,0xfffc 03a0 00d8 0001 | | .CONST 0x00d8,0x0001 03a2 00db 0002 | | .CONST 0x00db,0x0002 03a4 00e8 0003 | | .CONST 0x00e8,0x0003 03a6 00ec 0004 | | .CONST 0x00ec,0x0004 03a8 00ee 0005 | | .CONST 0x00ee,0x0005 03aa 00ef 0006 | | .CONST 0x00ef,0x0006 03ac 00f5 0007 | | .CONST 0x00f5,0x0007 03ae 00f9 0008 | | .CONST 0x00f9,0x0008 03b0 00fb 0009 | | .CONST 0x00fb,0x0009 03b2 0101 000a | | .CONST 0x0101,0x000a 03b4 0105 000b | | .CONST 0x0105,0x000b 03b6 0107 000c | | .CONST 0x0107,0x000c 03b8 0109 000d | | .CONST 0x0109,0x000d 03ba 0122 000e | " | .CONST 0x0122,0x000e 03bc 0126 000f | & | .CONST 0x0126,0x000f 03be 0128 0010 | ( | .CONST 0x0128,0x0010 03c0 0130 0011 | 0 | .CONST 0x0130,0x0011 03c2 0137 0012 | 7 | .CONST 0x0137,0x0012 03c4 ; -------------------------------------------------------------------------------------- 03c4 ; Debug3 Subtable 0x6 03c4 ; -------------------------------------------------------------------------------------- 03c4 0000 0004 | | .DBG3TAB 0x0000,0x0004 03c6 0143 0001 | C | .CONST 0x0143,0x0001 03c8 0145 0002 | E | .CONST 0x0145,0x0002 03ca 0147 0003 | G | .CONST 0x0147,0x0003 03cc 0148 0004 | H | .CONST 0x0148,0x0004 03ce ; -------------------------------------------------------------------------------------- 03ce ; Debug3 Subtable 0x7 03ce ; -------------------------------------------------------------------------------------- 03ce 0010 0031 | 1| .DBG3TAB 0x0010,0x0031 03d0 015b ffff | [ | .CONST 0x015b,0xffff 03d2 015d fffe | ] | .CONST 0x015d,0xfffe 03d4 015f fffd | _ | .CONST 0x015f,0xfffd 03d6 0161 fffc | a | .CONST 0x0161,0xfffc 03d8 0163 fffb | c | .CONST 0x0163,0xfffb 03da 0165 fffa | e | .CONST 0x0165,0xfffa 03dc 0167 fff9 | g | .CONST 0x0167,0xfff9 03de 016c fff8 | l | .CONST 0x016c,0xfff8 03e0 0171 fff7 | q | .CONST 0x0171,0xfff7 03e2 0176 fff6 | v | .CONST 0x0176,0xfff6 03e4 017b fff5 | { | .CONST 0x017b,0xfff5 03e6 0180 fff4 | | .CONST 0x0180,0xfff4 03e8 0185 fff3 | | .CONST 0x0185,0xfff3 03ea 018a fff2 | | .CONST 0x018a,0xfff2 03ec 018c fff1 | | .CONST 0x018c,0xfff1 03ee 0192 fff0 | | .CONST 0x0192,0xfff0 03f0 0194 0001 | | .CONST 0x0194,0x0001 03f2 0196 0002 | | .CONST 0x0196,0x0002 03f4 0198 0003 | | .CONST 0x0198,0x0003 03f6 0199 0004 | | .CONST 0x0199,0x0004 03f8 019d 0005 | | .CONST 0x019d,0x0005 03fa 01a3 0006 | | .CONST 0x01a3,0x0006 03fc 01a9 0007 | | .CONST 0x01a9,0x0007 03fe 01af 0008 | | .CONST 0x01af,0x0008 0400 01b5 0009 | | .CONST 0x01b5,0x0009 0402 01c0 000b | | .CONST 0x01c0,0x000b 0404 01c6 000c | | .CONST 0x01c6,0x000c 0406 01cd 000e | | .CONST 0x01cd,0x000e 0408 01d4 000f | | .CONST 0x01d4,0x000f 040a 01db 0010 | | .CONST 0x01db,0x0010 040c 01e1 000d | | .CONST 0x01e1,0x000d 040e 01e6 0011 | | .CONST 0x01e6,0x0011 0410 01ea 000a | | .CONST 0x01ea,0x000a 0412 01ef 0012 | | .CONST 0x01ef,0x0012 0414 01fa 0014 | | .CONST 0x01fa,0x0014 0416 0200 0015 | | .CONST 0x0200,0x0015 0418 0205 0016 | | .CONST 0x0205,0x0016 041a 020a 0017 | | .CONST 0x020a,0x0017 041c 020f 0019 | | .CONST 0x020f,0x0019 041e 0215 001a | | .CONST 0x0215,0x001a 0420 021a 001b | | .CONST 0x021a,0x001b 0422 021e 001c | | .CONST 0x021e,0x001c 0424 0222 0018 | " | .CONST 0x0222,0x0018 0426 0227 001d | ' | .CONST 0x0227,0x001d 0428 022b 0013 | + | .CONST 0x022b,0x0013 042a 0230 001e | 0 | .CONST 0x0230,0x001e 042c 0239 0020 | 9 | .CONST 0x0239,0x0020 042e 023d 0021 | = !| .CONST 0x023d,0x0021 0430 0243 0022 | C "| .CONST 0x0243,0x0022 0432 024c 0023 | L #| .CONST 0x024c,0x0023 0434 0250 0024 | P $| .CONST 0x0250,0x0024 0436 0252 0025 | R %| .CONST 0x0252,0x0025 0438 0259 0026 | Y &| .CONST 0x0259,0x0026 043a 025a 0027 | Z '| .CONST 0x025a,0x0027 043c 025f 001f | _ | .CONST 0x025f,0x001f 043e 0264 0028 | d (| .CONST 0x0264,0x0028 0440 026d 002a | m *| .CONST 0x026d,0x002a 0442 0271 002b | q +| .CONST 0x0271,0x002b 0444 0278 002c | x ,| .CONST 0x0278,0x002c 0446 027c 002d | | -| .CONST 0x027c,0x002d 0448 027e 002e | ~ .| .CONST 0x027e,0x002e 044a 0285 002f | /| .CONST 0x0285,0x002f 044c 0286 0030 | 0| .CONST 0x0286,0x0030 044e 028b 0029 | )| .CONST 0x028b,0x0029 0450 0290 0031 | 1| .CONST 0x0290,0x0031 0452 ; -------------------------------------------------------------------------------------- 0452 ; Debug3 Subtable 0x8 0452 ; -------------------------------------------------------------------------------------- 0452 0000 0000 | | .DBG3TAB 0x0000,0x0000 0454 ; -------------------------------------------------------------------------------------- 0454 ; Debug3 Subtable 0x9 0454 ; -------------------------------------------------------------------------------------- 0454 0000 0001 | | .DBG3TAB 0x0000,0x0001 0456 02b3 0001 | | .CONST 0x02b3,0x0001 0458 ; -------------------------------------------------------------------------------------- 0458 ; Debug3 Subtable 0xa 0458 ; -------------------------------------------------------------------------------------- 0458 0000 0001 | | .DBG3TAB 0x0000,0x0001 045a 02bb 0001 | | .CONST 0x02bb,0x0001 045c ; -------------------------------------------------------------------------------------- 045c ; Debug3 Subtable 0xb 045c ; -------------------------------------------------------------------------------------- 045c 0000 0001 | | .DBG3TAB 0x0000,0x0001 045e 02c3 0001 | | .CONST 0x02c3,0x0001 0460 ; -------------------------------------------------------------------------------------- 0460 ; Debug3 Subtable 0xc 0460 ; -------------------------------------------------------------------------------------- 0460 0000 0001 | | .DBG3TAB 0x0000,0x0001 0462 02cb 0001 | | .CONST 0x02cb,0x0001 0464 0000 0000 | | .BLANK 0000[0x19c]