|
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 0120 | | .CONST 0x0120 ; 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,0x013a,0x8000,0x0000,0x002c,0xbc24,0x0000,0x000f
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 0026 | & | .CONST 0x0026 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0007 | | .CONST 0x0007 ; Number of locals
001b INIT_0018:
001b a001 | | Store_Unchecked 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x001b,0x013c,0x8001,0x0000,0x002c,0xbc24,0x0000,0x000f
; Debug Table 0x1.0x0 = 0x1b,0xffff
001c 00c6 | | Action Check_Subprogram_Elaborated
001d e002 | | Load 0x0,0x2
001e 1914 | | Execute Package,Field_Reference,Field_Number 0x14
001f 483c |H< | Short_Literal 0x3c
0020 6087 |` | Indirect_Literal Discrete,0xa8,{0x00000000, 0x002cbc24}
0021 4812 |H | Short_Literal 0x12
0022 4806 |H | Short_Literal 0x6
0023 0007 | | Action Break_Optional
0024 029f 0083 | | Declare_Subprogram INIT_0080,For_Call ; Debug Table 0x1.0x1 = 0x24,0xfffe
0026 BODY_0018:
0026 0092 00ac | | Action Push_String_Extended,0xac ; "Error Log Test Program"
; Debug Table 0x1.0x2 = 0x26,0x1
0028 0092 00ad | | Action Push_String_Extended,0xad ; "Error_Log"
002a e002 | | Load 0x0,0x2
002b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
002c 0092 00ae | | Action Push_String_Extended,0xae ; "FIRST REPORT: ERRORS 1 AND 2"
; Debug Table 0x1.0x3 = 0x2c,0x2
002e e002 | | Load 0x0,0x2
002f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0030 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x4 = 0x30,0x3
0031 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0032 00ea | | Load_Encached Null_String_Cache
0033 e004 | | Load 0x0,0x4
0034 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0035 0092 00af | | Action Push_String_Extended,0xaf ; "Caller_1"
0037 0092 00b0 | | Action Push_String_Extended,0xb0 ; "Error_1"
0039 e004 | | Load 0x0,0x4
003a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
003b e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x5 = 0x3b,0x4
003c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
003d 4800 |H | Short_Literal 0x0
003e e005 | | Load 0x0,0x5
003f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0040 e004 | | Load 0x0,0x4
0041 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0042 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x6 = 0x42,0x5
0043 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0044 00ea | | Load_Encached Null_String_Cache
0045 e004 | | Load 0x0,0x4
0046 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0047 0092 00b1 | | Action Push_String_Extended,0xb1 ; "Caller_2"
0049 0092 00b2 | | Action Push_String_Extended,0xb2 ; "Error_2"
004b e004 | | Load 0x0,0x4
004c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
004d e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x7 = 0x4d,0x6
004e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004f e006 | | Load 0x0,0x6
0050 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0051 e007 | | Load 0x0,0x7
0052 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0053 e004 | | Load 0x0,0x4
0054 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0055 8407 | | Call 0x2,0x7 ; Debug Table 0x1.0x8 = 0x55,0x7
0056 0092 00b3 | | Action Push_String_Extended,0xb3 ; "SECOND REPORT: ERROR 3"
; Debug Table 0x1.0x9 = 0x56,0x8
0058 e002 | | Load 0x0,0x2
0059 1814 | | Execute Package,Field_Execute,Field_Number 0x14
005a e003 | | Load 0x0,0x3 ; Debug Table 0x1.0xa = 0x5a,0x9
005b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005c e004 | | Load 0x0,0x4
005d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005e e003 | | Load 0x0,0x3 ; Debug Table 0x1.0xb = 0x5e,0xa
005f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0060 00ea | | Load_Encached Null_String_Cache
0061 e004 | | Load 0x0,0x4
0062 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0063 0092 00b4 | | Action Push_String_Extended,0xb4 ; "Caller_3"
0065 0092 00b5 | | Action Push_String_Extended,0xb5 ; "Error_3"
0067 e004 | | Load 0x0,0x4
0068 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0069 8407 | | Call 0x2,0x7 ; Debug Table 0x1.0xc = 0x69,0xb
006a 0092 00b6 | | Action Push_String_Extended,0xb6 ; "THIRD REPORT: NO ERROR"
; Debug Table 0x1.0xd = 0x6a,0xc
006c e002 | | Load 0x0,0x2
006d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
006e e003 | | Load 0x0,0x3 ; Debug Table 0x1.0xe = 0x6e,0xd
006f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0070 e004 | | Load 0x0,0x4
0071 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0072 8407 | | Call 0x2,0x7 ; Debug Table 0x1.0xf = 0x72,0xe
0073 0092 00b7 | | Action Push_String_Extended,0xb7 ; "Run test again to see if on job basis"
; Debug Table 0x1.0x10 = 0x73,0xf
0075 e002 | | Load 0x0,0x2
0076 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0077 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x11 = 0x77,0x10
0078 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0079 4501 |E | Exit_Suprogram New_Top_Offset 0x1
007a 0000 0000 | | .BLANK 0000[0x6]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0089 | | .CONST 0x0089 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0003 | | .CONST 0x0003 ; Number of locals
0083 INIT_0080:
0083 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2 = .DEBUG 0x0083,0x0162,0x0001,0x0000,0x002c,0xbc24,0x0000,0x001d
; Debug Table 0x2.0x0 = 0x83,0xffff
0084 e004 | | Load 0x0,0x4 ; Debug Table 0x2.0x1 = 0x84,0xfffe
0085 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0086 02c7 | | Declare_Variable Any
0087 00d8 | | Load_Top At_Offset_0
0088 1c00 | | Execute_Immediate Run_Utility,0x0
0089 BODY_0080:
0089 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x2 = 0x89,0x1
008a 00d9 | | Load_Top At_Offset_1
008b 0120 | | Execute Any,Is_Value
008c 6803 |h | Jump_Zero 0x90
008d e004 | | Load 0x0,0x4
008e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008f 7801 |x | Jump 0x91
0090 00d9 | | Load_Top At_Offset_1
0091 e003 | | Load 0x0,0x3
0092 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0093 e004 | | Load 0x0,0x4
0094 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0095 c603 | | Store 0x3,0x3
0096 005a | Z | Store_Top Discrete,At_Offset_2
0097 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x3 = 0x97,0x2
0098 7005 |p | Jump_Nonzero 0x9e
0099 0092 00b8 | | Action Push_String_Extended,0xb8 ; "No error Set"
; Debug Table 0x2.0x4 = 0x99,0x3
009b e002 | | Load 0x0,0x2
009c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
009d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
009e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x5 = 0x9e,0x4
009f 4802 |H | Short_Literal 0x2
00a0 4802 |H | Short_Literal 0x2
00a1 0099 | | Action Reference_Dynamic
00a2 e403 | | Load 0x2,0x3
00a3 4804 |H | Short_Literal 0x4
00a4 4802 |H | Short_Literal 0x2
00a5 0099 | | Action Reference_Dynamic
00a6 8001 | | Call 0x0,0x1
00a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a8 0000 0000 | | .LITERAL {0x00000000, 0x002cbc24}
00ac ; --------------------------------------------------------------------------------------
00ac ; STRING TABLE
00ac ; --------------------------------------------------------------------------------------
00ac 001c | | .STRTAB 0x001c->0x00ba ; "Error Log Test Program"
00ad 0030 | 0 | .STRTAB 0x0030->0x00c5 ; "Error_Log"
00ae 0037 | 7 | .STRTAB 0x0037->0x00c9 ; "FIRST REPORT: ERRORS 1 AND 2"
00af 0051 | Q | .STRTAB 0x0051->0x00d7 ; "Caller_1"
00b0 0057 | W | .STRTAB 0x0057->0x00db ; "Error_1"
00b1 005c | \ | .STRTAB 0x005c->0x00df ; "Caller_2"
00b2 0062 | b | .STRTAB 0x0062->0x00e3 ; "Error_2"
00b3 0067 | g | .STRTAB 0x0067->0x00e6 ; "SECOND REPORT: ERROR 3"
00b4 007b | { | .STRTAB 0x007b->0x00f1 ; "Caller_3"
00b5 0081 | | .STRTAB 0x0081->0x00f5 ; "Error_3"
00b6 0086 | | .STRTAB 0x0086->0x00f9 ; "THIRD REPORT: NO ERROR"
00b7 009a | | .STRTAB 0x009a->0x0104 ; "Run test again to see if on job basis"
00b8 00bd | | .STRTAB 0x00bd->0x0116 ; "No error Set"
00b9 00c7 | | .STREND 0x00c7->0x011c
00ba 4572 726f |Erro| .STRTAB_STRINGS
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
0120 ; --------------------------------------------------------------------------------------
0120 ; Debug Table
0120 ; --------------------------------------------------------------------------------------
0120 0003 0003 | | .CONST 0x0003,0x0003
0122 000b 013a | :| .DEBUG 0x000b,0x013a,0x8000,0x0000,0x002c,0xbc24,0x0000,0x000f
012a 001b 013c | <| .DEBUG 0x001b,0x013c,0x8001,0x0000,0x002c,0xbc24,0x0000,0x000f
0132 0083 0162 | b| .DEBUG 0x0083,0x0162,0x0001,0x0000,0x002c,0xbc24,0x0000,0x001d
013a ; --------------------------------------------------------------------------------------
013a ; Debug3 Subtable 0x0
013a ; --------------------------------------------------------------------------------------
013a 0000 0000 | | .DBG3TAB 0x0000,0x0000
013c ; --------------------------------------------------------------------------------------
013c ; Debug3 Subtable 0x1
013c ; --------------------------------------------------------------------------------------
013c 0002 0010 | | .DBG3TAB 0x0002,0x0010
013e 001b ffff | | .CONST 0x001b,0xffff
0140 0024 fffe | $ | .CONST 0x0024,0xfffe
0142 0026 0001 | & | .CONST 0x0026,0x0001
0144 002c 0002 | , | .CONST 0x002c,0x0002
0146 0030 0003 | 0 | .CONST 0x0030,0x0003
0148 003b 0004 | ; | .CONST 0x003b,0x0004
014a 0042 0005 | B | .CONST 0x0042,0x0005
014c 004d 0006 | M | .CONST 0x004d,0x0006
014e 0055 0007 | U | .CONST 0x0055,0x0007
0150 0056 0008 | V | .CONST 0x0056,0x0008
0152 005a 0009 | Z | .CONST 0x005a,0x0009
0154 005e 000a | ^ | .CONST 0x005e,0x000a
0156 0069 000b | i | .CONST 0x0069,0x000b
0158 006a 000c | j | .CONST 0x006a,0x000c
015a 006e 000d | n | .CONST 0x006e,0x000d
015c 0072 000e | r | .CONST 0x0072,0x000e
015e 0073 000f | s | .CONST 0x0073,0x000f
0160 0077 0010 | w | .CONST 0x0077,0x0010
0162 ; --------------------------------------------------------------------------------------
0162 ; Debug3 Subtable 0x2
0162 ; --------------------------------------------------------------------------------------
0162 0002 0004 | | .DBG3TAB 0x0002,0x0004
0164 0083 ffff | | .CONST 0x0083,0xffff
0166 0084 fffe | | .CONST 0x0084,0xfffe
0168 0089 0001 | | .CONST 0x0089,0x0001
016a 0097 0002 | | .CONST 0x0097,0x0002
016c 0099 0003 | | .CONST 0x0099,0x0003
016e 009e 0004 | | .CONST 0x009e,0x0004
0170 0000 0000 | | .BLANK 0000[0x90]