|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_040cee
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 00e0 | | .CONST 0x00e0 ; 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 0000 | | .CONST 0x0000 ; 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 0012 | | .CONST 0x0012 ; Number of locals
000b INIT_0008:
000b 4807 |H | Short_Literal 0x7
000c 0093 0063 | c| push_full_address INIT_0060
000e 02a0 | | Declare_Subprogram Null_Subprogram
000f 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
0010 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
0012 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
0014 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
0016 4800 |H | Short_Literal 0x0
0017 0093 005b | [| push_full_address INIT_0058
0019 02a0 | | Declare_Subprogram Null_Subprogram
001a 038f | | Declare_Type Package,Defined,Visible
001b 0386 | | Declare_Variable Package,Visible
001c 4800 |H | Short_Literal 0x0
001d 0093 0053 | S| push_full_address INIT_0050
001f 02a0 | | Declare_Subprogram Null_Subprogram
0020 038f | | Declare_Type Package,Defined,Visible
0021 0386 | | Declare_Variable Package,Visible
0022 00bf | | Action Accept_Activation
0023 e001 | | Load 0x0,0x1
0024 e002 | | Load 0x0,0x2
0025 e003 | | Load 0x0,0x3
0026 4803 |H | Short_Literal 0x3
0027 e20d | | Load 0x1,0xd
0028 020e | | Execute Module,Augment_Imports
0029 e20d | | Load 0x1,0xd
002a 020d | | Execute Module,Elaborate
002b 0007 | | Action Break_Optional
002c 00d9 | | Load_Top At_Offset_1
002d 020f | | Execute Module,Activate
002e 00d8 | | Load_Top At_Offset_0
002f 020f | | Execute Module,Activate
0030 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0031 00c7 | | Action Elaborate_Subprogram
0032 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0033 00c7 | | Action Elaborate_Subprogram
0034 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0035 00c7 | | Action Elaborate_Subprogram
0036 BODY_0008:
0036 00bc | | Action Signal_Activated
0037 00bb | | Action Signal_Completion
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b e004 | | Load 0x0,0x4
003c 180e | | Execute Package,Field_Execute,Field_Number 0xe
003d 00ca | | Action Exit_Nullary_Function
003e 0000 0000 | | .XXX[0x2]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 e004 | | Load 0x0,0x4
0044 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0045 00ca | | Action Exit_Nullary_Function
0046 0000 0000 | | .XXX[0x2]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b e004 | | Load 0x0,0x4
004c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004d 00ca | | Action Exit_Nullary_Function
004e 0000 0000 | | .XXX[0x2]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0054 | T | .CONST 0x0054 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 000c | | .CONST 0x000c ; Number of locals
0053 INIT_0050:
0053 00bf | | Action Accept_Activation
0054 BODY_0050:
0054 00bc | | Action Signal_Activated
0055 00bb | | Action Signal_Completion
0056 0000 0000 | | .XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005c | \ | .CONST 0x005c ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 000c | | .CONST 0x000c ; Number of locals
005b INIT_0058:
005b 00bf | | Action Accept_Activation
005c BODY_0058:
005c 00bc | | Action Signal_Activated
005d 00bb | | Action Signal_Completion
005e 0000 0000 | | .XXX[0x2]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0074 | t | .CONST 0x0074 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0017 | | .CONST 0x0017 ; Number of locals
0063 INIT_0060:
0063 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0065 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0067 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0069 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
006b 00bf | | Action Accept_Activation
006c 1d16 | | Execute_Immediate Reference_Lex_1,0x16
006d 00c7 | | Action Elaborate_Subprogram
006e 1d17 | | Execute_Immediate Reference_Lex_1,0x17
006f 00c7 | | Action Elaborate_Subprogram
0070 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0071 00c7 | | Action Elaborate_Subprogram
0072 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0073 00c7 | | Action Elaborate_Subprogram
0074 BODY_0060:
0074 00bc | | Action Signal_Activated
0075 00bb | | Action Signal_Completion
0076 0000 0000 | | .XXX[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 00db | | Load_Top At_Offset_3
007c e001 | | Load 0x0,0x1
007d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
007e e002 | | Load 0x0,0x2
007f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0080 00db | | Load_Top At_Offset_3
0081 e20f | | Load 0x1,0xf
0082 0119 | | Execute Any,Check_In_Formal_Type
0083 8210 | | Call 0x1,0x10
0084 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008e | | .CONST 0x008e ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0002 | | .CONST 0x0002 ; Number of locals
008b INIT_0088:
008b e002 | | Load 0x0,0x2
008c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
008d 0322 | " | Declare_Variable Record
008e BODY_0088:
008e 00d8 | | Load_Top At_Offset_0
008f e5ff | | Load 0x2,-0x1
0090 e20f | | Load 0x1,0xf
0091 0119 | | Execute Any,Check_In_Formal_Type
0092 8211 | | Call 0x1,0x11
0093 00d1 | | Pop_Control Pop_Count_1
0094 00d8 | | Load_Top At_Offset_0
0095 e002 | | Load 0x0,0x2
0096 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0097 e001 | | Load 0x0,0x1
0098 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0099 e5fe | | Load 0x2,-0x2
009a 017d | } | Execute Record,Structure_Write
009b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009c 0000 0000 | | .BLANK 0000[0x4]
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 0092 00ca | | Action Push_String_Extended,0xca ; "11"
00a5 e003 | | Load 0x0,0x3
00a6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00a7 00db | | Load_Top At_Offset_3
00a8 00db | | Load_Top At_Offset_3
00a9 e20f | | Load 0x1,0xf
00aa 0119 | | Execute Any,Check_In_Formal_Type
00ab 8212 | | Call 0x1,0x12
00ac 0092 00cb | | Action Push_String_Extended,0xcb ; "22"
00ae e003 | | Load 0x0,0x3
00af 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00b0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00b1 0000 0000 | | .BLANK 0000[0x7]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 0092 00cc | | Action Push_String_Extended,0xcc ; "*************"
00bd e003 | | Load 0x0,0x3
00be 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00bf 00da | | Load_Top At_Offset_2
00c0 e20f | | Load 0x1,0xf
00c1 0119 | | Execute Any,Check_In_Formal_Type
00c2 8213 | | Call 0x1,0x13
00c3 e5fe | | Load 0x2,-0x2
00c4 01d4 | | Execute Vector,Structure_Write
00c5 0092 00cd | | Action Push_String_Extended,0xcd ; "%%%%%%%%%%%%"
00c7 e003 | | Load 0x0,0x3
00c8 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ca ; --------------------------------------------------------------------------------------
00ca ; STRING TABLE
00ca ; --------------------------------------------------------------------------------------
00ca 000a | | .STRTAB 0x000a->0x00cf ; "11"
00cb 000a | | .STRTAB 0x000a->0x00d0 ; "22"
00cc 000a | | .STRTAB 0x000a->0x00d1 ; "*************"
00cd 0015 | | .STRTAB 0x0015->0x00d7 ; "%%%%%%%%%%%%"
00ce 001f | | .STREND 0x001f->0x00dd
00cf 3131 3232 |1122| .STRTAB_STRINGS
00de 0000 0000 | | .XXX[0x2]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug Table
00e0 ; --------------------------------------------------------------------------------------
00e0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xfeac,0x0000,0x0001,0x000f
00e6 000b 0122 | "| .DBG4T 0x000b,0x0122,0x8000,0x8000
00ea 0023 0130 | # 0| .DBG4T 0x0023,0x0130,0x8000,0x0000
00ee 003b 0138 | ; 8| .DBG4T 0x003b,0x0138,0x0002,0x0000
00f2 0043 013b | C ;| .DBG4T 0x0043,0x013b,0x0002,0x0000
00f6 004b 013e | K >| .DBG4T 0x004b,0x013e,0x0002,0x0000
00fa 0053 0141 | S A| .DBG4T 0x0053,0x0141,0x0000,0x8000
00fe 0054 0000 | T | .DBG4T 0x0054,0x0000,0x0000,0x0000
0102 005b 0145 | [ E| .DBG4T 0x005b,0x0145,0x0000,0x0000
0106 005c 0000 | \ | .DBG4T 0x005c,0x0000,0x0000,0x0000
010a 0063 0148 | c H| .DBG4T 0x0063,0x0148,0x4000,0x0000
010e 006c 014e | l N| .DBG4T 0x006c,0x014e,0x4000,0x0000
0112 007b 0154 | { T| .DBG4T 0x007b,0x0154,0x1001,0x0000
0116 008b 0157 | W| .DBG4T 0x008b,0x0157,0x1001,0x0000
011a 00a3 015c | \| .DBG4T 0x00a3,0x015c,0x1001,0x0000
011e 00bb 0161 | a| .DBG4T 0x00bb,0x0161,0x1001,0x0000
0122 ; --------------------------------------------------------------------------------------
0122 ; Debug chain
0122 ; --------------------------------------------------------------------------------------
0122 0006 0000 | | .DBGLEN 0x0006,0x0000
0124 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0016,0x001c
012a 0001 0002 | | .XXX[0x6]
012c 0003 0004 | |
012e 0007 0008 | |
0130 ; --------------------------------------------------------------------------------------
0130 ; Debug chain
0130 ; --------------------------------------------------------------------------------------
0130 0006 0000 | | .DBGLEN 0x0006,0x0000
0132 0023 002c | # ,| .DBGLNO 0x0023,0x002c,0x002e,0x0030,0x0032,0x0034
0138 ; --------------------------------------------------------------------------------------
0138 ; Debug chain
0138 ; --------------------------------------------------------------------------------------
0138 0000 0001 | | .DBGLEN 0x0000,0x0001
013a 003b | ; | .DBGLNO 0x003b
013b ; --------------------------------------------------------------------------------------
013b ; Debug chain
013b ; --------------------------------------------------------------------------------------
013b 0000 0001 | | .DBGLEN 0x0000,0x0001
013d 0043 | C | .DBGLNO 0x0043
013e ; --------------------------------------------------------------------------------------
013e ; Debug chain
013e ; --------------------------------------------------------------------------------------
013e 0000 0001 | | .DBGLEN 0x0000,0x0001
0140 004b | K | .DBGLNO 0x004b
0141 ; --------------------------------------------------------------------------------------
0141 ; Debug chain
0141 ; --------------------------------------------------------------------------------------
0141 0001 0000 | | .DBGLEN 0x0001,0x0000
0143 0053 | S | .DBGLNO 0x0053
0144 0002 | | .XXX[0x1]
0145 ; --------------------------------------------------------------------------------------
0145 ; Debug chain
0145 ; --------------------------------------------------------------------------------------
0145 0001 0000 | | .DBGLEN 0x0001,0x0000
0147 005b | [ | .DBGLNO 0x005b
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug chain
0148 ; --------------------------------------------------------------------------------------
0148 0004 0000 | | .DBGLEN 0x0004,0x0000
014a 0063 0065 | c e| .DBGLNO 0x0063,0x0065,0x0067,0x0069
014e ; --------------------------------------------------------------------------------------
014e ; Debug chain
014e ; --------------------------------------------------------------------------------------
014e 0004 0000 | | .DBGLEN 0x0004,0x0000
0150 006c 006e | l n| .DBGLNO 0x006c,0x006e,0x0070,0x0072
0154 ; --------------------------------------------------------------------------------------
0154 ; Debug chain
0154 ; --------------------------------------------------------------------------------------
0154 0000 0001 | | .DBGLEN 0x0000,0x0001
0156 007b | { | .DBGLNO 0x007b
0157 ; --------------------------------------------------------------------------------------
0157 ; Debug chain
0157 ; --------------------------------------------------------------------------------------
0157 0001 0002 | | .DBGLEN 0x0001,0x0002
0159 008b 008e | | .DBGLNO 0x008b,0x008e,0x0094
015c ; --------------------------------------------------------------------------------------
015c ; Debug chain
015c ; --------------------------------------------------------------------------------------
015c 0000 0003 | | .DBGLEN 0x0000,0x0003
015e 00a3 00a7 | | .DBGLNO 0x00a3,0x00a7,0x00ac
0161 ; --------------------------------------------------------------------------------------
0161 ; Debug chain
0161 ; --------------------------------------------------------------------------------------
0161 0000 0003 | | .DBGLEN 0x0000,0x0003
0163 00bb 00bf | | .DBGLNO 0x00bb,0x00bf,0x00c5
0166 0000 0000 | | .BLANK 0000[0x9a]