|
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_0340e4
└─⟦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 0017 | | .CONST 0x0017 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0011 c20f | | Store 0x1,0xf 0012 00bf | | Action Accept_Activation 0013 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0014 00c7 | | Action Elaborate_Subprogram 0015 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0016 00c7 | | Action Elaborate_Subprogram 0017 BODY_0008: 0017 00bc | | Action Signal_Activated 0018 00bb | | Action Signal_Completion 0019 0000 0000 | | .BLANK 0000[0x7] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 005c | \ | .CONST 0x005c ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0014 | | .CONST 0x0014 ; Number of locals 0023 INIT_0020: 0023 e001 | | Load 0x0,0x1 0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0025 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0026 02c7 | | Declare_Variable Any 0027 4801 |H | Short_Literal 0x1 0028 e001 | | Load 0x0,0x1 0029 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 002b e5ff | | Load 0x2,-0x1 002c e001 | | Load 0x0,0x1 002d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 002f a402 | | Store_Unchecked 0x2,0x2 0030 4800 |H | Short_Literal 0x0 0031 4800 |H | Short_Literal 0x0 0032 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0034 03fd | | Declare_Type Discrete,Defined 0035 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0037 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 0039 029f 010b | | Declare_Subprogram INIT_0108,For_Call 003b 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 003d 029f 011b | | Declare_Subprogram INIT_0118,For_Call 003f 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call 0041 a002 | | Store_Unchecked 0x0,0x2 0042 00c6 | | Action Check_Subprogram_Elaborated 0043 4805 |H | Short_Literal 0x5 0044 4802 |H | Short_Literal 0x2 0045 0099 | | Action Reference_Dynamic 0046 4806 |H | Short_Literal 0x6 0047 4802 |H | Short_Literal 0x2 0048 0099 | | Action Reference_Dynamic 0049 e403 | | Load 0x2,0x3 004a 4804 |H | Short_Literal 0x4 004b 4802 |H | Short_Literal 0x2 004c 0099 | | Action Reference_Dynamic 004d 4807 |H | Short_Literal 0x7 004e 4802 |H | Short_Literal 0x2 004f 0099 | | Action Reference_Dynamic 0050 4808 |H | Short_Literal 0x8 0051 4802 |H | Short_Literal 0x2 0052 0099 | | Action Reference_Dynamic 0053 4809 |H | Short_Literal 0x9 0054 4802 |H | Short_Literal 0x2 0055 0099 | | Action Reference_Dynamic 0056 0092 012d | -| Action Push_String_Extended,0x12d ; "[STRING-expression]" 0058 e003 | | Load 0x0,0x3 0059 e004 | | Load 0x0,0x4 005a 4814 |H | Short_Literal 0x14 005b 0007 | | Action Break_Optional 005c BODY_0020: 005c e402 | | Load 0x2,0x2 005d e001 | | Load 0x0,0x1 005e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005f 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0060 680a |h | Jump_Zero 0x6b 0061 e005 | | Load 0x0,0x5 0062 180e | | Execute Package,Field_Execute,Field_Number 0xe 0063 4807 |H | Short_Literal 0x7 0064 e5ff | | Load 0x2,-0x1 0065 0092 012e | .| Action Push_String_Extended,0x12e ; " is not a valid pathname" 0067 01cc | | Execute Vector,Catenate 0068 e006 | | Load 0x0,0x6 0069 1813 | | Execute Package,Field_Execute,Field_Number 0x13 006a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 006b e5fd | | Load 0x2,-0x3 006c e402 | | Load 0x2,0x2 006d e5fe | | Load 0x2,-0x2 006e 480a |H | Short_Literal 0xa 006f 4802 |H | Short_Literal 0x2 0070 0099 | | Action Reference_Dynamic 0071 480b |H | Short_Literal 0xb 0072 4802 |H | Short_Literal 0x2 0073 0099 | | Action Reference_Dynamic 0074 e40c | | Load 0x2,0xc 0075 480d |H | Short_Literal 0xd 0076 4802 |H | Short_Literal 0x2 0077 0099 | | Action Reference_Dynamic 0078 480e |H | Short_Literal 0xe 0079 4802 |H | Short_Literal 0x2 007a 0099 | | Action Reference_Dynamic 007b 480f |H | Short_Literal 0xf 007c 4802 |H | Short_Literal 0x2 007d 0099 | | Action Reference_Dynamic 007e 4810 |H | Short_Literal 0x10 007f 4802 |H | Short_Literal 0x2 0080 0099 | | Action Reference_Dynamic 0081 e411 | | Load 0x2,0x11 0082 4812 |H | Short_Literal 0x12 0083 4802 |H | Short_Literal 0x2 0084 0099 | | Action Reference_Dynamic 0085 8002 | | Call 0x0,0x2 0086 c402 | | Store 0x2,0x2 0087 c5fd | | Store 0x2,-0x3 0088 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0089 0000 0000 | | .BLANK 0000[0x7] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 009d | | .CONST 0x009d ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0003 | | .CONST 0x0003 ; Number of locals 0093 INIT_0090: 0093 e007 | | Load 0x0,0x7 0094 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0095 02c7 | | Declare_Variable Any 0096 00d8 | | Load_Top At_Offset_0 0097 1c00 | | Execute_Immediate Run_Utility,0x0 0098 e008 | | Load 0x0,0x8 0099 1b0e | | Execute Package,Field_Read,Field_Number 0xe 009a 02c7 | | Declare_Variable Any 009b 00d8 | | Load_Top At_Offset_0 009c 1c00 | | Execute_Immediate Run_Utility,0x0 009d BODY_0090: 009d 00d9 | | Load_Top At_Offset_1 009e 00d9 | | Load_Top At_Offset_1 009f e5fe | | Load 0x2,-0x2 00a0 8009 | | Call 0x0,0x9 00a1 c403 | | Store 0x2,0x3 00a2 c402 | | Store 0x2,0x2 00a3 00d8 | | Load_Top At_Offset_0 00a4 e008 | | Load 0x0,0x8 00a5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a6 4802 |H | Short_Literal 0x2 00a7 4803 |H | Short_Literal 0x3 00a8 0262 | b | Execute Discrete,In_Range 00a9 700f |p | Jump_Nonzero 0xb9 00aa 00d9 | | Load_Top At_Offset_1 00ab e5fd | | Load 0x2,-0x3 00ac e5ff | | Load 0x2,-0x1 00ad 820d | | Call 0x1,0xd 00ae c402 | | Store 0x2,0x2 00af 00d9 | | Load_Top At_Offset_1 00b0 e007 | | Load 0x0,0x7 00b1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00b2 c402 | | Store 0x2,0x2 00b3 4801 |H | Short_Literal 0x1 00b4 4800 |H | Short_Literal 0x0 00b5 e5fe | | Load 0x2,-0x2 00b6 e00a | | Load 0x0,0xa 00b7 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00b8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b9 e005 | | Load 0x0,0x5 00ba 180e | | Execute Package,Field_Execute,Field_Number 0xe 00bb 4807 |H | Short_Literal 0x7 00bc 0092 012f | /| Action Push_String_Extended,0x12f ; "Problem creating object " 00be e5fe | | Load 0x2,-0x2 00bf 01cc | | Execute Vector,Catenate 00c0 0092 0130 | 0| Action Push_String_Extended,0x130 ; ". " 00c2 01cc | | Execute Vector,Catenate 00c3 00db | | Load_Top At_Offset_3 00c4 e008 | | Load 0x0,0x8 00c5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00c6 01cc | | Execute Vector,Catenate 00c7 e006 | | Load 0x0,0x6 00c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ca 0000 0000 | | .BLANK 0000[0x6] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 4607 |F | Jump_Case 0x8 00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00d5 7806 |x | Jump 0xdc ; case 0x1 00d6 7809 |x | Jump 0xe0 ; case 0x2 00d7 780d |x | Jump 0xe5 ; case 0x3 00d8 7810 |x | Jump 0xe9 ; case 0x4 00d9 7811 |x | Jump 0xeb ; case 0x5 00da 7812 |x | Jump 0xed ; case 0x6 00db 7815 |x | Jump 0xf1 ; case 0x7 00dc 00da | | Load_Top At_Offset_2 00dd 0091 012c | ,| Action Push_String_Extended_Indexed,0x12c ; "A" 00df 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e0 00db | | Load_Top At_Offset_3 00e1 00db | | Load_Top At_Offset_3 00e2 00e0 | | Load_Encached Standard_Cache 00e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e5 00da | | Load_Top At_Offset_2 00e6 00e0 | | Load_Encached Standard_Cache 00e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e9 00db | | Load_Top At_Offset_3 00ea 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00eb 00db | | Load_Top At_Offset_3 00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ed e403 | | Load 0x2,0x3 00ee 00dc | | Load_Top At_Offset_4 00ef 0267 | g | Execute Discrete,Predecessor 00f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f1 e403 | | Load 0x2,0x3 00f2 00dc | | Load_Top At_Offset_4 00f3 0268 | h | Execute Discrete,Successor 00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f5 0000 0000 | | .XXX[0x3] 00f7 0000 | | 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 4800 |H | Short_Literal 0x0 00fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 0833 | 3 | Execute_Immediate Raise,0x33 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 0833 | 3 | Execute_Immediate Raise,0x33 010c 0000 0000 | | .BLANK 0000[0x4] 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 0833 | 3 | Execute_Immediate Raise,0x33 0114 0000 0000 | | .BLANK 0000[0x4] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 0833 | 3 | Execute_Immediate Raise,0x33 011c 0000 0000 | | .BLANK 0000[0x4] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 e001 | | Load 0x0,0x1 0124 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0125 180e | | Execute Package,Field_Execute,Field_Number 0xe 0126 c7fd | | Store 0x3,-0x3 0127 e001 | | Load 0x0,0x1 0128 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0129 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 012a c7fc | | Store 0x3,-0x4 012b 0833 | 3 | Execute_Immediate Raise,0x33 012c ; -------------------------------------------------------------------------------------- 012c ; STRING TABLE 012c ; -------------------------------------------------------------------------------------- 012c 000c | | .STRTAB 0x000c->0x0132 ; "A" 012d 000b | | .STRTAB 0x000b->0x0132 ; "[STRING-expression]" 012e 001c | | .STRTAB 0x001c->0x013c ; " is not a valid pathname" 012f 0032 | 2 | .STRTAB 0x0032->0x0148 ; "Problem creating object " 0130 0048 | H | .STRTAB 0x0048->0x0154 ; ". " 0131 0049 | I | .STREND 0x0049->0x0155 0132 415b 5354 |A[ST| .STRTAB_STRINGS 0156 0000 0000 | | .XXX[0x2] 0158 ; -------------------------------------------------------------------------------------- 0158 ; Debug Table 0158 ; -------------------------------------------------------------------------------------- 0158 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2eaf,0x0000,0x0001,0x000b 015e 000b 018a | | .DBG4T 0x000b,0x018a,0x8000,0x0000 0162 0013 018e | | .DBG4T 0x0013,0x018e,0x8000,0x0000 0166 0023 0192 | # | .DBG4T 0x0023,0x0192,0x0001,0x0000 016a 0093 01a0 | | .DBG4T 0x0093,0x01a0,0x0001,0x4000 016e 00d3 0000 | | .DBG4T 0x00d3,0x0000,0x0005,0x0000 0172 00fb 01b0 | | .DBG4T 0x00fb,0x01b0,0x0002,0x4000 0176 0103 01b4 | | .DBG4T 0x0103,0x01b4,0x0002,0x0000 017a 010b 01b7 | | .DBG4T 0x010b,0x01b7,0x0002,0x0000 017e 0113 01ba | | .DBG4T 0x0113,0x01ba,0x0002,0x4000 0182 011b 01be | | .DBG4T 0x011b,0x01be,0x0002,0x4000 0186 0123 01c2 | # | .DBG4T 0x0123,0x01c2,0x0001,0x4000 018a ; -------------------------------------------------------------------------------------- 018a ; Debug chain 018a ; -------------------------------------------------------------------------------------- 018a 0002 0000 | | .DBGLEN 0x0002,0x0000 018c 000b 000f | | .DBGLNO 0x000b,0x000f 018e ; -------------------------------------------------------------------------------------- 018e ; Debug chain 018e ; -------------------------------------------------------------------------------------- 018e 0002 0000 | | .DBGLEN 0x0002,0x0000 0190 0013 0015 | | .DBGLNO 0x0013,0x0015 0192 ; -------------------------------------------------------------------------------------- 0192 ; Debug chain 0192 ; -------------------------------------------------------------------------------------- 0192 0009 0003 | | .DBGLEN 0x0009,0x0003 0194 0023 0030 | # 0| .DBGLNO 0x0023,0x0030,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x005c,0x0061,0x006b 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; Debug chain 01a0 ; -------------------------------------------------------------------------------------- 01a0 0002 0006 | | .DBGLEN 0x0002,0x0006 01a2 0093 0098 | | .DBGLNO 0x0093,0x0098,0x009d,0x00a3,0x00aa,0x00af,0x00b3,0x00b9 01aa 0001 0002 | | .XXX[0x6] 01ac 0004 0005 | | 01ae 0006 0003 | | 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; Debug chain 01b0 ; -------------------------------------------------------------------------------------- 01b0 0000 0001 | | .DBGLEN 0x0000,0x0001 01b2 00fb | | .DBGLNO 0x00fb 01b3 0002 | | .XXX[0x1] 01b4 ; -------------------------------------------------------------------------------------- 01b4 ; Debug chain 01b4 ; -------------------------------------------------------------------------------------- 01b4 0000 0001 | | .DBGLEN 0x0000,0x0001 01b6 0103 | | .DBGLNO 0x0103 01b7 ; -------------------------------------------------------------------------------------- 01b7 ; Debug chain 01b7 ; -------------------------------------------------------------------------------------- 01b7 0000 0001 | | .DBGLEN 0x0000,0x0001 01b9 010b | | .DBGLNO 0x010b 01ba ; -------------------------------------------------------------------------------------- 01ba ; Debug chain 01ba ; -------------------------------------------------------------------------------------- 01ba 0000 0001 | | .DBGLEN 0x0000,0x0001 01bc 0113 | | .DBGLNO 0x0113 01bd 0002 | | .XXX[0x1] 01be ; -------------------------------------------------------------------------------------- 01be ; Debug chain 01be ; -------------------------------------------------------------------------------------- 01be 0000 0001 | | .DBGLEN 0x0000,0x0001 01c0 011b | | .DBGLNO 0x011b 01c1 0002 | | .XXX[0x1] 01c2 ; -------------------------------------------------------------------------------------- 01c2 ; Debug chain 01c2 ; -------------------------------------------------------------------------------------- 01c2 0000 0003 | | .DBGLEN 0x0000,0x0003 01c4 0123 0127 | # '| .DBGLNO 0x0123,0x0127,0x012b 01c7 0001 0002 | | .XXX[0x3] 01c9 0004 | | 01ca 0000 0000 | | .BLANK 0000[0x36]