|
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 0088 | | .CONST 0x0088 ; 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 003e | > | .CONST 0x003e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b 4808 |H | Short_Literal 0x8 000c 4800 |H | Short_Literal 0x0 000d 4805 |H | Short_Literal 0x5 000e 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call 0010 03fb | | Declare_Type Discrete,Defined,Visible,With_Size 0011 0007 | | Action Break_Optional 0012 e002 | | Load 0x0,0x2 0013 e003 | | Load 0x0,0x3 0014 00d8 | | Load_Top At_Offset_0 0015 02a0 | | Declare_Subprogram Null_Subprogram 0016 4803 |H | Short_Literal 0x3 0017 032e | . | Declare_Type Record,Defined,Visible 0018 e004 | | Load 0x0,0x4 0019 0266 | f | Execute Discrete,Bounds 001a 00da | | Load_Top At_Offset_2 001b 02a0 | | Declare_Subprogram Null_Subprogram 001c 4801 |H | Short_Literal 0x1 001d 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 001e 00d8 | | Load_Top At_Offset_0 001f 02a0 | | Declare_Subprogram Null_Subprogram 0020 4818 |H | Short_Literal 0x18 0021 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 0022 00d8 | | Load_Top At_Offset_0 0023 0221 | ! | Execute Access,Allow_Deallocate 0024 00da | | Load_Top At_Offset_2 0025 0322 | " | Declare_Variable Record 0026 4800 |H | Short_Literal 0x0 0027 00d9 | | Load_Top At_Offset_1 0028 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0029 4800 |H | Short_Literal 0x0 002a 00d9 | | Load_Top At_Offset_1 002b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 002c 4800 |H | Short_Literal 0x0 002d 00d9 | | Load_Top At_Offset_1 002e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 002f 0129 | ) | Execute Any,Make_Visible 0030 0007 | | Action Break_Optional 0031 a005 | | Store_Unchecked 0x0,0x5 0032 00c6 | | Action Check_Subprogram_Elaborated 0033 00da | | Load_Top At_Offset_2 0034 0129 | ) | Execute Any,Make_Visible 0035 00da | | Load_Top At_Offset_2 0036 0129 | ) | Execute Any,Make_Visible 0037 e006 | | Load 0x0,0x6 0038 0129 | ) | Execute Any,Make_Visible 0039 e007 | | Load 0x0,0x7 003a 0129 | ) | Execute Any,Make_Visible 003b 4800 |H | Short_Literal 0x0 003c 0129 | ) | Execute Any,Make_Visible 003d 00bf | | Action Accept_Activation 003e BODY_0008: 003e 00bc | | Action Signal_Activated 003f 00bb | | Action Signal_Completion 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 4607 |F | Jump_Case 0x8 0044 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0045 7807 |x | Jump 0x4d ; case 0x1 0046 780a |x | Jump 0x51 ; case 0x2 0047 780e |x | Jump 0x56 ; case 0x3 0048 7811 |x | Jump 0x5a ; case 0x4 0049 7812 |x | Jump 0x5c ; case 0x5 004a 7813 |x | Jump 0x5e ; case 0x6 004b 7816 |x | Jump 0x62 ; case 0x7 004c 4302 |C | .XXX[0x1] 004d 00da | | Load_Top At_Offset_2 004e 0091 0066 | f| Action Push_String_Extended_Indexed,0x66 ; "ANY_BUTTON" 0050 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0051 00db | | Load_Top At_Offset_3 0052 00db | | Load_Top At_Offset_3 0053 00e0 | | Load_Encached Standard_Cache 0054 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0055 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0056 00da | | Load_Top At_Offset_2 0057 00e0 | | Load_Encached Standard_Cache 0058 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0059 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 005a 00db | | Load_Top At_Offset_3 005b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 005c 00db | | Load_Top At_Offset_3 005d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 005e e20d | | Load 0x1,0xd 005f 00dc | | Load_Top At_Offset_4 0060 0267 | g | Execute Discrete,Predecessor 0061 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0062 e20d | | Load 0x1,0xd 0063 00dc | | Load_Top At_Offset_4 0064 0268 | h | Execute Discrete,Successor 0065 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0066 ; -------------------------------------------------------------------------------------- 0066 ; STRING TABLE 0066 ; -------------------------------------------------------------------------------------- 0066 000e | | .STRTAB 0x000e->0x006d ; "ANY_BUTTON" 0067 0016 | | .STRTAB 0x0016->0x0072 ; "BUTTON_1" 0068 001c | | .STRTAB 0x001c->0x0076 ; "BUTTON_2" 0069 0022 | " | .STRTAB 0x0022->0x007a ; "BUTTON_3" 006a 0028 | ( | .STRTAB 0x0028->0x007e ; "BUTTON_4" 006b 002e | . | .STRTAB 0x002e->0x0082 ; "BUTTON_5" 006c 0034 | 4 | .STREND 0x0034->0x0086 006d 414e 595f |ANY_| .STRTAB_STRINGS 0086 0000 0000 | | .XXX[0x2] 0088 ; -------------------------------------------------------------------------------------- 0088 ; Debug Table 0088 ; -------------------------------------------------------------------------------------- 0088 0004 0000 | | .DEBUG4 0x0004,0x0000,0x48b2,0x0000,0x0001,0x0002 008e 000b 0096 | | .DBG4T 0x000b,0x0096,0x8000,0x0000 0092 0043 0000 | C | .DBG4T 0x0043,0x0000,0x0005,0x0000 0096 ; -------------------------------------------------------------------------------------- 0096 ; Debug chain 0096 ; -------------------------------------------------------------------------------------- 0096 0009 0000 | | .DBGLEN 0x0009,0x0000 0098 000b 0011 | | .DBGLNO 0x000b,0x0011,0x0012,0x0018,0x001e,0x0024,0x0030,0x0031,0x003d 00a1 0000 0000 | | .BLANK 0000[0x15f]