|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_664cf7
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 00f0 | | .CONST 0x00f0 ; 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 002e | . | .CONST 0x002e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0012 | | .CONST 0x0012 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4801 |H | Short_Literal 0x1
000d 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 00d8 | | Load_Top At_Offset_0
0011 4801 |H | Short_Literal 0x1
0012 e003 | | Load 0x0,0x3
0013 4801 |H | Short_Literal 0x1
0014 e004 | | Load 0x0,0x4
0015 029f 009b | | Declare_Subprogram INIT_0098,For_Call
0017 4802 |H | Short_Literal 0x2
0018 4800 |H | Short_Literal 0x0
0019 4802 |H | Short_Literal 0x2
001a 4800 |H | Short_Literal 0x0
001b 4801 |H | Short_Literal 0x1
001c 031e | | Declare_Type Variant_Record,Defined,Visible
001d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
001f 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0021 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0023 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0025 00bf | | Action Accept_Activation
0026 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0027 00c7 | | Action Elaborate_Subprogram
0028 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0029 00c7 | | Action Elaborate_Subprogram
002a 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002b 00c7 | | Action Elaborate_Subprogram
002c 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002d 00c7 | | Action Elaborate_Subprogram
002e BODY_0008:
002e 00bc | | Action Signal_Activated
002f 00bb | | Action Signal_Completion
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 4607 |F | Jump_Case 0x8
0034 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0035 7807 |x | Jump 0x3d ; case 0x1
0036 780a |x | Jump 0x41 ; case 0x2
0037 780e |x | Jump 0x46 ; case 0x3
0038 7811 |x | Jump 0x4a ; case 0x4
0039 7812 |x | Jump 0x4c ; case 0x5
003a 7813 |x | Jump 0x4e ; case 0x6
003b 7816 |x | Jump 0x52 ; case 0x7
003c 4302 |C | .XXX[0x1]
003d 00da | | Load_Top At_Offset_2
003e 0091 00de | | Action Push_String_Extended_Indexed,0xde ; "ALIAS_VALUE"
0040 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0041 00db | | Load_Top At_Offset_3
0042 00db | | Load_Top At_Offset_3
0043 00e0 | | Load_Encached Standard_Cache
0044 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0045 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0046 00da | | Load_Top At_Offset_2
0047 00e0 | | Load_Encached Standard_Cache
0048 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0049 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
004a 00db | | Load_Top At_Offset_3
004b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
004c 00db | | Load_Top At_Offset_3
004d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
004e e20d | | Load 0x1,0xd
004f 00dc | | Load_Top At_Offset_4
0050 0267 | g | Execute Discrete,Predecessor
0051 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0052 e20d | | Load 0x1,0xd
0053 00dc | | Load_Top At_Offset_4
0054 0268 | h | Execute Discrete,Successor
0055 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0056 0000 0000 | | .XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 4801 |H | Short_Literal 0x1
005c e20e | | Load 0x1,0xe
005d 1c08 | | Execute_Immediate Run_Utility,0x8
005e 00db | | Load_Top At_Offset_3
005f 00d9 | | Load_Top At_Offset_1
0060 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0061 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0062 0000 0000 | | .BLANK 0000[0x6]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 4800 |H | Short_Literal 0x0
006c e20e | | Load 0x1,0xe
006d 1c08 | | Execute_Immediate Run_Utility,0x8
006e 00db | | Load_Top At_Offset_3
006f 00d9 | | Load_Top At_Offset_1
0070 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0071 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0072 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
007c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
007d 6805 |h | Jump_Zero 0x83
007e 00db | | Load_Top At_Offset_3
007f 00db | | Load_Top At_Offset_3
0080 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0081 8005 | | Call 0x0,0x5
0082 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0083 00db | | Load_Top At_Offset_3
0084 00db | | Load_Top At_Offset_3
0085 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0086 8006 | | Call 0x0,0x6
0087 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00da | | Load_Top At_Offset_2
008c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
008d 6805 |h | Jump_Zero 0x93
008e 00da | | Load_Top At_Offset_2
008f 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0090 02fd | | Declare_Variable Variant_Record,Duplicate
0091 00cd | | Action Spare6_Action
0092 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0093 00da | | Load_Top At_Offset_2
0094 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0095 8007 | | Call 0x0,0x7
0096 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0097 0000 | | .XXX[0x1]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 4609 |F | Jump_Case 0xa
009c 7809 |x | Jump 0xa6 ; case 0x0
009d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
009e 781a |x | Jump 0xb9 ; case 0x2
009f 781d |x | Jump 0xbd ; case 0x3
00a0 783c |x< | Jump 0xdd ; case 0x4
00a1 783b |x; | Jump 0xdd ; case 0x5
00a2 7820 |x | Jump 0xc3 ; case 0x6
00a3 7825 |x% | Jump 0xc9 ; case 0x7
00a4 782d |x- | Jump 0xd2 ; case 0x8
00a5 7833 |x3 | Jump 0xd9 ; case 0x9
00a6 00da | | Load_Top At_Offset_2
00a7 016c | l | Execute Variant_Record,Is_Constrained
00a8 7009 |p | Jump_Nonzero 0xb2
00a9 00cf | | Action Mark_Auxiliary
00aa 4801 |H | Short_Literal 0x1
00ab e5ff | | Load 0x2,-0x1
00ac 1c08 | | Execute_Immediate Run_Utility,0x8
00ad 00d8 | | Load_Top At_Offset_0
00ae 1c00 | | Execute_Immediate Run_Utility,0x0
00af c5ff | | Store 0x2,-0x1
00b0 00ce | | Action Pop_Auxiliary
00b1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00b2 00da | | Load_Top At_Offset_2
00b3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00b4 6803 |h | Jump_Zero 0xb8
00b5 00da | | Load_Top At_Offset_2
00b6 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
00b7 1c00 | | Execute_Immediate Run_Utility,0x0
00b8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00b9 4801 |H | Short_Literal 0x1
00ba 4803 |H | Short_Literal 0x3
00bb 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
00bc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00bd e5fd | | Load 0x2,-0x3
00be 00db | | Load_Top At_Offset_3
00bf 1c07 | | Execute_Immediate Run_Utility,0x7
00c0 e5fe | | Load 0x2,-0x2
00c1 0306 | | Complete_Type Variant_Record,By_Renaming
00c2 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
00c3 00db | | Load_Top At_Offset_3
00c4 6802 |h | Jump_Zero 0xc7
00c5 4802 |H | Short_Literal 0x2
00c6 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c7 4801 |H | Short_Literal 0x1
00c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c9 00db | | Load_Top At_Offset_3
00ca e5fe | | Load 0x2,-0x2
00cb 6802 |h | Jump_Zero 0xce
00cc 4802 |H | Short_Literal 0x2
00cd 7801 |x | Jump 0xcf
00ce 4801 |H | Short_Literal 0x1
00cf e5ff | | Load 0x2,-0x1
00d0 031b | | Declare_Type Variant_Record,Constrained
00d1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d2 00db | | Load_Top At_Offset_3
00d3 e5fe | | Load 0x2,-0x2
00d4 e5ff | | Load 0x2,-0x1
00d5 1c06 | | Execute_Immediate Run_Utility,0x6
00d6 e5ff | | Load 0x2,-0x1
00d7 02fc | | Declare_Variable Variant_Record,With_Constraint
00d8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d9 4801 |H | Short_Literal 0x1
00da 00db | | Load_Top At_Offset_3
00db 1c07 | | Execute_Immediate Run_Utility,0x7
00dc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00dd 0869 | i | Execute_Immediate Raise,0x69
00de ; --------------------------------------------------------------------------------------
00de ; STRING TABLE
00de ; --------------------------------------------------------------------------------------
00de 0006 | | .STRTAB 0x0006->0x00e1 ; "ALIAS_VALUE"
00df 000f | | .STRTAB 0x000f->0x00e6 ; "IMMEDIATE_VALUE"
00e0 001c | | .STREND 0x001c->0x00ee
00e1 414c 4941 |ALIA| .STRTAB_STRINGS
00ee 0000 0000 | | .XXX[0x2]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; Debug Table
00f0 ; --------------------------------------------------------------------------------------
00f0 0004 0006 | | .DEBUG4 0x0004,0x0006,0xad7c,0x0000,0x0001,0x0008
00f6 000b 0116 | | .DBG4T 0x000b,0x0116,0x0000,0x0000
00fa 0026 011e | & | .DBG4T 0x0026,0x011e,0x0000,0x0000
00fe 0033 0000 | 3 | .DBG4T 0x0033,0x0000,0x0005,0x0000
0102 005b 0124 | [ $| .DBG4T 0x005b,0x0124,0x0002,0x0000
0106 006b 0127 | k '| .DBG4T 0x006b,0x0127,0x0002,0x0000
010a 007b 012a | { *| .DBG4T 0x007b,0x012a,0x0001,0x4000
010e 008b 0132 | 2| .DBG4T 0x008b,0x0132,0x0002,0x4000
0112 009b 0000 | | .DBG4T 0x009b,0x0000,0x0005,0x0000
0116 ; --------------------------------------------------------------------------------------
0116 ; Debug chain
0116 ; --------------------------------------------------------------------------------------
0116 0006 0000 | | .DBGLEN 0x0006,0x0000
0118 000b 0010 | | .DBGLNO 0x000b,0x0010,0x001d,0x001f,0x0021,0x0023
011e ; --------------------------------------------------------------------------------------
011e ; Debug chain
011e ; --------------------------------------------------------------------------------------
011e 0004 0000 | | .DBGLEN 0x0004,0x0000
0120 0026 0028 | & (| .DBGLNO 0x0026,0x0028,0x002a,0x002c
0124 ; --------------------------------------------------------------------------------------
0124 ; Debug chain
0124 ; --------------------------------------------------------------------------------------
0124 0000 0001 | | .DBGLEN 0x0000,0x0001
0126 005b | [ | .DBGLNO 0x005b
0127 ; --------------------------------------------------------------------------------------
0127 ; Debug chain
0127 ; --------------------------------------------------------------------------------------
0127 0000 0001 | | .DBGLEN 0x0000,0x0001
0129 006b | k | .DBGLNO 0x006b
012a ; --------------------------------------------------------------------------------------
012a ; Debug chain
012a ; --------------------------------------------------------------------------------------
012a 0000 0003 | | .DBGLEN 0x0000,0x0003
012c 007b 007e | { ~| .DBGLNO 0x007b,0x007e,0x0083
012f 0001 0003 | | .XXX[0x3]
0131 0002 | |
0132 ; --------------------------------------------------------------------------------------
0132 ; Debug chain
0132 ; --------------------------------------------------------------------------------------
0132 0000 0003 | | .DBGLEN 0x0000,0x0003
0134 008b 008e | | .DBGLNO 0x008b,0x008e,0x0093
0137 0001 0003 | | .XXX[0x3]
0139 0002 | |
013a 0000 0000 | | .BLANK 0000[0xc6]