|
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_08f0ad
└─⟦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 0140 | @ | .CONST 0x0140 ; 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 00e5 | | .CONST 0x00e5 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000d | | .CONST 0x000d ; 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 0110 | | Action Push_String_Extended,0x110 ; "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 60ee |` | Indirect_Literal Discrete,0x10c,{0x00000000, 0x00007fff}
001e e00b | | Load 0x0,0xb
001f 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0020 60e7 |` | Indirect_Literal Discrete,0x108,{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 0111 | | Action Push_String_Extended,0x111 ; "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 60d5 |` | Indirect_Literal Discrete,0x104,{0x00000000, 0x7fffffff}
002f e00b | | Load 0x0,0xb
0030 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0031 60ce |` | Indirect_Literal Discrete,0x100,{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 0112 | | Action Push_String_Extended,0x112 ; "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 60c4 |` | Indirect_Literal Discrete,0x104,{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 0113 | | Action Push_String_Extended,0x113 ; "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 5885 |X | Indirect_Literal Float,0xfc,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 587b |X{ | Indirect_Literal Float,0xf8,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 0114 | | Action Push_String_Extended,0x114 ; "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 6054 |`T | Indirect_Literal Discrete,0xf4,{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 0115 | | Action Push_String_Extended,0x115 ; "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 4801 |H | Short_Literal 0x1
00b1 4802 |H | Short_Literal 0x2
00b2 e00a | | Load 0x0,0xa
00b3 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00b4 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
00b5 035b | [ | Declare_Type Array,Constrained
00b6 0337 | 7 | Declare_Variable Array
00b7 00da | | Load_Top At_Offset_2
00b8 e00a | | Load 0x0,0xa
00b9 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ba 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00bb 0119 | | Execute Any,Check_In_Formal_Type
00bc 4801 |H | Short_Literal 0x1
00bd 00da | | Load_Top At_Offset_2
00be 01d6 | | Execute Vector,Field_Write
00bf 00d9 | | Load_Top At_Offset_1
00c0 e00a | | Load 0x0,0xa
00c1 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00c2 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00c3 0119 | | Execute Any,Check_In_Formal_Type
00c4 4802 |H | Short_Literal 0x2
00c5 00da | | Load_Top At_Offset_2
00c6 01d6 | | Execute Vector,Field_Write
00c7 e20f | | Load 0x1,0xf
00c8 5827 |X' | Indirect_Literal Float,0xf0,214748.36469999998
00c9 e00b | | Load 0x0,0xb
00ca 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
00cb 5820 |X | Indirect_Literal Float,0xec,-214748.36479999998
00cc e00b | | Load 0x0,0xb
00cd 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
00ce 4ff6 |O | Short_Literal -0xa
00cf 4820 |H | Short_Literal 0x20
00d0 0092 0116 | | Action Push_String_Extended,0x116 ; "DURATION"
00d2 e00a | | Load 0x0,0xa
00d3 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00d4 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00d5 e00a | | Load 0x0,0xa
00d6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00d7 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
00d8 011e | | Execute Any,Convert
00d9 e20f | | Load 0x1,0xf
00da 00d9 | | Load_Top At_Offset_1
00db 00db | | Load_Top At_Offset_3
00dc e406 | | Load 0x2,0x6
00dd 4801 |H | Short_Literal 0x1
00de e00a | | Load 0x0,0xa
00df 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00e0 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
00e1 e00a | | Load 0x0,0xa
00e2 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00e3 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
00e4 011e | | Execute Any,Convert
00e5 BODY_0008:
00e5 00d8 | | Load_Top At_Offset_0
00e6 e00a | | Load 0x0,0xa
00e7 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00e8 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
00e9 011d | | Execute Any,Convert_To_Formal
00ea 00ca | | Action Exit_Nullary_Function
00eb 0000 | | .XXX[0x1]
00ec c10a 36e2 | 6 | .DBL -214748.36479999998
00ee eb1c 432c | C,|
00f0 410a 36e2 |A 6 | .DBL 214748.36469999998
00f2 eae7 d566 | f|
00f4 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
00f8 7fef ffff | | .DBL 1.79769313486228e+308
00fa ffff ff4c | L|
00fc 47ef fffd |G | .DBL 3.4028199999999998e+38
00fe bd19 d02b | +|
0100 ffff ffff | | .LITERAL {0xffffffff, 0x80000000}
0104 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0108 ffff ffff | | .LITERAL {0xffffffff, 0xffff8000}
010c 0000 0000 | | .LITERAL {0x00000000, 0x00007fff}
0110 ; --------------------------------------------------------------------------------------
0110 ; STRING TABLE
0110 ; --------------------------------------------------------------------------------------
0110 0010 | | .STRTAB 0x0010->0x0118 ; "TINY_INTEGER"
0111 001a | | .STRTAB 0x001a->0x011e ; "SHORT_INTEGER"
0112 0025 | % | .STRTAB 0x0025->0x0124 ; "INTEGER"
0113 002a | * | .STRTAB 0x002a->0x0128 ; "UNSIGNED_INTEGER"
0114 0038 | 8 | .STRTAB 0x0038->0x0130 ; "SHORT_FLOAT"
0115 0041 | A | .STRTAB 0x0041->0x0135 ; "FLOAT"
0116 0044 | D | .STRTAB 0x0044->0x0138 ; "DURATION"
0117 004a | J | .STREND 0x004a->0x013c
0118 5449 4e59 |TINY| .STRTAB_STRINGS
013c 0000 0000 | | .BLANK 0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug Table
0140 ; --------------------------------------------------------------------------------------
0140 0004 0009 | | .DEBUG4 0x0004,0x0009,0x926a,0x0000,0x0001,0x0001
0146 000b 014a | J| .DBG4T 0x000b,0x014a,0x0002,0x0000
014a ; --------------------------------------------------------------------------------------
014a ; Debug chain
014a ; --------------------------------------------------------------------------------------
014a 000c 0001 | | .DBGLEN 0x000c,0x0001
014c 000b 001c | | .DBGLNO 0x000b,0x001c,0x002d,0x003e,0x004f,0x0076,0x007c,0x0082,0x0099,0x00b0,0x00c7,0x00d9,0x00e5
0159 0000 0000 | | .BLANK 0000[0xa7]