|
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, 5812_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_07b4f8
└─⟦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 5812 |X | .CONST 0x5812 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 00b0 | | .CONST 0x00b0 ; 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,0x00d2,0x8000,0x0000,0x004c,0x34a6,0x0000,0x0003
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 0047 | G | .CONST 0x0047 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0008 | | .CONST 0x0008 ; Number of locals
001b INIT_0018:
001b e5f9 | | Load 0x2,-0x7 ; Debug Table 0x1 = .DEBUG 0x001b,0x00d4,0xa801,0x0002,0x004c,0x34a6,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x1b,0xffff
001c 02c7 | | Declare_Variable Any
001d 00d8 | | Load_Top At_Offset_0
001e 1c00 | | Execute_Immediate Run_Utility,0x0
001f e5f4 | | Load 0x2,-0xc ; Debug Table 0x1.0x1 = 0x1f,0xfffe
0020 e5f7 | | Load 0x2,-0x9
0021 0119 | | Execute Any,Check_In_Formal_Type
0022 85f8 | | Call 0x2,-0x8
0023 4805 |H | Short_Literal 0x5
0024 0271 | q | Execute Discrete,Times
0025 00e3 | | Load_Encached Natural_Cache
0026 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0027 00e9 | | Load_Encached String_Cache ; Debug Table 0x1.0x2 = 0x27,0xfffd
0028 02a0 | | Declare_Subprogram Null_Subprogram
0029 4818 |H | Short_Literal 0x18
002a 03d3 | | Declare_Type Access,Defined,Accesses_Protected
002b 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x3 = 0x2b,0xfffc
002c 00da | | Load_Top At_Offset_2
002d 0aff | | Execute_Immediate Plus,-0x1
002e 0248 | H | Execute Discrete,Check_In_Integer
002f 00da | | Load_Top At_Offset_2
0030 02a0 | | Declare_Subprogram Null_Subprogram
0031 4801 |H | Short_Literal 0x1
0032 035d | ] | Declare_Type Array,Defined
0033 00d8 | | Load_Top At_Offset_0
0034 0337 | 7 | Declare_Variable Array
0035 00d8 | | Load_Top At_Offset_0
0036 0337 | 7 | Declare_Variable Array
0037 00d8 | | Load_Top At_Offset_0
0038 01d9 | | Execute Vector,Reverse_Bounds
0039 0263 | c | Execute Discrete,Above_Bound
003a 7005 |p | Jump_Nonzero 0x40
003b e404 | | Load 0x2,0x4
003c 00d9 | | Load_Top At_Offset_1
003d e407 | | Load 0x2,0x7
003e 01d6 | | Execute Vector,Field_Write
003f 3ffb |? | Loop_Increasing 0x3b
0040 00d9 | | Load_Top At_Offset_1
0041 01d4 | | Execute Vector,Structure_Write
0042 0007 | | Action Break_Optional ; Debug Table 0x1.0x4 = 0x42,0xfffb
0043 029f 005b | [| Declare_Subprogram INIT_0058,For_Call ; Debug Table 0x1.0x5 = 0x43,0xfffa
0045 029f 008b | | Declare_Subprogram INIT_0088,For_Call
0047 BODY_0018:
0047 00be | | Action Activate_Tasks
0048 e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x6 = 0x48,0x1
0049 e5f4 | | Load 0x2,-0xc
004a e5f7 | | Load 0x2,-0x9
004b 0119 | | Execute Any,Check_In_Formal_Type
004c 85fa | | Call 0x2,-0x6
004d c402 | | Store 0x2,0x2
004e 00cf | | Action Mark_Auxiliary
004f 7802 |x | Jump 0x52
0050 8408 | | Call 0x2,0x8 ; Debug Table 0x1.0x7 = 0x50,0x3
0051 00c9 | | Action Pop_Auxiliary_Loop
0052 e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x8 = 0x52,0x2
0053 e5f9 | | Load 0x2,-0x7
0054 0119 | | Execute Any,Check_In_Formal_Type
0055 85fb | | Call 0x2,-0x5
0056 6ff9 |o | Jump_Zero 0x50
0057 450c |E | Exit_Suprogram New_Top_Offset 0xc
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0062 | b | .CONST 0x0062 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0002 | | .CONST 0x0002 ; Number of locals
005b INIT_0058:
005b 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x005b,0x00e8,0x0801,0x0002,0x004c,0x3506,0x0000,0x0047
; Debug Table 0x2.0x0 = 0x5b,0xffff
005c e001 | | Load 0x0,0x1
005d 180d | | Execute Package,Field_Execute,Field_Number 0xd
005e e403 | | Load 0x2,0x3
005f 026e | n | Execute Discrete,Modulo
0060 00e3 | | Load_Encached Natural_Cache
0061 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0062 BODY_0058:
0062 00cf | | Action Mark_Auxiliary
0063 0007 | | Action Break_Optional ; Debug Table 0x2.0x1 = 0x63,0x1
0064 00cf | | Action Mark_Auxiliary ; Debug Table 0x2.0x2 = 0x64,0x2
0065 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x3 = 0x65,0xfbff
0066 e406 | | Load 0x2,0x6
0067 01d5 | | Execute Vector,Field_Reference
0068 0007 | | Action Break_Optional
0069 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x4 = 0x69,0x401
006a 7007 |p | Jump_Nonzero 0x72
006b e7ff | | Load 0x3,-0x1 ; Debug Table 0x2.0x5 = 0x6b,0x402
006c e404 | | Load 0x2,0x4
006d 03b6 | | Declare_Variable Access,By_Allocation,With_Value
006e a605 | | Store_Unchecked 0x3,0x5
006f 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x2.0x6 = 0x6f,0x403
0070 00ce | | Action Pop_Auxiliary
0071 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0072 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x7 = 0x72,0x404
0073 0227 | ' | Execute Access,All_Reference
0074 e7ff | | Load 0x3,-0x1
0075 01df | | Execute Vector,Equal
0076 6802 |h | Jump_Zero 0x79
0077 6030 |`0 | Indirect_Literal Discrete,0xa8,{0x00000000, 0x4c350601} ; Debug Table 0x2.0x8 = 0x77,0x405
0078 0257 | W | Execute Discrete,Raise
0079 00d1 | | Pop_Control Pop_Count_1
007a 00ce | | Action Pop_Auxiliary
007b 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x9 = 0x7b,0x3
007c 0a01 | | Execute_Immediate Plus,0x1
007d 0248 | H | Execute Discrete,Check_In_Integer
007e e403 | | Load 0x2,0x3
007f 026e | n | Execute Discrete,Modulo
0080 005a | Z | Store_Top Discrete,At_Offset_2
0081 00c9 | | Action Pop_Auxiliary_Loop
0082 7fe1 | | Jump 0x64
0083 0000 0000 | | .BLANK 0000[0x5]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008f | | .CONST 0x008f ; Address of begin
0089 009c | | .CONST 0x009c ; Address of exception handler
008a 0002 | | .CONST 0x0002 ; Number of locals
008b INIT_0088:
008b e402 | | Load 0x2,0x2 ; Debug Table 0x3 = .DEBUG 0x008b,0x00fe,0x0804,0x0002,0x004c,0x3506,0x0000,0x00d1
; Debug Table 0x3.0x0 = 0x8b,0xffff
008c e5f9 | | Load 0x2,-0x7
008d 0119 | | Execute Any,Check_In_Formal_Type
008e 85fc | | Call 0x2,-0x4
008f BODY_0088:
008f e5f6 | | Load 0x2,-0xa ; Debug Table 0x3.0x1 = 0x8f,0x1
0090 6805 |h | Jump_Zero 0x96
0091 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0x91,0x2
0092 e001 | | Load 0x0,0x1
0093 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0094 8407 | | Call 0x2,0x7
0095 7802 |x | Jump 0x98
0096 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x3 = 0x96,0x3
0097 8407 | | Call 0x2,0x7
0098 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x4 = 0x98,0x4
0099 85fd | | Call 0x2,-0x3
009a c402 | | Store 0x2,0x2
009b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
009c TRAP_0088:
009c 600b |` | Indirect_Literal Discrete,0xa8,{0x00000000, 0x4c350601}
009d 010f | | Execute Exception,Equal
009e 6805 |h | Jump_Zero 0xa4
009f e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x5 = 0x9f,0x5
00a0 e5f5 | | Load 0x2,-0xb
00a1 85fe | | Call 0x2,-0x2
00a2 c402 | | Store 0x2,0x2
00a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a4 0100 | | Execute Exception,Raise
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 0000 0000 | | .LITERAL {0x00000000, 0x4c350601}
00ac 0000 0000 | | .BLANK 0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; Debug Table
00b0 ; --------------------------------------------------------------------------------------
00b0 0003 0004 | | .CONST 0x0003,0x0004
00b2 000b 00d2 | | .DEBUG 0x000b,0x00d2,0x8000,0x0000,0x004c,0x34a6,0x0000,0x0003
00ba 001b 00d4 | | .DEBUG 0x001b,0x00d4,0xa801,0x0002,0x004c,0x34a6,0x0000,0x0003
00c2 005b 00e8 | [ | .DEBUG 0x005b,0x00e8,0x0801,0x0002,0x004c,0x3506,0x0000,0x0047
00ca 008b 00fe | | .DEBUG 0x008b,0x00fe,0x0804,0x0002,0x004c,0x3506,0x0000,0x00d1
00d2 ; --------------------------------------------------------------------------------------
00d2 ; Debug3 Subtable 0x0
00d2 ; --------------------------------------------------------------------------------------
00d2 0000 0000 | | .DBG3TAB 0x0000,0x0000
00d4 ; --------------------------------------------------------------------------------------
00d4 ; Debug3 Subtable 0x1
00d4 ; --------------------------------------------------------------------------------------
00d4 0006 0003 | | .DBG3TAB 0x0006,0x0003
00d6 001b ffff | | .CONST 0x001b,0xffff
00d8 001f fffe | | .CONST 0x001f,0xfffe
00da 0027 fffd | ' | .CONST 0x0027,0xfffd
00dc 002b fffc | + | .CONST 0x002b,0xfffc
00de 0042 fffb | B | .CONST 0x0042,0xfffb
00e0 0043 fffa | C | .CONST 0x0043,0xfffa
00e2 0048 0001 | H | .CONST 0x0048,0x0001
00e4 0050 0003 | P | .CONST 0x0050,0x0003
00e6 0052 0002 | R | .CONST 0x0052,0x0002
00e8 ; --------------------------------------------------------------------------------------
00e8 ; Debug3 Subtable 0x2
00e8 ; --------------------------------------------------------------------------------------
00e8 0002 0008 | | .DBG3TAB 0x0002,0x0008
00ea 005b ffff | [ | .CONST 0x005b,0xffff
00ec 0063 0001 | c | .CONST 0x0063,0x0001
00ee 0064 0002 | d | .CONST 0x0064,0x0002
00f0 0065 fbff | e | .CONST 0x0065,0xfbff
00f2 0069 0401 | i | .CONST 0x0069,0x0401
00f4 006b 0402 | k | .CONST 0x006b,0x0402
00f6 006f 0403 | o | .CONST 0x006f,0x0403
00f8 0072 0404 | r | .CONST 0x0072,0x0404
00fa 0077 0405 | w | .CONST 0x0077,0x0405
00fc 007b 0003 | { | .CONST 0x007b,0x0003
00fe ; --------------------------------------------------------------------------------------
00fe ; Debug3 Subtable 0x3
00fe ; --------------------------------------------------------------------------------------
00fe 0001 0005 | | .DBG3TAB 0x0001,0x0005
0100 008b ffff | | .CONST 0x008b,0xffff
0102 008f 0001 | | .CONST 0x008f,0x0001
0104 0091 0002 | | .CONST 0x0091,0x0002
0106 0096 0003 | | .CONST 0x0096,0x0003
0108 0098 0004 | | .CONST 0x0098,0x0004
010a 009f 0005 | | .CONST 0x009f,0x0005
010c 0000 0000 | | .BLANK 0000[0xf4]