|
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_acccc9
└─⟦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 01b8 | | .CONST 0x01b8 ; 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 003f | ? | .CONST 0x003f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
000d 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
000f 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0011 00bf | | Action Accept_Activation
0012 0093 0000 | | push_full_address 0x0
0014 6087 |` | Indirect_Literal Discrete,0x9c,{0x80000000, 0x00010000}
0015 0273 | s | Execute Discrete,Plus
0016 e002 | | Load 0x0,0x2
0017 0273 | s | Execute Discrete,Plus
0018 e003 | | Load 0x0,0x3
0019 0273 | s | Execute Discrete,Plus
001a 4814 |H | Short_Literal 0x14
001b e004 | | Load 0x0,0x4
001c 0387 | | Declare_Variable Package
001d 00d8 | | Load_Top At_Offset_0
001e 020f | | Execute Module,Activate
001f e005 | | Load 0x0,0x5
0020 00d9 | | Load_Top At_Offset_1
0021 0098 | | Execute Package,Field_Read_Dynamic
0022 e005 | | Load 0x0,0x5
0023 00da | | Load_Top At_Offset_2
0024 0098 | | Execute Package,Field_Read_Dynamic
0025 e005 | | Load 0x0,0x5
0026 00db | | Load_Top At_Offset_3
0027 0098 | | Execute Package,Field_Read_Dynamic
0028 e005 | | Load 0x0,0x5
0029 e210 | | Load 0x1,0x10
002a 0098 | | Execute Package,Field_Read_Dynamic
002b e005 | | Load 0x0,0x5
002c e210 | | Load 0x1,0x10
002d 0098 | | Execute Package,Field_Read_Dynamic
002e 02a0 | | Declare_Subprogram Null_Subprogram
002f 4805 |H | Short_Literal 0x5
0030 032d | - | Declare_Type Record,Defined
0031 4800 |H | Short_Literal 0x0
0032 6065 |`e | Indirect_Literal Discrete,0x98,{0x00000000, 0x0000270f}
0033 00da | | Load_Top At_Offset_2
0034 02a0 | | Declare_Subprogram Null_Subprogram
0035 4801 |H | Short_Literal 0x1
0036 035d | ] | Declare_Type Array,Defined
0037 00d8 | | Load_Top At_Offset_0
0038 0337 | 7 | Declare_Variable Array
0039 1d0d | | Execute_Immediate Reference_Lex_1,0xd
003a 00c7 | | Action Elaborate_Subprogram
003b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
003c 00c7 | | Action Elaborate_Subprogram
003d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
003e 00c7 | | Action Elaborate_Subprogram
003f BODY_0008:
003f 00bc | | Action Signal_Activated
0040 00bb | | Action Signal_Completion
0041 0000 0000 | | .BLANK 0000[0x7]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0051 | Q | .CONST 0x0051 ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0002 | | .CONST 0x0002 ; Number of locals
004b INIT_0048:
004b 00da | | Load_Top At_Offset_2
004c e5fe | | Load 0x2,-0x2
004d 01cc | | Execute Vector,Catenate
004e 8006 | | Call 0x0,0x6
004f 00e2 | | Load_Encached Integer_Cache
0050 03f1 | | Declare_Variable Discrete,With_Value
0051 BODY_0048:
0051 00d8 | | Load_Top At_Offset_0
0052 e213 | | Load 0x1,0x13
0053 01d5 | | Execute Vector,Field_Reference
0054 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0055 e007 | | Load 0x0,0x7
0056 e210 | | Load 0x1,0x10
0057 0096 | | Execute Package,Entry
0058 01db | | Execute Vector,Length
0059 6817 |h | Jump_Zero 0x71
005a 0092 014b | K| Action Push_String_Extended,0x14b ; "*** Unable to register service "
005c e5ff | | Load 0x2,-0x1
005d 01cc | | Execute Vector,Catenate
005e 0092 014c | L| Action Push_String_Extended,0x14c ; "."
0060 01cc | | Execute Vector,Catenate
0061 e5fe | | Load 0x2,-0x2
0062 01cc | | Execute Vector,Catenate
0063 e008 | | Load 0x0,0x8
0064 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0065 0092 014d | M| Action Push_String_Extended,0x14d ; "*** Service ID "
0067 00d9 | | Load_Top At_Offset_1
0068 00e0 | | Load_Encached Standard_Cache
0069 1818 | | Execute Package,Field_Execute,Field_Number 0x18
006a 01cc | | Execute Vector,Catenate
006b 0092 014e | N| Action Push_String_Extended,0x14e ; " already allocated"
006d 01cc | | Execute Vector,Catenate
006e e008 | | Load 0x0,0x8
006f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0070 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0071 e211 | | Load 0x1,0x11
0072 0322 | " | Declare_Variable Record
0073 e5ff | | Load 0x2,-0x1
0074 e009 | | Load 0x0,0x9
0075 e210 | | Load 0x1,0x10
0076 0096 | | Execute Package,Entry
0077 00d9 | | Load_Top At_Offset_1
0078 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0079 e5fe | | Load 0x2,-0x2
007a e009 | | Load 0x0,0x9
007b e210 | | Load 0x1,0x10
007c 0096 | | Execute Package,Entry
007d 00d9 | | Load_Top At_Offset_1
007e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
007f e5fd | | Load 0x2,-0x3
0080 e009 | | Load 0x0,0x9
0081 e210 | | Load 0x1,0x10
0082 0096 | | Execute Package,Entry
0083 00d9 | | Load_Top At_Offset_1
0084 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0085 e5fc | | Load 0x2,-0x4
0086 e009 | | Load 0x0,0x9
0087 e210 | | Load 0x1,0x10
0088 0096 | | Execute Package,Entry
0089 00d9 | | Load_Top At_Offset_1
008a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
008b e5fb | | Load 0x2,-0x5
008c e009 | | Load 0x0,0x9
008d e210 | | Load 0x1,0x10
008e 0096 | | Execute Package,Entry
008f 00d9 | | Load_Top At_Offset_1
0090 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0091 00d9 | | Load_Top At_Offset_1
0092 e213 | | Load 0x1,0x13
0093 01d6 | | Execute Vector,Field_Write
0094 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0095 0000 0000 | | .XXX[0x3]
0097 0000 | |
0098 0000 0000 | | .LITERAL {0x00000000, 0x0000270f}
009c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00bf | | .CONST 0x00bf ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0004 | | .CONST 0x0004 ; Number of locals
00a3 INIT_00a0:
00a3 00da | | Load_Top At_Offset_2
00a4 e5fe | | Load 0x2,-0x2
00a5 01cc | | Execute Vector,Catenate
00a6 8006 | | Call 0x0,0x6
00a7 00e2 | | Load_Encached Integer_Cache
00a8 03f1 | | Declare_Variable Discrete,With_Value
00a9 00d8 | | Load_Top At_Offset_0
00aa e213 | | Load 0x1,0x13
00ab 01d5 | | Execute Vector,Field_Reference
00ac 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00ad e007 | | Load 0x0,0x7
00ae e210 | | Load 0x1,0x10
00af 0096 | | Execute Package,Entry
00b0 800a | | Call 0x0,0xa
00b1 01df | | Execute Vector,Equal
00b2 00e1 | | Load_Encached Boolean_Cache
00b3 03f1 | | Declare_Variable Discrete,With_Value
00b4 00d9 | | Load_Top At_Offset_1
00b5 e213 | | Load 0x1,0x13
00b6 01d5 | | Execute Vector,Field_Reference
00b7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00b8 e007 | | Load 0x0,0x7
00b9 e210 | | Load 0x1,0x10
00ba 0096 | | Execute Package,Entry
00bb 01db | | Execute Vector,Length
00bc 0e00 | | Execute_Immediate Not_Equal,0x0
00bd 00e1 | | Load_Encached Boolean_Cache
00be 03f1 | | Declare_Variable Discrete,With_Value
00bf BODY_00a0:
00bf 00d9 | | Load_Top At_Offset_1
00c0 6819 |h | Jump_Zero 0xda
00c1 0092 014f | O| Action Push_String_Extended,0x14f ; "<PROFILE>"
00c3 00ea | | Load_Encached Null_String_Cache
00c4 4800 |H | Short_Literal 0x0
00c5 0092 0150 | P| Action Push_String_Extended,0x150 ; "$"
00c7 4800 |H | Short_Literal 0x0
00c8 e402 | | Load 0x2,0x2
00c9 e213 | | Load 0x1,0x13
00ca 01d5 | | Execute Vector,Field_Reference
00cb 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00cc e007 | | Load 0x0,0x7
00cd e210 | | Load 0x1,0x10
00ce 0096 | | Execute Package,Entry
00cf 0092 0151 | Q| Action Push_String_Extended,0x151 ; "(\x22"
00d1 01cc | | Execute Vector,Catenate
00d2 e5fd | | Load 0x2,-0x3
00d3 01cc | | Execute Vector,Catenate
00d4 0092 0152 | R| Action Push_String_Extended,0x152 ; "\x22)"
00d6 01cc | | Execute Vector,Catenate
00d7 e00b | | Load 0x0,0xb
00d8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00d9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00da 0092 0153 | S| Action Push_String_Extended,0x153 ; "remote executing "
00dc 00db | | Load_Top At_Offset_3
00dd e213 | | Load 0x1,0x13
00de 01d5 | | Execute Vector,Field_Reference
00df 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00e0 e007 | | Load 0x0,0x7
00e1 e210 | | Load 0x1,0x10
00e2 0096 | | Execute Package,Entry
00e3 01cc | | Execute Vector,Catenate
00e4 0092 0154 | T| Action Push_String_Extended,0x154 ; " on "
00e6 01cc | | Execute Vector,Catenate
00e7 00db | | Load_Top At_Offset_3
00e8 e213 | | Load 0x1,0x13
00e9 01d5 | | Execute Vector,Field_Reference
00ea 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00eb e007 | | Load 0x0,0x7
00ec e210 | | Load 0x1,0x10
00ed 0096 | | Execute Package,Entry
00ee 01cc | | Execute Vector,Catenate
00ef e008 | | Load 0x0,0x8
00f0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00f2 0000 0000 | | .BLANK 0000[0x6]
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 00cf | | Action Mark_Auxiliary
00fc e213 | | Load 0x1,0x13
00fd 01d9 | | Execute Vector,Reverse_Bounds
00fe 0007 | | Action Break_Optional
00ff 00d8 | | Load_Top At_Offset_0
0100 e213 | | Load 0x1,0x13
0101 01d5 | | Execute Vector,Field_Reference
0102 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0103 e007 | | Load 0x0,0x7
0104 e210 | | Load 0x1,0x10
0105 0096 | | Execute Package,Entry
0106 01db | | Execute Vector,Length
0107 6840 |h@ | Jump_Zero 0x148
0108 0092 0155 | U| Action Push_String_Extended,0x155 ; "---- registered services ----"
010a e008 | | Load 0x0,0x8
010b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
010c 0092 0156 | V| Action Push_String_Extended,0x156 ; "class = "
010e 00d9 | | Load_Top At_Offset_1
010f e213 | | Load 0x1,0x13
0110 01d5 | | Execute Vector,Field_Reference
0111 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0112 e007 | | Load 0x0,0x7
0113 e210 | | Load 0x1,0x10
0114 0096 | | Execute Package,Entry
0115 01cc | | Execute Vector,Catenate
0116 e008 | | Load 0x0,0x8
0117 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0118 0092 0157 | W| Action Push_String_Extended,0x157 ; "operation = "
011a 00d9 | | Load_Top At_Offset_1
011b e213 | | Load 0x1,0x13
011c 01d5 | | Execute Vector,Field_Reference
011d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
011e e007 | | Load 0x0,0x7
011f e210 | | Load 0x1,0x10
0120 0096 | | Execute Package,Entry
0121 01cc | | Execute Vector,Catenate
0122 e008 | | Load 0x0,0x8
0123 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0124 0092 0158 | X| Action Push_String_Extended,0x158 ; "profile = "
0126 00d9 | | Load_Top At_Offset_1
0127 e213 | | Load 0x1,0x13
0128 01d5 | | Execute Vector,Field_Reference
0129 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
012a e007 | | Load 0x0,0x7
012b e210 | | Load 0x1,0x10
012c 0096 | | Execute Package,Entry
012d 01cc | | Execute Vector,Catenate
012e e008 | | Load 0x0,0x8
012f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0130 0092 0159 | Y| Action Push_String_Extended,0x159 ; "command = "
0132 00d9 | | Load_Top At_Offset_1
0133 e213 | | Load 0x1,0x13
0134 01d5 | | Execute Vector,Field_Reference
0135 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0136 e007 | | Load 0x0,0x7
0137 e210 | | Load 0x1,0x10
0138 0096 | | Execute Package,Entry
0139 01cc | | Execute Vector,Catenate
013a e008 | | Load 0x0,0x8
013b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
013c 0092 015a | Z| Action Push_String_Extended,0x15a ; "host = "
013e 00d9 | | Load_Top At_Offset_1
013f e213 | | Load 0x1,0x13
0140 01d5 | | Execute Vector,Field_Reference
0141 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0142 e007 | | Load 0x0,0x7
0143 e210 | | Load 0x1,0x10
0144 0096 | | Execute Package,Entry
0145 01cc | | Execute Vector,Catenate
0146 e008 | | Load 0x0,0x8
0147 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0148 00c8 | | Action Pop_Auxiliary_Range
0149 3fb5 |? | Loop_Increasing 0xff
014a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
014b ; --------------------------------------------------------------------------------------
014b ; STRING TABLE
014b ; --------------------------------------------------------------------------------------
014b 0022 | " | .STRTAB 0x0022->0x015c ; "*** Unable to register service "
014c 003f | ? | .STRTAB 0x003f->0x016b ; "."
014d 003e | > | .STRTAB 0x003e->0x016c ; "*** Service ID "
014e 004b | K | .STRTAB 0x004b->0x0173 ; " already allocated"
014f 005b | [ | .STRTAB 0x005b->0x017c ; "<PROFILE>"
0150 0062 | b | .STRTAB 0x0062->0x0181 ; "$"
0151 0061 | a | .STRTAB 0x0061->0x0181 ; "(\x22"
0152 0061 | a | .STRTAB 0x0061->0x0182 ; "\x22)"
0153 0061 | a | .STRTAB 0x0061->0x0183 ; "remote executing "
0154 0070 | p | .STRTAB 0x0070->0x018c ; " on "
0155 0072 | r | .STRTAB 0x0072->0x018e ; "---- registered services ----"
0156 008d | | .STRTAB 0x008d->0x019c ; "class = "
0157 0093 | | .STRTAB 0x0093->0x01a0 ; "operation = "
0158 009d | | .STRTAB 0x009d->0x01a6 ; "profile = "
0159 00a5 | | .STRTAB 0x00a5->0x01ab ; "command = "
015a 00ad | | .STRTAB 0x00ad->0x01b0 ; "host = "
015b 00b2 | | .STREND 0x00b2->0x01b4
015c 2a2a 2a20 |*** | .STRTAB_STRINGS
01b4 0000 0000 | | .BLANK 0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; Debug Table
01b8 ; --------------------------------------------------------------------------------------
01b8 0004 0002 | | .DEBUG4 0x0004,0x0002,0x796d,0x0000,0x0001,0x0005
01be 000b 01d2 | | .DBG4T 0x000b,0x01d2,0x8000,0x0000
01c2 0012 01d7 | | .DBG4T 0x0012,0x01d7,0x8000,0x8000
01c6 004b 01e5 | K | .DBG4T 0x004b,0x01e5,0x0001,0x0000
01ca 00a3 01ec | | .DBG4T 0x00a3,0x01ec,0x0001,0x0000
01ce 00fb 01f4 | | .DBG4T 0x00fb,0x01f4,0x0001,0x0000
01d2 ; --------------------------------------------------------------------------------------
01d2 ; Debug chain
01d2 ; --------------------------------------------------------------------------------------
01d2 0003 0000 | | .DBGLEN 0x0003,0x0000
01d4 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f
01d7 ; --------------------------------------------------------------------------------------
01d7 ; Debug chain
01d7 ; --------------------------------------------------------------------------------------
01d7 0006 0000 | | .DBGLEN 0x0006,0x0000
01d9 0012 001f | | .DBGLNO 0x0012,0x001f,0x0031,0x0039,0x003b,0x003d
01df 0002 0003 | | .XXX[0x6]
01e1 0004 0005 | |
01e3 0006 0007 | |
01e5 ; --------------------------------------------------------------------------------------
01e5 ; Debug chain
01e5 ; --------------------------------------------------------------------------------------
01e5 0001 0004 | | .DBGLEN 0x0001,0x0004
01e7 004b 0051 | K Q| .DBGLNO 0x004b,0x0051,0x005a,0x0065,0x0071
01ec ; --------------------------------------------------------------------------------------
01ec ; Debug chain
01ec ; --------------------------------------------------------------------------------------
01ec 0003 0003 | | .DBGLEN 0x0003,0x0003
01ee 00a3 00a9 | | .DBGLNO 0x00a3,0x00a9,0x00b4,0x00bf,0x00c1,0x00da
01f4 ; --------------------------------------------------------------------------------------
01f4 ; Debug chain
01f4 ; --------------------------------------------------------------------------------------
01f4 0000 0008 | | .DBGLEN 0x0000,0x0008
01f6 00fc 00ff | | .DBGLNO 0x00fc,0x00ff,0x0108,0x010c,0x0118,0x0124,0x0130,0x013c
01fe 0000 0000 | | .XXX[0x2]