|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0bf8df
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0158 | X | .CONST 0x0158 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 002b | + | .CONST 0x002b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0009 | | .CONST 0x0009 ; Number of locals
000b INIT_0008:
000b e010 | | Load 0x0,0x10
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 02c7 | | Declare_Variable Any
000e 00d8 | | Load_Top At_Offset_0
000f 1c00 | | Execute_Immediate Run_Utility,0x0
0010 e010 | | Load 0x0,0x10
0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0012 02c7 | | Declare_Variable Any
0013 00d8 | | Load_Top At_Offset_0
0014 1c00 | | Execute_Immediate Run_Utility,0x0
0015 e010 | | Load 0x0,0x10
0016 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0017 02c7 | | Declare_Variable Any
0018 00d8 | | Load_Top At_Offset_0
0019 1c00 | | Execute_Immediate Run_Utility,0x0
001a e011 | | Load 0x0,0x11
001b e213 | | Load 0x1,0x13
001c 0098 | | Execute Package,Field_Read_Dynamic
001d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
001e e011 | | Load 0x0,0x11
001f e213 | | Load 0x1,0x13
0020 0098 | | Execute Package,Field_Read_Dynamic
0021 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0022 0322 | " | Declare_Variable Record
0023 00d8 | | Load_Top At_Offset_0
0024 1c00 | | Execute_Immediate Run_Utility,0x0
0025 029f 006b | k| Declare_Subprogram For_Call,INIT_0068
0027 029f 0093 | | Declare_Subprogram For_Call,INIT_0090
0029 029f 00bb | | Declare_Subprogram For_Call,INIT_00b8
002b BODY_0008:
002b e402 | | Load 0x2,0x2
002c 00ea | | Load_Encached Null_String_Cache
002d e5fe | | Load 0x2,-0x2
002e 4801 |H | Short_Literal 0x1
002f e010 | | Load 0x0,0x10
0030 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0031 c402 | | Store 0x2,0x2
0032 e403 | | Load 0x2,0x3
0033 00ea | | Load_Encached Null_String_Cache
0034 e5fd | | Load 0x2,-0x3
0035 4801 |H | Short_Literal 0x1
0036 e010 | | Load 0x0,0x10
0037 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0038 c403 | | Store 0x2,0x3
0039 e404 | | Load 0x2,0x4
003a 00ea | | Load_Encached Null_String_Cache
003b e5fc | | Load 0x2,-0x4
003c 4801 |H | Short_Literal 0x1
003d e010 | | Load 0x0,0x10
003e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
003f c404 | | Store 0x2,0x4
0040 e011 | | Load 0x0,0x11
0041 e213 | | Load 0x1,0x13
0042 0098 | | Execute Package,Field_Read_Dynamic
0043 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0044 e00c | | Load 0x0,0xc
0045 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0046 e00e | | Load 0x0,0xe
0047 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0048 e011 | | Load 0x0,0x11
0049 e213 | | Load 0x1,0x13
004a 0098 | | Execute Package,Field_Read_Dynamic
004b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
004c c405 | | Store 0x2,0x5
004d 00db | | Load_Top At_Offset_3
004e e5ff | | Load 0x2,-0x1
004f e011 | | Load 0x0,0x11
0050 e213 | | Load 0x1,0x13
0051 0098 | | Execute Package,Field_Read_Dynamic
0052 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0053 00d1 | | Pop_Control Pop_Count_1
0054 00db | | Load_Top At_Offset_3
0055 e011 | | Load 0x0,0x11
0056 e213 | | Load 0x1,0x13
0057 0098 | | Execute Package,Field_Read_Dynamic
0058 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0059 7001 |p | Jump_Nonzero 0x5b
005a 8409 | | Call 0x2,0x9
005b e402 | | Load 0x2,0x2
005c e010 | | Load 0x0,0x10
005d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
005e c402 | | Store 0x2,0x2
005f e403 | | Load 0x2,0x3
0060 e010 | | Load 0x0,0x10
0061 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0062 c403 | | Store 0x2,0x3
0063 e404 | | Load 0x2,0x4
0064 e010 | | Load 0x0,0x10
0065 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0066 c404 | | Store 0x2,0x4
0067 4505 |E | Exit_Subprogram 0x5
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006e | n | .CONST 0x006e ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0003 | | .CONST 0x0003 ; Number of locals
006b INIT_0068:
006b 00e1 | | Load_Encached Boolean_Cache
006c e004 | | Load 0x0,0x4
006d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006e BODY_0068:
006e e004 | | Load 0x0,0x4
006f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0070 00e1 | | Load_Encached Boolean_Cache
0071 601a |` | Indirect_Literal Discrete,0x8c,{0x00000000, 0x00004000}
0072 e00b | | Load 0x0,0xb
0073 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0074 e7ff | | Load 0x3,-0x1
0075 e004 | | Load 0x0,0x4
0076 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0077 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0078 005b | [ | Store_Top Discrete,At_Offset_3
0079 0059 | Y | Store_Top Discrete,At_Offset_1
007a 00d8 | | Load_Top At_Offset_0
007b 7002 |p | Jump_Nonzero 0x7e
007c 00d9 | | Load_Top At_Offset_1
007d 4401 |D | Exit_Subprogram With_Result,0x1
007e 4807 |H | Short_Literal 0x7
007f 0092 0136 | 6| Action Push_String_Extended,0x136 ; "Can't get frozenness of object "
0081 e7ff | | Load 0x3,-0x1
0082 e004 | | Load 0x0,0x4
0083 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0084 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0085 01cc | | Execute Vector,Catenate
0086 8211 | | Call 0x1,0x11
0087 4800 |H | Short_Literal 0x0
0088 4401 |D | Exit_Subprogram With_Result,0x1
0089 0000 0000 | | .XXX[0x3]
008b 0000 | |
008c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
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 4801 |H | Short_Literal 0x1
0094 e7fe | | Load 0x3,-0x2
0095 0092 0137 | 7| Action Push_String_Extended,0x137 ; "'body"
0097 e012 | | Load 0x0,0x12
0098 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0099 e7fe | | Load 0x3,-0x2
009a 01da | | Execute Vector,Bounds
009b 0262 | b | Execute Discrete,In_Range
009c 700a |p | Jump_Nonzero 0xa7
009d 4801 |H | Short_Literal 0x1
009e e7fe | | Load 0x3,-0x2
009f 0092 0138 | 8| Action Push_String_Extended,0x138 ; "'spec"
00a1 e012 | | Load 0x0,0x12
00a2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00a3 e7fe | | Load 0x3,-0x2
00a4 01da | | Execute Vector,Bounds
00a5 0262 | b | Execute Discrete,In_Range
00a6 6805 |h | Jump_Zero 0xac
00a7 00db | | Load_Top At_Offset_3
00a8 00db | | Load_Top At_Offset_3
00a9 e010 | | Load 0x0,0x10
00aa 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00ab 4503 |E | Exit_Subprogram 0x3
00ac 00db | | Load_Top At_Offset_3
00ad 0092 0139 | 9| Action Push_String_Extended,0x139 ; "'SPEC"
00af 01cc | | Execute Vector,Catenate
00b0 00db | | Load_Top At_Offset_3
00b1 e010 | | Load 0x0,0x10
00b2 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00b3 4503 |E | Exit_Subprogram 0x3
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00d2 | | .CONST 0x00d2 ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0005 | | .CONST 0x0005 ; Number of locals
00bb INIT_00b8:
00bb e004 | | Load 0x0,0x4
00bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00bd 02c7 | | Declare_Variable Any
00be e406 | | Load 0x2,0x6
00bf e011 | | Load 0x0,0x11
00c0 e213 | | Load 0x1,0x13
00c1 0098 | | Execute Package,Field_Read_Dynamic
00c2 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00c3 a602 | | Store_Unchecked 0x3,0x2
00c4 e004 | | Load 0x0,0x4
00c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00c6 02c7 | | Declare_Variable Any
00c7 00d8 | | Load_Top At_Offset_0
00c8 1c00 | | Execute_Immediate Run_Utility,0x0
00c9 e004 | | Load 0x0,0x4
00ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00cb 02c7 | | Declare_Variable Any
00cc 00d8 | | Load_Top At_Offset_0
00cd 1c00 | | Execute_Immediate Run_Utility,0x0
00ce 00da | | Load_Top At_Offset_2
00cf e004 | | Load 0x0,0x4
00d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00d1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00d2 BODY_00b8:
00d2 00db | | Load_Top At_Offset_3
00d3 e004 | | Load 0x0,0x4
00d4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d5 7052 |pR | Jump_Nonzero 0x128
00d6 00db | | Load_Top At_Offset_3
00d7 e004 | | Load 0x0,0x4
00d8 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
00d9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00da c603 | | Store 0x3,0x3
00db 00da | | Load_Top At_Offset_2
00dc 8407 | | Call 0x2,0x7
00dd 6815 |h | Jump_Zero 0xf3
00de 00da | | Load_Top At_Offset_2
00df e405 | | Load 0x2,0x5
00e0 e011 | | Load 0x0,0x11
00e1 e213 | | Load 0x1,0x13
00e2 0098 | | Execute Package,Field_Read_Dynamic
00e3 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00e4 700e |p | Jump_Nonzero 0xf3
00e5 e405 | | Load 0x2,0x5
00e6 00db | | Load_Top At_Offset_3
00e7 e011 | | Load 0x0,0x11
00e8 e213 | | Load 0x1,0x13
00e9 0098 | | Execute Package,Field_Read_Dynamic
00ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00eb c405 | | Store 0x2,0x5
00ec 00da | | Load_Top At_Offset_2
00ed e004 | | Load 0x0,0x4
00ee 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00ef 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00f0 e404 | | Load 0x2,0x4
00f1 e010 | | Load 0x0,0x10
00f2 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00f3 00db | | Load_Top At_Offset_3
00f4 8217 | | Call 0x1,0x17
00f5 c604 | | Store 0x3,0x4
00f6 00db | | Load_Top At_Offset_3
00f7 8407 | | Call 0x2,0x7
00f8 7003 |p | Jump_Nonzero 0xfc
00f9 00d9 | | Load_Top At_Offset_1
00fa 8407 | | Call 0x2,0x7
00fb 6818 |h | Jump_Zero 0x114
00fc 00d9 | | Load_Top At_Offset_1
00fd e405 | | Load 0x2,0x5
00fe e011 | | Load 0x0,0x11
00ff e213 | | Load 0x1,0x13
0100 0098 | | Execute Package,Field_Read_Dynamic
0101 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0102 7011 |p | Jump_Nonzero 0x114
0103 e405 | | Load 0x2,0x5
0104 00da | | Load_Top At_Offset_2
0105 e011 | | Load 0x0,0x11
0106 e213 | | Load 0x1,0x13
0107 0098 | | Execute Package,Field_Read_Dynamic
0108 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0109 c405 | | Store 0x2,0x5
010a 00d9 | | Load_Top At_Offset_1
010b e004 | | Load 0x0,0x4
010c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
010d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
010e 0092 013a | :| Action Push_String_Extended,0x13a ; ".?"
0110 01cc | | Execute Vector,Catenate
0111 e404 | | Load 0x2,0x4
0112 e010 | | Load 0x0,0x10
0113 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0114 00d8 | | Load_Top At_Offset_0
0115 e403 | | Load 0x2,0x3
0116 8408 | | Call 0x2,0x8
0117 e406 | | Load 0x2,0x6
0118 e011 | | Load 0x0,0x11
0119 e213 | | Load 0x1,0x13
011a 0098 | | Execute Package,Field_Read_Dynamic
011b 181e | | Execute Package,Field_Execute,Field_Number 0x1e
011c 00d1 | | Pop_Control Pop_Count_1
011d e406 | | Load 0x2,0x6
011e e011 | | Load 0x0,0x11
011f e213 | | Load 0x1,0x13
0120 0098 | | Execute Package,Field_Read_Dynamic
0121 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0122 7001 |p | Jump_Nonzero 0x124
0123 8409 | | Call 0x2,0x9
0124 00d8 | | Load_Top At_Offset_0
0125 e402 | | Load 0x2,0x2
0126 8408 | | Call 0x2,0x8
0127 4501 |E | Exit_Subprogram 0x1
0128 e406 | | Load 0x2,0x6
0129 e011 | | Load 0x0,0x11
012a e213 | | Load 0x1,0x13
012b 0098 | | Execute Package,Field_Read_Dynamic
012c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
012d 00d1 | | Pop_Control Pop_Count_1
012e e406 | | Load 0x2,0x6
012f e011 | | Load 0x0,0x11
0130 e213 | | Load 0x1,0x13
0131 0098 | | Execute Package,Field_Read_Dynamic
0132 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0133 7001 |p | Jump_Nonzero 0x135
0134 8409 | | Call 0x2,0x9
0135 4501 |E | Exit_Subprogram 0x1
0136 ; --------------------------------------------------------------------------------------
0136 ; STRING TABLE
0136 ; --------------------------------------------------------------------------------------
0136 000c | | .STRTAB 0x000c->0x013c ; "Can't get frozenness of object "
0137 0029 | ) | .STRTAB 0x0029->0x014b ; "'body"
0138 002c | , | .STRTAB 0x002c->0x014e ; "'spec"
0139 002f | / | .STRTAB 0x002f->0x0150 ; "'SPEC"
013a 0032 | 2 | .STRTAB 0x0032->0x0153 ; ".?"
013b 0032 | 2 | .STREND 0x0032->0x0154
013c 4361 6e27 |Can'| .STRTAB_STRINGS
0154 0000 0000 | | .BLANK 0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; Debug Table
0158 ; --------------------------------------------------------------------------------------
0158 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0ba4,0x0000,0x0001,0x0000
015e 0000 0000 | | .BLANK 0000[0x17]
0175 0002 9ca8 | | .XXX[0x8b]
0177 0000 1000 | |
0179 0000 07c3 | |
017b fffc 0000 | |
017d 0002 e8a8 | |
017f 0000 0000 | |
0181 0000 1bc3 | |
0183 fffc 0000 | |
0185 0003 38a8 | 8 |
0187 0000 0000 | |
0189 0000 1bc3 | |
018b fffc 0000 | |
018d 0003 98a8 | |
018f 0000 0000 | |
0191 0000 1bc3 | |
0193 fffc 0000 | |
0195 0003 dca8 | |
0197 0000 0000 | |
0199 0000 1bc3 | |
019b fffc 0000 | |
019d 0000 58ac | X |
019f 0000 0000 | |
01a1 0000 1bc3 | |
01a3 fffc 0000 | |
01a5 0000 acac | |
01a7 0000 0000 | |
01a9 0000 1bc3 | |
01ab fffc 0000 | |
01ad 0000 e8ac | |
01af 0000 0000 | |
01b1 0000 1bc3 | |
01b3 fffc 0000 | |
01b5 0001 48ac | H |
01b7 0000 0000 | |
01b9 0000 1bc3 | |
01bb fffc 0000 | |
01bd 0001 bcac | |
01bf 0000 0000 | |
01c1 0000 1bc3 | |
01c3 fffc 0000 | |
01c5 0002 08ac | |
01c7 0000 0000 | |
01c9 0000 1bc3 | |
01cb fffc 0000 | |
01cd 0002 50ac | P |
01cf 0000 0000 | |
01d1 0000 1bc3 | |
01d3 fffc 0000 | |
01d5 0002 a0ac | |
01d7 0000 0000 | |
01d9 0000 1bc3 | |
01db fffc 0000 | |
01dd 0002 e8ac | |
01df 0000 0000 | |
01e1 0000 1bc3 | |
01e3 fffc 0000 | |
01e5 0003 2cac | , |
01e7 0000 0000 | |
01e9 0000 1bc3 | |
01eb fffc 0000 | |
01ed 0003 90ac | |
01ef 0000 0000 | |
01f1 0000 1bc3 | |
01f3 fffc 0000 | |
01f5 0003 a8ac | |
01f7 0000 0000 | |
01f9 0000 1bc3 | |
01fb fffc 0000 | |
01fd 0003 c0ac | |
01ff 0000 | |