|
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, 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 INIT_0068,For_Call
0027 029f 0093 | | Declare_Subprogram INIT_0090,For_Call
0029 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
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_Suprogram New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 8da1 a5b9 | | .XXX[0xa2]
0160 957d 3585 | }5 |
0162 b9d1 a5cd | |
0164 cd84 ec28 | (|
0166 28b4 b481 |( |
0168 1d95 d081 | |
016a b1bd 9ca1 | |
016c 60a4 81d1 |` |
016e bc81 a1a5 | |
0170 9da0 8185 | |
0172 8d8d d5c9 | |
0174 858d e428 | (|
0176 2880 8081 |( |
0178 2dc1 7d31 |- }1|
017a bd9d c1dc | |
017c 80a1 61e0 | a |
017e b081 68c4 | h |
0180 b081 68c8 | h |
0182 a4ec 2828 | ((|
0184 8080 8164 | d|
0186 c480 e8f4 | |
0188 8131 9585 | 1 |
018a 91a5 b99d | |
018c 7d41 85c9 |}A |
018e d080 a165 | e|
0190 e4b0 8130 | 0|
0192 a4ec 2880 | ( |
0194 8081 64c8 | d |
0196 80e8 f481 | |
0198 65e4 80b4 |e |
019a 8164 c4ec | d |
019c 2828 8080 |(( |
019e 815c c480 | \ |
01a0 e8f4 8164 | d|
01a2 c480 a881 | |
01a4 68c4 ec28 |h (|
01a6 8080 815c | \|
01a8 c880 e8f4 | |
01aa 8164 c480 | d |
01ac a881 68c8 | h |
01ae 80ac 80a1 | |
01b0 64c8 80a8 |d |
01b2 8168 c480 | h |
01b4 ac81 64c8 | d |
01b6 80a8 8168 | h|
01b8 c8a4 ec28 | (|
01ba 2880 8081 |( |
01bc 68c4 80e8 |h |
01be f481 3195 | 1 |
01c0 8591 a5b9 | |
01c2 9d7d 4185 | }A |
01c4 c9d0 80a1 | |
01c6 5cc4 80ac |\ |
01c8 815c c8b0 | \ |
01ca 8131 b080 | 1 |
01cc b480 c8a4 | |
01ce ec80 8080 | |
01d0 8080 8080 | |
01d2 b4b4 8199 | |
01d4 bdc9 8d94 | |
01d6 81cd d1bd | |
01d8 c985 9d94 | |
01da 2880 8081 |( |
01dc 68c8 80e8 |h |
01de f481 5cc4 | \ |
01e0 80b4 8168 | h|
01e2 c4ec 2880 | ( |
01e4 8081 68c8 | h |
01e6 80e8 f481 | |
01e8 5cc8 80ac |\ |
01ea 8168 c8ec | h |
01ec 28b4 b481 |( |
01ee 68c4 80ac |h |
01f0 8168 c881 | h |
01f2 a5cc 8164 | d|
01f4 a9b1 bd9c | |
01f6 a160 a481 | ` |
01f8 d1bc 81a1 | |
01fa a59d a081 | |
01fc c1c9 958d | |
01fe a5cd a5bd | |