|
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 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 0023 | # | .CONST 0x0023 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0132,0x8000,0x0000,0x0059,0xdf55,0x0000,0x0007
; 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 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x3 = 0xe,0xfffc
000f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0010 0129 | ) | Execute Any,Make_Visible
0011 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x11,0xfffb
0013 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x13,0xfffa
0015 00bf | | Action Accept_Activation
0016 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0016,0x0140,0x8000,0x0000,0x0059,0xea35,0x0000,0x000d
; Debug Table 0x1.0x0 = 0x16,0xffff
0017 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x17,0xfffe
0018 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x18,0xfffd
0019 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0x19,0xfffc
001a e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x4 = 0x1a,0xfffb
001b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
001c e003 | | Load 0x0,0x3
001d 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
001e 03f1 | | Declare_Variable Discrete,With_Value
001f 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x5 = 0x1f,0xfffa
0020 00c7 | | Action Elaborate_Subprogram
0021 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x6 = 0x21,0xfff9
0022 00c7 | | Action Elaborate_Subprogram
0023 BODY_0008:
0023 00bc | | Action Signal_Activated
0024 00bb | | Action Signal_Completion
0025 0000 0000 | | .XXX[0x3]
0027 0000 | |
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0032 | 2 | .CONST 0x0032 ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 0003 | | .CONST 0x0003 ; Number of locals
002b INIT_0028:
002b 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x002b,0x0150,0x0002,0x0000,0x0059,0xdf55,0x0000,0x001b
; Debug Table 0x2.0x0 = 0x2b,0xffff
002c e004 | | Load 0x0,0x4
002d 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
002e e003 | | Load 0x0,0x3
002f 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0030 03f1 | | Declare_Variable Discrete,With_Value
0031 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x1 = 0x31,0xfffe
0032 BODY_0028:
0032 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x2 = 0x32,0x1
0033 e210 | | Load 0x1,0x10
0034 027f | | Execute Discrete,Equal
0035 6802 |h | Jump_Zero 0x38
0036 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x3 = 0x36,0x2
0037 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0038 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x4 = 0x38,0x3
0039 e005 | | Load 0x0,0x5
003a 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
003b 681c |h | Jump_Zero 0x58
003c e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x5 = 0x3c,0x4
003d e5ff | | Load 0x2,-0x1
003e e004 | | Load 0x0,0x4
003f 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0040 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0041 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x6 = 0x41,0x5
0042 6806 |h | Jump_Zero 0x49
0043 0092 00ce | | Action Push_String_Extended,0xce ; "Unable to unfreeze activity"
; Debug Table 0x2.0x7 = 0x43,0x6
0045 e5fe | | Load 0x2,-0x2
0046 e5ff | | Load 0x2,-0x1
0047 e004 | | Load 0x0,0x4
0048 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0049 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x8 = 0x49,0x7
004a e210 | | Load 0x1,0x10
004b e5ff | | Load 0x2,-0x1
004c e004 | | Load 0x0,0x4
004d 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
004e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x9 = 0x4e,0x8
004f 6806 |h | Jump_Zero 0x56
0050 0092 00cf | | Action Push_String_Extended,0xcf ; "Unable to refreeze activity"
; Debug Table 0x2.0xa = 0x50,0x9
0052 e5fe | | Load 0x2,-0x2
0053 e5ff | | Load 0x2,-0x1
0054 e004 | | Load 0x0,0x4
0055 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0056 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0xb = 0x56,0xa
0057 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0058 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0xc = 0x58,0xb
0059 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
005a 0000 0000 | | .BLANK 0000[0x6]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 007a | z | .CONST 0x007a ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0005 | | .CONST 0x0005 ; Number of locals
0063 INIT_0060:
0063 e005 | | Load 0x0,0x5 ; Debug Table 0x3 = .DEBUG 0x0063,0x016c,0x2801,0x0002,0x0059,0xdf55,0x0000,0x002a
; Debug Table 0x3.0x0 = 0x63,0xffff
0064 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0065 e005 | | Load 0x0,0x5
0066 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0067 e006 | | Load 0x0,0x6
0068 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0069 e007 | | Load 0x0,0x7
006a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
006b 039c | | Declare_Variable Heap_Access,By_Allocation
006c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
006d 0007 | | Action Break_Optional ; Debug Table 0x3.0x1 = 0x6d,0xfffe
006e e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x2 = 0x6e,0xfffd
006f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0070 e005 | | Load 0x0,0x5 ; Debug Table 0x3.0x3 = 0x70,0xfffc
0071 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
0072 02c7 | | Declare_Variable Any
0073 00d8 | | Load_Top At_Offset_0
0074 1c00 | | Execute_Immediate Run_Utility,0x0
0075 e005 | | Load 0x0,0x5 ; Debug Table 0x3.0x4 = 0x75,0xfffb
0076 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0077 02c7 | | Declare_Variable Any
0078 00d8 | | Load_Top At_Offset_0
0079 1c00 | | Execute_Immediate Run_Utility,0x0
007a BODY_0060:
007a 00be | | Action Activate_Tasks
007b 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x5 = 0x7b,0x1
007c e003 | | Load 0x0,0x3
007d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007e 00d9 | | Load_Top At_Offset_1
007f 0219 | | Execute Heap_Access,All_Read
0080 4800 |H | Short_Literal 0x0
0081 4800 |H | Short_Literal 0x0
0082 e5fc | | Load 0x2,-0x4
0083 0217 | | Execute Heap_Access,All_Reference
0084 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0085 e5fd | | Load 0x2,-0x3
0086 e005 | | Load 0x0,0x5
0087 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0088 00da | | Load_Top At_Offset_2
0089 0218 | | Execute Heap_Access,All_Write
008a c403 | | Store 0x2,0x3
008b 00d1 | | Pop_Control Pop_Count_1
008c e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x6 = 0x8c,0x2
008d 0092 00d0 | | Action Push_String_Extended,0xd0 ; "Unable to open activity"
008f e5fc | | Load 0x2,-0x4
0090 e403 | | Load 0x2,0x3
0091 e004 | | Load 0x0,0x4
0092 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0093 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x7 = 0x93,0x3
0094 0120 | | Execute Any,Is_Value
0095 6803 |h | Jump_Zero 0x99
0096 e005 | | Load 0x0,0x5
0097 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
0098 7801 |x | Jump 0x9a
0099 00d9 | | Load_Top At_Offset_1
009a e402 | | Load 0x2,0x2
009b e005 | | Load 0x0,0x5
009c 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
009d c404 | | Store 0x2,0x4
009e 00cf | | Action Mark_Auxiliary
009f 7816 |x | Jump 0xb6
00a0 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x8 = 0xa0,0x5
00a1 e005 | | Load 0x0,0x5
00a2 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
00a3 c405 | | Store 0x2,0x5
00a4 e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x9 = 0xa4,0x6
00a5 e402 | | Load 0x2,0x2
00a6 0219 | | Execute Heap_Access,All_Read
00a7 00db | | Load_Top At_Offset_3
00a8 e005 | | Load 0x0,0x5
00a9 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00aa e402 | | Load 0x2,0x2
00ab 0219 | | Execute Heap_Access,All_Read
00ac e405 | | Load 0x2,0x5
00ad e005 | | Load 0x0,0x5
00ae 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00af e405 | | Load 0x2,0x5
00b0 85fe | | Call 0x2,-0x2
00b1 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0xa = 0xb1,0x7
00b2 e005 | | Load 0x0,0x5
00b3 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00b4 c404 | | Store 0x2,0x4
00b5 00c9 | | Action Pop_Auxiliary_Loop
00b6 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0xb = 0xb6,0x4
00b7 e005 | | Load 0x0,0x5
00b8 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
00b9 6fe6 |o | Jump_Zero 0xa0
00ba 00ce | | Action Pop_Auxiliary
00bb 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0xc = 0xbb,0x8
00bc e003 | | Load 0x0,0x3
00bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00be 00d9 | | Load_Top At_Offset_1
00bf 0219 | | Execute Heap_Access,All_Read
00c0 e005 | | Load 0x0,0x5
00c1 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c2 00da | | Load_Top At_Offset_2
00c3 0218 | | Execute Heap_Access,All_Write
00c4 c403 | | Store 0x2,0x3
00c5 00d1 | | Pop_Control Pop_Count_1
00c6 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0xd = 0xc6,0x9
00c7 0092 00d1 | | Action Push_String_Extended,0xd1 ; "Internal Error - Unable to close activity "
00c9 e5fc | | Load 0x2,-0x4
00ca e403 | | Load 0x2,0x3
00cb e004 | | Load 0x0,0x4
00cc 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00cd 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00ce ; --------------------------------------------------------------------------------------
00ce ; STRING TABLE
00ce ; --------------------------------------------------------------------------------------
00ce 000a | | .STRTAB 0x000a->0x00d3 ; "Unable to unfreeze activity"
00cf 0023 | # | .STRTAB 0x0023->0x00e0 ; "Unable to refreeze activity"
00d0 003c | < | .STRTAB 0x003c->0x00ee ; "Unable to open activity"
00d1 0051 | Q | .STRTAB 0x0051->0x00f9 ; "Internal Error - Unable to close activity "
00d2 0079 | y | .STREND 0x0079->0x010e
00d3 556e 6162 |Unab| .STRTAB_STRINGS
010f 0000 | | .XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; Debug Table
0110 ; --------------------------------------------------------------------------------------
0110 0003 0004 | | .CONST 0x0003,0x0004
0112 000b 0132 | 2| .DEBUG 0x000b,0x0132,0x8000,0x0000,0x0059,0xdf55,0x0000,0x0007
011a 0016 0140 | @| .DEBUG 0x0016,0x0140,0x8000,0x0000,0x0059,0xea35,0x0000,0x000d
0122 002b 0150 | + P| .DEBUG 0x002b,0x0150,0x0002,0x0000,0x0059,0xdf55,0x0000,0x001b
012a 0063 016c | c l| .DEBUG 0x0063,0x016c,0x2801,0x0002,0x0059,0xdf55,0x0000,0x002a
0132 ; --------------------------------------------------------------------------------------
0132 ; Debug3 Subtable 0x0
0132 ; --------------------------------------------------------------------------------------
0132 0006 0000 | | .DBG3TAB 0x0006,0x0000
0134 000b ffff | | .CONST 0x000b,0xffff
0136 000c fffe | | .CONST 0x000c,0xfffe
0138 000d fffd | | .CONST 0x000d,0xfffd
013a 000e fffc | | .CONST 0x000e,0xfffc
013c 0011 fffb | | .CONST 0x0011,0xfffb
013e 0013 fffa | | .CONST 0x0013,0xfffa
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug3 Subtable 0x1
0140 ; --------------------------------------------------------------------------------------
0140 0007 0000 | | .DBG3TAB 0x0007,0x0000
0142 0016 ffff | | .CONST 0x0016,0xffff
0144 0017 fffe | | .CONST 0x0017,0xfffe
0146 0018 fffd | | .CONST 0x0018,0xfffd
0148 0019 fffc | | .CONST 0x0019,0xfffc
014a 001a fffb | | .CONST 0x001a,0xfffb
014c 001f fffa | | .CONST 0x001f,0xfffa
014e 0021 fff9 | ! | .CONST 0x0021,0xfff9
0150 ; --------------------------------------------------------------------------------------
0150 ; Debug3 Subtable 0x2
0150 ; --------------------------------------------------------------------------------------
0150 0002 000b | | .DBG3TAB 0x0002,0x000b
0152 002b ffff | + | .CONST 0x002b,0xffff
0154 0031 fffe | 1 | .CONST 0x0031,0xfffe
0156 0032 0001 | 2 | .CONST 0x0032,0x0001
0158 0036 0002 | 6 | .CONST 0x0036,0x0002
015a 0038 0003 | 8 | .CONST 0x0038,0x0003
015c 003c 0004 | < | .CONST 0x003c,0x0004
015e 0041 0005 | A | .CONST 0x0041,0x0005
0160 0043 0006 | C | .CONST 0x0043,0x0006
0162 0049 0007 | I | .CONST 0x0049,0x0007
0164 004e 0008 | N | .CONST 0x004e,0x0008
0166 0050 0009 | P | .CONST 0x0050,0x0009
0168 0056 000a | V | .CONST 0x0056,0x000a
016a 0058 000b | X | .CONST 0x0058,0x000b
016c ; --------------------------------------------------------------------------------------
016c ; Debug3 Subtable 0x3
016c ; --------------------------------------------------------------------------------------
016c 0005 0009 | | .DBG3TAB 0x0005,0x0009
016e 0063 ffff | c | .CONST 0x0063,0xffff
0170 006d fffe | m | .CONST 0x006d,0xfffe
0172 006e fffd | n | .CONST 0x006e,0xfffd
0174 0070 fffc | p | .CONST 0x0070,0xfffc
0176 0075 fffb | u | .CONST 0x0075,0xfffb
0178 007b 0001 | { | .CONST 0x007b,0x0001
017a 008c 0002 | | .CONST 0x008c,0x0002
017c 0093 0003 | | .CONST 0x0093,0x0003
017e 00a0 0005 | | .CONST 0x00a0,0x0005
0180 00a4 0006 | | .CONST 0x00a4,0x0006
0182 00b1 0007 | | .CONST 0x00b1,0x0007
0184 00b6 0004 | | .CONST 0x00b6,0x0004
0186 00bb 0008 | | .CONST 0x00bb,0x0008
0188 00c6 0009 | | .CONST 0x00c6,0x0009
018a 0000 0000 | | .BLANK 0000[0x76]