|
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_191cd7
└─⟦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 0118 | | .CONST 0x0118 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 002c | , | .CONST 0x002c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated
000d 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
000f 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
0011 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
0013 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
0015 00bf | | Action Accept_Activation
0016 00e1 | | Load_Encached Boolean_Cache
0017 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0018 e002 | | Load 0x0,0x2
0019 e003 | | Load 0x0,0x3
001a 00e2 | | Load_Encached Integer_Cache
001b e004 | | Load 0x0,0x4
001c 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
001d 0387 | | Declare_Variable Package
001e 00d8 | | Load_Top At_Offset_0
001f 020f | | Execute Module,Activate
0020 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0021 00c7 | | Action Elaborate_Subprogram
0022 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0023 00c7 | | Action Elaborate_Subprogram
0024 029d 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call
0026 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0027 00c7 | | Action Elaborate_Subprogram
0028 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0029 00c7 | | Action Elaborate_Subprogram
002a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002b 00c7 | | Action Elaborate_Subprogram
002c BODY_0008:
002c 00bc | | Action Signal_Activated
002d 00bb | | Action Signal_Completion
002e 0000 0000 | | .XXX[0x2]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 4801 |H | Short_Literal 0x1
0034 a212 | | Store_Unchecked 0x1,0x12
0035 00da | | Load_Top At_Offset_2
0036 0092 0108 | | Action Push_String_Extended,0x108 ; " *** "
0038 8214 | | Call 0x1,0x14
0039 4502 |E | Exit_Suprogram New_Top_Offset 0x2
003a 0000 0000 | | .BLANK 0000[0x6]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 00da | | Load_Top At_Offset_2
0044 0092 0109 | | Action Push_String_Extended,0x109 ; " !!! "
0046 8214 | | Call 0x1,0x14
0047 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2
004c 0092 010a | | Action Push_String_Extended,0x10a ; " --- "
004e 8214 | | Call 0x1,0x14
004f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2
0054 a212 | | Store_Unchecked 0x1,0x12
0055 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0056 0000 0000 | | .XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b e212 | | Load 0x1,0x12
005c 00ca | | Action Exit_Nullary_Function
005d 0000 0000 | | .XXX[0x3]
005f 0000 | |
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 00b3 | | .CONST 0x00b3 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0007 | | .CONST 0x0007 ; Number of locals
0063 INIT_0060:
0063 e005 | | Load 0x0,0x5
0064 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0065 e005 | | Load 0x0,0x5
0066 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0067 e005 | | Load 0x0,0x5
0068 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0069 03f1 | | Declare_Variable Discrete,With_Value
006a 00d8 | | Load_Top At_Offset_0
006b 6098 |` | Indirect_Literal Discrete,0x104,{0x00000000, 0x07080000}
006c 0270 | p | Execute Discrete,Divide
006d 00d8 | | Load_Top At_Offset_0
006e 00e3 | | Load_Encached Natural_Cache
006f 0260 | ` | Execute Discrete,In_Type
0070 7001 |p | Jump_Nonzero 0x72
0071 0801 | | Execute_Immediate Raise,0x1
0072 00e3 | | Load_Encached Natural_Cache
0073 03f1 | | Declare_Variable Discrete,With_Value
0074 4ff1 |O | Short_Literal -0xf
0075 00d9 | | Load_Top At_Offset_1
0076 090f | | Execute_Immediate Binary_Scale,0xf
0077 e005 | | Load 0x0,0x5
0078 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0079 025e | ^ | Execute Discrete,Convert
007a 6089 |` | Indirect_Literal Discrete,0x104,{0x00000000, 0x07080000}
007b 0141 | A | Execute Discrete,Multiply_And_Scale
007c 00d8 | | Load_Top At_Offset_0
007d e005 | | Load 0x0,0x5
007e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
007f 0260 | ` | Execute Discrete,In_Type
0080 7001 |p | Jump_Nonzero 0x82
0081 0801 | | Execute_Immediate Raise,0x1
0082 e005 | | Load 0x0,0x5
0083 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0084 03f1 | | Declare_Variable Discrete,With_Value
0085 00da | | Load_Top At_Offset_2
0086 00d9 | | Load_Top At_Offset_1
0087 0272 | r | Execute Discrete,Minus
0088 6077 |`w | Indirect_Literal Discrete,0x100,{0x00000000, 0x001e0000}
0089 0270 | p | Execute Discrete,Divide
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 00e3 | | Load_Encached Natural_Cache
0090 03f1 | | Declare_Variable Discrete,With_Value
0091 4ff1 |O | Short_Literal -0xf
0092 00d9 | | Load_Top At_Offset_1
0093 090f | | Execute_Immediate Binary_Scale,0xf
0094 e005 | | Load 0x0,0x5
0095 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0096 025e | ^ | Execute Discrete,Convert
0097 6068 |`h | Indirect_Literal Discrete,0x100,{0x00000000, 0x001e0000}
0098 0141 | A | Execute Discrete,Multiply_And_Scale
0099 00d8 | | Load_Top At_Offset_0
009a e005 | | Load 0x0,0x5
009b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
009c 0260 | ` | Execute Discrete,In_Type
009d 7001 |p | Jump_Nonzero 0x9f
009e 0801 | | Execute_Immediate Raise,0x1
009f e005 | | Load 0x0,0x5
00a0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a1 03f1 | | Declare_Variable Discrete,With_Value
00a2 e402 | | Load 0x2,0x2
00a3 00db | | Load_Top At_Offset_3
00a4 0272 | r | Execute Discrete,Minus
00a5 00d9 | | Load_Top At_Offset_1
00a6 0272 | r | Execute Discrete,Minus
00a7 00d8 | | Load_Top At_Offset_0
00a8 0c00 | | Execute_Immediate Greater_Equal,0x0
00a9 7002 |p | Jump_Nonzero 0xac
00aa 6051 |`Q | Indirect_Literal Discrete,0xfc,{0xffffffff, 0xffffc000}
00ab 7801 |x | Jump 0xad
00ac 604b |`K | Indirect_Literal Discrete,0xf8,{0x00000000, 0x00004000}
00ad 0273 | s | Execute Discrete,Plus
00ae 09f1 | | Execute_Immediate Binary_Scale,-0xf
00af 00e3 | | Load_Encached Natural_Cache
00b0 025e | ^ | Execute Discrete,Convert
00b1 00e3 | | Load_Encached Natural_Cache
00b2 03f1 | | Declare_Variable Discrete,With_Value
00b3 BODY_0060:
00b3 e403 | | Load 0x2,0x3
00b4 0d0a | | Execute_Immediate Less,0xa
00b5 6805 |h | Jump_Zero 0xbb
00b6 4830 |H0 | Short_Literal 0x30
00b7 e004 | | Load 0x0,0x4
00b8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00b9 e004 | | Load 0x0,0x4
00ba 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
00bb e213 | | Load 0x1,0x13
00bc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00bd 4800 |H | Short_Literal 0x0
00be e403 | | Load 0x2,0x3
00bf e004 | | Load 0x0,0x4
00c0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00c1 e213 | | Load 0x1,0x13
00c2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c3 483a |H: | Short_Literal 0x3a
00c4 e004 | | Load 0x0,0x4
00c5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00c6 e004 | | Load 0x0,0x4
00c7 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
00c8 00da | | Load_Top At_Offset_2
00c9 0d0a | | Execute_Immediate Less,0xa
00ca 6805 |h | Jump_Zero 0xd0
00cb 4830 |H0 | Short_Literal 0x30
00cc e004 | | Load 0x0,0x4
00cd 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00ce e004 | | Load 0x0,0x4
00cf 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
00d0 e213 | | Load 0x1,0x13
00d1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00d2 4800 |H | Short_Literal 0x0
00d3 e405 | | Load 0x2,0x5
00d4 e004 | | Load 0x0,0x4
00d5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00d6 e213 | | Load 0x1,0x13
00d7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00d8 483a |H: | Short_Literal 0x3a
00d9 e004 | | Load 0x0,0x4
00da 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00db e004 | | Load 0x0,0x4
00dc 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
00dd 00d8 | | Load_Top At_Offset_0
00de 0d0a | | Execute_Immediate Less,0xa
00df 6805 |h | Jump_Zero 0xe5
00e0 4830 |H0 | Short_Literal 0x30
00e1 e004 | | Load 0x0,0x4
00e2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00e3 e004 | | Load 0x0,0x4
00e4 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
00e5 e213 | | Load 0x1,0x13
00e6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00e7 4800 |H | Short_Literal 0x0
00e8 00da | | Load_Top At_Offset_2
00e9 e004 | | Load 0x0,0x4
00ea 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00eb e213 | | Load 0x1,0x13
00ec 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ed e5ff | | Load 0x2,-0x1
00ee e004 | | Load 0x0,0x4
00ef 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00f0 e004 | | Load 0x0,0x4
00f1 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
00f2 e5fe | | Load 0x2,-0x2
00f3 e004 | | Load 0x0,0x4
00f4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00f5 e004 | | Load 0x0,0x4
00f6 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
00f7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00f8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00fc ffff ffff | | .LITERAL {0xffffffff, 0xffffc000}
0100 0000 0000 | | .LITERAL {0x00000000, 0x001e0000}
0104 0000 0000 | | .LITERAL {0x00000000, 0x07080000}
0108 ; --------------------------------------------------------------------------------------
0108 ; STRING TABLE
0108 ; --------------------------------------------------------------------------------------
0108 0008 | | .STRTAB 0x0008->0x010c ; " *** "
0109 000b | | .STRTAB 0x000b->0x010e ; " !!! "
010a 000e | | .STRTAB 0x000e->0x0111 ; " --- "
010b 0011 | | .STREND 0x0011->0x0113
010c 202a 2a2a | ***| .STRTAB_STRINGS
0114 0000 0000 | | .BLANK 0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug Table
0118 ; --------------------------------------------------------------------------------------
0118 0004 0000 | | .DEBUG4 0x0004,0x0000,0x4d21,0x0000,0x0001,0x0008
011e 000b 013e | >| .DBG4T 0x000b,0x013e,0x8000,0x0000
0122 0016 0145 | E| .DBG4T 0x0016,0x0145,0x8000,0x0000
0126 0033 014f | 3 O| .DBG4T 0x0033,0x014f,0x0001,0x0000
012a 0043 0153 | C S| .DBG4T 0x0043,0x0153,0x0001,0x0000
012e 004b 0156 | K V| .DBG4T 0x004b,0x0156,0x0001,0x0000
0132 0053 0159 | S Y| .DBG4T 0x0053,0x0159,0x0001,0x0000
0136 005b 015c | [ \| .DBG4T 0x005b,0x015c,0x0002,0x0000
013a 0063 015f | c _| .DBG4T 0x0063,0x015f,0x0001,0x0000
013e ; --------------------------------------------------------------------------------------
013e ; Debug chain
013e ; --------------------------------------------------------------------------------------
013e 0005 0000 | | .DBGLEN 0x0005,0x0000
0140 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013
0145 ; --------------------------------------------------------------------------------------
0145 ; Debug chain
0145 ; --------------------------------------------------------------------------------------
0145 0008 0000 | | .DBGLEN 0x0008,0x0000
0147 0016 0018 | | .DBGLNO 0x0016,0x0018,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a
014f ; --------------------------------------------------------------------------------------
014f ; Debug chain
014f ; --------------------------------------------------------------------------------------
014f 0000 0002 | | .DBGLEN 0x0000,0x0002
0151 0033 0035 | 3 5| .DBGLNO 0x0033,0x0035
0153 ; --------------------------------------------------------------------------------------
0153 ; Debug chain
0153 ; --------------------------------------------------------------------------------------
0153 0000 0001 | | .DBGLEN 0x0000,0x0001
0155 0043 | C | .DBGLNO 0x0043
0156 ; --------------------------------------------------------------------------------------
0156 ; Debug chain
0156 ; --------------------------------------------------------------------------------------
0156 0000 0001 | | .DBGLEN 0x0000,0x0001
0158 004b | K | .DBGLNO 0x004b
0159 ; --------------------------------------------------------------------------------------
0159 ; Debug chain
0159 ; --------------------------------------------------------------------------------------
0159 0000 0001 | | .DBGLEN 0x0000,0x0001
015b 0053 | S | .DBGLNO 0x0053
015c ; --------------------------------------------------------------------------------------
015c ; Debug chain
015c ; --------------------------------------------------------------------------------------
015c 0000 0001 | | .DBGLEN 0x0000,0x0001
015e 005b | [ | .DBGLNO 0x005b
015f ; --------------------------------------------------------------------------------------
015f ; Debug chain
015f ; --------------------------------------------------------------------------------------
015f 0006 000d | | .DBGLEN 0x0006,0x000d
0161 0063 006a | c j| .DBGLNO 0x0063,0x006a,0x0074,0x0085,0x0091,0x00a2,0x00b3,0x00b6,0x00bb,0x00c3,0x00c8,0x00cb,0x00d0,0x00d8,0x00dd,0x00e0,0x00e5,0x00ed,0x00f2
0174 0000 0000 | | .BLANK 0000[0x8c]