|
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_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0140 | @ | .CONST 0x0140 ; 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 0045 | E | .CONST 0x0045 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4802 |H | Short_Literal 0x2 000d 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 00d8 | | Load_Top At_Offset_0 0011 e002 | | Load 0x0,0x2 0012 00d8 | | Load_Top At_Offset_0 0013 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 0015 4803 |H | Short_Literal 0x3 0016 032e | . | Declare_Type Record,Defined,Visible 0017 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0019 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 001b 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 001d 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 001f 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0021 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0023 00bf | | Action Accept_Activation 0024 4800 |H | Short_Literal 0x0 0025 4803 |H | Short_Literal 0x3 0026 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 0028 03fd | | Declare_Type Discrete,Defined 0029 e003 | | Load 0x0,0x3 002a e004 | | Load 0x0,0x4 002b 00da | | Load_Top At_Offset_2 002c 4800 |H | Short_Literal 0x0 002d 4801 |H | Short_Literal 0x1 002e 4803 |H | Short_Literal 0x3 002f 0092 0111 | | Action Push_String_Extended,0x111 ; "others => Unspecified" 0031 00ea | | Load_Encached Null_String_Cache 0032 00ea | | Load_Encached Null_String_Cache 0033 4801 |H | Short_Literal 0x1 0034 4803 |H | Short_Literal 0x3 0035 e005 | | Load 0x0,0x5 0036 0387 | | Declare_Variable Package 0037 00d8 | | Load_Top At_Offset_0 0038 020f | | Execute Module,Activate 0039 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003a 00c7 | | Action Elaborate_Subprogram 003b 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003c 00c7 | | Action Elaborate_Subprogram 003d 1d11 | | Execute_Immediate Reference_Lex_1,0x11 003e 00c7 | | Action Elaborate_Subprogram 003f 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0040 00c7 | | Action Elaborate_Subprogram 0041 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0042 00c7 | | Action Elaborate_Subprogram 0043 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0044 00c7 | | Action Elaborate_Subprogram 0045 BODY_0008: 0045 00bc | | Action Signal_Activated 0046 00bb | | Action Signal_Completion 0047 0000 | | .XXX[0x1] 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 4607 |F | Jump_Case 0x8 004c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 004d 7807 |x | Jump 0x55 ; case 0x1 004e 780a |x | Jump 0x59 ; case 0x2 004f 780e |x | Jump 0x5e ; case 0x3 0050 7811 |x | Jump 0x62 ; case 0x4 0051 7812 |x | Jump 0x64 ; case 0x5 0052 7813 |x | Jump 0x66 ; case 0x6 0053 7816 |x | Jump 0x6a ; case 0x7 0054 4302 |C | .XXX[0x1] 0055 00da | | Load_Top At_Offset_2 0056 0091 010a | | Action Push_String_Extended_Indexed,0x10a ; "NONE" 0058 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0059 00db | | Load_Top At_Offset_3 005a 00db | | Load_Top At_Offset_3 005b 00e0 | | Load_Encached Standard_Cache 005c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 005d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 005e 00da | | Load_Top At_Offset_2 005f 00e0 | | Load_Encached Standard_Cache 0060 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0061 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0062 00db | | Load_Top At_Offset_3 0063 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0064 00db | | Load_Top At_Offset_3 0065 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0066 e20d | | Load 0x1,0xd 0067 00dc | | Load_Top At_Offset_4 0068 0267 | g | Execute Discrete,Predecessor 0069 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006a e20d | | Load 0x1,0xd 006b 00dc | | Load_Top At_Offset_4 006c 0268 | h | Execute Discrete,Successor 006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006e 0000 0000 | | .XXX[0x2] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 007a | z | .CONST 0x007a ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0003 | | .CONST 0x0003 ; Number of locals 0073 INIT_0070: 0073 e20e | | Load 0x1,0xe 0074 0322 | " | Declare_Variable Record 0075 00d8 | | Load_Top At_Offset_0 0076 1c00 | | Execute_Immediate Run_Utility,0x0 0077 00db | | Load_Top At_Offset_3 0078 e216 | | Load 0x1,0x16 0079 1820 | | Execute Package,Field_Execute,Field_Number 0x20 007a BODY_0070: 007a 00d8 | | Load_Top At_Offset_0 007b e216 | | Load 0x1,0x16 007c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 007d 7002 |p | Jump_Nonzero 0x80 007e e006 | | Load 0x0,0x6 007f 0257 | W | Execute Discrete,Raise 0080 4801 |H | Short_Literal 0x1 0081 00d9 | | Load_Top At_Offset_1 0082 e216 | | Load 0x1,0x16 0083 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0084 6809 |h | Jump_Zero 0x8e 0085 00ea | | Load_Encached Null_String_Cache 0086 4801 |H | Short_Literal 0x1 0087 00da | | Load_Top At_Offset_2 0088 e216 | | Load 0x1,0x16 0089 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 008a e20d | | Load 0x1,0xd 008b 1c02 | | Execute_Immediate Run_Utility,0x2 008c 00da | | Load_Top At_Offset_2 008d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 008e 00d9 | | Load_Top At_Offset_1 008f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0090 7006 |p | Jump_Nonzero 0x97 0091 4802 |H | Short_Literal 0x2 0092 00d9 | | Load_Top At_Offset_1 0093 e216 | | Load 0x1,0x16 0094 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0095 680a |h | Jump_Zero 0xa0 0096 0833 | 3 | Execute_Immediate Raise,0x33 0097 e5fe | | Load 0x2,-0x2 0098 00ea | | Load_Encached Null_String_Cache 0099 4802 |H | Short_Literal 0x2 009a 00db | | Load_Top At_Offset_3 009b e216 | | Load 0x1,0x16 009c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 009d 8007 | | Call 0x0,0x7 009e 00da | | Load_Top At_Offset_2 009f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00a0 00d9 | | Load_Top At_Offset_1 00a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00a2 0000 0000 | | .BLANK 0000[0x6] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00af | | .CONST 0x00af ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0002 | | .CONST 0x0002 ; Number of locals 00ab INIT_00a8: 00ab e20e | | Load 0x1,0xe 00ac 0322 | " | Declare_Variable Record 00ad 00d8 | | Load_Top At_Offset_0 00ae 1c00 | | Execute_Immediate Run_Utility,0x0 00af BODY_00a8: 00af 00d8 | | Load_Top At_Offset_0 00b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 0833 | 3 | Execute_Immediate Raise,0x33 00bc 0000 0000 | | .BLANK 0000[0x4] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 0833 | 3 | Execute_Immediate Raise,0x33 00c4 0000 0000 | | .BLANK 0000[0x4] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 0833 | 3 | Execute_Immediate Raise,0x33 00cc 0000 0000 | | .BLANK 0000[0x4] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 0833 | 3 | Execute_Immediate Raise,0x33 00d4 0000 0000 | | .BLANK 0000[0x4] 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 4607 |F | Jump_Case 0x8 00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00dd 7807 |x | Jump 0xe5 ; case 0x1 00de 780a |x | Jump 0xe9 ; case 0x2 00df 780e |x | Jump 0xee ; case 0x3 00e0 7811 |x | Jump 0xf2 ; case 0x4 00e1 7812 |x | Jump 0xf4 ; case 0x5 00e2 7813 |x | Jump 0xf6 ; case 0x6 00e3 7816 |x | Jump 0xfa ; case 0x7 00e4 4302 |C | .XXX[0x1] 00e5 00da | | Load_Top At_Offset_2 00e6 0091 010d | | Action Push_String_Extended_Indexed,0x10d ; "NONE" 00e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e9 00db | | Load_Top At_Offset_3 00ea 00db | | Load_Top At_Offset_3 00eb 00e0 | | Load_Encached Standard_Cache 00ec 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ee 00da | | Load_Top At_Offset_2 00ef 00e0 | | Load_Encached Standard_Cache 00f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f2 00db | | Load_Top At_Offset_3 00f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f4 00db | | Load_Top At_Offset_3 00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f6 e215 | | Load 0x1,0x15 00f7 00dc | | Load_Top At_Offset_4 00f8 0267 | g | Execute Discrete,Predecessor 00f9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fa e215 | | Load 0x1,0x15 00fb 00dc | | Load_Top At_Offset_4 00fc 0268 | h | Execute Discrete,Successor 00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fe 0000 0000 | | .XXX[0x2] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 4601 |F | Jump_Case 0x2 0104 7801 |x | Jump 0x106 ; case 0x0 0105 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0106 4800 |H | Short_Literal 0x0 0107 00db | | Load_Top At_Offset_3 0108 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0109 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 010a ; -------------------------------------------------------------------------------------- 010a ; STRING TABLE 010a ; -------------------------------------------------------------------------------------- 010a 0012 | | .STRTAB 0x0012->0x0113 ; "NONE" 010b 0014 | | .STRTAB 0x0014->0x0115 ; "OUTPUT_COMPARE" 010c 0020 | | .STRTAB 0x0020->0x011c ; "USER_DEFINED" 010d 002a | * | .STRTAB 0x002a->0x0122 ; "NONE" 010e 002c | , | .STRTAB 0x002c->0x0124 ; "FORM" 010f 002e | . | .STRTAB 0x002e->0x0126 ; "HANDLE" 0110 0032 | 2 | .STRTAB 0x0032->0x0129 ; "PARAMETERS" 0111 003a | : | .STRTAB 0x003a->0x012e ; "others => Unspecified" 0112 004d | M | .STREND 0x004d->0x0138 0113 4e4f 4e45 |NONE| .STRTAB_STRINGS 0139 0000 0000 | | .BLANK 0000[0x7] 0140 ; -------------------------------------------------------------------------------------- 0140 ; Debug Table 0140 ; -------------------------------------------------------------------------------------- 0140 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5d9f,0x0000,0x0001,0x0000 0146 0000 0000 | | .BLANK 0000[0xba]