|
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_03c0fe
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01b0 | | .CONST 0x01b0 ; 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 8001 | | .CONST 0x8001 ; 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 004e | N | .CONST 0x004e ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000f | | .CONST 0x000f ; Number of locals
001b INIT_0018:
001b 0093 0000 | | push_full_address 0x0
001d 605e |`^ | Indirect_Literal Discrete,0x7c,{0x80000000, 0x00010000}
001e 0273 | s | Execute Discrete,Plus
001f 0007 | | Action Break_Optional
0020 e002 | | Load 0x0,0x2
0021 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0022 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0023 4800 |H | Short_Literal 0x0
0024 4803 |H | Short_Literal 0x3
0025 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
0027 03fd | | Declare_Type Discrete,Defined
0028 e002 | | Load 0x0,0x2
0029 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
002a 02c7 | | Declare_Variable Any
002b 0092 0172 | r| Action Push_String_Extended,0x172 ; "File"
002d e002 | | Load 0x0,0x2
002e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
002f a405 | | Store_Unchecked 0x2,0x5
0030 e002 | | Load 0x0,0x2
0031 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0032 02c7 | | Declare_Variable Any
0033 0092 0173 | s| Action Push_String_Extended,0x173 ; "Ada"
0035 e002 | | Load 0x0,0x2
0036 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0037 a406 | | Store_Unchecked 0x2,0x6
0038 e002 | | Load 0x0,0x2
0039 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
003a 1b18 | | Execute Package,Field_Read,Field_Number 0x18
003b 02c7 | | Declare_Variable Any
003c 00d8 | | Load_Top At_Offset_0
003d 1c00 | | Execute_Immediate Run_Utility,0x0
003e 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
0040 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
0042 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
0044 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
0046 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
0048 029f 010b | | Declare_Subprogram INIT_0108,For_Call
004a 029f 012b | +| Declare_Subprogram INIT_0128,For_Call
004c 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call
004e BODY_0018:
004e e002 | | Load 0x0,0x2
004f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0050 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0051 e407 | | Load 0x2,0x7
0052 6025 |`% | Indirect_Literal Discrete,0x78,{0x00000000, 0x00004000}
0053 e003 | | Load 0x0,0x3
0054 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0055 e004 | | Load 0x0,0x4
0056 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0057 e005 | | Load 0x0,0x5
0058 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0059 4801 |H | Short_Literal 0x1
005a 4800 |H | Short_Literal 0x0
005b e004 | | Load 0x0,0x4
005c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005d e002 | | Load 0x0,0x2
005e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
005f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0060 e5ff | | Load 0x2,-0x1
0061 e002 | | Load 0x0,0x2
0062 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0063 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0064 c407 | | Store 0x2,0x7
0065 c403 | | Store 0x2,0x3
0066 e403 | | Load 0x2,0x3
0067 8409 | | Call 0x2,0x9
0068 00cf | | Action Mark_Auxiliary
0069 7807 |x | Jump 0x71
006a 840f | | Call 0x2,0xf
006b e407 | | Load 0x2,0x7
006c e002 | | Load 0x0,0x2
006d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
006e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
006f c407 | | Store 0x2,0x7
0070 00c9 | | Action Pop_Auxiliary_Loop
0071 e407 | | Load 0x2,0x7
0072 e002 | | Load 0x0,0x2
0073 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0074 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0075 6ff4 |o | Jump_Zero 0x6a
0076 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0077 0000 | | .XXX[0x1]
0078 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
007c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4607 |F | Jump_Case 0x8
0084 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0085 7807 |x | Jump 0x8d ; case 0x1
0086 780a |x | Jump 0x91 ; case 0x2
0087 780e |x | Jump 0x96 ; case 0x3
0088 7811 |x | Jump 0x9a ; case 0x4
0089 7812 |x | Jump 0x9c ; case 0x5
008a 7813 |x | Jump 0x9e ; case 0x6
008b 7816 |x | Jump 0xa2 ; case 0x7
008c 4302 |C | .XXX[0x1]
008d 00da | | Load_Top At_Offset_2
008e 0091 016e | n| Action Push_String_Extended_Indexed,0x16e ; "WORLD"
0090 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0091 00db | | Load_Top At_Offset_3
0092 00db | | Load_Top At_Offset_3
0093 00e0 | | Load_Encached Standard_Cache
0094 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0096 00da | | Load_Top At_Offset_2
0097 00e0 | | Load_Encached Standard_Cache
0098 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0099 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
009a 00db | | Load_Top At_Offset_3
009b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009c 00db | | Load_Top At_Offset_3
009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009e e404 | | Load 0x2,0x4
009f 00dc | | Load_Top At_Offset_4
00a0 0267 | g | Execute Discrete,Predecessor
00a1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a2 e404 | | Load 0x2,0x4
00a3 00dc | | Load_Top At_Offset_4
00a4 0268 | h | Execute Discrete,Successor
00a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a6 0000 0000 | | .XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab e7ff | | Load 0x3,-0x1
00ac 6802 |h | Jump_Zero 0xaf
00ad e402 | | Load 0x2,0x2
00ae 0257 | W | Execute Discrete,Raise
00af 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 e7ff | | Load 0x3,-0x1
00b4 6802 |h | Jump_Zero 0xb7
00b5 e402 | | Load 0x2,0x2
00b6 0257 | W | Execute Discrete,Raise
00b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb e7ff | | Load 0x3,-0x1
00bc e006 | | Load 0x0,0x6
00bd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00be 01db | | Execute Vector,Length
00bf 7009 |p | Jump_Nonzero 0xc9
00c0 e7ff | | Load 0x3,-0x1
00c1 e002 | | Load 0x0,0x2
00c2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c3 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
00c4 0092 0174 | t| Action Push_String_Extended,0x174 ; " has a null access list."
00c6 01cc | | Execute Vector,Catenate
00c7 e007 | | Load 0x0,0x7
00c8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ca 0000 0000 | | .BLANK 0000[0x6]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 e7ff | | Load 0x3,-0x1
00d4 e002 | | Load 0x0,0x2
00d5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00d6 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
00d7 e006 | | Load 0x0,0x6
00d8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d9 01db | | Execute Vector,Length
00da 7009 |p | Jump_Nonzero 0xe4
00db e7ff | | Load 0x3,-0x1
00dc e002 | | Load 0x0,0x2
00dd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00de 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
00df 0092 0175 | u| Action Push_String_Extended,0x175 ; " has a null default access list."
00e1 01cc | | Execute Vector,Catenate
00e2 e007 | | Load 0x0,0x7
00e3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f2 | | .CONST 0x00f2 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0003 | | .CONST 0x0003 ; Number of locals
00eb INIT_00e8:
00eb e002 | | Load 0x0,0x2
00ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ed e002 | | Load 0x0,0x2
00ee 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00ef 02ff | | Declare_Variable Variant_Record
00f0 00d8 | | Load_Top At_Offset_0
00f1 1c00 | | Execute_Immediate Run_Utility,0x0
00f2 BODY_00e8:
00f2 e002 | | Load 0x0,0x2
00f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f4 e603 | | Load 0x3,0x3
00f5 600e |` | Indirect_Literal Discrete,0x104,{0x00000000, 0x00004000}
00f6 e003 | | Load 0x0,0x3
00f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f8 e7ff | | Load 0x3,-0x1
00f9 e002 | | Load 0x0,0x2
00fa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00fb 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00fc 00d1 | | Pop_Control Pop_Count_1
00fd c602 | | Store 0x3,0x2
00fe e602 | | Load 0x3,0x2
00ff 8408 | | Call 0x2,0x8
0100 00d8 | | Load_Top At_Offset_0
0101 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0102 0000 0000 | | .XXX[0x2]
0104 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0112 | | .CONST 0x0112 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0003 | | .CONST 0x0003 ; Number of locals
010b INIT_0108:
010b e002 | | Load 0x0,0x2
010c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010d e002 | | Load 0x0,0x2
010e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
010f 02c7 | | Declare_Variable Any
0110 00d8 | | Load_Top At_Offset_0
0111 1c00 | | Execute_Immediate Run_Utility,0x0
0112 BODY_0108:
0112 e002 | | Load 0x0,0x2
0113 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0114 e603 | | Load 0x3,0x3
0115 0120 | | Execute Any,Is_Value
0116 6803 |h | Jump_Zero 0x11a
0117 e002 | | Load 0x0,0x2
0118 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0119 7801 |x | Jump 0x11b
011a e603 | | Load 0x3,0x3
011b e7ff | | Load 0x3,-0x1
011c e002 | | Load 0x0,0x2
011d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
011e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
011f c603 | | Store 0x3,0x3
0120 c602 | | Store 0x3,0x2
0121 e602 | | Load 0x3,0x2
0122 8408 | | Call 0x2,0x8
0123 00d8 | | Load_Top At_Offset_0
0124 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0125 0000 0000 | | .XXX[0x3]
0127 0000 | |
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b e7ff | | Load 0x3,-0x1
012c e002 | | Load 0x0,0x2
012d 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
012e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
012f 6802 |h | Jump_Zero 0x132
0130 4800 |H | Short_Literal 0x0
0131 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0132 e7fe | | Load 0x3,-0x2
0133 e406 | | Load 0x2,0x6
0134 012f | / | Execute Any,Equal
0135 6802 |h | Jump_Zero 0x138
0136 4802 |H | Short_Literal 0x2
0137 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0138 e7fe | | Load 0x3,-0x2
0139 e405 | | Load 0x2,0x5
013a 012f | / | Execute Any,Equal
013b 6802 |h | Jump_Zero 0x13e
013c 4801 |H | Short_Literal 0x1
013d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
013e 4803 |H | Short_Literal 0x3
013f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 015b | [ | .CONST 0x015b ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 e407 | | Load 0x2,0x7
0144 e002 | | Load 0x0,0x2
0145 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0146 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0147 e407 | | Load 0x2,0x7
0148 840d | | Call 0x2,0xd
0149 840e | | Call 0x2,0xe
014a 4603 |F | Jump_Case 0x4
014b 7808 |x | Jump 0x154 ; case 0x0
014c 7803 |x | Jump 0x150 ; case 0x1
014d 7802 |x | Jump 0x150 ; case 0x2
014e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3
014f 4501 |E | .XXX[0x1]
0150 e407 | | Load 0x2,0x7
0151 840c | | Call 0x2,0xc
0152 840a | | Call 0x2,0xa
0153 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0154 e407 | | Load 0x2,0x7
0155 840c | | Call 0x2,0xc
0156 840b | | Call 0x2,0xb
0157 e407 | | Load 0x2,0x7
0158 840c | | Call 0x2,0xc
0159 840a | | Call 0x2,0xa
015a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
015b TRAP_0140:
015b 0007 | | Action Break_Optional
015c 0092 0176 | v| Action Push_String_Extended,0x176 ; "Exception processing: "
015e e407 | | Load 0x2,0x7
015f e002 | | Load 0x0,0x2
0160 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0161 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0162 01cc | | Execute Vector,Catenate
0163 0092 0177 | w| Action Push_String_Extended,0x177 ; ": "
0165 01cc | | Execute Vector,Catenate
0166 4800 |H | Short_Literal 0x0
0167 4801 |H | Short_Literal 0x1
0168 e008 | | Load 0x0,0x8
0169 1815 | | Execute Package,Field_Execute,Field_Number 0x15
016a 01cc | | Execute Vector,Catenate
016b e007 | | Load 0x0,0x7
016c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
016d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
016e ; --------------------------------------------------------------------------------------
016e ; STRING TABLE
016e ; --------------------------------------------------------------------------------------
016e 0016 | | .STRTAB 0x0016->0x0179 ; "WORLD"
016f 0019 | | .STRTAB 0x0019->0x017b ; "FILE"
0170 001b | | .STRTAB 0x001b->0x017d ; "ADA"
0171 001c | | .STRTAB 0x001c->0x017f ; "OTHER"
0172 001f | | .STRTAB 0x001f->0x0181 ; "File"
0173 0021 | ! | .STRTAB 0x0021->0x0183 ; "Ada"
0174 0022 | " | .STRTAB 0x0022->0x0185 ; " has a null access list."
0175 0038 | 8 | .STRTAB 0x0038->0x0191 ; " has a null default access list."
0176 0056 | V | .STRTAB 0x0056->0x01a1 ; "Exception processing: "
0177 006a | j | .STRTAB 0x006a->0x01ac ; ": "
0178 006a | j | .STREND 0x006a->0x01ad
0179 574f 524c |WORL| .STRTAB_STRINGS
01ad 0000 0000 | | .XXX[0x3]
01af 0000 | |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; Debug Table
01b0 ; --------------------------------------------------------------------------------------
01b0 0004 0011 | | .DEBUG4 0x0004,0x0011,0x9764,0x0000,0x0001,0x0000
01b6 0000 0000 | | .BLANK 0000[0x4a]