|
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_779ce4
└─⟦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 0120 | | .CONST 0x0120 ; 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 001d | | .CONST 0x001d ; Address of begin 0009 003d | = | .CONST 0x003d ; Address of exception handler 000a 0009 | | .CONST 0x0009 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4802 |H | Short_Literal 0x2 000d 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 000f 03fd | | Declare_Type Discrete,Defined 0010 e006 | | Load 0x0,0x6 0011 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0012 e006 | | Load 0x0,0x6 0013 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0014 00e1 | | Load_Encached Boolean_Cache 0015 00db | | Load_Top At_Offset_3 0016 0007 | | Action Break_Optional 0017 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call 0019 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 001b 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 001d BODY_0008: 001d 00e1 | | Load_Encached Boolean_Cache 001e e006 | | Load 0x0,0x6 001f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0020 e006 | | Load 0x0,0x6 0021 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0022 8224 | $ | Call 0x1,0x24 0023 c403 | | Store 0x2,0x3 0024 c404 | | Store 0x2,0x4 0025 c405 | | Store 0x2,0x5 0026 e405 | | Load 0x2,0x5 0027 6812 |h | Jump_Zero 0x3a 0028 8409 | | Call 0x2,0x9 0029 a406 | | Store_Unchecked 0x2,0x6 002a 00db | | Load_Top At_Offset_3 002b e402 | | Load 0x2,0x2 002c 011c | | Execute Any,Convert_Unchecked 002d 1c01 | | Execute_Immediate Run_Utility,0x1 002e 0092 00c6 | | Action Push_String_Extended,0xc6 ; " exception - " 0030 01cc | | Execute Vector,Catenate 0031 e406 | | Load 0x2,0x6 0032 8408 | | Call 0x2,0x8 0033 01cc | | Execute Vector,Catenate 0034 0092 00c7 | | Action Push_String_Extended,0xc7 ; ". Raised at - " 0036 01cc | | Execute Vector,Catenate 0037 8407 | | Call 0x2,0x7 0038 01cc | | Execute Vector,Catenate 0039 00ca | | Action Exit_Nullary_Function 003a 0092 00c8 | | Action Push_String_Extended,0xc8 ; "<Couldn't find any exception>" 003c 00ca | | Action Exit_Nullary_Function 003d TRAP_0008: 003d 0007 | | Action Break_Optional 003e 0092 00c9 | | Action Push_String_Extended,0xc9 ; "<Exception while processing exception info>" 0040 00ca | | Action Exit_Nullary_Function 0041 0000 0000 | | .BLANK 0000[0x7] 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 4607 |F | Jump_Case 0x8 004c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 004d 7807 |x | Jump 0x55 ; case 0x1 004e 780a |x | Jump 0x59 ; case 0x2 004f 780e |x | Jump 0x5e ; case 0x3 0050 7811 |x | Jump 0x62 ; case 0x4 0051 7812 |x | Jump 0x64 ; case 0x5 0052 7813 |x | Jump 0x66 ; case 0x6 0053 7816 |x | Jump 0x6a ; case 0x7 0054 4302 |C | .XXX[0x1] 0055 00da | | Load_Top At_Offset_2 0056 0091 00c3 | | Action Push_String_Extended_Indexed,0xc3 ; "ENVIRONMENT" 0058 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0059 00db | | Load_Top At_Offset_3 005a 00db | | Load_Top At_Offset_3 005b 00e0 | | Load_Encached Standard_Cache 005c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 005d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 005e 00da | | Load_Top At_Offset_2 005f 00e0 | | Load_Encached Standard_Cache 0060 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0061 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0062 00db | | Load_Top At_Offset_3 0063 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0064 00db | | Load_Top At_Offset_3 0065 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0066 e402 | | Load 0x2,0x2 0067 00dc | | Load_Top At_Offset_4 0068 0267 | g | Execute Discrete,Predecessor 0069 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006a e402 | | Load 0x2,0x2 006b 00dc | | Load_Top At_Offset_4 006c 0268 | h | Execute Discrete,Successor 006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006e 0000 0000 | | .XXX[0x2] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 0092 00ca | | Action Push_String_Extended,0xca ; "<Name = 16#" 0075 4820 |H | Short_Literal 0x20 0076 4800 |H | Short_Literal 0x0 0077 4810 |H | Short_Literal 0x10 0078 e404 | | Load 0x2,0x4 0079 e006 | | Load 0x0,0x6 007a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 007b e007 | | Load 0x0,0x7 007c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 007d 01cc | | Execute Vector,Catenate 007e 0092 00cb | | Action Push_String_Extended,0xcb ; "#, Offset = 16#" 0080 01cc | | Execute Vector,Catenate 0081 4820 |H | Short_Literal 0x20 0082 4800 |H | Short_Literal 0x0 0083 4810 |H | Short_Literal 0x10 0084 e404 | | Load 0x2,0x4 0085 e006 | | Load 0x0,0x6 0086 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0087 e007 | | Load 0x0,0x7 0088 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0089 01cc | | Execute Vector,Catenate 008a 0092 00cc | | Action Push_String_Extended,0xcc ; "#>" 008c 01cc | | Execute Vector,Catenate 008d 00ca | | Action Exit_Nullary_Function 008e 0000 0000 | | .XXX[0x2] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 0094 4800 |H | Short_Literal 0x0 0095 4801 |H | Short_Literal 0x1 0096 0262 | b | Execute Discrete,In_Range 0097 700d |p | Jump_Nonzero 0xa5 0098 0092 00cd | | Action Push_String_Extended,0xcd ; "(16#" 009a 4820 |H | Short_Literal 0x20 009b 4800 |H | Short_Literal 0x0 009c 4810 |H | Short_Literal 0x10 009d e403 | | Load 0x2,0x3 009e e007 | | Load 0x0,0x7 009f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00a0 01cc | | Execute Vector,Catenate 00a1 0092 00ce | | Action Push_String_Extended,0xce ; "#)" 00a3 01cc | | Execute Vector,Catenate 00a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a5 4801 |H | Short_Literal 0x1 00a6 e403 | | Load 0x2,0x3 00a7 e008 | | Load 0x0,0x8 00a8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00aa 0000 0000 | | .BLANK 0000[0x6] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 e403 | | Load 0x2,0x3 00b4 09f9 | | Execute_Immediate Binary_Scale,-0x7 00b5 4801 |H | Short_Literal 0x1 00b6 0279 | y | Execute Discrete,And 00b7 7002 |p | Jump_Nonzero 0xba 00b8 4800 |H | Short_Literal 0x0 00b9 00ca | | Action Exit_Nullary_Function 00ba e403 | | Load 0x2,0x3 00bb 09f8 | | Execute_Immediate Binary_Scale,-0x8 00bc 4801 |H | Short_Literal 0x1 00bd 0279 | y | Execute Discrete,And 00be 7002 |p | Jump_Nonzero 0xc1 00bf 4801 |H | Short_Literal 0x1 00c0 00ca | | Action Exit_Nullary_Function 00c1 4802 |H | Short_Literal 0x2 00c2 00ca | | Action Exit_Nullary_Function 00c3 ; -------------------------------------------------------------------------------------- 00c3 ; STRING TABLE 00c3 ; -------------------------------------------------------------------------------------- 00c3 001a | | .STRTAB 0x001a->0x00d0 ; "ENVIRONMENT" 00c4 0023 | # | .STRTAB 0x0023->0x00d5 ; "NATIVE" 00c5 0027 | ' | .STRTAB 0x0027->0x00d8 ; "ARCHIVE" 00c6 002c | , | .STRTAB 0x002c->0x00dc ; " exception - " 00c7 0037 | 7 | .STRTAB 0x0037->0x00e2 ; ". Raised at - " 00c8 0043 | C | .STRTAB 0x0043->0x00e9 ; "<Couldn't find any exception>" 00c9 005e | ^ | .STRTAB 0x005e->0x00f8 ; "<Exception while processing exception info>" 00ca 0087 | | .STRTAB 0x0087->0x010d ; "<Name = 16#" 00cb 0090 | | .STRTAB 0x0090->0x0113 ; "#, Offset = 16#" 00cc 009d | | .STRTAB 0x009d->0x011a ; "#>" 00cd 009d | | .STRTAB 0x009d->0x011b ; "(16#" 00ce 009f | | .STRTAB 0x009f->0x011d ; "#)" 00cf 009f | | .STREND 0x009f->0x011e 00d0 454e 5649 |ENVI| .STRTAB_STRINGS 011f 0000 | | .XXX[0x1] 0120 ; -------------------------------------------------------------------------------------- 0120 ; Debug Table 0120 ; -------------------------------------------------------------------------------------- 0120 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5ddf,0x0000,0x0001,0x0000 0126 0000 0000 | | .BLANK 0000[0xda]