|
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 - metrics - 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 0118 | | .CONST 0x0118 ; 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 0078 | x | .CONST 0x0078 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0017 | | .CONST 0x0017 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0142,0x8000,0x0000,0x0058,0x5a25,0x0000,0x0019 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe 000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0xd,0xfffd 000e 00e9 | | Load_Encached String_Cache ; Debug Table 0x0.0x3 = 0xe,0xfffc 000f 02a0 | | Declare_Subprogram Null_Subprogram 0010 03ae | | Declare_Type Heap_Access,Defined,Visible 0011 0007 | | Action Break_Optional ; Debug Table 0x0.0x4 = 0x11,0xfffb 0012 60f1 |` | Indirect_Literal Discrete,0x104,{0x00000000, 0x00585a25} ; Debug Table 0x0.0x5 = 0x12,0xfffa 0013 4831 |H1 | Short_Literal 0x31 0014 e001 | | Load 0x0,0x1 0015 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0016 00db | | Load_Top At_Offset_3 0017 00e5 | | Load_Encached Long_Integer_Cache 0018 e001 | | Load 0x0,0x1 0019 1913 | | Execute Package,Field_Reference,Field_Number 0x13 001a e002 | | Load 0x0,0x2 001b 0386 | | Declare_Variable Package,Visible 001c 00d8 | | Load_Top At_Offset_0 001d 020f | | Execute Module,Activate 001e 60e5 |` | Indirect_Literal Discrete,0x104,{0x00000000, 0x00585a25} ; Debug Table 0x0.0x6 = 0x1e,0xfff9 001f 483e |H> | Short_Literal 0x3e 0020 e001 | | Load 0x0,0x1 0021 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0022 e003 | | Load 0x0,0x3 0023 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0024 00e5 | | Load_Encached Long_Integer_Cache 0025 e001 | | Load 0x0,0x1 0026 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0027 e002 | | Load 0x0,0x2 0028 0386 | | Declare_Variable Package,Visible 0029 00d8 | | Load_Top At_Offset_0 002a 020f | | Execute Module,Activate 002b 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x7 = 0x2b,0xfff8 002c 032b | + | Declare_Type Record,Incomplete,Visible 002d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x8 = 0x2d,0xfff7 002e 02a0 | | Declare_Subprogram Null_Subprogram 002f 03ae | | Declare_Type Heap_Access,Defined,Visible 0030 0007 | | Action Break_Optional ; Debug Table 0x0.0x9 = 0x30,0xfff6 0031 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xa = 0x31,0xfff5 0032 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0033 00d9 | | Load_Top At_Offset_1 0034 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 0036 e210 | | Load 0x1,0x10 0037 0326 | & | Complete_Type Record,By_Defining 0038 4803 |H | Short_Literal 0x3 ; Debug Table 0x0.0xb = 0x38,0xfff4 0039 032b | + | Declare_Type Record,Incomplete,Visible 003a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0xc = 0x3a,0xfff3 003b 02a0 | | Declare_Subprogram Null_Subprogram 003c 03ae | | Declare_Type Heap_Access,Defined,Visible 003d 0007 | | Action Break_Optional ; Debug Table 0x0.0xd = 0x3d,0xfff2 003e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xe = 0x3e,0xfff1 003f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0040 e004 | | Load 0x0,0x4 0041 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0042 00da | | Load_Top At_Offset_2 0043 029f 009b | | Declare_Subprogram INIT_0098,For_Call 0045 e212 | | Load 0x1,0x12 0046 0326 | & | Complete_Type Record,By_Defining 0047 60bc |` | Indirect_Literal Discrete,0x104,{0x00000000, 0x00585a25} ; Debug Table 0x0.0xf = 0x47,0xfff0 0048 488e |H | Short_Literal 0x8e 0049 e001 | | Load 0x0,0x1 004a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 004b e005 | | Load 0x0,0x5 004c 0386 | | Declare_Variable Package,Visible 004d 00d8 | | Load_Top At_Offset_0 004e 020f | | Execute Module,Activate 004f 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x10 = 0x4f,0xffef 0050 4802 |H | Short_Literal 0x2 0051 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 0053 03fe | | Declare_Type Discrete,Defined,Visible 0054 e006 | | Load 0x0,0x6 ; Debug Table 0x0.0x11 = 0x54,0xffee 0055 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0056 00f0 | | Load_Encached Segment_Cache 0057 e211 | | Load 0x1,0x11 0058 e20e | | Load 0x1,0xe 0059 1b13 | | Execute Package,Field_Read,Field_Number 0x13 005a e20f | | Load 0x1,0xf 005b 1b13 | | Execute Package,Field_Read,Field_Number 0x13 005c 00e1 | | Load_Encached Boolean_Cache 005d e007 | | Load 0x0,0x7 005e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 005f 00e1 | | Load_Encached Boolean_Cache 0060 00e1 | | Load_Encached Boolean_Cache 0061 e213 | | Load 0x1,0x13 0062 e004 | | Load 0x0,0x4 0063 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0064 e008 | | Load 0x0,0x8 0065 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0066 e215 | | Load 0x1,0x15 0067 00e1 | | Load_Encached Boolean_Cache 0068 e214 | | Load 0x1,0x14 0069 1b10 | | Execute Package,Field_Read,Field_Number 0x10 006a 00e1 | | Load_Encached Boolean_Cache 006b 00e1 | | Load_Encached Boolean_Cache 006c e009 | | Load 0x0,0x9 006d 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 006e e00a | | Load 0x0,0xa 006f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0070 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 0072 4813 |H | Short_Literal 0x13 0073 032e | . | Declare_Type Record,Defined,Visible 0074 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x12 = 0x74,0xffed 0075 02a0 | | Declare_Subprogram Null_Subprogram 0076 03ae | | Declare_Type Heap_Access,Defined,Visible 0077 00bf | | Action Accept_Activation ; Debug Table 0x0.0x13 = 0x77,0xffec 0078 BODY_0008: 0078 00bc | | Action Signal_Activated 0079 00bb | | Action Signal_Completion 007a 0000 0000 | | .BLANK 0000[0x6] 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 4608 |F | Jump_Case 0x9 ; Debug Table 0x1 = .DEBUG 0x0083,0x016c,0x0005,0x0000,0x0058,0x5a25,0x0000,0x005a 0084 7808 |x | Jump 0x8d ; case 0x0 0085 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0086 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0087 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0088 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0089 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 008a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 008b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 008d 00da | | Load_Top At_Offset_2 008e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 008f 0125 | % | Execute Any,Set_Constraint 0090 00da | | Load_Top At_Offset_2 0091 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0092 1c00 | | Execute_Immediate Run_Utility,0x0 0093 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0094 0000 0000 | | .BLANK 0000[0x4] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 4608 |F | Jump_Case 0x9 ; Debug Table 0x2 = .DEBUG 0x009b,0x016e,0x0005,0x0000,0x0058,0x5a25,0x0000,0x0077 009c 7808 |x | Jump 0xa5 ; case 0x0 009d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 009e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 009f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 00a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 00a1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 00a2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 00a3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 00a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 00a5 00da | | Load_Top At_Offset_2 00a6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00a7 0125 | % | Execute Any,Set_Constraint 00a8 00da | | Load_Top At_Offset_2 00a9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00aa 1c00 | | Execute_Immediate Run_Utility,0x0 00ab 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00ac 0000 0000 | | .BLANK 0000[0x4] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x00b3,0x0170,0x0005,0x0000,0x0058,0x5a25,0x0000,0x0096 00b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00b5 7802 |x | Jump 0xb8 ; case 0x1 00b6 7805 |x | Jump 0xbc ; case 0x2 00b7 7809 |x | Jump 0xc1 ; case 0x3 00b8 00da | | Load_Top At_Offset_2 00b9 0091 0108 | | Action Push_String_Extended_Indexed,0x108 ; "NONE" 00bb 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00bc 00db | | Load_Top At_Offset_3 00bd 00db | | Load_Top At_Offset_3 00be 00e0 | | Load_Encached Standard_Cache 00bf 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00c0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00c1 00da | | Load_Top At_Offset_2 00c2 00e0 | | Load_Encached Standard_Cache 00c3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00c4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 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 4608 |F | Jump_Case 0x9 ; Debug Table 0x4 = .DEBUG 0x00cb,0x0172,0x0005,0x0000,0x0058,0x5a25,0x0000,0x009d 00cc 7808 |x | Jump 0xd5 ; case 0x0 00cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 00ce 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 00cf 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 00d0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 00d1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 00d2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 00d3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 00d5 00da | | Load_Top At_Offset_2 00d6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00d7 0125 | % | Execute Any,Set_Constraint 00d8 00da | | Load_Top At_Offset_2 00d9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00da 1c00 | | Execute_Immediate Run_Utility,0x0 00db 4800 |H | Short_Literal 0x0 00dc 00db | | Load_Top At_Offset_3 00dd 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 00de 4800 |H | Short_Literal 0x0 00df 00db | | Load_Top At_Offset_3 00e0 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 00e1 4800 |H | Short_Literal 0x0 00e2 00db | | Load_Top At_Offset_3 00e3 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 00e4 4803 |H | Short_Literal 0x3 00e5 00db | | Load_Top At_Offset_3 00e6 380a |8 | Execute Record,Field_Write,Field_Number 0xa 00e7 00da | | Load_Top At_Offset_2 00e8 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 00e9 0125 | % | Execute Any,Set_Constraint 00ea 00da | | Load_Top At_Offset_2 00eb 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 00ec 1c00 | | Execute_Immediate Run_Utility,0x0 00ed 4800 |H | Short_Literal 0x0 00ee 00db | | Load_Top At_Offset_3 00ef 380c |8 | Execute Record,Field_Write,Field_Number 0xc 00f0 4801 |H | Short_Literal 0x1 00f1 00db | | Load_Top At_Offset_3 00f2 380d |8 | Execute Record,Field_Write,Field_Number 0xd 00f3 4800 |H | Short_Literal 0x0 00f4 00db | | Load_Top At_Offset_3 00f5 380f |8 | Execute Record,Field_Write,Field_Number 0xf 00f6 4800 |H | Short_Literal 0x0 00f7 00db | | Load_Top At_Offset_3 00f8 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 00f9 00da | | Load_Top At_Offset_2 00fa 3411 |4 | Execute Record,Field_Reference,Field_Number 0x11 00fb 0125 | % | Execute Any,Set_Constraint 00fc 00da | | Load_Top At_Offset_2 00fd 3411 |4 | Execute Record,Field_Reference,Field_Number 0x11 00fe 1c00 | | Execute_Immediate Run_Utility,0x0 00ff 00da | | Load_Top At_Offset_2 0100 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12 0101 1c00 | | Execute_Immediate Run_Utility,0x0 0102 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0103 0000 | | .XXX[0x1] 0104 0000 0000 | | .LITERAL {0x00000000, 0x00585a25} 0108 ; -------------------------------------------------------------------------------------- 0108 ; STRING TABLE 0108 ; -------------------------------------------------------------------------------------- 0108 0008 | | .STRTAB 0x0008->0x010c ; "NONE" 0109 000a | | .STRTAB 0x000a->0x010e ; "WARNINGS" 010a 0010 | | .STRTAB 0x0010->0x0112 ; "ERRORS" 010b 0014 | | .STREND 0x0014->0x0115 010c 4e4f 4e45 |NONE| .STRTAB_STRINGS 0115 0000 0000 | | .XXX[0x3] 0117 0000 | | 0118 ; -------------------------------------------------------------------------------------- 0118 ; Debug Table 0118 ; -------------------------------------------------------------------------------------- 0118 0003 0005 | | .CONST 0x0003,0x0005 011a 000b 0142 | B| .DEBUG 0x000b,0x0142,0x8000,0x0000,0x0058,0x5a25,0x0000,0x0019 0122 0083 016c | l| .DEBUG 0x0083,0x016c,0x0005,0x0000,0x0058,0x5a25,0x0000,0x005a 012a 009b 016e | n| .DEBUG 0x009b,0x016e,0x0005,0x0000,0x0058,0x5a25,0x0000,0x0077 0132 00b3 0170 | p| .DEBUG 0x00b3,0x0170,0x0005,0x0000,0x0058,0x5a25,0x0000,0x0096 013a 00cb 0172 | r| .DEBUG 0x00cb,0x0172,0x0005,0x0000,0x0058,0x5a25,0x0000,0x009d 0142 ; -------------------------------------------------------------------------------------- 0142 ; Debug3 Subtable 0x0 0142 ; -------------------------------------------------------------------------------------- 0142 0014 0000 | | .DBG3TAB 0x0014,0x0000 0144 000b ffff | | .CONST 0x000b,0xffff 0146 000c fffe | | .CONST 0x000c,0xfffe 0148 000d fffd | | .CONST 0x000d,0xfffd 014a 000e fffc | | .CONST 0x000e,0xfffc 014c 0011 fffb | | .CONST 0x0011,0xfffb 014e 0012 fffa | | .CONST 0x0012,0xfffa 0150 001e fff9 | | .CONST 0x001e,0xfff9 0152 002b fff8 | + | .CONST 0x002b,0xfff8 0154 002d fff7 | - | .CONST 0x002d,0xfff7 0156 0030 fff6 | 0 | .CONST 0x0030,0xfff6 0158 0031 fff5 | 1 | .CONST 0x0031,0xfff5 015a 0038 fff4 | 8 | .CONST 0x0038,0xfff4 015c 003a fff3 | : | .CONST 0x003a,0xfff3 015e 003d fff2 | = | .CONST 0x003d,0xfff2 0160 003e fff1 | > | .CONST 0x003e,0xfff1 0162 0047 fff0 | G | .CONST 0x0047,0xfff0 0164 004f ffef | O | .CONST 0x004f,0xffef 0166 0054 ffee | T | .CONST 0x0054,0xffee 0168 0074 ffed | t | .CONST 0x0074,0xffed 016a 0077 ffec | w | .CONST 0x0077,0xffec 016c ; -------------------------------------------------------------------------------------- 016c ; Debug3 Subtable 0x1 016c ; -------------------------------------------------------------------------------------- 016c 0000 0000 | | .DBG3TAB 0x0000,0x0000 016e ; -------------------------------------------------------------------------------------- 016e ; Debug3 Subtable 0x2 016e ; -------------------------------------------------------------------------------------- 016e 0000 0000 | | .DBG3TAB 0x0000,0x0000 0170 ; -------------------------------------------------------------------------------------- 0170 ; Debug3 Subtable 0x3 0170 ; -------------------------------------------------------------------------------------- 0170 0000 0000 | | .DBG3TAB 0x0000,0x0000 0172 ; -------------------------------------------------------------------------------------- 0172 ; Debug3 Subtable 0x4 0172 ; -------------------------------------------------------------------------------------- 0172 0000 0000 | | .DBG3TAB 0x0000,0x0000 0174 0000 0000 | | .BLANK 0000[0x8c]