|
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_4f24c5
└─⟦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 0110 | | .CONST 0x0110 ; 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 00c0 | | .CONST 0x00c0 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000b | | .CONST 0x000b ; 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 00e8 | | Action Push_String_Extended,0xe8 ; "BYTE_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 60c6 |` | Indirect_Literal Discrete,0xe4,{0x00000000, 0x00007fff}
001e e00b | | Load 0x0,0xb
001f 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0020 60bf |` | Indirect_Literal Discrete,0xe0,{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 00e9 | | Action Push_String_Extended,0xe9 ; "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 60ad |` | Indirect_Literal Discrete,0xdc,{0x00000000, 0x7fffffff}
002f e00b | | Load 0x0,0xb
0030 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0031 60a6 |` | Indirect_Literal Discrete,0xd8,{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 00ea | | Action Push_String_Extended,0xea ; "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 609c |` | Indirect_Literal Discrete,0xdc,{0x00000000, 0x7fffffff}
0040 e00b | | Load 0x0,0xb
0041 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0042 6095 |` | Indirect_Literal Discrete,0xd8,{0xffffffff, 0x80000000}
0043 e00b | | Load 0x0,0xb
0044 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0045 4820 |H | Short_Literal 0x20
0046 0092 00eb | | Action Push_String_Extended,0xeb ; "LONG_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 585d |X] | Indirect_Literal Float,0xd4,1.79769313486231e+308
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 e20f | | Load 0x1,0xf
007d 4801 |H | Short_Literal 0x1
007e 4801 |H | Short_Literal 0x1
007f 4835 |H5 | Short_Literal 0x35
0080 4802 |H | Short_Literal 0x2
0081 4c03 |L | Short_Literal -0x3fd
0082 604d |`M | Indirect_Literal Discrete,0xd0,{0x00000000, 0x00000400}
0083 4bfc |K | Short_Literal 0x3fc
0084 e407 | | Load 0x2,0x7
0085 00d8 | | Load_Top At_Offset_0
0086 e00b | | Load 0x0,0xb
0087 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0088 4840 |H@ | Short_Literal 0x40
0089 480f |H | Short_Literal 0xf
008a 0092 00ec | | Action Push_String_Extended,0xec ; "FLOAT"
008c e00a | | Load 0x0,0xa
008d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
008e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
008f e00a | | Load 0x0,0xa
0090 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0091 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0092 011e | | Execute Any,Convert
0093 4801 |H | Short_Literal 0x1
0094 4801 |H | Short_Literal 0x1
0095 e00a | | Load 0x0,0xa
0096 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0097 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0098 035b | [ | Declare_Type Array,Constrained
0099 0337 | 7 | Declare_Variable Array
009a 00d9 | | Load_Top At_Offset_1
009b e00a | | Load 0x0,0xa
009c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
009d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
009e 0119 | | Execute Any,Check_In_Formal_Type
009f 4801 |H | Short_Literal 0x1
00a0 00da | | Load_Top At_Offset_2
00a1 01d6 | | Execute Vector,Field_Write
00a2 e20f | | Load 0x1,0xf
00a3 5828 |X( | Indirect_Literal Float,0xcc,86400.0
00a4 e00b | | Load 0x0,0xb
00a5 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
00a6 5821 |X! | Indirect_Literal Float,0xc8,-86400.0
00a7 e00b | | Load 0x0,0xb
00a8 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
00a9 4ff2 |O | Short_Literal -0xe
00aa 4820 |H | Short_Literal 0x20
00ab 0092 00ed | | Action Push_String_Extended,0xed ; "DURATION"
00ad e00a | | Load 0x0,0xa
00ae 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00af 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00b0 e00a | | Load 0x0,0xa
00b1 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00b2 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
00b3 011e | | Execute Any,Convert
00b4 e20f | | Load 0x1,0xf
00b5 00d9 | | Load_Top At_Offset_1
00b6 00db | | Load_Top At_Offset_3
00b7 e406 | | Load 0x2,0x6
00b8 4801 |H | Short_Literal 0x1
00b9 e00a | | Load 0x0,0xa
00ba 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00bb 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
00bc e00a | | Load 0x0,0xa
00bd 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00be 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
00bf 011e | | Execute Any,Convert
00c0 BODY_0008:
00c0 00d8 | | Load_Top At_Offset_0
00c1 e00a | | Load 0x0,0xa
00c2 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00c3 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
00c4 011d | | Execute Any,Convert_To_Formal
00c5 00ca | | Action Exit_Nullary_Function
00c6 0000 0000 | | .XXX[0x2]
00c8 c0f5 1800 | | .DBL -86400.0
00ca 0000 0000 | |
00cc 40f5 1800 |@ | .DBL 86400.0
00ce 0000 0000 | |
00d0 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
00d4 7fef ffff | | .DBL 1.79769313486231e+308
00d6 ffff ffe2 | |
00d8 ffff ffff | | .LITERAL {0xffffffff, 0x80000000}
00dc 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00e0 ffff ffff | | .LITERAL {0xffffffff, 0xffff8000}
00e4 0000 0000 | | .LITERAL {0x00000000, 0x00007fff}
00e8 ; --------------------------------------------------------------------------------------
00e8 ; STRING TABLE
00e8 ; --------------------------------------------------------------------------------------
00e8 000e | | .STRTAB 0x000e->0x00ef ; "BYTE_INTEGER"
00e9 0018 | | .STRTAB 0x0018->0x00f5 ; "SHORT_INTEGER"
00ea 0023 | # | .STRTAB 0x0023->0x00fb ; "INTEGER"
00eb 0028 | ( | .STRTAB 0x0028->0x00ff ; "LONG_INTEGER"
00ec 0032 | 2 | .STRTAB 0x0032->0x0105 ; "FLOAT"
00ed 0035 | 5 | .STRTAB 0x0035->0x0107 ; "DURATION"
00ee 003b | ; | .STREND 0x003b->0x010b
00ef 4259 5445 |BYTE| .STRTAB_STRINGS
010c 0000 0000 | | .BLANK 0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; Debug Table
0110 ; --------------------------------------------------------------------------------------
0110 0004 0004 | | .DEBUG4 0x0004,0x0004,0x6bec,0x0000,0x0001,0x0001
0116 000b 011a | | .DBG4T 0x000b,0x011a,0x0002,0x0000
011a ; --------------------------------------------------------------------------------------
011a ; Debug chain
011a ; --------------------------------------------------------------------------------------
011a 000a 0001 | | .DBGLEN 0x000a,0x0001
011c 000b 001c | | .DBGLNO 0x000b,0x001c,0x002d,0x003e,0x004f,0x0076,0x007c,0x0093,0x00a2,0x00b4,0x00c0
0127 0000 0000 | | .BLANK 0000[0xd9]