|
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_0694fc
└─⟦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 0128 | ( | .CONST 0x0128 ; 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 0031 | 1 | .CONST 0x0031 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001e | | .CONST 0x001e ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c e001 | | Load 0x0,0x1
001d 0129 | ) | Execute Any,Make_Visible
001e c21d | | Store 0x1,0x1d
001f 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
0021 c219 | | Store 0x1,0x19
0022 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0024 c21c | | Store 0x1,0x1c
0025 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0027 c21b | | Store 0x1,0x1b
0028 00bf | | Action Accept_Activation
0029 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call
002b 1d19 | | Execute_Immediate Reference_Lex_1,0x19
002c 00c7 | | Action Elaborate_Subprogram
002d 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
002e 00c7 | | Action Elaborate_Subprogram
002f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0030 00c7 | | Action Elaborate_Subprogram
0031 BODY_0008:
0031 00bc | | Action Signal_Activated
0032 00bb | | Action Signal_Completion
0033 0000 0000 | | .BLANK 0000[0x5]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0041 | A | .CONST 0x0041 ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0003 | | .CONST 0x0003 ; Number of locals
003b INIT_0038:
003b e002 | | Load 0x0,0x2
003c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
003d 02c7 | | Declare_Variable Any
003e 00d8 | | Load_Top At_Offset_0
003f 1c00 | | Execute_Immediate Run_Utility,0x0
0040 00e1 | | Load_Encached Boolean_Cache
0041 BODY_0038:
0041 00be | | Action Activate_Tasks
0042 00d9 | | Load_Top At_Offset_1
0043 4800 |H | Short_Literal 0x0
0044 e003 | | Load 0x0,0x3
0045 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0046 e003 | | Load 0x0,0x3
0047 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0048 821e | | Call 0x1,0x1e
0049 c402 | | Store 0x2,0x2
004a 0092 00f4 | | Action Push_String_Extended,0xf4 ; "Session.Search_Ignore_Case"
004c 00da | | Load_Top At_Offset_2
004d e002 | | Load 0x0,0x2
004e 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
004f 00e1 | | Load_Encached Boolean_Cache
0050 1c02 | | Execute_Immediate Run_Utility,0x2
0051 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0052 00d9 | | Load_Top At_Offset_1
0053 e002 | | Load 0x0,0x2
0054 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
0055 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0056 c402 | | Store 0x2,0x2
0057 00d8 | | Load_Top At_Offset_0
0058 00ca | | Action Exit_Nullary_Function
0059 0000 0000 | | .BLANK 0000[0x7]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0069 | i | .CONST 0x0069 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0003 | | .CONST 0x0003 ; Number of locals
0063 INIT_0060:
0063 e002 | | Load 0x0,0x2
0064 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0065 02c7 | | Declare_Variable Any
0066 00d8 | | Load_Top At_Offset_0
0067 1c00 | | Execute_Immediate Run_Utility,0x0
0068 00e1 | | Load_Encached Boolean_Cache
0069 BODY_0060:
0069 00be | | Action Activate_Tasks
006a 00d9 | | Load_Top At_Offset_1
006b 4800 |H | Short_Literal 0x0
006c e003 | | Load 0x0,0x3
006d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
006e e003 | | Load 0x0,0x3
006f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0070 821e | | Call 0x1,0x1e
0071 c402 | | Store 0x2,0x2
0072 0092 00f5 | | Action Push_String_Extended,0xf5 ; "Session.Search_Preserve_Case"
0074 00da | | Load_Top At_Offset_2
0075 e002 | | Load 0x0,0x2
0076 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0077 00e1 | | Load_Encached Boolean_Cache
0078 1c02 | | Execute_Immediate Run_Utility,0x2
0079 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
007a 00d9 | | Load_Top At_Offset_1
007b e002 | | Load 0x0,0x2
007c 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
007d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
007e c402 | | Store 0x2,0x2
007f 00d8 | | Load_Top At_Offset_0
0080 00ca | | Action Exit_Nullary_Function
0081 0000 0000 | | .BLANK 0000[0x7]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0091 | | .CONST 0x0091 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0003 | | .CONST 0x0003 ; Number of locals
008b INIT_0088:
008b e002 | | Load 0x0,0x2
008c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008d 02c7 | | Declare_Variable Any
008e 00d8 | | Load_Top At_Offset_0
008f 1c00 | | Execute_Immediate Run_Utility,0x0
0090 00e2 | | Load_Encached Integer_Cache
0091 BODY_0088:
0091 00be | | Action Activate_Tasks
0092 00d9 | | Load_Top At_Offset_1
0093 4800 |H | Short_Literal 0x0
0094 e003 | | Load 0x0,0x3
0095 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0096 e003 | | Load 0x0,0x3
0097 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0098 821e | | Call 0x1,0x1e
0099 c402 | | Store 0x2,0x2
009a 0092 00f6 | | Action Push_String_Extended,0xf6 ; "Session.Image_Fill_Column"
009c 00da | | Load_Top At_Offset_2
009d e002 | | Load 0x0,0x2
009e 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
009f 00e2 | | Load_Encached Integer_Cache
00a0 00e0 | | Load_Encached Standard_Cache
00a1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00a2 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00a3 00d9 | | Load_Top At_Offset_1
00a4 e002 | | Load 0x0,0x2
00a5 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
00a6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a7 c402 | | Store 0x2,0x2
00a8 00d8 | | Load_Top At_Offset_0
00a9 00ca | | Action Exit_Nullary_Function
00aa 0000 0000 | | .BLANK 0000[0x6]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00c5 | | .CONST 0x00c5 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0005 | | .CONST 0x0005 ; Number of locals
00b3 INIT_00b0:
00b3 e004 | | Load 0x0,0x4
00b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b5 e004 | | Load 0x0,0x4
00b6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b8 e5ff | | Load 0x2,-0x1
00b9 e004 | | Load 0x0,0x4
00ba 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00bb 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00bc 0092 00f7 | | Action Push_String_Extended,0xf7 ; "_SWITCHES"
00be 01cc | | Execute Vector,Catenate
00bf 0007 | | Action Break_Optional
00c0 e004 | | Load 0x0,0x4
00c1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00c2 02ff | | Declare_Variable Variant_Record
00c3 00d8 | | Load_Top At_Offset_0
00c4 1c00 | | Execute_Immediate Run_Utility,0x0
00c5 BODY_00b0:
00c5 e004 | | Load 0x0,0x4
00c6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00c8 00d9 | | Load_Top At_Offset_1
00c9 6026 |`& | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00004000}
00ca e005 | | Load 0x0,0x5
00cb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00cc 4800 |H | Short_Literal 0x0
00cd e006 | | Load 0x0,0x6
00ce 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00cf e004 | | Load 0x0,0x4
00d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00d1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00d2 e404 | | Load 0x2,0x4
00d3 e004 | | Load 0x0,0x4
00d4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00d5 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
00d6 00d1 | | Pop_Control Pop_Count_1
00d7 005b | [ | Store_Top Discrete,At_Offset_3
00d8 00da | | Load_Top At_Offset_2
00d9 6802 |h | Jump_Zero 0xdc
00da e21d | | Load 0x1,0x1d
00db 0257 | W | Execute Discrete,Raise
00dc e007 | | Load 0x0,0x7
00dd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00de 00d9 | | Load_Top At_Offset_1
00df e5fd | | Load 0x2,-0x3
00e0 4800 |H | Short_Literal 0x0
00e1 600e |` | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00004000}
00e2 e005 | | Load 0x0,0x5
00e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e4 e5fe | | Load 0x2,-0x2
00e5 e007 | | Load 0x0,0x7
00e6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00e7 c5fd | | Store 0x2,-0x3
00e8 00d1 | | Pop_Control Pop_Count_1
00e9 c402 | | Store 0x2,0x2
00ea 00db | | Load_Top At_Offset_3
00eb 6802 |h | Jump_Zero 0xee
00ec e21d | | Load 0x1,0x1d
00ed 0257 | W | Execute Discrete,Raise
00ee 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ef 0000 | | .XXX[0x1]
00f0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00f4 ; --------------------------------------------------------------------------------------
00f4 ; STRING TABLE
00f4 ; --------------------------------------------------------------------------------------
00f4 000a | | .STRTAB 0x000a->0x00f9 ; "Session.Search_Ignore_Case"
00f5 0022 | " | .STRTAB 0x0022->0x0106 ; "Session.Search_Preserve_Case"
00f6 003c | < | .STRTAB 0x003c->0x0114 ; "Session.Image_Fill_Column"
00f7 0053 | S | .STRTAB 0x0053->0x0120 ; "_SWITCHES"
00f8 005a | Z | .STREND 0x005a->0x0125
00f9 5365 7373 |Sess| .STRTAB_STRINGS
0125 0000 0000 | | .XXX[0x3]
0127 0000 | |
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug Table
0128 ; --------------------------------------------------------------------------------------
0128 0004 0012 | | .DEBUG4 0x0004,0x0012,0x5fa3,0x0000,0x0001,0x0000
012e 0000 0000 | | .BLANK 0000[0xc]
013a 0004 00a0 | | .XXX[0xc]
013c 0000 0000 | |
013e 0000 0800 | |
0140 0000 4400 | D |
0142 0000 0020 | |
0144 0000 0140 | @|
0146 0000 0000 | | .BLANK 0000[0x2e]
0174 8014 0000 | | .XXX[0xb]
0176 0000 0000 | |
0178 0100 0000 | |
017a 0880 0000 | |
017c 0004 0000 | |
017e 0028 | ( |
017f 0000 0000 | | .BLANK 0000[0x2e]
01ad 1002 8000 | | .XXX[0xb]
01af 0000 0000 | |
01b1 0020 0000 | |
01b3 0110 0000 | |
01b5 0000 8000 | |
01b7 0005 | |
01b8 0000 0000 | | .BLANK 0000[0x48]