|
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_53e0e8
└─⟦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 00b0 | | .CONST 0x00b0 ; 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 0058 | X | .CONST 0x0058 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0007 | | .CONST 0x0007 ; Number of locals
001b INIT_0018:
001b 4800 |H | Short_Literal 0x0
001c 4801 |H | Short_Literal 0x1
001d 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
001f 03fd | | Declare_Type Discrete,Defined
0020 0093 0000 | | push_full_address 0x0
0022 6049 |`I | Indirect_Literal Discrete,0x6c,{0x80000000, 0x00020000}
0023 0273 | s | Execute Discrete,Plus
0024 e002 | | Load 0x0,0x2
0025 0273 | s | Execute Discrete,Plus
0026 e003 | | Load 0x0,0x3
0027 0273 | s | Execute Discrete,Plus
0028 00d9 | | Load_Top At_Offset_1
0029 e004 | | Load 0x0,0x4
002a 0387 | | Declare_Variable Package
002b 00d8 | | Load_Top At_Offset_0
002c 020f | | Execute Module,Activate
002d e005 | | Load 0x0,0x5
002e 00d9 | | Load_Top At_Offset_1
002f 0095 | | Execute Package,Field_Reference_Dynamic
0030 00c6 | | Action Check_Subprogram_Elaborated
0031 4800 |H | Short_Literal 0x0
0032 0093 0000 | | push_full_address 0x0
0034 6033 |`3 | Indirect_Literal Discrete,0x68,{0x80000000, 0x00010000}
0035 0273 | s | Execute Discrete,Plus
0036 e002 | | Load 0x0,0x2
0037 0273 | s | Execute Discrete,Plus
0038 e006 | | Load 0x0,0x6
0039 0273 | s | Execute Discrete,Plus
003a 4806 |H | Short_Literal 0x6
003b 0007 | | Action Break_Optional
003c 4800 |H | Short_Literal 0x0
003d 4802 |H | Short_Literal 0x2
003e e001 | | Load 0x0,0x1
003f 01d7 | | Execute Vector,Field_Read
0040 02a0 | | Declare_Subprogram Null_Subprogram
0041 038e | | Declare_Type Package,Defined
0042 e001 | | Load 0x0,0x1
0043 4801 |H | Short_Literal 0x1
0044 e001 | | Load 0x0,0x1
0045 01d7 | | Execute Vector,Field_Read
0046 4802 |H | Short_Literal 0x2
0047 00db | | Load_Top At_Offset_3
0048 020e | | Execute Module,Augment_Imports
0049 0387 | | Declare_Variable Package
004a 4805 |H | Short_Literal 0x5
004b 4802 |H | Short_Literal 0x2
004c 0099 | | Action Reference_Dynamic
004d 4805 |H | Short_Literal 0x5
004e 4802 |H | Short_Literal 0x2
004f 0099 | | Action Reference_Dynamic
0050 e005 | | Load 0x0,0x5
0051 e403 | | Load 0x2,0x3
0052 0095 | | Execute Package,Field_Reference_Dynamic
0053 4803 |H | Short_Literal 0x3
0054 e407 | | Load 0x2,0x7
0055 020e | | Execute Module,Augment_Imports
0056 00d8 | | Load_Top At_Offset_0
0057 020f | | Execute Module,Activate
0058 BODY_0018:
0058 00d8 | | Load_Top At_Offset_0
0059 180d | | Execute Package,Field_Execute,Field_Number 0xd
005a 6805 |h | Jump_Zero 0x60
005b 0092 0098 | | Action Push_String_Extended,0x98 ; "Yet another bug !!!"
005d e007 | | Load 0x0,0x7
005e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
005f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0060 0092 0099 | | Action Push_String_Extended,0x99 ; "No bug"
0062 e007 | | Load 0x0,0x7
0063 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0064 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0065 0000 0000 | | .XXX[0x3]
0067 0000 | |
0068 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
006c 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 4607 |F | Jump_Case 0x8
0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0075 7807 |x | Jump 0x7d ; case 0x1
0076 780a |x | Jump 0x81 ; case 0x2
0077 780e |x | Jump 0x86 ; case 0x3
0078 7811 |x | Jump 0x8a ; case 0x4
0079 7812 |x | Jump 0x8c ; case 0x5
007a 7813 |x | Jump 0x8e ; case 0x6
007b 7816 |x | Jump 0x92 ; case 0x7
007c 4302 |C | .XXX[0x1]
007d 00da | | Load_Top At_Offset_2
007e 0091 0096 | | Action Push_String_Extended_Indexed,0x96 ; "ONE"
0080 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0081 00db | | Load_Top At_Offset_3
0082 00db | | Load_Top At_Offset_3
0083 00e0 | | Load_Encached Standard_Cache
0084 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0085 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0086 00da | | Load_Top At_Offset_2
0087 00e0 | | Load_Encached Standard_Cache
0088 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0089 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
008a 00db | | Load_Top At_Offset_3
008b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008c 00db | | Load_Top At_Offset_3
008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008e e402 | | Load 0x2,0x2
008f 00dc | | Load_Top At_Offset_4
0090 0267 | g | Execute Discrete,Predecessor
0091 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0092 e402 | | Load 0x2,0x2
0093 00dc | | Load_Top At_Offset_4
0094 0268 | h | Execute Discrete,Successor
0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0096 ; --------------------------------------------------------------------------------------
0096 ; STRING TABLE
0096 ; --------------------------------------------------------------------------------------
0096 000a | | .STRTAB 0x000a->0x009b ; "ONE"
0097 000b | | .STRTAB 0x000b->0x009c ; "TWO"
0098 000c | | .STRTAB 0x000c->0x009e ; "Yet another bug !!!"
0099 001d | | .STRTAB 0x001d->0x00a7 ; "No bug"
009a 0021 | ! | .STREND 0x0021->0x00aa
009b 4f4e 4554 |ONET| .STRTAB_STRINGS
00ab 0000 0000 | | .BLANK 0000[0x5]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; Debug Table
00b0 ; --------------------------------------------------------------------------------------
00b0 0004 0004 | | .DEBUG4 0x0004,0x0004,0x8a8a,0x0000,0x0001,0x0003
00b6 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
00ba 001b 00c2 | | .DBG4T 0x001b,0x00c2,0x8001,0x0000
00be 0073 0000 | s | .DBG4T 0x0073,0x0000,0x0005,0x0000
00c2 ; --------------------------------------------------------------------------------------
00c2 ; Debug chain
00c2 ; --------------------------------------------------------------------------------------
00c2 0005 0003 | | .DBGLEN 0x0005,0x0003
00c4 001b 0020 | | .DBGLNO 0x001b,0x0020,0x002d,0x003c,0x004a,0x0058,0x005b,0x0060
00cc 0000 0000 | | .BLANK 0000[0x134]