|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0534f8
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 00c0 | | .CONST 0x00c0 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 002c | , | .CONST 0x002c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000d 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000f 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 0011 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 0013 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0015 00bf | | Action Accept_Activation 0016 00e1 | | Load_Encached Boolean_Cache 0017 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0018 e001 | | Load 0x0,0x1 0019 e002 | | Load 0x0,0x2 001a 00e2 | | Load_Encached Integer_Cache 001b e003 | | Load 0x0,0x3 001c 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 001d 0387 | | Declare_Variable Package 001e 00d8 | | Load_Top At_Offset_0 001f 020f | | Execute Module,Activate 0020 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0021 00c7 | | Action Elaborate_Subprogram 0022 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0023 00c7 | | Action Elaborate_Subprogram 0024 029d 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call 0026 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0027 00c7 | | Action Elaborate_Subprogram 0028 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0029 00c7 | | Action Elaborate_Subprogram 002a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 002b 00c7 | | Action Elaborate_Subprogram 002c BODY_0008: 002c 00bc | | Action Signal_Activated 002d 00bb | | Action Signal_Completion 002e 0000 0000 | | .XXX[0x2] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 4801 |H | Short_Literal 0x1 0034 a212 | | Store_Unchecked 0x1,0x12 0035 00da | | Load_Top At_Offset_2 0036 0092 00b4 | | Action Push_String_Extended,0xb4 ; " *** " 0038 8214 | | Call 0x1,0x14 0039 4502 |E | Exit_Suprogram New_Top_Offset 0x2 003a 0000 0000 | | .BLANK 0000[0x6] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 00da | | Load_Top At_Offset_2 0044 0092 00b5 | | Action Push_String_Extended,0xb5 ; " !!! " 0046 8214 | | Call 0x1,0x14 0047 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 00da | | Load_Top At_Offset_2 004c 0092 00b6 | | Action Push_String_Extended,0xb6 ; " --- " 004e 8214 | | Call 0x1,0x14 004f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 00da | | Load_Top At_Offset_2 0054 a212 | | Store_Unchecked 0x1,0x12 0055 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0056 0000 0000 | | .XXX[0x2] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b e212 | | Load 0x1,0x12 005c 00ca | | Action Exit_Nullary_Function 005d 0000 0000 | | .XXX[0x3] 005f 0000 | | 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0071 | q | .CONST 0x0071 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0002 | | .CONST 0x0002 ; Number of locals 0063 INIT_0060: 0063 e004 | | Load 0x0,0x4 0064 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0065 e004 | | Load 0x0,0x4 0066 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0067 00d8 | | Load_Top At_Offset_0 0068 0c00 | | Execute_Immediate Greater_Equal,0x0 0069 7002 |p | Jump_Nonzero 0x6c 006a 6045 |`E | Indirect_Literal Discrete,0xb0,{0xffffffff, 0xffffc000} 006b 7801 |x | Jump 0x6d 006c 603f |`? | Indirect_Literal Discrete,0xac,{0x00000000, 0x00004000} 006d 0273 | s | Execute Discrete,Plus 006e 09f1 | | Execute_Immediate Binary_Scale,-0xf 006f 00e3 | | Load_Encached Natural_Cache 0070 03f1 | | Declare_Variable Discrete,With_Value 0071 BODY_0060: 0071 e213 | | Load 0x1,0x13 0072 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0073 4802 |H | Short_Literal 0x2 0074 00da | | Load_Top At_Offset_2 0075 6032 |`2 | Indirect_Literal Discrete,0xa8,{0x00000000, 0x00000e10} 0076 0270 | p | Execute Discrete,Divide 0077 e003 | | Load 0x0,0x3 0078 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0079 e213 | | Load 0x1,0x13 007a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 007b 483a |H: | Short_Literal 0x3a 007c e003 | | Load 0x0,0x3 007d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 007e e003 | | Load 0x0,0x3 007f 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0080 e213 | | Load 0x1,0x13 0081 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0082 4802 |H | Short_Literal 0x2 0083 00da | | Load_Top At_Offset_2 0084 483c |H< | Short_Literal 0x3c 0085 0270 | p | Execute Discrete,Divide 0086 483c |H< | Short_Literal 0x3c 0087 026f | o | Execute Discrete,Remainder 0088 e003 | | Load 0x0,0x3 0089 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 008a e213 | | Load 0x1,0x13 008b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 008c 483a |H: | Short_Literal 0x3a 008d e003 | | Load 0x0,0x3 008e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 008f e003 | | Load 0x0,0x3 0090 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0091 e213 | | Load 0x1,0x13 0092 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0093 4802 |H | Short_Literal 0x2 0094 00da | | Load_Top At_Offset_2 0095 483c |H< | Short_Literal 0x3c 0096 026f | o | Execute Discrete,Remainder 0097 e003 | | Load 0x0,0x3 0098 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0099 e213 | | Load 0x1,0x13 009a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 009b 00db | | Load_Top At_Offset_3 009c e003 | | Load 0x0,0x3 009d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 009e e003 | | Load 0x0,0x3 009f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 00a0 e5fe | | Load 0x2,-0x2 00a1 e003 | | Load 0x0,0x3 00a2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00a3 e003 | | Load 0x0,0x3 00a4 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 00a5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a6 0000 0000 | | .XXX[0x2] 00a8 0000 0000 | | .LITERAL {0x00000000, 0x00000e10} 00ac 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 00b0 ffff ffff | | .LITERAL {0xffffffff, 0xffffc000} 00b4 ; -------------------------------------------------------------------------------------- 00b4 ; STRING TABLE 00b4 ; -------------------------------------------------------------------------------------- 00b4 0008 | | .STRTAB 0x0008->0x00b8 ; " *** " 00b5 000b | | .STRTAB 0x000b->0x00ba ; " !!! " 00b6 000e | | .STRTAB 0x000e->0x00bd ; " --- " 00b7 0011 | | .STREND 0x0011->0x00bf 00b8 202a 2a2a | ***| .STRTAB_STRINGS 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; Debug Table 00c0 ; -------------------------------------------------------------------------------------- 00c0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xa942,0x0000,0x0001,0x0000 00c6 2020 2020 | | .BLANK 2020[0xb] 00d1 2044 6562 | Deb| .XXX[0x19] 00d3 7567 5f54 |ug_T| 00d5 6f6f 6c73 |ools| 00d7 2e47 6574 |.Get| 00d9 5f45 7863 |_Exc| 00db 6570 7469 |epti| 00dd 6f6e 5f4e |on_N| 00df 616d 6520 |ame | 00e1 2854 7275 |(Tru| 00e3 652c 2054 |e, T| 00e5 7275 6529 |rue)| 00e7 2c20 204c |, L| 00e9 0032 | 2 | 00ea 2020 2020 | | .BLANK 2020[0xf] 00f9 5072 6f66 |Prof| .XXX[0xc] 00fb 696c 652e |ile.| 00fd 4572 726f |Erro| 00ff 725f 4d73 |r_Ms| 0101 672c 2020 |g, | 0103 3200 2f20 |2 / | 0105 2020 2020 | | .BLANK 2020[0xe] 0113 2050 726f | Pro| .XXX[0xb] 0115 6669 6c65 |file| 0117 2e56 6572 |.Ver| 0119 626f 7365 |bose| 011b 293b 2f00 |);/ | 011d 1720 | | 011e 2020 2020 | | .BLANK 2020[0x7] 0125 2072 6574 | ret| .XXX[0x28] 0127 7572 6e3b |urn;| 0129 1700 0c20 | | 012b 2020 2020 | | 012d 2020 2065 | e| 012f 6e64 3b0c |nd; | 0131 0000 0000 | | 0133 2d2d 2d2d |----| 0135 2d49 6e73 |-Ins| 0137 7461 6c6c |tall| 0139 2074 6865 | the| 013b 206f 6e65 | one| 013d 2d6c 696e |-lin| 013f 6572 2061 |er a| 0141 6e64 2063 |nd c| 0143 6c6f 7365 |lose| 0145 2074 6865 | the| 0147 2066 696c | fil| 0149 652e 2d00 |e.- | 014b 0000 000f | | 014d 2020 2020 | | .BLANK 2020[0x4] 0151 6465 636c |decl| .XXX[0x5] 0153 6172 650f |are | 0155 0023 | # | 0156 2020 2020 | | .BLANK 2020[0x6] 015c 4964 203a |Id :| .XXX[0xd] 015e 2063 6f6e | con| 0160 7374 616e |stan| 0162 7420 5374 |t St| 0164 7269 6e67 |ring| 0166 203a 3d23 | :=#| 0168 001c | | 0169 2020 2020 | | .BLANK 2020[0x7] 0170 204e 6174 | Nat| .XXX[0x9] 0172 7572 616c |ural| 0174 2749 6d61 |'Ima| 0176 6765 1c00 |ge | 0178 4620 |F | 0179 2020 2020 | | .BLANK 2020[0x8] 0181 2028 5265 | (Re| .XXX[0x1c] 0183 6c65 6173 |leas| 0185 652e 5375 |e.Su| 0187 7070 6f72 |ppor| 0189 7465 645f |ted_| 018b 4b65 7962 |Keyb| 018d 6f61 7264 |oard| 018f 7320 284b |s (K| 0191 6579 626f |eybo| 0193 6172 6429 |ard)| 0195 2e49 6420 |.Id | 0197 2a20 3820 |* 8 | 0199 2b20 3229 |+ 2)| 019b 3b46 004d |;F M| 019d 2020 2020 | | .BLANK 2020[0x6] 01a3 2d2d 2d2d |----| .XXX[0x22] 01a5 4964 2023 |Id #| 01a7 2061 7320 | as | 01a9 6120 7374 |a st| 01ab 7269 6e67 |ring| 01ad 2077 6974 | wit| 01af 6820 6120 |h a | 01b1 6c65 6164 |lead| 01b3 696e 6720 |ing | 01b5 7370 6163 |spac| 01b7 6520 6265 |e be| 01b9 6361 7573 |caus| 01bb 6520 6974 |e it| 01bd 2069 7320 | is | 01bf 706f 7369 |posi| 01c1 7469 7665 |tive| 01c3 2e4d 0044 |.M D| 01c5 2020 2020 | | .BLANK 2020[0x6] 01cb 4964 5f4e |Id_N| .XXX[0x1e] 01cd 6f20 3a20 |o : | 01cf 636f 6e73 |cons| 01d1 7461 6e74 |tant| 01d3 2053 7472 | Str| 01d5 696e 6720 |ing | 01d7 3a3d 2049 |:= I| 01d9 6420 2849 |d (I| 01db 6427 4669 |d'Fi| 01dd 7273 7420 |rst | 01df 2b20 3120 |+ 1 | 01e1 2e2e 2049 |.. I| 01e3 6427 4c61 |d'La| 01e5 7374 293b |st);| 01e7 4400 2e20 |D . | 01e9 2020 2020 | | .BLANK 2020[0x5] 01ee 202d 2d2d | ---| .XXX[0x12] 01f0 2d49 6420 |-Id | 01f2 2320 6173 |# as| 01f4 2061 2073 | a s| 01f6 7472 696e |trin| 01f8 6720 7769 |g wi| 01fa 7468 206e |th n| 01fc 6f20 6c65 |o le| 01fe 6164 692e |adi.|