|
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_2140b1
└─⟦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 0118 | | .CONST 0x0118 ; 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 004b | K | .CONST 0x004b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b e002 | | Load 0x0,0x2 000c 0336 | 6 | Declare_Variable Array,Visible 000d 4801 |H | Short_Literal 0x1 000e 480c |H | Short_Literal 0xc 000f e003 | | Load 0x0,0x3 0010 035b | [ | Declare_Type Array,Constrained 0011 0337 | 7 | Declare_Variable Array 0012 4803 |H | Short_Literal 0x3 0013 4801 |H | Short_Literal 0x1 0014 00da | | Load_Top At_Offset_2 0015 01d6 | | Execute Vector,Field_Write 0016 4842 |HB | Short_Literal 0x42 0017 4802 |H | Short_Literal 0x2 0018 00da | | Load_Top At_Offset_2 0019 01d6 | | Execute Vector,Field_Write 001a 4833 |H3 | Short_Literal 0x33 001b 4803 |H | Short_Literal 0x3 001c 00da | | Load_Top At_Offset_2 001d 01d6 | | Execute Vector,Field_Write 001e 4834 |H4 | Short_Literal 0x34 001f 4804 |H | Short_Literal 0x4 0020 00da | | Load_Top At_Offset_2 0021 01d6 | | Execute Vector,Field_Write 0022 4828 |H( | Short_Literal 0x28 0023 4805 |H | Short_Literal 0x5 0024 00da | | Load_Top At_Offset_2 0025 01d6 | | Execute Vector,Field_Write 0026 4826 |H& | Short_Literal 0x26 0027 4806 |H | Short_Literal 0x6 0028 00da | | Load_Top At_Offset_2 0029 01d6 | | Execute Vector,Field_Write 002a 4813 |H | Short_Literal 0x13 002b 4807 |H | Short_Literal 0x7 002c 00da | | Load_Top At_Offset_2 002d 01d6 | | Execute Vector,Field_Write 002e 4801 |H | Short_Literal 0x1 002f 4808 |H | Short_Literal 0x8 0030 00da | | Load_Top At_Offset_2 0031 01d6 | | Execute Vector,Field_Write 0032 482f |H/ | Short_Literal 0x2f 0033 4809 |H | Short_Literal 0x9 0034 00da | | Load_Top At_Offset_2 0035 01d6 | | Execute Vector,Field_Write 0036 4830 |H0 | Short_Literal 0x30 0037 480a |H | Short_Literal 0xa 0038 00da | | Load_Top At_Offset_2 0039 01d6 | | Execute Vector,Field_Write 003a 482d |H- | Short_Literal 0x2d 003b 480b |H | Short_Literal 0xb 003c 00da | | Load_Top At_Offset_2 003d 01d6 | | Execute Vector,Field_Write 003e 482e |H. | Short_Literal 0x2e 003f 480c |H | Short_Literal 0xc 0040 00da | | Load_Top At_Offset_2 0041 01d6 | | Execute Vector,Field_Write 0042 8004 | | Call 0x0,0x4 0043 00d9 | | Load_Top At_Offset_1 0044 01d4 | | Execute Vector,Structure_Write 0045 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 0047 00bf | | Action Accept_Activation 0048 00e2 | | Load_Encached Integer_Cache 0049 1d0e | | Execute_Immediate Reference_Lex_1,0xe 004a 00c7 | | Action Elaborate_Subprogram 004b BODY_0008: 004b 00bc | | Action Signal_Activated 004c 00bb | | Action Signal_Completion 004d 0000 0000 | | .XXX[0x3] 004f 0000 | | 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 006f | o | .CONST 0x006f ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0007 | | .CONST 0x0007 ; Number of locals 0053 INIT_0050: 0053 e005 | | Load 0x0,0x5 0054 0007 | | Action Break_Optional 0055 4820 |H | Short_Literal 0x20 0056 e006 | | Load 0x0,0x6 0057 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0058 1c08 | | Execute_Immediate Run_Utility,0x8 0059 00d8 | | Load_Top At_Offset_0 005a 1c00 | | Execute_Immediate Run_Utility,0x0 005b 4820 |H | Short_Literal 0x20 005c e006 | | Load 0x0,0x6 005d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 005e 1c08 | | Execute_Immediate Run_Utility,0x8 005f 00d8 | | Load_Top At_Offset_0 0060 1c00 | | Execute_Immediate Run_Utility,0x0 0061 4820 |H | Short_Literal 0x20 0062 e006 | | Load 0x0,0x6 0063 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0064 1c08 | | Execute_Immediate Run_Utility,0x8 0065 00d8 | | Load_Top At_Offset_0 0066 1c00 | | Execute_Immediate Run_Utility,0x0 0067 4820 |H | Short_Literal 0x20 0068 e006 | | Load 0x0,0x6 0069 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006a 1c08 | | Execute_Immediate Run_Utility,0x8 006b 00d8 | | Load_Top At_Offset_0 006c 1c00 | | Execute_Immediate Run_Utility,0x0 006d e005 | | Load 0x0,0x5 006e 0007 | | Action Break_Optional 006f BODY_0050: 006f e007 | | Load 0x0,0x7 0070 8008 | | Call 0x0,0x8 0071 8009 | | Call 0x0,0x9 0072 680f |h | Jump_Zero 0x82 0073 00db | | Load_Top At_Offset_3 0074 e403 | | Load 0x2,0x3 0075 800a | | Call 0x0,0xa 0076 00d2 | | Pop_Control Pop_Count_2 0077 e5fe | | Load 0x2,-0x2 0078 e5ff | | Load 0x2,-0x1 0079 e404 | | Load 0x2,0x4 007a e006 | | Load 0x0,0x6 007b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 007c e403 | | Load 0x2,0x3 007d e006 | | Load 0x0,0x6 007e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 007f 800b | | Call 0x0,0xb 0080 a5fd | | Store_Unchecked 0x2,-0x3 0081 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0082 e00c | | Load 0x0,0xc 0083 8008 | | Call 0x0,0x8 0084 8009 | | Call 0x0,0x9 0085 6807 |h | Jump_Zero 0x8d 0086 e005 | | Load 0x0,0x5 0087 800d | | Call 0x0,0xd 0088 c402 | | Store 0x2,0x2 0089 e402 | | Load 0x2,0x2 008a 800e | | Call 0x0,0xe 008b a5fd | | Store_Unchecked 0x2,-0x3 008c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 008d e00f | | Load 0x0,0xf 008e 8008 | | Call 0x0,0x8 008f 8009 | | Call 0x0,0x9 0090 6807 |h | Jump_Zero 0x98 0091 e20f | | Load 0x1,0xf 0092 8010 | | Call 0x0,0x10 0093 c20f | | Store 0x1,0xf 0094 e20f | | Load 0x1,0xf 0095 8011 | | Call 0x0,0x11 0096 a5fd | | Store_Unchecked 0x2,-0x3 0097 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0098 8008 | | Call 0x0,0x8 0099 00d8 | | Load_Top At_Offset_0 009a 0d26 | & | Execute_Immediate Less,0x26 009b 702a |p* | Jump_Nonzero 0xc6 009c 0ada | | Execute_Immediate Plus,-0x26 009d 4623 |F# | Jump_Case 0x24 009e 7829 |x) | Jump 0xc8 ; case 0x0 009f 7822 |x" | Jump 0xc2 ; case 0x1 00a0 7827 |x' | Jump 0xc8 ; case 0x2 00a1 7820 |x | Jump 0xc2 ; case 0x3 00a2 781f |x | Jump 0xc2 ; case 0x4 00a3 781e |x | Jump 0xc2 ; case 0x5 00a4 781d |x | Jump 0xc2 ; case 0x6 00a5 781c |x | Jump 0xc2 ; case 0x7 00a6 781b |x | Jump 0xc2 ; case 0x8 00a7 784b |xK | Jump 0xf3 ; case 0x9 00a8 784a |xJ | Jump 0xf3 ; case 0xa 00a9 7818 |x | Jump 0xc2 ; case 0xb 00aa 7817 |x | Jump 0xc2 ; case 0xc 00ab 781c |x | Jump 0xc8 ; case 0xd 00ac 781b |x | Jump 0xc8 ; case 0xe 00ad 7814 |x | Jump 0xc2 ; case 0xf 00ae 7813 |x | Jump 0xc2 ; case 0x10 00af 7812 |x | Jump 0xc2 ; case 0x11 00b0 7811 |x | Jump 0xc2 ; case 0x12 00b1 7810 |x | Jump 0xc2 ; case 0x13 00b2 780f |x | Jump 0xc2 ; case 0x14 00b3 780e |x | Jump 0xc2 ; case 0x15 00b4 780d |x | Jump 0xc2 ; case 0x16 00b5 780c |x | Jump 0xc2 ; case 0x17 00b6 780b |x | Jump 0xc2 ; case 0x18 00b7 780a |x | Jump 0xc2 ; case 0x19 00b8 7809 |x | Jump 0xc2 ; case 0x1a 00b9 7808 |x | Jump 0xc2 ; case 0x1b 00ba 7807 |x | Jump 0xc2 ; case 0x1c 00bb 7806 |x | Jump 0xc2 ; case 0x1d 00bc 7805 |x | Jump 0xc2 ; case 0x1e 00bd 7804 |x | Jump 0xc2 ; case 0x1f 00be 7803 |x | Jump 0xc2 ; case 0x20 00bf 7802 |x | Jump 0xc2 ; case 0x21 00c0 7801 |x | Jump 0xc2 ; case 0x22 00c1 7800 |x | Jump 0xc2 ; case 0x23 00c2 0092 00f8 | | Action Push_String_Extended,0xf8 ; "Mauvaise condition" 00c4 8012 | | Call 0x0,0x12 00c5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c6 00d1 | | Pop_Control Pop_Count_1 00c7 7ffa | | Jump 0xc2 00c8 8008 | | Call 0x0,0x8 00c9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00ca 8013 | | Call 0x0,0x13 00cb 8008 | | Call 0x0,0x8 00cc 0f0a | | Execute_Immediate Equal,0xa 00cd 6821 |h! | Jump_Zero 0xef 00ce 8013 | | Call 0x0,0x13 00cf 00da | | Load_Top At_Offset_2 00d0 8014 | | Call 0x0,0x14 00d1 00d1 | | Pop_Control Pop_Count_1 00d2 8008 | | Call 0x0,0x8 00d3 0f0c | | Execute_Immediate Equal,0xc 00d4 6816 |h | Jump_Zero 0xeb 00d5 8013 | | Call 0x0,0x13 00d6 00d9 | | Load_Top At_Offset_1 00d7 8014 | | Call 0x0,0x14 00d8 00d1 | | Pop_Control Pop_Count_1 00d9 8008 | | Call 0x0,0x8 00da 0f0b | | Execute_Immediate Equal,0xb 00db 680b |h | Jump_Zero 0xe7 00dc 8013 | | Call 0x0,0x13 00dd 00d9 | | Load_Top At_Offset_1 00de e006 | | Load 0x0,0x6 00df 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e0 00db | | Load_Top At_Offset_3 00e1 e006 | | Load 0x0,0x6 00e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e3 00da | | Load_Top At_Offset_2 00e4 8015 | | Call 0x0,0x15 00e5 a5fd | | Store_Unchecked 0x2,-0x3 00e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00e7 0092 00f9 | | Action Push_String_Extended,0xf9 ; "Manque )" 00e9 8012 | | Call 0x0,0x12 00ea 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00eb 0092 00fa | | Action Push_String_Extended,0xfa ; "Manque ," 00ed 8012 | | Call 0x0,0x12 00ee 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ef 0092 00fb | | Action Push_String_Extended,0xfb ; "Manque (" 00f1 8012 | | Call 0x0,0x12 00f2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00f3 8008 | | Call 0x0,0x8 00f4 800e | | Call 0x0,0xe 00f5 a5fd | | Store_Unchecked 0x2,-0x3 00f6 8013 | | Call 0x0,0x13 00f7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; STRING TABLE 00f8 ; -------------------------------------------------------------------------------------- 00f8 000a | | .STRTAB 0x000a->0x00fd ; "Mauvaise condition" 00f9 001a | | .STRTAB 0x001a->0x0106 ; "Manque )" 00fa 0020 | | .STRTAB 0x0020->0x010a ; "Manque ," 00fb 0026 | & | .STRTAB 0x0026->0x010e ; "Manque (" 00fc 002c | , | .STREND 0x002c->0x0112 00fd 4d61 7576 |Mauv| .STRTAB_STRINGS 0112 0000 0000 | | .BLANK 0000[0x6] 0118 ; -------------------------------------------------------------------------------------- 0118 ; Debug Table 0118 ; -------------------------------------------------------------------------------------- 0118 0004 0008 | | .DEBUG4 0x0004,0x0008,0xb4c8,0x0000,0x0001,0x0003 011e 000b 012a | *| .DBG4T 0x000b,0x012a,0x8000,0x0000 0122 0048 012e | H .| .DBG4T 0x0048,0x012e,0x8000,0x0000 0126 0053 0132 | S 2| .DBG4T 0x0053,0x0132,0x0001,0x4000 012a ; -------------------------------------------------------------------------------------- 012a ; Debug chain 012a ; -------------------------------------------------------------------------------------- 012a 0002 0000 | | .DBGLEN 0x0002,0x0000 012c 000b 0045 | E| .DBGLNO 0x000b,0x0045 012e ; -------------------------------------------------------------------------------------- 012e ; Debug chain 012e ; -------------------------------------------------------------------------------------- 012e 0002 0000 | | .DBGLEN 0x0002,0x0000 0130 0048 0049 | H I| .DBGLNO 0x0048,0x0049 0132 ; -------------------------------------------------------------------------------------- 0132 ; Debug chain 0132 ; -------------------------------------------------------------------------------------- 0132 0004 001b | | .DBGLEN 0x0004,0x001b 0134 0053 0055 | S U| .DBGLNO 0x0053,0x0055,0x0061,0x006d,0x006f,0x0073,0x0077,0x0082,0x0086,0x0089,0x008d,0x0091,0x0094,0x0098,0x00c2,0x00c8,0x00ca,0x00cb,0x00ce,0x00cf,0x00d2,0x00d5,0x00d6,0x00d9,0x00dc,0x00dd,0x00e7,0x00eb,0x00ef,0x00f3,0x00f6 0153 0001 0002 | | .XXX[0x1b] 0155 0003 0004 | | 0157 0005 0006 | | 0159 0007 0008 | | 015b 0009 000a | | 015d 001b 000b | | 015f 000c 000d | | 0161 000e 000f | | 0163 0010 0011 | | 0165 0012 0013 | | 0167 0014 0015 | | 0169 0016 0017 | | 016b 0018 0019 | | 016d 001a | | 016e 0000 0000 | | .BLANK 0000[0x92]