|
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_14f98c7
└─⟦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 0170 | p | .CONST 0x0170 ; 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 002e | . | .CONST 0x002e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000d 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 0007 | | Action Break_Optional 0011 0007 | | Action Break_Optional 0012 0007 | | Action Break_Optional 0013 e002 | | Load 0x0,0x2 0014 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0015 02c7 | | Declare_Variable Any 0016 00d8 | | Load_Top At_Offset_0 0017 1c00 | | Execute_Immediate Run_Utility,0x0 0018 e003 | | Load 0x0,0x3 0019 8004 | | Call 0x0,0x4 001a 00e2 | | Load_Encached Integer_Cache 001b 03f1 | | Declare_Variable Discrete,With_Value 001c e005 | | Load 0x0,0x5 001d 8004 | | Call 0x0,0x4 001e 00e2 | | Load_Encached Integer_Cache 001f 03f1 | | Declare_Variable Discrete,With_Value 0020 e006 | | Load 0x0,0x6 0021 8004 | | Call 0x0,0x4 0022 00e2 | | Load_Encached Integer_Cache 0023 03f1 | | Declare_Variable Discrete,With_Value 0024 e007 | | Load 0x0,0x7 0025 8004 | | Call 0x0,0x4 0026 00e2 | | Load_Encached Integer_Cache 0027 03f1 | | Declare_Variable Discrete,With_Value 0028 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call 002a 1d0d | | Execute_Immediate Reference_Lex_1,0xd 002b 00c7 | | Action Elaborate_Subprogram 002c 1d0e | | Execute_Immediate Reference_Lex_1,0xe 002d 00c7 | | Action Elaborate_Subprogram 002e BODY_0008: 002e 8214 | | Call 0x1,0x14 002f 00bc | | Action Signal_Activated 0030 00bb | | Action Signal_Completion 0031 0000 0000 | | .BLANK 0000[0x7] 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 e002 | | Load 0x0,0x2 003c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 003d 060a | | Execute_Immediate Set_Value_Unchecked,0xa 003e 480f |H | Short_Literal 0xf 003f e212 | | Load 0x1,0x12 0040 0272 | r | Execute Discrete,Minus 0041 e002 | | Load 0x0,0x2 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 e20f | | Load 0x1,0xf 0046 e002 | | Load 0x0,0x2 0047 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0048 4800 |H | Short_Literal 0x0 0049 e002 | | Load 0x0,0x2 004a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 004b 0092 0144 | D| Action Push_String_Extended,0x144 ; " THE ENVIRONMENT : " 004d e20f | | Load 0x1,0xf 004e e002 | | Load 0x0,0x2 004f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0050 4801 |H | Short_Literal 0x1 0051 e20f | | Load 0x1,0xf 0052 e002 | | Load 0x0,0x2 0053 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0054 4801 |H | Short_Literal 0x1 0055 e20f | | Load 0x1,0xf 0056 e002 | | Load 0x0,0x2 0057 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0058 00cf | | Action Mark_Auxiliary 0059 e213 | | Load 0x1,0x13 005a e212 | | Load 0x1,0x12 005b 0264 | d | Execute Discrete,Below_Bound 005c 7037 |p7 | Jump_Nonzero 0x94 005d 4800 |H | Short_Literal 0x0 005e e402 | | Load 0x2,0x2 005f 0af9 | | Execute_Immediate Plus,-0x7 0060 00d8 | | Load_Top At_Offset_0 0061 00e4 | | Load_Encached Positive_Cache 0062 0260 | ` | Execute Discrete,In_Type 0063 7001 |p | Jump_Nonzero 0x65 0064 0801 | | Execute_Immediate Raise,0x1 0065 e403 | | Load 0x2,0x3 0066 e20f | | Load 0x1,0xf 0067 e002 | | Load 0x0,0x2 0068 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0069 4800 |H | Short_Literal 0x0 006a e002 | | Load 0x0,0x2 006b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 006c 00da | | Load_Top At_Offset_2 006d 00e0 | | Load_Encached Standard_Cache 006e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 006f 0092 0145 | E| Action Push_String_Extended,0x145 ; " *" 0071 01cc | | Execute Vector,Catenate 0072 e20f | | Load 0x1,0xf 0073 e002 | | Load 0x0,0x2 0074 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0075 4800 |H | Short_Literal 0x0 0076 e402 | | Load 0x2,0x2 0077 e210 | | Load 0x1,0x10 0078 e211 | | Load 0x1,0x11 0079 0272 | r | Execute Discrete,Minus 007a 0a01 | | Execute_Immediate Plus,0x1 007b 4805 |H | Short_Literal 0x5 007c 0271 | q | Execute Discrete,Times 007d 0273 | s | Execute Discrete,Plus 007e 00d8 | | Load_Top At_Offset_0 007f 00e4 | | Load_Encached Positive_Cache 0080 0260 | ` | Execute Discrete,In_Type 0081 7001 |p | Jump_Nonzero 0x83 0082 0801 | | Execute_Immediate Raise,0x1 0083 e403 | | Load 0x2,0x3 0084 e20f | | Load 0x1,0xf 0085 e002 | | Load 0x0,0x2 0086 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0087 4800 |H | Short_Literal 0x0 0088 e002 | | Load 0x0,0x2 0089 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 008a 0092 0146 | F| Action Push_String_Extended,0x146 ; "*" 008c e20f | | Load 0x1,0xf 008d e002 | | Load 0x0,0x2 008e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 008f 00db | | Load_Top At_Offset_3 0090 0a01 | | Execute_Immediate Plus,0x1 0091 c403 | | Store 0x2,0x3 0092 00c8 | | Action Pop_Auxiliary_Range 0093 37c9 |7 | Loop_Decreasing 0x5d 0094 00ce | | Action Pop_Auxiliary 0095 4800 |H | Short_Literal 0x0 0096 4806 |H | Short_Literal 0x6 0097 480f |H | Short_Literal 0xf 0098 e20f | | Load 0x1,0xf 0099 e002 | | Load 0x0,0x2 009a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 009b 4800 |H | Short_Literal 0x0 009c e002 | | Load 0x0,0x2 009d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 009e 0092 0147 | G| Action Push_String_Extended,0x147 ; "****" 00a0 e20f | | Load 0x1,0xf 00a1 e002 | | Load 0x0,0x2 00a2 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00a3 480a |H | Short_Literal 0xa 00a4 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00a5 4800 |H | Short_Literal 0x0 00a6 00da | | Load_Top At_Offset_2 00a7 480f |H | Short_Literal 0xf 00a8 e20f | | Load 0x1,0xf 00a9 e002 | | Load 0x0,0x2 00aa 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00ab 00cf | | Action Mark_Auxiliary 00ac e210 | | Load 0x1,0x10 00ad e211 | | Load 0x1,0x11 00ae 0263 | c | Execute Discrete,Above_Bound 00af 7013 |p | Jump_Nonzero 0xc3 00b0 4800 |H | Short_Literal 0x0 00b1 e402 | | Load 0x2,0x2 00b2 480f |H | Short_Literal 0xf 00b3 e20f | | Load 0x1,0xf 00b4 e002 | | Load 0x0,0x2 00b5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00b6 4800 |H | Short_Literal 0x0 00b7 e002 | | Load 0x0,0x2 00b8 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00b9 0092 0148 | H| Action Push_String_Extended,0x148 ; "*****" 00bb e20f | | Load 0x1,0xf 00bc e002 | | Load 0x0,0x2 00bd 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00be e402 | | Load 0x2,0x2 00bf 0a05 | | Execute_Immediate Plus,0x5 00c0 c402 | | Store 0x2,0x2 00c1 00c8 | | Action Pop_Auxiliary_Range 00c2 3fed |? | Loop_Increasing 0xb0 00c3 00ce | | Action Pop_Auxiliary 00c4 4800 |H | Short_Literal 0x0 00c5 e210 | | Load 0x1,0x10 00c6 e211 | | Load 0x1,0x11 00c7 0272 | r | Execute Discrete,Minus 00c8 0a01 | | Execute_Immediate Plus,0x1 00c9 4805 |H | Short_Literal 0x5 00ca 0271 | q | Execute Discrete,Times 00cb 0a0a | | Execute_Immediate Plus,0xa 00cc 00d8 | | Load_Top At_Offset_0 00cd 00e4 | | Load_Encached Positive_Cache 00ce 0260 | ` | Execute Discrete,In_Type 00cf 7001 |p | Jump_Nonzero 0xd1 00d0 0801 | | Execute_Immediate Raise,0x1 00d1 480f |H | Short_Literal 0xf 00d2 e20f | | Load 0x1,0xf 00d3 e002 | | Load 0x0,0x2 00d4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00d5 4800 |H | Short_Literal 0x0 00d6 e002 | | Load 0x0,0x2 00d7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00d8 0092 0146 | F| Action Push_String_Extended,0x146 ; "*" 00da e20f | | Load 0x1,0xf 00db e002 | | Load 0x0,0x2 00dc 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00dd 480a |H | Short_Literal 0xa 00de 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00df 00cf | | Action Mark_Auxiliary 00e0 e210 | | Load 0x1,0x10 00e1 e211 | | Load 0x1,0x11 00e2 0263 | c | Execute Discrete,Above_Bound 00e3 7014 |p | Jump_Nonzero 0xf8 00e4 4800 |H | Short_Literal 0x0 00e5 e402 | | Load 0x2,0x2 00e6 4810 |H | Short_Literal 0x10 00e7 e20f | | Load 0x1,0xf 00e8 e002 | | Load 0x0,0x2 00e9 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00ea 4800 |H | Short_Literal 0x0 00eb e002 | | Load 0x0,0x2 00ec 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00ed 00da | | Load_Top At_Offset_2 00ee 00e0 | | Load_Encached Standard_Cache 00ef 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00f0 e20f | | Load 0x1,0xf 00f1 e002 | | Load 0x0,0x2 00f2 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00f3 e402 | | Load 0x2,0x2 00f4 0a05 | | Execute_Immediate Plus,0x5 00f5 c402 | | Store 0x2,0x2 00f6 00c8 | | Action Pop_Auxiliary_Range 00f7 3fec |? | Loop_Increasing 0xe4 00f8 00ce | | Action Pop_Auxiliary 00f9 4801 |H | Short_Literal 0x1 00fa e20f | | Load 0x1,0xf 00fb e002 | | Load 0x0,0x2 00fc 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 00fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00fe 0000 0000 | | .XXX[0x2] 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 4800 |H | Short_Literal 0x0 0104 4805 |H | Short_Literal 0x5 0105 e5ff | | Load 0x2,-0x1 0106 0aff | | Execute_Immediate Plus,-0x1 0107 0271 | q | Execute Discrete,Times 0108 0a0a | | Execute_Immediate Plus,0xa 0109 00d8 | | Load_Top At_Offset_0 010a 00e4 | | Load_Encached Positive_Cache 010b 0260 | ` | Execute Discrete,In_Type 010c 7001 |p | Jump_Nonzero 0x10e 010d 0801 | | Execute_Immediate Raise,0x1 010e 480f |H | Short_Literal 0xf 010f e5fe | | Load 0x2,-0x2 0110 0272 | r | Execute Discrete,Minus 0111 00d8 | | Load_Top At_Offset_0 0112 00e4 | | Load_Encached Positive_Cache 0113 0260 | ` | Execute Discrete,In_Type 0114 7001 |p | Jump_Nonzero 0x116 0115 0801 | | Execute_Immediate Raise,0x1 0116 e20f | | Load 0x1,0xf 0117 e002 | | Load 0x0,0x2 0118 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0119 e5fd | | Load 0x2,-0x3 011a 0f20 | | Execute_Immediate Equal,0x20 011b 6809 |h | Jump_Zero 0x125 011c 4800 |H | Short_Literal 0x0 011d e002 | | Load 0x0,0x2 011e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 011f 0092 0149 | I| Action Push_String_Extended,0x149 ; " " 0121 e20f | | Load 0x1,0xf 0122 e002 | | Load 0x0,0x2 0123 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0124 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0125 4800 |H | Short_Literal 0x0 0126 e002 | | Load 0x0,0x2 0127 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0128 e5fd | | Load 0x2,-0x3 0129 0092 014a | J| Action Push_String_Extended,0x14a ; "[" 012b 01cb | | Execute Vector,Append 012c 0092 014b | K| Action Push_String_Extended,0x14b ; "]" 012e 01cc | | Execute Vector,Catenate 012f e20f | | Load 0x1,0xf 0130 e002 | | Load 0x0,0x2 0131 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0132 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0133 0000 0000 | | .BLANK 0000[0x5] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b e20f | | Load 0x1,0xf 013c 00ea | | Load_Encached Null_String_Cache 013d 0092 014c | L| Action Push_String_Extended,0x14c ; "The fruitcake environment" 013f 4801 |H | Short_Literal 0x1 0140 e002 | | Load 0x0,0x2 0141 180f | | Execute Package,Field_Execute,Field_Number 0xf 0142 c20f | | Store 0x1,0xf 0143 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0144 ; -------------------------------------------------------------------------------------- 0144 ; STRING TABLE 0144 ; -------------------------------------------------------------------------------------- 0144 0014 | | .STRTAB 0x0014->0x014e ; " THE ENVIRONMENT : " 0145 0025 | % | .STRTAB 0x0025->0x0157 ; " *" 0146 0025 | % | .STRTAB 0x0025->0x0158 ; "*" 0147 0024 | $ | .STRTAB 0x0024->0x0159 ; "****" 0148 0026 | & | .STRTAB 0x0026->0x015b ; "*****" 0149 0029 | ) | .STRTAB 0x0029->0x015d ; " " 014a 002a | * | .STRTAB 0x002a->0x015f ; "[" 014b 0029 | ) | .STRTAB 0x0029->0x015f ; "]" 014c 0028 | ( | .STRTAB 0x0028->0x0160 ; "The fruitcake environment" 014d 003f | ? | .STREND 0x003f->0x016c 014e 2054 4845 | THE| .STRTAB_STRINGS 016d 0000 0000 | | .XXX[0x3] 016f 0000 | | 0170 ; -------------------------------------------------------------------------------------- 0170 ; Debug Table 0170 ; -------------------------------------------------------------------------------------- 0170 0004 0009 | | .DEBUG4 0x0004,0x0009,0x339a,0x0000,0x0001,0x0005 0176 000b 018a | | .DBG4T 0x000b,0x018a,0x8000,0x0000 017a 0010 018e | | .DBG4T 0x0010,0x018e,0x8000,0x0000 017e 003b 019c | ; | .DBG4T 0x003b,0x019c,0x0001,0x0000 0182 0103 01ba | | .DBG4T 0x0103,0x01ba,0x0001,0x0000 0186 013b 01c0 | ; | .DBG4T 0x013b,0x01c0,0x0001,0x0000 018a ; -------------------------------------------------------------------------------------- 018a ; Debug chain 018a ; -------------------------------------------------------------------------------------- 018a 0002 0000 | | .DBGLEN 0x0002,0x0000 018c 000b 000d | | .DBGLNO 0x000b,0x000d 018e ; -------------------------------------------------------------------------------------- 018e ; Debug chain 018e ; -------------------------------------------------------------------------------------- 018e 000b 0001 | | .DBGLEN 0x000b,0x0001 0190 0010 0011 | | .DBGLNO 0x0010,0x0011,0x0012,0x0013,0x0018,0x001c,0x0020,0x0024,0x0028,0x002a,0x002c,0x002e 019c ; -------------------------------------------------------------------------------------- 019c ; Debug chain 019c ; -------------------------------------------------------------------------------------- 019c 0002 001a | | .DBGLEN 0x0002,0x001a 019e 003b 003e | ; >| .DBGLNO 0x003b,0x003e,0x0044,0x0048,0x0050,0x0054,0x0059,0x005d,0x0069,0x0075,0x0087,0x008f,0x0095,0x009b,0x00a3,0x00a5,0x00ac,0x00b0,0x00b6,0x00be,0x00c4,0x00d5,0x00dd,0x00e0,0x00e4,0x00ea,0x00f3,0x00f9 01ba ; -------------------------------------------------------------------------------------- 01ba ; Debug chain 01ba ; -------------------------------------------------------------------------------------- 01ba 0000 0004 | | .DBGLEN 0x0000,0x0004 01bc 0103 0119 | | .DBGLNO 0x0103,0x0119,0x011c,0x0125 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; Debug chain 01c0 ; -------------------------------------------------------------------------------------- 01c0 0000 0001 | | .DBGLEN 0x0000,0x0001 01c2 013b | ; | .DBGLNO 0x013b 01c3 0000 0000 | | .BLANK 0000[0x3d]