|
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_0c24f4
└─⟦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 00d0 | | .CONST 0x00d0 ; 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 0028 | ( | .CONST 0x0028 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000d 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 00e2 | | Load_Encached Integer_Cache 0013 00e2 | | Load_Encached Integer_Cache 0014 e002 | | Load 0x0,0x2 0015 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 0017 4803 |H | Short_Literal 0x3 0018 032d | - | Declare_Type Record,Defined 0019 e003 | | Load 0x0,0x3 001a e004 | | Load 0x0,0x4 001b 00da | | Load_Top At_Offset_2 001c e005 | | Load 0x0,0x5 001d 0387 | | Declare_Variable Package 001e 00d8 | | Load_Top At_Offset_0 001f 020f | | Execute Module,Activate 0020 00d8 | | Load_Top At_Offset_0 0021 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0022 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0023 00c7 | | Action Elaborate_Subprogram 0024 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0025 00c7 | | Action Elaborate_Subprogram 0026 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0027 00c7 | | Action Elaborate_Subprogram 0028 BODY_0008: 0028 00bc | | Action Signal_Activated 0029 00bb | | Action Signal_Completion 002a 0000 0000 | | .BLANK 0000[0x6] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0037 | 7 | .CONST 0x0037 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0002 | | .CONST 0x0002 ; Number of locals 0033 INIT_0030: 0033 e210 | | Load 0x1,0x10 0034 0322 | " | Declare_Variable Record 0035 00d8 | | Load_Top At_Offset_0 0036 1c00 | | Execute_Immediate Run_Utility,0x0 0037 BODY_0030: 0037 e5fe | | Load 0x2,-0x2 0038 00d9 | | Load_Top At_Offset_1 0039 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 003a 00db | | Load_Top At_Offset_3 003b 00d9 | | Load_Top At_Offset_1 003c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 003d e5fd | | Load 0x2,-0x3 003e 00d9 | | Load_Top At_Offset_1 003f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0040 e212 | | Load 0x1,0x12 0041 00d9 | | Load_Top At_Offset_1 0042 e211 | | Load 0x1,0x11 0043 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0044 a212 | | Store_Unchecked 0x1,0x12 0045 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0046 0000 0000 | | .XXX[0x2] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0051 | Q | .CONST 0x0051 ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0003 | | .CONST 0x0003 ; Number of locals 004b INIT_0048: 004b e211 | | Load 0x1,0x11 004c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 004d e210 | | Load 0x1,0x10 004e 0322 | " | Declare_Variable Record 004f 00d8 | | Load_Top At_Offset_0 0050 1c00 | | Execute_Immediate Run_Utility,0x0 0051 BODY_0048: 0051 e211 | | Load 0x1,0x11 0052 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0053 e212 | | Load 0x1,0x12 0054 e211 | | Load 0x1,0x11 0055 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0056 003a | : | Store_Top Access,At_Offset_2 0057 00cf | | Action Mark_Auxiliary 0058 00da | | Load_Top At_Offset_2 0059 e211 | | Load 0x1,0x11 005a 181e | | Execute Package,Field_Execute,Field_Number 0x1e 005b 7014 |p | Jump_Nonzero 0x70 005c 00da | | Load_Top At_Offset_2 005d e211 | | Load 0x1,0x11 005e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 005f 00da | | Load_Top At_Offset_2 0060 017d | } | Execute Record,Structure_Write 0061 e5ff | | Load 0x2,-0x1 0062 00e0 | | Load_Encached Standard_Cache 0063 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0064 00da | | Load_Top At_Offset_2 0065 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0066 00e0 | | Load_Encached Standard_Cache 0067 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0068 01df | | Execute Vector,Equal 0069 7006 |p | Jump_Nonzero 0x70 006a 00da | | Load_Top At_Offset_2 006b e211 | | Load 0x1,0x11 006c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 006d 003b | ; | Store_Top Access,At_Offset_3 006e 00c9 | | Action Pop_Auxiliary_Loop 006f 7fe8 | | Jump 0x58 0070 00ce | | Action Pop_Auxiliary 0071 00d8 | | Load_Top At_Offset_0 0072 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0073 a5fe | | Store_Unchecked 0x2,-0x2 0074 00d8 | | Load_Top At_Offset_0 0075 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0076 e5fd | | Load 0x2,-0x3 0077 016d | m | Execute Variant_Record,Structure_Write 0078 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0079 0000 0000 | | .BLANK 0000[0x7] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 008b | | .CONST 0x008b ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0004 | | .CONST 0x0004 ; Number of locals 0083 INIT_0080: 0083 e211 | | Load 0x1,0x11 0084 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0085 e210 | | Load 0x1,0x10 0086 0322 | " | Declare_Variable Record 0087 00d8 | | Load_Top At_Offset_0 0088 1c00 | | Execute_Immediate Run_Utility,0x0 0089 e211 | | Load 0x1,0x11 008a 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 008b BODY_0080: 008b e211 | | Load 0x1,0x11 008c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 008d e212 | | Load 0x1,0x12 008e e211 | | Load 0x1,0x11 008f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0090 0039 | 9 | Store_Top Access,At_Offset_1 0091 00cf | | Action Mark_Auxiliary 0092 00d9 | | Load_Top At_Offset_1 0093 e211 | | Load 0x1,0x11 0094 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0095 701a |p | Jump_Nonzero 0xb0 0096 00d9 | | Load_Top At_Offset_1 0097 e211 | | Load 0x1,0x11 0098 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0099 00db | | Load_Top At_Offset_3 009a 017d | } | Execute Record,Structure_Write 009b e5ff | | Load 0x2,-0x1 009c 00e0 | | Load_Encached Standard_Cache 009d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 009e 00db | | Load_Top At_Offset_3 009f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00a0 00e0 | | Load_Encached Standard_Cache 00a1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00a2 01df | | Execute Vector,Equal 00a3 6801 |h | Jump_Zero 0xa5 00a4 7805 |x | Jump 0xaa 00a5 00db | | Load_Top At_Offset_3 00a6 00db | | Load_Top At_Offset_3 00a7 e211 | | Load 0x1,0x11 00a8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00a9 a402 | | Store_Unchecked 0x2,0x2 00aa 00d9 | | Load_Top At_Offset_1 00ab e211 | | Load 0x1,0x11 00ac 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00ad 003a | : | Store_Top Access,At_Offset_2 00ae 00c9 | | Action Pop_Auxiliary_Loop 00af 7fe2 | | Jump 0x92 00b0 00ce | | Action Pop_Auxiliary 00b1 00da | | Load_Top At_Offset_2 00b2 a212 | | Store_Unchecked 0x1,0x12 00b3 00da | | Load_Top At_Offset_2 00b4 e211 | | Load 0x1,0x11 00b5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00b6 003b | ; | Store_Top Access,At_Offset_3 00b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 4601 |F | Jump_Case 0x2 00bc 7801 |x | Jump 0xbe ; case 0x0 00bd 7807 |x | Jump 0xc5 ; case 0x1 00be 00da | | Load_Top At_Offset_2 00bf 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 00c0 0125 | % | Execute Any,Set_Constraint 00c1 00da | | Load_Top At_Offset_2 00c2 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 00c3 1c00 | | Execute_Immediate Run_Utility,0x0 00c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00c5 00da | | Load_Top At_Offset_2 00c6 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 00c7 0125 | % | Execute Any,Set_Constraint 00c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00c9 0000 0000 | | .BLANK 0000[0x7] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; Debug Table 00d0 ; -------------------------------------------------------------------------------------- 00d0 0004 000a | | .DEBUG4 0x0004,0x000a,0x7323,0x0000,0x0001,0x0006 00d6 000b 00ee | | .DBG4T 0x000b,0x00ee,0x8000,0x0000 00da 0012 00f3 | | .DBG4T 0x0012,0x00f3,0x8000,0x0000 00de 0033 00fb | 3 | .DBG4T 0x0033,0x00fb,0x0001,0x0000 00e2 004b 0102 | K | .DBG4T 0x004b,0x0102,0x0001,0x4000 00e6 0083 0114 | | .DBG4T 0x0083,0x0114,0x0001,0x4000 00ea 00bb 0000 | | .DBG4T 0x00bb,0x0000,0x0005,0x0000 00ee ; -------------------------------------------------------------------------------------- 00ee ; Debug chain 00ee ; -------------------------------------------------------------------------------------- 00ee 0003 0000 | | .DBGLEN 0x0003,0x0000 00f0 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f 00f3 ; -------------------------------------------------------------------------------------- 00f3 ; Debug chain 00f3 ; -------------------------------------------------------------------------------------- 00f3 0006 0000 | | .DBGLEN 0x0006,0x0000 00f5 0012 0019 | | .DBGLNO 0x0012,0x0019,0x0020,0x0022,0x0024,0x0026 00fb ; -------------------------------------------------------------------------------------- 00fb ; Debug chain 00fb ; -------------------------------------------------------------------------------------- 00fb 0001 0004 | | .DBGLEN 0x0001,0x0004 00fd 0033 0037 | 3 7| .DBGLNO 0x0033,0x0037,0x003a,0x003d,0x0040 0102 ; -------------------------------------------------------------------------------------- 0102 ; Debug chain 0102 ; -------------------------------------------------------------------------------------- 0102 0002 0007 | | .DBGLEN 0x0002,0x0007 0104 004b 004d | K M| .DBGLNO 0x004b,0x004d,0x0051,0x0058,0x005c,0x0061,0x006a,0x0071,0x0074 010d 0001 0003 | | .XXX[0x7] 010f 0004 0005 | | 0111 0006 0007 | | 0113 0008 | | 0114 ; -------------------------------------------------------------------------------------- 0114 ; Debug chain 0114 ; -------------------------------------------------------------------------------------- 0114 0003 0009 | | .DBGLEN 0x0003,0x0009 0116 0083 0085 | | .DBGLNO 0x0083,0x0085,0x0089,0x008b,0x0092,0x0096,0x009b,0x00a4,0x00a5,0x00aa,0x00b1,0x00b3 0122 0001 0003 | | .XXX[0x9] 0124 0004 0005 | | 0126 0006 0007 | | 0128 0008 0009 | | 012a 000a | | 012b 0000 0000 | | .BLANK 0000[0xd5]