|
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 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 0021 | ! | .CONST 0x0021 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0012 | | .CONST 0x0012 ; Number of locals
000b INIT_0008:
000b 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x011a,0x8000,0x0000,0x0057,0x6645,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 00bf | | Action Accept_Activation
0014 e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x0014,0x0124,0x8000,0x0000,0x0057,0x67a5,0x0000,0x000f
; Debug Table 0x1.0x0 = 0x14,0xffff
0015 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0016 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0017 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x1 = 0x17,0xfffe
0018 00c7 | | Action Elaborate_Subprogram
0019 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x2 = 0x19,0xfffd
001a 00c7 | | Action Elaborate_Subprogram
001b 029d 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call ; Debug Table 0x1.0x3 = 0x1b,0xfffc
001d 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x4 = 0x1d,0xfffb
001e 00c7 | | Action Elaborate_Subprogram
001f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x5 = 0x1f,0xfffa
0020 00c7 | | Action Elaborate_Subprogram
0021 BODY_0008:
0021 00cf | | Action Mark_Auxiliary ; Debug Table 0x1.0x6 = 0x21,0x1
0022 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x7 = 0x22,0xfbff
0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0024 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x8 = 0x24,0xfbfe
0025 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0026 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0027 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x9 = 0x27,0xfbfd
0028 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0029 02c7 | | Declare_Variable Any
002a 00d8 | | Load_Top At_Offset_0
002b 1c00 | | Execute_Immediate Run_Utility,0x0
002c e001 | | Load 0x0,0x1 ; Debug Table 0x1.0xa = 0x2c,0x401
002d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
002e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002f 00d9 | | Load_Top At_Offset_1
0030 0120 | | Execute Any,Is_Value
0031 6803 |h | Jump_Zero 0x35
0032 e001 | | Load 0x0,0x1
0033 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0034 7801 |x | Jump 0x36
0035 00d9 | | Load_Top At_Offset_1
0036 6085 |` | Indirect_Literal Discrete,0xbc,{0x00000000, 0x00004000}
0037 e002 | | Load 0x0,0x2
0038 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0039 e003 | | Load 0x0,0x3
003a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
003b e001 | | Load 0x0,0x1
003c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
003d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
003e 820d | | Call 0x1,0xd
003f e001 | | Load 0x0,0x1
0040 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0041 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0042 c216 | | Store 0x1,0x16
0043 005a | Z | Store_Top Discrete,At_Offset_2
0044 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1.0xb = 0x44,0x402
0045 6802 |h | Jump_Zero 0x48
0046 4887 |H | Short_Literal 0x87
0047 0257 | W | Execute Discrete,Raise
0048 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0xc = 0x48,0x403
0049 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004a e001 | | Load 0x0,0x1
004b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
004c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
004d 606e |`n | Indirect_Literal Discrete,0xbc,{0x00000000, 0x00004000}
004e e002 | | Load 0x0,0x2
004f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0050 4800 |H | Short_Literal 0x0
0051 e216 | | Load 0x1,0x16
0052 e001 | | Load 0x0,0x1
0053 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0054 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0055 c211 | | Store 0x1,0x11
0056 005b | [ | Store_Top Discrete,At_Offset_3
0057 00da | | Load_Top At_Offset_2 ; Debug Table 0x1.0xd = 0x57,0x404
0058 6802 |h | Jump_Zero 0x5b
0059 4887 |H | Short_Literal 0x87
005a 0257 | W | Execute Discrete,Raise
005b 00d3 | | Pop_Control Pop_Count_3
005c 00ce | | Action Pop_Auxiliary
005d 00bc | | Action Signal_Activated
005e 00bb | | Action Signal_Completion
005f 0000 | | .XXX[0x1]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 0092 00c0 | | Action Push_String_Extended,0xc0 ; "!Machine.Editor_Data"
; Debug Table 0x2 = .DEBUG 0x0063,0x0142,0x0002,0x0000,0x0057,0x6645,0x0000,0x0008
; Debug Table 0x2.0x0 = 0x63,0x1
0065 00ca | | Action Exit_Nullary_Function
0066 00c1 00ca | | .XXX[0x2]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b e211 | | Load 0x1,0x11 ; Debug Table 0x3 = .DEBUG 0x006b,0x0146,0x0002,0x0000,0x0057,0x6645,0x0000,0x000d
; Debug Table 0x3.0x0 = 0x6b,0x1
006c 00ca | | Action Exit_Nullary_Function
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x0073,0x014a,0x0002,0x0000,0x0057,0x6645,0x0000,0x0016
; Debug Table 0x4.0x0 = 0x73,0x1
0074 8212 | | Call 0x1,0x12
0075 e001 | | Load 0x0,0x1
0076 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0077 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0078 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0079 0000 0000 | | .BLANK 0000[0x7]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0088 | | .CONST 0x0088 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0003 | | .CONST 0x0003 ; Number of locals
0083 INIT_0080:
0083 e001 | | Load 0x0,0x1 ; Debug Table 0x5 = .DEBUG 0x0083,0x014e,0x0002,0x0000,0x0057,0x6645,0x0000,0x0021
; Debug Table 0x5.0x0 = 0x83,0xffff
0084 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0085 e001 | | Load 0x0,0x1 ; Debug Table 0x5.0x1 = 0x85,0xfffe
0086 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0087 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0088 BODY_0080:
0088 e001 | | Load 0x0,0x1 ; Debug Table 0x5.0x2 = 0x88,0x1
0089 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008a e001 | | Load 0x0,0x1
008b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
008c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
008d 602e |`. | Indirect_Literal Discrete,0xbc,{0x00000000, 0x00004000}
008e e002 | | Load 0x0,0x2
008f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0090 4800 |H | Short_Literal 0x0
0091 e5ff | | Load 0x2,-0x1
0092 8212 | | Call 0x1,0x12
0093 e001 | | Load 0x0,0x1
0094 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0095 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0096 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0097 005a | Z | Store_Top Discrete,At_Offset_2
0098 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x3 = 0x98,0x2
0099 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009a 0000 0000 | | .BLANK 0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00aa | | .CONST 0x00aa ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0003 | | .CONST 0x0003 ; Number of locals
00a3 INIT_00a0:
00a3 e004 | | Load 0x0,0x4 ; Debug Table 0x6 = .DEBUG 0x00a3,0x0158,0x0002,0x0000,0x0057,0x67a5,0x0000,0x0035
; Debug Table 0x6.0x0 = 0xa3,0xffff
00a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a5 02ff | | Declare_Variable Variant_Record
00a6 00d8 | | Load_Top At_Offset_0
00a7 1c00 | | Execute_Immediate Run_Utility,0x0
00a8 e005 | | Load 0x0,0x5 ; Debug Table 0x6.0x1 = 0xa8,0xfffe
00a9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00aa BODY_00a0:
00aa e005 | | Load 0x0,0x5 ; Debug Table 0x6.0x2 = 0xaa,0x1
00ab 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ac 00da | | Load_Top At_Offset_2
00ad e002 | | Load 0x0,0x2
00ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00af 4800 |H | Short_Literal 0x0
00b0 e5ff | | Load 0x2,-0x1
00b1 e006 | | Load 0x0,0x6
00b2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00b3 00d1 | | Pop_Control Pop_Count_1
00b4 0059 | Y | Store_Top Discrete,At_Offset_1
00b5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x3 = 0xb5,0x2
00b6 e001 | | Load 0x0,0x1
00b7 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40
00b8 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ba 0000 0000 | | .XXX[0x2]
00bc 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00c0 ; --------------------------------------------------------------------------------------
00c0 ; STRING TABLE
00c0 ; --------------------------------------------------------------------------------------
00c0 0006 | | .STRTAB 0x0006->0x00c3 ; "!Machine.Editor_Data"
00c1 0018 | | .STRTAB 0x0018->0x00cd ; "!Machine.Editor_Data.Native"
00c2 0031 | 1 | .STREND 0x0031->0x00da
00c3 214d 6163 |!Mac| .STRTAB_STRINGS
00db 0000 0000 | | .BLANK 0000[0x5]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug Table
00e0 ; --------------------------------------------------------------------------------------
00e0 0003 0007 | | .CONST 0x0003,0x0007
00e2 000b 011a | | .DEBUG 0x000b,0x011a,0x8000,0x0000,0x0057,0x6645,0x0000,0x0007
00ea 0014 0124 | $| .DEBUG 0x0014,0x0124,0x8000,0x0000,0x0057,0x67a5,0x0000,0x000f
00f2 0063 0142 | c B| .DEBUG 0x0063,0x0142,0x0002,0x0000,0x0057,0x6645,0x0000,0x0008
00fa 006b 0146 | k F| .DEBUG 0x006b,0x0146,0x0002,0x0000,0x0057,0x6645,0x0000,0x000d
0102 0073 014a | s J| .DEBUG 0x0073,0x014a,0x0002,0x0000,0x0057,0x6645,0x0000,0x0016
010a 0083 014e | N| .DEBUG 0x0083,0x014e,0x0002,0x0000,0x0057,0x6645,0x0000,0x0021
0112 00a3 0158 | X| .DEBUG 0x00a3,0x0158,0x0002,0x0000,0x0057,0x67a5,0x0000,0x0035
011a ; --------------------------------------------------------------------------------------
011a ; Debug3 Subtable 0x0
011a ; --------------------------------------------------------------------------------------
011a 0004 0000 | | .DBG3TAB 0x0004,0x0000
011c 000b ffff | | .CONST 0x000b,0xffff
011e 000d fffe | | .CONST 0x000d,0xfffe
0120 000f fffd | | .CONST 0x000f,0xfffd
0122 0011 fffc | | .CONST 0x0011,0xfffc
0124 ; --------------------------------------------------------------------------------------
0124 ; Debug3 Subtable 0x1
0124 ; --------------------------------------------------------------------------------------
0124 0009 0005 | | .DBG3TAB 0x0009,0x0005
0126 0014 ffff | | .CONST 0x0014,0xffff
0128 0017 fffe | | .CONST 0x0017,0xfffe
012a 0019 fffd | | .CONST 0x0019,0xfffd
012c 001b fffc | | .CONST 0x001b,0xfffc
012e 001d fffb | | .CONST 0x001d,0xfffb
0130 001f fffa | | .CONST 0x001f,0xfffa
0132 0021 0001 | ! | .CONST 0x0021,0x0001
0134 0022 fbff | " | .CONST 0x0022,0xfbff
0136 0024 fbfe | $ | .CONST 0x0024,0xfbfe
0138 0027 fbfd | ' | .CONST 0x0027,0xfbfd
013a 002c 0401 | , | .CONST 0x002c,0x0401
013c 0044 0402 | D | .CONST 0x0044,0x0402
013e 0048 0403 | H | .CONST 0x0048,0x0403
0140 0057 0404 | W | .CONST 0x0057,0x0404
0142 ; --------------------------------------------------------------------------------------
0142 ; Debug3 Subtable 0x2
0142 ; --------------------------------------------------------------------------------------
0142 0000 0001 | | .DBG3TAB 0x0000,0x0001
0144 0063 0001 | c | .CONST 0x0063,0x0001
0146 ; --------------------------------------------------------------------------------------
0146 ; Debug3 Subtable 0x3
0146 ; --------------------------------------------------------------------------------------
0146 0000 0001 | | .DBG3TAB 0x0000,0x0001
0148 006b 0001 | k | .CONST 0x006b,0x0001
014a ; --------------------------------------------------------------------------------------
014a ; Debug3 Subtable 0x4
014a ; --------------------------------------------------------------------------------------
014a 0000 0001 | | .DBG3TAB 0x0000,0x0001
014c 0073 0001 | s | .CONST 0x0073,0x0001
014e ; --------------------------------------------------------------------------------------
014e ; Debug3 Subtable 0x5
014e ; --------------------------------------------------------------------------------------
014e 0002 0002 | | .DBG3TAB 0x0002,0x0002
0150 0083 ffff | | .CONST 0x0083,0xffff
0152 0085 fffe | | .CONST 0x0085,0xfffe
0154 0088 0001 | | .CONST 0x0088,0x0001
0156 0098 0002 | | .CONST 0x0098,0x0002
0158 ; --------------------------------------------------------------------------------------
0158 ; Debug3 Subtable 0x6
0158 ; --------------------------------------------------------------------------------------
0158 0002 0002 | | .DBG3TAB 0x0002,0x0002
015a 00a3 ffff | | .CONST 0x00a3,0xffff
015c 00a8 fffe | | .CONST 0x00a8,0xfffe
015e 00aa 0001 | | .CONST 0x00aa,0x0001
0160 00b5 0002 | | .CONST 0x00b5,0x0002
0162 0000 0000 | | .BLANK 0000[0x9e]