|
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 8080 8080 | | .BLANK 8080[0x6]
0164 81dd a195 | | .XXX[0xb]
0166 b881 bdd1 | |
0168 a195 c9cc | |
016a 80f4 f881 | |
016c b9d5 b1b0 | |
016e ec28 | ( |
016f 8080 8080 | | .BLANK 8080[0x5]
0174 8081 95b9 | | .XXX[0x6]
0176 9081 8d85 | |
0178 cd94 ec28 | (|
017a 8080 8080 | | .BLANK 8080[0x6]
0180 2880 8080 |( | .XXX[0x80]
0182 8195 b990 | |
0184 818d 85cd | |
0186 94ec 2829 | ()|
0188 95b9 9081 | |
018a 1985 8da5 | |
018c d17d 0dbd | } |
018e b5b5 85b9 | |
0190 91cc ec29 | )|
0192 c1c9 bd8d | |
0194 9591 d5c9 | |
0196 9481 4985 | I |
0198 d1a5 bdb9 | |
019a 85b1 7d0d | } |
019c bdb5 b585 | |
019e b991 ccec | |
01a0 28b4 b4b4 |( |
01a2 b551 a1a5 | Q |
01a4 cc81 99a5 | |
01a6 b194 819d | |
01a8 95b9 95c9 | |
01aa 85d1 9590 | |
01ac 81bd b8e8 | |
01ae 8111 958d | |
01b0 95b5 8995 | |
01b2 c880 c4cc | |
01b4 b080 c4e4 | |
01b6 e0e4 8185 | |
01b8 d080 e0e8 | |
01ba d4e4 e8c8 | |
01bc c881 0534 | 4|
01be 28b4 b4b4 |( |
01c0 b519 c9bd | |
01c2 b481 4985 | I |
01c4 d1a5 bdb9 | |
01c6 85b0 8111 | |
01c8 95d9 95b1 | |
01ca bdc1 b595 | |
01cc b9d0 81cd | |
01ce bdd5 c98d | |
01d0 9481 99a5 | |
01d2 b194 e880 | |
01d4 8515 3959 | 9Y|
01d6 2549 3d39 |%I=9|
01d8 3515 3950 |5 9P|
01da b915 1125 | %|
01dc 513d 497d |Q=I}|
01de 2d15 654c |- eL|
01e0 b949 1558 | I X|
01e2 c4c1 7d5d | }]|
01e4 3d49 2d25 |=I-%|
01e6 391c b955 |9 U|
01e8 3925 514c |9%QL|
01ea b90d 4915 | I |
01ec 0551 157d | Q }|
01ee 0d3d 3535 | =55|
01f0 0539 114d | 9 M|
01f2 7d19 2531 |} %1|
01f4 154c b935 | L 5|
01f6 054d 5115 | MQ |
01f8 497d 2d15 |I}- |
01fa 654d 7d19 |eM} |
01fc 2531 149d |%1 |
01fe 58a0 d0e0 |X |