|
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_5f28f0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0170 | p | .CONST 0x0170 ; 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 0036 | 6 | .CONST 0x0036 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000c | | .CONST 0x000c ; Number of locals
000b INIT_0008:
000b e01d | | Load 0x0,0x1d
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 e01d | | Load 0x0,0x1d
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 e01d | | Load 0x0,0x1d
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 e01d | | Load 0x0,0x1d
001b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001c 02c7 | | Declare_Variable Any
001d 00d8 | | Load_Top At_Offset_0
001e 1c00 | | Execute_Immediate Run_Utility,0x0
001f e214 | | Load 0x1,0x14
0020 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0021 e214 | | Load 0x1,0x14
0022 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0023 0322 | " | Declare_Variable Record
0024 00d8 | | Load_Top At_Offset_0
0025 1c00 | | Execute_Immediate Run_Utility,0x0
0026 029e 007b | {| Declare_Subprogram INIT_0078,For_Call,Unelaborated
0028 4808 |H | Short_Literal 0x8
0029 4803 |H | Short_Literal 0x3
002a 0099 | | Action Reference_Dynamic
002b 4808 |H | Short_Literal 0x8
002c 4803 |H | Short_Literal 0x3
002d 0099 | | Action Reference_Dynamic
002e 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
0030 4808 |H | Short_Literal 0x8
0031 4803 |H | Short_Literal 0x3
0032 0099 | | Action Reference_Dynamic
0033 00c7 | | Action Elaborate_Subprogram
0034 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
0036 BODY_0008:
0036 e602 | | Load 0x3,0x2
0037 00ea | | Load_Encached Null_String_Cache
0038 e7fd | | Load 0x3,-0x3
0039 4801 |H | Short_Literal 0x1
003a e01d | | Load 0x0,0x1d
003b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
003c c602 | | Store 0x3,0x2
003d e603 | | Load 0x3,0x3
003e 00ea | | Load_Encached Null_String_Cache
003f e7fc | | Load 0x3,-0x4
0040 4801 |H | Short_Literal 0x1
0041 e01d | | Load 0x0,0x1d
0042 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0043 c603 | | Store 0x3,0x3
0044 e604 | | Load 0x3,0x4
0045 00ea | | Load_Encached Null_String_Cache
0046 e7fe | | Load 0x3,-0x2
0047 4801 |H | Short_Literal 0x1
0048 e01d | | Load 0x0,0x1d
0049 1814 | | Execute Package,Field_Execute,Field_Number 0x14
004a c604 | | Store 0x3,0x4
004b e605 | | Load 0x3,0x5
004c 00ea | | Load_Encached Null_String_Cache
004d e7fb | | Load 0x3,-0x5
004e 4801 |H | Short_Literal 0x1
004f e01d | | Load 0x0,0x1d
0050 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0051 c605 | | Store 0x3,0x5
0052 e214 | | Load 0x1,0x14
0053 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0054 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0055 e011 | | Load 0x0,0x11
0056 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0057 e018 | | Load 0x0,0x18
0058 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0059 e214 | | Load 0x1,0x14
005a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
005b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
005c c606 | | Store 0x3,0x6
005d e607 | | Load 0x3,0x7
005e e7ff | | Load 0x3,-0x1
005f e214 | | Load 0x1,0x14
0060 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0061 00d1 | | Pop_Control Pop_Count_1
0062 e607 | | Load 0x3,0x7
0063 e214 | | Load 0x1,0x14
0064 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0065 7001 |p | Jump_Nonzero 0x67
0066 860c | | Call 0x3,0xc
0067 e602 | | Load 0x3,0x2
0068 e01d | | Load 0x0,0x1d
0069 1816 | | Execute Package,Field_Execute,Field_Number 0x16
006a c602 | | Store 0x3,0x2
006b e603 | | Load 0x3,0x3
006c e01d | | Load 0x0,0x1d
006d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
006e c603 | | Store 0x3,0x3
006f e604 | | Load 0x3,0x4
0070 e01d | | Load 0x0,0x1d
0071 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0072 c604 | | Store 0x3,0x4
0073 e605 | | Load 0x3,0x5
0074 e01d | | Load 0x0,0x1d
0075 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0076 c605 | | Store 0x3,0x5
0077 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0085 | | .CONST 0x0085 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0004 | | .CONST 0x0004 ; Number of locals
007b INIT_0078:
007b e008 | | Load 0x0,0x8
007c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
007d 02ff | | Declare_Variable Variant_Record
007e 00d8 | | Load_Top At_Offset_0
007f 1c00 | | Execute_Immediate Run_Utility,0x0
0080 e008 | | Load 0x0,0x8
0081 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0082 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0083 e008 | | Load 0x0,0x8
0084 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0085 BODY_0078:
0085 e008 | | Load 0x0,0x8
0086 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0087 00db | | Load_Top At_Offset_3
0088 60cf |` | Indirect_Literal Discrete,0x158,{0x00000000, 0x00004000}
0089 e010 | | Load 0x0,0x10
008a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008b 4800 |H | Short_Literal 0x0
008c e9ff | | Load 0x4,-0x1
008d e008 | | Load 0x0,0x8
008e 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
008f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0090 00d1 | | Pop_Control Pop_Count_1
0091 0059 | Y | Store_Top Discrete,At_Offset_1
0092 e008 | | Load 0x0,0x8
0093 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0094 e008 | | Load 0x0,0x8
0095 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0096 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0097 60c0 |` | Indirect_Literal Discrete,0x158,{0x00000000, 0x00004000}
0098 e010 | | Load 0x0,0x10
0099 1b0e | | Execute Package,Field_Read,Field_Number 0xe
009a e802 | | Load 0x4,0x2
009b e008 | | Load 0x0,0x8
009c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
009d 180e | | Execute Package,Field_Execute,Field_Number 0xe
009e 005b | [ | Store_Top Discrete,At_Offset_3
009f 0059 | Y | Store_Top Discrete,At_Offset_1
00a0 00d9 | | Load_Top At_Offset_1
00a1 e9fe | | Load 0x4,-0x2
00a2 027f | | Execute Discrete,Equal
00a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ae | | .CONST 0x00ae ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0003 | | .CONST 0x0003 ; Number of locals
00ab INIT_00a8:
00ab 00e1 | | Load_Encached Boolean_Cache
00ac e008 | | Load 0x0,0x8
00ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ae BODY_00a8:
00ae e008 | | Load 0x0,0x8
00af 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b0 00e1 | | Load_Encached Boolean_Cache
00b1 60a6 |` | Indirect_Literal Discrete,0x158,{0x00000000, 0x00004000}
00b2 e010 | | Load 0x0,0x10
00b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b4 e9ff | | Load 0x4,-0x1
00b5 e008 | | Load 0x0,0x8
00b6 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
00b7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b8 005b | [ | Store_Top Discrete,At_Offset_3
00b9 0059 | Y | Store_Top Discrete,At_Offset_1
00ba 00d8 | | Load_Top At_Offset_0
00bb 7002 |p | Jump_Nonzero 0xbe
00bc 00d9 | | Load_Top At_Offset_1
00bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00be 4807 |H | Short_Literal 0x7
00bf 0092 015c | \| Action Push_String_Extended,0x15c ; "Can't get frozenness of object "
00c1 e9ff | | Load 0x4,-0x1
00c2 e008 | | Load 0x0,0x8
00c3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c4 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00c5 01cc | | Execute Vector,Catenate
00c6 8211 | | Call 0x1,0x11
00c7 4800 |H | Short_Literal 0x0
00c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c9 0000 0000 | | .BLANK 0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00e2 | | .CONST 0x00e2 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0004 | | .CONST 0x0004 ; Number of locals
00d3 INIT_00d0:
00d3 e008 | | Load 0x0,0x8
00d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00d5 02c7 | | Declare_Variable Any
00d6 00d8 | | Load_Top At_Offset_0
00d7 1c00 | | Execute_Immediate Run_Utility,0x0
00d8 e008 | | Load 0x0,0x8
00d9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00da 02c7 | | Declare_Variable Any
00db 00d8 | | Load_Top At_Offset_0
00dc 1c00 | | Execute_Immediate Run_Utility,0x0
00dd e008 | | Load 0x0,0x8
00de 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00df 02c7 | | Declare_Variable Any
00e0 00d8 | | Load_Top At_Offset_0
00e1 1c00 | | Execute_Immediate Run_Utility,0x0
00e2 BODY_00d0:
00e2 e607 | | Load 0x3,0x7
00e3 e214 | | Load 0x1,0x14
00e4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00e5 c802 | | Store 0x4,0x2
00e6 00da | | Load_Top At_Offset_2
00e7 e008 | | Load 0x0,0x8
00e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00e9 7064 |pd | Jump_Nonzero 0x14e
00ea 00da | | Load_Top At_Offset_2
00eb e008 | | Load 0x0,0x8
00ec 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
00ed 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ee c803 | | Store 0x4,0x3
00ef 00d9 | | Load_Top At_Offset_1
00f0 860b | | Call 0x3,0xb
00f1 6811 |h | Jump_Zero 0x103
00f2 00d9 | | Load_Top At_Offset_1
00f3 e606 | | Load 0x3,0x6
00f4 e214 | | Load 0x1,0x14
00f5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00f6 700c |p | Jump_Nonzero 0x103
00f7 e606 | | Load 0x3,0x6
00f8 00da | | Load_Top At_Offset_2
00f9 e214 | | Load 0x1,0x14
00fa 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00fb c606 | | Store 0x3,0x6
00fc 00d9 | | Load_Top At_Offset_1
00fd e008 | | Load 0x0,0x8
00fe 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00ff 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0100 e605 | | Load 0x3,0x5
0101 e01d | | Load 0x0,0x1d
0102 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0103 00da | | Load_Top At_Offset_2
0104 821d | | Call 0x1,0x1d
0105 c804 | | Store 0x4,0x4
0106 00da | | Load_Top At_Offset_2
0107 860b | | Call 0x3,0xb
0108 7003 |p | Jump_Nonzero 0x10c
0109 00d8 | | Load_Top At_Offset_0
010a 860b | | Call 0x3,0xb
010b 6814 |h | Jump_Zero 0x120
010c 00d8 | | Load_Top At_Offset_0
010d e606 | | Load 0x3,0x6
010e e214 | | Load 0x1,0x14
010f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0110 700f |p | Jump_Nonzero 0x120
0111 e606 | | Load 0x3,0x6
0112 00d9 | | Load_Top At_Offset_1
0113 e214 | | Load 0x1,0x14
0114 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0115 c606 | | Store 0x3,0x6
0116 00d8 | | Load_Top At_Offset_0
0117 e008 | | Load 0x0,0x8
0118 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0119 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
011a 0092 015d | ]| Action Push_String_Extended,0x15d ; ".?"
011c 01cc | | Execute Vector,Catenate
011d e605 | | Load 0x3,0x5
011e e01d | | Load 0x0,0x1d
011f 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0120 00da | | Load_Top At_Offset_2
0121 e008 | | Load 0x0,0x8
0122 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0123 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0124 e604 | | Load 0x3,0x4
0125 e01d | | Load 0x0,0x1d
0126 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0127 e607 | | Load 0x3,0x7
0128 e214 | | Load 0x1,0x14
0129 1817 | | Execute Package,Field_Execute,Field_Number 0x17
012a 00d1 | | Pop_Control Pop_Count_1
012b e607 | | Load 0x3,0x7
012c e214 | | Load 0x1,0x14
012d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
012e 7001 |p | Jump_Nonzero 0x130
012f 860c | | Call 0x3,0xc
0130 4804 |H | Short_Literal 0x4
0131 00db | | Load_Top At_Offset_3
0132 8609 | | Call 0x3,0x9
0133 680b |h | Jump_Zero 0x13f
0134 00da | | Load_Top At_Offset_2
0135 e008 | | Load 0x0,0x8
0136 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0137 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0138 0092 015d | ]| Action Push_String_Extended,0x15d ; ".?"
013a 01cc | | Execute Vector,Catenate
013b e603 | | Load 0x3,0x3
013c e01d | | Load 0x0,0x1d
013d 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
013e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
013f 4803 |H | Short_Literal 0x3
0140 00db | | Load_Top At_Offset_3
0141 860a | | Call 0x3,0xa
0142 680a |h | Jump_Zero 0x14d
0143 00da | | Load_Top At_Offset_2
0144 e008 | | Load 0x0,0x8
0145 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0146 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0147 0092 015d | ]| Action Push_String_Extended,0x15d ; ".?"
0149 01cc | | Execute Vector,Catenate
014a e602 | | Load 0x3,0x2
014b e01d | | Load 0x0,0x1d
014c 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
014d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
014e e607 | | Load 0x3,0x7
014f e214 | | Load 0x1,0x14
0150 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0151 00d1 | | Pop_Control Pop_Count_1
0152 e607 | | Load 0x3,0x7
0153 e214 | | Load 0x1,0x14
0154 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0155 7001 |p | Jump_Nonzero 0x157
0156 860c | | Call 0x3,0xc
0157 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0158 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
015c ; --------------------------------------------------------------------------------------
015c ; STRING TABLE
015c ; --------------------------------------------------------------------------------------
015c 0006 | | .STRTAB 0x0006->0x015f ; "Can't get frozenness of object "
015d 0023 | # | .STRTAB 0x0023->0x016e ; ".?"
015e 0023 | # | .STREND 0x0023->0x016f
015f 4361 6e27 |Can'| .STRTAB_STRINGS
0170 ; --------------------------------------------------------------------------------------
0170 ; Debug Table
0170 ; --------------------------------------------------------------------------------------
0170 0004 000d | | .DEBUG4 0x0004,0x000d,0x000e,0x0000,0x0001,0x0000
0176 25c1 c9a5 |% | .XXX[0x8a]
0178 b9d1 98a0 | |
017a 8931 2509 | 1% |
017c 4cf5 71d1 |L q |
017e 71d0 b5b1 |q |
0180 c9c1 8dcd | |
0182 d98d 71b8 | q |
0184 88a4 ec28 | (|
0186 2424 2589 |$$% |
0188 c995 85ac | |
018a ec28 2425 | ($%|
018c 8d85 cd94 | |
018e 8105 413d | A=|
0190 3131 3ce8 |11< |
0192 2824 2425 |($$%|
0194 c1c9 a5b9 | |
0196 d198 a088 | |
0198 95cc 88b1 | |
019a e5e5 d195 | |
019c e1d0 a4ec | |
019e 2824 2425 |($$%|
01a0 89c9 9585 | |
01a2 acec 2824 | ($|
01a4 258d 85cd |% |
01a6 9481 5531 | U1|
01a8 5149 2560 |QI%`|
01aa e828 2424 | ($$|
01ac 25c1 c9a5 |% |
01ae b9d1 98a0 | |
01b0 8895 cc88 | |
01b2 b1e5 e5d1 | |
01b4 95e1 d0a4 | |
01b6 ec28 2424 | ($$|
01b8 2589 c995 |% |
01ba 85ac ec28 | (|
01bc 25f4 29f4 |% ) |
01be 29b5 85a5 |) |
01c0 b8a1 85c9 | |
01c2 9d8c b185 | |
01c4 c99d d8a4 | |
01c6 29a5 b9d0 |) |
01c8 2585 c99d |% |
01ca 8cec 298d | ) |
01cc a185 c824 | $|
01ce a8a9 85c9 | |
01d0 9dd8 ec81 | |
01d2 ec28 25a5 | (% |
01d4 9880 a185 | |
01d6 c99d 8c80 | |
01d8 84f4 80c8 | |
01da a425 d5cd | % |
01dc 859d 94a1 | |
01de 85c9 9dd9 | |
01e0 6cc1 74a4 |l t |
01e2 ec28 25a5 | (% |
01e4 9880 a1cd | |
01e6 d1c9 8db5 | |
01e8 c0a1 85c9 | |
01ea 9dd9 6cc5 | l |
01ec 74b0 894d |t M|
01ee 5538 88a4 |U8 |
01f0 80f4 f480 | |
01f2 c0a4 2424 | $$|
01f4 25c1 bdc9 |% |
01f6 d1a5 b99c | |
01f8 80f4 814d | M|
01fa 5538 ec28 |U8 (|
01fc 2595 b1cd |% |
01fe 9425 a598 | % |