|
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 00d0 | | .CONST 0x00d0 ; 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 0058 | X | .CONST 0x0058 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0 = .DEBUG 0x000b,0x00fa,0x8000,0x0000,0x0057,0x3435,0x0000,0x000d
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0266 | f | Execute Discrete,Bounds
000d e001 | | Load 0x0,0x1
000e 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
000f 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call
0011 4801 |H | Short_Literal 0x1
0012 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0013 03a6 | | Declare_Type Heap_Access,Indirect_Literal,Visible,Values_Relative ; Debug Table 0x0.0x1 = 0x13,0xfffe
0014 00d9 | | Load_Top At_Offset_1
0015 02a0 | | Declare_Subprogram Null_Subprogram
0016 00da | | Load_Top At_Offset_2
0017 03a3 | | Complete_Type Heap_Access,By_Defining
0018 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0x18,0xfffd
0019 0007 | | Action Break_Optional ; Debug Table 0x0.0x3 = 0x19,0xfffc
001a 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x4 = 0x1a,0xfffb
001b 0266 | f | Execute Discrete,Bounds
001c 00e1 | | Load_Encached Boolean_Cache
001d 02a0 | | Declare_Subprogram Null_Subprogram
001e 4801 |H | Short_Literal 0x1
001f 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0020 03a6 | | Declare_Type Heap_Access,Indirect_Literal,Visible,Values_Relative ; Debug Table 0x0.0x5 = 0x20,0xfffa
0021 00d9 | | Load_Top At_Offset_1
0022 02a0 | | Declare_Subprogram Null_Subprogram
0023 00da | | Load_Top At_Offset_2
0024 03a3 | | Complete_Type Heap_Access,By_Defining
0025 0007 | | Action Break_Optional ; Debug Table 0x0.0x6 = 0x25,0xfff9
0026 0007 | | Action Break_Optional ; Debug Table 0x0.0x7 = 0x26,0xfff8
0027 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x0.0x8 = 0x27,0xfff7
0028 00e3 | | Load_Encached Natural_Cache
0029 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
002b 4802 |H | Short_Literal 0x2
002c 032e | . | Declare_Type Record,Defined,Visible
002d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x9 = 0x2d,0xfff6
002e 0322 | " | Declare_Variable Record
002f 4800 |H | Short_Literal 0x0
0030 00d9 | | Load_Top At_Offset_1
0031 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0032 4800 |H | Short_Literal 0x0
0033 00d9 | | Load_Top At_Offset_1
0034 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0035 0129 | ) | Execute Any,Make_Visible
0036 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0xa = 0x36,0xfff5
0037 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0038 e003 | | Load 0x0,0x3
0039 1b16 | | Execute Package,Field_Read,Field_Number 0x16
003a 029f 0093 | | Declare_Subprogram INIT_0090,For_Call
003c 4802 |H | Short_Literal 0x2
003d 032e | . | Declare_Type Record,Defined,Visible
003e 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0xb = 0x3e,0xfff4
003f 0266 | f | Execute Discrete,Bounds
0040 00da | | Load_Top At_Offset_2
0041 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
0043 4801 |H | Short_Literal 0x1
0044 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0045 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0xc = 0x45,0xfff3
0046 02a0 | | Declare_Subprogram Null_Subprogram
0047 03ae | | Declare_Type Heap_Access,Defined,Visible
0048 0007 | | Action Break_Optional ; Debug Table 0x0.0xd = 0x48,0xfff2
0049 0007 | | Action Break_Optional ; Debug Table 0x0.0xe = 0x49,0xfff1
004a 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0xf = 0x4a,0xfff0
004b 0266 | f | Execute Discrete,Bounds
004c e004 | | Load 0x0,0x4
004d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
004e 02a0 | | Declare_Subprogram Null_Subprogram
004f 4801 |H | Short_Literal 0x1
0050 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0051 03a6 | | Declare_Type Heap_Access,Indirect_Literal,Visible,Values_Relative ; Debug Table 0x0.0x10 = 0x51,0xffef
0052 00d9 | | Load_Top At_Offset_1
0053 02a0 | | Declare_Subprogram Null_Subprogram
0054 00da | | Load_Top At_Offset_2
0055 03a3 | | Complete_Type Heap_Access,By_Defining
0056 0007 | | Action Break_Optional ; Debug Table 0x0.0x11 = 0x56,0xffee
0057 00bf | | Action Accept_Activation ; Debug Table 0x0.0x12 = 0x57,0xffed
0058 BODY_0008:
0058 00bc | | Action Signal_Activated
0059 00bb | | Action Signal_Completion
005a 0000 0000 | | .BLANK 0000[0x6]
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 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x1 = .DEBUG 0x0063,0x0122,0x0005,0x0000,0x0057,0x3435,0x0000,0x000e
0064 00da | | Load_Top At_Offset_2
0065 01dc | | Execute Vector,Last
0066 00db | | Load_Top At_Offset_3
0067 01dd | | Execute Vector,First
0068 0263 | c | Execute Discrete,Above_Bound
0069 700a |p | Jump_Nonzero 0x74
006a 00d8 | | Load_Top At_Offset_0
006b e5ff | | Load 0x2,-0x1
006c 01d5 | | Execute Vector,Field_Reference
006d 0125 | % | Execute Any,Set_Constraint
006e 00d8 | | Load_Top At_Offset_0
006f e5ff | | Load 0x2,-0x1
0070 01d5 | | Execute Vector,Field_Reference
0071 1c00 | | Execute_Immediate Run_Utility,0x0
0072 0a01 | | Execute_Immediate Plus,0x1
0073 7ff4 | | Jump 0x68
0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0075 0000 0000 | | .XXX[0x3]
0077 0000 | |
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 4608 |F | Jump_Case 0x9 ; Debug Table 0x2 = .DEBUG 0x007b,0x0124,0x0005,0x0000,0x0057,0x3435,0x0000,0x003e
007c 7808 |x | Jump 0x85 ; case 0x0
007d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
007e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
007f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0080 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0081 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0082 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0083 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
0084 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
0085 4800 |H | Short_Literal 0x0
0086 00db | | Load_Top At_Offset_3
0087 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0088 4800 |H | Short_Literal 0x0
0089 00db | | Load_Top At_Offset_3
008a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
008b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
008c 0000 0000 | | .BLANK 0000[0x4]
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 4608 |F | Jump_Case 0x9 ; Debug Table 0x3 = .DEBUG 0x0093,0x0126,0x0005,0x0000,0x0057,0x3435,0x0000,0x0056
0094 7808 |x | Jump 0x9d ; case 0x0
0095 780e |x | Jump 0xa4 ; case 0x1
0096 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0097 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0098 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0099 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
009a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
009b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
009c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
009d 00da | | Load_Top At_Offset_2
009e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
009f 0125 | % | Execute Any,Set_Constraint
00a0 00da | | Load_Top At_Offset_2
00a1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00a2 1c00 | | Execute_Immediate Run_Utility,0x0
00a3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00a4 00da | | Load_Top At_Offset_2
00a5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00a6 0125 | % | Execute Any,Set_Constraint
00a7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 4605 |F | Jump_Case 0x6 ; Debug Table 0x4 = .DEBUG 0x00ab,0x0128,0x0005,0x0000,0x0057,0x3435,0x0000,0x0068
00ac 7804 |x | Jump 0xb1 ; case 0x0
00ad 7810 |x | Jump 0xbe ; case 0x1
00ae 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
00af 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
00b0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
00b1 00da | | Load_Top At_Offset_2 ; case 0x5
00b2 01dc | | Execute Vector,Last
00b3 00db | | Load_Top At_Offset_3
00b4 01dd | | Execute Vector,First
00b5 0263 | c | Execute Discrete,Above_Bound
00b6 7006 |p | Jump_Nonzero 0xbd
00b7 00d8 | | Load_Top At_Offset_0
00b8 e5ff | | Load 0x2,-0x1
00b9 01d5 | | Execute Vector,Field_Reference
00ba 1c00 | | Execute_Immediate Run_Utility,0x0
00bb 0a01 | | Execute_Immediate Plus,0x1
00bc 7ff8 | | Jump 0xb5
00bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00be 00da | | Load_Top At_Offset_2
00bf 01dc | | Execute Vector,Last
00c0 00db | | Load_Top At_Offset_3
00c1 01dd | | Execute Vector,First
00c2 0263 | c | Execute Discrete,Above_Bound
00c3 7006 |p | Jump_Nonzero 0xca
00c4 00d8 | | Load_Top At_Offset_0
00c5 e5ff | | Load 0x2,-0x1
00c6 01d7 | | Execute Vector,Field_Read
00c7 1c01 | | Execute_Immediate Run_Utility,0x1
00c8 0a01 | | Execute_Immediate Plus,0x1
00c9 7ff8 | | Jump 0xc2
00ca 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00cb 0000 0000 | | .BLANK 0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; Debug Table
00d0 ; --------------------------------------------------------------------------------------
00d0 0003 0005 | | .CONST 0x0003,0x0005
00d2 000b 00fa | | .DEBUG 0x000b,0x00fa,0x8000,0x0000,0x0057,0x3435,0x0000,0x000d
00da 0063 0122 | c "| .DEBUG 0x0063,0x0122,0x0005,0x0000,0x0057,0x3435,0x0000,0x000e
00e2 007b 0124 | { $| .DEBUG 0x007b,0x0124,0x0005,0x0000,0x0057,0x3435,0x0000,0x003e
00ea 0093 0126 | &| .DEBUG 0x0093,0x0126,0x0005,0x0000,0x0057,0x3435,0x0000,0x0056
00f2 00ab 0128 | (| .DEBUG 0x00ab,0x0128,0x0005,0x0000,0x0057,0x3435,0x0000,0x0068
00fa ; --------------------------------------------------------------------------------------
00fa ; Debug3 Subtable 0x0
00fa ; --------------------------------------------------------------------------------------
00fa 0013 0000 | | .DBG3TAB 0x0013,0x0000
00fc 000b ffff | | .CONST 0x000b,0xffff
00fe 0013 fffe | | .CONST 0x0013,0xfffe
0100 0018 fffd | | .CONST 0x0018,0xfffd
0102 0019 fffc | | .CONST 0x0019,0xfffc
0104 001a fffb | | .CONST 0x001a,0xfffb
0106 0020 fffa | | .CONST 0x0020,0xfffa
0108 0025 fff9 | % | .CONST 0x0025,0xfff9
010a 0026 fff8 | & | .CONST 0x0026,0xfff8
010c 0027 fff7 | ' | .CONST 0x0027,0xfff7
010e 002d fff6 | - | .CONST 0x002d,0xfff6
0110 0036 fff5 | 6 | .CONST 0x0036,0xfff5
0112 003e fff4 | > | .CONST 0x003e,0xfff4
0114 0045 fff3 | E | .CONST 0x0045,0xfff3
0116 0048 fff2 | H | .CONST 0x0048,0xfff2
0118 0049 fff1 | I | .CONST 0x0049,0xfff1
011a 004a fff0 | J | .CONST 0x004a,0xfff0
011c 0051 ffef | Q | .CONST 0x0051,0xffef
011e 0056 ffee | V | .CONST 0x0056,0xffee
0120 0057 ffed | W | .CONST 0x0057,0xffed
0122 ; --------------------------------------------------------------------------------------
0122 ; Debug3 Subtable 0x1
0122 ; --------------------------------------------------------------------------------------
0122 0000 0000 | | .DBG3TAB 0x0000,0x0000
0124 ; --------------------------------------------------------------------------------------
0124 ; Debug3 Subtable 0x2
0124 ; --------------------------------------------------------------------------------------
0124 0000 0000 | | .DBG3TAB 0x0000,0x0000
0126 ; --------------------------------------------------------------------------------------
0126 ; Debug3 Subtable 0x3
0126 ; --------------------------------------------------------------------------------------
0126 0000 0000 | | .DBG3TAB 0x0000,0x0000
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug3 Subtable 0x4
0128 ; --------------------------------------------------------------------------------------
0128 0000 0000 | | .DBG3TAB 0x0000,0x0000
012a 0000 0000 | | .BLANK 0000[0xd6]