|
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_06e8fd
└─⟦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 01e0 | | .CONST 0x01e0 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0014 | | .CONST 0x0014 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000e | | .CONST 0x000e ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0011 00c7 | | Action Elaborate_Subprogram
0012 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0013 00c7 | | Action Elaborate_Subprogram
0014 BODY_0008:
0014 00bc | | Action Signal_Activated
0015 00bb | | Action Signal_Completion
0016 0000 0000 | | .XXX[0x2]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 001b | | .CONST 0x001b ; Address of begin
0019 002d | - | .CONST 0x002d ; Address of exception handler
001a 0001 | | .CONST 0x0001 ; Number of locals
001b BODY_0018:
001b INIT_0018:
001b 00da | | Load_Top At_Offset_2
001c 8002 | | Call 0x0,0x2
001d 680e |h | Jump_Zero 0x2c
001e e5fd | | Load 0x2,-0x3
001f 7009 |p | Jump_Nonzero 0x29
0020 0092 0174 | t| Action Push_String_Extended,0x174 ; "From task: "
0022 8003 | | Call 0x0,0x3
0023 00da | | Load_Top At_Offset_2
0024 8004 | | Call 0x0,0x4
0025 8003 | | Call 0x0,0x3
0026 0092 0175 | u| Action Push_String_Extended,0x175 ; ": "
0028 8003 | | Call 0x0,0x3
0029 00db | | Load_Top At_Offset_3
002a 8003 | | Call 0x0,0x3
002b 8005 | | Call 0x0,0x5
002c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
002d TRAP_0018:
002d 0007 | | Action Break_Optional
002e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
002f 0000 | | .XXX[0x1]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 004a | J | .CONST 0x004a ; Address of begin
0031 015a | Z | .CONST 0x015a ; Address of exception handler
0032 000a | | .CONST 0x000a ; Number of locals
0033 INIT_0030:
0033 00e5 | | Load_Encached Long_Integer_Cache
0034 00db | | Load_Top At_Offset_3
0035 01db | | Execute Vector,Length
0036 e006 | | Load 0x0,0x6
0037 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0038 1c08 | | Execute_Immediate Run_Utility,0x8
0039 00d8 | | Load_Top At_Offset_0
003a 1c00 | | Execute_Immediate Run_Utility,0x0
003b 00e3 | | Load_Encached Natural_Cache
003c 060a | | Execute_Immediate Set_Value_Unchecked,0xa
003d 00e2 | | Load_Encached Integer_Cache
003e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
003f e5fe | | Load 0x2,-0x2
0040 00e3 | | Load_Encached Natural_Cache
0041 03f1 | | Declare_Variable Discrete,With_Value
0042 00e3 | | Load_Encached Natural_Cache
0043 00e3 | | Load_Encached Natural_Cache
0044 00e1 | | Load_Encached Boolean_Cache
0045 0093 0000 | | push_full_address 0x0
0047 6128 |a( | Indirect_Literal Discrete,0x170,{0x80000000, 0x00010000}
0048 0273 | s | Execute Discrete,Plus
0049 0007 | | Action Break_Optional
004a BODY_0030:
004a e403 | | Load 0x2,0x3
004b 4820 |H | Short_Literal 0x20
004c e5ff | | Load 0x2,-0x1
004d e007 | | Load 0x0,0x7
004e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
004f e006 | | Load 0x0,0x6
0050 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0051 00d1 | | Pop_Control Pop_Count_1
0052 4800 |H | Short_Literal 0x0
0053 e403 | | Load 0x2,0x3
0054 e006 | | Load 0x0,0x6
0055 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0056 0092 0176 | v| Action Push_String_Extended,0x176 ; "#"
0058 e007 | | Load 0x0,0x7
0059 181d | | Execute Package,Field_Execute,Field_Number 0x1d
005a a407 | | Store_Unchecked 0x2,0x7
005b 4800 |H | Short_Literal 0x0
005c e403 | | Load 0x2,0x3
005d e006 | | Load 0x0,0x6
005e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
005f 0092 0177 | w| Action Push_String_Extended,0x177 ; "-"
0061 e007 | | Load 0x0,0x7
0062 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0063 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0064 e403 | | Load 0x2,0x3
0065 e006 | | Load 0x0,0x6
0066 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0067 7005 |p | Jump_Nonzero 0x6d
0068 0092 0178 | x| Action Push_String_Extended,0x178 ; "What number?\x0a"
006a 8008 | | Call 0x0,0x8
006b 00d8 | | Load_Top At_Offset_0
006c 0257 | W | Execute Discrete,Raise
006d 4801 |H | Short_Literal 0x1
006e e403 | | Load 0x2,0x3
006f e006 | | Load 0x0,0x6
0070 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0071 0f23 | # | Execute_Immediate Equal,0x23
0072 680d |h | Jump_Zero 0x80
0073 e403 | | Load 0x2,0x3
0074 4801 |H | Short_Literal 0x1
0075 4801 |H | Short_Literal 0x1
0076 e006 | | Load 0x0,0x6
0077 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0078 00d1 | | Pop_Control Pop_Count_1
0079 4810 |H | Short_Literal 0x10
007a a404 | | Store_Unchecked 0x2,0x4
007b e5fe | | Load 0x2,-0x2
007c 7065 |pe | Jump_Nonzero 0xe2
007d 480a |H | Short_Literal 0xa
007e a406 | | Store_Unchecked 0x2,0x6
007f 7862 |xb | Jump 0xe2
0080 00db | | Load_Top At_Offset_3
0081 685c |h\ | Jump_Zero 0xde
0082 00da | | Load_Top At_Offset_2
0083 0f01 | | Execute_Immediate Equal,0x1
0084 681b |h | Jump_Zero 0xa0
0085 00e1 | | Load_Encached Boolean_Cache
0086 00e2 | | Load_Encached Integer_Cache
0087 480a |H | Short_Literal 0xa
0088 e407 | | Load 0x2,0x7
0089 0aff | | Execute_Immediate Plus,-0x1
008a 00d8 | | Load_Top At_Offset_0
008b 00e3 | | Load_Encached Natural_Cache
008c 0260 | ` | Execute Discrete,In_Type
008d 7001 |p | Jump_Nonzero 0x8f
008e 0801 | | Execute_Immediate Raise,0x1
008f e408 | | Load 0x2,0x8
0090 0a01 | | Execute_Immediate Plus,0x1
0091 00d8 | | Load_Top At_Offset_0
0092 00e4 | | Load_Encached Positive_Cache
0093 0260 | ` | Execute Discrete,In_Type
0094 7001 |p | Jump_Nonzero 0x96
0095 0801 | | Execute_Immediate Raise,0x1
0096 e403 | | Load 0x2,0x3
0097 e006 | | Load 0x0,0x6
0098 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0099 e007 | | Load 0x0,0x7
009a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009b c404 | | Store 0x2,0x4
009c 005a | Z | Store_Top Discrete,At_Offset_2
009d 4fff |O | Short_Literal -0x1
009e a405 | | Store_Unchecked 0x2,0x5
009f 7812 |x | Jump 0xb2
00a0 00e1 | | Load_Encached Boolean_Cache
00a1 00e2 | | Load_Encached Integer_Cache
00a2 480a |H | Short_Literal 0xa
00a3 e407 | | Load 0x2,0x7
00a4 0aff | | Execute_Immediate Plus,-0x1
00a5 00d8 | | Load_Top At_Offset_0
00a6 00e3 | | Load_Encached Natural_Cache
00a7 0260 | ` | Execute Discrete,In_Type
00a8 7001 |p | Jump_Nonzero 0xaa
00a9 0801 | | Execute_Immediate Raise,0x1
00aa 4801 |H | Short_Literal 0x1
00ab e403 | | Load 0x2,0x3
00ac e006 | | Load 0x0,0x6
00ad 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00ae e007 | | Load 0x0,0x7
00af 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b0 c404 | | Store 0x2,0x4
00b1 005a | Z | Store_Top Discrete,At_Offset_2
00b2 00d9 | | Load_Top At_Offset_1
00b3 7005 |p | Jump_Nonzero 0xb9
00b4 0092 0179 | y| Action Push_String_Extended,0x179 ; "Illegal input base spec\x0a"
00b6 8008 | | Call 0x0,0x8
00b7 00d8 | | Load_Top At_Offset_0
00b8 0257 | W | Execute Discrete,Raise
00b9 e403 | | Load 0x2,0x3
00ba e407 | | Load 0x2,0x7
00bb 4801 |H | Short_Literal 0x1
00bc e006 | | Load 0x0,0x6
00bd 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00be 00d1 | | Pop_Control Pop_Count_1
00bf e403 | | Load 0x2,0x3
00c0 e006 | | Load 0x0,0x6
00c1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00c2 00d8 | | Load_Top At_Offset_0
00c3 00e4 | | Load_Encached Positive_Cache
00c4 0260 | ` | Execute Discrete,In_Type
00c5 7001 |p | Jump_Nonzero 0xc7
00c6 0801 | | Execute_Immediate Raise,0x1
00c7 e403 | | Load 0x2,0x3
00c8 e006 | | Load 0x0,0x6
00c9 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00ca 0f23 | # | Execute_Immediate Equal,0x23
00cb 680d |h | Jump_Zero 0xd9
00cc e403 | | Load 0x2,0x3
00cd 4801 |H | Short_Literal 0x1
00ce e403 | | Load 0x2,0x3
00cf e006 | | Load 0x0,0x6
00d0 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00d1 00d8 | | Load_Top At_Offset_0
00d2 00e4 | | Load_Encached Positive_Cache
00d3 0260 | ` | Execute Discrete,In_Type
00d4 7001 |p | Jump_Nonzero 0xd6
00d5 0801 | | Execute_Immediate Raise,0x1
00d6 e006 | | Load 0x0,0x6
00d7 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00d8 00d1 | | Pop_Control Pop_Count_1
00d9 e5fe | | Load 0x2,-0x2
00da 7007 |p | Jump_Nonzero 0xe2
00db 480a |H | Short_Literal 0xa
00dc a406 | | Store_Unchecked 0x2,0x6
00dd 7804 |x | Jump 0xe2
00de e5fe | | Load 0x2,-0x2
00df 7002 |p | Jump_Nonzero 0xe2
00e0 4810 |H | Short_Literal 0x10
00e1 a406 | | Store_Unchecked 0x2,0x6
00e2 e404 | | Load 0x2,0x4
00e3 4802 |H | Short_Literal 0x2
00e4 4810 |H | Short_Literal 0x10
00e5 0261 | a | Execute Discrete,Not_In_Range
00e6 6805 |h | Jump_Zero 0xec
00e7 0092 017a | z| Action Push_String_Extended,0x17a ; "Illegal input base\x0a"
00e9 8008 | | Call 0x0,0x8
00ea 00d8 | | Load_Top At_Offset_0
00eb 0257 | W | Execute Discrete,Raise
00ec e406 | | Load 0x2,0x6
00ed 4802 |H | Short_Literal 0x2
00ee 4810 |H | Short_Literal 0x10
00ef 0261 | a | Execute Discrete,Not_In_Range
00f0 6805 |h | Jump_Zero 0xf6
00f1 0092 017b | {| Action Push_String_Extended,0x17b ; "Illegal To_Base\x0a"
00f3 8008 | | Call 0x0,0x8
00f4 00d8 | | Load_Top At_Offset_0
00f5 0257 | W | Execute Discrete,Raise
00f6 e405 | | Load 0x2,0x5
00f7 4fff |O | Short_Literal -0x1
00f8 027f | | Execute Discrete,Equal
00f9 680e |h | Jump_Zero 0x108
00fa 00e1 | | Load_Encached Boolean_Cache
00fb 00e5 | | Load_Encached Long_Integer_Cache
00fc e404 | | Load 0x2,0x4
00fd 0092 0177 | w| Action Push_String_Extended,0x177 ; "-"
00ff e403 | | Load 0x2,0x3
0100 e006 | | Load 0x0,0x6
0101 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0102 01cc | | Execute Vector,Catenate
0103 e007 | | Load 0x0,0x7
0104 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0105 c402 | | Store 0x2,0x2
0106 005a | Z | Store_Top Discrete,At_Offset_2
0107 780a |x | Jump 0x112
0108 00e1 | | Load_Encached Boolean_Cache
0109 00e5 | | Load_Encached Long_Integer_Cache
010a e404 | | Load 0x2,0x4
010b e403 | | Load 0x2,0x3
010c e006 | | Load 0x0,0x6
010d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
010e e007 | | Load 0x0,0x7
010f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0110 c402 | | Store 0x2,0x2
0111 005a | Z | Store_Top Discrete,At_Offset_2
0112 00d9 | | Load_Top At_Offset_1
0113 7004 |p | Jump_Nonzero 0x118
0114 0092 017c | || Action Push_String_Extended,0x17c ; "Illegal Number representation\x0a"
0116 8008 | | Call 0x0,0x8
0117 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0118 e406 | | Load 0x2,0x6
0119 0f0a | | Execute_Immediate Equal,0xa
011a 680a |h | Jump_Zero 0x125
011b 480a |H | Short_Literal 0xa
011c 4820 |H | Short_Literal 0x20
011d 4800 |H | Short_Literal 0x0
011e e406 | | Load 0x2,0x6
011f e402 | | Load 0x2,0x2
0120 e007 | | Load 0x0,0x7
0121 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0122 01cb | | Execute Vector,Append
0123 8003 | | Call 0x0,0x3
0124 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0125 e402 | | Load 0x2,0x2
0126 0c00 | | Execute_Immediate Greater_Equal,0x0
0127 6817 |h | Jump_Zero 0x13f
0128 480a |H | Short_Literal 0xa
0129 4820 |H | Short_Literal 0x20
012a 4800 |H | Short_Literal 0x0
012b 480a |H | Short_Literal 0xa
012c e406 | | Load 0x2,0x6
012d e007 | | Load 0x0,0x7
012e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
012f 0092 0176 | v| Action Push_String_Extended,0x176 ; "#"
0131 01cc | | Execute Vector,Catenate
0132 4820 |H | Short_Literal 0x20
0133 4800 |H | Short_Literal 0x0
0134 e406 | | Load 0x2,0x6
0135 e402 | | Load 0x2,0x2
0136 e007 | | Load 0x0,0x7
0137 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0138 01cc | | Execute Vector,Catenate
0139 0092 0176 | v| Action Push_String_Extended,0x176 ; "#"
013b 01cc | | Execute Vector,Catenate
013c 01cb | | Execute Vector,Append
013d 8003 | | Call 0x0,0x3
013e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
013f 480a |H | Short_Literal 0xa
0140 0092 0177 | w| Action Push_String_Extended,0x177 ; "-"
0142 4820 |H | Short_Literal 0x20
0143 4800 |H | Short_Literal 0x0
0144 480a |H | Short_Literal 0xa
0145 e406 | | Load 0x2,0x6
0146 e007 | | Load 0x0,0x7
0147 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0148 01cc | | Execute Vector,Catenate
0149 0092 0176 | v| Action Push_String_Extended,0x176 ; "#"
014b 01cc | | Execute Vector,Catenate
014c 4820 |H | Short_Literal 0x20
014d 4800 |H | Short_Literal 0x0
014e e406 | | Load 0x2,0x6
014f e402 | | Load 0x2,0x2
0150 0274 | t | Execute Discrete,Absolute_Value
0151 e007 | | Load 0x0,0x7
0152 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0153 01cc | | Execute Vector,Catenate
0154 0092 0176 | v| Action Push_String_Extended,0x176 ; "#"
0156 01cc | | Execute Vector,Catenate
0157 01cb | | Execute Vector,Append
0158 8003 | | Call 0x0,0x3
0159 4503 |E | Exit_Suprogram New_Top_Offset 0x3
015a TRAP_0030:
015a 00d9 | | Load_Top At_Offset_1
015b 010f | | Execute Exception,Equal
015c 6801 |h | Jump_Zero 0x15e
015d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
015e 010e | | Execute Exception,Is_Constraint_Error
015f 6804 |h | Jump_Zero 0x164
0160 0092 017d | }| Action Push_String_Extended,0x17d ; "Illegal number format or value\x0a"
0162 8008 | | Call 0x0,0x8
0163 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0164 480a |H | Short_Literal 0xa
0165 0092 017e | ~| Action Push_String_Extended,0x17e ; "Exception raised during command processing: "
0167 e009 | | Load 0x0,0x9
0168 180d | | Execute Package,Field_Execute,Field_Number 0xd
0169 01cc | | Execute Vector,Catenate
016a 01cb | | Execute Vector,Append
016b 8008 | | Call 0x0,0x8
016c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
0170 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0174 ; --------------------------------------------------------------------------------------
0174 ; STRING TABLE
0174 ; --------------------------------------------------------------------------------------
0174 0018 | | .STRTAB 0x0018->0x0180 ; "From task: "
0175 0021 | ! | .STRTAB 0x0021->0x0185 ; ": "
0176 0021 | ! | .STRTAB 0x0021->0x0186 ; "#"
0177 0020 | | .STRTAB 0x0020->0x0187 ; "-"
0178 001f | | .STRTAB 0x001f->0x0187 ; "What number?\x0a"
0179 002a | * | .STRTAB 0x002a->0x018e ; "Illegal input base spec\x0a"
017a 0040 | @ | .STRTAB 0x0040->0x019a ; "Illegal input base\x0a"
017b 0051 | Q | .STRTAB 0x0051->0x01a3 ; "Illegal To_Base\x0a"
017c 005f | _ | .STRTAB 0x005f->0x01ab ; "Illegal Number representation\x0a"
017d 007b | { | .STRTAB 0x007b->0x01ba ; "Illegal number format or value\x0a"
017e 0098 | | .STRTAB 0x0098->0x01ca ; "Exception raised during command processing: "
017f 00c2 | | .STREND 0x00c2->0x01e0
0180 4672 6f6d |From| .STRTAB_STRINGS
01e0 ; --------------------------------------------------------------------------------------
01e0 ; Debug Table
01e0 ; --------------------------------------------------------------------------------------
01e0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x165a,0x0000,0x0001,0x0000
01e6 0000 0000 | | .BLANK 0000[0x1a]