|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_18b8e4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0090 | | .CONST 0x0090 ; 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 002a | * | .CONST 0x002a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 00d9 | | Load_Top At_Offset_1 000c 0265 | e | Execute Discrete,Reverse_Bounds 000d 00db | | Load_Top At_Offset_3 000e 1c04 | | Execute_Immediate Run_Utility,0x4 000f 00d0 | | Action Swap_Control 0010 00db | | Load_Top At_Offset_3 0011 1c04 | | Execute_Immediate Run_Utility,0x4 0012 e20e | | Load 0x1,0xe 0013 02a0 | | Declare_Subprogram Null_Subprogram 0014 4801 |H | Short_Literal 0x1 0015 035e | ^ | Declare_Type Array,Defined,Visible 0016 00da | | Load_Top At_Offset_2 0017 0265 | e | Execute Discrete,Reverse_Bounds 0018 e20f | | Load 0x1,0xf 0019 1c04 | | Execute_Immediate Run_Utility,0x4 001a 00d0 | | Action Swap_Control 001b e20f | | Load 0x1,0xf 001c 1c04 | | Execute_Immediate Run_Utility,0x4 001d 00e2 | | Load_Encached Integer_Cache 001e 02a0 | | Declare_Subprogram Null_Subprogram 001f 4801 |H | Short_Literal 0x1 0020 035e | ^ | Declare_Type Array,Defined,Visible 0021 00d8 | | Load_Top At_Offset_0 0022 02a0 | | Declare_Subprogram Null_Subprogram 0023 4801 |H | Short_Literal 0x1 0024 032e | . | Declare_Type Record,Defined,Visible 0025 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 0027 00bf | | Action Accept_Activation 0028 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0029 00c7 | | Action Elaborate_Subprogram 002a BODY_0008: 002a 00bc | | Action Signal_Activated 002b 00bb | | Action Signal_Completion 002c 0000 0000 | | .BLANK 0000[0x4] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 003e | > | .CONST 0x003e ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0005 | | .CONST 0x0005 ; Number of locals 0033 INIT_0030: 0033 00e4 | | Load_Encached Positive_Cache 0034 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0035 e20e | | Load 0x1,0xe 0036 0007 | | Action Break_Optional 0037 e213 | | Load 0x1,0x13 0038 0322 | " | Declare_Variable Record 0039 4801 |H | Short_Literal 0x1 003a 4850 |HP | Short_Literal 0x50 003b 00e9 | | Load_Encached String_Cache 003c 035b | [ | Declare_Type Array,Constrained 003d 0337 | 7 | Declare_Variable Array 003e BODY_0030: 003e 00cf | | Action Mark_Auxiliary 003f e20e | | Load 0x1,0xe 0040 0269 | i | Execute Discrete,Last 0041 e20e | | Load 0x1,0xe 0042 026a | j | Execute Discrete,First 0043 0263 | c | Execute Discrete,Above_Bound 0044 7043 |pC | Jump_Nonzero 0x88 0045 00cf | | Action Mark_Auxiliary 0046 e211 | | Load 0x1,0x11 0047 01da | | Execute Vector,Bounds 0048 e20f | | Load 0x1,0xf 0049 1c05 | | Execute_Immediate Run_Utility,0x5 004a 00d0 | | Action Swap_Control 004b e20f | | Load 0x1,0xf 004c 1c05 | | Execute_Immediate Run_Utility,0x5 004d 0263 | c | Execute Discrete,Above_Bound 004e 7017 |p | Jump_Nonzero 0x66 004f 00db | | Load_Top At_Offset_3 0050 c403 | | Store 0x2,0x3 0051 e403 | | Load 0x2,0x3 0052 00d9 | | Load_Top At_Offset_1 0053 e20f | | Load 0x1,0xf 0054 1c04 | | Execute_Immediate Run_Utility,0x4 0055 e5ff | | Load 0x2,-0x1 0056 01d7 | | Execute Vector,Field_Read 0057 8210 | | Call 0x1,0x10 0058 6803 |h | Jump_Zero 0x5c 0059 e402 | | Load 0x2,0x2 005a 0a01 | | Execute_Immediate Plus,0x1 005b c402 | | Store 0x2,0x2 005c 00c8 | | Action Pop_Auxiliary_Range 005d 00d9 | | Load_Top At_Offset_1 005e 00d9 | | Load_Top At_Offset_1 005f 027f | | Execute Discrete,Equal 0060 7004 |p | Jump_Nonzero 0x65 0061 e20f | | Load 0x1,0xf 0062 0122 | " | Execute Any,Make_Root_Type 0063 1c07 | | Execute_Immediate Run_Utility,0x7 0064 7fea | | Jump 0x4f 0065 00d2 | | Pop_Control Pop_Count_2 0066 00ce | | Action Pop_Auxiliary 0067 4801 |H | Short_Literal 0x1 0068 e402 | | Load 0x2,0x2 0069 00e9 | | Load_Encached String_Cache 006a 035b | [ | Declare_Type Array,Constrained 006b 0337 | 7 | Declare_Variable Array 006c 00d8 | | Load_Top At_Offset_0 006d 01dc | | Execute Vector,Last 006e 4801 |H | Short_Literal 0x1 006f 0263 | c | Execute Discrete,Above_Bound 0070 7005 |p | Jump_Nonzero 0x76 0071 482a |H* | Short_Literal 0x2a 0072 00d9 | | Load_Top At_Offset_1 0073 e409 | | Load 0x2,0x9 0074 01d6 | | Execute Vector,Field_Write 0075 3ffb |? | Loop_Increasing 0x71 0076 e405 | | Load 0x2,0x5 0077 01d4 | | Execute Vector,Structure_Write 0078 4801 |H | Short_Literal 0x1 0079 e402 | | Load 0x2,0x2 007a e405 | | Load 0x2,0x5 007b 01cf | | Execute Vector,Slice_Read 007c e002 | | Load 0x0,0x2 007d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 007e 00c8 | | Action Pop_Auxiliary_Range 007f 00d9 | | Load_Top At_Offset_1 0080 00d9 | | Load_Top At_Offset_1 0081 027f | | Execute Discrete,Equal 0082 7004 |p | Jump_Nonzero 0x87 0083 e20e | | Load 0x1,0xe 0084 0122 | " | Execute Any,Make_Root_Type 0085 1c07 | | Execute_Immediate Run_Utility,0x7 0086 7fbe | | Jump 0x45 0087 00d2 | | Pop_Control Pop_Count_2 0088 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0089 0000 0000 | | .BLANK 0000[0x7] 0090 ; -------------------------------------------------------------------------------------- 0090 ; Debug Table 0090 ; -------------------------------------------------------------------------------------- 0090 0004 0004 | | .DEBUG4 0x0004,0x0004,0xa13e,0x0000,0x0001,0x0003 0096 000b 00a2 | | .DBG4T 0x000b,0x00a2,0xc000,0x0000 009a 0028 00a8 | ( | .DBG4T 0x0028,0x00a8,0xc000,0x0000 009e 0033 00ab | 3 | .DBG4T 0x0033,0x00ab,0x1001,0x0000 00a2 ; -------------------------------------------------------------------------------------- 00a2 ; Debug chain 00a2 ; -------------------------------------------------------------------------------------- 00a2 0004 0000 | | .DBGLEN 0x0004,0x0000 00a4 000b 0016 | | .DBGLNO 0x000b,0x0016,0x0021,0x0025 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; Debug chain 00a8 ; -------------------------------------------------------------------------------------- 00a8 0001 0000 | | .DBGLEN 0x0001,0x0000 00aa 0028 | ( | .DBGLNO 0x0028 00ab ; -------------------------------------------------------------------------------------- 00ab ; Debug chain 00ab ; -------------------------------------------------------------------------------------- 00ab 0004 0007 | | .DBGLEN 0x0004,0x0007 00ad 0033 0035 | 3 5| .DBGLNO 0x0033,0x0035,0x0037,0x0039,0x003f,0x0046,0x004f,0x0051,0x0059,0x0067,0x0078 00b8 0000 0000 | | .BLANK 0000[0x148]