|
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_0804e8
└─⟦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 0198 | | .CONST 0x0198 ; 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 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 011c | | .CONST 0x011c ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000d | | .CONST 0x000d ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
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 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0022 02c7 | | Declare_Variable Any
0023 00d8 | | Load_Top At_Offset_0
0024 1c00 | | Execute_Immediate Run_Utility,0x0
0025 4801 |H | Short_Literal 0x1
0026 6151 |aQ | Indirect_Literal Discrete,0x178,{0x00000000, 0x00000400}
0027 e003 | | Load 0x0,0x3
0028 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0029 035b | [ | Declare_Type Array,Constrained
002a 0337 | 7 | Declare_Variable Array
002b e003 | | Load 0x0,0x3
002c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
002d 00e3 | | Load_Encached Natural_Cache
002e 4800 |H | Short_Literal 0x0
002f 4806 |H | Short_Literal 0x6
0030 e003 | | Load 0x0,0x3
0031 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0032 035b | [ | Declare_Type Array,Constrained
0033 0337 | 7 | Declare_Variable Array
0034 4801 |H | Short_Literal 0x1
0035 4800 |H | Short_Literal 0x0
0036 00da | | Load_Top At_Offset_2
0037 01d6 | | Execute Vector,Field_Write
0038 4803 |H | Short_Literal 0x3
0039 4801 |H | Short_Literal 0x1
003a 00da | | Load_Top At_Offset_2
003b 01d6 | | Execute Vector,Field_Write
003c 4800 |H | Short_Literal 0x0
003d 4802 |H | Short_Literal 0x2
003e 00da | | Load_Top At_Offset_2
003f 01d6 | | Execute Vector,Field_Write
0040 4801 |H | Short_Literal 0x1
0041 4803 |H | Short_Literal 0x3
0042 00da | | Load_Top At_Offset_2
0043 01d6 | | Execute Vector,Field_Write
0044 482c |H, | Short_Literal 0x2c
0045 4804 |H | Short_Literal 0x4
0046 00da | | Load_Top At_Offset_2
0047 01d6 | | Execute Vector,Field_Write
0048 48f1 |H | Short_Literal 0xf1
0049 4805 |H | Short_Literal 0x5
004a 00da | | Load_Top At_Offset_2
004b 01d6 | | Execute Vector,Field_Write
004c 48f2 |H | Short_Literal 0xf2
004d 4806 |H | Short_Literal 0x6
004e 00da | | Load_Top At_Offset_2
004f 01d6 | | Execute Vector,Field_Write
0050 4800 |H | Short_Literal 0x0
0051 4809 |H | Short_Literal 0x9
0052 e003 | | Load 0x0,0x3
0053 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0054 035b | [ | Declare_Type Array,Constrained
0055 0337 | 7 | Declare_Variable Array
0056 4801 |H | Short_Literal 0x1
0057 4800 |H | Short_Literal 0x0
0058 00da | | Load_Top At_Offset_2
0059 01d6 | | Execute Vector,Field_Write
005a 4803 |H | Short_Literal 0x3
005b 4801 |H | Short_Literal 0x1
005c 00da | | Load_Top At_Offset_2
005d 01d6 | | Execute Vector,Field_Write
005e 4800 |H | Short_Literal 0x0
005f 4802 |H | Short_Literal 0x2
0060 00da | | Load_Top At_Offset_2
0061 01d6 | | Execute Vector,Field_Write
0062 4804 |H | Short_Literal 0x4
0063 4803 |H | Short_Literal 0x3
0064 00da | | Load_Top At_Offset_2
0065 01d6 | | Execute Vector,Field_Write
0066 4827 |H' | Short_Literal 0x27
0067 4804 |H | Short_Literal 0x4
0068 00da | | Load_Top At_Offset_2
0069 01d6 | | Execute Vector,Field_Write
006a 4800 |H | Short_Literal 0x0
006b 4805 |H | Short_Literal 0x5
006c 00da | | Load_Top At_Offset_2
006d 01d6 | | Execute Vector,Field_Write
006e 4800 |H | Short_Literal 0x0
006f 4806 |H | Short_Literal 0x6
0070 00da | | Load_Top At_Offset_2
0071 01d6 | | Execute Vector,Field_Write
0072 4800 |H | Short_Literal 0x0
0073 4807 |H | Short_Literal 0x7
0074 00da | | Load_Top At_Offset_2
0075 01d6 | | Execute Vector,Field_Write
0076 48f1 |H | Short_Literal 0xf1
0077 4808 |H | Short_Literal 0x8
0078 00da | | Load_Top At_Offset_2
0079 01d6 | | Execute Vector,Field_Write
007a 48f2 |H | Short_Literal 0xf2
007b 4809 |H | Short_Literal 0x9
007c 00da | | Load_Top At_Offset_2
007d 01d6 | | Execute Vector,Field_Write
007e 4800 |H | Short_Literal 0x0
007f 4809 |H | Short_Literal 0x9
0080 e003 | | Load 0x0,0x3
0081 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0082 035b | [ | Declare_Type Array,Constrained
0083 0337 | 7 | Declare_Variable Array
0084 4801 |H | Short_Literal 0x1
0085 4800 |H | Short_Literal 0x0
0086 00da | | Load_Top At_Offset_2
0087 01d6 | | Execute Vector,Field_Write
0088 4803 |H | Short_Literal 0x3
0089 4801 |H | Short_Literal 0x1
008a 00da | | Load_Top At_Offset_2
008b 01d6 | | Execute Vector,Field_Write
008c 4800 |H | Short_Literal 0x0
008d 4802 |H | Short_Literal 0x2
008e 00da | | Load_Top At_Offset_2
008f 01d6 | | Execute Vector,Field_Write
0090 4804 |H | Short_Literal 0x4
0091 4803 |H | Short_Literal 0x3
0092 00da | | Load_Top At_Offset_2
0093 01d6 | | Execute Vector,Field_Write
0094 4823 |H# | Short_Literal 0x23
0095 4804 |H | Short_Literal 0x4
0096 00da | | Load_Top At_Offset_2
0097 01d6 | | Execute Vector,Field_Write
0098 4800 |H | Short_Literal 0x0
0099 4805 |H | Short_Literal 0x5
009a 00da | | Load_Top At_Offset_2
009b 01d6 | | Execute Vector,Field_Write
009c 4800 |H | Short_Literal 0x0
009d 4806 |H | Short_Literal 0x6
009e 00da | | Load_Top At_Offset_2
009f 01d6 | | Execute Vector,Field_Write
00a0 4800 |H | Short_Literal 0x0
00a1 4807 |H | Short_Literal 0x7
00a2 00da | | Load_Top At_Offset_2
00a3 01d6 | | Execute Vector,Field_Write
00a4 48f1 |H | Short_Literal 0xf1
00a5 4808 |H | Short_Literal 0x8
00a6 00da | | Load_Top At_Offset_2
00a7 01d6 | | Execute Vector,Field_Write
00a8 48f2 |H | Short_Literal 0xf2
00a9 4809 |H | Short_Literal 0x9
00aa 00da | | Load_Top At_Offset_2
00ab 01d6 | | Execute Vector,Field_Write
00ac 4800 |H | Short_Literal 0x0
00ad 4806 |H | Short_Literal 0x6
00ae e003 | | Load 0x0,0x3
00af 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00b0 035b | [ | Declare_Type Array,Constrained
00b1 0337 | 7 | Declare_Variable Array
00b2 4801 |H | Short_Literal 0x1
00b3 4800 |H | Short_Literal 0x0
00b4 00da | | Load_Top At_Offset_2
00b5 01d6 | | Execute Vector,Field_Write
00b6 4803 |H | Short_Literal 0x3
00b7 4801 |H | Short_Literal 0x1
00b8 00da | | Load_Top At_Offset_2
00b9 01d6 | | Execute Vector,Field_Write
00ba 4800 |H | Short_Literal 0x0
00bb 4802 |H | Short_Literal 0x2
00bc 00da | | Load_Top At_Offset_2
00bd 01d6 | | Execute Vector,Field_Write
00be 4801 |H | Short_Literal 0x1
00bf 4803 |H | Short_Literal 0x3
00c0 00da | | Load_Top At_Offset_2
00c1 01d6 | | Execute Vector,Field_Write
00c2 4828 |H( | Short_Literal 0x28
00c3 4804 |H | Short_Literal 0x4
00c4 00da | | Load_Top At_Offset_2
00c5 01d6 | | Execute Vector,Field_Write
00c6 48f1 |H | Short_Literal 0xf1
00c7 4805 |H | Short_Literal 0x5
00c8 00da | | Load_Top At_Offset_2
00c9 01d6 | | Execute Vector,Field_Write
00ca 48f2 |H | Short_Literal 0xf2
00cb 4806 |H | Short_Literal 0x6
00cc 00da | | Load_Top At_Offset_2
00cd 01d6 | | Execute Vector,Field_Write
00ce 4800 |H | Short_Literal 0x0
00cf 4806 |H | Short_Literal 0x6
00d0 e003 | | Load 0x0,0x3
00d1 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00d2 035b | [ | Declare_Type Array,Constrained
00d3 0337 | 7 | Declare_Variable Array
00d4 4801 |H | Short_Literal 0x1
00d5 4800 |H | Short_Literal 0x0
00d6 00da | | Load_Top At_Offset_2
00d7 01d6 | | Execute Vector,Field_Write
00d8 4803 |H | Short_Literal 0x3
00d9 4801 |H | Short_Literal 0x1
00da 00da | | Load_Top At_Offset_2
00db 01d6 | | Execute Vector,Field_Write
00dc 4800 |H | Short_Literal 0x0
00dd 4802 |H | Short_Literal 0x2
00de 00da | | Load_Top At_Offset_2
00df 01d6 | | Execute Vector,Field_Write
00e0 4801 |H | Short_Literal 0x1
00e1 4803 |H | Short_Literal 0x3
00e2 00da | | Load_Top At_Offset_2
00e3 01d6 | | Execute Vector,Field_Write
00e4 4824 |H$ | Short_Literal 0x24
00e5 4804 |H | Short_Literal 0x4
00e6 00da | | Load_Top At_Offset_2
00e7 01d6 | | Execute Vector,Field_Write
00e8 48f1 |H | Short_Literal 0xf1
00e9 4805 |H | Short_Literal 0x5
00ea 00da | | Load_Top At_Offset_2
00eb 01d6 | | Execute Vector,Field_Write
00ec 48f2 |H | Short_Literal 0xf2
00ed 4806 |H | Short_Literal 0x6
00ee 00da | | Load_Top At_Offset_2
00ef 01d6 | | Execute Vector,Field_Write
00f0 4800 |H | Short_Literal 0x0
00f1 4806 |H | Short_Literal 0x6
00f2 e003 | | Load 0x0,0x3
00f3 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00f4 035b | [ | Declare_Type Array,Constrained
00f5 0337 | 7 | Declare_Variable Array
00f6 4801 |H | Short_Literal 0x1
00f7 4800 |H | Short_Literal 0x0
00f8 00da | | Load_Top At_Offset_2
00f9 01d6 | | Execute Vector,Field_Write
00fa 4803 |H | Short_Literal 0x3
00fb 4801 |H | Short_Literal 0x1
00fc 00da | | Load_Top At_Offset_2
00fd 01d6 | | Execute Vector,Field_Write
00fe 4800 |H | Short_Literal 0x0
00ff 4802 |H | Short_Literal 0x2
0100 00da | | Load_Top At_Offset_2
0101 01d6 | | Execute Vector,Field_Write
0102 4801 |H | Short_Literal 0x1
0103 4803 |H | Short_Literal 0x3
0104 00da | | Load_Top At_Offset_2
0105 01d6 | | Execute Vector,Field_Write
0106 481d |H | Short_Literal 0x1d
0107 4804 |H | Short_Literal 0x4
0108 00da | | Load_Top At_Offset_2
0109 01d6 | | Execute Vector,Field_Write
010a 48f1 |H | Short_Literal 0xf1
010b 4805 |H | Short_Literal 0x5
010c 00da | | Load_Top At_Offset_2
010d 01d6 | | Execute Vector,Field_Write
010e 48f2 |H | Short_Literal 0xf2
010f 4806 |H | Short_Literal 0x6
0110 00da | | Load_Top At_Offset_2
0111 01d6 | | Execute Vector,Field_Write
0112 4801 |H | Short_Literal 0x1
0113 4801 |H | Short_Literal 0x1
0114 e003 | | Load 0x0,0x3
0115 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0116 035b | [ | Declare_Type Array,Constrained
0117 0337 | 7 | Declare_Variable Array
0118 482a |H* | Short_Literal 0x2a
0119 4801 |H | Short_Literal 0x1
011a 00da | | Load_Top At_Offset_2
011b 01d6 | | Execute Vector,Field_Write
011c BODY_0018:
011c e402 | | Load 0x2,0x2
011d e004 | | Load 0x0,0x4
011e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
011f e005 | | Load 0x0,0x5
0120 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0121 00ea | | Load_Encached Null_String_Cache
0122 0092 017c | || Action Push_String_Extended,0x17c ; "!machine.devices.terminal_16"
0124 4801 |H | Short_Literal 0x1
0125 e006 | | Load 0x0,0x6
0126 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0127 c402 | | Store 0x2,0x2
0128 e408 | | Load 0x2,0x8
0129 e402 | | Load 0x2,0x2
012a e006 | | Load 0x0,0x6
012b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
012c 6047 |`G | Indirect_Literal Discrete,0x174,{0x00000000, 0x00008000}
012d 00ba | | Action Initiate_Delay
012e 00da | | Load_Top At_Offset_2
012f e402 | | Load 0x2,0x2
0130 e006 | | Load 0x0,0x6
0131 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0132 6041 |`A | Indirect_Literal Discrete,0x174,{0x00000000, 0x00008000}
0133 00ba | | Action Initiate_Delay
0134 00db | | Load_Top At_Offset_3
0135 e402 | | Load 0x2,0x2
0136 e006 | | Load 0x0,0x6
0137 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0138 603b |`; | Indirect_Literal Discrete,0x174,{0x00000000, 0x00008000}
0139 00ba | | Action Initiate_Delay
013a 00d9 | | Load_Top At_Offset_1
013b e402 | | Load 0x2,0x2
013c e006 | | Load 0x0,0x6
013d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
013e e402 | | Load 0x2,0x2
013f e006 | | Load 0x0,0x6
0140 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0141 c402 | | Store 0x2,0x2
0142 e403 | | Load 0x2,0x3
0143 e004 | | Load 0x0,0x4
0144 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0145 e005 | | Load 0x0,0x5
0146 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0147 00ea | | Load_Encached Null_String_Cache
0148 0092 017c | || Action Push_String_Extended,0x17c ; "!machine.devices.terminal_16"
014a 4800 |H | Short_Literal 0x0
014b e006 | | Load 0x0,0x6
014c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
014d c403 | | Store 0x2,0x3
014e 0092 017d | }| Action Push_String_Extended,0x17d ; "None"
0150 e403 | | Load 0x2,0x3
0151 e002 | | Load 0x0,0x2
0152 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0153 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0154 4800 |H | Short_Literal 0x0
0155 e403 | | Load 0x2,0x3
0156 e002 | | Load 0x0,0x2
0157 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0158 180e | | Execute Package,Field_Execute,Field_Number 0xe
0159 00cf | | Action Mark_Auxiliary
015a 4864 |Hd | Short_Literal 0x64
015b 4801 |H | Short_Literal 0x1
015c 0007 | | Action Break_Optional
015d e006 | | Load 0x0,0x6
015e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
015f e403 | | Load 0x2,0x3
0160 e006 | | Load 0x0,0x6
0161 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0162 c405 | | Store 0x2,0x5
0163 0092 017e | ~| Action Push_String_Extended,0x17e ; "cnt =>"
0165 e405 | | Load 0x2,0x5
0166 00e0 | | Load_Encached Standard_Cache
0167 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0168 01cc | | Execute Vector,Catenate
0169 e007 | | Load 0x0,0x7
016a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
016b 00c8 | | Action Pop_Auxiliary_Range
016c 3ff0 |? | Loop_Increasing 0x15d
016d 00ce | | Action Pop_Auxiliary
016e e403 | | Load 0x2,0x3
016f e006 | | Load 0x0,0x6
0170 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0171 c403 | | Store 0x2,0x3
0172 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0173 0000 | | .XXX[0x1]
0174 0000 0000 | | .LITERAL {0x00000000, 0x00008000}
0178 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
017c ; --------------------------------------------------------------------------------------
017c ; STRING TABLE
017c ; --------------------------------------------------------------------------------------
017c 0008 | | .STRTAB 0x0008->0x0180 ; "!machine.devices.terminal_16"
017d 0022 | " | .STRTAB 0x0022->0x018e ; "None"
017e 0024 | $ | .STRTAB 0x0024->0x0190 ; "cnt =>"
017f 0028 | ( | .STREND 0x0028->0x0193
0180 216d 6163 |!mac| .STRTAB_STRINGS
0193 0000 0000 | | .BLANK 0000[0x5]
0198 ; --------------------------------------------------------------------------------------
0198 ; Debug Table
0198 ; --------------------------------------------------------------------------------------
0198 0004 0006 | | .DEBUG4 0x0004,0x0006,0xbf5f,0x0000,0x0001,0x0002
019e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
01a2 001b 01a6 | | .DBG4T 0x001b,0x01a6,0x8001,0x8000
01a6 ; --------------------------------------------------------------------------------------
01a6 ; Debug chain
01a6 ; --------------------------------------------------------------------------------------
01a6 000c 0010 | | .DBGLEN 0x000c,0x0010
01a8 001b 0020 | | .DBGLNO 0x001b,0x0020,0x0025,0x002b,0x002d,0x002e,0x0050,0x007e,0x00ac,0x00ce,0x00f0,0x0112,0x011c,0x0128,0x012c,0x012e,0x0132,0x0134,0x0138,0x013a,0x013e,0x0142,0x014e,0x0154,0x015a,0x015d,0x0163,0x016e
01c4 0005 0006 | | .XXX[0xc]
01c6 0007 0008 | |
01c8 0009 000a | |
01ca 000b 000c | |
01cc 000d 000e | |
01ce 000f 0010 | |
01d0 0000 0000 | | .BLANK 0000[0x30]