|
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_0ff4c9
└─⟦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 00a0 | | .CONST 0x00a0 ; 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 0026 | & | .CONST 0x0026 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000f 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 00e4 | | Load_Encached Positive_Cache 0013 0266 | f | Execute Discrete,Bounds 0014 e20f | | Load 0x1,0xf 0015 02a0 | | Declare_Subprogram Null_Subprogram 0016 4801 |H | Short_Literal 0x1 0017 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0018 00d8 | | Load_Top At_Offset_0 0019 02a0 | | Declare_Subprogram Null_Subprogram 001a 4818 |H | Short_Literal 0x18 001b 03d3 | | Declare_Type Access,Defined,Accesses_Protected 001c 00d8 | | Load_Top At_Offset_0 001d 0007 | | Action Break_Optional 001e 029d 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call 0020 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0021 00c7 | | Action Elaborate_Subprogram 0022 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0023 00c7 | | Action Elaborate_Subprogram 0024 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0025 00c7 | | Action Elaborate_Subprogram 0026 BODY_0008: 0026 00bc | | Action Signal_Activated 0027 00bb | | Action Signal_Completion 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 00da | | Load_Top At_Offset_2 002c 7003 |p | Jump_Nonzero 0x30 002d e214 | | Load 0x1,0x14 002e a215 | | Store_Unchecked 0x1,0x15 002f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0030 4801 |H | Short_Literal 0x1 0031 00db | | Load_Top At_Offset_3 0032 e213 | | Load 0x1,0x13 0033 035b | [ | Declare_Type Array,Constrained 0034 0337 | 7 | Declare_Variable Array 0035 00d8 | | Load_Top At_Offset_0 0036 01dc | | Execute Vector,Last 0037 4801 |H | Short_Literal 0x1 0038 0263 | c | Execute Discrete,Above_Bound 0039 7005 |p | Jump_Nonzero 0x3f 003a 8216 | | Call 0x1,0x16 003b 00d9 | | Load_Top At_Offset_1 003c e402 | | Load 0x2,0x2 003d 01d6 | | Execute Vector,Field_Write 003e 3ffb |? | Loop_Increasing 0x3a 003f e214 | | Load 0x1,0x14 0040 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0041 a215 | | Store_Unchecked 0x1,0x15 0042 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0043 0000 0000 | | .BLANK 0000[0x5] 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 e215 | | Load 0x1,0x15 004c 7002 |p | Jump_Nonzero 0x4f 004d 4800 |H | Short_Literal 0x0 004e 00ca | | Action Exit_Nullary_Function 004f e215 | | Load 0x1,0x15 0050 0227 | ' | Execute Access,All_Reference 0051 01db | | Execute Vector,Length 0052 00d8 | | Load_Top At_Offset_0 0053 00e3 | | Load_Encached Natural_Cache 0054 0260 | ` | Execute Discrete,In_Type 0055 7001 |p | Jump_Nonzero 0x57 0056 0801 | | Execute_Immediate Raise,0x1 0057 00ca | | Action Exit_Nullary_Function 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 e215 | | Load 0x1,0x15 005c 7003 |p | Jump_Nonzero 0x60 005d 0092 0095 | | Action Push_String_Extended,0x95 ; "rien de magique" 005f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0060 00da | | Load_Top At_Offset_2 0061 e215 | | Load 0x1,0x15 0062 0227 | ' | Execute Access,All_Reference 0063 01d7 | | Execute Vector,Field_Read 0064 e20f | | Load 0x1,0xf 0065 0122 | " | Execute Any,Make_Root_Type 0066 011c | | Execute Any,Convert_Unchecked 0067 1c01 | | Execute_Immediate Run_Utility,0x1 0068 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0069 0000 0000 | | .BLANK 0000[0x7] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0082 | | .CONST 0x0082 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0005 | | .CONST 0x0005 ; Number of locals 0073 INIT_0070: 0073 e20f | | Load 0x1,0xf 0074 026a | j | Execute Discrete,First 0075 00e3 | | Load_Encached Natural_Cache 0076 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0077 e20f | | Load 0x1,0xf 0078 0269 | i | Execute Discrete,Last 0079 00e3 | | Load_Encached Natural_Cache 007a 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 007b 00d8 | | Load_Top At_Offset_0 007c 00da | | Load_Top At_Offset_2 007d 0272 | r | Execute Discrete,Minus 007e 0a01 | | Execute_Immediate Plus,0x1 007f 00e3 | | Load_Encached Natural_Cache 0080 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0081 00e3 | | Load_Encached Natural_Cache 0082 BODY_0070: 0082 00db | | Load_Top At_Offset_3 0083 8001 | | Call 0x0,0x1 0084 00db | | Load_Top At_Offset_3 0085 026e | n | Execute Discrete,Modulo 0086 0273 | s | Execute Discrete,Plus 0087 0059 | Y | Store_Top Discrete,At_Offset_1 0088 00d8 | | Load_Top At_Offset_0 0089 00d8 | | Load_Top At_Offset_0 008a e20f | | Load 0x1,0xf 008b 0122 | " | Execute Any,Make_Root_Type 008c 0260 | ` | Execute Discrete,In_Type 008d 7001 |p | Jump_Nonzero 0x8f 008e 0801 | | Execute_Immediate Raise,0x1 008f 00d8 | | Load_Top At_Offset_0 0090 e20f | | Load 0x1,0xf 0091 0260 | ` | Execute Discrete,In_Type 0092 7001 |p | Jump_Nonzero 0x94 0093 0801 | | Execute_Immediate Raise,0x1 0094 00ca | | Action Exit_Nullary_Function 0095 ; -------------------------------------------------------------------------------------- 0095 ; STRING TABLE 0095 ; -------------------------------------------------------------------------------------- 0095 0004 | | .STRTAB 0x0004->0x0097 ; "rien de magique" 0096 0011 | | .STREND 0x0011->0x009e 0097 7269 656e |rien| .STRTAB_STRINGS 009f 0000 | | .XXX[0x1] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; Debug Table 00a0 ; -------------------------------------------------------------------------------------- 00a0 0004 0004 | | .DEBUG4 0x0004,0x0004,0xb280,0x0000,0x0001,0x0006 00a6 000b 00be | | .DBG4T 0x000b,0x00be,0xc000,0x0000 00aa 0012 00c3 | | .DBG4T 0x0012,0x00c3,0xc000,0x0000 00ae 002b 00cc | + | .DBG4T 0x002b,0x00cc,0x1001,0x0000 00b2 004b 00d1 | K | .DBG4T 0x004b,0x00d1,0x1002,0x0000 00b6 005b 00d6 | [ | .DBG4T 0x005b,0x00d6,0x1002,0x0000 00ba 0073 00db | s | .DBG4T 0x0073,0x00db,0x1002,0x0000 00be ; -------------------------------------------------------------------------------------- 00be ; Debug chain 00be ; -------------------------------------------------------------------------------------- 00be 0003 0000 | | .DBGLEN 0x0003,0x0000 00c0 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f 00c3 ; -------------------------------------------------------------------------------------- 00c3 ; Debug chain 00c3 ; -------------------------------------------------------------------------------------- 00c3 0007 0000 | | .DBGLEN 0x0007,0x0000 00c5 0012 0018 | | .DBGLNO 0x0012,0x0018,0x001c,0x001e,0x0020,0x0022,0x0024 00cc ; -------------------------------------------------------------------------------------- 00cc ; Debug chain 00cc ; -------------------------------------------------------------------------------------- 00cc 0000 0003 | | .DBGLEN 0x0000,0x0003 00ce 002b 002d | + -| .DBGLNO 0x002b,0x002d,0x0030 00d1 ; -------------------------------------------------------------------------------------- 00d1 ; Debug chain 00d1 ; -------------------------------------------------------------------------------------- 00d1 0000 0003 | | .DBGLEN 0x0000,0x0003 00d3 004b 004d | K M| .DBGLNO 0x004b,0x004d,0x004f 00d6 ; -------------------------------------------------------------------------------------- 00d6 ; Debug chain 00d6 ; -------------------------------------------------------------------------------------- 00d6 0000 0003 | | .DBGLEN 0x0000,0x0003 00d8 005b 005d | [ ]| .DBGLNO 0x005b,0x005d,0x0060 00db ; -------------------------------------------------------------------------------------- 00db ; Debug chain 00db ; -------------------------------------------------------------------------------------- 00db 0004 0002 | | .DBGLEN 0x0004,0x0002 00dd 0073 0077 | s w| .DBGLNO 0x0073,0x0077,0x007b,0x0081,0x0082,0x0088 00e3 0000 0000 | | .BLANK 0000[0x11d]