|
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_0900ea
└─⟦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 0100 | | .CONST 0x0100 ; 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 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b e003 | | Load 0x0,0x3 000c e004 | | Load 0x0,0x4 000d 4801 |H | Short_Literal 0x1 000e e005 | | Load 0x0,0x5 000f 4801 |H | Short_Literal 0x1 0010 e006 | | Load 0x0,0x6 0011 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 0013 4802 |H | Short_Literal 0x2 0014 4801 |H | Short_Literal 0x1 0015 4802 |H | Short_Literal 0x2 0016 4800 |H | Short_Literal 0x0 0017 4801 |H | Short_Literal 0x1 0018 031e | | Declare_Type Variant_Record,Defined,Visible 0019 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 001b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 001d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 001f 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 0021 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0023 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 0025 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0027 00bf | | Action Accept_Activation 0028 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0029 00c7 | | Action Elaborate_Subprogram 002a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 002b 00c7 | | Action Elaborate_Subprogram 002c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 002d 00c7 | | Action Elaborate_Subprogram 002e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 002f 00c7 | | Action Elaborate_Subprogram 0030 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0031 00c7 | | Action Elaborate_Subprogram 0032 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0033 00c7 | | Action Elaborate_Subprogram 0034 1d14 | | Execute_Immediate Reference_Lex_1,0x14 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 4800 |H | Short_Literal 0x0 003c e20d | | Load 0x1,0xd 003d 1c08 | | Execute_Immediate Run_Utility,0x8 003e 00db | | Load_Top At_Offset_3 003f 00d9 | | Load_Top At_Offset_1 0040 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0041 e5fe | | Load 0x2,-0x2 0042 e20d | | Load 0x1,0xd 0043 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2 0044 0119 | | Execute Any,Check_In_Formal_Type 0045 00d9 | | Load_Top At_Offset_1 0046 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0047 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 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 4801 |H | Short_Literal 0x1 004c e20d | | Load 0x1,0xd 004d 1c08 | | Execute_Immediate Run_Utility,0x8 004e 00db | | Load_Top At_Offset_3 004f 00d9 | | Load_Top At_Offset_1 0050 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0051 e5fe | | Load 0x2,-0x2 0052 e20d | | Load 0x1,0xd 0053 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2 0054 0119 | | Execute Any,Check_In_Formal_Type 0055 00d9 | | Load_Top At_Offset_1 0056 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0057 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 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 00da | | Load_Top At_Offset_2 005c 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 005d 0f05 | | Execute_Immediate Equal,0x5 005e 4401 |D | Exit_Subprogram With_Value,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 00da | | Load_Top At_Offset_2 0064 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0065 0f00 | | Execute_Immediate Equal,0x0 0066 4401 |D | Exit_Subprogram With_Value,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 00da | | Load_Top At_Offset_2 006c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 006d 00d8 | | Load_Top At_Offset_0 006e 0120 | | Execute Any,Is_Value 006f 7002 |p | Jump_Nonzero 0x72 0070 00d8 | | Load_Top At_Offset_0 0071 011e | | Execute Any,Convert 0072 e004 | | Load 0x0,0x4 0073 0119 | | Execute Any,Check_In_Formal_Type 0074 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0075 0000 0000 | | .XXX[0x3] 0077 0000 | | 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 00da | | Load_Top At_Offset_2 007c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 007d 6806 |h | Jump_Zero 0x84 007e 00db | | Load_Top At_Offset_3 007f 00db | | Load_Top At_Offset_3 0080 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0081 8007 | | Call 0x0,0x7 0082 8008 | | Call 0x0,0x8 0083 7805 |x | Jump 0x89 0084 00db | | Load_Top At_Offset_3 0085 00db | | Load_Top At_Offset_3 0086 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0087 8009 | | Call 0x0,0x9 0088 8008 | | Call 0x0,0x8 0089 00db | | Load_Top At_Offset_3 008a 0092 00f8 | | Action Push_String_Extended,0xf8 ; "(" 008c 8008 | | Call 0x0,0x8 008d 00db | | Load_Top At_Offset_3 008e 00db | | Load_Top At_Offset_3 008f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0090 800a | | Call 0x0,0xa 0091 00db | | Load_Top At_Offset_3 0092 0092 00f9 | | Action Push_String_Extended,0xf9 ; ")" 0094 8008 | | Call 0x0,0x8 0095 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0096 0000 0000 | | .XXX[0x2] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009e | | .CONST 0x009e ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0002 | | .CONST 0x0002 ; Number of locals 009b INIT_0098: 009b 00db | | Load_Top At_Offset_3 009c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 009d 800b | | Call 0x0,0xb 009e BODY_0098: 009e e5fe | | Load 0x2,-0x2 009f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00a0 6806 |h | Jump_Zero 0xa7 00a1 00d8 | | Load_Top At_Offset_0 00a2 e5ff | | Load 0x2,-0x1 00a3 e5fe | | Load 0x2,-0x2 00a4 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 00a5 800c | | Call 0x0,0xc 00a6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00a7 00d8 | | Load_Top At_Offset_0 00a8 e5ff | | Load 0x2,-0x1 00a9 e5fe | | Load 0x2,-0x2 00aa 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 00ab 800d | | Call 0x0,0xd 00ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ad 0000 0000 | | .XXX[0x3] 00af 0000 | | 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 4609 |F | Jump_Case 0xa 00b4 7809 |x | Jump 0xbe ; case 0x0 00b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 00b6 781c |x | Jump 0xd3 ; case 0x2 00b7 781f |x | Jump 0xd7 ; case 0x3 00b8 783e |x> | Jump 0xf7 ; case 0x4 00b9 783d |x= | Jump 0xf7 ; case 0x5 00ba 7822 |x" | Jump 0xdd ; case 0x6 00bb 7827 |x' | Jump 0xe3 ; case 0x7 00bc 782f |x/ | Jump 0xec ; case 0x8 00bd 7835 |x5 | Jump 0xf3 ; case 0x9 00be 00da | | Load_Top At_Offset_2 00bf 016c | l | Execute Variant_Record,Is_Constrained 00c0 7009 |p | Jump_Nonzero 0xca 00c1 00cf | | Action Mark_Auxiliary 00c2 4800 |H | Short_Literal 0x0 00c3 e5ff | | Load 0x2,-0x1 00c4 1c08 | | Execute_Immediate Run_Utility,0x8 00c5 00d8 | | Load_Top At_Offset_0 00c6 1c00 | | Execute_Immediate Run_Utility,0x0 00c7 c5ff | | Store 0x2,-0x1 00c8 00ce | | Action Pop_Auxiliary 00c9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00ca 00da | | Load_Top At_Offset_2 00cb 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2 00cc 00da | | Load_Top At_Offset_2 00cd 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 00ce 1c00 | | Execute_Immediate Run_Utility,0x0 00cf 00da | | Load_Top At_Offset_2 00d0 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00d1 6800 |h | Jump_Zero 0xd2 00d2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00d3 4801 |H | Short_Literal 0x1 00d4 4804 |H | Short_Literal 0x4 00d5 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 00d6 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d7 e5fd | | Load 0x2,-0x3 00d8 00db | | Load_Top At_Offset_3 00d9 1c07 | | Execute_Immediate Run_Utility,0x7 00da e5fe | | Load 0x2,-0x2 00db 0306 | | Complete_Type Variant_Record,By_Renaming 00dc 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 00dd 00db | | Load_Top At_Offset_3 00de 6802 |h | Jump_Zero 0xe1 00df 4802 |H | Short_Literal 0x2 00e0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e1 4801 |H | Short_Literal 0x1 00e2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e3 00db | | Load_Top At_Offset_3 00e4 e5fe | | Load 0x2,-0x2 00e5 6802 |h | Jump_Zero 0xe8 00e6 4802 |H | Short_Literal 0x2 00e7 7801 |x | Jump 0xe9 00e8 4801 |H | Short_Literal 0x1 00e9 e5ff | | Load 0x2,-0x1 00ea 031b | | Declare_Type Variant_Record,Constrained 00eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ec 00db | | Load_Top At_Offset_3 00ed e5fe | | Load 0x2,-0x2 00ee e5ff | | Load 0x2,-0x1 00ef 1c06 | | Execute_Immediate Run_Utility,0x6 00f0 e5ff | | Load 0x2,-0x1 00f1 02fc | | Declare_Variable Variant_Record,With_Constraint 00f2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f3 4800 |H | Short_Literal 0x0 00f4 00db | | Load_Top At_Offset_3 00f5 1c07 | | Execute_Immediate Run_Utility,0x7 00f6 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f7 0869 | i | Execute_Immediate Raise,0x69 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; STRING TABLE 00f8 ; -------------------------------------------------------------------------------------- 00f8 0006 | | .STRTAB 0x0006->0x00fb ; "(" 00f9 0005 | | .STRTAB 0x0005->0x00fb ; ")" 00fa 0004 | | .STREND 0x0004->0x00fc 00fb 2829 |() | .STRTAB_STRINGS 00fc 0000 0000 | | .BLANK 0000[0x4] 0100 ; -------------------------------------------------------------------------------------- 0100 ; Debug Table 0100 ; -------------------------------------------------------------------------------------- 0100 0004 0006 | | .DEBUG4 0x0004,0x0006,0x880c,0x0000,0x0001,0x000a 0106 000b 012e | .| .DBG4T 0x000b,0x012e,0x0000,0x0000 010a 0028 0138 | ( 8| .DBG4T 0x0028,0x0138,0x0000,0x0000 010e 003b 0141 | ; A| .DBG4T 0x003b,0x0141,0x0002,0x0000 0112 004b 0144 | K D| .DBG4T 0x004b,0x0144,0x0002,0x0000 0116 005b 0147 | [ G| .DBG4T 0x005b,0x0147,0x0002,0x0000 011a 0063 014a | c J| .DBG4T 0x0063,0x014a,0x0002,0x0000 011e 006b 014d | k M| .DBG4T 0x006b,0x014d,0x0002,0x0000 0122 007b 0150 | { P| .DBG4T 0x007b,0x0150,0x0001,0x4000 0126 009b 015e | ^| .DBG4T 0x009b,0x015e,0x0002,0x4000 012a 00b3 0000 | | .DBG4T 0x00b3,0x0000,0x0005,0x0000 012e ; -------------------------------------------------------------------------------------- 012e ; Debug chain 012e ; -------------------------------------------------------------------------------------- 012e 0008 0000 | | .DBGLEN 0x0008,0x0000 0130 000b 0019 | | .DBGLNO 0x000b,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025 0138 ; -------------------------------------------------------------------------------------- 0138 ; Debug chain 0138 ; -------------------------------------------------------------------------------------- 0138 0007 0000 | | .DBGLEN 0x0007,0x0000 013a 0028 002a | ( *| .DBGLNO 0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034 0141 ; -------------------------------------------------------------------------------------- 0141 ; Debug chain 0141 ; -------------------------------------------------------------------------------------- 0141 0000 0001 | | .DBGLEN 0x0000,0x0001 0143 003b | ; | .DBGLNO 0x003b 0144 ; -------------------------------------------------------------------------------------- 0144 ; Debug chain 0144 ; -------------------------------------------------------------------------------------- 0144 0000 0001 | | .DBGLEN 0x0000,0x0001 0146 004b | K | .DBGLNO 0x004b 0147 ; -------------------------------------------------------------------------------------- 0147 ; Debug chain 0147 ; -------------------------------------------------------------------------------------- 0147 0000 0001 | | .DBGLEN 0x0000,0x0001 0149 005b | [ | .DBGLNO 0x005b 014a ; -------------------------------------------------------------------------------------- 014a ; Debug chain 014a ; -------------------------------------------------------------------------------------- 014a 0000 0001 | | .DBGLEN 0x0000,0x0001 014c 0063 | c | .DBGLNO 0x0063 014d ; -------------------------------------------------------------------------------------- 014d ; Debug chain 014d ; -------------------------------------------------------------------------------------- 014d 0000 0001 | | .DBGLEN 0x0000,0x0001 014f 006b | k | .DBGLNO 0x006b 0150 ; -------------------------------------------------------------------------------------- 0150 ; Debug chain 0150 ; -------------------------------------------------------------------------------------- 0150 0000 0006 | | .DBGLEN 0x0000,0x0006 0152 007b 007e | { ~| .DBGLNO 0x007b,0x007e,0x0084,0x0089,0x008d,0x0091 0158 0001 0003 | | .XXX[0x6] 015a 0002 0004 | | 015c 0005 0006 | | 015e ; -------------------------------------------------------------------------------------- 015e ; Debug chain 015e ; -------------------------------------------------------------------------------------- 015e 0001 0003 | | .DBGLEN 0x0001,0x0003 0160 009b 009e | | .DBGLNO 0x009b,0x009e,0x00a1,0x00a7 0164 0001 0003 | | .XXX[0x3] 0166 0002 | | 0167 0000 0000 | | .BLANK 0000[0x99]