|
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_0a7cf5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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 0198 | | .CONST 0x0198 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0031 | 1 | .CONST 0x0031 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 000b | | .CONST 0x000b ; Number of locals 001b INIT_0018: 001b 0092 0105 | | Action Push_String_Extended,0x105 ; "~COMMENT" 001d e001 | | Load 0x0,0x1 001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001f 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0020 02c7 | | Declare_Variable Any 0021 00d8 | | Load_Top At_Offset_0 0022 1c00 | | Execute_Immediate Run_Utility,0x0 0023 00e3 | | Load_Encached Natural_Cache 0024 03e9 | | Declare_Variable Discrete,Duplicate 0025 03e9 | | Declare_Variable Discrete,Duplicate 0026 03e9 | | Declare_Variable Discrete,Duplicate 0027 00e1 | | Load_Encached Boolean_Cache 0028 00e4 | | Load_Encached Positive_Cache 0029 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 002a e002 | | Load 0x0,0x2 002b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002c 02c7 | | Declare_Variable Any 002d 00d8 | | Load_Top At_Offset_0 002e 1c00 | | Execute_Immediate Run_Utility,0x0 002f 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 0031 BODY_0018: 0031 4801 |H | Short_Literal 0x1 0032 e001 | | Load 0x0,0x1 0033 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0034 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0035 e5fe | | Load 0x2,-0x2 0036 4801 |H | Short_Literal 0x1 0037 e003 | | Load 0x0,0x3 0038 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0039 0092 0106 | | Action Push_String_Extended,0x106 ; "." 003b 01cc | | Execute Vector,Catenate 003c e5fd | | Load 0x2,-0x3 003d 01cc | | Execute Vector,Catenate 003e 0092 0107 | | Action Push_String_Extended,0x107 ; ".APPENDIX_@" 0040 01cc | | Execute Vector,Catenate 0041 e001 | | Load 0x0,0x1 0042 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0043 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0044 c403 | | Store 0x2,0x3 0045 00cf | | Action Mark_Auxiliary 0046 780a |x | Jump 0x51 0047 840b | | Call 0x2,0xb 0048 00db | | Load_Top At_Offset_3 0049 0a01 | | Execute_Immediate Plus,0x1 004a c409 | | Store 0x2,0x9 004b e403 | | Load 0x2,0x3 004c e001 | | Load 0x0,0x1 004d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 004f c403 | | Store 0x2,0x3 0050 00c9 | | Action Pop_Auxiliary_Loop 0051 e403 | | Load 0x2,0x3 0052 e001 | | Load 0x0,0x1 0053 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0054 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0055 6ff1 |o | Jump_Zero 0x47 0056 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0057 0000 | | .XXX[0x1] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0064 | d | .CONST 0x0064 ; Address of begin 0059 006d | m | .CONST 0x006d ; Address of exception handler 005a 0003 | | .CONST 0x0003 ; Number of locals 005b INIT_0058: 005b e403 | | Load 0x2,0x3 005c e001 | | Load 0x0,0x1 005d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 005f e001 | | Load 0x0,0x1 0060 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0061 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0062 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 0064 BODY_0058: 0064 e40a | | Load 0x2,0xa 0065 00ea | | Load_Encached Null_String_Cache 0066 00db | | Load_Top At_Offset_3 0067 4800 |H | Short_Literal 0x0 0068 e002 | | Load 0x0,0x2 0069 1815 | | Execute Package,Field_Execute,Field_Number 0x15 006a c40a | | Store 0x2,0xa 006b 8603 | | Call 0x3,0x3 006c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 006d TRAP_0058: 006d e004 | | Load 0x0,0x4 006e 010f | | Execute Exception,Equal 006f 6801 |h | Jump_Zero 0x71 0070 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0071 00d8 | | Load_Top At_Offset_0 0072 0107 | | Execute Exception,Get_Name 0073 4930 |I0 | Short_Literal 0x130 0074 493f |I? | Short_Literal 0x13f 0075 0262 | b | Execute Discrete,In_Range 0076 6813 |h | Jump_Zero 0x8a 0077 e005 | | Load 0x0,0x5 0078 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0079 e005 | | Load 0x0,0x5 007a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 007b 00ea | | Load_Encached Null_String_Cache 007c e409 | | Load 0x2,0x9 007d e5ff | | Load 0x2,-0x1 007e e005 | | Load 0x0,0x5 007f 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 0080 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0081 e005 | | Load 0x0,0x5 0082 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0083 00ea | | Load_Encached Null_String_Cache 0084 e602 | | Load 0x3,0x2 0085 e5ff | | Load 0x2,-0x1 0086 e005 | | Load 0x0,0x5 0087 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 0088 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0089 4501 |E | Exit_Suprogram New_Top_Offset 0x1 008a 4800 |H | Short_Literal 0x0 008b 4800 |H | Short_Literal 0x0 008c 4807 |H | Short_Literal 0x7 008d 0092 0108 | | Action Push_String_Extended,0x108 ; "An unexpected exception was caught while opening appendix file '" 008f e602 | | Load 0x3,0x2 0090 01cc | | Execute Vector,Catenate 0091 0092 0109 | | Action Push_String_Extended,0x109 ; "'." 0093 01cc | | Execute Vector,Catenate 0094 0092 010a | | Action Push_String_Extended,0x10a ; "APPEND_APPENDICES" 0096 e006 | | Load 0x0,0x6 0097 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0098 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0099 0000 0000 | | .BLANK 0000[0x7] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a6 | | .CONST 0x00a6 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 e40a | | Load 0x2,0xa 00a4 e002 | | Load 0x0,0x2 00a5 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 00a6 BODY_00a0: 00a6 e40a | | Load 0x2,0xa 00a7 e002 | | Load 0x0,0x2 00a8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00a9 c40a | | Store 0x2,0xa 00aa 4801 |H | Short_Literal 0x1 00ab 00d9 | | Load_Top At_Offset_1 00ac e402 | | Load 0x2,0x2 00ad e007 | | Load 0x0,0x7 00ae 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00af a405 | | Store_Unchecked 0x2,0x5 00b0 4801 |H | Short_Literal 0x1 00b1 00d9 | | Load_Top At_Offset_1 00b2 4828 |H( | Short_Literal 0x28 00b3 e007 | | Load 0x0,0x7 00b4 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00b5 a406 | | Store_Unchecked 0x2,0x6 00b6 4801 |H | Short_Literal 0x1 00b7 00d9 | | Load_Top At_Offset_1 00b8 4829 |H) | Short_Literal 0x29 00b9 e007 | | Load 0x0,0x7 00ba 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00bb a407 | | Store_Unchecked 0x2,0x7 00bc e405 | | Load 0x2,0x5 00bd 6808 |h | Jump_Zero 0xc6 00be e406 | | Load 0x2,0x6 00bf e405 | | Load 0x2,0x5 00c0 027a | z | Execute Discrete,Less_Equal 00c1 7004 |p | Jump_Nonzero 0xc6 00c2 e407 | | Load 0x2,0x7 00c3 e406 | | Load 0x2,0x6 00c4 027a | z | Execute Discrete,Less_Equal 00c5 6822 |h" | Jump_Zero 0xe8 00c6 4800 |H | Short_Literal 0x0 00c7 4800 |H | Short_Literal 0x0 00c8 4807 |H | Short_Literal 0x7 00c9 0092 010b | | Action Push_String_Extended,0x10b ; "The appendix file named '" 00cb e602 | | Load 0x3,0x2 00cc 01cc | | Execute Vector,Catenate 00cd 0092 010c | | Action Push_String_Extended,0x10c ; "' has no " 00cf 01cc | | Execute Vector,Catenate 00d0 e402 | | Load 0x2,0x2 00d1 01cc | | Execute Vector,Catenate 00d2 0092 010d | | Action Push_String_Extended,0x10d ; "indicator or was missing title delimiters so no title could be generated. " 00d4 01cc | | Execute Vector,Catenate 00d5 0092 010e | | Action Push_String_Extended,0x10e ; "<TITLE_MISSING> will be used instead." 00d7 01cc | | Execute Vector,Catenate 00d8 0092 010a | | Action Push_String_Extended,0x10a ; "APPEND_APPENDICES" 00da e006 | | Load 0x0,0x6 00db 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00dc e005 | | Load 0x0,0x5 00dd 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00de e005 | | Load 0x0,0x5 00df 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00e0 0092 010f | | Action Push_String_Extended,0x10f ; "<TITLE MISSING>" 00e2 e409 | | Load 0x2,0x9 00e3 e5ff | | Load 0x2,-0x1 00e4 e005 | | Load 0x0,0x5 00e5 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 00e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e7 7814 |x | Jump 0xfc 00e8 e005 | | Load 0x0,0x5 00e9 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00ea e005 | | Load 0x0,0x5 00eb 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00ec e406 | | Load 0x2,0x6 00ed 0a01 | | Execute_Immediate Plus,0x1 00ee 00d8 | | Load_Top At_Offset_0 00ef 00e2 | | Load_Encached Integer_Cache 00f0 0260 | ` | Execute Discrete,In_Type 00f1 7001 |p | Jump_Nonzero 0xf3 00f2 0801 | | Execute_Immediate Raise,0x1 00f3 e407 | | Load 0x2,0x7 00f4 0aff | | Execute_Immediate Plus,-0x1 00f5 e802 | | Load 0x4,0x2 00f6 01cf | | Execute Vector,Slice_Read 00f7 e409 | | Load 0x2,0x9 00f8 e5ff | | Load 0x2,-0x1 00f9 e005 | | Load 0x0,0x5 00fa 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 00fb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00fc e005 | | Load 0x0,0x5 00fd 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00fe 00ea | | Load_Encached Null_String_Cache 00ff e602 | | Load 0x3,0x2 0100 e5ff | | Load 0x2,-0x1 0101 e005 | | Load 0x0,0x5 0102 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 0103 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0104 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0105 ; -------------------------------------------------------------------------------------- 0105 ; STRING TABLE 0105 ; -------------------------------------------------------------------------------------- 0105 0018 | | .STRTAB 0x0018->0x0111 ; "~COMMENT" 0106 001e | | .STRTAB 0x001e->0x0115 ; "." 0107 001d | | .STRTAB 0x001d->0x0115 ; ".APPENDIX_@" 0108 0026 | & | .STRTAB 0x0026->0x011b ; "An unexpected exception was caught while opening appendix file '" 0109 0064 | d | .STRTAB 0x0064->0x013b ; "'." 010a 0064 | d | .STRTAB 0x0064->0x013c ; "APPEND_APPENDICES" 010b 0073 | s | .STRTAB 0x0073->0x0144 ; "The appendix file named '" 010c 008a | | .STRTAB 0x008a->0x0151 ; "' has no " 010d 0091 | | .STRTAB 0x0091->0x0155 ; "indicator or was missing title delimiters so no title could be generated. " 010e 00da | | .STRTAB 0x00da->0x017b ; "<TITLE_MISSING> will be used instead." 010f 00fd | | .STRTAB 0x00fd->0x018d ; "<TITLE MISSING>" 0110 010a | | .STREND 0x010a->0x0195 0111 7e43 4f4d |~COM| .STRTAB_STRINGS 0195 0000 0000 | | .XXX[0x3] 0197 0000 | | 0198 ; -------------------------------------------------------------------------------------- 0198 ; Debug Table 0198 ; -------------------------------------------------------------------------------------- 0198 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc58,0x0000,0x0001,0x0000 019e 0000 0000 | | .BLANK 0000[0x62]