|
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_03c0fe
└─⟦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 0130 | 0 | .CONST 0x0130 ; 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 005e | ^ | .CONST 0x005e ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0016 | | .CONST 0x0016 ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 001d 02c7 | | Declare_Variable Any 001e 00d8 | | Load_Top At_Offset_0 001f 1c00 | | Execute_Immediate Run_Utility,0x0 0020 e002 | | Load 0x0,0x2 0021 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0022 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0023 02c7 | | Declare_Variable Any 0024 00d8 | | Load_Top At_Offset_0 0025 1c00 | | Execute_Immediate Run_Utility,0x0 0026 e002 | | Load 0x0,0x2 0027 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0028 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0029 e002 | | Load 0x0,0x2 002a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002b e003 | | Load 0x0,0x3 002c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 002d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002e 02c7 | | Declare_Variable Any 002f 00d8 | | Load_Top At_Offset_0 0030 1c00 | | Execute_Immediate Run_Utility,0x0 0031 e003 | | Load 0x0,0x3 0032 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0034 02c7 | | Declare_Variable Any 0035 00d8 | | Load_Top At_Offset_0 0036 1c00 | | Execute_Immediate Run_Utility,0x0 0037 e003 | | Load 0x0,0x3 0038 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0039 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 003a 02c7 | | Declare_Variable Any 003b 00d8 | | Load_Top At_Offset_0 003c 1c00 | | Execute_Immediate Run_Utility,0x0 003d 00e5 | | Load_Encached Long_Integer_Cache 003e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 003f 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0041 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 0043 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call 0045 a004 | | Store_Unchecked 0x0,0x4 0046 00c6 | | Action Check_Subprogram_Elaborated 0047 00e5 | | Load_Encached Long_Integer_Cache 0048 4808 |H | Short_Literal 0x8 0049 484e |HN | Short_Literal 0x4e 004a 480e |H | Short_Literal 0xe 004b 4803 |H | Short_Literal 0x3 004c 480a |H | Short_Literal 0xa 004d 4802 |H | Short_Literal 0x2 004e 0099 | | Action Reference_Dynamic 004f 480c |H | Short_Literal 0xc 0050 4802 |H | Short_Literal 0x2 0051 0099 | | Action Reference_Dynamic 0052 480b |H | Short_Literal 0xb 0053 4802 |H | Short_Literal 0x2 0054 0099 | | Action Reference_Dynamic 0055 0093 0000 | | push_full_address 0x0 0057 609c |` | Indirect_Literal Discrete,0xf4,{0x80000000, 0x00010000} 0058 0273 | s | Execute Discrete,Plus 0059 e005 | | Load 0x0,0x5 005a 0273 | s | Execute Discrete,Plus 005b e006 | | Load 0x0,0x6 005c 0273 | s | Execute Discrete,Plus 005d 4816 |H | Short_Literal 0x16 005e BODY_0018: 005e 00be | | Action Activate_Tasks 005f e002 | | Load 0x0,0x2 0060 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0061 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0062 e403 | | Load 0x2,0x3 0063 608c |` | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00004000} 0064 e007 | | Load 0x0,0x7 0065 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0066 e008 | | Load 0x0,0x8 0067 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0068 e009 | | Load 0x0,0x9 0069 1811 | | Execute Package,Field_Execute,Field_Number 0x11 006a 4801 |H | Short_Literal 0x1 006b 4800 |H | Short_Literal 0x0 006c e008 | | Load 0x0,0x8 006d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 006e e002 | | Load 0x0,0x2 006f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0070 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0071 e5ff | | Load 0x2,-0x1 0072 e002 | | Load 0x0,0x2 0073 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0074 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0075 c403 | | Store 0x2,0x3 0076 c404 | | Store 0x2,0x4 0077 00cf | | Action Mark_Auxiliary 0078 786e |xn | Jump 0xe7 0079 e002 | | Load 0x0,0x2 007a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007b e402 | | Load 0x2,0x2 007c 0120 | | Execute Any,Is_Value 007d 6803 |h | Jump_Zero 0x81 007e e002 | | Load 0x0,0x2 007f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0080 7801 |x | Jump 0x82 0081 e402 | | Load 0x2,0x2 0082 e403 | | Load 0x2,0x3 0083 e002 | | Load 0x0,0x2 0084 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0085 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0086 c402 | | Store 0x2,0x2 0087 c405 | | Store 0x2,0x5 0088 e406 | | Load 0x2,0x6 0089 0120 | | Execute Any,Is_Value 008a 6804 |h | Jump_Zero 0x8f 008b e003 | | Load 0x0,0x3 008c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 008d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 008e 7801 |x | Jump 0x90 008f e406 | | Load 0x2,0x6 0090 e407 | | Load 0x2,0x7 0091 4800 |H | Short_Literal 0x0 0092 4800 |H | Short_Literal 0x0 0093 e007 | | Load 0x0,0x7 0094 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0095 e402 | | Load 0x2,0x2 0096 e003 | | Load 0x0,0x3 0097 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0098 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0099 c407 | | Store 0x2,0x7 009a c406 | | Store 0x2,0x6 009b e408 | | Load 0x2,0x8 009c e407 | | Load 0x2,0x7 009d e003 | | Load 0x0,0x3 009e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 009f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00a0 c408 | | Store 0x2,0x8 00a1 00cf | | Action Mark_Auxiliary 00a2 782a |x* | Jump 0xcd 00a3 e408 | | Load 0x2,0x8 00a4 e003 | | Load 0x0,0x3 00a5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00a6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00a7 a409 | | Store_Unchecked 0x2,0x9 00a8 e5fe | | Load 0x2,-0x2 00a9 6804 |h | Jump_Zero 0xae 00aa e5fe | | Load 0x2,-0x2 00ab e409 | | Load 0x2,0x9 00ac 027f | | Execute Discrete,Equal 00ad 6819 |h | Jump_Zero 0xc7 00ae e409 | | Load 0x2,0x9 00af 4801 |H | Short_Literal 0x1 00b0 e408 | | Load 0x2,0x8 00b1 e003 | | Load 0x0,0x3 00b2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b3 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00b4 e40d | | Load 0x2,0xd 00b5 e40e | | Load 0x2,0xe 00b6 e40f | | Load 0x2,0xf 00b7 e410 | | Load 0x2,0x10 00b8 e411 | | Load 0x2,0x11 00b9 4812 |H | Short_Literal 0x12 00ba 4802 |H | Short_Literal 0x2 00bb 0099 | | Action Reference_Dynamic 00bc 4813 |H | Short_Literal 0x13 00bd 4802 |H | Short_Literal 0x2 00be 0099 | | Action Reference_Dynamic 00bf 4814 |H | Short_Literal 0x14 00c0 4802 |H | Short_Literal 0x2 00c1 0099 | | Action Reference_Dynamic 00c2 4815 |H | Short_Literal 0x15 00c3 4802 |H | Short_Literal 0x2 00c4 0099 | | Action Reference_Dynamic 00c5 8004 | | Call 0x0,0x4 00c6 c409 | | Store 0x2,0x9 00c7 e408 | | Load 0x2,0x8 00c8 e003 | | Load 0x0,0x3 00c9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ca 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00cb c408 | | Store 0x2,0x8 00cc 00c9 | | Action Pop_Auxiliary_Loop 00cd e408 | | Load 0x2,0x8 00ce e003 | | Load 0x0,0x3 00cf 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00d0 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 00d1 6fd1 |o | Jump_Zero 0xa3 00d2 00ce | | Action Pop_Auxiliary 00d3 e406 | | Load 0x2,0x6 00d4 0120 | | Execute Any,Is_Value 00d5 6804 |h | Jump_Zero 0xda 00d6 e003 | | Load 0x0,0x3 00d7 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d9 7801 |x | Jump 0xdb 00da e406 | | Load 0x2,0x6 00db e407 | | Load 0x2,0x7 00dc e003 | | Load 0x0,0x3 00dd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00de 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00df c407 | | Store 0x2,0x7 00e0 c406 | | Store 0x2,0x6 00e1 e403 | | Load 0x2,0x3 00e2 e002 | | Load 0x0,0x2 00e3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00e4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00e5 c403 | | Store 0x2,0x3 00e6 00c9 | | Action Pop_Auxiliary_Loop 00e7 e403 | | Load 0x2,0x3 00e8 e002 | | Load 0x0,0x2 00e9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00ea 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00eb 6f8d |o | Jump_Zero 0x79 00ec 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ed 0000 0000 | | .XXX[0x3] 00ef 0000 | | 00f0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 00f4 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 4801 |H | Short_Literal 0x1 00fc e00a | | Load 0x0,0xa 00fd 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ff 0000 | | .XXX[0x1] 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 00db | | Load_Top At_Offset_3 0104 6810 |h | Jump_Zero 0x115 0105 0092 0127 | '| Action Push_String_Extended,0x127 ; "#" 0107 4820 |H | Short_Literal 0x20 0108 4800 |H | Short_Literal 0x0 0109 480a |H | Short_Literal 0xa 010a e7fe | | Load 0x3,-0x2 010b e00b | | Load 0x0,0xb 010c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 010d 01cc | | Execute Vector,Catenate 010e 0092 0128 | (| Action Push_String_Extended,0x128 ; ": " 0110 01cc | | Execute Vector,Catenate 0111 e00a | | Load 0x0,0xa 0112 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0113 4800 |H | Short_Literal 0x0 0114 a7fe | | Store_Unchecked 0x3,-0x2 0115 00da | | Load_Top At_Offset_2 0116 e00a | | Load 0x0,0xa 0117 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0118 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0119 0000 0000 | | .BLANK 0000[0x7] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 0124 e00a | | Load 0x0,0xa 0125 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 0126 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0127 ; -------------------------------------------------------------------------------------- 0127 ; STRING TABLE 0127 ; -------------------------------------------------------------------------------------- 0127 0006 | | .STRTAB 0x0006->0x012a ; "#" 0128 0005 | | .STRTAB 0x0005->0x012a ; ": " 0129 0006 | | .STREND 0x0006->0x012c 012a 233a 2020 |#: | .STRTAB_STRINGS 012c 0000 0000 | | .BLANK 0000[0x4] 0130 ; -------------------------------------------------------------------------------------- 0130 ; Debug Table 0130 ; -------------------------------------------------------------------------------------- 0130 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc023,0x0000,0x0001,0x0000 0136 0000 0000 | | .BLANK 0000[0xca]