|
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_03b8fe
└─⟦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 00a0 | | .CONST 0x00a0 ; 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 0013 | | .CONST 0x0013 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 00e5 | | Load_Encached Long_Integer_Cache
000c 0129 | ) | Execute Any,Make_Visible
000d 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 00e5 | | Load_Encached Long_Integer_Cache
0011 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0012 00c7 | | Action Elaborate_Subprogram
0013 BODY_0008:
0013 00bc | | Action Signal_Activated
0014 00bb | | Action Signal_Completion
0015 0000 0000 | | .XXX[0x3]
0017 0000 | |
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 003b | ; | .CONST 0x003b ; Address of begin
0019 0050 | P | .CONST 0x0050 ; Address of exception handler
001a 000b | | .CONST 0x000b ; Number of locals
001b INIT_0018:
001b 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call
001d e5fe | | Load 0x2,-0x2
001e 0007 | | Action Break_Optional
001f 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
0021 4801 |H | Short_Literal 0x1
0022 4900 |I | Short_Literal 0x100
0023 00e9 | | Load_Encached String_Cache
0024 0334 | 4 | Declare_Variable Array,With_Constraint
0025 00e2 | | Load_Encached Integer_Cache
0026 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0027 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
0029 4800 |H | Short_Literal 0x0
002a 6031 |`1 | Indirect_Literal Discrete,0x5c,{0x00000000, 0x0fffffff}
002b 00e5 | | Load_Encached Long_Integer_Cache
002c 03f8 | | Declare_Type Discrete,Constrained
002d 00d8 | | Load_Top At_Offset_0
002e 0007 | | Action Break_Optional
002f e5ff | | Load 0x2,-0x1
0030 e001 | | Load 0x0,0x1
0031 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0032 e5ff | | Load 0x2,-0x1
0033 e001 | | Load 0x0,0x1
0034 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0035 09fc | | Execute_Immediate Binary_Scale,-0x4
0036 00d8 | | Load_Top At_Offset_0
0037 e409 | | Load 0x2,0x9
0038 0260 | ` | Execute Discrete,In_Type
0039 7001 |p | Jump_Nonzero BODY_0018
003a 08e0 | | Execute_Immediate Raise,0xe0
003b BODY_0018:
003b 4801 |H | Short_Literal 0x1
003c 8404 | | Call 0x2,0x4
003d 6805 |h | Jump_Zero 0x43
003e 485e |H^ | Short_Literal 0x5e
003f e40a | | Load 0x2,0xa
0040 8402 | | Call 0x2,0x2
0041 01ca | | Execute Vector,Prepend
0042 8407 | | Call 0x2,0x7
0043 4810 |H | Short_Literal 0x10
0044 8404 | | Call 0x2,0x4
0045 6805 |h | Jump_Zero 0x4b
0046 485e |H^ | Short_Literal 0x5e
0047 e40b | | Load 0x2,0xb
0048 8402 | | Call 0x2,0x2
0049 01ca | | Execute Vector,Prepend
004a 8407 | | Call 0x2,0x7
004b 4802 |H | Short_Literal 0x2
004c e406 | | Load 0x2,0x6
004d e405 | | Load 0x2,0x5
004e 01cf | | Execute Vector,Slice_Read
004f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0050 TRAP_0018:
0050 0007 | | Action Break_Optional
0051 4820 |H | Short_Literal 0x20
0052 e40a | | Load 0x2,0xa
0053 8402 | | Call 0x2,0x2
0054 01cb | | Execute Vector,Append
0055 e40b | | Load 0x2,0xb
0056 8402 | | Call 0x2,0x2
0057 01cc | | Execute Vector,Catenate
0058 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0059 0000 0000 | | .XXX[0x3]
005b 0000 | |
005c 0000 0000 | | .LITERAL {0x00000000, 0x0fffffff}
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 0092 009c | | Action Push_String_Extended,0x9c ; "#"
0065 4820 |H | Short_Literal 0x20
0066 4800 |H | Short_Literal 0x0
0067 4810 |H | Short_Literal 0x10
0068 e7ff | | Load 0x3,-0x1
0069 e002 | | Load 0x0,0x2
006a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
006b 01cc | | Execute Vector,Catenate
006c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
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 e7ff | | Load 0x3,-0x1
0074 e403 | | Load 0x2,0x3
0075 e003 | | Load 0x0,0x3
0076 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0077 0e00 | | Execute_Immediate Not_Equal,0x0
0078 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0079 0000 0000 | | .BLANK 0000[0x7]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0086 | | .CONST 0x0086 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0002 | | .CONST 0x0002 ; Number of locals
0083 INIT_0080:
0083 e7ff | | Load 0x3,-0x1
0084 01db | | Execute Vector,Length
0085 0007 | | Action Break_Optional
0086 BODY_0080:
0086 e406 | | Load 0x2,0x6
0087 0a01 | | Execute_Immediate Plus,0x1
0088 c406 | | Store 0x2,0x6
0089 4820 |H | Short_Literal 0x20
008a e406 | | Load 0x2,0x6
008b e405 | | Load 0x2,0x5
008c 01d6 | | Execute Vector,Field_Write
008d e7ff | | Load 0x3,-0x1
008e e406 | | Load 0x2,0x6
008f 0a01 | | Execute_Immediate Plus,0x1
0090 0248 | H | Execute Discrete,Check_In_Integer
0091 e406 | | Load 0x2,0x6
0092 e602 | | Load 0x3,0x2
0093 0273 | s | Execute Discrete,Plus
0094 0248 | H | Execute Discrete,Check_In_Integer
0095 e405 | | Load 0x2,0x5
0096 01ce | | Execute Vector,Slice_Write
0097 e406 | | Load 0x2,0x6
0098 e602 | | Load 0x3,0x2
0099 0273 | s | Execute Discrete,Plus
009a c406 | | Store 0x2,0x6
009b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009c ; --------------------------------------------------------------------------------------
009c ; STRING TABLE
009c ; --------------------------------------------------------------------------------------
009c 0004 | | .STRTAB 0x0004->0x009e ; "#"
009d 0003 | | .STREND 0x0003->0x009e
009e 2300 |# | .STRTAB_STRINGS
009f 0000 | | .XXX[0x1]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; Debug Table
00a0 ; --------------------------------------------------------------------------------------
00a0 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb42,0x0000,0x0001,0x0000
00a6 0000 0000 | | .BLANK 0000[0x8e]
0134 1010 01c0 | | .XXX[0x2]
0136 0000 0000 | | .BLANK 0000[0x8]
013e 0199 fc80 | | .XXX[0x15]
0140 0032 06b0 | 2 |
0142 0000 027d | }|
0144 5600 0000 |V |
0146 0066 b800 | f |
0148 0660 0f70 | ` p|
014a 6304 f000 |c |
014c 0000 0000 | |
014e 0186 01a2 | |
0150 f000 6686 | f |
0152 c000 | |
0153 0000 0000 | | .BLANK 0000[0x4]
0157 66b0 6000 |f ` | .XXX[0xb]
0159 0cd0 d800 | |
015b 0000 8318 | |
015d 0780 6693 | f |
015f 6000 0004 |` |
0161 e000 | |
0162 0000 0000 | | .BLANK 0000[0x4]
0166 66ce 6000 |f ` | .XXX[0x1c]
0168 0cd0 d800 | |
016a 0000 9a85 | |
016c 8067 2660 | g&`|
016e 0000 0007 | |
0170 8000 0000 | |
0172 0000 0000 | |
0174 0027 62e0 | 'b |
0176 19c9 9800 | |
0178 0000 002c | ,|
017a 0000 0000 | |
017c 4508 c033 |E 3|
017e 8b90 0000 | |
0180 0005 2000 | |
0182 0000 0000 | | .BLANK 0000[0x6]
0188 0800 0000 | | .XXX[0x1a]
018a 019b e0c2 | |
018c 2400 3393 |$ 3 |
018e 3000 0000 |0 |
0190 0338 8400 | 8 |
0192 6785 f1a7 |g |
0194 e00d 0c60 | `|
0196 0000 0000 | |
0198 ce2e 4033 | .@3|
019a 74a0 0cda |t |
019c c135 0b00 | 5 |
019e cf12 8000 | |
01a0 0000 14a0 | |
01a2 0000 0000 | | .BLANK 0000[0x4]
01a6 4ec5 c033 |N 3| .XXX[0xd]
01a8 c4a0 0000 | |
01aa 0000 5800 | X |
01ac 0000 008a | |
01ae 1180 677a | gz|
01b0 0000 0000 | |
01b2 04d0 | |
01b3 0000 0000 | | .BLANK 0000[0x6]
01b9 0010 0000 | | .XXX[0x2a]
01bb 0003 3ad8 | : |
01bd 8448 0067 | H g|
01bf 8940 0000 | @ |
01c1 0006 7736 | w6|
01c3 00cf cae3 | |
01c5 4fc0 1a18 |O |
01c7 c000 0000 | |
01c9 019d e800 | |
01cb 674c 2019 |gL |
01cd ce3a 5c10 | :\ |
01cf 019f a300 | |
01d1 0000 001f | |
01d3 8000 0000 | |
01d5 0064 ec5c | d \|
01d7 033f 4600 | ?F |
01d9 0000 0024 | $|
01db 0000 0000 | |
01dd 08a1 1806 | |
01df 7d98 0000 |} |
01e1 0000 2a00 | * |
01e3 0000 0000 | | .BLANK 0000[0x6]
01e9 0100 0000 | | .XXX[0x17]
01eb 0033 dd48 | 3 H|
01ed 4480 067e |D ~|
01ef 8c00 0000 | |
01f1 0067 d2e0 | g |
01f3 0d09 a634 | 4|
01f5 fc01 a18c | |
01f7 0000 0000 | |
01f9 19f6 6006 | ` |
01fb 7aba 019e |z |
01fd 6f25 c100 |o% |
01ff 1a14 | |