|
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_0714cf
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0120 | | .CONST 0x0120 ; 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 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 0078 | x | .CONST 0x0078 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0014 | | .CONST 0x0014 ; Number of locals
001b INIT_0018:
001b 0093 0000 | | push_full_address 0x0
001d 6096 |` | Indirect_Literal Discrete,0xb4,{0x80000000, 0x00040000}
001e 0273 | s | Execute Discrete,Plus
001f e001 | | Load 0x0,0x1
0020 0273 | s | Execute Discrete,Plus
0021 e002 | | Load 0x0,0x2
0022 0273 | s | Execute Discrete,Plus
0023 00e3 | | Load_Encached Natural_Cache
0024 e003 | | Load 0x0,0x3
0025 0387 | | Declare_Variable Package
0026 00d8 | | Load_Top At_Offset_0
0027 020f | | Execute Module,Activate
0028 029e 00bb | | Declare_Subprogram INIT_00b8,For_Call,Unelaborated
002a 029e 00cb | | Declare_Subprogram INIT_00c8,For_Call,Unelaborated
002c 029e 00db | | Declare_Subprogram INIT_00d8,For_Call,Unelaborated
002e e004 | | Load 0x0,0x4
002f e402 | | Load 0x2,0x2
0030 0098 | | Execute Package,Field_Read_Dynamic
0031 03bd | | Declare_Variable Access,Duplicate
0032 03bd | | Declare_Variable Access,Duplicate
0033 4803 |H | Short_Literal 0x3
0034 4802 |H | Short_Literal 0x2
0035 0099 | | Action Reference_Dynamic
0036 00c7 | | Action Elaborate_Subprogram
0037 4804 |H | Short_Literal 0x4
0038 4802 |H | Short_Literal 0x2
0039 0099 | | Action Reference_Dynamic
003a 00c7 | | Action Elaborate_Subprogram
003b 4805 |H | Short_Literal 0x5
003c 4802 |H | Short_Literal 0x2
003d 0099 | | Action Reference_Dynamic
003e 00c7 | | Action Elaborate_Subprogram
003f 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
0041 e005 | | Load 0x0,0x5
0042 e402 | | Load 0x2,0x2
0043 0095 | | Execute Package,Field_Reference_Dynamic
0044 00c6 | | Action Check_Subprogram_Elaborated
0045 4809 |H | Short_Literal 0x9
0046 4802 |H | Short_Literal 0x2
0047 0099 | | Action Reference_Dynamic
0048 0093 0000 | | push_full_address 0x0
004a 6065 |`e | Indirect_Literal Discrete,0xb0,{0x80000000, 0x00030000}
004b 0273 | s | Execute Discrete,Plus
004c e001 | | Load 0x0,0x1
004d 0273 | s | Execute Discrete,Plus
004e e006 | | Load 0x0,0x6
004f 0273 | s | Execute Discrete,Plus
0050 480c |H | Short_Literal 0xc
0051 0007 | | Action Break_Optional
0052 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
0054 e005 | | Load 0x0,0x5
0055 e402 | | Load 0x2,0x2
0056 0095 | | Execute Package,Field_Reference_Dynamic
0057 00c6 | | Action Check_Subprogram_Elaborated
0058 480d |H | Short_Literal 0xd
0059 4802 |H | Short_Literal 0x2
005a 0099 | | Action Reference_Dynamic
005b 0093 0000 | | push_full_address 0x0
005d 604e |`N | Indirect_Literal Discrete,0xac,{0x80000000, 0x00020000}
005e 0273 | s | Execute Discrete,Plus
005f e001 | | Load 0x0,0x1
0060 0273 | s | Execute Discrete,Plus
0061 e007 | | Load 0x0,0x7
0062 0273 | s | Execute Discrete,Plus
0063 4810 |H | Short_Literal 0x10
0064 0007 | | Action Break_Optional
0065 029f 010b | | Declare_Subprogram INIT_0108,For_Call
0067 e005 | | Load 0x0,0x5
0068 e402 | | Load 0x2,0x2
0069 0095 | | Execute Package,Field_Reference_Dynamic
006a 00c6 | | Action Check_Subprogram_Elaborated
006b 4811 |H | Short_Literal 0x11
006c 4802 |H | Short_Literal 0x2
006d 0099 | | Action Reference_Dynamic
006e 0093 0000 | | push_full_address 0x0
0070 6037 |`7 | Indirect_Literal Discrete,0xa8,{0x80000000, 0x00010000}
0071 0273 | s | Execute Discrete,Plus
0072 e001 | | Load 0x0,0x1
0073 0273 | s | Execute Discrete,Plus
0074 e008 | | Load 0x0,0x8
0075 0273 | s | Execute Discrete,Plus
0076 4814 |H | Short_Literal 0x14
0077 0007 | | Action Break_Optional
0078 BODY_0018:
0078 480a |H | Short_Literal 0xa
0079 4802 |H | Short_Literal 0x2
007a 0099 | | Action Reference_Dynamic
007b 480b |H | Short_Literal 0xb
007c 4802 |H | Short_Literal 0x2
007d 0099 | | Action Reference_Dynamic
007e e005 | | Load 0x0,0x5
007f e402 | | Load 0x2,0x2
0080 0096 | | Execute Package,Entry
0081 a406 | | Store_Unchecked 0x2,0x6
0082 480e |H | Short_Literal 0xe
0083 4802 |H | Short_Literal 0x2
0084 0099 | | Action Reference_Dynamic
0085 480f |H | Short_Literal 0xf
0086 4802 |H | Short_Literal 0x2
0087 0099 | | Action Reference_Dynamic
0088 e005 | | Load 0x0,0x5
0089 e402 | | Load 0x2,0x2
008a 0096 | | Execute Package,Entry
008b a407 | | Store_Unchecked 0x2,0x7
008c 4812 |H | Short_Literal 0x12
008d 4802 |H | Short_Literal 0x2
008e 0099 | | Action Reference_Dynamic
008f 4813 |H | Short_Literal 0x13
0090 4802 |H | Short_Literal 0x2
0091 0099 | | Action Reference_Dynamic
0092 e005 | | Load 0x0,0x5
0093 e402 | | Load 0x2,0x2
0094 0096 | | Execute Package,Entry
0095 a408 | | Store_Unchecked 0x2,0x8
0096 4804 |H | Short_Literal 0x4
0097 e406 | | Load 0x2,0x6
0098 e009 | | Load 0x0,0x9
0099 e402 | | Load 0x2,0x2
009a 0096 | | Execute Package,Entry
009b 4805 |H | Short_Literal 0x5
009c e407 | | Load 0x2,0x7
009d e009 | | Load 0x0,0x9
009e e402 | | Load 0x2,0x2
009f 0096 | | Execute Package,Entry
00a0 4806 |H | Short_Literal 0x6
00a1 e408 | | Load 0x2,0x8
00a2 e009 | | Load 0x0,0x9
00a3 e402 | | Load 0x2,0x2
00a4 0096 | | Execute Package,Entry
00a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a6 0000 0000 | | .XXX[0x2]
00a8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00ac 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00b0 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
00b4 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00cf | | Action Mark_Auxiliary
00bc 00db | | Load_Top At_Offset_3
00bd 4801 |H | Short_Literal 0x1
00be 0263 | c | Execute Discrete,Above_Bound
00bf 7006 |p | Jump_Nonzero 0xc6
00c0 0092 0113 | | Action Push_String_Extended,0x113 ; "one"
00c2 e00a | | Load 0x0,0xa
00c3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00c4 00c8 | | Action Pop_Auxiliary_Range
00c5 3ffa |? | Loop_Increasing 0xc0
00c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c7 0000 | | .XXX[0x1]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00cf | | Action Mark_Auxiliary
00cc 00db | | Load_Top At_Offset_3
00cd 4801 |H | Short_Literal 0x1
00ce 0263 | c | Execute Discrete,Above_Bound
00cf 7006 |p | Jump_Nonzero 0xd6
00d0 0092 0114 | | Action Push_String_Extended,0x114 ; "two"
00d2 e00a | | Load 0x0,0xa
00d3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00d4 00c8 | | Action Pop_Auxiliary_Range
00d5 3ffa |? | Loop_Increasing 0xd0
00d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d7 0000 | | .XXX[0x1]
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 00cf | | Action Mark_Auxiliary
00dc 00db | | Load_Top At_Offset_3
00dd 4801 |H | Short_Literal 0x1
00de 0263 | c | Execute Discrete,Above_Bound
00df 7006 |p | Jump_Nonzero 0xe6
00e0 0092 0115 | | Action Push_String_Extended,0x115 ; "three"
00e2 e00a | | Load 0x0,0xa
00e3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00e4 00c8 | | Action Pop_Auxiliary_Range
00e5 3ffa |? | Loop_Increasing 0xe0
00e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e7 0000 | | .XXX[0x1]
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 00d8 | | Load_Top At_Offset_0
00ed 00e3 | | Load_Encached Natural_Cache
00ee 0260 | ` | Execute Discrete,In_Type
00ef 7001 |p | Jump_Nonzero 0xf1
00f0 0801 | | Execute_Immediate Raise,0x1
00f1 8403 | | Call 0x2,0x3
00f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f3 0000 0000 | | .BLANK 0000[0x5]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2
00fc 00d8 | | Load_Top At_Offset_0
00fd 00e3 | | Load_Encached Natural_Cache
00fe 0260 | ` | Execute Discrete,In_Type
00ff 7001 |p | Jump_Nonzero 0x101
0100 0801 | | Execute_Immediate Raise,0x1
0101 8404 | | Call 0x2,0x4
0102 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0103 0000 0000 | | .BLANK 0000[0x5]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2
010c 00d8 | | Load_Top At_Offset_0
010d 00e3 | | Load_Encached Natural_Cache
010e 0260 | ` | Execute Discrete,In_Type
010f 7001 |p | Jump_Nonzero 0x111
0110 0801 | | Execute_Immediate Raise,0x1
0111 8405 | | Call 0x2,0x5
0112 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0113 ; --------------------------------------------------------------------------------------
0113 ; STRING TABLE
0113 ; --------------------------------------------------------------------------------------
0113 0008 | | .STRTAB 0x0008->0x0117 ; "one"
0114 0009 | | .STRTAB 0x0009->0x0118 ; "two"
0115 000a | | .STRTAB 0x000a->0x011a ; "three"
0116 000d | | .STREND 0x000d->0x011c
0117 6f6e 6574 |onet| .STRTAB_STRINGS
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
0120 ; --------------------------------------------------------------------------------------
0120 ; Debug Table
0120 ; --------------------------------------------------------------------------------------
0120 0004 0004 | | .DEBUG4 0x0004,0x0004,0x3fd7,0x0000,0x0001,0x0008
0126 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
012a 001b 0146 | F| .DBG4T 0x001b,0x0146,0x8001,0x0000
012e 00bb 0159 | Y| .DBG4T 0x00bb,0x0159,0x0001,0x0000
0132 00cb 015d | ]| .DBG4T 0x00cb,0x015d,0x0001,0x0000
0136 00db 0161 | a| .DBG4T 0x00db,0x0161,0x0001,0x0000
013a 00eb 0000 | | .DBG4T 0x00eb,0x0000,0x000b,0x0000
013e 00fb 0000 | | .DBG4T 0x00fb,0x0000,0x000b,0x0000
0142 010b 0000 | | .DBG4T 0x010b,0x0000,0x000b,0x0000
0146 ; --------------------------------------------------------------------------------------
0146 ; Debug chain
0146 ; --------------------------------------------------------------------------------------
0146 000b 0006 | | .DBGLEN 0x000b,0x0006
0148 001b 0028 | (| .DBGLNO 0x001b,0x0028,0x002a,0x002c,0x002e,0x0033,0x0037,0x003b,0x003f,0x0052,0x0065,0x0078,0x0082,0x008c,0x0096,0x009b,0x00a0
0159 ; --------------------------------------------------------------------------------------
0159 ; Debug chain
0159 ; --------------------------------------------------------------------------------------
0159 0000 0002 | | .DBGLEN 0x0000,0x0002
015b 00bc 00c0 | | .DBGLNO 0x00bc,0x00c0
015d ; --------------------------------------------------------------------------------------
015d ; Debug chain
015d ; --------------------------------------------------------------------------------------
015d 0000 0002 | | .DBGLEN 0x0000,0x0002
015f 00cc 00d0 | | .DBGLNO 0x00cc,0x00d0
0161 ; --------------------------------------------------------------------------------------
0161 ; Debug chain
0161 ; --------------------------------------------------------------------------------------
0161 0000 0002 | | .DBGLEN 0x0000,0x0002
0163 00dc 00e0 | | .DBGLNO 0x00dc,0x00e0
0165 0000 0000 | | .BLANK 0000[0x9b]