|
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_6a18da
└─⟦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 0140 | @ | .CONST 0x0140 ; 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 0031 | 1 | .CONST 0x0031 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c e001 | | Load 0x0,0x1
000d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000e 00e9 | | Load_Encached String_Cache
000f 029f 011b | | Declare_Subprogram INIT_0118,For_Call
0011 4800 |H | Short_Literal 0x0
0012 4801 |H | Short_Literal 0x1
0013 4801 |H | Short_Literal 0x1
0014 4800 |H | Short_Literal 0x0
0015 4801 |H | Short_Literal 0x1
0016 4801 |H | Short_Literal 0x1
0017 031e | | Declare_Type Variant_Record,Defined,Visible
0018 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
001a 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
001c 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
001e 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0020 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0022 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0024 00bf | | Action Accept_Activation
0025 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0026 00c7 | | Action Elaborate_Subprogram
0027 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0028 00c7 | | Action Elaborate_Subprogram
0029 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002a 00c7 | | Action Elaborate_Subprogram
002b 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002c 00c7 | | Action Elaborate_Subprogram
002d 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002e 00c7 | | Action Elaborate_Subprogram
002f 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0030 00c7 | | Action Elaborate_Subprogram
0031 BODY_0008:
0031 00bc | | Action Signal_Activated
0032 00bb | | Action Signal_Completion
0033 0000 0000 | | .BLANK 0000[0x5]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 004e | N | .CONST 0x004e ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0004 | | .CONST 0x0004 ; Number of locals
003b INIT_0038:
003b 00da | | Load_Top At_Offset_2
003c e002 | | Load 0x0,0x2
003d 180f | | Execute Package,Field_Execute,Field_Number 0xf
003e e5fd | | Load 0x2,-0x3
003f 00d9 | | Load_Top At_Offset_1
0040 e5fe | | Load 0x2,-0x2
0041 e5fd | | Load 0x2,-0x3
0042 4800 |H | Short_Literal 0x0
0043 e5ff | | Load 0x2,-0x1
0044 e003 | | Load 0x0,0x3
0045 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0046 e004 | | Load 0x0,0x4
0047 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0048 00d8 | | Load_Top At_Offset_0
0049 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
004a e20d | | Load 0x1,0xd
004b 1c08 | | Execute_Immediate Run_Utility,0x8
004c 00d8 | | Load_Top At_Offset_0
004d 1c00 | | Execute_Immediate Run_Utility,0x0
004e BODY_0038:
004e 00d9 | | Load_Top At_Offset_1
004f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0050 00d9 | | Load_Top At_Offset_1
0051 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0052 00d8 | | Load_Top At_Offset_0
0053 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0054 00da | | Load_Top At_Offset_2
0055 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0056 e005 | | Load 0x0,0x5
0057 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0058 00d9 | | Load_Top At_Offset_1
0059 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
005a 00d8 | | Load_Top At_Offset_0
005b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
005c 0000 0000 | | .BLANK 0000[0x4]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0076 | v | .CONST 0x0076 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0004 | | .CONST 0x0004 ; Number of locals
0063 INIT_0060:
0063 00da | | Load_Top At_Offset_2
0064 e002 | | Load 0x0,0x2
0065 180f | | Execute Package,Field_Execute,Field_Number 0xf
0066 e5fd | | Load 0x2,-0x3
0067 e5fe | | Load 0x2,-0x2
0068 00da | | Load_Top At_Offset_2
0069 e5fd | | Load 0x2,-0x3
006a 4800 |H | Short_Literal 0x0
006b e5ff | | Load 0x2,-0x1
006c e003 | | Load 0x0,0x3
006d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
006e e004 | | Load 0x0,0x4
006f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0070 00d8 | | Load_Top At_Offset_0
0071 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0072 e20d | | Load 0x1,0xd
0073 1c08 | | Execute_Immediate Run_Utility,0x8
0074 00d8 | | Load_Top At_Offset_0
0075 1c00 | | Execute_Immediate Run_Utility,0x0
0076 BODY_0060:
0076 00d9 | | Load_Top At_Offset_1
0077 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0078 00d9 | | Load_Top At_Offset_1
0079 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
007a 00d8 | | Load_Top At_Offset_0
007b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
007c 00da | | Load_Top At_Offset_2
007d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
007e e005 | | Load 0x0,0x5
007f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0080 00d9 | | Load_Top At_Offset_1
0081 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0082 00d8 | | Load_Top At_Offset_0
0083 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0084 0000 0000 | | .BLANK 0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 009e | | .CONST 0x009e ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0004 | | .CONST 0x0004 ; Number of locals
008b INIT_0088:
008b 00da | | Load_Top At_Offset_2
008c e002 | | Load 0x0,0x2
008d 180f | | Execute Package,Field_Execute,Field_Number 0xf
008e e5fd | | Load 0x2,-0x3
008f e5fe | | Load 0x2,-0x2
0090 00da | | Load_Top At_Offset_2
0091 e5fd | | Load 0x2,-0x3
0092 4800 |H | Short_Literal 0x0
0093 e5ff | | Load 0x2,-0x1
0094 e003 | | Load 0x0,0x3
0095 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0096 e004 | | Load 0x0,0x4
0097 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0098 00d8 | | Load_Top At_Offset_0
0099 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
009a e20d | | Load 0x1,0xd
009b 1c08 | | Execute_Immediate Run_Utility,0x8
009c 00d8 | | Load_Top At_Offset_0
009d 1c00 | | Execute_Immediate Run_Utility,0x0
009e BODY_0088:
009e 00d9 | | Load_Top At_Offset_1
009f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00a0 00d9 | | Load_Top At_Offset_1
00a1 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
00a2 00d8 | | Load_Top At_Offset_0
00a3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00a4 00da | | Load_Top At_Offset_2
00a5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00a6 e005 | | Load 0x0,0x5
00a7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00a8 00d9 | | Load_Top At_Offset_1
00a9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00aa 00d8 | | Load_Top At_Offset_0
00ab 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00ac 0000 0000 | | .BLANK 0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b8 | | .CONST 0x00b8 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0003 | | .CONST 0x0003 ; Number of locals
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2
00b4 e002 | | Load 0x0,0x2
00b5 180f | | Execute Package,Field_Execute,Field_Number 0xf
00b6 e006 | | Load 0x0,0x6
00b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b8 BODY_00b0:
00b8 e006 | | Load 0x0,0x6
00b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ba e5fc | | Load 0x2,-0x4
00bb 00db | | Load_Top At_Offset_3
00bc e5fd | | Load 0x2,-0x3
00bd e5fe | | Load 0x2,-0x2
00be e5fc | | Load 0x2,-0x4
00bf 4800 |H | Short_Literal 0x0
00c0 e5ff | | Load 0x2,-0x1
00c1 e003 | | Load 0x0,0x3
00c2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00c3 e004 | | Load 0x0,0x4
00c4 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00c5 0059 | Y | Store_Top Discrete,At_Offset_1
00c6 e5fb | | Load 0x2,-0x5
00c7 00d9 | | Load_Top At_Offset_1
00c8 e005 | | Load 0x0,0x5
00c9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00ca c5fb | | Store 0x2,-0x5
00cb 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00cc 0000 0000 | | .BLANK 0000[0x4]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d8 | | .CONST 0x00d8 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0003 | | .CONST 0x0003 ; Number of locals
00d3 INIT_00d0:
00d3 00da | | Load_Top At_Offset_2
00d4 e002 | | Load 0x0,0x2
00d5 180f | | Execute Package,Field_Execute,Field_Number 0xf
00d6 e006 | | Load 0x0,0x6
00d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d8 BODY_00d0:
00d8 e006 | | Load 0x0,0x6
00d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00da e5fc | | Load 0x2,-0x4
00db 0120 | | Execute Any,Is_Value
00dc 6803 |h | Jump_Zero 0xe0
00dd e007 | | Load 0x0,0x7
00de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00df 7801 |x | Jump 0xe1
00e0 e5fc | | Load 0x2,-0x4
00e1 e5fd | | Load 0x2,-0x3
00e2 e402 | | Load 0x2,0x2
00e3 e5fe | | Load 0x2,-0x2
00e4 e5fd | | Load 0x2,-0x3
00e5 4800 |H | Short_Literal 0x0
00e6 e5ff | | Load 0x2,-0x1
00e7 e003 | | Load 0x0,0x3
00e8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00e9 e004 | | Load 0x0,0x4
00ea 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00eb c5fc | | Store 0x2,-0x4
00ec 0059 | Y | Store_Top Discrete,At_Offset_1
00ed e5fb | | Load 0x2,-0x5
00ee 00d9 | | Load_Top At_Offset_1
00ef e005 | | Load 0x0,0x5
00f0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00f1 c5fb | | Store 0x2,-0x5
00f2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00f3 0000 0000 | | .BLANK 0000[0x5]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0100 | | .CONST 0x0100 ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0003 | | .CONST 0x0003 ; Number of locals
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2
00fc e002 | | Load 0x0,0x2
00fd 180f | | Execute Package,Field_Execute,Field_Number 0xf
00fe e006 | | Load 0x0,0x6
00ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0100 BODY_00f8:
0100 e006 | | Load 0x0,0x6
0101 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0102 e5fc | | Load 0x2,-0x4
0103 00db | | Load_Top At_Offset_3
0104 e5fd | | Load 0x2,-0x3
0105 e5fe | | Load 0x2,-0x2
0106 e5fc | | Load 0x2,-0x4
0107 4800 |H | Short_Literal 0x0
0108 e5ff | | Load 0x2,-0x1
0109 e003 | | Load 0x0,0x3
010a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
010b e004 | | Load 0x0,0x4
010c 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
010d 0059 | Y | Store_Top Discrete,At_Offset_1
010e e5fb | | Load 0x2,-0x5
010f 00d9 | | Load_Top At_Offset_1
0110 e005 | | Load 0x0,0x5
0111 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0112 c5fb | | Store 0x2,-0x5
0113 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0114 0000 0000 | | .BLANK 0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 4608 |F | Jump_Case 0x9
011c 7808 |x | Jump 0x125 ; case 0x0
011d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
011e 781f |x | Jump 0x13e ; case 0x2
011f 781e |x | Jump 0x13e ; case 0x3
0120 781d |x | Jump 0x13e ; case 0x4
0121 781c |x | Jump 0x13e ; case 0x5
0122 781b |x | Jump 0x13e ; case 0x6
0123 7807 |x | Jump 0x12b ; case 0x7
0124 780f |x | Jump 0x134 ; case 0x8
0125 00da | | Load_Top At_Offset_2
0126 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
0127 00da | | Load_Top At_Offset_2
0128 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0129 1c00 | | Execute_Immediate Run_Utility,0x0
012a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
012b 00db | | Load_Top At_Offset_3
012c 4801 |H | Short_Literal 0x1
012d e5fe | | Load 0x2,-0x2
012e 00e9 | | Load_Encached String_Cache
012f 035b | [ | Declare_Type Array,Constrained
0130 4801 |H | Short_Literal 0x1
0131 e5ff | | Load 0x2,-0x1
0132 031b | | Declare_Type Variant_Record,Constrained
0133 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0134 00db | | Load_Top At_Offset_3
0135 00db | | Load_Top At_Offset_3
0136 02fc | | Declare_Variable Variant_Record,With_Constraint
0137 4801 |H | Short_Literal 0x1
0138 e5fe | | Load 0x2,-0x2
0139 00e9 | | Load_Encached String_Cache
013a 0334 | 4 | Declare_Variable Array,With_Constraint
013b 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
013c 016a | j | QQ_execute Variant_Record,XXX
013d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013e 0869 | i | Execute_Immediate Raise,0x69
013f 0000 | | .XXX[0x1]
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug Table
0140 ; --------------------------------------------------------------------------------------
0140 0004 000b | | .DEBUG4 0x0004,0x000b,0x70f4,0x0000,0x0001,0x0000
0146 4000 0000 |@ | .XXX[0x12]
0148 0000 0000 | |
014a 0002 f74e | N|
014c 7000 0e10 |p |
014e 3881 f76c |8 l|
0150 bee2 9800 | |
0152 0039 40fc | 9@ |
0154 42d0 cb12 |B |
0156 0000 1c90 | |
0158 0000 0000 | | .BLANK 0000[0x4]
015c 1df6 3216 | 2 | .XXX[0x1b]
015e 0000 0100 | |
0160 1df6 3a16 | : |
0162 0000 0100 | |
0164 0000 268f | & |
0166 83be c742 | B|
0168 c000 0020 | |
016a 103e ed97 | > |
016c f4bf 4000 | @ |
016e 0720 0000 | |
0170 0120 0011 | |
0172 2e40 0000 |.@ |
0174 0040 0000 | @ |
0176 0400 | |
0177 0000 0000 | | .BLANK 0000[0x6]
017d 0004 1c20 | | .XXX[0x2]
017f 0000 0000 | | .BLANK 0000[0x8]
0187 0800 0000 | | .XXX[0x1a]
0189 0000 0000 | |
018b 0800 0912 | |
018d 9001 7ba5 | { |
018f 2001 7ba0 | { |
0191 1801 7be9 | { |
0193 3800 bde5 |8 |
0195 e400 041e | |
0197 2220 7e20 |" ~ |
0199 1322 be40 | " @|
019b 000f 103f | ?|
019d 1010 ef27 | '|
019f 2000 0780 | |
01a1 0000 0000 | | .BLANK 0000[0x4]
01a5 072d 8a85 | - | .XXX[0x1b]
01a7 0000 0040 | @|
01a9 072d 8c85 | - |
01ab 0000 0040 | @|
01ad 0000 0ab6 | |
01af e0e5 b190 | |
01b1 a000 0008 | |
01b3 040f c293 | |
01b5 d2dc 5000 | P |
01b7 01e0 0000 | |
01b9 0048 0006 | H |
01bb 4700 0000 |G |
01bd 0010 0000 | |
01bf 0010 | |
01c0 0000 0000 | | .BLANK 0000[0x6]
01c6 0001 0708 | | .XXX[0x2]
01c8 0000 0000 | | .BLANK 0000[0x8]
01d0 0200 0000 | | .XXX[0x1a]
01d2 0000 0000 | |
01d4 0200 0254 | T|
01d6 6800 5ef2 |h ^ |
01d8 6c00 0000 |l |
01da 0001 accf | |
01dc 6700 2f7e |g /~|
01de 0b00 0005 | |
01e0 4547 da16 |EG |
01e2 21e8 0000 |! |
01e4 0000 440f | D |
01e6 ca49 d5e9 | I |
01e8 1800 0091 | |
01ea 0000 0000 | | .BLANK 0000[0x4]
01ee 0036 64a0 | 6d | .XXX[0x12]
01f0 0000 0010 | |
01f2 003d eca0 | = |
01f4 0000 0010 | |
01f6 0000 0072 | r|
01f8 2c06 cc94 |, |
01fa 0000 0002 | |
01fc 00fb 431b | C |
01fe ab84 8000 | |