|
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_191cd7
└─⟦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 00d0 | | .CONST 0x00d0 ; 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 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 0024 | $ | .CONST 0x0024 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0003 | | .CONST 0x0003 ; Number of locals 001b INIT_0018: 001b 00da | | Load_Top At_Offset_2 001c 01da | | Execute Vector,Bounds 001d 00e9 | | Load_Encached String_Cache 001e 035b | [ | Declare_Type Array,Constrained 001f 0337 | 7 | Declare_Variable Array 0020 00db | | Load_Top At_Offset_3 0021 01dd | | Execute Vector,First 0022 00e3 | | Load_Encached Natural_Cache 0023 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0024 BODY_0018: 0024 00cf | | Action Mark_Auxiliary 0025 0007 | | Action Break_Optional 0026 00d9 | | Load_Top At_Offset_1 0027 e5ff | | Load 0x2,-0x1 0028 01dc | | Execute Vector,Last 0029 027d | } | Execute Discrete,Greater 002a 6804 |h | Jump_Zero 0x2f 002b 00da | | Load_Top At_Offset_2 002c 00e9 | | Load_Encached String_Cache 002d 01c6 | | Execute Vector,Convert_To_Formal 002e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 002f 00cf | | Action Mark_Auxiliary 0030 0007 | | Action Break_Optional 0031 00da | | Load_Top At_Offset_2 0032 e5ff | | Load 0x2,-0x1 0033 01d7 | | Execute Vector,Field_Read 0034 4861 |Ha | Short_Literal 0x61 0035 487a |Hz | Short_Literal 0x7a 0036 0262 | b | Execute Discrete,In_Range 0037 6810 |h | Jump_Zero 0x48 0038 00da | | Load_Top At_Offset_2 0039 e5ff | | Load 0x2,-0x1 003a 01d7 | | Execute Vector,Field_Read 003b 0ae0 | | Execute_Immediate Plus,-0x20 003c 00d8 | | Load_Top At_Offset_0 003d 00e8 | | Load_Encached Character_Cache 003e 0260 | ` | Execute Discrete,In_Type 003f 7001 |p | Jump_Nonzero 0x41 0040 0801 | | Execute_Immediate Raise,0x1 0041 00db | | Load_Top At_Offset_3 0042 e402 | | Load 0x2,0x2 0043 01d6 | | Execute Vector,Field_Write 0044 00da | | Load_Top At_Offset_2 0045 0a01 | | Execute_Immediate Plus,0x1 0046 005b | [ | Store_Top Discrete,At_Offset_3 0047 782c |x, | Jump 0x74 0048 00da | | Load_Top At_Offset_2 0049 e5ff | | Load 0x2,-0x1 004a 01d7 | | Execute Vector,Field_Read 004b 4841 |HA | Short_Literal 0x41 004c 485a |HZ | Short_Literal 0x5a 004d 0262 | b | Execute Discrete,In_Range 004e 7007 |p | Jump_Nonzero 0x56 004f 00da | | Load_Top At_Offset_2 0050 e5ff | | Load 0x2,-0x1 0051 01d7 | | Execute Vector,Field_Read 0052 4830 |H0 | Short_Literal 0x30 0053 4839 |H9 | Short_Literal 0x39 0054 0262 | b | Execute Discrete,In_Range 0055 680a |h | Jump_Zero 0x60 0056 00da | | Load_Top At_Offset_2 0057 e5ff | | Load 0x2,-0x1 0058 01d7 | | Execute Vector,Field_Read 0059 00db | | Load_Top At_Offset_3 005a e402 | | Load 0x2,0x2 005b 01d6 | | Execute Vector,Field_Write 005c 00da | | Load_Top At_Offset_2 005d 0a01 | | Execute_Immediate Plus,0x1 005e 005b | [ | Store_Top Discrete,At_Offset_3 005f 7814 |x | Jump 0x74 0060 00da | | Load_Top At_Offset_2 0061 e5ff | | Load 0x2,-0x1 0062 01d7 | | Execute Vector,Field_Read 0063 00db | | Load_Top At_Offset_3 0064 e402 | | Load 0x2,0x2 0065 01d6 | | Execute Vector,Field_Write 0066 00da | | Load_Top At_Offset_2 0067 0a01 | | Execute_Immediate Plus,0x1 0068 005b | [ | Store_Top Discrete,At_Offset_3 0069 00da | | Load_Top At_Offset_2 006a e5ff | | Load 0x2,-0x1 006b 01dc | | Execute Vector,Last 006c 027d | } | Execute Discrete,Greater 006d 6804 |h | Jump_Zero 0x72 006e 00db | | Load_Top At_Offset_3 006f 00e9 | | Load_Encached String_Cache 0070 01c6 | | Execute Vector,Convert_To_Formal 0071 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0072 00c9 | | Action Pop_Auxiliary_Loop 0073 7fbd | | Jump 0x31 0074 00ce | | Action Pop_Auxiliary 0075 00d9 | | Load_Top At_Offset_1 0076 e5ff | | Load 0x2,-0x1 0077 01dc | | Execute Vector,Last 0078 027d | } | Execute Discrete,Greater 0079 6804 |h | Jump_Zero 0x7e 007a 00da | | Load_Top At_Offset_2 007b 00e9 | | Load_Encached String_Cache 007c 01c6 | | Execute Vector,Convert_To_Formal 007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007e 00cf | | Action Mark_Auxiliary 007f 0007 | | Action Break_Optional 0080 00da | | Load_Top At_Offset_2 0081 e5ff | | Load 0x2,-0x1 0082 01d7 | | Execute Vector,Field_Read 0083 4841 |HA | Short_Literal 0x41 0084 485a |HZ | Short_Literal 0x5a 0085 0262 | b | Execute Discrete,In_Range 0086 6818 |h | Jump_Zero 0x9f 0087 00da | | Load_Top At_Offset_2 0088 e5ff | | Load 0x2,-0x1 0089 01d7 | | Execute Vector,Field_Read 008a 0a20 | | Execute_Immediate Plus,0x20 008b 00d8 | | Load_Top At_Offset_0 008c 00e8 | | Load_Encached Character_Cache 008d 0260 | ` | Execute Discrete,In_Type 008e 7001 |p | Jump_Nonzero 0x90 008f 0801 | | Execute_Immediate Raise,0x1 0090 00db | | Load_Top At_Offset_3 0091 e402 | | Load 0x2,0x2 0092 01d6 | | Execute Vector,Field_Write 0093 00da | | Load_Top At_Offset_2 0094 0a01 | | Execute_Immediate Plus,0x1 0095 005b | [ | Store_Top Discrete,At_Offset_3 0096 00da | | Load_Top At_Offset_2 0097 e5ff | | Load 0x2,-0x1 0098 01dc | | Execute Vector,Last 0099 027d | } | Execute Discrete,Greater 009a 682e |h. | Jump_Zero 0xc9 009b 00db | | Load_Top At_Offset_3 009c 00e9 | | Load_Encached String_Cache 009d 01c6 | | Execute Vector,Convert_To_Formal 009e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009f 00da | | Load_Top At_Offset_2 00a0 e5ff | | Load 0x2,-0x1 00a1 01d7 | | Execute Vector,Field_Read 00a2 4861 |Ha | Short_Literal 0x61 00a3 487a |Hz | Short_Literal 0x7a 00a4 0262 | b | Execute Discrete,In_Range 00a5 7007 |p | Jump_Nonzero 0xad 00a6 00da | | Load_Top At_Offset_2 00a7 e5ff | | Load 0x2,-0x1 00a8 01d7 | | Execute Vector,Field_Read 00a9 4830 |H0 | Short_Literal 0x30 00aa 4839 |H9 | Short_Literal 0x39 00ab 0262 | b | Execute Discrete,In_Range 00ac 6812 |h | Jump_Zero 0xbf 00ad 00da | | Load_Top At_Offset_2 00ae e5ff | | Load 0x2,-0x1 00af 01d7 | | Execute Vector,Field_Read 00b0 00db | | Load_Top At_Offset_3 00b1 e402 | | Load 0x2,0x2 00b2 01d6 | | Execute Vector,Field_Write 00b3 00da | | Load_Top At_Offset_2 00b4 0a01 | | Execute_Immediate Plus,0x1 00b5 005b | [ | Store_Top Discrete,At_Offset_3 00b6 00da | | Load_Top At_Offset_2 00b7 e5ff | | Load 0x2,-0x1 00b8 01dc | | Execute Vector,Last 00b9 027d | } | Execute Discrete,Greater 00ba 680e |h | Jump_Zero 0xc9 00bb 00db | | Load_Top At_Offset_3 00bc 00e9 | | Load_Encached String_Cache 00bd 01c6 | | Execute Vector,Convert_To_Formal 00be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bf 00da | | Load_Top At_Offset_2 00c0 e5ff | | Load 0x2,-0x1 00c1 01d7 | | Execute Vector,Field_Read 00c2 00db | | Load_Top At_Offset_3 00c3 e402 | | Load 0x2,0x2 00c4 01d6 | | Execute Vector,Field_Write 00c5 00da | | Load_Top At_Offset_2 00c6 0a01 | | Execute_Immediate Plus,0x1 00c7 005b | [ | Store_Top Discrete,At_Offset_3 00c8 7802 |x | Jump 0xcb 00c9 00c9 | | Action Pop_Auxiliary_Loop 00ca 7fb5 | | Jump 0x80 00cb 00ce | | Action Pop_Auxiliary 00cc 00c9 | | Action Pop_Auxiliary_Loop 00cd 7f58 | X | Jump 0x26 00ce 0000 0000 | | .XXX[0x2] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; Debug Table 00d0 ; -------------------------------------------------------------------------------------- 00d0 0004 0000 | | .DEBUG4 0x0004,0x0000,0x4bbb,0x0000,0x0001,0x0002 00d6 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 00da 001b 00de | | .DBG4T 0x001b,0x00de,0x8002,0x0000 00de ; -------------------------------------------------------------------------------------- 00de ; Debug chain 00de ; -------------------------------------------------------------------------------------- 00de 0002 0020 | | .DBGLEN 0x0002,0x0020 00e0 001b 0020 | | .DBGLNO 0x001b,0x0020,0x0025,0x0026,0x002b,0x0030,0x0031,0x0038,0x0044,0x0047,0x0048,0x0056,0x005c,0x005f,0x0060,0x0066,0x0069,0x006e,0x0075,0x007a,0x007f,0x0080,0x0087,0x0093,0x0096,0x009b,0x009f,0x00ad,0x00b3,0x00b6,0x00bb,0x00bf,0x00c5,0x00c8 0102 0000 0000 | | .BLANK 0000[0xfe]