|
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 0100 | | .CONST 0x0100 ; 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 0030 | 0 | .CONST 0x0030 ; 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
000c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000d e002 | | Load 0x0,0x2
000e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000f e002 | | Load 0x0,0x2
0010 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0011 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
0013 4803 |H | Short_Literal 0x3
0014 032e | . | Declare_Type Record,Defined,Visible
0015 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
0017 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
0019 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
001b 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
001d e003 | | Load 0x0,0x3
001e e004 | | Load 0x0,0x4
001f e20d | | Load 0x1,0xd
0020 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0021 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0022 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0023 e005 | | Load 0x0,0x5
0024 0386 | | Declare_Variable Package,Visible
0025 00d8 | | Load_Top At_Offset_0
0026 020f | | Execute Module,Activate
0027 00bf | | Action Accept_Activation
0028 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0029 00c7 | | Action Elaborate_Subprogram
002a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002b 00c7 | | Action Elaborate_Subprogram
002c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002d 00c7 | | Action Elaborate_Subprogram
002e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002f 00c7 | | Action Elaborate_Subprogram
0030 BODY_0008:
0030 00bc | | Action Signal_Activated
0031 00bb | | Action Signal_Completion
0032 0000 0000 | | .BLANK 0000[0x6]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b 00da | | Load_Top At_Offset_2
003c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
003d e5fe | | Load 0x2,-0x2
003e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
003f 012f | / | Execute Any,Equal
0040 6802 |h | Jump_Zero 0x43
0041 4801 |H | Short_Literal 0x1
0042 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0043 4800 |H | Short_Literal 0x0
0044 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0045 0000 0000 | | .XXX[0x3]
0047 0000 | |
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 00da | | Load_Top At_Offset_2
004c e001 | | Load 0x0,0x1
004d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
004e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
004f 0092 00c9 | | Action Push_String_Extended,0xc9 ; ".state.tool_state.rci_state_batch_times"
0051 01cc | | Execute Vector,Catenate
0052 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0053 0000 0000 | | .BLANK 0000[0x5]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00da | | Load_Top At_Offset_2
005c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
005d e001 | | Load 0x0,0x1
005e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
005f 012f | / | Execute Any,Equal
0060 700b |p | Jump_Nonzero 0x6c
0061 4800 |H | Short_Literal 0x0
0062 0092 00ca | | Action Push_String_Extended,0xca ; "{[<KEY_NOT_FOUND>]}"
0064 e5ff | | Load 0x2,-0x1
0065 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0066 e001 | | Load 0x0,0x1
0067 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0068 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0069 e006 | | Load 0x0,0x6
006a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
006b 6802 |h | Jump_Zero 0x6e
006c 4801 |H | Short_Literal 0x1
006d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
006e 4800 |H | Short_Literal 0x0
006f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 0092 00cb | | Action Push_String_Extended,0xcb ; "Coding time for "
0075 00db | | Load_Top At_Offset_3
0076 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0077 e001 | | Load 0x0,0x1
0078 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0079 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
007a 01cc | | Execute Vector,Catenate
007b 0092 00cc | | Action Push_String_Extended,0xcc ; " :"
007d 01cc | | Execute Vector,Catenate
007e 4800 |H | Short_Literal 0x0
007f 4800 |H | Short_Literal 0x0
0080 4800 |H | Short_Literal 0x0
0081 e5ff | | Load 0x2,-0x1
0082 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0083 e007 | | Load 0x0,0x7
0084 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0085 e007 | | Load 0x0,0x7
0086 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0087 01cc | | Execute Vector,Catenate
0088 e008 | | Load 0x0,0x8
0089 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
008a 0092 00cd | | Action Push_String_Extended,0xcd ; "Build time for "
008c 00db | | Load_Top At_Offset_3
008d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
008e e001 | | Load 0x0,0x1
008f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0090 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0091 01cc | | Execute Vector,Catenate
0092 0092 00cc | | Action Push_String_Extended,0xcc ; " :"
0094 01cc | | Execute Vector,Catenate
0095 4800 |H | Short_Literal 0x0
0096 4800 |H | Short_Literal 0x0
0097 4800 |H | Short_Literal 0x0
0098 e5ff | | Load 0x2,-0x1
0099 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
009a e007 | | Load 0x0,0x7
009b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
009c e007 | | Load 0x0,0x7
009d 181f | | Execute Package,Field_Execute,Field_Number 0x1f
009e 01cc | | Execute Vector,Catenate
009f e008 | | Load 0x0,0x8
00a0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a2 0000 0000 | | .BLANK 0000[0x6]
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 4608 |F | Jump_Case 0x9
00ac 7808 |x | Jump 0xb5 ; case 0x0
00ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00ae 7819 |x | Jump 0xc8 ; case 0x2
00af 7818 |x | Jump 0xc8 ; case 0x3
00b0 7817 |x | Jump 0xc8 ; case 0x4
00b1 7816 |x | Jump 0xc8 ; case 0x5
00b2 7815 |x | Jump 0xc8 ; case 0x6
00b3 7814 |x | Jump 0xc8 ; case 0x7
00b4 7813 |x | Jump 0xc8 ; case 0x8
00b5 00da | | Load_Top At_Offset_2
00b6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00b7 0125 | % | Execute Any,Set_Constraint
00b8 00da | | Load_Top At_Offset_2
00b9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00ba 1c00 | | Execute_Immediate Run_Utility,0x0
00bb 00da | | Load_Top At_Offset_2
00bc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00bd 0125 | % | Execute Any,Set_Constraint
00be 00da | | Load_Top At_Offset_2
00bf 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00c0 1c00 | | Execute_Immediate Run_Utility,0x0
00c1 00da | | Load_Top At_Offset_2
00c2 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
00c3 0125 | % | Execute Any,Set_Constraint
00c4 00da | | Load_Top At_Offset_2
00c5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
00c6 1c00 | | Execute_Immediate Run_Utility,0x0
00c7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00c8 0869 | i | Execute_Immediate Raise,0x69
00c9 ; --------------------------------------------------------------------------------------
00c9 ; STRING TABLE
00c9 ; --------------------------------------------------------------------------------------
00c9 000c | | .STRTAB 0x000c->0x00cf ; ".state.tool_state.rci_state_batch_times"
00ca 0031 | 1 | .STRTAB 0x0031->0x00e2 ; "{[<KEY_NOT_FOUND>]}"
00cb 0042 | B | .STRTAB 0x0042->0x00ec ; "Coding time for "
00cc 0050 | P | .STRTAB 0x0050->0x00f4 ; " :"
00cd 0050 | P | .STRTAB 0x0050->0x00f5 ; "Build time for "
00ce 005d | ] | .STREND 0x005d->0x00fc
00cf 2e73 7461 |.sta| .STRTAB_STRINGS
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; Debug Table
0100 ; --------------------------------------------------------------------------------------
0100 0004 000e | | .DEBUG4 0x0004,0x000e,0xbc08,0x0000,0x0001,0x0000
0106 a0a4 9e86 | | .XXX[0x5e]
0108 8aa6 a67a | z|
010a f728 fd20 | ( |
010c 4600 0aaa |F |
010e 9c92 a8a6 | |
0110 2e00 3e88 |. > |
0112 92a4 8a86 | |
0114 a89e a4b2 | |
0116 bea8 9e9e | |
0118 98a6 5c9e | \ |
011a 8494 8a86 | |
011c a85c 92a8 | \ |
011e 8aa4 82a8 | |
0120 9ea4 00fd | |
0122 2046 001c | F |
0124 a48a 9a9e | |
0126 a88a be9a | |
0128 8286 9092 | |
012a 9c8a 2e00 | . |
012c 1ea6 a882 | |
012e 9c88 82a4 | |
0130 885c a6a8 | \ |
0132 a492 9c8e | |
0134 00fd 2046 | F|
0136 0022 a48a | " |
0138 9a9e a88a | |
013a be86 9e9c | |
013c 9c8a 86a8 | |
013e 929e 9c2e | .|
0140 0040 a48a | @ |
0142 9a9e a88a | |
0144 be86 9e9a | |
0146 9a82 9c88 | |
0148 be92 9ca8 | |
014a 8aa4 8c82 | |
014c 868a 5c86 | \ |
014e 9e9c a88a | |
0150 b0a8 00ff | |
0152 2048 000c | H |
0154 a6a8 82a8 | |
0156 aaa6 2e00 | . |
0158 2ea6 929a |. |
015a a098 8abe | |
015c a6a8 82a8 | |
015e aaa6 5c86 | \ |
0160 9e9c 8892 | |
0162 a892 9e9c | |
0164 0000 0000 | | .BLANK 0000[0x4]
0168 0018 0000 | | .XXX[0x98]
016a 0004 0000 | |
016c 0618 00a1 | |
016e 0905 510d | Q |
0170 217d 1561 |!} a|
0172 5115 394d |Q 9M|
0174 253d 394c |%=9L|
0176 b909 5525 | U%|
0178 3111 7d4d |1 }M|
017a 0d49 2541 | I%A|
017c 517d 4149 |Q}AI|
017e 1541 493d | AI=|
0180 0d15 4d4c | ML|
0182 f5ee 51fa | Q |
0184 408c 005d |@ ]|
0186 0d3d 3541 | =5A|
0188 2531 0551 |%1 Q|
018a 253d 397d |%=9}|
018c 4d0d 4925 |M I%|
018e 4151 7d19 |AQ} |
0190 2531 145c |%1 \|
0192 0031 253c | 1%<|
0194 b919 2531 | %1|
0196 157d 5165 | }Qe|
0198 4114 01fa |A |
019a 408c 0041 |@ A|
019c 353d 5915 |5=Y |
019e 7d4d 0d49 |}M I|
01a0 2541 517d |%AQ}|
01a2 1925 3114 | %1 |
01a4 5c00 3125 |\ 1%|
01a6 3cb9 1925 |< %|
01a8 3115 7d51 |1 }Q|
01aa 6541 1401 |eA |
01ac fa40 8c00 | @ |
01ae 3909 5525 |9 U%|
01b0 3111 7d59 |1 }Y|
01b2 2505 7d51 |% }Q|
01b4 0541 145c | A \|
01b6 0041 4d51 | AMQ|
01b8 0539 1105 | 9 |
01ba 4910 b909 |I |
01bc 3d3d 3115 |==1 |
01be 0538 01fa | 8 |
01c0 408c 0029 |@ )|
01c2 213d 4d51 |!=MQ|
01c4 7d55 3925 |}U9%|
01c6 514c 5c00 |QL\ |
01c8 7d11 2549 |} %I|
01ca 150d 513d | Q=|
01cc 4965 7d51 |Ie}Q|
01ce 3d3d 314c |==1L|
01d0 b93d 0929 | = )|
01d2 150d 50b9 | P |
01d4 2551 1549 |%Q I|
01d6 0551 3d48 | Q=H|
01d8 01fa 408c | @ |
01da 003d 3125 | =1%|
01dc 392d 7d35 |9-}5|
01de 0525 397d | %9}|
01e0 5539 2551 |U9%Q|
01e2 4c5c 0041 |L\ A|
01e4 4d51 0539 |MQ 9|
01e6 1105 4910 | I |
01e8 b909 3d3d | ==|
01ea 3115 0538 |1 8|
01ec 01fa 408c | @ |
01ee 0039 4915 | 9I |
01f0 353d 5115 |5=Q |
01f2 7d35 050d |}5 |
01f4 2125 3914 |!%9 |
01f6 5c00 3d4d |\ =M|
01f8 5105 3911 |Q 9 |
01fa 0549 10b9 | I |
01fc 4d51 4925 |MQI%|
01fe 391c 01fa |9 |