|
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: 2048 (0x800) Notes: 00_class, 5813_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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0168 | h | .CONST 0x0168 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 005f | _ | .CONST 0x005f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001e | | .CONST 0x001e ; Number of locals 000b INIT_0008: 000b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x0 = .DEBUG 0x000b,0x01ea,0x8000,0x0000,0x0059,0x88c5,0x0000,0x000c ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x0.0x1 = 0xc,0xfffe 000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xd,0xfffd 000f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xf,0xfffc 0011 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x11,0xfffb 0013 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x13,0xfffa 0015 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x15,0xfff9 0017 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x17,0xfff8 0019 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x19,0xfff7 001b 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1b,0xfff6 001d 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1d,0xfff5 001f 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x1f,0xfff4 0021 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x21,0xfff3 0023 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x23,0xfff2 0025 4803 |H | Short_Literal 0x3 ; Debug Table 0x0.0xe = 0x25,0xfff1 0026 032a | * | Declare_Type Record,Incomplete 0027 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0xf = 0x27,0xfff0 0028 02a0 | | Declare_Subprogram Null_Subprogram 0029 e20d | | Load 0x1,0xd 002a 03a3 | | Complete_Type Heap_Access,By_Defining 002b e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x10 = 0x2b,0xffef ; Debug Table 0x0.0x11 = 0x2b,0xffee 002c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 002d 029b 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Unelaborated ; Debug Table 0x0.0x12 = 0x2d,0xffed 002f 6134 |a4 | Indirect_Literal Discrete,0x164,{0x00000000, 0x005988c5} ; Debug Table 0x0.0x13 = 0x2f,0xffec 0030 48c6 |H | Short_Literal 0xc6 0031 00db | | Load_Top At_Offset_3 0032 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0033 e002 | | Load 0x0,0x2 0034 0387 | | Declare_Variable Package 0035 00d8 | | Load_Top At_Offset_0 0036 020f | | Execute Module,Activate 0037 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x14 = 0x37,0xffeb 0038 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0039 e20e | | Load 0x1,0xe 003a 03a2 | | Complete_Type Heap_Access,By_Renaming 003b 00bf | | Action Accept_Activation 003c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1 = .DEBUG 0x003c,0x0216,0x8000,0x0000,0x0059,0x8ca5,0x0000,0x0007 ; Debug Table 0x1.0x0 = 0x3c,0xffff ; Debug Table 0x1.0x1 = 0x3c,0xfffe 003d 00d9 | | Load_Top At_Offset_1 003e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 003f 00da | | Load_Top At_Offset_2 0040 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0041 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 0043 e21b | | Load 0x1,0x1b 0044 0326 | & | Complete_Type Record,By_Defining 0045 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0x2 = 0x45,0xfffd 0046 00c7 | | Action Elaborate_Subprogram 0047 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x3 = 0x47,0xfffc 0048 00c7 | | Action Elaborate_Subprogram 0049 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x4 = 0x49,0xfffb 004a 00c7 | | Action Elaborate_Subprogram 004b 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x5 = 0x4b,0xfffa 004c 00c7 | | Action Elaborate_Subprogram 004d 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x6 = 0x4d,0xfff9 004e 00c7 | | Action Elaborate_Subprogram 004f 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x7 = 0x4f,0xfff8 0050 00c7 | | Action Elaborate_Subprogram 0051 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x8 = 0x51,0xfff7 0052 00c7 | | Action Elaborate_Subprogram 0053 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x9 = 0x53,0xfff6 0054 00c7 | | Action Elaborate_Subprogram 0055 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0xa = 0x55,0xfff5 0056 00c7 | | Action Elaborate_Subprogram 0057 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0xb = 0x57,0xfff4 0058 00c7 | | Action Elaborate_Subprogram 0059 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xc = 0x59,0xfff3 005a 00c7 | | Action Elaborate_Subprogram 005b 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xd = 0x5b,0xfff2 005c 00c7 | | Action Elaborate_Subprogram 005d 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0xe = 0x5d,0xfff1 005e 00c7 | | Action Elaborate_Subprogram 005f BODY_0008: 005f 00bc | | Action Signal_Activated 0060 00bb | | Action Signal_Completion 0061 0000 0000 | | .BLANK 0000[0x7] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006c | l | .CONST 0x006c ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0002 | | .CONST 0x0002 ; Number of locals 006b INIT_0068: 006b e20d | | Load 0x1,0xd ; Debug Table 0x2 = .DEBUG 0x006b,0x0236,0x0002,0x0000,0x0059,0x88c5,0x0000,0x0015 ; Debug Table 0x2.0x0 = 0x6b,0xffff 006c BODY_0068: 006c e20d | | Load 0x1,0xd ; Debug Table 0x2.0x1 = 0x6c,0x1 006d e5ff | | Load 0x2,-0x1 006e 8212 | | Call 0x1,0x12 006f 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0070 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x70,0x2 0071 e5ff | | Load 0x2,-0x1 0072 e001 | | Load 0x0,0x1 0073 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0074 0322 | " | Declare_Variable Record 0075 4801 |H | Short_Literal 0x1 0076 00d9 | | Load_Top At_Offset_1 0077 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0078 4897 |H | Short_Literal 0x97 0079 e003 | | Load 0x0,0x3 007a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 007b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 007c 00d9 | | Load_Top At_Offset_1 007d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 007e 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2.0x3 = 0x7e,0x401 007f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x4 = 0x7f,0x2 0080 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0081 4800 |H | Short_Literal 0x0 0082 00d9 | | Load_Top At_Offset_1 0083 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0084 4800 |H | Short_Literal 0x0 0085 00d9 | | Load_Top At_Offset_1 0086 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0087 4800 |H | Short_Literal 0x0 0088 00d9 | | Load_Top At_Offset_1 0089 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 008a 8214 | | Call 0x1,0x14 008b 0031 | 1 | Store_Top Heap_Access,At_Offset_1 008c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x5 = 0x8c,0x3 008d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008e 0000 0000 | | .XXX[0x2] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x0093,0x0244,0x0001,0x0000,0x0059,0x88c5,0x0000,0x0020 ; Debug Table 0x3.0x0 = 0x93,0x1 0094 a5fe | | Store_Unchecked 0x2,-0x2 0095 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0096 0000 0000 | | .XXX[0x2] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00a1 | | .CONST 0x00a1 ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0002 | | .CONST 0x0002 ; Number of locals 009b INIT_0098: 009b e21e | | Load 0x1,0x1e ; Debug Table 0x4 = .DEBUG 0x009b,0x0248,0x0001,0x0000,0x0059,0x88c5,0x0000,0x002c ; Debug Table 0x4.0x0 = 0x9b,0xffff 009c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 009d 00db | | Load_Top At_Offset_3 009e 0217 | | Execute Heap_Access,All_Reference 009f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00a0 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00a1 BODY_0098: 00a1 00cf | | Action Mark_Auxiliary 00a2 780c |x | Jump 0xaf 00a3 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x1 = 0xa3,0x2 00a4 e5fe | | Load 0x2,-0x2 00a5 00db | | Load_Top At_Offset_3 00a6 e21e | | Load 0x1,0x1e 00a7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a8 8214 | | Call 0x1,0x14 00a9 c5fd | | Store 0x2,-0x3 00aa 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x2 = 0xaa,0x3 00ab e21e | | Load 0x1,0x1e 00ac 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ad 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00ae 00c9 | | Action Pop_Auxiliary_Loop 00af 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x3 = 0xaf,0x1 00b0 e21e | | Load 0x1,0x1e 00b1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00b2 6ff0 |o | Jump_Zero 0xa3 00b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b4 0000 0000 | | .BLANK 0000[0x4] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb e20d | | Load 0x1,0xd ; Debug Table 0x5 = .DEBUG 0x00bb,0x0252,0x0001,0x0000,0x0059,0x88c5,0x0000,0x003e ; Debug Table 0x5.0x0 = 0xbb,0x1 00bc 00db | | Load_Top At_Offset_3 00bd 039c | | Declare_Variable Heap_Access,By_Allocation 00be 00d8 | | Load_Top At_Offset_0 00bf 0217 | | Execute Heap_Access,All_Reference 00c0 1c00 | | Execute_Immediate Run_Utility,0x0 00c1 a5fe | | Store_Unchecked 0x2,-0x2 00c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x5.0x1 = 0xc2,0x2 00c3 0000 0000 | | .BLANK 0000[0x5] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb e20d | | Load 0x1,0xd ; Debug Table 0x6 = .DEBUG 0x00cb,0x0258,0x0001,0x0000,0x0059,0x88c5,0x0000,0x004c ; Debug Table 0x6.0x0 = 0xcb,0x1 00cc 00db | | Load_Top At_Offset_3 00cd 039c | | Declare_Variable Heap_Access,By_Allocation 00ce 00d8 | | Load_Top At_Offset_0 00cf 0217 | | Execute Heap_Access,All_Reference 00d0 1c00 | | Execute_Immediate Run_Utility,0x0 00d1 0033 | 3 | Store_Top Heap_Access,At_Offset_3 00d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x6.0x1 = 0xd2,0x2 00d3 0000 0000 | | .BLANK 0000[0x5] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00e3 | | .CONST 0x00e3 ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0003 | | .CONST 0x0003 ; Number of locals 00db INIT_00d8: 00db e21e | | Load 0x1,0x1e ; Debug Table 0x7 = .DEBUG 0x00db,0x025e,0x0001,0x0000,0x0059,0x88c5,0x0000,0x0054 ; Debug Table 0x7.0x0 = 0xdb,0xffff 00dc 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00dd e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x1 = 0xdd,0xfffe 00de 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00df 0322 | " | Declare_Variable Record 00e0 e5ff | | Load 0x2,-0x1 00e1 00d9 | | Load_Top At_Offset_1 00e2 017d | } | Execute Record,Structure_Write 00e3 BODY_00d8: 00e3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x2 = 0xe3,0x1 00e4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 00e5 7003 |p | Jump_Nonzero 0xe9 00e6 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x3 = 0xe6,0x2 00e7 00d9 | | Load_Top At_Offset_1 00e8 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00e9 e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0x4 = 0xe9,0x3 00ea e21e | | Load 0x1,0x1e 00eb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ec 00da | | Load_Top At_Offset_2 00ed e21e | | Load 0x1,0x1e 00ee 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00ef 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00f0 e5fd | | Load 0x2,-0x3 ; Debug Table 0x7.0x5 = 0xf0,0x4 00f1 0217 | | Execute Heap_Access,All_Reference 00f2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00f3 e21e | | Load 0x1,0x1e 00f4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00f5 6809 |h | Jump_Zero 0xff 00f6 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x6 = 0xf6,0x5 00f7 e5fd | | Load 0x2,-0x3 00f8 0217 | | Execute Heap_Access,All_Reference 00f9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00fa 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x7 = 0xfa,0x6 00fb e5fd | | Load 0x2,-0x3 00fc 0217 | | Execute Heap_Access,All_Reference 00fd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00fe 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ff 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x8 = 0xff,0x7 0100 e5fd | | Load 0x2,-0x3 0101 0217 | | Execute Heap_Access,All_Reference 0102 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0103 e21e | | Load 0x1,0x1e 0104 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0105 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x9 = 0x105,0x8 0106 e5fd | | Load 0x2,-0x3 0107 0217 | | Execute Heap_Access,All_Reference 0108 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0109 4503 |E | Exit_Suprogram New_Top_Offset 0x3 010a 0000 0000 | | .BLANK 0000[0x6] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x0113,0x0274,0x0001,0x0000,0x0059,0x88c5,0x0000,0x0068 ; Debug Table 0x8.0x0 = 0x113,0x1 0114 e5fe | | Load 0x2,-0x2 0115 0217 | | Execute Heap_Access,All_Reference 0116 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0117 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x011b,0x0278,0x0002,0x0000,0x0059,0x88c5,0x0000,0x0075 ; Debug Table 0x9.0x0 = 0x11b,0x1 011c 6804 |h | Jump_Zero 0x121 011d 00da | | Load_Top At_Offset_2 011e 0217 | | Execute Heap_Access,All_Reference 011f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0120 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0121 4800 |H | Short_Literal 0x0 0122 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0123 0000 0000 | | .BLANK 0000[0x5] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x012b,0x027c,0x0001,0x0000,0x0059,0x88c5,0x0000,0x007e ; Debug Table 0xa.0x0 = 0x12b,0x1 012c 0217 | | Execute Heap_Access,All_Reference 012d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 012e a5fe | | Store_Unchecked 0x2,-0x2 012f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x0133,0x0280,0x0001,0x0000,0x0059,0x88c5,0x0000,0x008a ; Debug Table 0xb.0x0 = 0x133,0x1 0134 e21e | | Load 0x1,0x1e 0135 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0136 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0137 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x013b,0x0284,0x0002,0x0000,0x0059,0x88c5,0x0000,0x0092 ; Debug Table 0xc.0x0 = 0x13b,0x1 013c e21e | | Load 0x1,0x1e 013d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 013e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013f 0000 | | .XXX[0x1] 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 0xd = .DEBUG 0x0143,0x0288,0x0002,0x0000,0x0059,0x88c5,0x0000,0x009d ; Debug Table 0xd.0x0 = 0x143,0x1 0144 e21e | | Load 0x1,0x1e 0145 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0147 0000 | | .XXX[0x1] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 00da | | Load_Top At_Offset_2 ; Debug Table 0xe = .DEBUG 0x014b,0x028c,0x0001,0x0000,0x0059,0x88c5,0x0000,0x00ba ; Debug Table 0xe.0x0 = 0x14b,0x1 014c e5fe | | Load 0x2,-0x2 014d 017d | } | Execute Record,Structure_Write 014e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014f 0000 | | .XXX[0x1] 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 4608 |F | Jump_Case 0x9 ; Debug Table 0xf = .DEBUG 0x0153,0x0290,0x0005,0x0000,0x0059,0x8ca5,0x0000,0x000e 0154 7808 |x | Jump 0x15d ; case 0x0 0155 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0156 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0157 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0158 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0159 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 015a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 015b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 015c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 015d 4800 |H | Short_Literal 0x0 015e 00db | | Load_Top At_Offset_3 015f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0160 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0161 0000 0000 | | .XXX[0x3] 0163 0000 | | 0164 0000 0000 | | .LITERAL {0x00000000, 0x005988c5} 0168 ; -------------------------------------------------------------------------------------- 0168 ; Debug Table 0168 ; -------------------------------------------------------------------------------------- 0168 0003 0010 | | .CONST 0x0003,0x0010 016a 000b 01ea | | .DEBUG 0x000b,0x01ea,0x8000,0x0000,0x0059,0x88c5,0x0000,0x000c 0172 003c 0216 | < | .DEBUG 0x003c,0x0216,0x8000,0x0000,0x0059,0x8ca5,0x0000,0x0007 017a 006b 0236 | k 6| .DEBUG 0x006b,0x0236,0x0002,0x0000,0x0059,0x88c5,0x0000,0x0015 0182 0093 0244 | D| .DEBUG 0x0093,0x0244,0x0001,0x0000,0x0059,0x88c5,0x0000,0x0020 018a 009b 0248 | H| .DEBUG 0x009b,0x0248,0x0001,0x0000,0x0059,0x88c5,0x0000,0x002c 0192 00bb 0252 | R| .DEBUG 0x00bb,0x0252,0x0001,0x0000,0x0059,0x88c5,0x0000,0x003e 019a 00cb 0258 | X| .DEBUG 0x00cb,0x0258,0x0001,0x0000,0x0059,0x88c5,0x0000,0x004c 01a2 00db 025e | ^| .DEBUG 0x00db,0x025e,0x0001,0x0000,0x0059,0x88c5,0x0000,0x0054 01aa 0113 0274 | t| .DEBUG 0x0113,0x0274,0x0001,0x0000,0x0059,0x88c5,0x0000,0x0068 01b2 011b 0278 | x| .DEBUG 0x011b,0x0278,0x0002,0x0000,0x0059,0x88c5,0x0000,0x0075 01ba 012b 027c | + || .DEBUG 0x012b,0x027c,0x0001,0x0000,0x0059,0x88c5,0x0000,0x007e 01c2 0133 0280 | 3 | .DEBUG 0x0133,0x0280,0x0001,0x0000,0x0059,0x88c5,0x0000,0x008a 01ca 013b 0284 | ; | .DEBUG 0x013b,0x0284,0x0002,0x0000,0x0059,0x88c5,0x0000,0x0092 01d2 0143 0288 | C | .DEBUG 0x0143,0x0288,0x0002,0x0000,0x0059,0x88c5,0x0000,0x009d 01da 014b 028c | K | .DEBUG 0x014b,0x028c,0x0001,0x0000,0x0059,0x88c5,0x0000,0x00ba 01e2 0153 0290 | S | .DEBUG 0x0153,0x0290,0x0005,0x0000,0x0059,0x8ca5,0x0000,0x000e 01ea ; -------------------------------------------------------------------------------------- 01ea ; Debug3 Subtable 0x0 01ea ; -------------------------------------------------------------------------------------- 01ea 0015 0000 | | .DBG3TAB 0x0015,0x0000 01ec 000b ffff | | .CONST 0x000b,0xffff 01ee 000c fffe | | .CONST 0x000c,0xfffe 01f0 000d fffd | | .CONST 0x000d,0xfffd 01f2 000f fffc | | .CONST 0x000f,0xfffc 01f4 0011 fffb | | .CONST 0x0011,0xfffb 01f6 0013 fffa | | .CONST 0x0013,0xfffa 01f8 0015 fff9 | | .CONST 0x0015,0xfff9 01fa 0017 fff8 | | .CONST 0x0017,0xfff8 01fc 0019 fff7 | | .CONST 0x0019,0xfff7 01fe 001b fff6 | | .CONST 0x001b,0xfff6 0200 001d fff5 | | .CONST 0x001d,0xfff5 0202 001f fff4 | | .CONST 0x001f,0xfff4 0204 0021 fff3 | ! | .CONST 0x0021,0xfff3 0206 0023 fff2 | # | .CONST 0x0023,0xfff2 0208 0025 fff1 | % | .CONST 0x0025,0xfff1 020a 0027 fff0 | ' | .CONST 0x0027,0xfff0 020c 002b ffef | + | .CONST 0x002b,0xffef 020e 002b ffee | + | .CONST 0x002b,0xffee 0210 002d ffed | - | .CONST 0x002d,0xffed 0212 002f ffec | / | .CONST 0x002f,0xffec 0214 0037 ffeb | 7 | .CONST 0x0037,0xffeb 0216 ; -------------------------------------------------------------------------------------- 0216 ; Debug3 Subtable 0x1 0216 ; -------------------------------------------------------------------------------------- 0216 000f 0000 | | .DBG3TAB 0x000f,0x0000 0218 003c ffff | < | .CONST 0x003c,0xffff 021a 003c fffe | < | .CONST 0x003c,0xfffe 021c 0045 fffd | E | .CONST 0x0045,0xfffd 021e 0047 fffc | G | .CONST 0x0047,0xfffc 0220 0049 fffb | I | .CONST 0x0049,0xfffb 0222 004b fffa | K | .CONST 0x004b,0xfffa 0224 004d fff9 | M | .CONST 0x004d,0xfff9 0226 004f fff8 | O | .CONST 0x004f,0xfff8 0228 0051 fff7 | Q | .CONST 0x0051,0xfff7 022a 0053 fff6 | S | .CONST 0x0053,0xfff6 022c 0055 fff5 | U | .CONST 0x0055,0xfff5 022e 0057 fff4 | W | .CONST 0x0057,0xfff4 0230 0059 fff3 | Y | .CONST 0x0059,0xfff3 0232 005b fff2 | [ | .CONST 0x005b,0xfff2 0234 005d fff1 | ] | .CONST 0x005d,0xfff1 0236 ; -------------------------------------------------------------------------------------- 0236 ; Debug3 Subtable 0x2 0236 ; -------------------------------------------------------------------------------------- 0236 0001 0005 | | .DBG3TAB 0x0001,0x0005 0238 006b ffff | k | .CONST 0x006b,0xffff 023a 006c 0001 | l | .CONST 0x006c,0x0001 023c 0070 0002 | p | .CONST 0x0070,0x0002 023e 007e 0401 | ~ | .CONST 0x007e,0x0401 0240 007f 0002 | | .CONST 0x007f,0x0002 0242 008c 0003 | | .CONST 0x008c,0x0003 0244 ; -------------------------------------------------------------------------------------- 0244 ; Debug3 Subtable 0x3 0244 ; -------------------------------------------------------------------------------------- 0244 0000 0001 | | .DBG3TAB 0x0000,0x0001 0246 0093 0001 | | .CONST 0x0093,0x0001 0248 ; -------------------------------------------------------------------------------------- 0248 ; Debug3 Subtable 0x4 0248 ; -------------------------------------------------------------------------------------- 0248 0001 0003 | | .DBG3TAB 0x0001,0x0003 024a 009b ffff | | .CONST 0x009b,0xffff 024c 00a3 0002 | | .CONST 0x00a3,0x0002 024e 00aa 0003 | | .CONST 0x00aa,0x0003 0250 00af 0001 | | .CONST 0x00af,0x0001 0252 ; -------------------------------------------------------------------------------------- 0252 ; Debug3 Subtable 0x5 0252 ; -------------------------------------------------------------------------------------- 0252 0000 0002 | | .DBG3TAB 0x0000,0x0002 0254 00bb 0001 | | .CONST 0x00bb,0x0001 0256 00c2 0002 | | .CONST 0x00c2,0x0002 0258 ; -------------------------------------------------------------------------------------- 0258 ; Debug3 Subtable 0x6 0258 ; -------------------------------------------------------------------------------------- 0258 0000 0002 | | .DBG3TAB 0x0000,0x0002 025a 00cb 0001 | | .CONST 0x00cb,0x0001 025c 00d2 0002 | | .CONST 0x00d2,0x0002 025e ; -------------------------------------------------------------------------------------- 025e ; Debug3 Subtable 0x7 025e ; -------------------------------------------------------------------------------------- 025e 0002 0008 | | .DBG3TAB 0x0002,0x0008 0260 00db ffff | | .CONST 0x00db,0xffff 0262 00dd fffe | | .CONST 0x00dd,0xfffe 0264 00e3 0001 | | .CONST 0x00e3,0x0001 0266 00e6 0002 | | .CONST 0x00e6,0x0002 0268 00e9 0003 | | .CONST 0x00e9,0x0003 026a 00f0 0004 | | .CONST 0x00f0,0x0004 026c 00f6 0005 | | .CONST 0x00f6,0x0005 026e 00fa 0006 | | .CONST 0x00fa,0x0006 0270 00ff 0007 | | .CONST 0x00ff,0x0007 0272 0105 0008 | | .CONST 0x0105,0x0008 0274 ; -------------------------------------------------------------------------------------- 0274 ; Debug3 Subtable 0x8 0274 ; -------------------------------------------------------------------------------------- 0274 0000 0001 | | .DBG3TAB 0x0000,0x0001 0276 0113 0001 | | .CONST 0x0113,0x0001 0278 ; -------------------------------------------------------------------------------------- 0278 ; Debug3 Subtable 0x9 0278 ; -------------------------------------------------------------------------------------- 0278 0000 0001 | | .DBG3TAB 0x0000,0x0001 027a 011b 0001 | | .CONST 0x011b,0x0001 027c ; -------------------------------------------------------------------------------------- 027c ; Debug3 Subtable 0xa 027c ; -------------------------------------------------------------------------------------- 027c 0000 0001 | | .DBG3TAB 0x0000,0x0001 027e 012b 0001 | + | .CONST 0x012b,0x0001 0280 ; -------------------------------------------------------------------------------------- 0280 ; Debug3 Subtable 0xb 0280 ; -------------------------------------------------------------------------------------- 0280 0000 0001 | | .DBG3TAB 0x0000,0x0001 0282 0133 0001 | 3 | .CONST 0x0133,0x0001 0284 ; -------------------------------------------------------------------------------------- 0284 ; Debug3 Subtable 0xc 0284 ; -------------------------------------------------------------------------------------- 0284 0000 0001 | | .DBG3TAB 0x0000,0x0001 0286 013b 0001 | ; | .CONST 0x013b,0x0001 0288 ; -------------------------------------------------------------------------------------- 0288 ; Debug3 Subtable 0xd 0288 ; -------------------------------------------------------------------------------------- 0288 0000 0001 | | .DBG3TAB 0x0000,0x0001 028a 0143 0001 | C | .CONST 0x0143,0x0001 028c ; -------------------------------------------------------------------------------------- 028c ; Debug3 Subtable 0xe 028c ; -------------------------------------------------------------------------------------- 028c 0000 0001 | | .DBG3TAB 0x0000,0x0001 028e 014b 0001 | K | .CONST 0x014b,0x0001 0290 ; -------------------------------------------------------------------------------------- 0290 ; Debug3 Subtable 0xf 0290 ; -------------------------------------------------------------------------------------- 0290 0000 0000 | | .DBG3TAB 0x0000,0x0000 0292 0000 0000 | | .BLANK 0000[0x16e]