|
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_20b24b7
└─⟦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 0180 | | .CONST 0x0180 ; 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 0020 | | .CONST 0x0020 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 0007 | | Action Break_Optional 0013 0007 | | Action Break_Optional 0014 0007 | | Action Break_Optional 0015 e003 | | Load 0x0,0x3 0016 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0017 02c7 | | Declare_Variable Any 0018 00d8 | | Load_Top At_Offset_0 0019 1c00 | | Execute_Immediate Run_Utility,0x0 001a 1d0d | | Execute_Immediate Reference_Lex_1,0xd 001b 00c7 | | Action Elaborate_Subprogram 001c 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001d 00c7 | | Action Elaborate_Subprogram 001e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001f 00c7 | | Action Elaborate_Subprogram 0020 BODY_0008: 0020 00bc | | Action Signal_Activated 0021 00bb | | Action Signal_Completion 0022 0000 0000 | | .BLANK 0000[0x6] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b e210 | | Load 0x1,0x10 002c 00ea | | Load_Encached Null_String_Cache 002d 0092 0113 | | Action Push_String_Extended,0x113 ; "The fruitcake environment" 002f 4801 |H | Short_Literal 0x1 0030 e003 | | Load 0x0,0x3 0031 180f | | Execute Package,Field_Execute,Field_Number 0xf 0032 c210 | | Store 0x1,0x10 0033 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0034 0000 0000 | | .BLANK 0000[0x4] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0044 | D | .CONST 0x0044 ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0003 | | .CONST 0x0003 ; Number of locals 003b INIT_0038: 003b e003 | | Load 0x0,0x3 003c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 003d 0614 | | Execute_Immediate Set_Value_Unchecked,0x14 003e 480f |H | Short_Literal 0xf 003f e004 | | Load 0x0,0x4 0040 0272 | r | Execute Discrete,Minus 0041 e003 | | Load 0x0,0x3 0042 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0043 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0044 BODY_0038: 0044 4801 |H | Short_Literal 0x1 0045 e210 | | Load 0x1,0x10 0046 e003 | | Load 0x0,0x3 0047 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0048 4800 |H | Short_Literal 0x0 0049 e003 | | Load 0x0,0x3 004a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 004b 0092 0114 | | Action Push_String_Extended,0x114 ; " THE ENVIRONMENT : " 004d e210 | | Load 0x1,0x10 004e e003 | | Load 0x0,0x3 004f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0050 4801 |H | Short_Literal 0x1 0051 e210 | | Load 0x1,0x10 0052 e003 | | Load 0x0,0x3 0053 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0054 4801 |H | Short_Literal 0x1 0055 e210 | | Load 0x1,0x10 0056 e003 | | Load 0x0,0x3 0057 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0058 00cf | | Action Mark_Auxiliary 0059 e005 | | Load 0x0,0x5 005a e004 | | Load 0x0,0x4 005b 0264 | d | Execute Discrete,Below_Bound 005c 705c |p\ | Jump_Nonzero 0xb9 005d 4814 |H | Short_Literal 0x14 005e a402 | | Store_Unchecked 0x2,0x2 005f 4800 |H | Short_Literal 0x0 0060 e402 | | Load 0x2,0x2 0061 0af9 | | Execute_Immediate Plus,-0x7 0062 00d8 | | Load_Top At_Offset_0 0063 00e4 | | Load_Encached Positive_Cache 0064 0260 | ` | Execute Discrete,In_Type 0065 7001 |p | Jump_Nonzero 0x67 0066 0801 | | Execute_Immediate Raise,0x1 0067 e403 | | Load 0x2,0x3 0068 e210 | | Load 0x1,0x10 0069 e003 | | Load 0x0,0x3 006a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 006b 4800 |H | Short_Literal 0x0 006c e003 | | Load 0x0,0x3 006d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 006e 00da | | Load_Top At_Offset_2 006f 00e0 | | Load_Encached Standard_Cache 0070 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0071 0092 0115 | | Action Push_String_Extended,0x115 ; " * " 0073 01cc | | Execute Vector,Catenate 0074 e210 | | Load 0x1,0x10 0075 e003 | | Load 0x0,0x3 0076 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0077 00cf | | Action Mark_Auxiliary 0078 e006 | | Load 0x0,0x6 0079 e007 | | Load 0x0,0x7 007a 0263 | c | Execute Discrete,Above_Bound 007b 703a |p: | Jump_Nonzero 0xb6 007c 4800 |H | Short_Literal 0x0 007d e402 | | Load 0x2,0x2 007e e403 | | Load 0x2,0x3 007f e210 | | Load 0x1,0x10 0080 e003 | | Load 0x0,0x3 0081 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0082 00db | | Load_Top At_Offset_3 0083 00d9 | | Load_Top At_Offset_1 0084 8008 | | Call 0x0,0x8 0085 0e20 | | Execute_Immediate Not_Equal,0x20 0086 680f |h | Jump_Zero 0x96 0087 4800 |H | Short_Literal 0x0 0088 e003 | | Load 0x0,0x3 0089 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 008a e406 | | Load 0x2,0x6 008b 00db | | Load_Top At_Offset_3 008c 8008 | | Call 0x0,0x8 008d 0092 0116 | | Action Push_String_Extended,0x116 ; "[" 008f 01cb | | Execute Vector,Append 0090 0092 0117 | | Action Push_String_Extended,0x117 ; "]" 0092 01cc | | Execute Vector,Catenate 0093 e210 | | Load 0x1,0x10 0094 e003 | | Load 0x0,0x3 0095 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0096 00d8 | | Load_Top At_Offset_0 0097 e006 | | Load 0x0,0x6 0098 027f | | Execute Discrete,Equal 0099 6817 |h | Jump_Zero 0xb1 009a 4800 |H | Short_Literal 0x0 009b e402 | | Load 0x2,0x2 009c 0a05 | | Execute_Immediate Plus,0x5 009d 00d8 | | Load_Top At_Offset_0 009e 00e4 | | Load_Encached Positive_Cache 009f 0260 | ` | Execute Discrete,In_Type 00a0 7001 |p | Jump_Nonzero 0xa2 00a1 0801 | | Execute_Immediate Raise,0x1 00a2 e403 | | Load 0x2,0x3 00a3 e210 | | Load 0x1,0x10 00a4 e003 | | Load 0x0,0x3 00a5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00a6 4800 |H | Short_Literal 0x0 00a7 e003 | | Load 0x0,0x3 00a8 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00a9 0092 0118 | | Action Push_String_Extended,0x118 ; "*" 00ab e210 | | Load 0x1,0x10 00ac e003 | | Load 0x0,0x3 00ad 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00ae e403 | | Load 0x2,0x3 00af 0a01 | | Execute_Immediate Plus,0x1 00b0 c403 | | Store 0x2,0x3 00b1 e402 | | Load 0x2,0x2 00b2 0a05 | | Execute_Immediate Plus,0x5 00b3 c402 | | Store 0x2,0x2 00b4 00c8 | | Action Pop_Auxiliary_Range 00b5 3fc6 |? | Loop_Increasing 0x7c 00b6 00ce | | Action Pop_Auxiliary 00b7 00c8 | | Action Pop_Auxiliary_Range 00b8 37a4 |7 | Loop_Decreasing 0x5d 00b9 00ce | | Action Pop_Auxiliary 00ba 4800 |H | Short_Literal 0x0 00bb 480e |H | Short_Literal 0xe 00bc 480f |H | Short_Literal 0xf 00bd e210 | | Load 0x1,0x10 00be e003 | | Load 0x0,0x3 00bf 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00c0 4800 |H | Short_Literal 0x0 00c1 e003 | | Load 0x0,0x3 00c2 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00c3 0092 0119 | | Action Push_String_Extended,0x119 ; " *****************************************************************" 00c5 e210 | | Load 0x1,0x10 00c6 e003 | | Load 0x0,0x3 00c7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00c8 4800 |H | Short_Literal 0x0 00c9 480e |H | Short_Literal 0xe 00ca 4810 |H | Short_Literal 0x10 00cb e210 | | Load 0x1,0x10 00cc e003 | | Load 0x0,0x3 00cd 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00ce 4800 |H | Short_Literal 0x0 00cf e003 | | Load 0x0,0x3 00d0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00d1 0092 011a | | Action Push_String_Extended,0x11a ; " 1 2 3 4 5 6 7 8 9 10 11 12" 00d3 e210 | | Load 0x1,0x10 00d4 e003 | | Load 0x0,0x3 00d5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00d6 4801 |H | Short_Literal 0x1 00d7 e210 | | Load 0x1,0x10 00d8 e003 | | Load 0x0,0x3 00d9 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 00da 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00db 0000 0000 | | .BLANK 0000[0x5] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 4800 |H | Short_Literal 0x0 00e4 4805 |H | Short_Literal 0x5 00e5 e5ff | | Load 0x2,-0x1 00e6 0aff | | Execute_Immediate Plus,-0x1 00e7 0271 | q | Execute Discrete,Times 00e8 0a14 | | Execute_Immediate Plus,0x14 00e9 00d8 | | Load_Top At_Offset_0 00ea 00e4 | | Load_Encached Positive_Cache 00eb 0260 | ` | Execute Discrete,In_Type 00ec 7001 |p | Jump_Nonzero 0xee 00ed 0801 | | Execute_Immediate Raise,0x1 00ee 480f |H | Short_Literal 0xf 00ef e5fe | | Load 0x2,-0x2 00f0 0272 | r | Execute Discrete,Minus 00f1 00d8 | | Load_Top At_Offset_0 00f2 00e4 | | Load_Encached Positive_Cache 00f3 0260 | ` | Execute Discrete,In_Type 00f4 7001 |p | Jump_Nonzero 0xf6 00f5 0801 | | Execute_Immediate Raise,0x1 00f6 e210 | | Load 0x1,0x10 00f7 e003 | | Load 0x0,0x3 00f8 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00f9 e5fd | | Load 0x2,-0x3 00fa 0f20 | | Execute_Immediate Equal,0x20 00fb 6809 |h | Jump_Zero 0x105 00fc 4800 |H | Short_Literal 0x0 00fd e003 | | Load 0x0,0x3 00fe 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00ff 0092 011b | | Action Push_String_Extended,0x11b ; " " 0101 e210 | | Load 0x1,0x10 0102 e003 | | Load 0x0,0x3 0103 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0104 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0105 4800 |H | Short_Literal 0x0 0106 e003 | | Load 0x0,0x3 0107 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0108 e5fd | | Load 0x2,-0x3 0109 0092 0116 | | Action Push_String_Extended,0x116 ; "[" 010b 01cb | | Execute Vector,Append 010c 0092 0117 | | Action Push_String_Extended,0x117 ; "]" 010e 01cc | | Execute Vector,Catenate 010f e210 | | Load 0x1,0x10 0110 e003 | | Load 0x0,0x3 0111 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0112 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0113 ; -------------------------------------------------------------------------------------- 0113 ; STRING TABLE 0113 ; -------------------------------------------------------------------------------------- 0113 0014 | | .STRTAB 0x0014->0x011d ; "The fruitcake environment" 0114 002b | + | .STRTAB 0x002b->0x0129 ; " THE ENVIRONMENT : " 0115 003c | < | .STRTAB 0x003c->0x0133 ; " * " 0116 003e | > | .STRTAB 0x003e->0x0135 ; "[" 0117 003d | = | .STRTAB 0x003d->0x0135 ; "]" 0118 003c | < | .STRTAB 0x003c->0x0136 ; "*" 0119 003b | ; | .STRTAB 0x003b->0x0136 ; " *****************************************************************" 011a 007c | | | .STRTAB 0x007c->0x0158 ; " 1 2 3 4 5 6 7 8 9 10 11 12" 011b 00ba | | .STRTAB 0x00ba->0x0178 ; " " 011c 00bb | | .STREND 0x00bb->0x0179 011d 5468 6520 |The | .STRTAB_STRINGS 017a 0000 0000 | | .BLANK 0000[0x6] 0180 ; -------------------------------------------------------------------------------------- 0180 ; Debug Table 0180 ; -------------------------------------------------------------------------------------- 0180 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1f29,0x0000,0x0001,0x0005 0186 000b 019a | | .DBG4T 0x000b,0x019a,0x0000,0x0000 018a 0012 019f | | .DBG4T 0x0012,0x019f,0x0000,0x0000 018e 002b 01a8 | + | .DBG4T 0x002b,0x01a8,0x0001,0x0000 0192 003b 01ab | ; | .DBG4T 0x003b,0x01ab,0x0001,0x0000 0196 00e3 01c5 | | .DBG4T 0x00e3,0x01c5,0x0001,0x0000 019a ; -------------------------------------------------------------------------------------- 019a ; Debug chain 019a ; -------------------------------------------------------------------------------------- 019a 0003 0000 | | .DBGLEN 0x0003,0x0000 019c 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f 019f ; -------------------------------------------------------------------------------------- 019f ; Debug chain 019f ; -------------------------------------------------------------------------------------- 019f 0007 0000 | | .DBGLEN 0x0007,0x0000 01a1 0012 0013 | | .DBGLNO 0x0012,0x0013,0x0014,0x0015,0x001a,0x001c,0x001e 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; Debug chain 01a8 ; -------------------------------------------------------------------------------------- 01a8 0000 0001 | | .DBGLEN 0x0000,0x0001 01aa 002b | + | .DBGLNO 0x002b 01ab ; -------------------------------------------------------------------------------------- 01ab ; Debug chain 01ab ; -------------------------------------------------------------------------------------- 01ab 0002 0016 | | .DBGLEN 0x0002,0x0016 01ad 003b 003e | ; >| .DBGLNO 0x003b,0x003e,0x0044,0x0048,0x0050,0x0054,0x0059,0x005d,0x005f,0x006b,0x0078,0x007c,0x0082,0x0087,0x0096,0x009a,0x00a6,0x00ae,0x00b1,0x00ba,0x00c0,0x00c8,0x00ce,0x00d6 01c5 ; -------------------------------------------------------------------------------------- 01c5 ; Debug chain 01c5 ; -------------------------------------------------------------------------------------- 01c5 0000 0004 | | .DBGLEN 0x0000,0x0004 01c7 00e3 00f9 | | .DBGLNO 0x00e3,0x00f9,0x00fc,0x0105 01cb 0000 0000 | | .BLANK 0000[0x35]