|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_191cd7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0100 | | .CONST 0x0100 ; 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 005e | ^ | .CONST 0x005e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001e | | .CONST 0x001e ; Number of locals
000b INIT_0008:
000b e002 | | Load 0x0,0x2
000c 00d8 | | Load_Top At_Offset_0
000d e002 | | Load 0x0,0x2
000e 00d8 | | Load_Top At_Offset_0
000f 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
0011 4804 |H | Short_Literal 0x4
0012 032e | . | Declare_Type Record,Defined,Visible
0013 e003 | | Load 0x0,0x3
0014 0266 | f | Execute Discrete,Bounds
0015 00da | | Load_Top At_Offset_2
0016 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call
0018 4801 |H | Short_Literal 0x1
0019 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
001a 00d8 | | Load_Top At_Offset_0
001b 02a0 | | Declare_Subprogram Null_Subprogram
001c 4818 |H | Short_Literal 0x18
001d 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
001e 00d8 | | Load_Top At_Offset_0
001f 0221 | ! | Execute Access,Allow_Deallocate
0020 0007 | | Action Break_Optional
0021 00da | | Load_Top At_Offset_2
0022 0322 | " | Declare_Variable Record
0023 4800 |H | Short_Literal 0x0
0024 00d9 | | Load_Top At_Offset_1
0025 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0026 4800 |H | Short_Literal 0x0
0027 00d9 | | Load_Top At_Offset_1
0028 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0029 4800 |H | Short_Literal 0x0
002a 00d9 | | Load_Top At_Offset_1
002b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
002c 4800 |H | Short_Literal 0x0
002d 00d9 | | Load_Top At_Offset_1
002e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
002f 0129 | ) | Execute Any,Make_Visible
0030 0007 | | Action Break_Optional
0031 a004 | | Store_Unchecked 0x0,0x4
0032 00c6 | | Action Check_Subprogram_Elaborated
0033 00da | | Load_Top At_Offset_2
0034 0129 | ) | Execute Any,Make_Visible
0035 00da | | Load_Top At_Offset_2
0036 0129 | ) | Execute Any,Make_Visible
0037 e005 | | Load 0x0,0x5
0038 0129 | ) | Execute Any,Make_Visible
0039 e006 | | Load 0x0,0x6
003a 0129 | ) | Execute Any,Make_Visible
003b 4800 |H | Short_Literal 0x0
003c 0129 | ) | Execute Any,Make_Visible
003d 4800 |H | Short_Literal 0x0
003e 4802 |H | Short_Literal 0x2
003f 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
0041 03fe | | Declare_Type Discrete,Defined,Visible
0042 e003 | | Load 0x0,0x3
0043 00d8 | | Load_Top At_Offset_0
0044 e20f | | Load 0x1,0xf
0045 e20d | | Load 0x1,0xd
0046 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
0048 4804 |H | Short_Literal 0x4
0049 032e | . | Declare_Type Record,Defined,Visible
004a 00d8 | | Load_Top At_Offset_0
004b 02a0 | | Declare_Subprogram Null_Subprogram
004c 4818 |H | Short_Literal 0x18
004d 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
004e 00d8 | | Load_Top At_Offset_0
004f 0221 | ! | Execute Access,Allow_Deallocate
0050 0007 | | Action Break_Optional
0051 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0053 00bf | | Action Accept_Activation
0054 a004 | | Store_Unchecked 0x0,0x4
0055 00c6 | | Action Check_Subprogram_Elaborated
0056 00da | | Load_Top At_Offset_2
0057 00da | | Load_Top At_Offset_2
0058 e007 | | Load 0x0,0x7
0059 e008 | | Load 0x0,0x8
005a 4800 |H | Short_Literal 0x0
005b 0007 | | Action Break_Optional
005c 1d19 | | Execute_Immediate Reference_Lex_1,0x19
005d 00c7 | | Action Elaborate_Subprogram
005e BODY_0008:
005e 00bc | | Action Signal_Activated
005f 00bb | | Action Signal_Completion
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 00d1 | | Pop_Control Pop_Count_1
0064 00da | | Load_Top At_Offset_2
0065 01d8 | | Execute Vector,Element_Type
0066 0322 | " | Declare_Variable Record
0067 00d8 | | Load_Top At_Offset_0
0068 1c00 | | Execute_Immediate Run_Utility,0x0
0069 00db | | Load_Top At_Offset_3
006a 01dc | | Execute Vector,Last
006b e5ff | | Load 0x2,-0x1
006c 01dd | | Execute Vector,First
006d 0263 | c | Execute Discrete,Above_Bound
006e 7006 |p | Jump_Nonzero 0x75
006f 00da | | Load_Top At_Offset_2
0070 00d9 | | Load_Top At_Offset_1
0071 e5ff | | Load 0x2,-0x1
0072 01d6 | | Execute Vector,Field_Write
0073 0a01 | | Execute_Immediate Plus,0x1
0074 7ff8 | | Jump 0x6d
0075 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0076 0000 0000 | | .XXX[0x2]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 4607 |F | Jump_Case 0x8
007c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
007d 7807 |x | Jump 0x85 ; case 0x1
007e 780a |x | Jump 0x89 ; case 0x2
007f 780e |x | Jump 0x8e ; case 0x3
0080 7811 |x | Jump 0x92 ; case 0x4
0081 7812 |x | Jump 0x94 ; case 0x5
0082 7813 |x | Jump 0x96 ; case 0x6
0083 7816 |x | Jump 0x9a ; case 0x7
0084 4302 |C | .XXX[0x1]
0085 00da | | Load_Top At_Offset_2
0086 0091 00e8 | | Action Push_String_Extended_Indexed,0xe8 ; "RECTANGLE_OUT"
0088 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0089 00db | | Load_Top At_Offset_3
008a 00db | | Load_Top At_Offset_3
008b 00e0 | | Load_Encached Standard_Cache
008c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008e 00da | | Load_Top At_Offset_2
008f 00e0 | | Load_Encached Standard_Cache
0090 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0091 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0092 00db | | Load_Top At_Offset_3
0093 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0094 00db | | Load_Top At_Offset_3
0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0096 e216 | | Load 0x1,0x16
0097 00dc | | Load_Top At_Offset_4
0098 0267 | g | Execute Discrete,Predecessor
0099 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009a e216 | | Load 0x1,0x16
009b 00dc | | Load_Top At_Offset_4
009c 0268 | h | Execute Discrete,Successor
009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009e 0000 0000 | | .XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 00da | | Load_Top At_Offset_2
00a4 e218 | | Load 0x1,0x18
00a5 022f | / | Execute Access,Equal
00a6 6801 |h | Jump_Zero 0xa8
00a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a8 00da | | Load_Top At_Offset_2
00a9 0229 | ) | Execute Access,All_Read
00aa 00d8 | | Load_Top At_Offset_0
00ab 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00ac e211 | | Load 0x1,0x11
00ad e212 | | Load 0x1,0x12
00ae 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00af 8004 | | Call 0x0,0x4
00b0 00d9 | | Load_Top At_Offset_1
00b1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00b2 00d1 | | Pop_Control Pop_Count_1
00b3 00da | | Load_Top At_Offset_2
00b4 e21a | | Load 0x1,0x1a
00b5 e21b | | Load 0x1,0x1b
00b6 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00b7 8004 | | Call 0x0,0x4
00b8 003b | ; | Store_Top Access,At_Offset_3
00b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ba 0000 0000 | | .BLANK 0000[0x6]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 4601 |F | Jump_Case 0x2
00c4 7801 |x | Jump 0xc6 ; case 0x0
00c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00c6 4800 |H | Short_Literal 0x0
00c7 00db | | Load_Top At_Offset_3
00c8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c9 4800 |H | Short_Literal 0x0
00ca 00db | | Load_Top At_Offset_3
00cb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00cc 4800 |H | Short_Literal 0x0
00cd 00db | | Load_Top At_Offset_3
00ce 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00cf 4800 |H | Short_Literal 0x0
00d0 00db | | Load_Top At_Offset_3
00d1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00d2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00d3 0000 0000 | | .BLANK 0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4601 |F | Jump_Case 0x2
00dc 7801 |x | Jump 0xde ; case 0x0
00dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00de 4800 |H | Short_Literal 0x0
00df 00db | | Load_Top At_Offset_3
00e0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e1 4800 |H | Short_Literal 0x0
00e2 00db | | Load_Top At_Offset_3
00e3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00e4 00da | | Load_Top At_Offset_2
00e5 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
00e6 1c00 | | Execute_Immediate Run_Utility,0x0
00e7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00e8 ; --------------------------------------------------------------------------------------
00e8 ; STRING TABLE
00e8 ; --------------------------------------------------------------------------------------
00e8 0008 | | .STRTAB 0x0008->0x00ec ; "RECTANGLE_OUT"
00e9 0013 | | .STRTAB 0x0013->0x00f2 ; "RECTANGLE_IN"
00ea 001d | | .STRTAB 0x001d->0x00f8 ; "RECTANGLE_PART"
00eb 0029 | ) | .STREND 0x0029->0x00ff
00ec 5245 4354 |RECT| .STRTAB_STRINGS
0100 ; --------------------------------------------------------------------------------------
0100 ; Debug Table
0100 ; --------------------------------------------------------------------------------------
0100 0004 0000 | | .DEBUG4 0x0004,0x0000,0x4a1b,0x0000,0x0001,0x0007
0106 000b 0122 | "| .DBG4T 0x000b,0x0122,0x8000,0x0000
010a 0054 0131 | T 1| .DBG4T 0x0054,0x0131,0x8000,0x0000
010e 0063 0000 | c | .DBG4T 0x0063,0x0000,0x0005,0x0000
0112 007b 0000 | { | .DBG4T 0x007b,0x0000,0x0005,0x0000
0116 00a3 0135 | 5| .DBG4T 0x00a3,0x0135,0x0001,0x0000
011a 00c3 0000 | | .DBG4T 0x00c3,0x0000,0x0005,0x0000
011e 00db 0000 | | .DBG4T 0x00db,0x0000,0x0005,0x0000
0122 ; --------------------------------------------------------------------------------------
0122 ; Debug chain
0122 ; --------------------------------------------------------------------------------------
0122 000d 0000 | | .DBGLEN 0x000d,0x0000
0124 000b 0013 | | .DBGLNO 0x000b,0x0013,0x001a,0x0020,0x0021,0x0030,0x0031,0x003d,0x0042,0x004a,0x0050,0x0051,0x0053
0131 ; --------------------------------------------------------------------------------------
0131 ; Debug chain
0131 ; --------------------------------------------------------------------------------------
0131 0002 0000 | | .DBGLEN 0x0002,0x0000
0133 0054 005c | T \| .DBGLNO 0x0054,0x005c
0135 ; --------------------------------------------------------------------------------------
0135 ; Debug chain
0135 ; --------------------------------------------------------------------------------------
0135 0000 0004 | | .DBGLEN 0x0000,0x0004
0137 00a3 00a7 | | .DBGLNO 0x00a3,0x00a7,0x00a8,0x00b3
013b 0000 0000 | | .BLANK 0000[0xc5]