|
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_0ea8df
└─⟦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 00e0 | | .CONST 0x00e0 ; 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 0024 | $ | .CONST 0x0024 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0011 | | .CONST 0x0011 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x011a,0x8000,0x0000,0x0059,0x7365,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 0007 | | Action Break_Optional ; Debug Table 0x0.0x3 = 0xe,0xfffc
000f 0007 | | Action Break_Optional ; Debug Table 0x0.0x4 = 0xf,0xfffb
0010 0007 | | Action Break_Optional ; Debug Table 0x0.0x5 = 0x10,0xfffa
0011 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x11,0xfff9
0013 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x13,0xfff8
0015 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x15,0xfff7
0017 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x17,0xfff6
0019 00bf | | Action Accept_Activation
001a 029d 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call ; Debug Table 0x1 = .DEBUG 0x001a,0x0130,0x8000,0x0000,0x0059,0x75f5,0x0000,0x0009
; Debug Table 0x1.0x0 = 0x1a,0xffff
001c 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x1 = 0x1c,0xfffe
001d 00c7 | | Action Elaborate_Subprogram
001e 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x2 = 0x1e,0xfffd
001f 00c7 | | Action Elaborate_Subprogram
0020 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x3 = 0x20,0xfffc
0021 00c7 | | Action Elaborate_Subprogram
0022 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x4 = 0x22,0xfffb
0023 00c7 | | Action Elaborate_Subprogram
0024 BODY_0008:
0024 00bc | | Action Signal_Activated
0025 00bb | | Action Signal_Completion
0026 0000 0000 | | .XXX[0x2]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 002f | / | .CONST 0x002f ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 0002 | | .CONST 0x0002 ; Number of locals
002b INIT_0028:
002b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2 = .DEBUG 0x002b,0x013c,0x0002,0x0000,0x0059,0x7365,0x0000,0x0023
; Debug Table 0x2.0x0 = 0x2b,0xffff
002c 00db | | Load_Top At_Offset_3
002d 8211 | | Call 0x1,0x11
002e 0031 | 1 | Store_Top Heap_Access,At_Offset_1
002f BODY_0028:
002f 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x1 = 0x2f,0x1
0030 4976 |Iv | Short_Literal 0x176
0031 00eb | | Load_Encached Diana_Cache
0032 0098 | | Execute Package,Field_Read_Dynamic
0033 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0034 680a |h | Jump_Zero 0x3f
0035 482a |H* | Short_Literal 0x2a ; Debug Table 0x2.0x2 = 0x35,0x2
0036 482a |H* | Short_Literal 0x2a
0037 e5ff | | Load 0x2,-0x1
0038 00eb | | Load_Encached Diana_Cache
0039 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
003a 00eb | | Load_Encached Diana_Cache
003b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
003c 01ca | | Execute Vector,Prepend
003d 01cb | | Execute Vector,Append
003e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
003f 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x3 = 0x3f,0x3
0040 e001 | | Load 0x0,0x1
0041 189e | | Execute Package,Field_Execute,Field_Number 0x9e
0042 680e |h | Jump_Zero 0x51
0043 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x4 = 0x43,0x4
0044 e002 | | Load 0x0,0x2
0045 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0046 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0047 00d9 | | Load_Top At_Offset_1
0048 e002 | | Load 0x0,0x2
0049 1b13 | | Execute Package,Field_Read,Field_Number 0x13
004a 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
004b 00da | | Load_Top At_Offset_2
004c e002 | | Load 0x0,0x2
004d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
004e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
004f 820e | | Call 0x1,0xe
0050 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0051 0092 00d0 | | Action Push_String_Extended,0xd0 ; "<NO TYPE KEY>"
; Debug Table 0x2.0x5 = 0x51,0x5
0053 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0054 0000 0000 | | .BLANK 0000[0x4]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 482e |H. | Short_Literal 0x2e ; Debug Table 0x3 = .DEBUG 0x005b,0x014a,0x0002,0x0000,0x0059,0x7365,0x0000,0x002e
; Debug Table 0x3.0x0 = 0x5b,0x1
005c 482e |H. | Short_Literal 0x2e
005d 4830 |H0 | Short_Literal 0x30
005e 4810 |H | Short_Literal 0x10
005f 4810 |H | Short_Literal 0x10
0060 e5ff | | Load 0x2,-0x1
0061 e003 | | Load 0x0,0x3
0062 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0063 01cb | | Execute Vector,Append
0064 4830 |H0 | Short_Literal 0x30
0065 4804 |H | Short_Literal 0x4
0066 4810 |H | Short_Literal 0x10
0067 e5fe | | Load 0x2,-0x2
0068 e003 | | Load 0x0,0x3
0069 1816 | | Execute Package,Field_Execute,Field_Number 0x16
006a 01cc | | Execute Vector,Catenate
006b 01cb | | Execute Vector,Append
006c 4830 |H0 | Short_Literal 0x30
006d 4808 |H | Short_Literal 0x8
006e 4810 |H | Short_Literal 0x10
006f e5fd | | Load 0x2,-0x3
0070 e003 | | Load 0x0,0x3
0071 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0072 01cc | | Execute Vector,Catenate
0073 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0074 0000 0000 | | .BLANK 0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 482e |H. | Short_Literal 0x2e ; Debug Table 0x4 = .DEBUG 0x007b,0x014e,0x0002,0x0000,0x0059,0x7365,0x0000,0x0049
; Debug Table 0x4.0x0 = 0x7b,0x1
007c 482e |H. | Short_Literal 0x2e
007d 4820 |H | Short_Literal 0x20
007e 4800 |H | Short_Literal 0x0
007f 480a |H | Short_Literal 0xa
0080 e5ff | | Load 0x2,-0x1
0081 e003 | | Load 0x0,0x3
0082 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0083 01cb | | Execute Vector,Append
0084 4820 |H | Short_Literal 0x20
0085 4800 |H | Short_Literal 0x0
0086 480a |H | Short_Literal 0xa
0087 e5fe | | Load 0x2,-0x2
0088 e003 | | Load 0x0,0x3
0089 1816 | | Execute Package,Field_Execute,Field_Number 0x16
008a 01cc | | Execute Vector,Catenate
008b 01cb | | Execute Vector,Append
008c 4820 |H | Short_Literal 0x20
008d 4800 |H | Short_Literal 0x0
008e 480a |H | Short_Literal 0xa
008f e5fd | | Load 0x2,-0x3
0090 e003 | | Load 0x0,0x3
0091 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0092 01cc | | Execute Vector,Catenate
0093 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a2 | | .CONST 0x00a2 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x009b,0x0152,0x0002,0x0000,0x0059,0x7365,0x0000,0x005a
; Debug Table 0x5.0x0 = 0x9b,0xffff
009c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
009d e004 | | Load 0x0,0x4
009e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
009f 0122 | " | Execute Any,Make_Root_Type
00a0 025e | ^ | Execute Discrete,Convert
00a1 1c01 | | Execute_Immediate Run_Utility,0x1
00a2 BODY_0098:
00a2 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x1 = 0xa2,0x1
00a3 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
00a4 7002 |p | Jump_Nonzero 0xa7
00a5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x2 = 0xa5,0x2
00a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a7 482e |H. | Short_Literal 0x2e ; Debug Table 0x5.0x3 = 0xa7,0x3
00a8 00d9 | | Load_Top At_Offset_1
00a9 01cb | | Execute Vector,Append
00aa 4820 |H | Short_Literal 0x20
00ab 4800 |H | Short_Literal 0x0
00ac 480a |H | Short_Literal 0xa
00ad e5ff | | Load 0x2,-0x1
00ae 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
00af e003 | | Load 0x0,0x3
00b0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00b1 01cc | | Execute Vector,Catenate
00b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b3 0000 0000 | | .BLANK 0000[0x5]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00be | | .CONST 0x00be ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0003 | | .CONST 0x0003 ; Number of locals
00bb INIT_00b8:
00bb e005 | | Load 0x0,0x5 ; Debug Table 0x6 = .DEBUG 0x00bb,0x015c,0x0002,0x0000,0x0059,0x75f5,0x0000,0x000a
; Debug Table 0x6.0x0 = 0xbb,0xffff
00bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bd 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x6.0x1 = 0xbd,0xfffe
00be BODY_00b8:
00be e005 | | Load 0x0,0x5 ; Debug Table 0x6.0x2 = 0xbe,0x1
00bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c0 e005 | | Load 0x0,0x5
00c1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00c2 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00c3 e5ff | | Load 0x2,-0x1
00c4 e005 | | Load 0x0,0x5
00c5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00c6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00c7 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00c8 005a | Z | Store_Top Discrete,At_Offset_2
00c9 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x3 = 0xc9,0x2
00ca 7002 |p | Jump_Nonzero 0xcd
00cb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x4 = 0xcb,0x3
00cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00cd 00eb | | Load_Encached Diana_Cache ; Debug Table 0x6.0x5 = 0xcd,0x4
00ce 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d0 ; --------------------------------------------------------------------------------------
00d0 ; STRING TABLE
00d0 ; --------------------------------------------------------------------------------------
00d0 0004 | | .STRTAB 0x0004->0x00d2 ; "<NO TYPE KEY>"
00d1 000f | | .STREND 0x000f->0x00d8
00d2 3c4e 4f20 |<NO | .STRTAB_STRINGS
00d9 0000 0000 | | .BLANK 0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug Table
00e0 ; --------------------------------------------------------------------------------------
00e0 0003 0007 | | .CONST 0x0003,0x0007
00e2 000b 011a | | .DEBUG 0x000b,0x011a,0x8000,0x0000,0x0059,0x7365,0x0000,0x0009
00ea 001a 0130 | 0| .DEBUG 0x001a,0x0130,0x8000,0x0000,0x0059,0x75f5,0x0000,0x0009
00f2 002b 013c | + <| .DEBUG 0x002b,0x013c,0x0002,0x0000,0x0059,0x7365,0x0000,0x0023
00fa 005b 014a | [ J| .DEBUG 0x005b,0x014a,0x0002,0x0000,0x0059,0x7365,0x0000,0x002e
0102 007b 014e | { N| .DEBUG 0x007b,0x014e,0x0002,0x0000,0x0059,0x7365,0x0000,0x0049
010a 009b 0152 | R| .DEBUG 0x009b,0x0152,0x0002,0x0000,0x0059,0x7365,0x0000,0x005a
0112 00bb 015c | \| .DEBUG 0x00bb,0x015c,0x0002,0x0000,0x0059,0x75f5,0x0000,0x000a
011a ; --------------------------------------------------------------------------------------
011a ; Debug3 Subtable 0x0
011a ; --------------------------------------------------------------------------------------
011a 000a 0000 | | .DBG3TAB 0x000a,0x0000
011c 000b ffff | | .CONST 0x000b,0xffff
011e 000c fffe | | .CONST 0x000c,0xfffe
0120 000d fffd | | .CONST 0x000d,0xfffd
0122 000e fffc | | .CONST 0x000e,0xfffc
0124 000f fffb | | .CONST 0x000f,0xfffb
0126 0010 fffa | | .CONST 0x0010,0xfffa
0128 0011 fff9 | | .CONST 0x0011,0xfff9
012a 0013 fff8 | | .CONST 0x0013,0xfff8
012c 0015 fff7 | | .CONST 0x0015,0xfff7
012e 0017 fff6 | | .CONST 0x0017,0xfff6
0130 ; --------------------------------------------------------------------------------------
0130 ; Debug3 Subtable 0x1
0130 ; --------------------------------------------------------------------------------------
0130 0005 0000 | | .DBG3TAB 0x0005,0x0000
0132 001a ffff | | .CONST 0x001a,0xffff
0134 001c fffe | | .CONST 0x001c,0xfffe
0136 001e fffd | | .CONST 0x001e,0xfffd
0138 0020 fffc | | .CONST 0x0020,0xfffc
013a 0022 fffb | " | .CONST 0x0022,0xfffb
013c ; --------------------------------------------------------------------------------------
013c ; Debug3 Subtable 0x2
013c ; --------------------------------------------------------------------------------------
013c 0001 0005 | | .DBG3TAB 0x0001,0x0005
013e 002b ffff | + | .CONST 0x002b,0xffff
0140 002f 0001 | / | .CONST 0x002f,0x0001
0142 0035 0002 | 5 | .CONST 0x0035,0x0002
0144 003f 0003 | ? | .CONST 0x003f,0x0003
0146 0043 0004 | C | .CONST 0x0043,0x0004
0148 0051 0005 | Q | .CONST 0x0051,0x0005
014a ; --------------------------------------------------------------------------------------
014a ; Debug3 Subtable 0x3
014a ; --------------------------------------------------------------------------------------
014a 0000 0001 | | .DBG3TAB 0x0000,0x0001
014c 005b 0001 | [ | .CONST 0x005b,0x0001
014e ; --------------------------------------------------------------------------------------
014e ; Debug3 Subtable 0x4
014e ; --------------------------------------------------------------------------------------
014e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0150 007b 0001 | { | .CONST 0x007b,0x0001
0152 ; --------------------------------------------------------------------------------------
0152 ; Debug3 Subtable 0x5
0152 ; --------------------------------------------------------------------------------------
0152 0001 0003 | | .DBG3TAB 0x0001,0x0003
0154 009b ffff | | .CONST 0x009b,0xffff
0156 00a2 0001 | | .CONST 0x00a2,0x0001
0158 00a5 0002 | | .CONST 0x00a5,0x0002
015a 00a7 0003 | | .CONST 0x00a7,0x0003
015c ; --------------------------------------------------------------------------------------
015c ; Debug3 Subtable 0x6
015c ; --------------------------------------------------------------------------------------
015c 0002 0004 | | .DBG3TAB 0x0002,0x0004
015e 00bb ffff | | .CONST 0x00bb,0xffff
0160 00bd fffe | | .CONST 0x00bd,0xfffe
0162 00be 0001 | | .CONST 0x00be,0x0001
0164 00c9 0002 | | .CONST 0x00c9,0x0002
0166 00cb 0003 | | .CONST 0x00cb,0x0003
0168 00cd 0004 | | .CONST 0x00cd,0x0004
016a 0000 0000 | | .BLANK 0000[0x96]