|
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: 1024 (0x400)
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 0100 | | .CONST 0x0100 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x013a,0x8000,0x0000,0x002c,0xbd04,0x0000,0x000b 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 002f | / | .CONST 0x002f ; Address of begin 0019 003e | > | .CONST 0x003e ; Address of exception handler 001a 000b | | .CONST 0x000b ; Number of locals 001b INIT_0018: 001b 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x1 = .DEBUG 0x001b,0x013c,0x8001,0x0000,0x002c,0xbd04,0x0000,0x000b ; Debug Table 0x1.0x0 = 0x1b,0xffff 001c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x1 = 0x1c,0xfffe 001d 02a0 | | Declare_Subprogram Null_Subprogram 001e 03ad | | Declare_Type Heap_Access,Defined 001f 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x1f,0xfffd 0020 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x1.0x3 = 0x20,0xfffc 0021 00da | | Load_Top At_Offset_2 ; Debug Table 0x1.0x4 = 0x21,0xfffb 0022 0664 | d | Execute_Immediate Set_Value_Unchecked,0x64 0023 00da | | Load_Top At_Offset_2 ; Debug Table 0x1.0x5 = 0x23,0xfffa 0024 0007 | | Action Break_Optional 0025 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call ; Debug Table 0x1.0x6 = 0x25,0xfff9 0027 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call ; Debug Table 0x1.0x7 = 0x27,0xfff8 0029 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call ; Debug Table 0x1.0x8 = 0x29,0xfff7 002b 029f 0083 | | Declare_Subprogram INIT_0080,For_Call ; Debug Table 0x1.0x9 = 0x2b,0xfff6 002d 029f 0093 | | Declare_Subprogram INIT_0090,For_Call ; Debug Table 0x1.0xa = 0x2d,0xfff5 002f BODY_0018: 002f 0092 009d | | Action Push_String_Extended,0x9d ; "Test of Temporary Heap Package" ; Debug Table 0x1.0xb = 0x2f,0x1 0031 0092 009e | | Action Push_String_Extended,0x9e ; "Temp_Heap" 0033 e001 | | Load 0x0,0x1 0034 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0035 8407 | | Call 0x2,0x7 ; Debug Table 0x1.0xc = 0x35,0x2 0036 8409 | | Call 0x2,0x9 ; Debug Table 0x1.0xd = 0x36,0x3 0037 840b | | Call 0x2,0xb ; Debug Table 0x1.0xe = 0x37,0x4 0038 840a | | Call 0x2,0xa ; Debug Table 0x1.0xf = 0x38,0x5 0039 840b | | Call 0x2,0xb ; Debug Table 0x1.0x10 = 0x39,0x6 003a 8408 | | Call 0x2,0x8 ; Debug Table 0x1.0x11 = 0x3a,0x7 003b e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x12 = 0x3b,0x8 003c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 003d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 003e TRAP_0018: 003e 0007 | | Action Break_Optional 003f 0092 009f | | Action Push_String_Extended,0x9f ; "Unhandled Exception: " ; Debug Table 0x1.0x13 = 0x3f,0x9 0041 e002 | | Load 0x0,0x2 0042 180d | | Execute Package,Field_Execute,Field_Number 0xd 0043 01cc | | Execute Vector,Catenate 0044 e001 | | Load 0x0,0x1 0045 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0046 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x14 = 0x46,0xa 0047 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0048 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0049 0000 0000 | | .BLANK 0000[0x7] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 0092 00a0 | | Action Push_String_Extended,0xa0 ; " Creating the Temporary Heap" ; Debug Table 0x2 = .DEBUG 0x0053,0x0168,0x0001,0x0000,0x002c,0xbd04,0x0000,0x0030 ; Debug Table 0x2.0x0 = 0x53,0x1 0055 e001 | | Load 0x0,0x1 0056 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0057 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x2.0x1 = 0x57,0x2 0058 48e0 |H | Short_Literal 0xe0 0059 e003 | | Load 0x0,0x3 005a 180d | | Execute Package,Field_Execute,Field_Number 0xd 005b c404 | | Store 0x2,0x4 005c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 005d 0000 0000 | | .XXX[0x3] 005f 0000 | | 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 0092 00a1 | | Action Push_String_Extended,0xa1 ; " Destroying the Temporary Heap" ; Debug Table 0x3 = .DEBUG 0x0063,0x016e,0x0001,0x0000,0x002c,0xbd04,0x0000,0x0045 ; Debug Table 0x3.0x0 = 0x63,0x1 0065 e001 | | Load 0x0,0x1 0066 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0067 e404 | | Load 0x2,0x4 ; Debug Table 0x3.0x1 = 0x67,0x2 0068 e003 | | Load 0x0,0x3 0069 180f | | Execute Package,Field_Execute,Field_Number 0xf 006a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 006b 0000 0000 | | .BLANK 0000[0x5] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 0092 00a2 | | Action Push_String_Extended,0xa2 ; " Allocating a node" ; Debug Table 0x4 = .DEBUG 0x0073,0x0174,0x0001,0x0000,0x002c,0xbd04,0x0000,0x0059 ; Debug Table 0x4.0x0 = 0x73,0x1 0075 e001 | | Load 0x0,0x1 0076 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0077 e405 | | Load 0x2,0x5 ; Debug Table 0x4.0x1 = 0x77,0x2 0078 e403 | | Load 0x2,0x3 0079 e404 | | Load 0x2,0x4 007a 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 007b a406 | | Store_Unchecked 0x2,0x6 007c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x4.0x2 = 0x7c,0x3 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 e405 | | Load 0x2,0x5 ; Debug Table 0x5 = .DEBUG 0x0083,0x017c,0x0001,0x0000,0x002c,0xbd04,0x0000,0x0071 ; Debug Table 0x5.0x0 = 0x83,0x1 0084 0a01 | | Execute_Immediate Plus,0x1 0085 0248 | H | Execute Discrete,Check_In_Integer 0086 a405 | | Store_Unchecked 0x2,0x5 0087 e405 | | Load 0x2,0x5 ; Debug Table 0x5.0x1 = 0x87,0x2 0088 e406 | | Load 0x2,0x6 0089 0218 | | Execute Heap_Access,All_Write 008a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 008b 0000 0000 | | .BLANK 0000[0x5] 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 e406 | | Load 0x2,0x6 ; Debug Table 0x6 = .DEBUG 0x0093,0x0182,0x0001,0x0000,0x002c,0xbd04,0x0000,0x0084 ; Debug Table 0x6.0x0 = 0x93,0x1 0094 0219 | | Execute Heap_Access,All_Read 0095 e405 | | Load 0x2,0x5 0096 027e | ~ | Execute Discrete,Not_Equal 0097 6804 |h | Jump_Zero 0x9c 0098 0092 00a3 | | Action Push_String_Extended,0xa3 ; " value in heap is incorrect" ; Debug Table 0x6.0x1 = 0x98,0x2 009a e001 | | Load 0x0,0x1 009b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 009c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 009d ; -------------------------------------------------------------------------------------- 009d ; STRING TABLE 009d ; -------------------------------------------------------------------------------------- 009d 0010 | | .STRTAB 0x0010->0x00a5 ; "Test of Temporary Heap Package" 009e 002c | , | .STRTAB 0x002c->0x00b4 ; "Temp_Heap" 009f 0033 | 3 | .STRTAB 0x0033->0x00b8 ; "Unhandled Exception: " 00a0 0046 | F | .STRTAB 0x0046->0x00c3 ; " Creating the Temporary Heap" 00a1 0062 | b | .STRTAB 0x0062->0x00d2 ; " Destroying the Temporary Heap" 00a2 0080 | | .STRTAB 0x0080->0x00e2 ; " Allocating a node" 00a3 0092 | | .STRTAB 0x0092->0x00ec ; " value in heap is incorrect" 00a4 00ae | | .STREND 0x00ae->0x00fb 00a5 5465 7374 |Test| .STRTAB_STRINGS 00fb 0000 0000 | | .BLANK 0000[0x5] 0100 ; -------------------------------------------------------------------------------------- 0100 ; Debug Table 0100 ; -------------------------------------------------------------------------------------- 0100 0003 0007 | | .CONST 0x0003,0x0007 0102 000b 013a | :| .DEBUG 0x000b,0x013a,0x8000,0x0000,0x002c,0xbd04,0x0000,0x000b 010a 001b 013c | <| .DEBUG 0x001b,0x013c,0x8001,0x0000,0x002c,0xbd04,0x0000,0x000b 0112 0053 0168 | S h| .DEBUG 0x0053,0x0168,0x0001,0x0000,0x002c,0xbd04,0x0000,0x0030 011a 0063 016e | c n| .DEBUG 0x0063,0x016e,0x0001,0x0000,0x002c,0xbd04,0x0000,0x0045 0122 0073 0174 | s t| .DEBUG 0x0073,0x0174,0x0001,0x0000,0x002c,0xbd04,0x0000,0x0059 012a 0083 017c | || .DEBUG 0x0083,0x017c,0x0001,0x0000,0x002c,0xbd04,0x0000,0x0071 0132 0093 0182 | | .DEBUG 0x0093,0x0182,0x0001,0x0000,0x002c,0xbd04,0x0000,0x0084 013a ; -------------------------------------------------------------------------------------- 013a ; Debug3 Subtable 0x0 013a ; -------------------------------------------------------------------------------------- 013a 0000 0000 | | .DBG3TAB 0x0000,0x0000 013c ; -------------------------------------------------------------------------------------- 013c ; Debug3 Subtable 0x1 013c ; -------------------------------------------------------------------------------------- 013c 000b 000a | | .DBG3TAB 0x000b,0x000a 013e 001b ffff | | .CONST 0x001b,0xffff 0140 001c fffe | | .CONST 0x001c,0xfffe 0142 001f fffd | | .CONST 0x001f,0xfffd 0144 0020 fffc | | .CONST 0x0020,0xfffc 0146 0021 fffb | ! | .CONST 0x0021,0xfffb 0148 0023 fffa | # | .CONST 0x0023,0xfffa 014a 0025 fff9 | % | .CONST 0x0025,0xfff9 014c 0027 fff8 | ' | .CONST 0x0027,0xfff8 014e 0029 fff7 | ) | .CONST 0x0029,0xfff7 0150 002b fff6 | + | .CONST 0x002b,0xfff6 0152 002d fff5 | - | .CONST 0x002d,0xfff5 0154 002f 0001 | / | .CONST 0x002f,0x0001 0156 0035 0002 | 5 | .CONST 0x0035,0x0002 0158 0036 0003 | 6 | .CONST 0x0036,0x0003 015a 0037 0004 | 7 | .CONST 0x0037,0x0004 015c 0038 0005 | 8 | .CONST 0x0038,0x0005 015e 0039 0006 | 9 | .CONST 0x0039,0x0006 0160 003a 0007 | : | .CONST 0x003a,0x0007 0162 003b 0008 | ; | .CONST 0x003b,0x0008 0164 003f 0009 | ? | .CONST 0x003f,0x0009 0166 0046 000a | F | .CONST 0x0046,0x000a 0168 ; -------------------------------------------------------------------------------------- 0168 ; Debug3 Subtable 0x2 0168 ; -------------------------------------------------------------------------------------- 0168 0000 0002 | | .DBG3TAB 0x0000,0x0002 016a 0053 0001 | S | .CONST 0x0053,0x0001 016c 0057 0002 | W | .CONST 0x0057,0x0002 016e ; -------------------------------------------------------------------------------------- 016e ; Debug3 Subtable 0x3 016e ; -------------------------------------------------------------------------------------- 016e 0000 0002 | | .DBG3TAB 0x0000,0x0002 0170 0063 0001 | c | .CONST 0x0063,0x0001 0172 0067 0002 | g | .CONST 0x0067,0x0002 0174 ; -------------------------------------------------------------------------------------- 0174 ; Debug3 Subtable 0x4 0174 ; -------------------------------------------------------------------------------------- 0174 0000 0003 | | .DBG3TAB 0x0000,0x0003 0176 0073 0001 | s | .CONST 0x0073,0x0001 0178 0077 0002 | w | .CONST 0x0077,0x0002 017a 007c 0003 | | | .CONST 0x007c,0x0003 017c ; -------------------------------------------------------------------------------------- 017c ; Debug3 Subtable 0x5 017c ; -------------------------------------------------------------------------------------- 017c 0000 0002 | | .DBG3TAB 0x0000,0x0002 017e 0083 0001 | | .CONST 0x0083,0x0001 0180 0087 0002 | | .CONST 0x0087,0x0002 0182 ; -------------------------------------------------------------------------------------- 0182 ; Debug3 Subtable 0x6 0182 ; -------------------------------------------------------------------------------------- 0182 0000 0002 | | .DBG3TAB 0x0000,0x0002 0184 0093 0001 | | .CONST 0x0093,0x0001 0186 0098 0002 | | .CONST 0x0098,0x0002 0188 0000 0000 | | .BLANK 0000[0x78]