|
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_664cf7
└─⟦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 01d0 | | .CONST 0x01d0 ; 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 013c | < | .CONST 0x013c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 4800 |H | Short_Literal 0x0
000f 4807 |H | Short_Literal 0x7
0010 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call
0012 03fd | | Declare_Type Discrete,Defined
0013 4800 |H | Short_Literal 0x0
0014 4802 |H | Short_Literal 0x2
0015 e001 | | Load 0x0,0x1
0016 01d7 | | Execute Vector,Field_Read
0017 02a0 | | Declare_Subprogram Null_Subprogram
0018 038e | | Declare_Type Package,Defined
0019 e001 | | Load 0x0,0x1
001a 4801 |H | Short_Literal 0x1
001b e001 | | Load 0x0,0x1
001c 01d7 | | Execute Vector,Field_Read
001d 4802 |H | Short_Literal 0x2
001e 00db | | Load_Top At_Offset_3
001f 020e | | Execute Module,Augment_Imports
0020 0387 | | Declare_Variable Package
0021 e002 | | Load 0x0,0x2
0022 4801 |H | Short_Literal 0x1
0023 00da | | Load_Top At_Offset_2
0024 020e | | Execute Module,Augment_Imports
0025 00d8 | | Load_Top At_Offset_0
0026 020f | | Execute Module,Activate
0027 4800 |H | Short_Literal 0x0
0028 4804 |H | Short_Literal 0x4
0029 e001 | | Load 0x0,0x1
002a 01d7 | | Execute Vector,Field_Read
002b 02a0 | | Declare_Subprogram Null_Subprogram
002c 038e | | Declare_Type Package,Defined
002d e001 | | Load 0x0,0x1
002e 4803 |H | Short_Literal 0x3
002f e001 | | Load 0x0,0x1
0030 01d7 | | Execute Vector,Field_Read
0031 4802 |H | Short_Literal 0x2
0032 00db | | Load_Top At_Offset_3
0033 020e | | Execute Module,Augment_Imports
0034 0387 | | Declare_Variable Package
0035 e002 | | Load 0x0,0x2
0036 4801 |H | Short_Literal 0x1
0037 00da | | Load_Top At_Offset_2
0038 020e | | Execute Module,Augment_Imports
0039 00d8 | | Load_Top At_Offset_0
003a 020f | | Execute Module,Activate
003b 4800 |H | Short_Literal 0x0
003c 4808 |H | Short_Literal 0x8
003d e001 | | Load 0x0,0x1
003e 01d7 | | Execute Vector,Field_Read
003f 02a0 | | Declare_Subprogram Null_Subprogram
0040 038e | | Declare_Type Package,Defined
0041 e001 | | Load 0x0,0x1
0042 4807 |H | Short_Literal 0x7
0043 e001 | | Load 0x0,0x1
0044 01d7 | | Execute Vector,Field_Read
0045 4802 |H | Short_Literal 0x2
0046 00db | | Load_Top At_Offset_3
0047 020e | | Execute Module,Augment_Imports
0048 0387 | | Declare_Variable Package
0049 e002 | | Load 0x0,0x2
004a 4801 |H | Short_Literal 0x1
004b 00da | | Load_Top At_Offset_2
004c 020e | | Execute Module,Augment_Imports
004d 00d8 | | Load_Top At_Offset_0
004e 020f | | Execute Module,Activate
004f 4800 |H | Short_Literal 0x0
0050 4806 |H | Short_Literal 0x6
0051 e001 | | Load 0x0,0x1
0052 01d7 | | Execute Vector,Field_Read
0053 02a0 | | Declare_Subprogram Null_Subprogram
0054 038e | | Declare_Type Package,Defined
0055 e001 | | Load 0x0,0x1
0056 4805 |H | Short_Literal 0x5
0057 e001 | | Load 0x0,0x1
0058 01d7 | | Execute Vector,Field_Read
0059 4802 |H | Short_Literal 0x2
005a 00db | | Load_Top At_Offset_3
005b 020e | | Execute Module,Augment_Imports
005c 0387 | | Declare_Variable Package
005d e002 | | Load 0x0,0x2
005e 4801 |H | Short_Literal 0x1
005f 00da | | Load_Top At_Offset_2
0060 020e | | Execute Module,Augment_Imports
0061 00d8 | | Load_Top At_Offset_0
0062 020f | | Execute Module,Activate
0063 4800 |H | Short_Literal 0x0
0064 480c |H | Short_Literal 0xc
0065 e001 | | Load 0x0,0x1
0066 01d7 | | Execute Vector,Field_Read
0067 02a0 | | Declare_Subprogram Null_Subprogram
0068 038e | | Declare_Type Package,Defined
0069 e001 | | Load 0x0,0x1
006a 480b |H | Short_Literal 0xb
006b e001 | | Load 0x0,0x1
006c 01d7 | | Execute Vector,Field_Read
006d 4802 |H | Short_Literal 0x2
006e 00db | | Load_Top At_Offset_3
006f 020e | | Execute Module,Augment_Imports
0070 0387 | | Declare_Variable Package
0071 e002 | | Load 0x0,0x2
0072 4801 |H | Short_Literal 0x1
0073 00da | | Load_Top At_Offset_2
0074 020e | | Execute Module,Augment_Imports
0075 00d8 | | Load_Top At_Offset_0
0076 020f | | Execute Module,Activate
0077 4800 |H | Short_Literal 0x0
0078 480a |H | Short_Literal 0xa
0079 e001 | | Load 0x0,0x1
007a 01d7 | | Execute Vector,Field_Read
007b 02a0 | | Declare_Subprogram Null_Subprogram
007c 038e | | Declare_Type Package,Defined
007d e001 | | Load 0x0,0x1
007e 4809 |H | Short_Literal 0x9
007f e001 | | Load 0x0,0x1
0080 01d7 | | Execute Vector,Field_Read
0081 4802 |H | Short_Literal 0x2
0082 00db | | Load_Top At_Offset_3
0083 020e | | Execute Module,Augment_Imports
0084 0387 | | Declare_Variable Package
0085 e002 | | Load 0x0,0x2
0086 4801 |H | Short_Literal 0x1
0087 00da | | Load_Top At_Offset_2
0088 020e | | Execute Module,Augment_Imports
0089 00d8 | | Load_Top At_Offset_0
008a 020f | | Execute Module,Activate
008b 4800 |H | Short_Literal 0x0
008c 480e |H | Short_Literal 0xe
008d e001 | | Load 0x0,0x1
008e 01d7 | | Execute Vector,Field_Read
008f 02a0 | | Declare_Subprogram Null_Subprogram
0090 038e | | Declare_Type Package,Defined
0091 e001 | | Load 0x0,0x1
0092 480d |H | Short_Literal 0xd
0093 e001 | | Load 0x0,0x1
0094 01d7 | | Execute Vector,Field_Read
0095 4802 |H | Short_Literal 0x2
0096 00db | | Load_Top At_Offset_3
0097 020e | | Execute Module,Augment_Imports
0098 0387 | | Declare_Variable Package
0099 e002 | | Load 0x0,0x2
009a 4801 |H | Short_Literal 0x1
009b 00da | | Load_Top At_Offset_2
009c 020e | | Execute Module,Augment_Imports
009d 00d8 | | Load_Top At_Offset_0
009e 020f | | Execute Module,Activate
009f 0093 0000 | | push_full_address 0x0
00a1 60aa |` | Indirect_Literal Discrete,0x14c,{0x80000000, 0x00010000}
00a2 0273 | s | Execute Discrete,Plus
00a3 e003 | | Load 0x0,0x3
00a4 0273 | s | Execute Discrete,Plus
00a5 e004 | | Load 0x0,0x4
00a6 0273 | s | Execute Discrete,Plus
00a7 4806 |H | Short_Literal 0x6
00a8 e20e | | Load 0x1,0xe
00a9 4807 |H | Short_Literal 0x7
00aa 4800 |H | Short_Literal 0x0
00ab 0092 0176 | v| Action Push_String_Extended,0x176 ; "HOLDS_NIL"
00ad e20f | | Load 0x1,0xf
00ae 180d | | Execute Package,Field_Execute,Field_Number 0xd
00af e20f | | Load 0x1,0xf
00b0 190e | | Execute Package,Field_Reference,Field_Number 0xe
00b1 4801 |H | Short_Literal 0x1
00b2 0092 0177 | w| Action Push_String_Extended,0x177 ; "HOLDS_NIL_SATISFIED"
00b4 e210 | | Load 0x1,0x10
00b5 180d | | Execute Package,Field_Execute,Field_Number 0xd
00b6 e210 | | Load 0x1,0x10
00b7 190e | | Execute Package,Field_Reference,Field_Number 0xe
00b8 4802 |H | Short_Literal 0x2
00b9 0092 0178 | x| Action Push_String_Extended,0x178 ; "HOLDS_OBJECT_CEIL"
00bb e211 | | Load 0x1,0x11
00bc 180d | | Execute Package,Field_Execute,Field_Number 0xd
00bd e211 | | Load 0x1,0x11
00be 190e | | Execute Package,Field_Reference,Field_Number 0xe
00bf 4803 |H | Short_Literal 0x3
00c0 0092 0179 | y| Action Push_String_Extended,0x179 ; "HOLDS_OBJECT_CEIL_AT_OBJ"
00c2 e212 | | Load 0x1,0x12
00c3 180d | | Execute Package,Field_Execute,Field_Number 0xd
00c4 e212 | | Load 0x1,0x12
00c5 190e | | Execute Package,Field_Reference,Field_Number 0xe
00c6 4804 |H | Short_Literal 0x4
00c7 0092 017a | z| Action Push_String_Extended,0x17a ; "HOLDS_OBJECT_NOT_CEIL_ON_LADDER"
00c9 e213 | | Load 0x1,0x13
00ca 180d | | Execute Package,Field_Execute,Field_Number 0xd
00cb e213 | | Load 0x1,0x13
00cc 190e | | Execute Package,Field_Reference,Field_Number 0xe
00cd 4805 |H | Short_Literal 0x5
00ce 0092 017b | {| Action Push_String_Extended,0x17b ; "HOLDS_OBJECT_NOT_CEIL_AT"
00d0 e214 | | Load 0x1,0x14
00d1 180d | | Execute Package,Field_Execute,Field_Number 0xd
00d2 e214 | | Load 0x1,0x14
00d3 190e | | Execute Package,Field_Reference,Field_Number 0xe
00d4 4806 |H | Short_Literal 0x6
00d5 0092 017c | || Action Push_String_Extended,0x17c ; "HOLDS_OBJECT_SATISFIED"
00d7 e215 | | Load 0x1,0x15
00d8 180d | | Execute Package,Field_Execute,Field_Number 0xd
00d9 e215 | | Load 0x1,0x15
00da 190e | | Execute Package,Field_Reference,Field_Number 0xe
00db 4807 |H | Short_Literal 0x7
00dc 0092 017d | }| Action Push_String_Extended,0x17d ; "NO_MORE"
00de 00c4 | | Action Make_Default
00df a005 | | Store_Unchecked 0x0,0x5
00e0 4807 |H | Short_Literal 0x7
00e1 0092 017d | }| Action Push_String_Extended,0x17d ; "NO_MORE"
00e3 00c4 | | Action Make_Default
00e4 a005 | | Store_Unchecked 0x0,0x5
00e5 4807 |H | Short_Literal 0x7
00e6 0092 017d | }| Action Push_String_Extended,0x17d ; "NO_MORE"
00e8 00c4 | | Action Make_Default
00e9 a005 | | Store_Unchecked 0x0,0x5
00ea 4807 |H | Short_Literal 0x7
00eb 0092 017d | }| Action Push_String_Extended,0x17d ; "NO_MORE"
00ed 00c4 | | Action Make_Default
00ee a005 | | Store_Unchecked 0x0,0x5
00ef 4807 |H | Short_Literal 0x7
00f0 0092 017d | }| Action Push_String_Extended,0x17d ; "NO_MORE"
00f2 00c4 | | Action Make_Default
00f3 a005 | | Store_Unchecked 0x0,0x5
00f4 4807 |H | Short_Literal 0x7
00f5 0092 017d | }| Action Push_String_Extended,0x17d ; "NO_MORE"
00f7 00c4 | | Action Make_Default
00f8 a005 | | Store_Unchecked 0x0,0x5
00f9 4807 |H | Short_Literal 0x7
00fa 0092 017d | }| Action Push_String_Extended,0x17d ; "NO_MORE"
00fc 00c4 | | Action Make_Default
00fd a005 | | Store_Unchecked 0x0,0x5
00fe 4807 |H | Short_Literal 0x7
00ff 0092 017d | }| Action Push_String_Extended,0x17d ; "NO_MORE"
0101 00c4 | | Action Make_Default
0102 a005 | | Store_Unchecked 0x0,0x5
0103 4807 |H | Short_Literal 0x7
0104 0092 017d | }| Action Push_String_Extended,0x17d ; "NO_MORE"
0106 00c4 | | Action Make_Default
0107 a005 | | Store_Unchecked 0x0,0x5
0108 4807 |H | Short_Literal 0x7
0109 0092 017d | }| Action Push_String_Extended,0x17d ; "NO_MORE"
010b 00c4 | | Action Make_Default
010c a005 | | Store_Unchecked 0x0,0x5
010d 4807 |H | Short_Literal 0x7
010e 0092 017d | }| Action Push_String_Extended,0x17d ; "NO_MORE"
0110 00c4 | | Action Make_Default
0111 a005 | | Store_Unchecked 0x0,0x5
0112 4807 |H | Short_Literal 0x7
0113 0092 017d | }| Action Push_String_Extended,0x17d ; "NO_MORE"
0115 00c4 | | Action Make_Default
0116 a005 | | Store_Unchecked 0x0,0x5
0117 4807 |H | Short_Literal 0x7
0118 0092 017d | }| Action Push_String_Extended,0x17d ; "NO_MORE"
011a 00c4 | | Action Make_Default
011b a005 | | Store_Unchecked 0x0,0x5
011c e006 | | Load 0x0,0x6
011d c238 | 8 | Store 0x1,0x38
011e e006 | | Load 0x0,0x6
011f c23c | < | Store 0x1,0x3c
0120 e006 | | Load 0x0,0x6
0121 c240 | @ | Store 0x1,0x40
0122 e006 | | Load 0x0,0x6
0123 c244 | D | Store 0x1,0x44
0124 e006 | | Load 0x0,0x6
0125 c248 | H | Store 0x1,0x48
0126 e006 | | Load 0x0,0x6
0127 c24c | L | Store 0x1,0x4c
0128 e006 | | Load 0x0,0x6
0129 c250 | P | Store 0x1,0x50
012a e006 | | Load 0x0,0x6
012b c254 | T | Store 0x1,0x54
012c e006 | | Load 0x0,0x6
012d c258 | X | Store 0x1,0x58
012e e006 | | Load 0x0,0x6
012f c25c | \ | Store 0x1,0x5c
0130 e006 | | Load 0x0,0x6
0131 c260 | ` | Store 0x1,0x60
0132 e006 | | Load 0x0,0x6
0133 c264 | d | Store 0x1,0x64
0134 e006 | | Load 0x0,0x6
0135 c268 | h | Store 0x1,0x68
0136 e007 | | Load 0x0,0x7
0137 0387 | | Declare_Variable Package
0138 00d8 | | Load_Top At_Offset_0
0139 020f | | Execute Module,Activate
013a 1d0d | | Execute_Immediate Reference_Lex_1,0xd
013b 00c7 | | Action Elaborate_Subprogram
013c BODY_0008:
013c 00bc | | Action Signal_Activated
013d 00bb | | Action Signal_Completion
013e 0000 0000 | | .XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00db | | Load_Top At_Offset_3
0144 00db | | Load_Top At_Offset_3
0145 e008 | | Load 0x0,0x8
0146 e216 | | Load 0x1,0x16
0147 0096 | | Execute Package,Entry
0148 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0149 0000 0000 | | .XXX[0x3]
014b 0000 | |
014c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 4607 |F | Jump_Case 0x8
0154 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0155 7807 |x | Jump 0x15d ; case 0x1
0156 780a |x | Jump 0x161 ; case 0x2
0157 780e |x | Jump 0x166 ; case 0x3
0158 7811 |x | Jump 0x16a ; case 0x4
0159 7812 |x | Jump 0x16c ; case 0x5
015a 7813 |x | Jump 0x16e ; case 0x6
015b 7816 |x | Jump 0x172 ; case 0x7
015c 4302 |C | .XXX[0x1]
015d 00da | | Load_Top At_Offset_2
015e 0091 0176 | v| Action Push_String_Extended_Indexed,0x176 ; "HOLDS_NIL"
0160 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0161 00db | | Load_Top At_Offset_3
0162 00db | | Load_Top At_Offset_3
0163 00e0 | | Load_Encached Standard_Cache
0164 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0165 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0166 00da | | Load_Top At_Offset_2
0167 00e0 | | Load_Encached Standard_Cache
0168 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0169 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
016a 00db | | Load_Top At_Offset_3
016b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
016c 00db | | Load_Top At_Offset_3
016d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
016e e20e | | Load 0x1,0xe
016f 00dc | | Load_Top At_Offset_4
0170 0267 | g | Execute Discrete,Predecessor
0171 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0172 e20e | | Load 0x1,0xe
0173 00dc | | Load_Top At_Offset_4
0174 0268 | h | Execute Discrete,Successor
0175 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0176 ; --------------------------------------------------------------------------------------
0176 ; STRING TABLE
0176 ; --------------------------------------------------------------------------------------
0176 0012 | | .STRTAB 0x0012->0x017f ; "HOLDS_NIL"
0177 0019 | | .STRTAB 0x0019->0x0183 ; "HOLDS_NIL_SATISFIED"
0178 002a | * | .STRTAB 0x002a->0x018d ; "HOLDS_OBJECT_CEIL"
0179 0039 | 9 | .STRTAB 0x0039->0x0195 ; "HOLDS_OBJECT_CEIL_AT_OBJ"
017a 004f | O | .STRTAB 0x004f->0x01a1 ; "HOLDS_OBJECT_NOT_CEIL_ON_LADDER"
017b 006c | l | .STRTAB 0x006c->0x01b1 ; "HOLDS_OBJECT_NOT_CEIL_AT"
017c 0082 | | .STRTAB 0x0082->0x01bd ; "HOLDS_OBJECT_SATISFIED"
017d 0096 | | .STRTAB 0x0096->0x01c8 ; "NO_MORE"
017e 009b | | .STREND 0x009b->0x01cb
017f 484f 4c44 |HOLD| .STRTAB_STRINGS
01cc 0000 0000 | | .BLANK 0000[0x4]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; Debug Table
01d0 ; --------------------------------------------------------------------------------------
01d0 0004 0006 | | .DEBUG4 0x0004,0x0006,0xad38,0x0000,0x0001,0x0004
01d6 000b 01e6 | | .DBG4T 0x000b,0x01e6,0x8000,0x0000
01da 000e 01e9 | | .DBG4T 0x000e,0x01e9,0x8000,0x0000
01de 0143 01fc | C | .DBG4T 0x0143,0x01fc,0x0001,0x0000
01e2 0153 0000 | S | .DBG4T 0x0153,0x0000,0x0005,0x0000
01e6 ; --------------------------------------------------------------------------------------
01e6 ; Debug chain
01e6 ; --------------------------------------------------------------------------------------
01e6 0001 0000 | | .DBGLEN 0x0001,0x0000
01e8 000b | | .DBGLNO 0x000b
01e9 ; --------------------------------------------------------------------------------------
01e9 ; Debug chain
01e9 ; --------------------------------------------------------------------------------------
01e9 0011 0000 | | .DBGLEN 0x0011,0x0000
01eb 000e 0013 | | .DBGLNO 0x000e,0x0013,0x0021,0x0027,0x0035,0x003b,0x0049,0x004f,0x005d,0x0063,0x0071,0x0077,0x0085,0x008b,0x0099,0x009f,0x013a
01fc ; --------------------------------------------------------------------------------------
01fc ; Debug chain
01fc ; --------------------------------------------------------------------------------------
01fc 0000 0001 | | .DBGLEN 0x0000,0x0001
01fe 0143 | C | .DBGLNO 0x0143
01ff 0000 | | .XXX[0x1]