|
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_02f8e7
└─⟦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 01d8 | | .CONST 0x01d8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 004c | L | .CONST 0x004c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001c | | .CONST 0x001c ; Number of locals
000b INIT_0008:
000b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
000f 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0011 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0013 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0015 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0017 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0019 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
001b 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
001d 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
001f 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0021 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0023 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0025 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0027 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0029 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
002b 00bf | | Action Accept_Activation
002c 1d14 | | Execute_Immediate Reference_Lex_1,0x14
002d 00c7 | | Action Elaborate_Subprogram
002e 1d16 | | Execute_Immediate Reference_Lex_1,0x16
002f 00c7 | | Action Elaborate_Subprogram
0030 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0031 00c7 | | Action Elaborate_Subprogram
0032 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0033 00c7 | | Action Elaborate_Subprogram
0034 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0035 00c7 | | Action Elaborate_Subprogram
0036 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0037 00c7 | | Action Elaborate_Subprogram
0038 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0039 00c7 | | Action Elaborate_Subprogram
003a 1d0d | | Execute_Immediate Reference_Lex_1,0xd
003b 00c7 | | Action Elaborate_Subprogram
003c 1d0e | | Execute_Immediate Reference_Lex_1,0xe
003d 00c7 | | Action Elaborate_Subprogram
003e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
003f 00c7 | | Action Elaborate_Subprogram
0040 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0041 00c7 | | Action Elaborate_Subprogram
0042 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0043 00c7 | | Action Elaborate_Subprogram
0044 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0045 00c7 | | Action Elaborate_Subprogram
0046 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0047 00c7 | | Action Elaborate_Subprogram
0048 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0049 00c7 | | Action Elaborate_Subprogram
004a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
004b 00c7 | | Action Elaborate_Subprogram
004c BODY_0008:
004c 00bc | | Action Signal_Activated
004d 00bb | | Action Signal_Completion
004e 0000 0000 | | .XXX[0x2]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00ea | | Load_Encached Null_String_Cache
0054 4800 |H | Short_Literal 0x0
0055 8001 | | Call 0x0,0x1
0056 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0057 0000 | | .XXX[0x1]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00ea | | Load_Encached Null_String_Cache
005c 4801 |H | Short_Literal 0x1
005d 8001 | | Call 0x0,0x1
005e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
005f 0000 | | .XXX[0x1]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 00ea | | Load_Encached Null_String_Cache
0064 4802 |H | Short_Literal 0x2
0065 8001 | | Call 0x0,0x1
0066 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0067 0000 | | .XXX[0x1]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 4801 |H | Short_Literal 0x1
006c e002 | | Load 0x0,0x2
006d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
006e 0092 015b | [| Action Push_String_Extended,0x15b ; "<PROFILE>"
0070 0092 015c | \| Action Push_String_Extended,0x15c ; "MACHINE.DEVICES.TAPE_0"
0072 0092 015d | ]| Action Push_String_Extended,0x15d ; "R1000"
0074 e5ff | | Load 0x2,-0x1
0075 e003 | | Load 0x0,0x3
0076 180d | | Execute Package,Field_Execute,Field_Number 0xd
0077 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 4801 |H | Short_Literal 0x1
007c e002 | | Load 0x0,0x2
007d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
007e 0092 015b | [| Action Push_String_Extended,0x15b ; "<PROFILE>"
0080 0092 015c | \| Action Push_String_Extended,0x15c ; "MACHINE.DEVICES.TAPE_0"
0082 0092 015e | ^| Action Push_String_Extended,0x15e ; "R1000 changed_objects replace object_acl..default_acl=archived"
0084 0092 015f | _| Action Push_String_Extended,0x15f ; "*"
0086 0092 015f | _| Action Push_String_Extended,0x15f ; "*"
0088 0092 0160 | `| Action Push_String_Extended,0x160 ; "??"
008a e003 | | Load 0x0,0x3
008b 180e | | Execute Package,Field_Execute,Field_Number 0xe
008c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
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 4800 |H | Short_Literal 0x0
0094 e5ff | | Load 0x2,-0x1
0095 e004 | | Load 0x0,0x4
0096 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0097 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b e5ff | | Load 0x2,-0x1
009c e004 | | Load 0x0,0x4
009d 181f | | Execute Package,Field_Execute,Field_Number 0x1f
009e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009f 0000 | | .XXX[0x1]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 e5ff | | Load 0x2,-0x1
00a4 00e4 | | Load_Encached Positive_Cache
00a5 025b | [ | Execute Discrete,Check_In_Type
00a6 e004 | | Load 0x0,0x4
00a7 180f | | Execute Package,Field_Execute,Field_Number 0xf
00a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a9 0000 0000 | | .BLANK 0000[0x7]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b6 | | .CONST 0x00b6 ; Address of begin
00b1 00c9 | | .CONST 0x00c9 ; Address of exception handler
00b2 0002 | | .CONST 0x0002 ; Number of locals
00b3 INIT_00b0:
00b3 e005 | | Load 0x0,0x5
00b4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00b5 0322 | " | Declare_Variable Record
00b6 BODY_00b0:
00b6 e5ff | | Load 0x2,-0x1
00b7 e005 | | Load 0x0,0x5
00b8 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00b9 e402 | | Load 0x2,0x2
00ba 017d | } | Execute Record,Structure_Write
00bb 00d8 | | Load_Top At_Offset_0
00bc e005 | | Load 0x0,0x5
00bd 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00be e002 | | Load 0x0,0x2
00bf 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00c0 e002 | | Load 0x0,0x2
00c1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00c2 0092 0161 | a| Action Push_String_Extended,0x161 ; "Cause not entered"
00c4 0092 0162 | b| Action Push_String_Extended,0x162 ; "CSD"
00c6 e002 | | Load 0x0,0x2
00c7 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c9 TRAP_00b0:
00c9 0007 | | Action Break_Optional
00ca e006 | | Load 0x0,0x6
00cb 180e | | Execute Package,Field_Execute,Field_Number 0xe
00cc 4807 |H | Short_Literal 0x7
00cd 0092 0163 | c| Action Push_String_Extended,0x163 ; "ERROR - Illegal Date/Time. Use YR/MO/DA HR:MIN:SEC form."
00cf e007 | | Load 0x0,0x7
00d0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d2 0000 0000 | | .BLANK 0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db e002 | | Load 0x0,0x2
00dc 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00dd e006 | | Load 0x0,0x6
00de 180e | | Execute Package,Field_Execute,Field_Number 0xe
00df 4802 |H | Short_Literal 0x2
00e0 0092 0164 | d| Action Push_String_Extended,0x164 ; "Shutdown has been canceled."
00e2 e007 | | Load 0x0,0x7
00e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 0092 015b | [| Action Push_String_Extended,0x15b ; "<PROFILE>"
00ed e5ff | | Load 0x2,-0x1
00ee e002 | | Load 0x0,0x2
00ef 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f1 0000 0000 | | .BLANK 0000[0x7]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 0092 015b | [| Action Push_String_Extended,0x15b ; "<PROFILE>"
00fd e5ff | | Load 0x2,-0x1
00fe e002 | | Load 0x0,0x2
00ff 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0100 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0101 0000 0000 | | .BLANK 0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 0092 015b | [| Action Push_String_Extended,0x15b ; "<PROFILE>"
010d 4801 |H | Short_Literal 0x1
010e e5ff | | Load 0x2,-0x1
010f e002 | | Load 0x0,0x2
0110 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0111 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0112 0000 0000 | | .BLANK 0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b e5fe | | Load 0x2,-0x2
011c 0092 0165 | e| Action Push_String_Extended,0x165 ; "<ALL>"
011e 01df | | Execute Vector,Equal
011f 6804 |h | Jump_Zero 0x124
0120 e5ff | | Load 0x2,-0x1
0121 e008 | | Load 0x0,0x8
0122 180e | | Execute Package,Field_Execute,Field_Number 0xe
0123 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0124 e5ff | | Load 0x2,-0x1
0125 e5fe | | Load 0x2,-0x2
0126 e008 | | Load 0x0,0x8
0127 180d | | Execute Package,Field_Execute,Field_Number 0xd
0128 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0129 0000 0000 | | .BLANK 0000[0x7]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 0092 015b | [| Action Push_String_Extended,0x15b ; "<PROFILE>"
0135 e5ff | | Load 0x2,-0x1
0136 e002 | | Load 0x0,0x2
0137 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0138 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0139 0000 0000 | | .BLANK 0000[0x7]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0146 | F | .CONST 0x0146 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0004 | | .CONST 0x0004 ; Number of locals
0143 INIT_0140:
0143 00e7 | | Load_Encached Duration_Cache
0144 00e1 | | Load_Encached Boolean_Cache
0145 03e9 | | Declare_Variable Discrete,Duplicate
0146 BODY_0140:
0146 00e1 | | Load_Encached Boolean_Cache
0147 00e1 | | Load_Encached Boolean_Cache
0148 00e7 | | Load_Encached Duration_Cache
0149 e009 | | Load 0x0,0x9
014a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
014b c402 | | Store 0x2,0x2
014c c403 | | Store 0x2,0x3
014d c404 | | Store 0x2,0x4
014e 4800 |H | Short_Literal 0x0
014f e009 | | Load 0x0,0x9
0150 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0151 0092 015b | [| Action Push_String_Extended,0x15b ; "<PROFILE>"
0153 0092 0166 | f| Action Push_String_Extended,0x166 ; "snapshot"
0155 e009 | | Load 0x0,0x9
0156 180e | | Execute Package,Field_Execute,Field_Number 0xe
0157 e402 | | Load 0x2,0x2
0158 e009 | | Load 0x0,0x9
0159 181e | | Execute Package,Field_Execute,Field_Number 0x1e
015a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
015b ; --------------------------------------------------------------------------------------
015b ; STRING TABLE
015b ; --------------------------------------------------------------------------------------
015b 001a | | .STRTAB 0x001a->0x0168 ; "<PROFILE>"
015c 0021 | ! | .STRTAB 0x0021->0x016c ; "MACHINE.DEVICES.TAPE_0"
015d 0035 | 5 | .STRTAB 0x0035->0x0177 ; "R1000"
015e 0038 | 8 | .STRTAB 0x0038->0x017a ; "R1000 changed_objects replace object_acl..default_acl=archived"
015f 0074 | t | .STRTAB 0x0074->0x0199 ; "*"
0160 0073 | s | .STRTAB 0x0073->0x0199 ; "??"
0161 0073 | s | .STRTAB 0x0073->0x019a ; "Cause not entered"
0162 0082 | | .STRTAB 0x0082->0x01a3 ; "CSD"
0163 0083 | | .STRTAB 0x0083->0x01a4 ; "ERROR - Illegal Date/Time. Use YR/MO/DA HR:MIN:SEC form."
0164 00ba | | .STRTAB 0x00ba->0x01c1 ; "Shutdown has been canceled."
0165 00d3 | | .STRTAB 0x00d3->0x01ce ; "<ALL>"
0166 00d6 | | .STRTAB 0x00d6->0x01d1 ; "snapshot"
0167 00dc | | .STREND 0x00dc->0x01d5
0168 3c50 524f |<PRO| .STRTAB_STRINGS
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0004 0000 | | .DEBUG4 0x0004,0x0000,0xb06a,0x0000,0x0001,0x0000
01de 4401 0092 |D | .XXX[0x22]
01e0 084d 4401 | MD |
01e2 0092 084e | N|
01e4 4401 0092 |D |
01e6 084f 4401 | OD |
01e8 0092 0850 | P|
01ea 4401 0092 |D |
01ec 0851 4401 | QD |
01ee 0092 0852 | R|
01f0 4401 0092 |D |
01f2 0853 4401 | SD |
01f4 0092 0854 | T|
01f6 4401 0092 |D |
01f8 0855 4401 | UD |
01fa 0092 0856 | V|
01fc 4401 0092 |D |
01fe 0857 4401 | WD |