|
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_5850da
└─⟦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 0100 | | .CONST 0x0100 ; 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 00b3 | | .CONST 0x00b3 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000b | | .CONST 0x000b ; Number of locals
000b INIT_0008:
000b e20e | | Load 0x1,0xe
000c 60cf |` | Indirect_Literal Discrete,0xdc,{0x00000000, 0x00007fff}
000d e011 | | Load 0x0,0x11
000e 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
000f 60c8 |` | Indirect_Literal Discrete,0xd8,{0xffffffff, 0xffff8000}
0010 e011 | | Load 0x0,0x11
0011 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0012 4810 |H | Short_Literal 0x10
0013 0092 00e0 | | Action Push_String_Extended,0xe0 ; "SHORT_INTEGER"
0015 e010 | | Load 0x0,0x10
0016 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0017 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0018 e010 | | Load 0x0,0x10
0019 1b13 | | Execute Package,Field_Read,Field_Number 0x13
001a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001b 011e | | Execute Any,Convert
001c e20e | | Load 0x1,0xe
001d 60b6 |` | Indirect_Literal Discrete,0xd4,{0x00000000, 0x7fffffff}
001e e011 | | Load 0x0,0x11
001f 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0020 60af |` | Indirect_Literal Discrete,0xd0,{0xffffffff, 0x80000000}
0021 e011 | | Load 0x0,0x11
0022 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0023 4820 |H | Short_Literal 0x20
0024 0092 00e1 | | Action Push_String_Extended,0xe1 ; "INTEGER"
0026 e010 | | Load 0x0,0x10
0027 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0028 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0029 e010 | | Load 0x0,0x10
002a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
002b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002c 011e | | Execute Any,Convert
002d 4801 |H | Short_Literal 0x1
002e 4802 |H | Short_Literal 0x2
002f e010 | | Load 0x0,0x10
0030 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0031 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0032 035b | [ | Declare_Type Array,Constrained
0033 0337 | 7 | Declare_Variable Array
0034 00da | | Load_Top At_Offset_2
0035 e010 | | Load 0x0,0x10
0036 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0037 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0038 0119 | | Execute Any,Check_In_Formal_Type
0039 4801 |H | Short_Literal 0x1
003a 00da | | Load_Top At_Offset_2
003b 01d6 | | Execute Vector,Field_Write
003c 00d9 | | Load_Top At_Offset_1
003d e010 | | Load 0x0,0x10
003e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
003f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0040 0119 | | Execute Any,Check_In_Formal_Type
0041 4802 |H | Short_Literal 0x2
0042 00da | | Load_Top At_Offset_2
0043 01d6 | | Execute Vector,Field_Write
0044 5887 |X | Indirect_Literal Float,0xcc,3.4028199999999998e+38
0045 e011 | | Load 0x0,0x11
0046 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
0047 e011 | | Load 0x0,0x11
0048 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0049 011e | | Execute Any,Convert
004a 587d |X} | Indirect_Literal Float,0xc8,1.79769313486231e+308
004b e011 | | Load 0x0,0x11
004c 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
004d e011 | | Load 0x0,0x11
004e 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
004f 011e | | Execute Any,Convert
0050 e20e | | Load 0x1,0xe
0051 4801 |H | Short_Literal 0x1
0052 4801 |H | Short_Literal 0x1
0053 4815 |H | Short_Literal 0x15
0054 4802 |H | Short_Literal 0x2
0055 4f83 |O | Short_Literal -0x7d
0056 4880 |H | Short_Literal 0x80
0057 487d |H} | Short_Literal 0x7d
0058 e405 | | Load 0x2,0x5
0059 00d8 | | Load_Top At_Offset_0
005a e011 | | Load 0x0,0x11
005b 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
005c 4820 |H | Short_Literal 0x20
005d 4806 |H | Short_Literal 0x6
005e 0092 00e2 | | Action Push_String_Extended,0xe2 ; "FLOAT"
0060 e010 | | Load 0x0,0x10
0061 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0062 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0063 e010 | | Load 0x0,0x10
0064 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0065 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0066 011e | | Execute Any,Convert
0067 e20e | | Load 0x1,0xe
0068 4801 |H | Short_Literal 0x1
0069 4801 |H | Short_Literal 0x1
006a 4835 |H5 | Short_Literal 0x35
006b 4802 |H | Short_Literal 0x2
006c 4c03 |L | Short_Literal -0x3fd
006d 6056 |`V | Indirect_Literal Discrete,0xc4,{0x00000000, 0x00000400}
006e 4bfc |K | Short_Literal 0x3fc
006f e406 | | Load 0x2,0x6
0070 00d8 | | Load_Top At_Offset_0
0071 e011 | | Load 0x0,0x11
0072 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0073 4840 |H@ | Short_Literal 0x40
0074 480f |H | Short_Literal 0xf
0075 0092 00e3 | | Action Push_String_Extended,0xe3 ; "LONG_FLOAT"
0077 e010 | | Load 0x0,0x10
0078 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0079 1818 | | Execute Package,Field_Execute,Field_Number 0x18
007a e010 | | Load 0x0,0x10
007b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
007c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
007d 011e | | Execute Any,Convert
007e 4801 |H | Short_Literal 0x1
007f 4802 |H | Short_Literal 0x2
0080 e010 | | Load 0x0,0x10
0081 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0082 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0083 035b | [ | Declare_Type Array,Constrained
0084 0337 | 7 | Declare_Variable Array
0085 00da | | Load_Top At_Offset_2
0086 e010 | | Load 0x0,0x10
0087 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0088 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0089 0119 | | Execute Any,Check_In_Formal_Type
008a 4801 |H | Short_Literal 0x1
008b 00da | | Load_Top At_Offset_2
008c 01d6 | | Execute Vector,Field_Write
008d 00d9 | | Load_Top At_Offset_1
008e e010 | | Load 0x0,0x10
008f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0090 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0091 0119 | | Execute Any,Check_In_Formal_Type
0092 4802 |H | Short_Literal 0x2
0093 00da | | Load_Top At_Offset_2
0094 01d6 | | Execute Vector,Field_Write
0095 e20e | | Load 0x1,0xe
0096 5829 |X) | Indirect_Literal Float,0xc0,86400.0
0097 e011 | | Load 0x0,0x11
0098 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
0099 5822 |X" | Indirect_Literal Float,0xbc,-86400.0
009a e011 | | Load 0x0,0x11
009b 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
009c 4ff2 |O | Short_Literal -0xe
009d 4820 |H | Short_Literal 0x20
009e 0092 00e4 | | Action Push_String_Extended,0xe4 ; "DURATION"
00a0 e010 | | Load 0x0,0x10
00a1 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a2 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00a3 e010 | | Load 0x0,0x10
00a4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a5 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
00a6 011e | | Execute Any,Convert
00a7 e20e | | Load 0x1,0xe
00a8 00d9 | | Load_Top At_Offset_1
00a9 00db | | Load_Top At_Offset_3
00aa e404 | | Load 0x2,0x4
00ab 4801 |H | Short_Literal 0x1
00ac e010 | | Load 0x0,0x10
00ad 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ae 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
00af e010 | | Load 0x0,0x10
00b0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00b1 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
00b2 011e | | Execute Any,Convert
00b3 BODY_0008:
00b3 00d8 | | Load_Top At_Offset_0
00b4 e010 | | Load 0x0,0x10
00b5 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00b6 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
00b7 011d | | Execute Any,Convert_To_Formal
00b8 00ca | | Action Exit_Nullary_Function
00b9 0000 0000 | | .XXX[0x3]
00bb 0000 | |
00bc c0f5 1800 | | .DBL -86400.0
00be 0000 0000 | |
00c0 40f5 1800 |@ | .DBL 86400.0
00c2 0000 0000 | |
00c4 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
00c8 7fef ffff | | .DBL 1.79769313486231e+308
00ca ffff ffe2 | |
00cc 47ef fffd |G | .DBL 3.4028199999999998e+38
00ce bd19 d02b | +|
00d0 ffff ffff | | .LITERAL {0xffffffff, 0x80000000}
00d4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00d8 ffff ffff | | .LITERAL {0xffffffff, 0xffff8000}
00dc 0000 0000 | | .LITERAL {0x00000000, 0x00007fff}
00e0 ; --------------------------------------------------------------------------------------
00e0 ; STRING TABLE
00e0 ; --------------------------------------------------------------------------------------
00e0 000c | | .STRTAB 0x000c->0x00e6 ; "SHORT_INTEGER"
00e1 0017 | | .STRTAB 0x0017->0x00ec ; "INTEGER"
00e2 001c | | .STRTAB 0x001c->0x00f0 ; "FLOAT"
00e3 001f | | .STRTAB 0x001f->0x00f2 ; "LONG_FLOAT"
00e4 0027 | ' | .STRTAB 0x0027->0x00f7 ; "DURATION"
00e5 002d | - | .STREND 0x002d->0x00fb
00e6 5348 4f52 |SHOR| .STRTAB_STRINGS
00fc 0000 0000 | | .BLANK 0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; Debug Table
0100 ; --------------------------------------------------------------------------------------
0100 0004 0002 | | .DEBUG4 0x0004,0x0002,0x1830,0x0000,0x0001,0x0001
0106 000b 010a | | .DBG4T 0x000b,0x010a,0x0002,0x0000
010a ; --------------------------------------------------------------------------------------
010a ; Debug chain
010a ; --------------------------------------------------------------------------------------
010a 000a 0001 | | .DBGLEN 0x000a,0x0001
010c 000b 001c | | .DBGLNO 0x000b,0x001c,0x002d,0x0044,0x004a,0x0050,0x0067,0x007e,0x0095,0x00a7,0x00b3
0117 0000 0000 | | .BLANK 0000[0xe9]