|
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_276cf1
└─⟦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 0160 | ` | .CONST 0x0160 ; 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 005f | _ | .CONST 0x005f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001a | | .CONST 0x001a ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4802 |H | Short_Literal 0x2 000d 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 4800 |H | Short_Literal 0x0 0011 4801 |H | Short_Literal 0x1 0012 029f 009b | | Declare_Subprogram INIT_0098,For_Call 0014 03fe | | Declare_Type Discrete,Defined,Visible 0015 0093 0000 | | push_full_address 0x0 0017 607c |`| | Indirect_Literal Discrete,0x94,{0x80000000, 0x00020000} 0018 0273 | s | Execute Discrete,Plus 0019 e002 | | Load 0x0,0x2 001a 0273 | s | Execute Discrete,Plus 001b e003 | | Load 0x0,0x3 001c 0273 | s | Execute Discrete,Plus 001d 00da | | Load_Top At_Offset_2 001e e004 | | Load 0x0,0x4 001f 0386 | | Declare_Variable Package,Visible 0020 00d8 | | Load_Top At_Offset_0 0021 020f | | Execute Module,Activate 0022 0093 0000 | | push_full_address 0x0 0024 606b |`k | Indirect_Literal Discrete,0x90,{0x80000000, 0x00010000} 0025 0273 | s | Execute Discrete,Plus 0026 e002 | | Load 0x0,0x2 0027 0273 | s | Execute Discrete,Plus 0028 e005 | | Load 0x0,0x5 0029 0273 | s | Execute Discrete,Plus 002a 00da | | Load_Top At_Offset_2 002b e004 | | Load 0x0,0x4 002c 0386 | | Declare_Variable Package,Visible 002d 00d8 | | Load_Top At_Offset_0 002e 020f | | Execute Module,Activate 002f 4800 |H | Short_Literal 0x0 0030 e006 | | Load 0x0,0x6 0031 00db | | Load_Top At_Offset_3 0032 0096 | | Execute Package,Entry 0033 0129 | ) | Execute Any,Make_Visible 0034 4801 |H | Short_Literal 0x1 0035 e006 | | Load 0x0,0x6 0036 e20f | | Load 0x1,0xf 0037 0096 | | Execute Package,Entry 0038 0129 | ) | Execute Any,Make_Visible 0039 4802 |H | Short_Literal 0x2 003a e006 | | Load 0x0,0x6 003b e20f | | Load 0x1,0xf 003c 0096 | | Execute Package,Entry 003d 0129 | ) | Execute Any,Make_Visible 003e 4800 |H | Short_Literal 0x0 003f e006 | | Load 0x0,0x6 0040 e210 | | Load 0x1,0x10 0041 0096 | | Execute Package,Entry 0042 0129 | ) | Execute Any,Make_Visible 0043 4801 |H | Short_Literal 0x1 0044 e006 | | Load 0x0,0x6 0045 e210 | | Load 0x1,0x10 0046 0096 | | Execute Package,Entry 0047 0129 | ) | Execute Any,Make_Visible 0048 4800 |H | Short_Literal 0x0 0049 4802 |H | Short_Literal 0x2 004a 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 004c 03fe | | Declare_Type Discrete,Defined,Visible 004d 4800 |H | Short_Literal 0x0 004e 4801 |H | Short_Literal 0x1 004f 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 0051 03fe | | Declare_Type Discrete,Defined,Visible 0052 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0054 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0056 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0058 00bf | | Action Accept_Activation 0059 1d18 | | Execute_Immediate Reference_Lex_1,0x18 005a 00c7 | | Action Elaborate_Subprogram 005b 1d19 | | Execute_Immediate Reference_Lex_1,0x19 005c 00c7 | | Action Elaborate_Subprogram 005d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 005e 00c7 | | Action Elaborate_Subprogram 005f BODY_0008: 005f 00bc | | Action Signal_Activated 0060 00bb | | Action Signal_Completion 0061 0000 0000 | | .BLANK 0000[0x7] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 4607 |F | Jump_Case 0x8 006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 006d 7807 |x | Jump 0x75 ; case 0x1 006e 780a |x | Jump 0x79 ; case 0x2 006f 780e |x | Jump 0x7e ; case 0x3 0070 7811 |x | Jump 0x82 ; case 0x4 0071 7812 |x | Jump 0x84 ; case 0x5 0072 7813 |x | Jump 0x86 ; case 0x6 0073 7816 |x | Jump 0x8a ; case 0x7 0074 4302 |C | .XXX[0x1] 0075 00da | | Load_Top At_Offset_2 0076 0091 0130 | 0| Action Push_String_Extended_Indexed,0x130 ; "ON_HEAP" 0078 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0079 00db | | Load_Top At_Offset_3 007a 00db | | Load_Top At_Offset_3 007b 00e0 | | Load_Encached Standard_Cache 007c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007e 00da | | Load_Top At_Offset_2 007f 00e0 | | Load_Encached Standard_Cache 0080 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0081 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0082 00db | | Load_Top At_Offset_3 0083 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0084 00db | | Load_Top At_Offset_3 0085 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0086 e20d | | Load 0x1,0xd 0087 00dc | | Load_Top At_Offset_4 0088 0267 | g | Execute Discrete,Predecessor 0089 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008a e20d | | Load 0x1,0xd 008b 00dc | | Load_Top At_Offset_4 008c 0268 | h | Execute Discrete,Successor 008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008e 0000 0000 | | .XXX[0x2] 0090 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0094 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 4607 |F | Jump_Case 0x8 009c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 009d 7807 |x | Jump 0xa5 ; case 0x1 009e 780a |x | Jump 0xa9 ; case 0x2 009f 780e |x | Jump 0xae ; case 0x3 00a0 7811 |x | Jump 0xb2 ; case 0x4 00a1 7812 |x | Jump 0xb4 ; case 0x5 00a2 7813 |x | Jump 0xb6 ; case 0x6 00a3 7816 |x | Jump 0xba ; case 0x7 00a4 4302 |C | .XXX[0x1] 00a5 00da | | Load_Top At_Offset_2 00a6 0091 0133 | 3| Action Push_String_Extended_Indexed,0x133 ; "TAKING" 00a8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00a9 00db | | Load_Top At_Offset_3 00aa 00db | | Load_Top At_Offset_3 00ab 00e0 | | Load_Encached Standard_Cache 00ac 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ae 00da | | Load_Top At_Offset_2 00af 00e0 | | Load_Encached Standard_Cache 00b0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00b1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00b2 00db | | Load_Top At_Offset_3 00b3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b4 00db | | Load_Top At_Offset_3 00b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b6 e20e | | Load 0x1,0xe 00b7 00dc | | Load_Top At_Offset_4 00b8 0267 | g | Execute Discrete,Predecessor 00b9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ba e20e | | Load 0x1,0xe 00bb 00dc | | Load_Top At_Offset_4 00bc 0268 | h | Execute Discrete,Successor 00bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00be 0000 0000 | | .XXX[0x2] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 4607 |F | Jump_Case 0x8 00c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00c5 7807 |x | Jump 0xcd ; case 0x1 00c6 780a |x | Jump 0xd1 ; case 0x2 00c7 780e |x | Jump 0xd6 ; case 0x3 00c8 7811 |x | Jump 0xda ; case 0x4 00c9 7812 |x | Jump 0xdc ; case 0x5 00ca 7813 |x | Jump 0xde ; case 0x6 00cb 7816 |x | Jump 0xe2 ; case 0x7 00cc 4302 |C | .XXX[0x1] 00cd 00da | | Load_Top At_Offset_2 00ce 0091 0135 | 5| Action Push_String_Extended_Indexed,0x135 ; "NAME" 00d0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d1 00db | | Load_Top At_Offset_3 00d2 00db | | Load_Top At_Offset_3 00d3 00e0 | | Load_Encached Standard_Cache 00d4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d6 00da | | Load_Top At_Offset_2 00d7 00e0 | | Load_Encached Standard_Cache 00d8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00d9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00da 00db | | Load_Top At_Offset_3 00db 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00dc 00db | | Load_Top At_Offset_3 00dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00de e216 | | Load 0x1,0x16 00df 00dc | | Load_Top At_Offset_4 00e0 0267 | g | Execute Discrete,Predecessor 00e1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e2 e216 | | Load 0x1,0x16 00e3 00dc | | Load_Top At_Offset_4 00e4 0268 | h | Execute Discrete,Successor 00e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e6 0000 0000 | | .XXX[0x2] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 4607 |F | Jump_Case 0x8 00ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00ed 7807 |x | Jump 0xf5 ; case 0x1 00ee 780a |x | Jump 0xf9 ; case 0x2 00ef 780e |x | Jump 0xfe ; case 0x3 00f0 7811 |x | Jump 0x102 ; case 0x4 00f1 7812 |x | Jump 0x104 ; case 0x5 00f2 7813 |x | Jump 0x106 ; case 0x6 00f3 7816 |x | Jump 0x10a ; case 0x7 00f4 4302 |C | .XXX[0x1] 00f5 00da | | Load_Top At_Offset_2 00f6 0091 0138 | 8| Action Push_String_Extended_Indexed,0x138 ; "ACTION" 00f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f9 00db | | Load_Top At_Offset_3 00fa 00db | | Load_Top At_Offset_3 00fb 00e0 | | Load_Encached Standard_Cache 00fc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fe 00da | | Load_Top At_Offset_2 00ff 00e0 | | Load_Encached Standard_Cache 0100 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0101 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0102 00db | | Load_Top At_Offset_3 0103 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0104 00db | | Load_Top At_Offset_3 0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0106 e217 | | Load 0x1,0x17 0107 00dc | | Load_Top At_Offset_4 0108 0267 | g | Execute Discrete,Predecessor 0109 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010a e217 | | Load 0x1,0x17 010b 00dc | | Load_Top At_Offset_4 010c 0268 | h | Execute Discrete,Successor 010d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010e 0000 0000 | | .XXX[0x2] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0114 0000 0000 | | .BLANK 0000[0x4] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011d | | .CONST 0x011d ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b e007 | | Load 0x0,0x7 011c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 011d BODY_0118: 011d 0092 013a | :| Action Push_String_Extended,0x13a ; "put" 011f e008 | | Load 0x0,0x8 0120 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0121 00d8 | | Load_Top At_Offset_0 0122 e007 | | Load 0x0,0x7 0123 011c | | Execute Any,Convert_Unchecked 0124 1c01 | | Execute_Immediate Run_Utility,0x1 0125 e008 | | Load 0x0,0x8 0126 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0127 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 0092 013b | ;| Action Push_String_Extended,0x13b ; "bidon" 012d e008 | | Load 0x0,0x8 012e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 012f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0130 ; -------------------------------------------------------------------------------------- 0130 ; STRING TABLE 0130 ; -------------------------------------------------------------------------------------- 0130 001a | | .STRTAB 0x001a->0x013d ; "ON_HEAP" 0131 001f | | .STRTAB 0x001f->0x0140 ; "IN_BOX" 0132 0023 | # | .STRTAB 0x0023->0x0143 ; "IN_PLIERS" 0133 002a | * | .STRTAB 0x002a->0x0148 ; "TAKING" 0134 002e | . | .STRTAB 0x002e->0x014b ; "DROPPING" 0135 0034 | 4 | .STRTAB 0x0034->0x014f ; "NAME" 0136 0036 | 6 | .STRTAB 0x0036->0x0151 ; "SIZE" 0137 0038 | 8 | .STRTAB 0x0038->0x0153 ; "PLACE" 0138 003b | ; | .STRTAB 0x003b->0x0155 ; "ACTION" 0139 003f | ? | .STRTAB 0x003f->0x0158 ; "BOX" 013a 0040 | @ | .STRTAB 0x0040->0x015a ; "put" 013b 0041 | A | .STRTAB 0x0041->0x015b ; "bidon" 013c 0044 | D | .STREND 0x0044->0x015e 013d 4f4e 5f48 |ON_H| .STRTAB_STRINGS 015e 0000 0000 | | .XXX[0x2] 0160 ; -------------------------------------------------------------------------------------- 0160 ; Debug Table 0160 ; -------------------------------------------------------------------------------------- 0160 0004 0008 | | .DEBUG4 0x0004,0x0008,0xf339,0x0000,0x0001,0x0009 0166 000b 018a | | .DBG4T 0x000b,0x018a,0x8000,0x0000 016a 0059 019a | Y | .DBG4T 0x0059,0x019a,0x8000,0x0000 016e 006b 0000 | k | .DBG4T 0x006b,0x0000,0x0005,0x0000 0172 009b 0000 | | .DBG4T 0x009b,0x0000,0x0005,0x0000 0176 00c3 0000 | | .DBG4T 0x00c3,0x0000,0x0005,0x0000 017a 00eb 0000 | | .DBG4T 0x00eb,0x0000,0x0005,0x0000 017e 0113 019f | | .DBG4T 0x0113,0x019f,0x0001,0x0000 0182 011b 01a2 | | .DBG4T 0x011b,0x01a2,0x0001,0x0000 0186 012b 01a7 | + | .DBG4T 0x012b,0x01a7,0x0001,0x0000 018a ; -------------------------------------------------------------------------------------- 018a ; Debug chain 018a ; -------------------------------------------------------------------------------------- 018a 000e 0000 | | .DBGLEN 0x000e,0x0000 018c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x0022,0x002f,0x0034,0x0039,0x003e,0x0043,0x0048,0x004d,0x0052,0x0054,0x0056 019a ; -------------------------------------------------------------------------------------- 019a ; Debug chain 019a ; -------------------------------------------------------------------------------------- 019a 0003 0000 | | .DBGLEN 0x0003,0x0000 019c 0059 005b | Y [| .DBGLNO 0x0059,0x005b,0x005d 019f ; -------------------------------------------------------------------------------------- 019f ; Debug chain 019f ; -------------------------------------------------------------------------------------- 019f 0000 0001 | | .DBGLEN 0x0000,0x0001 01a1 0113 | | .DBGLNO 0x0113 01a2 ; -------------------------------------------------------------------------------------- 01a2 ; Debug chain 01a2 ; -------------------------------------------------------------------------------------- 01a2 0001 0002 | | .DBGLEN 0x0001,0x0002 01a4 011b 011d | | .DBGLNO 0x011b,0x011d,0x0121 01a7 ; -------------------------------------------------------------------------------------- 01a7 ; Debug chain 01a7 ; -------------------------------------------------------------------------------------- 01a7 0000 0001 | | .DBGLEN 0x0000,0x0001 01a9 012b | + | .DBGLNO 0x012b 01aa 0000 0000 | | .BLANK 0000[0x56]