|
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_13388c9
└─⟦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 0178 | x | .CONST 0x0178 ; 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 007f | | .CONST 0x007f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001f | | .CONST 0x001f ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4801 |H | Short_Literal 0x1
000d 029f 008b | | Declare_Subprogram INIT_0088,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0
0011 4802 |H | Short_Literal 0x2
0012 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0014 03fe | | Declare_Type Discrete,Defined,Visible
0015 4800 |H | Short_Literal 0x0
0016 4802 |H | Short_Literal 0x2
0017 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
0019 03fe | | Declare_Type Discrete,Defined,Visible
001a 0093 0000 | | push_full_address 0x0
001c 60a7 |` | Indirect_Literal Discrete,0xc4,{0x80000000, 0x00030000}
001d 0273 | s | Execute Discrete,Plus
001e e002 | | Load 0x0,0x2
001f 0273 | s | Execute Discrete,Plus
0020 e003 | | Load 0x0,0x3
0021 0273 | s | Execute Discrete,Plus
0022 4801 |H | Short_Literal 0x1
0023 480a |H | Short_Literal 0xa
0024 e20e | | Load 0x1,0xe
0025 e004 | | Load 0x0,0x4
0026 0386 | | Declare_Variable Package,Visible
0027 00d8 | | Load_Top At_Offset_0
0028 020f | | Execute Module,Activate
0029 0093 0000 | | push_full_address 0x0
002b 6094 |` | Indirect_Literal Discrete,0xc0,{0x80000000, 0x00020000}
002c 0273 | s | Execute Discrete,Plus
002d e002 | | Load 0x0,0x2
002e 0273 | s | Execute Discrete,Plus
002f e005 | | Load 0x0,0x5
0030 0273 | s | Execute Discrete,Plus
0031 4802 |H | Short_Literal 0x2
0032 480a |H | Short_Literal 0xa
0033 e20f | | Load 0x1,0xf
0034 e004 | | Load 0x0,0x4
0035 0386 | | Declare_Variable Package,Visible
0036 00d8 | | Load_Top At_Offset_0
0037 020f | | Execute Module,Activate
0038 0093 0000 | | push_full_address 0x0
003a 6081 |` | Indirect_Literal Discrete,0xbc,{0x80000000, 0x00010000}
003b 0273 | s | Execute Discrete,Plus
003c e002 | | Load 0x0,0x2
003d 0273 | s | Execute Discrete,Plus
003e e006 | | Load 0x0,0x6
003f 0273 | s | Execute Discrete,Plus
0040 4800 |H | Short_Literal 0x0
0041 480a |H | Short_Literal 0xa
0042 e20d | | Load 0x1,0xd
0043 e004 | | Load 0x0,0x4
0044 0386 | | Declare_Variable Package,Visible
0045 00d8 | | Load_Top At_Offset_0
0046 020f | | Execute Module,Activate
0047 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0049 00bf | | Action Accept_Activation
004a 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call
004c 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call
004e 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call
0050 e007 | | Load 0x0,0x7
0051 e210 | | Load 0x1,0x10
0052 0095 | | Execute Package,Field_Reference_Dynamic
0053 00c6 | | Action Check_Subprogram_Elaborated
0054 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0055 0093 0000 | | push_full_address 0x0
0057 6060 |`` | Indirect_Literal Discrete,0xb8,{0x80000000, 0x00060000}
0058 0273 | s | Execute Discrete,Plus
0059 e002 | | Load 0x0,0x2
005a 0273 | s | Execute Discrete,Plus
005b e008 | | Load 0x0,0x8
005c 0273 | s | Execute Discrete,Plus
005d 4800 |H | Short_Literal 0x0
005e 0007 | | Action Break_Optional
005f e007 | | Load 0x0,0x7
0060 e211 | | Load 0x1,0x11
0061 0095 | | Execute Package,Field_Reference_Dynamic
0062 00c6 | | Action Check_Subprogram_Elaborated
0063 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0064 0093 0000 | | push_full_address 0x0
0066 604d |`M | Indirect_Literal Discrete,0xb4,{0x80000000, 0x00050000}
0067 0273 | s | Execute Discrete,Plus
0068 e002 | | Load 0x0,0x2
0069 0273 | s | Execute Discrete,Plus
006a e009 | | Load 0x0,0x9
006b 0273 | s | Execute Discrete,Plus
006c 4800 |H | Short_Literal 0x0
006d 0007 | | Action Break_Optional
006e e007 | | Load 0x0,0x7
006f e212 | | Load 0x1,0x12
0070 0095 | | Execute Package,Field_Reference_Dynamic
0071 00c6 | | Action Check_Subprogram_Elaborated
0072 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0073 0093 0000 | | push_full_address 0x0
0075 603a |`: | Indirect_Literal Discrete,0xb0,{0x80000000, 0x00040000}
0076 0273 | s | Execute Discrete,Plus
0077 e002 | | Load 0x0,0x2
0078 0273 | s | Execute Discrete,Plus
0079 e00a | | Load 0x0,0xa
007a 0273 | s | Execute Discrete,Plus
007b 4800 |H | Short_Literal 0x0
007c 0007 | | Action Break_Optional
007d 1d13 | | Execute_Immediate Reference_Lex_1,0x13
007e 00c7 | | Action Elaborate_Subprogram
007f BODY_0008:
007f 00bc | | Action Signal_Activated
0080 00bb | | Action Signal_Completion
0081 0000 0000 | | .BLANK 0000[0x7]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 4607 |F | Jump_Case 0x8
008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
008d 7807 |x | Jump 0x95 ; case 0x1
008e 780a |x | Jump 0x99 ; case 0x2
008f 780e |x | Jump 0x9e ; case 0x3
0090 7811 |x | Jump 0xa2 ; case 0x4
0091 7812 |x | Jump 0xa4 ; case 0x5
0092 7813 |x | Jump 0xa6 ; case 0x6
0093 7816 |x | Jump 0xaa ; case 0x7
0094 4302 |C | .XXX[0x1]
0095 00da | | Load_Top At_Offset_2
0096 0091 0156 | V| Action Push_String_Extended_Indexed,0x156 ; "COLOUR"
0098 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0099 00db | | Load_Top At_Offset_3
009a 00db | | Load_Top At_Offset_3
009b 00e0 | | Load_Encached Standard_Cache
009c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009e 00da | | Load_Top At_Offset_2
009f 00e0 | | Load_Encached Standard_Cache
00a0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00a1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00a2 00db | | Load_Top At_Offset_3
00a3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a4 00db | | Load_Top At_Offset_3
00a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a6 e20d | | Load 0x1,0xd
00a7 00dc | | Load_Top At_Offset_4
00a8 0267 | g | Execute Discrete,Predecessor
00a9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00aa e20d | | Load 0x1,0xd
00ab 00dc | | Load_Top At_Offset_4
00ac 0268 | h | Execute Discrete,Successor
00ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ae 0000 0000 | | .XXX[0x2]
00b0 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
00b4 8000 0000 | | .LITERAL {0x80000000, 0x00050000}
00b8 8000 0000 | | .LITERAL {0x80000000, 0x00060000}
00bc 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00c0 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00c4 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4607 |F | Jump_Case 0x8
00cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00cd 7807 |x | Jump 0xd5 ; case 0x1
00ce 780a |x | Jump 0xd9 ; case 0x2
00cf 780e |x | Jump 0xde ; case 0x3
00d0 7811 |x | Jump 0xe2 ; case 0x4
00d1 7812 |x | Jump 0xe4 ; case 0x5
00d2 7813 |x | Jump 0xe6 ; case 0x6
00d3 7816 |x | Jump 0xea ; case 0x7
00d4 4302 |C | .XXX[0x1]
00d5 00da | | Load_Top At_Offset_2
00d6 0091 0158 | X| Action Push_String_Extended_Indexed,0x158 ; "COLOUR"
00d8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00d9 00db | | Load_Top At_Offset_3
00da 00db | | Load_Top At_Offset_3
00db 00e0 | | Load_Encached Standard_Cache
00dc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00de 00da | | Load_Top At_Offset_2
00df 00e0 | | Load_Encached Standard_Cache
00e0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e2 00db | | Load_Top At_Offset_3
00e3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e4 00db | | Load_Top At_Offset_3
00e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e6 e20e | | Load 0x1,0xe
00e7 00dc | | Load_Top At_Offset_4
00e8 0267 | g | Execute Discrete,Predecessor
00e9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ea e20e | | Load 0x1,0xe
00eb 00dc | | Load_Top At_Offset_4
00ec 0268 | h | Execute Discrete,Successor
00ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ee 0000 0000 | | .XXX[0x2]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 4607 |F | Jump_Case 0x8
00f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00f5 7807 |x | Jump 0xfd ; case 0x1
00f6 780a |x | Jump 0x101 ; case 0x2
00f7 780e |x | Jump 0x106 ; case 0x3
00f8 7811 |x | Jump 0x10a ; case 0x4
00f9 7812 |x | Jump 0x10c ; case 0x5
00fa 7813 |x | Jump 0x10e ; case 0x6
00fb 7816 |x | Jump 0x112 ; case 0x7
00fc 4302 |C | .XXX[0x1]
00fd 00da | | Load_Top At_Offset_2
00fe 0091 015b | [| Action Push_String_Extended_Indexed,0x15b ; "COLOUR"
0100 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0101 00db | | Load_Top At_Offset_3
0102 00db | | Load_Top At_Offset_3
0103 00e0 | | Load_Encached Standard_Cache
0104 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0106 00da | | Load_Top At_Offset_2
0107 00e0 | | Load_Encached Standard_Cache
0108 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0109 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
010a 00db | | Load_Top At_Offset_3
010b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010c 00db | | Load_Top At_Offset_3
010d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010e e20f | | Load 0x1,0xf
010f 00dc | | Load_Top At_Offset_4
0110 0267 | g | Execute Discrete,Predecessor
0111 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0112 e20f | | Load 0x1,0xf
0113 00dc | | Load_Top At_Offset_4
0114 0268 | h | Execute Discrete,Successor
0115 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0116 0000 0000 | | .XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2
011c 800b | | Call 0x0,0xb
011d 4603 |F | Jump_Case 0x4
011e 7815 |x | Jump 0x134 ; case 0x0
011f 7804 |x | Jump 0x124 ; case 0x1
0120 780b |x | Jump 0x12c ; case 0x2
0121 7800 |x | Jump 0x122 ; case 0x3
0122 0008 | | Action Idle
0123 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0124 00db | | Load_Top At_Offset_3
0125 00db | | Load_Top At_Offset_3
0126 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0127 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0128 e007 | | Load 0x0,0x7
0129 e210 | | Load 0x1,0x10
012a 0096 | | Execute Package,Entry
012b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
012c 00db | | Load_Top At_Offset_3
012d 00db | | Load_Top At_Offset_3
012e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
012f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0130 e007 | | Load 0x0,0x7
0131 e211 | | Load 0x1,0x11
0132 0096 | | Execute Package,Entry
0133 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0134 00db | | Load_Top At_Offset_3
0135 00db | | Load_Top At_Offset_3
0136 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0137 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0138 e007 | | Load 0x0,0x7
0139 e212 | | Load 0x1,0x12
013a 0096 | | Execute Package,Entry
013b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
013c 0000 0000 | | .BLANK 0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00db | | Load_Top At_Offset_3
0144 800c | | Call 0x0,0xc
0145 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00db | | Load_Top At_Offset_3
014c 800c | | Call 0x0,0xc
014d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
014e 0000 0000 | | .XXX[0x2]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00db | | Load_Top At_Offset_3
0154 800c | | Call 0x0,0xc
0155 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0156 ; --------------------------------------------------------------------------------------
0156 ; STRING TABLE
0156 ; --------------------------------------------------------------------------------------
0156 0012 | | .STRTAB 0x0012->0x015f ; "COLOUR"
0157 0016 | | .STRTAB 0x0016->0x0162 ; "STATE"
0158 0019 | | .STRTAB 0x0019->0x0164 ; "COLOUR"
0159 001d | | .STRTAB 0x001d->0x0167 ; "SIZE"
015a 001f | | .STRTAB 0x001f->0x0169 ; "STATE"
015b 0022 | " | .STRTAB 0x0022->0x016c ; "COLOUR"
015c 0026 | & | .STRTAB 0x0026->0x016f ; "SIZE"
015d 0028 | ( | .STRTAB 0x0028->0x0171 ; "PLACE"
015e 002b | + | .STREND 0x002b->0x0173
015f 434f 4c4f |COLO| .STRTAB_STRINGS
0174 0000 0000 | | .BLANK 0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; Debug Table
0178 ; --------------------------------------------------------------------------------------
0178 0004 0004 | | .DEBUG4 0x0004,0x0004,0x95c3,0x0000,0x0001,0x0009
017e 000b 01a2 | | .DBG4T 0x000b,0x01a2,0x8000,0x0000
0182 004a 01ab | J | .DBG4T 0x004a,0x01ab,0x8000,0x0000
0186 008b 0000 | | .DBG4T 0x008b,0x0000,0x0005,0x0000
018a 00cb 0000 | | .DBG4T 0x00cb,0x0000,0x0005,0x0000
018e 00f3 0000 | | .DBG4T 0x00f3,0x0000,0x0005,0x0000
0192 011b 01b4 | | .DBG4T 0x011b,0x01b4,0x0001,0x4000
0196 0143 01c0 | C | .DBG4T 0x0143,0x01c0,0x0002,0x0000
019a 014b 01c3 | K | .DBG4T 0x014b,0x01c3,0x0002,0x0000
019e 0153 01c6 | S | .DBG4T 0x0153,0x01c6,0x0002,0x0000
01a2 ; --------------------------------------------------------------------------------------
01a2 ; Debug chain
01a2 ; --------------------------------------------------------------------------------------
01a2 0007 0000 | | .DBGLEN 0x0007,0x0000
01a4 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x001a,0x0029,0x0038,0x0047
01ab ; --------------------------------------------------------------------------------------
01ab ; Debug chain
01ab ; --------------------------------------------------------------------------------------
01ab 0007 0000 | | .DBGLEN 0x0007,0x0000
01ad 004a 004c | J L| .DBGLNO 0x004a,0x004c,0x004e,0x0050,0x005f,0x006e,0x007d
01b4 ; --------------------------------------------------------------------------------------
01b4 ; Debug chain
01b4 ; --------------------------------------------------------------------------------------
01b4 0000 0005 | | .DBGLEN 0x0000,0x0005
01b6 011b 0122 | "| .DBGLNO 0x011b,0x0122,0x0124,0x012c,0x0134
01bb 0001 0005 | | .XXX[0x5]
01bd 0002 0003 | |
01bf 0004 | |
01c0 ; --------------------------------------------------------------------------------------
01c0 ; Debug chain
01c0 ; --------------------------------------------------------------------------------------
01c0 0000 0001 | | .DBGLEN 0x0000,0x0001
01c2 0143 | C | .DBGLNO 0x0143
01c3 ; --------------------------------------------------------------------------------------
01c3 ; Debug chain
01c3 ; --------------------------------------------------------------------------------------
01c3 0000 0001 | | .DBGLEN 0x0000,0x0001
01c5 014b | K | .DBGLNO 0x014b
01c6 ; --------------------------------------------------------------------------------------
01c6 ; Debug chain
01c6 ; --------------------------------------------------------------------------------------
01c6 0000 0001 | | .DBGLEN 0x0000,0x0001
01c8 0153 | S | .DBGLNO 0x0153
01c9 0000 0000 | | .BLANK 0000[0x37]