|
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, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_07b4f8
└─⟦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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0078 | x | .CONST 0x0078 ; 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 0023 | # | .CONST 0x0023 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x008a,0x8000,0x0000,0x0033,0x7804,0x0000,0x0003 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 4806 |H | Short_Literal 0x6 000d 029f 002b | +| Declare_Subprogram INIT_0028,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 00e9 | | Load_Encached String_Cache ; Debug Table 0x0.0x1 = 0x10,0xfffe 0011 0129 | ) | Execute Any,Make_Visible 0012 00e9 | | Load_Encached String_Cache ; Debug Table 0x0.0x2 = 0x12,0xfffd 0013 0129 | ) | Execute Any,Make_Visible 0014 00e9 | | Load_Encached String_Cache ; Debug Table 0x0.0x3 = 0x14,0xfffc 0015 0129 | ) | Execute Any,Make_Visible 0016 00e9 | | Load_Encached String_Cache ; Debug Table 0x0.0x4 = 0x16,0xfffb 0017 0129 | ) | Execute Any,Make_Visible 0018 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x0.0x5 = 0x18,0xfffa 0019 0129 | ) | Execute Any,Make_Visible 001a 602d |`- | Indirect_Literal Discrete,0x48,{0x00000000, 0x33780401} ; Debug Table 0x0.0x6 = 0x1a,0xfff9 001b 0129 | ) | Execute Any,Make_Visible 001c 6027 |`' | Indirect_Literal Discrete,0x44,{0x00000000, 0x33780402} ; Debug Table 0x0.0x7 = 0x1c,0xfff8 001d 0129 | ) | Execute Any,Make_Visible 001e 0007 | | Action Break_Optional ; Debug Table 0x0.0x8 = 0x1e,0xfff7 001f 6020 |` | Indirect_Literal Discrete,0x40,{0x00000000, 0x33780403} ; Debug Table 0x0.0x9 = 0x1f,0xfff6 0020 0129 | ) | Execute Any,Make_Visible 0021 0007 | | Action Break_Optional ; Debug Table 0x0.0xa = 0x21,0xfff5 0022 00bf | | Action Accept_Activation ; Debug Table 0x0.0xb = 0x22,0xfff4 0023 BODY_0008: 0023 00bc | | Action Signal_Activated 0024 00bb | | Action Signal_Completion 0025 0000 0000 | | .XXX[0x3] 0027 0000 | | 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 4603 |F | Jump_Case 0x4 ; Debug Table 0x1 = .DEBUG 0x002b,0x00a4,0x0005,0x0000,0x0033,0x7804,0x0000,0x0004 002c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 002d 7802 |x | Jump 0x30 ; case 0x1 002e 7805 |x | Jump 0x34 ; case 0x2 002f 7809 |x | Jump 0x39 ; case 0x3 0030 e5ff | | Load 0x2,-0x1 0031 0091 004c | L| Action Push_String_Extended_Indexed,0x4c ; "INTEGER_TYPE" 0033 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0034 e5fe | | Load 0x2,-0x2 0035 e5ff | | Load 0x2,-0x1 0036 00e0 | | Load_Encached Standard_Cache 0037 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0038 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0039 e5ff | | Load 0x2,-0x1 003a 00e0 | | Load_Encached Standard_Cache 003b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 003c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 003d 0000 0000 | | .XXX[0x3] 003f 0000 | | 0040 0000 0000 | | .LITERAL {0x00000000, 0x33780403} 0044 0000 0000 | | .LITERAL {0x00000000, 0x33780402} 0048 0000 0000 | | .LITERAL {0x00000000, 0x33780401} 004c ; -------------------------------------------------------------------------------------- 004c ; STRING TABLE 004c ; -------------------------------------------------------------------------------------- 004c 0010 | | .STRTAB 0x0010->0x0054 ; "INTEGER_TYPE" 004d 001a | | .STRTAB 0x001a->0x005a ; "ENUM_TYPE" 004e 0021 | ! | .STRTAB 0x0021->0x005e ; "FLOAT_TYPE" 004f 0029 | ) | .STRTAB 0x0029->0x0063 ; "ACCESS_TYPE" 0050 0032 | 2 | .STRTAB 0x0032->0x0069 ; "FIXED_TYPE" 0051 003a | : | .STRTAB 0x003a->0x006e ; "TASK_TYPE" 0052 0041 | A | .STRTAB 0x0041->0x0072 ; "OTHER_TYPE" 0053 0049 | I | .STREND 0x0049->0x0077 0054 494e 5445 |INTE| .STRTAB_STRINGS 0078 ; -------------------------------------------------------------------------------------- 0078 ; Debug Table 0078 ; -------------------------------------------------------------------------------------- 0078 0003 0002 | | .CONST 0x0003,0x0002 007a 000b 008a | | .DEBUG 0x000b,0x008a,0x8000,0x0000,0x0033,0x7804,0x0000,0x0003 0082 002b 00a4 | + | .DEBUG 0x002b,0x00a4,0x0005,0x0000,0x0033,0x7804,0x0000,0x0004 008a ; -------------------------------------------------------------------------------------- 008a ; Debug3 Subtable 0x0 008a ; -------------------------------------------------------------------------------------- 008a 000c 0000 | | .DBG3TAB 0x000c,0x0000 008c 000b ffff | | .CONST 0x000b,0xffff 008e 0010 fffe | | .CONST 0x0010,0xfffe 0090 0012 fffd | | .CONST 0x0012,0xfffd 0092 0014 fffc | | .CONST 0x0014,0xfffc 0094 0016 fffb | | .CONST 0x0016,0xfffb 0096 0018 fffa | | .CONST 0x0018,0xfffa 0098 001a fff9 | | .CONST 0x001a,0xfff9 009a 001c fff8 | | .CONST 0x001c,0xfff8 009c 001e fff7 | | .CONST 0x001e,0xfff7 009e 001f fff6 | | .CONST 0x001f,0xfff6 00a0 0021 fff5 | ! | .CONST 0x0021,0xfff5 00a2 0022 fff4 | " | .CONST 0x0022,0xfff4 00a4 ; -------------------------------------------------------------------------------------- 00a4 ; Debug3 Subtable 0x1 00a4 ; -------------------------------------------------------------------------------------- 00a4 0000 0000 | | .DBG3TAB 0x0000,0x0000 00a6 0000 0000 | | .BLANK 0000[0x15a]