|
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 0110 | | .CONST 0x0110 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 003e | > | .CONST 0x003e ; Address of begin
0019 0090 | | .CONST 0x0090 ; Address of exception handler
001a 0009 | | .CONST 0x0009 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001d 02c7 | | Declare_Variable Any
001e e002 | | Load 0x0,0x2
001f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0020 a402 | | Store_Unchecked 0x2,0x2
0021 e002 | | Load 0x0,0x2
0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0023 02c7 | | Declare_Variable Any
0024 e5fe | | Load 0x2,-0x2
0025 e002 | | Load 0x0,0x2
0026 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0027 a403 | | Store_Unchecked 0x2,0x3
0028 e003 | | Load 0x0,0x3
0029 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002a 02c7 | | Declare_Variable Any
002b 00d8 | | Load_Top At_Offset_0
002c 1c00 | | Execute_Immediate Run_Utility,0x0
002d e003 | | Load 0x0,0x3
002e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
002f 02ff | | Declare_Variable Variant_Record
0030 00d8 | | Load_Top At_Offset_0
0031 1c00 | | Execute_Immediate Run_Utility,0x0
0032 00e1 | | Load_Encached Boolean_Cache
0033 e003 | | Load 0x0,0x3
0034 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0035 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0036 02c7 | | Declare_Variable Any
0037 00d8 | | Load_Top At_Offset_0
0038 1c00 | | Execute_Immediate Run_Utility,0x0
0039 e003 | | Load 0x0,0x3
003a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
003b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003c 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
003e BODY_0018:
003e e403 | | Load 0x2,0x3
003f e002 | | Load 0x0,0x2
0040 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0041 e002 | | Load 0x0,0x2
0042 180e | | Execute Package,Field_Execute,Field_Number 0xe
0043 4800 |H | Short_Literal 0x0
0044 0092 00db | | Action Push_String_Extended,0xdb ; "[Check_Dependents (Units => \x22"
0046 e5ff | | Load 0x2,-0x1
0047 01cc | | Execute Vector,Catenate
0048 0092 00dc | | Action Push_String_Extended,0xdc ; "\x22, Response => \x22"
004a 01cc | | Execute Vector,Catenate
004b e5fe | | Load 0x2,-0x2
004c 01cc | | Execute Vector,Catenate
004d 0092 00dd | | Action Push_String_Extended,0xdd ; "\x22);]"
004f 01cc | | Execute Vector,Catenate
0050 e004 | | Load 0x0,0x4
0051 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0052 e003 | | Load 0x0,0x3
0053 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0054 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0055 00db | | Load_Top At_Offset_3
0056 6051 |`Q | Indirect_Literal Discrete,0xa8,{0x00000000, 0x00004000}
0057 e005 | | Load 0x0,0x5
0058 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0059 e006 | | Load 0x0,0x6
005a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005b e007 | | Load 0x0,0x7
005c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005d 4801 |H | Short_Literal 0x1
005e 4800 |H | Short_Literal 0x0
005f e006 | | Load 0x0,0x6
0060 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0061 e003 | | Load 0x0,0x3
0062 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0063 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0064 e5ff | | Load 0x2,-0x1
0065 e003 | | Load 0x0,0x3
0066 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0067 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0068 c407 | | Store 0x2,0x7
0069 005a | Z | Store_Top Discrete,At_Offset_2
006a 00d9 | | Load_Top At_Offset_1
006b 680a |h | Jump_Zero 0x76
006c e002 | | Load 0x0,0x2
006d 180e | | Execute Package,Field_Execute,Field_Number 0xe
006e 4807 |H | Short_Literal 0x7
006f 0092 00de | | Action Push_String_Extended,0xde ; "Can't resolve "
0071 e5ff | | Load 0x2,-0x1
0072 01cc | | Execute Vector,Catenate
0073 e004 | | Load 0x0,0x4
0074 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0075 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0076 00cf | | Action Mark_Auxiliary
0077 7807 |x | Jump 0x7f
0078 8409 | | Call 0x2,0x9
0079 00db | | Load_Top At_Offset_3
007a e003 | | Load 0x0,0x3
007b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
007c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
007d c407 | | Store 0x2,0x7
007e 00c9 | | Action Pop_Auxiliary_Loop
007f 00db | | Load_Top At_Offset_3
0080 e003 | | Load 0x0,0x3
0081 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0082 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0083 6ff4 |o | Jump_Zero 0x78
0084 00ce | | Action Pop_Auxiliary
0085 e002 | | Load 0x0,0x2
0086 180e | | Execute Package,Field_Execute,Field_Number 0xe
0087 4800 |H | Short_Literal 0x0
0088 0092 00df | | Action Push_String_Extended,0xdf ; "[Check_Dependents has finished]"
008a e004 | | Load 0x0,0x4
008b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
008c e402 | | Load 0x2,0x2
008d e002 | | Load 0x0,0x2
008e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
008f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0090 TRAP_0018:
0090 0007 | | Action Break_Optional
0091 e002 | | Load 0x0,0x2
0092 180e | | Execute Package,Field_Execute,Field_Number 0xe
0093 4808 |H | Short_Literal 0x8
0094 4801 |H | Short_Literal 0x1
0095 4801 |H | Short_Literal 0x1
0096 e008 | | Load 0x0,0x8
0097 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0098 e004 | | Load 0x0,0x4
0099 1813 | | Execute Package,Field_Execute,Field_Number 0x13
009a e002 | | Load 0x0,0x2
009b 180e | | Execute Package,Field_Execute,Field_Number 0xe
009c e002 | | Load 0x0,0x2
009d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
009e 6805 |h | Jump_Zero 0xa4
009f e402 | | Load 0x2,0x2
00a0 e002 | | Load 0x0,0x2
00a1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a2 00d8 | | Load_Top At_Offset_0
00a3 0101 | | Execute Exception,Reraise
00a4 e402 | | Load 0x2,0x2
00a5 e002 | | Load 0x0,0x2
00a6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00a8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00ac 0000 0000 | | .BLANK 0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00ba | | .CONST 0x00ba ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0003 | | .CONST 0x0003 ; Number of locals
00b3 INIT_00b0:
00b3 e003 | | Load 0x0,0x3
00b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b5 02c7 | | Declare_Variable Any
00b6 00d8 | | Load_Top At_Offset_0
00b7 1c00 | | Execute_Immediate Run_Utility,0x0
00b8 e003 | | Load 0x0,0x3
00b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ba BODY_00b0:
00ba e003 | | Load 0x0,0x3
00bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bc 00da | | Load_Top At_Offset_2
00bd 0120 | | Execute Any,Is_Value
00be 6803 |h | Jump_Zero 0xc2
00bf e003 | | Load 0x0,0x3
00c0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00c1 7801 |x | Jump 0xc3
00c2 00da | | Load_Top At_Offset_2
00c3 e407 | | Load 0x2,0x7
00c4 e003 | | Load 0x0,0x3
00c5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00c7 c602 | | Store 0x3,0x2
00c8 0059 | Y | Store_Top Discrete,At_Offset_1
00c9 00e1 | | Load_Encached Boolean_Cache
00ca e405 | | Load 0x2,0x5
00cb e404 | | Load 0x2,0x4
00cc 0120 | | Execute Any,Is_Value
00cd 6803 |h | Jump_Zero 0xd1
00ce e003 | | Load 0x0,0x3
00cf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00d0 7801 |x | Jump 0xd2
00d1 e404 | | Load 0x2,0x4
00d2 e602 | | Load 0x3,0x2
00d3 e003 | | Load 0x0,0x3
00d4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00d5 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00d6 8009 | | Call 0x0,0x9
00d7 c404 | | Store 0x2,0x4
00d8 00d1 | | Pop_Control Pop_Count_1
00d9 c406 | | Store 0x2,0x6
00da 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00db ; --------------------------------------------------------------------------------------
00db ; STRING TABLE
00db ; --------------------------------------------------------------------------------------
00db 000c | | .STRTAB 0x000c->0x00e1 ; "[Check_Dependents (Units => \x22"
00dc 0027 | ' | .STRTAB 0x0027->0x00ef ; "\x22, Response => \x22"
00dd 0035 | 5 | .STRTAB 0x0035->0x00f7 ; "\x22);]"
00de 0037 | 7 | .STRTAB 0x0037->0x00f9 ; "Can't resolve "
00df 0043 | C | .STRTAB 0x0043->0x0100 ; "[Check_Dependents has finished]"
00e0 0060 | ` | .STREND 0x0060->0x0110
00e1 5b43 6865 |[Che| .STRTAB_STRINGS
0110 ; --------------------------------------------------------------------------------------
0110 ; Debug Table
0110 ; --------------------------------------------------------------------------------------
0110 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b6e,0x0000,0x0001,0x0000
0116 0000 0000 | | .BLANK 0000[0x10]
0126 000f c000 | | .XXX[0x5]
0128 0fa0 0003 | |
012a 37d3 |7 |
012b 0000 0000 | | .BLANK 0000[0x4]
012f 03d0 8600 | | .XXX[0x2]
0131 0000 0000 | | .BLANK 0000[0xa]
013b 0001 f800 | | .XXX[0x11]
013d 01f4 0000 | |
013f 6703 4020 |g @ |
0141 0000 41aa | A |
0143 4000 0000 |@ |
0145 0000 0000 | |
0147 0001 9c30 | 0|
0149 8080 0001 | |
014b 1055 | U |
014c 0000 0000 | | .BLANK 0000[0x4]
0150 0006 7150 | qP| .XXX[0x7]
0152 0098 0000 | |
0154 0004 0047 | G|
0156 c81c | |
0157 0000 0000 | | .BLANK 0000[0x4]
015b 0270 0000 | p | .XXX[0x9]
015d 0000 0000 | |
015f 0010 0000 | |
0161 0000 0067 | g|
0163 3310 |3 |
0164 0000 0000 | | .BLANK 0000[0x4]
0168 7a50 c000 |zP | .XXX[0x2]
016a 0000 0000 | | .BLANK 0000[0xa]
0174 003f 0000 | ? | .XXX[0x35]
0176 3e80 000c |> |
0178 e77e 0260 | ~ `|
017a 0003 1aa0 | |
017c 0000 0150 | P|
017e 0000 0000 | |
0180 0033 a268 | 3 h|
0182 0980 000c | |
0184 6a80 0000 |j |
0186 06a0 0000 | |
0188 0000 00ce | |
018a 9b60 2600 | `& |
018c 0031 aa00 | 1 |
018e 0000 1980 | |
0190 0000 0000 | |
0192 033a b480 | : |
0194 9800 0242 | B|
0196 ce00 0000 | |
0198 1c00 0000 | |
019a 0000 0ceb | |
019c ee02 6000 | ` |
019e 011d 4000 | @ |
01a0 0000 3800 | 8 |
01a2 0000 0000 | |
01a4 33b4 2810 |3 ( |
01a6 0000 109e | |
01a8 e000 | |
01a9 0000 0000 | | .BLANK 0000[0x4]
01ad cee2 6040 | `@| .XXX[0x4]
01af 0000 50f6 | P |
01b1 0000 0000 | | .BLANK 0000[0x4]
01b5 0003 3bd0 | ; | .XXX[0x5]
01b7 8100 0001 | |
01b9 3a8c |: |
01ba 0000 0000 | | .BLANK 0000[0x4]
01be 000c f05e | ^| .XXX[0x17]
01c0 0268 0003 | h |
01c2 1aa0 0000 | |
01c4 0230 0000 | 0 |
01c6 0000 0033 | 3|
01c8 c5e8 09a0 | |
01ca 0012 d9e0 | |
01cc 0000 0100 | |
01ce 0000 0000 | |
01d0 00cf 2960 | )`|
01d2 4000 001c |@ |
01d4 7880 |x |
01d5 0000 0000 | | .BLANK 0000[0x4]
01d9 033c ec80 | < | .XXX[0xe]
01db 9a00 00c6 | |
01dd a800 0000 | |
01df 9a00 0000 | |
01e1 0000 0cf4 | |
01e3 ce04 0000 | |
01e5 01a2 5800 | X |
01e7 0000 0000 | | .BLANK 0000[0x4]
01eb 33d7 a809 |3 | .XXX[0x15]
01ed a000 2603 | & |
01ef 2000 0000 | |
01f1 e000 0000 | |
01f3 0000 cf70 | p|
01f5 6026 8000 |`& |
01f7 4b67 8000 |Kg |
01f9 0005 8000 | |
01fb 0000 0003 | |
01fd 3e08 809a |> |
01ff 0001 | |