|
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, 5811_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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 00d8 | | .CONST 0x00d8 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0102,0x8000,0x0000,0x002c,0xbcf4,0x0000,0x000d
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0022 | " | .CONST 0x0022 ; Address of begin
0019 002c | , | .CONST 0x002c ; Address of exception handler
001a 0004 | | .CONST 0x0004 ; Number of locals
001b INIT_0018:
001b 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x001b,0x0104,0x8001,0x0000,0x002c,0xbcf4,0x0000,0x000d
; Debug Table 0x1.0x0 = 0x1b,0xffff
001c 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call ; Debug Table 0x1.0x1 = 0x1c,0xfffe
001e 029f 005b | [| Declare_Subprogram INIT_0058,For_Call ; Debug Table 0x1.0x2 = 0x1e,0xfffd
0020 029f 007b | {| Declare_Subprogram INIT_0078,For_Call ; Debug Table 0x1.0x3 = 0x20,0xfffc
0022 BODY_0018:
0022 0092 00ad | | Action Push_String_Extended,0xad ; "Test Object Management Daemon"
; Debug Table 0x1.0x4 = 0x22,0x1
0024 0092 00ae | | Action Push_String_Extended,0xae ; "OM DAEMON"
0026 e001 | | Load 0x0,0x1
0027 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0028 8404 | | Call 0x2,0x4 ; Debug Table 0x1.0x5 = 0x28,0x2
0029 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x6 = 0x29,0x3
002a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
002b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
002c TRAP_0018:
002c 0007 | | Action Break_Optional
002d 0092 00af | | Action Push_String_Extended,0xaf ; "Exception raised : "
; Debug Table 0x1.0x7 = 0x2d,0x4
002f e002 | | Load 0x0,0x2
0030 180d | | Execute Package,Field_Execute,Field_Number 0xd
0031 01cc | | Execute Vector,Catenate
0032 e001 | | Load 0x0,0x1
0033 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0034 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x8 = 0x34,0x5
0035 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0036 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0037 0000 | | .XXX[0x1]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003c | < | .CONST 0x003c ; Address of begin
0039 0046 | F | .CONST 0x0046 ; Address of exception handler
003a 0002 | | .CONST 0x0002 ; Number of locals
003b INIT_0038:
003b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2 = .DEBUG 0x003b,0x0118,0x0001,0x0000,0x002c,0xbcf4,0x0000,0x0016
; Debug Table 0x2.0x0 = 0x3b,0xffff
003c BODY_0038:
003c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x1 = 0x3c,0x1
003d e7ff | | Load 0x3,-0x1
003e e003 | | Load 0x0,0x3
003f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0040 0059 | Y | Store_Top Discrete,At_Offset_1
0041 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x41,0x2
0042 6802 |h | Jump_Zero 0x45
0043 4887 |H | Short_Literal 0x87
0044 0257 | W | Execute Discrete,Raise
0045 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0046 TRAP_0038:
0046 0007 | | Action Break_Optional
0047 0092 00b0 | | Action Push_String_Extended,0xb0 ; "exception "
; Debug Table 0x2.0x3 = 0x47,0x3
0049 e002 | | Load 0x0,0x2
004a 180d | | Execute Package,Field_Execute,Field_Number 0xd
004b 01cc | | Execute Vector,Catenate
004c 0092 00b1 | | Action Push_String_Extended,0xb1 ; " raised"
004e 01cc | | Execute Vector,Catenate
004f e001 | | Load 0x0,0x1
0050 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0051 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0052 0000 0000 | | .BLANK 0000[0x6]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005c | \ | .CONST 0x005c ; Address of begin
0059 0066 | f | .CONST 0x0066 ; Address of exception handler
005a 0002 | | .CONST 0x0002 ; Number of locals
005b INIT_0058:
005b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3 = .DEBUG 0x005b,0x0122,0x0001,0x0000,0x002c,0xbcf4,0x0000,0x004b
; Debug Table 0x3.0x0 = 0x5b,0xffff
005c BODY_0058:
005c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x1 = 0x5c,0x1
005d e7ff | | Load 0x3,-0x1
005e e003 | | Load 0x0,0x3
005f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0060 0059 | Y | Store_Top Discrete,At_Offset_1
0061 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0x61,0x2
0062 6802 |h | Jump_Zero 0x65
0063 4887 |H | Short_Literal 0x87
0064 0257 | W | Execute Discrete,Raise
0065 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0066 TRAP_0058:
0066 0007 | | Action Break_Optional
0067 0092 00b0 | | Action Push_String_Extended,0xb0 ; "exception "
; Debug Table 0x3.0x3 = 0x67,0x3
0069 e002 | | Load 0x0,0x2
006a 180d | | Execute Package,Field_Execute,Field_Number 0xd
006b 01cc | | Execute Vector,Catenate
006c 0092 00b1 | | Action Push_String_Extended,0xb1 ; " raised"
006e 01cc | | Execute Vector,Catenate
006f e001 | | Load 0x0,0x1
0070 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0071 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0072 0000 0000 | | .BLANK 0000[0x6]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0084 | | .CONST 0x0084 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0003 | | .CONST 0x0003 ; Number of locals
007b INIT_0078:
007b e004 | | Load 0x0,0x4 ; Debug Table 0x4 = .DEBUG 0x007b,0x012c,0x0001,0x0000,0x002c,0xbcf4,0x0000,0x0082
; Debug Table 0x4.0x0 = 0x7b,0xffff
007c 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
007d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007e 02c7 | | Declare_Variable Any
007f 00d8 | | Load_Top At_Offset_0
0080 1c00 | | Execute_Immediate Run_Utility,0x0
0081 e005 | | Load 0x0,0x5 ; Debug Table 0x4.0x1 = 0x81,0xfffe
0082 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0083 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0084 BODY_0078:
0084 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x2 = 0x84,0x1
0085 4801 |H | Short_Literal 0x1
0086 0007 | | Action Break_Optional
0087 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x3 = 0x87,0x2
0088 8402 | | Call 0x2,0x2
0089 3ffd |? | Loop_Increasing 0x87
008a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x4 = 0x8a,0x3
008b 0120 | | Execute Any,Is_Value
008c 6804 |h | Jump_Zero 0x91
008d e004 | | Load 0x0,0x4
008e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
008f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0090 7801 |x | Jump 0x92
0091 00d9 | | Load_Top At_Offset_1
0092 e004 | | Load 0x0,0x4
0093 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0094 180e | | Execute Package,Field_Execute,Field_Number 0xe
0095 c602 | | Store 0x3,0x2
0096 7810 |x | Jump 0xa7
0097 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x5 = 0x97,0x5
0098 e004 | | Load 0x0,0x4
0099 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
009a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
009b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
009c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x6 = 0x9c,0x6
009d e003 | | Load 0x0,0x3
009e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
009f 6802 |h | Jump_Zero 0xa2
00a0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x7 = 0xa0,0x7
00a1 8403 | | Call 0x2,0x3
00a2 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x8 = 0xa2,0x8
00a3 e004 | | Load 0x0,0x4
00a4 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00a5 180f | | Execute Package,Field_Execute,Field_Number 0xf
00a6 c602 | | Store 0x3,0x2
00a7 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x9 = 0xa7,0x4
00a8 e004 | | Load 0x0,0x4
00a9 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00aa 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00ab 6feb |o | Jump_Zero 0x97
00ac 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ad ; --------------------------------------------------------------------------------------
00ad ; STRING TABLE
00ad ; --------------------------------------------------------------------------------------
00ad 000c | | .STRTAB 0x000c->0x00b3 ; "Test Object Management Daemon"
00ae 0027 | ' | .STRTAB 0x0027->0x00c1 ; "OM DAEMON"
00af 002e | . | .STRTAB 0x002e->0x00c6 ; "Exception raised : "
00b0 003f | ? | .STRTAB 0x003f->0x00cf ; "exception "
00b1 0047 | G | .STRTAB 0x0047->0x00d4 ; " raised"
00b2 004c | L | .STREND 0x004c->0x00d8
00b3 5465 7374 |Test| .STRTAB_STRINGS
00d8 ; --------------------------------------------------------------------------------------
00d8 ; Debug Table
00d8 ; --------------------------------------------------------------------------------------
00d8 0003 0005 | | .CONST 0x0003,0x0005
00da 000b 0102 | | .DEBUG 0x000b,0x0102,0x8000,0x0000,0x002c,0xbcf4,0x0000,0x000d
00e2 001b 0104 | | .DEBUG 0x001b,0x0104,0x8001,0x0000,0x002c,0xbcf4,0x0000,0x000d
00ea 003b 0118 | ; | .DEBUG 0x003b,0x0118,0x0001,0x0000,0x002c,0xbcf4,0x0000,0x0016
00f2 005b 0122 | [ "| .DEBUG 0x005b,0x0122,0x0001,0x0000,0x002c,0xbcf4,0x0000,0x004b
00fa 007b 012c | { ,| .DEBUG 0x007b,0x012c,0x0001,0x0000,0x002c,0xbcf4,0x0000,0x0082
0102 ; --------------------------------------------------------------------------------------
0102 ; Debug3 Subtable 0x0
0102 ; --------------------------------------------------------------------------------------
0102 0000 0000 | | .DBG3TAB 0x0000,0x0000
0104 ; --------------------------------------------------------------------------------------
0104 ; Debug3 Subtable 0x1
0104 ; --------------------------------------------------------------------------------------
0104 0004 0005 | | .DBG3TAB 0x0004,0x0005
0106 001b ffff | | .CONST 0x001b,0xffff
0108 001c fffe | | .CONST 0x001c,0xfffe
010a 001e fffd | | .CONST 0x001e,0xfffd
010c 0020 fffc | | .CONST 0x0020,0xfffc
010e 0022 0001 | " | .CONST 0x0022,0x0001
0110 0028 0002 | ( | .CONST 0x0028,0x0002
0112 0029 0003 | ) | .CONST 0x0029,0x0003
0114 002d 0004 | - | .CONST 0x002d,0x0004
0116 0034 0005 | 4 | .CONST 0x0034,0x0005
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug3 Subtable 0x2
0118 ; --------------------------------------------------------------------------------------
0118 0001 0003 | | .DBG3TAB 0x0001,0x0003
011a 003b ffff | ; | .CONST 0x003b,0xffff
011c 003c 0001 | < | .CONST 0x003c,0x0001
011e 0041 0002 | A | .CONST 0x0041,0x0002
0120 0047 0003 | G | .CONST 0x0047,0x0003
0122 ; --------------------------------------------------------------------------------------
0122 ; Debug3 Subtable 0x3
0122 ; --------------------------------------------------------------------------------------
0122 0001 0003 | | .DBG3TAB 0x0001,0x0003
0124 005b ffff | [ | .CONST 0x005b,0xffff
0126 005c 0001 | \ | .CONST 0x005c,0x0001
0128 0061 0002 | a | .CONST 0x0061,0x0002
012a 0067 0003 | g | .CONST 0x0067,0x0003
012c ; --------------------------------------------------------------------------------------
012c ; Debug3 Subtable 0x4
012c ; --------------------------------------------------------------------------------------
012c 0002 0008 | | .DBG3TAB 0x0002,0x0008
012e 007b ffff | { | .CONST 0x007b,0xffff
0130 0081 fffe | | .CONST 0x0081,0xfffe
0132 0084 0001 | | .CONST 0x0084,0x0001
0134 0087 0002 | | .CONST 0x0087,0x0002
0136 008a 0003 | | .CONST 0x008a,0x0003
0138 0097 0005 | | .CONST 0x0097,0x0005
013a 009c 0006 | | .CONST 0x009c,0x0006
013c 00a0 0007 | | .CONST 0x00a0,0x0007
013e 00a2 0008 | | .CONST 0x00a2,0x0008
0140 00a7 0004 | | .CONST 0x00a7,0x0004
0142 0000 0000 | | .BLANK 0000[0xbe]