|
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_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 00c8 | | .CONST 0x00c8 ; 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 001c | | .CONST 0x001c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x00fa,0x8000,0x0000,0x0059,0x8a45,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd 0011 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc 0013 00bf | | Action Accept_Activation 0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1 = .DEBUG 0x0014,0x0104,0x8000,0x0000,0x0059,0x8f65,0x0000,0x0011 ; Debug Table 0x1.0x0 = 0x14,0xffff ; Debug Table 0x1.0x1 = 0x14,0xfffe 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x2 = 0x16,0xfffd 0017 00c7 | | Action Elaborate_Subprogram 0018 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x3 = 0x18,0xfffc 0019 00c7 | | Action Elaborate_Subprogram 001a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x4 = 0x1a,0xfffb 001b 00c7 | | Action Elaborate_Subprogram 001c BODY_0008: 001c 00bc | | Action Signal_Activated 001d 00bb | | Action Signal_Completion 001e 0000 0000 | | .XXX[0x2] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x0023,0x0110,0x0001,0x0000,0x0059,0x8a45,0x0000,0x0006 ; Debug Table 0x2.0x0 = 0x23,0x1 0024 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0025 0092 00b4 | | Action Push_String_Extended,0xb4 ; "Line Number " 0027 e5ff | | Load 0x2,-0x1 0028 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4 0029 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 002a 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 002b e001 | | Load 0x0,0x1 002c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 002d 00e0 | | Load_Encached Standard_Cache 002e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 002f 01cc | | Execute Vector,Catenate 0030 e002 | | Load 0x0,0x2 0031 180f | | Execute Package,Field_Execute,Field_Number 0xf 0032 00d1 | | Pop_Control Pop_Count_1 0033 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x1 = 0x33,0x2 0034 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0035 0092 00b5 | | Action Push_String_Extended,0xb5 ; ", Column Number " 0037 e5ff | | Load 0x2,-0x1 0038 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4 0039 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 003a 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 003b e001 | | Load 0x0,0x1 003c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 003d 00e0 | | Load_Encached Standard_Cache 003e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 003f 01cc | | Execute Vector,Catenate 0040 e002 | | Load 0x0,0x2 0041 180f | | Execute Package,Field_Execute,Field_Number 0xf 0042 00d1 | | Pop_Control Pop_Count_1 0043 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x2 = 0x43,0x3 0044 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0045 e002 | | Load 0x0,0x2 0046 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0047 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x004b,0x0118,0x0001,0x0000,0x0059,0x8a45,0x0000,0x0010 ; Debug Table 0x3.0x0 = 0x4b,0x1 004c 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 004d 4800 |H | Short_Literal 0x0 004e 4800 |H | Short_Literal 0x0 004f 4800 |H | Short_Literal 0x0 0050 e003 | | Load 0x0,0x3 0051 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0052 e003 | | Load 0x0,0x3 0053 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0054 e002 | | Load 0x0,0x2 0055 180f | | Execute Package,Field_Execute,Field_Number 0xf 0056 00d1 | | Pop_Control Pop_Count_1 0057 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x1 = 0x57,0x2 0058 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0059 e002 | | Load 0x0,0x2 005a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 005b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 005c 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x0063,0x011e,0x0001,0x0000,0x0059,0x8a45,0x0000,0x001a ; Debug Table 0x4.0x0 = 0x63,0x1 0064 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0065 e004 | | Load 0x0,0x4 0066 180d | | Execute Package,Field_Execute,Field_Number 0xd 0067 e002 | | Load 0x0,0x2 0068 180f | | Execute Package,Field_Execute,Field_Number 0xf 0069 00d1 | | Pop_Control Pop_Count_1 006a 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x1 = 0x6a,0x2 006b 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 006c e002 | | Load 0x0,0x2 006d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 006e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 006f 0000 | | .XXX[0x1] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0099 | | .CONST 0x0099 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0005 | | .CONST 0x0005 ; Number of locals 0073 INIT_0070: 0073 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x0073,0x0124,0x0001,0x0000,0x0059,0x8a45,0x0000,0x0024 ; Debug Table 0x5.0x0 = 0x73,0xffff 0074 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4 0075 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0076 e001 | | Load 0x0,0x1 0077 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0078 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x1 = 0x78,0xfffe 0079 01dd | | Execute Vector,First 007a 00e3 | | Load_Encached Natural_Cache 007b 025b | [ | Execute Discrete,Check_In_Type 007c 00e3 | | Load_Encached Natural_Cache 007d 03f1 | | Declare_Variable Discrete,With_Value 007e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x2 = 0x7e,0xfffd 007f 01dc | | Execute Vector,Last 0080 00e3 | | Load_Encached Natural_Cache 0081 025b | [ | Execute Discrete,Check_In_Type 0082 00e3 | | Load_Encached Natural_Cache 0083 03f1 | | Declare_Variable Discrete,With_Value 0084 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x3 = 0x84,0xfffc 0085 00d9 | | Load_Top At_Offset_1 0086 00e9 | | Load_Encached String_Cache 0087 035b | [ | Declare_Type Array,Constrained 0088 0337 | 7 | Declare_Variable Array 0089 00da | | Load_Top At_Offset_2 008a 00da | | Load_Top At_Offset_2 008b 00e9 | | Load_Encached String_Cache 008c 035b | [ | Declare_Type Array,Constrained 008d 0337 | 7 | Declare_Variable Array 008e 00d8 | | Load_Top At_Offset_0 008f 01d9 | | Execute Vector,Reverse_Bounds 0090 0263 | c | Execute Discrete,Above_Bound 0091 7005 |p | Jump_Nonzero 0x97 0092 4820 |H | Short_Literal 0x20 0093 00d9 | | Load_Top At_Offset_1 0094 e406 | | Load 0x2,0x6 0095 01d6 | | Execute Vector,Field_Write 0096 3ffb |? | Loop_Increasing 0x92 0097 00d9 | | Load_Top At_Offset_1 0098 01d4 | | Execute Vector,Structure_Write 0099 BODY_0070: 0099 00cf | | Action Mark_Auxiliary 009a 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x4 = 0x9a,0x1 009b e403 | | Load 0x2,0x3 009c 0263 | c | Execute Discrete,Above_Bound 009d 700a |p | Jump_Nonzero 0xa8 009e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x5 = 0x9e,0x2 009f e402 | | Load 0x2,0x2 00a0 01d7 | | Execute Vector,Field_Read 00a1 6804 |h | Jump_Zero 0xa6 00a2 487c |H| | Short_Literal 0x7c ; Debug Table 0x5.0x6 = 0xa2,0x3 00a3 00d9 | | Load_Top At_Offset_1 00a4 e405 | | Load 0x2,0x5 00a5 01d6 | | Execute Vector,Field_Write 00a6 00c8 | | Action Pop_Auxiliary_Range 00a7 3ff6 |? | Loop_Increasing 0x9e 00a8 00ce | | Action Pop_Auxiliary 00a9 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x7 = 0xa9,0x4 00aa 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 00ab 00d9 | | Load_Top At_Offset_1 00ac e002 | | Load 0x0,0x2 00ad 180f | | Execute Package,Field_Execute,Field_Number 0xf 00ae 00d1 | | Pop_Control Pop_Count_1 00af e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x8 = 0xaf,0x5 00b0 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 00b1 e002 | | Load 0x0,0x2 00b2 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b4 ; -------------------------------------------------------------------------------------- 00b4 ; STRING TABLE 00b4 ; -------------------------------------------------------------------------------------- 00b4 0006 | | .STRTAB 0x0006->0x00b7 ; "Line Number " 00b5 0010 | | .STRTAB 0x0010->0x00bd ; ", Column Number " 00b6 001e | | .STREND 0x001e->0x00c5 00b7 4c69 6e65 |Line| .STRTAB_STRINGS 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; Debug Table 00c8 ; -------------------------------------------------------------------------------------- 00c8 0003 0006 | | .CONST 0x0003,0x0006 00ca 000b 00fa | | .DEBUG 0x000b,0x00fa,0x8000,0x0000,0x0059,0x8a45,0x0000,0x0005 00d2 0014 0104 | | .DEBUG 0x0014,0x0104,0x8000,0x0000,0x0059,0x8f65,0x0000,0x0011 00da 0023 0110 | # | .DEBUG 0x0023,0x0110,0x0001,0x0000,0x0059,0x8a45,0x0000,0x0006 00e2 004b 0118 | K | .DEBUG 0x004b,0x0118,0x0001,0x0000,0x0059,0x8a45,0x0000,0x0010 00ea 0063 011e | c | .DEBUG 0x0063,0x011e,0x0001,0x0000,0x0059,0x8a45,0x0000,0x001a 00f2 0073 0124 | s $| .DEBUG 0x0073,0x0124,0x0001,0x0000,0x0059,0x8a45,0x0000,0x0024 00fa ; -------------------------------------------------------------------------------------- 00fa ; Debug3 Subtable 0x0 00fa ; -------------------------------------------------------------------------------------- 00fa 0004 0000 | | .DBG3TAB 0x0004,0x0000 00fc 000b ffff | | .CONST 0x000b,0xffff 00fe 000d fffe | | .CONST 0x000d,0xfffe 0100 000f fffd | | .CONST 0x000f,0xfffd 0102 0011 fffc | | .CONST 0x0011,0xfffc 0104 ; -------------------------------------------------------------------------------------- 0104 ; Debug3 Subtable 0x1 0104 ; -------------------------------------------------------------------------------------- 0104 0005 0000 | | .DBG3TAB 0x0005,0x0000 0106 0014 ffff | | .CONST 0x0014,0xffff 0108 0014 fffe | | .CONST 0x0014,0xfffe 010a 0016 fffd | | .CONST 0x0016,0xfffd 010c 0018 fffc | | .CONST 0x0018,0xfffc 010e 001a fffb | | .CONST 0x001a,0xfffb 0110 ; -------------------------------------------------------------------------------------- 0110 ; Debug3 Subtable 0x2 0110 ; -------------------------------------------------------------------------------------- 0110 0000 0003 | | .DBG3TAB 0x0000,0x0003 0112 0023 0001 | # | .CONST 0x0023,0x0001 0114 0033 0002 | 3 | .CONST 0x0033,0x0002 0116 0043 0003 | C | .CONST 0x0043,0x0003 0118 ; -------------------------------------------------------------------------------------- 0118 ; Debug3 Subtable 0x3 0118 ; -------------------------------------------------------------------------------------- 0118 0000 0002 | | .DBG3TAB 0x0000,0x0002 011a 004b 0001 | K | .CONST 0x004b,0x0001 011c 0057 0002 | W | .CONST 0x0057,0x0002 011e ; -------------------------------------------------------------------------------------- 011e ; Debug3 Subtable 0x4 011e ; -------------------------------------------------------------------------------------- 011e 0000 0002 | | .DBG3TAB 0x0000,0x0002 0120 0063 0001 | c | .CONST 0x0063,0x0001 0122 006a 0002 | j | .CONST 0x006a,0x0002 0124 ; -------------------------------------------------------------------------------------- 0124 ; Debug3 Subtable 0x5 0124 ; -------------------------------------------------------------------------------------- 0124 0004 0005 | | .DBG3TAB 0x0004,0x0005 0126 0073 ffff | s | .CONST 0x0073,0xffff 0128 0078 fffe | x | .CONST 0x0078,0xfffe 012a 007e fffd | ~ | .CONST 0x007e,0xfffd 012c 0084 fffc | | .CONST 0x0084,0xfffc 012e 009a 0001 | | .CONST 0x009a,0x0001 0130 009e 0002 | | .CONST 0x009e,0x0002 0132 00a2 0003 | | .CONST 0x00a2,0x0003 0134 00a9 0004 | | .CONST 0x00a9,0x0004 0136 00af 0005 | | .CONST 0x00af,0x0005 0138 0000 0000 | | .BLANK 0000[0xc8]