|
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_1540eb
└─⟦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 0168 | h | .CONST 0x0168 ; 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 0104 | | .CONST 0x0104 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000e | | .CONST 0x000e ; Number of locals
000b INIT_0008:
000b e20f | | Load 0x1,0xf
000c 487f |H | Short_Literal 0x7f
000d e00b | | Load 0x0,0xb
000e 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
000f 4f80 |O | Short_Literal -0x80
0010 e00b | | Load 0x0,0xb
0011 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0012 4808 |H | Short_Literal 0x8
0013 0092 0130 | 0| Action Push_String_Extended,0x130 ; "TINY_INTEGER"
0015 e00a | | Load 0x0,0xa
0016 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0017 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0018 e00a | | Load 0x0,0xa
0019 1b13 | | Execute Package,Field_Read,Field_Number 0x13
001a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001b 011e | | Execute Any,Convert
001c e20f | | Load 0x1,0xf
001d 610e |a | Indirect_Literal Discrete,0x12c,{0x00000000, 0x00007fff}
001e e00b | | Load 0x0,0xb
001f 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0020 6107 |a | Indirect_Literal Discrete,0x128,{0xffffffff, 0xffff8000}
0021 e00b | | Load 0x0,0xb
0022 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0023 4810 |H | Short_Literal 0x10
0024 0092 0131 | 1| Action Push_String_Extended,0x131 ; "SHORT_INTEGER"
0026 e00a | | Load 0x0,0xa
0027 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0028 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0029 e00a | | Load 0x0,0xa
002a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
002b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002c 011e | | Execute Any,Convert
002d e20f | | Load 0x1,0xf
002e 60f5 |` | Indirect_Literal Discrete,0x124,{0x00000000, 0x7fffffff}
002f e00b | | Load 0x0,0xb
0030 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0031 60ee |` | Indirect_Literal Discrete,0x120,{0xffffffff, 0x80000000}
0032 e00b | | Load 0x0,0xb
0033 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0034 4820 |H | Short_Literal 0x20
0035 0092 0132 | 2| Action Push_String_Extended,0x132 ; "INTEGER"
0037 e00a | | Load 0x0,0xa
0038 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0039 1810 | | Execute Package,Field_Execute,Field_Number 0x10
003a e00a | | Load 0x0,0xa
003b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
003c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
003d 011e | | Execute Any,Convert
003e e20f | | Load 0x1,0xf
003f 60e4 |` | Indirect_Literal Discrete,0x124,{0x00000000, 0x7fffffff}
0040 e00b | | Load 0x0,0xb
0041 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0042 4800 |H | Short_Literal 0x0
0043 e00b | | Load 0x0,0xb
0044 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0045 4820 |H | Short_Literal 0x20
0046 0092 0133 | 3| Action Push_String_Extended,0x133 ; "UNSIGNED_INTEGER"
0048 e00a | | Load 0x0,0xa
0049 1b13 | | Execute Package,Field_Read,Field_Number 0x13
004a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
004b e00a | | Load 0x0,0xa
004c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
004d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
004e 011e | | Execute Any,Convert
004f 4801 |H | Short_Literal 0x1
0050 4804 |H | Short_Literal 0x4
0051 e00a | | Load 0x0,0xa
0052 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0053 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0054 035b | [ | Declare_Type Array,Constrained
0055 0337 | 7 | Declare_Variable Array
0056 e402 | | Load 0x2,0x2
0057 e00a | | Load 0x0,0xa
0058 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0059 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005a 0119 | | Execute Any,Check_In_Formal_Type
005b 4801 |H | Short_Literal 0x1
005c 00da | | Load_Top At_Offset_2
005d 01d6 | | Execute Vector,Field_Write
005e 00db | | Load_Top At_Offset_3
005f e00a | | Load 0x0,0xa
0060 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0061 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0062 0119 | | Execute Any,Check_In_Formal_Type
0063 4802 |H | Short_Literal 0x2
0064 00da | | Load_Top At_Offset_2
0065 01d6 | | Execute Vector,Field_Write
0066 00da | | Load_Top At_Offset_2
0067 e00a | | Load 0x0,0xa
0068 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0069 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006a 0119 | | Execute Any,Check_In_Formal_Type
006b 4803 |H | Short_Literal 0x3
006c 00da | | Load_Top At_Offset_2
006d 01d6 | | Execute Vector,Field_Write
006e 00d9 | | Load_Top At_Offset_1
006f e00a | | Load 0x0,0xa
0070 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0071 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0072 0119 | | Execute Any,Check_In_Formal_Type
0073 4804 |H | Short_Literal 0x4
0074 00da | | Load_Top At_Offset_2
0075 01d6 | | Execute Vector,Field_Write
0076 58a5 |X | Indirect_Literal Float,0x11c,3.4028199999999998e+38
0077 e00b | | Load 0x0,0xb
0078 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
0079 e00b | | Load 0x0,0xb
007a 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
007b 011e | | Execute Any,Convert
007c 589b |X | Indirect_Literal Float,0x118,1.79769313486228e+308
007d e00b | | Load 0x0,0xb
007e 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
007f e00b | | Load 0x0,0xb
0080 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0081 011e | | Execute Any,Convert
0082 e20f | | Load 0x1,0xf
0083 4801 |H | Short_Literal 0x1
0084 4801 |H | Short_Literal 0x1
0085 4818 |H | Short_Literal 0x18
0086 4802 |H | Short_Literal 0x2
0087 4f83 |O | Short_Literal -0x7d
0088 4880 |H | Short_Literal 0x80
0089 487d |H} | Short_Literal 0x7d
008a e407 | | Load 0x2,0x7
008b 00d8 | | Load_Top At_Offset_0
008c e00b | | Load 0x0,0xb
008d 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
008e 4820 |H | Short_Literal 0x20
008f 4806 |H | Short_Literal 0x6
0090 0092 0134 | 4| Action Push_String_Extended,0x134 ; "SHORT_FLOAT"
0092 e00a | | Load 0x0,0xa
0093 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0094 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0095 e00a | | Load 0x0,0xa
0096 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0097 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0098 011e | | Execute Any,Convert
0099 e20f | | Load 0x1,0xf
009a 4801 |H | Short_Literal 0x1
009b 4801 |H | Short_Literal 0x1
009c 4835 |H5 | Short_Literal 0x35
009d 4802 |H | Short_Literal 0x2
009e 4c03 |L | Short_Literal -0x3fd
009f 6074 |`t | Indirect_Literal Discrete,0x114,{0x00000000, 0x00000400}
00a0 4bfd |K | Short_Literal 0x3fd
00a1 e408 | | Load 0x2,0x8
00a2 00d8 | | Load_Top At_Offset_0
00a3 e00b | | Load 0x0,0xb
00a4 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
00a5 4840 |H@ | Short_Literal 0x40
00a6 480f |H | Short_Literal 0xf
00a7 0092 0135 | 5| Action Push_String_Extended,0x135 ; "FLOAT"
00a9 e00a | | Load 0x0,0xa
00aa 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ab 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ac e00a | | Load 0x0,0xa
00ad 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ae 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00af 011e | | Execute Any,Convert
00b0 e20f | | Load 0x1,0xf
00b1 4801 |H | Short_Literal 0x1
00b2 4801 |H | Short_Literal 0x1
00b3 4835 |H5 | Short_Literal 0x35
00b4 4802 |H | Short_Literal 0x2
00b5 4c03 |L | Short_Literal -0x3fd
00b6 605d |`] | Indirect_Literal Discrete,0x114,{0x00000000, 0x00000400}
00b7 4bfd |K | Short_Literal 0x3fd
00b8 e408 | | Load 0x2,0x8
00b9 00d8 | | Load_Top At_Offset_0
00ba e00b | | Load 0x0,0xb
00bb 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
00bc 4840 |H@ | Short_Literal 0x40
00bd 480f |H | Short_Literal 0xf
00be 0092 0136 | 6| Action Push_String_Extended,0x136 ; "LONG_FLOAT"
00c0 e00a | | Load 0x0,0xa
00c1 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00c2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00c3 e00a | | Load 0x0,0xa
00c4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00c5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00c6 011e | | Execute Any,Convert
00c7 4801 |H | Short_Literal 0x1
00c8 4803 |H | Short_Literal 0x3
00c9 e00a | | Load 0x0,0xa
00ca 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00cb 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
00cc 035b | [ | Declare_Type Array,Constrained
00cd 0337 | 7 | Declare_Variable Array
00ce 00db | | Load_Top At_Offset_3
00cf e00a | | Load 0x0,0xa
00d0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00d1 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00d2 0119 | | Execute Any,Check_In_Formal_Type
00d3 4801 |H | Short_Literal 0x1
00d4 00da | | Load_Top At_Offset_2
00d5 01d6 | | Execute Vector,Field_Write
00d6 00da | | Load_Top At_Offset_2
00d7 e00a | | Load 0x0,0xa
00d8 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00d9 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00da 0119 | | Execute Any,Check_In_Formal_Type
00db 4802 |H | Short_Literal 0x2
00dc 00da | | Load_Top At_Offset_2
00dd 01d6 | | Execute Vector,Field_Write
00de 00d9 | | Load_Top At_Offset_1
00df e00a | | Load 0x0,0xa
00e0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00e1 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00e2 0119 | | Execute Any,Check_In_Formal_Type
00e3 4803 |H | Short_Literal 0x3
00e4 00da | | Load_Top At_Offset_2
00e5 01d6 | | Execute Vector,Field_Write
00e6 e20f | | Load 0x1,0xf
00e7 5828 |X( | Indirect_Literal Float,0x110,2147483.647
00e8 e00b | | Load 0x0,0xb
00e9 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
00ea 5821 |X! | Indirect_Literal Float,0x10c,-2147483.6479999996
00eb e00b | | Load 0x0,0xb
00ec 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
00ed 4ff6 |O | Short_Literal -0xa
00ee 4820 |H | Short_Literal 0x20
00ef 0092 0137 | 7| Action Push_String_Extended,0x137 ; "DURATION"
00f1 e00a | | Load 0x0,0xa
00f2 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00f3 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00f4 e00a | | Load 0x0,0xa
00f5 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00f6 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
00f7 011e | | Execute Any,Convert
00f8 e20f | | Load 0x1,0xf
00f9 00d9 | | Load_Top At_Offset_1
00fa 00db | | Load_Top At_Offset_3
00fb e406 | | Load 0x2,0x6
00fc 4802 |H | Short_Literal 0x2
00fd e00a | | Load 0x0,0xa
00fe 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ff 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0100 e00a | | Load 0x0,0xa
0101 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0102 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
0103 011e | | Execute Any,Convert
0104 BODY_0008:
0104 00d8 | | Load_Top At_Offset_0
0105 e00a | | Load 0x0,0xa
0106 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0107 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
0108 011d | | Execute Any,Convert_To_Formal
0109 00ca | | Action Exit_Nullary_Function
010a 0000 0000 | | .XXX[0x2]
010c c140 624d | @bM| .DBL -2147483.6479999996
010e d2f1 a9fb | |
0110 4140 624d |A@bM| .DBL 2147483.647
0112 d2d0 e560 | `|
0114 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0118 7fef ffff | | .DBL 1.79769313486228e+308
011a ffff ff4c | L|
011c 47ef fffd |G | .DBL 3.4028199999999998e+38
011e bd19 d02b | +|
0120 ffff ffff | | .LITERAL {0xffffffff, 0x80000000}
0124 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0128 ffff ffff | | .LITERAL {0xffffffff, 0xffff8000}
012c 0000 0000 | | .LITERAL {0x00000000, 0x00007fff}
0130 ; --------------------------------------------------------------------------------------
0130 ; STRING TABLE
0130 ; --------------------------------------------------------------------------------------
0130 0012 | | .STRTAB 0x0012->0x0139 ; "TINY_INTEGER"
0131 001c | | .STRTAB 0x001c->0x013f ; "SHORT_INTEGER"
0132 0027 | ' | .STRTAB 0x0027->0x0145 ; "INTEGER"
0133 002c | , | .STRTAB 0x002c->0x0149 ; "UNSIGNED_INTEGER"
0134 003a | : | .STRTAB 0x003a->0x0151 ; "SHORT_FLOAT"
0135 0043 | C | .STRTAB 0x0043->0x0156 ; "FLOAT"
0136 0046 | F | .STRTAB 0x0046->0x0159 ; "LONG_FLOAT"
0137 004e | N | .STRTAB 0x004e->0x015e ; "DURATION"
0138 0054 | T | .STREND 0x0054->0x0162
0139 5449 4e59 |TINY| .STRTAB_STRINGS
0162 0000 0000 | | .BLANK 0000[0x6]
0168 ; --------------------------------------------------------------------------------------
0168 ; Debug Table
0168 ; --------------------------------------------------------------------------------------
0168 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5fc5,0x0000,0x0001,0x0001
016e 000b 0172 | r| .DBG4T 0x000b,0x0172,0x0002,0x0000
0172 ; --------------------------------------------------------------------------------------
0172 ; Debug chain
0172 ; --------------------------------------------------------------------------------------
0172 000d 0001 | | .DBGLEN 0x000d,0x0001
0174 000b 001c | | .DBGLNO 0x000b,0x001c,0x002d,0x003e,0x004f,0x0076,0x007c,0x0082,0x0099,0x00b0,0x00c7,0x00e6,0x00f8,0x0104
0182 0000 0000 | | .BLANK 0000[0x7e]