|
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_ccb0b3
└─⟦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 0110 | | .CONST 0x0110 ; 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 0026 | & | .CONST 0x0026 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 e001 | | Load 0x0,0x1 0011 e002 | | Load 0x0,0x2 0012 e003 | | Load 0x0,0x3 0013 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0014 e003 | | Load 0x0,0x3 0015 190e | | Execute Package,Field_Reference,Field_Number 0xe 0016 e003 | | Load 0x0,0x3 0017 190f | | Execute Package,Field_Reference,Field_Number 0xf 0018 e003 | | Load 0x0,0x3 0019 1910 | | Execute Package,Field_Reference,Field_Number 0x10 001a e004 | | Load 0x0,0x4 001b 0387 | | Declare_Variable Package 001c 00d8 | | Load_Top At_Offset_0 001d 020f | | Execute Module,Activate 001e 029d 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call 0020 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call 0022 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0023 00c7 | | Action Elaborate_Subprogram 0024 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0025 00c7 | | Action Elaborate_Subprogram 0026 BODY_0008: 0026 00bc | | Action Signal_Activated 0027 00bb | | Action Signal_Completion 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 0043 | C | .CONST 0x0043 ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0006 | | .CONST 0x0006 ; Number of locals 002b INIT_0028: 002b e20f | | Load 0x1,0xf 002c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 002d 02c7 | | Declare_Variable Any 002e 00d8 | | Load_Top At_Offset_0 002f 1c00 | | Execute_Immediate Run_Utility,0x0 0030 e003 | | Load 0x0,0x3 0031 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0032 0322 | " | Declare_Variable Record 0033 00d8 | | Load_Top At_Offset_0 0034 1c00 | | Execute_Immediate Run_Utility,0x0 0035 00d8 | | Load_Top At_Offset_0 0036 0322 | " | Declare_Variable Record 0037 00d8 | | Load_Top At_Offset_0 0038 1c00 | | Execute_Immediate Run_Utility,0x0 0039 e20f | | Load 0x1,0xf 003a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 003b 02c7 | | Declare_Variable Any 003c 00d8 | | Load_Top At_Offset_0 003d 1c00 | | Execute_Immediate Run_Utility,0x0 003e e20f | | Load 0x1,0xf 003f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0040 02c7 | | Declare_Variable Any 0041 00d8 | | Load_Top At_Offset_0 0042 1c00 | | Execute_Immediate Run_Utility,0x0 0043 BODY_0028: 0043 00be | | Action Activate_Tasks 0044 4800 |H | Short_Literal 0x0 0045 a5fb | | Store_Unchecked 0x2,-0x5 0046 e402 | | Load 0x2,0x2 0047 4800 |H | Short_Literal 0x0 0048 e5fe | | Load 0x2,-0x2 0049 4800 |H | Short_Literal 0x0 004a e5ff | | Load 0x2,-0x1 004b e005 | | Load 0x0,0x5 004c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 004d 8210 | | Call 0x1,0x10 004e e20f | | Load 0x1,0xf 004f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0050 c402 | | Store 0x2,0x2 0051 e5ff | | Load 0x2,-0x1 0052 e403 | | Load 0x2,0x3 0053 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0054 00d8 | | Load_Top At_Offset_0 0055 0120 | | Execute Any,Is_Value 0056 6803 |h | Jump_Zero 0x5a 0057 e20f | | Load 0x1,0xf 0058 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0059 7801 |x | Jump 0x5b 005a 00d8 | | Load_Top At_Offset_0 005b 00da | | Load_Top At_Offset_2 005c 0120 | | Execute Any,Is_Value 005d 6803 |h | Jump_Zero 0x61 005e e20f | | Load 0x1,0xf 005f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0060 7801 |x | Jump 0x62 0061 00da | | Load_Top At_Offset_2 0062 e404 | | Load 0x2,0x4 0063 e403 | | Load 0x2,0x3 0064 e402 | | Load 0x2,0x2 0065 e20f | | Load 0x1,0xf 0066 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0067 00d1 | | Pop_Control Pop_Count_1 0068 c405 | | Store 0x2,0x5 0069 c406 | | Store 0x2,0x6 006a e402 | | Load 0x2,0x2 006b 8211 | | Call 0x1,0x11 006c c402 | | Store 0x2,0x2 006d 00d9 | | Load_Top At_Offset_1 006e e20f | | Load 0x1,0xf 006f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0070 6809 |h | Jump_Zero 0x7a 0071 e006 | | Load 0x0,0x6 0072 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0073 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0074 c5fd | | Store 0x2,-0x3 0075 e006 | | Load 0x0,0x6 0076 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0077 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0078 c5fc | | Store 0x2,-0x4 0079 4503 |E | Exit_Suprogram New_Top_Offset 0x3 007a 00da | | Load_Top At_Offset_2 007b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 007c c5fd | | Store 0x2,-0x3 007d 00da | | Load_Top At_Offset_2 007e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 007f c5fc | | Store 0x2,-0x4 0080 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0081 0000 0000 | | .BLANK 0000[0x7] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 00a3 | | .CONST 0x00a3 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0006 | | .CONST 0x0006 ; Number of locals 008b INIT_0088: 008b e20f | | Load 0x1,0xf 008c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 008d 02c7 | | Declare_Variable Any 008e 00d8 | | Load_Top At_Offset_0 008f 1c00 | | Execute_Immediate Run_Utility,0x0 0090 e003 | | Load 0x0,0x3 0091 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0092 0322 | " | Declare_Variable Record 0093 00d8 | | Load_Top At_Offset_0 0094 1c00 | | Execute_Immediate Run_Utility,0x0 0095 00d8 | | Load_Top At_Offset_0 0096 0322 | " | Declare_Variable Record 0097 00d8 | | Load_Top At_Offset_0 0098 1c00 | | Execute_Immediate Run_Utility,0x0 0099 e20f | | Load 0x1,0xf 009a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 009b 02c7 | | Declare_Variable Any 009c 00d8 | | Load_Top At_Offset_0 009d 1c00 | | Execute_Immediate Run_Utility,0x0 009e e20f | | Load 0x1,0xf 009f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00a0 02c7 | | Declare_Variable Any 00a1 00d8 | | Load_Top At_Offset_0 00a2 1c00 | | Execute_Immediate Run_Utility,0x0 00a3 BODY_0088: 00a3 00be | | Action Activate_Tasks 00a4 4800 |H | Short_Literal 0x0 00a5 a5fb | | Store_Unchecked 0x2,-0x5 00a6 e402 | | Load 0x2,0x2 00a7 4802 |H | Short_Literal 0x2 00a8 e5fc | | Load 0x2,-0x4 00a9 4800 |H | Short_Literal 0x0 00aa e5ff | | Load 0x2,-0x1 00ab e005 | | Load 0x0,0x5 00ac 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00ad 8210 | | Call 0x1,0x10 00ae e20f | | Load 0x1,0xf 00af 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00b0 c402 | | Store 0x2,0x2 00b1 e5ff | | Load 0x2,-0x1 00b2 e403 | | Load 0x2,0x3 00b3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b4 00d8 | | Load_Top At_Offset_0 00b5 0120 | | Execute Any,Is_Value 00b6 6803 |h | Jump_Zero 0xba 00b7 e20f | | Load 0x1,0xf 00b8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b9 7801 |x | Jump 0xbb 00ba 00d8 | | Load_Top At_Offset_0 00bb 00da | | Load_Top At_Offset_2 00bc 0120 | | Execute Any,Is_Value 00bd 6803 |h | Jump_Zero 0xc1 00be e20f | | Load 0x1,0xf 00bf 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00c0 7801 |x | Jump 0xc2 00c1 00da | | Load_Top At_Offset_2 00c2 e404 | | Load 0x2,0x4 00c3 e403 | | Load 0x2,0x3 00c4 e402 | | Load 0x2,0x2 00c5 e20f | | Load 0x1,0xf 00c6 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00c7 00d1 | | Pop_Control Pop_Count_1 00c8 c405 | | Store 0x2,0x5 00c9 c406 | | Store 0x2,0x6 00ca 00d9 | | Load_Top At_Offset_1 00cb e20f | | Load 0x1,0xf 00cc 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00cd 680c |h | Jump_Zero 0xda 00ce e5fe | | Load 0x2,-0x2 00cf e403 | | Load 0x2,0x3 00d0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00d1 e5fd | | Load 0x2,-0x3 00d2 e403 | | Load 0x2,0x3 00d3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00d4 00d8 | | Load_Top At_Offset_0 00d5 e403 | | Load 0x2,0x3 00d6 e402 | | Load 0x2,0x2 00d7 e20f | | Load 0x1,0xf 00d8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00d9 780b |x | Jump 0xe5 00da e5fe | | Load 0x2,-0x2 00db e403 | | Load 0x2,0x3 00dc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00dd e5fd | | Load 0x2,-0x3 00de e403 | | Load 0x2,0x3 00df 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00e0 00d9 | | Load_Top At_Offset_1 00e1 e403 | | Load 0x2,0x3 00e2 e402 | | Load 0x2,0x2 00e3 e20f | | Load 0x1,0xf 00e4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e5 e402 | | Load 0x2,0x2 00e6 8211 | | Call 0x1,0x11 00e7 c402 | | Store 0x2,0x2 00e8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00e9 0000 0000 | | .BLANK 0000[0x7] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 e007 | | Load 0x0,0x7 00f5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00f6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00f7 0092 010a | | Action Push_String_Extended,0x10a ; "." 00f9 01cc | | Execute Vector,Catenate 00fa e006 | | Load 0x0,0x6 00fb 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00fc 01cc | | Execute Vector,Catenate 00fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fe 0000 0000 | | .XXX[0x2] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0108 | | .CONST 0x0108 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 e20f | | Load 0x1,0xf 0105 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0106 c5ff | | Store 0x2,-0x1 0107 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0108 TRAP_0100: 0108 0007 | | Action Break_Optional 0109 4501 |E | Exit_Suprogram New_Top_Offset 0x1 010a ; -------------------------------------------------------------------------------------- 010a ; STRING TABLE 010a ; -------------------------------------------------------------------------------------- 010a 0004 | | .STRTAB 0x0004->0x010c ; "." 010b 0003 | | .STREND 0x0003->0x010c 010c 2e00 |. | .STRTAB_STRINGS 010d 0000 0000 | | .XXX[0x3] 010f 0000 | | 0110 ; -------------------------------------------------------------------------------------- 0110 ; Debug Table 0110 ; -------------------------------------------------------------------------------------- 0110 0004 000f | | .DEBUG4 0x0004,0x000f,0x2ddb,0x0000,0x0001,0x0000 0116 0000 0000 | | .BLANK 0000[0xea]