|
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_35e4d2
└─⟦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 0031 | 1 | .CONST 0x0031 ; 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 4806 |H | Short_Literal 0x6
000d 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 00c4 | | Action Make_Default
0011 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0013 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0015 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0017 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0019 e20d | | Load 0x1,0xd
001a 00e2 | | Load_Encached Integer_Cache
001b 02a0 | | Declare_Subprogram Null_Subprogram
001c 4802 |H | Short_Literal 0x2
001d 032e | . | Declare_Type Record,Defined,Visible
001e 00d8 | | Load_Top At_Offset_0
001f 0322 | " | Declare_Variable Record
0020 4800 |H | Short_Literal 0x0
0021 00d9 | | Load_Top At_Offset_1
0022 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0023 4800 |H | Short_Literal 0x0
0024 00d9 | | Load_Top At_Offset_1
0025 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0026 0129 | ) | Execute Any,Make_Visible
0027 c20e | | Store 0x1,0xe
0028 00bf | | Action Accept_Activation
0029 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002a 00c7 | | Action Elaborate_Subprogram
002b 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002c 00c7 | | Action Elaborate_Subprogram
002d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002e 00c7 | | Action Elaborate_Subprogram
002f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0030 00c7 | | Action Elaborate_Subprogram
0031 BODY_0008:
0031 00bc | | Action Signal_Activated
0032 00bb | | Action Signal_Completion
0033 0000 0000 | | .BLANK 0000[0x5]
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 008f | | Action Push_String_Extended_Indexed,0x8f ; "VIDE"
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 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0065 | e | .CONST 0x0065 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0002 | | .CONST 0x0002 ; Number of locals
0063 INIT_0060:
0063 e213 | | Load 0x1,0x13
0064 0322 | " | Declare_Variable Record
0065 BODY_0060:
0065 00db | | Load_Top At_Offset_3
0066 00d9 | | Load_Top At_Offset_1
0067 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0068 e5fe | | Load 0x2,-0x2
0069 00d9 | | Load_Top At_Offset_1
006a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
006b 00d8 | | Load_Top At_Offset_0
006c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
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 00da | | Load_Top At_Offset_2
0074 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0075 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0076 0000 0000 | | .XXX[0x2]
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 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007e 0000 0000 | | .XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 00da | | Load_Top At_Offset_2
0084 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0085 e5fe | | Load 0x2,-0x2
0086 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0087 027f | | Execute Discrete,Equal
0088 00db | | Load_Top At_Offset_3
0089 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
008a e5fe | | Load 0x2,-0x2
008b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
008c 027f | | Execute Discrete,Equal
008d 0279 | y | Execute Discrete,And
008e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
008f ; --------------------------------------------------------------------------------------
008f ; STRING TABLE
008f ; --------------------------------------------------------------------------------------
008f 0010 | | .STRTAB 0x0010->0x0097 ; "VIDE"
0090 0012 | | .STRTAB 0x0012->0x0099 ; "ENTIER"
0091 0016 | | .STRTAB 0x0016->0x009c ; "BOOLEEN"
0092 001b | | .STRTAB 0x001b->0x009f ; "CHAINE"
0093 001f | | .STRTAB 0x001f->0x00a2 ; "BLOC"
0094 0021 | ! | .STRTAB 0x0021->0x00a4 ; "TORTUE"
0095 0025 | % | .STRTAB 0x0025->0x00a7 ; "STYLO"
0096 0028 | ( | .STREND 0x0028->0x00aa
0097 5649 4445 |VIDE| .STRTAB_STRINGS
00aa 0000 0000 | | .BLANK 0000[0x6]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; Debug Table
00b0 ; --------------------------------------------------------------------------------------
00b0 0004 0006 | | .DEBUG4 0x0004,0x0006,0x4485,0x0000,0x0001,0x0007
00b6 000b 00d2 | | .DBG4T 0x000b,0x00d2,0x8000,0x8000
00ba 0029 00e4 | ) | .DBG4T 0x0029,0x00e4,0x8000,0x0000
00be 003b 0000 | ; | .DBG4T 0x003b,0x0000,0x0005,0x0000
00c2 0063 00ea | c | .DBG4T 0x0063,0x00ea,0x0002,0x0000
00c6 0073 00f0 | s | .DBG4T 0x0073,0x00f0,0x0002,0x0000
00ca 007b 00f3 | { | .DBG4T 0x007b,0x00f3,0x0002,0x0000
00ce 0083 00f6 | | .DBG4T 0x0083,0x00f6,0x0002,0x0000
00d2 ; --------------------------------------------------------------------------------------
00d2 ; Debug chain
00d2 ; --------------------------------------------------------------------------------------
00d2 0008 0000 | | .DBGLEN 0x0008,0x0000
00d4 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0011,0x0013,0x0015,0x0017,0x0019,0x001e
00dc 0001 0003 | | .XXX[0x8]
00de 0004 0005 | |
00e0 0006 0007 | |
00e2 0008 0009 | |
00e4 ; --------------------------------------------------------------------------------------
00e4 ; Debug chain
00e4 ; --------------------------------------------------------------------------------------
00e4 0004 0000 | | .DBGLEN 0x0004,0x0000
00e6 0029 002b | ) +| .DBGLNO 0x0029,0x002b,0x002d,0x002f
00ea ; --------------------------------------------------------------------------------------
00ea ; Debug chain
00ea ; --------------------------------------------------------------------------------------
00ea 0001 0003 | | .DBGLEN 0x0001,0x0003
00ec 0063 0065 | c e| .DBGLNO 0x0063,0x0065,0x0068,0x006b
00f0 ; --------------------------------------------------------------------------------------
00f0 ; Debug chain
00f0 ; --------------------------------------------------------------------------------------
00f0 0000 0001 | | .DBGLEN 0x0000,0x0001
00f2 0073 | s | .DBGLNO 0x0073
00f3 ; --------------------------------------------------------------------------------------
00f3 ; Debug chain
00f3 ; --------------------------------------------------------------------------------------
00f3 0000 0001 | | .DBGLEN 0x0000,0x0001
00f5 007b | { | .DBGLNO 0x007b
00f6 ; --------------------------------------------------------------------------------------
00f6 ; Debug chain
00f6 ; --------------------------------------------------------------------------------------
00f6 0000 0001 | | .DBGLEN 0x0000,0x0001
00f8 0083 | | .DBGLNO 0x0083
00f9 0000 0000 | | .BLANK 0000[0x107]