|
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_03b8fe
└─⟦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 00c8 | | .CONST 0x00c8 ; 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 0024 | $ | .CONST 0x0024 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000e 0266 | f | Execute Discrete,Bounds 000f e001 | | Load 0x0,0x1 0010 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0011 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0012 02a0 | | Declare_Subprogram Null_Subprogram 0013 4801 |H | Short_Literal 0x1 0014 035e | ^ | Declare_Type Array,Defined,Visible 0015 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 0017 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 0019 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 001b 00bf | | Action Accept_Activation 001c 00db | | Load_Top At_Offset_3 001d 0337 | 7 | Declare_Variable Array 001e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001f 00c7 | | Action Elaborate_Subprogram 0020 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0021 00c7 | | Action Elaborate_Subprogram 0022 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0023 00c7 | | Action Elaborate_Subprogram 0024 BODY_0008: 0024 00bc | | Action Signal_Activated 0025 00bb | | Action Signal_Completion 0026 0000 0000 | | .XXX[0x2] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 0031 | 1 | .CONST 0x0031 ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0003 | | .CONST 0x0003 ; Number of locals 002b INIT_0028: 002b e001 | | Load 0x0,0x1 002c 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 002d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 002e 0322 | " | Declare_Variable Record 002f e20d | | Load 0x1,0xd 0030 0337 | 7 | Declare_Variable Array 0031 BODY_0028: 0031 e5ff | | Load 0x2,-0x1 0032 e001 | | Load 0x0,0x1 0033 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0034 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 0035 00da | | Load_Top At_Offset_2 0036 017d | } | Execute Record,Structure_Write 0037 00d9 | | Load_Top At_Offset_1 0038 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0039 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 003a e002 | | Load 0x0,0x2 003b 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 003c 4820 |H | Short_Literal 0x20 003d 4800 |H | Short_Literal 0x0 003e e002 | | Load 0x0,0x2 003f 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0040 4800 |H | Short_Literal 0x0 0041 00da | | Load_Top At_Offset_2 0042 01d6 | | Execute Vector,Field_Write 0043 00cf | | Action Mark_Auxiliary 0044 480a |H | Short_Literal 0xa 0045 4801 |H | Short_Literal 0x1 0046 0007 | | Action Break_Optional 0047 00d8 | | Load_Top At_Offset_0 0048 e402 | | Load 0x2,0x2 0049 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 004a 01d5 | | Execute Vector,Field_Reference 004b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 004c e002 | | Load 0x0,0x2 004d 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 004e 4820 |H | Short_Literal 0x20 004f 4800 |H | Short_Literal 0x0 0050 e002 | | Load 0x0,0x2 0051 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0052 00d9 | | Load_Top At_Offset_1 0053 e403 | | Load 0x2,0x3 0054 01d6 | | Execute Vector,Field_Write 0055 00c8 | | Action Pop_Auxiliary_Range 0056 3ff0 |? | Loop_Increasing 0x47 0057 00ce | | Action Pop_Auxiliary 0058 00d8 | | Load_Top At_Offset_0 0059 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 005a 0000 0000 | | .BLANK 0000[0x6] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 4820 |H | Short_Literal 0x20 0064 00db | | Load_Top At_Offset_3 0065 e5fe | | Load 0x2,-0x2 0066 820e | | Call 0x1,0xe 0067 01d5 | | Execute Vector,Field_Reference 0068 e003 | | Load 0x0,0x3 0069 181c | | Execute Package,Field_Execute,Field_Number 0x1c 006a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 006b 0000 0000 | | .BLANK 0000[0x5] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 007e | ~ | .CONST 0x007e ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0005 | | .CONST 0x0005 ; Number of locals 0073 INIT_0070: 0073 e004 | | Load 0x0,0x4 0074 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0075 02c7 | | Declare_Variable Any 0076 00d8 | | Load_Top At_Offset_0 0077 1c00 | | Execute_Immediate Run_Utility,0x0 0078 029f 009b | | Declare_Subprogram INIT_0098,For_Call 007a 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 007c 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 007e BODY_0070: 007e 00be | | Action Activate_Tasks 007f e5ff | | Load 0x2,-0x1 0080 820e | | Call 0x1,0xe 0081 e211 | | Load 0x1,0x11 0082 01d4 | | Execute Vector,Structure_Write 0083 8404 | | Call 0x2,0x4 0084 00cf | | Action Mark_Auxiliary 0085 e211 | | Load 0x1,0x11 0086 01d9 | | Execute Vector,Reverse_Bounds 0087 0007 | | Action Break_Optional 0088 00d8 | | Load_Top At_Offset_0 0089 e211 | | Load 0x1,0x11 008a 01d5 | | Execute Vector,Field_Reference 008b 8403 | | Call 0x2,0x3 008c 00c8 | | Action Pop_Auxiliary_Range 008d 3ffa |? | Loop_Increasing 0x88 008e 00ce | | Action Pop_Auxiliary 008f 8405 | | Call 0x2,0x5 0090 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0091 0000 0000 | | .BLANK 0000[0x7] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b e5fe | | Load 0x2,-0x2 009c 01db | | Execute Vector,Length 009d 7004 |p | Jump_Nonzero 0xa2 009e 00da | | Load_Top At_Offset_2 009f e004 | | Load 0x0,0x4 00a0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a2 00da | | Load_Top At_Offset_2 00a3 e402 | | Load 0x2,0x2 00a4 e004 | | Load 0x0,0x4 00a5 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 00a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a7 0000 | | .XXX[0x1] 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 e5fe | | Load 0x2,-0x2 00ac 01db | | Execute Vector,Length 00ad 6805 |h | Jump_Zero 0xb3 00ae e402 | | Load 0x2,0x2 00af e5fe | | Load 0x2,-0x2 00b0 e005 | | Load 0x0,0x5 00b1 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b2 c402 | | Store 0x2,0x2 00b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b4 0000 0000 | | .BLANK 0000[0x4] 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 e5fe | | Load 0x2,-0x2 00bc 01db | | Execute Vector,Length 00bd 6804 |h | Jump_Zero 0xc2 00be e402 | | Load 0x2,0x2 00bf e004 | | Load 0x0,0x4 00c0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00c1 c402 | | Store 0x2,0x2 00c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c3 0000 0000 | | .BLANK 0000[0x5] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; Debug Table 00c8 ; -------------------------------------------------------------------------------------- 00c8 0004 000e | | .DEBUG4 0x0004,0x000e,0x1ed7,0x0000,0x0001,0x0000 00ce bdb8 8141 | A| .XXX[0x132] 00d0 859d 9481 | | 00d2 c995 d1d5 | | 00d4 c9b8 8141 | A| 00d6 bdcd a5d1 | | 00d8 a5d9 957d | }| 00da 0dbd d5b9 | | 00dc d0ec 2828 | ((| 00de 8081 4995 | I | 00e0 d1d5 c9b9 | | 00e2 cc81 d1a1 | | 00e4 9481 8dd5 | | 00e6 c9c9 95b9 | | 00e8 d081 c185 | | 00ea 9d94 81b9 | | 00ec d5b5 8995 | | 00ee c8b8 2828 | ((| 00f0 8081 2598 | % | 00f2 8184 8119 | | 00f4 a5b1 9481 | | 00f6 c185 c985 | | 00f8 b595 d195 | | 00fa c881 a5cc | | 00fc 81bd b5a5 | | 00fe d1d1 9590 | | 0100 b081 d1a1 | | 0102 9481 9195 | | 0104 9985 d5b1 | | 0106 d081 99a5 | | 0108 b194 81a5 | | 010a cc81 d1a1 | | 010c 9481 8dd5 | | 010e c9c9 95b9 | | 0110 d028 8081 | ( | 0112 bdd5 d1c1 | | 0114 d5d0 8199 | | 0116 a5b1 94b8 | | 0118 2880 8101 |( | 011a b9bd 9194 | | 011c 8085 25bc | % | 011e b925 bcb9 | % | 0120 4185 9d95 |A | 0122 7d31 95b9 |}1 | 0124 9dd1 a028 | (| 0126 2880 8199 |( | 0128 d5b9 8dd1 | | 012a a5bd b881 | | 012c 4185 9d95 |A | 012e 7d31 95b9 |}1 | 0130 9dd1 a080 | | 0132 a119 a5b1 | | 0134 9480 e881 | | 0136 19a5 b195 | | 0138 7d51 e5c1 |}Q | 013a 94a4 81c9 | | 013c 95d1 d5c9 | | 013e b881 0dbd | | 0140 d5b9 d0ec | | 0142 2880 8199 |( | 0144 d5b9 8dd1 | | 0146 a5bd b881 | | 0148 4185 9d95 |A | 014a 7d31 95b9 |}1 | 014c 9dd1 a081 | | 014e c995 d1d5 | | 0150 c9b8 810d | | 0152 bdd5 b9d0 | | 0154 ec28 2880 | (( | 0156 8149 95d1 | I | 0158 d5c9 b9cc | | 015a 81d1 a194 | | 015c 81b5 85e1 | | 015e a5b5 d5b4 | | 0160 81c1 859d | | 0162 9481 b195 | | 0164 b99d d1a0 | | 0166 818d d5c9 | | 0168 c995 b9d1 | | 016a b1e4 81cd | | 016c 95d0 8199 | | 016e bdc8 81d1 | | 0170 a194 81cd | | 0172 c195 8da5 | | 0174 99a5 9590 | | 0176 2880 81bd |( | 0178 d5d1 c1d5 | | 017a d081 99a5 | | 017c b194 ec81 | | 017e c995 d1d5 | | 0180 c9b9 cc80 | | 0182 c081 a598 | | 0184 81d1 a194 | | 0186 81c1 859d | | 0188 9481 b195 | | 018a b99d d1a0 | | 018c 81a5 cc81 | | 018e d5b9 89bd | | 0190 d5b9 9195 | | 0192 90b8 2828 | ((| 0194 8081 2598 | % | 0196 8184 8119 | | 0198 a5b1 9481 | | 019a c185 c985 | | 019c b595 d195 | | 019e c881 a5cc | | 01a0 81bd b5a5 | | 01a2 d1d1 9590 | | 01a4 b081 d1a1 | | 01a6 9481 8dd5 | | 01a8 c9c9 95b9 | | 01aa d081 9195 | | 01ac 9985 d5b1 | | 01ae d081 99a5 | | 01b0 b194 81a5 | | 01b2 cc28 8081 | ( | 01b4 d5b9 9195 | | 01b6 c9cd d1bd | | 01b8 bd90 81d1 | | 01ba bc81 8994 | | 01bc 81cd c195 | | 01be 8da5 99a5 | | 01c0 9590 b828 | (| 01c2 8081 01b9 | | 01c4 bd91 9480 | | 01c6 8525 bcb9 | % | 01c8 25bc b941 |% A| 01ca bdc1 7d15 | } | 01cc c9c9 bdc8 | | 01ce 2828 8081 |(( | 01d0 c1c9 bd8d | | 01d2 9591 d5c9 | | 01d4 9481 41bd | A | 01d6 c17d 15c9 | } | 01d8 c9bd c8ec | | 01da 2828 8081 |(( | 01dc 41bd c1cc |A | 01de 81d1 a194 | | 01e0 818d d5c9 | | 01e2 c995 b9d0 | | 01e4 8195 c9c9 | | 01e6 bdc8 8199 | | 01e8 a5b1 9481 | | 01ea bd99 9881 | | 01ec d1a1 9481 | | 01ee cdd1 858d | | 01f0 ac81 bd98 | | 01f2 8195 c9c9 | | 01f4 bdc8 8199 | | 01f6 a5b1 95cc | | 01f8 b828 2880 | (( | 01fa 8151 a194 | Q | 01fc 81c1 c9bd | | 01fe 8d95 91d5 | |