|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 00f0 | | .CONST 0x00f0 ; 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 003f | ? | .CONST 0x003f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0122,0x8000,0x0000,0x0057,0xac65,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xc,0xfffe
000e 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xe,0xfffd
0010 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x10,0xfffc
0012 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x12,0xfffb
0014 0007 | | Action Break_Optional ; Debug Table 0x0.0x5 = 0x14,0xfffa
0015 00bf | | Action Accept_Activation ; Debug Table 0x0.0x6 = 0x15,0xfff9
0016 e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x0016,0x0132,0x8000,0x0000,0x0057,0xad45,0x0000,0x000b
; Debug Table 0x1.0x0 = 0x16,0xffff
0017 1929 | ) | Execute Package,Field_Reference,Field_Number 0x29
0018 0007 | | Action Break_Optional
0019 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x1 = 0x19,0xfffe
001a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001b 0266 | f | Execute Discrete,Bounds
001c e003 | | Load 0x0,0x3
001d 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
001e 02a0 | | Declare_Subprogram Null_Subprogram
001f 4801 |H | Short_Literal 0x1
0020 035d | ] | Declare_Type Array,Defined
0021 00d8 | | Load_Top At_Offset_0
0022 0337 | 7 | Declare_Variable Array
0023 00d8 | | Load_Top At_Offset_0
0024 0337 | 7 | Declare_Variable Array
0025 4802 |H | Short_Literal 0x2
0026 4800 |H | Short_Literal 0x0
0027 00da | | Load_Top At_Offset_2
0028 01d6 | | Execute Vector,Field_Write
0029 4806 |H | Short_Literal 0x6
002a 4801 |H | Short_Literal 0x1
002b 00da | | Load_Top At_Offset_2
002c 01d6 | | Execute Vector,Field_Write
002d 4807 |H | Short_Literal 0x7
002e 4802 |H | Short_Literal 0x2
002f 00da | | Load_Top At_Offset_2
0030 01d6 | | Execute Vector,Field_Write
0031 4807 |H | Short_Literal 0x7
0032 4803 |H | Short_Literal 0x3
0033 00da | | Load_Top At_Offset_2
0034 01d6 | | Execute Vector,Field_Write
0035 00d9 | | Load_Top At_Offset_1
0036 01d4 | | Execute Vector,Structure_Write
0037 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x2 = 0x37,0xfffd
0038 00c7 | | Action Elaborate_Subprogram
0039 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x3 = 0x39,0xfffc
003a 00c7 | | Action Elaborate_Subprogram
003b 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x4 = 0x3b,0xfffb
003c 00c7 | | Action Elaborate_Subprogram
003d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x5 = 0x3d,0xfffa
003e 00c7 | | Action Elaborate_Subprogram
003f BODY_0008:
003f 00bc | | Action Signal_Activated
0040 00bb | | Action Signal_Completion
0041 0000 0000 | | .BLANK 0000[0x7]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0058 | X | .CONST 0x0058 ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0005 | | .CONST 0x0005 ; Number of locals
004b INIT_0048:
004b e002 | | Load 0x0,0x2 ; Debug Table 0x2 = .DEBUG 0x004b,0x0140,0x0001,0x0000,0x0057,0xac65,0x0000,0x000e
; Debug Table 0x2.0x0 = 0x4b,0xffff
004c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
004d 02c7 | | Declare_Variable Any
004e 00d8 | | Load_Top At_Offset_0
004f 1c00 | | Execute_Immediate Run_Utility,0x0
0050 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x1 = 0x50,0xfffe
0051 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x2 = 0x51,0xfffd
0052 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0053 02c7 | | Declare_Variable Any
0054 00d8 | | Load_Top At_Offset_0
0055 1c00 | | Execute_Immediate Run_Utility,0x0
0056 e003 | | Load 0x0,0x3 ; Debug Table 0x2.0x3 = 0x56,0xfffc
0057 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0058 BODY_0048:
0058 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x4 = 0x58,0x1
0059 4801 |H | Short_Literal 0x1
005a e003 | | Load 0x0,0x3
005b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
005c 6804 |h | Jump_Zero 0x61
005d e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x5 = 0x5d,0x2
005e e004 | | Load 0x0,0x4
005f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0060 7826 |x& | Jump 0x87
0061 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x6 = 0x61,0x3
0062 e402 | | Load 0x2,0x2
0063 0120 | | Execute Any,Is_Value
0064 6803 |h | Jump_Zero 0x68
0065 e005 | | Load 0x0,0x5
0066 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0067 7801 |x | Jump 0x69
0068 e402 | | Load 0x2,0x2
0069 e006 | | Load 0x0,0x6
006a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
006b e005 | | Load 0x0,0x5
006c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
006d c402 | | Store 0x2,0x2
006e 005b | [ | Store_Top Discrete,At_Offset_3
006f 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x7 = 0x6f,0x4
0070 6816 |h | Jump_Zero 0x87
0071 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x8 = 0x71,0x5
0072 e402 | | Load 0x2,0x2
0073 e002 | | Load 0x0,0x2
0074 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0075 c404 | | Store 0x2,0x4
0076 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x9 = 0x76,0x6
0077 e002 | | Load 0x0,0x2
0078 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0079 700d |p | Jump_Nonzero 0x87
007a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0xa = 0x7a,0x7
007b e002 | | Load 0x0,0x2
007c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
007d e213 | | Load 0x1,0x13
007e 01d7 | | Execute Vector,Field_Read
007f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0080 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0xb = 0x80,0x8
0081 00d9 | | Load_Top At_Offset_1
0082 00db | | Load_Top At_Offset_3
0083 e002 | | Load 0x0,0x2
0084 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0085 e004 | | Load 0x0,0x4
0086 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0087 e006 | | Load 0x0,0x6 ; Debug Table 0x2.0xc = 0x87,0x9
0088 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0089 e005 | | Load 0x0,0x5
008a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
008b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
008c 0000 0000 | | .BLANK 0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00db | | Load_Top At_Offset_3 ; Debug Table 0x3 = .DEBUG 0x0093,0x015c,0x0001,0x0000,0x0057,0xac65,0x0000,0x0018
; Debug Table 0x3.0x0 = 0x93,0x1
0094 820d | | Call 0x1,0xd
0095 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x1 = 0x95,0x2
0096 00db | | Load_Top At_Offset_3
0097 e5fd | | Load 0x2,-0x3
0098 8211 | | Call 0x1,0x11
0099 4504 |E | Exit_Suprogram New_Top_Offset 0x4
009a 0000 0000 | | .BLANK 0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x00a3,0x0162,0x0001,0x0000,0x0057,0xac65,0x0000,0x002f
; Debug Table 0x4.0x0 = 0xa3,0x1
00a4 0b00 | | Execute_Immediate Case_Compare,0x0
00a5 7010 |p | Jump_Nonzero 0xb6
00a6 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x1 = 0xa6,0x3
00a7 820d | | Call 0x1,0xd
00a8 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x2 = 0xa8,0x4
00a9 e5ff | | Load 0x2,-0x1
00aa e007 | | Load 0x0,0x7
00ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ac 025e | ^ | Execute Discrete,Convert
00ad 1c01 | | Execute_Immediate Run_Utility,0x1
00ae 0092 00d5 | | Action Push_String_Extended,0xd5 ; " returned while "
00b0 01cc | | Execute Vector,Catenate
00b1 e5fe | | Load 0x2,-0x2
00b2 01cc | | Execute Vector,Catenate
00b3 e5fc | | Load 0x2,-0x4
00b4 8211 | | Call 0x1,0x11
00b5 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00b6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0x4.0x3 = 0xb6,0x2
00b7 0000 | | .XXX[0x1]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00bb,0x016c,0x0001,0x0000,0x0057,0xac65,0x0000,0x004f
; Debug Table 0x5.0x0 = 0xbb,0x1
00bc 0b00 | | Execute_Immediate Case_Compare,0x0
00bd 7016 |p | Jump_Nonzero 0xd4
00be e5fc | | Load 0x2,-0x4 ; Debug Table 0x5.0x1 = 0xbe,0x3
00bf 820d | | Call 0x1,0xd
00c0 e5fc | | Load 0x2,-0x4 ; Debug Table 0x5.0x2 = 0xc0,0x4
00c1 0092 00d6 | | Action Push_String_Extended,0xd6 ; "Had trouble "
00c3 e5fe | | Load 0x2,-0x2
00c4 01cc | | Execute Vector,Catenate
00c5 0092 00d7 | | Action Push_String_Extended,0xd7 ; " ("
00c7 01cc | | Execute Vector,Catenate
00c8 e5fd | | Load 0x2,-0x3
00c9 e5ff | | Load 0x2,-0x1
00ca e007 | | Load 0x0,0x7
00cb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00cc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00cd 01cc | | Execute Vector,Catenate
00ce 0092 00d8 | | Action Push_String_Extended,0xd8 ; ")"
00d0 01cc | | Execute Vector,Catenate
00d1 e5fb | | Load 0x2,-0x5
00d2 8211 | | Call 0x1,0x11
00d3 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00d4 4506 |E | Exit_Suprogram New_Top_Offset 0x6 ; Debug Table 0x5.0x3 = 0xd4,0x2
00d5 ; --------------------------------------------------------------------------------------
00d5 ; STRING TABLE
00d5 ; --------------------------------------------------------------------------------------
00d5 000a | | .STRTAB 0x000a->0x00da ; " returned while "
00d6 0018 | | .STRTAB 0x0018->0x00e2 ; "Had trouble "
00d7 0022 | " | .STRTAB 0x0022->0x00e8 ; " ("
00d8 0022 | " | .STRTAB 0x0022->0x00e9 ; ")"
00d9 0021 | ! | .STREND 0x0021->0x00e9
00da 2072 6574 | ret| .STRTAB_STRINGS
00ea 0000 0000 | | .BLANK 0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; Debug Table
00f0 ; --------------------------------------------------------------------------------------
00f0 0003 0006 | | .CONST 0x0003,0x0006
00f2 000b 0122 | "| .DEBUG 0x000b,0x0122,0x8000,0x0000,0x0057,0xac65,0x0000,0x0007
00fa 0016 0132 | 2| .DEBUG 0x0016,0x0132,0x8000,0x0000,0x0057,0xad45,0x0000,0x000b
0102 004b 0140 | K @| .DEBUG 0x004b,0x0140,0x0001,0x0000,0x0057,0xac65,0x0000,0x000e
010a 0093 015c | \| .DEBUG 0x0093,0x015c,0x0001,0x0000,0x0057,0xac65,0x0000,0x0018
0112 00a3 0162 | b| .DEBUG 0x00a3,0x0162,0x0001,0x0000,0x0057,0xac65,0x0000,0x002f
011a 00bb 016c | l| .DEBUG 0x00bb,0x016c,0x0001,0x0000,0x0057,0xac65,0x0000,0x004f
0122 ; --------------------------------------------------------------------------------------
0122 ; Debug3 Subtable 0x0
0122 ; --------------------------------------------------------------------------------------
0122 0007 0000 | | .DBG3TAB 0x0007,0x0000
0124 000b ffff | | .CONST 0x000b,0xffff
0126 000c fffe | | .CONST 0x000c,0xfffe
0128 000e fffd | | .CONST 0x000e,0xfffd
012a 0010 fffc | | .CONST 0x0010,0xfffc
012c 0012 fffb | | .CONST 0x0012,0xfffb
012e 0014 fffa | | .CONST 0x0014,0xfffa
0130 0015 fff9 | | .CONST 0x0015,0xfff9
0132 ; --------------------------------------------------------------------------------------
0132 ; Debug3 Subtable 0x1
0132 ; --------------------------------------------------------------------------------------
0132 0006 0000 | | .DBG3TAB 0x0006,0x0000
0134 0016 ffff | | .CONST 0x0016,0xffff
0136 0019 fffe | | .CONST 0x0019,0xfffe
0138 0037 fffd | 7 | .CONST 0x0037,0xfffd
013a 0039 fffc | 9 | .CONST 0x0039,0xfffc
013c 003b fffb | ; | .CONST 0x003b,0xfffb
013e 003d fffa | = | .CONST 0x003d,0xfffa
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug3 Subtable 0x2
0140 ; --------------------------------------------------------------------------------------
0140 0004 0009 | | .DBG3TAB 0x0004,0x0009
0142 004b ffff | K | .CONST 0x004b,0xffff
0144 0050 fffe | P | .CONST 0x0050,0xfffe
0146 0051 fffd | Q | .CONST 0x0051,0xfffd
0148 0056 fffc | V | .CONST 0x0056,0xfffc
014a 0058 0001 | X | .CONST 0x0058,0x0001
014c 005d 0002 | ] | .CONST 0x005d,0x0002
014e 0061 0003 | a | .CONST 0x0061,0x0003
0150 006f 0004 | o | .CONST 0x006f,0x0004
0152 0071 0005 | q | .CONST 0x0071,0x0005
0154 0076 0006 | v | .CONST 0x0076,0x0006
0156 007a 0007 | z | .CONST 0x007a,0x0007
0158 0080 0008 | | .CONST 0x0080,0x0008
015a 0087 0009 | | .CONST 0x0087,0x0009
015c ; --------------------------------------------------------------------------------------
015c ; Debug3 Subtable 0x3
015c ; --------------------------------------------------------------------------------------
015c 0000 0002 | | .DBG3TAB 0x0000,0x0002
015e 0093 0001 | | .CONST 0x0093,0x0001
0160 0095 0002 | | .CONST 0x0095,0x0002
0162 ; --------------------------------------------------------------------------------------
0162 ; Debug3 Subtable 0x4
0162 ; --------------------------------------------------------------------------------------
0162 0000 0004 | | .DBG3TAB 0x0000,0x0004
0164 00a3 0001 | | .CONST 0x00a3,0x0001
0166 00a6 0003 | | .CONST 0x00a6,0x0003
0168 00a8 0004 | | .CONST 0x00a8,0x0004
016a 00b6 0002 | | .CONST 0x00b6,0x0002
016c ; --------------------------------------------------------------------------------------
016c ; Debug3 Subtable 0x5
016c ; --------------------------------------------------------------------------------------
016c 0000 0004 | | .DBG3TAB 0x0000,0x0004
016e 00bb 0001 | | .CONST 0x00bb,0x0001
0170 00be 0003 | | .CONST 0x00be,0x0003
0172 00c0 0004 | | .CONST 0x00c0,0x0004
0174 00d4 0002 | | .CONST 0x00d4,0x0002
0176 0000 0000 | | .BLANK 0000[0x8a]