|
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 - metrics - download
Length: 1024 (0x400) Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 00a8 | | .CONST 0x00a8 ; 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 001c | | .CONST 0x001c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x00d2,0x8000,0x0000,0x0059,0xedb5,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 000d 0129 | ) | Execute Any,Make_Visible 000e 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xe,0xfffe 0010 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x10,0xfffd 0012 00bf | | Action Accept_Activation 0013 0092 0090 | | Action Push_String_Extended,0x90 ; "!Machine.Cmvc_Require_Default_Venture" ; Debug Table 0x1 = .DEBUG 0x0013,0x00da,0x8000,0x0000,0x0059,0xf0c5,0x0000,0x000d ; Debug Table 0x1.0x0 = 0x13,0xffff 0015 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x1 = 0x15,0xfffe 0016 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x2 = 0x16,0xfffd 0017 00c7 | | Action Elaborate_Subprogram 0018 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x3 = 0x18,0xfffc 0019 00c7 | | Action Elaborate_Subprogram 001a 029f 007b | {| Declare_Subprogram INIT_0078,For_Call 001c BODY_0008: 001c 8212 | | Call 0x1,0x12 ; Debug Table 0x1.0x4 = 0x1c,0x1 001d 00bc | | Action Signal_Activated 001e 00bb | | Action Signal_Completion 001f 0000 | | .XXX[0x1] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 e211 | | Load 0x1,0x11 ; Debug Table 0x2 = .DEBUG 0x0023,0x00e6,0x0002,0x0000,0x0059,0xedb5,0x0000,0x000c ; Debug Table 0x2.0x0 = 0x23,0x1 0024 00ca | | Action Exit_Nullary_Function 0025 0000 0000 | | .XXX[0x3] 0027 0000 | | 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 0035 | 5 | .CONST 0x0035 ; Address of begin 0029 0069 | i | .CONST 0x0069 ; Address of exception handler 002a 0004 | | .CONST 0x0004 ; Number of locals 002b INIT_0028: 002b e211 | | Load 0x1,0x11 ; Debug Table 0x3 = .DEBUG 0x002b,0x00ea,0x0001,0x0000,0x0059,0xedb5,0x0000,0x0011 ; Debug Table 0x3.0x0 = 0x2b,0xffff 002c 00e1 | | Load_Encached Boolean_Cache 002d 03f1 | | Declare_Variable Discrete,With_Value 002e e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x1 = 0x2e,0xfffe 002f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0030 02c7 | | Declare_Variable Any 0031 00d8 | | Load_Top At_Offset_0 0032 1c00 | | Execute_Immediate Run_Utility,0x0 0033 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x2 = 0x33,0xfffd 0034 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0035 BODY_0028: 0035 487e |H~ | Short_Literal 0x7e ; Debug Table 0x3.0x3 = 0x35,0x1 0036 a5fe | | Store_Unchecked 0x2,-0x2 0037 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x4 = 0x37,0x2 0038 e5ff | | Load 0x2,-0x1 0039 027e | ~ | Execute Discrete,Not_Equal 003a 682b |h+ | Jump_Zero 0x66 003b e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x5 = 0x3b,0x3 003c 4601 |F | Jump_Case 0x2 003d 781a |x | Jump 0x58 ; case 0x0 003e 7800 |x | Jump 0x3f ; case 0x1 003f e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x6 = 0x3f,0x4 0040 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0041 00da | | Load_Top At_Offset_2 0042 0120 | | Execute Any,Is_Value 0043 6803 |h | Jump_Zero 0x47 0044 e002 | | Load 0x0,0x2 0045 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0046 7801 |x | Jump 0x48 0047 00da | | Load_Top At_Offset_2 0048 e004 | | Load 0x0,0x4 0049 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004a e002 | | Load 0x0,0x2 004b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 004c e005 | | Load 0x0,0x5 004d 180f | | Execute Package,Field_Execute,Field_Number 0xf 004e e210 | | Load 0x1,0x10 004f e003 | | Load 0x0,0x3 0050 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0051 c403 | | Store 0x2,0x3 0052 0059 | Y | Store_Top Discrete,At_Offset_1 0053 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x7 = 0x53,0x5 0054 00d9 | | Load_Top At_Offset_1 0055 e001 | | Load 0x0,0x1 0056 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0057 780c |x | Jump 0x64 0058 e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x8 = 0x58,0x6 0059 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005a e004 | | Load 0x0,0x4 005b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 005c e210 | | Load 0x1,0x10 005d e003 | | Load 0x0,0x3 005e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 005f 0059 | Y | Store_Top Discrete,At_Offset_1 0060 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x9 = 0x60,0x7 0061 00d9 | | Load_Top At_Offset_1 0062 e001 | | Load 0x0,0x1 0063 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0064 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0xa = 0x64,0x8 0065 a211 | | Store_Unchecked 0x1,0x11 0066 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0xb = 0x66,0x9 0067 a5fe | | Store_Unchecked 0x2,-0x2 0068 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0069 TRAP_0028: 0069 e001 | | Load 0x0,0x1 006a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 006b 010f | | Execute Exception,Equal 006c 6803 |h | Jump_Zero 0x70 006d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xc = 0x6d,0xa 006e a5fe | | Store_Unchecked 0x2,-0x2 006f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0070 0100 | | Execute Exception,Raise 0071 0000 0000 | | .BLANK 0000[0x7] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 0082 | | .CONST 0x0082 ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0003 | | .CONST 0x0003 ; Number of locals 007b INIT_0078: 007b e002 | | Load 0x0,0x2 ; Debug Table 0x4 = .DEBUG 0x007b,0x0106,0x0004,0x0000,0x0059,0xf0c5,0x0000,0x00bb ; Debug Table 0x4.0x0 = 0x7b,0xffff 007c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 007d 02ff | | Declare_Variable Variant_Record 007e 00d8 | | Load_Top At_Offset_0 007f 1c00 | | Execute_Immediate Run_Utility,0x0 0080 e20d | | Load 0x1,0xd ; Debug Table 0x4.0x1 = 0x80,0xfffe 0081 0007 | | Action Break_Optional 0082 BODY_0078: 0082 e003 | | Load 0x0,0x3 ; Debug Table 0x4.0x2 = 0x82,0x1 0083 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0084 00da | | Load_Top At_Offset_2 0085 e210 | | Load 0x1,0x10 0086 e003 | | Load 0x0,0x3 0087 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0088 00d1 | | Pop_Control Pop_Count_1 0089 0059 | Y | Store_Top Discrete,At_Offset_1 008a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x3 = 0x8a,0x2 008b e002 | | Load 0x0,0x2 008c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 008d 0f00 | | Execute_Immediate Equal,0x0 008e a211 | | Store_Unchecked 0x1,0x11 008f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0090 ; -------------------------------------------------------------------------------------- 0090 ; STRING TABLE 0090 ; -------------------------------------------------------------------------------------- 0090 0004 | | .STRTAB 0x0004->0x0092 ; "!Machine.Cmvc_Require_Default_Venture" 0091 0027 | ' | .STREND 0x0027->0x00a4 0092 214d 6163 |!Mac| .STRTAB_STRINGS 00a5 0000 0000 | | .XXX[0x3] 00a7 0000 | | 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; Debug Table 00a8 ; -------------------------------------------------------------------------------------- 00a8 0003 0005 | | .CONST 0x0003,0x0005 00aa 000b 00d2 | | .DEBUG 0x000b,0x00d2,0x8000,0x0000,0x0059,0xedb5,0x0000,0x0005 00b2 0013 00da | | .DEBUG 0x0013,0x00da,0x8000,0x0000,0x0059,0xf0c5,0x0000,0x000d 00ba 0023 00e6 | # | .DEBUG 0x0023,0x00e6,0x0002,0x0000,0x0059,0xedb5,0x0000,0x000c 00c2 002b 00ea | + | .DEBUG 0x002b,0x00ea,0x0001,0x0000,0x0059,0xedb5,0x0000,0x0011 00ca 007b 0106 | { | .DEBUG 0x007b,0x0106,0x0004,0x0000,0x0059,0xf0c5,0x0000,0x00bb 00d2 ; -------------------------------------------------------------------------------------- 00d2 ; Debug3 Subtable 0x0 00d2 ; -------------------------------------------------------------------------------------- 00d2 0003 0000 | | .DBG3TAB 0x0003,0x0000 00d4 000b ffff | | .CONST 0x000b,0xffff 00d6 000e fffe | | .CONST 0x000e,0xfffe 00d8 0010 fffd | | .CONST 0x0010,0xfffd 00da ; -------------------------------------------------------------------------------------- 00da ; Debug3 Subtable 0x1 00da ; -------------------------------------------------------------------------------------- 00da 0004 0001 | | .DBG3TAB 0x0004,0x0001 00dc 0013 ffff | | .CONST 0x0013,0xffff 00de 0015 fffe | | .CONST 0x0015,0xfffe 00e0 0016 fffd | | .CONST 0x0016,0xfffd 00e2 0018 fffc | | .CONST 0x0018,0xfffc 00e4 001c 0001 | | .CONST 0x001c,0x0001 00e6 ; -------------------------------------------------------------------------------------- 00e6 ; Debug3 Subtable 0x2 00e6 ; -------------------------------------------------------------------------------------- 00e6 0000 0001 | | .DBG3TAB 0x0000,0x0001 00e8 0023 0001 | # | .CONST 0x0023,0x0001 00ea ; -------------------------------------------------------------------------------------- 00ea ; Debug3 Subtable 0x3 00ea ; -------------------------------------------------------------------------------------- 00ea 0003 000a | | .DBG3TAB 0x0003,0x000a 00ec 002b ffff | + | .CONST 0x002b,0xffff 00ee 002e fffe | . | .CONST 0x002e,0xfffe 00f0 0033 fffd | 3 | .CONST 0x0033,0xfffd 00f2 0035 0001 | 5 | .CONST 0x0035,0x0001 00f4 0037 0002 | 7 | .CONST 0x0037,0x0002 00f6 003b 0003 | ; | .CONST 0x003b,0x0003 00f8 003f 0004 | ? | .CONST 0x003f,0x0004 00fa 0053 0005 | S | .CONST 0x0053,0x0005 00fc 0058 0006 | X | .CONST 0x0058,0x0006 00fe 0060 0007 | ` | .CONST 0x0060,0x0007 0100 0064 0008 | d | .CONST 0x0064,0x0008 0102 0066 0009 | f | .CONST 0x0066,0x0009 0104 006d 000a | m | .CONST 0x006d,0x000a 0106 ; -------------------------------------------------------------------------------------- 0106 ; Debug3 Subtable 0x4 0106 ; -------------------------------------------------------------------------------------- 0106 0002 0002 | | .DBG3TAB 0x0002,0x0002 0108 007b ffff | { | .CONST 0x007b,0xffff 010a 0080 fffe | | .CONST 0x0080,0xfffe 010c 0082 0001 | | .CONST 0x0082,0x0001 010e 008a 0002 | | .CONST 0x008a,0x0002 0110 0000 0000 | | .BLANK 0000[0xf0]