|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03ccb7
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0120 | | .CONST 0x0120 ; 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 004e | N | .CONST 0x004e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0019 | | .CONST 0x0019 ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c 0129 | ) | Execute Any,Make_Visible
000d 00c4 | | Action Make_Default
000e 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0010 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0012 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0014 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0016 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0018 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
001a 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
001c 4800 |H | Short_Literal 0x0
001d 0129 | ) | Execute Any,Make_Visible
001e c20e | | Store 0x1,0xe
001f 00bf | | Action Accept_Activation
0020 0093 0000 | | push_full_address 0x0
0022 6055 |`U | Indirect_Literal Discrete,0x78,{0x80000000, 0x00010000}
0023 0273 | s | Execute Discrete,Plus
0024 e002 | | Load 0x0,0x2
0025 0273 | s | Execute Discrete,Plus
0026 e003 | | Load 0x0,0x3
0027 0273 | s | Execute Discrete,Plus
0028 4850 |HP | Short_Literal 0x50
0029 e004 | | Load 0x0,0x4
002a 0387 | | Declare_Variable Package
002b 00d8 | | Load_Top At_Offset_0
002c 020f | | Execute Module,Activate
002d e005 | | Load 0x0,0x5
002e 00d9 | | Load_Top At_Offset_1
002f 0098 | | Execute Package,Field_Read_Dynamic
0030 e006 | | Load 0x0,0x6
0031 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
0033 4802 |H | Short_Literal 0x2
0034 032d | - | Declare_Type Record,Defined
0035 4801 |H | Short_Literal 0x1
0036 603d |`= | Indirect_Literal Discrete,0x74,{0x00000000, 0x00000400}
0037 00da | | Load_Top At_Offset_2
0038 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
003a 4801 |H | Short_Literal 0x1
003b 035d | ] | Declare_Type Array,Defined
003c 00d8 | | Load_Top At_Offset_0
003d 0337 | 7 | Declare_Variable Array
003e 00d8 | | Load_Top At_Offset_0
003f 1c00 | | Execute_Immediate Run_Utility,0x0
0040 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0041 00c7 | | Action Elaborate_Subprogram
0042 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0043 00c7 | | Action Elaborate_Subprogram
0044 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0045 00c7 | | Action Elaborate_Subprogram
0046 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0047 00c7 | | Action Elaborate_Subprogram
0048 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0049 00c7 | | Action Elaborate_Subprogram
004a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
004b 00c7 | | Action Elaborate_Subprogram
004c 1d15 | | Execute_Immediate Reference_Lex_1,0x15
004d 00c7 | | Action Elaborate_Subprogram
004e BODY_0008:
004e 0092 010e | | Action Push_String_Extended,0x10e ; "hostname of the broker => "
0050 e007 | | Load 0x0,0x7
0051 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0052 e007 | | Load 0x0,0x7
0053 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
0054 e008 | | Load 0x0,0x8
0055 e216 | | Load 0x1,0x16
0056 0096 | | Execute Package,Entry
0057 820f | | Call 0x1,0xf
0058 00da | | Load_Top At_Offset_2
0059 01d5 | | Execute Vector,Field_Reference
005a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
005b 6014 |` | Indirect_Literal Discrete,0x70,{0x00000000, 0x00000a2d}
005c 820f | | Call 0x1,0xf
005d 00da | | Load_Top At_Offset_2
005e 01d5 | | Execute Vector,Field_Reference
005f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0060 00bc | | Action Signal_Activated
0061 00bb | | Action Signal_Completion
0062 0000 0000 | | .BLANK 0000[0x6]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 4801 |H | Short_Literal 0x1
006c 00ca | | Action Exit_Nullary_Function
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
0070 0000 0000 | | .LITERAL {0x00000000, 0x00000a2d}
0074 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0078 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
007c 0000 0000 | | .BLANK 0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0085 | | .CONST 0x0085 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0002 | | .CONST 0x0002 ; Number of locals
0083 INIT_0080:
0083 e20d | | Load 0x1,0xd
0084 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0085 BODY_0080:
0085 00cf | | Action Mark_Auxiliary
0086 780c |x | Jump 0x93
0087 00d9 | | Load_Top At_Offset_1
0088 e219 | | Load 0x1,0x19
0089 01d5 | | Execute Vector,Field_Reference
008a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
008b e009 | | Load 0x0,0x9
008c e216 | | Load 0x1,0x16
008d 0096 | | Execute Package,Entry
008e 6809 |h | Jump_Zero 0x98
008f 00d9 | | Load_Top At_Offset_1
0090 0a01 | | Execute_Immediate Plus,0x1
0091 005a | Z | Store_Top Discrete,At_Offset_2
0092 00c9 | | Action Pop_Auxiliary_Loop
0093 00d9 | | Load_Top At_Offset_1
0094 e219 | | Load 0x1,0x19
0095 01da | | Execute Vector,Bounds
0096 0262 | b | Execute Discrete,In_Range
0097 77ef |w | Jump_Nonzero 0x87
0098 00ce | | Action Pop_Auxiliary
0099 00db | | Load_Top At_Offset_3
009a e008 | | Load 0x0,0x8
009b e216 | | Load 0x1,0x16
009c 0096 | | Execute Package,Entry
009d 00d9 | | Load_Top At_Offset_1
009e e219 | | Load 0x1,0x19
009f 01d5 | | Execute Vector,Field_Reference
00a0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00a1 e5fe | | Load 0x2,-0x2
00a2 00d9 | | Load_Top At_Offset_1
00a3 e219 | | Load 0x1,0x19
00a4 01d5 | | Execute Vector,Field_Reference
00a5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a6 00d8 | | Load_Top At_Offset_0
00a7 4402 |D | Exit_Subprogram With_Value,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 00da | | Load_Top At_Offset_2
00ac e219 | | Load 0x1,0x19
00ad 01d5 | | Execute Vector,Field_Reference
00ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00af 00d8 | | Load_Top At_Offset_0
00b0 e00a | | Load 0x0,0xa
00b1 e216 | | Load 0x1,0x16
00b2 0096 | | Execute Package,Entry
00b3 00d2 | | Pop_Control Pop_Count_2
00b4 4800 |H | Short_Literal 0x0
00b5 00db | | Load_Top At_Offset_3
00b6 e219 | | Load 0x1,0x19
00b7 01d5 | | Execute Vector,Field_Reference
00b8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2
00c4 e219 | | Load 0x1,0x19
00c5 01d5 | | Execute Vector,Field_Reference
00c6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00c7 e00b | | Load 0x0,0xb
00c8 e216 | | Load 0x1,0x16
00c9 0096 | | Execute Package,Entry
00ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
00d4 e219 | | Load 0x1,0x19
00d5 01d5 | | Execute Vector,Field_Reference
00d6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2
00dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2
00e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 4601 |F | Jump_Case 0x2
00ec 7801 |x | Jump 0xee ; case 0x0
00ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00ee 00da | | Load_Top At_Offset_2
00ef 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00f0 1c00 | | Execute_Immediate Run_Utility,0x0
00f1 4800 |H | Short_Literal 0x0
00f2 00db | | Load_Top At_Offset_3
00f3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00d1 | | Pop_Control Pop_Count_1
00fc 00da | | Load_Top At_Offset_2
00fd 01d8 | | Execute Vector,Element_Type
00fe 0322 | " | Declare_Variable Record
00ff 00d8 | | Load_Top At_Offset_0
0100 1c00 | | Execute_Immediate Run_Utility,0x0
0101 00db | | Load_Top At_Offset_3
0102 01dc | | Execute Vector,Last
0103 e5ff | | Load 0x2,-0x1
0104 01dd | | Execute Vector,First
0105 0263 | c | Execute Discrete,Above_Bound
0106 7006 |p | Jump_Nonzero 0x10d
0107 00da | | Load_Top At_Offset_2
0108 00d9 | | Load_Top At_Offset_1
0109 e5ff | | Load 0x2,-0x1
010a 01d6 | | Execute Vector,Field_Write
010b 0a01 | | Execute_Immediate Plus,0x1
010c 7ff8 | | Jump 0x105
010d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
010e ; --------------------------------------------------------------------------------------
010e ; STRING TABLE
010e ; --------------------------------------------------------------------------------------
010e 0004 | | .STRTAB 0x0004->0x0110 ; "hostname of the broker => "
010f 001d | | .STREND 0x001d->0x011d
0110 686f 7374 |host| .STRTAB_STRINGS
011e 0000 0000 | | .XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; Debug Table
0120 ; --------------------------------------------------------------------------------------
0120 0004 0009 | | .DEBUG4 0x0004,0x0009,0x918e,0x0000,0x0001,0x000b
0126 000b 0152 | R| .DBG4T 0x000b,0x0152,0x8000,0x8000
012a 0020 0168 | h| .DBG4T 0x0020,0x0168,0x8000,0x0000
012e 006b 0177 | k w| .DBG4T 0x006b,0x0177,0x0002,0x0000
0132 0083 017a | z| .DBG4T 0x0083,0x017a,0x0002,0x4000
0136 00ab 0189 | | .DBG4T 0x00ab,0x0189,0x0001,0x0000
013a 00c3 018d | | .DBG4T 0x00c3,0x018d,0x0002,0x0000
013e 00d3 0190 | | .DBG4T 0x00d3,0x0190,0x0002,0x0000
0142 00db 0193 | | .DBG4T 0x00db,0x0193,0x0002,0x0000
0146 00e3 0196 | | .DBG4T 0x00e3,0x0196,0x0002,0x0000
014a 00eb 0000 | | .DBG4T 0x00eb,0x0000,0x0005,0x0000
014e 00fb 0000 | | .DBG4T 0x00fb,0x0000,0x0005,0x0000
0152 ; --------------------------------------------------------------------------------------
0152 ; Debug chain
0152 ; --------------------------------------------------------------------------------------
0152 000a 0000 | | .DBGLEN 0x000a,0x0000
0154 000b 000d | | .DBGLNO 0x000b,0x000d,0x000e,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c
015e 0001 0002 | | .XXX[0xa]
0160 0003 0004 | |
0162 0005 0006 | |
0164 0007 0008 | |
0166 0009 000b | |
0168 ; --------------------------------------------------------------------------------------
0168 ; Debug chain
0168 ; --------------------------------------------------------------------------------------
0168 000a 0003 | | .DBGLEN 0x000a,0x0003
016a 0020 002d | -| .DBGLNO 0x0020,0x002d,0x0035,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0052,0x005b
0177 ; --------------------------------------------------------------------------------------
0177 ; Debug chain
0177 ; --------------------------------------------------------------------------------------
0177 0000 0001 | | .DBGLEN 0x0000,0x0001
0179 006b | k | .DBGLNO 0x006b
017a ; --------------------------------------------------------------------------------------
017a ; Debug chain
017a ; --------------------------------------------------------------------------------------
017a 0001 0006 | | .DBGLEN 0x0001,0x0006
017c 0083 0087 | | .DBGLNO 0x0083,0x0087,0x008f,0x0093,0x0099,0x00a1,0x00a6
0183 0002 0003 | | .XXX[0x6]
0185 0001 0004 | |
0187 0005 0006 | |
0189 ; --------------------------------------------------------------------------------------
0189 ; Debug chain
0189 ; --------------------------------------------------------------------------------------
0189 0000 0002 | | .DBGLEN 0x0000,0x0002
018b 00ab 00b4 | | .DBGLNO 0x00ab,0x00b4
018d ; --------------------------------------------------------------------------------------
018d ; Debug chain
018d ; --------------------------------------------------------------------------------------
018d 0000 0001 | | .DBGLEN 0x0000,0x0001
018f 00c3 | | .DBGLNO 0x00c3
0190 ; --------------------------------------------------------------------------------------
0190 ; Debug chain
0190 ; --------------------------------------------------------------------------------------
0190 0000 0001 | | .DBGLEN 0x0000,0x0001
0192 00d3 | | .DBGLNO 0x00d3
0193 ; --------------------------------------------------------------------------------------
0193 ; Debug chain
0193 ; --------------------------------------------------------------------------------------
0193 0000 0001 | | .DBGLEN 0x0000,0x0001
0195 00db | | .DBGLNO 0x00db
0196 ; --------------------------------------------------------------------------------------
0196 ; Debug chain
0196 ; --------------------------------------------------------------------------------------
0196 0000 0001 | | .DBGLEN 0x0000,0x0001
0198 00e3 | | .DBGLNO 0x00e3
0199 0000 0000 | | .BLANK 0000[0x67]