|
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_057cea
└─⟦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 0108 | | .CONST 0x0108 ; 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 0016 | | .CONST 0x0016 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 029d 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call 0010 029d 008b | | Declare_Subprogram INIT_0088,For_Outer_Call 0012 029d 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call 0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0015 00c7 | | Action Elaborate_Subprogram 0016 BODY_0008: 0016 00bc | | Action Signal_Activated 0017 00bb | | Action Signal_Completion 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 003a | : | .CONST 0x003a ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0008 | | .CONST 0x0008 ; Number of locals 001b INIT_0018: 001b 4800 |H | Short_Literal 0x0 001c 4803 |H | Short_Literal 0x3 001d 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 001f 03fd | | Declare_Type Discrete,Defined 0020 e002 | | Load 0x0,0x2 0021 e003 | | Load 0x0,0x3 0022 00da | | Load_Top At_Offset_2 0023 e004 | | Load 0x0,0x4 0024 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 0025 0387 | | Declare_Variable Package 0026 00d8 | | Load_Top At_Offset_0 0027 020f | | Execute Module,Activate 0028 00d9 | | Load_Top At_Offset_1 0029 0007 | | Action Break_Optional 002a 00e3 | | Load_Encached Natural_Cache 002b 4801 |H | Short_Literal 0x1 002c 4803 |H | Short_Literal 0x3 002d 00e9 | | Load_Encached String_Cache 002e 035b | [ | Declare_Type Array,Constrained 002f 0337 | 7 | Declare_Variable Array 0030 4801 |H | Short_Literal 0x1 0031 4802 |H | Short_Literal 0x2 0032 00e9 | | Load_Encached String_Cache 0033 035b | [ | Declare_Type Array,Constrained 0034 0337 | 7 | Declare_Variable Array 0035 4801 |H | Short_Literal 0x1 0036 4805 |H | Short_Literal 0x5 0037 00e9 | | Load_Encached String_Cache 0038 035b | [ | Declare_Type Array,Constrained 0039 0337 | 7 | Declare_Variable Array 003a BODY_0018: 003a 00e4 | | Load_Encached Positive_Cache 003b e403 | | Load 0x2,0x3 003c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 003d e5ff | | Load 0x2,-0x1 003e e403 | | Load 0x2,0x3 003f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0040 c404 | | Store 0x2,0x4 0041 c405 | | Store 0x2,0x5 0042 e404 | | Load 0x2,0x4 0043 4603 |F | Jump_Case 0x4 0044 7814 |x | Jump 0x59 ; case 0x0 0045 7803 |x | Jump 0x49 ; case 0x1 0046 780a |x | Jump 0x51 ; case 0x2 0047 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3 0048 4502 |E | .XXX[0x1] 0049 820f | | Call 0x1,0xf 004a 00da | | Load_Top At_Offset_2 004b 01d4 | | Execute Vector,Structure_Write 004c 00d9 | | Load_Top At_Offset_1 004d e005 | | Load 0x0,0x5 004e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 004f a5fe | | Store_Unchecked 0x2,-0x2 0050 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0051 8210 | | Call 0x1,0x10 0052 00d9 | | Load_Top At_Offset_1 0053 01d4 | | Execute Vector,Structure_Write 0054 00d8 | | Load_Top At_Offset_0 0055 e005 | | Load 0x0,0x5 0056 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0057 a5fe | | Store_Unchecked 0x2,-0x2 0058 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0059 0092 00e2 | | Action Push_String_Extended,0xe2 ; "avant the_days = function" 005b e004 | | Load 0x0,0x4 005c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 005d 820e | | Call 0x1,0xe 005e 00db | | Load_Top At_Offset_3 005f 01d4 | | Execute Vector,Structure_Write 0060 0092 00e3 | | Action Push_String_Extended,0xe3 ; "run avant the_answer =" 0062 e004 | | Load 0x0,0x4 0063 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0064 00da | | Load_Top At_Offset_2 0065 e005 | | Load 0x0,0x5 0066 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0067 a5fe | | Store_Unchecked 0x2,-0x2 0068 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0069 0000 0000 | | .BLANK 0000[0x7] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0078 | x | .CONST 0x0078 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0002 | | .CONST 0x0002 ; Number of locals 0073 INIT_0070: 0073 e006 | | Load 0x0,0x6 0074 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0075 02c7 | | Declare_Variable Any 0076 00d8 | | Load_Top At_Offset_0 0077 1c00 | | Execute_Immediate Run_Utility,0x0 0078 BODY_0070: 0078 e006 | | Load 0x0,0x6 0079 1812 | | Execute Package,Field_Execute,Field_Number 0x12 007a c402 | | Store 0x2,0x2 007b 00d8 | | Load_Top At_Offset_0 007c e006 | | Load 0x0,0x6 007d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 007e 00e0 | | Load_Encached Standard_Cache 007f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0080 00ca | | Action Exit_Nullary_Function 0081 0000 0000 | | .BLANK 0000[0x7] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0090 | | .CONST 0x0090 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0002 | | .CONST 0x0002 ; Number of locals 008b INIT_0088: 008b e006 | | Load 0x0,0x6 008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008d 02c7 | | Declare_Variable Any 008e 00d8 | | Load_Top At_Offset_0 008f 1c00 | | Execute_Immediate Run_Utility,0x0 0090 BODY_0088: 0090 e006 | | Load 0x0,0x6 0091 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0092 c402 | | Store 0x2,0x2 0093 00d8 | | Load_Top At_Offset_0 0094 e006 | | Load 0x0,0x6 0095 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0096 00e0 | | Load_Encached Standard_Cache 0097 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0098 00ca | | Action Exit_Nullary_Function 0099 0000 0000 | | .BLANK 0000[0x7] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a8 | | .CONST 0x00a8 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 e006 | | Load 0x0,0x6 00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a5 02c7 | | Declare_Variable Any 00a6 00d8 | | Load_Top At_Offset_0 00a7 1c00 | | Execute_Immediate Run_Utility,0x0 00a8 BODY_00a0: 00a8 e006 | | Load 0x0,0x6 00a9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00aa c402 | | Store 0x2,0x2 00ab 00d8 | | Load_Top At_Offset_0 00ac e006 | | Load 0x0,0x6 00ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ae 00e0 | | Load_Encached Standard_Cache 00af 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00b0 00ca | | Action Exit_Nullary_Function 00b1 0000 0000 | | .BLANK 0000[0x7] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 4607 |F | Jump_Case 0x8 00bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00bd 7807 |x | Jump 0xc5 ; case 0x1 00be 780a |x | Jump 0xc9 ; case 0x2 00bf 780e |x | Jump 0xce ; case 0x3 00c0 7811 |x | Jump 0xd2 ; case 0x4 00c1 7812 |x | Jump 0xd4 ; case 0x5 00c2 7813 |x | Jump 0xd6 ; case 0x6 00c3 7816 |x | Jump 0xda ; case 0x7 00c4 4302 |C | .XXX[0x1] 00c5 00da | | Load_Top At_Offset_2 00c6 0091 00de | | Action Push_String_Extended_Indexed,0xde ; "DAYS" 00c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00c9 00db | | Load_Top At_Offset_3 00ca 00db | | Load_Top At_Offset_3 00cb 00e0 | | Load_Encached Standard_Cache 00cc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ce 00da | | Load_Top At_Offset_2 00cf 00e0 | | Load_Encached Standard_Cache 00d0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00d1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d2 00db | | Load_Top At_Offset_3 00d3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d4 00db | | Load_Top At_Offset_3 00d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d6 e402 | | Load 0x2,0x2 00d7 00dc | | Load_Top At_Offset_4 00d8 0267 | g | Execute Discrete,Predecessor 00d9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00da e402 | | Load 0x2,0x2 00db 00dc | | Load_Top At_Offset_4 00dc 0268 | h | Execute Discrete,Successor 00dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00de ; -------------------------------------------------------------------------------------- 00de ; STRING TABLE 00de ; -------------------------------------------------------------------------------------- 00de 000e | | .STRTAB 0x000e->0x00e5 ; "DAYS" 00df 0010 | | .STRTAB 0x0010->0x00e7 ; "MONT" 00e0 0012 | | .STRTAB 0x0012->0x00e9 ; "YEAR" 00e1 0014 | | .STRTAB 0x0014->0x00eb ; "NONE" 00e2 0016 | | .STRTAB 0x0016->0x00ed ; "avant the_days = function" 00e3 002d | - | .STRTAB 0x002d->0x00f9 ; "run avant the_answer =" 00e4 0041 | A | .STREND 0x0041->0x0104 00e5 4441 5953 |DAYS| .STRTAB_STRINGS 0105 0000 0000 | | .XXX[0x3] 0107 0000 | | 0108 ; -------------------------------------------------------------------------------------- 0108 ; Debug Table 0108 ; -------------------------------------------------------------------------------------- 0108 0004 000a | | .DEBUG4 0x0004,0x000a,0x6401,0x0000,0x0001,0x0007 010e 000b 012a | *| .DBG4T 0x000b,0x012a,0x8000,0x0000 0112 000e 012d | -| .DBG4T 0x000e,0x012d,0x8000,0x0000 0116 001b 0133 | 3| .DBG4T 0x001b,0x0133,0x0001,0x4000 011a 0073 0150 | s P| .DBG4T 0x0073,0x0150,0x0002,0x0000 011e 008b 0155 | U| .DBG4T 0x008b,0x0155,0x0002,0x0000 0122 00a3 015a | Z| .DBG4T 0x00a3,0x015a,0x0002,0x0000 0126 00bb 0000 | | .DBG4T 0x00bb,0x0000,0x0005,0x0000 012a ; -------------------------------------------------------------------------------------- 012a ; Debug chain 012a ; -------------------------------------------------------------------------------------- 012a 0001 0000 | | .DBGLEN 0x0001,0x0000 012c 000b | | .DBGLNO 0x000b 012d ; -------------------------------------------------------------------------------------- 012d ; Debug chain 012d ; -------------------------------------------------------------------------------------- 012d 0004 0000 | | .DBGLEN 0x0004,0x0000 012f 000e 0010 | | .DBGLNO 0x000e,0x0010,0x0012,0x0014 0133 ; -------------------------------------------------------------------------------------- 0133 ; Debug chain 0133 ; -------------------------------------------------------------------------------------- 0133 0007 000a | | .DBGLEN 0x0007,0x000a 0135 001b 0020 | | .DBGLNO 0x001b,0x0020,0x0028,0x002a,0x002b,0x0030,0x0035,0x003a,0x0042,0x0049,0x004c,0x0051,0x0054,0x0059,0x005d,0x0060,0x0064 0146 0001 0002 | | .XXX[0xa] 0148 0007 0008 | | 014a 0009 000a | | 014c 0003 0004 | | 014e 0005 0006 | | 0150 ; -------------------------------------------------------------------------------------- 0150 ; Debug chain 0150 ; -------------------------------------------------------------------------------------- 0150 0001 0002 | | .DBGLEN 0x0001,0x0002 0152 0073 0078 | s x| .DBGLNO 0x0073,0x0078,0x007b 0155 ; -------------------------------------------------------------------------------------- 0155 ; Debug chain 0155 ; -------------------------------------------------------------------------------------- 0155 0001 0002 | | .DBGLEN 0x0001,0x0002 0157 008b 0090 | | .DBGLNO 0x008b,0x0090,0x0093 015a ; -------------------------------------------------------------------------------------- 015a ; Debug chain 015a ; -------------------------------------------------------------------------------------- 015a 0001 0002 | | .DBGLEN 0x0001,0x0002 015c 00a3 00a8 | | .DBGLNO 0x00a3,0x00a8,0x00ab 015f 0000 0000 | | .BLANK 0000[0xa1]