|
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, 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 0128 | ( | .CONST 0x0128 ; 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 0034 | 4 | .CONST 0x0034 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x015a,0x8000,0x0000,0x0055,0xe7a5,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000e 00ec | | Load_Encached Diana_Tree_Cache
000f 02a0 | | Declare_Subprogram Null_Subprogram
0010 4802 |H | Short_Literal 0x2
0011 032e | . | Declare_Type Record,Defined,Visible
0012 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x3 = 0x12,0xfffc
0013 02a0 | | Declare_Subprogram Null_Subprogram
0014 03ae | | Declare_Type Heap_Access,Defined,Visible
0015 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x15,0xfffb
; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 00bf | | Action Accept_Activation
001a 0092 00dc | | Action Push_String_Extended,0xdc ; "Object is not located within any directory"
; Debug Table 0x1 = .DEBUG 0x001a,0x016a,0x8000,0x0000,0x0057,0x7e85,0x0000,0x000b
; Debug Table 0x1.0x0 = 0x1a,0xffff
; Debug Table 0x1.0x1 = 0x1a,0xfffe
; Debug Table 0x1.0x2 = 0x1a,0xfffd
; Debug Table 0x1.0x3 = 0x1a,0xfffc
001c 0092 00dd | | Action Push_String_Extended,0xdd ; "Handle doesn't refer to a 'Version'"
; Debug Table 0x1.0x4 = 0x1c,0xfffb
001e 0092 00de | | Action Push_String_Extended,0xde ; "Attempted use of a nil handle"
; Debug Table 0x1.0x5 = 0x1e,0xfffa
0020 029d 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call ; Debug Table 0x1.0x6 = 0x20,0xfff9
0022 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call ; Debug Table 0x1.0x7 = 0x22,0xfff8
0024 60b3 |` | Indirect_Literal Discrete,0xd8,{0x00000000, 0x00577e85} ; Debug Table 0x1.0x8 = 0x24,0xfff7
0025 4852 |HR | Short_Literal 0x52
0026 e20e | | Load 0x1,0xe
0027 e20e | | Load 0x1,0xe
0028 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0029 1d15 | | Execute_Immediate Reference_Lex_1,0x15
002a 0092 00df | | Action Push_String_Extended,0xdf ; "Directory_Tools_Context"
002c e002 | | Load 0x0,0x2
002d 0387 | | Declare_Variable Package
002e 00d8 | | Load_Top At_Offset_0
002f 020f | | Execute Module,Activate
0030 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x9 = 0x30,0xfff6
0031 00c7 | | Action Elaborate_Subprogram
0032 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0xa = 0x32,0xfff5
0033 00c7 | | Action Elaborate_Subprogram
0034 BODY_0008:
0034 00bc | | Action Signal_Activated
0035 00bb | | Action Signal_Completion
0036 0000 0000 | | .XXX[0x2]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b e003 | | Load 0x0,0x3 ; Debug Table 0x2 = .DEBUG 0x003b,0x0182,0x0002,0x0000,0x0055,0xe7a5,0x0000,0x0030
; Debug Table 0x2.0x0 = 0x3b,0x1
003c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
003d e216 | | Load 0x1,0x16
003e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
003f 00ca | | Action Exit_Nullary_Function
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0050 | P | .CONST 0x0050 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0005 | | .CONST 0x0005 ; Number of locals
0043 INIT_0040:
0043 e004 | | Load 0x0,0x4 ; Debug Table 0x3 = .DEBUG 0x0043,0x0186,0x0002,0x0000,0x0055,0xe7a5,0x0000,0x0035
; Debug Table 0x3.0x0 = 0x43,0xffff
0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0045 e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x1 = 0x45,0xfffe
0046 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0047 02ff | | Declare_Variable Variant_Record
0048 00d8 | | Load_Top At_Offset_0
0049 1c00 | | Execute_Immediate Run_Utility,0x0
004a e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x2 = 0x4a,0xfffd
004b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
004c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
004d e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x3 = 0x4d,0xfffc
004e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004f 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0050 BODY_0040:
0050 820f | | Call 0x1,0xf ; Debug Table 0x3.0x4 = 0x50,0x1
0051 0217 | | Execute Heap_Access,All_Reference
0052 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0053 e5ff | | Load 0x2,-0x1
0054 021f | | Execute Heap_Access,Equal
0055 6804 |h | Jump_Zero 0x5a
0056 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x5 = 0x56,0x2
0057 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0058 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
0059 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005a e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x6 = 0x5a,0x3
005b e001 | | Load 0x0,0x1
005c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005d 180f | | Execute Package,Field_Execute,Field_Number 0xf
005e 704c |pL | Jump_Nonzero 0xab
005f e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x7 = 0x5f,0x4
0060 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0061 00db | | Load_Top At_Offset_3
0062 6071 |`q | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00004000}
0063 e005 | | Load 0x0,0x5
0064 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0065 e5ff | | Load 0x2,-0x1
0066 e001 | | Load 0x0,0x1
0067 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0068 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0069 1811 | | Execute Package,Field_Execute,Field_Number 0x11
006a 00d1 | | Pop_Control Pop_Count_1
006b c402 | | Store 0x2,0x2
006c 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x8 = 0x6c,0x5
006d 680f |h | Jump_Zero 0x7d
006e e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x9 = 0x6e,0x6
006f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0070 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0071 e001 | | Load 0x0,0x1
0072 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0073 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0074 e001 | | Load 0x0,0x1
0075 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0076 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0077 e212 | | Load 0x1,0x12
0078 480b |H | Short_Literal 0xb
0079 e001 | | Load 0x0,0x1
007a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007b 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
007c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007d e004 | | Load 0x0,0x4 ; Debug Table 0x3.0xa = 0x7d,0x7
007e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007f e004 | | Load 0x0,0x4
0080 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0081 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0082 6051 |`Q | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00004000}
0083 e5ff | | Load 0x2,-0x1
0084 e001 | | Load 0x0,0x1
0085 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0086 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0087 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0088 e403 | | Load 0x2,0x3
0089 e004 | | Load 0x0,0x4
008a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
008b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
008c 0033 | 3 | Store_Top Heap_Access,At_Offset_3
008d c402 | | Store 0x2,0x2
008e 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0xb = 0x8e,0x8
008f 680f |h | Jump_Zero 0x9f
0090 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0xc = 0x90,0x9
0091 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0092 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0093 e001 | | Load 0x0,0x1
0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0095 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0096 e001 | | Load 0x0,0x1
0097 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0098 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0099 e211 | | Load 0x1,0x11
009a 480b |H | Short_Literal 0xb
009b e001 | | Load 0x0,0x1
009c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009d 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
009e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009f e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0xd = 0x9f,0xa
00a0 820f | | Call 0x1,0xf
00a1 0217 | | Execute Heap_Access,All_Reference
00a2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00a3 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xe = 0xa3,0xb
00a4 820f | | Call 0x1,0xf
00a5 0217 | | Execute Heap_Access,All_Reference
00a6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a7 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0xf = 0xa7,0xc
00a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a9 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
00aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ab e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x10 = 0xab,0xd
00ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ad 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00ae e001 | | Load 0x0,0x1
00af 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b0 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00b1 e001 | | Load 0x0,0x1
00b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b3 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
00b4 e213 | | Load 0x1,0x13
00b5 480b |H | Short_Literal 0xb
00b6 e001 | | Load 0x0,0x1
00b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b8 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
00b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ba 0000 0000 | | .BLANK 0000[0x6]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 e20e | | Load 0x1,0xe ; Debug Table 0x4 = .DEBUG 0x00c3,0x01aa,0x0001,0x0000,0x0057,0x7e85,0x0000,0x002e
; Debug Table 0x4.0x0 = 0xc3,0x1
00c4 e003 | | Load 0x0,0x3
00c5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c6 e006 | | Load 0x0,0x6
00c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c8 039c | | Declare_Variable Heap_Access,By_Allocation
00c9 0033 | 3 | Store_Top Heap_Access,At_Offset_3
00ca 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x4.0x1 = 0xca,0x2
00cb 0000 0000 | | .BLANK 0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x5 = .DEBUG 0x00d3,0x01b0,0x0001,0x0000,0x0057,0x7e85,0x0000,0x0045
; Debug Table 0x5.0x0 = 0xd3,0x1
00d4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00d8 0000 0000 | | .LITERAL {0x00000000, 0x00577e85}
00dc ; --------------------------------------------------------------------------------------
00dc ; STRING TABLE
00dc ; --------------------------------------------------------------------------------------
00dc 000a | | .STRTAB 0x000a->0x00e1 ; "Object is not located within any directory"
00dd 0032 | 2 | .STRTAB 0x0032->0x00f6 ; "Handle doesn't refer to a 'Version'"
00de 0053 | S | .STRTAB 0x0053->0x0107 ; "Attempted use of a nil handle"
00df 006e | n | .STRTAB 0x006e->0x0116 ; "Directory_Tools_Context"
00e0 0083 | | .STREND 0x0083->0x0121
00e1 4f62 6a65 |Obje| .STRTAB_STRINGS
0122 0000 0000 | | .BLANK 0000[0x6]
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug Table
0128 ; --------------------------------------------------------------------------------------
0128 0003 0006 | | .CONST 0x0003,0x0006
012a 000b 015a | Z| .DEBUG 0x000b,0x015a,0x8000,0x0000,0x0055,0xe7a5,0x0000,0x0007
0132 001a 016a | j| .DEBUG 0x001a,0x016a,0x8000,0x0000,0x0057,0x7e85,0x0000,0x000b
013a 003b 0182 | ; | .DEBUG 0x003b,0x0182,0x0002,0x0000,0x0055,0xe7a5,0x0000,0x0030
0142 0043 0186 | C | .DEBUG 0x0043,0x0186,0x0002,0x0000,0x0055,0xe7a5,0x0000,0x0035
014a 00c3 01aa | | .DEBUG 0x00c3,0x01aa,0x0001,0x0000,0x0057,0x7e85,0x0000,0x002e
0152 00d3 01b0 | | .DEBUG 0x00d3,0x01b0,0x0001,0x0000,0x0057,0x7e85,0x0000,0x0045
015a ; --------------------------------------------------------------------------------------
015a ; Debug3 Subtable 0x0
015a ; --------------------------------------------------------------------------------------
015a 0007 0000 | | .DBG3TAB 0x0007,0x0000
015c 000b ffff | | .CONST 0x000b,0xffff
015e 000b fffe | | .CONST 0x000b,0xfffe
0160 000b fffd | | .CONST 0x000b,0xfffd
0162 0012 fffc | | .CONST 0x0012,0xfffc
0164 0015 fffb | | .CONST 0x0015,0xfffb
0166 0015 fffa | | .CONST 0x0015,0xfffa
0168 0017 fff9 | | .CONST 0x0017,0xfff9
016a ; --------------------------------------------------------------------------------------
016a ; Debug3 Subtable 0x1
016a ; --------------------------------------------------------------------------------------
016a 000b 0000 | | .DBG3TAB 0x000b,0x0000
016c 001a ffff | | .CONST 0x001a,0xffff
016e 001a fffe | | .CONST 0x001a,0xfffe
0170 001a fffd | | .CONST 0x001a,0xfffd
0172 001a fffc | | .CONST 0x001a,0xfffc
0174 001c fffb | | .CONST 0x001c,0xfffb
0176 001e fffa | | .CONST 0x001e,0xfffa
0178 0020 fff9 | | .CONST 0x0020,0xfff9
017a 0022 fff8 | " | .CONST 0x0022,0xfff8
017c 0024 fff7 | $ | .CONST 0x0024,0xfff7
017e 0030 fff6 | 0 | .CONST 0x0030,0xfff6
0180 0032 fff5 | 2 | .CONST 0x0032,0xfff5
0182 ; --------------------------------------------------------------------------------------
0182 ; Debug3 Subtable 0x2
0182 ; --------------------------------------------------------------------------------------
0182 0000 0001 | | .DBG3TAB 0x0000,0x0001
0184 003b 0001 | ; | .CONST 0x003b,0x0001
0186 ; --------------------------------------------------------------------------------------
0186 ; Debug3 Subtable 0x3
0186 ; --------------------------------------------------------------------------------------
0186 0004 000d | | .DBG3TAB 0x0004,0x000d
0188 0043 ffff | C | .CONST 0x0043,0xffff
018a 0045 fffe | E | .CONST 0x0045,0xfffe
018c 004a fffd | J | .CONST 0x004a,0xfffd
018e 004d fffc | M | .CONST 0x004d,0xfffc
0190 0050 0001 | P | .CONST 0x0050,0x0001
0192 0056 0002 | V | .CONST 0x0056,0x0002
0194 005a 0003 | Z | .CONST 0x005a,0x0003
0196 005f 0004 | _ | .CONST 0x005f,0x0004
0198 006c 0005 | l | .CONST 0x006c,0x0005
019a 006e 0006 | n | .CONST 0x006e,0x0006
019c 007d 0007 | } | .CONST 0x007d,0x0007
019e 008e 0008 | | .CONST 0x008e,0x0008
01a0 0090 0009 | | .CONST 0x0090,0x0009
01a2 009f 000a | | .CONST 0x009f,0x000a
01a4 00a3 000b | | .CONST 0x00a3,0x000b
01a6 00a7 000c | | .CONST 0x00a7,0x000c
01a8 00ab 000d | | .CONST 0x00ab,0x000d
01aa ; --------------------------------------------------------------------------------------
01aa ; Debug3 Subtable 0x4
01aa ; --------------------------------------------------------------------------------------
01aa 0000 0002 | | .DBG3TAB 0x0000,0x0002
01ac 00c3 0001 | | .CONST 0x00c3,0x0001
01ae 00ca 0002 | | .CONST 0x00ca,0x0002
01b0 ; --------------------------------------------------------------------------------------
01b0 ; Debug3 Subtable 0x5
01b0 ; --------------------------------------------------------------------------------------
01b0 0000 0001 | | .DBG3TAB 0x0000,0x0001
01b2 00d3 0001 | | .CONST 0x00d3,0x0001
01b4 0000 0000 | | .BLANK 0000[0x4c]