|
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 - metrics - 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 0180 | | .CONST 0x0180 ; 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 007b | { | .CONST 0x007b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b 4808 |H | Short_Literal 0x8
000c 4800 |H | Short_Literal 0x0
000d 4801 |H | Short_Literal 0x1
000e 029f 0083 | | Declare_Subprogram For_Call,INIT_0080
0010 03fb | | Declare_Type Discrete,Defined,Visible,With_Size
0011 0007 | | Action Break_Optional
0012 4808 |H | Short_Literal 0x8
0013 4800 |H | Short_Literal 0x0
0014 4802 |H | Short_Literal 0x2
0015 029f 00ab | | Declare_Subprogram For_Call,INIT_00a8
0017 03fb | | Declare_Type Discrete,Defined,Visible,With_Size
0018 0007 | | Action Break_Optional
0019 e002 | | Load 0x0,0x2
001a 00d8 | | Load_Top At_Offset_0
001b e002 | | Load 0x0,0x2
001c 029f 011b | | Declare_Subprogram For_Call,INIT_0118
001e 4803 |H | Short_Literal 0x3
001f 032e | . | Declare_Type Record,Defined,Visible
0020 e003 | | Load 0x0,0x3
0021 0266 | f | Execute Discrete,Bounds
0022 00da | | Load_Top At_Offset_2
0023 029f 00d3 | | Declare_Subprogram For_Call,INIT_00d0
0025 4801 |H | Short_Literal 0x1
0026 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0027 00d8 | | Load_Top At_Offset_0
0028 02a0 | | Declare_Subprogram Null_Subprogram
0029 4818 |H | Short_Literal 0x18
002a 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
002b 00d8 | | Load_Top At_Offset_0
002c 0221 | ! | Execute Access,Allow_Deallocate
002d 0007 | | Action Break_Optional
002e 00da | | Load_Top At_Offset_2
002f 0322 | " | Declare_Variable Record
0030 4800 |H | Short_Literal 0x0
0031 00d9 | | Load_Top At_Offset_1
0032 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0033 4800 |H | Short_Literal 0x0
0034 00d9 | | Load_Top At_Offset_1
0035 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0036 4800 |H | Short_Literal 0x0
0037 00d9 | | Load_Top At_Offset_1
0038 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0039 0129 | ) | Execute Any,Make_Visible
003a 0007 | | Action Break_Optional
003b a004 | | Reference 0x0,0x4
003c 00c6 | | Action Check_Subprogram_Elaborated
003d 00da | | Load_Top At_Offset_2
003e 0129 | ) | Execute Any,Make_Visible
003f 00da | | Load_Top At_Offset_2
0040 0129 | ) | Execute Any,Make_Visible
0041 e005 | | Load 0x0,0x5
0042 0129 | ) | Execute Any,Make_Visible
0043 e006 | | Load 0x0,0x6
0044 0129 | ) | Execute Any,Make_Visible
0045 4800 |H | Short_Literal 0x0
0046 0129 | ) | Execute Any,Make_Visible
0047 e007 | | Load 0x0,0x7
0048 00d8 | | Load_Top At_Offset_0
0049 e007 | | Load 0x0,0x7
004a 00d8 | | Load_Top At_Offset_0
004b e007 | | Load 0x0,0x7
004c 00d8 | | Load_Top At_Offset_0
004d 02a0 | | Declare_Subprogram Null_Subprogram
004e 4806 |H | Short_Literal 0x6
004f 032e | . | Declare_Type Record,Defined,Visible
0050 e008 | | Load 0x0,0x8
0051 00d8 | | Load_Top At_Offset_0
0052 e009 | | Load 0x0,0x9
0053 e20e | | Load 0x1,0xe
0054 e00a | | Load 0x0,0xa
0055 00e1 | | Load_Encached Boolean_Cache
0056 e20d | | Load 0x1,0xd
0057 e002 | | Load 0x0,0x2
0058 e20d | | Load 0x1,0xd
0059 e002 | | Load 0x0,0x2
005a 00d8 | | Load_Top At_Offset_0
005b e008 | | Load 0x0,0x8
005c e002 | | Load 0x0,0x2
005d e00b | | Load 0x0,0xb
005e 00d8 | | Load_Top At_Offset_0
005f e00b | | Load 0x0,0xb
0060 e00a | | Load 0x0,0xa
0061 e218 | | Load 0x1,0x18
0062 029f 012b | +| Declare_Subprogram For_Call,INIT_0128
0064 4812 |H | Short_Literal 0x12
0065 032e | . | Declare_Type Record,Defined,Visible
0066 00d8 | | Load_Top At_Offset_0
0067 02a0 | | Declare_Subprogram Null_Subprogram
0068 4818 |H | Short_Literal 0x18
0069 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
006a 00d8 | | Load_Top At_Offset_0
006b 0221 | ! | Execute Access,Allow_Deallocate
006c 0007 | | Action Break_Optional
006d 0007 | | Action Break_Optional
006e 029a 00eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e8
0070 00bf | | Action Accept_Activation
0071 a004 | | Reference 0x0,0x4
0072 00c6 | | Action Check_Subprogram_Elaborated
0073 00da | | Load_Top At_Offset_2
0074 00da | | Load_Top At_Offset_2
0075 e00c | | Load 0x0,0xc
0076 e00d | | Load 0x0,0xd
0077 4800 |H | Short_Literal 0x0
0078 0007 | | Action Break_Optional
0079 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
007a 00c7 | | Action Elaborate_Subprogram
007b BODY_0008:
007b 00bc | | Action Signal_Activated
007c 00bb | | Action Signal_Completion
007d 0000 0000 | | .XXX[0x3]
007f 0000 | |
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4607 |F | Jump_Case 0x7
0084 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
0085 7807 |x | Jump 0x8d ; case 0x1
0086 780a |x | Jump 0x91 ; case 0x2
0087 780e |x | Jump 0x96 ; case 0x3
0088 7811 |x | Jump 0x9a ; case 0x4
0089 7812 |x | Jump 0x9c ; case 0x5
008a 7813 |x | Jump 0x9e ; case 0x6
008b 7816 |x | Jump 0xa2 ; case 0x7
008c 4302 |C | .XXX[0x1]
008d 00da | | Load_Top At_Offset_2
008e 0091 015c | \| Action Push_String_Extended_Indexed,0x15c ; "LSB_FIRST"
0090 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0091 00db | | Load_Top At_Offset_3
0092 00db | | Load_Top At_Offset_3
0093 00e0 | | Load_Encached Standard_Cache
0094 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0095 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0096 00da | | Load_Top At_Offset_2
0097 00e0 | | Load_Encached Standard_Cache
0098 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0099 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
009a 00db | | Load_Top At_Offset_3
009b 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
009c 00db | | Load_Top At_Offset_3
009d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
009e e20d | | Load 0x1,0xd
009f 00dc | | Load_Top At_Offset_4
00a0 0267 | g | Execute Discrete,Predecessor
00a1 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00a2 e20d | | Load 0x1,0xd
00a3 00dc | | Load_Top At_Offset_4
00a4 0268 | h | Execute Discrete,Successor
00a5 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00a6 0000 0000 | | .XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 4607 |F | Jump_Case 0x7
00ac 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00ad 7807 |x | Jump 0xb5 ; case 0x1
00ae 780a |x | Jump 0xb9 ; case 0x2
00af 780e |x | Jump 0xbe ; case 0x3
00b0 7811 |x | Jump 0xc2 ; case 0x4
00b1 7812 |x | Jump 0xc4 ; case 0x5
00b2 7813 |x | Jump 0xc6 ; case 0x6
00b3 7816 |x | Jump 0xca ; case 0x7
00b4 4302 |C | .XXX[0x1]
00b5 00da | | Load_Top At_Offset_2
00b6 0091 015e | ^| Action Push_String_Extended_Indexed,0x15e ; "X_Y_BITMAP"
00b8 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00b9 00db | | Load_Top At_Offset_3
00ba 00db | | Load_Top At_Offset_3
00bb 00e0 | | Load_Encached Standard_Cache
00bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00bd 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00be 00da | | Load_Top At_Offset_2
00bf 00e0 | | Load_Encached Standard_Cache
00c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c1 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00c2 00db | | Load_Top At_Offset_3
00c3 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00c4 00db | | Load_Top At_Offset_3
00c5 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00c6 e20e | | Load 0x1,0xe
00c7 00dc | | Load_Top At_Offset_4
00c8 0267 | g | Execute Discrete,Predecessor
00c9 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00ca e20e | | Load 0x1,0xe
00cb 00dc | | Load_Top At_Offset_4
00cc 0268 | h | Execute Discrete,Successor
00cd 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00ce 0000 0000 | | .XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00d1 | | Pop_Control Pop_Count_1
00d4 00da | | Load_Top At_Offset_2
00d5 01d8 | | Execute Vector,Element_Type
00d6 0322 | " | Declare_Variable Record
00d7 00d8 | | Load_Top At_Offset_0
00d8 1c00 | | Execute_Immediate Run_Utility,0x0
00d9 00db | | Load_Top At_Offset_3
00da 01dc | | Execute Vector,Last
00db e5ff | | Load 0x2,-0x1
00dc 01dd | | Execute Vector,First
00dd 0263 | c | Execute Discrete,Above_Bound
00de 7006 |p | Jump_Nonzero 0xe5
00df 00da | | Load_Top At_Offset_2
00e0 00d9 | | Load_Top At_Offset_1
00e1 e5ff | | Load 0x2,-0x1
00e2 01d6 | | Execute Vector,Field_Write
00e3 0a01 | | Execute_Immediate Plus,0x1
00e4 7ff8 | | Jump 0xdd
00e5 4302 |C | Exit_Subprogram From_Utility,0x2
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00da | | Load_Top At_Offset_2
00ec e21a | | Load 0x1,0x1a
00ed 022f | / | Execute Access,Equal
00ee 6801 |h | Jump_Zero 0xf0
00ef 4501 |E | Exit_Subprogram 0x1
00f0 00da | | Load_Top At_Offset_2
00f1 0227 | ' | Execute Access,All_Reference
00f2 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
00f3 700b |p | Jump_Nonzero 0xff
00f4 00da | | Load_Top At_Offset_2
00f5 0229 | ) | Execute Access,All_Read
00f6 00d8 | | Load_Top At_Offset_0
00f7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00f8 e00e | | Load 0x0,0xe
00f9 e00f | | Load 0x0,0xf
00fa a010 | | Reference 0x0,0x10
00fb 8004 | | Call 0x0,0x4
00fc 00d9 | | Load_Top At_Offset_1
00fd 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00fe 00d1 | | Pop_Control Pop_Count_1
00ff 00da | | Load_Top At_Offset_2
0100 0229 | ) | Execute Access,All_Read
0101 00d8 | | Load_Top At_Offset_0
0102 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
0103 e00e | | Load 0x0,0xe
0104 e00f | | Load 0x0,0xf
0105 a010 | | Reference 0x0,0x10
0106 8004 | | Call 0x0,0x4
0107 00d9 | | Load_Top At_Offset_1
0108 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0109 00d1 | | Pop_Control Pop_Count_1
010a 00da | | Load_Top At_Offset_2
010b e21c | | Load 0x1,0x1c
010c e21d | | Load 0x1,0x1d
010d 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
010e 8004 | | Call 0x0,0x4
010f 003b | ; | Store_Top Access,At_Offset_3
0110 4501 |E | Exit_Subprogram 0x1
0111 0000 0000 | | .BLANK 0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 4601 |F | Jump_Case 0x1
011c 7801 |x | Jump 0x11e ; case 0x0
011d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
011e 4800 |H | Short_Literal 0x0
011f 00db | | Load_Top At_Offset_3
0120 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0121 4800 |H | Short_Literal 0x0
0122 00db | | Load_Top At_Offset_3
0123 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0124 4800 |H | Short_Literal 0x0
0125 00db | | Load_Top At_Offset_3
0126 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0127 4302 |C | Exit_Subprogram From_Utility,0x2
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 4601 |F | Jump_Case 0x1
012c 7801 |x | Jump 0x12e ; case 0x0
012d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
012e 4800 |H | Short_Literal 0x0
012f 00db | | Load_Top At_Offset_3
0130 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0131 4800 |H | Short_Literal 0x0
0132 00db | | Load_Top At_Offset_3
0133 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0134 4800 |H | Short_Literal 0x0
0135 00db | | Load_Top At_Offset_3
0136 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0137 4800 |H | Short_Literal 0x0
0138 00db | | Load_Top At_Offset_3
0139 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
013a 4800 |H | Short_Literal 0x0
013b 00db | | Load_Top At_Offset_3
013c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
013d 4800 |H | Short_Literal 0x0
013e 00db | | Load_Top At_Offset_3
013f 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0140 4800 |H | Short_Literal 0x0
0141 00db | | Load_Top At_Offset_3
0142 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0143 4800 |H | Short_Literal 0x0
0144 00db | | Load_Top At_Offset_3
0145 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0146 4800 |H | Short_Literal 0x0
0147 00db | | Load_Top At_Offset_3
0148 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0149 4800 |H | Short_Literal 0x0
014a 00db | | Load_Top At_Offset_3
014b 380a |8 | Execute Record,Field_Write,Field_Number 0xa
014c 4800 |H | Short_Literal 0x0
014d 00db | | Load_Top At_Offset_3
014e 380b |8 | Execute Record,Field_Write,Field_Number 0xb
014f 4800 |H | Short_Literal 0x0
0150 00db | | Load_Top At_Offset_3
0151 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0152 4800 |H | Short_Literal 0x0
0153 00db | | Load_Top At_Offset_3
0154 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0155 4800 |H | Short_Literal 0x0
0156 00db | | Load_Top At_Offset_3
0157 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0158 4800 |H | Short_Literal 0x0
0159 00db | | Load_Top At_Offset_3
015a 380f |8 | Execute Record,Field_Write,Field_Number 0xf
015b 4302 |C | Exit_Subprogram From_Utility,0x2
015c ; --------------------------------------------------------------------------------------
015c ; STRING TABLE
015c ; --------------------------------------------------------------------------------------
015c 000c | | .STRTAB 0x000c->0x0162 ; "LSB_FIRST"
015d 0013 | | .STRTAB 0x0013->0x0166 ; "MSB_FIRST"
015e 001a | | .STRTAB 0x001a->0x016b ; "X_Y_BITMAP"
015f 0022 | " | .STRTAB 0x0022->0x0170 ; "X_Y_PIXMAP"
0160 002a | * | .STRTAB 0x002a->0x0175 ; "Z_PIXMAP"
0161 0030 | 0 | .STREND 0x0030->0x0179
0162 4c53 425f |LSB_| .STRTAB_STRINGS
0179 0000 0000 | | .BLANK 0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; Debug Table
0180 ; --------------------------------------------------------------------------------------
0180 0004 0000 | | .DEBUG4 0x0004,0x0000,0x4921,0x0000,0x0001,0x0008
0186 000b 01a6 | | .DBG4T 0x000b,0x01a6,0x8000,0x0000
018a 0071 01b9 | q | .DBG4T 0x0071,0x01b9,0x8000,0x0000
018e 0083 0000 | | .DBG4T 0x0083,0x0000,0x0005,0x0000
0192 00ab 0000 | | .DBG4T 0x00ab,0x0000,0x0005,0x0000
0196 00d3 0000 | | .DBG4T 0x00d3,0x0000,0x0005,0x0000
019a 00eb 01bd | | .DBG4T 0x00eb,0x01bd,0x0001,0x0000
019e 011b 0000 | | .DBG4T 0x011b,0x0000,0x0005,0x0000
01a2 012b 0000 | + | .DBG4T 0x012b,0x0000,0x0005,0x0000
01a6 ; --------------------------------------------------------------------------------------
01a6 ; Debug chain
01a6 ; --------------------------------------------------------------------------------------
01a6 0011 0000 | | .DBGLEN 0x0011,0x0000
01a8 000b 0011 | | .DBGLNO 0x000b,0x0011,0x0012,0x0018,0x0019,0x0020,0x0027,0x002d,0x002e,0x003a,0x003b,0x0047,0x0050,0x0066,0x006c,0x006d,0x006e
01b9 ; --------------------------------------------------------------------------------------
01b9 ; Debug chain
01b9 ; --------------------------------------------------------------------------------------
01b9 0002 0000 | | .DBGLEN 0x0002,0x0000
01bb 0071 0079 | q y| .DBGLNO 0x0071,0x0079
01bd ; --------------------------------------------------------------------------------------
01bd ; Debug chain
01bd ; --------------------------------------------------------------------------------------
01bd 0000 0006 | | .DBGLEN 0x0000,0x0006
01bf 00eb 00ef | | .DBGLNO 0x00eb,0x00ef,0x00f0,0x00f4,0x00ff,0x010a
01c5 0000 0000 | | .BLANK 0000[0x3b]