|
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_0900ea
└─⟦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 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 0036 | 6 | .CONST 0x0036 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b e003 | | Load 0x0,0x3
000c e004 | | Load 0x0,0x4
000d 4801 |H | Short_Literal 0x1
000e e005 | | Load 0x0,0x5
000f 4801 |H | Short_Literal 0x1
0010 e006 | | Load 0x0,0x6
0011 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
0013 4802 |H | Short_Literal 0x2
0014 4801 |H | Short_Literal 0x1
0015 4802 |H | Short_Literal 0x2
0016 4800 |H | Short_Literal 0x0
0017 4801 |H | Short_Literal 0x1
0018 031e | | Declare_Type Variant_Record,Defined,Visible
0019 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
001b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
001d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
001f 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0021 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0023 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0025 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0027 00bf | | Action Accept_Activation
0028 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0029 00c7 | | Action Elaborate_Subprogram
002a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002b 00c7 | | Action Elaborate_Subprogram
002c 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002d 00c7 | | Action Elaborate_Subprogram
002e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002f 00c7 | | Action Elaborate_Subprogram
0030 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0031 00c7 | | Action Elaborate_Subprogram
0032 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0033 00c7 | | Action Elaborate_Subprogram
0034 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0035 00c7 | | Action Elaborate_Subprogram
0036 BODY_0008:
0036 00bc | | Action Signal_Activated
0037 00bb | | Action Signal_Completion
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b 4800 |H | Short_Literal 0x0
003c e20d | | Load 0x1,0xd
003d 1c08 | | Execute_Immediate Run_Utility,0x8
003e 00db | | Load_Top At_Offset_3
003f 00d9 | | Load_Top At_Offset_1
0040 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0041 e5fe | | Load 0x2,-0x2
0042 e20d | | Load 0x1,0xd
0043 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
0044 0119 | | Execute Any,Check_In_Formal_Type
0045 00d9 | | Load_Top At_Offset_1
0046 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0047 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 4801 |H | Short_Literal 0x1
004c e20d | | Load 0x1,0xd
004d 1c08 | | Execute_Immediate Run_Utility,0x8
004e 00db | | Load_Top At_Offset_3
004f 00d9 | | Load_Top At_Offset_1
0050 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0051 e5fe | | Load 0x2,-0x2
0052 e20d | | Load 0x1,0xd
0053 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2
0054 0119 | | Execute Any,Check_In_Formal_Type
0055 00d9 | | Load_Top At_Offset_1
0056 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0057 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 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 00da | | Load_Top At_Offset_2
005c 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
005d 0f05 | | Execute_Immediate Equal,0x5
005e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005f 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
0064 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0065 0f00 | | Execute_Immediate Equal,0x0
0066 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0067 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
006c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
006d 00d8 | | Load_Top At_Offset_0
006e 0120 | | Execute Any,Is_Value
006f 7002 |p | Jump_Nonzero 0x72
0070 00d8 | | Load_Top At_Offset_0
0071 011e | | Execute Any,Convert
0072 e004 | | Load 0x0,0x4
0073 0119 | | Execute Any,Check_In_Formal_Type
0074 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0075 0000 0000 | | .XXX[0x3]
0077 0000 | |
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 6806 |h | Jump_Zero 0x84
007e 00db | | Load_Top At_Offset_3
007f 00db | | Load_Top At_Offset_3
0080 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0081 8007 | | Call 0x0,0x7
0082 8008 | | Call 0x0,0x8
0083 7805 |x | Jump 0x89
0084 00db | | Load_Top At_Offset_3
0085 00db | | Load_Top At_Offset_3
0086 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0087 8009 | | Call 0x0,0x9
0088 8008 | | Call 0x0,0x8
0089 00db | | Load_Top At_Offset_3
008a 0092 00f8 | | Action Push_String_Extended,0xf8 ; "("
008c 8008 | | Call 0x0,0x8
008d 00db | | Load_Top At_Offset_3
008e 00db | | Load_Top At_Offset_3
008f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0090 800a | | Call 0x0,0xa
0091 00db | | Load_Top At_Offset_3
0092 0092 00f9 | | Action Push_String_Extended,0xf9 ; ")"
0094 8008 | | Call 0x0,0x8
0095 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0096 0000 0000 | | .XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009e | | .CONST 0x009e ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b 00db | | Load_Top At_Offset_3
009c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
009d 800b | | Call 0x0,0xb
009e BODY_0098:
009e e5fe | | Load 0x2,-0x2
009f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00a0 6806 |h | Jump_Zero 0xa7
00a1 00d8 | | Load_Top At_Offset_0
00a2 e5ff | | Load 0x2,-0x1
00a3 e5fe | | Load 0x2,-0x2
00a4 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
00a5 800c | | Call 0x0,0xc
00a6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00a7 00d8 | | Load_Top At_Offset_0
00a8 e5ff | | Load 0x2,-0x1
00a9 e5fe | | Load 0x2,-0x2
00aa 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00ab 800d | | Call 0x0,0xd
00ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00ad 0000 0000 | | .XXX[0x3]
00af 0000 | |
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 4609 |F | Jump_Case 0xa
00b4 7809 |x | Jump 0xbe ; case 0x0
00b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00b6 781c |x | Jump 0xd3 ; case 0x2
00b7 781f |x | Jump 0xd7 ; case 0x3
00b8 783e |x> | Jump 0xf7 ; case 0x4
00b9 783d |x= | Jump 0xf7 ; case 0x5
00ba 7822 |x" | Jump 0xdd ; case 0x6
00bb 7827 |x' | Jump 0xe3 ; case 0x7
00bc 782f |x/ | Jump 0xec ; case 0x8
00bd 7835 |x5 | Jump 0xf3 ; case 0x9
00be 00da | | Load_Top At_Offset_2
00bf 016c | l | Execute Variant_Record,Is_Constrained
00c0 7009 |p | Jump_Nonzero 0xca
00c1 00cf | | Action Mark_Auxiliary
00c2 4800 |H | Short_Literal 0x0
00c3 e5ff | | Load 0x2,-0x1
00c4 1c08 | | Execute_Immediate Run_Utility,0x8
00c5 00d8 | | Load_Top At_Offset_0
00c6 1c00 | | Execute_Immediate Run_Utility,0x0
00c7 c5ff | | Store 0x2,-0x1
00c8 00ce | | Action Pop_Auxiliary
00c9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00ca 00da | | Load_Top At_Offset_2
00cb 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
00cc 00da | | Load_Top At_Offset_2
00cd 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
00ce 1c00 | | Execute_Immediate Run_Utility,0x0
00cf 00da | | Load_Top At_Offset_2
00d0 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00d1 6800 |h | Jump_Zero 0xd2
00d2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00d3 4801 |H | Short_Literal 0x1
00d4 4804 |H | Short_Literal 0x4
00d5 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
00d6 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00d7 e5fd | | Load 0x2,-0x3
00d8 00db | | Load_Top At_Offset_3
00d9 1c07 | | Execute_Immediate Run_Utility,0x7
00da e5fe | | Load 0x2,-0x2
00db 0306 | | Complete_Type Variant_Record,By_Renaming
00dc 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
00dd 00db | | Load_Top At_Offset_3
00de 6802 |h | Jump_Zero 0xe1
00df 4802 |H | Short_Literal 0x2
00e0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e1 4801 |H | Short_Literal 0x1
00e2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e3 00db | | Load_Top At_Offset_3
00e4 e5fe | | Load 0x2,-0x2
00e5 6802 |h | Jump_Zero 0xe8
00e6 4802 |H | Short_Literal 0x2
00e7 7801 |x | Jump 0xe9
00e8 4801 |H | Short_Literal 0x1
00e9 e5ff | | Load 0x2,-0x1
00ea 031b | | Declare_Type Variant_Record,Constrained
00eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ec 00db | | Load_Top At_Offset_3
00ed e5fe | | Load 0x2,-0x2
00ee e5ff | | Load 0x2,-0x1
00ef 1c06 | | Execute_Immediate Run_Utility,0x6
00f0 e5ff | | Load 0x2,-0x1
00f1 02fc | | Declare_Variable Variant_Record,With_Constraint
00f2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f3 4800 |H | Short_Literal 0x0
00f4 00db | | Load_Top At_Offset_3
00f5 1c07 | | Execute_Immediate Run_Utility,0x7
00f6 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f7 0869 | i | Execute_Immediate Raise,0x69
00f8 ; --------------------------------------------------------------------------------------
00f8 ; STRING TABLE
00f8 ; --------------------------------------------------------------------------------------
00f8 0006 | | .STRTAB 0x0006->0x00fb ; "("
00f9 0005 | | .STRTAB 0x0005->0x00fb ; ")"
00fa 0004 | | .STREND 0x0004->0x00fc
00fb 2829 |() | .STRTAB_STRINGS
00fc 0000 0000 | | .BLANK 0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; Debug Table
0100 ; --------------------------------------------------------------------------------------
0100 0004 0006 | | .DEBUG4 0x0004,0x0006,0x880c,0x0000,0x0001,0x000a
0106 000b 012e | .| .DBG4T 0x000b,0x012e,0x0000,0x0000
010a 0028 0138 | ( 8| .DBG4T 0x0028,0x0138,0x0000,0x0000
010e 003b 0141 | ; A| .DBG4T 0x003b,0x0141,0x0002,0x0000
0112 004b 0144 | K D| .DBG4T 0x004b,0x0144,0x0002,0x0000
0116 005b 0147 | [ G| .DBG4T 0x005b,0x0147,0x0002,0x0000
011a 0063 014a | c J| .DBG4T 0x0063,0x014a,0x0002,0x0000
011e 006b 014d | k M| .DBG4T 0x006b,0x014d,0x0002,0x0000
0122 007b 0150 | { P| .DBG4T 0x007b,0x0150,0x0001,0x4000
0126 009b 015e | ^| .DBG4T 0x009b,0x015e,0x0002,0x4000
012a 00b3 0000 | | .DBG4T 0x00b3,0x0000,0x0005,0x0000
012e ; --------------------------------------------------------------------------------------
012e ; Debug chain
012e ; --------------------------------------------------------------------------------------
012e 0008 0000 | | .DBGLEN 0x0008,0x0000
0130 000b 0019 | | .DBGLNO 0x000b,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025
0138 ; --------------------------------------------------------------------------------------
0138 ; Debug chain
0138 ; --------------------------------------------------------------------------------------
0138 0007 0000 | | .DBGLEN 0x0007,0x0000
013a 0028 002a | ( *| .DBGLNO 0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034
0141 ; --------------------------------------------------------------------------------------
0141 ; Debug chain
0141 ; --------------------------------------------------------------------------------------
0141 0000 0001 | | .DBGLEN 0x0000,0x0001
0143 003b | ; | .DBGLNO 0x003b
0144 ; --------------------------------------------------------------------------------------
0144 ; Debug chain
0144 ; --------------------------------------------------------------------------------------
0144 0000 0001 | | .DBGLEN 0x0000,0x0001
0146 004b | K | .DBGLNO 0x004b
0147 ; --------------------------------------------------------------------------------------
0147 ; Debug chain
0147 ; --------------------------------------------------------------------------------------
0147 0000 0001 | | .DBGLEN 0x0000,0x0001
0149 005b | [ | .DBGLNO 0x005b
014a ; --------------------------------------------------------------------------------------
014a ; Debug chain
014a ; --------------------------------------------------------------------------------------
014a 0000 0001 | | .DBGLEN 0x0000,0x0001
014c 0063 | c | .DBGLNO 0x0063
014d ; --------------------------------------------------------------------------------------
014d ; Debug chain
014d ; --------------------------------------------------------------------------------------
014d 0000 0001 | | .DBGLEN 0x0000,0x0001
014f 006b | k | .DBGLNO 0x006b
0150 ; --------------------------------------------------------------------------------------
0150 ; Debug chain
0150 ; --------------------------------------------------------------------------------------
0150 0000 0006 | | .DBGLEN 0x0000,0x0006
0152 007b 007e | { ~| .DBGLNO 0x007b,0x007e,0x0084,0x0089,0x008d,0x0091
0158 0001 0003 | | .XXX[0x6]
015a 0002 0004 | |
015c 0005 0006 | |
015e ; --------------------------------------------------------------------------------------
015e ; Debug chain
015e ; --------------------------------------------------------------------------------------
015e 0001 0003 | | .DBGLEN 0x0001,0x0003
0160 009b 009e | | .DBGLNO 0x009b,0x009e,0x00a1,0x00a7
0164 0001 0003 | | .XXX[0x3]
0166 0002 | |
0167 0000 0000 | | .BLANK 0000[0x99]