|
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 2e0c dd10 |. | .XXX[0x8a]
0178 0922 c120 | " |
017a 4520 2e0c |E . |
017c dd10 0922 | "|
017e bd20 4520 | E |
0180 2e0c dd10 |. |
0182 0922 c520 | " |
0184 4520 2e0c |E . |
0186 dd10 0922 | "|
0188 ad20 4520 | E |
018a 2e0c dd10 |. |
018c 0922 6520 | "e |
018e 4520 2e0c |E . |
0190 dd10 0922 | "|
0192 a920 4520 | E |
0194 2e0c dd10 |. |
0196 0922 a520 | " |
0198 4520 2e0c |E . |
019a dd10 0803 | |
019c 6e0c f520 |n |
019e 6a0c b910 |j |
01a0 0803 6e0c | n |
01a2 a520 5e0c | ^ |
01a4 b910 0803 | |
01a6 6e0c a520 |n |
01a8 5a0c b910 |Z |
01aa 0920 5520 | U |
01ac 320c f110 |2 |
01ae 0920 5920 | Y |
01b0 320c f110 |2 |
01b2 0920 5d20 | ] |
01b4 320c f110 |2 |
01b6 0802 4947 | IG|
01b8 3120 320c |1 2 |
01ba b910 0920 | |
01bc 6920 320c |i 2 |
01be f110 0920 | |
01c0 6d20 320c |m 2 |
01c2 f110 0920 | |
01c4 3920 320c |9 2 |
01c6 f110 0920 | |
01c8 6120 320c |a 2 |
01ca f110 0920 | |
01cc 6520 320c |e 2 |
01ce f110 0920 | |
01d0 0920 320c | 2 |
01d2 f110 0920 | |
01d4 0d20 320c | 2 |
01d6 f110 0920 | |
01d8 3d20 320c |= 2 |
01da f110 0920 | |
01dc 4120 320c |A 2 |
01de f110 0920 | |
01e0 1120 320c | 2 |
01e2 f110 0920 | |
01e4 1520 320c | 2 |
01e6 f110 0920 | |
01e8 1920 320c | 2 |
01ea f110 0920 | |
01ec 1d20 320c | 2 |
01ee f110 0920 | |
01f0 2120 320c |! 2 |
01f2 f110 0920 | |
01f4 3520 320c |5 2 |
01f6 f110 0920 | |
01f8 3120 320c |1 2 |
01fa f110 0920 | |
01fc 2920 320c |) 2 |
01fe f110 0920 | |