|
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: 2048 (0x800)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01d8 | | .CONST 0x01d8 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0097 | | .CONST 0x0097 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x01fa,0x8000,0x0000,0x0057,0x4fe5,0x0000,0x000b ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 0129 | ) | Execute Any,Make_Visible 000e 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x1 = 0xe,0xfffe 000f 480d |H | Short_Literal 0xd 0010 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 0012 03fe | | Declare_Type Discrete,Defined,Visible 0013 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x2 = 0x13,0xfffd 0014 0266 | f | Execute Discrete,Bounds 0015 00e8 | | Load_Encached Character_Cache 0016 02a0 | | Declare_Subprogram Null_Subprogram 0017 4801 |H | Short_Literal 0x1 0018 035e | ^ | Declare_Type Array,Defined,Visible 0019 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x3 = 0x19,0xfffc 001a 0336 | 6 | Declare_Variable Array,Visible 001b 00d9 | | Load_Top At_Offset_1 001c 0337 | 7 | Declare_Variable Array 001d 4820 |H | Short_Literal 0x20 001e 4800 |H | Short_Literal 0x0 001f 00da | | Load_Top At_Offset_2 0020 01d6 | | Execute Vector,Field_Write 0021 4878 |Hx | Short_Literal 0x78 0022 4801 |H | Short_Literal 0x1 0023 00da | | Load_Top At_Offset_2 0024 01d6 | | Execute Vector,Field_Write 0025 4871 |Hq | Short_Literal 0x71 0026 4802 |H | Short_Literal 0x2 0027 00da | | Load_Top At_Offset_2 0028 01d6 | | Execute Vector,Field_Write 0029 4878 |Hx | Short_Literal 0x78 002a 4803 |H | Short_Literal 0x3 002b 00da | | Load_Top At_Offset_2 002c 01d6 | | Execute Vector,Field_Write 002d 4871 |Hq | Short_Literal 0x71 002e 4804 |H | Short_Literal 0x4 002f 00da | | Load_Top At_Offset_2 0030 01d6 | | Execute Vector,Field_Write 0031 486c |Hl | Short_Literal 0x6c 0032 4805 |H | Short_Literal 0x5 0033 00da | | Load_Top At_Offset_2 0034 01d6 | | Execute Vector,Field_Write 0035 486b |Hk | Short_Literal 0x6b 0036 4806 |H | Short_Literal 0x6 0037 00da | | Load_Top At_Offset_2 0038 01d6 | | Execute Vector,Field_Write 0039 486d |Hm | Short_Literal 0x6d 003a 4807 |H | Short_Literal 0x7 003b 00da | | Load_Top At_Offset_2 003c 01d6 | | Execute Vector,Field_Write 003d 486a |Hj | Short_Literal 0x6a 003e 4808 |H | Short_Literal 0x8 003f 00da | | Load_Top At_Offset_2 0040 01d6 | | Execute Vector,Field_Write 0041 4876 |Hv | Short_Literal 0x76 0042 4809 |H | Short_Literal 0x9 0043 00da | | Load_Top At_Offset_2 0044 01d6 | | Execute Vector,Field_Write 0045 4877 |Hw | Short_Literal 0x77 0046 480a |H | Short_Literal 0xa 0047 00da | | Load_Top At_Offset_2 0048 01d6 | | Execute Vector,Field_Write 0049 4875 |Hu | Short_Literal 0x75 004a 480b |H | Short_Literal 0xb 004b 00da | | Load_Top At_Offset_2 004c 01d6 | | Execute Vector,Field_Write 004d 4874 |Ht | Short_Literal 0x74 004e 480c |H | Short_Literal 0xc 004f 00da | | Load_Top At_Offset_2 0050 01d6 | | Execute Vector,Field_Write 0051 486e |Hn | Short_Literal 0x6e 0052 480d |H | Short_Literal 0xd 0053 00da | | Load_Top At_Offset_2 0054 01d6 | | Execute Vector,Field_Write 0055 00da | | Load_Top At_Offset_2 0056 01c3 | | Execute Vector,Check_In_Type 0057 00d9 | | Load_Top At_Offset_1 0058 01d4 | | Execute Vector,Structure_Write 0059 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x4 = 0x59,0xfffb 005a 4812 |H | Short_Literal 0x12 005b 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 005d 03fe | | Declare_Type Discrete,Defined,Visible 005e 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x5 = 0x5e,0xfffa 005f 0129 | ) | Execute Any,Make_Visible 0060 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x6 = 0x60,0xfff9 ; Debug Table 0x0.0x7 = 0x60,0xfff8 0061 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0062 0129 | ) | Execute Any,Make_Visible 0063 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x8 = 0x63,0xfff7 0064 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0065 0129 | ) | Execute Any,Make_Visible 0066 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x9 = 0x66,0xfff6 0067 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0068 0322 | " | Declare_Variable Record 0069 4800 |H | Short_Literal 0x0 006a 00d9 | | Load_Top At_Offset_1 006b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 006c 4800 |H | Short_Literal 0x0 006d 00d9 | | Load_Top At_Offset_1 006e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 006f 4801 |H | Short_Literal 0x1 0070 00d9 | | Load_Top At_Offset_1 0071 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0072 e002 | | Load 0x0,0x2 0073 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0074 0337 | 7 | Declare_Variable Array 0075 4803 |H | Short_Literal 0x3 0076 4800 |H | Short_Literal 0x0 0077 4800 |H | Short_Literal 0x0 0078 00d9 | | Load_Top At_Offset_1 0079 e216 | | Load 0x1,0x16 007a 01d6 | | Execute Vector,Field_Write 007b 3ffb |? | Loop_Increasing 0x77 007c e002 | | Load 0x0,0x2 007d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 007e 0119 | | Execute Any,Check_In_Formal_Type 007f 00d9 | | Load_Top At_Offset_1 0080 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0081 0129 | ) | Execute Any,Make_Visible 0082 e003 | | Load 0x0,0x3 ; Debug Table 0x0.0xa = 0x82,0xfff5 0083 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0084 e003 | | Load 0x0,0x3 0085 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0086 e003 | | Load 0x0,0x3 0087 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0088 e003 | | Load 0x0,0x3 0089 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008a e003 | | Load 0x0,0x3 008b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008c 00e4 | | Load_Encached Positive_Cache 008d 00e8 | | Load_Encached Character_Cache 008e e213 | | Load 0x1,0x13 008f e213 | | Load 0x1,0x13 0090 00e1 | | Load_Encached Boolean_Cache 0091 00e8 | | Load_Encached Character_Cache 0092 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0094 480b |H | Short_Literal 0xb 0095 032e | . | Declare_Type Record,Defined,Visible 0096 00bf | | Action Accept_Activation 0097 BODY_0008: 0097 00bc | | Action Signal_Activated 0098 00bb | | Action Signal_Completion 0099 0000 0000 | | .BLANK 0000[0x7] 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 4603 |F | Jump_Case 0x4 ; Debug Table 0x1 = .DEBUG 0x00a3,0x0212,0x0005,0x0000,0x0057,0x4fe5,0x0000,0x0014 00a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00a5 7802 |x | Jump 0xa8 ; case 0x1 00a6 7805 |x | Jump 0xac ; case 0x2 00a7 7809 |x | Jump 0xb1 ; case 0x3 00a8 00da | | Load_Top At_Offset_2 00a9 0091 0100 | | Action Push_String_Extended_Indexed,0x100 ; "NONE" 00ab 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00ac 00db | | Load_Top At_Offset_3 00ad 00db | | Load_Top At_Offset_3 00ae 00e0 | | Load_Encached Standard_Cache 00af 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b1 00da | | Load_Top At_Offset_2 00b2 00e0 | | Load_Encached Standard_Cache 00b3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00b4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00b5 0000 0000 | | .XXX[0x3] 00b7 0000 | | 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 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x00bb,0x0214,0x0005,0x0000,0x0057,0x4fe5,0x0000,0x006f 00bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00bd 7802 |x | Jump 0xc0 ; case 0x1 00be 7805 |x | Jump 0xc4 ; case 0x2 00bf 7809 |x | Jump 0xc9 ; case 0x3 00c0 00da | | Load_Top At_Offset_2 00c1 0091 010e | | Action Push_String_Extended_Indexed,0x10e ; "ALERT" 00c3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00c4 00db | | Load_Top At_Offset_3 00c5 00db | | Load_Top At_Offset_3 00c6 00e0 | | Load_Encached Standard_Cache 00c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00c9 00da | | Load_Top At_Offset_2 00ca 00e0 | | Load_Encached Standard_Cache 00cb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00cc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00cd 0000 0000 | | .XXX[0x3] 00cf 0000 | | 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 4608 |F | Jump_Case 0x9 ; Debug Table 0x3 = .DEBUG 0x00d3,0x0216,0x0005,0x0000,0x0057,0x4fe5,0x0000,0x00bf 00d4 7808 |x | Jump 0xdd ; case 0x0 00d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 00d6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 00d7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 00d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 00d9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 00da 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 00db 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 00dd e003 | | Load 0x0,0x3 00de 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00df 00db | | Load_Top At_Offset_3 00e0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e1 4801 |H | Short_Literal 0x1 00e2 00db | | Load_Top At_Offset_3 00e3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00e4 4801 |H | Short_Literal 0x1 00e5 00db | | Load_Top At_Offset_3 00e6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00e7 4801 |H | Short_Literal 0x1 00e8 00db | | Load_Top At_Offset_3 00e9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00ea 4801 |H | Short_Literal 0x1 00eb 00db | | Load_Top At_Offset_3 00ec 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00ed 4801 |H | Short_Literal 0x1 00ee 00db | | Load_Top At_Offset_3 00ef 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 00f0 4800 |H | Short_Literal 0x0 00f1 00db | | Load_Top At_Offset_3 00f2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 00f3 e214 | | Load 0x1,0x14 00f4 00db | | Load_Top At_Offset_3 00f5 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 00f6 e214 | | Load 0x1,0x14 00f7 00db | | Load_Top At_Offset_3 00f8 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 00f9 4800 |H | Short_Literal 0x0 00fa 00db | | Load_Top At_Offset_3 00fb 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 00fc 4800 |H | Short_Literal 0x0 00fd 00db | | Load_Top At_Offset_3 00fe 380a |8 | Execute Record,Field_Write,Field_Number 0xa 00ff 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0100 ; -------------------------------------------------------------------------------------- 0100 ; STRING TABLE 0100 ; -------------------------------------------------------------------------------------- 0100 0044 | D | .STRTAB 0x0044->0x0122 ; "NONE" 0101 0046 | F | .STRTAB 0x0046->0x0124 ; "LEFT_V" 0102 004a | J | .STRTAB 0x004a->0x0127 ; "UPPER_H" 0103 004f | O | .STRTAB 0x004f->0x012a ; "RIGHT_V" 0104 0054 | T | .STRTAB 0x0054->0x012e ; "LOWER_H" 0105 0059 | Y | .STRTAB 0x0059->0x0131 ; "UL_CORNER" 0106 0060 | ` | .STRTAB 0x0060->0x0136 ; "UR_CORNER" 0107 0067 | g | .STRTAB 0x0067->0x013a ; "LL_CORNER" 0108 006e | n | .STRTAB 0x006e->0x013f ; "LR_CORNER" 0109 0075 | u | .STRTAB 0x0075->0x0143 ; "LOWER_T" 010a 007a | z | .STRTAB 0x007a->0x0147 ; "UPPER_T" 010b 007f | | .STRTAB 0x007f->0x014a ; "RIGHT_T" 010c 0084 | | .STRTAB 0x0084->0x014e ; "LEFT_T" 010d 0088 | | .STRTAB 0x0088->0x0151 ; "INTERSECTION" 010e 0092 | | .STRTAB 0x0092->0x0157 ; "ALERT" 010f 0095 | | .STRTAB 0x0095->0x0159 ; "CHANGE_MODE" 0110 009e | | .STRTAB 0x009e->0x015f ; "CLEAR_TO_END_OF_LINE" 0111 00b0 | | .STRTAB 0x00b0->0x0169 ; "DELETE_CHAR" 0112 00b9 | | .STRTAB 0x00b9->0x016e ; "DELETE_COLUMNS" 0113 00c5 | | .STRTAB 0x00c5->0x0175 ; "DELETE_LINE" 0114 00ce | | .STRTAB 0x00ce->0x017b ; "DELETE_LINE_SEGMENT" 0115 00df | | .STRTAB 0x00df->0x0184 ; "FILL_LINE_SEGMENT" 0116 00ee | | .STRTAB 0x00ee->0x018d ; "INITIALIZE" 0117 00f6 | | .STRTAB 0x00f6->0x0192 ; "INSERT_CHAR" 0118 00ff | | .STRTAB 0x00ff->0x0197 ; "INSERT_COLUMNS" 0119 010b | | .STRTAB 0x010b->0x019e ; "INSERT_LINE" 011a 0114 | | .STRTAB 0x0114->0x01a4 ; "INSERT_LINE_SEGMENT" 011b 0125 | % | .STRTAB 0x0125->0x01ad ; "INSERT_MANY_CHARS" 011c 0134 | 4 | .STRTAB 0x0134->0x01b6 ; "PRINT_BORDER" 011d 013e | > | .STRTAB 0x013e->0x01bc ; "PRINT_CHARACTER" 011e 014b | K | .STRTAB 0x014b->0x01c3 ; "PRINT_MANY_CHARACTERS" 011f 015e | ^ | .STRTAB 0x015e->0x01ce ; "RESET" 0120 0161 | a | .STRTAB 0x0161->0x01d0 ; "SET_CURSOR" 0121 0169 | i | .STREND 0x0169->0x01d5 0122 4e4f 4e45 |NONE| .STRTAB_STRINGS 01d6 0000 0000 | | .XXX[0x2] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; Debug Table 01d8 ; -------------------------------------------------------------------------------------- 01d8 0003 0004 | | .CONST 0x0003,0x0004 01da 000b 01fa | | .DEBUG 0x000b,0x01fa,0x8000,0x0000,0x0057,0x4fe5,0x0000,0x000b 01e2 00a3 0212 | | .DEBUG 0x00a3,0x0212,0x0005,0x0000,0x0057,0x4fe5,0x0000,0x0014 01ea 00bb 0214 | | .DEBUG 0x00bb,0x0214,0x0005,0x0000,0x0057,0x4fe5,0x0000,0x006f 01f2 00d3 0216 | | .DEBUG 0x00d3,0x0216,0x0005,0x0000,0x0057,0x4fe5,0x0000,0x00bf 01fa ; -------------------------------------------------------------------------------------- 01fa ; Debug3 Subtable 0x0 01fa ; -------------------------------------------------------------------------------------- 01fa 000b 0000 | | .DBG3TAB 0x000b,0x0000 01fc 000b ffff | | .CONST 0x000b,0xffff 01fe 000e fffe | | .CONST 0x000e,0xfffe 0200 0013 fffd | | .CONST 0x0013,0xfffd 0202 0019 fffc | | .CONST 0x0019,0xfffc 0204 0059 fffb | Y | .CONST 0x0059,0xfffb 0206 005e fffa | ^ | .CONST 0x005e,0xfffa 0208 0060 fff9 | ` | .CONST 0x0060,0xfff9 020a 0060 fff8 | ` | .CONST 0x0060,0xfff8 020c 0063 fff7 | c | .CONST 0x0063,0xfff7 020e 0066 fff6 | f | .CONST 0x0066,0xfff6 0210 0082 fff5 | | .CONST 0x0082,0xfff5 0212 ; -------------------------------------------------------------------------------------- 0212 ; Debug3 Subtable 0x1 0212 ; -------------------------------------------------------------------------------------- 0212 0000 0000 | | .DBG3TAB 0x0000,0x0000 0214 ; -------------------------------------------------------------------------------------- 0214 ; Debug3 Subtable 0x2 0214 ; -------------------------------------------------------------------------------------- 0214 0000 0000 | | .DBG3TAB 0x0000,0x0000 0216 ; -------------------------------------------------------------------------------------- 0216 ; Debug3 Subtable 0x3 0216 ; -------------------------------------------------------------------------------------- 0216 0000 0000 | | .DBG3TAB 0x0000,0x0000 0218 0000 0000 | | .BLANK 0000[0x1e8]