|
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_1180de
└─⟦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 0130 | 0 | .CONST 0x0130 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 003a | : | .CONST 0x003a ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0008 | | .CONST 0x0008 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 001d 02c7 | | Declare_Variable Any 001e e001 | | Load 0x0,0x1 001f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0020 a402 | | Store_Unchecked 0x2,0x2 0021 e002 | | Load 0x0,0x2 0022 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0023 0322 | " | Declare_Variable Record 0024 00d8 | | Load_Top At_Offset_0 0025 1c00 | | Execute_Immediate Run_Utility,0x0 0026 e003 | | Load 0x0,0x3 0027 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0028 02c7 | | Declare_Variable Any 0029 00d8 | | Load_Top At_Offset_0 002a 1c00 | | Execute_Immediate Run_Utility,0x0 002b e004 | | Load 0x0,0x4 002c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002d 02c7 | | Declare_Variable Any 002e 00d8 | | Load_Top At_Offset_0 002f 1c00 | | Execute_Immediate Run_Utility,0x0 0030 029e 008b | | Declare_Subprogram INIT_0088,For_Call,Unelaborated 0032 4806 |H | Short_Literal 0x6 0033 4802 |H | Short_Literal 0x2 0034 0099 | | Action Reference_Dynamic 0035 00c7 | | Action Elaborate_Subprogram 0036 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 0038 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 003a BODY_0018: 003a 8407 | | Call 0x2,0x7 003b 00cf | | Action Mark_Auxiliary 003c e002 | | Load 0x0,0x2 003d 180f | | Execute Package,Field_Execute,Field_Number 0xf 003e e403 | | Load 0x2,0x3 003f 017d | } | Execute Record,Structure_Write 0040 e403 | | Load 0x2,0x3 0041 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0042 4605 |F | Jump_Case 0x6 0043 7822 |x" | Jump 0x66 ; case 0x0 0044 7825 |x% | Jump 0x6a ; case 0x1 0045 7833 |x3 | Jump 0x79 ; case 0x2 0046 7834 |x4 | Jump 0x7b ; case 0x3 0047 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4 0048 7800 |x | Jump 0x49 ; case 0x5 0049 0092 00d9 | | Action Push_String_Extended,0xd9 ; "Unknown command entered. Please try again." 004b e005 | | Load 0x0,0x5 004c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 004d 0092 00da | | Action Push_String_Extended,0xda ; "Legal commands are: " 004f e005 | | Load 0x0,0x5 0050 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0051 00cf | | Action Mark_Auxiliary 0052 4804 |H | Short_Literal 0x4 0053 4800 |H | Short_Literal 0x0 0054 0007 | | Action Break_Optional 0055 00d8 | | Load_Top At_Offset_0 0056 e002 | | Load 0x0,0x2 0057 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0058 011c | | Execute Any,Convert_Unchecked 0059 1c01 | | Execute_Immediate Run_Utility,0x1 005a e005 | | Load 0x0,0x5 005b 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 005c 4820 |H | Short_Literal 0x20 005d e005 | | Load 0x0,0x5 005e 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 005f 00c8 | | Action Pop_Auxiliary_Range 0060 3ff4 |? | Loop_Increasing 0x55 0061 00ce | | Action Pop_Auxiliary 0062 4801 |H | Short_Literal 0x1 0063 e005 | | Load 0x0,0x5 0064 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0065 781c |x | Jump 0x82 0066 e402 | | Load 0x2,0x2 0067 e002 | | Load 0x0,0x2 0068 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0069 7818 |x | Jump 0x82 006a e402 | | Load 0x2,0x2 006b e403 | | Load 0x2,0x3 006c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 006d e001 | | Load 0x0,0x1 006e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 006f e002 | | Load 0x0,0x2 0070 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0071 e402 | | Load 0x2,0x2 0072 4801 |H | Short_Literal 0x1 0073 e403 | | Load 0x2,0x3 0074 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0075 e001 | | Load 0x0,0x1 0076 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0077 c402 | | Store 0x2,0x2 0078 7809 |x | Jump 0x82 0079 8408 | | Call 0x2,0x8 007a 7807 |x | Jump 0x82 007b e402 | | Load 0x2,0x2 007c e403 | | Load 0x2,0x3 007d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 007e e001 | | Load 0x0,0x1 007f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0080 c402 | | Store 0x2,0x2 0081 7800 |x | Jump 0x82 0082 00c9 | | Action Pop_Auxiliary_Loop 0083 7fb8 | | Jump 0x3c 0084 0000 0000 | | .BLANK 0000[0x4] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 008c 0092 00db | | Action Push_String_Extended,0xdb ; "<Current_User>" 008e 01df | | Execute Vector,Equal 008f 6805 |h | Jump_Zero 0x95 0090 e006 | | Load 0x0,0x6 0091 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0092 e006 | | Load 0x0,0x6 0093 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0094 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0095 00da | | Load_Top At_Offset_2 0096 0335 | 5 | Declare_Variable Array,Duplicate 0097 00cd | | Action Spare6_Action 0098 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0099 0000 0000 | | .BLANK 0000[0x7] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 00a9 | | .CONST 0x00a9 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 e5ff | | Load 0x2,-0x1 00a4 8406 | | Call 0x2,0x6 00a5 e004 | | Load 0x0,0x4 00a6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a7 c405 | | Store 0x2,0x5 00a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00a9 TRAP_00a0: 00a9 e004 | | Load 0x0,0x4 00aa 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00ab 010f | | Execute Exception,Equal 00ac 6806 |h | Jump_Zero 0xb3 00ad 0092 00dc | | Action Push_String_Extended,0xdc ; "Sorry, can only run simulation for current user." 00af e005 | | Load 0x0,0x5 00b0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00b1 00cc | | Action Pop_Block 00b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b3 0100 | | Execute Exception,Raise 00b4 0000 0000 | | .BLANK 0000[0x4] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 00cf | | .CONST 0x00cf ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb e002 | | Load 0x0,0x2 00bc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00bd c404 | | Store 0x2,0x4 00be e404 | | Load 0x2,0x4 00bf e405 | | Load 0x2,0x5 00c0 e003 | | Load 0x0,0x3 00c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c2 c404 | | Store 0x2,0x4 00c3 e402 | | Load 0x2,0x2 00c4 e404 | | Load 0x2,0x4 00c5 e001 | | Load 0x0,0x1 00c6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00c7 c402 | | Store 0x2,0x2 00c8 e404 | | Load 0x2,0x4 00c9 e003 | | Load 0x0,0x3 00ca 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00cb e405 | | Load 0x2,0x5 00cc e002 | | Load 0x0,0x2 00cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00cf TRAP_00b8: 00cf e004 | | Load 0x0,0x4 00d0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00d1 010f | | Execute Exception,Equal 00d2 6805 |h | Jump_Zero 0xd8 00d3 0092 00dd | | Action Push_String_Extended,0xdd ; "Sorry, undefined user name entered." 00d5 e005 | | Load 0x0,0x5 00d6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d8 0100 | | Execute Exception,Raise 00d9 ; -------------------------------------------------------------------------------------- 00d9 ; STRING TABLE 00d9 ; -------------------------------------------------------------------------------------- 00d9 000c | | .STRTAB 0x000c->0x00df ; "Unknown command entered. Please try again." 00da 0035 | 5 | .STRTAB 0x0035->0x00f4 ; "Legal commands are: " 00db 0047 | G | .STRTAB 0x0047->0x00fe ; "<Current_User>" 00dc 0053 | S | .STRTAB 0x0053->0x0105 ; "Sorry, can only run simulation for current user." 00dd 0081 | | .STRTAB 0x0081->0x011d ; "Sorry, undefined user name entered." 00de 00a2 | | .STREND 0x00a2->0x012f 00df 556e 6b6e |Unkn| .STRTAB_STRINGS 012f 0000 | | .XXX[0x1] 0130 ; -------------------------------------------------------------------------------------- 0130 ; Debug Table 0130 ; -------------------------------------------------------------------------------------- 0130 0004 0004 | | .DEBUG4 0x0004,0x0004,0x3f1c,0x0000,0x0001,0x0005 0136 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 013a 001b 014a | J| .DBG4T 0x001b,0x014a,0x8001,0xc000 013e 008b 0174 | t| .DBG4T 0x008b,0x0174,0x0002,0x0000 0142 00a3 0179 | y| .DBG4T 0x00a3,0x0179,0x0004,0x0000 0146 00bb 017e | ~| .DBG4T 0x00bb,0x017e,0x0004,0x0000 014a ; -------------------------------------------------------------------------------------- 014a ; Debug chain 014a ; -------------------------------------------------------------------------------------- 014a 0006 000e | | .DBGLEN 0x0006,0x000e 014c 001b 0021 | !| .DBGLNO 0x001b,0x0021,0x0026,0x002b,0x0030,0x0032,0x003a,0x003c,0x0040,0x0049,0x004d,0x0052,0x0055,0x005c,0x0062,0x0066,0x006a,0x0071,0x0079,0x007b 0160 0002 0003 | | .XXX[0x14] 0162 0004 0005 | | 0164 0006 0007 | | 0166 0001 0003 | | 0168 0004 000b | | 016a 000c 000d | | 016c 000e 000f | | 016e 0010 0005 | | 0170 0006 0007 | | 0172 0008 0009 | | 0174 ; -------------------------------------------------------------------------------------- 0174 ; Debug chain 0174 ; -------------------------------------------------------------------------------------- 0174 0000 0003 | | .DBGLEN 0x0000,0x0003 0176 008b 0090 | | .DBGLNO 0x008b,0x0090,0x0095 0179 ; -------------------------------------------------------------------------------------- 0179 ; Debug chain 0179 ; -------------------------------------------------------------------------------------- 0179 0000 0003 | | .DBGLEN 0x0000,0x0003 017b 00a3 00ad | | .DBGLNO 0x00a3,0x00ad,0x00b1 017e ; -------------------------------------------------------------------------------------- 017e ; Debug chain 017e ; -------------------------------------------------------------------------------------- 017e 0000 0005 | | .DBGLEN 0x0000,0x0005 0180 00bb 00be | | .DBGLNO 0x00bb,0x00be,0x00c3,0x00c8,0x00d3 0185 0000 0000 | | .BLANK 0000[0x7b]