|
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_4b04d9
└─⟦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 00a0 | | .CONST 0x00a0 ; 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 0035 | 5 | .CONST 0x0035 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4802 |H | Short_Literal 0x2
000d 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 0093 0000 | | push_full_address 0x0
0012 6051 |`Q | Indirect_Literal Discrete,0x64,{0x80000000, 0x00010000}
0013 0273 | s | Execute Discrete,Plus
0014 e002 | | Load 0x0,0x2
0015 0273 | s | Execute Discrete,Plus
0016 e003 | | Load 0x0,0x3
0017 0273 | s | Execute Discrete,Plus
0018 4800 |H | Short_Literal 0x0
0019 4814 |H | Short_Literal 0x14
001a 00db | | Load_Top At_Offset_3
001b e004 | | Load 0x0,0x4
001c 0386 | | Declare_Variable Package,Visible
001d 00d8 | | Load_Top At_Offset_0
001e 020f | | Execute Module,Activate
001f 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0021 00bf | | Action Accept_Activation
0022 029d 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call
0024 e005 | | Load 0x0,0x5
0025 00db | | Load_Top At_Offset_3
0026 0095 | | Execute Package,Field_Reference_Dynamic
0027 00c6 | | Action Check_Subprogram_Elaborated
0028 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0029 0093 0000 | | push_full_address 0x0
002b 6034 |`4 | Indirect_Literal Discrete,0x60,{0x80000000, 0x00020000}
002c 0273 | s | Execute Discrete,Plus
002d e002 | | Load 0x0,0x2
002e 0273 | s | Execute Discrete,Plus
002f e006 | | Load 0x0,0x6
0030 0273 | s | Execute Discrete,Plus
0031 4800 |H | Short_Literal 0x0
0032 0007 | | Action Break_Optional
0033 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0034 00c7 | | Action Elaborate_Subprogram
0035 BODY_0008:
0035 00bc | | Action Signal_Activated
0036 00bb | | Action Signal_Completion
0037 0000 | | .XXX[0x1]
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 4607 |F | Jump_Case 0x8
003c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
003d 7807 |x | Jump 0x45 ; case 0x1
003e 780a |x | Jump 0x49 ; case 0x2
003f 780e |x | Jump 0x4e ; case 0x3
0040 7811 |x | Jump 0x52 ; case 0x4
0041 7812 |x | Jump 0x54 ; case 0x5
0042 7813 |x | Jump 0x56 ; case 0x6
0043 7816 |x | Jump 0x5a ; case 0x7
0044 4302 |C | .XXX[0x1]
0045 00da | | Load_Top At_Offset_2
0046 0091 0086 | | Action Push_String_Extended_Indexed,0x86 ; "NUMBER"
0048 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0049 00db | | Load_Top At_Offset_3
004a 00db | | Load_Top At_Offset_3
004b 00e0 | | Load_Encached Standard_Cache
004c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
004d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
004e 00da | | Load_Top At_Offset_2
004f 00e0 | | Load_Encached Standard_Cache
0050 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0051 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0052 00db | | Load_Top At_Offset_3
0053 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0054 00db | | Load_Top At_Offset_3
0055 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0056 e20d | | Load 0x1,0xd
0057 00dc | | Load_Top At_Offset_4
0058 0267 | g | Execute Discrete,Predecessor
0059 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
005a e20d | | Load 0x1,0xd
005b 00dc | | Load_Top At_Offset_4
005c 0268 | h | Execute Discrete,Successor
005d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
005e 0000 0000 | | .XXX[0x2]
0060 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0064 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
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 00db | | Load_Top At_Offset_3
006c 00db | | Load_Top At_Offset_3
006d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
006e 1d12 | | Execute_Immediate Reference_Lex_1,0x12
006f e005 | | Load 0x0,0x5
0070 e20e | | Load 0x1,0xe
0071 0096 | | Execute Package,Entry
0072 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0073 0000 0000 | | .BLANK 0000[0x5]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0080 | | .CONST 0x0080 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 00db | | Load_Top At_Offset_3
007c 8007 | | Call 0x0,0x7
007d 00e0 | | Load_Encached Standard_Cache
007e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
007f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0080 TRAP_0078:
0080 010e | | Execute Exception,Is_Constraint_Error
0081 6803 |h | Jump_Zero 0x85
0082 0092 0089 | | Action Push_String_Extended,0x89 ; "Undefined"
0084 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0085 0100 | | Execute Exception,Raise
0086 ; --------------------------------------------------------------------------------------
0086 ; STRING TABLE
0086 ; --------------------------------------------------------------------------------------
0086 000a | | .STRTAB 0x000a->0x008b ; "NUMBER"
0087 000e | | .STRTAB 0x000e->0x008e ; "VALUE"
0088 0011 | | .STRTAB 0x0011->0x0090 ; "MESSAGE"
0089 0016 | | .STRTAB 0x0016->0x0094 ; "Undefined"
008a 001d | | .STREND 0x001d->0x0098
008b 4e55 4d42 |NUMB| .STRTAB_STRINGS
0099 0000 0000 | | .BLANK 0000[0x7]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; Debug Table
00a0 ; --------------------------------------------------------------------------------------
00a0 0004 0006 | | .DEBUG4 0x0004,0x0006,0xb081,0x0000,0x0001,0x0005
00a6 000b 00ba | | .DBG4T 0x000b,0x00ba,0x8000,0x0000
00aa 0022 00bf | " | .DBG4T 0x0022,0x00bf,0x8000,0x0000
00ae 003b 0000 | ; | .DBG4T 0x003b,0x0000,0x0005,0x0000
00b2 006b 00c4 | k | .DBG4T 0x006b,0x00c4,0x0001,0x0000
00b6 007b 00c7 | { | .DBG4T 0x007b,0x00c7,0x0002,0x0000
00ba ; --------------------------------------------------------------------------------------
00ba ; Debug chain
00ba ; --------------------------------------------------------------------------------------
00ba 0003 0000 | | .DBGLEN 0x0003,0x0000
00bc 000b 0010 | | .DBGLNO 0x000b,0x0010,0x001f
00bf ; --------------------------------------------------------------------------------------
00bf ; Debug chain
00bf ; --------------------------------------------------------------------------------------
00bf 0003 0000 | | .DBGLEN 0x0003,0x0000
00c1 0022 0024 | " $| .DBGLNO 0x0022,0x0024,0x0033
00c4 ; --------------------------------------------------------------------------------------
00c4 ; Debug chain
00c4 ; --------------------------------------------------------------------------------------
00c4 0000 0001 | | .DBGLEN 0x0000,0x0001
00c6 006b | k | .DBGLNO 0x006b
00c7 ; --------------------------------------------------------------------------------------
00c7 ; Debug chain
00c7 ; --------------------------------------------------------------------------------------
00c7 0000 0002 | | .DBGLEN 0x0000,0x0002
00c9 007b 0082 | { | .DBGLNO 0x007b,0x0082
00cb 0000 0000 | | .BLANK 0000[0x135]