|
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_1a809d
└─⟦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 0118 | | .CONST 0x0118 ; 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 0047 | G | .CONST 0x0047 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001c | | .CONST 0x001c ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4804 |H | Short_Literal 0x4
000d 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 00d8 | | Load_Top At_Offset_0
0011 0266 | f | Execute Discrete,Bounds
0012 e002 | | Load 0x0,0x2
0013 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0014 02a0 | | Declare_Subprogram Null_Subprogram
0015 4801 |H | Short_Literal 0x1
0016 035e | ^ | Declare_Type Array,Defined,Visible
0017 00d8 | | Load_Top At_Offset_0
0018 0336 | 6 | Declare_Variable Array,Visible
0019 e002 | | Load 0x0,0x2
001a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
001b 0129 | ) | Execute Any,Make_Visible
001c e002 | | Load 0x0,0x2
001d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
001e 0129 | ) | Execute Any,Make_Visible
001f e002 | | Load 0x0,0x2
0020 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0021 0129 | ) | Execute Any,Make_Visible
0022 00e2 | | Load_Encached Integer_Cache
0023 0129 | ) | Execute Any,Make_Visible
0024 00e1 | | Load_Encached Boolean_Cache
0025 0129 | ) | Execute Any,Make_Visible
0026 00e1 | | Load_Encached Boolean_Cache
0027 0129 | ) | Execute Any,Make_Visible
0028 e20d | | Load 0x1,0xd
0029 0266 | f | Execute Discrete,Bounds
002a 00e2 | | Load_Encached Integer_Cache
002b 02a0 | | Declare_Subprogram Null_Subprogram
002c 4801 |H | Short_Literal 0x1
002d 035e | ^ | Declare_Type Array,Defined,Visible
002e 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0030 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0032 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0034 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0036 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0038 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
003a 00bf | | Action Accept_Activation
003b 1d18 | | Execute_Immediate Reference_Lex_1,0x18
003c 00c7 | | Action Elaborate_Subprogram
003d 1d17 | | Execute_Immediate Reference_Lex_1,0x17
003e 00c7 | | Action Elaborate_Subprogram
003f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0040 00c7 | | Action Elaborate_Subprogram
0041 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0042 00c7 | | Action Elaborate_Subprogram
0043 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0044 00c7 | | Action Elaborate_Subprogram
0045 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0046 00c7 | | Action Elaborate_Subprogram
0047 BODY_0008:
0047 00bc | | Action Signal_Activated
0048 00bb | | Action Signal_Completion
0049 0000 0000 | | .BLANK 0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 4607 |F | Jump_Case 0x8
0054 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0055 7807 |x | Jump 0x5d ; case 0x1
0056 780a |x | Jump 0x61 ; case 0x2
0057 780e |x | Jump 0x66 ; case 0x3
0058 7811 |x | Jump 0x6a ; case 0x4
0059 7812 |x | Jump 0x6c ; case 0x5
005a 7813 |x | Jump 0x6e ; case 0x6
005b 7816 |x | Jump 0x72 ; case 0x7
005c 4302 |C | .XXX[0x1]
005d 00da | | Load_Top At_Offset_2
005e 0091 00ea | | Action Push_String_Extended_Indexed,0xea ; "COMMUNICATION"
0060 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0061 00db | | Load_Top At_Offset_3
0062 00db | | Load_Top At_Offset_3
0063 00e0 | | Load_Encached Standard_Cache
0064 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0065 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0066 00da | | Load_Top At_Offset_2
0067 00e0 | | Load_Encached Standard_Cache
0068 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0069 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
006a 00db | | Load_Top At_Offset_3
006b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006c 00db | | Load_Top At_Offset_3
006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006e e20d | | Load 0x1,0xd
006f 00dc | | Load_Top At_Offset_4
0070 0267 | g | Execute Discrete,Predecessor
0071 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0072 e20d | | Load 0x1,0xd
0073 00dc | | Load_Top At_Offset_4
0074 0268 | h | Execute Discrete,Successor
0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0076 0000 0000 | | .XXX[0x2]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007d | } | .CONST 0x007d ; Address of begin
0079 0085 | | .CONST 0x0085 ; Address of exception handler
007a 0002 | | .CONST 0x0002 ; Number of locals
007b INIT_0078:
007b e20d | | Load 0x1,0xd
007c 0007 | | Action Break_Optional
007d BODY_0078:
007d 00db | | Load_Top At_Offset_3
007e e002 | | Load 0x0,0x2
007f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0080 e20d | | Load 0x1,0xd
0081 1c02 | | Execute_Immediate Run_Utility,0x2
0082 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0083 4801 |H | Short_Literal 0x1
0084 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0085 TRAP_0078:
0085 010e | | Execute Exception,Is_Constraint_Error
0086 6802 |h | Jump_Zero 0x89
0087 4800 |H | Short_Literal 0x0
0088 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0089 0100 | | Execute Exception,Raise
008a 0000 0000 | | .BLANK 0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 e002 | | Load 0x0,0x2
0095 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0096 e20d | | Load 0x1,0xd
0097 1c02 | | Execute_Immediate Run_Utility,0x2
0098 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0099 0000 0000 | | .BLANK 0000[0x7]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 00da | | Load_Top At_Offset_2
00a4 8217 | | Call 0x1,0x17
00a5 6805 |h | Jump_Zero 0xab
00a6 00da | | Load_Top At_Offset_2
00a7 8218 | | Call 0x1,0x18
00a8 e20f | | Load 0x1,0xf
00a9 01d7 | | Execute Vector,Field_Read
00aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ab 00da | | Load_Top At_Offset_2
00ac 821a | | Call 0x1,0x1a
00ad 6802 |h | Jump_Zero 0xb0
00ae e212 | | Load 0x1,0x12
00af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b0 00da | | Load_Top At_Offset_2
00b1 821b | | Call 0x1,0x1b
00b2 6802 |h | Jump_Zero 0xb5
00b3 e210 | | Load 0x1,0x10
00b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b5 00da | | Load_Top At_Offset_2
00b6 821c | | Call 0x1,0x1c
00b7 6802 |h | Jump_Zero 0xba
00b8 e211 | | Load 0x1,0x11
00b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ba 00da | | Load_Top At_Offset_2
00bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 0092 00ef | | Action Push_String_Extended,0xef ; "sortie"
00c5 e002 | | Load 0x0,0x2
00c6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00c7 00db | | Load_Top At_Offset_3
00c8 8003 | | Call 0x0,0x3
00c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ca 0000 0000 | | .BLANK 0000[0x6]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 0092 00f0 | | Action Push_String_Extended,0xf0 ; "joueur"
00d5 e002 | | Load 0x0,0x2
00d6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00d7 00db | | Load_Top At_Offset_3
00d8 8003 | | Call 0x0,0x3
00d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00da 0000 0000 | | .BLANK 0000[0x6]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 0092 00f1 | | Action Push_String_Extended,0xf1 ; "positioncourante"
00e5 e002 | | Load 0x0,0x2
00e6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00e7 00db | | Load_Top At_Offset_3
00e8 8003 | | Call 0x0,0x3
00e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ea ; --------------------------------------------------------------------------------------
00ea ; STRING TABLE
00ea ; --------------------------------------------------------------------------------------
00ea 0012 | | .STRTAB 0x0012->0x00f3 ; "COMMUNICATION"
00eb 001d | | .STRTAB 0x001d->0x00f9 ; "OBJET"
00ec 0020 | | .STRTAB 0x0020->0x00fc ; "LIEU"
00ed 0022 | " | .STRTAB 0x0022->0x00fe ; "PERSONNAGE"
00ee 002a | * | .STRTAB 0x002a->0x0103 ; "DIRECTION"
00ef 0031 | 1 | .STRTAB 0x0031->0x0107 ; "sortie"
00f0 0035 | 5 | .STRTAB 0x0035->0x010a ; "joueur"
00f1 0039 | 9 | .STRTAB 0x0039->0x010d ; "positioncourante"
00f2 0047 | G | .STREND 0x0047->0x0115
00f3 434f 4d4d |COMM| .STRTAB_STRINGS
0116 0000 0000 | | .XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug Table
0118 ; --------------------------------------------------------------------------------------
0118 0004 0008 | | .DEBUG4 0x0004,0x0008,0xb5b6,0x0000,0x0001,0x0009
011e 000b 0142 | B| .DBG4T 0x000b,0x0142,0x8000,0x0000
0122 003b 0154 | ; T| .DBG4T 0x003b,0x0154,0x8000,0x0000
0126 0053 0000 | S | .DBG4T 0x0053,0x0000,0x0005,0x0000
012a 007b 015c | { \| .DBG4T 0x007b,0x015c,0x0002,0x0000
012e 0093 0162 | b| .DBG4T 0x0093,0x0162,0x0002,0x0000
0132 00a3 0165 | e| .DBG4T 0x00a3,0x0165,0x0002,0x0000
0136 00c3 0170 | p| .DBG4T 0x00c3,0x0170,0x0002,0x0000
013a 00d3 0173 | s| .DBG4T 0x00d3,0x0173,0x0002,0x0000
013e 00e3 0176 | v| .DBG4T 0x00e3,0x0176,0x0002,0x0000
0142 ; --------------------------------------------------------------------------------------
0142 ; Debug chain
0142 ; --------------------------------------------------------------------------------------
0142 0010 0000 | | .DBGLEN 0x0010,0x0000
0144 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0017,0x0019,0x001c,0x001f,0x0022,0x0024,0x0026,0x0028,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038
0154 ; --------------------------------------------------------------------------------------
0154 ; Debug chain
0154 ; --------------------------------------------------------------------------------------
0154 0006 0000 | | .DBGLEN 0x0006,0x0000
0156 003b 003d | ; =| .DBGLNO 0x003b,0x003d,0x003f,0x0041,0x0043,0x0045
015c ; --------------------------------------------------------------------------------------
015c ; Debug chain
015c ; --------------------------------------------------------------------------------------
015c 0001 0003 | | .DBGLEN 0x0001,0x0003
015e 007b 007d | { }| .DBGLNO 0x007b,0x007d,0x0083,0x0087
0162 ; --------------------------------------------------------------------------------------
0162 ; Debug chain
0162 ; --------------------------------------------------------------------------------------
0162 0000 0001 | | .DBGLEN 0x0000,0x0001
0164 0093 | | .DBGLNO 0x0093
0165 ; --------------------------------------------------------------------------------------
0165 ; Debug chain
0165 ; --------------------------------------------------------------------------------------
0165 0000 0009 | | .DBGLEN 0x0000,0x0009
0167 00a3 00a6 | | .DBGLNO 0x00a3,0x00a6,0x00ab,0x00ae,0x00b0,0x00b3,0x00b5,0x00b8,0x00ba
0170 ; --------------------------------------------------------------------------------------
0170 ; Debug chain
0170 ; --------------------------------------------------------------------------------------
0170 0000 0001 | | .DBGLEN 0x0000,0x0001
0172 00c3 | | .DBGLNO 0x00c3
0173 ; --------------------------------------------------------------------------------------
0173 ; Debug chain
0173 ; --------------------------------------------------------------------------------------
0173 0000 0001 | | .DBGLEN 0x0000,0x0001
0175 00d3 | | .DBGLNO 0x00d3
0176 ; --------------------------------------------------------------------------------------
0176 ; Debug chain
0176 ; --------------------------------------------------------------------------------------
0176 0000 0001 | | .DBGLEN 0x0000,0x0001
0178 00e3 | | .DBGLNO 0x00e3
0179 0000 0000 | | .BLANK 0000[0x87]