|
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_6f70cf
└─⟦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 0158 | X | .CONST 0x0158 ; 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 0014 | | .CONST 0x0014 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0011 00c7 | | Action Elaborate_Subprogram 0012 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0013 00c7 | | Action Elaborate_Subprogram 0014 BODY_0008: 0014 00bc | | Action Signal_Activated 0015 00bb | | Action Signal_Completion 0016 0000 0000 | | .XXX[0x2] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 001b | | .CONST 0x001b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0001 | | .CONST 0x0001 ; Number of locals 001b BODY_0018: 001b INIT_0018: 001b 4801 |H | Short_Literal 0x1 001c 4804 |H | Short_Literal 0x4 001d e003 | | Load 0x0,0x3 001e 035b | [ | Declare_Type Array,Constrained 001f 0337 | 7 | Declare_Variable Array 0020 e004 | | Load 0x0,0x4 0021 0337 | 7 | Declare_Variable Array 0022 e005 | | Load 0x0,0x5 0023 8006 | | Call 0x0,0x6 0024 4800 |H | Short_Literal 0x0 0025 00da | | Load_Top At_Offset_2 0026 01d6 | | Execute Vector,Field_Write 0027 e004 | | Load 0x0,0x4 0028 01c3 | | Execute Vector,Check_In_Type 0029 8007 | | Call 0x0,0x7 002a 4801 |H | Short_Literal 0x1 002b 00da | | Load_Top At_Offset_2 002c 01d6 | | Execute Vector,Field_Write 002d e008 | | Load 0x0,0x8 002e 0337 | 7 | Declare_Variable Array 002f e017 | | Load 0x0,0x17 0030 8006 | | Call 0x0,0x6 0031 4800 |H | Short_Literal 0x0 0032 00da | | Load_Top At_Offset_2 0033 01d6 | | Execute Vector,Field_Write 0034 e008 | | Load 0x0,0x8 0035 01c3 | | Execute Vector,Check_In_Type 0036 8023 | # | Call 0x0,0x23 0037 4802 |H | Short_Literal 0x2 0038 00da | | Load_Top At_Offset_2 0039 01d6 | | Execute Vector,Field_Write 003a e00b | | Load 0x0,0xb 003b 0337 | 7 | Declare_Variable Array 003c 8009 | | Call 0x0,0x9 003d 4800 |H | Short_Literal 0x0 003e 00da | | Load_Top At_Offset_2 003f 01d6 | | Execute Vector,Field_Write 0040 e00b | | Load 0x0,0xb 0041 01c3 | | Execute Vector,Check_In_Type 0042 800c | | Call 0x0,0xc 0043 4803 |H | Short_Literal 0x3 0044 00da | | Load_Top At_Offset_2 0045 01d6 | | Execute Vector,Field_Write 0046 e00d | | Load 0x0,0xd 0047 0337 | 7 | Declare_Variable Array 0048 8009 | | Call 0x0,0x9 0049 4800 |H | Short_Literal 0x0 004a 00da | | Load_Top At_Offset_2 004b 01d6 | | Execute Vector,Field_Write 004c e00d | | Load 0x0,0xd 004d 01c3 | | Execute Vector,Check_In_Type 004e 800e | | Call 0x0,0xe 004f 4804 |H | Short_Literal 0x4 0050 00da | | Load_Top At_Offset_2 0051 01d6 | | Execute Vector,Field_Write 0052 e003 | | Load 0x0,0x3 0053 01c6 | | Execute Vector,Convert_To_Formal 0054 00ca | | Action Exit_Nullary_Function 0055 0000 0000 | | .XXX[0x3] 0057 0000 | | 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 007e | ~ | .CONST 0x007e ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 000a | | .CONST 0x000a ; Number of locals 005b INIT_0058: 005b 4801 |H | Short_Literal 0x1 005c 00db | | Load_Top At_Offset_3 005d 01d5 | | Execute Vector,Field_Reference 005e 0007 | | Action Break_Optional 005f 4802 |H | Short_Literal 0x2 0060 e5ff | | Load 0x2,-0x1 0061 01d5 | | Execute Vector,Field_Reference 0062 0007 | | Action Break_Optional 0063 4803 |H | Short_Literal 0x3 0064 e5ff | | Load 0x2,-0x1 0065 01d5 | | Execute Vector,Field_Reference 0066 0007 | | Action Break_Optional 0067 4804 |H | Short_Literal 0x4 0068 e5ff | | Load 0x2,-0x1 0069 01d5 | | Execute Vector,Field_Reference 006a 0007 | | Action Break_Optional 006b e00f | | Load 0x0,0xf 006c 02ff | | Declare_Variable Variant_Record 006d 4800 |H | Short_Literal 0x0 006e 00da | | Load_Top At_Offset_2 006f 8010 | | Call 0x0,0x10 0070 00d9 | | Load_Top At_Offset_1 0071 016d | m | Execute Variant_Record,Structure_Write 0072 e00f | | Load 0x0,0xf 0073 02ff | | Declare_Variable Variant_Record 0074 00d8 | | Load_Top At_Offset_0 0075 1c00 | | Execute_Immediate Run_Utility,0x0 0076 e00f | | Load 0x0,0xf 0077 02ff | | Declare_Variable Variant_Record 0078 00d8 | | Load_Top At_Offset_0 0079 1c00 | | Execute_Immediate Run_Utility,0x0 007a 00e2 | | Load_Encached Integer_Cache 007b e011 | | Load 0x0,0x11 007c 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 007d 0322 | " | Declare_Variable Record 007e BODY_0058: 007e e012 | | Load 0x0,0x12 007f 8013 | | Call 0x0,0x13 0080 e012 | | Load 0x0,0x12 0081 0092 0100 | | Action Push_String_Extended,0x100 ; "********************************************************" 0083 8014 | | Call 0x0,0x14 0084 e012 | | Load 0x0,0x12 0085 0092 0101 | | Action Push_String_Extended,0x101 ; " quadrant G : UPDATE RULE " 0087 8014 | | Call 0x0,0x14 0088 e012 | | Load 0x0,0x12 0089 0092 0100 | | Action Push_String_Extended,0x100 ; "********************************************************" 008b 8014 | | Call 0x0,0x14 008c e015 | | Load 0x0,0x15 008d 4800 |H | Short_Literal 0x0 008e e402 | | Load 0x2,0x2 008f 8016 | | Call 0x0,0x16 0090 e017 | | Load 0x0,0x17 0091 e018 | | Load 0x0,0x18 0092 8019 | | Call 0x0,0x19 0093 e406 | | Load 0x2,0x6 0094 e018 | | Load 0x0,0x18 0095 801a | | Call 0x0,0x1a 0096 e01b | | Load 0x0,0x1b 0097 801c | | Call 0x0,0x1c 0098 00db | | Load_Top At_Offset_3 0099 016d | m | Execute Variant_Record,Structure_Write 009a 00da | | Load_Top At_Offset_2 009b e406 | | Load 0x2,0x6 009c 801d | | Call 0x0,0x1d 009d e407 | | Load 0x2,0x7 009e 016d | m | Execute Variant_Record,Structure_Write 009f e012 | | Load 0x0,0x12 00a0 0092 0102 | | Action Push_String_Extended,0x102 ; "The current position is :" 00a2 801e | | Call 0x0,0x1e 00a3 e012 | | Load 0x0,0x12 00a4 e406 | | Load 0x2,0x6 00a5 801f | | Call 0x0,0x1f 00a6 00e0 | | Load_Encached Standard_Cache 00a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00a8 8014 | | Call 0x0,0x14 00a9 e012 | | Load 0x0,0x12 00aa 0092 0103 | | Action Push_String_Extended,0x103 ; "The up commande is : " 00ac 801e | | Call 0x0,0x1e 00ad e012 | | Load 0x0,0x12 00ae e017 | | Load 0x0,0x17 00af 801f | | Call 0x0,0x1f 00b0 00e0 | | Load_Encached Standard_Cache 00b1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00b2 8014 | | Call 0x0,0x14 00b3 e012 | | Load 0x0,0x12 00b4 0092 0104 | | Action Push_String_Extended,0x104 ; "The delta y val is :" 00b6 801e | | Call 0x0,0x1e 00b7 e012 | | Load 0x0,0x12 00b8 e407 | | Load 0x2,0x7 00b9 801f | | Call 0x0,0x1f 00ba 00e0 | | Load_Encached Standard_Cache 00bb 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00bc 8014 | | Call 0x0,0x14 00bd e012 | | Load 0x0,0x12 00be 8013 | | Call 0x0,0x13 00bf e020 | | Load 0x0,0x20 00c0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00c1 e020 | | Load 0x0,0x20 00c2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00c3 e011 | | Load 0x0,0x11 00c4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00c5 00d9 | | Load_Top At_Offset_1 00c6 017d | } | Execute Record,Structure_Write 00c7 00d8 | | Load_Top At_Offset_0 00c8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c9 6032 |`2 | Indirect_Literal Discrete,0xfc,{0x00000000, 0x0000ea60} 00ca 0271 | q | Execute Discrete,Times 00cb 005a | Z | Store_Top Discrete,At_Offset_2 00cc 00d9 | | Load_Top At_Offset_1 00cd 00d9 | | Load_Top At_Offset_1 00ce 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00cf 4be8 |K | Short_Literal 0x3e8 00d0 0271 | q | Execute Discrete,Times 00d1 0273 | s | Execute Discrete,Plus 00d2 005a | Z | Store_Top Discrete,At_Offset_2 00d3 00d9 | | Load_Top At_Offset_1 00d4 00d9 | | Load_Top At_Offset_1 00d5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00d6 0273 | s | Execute Discrete,Plus 00d7 005a | Z | Store_Top Discrete,At_Offset_2 00d8 e021 | ! | Load 0x0,0x21 00d9 00da | | Load_Top At_Offset_2 00da 00e0 | | Load_Encached Standard_Cache 00db 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00dc 0092 0105 | | Action Push_String_Extended,0x105 ; " " 00de 01cc | | Execute Vector,Catenate 00df e406 | | Load 0x2,0x6 00e0 801f | | Call 0x0,0x1f 00e1 00e0 | | Load_Encached Standard_Cache 00e2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00e3 01cc | | Execute Vector,Catenate 00e4 0092 0105 | | Action Push_String_Extended,0x105 ; " " 00e6 01cc | | Execute Vector,Catenate 00e7 e017 | | Load 0x0,0x17 00e8 801f | | Call 0x0,0x1f 00e9 00e0 | | Load_Encached Standard_Cache 00ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00eb 01cc | | Execute Vector,Catenate 00ec 0092 0105 | | Action Push_String_Extended,0x105 ; " " 00ee 01cc | | Execute Vector,Catenate 00ef e407 | | Load 0x2,0x7 00f0 801f | | Call 0x0,0x1f 00f1 00e0 | | Load_Encached Standard_Cache 00f2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00f3 01cc | | Execute Vector,Catenate 00f4 8022 | " | Call 0x0,0x22 00f5 00d1 | | Pop_Control Pop_Count_1 00f6 e403 | | Load 0x2,0x3 00f7 8024 | $ | Call 0x0,0x24 00f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f9 0000 0000 | | .XXX[0x3] 00fb 0000 | | 00fc 0000 0000 | | .LITERAL {0x00000000, 0x0000ea60} 0100 ; -------------------------------------------------------------------------------------- 0100 ; STRING TABLE 0100 ; -------------------------------------------------------------------------------------- 0100 000e | | .STRTAB 0x000e->0x0107 ; "********************************************************" 0101 0044 | D | .STRTAB 0x0044->0x0123 ; " quadrant G : UPDATE RULE " 0102 0061 | a | .STRTAB 0x0061->0x0132 ; "The current position is :" 0103 0078 | x | .STRTAB 0x0078->0x013f ; "The up commande is : " 0104 008b | | .STRTAB 0x008b->0x0149 ; "The delta y val is :" 0105 009d | | .STRTAB 0x009d->0x0153 ; " " 0106 009c | | .STREND 0x009c->0x0154 0107 2a2a 2a2a |****| .STRTAB_STRINGS 0154 0000 0000 | | .BLANK 0000[0x4] 0158 ; -------------------------------------------------------------------------------------- 0158 ; Debug Table 0158 ; -------------------------------------------------------------------------------------- 0158 0004 0009 | | .DEBUG4 0x0004,0x0009,0x4a72,0x0000,0x0001,0x0004 015e 000b 016e | n| .DBG4T 0x000b,0x016e,0x0000,0x0000 0162 0010 0172 | r| .DBG4T 0x0010,0x0172,0x0000,0x0000 0166 001b 0176 | v| .DBG4T 0x001b,0x0176,0x0002,0x0000 016a 005b 0179 | [ y| .DBG4T 0x005b,0x0179,0x0001,0x0000 016e ; -------------------------------------------------------------------------------------- 016e ; Debug chain 016e ; -------------------------------------------------------------------------------------- 016e 0002 0000 | | .DBGLEN 0x0002,0x0000 0170 000b 000d | | .DBGLNO 0x000b,0x000d 0172 ; -------------------------------------------------------------------------------------- 0172 ; Debug chain 0172 ; -------------------------------------------------------------------------------------- 0172 0002 0000 | | .DBGLEN 0x0002,0x0000 0174 0010 0012 | | .DBGLNO 0x0010,0x0012 0176 ; -------------------------------------------------------------------------------------- 0176 ; Debug chain 0176 ; -------------------------------------------------------------------------------------- 0176 0000 0001 | | .DBGLEN 0x0000,0x0001 0178 001b | | .DBGLNO 0x001b 0179 ; -------------------------------------------------------------------------------------- 0179 ; Debug chain 0179 ; -------------------------------------------------------------------------------------- 0179 0009 0016 | | .DBGLEN 0x0009,0x0016 017b 005b 005f | [ _| .DBGLNO 0x005b,0x005f,0x0063,0x0067,0x006b,0x0072,0x0076,0x007a,0x007b,0x007e,0x0080,0x0084,0x0088,0x008c,0x0090,0x0093,0x0096,0x009a,0x009f,0x00a3,0x00a9,0x00ad,0x00b3,0x00b7,0x00bd,0x00bf,0x00c7,0x00cc,0x00d3,0x00d8,0x00f6 019a 0000 0000 | | .BLANK 0000[0x66]