|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0058 | X | .CONST 0x0058 ; 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 0021 | ! | .CONST 0x0021 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 00e9 | | Load_Encached String_Cache ; Debug Table 0x0 = .DEBUG 0x000b,0x007a,0x8000,0x0000,0x0057,0xfd15,0x0000,0x0003 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 02a0 | | Declare_Subprogram Null_Subprogram 000d 03ae | | Declare_Type Heap_Access,Defined,Visible 000e 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xe,0xfffe 000f 03a6 | | Declare_Type Heap_Access,Indirect_Literal,Visible,Values_Relative ; Debug Table 0x0.0x2 = 0xf,0xfffd 0010 00d9 | | Load_Top At_Offset_1 0011 00d9 | | Load_Top At_Offset_1 0012 03a2 | | Complete_Type Heap_Access,By_Renaming 0013 0007 | | Action Break_Optional ; Debug Table 0x0.0x3 = 0x13,0xfffc 0014 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x4 = 0x14,0xfffb 0015 0129 | ) | Execute Any,Make_Visible 0016 0007 | | Action Break_Optional ; Debug Table 0x0.0x5 = 0x16,0xfffa 0017 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x17,0xfff9 0019 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x7 = 0x19,0xfff8 001a 4802 |H | Short_Literal 0x2 001b 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call 001d 03fe | | Declare_Type Discrete,Defined,Visible 001e 00bf | | Action Accept_Activation 001f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1 = .DEBUG 0x001f,0x008c,0x8000,0x0000,0x0058,0x1cd5,0x0000,0x0005 ; Debug Table 0x1.0x0 = 0x1f,0xffff 0020 00c7 | | Action Elaborate_Subprogram 0021 BODY_0008: 0021 00bc | | Action Signal_Activated 0022 00bb | | Action Signal_Completion 0023 0000 0000 | | .BLANK 0000[0x5] 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 ; Debug Table 0x2 = .DEBUG 0x002b,0x0090,0x0002,0x0000,0x0057,0xfd15,0x0000,0x0022 ; Debug Table 0x2.0x0 = 0x2b,0x1 002c e001 | | Load 0x0,0x1 002d 180d | | Execute Package,Field_Execute,Field_Number 0xd 002e 4871 |Hq | Short_Literal 0x71 002f 026e | n | Execute Discrete,Modulo 0030 00e3 | | Load_Encached Natural_Cache 0031 025b | [ | Execute Discrete,Check_In_Type 0032 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0033 0000 0000 | | .BLANK 0000[0x5] 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 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x003b,0x0094,0x0005,0x0000,0x0057,0xfd15,0x0000,0x002b 003c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 003d 7802 |x | Jump 0x40 ; case 0x1 003e 7805 |x | Jump 0x44 ; case 0x2 003f 7809 |x | Jump 0x49 ; case 0x3 0040 00da | | Load_Top At_Offset_2 0041 0091 004d | M| Action Push_String_Extended_Indexed,0x4d ; "BOOL" 0043 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0044 00db | | Load_Top At_Offset_3 0045 00db | | Load_Top At_Offset_3 0046 00e0 | | Load_Encached Standard_Cache 0047 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0048 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0049 00da | | Load_Top At_Offset_2 004a 00e0 | | Load_Encached Standard_Cache 004b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 004c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 004d ; -------------------------------------------------------------------------------------- 004d ; STRING TABLE 004d ; -------------------------------------------------------------------------------------- 004d 0008 | | .STRTAB 0x0008->0x0051 ; "BOOL" 004e 000a | | .STRTAB 0x000a->0x0053 ; "STR" 004f 000b | | .STRTAB 0x000b->0x0054 ; "INT" 0050 000c | | .STREND 0x000c->0x0056 0051 424f 4f4c |BOOL| .STRTAB_STRINGS 0056 0000 0000 | | .XXX[0x2] 0058 ; -------------------------------------------------------------------------------------- 0058 ; Debug Table 0058 ; -------------------------------------------------------------------------------------- 0058 0003 0004 | | .CONST 0x0003,0x0004 005a 000b 007a | z| .DEBUG 0x000b,0x007a,0x8000,0x0000,0x0057,0xfd15,0x0000,0x0003 0062 001f 008c | | .DEBUG 0x001f,0x008c,0x8000,0x0000,0x0058,0x1cd5,0x0000,0x0005 006a 002b 0090 | + | .DEBUG 0x002b,0x0090,0x0002,0x0000,0x0057,0xfd15,0x0000,0x0022 0072 003b 0094 | ; | .DEBUG 0x003b,0x0094,0x0005,0x0000,0x0057,0xfd15,0x0000,0x002b 007a ; -------------------------------------------------------------------------------------- 007a ; Debug3 Subtable 0x0 007a ; -------------------------------------------------------------------------------------- 007a 0008 0000 | | .DBG3TAB 0x0008,0x0000 007c 000b ffff | | .CONST 0x000b,0xffff 007e 000e fffe | | .CONST 0x000e,0xfffe 0080 000f fffd | | .CONST 0x000f,0xfffd 0082 0013 fffc | | .CONST 0x0013,0xfffc 0084 0014 fffb | | .CONST 0x0014,0xfffb 0086 0016 fffa | | .CONST 0x0016,0xfffa 0088 0017 fff9 | | .CONST 0x0017,0xfff9 008a 0019 fff8 | | .CONST 0x0019,0xfff8 008c ; -------------------------------------------------------------------------------------- 008c ; Debug3 Subtable 0x1 008c ; -------------------------------------------------------------------------------------- 008c 0001 0000 | | .DBG3TAB 0x0001,0x0000 008e 001f ffff | | .CONST 0x001f,0xffff 0090 ; -------------------------------------------------------------------------------------- 0090 ; Debug3 Subtable 0x2 0090 ; -------------------------------------------------------------------------------------- 0090 0000 0001 | | .DBG3TAB 0x0000,0x0001 0092 002b 0001 | + | .CONST 0x002b,0x0001 0094 ; -------------------------------------------------------------------------------------- 0094 ; Debug3 Subtable 0x3 0094 ; -------------------------------------------------------------------------------------- 0094 0000 0000 | | .DBG3TAB 0x0000,0x0000 0096 0000 0000 | | .BLANK 0000[0x16a]