|
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_779ce4
└─⟦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 0108 | | .CONST 0x0108 ; 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 8000 | | .CONST 0x8000 ; 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
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 0051 | Q | .CONST 0x0051 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0010 | | .CONST 0x0010 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001d 02c7 | | Declare_Variable Any
001e 00d8 | | Load_Top At_Offset_0
001f 1c00 | | Execute_Immediate Run_Utility,0x0
0020 e002 | | Load 0x0,0x2
0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0022 02c7 | | Declare_Variable Any
0023 00d8 | | Load_Top At_Offset_0
0024 1c00 | | Execute_Immediate Run_Utility,0x0
0025 00e9 | | Load_Encached String_Cache
0026 02a0 | | Declare_Subprogram Null_Subprogram
0027 4818 |H | Short_Literal 0x18
0028 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0029 00e2 | | Load_Encached Integer_Cache
002a 0266 | f | Execute Discrete,Bounds
002b 00da | | Load_Top At_Offset_2
002c 02a0 | | Declare_Subprogram Null_Subprogram
002d 4801 |H | Short_Literal 0x1
002e 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
002f 4801 |H | Short_Literal 0x1
0030 6077 |`w | Indirect_Literal Discrete,0xa8,{0x00000000, 0x000007d0}
0031 00da | | Load_Top At_Offset_2
0032 035b | [ | Declare_Type Array,Constrained
0033 0337 | 7 | Declare_Variable Array
0034 00d8 | | Load_Top At_Offset_0
0035 0335 | 5 | Declare_Variable Array,Duplicate
0036 00cd | | Action Spare6_Action
0037 6070 |`p | Indirect_Literal Discrete,0xa8,{0x00000000, 0x000007d0}
0038 4801 |H | Short_Literal 0x1
0039 e404 | | Load 0x2,0x4
003a 00d9 | | Load_Top At_Offset_1
003b e407 | | Load 0x2,0x7
003c 01d6 | | Execute Vector,Field_Write
003d 3ffb |? | Loop_Increasing 0x39
003e 00d9 | | Load_Top At_Offset_1
003f 01d4 | | Execute Vector,Structure_Write
0040 00e2 | | Load_Encached Integer_Cache
0041 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0042 00e2 | | Load_Encached Integer_Cache
0043 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
0045 a003 | | Store_Unchecked 0x0,0x3
0046 00c6 | | Action Check_Subprogram_Elaborated
0047 e404 | | Load 0x2,0x4
0048 00e2 | | Load_Encached Integer_Cache
0049 e405 | | Load 0x2,0x5
004a 4809 |H | Short_Literal 0x9
004b 4802 |H | Short_Literal 0x2
004c 0099 | | Action Reference_Dynamic
004d e004 | | Load 0x0,0x4
004e e005 | | Load 0x0,0x5
004f 4810 |H | Short_Literal 0x10
0050 0007 | | Action Break_Optional
0051 BODY_0018:
0051 e402 | | Load 0x2,0x2
0052 00ea | | Load_Encached Null_String_Cache
0053 0092 00e6 | | Action Push_String_Extended,0xe6 ; "!users.gfrankel.external_withs2"
0055 4800 |H | Short_Literal 0x0
0056 e002 | | Load 0x0,0x2
0057 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0058 c402 | | Store 0x2,0x2
0059 e403 | | Load 0x2,0x3
005a 00ea | | Load_Encached Null_String_Cache
005b 0092 00e7 | | Action Push_String_Extended,0xe7 ; "!users.gfrankel.external_withs3"
005d 4801 |H | Short_Literal 0x1
005e e002 | | Load 0x0,0x2
005f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0060 c403 | | Store 0x2,0x3
0061 00cf | | Action Mark_Auxiliary
0062 780c |x | Jump 0x6f
0063 e402 | | Load 0x2,0x2
0064 e002 | | Load 0x0,0x2
0065 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0066 e404 | | Load 0x2,0x4
0067 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0068 e407 | | Load 0x2,0x7
0069 e406 | | Load 0x2,0x6
006a 01d6 | | Execute Vector,Field_Write
006b e407 | | Load 0x2,0x7
006c 0a01 | | Execute_Immediate Plus,0x1
006d c407 | | Store 0x2,0x7
006e 00c9 | | Action Pop_Auxiliary_Loop
006f e402 | | Load 0x2,0x2
0070 e002 | | Load 0x0,0x2
0071 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0072 6ff0 |o | Jump_Zero 0x63
0073 00ce | | Action Pop_Auxiliary
0074 e407 | | Load 0x2,0x7
0075 0aff | | Execute_Immediate Plus,-0x1
0076 c407 | | Store 0x2,0x7
0077 e406 | | Load 0x2,0x6
0078 4801 |H | Short_Literal 0x1
0079 e407 | | Load 0x2,0x7
007a 00da | | Load_Top At_Offset_2
007b 035b | [ | Declare_Type Array,Constrained
007c 00d0 | | Action Swap_Control
007d 01cd | | Execute Vector,Slice_Reference
007e e408 | | Load 0x2,0x8
007f 00d9 | | Load_Top At_Offset_1
0080 e40a | | Load 0x2,0xa
0081 e40b | | Load 0x2,0xb
0082 e40c | | Load 0x2,0xc
0083 480d |H | Short_Literal 0xd
0084 4802 |H | Short_Literal 0x2
0085 0099 | | Action Reference_Dynamic
0086 480e |H | Short_Literal 0xe
0087 4802 |H | Short_Literal 0x2
0088 0099 | | Action Reference_Dynamic
0089 8003 | | Call 0x0,0x3
008a 00d1 | | Pop_Control Pop_Count_1
008b c408 | | Store 0x2,0x8
008c 00d1 | | Pop_Control Pop_Count_1
008d 00cf | | Action Mark_Auxiliary
008e e407 | | Load 0x2,0x7
008f 4801 |H | Short_Literal 0x1
0090 0263 | c | Execute Discrete,Above_Bound
0091 7009 |p | Jump_Nonzero 0x9b
0092 00d8 | | Load_Top At_Offset_0
0093 e406 | | Load 0x2,0x6
0094 01d7 | | Execute Vector,Field_Read
0095 0227 | ' | Execute Access,All_Reference
0096 e403 | | Load 0x2,0x3
0097 e002 | | Load 0x0,0x2
0098 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0099 00c8 | | Action Pop_Auxiliary_Range
009a 3ff7 |? | Loop_Increasing 0x92
009b 00ce | | Action Pop_Auxiliary
009c e402 | | Load 0x2,0x2
009d e002 | | Load 0x0,0x2
009e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
009f c402 | | Store 0x2,0x2
00a0 e403 | | Load 0x2,0x3
00a1 e002 | | Load 0x0,0x2
00a2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00a3 c403 | | Store 0x2,0x3
00a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 0000 0000 | | .LITERAL {0x00000000, 0x000007d0}
00ac 0000 0000 | | .BLANK 0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b5 | | .CONST 0x00b5 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0002 | | .CONST 0x0002 ; Number of locals
00b3 INIT_00b0:
00b3 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
00b5 BODY_00b0:
00b5 00db | | Load_Top At_Offset_3
00b6 7002 |p | Jump_Nonzero 0xb9
00b7 4800 |H | Short_Literal 0x0
00b8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00b9 e7fe | | Load 0x3,-0x2
00ba 7002 |p | Jump_Nonzero 0xbd
00bb 4801 |H | Short_Literal 0x1
00bc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00bd 8602 | | Call 0x3,0x2
00be 0831 | 1 | Execute_Immediate Raise,0x31
00bf 0000 | | .XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00cb | | .CONST 0x00cb ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0003 | | .CONST 0x0003 ; Number of locals
00c3 INIT_00c0:
00c3 e7ff | | Load 0x3,-0x1
00c4 0227 | ' | Execute Access,All_Reference
00c5 0335 | 5 | Declare_Variable Array,Duplicate
00c6 00cd | | Action Spare6_Action
00c7 e7fe | | Load 0x3,-0x2
00c8 0227 | ' | Execute Access,All_Reference
00c9 0335 | 5 | Declare_Variable Array,Duplicate
00ca 00cd | | Action Spare6_Action
00cb BODY_00c0:
00cb 00d9 | | Load_Top At_Offset_1
00cc 01dd | | Execute Vector,First
00cd 0a03 | | Execute_Immediate Plus,0x3
00ce 00d8 | | Load_Top At_Offset_0
00cf 00e2 | | Load_Encached Integer_Cache
00d0 0260 | ` | Execute Discrete,In_Type
00d1 7001 |p | Jump_Nonzero 0xd3
00d2 0801 | | Execute_Immediate Raise,0x1
00d3 00da | | Load_Top At_Offset_2
00d4 01dc | | Execute Vector,Last
00d5 00db | | Load_Top At_Offset_3
00d6 01cf | | Execute Vector,Slice_Read
00d7 00d9 | | Load_Top At_Offset_1
00d8 01dd | | Execute Vector,First
00d9 0a03 | | Execute_Immediate Plus,0x3
00da 00d8 | | Load_Top At_Offset_0
00db 00e2 | | Load_Encached Integer_Cache
00dc 0260 | ` | Execute Discrete,In_Type
00dd 7001 |p | Jump_Nonzero 0xdf
00de 0801 | | Execute_Immediate Raise,0x1
00df 00da | | Load_Top At_Offset_2
00e0 01dc | | Execute Vector,Last
00e1 00db | | Load_Top At_Offset_3
00e2 01cf | | Execute Vector,Slice_Read
00e3 01c1 | | Execute Vector,Less
00e4 00cb | | Action Pop_Block_With_Result
00e5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00e6 ; --------------------------------------------------------------------------------------
00e6 ; STRING TABLE
00e6 ; --------------------------------------------------------------------------------------
00e6 0006 | | .STRTAB 0x0006->0x00e9 ; "!users.gfrankel.external_withs2"
00e7 0023 | # | .STRTAB 0x0023->0x00f8 ; "!users.gfrankel.external_withs3"
00e8 0040 | @ | .STREND 0x0040->0x0108
00e9 2175 7365 |!use| .STRTAB_STRINGS
0108 ; --------------------------------------------------------------------------------------
0108 ; Debug Table
0108 ; --------------------------------------------------------------------------------------
0108 0004 0009 | | .DEBUG4 0x0004,0x0009,0xc1c1,0x0000,0x0001,0x0000
010e 0000 0000 | | .BLANK 0000[0xf2]