|
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_5c84f2
└─⟦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 f200 0c03 | | .XXX[0x19]
0178 4400 c803 |D |
017a 4403 6380 |D c |
017c 086c 4c08 | lL |
017e 79a0 3003 |y 0 |
0180 6380 086d |c m|
0182 b060 a03c | ` <|
0184 11a0 1803 | |
0186 6397 f797 |c |
0188 fb97 fe08 | |
018a fd14 1400 | |
018c 1d22 1c09 | " |
018e 5c00 |\ |
018f 0000 0000 | | .BLANK 0000[0x6]
0195 0013 6400 | d | .XXX[0x6b]
0197 1000 1380 | |
0199 086c 4f80 | lO |
019b 086c 4c0a | lL |
019d 7c55 4f97 ||UO |
019f f808 64f0 | d |
01a1 1b80 086c | l|
01a3 4c03 6797 |L g |
01a5 ff97 f397 | |
01a7 fe08 3600 | 6 |
01a9 0c03 4710 | G |
01ab 0803 4403 | D |
01ad 6b80 086c |k l|
01af 4c08 7da0 |L } |
01b1 4920 0802 |I |
01b3 4882 7f97 |H |
01b5 f125 d803 | % |
01b7 ac02 6060 | ``|
01b9 3c03 ac60 |< `|
01bb a403 ac60 | `|
01bd b407 3397 | 3 |
01bf ff80 086c | l|
01c1 7060 6514 |p`e |
01c3 1b97 f408 | |
01c5 64f0 1b80 |d |
01c7 086c 4c03 | lL |
01c9 6797 ff97 |g |
01cb ef97 fe08 | |
01cd 3600 0c03 |6 |
01cf 4400 cc03 |D |
01d1 4403 6780 |D g |
01d3 086c 4c08 | lL |
01d5 7da0 4920 |} I |
01d7 0802 4882 | H |
01d9 7f97 ed25 | %|
01db d803 ac02 | |
01dd 6060 3c03 |``< |
01df ac60 a403 | ` |
01e1 ac60 b407 | ` |
01e3 3397 ff80 |3 |
01e5 086c 7060 | lp`|
01e7 6514 1803 |e |
01e9 6b80 086d |k m|
01eb b060 cdc0 | ` |
01ed 4920 0802 |I |
01ef 4882 8397 |H |
01f1 f125 d803 | % |
01f3 ac02 6060 | ``|
01f5 3c03 ac60 |< `|
01f7 a403 ac60 | `|
01f9 b407 3397 | 3 |
01fb ff80 086c | l|
01fd 7060 6514 |p`e |
01ff 1803 | |